| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/..................... |
| 0020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0060 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 0080 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 31 32 30 37 00 20 35 00 00 00 | 0000000.00000000000.011207..5... |
| 00a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 2e 67 69 74 68 75 62 2f 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/.github/............. |
| 0220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0260 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 0280 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 35 34 37 00 20 35 00 00 00 | 0000000.00000000000.012547..5... |
| 02a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 2e 67 69 74 68 75 62 2f 77 6f 72 6b 66 6c 6f 77 73 2f 00 00 00 | slime-2.31/.github/workflows/... |
| 0420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0460 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 0480 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 36 30 34 00 20 35 00 00 00 | 0000000.00000000000.014604..5... |
| 04a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 04c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 04e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 05a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 05c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 05e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 2e 67 69 74 68 75 62 2f 77 6f 72 6b 66 6c 6f 77 73 2f 63 69 2e | slime-2.31/.github/workflows/ci. |
| 0620 | 79 6d 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | yml............................. |
| 0640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0680 | 30 30 30 31 32 30 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 37 32 31 00 20 30 00 00 00 | 0001206.00000000000.015721..0... |
| 06a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0800 | 6e 61 6d 65 3a 20 43 49 0a 0a 6f 6e 3a 0a 20 20 70 75 6c 6c 5f 72 65 71 75 65 73 74 3a 0a 20 20 | name:.CI..on:...pull_request:... |
| 0820 | 70 75 73 68 3a 0a 20 20 20 20 70 61 74 68 73 2d 69 67 6e 6f 72 65 3a 0a 20 20 20 20 2d 20 27 2a | push:.....paths-ignore:.....-.'* |
| 0840 | 2a 2e 6d 64 27 0a 0a 6a 6f 62 73 3a 0a 20 20 62 75 69 6c 64 3a 0a 20 20 20 20 72 75 6e 73 2d 6f | *.md'..jobs:...build:.....runs-o |
| 0860 | 6e 3a 20 24 7b 7b 20 6d 61 74 72 69 78 2e 6f 73 20 7d 7d 0a 20 20 20 20 74 69 6d 65 6f 75 74 2d | n:.${{.matrix.os.}}.....timeout- |
| 0880 | 6d 69 6e 75 74 65 73 3a 20 32 30 0a 0a 20 20 20 20 73 74 72 61 74 65 67 79 3a 0a 20 20 20 20 20 | minutes:.20......strategy:...... |
| 08a0 | 20 6d 61 74 72 69 78 3a 0a 20 20 20 20 20 20 20 20 6c 69 73 70 3a 20 5b 63 63 6c 2c 20 73 62 63 | .matrix:.........lisp:.[ccl,.sbc |
| 08c0 | 6c 5d 0a 20 20 20 20 20 20 20 20 6f 73 3a 20 5b 75 62 75 6e 74 75 2d 6c 61 74 65 73 74 5d 0a 20 | l].........os:.[ubuntu-latest].. |
| 08e0 | 20 20 20 20 20 20 20 65 6d 61 63 73 5f 76 65 72 73 69 6f 6e 3a 20 5b 32 34 2d 35 2c 20 32 35 2d | .......emacs_version:.[24-5,.25- |
| 0900 | 33 2c 20 32 36 2d 33 2c 20 32 37 2d 31 2c 20 73 6e 61 70 73 68 6f 74 5d 0a 20 20 20 20 20 20 66 | 3,.26-3,.27-1,.snapshot].......f |
| 0920 | 61 69 6c 2d 66 61 73 74 3a 20 66 61 6c 73 65 0a 20 20 20 20 73 74 65 70 73 3a 0a 0a 20 20 20 20 | ail-fast:.false.....steps:...... |
| 0940 | 2d 20 75 73 65 73 3a 20 63 61 63 68 69 78 2f 69 6e 73 74 61 6c 6c 2d 6e 69 78 2d 61 63 74 69 6f | -.uses:.cachix/install-nix-actio |
| 0960 | 6e 40 76 32 35 0a 20 20 20 20 20 20 77 69 74 68 3a 0a 20 20 20 20 20 20 20 20 6e 69 78 5f 70 61 | n@v25.......with:.........nix_pa |
| 0980 | 74 68 3a 20 6e 69 78 70 6b 67 73 3d 63 68 61 6e 6e 65 6c 3a 6e 69 78 6f 73 2d 32 33 2e 31 31 0a | th:.nixpkgs=channel:nixos-23.11. |
| 09a0 | 20 20 20 20 2d 20 75 73 65 73 3a 20 70 75 72 63 65 6c 6c 2f 73 65 74 75 70 2d 65 6d 61 63 73 40 | ....-.uses:.purcell/setup-emacs@ |
| 09c0 | 76 36 2e 30 0a 20 20 20 20 20 20 77 69 74 68 3a 0a 20 20 20 20 20 20 20 20 76 65 72 73 69 6f 6e | v6.0.......with:.........version |
| 09e0 | 3a 20 24 7b 7b 20 6d 61 74 72 69 78 2e 65 6d 61 63 73 5f 76 65 72 73 69 6f 6e 20 7d 7d 0a 20 20 | :.${{.matrix.emacs_version.}}... |
| 0a00 | 20 20 2d 20 75 73 65 73 3a 20 61 63 74 69 6f 6e 73 2f 63 68 65 63 6b 6f 75 74 40 76 32 0a 20 20 | ..-.uses:.actions/checkout@v2... |
| 0a20 | 20 20 2d 20 72 75 6e 3a 20 6e 69 78 2d 65 6e 76 20 2d 69 20 24 7b 7b 20 6d 61 74 72 69 78 2e 6c | ..-.run:.nix-env.-i.${{.matrix.l |
| 0a40 | 69 73 70 20 7d 7d 20 2d 66 20 27 3c 6e 69 78 70 6b 67 73 3e 27 0a 20 20 20 20 2d 20 72 75 6e 3a | isp.}}.-f.'<nixpkgs>'.....-.run: |
| 0a60 | 20 6d 61 6b 65 20 4c 49 53 50 3d 22 24 7b 7b 20 6d 61 74 72 69 78 2e 6c 69 73 70 20 7d 7d 22 20 | .make.LISP="${{.matrix.lisp.}}". |
| 0a80 | 63 68 65 63 6b 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | check........................... |
| 0aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0c00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 6c 69 6d 65 2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 00 00 00 | slime-2.31/slime-pkg.el......... |
| 0c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0c60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0c80 | 30 30 30 30 34 37 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 34 32 35 00 20 30 00 00 00 | 0000473.00000000000.013425..0... |
| 0ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0e00 | 3b 3b 20 47 65 6e 65 72 61 74 65 64 20 70 61 63 6b 61 67 65 20 64 65 73 63 72 69 70 74 69 6f 6e | ;;.Generated.package.description |
| 0e20 | 20 66 72 6f 6d 20 73 6c 69 6d 65 2e 65 6c 20 20 2d 2a 2d 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 | .from.slime.el..-*-.no-byte-comp |
| 0e40 | 69 6c 65 3a 20 74 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 73 6c 69 6d | ile:.t.-*-.(define-package."slim |
| 0e60 | 65 22 20 22 32 2e 33 31 22 20 22 53 75 70 65 72 69 6f 72 20 4c 69 73 70 20 49 6e 74 65 72 61 63 | e"."2.31"."Superior.Lisp.Interac |
| 0e80 | 74 69 6f 6e 20 4d 6f 64 65 20 66 6f 72 20 45 6d 61 63 73 22 20 27 28 28 65 6d 61 63 73 20 22 32 | tion.Mode.for.Emacs".'((emacs."2 |
| 0ea0 | 34 2e 33 22 29 20 28 6d 61 63 72 6f 73 74 65 70 20 22 30 2e 39 22 29 29 20 3a 63 6f 6d 6d 69 74 | 4.3").(macrostep."0.9")).:commit |
| 0ec0 | 20 22 61 37 31 65 31 33 33 61 61 37 64 33 63 31 33 32 62 62 33 61 30 30 63 65 64 61 65 65 65 33 | ."a71e133aa7d3c132bb3a00cedaeee3 |
| 0ee0 | 66 37 36 62 35 66 31 37 61 62 22 20 3a 6b 65 79 77 6f 72 64 73 20 27 28 22 6c 61 6e 67 75 61 67 | f76b5f17ab".:keywords.'("languag |
| 0f00 | 65 73 22 20 22 6c 69 73 70 22 20 22 73 6c 69 6d 65 22 29 20 3a 75 72 6c 20 22 68 74 74 70 73 3a | es"."lisp"."slime").:url."https: |
| 0f20 | 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 73 6c 69 6d 65 2f 73 6c 69 6d 65 22 29 0a 00 00 00 00 00 | //github.com/slime/slime")...... |
| 0f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 70 61 63 6b 61 67 65 73 2e 6c 69 73 70 00 00 00 00 00 00 00 00 | slime-2.31/packages.lisp........ |
| 1020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 1080 | 30 30 31 33 36 32 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 36 36 33 00 20 30 00 00 00 | 0013623.00000000000.013663..0... |
| 10a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 1120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 1140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1200 | 28 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 23 3a 73 | (swank-loader:define-package.#:s |
| 1220 | 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 0a 20 20 28 3a 75 73 65 20 23 3a 63 6c 29 0a 20 20 28 3a 6e | wank/backend...(:use.#:cl)...(:n |
| 1240 | 69 63 6b 6e 61 6d 65 73 20 23 3a 73 77 61 6e 6b 2d 62 61 63 6b 65 6e 64 29 0a 20 20 28 3a 65 78 | icknames.#:swank-backend)...(:ex |
| 1260 | 70 6f 72 74 20 23 3a 2a 64 65 62 75 67 2d 73 77 61 6e 6b 2d 62 61 63 6b 65 6e 64 2a 0a 20 20 20 | port.#:*debug-swank-backend*.... |
| 1280 | 20 20 20 20 20 20 20 20 23 3a 2a 6c 6f 67 2d 6f 75 74 70 75 74 2a 0a 20 20 20 20 20 20 20 20 20 | ........#:*log-output*.......... |
| 12a0 | 20 20 23 3a 73 6c 64 62 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a | ..#:sldb-condition............#: |
| 12c0 | 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a | compiler-condition............#: |
| 12e0 | 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a | original-condition............#: |
| 1300 | 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 73 6f 75 72 63 65 2d 63 6f 6e 74 | message............#:source-cont |
| 1320 | 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 | ext............#:condition...... |
| 1340 | 20 20 20 20 20 20 23 3a 73 65 76 65 72 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 77 69 | ......#:severity............#:wi |
| 1360 | 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 0a 20 20 20 20 20 20 20 20 20 20 20 | th-compilation-hooks............ |
| 1380 | 23 3a 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 6c 6f 63 | #:make-location............#:loc |
| 13a0 | 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 6c 6f 63 61 74 69 6f 6e 2d 70 0a 20 20 | ation............#:location-p... |
| 13c0 | 20 20 20 20 20 20 20 20 20 23 3a 6c 6f 63 61 74 69 6f 6e 2d 62 75 66 66 65 72 0a 20 20 20 20 20 | .........#:location-buffer...... |
| 13e0 | 20 20 20 20 20 20 23 3a 6c 6f 63 61 74 69 6f 6e 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 | ......#:location-position....... |
| 1400 | 20 20 20 20 20 23 3a 6c 6f 63 61 74 69 6f 6e 2d 68 69 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 | .....#:location-hints........... |
| 1420 | 20 23 3a 70 6f 73 69 74 69 6f 6e 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 70 6f 73 69 74 | .#:position-p............#:posit |
| 1440 | 69 6f 6e 2d 70 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 70 72 69 6e 74 2d 6f 75 74 70 75 | ion-pos............#:print-outpu |
| 1460 | 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 71 75 69 74 2d 6c 69 | t-to-string............#:quit-li |
| 1480 | 73 70 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 72 65 66 65 72 65 6e 63 65 73 0a 20 20 20 20 20 | sp............#:references...... |
| 14a0 | 20 20 20 20 20 20 23 3a 75 6e 62 6f 75 6e 64 2d 73 6c 6f 74 2d 66 69 6c 6c 65 72 0a 20 20 20 20 | ......#:unbound-slot-filler..... |
| 14c0 | 20 20 20 20 20 20 20 23 3a 64 65 63 6c 61 72 61 74 69 6f 6e 2d 61 72 67 6c 69 73 74 0a 20 20 20 | .......#:declaration-arglist.... |
| 14e0 | 20 20 20 20 20 20 20 20 23 3a 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 | ........#:type-specifier-arglist |
| 1500 | 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 77 69 74 68 2d 73 74 72 75 63 74 0a 20 20 20 20 20 20 | ............#:with-struct....... |
| 1520 | 20 20 20 20 20 23 3a 77 68 65 6e 2d 6c 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 64 65 66 | .....#:when-let............#:def |
| 1540 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 63 6f 6e 76 | implementation............#:conv |
| 1560 | 65 72 74 69 6e 67 2d 65 72 72 6f 72 73 2d 74 6f 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 0a | erting-errors-to-error-location. |
| 1580 | 20 20 20 20 20 20 20 20 20 20 20 23 3a 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e | ...........#:make-error-location |
| 15a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 64 65 69 6e 69 74 2d 6c 6f 67 2d 6f 75 74 70 75 74 0a | ............#:deinit-log-output. |
| 15c0 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 6e 74 65 72 72 75 70 74 20 6d 61 63 72 6f 20 66 6f | ...........;;.interrupt.macro.fo |
| 15e0 | 72 20 74 68 65 20 62 61 63 6b 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 70 65 6e 64 | r.the.backend............#:*pend |
| 1600 | 69 6e 67 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 2a 0a 20 20 20 20 20 20 20 20 20 20 | ing-slime-interrupts*........... |
| 1620 | 20 23 3a 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 20 20 | .#:check-slime-interrupts....... |
| 1640 | 20 20 20 20 20 23 3a 2a 69 6e 74 65 72 72 75 70 74 2d 71 75 65 75 65 64 2d 68 61 6e 64 6c 65 72 | .....#:*interrupt-queued-handler |
| 1660 | 2a 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 6e 73 70 65 63 74 6f 72 20 72 65 6c 61 74 65 | *............;;.inspector.relate |
| 1680 | 64 20 73 79 6d 62 6f 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 65 6d 61 63 73 2d 69 6e 73 | d.symbols............#:emacs-ins |
| 16a0 | 70 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 | pect............#:label-value-li |
| 16c0 | 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 | ne............#:label-value-line |
| 16e0 | 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 62 6f 6f 6c 65 61 6e 2d 74 6f 2d 66 65 61 74 75 72 | *............#:boolean-to-featur |
| 1700 | 65 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 77 69 74 68 2d 73 | e-expression............#:with-s |
| 1720 | 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 63 68 6f 6f 73 65 2d 73 79 6d 62 6f 6c | ymbol............#:choose-symbol |
| 1740 | 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 61 63 6b 61 67 65 20 68 65 6c 70 65 72 20 66 6f | ............;;.package.helper.fo |
| 1760 | 72 20 62 61 63 6b 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 69 6d 70 6f 72 74 2d 74 6f | r.backend............#:import-to |
| 1780 | 2d 73 77 61 6e 6b 2d 6d 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 69 6d 70 6f 72 74 2d 73 | -swank-mop............#:import-s |
| 17a0 | 77 61 6e 6b 2d 6d 6f 70 2d 73 79 6d 62 6f 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 | wank-mop-symbols............;;.. |
| 17c0 | 20 20 20 20 20 20 20 20 20 20 23 3a 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 | ..........#:default-directory... |
| 17e0 | 20 20 20 20 20 20 20 20 20 23 3a 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 | .........#:set-default-directory |
| 1800 | 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 | ............#:frame-source-locat |
| 1820 | 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 72 65 73 74 61 72 74 2d 66 72 61 6d 65 0a 20 | ion............#:restart-frame.. |
| 1840 | 20 20 20 20 20 20 20 20 20 20 23 3a 67 64 62 2d 69 6e 69 74 69 61 6c 2d 63 6f 6d 6d 61 6e 64 73 | ..........#:gdb-initial-commands |
| 1860 | 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 73 6c 64 62 2d 62 72 65 61 6b 2d 6f 6e 2d 72 65 74 75 | ............#:sldb-break-on-retu |
| 1880 | 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 62 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 61 | rn............#:buffer-first-cha |
| 18a0 | 6e 67 65 0a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 | nge.............#:profiled-funct |
| 18c0 | 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c 0a | ions............#:unprofile-all. |
| 18e0 | 20 20 20 20 20 20 20 20 20 20 20 23 3a 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 0a 20 20 20 20 | ...........#:profile-report..... |
| 1900 | 20 20 20 20 20 20 20 23 3a 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 0a 20 20 20 20 20 20 20 20 20 | .......#:profile-reset.......... |
| 1920 | 20 20 23 3a 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 0a 0a 20 20 20 20 20 20 20 20 20 20 20 | ..#:profile-package............. |
| 1940 | 23 3a 77 69 74 68 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 0a 20 20 20 | #:with-collected-macro-forms.... |
| 1960 | 20 20 20 20 20 20 20 20 23 3a 61 75 74 6f 2d 66 6c 75 73 68 2d 6c 6f 6f 70 0a 20 20 20 20 20 20 | ........#:auto-flush-loop....... |
| 1980 | 20 20 20 20 20 23 3a 2a 61 75 74 6f 2d 66 6c 75 73 68 2d 69 6e 74 65 72 76 61 6c 2a 0a 20 20 20 | .....#:*auto-flush-interval*.... |
| 19a0 | 20 20 20 20 20 20 20 20 23 3a 77 69 74 68 2d 6c 6f 63 6b 29 29 0a 0a 28 73 77 61 6e 6b 2d 6c 6f | ........#:with-lock))..(swank-lo |
| 19c0 | 61 64 65 72 3a 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 23 3a 73 77 61 6e 6b 2f 72 70 63 0a | ader:define-package.#:swank/rpc. |
| 19e0 | 20 20 28 3a 75 73 65 20 23 3a 63 6c 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 23 3a 72 65 61 64 2d | ..(:use.#:cl)...(:export.#:read- |
| 1a00 | 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 72 65 61 64 2d 70 61 63 6b 65 74 | message............#:read-packet |
| 1a20 | 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 73 77 61 6e 6b 2d 72 65 61 64 65 72 2d 65 72 72 6f 72 | ............#:swank-reader-error |
| 1a40 | 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 73 77 61 6e 6b 2d 72 65 61 64 65 72 2d 65 72 72 6f 72 | ............#:swank-reader-error |
| 1a60 | 2e 70 61 63 6b 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 73 77 61 6e 6b 2d 72 65 61 64 65 | .packet............#:swank-reade |
| 1a80 | 72 2d 65 72 72 6f 72 2e 63 61 75 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 77 72 69 74 65 | r-error.cause............#:write |
| 1aa0 | 2d 6d 65 73 73 61 67 65 29 29 0a 0a 28 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 64 65 66 69 6e 65 | -message))..(swank-loader:define |
| 1ac0 | 2d 70 61 63 6b 61 67 65 20 23 3a 73 77 61 6e 6b 2f 6d 61 74 63 68 0a 20 20 28 3a 75 73 65 20 23 | -package.#:swank/match...(:use.# |
| 1ae0 | 3a 63 6c 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 23 3a 6d 61 74 63 68 29 29 0a 0a 3b 3b 20 46 49 | :cl)...(:export.#:match))..;;.FI |
| 1b00 | 58 4d 45 3a 20 72 65 6e 61 6d 65 20 74 6f 20 73 61 77 6e 6b 2f 6d 6f 70 0a 28 73 77 61 6e 6b 2d | XME:.rename.to.sawnk/mop.(swank- |
| 1b20 | 6c 6f 61 64 65 72 3a 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 23 3a 73 77 61 6e 6b 2d 6d 6f | loader:define-package.#:swank-mo |
| 1b40 | 70 0a 20 20 28 3a 75 73 65 29 0a 20 20 28 3a 65 78 70 6f 72 74 0a 20 20 20 3b 3b 20 63 6c 61 73 | p...(:use)...(:export....;;.clas |
| 1b60 | 73 65 73 0a 20 20 20 23 3a 73 74 61 6e 64 61 72 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 | ses....#:standard-generic-functi |
| 1b80 | 6f 6e 0a 20 20 20 23 3a 73 74 61 6e 64 61 72 64 2d 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e | on....#:standard-slot-definition |
| 1ba0 | 0a 20 20 20 23 3a 73 74 61 6e 64 61 72 64 2d 6d 65 74 68 6f 64 0a 20 20 20 23 3a 73 74 61 6e 64 | ....#:standard-method....#:stand |
| 1bc0 | 61 72 64 2d 63 6c 61 73 73 0a 20 20 20 23 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 0a 20 | ard-class....#:eql-specializer.. |
| 1be0 | 20 20 23 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 2d 6f 62 6a 65 63 74 0a 20 20 20 3b 3b | ..#:eql-specializer-object....;; |
| 1c00 | 20 73 74 61 6e 64 61 72 64 2d 63 6c 61 73 73 20 72 65 61 64 65 72 73 0a 20 20 20 23 3a 63 6c 61 | .standard-class.readers....#:cla |
| 1c20 | 73 73 2d 64 65 66 61 75 6c 74 2d 69 6e 69 74 61 72 67 73 0a 20 20 20 23 3a 63 6c 61 73 73 2d 64 | ss-default-initargs....#:class-d |
| 1c40 | 69 72 65 63 74 2d 64 65 66 61 75 6c 74 2d 69 6e 69 74 61 72 67 73 0a 20 20 20 23 3a 63 6c 61 73 | irect-default-initargs....#:clas |
| 1c60 | 73 2d 64 69 72 65 63 74 2d 73 6c 6f 74 73 0a 20 20 20 23 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 | s-direct-slots....#:class-direct |
| 1c80 | 2d 73 75 62 63 6c 61 73 73 65 73 0a 20 20 20 23 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 75 | -subclasses....#:class-direct-su |
| 1ca0 | 70 65 72 63 6c 61 73 73 65 73 0a 20 20 20 23 3a 63 6c 61 73 73 2d 66 69 6e 61 6c 69 7a 65 64 2d | perclasses....#:class-finalized- |
| 1cc0 | 70 0a 20 20 20 23 3a 63 6c 61 73 73 2d 6e 61 6d 65 0a 20 20 20 23 3a 63 6c 61 73 73 2d 70 72 65 | p....#:class-name....#:class-pre |
| 1ce0 | 63 65 64 65 6e 63 65 2d 6c 69 73 74 0a 20 20 20 23 3a 63 6c 61 73 73 2d 70 72 6f 74 6f 74 79 70 | cedence-list....#:class-prototyp |
| 1d00 | 65 0a 20 20 20 23 3a 63 6c 61 73 73 2d 73 6c 6f 74 73 0a 20 20 20 23 3a 73 70 65 63 69 61 6c 69 | e....#:class-slots....#:speciali |
| 1d20 | 7a 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 0a 20 20 20 3b 3b 20 67 65 6e 65 72 69 63 | zer-direct-methods....;;.generic |
| 1d40 | 20 66 75 6e 63 74 69 6f 6e 20 72 65 61 64 65 72 73 0a 20 20 20 23 3a 67 65 6e 65 72 69 63 2d 66 | .function.readers....#:generic-f |
| 1d60 | 75 6e 63 74 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 2d 70 72 65 63 65 64 65 6e 63 65 2d 6f 72 64 65 | unction-argument-precedence-orde |
| 1d80 | 72 0a 20 20 20 23 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 64 65 63 6c 61 72 61 74 | r....#:generic-function-declarat |
| 1da0 | 69 6f 6e 73 0a 20 20 20 23 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 | ions....#:generic-function-lambd |
| 1dc0 | 61 2d 6c 69 73 74 0a 20 20 20 23 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 | a-list....#:generic-function-met |
| 1de0 | 68 6f 64 73 0a 20 20 20 23 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f | hods....#:generic-function-metho |
| 1e00 | 64 2d 63 6c 61 73 73 0a 20 20 20 23 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 | d-class....#:generic-function-me |
| 1e20 | 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 0a 20 20 20 23 3a 67 65 6e 65 72 69 63 2d 66 75 | thod-combination....#:generic-fu |
| 1e40 | 6e 63 74 69 6f 6e 2d 6e 61 6d 65 0a 20 20 20 3b 3b 20 6d 65 74 68 6f 64 20 72 65 61 64 65 72 73 | nction-name....;;.method.readers |
| 1e60 | 0a 20 20 20 23 3a 6d 65 74 68 6f 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 | ....#:method-generic-function... |
| 1e80 | 20 23 3a 6d 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 23 3a 6d 65 74 68 6f 64 2d 6c | .#:method-function....#:method-l |
| 1ea0 | 61 6d 62 64 61 2d 6c 69 73 74 0a 20 20 20 23 3a 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 6c 69 7a | ambda-list....#:method-specializ |
| 1ec0 | 65 72 73 0a 20 20 20 23 3a 6d 65 74 68 6f 64 2d 71 75 61 6c 69 66 69 65 72 73 0a 20 20 20 3b 3b | ers....#:method-qualifiers....;; |
| 1ee0 | 20 73 6c 6f 74 20 72 65 61 64 65 72 73 0a 20 20 20 23 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 | .slot.readers....#:slot-definiti |
| 1f00 | 6f 6e 2d 61 6c 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 23 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 | on-allocation....#:slot-definiti |
| 1f20 | 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 20 20 20 23 3a 73 6c 6f 74 2d 64 65 66 69 6e | on-documentation....#:slot-defin |
| 1f40 | 69 74 69 6f 6e 2d 69 6e 69 74 61 72 67 73 0a 20 20 20 23 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 | ition-initargs....#:slot-definit |
| 1f60 | 69 6f 6e 2d 69 6e 69 74 66 6f 72 6d 0a 20 20 20 23 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f | ion-initform....#:slot-definitio |
| 1f80 | 6e 2d 69 6e 69 74 66 75 6e 63 74 69 6f 6e 0a 20 20 20 23 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 | n-initfunction....#:slot-definit |
| 1fa0 | 69 6f 6e 2d 6e 61 6d 65 0a 20 20 20 23 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 74 79 | ion-name....#:slot-definition-ty |
| 1fc0 | 70 65 0a 20 20 20 23 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 72 65 61 64 65 72 73 0a | pe....#:slot-definition-readers. |
| 1fe0 | 20 20 20 23 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 77 72 69 74 65 72 73 0a 20 20 20 | ...#:slot-definition-writers.... |
| 2000 | 23 3a 73 6c 6f 74 2d 62 6f 75 6e 64 70 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 23 3a 73 | #:slot-boundp-using-class....#:s |
| 2020 | 6c 6f 74 2d 76 61 6c 75 65 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 23 3a 73 6c 6f 74 2d | lot-value-using-class....#:slot- |
| 2040 | 6d 61 6b 75 6e 62 6f 75 6e 64 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 3b 3b 20 67 65 6e | makunbound-using-class....;;.gen |
| 2060 | 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 70 72 6f 74 6f 63 6f 6c 0a 20 20 20 23 3a 63 6f 6d 70 | eric.function.protocol....#:comp |
| 2080 | 75 74 65 2d 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 75 73 69 6e 67 2d 63 6c 61 | ute-applicable-methods-using-cla |
| 20a0 | 73 73 65 73 0a 20 20 20 23 3a 66 69 6e 61 6c 69 7a 65 2d 69 6e 68 65 72 69 74 61 6e 63 65 29 29 | sses....#:finalize-inheritance)) |
| 20c0 | 0a 0a 28 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 23 | ..(swank-loader:define-package.# |
| 20e0 | 3a 73 77 61 6e 6b 0a 20 20 28 3a 75 73 65 20 23 3a 63 6c 0a 20 20 20 20 20 20 20 20 23 3a 73 77 | :swank...(:use.#:cl.........#:sw |
| 2100 | 61 6e 6b 2f 62 61 63 6b 65 6e 64 0a 20 20 20 20 20 20 20 20 23 3a 73 77 61 6e 6b 2f 6d 61 74 63 | ank/backend.........#:swank/matc |
| 2120 | 68 0a 20 20 20 20 20 20 20 20 23 3a 73 77 61 6e 6b 2f 72 70 63 29 0a 20 20 28 3a 65 78 70 6f 72 | h.........#:swank/rpc)...(:expor |
| 2140 | 74 20 23 3a 73 74 61 72 74 75 70 2d 6d 75 6c 74 69 70 72 6f 63 65 73 73 69 6e 67 0a 20 20 20 20 | t.#:startup-multiprocessing..... |
| 2160 | 20 20 20 20 20 20 20 23 3a 73 74 61 72 74 2d 73 65 72 76 65 72 0a 20 20 20 20 20 20 20 20 20 20 | .......#:start-server........... |
| 2180 | 20 23 3a 63 72 65 61 74 65 2d 73 65 72 76 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 73 74 | .#:create-server............#:st |
| 21a0 | 6f 70 2d 73 65 72 76 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 72 65 73 74 61 72 74 2d 73 | op-server............#:restart-s |
| 21c0 | 65 72 76 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 65 64 2d 69 6e 2d 65 6d 61 63 73 0a 20 | erver............#:ed-in-emacs.. |
| 21e0 | 20 20 20 20 20 20 20 20 20 20 23 3a 69 6e 73 70 65 63 74 2d 69 6e 2d 65 6d 61 63 73 0a 20 20 20 | ..........#:inspect-in-emacs.... |
| 2200 | 20 20 20 20 20 20 20 20 23 3a 70 72 69 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 6c 6f 73 73 | ........#:print-indentation-loss |
| 2220 | 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 69 6e 76 6f 6b 65 2d 73 6c 69 6d 65 2d 64 65 | age............#:invoke-slime-de |
| 2240 | 62 75 67 67 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 73 77 61 6e 6b 2d 64 65 62 75 67 67 | bugger............#:swank-debugg |
| 2260 | 65 72 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 65 6d 61 63 73 2d 69 6e 73 70 65 | er-hook............#:emacs-inspe |
| 2280 | 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 23 3a 69 6e 73 70 65 63 74 2d 73 6c 6f 74 2d 66 | ct............;;#:inspect-slot-f |
| 22a0 | 6f 72 2d 65 6d 61 63 73 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 73 65 20 61 72 65 | or-emacs............;;.These.are |
| 22c0 | 20 75 73 65 72 2d 63 6f 6e 66 69 67 75 72 61 62 6c 65 20 76 61 72 69 61 62 6c 65 73 3a 0a 20 20 | .user-configurable.variables:... |
| 22e0 | 20 20 20 20 20 20 20 20 20 23 3a 2a 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 2a | .........#:*communication-style* |
| 2300 | 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 64 6f 6e 74 2d 63 6c 6f 73 65 2a 0a 20 20 20 20 20 | ............#:*dont-close*...... |
| 2320 | 20 20 20 20 20 20 23 3a 2a 66 61 73 6c 2d 70 61 74 68 6e 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 2a | ......#:*fasl-pathname-function* |
| 2340 | 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 6c 6f 67 2d 65 76 65 6e 74 73 2a 0a 20 20 20 20 20 | ............#:*log-events*...... |
| 2360 | 20 20 20 20 20 20 23 3a 2a 63 6f 6e 66 69 67 75 72 65 2d 65 6d 61 63 73 2d 69 6e 64 65 6e 74 61 | ......#:*configure-emacs-indenta |
| 2380 | 74 69 6f 6e 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 72 65 61 64 74 61 62 6c 65 2d 61 6c | tion*............#:*readtable-al |
| 23a0 | 69 73 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 67 6c 6f 62 61 6c 6c 79 2d 72 65 64 69 | ist*............#:*globally-redi |
| 23c0 | 72 65 63 74 2d 69 6f 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 67 6c 6f 62 61 6c 2d 64 65 | rect-io*............#:*global-de |
| 23e0 | 62 75 67 67 65 72 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 73 6c 64 62 2d 71 75 69 74 2d | bugger*............#:*sldb-quit- |
| 2400 | 72 65 73 74 61 72 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 62 61 63 6b 74 72 61 63 65 | restart*............#:*backtrace |
| 2420 | 2d 70 72 69 6e 74 65 72 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a | -printer-bindings*............#: |
| 2440 | 2a 64 65 66 61 75 6c 74 2d 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 2d 62 69 6e 64 69 6e 67 73 2a | *default-worker-thread-bindings* |
| 2460 | 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 70 72 69 6e 74 | ............#:*macroexpand-print |
| 2480 | 65 72 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 73 77 61 6e 6b | er-bindings*............#:*swank |
| 24a0 | 2d 70 70 72 69 6e 74 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a | -pprint-bindings*............#:* |
| 24c0 | 72 65 63 6f 72 64 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 | record-repl-results*............ |
| 24e0 | 23 3a 2a 69 6e 73 70 65 63 74 6f 72 2d 76 65 72 62 6f 73 65 2a 0a 20 20 20 20 20 20 20 20 20 20 | #:*inspector-verbose*........... |
| 2500 | 20 3b 3b 20 54 68 69 73 20 69 73 20 53 45 54 46 61 62 6c 65 2e 0a 20 20 20 20 20 20 20 20 20 20 | .;;.This.is.SETFable............ |
| 2520 | 20 23 3a 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 | .#:debug-on-swank-error......... |
| 2540 | 20 20 20 3b 3b 20 54 68 65 73 65 20 61 72 65 20 72 65 2d 65 78 70 6f 72 74 65 64 20 64 69 72 65 | ...;;.These.are.re-exported.dire |
| 2560 | 63 74 6c 79 20 66 72 6f 6d 20 74 68 65 20 62 61 63 6b 65 6e 64 3a 0a 20 20 20 20 20 20 20 20 20 | ctly.from.the.backend:.......... |
| 2580 | 20 20 23 3a 62 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 | ..#:buffer-first-change......... |
| 25a0 | 20 20 20 23 3a 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 | ...#:frame-source-location...... |
| 25c0 | 20 20 20 20 20 20 23 3a 67 64 62 2d 69 6e 69 74 69 61 6c 2d 63 6f 6d 6d 61 6e 64 73 0a 20 20 20 | ......#:gdb-initial-commands.... |
| 25e0 | 20 20 20 20 20 20 20 20 23 3a 72 65 73 74 61 72 74 2d 66 72 61 6d 65 0a 20 20 20 20 20 20 20 20 | ........#:restart-frame......... |
| 2600 | 20 20 20 23 3a 73 6c 64 62 2d 73 74 65 70 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 73 6c 64 62 | ...#:sldb-step............#:sldb |
| 2620 | 2d 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 73 6c 64 62 2d 62 72 65 61 6b 2d 6f | -break............#:sldb-break-o |
| 2640 | 6e 2d 72 65 74 75 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 70 72 6f 66 69 6c 65 64 2d 66 | n-return............#:profiled-f |
| 2660 | 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 70 72 6f 66 69 6c 65 2d 72 65 | unctions............#:profile-re |
| 2680 | 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 0a | port............#:profile-reset. |
| 26a0 | 20 20 20 20 20 20 20 20 20 20 20 23 3a 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c 0a 20 20 20 20 20 | ...........#:unprofile-all...... |
| 26c0 | 20 20 20 20 20 20 23 3a 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 | ......#:profile-package......... |
| 26e0 | 20 20 20 23 3a 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 | ...#:default-directory.......... |
| 2700 | 20 20 23 3a 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 | ..#:set-default-directory....... |
| 2720 | 20 20 20 20 20 23 3a 71 75 69 74 2d 6c 69 73 70 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 65 76 | .....#:quit-lisp............#:ev |
| 2740 | 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 65 76 61 6c 2d 69 | al-for-emacs............#:eval-i |
| 2760 | 6e 2d 65 6d 61 63 73 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 65 64 2d 72 70 63 0a 20 20 20 20 | n-emacs............#:ed-rpc..... |
| 2780 | 20 20 20 20 20 20 20 23 3a 65 64 2d 72 70 63 2d 6e 6f 2d 77 61 69 74 0a 20 20 20 20 20 20 20 20 | .......#:ed-rpc-no-wait......... |
| 27a0 | 20 20 20 23 3a 79 2d 6f 72 2d 6e 2d 70 2d 69 6e 2d 65 6d 61 63 73 0a 20 20 20 20 20 20 20 20 20 | ...#:y-or-n-p-in-emacs.......... |
| 27c0 | 20 20 23 3a 2a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 72 69 67 68 74 2d 74 72 69 6d | ..#:*find-definitions-right-trim |
| 27e0 | 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 | *............#:*find-definitions |
| 2800 | 2d 6c 65 66 74 2d 74 72 69 6d 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 61 66 74 65 72 2d | -left-trim*............#:*after- |
| 2820 | 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 68 6f 6f 6b 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a | toggle-trace-hook*............#: |
| 2840 | 75 6e 72 65 61 64 61 62 6c 65 2d 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 75 | unreadable-result............#:u |
| 2860 | 6e 72 65 61 64 61 62 6c 65 2d 72 65 73 75 6c 74 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a | nreadable-result-p............#: |
| 2880 | 75 6e 72 65 61 64 61 62 6c 65 2d 72 65 73 75 6c 74 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 | unreadable-result-string........ |
| 28a0 | 20 20 20 20 23 3a 70 61 72 73 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a | ....#:parse-string............#: |
| 28c0 | 66 72 6f 6d 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 74 6f 2d 73 74 72 69 | from-string............#:to-stri |
| 28e0 | 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d | ng............#:*swank-debugger- |
| 2900 | 63 6f 6e 64 69 74 69 6f 6e 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 72 75 6e 2d 68 6f 6f 6b | condition*............#:run-hook |
| 2920 | 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 0a 20 20 20 20 20 20 20 | -with-args-until-success........ |
| 2940 | 20 20 20 20 23 3a 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 66 75 6e 63 74 69 6f 6e 2d 66 6f 72 2d 74 | ....#:make-output-function-for-t |
| 2960 | 61 72 67 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 73 | arget............#:make-output-s |
| 2980 | 74 72 65 61 6d 2d 66 6f 72 2d 74 61 72 67 65 74 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 | tream-for-target)).............. |
| 29a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 29c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 29e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 78 72 65 66 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/xref.lisp............ |
| 2a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 2a80 | 30 33 36 36 37 34 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 30 36 36 00 20 30 00 00 00 | 0366742.00000000000.013066..0... |
| 2aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 2b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 2b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2c00 | 3b 3b 3b 20 2d 2a 2d 20 4d 6f 64 65 3a 20 4c 49 53 50 3b 20 50 61 63 6b 61 67 65 3a 20 58 52 45 | ;;;.-*-.Mode:.LISP;.Package:.XRE |
| 2c20 | 46 3b 20 53 79 6e 74 61 78 3a 20 43 6f 6d 6d 6f 6e 2d 6c 69 73 70 3b 20 20 2d 2a 2d 20 0a 3b 3b | F;.Syntax:.Common-lisp;..-*-..;; |
| 2c40 | 3b 20 4d 6f 6e 20 4a 61 6e 20 32 31 20 31 36 3a 32 31 3a 32 30 20 31 39 39 31 20 62 79 20 4d 61 | ;.Mon.Jan.21.16:21:20.1991.by.Ma |
| 2c60 | 72 6b 20 4b 61 6e 74 72 6f 77 69 74 7a 20 3c 6d 6b 61 6e 74 40 47 4c 49 4e 44 41 2e 4f 5a 2e 43 | rk.Kantrowitz.<mkant@GLINDA.OZ.C |
| 2c80 | 53 2e 43 4d 55 2e 45 44 55 3e 0a 3b 3b 3b 20 78 72 65 66 2e 6c 69 73 70 0a 0a 3b 3b 3b 20 2a 2a | S.CMU.EDU>.;;;.xref.lisp..;;;.** |
| 2ca0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2cc0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b | ******************************.; |
| 2ce0 | 3b 3b 20 4c 69 73 74 20 43 61 6c 6c 65 72 73 3a 20 41 20 53 74 61 74 69 63 20 41 6e 61 6c 79 73 | ;;.List.Callers:.A.Static.Analys |
| 2d00 | 69 73 20 43 72 6f 73 73 20 52 65 66 65 72 65 6e 63 69 6e 67 20 54 6f 6f 6c 20 66 6f 72 20 4c 69 | is.Cross.Referencing.Tool.for.Li |
| 2d20 | 73 70 20 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | sp..;;;.************************ |
| 2d40 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2d60 | 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 0a 3b 3b 3b 20 54 68 65 20 4c 69 73 74 20 43 61 6c 6c 65 | ********.;;;..;;;.The.List.Calle |
| 2d80 | 72 73 20 73 79 73 74 65 6d 20 69 73 20 61 20 70 6f 72 74 61 62 6c 65 20 43 6f 6d 6d 6f 6e 20 4c | rs.system.is.a.portable.Common.L |
| 2da0 | 69 73 70 20 63 72 6f 73 73 20 72 65 66 65 72 65 6e 63 69 6e 67 0a 3b 3b 3b 20 75 74 69 6c 69 74 | isp.cross.referencing.;;;.utilit |
| 2dc0 | 79 2e 20 49 74 20 67 72 6f 76 65 6c 73 20 6f 76 65 72 20 61 20 73 65 74 20 6f 66 20 66 69 6c 65 | y..It.grovels.over.a.set.of.file |
| 2de0 | 73 20 61 6e 64 20 63 6f 6d 70 69 6c 65 73 20 61 20 64 61 74 61 62 61 73 65 20 6f 66 20 74 68 65 | s.and.compiles.a.database.of.the |
| 2e00 | 0a 3b 3b 3b 20 6c 6f 63 61 74 69 6f 6e 73 20 6f 66 20 61 6c 6c 20 72 65 66 65 72 65 6e 63 65 73 | .;;;.locations.of.all.references |
| 2e20 | 20 66 6f 72 20 65 61 63 68 20 73 79 6d 62 6f 6c 20 75 73 65 64 20 69 6e 20 74 68 65 20 66 69 6c | .for.each.symbol.used.in.the.fil |
| 2e40 | 65 73 2e 0a 3b 3b 3b 20 4c 69 73 74 20 43 61 6c 6c 65 72 73 20 69 73 20 73 69 6d 69 6c 61 72 20 | es..;;;.List.Callers.is.similar. |
| 2e60 | 74 6f 20 74 68 65 20 53 79 6d 62 6f 6c 69 63 73 20 57 68 6f 2d 43 61 6c 6c 73 20 61 6e 64 20 74 | to.the.Symbolics.Who-Calls.and.t |
| 2e80 | 68 65 0a 3b 3b 3b 20 58 65 72 6f 78 20 4d 61 73 74 65 72 73 63 6f 70 65 20 66 61 63 69 6c 69 74 | he.;;;.Xerox.Masterscope.facilit |
| 2ea0 | 69 65 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 57 68 65 6e 20 79 6f 75 20 63 68 61 6e 67 65 20 61 20 66 | ies..;;;.;;;.When.you.change.a.f |
| 2ec0 | 75 6e 63 74 69 6f 6e 20 6f 72 20 76 61 72 69 61 62 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 2c 20 | unction.or.variable.definition,. |
| 2ee0 | 69 74 20 63 61 6e 20 62 65 20 75 73 65 66 75 6c 0a 3b 3b 3b 20 74 6f 20 6b 6e 6f 77 20 69 74 73 | it.can.be.useful.;;;.to.know.its |
| 2f00 | 20 63 61 6c 6c 65 72 73 2c 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 75 70 64 61 74 65 20 65 61 63 | .callers,.in.order.to.update.eac |
| 2f20 | 68 20 6f 66 20 74 68 65 6d 20 74 6f 20 74 68 65 20 6e 65 77 0a 3b 3b 3b 20 64 65 66 69 6e 69 74 | h.of.them.to.the.new.;;;.definit |
| 2f40 | 69 6f 6e 2e 20 53 69 6d 69 6c 61 72 6c 79 2c 20 68 61 76 69 6e 67 20 61 20 67 72 61 70 68 69 63 | ion..Similarly,.having.a.graphic |
| 2f60 | 20 64 69 73 70 6c 61 79 20 6f 66 20 74 68 65 20 73 74 72 75 63 74 75 72 65 20 0a 3b 3b 3b 20 28 | .display.of.the.structure..;;;.( |
| 2f80 | 65 2e 67 2e 2c 20 63 61 6c 6c 20 67 72 61 70 68 29 20 6f 66 20 61 20 70 72 6f 67 72 61 6d 20 63 | e.g.,.call.graph).of.a.program.c |
| 2fa0 | 61 6e 20 68 65 6c 70 20 6d 61 6b 65 20 75 6e 64 6f 63 75 6d 65 6e 74 65 64 20 63 6f 64 65 20 6d | an.help.make.undocumented.code.m |
| 2fc0 | 6f 72 65 0a 3b 3b 3b 20 75 6e 64 65 72 73 74 61 6e 64 61 62 6c 65 2e 20 54 68 69 73 20 73 74 61 | ore.;;;.understandable..This.sta |
| 2fe0 | 74 69 63 20 63 6f 64 65 20 61 6e 61 6c 79 7a 65 72 20 66 61 63 69 6c 69 74 61 74 65 73 20 62 6f | tic.code.analyzer.facilitates.bo |
| 3000 | 74 68 20 63 61 70 61 62 69 6c 69 74 69 65 73 2e 0a 3b 3b 3b 20 54 68 65 20 64 61 74 61 62 61 73 | th.capabilities..;;;.The.databas |
| 3020 | 65 20 63 6f 6d 70 69 6c 65 64 20 62 79 20 78 72 65 66 20 69 73 20 73 75 69 74 61 62 6c 65 20 66 | e.compiled.by.xref.is.suitable.f |
| 3040 | 6f 72 20 76 69 65 77 69 6e 67 20 62 79 20 61 20 67 72 61 70 68 69 63 61 6c 20 0a 3b 3b 3b 20 62 | or.viewing.by.a.graphical..;;;.b |
| 3060 | 72 6f 77 73 65 72 2e 20 28 4e 6f 74 65 3a 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 67 72 61 | rowser..(Note:.the.reference.gra |
| 3080 | 70 68 20 69 73 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 61 20 44 41 47 2e 20 53 69 6e | ph.is.not.necessarily.a.DAG..Sin |
| 30a0 | 63 65 20 6d 61 6e 79 0a 3b 3b 3b 20 67 72 61 70 68 69 63 61 6c 20 62 72 6f 77 73 65 72 73 20 61 | ce.many.;;;.graphical.browsers.a |
| 30c0 | 73 73 75 6d 65 20 61 20 44 41 47 2c 20 74 68 69 73 20 77 69 6c 6c 20 6c 65 61 64 20 74 6f 20 69 | ssume.a.DAG,.this.will.lead.to.i |
| 30e0 | 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 73 2e 0a 3b 3b 3b 20 53 6f 6d 65 20 63 6f 64 65 20 77 68 69 | nfinite.loops..;;;.Some.code.whi |
| 3100 | 63 68 20 69 73 20 75 73 65 66 75 6c 20 69 6e 20 77 6f 72 6b 69 6e 67 20 61 72 6f 75 6e 64 20 74 | ch.is.useful.in.working.around.t |
| 3120 | 68 69 73 20 70 72 6f 62 6c 65 6d 20 69 73 20 69 6e 63 6c 75 64 65 64 2c 0a 3b 3b 3b 20 61 73 20 | his.problem.is.included,.;;;.as. |
| 3140 | 77 65 6c 6c 20 61 73 20 61 20 73 61 6d 70 6c 65 20 74 65 78 74 2d 69 6e 64 65 6e 74 69 6e 67 20 | well.as.a.sample.text-indenting. |
| 3160 | 6f 75 74 6c 69 6e 65 72 20 61 6e 64 20 61 6e 20 69 6e 74 65 72 66 61 63 65 20 74 6f 20 42 61 74 | outliner.and.an.interface.to.Bat |
| 3180 | 65 73 27 0a 3b 3b 3b 20 50 53 47 72 61 70 68 20 50 6f 73 74 73 63 72 69 70 74 20 47 72 61 70 68 | es'.;;;.PSGraph.Postscript.Graph |
| 31a0 | 69 6e 67 20 66 61 63 69 6c 69 74 79 2e 29 20 0a 3b 3b 3b 0a 3b 3b 3b 20 57 72 69 74 74 65 6e 20 | ing.facility.)..;;;.;;;.Written. |
| 31c0 | 62 79 20 4d 61 72 6b 20 4b 61 6e 74 72 6f 77 69 74 7a 2c 20 4a 75 6c 79 20 31 39 39 30 2e 0a 3b | by.Mark.Kantrowitz,.July.1990..; |
| 31e0 | 3b 3b 0a 3b 3b 3b 20 41 64 64 72 65 73 73 3a 20 53 63 68 6f 6f 6c 20 6f 66 20 43 6f 6d 70 75 74 | ;;.;;;.Address:.School.of.Comput |
| 3200 | 65 72 20 53 63 69 65 6e 63 65 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 43 61 72 6e 65 67 69 65 | er.Science.;;;..........Carnegie |
| 3220 | 20 4d 65 6c 6c 6f 6e 20 55 6e 69 76 65 72 73 69 74 79 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 | .Mellon.University.;;;.......... |
| 3240 | 50 69 74 74 73 62 75 72 67 68 2c 20 50 41 20 31 35 32 31 33 0a 3b 3b 3b 0a 3b 3b 3b 20 43 6f 70 | Pittsburgh,.PA.15213.;;;.;;;.Cop |
| 3260 | 79 72 69 67 68 74 20 28 63 29 20 31 39 39 30 2e 20 41 6c 6c 20 72 69 67 68 74 73 20 72 65 73 65 | yright.(c).1990..All.rights.rese |
| 3280 | 72 76 65 64 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 53 65 65 20 67 65 6e 65 72 61 6c 20 6c 69 63 65 6e 73 | rved..;;;.;;;.See.general.licens |
| 32a0 | 65 20 62 65 6c 6f 77 2e 0a 3b 3b 3b 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | e.below..;;;...;;;.************* |
| 32c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 32e0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 47 65 6e 65 72 61 6c 20 | *******************.;;;.General. |
| 3300 | 4c 69 63 65 6e 73 65 20 41 67 72 65 65 6d 65 6e 74 20 61 6e 64 20 4c 61 63 6b 20 6f 66 20 57 61 | License.Agreement.and.Lack.of.Wa |
| 3320 | 72 72 61 6e 74 79 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a | rranty.*****************.;;;.*** |
| 3340 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 3360 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b | *****************************.;; |
| 3380 | 3b 0a 3b 3b 3b 20 54 68 69 73 20 73 6f 66 74 77 61 72 65 20 69 73 20 64 69 73 74 72 69 62 75 74 | ;.;;;.This.software.is.distribut |
| 33a0 | 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 | ed.in.the.hope.that.it.will.be.u |
| 33c0 | 73 65 66 75 6c 20 28 62 6f 74 68 0a 3b 3b 3b 20 69 6e 20 61 6e 64 20 6f 66 20 69 74 73 65 6c 66 | seful.(both.;;;.in.and.of.itself |
| 33e0 | 20 61 6e 64 20 61 73 20 61 6e 20 65 78 61 6d 70 6c 65 20 6f 66 20 6c 69 73 70 20 70 72 6f 67 72 | .and.as.an.example.of.lisp.progr |
| 3400 | 61 6d 6d 69 6e 67 29 2c 20 62 75 74 20 57 49 54 48 4f 55 54 0a 3b 3b 3b 20 41 4e 59 20 57 41 52 | amming),.but.WITHOUT.;;;.ANY.WAR |
| 3420 | 52 41 4e 54 59 2e 20 54 68 65 20 61 75 74 68 6f 72 28 73 29 20 64 6f 20 6e 6f 74 20 61 63 63 65 | RANTY..The.author(s).do.not.acce |
| 3440 | 70 74 20 72 65 73 70 6f 6e 73 69 62 69 6c 69 74 79 20 74 6f 20 61 6e 79 6f 6e 65 20 66 6f 72 0a | pt.responsibility.to.anyone.for. |
| 3460 | 3b 3b 3b 20 74 68 65 20 63 6f 6e 73 65 71 75 65 6e 63 65 73 20 6f 66 20 75 73 69 6e 67 20 69 74 | ;;;.the.consequences.of.using.it |
| 3480 | 20 6f 72 20 66 6f 72 20 77 68 65 74 68 65 72 20 69 74 20 73 65 72 76 65 73 20 61 6e 79 20 70 61 | .or.for.whether.it.serves.any.pa |
| 34a0 | 72 74 69 63 75 6c 61 72 0a 3b 3b 3b 20 70 75 72 70 6f 73 65 20 6f 72 20 77 6f 72 6b 73 20 61 74 | rticular.;;;.purpose.or.works.at |
| 34c0 | 20 61 6c 6c 2e 20 4e 6f 20 77 61 72 72 61 6e 74 79 20 69 73 20 6d 61 64 65 20 61 62 6f 75 74 20 | .all..No.warranty.is.made.about. |
| 34e0 | 74 68 65 20 73 6f 66 74 77 61 72 65 20 6f 72 20 69 74 73 0a 3b 3b 3b 20 70 65 72 66 6f 72 6d 61 | the.software.or.its.;;;.performa |
| 3500 | 6e 63 65 2e 20 0a 3b 3b 3b 20 0a 3b 3b 3b 20 55 73 65 20 61 6e 64 20 63 6f 70 79 69 6e 67 20 6f | nce...;;;..;;;.Use.and.copying.o |
| 3520 | 66 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 20 61 6e 64 20 74 68 65 20 70 72 65 70 61 72 61 74 | f.this.software.and.the.preparat |
| 3540 | 69 6f 6e 20 6f 66 20 64 65 72 69 76 61 74 69 76 65 0a 3b 3b 3b 20 77 6f 72 6b 73 20 62 61 73 65 | ion.of.derivative.;;;.works.base |
| 3560 | 64 20 6f 6e 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 20 61 72 65 20 70 65 72 6d 69 74 74 65 64 | d.on.this.software.are.permitted |
| 3580 | 2c 20 73 6f 20 6c 6f 6e 67 20 61 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 3b 3b 3b 20 63 | ,.so.long.as.the.following.;;;.c |
| 35a0 | 6f 6e 64 69 74 69 6f 6e 73 20 61 72 65 20 6d 65 74 3a 0a 3b 3b 3b 09 6f 20 20 54 68 65 20 63 6f | onditions.are.met:.;;;.o..The.co |
| 35c0 | 70 79 72 69 67 68 74 20 6e 6f 74 69 63 65 20 61 6e 64 20 74 68 69 73 20 65 6e 74 69 72 65 20 6e | pyright.notice.and.this.entire.n |
| 35e0 | 6f 74 69 63 65 20 61 72 65 20 69 6e 63 6c 75 64 65 64 20 69 6e 74 61 63 74 0a 3b 3b 3b 20 20 20 | otice.are.included.intact.;;;... |
| 3600 | 20 20 20 20 20 61 6e 64 20 70 72 6f 6d 69 6e 65 6e 74 6c 79 20 63 61 72 72 69 65 64 20 6f 6e 20 | .....and.prominently.carried.on. |
| 3620 | 61 6c 6c 20 63 6f 70 69 65 73 20 61 6e 64 20 73 75 70 70 6f 72 74 69 6e 67 20 64 6f 63 75 6d 65 | all.copies.and.supporting.docume |
| 3640 | 6e 74 61 74 69 6f 6e 2e 0a 3b 3b 3b 09 6f 20 20 4e 6f 20 66 65 65 73 20 6f 72 20 63 6f 6d 70 65 | ntation..;;;.o..No.fees.or.compe |
| 3660 | 6e 73 61 74 69 6f 6e 20 61 72 65 20 63 68 61 72 67 65 64 20 66 6f 72 20 75 73 65 2c 20 63 6f 70 | nsation.are.charged.for.use,.cop |
| 3680 | 69 65 73 2c 20 6f 72 0a 3b 3b 3b 09 20 20 20 61 63 63 65 73 73 20 74 6f 20 74 68 69 73 20 73 6f | ies,.or.;;;....access.to.this.so |
| 36a0 | 66 74 77 61 72 65 2e 20 59 6f 75 20 6d 61 79 20 63 68 61 72 67 65 20 61 20 6e 6f 6d 69 6e 61 6c | ftware..You.may.charge.a.nominal |
| 36c0 | 0a 3b 3b 3b 09 20 20 20 64 69 73 74 72 69 62 75 74 69 6f 6e 20 66 65 65 20 66 6f 72 20 74 68 65 | .;;;....distribution.fee.for.the |
| 36e0 | 20 70 68 79 73 69 63 61 6c 20 61 63 74 20 6f 66 20 74 72 61 6e 73 66 65 72 72 69 6e 67 20 61 0a | .physical.act.of.transferring.a. |
| 3700 | 3b 3b 3b 09 20 20 20 63 6f 70 79 2c 20 62 75 74 20 79 6f 75 20 6d 61 79 20 6e 6f 74 20 63 68 61 | ;;;....copy,.but.you.may.not.cha |
| 3720 | 72 67 65 20 66 6f 72 20 74 68 65 20 70 72 6f 67 72 61 6d 20 69 74 73 65 6c 66 2e 20 0a 3b 3b 3b | rge.for.the.program.itself...;;; |
| 3740 | 09 6f 20 20 49 66 20 79 6f 75 20 6d 6f 64 69 66 79 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 2c | .o..If.you.modify.this.software, |
| 3760 | 20 79 6f 75 20 6d 75 73 74 20 63 61 75 73 65 20 74 68 65 20 6d 6f 64 69 66 69 65 64 0a 3b 3b 3b | .you.must.cause.the.modified.;;; |
| 3780 | 09 20 20 20 66 69 6c 65 28 73 29 20 74 6f 20 63 61 72 72 79 20 70 72 6f 6d 69 6e 65 6e 74 20 6e | ....file(s).to.carry.prominent.n |
| 37a0 | 6f 74 69 63 65 73 20 28 61 20 43 68 61 6e 67 65 20 4c 6f 67 29 0a 3b 3b 3b 09 20 20 20 64 65 73 | otices.(a.Change.Log).;;;....des |
| 37c0 | 63 72 69 62 69 6e 67 20 74 68 65 20 63 68 61 6e 67 65 73 2c 20 77 68 6f 20 6d 61 64 65 20 74 68 | cribing.the.changes,.who.made.th |
| 37e0 | 65 20 63 68 61 6e 67 65 73 2c 20 61 6e 64 20 74 68 65 20 64 61 74 65 0a 3b 3b 3b 09 20 20 20 6f | e.changes,.and.the.date.;;;....o |
| 3800 | 66 20 74 68 6f 73 65 20 63 68 61 6e 67 65 73 2e 0a 3b 3b 3b 09 6f 20 20 41 6e 79 20 77 6f 72 6b | f.those.changes..;;;.o..Any.work |
| 3820 | 20 64 69 73 74 72 69 62 75 74 65 64 20 6f 72 20 70 75 62 6c 69 73 68 65 64 20 74 68 61 74 20 69 | .distributed.or.published.that.i |
| 3840 | 6e 20 77 68 6f 6c 65 20 6f 72 20 69 6e 20 70 61 72 74 0a 3b 3b 3b 09 20 20 20 63 6f 6e 74 61 69 | n.whole.or.in.part.;;;....contai |
| 3860 | 6e 73 20 6f 72 20 69 73 20 61 20 64 65 72 69 76 61 74 69 76 65 20 6f 66 20 74 68 69 73 20 73 6f | ns.or.is.a.derivative.of.this.so |
| 3880 | 66 74 77 61 72 65 20 6f 72 20 61 6e 79 20 70 61 72 74 20 0a 3b 3b 3b 09 20 20 20 74 68 65 72 65 | ftware.or.any.part..;;;....there |
| 38a0 | 6f 66 20 69 73 20 73 75 62 6a 65 63 74 20 74 6f 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 | of.is.subject.to.the.terms.of.th |
| 38c0 | 69 73 20 61 67 72 65 65 6d 65 6e 74 2e 20 54 68 65 20 0a 3b 3b 3b 09 20 20 20 61 67 67 72 65 67 | is.agreement..The..;;;....aggreg |
| 38e0 | 61 74 69 6f 6e 20 6f 66 20 61 6e 6f 74 68 65 72 20 75 6e 72 65 6c 61 74 65 64 20 70 72 6f 67 72 | ation.of.another.unrelated.progr |
| 3900 | 61 6d 20 77 69 74 68 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 0a 3b 3b 3b 09 20 20 20 6f 72 20 | am.with.this.software.;;;....or. |
| 3920 | 69 74 73 20 64 65 72 69 76 61 74 69 76 65 20 6f 6e 20 61 20 76 6f 6c 75 6d 65 20 6f 66 20 73 74 | its.derivative.on.a.volume.of.st |
| 3940 | 6f 72 61 67 65 20 6f 72 20 64 69 73 74 72 69 62 75 74 69 6f 6e 0a 3b 3b 3b 09 20 20 20 6d 65 64 | orage.or.distribution.;;;....med |
| 3960 | 69 75 6d 20 64 6f 65 73 20 6e 6f 74 20 62 72 69 6e 67 20 74 68 65 20 6f 74 68 65 72 20 70 72 6f | ium.does.not.bring.the.other.pro |
| 3980 | 67 72 61 6d 20 75 6e 64 65 72 20 74 68 65 20 73 63 6f 70 65 0a 3b 3b 3b 09 20 20 20 6f 66 20 74 | gram.under.the.scope.;;;....of.t |
| 39a0 | 68 65 73 65 20 74 65 72 6d 73 2e 0a 3b 3b 3b 09 6f 20 20 50 65 72 6d 69 73 73 69 6f 6e 20 69 73 | hese.terms..;;;.o..Permission.is |
| 39c0 | 20 67 72 61 6e 74 65 64 20 74 6f 20 6d 61 6e 75 66 61 63 74 75 72 65 72 73 20 61 6e 64 20 64 69 | .granted.to.manufacturers.and.di |
| 39e0 | 73 74 72 69 62 75 74 6f 72 73 20 6f 66 0a 3b 3b 3b 09 20 20 20 6c 69 73 70 20 63 6f 6d 70 69 6c | stributors.of.;;;....lisp.compil |
| 3a00 | 65 72 73 20 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65 72 73 20 74 6f 20 69 6e 63 6c 75 64 65 20 | ers.and.interpreters.to.include. |
| 3a20 | 74 68 69 73 20 73 6f 66 74 77 61 72 65 0a 3b 3b 3b 09 20 20 20 77 69 74 68 20 74 68 65 69 72 20 | this.software.;;;....with.their. |
| 3a40 | 64 69 73 74 72 69 62 75 74 69 6f 6e 2e 20 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 73 6f 66 74 | distribution...;;;.;;;.This.soft |
| 3a60 | 77 61 72 65 20 69 73 20 6d 61 64 65 20 61 76 61 69 6c 61 62 6c 65 20 41 53 20 49 53 2c 20 61 6e | ware.is.made.available.AS.IS,.an |
| 3a80 | 64 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 77 69 74 68 6f 75 74 20 0a 3b 3b 3b 20 77 61 | d.is.distributed.without..;;;.wa |
| 3aa0 | 72 72 61 6e 74 79 20 6f 66 20 61 6e 79 20 6b 69 6e 64 2c 20 65 69 74 68 65 72 20 65 78 70 72 65 | rranty.of.any.kind,.either.expre |
| 3ac0 | 73 73 65 64 20 6f 72 20 69 6d 70 6c 69 65 64 2e 0a 3b 3b 3b 20 0a 3b 3b 3b 20 49 6e 20 6e 6f 20 | ssed.or.implied..;;;..;;;.In.no. |
| 3ae0 | 65 76 65 6e 74 20 77 69 6c 6c 20 74 68 65 20 61 75 74 68 6f 72 28 73 29 20 6f 72 20 74 68 65 69 | event.will.the.author(s).or.thei |
| 3b00 | 72 20 69 6e 73 74 69 74 75 74 69 6f 6e 73 20 62 65 20 6c 69 61 62 6c 65 20 74 6f 20 79 6f 75 0a | r.institutions.be.liable.to.you. |
| 3b20 | 3b 3b 3b 20 66 6f 72 20 64 61 6d 61 67 65 73 2c 20 69 6e 63 6c 75 64 69 6e 67 20 6c 6f 73 74 20 | ;;;.for.damages,.including.lost. |
| 3b40 | 70 72 6f 66 69 74 73 2c 20 6c 6f 73 74 20 6d 6f 6e 69 65 73 2c 20 6f 72 20 6f 74 68 65 72 20 73 | profits,.lost.monies,.or.other.s |
| 3b60 | 70 65 63 69 61 6c 2c 0a 3b 3b 3b 20 69 6e 63 69 64 65 6e 74 61 6c 20 6f 72 20 63 6f 6e 73 65 71 | pecial,.;;;.incidental.or.conseq |
| 3b80 | 75 65 6e 74 69 61 6c 20 64 61 6d 61 67 65 73 20 61 72 69 73 69 6e 67 20 6f 75 74 20 6f 66 20 6f | uential.damages.arising.out.of.o |
| 3ba0 | 72 20 69 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 3b 3b 3b 20 77 69 74 68 20 74 68 65 20 75 73 65 | r.in.connection.;;;.with.the.use |
| 3bc0 | 20 6f 72 20 69 6e 61 62 69 6c 69 74 79 20 74 6f 20 75 73 65 20 28 69 6e 63 6c 75 64 69 6e 67 20 | .or.inability.to.use.(including. |
| 3be0 | 62 75 74 20 6e 6f 74 20 6c 69 6d 69 74 65 64 20 74 6f 20 6c 6f 73 73 20 6f 66 0a 3b 3b 3b 20 64 | but.not.limited.to.loss.of.;;;.d |
| 3c00 | 61 74 61 20 6f 72 20 64 61 74 61 20 62 65 69 6e 67 20 72 65 6e 64 65 72 65 64 20 69 6e 61 63 63 | ata.or.data.being.rendered.inacc |
| 3c20 | 75 72 61 74 65 20 6f 72 20 6c 6f 73 73 65 73 20 73 75 73 74 61 69 6e 65 64 20 62 79 20 74 68 69 | urate.or.losses.sustained.by.thi |
| 3c40 | 72 64 0a 3b 3b 3b 20 70 61 72 74 69 65 73 20 6f 72 20 61 20 66 61 69 6c 75 72 65 20 6f 66 20 74 | rd.;;;.parties.or.a.failure.of.t |
| 3c60 | 68 65 20 70 72 6f 67 72 61 6d 20 74 6f 20 6f 70 65 72 61 74 65 20 61 73 20 64 6f 63 75 6d 65 6e | he.program.to.operate.as.documen |
| 3c80 | 74 65 64 29 20 74 68 65 20 0a 3b 3b 3b 20 70 72 6f 67 72 61 6d 2c 20 65 76 65 6e 20 69 66 20 79 | ted).the..;;;.program,.even.if.y |
| 3ca0 | 6f 75 20 68 61 76 65 20 62 65 65 6e 20 61 64 76 69 73 65 64 20 6f 66 20 74 68 65 20 70 6f 73 73 | ou.have.been.advised.of.the.poss |
| 3cc0 | 69 62 69 6c 69 74 79 20 6f 66 20 73 75 63 68 0a 3b 3b 3b 20 64 61 6d 61 6e 67 65 73 2c 20 6f 72 | ibility.of.such.;;;.damanges,.or |
| 3ce0 | 20 66 6f 72 20 61 6e 79 20 63 6c 61 69 6d 20 62 79 20 61 6e 79 20 6f 74 68 65 72 20 70 61 72 74 | .for.any.claim.by.any.other.part |
| 3d00 | 79 2c 20 77 68 65 74 68 65 72 20 69 6e 20 61 6e 20 61 63 74 69 6f 6e 20 6f 66 0a 3b 3b 3b 20 63 | y,.whether.in.an.action.of.;;;.c |
| 3d20 | 6f 6e 74 72 61 63 74 2c 20 6e 65 67 6c 69 67 65 6e 63 65 2c 20 6f 72 20 6f 74 68 65 72 20 74 6f | ontract,.negligence,.or.other.to |
| 3d40 | 72 74 69 6f 75 73 20 61 63 74 69 6f 6e 2e 0a 3b 3b 3b 20 0a 3b 3b 3b 20 54 68 65 20 63 75 72 72 | rtious.action..;;;..;;;.The.curr |
| 3d60 | 65 6e 74 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 20 61 6e 64 | ent.version.of.this.software.and |
| 3d80 | 20 61 20 76 61 72 69 65 74 79 20 6f 66 20 72 65 6c 61 74 65 64 20 75 74 69 6c 69 74 69 65 73 0a | .a.variety.of.related.utilities. |
| 3da0 | 3b 3b 3b 20 6d 61 79 20 62 65 20 6f 62 74 61 69 6e 65 64 20 62 79 20 61 6e 6f 6e 79 6d 6f 75 73 | ;;;.may.be.obtained.by.anonymous |
| 3dc0 | 20 66 74 70 20 66 72 6f 6d 20 66 74 70 2e 63 73 2e 63 6d 75 2e 65 64 75 20 69 6e 20 74 68 65 20 | .ftp.from.ftp.cs.cmu.edu.in.the. |
| 3de0 | 64 69 72 65 63 74 6f 72 79 0a 3b 3b 3b 20 20 20 20 75 73 65 72 2f 61 69 2f 6c 61 6e 67 2f 6c 69 | directory.;;;....user/ai/lang/li |
| 3e00 | 73 70 2f 63 6f 64 65 2f 74 6f 6f 6c 73 2f 78 72 65 66 2f 0a 3b 3b 3b 20 0a 3b 3b 3b 20 50 6c 65 | sp/code/tools/xref/.;;;..;;;.Ple |
| 3e20 | 61 73 65 20 73 65 6e 64 20 62 75 67 20 72 65 70 6f 72 74 73 2c 20 63 6f 6d 6d 65 6e 74 73 2c 20 | ase.send.bug.reports,.comments,. |
| 3e40 | 71 75 65 73 74 69 6f 6e 73 20 61 6e 64 20 73 75 67 67 65 73 74 69 6f 6e 73 20 74 6f 0a 3b 3b 3b | questions.and.suggestions.to.;;; |
| 3e60 | 20 6d 6b 61 6e 74 40 63 73 2e 63 6d 75 2e 65 64 75 2e 20 57 65 20 77 6f 75 6c 64 20 61 6c 73 6f | .mkant@cs.cmu.edu..We.would.also |
| 3e80 | 20 61 70 70 72 65 63 69 61 74 65 20 72 65 63 65 69 76 69 6e 67 20 61 6e 79 20 63 68 61 6e 67 65 | .appreciate.receiving.any.change |
| 3ea0 | 73 0a 3b 3b 3b 20 6f 72 20 69 6d 70 72 6f 76 65 6d 65 6e 74 73 20 79 6f 75 20 6d 61 79 20 6d 61 | s.;;;.or.improvements.you.may.ma |
| 3ec0 | 6b 65 2e 20 0a 3b 3b 3b 20 0a 3b 3b 3b 20 49 66 20 79 6f 75 20 77 69 73 68 20 74 6f 20 62 65 20 | ke...;;;..;;;.If.you.wish.to.be. |
| 3ee0 | 61 64 64 65 64 20 74 6f 20 74 68 65 20 4c 69 73 70 2d 55 74 69 6c 69 74 69 65 73 40 63 73 2e 63 | added.to.the.Lisp-Utilities@cs.c |
| 3f00 | 6d 75 2e 65 64 75 20 6d 61 69 6c 69 6e 67 20 6c 69 73 74 2c 20 0a 3b 3b 3b 20 73 65 6e 64 20 65 | mu.edu.mailing.list,..;;;.send.e |
| 3f20 | 6d 61 69 6c 20 74 6f 20 4c 69 73 70 2d 55 74 69 6c 69 74 69 65 73 2d 52 65 71 75 65 73 74 40 63 | mail.to.Lisp-Utilities-Request@c |
| 3f40 | 73 2e 63 6d 75 2e 65 64 75 20 77 69 74 68 20 79 6f 75 72 20 6e 61 6d 65 2c 20 65 6d 61 69 6c 0a | s.cmu.edu.with.your.name,.email. |
| 3f60 | 3b 3b 3b 20 61 64 64 72 65 73 73 2c 20 61 6e 64 20 61 66 66 69 6c 69 61 74 69 6f 6e 2e 20 54 68 | ;;;.address,.and.affiliation..Th |
| 3f80 | 69 73 20 6d 61 69 6c 69 6e 67 20 6c 69 73 74 20 69 73 20 70 72 69 6d 61 72 69 6c 79 20 66 6f 72 | is.mailing.list.is.primarily.for |
| 3fa0 | 0a 3b 3b 3b 20 6e 6f 74 69 66 69 63 61 74 69 6f 6e 20 61 62 6f 75 74 20 6d 61 6a 6f 72 20 75 70 | .;;;.notification.about.major.up |
| 3fc0 | 64 61 74 65 73 2c 20 62 75 67 20 66 69 78 65 73 2c 20 61 6e 64 20 61 64 64 69 74 69 6f 6e 73 20 | dates,.bug.fixes,.and.additions. |
| 3fe0 | 74 6f 20 74 68 65 20 6c 69 73 70 0a 3b 3b 3b 20 75 74 69 6c 69 74 69 65 73 20 63 6f 6c 6c 65 63 | to.the.lisp.;;;.utilities.collec |
| 4000 | 74 69 6f 6e 2e 20 54 68 65 20 6d 61 69 6c 69 6e 67 20 6c 69 73 74 20 69 73 20 69 6e 74 65 6e 64 | tion..The.mailing.list.is.intend |
| 4020 | 65 64 20 74 6f 20 68 61 76 65 20 6c 6f 77 20 74 72 61 66 66 69 63 2e 0a 3b 3b 3b 0a 0c 0a 3b 3b | ed.to.have.low.traffic..;;;...;; |
| 4040 | 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;.****************************** |
| 4060 | 2a 2a 0a 3b 3b 3b 20 43 68 61 6e 67 65 20 4c 6f 67 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | **.;;;.Change.Log.************** |
| 4080 | 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | *******.;;;.******************** |
| 40a0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 0a 3b 3b 3b 20 32 37 2d 46 45 42 2d 39 31 20 6d | ************.;;;.;;;.27-FEB-91.m |
| 40c0 | 6b 20 20 20 41 64 64 65 64 20 69 6e 73 65 72 74 20 61 72 67 20 74 6f 20 70 73 67 72 61 70 68 2d | k...Added.insert.arg.to.psgraph- |
| 40e0 | 78 72 65 66 20 74 6f 20 61 6c 6c 6f 77 20 74 68 65 20 70 6f 73 74 73 63 72 69 70 74 0a 3b 3b 3b | xref.to.allow.the.postscript.;;; |
| 4100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 72 61 70 68 73 20 74 6f 20 62 65 20 69 6e 73 | ................graphs.to.be.ins |
| 4120 | 65 72 74 65 64 20 69 6e 20 53 63 72 69 62 65 20 64 6f 63 75 6d 65 6e 74 73 2e 0a 3b 3b 3b 20 32 | erted.in.Scribe.documents..;;;.2 |
| 4140 | 31 2d 46 45 42 2d 39 31 20 6d 6b 20 20 20 41 64 64 65 64 20 77 61 72 6e 69 6e 67 20 69 66 20 6e | 1-FEB-91.mk...Added.warning.if.n |
| 4160 | 6f 74 20 63 6f 6d 70 69 6c 65 64 2e 0a 3b 3b 3b 20 30 37 2d 46 45 42 2d 39 31 20 6d 6b 20 20 20 | ot.compiled..;;;.07-FEB-91.mk... |
| 4180 | 46 69 78 65 64 20 62 75 67 20 69 6e 20 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 77 69 74 68 | Fixed.bug.in.record-callers.with |
| 41a0 | 20 72 65 67 61 72 64 20 74 6f 20 66 6f 72 6d 73 20 61 74 20 0a 3b 3b 3b 20 20 20 20 20 20 20 20 | .regard.to.forms.at..;;;........ |
| 41c0 | 20 20 20 20 20 20 20 20 74 6f 70 6c 65 76 65 6c 2e 0a 3b 3b 3b 20 32 31 2d 4a 41 4e 2d 39 31 20 | ........toplevel..;;;.21-JAN-91. |
| 41e0 | 6d 6b 20 20 20 41 64 64 65 64 20 66 69 6c 65 20 78 72 65 66 2d 74 65 73 74 2e 6c 69 73 70 20 74 | mk...Added.file.xref-test.lisp.t |
| 4200 | 6f 20 74 65 73 74 20 78 72 65 66 2e 0a 3b 3b 3b 20 31 36 2d 4a 41 4e 2d 39 31 20 6d 6b 20 20 20 | o.test.xref..;;;.16-JAN-91.mk... |
| 4220 | 41 64 64 65 64 20 64 65 66 69 6e 69 74 69 6f 6e 20 57 48 4f 2d 43 41 4c 4c 53 20 74 6f 20 70 61 | Added.definition.WHO-CALLS.to.pa |
| 4240 | 72 61 6c 6c 65 6c 20 74 68 65 20 53 79 6d 62 6f 6c 69 63 73 20 73 79 6e 74 61 78 2e 0a 3b 3b 3b | rallel.the.Symbolics.syntax..;;; |
| 4260 | 20 31 36 2d 4a 41 4e 2d 39 31 20 6d 6b 20 20 20 41 64 64 65 64 20 6d 61 63 72 6f 65 78 70 61 6e | .16-JAN-91.mk...Added.macroexpan |
| 4280 | 73 69 6f 6e 20 63 61 70 61 62 69 6c 69 74 79 20 74 6f 20 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 | sion.capability.to.record-caller |
| 42a0 | 73 2e 20 41 6c 73 6f 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 64 65 64 | s..Also.;;;................added |
| 42c0 | 20 70 61 72 61 6d 65 74 65 72 20 2a 68 61 6e 64 6c 65 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 2a 2c | .parameter.*handle-macro-forms*, |
| 42e0 | 20 64 65 66 61 75 6c 74 69 6e 67 20 74 6f 20 54 2e 0a 3b 3b 3b 20 31 36 2d 4a 41 4e 2d 39 31 20 | .defaulting.to.T..;;;.16-JAN-91. |
| 4300 | 6d 6b 20 20 20 4d 6f 64 69 66 69 65 64 20 70 72 69 6e 74 2d 63 61 6c 6c 65 72 2d 74 72 65 65 20 | mk...Modified.print-caller-tree. |
| 4320 | 61 6e 64 20 72 65 6c 61 74 65 64 20 66 75 6e 63 74 69 6f 6e 73 0a 3b 3b 3b 20 20 20 20 20 20 20 | and.related.functions.;;;....... |
| 4340 | 20 20 20 20 20 20 20 20 20 74 6f 20 61 6c 6c 6f 77 20 74 68 65 20 75 73 65 72 20 74 6f 20 73 70 | .........to.allow.the.user.to.sp |
| 4360 | 65 63 69 66 79 20 72 6f 6f 74 20 6e 6f 64 65 73 2e 20 49 66 20 74 68 65 20 75 73 65 72 0a 3b 3b | ecify.root.nodes..If.the.user.;; |
| 4380 | 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 65 73 6e 27 74 20 73 70 65 63 69 66 79 | ;................doesn't.specify |
| 43a0 | 20 74 68 65 6d 2c 20 69 74 20 77 69 6c 6c 20 64 65 66 61 75 6c 74 20 74 6f 20 61 6c 6c 20 72 6f | .them,.it.will.default.to.all.ro |
| 43c0 | 6f 74 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 64 65 73 2c 20 61 73 20 | ot.;;;................nodes,.as. |
| 43e0 | 62 65 66 6f 72 65 2e 20 0a 3b 3b 3b 20 31 36 2d 4a 41 4e 2d 39 31 20 6d 6b 20 20 20 41 64 64 65 | before...;;;.16-JAN-91.mk...Adde |
| 4400 | 64 20 70 61 72 61 6d 65 74 65 72 20 2a 64 65 66 61 75 6c 74 2d 67 72 61 70 68 69 6e 67 2d 6d 6f | d.parameter.*default-graphing-mo |
| 4420 | 64 65 2a 20 74 6f 20 73 70 65 63 69 66 79 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | de*.to.specify.;;;.............. |
| 4440 | 20 20 74 68 65 20 64 69 72 65 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 67 72 61 70 68 69 6e 67 2e | ..the.direction.of.the.graphing. |
| 4460 | 20 45 69 74 68 65 72 20 3a 63 61 6c 6c 2d 67 72 61 70 68 2c 0a 3b 3b 3b 20 20 20 20 20 20 20 20 | .Either.:call-graph,.;;;........ |
| 4480 | 20 20 20 20 20 20 20 20 77 68 65 72 65 20 74 68 65 20 63 68 69 6c 64 72 65 6e 20 6f 66 20 61 20 | ........where.the.children.of.a. |
| 44a0 | 6e 6f 64 65 20 61 72 65 20 74 68 6f 73 65 20 66 75 6e 63 74 69 6f 6e 73 20 63 61 6c 6c 65 64 0a | node.are.those.functions.called. |
| 44c0 | 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 20 74 68 65 20 6e 6f 64 65 2c 20 | ;;;................by.the.node,. |
| 44e0 | 6f 72 20 3a 63 61 6c 6c 65 72 2d 67 72 61 70 68 20 77 68 65 72 65 20 74 68 65 20 63 68 69 6c 64 | or.:caller-graph.where.the.child |
| 4500 | 72 65 6e 20 6f 66 20 61 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 64 65 | ren.of.a.;;;................node |
| 4520 | 20 61 72 65 20 74 68 65 20 63 61 6c 6c 65 72 73 20 6f 66 20 74 68 65 20 6e 6f 64 65 2e 20 3a 63 | .are.the.callers.of.the.node..:c |
| 4540 | 61 6c 6c 2d 67 72 61 70 68 20 69 73 20 74 68 65 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 | all-graph.is.the.;;;............ |
| 4560 | 20 20 20 20 64 65 66 61 75 6c 74 2e 0a 3b 3b 3b 20 31 36 2d 4a 41 4e 2d 39 31 20 6d 6b 20 20 20 | ....default..;;;.16-JAN-91.mk... |
| 4580 | 41 64 64 65 64 20 70 61 72 61 6d 65 74 65 72 20 2a 69 6e 64 65 6e 74 2d 61 6d 6f 75 6e 74 2a 20 | Added.parameter.*indent-amount*. |
| 45a0 | 74 6f 20 63 6f 6e 74 72 6f 6c 20 74 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 3b 3b 3b 20 20 | to.control.the.indentation.;;;.. |
| 45c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 20 70 72 69 6e 74 2d 69 6e 64 65 6e 74 65 64 2d | ..............in.print-indented- |
| 45e0 | 74 72 65 65 2e 0a 3b 3b 3b 20 31 36 2d 4a 55 4c 2d 39 30 20 6d 6b 20 20 20 46 75 6e 63 74 69 6f | tree..;;;.16-JUL-90.mk...Functio |
| 4600 | 6e 73 20 77 69 74 68 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 73 20 6f 66 20 28 29 20 77 65 72 | ns.with.argument.lists.of.().wer |
| 4620 | 65 20 62 65 69 6e 67 20 69 67 6e 6f 72 65 64 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.being.ignored.;;;............. |
| 4640 | 20 20 20 62 65 63 61 75 73 65 20 6f 66 20 61 20 28 77 68 65 6e 20 66 6f 72 6d 29 20 77 72 61 70 | ...because.of.a.(when.form).wrap |
| 4660 | 70 65 64 20 61 72 6f 75 6e 64 20 74 68 65 20 62 6f 64 79 20 6f 66 0a 3b 3b 3b 20 20 20 20 20 20 | ped.around.the.body.of.;;;...... |
| 4680 | 20 20 20 20 20 20 20 20 20 20 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 2e 20 54 68 65 6e 20 69 | ..........record-callers..Then.i |
| 46a0 | 6e 74 65 6e 74 20 6f 66 20 28 77 68 65 6e 20 66 6f 72 6d 29 20 77 61 73 20 61 73 20 61 6e 20 65 | ntent.of.(when.form).was.as.an.e |
| 46c0 | 78 74 72 61 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 66 65 67 75 61 72 | xtra.;;;................safeguar |
| 46e0 | 64 20 61 67 61 69 6e 73 74 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 69 6e 67 2e 20 54 68 69 73 | d.against.infinite.looping..This |
| 4700 | 20 77 61 73 6e 27 74 20 72 65 61 6c 6c 79 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .wasn't.really.;;;.............. |
| 4720 | 20 20 6e 65 63 65 73 73 61 72 79 2c 20 73 6f 20 69 74 20 68 61 73 20 62 65 65 6e 20 72 65 6d 6f | ..necessary,.so.it.has.been.remo |
| 4740 | 76 65 64 2e 0a 3b 3b 3b 20 31 36 2d 4a 55 4c 2d 39 30 20 6d 6b 20 20 20 50 53 47 72 61 70 68 2d | ved..;;;.16-JUL-90.mk...PSGraph- |
| 4760 | 58 52 45 46 20 6e 6f 77 20 68 61 73 20 6b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 73 2c 20 | XREF.now.has.keyword.arguments,. |
| 4780 | 69 6e 73 74 65 61 64 20 6f 66 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 | instead.of.;;;................op |
| 47a0 | 74 69 6f 6e 61 6c 73 2e 0a 3b 3b 3b 20 31 36 2d 4a 55 4c 2d 39 30 20 6d 6b 20 20 20 41 64 64 65 | tionals..;;;.16-JUL-90.mk...Adde |
| 47c0 | 64 20 50 52 49 4e 54 2d 43 4c 41 53 53 2d 48 49 45 52 41 52 43 48 59 20 74 6f 20 75 73 65 20 70 | d.PRINT-CLASS-HIERARCHY.to.use.p |
| 47e0 | 73 67 72 61 70 68 20 74 6f 20 67 72 61 70 68 20 74 68 65 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 | sgraph.to.graph.the.;;;......... |
| 4800 | 20 20 20 20 20 20 20 43 4c 4f 53 20 63 6c 61 73 73 20 68 69 65 72 61 72 63 68 79 2e 20 54 68 69 | .......CLOS.class.hierarchy..Thi |
| 4820 | 73 20 72 65 61 6c 6c 79 20 64 6f 65 73 6e 27 74 20 62 65 6c 6f 6e 67 20 68 65 72 65 2c 0a 3b 3b | s.really.doesn't.belong.here,.;; |
| 4840 | 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 73 68 6f 75 6c 64 20 62 65 20 6d | ;................and.should.be.m |
| 4860 | 6f 76 65 64 20 74 6f 20 70 73 67 72 61 70 68 2e 6c 69 73 70 20 61 73 20 61 6e 20 65 78 61 6d 70 | oved.to.psgraph.lisp.as.an.examp |
| 4880 | 6c 65 20 6f 66 20 68 6f 77 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 20 | le.of.how.;;;................to. |
| 48a0 | 75 73 65 20 70 73 67 72 61 70 68 2e 0a 3b 3b 3b 20 31 36 2d 4a 55 4c 2d 39 30 20 6d 6b 20 20 20 | use.psgraph..;;;.16-JUL-90.mk... |
| 48c0 | 46 69 78 65 64 20 73 65 76 65 72 61 6c 20 63 61 6c 6c 65 72 20 70 61 74 74 65 72 6e 73 2e 20 54 | Fixed.several.caller.patterns..T |
| 48e0 | 68 65 20 70 61 74 74 65 72 6e 20 66 6f 72 20 6d 65 6d 62 65 72 0a 3b 3b 3b 20 20 20 20 20 20 20 | he.pattern.for.member.;;;....... |
| 4900 | 20 20 20 20 20 20 20 20 20 68 61 64 20 61 6e 20 65 72 72 6f 72 20 77 68 69 63 68 20 63 61 75 73 | .........had.an.error.which.caus |
| 4920 | 65 64 20 6d 61 6e 79 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 62 65 20 6d 69 73 73 65 64 2e | ed.many.references.to.be.missed. |
| 4940 | 0a 3b 3b 3b 20 31 36 2d 4a 55 4c 2d 39 30 20 6d 6b 20 20 20 41 64 64 65 64 20 61 62 69 6c 69 74 | .;;;.16-JUL-90.mk...Added.abilit |
| 4960 | 79 20 74 6f 20 73 61 76 65 2f 6c 6f 61 64 20 70 72 6f 63 65 73 73 65 64 20 64 61 74 61 62 61 73 | y.to.save/load.processed.databas |
| 4980 | 65 73 2e 0a 3b 3b 3b 20 20 35 2d 4a 55 4c 2d 39 31 20 6d 6b 20 20 20 20 46 69 78 65 64 20 77 61 | es..;;;..5-JUL-91.mk....Fixed.wa |
| 49a0 | 72 6e 69 6e 67 20 6f 66 20 6e 65 65 64 69 6e 67 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 74 6f 20 | rning.of.needing.compilation.to. |
| 49c0 | 6f 63 63 75 72 20 6f 6e 6c 79 20 77 68 65 6e 20 74 68 65 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 | occur.only.when.the.;;;......... |
| 49e0 | 20 20 20 20 20 20 20 20 73 6f 75 72 63 65 20 69 73 20 6c 6f 61 64 65 64 2e 0a 3b 3b 3b 20 32 30 | ........source.is.loaded..;;;.20 |
| 4a00 | 2d 53 45 50 2d 39 33 20 6d 6b 20 20 20 20 41 64 64 65 64 20 66 69 78 20 66 72 6f 6d 20 50 65 74 | -SEP-93.mk....Added.fix.from.Pet |
| 4a20 | 65 72 20 4e 6f 72 76 69 67 20 74 6f 20 61 6c 6c 6f 77 20 58 72 65 66 20 74 6f 20 78 72 65 66 20 | er.Norvig.to.allow.Xref.to.xref. |
| 4a40 | 69 74 73 65 6c 66 2e 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65 20 | itself..;;;.................The. |
| 4a60 | 61 72 67 20 74 6f 20 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 6d 75 73 74 20 62 65 20 61 20 | arg.to.macro-function.must.be.a. |
| 4a80 | 73 79 6d 62 6f 6c 2e 0a 3b 3b 3b 20 20 37 2d 41 50 52 2d 31 32 20 68 65 6c 6c 65 72 20 20 42 72 | symbol..;;;..7-APR-12.heller..Br |
| 4aa0 | 65 61 6b 20 6c 69 6e 65 73 20 61 74 20 38 30 20 63 6f 6c 75 6d 6e 73 2e 0a 0c 0a 3b 3b 3b 20 2a | eak.lines.at.80.columns....;;;.* |
| 4ac0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a | *******************************. |
| 4ae0 | 3b 3b 3b 20 54 6f 20 44 6f 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;;;.To.Do.********************** |
| 4b00 | 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ****.;;;.*********************** |
| 4b20 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 0a 3b 3b 3b 20 56 65 72 69 66 79 20 74 68 61 74 3a 0a 3b | *********.;;;.;;;.Verify.that:.; |
| 4b40 | 3b 3b 20 20 20 20 6f 20 20 6e 75 6c 6c 20 66 6f 72 6d 73 20 64 6f 6e 27 74 20 63 61 75 73 65 20 | ;;....o..null.forms.don't.cause. |
| 4b60 | 69 74 20 74 6f 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 2e 0a 3b 3b 3b 20 20 20 20 6f 20 20 6e | it.to.infinite.loop..;;;....o..n |
| 4b80 | 69 6c 20 6d 61 74 63 68 65 73 20 61 67 61 69 6e 73 74 20 6e 75 6c 6c 20 61 72 67 75 6d 65 6e 74 | il.matches.against.null.argument |
| 4ba0 | 20 6c 69 73 74 73 2e 0a 3b 3b 3b 20 20 20 20 6f 20 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 61 | .lists..;;;....o..declarations.a |
| 4bc0 | 6e 64 20 64 6f 63 20 61 72 65 20 62 65 69 6e 67 20 69 67 6e 6f 72 65 64 2e 0a 3b 3b 3b 0a 3b 3b | nd.doc.are.being.ignored..;;;.;; |
| 4be0 | 3b 20 57 6f 75 6c 64 20 62 65 20 6e 69 63 65 20 69 66 20 69 6e 20 61 64 64 69 74 69 6f 6e 20 74 | ;.Would.be.nice.if.in.addition.t |
| 4c00 | 6f 20 73 68 6f 77 69 6e 67 20 63 61 6c 6c 65 72 73 20 6f 66 20 61 20 66 75 6e 63 74 69 6f 6e 2c | o.showing.callers.of.a.function, |
| 4c20 | 20 69 74 0a 3b 3b 3b 20 64 69 73 70 6c 61 79 65 64 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 | .it.;;;.displayed.the.context.of |
| 4c40 | 20 74 68 65 20 63 61 6c 6c 73 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 28 65 2e 67 2e | .the.calls.to.the.function.(e.g. |
| 4c60 | 2c 20 74 68 65 0a 3b 3b 3b 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 73 75 72 72 6f 75 6e 64 69 6e | ,.the.;;;.immediately.surroundin |
| 4c80 | 67 20 66 6f 72 6d 29 2e 20 54 68 69 73 20 65 6e 74 61 69 6c 73 20 73 74 6f 72 69 6e 67 20 65 6e | g.form)..This.entails.storing.en |
| 4ca0 | 74 72 69 65 73 20 6f 66 0a 3b 3b 3b 20 74 68 65 20 66 6f 72 6d 20 28 73 79 6d 62 6f 6c 20 63 6f | tries.of.;;;.the.form.(symbol.co |
| 4cc0 | 6e 74 65 78 74 2a 29 20 69 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 20 61 6e 64 20 61 75 67 6d | ntext*).in.the.database.and.augm |
| 4ce0 | 65 6e 74 69 6e 67 0a 3b 3b 3b 20 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 74 6f 20 6b 65 65 | enting.;;;.record-callers.to.kee |
| 4d00 | 70 20 74 68 65 20 63 6f 6e 74 65 78 74 20 61 72 6f 75 6e 64 2e 20 54 68 65 20 6f 6e 6c 79 20 64 | p.the.context.around..The.only.d |
| 4d20 | 72 61 77 62 61 63 6b 73 20 69 73 0a 3b 3b 3b 20 74 68 61 74 20 69 74 20 77 6f 75 6c 64 20 63 6f | rawbacks.is.;;;.that.it.would.co |
| 4d40 | 6e 73 20 61 20 66 61 69 72 20 62 69 74 2e 20 49 66 20 77 65 20 64 6f 20 74 68 69 73 2c 20 77 65 | ns.a.fair.bit..If.we.do.this,.we |
| 4d60 | 20 73 68 6f 75 6c 64 20 73 74 6f 72 65 0a 3b 3b 3b 20 61 64 64 69 74 69 6f 6e 61 6c 20 69 6e 66 | .should.store.;;;.additional.inf |
| 4d80 | 6f 72 6d 61 74 69 6f 6e 20 61 73 20 77 65 6c 6c 20 69 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 | ormation.as.well.in.the.database |
| 4da0 | 2c 20 73 75 63 68 20 61 73 20 74 68 65 20 63 61 6c 6c 65 72 0a 3b 3b 3b 20 70 61 74 74 65 72 6e | ,.such.as.the.caller.;;;.pattern |
| 4dc0 | 20 74 79 70 65 20 28 65 2e 67 2e 2c 20 76 61 72 69 61 62 6c 65 20 76 73 2e 20 66 75 6e 63 74 69 | .type.(e.g.,.variable.vs..functi |
| 4de0 | 6f 6e 29 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 57 72 69 74 65 20 61 20 74 72 61 6e 73 6c 61 74 6f 72 20 | on)..;;;.;;;.Write.a.translator. |
| 4e00 | 66 72 6f 6d 20 42 4e 46 20 28 61 74 20 6c 65 61 73 74 20 61 73 20 6d 75 63 68 20 6f 66 20 42 4e | from.BNF.(at.least.as.much.of.BN |
| 4e20 | 46 20 61 73 20 69 73 20 75 73 65 64 0a 3b 3b 3b 20 69 6e 20 43 4c 74 4c 32 29 2c 20 74 6f 20 74 | F.as.is.used.;;;.in.CLtL2),.to.t |
| 4e40 | 68 65 20 66 6f 72 6d 61 74 20 75 73 65 64 20 68 65 72 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 53 68 6f | he.format.used.here..;;;.;;;.Sho |
| 4e60 | 75 6c 64 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 61 64 64 20 6e 65 77 20 70 61 74 74 65 72 | uld.automatically.add.new.patter |
| 4e80 | 6e 73 20 66 6f 72 20 6e 65 77 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 6d 61 63 72 6f 73 0a | ns.for.new.functions.and.macros. |
| 4ea0 | 3b 3b 3b 20 62 61 73 65 64 20 6f 6e 20 74 68 65 69 72 20 61 72 67 6c 69 73 74 73 2e 20 50 72 6f | ;;;.based.on.their.arglists..Pro |
| 4ec0 | 62 61 62 6c 79 20 72 65 71 75 69 72 65 73 20 6d 75 63 68 20 6d 6f 72 65 20 74 68 61 6e 20 74 68 | bably.requires.much.more.than.th |
| 4ee0 | 69 73 0a 3b 3b 3b 20 73 69 6d 70 6c 65 20 63 6f 64 65 20 77 61 6c 6b 65 72 2c 20 73 6f 20 74 68 | is.;;;.simple.code.walker,.so.th |
| 4f00 | 65 72 65 20 69 73 6e 27 74 20 6d 75 63 68 20 77 65 20 63 61 6e 20 64 6f 2e 0a 3b 3b 3b 0a 3b 3b | ere.isn't.much.we.can.do..;;;.;; |
| 4f20 | 3b 20 44 65 66 6d 61 63 72 6f 20 69 73 20 61 20 70 72 6f 62 6c 65 6d 2c 20 62 65 63 61 75 73 65 | ;.Defmacro.is.a.problem,.because |
| 4f40 | 20 69 74 20 6f 66 74 65 6e 20 68 69 64 65 73 20 69 6e 74 65 72 6e 61 6c 20 66 75 6e 63 74 69 6f | .it.often.hides.internal.functio |
| 4f60 | 6e 0a 3b 3b 3b 20 63 61 6c 6c 73 20 77 69 74 68 69 6e 20 62 61 63 6b 71 75 6f 74 65 20 61 6e 64 | n.;;;.calls.within.backquote.and |
| 4f80 | 20 71 75 6f 74 65 2c 20 77 68 69 63 68 20 77 65 20 6e 6f 72 6d 61 6c 6c 79 20 69 67 6e 6f 72 65 | .quote,.which.we.normally.ignore |
| 4fa0 | 2e 20 49 66 0a 3b 3b 3b 20 77 65 20 72 65 64 65 66 69 6e 65 20 51 55 4f 54 45 27 73 20 70 61 74 | ..If.;;;.we.redefine.QUOTE's.pat |
| 4fc0 | 74 65 72 6e 20 73 6f 20 74 68 61 74 20 69 74 20 74 72 65 61 74 73 20 74 68 65 20 61 72 67 20 6c | tern.so.that.it.treats.the.arg.l |
| 4fe0 | 69 6b 65 20 61 20 46 4f 52 4d 2c 0a 3b 3b 3b 20 77 65 27 6c 6c 20 70 72 6f 62 61 62 6c 79 20 67 | ike.a.FORM,.;;;.we'll.probably.g |
| 5000 | 65 74 20 74 68 65 6d 20 28 74 68 6f 75 67 68 20 6d 61 79 62 65 20 74 68 65 20 73 79 6e 74 61 78 | et.them.(though.maybe.the.syntax |
| 5020 | 20 77 69 6c 6c 20 62 65 20 6d 61 6e 67 6c 65 64 29 2c 0a 3b 3b 3b 20 62 75 74 20 6d 6f 73 74 20 | .will.be.mangled),.;;;.but.most. |
| 5040 | 6c 69 6b 65 6c 79 20 61 20 6c 6f 74 20 6f 66 20 73 70 75 72 69 6f 75 73 20 74 68 69 6e 67 73 20 | likely.a.lot.of.spurious.things. |
| 5060 | 61 73 20 77 65 6c 6c 2e 20 0a 3b 3b 3b 0a 3b 3b 3b 20 44 65 66 69 6e 65 20 61 6e 20 6f 70 65 72 | as.well...;;;.;;;.Define.an.oper |
| 5080 | 61 74 69 6f 6e 20 66 6f 72 20 44 65 66 73 79 73 74 65 6d 20 77 68 69 63 68 20 77 69 6c 6c 20 72 | ation.for.Defsystem.which.will.r |
| 50a0 | 75 6e 20 58 52 45 46 2d 46 49 4c 45 20 6f 6e 20 74 68 65 0a 3b 3b 3b 20 66 69 6c 65 73 20 6f 66 | un.XREF-FILE.on.the.;;;.files.of |
| 50c0 | 20 74 68 65 20 73 79 73 74 65 6d 2e 20 4f 72 20 79 65 74 20 73 69 6d 70 6c 65 72 2c 20 77 68 65 | .the.system..Or.yet.simpler,.whe |
| 50e0 | 6e 20 58 52 45 46 20 73 65 65 73 20 61 20 4c 4f 41 44 20 66 6f 72 6d 0a 3b 3b 3b 20 66 6f 72 20 | n.XREF.sees.a.LOAD.form.;;;.for. |
| 5100 | 77 68 69 63 68 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61 20 73 74 72 69 6e 67 2c 20 | which.the.argument.is.a.string,. |
| 5120 | 74 72 69 65 73 20 74 6f 20 72 65 63 75 72 73 69 76 65 6c 79 20 63 61 6c 6c 0a 3b 3b 3b 20 58 52 | tries.to.recursively.call.;;;.XR |
| 5140 | 45 46 2d 46 49 4c 45 20 6f 6e 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 66 69 6c 65 2e 20 54 | EF-FILE.on.the.specified.file..T |
| 5160 | 68 65 6e 20 6f 6e 65 20 63 6f 75 6c 64 20 6a 75 73 74 20 58 52 45 46 2d 46 49 4c 45 0a 3b 3b 3b | hen.one.could.just.XREF-FILE.;;; |
| 5180 | 20 74 68 65 20 66 69 6c 65 20 77 68 69 63 68 20 6c 6f 61 64 73 20 74 68 65 20 73 79 73 74 65 6d | .the.file.which.loads.the.system |
| 51a0 | 2e 20 28 54 68 69 73 20 73 68 6f 75 6c 64 20 62 65 20 61 20 70 72 6f 67 72 61 6d 0a 3b 3b 3b 20 | ..(This.should.be.a.program.;;;. |
| 51c0 | 70 61 72 61 6d 65 74 65 72 2e 29 0a 3b 3b 3b 0a 3b 3b 3b 20 48 61 76 65 20 73 70 65 63 69 61 6c | parameter.).;;;.;;;.Have.special |
| 51e0 | 20 6b 65 79 77 6f 72 64 73 20 77 68 69 63 68 20 74 68 65 20 75 73 65 72 20 6d 61 79 20 70 6c 61 | .keywords.which.the.user.may.pla |
| 5200 | 63 65 20 69 6e 20 61 20 66 69 6c 65 20 74 6f 20 68 61 76 65 0a 3b 3b 3b 20 58 52 45 46 2d 46 49 | ce.in.a.file.to.have.;;;.XREF-FI |
| 5220 | 4c 45 20 69 67 6e 6f 72 65 20 61 20 72 65 67 69 6f 6e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 53 68 6f 75 | LE.ignore.a.region..;;;.;;;.Shou |
| 5240 | 6c 64 20 77 65 20 64 69 73 74 69 6e 67 75 69 73 68 20 66 6c 65 74 20 61 6e 64 20 6c 61 62 65 6c | ld.we.distinguish.flet.and.label |
| 5260 | 73 20 66 72 6f 6d 20 64 65 66 75 6e 3f 20 49 2e 65 2e 2c 20 6e 6f 74 65 20 74 68 61 74 0a 3b 3b | s.from.defun?.I.e.,.note.that.;; |
| 5280 | 3b 20 66 6c 65 74 27 73 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 61 72 65 20 6c 6f 63 61 6c 6c 79 | ;.flet's.definitions.are.locally |
| 52a0 | 20 64 65 66 69 6e 65 64 2c 20 69 6e 73 74 65 61 64 20 6f 66 20 6a 75 73 74 20 6c 75 6d 70 69 6e | .defined,.instead.of.just.lumpin |
| 52c0 | 67 0a 3b 3b 3b 20 74 68 65 6d 20 69 6e 20 77 69 74 68 20 72 65 67 75 6c 61 72 20 64 65 66 69 6e | g.;;;.them.in.with.regular.defin |
| 52e0 | 69 74 69 6f 6e 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 41 64 64 20 70 61 74 74 65 72 6e 73 20 66 6f 72 | itions..;;;.;;;.Add.patterns.for |
| 5300 | 20 73 65 72 69 65 73 2c 20 6c 6f 6f 70 20 6d 61 63 72 6f 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4e 65 65 | .series,.loop.macro..;;;.;;;.Nee |
| 5320 | 64 20 74 6f 20 69 6e 74 65 67 72 61 74 65 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 72 65 66 65 | d.to.integrate.the.variable.refe |
| 5340 | 72 65 6e 63 65 20 64 61 74 61 62 61 73 65 20 77 69 74 68 20 74 68 65 20 6f 74 68 65 72 0a 3b 3b | rence.database.with.the.other.;; |
| 5360 | 3b 20 64 61 74 61 62 61 73 65 73 2c 20 79 65 74 20 6d 61 69 6e 74 61 69 6e 20 73 65 70 61 72 61 | ;.databases,.yet.maintain.separa |
| 5380 | 74 69 6f 6e 2e 20 53 6f 20 77 65 20 63 61 6e 20 64 69 73 74 69 6e 67 75 69 73 68 20 61 6c 6c 0a | tion..So.we.can.distinguish.all. |
| 53a0 | 3b 3b 3b 20 74 68 65 20 64 69 66 66 65 72 65 6e 74 20 74 79 70 65 73 20 6f 66 20 76 61 72 69 61 | ;;;.the.different.types.of.varia |
| 53c0 | 62 6c 65 20 61 6e 64 20 66 75 6e 63 74 69 6f 6e 20 72 65 66 65 72 65 6e 63 65 73 2c 20 77 69 74 | ble.and.function.references,.wit |
| 53e0 | 68 6f 75 74 0a 3b 3b 3b 20 6d 75 6c 74 69 70 6c 79 69 6e 67 20 64 61 74 61 62 61 73 65 73 2e 0a | hout.;;;.multiplying.databases.. |
| 5400 | 3b 3b 3b 0a 3b 3b 3b 20 57 6f 75 6c 64 20 70 61 79 20 74 6f 20 63 6f 6d 6d 65 6e 74 20 72 65 63 | ;;;.;;;.Would.pay.to.comment.rec |
| 5420 | 6f 72 64 2d 63 61 6c 6c 65 72 73 20 61 6e 64 20 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 2a 20 | ord-callers.and.record-callers*. |
| 5440 | 69 6e 20 6d 6f 72 65 0a 3b 3b 3b 20 64 65 70 74 68 2e 0a 3b 3b 3b 20 0a 3b 3b 3b 20 28 26 4f 50 | in.more.;;;.depth..;;;..;;;.(&OP |
| 5460 | 54 49 4f 4e 41 4c 20 26 52 45 53 54 20 26 4b 45 59 20 26 41 55 58 20 26 42 4f 44 59 20 26 57 48 | TIONAL.&REST.&KEY.&AUX.&BODY.&WH |
| 5480 | 4f 4c 45 20 26 41 4c 4c 4f 57 2d 4f 54 48 45 52 2d 4b 45 59 53 20 26 45 4e 56 49 52 4f 4e 4d 45 | OLE.&ALLOW-OTHER-KEYS.&ENVIRONME |
| 54a0 | 4e 54 29 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | NT)...;;;.********************** |
| 54c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 4e 6f 74 65 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | **********.;;;.Notes.*********** |
| 54e0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***************.;;;.************ |
| 5500 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 | ********************.;;;.;;;.... |
| 5520 | 58 52 45 46 20 68 61 73 20 62 65 65 6e 20 74 65 73 74 65 64 20 28 73 75 63 63 65 73 73 66 75 6c | XREF.has.been.tested.(successful |
| 5540 | 6c 79 29 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 73 70 73 3a 0a 3b 3b 3b 20 | ly).in.the.following.lisps:.;;;. |
| 5560 | 20 20 20 20 20 20 43 4d 55 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 4d 32 2e 39 20 31 35 2d 41 | ......CMU.Common.Lisp.(M2.9.15-A |
| 5580 | 75 67 2d 39 30 2c 20 43 6f 6d 70 69 6c 65 72 20 4d 31 2e 38 20 31 35 2d 41 75 67 2d 39 30 29 0a | ug-90,.Compiler.M1.8.15-Aug-90). |
| 55a0 | 3b 3b 3b 20 20 20 20 20 20 20 4d 61 63 69 6e 74 6f 73 68 20 41 6c 6c 65 67 72 6f 20 43 6f 6d 6d | ;;;.......Macintosh.Allegro.Comm |
| 55c0 | 6f 6e 20 4c 69 73 70 20 28 31 2e 33 2e 32 29 0a 3b 3b 3b 20 20 20 20 20 20 20 45 78 43 4c 20 28 | on.Lisp.(1.3.2).;;;.......ExCL.( |
| 55e0 | 46 72 61 6e 7a 20 41 6c 6c 65 67 72 6f 20 43 4c 20 33 2e 31 2e 31 32 20 5b 44 45 43 20 33 31 30 | Franz.Allegro.CL.3.1.12.[DEC.310 |
| 5600 | 30 5d 20 33 2f 33 30 2f 39 30 29 0a 3b 3b 3b 20 20 20 20 20 20 20 4c 75 63 69 64 20 43 4c 20 28 | 0].3/30/90).;;;.......Lucid.CL.( |
| 5620 | 56 65 72 73 69 6f 6e 20 32 2e 31 20 36 2d 44 45 43 2d 38 37 29 0a 3b 3b 3b 20 20 20 20 0a 3b 3b | Version.2.1.6-DEC-87).;;;.....;; |
| 5640 | 3b 20 20 20 20 58 52 45 46 20 68 61 73 20 62 65 65 6e 20 74 65 73 74 65 64 20 28 75 6e 73 75 63 | ;....XREF.has.been.tested.(unsuc |
| 5660 | 63 65 73 73 66 75 6c 6c 79 29 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 73 70 | cessfully).in.the.following.lisp |
| 5680 | 73 3a 0a 3b 3b 3b 20 20 20 20 20 20 20 49 62 75 6b 69 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 | s:.;;;.......Ibuki.Common.Lisp.( |
| 56a0 | 30 31 2f 30 31 2c 20 4f 63 74 6f 62 65 72 20 31 35 2c 20 31 39 38 37 29 0a 3b 3b 3b 20 20 20 20 | 01/01,.October.15,.1987).;;;.... |
| 56c0 | 20 20 20 20 20 20 20 2d 20 69 66 20 69 6e 74 65 72 70 72 65 74 65 64 2c 20 72 75 6e 73 20 69 6e | .......-.if.interpreted,.runs.in |
| 56e0 | 74 6f 20 73 74 61 63 6b 20 6f 76 65 72 66 6c 6f 77 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 | to.stack.overflow.;;;........... |
| 5700 | 2d 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6d 70 69 6c 65 20 28 74 72 69 65 64 20 69 62 63 6c 20 6f | -.does.not.compile.(tried.ibcl.o |
| 5720 | 6e 20 53 75 6e 73 2c 20 50 4d 41 58 65 73 20 61 6e 64 20 52 54 73 29 0a 3b 3b 3b 20 20 20 20 20 | n.Suns,.PMAXes.and.RTs).;;;..... |
| 5740 | 20 20 20 20 20 20 20 20 73 65 65 6d 73 20 74 6f 20 62 65 20 64 75 65 20 74 6f 20 61 20 6c 69 6d | ........seems.to.be.due.to.a.lim |
| 5760 | 69 74 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 20 63 6f 6d 70 69 6c 65 72 2e 0a 3b 3b 3b 20 20 | itation.in.the.c.compiler..;;;.. |
| 5780 | 20 20 0a 3b 3b 3b 20 20 20 20 58 52 45 46 20 6e 65 65 64 73 20 74 6f 20 62 65 20 74 65 73 74 65 | ...;;;....XREF.needs.to.be.teste |
| 57a0 | 64 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 73 70 73 3a 0a 3b 3b 3b 20 20 20 | d.in.the.following.lisps:.;;;... |
| 57c0 | 20 20 20 20 53 79 6d 62 6f 6c 69 63 73 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 38 2e 30 29 0a | ....Symbolics.Common.Lisp.(8.0). |
| 57e0 | 3b 3b 3b 20 20 20 20 20 20 20 4c 75 63 69 64 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 33 2e 30 | ;;;.......Lucid.Common.Lisp.(3.0 |
| 5800 | 2c 20 34 2e 30 29 0a 3b 3b 3b 20 20 20 20 20 20 20 4b 43 4c 20 28 4a 75 6e 65 20 33 2c 20 31 39 | ,.4.0).;;;.......KCL.(June.3,.19 |
| 5820 | 38 37 20 6f 72 20 6c 61 74 65 72 29 0a 3b 3b 3b 20 20 20 20 20 20 20 41 4b 43 4c 20 28 31 2e 38 | 87.or.later).;;;.......AKCL.(1.8 |
| 5840 | 36 2c 20 4a 75 6e 65 20 33 30 2c 20 31 39 38 37 20 6f 72 20 6c 61 74 65 72 29 0a 3b 3b 3b 20 20 | 6,.June.30,.1987.or.later).;;;.. |
| 5860 | 20 20 20 20 20 54 49 20 28 52 65 6c 65 61 73 65 20 34 2e 31 20 6f 72 20 6c 61 74 65 72 29 0a 3b | .....TI.(Release.4.1.or.later).; |
| 5880 | 3b 3b 20 20 20 20 20 20 20 47 6f 6c 64 65 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 33 2e 31 | ;;.......Golden.Common.Lisp.(3.1 |
| 58a0 | 20 49 42 4d 2d 50 43 29 0a 3b 3b 3b 20 20 20 20 20 20 20 56 41 58 4c 69 73 70 20 28 32 2e 30 2c | .IBM-PC).;;;.......VAXLisp.(2.0, |
| 58c0 | 20 33 2e 31 29 0a 3b 3b 3b 20 20 20 20 20 20 20 48 50 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 | .3.1).;;;.......HP.Common.Lisp.( |
| 58e0 | 73 61 6d 65 20 61 73 20 4c 75 63 69 64 3f 29 0a 3b 3b 3b 20 20 20 20 20 20 20 50 72 6f 63 79 6f | same.as.Lucid?).;;;.......Procyo |
| 5900 | 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 0a 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | n.Common.Lisp....;;;.*********** |
| 5920 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 5940 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 44 6f 63 75 6d 65 | *********************.;;;.Docume |
| 5960 | 6e 74 61 74 69 6f 6e 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ntation.************************ |
| 5980 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a | **************************.;;;.* |
| 59a0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 59c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a | *******************************. |
| 59e0 | 3b 3b 3b 0a 3b 3b 3b 20 58 52 45 46 20 61 6e 61 6c 79 7a 65 73 20 61 20 75 73 65 72 27 73 20 70 | ;;;.;;;.XREF.analyzes.a.user's.p |
| 5a00 | 72 6f 67 72 61 6d 2c 20 64 65 74 65 72 6d 69 6e 69 6e 67 20 77 68 69 63 68 20 66 75 6e 63 74 69 | rogram,.determining.which.functi |
| 5a20 | 6f 6e 73 20 63 61 6c 6c 20 61 0a 3b 3b 3b 20 67 69 76 65 6e 20 66 75 6e 63 74 69 6f 6e 2c 20 61 | ons.call.a.;;;.given.function,.a |
| 5a40 | 6e 64 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 77 68 65 72 65 20 76 61 72 69 61 62 6c | nd.the.location.of.where.variabl |
| 5a60 | 65 73 20 61 72 65 20 62 6f 75 6e 64 2f 61 73 73 69 67 6e 65 64 0a 3b 3b 3b 20 61 6e 64 20 75 73 | es.are.bound/assigned.;;;.and.us |
| 5a80 | 65 64 2e 20 54 68 65 20 75 73 65 72 20 6d 61 79 20 72 65 74 72 69 65 76 65 20 74 68 69 73 20 69 | ed..The.user.may.retrieve.this.i |
| 5aa0 | 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 65 69 74 68 65 72 20 61 20 73 69 6e 67 6c 65 0a 3b | nformation.for.either.a.single.; |
| 5ac0 | 3b 3b 20 73 79 6d 62 6f 6c 2c 20 6f 72 20 64 69 73 70 6c 61 79 20 74 68 65 20 63 61 6c 6c 20 67 | ;;.symbol,.or.display.the.call.g |
| 5ae0 | 72 61 70 68 20 6f 66 20 70 6f 72 74 69 6f 6e 73 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 0a | raph.of.portions.of.the.program. |
| 5b00 | 3b 3b 3b 20 28 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 20 65 6e 74 69 72 65 20 70 72 6f 67 72 61 | ;;;.(including.the.entire.progra |
| 5b20 | 6d 29 2e 20 54 68 69 73 20 61 6c 6c 6f 77 73 20 74 68 65 20 70 72 6f 67 72 61 6d 6d 65 72 20 74 | m)..This.allows.the.programmer.t |
| 5b40 | 6f 20 64 65 62 75 67 0a 3b 3b 3b 20 61 6e 64 20 64 6f 63 75 6d 65 6e 74 20 74 68 65 20 70 72 6f | o.debug.;;;.and.document.the.pro |
| 5b60 | 67 72 61 6d 27 73 20 73 74 72 75 63 74 75 72 65 2e 0a 3b 3b 3b 20 0a 3b 3b 3b 20 58 52 45 46 20 | gram's.structure..;;;..;;;.XREF. |
| 5b80 | 69 73 20 70 72 69 6d 61 72 69 6c 79 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 61 6e 61 6c 79 7a | is.primarily.intended.for.analyz |
| 5ba0 | 69 6e 67 20 6c 61 72 67 65 20 70 72 6f 67 72 61 6d 73 2c 20 77 68 65 72 65 20 69 74 20 69 73 0a | ing.large.programs,.where.it.is. |
| 5bc0 | 3b 3b 3b 20 64 69 66 66 69 63 75 6c 74 2c 20 69 66 20 6e 6f 74 20 69 6d 70 6f 73 73 69 62 6c 65 | ;;;.difficult,.if.not.impossible |
| 5be0 | 2c 20 66 6f 72 20 74 68 65 20 70 72 6f 67 72 61 6d 6d 65 72 20 74 6f 20 67 72 61 73 70 20 74 68 | ,.for.the.programmer.to.grasp.th |
| 5c00 | 65 20 73 74 72 75 63 74 75 72 65 0a 3b 3b 3b 20 6f 66 20 74 68 65 20 77 68 6f 6c 65 20 70 72 6f | e.structure.;;;.of.the.whole.pro |
| 5c20 | 67 72 61 6d 2e 20 4e 6f 74 68 69 6e 67 20 70 72 65 63 6c 75 64 65 73 20 75 73 69 6e 67 20 58 52 | gram..Nothing.precludes.using.XR |
| 5c40 | 45 46 20 66 6f 72 20 73 6d 61 6c 6c 65 72 20 70 72 6f 67 72 61 6d 73 2c 0a 3b 3b 3b 20 77 68 65 | EF.for.smaller.programs,.;;;.whe |
| 5c60 | 72 65 20 69 74 20 63 61 6e 20 62 65 20 75 73 65 66 75 6c 20 66 6f 72 20 69 6e 73 70 65 63 74 69 | re.it.can.be.useful.for.inspecti |
| 5c80 | 6e 67 20 74 68 65 20 72 65 6c 61 74 69 6f 6e 73 68 69 70 73 20 62 65 74 77 65 65 6e 20 70 69 65 | ng.the.relationships.between.pie |
| 5ca0 | 63 65 73 0a 3b 3b 3b 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 20 61 6e 64 20 66 6f 72 20 64 | ces.;;;.of.the.program.and.for.d |
| 5cc0 | 6f 63 75 6d 65 6e 74 69 6e 67 20 74 68 65 20 70 72 6f 67 72 61 6d 2e 0a 3b 3b 3b 20 0a 3b 3b 3b | ocumenting.the.program..;;;..;;; |
| 5ce0 | 20 54 77 6f 20 61 73 70 65 63 74 73 20 6f 66 20 74 68 65 20 4c 69 73 70 20 70 72 6f 67 72 61 6d | .Two.aspects.of.the.Lisp.program |
| 5d00 | 6d 69 6e 67 20 6c 61 6e 67 75 61 67 65 20 67 72 65 61 74 6c 79 20 73 69 6d 70 6c 69 66 79 20 74 | ming.language.greatly.simplify.t |
| 5d20 | 68 65 0a 3b 3b 3b 20 61 6e 61 6c 79 73 69 73 20 6f 66 20 4c 69 73 70 20 70 72 6f 67 72 61 6d 73 | he.;;;.analysis.of.Lisp.programs |
| 5d40 | 3a 0a 3b 3b 3b 20 09 6f 20 20 4c 69 73 70 20 70 72 6f 67 72 61 6d 73 20 61 72 65 20 6e 61 74 75 | :.;;;..o..Lisp.programs.are.natu |
| 5d60 | 72 61 6c 6c 79 20 72 65 70 72 65 73 65 6e 74 65 64 20 61 73 20 64 61 74 61 2e 0a 3b 3b 3b 20 09 | rally.represented.as.data..;;;.. |
| 5d80 | 20 20 20 53 75 63 63 65 73 73 69 76 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 72 6f 6d 20 61 | ...Successive.definitions.from.a |
| 5da0 | 20 66 69 6c 65 20 61 72 65 20 65 61 73 69 6c 79 20 72 65 61 64 20 69 6e 0a 3b 3b 3b 20 09 20 20 | .file.are.easily.read.in.;;;.... |
| 5dc0 | 20 61 73 20 6c 69 73 74 20 73 74 72 75 63 74 75 72 65 2e 0a 3b 3b 3b 20 09 6f 20 20 54 68 65 20 | .as.list.structure..;;;..o..The. |
| 5de0 | 62 61 73 69 63 20 73 79 6e 74 61 78 20 6f 66 20 4c 69 73 70 20 69 73 20 75 6e 69 66 6f 72 6d 2e | basic.syntax.of.Lisp.is.uniform. |
| 5e00 | 20 41 20 6c 69 73 74 20 70 72 6f 67 72 61 6d 0a 3b 3b 3b 20 09 20 20 20 63 6f 6e 73 69 73 74 73 | .A.list.program.;;;.....consists |
| 5e20 | 20 6f 66 20 61 20 73 65 74 20 6f 66 20 6e 65 73 74 65 64 20 66 6f 72 6d 73 2c 20 77 68 65 72 65 | .of.a.set.of.nested.forms,.where |
| 5e40 | 20 65 61 63 68 20 66 6f 72 6d 20 69 73 0a 3b 3b 3b 20 09 20 20 20 61 20 6c 69 73 74 20 77 68 6f | .each.form.is.;;;.....a.list.who |
| 5e60 | 73 65 20 63 61 72 20 69 73 20 61 20 74 61 67 20 28 65 2e 67 2e 2c 20 66 75 6e 63 74 69 6f 6e 20 | se.car.is.a.tag.(e.g.,.function. |
| 5e80 | 6e 61 6d 65 29 20 74 68 61 74 0a 3b 3b 3b 20 09 20 20 20 73 70 65 63 69 66 69 65 73 20 74 68 65 | name).that.;;;.....specifies.the |
| 5ea0 | 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 65 20 66 6f | .structure.of.the.rest.of.the.fo |
| 5ec0 | 72 6d 2e 0a 3b 3b 3b 20 54 68 75 73 20 4c 69 73 70 20 70 72 6f 67 72 61 6d 73 2c 20 77 68 65 6e | rm..;;;.Thus.Lisp.programs,.when |
| 5ee0 | 20 72 65 70 72 65 73 65 6e 74 65 64 20 61 73 20 64 61 74 61 2c 20 63 61 6e 20 62 65 20 63 6f 6e | .represented.as.data,.can.be.con |
| 5f00 | 73 69 64 65 72 65 64 20 74 6f 20 62 65 0a 3b 3b 3b 20 70 61 72 73 65 20 74 72 65 65 73 2e 20 47 | sidered.to.be.;;;.parse.trees..G |
| 5f20 | 69 76 65 6e 20 61 20 67 72 61 6d 6d 61 72 20 6f 66 20 73 79 6e 74 61 78 20 70 61 74 74 65 72 6e | iven.a.grammar.of.syntax.pattern |
| 5f40 | 73 20 66 6f 72 20 74 68 65 20 6c 61 6e 67 75 61 67 65 2c 20 58 52 45 46 0a 3b 3b 3b 20 72 65 63 | s.for.the.language,.XREF.;;;.rec |
| 5f60 | 75 72 73 69 76 65 6c 79 20 64 65 73 63 65 6e 64 73 20 74 68 65 20 70 61 72 73 65 20 74 72 65 65 | ursively.descends.the.parse.tree |
| 5f80 | 20 66 6f 72 20 61 20 67 69 76 65 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2c 20 63 6f 6d 70 75 74 69 | .for.a.given.definition,.computi |
| 5fa0 | 6e 67 0a 3b 3b 3b 20 61 20 73 65 74 20 6f 66 20 72 65 6c 61 74 69 6f 6e 73 20 74 68 61 74 20 68 | ng.;;;.a.set.of.relations.that.h |
| 5fc0 | 6f 6c 64 20 66 6f 72 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 61 74 20 65 61 63 68 20 6e | old.for.the.definition.at.each.n |
| 5fe0 | 6f 64 65 20 69 6e 20 74 68 65 0a 3b 3b 3b 20 74 72 65 65 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 | ode.in.the.;;;.tree..For.example |
| 6000 | 2c 20 6f 6e 65 20 6b 69 6e 64 20 6f 66 20 72 65 6c 61 74 69 6f 6e 20 69 73 20 74 68 61 74 20 74 | ,.one.kind.of.relation.is.that.t |
| 6020 | 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 66 69 6e 65 64 0a 3b 3b 3b 20 62 79 20 74 68 65 20 64 | he.function.defined.;;;.by.the.d |
| 6040 | 65 66 69 6e 69 74 69 6f 6e 20 63 61 6c 6c 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e | efinition.calls.the.functions.in |
| 6060 | 20 69 74 73 20 62 6f 64 79 2e 20 54 68 65 20 72 65 6c 61 74 69 6f 6e 73 20 61 72 65 0a 3b 3b 3b | .its.body..The.relations.are.;;; |
| 6080 | 20 73 74 6f 72 65 64 20 69 6e 20 61 20 64 61 74 61 62 61 73 65 20 66 6f 72 20 6c 61 74 65 72 20 | .stored.in.a.database.for.later. |
| 60a0 | 65 78 61 6d 69 6e 61 74 69 6f 6e 20 62 79 20 74 68 65 20 75 73 65 72 2e 0a 3b 3b 3b 20 0a 3b 3b | examination.by.the.user..;;;..;; |
| 60c0 | 3b 20 57 68 69 6c 65 20 58 52 45 46 20 63 75 72 72 65 6e 74 6c 79 20 6f 6e 6c 79 20 77 6f 72 6b | ;.While.XREF.currently.only.work |
| 60e0 | 73 20 66 6f 72 20 70 72 6f 67 72 61 6d 73 20 77 72 69 74 74 65 6e 20 69 6e 20 4c 69 73 70 2c 20 | s.for.programs.written.in.Lisp,. |
| 6100 | 69 74 20 63 6f 75 6c 64 0a 3b 3b 3b 20 62 65 20 65 78 74 65 6e 64 65 64 20 74 6f 20 6f 74 68 65 | it.could.;;;.be.extended.to.othe |
| 6120 | 72 20 70 72 6f 67 72 61 6d 6d 69 6e 67 20 6c 61 6e 67 75 61 67 65 73 20 62 79 20 77 72 69 74 69 | r.programming.languages.by.writi |
| 6140 | 6e 67 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 6f 0a 3b 3b 3b 20 67 65 6e 65 72 61 74 65 20 70 61 | ng.a.function.to.;;;.generate.pa |
| 6160 | 72 73 65 20 74 72 65 65 73 20 66 6f 72 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 69 6e 20 74 68 61 | rse.trees.for.definitions.in.tha |
| 6180 | 74 20 6c 61 6e 67 75 61 67 65 2c 20 61 6e 64 20 61 20 63 6f 72 65 0a 3b 3b 3b 20 73 65 74 20 6f | t.language,.and.a.core.;;;.set.o |
| 61a0 | 66 20 70 61 74 74 65 72 6e 73 20 66 6f 72 20 74 68 65 20 6c 61 6e 67 75 61 67 65 27 73 20 73 79 | f.patterns.for.the.language's.sy |
| 61c0 | 6e 74 61 78 2e 0a 3b 3b 3b 20 0a 3b 3b 3b 20 53 69 6e 63 65 20 58 52 45 46 20 6e 6f 72 6d 61 6c | ntax..;;;..;;;.Since.XREF.normal |
| 61e0 | 6c 79 20 64 6f 65 73 20 61 20 73 74 61 74 69 63 20 73 79 6e 74 61 63 74 69 63 20 61 6e 61 6c 79 | ly.does.a.static.syntactic.analy |
| 6200 | 73 69 73 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 2c 20 0a 3b 3b 3b 20 69 74 20 64 6f 65 73 | sis.of.the.program,..;;;.it.does |
| 6220 | 20 6e 6f 74 20 64 65 74 65 63 74 20 72 65 66 65 72 65 6e 63 65 73 20 64 75 65 20 74 6f 20 74 68 | .not.detect.references.due.to.th |
| 6240 | 65 20 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 61 20 6d 61 63 72 6f 20 64 65 66 69 6e 69 74 69 6f | e.expansion.of.a.macro.definitio |
| 6260 | 6e 2e 20 0a 3b 3b 3b 20 54 6f 20 64 6f 20 74 68 69 73 20 69 6e 20 66 75 6c 6c 20 67 65 6e 65 72 | n...;;;.To.do.this.in.full.gener |
| 6280 | 61 6c 69 74 79 20 58 52 45 46 20 77 6f 75 6c 64 20 68 61 76 65 20 74 6f 20 68 61 76 65 20 6b 6e | ality.XREF.would.have.to.have.kn |
| 62a0 | 6f 77 6c 65 64 67 65 20 61 62 6f 75 74 20 74 68 65 0a 3b 3b 3b 20 73 65 6d 61 6e 74 69 63 73 20 | owledge.about.the.;;;.semantics. |
| 62c0 | 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 20 28 65 2e 67 2e 2c 20 6d 61 63 72 6f 73 20 77 68 69 | of.the.program.(e.g.,.macros.whi |
| 62e0 | 63 68 20 63 61 6c 6c 20 6f 74 68 65 72 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 0a 3b 3b 3b 20 64 | ch.call.other.functions.to.;;;.d |
| 6300 | 6f 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 29 2e 20 54 68 69 73 20 65 6e 74 61 69 6c 73 20 65 | o.the.expansion)..This.entails.e |
| 6320 | 69 74 68 65 72 20 6d 6f 64 69 66 79 69 6e 67 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 74 6f 0a | ither.modifying.the.compiler.to. |
| 6340 | 3b 3b 3b 20 72 65 63 6f 72 64 20 74 68 65 20 72 65 6c 61 74 69 6f 6e 73 68 69 70 73 20 28 65 2e | ;;;.record.the.relationships.(e. |
| 6360 | 67 2e 2c 20 53 79 6d 62 6f 6c 69 63 73 20 57 68 6f 2d 43 61 6c 6c 73 20 44 61 74 61 62 61 73 65 | g.,.Symbolics.Who-Calls.Database |
| 6380 | 29 20 6f 72 20 64 6f 69 6e 67 0a 3b 3b 3b 20 61 20 77 61 6c 6b 20 6f 66 20 6c 6f 61 64 65 64 20 | ).or.doing.;;;.a.walk.of.loaded. |
| 63a0 | 63 6f 64 65 20 61 6e 64 20 6d 61 63 72 6f 65 78 70 61 6e 64 69 6e 67 20 61 73 20 6e 65 65 64 65 | code.and.macroexpanding.as.neede |
| 63c0 | 64 20 28 50 43 4c 20 63 6f 64 65 20 77 61 6c 6b 65 72 29 2e 0a 3b 3b 3b 20 54 68 65 20 66 6f 72 | d.(PCL.code.walker)..;;;.The.for |
| 63e0 | 6d 65 72 20 69 73 20 6e 6f 74 20 70 6f 72 74 61 62 6c 65 2c 20 77 68 69 6c 65 20 74 68 65 20 6c | mer.is.not.portable,.while.the.l |
| 6400 | 61 74 74 65 72 20 72 65 71 75 69 72 65 73 20 74 68 61 74 20 74 68 65 20 63 6f 64 65 0a 3b 3b 3b | atter.requires.that.the.code.;;; |
| 6420 | 20 75 73 65 64 20 62 79 20 6d 61 63 72 6f 73 20 62 65 20 6c 6f 61 64 65 64 20 61 6e 64 20 69 6e | .used.by.macros.be.loaded.and.in |
| 6440 | 20 77 6f 72 6b 69 6e 67 20 6f 72 64 65 72 2e 20 4f 6e 20 74 68 65 20 6f 74 68 65 72 20 68 61 6e | .working.order..On.the.other.han |
| 6460 | 64 2c 20 74 68 65 6e 0a 3b 3b 3b 20 77 65 20 77 6f 75 6c 64 20 6e 65 65 64 20 6e 6f 20 73 70 65 | d,.then.;;;.we.would.need.no.spe |
| 6480 | 63 69 61 6c 20 6b 6e 6f 77 6c 65 64 67 65 20 61 62 6f 75 74 20 6d 61 63 72 6f 73 20 28 65 78 63 | cial.knowledge.about.macros.(exc |
| 64a0 | 6c 75 64 69 6e 67 20 74 68 65 20 32 34 20 73 70 65 63 69 61 6c 0a 3b 3b 3b 20 66 6f 72 6d 73 20 | luding.the.24.special.;;;.forms. |
| 64c0 | 6f 66 20 4c 69 73 70 29 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 50 61 72 61 6d 65 74 65 72 73 20 6d 61 79 | of.Lisp)..;;;.;;;.Parameters.may |
| 64e0 | 20 62 65 20 73 65 74 20 74 6f 20 65 6e 61 62 6c 65 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f | .be.set.to.enable.macro.expansio |
| 6500 | 6e 20 69 6e 20 58 52 45 46 2e 20 54 68 65 6e 20 58 52 45 46 0a 3b 3b 3b 20 77 69 6c 6c 20 65 78 | n.in.XREF..Then.XREF.;;;.will.ex |
| 6520 | 70 61 6e 64 20 61 6e 79 20 6d 61 63 72 6f 73 20 66 6f 72 20 77 68 69 63 68 20 69 74 20 64 6f 65 | pand.any.macros.for.which.it.doe |
| 6540 | 73 20 6e 6f 74 20 68 61 76 65 20 70 72 65 64 65 66 69 6e 65 64 20 70 61 74 74 65 72 6e 73 2e 0a | s.not.have.predefined.patterns.. |
| 6560 | 3b 3b 3b 20 28 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 6d 6f 73 74 20 4c 69 73 70 73 20 77 69 6c | ;;;.(For.example,.most.Lisps.wil |
| 6580 | 6c 20 69 6d 70 6c 65 6d 65 6e 74 20 64 6f 6c 69 73 74 20 61 73 20 61 20 6d 61 63 72 6f 2e 20 53 | l.implement.dolist.as.a.macro..S |
| 65a0 | 69 6e 63 65 20 58 52 45 46 0a 3b 3b 3b 20 68 61 73 20 61 20 70 61 74 74 65 72 6e 20 64 65 66 69 | ince.XREF.;;;.has.a.pattern.defi |
| 65c0 | 6e 65 64 20 66 6f 72 20 64 6f 6c 69 73 74 2c 20 69 74 20 77 69 6c 6c 20 6e 6f 74 20 63 61 6c 6c | ned.for.dolist,.it.will.not.call |
| 65e0 | 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 6f 6e 0a 3b 3b 3b 20 61 20 66 6f 72 6d 20 77 68 6f | .macroexpand-1.on.;;;.a.form.who |
| 6600 | 73 65 20 63 61 72 20 69 73 20 64 6f 6c 69 73 74 2e 29 20 46 6f 72 20 74 68 69 73 20 74 6f 20 77 | se.car.is.dolist.).For.this.to.w |
| 6620 | 6f 72 6b 20 70 72 6f 70 65 72 6c 79 2c 20 74 68 65 20 63 6f 64 65 20 6d 75 73 74 0a 3b 3b 3b 20 | ork.properly,.the.code.must.;;;. |
| 6640 | 62 65 20 6c 6f 61 64 65 64 20 62 65 66 6f 72 65 20 62 65 69 6e 67 20 70 72 6f 63 65 73 73 65 64 | be.loaded.before.being.processed |
| 6660 | 20 62 79 20 58 52 45 46 2c 20 61 6e 64 20 58 52 45 46 27 73 20 70 61 72 61 6d 65 74 65 72 73 20 | .by.XREF,.and.XREF's.parameters. |
| 6680 | 73 68 6f 75 6c 64 0a 3b 3b 3b 20 62 65 20 73 65 74 20 73 6f 20 74 68 61 74 20 69 74 20 70 72 6f | should.;;;.be.set.so.that.it.pro |
| 66a0 | 63 65 73 73 65 73 20 66 6f 72 6d 73 20 69 6e 20 74 68 65 69 72 20 70 72 6f 70 65 72 20 70 61 63 | cesses.forms.in.their.proper.pac |
| 66c0 | 6b 61 67 65 73 2e 20 0a 3b 3b 3b 0a 3b 3b 3b 20 49 66 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 | kages...;;;.;;;.If.macro.expansi |
| 66e0 | 6f 6e 20 69 73 20 64 69 73 61 62 6c 65 64 2c 20 74 68 65 20 64 65 66 61 75 6c 74 20 72 75 6c 65 | on.is.disabled,.the.default.rule |
| 6700 | 73 20 66 6f 72 20 68 61 6e 64 6c 69 6e 67 20 6d 61 63 72 6f 0a 3b 3b 3b 20 72 65 66 65 72 65 6e | s.for.handling.macro.;;;.referen |
| 6720 | 63 65 73 20 6d 61 79 20 6e 6f 74 20 62 65 20 73 75 66 66 69 63 69 65 6e 74 20 66 6f 72 20 73 6f | ces.may.not.be.sufficient.for.so |
| 6740 | 6d 65 20 75 73 65 72 2d 64 65 66 69 6e 65 64 20 6d 61 63 72 6f 73 2c 20 62 65 63 61 75 73 65 0a | me.user-defined.macros,.because. |
| 6760 | 3b 3b 3b 20 6d 61 63 72 6f 73 20 61 6c 6c 6f 77 20 61 20 76 61 72 69 65 74 79 20 6f 66 20 6e 6f | ;;;.macros.allow.a.variety.of.no |
| 6780 | 6e 2d 73 74 61 6e 64 61 72 64 20 73 79 6e 74 61 63 74 69 63 20 65 78 74 65 6e 73 69 6f 6e 73 20 | n-standard.syntactic.extensions. |
| 67a0 | 74 6f 20 74 68 65 0a 3b 3b 3b 20 6c 61 6e 67 75 61 67 65 2e 20 49 6e 20 74 68 69 73 20 63 61 73 | to.the.;;;.language..In.this.cas |
| 67c0 | 65 2c 20 74 68 65 20 75 73 65 72 20 6d 61 79 20 73 70 65 63 69 66 79 20 61 64 64 69 74 69 6f 6e | e,.the.user.may.specify.addition |
| 67e0 | 61 6c 20 74 65 6d 70 6c 61 74 65 73 20 69 6e 0a 3b 3b 3b 20 61 20 6d 61 6e 6e 65 72 20 73 69 6d | al.templates.in.;;;.a.manner.sim |
| 6800 | 69 6c 61 72 20 74 6f 20 74 68 61 74 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 63 6f 72 65 20 4c | ilar.to.that.in.which.the.core.L |
| 6820 | 69 73 70 20 67 72 61 6d 6d 61 72 20 77 61 73 20 73 70 65 63 69 66 69 65 64 2e 0a 3b 3b 3b 0a 0a | isp.grammar.was.specified..;;;.. |
| 6840 | 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ..;;;.************************** |
| 6860 | 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 55 73 65 72 20 47 75 69 64 65 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******.;;;.User.Guide.********** |
| 6880 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***********.;;;.**************** |
| 68a0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2d 2d 2d 2d 2d 0a 3b 3b 3b 20 54 | ****************.;;;.-----.;;;.T |
| 68c0 | 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 63 61 6c 6c 65 | he.following.functions.are.calle |
| 68e0 | 64 20 74 6f 20 63 72 6f 73 73 20 72 65 66 65 72 65 6e 63 65 20 74 68 65 20 73 6f 75 72 63 65 20 | d.to.cross.reference.the.source. |
| 6900 | 66 69 6c 65 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 58 52 45 46 2d 46 49 4c 45 53 20 28 26 72 65 73 74 | files..;;;.;;;.XREF-FILES.(&rest |
| 6920 | 20 66 69 6c 65 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .files)......................... |
| 6940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 46 55 4e 43 54 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 47 | .............[FUNCTION].;;;....G |
| 6960 | 72 6f 76 65 6c 73 20 6f 76 65 72 20 74 68 65 20 6c 69 73 70 20 63 6f 64 65 20 6c 6f 63 61 74 65 | rovels.over.the.lisp.code.locate |
| 6980 | 64 20 69 6e 20 73 6f 75 72 63 65 20 66 69 6c 65 20 46 49 4c 45 53 2c 20 75 73 69 6e 67 0a 3b 3b | d.in.source.file.FILES,.using.;; |
| 69a0 | 3b 20 20 20 20 78 72 65 66 2d 66 69 6c 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 58 52 45 46 2d 46 49 4c | ;....xref-file..;;;.;;;.XREF-FIL |
| 69c0 | 45 20 28 66 69 6c 65 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 63 6c 65 61 72 2d 74 61 62 6c | E.(filename.&optional.clear-tabl |
| 69e0 | 65 73 20 76 65 72 62 6f 73 65 29 20 20 20 20 20 20 20 5b 46 75 6e 63 74 69 6f 6e 5d 0a 3b 3b 3b | es.verbose).......[Function].;;; |
| 6a00 | 20 20 20 20 43 72 6f 73 73 20 72 65 66 65 72 65 6e 63 65 73 20 74 68 65 20 66 75 6e 63 74 69 6f | ....Cross.references.the.functio |
| 6a20 | 6e 20 61 6e 64 20 76 61 72 69 61 62 6c 65 20 63 61 6c 6c 73 20 69 6e 20 46 49 4c 45 4e 41 4d 45 | n.and.variable.calls.in.FILENAME |
| 6a40 | 20 62 79 0a 3b 3b 3b 20 20 20 20 77 61 6c 6b 69 6e 67 20 6f 76 65 72 20 74 68 65 20 73 6f 75 72 | .by.;;;....walking.over.the.sour |
| 6a60 | 63 65 20 63 6f 64 65 20 6c 6f 63 61 74 65 64 20 69 6e 20 74 68 65 20 66 69 6c 65 2e 20 44 65 66 | ce.code.located.in.the.file..Def |
| 6a80 | 61 75 6c 74 73 20 74 79 70 65 20 6f 66 0a 3b 3b 3b 20 20 20 20 66 69 6c 65 6e 61 6d 65 20 74 6f | aults.type.of.;;;....filename.to |
| 6aa0 | 20 22 2e 6c 69 73 70 22 2e 20 43 68 6f 6d 70 73 20 6f 6e 20 74 68 65 20 63 6f 64 65 20 75 73 69 | .".lisp"..Chomps.on.the.code.usi |
| 6ac0 | 6e 67 20 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 61 6e 64 0a 3b 3b 3b 20 20 20 20 72 65 63 | ng.record-callers.and.;;;....rec |
| 6ae0 | 6f 72 64 2d 63 61 6c 6c 65 72 73 2a 2e 20 49 66 20 43 4c 45 41 52 2d 54 41 42 4c 45 53 20 69 73 | ord-callers*..If.CLEAR-TABLES.is |
| 6b00 | 20 54 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 2c 20 69 74 20 63 6c 65 61 72 73 20 74 68 65 0a | .T.(the.default),.it.clears.the. |
| 6b20 | 3b 3b 3b 20 20 20 20 63 61 6c 6c 65 72 73 20 64 61 74 61 62 61 73 65 20 62 65 66 6f 72 65 20 70 | ;;;....callers.database.before.p |
| 6b40 | 72 6f 63 65 73 73 69 6e 67 20 74 68 65 20 66 69 6c 65 2e 20 53 70 65 63 69 66 79 20 43 4c 45 41 | rocessing.the.file..Specify.CLEA |
| 6b60 | 52 2d 54 41 42 4c 45 53 20 61 73 0a 3b 3b 3b 20 20 20 20 6e 69 6c 20 74 6f 20 61 70 70 65 6e 64 | R-TABLES.as.;;;....nil.to.append |
| 6b80 | 20 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 20 49 66 20 56 45 52 42 4f 53 45 20 69 73 20 | .to.the.database..If.VERBOSE.is. |
| 6ba0 | 54 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 2c 20 70 72 69 6e 74 73 0a 3b 3b 3b 20 20 20 20 6f | T.(the.default),.prints.;;;....o |
| 6bc0 | 75 74 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 66 69 6c 65 2c 20 6f 6e 65 20 70 72 6f | ut.the.name.of.the.file,.one.pro |
| 6be0 | 67 72 65 73 73 20 64 6f 74 20 66 6f 72 20 65 61 63 68 20 66 6f 72 6d 20 70 72 6f 63 65 73 73 65 | gress.dot.for.each.form.processe |
| 6c00 | 64 2c 0a 3b 3b 3b 20 20 20 20 61 6e 64 20 74 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f | d,.;;;....and.the.total.number.o |
| 6c20 | 66 20 66 6f 72 6d 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 2d 2d 2d 2d 2d 0a 3b 3b 3b 20 54 68 65 20 66 | f.forms..;;;.;;;.-----.;;;.The.f |
| 6c40 | 6f 6c 6c 6f 77 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 20 64 69 73 70 6c 61 79 20 69 6e 66 6f 72 | ollowing.functions.display.infor |
| 6c60 | 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 20 75 73 65 73 20 6f 66 20 74 68 65 20 0a 3b 3b | mation.about.the.uses.of.the..;; |
| 6c80 | 3b 20 73 70 65 63 69 66 69 65 64 20 73 79 6d 62 6f 6c 20 61 73 20 61 20 66 75 6e 63 74 69 6f 6e | ;.specified.symbol.as.a.function |
| 6ca0 | 2c 20 76 61 72 69 61 62 6c 65 2c 20 6f 72 20 63 6f 6e 73 74 61 6e 74 2e 0a 3b 3b 3b 0a 3b 3b 3b | ,.variable,.or.constant..;;;.;;; |
| 6cc0 | 20 4c 49 53 54 2d 43 41 4c 4c 45 52 53 20 28 73 79 6d 62 6f 6c 29 20 20 20 20 20 20 20 20 20 20 | .LIST-CALLERS.(symbol).......... |
| 6ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b | ...............................[ |
| 6d00 | 46 55 4e 43 54 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 4c 69 73 74 73 20 61 6c 6c 20 66 75 6e 63 74 | FUNCTION].;;;....Lists.all.funct |
| 6d20 | 69 6f 6e 73 20 77 68 69 63 68 20 63 61 6c 6c 20 53 59 4d 42 4f 4c 20 61 73 20 61 20 66 75 6e 63 | ions.which.call.SYMBOL.as.a.func |
| 6d40 | 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 0a 3b 3b 3b 20 20 20 20 69 6e 76 6f 63 61 74 69 6f 6e | tion.(function.;;;....invocation |
| 6d60 | 29 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4c 49 53 54 2d 52 45 41 44 45 52 53 20 28 73 79 6d 62 6f 6c 29 | )..;;;.;;;.LIST-READERS.(symbol) |
| 6d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6da0 | 20 20 20 20 20 20 20 20 20 5b 46 55 4e 43 54 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 4c 69 73 74 73 | .........[FUNCTION].;;;....Lists |
| 6dc0 | 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 72 65 66 65 72 20 74 6f 20 53 59 | .all.functions.which.refer.to.SY |
| 6de0 | 4d 42 4f 4c 20 61 73 20 61 20 76 61 72 69 61 62 6c 65 0a 3b 3b 3b 20 20 20 20 28 76 61 72 69 61 | MBOL.as.a.variable.;;;....(varia |
| 6e00 | 62 6c 65 20 72 65 66 65 72 65 6e 63 65 29 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4c 49 53 54 2d 53 45 54 | ble.reference)..;;;.;;;.LIST-SET |
| 6e20 | 54 45 52 53 20 28 73 79 6d 62 6f 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | TERS.(symbol)................... |
| 6e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 46 55 4e 43 54 49 4f 4e 5d | ......................[FUNCTION] |
| 6e60 | 0a 3b 3b 3b 20 20 20 20 4c 69 73 74 73 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 | .;;;....Lists.all.functions.whic |
| 6e80 | 68 20 62 69 6e 64 2f 73 65 74 20 53 59 4d 42 4f 4c 20 61 73 20 61 20 76 61 72 69 61 62 6c 65 0a | h.bind/set.SYMBOL.as.a.variable. |
| 6ea0 | 3b 3b 3b 20 20 20 20 28 76 61 72 69 61 62 6c 65 20 6d 75 74 61 74 69 6f 6e 29 2e 0a 3b 3b 3b 0a | ;;;....(variable.mutation)..;;;. |
| 6ec0 | 3b 3b 3b 20 4c 49 53 54 2d 55 53 45 52 53 20 28 73 79 6d 62 6f 6c 29 20 20 20 20 20 20 20 20 20 | ;;;.LIST-USERS.(symbol)......... |
| 6ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6f00 | 20 20 5b 46 55 4e 43 54 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 4c 69 73 74 73 20 61 6c 6c 20 66 75 | ..[FUNCTION].;;;....Lists.all.fu |
| 6f20 | 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 75 73 65 20 53 59 4d 42 4f 4c 20 61 73 20 61 20 76 61 | nctions.which.use.SYMBOL.as.a.va |
| 6f40 | 72 69 61 62 6c 65 20 6f 72 20 66 75 6e 63 74 69 6f 6e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 57 48 4f 2d | riable.or.function..;;;.;;;.WHO- |
| 6f60 | 43 41 4c 4c 53 20 28 73 79 6d 62 6f 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 68 6f 77 29 20 20 20 20 | CALLS.(symbol.&optional.how).... |
| 6f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 46 55 4e 43 54 | ..........................[FUNCT |
| 6fa0 | 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 4c 69 73 74 73 20 63 61 6c 6c 65 72 73 20 6f 66 20 73 79 6d | ION].;;;....Lists.callers.of.sym |
| 6fc0 | 62 6f 6c 2e 20 48 4f 57 20 6d 61 79 20 62 65 20 3a 66 75 6e 63 74 69 6f 6e 2c 20 3a 72 65 61 64 | bol..HOW.may.be.:function,.:read |
| 6fe0 | 65 72 2c 20 3a 73 65 74 74 65 72 2c 0a 3b 3b 3b 20 20 20 20 6f 72 20 3a 76 61 72 69 61 62 6c 65 | er,.:setter,.;;;....or.:variable |
| 7000 | 2e 22 0a 3b 3b 3b 0a 3b 3b 3b 20 57 48 41 54 2d 46 49 4c 45 53 2d 43 41 4c 4c 20 28 73 79 6d 62 | .".;;;.;;;.WHAT-FILES-CALL.(symb |
| 7020 | 6f 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ol)............................. |
| 7040 | 20 20 20 20 20 20 20 20 20 5b 46 55 4e 43 54 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 4c 69 73 74 73 | .........[FUNCTION].;;;....Lists |
| 7060 | 20 6e 61 6d 65 73 20 6f 66 20 66 69 6c 65 73 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 20 75 73 65 | .names.of.files.that.contain.use |
| 7080 | 73 20 6f 66 20 53 59 4d 42 4f 4c 0a 3b 3b 3b 20 20 20 20 61 73 20 61 20 66 75 6e 63 74 69 6f 6e | s.of.SYMBOL.;;;....as.a.function |
| 70a0 | 2c 20 76 61 72 69 61 62 6c 65 2c 20 6f 72 20 63 6f 6e 73 74 61 6e 74 2e 0a 3b 3b 3b 0a 3b 3b 3b | ,.variable,.or.constant..;;;.;;; |
| 70c0 | 20 53 4f 55 52 43 45 2d 46 49 4c 45 20 28 73 79 6d 62 6f 6c 29 20 20 20 20 20 20 20 20 20 20 20 | .SOURCE-FILE.(symbol)........... |
| 70e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b | ...............................[ |
| 7100 | 46 55 4e 43 54 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 4c 69 73 74 73 20 74 68 65 20 6e 61 6d 65 73 | FUNCTION].;;;....Lists.the.names |
| 7120 | 20 6f 66 20 66 69 6c 65 73 20 69 6e 20 77 68 69 63 68 20 53 59 4d 42 4f 4c 20 69 73 20 64 65 66 | .of.files.in.which.SYMBOL.is.def |
| 7140 | 69 6e 65 64 2f 75 73 65 64 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4c 49 53 54 2d 43 41 4c 4c 45 45 53 20 | ined/used..;;;.;;;.LIST-CALLEES. |
| 7160 | 28 73 79 6d 62 6f 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (symbol)........................ |
| 7180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 46 55 4e 43 54 49 4f 4e 5d 0a 3b 3b 3b 20 | .................[FUNCTION].;;;. |
| 71a0 | 20 20 20 4c 69 73 74 73 20 6e 61 6d 65 73 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 | ...Lists.names.of.functions.and. |
| 71c0 | 76 61 72 69 61 62 6c 65 73 20 63 61 6c 6c 65 64 20 62 79 20 53 59 4d 42 4f 4c 2e 0a 3b 3b 3b 0a | variables.called.by.SYMBOL..;;;. |
| 71e0 | 3b 3b 3b 20 2d 2d 2d 2d 2d 0a 3b 3b 3b 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 75 6e 63 | ;;;.-----.;;;.The.following.func |
| 7200 | 74 69 6f 6e 73 20 6d 61 79 20 62 65 20 75 73 65 66 75 6c 20 66 6f 72 20 76 69 65 77 69 6e 67 20 | tions.may.be.useful.for.viewing. |
| 7220 | 74 68 65 20 64 61 74 61 62 61 73 65 20 61 6e 64 0a 3b 3b 3b 20 64 65 62 75 67 67 69 6e 67 20 74 | the.database.and.;;;.debugging.t |
| 7240 | 68 65 20 63 61 6c 6c 69 6e 67 20 70 61 74 74 65 72 6e 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 2a 4c 41 | he.calling.patterns..;;;.;;;.*LA |
| 7260 | 53 54 2d 46 4f 52 4d 2a 20 28 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ST-FORM*.()..................... |
| 7280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 56 41 52 49 | ...........................[VARI |
| 72a0 | 41 42 4c 45 5d 0a 3b 3b 3b 20 20 20 20 54 68 65 20 6c 61 73 74 20 66 6f 72 6d 20 72 65 61 64 20 | ABLE].;;;....The.last.form.read. |
| 72c0 | 66 72 6f 6d 20 74 68 65 20 66 69 6c 65 2e 20 55 73 65 66 75 6c 20 66 6f 72 20 66 69 67 75 72 69 | from.the.file..Useful.for.figuri |
| 72e0 | 6e 67 20 6f 75 74 20 77 68 61 74 20 77 65 6e 74 0a 3b 3b 3b 20 20 20 20 77 72 6f 6e 67 20 77 68 | ng.out.what.went.;;;....wrong.wh |
| 7300 | 65 6e 20 78 72 65 66 2d 66 69 6c 65 20 64 72 6f 70 73 20 69 6e 74 6f 20 74 68 65 20 64 65 62 75 | en.xref-file.drops.into.the.debu |
| 7320 | 67 67 65 72 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 2a 58 52 45 46 2d 56 45 52 42 4f 53 45 2a 20 74 20 20 | gger..;;;.;;;.*XREF-VERBOSE*.t.. |
| 7340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7360 | 20 20 20 20 20 20 20 20 20 20 20 20 5b 56 41 52 49 41 42 4c 45 5d 0a 3b 3b 3b 20 20 20 20 57 68 | ............[VARIABLE].;;;....Wh |
| 7380 | 65 6e 20 54 2c 20 78 72 65 66 2d 66 69 6c 65 28 73 29 20 70 72 69 6e 74 73 20 6f 75 74 20 74 68 | en.T,.xref-file(s).prints.out.th |
| 73a0 | 65 20 6e 61 6d 65 73 20 6f 66 20 74 68 65 20 66 69 6c 65 73 20 69 74 20 6c 6f 6f 6b 73 20 61 74 | e.names.of.the.files.it.looks.at |
| 73c0 | 2c 0a 3b 3b 3b 20 20 20 20 70 72 6f 67 72 65 73 73 20 64 6f 74 73 2c 20 61 6e 64 20 74 68 65 20 | ,.;;;....progress.dots,.and.the. |
| 73e0 | 6e 75 6d 62 65 72 20 6f 66 20 66 6f 72 6d 73 20 72 65 61 64 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 2a 54 | number.of.forms.read..;;;.;;;.*T |
| 7400 | 59 50 45 53 2d 54 4f 2d 49 47 4e 4f 52 45 2a 20 28 71 75 6f 74 65 20 28 3a 6c 69 73 70 20 3a 6c | YPES-TO-IGNORE*.(quote.(:lisp.:l |
| 7420 | 69 73 70 32 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 56 41 52 | isp2))......................[VAR |
| 7440 | 49 41 42 4c 45 5d 0a 3b 3b 3b 20 20 20 20 44 65 66 61 75 6c 74 20 73 65 74 20 6f 66 20 63 61 6c | IABLE].;;;....Default.set.of.cal |
| 7460 | 6c 65 72 20 74 79 70 65 73 20 28 61 73 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65 20 70 | ler.types.(as.specified.in.the.p |
| 7480 | 61 74 74 65 72 6e 73 29 20 74 6f 20 69 67 6e 6f 72 65 0a 3b 3b 3b 20 20 20 20 69 6e 20 74 68 65 | atterns).to.ignore.;;;....in.the |
| 74a0 | 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 2e 20 3a 6c | .database.handling.functions..:l |
| 74c0 | 69 73 70 20 69 73 20 43 4c 74 4c 20 31 73 74 20 65 64 69 74 69 6f 6e 2c 0a 3b 3b 3b 20 20 20 20 | isp.is.CLtL.1st.edition,.;;;.... |
| 74e0 | 3a 6c 69 73 70 32 20 69 73 20 61 64 64 69 74 69 6f 6e 61 6c 20 70 61 74 74 65 72 6e 73 20 66 72 | :lisp2.is.additional.patterns.fr |
| 7500 | 6f 6d 20 43 4c 74 4c 20 32 6e 64 20 65 64 69 74 69 6f 6e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 2a 48 41 | om.CLtL.2nd.edition..;;;.;;;.*HA |
| 7520 | 4e 44 4c 45 2d 50 41 43 4b 41 47 45 2d 46 4f 52 4d 53 2a 20 28 29 20 20 20 20 20 20 20 20 20 20 | NDLE-PACKAGE-FORMS*.().......... |
| 7540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 56 41 52 49 | ...........................[VARI |
| 7560 | 41 42 4c 45 5d 0a 3b 3b 3b 20 20 20 20 57 68 65 6e 20 6e 6f 6e 2d 4e 49 4c 2c 20 61 6e 64 20 58 | ABLE].;;;....When.non-NIL,.and.X |
| 7580 | 52 45 46 2d 46 49 4c 45 20 73 65 65 73 20 61 20 70 61 63 6b 61 67 65 2d 73 65 74 74 69 6e 67 20 | REF-FILE.sees.a.package-setting. |
| 75a0 | 66 6f 72 6d 20 6c 69 6b 65 0a 3b 3b 3b 20 20 20 20 49 4e 2d 50 41 43 4b 41 47 45 2c 20 73 65 74 | form.like.;;;....IN-PACKAGE,.set |
| 75c0 | 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 74 6f 20 74 68 65 20 73 70 65 | s.the.current.package.to.the.spe |
| 75e0 | 63 69 66 69 65 64 20 70 61 63 6b 61 67 65 20 62 79 0a 3b 3b 3b 20 20 20 20 65 76 61 6c 75 61 74 | cified.package.by.;;;....evaluat |
| 7600 | 69 6e 67 20 74 68 65 20 66 6f 72 6d 2e 20 57 68 65 6e 20 64 6f 6e 65 20 77 69 74 68 20 74 68 65 | ing.the.form..When.done.with.the |
| 7620 | 20 66 69 6c 65 2c 20 78 72 65 66 2d 66 69 6c 65 20 72 65 73 65 74 73 20 74 68 65 0a 3b 3b 3b 20 | .file,.xref-file.resets.the.;;;. |
| 7640 | 20 20 20 70 61 63 6b 61 67 65 20 74 6f 20 69 74 73 20 6f 72 69 67 69 6e 61 6c 20 76 61 6c 75 65 | ...package.to.its.original.value |
| 7660 | 2e 20 49 6e 20 73 6f 6d 65 20 6f 66 20 74 68 65 20 64 69 73 70 6c 61 79 69 6e 67 20 66 75 6e 63 | ..In.some.of.the.displaying.func |
| 7680 | 74 69 6f 6e 73 2c 0a 3b 3b 3b 20 20 20 20 77 68 65 6e 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 | tions,.;;;....when.this.variable |
| 76a0 | 20 69 73 20 6e 6f 6e 2d 4e 49 4c 20 6f 6e 65 20 6d 61 79 20 73 70 65 63 69 66 79 20 74 68 61 74 | .is.non-NIL.one.may.specify.that |
| 76c0 | 20 61 6c 6c 20 73 79 6d 62 6f 6c 73 20 66 72 6f 6d 20 61 0a 3b 3b 3b 20 20 20 20 70 61 72 74 69 | .all.symbols.from.a.;;;....parti |
| 76e0 | 63 75 6c 61 72 20 73 65 74 20 6f 66 20 70 61 63 6b 61 67 65 73 20 62 65 20 69 67 6e 6f 72 65 64 | cular.set.of.packages.be.ignored |
| 7700 | 2e 20 54 68 69 73 20 69 73 20 6f 6e 6c 79 20 75 73 65 66 75 6c 20 69 66 20 74 68 65 0a 3b 3b 3b | ..This.is.only.useful.if.the.;;; |
| 7720 | 20 20 20 20 66 69 6c 65 73 20 75 73 65 20 64 69 66 66 65 72 65 6e 74 20 70 61 63 6b 61 67 65 73 | ....files.use.different.packages |
| 7740 | 20 77 69 74 68 20 63 6f 6e 66 6c 69 63 74 69 6e 67 20 6e 61 6d 65 73 2e 0a 3b 3b 3b 0a 3b 3b 3b | .with.conflicting.names..;;;.;;; |
| 7760 | 20 2a 48 41 4e 44 4c 45 2d 46 55 4e 43 54 49 4f 4e 2d 46 4f 52 4d 53 2a 20 74 20 20 20 20 20 20 | .*HANDLE-FUNCTION-FORMS*.t...... |
| 7780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b | ...............................[ |
| 77a0 | 56 41 52 49 41 42 4c 45 5d 0a 3b 3b 3b 20 20 20 20 57 68 65 6e 20 54 2c 20 58 52 45 46 2d 46 49 | VARIABLE].;;;....When.T,.XREF-FI |
| 77c0 | 4c 45 20 74 72 69 65 73 20 74 6f 20 62 65 20 73 6d 61 72 74 20 61 62 6f 75 74 20 66 6f 72 6d 73 | LE.tries.to.be.smart.about.forms |
| 77e0 | 20 77 68 69 63 68 20 6f 63 63 75 72 20 69 6e 0a 3b 3b 3b 20 20 20 20 61 20 66 75 6e 63 74 69 6f | .which.occur.in.;;;....a.functio |
| 7800 | 6e 20 70 6f 73 69 74 69 6f 6e 2c 20 73 75 63 68 20 61 73 20 6c 61 6d 62 64 61 73 20 61 6e 64 20 | n.position,.such.as.lambdas.and. |
| 7820 | 61 72 62 69 74 72 61 72 79 20 4c 69 73 70 20 66 6f 72 6d 73 2e 0a 3b 3b 3b 20 20 20 20 49 66 20 | arbitrary.Lisp.forms..;;;....If. |
| 7840 | 73 6f 2c 20 69 74 20 72 65 63 75 72 73 69 76 65 6c 79 20 63 61 6c 6c 73 20 72 65 63 6f 72 64 2d | so,.it.recursively.calls.record- |
| 7860 | 63 61 6c 6c 65 72 73 20 77 69 74 68 20 70 61 74 74 65 72 6e 20 27 46 4f 52 4d 2e 0a 3b 3b 3b 20 | callers.with.pattern.'FORM..;;;. |
| 7880 | 20 20 20 49 66 20 74 68 65 20 66 6f 72 6d 20 69 73 20 61 20 6c 61 6d 62 64 61 2c 20 6d 61 6b 65 | ...If.the.form.is.a.lambda,.make |
| 78a0 | 73 20 74 68 65 20 63 61 6c 6c 65 72 20 61 20 63 61 6c 6c 65 72 20 6f 66 0a 3b 3b 3b 20 20 20 20 | s.the.caller.a.caller.of.;;;.... |
| 78c0 | 3a 75 6e 6e 61 6d 65 64 2d 6c 61 6d 62 64 61 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 2a 48 41 4e 44 4c 45 | :unnamed-lambda..;;;.;;;.*HANDLE |
| 78e0 | 2d 4d 41 43 52 4f 2d 46 4f 52 4d 53 2a 20 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -MACRO-FORMS*.t................. |
| 7900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 56 41 52 49 41 42 4c 45 | .......................[VARIABLE |
| 7920 | 5d 0a 3b 3b 3b 20 20 20 20 57 68 65 6e 20 54 2c 20 69 66 20 74 68 65 20 66 69 6c 65 20 77 61 73 | ].;;;....When.T,.if.the.file.was |
| 7940 | 20 6c 6f 61 64 65 64 20 62 65 66 6f 72 65 20 62 65 69 6e 67 20 70 72 6f 63 65 73 73 65 64 20 62 | .loaded.before.being.processed.b |
| 7960 | 79 20 58 52 45 46 2c 20 61 6e 64 0a 3b 3b 3b 20 20 20 20 74 68 65 20 63 61 72 20 6f 66 20 61 20 | y.XREF,.and.;;;....the.car.of.a. |
| 7980 | 66 6f 72 6d 20 69 73 20 61 20 6d 61 63 72 6f 2c 20 69 74 20 6e 6f 74 65 73 20 74 68 61 74 20 74 | form.is.a.macro,.it.notes.that.t |
| 79a0 | 68 65 20 70 61 72 65 6e 74 20 63 61 6c 6c 73 20 74 68 65 0a 3b 3b 3b 20 20 20 20 6d 61 63 72 6f | he.parent.calls.the.;;;....macro |
| 79c0 | 2c 20 61 6e 64 20 74 68 65 6e 20 63 61 6c 6c 73 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 6f | ,.and.then.calls.macroexpand-1.o |
| 79e0 | 6e 20 74 68 65 20 66 6f 72 6d 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 2a 44 45 46 41 55 4c 54 2d 47 52 41 | n.the.form..;;;.;;;.*DEFAULT-GRA |
| 7a00 | 50 48 49 4e 47 2d 4d 4f 44 45 2a 20 3a 63 61 6c 6c 2d 67 72 61 70 68 20 20 20 20 20 20 20 20 20 | PHING-MODE*.:call-graph......... |
| 7a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 56 41 52 49 41 42 4c 45 5d 0a 3b 3b 3b | ..................[VARIABLE].;;; |
| 7a40 | 20 20 20 20 53 70 65 63 69 66 69 65 73 20 77 68 65 74 68 65 72 20 77 65 20 67 72 61 70 68 20 75 | ....Specifies.whether.we.graph.u |
| 7a60 | 70 20 6f 72 20 64 6f 77 6e 2e 20 49 66 20 3a 63 61 6c 6c 2d 67 72 61 70 68 2c 20 74 68 65 20 63 | p.or.down..If.:call-graph,.the.c |
| 7a80 | 68 69 6c 64 72 65 6e 0a 3b 3b 3b 20 20 20 20 6f 66 20 61 20 6e 6f 64 65 20 61 72 65 20 74 68 65 | hildren.;;;....of.a.node.are.the |
| 7aa0 | 20 66 75 6e 63 74 69 6f 6e 73 20 69 74 20 63 61 6c 6c 73 2e 20 49 66 20 3a 63 61 6c 6c 65 72 2d | .functions.it.calls..If.:caller- |
| 7ac0 | 67 72 61 70 68 2c 20 74 68 65 0a 3b 3b 3b 20 20 20 20 63 68 69 6c 64 72 65 6e 20 6f 66 20 61 20 | graph,.the.;;;....children.of.a. |
| 7ae0 | 6e 6f 64 65 20 61 72 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 63 61 6c 6c | node.are.the.functions.that.call |
| 7b00 | 20 69 74 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 2a 49 4e 44 45 4e 54 2d 41 4d 4f 55 4e 54 2a 20 33 20 20 | .it..;;;.;;;.*INDENT-AMOUNT*.3.. |
| 7b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7b40 | 20 20 20 20 20 20 20 20 20 20 20 5b 56 41 52 49 41 42 4c 45 5d 0a 3b 3b 3b 20 20 20 20 4e 75 6d | ...........[VARIABLE].;;;....Num |
| 7b60 | 62 65 72 20 6f 66 20 73 70 61 63 65 73 20 74 6f 20 69 6e 64 65 6e 74 20 73 75 63 63 65 73 73 69 | ber.of.spaces.to.indent.successi |
| 7b80 | 76 65 20 6c 65 76 65 6c 73 20 69 6e 20 50 52 49 4e 54 2d 49 4e 44 45 4e 54 45 44 2d 54 52 45 45 | ve.levels.in.PRINT-INDENTED-TREE |
| 7ba0 | 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 44 49 53 50 4c 41 59 2d 44 41 54 41 42 41 53 45 20 28 26 6f 70 74 | ..;;;.;;;.DISPLAY-DATABASE.(&opt |
| 7bc0 | 69 6f 6e 61 6c 20 64 61 74 61 62 61 73 65 20 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 29 20 | ional.database.types-to-ignore). |
| 7be0 | 20 20 20 20 20 20 20 20 5b 46 55 4e 43 54 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 50 72 69 6e 74 73 | ........[FUNCTION].;;;....Prints |
| 7c00 | 20 6f 75 74 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 65 61 63 68 20 73 79 6d 62 6f 6c 20 61 6e 64 | .out.the.name.of.each.symbol.and |
| 7c20 | 20 61 6c 6c 20 69 74 73 20 63 61 6c 6c 65 72 73 2e 20 53 70 65 63 69 66 79 0a 3b 3b 3b 20 20 20 | .all.its.callers..Specify.;;;... |
| 7c40 | 20 64 61 74 61 62 61 73 65 20 3a 63 61 6c 6c 65 72 73 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 | .database.:callers.(the.default) |
| 7c60 | 20 74 6f 20 67 65 74 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 20 72 65 66 65 72 65 6e 63 65 73 | .to.get.function.call.references |
| 7c80 | 2c 0a 3b 3b 3b 20 20 20 20 3a 66 69 6c 65 20 74 6f 20 74 68 65 20 67 65 74 20 66 69 6c 65 73 20 | ,.;;;....:file.to.the.get.files. |
| 7ca0 | 69 6e 20 77 68 69 63 68 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 63 61 6c 6c 65 64 2c 20 3a | in.which.the.symbol.is.called,.: |
| 7cc0 | 72 65 61 64 65 72 73 20 74 6f 20 67 65 74 0a 3b 3b 3b 20 20 20 20 76 61 72 69 61 62 6c 65 20 72 | readers.to.get.;;;....variable.r |
| 7ce0 | 65 66 65 72 65 6e 63 65 73 2c 20 61 6e 64 20 3a 73 65 74 74 65 72 73 20 74 6f 20 67 65 74 20 76 | eferences,.and.:setters.to.get.v |
| 7d00 | 61 72 69 61 62 6c 65 20 62 69 6e 64 69 6e 67 20 61 6e 64 0a 3b 3b 3b 20 20 20 20 61 73 73 69 67 | ariable.binding.and.;;;....assig |
| 7d20 | 6e 6d 65 6e 74 73 2e 20 49 67 6e 6f 72 65 73 20 66 75 6e 63 74 69 6f 6e 73 20 6f 66 20 74 79 70 | nments..Ignores.functions.of.typ |
| 7d40 | 65 73 20 6c 69 73 74 65 64 20 69 6e 20 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 2e 0a 3b 3b | es.listed.in.types-to-ignore..;; |
| 7d60 | 3b 0a 3b 3b 3b 20 50 52 49 4e 54 2d 43 41 4c 4c 45 52 2d 54 52 45 45 53 20 28 26 6b 65 79 20 28 | ;.;;;.PRINT-CALLER-TREES.(&key.( |
| 7d80 | 6d 6f 64 65 20 2a 64 65 66 61 75 6c 74 2d 67 72 61 70 68 69 6e 67 2d 6d 6f 64 65 2a 29 20 20 20 | mode.*default-graphing-mode*)... |
| 7da0 | 20 20 20 20 5b 46 55 4e 43 54 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....[FUNCTION].;;;.............. |
| 7dc0 | 20 20 20 20 20 20 20 28 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 2a 74 79 70 65 73 2d 74 | .......(types-to-ignore.*types-t |
| 7de0 | 6f 2d 69 67 6e 6f 72 65 2a 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o-ignore*).;;;.................. |
| 7e00 | 20 20 20 63 6f 6d 70 61 63 74 20 72 6f 6f 74 2d 6e 6f 64 65 73 29 0a 3b 3b 3b 20 20 20 20 50 72 | ...compact.root-nodes).;;;....Pr |
| 7e20 | 69 6e 74 73 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 74 72 65 65 73 20 28 77 68 69 63 68 20 6d 61 | ints.the.calling.trees.(which.ma |
| 7e40 | 79 20 61 63 74 75 61 6c 6c 79 20 62 65 20 61 20 66 75 6c 6c 20 67 72 61 70 68 20 61 6e 64 20 6e | y.actually.be.a.full.graph.and.n |
| 7e60 | 6f 74 0a 3b 3b 3b 20 20 20 20 6e 65 63 65 73 73 61 72 69 6c 79 20 61 20 44 41 47 29 20 61 73 20 | ot.;;;....necessarily.a.DAG).as. |
| 7e80 | 69 6e 64 65 6e 74 65 64 20 74 65 78 74 20 74 72 65 65 73 20 75 73 69 6e 67 0a 3b 3b 3b 20 20 20 | indented.text.trees.using.;;;... |
| 7ea0 | 20 50 52 49 4e 54 2d 49 4e 44 45 4e 54 45 44 2d 54 52 45 45 2e 20 4d 4f 44 45 20 69 73 20 3a 63 | .PRINT-INDENTED-TREE..MODE.is.:c |
| 7ec0 | 61 6c 6c 2d 67 72 61 70 68 20 66 6f 72 20 74 72 65 65 73 20 77 68 65 72 65 20 74 68 65 20 63 68 | all-graph.for.trees.where.the.ch |
| 7ee0 | 69 6c 64 72 65 6e 0a 3b 3b 3b 20 20 20 20 6f 66 20 61 20 6e 6f 64 65 20 61 72 65 20 74 68 65 20 | ildren.;;;....of.a.node.are.the. |
| 7f00 | 66 75 6e 63 74 69 6f 6e 73 20 63 61 6c 6c 65 64 20 62 79 20 74 68 65 20 6e 6f 64 65 2c 20 6f 72 | functions.called.by.the.node,.or |
| 7f20 | 20 3a 63 61 6c 6c 65 72 2d 67 72 61 70 68 20 66 6f 72 0a 3b 3b 3b 20 20 20 20 74 72 65 65 73 20 | .:caller-graph.for.;;;....trees. |
| 7f40 | 77 68 65 72 65 20 74 68 65 20 63 68 69 6c 64 72 65 6e 20 6f 66 20 61 20 6e 6f 64 65 20 61 72 65 | where.the.children.of.a.node.are |
| 7f60 | 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 65 20 6e 6f 64 65 20 63 61 6c 6c 73 2e 0a 3b | .the.functions.the.node.calls..; |
| 7f80 | 3b 3b 20 20 20 20 54 59 50 45 53 2d 54 4f 2d 49 47 4e 4f 52 45 20 69 73 20 61 20 6c 69 73 74 20 | ;;....TYPES-TO-IGNORE.is.a.list. |
| 7fa0 | 6f 66 20 66 75 6e 63 61 6c 6c 20 74 79 70 65 73 20 28 61 73 20 73 70 65 63 69 66 69 65 64 20 69 | of.funcall.types.(as.specified.i |
| 7fc0 | 6e 20 74 68 65 0a 3b 3b 3b 20 20 20 20 70 61 74 74 65 72 6e 73 29 20 74 6f 20 69 67 6e 6f 72 65 | n.the.;;;....patterns).to.ignore |
| 7fe0 | 20 69 6e 20 70 72 69 6e 74 69 6e 67 20 6f 75 74 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 20 46 | .in.printing.out.the.database..F |
| 8000 | 6f 72 20 65 78 61 6d 70 6c 65 2c 0a 3b 3b 3b 20 20 20 20 27 28 3a 6c 69 73 70 29 20 77 6f 75 6c | or.example,.;;;....'(:lisp).woul |
| 8020 | 64 20 69 67 6e 6f 72 65 20 61 6c 6c 20 63 61 6c 6c 73 20 74 6f 20 63 6f 6d 6d 6f 6e 20 6c 69 73 | d.ignore.all.calls.to.common.lis |
| 8040 | 70 20 66 75 6e 63 74 69 6f 6e 73 2e 20 43 4f 4d 50 41 43 54 20 69 73 0a 3b 3b 3b 20 20 20 20 61 | p.functions..COMPACT.is.;;;....a |
| 8060 | 20 66 6c 61 67 20 74 6f 20 74 65 6c 6c 20 74 68 65 20 70 72 6f 67 72 61 6d 20 74 6f 20 74 72 79 | .flag.to.tell.the.program.to.try |
| 8080 | 20 74 6f 20 63 6f 6d 70 61 63 74 20 74 68 65 20 74 72 65 65 73 20 61 20 62 69 74 20 62 79 20 6e | .to.compact.the.trees.a.bit.by.n |
| 80a0 | 6f 74 0a 3b 3b 3b 20 20 20 20 70 72 69 6e 74 69 6e 67 20 74 72 65 65 73 20 69 66 20 74 68 65 79 | ot.;;;....printing.trees.if.they |
| 80c0 | 20 68 61 76 65 20 61 6c 72 65 61 64 79 20 62 65 65 6e 20 73 65 65 6e 2e 20 52 4f 4f 54 2d 4e 4f | .have.already.been.seen..ROOT-NO |
| 80e0 | 44 45 53 20 69 73 20 61 20 6c 69 73 74 0a 3b 3b 3b 20 20 20 20 6f 66 20 72 6f 6f 74 20 6e 6f 64 | DES.is.a.list.;;;....of.root.nod |
| 8100 | 65 73 20 6f 66 20 74 72 65 65 73 20 74 6f 20 64 69 73 70 6c 61 79 2e 20 49 66 20 52 4f 4f 54 2d | es.of.trees.to.display..If.ROOT- |
| 8120 | 4e 4f 44 45 53 20 69 73 20 6e 69 6c 2c 20 74 72 69 65 73 20 74 6f 0a 3b 3b 3b 20 20 20 20 66 69 | NODES.is.nil,.tries.to.;;;....fi |
| 8140 | 6e 64 20 61 6c 6c 20 72 6f 6f 74 20 6e 6f 64 65 73 20 69 6e 20 74 68 65 20 64 61 74 61 62 61 73 | nd.all.root.nodes.in.the.databas |
| 8160 | 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4d 41 4b 45 2d 43 41 4c 4c 45 52 2d 54 52 45 45 20 28 26 6f 70 | e..;;;.;;;.MAKE-CALLER-TREE.(&op |
| 8180 | 74 69 6f 6e 61 6c 20 28 6d 6f 64 65 20 2a 64 65 66 61 75 6c 74 2d 67 72 61 70 68 69 6e 67 2d 6d | tional.(mode.*default-graphing-m |
| 81a0 | 6f 64 65 2a 29 20 20 20 20 5b 46 55 4e 43 54 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 | ode*)....[FUNCTION].;;;......... |
| 81c0 | 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 2a 74 79 70 65 | ..........(types-to-ignore.*type |
| 81e0 | 73 2d 74 6f 2d 69 67 6e 6f 72 65 2a 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s-to-ignore*).;;;............... |
| 8200 | 20 20 20 20 63 6f 6d 70 61 63 74 29 0a 3b 3b 3b 20 20 20 20 4f 75 74 70 75 74 73 20 6c 69 73 74 | ....compact).;;;....Outputs.list |
| 8220 | 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 61 20 74 72 65 65 20 77 68 69 63 68 20 72 6f 75 67 68 | .structure.of.a.tree.which.rough |
| 8240 | 6c 79 20 72 65 70 72 65 73 65 6e 74 73 20 74 68 65 0a 3b 3b 3b 20 20 20 20 70 6f 73 73 69 62 6c | ly.represents.the.;;;....possibl |
| 8260 | 79 20 63 79 63 6c 69 63 61 6c 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 65 20 63 61 6c 6c | y.cyclical.structure.of.the.call |
| 8280 | 65 72 20 64 61 74 61 62 61 73 65 2e 0a 3b 3b 3b 20 20 20 20 49 66 20 6d 6f 64 65 20 69 73 20 3a | er.database..;;;....If.mode.is.: |
| 82a0 | 63 61 6c 6c 2d 67 72 61 70 68 2c 20 74 68 65 20 63 68 69 6c 64 72 65 6e 20 6f 66 20 61 20 6e 6f | call-graph,.the.children.of.a.no |
| 82c0 | 64 65 20 61 72 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 0a 3b 3b 3b 20 20 20 20 69 74 20 63 | de.are.the.functions.;;;....it.c |
| 82e0 | 61 6c 6c 73 2e 20 49 66 20 6d 6f 64 65 20 69 73 20 3a 63 61 6c 6c 65 72 2d 67 72 61 70 68 2c 20 | alls..If.mode.is.:caller-graph,. |
| 8300 | 74 68 65 20 63 68 69 6c 64 72 65 6e 20 6f 66 20 61 20 6e 6f 64 65 20 61 72 65 20 74 68 65 0a 3b | the.children.of.a.node.are.the.; |
| 8320 | 3b 3b 20 20 20 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 63 61 6c 6c 20 69 74 2e 0a 3b 3b | ;;....functions.that.call.it..;; |
| 8340 | 3b 20 20 20 20 49 66 20 63 6f 6d 70 61 63 74 20 69 73 20 54 2c 20 74 72 69 65 73 20 74 6f 20 65 | ;....If.compact.is.T,.tries.to.e |
| 8360 | 6c 69 6d 69 6e 61 74 65 20 74 68 65 20 61 6c 72 65 61 64 79 2d 73 65 65 6e 20 6e 6f 64 65 73 2c | liminate.the.already-seen.nodes, |
| 8380 | 20 73 6f 0a 3b 3b 3b 20 20 20 20 74 68 61 74 20 74 68 65 20 67 72 61 70 68 20 66 6f 72 20 61 20 | .so.;;;....that.the.graph.for.a. |
| 83a0 | 6e 6f 64 65 20 69 73 20 70 72 69 6e 74 65 64 20 61 74 20 6d 6f 73 74 20 6f 6e 63 65 2e 20 4f 74 | node.is.printed.at.most.once..Ot |
| 83c0 | 68 65 72 77 69 73 65 20 69 74 20 77 69 6c 6c 0a 3b 3b 3b 20 20 20 20 64 75 70 6c 69 63 61 74 65 | herwise.it.will.;;;....duplicate |
| 83e0 | 20 74 68 65 20 6e 6f 64 65 27 73 20 74 72 65 65 20 28 65 78 63 65 70 74 20 66 6f 72 20 63 79 63 | .the.node's.tree.(except.for.cyc |
| 8400 | 6c 65 73 29 2e 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 6c 0a 3b 3b 3b 20 20 20 20 62 65 63 | les)..This.is.usefull.;;;....bec |
| 8420 | 61 75 73 65 20 74 68 65 20 63 61 6c 6c 20 74 72 65 65 20 69 73 20 61 63 74 75 61 6c 6c 79 20 61 | ause.the.call.tree.is.actually.a |
| 8440 | 20 64 69 72 65 63 74 65 64 20 67 72 61 70 68 2c 20 73 6f 20 77 65 20 63 61 6e 20 65 69 74 68 65 | .directed.graph,.so.we.can.eithe |
| 8460 | 72 0a 3b 3b 3b 20 20 20 20 64 75 70 6c 69 63 61 74 65 20 72 65 66 65 72 65 6e 63 65 73 20 6f 72 | r.;;;....duplicate.references.or |
| 8480 | 20 64 69 73 70 6c 61 79 20 6f 6e 6c 79 20 74 68 65 20 66 69 72 73 74 20 6f 6e 65 2e 0a 3b 3b 3b | .display.only.the.first.one..;;; |
| 84a0 | 0a 3b 3b 3b 20 44 45 54 45 52 4d 49 4e 45 2d 46 49 4c 45 2d 44 45 50 45 4e 44 45 4e 43 49 45 53 | .;;;.DETERMINE-FILE-DEPENDENCIES |
| 84c0 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 64 61 74 61 62 61 73 65 29 20 20 20 20 20 20 20 20 20 20 5b | .(&optional.database)..........[ |
| 84e0 | 46 55 4e 43 54 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 4d 61 6b 65 73 20 61 20 68 61 73 68 20 74 61 | FUNCTION].;;;....Makes.a.hash.ta |
| 8500 | 62 6c 65 20 6f 66 20 66 69 6c 65 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 66 6f 72 20 74 68 65 | ble.of.file.dependencies.for.the |
| 8520 | 20 72 65 66 65 72 65 6e 63 65 73 20 6c 69 73 74 65 64 20 69 6e 0a 3b 3b 3b 20 20 20 20 44 41 54 | .references.listed.in.;;;....DAT |
| 8540 | 41 42 41 53 45 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 62 65 20 75 73 65 66 | ABASE..This.function.may.be.usef |
| 8560 | 75 6c 20 66 6f 72 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 72 65 73 6f 6c 76 69 6e 67 0a 3b | ul.for.automatically.resolving.; |
| 8580 | 3b 3b 20 20 20 20 66 69 6c 65 20 72 65 66 65 72 65 6e 63 65 73 20 66 6f 72 20 61 75 74 6f 6d 61 | ;;....file.references.for.automa |
| 85a0 | 74 69 63 20 63 72 65 61 74 69 6f 6e 20 6f 66 20 61 20 73 79 73 74 65 6d 20 64 65 66 69 6e 69 74 | tic.creation.of.a.system.definit |
| 85c0 | 69 6f 6e 0a 3b 3b 3b 20 20 20 20 28 64 65 66 73 79 73 74 65 6d 29 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 | ion.;;;....(defsystem)..;;;.;;;. |
| 85e0 | 50 52 49 4e 54 2d 46 49 4c 45 2d 44 45 50 45 4e 44 45 4e 43 49 45 53 20 28 26 6f 70 74 69 6f 6e | PRINT-FILE-DEPENDENCIES.(&option |
| 8600 | 61 6c 20 64 61 74 61 62 61 73 65 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 46 55 4e 43 54 | al.database)..............[FUNCT |
| 8620 | 49 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 50 72 69 6e 74 73 20 61 20 6c 69 73 74 20 6f 66 20 66 69 6c | ION].;;;....Prints.a.list.of.fil |
| 8640 | 65 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 66 6f 72 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 | e.dependencies.for.the.reference |
| 8660 | 73 20 6c 69 73 74 65 64 20 69 6e 0a 3b 3b 3b 20 20 20 20 44 41 54 41 42 41 53 45 2e 20 54 68 69 | s.listed.in.;;;....DATABASE..Thi |
| 8680 | 73 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 62 65 20 75 73 65 66 75 6c 20 66 6f 72 20 61 75 74 | s.function.may.be.useful.for.aut |
| 86a0 | 6f 6d 61 74 69 63 61 6c 6c 79 20 63 6f 6d 70 75 74 69 6e 67 0a 3b 3b 3b 20 20 20 20 66 69 6c 65 | omatically.computing.;;;....file |
| 86c0 | 20 6c 6f 61 64 69 6e 67 20 63 6f 6e 73 74 72 61 69 6e 74 73 20 66 6f 72 20 61 20 73 79 73 74 65 | .loading.constraints.for.a.syste |
| 86e0 | 6d 20 64 65 66 69 6e 69 74 69 6f 6e 20 74 6f 6f 6c 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 57 52 49 54 45 | m.definition.tool..;;;.;;;.WRITE |
| 8700 | 2d 43 41 4c 4c 45 52 53 2d 44 41 54 41 42 41 53 45 2d 54 4f 2d 46 49 4c 45 20 28 66 69 6c 65 6e | -CALLERS-DATABASE-TO-FILE.(filen |
| 8720 | 61 6d 65 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 46 55 4e 43 54 49 | ame).....................[FUNCTI |
| 8740 | 4f 4e 5d 0a 3b 3b 3b 20 20 20 20 53 61 76 65 73 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 | ON].;;;....Saves.the.contents.of |
| 8760 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 61 6c 6c 65 72 73 20 64 61 74 61 62 61 73 65 20 74 6f | .the.current.callers.database.to |
| 8780 | 20 61 20 66 69 6c 65 2e 20 54 68 69 73 0a 3b 3b 3b 20 20 20 20 66 69 6c 65 20 63 61 6e 20 62 65 | .a.file..This.;;;....file.can.be |
| 87a0 | 20 6c 6f 61 64 65 64 20 74 6f 20 72 65 73 74 6f 72 65 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 | .loaded.to.restore.the.previous. |
| 87c0 | 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 0a 3b 3b 3b 20 20 20 20 64 61 74 61 62 61 73 65 2e | contents.of.the.;;;....database. |
| 87e0 | 20 28 46 6f 72 20 6c 61 72 67 65 20 73 79 73 74 65 6d 73 20 69 74 20 63 61 6e 20 74 61 6b 65 20 | .(For.large.systems.it.can.take. |
| 8800 | 61 20 6c 6f 6e 67 20 74 69 6d 65 20 74 6f 20 63 72 75 6e 63 68 0a 3b 3b 3b 20 20 20 20 74 68 72 | a.long.time.to.crunch.;;;....thr |
| 8820 | 6f 75 67 68 20 74 68 65 20 63 6f 64 65 2c 20 73 6f 20 74 68 69 73 20 63 61 6e 20 73 61 76 65 20 | ough.the.code,.so.this.can.save. |
| 8840 | 73 6f 6d 65 20 74 69 6d 65 2e 29 0a 3b 3b 3b 0a 3b 3b 3b 20 2d 2d 2d 2d 2d 0a 3b 3b 3b 20 54 68 | some.time.).;;;.;;;.-----.;;;.Th |
| 8860 | 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 61 63 72 6f 73 20 64 65 66 69 6e 65 20 6e 65 77 20 66 75 | e.following.macros.define.new.fu |
| 8880 | 6e 63 74 69 6f 6e 20 61 6e 64 20 6d 61 63 72 6f 20 63 61 6c 6c 20 70 61 74 74 65 72 6e 73 2e 0a | nction.and.macro.call.patterns.. |
| 88a0 | 3b 3b 3b 20 54 68 65 79 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f 20 65 78 74 65 6e 64 20 74 | ;;;.They.may.be.used.to.extend.t |
| 88c0 | 68 65 20 73 74 61 74 69 63 20 61 6e 61 6c 79 73 69 73 20 74 6f 6f 6c 20 74 6f 20 68 61 6e 64 6c | he.static.analysis.tool.to.handl |
| 88e0 | 65 0a 3b 3b 3b 20 6e 65 77 20 64 65 66 20 66 6f 72 6d 73 2c 20 65 78 74 65 6e 73 69 6f 6e 73 20 | e.;;;.new.def.forms,.extensions. |
| 8900 | 74 6f 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2c 20 61 6e 64 20 70 72 6f 67 72 61 6d 20 64 65 66 73 | to.Common.Lisp,.and.program.defs |
| 8920 | 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 44 45 46 49 4e 45 2d 50 41 54 54 45 52 4e 2d 53 55 42 53 54 49 54 | ..;;;.;;;.DEFINE-PATTERN-SUBSTIT |
| 8940 | 55 54 49 4f 4e 20 28 6e 61 6d 65 20 70 61 74 74 65 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 | UTION.(name.pattern)............ |
| 8960 | 20 20 20 20 20 20 20 20 5b 4d 41 43 52 4f 5d 0a 3b 3b 3b 20 20 20 20 44 65 66 69 6e 65 73 20 4e | ........[MACRO].;;;....Defines.N |
| 8980 | 41 4d 45 20 74 6f 20 62 65 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 74 68 65 20 73 70 65 63 | AME.to.be.equivalent.to.the.spec |
| 89a0 | 69 66 69 65 64 20 70 61 74 74 65 72 6e 2e 20 55 73 65 66 75 6c 20 66 6f 72 0a 3b 3b 3b 20 20 20 | ified.pattern..Useful.for.;;;... |
| 89c0 | 20 6d 61 6b 69 6e 67 20 70 61 74 74 65 72 6e 73 20 6d 6f 72 65 20 72 65 61 64 61 62 6c 65 2e 20 | .making.patterns.more.readable.. |
| 89e0 | 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 65 20 4c 41 4d 42 44 41 2d 4c 49 53 54 20 69 73 0a | For.example,.the.LAMBDA-LIST.is. |
| 8a00 | 3b 3b 3b 20 20 20 20 64 65 66 69 6e 65 64 20 61 73 20 61 20 70 61 74 74 65 72 6e 20 73 75 62 73 | ;;;....defined.as.a.pattern.subs |
| 8a20 | 74 69 74 75 74 69 6f 6e 2c 20 6d 61 6b 69 6e 67 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 | titution,.making.the.definition. |
| 8a40 | 6f 66 20 74 68 65 0a 3b 3b 3b 20 20 20 20 44 45 46 55 4e 20 63 61 6c 6c 65 72 2d 70 61 74 74 65 | of.the.;;;....DEFUN.caller-patte |
| 8a60 | 72 6e 20 73 69 6d 70 6c 65 72 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 44 45 46 49 4e 45 2d 43 41 4c 4c 45 | rn.simpler..;;;.;;;.DEFINE-CALLE |
| 8a80 | 52 2d 50 41 54 54 45 52 4e 20 28 6e 61 6d 65 20 70 61 74 74 65 72 6e 20 26 6f 70 74 69 6f 6e 61 | R-PATTERN.(name.pattern.&optiona |
| 8aa0 | 6c 20 63 61 6c 6c 65 72 2d 74 79 70 65 29 20 20 20 20 5b 4d 41 43 52 4f 5d 0a 3b 3b 3b 20 20 20 | l.caller-type)....[MACRO].;;;... |
| 8ac0 | 20 44 65 66 69 6e 65 73 20 4e 41 4d 45 20 61 73 20 61 20 66 75 6e 63 74 69 6f 6e 2f 6d 61 63 72 | .Defines.NAME.as.a.function/macr |
| 8ae0 | 6f 20 63 61 6c 6c 20 77 69 74 68 20 61 72 67 75 6d 65 6e 74 20 73 74 72 75 63 74 75 72 65 0a 3b | o.call.with.argument.structure.; |
| 8b00 | 3b 3b 20 20 20 20 64 65 73 63 72 69 62 65 64 20 62 79 20 50 41 54 54 45 52 4e 2e 20 43 41 4c 4c | ;;....described.by.PATTERN..CALL |
| 8b20 | 45 52 2d 54 59 50 45 2c 20 69 66 20 73 70 65 63 69 66 69 65 64 2c 20 61 73 73 69 67 6e 73 20 61 | ER-TYPE,.if.specified,.assigns.a |
| 8b40 | 20 74 79 70 65 20 74 6f 0a 3b 3b 3b 20 20 20 20 74 68 65 20 70 61 74 74 65 72 6e 2c 20 77 68 69 | .type.to.;;;....the.pattern,.whi |
| 8b60 | 63 68 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f 20 65 78 63 6c 75 64 65 20 72 65 66 65 72 65 | ch.may.be.used.to.exclude.refere |
| 8b80 | 6e 63 65 73 20 74 6f 20 4e 41 4d 45 20 77 68 69 6c 65 0a 3b 3b 3b 20 20 20 20 76 69 65 77 69 6e | nces.to.NAME.while.;;;....viewin |
| 8ba0 | 67 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 61 6c 6c | g.the.database..For.example,.all |
| 8bc0 | 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 64 65 66 69 6e 69 74 69 6f 6e 73 0a 3b 3b 3b | .the.Common.Lisp.definitions.;;; |
| 8be0 | 20 20 20 20 68 61 76 65 20 61 20 63 61 6c 6c 65 72 2d 74 79 70 65 20 6f 66 20 3a 6c 69 73 70 20 | ....have.a.caller-type.of.:lisp. |
| 8c00 | 6f 72 20 3a 6c 69 73 70 32 2c 20 73 6f 20 74 68 61 74 20 79 6f 75 20 63 61 6e 20 65 78 63 6c 75 | or.:lisp2,.so.that.you.can.exclu |
| 8c20 | 64 65 0a 3b 3b 3b 20 20 20 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 63 6f 6d 6d 6f 6e 20 6c | de.;;;....references.to.common.l |
| 8c40 | 69 73 70 20 66 75 6e 63 74 69 6f 6e 73 20 66 72 6f 6d 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 74 | isp.functions.from.the.calling.t |
| 8c60 | 72 65 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 44 45 46 49 4e 45 2d 56 41 52 49 41 42 4c 45 2d 50 41 54 | ree..;;;.;;;.DEFINE-VARIABLE-PAT |
| 8c80 | 54 45 52 4e 20 28 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6c 6c 65 72 2d 74 79 70 65 | TERN.(name.&optional.caller-type |
| 8ca0 | 29 20 20 20 20 20 20 20 20 20 20 5b 4d 41 43 52 4f 5d 0a 3b 3b 3b 20 20 20 20 44 65 66 69 6e 65 | )..........[MACRO].;;;....Define |
| 8cc0 | 73 20 4e 41 4d 45 20 61 73 20 61 20 76 61 72 69 61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 20 6f | s.NAME.as.a.variable.reference.o |
| 8ce0 | 66 20 74 79 70 65 20 43 41 4c 4c 45 52 2d 54 59 50 45 2e 20 54 68 69 73 20 69 73 0a 3b 3b 3b 20 | f.type.CALLER-TYPE..This.is.;;;. |
| 8d00 | 20 20 20 6d 61 69 6e 6c 79 20 75 73 65 64 20 74 6f 20 65 73 74 61 62 6c 69 73 68 20 74 68 65 20 | ...mainly.used.to.establish.the. |
| 8d20 | 63 61 6c 6c 65 72 2d 74 79 70 65 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 2e 0a 3b 3b 3b | caller-type.of.the.variable..;;; |
| 8d40 | 0a 3b 3b 3b 20 44 45 46 49 4e 45 2d 43 41 4c 4c 45 52 2d 50 41 54 54 45 52 4e 2d 53 59 4e 4f 4e | .;;;.DEFINE-CALLER-PATTERN-SYNON |
| 8d60 | 59 4d 53 20 28 73 6f 75 72 63 65 20 64 65 73 74 69 6e 61 74 69 6f 6e 73 29 20 20 20 20 20 20 20 | YMS.(source.destinations)....... |
| 8d80 | 20 20 20 5b 4d 41 43 52 4f 5d 0a 3b 3b 3b 20 20 20 20 46 6f 72 20 64 65 66 69 6e 69 6e 67 20 66 | ...[MACRO].;;;....For.defining.f |
| 8da0 | 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 65 72 20 70 61 74 74 65 72 6e 20 73 79 6e 74 61 78 20 73 79 | unction.caller.pattern.syntax.sy |
| 8dc0 | 6e 6f 6e 79 6d 73 2e 20 46 6f 72 20 65 61 63 68 20 6e 61 6d 65 0a 3b 3b 3b 20 20 20 20 69 6e 20 | nonyms..For.each.name.;;;....in. |
| 8de0 | 44 45 53 54 49 4e 41 54 49 4f 4e 53 2c 20 64 65 66 69 6e 65 73 20 69 74 73 20 70 61 74 74 65 72 | DESTINATIONS,.defines.its.patter |
| 8e00 | 6e 20 61 73 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 0a 3b 3b | n.as.a.copy.of.the.definition.;; |
| 8e20 | 3b 20 20 20 20 6f 66 20 53 4f 55 52 43 45 2e 20 41 6c 6c 6f 77 73 20 61 20 6c 61 72 67 65 20 6e | ;....of.SOURCE..Allows.a.large.n |
| 8e40 | 75 6d 62 65 72 20 6f 66 20 69 64 65 6e 74 69 63 61 6c 20 70 61 74 74 65 72 6e 73 20 74 6f 20 62 | umber.of.identical.patterns.to.b |
| 8e60 | 65 20 64 65 66 69 6e 65 64 0a 3b 3b 3b 20 20 20 20 73 69 6d 75 6c 74 61 6e 65 6f 75 73 6c 79 2e | e.defined.;;;....simultaneously. |
| 8e80 | 20 4d 75 73 74 20 6f 63 63 75 72 20 61 66 74 65 72 20 74 68 65 20 53 4f 55 52 43 45 20 68 61 73 | .Must.occur.after.the.SOURCE.has |
| 8ea0 | 20 62 65 65 6e 20 64 65 66 69 6e 65 64 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 2d 2d 2d 2d 2d 0a 3b 3b 3b | .been.defined..;;;.;;;.-----.;;; |
| 8ec0 | 20 54 68 69 73 20 73 79 73 74 65 6d 20 69 6e 63 6c 75 64 65 73 20 70 61 74 74 65 72 6e 20 64 65 | .This.system.includes.pattern.de |
| 8ee0 | 66 69 6e 69 74 69 6f 6e 73 20 66 6f 72 20 74 68 65 20 6c 61 74 65 73 74 0a 3b 3b 3b 20 63 6f 6d | finitions.for.the.latest.;;;.com |
| 8f00 | 6d 6f 6e 20 6c 69 73 70 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 2c 20 61 73 20 70 75 62 6c 69 | mon.lisp.specification,.as.publi |
| 8f20 | 73 68 65 64 20 69 6e 20 47 75 79 20 53 74 65 65 6c 65 2c 0a 3b 3b 3b 20 43 6f 6d 6d 6f 6e 20 4c | shed.in.Guy.Steele,.;;;.Common.L |
| 8f40 | 69 73 70 3a 20 54 68 65 20 4c 61 6e 67 75 61 67 65 2c 20 32 6e 64 20 45 64 69 74 69 6f 6e 2e 0a | isp:.The.Language,.2nd.Edition.. |
| 8f60 | 3b 3b 3b 0a 3b 3b 3b 20 50 61 74 74 65 72 6e 73 20 6d 61 79 20 62 65 20 65 69 74 68 65 72 20 73 | ;;;.;;;.Patterns.may.be.either.s |
| 8f80 | 74 72 75 63 74 75 72 65 73 20 74 6f 20 6d 61 74 63 68 2c 20 6f 72 20 61 20 70 72 65 64 69 63 61 | tructures.to.match,.or.a.predica |
| 8fa0 | 74 65 0a 3b 3b 3b 20 6c 69 6b 65 20 73 79 6d 62 6f 6c 70 2f 6e 75 6d 62 65 72 70 2f 73 74 72 69 | te.;;;.like.symbolp/numberp/stri |
| 8fc0 | 6e 67 70 2e 20 54 68 65 20 70 61 74 74 65 72 6e 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 6c | ngp..The.pattern.specification.l |
| 8fe0 | 61 6e 67 75 61 67 65 0a 3b 3b 3b 20 69 73 20 73 69 6d 69 6c 61 72 20 74 6f 20 74 68 65 20 6e 6f | anguage.;;;.is.similar.to.the.no |
| 9000 | 74 61 74 69 6f 6e 20 75 73 65 64 20 69 6e 20 43 4c 74 4c 32 2c 20 62 75 74 20 69 6e 20 61 20 6d | tation.used.in.CLtL2,.but.in.a.m |
| 9020 | 6f 72 65 20 6c 69 73 70 2d 6c 69 6b 65 20 0a 3b 3b 3b 20 66 6f 72 6d 3a 0a 3b 3b 3b 20 20 20 20 | ore.lisp-like..;;;.form:.;;;.... |
| 9040 | 28 3a 65 71 20 6e 61 6d 65 29 20 20 20 20 20 20 20 20 20 20 20 54 68 65 20 66 6f 72 6d 20 65 6c | (:eq.name)...........The.form.el |
| 9060 | 65 6d 65 6e 74 20 6d 75 73 74 20 62 65 20 65 71 20 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c 20 4e | ement.must.be.eq.to.the.symbol.N |
| 9080 | 41 4d 45 2e 0a 3b 3b 3b 20 20 20 20 28 3a 74 65 73 74 20 74 65 73 74 29 20 20 20 20 20 20 20 20 | AME..;;;....(:test.test)........ |
| 90a0 | 20 54 45 53 54 20 6d 75 73 74 20 62 65 20 74 72 75 65 20 77 68 65 6e 20 61 70 70 6c 69 65 64 20 | .TEST.must.be.true.when.applied. |
| 90c0 | 74 6f 20 74 68 65 20 66 6f 72 6d 20 65 6c 65 6d 65 6e 74 2e 0a 3b 3b 3b 20 20 20 20 28 3a 74 79 | to.the.form.element..;;;....(:ty |
| 90e0 | 70 65 70 20 74 79 70 65 29 20 20 20 20 20 20 20 20 54 68 65 20 66 6f 72 6d 20 65 6c 65 6d 65 6e | pep.type)........The.form.elemen |
| 9100 | 74 20 6d 75 73 74 20 62 65 20 6f 66 20 74 79 70 65 20 54 59 50 45 2e 0a 3b 3b 3b 20 20 20 20 28 | t.must.be.of.type.TYPE..;;;....( |
| 9120 | 3a 6f 72 20 70 61 74 31 20 70 61 74 32 20 2e 2e 2e 29 20 20 54 72 69 65 73 20 65 61 63 68 20 6f | :or.pat1.pat2....)..Tries.each.o |
| 9140 | 66 20 74 68 65 20 70 61 74 74 65 72 6e 73 20 69 6e 20 6c 65 66 74 2d 74 6f 2d 72 69 67 68 74 20 | f.the.patterns.in.left-to-right. |
| 9160 | 6f 72 64 65 72 2c 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | order,.;;;...................... |
| 9180 | 20 20 20 75 6e 74 69 6c 20 6f 6e 65 20 73 75 63 63 65 65 64 73 2e 0a 3b 3b 3b 20 20 20 20 20 20 | ...until.one.succeeds..;;;...... |
| 91a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 71 75 69 76 61 6c 65 6e 74 20 74 6f | ...................Equivalent.to |
| 91c0 | 20 7b 20 70 61 74 31 20 7c 20 70 61 74 32 20 7c 20 2e 2e 2e 20 7d 0a 3b 3b 3b 20 20 20 20 28 3a | .{.pat1.|.pat2.|.....}.;;;....(: |
| 91e0 | 72 65 73 74 20 70 61 74 74 65 72 6e 29 20 20 20 20 20 20 54 68 65 20 72 65 6d 61 69 6e 69 6e 67 | rest.pattern)......The.remaining |
| 9200 | 20 66 6f 72 6d 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 67 72 6f 75 70 65 64 20 69 6e 74 6f 20 | .form.elements.are.grouped.into. |
| 9220 | 61 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 | a.;;;.........................li |
| 9240 | 73 74 20 77 68 69 63 68 20 69 73 20 6d 61 74 63 68 65 64 20 61 67 61 69 6e 73 74 20 50 41 54 54 | st.which.is.matched.against.PATT |
| 9260 | 45 52 4e 2e 0a 3b 3b 3b 20 20 20 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 70 61 74 31 20 2e 2e 2e 29 | ERN..;;;....(:optional.pat1....) |
| 9280 | 20 54 68 65 20 70 61 74 74 65 72 6e 73 20 6d 61 79 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 6d 61 74 | .The.patterns.may.optionally.mat |
| 92a0 | 63 68 20 61 67 61 69 6e 73 74 20 74 68 65 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ch.against.the.;;;.............. |
| 92c0 | 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 20 65 6c 65 6d 65 6e 74 2e 0a 3b 3b 3b 20 20 20 20 | ...........form.element..;;;.... |
| 92e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 71 75 69 76 61 6c 65 6e 74 20 | .....................Equivalent. |
| 9300 | 74 6f 20 5b 20 70 61 74 31 20 2e 2e 2e 20 5d 2e 0a 3b 3b 3b 20 20 20 20 28 3a 73 74 61 72 20 70 | to.[.pat1.....]..;;;....(:star.p |
| 9320 | 61 74 31 20 2e 2e 2e 29 20 20 20 20 20 54 68 65 20 70 61 74 74 65 72 6e 73 20 6d 61 79 20 6d 61 | at1....).....The.patterns.may.ma |
| 9340 | 74 63 68 20 61 67 61 69 6e 73 74 20 74 68 65 20 70 61 74 74 65 72 6e 73 0a 3b 3b 3b 20 20 20 20 | tch.against.the.patterns.;;;.... |
| 9360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 79 20 6e 75 6d 62 65 72 20 | .....................any.number. |
| 9380 | 6f 66 20 74 69 6d 65 73 2c 20 69 6e 63 6c 75 64 69 6e 67 20 30 2e 0a 3b 3b 3b 20 20 20 20 20 20 | of.times,.including.0..;;;...... |
| 93a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 71 75 69 76 61 6c 65 6e 74 20 74 6f | ...................Equivalent.to |
| 93c0 | 20 7b 20 70 61 74 31 20 2e 2e 2e 20 7d 2a 2e 0a 3b 3b 3b 20 20 20 20 28 3a 70 6c 75 73 20 70 61 | .{.pat1.....}*..;;;....(:plus.pa |
| 93e0 | 74 31 20 2e 2e 2e 29 20 20 20 20 20 54 68 65 20 70 61 74 74 65 72 6e 73 20 6d 61 79 20 6d 61 74 | t1....).....The.patterns.may.mat |
| 9400 | 63 68 20 61 67 61 69 6e 73 74 20 74 68 65 20 70 61 74 74 65 72 6e 73 0a 3b 3b 3b 20 20 20 20 20 | ch.against.the.patterns.;;;..... |
| 9420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 79 20 6e 75 6d 62 65 72 20 6f | ....................any.number.o |
| 9440 | 66 20 74 69 6d 65 73 2c 20 62 75 74 20 61 74 20 6c 65 61 73 74 20 6f 6e 63 65 2e 0a 3b 3b 3b 20 | f.times,.but.at.least.once..;;;. |
| 9460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 71 75 69 76 61 6c 65 | ........................Equivale |
| 9480 | 6e 74 20 74 6f 20 7b 20 70 61 74 31 20 2e 2e 2e 20 7d 2b 2e 0a 3b 3b 3b 20 20 20 20 26 6f 70 74 | nt.to.{.pat1.....}+..;;;....&opt |
| 94a0 | 69 6f 6e 61 6c 2c 20 26 6b 65 79 2c 20 20 20 20 20 53 69 6d 69 6c 61 72 20 69 6e 20 62 65 68 61 | ional,.&key,.....Similar.in.beha |
| 94c0 | 76 69 6f 72 20 74 6f 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 3b 3b 3b 20 20 20 | vior.to.the.corresponding.;;;... |
| 94e0 | 20 26 72 65 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 6d 62 64 61 2d 6c 69 73 | .&rest................lambda-lis |
| 9500 | 74 20 6b 65 79 77 6f 72 64 73 2e 0a 3b 3b 3b 20 20 20 20 46 4f 52 4d 20 20 20 20 20 20 20 20 20 | t.keywords..;;;....FORM......... |
| 9520 | 20 20 20 20 20 20 20 20 41 20 72 61 6e 64 6f 6d 20 6c 69 73 70 20 66 6f 72 6d 2e 20 49 66 20 61 | ........A.random.lisp.form..If.a |
| 9540 | 20 63 6f 6e 73 2c 20 61 73 73 75 6d 65 73 20 74 68 65 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 | .cons,.assumes.the.;;;.......... |
| 9560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 72 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e | ...............car.is.a.function |
| 9580 | 20 6f 72 20 6d 61 63 72 6f 20 61 6e 64 20 74 72 69 65 73 20 74 6f 0a 3b 3b 3b 20 20 20 20 20 20 | .or.macro.and.tries.to.;;;...... |
| 95a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 74 63 68 20 74 68 65 20 61 72 67 | ...................match.the.arg |
| 95c0 | 73 20 61 67 61 69 6e 73 74 20 74 68 61 74 20 73 79 6d 62 6f 6c 27 73 20 70 61 74 74 65 72 6e 2e | s.against.that.symbol's.pattern. |
| 95e0 | 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 | .;;;.........................If. |
| 9600 | 61 20 73 79 6d 62 6f 6c 2c 20 61 73 73 75 6d 65 73 20 69 74 27 73 20 61 20 76 61 72 69 61 62 6c | a.symbol,.assumes.it's.a.variabl |
| 9620 | 65 20 72 65 66 65 72 65 6e 63 65 2e 0a 3b 3b 3b 20 20 20 20 3a 69 67 6e 6f 72 65 20 20 20 20 20 | e.reference..;;;....:ignore..... |
| 9640 | 20 20 20 20 20 20 20 20 20 49 67 6e 6f 72 65 73 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 | .........Ignores.the.correspondi |
| 9660 | 6e 67 20 66 6f 72 6d 20 65 6c 65 6d 65 6e 74 2e 0a 3b 3b 3b 20 20 20 20 4e 41 4d 45 20 20 20 20 | ng.form.element..;;;....NAME.... |
| 9680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 66 | .............The.corresponding.f |
| 96a0 | 6f 72 6d 20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 0a 3b 3b 3b 20 20 20 20 20 20 20 | orm.element.should.be.;;;....... |
| 96c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 | ..................the.name.of.a. |
| 96e0 | 6e 65 77 20 64 65 66 69 6e 69 74 69 6f 6e 20 28 65 2e 67 2e 2c 20 74 68 65 0a 3b 3b 3b 20 20 20 | new.definition.(e.g.,.the.;;;... |
| 9700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 72 73 74 20 61 72 67 20 | ......................first.arg. |
| 9720 | 69 6e 20 61 20 64 65 66 75 6e 20 70 61 74 74 65 72 6e 20 69 73 20 4e 41 4d 45 2e 0a 3b 3b 3b 20 | in.a.defun.pattern.is.NAME..;;;. |
| 9740 | 20 20 20 46 55 4e 43 54 49 4f 4e 2c 20 4d 41 43 52 4f 20 20 20 20 20 20 54 68 65 20 63 6f 72 72 | ...FUNCTION,.MACRO......The.corr |
| 9760 | 65 73 70 6f 6e 64 69 6e 67 20 66 6f 72 6d 20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 | esponding.form.element.should.be |
| 9780 | 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 20 66 | .;;;.........................a.f |
| 97a0 | 75 6e 63 74 69 6f 6e 20 72 65 66 65 72 65 6e 63 65 20 6e 6f 74 20 68 61 6e 64 6c 65 64 20 62 79 | unction.reference.not.handled.by |
| 97c0 | 20 46 4f 52 4d 2e 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .FORM..;;;...................... |
| 97e0 | 20 20 20 55 73 65 64 20 69 6e 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 61 70 70 | ...Used.in.the.definition.of.app |
| 9800 | 6c 79 20 61 6e 64 20 66 75 6e 63 61 6c 6c 2e 0a 3b 3b 3b 20 20 20 20 56 41 52 20 20 20 20 20 20 | ly.and.funcall..;;;....VAR...... |
| 9820 | 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 66 6f | ............The.corresponding.fo |
| 9840 | 72 6d 20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 0a 3b 3b 3b 20 20 20 20 20 20 20 20 | rm.element.should.be.;;;........ |
| 9860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 20 76 61 72 69 61 62 6c 65 20 64 65 66 69 | .................a.variable.defi |
| 9880 | 6e 69 74 69 6f 6e 20 6f 72 20 6d 75 74 61 74 69 6f 6e 2e 20 55 73 65 64 0a 3b 3b 3b 20 20 20 20 | nition.or.mutation..Used.;;;.... |
| 98a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 20 74 68 65 20 64 65 66 69 | .....................in.the.defi |
| 98c0 | 6e 69 74 69 6f 6e 20 6f 66 20 6c 65 74 2c 20 6c 65 74 2a 2c 20 65 74 63 2e 0a 3b 3b 3b 20 20 20 | nition.of.let,.let*,.etc..;;;... |
| 98e0 | 20 56 41 52 49 41 42 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65 20 63 6f 72 72 65 73 | .VARIABLE.............The.corres |
| 9900 | 70 6f 6e 64 69 6e 67 20 66 6f 72 6d 20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 0a 3b | ponding.form.element.should.be.; |
| 9920 | 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 20 76 61 72 | ;;.........................a.var |
| 9940 | 69 61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 2e 20 0a 3b 3b 3b 0a 3b 3b 3b 20 49 6e 20 61 6c 6c | iable.reference...;;;.;;;.In.all |
| 9960 | 20 6f 74 68 65 72 20 70 61 74 74 65 72 6e 20 73 79 6d 62 6f 6c 73 2c 20 69 74 20 6c 6f 6f 6b 73 | .other.pattern.symbols,.it.looks |
| 9980 | 20 75 70 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 70 61 74 74 65 72 6e 20 73 75 62 73 74 69 74 75 | .up.the.symbols.pattern.substitu |
| 99a0 | 74 69 6f 6e 0a 3b 3b 3b 20 61 6e 64 20 72 65 63 75 72 73 69 76 65 6c 79 20 6d 61 74 63 68 65 73 | tion.;;;.and.recursively.matches |
| 99c0 | 20 61 67 61 69 6e 73 74 20 74 68 65 20 70 61 74 74 65 72 6e 2e 20 41 75 74 6f 6d 61 74 69 63 61 | .against.the.pattern..Automatica |
| 99e0 | 6c 6c 79 20 64 65 73 74 72 75 63 74 75 72 65 73 0a 3b 3b 3b 20 6c 69 73 74 20 73 74 72 75 63 74 | lly.destructures.;;;.list.struct |
| 9a00 | 75 72 65 20 74 68 61 74 20 64 6f 65 73 20 6e 6f 74 20 69 6e 63 6c 75 64 65 20 63 6f 6e 73 69 6e | ure.that.does.not.include.consin |
| 9a20 | 67 20 64 6f 74 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 41 6d 6f 6e 67 20 74 68 65 20 70 61 74 74 65 72 | g.dots..;;;.;;;.Among.the.patter |
| 9a40 | 6e 20 73 75 62 73 74 69 74 75 74 69 6f 6e 20 6e 61 6d 65 73 20 64 65 66 69 6e 65 64 20 61 72 65 | n.substitution.names.defined.are |
| 9a60 | 3a 0a 3b 3b 3b 20 20 20 20 53 54 52 49 4e 47 2c 20 53 59 4d 42 4f 4c 2c 20 4e 55 4d 42 45 52 20 | :.;;;....STRING,.SYMBOL,.NUMBER. |
| 9a80 | 20 20 20 41 70 70 72 6f 70 72 69 61 74 65 20 3a 74 65 73 74 20 70 61 74 74 65 72 6e 73 2e 0a 3b | ...Appropriate.:test.patterns..; |
| 9aa0 | 3b 3b 20 20 20 20 4c 41 4d 42 44 41 2d 4c 49 53 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;;....LAMBDA-LIST............... |
| 9ac0 | 4d 61 74 63 68 65 73 20 61 67 61 69 6e 73 74 20 61 20 6c 61 6d 62 64 61 20 6c 69 73 74 2e 0a 3b | Matches.against.a.lambda.list..; |
| 9ae0 | 3b 3b 20 20 20 20 42 4f 44 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;;....BODY...................... |
| 9b00 | 4d 61 74 63 68 65 73 20 61 67 61 69 6e 73 74 20 61 20 66 75 6e 63 74 69 6f 6e 20 62 6f 64 79 20 | Matches.against.a.function.body. |
| 9b20 | 64 65 66 69 6e 69 74 69 6f 6e 2e 0a 3b 3b 3b 20 20 20 20 46 4e 20 20 20 20 20 20 20 20 20 20 20 | definition..;;;....FN........... |
| 9b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 74 63 68 65 73 20 61 67 61 69 6e 73 74 20 23 27 66 | .............Matches.against.#'f |
| 9b60 | 75 6e 63 74 69 6f 6e 2c 20 27 66 75 6e 63 74 69 6f 6e 2c 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 | unction,.'function,.;;;......... |
| 9b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 6c 61 6d 62 64 61 73 | .....................and.lambdas |
| 9ba0 | 2e 20 54 68 69 73 20 69 73 20 75 73 65 64 20 69 6e 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e | ..This.is.used.in.the.definition |
| 9bc0 | 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .;;;............................ |
| 9be0 | 20 20 6f 66 20 61 70 70 6c 79 2c 20 66 75 6e 63 61 6c 6c 2c 20 61 6e 64 20 74 68 65 20 6d 61 70 | ..of.apply,.funcall,.and.the.map |
| 9c00 | 70 69 6e 67 20 70 61 74 74 65 72 6e 73 2e 0a 3b 3b 3b 20 20 20 20 61 6e 64 20 6f 74 68 65 72 73 | ping.patterns..;;;....and.others |
| 9c20 | 2e 2e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 48 65 72 65 27 73 20 73 6f 6d 65 20 73 61 6d 70 6c 65 20 70 | ....;;;.;;;.Here's.some.sample.p |
| 9c40 | 61 74 74 65 72 6e 20 64 65 66 69 6e 69 74 69 6f 6e 73 3a 0a 3b 3b 3b 20 28 64 65 66 69 6e 65 2d | attern.definitions:.;;;.(define- |
| 9c60 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 66 75 6e 20 0a 3b 3b 3b 20 20 20 28 6e 61 6d | caller-pattern.defun..;;;...(nam |
| 9c80 | 65 20 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 3b 3b 3b 09 28 3a 73 74 61 72 20 28 3a 6f 72 20 64 6f | e.lambda-list.;;;.(:star.(:or.do |
| 9ca0 | 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 29 | cumentation-string.declaration)) |
| 9cc0 | 0a 3b 3b 3b 09 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 3b 3b 3b 20 20 3a 6c 69 73 70 29 0a 3b | .;;;.(:star.form)).;;;..:lisp).; |
| 9ce0 | 3b 3b 20 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 75 6e 63 61 6c | ;;.(define-caller-pattern.funcal |
| 9d00 | 6c 20 28 66 6e 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 3b 3b 3b 0a 3b | l.(fn.(:star.form)).:lisp).;;;.; |
| 9d20 | 3b 3b 20 49 6e 20 67 65 6e 65 72 61 6c 2c 20 74 68 65 20 73 79 73 74 65 6d 20 69 73 20 69 6e 74 | ;;.In.general,.the.system.is.int |
| 9d40 | 65 6c 6c 69 67 65 6e 74 20 65 6e 6f 75 67 68 20 74 6f 20 68 61 6e 64 6c 65 20 61 6e 79 20 73 6f | elligent.enough.to.handle.any.so |
| 9d60 | 72 74 20 6f 66 0a 3b 3b 3b 20 73 69 6d 70 6c 65 20 66 75 6e 63 61 6c 6c 2e 20 4f 6e 65 20 6f 6e | rt.of.;;;.simple.funcall..One.on |
| 9d80 | 6c 79 20 6e 65 65 64 20 73 70 65 63 69 66 79 20 74 68 65 20 73 79 6e 74 61 78 20 66 6f 72 20 66 | ly.need.specify.the.syntax.for.f |
| 9da0 | 75 6e 63 74 69 6f 6e 73 20 61 6e 64 0a 3b 3b 3b 20 6d 61 63 72 6f 73 20 77 68 69 63 68 20 75 73 | unctions.and.;;;.macros.which.us |
| 9dc0 | 65 20 6f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 73 2c 20 6b 65 79 77 6f 72 64 20 61 72 | e.optional.arguments,.keyword.ar |
| 9de0 | 67 75 6d 65 6e 74 73 2c 20 6f 72 20 73 6f 6d 65 0a 3b 3b 3b 20 61 72 67 75 6d 65 6e 74 20 70 6f | guments,.or.some.;;;.argument.po |
| 9e00 | 73 69 74 69 6f 6e 73 20 61 72 65 20 73 70 65 63 69 61 6c 2c 20 73 75 63 68 20 61 73 20 69 6e 20 | sitions.are.special,.such.as.in. |
| 9e20 | 61 70 70 6c 79 20 61 6e 64 20 66 75 6e 63 61 6c 6c 2c 20 6f 72 0a 3b 3b 3b 20 74 6f 20 69 6e 64 | apply.and.funcall,.or.;;;.to.ind |
| 9e40 | 69 63 61 74 65 20 74 68 61 74 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6f 66 20 74 68 | icate.that.the.function.is.of.th |
| 9e60 | 65 20 73 70 65 63 69 66 69 65 64 20 63 61 6c 6c 65 72 20 74 79 70 65 2e 0a 3b 3b 3b 0a 3b 3b 3b | e.specified.caller.type..;;;.;;; |
| 9e80 | 0a 3b 3b 3b 20 4e 4f 54 45 53 3a 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 58 52 65 66 20 61 73 73 75 | .;;;.NOTES:.;;;.;;;....XRef.assu |
| 9ea0 | 6d 65 73 20 73 79 6e 74 61 63 74 69 63 61 6c 6c 79 20 63 6f 72 72 65 63 74 20 6c 69 73 70 20 63 | mes.syntactically.correct.lisp.c |
| 9ec0 | 6f 64 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 54 68 69 73 20 69 73 20 62 79 20 6e 6f 20 6d 65 | ode..;;;.;;;....This.is.by.no.me |
| 9ee0 | 61 6e 73 20 70 65 72 66 65 63 74 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 6c 65 74 20 61 6e | ans.perfect..For.example,.let.an |
| 9f00 | 64 20 6c 65 74 2a 20 61 72 65 20 74 72 65 61 74 65 64 0a 3b 3b 3b 20 20 20 20 69 64 65 6e 74 69 | d.let*.are.treated.;;;....identi |
| 9f20 | 63 61 6c 6c 79 2c 20 69 6e 73 74 65 61 64 20 6f 66 20 64 69 66 66 65 72 65 6e 74 69 61 74 69 6e | cally,.instead.of.differentiatin |
| 9f40 | 67 20 62 65 74 77 65 65 6e 20 73 65 72 69 61 6c 20 61 6e 64 20 70 61 72 61 6c 6c 65 6c 0a 3b 3b | g.between.serial.and.parallel.;; |
| 9f60 | 3b 20 20 20 20 62 69 6e 64 69 6e 67 2e 20 42 75 74 20 69 74 27 73 20 73 74 69 6c 6c 20 61 20 75 | ;....binding..But.it's.still.a.u |
| 9f80 | 73 65 66 75 6c 20 74 6f 6f 6c 2e 20 49 74 20 63 61 6e 20 62 65 20 68 65 6c 70 66 75 6c 20 69 6e | seful.tool..It.can.be.helpful.in |
| 9fa0 | 20 0a 3b 3b 3b 20 20 20 20 6d 61 69 6e 74 61 69 6e 69 6e 67 20 63 6f 64 65 2c 20 64 65 62 75 67 | ..;;;....maintaining.code,.debug |
| 9fc0 | 67 69 6e 67 20 70 72 6f 62 6c 65 6d 73 20 77 69 74 68 20 70 61 74 63 68 20 66 69 6c 65 73 2c 20 | ging.problems.with.patch.files,. |
| 9fe0 | 64 65 74 65 72 6d 69 6e 69 6e 67 0a 3b 3b 3b 20 20 20 20 77 68 65 74 68 65 72 20 66 75 6e 63 74 | determining.;;;....whether.funct |
| a000 | 69 6f 6e 73 20 61 72 65 20 6d 75 6c 74 69 70 6c 79 20 64 65 66 69 6e 65 64 2c 20 61 6e 64 20 68 | ions.are.multiply.defined,.and.h |
| a020 | 65 6c 70 20 79 6f 75 20 72 65 6d 65 6d 62 65 72 20 77 68 65 72 65 0a 3b 3b 3b 20 20 20 20 61 20 | elp.you.remember.where.;;;....a. |
| a040 | 66 75 6e 63 74 69 6f 6e 20 69 73 20 64 65 66 69 6e 65 64 20 6f 72 20 63 61 6c 6c 65 64 2e 0a 3b | function.is.defined.or.called..; |
| a060 | 3b 3b 0a 3b 3b 3b 20 20 20 20 58 52 45 46 20 72 75 6e 73 20 62 65 73 74 20 77 68 65 6e 20 63 6f | ;;.;;;....XREF.runs.best.when.co |
| a080 | 6d 70 69 6c 65 64 2e 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | mpiled....;;;.****************** |
| a0a0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 52 65 66 65 72 65 6e 63 65 73 20 2a 2a | **************.;;;.References.** |
| a0c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a | *******************.;;;.******** |
| a0e0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 0a 3b 3b 3b | ************************.;;;.;;; |
| a100 | 20 58 65 72 6f 78 20 49 6e 74 65 72 6c 69 73 70 20 4d 61 73 74 65 72 73 63 6f 70 65 20 50 72 6f | .Xerox.Interlisp.Masterscope.Pro |
| a120 | 67 72 61 6d 3a 0a 3b 3b 3b 20 20 20 4c 61 72 72 79 20 4d 20 4d 61 73 69 6e 74 65 72 2c 20 47 6c | gram:.;;;...Larry.M.Masinter,.Gl |
| a140 | 6f 62 61 6c 20 70 72 6f 67 72 61 6d 20 61 6e 61 6c 79 73 69 73 20 69 6e 20 61 6e 20 69 6e 74 65 | obal.program.analysis.in.an.inte |
| a160 | 72 61 63 74 69 76 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 0a 3b 3b 3b 20 20 20 50 68 44 20 54 68 | ractive.environment.;;;...PhD.Th |
| a180 | 65 73 69 73 2c 20 53 74 61 6e 66 6f 72 64 20 55 6e 69 76 65 72 73 69 74 79 2c 20 31 39 38 30 2e | esis,.Stanford.University,.1980. |
| a1a0 | 20 0a 3b 3b 3b 0a 3b 3b 3b 20 53 79 6d 62 6f 6c 69 63 73 20 57 68 6f 2d 43 61 6c 6c 73 20 44 61 | ..;;;.;;;.Symbolics.Who-Calls.Da |
| a1c0 | 74 61 62 61 73 65 3a 0a 3b 3b 3b 20 20 20 55 73 65 72 27 73 20 47 75 69 64 65 20 74 6f 20 53 79 | tabase:.;;;...User's.Guide.to.Sy |
| a1e0 | 6d 62 6f 6c 69 63 73 20 43 6f 6d 70 75 74 65 72 73 2c 20 56 6f 6c 75 6d 65 20 31 2c 20 43 61 6d | mbolics.Computers,.Volume.1,.Cam |
| a200 | 62 72 69 64 67 65 2c 20 4d 41 2c 20 4a 75 6c 79 20 31 39 38 36 0a 3b 3b 3b 20 20 20 47 65 6e 65 | bridge,.MA,.July.1986.;;;...Gene |
| a220 | 72 61 20 37 2e 30 2c 20 70 70 20 31 38 33 2d 31 38 35 2e 0a 3b 3b 3b 20 20 20 0a 0c 0a 3b 3b 3b | ra.7.0,.pp.183-185..;;;......;;; |
| a240 | 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .******************************* |
| a260 | 2a 0a 3b 3b 3b 20 45 78 61 6d 70 6c 65 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | *.;;;.Example.****************** |
| a280 | 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******.;;;.********************* |
| a2a0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 0a 3b 3b 3b 20 48 65 72 65 20 69 73 20 61 6e 20 | ***********.;;;..;;;.Here.is.an. |
| a2c0 | 65 78 61 6d 70 6c 65 20 6f 66 20 72 75 6e 6e 69 6e 67 20 58 52 45 46 20 6f 6e 20 61 20 73 68 6f | example.of.running.XREF.on.a.sho |
| a2e0 | 72 74 20 70 72 6f 67 72 61 6d 2e 0a 3b 3b 3b 20 5b 49 6e 20 53 63 72 69 62 65 20 64 6f 63 75 6d | rt.program..;;;.[In.Scribe.docum |
| a300 | 65 6e 74 61 74 69 6f 6e 2c 20 67 69 76 65 20 61 20 73 69 6d 70 6c 65 20 73 68 6f 72 74 20 70 72 | entation,.give.a.simple.short.pr |
| a320 | 6f 67 72 61 6d 20 61 6e 64 20 72 65 73 75 6c 74 69 6e 67 0a 3b 3b 3b 20 20 58 52 45 46 20 6f 75 | ogram.and.resulting.;;;..XREF.ou |
| a340 | 74 70 75 74 2c 20 69 6e 63 6c 75 64 69 6e 67 20 70 6f 73 74 73 63 72 69 70 74 20 63 61 6c 6c 20 | tput,.including.postscript.call. |
| a360 | 67 72 61 70 68 73 2e 5d 0a 23 7c 0a 3c 63 6c 3e 20 28 78 72 65 66 3a 78 72 65 66 2d 66 69 6c 65 | graphs.].#|.<cl>.(xref:xref-file |
| a380 | 20 20 22 2f 61 66 73 2f 63 73 2f 75 73 65 72 2f 6d 6b 61 6e 74 2f 4c 69 73 70 2f 47 72 61 70 68 | .."/afs/cs/user/mkant/Lisp/Graph |
| a3a0 | 2d 44 61 67 2f 67 72 61 70 68 2d 64 61 67 2e 6c 69 73 70 22 29 0a 43 72 6f 73 73 2d 72 65 66 65 | -Dag/graph-dag.lisp").Cross-refe |
| a3c0 | 72 65 6e 63 69 6e 67 20 66 69 6c 65 20 2f 61 66 73 2f 63 73 2f 75 73 65 72 2f 6d 6b 61 6e 74 2f | rencing.file./afs/cs/user/mkant/ |
| a3e0 | 4c 69 73 70 2f 47 72 61 70 68 2d 44 61 67 2f 67 72 61 70 68 2d 64 61 67 2e 6c 69 73 70 2e 0a 2e | Lisp/Graph-Dag/graph-dag.lisp... |
| a400 | 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e | ................................ |
| a420 | 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 0a 34 38 20 66 6f 72 6d 73 20 70 72 6f 63 65 73 73 | ................48.forms.process |
| a440 | 65 64 2e 0a 3c 63 6c 3e 20 28 78 72 65 66 3a 64 69 73 70 6c 61 79 2d 64 61 74 61 62 61 73 65 20 | ed..<cl>.(xref:display-database. |
| a460 | 3a 72 65 61 64 65 72 73 29 0a 0a 2a 44 49 53 50 4c 41 59 2d 43 55 54 4f 46 46 2d 44 45 50 54 48 | :readers)..*DISPLAY-CUTOFF-DEPTH |
| a480 | 2a 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 43 41 4c 43 55 4c 41 54 45 2d 4c 45 56 | *.is.referenced.by.CALCULATE-LEV |
| a4a0 | 45 4c 2d 50 4f 53 49 54 49 4f 4e 0a 43 41 4c 43 55 4c 41 54 45 2d 4c 45 56 45 4c 2d 50 4f 53 49 | EL-POSITION.CALCULATE-LEVEL-POSI |
| a4c0 | 54 49 4f 4e 2d 42 45 46 4f 52 45 20 43 41 4c 43 55 4c 41 54 45 2d 50 4f 53 49 54 49 4f 4e 2d 49 | TION-BEFORE.CALCULATE-POSITION-I |
| a4e0 | 4e 2d 4c 45 56 45 4c 2e 0a 2a 4f 46 46 53 45 54 2d 46 52 4f 4d 2d 45 44 47 45 2d 4f 46 2d 50 41 | N-LEVEL..*OFFSET-FROM-EDGE-OF-PA |
| a500 | 4e 45 2a 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 43 41 4c 43 55 4c 41 54 45 2d 4c | NE*.is.referenced.by.CALCULATE-L |
| a520 | 45 56 45 4c 2d 50 4f 53 49 54 49 4f 4e 0a 43 41 4c 43 55 4c 41 54 45 2d 4c 45 56 45 4c 2d 50 4f | EVEL-POSITION.CALCULATE-LEVEL-PO |
| a540 | 53 49 54 49 4f 4e 2d 42 45 46 4f 52 45 2e 0a 2a 57 49 54 48 49 4e 2d 4c 45 56 45 4c 2d 53 50 41 | SITION-BEFORE..*WITHIN-LEVEL-SPA |
| a560 | 43 49 4e 47 2a 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 42 52 45 41 44 54 48 20 43 | CING*.is.referenced.by.BREADTH.C |
| a580 | 41 4c 43 55 4c 41 54 45 2d 50 4f 53 49 54 49 4f 4e 2d 49 4e 46 4f 2e 0a 2a 44 49 52 45 43 54 49 | ALCULATE-POSITION-INFO..*DIRECTI |
| a5a0 | 4f 4e 2a 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 43 52 45 41 54 45 2d 50 4f 53 49 | ON*.is.referenced.by.CREATE-POSI |
| a5c0 | 54 49 4f 4e 2d 49 4e 46 4f 2e 0a 2a 4c 49 4e 4b 2d 4f 46 46 53 45 54 2a 20 69 73 20 72 65 66 65 | TION-INFO..*LINK-OFFSET*.is.refe |
| a5e0 | 72 65 6e 63 65 64 20 62 79 20 4f 46 46 53 45 54 2d 4f 46 2d 4c 49 4e 4b 2d 46 52 4f 4d 2d 41 54 | renced.by.OFFSET-OF-LINK-FROM-AT |
| a600 | 54 41 43 48 4d 45 4e 54 2d 50 4f 49 4e 54 2e 0a 2a 52 4f 4f 54 2d 49 53 2d 53 45 51 55 45 4e 43 | TACHMENT-POINT..*ROOT-IS-SEQUENC |
| a620 | 45 2a 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 47 52 41 50 48 2e 0a 2a 4c 45 56 45 | E*.is.referenced.by.GRAPH..*LEVE |
| a640 | 4c 2d 53 50 41 43 49 4e 47 2a 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 43 41 4c 43 | L-SPACING*.is.referenced.by.CALC |
| a660 | 55 4c 41 54 45 2d 4c 45 56 45 4c 2d 50 4f 53 49 54 49 4f 4e 0a 43 41 4c 43 55 4c 41 54 45 2d 4c | ULATE-LEVEL-POSITION.CALCULATE-L |
| a680 | 45 56 45 4c 2d 50 4f 53 49 54 49 4f 4e 2d 42 45 46 4f 52 45 2e 0a 2a 4f 52 49 45 4e 54 41 54 49 | EVEL-POSITION-BEFORE..*ORIENTATI |
| a6a0 | 4f 4e 2a 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 42 52 45 41 44 54 48 20 43 41 4c | ON*.is.referenced.by.BREADTH.CAL |
| a6c0 | 43 55 4c 41 54 45 2d 4c 45 56 45 4c 2d 50 4f 53 49 54 49 4f 4e 0a 43 41 4c 43 55 4c 41 54 45 2d | CULATE-LEVEL-POSITION.CALCULATE- |
| a6e0 | 4c 45 56 45 4c 2d 50 4f 53 49 54 49 4f 4e 2d 42 45 46 4f 52 45 20 43 41 4c 43 55 4c 41 54 45 2d | LEVEL-POSITION-BEFORE.CALCULATE- |
| a700 | 50 4f 53 49 54 49 4f 4e 2d 49 4e 2d 4c 45 56 45 4c 2e 0a 2a 44 45 46 41 55 4c 54 2d 47 52 41 50 | POSITION-IN-LEVEL..*DEFAULT-GRAP |
| a720 | 48 2d 50 4f 53 49 54 49 4f 4e 2a 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 43 52 45 | H-POSITION*.is.referenced.by.CRE |
| a740 | 41 54 45 2d 50 4f 53 49 54 49 4f 4e 2d 49 4e 46 4f 2e 0a 2a 47 52 41 50 48 49 4e 47 2d 43 55 54 | ATE-POSITION-INFO..*GRAPHING-CUT |
| a760 | 4f 46 46 2d 44 45 50 54 48 2a 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 43 52 45 41 | OFF-DEPTH*.is.referenced.by.CREA |
| a780 | 54 45 2d 4e 4f 44 45 2d 53 54 52 55 43 54 55 52 45 2e 0a 2a 4c 49 53 54 2d 4f 46 2d 4e 4f 44 45 | TE-NODE-STRUCTURE..*LIST-OF-NODE |
| a7a0 | 53 2a 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 43 41 4c 43 55 4c 41 54 45 2d 4c 45 | S*.is.referenced.by.CALCULATE-LE |
| a7c0 | 56 45 4c 2d 50 4f 53 49 54 49 4f 4e 0a 43 41 4c 43 55 4c 41 54 45 2d 4c 45 56 45 4c 2d 50 4f 53 | VEL-POSITION.CALCULATE-LEVEL-POS |
| a7e0 | 49 54 49 4f 4e 2d 42 45 46 4f 52 45 20 43 52 45 41 54 45 2d 4e 4f 44 45 20 46 49 4e 44 2d 4e 4f | ITION-BEFORE.CREATE-NODE.FIND-NO |
| a800 | 44 45 2e 0a 2a 47 52 41 50 48 2d 54 59 50 45 2a 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 | DE..*GRAPH-TYPE*.is.referenced.b |
| a820 | 79 20 43 52 45 41 54 45 2d 4e 4f 44 45 2d 53 54 52 55 43 54 55 52 45 2e 0a 3c 63 6c 3e 20 28 78 | y.CREATE-NODE-STRUCTURE..<cl>.(x |
| a840 | 72 65 66 3a 70 72 69 6e 74 2d 63 61 6c 6c 65 72 2d 74 72 65 65 73 20 3a 72 6f 6f 74 2d 6e 6f 64 | ref:print-caller-trees.:root-nod |
| a860 | 65 73 20 27 28 64 69 73 70 6c 61 79 2d 67 72 61 70 68 29 29 0a 0a 52 6f 6f 74 65 64 20 63 61 6c | es.'(display-graph))..Rooted.cal |
| a880 | 6c 69 6e 67 20 74 72 65 65 73 3a 0a 20 20 44 49 53 50 4c 41 59 2d 47 52 41 50 48 0a 20 20 20 20 | ling.trees:...DISPLAY-GRAPH..... |
| a8a0 | 20 43 52 45 41 54 45 2d 50 4f 53 49 54 49 4f 4e 2d 49 4e 46 4f 0a 20 20 20 20 20 20 20 20 43 41 | .CREATE-POSITION-INFO.........CA |
| a8c0 | 4c 43 55 4c 41 54 45 2d 50 4f 53 49 54 49 4f 4e 2d 49 4e 46 4f 0a 20 20 20 20 20 20 20 20 20 20 | LCULATE-POSITION-INFO........... |
| a8e0 | 20 43 41 4c 43 55 4c 41 54 45 2d 50 4f 53 49 54 49 4f 4e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .CALCULATE-POSITION............. |
| a900 | 20 20 4e 4f 44 45 2d 50 4f 53 49 54 49 4f 4e 2d 41 4c 52 45 41 44 59 2d 53 45 54 2d 46 4c 41 47 | ..NODE-POSITION-ALREADY-SET-FLAG |
| a920 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 4c 45 56 45 4c 2d 41 4c 52 45 41 44 | ...............NODE-LEVEL-ALREAD |
| a940 | 59 2d 53 45 54 2d 46 4c 41 47 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 43 55 4c 41 | Y-SET-FLAG...............CALCULA |
| a960 | 54 45 2d 50 4f 53 49 54 49 4f 4e 2d 49 4e 2d 4c 45 56 45 4c 0a 20 20 20 20 20 20 20 20 20 20 20 | TE-POSITION-IN-LEVEL............ |
| a980 | 20 20 20 20 20 20 4e 4f 44 45 2d 43 48 49 4c 44 52 45 4e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......NODE-CHILDREN............. |
| a9a0 | 20 20 20 20 20 4e 4f 44 45 2d 4c 45 56 45 4c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....NODE-LEVEL................. |
| a9c0 | 20 43 41 4c 43 55 4c 41 54 45 2d 50 4f 53 49 54 49 4f 4e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .CALCULATE-POSITION............. |
| a9e0 | 20 20 20 20 20 4e 45 57 2d 43 41 4c 43 55 4c 41 54 45 2d 42 52 45 41 44 54 48 0a 20 20 20 20 20 | .....NEW-CALCULATE-BREADTH...... |
| aa00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 43 48 49 4c 44 52 45 4e 0a 20 20 20 | ...............NODE-CHILDREN.... |
| aa20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 52 45 41 44 54 48 0a 20 20 20 20 20 20 20 | .................BREADTH........ |
| aa40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 50 4f 53 49 54 45 2d 44 49 4d 45 4e 53 49 | ................OPPOSITE-DIMENSI |
| aa60 | 4f 4e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 | ON...........................NOD |
| aa80 | 45 2d 48 45 49 47 48 54 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | E-HEIGHT........................ |
| aaa0 | 20 20 20 4e 4f 44 45 2d 57 49 44 54 48 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...NODE-WIDTH................... |
| aac0 | 20 20 4e 45 57 2d 43 41 4c 43 55 4c 41 54 45 2d 42 52 45 41 44 54 48 0a 20 20 20 20 20 20 20 20 | ..NEW-CALCULATE-BREADTH......... |
| aae0 | 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 50 41 52 45 4e 54 53 0a 20 20 20 20 20 20 20 | ............NODE-PARENTS........ |
| ab00 | 20 20 20 20 20 20 20 20 20 20 4f 50 50 4f 53 49 54 45 2d 44 49 4d 45 4e 53 49 4f 4e 0a 20 20 20 | ..........OPPOSITE-DIMENSION.... |
| ab20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 48 45 49 47 48 54 0a 20 20 20 | .................NODE-HEIGHT.... |
| ab40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 57 49 44 54 48 0a 20 20 20 20 | .................NODE-WIDTH..... |
| ab60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 50 4f 53 49 54 45 2d 50 4f 53 49 54 49 4f 4e 0a 20 | .............OPPOSITE-POSITION.. |
| ab80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 59 0a 20 20 20 20 20 20 | ...................NODE-Y....... |
| aba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 58 0a 20 20 20 20 20 20 20 20 4e 4f 44 | ..............NODE-X.........NOD |
| abc0 | 45 2d 4c 45 56 45 4c 0a 20 20 20 20 20 20 20 20 43 41 4c 43 55 4c 41 54 45 2d 4c 45 56 45 4c 2d | E-LEVEL.........CALCULATE-LEVEL- |
| abe0 | 50 4f 53 49 54 49 4f 4e 0a 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 4c 45 56 45 4c 0a 20 | POSITION............NODE-LEVEL.. |
| ac00 | 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 50 4f 53 49 54 49 4f 4e 0a 20 20 20 20 20 20 20 20 | ..........NODE-POSITION......... |
| ac20 | 20 20 20 20 20 20 4e 4f 44 45 2d 58 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d | ......NODE-X...............NODE- |
| ac40 | 59 0a 20 20 20 20 20 20 20 20 20 20 20 44 49 4d 45 4e 53 49 4f 4e 0a 20 20 20 20 20 20 20 20 20 | Y............DIMENSION.......... |
| ac60 | 20 20 20 20 20 4e 4f 44 45 2d 57 49 44 54 48 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f | .....NODE-WIDTH...............NO |
| ac80 | 44 45 2d 48 45 49 47 48 54 0a 20 20 20 20 20 20 20 20 43 41 4c 43 55 4c 41 54 45 2d 4c 45 56 45 | DE-HEIGHT.........CALCULATE-LEVE |
| aca0 | 4c 2d 50 4f 53 49 54 49 4f 4e 2d 42 45 46 4f 52 45 0a 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 | L-POSITION-BEFORE............NOD |
| acc0 | 45 2d 4c 45 56 45 4c 0a 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 50 4f 53 49 54 49 4f 4e | E-LEVEL............NODE-POSITION |
| ace0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 58 0a 20 20 20 20 20 20 20 20 20 20 | ...............NODE-X........... |
| ad00 | 20 20 20 20 4e 4f 44 45 2d 59 0a 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 57 49 44 54 48 | ....NODE-Y............NODE-WIDTH |
| ad20 | 0a 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 48 45 49 47 48 54 0a 20 20 20 20 20 20 20 20 | ............NODE-HEIGHT......... |
| ad40 | 20 20 20 44 49 4d 45 4e 53 49 4f 4e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d | ...DIMENSION...............NODE- |
| ad60 | 57 49 44 54 48 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 44 45 2d 48 45 49 47 48 54 0a | WIDTH...............NODE-HEIGHT. |
| ad80 | 7c 23 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | |#...;;;.*********************** |
| ada0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| adc0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 4c 69 73 74 20 43 61 6c 6c 65 72 73 20 2a 2a 2a 2a 2a | *********.;;;.List.Callers.***** |
| ade0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| ae00 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | **************.;;;.************* |
| ae20 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| ae40 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 | *******************..(defpackage |
| ae60 | 20 3a 70 78 72 65 66 0a 20 20 28 3a 75 73 65 20 3a 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 29 0a 20 20 | .:pxref...(:use.:common-lisp)... |
| ae80 | 28 3a 65 78 70 6f 72 74 20 23 3a 6c 69 73 74 2d 63 61 6c 6c 65 72 73 20 0a 09 20 20 20 23 3a 6c | (:export.#:list-callers......#:l |
| aea0 | 69 73 74 2d 75 73 65 72 73 20 0a 09 20 20 20 23 3a 6c 69 73 74 2d 72 65 61 64 65 72 73 20 0a 09 | ist-users......#:list-readers... |
| aec0 | 20 20 20 23 3a 6c 69 73 74 2d 73 65 74 74 65 72 73 0a 09 20 20 20 23 3a 77 68 61 74 2d 66 69 6c | ...#:list-setters.....#:what-fil |
| aee0 | 65 73 2d 63 61 6c 6c 0a 09 20 20 20 23 3a 77 68 6f 2d 63 61 6c 6c 73 20 0a 09 20 20 20 23 3a 6c | es-call.....#:who-calls......#:l |
| af00 | 69 73 74 2d 63 61 6c 6c 65 65 73 20 0a 09 20 20 20 23 3a 73 6f 75 72 63 65 2d 66 69 6c 65 20 0a | ist-callees......#:source-file.. |
| af20 | 09 20 20 20 23 3a 63 6c 65 61 72 2d 74 61 62 6c 65 73 0a 09 20 20 20 23 3a 64 65 66 69 6e 65 2d | ....#:clear-tables.....#:define- |
| af40 | 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 0a 09 20 20 20 23 3a 64 65 66 69 | pattern-substitution......#:defi |
| af60 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 0a 09 20 20 20 23 3a 64 65 66 69 6e 65 2d | ne-caller-pattern......#:define- |
| af80 | 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 0a 09 20 20 20 23 3a 64 65 66 69 6e 65 2d 63 | variable-pattern......#:define-c |
| afa0 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 2d 73 79 6e 6f 6e 79 6d 73 0a 09 20 20 20 23 3a 63 6c 65 | aller-pattern-synonyms.....#:cle |
| afc0 | 61 72 2d 70 61 74 74 65 72 6e 73 0a 09 20 20 20 23 3a 2a 6c 61 73 74 2d 66 6f 72 6d 2a 20 0a 09 | ar-patterns.....#:*last-form*... |
| afe0 | 20 20 20 23 3a 2a 78 72 65 66 2d 76 65 72 62 6f 73 65 2a 20 0a 09 20 20 20 23 3a 2a 68 61 6e 64 | ...#:*xref-verbose*......#:*hand |
| b000 | 6c 65 2d 70 61 63 6b 61 67 65 2d 66 6f 72 6d 73 2a 20 0a 09 20 20 20 23 3a 2a 68 61 6e 64 6c 65 | le-package-forms*......#:*handle |
| b020 | 2d 66 75 6e 63 74 69 6f 6e 2d 66 6f 72 6d 73 2a 0a 09 20 20 20 23 3a 2a 68 61 6e 64 6c 65 2d 6d | -function-forms*.....#:*handle-m |
| b040 | 61 63 72 6f 2d 66 6f 72 6d 73 2a 0a 09 20 20 20 23 3a 2a 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f | acro-forms*.....#:*types-to-igno |
| b060 | 72 65 2a 0a 09 20 20 20 23 3a 2a 6c 61 73 74 2d 63 61 6c 6c 65 72 2d 74 72 65 65 2a 20 0a 09 20 | re*.....#:*last-caller-tree*.... |
| b080 | 20 20 23 3a 2a 64 65 66 61 75 6c 74 2d 67 72 61 70 68 69 6e 67 2d 6d 6f 64 65 2a 20 0a 09 20 20 | ..#:*default-graphing-mode*..... |
| b0a0 | 20 23 3a 2a 69 6e 64 65 6e 74 2d 61 6d 6f 75 6e 74 2a 0a 09 20 20 20 23 3a 78 72 65 66 2d 66 69 | .#:*indent-amount*.....#:xref-fi |
| b0c0 | 6c 65 20 0a 09 20 20 20 23 3a 78 72 65 66 2d 66 69 6c 65 73 0a 09 20 20 20 23 3a 77 72 69 74 65 | le......#:xref-files.....#:write |
| b0e0 | 2d 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2d 74 6f 2d 66 69 6c 65 0a 09 20 20 20 23 3a | -callers-database-to-file.....#: |
| b100 | 64 69 73 70 6c 61 79 2d 64 61 74 61 62 61 73 65 0a 09 20 20 20 23 3a 70 72 69 6e 74 2d 63 61 6c | display-database.....#:print-cal |
| b120 | 6c 65 72 2d 74 72 65 65 73 20 0a 09 20 20 20 23 3a 6d 61 6b 65 2d 63 61 6c 6c 65 72 2d 74 72 65 | ler-trees......#:make-caller-tre |
| b140 | 65 20 0a 09 20 20 20 23 3a 70 72 69 6e 74 2d 69 6e 64 65 6e 74 65 64 2d 74 72 65 65 20 0a 09 20 | e......#:print-indented-tree.... |
| b160 | 20 20 23 3a 64 65 74 65 72 6d 69 6e 65 2d 66 69 6c 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 | ..#:determine-file-dependencies. |
| b180 | 0a 09 20 20 20 23 3a 70 72 69 6e 74 2d 66 69 6c 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 0a 09 | .....#:print-file-dependencies.. |
| b1a0 | 20 20 20 23 3a 70 73 67 72 61 70 68 2d 78 72 65 66 0a 09 20 20 20 29 29 0a 0a 28 69 6e 2d 70 61 | ...#:psgraph-xref.....))..(in-pa |
| b1c0 | 63 6b 61 67 65 20 22 50 58 52 45 46 22 29 0a 0a 3b 3b 3b 20 57 61 72 6e 20 75 73 65 72 20 69 66 | ckage."PXREF")..;;;.Warn.user.if |
| b1e0 | 20 74 68 65 79 27 72 65 20 6c 6f 61 64 69 6e 67 20 74 68 65 20 73 6f 75 72 63 65 20 69 6e 73 74 | .they're.loading.the.source.inst |
| b200 | 65 61 64 20 6f 66 20 63 6f 6d 70 69 6c 69 6e 67 20 69 74 20 66 69 72 73 74 2e 0a 3b 28 65 76 61 | ead.of.compiling.it.first..;(eva |
| b220 | 6c 2d 77 68 65 6e 20 28 63 6f 6d 70 69 6c 65 20 6c 6f 61 64 20 65 76 61 6c 29 0a 3b 20 20 28 64 | l-when.(compile.load.eval).;..(d |
| b240 | 65 66 76 61 72 20 63 6f 6d 70 69 6c 65 64 2d 70 20 6e 69 6c 29 29 0a 3b 28 65 76 61 6c 2d 77 68 | efvar.compiled-p.nil)).;(eval-wh |
| b260 | 65 6e 20 28 63 6f 6d 70 69 6c 65 20 6c 6f 61 64 29 0a 3b 20 20 28 73 65 74 71 20 63 6f 6d 70 69 | en.(compile.load).;..(setq.compi |
| b280 | 6c 65 64 2d 70 20 74 29 29 0a 3b 28 65 76 61 6c 2d 77 68 65 6e 20 28 6c 6f 61 64 20 65 76 61 6c | led-p.t)).;(eval-when.(load.eval |
| b2a0 | 29 0a 3b 20 20 28 75 6e 6c 65 73 73 20 63 6f 6d 70 69 6c 65 64 2d 70 0a 3b 20 20 20 20 28 77 61 | ).;..(unless.compiled-p.;....(wa |
| b2c0 | 72 6e 20 22 54 68 69 73 20 66 69 6c 65 20 73 68 6f 75 6c 64 20 62 65 20 63 6f 6d 70 69 6c 65 64 | rn."This.file.should.be.compiled |
| b2e0 | 20 62 65 66 6f 72 65 20 6c 6f 61 64 69 6e 67 20 66 6f 72 20 62 65 73 74 20 72 65 73 75 6c 74 73 | .before.loading.for.best.results |
| b300 | 2e 22 29 29 29 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 65 76 61 6c 29 0a 20 20 20 28 77 61 72 6e | ."))).(eval-when.(eval)....(warn |
| b320 | 20 22 54 68 69 73 20 66 69 6c 65 20 73 68 6f 75 6c 64 20 62 65 20 63 6f 6d 70 69 6c 65 64 20 62 | ."This.file.should.be.compiled.b |
| b340 | 65 66 6f 72 65 20 6c 6f 61 64 69 6e 67 20 66 6f 72 20 62 65 73 74 20 72 65 73 75 6c 74 73 2e 22 | efore.loading.for.best.results." |
| b360 | 29 29 0a 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ))...;;;.*********************** |
| b380 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 50 72 69 6d 69 74 69 76 65 73 20 2a 2a 2a 2a 2a 2a 2a | *********.;;;.Primitives.******* |
| b3a0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | **************.;;;.************* |
| b3c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 28 64 65 66 75 6e 20 6c 6f 6f 6b 75 | *******************.(defun.looku |
| b3e0 | 70 20 28 73 79 6d 62 6f 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 28 64 6f 6c 69 73 74 | p.(symbol.environment)...(dolist |
| b400 | 20 28 66 72 61 6d 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 28 77 68 65 6e 20 28 | .(frame.environment).....(when.( |
| b420 | 6d 65 6d 62 65 72 20 73 79 6d 62 6f 6c 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 28 72 65 74 75 | member.symbol.frame).......(retu |
| b440 | 72 6e 20 73 79 6d 62 6f 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 72 2d 65 71 20 28 6c 69 | rn.symbol))))..(defun.car-eq.(li |
| b460 | 73 74 20 69 74 65 6d 29 0a 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 6c 69 73 74 29 0a 20 20 20 | st.item)...(and.(consp.list).... |
| b480 | 20 20 20 20 28 65 71 20 28 63 61 72 20 6c 69 73 74 29 20 69 74 65 6d 29 29 29 0a 0a 3b 3b 3b 20 | ....(eq.(car.list).item)))..;;;. |
| b4a0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| b4c0 | 0a 3b 3b 3b 20 43 61 6c 6c 65 72 73 20 44 61 74 61 62 61 73 65 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .;;;.Callers.Database.********** |
| b4e0 | 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | *****.;;;.********************** |
| b500 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 28 64 65 66 76 61 72 20 2a 66 69 6c 65 2d 63 61 6c 6c 65 72 73 | **********.(defvar.*file-callers |
| b520 | 2d 64 61 74 61 62 61 73 65 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 | -database*.(make-hash-table.:tes |
| b540 | 74 20 23 27 65 71 75 61 6c 29 0a 20 20 22 43 6f 6e 74 61 69 6e 73 20 6e 61 6d 65 20 61 6e 64 20 | t.#'equal)..."Contains.name.and. |
| b560 | 6c 69 73 74 20 6f 66 20 66 69 6c 65 20 63 61 6c 6c 65 72 73 20 28 66 69 6c 65 73 20 77 68 69 63 | list.of.file.callers.(files.whic |
| b580 | 68 20 63 61 6c 6c 29 20 66 6f 72 20 74 68 61 74 20 6e 61 6d 65 2e 22 29 0a 28 64 65 66 76 61 72 | h.call).for.that.name.").(defvar |
| b5a0 | 20 2a 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 | .*callers-database*.(make-hash-t |
| b5c0 | 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 22 43 6f 6e 74 61 69 6e 73 20 | able.:test.#'equal)..."Contains. |
| b5e0 | 6e 61 6d 65 20 61 6e 64 20 6c 69 73 74 20 6f 66 20 63 61 6c 6c 65 72 73 20 28 66 75 6e 63 74 69 | name.and.list.of.callers.(functi |
| b600 | 6f 6e 20 69 6e 76 6f 63 61 74 69 6f 6e 29 20 66 6f 72 20 74 68 61 74 20 6e 61 6d 65 2e 22 29 0a | on.invocation).for.that.name."). |
| b620 | 28 64 65 66 76 61 72 20 2a 72 65 61 64 65 72 73 2d 64 61 74 61 62 61 73 65 2a 20 28 6d 61 6b 65 | (defvar.*readers-database*.(make |
| b640 | 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 22 43 6f | -hash-table.:test.#'equal)..."Co |
| b660 | 6e 74 61 69 6e 73 20 6e 61 6d 65 20 61 6e 64 20 6c 69 73 74 20 6f 66 20 72 65 61 64 65 72 73 20 | ntains.name.and.list.of.readers. |
| b680 | 28 76 61 72 69 61 62 6c 65 20 75 73 65 29 20 66 6f 72 20 74 68 61 74 20 6e 61 6d 65 2e 22 29 0a | (variable.use).for.that.name."). |
| b6a0 | 28 64 65 66 76 61 72 20 2a 73 65 74 74 65 72 73 2d 64 61 74 61 62 61 73 65 2a 20 28 6d 61 6b 65 | (defvar.*setters-database*.(make |
| b6c0 | 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 22 43 6f | -hash-table.:test.#'equal)..."Co |
| b6e0 | 6e 74 61 69 6e 73 20 6e 61 6d 65 20 61 6e 64 20 6c 69 73 74 20 6f 66 20 73 65 74 74 65 72 73 20 | ntains.name.and.list.of.setters. |
| b700 | 28 76 61 72 69 61 62 6c 65 20 6d 75 74 61 74 69 6f 6e 29 20 66 6f 72 20 74 68 61 74 20 6e 61 6d | (variable.mutation).for.that.nam |
| b720 | 65 2e 22 29 0a 28 64 65 66 76 61 72 20 2a 63 61 6c 6c 65 65 73 2d 64 61 74 61 62 61 73 65 2a 20 | e.").(defvar.*callees-database*. |
| b740 | 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a | (make-hash-table.:test.#'equal). |
| b760 | 20 20 22 43 6f 6e 74 61 69 6e 73 20 6e 61 6d 65 20 61 6e 64 20 6c 69 73 74 20 6f 66 20 66 75 6e | .."Contains.name.and.list.of.fun |
| b780 | 63 74 69 6f 6e 73 20 61 6e 64 20 76 61 72 69 61 62 6c 65 73 20 69 74 20 63 61 6c 6c 73 2e 22 29 | ctions.and.variables.it.calls.") |
| b7a0 | 0a 28 64 65 66 75 6e 20 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 28 6e 61 6d 65 20 26 6f 70 74 69 | .(defun.callers-list.(name.&opti |
| b7c0 | 6f 6e 61 6c 20 28 64 61 74 61 62 61 73 65 20 3a 63 61 6c 6c 65 72 73 29 29 0a 20 20 28 63 61 73 | onal.(database.:callers))...(cas |
| b7e0 | 65 20 64 61 74 61 62 61 73 65 0a 20 20 20 20 28 3a 66 69 6c 65 20 20 20 20 28 67 65 74 68 61 73 | e.database.....(:file....(gethas |
| b800 | 68 20 6e 61 6d 65 20 2a 66 69 6c 65 2d 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 29 | h.name.*file-callers-database*)) |
| b820 | 0a 20 20 20 20 28 3a 63 61 6c 6c 65 65 73 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 2a 63 61 | .....(:callees.(gethash.name.*ca |
| b840 | 6c 6c 65 65 73 2d 64 61 74 61 62 61 73 65 2a 29 29 0a 20 20 20 20 28 3a 63 61 6c 6c 65 72 73 20 | llees-database*)).....(:callers. |
| b860 | 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 2a 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2a | (gethash.name.*callers-database* |
| b880 | 29 29 0a 20 20 20 20 28 3a 72 65 61 64 65 72 73 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 2a | )).....(:readers.(gethash.name.* |
| b8a0 | 72 65 61 64 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 29 0a 20 20 20 20 28 3a 73 65 74 74 65 72 | readers-database*)).....(:setter |
| b8c0 | 73 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 2a 73 65 74 74 65 72 73 2d 64 61 74 61 62 61 73 | s.(gethash.name.*setters-databas |
| b8e0 | 65 2a 29 29 29 29 0a 28 64 65 66 73 65 74 66 20 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 28 6e 61 | e*)))).(defsetf.callers-list.(na |
| b900 | 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 28 64 61 74 61 62 61 73 65 20 3a 63 61 6c 6c 65 72 73 29 | me.&optional.(database.:callers) |
| b920 | 29 20 28 63 61 6c 6c 65 72 29 0a 20 20 60 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 2c 6e 61 | ).(caller)...`(setf.(gethash.,na |
| b940 | 6d 65 20 28 63 61 73 65 20 2c 64 61 74 61 62 61 73 65 0a 09 09 09 20 20 28 3a 66 69 6c 65 20 20 | me.(case.,database......(:file.. |
| b960 | 20 20 2a 66 69 6c 65 2d 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 0a 09 09 09 20 20 | ..*file-callers-database*)...... |
| b980 | 28 3a 63 61 6c 6c 65 65 73 20 2a 63 61 6c 6c 65 65 73 2d 64 61 74 61 62 61 73 65 2a 29 0a 09 09 | (:callees.*callees-database*)... |
| b9a0 | 09 20 20 28 3a 63 61 6c 6c 65 72 73 20 2a 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 | ...(:callers.*callers-database*) |
| b9c0 | 0a 09 09 09 20 20 28 3a 72 65 61 64 65 72 73 20 2a 72 65 61 64 65 72 73 2d 64 61 74 61 62 61 73 | ......(:readers.*readers-databas |
| b9e0 | 65 2a 29 0a 09 09 09 20 20 28 3a 73 65 74 74 65 72 73 20 2a 73 65 74 74 65 72 73 2d 64 61 74 61 | e*)......(:setters.*setters-data |
| ba00 | 62 61 73 65 2a 29 29 29 0a 09 20 2c 63 61 6c 6c 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 | base*)))...,caller))..(defun.lis |
| ba20 | 74 2d 63 61 6c 6c 65 72 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 4c 69 73 74 73 20 61 6c 6c 20 | t-callers.(symbol)..."Lists.all. |
| ba40 | 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 63 61 6c 6c 20 53 59 4d 42 4f 4c 20 61 73 20 61 | functions.which.call.SYMBOL.as.a |
| ba60 | 20 66 75 6e 63 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 20 69 6e 76 6f 63 61 74 69 6f 6e 29 2e | .function.(function.invocation). |
| ba80 | 22 0a 20 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 73 79 6d 62 6f 6c 20 3a 63 61 6c 6c 65 72 | "...(callers-list.symbol.:caller |
| baa0 | 73 29 29 0a 28 64 65 66 75 6e 20 6c 69 73 74 2d 72 65 61 64 65 72 73 20 28 73 79 6d 62 6f 6c 29 | s)).(defun.list-readers.(symbol) |
| bac0 | 0a 20 20 22 4c 69 73 74 73 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 72 65 | ..."Lists.all.functions.which.re |
| bae0 | 66 65 72 20 74 6f 20 53 59 4d 42 4f 4c 20 61 73 20 61 20 76 61 72 69 61 62 6c 65 20 0a 20 20 20 | fer.to.SYMBOL.as.a.variable..... |
| bb00 | 28 76 61 72 69 61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 29 2e 22 0a 20 20 28 63 61 6c 6c 65 72 | (variable.reference)."...(caller |
| bb20 | 73 2d 6c 69 73 74 20 73 79 6d 62 6f 6c 20 3a 72 65 61 64 65 72 73 29 29 0a 28 64 65 66 75 6e 20 | s-list.symbol.:readers)).(defun. |
| bb40 | 6c 69 73 74 2d 73 65 74 74 65 72 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 4c 69 73 74 73 20 61 | list-setters.(symbol)..."Lists.a |
| bb60 | 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 62 69 6e 64 2f 73 65 74 20 53 59 4d 42 | ll.functions.which.bind/set.SYMB |
| bb80 | 4f 4c 20 61 73 20 61 20 76 61 72 69 61 62 6c 65 20 0a 20 20 20 28 76 61 72 69 61 62 6c 65 20 6d | OL.as.a.variable.....(variable.m |
| bba0 | 75 74 61 74 69 6f 6e 29 2e 22 0a 20 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 73 79 6d 62 6f | utation)."...(callers-list.symbo |
| bbc0 | 6c 20 3a 73 65 74 74 65 72 73 29 29 0a 28 64 65 66 75 6e 20 6c 69 73 74 2d 75 73 65 72 73 20 28 | l.:setters)).(defun.list-users.( |
| bbe0 | 73 79 6d 62 6f 6c 29 0a 20 20 22 4c 69 73 74 73 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 77 | symbol)..."Lists.all.functions.w |
| bc00 | 68 69 63 68 20 75 73 65 20 53 59 4d 42 4f 4c 20 61 73 20 61 20 76 61 72 69 61 62 6c 65 20 6f 72 | hich.use.SYMBOL.as.a.variable.or |
| bc20 | 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 76 61 6c 75 65 73 20 28 6c 69 73 74 2d 63 61 6c 6c | .function."...(values.(list-call |
| bc40 | 65 72 73 20 73 79 6d 62 6f 6c 29 0a 09 20 20 28 6c 69 73 74 2d 72 65 61 64 65 72 73 20 73 79 6d | ers.symbol)....(list-readers.sym |
| bc60 | 62 6f 6c 29 0a 09 20 20 28 6c 69 73 74 2d 73 65 74 74 65 72 73 20 73 79 6d 62 6f 6c 29 29 29 0a | bol)....(list-setters.symbol))). |
| bc80 | 28 64 65 66 75 6e 20 77 68 6f 2d 63 61 6c 6c 73 20 28 73 79 6d 62 6f 6c 20 26 6f 70 74 69 6f 6e | (defun.who-calls.(symbol.&option |
| bca0 | 61 6c 20 68 6f 77 29 0a 20 20 22 4c 69 73 74 73 20 63 61 6c 6c 65 72 73 20 6f 66 20 73 79 6d 62 | al.how)..."Lists.callers.of.symb |
| bcc0 | 6f 6c 2e 20 48 4f 57 20 6d 61 79 20 62 65 20 3a 66 75 6e 63 74 69 6f 6e 2c 20 3a 72 65 61 64 65 | ol..HOW.may.be.:function,.:reade |
| bce0 | 72 2c 20 3a 73 65 74 74 65 72 2c 0a 20 20 20 6f 72 20 3a 76 61 72 69 61 62 6c 65 2e 22 0a 20 20 | r,.:setter,....or.:variable."... |
| bd00 | 3b 3b 20 77 6f 75 6c 64 20 62 65 20 6e 69 63 65 20 74 6f 20 68 61 76 65 20 3a 6d 61 63 72 6f 20 | ;;.would.be.nice.to.have.:macro. |
| bd20 | 61 6e 64 20 64 69 73 74 69 6e 67 75 69 73 68 20 76 61 72 69 61 62 6c 65 0a 20 20 3b 3b 20 62 69 | and.distinguish.variable...;;.bi |
| bd40 | 6e 64 69 6e 67 20 66 72 6f 6d 20 61 73 73 69 67 6e 6d 65 6e 74 2e 20 28 69 2e 65 2e 2c 20 76 61 | nding.from.assignment..(i.e.,.va |
| bd60 | 72 69 61 62 6c 65 20 62 69 6e 64 69 6e 67 2c 20 61 73 73 69 67 6e 6d 65 6e 74 2c 20 61 6e 64 20 | riable.binding,.assignment,.and. |
| bd80 | 75 73 65 29 0a 20 20 28 63 61 73 65 20 68 6f 77 0a 20 20 20 20 28 3a 66 75 6e 63 74 69 6f 6e 20 | use)...(case.how.....(:function. |
| bda0 | 28 6c 69 73 74 2d 63 61 6c 6c 65 72 73 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 28 3a 72 65 61 | (list-callers.symbol)).....(:rea |
| bdc0 | 64 65 72 20 20 20 28 6c 69 73 74 2d 72 65 61 64 65 72 73 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 | der...(list-readers.symbol)).... |
| bde0 | 20 28 3a 73 65 74 74 65 72 20 20 20 28 6c 69 73 74 2d 73 65 74 74 65 72 73 20 73 79 6d 62 6f 6c | .(:setter...(list-setters.symbol |
| be00 | 29 29 0a 20 20 20 20 28 3a 76 61 72 69 61 62 6c 65 20 28 61 70 70 65 6e 64 20 28 6c 69 73 74 2d | )).....(:variable.(append.(list- |
| be20 | 72 65 61 64 65 72 73 20 73 79 6d 62 6f 6c 29 20 0a 09 09 20 20 20 20 20 20 20 28 6c 69 73 74 2d | readers.symbol)...........(list- |
| be40 | 73 65 74 74 65 72 73 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 6f 74 68 65 72 77 69 73 65 | setters.symbol))).....(otherwise |
| be60 | 20 28 61 70 70 65 6e 64 20 28 6c 69 73 74 2d 63 61 6c 6c 65 72 73 20 73 79 6d 62 6f 6c 29 0a 09 | .(append.(list-callers.symbol).. |
| be80 | 09 20 20 20 20 20 20 20 28 6c 69 73 74 2d 72 65 61 64 65 72 73 20 73 79 6d 62 6f 6c 29 0a 09 09 | ........(list-readers.symbol)... |
| bea0 | 20 20 20 20 20 20 20 28 6c 69 73 74 2d 73 65 74 74 65 72 73 20 73 79 6d 62 6f 6c 29 29 29 29 29 | .......(list-setters.symbol))))) |
| bec0 | 0a 28 64 65 66 75 6e 20 77 68 61 74 2d 66 69 6c 65 73 2d 63 61 6c 6c 20 28 73 79 6d 62 6f 6c 29 | .(defun.what-files-call.(symbol) |
| bee0 | 0a 20 20 22 4c 69 73 74 73 20 6e 61 6d 65 73 20 6f 66 20 66 69 6c 65 73 20 74 68 61 74 20 63 6f | ..."Lists.names.of.files.that.co |
| bf00 | 6e 74 61 69 6e 20 75 73 65 73 20 6f 66 20 53 59 4d 42 4f 4c 20 0a 20 20 20 61 73 20 61 20 66 75 | ntain.uses.of.SYMBOL.....as.a.fu |
| bf20 | 6e 63 74 69 6f 6e 2c 20 76 61 72 69 61 62 6c 65 2c 20 6f 72 20 63 6f 6e 73 74 61 6e 74 2e 22 0a | nction,.variable,.or.constant.". |
| bf40 | 20 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 73 79 6d 62 6f 6c 20 3a 66 69 6c 65 29 29 0a 28 | ..(callers-list.symbol.:file)).( |
| bf60 | 64 65 66 75 6e 20 6c 69 73 74 2d 63 61 6c 6c 65 65 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 4c | defun.list-callees.(symbol)..."L |
| bf80 | 69 73 74 73 20 6e 61 6d 65 73 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 76 61 72 69 | ists.names.of.functions.and.vari |
| bfa0 | 61 62 6c 65 73 20 63 61 6c 6c 65 64 20 62 79 20 53 59 4d 42 4f 4c 2e 22 0a 20 20 28 63 61 6c 6c | ables.called.by.SYMBOL."...(call |
| bfc0 | 65 72 73 2d 6c 69 73 74 20 73 79 6d 62 6f 6c 20 3a 63 61 6c 6c 65 65 73 29 29 0a 0a 28 64 65 66 | ers-list.symbol.:callees))..(def |
| bfe0 | 76 61 72 20 2a 73 6f 75 72 63 65 2d 66 69 6c 65 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 | var.*source-file*.(make-hash-tab |
| c000 | 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 22 43 6f 6e 74 61 69 6e 73 20 66 75 | le.:test.#'equal)..."Contains.fu |
| c020 | 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 61 6e 64 20 73 6f 75 72 63 65 20 66 69 6c 65 20 66 6f 72 20 | nction.name.and.source.file.for. |
| c040 | 74 68 61 74 20 6e 61 6d 65 2e 22 29 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d 66 69 6c 65 20 | that.name.").(defun.source-file. |
| c060 | 28 73 79 6d 62 6f 6c 29 0a 20 20 22 4c 69 73 74 73 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 66 | (symbol)..."Lists.the.names.of.f |
| c080 | 69 6c 65 73 20 69 6e 20 77 68 69 63 68 20 53 59 4d 42 4f 4c 20 69 73 20 64 65 66 69 6e 65 64 2f | iles.in.which.SYMBOL.is.defined/ |
| c0a0 | 75 73 65 64 2e 22 0a 20 20 28 67 65 74 68 61 73 68 20 73 79 6d 62 6f 6c 20 2a 73 6f 75 72 63 65 | used."...(gethash.symbol.*source |
| c0c0 | 2d 66 69 6c 65 2a 29 29 0a 28 64 65 66 73 65 74 66 20 73 6f 75 72 63 65 2d 66 69 6c 65 20 28 6e | -file*)).(defsetf.source-file.(n |
| c0e0 | 61 6d 65 29 20 28 76 61 6c 75 65 29 0a 20 20 60 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 2c | ame).(value)...`(setf.(gethash., |
| c100 | 6e 61 6d 65 20 2a 73 6f 75 72 63 65 2d 66 69 6c 65 2a 29 20 2c 76 61 6c 75 65 29 29 0a 0a 28 64 | name.*source-file*).,value))..(d |
| c120 | 65 66 75 6e 20 63 6c 65 61 72 2d 74 61 62 6c 65 73 20 28 29 0a 20 20 28 63 6c 72 68 61 73 68 20 | efun.clear-tables.()...(clrhash. |
| c140 | 2a 66 69 6c 65 2d 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 0a 20 20 28 63 6c 72 68 | *file-callers-database*)...(clrh |
| c160 | 61 73 68 20 2a 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 0a 20 20 28 63 6c 72 68 61 | ash.*callers-database*)...(clrha |
| c180 | 73 68 20 2a 63 61 6c 6c 65 65 73 2d 64 61 74 61 62 61 73 65 2a 29 0a 20 20 28 63 6c 72 68 61 73 | sh.*callees-database*)...(clrhas |
| c1a0 | 68 20 2a 72 65 61 64 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 0a 20 20 28 63 6c 72 68 61 73 68 | h.*readers-database*)...(clrhash |
| c1c0 | 20 2a 73 65 74 74 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 0a 20 20 28 63 6c 72 68 61 73 68 20 | .*setters-database*)...(clrhash. |
| c1e0 | 2a 73 6f 75 72 63 65 2d 66 69 6c 65 2a 29 29 0a 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | *source-file*))...;;;.********** |
| c200 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 50 61 74 74 65 | **********************.;;;.Patte |
| c220 | 72 6e 20 44 61 74 61 62 61 73 65 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 | rn.Database.***************.;;;. |
| c240 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| c260 | 0a 3b 3b 3b 20 50 61 74 74 65 72 6e 20 54 79 70 65 73 0a 28 64 65 66 76 61 72 20 2a 70 61 74 74 | .;;;.Pattern.Types.(defvar.*patt |
| c280 | 65 72 6e 2d 63 61 6c 6c 65 72 2d 74 79 70 65 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c | ern-caller-type*.(make-hash-tabl |
| c2a0 | 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 28 64 65 66 75 6e 20 70 61 74 74 65 72 6e | e.:test.#'equal)).(defun.pattern |
| c2c0 | 2d 63 61 6c 6c 65 72 2d 74 79 70 65 20 28 6e 61 6d 65 29 0a 20 20 28 67 65 74 68 61 73 68 20 6e | -caller-type.(name)...(gethash.n |
| c2e0 | 61 6d 65 20 2a 70 61 74 74 65 72 6e 2d 63 61 6c 6c 65 72 2d 74 79 70 65 2a 29 29 0a 28 64 65 66 | ame.*pattern-caller-type*)).(def |
| c300 | 73 65 74 66 20 70 61 74 74 65 72 6e 2d 63 61 6c 6c 65 72 2d 74 79 70 65 20 28 6e 61 6d 65 29 20 | setf.pattern-caller-type.(name). |
| c320 | 28 76 61 6c 75 65 29 0a 20 20 60 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 2c 6e 61 6d 65 20 | (value)...`(setf.(gethash.,name. |
| c340 | 2a 70 61 74 74 65 72 6e 2d 63 61 6c 6c 65 72 2d 74 79 70 65 2a 29 20 2c 76 61 6c 75 65 29 29 0a | *pattern-caller-type*).,value)). |
| c360 | 0a 3b 3b 3b 20 50 61 74 74 65 72 6e 20 53 75 62 73 74 69 74 75 74 69 6f 6e 73 0a 28 64 65 66 76 | .;;;.Pattern.Substitutions.(defv |
| c380 | 61 72 20 2a 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 2d 74 61 62 6c 65 2a 20 | ar.*pattern-substitution-table*. |
| c3a0 | 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a | (make-hash-table.:test.#'equal). |
| c3c0 | 20 20 22 53 74 6f 72 65 73 20 67 65 6e 65 72 61 6c 20 70 61 74 74 65 72 6e 73 20 66 6f 72 20 66 | .."Stores.general.patterns.for.f |
| c3e0 | 75 6e 63 74 69 6f 6e 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 22 29 0a 28 64 65 66 75 6e 20 | unction.destructuring.").(defun. |
| c400 | 6c 6f 6f 6b 75 70 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 28 6e 61 6d | lookup-pattern-substitution.(nam |
| c420 | 65 29 0a 20 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 2a 70 61 74 74 65 72 6e 2d 73 75 62 73 | e)...(gethash.name.*pattern-subs |
| c440 | 74 69 74 75 74 69 6f 6e 2d 74 61 62 6c 65 2a 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 | titution-table*)).(defmacro.defi |
| c460 | 6e 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 28 6e 61 6d 65 20 70 61 | ne-pattern-substitution.(name.pa |
| c480 | 74 74 65 72 6e 29 0a 20 20 22 44 65 66 69 6e 65 73 20 4e 41 4d 45 20 74 6f 20 62 65 20 65 71 75 | ttern)..."Defines.NAME.to.be.equ |
| c4a0 | 69 76 61 6c 65 6e 74 20 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 70 61 74 74 65 72 6e | ivalent.to.the.specified.pattern |
| c4c0 | 2e 20 55 73 65 66 75 6c 20 66 6f 72 0a 20 20 20 6d 61 6b 69 6e 67 20 70 61 74 74 65 72 6e 73 20 | ..Useful.for....making.patterns. |
| c4e0 | 6d 6f 72 65 20 72 65 61 64 61 62 6c 65 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 65 20 | more.readable..For.example,.the. |
| c500 | 4c 41 4d 42 44 41 2d 4c 49 53 54 20 69 73 20 0a 20 20 20 64 65 66 69 6e 65 64 20 61 73 20 61 20 | LAMBDA-LIST.is.....defined.as.a. |
| c520 | 70 61 74 74 65 72 6e 20 73 75 62 73 74 69 74 75 74 69 6f 6e 2c 20 6d 61 6b 69 6e 67 20 74 68 65 | pattern.substitution,.making.the |
| c540 | 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 68 65 0a 20 20 20 44 45 46 55 4e 20 63 61 6c 6c | .definition.of.the....DEFUN.call |
| c560 | 65 72 2d 70 61 74 74 65 72 6e 20 73 69 6d 70 6c 65 72 2e 22 0a 20 20 60 28 73 65 74 66 20 28 67 | er-pattern.simpler."...`(setf.(g |
| c580 | 65 74 68 61 73 68 20 27 2c 6e 61 6d 65 20 2a 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 | ethash.',name.*pattern-substitut |
| c5a0 | 69 6f 6e 2d 74 61 62 6c 65 2a 29 0a 09 20 27 2c 70 61 74 74 65 72 6e 29 29 0a 0a 3b 3b 3b 20 46 | ion-table*)...',pattern))..;;;.F |
| c5c0 | 75 6e 63 74 69 6f 6e 2f 4d 61 63 72 6f 20 63 61 6c 6c 65 72 20 70 61 74 74 65 72 6e 73 3a 20 0a | unction/Macro.caller.patterns:.. |
| c5e0 | 3b 3b 3b 20 54 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 69 73 20 73 6b 69 70 70 | ;;;.The.car.of.the.form.is.skipp |
| c600 | 65 64 2c 20 73 6f 20 77 65 20 64 6f 6e 27 74 20 6e 65 65 64 20 74 6f 20 73 70 65 63 69 66 79 0a | ed,.so.we.don't.need.to.specify. |
| c620 | 3b 3b 3b 20 28 3a 65 71 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 20 6c 69 6b 65 20 77 65 20 | ;;;.(:eq.function-name).like.we. |
| c640 | 77 6f 75 6c 64 20 66 6f 72 20 61 20 73 75 62 73 74 69 74 75 74 69 6f 6e 2e 0a 3b 3b 3b 0a 3b 3b | would.for.a.substitution..;;;.;; |
| c660 | 3b 20 50 61 74 74 65 72 6e 73 20 6d 75 73 74 20 62 65 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 | ;.Patterns.must.be.defined.in.th |
| c680 | 65 20 58 52 45 46 20 70 61 63 6b 61 67 65 20 62 65 63 61 75 73 65 20 74 68 65 20 70 61 74 74 65 | e.XREF.package.because.the.patte |
| c6a0 | 72 6e 0a 3b 3b 3b 20 6c 61 6e 67 75 61 67 65 20 69 73 20 74 65 73 74 65 64 20 62 79 20 63 6f 6d | rn.;;;.language.is.tested.by.com |
| c6c0 | 70 61 72 69 6e 67 20 73 79 6d 62 6f 6c 73 20 28 75 73 69 6e 67 20 23 27 65 71 75 61 6c 29 20 61 | paring.symbols.(using.#'equal).a |
| c6e0 | 6e 64 20 6e 6f 74 0a 3b 3b 3b 20 74 68 65 69 72 20 70 72 69 6e 74 72 65 70 73 2e 20 54 68 69 73 | nd.not.;;;.their.printreps..This |
| c700 | 20 69 73 20 66 69 6e 65 20 66 6f 72 20 74 68 65 20 6c 69 73 70 20 67 72 61 6d 6d 65 72 2c 20 62 | .is.fine.for.the.lisp.grammer,.b |
| c720 | 65 63 61 75 73 65 20 74 68 65 20 58 52 45 46 0a 3b 3b 3b 20 70 61 63 6b 61 67 65 20 64 65 70 65 | ecause.the.XREF.;;;.package.depe |
| c740 | 6e 64 73 20 6f 6e 20 74 68 65 20 4c 49 53 50 20 70 61 63 6b 61 67 65 2c 20 73 6f 20 61 20 73 79 | nds.on.the.LISP.package,.so.a.sy |
| c760 | 6d 62 6f 6c 20 6c 69 6b 65 20 27 78 72 65 66 3a 3a 63 6f 6e 73 20 69 73 0a 3b 3b 3b 20 74 72 61 | mbol.like.'xref::cons.is.;;;.tra |
| c780 | 6e 73 6c 61 74 65 64 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 69 6e 74 6f 20 27 6c 69 73 70 | nslated.automatically.into.'lisp |
| c7a0 | 3a 3a 63 6f 6e 73 2e 20 48 6f 77 65 76 65 72 2c 20 73 69 6e 63 65 0a 3b 3b 3b 20 28 65 71 75 61 | ::cons..However,.since.;;;.(equa |
| c7c0 | 6c 20 27 66 6f 6f 3a 3a 62 61 72 20 27 62 61 7a 3a 3a 62 61 72 29 20 72 65 74 75 72 6e 73 20 6e | l.'foo::bar.'baz::bar).returns.n |
| c7e0 | 69 6c 20 75 6e 6c 65 73 73 20 62 6f 74 68 20 27 66 6f 6f 3a 3a 62 61 72 20 61 6e 64 0a 3b 3b 3b | il.unless.both.'foo::bar.and.;;; |
| c800 | 20 27 62 61 7a 3a 3a 62 61 72 20 61 72 65 20 69 6e 68 65 72 69 74 65 64 20 66 72 6f 6d 20 74 68 | .'baz::bar.are.inherited.from.th |
| c820 | 65 20 73 61 6d 65 20 70 61 63 6b 61 67 65 20 28 65 2e 67 2e 2c 20 4c 49 53 50 29 2c 20 0a 3b 3b | e.same.package.(e.g.,.LISP),..;; |
| c840 | 3b 20 69 66 20 70 61 63 6b 61 67 65 20 68 61 6e 64 6c 69 6e 67 20 69 73 20 74 75 72 6e 65 64 20 | ;.if.package.handling.is.turned. |
| c860 | 6f 6e 20 74 68 65 20 75 73 65 72 20 6d 75 73 74 20 73 70 65 63 69 66 79 20 70 61 63 6b 61 67 65 | on.the.user.must.specify.package |
| c880 | 20 0a 3b 3b 3b 20 6e 61 6d 65 73 20 69 6e 20 74 68 65 20 63 61 6c 6c 65 72 20 70 61 74 74 65 72 | ..;;;.names.in.the.caller.patter |
| c8a0 | 6e 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 6f 72 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 | n.definitions.for.functions.that |
| c8c0 | 20 6f 63 63 75 72 0a 3b 3b 3b 20 69 6e 20 70 61 63 6b 61 67 65 73 20 6f 74 68 65 72 20 74 68 61 | .occur.;;;.in.packages.other.tha |
| c8e0 | 6e 20 4c 49 53 50 2c 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 77 69 | n.LISP,.otherwise.the.symbols.wi |
| c900 | 6c 6c 20 6e 6f 74 20 6d 61 74 63 68 2e 0a 3b 3b 3b 20 0a 3b 3b 3b 20 50 65 72 68 61 70 73 20 77 | ll.not.match..;;;..;;;.Perhaps.w |
| c920 | 65 20 73 68 6f 75 6c 64 20 65 6e 66 6f 72 63 65 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 | e.should.enforce.the.definition. |
| c940 | 6f 66 20 63 61 6c 6c 65 72 20 70 61 74 74 65 72 6e 73 20 69 6e 20 74 68 65 0a 3b 3b 3b 20 58 52 | of.caller.patterns.in.the.;;;.XR |
| c960 | 45 46 20 70 61 63 6b 61 67 65 20 62 79 20 77 72 61 70 70 69 6e 67 20 74 68 65 20 62 6f 64 79 20 | EF.package.by.wrapping.the.body. |
| c980 | 6f 66 20 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6e 0a 3b 3b 3b 20 | of.define-caller-pattern.in.;;;. |
| c9a0 | 74 68 65 20 58 52 45 46 20 70 61 63 6b 61 67 65 3a 0a 3b 3b 3b 20 20 20 20 28 64 65 66 6d 61 63 | the.XREF.package:.;;;....(defmac |
| c9c0 | 72 6f 20 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 28 6e 61 6d 65 20 76 | ro.define-caller-pattern.(name.v |
| c9e0 | 61 6c 75 65 20 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6c 6c 65 72 2d 74 79 70 65 29 0a 3b 3b 3b 20 | alue.&optional.caller-type).;;;. |
| ca00 | 20 20 20 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d 70 61 63 6b 61 67 65 20 2a 70 61 63 6b 61 67 65 | .....(let.((old-package.*package |
| ca20 | 2a 29 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 28 73 65 74 66 20 2a 70 61 63 6b 61 67 65 2a 20 28 | *)).;;;........(setf.*package*.( |
| ca40 | 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 22 58 52 45 46 22 29 29 0a 3b 3b 3b 20 20 20 20 20 20 20 | find-package."XREF")).;;;....... |
| ca60 | 20 28 70 72 6f 67 31 0a 3b 3b 3b 20 20 20 20 09 20 20 20 20 20 60 28 70 72 6f 67 6e 0a 3b 3b 3b | .(prog1.;;;..........`(progn.;;; |
| ca80 | 20 20 20 20 09 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 27 2c 63 61 6c 6c 65 72 2d 74 79 70 65 | .............(when.',caller-type |
| caa0 | 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 09 20 20 20 20 20 28 73 65 74 66 20 28 70 61 74 74 65 72 | .;;;...............(setf.(patter |
| cac0 | 6e 2d 63 61 6c 6c 65 72 2d 74 79 70 65 20 27 2c 6e 61 6d 65 29 20 27 2c 63 61 6c 6c 65 72 2d 74 | n-caller-type.',name).',caller-t |
| cae0 | 79 70 65 29 29 0a 3b 3b 3b 20 20 20 20 09 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 27 2c 76 61 | ype)).;;;.............(when.',va |
| cb00 | 6c 75 65 20 0a 3b 3b 3b 20 20 20 20 09 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 | lue..;;;...............(setf.(ge |
| cb20 | 74 68 61 73 68 20 27 2c 6e 61 6d 65 20 2a 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 2d 74 61 62 | thash.',name.*caller-pattern-tab |
| cb40 | 6c 65 2a 29 0a 3b 3b 3b 20 20 20 20 09 09 20 20 20 20 20 20 20 20 27 2c 76 61 6c 75 65 29 29 29 | le*).;;;..............',value))) |
| cb60 | 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 2a 70 61 63 6b 61 67 65 2a 20 6f 6c | .;;;..........(setf.*package*.ol |
| cb80 | 64 2d 70 61 63 6b 61 67 65 29 29 29 29 20 0a 3b 3b 3b 20 45 69 74 68 65 72 20 74 68 61 74 2c 20 | d-package))))..;;;.Either.that,. |
| cba0 | 6f 72 20 66 6f 72 20 74 68 65 20 70 75 72 70 6f 73 65 20 6f 66 20 70 61 74 74 65 72 6e 20 74 65 | or.for.the.purpose.of.pattern.te |
| cbc0 | 73 74 69 6e 67 20 77 65 20 73 68 6f 75 6c 64 20 63 6f 6d 70 61 72 65 0a 3b 3b 3b 20 70 72 69 6e | sting.we.should.compare.;;;.prin |
| cbe0 | 74 72 65 70 73 2e 20 5b 54 68 65 20 6c 61 74 74 65 72 20 6d 61 6b 65 73 20 74 68 65 20 70 72 69 | treps..[The.latter.makes.the.pri |
| cc00 | 6d 69 74 69 76 65 20 70 61 74 74 65 72 6e 73 20 6c 69 6b 65 20 56 41 52 0a 3b 3b 3b 20 72 65 73 | mitive.patterns.like.VAR.;;;.res |
| cc20 | 65 72 76 65 64 20 77 6f 72 64 73 2e 5d 0a 28 64 65 66 76 61 72 20 2a 63 61 6c 6c 65 72 2d 70 61 | erved.words.].(defvar.*caller-pa |
| cc40 | 74 74 65 72 6e 2d 74 61 62 6c 65 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 | ttern-table*.(make-hash-table.:t |
| cc60 | 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 22 53 74 6f 72 65 73 20 70 61 74 74 65 72 6e 73 20 | est.#'equal)..."Stores.patterns. |
| cc80 | 66 6f 72 20 66 75 6e 63 74 69 6f 6e 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 22 29 0a 28 64 | for.function.destructuring.").(d |
| cca0 | 65 66 75 6e 20 6c 6f 6f 6b 75 70 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 28 6e 61 6d 65 | efun.lookup-caller-pattern.(name |
| ccc0 | 29 0a 20 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 2a 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | )...(gethash.name.*caller-patter |
| cce0 | 6e 2d 74 61 62 6c 65 2a 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 63 61 6c 6c | n-table*)).(defmacro.define-call |
| cd00 | 65 72 2d 70 61 74 74 65 72 6e 20 28 6e 61 6d 65 20 70 61 74 74 65 72 6e 20 26 6f 70 74 69 6f 6e | er-pattern.(name.pattern.&option |
| cd20 | 61 6c 20 63 61 6c 6c 65 72 2d 74 79 70 65 29 0a 20 20 22 44 65 66 69 6e 65 73 20 4e 41 4d 45 20 | al.caller-type)..."Defines.NAME. |
| cd40 | 61 73 20 61 20 66 75 6e 63 74 69 6f 6e 2f 6d 61 63 72 6f 20 63 61 6c 6c 20 77 69 74 68 20 61 72 | as.a.function/macro.call.with.ar |
| cd60 | 67 75 6d 65 6e 74 20 73 74 72 75 63 74 75 72 65 0a 20 20 20 64 65 73 63 72 69 62 65 64 20 62 79 | gument.structure....described.by |
| cd80 | 20 50 41 54 54 45 52 4e 2e 20 43 41 4c 4c 45 52 2d 54 59 50 45 2c 20 69 66 20 73 70 65 63 69 66 | .PATTERN..CALLER-TYPE,.if.specif |
| cda0 | 69 65 64 2c 20 61 73 73 69 67 6e 73 20 61 20 74 79 70 65 20 74 6f 0a 20 20 20 74 68 65 20 70 61 | ied,.assigns.a.type.to....the.pa |
| cdc0 | 74 74 65 72 6e 2c 20 77 68 69 63 68 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f 20 65 78 63 6c | ttern,.which.may.be.used.to.excl |
| cde0 | 75 64 65 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 4e 41 4d 45 20 77 68 69 6c 65 0a 20 20 20 | ude.references.to.NAME.while.... |
| ce00 | 76 69 65 77 69 6e 67 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 20 46 6f 72 20 65 78 61 6d 70 6c | viewing.the.database..For.exampl |
| ce20 | 65 2c 20 61 6c 6c 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 64 65 66 69 6e 69 74 69 6f | e,.all.the.Common.Lisp.definitio |
| ce40 | 6e 73 0a 20 20 20 68 61 76 65 20 61 20 63 61 6c 6c 65 72 2d 74 79 70 65 20 6f 66 20 3a 6c 69 73 | ns....have.a.caller-type.of.:lis |
| ce60 | 70 20 6f 72 20 3a 6c 69 73 70 32 2c 20 73 6f 20 74 68 61 74 20 79 6f 75 20 63 61 6e 20 65 78 63 | p.or.:lisp2,.so.that.you.can.exc |
| ce80 | 6c 75 64 65 20 0a 20 20 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 63 6f 6d 6d 6f 6e 20 6c 69 | lude.....references.to.common.li |
| cea0 | 73 70 20 66 75 6e 63 74 69 6f 6e 73 20 66 72 6f 6d 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 74 72 | sp.functions.from.the.calling.tr |
| cec0 | 65 65 2e 22 0a 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 28 77 68 65 6e 20 27 2c 63 61 6c 6c | ee."...`(progn......(when.',call |
| cee0 | 65 72 2d 74 79 70 65 0a 20 20 20 20 20 20 20 28 73 65 74 66 20 28 70 61 74 74 65 72 6e 2d 63 61 | er-type........(setf.(pattern-ca |
| cf00 | 6c 6c 65 72 2d 74 79 70 65 20 27 2c 6e 61 6d 65 29 20 27 2c 63 61 6c 6c 65 72 2d 74 79 70 65 29 | ller-type.',name).',caller-type) |
| cf20 | 29 0a 20 20 20 20 20 28 77 68 65 6e 20 27 2c 70 61 74 74 65 72 6e 20 0a 20 20 20 20 20 20 20 28 | )......(when.',pattern.........( |
| cf40 | 73 65 74 66 20 28 67 65 74 68 61 73 68 20 27 2c 6e 61 6d 65 20 2a 63 61 6c 6c 65 72 2d 70 61 74 | setf.(gethash.',name.*caller-pat |
| cf60 | 74 65 72 6e 2d 74 61 62 6c 65 2a 29 0a 09 20 20 20 20 20 27 2c 70 61 74 74 65 72 6e 29 29 29 29 | tern-table*).......',pattern)))) |
| cf80 | 0a 0a 3b 3b 3b 20 46 6f 72 20 64 65 66 69 6e 69 6e 67 20 76 61 72 69 61 62 6c 65 73 0a 28 64 65 | ..;;;.For.defining.variables.(de |
| cfa0 | 66 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 28 | fmacro.define-variable-pattern.( |
| cfc0 | 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 63 61 6c 6c 65 72 2d 74 79 70 65 29 0a 20 20 22 44 | name.&optional.caller-type)..."D |
| cfe0 | 65 66 69 6e 65 73 20 4e 41 4d 45 20 61 73 20 61 20 76 61 72 69 61 62 6c 65 20 72 65 66 65 72 65 | efines.NAME.as.a.variable.refere |
| d000 | 6e 63 65 20 6f 66 20 74 79 70 65 20 43 41 4c 4c 45 52 2d 54 59 50 45 2e 20 54 68 69 73 20 69 73 | nce.of.type.CALLER-TYPE..This.is |
| d020 | 0a 20 20 20 6d 61 69 6e 6c 79 20 75 73 65 64 20 74 6f 20 65 73 74 61 62 6c 69 73 68 20 74 68 65 | ....mainly.used.to.establish.the |
| d040 | 20 63 61 6c 6c 65 72 2d 74 79 70 65 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 2e 22 0a 20 | .caller-type.of.the.variable.".. |
| d060 | 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 28 77 68 65 6e 20 27 2c 63 61 6c 6c 65 72 2d 74 79 70 | .`(progn......(when.',caller-typ |
| d080 | 65 0a 20 20 20 20 20 20 20 28 73 65 74 66 20 28 70 61 74 74 65 72 6e 2d 63 61 6c 6c 65 72 2d 74 | e........(setf.(pattern-caller-t |
| d0a0 | 79 70 65 20 27 2c 6e 61 6d 65 29 20 27 2c 63 61 6c 6c 65 72 2d 74 79 70 65 29 29 29 29 0a 0a 3b | ype.',name).',caller-type))))..; |
| d0c0 | 3b 3b 20 46 6f 72 20 64 65 66 69 6e 69 6e 67 20 73 79 6e 6f 6e 79 6d 73 2e 20 4d 65 61 6e 73 20 | ;;.For.defining.synonyms..Means. |
| d0e0 | 6d 75 63 68 20 6c 65 73 73 20 73 70 61 63 65 20 74 61 6b 65 6e 20 75 70 20 62 79 20 74 68 65 20 | much.less.space.taken.up.by.the. |
| d100 | 70 61 74 74 65 72 6e 73 2e 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | patterns..(defmacro.define-calle |
| d120 | 72 2d 70 61 74 74 65 72 6e 2d 73 79 6e 6f 6e 79 6d 73 20 28 73 6f 75 72 63 65 20 64 65 73 74 69 | r-pattern-synonyms.(source.desti |
| d140 | 6e 61 74 69 6f 6e 73 29 0a 20 20 22 46 6f 72 20 64 65 66 69 6e 69 6e 67 20 66 75 6e 63 74 69 6f | nations)..."For.defining.functio |
| d160 | 6e 20 63 61 6c 6c 65 72 20 70 61 74 74 65 72 6e 20 73 79 6e 74 61 78 20 73 79 6e 6f 6e 79 6d 73 | n.caller.pattern.syntax.synonyms |
| d180 | 2e 20 46 6f 72 20 65 61 63 68 20 6e 61 6d 65 0a 20 20 20 69 6e 20 44 45 53 54 49 4e 41 54 49 4f | ..For.each.name....in.DESTINATIO |
| d1a0 | 4e 53 2c 20 64 65 66 69 6e 65 73 20 69 74 73 20 70 61 74 74 65 72 6e 20 61 73 20 61 20 63 6f 70 | NS,.defines.its.pattern.as.a.cop |
| d1c0 | 79 20 6f 66 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 53 4f 55 52 43 45 2e 0a 20 | y.of.the.definition.of.SOURCE... |
| d1e0 | 20 20 41 6c 6c 6f 77 73 20 61 20 6c 61 72 67 65 20 6e 75 6d 62 65 72 20 6f 66 20 69 64 65 6e 74 | ..Allows.a.large.number.of.ident |
| d200 | 69 63 61 6c 20 70 61 74 74 65 72 6e 73 20 74 6f 20 62 65 20 64 65 66 69 6e 65 64 20 73 69 6d 75 | ical.patterns.to.be.defined.simu |
| d220 | 6c 74 61 6e 65 6f 75 73 6c 79 2e 0a 20 20 20 4d 75 73 74 20 6f 63 63 75 72 20 61 66 74 65 72 20 | ltaneously.....Must.occur.after. |
| d240 | 74 68 65 20 53 4f 55 52 43 45 20 68 61 73 20 62 65 65 6e 20 64 65 66 69 6e 65 64 2e 22 0a 20 20 | the.SOURCE.has.been.defined."... |
| d260 | 60 28 6c 65 74 20 28 28 73 6f 75 72 63 65 2d 74 79 70 65 20 28 70 61 74 74 65 72 6e 2d 63 61 6c | `(let.((source-type.(pattern-cal |
| d280 | 6c 65 72 2d 74 79 70 65 20 27 2c 73 6f 75 72 63 65 29 29 0a 09 20 28 73 6f 75 72 63 65 2d 70 61 | ler-type.',source))...(source-pa |
| d2a0 | 74 74 65 72 6e 20 28 67 65 74 68 61 73 68 20 27 2c 73 6f 75 72 63 65 20 2a 63 61 6c 6c 65 72 2d | ttern.(gethash.',source.*caller- |
| d2c0 | 70 61 74 74 65 72 6e 2d 74 61 62 6c 65 2a 29 29 29 0a 20 20 20 20 20 28 77 68 65 6e 20 73 6f 75 | pattern-table*)))......(when.sou |
| d2e0 | 72 63 65 2d 74 79 70 65 0a 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 64 65 73 74 20 27 2c | rce-type........(dolist.(dest.', |
| d300 | 64 65 73 74 69 6e 61 74 69 6f 6e 73 29 0a 09 20 28 73 65 74 66 20 28 70 61 74 74 65 72 6e 2d 63 | destinations)...(setf.(pattern-c |
| d320 | 61 6c 6c 65 72 2d 74 79 70 65 20 64 65 73 74 29 20 73 6f 75 72 63 65 2d 74 79 70 65 29 29 29 0a | aller-type.dest).source-type))). |
| d340 | 20 20 20 20 20 28 77 68 65 6e 20 73 6f 75 72 63 65 2d 70 61 74 74 65 72 6e 0a 20 20 20 20 20 20 | .....(when.source-pattern....... |
| d360 | 20 28 64 6f 6c 69 73 74 20 28 64 65 73 74 20 27 2c 64 65 73 74 69 6e 61 74 69 6f 6e 73 29 0a 09 | .(dolist.(dest.',destinations).. |
| d380 | 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 64 65 73 74 20 2a 63 61 6c 6c 65 72 2d 70 61 74 | .(setf.(gethash.dest.*caller-pat |
| d3a0 | 74 65 72 6e 2d 74 61 62 6c 65 2a 29 0a 09 20 20 20 20 20 20 20 73 6f 75 72 63 65 2d 70 61 74 74 | tern-table*).........source-patt |
| d3c0 | 65 72 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 65 61 72 2d 70 61 74 74 65 72 6e 73 20 | ern)))))..(defun.clear-patterns. |
| d3e0 | 28 29 0a 20 20 28 63 6c 72 68 61 73 68 20 2a 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 | ()...(clrhash.*pattern-substitut |
| d400 | 69 6f 6e 2d 74 61 62 6c 65 2a 29 0a 20 20 28 63 6c 72 68 61 73 68 20 2a 63 61 6c 6c 65 72 2d 70 | ion-table*)...(clrhash.*caller-p |
| d420 | 61 74 74 65 72 6e 2d 74 61 62 6c 65 2a 29 0a 20 20 28 63 6c 72 68 61 73 68 20 2a 70 61 74 74 65 | attern-table*)...(clrhash.*patte |
| d440 | 72 6e 2d 63 61 6c 6c 65 72 2d 74 79 70 65 2a 29 29 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a | rn-caller-type*))..;;;.********* |
| d460 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 43 72 6f 73 | ***********************.;;;.Cros |
| d480 | 73 20 52 65 66 65 72 65 6e 63 65 20 46 69 6c 65 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b | s.Reference.Files.**********.;;; |
| d4a0 | 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .******************************* |
| d4c0 | 2a 0a 28 64 65 66 76 61 72 20 2a 6c 61 73 74 2d 66 6f 72 6d 2a 20 28 29 0a 20 20 22 54 68 65 20 | *.(defvar.*last-form*.()..."The. |
| d4e0 | 6c 61 73 74 20 66 6f 72 6d 20 72 65 61 64 20 66 72 6f 6d 20 74 68 65 20 66 69 6c 65 2e 20 55 73 | last.form.read.from.the.file..Us |
| d500 | 65 66 75 6c 20 66 6f 72 20 66 69 67 75 72 69 6e 67 20 6f 75 74 20 77 68 61 74 20 77 65 6e 74 20 | eful.for.figuring.out.what.went. |
| d520 | 77 72 6f 6e 67 0a 20 20 20 77 68 65 6e 20 78 72 65 66 2d 66 69 6c 65 20 64 72 6f 70 73 20 69 6e | wrong....when.xref-file.drops.in |
| d540 | 74 6f 20 74 68 65 20 64 65 62 75 67 67 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 78 72 65 | to.the.debugger.")..(defvar.*xre |
| d560 | 66 2d 76 65 72 62 6f 73 65 2a 20 74 0a 20 20 22 57 68 65 6e 20 54 2c 20 78 72 65 66 2d 66 69 6c | f-verbose*.t..."When.T,.xref-fil |
| d580 | 65 28 73 29 20 70 72 69 6e 74 73 20 6f 75 74 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 74 68 65 | e(s).prints.out.the.names.of.the |
| d5a0 | 20 66 69 6c 65 73 20 69 74 20 6c 6f 6f 6b 73 20 61 74 2c 0a 20 20 20 70 72 6f 67 72 65 73 73 20 | .files.it.looks.at,....progress. |
| d5c0 | 64 6f 74 73 2c 20 61 6e 64 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 66 6f 72 6d 73 20 72 65 | dots,.and.the.number.of.forms.re |
| d5e0 | 61 64 2e 22 29 0a 0a 3b 3b 3b 20 54 68 69 73 20 6e 65 65 64 73 20 74 6f 20 66 69 72 73 74 20 63 | ad.")..;;;.This.needs.to.first.c |
| d600 | 6c 65 61 72 20 74 68 65 20 74 61 62 6c 65 73 3f 0a 28 64 65 66 75 6e 20 78 72 65 66 2d 66 69 6c | lear.the.tables?.(defun.xref-fil |
| d620 | 65 73 20 28 26 72 65 73 74 20 66 69 6c 65 73 29 0a 20 20 22 47 72 6f 76 65 6c 73 20 6f 76 65 72 | es.(&rest.files)..."Grovels.over |
| d640 | 20 74 68 65 20 6c 69 73 70 20 63 6f 64 65 20 6c 6f 63 61 74 65 64 20 69 6e 20 73 6f 75 72 63 65 | .the.lisp.code.located.in.source |
| d660 | 20 66 69 6c 65 20 46 49 4c 45 53 2c 20 75 73 69 6e 67 20 78 72 65 66 2d 66 69 6c 65 2e 22 0a 20 | .file.FILES,.using.xref-file.".. |
| d680 | 20 3b 3b 20 49 66 20 74 68 65 20 61 72 67 20 69 73 20 61 20 6c 69 73 74 2c 20 75 73 65 20 69 74 | .;;.If.the.arg.is.a.list,.use.it |
| d6a0 | 2e 0a 20 20 28 77 68 65 6e 20 28 6c 69 73 74 70 20 28 63 61 72 20 66 69 6c 65 73 29 29 20 28 73 | ....(when.(listp.(car.files)).(s |
| d6c0 | 65 74 71 20 66 69 6c 65 73 20 28 63 61 72 20 66 69 6c 65 73 29 29 29 0a 20 20 28 64 6f 6c 69 73 | etq.files.(car.files)))...(dolis |
| d6e0 | 74 20 28 66 69 6c 65 20 66 69 6c 65 73 29 0a 20 20 20 20 28 78 72 65 66 2d 66 69 6c 65 20 66 69 | t.(file.files).....(xref-file.fi |
| d700 | 6c 65 20 6e 69 6c 29 29 0a 20 20 28 76 61 6c 75 65 73 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 68 | le.nil))...(values))..(defvar.*h |
| d720 | 61 6e 64 6c 65 2d 70 61 63 6b 61 67 65 2d 66 6f 72 6d 73 2a 20 6e 69 6c 09 3b 27 28 6c 69 73 70 | andle-package-forms*.nil.;'(lisp |
| d740 | 3a 3a 69 6e 2d 70 61 63 6b 61 67 65 29 0a 20 20 22 57 68 65 6e 20 6e 6f 6e 2d 4e 49 4c 2c 20 61 | ::in-package)..."When.non-NIL,.a |
| d760 | 6e 64 20 58 52 45 46 2d 46 49 4c 45 20 73 65 65 73 20 61 20 70 61 63 6b 61 67 65 2d 73 65 74 74 | nd.XREF-FILE.sees.a.package-sett |
| d780 | 69 6e 67 20 66 6f 72 6d 20 6c 69 6b 65 20 49 4e 2d 50 41 43 4b 41 47 45 2c 0a 20 20 20 73 65 74 | ing.form.like.IN-PACKAGE,....set |
| d7a0 | 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 74 6f 20 74 68 65 20 73 70 65 | s.the.current.package.to.the.spe |
| d7c0 | 63 69 66 69 65 64 20 70 61 63 6b 61 67 65 20 62 79 20 65 76 61 6c 75 61 74 69 6e 67 20 74 68 65 | cified.package.by.evaluating.the |
| d7e0 | 0a 20 20 20 66 6f 72 6d 2e 20 57 68 65 6e 20 64 6f 6e 65 20 77 69 74 68 20 74 68 65 20 66 69 6c | ....form..When.done.with.the.fil |
| d800 | 65 2c 20 78 72 65 66 2d 66 69 6c 65 20 72 65 73 65 74 73 20 74 68 65 20 70 61 63 6b 61 67 65 20 | e,.xref-file.resets.the.package. |
| d820 | 74 6f 20 69 74 73 20 0a 20 20 20 6f 72 69 67 69 6e 61 6c 20 76 61 6c 75 65 2e 20 49 6e 20 73 6f | to.its.....original.value..In.so |
| d840 | 6d 65 20 6f 66 20 74 68 65 20 64 69 73 70 6c 61 79 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 2c 20 | me.of.the.displaying.functions,. |
| d860 | 77 68 65 6e 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 0a 20 20 20 69 73 20 6e 6f 6e 2d 4e 49 4c | when.this.variable....is.non-NIL |
| d880 | 20 6f 6e 65 20 6d 61 79 20 73 70 65 63 69 66 79 20 74 68 61 74 20 61 6c 6c 20 73 79 6d 62 6f 6c | .one.may.specify.that.all.symbol |
| d8a0 | 73 20 66 72 6f 6d 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 73 65 74 20 6f 66 0a 20 20 20 70 61 | s.from.a.particular.set.of....pa |
| d8c0 | 63 6b 61 67 65 73 20 62 65 20 69 67 6e 6f 72 65 64 2e 20 54 68 69 73 20 69 73 20 6f 6e 6c 79 20 | ckages.be.ignored..This.is.only. |
| d8e0 | 75 73 65 66 75 6c 20 69 66 20 74 68 65 20 66 69 6c 65 73 20 75 73 65 20 64 69 66 66 65 72 65 6e | useful.if.the.files.use.differen |
| d900 | 74 0a 20 20 20 70 61 63 6b 61 67 65 73 20 77 69 74 68 20 63 6f 6e 66 6c 69 63 74 69 6e 67 20 6e | t....packages.with.conflicting.n |
| d920 | 61 6d 65 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 6e 6f 72 6d 61 6c 2d 72 65 61 64 74 61 62 | ames.")..(defvar.*normal-readtab |
| d940 | 6c 65 2a 20 28 63 6f 70 79 2d 72 65 61 64 74 61 62 6c 65 20 6e 69 6c 29 0a 20 20 22 4e 6f 72 6d | le*.(copy-readtable.nil)..."Norm |
| d960 | 61 6c 2c 20 75 6e 61 64 75 6c 74 65 72 61 74 65 64 20 43 4c 20 72 65 61 64 74 61 62 6c 65 2e 22 | al,.unadulterated.CL.readtable." |
| d980 | 29 0a 0a 28 64 65 66 75 6e 20 78 72 65 66 2d 66 69 6c 65 20 28 66 69 6c 65 6e 61 6d 65 20 26 6f | )..(defun.xref-file.(filename.&o |
| d9a0 | 70 74 69 6f 6e 61 6c 20 28 63 6c 65 61 72 2d 74 61 62 6c 65 73 20 74 29 20 28 76 65 72 62 6f 73 | ptional.(clear-tables.t).(verbos |
| d9c0 | 65 20 2a 78 72 65 66 2d 76 65 72 62 6f 73 65 2a 29 29 0a 20 20 22 43 72 6f 73 73 20 72 65 66 65 | e.*xref-verbose*))..."Cross.refe |
| d9e0 | 72 65 6e 63 65 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 76 61 72 69 61 62 6c 65 | rences.the.function.and.variable |
| da00 | 20 63 61 6c 6c 73 20 69 6e 20 46 49 4c 45 4e 41 4d 45 20 62 79 0a 20 20 20 77 61 6c 6b 69 6e 67 | .calls.in.FILENAME.by....walking |
| da20 | 20 6f 76 65 72 20 74 68 65 20 73 6f 75 72 63 65 20 63 6f 64 65 20 6c 6f 63 61 74 65 64 20 69 6e | .over.the.source.code.located.in |
| da40 | 20 74 68 65 20 66 69 6c 65 2e 20 44 65 66 61 75 6c 74 73 20 74 79 70 65 20 6f 66 0a 20 20 20 66 | .the.file..Defaults.type.of....f |
| da60 | 69 6c 65 6e 61 6d 65 20 74 6f 20 5c 22 2e 6c 69 73 70 5c 22 2e 20 43 68 6f 6d 70 73 20 6f 6e 20 | ilename.to.\".lisp\"..Chomps.on. |
| da80 | 74 68 65 20 63 6f 64 65 20 75 73 69 6e 67 20 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 61 6e | the.code.using.record-callers.an |
| daa0 | 64 0a 20 20 20 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 2a 2e 20 49 66 20 43 4c 45 41 52 2d 54 | d....record-callers*..If.CLEAR-T |
| dac0 | 41 42 4c 45 53 20 69 73 20 54 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 2c 20 69 74 20 63 6c 65 | ABLES.is.T.(the.default),.it.cle |
| dae0 | 61 72 73 20 74 68 65 20 63 61 6c 6c 65 72 73 0a 20 20 20 64 61 74 61 62 61 73 65 20 62 65 66 6f | ars.the.callers....database.befo |
| db00 | 72 65 20 70 72 6f 63 65 73 73 69 6e 67 20 74 68 65 20 66 69 6c 65 2e 20 53 70 65 63 69 66 79 20 | re.processing.the.file..Specify. |
| db20 | 43 4c 45 41 52 2d 54 41 42 4c 45 53 20 61 73 20 6e 69 6c 20 74 6f 0a 20 20 20 61 70 70 65 6e 64 | CLEAR-TABLES.as.nil.to....append |
| db40 | 20 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 20 49 66 20 56 45 52 42 4f 53 45 20 69 73 20 | .to.the.database..If.VERBOSE.is. |
| db60 | 54 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 2c 20 70 72 69 6e 74 73 20 6f 75 74 20 74 68 65 0a | T.(the.default),.prints.out.the. |
| db80 | 20 20 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 66 69 6c 65 2c 20 6f 6e 65 20 70 72 6f 67 72 65 73 | ...name.of.the.file,.one.progres |
| dba0 | 73 20 64 6f 74 20 66 6f 72 20 65 61 63 68 20 66 6f 72 6d 20 70 72 6f 63 65 73 73 65 64 2c 20 61 | s.dot.for.each.form.processed,.a |
| dbc0 | 6e 64 20 74 68 65 0a 20 20 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 66 6f 72 6d 73 2e | nd.the....total.number.of.forms. |
| dbe0 | 22 0a 20 20 3b 3b 20 44 65 66 61 75 6c 74 20 74 79 70 65 20 74 6f 20 22 6c 69 73 70 22 0a 20 20 | "...;;.Default.type.to."lisp"... |
| dc00 | 28 77 68 65 6e 20 28 61 6e 64 20 28 6e 75 6c 6c 20 28 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 20 | (when.(and.(null.(pathname-type. |
| dc20 | 66 69 6c 65 6e 61 6d 65 29 29 0a 09 20 20 20 20 20 28 6e 6f 74 20 20 28 70 72 6f 62 65 2d 66 69 | filename)).......(not..(probe-fi |
| dc40 | 6c 65 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e | le.filename))).....(cond.((strin |
| dc60 | 67 70 20 66 69 6c 65 6e 61 6d 65 29 0a 09 20 20 20 28 73 65 74 66 20 66 69 6c 65 6e 61 6d 65 20 | gp.filename).....(setf.filename. |
| dc80 | 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 20 66 69 6c 65 6e 61 6d 65 20 22 2e | (concatenate.'string.filename.". |
| dca0 | 6c 69 73 70 22 29 29 29 0a 09 20 20 28 28 70 61 74 68 6e 61 6d 65 70 20 66 69 6c 65 6e 61 6d 65 | lisp")))....((pathnamep.filename |
| dcc0 | 29 0a 09 20 20 20 28 73 65 74 66 20 66 69 6c 65 6e 61 6d 65 20 28 6d 65 72 67 65 2d 70 61 74 68 | ).....(setf.filename.(merge-path |
| dce0 | 6e 61 6d 65 73 20 66 69 6c 65 6e 61 6d 65 0a 09 09 09 09 09 20 20 20 28 6d 61 6b 65 2d 70 61 74 | names.filename.........(make-pat |
| dd00 | 68 6e 61 6d 65 20 3a 74 79 70 65 20 22 6c 69 73 70 22 29 29 29 29 29 29 0a 20 20 28 77 68 65 6e | hname.:type."lisp"))))))...(when |
| dd20 | 20 63 6c 65 61 72 2d 74 61 62 6c 65 73 20 28 63 6c 65 61 72 2d 74 61 62 6c 65 73 29 29 0a 20 20 | .clear-tables.(clear-tables))... |
| dd40 | 28 6c 65 74 20 28 28 63 6f 75 6e 74 20 30 29 0a 09 28 6f 6c 64 2d 70 61 63 6b 61 67 65 20 2a 70 | (let.((count.0)..(old-package.*p |
| dd60 | 61 63 6b 61 67 65 2a 29 0a 09 28 2a 72 65 61 64 74 61 62 6c 65 2a 20 2a 6e 6f 72 6d 61 6c 2d 72 | ackage*)..(*readtable*.*normal-r |
| dd80 | 65 61 64 74 61 62 6c 65 2a 29 29 0a 20 20 20 20 28 77 68 65 6e 20 76 65 72 62 6f 73 65 0a 20 20 | eadtable*)).....(when.verbose... |
| dda0 | 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 69 | ....(format.t."~&Cross-referenci |
| ddc0 | 6e 67 20 66 69 6c 65 20 7e 41 2e 7e 26 22 20 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 28 77 | ng.file.~A.~&".filename)).....(w |
| dde0 | 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 73 74 72 65 61 6d 20 66 69 6c 65 6e 61 6d 65 20 3a | ith-open-file.(stream.filename.: |
| de00 | 64 69 72 65 63 74 69 6f 6e 20 3a 69 6e 70 75 74 29 0a 20 20 20 20 20 20 28 64 6f 20 28 28 66 6f | direction.:input).......(do.((fo |
| de20 | 72 6d 20 28 72 65 61 64 20 73 74 72 65 61 6d 20 6e 69 6c 20 3a 65 6f 66 29 20 28 72 65 61 64 20 | rm.(read.stream.nil.:eof).(read. |
| de40 | 73 74 72 65 61 6d 20 6e 69 6c 20 3a 65 6f 66 29 29 29 0a 09 20 20 28 28 65 71 20 66 6f 72 6d 20 | stream.nil.:eof)))....((eq.form. |
| de60 | 3a 65 6f 66 29 29 0a 09 28 69 6e 63 66 20 63 6f 75 6e 74 29 0a 09 28 77 68 65 6e 20 76 65 72 62 | :eof))..(incf.count)..(when.verb |
| de80 | 6f 73 65 0a 09 20 20 28 66 6f 72 6d 61 74 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a | ose....(format.*standard-output* |
| dea0 | 20 22 2e 22 29 0a 09 20 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 20 2a 73 74 61 6e 64 61 72 64 | .".")....(force-output.*standard |
| dec0 | 2d 6f 75 74 70 75 74 2a 29 29 0a 09 28 73 65 74 71 20 2a 6c 61 73 74 2d 66 6f 72 6d 2a 20 66 6f | -output*))..(setq.*last-form*.fo |
| dee0 | 72 6d 29 0a 09 28 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 66 69 6c 65 6e 61 6d 65 20 66 6f | rm)..(record-callers.filename.fo |
| df00 | 72 6d 29 0a 09 3b 3b 20 50 61 63 6b 61 67 65 20 4d 61 67 69 63 2e 0a 09 28 77 68 65 6e 20 28 61 | rm)..;;.Package.Magic...(when.(a |
| df20 | 6e 64 20 2a 68 61 6e 64 6c 65 2d 70 61 63 6b 61 67 65 2d 66 6f 72 6d 73 2a 0a 09 09 20 20 20 28 | nd.*handle-package-forms*......( |
| df40 | 63 6f 6e 73 70 20 66 6f 72 6d 29 0a 09 09 20 20 20 28 6d 65 6d 62 65 72 20 28 63 61 72 20 66 6f | consp.form)......(member.(car.fo |
| df60 | 72 6d 29 20 2a 68 61 6e 64 6c 65 2d 70 61 63 6b 61 67 65 2d 66 6f 72 6d 73 2a 29 29 0a 09 20 20 | rm).*handle-package-forms*)).... |
| df80 | 28 65 76 61 6c 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 76 65 72 62 6f 73 65 | (eval.form)))).....(when.verbose |
| dfa0 | 20 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 7e 44 20 66 6f 72 6d 73 20 70 72 | ........(format.t."~&~D.forms.pr |
| dfc0 | 6f 63 65 73 73 65 64 2e 22 20 63 6f 75 6e 74 29 29 0a 20 20 20 20 28 73 65 74 71 20 2a 70 61 63 | ocessed.".count)).....(setq.*pac |
| dfe0 | 6b 61 67 65 2a 20 6f 6c 64 2d 70 61 63 6b 61 67 65 29 0a 20 20 20 20 28 76 61 6c 75 65 73 29 29 | kage*.old-package).....(values)) |
| e000 | 29 0a 0a 28 64 65 66 76 61 72 20 2a 68 61 6e 64 6c 65 2d 66 75 6e 63 74 69 6f 6e 2d 66 6f 72 6d | )..(defvar.*handle-function-form |
| e020 | 73 2a 20 74 0a 20 20 22 57 68 65 6e 20 54 2c 20 58 52 45 46 2d 46 49 4c 45 20 74 72 69 65 73 20 | s*.t..."When.T,.XREF-FILE.tries. |
| e040 | 74 6f 20 62 65 20 73 6d 61 72 74 20 61 62 6f 75 74 20 66 6f 72 6d 73 20 77 68 69 63 68 20 6f 63 | to.be.smart.about.forms.which.oc |
| e060 | 63 75 72 20 69 6e 0a 20 20 20 61 20 66 75 6e 63 74 69 6f 6e 20 70 6f 73 69 74 69 6f 6e 2c 20 73 | cur.in....a.function.position,.s |
| e080 | 75 63 68 20 61 73 20 6c 61 6d 62 64 61 73 20 61 6e 64 20 61 72 62 69 74 72 61 72 79 20 4c 69 73 | uch.as.lambdas.and.arbitrary.Lis |
| e0a0 | 70 20 66 6f 72 6d 73 2e 0a 20 20 20 49 66 20 73 6f 2c 20 69 74 20 72 65 63 75 72 73 69 76 65 6c | p.forms.....If.so,.it.recursivel |
| e0c0 | 79 20 63 61 6c 6c 73 20 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 77 69 74 68 20 70 61 74 74 | y.calls.record-callers.with.patt |
| e0e0 | 65 72 6e 20 27 46 4f 52 4d 2e 0a 20 20 20 49 66 20 74 68 65 20 66 6f 72 6d 20 69 73 20 61 20 6c | ern.'FORM.....If.the.form.is.a.l |
| e100 | 61 6d 62 64 61 2c 20 6d 61 6b 65 73 20 74 68 65 20 63 61 6c 6c 65 72 20 61 20 63 61 6c 6c 65 72 | ambda,.makes.the.caller.a.caller |
| e120 | 20 6f 66 20 3a 75 6e 6e 61 6d 65 64 2d 6c 61 6d 62 64 61 2e 22 29 20 0a 0a 28 64 65 66 76 61 72 | .of.:unnamed-lambda.")...(defvar |
| e140 | 20 2a 68 61 6e 64 6c 65 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 2a 20 74 0a 20 20 22 57 68 65 6e 20 | .*handle-macro-forms*.t..."When. |
| e160 | 54 2c 20 69 66 20 74 68 65 20 66 69 6c 65 20 77 61 73 20 6c 6f 61 64 65 64 20 62 65 66 6f 72 65 | T,.if.the.file.was.loaded.before |
| e180 | 20 62 65 69 6e 67 20 70 72 6f 63 65 73 73 65 64 20 62 79 20 58 52 45 46 2c 20 61 6e 64 20 74 68 | .being.processed.by.XREF,.and.th |
| e1a0 | 65 0a 20 20 20 63 61 72 20 6f 66 20 61 20 66 6f 72 6d 20 69 73 20 61 20 6d 61 63 72 6f 2c 20 69 | e....car.of.a.form.is.a.macro,.i |
| e1c0 | 74 20 6e 6f 74 65 73 20 74 68 61 74 20 74 68 65 20 70 61 72 65 6e 74 20 63 61 6c 6c 73 20 74 68 | t.notes.that.the.parent.calls.th |
| e1e0 | 65 20 6d 61 63 72 6f 2c 0a 20 20 20 61 6e 64 20 74 68 65 6e 20 63 61 6c 6c 73 20 6d 61 63 72 6f | e.macro,....and.then.calls.macro |
| e200 | 65 78 70 61 6e 64 2d 31 20 6f 6e 20 74 68 65 20 66 6f 72 6d 2e 22 29 20 0a 0a 28 64 65 66 76 61 | expand-1.on.the.form.")...(defva |
| e220 | 72 20 2a 63 61 6c 6c 65 65 73 2d 64 61 74 61 62 61 73 65 2d 69 6e 63 6c 75 64 65 73 2d 76 61 72 | r.*callees-database-includes-var |
| e240 | 69 61 62 6c 65 73 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 72 65 63 6f 72 64 2d 63 61 6c 6c | iables*.nil)..(defun.record-call |
| e260 | 65 72 73 20 28 66 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 0a 09 09 09 09 26 6f 70 74 69 6f 6e 61 | ers.(filename.form......&optiona |
| e280 | 6c 20 70 61 74 74 65 72 6e 20 70 61 72 65 6e 74 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 6e 69 | l.pattern.parent.(environment.ni |
| e2a0 | 6c 29 0a 09 09 09 09 66 75 6e 63 61 6c 6c 29 0a 20 20 22 52 45 43 4f 52 44 2d 43 41 4c 4c 45 52 | l).....funcall)..."RECORD-CALLER |
| e2c0 | 53 20 69 73 20 74 68 65 20 6d 61 69 6e 20 72 6f 75 74 69 6e 65 20 75 73 65 64 20 74 6f 20 77 61 | S.is.the.main.routine.used.to.wa |
| e2e0 | 6c 6b 20 64 6f 77 6e 20 74 68 65 20 63 6f 64 65 2e 20 49 74 20 6d 61 74 63 68 65 73 0a 20 20 20 | lk.down.the.code..It.matches.... |
| e300 | 74 68 65 20 50 41 54 54 45 52 4e 20 61 67 61 69 6e 73 74 20 74 68 65 20 46 4f 52 4d 2c 20 70 6f | the.PATTERN.against.the.FORM,.po |
| e320 | 73 73 69 62 6c 79 20 61 64 64 69 6e 67 20 73 74 61 74 65 6d 65 6e 74 73 20 74 6f 20 74 68 65 20 | ssibly.adding.statements.to.the. |
| e340 | 64 61 74 61 62 61 73 65 2e 0a 20 20 20 50 41 52 45 4e 54 20 69 73 20 74 68 65 20 6e 61 6d 65 20 | database.....PARENT.is.the.name. |
| e360 | 64 65 66 69 6e 65 64 20 62 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 6f 75 74 65 72 6d 6f 73 74 | defined.by.the.current.outermost |
| e380 | 20 64 65 66 69 6e 69 74 69 6f 6e 3b 20 69 74 20 69 73 0a 20 20 20 74 68 65 20 63 61 6c 6c 65 72 | .definition;.it.is....the.caller |
| e3a0 | 20 6f 66 20 74 68 65 20 66 6f 72 6d 73 20 69 6e 20 74 68 65 20 62 6f 64 79 20 28 65 2e 67 2e 2c | .of.the.forms.in.the.body.(e.g., |
| e3c0 | 20 46 4f 52 4d 29 2e 20 45 4e 56 49 52 4f 4e 4d 45 4e 54 20 69 73 20 75 73 65 64 0a 20 20 20 74 | .FORM)..ENVIRONMENT.is.used....t |
| e3e0 | 6f 20 6b 65 65 70 20 74 72 61 63 6b 20 6f 66 20 74 68 65 20 73 63 6f 70 69 6e 67 20 6f 66 20 76 | o.keep.track.of.the.scoping.of.v |
| e400 | 61 72 69 61 62 6c 65 73 2e 20 46 55 4e 43 41 4c 4c 20 64 65 61 6c 73 20 77 69 74 68 20 74 68 65 | ariables..FUNCALL.deals.with.the |
| e420 | 20 74 79 70 65 0a 20 20 20 6f 66 20 76 61 72 69 61 62 6c 65 20 61 73 73 69 67 6e 6d 65 6e 74 20 | .type....of.variable.assignment. |
| e440 | 61 6e 64 20 68 65 6e 63 65 20 68 6f 77 20 74 68 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 73 68 | and.hence.how.the.environment.sh |
| e460 | 6f 75 6c 64 20 62 65 20 6d 6f 64 69 66 69 65 64 2e 0a 20 20 20 52 45 43 4f 52 44 2d 43 41 4c 4c | ould.be.modified.....RECORD-CALL |
| e480 | 45 52 53 20 68 61 6e 64 6c 65 73 20 61 74 6f 6d 69 63 20 70 61 74 74 65 72 6e 73 20 61 6e 64 20 | ERS.handles.atomic.patterns.and. |
| e4a0 | 73 69 6d 70 6c 65 20 6c 69 73 74 2d 73 74 72 75 63 74 75 72 65 20 70 61 74 74 65 72 6e 73 2e 0a | simple.list-structure.patterns.. |
| e4c0 | 20 20 20 46 6f 72 20 63 6f 6d 70 6c 65 78 20 6c 69 73 74 2d 73 74 72 75 63 74 75 72 65 20 70 61 | ...For.complex.list-structure.pa |
| e4e0 | 74 74 65 72 6e 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2c 20 69 74 20 63 61 6c 6c 73 20 52 45 | ttern.destructuring,.it.calls.RE |
| e500 | 43 4f 52 44 2d 43 41 4c 4c 45 52 53 2a 2e 22 0a 3b 20 20 28 77 68 65 6e 20 66 6f 72 6d 29 0a 20 | CORD-CALLERS*.".;..(when.form).. |
| e520 | 20 28 75 6e 6c 65 73 73 20 70 61 74 74 65 72 6e 20 28 73 65 74 71 20 70 61 74 74 65 72 6e 20 27 | .(unless.pattern.(setq.pattern.' |
| e540 | 46 4f 52 4d 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 73 79 6d 62 6f 6c 70 20 70 61 74 74 65 72 6e | FORM))...(cond.((symbolp.pattern |
| e560 | 29 0a 09 20 28 63 61 73 65 20 70 61 74 74 65 72 6e 0a 09 20 20 20 28 3a 49 47 4e 4f 52 45 0a 09 | )...(case.pattern.....(:IGNORE.. |
| e580 | 20 20 20 20 3b 3b 20 49 67 6e 6f 72 65 73 20 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 65 20 66 | ....;;.Ignores.the.rest.of.the.f |
| e5a0 | 6f 72 6d 2e 0a 09 20 20 20 20 28 76 61 6c 75 65 73 20 74 20 70 61 72 65 6e 74 20 65 6e 76 69 72 | orm.......(values.t.parent.envir |
| e5c0 | 6f 6e 6d 65 6e 74 29 29 0a 09 20 20 20 28 4e 41 4d 45 20 20 20 20 0a 09 20 20 20 20 3b 3b 20 54 | onment)).....(NAME..........;;.T |
| e5e0 | 68 69 73 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 6e 65 77 20 64 65 66 69 6e 69 74 | his.is.the.name.of.a.new.definit |
| e600 | 69 6f 6e 2e 0a 09 20 20 20 20 28 70 75 73 68 20 66 69 6c 65 6e 61 6d 65 20 28 73 6f 75 72 63 65 | ion.......(push.filename.(source |
| e620 | 2d 66 69 6c 65 20 66 6f 72 6d 29 29 0a 09 20 20 20 20 28 76 61 6c 75 65 73 20 74 20 66 6f 72 6d | -file.form))......(values.t.form |
| e640 | 20 20 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 09 20 20 20 28 28 46 55 4e 43 54 49 4f 4e 20 | ...environment)).....((FUNCTION. |
| e660 | 4d 41 43 52 4f 29 0a 09 20 20 20 20 3b 3b 20 54 68 69 73 20 69 73 20 74 68 65 20 6e 61 6d 65 20 | MACRO)......;;.This.is.the.name. |
| e680 | 6f 66 20 61 20 63 61 6c 6c 2e 0a 09 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 2a 68 61 6e | of.a.call.......(cond.((and.*han |
| e6a0 | 64 6c 65 2d 66 75 6e 63 74 69 6f 6e 2d 66 6f 72 6d 73 2a 20 28 63 6f 6e 73 70 20 66 6f 72 6d 29 | dle-function-forms*.(consp.form) |
| e6c0 | 29 0a 09 09 20 20 20 3b 3b 20 49 66 20 77 65 27 72 65 20 61 20 63 6f 6e 73 20 61 6e 64 20 73 70 | )......;;.If.we're.a.cons.and.sp |
| e6e0 | 65 63 69 61 6c 20 68 61 6e 64 6c 69 6e 67 20 69 73 20 6f 6e 2c 0a 09 09 20 20 20 28 77 68 65 6e | ecial.handling.is.on,......(when |
| e700 | 20 28 65 71 20 28 63 61 72 20 66 6f 72 6d 29 20 27 6c 61 6d 62 64 61 29 0a 09 09 20 20 20 20 20 | .(eq.(car.form).'lambda)........ |
| e720 | 28 70 75 73 68 6e 65 77 20 66 69 6c 65 6e 61 6d 65 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 | (pushnew.filename.(callers-list. |
| e740 | 3a 75 6e 6e 61 6d 65 64 2d 6c 61 6d 62 64 61 20 3a 66 69 6c 65 29 29 0a 09 09 20 20 20 20 20 28 | :unnamed-lambda.:file))........( |
| e760 | 77 68 65 6e 20 70 61 72 65 6e 74 0a 09 09 20 20 20 20 20 20 20 28 70 75 73 68 6e 65 77 20 70 61 | when.parent..........(pushnew.pa |
| e780 | 72 65 6e 74 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 3a 75 6e 6e 61 6d 65 64 2d 6c 61 6d 62 | rent.(callers-list.:unnamed-lamb |
| e7a0 | 64 61 0a 09 09 09 09 09 09 20 20 20 20 20 3a 63 61 6c 6c 65 72 73 29 29 0a 09 09 20 20 20 20 20 | da............:callers))........ |
| e7c0 | 20 20 28 70 75 73 68 6e 65 77 20 3a 75 6e 6e 61 6d 65 64 2d 6c 61 6d 62 64 61 20 28 63 61 6c 6c | ..(pushnew.:unnamed-lambda.(call |
| e7e0 | 65 72 73 2d 6c 69 73 74 20 70 61 72 65 6e 74 0a 09 09 09 09 09 09 09 20 20 20 20 20 20 3a 63 61 | ers-list.parent..............:ca |
| e800 | 6c 6c 65 65 73 29 29 29 29 0a 09 09 20 20 20 28 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 66 | llees))))......(record-callers.f |
| e820 | 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 27 66 6f 72 6d 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f | ilename.form.'form.parent.enviro |
| e840 | 6e 6d 65 6e 74 29 29 0a 09 09 20 20 28 74 20 0a 09 09 20 20 20 3b 3b 20 49 66 20 77 65 27 72 65 | nment)).....(t.......;;.If.we're |
| e860 | 20 6a 75 73 74 20 61 20 72 65 67 75 6c 61 72 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 63 61 | .just.a.regular.function.name.ca |
| e880 | 6c 6c 2e 0a 09 09 20 20 20 28 70 75 73 68 6e 65 77 20 66 69 6c 65 6e 61 6d 65 20 28 63 61 6c 6c | ll.......(pushnew.filename.(call |
| e8a0 | 65 72 73 2d 6c 69 73 74 20 66 6f 72 6d 20 3a 66 69 6c 65 29 29 0a 09 09 20 20 20 28 77 68 65 6e | ers-list.form.:file))......(when |
| e8c0 | 20 70 61 72 65 6e 74 0a 09 09 20 20 20 20 20 28 70 75 73 68 6e 65 77 20 70 61 72 65 6e 74 20 28 | .parent........(pushnew.parent.( |
| e8e0 | 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 66 6f 72 6d 20 3a 63 61 6c 6c 65 72 73 29 29 0a 09 09 20 | callers-list.form.:callers)).... |
| e900 | 20 20 20 20 28 70 75 73 68 6e 65 77 20 66 6f 72 6d 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 | ....(pushnew.form.(callers-list. |
| e920 | 70 61 72 65 6e 74 20 3a 63 61 6c 6c 65 65 73 29 29 29 0a 09 09 20 20 20 28 76 61 6c 75 65 73 20 | parent.:callees)))......(values. |
| e940 | 74 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 29 20 0a 09 20 20 20 28 56 | t.parent.environment))))......(V |
| e960 | 41 52 20 20 20 20 20 0a 09 20 20 20 20 3b 3b 20 54 68 69 73 20 69 73 20 74 68 65 20 6e 61 6d 65 | AR...........;;.This.is.the.name |
| e980 | 20 6f 66 20 61 20 6e 65 77 20 76 61 72 69 61 62 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 2e 0a 09 | .of.a.new.variable.definition... |
| e9a0 | 20 20 20 20 3b 3b 20 49 6e 63 6c 75 64 65 73 20 61 72 67 6c 69 73 74 20 70 61 72 61 6d 65 74 65 | ....;;.Includes.arglist.paramete |
| e9c0 | 72 73 2e 0a 09 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 66 6f 72 | rs.......(when.(and.(symbolp.for |
| e9e0 | 6d 29 20 28 6e 6f 74 20 28 6b 65 79 77 6f 72 64 70 20 66 6f 72 6d 29 29 0a 09 09 20 20 20 20 20 | m).(not.(keywordp.form))........ |
| ea00 | 20 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 66 6f 72 6d 20 6c 61 6d 62 64 61 2d 6c 69 73 74 2d | ..(not.(member.form.lambda-list- |
| ea20 | 6b 65 79 77 6f 72 64 73 29 29 29 0a 09 20 20 20 20 20 20 28 70 75 73 68 6e 65 77 20 66 6f 72 6d | keywords)))........(pushnew.form |
| ea40 | 20 28 63 61 72 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 09 20 20 20 20 20 20 28 70 75 73 68 | .(car.environment))........(push |
| ea60 | 6e 65 77 20 66 69 6c 65 6e 61 6d 65 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 66 6f 72 6d 20 | new.filename.(callers-list.form. |
| ea80 | 3a 66 69 6c 65 29 29 0a 09 20 20 20 20 20 20 28 77 68 65 6e 20 70 61 72 65 6e 74 20 0a 3b 09 09 | :file))........(when.parent..;.. |
| eaa0 | 20 20 28 70 75 73 68 6e 65 77 20 66 6f 72 6d 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 70 61 | ..(pushnew.form.(callers-list.pa |
| eac0 | 72 65 6e 74 20 3a 63 61 6c 6c 65 65 73 29 29 0a 09 09 28 70 75 73 68 6e 65 77 20 70 61 72 65 6e | rent.:callees))...(pushnew.paren |
| eae0 | 74 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 66 6f 72 6d 20 3a 73 65 74 74 65 72 73 29 29 29 | t.(callers-list.form.:setters))) |
| eb00 | 0a 09 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 74 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e | ........(values.t.parent.environ |
| eb20 | 6d 65 6e 74 29 29 29 0a 09 20 20 20 28 56 41 52 49 41 42 4c 45 0a 09 20 20 20 20 3b 3b 20 56 41 | ment))).....(VARIABLE......;;.VA |
| eb40 | 52 20 72 65 66 65 72 65 6e 63 65 0a 09 20 20 20 20 28 70 75 73 68 6e 65 77 20 66 69 6c 65 6e 61 | R.reference......(pushnew.filena |
| eb60 | 6d 65 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 66 6f 72 6d 20 3a 66 69 6c 65 29 29 0a 09 20 | me.(callers-list.form.:file))... |
| eb80 | 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 70 61 72 65 6e 74 20 28 6e 6f 74 20 28 6c 6f 6f 6b 75 | ...(when.(and.parent.(not.(looku |
| eba0 | 70 20 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 0a 09 20 20 20 20 20 20 28 70 75 | p.form.environment)))........(pu |
| ebc0 | 73 68 6e 65 77 20 70 61 72 65 6e 74 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 66 6f 72 6d 20 | shnew.parent.(callers-list.form. |
| ebe0 | 3a 72 65 61 64 65 72 73 29 29 0a 09 20 20 20 20 20 20 28 77 68 65 6e 20 2a 63 61 6c 6c 65 65 73 | :readers))........(when.*callees |
| ec00 | 2d 64 61 74 61 62 61 73 65 2d 69 6e 63 6c 75 64 65 73 2d 76 61 72 69 61 62 6c 65 73 2a 0a 09 09 | -database-includes-variables*... |
| ec20 | 28 70 75 73 68 6e 65 77 20 66 6f 72 6d 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 70 61 72 65 | (pushnew.form.(callers-list.pare |
| ec40 | 6e 74 20 3a 63 61 6c 6c 65 65 73 29 29 29 29 0a 09 20 20 20 20 28 76 61 6c 75 65 73 20 74 20 70 | nt.:callees))))......(values.t.p |
| ec60 | 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 09 20 20 20 28 46 4f 52 4d 20 20 20 | arent.environment)).....(FORM... |
| ec80 | 20 0a 09 20 20 20 20 3b 3b 20 41 20 72 61 6e 64 6f 6d 20 66 6f 72 6d 20 28 76 61 72 20 6f 72 20 | .......;;.A.random.form.(var.or. |
| eca0 | 66 75 6e 63 61 6c 6c 29 2e 0a 09 20 20 20 20 28 63 6f 6e 64 20 28 28 63 6f 6e 73 70 20 66 6f 72 | funcall).......(cond.((consp.for |
| ecc0 | 6d 29 0a 09 09 20 20 20 3b 3b 20 47 65 74 20 6e 65 77 20 70 61 74 74 65 72 6e 20 66 72 6f 6d 20 | m)......;;.Get.new.pattern.from. |
| ece0 | 54 41 47 2e 0a 09 09 20 20 20 28 6c 65 74 20 28 28 6e 65 77 2d 70 61 74 74 65 72 6e 20 28 6c 6f | TAG.......(let.((new-pattern.(lo |
| ed00 | 6f 6b 75 70 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 28 63 61 72 20 66 6f 72 6d 29 29 29 | okup-caller-pattern.(car.form))) |
| ed20 | 29 0a 09 09 20 20 20 20 20 28 70 75 73 68 6e 65 77 20 66 69 6c 65 6e 61 6d 65 20 28 63 61 6c 6c | )........(pushnew.filename.(call |
| ed40 | 65 72 73 2d 6c 69 73 74 20 28 63 61 72 20 66 6f 72 6d 29 20 3a 66 69 6c 65 29 29 0a 09 09 20 20 | ers-list.(car.form).:file))..... |
| ed60 | 20 20 20 28 77 68 65 6e 20 70 61 72 65 6e 74 0a 09 09 20 20 20 20 20 20 20 28 70 75 73 68 6e 65 | ...(when.parent..........(pushne |
| ed80 | 77 20 70 61 72 65 6e 74 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 28 63 61 72 20 66 6f 72 6d | w.parent.(callers-list.(car.form |
| eda0 | 29 20 3a 63 61 6c 6c 65 72 73 29 29 0a 09 09 20 20 20 20 20 20 20 28 70 75 73 68 6e 65 77 20 28 | ).:callers))..........(pushnew.( |
| edc0 | 63 61 72 20 66 6f 72 6d 29 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 70 61 72 65 6e 74 20 3a | car.form).(callers-list.parent.: |
| ede0 | 63 61 6c 6c 65 65 73 29 29 29 0a 09 09 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 6e 65 | callees)))........(cond.((and.ne |
| ee00 | 77 2d 70 61 74 74 65 72 6e 20 28 63 64 72 20 66 6f 72 6d 29 29 0a 09 09 09 20 20 20 20 3b 3b 20 | w-pattern.(cdr.form))........;;. |
| ee20 | 53 70 65 63 69 61 6c 20 50 61 74 74 65 72 6e 20 61 6e 64 20 74 68 65 72 65 27 73 20 73 74 75 66 | Special.Pattern.and.there's.stuf |
| ee40 | 66 20 6c 65 66 74 0a 09 09 09 20 20 20 20 3b 3b 20 74 6f 20 62 65 20 70 72 6f 63 65 73 73 65 64 | f.left........;;.to.be.processed |
| ee60 | 2e 20 4e 6f 74 65 20 74 68 61 74 20 77 65 20 63 68 65 63 6b 20 69 66 0a 09 09 09 20 20 20 20 3b | ..Note.that.we.check.if........; |
| ee80 | 3b 20 61 20 70 61 74 74 65 72 6e 20 69 73 20 64 65 66 69 6e 65 64 20 66 6f 72 20 74 68 65 20 66 | ;.a.pattern.is.defined.for.the.f |
| eea0 | 6f 72 6d 20 62 65 66 6f 72 65 0a 09 09 09 20 20 20 20 3b 3b 20 77 65 20 63 68 65 63 6b 20 74 6f | orm.before........;;.we.check.to |
| eec0 | 20 73 65 65 20 69 66 20 77 65 20 63 61 6e 20 6d 61 63 72 6f 65 78 70 61 6e 64 20 69 74 2e 0a 09 | .see.if.we.can.macroexpand.it... |
| eee0 | 09 09 20 20 20 20 28 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 66 69 6c 65 6e 61 6d 65 20 28 | ......(record-callers.filename.( |
| ef00 | 63 64 72 20 66 6f 72 6d 29 20 6e 65 77 2d 70 61 74 74 65 72 6e 0a 09 09 09 09 09 20 20 20 20 70 | cdr.form).new-pattern..........p |
| ef20 | 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 3a 66 75 6e 63 61 6c 6c 29 29 0a 09 09 09 | arent.environment.:funcall)).... |
| ef40 | 20 20 20 28 28 61 6e 64 20 2a 68 61 6e 64 6c 65 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 2a 0a 09 09 | ...((and.*handle-macro-forms*... |
| ef60 | 09 09 20 28 73 79 6d 62 6f 6c 70 20 28 63 61 72 20 66 6f 72 6d 29 29 20 3b 20 70 6e 6f 72 76 69 | ...(symbolp.(car.form)).;.pnorvi |
| ef80 | 67 20 39 2f 39 2f 39 33 0a 09 09 09 09 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 28 63 | g.9/9/93......(macro-function.(c |
| efa0 | 61 72 20 66 6f 72 6d 29 29 29 0a 09 09 09 20 20 20 20 3b 3b 20 54 68 65 20 63 61 72 20 6f 66 20 | ar.form)))........;;.The.car.of. |
| efc0 | 74 68 65 20 66 6f 72 6d 20 69 73 20 61 20 6d 61 63 72 6f 20 61 6e 64 0a 09 09 09 20 20 20 20 3b | the.form.is.a.macro.and........; |
| efe0 | 3b 20 6d 61 63 72 6f 20 70 72 6f 63 65 73 73 69 6e 67 20 69 73 20 74 75 72 6e 65 64 20 6f 6e 2e | ;.macro.processing.is.turned.on. |
| f000 | 20 4d 61 63 72 6f 65 78 70 61 6e 64 2d 31 0a 09 09 09 20 20 20 20 3b 3b 20 74 68 65 20 66 6f 72 | .Macroexpand-1........;;.the.for |
| f020 | 6d 20 61 6e 64 20 74 72 79 20 61 67 61 69 6e 2e 0a 09 09 09 20 20 20 20 28 72 65 63 6f 72 64 2d | m.and.try.again.........(record- |
| f040 | 63 61 6c 6c 65 72 73 20 66 69 6c 65 6e 61 6d 65 20 0a 09 09 09 09 09 20 20 20 20 28 6d 61 63 72 | callers.filename...........(macr |
| f060 | 6f 65 78 70 61 6e 64 2d 31 20 66 6f 72 6d 29 0a 09 09 09 09 09 20 20 20 20 27 66 6f 72 6d 20 70 | oexpand-1.form)..........'form.p |
| f080 | 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 0a 09 09 09 09 09 20 20 20 20 3a 66 75 6e | arent.environment...........:fun |
| f0a0 | 63 61 6c 6c 29 29 0a 09 09 09 20 20 20 28 28 6e 75 6c 6c 20 28 63 64 72 20 66 6f 72 6d 29 29 0a | call)).......((null.(cdr.form)). |
| f0c0 | 09 09 09 20 20 20 20 3b 3b 20 4e 6f 20 6d 6f 72 65 20 6c 65 66 74 20 74 6f 20 62 65 20 70 72 6f | .......;;.No.more.left.to.be.pro |
| f0e0 | 63 65 73 73 65 64 2e 20 4e 6f 74 65 20 74 68 61 74 0a 09 09 09 20 20 20 20 3b 3b 20 74 68 69 73 | cessed..Note.that........;;.this |
| f100 | 20 6d 75 73 74 20 6f 63 63 75 72 20 61 66 74 65 72 20 74 68 65 20 6d 61 63 72 6f 73 20 63 6c 61 | .must.occur.after.the.macros.cla |
| f120 | 75 73 65 2c 0a 09 09 09 20 20 20 20 3b 3b 20 73 69 6e 63 65 20 6d 61 63 72 6f 73 20 63 61 6e 20 | use,........;;.since.macros.can. |
| f140 | 65 78 70 61 6e 64 20 69 6e 74 6f 20 6d 6f 72 65 20 63 6f 64 65 2e 0a 09 09 09 20 20 20 20 28 76 | expand.into.more.code.........(v |
| f160 | 61 6c 75 65 73 20 74 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 09 09 09 | alues.t.parent.environment)).... |
| f180 | 20 20 20 28 74 0a 09 09 09 20 20 20 20 3b 3b 20 52 61 6e 64 6f 6d 20 46 6f 72 6d 2e 20 57 65 20 | ...(t........;;.Random.Form..We. |
| f1a0 | 61 73 73 75 6d 65 20 69 74 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 2e 0a 09 09 | assume.it.is.a.function.call.... |
| f1c0 | 09 20 20 20 20 28 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 66 69 6c 65 6e 61 6d 65 20 28 63 | .....(record-callers.filename.(c |
| f1e0 | 64 72 20 66 6f 72 6d 29 0a 09 09 09 09 09 20 20 20 20 27 28 28 3a 73 74 61 72 20 46 4f 52 4d 29 | dr.form)..........'((:star.FORM) |
| f200 | 29 0a 09 09 09 09 09 20 20 20 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 3a 66 | )..........parent.environment.:f |
| f220 | 75 6e 63 61 6c 6c 29 29 29 29 29 0a 09 09 20 20 28 74 20 0a 09 09 20 20 20 28 77 68 65 6e 20 28 | uncall))))).....(t.......(when.( |
| f240 | 61 6e 64 20 28 6e 6f 74 20 28 6c 6f 6f 6b 75 70 20 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e | and.(not.(lookup.form.environmen |
| f260 | 74 29 29 0a 09 09 09 20 20 20 20 20 20 28 6e 6f 74 20 28 6e 75 6d 62 65 72 70 20 66 6f 72 6d 29 | t))..........(not.(numberp.form) |
| f280 | 29 0a 09 09 09 20 20 20 20 20 20 3b 3b 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 6e 65 | )..........;;.the.following.line |
| f2a0 | 20 73 68 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 62 65 20 0a 09 09 09 20 20 20 20 20 20 3b 3b | .should.probably.be...........;; |
| f2c0 | 20 63 6f 6d 6d 65 6e 74 65 64 20 6f 75 74 3f 0a 09 09 09 20 20 20 20 20 20 28 6e 6f 74 20 28 6b | .commented.out?..........(not.(k |
| f2e0 | 65 79 77 6f 72 64 70 20 66 6f 72 6d 29 29 0a 09 09 09 20 20 20 20 20 20 28 6e 6f 74 20 28 73 74 | eywordp.form))..........(not.(st |
| f300 | 72 69 6e 67 70 20 66 6f 72 6d 29 29 0a 09 09 09 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 66 | ringp.form))..........(not.(eq.f |
| f320 | 6f 72 6d 20 74 29 29 0a 09 09 09 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 66 6f 72 6d 20 6e | orm.t))..........(not.(eq.form.n |
| f340 | 69 6c 29 29 29 0a 09 09 20 20 20 20 20 28 70 75 73 68 6e 65 77 20 66 69 6c 65 6e 61 6d 65 20 28 | il)))........(pushnew.filename.( |
| f360 | 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 66 6f 72 6d 20 3a 66 69 6c 65 29 29 0a 09 09 20 20 20 20 | callers-list.form.:file))....... |
| f380 | 20 3b 3b 20 3f 3f 3f 20 3a 63 61 6c 6c 65 72 73 0a 09 09 20 20 20 20 20 28 77 68 65 6e 20 70 61 | .;;.???.:callers........(when.pa |
| f3a0 | 72 65 6e 74 0a 09 09 20 20 20 20 20 20 20 28 70 75 73 68 6e 65 77 20 70 61 72 65 6e 74 20 28 63 | rent..........(pushnew.parent.(c |
| f3c0 | 61 6c 6c 65 72 73 2d 6c 69 73 74 20 66 6f 72 6d 20 3a 72 65 61 64 65 72 73 29 29 0a 09 09 20 20 | allers-list.form.:readers))..... |
| f3e0 | 20 20 20 20 20 28 77 68 65 6e 20 2a 63 61 6c 6c 65 65 73 2d 64 61 74 61 62 61 73 65 2d 69 6e 63 | .....(when.*callees-database-inc |
| f400 | 6c 75 64 65 73 2d 76 61 72 69 61 62 6c 65 73 2a 0a 09 09 09 20 28 70 75 73 68 6e 65 77 20 66 6f | ludes-variables*.....(pushnew.fo |
| f420 | 72 6d 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 70 61 72 65 6e 74 20 3a 63 61 6c 6c 65 65 73 | rm.(callers-list.parent.:callees |
| f440 | 29 29 29 29 29 0a 09 09 20 20 20 28 76 61 6c 75 65 73 20 74 20 70 61 72 65 6e 74 20 65 6e 76 69 | )))))......(values.t.parent.envi |
| f460 | 72 6f 6e 6d 65 6e 74 29 29 29 29 0a 09 20 20 20 28 6f 74 68 65 72 77 69 73 65 20 0a 09 20 20 20 | ronment)))).....(otherwise...... |
| f480 | 20 3b 3b 20 50 61 74 74 65 72 6e 20 53 75 62 73 74 69 74 75 74 69 6f 6e 0a 09 20 20 20 20 28 6c | .;;.Pattern.Substitution......(l |
| f4a0 | 65 74 20 28 28 6e 65 77 2d 70 61 74 74 65 72 6e 20 28 6c 6f 6f 6b 75 70 2d 70 61 74 74 65 72 6e | et.((new-pattern.(lookup-pattern |
| f4c0 | 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 70 61 74 74 65 72 6e 29 29 29 0a 09 20 20 20 20 20 20 | -substitution.pattern)))........ |
| f4e0 | 28 69 66 20 6e 65 77 2d 70 61 74 74 65 72 6e 0a 09 09 20 20 28 72 65 63 6f 72 64 2d 63 61 6c 6c | (if.new-pattern.....(record-call |
| f500 | 65 72 73 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 6e 65 77 2d 70 61 74 74 65 72 6e 20 0a 09 | ers.filename.form.new-pattern... |
| f520 | 09 09 09 20 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 09 09 20 20 28 77 68 | .....parent.environment).....(wh |
| f540 | 65 6e 20 28 65 71 20 70 61 74 74 65 72 6e 20 66 6f 72 6d 29 0a 09 09 20 20 20 20 28 76 61 6c 75 | en.(eq.pattern.form).......(valu |
| f560 | 65 73 20 74 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 29 29 29 29 0a 09 | es.t.parent.environment))))))).. |
| f580 | 28 28 63 6f 6e 73 70 20 70 61 74 74 65 72 6e 29 0a 09 20 28 63 61 73 65 20 28 63 61 72 20 70 61 | ((consp.pattern)...(case.(car.pa |
| f5a0 | 74 74 65 72 6e 29 0a 09 20 20 20 28 3a 65 71 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 73 65 | ttern).....(:eq....(when.(eq.(se |
| f5c0 | 63 6f 6e 64 20 70 61 74 74 65 72 6e 29 20 66 6f 72 6d 29 0a 09 09 20 20 20 20 20 28 76 61 6c 75 | cond.pattern).form)........(valu |
| f5e0 | 65 73 20 74 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 0a 09 20 20 20 28 | es.t.parent.environment))).....( |
| f600 | 3a 74 65 73 74 20 20 28 77 68 65 6e 20 28 66 75 6e 63 61 6c 6c 20 28 65 76 61 6c 20 28 73 65 63 | :test..(when.(funcall.(eval.(sec |
| f620 | 6f 6e 64 20 70 61 74 74 65 72 6e 29 29 20 66 6f 72 6d 29 0a 09 09 20 20 20 20 20 28 76 61 6c 75 | ond.pattern)).form)........(valu |
| f640 | 65 73 20 74 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 0a 09 20 20 20 28 | es.t.parent.environment))).....( |
| f660 | 3a 74 79 70 65 70 20 28 77 68 65 6e 20 28 74 79 70 65 70 20 66 6f 72 6d 20 28 73 65 63 6f 6e 64 | :typep.(when.(typep.form.(second |
| f680 | 20 70 61 74 74 65 72 6e 29 29 0a 09 09 20 20 20 20 20 28 76 61 6c 75 65 73 20 74 20 70 61 72 65 | .pattern))........(values.t.pare |
| f6a0 | 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 0a 09 20 20 20 28 3a 6f 72 20 20 20 20 28 64 | nt.environment))).....(:or....(d |
| f6c0 | 6f 6c 69 73 74 20 28 73 75 62 70 61 74 20 28 72 65 73 74 20 70 61 74 74 65 72 6e 29 29 0a 09 09 | olist.(subpat.(rest.pattern))... |
| f6e0 | 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 6f 63 65 | .....(multiple-value-bind.(proce |
| f700 | 73 73 65 64 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 09 09 09 20 28 72 65 | ssed.parent.environment).....(re |
| f720 | 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 73 75 62 70 61 | cord-callers.filename.form.subpa |
| f740 | 74 0a 09 09 09 09 09 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 09 09 20 20 | t.......parent.environment)..... |
| f760 | 20 20 20 20 20 28 77 68 65 6e 20 70 72 6f 63 65 73 73 65 64 0a 09 09 09 20 28 72 65 74 75 72 6e | .....(when.processed.....(return |
| f780 | 20 28 76 61 6c 75 65 73 20 70 72 6f 63 65 73 73 65 64 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f | .(values.processed.parent.enviro |
| f7a0 | 6e 6d 65 6e 74 29 29 29 29 29 29 0a 09 20 20 20 28 3a 72 65 73 74 09 09 09 3b 20 28 3a 73 74 61 | nment)))))).....(:rest...;.(:sta |
| f7c0 | 72 20 3a 70 6c 75 73 20 3a 6f 70 74 69 6f 6e 61 6c 20 3a 72 65 73 74 29 0a 09 20 20 20 20 28 72 | r.:plus.:optional.:rest)......(r |
| f7e0 | 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 28 73 65 63 | ecord-callers.filename.form.(sec |
| f800 | 6f 6e 64 20 70 61 74 74 65 72 6e 29 0a 09 09 09 20 20 20 20 70 61 72 65 6e 74 20 65 6e 76 69 72 | ond.pattern)........parent.envir |
| f820 | 6f 6e 6d 65 6e 74 29 29 0a 09 20 20 20 28 6f 74 68 65 72 77 69 73 65 0a 09 20 20 20 20 28 6d 75 | onment)).....(otherwise......(mu |
| f840 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 64 20 70 20 65 6e 76 29 0a 09 09 28 72 | ltiple-value-bind.(d.p.env)...(r |
| f860 | 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 2a 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 70 61 74 | ecord-callers*.filename.form.pat |
| f880 | 74 65 72 6e 20 0a 09 09 09 09 20 70 61 72 65 6e 74 20 28 63 6f 6e 73 20 6e 69 6c 20 65 6e 76 69 | tern.......parent.(cons.nil.envi |
| f8a0 | 72 6f 6e 6d 65 6e 74 29 29 0a 09 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 64 20 70 20 28 69 66 | ronment))........(values.d.p.(if |
| f8c0 | 20 66 75 6e 63 61 6c 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 65 6e 76 29 29 29 29 29 29 29 29 | .funcall.environment.env)))))))) |
| f8e0 | 0a 0a 28 64 65 66 75 6e 20 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 2a 20 28 66 69 6c 65 6e 61 | ..(defun.record-callers*.(filena |
| f900 | 6d 65 20 66 6f 72 6d 20 70 61 74 74 65 72 6e 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 | me.form.pattern.parent.environme |
| f920 | 6e 74 0a 09 09 09 09 20 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 0a | nt......&optional.continuation.. |
| f940 | 09 09 09 09 20 69 6e 2d 6f 70 74 69 6f 6e 61 6c 73 20 69 6e 2d 6b 65 79 77 6f 72 64 73 29 0a 20 | .....in-optionals.in-keywords).. |
| f960 | 20 22 52 45 43 4f 52 44 2d 43 41 4c 4c 45 52 53 2a 20 68 61 6e 64 6c 65 73 20 63 6f 6d 70 6c 65 | ."RECORD-CALLERS*.handles.comple |
| f980 | 78 20 6c 69 73 74 2d 73 74 72 75 63 74 75 72 65 20 70 61 74 74 65 72 6e 73 2c 20 73 75 63 68 20 | x.list-structure.patterns,.such. |
| f9a0 | 61 73 0a 20 20 20 6f 72 64 65 72 65 64 20 6c 69 73 74 73 20 6f 66 20 73 75 62 70 61 74 74 65 72 | as....ordered.lists.of.subpatter |
| f9c0 | 6e 73 2c 20 70 61 74 74 65 72 6e 73 20 69 6e 76 6f 6c 76 69 6e 67 20 3a 73 74 61 72 2c 20 3a 70 | ns,.patterns.involving.:star,.:p |
| f9e0 | 6c 75 73 2c 0a 20 20 20 26 6f 70 74 69 6f 6e 61 6c 2c 20 26 6b 65 79 2c 20 26 72 65 73 74 2c 20 | lus,....&optional,.&key,.&rest,. |
| fa00 | 61 6e 64 20 73 6f 20 6f 6e 2e 20 43 4f 4e 54 49 4e 55 41 54 49 4f 4e 20 69 73 20 61 20 73 74 61 | and.so.on..CONTINUATION.is.a.sta |
| fa20 | 63 6b 20 6f 66 0a 20 20 20 75 6e 70 72 6f 63 65 73 73 65 64 20 70 61 74 74 65 72 6e 73 2c 20 49 | ck.of....unprocessed.patterns,.I |
| fa40 | 4e 2d 4f 50 54 49 4f 4e 41 4c 53 20 61 6e 64 20 49 4e 2d 4b 45 59 57 4f 52 44 53 20 61 72 65 20 | N-OPTIONALS.and.IN-KEYWORDS.are. |
| fa60 | 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 20 20 20 73 74 61 63 6b 73 20 77 68 69 63 68 20 64 65 | corresponding....stacks.which.de |
| fa80 | 74 65 72 6d 69 6e 65 20 77 68 65 74 68 65 72 20 26 72 65 73 74 20 6f 72 20 26 6b 65 79 20 68 61 | termine.whether.&rest.or.&key.ha |
| faa0 | 73 20 62 65 65 6e 20 73 65 65 6e 20 79 65 74 20 69 6e 0a 20 20 20 74 68 65 20 63 75 72 72 65 6e | s.been.seen.yet.in....the.curren |
| fac0 | 74 20 70 61 74 74 65 72 6e 2e 22 20 20 20 0a 20 20 3b 3b 20 66 6f 72 6d 20 6d 75 73 74 20 62 65 | t.pattern."......;;.form.must.be |
| fae0 | 20 61 20 63 6f 6e 73 20 6f 72 20 6e 69 6c 2e 0a 3b 20 20 28 77 68 65 6e 20 66 6f 72 6d 29 0a 20 | .a.cons.or.nil..;..(when.form).. |
| fb00 | 20 28 69 66 20 28 6e 75 6c 6c 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 28 69 66 20 28 6e | .(if.(null.pattern).......(if.(n |
| fb20 | 75 6c 6c 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 0a 09 20 20 28 76 61 6c 75 65 73 20 74 20 70 | ull.continuation)....(values.t.p |
| fb40 | 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 09 20 20 28 72 65 63 6f 72 64 2d 63 61 | arent.environment)....(record-ca |
| fb60 | 6c 6c 65 72 73 2a 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 28 63 61 72 20 63 6f 6e 74 69 6e | llers*.filename.form.(car.contin |
| fb80 | 75 61 74 69 6f 6e 29 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 0a 09 09 09 20 20 | uation).parent.environment...... |
| fba0 | 20 28 63 64 72 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 20 0a 09 09 09 20 20 20 28 63 64 72 20 | .(cdr.continuation)........(cdr. |
| fbc0 | 69 6e 2d 6f 70 74 69 6f 6e 61 6c 73 29 0a 09 09 09 20 20 20 28 63 64 72 20 69 6e 2d 6b 65 79 77 | in-optionals).......(cdr.in-keyw |
| fbe0 | 6f 72 64 73 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 61 74 74 65 72 6e 2d 65 6c 74 | ords))).......(let.((pattern-elt |
| fc00 | 20 28 63 61 72 20 70 61 74 74 65 72 6e 29 29 29 0a 09 28 63 6f 6e 64 20 28 28 63 61 72 2d 65 71 | .(car.pattern)))..(cond.((car-eq |
| fc20 | 20 70 61 74 74 65 72 6e 2d 65 6c 74 20 3a 6f 70 74 69 6f 6e 61 6c 29 0a 09 20 20 20 20 20 20 20 | .pattern-elt.:optional)......... |
| fc40 | 28 69 66 20 28 6e 75 6c 6c 20 66 6f 72 6d 29 20 0a 09 09 20 20 20 28 76 61 6c 75 65 73 20 74 20 | (if.(null.form).......(values.t. |
| fc60 | 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 09 09 20 20 20 28 6d 75 6c 74 69 70 | parent.environment)......(multip |
| fc80 | 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 6f 63 65 73 73 65 64 20 70 61 72 20 65 6e 76 | le-value-bind.(processed.par.env |
| fca0 | 29 0a 09 09 20 20 20 20 20 20 20 28 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 2a 20 66 69 6c 65 | )..........(record-callers*.file |
| fcc0 | 6e 61 6d 65 20 66 6f 72 6d 20 28 63 64 72 20 70 61 74 74 65 72 6e 2d 65 6c 74 29 0a 09 09 09 09 | name.form.(cdr.pattern-elt)..... |
| fce0 | 09 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 0a 09 09 09 09 09 28 63 6f 6e 73 20 28 | .parent.environment......(cons.( |
| fd00 | 63 64 72 20 70 61 74 74 65 72 6e 29 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 0a 09 09 09 09 09 | cdr.pattern).continuation)...... |
| fd20 | 28 63 6f 6e 73 20 28 63 61 72 20 69 6e 2d 6f 70 74 69 6f 6e 61 6c 73 29 20 69 6e 2d 6f 70 74 69 | (cons.(car.in-optionals).in-opti |
| fd40 | 6f 6e 61 6c 73 29 0a 09 09 09 09 09 28 63 6f 6e 73 20 28 63 61 72 20 69 6e 2d 6b 65 79 77 6f 72 | onals)......(cons.(car.in-keywor |
| fd60 | 64 73 29 20 69 6e 2d 6b 65 79 77 6f 72 64 73 29 29 0a 09 09 20 20 20 20 20 28 69 66 20 70 72 6f | ds).in-keywords))........(if.pro |
| fd80 | 63 65 73 73 65 64 0a 09 09 09 20 28 76 61 6c 75 65 73 20 70 72 6f 63 65 73 73 65 64 20 70 61 72 | cessed.....(values.processed.par |
| fda0 | 20 65 6e 76 29 0a 09 09 09 20 28 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 2a 20 66 69 6c 65 6e | .env).....(record-callers*.filen |
| fdc0 | 61 6d 65 20 66 6f 72 6d 20 28 63 64 72 20 70 61 74 74 65 72 6e 29 0a 09 09 09 09 09 20 20 70 61 | ame.form.(cdr.pattern)........pa |
| fde0 | 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 0a 09 09 | rent.environment.continuation... |
| fe00 | 09 09 09 20 20 69 6e 2d 6f 70 74 69 6f 6e 61 6c 73 20 69 6e 2d 6b 65 79 77 6f 72 64 73 29 29 29 | .....in-optionals.in-keywords))) |
| fe20 | 29 29 0a 09 20 20 20 20 20 20 28 28 63 61 72 2d 65 71 20 70 61 74 74 65 72 6e 2d 65 6c 74 20 3a | ))........((car-eq.pattern-elt.: |
| fe40 | 73 74 61 72 29 0a 09 20 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 66 6f 72 6d 29 0a 09 09 | star).........(if.(null.form)... |
| fe60 | 20 20 20 28 76 61 6c 75 65 73 20 74 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 | ...(values.t.parent.environment) |
| fe80 | 0a 09 09 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 6f 63 | ......(multiple-value-bind.(proc |
| fea0 | 65 73 73 65 64 20 70 61 72 20 65 6e 76 29 0a 09 09 20 20 20 20 20 20 20 28 72 65 63 6f 72 64 2d | essed.par.env)..........(record- |
| fec0 | 63 61 6c 6c 65 72 73 2a 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 28 63 64 72 20 70 61 74 74 | callers*.filename.form.(cdr.patt |
| fee0 | 65 72 6e 2d 65 6c 74 29 0a 09 09 09 09 09 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 | ern-elt)......parent.environment |
| ff00 | 0a 09 09 09 09 09 28 63 6f 6e 73 20 70 61 74 74 65 72 6e 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e | ......(cons.pattern.continuation |
| ff20 | 29 0a 09 09 09 09 09 28 63 6f 6e 73 20 28 63 61 72 20 69 6e 2d 6f 70 74 69 6f 6e 61 6c 73 29 20 | )......(cons.(car.in-optionals). |
| ff40 | 69 6e 2d 6f 70 74 69 6f 6e 61 6c 73 29 0a 09 09 09 09 09 28 63 6f 6e 73 20 28 63 61 72 20 69 6e | in-optionals)......(cons.(car.in |
| ff60 | 2d 6b 65 79 77 6f 72 64 73 29 20 69 6e 2d 6b 65 79 77 6f 72 64 73 29 29 0a 09 09 20 20 20 20 20 | -keywords).in-keywords))........ |
| ff80 | 28 69 66 20 70 72 6f 63 65 73 73 65 64 0a 09 09 09 20 28 76 61 6c 75 65 73 20 70 72 6f 63 65 73 | (if.processed.....(values.proces |
| ffa0 | 73 65 64 20 70 61 72 20 65 6e 76 29 0a 09 09 09 20 28 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 | sed.par.env).....(record-callers |
| ffc0 | 2a 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 28 63 64 72 20 70 61 74 74 65 72 6e 29 0a 09 09 | *.filename.form.(cdr.pattern)... |
| ffe0 | 09 09 09 20 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 63 6f 6e 74 69 6e 75 61 | .....parent.environment.continua |
| 10000 | 74 69 6f 6e 0a 09 09 09 09 09 20 20 69 6e 2d 6f 70 74 69 6f 6e 61 6c 73 20 69 6e 2d 6b 65 79 77 | tion........in-optionals.in-keyw |
| 10020 | 6f 72 64 73 29 29 29 29 29 0a 09 20 20 20 20 20 20 28 28 63 61 72 2d 65 71 20 70 61 74 74 65 72 | ords)))))........((car-eq.patter |
| 10040 | 6e 2d 65 6c 74 20 3a 70 6c 75 73 29 0a 09 20 20 20 20 20 20 20 28 72 65 63 6f 72 64 2d 63 61 6c | n-elt.:plus).........(record-cal |
| 10060 | 6c 65 72 73 2a 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 28 63 64 72 20 70 61 74 74 65 72 6e | lers*.filename.form.(cdr.pattern |
| 10080 | 2d 65 6c 74 29 0a 09 09 09 09 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 0a 09 09 09 | -elt).....parent.environment.... |
| 100a0 | 09 28 63 6f 6e 73 20 28 63 6f 6e 73 20 28 63 6f 6e 73 20 3a 73 74 61 72 20 28 63 64 72 20 70 61 | .(cons.(cons.(cons.:star.(cdr.pa |
| 100c0 | 74 74 65 72 6e 2d 65 6c 74 29 29 0a 09 09 09 09 09 20 20 20 20 28 63 64 72 20 70 61 74 74 65 72 | ttern-elt))..........(cdr.patter |
| 100e0 | 6e 29 29 0a 09 09 09 09 20 20 20 20 20 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 0a 09 09 09 09 | n))...........continuation)..... |
| 10100 | 28 63 6f 6e 73 20 28 63 61 72 20 69 6e 2d 6f 70 74 69 6f 6e 61 6c 73 29 20 69 6e 2d 6f 70 74 69 | (cons.(car.in-optionals).in-opti |
| 10120 | 6f 6e 61 6c 73 29 0a 09 09 09 09 28 63 6f 6e 73 20 28 63 61 72 20 69 6e 2d 6b 65 79 77 6f 72 64 | onals).....(cons.(car.in-keyword |
| 10140 | 73 29 20 69 6e 2d 6b 65 79 77 6f 72 64 73 29 29 29 0a 09 20 20 20 20 20 20 28 28 63 61 72 2d 65 | s).in-keywords)))........((car-e |
| 10160 | 71 20 70 61 74 74 65 72 6e 2d 65 6c 74 20 3a 72 65 73 74 29 0a 09 20 20 20 20 20 20 20 28 72 65 | q.pattern-elt.:rest).........(re |
| 10180 | 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 70 61 74 74 65 | cord-callers.filename.form.patte |
| 101a0 | 72 6e 2d 65 6c 74 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 09 20 20 20 | rn-elt.parent.environment))..... |
| 101c0 | 20 20 20 28 28 65 71 20 70 61 74 74 65 72 6e 2d 65 6c 74 20 27 26 6f 70 74 69 6f 6e 61 6c 29 0a | ...((eq.pattern-elt.'&optional). |
| 101e0 | 09 20 20 20 20 20 20 20 28 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 2a 20 66 69 6c 65 6e 61 6d | ........(record-callers*.filenam |
| 10200 | 65 20 66 6f 72 6d 20 28 63 64 72 20 70 61 74 74 65 72 6e 29 0a 09 09 09 09 70 61 72 65 6e 74 20 | e.form.(cdr.pattern).....parent. |
| 10220 | 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 0a 09 09 09 09 28 63 6f | environment.continuation.....(co |
| 10240 | 6e 73 20 74 20 69 6e 2d 6f 70 74 69 6f 6e 61 6c 73 29 0a 09 09 09 09 28 63 6f 6e 73 20 28 63 61 | ns.t.in-optionals).....(cons.(ca |
| 10260 | 72 20 69 6e 2d 6b 65 79 77 6f 72 64 73 29 20 69 6e 2d 6b 65 79 77 6f 72 64 73 29 29 29 0a 09 20 | r.in-keywords).in-keywords)))... |
| 10280 | 20 20 20 20 20 28 28 65 71 20 70 61 74 74 65 72 6e 2d 65 6c 74 20 27 26 72 65 73 74 29 0a 09 20 | .....((eq.pattern-elt.'&rest)... |
| 102a0 | 20 20 20 20 20 20 28 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 20 66 69 6c 65 6e 61 6d 65 20 66 | ......(record-callers.filename.f |
| 102c0 | 6f 72 6d 20 28 73 65 63 6f 6e 64 20 70 61 74 74 65 72 6e 29 0a 09 09 09 20 20 20 20 20 20 20 70 | orm.(second.pattern)...........p |
| 102e0 | 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 09 20 20 20 20 20 20 28 28 65 71 20 | arent.environment))........((eq. |
| 10300 | 70 61 74 74 65 72 6e 2d 65 6c 74 20 27 26 6b 65 79 29 0a 09 20 20 20 20 20 20 20 28 72 65 63 6f | pattern-elt.'&key).........(reco |
| 10320 | 72 64 2d 63 61 6c 6c 65 72 73 2a 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 6d 20 28 63 64 72 20 70 | rd-callers*.filename.form.(cdr.p |
| 10340 | 61 74 74 65 72 6e 29 0a 09 09 09 09 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 63 | attern).....parent.environment.c |
| 10360 | 6f 6e 74 69 6e 75 61 74 69 6f 6e 0a 09 09 09 09 28 63 6f 6e 73 20 28 63 61 72 20 69 6e 2d 6f 70 | ontinuation.....(cons.(car.in-op |
| 10380 | 74 69 6f 6e 61 6c 73 29 20 69 6e 2d 6f 70 74 69 6f 6e 61 6c 73 29 0a 09 09 09 09 28 63 6f 6e 73 | tionals).in-optionals).....(cons |
| 103a0 | 20 74 20 69 6e 2d 6b 65 79 77 6f 72 64 73 29 29 29 0a 09 20 20 20 20 20 20 28 28 6e 75 6c 6c 20 | .t.in-keywords)))........((null. |
| 103c0 | 66 6f 72 6d 29 0a 09 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 63 61 72 20 69 6e 2d | form).........(when.(or.(car.in- |
| 103e0 | 6b 65 79 77 6f 72 64 73 29 20 28 63 61 72 20 69 6e 2d 6f 70 74 69 6f 6e 61 6c 73 29 29 0a 09 09 | keywords).(car.in-optionals))... |
| 10400 | 20 28 76 61 6c 75 65 73 20 74 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 | .(values.t.parent.environment))) |
| 10420 | 0a 09 20 20 20 20 20 20 28 28 63 6f 6e 73 70 20 66 6f 72 6d 29 0a 09 20 20 20 20 20 20 20 28 6d | ........((consp.form).........(m |
| 10440 | 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 6f 63 65 73 73 65 64 20 70 61 | ultiple-value-bind.(processed.pa |
| 10460 | 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 09 09 20 20 20 28 72 65 63 6f 72 64 2d 63 | rent.environment)......(record-c |
| 10480 | 61 6c 6c 65 72 73 20 66 69 6c 65 6e 61 6d 65 20 28 69 66 20 28 63 61 72 20 69 6e 2d 6b 65 79 77 | allers.filename.(if.(car.in-keyw |
| 104a0 | 6f 72 64 73 29 0a 09 09 09 09 09 09 28 63 61 64 72 20 66 6f 72 6d 29 0a 09 09 09 09 09 09 28 63 | ords).......(cadr.form).......(c |
| 104c0 | 61 72 20 66 6f 72 6d 29 29 0a 09 09 09 09 20 20 20 70 61 74 74 65 72 6e 2d 65 6c 74 0a 09 09 09 | ar.form))........pattern-elt.... |
| 104e0 | 09 20 20 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 09 09 20 28 63 6f 6e 64 | ....parent.environment)....(cond |
| 10500 | 20 28 70 72 6f 63 65 73 73 65 64 0a 09 09 09 28 72 65 63 6f 72 64 2d 63 61 6c 6c 65 72 73 2a 20 | .(processed....(record-callers*. |
| 10520 | 66 69 6c 65 6e 61 6d 65 20 28 69 66 20 28 63 61 72 20 69 6e 2d 6b 65 79 77 6f 72 64 73 29 0a 09 | filename.(if.(car.in-keywords).. |
| 10540 | 09 09 09 09 09 20 20 20 20 20 20 28 63 64 64 72 20 66 6f 72 6d 29 0a 09 09 09 09 09 09 20 20 20 | ...........(cddr.form).......... |
| 10560 | 20 20 20 28 63 64 72 20 66 6f 72 6d 29 29 0a 09 09 09 09 09 20 28 63 64 72 20 70 61 74 74 65 72 | ...(cdr.form)).......(cdr.patter |
| 10580 | 6e 29 0a 09 09 09 09 09 20 70 61 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 0a 09 09 09 09 | n).......parent.environment..... |
| 105a0 | 09 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 0a 09 09 09 09 09 20 69 6e 2d 6f 70 74 69 6f 6e 61 6c | ..continuation.......in-optional |
| 105c0 | 73 20 69 6e 2d 6b 65 79 77 6f 72 64 73 29 29 0a 09 09 20 20 20 20 20 20 20 28 28 6f 72 20 28 63 | s.in-keywords))..........((or.(c |
| 105e0 | 61 72 20 69 6e 2d 6b 65 79 77 6f 72 64 73 29 0a 09 09 09 20 20 20 20 28 63 61 72 20 69 6e 2d 6f | ar.in-keywords)........(car.in-o |
| 10600 | 70 74 69 6f 6e 61 6c 73 29 29 0a 09 09 09 28 76 61 6c 75 65 73 20 74 20 70 61 72 65 6e 74 20 65 | ptionals))....(values.t.parent.e |
| 10620 | 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a | nvironment)))))))))....;;;.***** |
| 10640 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 | ***************************.;;;. |
| 10660 | 4d 69 73 63 20 55 74 69 6c 69 74 69 65 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | Misc.Utilities.***************** |
| 10680 | 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .;;;.*************************** |
| 106a0 | 2a 2a 2a 2a 2a 0a 28 64 65 66 76 61 72 20 2a 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 2a 0a | *****.(defvar.*types-to-ignore*. |
| 106c0 | 20 20 27 28 3a 6c 69 73 70 09 09 09 3b 20 43 4c 74 4c 20 31 73 74 20 45 64 69 74 69 6f 6e 0a 20 | ..'(:lisp...;.CLtL.1st.Edition.. |
| 106e0 | 20 20 20 3a 6c 69 73 70 32 09 09 09 3b 20 43 4c 74 4c 20 32 6e 64 20 45 64 69 74 69 6f 6e 20 61 | ...:lisp2...;.CLtL.2nd.Edition.a |
| 10700 | 64 64 69 74 69 6f 6e 61 6c 20 70 61 74 74 65 72 6e 73 0a 20 20 20 20 29 0a 20 20 22 44 65 66 61 | dditional.patterns.....)..."Defa |
| 10720 | 75 6c 74 20 73 65 74 20 6f 66 20 63 61 6c 6c 65 72 20 74 79 70 65 73 20 28 61 73 20 73 70 65 63 | ult.set.of.caller.types.(as.spec |
| 10740 | 69 66 69 65 64 20 69 6e 20 74 68 65 20 70 61 74 74 65 72 6e 73 29 20 74 6f 20 69 67 6e 6f 72 65 | ified.in.the.patterns).to.ignore |
| 10760 | 0a 20 20 20 69 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 69 6e 67 20 66 75 6e | ....in.the.database.handling.fun |
| 10780 | 63 74 69 6f 6e 73 2e 20 3a 6c 69 73 70 20 69 73 20 43 4c 74 4c 20 31 73 74 20 65 64 69 74 69 6f | ctions..:lisp.is.CLtL.1st.editio |
| 107a0 | 6e 2c 0a 20 20 20 3a 6c 69 73 70 32 20 69 73 20 61 64 64 69 74 69 6f 6e 61 6c 20 70 61 74 74 65 | n,....:lisp2.is.additional.patte |
| 107c0 | 72 6e 73 20 66 72 6f 6d 20 43 4c 74 4c 20 32 6e 64 20 65 64 69 74 69 6f 6e 2e 22 29 0a 0a 28 64 | rns.from.CLtL.2nd.edition.")..(d |
| 107e0 | 65 66 75 6e 20 64 69 73 70 6c 61 79 2d 64 61 74 61 62 61 73 65 20 28 26 6f 70 74 69 6f 6e 61 6c | efun.display-database.(&optional |
| 10800 | 20 28 64 61 74 61 62 61 73 65 20 3a 63 61 6c 6c 65 72 73 29 20 0a 09 09 09 09 20 20 20 28 74 79 | .(database.:callers).........(ty |
| 10820 | 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 2a 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 2a 29 | pes-to-ignore.*types-to-ignore*) |
| 10840 | 29 0a 20 20 22 50 72 69 6e 74 73 20 6f 75 74 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 65 61 63 68 | )..."Prints.out.the.name.of.each |
| 10860 | 20 73 79 6d 62 6f 6c 20 61 6e 64 20 61 6c 6c 20 69 74 73 20 63 61 6c 6c 65 72 73 2e 20 53 70 65 | .symbol.and.all.its.callers..Spe |
| 10880 | 63 69 66 79 20 64 61 74 61 62 61 73 65 0a 20 20 20 3a 63 61 6c 6c 65 72 73 20 28 74 68 65 20 64 | cify.database....:callers.(the.d |
| 108a0 | 65 66 61 75 6c 74 29 20 74 6f 20 67 65 74 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 20 72 65 66 | efault).to.get.function.call.ref |
| 108c0 | 65 72 65 6e 63 65 73 2c 20 3a 66 69 6c 6c 20 74 6f 20 74 68 65 20 67 65 74 0a 20 20 20 66 69 6c | erences,.:fill.to.the.get....fil |
| 108e0 | 65 73 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 63 61 6c 6c 65 64 | es.in.which.the.symbol.is.called |
| 10900 | 2c 20 3a 72 65 61 64 65 72 73 20 74 6f 20 67 65 74 20 76 61 72 69 61 62 6c 65 20 72 65 66 65 72 | ,.:readers.to.get.variable.refer |
| 10920 | 65 6e 63 65 73 2c 0a 20 20 20 61 6e 64 20 3a 73 65 74 74 65 72 73 20 74 6f 20 67 65 74 20 76 61 | ences,....and.:setters.to.get.va |
| 10940 | 72 69 61 62 6c 65 20 62 69 6e 64 69 6e 67 20 61 6e 64 20 61 73 73 69 67 6e 6d 65 6e 74 73 2e 20 | riable.binding.and.assignments.. |
| 10960 | 49 67 6e 6f 72 65 73 20 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 6f 66 20 74 79 70 65 73 20 6c 69 | Ignores.functions....of.types.li |
| 10980 | 73 74 65 64 20 69 6e 20 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 2e 22 0a 20 20 28 6d 61 70 | sted.in.types-to-ignore."...(map |
| 109a0 | 68 61 73 68 20 23 27 28 6c 61 6d 62 64 61 20 28 6e 61 6d 65 20 63 61 6c 6c 65 72 73 29 0a 09 20 | hash.#'(lambda.(name.callers)... |
| 109c0 | 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 28 6d 65 6d 62 65 72 20 28 70 61 74 74 65 | ......(unless.(or.(member.(patte |
| 109e0 | 72 6e 2d 63 61 6c 6c 65 72 2d 74 79 70 65 20 6e 61 6d 65 29 0a 09 09 09 09 20 20 20 74 79 70 65 | rn-caller-type.name)........type |
| 10a00 | 73 2d 74 6f 2d 69 67 6e 6f 72 65 29 0a 09 09 09 20 20 20 3b 3b 20 57 68 65 6e 20 77 65 27 72 65 | s-to-ignore).......;;.When.we're |
| 10a20 | 20 64 6f 69 6e 67 20 66 61 6e 63 79 20 70 61 63 6b 61 67 65 20 63 72 61 70 2c 0a 09 09 09 20 20 | .doing.fancy.package.crap,...... |
| 10a40 | 20 3b 3b 20 61 6c 6c 6f 77 20 75 73 20 74 6f 20 69 67 6e 6f 72 65 20 73 79 6d 62 6f 6c 73 20 62 | .;;.allow.us.to.ignore.symbols.b |
| 10a60 | 61 73 65 64 20 6f 6e 20 74 68 65 69 72 0a 09 09 09 20 20 20 3b 3b 20 70 61 63 6b 61 67 65 73 2e | ased.on.their.......;;.packages. |
| 10a80 | 0a 09 09 09 20 20 20 28 77 68 65 6e 20 2a 68 61 6e 64 6c 65 2d 70 61 63 6b 61 67 65 2d 66 6f 72 | .......(when.*handle-package-for |
| 10aa0 | 6d 73 2a 0a 09 09 09 20 20 20 20 20 28 6d 65 6d 62 65 72 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b | ms*.........(member.(symbol-pack |
| 10ac0 | 61 67 65 20 6e 61 6d 65 29 0a 09 09 09 09 20 20 20 20 20 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f | age.name)..........types-to-igno |
| 10ae0 | 72 65 0a 09 09 09 09 20 20 20 20 20 3a 6b 65 79 20 23 27 66 69 6e 64 2d 70 61 63 6b 61 67 65 29 | re..........:key.#'find-package) |
| 10b00 | 29 29 0a 09 09 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 7e 53 20 69 73 20 72 65 66 65 72 65 6e | ))....(format.t."~&~S.is.referen |
| 10b20 | 63 65 64 20 62 79 7e 7b 20 7e 53 7e 7d 2e 22 0a 09 09 09 20 6e 61 6d 65 20 63 61 6c 6c 65 72 73 | ced.by~{.~S~}.".....name.callers |
| 10b40 | 29 29 29 0a 09 20 20 20 28 65 63 61 73 65 20 64 61 74 61 62 61 73 65 0a 09 20 20 20 20 20 28 3a | ))).....(ecase.database.......(: |
| 10b60 | 66 69 6c 65 20 20 20 20 2a 66 69 6c 65 2d 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 | file....*file-callers-database*) |
| 10b80 | 0a 09 20 20 20 20 20 28 3a 63 61 6c 6c 65 72 73 20 2a 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 | .......(:callers.*callers-databa |
| 10ba0 | 73 65 2a 29 0a 09 20 20 20 20 20 28 3a 72 65 61 64 65 72 73 20 2a 72 65 61 64 65 72 73 2d 64 61 | se*).......(:readers.*readers-da |
| 10bc0 | 74 61 62 61 73 65 2a 29 0a 09 20 20 20 20 20 28 3a 73 65 74 74 65 72 73 20 2a 73 65 74 74 65 72 | tabase*).......(:setters.*setter |
| 10be0 | 73 2d 64 61 74 61 62 61 73 65 2a 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 77 72 69 74 65 2d 63 61 | s-database*))))..(defun.write-ca |
| 10c00 | 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2d 74 6f 2d 66 69 6c 65 20 28 66 69 6c 65 6e 61 6d 65 | llers-database-to-file.(filename |
| 10c20 | 29 0a 20 20 22 53 61 76 65 73 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 63 | )..."Saves.the.contents.of.the.c |
| 10c40 | 75 72 72 65 6e 74 20 63 61 6c 6c 65 72 73 20 64 61 74 61 62 61 73 65 20 74 6f 20 61 20 66 69 6c | urrent.callers.database.to.a.fil |
| 10c60 | 65 2e 20 54 68 69 73 0a 20 20 20 66 69 6c 65 20 63 61 6e 20 62 65 20 6c 6f 61 64 65 64 20 74 6f | e..This....file.can.be.loaded.to |
| 10c80 | 20 72 65 73 74 6f 72 65 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 63 6f 6e 74 65 6e 74 73 20 6f | .restore.the.previous.contents.o |
| 10ca0 | 66 20 74 68 65 0a 20 20 20 64 61 74 61 62 61 73 65 2e 20 28 46 6f 72 20 6c 61 72 67 65 20 73 79 | f.the....database..(For.large.sy |
| 10cc0 | 73 74 65 6d 73 20 69 74 20 63 61 6e 20 74 61 6b 65 20 61 20 6c 6f 6e 67 20 74 69 6d 65 20 74 6f | stems.it.can.take.a.long.time.to |
| 10ce0 | 20 63 72 75 6e 63 68 0a 20 20 20 74 68 72 6f 75 67 68 20 74 68 65 20 63 6f 64 65 2c 20 73 6f 20 | .crunch....through.the.code,.so. |
| 10d00 | 74 68 69 73 20 63 61 6e 20 73 61 76 65 20 73 6f 6d 65 20 74 69 6d 65 2e 29 22 0a 20 20 28 77 69 | this.can.save.some.time.)"...(wi |
| 10d20 | 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 73 74 72 65 61 6d 20 66 69 6c 65 6e 61 6d 65 20 3a 64 | th-open-file.(stream.filename.:d |
| 10d40 | 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 | irection.:output).....(format.st |
| 10d60 | 72 65 61 6d 20 22 7e 26 28 63 6c 65 61 72 2d 74 61 62 6c 65 73 29 22 29 0a 20 20 20 20 28 6d 61 | ream."~&(clear-tables)").....(ma |
| 10d80 | 70 68 61 73 68 20 23 27 28 6c 61 6d 62 64 61 20 28 78 20 79 29 20 0a 09 09 20 28 66 6f 72 6d 61 | phash.#'(lambda.(x.y).....(forma |
| 10da0 | 74 20 73 74 72 65 61 6d 20 22 7e 26 28 73 65 74 66 20 28 73 6f 75 72 63 65 2d 66 69 6c 65 20 27 | t.stream."~&(setf.(source-file.' |
| 10dc0 | 7e 53 29 20 27 7e 53 29 22 0a 09 09 09 20 78 20 79 29 29 0a 09 20 20 20 20 20 2a 73 6f 75 72 63 | ~S).'~S)".....x.y)).......*sourc |
| 10de0 | 65 2d 66 69 6c 65 2a 29 0a 20 20 20 20 28 6d 61 70 68 61 73 68 20 23 27 28 6c 61 6d 62 64 61 20 | e-file*).....(maphash.#'(lambda. |
| 10e00 | 28 78 20 79 29 20 0a 09 09 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 26 28 73 65 74 | (x.y).....(format.stream."~&(set |
| 10e20 | 66 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 27 7e 53 20 3a 66 69 6c 65 29 20 27 7e 53 29 22 | f.(callers-list.'~S.:file).'~S)" |
| 10e40 | 0a 09 09 09 20 78 20 79 29 29 0a 09 20 20 20 20 20 2a 66 69 6c 65 2d 63 61 6c 6c 65 72 73 2d 64 | .....x.y)).......*file-callers-d |
| 10e60 | 61 74 61 62 61 73 65 2a 29 0a 20 20 20 20 28 6d 61 70 68 61 73 68 20 23 27 28 6c 61 6d 62 64 61 | atabase*).....(maphash.#'(lambda |
| 10e80 | 20 28 78 20 79 29 20 0a 09 09 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 26 28 73 65 | .(x.y).....(format.stream."~&(se |
| 10ea0 | 74 66 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 27 7e 53 20 3a 63 61 6c 6c 65 72 73 29 20 27 | tf.(callers-list.'~S.:callers).' |
| 10ec0 | 7e 53 29 22 0a 09 09 09 20 78 20 79 29 29 0a 09 20 20 20 20 20 2a 63 61 6c 6c 65 72 73 2d 64 61 | ~S)".....x.y)).......*callers-da |
| 10ee0 | 74 61 62 61 73 65 2a 29 0a 20 20 20 20 28 6d 61 70 68 61 73 68 20 23 27 28 6c 61 6d 62 64 61 20 | tabase*).....(maphash.#'(lambda. |
| 10f00 | 28 78 20 79 29 20 0a 09 09 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 26 28 73 65 74 | (x.y).....(format.stream."~&(set |
| 10f20 | 66 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 27 7e 53 20 3a 63 61 6c 6c 65 65 73 29 20 27 7e | f.(callers-list.'~S.:callees).'~ |
| 10f40 | 53 29 22 0a 09 09 09 20 78 20 79 29 29 0a 09 20 20 20 20 20 2a 63 61 6c 6c 65 65 73 2d 64 61 74 | S)".....x.y)).......*callees-dat |
| 10f60 | 61 62 61 73 65 2a 29 0a 20 20 20 20 28 6d 61 70 68 61 73 68 20 23 27 28 6c 61 6d 62 64 61 20 28 | abase*).....(maphash.#'(lambda.( |
| 10f80 | 78 20 79 29 20 0a 09 09 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 26 28 73 65 74 66 | x.y).....(format.stream."~&(setf |
| 10fa0 | 20 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 27 7e 53 20 3a 72 65 61 64 65 72 73 29 20 27 7e 53 | .(callers-list.'~S.:readers).'~S |
| 10fc0 | 29 22 0a 09 09 09 20 78 20 79 29 29 0a 09 20 20 20 20 20 2a 72 65 61 64 65 72 73 2d 64 61 74 61 | )".....x.y)).......*readers-data |
| 10fe0 | 62 61 73 65 2a 29 0a 20 20 20 20 28 6d 61 70 68 61 73 68 20 23 27 28 6c 61 6d 62 64 61 20 28 78 | base*).....(maphash.#'(lambda.(x |
| 11000 | 20 79 29 20 0a 09 09 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 26 28 73 65 74 66 20 | .y).....(format.stream."~&(setf. |
| 11020 | 28 63 61 6c 6c 65 72 73 2d 6c 69 73 74 20 27 7e 53 20 3a 73 65 74 74 65 72 73 29 20 27 7e 53 29 | (callers-list.'~S.:setters).'~S) |
| 11040 | 22 0a 09 09 09 20 78 20 79 29 29 0a 09 20 20 20 20 20 2a 73 65 74 74 65 72 73 2d 64 61 74 61 62 | ".....x.y)).......*setters-datab |
| 11060 | 61 73 65 2a 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ase*)))....;;;.***************** |
| 11080 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 50 72 69 6e 74 20 43 61 6c 6c 65 72 | ***************.;;;.Print.Caller |
| 110a0 | 20 54 72 65 65 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a | .Trees.*************.;;;.******* |
| 110c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 54 68 | *************************.;;;.Th |
| 110e0 | 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 66 75 6c 20 66 | e.following.function.is.useful.f |
| 11100 | 6f 72 20 72 65 76 65 72 73 69 6e 67 20 61 20 63 61 6c 6c 65 72 20 74 61 62 6c 65 20 69 6e 74 6f | or.reversing.a.caller.table.into |
| 11120 | 0a 3b 3b 3b 20 61 20 63 61 6c 6c 65 65 20 74 61 62 6c 65 2e 20 50 6f 73 73 69 62 6c 79 20 6c 61 | .;;;.a.callee.table..Possibly.la |
| 11140 | 74 65 72 20 77 65 27 6c 6c 20 65 78 74 65 6e 64 20 78 72 65 66 20 74 6f 20 63 72 65 61 74 65 20 | ter.we'll.extend.xref.to.create. |
| 11160 | 74 77 6f 20 0a 3b 3b 3b 20 73 75 63 68 20 64 61 74 61 62 61 73 65 20 68 61 73 68 20 74 61 62 6c | two..;;;.such.database.hash.tabl |
| 11180 | 65 73 2e 20 4e 65 65 64 73 20 74 6f 20 69 6e 63 6c 75 64 65 20 76 61 72 73 20 61 73 20 77 65 6c | es..Needs.to.include.vars.as.wel |
| 111a0 | 6c 2e 0a 28 64 65 66 75 6e 20 69 6e 76 65 72 74 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 74 61 62 | l..(defun.invert-hash-table.(tab |
| 111c0 | 6c 65 20 26 6f 70 74 69 6f 6e 61 6c 20 28 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 2a 74 | le.&optional.(types-to-ignore.*t |
| 111e0 | 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 2a 29 29 0a 20 20 22 4d 61 6b 65 73 20 61 20 63 6f 70 | ypes-to-ignore*))..."Makes.a.cop |
| 11200 | 79 20 6f 66 20 74 68 65 20 68 61 73 68 20 74 61 62 6c 65 20 69 6e 20 77 68 69 63 68 20 28 6e 61 | y.of.the.hash.table.in.which.(na |
| 11220 | 6d 65 20 76 61 6c 75 65 2a 29 20 70 61 69 72 73 0a 20 20 20 61 72 65 20 69 6e 76 65 72 74 65 64 | me.value*).pairs....are.inverted |
| 11240 | 20 74 6f 20 28 76 61 6c 75 65 20 6e 61 6d 65 2a 29 20 70 61 69 72 73 2e 22 0a 20 20 28 6c 65 74 | .to.(value.name*).pairs."...(let |
| 11260 | 20 28 28 74 61 72 67 65 74 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 | .((target.(make-hash-table.:test |
| 11280 | 20 23 27 65 71 75 61 6c 29 29 29 0a 20 20 20 20 28 6d 61 70 68 61 73 68 20 23 27 28 6c 61 6d 62 | .#'equal))).....(maphash.#'(lamb |
| 112a0 | 64 61 20 28 6b 65 79 20 76 61 6c 75 65 73 29 0a 09 09 20 28 64 6f 6c 69 73 74 20 28 76 61 6c 75 | da.(key.values)....(dolist.(valu |
| 112c0 | 65 20 76 61 6c 75 65 73 29 0a 09 09 20 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 28 | e.values)......(unless.(member.( |
| 112e0 | 70 61 74 74 65 72 6e 2d 63 61 6c 6c 65 72 2d 74 79 70 65 20 6b 65 79 29 20 0a 09 09 09 09 20 20 | pattern-caller-type.key)........ |
| 11300 | 20 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 29 0a 09 09 20 20 20 20 20 28 70 75 73 68 6e 65 | .types-to-ignore)........(pushne |
| 11320 | 77 20 6b 65 79 20 28 67 65 74 68 61 73 68 20 76 61 6c 75 65 20 74 61 72 67 65 74 29 29 29 29 29 | w.key.(gethash.value.target))))) |
| 11340 | 0a 09 20 20 20 20 20 74 61 62 6c 65 29 0a 20 20 20 20 74 61 72 67 65 74 29 29 0a 0a 3b 3b 3b 20 | .......table).....target))..;;;. |
| 11360 | 52 65 73 6f 6c 76 65 20 66 69 6c 65 20 72 65 66 65 72 65 6e 63 65 73 20 66 6f 72 20 61 75 74 6f | Resolve.file.references.for.auto |
| 11380 | 6d 61 74 69 63 20 63 72 65 61 74 69 6f 6e 20 6f 66 20 61 20 64 65 66 73 79 73 74 65 6d 20 66 69 | matic.creation.of.a.defsystem.fi |
| 113a0 | 6c 65 2e 0a 28 64 65 66 75 6e 20 64 65 74 65 72 6d 69 6e 65 2d 66 69 6c 65 2d 64 65 70 65 6e 64 | le..(defun.determine-file-depend |
| 113c0 | 65 6e 63 69 65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 64 61 74 61 62 61 73 65 20 2a 63 61 6c | encies.(&optional.(database.*cal |
| 113e0 | 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 29 0a 20 20 22 4d 61 6b 65 73 20 61 20 68 61 73 68 | lers-database*))..."Makes.a.hash |
| 11400 | 20 74 61 62 6c 65 20 6f 66 20 66 69 6c 65 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 66 6f 72 20 | .table.of.file.dependencies.for. |
| 11420 | 74 68 65 20 72 65 66 65 72 65 6e 63 65 73 20 6c 69 73 74 65 64 20 69 6e 0a 20 20 20 44 41 54 41 | the.references.listed.in....DATA |
| 11440 | 42 41 53 45 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 62 65 20 75 73 65 66 75 | BASE..This.function.may.be.usefu |
| 11460 | 6c 20 66 6f 72 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 72 65 73 6f 6c 76 69 6e 67 0a 20 20 | l.for.automatically.resolving... |
| 11480 | 20 66 69 6c 65 20 72 65 66 65 72 65 6e 63 65 73 20 66 6f 72 20 61 75 74 6f 6d 61 74 69 63 20 63 | .file.references.for.automatic.c |
| 114a0 | 72 65 61 74 69 6f 6e 20 6f 66 20 61 20 73 79 73 74 65 6d 20 64 65 66 69 6e 69 74 69 6f 6e 20 28 | reation.of.a.system.definition.( |
| 114c0 | 64 65 66 73 79 73 74 65 6d 29 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 72 65 66 2d 68 | defsystem)."...(let.((file-ref-h |
| 114e0 | 74 20 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 | t..(make-hash-table.:test.#'equa |
| 11500 | 6c 29 29 29 0a 20 20 20 20 28 6d 61 70 68 61 73 68 20 23 27 28 6c 61 6d 62 64 61 20 28 6b 65 79 | l))).....(maphash.#'(lambda.(key |
| 11520 | 20 76 61 6c 75 65 73 29 0a 09 09 20 28 6c 65 74 20 28 28 6b 65 79 2d 66 69 6c 65 20 28 73 6f 75 | .values)....(let.((key-file.(sou |
| 11540 | 72 63 65 2d 66 69 6c 65 20 6b 65 79 29 29 29 0a 09 09 20 20 20 28 77 68 65 6e 20 6b 65 79 0a 09 | rce-file.key)))......(when.key.. |
| 11560 | 09 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 76 61 6c 75 65 20 76 61 6c 75 65 73 29 0a 09 09 20 | ......(dolist.(value.values).... |
| 11580 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 2d 66 69 6c 65 20 28 73 6f 75 72 63 65 2d | ......(let.((value-file.(source- |
| 115a0 | 66 69 6c 65 20 76 61 6c 75 65 29 29 29 0a 09 09 09 20 28 77 68 65 6e 20 76 61 6c 75 65 2d 66 69 | file.value))).....(when.value-fi |
| 115c0 | 6c 65 0a 09 09 09 20 20 20 28 64 6f 6c 69 73 74 20 28 73 20 6b 65 79 2d 66 69 6c 65 29 0a 09 09 | le.......(dolist.(s.key-file)... |
| 115e0 | 09 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 64 20 76 61 6c 75 65 2d 66 69 6c 65 29 0a 09 09 09 | ......(dolist.(d.value-file).... |
| 11600 | 20 20 20 20 20 20 20 28 70 75 73 68 6e 65 77 20 64 20 28 67 65 74 68 61 73 68 20 73 20 66 69 6c | .......(pushnew.d.(gethash.s.fil |
| 11620 | 65 2d 72 65 66 2d 68 74 29 29 29 29 29 29 29 29 29 29 0a 09 20 20 20 20 20 64 61 74 61 62 61 73 | e-ref-ht)))))))))).......databas |
| 11640 | 65 29 0a 20 20 20 20 66 69 6c 65 2d 72 65 66 2d 68 74 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 | e).....file-ref-ht))..(defun.pri |
| 11660 | 6e 74 2d 66 69 6c 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 | nt-file-dependencies.(&optional. |
| 11680 | 28 64 61 74 61 62 61 73 65 20 2a 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 29 0a 20 | (database.*callers-database*)).. |
| 116a0 | 20 22 50 72 69 6e 74 73 20 61 20 6c 69 73 74 20 6f 66 20 66 69 6c 65 20 64 65 70 65 6e 64 65 6e | ."Prints.a.list.of.file.dependen |
| 116c0 | 63 69 65 73 20 66 6f 72 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 73 20 6c 69 73 74 65 64 20 69 | cies.for.the.references.listed.i |
| 116e0 | 6e 20 44 41 54 41 42 41 53 45 2e 0a 20 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 | n.DATABASE.....This.function.may |
| 11700 | 20 62 65 20 75 73 65 66 75 6c 20 66 6f 72 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 6f 6d | .be.useful.for.automatically.com |
| 11720 | 70 75 74 69 6e 67 20 66 69 6c 65 20 6c 6f 61 64 69 6e 67 0a 20 20 20 63 6f 6e 73 74 72 61 69 6e | puting.file.loading....constrain |
| 11740 | 74 73 20 66 6f 72 20 61 20 73 79 73 74 65 6d 20 64 65 66 69 6e 69 74 69 6f 6e 20 74 6f 6f 6c 2e | ts.for.a.system.definition.tool. |
| 11760 | 22 0a 20 20 28 6d 61 70 68 61 73 68 20 23 27 28 6c 61 6d 62 64 61 20 28 6b 65 79 20 76 61 6c 75 | "...(maphash.#'(lambda.(key.valu |
| 11780 | 65 29 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 7e 53 20 2d 2d 3e 20 7e 53 22 20 6b 65 79 20 76 | e).(format.t."~&~S.-->.~S".key.v |
| 117a0 | 61 6c 75 65 29 29 0a 09 20 20 20 28 64 65 74 65 72 6d 69 6e 65 2d 66 69 6c 65 2d 64 65 70 65 6e | alue)).....(determine-file-depen |
| 117c0 | 64 65 6e 63 69 65 73 20 64 61 74 61 62 61 73 65 29 29 29 0a 0a 3b 3b 3b 20 54 68 65 20 66 6f 6c | dencies.database)))..;;;.The.fol |
| 117e0 | 6c 6f 77 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 20 64 65 6d 6f 6e 73 74 72 61 74 65 20 61 20 70 | lowing.functions.demonstrate.a.p |
| 11800 | 6f 73 73 69 62 6c 65 20 77 61 79 20 74 6f 20 69 6e 74 65 72 66 61 63 65 0a 3b 3b 3b 20 78 72 65 | ossible.way.to.interface.;;;.xre |
| 11820 | 66 20 74 6f 20 61 20 67 72 61 70 68 69 63 61 6c 20 62 72 6f 77 73 65 72 20 73 75 63 68 20 61 73 | f.to.a.graphical.browser.such.as |
| 11840 | 20 70 73 67 72 61 70 68 20 74 6f 20 6d 69 6d 69 63 20 74 68 65 20 63 61 70 61 62 69 6c 69 74 69 | .psgraph.to.mimic.the.capabiliti |
| 11860 | 65 73 0a 3b 3b 3b 20 6f 66 20 4d 61 73 74 65 72 73 63 6f 70 65 27 73 20 67 72 61 70 68 69 63 61 | es.;;;.of.Masterscope's.graphica |
| 11880 | 6c 20 62 72 6f 77 73 65 72 2e 20 0a 0a 28 64 65 66 76 61 72 20 2a 6c 61 73 74 2d 63 61 6c 6c 65 | l.browser....(defvar.*last-calle |
| 118a0 | 72 2d 74 72 65 65 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 2a 64 65 66 61 75 6c 74 2d 67 | r-tree*.nil)..(defvar.*default-g |
| 118c0 | 72 61 70 68 69 6e 67 2d 6d 6f 64 65 2a 20 3a 63 61 6c 6c 2d 67 72 61 70 68 0a 20 20 22 53 70 65 | raphing-mode*.:call-graph..."Spe |
| 118e0 | 63 69 66 69 65 73 20 77 68 65 74 68 65 72 20 77 65 20 67 72 61 70 68 20 75 70 20 6f 72 20 64 6f | cifies.whether.we.graph.up.or.do |
| 11900 | 77 6e 2e 20 49 66 20 3a 63 61 6c 6c 2d 67 72 61 70 68 2c 20 74 68 65 20 63 68 69 6c 64 72 65 6e | wn..If.:call-graph,.the.children |
| 11920 | 0a 20 20 20 6f 66 20 61 20 6e 6f 64 65 20 61 72 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 | ....of.a.node.are.the.functions. |
| 11940 | 69 74 20 63 61 6c 6c 73 2e 20 49 66 20 3a 63 61 6c 6c 65 72 2d 67 72 61 70 68 2c 20 74 68 65 20 | it.calls..If.:caller-graph,.the. |
| 11960 | 63 68 69 6c 64 72 65 6e 0a 20 20 20 6f 66 20 61 20 6e 6f 64 65 20 61 72 65 20 74 68 65 20 66 75 | children....of.a.node.are.the.fu |
| 11980 | 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 63 61 6c 6c 20 69 74 2e 22 29 20 0a 0a 28 64 65 66 75 6e | nctions.that.call.it.")...(defun |
| 119a0 | 20 67 61 74 68 65 72 2d 74 72 65 65 20 28 70 61 72 65 6e 74 73 20 26 6f 70 74 69 6f 6e 61 6c 20 | .gather-tree.(parents.&optional. |
| 119c0 | 61 6c 72 65 61 64 79 2d 73 65 65 6e 20 0a 09 09 09 20 20 20 20 28 6d 6f 64 65 20 2a 64 65 66 61 | already-seen.........(mode.*defa |
| 119e0 | 75 6c 74 2d 67 72 61 70 68 69 6e 67 2d 6d 6f 64 65 2a 29 0a 09 09 09 20 20 20 20 28 74 79 70 65 | ult-graphing-mode*)........(type |
| 11a00 | 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 2a 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 2a 29 20 63 | s-to-ignore.*types-to-ignore*).c |
| 11a20 | 6f 6d 70 61 63 74 29 0a 20 20 22 45 78 74 65 6e 64 73 20 74 68 65 20 74 72 65 65 2c 20 63 6f 70 | ompact)..."Extends.the.tree,.cop |
| 11a40 | 79 69 6e 67 20 69 74 20 69 6e 74 6f 20 6c 69 73 74 20 73 74 72 75 63 74 75 72 65 2c 20 75 6e 74 | ying.it.into.list.structure,.unt |
| 11a60 | 69 6c 20 69 74 20 72 65 70 65 61 74 73 0a 20 20 20 61 20 72 65 66 65 72 65 6e 63 65 20 28 68 69 | il.it.repeats....a.reference.(hi |
| 11a80 | 74 73 20 61 20 63 79 63 6c 65 29 2e 22 0a 20 20 28 6c 65 74 20 28 28 2a 61 6c 72 65 61 64 79 2d | ts.a.cycle)."...(let.((*already- |
| 11aa0 | 73 65 65 6e 2a 20 6e 69 6c 29 0a 09 28 64 61 74 61 62 61 73 65 20 28 63 61 73 65 20 6d 6f 64 65 | seen*.nil)..(database.(case.mode |
| 11ac0 | 0a 09 09 20 20 20 20 28 3a 63 61 6c 6c 2d 67 72 61 70 68 20 20 20 2a 63 61 6c 6c 65 65 73 2d 64 | .......(:call-graph...*callees-d |
| 11ae0 | 61 74 61 62 61 73 65 2a 29 0a 09 09 20 20 20 20 28 3a 63 61 6c 6c 65 72 2d 67 72 61 70 68 20 2a | atabase*).......(:caller-graph.* |
| 11b00 | 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 61 73 65 2a 29 29 29 29 0a 20 20 20 20 28 64 65 63 6c 61 | callers-database*)))).....(decla |
| 11b20 | 72 65 20 28 73 70 65 63 69 61 6c 20 2a 61 6c 72 65 61 64 79 2d 73 65 65 6e 2a 29 29 0a 20 20 20 | re.(special.*already-seen*)).... |
| 11b40 | 20 28 6c 61 62 65 6c 73 20 0a 09 28 28 61 6d 61 73 73 2d 74 72 65 65 0a 09 20 20 28 70 61 72 65 | .(labels...((amass-tree....(pare |
| 11b60 | 6e 74 73 20 26 6f 70 74 69 6f 6e 61 6c 20 61 6c 72 65 61 64 79 2d 73 65 65 6e 29 0a 09 20 20 28 | nts.&optional.already-seen)....( |
| 11b80 | 6c 65 74 20 28 72 65 73 75 6c 74 20 74 68 69 73 2d 69 74 65 6d 29 0a 09 20 20 20 20 28 64 6f 6c | let.(result.this-item)......(dol |
| 11ba0 | 69 73 74 20 28 70 61 72 65 6e 74 20 70 61 72 65 6e 74 73 29 0a 09 20 20 20 20 20 20 28 75 6e 6c | ist.(parent.parents)........(unl |
| 11bc0 | 65 73 73 20 28 6d 65 6d 62 65 72 20 28 70 61 74 74 65 72 6e 2d 63 61 6c 6c 65 72 2d 74 79 70 65 | ess.(member.(pattern-caller-type |
| 11be0 | 20 70 61 72 65 6e 74 29 0a 09 09 09 20 20 20 20 20 20 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 | .parent)..........types-to-ignor |
| 11c00 | 65 29 0a 09 09 28 70 75 73 68 6e 65 77 20 70 61 72 65 6e 74 20 2a 61 6c 72 65 61 64 79 2d 73 65 | e)...(pushnew.parent.*already-se |
| 11c20 | 65 6e 2a 29 0a 09 09 28 69 66 20 28 6d 65 6d 62 65 72 20 70 61 72 65 6e 74 20 61 6c 72 65 61 64 | en*)...(if.(member.parent.alread |
| 11c40 | 79 2d 73 65 65 6e 29 0a 09 09 20 20 20 20 28 73 65 74 71 20 74 68 69 73 2d 69 74 65 6d 20 6e 69 | y-seen).......(setq.this-item.ni |
| 11c60 | 6c 29 20 3b 20 3a 69 67 6e 6f 72 65 0a 09 09 20 20 20 20 28 69 66 20 63 6f 6d 70 61 63 74 20 0a | l).;.:ignore.......(if.compact.. |
| 11c80 | 09 09 09 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 74 68 69 73 2d 69 74 | ...(multiple-value-setq.(this-it |
| 11ca0 | 65 6d 20 61 6c 72 65 61 64 79 2d 73 65 65 6e 29 0a 09 09 09 20 20 20 20 28 61 6d 61 73 73 2d 74 | em.already-seen)........(amass-t |
| 11cc0 | 72 65 65 20 28 67 65 74 68 61 73 68 20 70 61 72 65 6e 74 20 64 61 74 61 62 61 73 65 29 0a 09 09 | ree.(gethash.parent.database)... |
| 11ce0 | 09 09 09 28 63 6f 6e 73 20 70 61 72 65 6e 74 20 61 6c 72 65 61 64 79 2d 73 65 65 6e 29 29 29 0a | ...(cons.parent.already-seen))). |
| 11d00 | 09 09 09 28 73 65 74 71 20 74 68 69 73 2d 69 74 65 6d 0a 09 09 09 20 20 20 20 20 20 28 61 6d 61 | ...(setq.this-item..........(ama |
| 11d20 | 73 73 2d 74 72 65 65 20 28 67 65 74 68 61 73 68 20 70 61 72 65 6e 74 20 64 61 74 61 62 61 73 65 | ss-tree.(gethash.parent.database |
| 11d40 | 29 0a 09 09 09 09 09 20 20 28 63 6f 6e 73 20 70 61 72 65 6e 74 20 61 6c 72 65 61 64 79 2d 73 65 | )........(cons.parent.already-se |
| 11d60 | 65 6e 29 29 29 29 29 0a 09 09 28 73 65 74 71 20 70 61 72 65 6e 74 20 28 66 6f 72 6d 61 74 20 6e | en)))))...(setq.parent.(format.n |
| 11d80 | 69 6c 20 22 7e 53 22 20 70 61 72 65 6e 74 29 29 0a 09 09 28 77 68 65 6e 20 28 63 6f 6e 73 70 20 | il."~S".parent))...(when.(consp. |
| 11da0 | 70 61 72 65 6e 74 29 20 28 73 65 74 71 20 70 61 72 65 6e 74 20 28 63 6f 6e 73 20 3a 78 72 65 66 | parent).(setq.parent.(cons.:xref |
| 11dc0 | 2d 6c 69 73 74 20 70 61 72 65 6e 74 29 29 29 0a 09 09 28 75 6e 6c 65 73 73 20 28 65 71 20 74 68 | -list.parent)))...(unless.(eq.th |
| 11de0 | 69 73 2d 69 74 65 6d 20 3a 69 67 6e 6f 72 65 29 0a 09 09 20 20 28 70 75 73 68 20 28 69 66 20 74 | is-item.:ignore).....(push.(if.t |
| 11e00 | 68 69 73 2d 69 74 65 6d 0a 09 09 09 20 20 20 20 28 6c 69 73 74 20 70 61 72 65 6e 74 20 74 68 69 | his-item........(list.parent.thi |
| 11e20 | 73 2d 69 74 65 6d 29 0a 09 09 09 20 20 20 20 70 61 72 65 6e 74 29 20 0a 09 09 09 72 65 73 75 6c | s-item)........parent).....resul |
| 11e40 | 74 29 29 29 29 0a 09 20 20 20 20 28 76 61 6c 75 65 73 20 72 65 73 75 6c 74 09 09 3b 28 72 65 76 | t))))......(values.result..;(rev |
| 11e60 | 65 72 73 65 20 72 65 73 75 6c 74 29 0a 09 09 20 20 20 20 61 6c 72 65 61 64 79 2d 73 65 65 6e 29 | erse.result).......already-seen) |
| 11e80 | 29 29 29 0a 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 61 6d 61 73 73 2d 74 72 65 65 20 70 61 | ))).......(values.(amass-tree.pa |
| 11ea0 | 72 65 6e 74 73 20 61 6c 72 65 61 64 79 2d 73 65 65 6e 29 0a 09 20 20 20 20 20 20 2a 61 6c 72 65 | rents.already-seen)........*alre |
| 11ec0 | 61 64 79 2d 73 65 65 6e 2a 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 72 6f 6f 74 73 | ady-seen*))))..(defun.find-roots |
| 11ee0 | 2d 61 6e 64 2d 63 79 63 6c 65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 6d 6f 64 65 20 2a 64 65 | -and-cycles.(&optional.(mode.*de |
| 11f00 | 66 61 75 6c 74 2d 67 72 61 70 68 69 6e 67 2d 6d 6f 64 65 2a 29 0a 09 09 09 09 09 28 74 79 70 65 | fault-graphing-mode*)......(type |
| 11f20 | 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 2a 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 2a 29 29 0a | s-to-ignore.*types-to-ignore*)). |
| 11f40 | 20 20 22 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 75 6e 63 61 6c 6c 65 64 20 63 61 | .."Returns.a.list.of.uncalled.ca |
| 11f60 | 6c 6c 65 72 73 20 28 72 6f 6f 74 73 29 20 61 6e 64 20 63 61 6c 6c 65 64 20 63 61 6c 6c 65 72 73 | llers.(roots).and.called.callers |
| 11f80 | 20 28 70 6f 74 65 6e 74 69 61 6c 0a 20 20 20 63 79 63 6c 65 73 29 2e 22 0a 20 20 28 6c 65 74 20 | .(potential....cycles)."...(let. |
| 11fa0 | 28 28 75 6e 63 61 6c 6c 65 64 2d 63 61 6c 6c 65 72 73 20 6e 69 6c 29 0a 09 28 63 61 6c 6c 65 64 | ((uncalled-callers.nil)..(called |
| 11fc0 | 2d 63 61 6c 6c 65 72 73 20 6e 69 6c 29 0a 09 28 64 61 74 61 62 61 73 65 20 28 65 63 61 73 65 20 | -callers.nil)..(database.(ecase. |
| 11fe0 | 6d 6f 64 65 0a 09 09 20 20 20 20 28 3a 63 61 6c 6c 2d 67 72 61 70 68 20 20 20 2a 63 61 6c 6c 65 | mode.......(:call-graph...*calle |
| 12000 | 72 73 2d 64 61 74 61 62 61 73 65 2a 29 0a 09 09 20 20 20 20 28 3a 63 61 6c 6c 65 72 2d 67 72 61 | rs-database*).......(:caller-gra |
| 12020 | 70 68 20 2a 63 61 6c 6c 65 65 73 2d 64 61 74 61 62 61 73 65 2a 29 29 29 0a 09 28 6f 74 68 65 72 | ph.*callees-database*)))..(other |
| 12040 | 2d 64 61 74 61 62 61 73 65 20 28 65 63 61 73 65 20 6d 6f 64 65 0a 09 09 09 20 20 28 3a 63 61 6c | -database.(ecase.mode......(:cal |
| 12060 | 6c 2d 67 72 61 70 68 20 20 20 2a 63 61 6c 6c 65 65 73 2d 64 61 74 61 62 61 73 65 2a 29 0a 09 09 | l-graph...*callees-database*)... |
| 12080 | 09 20 20 28 3a 63 61 6c 6c 65 72 2d 67 72 61 70 68 20 2a 63 61 6c 6c 65 72 73 2d 64 61 74 61 62 | ...(:caller-graph.*callers-datab |
| 120a0 | 61 73 65 2a 29 29 29 29 0a 20 20 20 20 28 6d 61 70 68 61 73 68 20 23 27 28 6c 61 6d 62 64 61 20 | ase*)))).....(maphash.#'(lambda. |
| 120c0 | 28 6e 61 6d 65 20 76 61 6c 75 65 29 0a 09 09 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 | (name.value)....(declare.(ignore |
| 120e0 | 20 76 61 6c 75 65 29 29 0a 09 09 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 28 70 61 74 | .value))....(unless.(member.(pat |
| 12100 | 74 65 72 6e 2d 63 61 6c 6c 65 72 2d 74 79 70 65 20 6e 61 6d 65 29 20 0a 09 09 09 09 20 74 79 70 | tern-caller-type.name).......typ |
| 12120 | 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 29 0a 09 09 20 20 20 28 69 66 20 28 67 65 74 68 61 73 68 20 | es-to-ignore)......(if.(gethash. |
| 12140 | 6e 61 6d 65 20 64 61 74 61 62 61 73 65 29 0a 09 09 20 20 20 20 20 20 20 28 70 75 73 68 20 6e 61 | name.database)..........(push.na |
| 12160 | 6d 65 20 63 61 6c 6c 65 64 2d 63 61 6c 6c 65 72 73 29 0a 09 09 20 20 20 20 20 20 20 28 70 75 73 | me.called-callers)..........(pus |
| 12180 | 68 20 6e 61 6d 65 20 75 6e 63 61 6c 6c 65 64 2d 63 61 6c 6c 65 72 73 29 29 29 29 0a 09 20 20 20 | h.name.uncalled-callers))))..... |
| 121a0 | 20 20 6f 74 68 65 72 2d 64 61 74 61 62 61 73 65 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 75 6e | ..other-database).....(values.un |
| 121c0 | 63 61 6c 6c 65 64 2d 63 61 6c 6c 65 72 73 20 63 61 6c 6c 65 64 2d 63 61 6c 6c 65 72 73 29 29 29 | called-callers.called-callers))) |
| 121e0 | 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 63 61 6c 6c 65 72 2d 74 72 65 65 20 28 26 6f 70 74 69 | ..(defun.make-caller-tree.(&opti |
| 12200 | 6f 6e 61 6c 20 28 6d 6f 64 65 20 2a 64 65 66 61 75 6c 74 2d 67 72 61 70 68 69 6e 67 2d 6d 6f 64 | onal.(mode.*default-graphing-mod |
| 12220 | 65 2a 29 0a 09 09 09 09 20 20 20 28 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 2a 74 79 70 | e*)........(types-to-ignore.*typ |
| 12240 | 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 2a 29 20 63 6f 6d 70 61 63 74 29 0a 20 20 22 4f 75 74 70 75 | es-to-ignore*).compact)..."Outpu |
| 12260 | 74 73 20 6c 69 73 74 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 61 20 74 72 65 65 20 77 68 69 63 | ts.list.structure.of.a.tree.whic |
| 12280 | 68 20 72 6f 75 67 68 6c 79 20 72 65 70 72 65 73 65 6e 74 73 20 74 68 65 20 70 6f 73 73 69 62 6c | h.roughly.represents.the.possibl |
| 122a0 | 79 0a 20 20 20 63 79 63 6c 69 63 61 6c 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 65 20 63 | y....cyclical.structure.of.the.c |
| 122c0 | 61 6c 6c 65 72 20 64 61 74 61 62 61 73 65 2e 0a 20 20 20 49 66 20 6d 6f 64 65 20 69 73 20 3a 63 | aller.database.....If.mode.is.:c |
| 122e0 | 61 6c 6c 2d 67 72 61 70 68 2c 20 74 68 65 20 63 68 69 6c 64 72 65 6e 20 6f 66 20 61 20 6e 6f 64 | all-graph,.the.children.of.a.nod |
| 12300 | 65 20 61 72 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 69 74 20 63 61 6c 6c 73 2e 0a 20 20 | e.are.the.functions.it.calls.... |
| 12320 | 20 49 66 20 6d 6f 64 65 20 69 73 20 3a 63 61 6c 6c 65 72 2d 67 72 61 70 68 2c 20 74 68 65 20 63 | .If.mode.is.:caller-graph,.the.c |
| 12340 | 68 69 6c 64 72 65 6e 20 6f 66 20 61 20 6e 6f 64 65 20 61 72 65 20 74 68 65 20 66 75 6e 63 74 69 | hildren.of.a.node.are.the.functi |
| 12360 | 6f 6e 73 20 74 68 61 74 0a 20 20 20 63 61 6c 6c 20 69 74 2e 0a 20 20 20 49 66 20 63 6f 6d 70 61 | ons.that....call.it.....If.compa |
| 12380 | 63 74 20 69 73 20 54 2c 20 74 72 69 65 73 20 74 6f 20 65 6c 69 6d 69 6e 61 74 65 20 74 68 65 20 | ct.is.T,.tries.to.eliminate.the. |
| 123a0 | 61 6c 72 65 61 64 79 2d 73 65 65 6e 20 6e 6f 64 65 73 2c 20 73 6f 20 74 68 61 74 0a 20 20 20 74 | already-seen.nodes,.so.that....t |
| 123c0 | 68 65 20 67 72 61 70 68 20 66 6f 72 20 61 20 6e 6f 64 65 20 69 73 20 70 72 69 6e 74 65 64 20 61 | he.graph.for.a.node.is.printed.a |
| 123e0 | 74 20 6d 6f 73 74 20 6f 6e 63 65 2e 20 4f 74 68 65 72 77 69 73 65 20 69 74 20 77 69 6c 6c 20 64 | t.most.once..Otherwise.it.will.d |
| 12400 | 75 70 6c 69 63 61 74 65 0a 20 20 20 74 68 65 20 6e 6f 64 65 27 73 20 74 72 65 65 20 28 65 78 63 | uplicate....the.node's.tree.(exc |
| 12420 | 65 70 74 20 66 6f 72 20 63 79 63 6c 65 73 29 2e 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 6c | ept.for.cycles)..This.is.usefull |
| 12440 | 20 62 65 63 61 75 73 65 20 74 68 65 20 63 61 6c 6c 20 74 72 65 65 0a 20 20 20 69 73 20 61 63 74 | .because.the.call.tree....is.act |
| 12460 | 75 61 6c 6c 79 20 61 20 64 69 72 65 63 74 65 64 20 67 72 61 70 68 2c 20 73 6f 20 77 65 20 63 61 | ually.a.directed.graph,.so.we.ca |
| 12480 | 6e 20 65 69 74 68 65 72 20 64 75 70 6c 69 63 61 74 65 20 72 65 66 65 72 65 6e 63 65 73 20 6f 72 | n.either.duplicate.references.or |
| 124a0 | 0a 20 20 20 64 69 73 70 6c 61 79 20 6f 6e 6c 79 20 74 68 65 20 66 69 72 73 74 20 6f 6e 65 2e 22 | ....display.only.the.first.one." |
| 124c0 | 0a 20 20 3b 3b 20 57 6f 75 6c 64 20 62 65 20 6e 69 63 65 20 74 6f 20 70 72 69 6e 74 20 6f 75 74 | ...;;.Would.be.nice.to.print.out |
| 124e0 | 20 6c 69 6e 65 20 6e 75 6d 62 65 72 73 20 61 6e 64 20 77 68 65 6e 65 76 65 72 20 77 65 20 73 6b | .line.numbers.and.whenever.we.sk |
| 12500 | 69 70 20 61 20 64 75 70 6c 69 63 61 74 65 64 0a 20 20 3b 3b 20 72 65 66 65 72 65 6e 63 65 2c 20 | ip.a.duplicated...;;.reference,. |
| 12520 | 70 72 69 6e 74 20 74 68 65 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 65 20 66 75 6c | print.the.line.number.of.the.ful |
| 12540 | 6c 20 72 65 66 65 72 65 6e 63 65 20 61 66 74 65 72 20 74 68 65 20 6e 6f 64 65 2e 0a 20 20 28 6d | l.reference.after.the.node....(m |
| 12560 | 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 75 6e 63 61 6c 6c 65 64 2d 63 61 6c | ultiple-value-bind.(uncalled-cal |
| 12580 | 6c 65 72 73 20 63 61 6c 6c 65 64 2d 63 61 6c 6c 65 72 73 29 0a 20 20 20 20 20 20 28 66 69 6e 64 | lers.called-callers).......(find |
| 125a0 | 2d 72 6f 6f 74 73 2d 61 6e 64 2d 63 79 63 6c 65 73 20 6d 6f 64 65 20 74 79 70 65 73 2d 74 6f 2d | -roots-and-cycles.mode.types-to- |
| 125c0 | 69 67 6e 6f 72 65 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 | ignore).....(multiple-value-bind |
| 125e0 | 20 28 74 72 65 65 73 20 61 6c 72 65 61 64 79 2d 73 65 65 6e 29 0a 09 28 67 61 74 68 65 72 2d 74 | .(trees.already-seen)..(gather-t |
| 12600 | 72 65 65 20 75 6e 63 61 6c 6c 65 64 2d 63 61 6c 6c 65 72 73 20 6e 69 6c 20 6d 6f 64 65 20 74 79 | ree.uncalled-callers.nil.mode.ty |
| 12620 | 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 63 6f 6d 70 61 63 74 29 0a 20 20 20 20 20 20 28 73 65 | pes-to-ignore.compact).......(se |
| 12640 | 74 71 20 2a 6c 61 73 74 2d 63 61 6c 6c 65 72 2d 74 72 65 65 2a 20 74 72 65 65 73 29 0a 20 20 20 | tq.*last-caller-tree*.trees).... |
| 12660 | 20 20 20 28 6c 65 74 20 28 28 6d 6f 72 65 2d 74 72 65 65 73 20 28 67 61 74 68 65 72 2d 74 72 65 | ...(let.((more-trees.(gather-tre |
| 12680 | 65 20 28 73 65 74 2d 64 69 66 66 65 72 65 6e 63 65 20 63 61 6c 6c 65 64 2d 63 61 6c 6c 65 72 73 | e.(set-difference.called-callers |
| 126a0 | 0a 09 09 09 09 09 09 20 20 20 20 20 61 6c 72 65 61 64 79 2d 73 65 65 6e 29 0a 09 09 09 09 20 20 | ............already-seen)....... |
| 126c0 | 20 20 20 61 6c 72 65 61 64 79 2d 73 65 65 6e 20 0a 09 09 09 09 20 20 20 20 20 6d 6f 64 65 20 74 | ...already-seen...........mode.t |
| 126e0 | 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 63 6f 6d 70 61 63 74 29 29 29 0a 09 28 76 61 6c 75 | ypes-to-ignore.compact)))..(valu |
| 12700 | 65 73 20 74 72 65 65 73 20 6d 6f 72 65 2d 74 72 65 65 73 29 29 29 29 29 0a 0a 28 64 65 66 76 61 | es.trees.more-trees)))))..(defva |
| 12720 | 72 20 2a 69 6e 64 65 6e 74 2d 61 6d 6f 75 6e 74 2a 20 33 0a 20 20 22 4e 75 6d 62 65 72 20 6f 66 | r.*indent-amount*.3..."Number.of |
| 12740 | 20 73 70 61 63 65 73 20 74 6f 20 69 6e 64 65 6e 74 20 73 75 63 63 65 73 73 69 76 65 20 6c 65 76 | .spaces.to.indent.successive.lev |
| 12760 | 65 6c 73 20 69 6e 20 50 52 49 4e 54 2d 49 4e 44 45 4e 54 45 44 2d 54 52 45 45 2e 22 29 0a 0a 28 | els.in.PRINT-INDENTED-TREE.")..( |
| 12780 | 64 65 66 75 6e 20 70 72 69 6e 74 2d 69 6e 64 65 6e 74 65 64 2d 74 72 65 65 20 28 74 72 65 65 73 | defun.print-indented-tree.(trees |
| 127a0 | 20 26 6f 70 74 69 6f 6e 61 6c 20 28 69 6e 64 65 6e 74 20 30 29 29 0a 20 20 22 53 69 6d 70 6c 65 | .&optional.(indent.0))..."Simple |
| 127c0 | 20 63 6f 64 65 20 74 6f 20 70 72 69 6e 74 20 6f 75 74 20 61 20 6c 69 73 74 2d 73 74 72 75 63 74 | .code.to.print.out.a.list-struct |
| 127e0 | 75 72 65 20 74 72 65 65 20 28 73 75 63 68 20 61 73 20 74 68 6f 73 65 20 63 72 65 61 74 65 64 0a | ure.tree.(such.as.those.created. |
| 12800 | 20 20 20 62 79 20 6d 61 6b 65 2d 63 61 6c 6c 65 72 2d 74 72 65 65 29 20 61 73 20 69 6e 64 65 6e | ...by.make-caller-tree).as.inden |
| 12820 | 74 65 64 20 74 65 78 74 2e 22 0a 20 20 28 77 68 65 6e 20 74 72 65 65 73 0a 20 20 20 20 28 64 6f | ted.text."...(when.trees.....(do |
| 12840 | 6c 69 73 74 20 28 74 72 65 65 20 74 72 65 65 73 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 | list.(tree.trees).......(cond.(( |
| 12860 | 61 6e 64 20 28 6c 69 73 74 70 20 74 72 65 65 29 20 28 65 71 20 28 63 61 72 20 74 72 65 65 29 20 | and.(listp.tree).(eq.(car.tree). |
| 12880 | 3a 78 72 65 66 2d 6c 69 73 74 29 29 0a 09 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 | :xref-list)).......(format.t."~& |
| 128a0 | 7e 56 54 7e 41 22 20 69 6e 64 65 6e 74 20 28 63 64 72 20 74 72 65 65 29 29 29 0a 09 20 20 20 20 | ~VT~A".indent.(cdr.tree)))...... |
| 128c0 | 28 28 6c 69 73 74 70 20 74 72 65 65 29 0a 09 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e | ((listp.tree).......(format.t."~ |
| 128e0 | 26 7e 56 54 7e 41 22 20 69 6e 64 65 6e 74 20 28 63 61 72 20 74 72 65 65 29 29 0a 09 20 20 20 20 | &~VT~A".indent.(car.tree))...... |
| 12900 | 20 28 70 72 69 6e 74 2d 69 6e 64 65 6e 74 65 64 2d 74 72 65 65 20 28 63 61 64 72 20 74 72 65 65 | .(print-indented-tree.(cadr.tree |
| 12920 | 29 20 28 2b 20 69 6e 64 65 6e 74 20 2a 69 6e 64 65 6e 74 2d 61 6d 6f 75 6e 74 2a 29 29 29 0a 09 | ).(+.indent.*indent-amount*))).. |
| 12940 | 20 20 20 20 28 74 0a 09 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 7e 56 54 7e 41 22 | ....(t.......(format.t."~&~VT~A" |
| 12960 | 20 69 6e 64 65 6e 74 20 74 72 65 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 | .indent.tree))))))..(defun.print |
| 12980 | 2d 63 61 6c 6c 65 72 2d 74 72 65 65 73 20 28 26 6b 65 79 20 28 6d 6f 64 65 20 2a 64 65 66 61 75 | -caller-trees.(&key.(mode.*defau |
| 129a0 | 6c 74 2d 67 72 61 70 68 69 6e 67 2d 6d 6f 64 65 2a 29 0a 09 09 09 09 28 74 79 70 65 73 2d 74 6f | lt-graphing-mode*).....(types-to |
| 129c0 | 2d 69 67 6e 6f 72 65 20 2a 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 2a 29 0a 09 09 09 09 63 | -ignore.*types-to-ignore*).....c |
| 129e0 | 6f 6d 70 61 63 74 0a 09 09 09 09 72 6f 6f 74 2d 6e 6f 64 65 73 29 0a 20 20 22 50 72 69 6e 74 73 | ompact.....root-nodes)..."Prints |
| 12a00 | 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 74 72 65 65 73 20 28 77 68 69 63 68 20 6d 61 79 20 61 63 | .the.calling.trees.(which.may.ac |
| 12a20 | 74 75 61 6c 6c 79 20 62 65 20 61 20 66 75 6c 6c 20 67 72 61 70 68 20 61 6e 64 20 6e 6f 74 0a 20 | tually.be.a.full.graph.and.not.. |
| 12a40 | 20 20 6e 65 63 65 73 73 61 72 69 6c 79 20 61 20 44 41 47 29 20 61 73 20 69 6e 64 65 6e 74 65 64 | ..necessarily.a.DAG).as.indented |
| 12a60 | 20 74 65 78 74 20 74 72 65 65 73 20 75 73 69 6e 67 20 50 52 49 4e 54 2d 49 4e 44 45 4e 54 45 44 | .text.trees.using.PRINT-INDENTED |
| 12a80 | 2d 54 52 45 45 2e 0a 20 20 20 4d 4f 44 45 20 69 73 20 3a 63 61 6c 6c 2d 67 72 61 70 68 20 66 6f | -TREE.....MODE.is.:call-graph.fo |
| 12aa0 | 72 20 74 72 65 65 73 20 77 68 65 72 65 20 74 68 65 20 63 68 69 6c 64 72 65 6e 20 6f 66 20 61 20 | r.trees.where.the.children.of.a. |
| 12ac0 | 6e 6f 64 65 20 61 72 65 20 74 68 65 0a 20 20 20 66 75 6e 63 74 69 6f 6e 73 20 63 61 6c 6c 65 64 | node.are.the....functions.called |
| 12ae0 | 20 62 79 20 74 68 65 20 6e 6f 64 65 2c 20 6f 72 20 3a 63 61 6c 6c 65 72 2d 67 72 61 70 68 20 66 | .by.the.node,.or.:caller-graph.f |
| 12b00 | 6f 72 20 74 72 65 65 73 20 77 68 65 72 65 20 74 68 65 0a 20 20 20 63 68 69 6c 64 72 65 6e 20 6f | or.trees.where.the....children.o |
| 12b20 | 66 20 61 20 6e 6f 64 65 20 61 72 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 65 20 6e | f.a.node.are.the.functions.the.n |
| 12b40 | 6f 64 65 20 63 61 6c 6c 73 2e 20 54 59 50 45 53 2d 54 4f 2d 49 47 4e 4f 52 45 0a 20 20 20 69 73 | ode.calls..TYPES-TO-IGNORE....is |
| 12b60 | 20 61 20 6c 69 73 74 20 6f 66 20 66 75 6e 63 61 6c 6c 20 74 79 70 65 73 20 28 61 73 20 73 70 65 | .a.list.of.funcall.types.(as.spe |
| 12b80 | 63 69 66 69 65 64 20 69 6e 20 74 68 65 20 70 61 74 74 65 72 6e 73 29 20 74 6f 20 69 67 6e 6f 72 | cified.in.the.patterns).to.ignor |
| 12ba0 | 65 0a 20 20 20 69 6e 20 70 72 69 6e 74 69 6e 67 20 6f 75 74 20 74 68 65 20 64 61 74 61 62 61 73 | e....in.printing.out.the.databas |
| 12bc0 | 65 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 27 28 3a 6c 69 73 70 29 20 77 6f 75 6c 64 20 69 | e..For.example,.'(:lisp).would.i |
| 12be0 | 67 6e 6f 72 65 20 61 6c 6c 0a 20 20 20 63 61 6c 6c 73 20 74 6f 20 63 6f 6d 6d 6f 6e 20 6c 69 73 | gnore.all....calls.to.common.lis |
| 12c00 | 70 20 66 75 6e 63 74 69 6f 6e 73 2e 20 43 4f 4d 50 41 43 54 20 69 73 20 61 20 66 6c 61 67 20 74 | p.functions..COMPACT.is.a.flag.t |
| 12c20 | 6f 20 74 65 6c 6c 20 74 68 65 20 70 72 6f 67 72 61 6d 0a 20 20 20 74 6f 20 74 72 79 20 74 6f 20 | o.tell.the.program....to.try.to. |
| 12c40 | 63 6f 6d 70 61 63 74 20 74 68 65 20 74 72 65 65 73 20 61 20 62 69 74 20 62 79 20 6e 6f 74 20 70 | compact.the.trees.a.bit.by.not.p |
| 12c60 | 72 69 6e 74 69 6e 67 20 74 72 65 65 73 20 69 66 20 74 68 65 79 20 68 61 76 65 0a 20 20 20 61 6c | rinting.trees.if.they.have....al |
| 12c80 | 72 65 61 64 79 20 62 65 65 6e 20 73 65 65 6e 2e 20 52 4f 4f 54 2d 4e 4f 44 45 53 20 69 73 20 61 | ready.been.seen..ROOT-NODES.is.a |
| 12ca0 | 20 6c 69 73 74 20 6f 66 20 72 6f 6f 74 20 6e 6f 64 65 73 20 6f 66 20 74 72 65 65 73 20 74 6f 20 | .list.of.root.nodes.of.trees.to. |
| 12cc0 | 0a 20 20 20 64 69 73 70 6c 61 79 2e 20 49 66 20 52 4f 4f 54 2d 4e 4f 44 45 53 20 69 73 20 6e 69 | ....display..If.ROOT-NODES.is.ni |
| 12ce0 | 6c 2c 20 74 72 69 65 73 20 74 6f 20 66 69 6e 64 20 61 6c 6c 20 72 6f 6f 74 20 6e 6f 64 65 73 20 | l,.tries.to.find.all.root.nodes. |
| 12d00 | 69 6e 20 74 68 65 0a 20 20 20 64 61 74 61 62 61 73 65 2e 22 0a 20 20 28 6d 75 6c 74 69 70 6c 65 | in.the....database."...(multiple |
| 12d20 | 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 72 6f 6f 74 65 64 20 63 79 63 6c 65 73 29 0a 20 20 20 20 | -value-bind.(rooted.cycles)..... |
| 12d40 | 20 20 28 69 66 20 72 6f 6f 74 2d 6e 6f 64 65 73 0a 09 20 20 28 76 61 6c 75 65 73 20 28 67 61 74 | ..(if.root-nodes....(values.(gat |
| 12d60 | 68 65 72 2d 74 72 65 65 20 72 6f 6f 74 2d 6e 6f 64 65 73 20 6e 69 6c 20 6d 6f 64 65 20 74 79 70 | her-tree.root-nodes.nil.mode.typ |
| 12d80 | 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 63 6f 6d 70 61 63 74 29 29 0a 09 20 20 28 6d 61 6b 65 2d | es-to-ignore.compact))....(make- |
| 12da0 | 63 61 6c 6c 65 72 2d 74 72 65 65 20 6d 6f 64 65 20 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 | caller-tree.mode.types-to-ignore |
| 12dc0 | 20 63 6f 6d 70 61 63 74 29 29 0a 20 20 20 20 28 77 68 65 6e 20 72 6f 6f 74 65 64 0a 20 20 20 20 | .compact)).....(when.rooted..... |
| 12de0 | 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 52 6f 6f 74 65 64 20 63 61 6c 6c 69 6e 67 20 74 72 | ..(format.t."~&Rooted.calling.tr |
| 12e00 | 65 65 73 3a 22 29 0a 20 20 20 20 20 20 28 70 72 69 6e 74 2d 69 6e 64 65 6e 74 65 64 2d 74 72 65 | ees:").......(print-indented-tre |
| 12e20 | 65 20 72 6f 6f 74 65 64 20 32 29 29 0a 20 20 20 20 28 77 68 65 6e 20 63 79 63 6c 65 73 0a 20 20 | e.rooted.2)).....(when.cycles... |
| 12e40 | 20 20 20 20 28 77 68 65 6e 20 72 6f 6f 74 65 64 20 20 20 20 20 20 0a 09 28 66 6f 72 6d 61 74 20 | ....(when.rooted........(format. |
| 12e60 | 74 20 22 7e 32 25 22 29 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 43 79 63 | t."~2%")).......(format.t."~&Cyc |
| 12e80 | 6c 69 63 20 63 61 6c 6c 69 6e 67 20 74 72 65 65 73 3a 22 29 0a 20 20 20 20 20 20 28 70 72 69 6e | lic.calling.trees:").......(prin |
| 12ea0 | 74 2d 69 6e 64 65 6e 74 65 64 2d 74 72 65 65 20 63 79 63 6c 65 73 20 32 29 29 29 29 0a 0a 0c 0a | t-indented-tree.cycles.2)))).... |
| 12ec0 | 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;;;.**************************** |
| 12ee0 | 2a 2a 2a 2a 0a 3b 3b 3b 20 49 6e 74 65 72 66 61 63 65 20 74 6f 20 50 53 47 72 61 70 68 20 2a 2a | ****.;;;.Interface.to.PSGraph.** |
| 12f00 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | *********.;;;.****************** |
| 12f20 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 23 7c 0a 3b 3b 3b 20 49 6e 74 65 72 66 61 63 65 20 | **************.#|.;;;.Interface. |
| 12f40 | 74 6f 20 42 61 74 65 73 27 20 50 6f 73 74 53 63 72 69 70 74 20 47 72 61 70 68 69 6e 67 20 55 74 | to.Bates'.PostScript.Graphing.Ut |
| 12f60 | 69 6c 69 74 79 0a 28 6c 6f 61 64 20 22 2f 61 66 73 2f 63 73 2f 75 73 65 72 2f 6d 6b 61 6e 74 2f | ility.(load."/afs/cs/user/mkant/ |
| 12f80 | 4c 69 73 70 2f 50 53 47 72 61 70 68 2f 70 73 67 72 61 70 68 22 29 0a 0a 28 64 65 66 70 61 72 61 | Lisp/PSGraph/psgraph")..(defpara |
| 12fa0 | 6d 65 74 65 72 20 2a 70 6f 73 74 73 63 72 69 70 74 2d 6f 75 74 70 75 74 2d 64 69 72 65 63 74 6f | meter.*postscript-output-directo |
| 12fc0 | 72 79 2a 20 22 22 29 0a 28 64 65 66 75 6e 20 70 73 67 72 61 70 68 2d 78 72 65 66 20 28 26 6b 65 | ry*."").(defun.psgraph-xref.(&ke |
| 12fe0 | 79 20 28 6d 6f 64 65 20 2a 64 65 66 61 75 6c 74 2d 67 72 61 70 68 69 6e 67 2d 6d 6f 64 65 2a 29 | y.(mode.*default-graphing-mode*) |
| 13000 | 0a 09 09 09 20 20 28 6f 75 74 70 75 74 2d 64 69 72 65 63 74 6f 72 79 20 2a 70 6f 73 74 73 63 72 | ......(output-directory.*postscr |
| 13020 | 69 70 74 2d 6f 75 74 70 75 74 2d 64 69 72 65 63 74 6f 72 79 2a 29 0a 09 09 09 20 20 28 74 79 70 | ipt-output-directory*)......(typ |
| 13040 | 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 2a 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 2a 29 0a | es-to-ignore.*types-to-ignore*). |
| 13060 | 09 09 09 20 20 28 63 6f 6d 70 61 63 74 20 74 29 0a 09 09 09 20 20 28 73 68 72 69 6e 6b 20 74 29 | .....(compact.t)......(shrink.t) |
| 13080 | 0a 09 09 09 20 20 72 6f 6f 74 2d 6e 6f 64 65 73 0a 09 09 09 20 20 69 6e 73 65 72 74 29 0a 20 20 | ......root-nodes......insert)... |
| 130a0 | 3b 3b 20 49 66 20 72 6f 6f 74 2d 6e 6f 64 65 73 20 69 73 20 61 20 6e 6f 6e 2d 6e 69 6c 20 6c 69 | ;;.If.root-nodes.is.a.non-nil.li |
| 130c0 | 73 74 2c 20 75 73 65 73 20 74 68 61 74 20 6c 69 73 74 20 61 73 20 74 68 65 20 73 74 61 72 74 69 | st,.uses.that.list.as.the.starti |
| 130e0 | 6e 67 0a 20 20 3b 3b 20 70 6f 73 69 74 69 6f 6e 2e 20 4f 74 68 65 72 77 69 73 65 20 74 72 69 65 | ng...;;.position..Otherwise.trie |
| 13100 | 73 20 74 6f 20 66 69 6e 64 20 61 6c 6c 20 72 6f 6f 74 73 20 69 6e 20 74 68 65 20 64 61 74 61 62 | s.to.find.all.roots.in.the.datab |
| 13120 | 61 73 65 2e 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 72 6f 6f | ase....(multiple-value-bind.(roo |
| 13140 | 74 65 64 20 63 79 63 6c 65 73 29 0a 20 20 20 20 20 20 28 69 66 20 72 6f 6f 74 2d 6e 6f 64 65 73 | ted.cycles).......(if.root-nodes |
| 13160 | 0a 09 20 20 28 76 61 6c 75 65 73 20 28 67 61 74 68 65 72 2d 74 72 65 65 20 72 6f 6f 74 2d 6e 6f | ....(values.(gather-tree.root-no |
| 13180 | 64 65 73 20 6e 69 6c 20 6d 6f 64 65 20 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 63 6f 6d | des.nil.mode.types-to-ignore.com |
| 131a0 | 70 61 63 74 29 29 0a 09 20 20 28 6d 61 6b 65 2d 63 61 6c 6c 65 72 2d 74 72 65 65 20 6d 6f 64 65 | pact))....(make-caller-tree.mode |
| 131c0 | 20 74 79 70 65 73 2d 74 6f 2d 69 67 6e 6f 72 65 20 63 6f 6d 70 61 63 74 29 29 0a 20 20 20 20 28 | .types-to-ignore.compact)).....( |
| 131e0 | 70 73 67 72 61 70 68 2d 6f 75 74 70 75 74 20 28 61 70 70 65 6e 64 20 72 6f 6f 74 65 64 20 63 79 | psgraph-output.(append.rooted.cy |
| 13200 | 63 6c 65 73 29 20 6f 75 74 70 75 74 2d 64 69 72 65 63 74 6f 72 79 20 73 68 72 69 6e 6b 20 69 6e | cles).output-directory.shrink.in |
| 13220 | 73 65 72 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 73 67 72 61 70 68 2d 6f 75 74 70 75 74 20 28 | sert)))..(defun.psgraph-output.( |
| 13240 | 6c 69 73 74 2d 6f 66 2d 74 72 65 65 73 20 64 69 72 65 63 74 6f 72 79 20 73 68 72 69 6e 6b 20 26 | list-of-trees.directory.shrink.& |
| 13260 | 6f 70 74 69 6f 6e 61 6c 20 69 6e 73 65 72 74 29 0a 20 20 28 6c 65 74 20 28 28 70 73 67 72 61 70 | optional.insert)...(let.((psgrap |
| 13280 | 68 3a 2a 66 6f 6e 74 73 69 7a 65 2a 20 39 29 0a 09 28 70 73 67 72 61 70 68 3a 2a 73 65 63 6f 6e | h:*fontsize*.9)..(psgraph:*secon |
| 132a0 | 64 2d 66 6f 6e 74 73 69 7a 65 2a 20 37 29 0a 3b 09 28 70 73 67 72 61 70 68 3a 2a 62 6f 78 6b 69 | d-fontsize*.7).;.(psgraph:*boxki |
| 132c0 | 6e 64 2a 20 22 66 69 6c 6c 22 29 0a 09 28 70 73 67 72 61 70 68 3a 2a 62 6f 78 67 72 61 79 2a 20 | nd*."fill")..(psgraph:*boxgray*. |
| 132e0 | 22 30 22 29 20 3b 20 2e 38 0a 09 28 70 73 67 72 61 70 68 3a 2a 65 64 67 65 77 69 64 74 68 2a 20 | "0").;..8..(psgraph:*edgewidth*. |
| 13300 | 22 31 22 29 0a 09 28 70 73 67 72 61 70 68 3a 2a 65 64 67 65 67 72 61 79 2a 20 22 30 22 29 29 0a | "1")..(psgraph:*edgegray*."0")). |
| 13320 | 20 20 20 20 28 6c 61 62 65 6c 73 20 28 28 73 74 72 69 6e 67 69 66 79 20 28 74 68 69 6e 67 29 0a | ....(labels.((stringify.(thing). |
| 13340 | 09 09 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 70 20 74 68 69 6e 67 29 20 28 73 74 72 69 6e 67 | ..(cond.((stringp.thing).(string |
| 13360 | 2d 64 6f 77 6e 63 61 73 65 20 74 68 69 6e 67 29 29 0a 09 09 20 20 20 20 20 20 28 28 73 79 6d 62 | -downcase.thing)).........((symb |
| 13380 | 6f 6c 70 20 74 68 69 6e 67 29 20 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 28 73 79 6d | olp.thing).(string-downcase.(sym |
| 133a0 | 62 6f 6c 2d 6e 61 6d 65 20 74 68 69 6e 67 29 29 29 0a 09 09 20 20 20 20 20 20 28 28 61 6e 64 20 | bol-name.thing))).........((and. |
| 133c0 | 28 6c 69 73 74 70 20 74 68 69 6e 67 29 20 28 65 71 20 28 63 61 72 20 74 68 69 6e 67 29 20 3a 78 | (listp.thing).(eq.(car.thing).:x |
| 133e0 | 72 65 66 2d 6c 69 73 74 29 29 0a 09 09 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 69 66 79 20 28 | ref-list))..........(stringify.( |
| 13400 | 63 64 72 20 74 68 69 6e 67 29 29 29 0a 09 09 20 20 20 20 20 20 28 28 6c 69 73 74 70 20 74 68 69 | cdr.thing))).........((listp.thi |
| 13420 | 6e 67 29 20 28 73 74 72 69 6e 67 69 66 79 20 28 63 61 72 20 74 68 69 6e 67 29 29 29 0a 09 09 20 | ng).(stringify.(car.thing))).... |
| 13440 | 20 20 20 20 20 28 74 20 28 73 74 72 69 6e 67 20 74 68 69 6e 67 29 29 29 29 29 0a 20 20 20 20 20 | .....(t.(string.thing)))))...... |
| 13460 | 20 28 64 6f 6c 69 73 74 20 28 69 74 65 6d 20 6c 69 73 74 2d 6f 66 2d 74 72 65 65 73 29 0a 09 28 | .(dolist.(item.list-of-trees)..( |
| 13480 | 6c 65 74 2a 20 28 28 66 6e 61 6d 65 20 28 73 74 72 69 6e 67 69 66 79 20 69 74 65 6d 29 29 0a 09 | let*.((fname.(stringify.item)).. |
| 134a0 | 20 20 20 20 20 20 20 28 66 69 6c 65 6e 61 6d 65 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 | .......(filename.(concatenate.'s |
| 134c0 | 74 72 69 6e 67 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09 09 20 20 20 20 20 20 28 73 74 72 69 6e | tring.directory...........(strin |
| 134e0 | 67 2d 74 72 69 6d 20 27 28 23 5c 3a 20 23 5c 7c 29 20 66 6e 61 6d 65 29 0a 09 09 09 09 20 20 20 | g-trim.'(#\:.#\|).fname)........ |
| 13500 | 20 20 20 22 2e 70 73 22 29 29 29 0a 09 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 43 72 65 61 | ...".ps")))....(format.t."~&Crea |
| 13520 | 74 69 6e 67 20 50 6f 73 74 53 63 72 69 70 74 20 66 69 6c 65 20 7e 53 2e 22 20 66 69 6c 65 6e 61 | ting.PostScript.file.~S.".filena |
| 13540 | 6d 65 29 0a 09 20 20 28 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 2a 73 74 61 6e 64 61 72 | me)....(with-open-file.(*standar |
| 13560 | 64 2d 6f 75 74 70 75 74 2a 20 66 69 6c 65 6e 61 6d 65 0a 09 09 09 09 09 20 20 20 20 20 3a 64 69 | d-output*.filename...........:di |
| 13580 | 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 0a 09 09 09 09 09 20 20 20 20 20 3a 69 66 2d 64 6f | rection.:output...........:if-do |
| 135a0 | 65 73 2d 6e 6f 74 2d 65 78 69 73 74 20 3a 63 72 65 61 74 65 0a 09 09 09 09 09 20 20 20 20 20 3a | es-not-exist.:create...........: |
| 135c0 | 69 66 2d 65 78 69 73 74 73 20 3a 73 75 70 65 72 73 65 64 65 29 0a 09 20 20 20 20 3b 3b 20 4e 6f | if-exists.:supersede)......;;.No |
| 135e0 | 74 65 20 74 68 61 74 20 74 68 65 20 23 27 65 71 20 70 72 69 6e 74 73 20 74 68 65 20 44 41 47 20 | te.that.the.#'eq.prints.the.DAG. |
| 13600 | 61 73 20 61 20 74 72 65 65 2e 20 49 66 0a 09 20 20 20 20 3b 3b 20 79 6f 75 20 72 65 70 6c 61 63 | as.a.tree..If......;;.you.replac |
| 13620 | 65 20 69 74 20 77 69 74 68 20 23 27 65 71 75 61 6c 2c 20 69 74 20 77 69 6c 6c 20 70 72 69 6e 74 | e.it.with.#'equal,.it.will.print |
| 13640 | 20 69 74 20 61 73 0a 09 20 20 20 20 3b 3b 20 61 20 44 41 47 2c 20 77 68 69 63 68 20 49 20 74 68 | .it.as......;;.a.DAG,.which.I.th |
| 13660 | 69 6e 6b 20 69 73 20 73 6c 69 67 68 74 6c 79 20 75 67 6c 79 2e 0a 09 20 20 20 20 28 70 73 67 72 | ink.is.slightly.ugly.......(psgr |
| 13680 | 61 70 68 3a 70 73 67 72 61 70 68 20 69 74 65 6d 0a 09 09 09 20 20 20 20 20 23 27 63 61 6c 6c 65 | aph:psgraph.item.........#'calle |
| 136a0 | 72 2d 74 72 65 65 2d 63 68 69 6c 64 72 65 6e 20 23 27 63 61 6c 6c 65 72 2d 69 6e 66 6f 20 73 68 | r-tree-children.#'caller-info.sh |
| 136c0 | 72 69 6e 6b 0a 09 09 09 20 20 20 20 20 69 6e 73 65 72 74 20 23 27 65 71 29 29 29 29 29 29 29 0a | rink.........insert.#'eq))))))). |
| 136e0 | 0a 28 64 65 66 75 6e 20 63 61 6c 6c 65 72 2d 74 72 65 65 2d 63 68 69 6c 64 72 65 6e 20 28 74 72 | .(defun.caller-tree-children.(tr |
| 13700 | 65 65 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 74 72 65 65 20 28 6c 69 73 74 70 20 74 72 65 | ee)...(when.(and.tree.(listp.tre |
| 13720 | 65 29 20 28 6e 6f 74 20 28 65 71 20 28 63 61 72 20 74 72 65 65 29 20 3a 78 72 65 66 2d 6c 69 73 | e).(not.(eq.(car.tree).:xref-lis |
| 13740 | 74 29 29 29 0a 20 20 20 20 28 63 61 64 72 20 74 72 65 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 | t))).....(cadr.tree)))..(defun.c |
| 13760 | 61 6c 6c 65 72 2d 74 72 65 65 2d 6e 6f 64 65 20 28 74 72 65 65 29 0a 20 20 28 77 68 65 6e 20 74 | aller-tree-node.(tree)...(when.t |
| 13780 | 72 65 65 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 6c 69 73 74 70 20 74 72 65 65 29 | ree.....(cond.((and.(listp.tree) |
| 137a0 | 20 28 65 71 20 28 63 61 72 20 74 72 65 65 29 20 3a 78 72 65 66 2d 6c 69 73 74 29 29 0a 09 20 20 | .(eq.(car.tree).:xref-list)).... |
| 137c0 | 20 28 63 64 72 20 74 72 65 65 29 29 0a 09 20 20 28 28 6c 69 73 74 70 20 74 72 65 65 29 0a 09 20 | .(cdr.tree))....((listp.tree)... |
| 137e0 | 20 20 28 63 61 72 20 74 72 65 65 29 29 0a 09 20 20 28 74 0a 09 20 20 20 74 72 65 65 29 29 29 29 | ..(car.tree))....(t.....tree)))) |
| 13800 | 0a 0a 28 64 65 66 75 6e 20 63 61 6c 6c 65 72 2d 69 6e 66 6f 20 28 74 72 65 65 29 0a 20 20 28 6c | ..(defun.caller-info.(tree)...(l |
| 13820 | 65 74 20 28 28 6e 6f 64 65 20 28 63 61 6c 6c 65 72 2d 74 72 65 65 2d 6e 6f 64 65 20 74 72 65 65 | et.((node.(caller-tree-node.tree |
| 13840 | 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 6e 6f 64 65 29 29 29 0a 7c 23 0a 23 7c 0a 3b 3b 3b 20 | ))).....(list.node))).|#.#|.;;;. |
| 13860 | 43 6f 64 65 20 74 6f 20 70 72 69 6e 74 20 6f 75 74 20 67 72 61 70 68 69 63 61 6c 20 74 72 65 65 | Code.to.print.out.graphical.tree |
| 13880 | 73 20 6f 66 20 43 4c 4f 53 20 63 6c 61 73 73 20 68 69 65 72 61 72 63 68 69 65 73 2e 0a 28 64 65 | s.of.CLOS.class.hierarchies..(de |
| 138a0 | 66 75 6e 20 70 72 69 6e 74 2d 63 6c 61 73 73 2d 68 69 65 72 61 72 63 68 79 20 28 26 6f 70 74 69 | fun.print-class-hierarchy.(&opti |
| 138c0 | 6f 6e 61 6c 20 28 73 74 61 72 74 2d 63 6c 61 73 73 20 27 61 6e 79 74 68 69 6e 67 29 20 0a 09 09 | onal.(start-class.'anything).... |
| 138e0 | 09 09 09 28 66 69 6c 65 20 22 63 6c 61 73 73 65 73 2e 70 73 22 29 29 0a 20 20 28 6c 65 74 20 28 | ...(file."classes.ps"))...(let.( |
| 13900 | 28 73 74 61 72 74 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 74 61 72 74 2d 63 6c 61 73 73 29 29 | (start.(find-class.start-class)) |
| 13920 | 29 0a 20 20 20 20 28 77 68 65 6e 20 73 74 61 72 74 0a 20 20 20 20 20 20 28 77 69 74 68 2d 6f 70 | ).....(when.start.......(with-op |
| 13940 | 65 6e 2d 66 69 6c 65 20 28 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 20 66 69 6c 65 20 | en-file.(*standard-output*.file. |
| 13960 | 3a 64 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 29 0a 09 28 70 73 67 72 61 70 68 3a 70 73 | :direction.:output)..(psgraph:ps |
| 13980 | 67 72 61 70 68 20 73 74 61 72 74 20 0a 09 09 09 20 23 27 63 6c 6f 73 3a 3a 63 6c 61 73 73 2d 64 | graph.start......#'clos::class-d |
| 139a0 | 69 72 65 63 74 2d 73 75 62 63 6c 61 73 73 65 73 0a 09 09 09 20 23 27 28 6c 61 6d 62 64 61 20 28 | irect-subclasses.....#'(lambda.( |
| 139c0 | 78 29 20 0a 09 09 09 20 20 20 20 20 28 6c 69 73 74 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e | x)..........(list.(format.nil."~ |
| 139e0 | 41 22 20 28 63 6c 6f 73 3a 3a 63 6c 61 73 73 2d 6e 61 6d 65 20 78 29 29 29 29 0a 09 09 09 20 74 | A".(clos::class-name.x)))).....t |
| 13a00 | 20 6e 69 6c 20 23 27 65 71 29 29 29 29 29 0a 0a 7c 23 0a 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a | .nil.#'eq)))))..|#....;;;.****** |
| 13a20 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 13a40 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 43 | **************************.;;;.C |
| 13a60 | 72 6f 73 73 20 52 65 66 65 72 65 6e 63 69 6e 67 20 50 61 74 74 65 72 6e 73 20 66 6f 72 20 43 6f | ross.Referencing.Patterns.for.Co |
| 13a80 | 6d 6d 6f 6e 20 4c 69 73 70 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a | mmon.Lisp.*********************. |
| 13aa0 | 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;;;.**************************** |
| 13ac0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 13ae0 | 2a 2a 2a 2a 0a 28 63 6c 65 61 72 2d 70 61 74 74 65 72 6e 73 29 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a | ****.(clear-patterns)..;;;.***** |
| 13b00 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 | ***************************.;;;. |
| 13b20 | 50 61 74 74 65 72 6e 20 53 75 62 73 74 69 74 75 74 69 6f 6e 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | Pattern.Substitutions.********** |
| 13b40 | 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .;;;.*************************** |
| 13b60 | 2a 2a 2a 2a 2a 0a 28 64 65 66 69 6e 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 | *****.(define-pattern-substituti |
| 13b80 | 6f 6e 20 69 6e 74 65 67 65 72 20 28 3a 74 65 73 74 20 23 27 69 6e 74 65 67 65 72 70 29 29 0a 28 | on.integer.(:test.#'integerp)).( |
| 13ba0 | 64 65 66 69 6e 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 72 61 74 69 | define-pattern-substitution.rati |
| 13bc0 | 6f 6e 61 6c 20 28 3a 74 65 73 74 20 23 27 72 61 74 69 6f 6e 61 6c 70 29 29 0a 28 64 65 66 69 6e | onal.(:test.#'rationalp)).(defin |
| 13be0 | 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 73 79 6d 62 6f 6c 20 20 28 | e-pattern-substitution.symbol..( |
| 13c00 | 3a 74 65 73 74 20 23 27 73 79 6d 62 6f 6c 70 29 29 0a 28 64 65 66 69 6e 65 2d 70 61 74 74 65 72 | :test.#'symbolp)).(define-patter |
| 13c20 | 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 73 74 72 69 6e 67 20 20 28 3a 74 65 73 74 20 23 27 | n-substitution.string..(:test.#' |
| 13c40 | 73 74 72 69 6e 67 70 29 29 0a 28 64 65 66 69 6e 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 | stringp)).(define-pattern-substi |
| 13c60 | 74 75 74 69 6f 6e 20 6e 75 6d 62 65 72 20 20 28 3a 74 65 73 74 20 23 27 6e 75 6d 62 65 72 70 29 | tution.number..(:test.#'numberp) |
| 13c80 | 29 0a 28 64 65 66 69 6e 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 6c | ).(define-pattern-substitution.l |
| 13ca0 | 61 6d 62 64 61 2d 6c 69 73 74 0a 20 20 28 28 3a 73 74 61 72 20 76 61 72 29 0a 20 20 20 28 3a 6f | ambda-list...((:star.var)....(:o |
| 13cc0 | 70 74 69 6f 6e 61 6c 20 28 3a 65 71 20 26 6f 70 74 69 6f 6e 61 6c 29 0a 09 20 20 20 20 20 20 28 | ptional.(:eq.&optional)........( |
| 13ce0 | 3a 73 74 61 72 20 28 3a 6f 72 20 76 61 72 0a 09 09 09 20 20 28 76 61 72 20 28 3a 6f 70 74 69 6f | :star.(:or.var......(var.(:optio |
| 13d00 | 6e 61 6c 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 76 61 72 29 29 29 29 29 29 0a 20 20 | nal.form.(:optional.var))))))... |
| 13d20 | 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 28 3a 65 71 20 26 72 65 73 74 29 20 76 61 72 29 0a 20 20 20 | .(:optional.(:eq.&rest).var).... |
| 13d40 | 28 3a 6f 70 74 69 6f 6e 61 6c 20 28 3a 65 71 20 26 6b 65 79 29 20 28 3a 73 74 61 72 20 28 3a 6f | (:optional.(:eq.&key).(:star.(:o |
| 13d60 | 72 20 76 61 72 0a 09 09 09 20 20 20 20 20 20 20 28 28 3a 6f 72 20 76 61 72 0a 09 09 09 09 20 20 | r.var...........((:or.var....... |
| 13d80 | 20 20 20 28 6b 65 79 77 6f 72 64 20 76 61 72 29 29 0a 09 09 09 09 28 3a 6f 70 74 69 6f 6e 61 6c | ...(keyword.var)).....(:optional |
| 13da0 | 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 76 61 72 29 29 29 29 29 0a 09 20 20 20 20 20 | .form.(:optional.var)))))....... |
| 13dc0 | 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 29 0a | .(:optional.&allow-other-keys)). |
| 13de0 | 20 20 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 28 3a 65 71 20 26 61 75 78 29 0a 09 20 20 20 20 20 20 | ...(:optional.(:eq.&aux)........ |
| 13e00 | 28 3a 73 74 61 72 20 28 3a 6f 72 20 76 61 72 0a 09 09 09 20 20 28 76 61 72 20 28 3a 6f 70 74 69 | (:star.(:or.var......(var.(:opti |
| 13e20 | 6f 6e 61 6c 20 66 6f 72 6d 29 29 29 29 29 29 29 0a 28 64 65 66 69 6e 65 2d 70 61 74 74 65 72 6e | onal.form))))))).(define-pattern |
| 13e40 | 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 74 65 73 74 20 66 6f 72 6d 29 0a 28 64 65 66 69 6e 65 | -substitution.test.form).(define |
| 13e60 | 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 62 6f 64 79 0a 20 20 28 28 3a | -pattern-substitution.body...((: |
| 13e80 | 73 74 61 72 20 28 3a 6f 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 64 6f 63 75 6d 65 6e 74 61 74 | star.(:or.declaration.documentat |
| 13ea0 | 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 29 0a 28 | ion-string))....(:star.form))).( |
| 13ec0 | 64 65 66 69 6e 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 64 6f 63 75 | define-pattern-substitution.docu |
| 13ee0 | 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 0a 28 64 65 66 69 6e 65 | mentation-string.string).(define |
| 13f00 | 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 69 6e 69 74 69 61 6c 2d 76 61 | -pattern-substitution.initial-va |
| 13f20 | 6c 75 65 20 66 6f 72 6d 29 0a 28 64 65 66 69 6e 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 | lue.form).(define-pattern-substi |
| 13f40 | 74 75 74 69 6f 6e 20 74 61 67 20 73 79 6d 62 6f 6c 29 0a 28 64 65 66 69 6e 65 2d 70 61 74 74 65 | tution.tag.symbol).(define-patte |
| 13f60 | 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 28 28 3a 65 | rn-substitution.declaration.((:e |
| 13f80 | 71 20 64 65 63 6c 61 72 65 29 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 29 0a 28 64 65 66 | q.declare)(:rest.:ignore))).(def |
| 13fa0 | 69 6e 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 64 65 73 74 69 6e 61 | ine-pattern-substitution.destina |
| 13fc0 | 74 69 6f 6e 20 66 6f 72 6d 29 0a 28 64 65 66 69 6e 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 | tion.form).(define-pattern-subst |
| 13fe0 | 69 74 75 74 69 6f 6e 20 63 6f 6e 74 72 6f 6c 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 0a 28 | itution.control-string.string).( |
| 14000 | 64 65 66 69 6e 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 66 6f 72 6d | define-pattern-substitution.form |
| 14020 | 61 74 2d 61 72 67 75 6d 65 6e 74 73 20 0a 20 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 29 0a | at-arguments....((:star.form))). |
| 14040 | 28 64 65 66 69 6e 65 2d 70 61 74 74 65 72 6e 2d 73 75 62 73 74 69 74 75 74 69 6f 6e 20 66 6e 0a | (define-pattern-substitution.fn. |
| 14060 | 20 20 28 3a 6f 72 20 28 28 3a 65 71 20 71 75 6f 74 65 29 20 66 75 6e 63 74 69 6f 6e 29 20 0a 20 | ..(:or.((:eq.quote).function)... |
| 14080 | 20 20 20 20 20 20 28 28 3a 65 71 20 66 75 6e 63 74 69 6f 6e 29 20 66 75 6e 63 74 69 6f 6e 29 0a | ......((:eq.function).function). |
| 140a0 | 20 20 20 20 20 20 20 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a | .......function))..;;;.********* |
| 140c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 43 61 6c 6c | ***********************.;;;.Call |
| 140e0 | 65 72 20 50 61 74 74 65 72 6e 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b | er.Patterns.****************.;;; |
| 14100 | 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .******************************* |
| 14120 | 2a 0a 0a 3b 3b 3b 20 54 79 70 65 73 20 52 65 6c 61 74 65 64 0a 28 64 65 66 69 6e 65 2d 63 61 6c | *..;;;.Types.Related.(define-cal |
| 14140 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 65 72 63 65 20 28 66 6f 72 6d 20 3a 69 67 6e 6f 72 65 | ler-pattern.coerce.(form.:ignore |
| 14160 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 14180 | 74 79 70 65 2d 6f 66 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | type-of.(form).:lisp).(define-ca |
| 141a0 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 70 67 72 61 64 65 64 2d 61 72 72 61 79 2d 65 6c 65 6d | ller-pattern.upgraded-array-elem |
| 141c0 | 65 6e 74 2d 74 79 70 65 20 28 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 | ent-type.(:ignore).:lisp2).(defi |
| 141e0 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 70 67 72 61 64 65 64 2d 63 6f 6d 70 6c | ne-caller-pattern.upgraded-compl |
| 14200 | 65 78 2d 70 61 72 74 2d 74 79 70 65 20 28 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 32 29 0a 0a | ex-part-type.(:ignore).:lisp2).. |
| 14220 | 3b 3b 3b 20 4c 61 6d 62 64 61 73 20 61 6e 64 20 44 65 66 69 6e 69 74 69 6f 6e 73 0a 28 64 65 66 | ;;;.Lambdas.and.Definitions.(def |
| 14240 | 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c 61 6d 62 64 61 2d 6c 69 73 74 | ine-variable-pattern.lambda-list |
| 14260 | 2d 6b 65 79 77 6f 72 64 73 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c | -keywords.:lisp).(define-variabl |
| 14280 | 65 2d 70 61 74 74 65 72 6e 20 6c 61 6d 62 64 61 2d 70 61 72 61 6d 65 74 65 72 73 2d 6c 69 6d 69 | e-pattern.lambda-parameters-limi |
| 142a0 | 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | t.:lisp).(define-caller-pattern. |
| 142c0 | 6c 61 6d 62 64 61 20 28 6c 61 6d 62 64 61 2d 6c 69 73 74 20 28 3a 72 65 73 74 20 62 6f 64 79 29 | lambda.(lambda-list.(:rest.body) |
| 142e0 | 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | ).:lisp)..(define-caller-pattern |
| 14300 | 20 64 65 66 75 6e 20 0a 20 20 28 6e 61 6d 65 20 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 09 28 3a 73 | .defun....(name.lambda-list..(:s |
| 14320 | 74 61 72 20 28 3a 6f 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 64 65 | tar.(:or.documentation-string.de |
| 14340 | 63 6c 61 72 61 74 69 6f 6e 29 29 0a 09 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 | claration))..(:star.form))...:li |
| 14360 | 73 70 29 0a 0a 3b 3b 3b 20 70 65 72 68 61 70 73 20 74 68 69 73 20 73 68 6f 75 6c 64 20 75 73 65 | sp)..;;;.perhaps.this.should.use |
| 14380 | 20 56 41 52 2c 20 69 6e 73 74 65 61 64 20 6f 66 20 4e 41 4d 45 0a 28 64 65 66 69 6e 65 2d 63 61 | .VAR,.instead.of.NAME.(define-ca |
| 143a0 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 66 76 61 72 20 0a 20 20 28 76 61 72 20 28 3a 6f 70 | ller-pattern.defvar....(var.(:op |
| 143c0 | 74 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 | tional.initial-value.(:optional. |
| 143e0 | 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 3a 6c 69 73 70 29 | documentation-string)))...:lisp) |
| 14400 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 66 70 61 72 61 6d | .(define-caller-pattern.defparam |
| 14420 | 65 74 65 72 0a 20 20 28 76 61 72 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 20 28 3a 6f 70 74 69 | eter...(var.initial-value.(:opti |
| 14440 | 6f 6e 61 6c 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 20 20 3a 6c | onal.documentation-string))...:l |
| 14460 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 66 63 | isp).(define-caller-pattern.defc |
| 14480 | 6f 6e 73 74 61 6e 74 0a 20 20 28 76 61 72 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 20 28 3a 6f | onstant...(var.initial-value.(:o |
| 144a0 | 70 74 69 6f 6e 61 6c 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 20 | ptional.documentation-string)).. |
| 144c0 | 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | .:lisp)..(define-caller-pattern. |
| 144e0 | 65 76 61 6c 2d 77 68 65 6e 0a 20 20 28 3a 69 67 6e 6f 72 65 09 09 09 09 3b 20 74 68 65 20 73 69 | eval-when...(:ignore....;.the.si |
| 14500 | 74 75 61 74 69 6f 6e 73 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 | tuations....(:star.form))...:lis |
| 14520 | 70 29 0a 0a 3b 3b 3b 20 4c 6f 67 69 63 61 6c 20 56 61 6c 75 65 73 0a 28 64 65 66 69 6e 65 2d 76 | p)..;;;.Logical.Values.(define-v |
| 14540 | 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6e 69 6c 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | ariable-pattern.nil.:lisp).(defi |
| 14560 | 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 74 20 3a 6c 69 73 70 29 0a 0a 3b 3b | ne-variable-pattern.t.:lisp)..;; |
| 14580 | 3b 20 50 72 65 64 69 63 61 74 65 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | ;.Predicates.(define-caller-patt |
| 145a0 | 65 72 6e 20 74 79 70 65 70 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 | ern.typep.(form.form).:lisp).(de |
| 145c0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 75 62 74 79 70 65 70 20 28 66 6f | fine-caller-pattern.subtypep.(fo |
| 145e0 | 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | rm.form).:lisp)..(define-caller- |
| 14600 | 70 61 74 74 65 72 6e 20 6e 75 6c 6c 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | pattern.null.(form).:lisp).(defi |
| 14620 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 79 6d 62 6f 6c 70 20 28 66 6f 72 6d 29 | ne-caller-pattern.symbolp.(form) |
| 14640 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 | .:lisp).(define-caller-pattern.a |
| 14660 | 74 6f 6d 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | tom.(form).:lisp).(define-caller |
| 14680 | 2d 70 61 74 74 65 72 6e 20 63 6f 6e 73 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 | -pattern.consp.(form).:lisp).(de |
| 146a0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 69 73 74 70 20 28 66 6f 72 6d 29 | fine-caller-pattern.listp.(form) |
| 146c0 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e | .:lisp).(define-caller-pattern.n |
| 146e0 | 75 6d 62 65 72 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | umberp.(form).:lisp).(define-cal |
| 14700 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6e 74 65 67 65 72 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 | ler-pattern.integerp.(form).:lis |
| 14720 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 61 74 69 6f 6e | p).(define-caller-pattern.ration |
| 14740 | 61 6c 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | alp.(form).:lisp).(define-caller |
| 14760 | 2d 70 61 74 74 65 72 6e 20 66 6c 6f 61 74 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 | -pattern.floatp.(form).:lisp).(d |
| 14780 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 61 6c 70 20 28 66 6f 72 6d | efine-caller-pattern.realp.(form |
| 147a0 | 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | ).:lisp2).(define-caller-pattern |
| 147c0 | 20 63 6f 6d 70 6c 65 78 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | .complexp.(form).:lisp).(define- |
| 147e0 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 61 63 74 65 72 70 20 28 66 6f 72 6d 29 | caller-pattern.characterp.(form) |
| 14800 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 | .:lisp).(define-caller-pattern.s |
| 14820 | 74 72 69 6e 67 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | tringp.(form).:lisp).(define-cal |
| 14840 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 69 74 2d 76 65 63 74 6f 72 2d 70 20 28 66 6f 72 6d 29 20 | ler-pattern.bit-vector-p.(form). |
| 14860 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 76 65 | :lisp).(define-caller-pattern.ve |
| 14880 | 63 74 6f 72 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | ctorp.(form).:lisp).(define-call |
| 148a0 | 65 72 2d 70 61 74 74 65 72 6e 20 73 69 6d 70 6c 65 2d 76 65 63 74 6f 72 2d 70 20 28 66 6f 72 6d | er-pattern.simple-vector-p.(form |
| 148c0 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 148e0 | 73 69 6d 70 6c 65 2d 73 74 72 69 6e 67 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 | simple-string-p.(form).:lisp).(d |
| 14900 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 69 6d 70 6c 65 2d 62 69 74 2d | efine-caller-pattern.simple-bit- |
| 14920 | 76 65 63 74 6f 72 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | vector-p.(form).:lisp).(define-c |
| 14940 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 72 72 61 79 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 | aller-pattern.arrayp.(form).:lis |
| 14960 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 63 6b 61 67 | p).(define-caller-pattern.packag |
| 14980 | 65 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | ep.(form).:lisp).(define-caller- |
| 149a0 | 70 61 74 74 65 72 6e 20 66 75 6e 63 74 69 6f 6e 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | pattern.functionp.(form).:lisp). |
| 149c0 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6d 70 69 6c 65 64 2d | (define-caller-pattern.compiled- |
| 149e0 | 66 75 6e 63 74 69 6f 6e 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | function-p.(form).:lisp).(define |
| 14a00 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6d 6d 6f 6e 70 20 28 66 6f 72 6d 29 20 3a | -caller-pattern.commonp.(form).: |
| 14a20 | 6c 69 73 70 29 0a 0a 3b 3b 3b 20 45 71 75 61 6c 69 74 79 20 50 72 65 64 69 63 61 74 65 73 0a 28 | lisp)..;;;.Equality.Predicates.( |
| 14a40 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 71 20 28 66 6f 72 6d 20 66 | define-caller-pattern.eq.(form.f |
| 14a60 | 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | orm).:lisp).(define-caller-patte |
| 14a80 | 72 6e 20 65 71 6c 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | rn.eql.(form.form).:lisp).(defin |
| 14aa0 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 71 75 61 6c 20 28 66 6f 72 6d 20 66 6f 72 | e-caller-pattern.equal.(form.for |
| 14ac0 | 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | m).:lisp).(define-caller-pattern |
| 14ae0 | 20 65 71 75 61 6c 70 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 | .equalp.(form.form).:lisp)..;;;. |
| 14b00 | 4c 6f 67 69 63 61 6c 20 4f 70 65 72 61 74 6f 72 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | Logical.Operators.(define-caller |
| 14b20 | 2d 70 61 74 74 65 72 6e 20 6e 6f 74 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | -pattern.not.(form).:lisp).(defi |
| 14b40 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6f 72 20 28 28 3a 73 74 61 72 20 66 6f 72 | ne-caller-pattern.or.((:star.for |
| 14b60 | 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m)).:lisp).(define-caller-patter |
| 14b80 | 6e 20 61 6e 64 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b | n.and.((:star.form)).:lisp)..;;; |
| 14ba0 | 20 52 65 66 65 72 65 6e 63 65 0a 0a 3b 3b 3b 20 51 75 6f 74 65 20 69 73 20 61 20 70 72 6f 62 6c | .Reference..;;;.Quote.is.a.probl |
| 14bc0 | 65 6d 2e 20 49 6e 20 44 65 66 6d 61 63 72 6f 20 26 20 66 72 69 65 6e 64 73 2c 20 77 65 27 64 20 | em..In.Defmacro.&.friends,.we'd. |
| 14be0 | 6c 69 6b 65 20 74 6f 20 61 63 74 75 61 6c 6c 79 0a 3b 3b 3b 20 6c 6f 6f 6b 20 61 74 20 74 68 65 | like.to.actually.;;;.look.at.the |
| 14c00 | 20 61 72 67 75 6d 65 6e 74 2c 20 27 63 61 75 73 65 20 69 74 20 68 69 64 65 73 20 69 6e 74 65 72 | .argument,.'cause.it.hides.inter |
| 14c20 | 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 73 0a 3b 3b 3b 20 6f 66 20 74 68 65 20 64 65 | nal.function.calls.;;;.of.the.de |
| 14c40 | 66 6d 61 63 72 6f 2e 20 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | fmacro...(define-caller-pattern. |
| 14c60 | 71 75 6f 74 65 20 28 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d | quote.(:ignore).:lisp)..(define- |
| 14c80 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 75 6e 63 74 69 6f 6e 20 28 28 3a 6f 72 20 66 6e | caller-pattern.function.((:or.fn |
| 14ca0 | 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .form)).:lisp).(define-caller-pa |
| 14cc0 | 74 74 65 72 6e 20 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 | ttern.symbol-value.(form).:lisp) |
| 14ce0 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 79 6d 62 6f 6c 2d 66 | .(define-caller-pattern.symbol-f |
| 14d00 | 75 6e 63 74 69 6f 6e 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | unction.(form).:lisp).(define-ca |
| 14d20 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 64 65 66 69 6e 69 74 69 6f 6e 20 28 66 6f 72 6d 29 20 | ller-pattern.fdefinition.(form). |
| 14d40 | 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 | :lisp2).(define-caller-pattern.b |
| 14d60 | 6f 75 6e 64 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | oundp.(form).:lisp).(define-call |
| 14d80 | 65 72 2d 70 61 74 74 65 72 6e 20 66 62 6f 75 6e 64 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 | er-pattern.fboundp.(form).:lisp) |
| 14da0 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 70 65 63 69 61 6c 2d | .(define-caller-pattern.special- |
| 14dc0 | 66 6f 72 6d 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 41 73 73 69 67 6e | form-p.(form).:lisp)..;;;.Assign |
| 14de0 | 6d 65 6e 74 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 65 74 71 | ment.(define-caller-pattern.setq |
| 14e00 | 20 28 28 3a 73 74 61 72 20 76 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | .((:star.var.form)).:lisp).(defi |
| 14e20 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 73 65 74 71 20 28 28 3a 73 74 61 72 20 | ne-caller-pattern.psetq.((:star. |
| 14e40 | 76 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | var.form)).:lisp).(define-caller |
| 14e60 | 2d 70 61 74 74 65 72 6e 20 73 65 74 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | -pattern.set.(form.form).:lisp). |
| 14e80 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 75 6e 62 6f 75 6e | (define-caller-pattern.makunboun |
| 14ea0 | 64 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | d.(form).:lisp).(define-caller-p |
| 14ec0 | 61 74 74 65 72 6e 20 66 6d 61 6b 75 6e 62 6f 75 6e 64 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 | attern.fmakunbound.(form).:lisp) |
| 14ee0 | 0a 0a 3b 3b 3b 20 47 65 6e 65 72 61 6c 69 7a 65 64 20 56 61 72 69 61 62 6c 65 73 0a 28 64 65 66 | ..;;;.Generalized.Variables.(def |
| 14f00 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 65 74 66 20 28 28 3a 73 74 61 72 20 | ine-caller-pattern.setf.((:star. |
| 14f20 | 66 6f 72 6d 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | form.form)).:lisp).(define-calle |
| 14f40 | 72 2d 70 61 74 74 65 72 6e 20 70 73 65 74 66 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 20 66 6f 72 | r-pattern.psetf.((:star.form.for |
| 14f60 | 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m)).:lisp).(define-caller-patter |
| 14f80 | 6e 20 73 68 69 66 74 66 20 28 28 3a 70 6c 75 73 20 66 6f 72 6d 29 20 66 6f 72 6d 29 20 3a 6c 69 | n.shiftf.((:plus.form).form).:li |
| 14fa0 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 6f 74 61 74 | sp).(define-caller-pattern.rotat |
| 14fc0 | 65 66 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | ef.((:star.form)).:lisp).(define |
| 14fe0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 66 69 6e 65 2d 6d 6f 64 69 66 79 2d 6d 61 | -caller-pattern.define-modify-ma |
| 15000 | 63 72 6f 20 0a 20 20 28 6e 61 6d 65 0a 20 20 20 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 20 20 20 66 | cro....(name....lambda-list....f |
| 15020 | 6e 0a 20 20 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 | n....(:optional.documentation-st |
| 15040 | 72 69 6e 67 29 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | ring))...:lisp).(define-caller-p |
| 15060 | 61 74 74 65 72 6e 20 64 65 66 73 65 74 66 20 0a 20 20 28 3a 6f 72 20 28 6e 61 6d 65 20 6e 61 6d | attern.defsetf....(:or.(name.nam |
| 15080 | 65 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e | e.(:optional.documentation-strin |
| 150a0 | 67 29 29 0a 20 20 20 20 20 20 20 28 6e 61 6d 65 20 6c 61 6d 62 64 61 2d 6c 69 73 74 20 28 76 61 | g))........(name.lambda-list.(va |
| 150c0 | 72 29 0a 09 28 3a 73 74 61 72 20 28 3a 6f 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 64 6f 63 75 | r)..(:star.(:or.declaration.docu |
| 150e0 | 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 09 28 3a 73 74 61 72 20 66 6f 72 6d 29 | mentation-string))..(:star.form) |
| 15100 | 29 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | ))...:lisp).(define-caller-patte |
| 15120 | 72 6e 20 64 65 66 69 6e 65 2d 73 65 74 66 2d 6d 65 74 68 6f 64 0a 20 20 28 6e 61 6d 65 20 6c 61 | rn.define-setf-method...(name.la |
| 15140 | 6d 62 64 61 2d 6c 69 73 74 0a 20 20 20 28 3a 73 74 61 72 20 28 3a 6f 72 20 64 65 63 6c 61 72 61 | mbda-list....(:star.(:or.declara |
| 15160 | 74 69 6f 6e 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 28 | tion.documentation-string))....( |
| 15180 | 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | :star.form))...:lisp).(define-ca |
| 151a0 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 65 74 2d 73 65 74 66 2d 6d 65 74 68 6f 64 20 28 66 6f | ller-pattern.get-setf-method.(fo |
| 151c0 | 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | rm).:lisp).(define-caller-patter |
| 151e0 | 6e 20 67 65 74 2d 73 65 74 66 2d 6d 65 74 68 6f 64 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | n.get-setf-method-multiple-value |
| 15200 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 0a 3b 3b 3b 20 46 75 6e 63 74 69 6f 6e 20 69 6e | .(form).:lisp)...;;;.Function.in |
| 15220 | 76 6f 63 61 74 69 6f 6e 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | vocation.(define-caller-pattern. |
| 15240 | 61 70 70 6c 79 20 28 66 6e 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 | apply.(fn.form.(:star.form)).:li |
| 15260 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 75 6e 63 61 | sp).(define-caller-pattern.funca |
| 15280 | 6c 6c 20 28 66 6e 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 0a 3b 3b | ll.(fn.(:star.form)).:lisp)...;; |
| 152a0 | 3b 20 53 69 6d 70 6c 65 20 73 65 71 75 65 6e 63 69 6e 67 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | ;.Simple.sequencing.(define-call |
| 152c0 | 65 72 2d 70 61 74 74 65 72 6e 20 70 72 6f 67 6e 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 | er-pattern.progn.((:star.form)). |
| 152e0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 72 | :lisp).(define-caller-pattern.pr |
| 15300 | 6f 67 31 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 | og1.(form.(:star.form)).:lisp).( |
| 15320 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 72 6f 67 32 20 28 66 6f 72 | define-caller-pattern.prog2.(for |
| 15340 | 6d 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b | m.form.(:star.form)).:lisp)..;;; |
| 15360 | 20 56 61 72 69 61 62 6c 65 20 62 69 6e 64 69 6e 67 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | .Variable.bindings.(define-calle |
| 15380 | 72 2d 70 61 74 74 65 72 6e 20 6c 65 74 0a 20 20 28 28 28 3a 73 74 61 72 20 28 3a 6f 72 20 76 61 | r-pattern.let...(((:star.(:or.va |
| 153a0 | 72 20 28 76 61 72 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 28 3a 73 | r.(var.&optional.form))))....(:s |
| 153c0 | 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 | tar.declaration)....(:star.form) |
| 153e0 | 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | )...:lisp).(define-caller-patter |
| 15400 | 6e 20 6c 65 74 2a 0a 20 20 28 28 28 3a 73 74 61 72 20 28 3a 6f 72 20 76 61 72 20 28 76 61 72 20 | n.let*...(((:star.(:or.var.(var. |
| 15420 | 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 28 3a 73 74 61 72 20 64 65 | &optional.form)))).....(:star.de |
| 15440 | 63 6c 61 72 61 74 69 6f 6e 29 0a 20 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a | claration).....(:star.form))...: |
| 15460 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6d | lisp).(define-caller-pattern.com |
| 15480 | 70 69 6c 65 72 2d 6c 65 74 0a 20 20 28 28 28 3a 73 74 61 72 20 28 3a 6f 72 20 76 61 72 20 28 76 | piler-let...(((:star.(:or.var.(v |
| 154a0 | 61 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 | ar.form)))).....(:star.form))... |
| 154c0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 72 | :lisp).(define-caller-pattern.pr |
| 154e0 | 6f 67 76 0a 20 20 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a | ogv...(form.form.(:star.form)).: |
| 15500 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 6c 65 | lisp).(define-caller-pattern.fle |
| 15520 | 74 0a 20 20 28 28 28 3a 73 74 61 72 20 28 6e 61 6d 65 20 6c 61 6d 62 64 61 2d 6c 69 73 74 20 0a | t...(((:star.(name.lambda-list.. |
| 15540 | 09 09 20 28 3a 73 74 61 72 20 28 3a 6f 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 0a 09 09 09 20 20 | ...(:star.(:or.declaration...... |
| 15560 | 20 20 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 09 09 20 28 3a 73 | ...documentation-string))....(:s |
| 15580 | 74 61 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 | tar.form))))....(:star.form))... |
| 155a0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 61 | :lisp).(define-caller-pattern.la |
| 155c0 | 62 65 6c 73 0a 20 20 28 28 28 3a 73 74 61 72 20 28 6e 61 6d 65 20 6c 61 6d 62 64 61 2d 6c 69 73 | bels...(((:star.(name.lambda-lis |
| 155e0 | 74 20 0a 09 09 20 28 3a 73 74 61 72 20 28 3a 6f 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 0a 09 09 | t.....(:star.(:or.declaration... |
| 15600 | 09 20 20 20 20 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 09 09 20 | ......documentation-string)).... |
| 15620 | 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 | (:star.form))))....(:star.form)) |
| 15640 | 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | ...:lisp).(define-caller-pattern |
| 15660 | 20 6d 61 63 72 6f 6c 65 74 0a 20 20 28 28 28 3a 73 74 61 72 20 28 6e 61 6d 65 20 6c 61 6d 62 64 | .macrolet...(((:star.(name.lambd |
| 15680 | 61 2d 6c 69 73 74 20 0a 09 09 20 28 3a 73 74 61 72 20 28 3a 6f 72 20 64 65 63 6c 61 72 61 74 69 | a-list.....(:star.(:or.declarati |
| 156a0 | 6f 6e 0a 09 09 09 20 20 20 20 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 | on.........documentation-string) |
| 156c0 | 29 0a 09 09 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 28 3a 73 74 61 72 20 66 | )....(:star.form))))....(:star.f |
| 156e0 | 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | orm))...:lisp).(define-caller-pa |
| 15700 | 74 74 65 72 6e 20 73 79 6d 62 6f 6c 2d 6d 61 63 72 6f 6c 65 74 0a 20 20 28 28 28 3a 73 74 61 72 | ttern.symbol-macrolet...(((:star |
| 15720 | 20 28 76 61 72 20 66 6f 72 6d 29 29 29 20 28 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e | .(var.form))).(:star.declaration |
| 15740 | 29 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 0a 3b 3b 3b 20 43 | ).(:star.form))...:lisp2)..;;;.C |
| 15760 | 6f 6e 64 69 74 69 6f 6e 61 6c 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | onditionals.(define-caller-patte |
| 15780 | 72 6e 20 69 66 20 28 74 65 73 74 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d | rn.if.(test.form.(:optional.form |
| 157a0 | 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | )).:lisp).(define-caller-pattern |
| 157c0 | 20 77 68 65 6e 20 28 74 65 73 74 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 | .when.(test.(:star.form)).:lisp) |
| 157e0 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 6e 6c 65 73 73 20 28 | .(define-caller-pattern.unless.( |
| 15800 | 74 65 73 74 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | test.(:star.form)).:lisp).(defin |
| 15820 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6e 64 20 28 28 3a 73 74 61 72 20 28 74 | e-caller-pattern.cond.((:star.(t |
| 15840 | 65 73 74 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | est.(:star.form)))).:lisp).(defi |
| 15860 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 61 73 65 0a 20 20 28 66 6f 72 6d 0a 20 | ne-caller-pattern.case...(form.. |
| 15880 | 20 20 28 3a 73 74 61 72 20 28 28 3a 6f 72 20 73 79 6d 62 6f 6c 0a 09 09 28 28 3a 73 74 61 72 20 | ..(:star.((:or.symbol...((:star. |
| 158a0 | 73 79 6d 62 6f 6c 29 29 29 0a 09 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 29 29 20 0a 20 | symbol))).....(:star.form))))... |
| 158c0 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 | .:lisp).(define-caller-pattern.t |
| 158e0 | 79 70 65 63 61 73 65 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 28 73 79 6d 62 6f 6c 20 28 3a 73 | ypecase.(form.(:star.(symbol.(:s |
| 15900 | 74 61 72 20 66 6f 72 6d 29 29 29 29 20 0a 20 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 42 6c 6f 63 | tar.form))))....:lisp)..;;;.Bloc |
| 15920 | 6b 73 20 61 6e 64 20 45 78 69 74 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | ks.and.Exits.(define-caller-patt |
| 15940 | 65 72 6e 20 62 6c 6f 63 6b 20 28 6e 61 6d 65 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c | ern.block.(name.(:star.form)).:l |
| 15960 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 74 75 | isp).(define-caller-pattern.retu |
| 15980 | 72 6e 2d 66 72 6f 6d 20 28 66 75 6e 63 74 69 6f 6e 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 | rn-from.(function.(:optional.for |
| 159a0 | 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m)).:lisp).(define-caller-patter |
| 159c0 | 6e 20 72 65 74 75 72 6e 20 28 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 | n.return.((:optional.form)).:lis |
| 159e0 | 70 29 0a 0a 3b 3b 3b 20 49 74 65 72 61 74 69 6f 6e 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | p)..;;;.Iteration.(define-caller |
| 15a00 | 2d 70 61 74 74 65 72 6e 20 6c 6f 6f 70 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 | -pattern.loop.((:star.form)).:li |
| 15a20 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 6f 0a 20 20 | sp).(define-caller-pattern.do... |
| 15a40 | 28 28 28 3a 73 74 61 72 20 28 3a 6f 72 20 76 61 72 0a 09 09 28 76 61 72 20 28 3a 6f 70 74 69 6f | (((:star.(:or.var...(var.(:optio |
| 15a60 | 6e 61 6c 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 29 29 29 29 20 3b | nal.form.(:optional.form)))))).; |
| 15a80 | 20 69 6e 69 74 20 73 74 65 70 0a 20 20 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 | .init.step....(form.(:star.form) |
| 15aa0 | 29 20 3b 20 65 6e 64 2d 74 65 73 74 20 72 65 73 75 6c 74 0a 20 20 20 28 3a 73 74 61 72 20 64 65 | ).;.end-test.result....(:star.de |
| 15ac0 | 63 6c 61 72 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 28 3a 6f 72 20 74 61 67 20 66 6f | claration)....(:star.(:or.tag.fo |
| 15ae0 | 72 6d 29 29 29 09 09 3b 20 73 74 61 74 65 6d 65 6e 74 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 | rm)))..;.statement...:lisp).(def |
| 15b00 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 6f 2a 0a 20 20 28 28 28 3a 73 74 61 | ine-caller-pattern.do*...(((:sta |
| 15b20 | 72 20 28 3a 6f 72 20 76 61 72 0a 09 09 28 76 61 72 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 | r.(:or.var...(var.(:optional.for |
| 15b40 | 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 29 29 29 29 20 0a 20 20 20 28 66 6f 72 | m.(:optional.form)))))).....(for |
| 15b60 | 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 20 28 3a 73 74 61 72 20 64 65 63 6c 61 72 | m.(:star.form))....(:star.declar |
| 15b80 | 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 28 3a 6f 72 20 74 61 67 20 66 6f 72 6d 29 29 | ation)....(:star.(:or.tag.form)) |
| 15ba0 | 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | )...:lisp).(define-caller-patter |
| 15bc0 | 6e 20 64 6f 6c 69 73 74 0a 20 20 28 28 76 61 72 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c | n.dolist...((var.form.(:optional |
| 15be0 | 20 66 6f 72 6d 29 29 0a 20 20 20 28 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 0a 20 | .form))....(:star.declaration).. |
| 15c00 | 20 20 28 3a 73 74 61 72 20 28 3a 6f 72 20 74 61 67 20 66 6f 72 6d 29 29 29 0a 20 20 3a 6c 69 73 | ..(:star.(:or.tag.form)))...:lis |
| 15c20 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 6f 74 69 6d 65 | p).(define-caller-pattern.dotime |
| 15c40 | 73 0a 20 20 28 28 76 61 72 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 | s...((var.form.(:optional.form)) |
| 15c60 | 0a 20 20 20 28 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 | ....(:star.declaration)....(:sta |
| 15c80 | 72 20 28 3a 6f 72 20 74 61 67 20 66 6f 72 6d 29 29 29 0a 20 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b | r.(:or.tag.form)))...:lisp)..;;; |
| 15ca0 | 20 4d 61 70 70 69 6e 67 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | .Mapping.(define-caller-pattern. |
| 15cc0 | 6d 61 70 63 61 72 20 28 66 6e 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c | mapcar.(fn.form.(:star.form)).:l |
| 15ce0 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 70 6c | isp).(define-caller-pattern.mapl |
| 15d00 | 69 73 74 20 28 66 6e 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 | ist.(fn.form.(:star.form)).:lisp |
| 15d20 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 70 63 20 28 66 | ).(define-caller-pattern.mapc.(f |
| 15d40 | 6e 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | n.form.(:star.form)).:lisp).(def |
| 15d60 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 70 6c 20 28 66 6e 20 66 6f 72 6d | ine-caller-pattern.mapl.(fn.form |
| 15d80 | 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | .(:star.form)).:lisp).(define-ca |
| 15da0 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 70 63 61 6e 20 28 66 6e 20 66 6f 72 6d 20 28 3a 73 | ller-pattern.mapcan.(fn.form.(:s |
| 15dc0 | 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | tar.form)).:lisp).(define-caller |
| 15de0 | 2d 70 61 74 74 65 72 6e 20 6d 61 70 63 6f 6e 20 28 66 6e 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 | -pattern.mapcon.(fn.form.(:star. |
| 15e00 | 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 54 68 65 20 22 50 72 6f 67 72 61 6d 20 | form)).:lisp)..;;;.The."Program. |
| 15e20 | 46 65 61 74 75 72 65 22 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | Feature".(define-caller-pattern. |
| 15e40 | 74 61 67 62 6f 64 79 20 28 28 3a 73 74 61 72 20 28 3a 6f 72 20 74 61 67 20 66 6f 72 6d 29 29 29 | tagbody.((:star.(:or.tag.form))) |
| 15e60 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 | .:lisp).(define-caller-pattern.p |
| 15e80 | 72 6f 67 0a 20 20 28 28 28 3a 73 74 61 72 20 28 3a 6f 72 20 76 61 72 20 28 76 61 72 20 28 3a 6f | rog...(((:star.(:or.var.(var.(:o |
| 15ea0 | 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 29 29 29 0a 20 20 20 28 3a 73 74 61 72 20 64 65 63 6c | ptional.form)))))....(:star.decl |
| 15ec0 | 61 72 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 28 3a 6f 72 20 74 61 67 20 66 6f 72 6d | aration)....(:star.(:or.tag.form |
| 15ee0 | 29 29 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | )))...:lisp).(define-caller-patt |
| 15f00 | 65 72 6e 20 70 72 6f 67 2a 20 20 20 20 0a 20 20 28 28 28 3a 73 74 61 72 20 28 3a 6f 72 20 76 61 | ern.prog*.......(((:star.(:or.va |
| 15f20 | 72 20 28 76 61 72 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 29 29 29 0a 20 20 20 28 | r.(var.(:optional.form)))))....( |
| 15f40 | 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 28 3a 6f | :star.declaration)....(:star.(:o |
| 15f60 | 72 20 74 61 67 20 66 6f 72 6d 29 29 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | r.tag.form)))...:lisp).(define-c |
| 15f80 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 6f 20 28 74 61 67 29 20 3a 6c 69 73 70 29 0a 0a 3b | aller-pattern.go.(tag).:lisp)..; |
| 15fa0 | 3b 3b 20 4d 75 6c 74 69 70 6c 65 20 56 61 6c 75 65 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | ;;.Multiple.Values.(define-calle |
| 15fc0 | 72 2d 70 61 74 74 65 72 6e 20 76 61 6c 75 65 73 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 | r-pattern.values.((:star.form)). |
| 15fe0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 | :lisp).(define-variable-pattern. |
| 16000 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 73 2d 6c 69 6d 69 74 20 3a 6c 69 73 70 29 0a 28 64 65 | multiple-values-limit.:lisp).(de |
| 16020 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 76 61 6c 75 65 73 2d 6c 69 73 74 20 | fine-caller-pattern.values-list. |
| 16040 | 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | (form).:lisp).(define-caller-pat |
| 16060 | 74 65 72 6e 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 66 6f 72 6d 29 20 | tern.multiple-value-list.(form). |
| 16080 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 75 | :lisp).(define-caller-pattern.mu |
| 160a0 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 20 28 66 6e 20 28 3a 73 74 61 72 20 66 6f 72 | ltiple-value-call.(fn.(:star.for |
| 160c0 | 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m)).:lisp).(define-caller-patter |
| 160e0 | 6e 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 70 72 6f 67 31 20 28 66 6f 72 6d 20 28 3a 73 | n.multiple-value-prog1.(form.(:s |
| 16100 | 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | tar.form)).:lisp).(define-caller |
| 16120 | 2d 70 61 74 74 65 72 6e 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 0a 20 20 28 | -pattern.multiple-value-bind...( |
| 16140 | 28 28 3a 73 74 61 72 20 76 61 72 29 29 20 66 6f 72 6d 0a 20 20 20 28 3a 73 74 61 72 20 64 65 63 | ((:star.var)).form....(:star.dec |
| 16160 | 6c 61 72 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 | laration)....(:star.form))...:li |
| 16180 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 75 6c 74 69 | sp).(define-caller-pattern.multi |
| 161a0 | 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 28 28 3a 73 74 61 72 20 76 61 72 29 29 20 66 6f | ple-value-setq.(((:star.var)).fo |
| 161c0 | 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | rm).:lisp).(define-caller-patter |
| 161e0 | 6e 20 6e 74 68 2d 76 61 6c 75 65 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a | n.nth-value.(form.form).:lisp2). |
| 16200 | 0a 3b 3b 3b 20 44 79 6e 61 6d 69 63 20 4e 6f 6e 2d 4c 6f 63 61 6c 20 45 78 69 74 73 0a 28 64 65 | .;;;.Dynamic.Non-Local.Exits.(de |
| 16220 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 61 74 63 68 20 28 74 61 67 20 28 | fine-caller-pattern.catch.(tag.( |
| 16240 | 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | :star.form)).:lisp).(define-call |
| 16260 | 65 72 2d 70 61 74 74 65 72 6e 20 74 68 72 6f 77 20 28 74 61 67 20 66 6f 72 6d 29 20 3a 6c 69 73 | er-pattern.throw.(tag.form).:lis |
| 16280 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 6e 77 69 6e 64 | p).(define-caller-pattern.unwind |
| 162a0 | 2d 70 72 6f 74 65 63 74 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 | -protect.(form.(:star.form)).:li |
| 162c0 | 73 70 29 0a 0a 3b 3b 3b 20 4d 61 63 72 6f 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | sp)..;;;.Macros.(define-caller-p |
| 162e0 | 61 74 74 65 72 6e 20 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 28 66 6f 72 6d 29 20 3a 6c 69 | attern.macro-function.(form).:li |
| 16300 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 66 6d 61 | sp).(define-caller-pattern.defma |
| 16320 | 63 72 6f 0a 20 20 28 6e 61 6d 65 0a 20 20 20 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 20 20 20 28 3a | cro...(name....lambda-list....(: |
| 16340 | 73 74 61 72 20 28 3a 6f 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 64 6f 63 75 6d 65 6e 74 61 74 | star.(:or.declaration.documentat |
| 16360 | 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 | ion-string))....(:star.form))... |
| 16380 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 | :lisp).(define-caller-pattern.ma |
| 163a0 | 63 72 6f 65 78 70 61 6e 64 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f | croexpand.(form.(:optional.:igno |
| 163c0 | 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | re)).:lisp).(define-caller-patte |
| 163e0 | 72 6e 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 | rn.macroexpand-1.(form.(:optiona |
| 16400 | 6c 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 | l.:ignore)).:lisp).(define-varia |
| 16420 | 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 68 6f 6f 6b 2a 20 3a | ble-pattern.*macroexpand-hook*.: |
| 16440 | 6c 69 73 70 29 0a 0a 3b 3b 3b 20 44 65 73 74 72 75 63 74 75 72 69 6e 67 0a 28 64 65 66 69 6e 65 | lisp)..;;;.Destructuring.(define |
| 16460 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 | -caller-pattern.destructuring-bi |
| 16480 | 6e 64 20 0a 20 20 28 6c 61 6d 62 64 61 2d 6c 69 73 74 20 66 6f 72 6d 0a 09 20 20 20 20 20 20 20 | nd....(lambda-list.form......... |
| 164a0 | 28 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 0a 09 20 20 20 20 20 20 20 28 3a 73 74 | (:star.declaration).........(:st |
| 164c0 | 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 | ar.form))...:lisp2)..;;;.Compile |
| 164e0 | 72 20 4d 61 63 72 6f 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | r.Macros.(define-caller-pattern. |
| 16500 | 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 0a 20 20 28 6e 61 6d 65 20 6c 61 | define-compiler-macro...(name.la |
| 16520 | 6d 62 64 61 2d 6c 69 73 74 0a 09 28 3a 73 74 61 72 20 28 3a 6f 72 20 64 65 63 6c 61 72 61 74 69 | mbda-list..(:star.(:or.declarati |
| 16540 | 6f 6e 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 09 28 3a 73 74 61 | on.documentation-string))..(:sta |
| 16560 | 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | r.form))...:lisp2).(define-calle |
| 16580 | 72 2d 70 61 74 74 65 72 6e 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f | r-pattern.compiler-macro-functio |
| 165a0 | 6e 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | n.(form).:lisp2).(define-caller- |
| 165c0 | 70 61 74 74 65 72 6e 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 28 66 6f | pattern.compiler-macroexpand.(fo |
| 165e0 | 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 32 29 0a | rm.(:optional.:ignore)).:lisp2). |
| 16600 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6d 70 69 6c 65 72 2d | (define-caller-pattern.compiler- |
| 16620 | 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 3a | macroexpand-1.(form.(:optional.: |
| 16640 | 69 67 6e 6f 72 65 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 0a 3b 3b 3b 20 45 6e 76 69 72 6f 6e 6d | ignore))...:lisp2)..;;;.Environm |
| 16660 | 65 6e 74 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 76 61 72 69 | ents.(define-caller-pattern.vari |
| 16680 | 61 62 6c 65 2d 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c | able-information.(form.&optional |
| 166a0 | 20 3a 69 67 6e 6f 72 65 29 20 0a 20 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | .:ignore)....:lisp2).(define-cal |
| 166c0 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 72 6d 61 74 69 6f 6e | ler-pattern.function-information |
| 166e0 | 20 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 32 29 0a | .(fn.&optional.:ignore).:lisp2). |
| 16700 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 63 6c 61 72 61 74 69 | (define-caller-pattern.declarati |
| 16720 | 6f 6e 2d 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 3a | on-information.(form.&optional.: |
| 16740 | 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | ignore).:lisp2).(define-caller-p |
| 16760 | 61 74 74 65 72 6e 20 61 75 67 6d 65 6e 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 66 6f 72 6d | attern.augment-environment.(form |
| 16780 | 20 26 6b 65 79 20 28 3a 73 74 61 72 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 32 29 0a 28 | .&key.(:star.:ignore)).:lisp2).( |
| 167a0 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 66 69 6e 65 2d 64 65 63 | define-caller-pattern.define-dec |
| 167c0 | 6c 61 72 61 74 69 6f 6e 20 0a 20 20 28 6e 61 6d 65 0a 20 20 20 6c 61 6d 62 64 61 2d 6c 69 73 74 | laration....(name....lambda-list |
| 167e0 | 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 0a 20 20 3a 6c 69 73 70 32 29 0a 28 64 65 | ....(:star.form))....:lisp2).(de |
| 16800 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 72 73 65 2d 6d 61 63 72 6f 20 | fine-caller-pattern.parse-macro. |
| 16820 | 28 6e 61 6d 65 20 6c 61 6d 62 64 61 2d 6c 69 73 74 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a | (name.lambda-list.form).:lisp2). |
| 16840 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 6e 63 6c 6f 73 65 20 28 | (define-caller-pattern.enclose.( |
| 16860 | 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 32 29 0a | form.&optional.:ignore).:lisp2). |
| 16880 | 0a 0a 3b 3b 3b 20 44 65 63 6c 61 72 61 74 69 6f 6e 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | ..;;;.Declarations.(define-calle |
| 168a0 | 72 2d 70 61 74 74 65 72 6e 20 64 65 63 6c 61 72 65 20 28 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 | r-pattern.declare.((:rest.:ignor |
| 168c0 | 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | e)).:lisp).(define-caller-patter |
| 168e0 | 6e 20 70 72 6f 63 6c 61 69 6d 20 28 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 | n.proclaim.((:rest.:ignore)).:li |
| 16900 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 63 61 6c | sp).(define-caller-pattern.local |
| 16920 | 6c 79 20 28 28 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 20 28 3a 73 74 61 72 20 66 | ly.((:star.declaration).(:star.f |
| 16940 | 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm)).:lisp).(define-caller-patt |
| 16960 | 65 72 6e 20 64 65 63 6c 61 69 6d 20 28 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c | ern.declaim.((:rest.:ignore)).:l |
| 16980 | 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 68 65 | isp2).(define-caller-pattern.the |
| 169a0 | 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 53 79 6d 62 6f 6c 73 | .(form.form).:lisp)..;;;.Symbols |
| 169c0 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 65 74 20 28 66 6f 72 | .(define-caller-pattern.get.(for |
| 169e0 | 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a | m.form.(:optional.form)).:lisp). |
| 16a00 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 6d 70 72 6f 70 20 28 | (define-caller-pattern.remprop.( |
| 16a20 | 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | form.form).:lisp).(define-caller |
| 16a40 | 2d 70 61 74 74 65 72 6e 20 73 79 6d 62 6f 6c 2d 70 6c 69 73 74 20 28 66 6f 72 6d 29 20 3a 6c 69 | -pattern.symbol-plist.(form).:li |
| 16a60 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 65 74 66 20 | sp).(define-caller-pattern.getf. |
| 16a80 | 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 | (form.form.(:optional.form)).:li |
| 16aa0 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 6d 66 20 | sp).(define-caller-pattern.remf. |
| 16ac0 | 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | (form.form).:lisp).(define-calle |
| 16ae0 | 72 2d 70 61 74 74 65 72 6e 20 67 65 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 66 6f 72 6d 20 66 | r-pattern.get-properties.(form.f |
| 16b00 | 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm).:lisp)..(define-caller-patt |
| 16b20 | 65 72 6e 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 | ern.symbol-name.(form).:lisp).(d |
| 16b40 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c | efine-caller-pattern.make-symbol |
| 16b60 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .(form).:lisp).(define-caller-pa |
| 16b80 | 74 74 65 72 6e 20 63 6f 70 79 2d 73 79 6d 62 6f 6c 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e | ttern.copy-symbol.(form.(:option |
| 16ba0 | 61 6c 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | al.:ignore)).:lisp).(define-call |
| 16bc0 | 65 72 2d 70 61 74 74 65 72 6e 20 67 65 6e 73 79 6d 20 28 28 3a 6f 70 74 69 6f 6e 61 6c 20 3a 69 | er-pattern.gensym.((:optional.:i |
| 16be0 | 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d | gnore)).:lisp).(define-variable- |
| 16c00 | 70 61 74 74 65 72 6e 20 2a 67 65 6e 73 79 6d 2d 63 6f 75 6e 74 65 72 2a 20 3a 6c 69 73 70 32 29 | pattern.*gensym-counter*.:lisp2) |
| 16c20 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 65 6e 74 65 6d 70 20 | .(define-caller-pattern.gentemp. |
| 16c40 | 28 28 3a 6f 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c | ((:optional.:ignore.:ignore)).:l |
| 16c60 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 79 6d 62 | isp).(define-caller-pattern.symb |
| 16c80 | 6f 6c 2d 70 61 63 6b 61 67 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | ol-package.(form).:lisp).(define |
| 16ca0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6b 65 79 77 6f 72 64 70 20 28 66 6f 72 6d 29 20 | -caller-pattern.keywordp.(form). |
| 16cc0 | 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 50 61 63 6b 61 67 65 73 0a 28 64 65 66 69 6e 65 2d 76 61 72 | :lisp)..;;;.Packages.(define-var |
| 16ce0 | 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 70 61 63 6b 61 67 65 2a 20 3a 6c 69 73 70 29 0a 28 | iable-pattern.*package*.:lisp).( |
| 16d00 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 70 61 63 6b 61 | define-caller-pattern.make-packa |
| 16d20 | 67 65 20 28 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | ge.((:rest.:ignore)).:lisp).(def |
| 16d40 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6e 2d 70 61 63 6b 61 67 65 20 28 28 | ine-caller-pattern.in-package.(( |
| 16d60 | 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | :rest.:ignore)).:lisp).(define-c |
| 16d80 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 28 28 3a 72 65 | aller-pattern.find-package.((:re |
| 16da0 | 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | st.:ignore)).:lisp).(define-call |
| 16dc0 | 65 72 2d 70 61 74 74 65 72 6e 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 28 3a 72 65 73 74 20 | er-pattern.package-name.((:rest. |
| 16de0 | 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | :ignore)).:lisp).(define-caller- |
| 16e00 | 70 61 74 74 65 72 6e 20 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 73 20 28 28 3a 72 65 73 | pattern.package-nicknames.((:res |
| 16e20 | 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | t.:ignore)).:lisp).(define-calle |
| 16e40 | 72 2d 70 61 74 74 65 72 6e 20 72 65 6e 61 6d 65 2d 70 61 63 6b 61 67 65 20 28 28 3a 72 65 73 74 | r-pattern.rename-package.((:rest |
| 16e60 | 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | .:ignore)).:lisp).(define-caller |
| 16e80 | 2d 70 61 74 74 65 72 6e 20 70 61 63 6b 61 67 65 2d 75 73 65 2d 6c 69 73 74 20 28 28 3a 72 65 73 | -pattern.package-use-list.((:res |
| 16ea0 | 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | t.:ignore)).:lisp).(define-calle |
| 16ec0 | 72 2d 70 61 74 74 65 72 6e 20 70 61 63 6b 61 67 65 2d 75 73 65 64 2d 62 79 2d 6c 69 73 74 20 28 | r-pattern.package-used-by-list.( |
| 16ee0 | 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | (:rest.:ignore)).:lisp).(define- |
| 16f00 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 63 6b 61 67 65 2d 73 68 61 64 6f 77 69 6e 67 | caller-pattern.package-shadowing |
| 16f20 | 2d 73 79 6d 62 6f 6c 73 20 28 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 | -symbols.((:rest.:ignore)).:lisp |
| 16f40 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 69 73 74 2d 61 6c | ).(define-caller-pattern.list-al |
| 16f60 | 6c 2d 70 61 63 6b 61 67 65 73 20 28 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | l-packages.().:lisp).(define-cal |
| 16f80 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 6c 65 74 65 2d 70 61 63 6b 61 67 65 20 28 28 3a 72 65 | ler-pattern.delete-package.((:re |
| 16fa0 | 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | st.:ignore)).:lisp2).(define-cal |
| 16fc0 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6e 74 65 72 6e 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e | ler-pattern.intern.(form.&option |
| 16fe0 | 61 6c 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | al.:ignore).:lisp).(define-calle |
| 17000 | 72 2d 70 61 74 74 65 72 6e 20 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 66 6f 72 6d 20 26 6f 70 74 | r-pattern.find-symbol.(form.&opt |
| 17020 | 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | ional.:ignore).:lisp).(define-ca |
| 17040 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 6e 69 6e 74 65 72 6e 20 28 66 6f 72 6d 20 26 6f 70 74 | ller-pattern.unintern.(form.&opt |
| 17060 | 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 | ional.:ignore).:lisp)..(define-c |
| 17080 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 78 70 6f 72 74 20 28 28 3a 6f 72 20 73 79 6d 62 6f | aller-pattern.export.((:or.symbo |
| 170a0 | 6c 20 28 28 3a 73 74 61 72 20 73 79 6d 62 6f 6c 29 29 29 0a 09 09 09 20 20 20 20 20 20 20 26 6f | l.((:star.symbol)))...........&o |
| 170c0 | 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | ptional.:ignore).:lisp).(define- |
| 170e0 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 6e 65 78 70 6f 72 74 20 28 28 3a 6f 72 20 73 79 | caller-pattern.unexport.((:or.sy |
| 17100 | 6d 62 6f 6c 20 28 28 3a 73 74 61 72 20 73 79 6d 62 6f 6c 29 29 29 0a 09 09 09 20 20 20 20 20 20 | mbol.((:star.symbol))).......... |
| 17120 | 20 26 6f 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | .&optional.:ignore).:lisp).(defi |
| 17140 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6d 70 6f 72 74 20 28 28 3a 6f 72 20 73 | ne-caller-pattern.import.((:or.s |
| 17160 | 79 6d 62 6f 6c 20 28 28 3a 73 74 61 72 20 73 79 6d 62 6f 6c 29 29 29 0a 09 09 09 20 20 20 20 20 | ymbol.((:star.symbol)))......... |
| 17180 | 20 20 26 6f 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | ..&optional.:ignore).:lisp).(def |
| 171a0 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 68 61 64 6f 77 69 6e 67 2d 69 6d 70 | ine-caller-pattern.shadowing-imp |
| 171c0 | 6f 72 74 20 28 28 3a 6f 72 20 73 79 6d 62 6f 6c 20 28 28 3a 73 74 61 72 20 73 79 6d 62 6f 6c 29 | ort.((:or.symbol.((:star.symbol) |
| 171e0 | 29 29 0a 09 09 09 20 20 20 20 20 20 20 26 6f 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 20 | ))...........&optional.:ignore). |
| 17200 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 68 | :lisp).(define-caller-pattern.sh |
| 17220 | 61 64 6f 77 20 28 28 3a 6f 72 20 73 79 6d 62 6f 6c 20 28 28 3a 73 74 61 72 20 73 79 6d 62 6f 6c | adow.((:or.symbol.((:star.symbol |
| 17240 | 29 29 29 0a 09 09 09 20 20 20 20 20 20 20 26 6f 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 | )))...........&optional.:ignore) |
| 17260 | 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | .:lisp)..(define-caller-pattern. |
| 17280 | 75 73 65 2d 70 61 63 6b 61 67 65 20 28 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c | use-package.((:rest.:ignore)).:l |
| 172a0 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 6e 75 73 | isp).(define-caller-pattern.unus |
| 172c0 | 65 2d 70 61 63 6b 61 67 65 20 28 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 | e-package.((:rest.:ignore)).:lis |
| 172e0 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 66 70 61 63 | p).(define-caller-pattern.defpac |
| 17300 | 6b 61 67 65 20 28 6e 61 6d 65 20 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 | kage.(name.(:rest.:ignore)).:lis |
| 17320 | 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 6e 64 2d | p2).(define-caller-pattern.find- |
| 17340 | 61 6c 6c 2d 73 79 6d 62 6f 6c 73 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | all-symbols.(form).:lisp).(defin |
| 17360 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 6f 2d 73 79 6d 62 6f 6c 73 20 0a 20 20 28 | e-caller-pattern.do-symbols....( |
| 17380 | 28 76 61 72 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 | (var.(:optional.form.(:optional. |
| 173a0 | 66 6f 72 6d 29 29 29 0a 20 20 20 28 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 20 0a | form)))....(:star.declaration).. |
| 173c0 | 20 20 20 28 3a 73 74 61 72 20 28 3a 6f 72 20 74 61 67 20 66 6f 72 6d 29 29 29 20 0a 20 20 3a 6c | ...(:star.(:or.tag.form)))....:l |
| 173e0 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 6f 2d 65 | isp).(define-caller-pattern.do-e |
| 17400 | 78 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 20 0a 20 20 28 28 76 61 72 20 28 3a 6f 70 74 69 6f | xternal-symbols....((var.(:optio |
| 17420 | 6e 61 6c 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 29 0a 20 20 20 28 | nal.form.(:optional.form)))....( |
| 17440 | 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 20 0a 20 20 20 28 3a 73 74 61 72 20 28 3a | :star.declaration).....(:star.(: |
| 17460 | 6f 72 20 74 61 67 20 66 6f 72 6d 29 29 29 20 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | or.tag.form)))....:lisp).(define |
| 17480 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 6f 2d 61 6c 6c 2d 73 79 6d 62 6f 6c 73 20 0a | -caller-pattern.do-all-symbols.. |
| 174a0 | 20 20 28 28 76 61 72 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 0a 20 20 20 28 3a 73 | ..((var.(:optional.form))....(:s |
| 174c0 | 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 20 0a 20 20 20 28 3a 73 74 61 72 20 28 3a 6f 72 | tar.declaration).....(:star.(:or |
| 174e0 | 20 74 61 67 20 66 6f 72 6d 29 29 29 20 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | .tag.form)))....:lisp).(define-c |
| 17500 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 69 74 68 2d 70 61 63 6b 61 67 65 2d 69 74 65 72 61 | aller-pattern.with-package-itera |
| 17520 | 74 6f 72 0a 20 20 28 28 6e 61 6d 65 20 66 6f 72 6d 20 28 3a 70 6c 75 73 20 3a 69 67 6e 6f 72 65 | tor...((name.form.(:plus.:ignore |
| 17540 | 29 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 0a 3b | ))....(:star.form))...:lisp2)..; |
| 17560 | 3b 3b 20 4d 6f 64 75 6c 65 73 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 | ;;.Modules.(define-variable-patt |
| 17580 | 65 72 6e 20 2a 6d 6f 64 75 6c 65 73 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | ern.*modules*.:lisp).(define-cal |
| 175a0 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 72 6f 76 69 64 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 | ler-pattern.provide.(form).:lisp |
| 175c0 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 71 75 69 72 65 | ).(define-caller-pattern.require |
| 175e0 | 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 29 | .(form.&optional.:ignore).:lisp) |
| 17600 | 0a 0a 0a 3b 3b 3b 20 4e 75 6d 62 65 72 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | ...;;;.Numbers.(define-caller-pa |
| 17620 | 74 74 65 72 6e 20 7a 65 72 6f 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | ttern.zerop.(form).:lisp).(defin |
| 17640 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 6c 75 73 70 20 28 66 6f 72 6d 29 20 3a 6c | e-caller-pattern.plusp.(form).:l |
| 17660 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 69 6e 75 | isp).(define-caller-pattern.minu |
| 17680 | 73 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | sp.(form).:lisp).(define-caller- |
| 176a0 | 70 61 74 74 65 72 6e 20 6f 64 64 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | pattern.oddp.(form).:lisp).(defi |
| 176c0 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 76 65 6e 70 20 28 66 6f 72 6d 29 20 3a | ne-caller-pattern.evenp.(form).: |
| 176e0 | 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 3d 20 | lisp)..(define-caller-pattern.=. |
| 17700 | 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | (form.(:star.form)).:lisp).(defi |
| 17720 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 2f 3d 20 28 66 6f 72 6d 20 28 3a 73 74 61 | ne-caller-pattern./=.(form.(:sta |
| 17740 | 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | r.form)).:lisp).(define-caller-p |
| 17760 | 61 74 74 65 72 6e 20 3e 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 | attern.>.(form.(:star.form)).:li |
| 17780 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 3c 20 28 66 6f | sp).(define-caller-pattern.<.(fo |
| 177a0 | 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | rm.(:star.form)).:lisp).(define- |
| 177c0 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 3c 3d 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 | caller-pattern.<=.(form.(:star.f |
| 177e0 | 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm)).:lisp).(define-caller-patt |
| 17800 | 65 72 6e 20 3e 3d 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 | ern.>=.(form.(:star.form)).:lisp |
| 17820 | 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 78 20 28 66 | )..(define-caller-pattern.max.(f |
| 17840 | 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | orm.(:star.form)).:lisp).(define |
| 17860 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 69 6e 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 | -caller-pattern.min.(form.(:star |
| 17880 | 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | .form)).:lisp)..(define-caller-p |
| 178a0 | 61 74 74 65 72 6e 20 2d 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 | attern.-.(form.(:star.form)).:li |
| 178c0 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 2b 20 28 66 6f | sp).(define-caller-pattern.+.(fo |
| 178e0 | 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | rm.(:star.form)).:lisp).(define- |
| 17900 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 2a 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f | caller-pattern.*.(form.(:star.fo |
| 17920 | 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | rm)).:lisp).(define-caller-patte |
| 17940 | 72 6e 20 2f 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a | rn./.(form.(:star.form)).:lisp). |
| 17960 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 31 2b 20 28 66 6f 72 6d 29 | (define-caller-pattern.1+.(form) |
| 17980 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 31 | .:lisp).(define-caller-pattern.1 |
| 179a0 | 2d 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | -.(form).:lisp)..(define-caller- |
| 179c0 | 70 61 74 74 65 72 6e 20 69 6e 63 66 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | pattern.incf.(form.form).:lisp). |
| 179e0 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 63 66 20 28 66 6f 72 | (define-caller-pattern.decf.(for |
| 17a00 | 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | m.form).:lisp)..(define-caller-p |
| 17a20 | 61 74 74 65 72 6e 20 63 6f 6e 6a 75 67 61 74 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a | attern.conjugate.(form).:lisp).. |
| 17a40 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 63 64 20 28 28 3a 73 74 | (define-caller-pattern.gcd.((:st |
| 17a60 | 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | ar.form)).:lisp).(define-caller- |
| 17a80 | 70 61 74 74 65 72 6e 20 6c 63 6d 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 | pattern.lcm.((:star.form)).:lisp |
| 17aa0 | 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 78 70 20 28 66 | )..(define-caller-pattern.exp.(f |
| 17ac0 | 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | orm).:lisp).(define-caller-patte |
| 17ae0 | 72 6e 20 65 78 70 74 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | rn.expt.(form.form).:lisp).(defi |
| 17b00 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 20 28 66 6f 72 6d 20 28 3a 6f 70 | ne-caller-pattern.log.(form.(:op |
| 17b20 | 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | tional.form)).:lisp).(define-cal |
| 17b40 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 71 72 74 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 | ler-pattern.sqrt.(form).:lisp).( |
| 17b60 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 73 71 72 74 20 28 66 6f 72 | define-caller-pattern.isqrt.(for |
| 17b80 | 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m).:lisp)..(define-caller-patter |
| 17ba0 | 6e 20 61 62 73 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | n.abs.(form).:lisp).(define-call |
| 17bc0 | 65 72 2d 70 61 74 74 65 72 6e 20 70 68 61 73 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 | er-pattern.phase.(form).:lisp).( |
| 17be0 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 69 67 6e 75 6d 20 28 66 6f | define-caller-pattern.signum.(fo |
| 17c00 | 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | rm).:lisp).(define-caller-patter |
| 17c20 | 6e 20 73 69 6e 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | n.sin.(form).:lisp).(define-call |
| 17c40 | 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 73 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 | er-pattern.cos.(form).:lisp).(de |
| 17c60 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 61 6e 20 28 66 6f 72 6d 29 20 3a | fine-caller-pattern.tan.(form).: |
| 17c80 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 69 73 | lisp).(define-caller-pattern.cis |
| 17ca0 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .(form).:lisp).(define-caller-pa |
| 17cc0 | 74 74 65 72 6e 20 61 73 69 6e 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | ttern.asin.(form).:lisp).(define |
| 17ce0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 63 6f 73 20 28 66 6f 72 6d 29 20 3a 6c 69 73 | -caller-pattern.acos.(form).:lis |
| 17d00 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 74 61 6e 20 28 | p).(define-caller-pattern.atan.( |
| 17d20 | 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | form.&optional.form).:lisp).(def |
| 17d40 | 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 70 69 20 3a 6c 69 73 70 29 0a 0a | ine-variable-pattern.pi.:lisp).. |
| 17d60 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 69 6e 68 20 28 66 6f 72 | (define-caller-pattern.sinh.(for |
| 17d80 | 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | m).:lisp).(define-caller-pattern |
| 17da0 | 20 63 6f 73 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | .cosh.(form).:lisp).(define-call |
| 17dc0 | 65 72 2d 70 61 74 74 65 72 6e 20 74 61 6e 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 | er-pattern.tanh.(form).:lisp).(d |
| 17de0 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 73 69 6e 68 20 28 66 6f 72 6d | efine-caller-pattern.asinh.(form |
| 17e00 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 17e20 | 61 63 6f 73 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | acosh.(form).:lisp).(define-call |
| 17e40 | 65 72 2d 70 61 74 74 65 72 6e 20 61 74 61 6e 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a | er-pattern.atanh.(form).:lisp).. |
| 17e60 | 3b 3b 3b 20 54 79 70 65 20 43 6f 6e 76 65 72 73 69 6f 6e 73 20 61 6e 64 20 45 78 74 72 61 63 74 | ;;;.Type.Conversions.and.Extract |
| 17e80 | 69 6f 6e 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 6c 6f 61 | ions.(define-caller-pattern.floa |
| 17ea0 | 74 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 | t.(form.(:optional.form)).:lisp) |
| 17ec0 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 61 74 69 6f 6e 61 6c | .(define-caller-pattern.rational |
| 17ee0 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .(form).:lisp).(define-caller-pa |
| 17f00 | 74 74 65 72 6e 20 72 61 74 69 6f 6e 61 6c 69 7a 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | ttern.rationalize.(form).:lisp). |
| 17f20 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 75 6d 65 72 61 74 6f 72 | (define-caller-pattern.numerator |
| 17f40 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .(form).:lisp).(define-caller-pa |
| 17f60 | 74 74 65 72 6e 20 64 65 6e 6f 6d 69 6e 61 74 6f 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | ttern.denominator.(form).:lisp). |
| 17f80 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 6c 6f 6f 72 20 28 66 | .(define-caller-pattern.floor.(f |
| 17fa0 | 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 | orm.(:optional.form)).:lisp).(de |
| 17fc0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 65 69 6c 69 6e 67 20 28 66 6f 72 | fine-caller-pattern.ceiling.(for |
| 17fe0 | 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | m.(:optional.form)).:lisp).(defi |
| 18000 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 72 75 6e 63 61 74 65 20 28 66 6f 72 6d | ne-caller-pattern.truncate.(form |
| 18020 | 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | .(:optional.form)).:lisp).(defin |
| 18040 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 6f 75 6e 64 20 28 66 6f 72 6d 20 28 3a 6f | e-caller-pattern.round.(form.(:o |
| 18060 | 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 | ptional.form)).:lisp)..(define-c |
| 18080 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 6f 64 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c | aller-pattern.mod.(form.form).:l |
| 180a0 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 6d 20 | isp).(define-caller-pattern.rem. |
| 180c0 | 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | (form.form).:lisp)..(define-call |
| 180e0 | 65 72 2d 70 61 74 74 65 72 6e 20 66 66 6c 6f 6f 72 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e | er-pattern.ffloor.(form.(:option |
| 18100 | 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | al.form)).:lisp).(define-caller- |
| 18120 | 70 61 74 74 65 72 6e 20 66 63 65 69 6c 69 6e 67 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 | pattern.fceiling.(form.(:optiona |
| 18140 | 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | l.form)).:lisp).(define-caller-p |
| 18160 | 61 74 74 65 72 6e 20 66 74 72 75 6e 63 61 74 65 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 | attern.ftruncate.(form.(:optiona |
| 18180 | 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | l.form)).:lisp).(define-caller-p |
| 181a0 | 61 74 74 65 72 6e 20 66 72 6f 75 6e 64 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 | attern.fround.(form.(:optional.f |
| 181c0 | 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | orm)).:lisp)..(define-caller-pat |
| 181e0 | 74 65 72 6e 20 64 65 63 6f 64 65 2d 66 6c 6f 61 74 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | tern.decode-float.(form).:lisp). |
| 18200 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 63 61 6c 65 2d 66 6c 6f | (define-caller-pattern.scale-flo |
| 18220 | 61 74 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | at.(form.form).:lisp).(define-ca |
| 18240 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 6c 6f 61 74 2d 72 61 64 69 78 20 28 66 6f 72 6d 29 20 | ller-pattern.float-radix.(form). |
| 18260 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 6c | :lisp).(define-caller-pattern.fl |
| 18280 | 6f 61 74 2d 73 69 67 6e 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 | oat-sign.(form.(:optional.form)) |
| 182a0 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 | .:lisp).(define-caller-pattern.f |
| 182c0 | 6c 6f 61 74 2d 64 69 67 69 74 73 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | loat-digits.(form).:lisp).(defin |
| 182e0 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 6c 6f 61 74 2d 70 72 65 63 69 73 69 6f 6e | e-caller-pattern.float-precision |
| 18300 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .(form).:lisp).(define-caller-pa |
| 18320 | 74 74 65 72 6e 20 69 6e 74 65 67 65 72 2d 64 65 63 6f 64 65 2d 66 6c 6f 61 74 20 28 66 6f 72 6d | ttern.integer-decode-float.(form |
| 18340 | 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | ).:lisp)..(define-caller-pattern |
| 18360 | 20 63 6f 6d 70 6c 65 78 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 | .complex.(form.(:optional.form)) |
| 18380 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 | .:lisp).(define-caller-pattern.r |
| 183a0 | 65 61 6c 70 61 72 74 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | ealpart.(form).:lisp).(define-ca |
| 183c0 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6d 61 67 70 61 72 74 20 28 66 6f 72 6d 29 20 3a 6c 69 | ller-pattern.imagpart.(form).:li |
| 183e0 | 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 69 | sp)..(define-caller-pattern.logi |
| 18400 | 6f 72 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | or.((:star.form)).:lisp).(define |
| 18420 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 78 6f 72 20 28 28 3a 73 74 61 72 20 66 | -caller-pattern.logxor.((:star.f |
| 18440 | 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm)).:lisp).(define-caller-patt |
| 18460 | 65 72 6e 20 6c 6f 67 61 6e 64 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 | ern.logand.((:star.form)).:lisp) |
| 18480 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 65 71 76 20 28 | .(define-caller-pattern.logeqv.( |
| 184a0 | 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 | (:star.form)).:lisp)..(define-ca |
| 184c0 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 6e 61 6e 64 20 28 66 6f 72 6d 20 66 6f 72 6d 29 | ller-pattern.lognand.(form.form) |
| 184e0 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c | .:lisp).(define-caller-pattern.l |
| 18500 | 6f 67 6e 6f 72 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | ognor.(form.form).:lisp).(define |
| 18520 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 61 6e 64 63 31 20 28 66 6f 72 6d 20 66 | -caller-pattern.logandc1.(form.f |
| 18540 | 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | orm).:lisp).(define-caller-patte |
| 18560 | 72 6e 20 6c 6f 67 61 6e 64 63 32 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 | rn.logandc2.(form.form).:lisp).( |
| 18580 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 6f 72 63 31 20 28 66 | define-caller-pattern.logorc1.(f |
| 185a0 | 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | orm.form).:lisp).(define-caller- |
| 185c0 | 70 61 74 74 65 72 6e 20 6c 6f 67 6f 72 63 32 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 | pattern.logorc2.(form.form).:lis |
| 185e0 | 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 6f 6f 6c 65 | p)..(define-caller-pattern.boole |
| 18600 | 20 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | .(form.form.form).:lisp).(define |
| 18620 | 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 62 6f 6f 6c 65 2d 63 6c 72 20 3a 6c 69 73 | -variable-pattern.boole-clr.:lis |
| 18640 | 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 62 6f 6f 6c | p).(define-variable-pattern.bool |
| 18660 | 65 2d 73 65 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 | e-set.:lisp).(define-variable-pa |
| 18680 | 74 74 65 72 6e 20 62 6f 6f 6c 65 2d 31 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 | ttern.boole-1.:lisp).(define-var |
| 186a0 | 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 62 6f 6f 6c 65 2d 32 20 3a 6c 69 73 70 29 0a 28 64 65 | iable-pattern.boole-2.:lisp).(de |
| 186c0 | 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 62 6f 6f 6c 65 2d 63 31 20 3a | fine-variable-pattern.boole-c1.: |
| 186e0 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 62 | lisp).(define-variable-pattern.b |
| 18700 | 6f 6f 6c 65 2d 63 32 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d | oole-c2.:lisp).(define-variable- |
| 18720 | 70 61 74 74 65 72 6e 20 62 6f 6f 6c 65 2d 61 6e 64 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | pattern.boole-and.:lisp).(define |
| 18740 | 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 62 6f 6f 6c 65 2d 69 6f 72 20 3a 6c 69 73 | -variable-pattern.boole-ior.:lis |
| 18760 | 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 62 6f 6f 6c | p).(define-variable-pattern.bool |
| 18780 | 65 2d 78 6f 72 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 | e-xor.:lisp).(define-variable-pa |
| 187a0 | 74 74 65 72 6e 20 62 6f 6f 6c 65 2d 65 71 76 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 | ttern.boole-eqv.:lisp).(define-v |
| 187c0 | 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 62 6f 6f 6c 65 2d 6e 61 6e 64 20 3a 6c 69 73 70 | ariable-pattern.boole-nand.:lisp |
| 187e0 | 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 62 6f 6f 6c 65 | ).(define-variable-pattern.boole |
| 18800 | 2d 6e 6f 72 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 | -nor.:lisp).(define-variable-pat |
| 18820 | 74 65 72 6e 20 62 6f 6f 6c 65 2d 61 6e 64 63 31 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | tern.boole-andc1.:lisp).(define- |
| 18840 | 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 62 6f 6f 6c 65 2d 61 6e 64 63 32 20 3a 6c 69 | variable-pattern.boole-andc2.:li |
| 18860 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 62 6f 6f | sp).(define-variable-pattern.boo |
| 18880 | 6c 65 2d 6f 72 63 31 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d | le-orc1.:lisp).(define-variable- |
| 188a0 | 70 61 74 74 65 72 6e 20 62 6f 6f 6c 65 2d 6f 72 63 32 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 | pattern.boole-orc2.:lisp)..(defi |
| 188c0 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 6e 6f 74 20 28 66 6f 72 6d 29 20 | ne-caller-pattern.lognot.(form). |
| 188e0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f | :lisp).(define-caller-pattern.lo |
| 18900 | 67 74 65 73 74 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | gtest.(form.form).:lisp).(define |
| 18920 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 62 69 74 70 20 28 66 6f 72 6d 20 66 6f | -caller-pattern.logbitp.(form.fo |
| 18940 | 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | rm).:lisp).(define-caller-patter |
| 18960 | 6e 20 61 73 68 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | n.ash.(form.form).:lisp).(define |
| 18980 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 63 6f 75 6e 74 20 28 66 6f 72 6d 29 20 | -caller-pattern.logcount.(form). |
| 189a0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6e | :lisp).(define-caller-pattern.in |
| 189c0 | 74 65 67 65 72 2d 6c 65 6e 67 74 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 | teger-length.(form).:lisp)..(def |
| 189e0 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 79 74 65 20 28 66 6f 72 6d 20 66 6f | ine-caller-pattern.byte.(form.fo |
| 18a00 | 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | rm).:lisp).(define-caller-patter |
| 18a20 | 6e 20 62 79 74 65 2d 73 69 7a 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | n.byte-size.(form).:lisp).(defin |
| 18a40 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 79 74 65 2d 70 6f 73 69 74 69 6f 6e 20 28 | e-caller-pattern.byte-position.( |
| 18a60 | 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | form).:lisp).(define-caller-patt |
| 18a80 | 65 72 6e 20 6c 64 62 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | ern.ldb.(form.form).:lisp).(defi |
| 18aa0 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 64 62 2d 74 65 73 74 20 28 66 6f 72 6d | ne-caller-pattern.ldb-test.(form |
| 18ac0 | 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | .form).:lisp).(define-caller-pat |
| 18ae0 | 74 65 72 6e 20 6d 61 73 6b 2d 66 69 65 6c 64 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 | tern.mask-field.(form.form).:lis |
| 18b00 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 70 62 20 28 66 | p).(define-caller-pattern.dpb.(f |
| 18b20 | 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | orm.form.form).:lisp).(define-ca |
| 18b40 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 70 6f 73 69 74 2d 66 69 65 6c 64 20 28 66 6f 72 6d | ller-pattern.deposit-field.(form |
| 18b60 | 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 52 61 6e 64 6f 6d 20 4e | .form.form).:lisp)..;;;.Random.N |
| 18b80 | 75 6d 62 65 72 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 61 | umbers.(define-caller-pattern.ra |
| 18ba0 | 6e 64 6f 6d 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 | ndom.(form.(:optional.form)).:li |
| 18bc0 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 72 61 | sp).(define-variable-pattern.*ra |
| 18be0 | 6e 64 6f 6d 2d 73 74 61 74 65 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | ndom-state*.:lisp).(define-calle |
| 18c00 | 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 72 61 6e 64 6f 6d 2d 73 74 61 74 65 20 28 28 3a 6f | r-pattern.make-random-state.((:o |
| 18c20 | 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | ptional.form)).:lisp).(define-ca |
| 18c40 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 61 6e 64 6f 6d 2d 73 74 61 74 65 2d 70 20 28 66 6f 72 | ller-pattern.random-state-p.(for |
| 18c60 | 6d 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 50 61 | m).:lisp)..;;;.Implementation.Pa |
| 18c80 | 72 61 6d 65 74 65 72 73 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 | rameters.(define-variable-patter |
| 18ca0 | 6e 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d 20 3a 6c 69 73 70 29 0a 28 64 | n.most-positive-fixnum.:lisp).(d |
| 18cc0 | 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6d 6f 73 74 2d 6e 65 67 61 | efine-variable-pattern.most-nega |
| 18ce0 | 74 69 76 65 2d 66 69 78 6e 75 6d 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 | tive-fixnum.:lisp).(define-varia |
| 18d00 | 62 6c 65 2d 70 61 74 74 65 72 6e 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 73 68 6f 72 74 2d | ble-pattern.most-positive-short- |
| 18d20 | 66 6c 6f 61 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 | float.:lisp).(define-variable-pa |
| 18d40 | 74 74 65 72 6e 20 6c 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d 73 68 6f 72 74 2d 66 6c 6f 61 74 | ttern.least-positive-short-float |
| 18d60 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e | .:lisp).(define-variable-pattern |
| 18d80 | 20 6c 65 61 73 74 2d 6e 65 67 61 74 69 76 65 2d 73 68 6f 72 74 2d 66 6c 6f 61 74 20 3a 6c 69 73 | .least-negative-short-float.:lis |
| 18da0 | 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6d 6f 73 74 | p).(define-variable-pattern.most |
| 18dc0 | 2d 6e 65 67 61 74 69 76 65 2d 73 68 6f 72 74 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 29 0a 28 64 65 | -negative-short-float.:lisp).(de |
| 18de0 | 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6d 6f 73 74 2d 70 6f 73 69 74 | fine-variable-pattern.most-posit |
| 18e00 | 69 76 65 2d 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | ive-single-float.:lisp).(define- |
| 18e20 | 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d | variable-pattern.least-positive- |
| 18e40 | 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 | single-float.:lisp).(define-vari |
| 18e60 | 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c 65 61 73 74 2d 6e 65 67 61 74 69 76 65 2d 73 69 6e 67 | able-pattern.least-negative-sing |
| 18e80 | 6c 65 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 | le-float.:lisp).(define-variable |
| 18ea0 | 2d 70 61 74 74 65 72 6e 20 6d 6f 73 74 2d 6e 65 67 61 74 69 76 65 2d 73 69 6e 67 6c 65 2d 66 6c | -pattern.most-negative-single-fl |
| 18ec0 | 6f 61 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 | oat.:lisp).(define-variable-patt |
| 18ee0 | 65 72 6e 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 20 3a | ern.most-positive-double-float.: |
| 18f00 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c | lisp).(define-variable-pattern.l |
| 18f20 | 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 | east-positive-double-float.:lisp |
| 18f40 | 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c 65 61 73 74 | ).(define-variable-pattern.least |
| 18f60 | 2d 6e 65 67 61 74 69 76 65 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 29 0a 28 64 | -negative-double-float.:lisp).(d |
| 18f80 | 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6d 6f 73 74 2d 6e 65 67 61 | efine-variable-pattern.most-nega |
| 18fa0 | 74 69 76 65 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | tive-double-float.:lisp).(define |
| 18fc0 | 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d | -variable-pattern.most-positive- |
| 18fe0 | 6c 6f 6e 67 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 | long-float.:lisp).(define-variab |
| 19000 | 6c 65 2d 70 61 74 74 65 72 6e 20 6c 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d 6c 6f 6e 67 2d 66 | le-pattern.least-positive-long-f |
| 19020 | 6c 6f 61 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 | loat.:lisp).(define-variable-pat |
| 19040 | 74 65 72 6e 20 6c 65 61 73 74 2d 6e 65 67 61 74 69 76 65 2d 6c 6f 6e 67 2d 66 6c 6f 61 74 20 3a | tern.least-negative-long-float.: |
| 19060 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6d | lisp).(define-variable-pattern.m |
| 19080 | 6f 73 74 2d 6e 65 67 61 74 69 76 65 2d 6c 6f 6e 67 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 29 0a 28 | ost-negative-long-float.:lisp).( |
| 190a0 | 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c 65 61 73 74 2d 70 6f | define-variable-pattern.least-po |
| 190c0 | 73 69 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d 73 68 6f 72 74 2d 66 6c 6f 61 74 20 3a 6c | sitive-normalized-short-float.:l |
| 190e0 | 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c | isp2).(define-variable-pattern.l |
| 19100 | 65 61 73 74 2d 6e 65 67 61 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d 73 68 6f 72 74 2d 66 | east-negative-normalized-short-f |
| 19120 | 6c 6f 61 74 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 | loat.:lisp2).(define-variable-pa |
| 19140 | 74 74 65 72 6e 20 6c 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d | ttern.least-positive-normalized- |
| 19160 | 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 | single-float.:lisp2).(define-var |
| 19180 | 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c 65 61 73 74 2d 6e 65 67 61 74 69 76 65 2d 6e 6f 72 | iable-pattern.least-negative-nor |
| 191a0 | 6d 61 6c 69 7a 65 64 2d 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 32 29 0a 28 64 65 | malized-single-float.:lisp2).(de |
| 191c0 | 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c 65 61 73 74 2d 70 6f 73 69 | fine-variable-pattern.least-posi |
| 191e0 | 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 20 3a 6c 69 | tive-normalized-double-float.:li |
| 19200 | 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c 65 | sp2).(define-variable-pattern.le |
| 19220 | 61 73 74 2d 6e 65 67 61 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d 64 6f 75 62 6c 65 2d 66 | ast-negative-normalized-double-f |
| 19240 | 6c 6f 61 74 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 | loat.:lisp2).(define-variable-pa |
| 19260 | 74 74 65 72 6e 20 6c 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d | ttern.least-positive-normalized- |
| 19280 | 6c 6f 6e 67 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 | long-float.:lisp2).(define-varia |
| 192a0 | 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c 65 61 73 74 2d 6e 65 67 61 74 69 76 65 2d 6e 6f 72 6d 61 | ble-pattern.least-negative-norma |
| 192c0 | 6c 69 7a 65 64 2d 6c 6f 6e 67 2d 66 6c 6f 61 74 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 | lized-long-float.:lisp2).(define |
| 192e0 | 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 73 68 6f 72 74 2d 66 6c 6f 61 74 2d 65 70 | -variable-pattern.short-float-ep |
| 19300 | 73 69 6c 6f 6e 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 | silon.:lisp).(define-variable-pa |
| 19320 | 74 74 65 72 6e 20 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 2d 65 70 73 69 6c 6f 6e 20 3a 6c 69 73 70 | ttern.single-float-epsilon.:lisp |
| 19340 | 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 64 6f 75 62 6c | ).(define-variable-pattern.doubl |
| 19360 | 65 2d 66 6c 6f 61 74 2d 65 70 73 69 6c 6f 6e 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 | e-float-epsilon.:lisp).(define-v |
| 19380 | 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c 6f 6e 67 2d 66 6c 6f 61 74 2d 65 70 73 69 6c | ariable-pattern.long-float-epsil |
| 193a0 | 6f 6e 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 | on.:lisp).(define-variable-patte |
| 193c0 | 72 6e 20 73 68 6f 72 74 2d 66 6c 6f 61 74 2d 6e 65 67 61 74 69 76 65 2d 65 70 73 69 6c 6f 6e 20 | rn.short-float-negative-epsilon. |
| 193e0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 | :lisp).(define-variable-pattern. |
| 19400 | 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 2d 6e 65 67 61 74 69 76 65 2d 65 70 73 69 6c 6f 6e 20 3a 6c | single-float-negative-epsilon.:l |
| 19420 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 64 6f | isp).(define-variable-pattern.do |
| 19440 | 75 62 6c 65 2d 66 6c 6f 61 74 2d 6e 65 67 61 74 69 76 65 2d 65 70 73 69 6c 6f 6e 20 3a 6c 69 73 | uble-float-negative-epsilon.:lis |
| 19460 | 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 6c 6f 6e 67 | p).(define-variable-pattern.long |
| 19480 | 2d 66 6c 6f 61 74 2d 6e 65 67 61 74 69 76 65 2d 65 70 73 69 6c 6f 6e 20 3a 6c 69 73 70 29 0a 0a | -float-negative-epsilon.:lisp).. |
| 194a0 | 3b 3b 3b 20 43 68 61 72 61 63 74 65 72 73 20 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 | ;;;.Characters..(define-variable |
| 194c0 | 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 63 6f 64 65 2d 6c 69 6d 69 74 20 3a 6c 69 73 70 29 0a | -pattern.char-code-limit.:lisp). |
| 194e0 | 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 66 6f | (define-variable-pattern.char-fo |
| 19500 | 6e 74 2d 6c 69 6d 69 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 | nt-limit.:lisp).(define-variable |
| 19520 | 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 62 69 74 73 2d 6c 69 6d 69 74 20 3a 6c 69 73 70 29 0a | -pattern.char-bits-limit.:lisp). |
| 19540 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 61 6e 64 61 72 64 2d | (define-caller-pattern.standard- |
| 19560 | 63 68 61 72 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | char-p.(form).:lisp).(define-cal |
| 19580 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 72 61 70 68 69 63 2d 63 68 61 72 2d 70 20 28 66 6f 72 6d | ler-pattern.graphic-char-p.(form |
| 195a0 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 195c0 | 73 74 72 69 6e 67 2d 63 68 61 72 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | string-char-p.(form).:lisp).(def |
| 195e0 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 6c 70 68 61 2d 63 68 61 72 2d 70 20 | ine-caller-pattern.alpha-char-p. |
| 19600 | 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | (form).:lisp).(define-caller-pat |
| 19620 | 74 65 72 6e 20 75 70 70 65 72 2d 63 61 73 65 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | tern.upper-case-p.(form).:lisp). |
| 19640 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 77 65 72 2d 63 61 73 | (define-caller-pattern.lower-cas |
| 19660 | 65 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | e-p.(form).:lisp).(define-caller |
| 19680 | 2d 70 61 74 74 65 72 6e 20 62 6f 74 68 2d 63 61 73 65 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 | -pattern.both-case-p.(form).:lis |
| 196a0 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 69 67 69 74 2d | p).(define-caller-pattern.digit- |
| 196c0 | 63 68 61 72 2d 70 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a | char-p.(form.(:optional.form)).: |
| 196e0 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 6c 70 | lisp).(define-caller-pattern.alp |
| 19700 | 68 61 6e 75 6d 65 72 69 63 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e | hanumericp.(form).:lisp)..(defin |
| 19720 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 3d 20 28 28 3a 73 74 61 72 20 66 | e-caller-pattern.char=.((:star.f |
| 19740 | 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm)).:lisp).(define-caller-patt |
| 19760 | 65 72 6e 20 63 68 61 72 2f 3d 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 | ern.char/=.((:star.form)).:lisp) |
| 19780 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 3c 20 28 28 | .(define-caller-pattern.char<.(( |
| 197a0 | 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | :star.form)).:lisp).(define-call |
| 197c0 | 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 3e 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 | er-pattern.char>.((:star.form)). |
| 197e0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 | :lisp).(define-caller-pattern.ch |
| 19800 | 61 72 3c 3d 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | ar<=.((:star.form)).:lisp).(defi |
| 19820 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 3e 3d 20 28 28 3a 73 74 61 72 | ne-caller-pattern.char>=.((:star |
| 19840 | 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | .form)).:lisp)..(define-caller-p |
| 19860 | 61 74 74 65 72 6e 20 63 68 61 72 2d 65 71 75 61 6c 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 | attern.char-equal.((:star.form)) |
| 19880 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 | .:lisp).(define-caller-pattern.c |
| 198a0 | 68 61 72 2d 6e 6f 74 2d 65 71 75 61 6c 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 | har-not-equal.((:star.form)).:li |
| 198c0 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d | sp).(define-caller-pattern.char- |
| 198e0 | 6c 65 73 73 70 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | lessp.((:star.form)).:lisp).(def |
| 19900 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 67 72 65 61 74 65 72 70 | ine-caller-pattern.char-greaterp |
| 19920 | 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | .((:star.form)).:lisp).(define-c |
| 19940 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 6e 6f 74 2d 67 72 65 61 74 65 72 70 20 | aller-pattern.char-not-greaterp. |
| 19960 | 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | ((:star.form)).:lisp).(define-ca |
| 19980 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 6e 6f 74 2d 6c 65 73 73 70 20 28 28 3a 73 | ller-pattern.char-not-lessp.((:s |
| 199a0 | 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | tar.form)).:lisp)..(define-calle |
| 199c0 | 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 63 6f 64 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 | r-pattern.char-code.(form).:lisp |
| 199e0 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 62 69 | ).(define-caller-pattern.char-bi |
| 19a00 | 74 73 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | ts.(form).:lisp).(define-caller- |
| 19a20 | 70 61 74 74 65 72 6e 20 63 68 61 72 2d 66 6f 6e 74 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | pattern.char-font.(form).:lisp). |
| 19a40 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 64 65 2d 63 68 61 72 | (define-caller-pattern.code-char |
| 19a60 | 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 6f 72 6d 29 29 20 3a 6c | .(form.(:optional.form.form)).:l |
| 19a80 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 | isp).(define-caller-pattern.make |
| 19aa0 | 2d 63 68 61 72 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 6f 72 6d | -char.(form.(:optional.form.form |
| 19ac0 | 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | )).:lisp).(define-caller-pattern |
| 19ae0 | 20 63 68 61 72 61 63 74 65 72 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | .characterp.(form).:lisp).(defin |
| 19b00 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 75 70 63 61 73 65 20 28 66 6f | e-caller-pattern.char-upcase.(fo |
| 19b20 | 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | rm).:lisp).(define-caller-patter |
| 19b40 | 6e 20 63 68 61 72 2d 64 6f 77 6e 63 61 73 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 | n.char-downcase.(form).:lisp).(d |
| 19b60 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 69 67 69 74 2d 63 68 61 72 20 | efine-caller-pattern.digit-char. |
| 19b80 | 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 6f 72 6d 29 29 20 3a 6c 69 | (form.(:optional.form.form)).:li |
| 19ba0 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d | sp).(define-caller-pattern.char- |
| 19bc0 | 69 6e 74 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | int.(form).:lisp).(define-caller |
| 19be0 | 2d 70 61 74 74 65 72 6e 20 69 6e 74 2d 63 68 61 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | -pattern.int-char.(form).:lisp). |
| 19c00 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 6e 61 6d 65 | (define-caller-pattern.char-name |
| 19c20 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .(form).:lisp).(define-caller-pa |
| 19c40 | 74 74 65 72 6e 20 6e 61 6d 65 2d 63 68 61 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 | ttern.name-char.(form).:lisp).(d |
| 19c60 | 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 63 6f 6e 74 | efine-variable-pattern.char-cont |
| 19c80 | 72 6f 6c 2d 62 69 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d | rol-bit.:lisp).(define-variable- |
| 19ca0 | 70 61 74 74 65 72 6e 20 63 68 61 72 2d 6d 65 74 61 2d 62 69 74 20 3a 6c 69 73 70 29 0a 28 64 65 | pattern.char-meta-bit.:lisp).(de |
| 19cc0 | 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 73 75 70 65 72 | fine-variable-pattern.char-super |
| 19ce0 | 2d 62 69 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 | -bit.:lisp).(define-variable-pat |
| 19d00 | 74 65 72 6e 20 63 68 61 72 2d 68 79 70 65 72 2d 62 69 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | tern.char-hyper-bit.:lisp).(defi |
| 19d20 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 2d 62 69 74 20 28 66 6f 72 6d | ne-caller-pattern.char-bit.(form |
| 19d40 | 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | .form).:lisp).(define-caller-pat |
| 19d60 | 74 65 72 6e 20 73 65 74 2d 63 68 61 72 2d 62 69 74 20 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 | tern.set-char-bit.(form.form.for |
| 19d80 | 6d 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 53 65 71 75 65 6e 63 65 73 0a 28 64 65 66 69 6e 65 | m).:lisp)..;;;.Sequences.(define |
| 19da0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6d 70 6c 65 6d 65 6e 74 20 28 66 6e 29 20 | -caller-pattern.complement.(fn). |
| 19dc0 | 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 | :lisp2).(define-caller-pattern.e |
| 19de0 | 6c 74 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | lt.(form.form).:lisp).(define-ca |
| 19e00 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 75 62 73 65 71 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 | ller-pattern.subseq.(form.form.& |
| 19e20 | 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | optional.form).:lisp).(define-ca |
| 19e40 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 70 79 2d 73 65 71 20 28 66 6f 72 6d 29 20 3a 6c 69 | ller-pattern.copy-seq.(form).:li |
| 19e60 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 65 6e 67 74 | sp).(define-caller-pattern.lengt |
| 19e80 | 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | h.(form).:lisp).(define-caller-p |
| 19ea0 | 61 74 74 65 72 6e 20 72 65 76 65 72 73 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 | attern.reverse.(form).:lisp).(de |
| 19ec0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 72 65 76 65 72 73 65 20 28 66 6f | fine-caller-pattern.nreverse.(fo |
| 19ee0 | 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | rm).:lisp).(define-caller-patter |
| 19f00 | 6e 20 6d 61 6b 65 2d 73 65 71 75 65 6e 63 65 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 | n.make-sequence.(form.form.&key. |
| 19f20 | 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | form).:lisp)..(define-caller-pat |
| 19f40 | 74 65 72 6e 20 63 6f 6e 63 61 74 65 6e 61 74 65 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f | tern.concatenate.(form.(:star.fo |
| 19f60 | 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | rm)).:lisp).(define-caller-patte |
| 19f80 | 72 6e 20 6d 61 70 20 28 66 6f 72 6d 20 66 6e 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d | rn.map.(form.fn.form.(:star.form |
| 19fa0 | 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | )).:lisp).(define-caller-pattern |
| 19fc0 | 20 6d 61 70 2d 69 6e 74 6f 20 28 66 6f 72 6d 20 66 6e 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 | .map-into.(form.fn.(:star.form)) |
| 19fe0 | 20 3a 6c 69 73 70 32 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | .:lisp2)..(define-caller-pattern |
| 1a000 | 20 73 6f 6d 65 20 28 66 6e 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 | .some.(fn.form.(:star.form)).:li |
| 1a020 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 76 65 72 79 | sp).(define-caller-pattern.every |
| 1a040 | 20 28 66 6e 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 | .(fn.form.(:star.form)).:lisp).( |
| 1a060 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 6f 74 61 6e 79 20 28 66 6e | define-caller-pattern.notany.(fn |
| 1a080 | 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | .form.(:star.form)).:lisp).(defi |
| 1a0a0 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 6f 74 65 76 65 72 79 20 28 66 6e 20 66 | ne-caller-pattern.notevery.(fn.f |
| 1a0c0 | 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e | orm.(:star.form)).:lisp)..(defin |
| 1a0e0 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 64 75 63 65 20 28 66 6e 20 66 6f 72 6d | e-caller-pattern.reduce.(fn.form |
| 1a100 | 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | .&key.(:star.form)).:lisp).(defi |
| 1a120 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 6c 6c 20 28 66 6f 72 6d 20 66 6f 72 | ne-caller-pattern.fill.(form.for |
| 1a140 | 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | m.&key.(:star.form)).:lisp).(def |
| 1a160 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 70 6c 61 63 65 20 28 66 6f 72 6d | ine-caller-pattern.replace.(form |
| 1a180 | 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a | .form.&key.(:star.form)).:lisp). |
| 1a1a0 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 6d 6f 76 65 20 28 66 | (define-caller-pattern.remove.(f |
| 1a1c0 | 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 | orm.form.&key.(:star.form)).:lis |
| 1a1e0 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 6d 6f 76 65 | p).(define-caller-pattern.remove |
| 1a200 | 2d 69 66 20 28 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 | -if.(fn.form.&key.(:star.form)). |
| 1a220 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 | :lisp).(define-caller-pattern.re |
| 1a240 | 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 28 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 | move-if-not.(fn.form.&key.(:star |
| 1a260 | 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .form)).:lisp).(define-caller-pa |
| 1a280 | 74 74 65 72 6e 20 64 65 6c 65 74 65 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 | ttern.delete.(form.form.&key.(:s |
| 1a2a0 | 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | tar.form)).:lisp).(define-caller |
| 1a2c0 | 2d 70 61 74 74 65 72 6e 20 64 65 6c 65 74 65 2d 69 66 20 28 66 6e 20 66 6f 72 6d 20 26 6b 65 79 | -pattern.delete-if.(fn.form.&key |
| 1a2e0 | 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | .(:star.form)).:lisp).(define-ca |
| 1a300 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 6c 65 74 65 2d 69 66 2d 6e 6f 74 20 28 66 6e 20 66 | ller-pattern.delete-if-not.(fn.f |
| 1a320 | 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 | orm.&key.(:star.form)).:lisp).(d |
| 1a340 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 6d 6f 76 65 2d 64 75 70 6c | efine-caller-pattern.remove-dupl |
| 1a360 | 69 63 61 74 65 73 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 | icates.(form.&key.(:star.form)). |
| 1a380 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 | :lisp).(define-caller-pattern.de |
| 1a3a0 | 6c 65 74 65 2d 64 75 70 6c 69 63 61 74 65 73 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 | lete-duplicates.(form.&key.(:sta |
| 1a3c0 | 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | r.form)).:lisp).(define-caller-p |
| 1a3e0 | 61 74 74 65 72 6e 20 73 75 62 73 74 69 74 75 74 65 20 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 | attern.substitute.(form.form.for |
| 1a400 | 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | m.&key.(:star.form)).:lisp).(def |
| 1a420 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 75 62 73 74 69 74 75 74 65 2d 69 66 | ine-caller-pattern.substitute-if |
| 1a440 | 20 28 66 6f 72 6d 20 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 | .(form.fn.form.&key.(:star.form) |
| 1a460 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1a480 | 73 75 62 73 74 69 74 75 74 65 2d 69 66 2d 6e 6f 74 20 28 66 6f 72 6d 20 66 6e 20 66 6f 72 6d 20 | substitute-if-not.(form.fn.form. |
| 1a4a0 | 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 | &key.(:star.form))...:lisp).(def |
| 1a4c0 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 73 75 62 73 74 69 74 75 74 65 20 28 | ine-caller-pattern.nsubstitute.( |
| 1a4e0 | 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 | form.form.form.&key.(:star.form) |
| 1a500 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1a520 | 6e 73 75 62 73 74 69 74 75 74 65 2d 69 66 20 28 66 6f 72 6d 20 66 6e 20 66 6f 72 6d 20 26 6b 65 | nsubstitute-if.(form.fn.form.&ke |
| 1a540 | 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | y.(:star.form)).:lisp).(define-c |
| 1a560 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 73 75 62 73 74 69 74 75 74 65 2d 69 66 2d 6e 6f 74 | aller-pattern.nsubstitute-if-not |
| 1a580 | 20 28 66 6f 72 6d 20 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 | .(form.fn.form.&key.(:star.form) |
| 1a5a0 | 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | )...:lisp).(define-caller-patter |
| 1a5c0 | 6e 20 66 69 6e 64 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f | n.find.(form.form.&key.(:star.fo |
| 1a5e0 | 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | rm)).:lisp).(define-caller-patte |
| 1a600 | 72 6e 20 66 69 6e 64 2d 69 66 20 28 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 | rn.find-if.(fn.form.&key.(:star. |
| 1a620 | 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | form)).:lisp).(define-caller-pat |
| 1a640 | 74 65 72 6e 20 66 69 6e 64 2d 69 66 2d 6e 6f 74 20 28 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 | tern.find-if-not.(fn.form.&key.( |
| 1a660 | 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | :star.form)).:lisp).(define-call |
| 1a680 | 65 72 2d 70 61 74 74 65 72 6e 20 70 6f 73 69 74 69 6f 6e 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 | er-pattern.position.(form.form.& |
| 1a6a0 | 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | key.(:star.form)).:lisp).(define |
| 1a6c0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 6f 73 69 74 69 6f 6e 2d 69 66 20 28 66 6e 20 | -caller-pattern.position-if.(fn. |
| 1a6e0 | 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 | form.&key.(:star.form)).:lisp).( |
| 1a700 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 6f 73 69 74 69 6f 6e 2d 69 | define-caller-pattern.position-i |
| 1a720 | 66 2d 6e 6f 74 20 28 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 | f-not.(fn.form.&key.(:star.form) |
| 1a740 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1a760 | 63 6f 75 6e 74 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 | count.(form.form.&key.(:star.for |
| 1a780 | 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m)).:lisp).(define-caller-patter |
| 1a7a0 | 6e 20 63 6f 75 6e 74 2d 69 66 20 28 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 | n.count-if.(fn.form.&key.(:star. |
| 1a7c0 | 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | form)).:lisp).(define-caller-pat |
| 1a7e0 | 74 65 72 6e 20 63 6f 75 6e 74 2d 69 66 2d 6e 6f 74 20 28 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 | tern.count-if-not.(fn.form.&key. |
| 1a800 | 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | (:star.form)).:lisp).(define-cal |
| 1a820 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 69 73 6d 61 74 63 68 20 28 66 6f 72 6d 20 66 6f 72 6d 20 | ler-pattern.mismatch.(form.form. |
| 1a840 | 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | &key.(:star.form)).:lisp).(defin |
| 1a860 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 65 61 72 63 68 20 28 66 6f 72 6d 20 66 6f | e-caller-pattern.search.(form.fo |
| 1a880 | 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 | rm.&key.(:star.form)).:lisp).(de |
| 1a8a0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 6f 72 74 20 28 66 6f 72 6d 20 66 | fine-caller-pattern.sort.(form.f |
| 1a8c0 | 6e 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | n.&key.(:star.form)).:lisp).(def |
| 1a8e0 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 61 62 6c 65 2d 73 6f 72 74 20 28 | ine-caller-pattern.stable-sort.( |
| 1a900 | 66 6f 72 6d 20 66 6e 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 | form.fn.&key.(:star.form)).:lisp |
| 1a920 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 65 72 67 65 20 28 | ).(define-caller-pattern.merge.( |
| 1a940 | 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6e 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f | form.form.form.fn.&key.(:star.fo |
| 1a960 | 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 4c 69 73 74 73 0a 28 64 65 66 69 6e 65 2d 63 | rm)).:lisp)..;;;.Lists.(define-c |
| 1a980 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 61 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | aller-pattern.car.(form).:lisp). |
| 1a9a0 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 64 72 20 28 66 6f 72 6d | (define-caller-pattern.cdr.(form |
| 1a9c0 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1a9e0 | 63 61 61 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | caar.(form).:lisp).(define-calle |
| 1aa00 | 72 2d 70 61 74 74 65 72 6e 20 63 61 64 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 | r-pattern.cadr.(form).:lisp).(de |
| 1aa20 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 64 61 72 20 28 66 6f 72 6d 29 20 | fine-caller-pattern.cdar.(form). |
| 1aa40 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 64 | :lisp).(define-caller-pattern.cd |
| 1aa60 | 64 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | dr.(form).:lisp).(define-caller- |
| 1aa80 | 70 61 74 74 65 72 6e 20 63 61 61 61 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | pattern.caaar.(form).:lisp).(def |
| 1aaa0 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 61 61 64 72 20 28 66 6f 72 6d 29 20 | ine-caller-pattern.caadr.(form). |
| 1aac0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 61 | :lisp).(define-caller-pattern.ca |
| 1aae0 | 64 61 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | dar.(form).:lisp).(define-caller |
| 1ab00 | 2d 70 61 74 74 65 72 6e 20 63 61 64 64 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 | -pattern.caddr.(form).:lisp).(de |
| 1ab20 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 64 61 61 72 20 28 66 6f 72 6d 29 | fine-caller-pattern.cdaar.(form) |
| 1ab40 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 | .:lisp).(define-caller-pattern.c |
| 1ab60 | 64 61 64 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | dadr.(form).:lisp).(define-calle |
| 1ab80 | 72 2d 70 61 74 74 65 72 6e 20 63 64 64 61 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 | r-pattern.cddar.(form).:lisp).(d |
| 1aba0 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 64 64 64 72 20 28 66 6f 72 6d | efine-caller-pattern.cdddr.(form |
| 1abc0 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1abe0 | 63 61 61 61 61 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | caaaar.(form).:lisp).(define-cal |
| 1ac00 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 61 61 61 64 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 | ler-pattern.caaadr.(form).:lisp) |
| 1ac20 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 61 61 64 61 72 20 28 | .(define-caller-pattern.caadar.( |
| 1ac40 | 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | form).:lisp).(define-caller-patt |
| 1ac60 | 65 72 6e 20 63 61 61 64 64 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | ern.caaddr.(form).:lisp).(define |
| 1ac80 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 61 64 61 61 72 20 28 66 6f 72 6d 29 20 3a 6c | -caller-pattern.cadaar.(form).:l |
| 1aca0 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 61 64 61 | isp).(define-caller-pattern.cada |
| 1acc0 | 64 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | dr.(form).:lisp).(define-caller- |
| 1ace0 | 70 61 74 74 65 72 6e 20 63 61 64 64 61 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 | pattern.caddar.(form).:lisp).(de |
| 1ad00 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 61 64 64 64 72 20 28 66 6f 72 6d | fine-caller-pattern.cadddr.(form |
| 1ad20 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1ad40 | 63 64 61 61 61 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | cdaaar.(form).:lisp).(define-cal |
| 1ad60 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 64 61 61 64 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 | ler-pattern.cdaadr.(form).:lisp) |
| 1ad80 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 64 61 64 61 72 20 28 | .(define-caller-pattern.cdadar.( |
| 1ada0 | 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | form).:lisp).(define-caller-patt |
| 1adc0 | 65 72 6e 20 63 64 61 64 64 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | ern.cdaddr.(form).:lisp).(define |
| 1ade0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 64 64 61 61 72 20 28 66 6f 72 6d 29 20 3a 6c | -caller-pattern.cddaar.(form).:l |
| 1ae00 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 64 64 61 | isp).(define-caller-pattern.cdda |
| 1ae20 | 64 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | dr.(form).:lisp).(define-caller- |
| 1ae40 | 70 61 74 74 65 72 6e 20 63 64 64 64 61 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 | pattern.cdddar.(form).:lisp).(de |
| 1ae60 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 64 64 64 64 72 20 28 66 6f 72 6d | fine-caller-pattern.cddddr.(form |
| 1ae80 | 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | ).:lisp)..(define-caller-pattern |
| 1aea0 | 20 63 6f 6e 73 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | .cons.(form.form).:lisp).(define |
| 1aec0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 72 65 65 2d 65 71 75 61 6c 20 28 66 6f 72 6d | -caller-pattern.tree-equal.(form |
| 1aee0 | 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6e 29 29 20 3a 6c 69 73 70 29 0a 28 64 | .form.&key.(:star.fn)).:lisp).(d |
| 1af00 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 6e 64 70 20 28 66 6f 72 6d 29 | efine-caller-pattern.endp.(form) |
| 1af20 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c | .:lisp).(define-caller-pattern.l |
| 1af40 | 69 73 74 2d 6c 65 6e 67 74 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | ist-length.(form).:lisp).(define |
| 1af60 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 74 68 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 | -caller-pattern.nth.(form.form). |
| 1af80 | 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 | :lisp)..(define-caller-pattern.f |
| 1afa0 | 69 72 73 74 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | irst.(form).:lisp).(define-calle |
| 1afc0 | 72 2d 70 61 74 74 65 72 6e 20 73 65 63 6f 6e 64 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 | r-pattern.second.(form).:lisp).( |
| 1afe0 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 68 69 72 64 20 28 66 6f 72 | define-caller-pattern.third.(for |
| 1b000 | 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | m).:lisp).(define-caller-pattern |
| 1b020 | 20 66 6f 75 72 74 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | .fourth.(form).:lisp).(define-ca |
| 1b040 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 66 74 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 | ller-pattern.fifth.(form).:lisp) |
| 1b060 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 69 78 74 68 20 28 66 | .(define-caller-pattern.sixth.(f |
| 1b080 | 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | orm).:lisp).(define-caller-patte |
| 1b0a0 | 72 6e 20 73 65 76 65 6e 74 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | rn.seventh.(form).:lisp).(define |
| 1b0c0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 69 67 68 74 68 20 28 66 6f 72 6d 29 20 3a 6c | -caller-pattern.eighth.(form).:l |
| 1b0e0 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 69 6e 74 | isp).(define-caller-pattern.nint |
| 1b100 | 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | h.(form).:lisp).(define-caller-p |
| 1b120 | 61 74 74 65 72 6e 20 74 65 6e 74 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 | attern.tenth.(form).:lisp)..(def |
| 1b140 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 73 74 20 28 66 6f 72 6d 29 20 3a | ine-caller-pattern.rest.(form).: |
| 1b160 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 74 68 | lisp).(define-caller-pattern.nth |
| 1b180 | 63 64 72 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | cdr.(form.form).:lisp).(define-c |
| 1b1a0 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 61 73 74 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f | aller-pattern.last.(form.(:optio |
| 1b1c0 | 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | nal.form)).:lisp).(define-caller |
| 1b1e0 | 2d 70 61 74 74 65 72 6e 20 6c 69 73 74 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 | -pattern.list.((:star.form)).:li |
| 1b200 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 69 73 74 2a | sp).(define-caller-pattern.list* |
| 1b220 | 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | .((:star.form)).:lisp).(define-c |
| 1b240 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 6c 69 73 74 20 28 66 6f 72 6d 20 26 6b | aller-pattern.make-list.(form.&k |
| 1b260 | 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | ey.(:star.form)).:lisp).(define- |
| 1b280 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 70 70 65 6e 64 20 28 28 3a 73 74 61 72 20 66 6f | caller-pattern.append.((:star.fo |
| 1b2a0 | 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | rm)).:lisp).(define-caller-patte |
| 1b2c0 | 72 6e 20 63 6f 70 79 2d 6c 69 73 74 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | rn.copy-list.(form).:lisp).(defi |
| 1b2e0 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 70 79 2d 61 6c 69 73 74 20 28 66 6f | ne-caller-pattern.copy-alist.(fo |
| 1b300 | 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | rm).:lisp).(define-caller-patter |
| 1b320 | 6e 20 63 6f 70 79 2d 74 72 65 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | n.copy-tree.(form).:lisp).(defin |
| 1b340 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 76 61 70 70 65 6e 64 20 28 66 6f 72 6d | e-caller-pattern.revappend.(form |
| 1b360 | 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | .form).:lisp).(define-caller-pat |
| 1b380 | 74 65 72 6e 20 6e 63 6f 6e 63 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 | tern.nconc.((:star.form)).:lisp) |
| 1b3a0 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 72 65 63 6f 6e 63 20 | .(define-caller-pattern.nreconc. |
| 1b3c0 | 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | (form.form).:lisp).(define-calle |
| 1b3e0 | 72 2d 70 61 74 74 65 72 6e 20 70 75 73 68 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 | r-pattern.push.(form.form).:lisp |
| 1b400 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 75 73 68 6e 65 77 | ).(define-caller-pattern.pushnew |
| 1b420 | 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a | .(form.form.&key.(:star.form)).: |
| 1b440 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 6f 70 | lisp).(define-caller-pattern.pop |
| 1b460 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .(form).:lisp).(define-caller-pa |
| 1b480 | 74 74 65 72 6e 20 62 75 74 6c 61 73 74 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 | ttern.butlast.(form.(:optional.f |
| 1b4a0 | 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm)).:lisp).(define-caller-patt |
| 1b4c0 | 65 72 6e 20 6e 62 75 74 6c 61 73 74 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f | ern.nbutlast.(form.(:optional.fo |
| 1b4e0 | 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | rm)).:lisp).(define-caller-patte |
| 1b500 | 72 6e 20 6c 64 69 66 66 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | rn.ldiff.(form.form).:lisp).(def |
| 1b520 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 70 6c 61 63 61 20 28 66 6f 72 6d 20 | ine-caller-pattern.rplaca.(form. |
| 1b540 | 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | form).:lisp).(define-caller-patt |
| 1b560 | 65 72 6e 20 72 70 6c 61 63 64 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 | ern.rplacd.(form.form).:lisp)..( |
| 1b580 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 75 62 73 74 20 28 66 6f 72 | define-caller-pattern.subst.(for |
| 1b5a0 | 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a | m.form.form.&key.(:star.form)).: |
| 1b5c0 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 75 62 | lisp).(define-caller-pattern.sub |
| 1b5e0 | 73 74 2d 69 66 20 28 66 6f 72 6d 20 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 | st-if.(form.fn.form.&key.(:star. |
| 1b600 | 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | form)).:lisp).(define-caller-pat |
| 1b620 | 74 65 72 6e 20 73 75 62 73 74 2d 69 66 2d 6e 6f 74 20 28 66 6f 72 6d 20 66 6e 20 66 6f 72 6d 20 | tern.subst-if-not.(form.fn.form. |
| 1b640 | 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | &key.(:star.form)).:lisp).(defin |
| 1b660 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 73 75 62 73 74 20 28 66 6f 72 6d 20 66 6f | e-caller-pattern.nsubst.(form.fo |
| 1b680 | 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 | rm.form.&key.(:star.form)).:lisp |
| 1b6a0 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 73 75 62 73 74 2d | ).(define-caller-pattern.nsubst- |
| 1b6c0 | 69 66 20 28 66 6f 72 6d 20 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 | if.(form.fn.form.&key.(:star.for |
| 1b6e0 | 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m)).:lisp).(define-caller-patter |
| 1b700 | 6e 20 6e 73 75 62 73 74 2d 69 66 2d 6e 6f 74 20 28 66 6f 72 6d 20 66 6e 20 66 6f 72 6d 20 26 6b | n.nsubst-if-not.(form.fn.form.&k |
| 1b720 | 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | ey.(:star.form)).:lisp).(define- |
| 1b740 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 75 62 6c 69 73 20 28 66 6f 72 6d 20 66 6f 72 6d | caller-pattern.sublis.(form.form |
| 1b760 | 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | .&key.(:star.form)).:lisp).(defi |
| 1b780 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 73 75 62 6c 69 73 20 28 66 6f 72 6d 20 | ne-caller-pattern.nsublis.(form. |
| 1b7a0 | 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 | form.&key.(:star.form)).:lisp).( |
| 1b7c0 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 65 6d 62 65 72 20 28 66 6f | define-caller-pattern.member.(fo |
| 1b7e0 | 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 | rm.form.&key.(:star.form)).:lisp |
| 1b800 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 65 6d 62 65 72 2d | ).(define-caller-pattern.member- |
| 1b820 | 69 66 20 28 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a | if.(fn.form.&key.(:star.form)).: |
| 1b840 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 65 6d | lisp).(define-caller-pattern.mem |
| 1b860 | 62 65 72 2d 69 66 2d 6e 6f 74 20 28 66 6e 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 | ber-if-not.(fn.form.&key.(:star. |
| 1b880 | 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | form)).:lisp)..(define-caller-pa |
| 1b8a0 | 74 74 65 72 6e 20 74 61 69 6c 70 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 | ttern.tailp.(form.form).:lisp).( |
| 1b8c0 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 64 6a 6f 69 6e 20 28 66 6f | define-caller-pattern.adjoin.(fo |
| 1b8e0 | 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 | rm.form.&key.(:star.form)).:lisp |
| 1b900 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 6e 69 6f 6e 20 28 | ).(define-caller-pattern.union.( |
| 1b920 | 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 | form.form.&key.(:star.form)).:li |
| 1b940 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 75 6e 69 6f | sp).(define-caller-pattern.nunio |
| 1b960 | 6e 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 | n.(form.form.&key.(:star.form)). |
| 1b980 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6e | :lisp).(define-caller-pattern.in |
| 1b9a0 | 74 65 72 73 65 63 74 69 6f 6e 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 | tersection.(form.form.&key.(:sta |
| 1b9c0 | 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | r.form)).:lisp).(define-caller-p |
| 1b9e0 | 61 74 74 65 72 6e 20 6e 69 6e 74 65 72 73 65 63 74 69 6f 6e 20 28 66 6f 72 6d 20 66 6f 72 6d 20 | attern.nintersection.(form.form. |
| 1ba00 | 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | &key.(:star.form)).:lisp).(defin |
| 1ba20 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 65 74 2d 64 69 66 66 65 72 65 6e 63 65 20 | e-caller-pattern.set-difference. |
| 1ba40 | 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c | (form.form.&key.(:star.form)).:l |
| 1ba60 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 73 65 74 | isp).(define-caller-pattern.nset |
| 1ba80 | 2d 64 69 66 66 65 72 65 6e 63 65 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 | -difference.(form.form.&key.(:st |
| 1baa0 | 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | ar.form)).:lisp).(define-caller- |
| 1bac0 | 70 61 74 74 65 72 6e 20 73 65 74 2d 65 78 63 6c 75 73 69 76 65 2d 6f 72 20 28 66 6f 72 6d 20 66 | pattern.set-exclusive-or.(form.f |
| 1bae0 | 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 | orm.&key.(:star.form)).:lisp).(d |
| 1bb00 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 73 65 74 2d 65 78 63 6c 75 73 | efine-caller-pattern.nset-exclus |
| 1bb20 | 69 76 65 2d 6f 72 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f | ive-or.(form.form.&key.(:star.fo |
| 1bb40 | 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | rm)).:lisp).(define-caller-patte |
| 1bb60 | 72 6e 20 73 75 62 73 65 74 70 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 | rn.subsetp.(form.form.&key.(:sta |
| 1bb80 | 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | r.form)).:lisp)..(define-caller- |
| 1bba0 | 70 61 74 74 65 72 6e 20 61 63 6f 6e 73 20 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a | pattern.acons.(form.form.form).: |
| 1bbc0 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 69 | lisp).(define-caller-pattern.pai |
| 1bbe0 | 72 6c 69 73 20 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 | rlis.(form.form.(:optional.form) |
| 1bc00 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1bc20 | 61 73 73 6f 63 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 | assoc.(form.form.&key.(:star.for |
| 1bc40 | 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m)).:lisp).(define-caller-patter |
| 1bc60 | 6e 20 61 73 73 6f 63 2d 69 66 20 28 66 6e 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | n.assoc-if.(fn.form).:lisp).(def |
| 1bc80 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 73 73 6f 63 2d 69 66 2d 6e 6f 74 20 | ine-caller-pattern.assoc-if-not. |
| 1bca0 | 28 66 6e 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | (fn.form).:lisp).(define-caller- |
| 1bcc0 | 70 61 74 74 65 72 6e 20 72 61 73 73 6f 63 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 | pattern.rassoc.(form.form.&key.( |
| 1bce0 | 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | :star.form)).:lisp).(define-call |
| 1bd00 | 65 72 2d 70 61 74 74 65 72 6e 20 72 61 73 73 6f 63 2d 69 66 20 28 66 6e 20 66 6f 72 6d 20 26 6b | er-pattern.rassoc-if.(fn.form.&k |
| 1bd20 | 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | ey.(:star.form)).:lisp).(define- |
| 1bd40 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 61 73 73 6f 63 2d 69 66 2d 6e 6f 74 20 28 66 6e | caller-pattern.rassoc-if-not.(fn |
| 1bd60 | 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a | .form.&key.(:star.form)).:lisp). |
| 1bd80 | 0a 3b 3b 3b 20 48 61 73 68 20 54 61 62 6c 65 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | .;;;.Hash.Tables.(define-caller- |
| 1bda0 | 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 26 6b 65 79 20 28 3a | pattern.make-hash-table.(&key.(: |
| 1bdc0 | 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | star.form)).:lisp).(define-calle |
| 1bde0 | 72 2d 70 61 74 74 65 72 6e 20 68 61 73 68 2d 74 61 62 6c 65 2d 70 20 28 66 6f 72 6d 29 20 3a 6c | r-pattern.hash-table-p.(form).:l |
| 1be00 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 65 74 68 | isp).(define-caller-pattern.geth |
| 1be20 | 61 73 68 20 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 | ash.(form.form.(:optional.form)) |
| 1be40 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 | .:lisp).(define-caller-pattern.r |
| 1be60 | 65 6d 68 61 73 68 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | emhash.(form.form).:lisp).(defin |
| 1be80 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 70 68 61 73 68 20 28 66 6e 20 66 6f 72 | e-caller-pattern.maphash.(fn.for |
| 1bea0 | 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | m).:lisp).(define-caller-pattern |
| 1bec0 | 20 63 6c 72 68 61 73 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | .clrhash.(form).:lisp).(define-c |
| 1bee0 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 20 28 | aller-pattern.hash-table-count.( |
| 1bf00 | 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | form).:lisp).(define-caller-patt |
| 1bf20 | 65 72 6e 20 77 69 74 68 2d 68 61 73 68 2d 74 61 62 6c 65 2d 69 74 65 72 61 74 6f 72 0a 20 20 28 | ern.with-hash-table-iterator...( |
| 1bf40 | 28 6e 61 6d 65 20 66 6f 72 6d 29 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 32 | (name.form).(:star.form)).:lisp2 |
| 1bf60 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 68 61 73 68 2d 74 61 | ).(define-caller-pattern.hash-ta |
| 1bf80 | 62 6c 65 2d 72 65 68 61 73 68 2d 73 69 7a 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 | ble-rehash-size.(form).:lisp2).( |
| 1bfa0 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 68 61 73 68 2d 74 61 62 6c 65 | define-caller-pattern.hash-table |
| 1bfc0 | 2d 72 65 68 61 73 68 2d 74 68 72 65 73 68 6f 6c 64 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 | -rehash-threshold.(form).:lisp2) |
| 1bfe0 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 68 61 73 68 2d 74 61 62 | .(define-caller-pattern.hash-tab |
| 1c000 | 6c 65 2d 73 69 7a 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 | le-size.(form).:lisp2).(define-c |
| 1c020 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 68 61 73 68 2d 74 61 62 6c 65 2d 74 65 73 74 20 28 66 | aller-pattern.hash-table-test.(f |
| 1c040 | 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm).:lisp2).(define-caller-patt |
| 1c060 | 65 72 6e 20 73 78 68 61 73 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 41 72 | ern.sxhash.(form).:lisp)..;;;.Ar |
| 1c080 | 72 61 79 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 | rays.(define-caller-pattern.make |
| 1c0a0 | 2d 61 72 72 61 79 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 | -array.(form.&key.(:star.form)). |
| 1c0c0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 | :lisp).(define-variable-pattern. |
| 1c0e0 | 61 72 72 61 79 2d 72 61 6e 6b 2d 6c 69 6d 69 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | array-rank-limit.:lisp).(define- |
| 1c100 | 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 61 72 72 61 79 2d 64 69 6d 65 6e 73 69 6f 6e | variable-pattern.array-dimension |
| 1c120 | 2d 6c 69 6d 69 74 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 | -limit.:lisp).(define-variable-p |
| 1c140 | 61 74 74 65 72 6e 20 61 72 72 61 79 2d 74 6f 74 61 6c 2d 73 69 7a 65 2d 6c 69 6d 69 74 20 3a 6c | attern.array-total-size-limit.:l |
| 1c160 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 76 65 63 74 | isp).(define-caller-pattern.vect |
| 1c180 | 6f 72 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | or.((:star.form)).:lisp).(define |
| 1c1a0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 72 65 66 20 28 66 6f 72 6d 20 28 3a 73 74 61 | -caller-pattern.aref.(form.(:sta |
| 1c1c0 | 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | r.form)).:lisp).(define-caller-p |
| 1c1e0 | 61 74 74 65 72 6e 20 73 76 72 65 66 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | attern.svref.(form.form).:lisp). |
| 1c200 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 72 72 61 79 2d 65 6c 65 | (define-caller-pattern.array-ele |
| 1c220 | 6d 65 6e 74 2d 74 79 70 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | ment-type.(form).:lisp).(define- |
| 1c240 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 72 72 61 79 2d 72 61 6e 6b 20 28 66 6f 72 6d 29 | caller-pattern.array-rank.(form) |
| 1c260 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 | .:lisp).(define-caller-pattern.a |
| 1c280 | 72 72 61 79 2d 64 69 6d 65 6e 73 69 6f 6e 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 | rray-dimension.(form.form).:lisp |
| 1c2a0 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 72 72 61 79 2d 64 | ).(define-caller-pattern.array-d |
| 1c2c0 | 69 6d 65 6e 73 69 6f 6e 73 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | imensions.(form).:lisp).(define- |
| 1c2e0 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 72 72 61 79 2d 74 6f 74 61 6c 2d 73 69 7a 65 20 | caller-pattern.array-total-size. |
| 1c300 | 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | (form).:lisp).(define-caller-pat |
| 1c320 | 74 65 72 6e 20 61 72 72 61 79 2d 69 6e 2d 62 6f 75 6e 64 73 2d 70 20 28 66 6f 72 6d 20 28 3a 73 | tern.array-in-bounds-p.(form.(:s |
| 1c340 | 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | tar.form)).:lisp).(define-caller |
| 1c360 | 2d 70 61 74 74 65 72 6e 20 61 72 72 61 79 2d 72 6f 77 2d 6d 61 6a 6f 72 2d 69 6e 64 65 78 20 28 | -pattern.array-row-major-index.( |
| 1c380 | 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | form.(:star.form)).:lisp).(defin |
| 1c3a0 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 6f 77 2d 6d 61 6a 6f 72 2d 61 72 65 66 20 | e-caller-pattern.row-major-aref. |
| 1c3c0 | 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | (form.form).:lisp2).(define-call |
| 1c3e0 | 65 72 2d 70 61 74 74 65 72 6e 20 61 64 6a 75 73 74 61 62 6c 65 2d 61 72 72 61 79 2d 70 20 28 66 | er-pattern.adjustable-array-p.(f |
| 1c400 | 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm).:lisp)..(define-caller-patt |
| 1c420 | 65 72 6e 20 62 69 74 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 | ern.bit.(form.(:star.form)).:lis |
| 1c440 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 62 69 74 20 28 | p).(define-caller-pattern.sbit.( |
| 1c460 | 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 | form.(:star.form)).:lisp)..(defi |
| 1c480 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 69 74 2d 61 6e 64 20 28 66 6f 72 6d 20 | ne-caller-pattern.bit-and.(form. |
| 1c4a0 | 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 | form.(:optional.form)).:lisp).(d |
| 1c4c0 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 69 74 2d 69 6f 72 20 28 66 6f | efine-caller-pattern.bit-ior.(fo |
| 1c4e0 | 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 | rm.form.(:optional.form)).:lisp) |
| 1c500 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 69 74 2d 78 6f 72 20 | .(define-caller-pattern.bit-xor. |
| 1c520 | 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 | (form.form.(:optional.form)).:li |
| 1c540 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 69 74 2d 65 | sp).(define-caller-pattern.bit-e |
| 1c560 | 71 76 20 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 | qv.(form.form.(:optional.form)). |
| 1c580 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 69 | :lisp).(define-caller-pattern.bi |
| 1c5a0 | 74 2d 6e 61 6e 64 20 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 | t-nand.(form.form.(:optional.for |
| 1c5c0 | 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m)).:lisp).(define-caller-patter |
| 1c5e0 | 6e 20 62 69 74 2d 6e 6f 72 20 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 | n.bit-nor.(form.form.(:optional. |
| 1c600 | 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | form)).:lisp).(define-caller-pat |
| 1c620 | 74 65 72 6e 20 62 69 74 2d 61 6e 64 63 31 20 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 | tern.bit-andc1.(form.form.(:opti |
| 1c640 | 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | onal.form)).:lisp).(define-calle |
| 1c660 | 72 2d 70 61 74 74 65 72 6e 20 62 69 74 2d 61 6e 64 63 32 20 28 66 6f 72 6d 20 66 6f 72 6d 20 28 | r-pattern.bit-andc2.(form.form.( |
| 1c680 | 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | :optional.form)).:lisp).(define- |
| 1c6a0 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 69 74 2d 6f 72 63 31 20 28 66 6f 72 6d 20 66 6f | caller-pattern.bit-orc1.(form.fo |
| 1c6c0 | 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | rm.(:optional.form)).:lisp).(def |
| 1c6e0 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 69 74 2d 6f 72 63 32 20 28 66 6f 72 | ine-caller-pattern.bit-orc2.(for |
| 1c700 | 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a | m.form.(:optional.form)).:lisp). |
| 1c720 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 69 74 2d 6e 6f 74 20 28 | (define-caller-pattern.bit-not.( |
| 1c740 | 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 | form.(:optional.form)).:lisp)..( |
| 1c760 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 72 72 61 79 2d 68 61 73 2d | define-caller-pattern.array-has- |
| 1c780 | 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 | fill-pointer-p.(form).:lisp).(de |
| 1c7a0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 | fine-caller-pattern.fill-pointer |
| 1c7c0 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .(form).:lisp).(define-caller-pa |
| 1c7e0 | 74 74 65 72 6e 20 76 65 63 74 6f 72 2d 70 75 73 68 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c | ttern.vector-push.(form.form).:l |
| 1c800 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 76 65 63 74 | isp).(define-caller-pattern.vect |
| 1c820 | 6f 72 2d 70 75 73 68 2d 65 78 74 65 6e 64 20 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 | or-push-extend.(form.form.(:opti |
| 1c840 | 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | onal.form)).:lisp).(define-calle |
| 1c860 | 72 2d 70 61 74 74 65 72 6e 20 76 65 63 74 6f 72 2d 70 6f 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 | r-pattern.vector-pop.(form).:lis |
| 1c880 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 64 6a 75 73 74 | p).(define-caller-pattern.adjust |
| 1c8a0 | 2d 61 72 72 61 79 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f | -array.(form.form.&key.(:star.fo |
| 1c8c0 | 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 53 74 72 69 6e 67 73 0a 28 64 65 66 69 6e 65 | rm)).:lisp)..;;;.Strings.(define |
| 1c8e0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 72 20 28 66 6f 72 6d 20 66 6f 72 6d 29 | -caller-pattern.char.(form.form) |
| 1c900 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 | .:lisp).(define-caller-pattern.s |
| 1c920 | 63 68 61 72 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | char.(form.form).:lisp).(define- |
| 1c940 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 3d 20 28 66 6f 72 6d 20 66 6f 72 | caller-pattern.string=.(form.for |
| 1c960 | 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | m.&key.(:star.form)).:lisp).(def |
| 1c980 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 | ine-caller-pattern.string-equal. |
| 1c9a0 | 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c | (form.form.&key.(:star.form)).:l |
| 1c9c0 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 69 | isp).(define-caller-pattern.stri |
| 1c9e0 | 6e 67 3c 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 | ng<.(form.form.&key.(:star.form) |
| 1ca00 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1ca20 | 73 74 72 69 6e 67 3e 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 | string>.(form.form.&key.(:star.f |
| 1ca40 | 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm)).:lisp).(define-caller-patt |
| 1ca60 | 65 72 6e 20 73 74 72 69 6e 67 3c 3d 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 | ern.string<=.(form.form.&key.(:s |
| 1ca80 | 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | tar.form)).:lisp).(define-caller |
| 1caa0 | 2d 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 3e 3d 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 | -pattern.string>=.(form.form.&ke |
| 1cac0 | 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | y.(:star.form)).:lisp).(define-c |
| 1cae0 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 2f 3d 20 28 66 6f 72 6d 20 66 6f 72 | aller-pattern.string/=.(form.for |
| 1cb00 | 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | m.&key.(:star.form)).:lisp).(def |
| 1cb20 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 2d 6c 65 73 73 70 20 | ine-caller-pattern.string-lessp. |
| 1cb40 | 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c | (form.form.&key.(:star.form)).:l |
| 1cb60 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 69 | isp).(define-caller-pattern.stri |
| 1cb80 | 6e 67 2d 67 72 65 61 74 65 72 70 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 | ng-greaterp.(form.form.&key.(:st |
| 1cba0 | 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | ar.form)).:lisp).(define-caller- |
| 1cbc0 | 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 2d 6e 6f 74 2d 67 72 65 61 74 65 72 70 20 28 66 6f 72 | pattern.string-not-greaterp.(for |
| 1cbe0 | 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 | m.form.&key.(:star.form)).:lisp) |
| 1cc00 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 2d 6e | .(define-caller-pattern.string-n |
| 1cc20 | 6f 74 2d 6c 65 73 73 70 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 | ot-lessp.(form.form.&key.(:star. |
| 1cc40 | 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | form)).:lisp).(define-caller-pat |
| 1cc60 | 74 65 72 6e 20 73 74 72 69 6e 67 2d 6e 6f 74 2d 65 71 75 61 6c 20 28 66 6f 72 6d 20 66 6f 72 6d | tern.string-not-equal.(form.form |
| 1cc80 | 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 | .&key.(:star.form)).:lisp)..(def |
| 1cca0 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 | ine-caller-pattern.make-string.( |
| 1ccc0 | 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 | form.&key.(:star.form)).:lisp).( |
| 1cce0 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 2d 74 72 69 | define-caller-pattern.string-tri |
| 1cd00 | 6d 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | m.(form.form).:lisp).(define-cal |
| 1cd20 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 2d 6c 65 66 74 2d 74 72 69 6d 20 28 66 6f | ler-pattern.string-left-trim.(fo |
| 1cd40 | 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | rm.form).:lisp).(define-caller-p |
| 1cd60 | 61 74 74 65 72 6e 20 73 74 72 69 6e 67 2d 72 69 67 68 74 2d 74 72 69 6d 20 28 66 6f 72 6d 20 66 | attern.string-right-trim.(form.f |
| 1cd80 | 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | orm).:lisp).(define-caller-patte |
| 1cda0 | 72 6e 20 73 74 72 69 6e 67 2d 75 70 63 61 73 65 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 | rn.string-upcase.(form.&key.(:st |
| 1cdc0 | 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | ar.form)).:lisp).(define-caller- |
| 1cde0 | 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 28 66 6f 72 6d 20 26 6b | pattern.string-downcase.(form.&k |
| 1ce00 | 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | ey.(:star.form)).:lisp).(define- |
| 1ce20 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 2d 63 61 70 69 74 61 6c 69 7a 65 | caller-pattern.string-capitalize |
| 1ce40 | 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 | .(form.&key.(:star.form)).:lisp) |
| 1ce60 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 73 74 72 69 6e 67 2d | .(define-caller-pattern.nstring- |
| 1ce80 | 75 70 63 61 73 65 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 | upcase.(form.&key.(:star.form)). |
| 1cea0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 73 | :lisp).(define-caller-pattern.ns |
| 1cec0 | 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 | tring-downcase.(form.&key.(:star |
| 1cee0 | 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .form)).:lisp).(define-caller-pa |
| 1cf00 | 74 74 65 72 6e 20 6e 73 74 72 69 6e 67 2d 63 61 70 69 74 61 6c 69 7a 65 20 28 66 6f 72 6d 20 26 | ttern.nstring-capitalize.(form.& |
| 1cf20 | 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | key.(:star.form)).:lisp).(define |
| 1cf40 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 20 28 66 6f 72 6d 29 20 3a 6c | -caller-pattern.string.(form).:l |
| 1cf60 | 69 73 70 29 0a 0a 3b 3b 3b 20 53 74 72 75 63 74 75 72 65 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c | isp)..;;;.Structures.(define-cal |
| 1cf80 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 66 73 74 72 75 63 74 20 0a 20 20 28 28 3a 6f 72 20 6e | ler-pattern.defstruct....((:or.n |
| 1cfa0 | 61 6d 65 20 28 6e 61 6d 65 20 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 29 0a 20 20 20 28 | ame.(name.(:rest.:ignore)))....( |
| 1cfc0 | 3a 6f 70 74 69 6f 6e 61 6c 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 0a | :optional.documentation-string). |
| 1cfe0 | 20 20 20 28 3a 70 6c 75 73 20 3a 69 67 6e 6f 72 65 29 29 0a 20 20 3a 6c 69 73 70 29 0a 0a 3b 3b | ...(:plus.:ignore))...:lisp)..;; |
| 1d000 | 3b 20 54 68 65 20 45 76 61 6c 75 61 74 6f 72 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | ;.The.Evaluator.(define-caller-p |
| 1d020 | 61 74 74 65 72 6e 20 65 76 61 6c 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | attern.eval.(form).:lisp).(defin |
| 1d040 | 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 65 76 61 6c 68 6f 6f 6b 2a 20 3a 6c | e-variable-pattern.*evalhook*.:l |
| 1d060 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 61 | isp).(define-variable-pattern.*a |
| 1d080 | 70 70 6c 79 68 6f 6f 6b 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | pplyhook*.:lisp).(define-caller- |
| 1d0a0 | 70 61 74 74 65 72 6e 20 65 76 61 6c 68 6f 6f 6b 20 28 66 6f 72 6d 20 66 6e 20 66 6e 20 26 6f 70 | pattern.evalhook.(form.fn.fn.&op |
| 1d0c0 | 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | tional.:ignore).:lisp).(define-c |
| 1d0e0 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 70 70 6c 79 68 6f 6f 6b 20 28 66 6e 20 66 6f 72 6d | aller-pattern.applyhook.(fn.form |
| 1d100 | 20 66 6e 20 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 29 | .fn.fn.&optional.:ignore).:lisp) |
| 1d120 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6e 73 74 61 6e 74 | .(define-caller-pattern.constant |
| 1d140 | 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 53 74 72 65 61 6d 73 0a 28 64 65 | p.(form).:lisp)..;;;.Streams.(de |
| 1d160 | 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 73 74 61 6e 64 61 72 64 2d | fine-variable-pattern.*standard- |
| 1d180 | 69 6e 70 75 74 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 | input*.:lisp).(define-variable-p |
| 1d1a0 | 61 74 74 65 72 6e 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 20 3a 6c 69 73 70 29 0a | attern.*standard-output*.:lisp). |
| 1d1c0 | 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 65 72 72 6f 72 2d | (define-variable-pattern.*error- |
| 1d1e0 | 6f 75 74 70 75 74 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d | output*.:lisp).(define-variable- |
| 1d200 | 70 61 74 74 65 72 6e 20 2a 71 75 65 72 79 2d 69 6f 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | pattern.*query-io*.:lisp).(defin |
| 1d220 | 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 64 65 62 75 67 2d 69 6f 2a 20 3a 6c | e-variable-pattern.*debug-io*.:l |
| 1d240 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 74 | isp).(define-variable-pattern.*t |
| 1d260 | 65 72 6d 69 6e 61 6c 2d 69 6f 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 | erminal-io*.:lisp).(define-varia |
| 1d280 | 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 74 72 61 63 65 2d 6f 75 74 70 75 74 2a 20 3a 6c 69 73 70 | ble-pattern.*trace-output*.:lisp |
| 1d2a0 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 73 79 | ).(define-caller-pattern.make-sy |
| 1d2c0 | 6e 6f 6e 79 6d 2d 73 74 72 65 61 6d 20 28 73 79 6d 62 6f 6c 29 20 3a 6c 69 73 70 29 0a 28 64 65 | nonym-stream.(symbol).:lisp).(de |
| 1d2e0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 62 72 6f 61 64 63 61 | fine-caller-pattern.make-broadca |
| 1d300 | 73 74 2d 73 74 72 65 61 6d 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a | st-stream.((:star.form)).:lisp). |
| 1d320 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 63 6f 6e 63 | (define-caller-pattern.make-conc |
| 1d340 | 61 74 65 6e 61 74 65 64 2d 73 74 72 65 61 6d 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a | atenated-stream.((:star.form)).: |
| 1d360 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b | lisp).(define-caller-pattern.mak |
| 1d380 | 65 2d 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 | e-two-way-stream.(form.form).:li |
| 1d3a0 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d | sp).(define-caller-pattern.make- |
| 1d3c0 | 65 63 68 6f 2d 73 74 72 65 61 6d 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 | echo-stream.(form.form).:lisp).( |
| 1d3e0 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 73 74 72 69 6e | define-caller-pattern.make-strin |
| 1d400 | 67 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 | g-input-stream.(form.&optional.f |
| 1d420 | 6f 72 6d 20 66 6f 72 6d 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | orm.form)...:lisp).(define-calle |
| 1d440 | 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 73 74 72 69 6e 67 2d 6f 75 74 70 75 74 2d 73 74 72 | r-pattern.make-string-output-str |
| 1d460 | 65 61 6d 20 28 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 | eam.(&key.(:star.form)).:lisp).( |
| 1d480 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 65 74 2d 6f 75 74 70 75 74 | define-caller-pattern.get-output |
| 1d4a0 | 2d 73 74 72 65 61 6d 2d 73 74 72 69 6e 67 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 | -stream-string.(form).:lisp)..(d |
| 1d4c0 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 69 74 68 2d 6f 70 65 6e 2d 73 | efine-caller-pattern.with-open-s |
| 1d4e0 | 74 72 65 61 6d 0a 20 20 28 28 76 61 72 20 66 6f 72 6d 29 0a 20 20 20 28 3a 73 74 61 72 20 64 65 | tream...((var.form)....(:star.de |
| 1d500 | 63 6c 61 72 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c | claration)....(:star.form))...:l |
| 1d520 | 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 69 74 | isp)..(define-caller-pattern.wit |
| 1d540 | 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 0a 20 20 28 28 76 61 72 20 66 6f 72 6d | h-input-from-string...((var.form |
| 1d560 | 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 20 28 3a 73 74 61 72 20 64 65 | .&key.(:star.form))....(:star.de |
| 1d580 | 63 6c 61 72 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c | claration)....(:star.form))...:l |
| 1d5a0 | 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 69 74 | isp)..(define-caller-pattern.wit |
| 1d5c0 | 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 28 28 76 61 72 20 28 3a 6f 70 74 | h-output-to-string...((var.(:opt |
| 1d5e0 | 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 0a 20 20 20 28 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 | ional.form))....(:star.declarati |
| 1d600 | 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 | on)....(:star.form))...:lisp).(d |
| 1d620 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 65 61 6d 70 20 28 66 6f | efine-caller-pattern.streamp.(fo |
| 1d640 | 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | rm).:lisp).(define-caller-patter |
| 1d660 | 6e 20 6f 70 65 6e 2d 73 74 72 65 61 6d 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 | n.open-stream-p.(form).:lisp2).( |
| 1d680 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6e 70 75 74 2d 73 74 72 65 | define-caller-pattern.input-stre |
| 1d6a0 | 61 6d 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | am-p.(form).:lisp).(define-calle |
| 1d6c0 | 72 2d 70 61 74 74 65 72 6e 20 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 70 20 28 66 6f 72 6d 29 | r-pattern.output-stream-p.(form) |
| 1d6e0 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 | .:lisp).(define-caller-pattern.s |
| 1d700 | 74 72 65 61 6d 2d 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 | tream-element-type.(form).:lisp) |
| 1d720 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6c 6f 73 65 20 28 66 | .(define-caller-pattern.close.(f |
| 1d740 | 6f 72 6d 20 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | orm.(:rest.:ignore)).:lisp).(def |
| 1d760 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 72 6f 61 64 63 61 73 74 2d 73 74 72 | ine-caller-pattern.broadcast-str |
| 1d780 | 65 61 6d 2d 73 74 72 65 61 6d 73 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 | eam-streams.(form).:lisp2).(defi |
| 1d7a0 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6e 63 61 74 65 6e 61 74 65 64 2d 73 | ne-caller-pattern.concatenated-s |
| 1d7c0 | 74 72 65 61 6d 2d 73 74 72 65 61 6d 73 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 | tream-streams.(form).:lisp2).(de |
| 1d7e0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 63 68 6f 2d 73 74 72 65 61 6d 2d | fine-caller-pattern.echo-stream- |
| 1d800 | 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 | input-stream.(form).:lisp2).(def |
| 1d820 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 63 68 6f 2d 73 74 72 65 61 6d 2d 6f | ine-caller-pattern.echo-stream-o |
| 1d840 | 75 74 70 75 74 2d 73 74 72 65 61 6d 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 | utput-stream.(form).:lisp2).(def |
| 1d860 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 79 6e 6f 6e 79 6d 2d 73 74 72 65 61 | ine-caller-pattern.synonym-strea |
| 1d880 | 6d 2d 73 79 6d 62 6f 6c 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d | m-symbol.(form).:lisp2).(define- |
| 1d8a0 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 2d 69 6e | caller-pattern.two-way-stream-in |
| 1d8c0 | 70 75 74 2d 73 74 72 65 61 6d 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e | put-stream.(form).:lisp2).(defin |
| 1d8e0 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 2d | e-caller-pattern.two-way-stream- |
| 1d900 | 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 | output-stream.(form).:lisp2).(de |
| 1d920 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6e 74 65 72 61 63 74 69 76 65 2d | fine-caller-pattern.interactive- |
| 1d940 | 73 74 72 65 61 6d 2d 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d | stream-p.(form).:lisp2).(define- |
| 1d960 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 65 61 6d 2d 65 78 74 65 72 6e 61 6c 2d 66 | caller-pattern.stream-external-f |
| 1d980 | 6f 72 6d 61 74 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 0a 3b 3b 3b 20 52 65 61 64 65 72 | ormat.(form).:lisp2)..;;;.Reader |
| 1d9a0 | 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 72 65 61 64 2d | .(define-variable-pattern.*read- |
| 1d9c0 | 62 61 73 65 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 | base*.:lisp).(define-variable-pa |
| 1d9e0 | 74 74 65 72 6e 20 2a 72 65 61 64 2d 73 75 70 70 72 65 73 73 2a 20 3a 6c 69 73 70 29 0a 28 64 65 | ttern.*read-suppress*.:lisp).(de |
| 1da00 | 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 72 65 61 64 2d 65 76 61 6c | fine-variable-pattern.*read-eval |
| 1da20 | 2a 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 | *.:lisp2).(define-variable-patte |
| 1da40 | 72 6e 20 2a 72 65 61 64 74 61 62 6c 65 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | rn.*readtable*.:lisp).(define-ca |
| 1da60 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 70 79 2d 72 65 61 64 74 61 62 6c 65 20 28 26 6f 70 | ller-pattern.copy-readtable.(&op |
| 1da80 | 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | tional.form.form).:lisp).(define |
| 1daa0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 61 64 74 61 62 6c 65 70 20 28 66 6f 72 6d | -caller-pattern.readtablep.(form |
| 1dac0 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1dae0 | 73 65 74 2d 73 79 6e 74 61 78 2d 66 72 6f 6d 2d 63 68 61 72 20 28 66 6f 72 6d 20 66 6f 72 6d 20 | set-syntax-from-char.(form.form. |
| 1db00 | 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 6f 72 6d 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 | &optional.form.form)...:lisp).(d |
| 1db20 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 65 74 2d 6d 61 63 72 6f 2d 63 | efine-caller-pattern.set-macro-c |
| 1db40 | 68 61 72 61 63 74 65 72 20 28 66 6f 72 6d 20 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d | haracter.(form.fn.&optional.form |
| 1db60 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1db80 | 67 65 74 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 | get-macro-character.(form.(:opti |
| 1dba0 | 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | onal.form)).:lisp).(define-calle |
| 1dbc0 | 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 64 69 73 70 61 74 63 68 2d 6d 61 63 72 6f 2d 63 68 | r-pattern.make-dispatch-macro-ch |
| 1dbe0 | 61 72 61 63 74 65 72 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 6f 72 | aracter.(form.&optional.form.for |
| 1dc00 | 6d 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | m)...:lisp).(define-caller-patte |
| 1dc20 | 72 6e 20 73 65 74 2d 64 69 73 70 61 74 63 68 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 0a | rn.set-dispatch-macro-character. |
| 1dc40 | 20 20 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6e 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 | ..(form.form.fn.(:optional.form) |
| 1dc60 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1dc80 | 67 65 74 2d 64 69 73 70 61 74 63 68 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 0a 20 20 28 | get-dispatch-macro-character...( |
| 1dca0 | 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 | form.form.(:optional.form)).:lis |
| 1dcc0 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 61 64 74 61 | p).(define-caller-pattern.readta |
| 1dce0 | 62 6c 65 2d 63 61 73 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d | ble-case.(form).:lisp2).(define- |
| 1dd00 | 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 | variable-pattern.*print-readably |
| 1dd20 | 2a 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 | *.:lisp2).(define-variable-patte |
| 1dd40 | 72 6e 20 2a 70 72 69 6e 74 2d 65 73 63 61 70 65 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | rn.*print-escape*.:lisp).(define |
| 1dd60 | 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a | -variable-pattern.*print-pretty* |
| 1dd80 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e | .:lisp).(define-variable-pattern |
| 1dda0 | 20 2a 70 72 69 6e 74 2d 63 69 72 63 6c 65 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 | .*print-circle*.:lisp).(define-v |
| 1ddc0 | 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 70 72 69 6e 74 2d 62 61 73 65 2a 20 3a 6c 69 | ariable-pattern.*print-base*.:li |
| 1dde0 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 70 72 | sp).(define-variable-pattern.*pr |
| 1de00 | 69 6e 74 2d 72 61 64 69 78 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 | int-radix*.:lisp).(define-variab |
| 1de20 | 6c 65 2d 70 61 74 74 65 72 6e 20 2a 70 72 69 6e 74 2d 63 61 73 65 2a 20 3a 6c 69 73 70 29 0a 28 | le-pattern.*print-case*.:lisp).( |
| 1de40 | 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 70 72 69 6e 74 2d 67 | define-variable-pattern.*print-g |
| 1de60 | 65 6e 73 79 6d 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 | ensym*.:lisp).(define-variable-p |
| 1de80 | 61 74 74 65 72 6e 20 2a 70 72 69 6e 74 2d 6c 65 76 65 6c 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 | attern.*print-level*.:lisp).(def |
| 1dea0 | 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 70 72 69 6e 74 2d 6c 65 6e 67 | ine-variable-pattern.*print-leng |
| 1dec0 | 74 68 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 | th*.:lisp).(define-variable-patt |
| 1dee0 | 65 72 6e 20 2a 70 72 69 6e 74 2d 61 72 72 61 79 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | ern.*print-array*.:lisp).(define |
| 1df00 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f | -caller-pattern.with-standard-io |
| 1df20 | 2d 73 79 6e 74 61 78 20 0a 20 20 28 28 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 0a | -syntax....((:star.declaration). |
| 1df40 | 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 0a 28 64 65 66 | ...(:star.form))...:lisp2)..(def |
| 1df60 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 61 64 20 28 26 6f 70 74 69 6f 6e | ine-caller-pattern.read.(&option |
| 1df80 | 61 6c 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 | al.form.form.form.form).:lisp).( |
| 1dfa0 | 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 72 65 61 64 2d 64 65 | define-variable-pattern.*read-de |
| 1dfc0 | 66 61 75 6c 74 2d 66 6c 6f 61 74 2d 66 6f 72 6d 61 74 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | fault-float-format*.:lisp).(defi |
| 1dfe0 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 61 64 2d 70 72 65 73 65 72 76 69 6e | ne-caller-pattern.read-preservin |
| 1e000 | 67 2d 77 68 69 74 65 73 70 61 63 65 0a 20 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 | g-whitespace...(&optional.form.f |
| 1e020 | 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | orm.form.form).:lisp).(define-ca |
| 1e040 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 61 64 2d 64 65 6c 69 6d 69 74 65 64 2d 6c 69 73 74 | ller-pattern.read-delimited-list |
| 1e060 | 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 | .(form.&optional.form.form).:lis |
| 1e080 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 61 64 2d 6c | p).(define-caller-pattern.read-l |
| 1e0a0 | 69 6e 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f | ine.(&optional.form.form.form.fo |
| 1e0c0 | 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | rm).:lisp).(define-caller-patter |
| 1e0e0 | 6e 20 72 65 61 64 2d 63 68 61 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 6f 72 6d | n.read-char.(&optional.form.form |
| 1e100 | 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | .form.form).:lisp).(define-calle |
| 1e120 | 72 2d 70 61 74 74 65 72 6e 20 75 6e 72 65 61 64 2d 63 68 61 72 20 28 66 6f 72 6d 20 28 3a 6f 70 | r-pattern.unread-char.(form.(:op |
| 1e140 | 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | tional.form)).:lisp).(define-cal |
| 1e160 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 65 65 6b 2d 63 68 61 72 20 28 26 6f 70 74 69 6f 6e 61 6c | ler-pattern.peek-char.(&optional |
| 1e180 | 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 | .form.form.form.form).:lisp).(de |
| 1e1a0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 69 73 74 65 6e 20 28 28 3a 6f 70 | fine-caller-pattern.listen.((:op |
| 1e1c0 | 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | tional.form)).:lisp).(define-cal |
| 1e1e0 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 61 64 2d 63 68 61 72 2d 6e 6f 2d 68 61 6e 67 20 28 28 | ler-pattern.read-char-no-hang.(( |
| 1e200 | 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | :star.form)).:lisp).(define-call |
| 1e220 | 65 72 2d 70 61 74 74 65 72 6e 20 63 6c 65 61 72 2d 69 6e 70 75 74 20 28 28 3a 6f 70 74 69 6f 6e | er-pattern.clear-input.((:option |
| 1e240 | 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | al.form)).:lisp).(define-caller- |
| 1e260 | 70 61 74 74 65 72 6e 20 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 66 6f 72 6d 20 28 | pattern.read-from-string.(form.( |
| 1e280 | 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | :star.form)).:lisp).(define-call |
| 1e2a0 | 65 72 2d 70 61 74 74 65 72 6e 20 70 61 72 73 65 2d 69 6e 74 65 67 65 72 20 28 66 6f 72 6d 20 26 | er-pattern.parse-integer.(form.& |
| 1e2c0 | 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | rest.:ignore).:lisp).(define-cal |
| 1e2e0 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 61 64 2d 62 79 74 65 20 28 28 3a 73 74 61 72 20 66 6f | ler-pattern.read-byte.((:star.fo |
| 1e300 | 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | rm)).:lisp)..(define-caller-patt |
| 1e320 | 65 72 6e 20 77 72 69 74 65 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d | ern.write.(form.&key.(:star.form |
| 1e340 | 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | )).:lisp).(define-caller-pattern |
| 1e360 | 20 70 72 69 6e 31 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a | .prin1.(form.(:optional.form)).: |
| 1e380 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 72 69 | lisp).(define-caller-pattern.pri |
| 1e3a0 | 6e 74 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 | nt.(form.(:optional.form)).:lisp |
| 1e3c0 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 70 72 69 6e 74 20 | ).(define-caller-pattern.pprint. |
| 1e3e0 | 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 | (form.(:optional.form)).:lisp).( |
| 1e400 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 72 69 6e 63 20 28 66 6f 72 | define-caller-pattern.princ.(for |
| 1e420 | 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 | m.(:optional.form)).:lisp).(defi |
| 1e440 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e | ne-caller-pattern.write-to-strin |
| 1e460 | 67 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 | g.(form.&key.(:star.form)).:lisp |
| 1e480 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 72 69 6e 31 2d 74 | ).(define-caller-pattern.prin1-t |
| 1e4a0 | 6f 2d 73 74 72 69 6e 67 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 | o-string.(form).:lisp).(define-c |
| 1e4c0 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 28 66 | aller-pattern.princ-to-string.(f |
| 1e4e0 | 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | orm).:lisp).(define-caller-patte |
| 1e500 | 72 6e 20 77 72 69 74 65 2d 63 68 61 72 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 | rn.write-char.(form.(:optional.f |
| 1e520 | 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm)).:lisp).(define-caller-patt |
| 1e540 | 65 72 6e 20 77 72 69 74 65 2d 73 74 72 69 6e 67 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c | ern.write-string.(form.&optional |
| 1e560 | 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 | .form.&key.(:star.form))...:lisp |
| 1e580 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 72 69 74 65 2d 6c | ).(define-caller-pattern.write-l |
| 1e5a0 | 69 6e 65 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a | ine.(form.&optional.form.&key.(: |
| 1e5c0 | 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | star.form))...:lisp).(define-cal |
| 1e5e0 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 65 72 70 72 69 20 28 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 | ler-pattern.terpri.((:optional.f |
| 1e600 | 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm)).:lisp).(define-caller-patt |
| 1e620 | 65 72 6e 20 66 72 65 73 68 2d 6c 69 6e 65 20 28 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 | ern.fresh-line.((:optional.form) |
| 1e640 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1e660 | 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 28 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 | finish-output.((:optional.form)) |
| 1e680 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 | .:lisp).(define-caller-pattern.f |
| 1e6a0 | 6f 72 63 65 2d 6f 75 74 70 75 74 20 28 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a | orce-output.((:optional.form)).: |
| 1e6c0 | 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6c 65 | lisp).(define-caller-pattern.cle |
| 1e6e0 | 61 72 2d 6f 75 74 70 75 74 20 28 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 | ar-output.((:optional.form)).:li |
| 1e700 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 72 69 6e 74 | sp).(define-caller-pattern.print |
| 1e720 | 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 20 0a 20 20 28 28 66 6f 72 6d 20 66 6f 72 | -unreadable-object....((form.for |
| 1e740 | 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 20 28 3a 73 74 61 72 20 64 | m.&key.(:star.form))....(:star.d |
| 1e760 | 65 63 6c 61 72 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a | eclaration)....(:star.form))...: |
| 1e780 | 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 72 | lisp2).(define-caller-pattern.wr |
| 1e7a0 | 69 74 65 2d 62 79 74 65 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | ite-byte.(form.form).:lisp).(def |
| 1e7c0 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 6f 72 6d 61 74 0a 20 20 28 64 65 73 | ine-caller-pattern.format...(des |
| 1e7e0 | 74 69 6e 61 74 69 6f 6e 0a 20 20 20 63 6f 6e 74 72 6f 6c 2d 73 74 72 69 6e 67 0a 20 20 20 28 3a | tination....control-string....(: |
| 1e800 | 72 65 73 74 20 66 6f 72 6d 61 74 2d 61 72 67 75 6d 65 6e 74 73 29 29 0a 20 20 3a 6c 69 73 70 29 | rest.format-arguments))...:lisp) |
| 1e820 | 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 79 2d 6f 72 2d 6e 2d | ..(define-caller-pattern.y-or-n- |
| 1e840 | 70 20 28 63 6f 6e 74 72 6f 6c 2d 73 74 72 69 6e 67 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 | p.(control-string.(:star.form)). |
| 1e860 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 79 65 | :lisp).(define-caller-pattern.ye |
| 1e880 | 73 2d 6f 72 2d 6e 6f 2d 70 20 28 63 6f 6e 74 72 6f 6c 2d 73 74 72 69 6e 67 20 28 3a 73 74 61 72 | s-or-no-p.(control-string.(:star |
| 1e8a0 | 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 50 61 74 68 6e 61 6d 65 73 0a 28 64 | .form)).:lisp)..;;;.Pathnames.(d |
| 1e8c0 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 69 6c 64 2d 70 61 74 68 6e 61 | efine-caller-pattern.wild-pathna |
| 1e8e0 | 6d 65 2d 70 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 | me-p.(form.&optional.form).:lisp |
| 1e900 | 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 74 68 6e 61 | 2).(define-caller-pattern.pathna |
| 1e920 | 6d 65 2d 6d 61 74 63 68 2d 70 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 | me-match-p.(form.form).:lisp2).( |
| 1e940 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 72 61 6e 73 6c 61 74 65 2d | define-caller-pattern.translate- |
| 1e960 | 70 61 74 68 6e 61 6d 65 20 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 26 6b 65 79 20 28 3a | pathname.(form.form.form.&key.(: |
| 1e980 | 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 0a 28 64 65 66 69 6e 65 2d 63 | star.form))...:lisp2)..(define-c |
| 1e9a0 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 20 28 | aller-pattern.logical-pathname.( |
| 1e9c0 | 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | form).:lisp2).(define-caller-pat |
| 1e9e0 | 74 65 72 6e 20 74 72 61 6e 73 6c 61 74 65 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 20 | tern.translate-logical-pathname. |
| 1ea00 | 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 | (form.&key.(:star.form))...:lisp |
| 1ea20 | 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 67 69 63 61 | 2).(define-caller-pattern.logica |
| 1ea40 | 6c 2d 70 61 74 68 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 28 66 6f 72 6d 29 20 3a | l-pathname-translations.(form).: |
| 1ea60 | 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f | lisp2).(define-caller-pattern.lo |
| 1ea80 | 61 64 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 | ad-logical-pathname-translations |
| 1eaa0 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | .(form).:lisp2).(define-caller-p |
| 1eac0 | 61 74 74 65 72 6e 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 68 6e 61 6d 65 20 28 66 6f | attern.compile-file-pathname.(fo |
| 1eae0 | 72 6d 20 26 6b 65 79 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 0a 28 64 65 66 69 6e 65 2d 63 | rm.&key.form).:lisp2)..(define-c |
| 1eb00 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 74 68 6e 61 6d 65 20 28 66 6f 72 6d 29 20 3a 6c | aller-pattern.pathname.(form).:l |
| 1eb20 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 72 75 65 | isp).(define-caller-pattern.true |
| 1eb40 | 6e 61 6d 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | name.(form).:lisp).(define-calle |
| 1eb60 | 72 2d 70 61 74 74 65 72 6e 20 70 61 72 73 65 2d 6e 61 6d 65 73 74 72 69 6e 67 20 28 28 3a 73 74 | r-pattern.parse-namestring.((:st |
| 1eb80 | 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | ar.form)).:lisp).(define-caller- |
| 1eba0 | 70 61 74 74 65 72 6e 20 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 28 28 3a 73 74 61 72 20 | pattern.merge-pathnames.((:star. |
| 1ebc0 | 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 | form)).:lisp).(define-variable-p |
| 1ebe0 | 61 74 74 65 72 6e 20 2a 64 65 66 61 75 6c 74 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 | attern.*default-pathname-default |
| 1ec00 | 73 2a 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | s*.:lisp).(define-caller-pattern |
| 1ec20 | 20 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c | .make-pathname.((:star.form)).:l |
| 1ec40 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 74 68 | isp).(define-caller-pattern.path |
| 1ec60 | 6e 61 6d 65 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | namep.(form).:lisp).(define-call |
| 1ec80 | 65 72 2d 70 61 74 74 65 72 6e 20 70 61 74 68 6e 61 6d 65 2d 68 6f 73 74 20 28 66 6f 72 6d 29 20 | er-pattern.pathname-host.(form). |
| 1eca0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 | :lisp).(define-caller-pattern.pa |
| 1ecc0 | 74 68 6e 61 6d 65 2d 64 65 76 69 63 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 | thname-device.(form).:lisp).(def |
| 1ece0 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 74 68 6e 61 6d 65 2d 64 69 72 65 | ine-caller-pattern.pathname-dire |
| 1ed00 | 63 74 6f 72 79 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | ctory.(form).:lisp).(define-call |
| 1ed20 | 65 72 2d 70 61 74 74 65 72 6e 20 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 28 66 6f 72 6d 29 20 | er-pattern.pathname-name.(form). |
| 1ed40 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 | :lisp).(define-caller-pattern.pa |
| 1ed60 | 74 68 6e 61 6d 65 2d 74 79 70 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | thname-type.(form).:lisp).(defin |
| 1ed80 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 74 68 6e 61 6d 65 2d 76 65 72 73 69 6f | e-caller-pattern.pathname-versio |
| 1eda0 | 6e 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 | n.(form).:lisp).(define-caller-p |
| 1edc0 | 61 74 74 65 72 6e 20 6e 61 6d 65 73 74 72 69 6e 67 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | attern.namestring.(form).:lisp). |
| 1ede0 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 6c 65 2d 6e 61 6d 65 | (define-caller-pattern.file-name |
| 1ee00 | 73 74 72 69 6e 67 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | string.(form).:lisp).(define-cal |
| 1ee20 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 73 74 72 69 6e 67 | ler-pattern.directory-namestring |
| 1ee40 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .(form).:lisp).(define-caller-pa |
| 1ee60 | 74 74 65 72 6e 20 68 6f 73 74 2d 6e 61 6d 65 73 74 72 69 6e 67 20 28 66 6f 72 6d 29 20 3a 6c 69 | ttern.host-namestring.(form).:li |
| 1ee80 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 6e 6f 75 67 | sp).(define-caller-pattern.enoug |
| 1eea0 | 68 2d 6e 61 6d 65 73 74 72 69 6e 67 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f | h-namestring.(form.(:optional.fo |
| 1eec0 | 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | rm)).:lisp).(define-caller-patte |
| 1eee0 | 72 6e 20 75 73 65 72 2d 68 6f 6d 65 64 69 72 2d 70 61 74 68 6e 61 6d 65 20 28 26 6f 70 74 69 6f | rn.user-homedir-pathname.(&optio |
| 1ef00 | 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | nal.form).:lisp).(define-caller- |
| 1ef20 | 70 61 74 74 65 72 6e 20 6f 70 65 6e 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 | pattern.open.(form.&key.(:star.f |
| 1ef40 | 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | orm)).:lisp).(define-caller-patt |
| 1ef60 | 65 72 6e 20 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 0a 20 20 28 28 76 61 72 20 66 6f 72 6d 20 | ern.with-open-file...((var.form. |
| 1ef80 | 28 3a 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 29 0a 20 20 20 28 3a 73 74 61 72 20 64 65 63 6c 61 | (:rest.:ignore))....(:star.decla |
| 1efa0 | 72 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 3a 6c 69 73 70 29 | ration)....(:star.form))..:lisp) |
| 1efc0 | 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 6e 61 6d 65 2d | ..(define-caller-pattern.rename- |
| 1efe0 | 66 69 6c 65 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | file.(form.form).:lisp).(define- |
| 1f000 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 6c 65 74 65 2d 66 69 6c 65 20 28 66 6f 72 6d | caller-pattern.delete-file.(form |
| 1f020 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1f040 | 70 72 6f 62 65 2d 66 69 6c 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | probe-file.(form).:lisp).(define |
| 1f060 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 20 | -caller-pattern.file-write-date. |
| 1f080 | 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | (form).:lisp).(define-caller-pat |
| 1f0a0 | 74 65 72 6e 20 66 69 6c 65 2d 61 75 74 68 6f 72 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 | tern.file-author.(form).:lisp).( |
| 1f0c0 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 6c 65 2d 70 6f 73 69 74 | define-caller-pattern.file-posit |
| 1f0e0 | 69 6f 6e 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 | ion.(form.(:optional.form)).:lis |
| 1f100 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 6c 65 2d 6c | p).(define-caller-pattern.file-l |
| 1f120 | 65 6e 67 74 68 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | ength.(form).:lisp).(define-call |
| 1f140 | 65 72 2d 70 61 74 74 65 72 6e 20 66 69 6c 65 2d 73 74 72 69 6e 67 2d 6c 65 6e 67 74 68 20 28 66 | er-pattern.file-string-length.(f |
| 1f160 | 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | orm.form).:lisp2).(define-caller |
| 1f180 | 2d 70 61 74 74 65 72 6e 20 6c 6f 61 64 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 | -pattern.load.(form.&key.(:star. |
| 1f1a0 | 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 | form)).:lisp).(define-variable-p |
| 1f1c0 | 61 74 74 65 72 6e 20 2a 6c 6f 61 64 2d 76 65 72 62 6f 73 65 2a 20 3a 6c 69 73 70 29 0a 28 64 65 | attern.*load-verbose*.:lisp).(de |
| 1f1e0 | 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 6c 6f 61 64 2d 70 72 69 6e | fine-variable-pattern.*load-prin |
| 1f200 | 74 2a 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 | t*.:lisp2).(define-variable-patt |
| 1f220 | 65 72 6e 20 2a 6c 6f 61 64 2d 70 61 74 68 6e 61 6d 65 2a 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 | ern.*load-pathname*.:lisp2).(def |
| 1f240 | 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 6c 6f 61 64 2d 74 72 75 65 6e | ine-variable-pattern.*load-truen |
| 1f260 | 61 6d 65 2a 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | ame*.:lisp2).(define-caller-patt |
| 1f280 | 65 72 6e 20 6d 61 6b 65 2d 6c 6f 61 64 2d 66 6f 72 6d 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 | ern.make-load-form.(form).:lisp2 |
| 1f2a0 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 6c 6f | ).(define-caller-pattern.make-lo |
| 1f2c0 | 61 64 2d 66 6f 72 6d 2d 73 61 76 69 6e 67 2d 73 6c 6f 74 73 20 28 66 6f 72 6d 20 26 6f 70 74 69 | ad-form-saving-slots.(form.&opti |
| 1f2e0 | 6f 6e 61 6c 20 66 6f 72 6d 29 0a 20 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | onal.form)...:lisp2).(define-cal |
| 1f300 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 69 72 65 63 74 6f 72 79 20 28 66 6f 72 6d 20 26 6b 65 79 | ler-pattern.directory.(form.&key |
| 1f320 | 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 45 72 72 6f 72 | .(:star.form)).:lisp)..;;;.Error |
| 1f340 | 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 72 72 6f 72 20 28 | s.(define-caller-pattern.error.( |
| 1f360 | 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | form.(:star.form)).:lisp).(defin |
| 1f380 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 65 72 72 6f 72 20 28 66 6f 72 6d 20 66 6f | e-caller-pattern.cerror.(form.fo |
| 1f3a0 | 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d | rm.(:star.form)).:lisp).(define- |
| 1f3c0 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 61 72 6e 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 | caller-pattern.warn.(form.(:star |
| 1f3e0 | 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d | .form)).:lisp).(define-variable- |
| 1f400 | 70 61 74 74 65 72 6e 20 2a 62 72 65 61 6b 2d 6f 6e 2d 77 61 72 6e 69 6e 67 73 2a 20 3a 6c 69 73 | pattern.*break-on-warnings*.:lis |
| 1f420 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 62 72 65 61 6b 20 | p).(define-caller-pattern.break. |
| 1f440 | 28 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c | (&optional.form.(:star.form)).:l |
| 1f460 | 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 65 63 | isp).(define-caller-pattern.chec |
| 1f480 | 6b 2d 74 79 70 65 20 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 | k-type.(form.form.(:optional.for |
| 1f4a0 | 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m)).:lisp).(define-caller-patter |
| 1f4c0 | 6e 20 61 73 73 65 72 74 20 0a 20 20 28 66 6f 72 6d 0a 20 20 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 | n.assert....(form....(:optional. |
| 1f4e0 | 28 28 3a 73 74 61 72 20 76 61 72 29 29 0a 09 20 20 20 20 20 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 | ((:star.var))........(:optional. |
| 1f500 | 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 29 29 20 0a 20 20 3a 6c 69 73 70 29 0a 28 | form.(:star.form))))....:lisp).( |
| 1f520 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 74 79 70 65 63 61 73 65 20 | define-caller-pattern.etypecase. |
| 1f540 | 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 28 73 79 6d 62 6f 6c 20 28 3a 73 74 61 72 20 66 6f 72 6d | (form.(:star.(symbol.(:star.form |
| 1f560 | 29 29 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | )))).:lisp).(define-caller-patte |
| 1f580 | 72 6e 20 63 74 79 70 65 63 61 73 65 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 28 73 79 6d 62 6f | rn.ctypecase.(form.(:star.(symbo |
| 1f5a0 | 6c 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 | l.(:star.form)))).:lisp).(define |
| 1f5c0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 63 61 73 65 0a 20 20 28 66 6f 72 6d 0a 20 20 | -caller-pattern.ecase...(form... |
| 1f5e0 | 20 28 3a 73 74 61 72 20 28 28 3a 6f 72 20 73 79 6d 62 6f 6c 20 28 28 3a 73 74 61 72 20 73 79 6d | .(:star.((:or.symbol.((:star.sym |
| 1f600 | 62 6f 6c 29 29 29 0a 09 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 3a 6c 69 | bol))).....(:star.form))))...:li |
| 1f620 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 63 61 73 65 | sp).(define-caller-pattern.ccase |
| 1f640 | 20 0a 20 20 28 66 6f 72 6d 0a 20 20 20 28 3a 73 74 61 72 20 28 28 3a 6f 72 20 73 79 6d 62 6f 6c | ....(form....(:star.((:or.symbol |
| 1f660 | 20 28 28 3a 73 74 61 72 20 73 79 6d 62 6f 6c 29 29 29 0a 09 20 20 20 28 3a 73 74 61 72 20 66 6f | .((:star.symbol))).....(:star.fo |
| 1f680 | 72 6d 29 29 29 29 0a 20 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 54 68 65 20 43 6f 6d 70 69 6c 65 | rm))))...:lisp)..;;;.The.Compile |
| 1f6a0 | 72 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6d 70 69 6c 65 | r.(define-caller-pattern.compile |
| 1f6c0 | 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a | .(form.(:optional.form)).:lisp). |
| 1f6e0 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6d 70 69 6c 65 2d 66 | (define-caller-pattern.compile-f |
| 1f700 | 69 6c 65 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 | ile.(form.&key.(:star.form)).:li |
| 1f720 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 63 6f | sp).(define-variable-pattern.*co |
| 1f740 | 6d 70 69 6c 65 2d 76 65 72 62 6f 73 65 2a 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 | mpile-verbose*.:lisp2).(define-v |
| 1f760 | 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 63 6f 6d 70 69 6c 65 2d 70 72 69 6e 74 2a 20 | ariable-pattern.*compile-print*. |
| 1f780 | 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e | :lisp2).(define-variable-pattern |
| 1f7a0 | 20 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 68 6e 61 6d 65 2a 20 3a 6c 69 73 70 32 29 | .*compile-file-pathname*.:lisp2) |
| 1f7c0 | 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 63 6f 6d 70 69 | .(define-variable-pattern.*compi |
| 1f7e0 | 6c 65 2d 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 2a 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e | le-file-truename*.:lisp2).(defin |
| 1f800 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 6f 61 64 2d 74 69 6d 65 2d 76 61 6c 75 65 | e-caller-pattern.load-time-value |
| 1f820 | 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 32 29 | .(form.(:optional.form)).:lisp2) |
| 1f840 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 69 73 61 73 73 65 6d | .(define-caller-pattern.disassem |
| 1f860 | 62 6c 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | ble.(form).:lisp).(define-caller |
| 1f880 | 2d 70 61 74 74 65 72 6e 20 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 65 78 70 72 65 73 73 | -pattern.function-lambda-express |
| 1f8a0 | 69 6f 6e 20 28 66 6e 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | ion.(fn).:lisp2).(define-caller- |
| 1f8c0 | 70 61 74 74 65 72 6e 20 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 75 6e 69 74 20 28 28 | pattern.with-compilation-unit.(( |
| 1f8e0 | 28 3a 73 74 61 72 20 3a 69 67 6e 6f 72 65 29 29 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 0a | (:star.:ignore)).(:star.form)).. |
| 1f900 | 20 20 3a 6c 69 73 70 32 29 0a 0a 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 28 64 65 | ..:lisp2)..;;;.Documentation.(de |
| 1f920 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f | fine-caller-pattern.documentatio |
| 1f940 | 6e 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c | n.(form.form).:lisp).(define-cal |
| 1f960 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 72 61 63 65 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 | ler-pattern.trace.((:star.form)) |
| 1f980 | 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 | .:lisp).(define-caller-pattern.u |
| 1f9a0 | 6e 74 72 61 63 65 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 | ntrace.((:star.form)).:lisp).(de |
| 1f9c0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 65 70 20 28 66 6f 72 6d 29 20 | fine-caller-pattern.step.(form). |
| 1f9e0 | 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 69 | :lisp).(define-caller-pattern.ti |
| 1fa00 | 6d 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | me.(form).:lisp).(define-caller- |
| 1fa20 | 70 61 74 74 65 72 6e 20 64 65 73 63 72 69 62 65 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c | pattern.describe.(form.&optional |
| 1fa40 | 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | .form).:lisp).(define-caller-pat |
| 1fa60 | 74 65 72 6e 20 64 65 73 63 72 69 62 65 2d 6f 62 6a 65 63 74 20 28 66 6f 72 6d 20 26 6f 70 74 69 | tern.describe-object.(form.&opti |
| 1fa80 | 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 | onal.form).:lisp2).(define-calle |
| 1faa0 | 72 2d 70 61 74 74 65 72 6e 20 69 6e 73 70 65 63 74 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a | r-pattern.inspect.(form).:lisp). |
| 1fac0 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 6f 6f 6d 20 28 28 3a 6f | (define-caller-pattern.room.((:o |
| 1fae0 | 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | ptional.form)).:lisp).(define-ca |
| 1fb00 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 64 20 28 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d | ller-pattern.ed.((:optional.form |
| 1fb20 | 29 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | )).:lisp).(define-caller-pattern |
| 1fb40 | 20 64 72 69 62 62 6c 65 20 28 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 | .dribble.((:optional.form)).:lis |
| 1fb60 | 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 70 72 6f 70 6f | p).(define-caller-pattern.apropo |
| 1fb80 | 73 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 29 | s.(form.(:optional.form)).:lisp) |
| 1fba0 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 70 72 6f 70 6f 73 2d | .(define-caller-pattern.apropos- |
| 1fbc0 | 6c 69 73 74 20 28 66 6f 72 6d 20 28 3a 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 29 20 3a 6c 69 | list.(form.(:optional.form)).:li |
| 1fbe0 | 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 65 74 2d 64 | sp).(define-caller-pattern.get-d |
| 1fc00 | 65 63 6f 64 65 64 2d 74 69 6d 65 20 28 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 | ecoded-time.().:lisp).(define-ca |
| 1fc20 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 65 74 2d 75 6e 69 76 65 72 73 61 6c 2d 74 69 6d 65 20 | ller-pattern.get-universal-time. |
| 1fc40 | 28 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | ().:lisp).(define-caller-pattern |
| 1fc60 | 20 64 65 63 6f 64 65 2d 75 6e 69 76 65 72 73 61 6c 2d 74 69 6d 65 20 28 66 6f 72 6d 20 26 6f 70 | .decode-universal-time.(form.&op |
| 1fc80 | 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | tional.form).:lisp).(define-call |
| 1fca0 | 65 72 2d 70 61 74 74 65 72 6e 20 65 6e 63 6f 64 65 2d 75 6e 69 76 65 72 73 61 6c 2d 74 69 6d 65 | er-pattern.encode-universal-time |
| 1fcc0 | 20 0a 20 20 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f | ....(form.form.form.form.form.fo |
| 1fce0 | 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | rm.&optional.form).:lisp).(defin |
| 1fd00 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 75 | e-caller-pattern.get-internal-ru |
| 1fd20 | 6e 2d 74 69 6d 65 20 28 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | n-time.().:lisp).(define-caller- |
| 1fd40 | 70 61 74 74 65 72 6e 20 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 65 61 6c 2d 74 69 6d 65 20 28 | pattern.get-internal-real-time.( |
| 1fd60 | 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | ).:lisp).(define-caller-pattern. |
| 1fd80 | 73 6c 65 65 70 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c | sleep.(form).:lisp)..(define-cal |
| 1fda0 | 6c 65 72 2d 70 61 74 74 65 72 6e 20 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d | ler-pattern.lisp-implementation- |
| 1fdc0 | 74 79 70 65 20 28 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | type.().:lisp).(define-caller-pa |
| 1fde0 | 74 74 65 72 6e 20 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 6f | ttern.lisp-implementation-versio |
| 1fe00 | 6e 20 28 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | n.().:lisp).(define-caller-patte |
| 1fe20 | 72 6e 20 6d 61 63 68 69 6e 65 2d 74 79 70 65 20 28 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e | rn.machine-type.().:lisp).(defin |
| 1fe40 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 63 68 69 6e 65 2d 76 65 72 73 69 6f 6e | e-caller-pattern.machine-version |
| 1fe60 | 20 28 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | .().:lisp).(define-caller-patter |
| 1fe80 | 6e 20 6d 61 63 68 69 6e 65 2d 69 6e 73 74 61 6e 63 65 20 28 29 20 3a 6c 69 73 70 29 0a 28 64 65 | n.machine-instance.().:lisp).(de |
| 1fea0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 6f 66 74 77 61 72 65 2d 74 79 70 | fine-caller-pattern.software-typ |
| 1fec0 | 65 20 28 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | e.().:lisp).(define-caller-patte |
| 1fee0 | 72 6e 20 73 6f 66 74 77 61 72 65 2d 76 65 72 73 69 6f 6e 20 28 29 20 3a 6c 69 73 70 29 0a 28 64 | rn.software-version.().:lisp).(d |
| 1ff00 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 68 6f 72 74 2d 73 69 74 65 2d | efine-caller-pattern.short-site- |
| 1ff20 | 6e 61 6d 65 20 28 29 20 3a 6c 69 73 70 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | name.().:lisp).(define-caller-pa |
| 1ff40 | 74 74 65 72 6e 20 6c 6f 6e 67 2d 73 69 74 65 2d 6e 61 6d 65 20 28 29 20 3a 6c 69 73 70 29 0a 28 | ttern.long-site-name.().:lisp).( |
| 1ff60 | 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 66 65 61 74 75 72 65 | define-variable-pattern.*feature |
| 1ff80 | 73 2a 20 3a 6c 69 73 70 29 0a 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | s*.:lisp)..(define-caller-patter |
| 1ffa0 | 6e 20 69 64 65 6e 74 69 74 79 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 29 0a 0a 3b 3b 3b 20 50 72 | n.identity.(form).:lisp)..;;;.Pr |
| 1ffc0 | 65 74 74 79 20 50 72 69 6e 74 69 6e 67 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 | etty.Printing.(define-variable-p |
| 1ffe0 | 61 74 74 65 72 6e 20 2a 70 72 69 6e 74 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 2a 20 3a | attern.*print-pprint-dispatch*.: |
| 20000 | 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 | lisp2).(define-variable-pattern. |
| 20020 | 2a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 2a 20 3a 6c 69 73 70 32 29 0a 28 64 65 | *print-right-margin*.:lisp2).(de |
| 20040 | 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 70 72 69 6e 74 2d 6d 69 73 | fine-variable-pattern.*print-mis |
| 20060 | 65 72 2d 77 69 64 74 68 2a 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 | er-width*.:lisp2).(define-variab |
| 20080 | 6c 65 2d 70 61 74 74 65 72 6e 20 2a 70 72 69 6e 74 2d 6c 69 6e 65 73 2a 20 3a 6c 69 73 70 32 29 | le-pattern.*print-lines*.:lisp2) |
| 200a0 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 70 72 69 6e 74 2d 6e | .(define-caller-pattern.pprint-n |
| 200c0 | 65 77 6c 69 6e 65 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 | ewline.(form.&optional.form).:li |
| 200e0 | 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 70 72 69 | sp2).(define-caller-pattern.ppri |
| 20100 | 6e 74 2d 6c 6f 67 69 63 61 6c 2d 62 6c 6f 63 6b 0a 20 20 28 28 76 61 72 20 66 6f 72 6d 20 26 6b | nt-logical-block...((var.form.&k |
| 20120 | 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 | ey.(:star.form))....(:star.form) |
| 20140 | 29 0a 20 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | )...:lisp2).(define-caller-patte |
| 20160 | 72 6e 20 70 70 72 69 6e 74 2d 65 78 69 74 2d 69 66 2d 6c 69 73 74 2d 65 78 68 61 75 73 74 65 64 | rn.pprint-exit-if-list-exhausted |
| 20180 | 20 28 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | .().:lisp2).(define-caller-patte |
| 201a0 | 72 6e 20 70 70 72 69 6e 74 2d 70 6f 70 20 28 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 | rn.pprint-pop.().:lisp2).(define |
| 201c0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 70 72 69 6e 74 2d 69 6e 64 65 6e 74 20 28 66 | -caller-pattern.pprint-indent.(f |
| 201e0 | 6f 72 6d 20 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 | orm.form.&optional.form).:lisp2) |
| 20200 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 70 72 69 6e 74 2d 74 | .(define-caller-pattern.pprint-t |
| 20220 | 61 62 20 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 | ab.(form.form.form.&optional.for |
| 20240 | 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m).:lisp2).(define-caller-patter |
| 20260 | 6e 20 70 70 72 69 6e 74 2d 66 69 6c 6c 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6f 70 74 69 6f 6e | n.pprint-fill.(form.form.&option |
| 20280 | 61 6c 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 | al.form.form).:lisp2).(define-ca |
| 202a0 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 70 72 69 6e 74 2d 6c 69 6e 65 61 72 20 28 66 6f 72 6d | ller-pattern.pprint-linear.(form |
| 202c0 | 20 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 | .form.&optional.form.form).:lisp |
| 202e0 | 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 70 72 69 6e 74 | 2).(define-caller-pattern.pprint |
| 20300 | 2d 74 61 62 75 6c 61 72 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f | -tabular.(form.form.&optional.fo |
| 20320 | 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 0a 20 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d | rm.form.form)...:lisp2).(define- |
| 20340 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 6f 72 6d 61 74 74 65 72 20 28 63 6f 6e 74 72 6f | caller-pattern.formatter.(contro |
| 20360 | 6c 2d 73 74 72 69 6e 67 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | l-string).:lisp2).(define-caller |
| 20380 | 2d 70 61 74 74 65 72 6e 20 63 6f 70 79 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 20 28 26 | -pattern.copy-pprint-dispatch.(& |
| 203a0 | 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 | optional.form).:lisp2).(define-c |
| 203c0 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 20 28 66 | aller-pattern.pprint-dispatch.(f |
| 203e0 | 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 | orm.&optional.form).:lisp2).(def |
| 20400 | 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 65 74 2d 70 70 72 69 6e 74 2d 64 69 | ine-caller-pattern.set-pprint-di |
| 20420 | 73 70 61 74 63 68 20 28 66 6f 72 6d 20 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d | spatch.(form.form.&optional.form |
| 20440 | 20 66 6f 72 6d 29 0a 20 20 3a 6c 69 73 70 32 29 0a 0a 3b 3b 3b 20 43 4c 4f 53 0a 28 64 65 66 69 | .form)...:lisp2)..;;;.CLOS.(defi |
| 20460 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 61 64 64 2d 6d 65 74 68 6f 64 20 28 66 6e | ne-caller-pattern.add-method.(fn |
| 20480 | 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 | .form).:lisp2).(define-caller-pa |
| 204a0 | 74 74 65 72 6e 20 63 61 6c 6c 2d 6d 65 74 68 6f 64 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c | ttern.call-method.(form.form).:l |
| 204c0 | 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 61 6c | isp2).(define-caller-pattern.cal |
| 204e0 | 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 | l-next-method.((:star.form)).:li |
| 20500 | 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 68 61 6e | sp2).(define-caller-pattern.chan |
| 20520 | 67 65 2d 63 6c 61 73 73 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 | ge-class.(form.form).:lisp2).(de |
| 20540 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6c 61 73 73 2d 6e 61 6d 65 20 28 | fine-caller-pattern.class-name.( |
| 20560 | 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | form).:lisp2).(define-caller-pat |
| 20580 | 74 65 72 6e 20 63 6c 61 73 73 2d 6f 66 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 | tern.class-of.(form).:lisp2).(de |
| 205a0 | 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6d 70 75 74 65 2d 61 70 70 6c | fine-caller-pattern.compute-appl |
| 205c0 | 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 20 28 66 6e 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 | icable-methods.(fn.(:star.form)) |
| 205e0 | 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | .:lisp2).(define-caller-pattern. |
| 20600 | 64 65 66 63 6c 61 73 73 20 28 6e 61 6d 65 20 26 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 20 3a 6c | defclass.(name.&rest.:ignore).:l |
| 20620 | 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 66 | isp2).(define-caller-pattern.def |
| 20640 | 67 65 6e 65 72 69 63 20 28 6e 61 6d 65 20 6c 61 6d 62 64 61 2d 6c 69 73 74 20 26 72 65 73 74 20 | generic.(name.lambda-list.&rest. |
| 20660 | 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | :ignore).:lisp2).(define-caller- |
| 20680 | 70 61 74 74 65 72 6e 20 64 65 66 69 6e 65 2d 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f | pattern.define-method-combinatio |
| 206a0 | 6e 20 0a 20 20 28 6e 61 6d 65 20 6c 61 6d 62 64 61 2d 6c 69 73 74 20 28 28 3a 73 74 61 72 20 3a | n....(name.lambda-list.((:star.: |
| 206c0 | 69 67 6e 6f 72 65 29 29 0a 09 28 3a 6f 70 74 69 6f 6e 61 6c 20 28 28 3a 65 71 20 3a 61 72 67 75 | ignore))..(:optional.((:eq.:argu |
| 206e0 | 6d 65 6e 74 73 29 20 3a 69 67 6e 6f 72 65 29 29 0a 09 28 3a 6f 70 74 69 6f 6e 61 6c 20 28 28 3a | ments).:ignore))..(:optional.((: |
| 20700 | 65 71 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 20 3a 69 67 6e 6f 72 65 29 29 0a | eq.:generic-function).:ignore)). |
| 20720 | 09 28 3a 73 74 61 72 20 28 3a 6f 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 64 6f 63 75 6d 65 6e | .(:star.(:or.declaration.documen |
| 20740 | 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 09 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 | tation-string))..(:star.form)).. |
| 20760 | 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | .:lisp2).(define-caller-pattern. |
| 20780 | 64 65 66 6d 65 74 68 6f 64 20 0a 20 20 28 6e 61 6d 65 20 28 3a 73 74 61 72 20 73 79 6d 62 6f 6c | defmethod....(name.(:star.symbol |
| 207a0 | 29 20 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 09 28 3a 73 74 61 72 20 28 3a 6f 72 20 64 65 63 6c 61 | ).lambda-list..(:star.(:or.decla |
| 207c0 | 72 61 74 69 6f 6e 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 09 28 | ration.documentation-string))..( |
| 207e0 | 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 | :star.form))...:lisp2).(define-c |
| 20800 | 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 65 6e 73 75 72 65 2d 67 65 6e 65 72 69 63 2d 66 75 6e | aller-pattern.ensure-generic-fun |
| 20820 | 63 74 69 6f 6e 20 28 6e 61 6d 65 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a | ction.(name.&key.(:star.form)).: |
| 20840 | 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 | lisp2).(define-caller-pattern.fi |
| 20860 | 6e 64 2d 63 6c 61 73 73 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 66 6f | nd-class.(form.&optional.form.fo |
| 20880 | 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | rm).:lisp2).(define-caller-patte |
| 208a0 | 72 6e 20 66 69 6e 64 2d 6d 65 74 68 6f 64 20 28 66 6e 20 26 72 65 73 74 20 3a 69 67 6e 6f 72 65 | rn.find-method.(fn.&rest.:ignore |
| 208c0 | 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | ).:lisp2).(define-caller-pattern |
| 208e0 | 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 77 6f 72 64 73 20 28 26 72 65 73 74 20 3a 69 67 6e 6f 72 | .function-keywords.(&rest.:ignor |
| 20900 | 65 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | e).:lisp2).(define-caller-patter |
| 20920 | 6e 20 67 65 6e 65 72 69 63 2d 66 6c 65 74 20 28 28 28 3a 73 74 61 72 20 28 6e 61 6d 65 20 6c 61 | n.generic-flet.(((:star.(name.la |
| 20940 | 6d 62 64 61 2d 6c 69 73 74 29 29 29 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 | mbda-list))).(:star.form))...:li |
| 20960 | 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 65 6e 65 | sp2).(define-caller-pattern.gene |
| 20980 | 72 69 63 2d 6c 61 62 65 6c 73 20 0a 20 20 28 28 28 3a 73 74 61 72 20 28 6e 61 6d 65 20 6c 61 6d | ric-labels....(((:star.(name.lam |
| 209a0 | 62 64 61 2d 6c 69 73 74 29 29 29 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 | bda-list))).(:star.form))...:lis |
| 209c0 | 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 67 65 6e 65 72 | p2).(define-caller-pattern.gener |
| 209e0 | 69 63 2d 66 75 6e 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 2d 6c 69 73 74 29 20 3a 6c 69 73 70 32 | ic-function.(lambda-list).:lisp2 |
| 20a00 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6e 69 74 69 61 6c | ).(define-caller-pattern.initial |
| 20a20 | 69 7a 65 2d 69 6e 73 74 61 6e 63 65 20 28 66 6f 72 6d 20 26 6b 65 79 20 28 3a 73 74 61 72 20 66 | ize-instance.(form.&key.(:star.f |
| 20a40 | 6f 72 6d 29 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | orm)).:lisp2).(define-caller-pat |
| 20a60 | 74 65 72 6e 20 69 6e 76 61 6c 69 64 2d 6d 65 74 68 6f 64 2d 65 72 72 6f 72 20 28 66 6e 20 66 6f | tern.invalid-method-error.(fn.fo |
| 20a80 | 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 | rm.(:star.form)).:lisp2).(define |
| 20aa0 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 28 66 | -caller-pattern.make-instance.(f |
| 20ac0 | 6e 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d | n.(:star.form)).:lisp2).(define- |
| 20ae0 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 73 2d 6f 62 | caller-pattern.make-instances-ob |
| 20b00 | 73 6f 6c 65 74 65 20 28 66 6e 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | solete.(fn).:lisp2).(define-call |
| 20b20 | 65 72 2d 70 61 74 74 65 72 6e 20 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 2d 65 72 | er-pattern.method-combination-er |
| 20b40 | 72 6f 72 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 32 29 0a | ror.(form.(:star.form)).:lisp2). |
| 20b60 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 65 74 68 6f 64 2d 71 75 | (define-caller-pattern.method-qu |
| 20b80 | 61 6c 69 66 69 65 72 73 20 28 66 6e 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 | alifiers.(fn).:lisp2).(define-ca |
| 20ba0 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 65 78 74 2d 6d 65 74 68 6f 64 2d 70 20 28 29 20 3a 6c | ller-pattern.next-method-p.().:l |
| 20bc0 | 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6e 6f 2d | isp2).(define-caller-pattern.no- |
| 20be0 | 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 20 28 66 6e 20 28 3a 73 74 61 72 20 66 6f 72 | applicable-method.(fn.(:star.for |
| 20c00 | 6d 29 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | m)).:lisp2).(define-caller-patte |
| 20c20 | 72 6e 20 6e 6f 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 20 28 66 6e 20 28 3a 73 74 61 72 20 66 6f 72 | rn.no-next-method.(fn.(:star.for |
| 20c40 | 6d 29 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | m)).:lisp2).(define-caller-patte |
| 20c60 | 72 6e 20 70 72 69 6e 74 2d 6f 62 6a 65 63 74 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 | rn.print-object.(form.form).:lis |
| 20c80 | 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 69 6e 69 | p2).(define-caller-pattern.reini |
| 20ca0 | 74 69 61 6c 69 7a 65 2d 69 6e 73 74 61 6e 63 65 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f | tialize-instance.(form.(:star.fo |
| 20cc0 | 72 6d 29 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 | rm)).:lisp2).(define-caller-patt |
| 20ce0 | 65 72 6e 20 72 65 6d 6f 76 65 2d 6d 65 74 68 6f 64 20 28 66 6e 20 66 6f 72 6d 29 20 3a 6c 69 73 | ern.remove-method.(fn.form).:lis |
| 20d00 | 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 68 61 72 65 | p2).(define-caller-pattern.share |
| 20d20 | 64 2d 69 6e 69 74 69 61 6c 69 7a 65 20 28 66 6f 72 6d 20 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 | d-initialize.(form.form.(:star.f |
| 20d40 | 6f 72 6d 29 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | orm)).:lisp2).(define-caller-pat |
| 20d60 | 74 65 72 6e 20 73 6c 6f 74 2d 62 6f 75 6e 64 70 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 | tern.slot-boundp.(form.form).:li |
| 20d80 | 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 6c 6f 74 | sp2).(define-caller-pattern.slot |
| 20da0 | 2d 65 78 69 73 74 73 2d 70 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 | -exists-p.(form.form).:lisp2).(d |
| 20dc0 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 6c 6f 74 2d 6d 61 6b 65 75 6e | efine-caller-pattern.slot-makeun |
| 20de0 | 62 6f 75 6e 64 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e | bound.(form.form).:lisp2).(defin |
| 20e00 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 6c 6f 74 2d 6d 69 73 73 69 6e 67 20 28 66 | e-caller-pattern.slot-missing.(f |
| 20e20 | 6e 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 | n.form.form.form.&optional.form) |
| 20e40 | 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | .:lisp2).(define-caller-pattern. |
| 20e60 | 73 6c 6f 74 2d 75 6e 62 6f 75 6e 64 20 28 66 6e 20 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 | slot-unbound.(fn.form.form).:lis |
| 20e80 | 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 6c 6f 74 2d | p2).(define-caller-pattern.slot- |
| 20ea0 | 76 61 6c 75 65 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e | value.(form.form).:lisp2).(defin |
| 20ec0 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 70 64 61 74 65 2d 69 6e 73 74 61 6e 63 65 | e-caller-pattern.update-instance |
| 20ee0 | 2d 66 6f 72 2d 64 69 66 66 65 72 65 6e 74 2d 63 6c 61 73 73 20 0a 20 20 28 66 6f 72 6d 20 66 6f | -for-different-class....(form.fo |
| 20f00 | 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 | rm.(:star.form)).:lisp2).(define |
| 20f20 | 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 70 64 61 74 65 2d 69 6e 73 74 61 6e 63 65 2d | -caller-pattern.update-instance- |
| 20f40 | 66 6f 72 2d 72 65 64 65 66 69 6e 65 64 2d 63 6c 61 73 73 20 0a 20 20 28 66 6f 72 6d 20 66 6f 72 | for-redefined-class....(form.for |
| 20f60 | 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d | m.(:star.form)).:lisp2).(define- |
| 20f80 | 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 69 74 68 2d 61 63 63 65 73 73 6f 72 73 0a 20 20 | caller-pattern.with-accessors... |
| 20fa0 | 28 28 28 3a 73 74 61 72 20 3a 69 67 6e 6f 72 65 29 29 20 66 6f 72 6d 0a 20 20 20 28 3a 73 74 61 | (((:star.:ignore)).form....(:sta |
| 20fc0 | 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a | r.declaration)....(:star.form)). |
| 20fe0 | 20 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | ..:lisp2).(define-caller-pattern |
| 21000 | 20 77 69 74 68 2d 61 64 64 65 64 2d 6d 65 74 68 6f 64 73 0a 20 20 28 28 6e 61 6d 65 20 6c 61 6d | .with-added-methods...((name.lam |
| 21020 | 62 64 61 2d 6c 69 73 74 29 20 66 6f 72 6d 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a | bda-list).form....(:star.form)). |
| 21040 | 20 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | ..:lisp2).(define-caller-pattern |
| 21060 | 20 77 69 74 68 2d 73 6c 6f 74 73 0a 20 20 28 28 28 3a 73 74 61 72 20 3a 69 67 6e 6f 72 65 29 29 | .with-slots...(((:star.:ignore)) |
| 21080 | 20 66 6f 72 6d 0a 20 20 20 28 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 0a 20 20 20 | .form....(:star.declaration).... |
| 210a0 | 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 0a 3b 3b 3b 20 43 6f 6e | (:star.form))...:lisp2)..;;;.Con |
| 210c0 | 64 69 74 69 6f 6e 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 | ditions.(define-caller-pattern.s |
| 210e0 | 69 67 6e 61 6c 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 32 | ignal.(form.(:star.form)).:lisp2 |
| 21100 | 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 2d 70 61 74 74 65 72 6e 20 2a 62 72 65 61 | ).(define-variable-pattern.*brea |
| 21120 | 6b 2d 6f 6e 2d 73 69 67 6e 61 6c 73 2a 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 | k-on-signals*.:lisp2).(define-ca |
| 21140 | 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 66 6f 72 6d 20 | ller-pattern.handler-case.(form. |
| 21160 | 28 3a 73 74 61 72 20 28 66 6f 72 6d 20 28 28 3a 6f 70 74 69 6f 6e 61 6c 20 76 61 72 29 29 0a 09 | (:star.(form.((:optional.var)).. |
| 21180 | 09 09 09 09 09 20 20 20 20 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 3a 6c | ............(:star.form))))...:l |
| 211a0 | 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 67 6e | isp2).(define-caller-pattern.ign |
| 211c0 | 6f 72 65 2d 65 72 72 6f 72 73 20 28 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 32 | ore-errors.((:star.form)).:lisp2 |
| 211e0 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 68 61 6e 64 6c 65 72 | ).(define-caller-pattern.handler |
| 21200 | 2d 62 69 6e 64 20 28 28 28 3a 73 74 61 72 20 28 66 6f 72 6d 20 66 6f 72 6d 29 29 29 0a 09 09 09 | -bind.(((:star.(form.form))).... |
| 21220 | 09 20 20 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 28 64 | ......(:star.form))...:lisp2).(d |
| 21240 | 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 64 65 66 69 6e 65 2d 63 6f 6e 64 | efine-caller-pattern.define-cond |
| 21260 | 69 74 69 6f 6e 20 28 6e 61 6d 65 20 26 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 20 3a 6c 69 73 70 | ition.(name.&rest.:ignore).:lisp |
| 21280 | 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 61 6b 65 2d 63 | 2).(define-caller-pattern.make-c |
| 212a0 | 6f 6e 64 69 74 69 6f 6e 20 28 66 6f 72 6d 20 26 72 65 73 74 20 3a 69 67 6e 6f 72 65 29 20 3a 6c | ondition.(form.&rest.:ignore).:l |
| 212c0 | 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 69 74 | isp2).(define-caller-pattern.wit |
| 212e0 | 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 0a 20 20 28 28 6e 61 6d 65 20 66 6f 72 6d 20 28 | h-simple-restart...((name.form.( |
| 21300 | 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 6c 69 73 70 | :star.form)).(:star.form)).:lisp |
| 21320 | 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 73 74 61 72 | 2).(define-caller-pattern.restar |
| 21340 | 74 2d 63 61 73 65 20 0a 20 20 28 66 6f 72 6d 0a 20 20 20 28 3a 73 74 61 72 20 28 66 6f 72 6d 20 | t-case....(form....(:star.(form. |
| 21360 | 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 28 | form.(:star.form))))...:lisp2).( |
| 21380 | 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 72 65 73 74 61 72 74 2d 62 69 | define-caller-pattern.restart-bi |
| 213a0 | 6e 64 0a 20 20 28 28 28 3a 73 74 61 72 20 28 6e 61 6d 65 20 66 6e 20 26 6b 65 79 20 28 3a 73 74 | nd...(((:star.(name.fn.&key.(:st |
| 213c0 | 61 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 0a 20 20 3a | ar.form))))....(:star.form))...: |
| 213e0 | 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 77 69 | lisp2).(define-caller-pattern.wi |
| 21400 | 74 68 2d 63 6f 6e 64 69 74 69 6f 6e 2d 72 65 73 74 61 72 74 73 0a 20 20 28 66 6f 72 6d 20 66 6f | th-condition-restarts...(form.fo |
| 21420 | 72 6d 0a 09 28 3a 73 74 61 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 0a 09 28 3a 73 74 61 72 20 | rm..(:star.declaration)..(:star. |
| 21440 | 66 6f 72 6d 29 29 0a 20 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d | form))...:lisp2).(define-caller- |
| 21460 | 70 61 74 74 65 72 6e 20 63 6f 6d 70 75 74 65 2d 72 65 73 74 61 72 74 73 20 28 26 6f 70 74 69 6f | pattern.compute-restarts.(&optio |
| 21480 | 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 | nal.form).:lisp2).(define-caller |
| 214a0 | 2d 70 61 74 74 65 72 6e 20 72 65 73 74 61 72 74 2d 6e 61 6d 65 20 28 66 6f 72 6d 29 20 3a 6c 69 | -pattern.restart-name.(form).:li |
| 214c0 | 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 6e 64 | sp2).(define-caller-pattern.find |
| 214e0 | 2d 72 65 73 74 61 72 74 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a | -restart.(form.&optional.form).: |
| 21500 | 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6e | lisp2).(define-caller-pattern.in |
| 21520 | 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 28 66 6f 72 6d 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 | voke-restart.(form.(:star.form)) |
| 21540 | 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 | .:lisp2).(define-caller-pattern. |
| 21560 | 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 28 66 6f | invoke-restart-interactively.(fo |
| 21580 | 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 | rm).:lisp2).(define-caller-patte |
| 215a0 | 72 6e 20 61 62 6f 72 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 | rn.abort.(&optional.form).:lisp2 |
| 215c0 | 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 63 6f 6e 74 69 6e 75 | ).(define-caller-pattern.continu |
| 215e0 | 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 | e.(&optional.form).:lisp2).(defi |
| 21600 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 6d 75 66 66 6c 65 2d 77 61 72 6e 69 6e 67 | ne-caller-pattern.muffle-warning |
| 21620 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e | .(&optional.form).:lisp2).(defin |
| 21640 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 6f 72 65 2d 76 61 6c 75 65 20 28 66 6f | e-caller-pattern.store-value.(fo |
| 21660 | 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 | rm.&optional.form).:lisp2).(defi |
| 21680 | 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 75 73 65 2d 76 61 6c 75 65 20 28 66 6f 72 | ne-caller-pattern.use-value.(for |
| 216a0 | 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e | m.&optional.form).:lisp2).(defin |
| 216c0 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 | e-caller-pattern.invoke-debugger |
| 216e0 | 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 | .(form).:lisp2).(define-variable |
| 21700 | 2d 70 61 74 74 65 72 6e 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 3a 6c 69 73 70 32 29 | -pattern.*debugger-hook*.:lisp2) |
| 21720 | 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 69 6d 70 6c 65 2d 63 | .(define-caller-pattern.simple-c |
| 21740 | 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 28 66 6f 72 6d 29 20 3a 6c | ondition-format-string.(form).:l |
| 21760 | 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 69 6d | isp2).(define-caller-pattern.sim |
| 21780 | 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d 61 74 2d 61 72 67 75 6d 65 6e 74 73 20 28 | ple-condition-format-arguments.( |
| 217a0 | 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 | form).:lisp2).(define-caller-pat |
| 217c0 | 74 65 72 6e 20 74 79 70 65 2d 65 72 72 6f 72 2d 64 61 74 75 6d 20 28 66 6f 72 6d 29 20 3a 6c 69 | tern.type-error-datum.(form).:li |
| 217e0 | 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 74 79 70 65 | sp2).(define-caller-pattern.type |
| 21800 | 2d 65 72 72 6f 72 2d 65 78 70 65 63 74 65 64 2d 74 79 70 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 | -error-expected-type.(form).:lis |
| 21820 | 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 70 61 63 6b 61 | p2).(define-caller-pattern.packa |
| 21840 | 67 65 2d 65 72 72 6f 72 2d 70 61 63 6b 61 67 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a | ge-error-package.(form).:lisp2). |
| 21860 | 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 74 72 65 61 6d 2d 65 72 | (define-caller-pattern.stream-er |
| 21880 | 72 6f 72 2d 73 74 72 65 61 6d 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e | ror-stream.(form).:lisp2).(defin |
| 218a0 | 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 66 69 6c 65 2d 65 72 72 6f 72 2d 70 61 74 68 | e-caller-pattern.file-error-path |
| 218c0 | 6e 61 6d 65 20 28 66 6f 72 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c | name.(form).:lisp2).(define-call |
| 218e0 | 65 72 2d 70 61 74 74 65 72 6e 20 63 65 6c 6c 2d 65 72 72 6f 72 2d 6e 61 6d 65 20 28 66 6f 72 6d | er-pattern.cell-error-name.(form |
| 21900 | 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e | ).:lisp2).(define-caller-pattern |
| 21920 | 20 61 72 69 74 68 6d 65 74 69 63 2d 65 72 72 6f 72 2d 6f 70 65 72 61 74 69 6f 6e 20 28 66 6f 72 | .arithmetic-error-operation.(for |
| 21940 | 6d 29 20 3a 6c 69 73 70 32 29 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 | m).:lisp2).(define-caller-patter |
| 21960 | 6e 20 61 72 69 74 68 6d 65 74 69 63 2d 65 72 72 6f 72 2d 6f 70 65 72 61 6e 64 73 20 28 66 6f 72 | n.arithmetic-error-operands.(for |
| 21980 | 6d 29 20 3a 6c 69 73 70 32 29 0a 0a 3b 3b 3b 20 46 6f 72 20 5a 65 74 61 4c 69 73 70 20 46 6c 61 | m).:lisp2)..;;;.For.ZetaLisp.Fla |
| 219a0 | 76 6f 72 73 0a 28 64 65 66 69 6e 65 2d 63 61 6c 6c 65 72 2d 70 61 74 74 65 72 6e 20 73 65 6e 64 | vors.(define-caller-pattern.send |
| 219c0 | 20 28 66 6f 72 6d 20 66 6e 20 28 3a 73 74 61 72 20 66 6f 72 6d 29 29 20 3a 66 6c 61 76 6f 72 73 | .(form.fn.(:star.form)).:flavors |
| 219e0 | 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | )............................... |
| 21a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 43 4f 4e 54 52 49 42 55 54 49 4e 47 2e 6d 64 00 00 00 00 00 00 | slime-2.31/CONTRIBUTING.md...... |
| 21a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 21a80 | 30 30 31 32 37 35 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 34 35 32 00 20 30 00 00 00 | 0012755.00000000000.013452..0... |
| 21aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 21b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 21b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21c00 | 23 20 54 68 65 20 53 4c 49 4d 45 20 48 61 63 6b 65 72 27 73 20 48 61 6e 64 62 6f 6f 6b 0a 0a 23 | #.The.SLIME.Hacker's.Handbook..# |
| 21c20 | 23 20 4c 69 73 70 20 63 6f 64 65 20 66 69 6c 65 20 73 74 72 75 63 74 75 72 65 0a 0a 54 68 65 20 | #.Lisp.code.file.structure..The. |
| 21c40 | 4c 69 73 70 20 63 6f 64 65 20 69 73 20 6f 72 67 61 6e 69 73 65 64 20 69 6e 74 6f 20 74 68 65 73 | Lisp.code.is.organised.into.thes |
| 21c60 | 65 20 66 69 6c 65 73 3a 0a 0a 2a 20 60 73 77 61 6e 6b 2d 62 61 63 6b 65 6e 64 2e 6c 69 73 70 60 | e.files:..*.`swank-backend.lisp` |
| 21c80 | 3a 20 44 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 69 6e 74 65 72 66 61 63 65 20 74 6f | :.Definition.of.the.interface.to |
| 21ca0 | 20 6e 6f 6e 2d 70 6f 72 74 61 62 6c 65 0a 66 65 61 74 75 72 65 73 2e 20 20 53 74 61 6e 64 2d 61 | .non-portable.features...Stand-a |
| 21cc0 | 6c 6f 6e 65 2e 0a 0a 2a 20 60 73 77 61 6e 6b 2d 3c 63 6d 75 63 6c 7c 2e 2e 2e 3e 2e 6c 69 73 70 | lone...*.`swank-<cmucl|...>.lisp |
| 21ce0 | 60 3a 20 42 61 63 6b 65 6e 64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 61 20 | `:.Backend.implementation.for.a. |
| 21d00 | 73 70 65 63 69 66 69 63 0a 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 73 79 73 74 65 6d 2e 20 20 55 73 | specific.Common.Lisp.system...Us |
| 21d20 | 65 73 20 73 77 61 6e 6b 2d 62 61 63 6b 65 6e 64 2e 6c 69 73 70 2e 0a 0a 2a 20 60 73 77 61 6e 6b | es.swank-backend.lisp...*.`swank |
| 21d40 | 2e 6c 69 73 70 60 3a 20 54 68 65 20 74 6f 70 2d 6c 65 76 65 6c 20 73 65 72 76 65 72 20 70 72 6f | .lisp`:.The.top-level.server.pro |
| 21d60 | 67 72 61 6d 2c 20 62 75 69 6c 74 20 66 72 6f 6d 20 74 68 65 20 6f 74 68 65 72 0a 63 6f 6d 70 6f | gram,.built.from.the.other.compo |
| 21d80 | 6e 65 6e 74 73 2e 20 20 55 73 65 73 20 73 77 61 6e 6b 2d 62 61 63 6b 65 6e 64 2e 6c 69 73 70 20 | nents...Uses.swank-backend.lisp. |
| 21da0 | 61 73 20 61 6e 20 69 6e 74 65 72 66 61 63 65 20 74 6f 20 74 68 65 20 61 63 74 75 61 6c 0a 62 61 | as.an.interface.to.the.actual.ba |
| 21dc0 | 63 6b 65 6e 64 73 2e 0a 0a 2a 20 60 73 6c 69 6d 65 2e 65 6c 60 3a 20 54 68 65 20 53 75 70 65 72 | ckends...*.`slime.el`:.The.Super |
| 21de0 | 69 6f 72 20 4c 69 73 70 20 49 6e 66 65 72 69 6f 72 20 4d 6f 64 65 20 66 6f 72 20 45 6d 61 63 73 | ior.Lisp.Inferior.Mode.for.Emacs |
| 21e00 | 2c 20 69 2e 65 2e 20 74 68 65 0a 45 6d 61 63 73 20 66 72 6f 6e 74 65 6e 64 20 74 68 61 74 20 74 | ,.i.e..the.Emacs.frontend.that.t |
| 21e20 | 68 65 20 75 73 65 72 20 61 63 74 75 61 6c 6c 79 20 69 6e 74 65 72 61 63 74 73 20 77 69 74 68 20 | he.user.actually.interacts.with. |
| 21e40 | 61 6e 64 20 74 68 61 74 20 63 6f 6e 6e 65 63 74 73 0a 74 6f 20 74 68 65 20 53 57 41 4e 4b 20 73 | and.that.connects.to.the.SWANK.s |
| 21e60 | 65 72 76 65 72 20 74 6f 20 73 65 6e 64 20 65 78 70 72 65 73 73 69 6f 6e 73 20 74 6f 2c 20 61 6e | erver.to.send.expressions.to,.an |
| 21e80 | 64 20 72 65 74 72 69 65 76 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 66 72 6f 6d 20 74 68 65 20 | d.retrieve.information.from.the. |
| 21ea0 | 72 75 6e 6e 69 6e 67 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 73 79 73 74 65 6d 2e 0a 0a 2a 20 60 | running.Common.Lisp.system...*.` |
| 21ec0 | 63 6f 6e 74 72 69 62 2f 2a 2e 6c 69 73 70 60 3a 20 4c 69 73 70 20 72 65 6c 61 74 65 64 20 63 6f | contrib/*.lisp`:.Lisp.related.co |
| 21ee0 | 64 65 20 66 6f 72 20 61 64 64 2d 6f 6e 73 20 74 6f 20 53 4c 49 4d 45 20 74 68 61 74 20 61 72 65 | de.for.add-ons.to.SLIME.that.are |
| 21f00 | 0a 6d 61 69 6e 74 61 69 6e 65 64 20 62 79 20 74 68 65 69 72 20 72 65 73 70 65 63 74 69 76 65 20 | .maintained.by.their.respective. |
| 21f20 | 61 75 74 68 6f 72 73 2e 20 43 6f 6e 73 75 6c 74 20 63 6f 6e 74 72 69 62 2f 52 45 41 44 4d 45 20 | authors..Consult.contrib/README. |
| 21f40 | 66 6f 72 0a 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 0a 23 23 20 54 65 73 74 20 53 | for.more.information...##.Test.S |
| 21f60 | 75 69 74 65 0a 0a 54 68 65 20 4d 61 6b 65 66 69 6c 65 20 69 6e 63 6c 75 64 65 73 20 61 20 60 63 | uite..The.Makefile.includes.a.`c |
| 21f80 | 68 65 63 6b 60 20 74 61 72 67 65 74 20 74 6f 20 72 75 6e 20 74 68 65 20 45 52 54 2d 62 61 73 65 | heck`.target.to.run.the.ERT-base |
| 21fa0 | 64 20 74 65 73 74 0a 73 75 69 74 65 2e 20 54 68 69 73 20 63 61 6e 20 67 69 76 65 20 61 20 70 72 | d.test.suite..This.can.give.a.pr |
| 21fc0 | 65 74 74 79 20 67 6f 6f 64 20 73 61 6e 69 74 79 2d 63 68 65 63 6b 20 66 6f 72 20 79 6f 75 72 20 | etty.good.sanity-check.for.your. |
| 21fe0 | 63 68 61 6e 67 65 73 0a 0a 53 6f 6d 65 20 62 61 63 6b 65 6e 64 73 20 64 6f 20 6e 6f 74 20 70 61 | changes..Some.backends.do.not.pa |
| 22000 | 73 73 20 74 68 65 20 66 75 6c 6c 20 74 65 73 74 20 73 75 69 74 65 20 62 65 63 61 75 73 65 20 6f | ss.the.full.test.suite.because.o |
| 22020 | 66 20 6d 69 73 73 69 6e 67 0a 66 65 61 74 75 72 65 73 2e 20 49 6e 20 74 68 65 73 65 20 63 61 73 | f.missing.features..In.these.cas |
| 22040 | 65 73 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 20 69 73 20 73 74 69 6c 6c 20 75 73 65 66 75 | es.the.test.suite.is.still.usefu |
| 22060 | 6c 20 74 6f 20 65 6e 73 75 72 65 20 74 68 61 74 0a 63 68 61 6e 67 65 73 20 64 6f 6e 27 74 20 69 | l.to.ensure.that.changes.don't.i |
| 22080 | 6e 74 72 6f 64 75 63 65 20 6e 65 77 20 65 72 72 6f 72 73 2e 20 43 4d 55 43 4c 20 68 69 73 74 6f | ntroduce.new.errors..CMUCL.histo |
| 220a0 | 72 69 63 61 6c 6c 79 20 70 61 73 73 65 73 20 74 68 65 20 66 75 6c 6c 0a 74 65 73 74 20 73 75 69 | rically.passes.the.full.test.sui |
| 220c0 | 74 65 20 73 6f 20 69 74 20 6d 61 6b 65 73 20 61 20 67 6f 6f 64 20 73 61 6e 69 74 79 20 63 68 65 | te.so.it.makes.a.good.sanity.che |
| 220e0 | 63 6b 20 66 6f 72 20 66 75 6e 64 61 6d 65 6e 74 61 6c 20 63 68 61 6e 67 65 73 0a 28 65 2e 67 2e | ck.for.fundamental.changes.(e.g. |
| 22100 | 20 74 6f 20 74 68 65 20 70 72 6f 74 6f 63 6f 6c 29 2e 0a 0a 52 75 6e 6e 69 6e 67 20 74 68 65 20 | .to.the.protocol)...Running.the. |
| 22120 | 74 65 73 74 20 73 75 69 74 65 2c 20 61 64 64 69 6e 67 20 6e 65 77 20 63 61 73 65 73 2c 20 61 6e | test.suite,.adding.new.cases,.an |
| 22140 | 64 20 69 6e 63 72 65 61 73 69 6e 67 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 63 61 73 65 73 | d.increasing.the.number.of.cases |
| 22160 | 20 74 68 61 74 20 62 61 63 6b 65 6e 64 73 20 73 75 70 70 6f 72 74 20 61 72 65 20 61 6c 6c 20 76 | .that.backends.support.are.all.v |
| 22180 | 65 72 79 20 67 6f 6f 64 20 66 6f 72 20 6b 61 72 6d 61 2e 0a 0a 0c 0a 23 23 20 53 6f 75 72 63 65 | ery.good.for.karma.....##.Source |
| 221a0 | 20 63 6f 64 65 20 6c 61 79 6f 75 74 0a 0a 57 65 20 75 73 65 20 61 20 73 70 65 63 69 61 6c 20 73 | .code.layout..We.use.a.special.s |
| 221c0 | 6f 75 72 63 65 20 66 69 6c 65 20 6c 61 79 6f 75 74 20 74 6f 20 74 61 6b 65 20 61 64 76 61 6e 74 | ource.file.layout.to.take.advant |
| 221e0 | 61 67 65 20 6f 66 20 73 6f 6d 65 20 66 61 6e 63 79 0a 45 6d 61 63 73 20 66 65 61 74 75 72 65 73 | age.of.some.fancy.Emacs.features |
| 22200 | 3a 20 6f 75 74 6c 69 6e 65 2d 6d 6f 64 65 20 61 6e 64 20 22 6e 61 72 72 6f 77 69 6e 67 22 2e 0a | :.outline-mode.and."narrowing".. |
| 22220 | 0a 23 23 23 20 4f 75 74 6c 69 6e 65 20 73 74 72 75 63 74 75 72 65 0a 0a 4f 75 72 20 73 6f 75 72 | .###.Outline.structure..Our.sour |
| 22240 | 63 65 20 66 69 6c 65 73 20 68 61 76 65 20 61 20 68 69 65 72 61 72 63 68 69 63 61 6c 20 73 74 72 | ce.files.have.a.hierarchical.str |
| 22260 | 75 63 74 75 72 65 20 75 73 69 6e 67 20 63 6f 6d 6d 65 6e 74 73 20 6c 69 6b 65 0a 74 68 65 73 65 | ucture.using.comments.like.these |
| 22280 | 3a 0a 0a 60 60 60 65 6c 0a 3b 3b 3b 3b 20 48 65 61 64 69 6e 67 0a 3b 3b 3b 3b 3b 20 53 75 62 68 | :..```el.;;;;.Heading.;;;;;.Subh |
| 222a0 | 65 61 64 69 6e 67 0a 2e 2e 2e 20 65 74 63 0a 60 60 60 0a 0a 57 65 20 64 6f 20 74 68 69 73 20 61 | eading.....etc.```..We.do.this.a |
| 222c0 | 73 20 61 20 6e 69 63 65 20 77 61 79 20 74 6f 20 73 74 72 75 63 74 75 72 65 20 74 68 65 20 70 72 | s.a.nice.way.to.structure.the.pr |
| 222e0 | 6f 67 72 61 6d 2e 20 57 65 20 74 72 79 20 74 6f 20 6b 65 65 70 20 65 61 63 68 0a 28 73 75 62 29 | ogram..We.try.to.keep.each.(sub) |
| 22300 | 73 65 63 74 69 6f 6e 20 73 6d 61 6c 6c 20 65 6e 6f 75 67 68 20 74 6f 20 66 69 74 20 69 6e 20 79 | section.small.enough.to.fit.in.y |
| 22320 | 6f 75 72 20 68 65 61 64 3a 20 74 79 70 69 63 61 6c 6c 79 20 61 72 6f 75 6e 64 20 35 30 2d 32 30 | our.head:.typically.around.50-20 |
| 22340 | 30 0a 6c 69 6e 65 73 20 6f 66 20 63 6f 64 65 20 65 61 63 68 2e 20 45 61 63 68 20 73 65 63 74 69 | 0.lines.of.code.each..Each.secti |
| 22360 | 6f 6e 20 75 73 75 61 6c 6c 79 20 62 65 67 69 6e 73 20 77 69 74 68 20 61 20 62 72 69 65 66 0a 69 | on.usually.begins.with.a.brief.i |
| 22380 | 6e 74 72 6f 64 75 63 74 69 6f 6e 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 69 74 73 20 68 69 67 | ntroduction,.followed.by.its.hig |
| 223a0 | 68 65 73 74 2d 6c 65 76 65 6c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 | hest-level.functions,.followed.b |
| 223c0 | 79 0a 74 68 65 69 72 20 73 75 62 72 6f 75 74 69 6e 65 73 2e 20 54 68 69 73 20 69 73 20 61 20 70 | y.their.subroutines..This.is.a.p |
| 223e0 | 6c 65 61 73 69 6e 67 20 73 68 61 70 65 20 66 6f 72 20 61 20 73 6f 75 72 63 65 20 66 69 6c 65 20 | leasing.shape.for.a.source.file. |
| 22400 | 74 6f 20 68 61 76 65 2e 0a 0a 4f 66 20 63 6f 75 72 73 65 20 74 68 65 20 63 6f 6d 6d 65 6e 74 73 | to.have...Of.course.the.comments |
| 22420 | 20 6d 65 61 6e 20 73 6f 6d 65 74 68 69 6e 67 20 74 6f 20 45 6d 61 63 73 20 74 6f 6f 2e 20 4f 6e | .mean.something.to.Emacs.too..On |
| 22440 | 65 20 68 61 6e 64 79 20 75 73 61 67 65 20 69 73 0a 74 6f 20 62 72 69 6e 67 20 75 70 20 61 20 68 | e.handy.usage.is.to.bring.up.a.h |
| 22460 | 79 70 65 72 6c 69 6e 6b 65 64 20 22 74 61 62 6c 65 20 6f 66 20 63 6f 6e 74 65 6e 74 73 22 20 66 | yperlinked."table.of.contents".f |
| 22480 | 6f 72 20 74 68 65 20 73 6f 75 72 63 65 20 66 69 6c 65 0a 75 73 69 6e 67 20 74 68 69 73 20 63 6f | or.the.source.file.using.this.co |
| 224a0 | 6d 6d 61 6e 64 3a 0a 0a 60 60 60 65 6c 0a 28 64 65 66 75 6e 20 73 68 6f 77 2d 6f 75 74 6c 69 6e | mmand:..```el.(defun.show-outlin |
| 224c0 | 65 2d 73 74 72 75 63 74 75 72 65 20 28 29 0a 20 20 22 53 68 6f 77 20 74 68 65 20 6f 75 74 6c 69 | e-structure.()..."Show.the.outli |
| 224e0 | 6e 65 2d 6d 6f 64 65 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 | ne-mode.structure.of.the.current |
| 22500 | 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6f 63 63 | .buffer."...(interactive)...(occ |
| 22520 | 75 72 20 28 63 6f 6e 63 61 74 20 22 5e 22 20 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 29 29 29 | ur.(concat."^".outline-regexp))) |
| 22540 | 0a 60 60 60 0a 0a 41 6e 6f 74 68 65 72 20 69 73 20 74 6f 20 75 73 65 20 60 6f 75 74 6c 69 6e 65 | .```..Another.is.to.use.`outline |
| 22560 | 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 60 20 74 6f 20 66 6f 6c 64 20 61 77 61 79 20 63 65 72 74 61 69 | -minor-mode`.to.fold.away.certai |
| 22580 | 6e 20 70 61 72 74 73 20 6f 66 0a 74 68 65 20 62 75 66 66 65 72 2e 20 53 65 65 20 74 68 65 20 60 | n.parts.of.the.buffer..See.the.` |
| 225a0 | 4f 75 74 6c 69 6e 65 20 4d 6f 64 65 60 20 73 65 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 45 6d 61 | Outline.Mode`.section.of.the.Ema |
| 225c0 | 63 73 20 6d 61 6e 75 61 6c 20 66 6f 72 0a 64 65 74 61 69 6c 73 20 61 62 6f 75 74 20 74 68 61 74 | cs.manual.for.details.about.that |
| 225e0 | 2e 0a 0a 23 23 23 20 50 61 67 65 62 72 65 61 6b 20 63 68 61 72 61 63 74 65 72 73 20 28 5e 4c 29 | ...###.Pagebreak.characters.(^L) |
| 22600 | 0a 0a 57 65 20 70 61 72 74 69 74 69 6f 6e 20 73 6f 75 72 63 65 20 66 69 6c 65 73 20 69 6e 74 6f | ..We.partition.source.files.into |
| 22620 | 20 63 68 75 6e 6b 73 20 75 73 69 6e 67 20 70 61 67 65 62 72 65 61 6b 20 63 68 61 72 61 63 74 65 | .chunks.using.pagebreak.characte |
| 22640 | 72 73 2e 20 45 61 63 68 0a 63 68 75 6e 6b 20 69 73 20 61 20 73 75 62 73 74 61 6e 74 69 61 6c 20 | rs..Each.chunk.is.a.substantial. |
| 22660 | 70 69 65 63 65 20 6f 66 20 63 6f 64 65 20 74 68 61 74 20 63 61 6e 20 62 65 20 63 6f 6e 73 69 64 | piece.of.code.that.can.be.consid |
| 22680 | 65 72 65 64 20 69 6e 0a 69 73 6f 6c 61 74 69 6f 6e 2c 20 74 68 61 74 20 63 6f 75 6c 64 20 70 65 | ered.in.isolation,.that.could.pe |
| 226a0 | 72 68 61 70 73 20 62 65 20 61 20 73 65 70 61 72 61 74 65 20 73 6f 75 72 63 65 20 66 69 6c 65 20 | rhaps.be.a.separate.source.file. |
| 226c0 | 69 66 20 77 65 20 77 65 72 65 0a 66 61 6e 61 74 69 63 61 6c 20 61 62 6f 75 74 20 73 6d 61 6c 6c | if.we.were.fanatical.about.small |
| 226e0 | 20 73 6f 75 72 63 65 20 66 69 6c 65 73 20 28 72 61 74 68 65 72 20 74 68 61 6e 20 62 69 67 20 6f | .source.files.(rather.than.big.o |
| 22700 | 6e 65 73 21 29 0a 0a 54 68 65 20 70 61 67 65 20 62 72 65 61 6b 73 20 75 73 75 61 6c 6c 79 20 67 | nes!)..The.page.breaks.usually.g |
| 22720 | 6f 20 69 6e 20 74 68 65 20 73 61 6d 65 20 70 6c 61 63 65 20 61 73 20 74 6f 70 2d 6c 65 76 65 6c | o.in.the.same.place.as.top-level |
| 22740 | 20 6f 75 74 6c 69 6e 65 2d 6d 6f 64 65 0a 68 65 61 64 69 6e 67 73 2c 20 62 75 74 20 74 68 65 79 | .outline-mode.headings,.but.they |
| 22760 | 20 64 6f 6e 27 74 20 68 61 76 65 20 74 6f 2e 20 54 68 65 79 27 72 65 20 66 6c 65 78 69 62 6c 65 | .don't.have.to..They're.flexible |
| 22780 | 2e 0a 0a 49 6e 20 74 68 65 20 6f 6c 64 20 64 61 79 73 2c 20 77 68 65 6e 20 60 73 6c 69 6d 65 2e | ...In.the.old.days,.when.`slime. |
| 227a0 | 65 6c 60 20 77 61 73 20 6c 65 73 73 20 74 68 61 6e 20 31 30 30 20 70 61 67 65 73 20 6c 6f 6e 67 | el`.was.less.than.100.pages.long |
| 227c0 | 2c 20 74 68 65 73 65 0a 70 61 67 65 20 62 72 65 61 6b 73 20 77 65 72 65 20 68 65 6c 70 66 75 6c | ,.these.page.breaks.were.helpful |
| 227e0 | 20 77 68 65 6e 20 70 72 69 6e 74 69 6e 67 20 69 74 20 6f 75 74 20 74 6f 20 72 65 61 64 2e 20 4e | .when.printing.it.out.to.read..N |
| 22800 | 6f 77 20 74 68 65 79 27 72 65 0a 75 73 65 66 75 6c 20 66 6f 72 20 73 6f 6d 65 74 68 69 6e 67 20 | ow.they're.useful.for.something. |
| 22820 | 65 6c 73 65 3a 20 6e 61 72 72 6f 77 69 6e 67 2e 0a 0a 59 6f 75 20 63 61 6e 20 75 73 65 20 60 43 | else:.narrowing...You.can.use.`C |
| 22840 | 2d 78 20 6e 20 70 60 20 28 60 6e 61 72 72 6f 77 2d 74 6f 2d 70 61 67 65 60 29 20 74 6f 20 22 7a | -x.n.p`.(`narrow-to-page`).to."z |
| 22860 | 6f 6f 6d 20 69 6e 22 20 6f 6e 20 61 0a 70 61 67 65 62 72 65 61 6b 2d 64 65 6c 69 6d 69 74 65 64 | oom.in".on.a.pagebreak-delimited |
| 22880 | 20 73 65 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 69 6c 65 20 61 73 20 69 66 20 69 74 20 77 65 | .section.of.the.file.as.if.it.we |
| 228a0 | 72 65 20 61 20 73 65 70 61 72 61 74 65 0a 62 75 66 66 65 72 20 69 6e 20 69 74 73 65 6c 66 2e 20 | re.a.separate.buffer.in.itself.. |
| 228c0 | 59 6f 75 20 63 61 6e 20 74 68 65 6e 20 75 73 65 20 60 43 2d 78 20 6e 20 77 60 20 28 60 77 69 64 | You.can.then.use.`C-x.n.w`.(`wid |
| 228e0 | 65 6e 60 29 20 74 6f 20 22 7a 6f 6f 6d 20 6f 75 74 22 20 61 6e 64 0a 73 65 65 20 74 68 65 20 77 | en`).to."zoom.out".and.see.the.w |
| 22900 | 68 6f 6c 65 20 66 69 6c 65 20 61 67 61 69 6e 2e 20 54 68 69 73 20 69 73 20 74 72 65 6d 65 6e 64 | hole.file.again..This.is.tremend |
| 22920 | 6f 75 73 6c 79 20 68 65 6c 70 66 75 6c 20 66 6f 72 20 66 6f 63 75 73 69 6e 67 0a 79 6f 75 72 20 | ously.helpful.for.focusing.your. |
| 22940 | 61 74 74 65 6e 74 69 6f 6e 20 6f 6e 20 6f 6e 65 20 70 61 72 74 20 6f 66 20 74 68 65 20 70 72 6f | attention.on.one.part.of.the.pro |
| 22960 | 67 72 61 6d 20 61 73 20 69 66 20 69 74 20 77 65 72 65 20 69 74 73 20 6f 77 6e 20 66 69 6c 65 2e | gram.as.if.it.were.its.own.file. |
| 22980 | 0a 0a 28 54 68 69 73 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 73 6f 6d 65 20 70 61 67 65 20 | ..(This.file.contains.some.page. |
| 229a0 | 62 72 65 61 6b 20 63 68 61 72 61 63 74 65 72 73 2e 20 49 66 20 79 6f 75 27 72 65 20 72 65 61 64 | break.characters..If.you're.read |
| 229c0 | 69 6e 67 20 69 6e 0a 45 6d 61 63 73 20 79 6f 75 20 63 61 6e 20 70 72 65 73 73 20 60 43 2d 78 20 | ing.in.Emacs.you.can.press.`C-x. |
| 229e0 | 6e 20 70 60 20 74 6f 20 6e 61 72 72 6f 77 20 74 6f 20 74 68 69 73 20 70 61 67 65 2c 20 61 6e 64 | n.p`.to.narrow.to.this.page,.and |
| 22a00 | 20 74 68 65 6e 20 6c 61 74 65 72 0a 60 43 2d 78 20 6e 20 77 60 20 74 6f 20 6d 61 6b 65 20 74 68 | .then.later.`C-x.n.w`.to.make.th |
| 22a20 | 65 20 77 68 6f 6c 65 20 62 75 66 66 65 72 20 76 69 73 69 62 6c 65 20 61 67 61 69 6e 2e 29 0a 0a | e.whole.buffer.visible.again.).. |
| 22a40 | 0c 0a 23 23 20 43 6f 64 69 6e 67 20 73 74 79 6c 65 0a 0a 57 65 20 6c 69 6b 65 20 74 68 65 20 66 | ..##.Coding.style..We.like.the.f |
| 22a60 | 61 63 74 20 74 68 61 74 20 65 61 63 68 20 66 75 6e 63 74 69 6f 6e 20 69 6e 20 53 4c 49 4d 45 20 | act.that.each.function.in.SLIME. |
| 22a80 | 77 69 6c 6c 20 66 69 74 20 6f 6e 20 61 20 73 69 6e 67 6c 65 0a 73 63 72 65 65 6e 20 28 38 30 78 | will.fit.on.a.single.screen.(80x |
| 22aa0 | 32 30 29 2c 20 61 6e 64 20 77 6f 75 6c 64 20 6c 69 6b 65 20 74 6f 20 70 72 65 73 65 72 76 65 20 | 20),.and.would.like.to.preserve. |
| 22ac0 | 74 68 69 73 20 70 72 6f 70 65 72 74 79 21 20 42 65 79 6f 6e 64 20 74 68 61 74 0a 77 65 27 72 65 | this.property!.Beyond.that.we're |
| 22ae0 | 20 6e 6f 74 20 64 6f 67 6d 61 74 69 63 20 3a 2d 29 0a 0a 49 6e 20 65 61 72 6c 79 20 64 69 73 63 | .not.dogmatic.:-)..In.early.disc |
| 22b00 | 75 73 73 69 6f 6e 73 20 77 65 20 61 6c 6c 20 6d 61 64 65 20 68 61 70 70 79 20 6e 6f 69 73 65 73 | ussions.we.all.made.happy.noises |
| 22b20 | 20 61 62 6f 75 74 20 74 68 65 20 61 64 76 69 63 65 20 69 6e 0a 4e 6f 72 76 69 67 20 61 6e 64 20 | .about.the.advice.in.Norvig.and. |
| 22b40 | 50 69 74 6d 61 6e 27 73 0a 5b 54 75 74 6f 72 69 61 6c 20 6f 6e 20 47 6f 6f 64 20 4c 69 73 70 20 | Pitman's.[Tutorial.on.Good.Lisp. |
| 22b60 | 50 72 6f 67 72 61 6d 6d 69 6e 67 20 53 74 79 6c 65 5d 28 68 74 74 70 3a 2f 2f 77 77 77 2e 6e 6f | Programming.Style](http://www.no |
| 22b80 | 72 76 69 67 2e 63 6f 6d 2f 6c 75 76 2d 73 6c 69 64 65 73 2e 70 73 29 2e 0a 0a 46 6f 72 20 45 6d | rvig.com/luv-slides.ps)...For.Em |
| 22ba0 | 61 63 73 20 4c 69 73 70 2c 20 77 65 20 74 72 79 20 74 6f 20 66 6f 6c 6c 6f 77 20 74 68 65 20 5f | acs.Lisp,.we.try.to.follow.the._ |
| 22bc0 | 54 69 70 73 20 61 6e 64 20 43 6f 6e 76 65 6e 74 69 6f 6e 73 5f 20 69 6e 0a 41 70 70 65 6e 64 69 | Tips.and.Conventions_.in.Appendi |
| 22be0 | 78 20 44 20 6f 66 20 74 68 65 20 47 4e 55 20 45 6d 61 63 73 20 4c 69 73 70 20 52 65 66 65 72 65 | x.D.of.the.GNU.Emacs.Lisp.Refere |
| 22c00 | 6e 63 65 20 4d 61 6e 75 61 6c 20 28 73 65 65 20 49 6e 66 6f 20 66 69 6c 65 0a 60 65 6c 69 73 70 | nce.Manual.(see.Info.file.`elisp |
| 22c20 | 60 2c 20 6e 6f 64 65 20 60 54 69 70 73 60 29 2e 0a 0a 57 65 20 75 73 65 20 45 6d 61 63 73 20 63 | `,.node.`Tips`)...We.use.Emacs.c |
| 22c40 | 6f 6e 76 65 6e 74 69 6f 6e 73 20 66 6f 72 20 64 6f 63 73 74 72 69 6e 67 73 3a 20 74 68 65 20 66 | onventions.for.docstrings:.the.f |
| 22c60 | 69 72 73 74 20 6c 69 6e 65 20 73 68 6f 75 6c 64 20 62 65 20 61 0a 63 6f 6d 70 6c 65 74 65 20 73 | irst.line.should.be.a.complete.s |
| 22c80 | 65 6e 74 65 6e 63 65 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 6f 75 74 70 75 74 20 6f 66 20 60 61 | entence.to.make.the.output.of.`a |
| 22ca0 | 70 72 6f 70 6f 73 60 20 6c 6f 6f 6b 20 67 6f 6f 64 2e 20 20 57 65 20 61 6c 73 6f 0a 75 73 65 20 | propos`.look.good...We.also.use. |
| 22cc0 | 69 6d 70 65 72 61 74 69 76 65 20 76 65 72 62 73 2e 0a 0a 4e 6f 77 20 74 68 61 74 20 58 45 6d 61 | imperative.verbs...Now.that.XEma |
| 22ce0 | 63 73 20 73 75 70 70 6f 72 74 20 69 73 20 67 6f 6e 65 2c 20 72 65 77 72 69 74 65 73 20 75 73 69 | cs.support.is.gone,.rewrites.usi |
| 22d00 | 6e 67 20 70 61 63 6b 61 67 65 73 20 69 6e 20 47 4e 55 0a 45 6d 61 63 73 27 73 20 63 6f 72 65 20 | ng.packages.in.GNU.Emacs's.core. |
| 22d20 | 67 65 74 20 65 78 74 72 61 20 6b 61 72 6d 61 2e 0a 0a 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 20 | get.extra.karma...Customization. |
| 22d40 | 76 61 72 69 61 62 6c 65 73 20 63 6f 6d 70 6c 69 63 61 74 65 20 74 65 73 74 69 6e 67 20 61 6e 64 | variables.complicate.testing.and |
| 22d60 | 20 74 68 65 72 65 66 6f 72 65 20 77 65 20 6f 6e 6c 79 20 61 64 64 0a 6e 65 77 20 6f 6e 65 73 20 | .therefore.we.only.add.new.ones. |
| 22d80 | 61 66 74 65 72 20 63 61 72 65 66 75 6c 20 63 6f 6e 73 69 64 65 72 61 74 69 6f 6e 2e 20 20 41 64 | after.careful.consideration...Ad |
| 22da0 | 64 69 6e 67 20 6e 65 77 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 76 61 72 69 61 62 6c 65 73 | ding.new.customization.variables |
| 22dc0 | 20 69 73 20 62 61 64 20 66 6f 72 20 6b 61 72 6d 61 2e 0a 0a 57 65 20 67 65 6e 65 72 61 6c 6c 79 | .is.bad.for.karma...We.generally |
| 22de0 | 20 6e 65 69 74 68 65 72 20 75 73 65 20 6e 6f 72 20 72 65 63 6f 6d 6d 65 6e 64 20 65 76 61 6c 2d | .neither.use.nor.recommend.eval- |
| 22e00 | 61 66 74 65 72 2d 6c 6f 61 64 2e 0a 0a 54 68 65 20 62 69 67 67 65 73 74 20 70 72 6f 62 6c 65 6d | after-load...The.biggest.problem |
| 22e20 | 20 77 69 74 68 20 53 4c 49 4d 45 27 73 20 63 6f 64 65 20 62 61 73 65 20 69 73 20 66 65 61 74 75 | .with.SLIME's.code.base.is.featu |
| 22e40 | 72 65 20 63 72 65 65 70 2e 20 20 4b 65 65 70 20 69 6e 0a 6d 69 6e 64 20 74 68 61 74 20 74 68 65 | re.creep...Keep.in.mind.that.the |
| 22e60 | 20 52 69 67 68 74 20 54 68 69 6e 67 20 69 73 6e 27 74 20 61 6c 77 61 79 73 20 74 68 65 20 53 6d | .Right.Thing.isn't.always.the.Sm |
| 22e80 | 61 72 74 20 54 68 69 6e 67 2e 20 20 49 66 20 79 6f 75 20 63 61 6e 27 74 0a 66 69 6e 64 20 61 6e | art.Thing...If.you.can't.find.an |
| 22ea0 | 20 65 6c 65 67 61 6e 74 20 73 6f 6c 75 74 69 6f 6e 20 74 6f 20 61 20 70 72 6f 62 6c 65 6d 20 74 | .elegant.solution.to.a.problem.t |
| 22ec0 | 68 65 6e 20 79 6f 75 27 72 65 20 70 72 6f 62 61 62 6c 79 20 73 6f 6c 76 69 6e 67 20 74 68 65 0a | hen.you're.probably.solving.the. |
| 22ee0 | 77 72 6f 6e 67 20 70 72 6f 62 6c 65 6d 2e 20 20 49 74 27 73 20 6f 66 74 65 6e 20 61 20 67 6f 6f | wrong.problem...It's.often.a.goo |
| 22f00 | 64 20 69 64 65 61 20 74 6f 20 73 69 6d 70 6c 69 66 79 20 74 68 65 20 70 72 6f 62 6c 65 6d 20 61 | d.idea.to.simplify.the.problem.a |
| 22f20 | 6e 64 20 74 6f 0a 69 67 6e 6f 72 65 20 72 61 72 65 6c 79 20 6e 65 65 64 65 64 20 63 61 73 65 73 | nd.to.ignore.rarely.needed.cases |
| 22f40 | 2e 0a 0a 5f 52 65 6d 65 6d 62 65 72 20 74 68 61 74 20 74 6f 20 72 65 77 72 69 74 65 20 61 20 70 | ..._Remember.that.to.rewrite.a.p |
| 22f60 | 72 6f 67 72 61 6d 20 62 65 74 74 65 72 20 69 73 20 74 68 65 20 73 69 6e 63 65 72 65 73 74 20 66 | rogram.better.is.the.sincerest.f |
| 22f80 | 6f 72 6d 20 6f 66 0a 63 6f 64 65 20 61 70 70 72 65 63 69 61 74 69 6f 6e 2e 20 57 68 65 6e 20 79 | orm.of.code.appreciation..When.y |
| 22fa0 | 6f 75 20 63 61 6e 20 73 65 65 20 61 20 77 61 79 20 74 6f 20 72 65 77 72 69 74 65 20 61 20 70 61 | ou.can.see.a.way.to.rewrite.a.pa |
| 22fc0 | 72 74 20 6f 66 20 53 4c 49 4d 45 0a 62 65 74 74 65 72 2c 20 70 6c 65 61 73 65 20 64 6f 20 73 6f | rt.of.SLIME.better,.please.do.so |
| 22fe0 | 21 5f 0a 0a 0a 0c 0a 23 23 20 50 75 6c 6c 20 72 65 71 75 65 73 74 73 0a 0a 2a 20 52 65 61 64 20 | !_.....##.Pull.requests..*.Read. |
| 23000 | 5b 68 6f 77 20 74 6f 20 70 72 6f 70 65 72 6c 79 20 63 6f 6e 74 72 69 62 75 74 65 20 74 6f 20 6f | [how.to.properly.contribute.to.o |
| 23020 | 70 65 6e 20 73 6f 75 72 63 65 20 70 72 6f 6a 65 63 74 73 20 6f 6e 20 47 69 74 68 75 62 5d 5b 31 | pen.source.projects.on.Github][1 |
| 23040 | 5d 2e 0a 2a 20 55 73 65 20 61 20 74 6f 70 69 63 20 62 72 61 6e 63 68 20 74 6f 20 65 61 73 69 6c | ]..*.Use.a.topic.branch.to.easil |
| 23060 | 79 20 61 6d 65 6e 64 20 61 20 70 75 6c 6c 20 72 65 71 75 65 73 74 20 6c 61 74 65 72 2c 20 69 66 | y.amend.a.pull.request.later,.if |
| 23080 | 20 6e 65 63 65 73 73 61 72 79 2e 0a 2a 20 4f 70 65 6e 20 61 20 5b 70 75 6c 6c 20 72 65 71 75 65 | .necessary..*.Open.a.[pull.reque |
| 230a0 | 73 74 5d 5b 32 5d 20 74 68 61 74 20 72 65 6c 61 74 65 73 20 74 6f 20 2a 6f 6e 6c 79 2a 20 6f 6e | st][2].that.relates.to.*only*.on |
| 230c0 | 65 20 73 75 62 6a 65 63 74 20 77 69 74 68 20 61 0a 20 20 63 6c 65 61 72 20 74 69 74 6c 65 20 61 | e.subject.with.a...clear.title.a |
| 230e0 | 6e 64 20 64 65 73 63 72 69 70 74 69 6f 6e 20 69 6e 20 67 72 61 6d 6d 61 74 69 63 61 6c 6c 79 20 | nd.description.in.grammatically. |
| 23100 | 63 6f 72 72 65 63 74 2c 20 63 6f 6d 70 6c 65 74 65 0a 20 20 73 65 6e 74 65 6e 63 65 73 2e 0a 2a | correct,.complete...sentences..* |
| 23120 | 20 57 72 69 74 65 20 5b 67 6f 6f 64 20 63 6f 6d 6d 69 74 20 6d 65 73 73 61 67 65 73 5d 5b 33 5d | .Write.[good.commit.messages][3] |
| 23140 | 2e 0a 0a 5b 31 5d 3a 20 68 74 74 70 3a 2f 2f 67 75 6e 2e 69 6f 2f 62 6c 6f 67 2f 68 6f 77 2d 74 | ...[1]:.http://gun.io/blog/how-t |
| 23160 | 6f 2d 67 69 74 68 75 62 2d 66 6f 72 6b 2d 62 72 61 6e 63 68 2d 61 6e 64 2d 70 75 6c 6c 2d 72 65 | o-github-fork-branch-and-pull-re |
| 23180 | 71 75 65 73 74 0a 5b 32 5d 3a 20 68 74 74 70 73 3a 2f 2f 68 65 6c 70 2e 67 69 74 68 75 62 2e 63 | quest.[2]:.https://help.github.c |
| 231a0 | 6f 6d 2f 61 72 74 69 63 6c 65 73 2f 75 73 69 6e 67 2d 70 75 6c 6c 2d 72 65 71 75 65 73 74 73 0a | om/articles/using-pull-requests. |
| 231c0 | 5b 33 5d 3a 20 68 74 74 70 3a 2f 2f 63 68 72 69 73 2e 62 65 61 6d 73 2e 69 6f 2f 70 6f 73 74 73 | [3]:.http://chris.beams.io/posts |
| 231e0 | 2f 67 69 74 2d 63 6f 6d 6d 69 74 2f 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | /git-commit/.................... |
| 23200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 4d 61 6b 65 66 69 6c 65 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/Makefile............. |
| 23220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 23280 | 30 30 30 34 36 34 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 36 35 36 00 20 30 00 00 00 | 0004643.00000000000.012656..0... |
| 232a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 232c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 232e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 23320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 23340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 233a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 233c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 233e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23400 | 23 23 23 20 4d 61 6b 65 66 69 6c 65 20 66 6f 72 20 53 4c 49 4d 45 0a 23 0a 23 20 54 68 69 73 20 | ###.Makefile.for.SLIME.#.#.This. |
| 23420 | 66 69 6c 65 20 69 73 20 69 6e 20 74 68 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2e 0a 0a 23 | file.is.in.the.public.domain...# |
| 23440 | 20 56 61 72 69 61 62 6c 65 73 0a 23 0a 45 4d 41 43 53 3d 65 6d 61 63 73 0a 4c 49 53 50 3d 73 62 | .Variables.#.EMACS=emacs.LISP=sb |
| 23460 | 63 6c 0a 0a 4c 4f 41 44 5f 50 41 54 48 3d 2d 4c 20 2e 0a 0a 45 4c 46 49 4c 45 53 20 3a 3d 20 73 | cl..LOAD_PATH=-L....ELFILES.:=.s |
| 23480 | 6c 69 6d 65 2e 65 6c 20 73 6c 69 6d 65 2d 61 75 74 6f 6c 6f 61 64 73 2e 65 6c 20 73 6c 69 6d 65 | lime.el.slime-autoloads.el.slime |
| 234a0 | 2d 74 65 73 74 73 2e 65 6c 20 24 28 77 69 6c 64 63 61 72 64 20 6c 69 62 2f 2a 2e 65 6c 29 0a 45 | -tests.el.$(wildcard.lib/*.el).E |
| 234c0 | 4c 43 46 49 4c 45 53 20 3a 3d 20 24 28 45 4c 46 49 4c 45 53 3a 2e 65 6c 3d 2e 65 6c 63 29 0a 0a | LCFILES.:=.$(ELFILES:.el=.elc).. |
| 234e0 | 64 65 66 61 75 6c 74 3a 20 63 6f 6d 70 69 6c 65 20 63 6f 6e 74 72 69 62 2d 63 6f 6d 70 69 6c 65 | default:.compile.contrib-compile |
| 23500 | 0a 0a 61 6c 6c 3a 20 63 6f 6d 70 69 6c 65 0a 0a 68 65 6c 70 3a 0a 09 40 70 72 69 6e 74 66 20 22 | ..all:.compile..help:..@printf." |
| 23520 | 5c 0a 4d 61 69 6e 20 74 61 72 67 65 74 73 5c 6e 5c 0a 61 6c 6c 20 20 20 20 20 20 20 20 2d 2d 20 | \.Main.targets\n\.all........--. |
| 23540 | 73 65 65 20 63 6f 6d 70 69 6c 65 5c 6e 5c 0a 63 6f 6d 70 69 6c 65 20 20 20 20 2d 2d 20 63 6f 6d | see.compile\n\.compile....--.com |
| 23560 | 70 69 6c 65 20 2e 65 6c 20 66 69 6c 65 73 5c 6e 5c 0a 63 68 65 63 6b 20 20 20 20 20 20 2d 2d 20 | pile..el.files\n\.check......--. |
| 23580 | 72 75 6e 20 74 65 73 74 73 20 69 6e 20 62 61 74 63 68 20 6d 6f 64 65 5c 6e 5c 0a 63 6c 65 61 6e | run.tests.in.batch.mode\n\.clean |
| 235a0 | 20 20 20 20 20 20 2d 2d 20 64 65 6c 65 74 65 20 67 65 6e 65 72 61 74 65 64 20 66 69 6c 65 73 5c | ......--.delete.generated.files\ |
| 235c0 | 6e 5c 0a 64 6f 63 2d 68 65 6c 70 20 20 20 2d 2d 20 70 72 69 6e 74 20 68 65 6c 70 20 61 62 6f 75 | n\.doc-help...--.print.help.abou |
| 235e0 | 74 20 64 6f 63 20 74 61 72 67 65 74 73 5c 6e 5c 0a 68 65 6c 70 2d 76 61 72 73 20 20 2d 2d 20 70 | t.doc.targets\n\.help-vars..--.p |
| 23600 | 72 69 6e 74 20 69 6e 66 6f 20 61 62 6f 75 74 20 76 61 72 69 61 62 6c 65 73 5c 6e 5c 0a 68 65 6c | rint.info.about.variables\n\.hel |
| 23620 | 70 20 20 20 20 20 20 20 2d 2d 20 70 72 69 6e 74 20 74 68 69 73 20 6d 65 73 73 61 67 65 5c 6e 22 | p.......--.print.this.message\n" |
| 23640 | 0a 0a 68 65 6c 70 2d 76 61 72 73 3a 0a 09 40 70 72 69 6e 74 66 20 22 5c 0a 4d 61 69 6e 20 6d 61 | ..help-vars:..@printf."\.Main.ma |
| 23660 | 6b 65 20 76 61 72 69 61 62 6c 65 73 3a 5c 6e 5c 0a 45 4d 41 43 53 20 20 20 20 20 2d 2d 20 70 72 | ke.variables:\n\.EMACS.....--.pr |
| 23680 | 6f 67 72 61 6d 20 74 6f 20 73 74 61 72 74 20 45 6d 61 63 73 20 28 24 28 45 4d 41 43 53 29 29 5c | ogram.to.start.Emacs.($(EMACS))\ |
| 236a0 | 6e 5c 0a 4c 49 53 50 20 20 20 20 20 20 2d 2d 20 70 72 6f 67 72 61 6d 20 74 6f 20 73 74 61 72 74 | n\.LISP......--.program.to.start |
| 236c0 | 20 4c 69 73 70 20 28 24 28 4c 49 53 50 29 29 5c 6e 5c 0a 53 45 4c 45 43 54 4f 52 20 20 2d 2d 20 | .Lisp.($(LISP))\n\.SELECTOR..--. |
| 236e0 | 73 65 6c 65 63 74 6f 72 20 66 6f 72 20 45 52 54 20 74 65 73 74 73 20 28 24 28 53 45 4c 45 43 54 | selector.for.ERT.tests.($(SELECT |
| 23700 | 4f 52 29 29 5c 6e 22 0a 0a 23 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 0a 23 0a 73 6c 69 6d 65 2e 65 | OR))\n"..#.Compilation.#.slime.e |
| 23720 | 6c 63 3a 20 73 6c 69 6d 65 2e 65 6c 20 6c 69 62 2f 68 79 70 65 72 73 70 65 63 2e 65 6c 63 0a 0a | lc:.slime.el.lib/hyperspec.elc.. |
| 23740 | 25 2e 65 6c 63 3a 20 25 2e 65 6c 0a 09 24 28 45 4d 41 43 53 29 20 2d 51 20 24 28 4c 4f 41 44 5f | %.elc:.%.el..$(EMACS).-Q.$(LOAD_ |
| 23760 | 50 41 54 48 29 20 2d 2d 62 61 74 63 68 20 2d 66 20 62 61 74 63 68 2d 62 79 74 65 2d 63 6f 6d 70 | PATH).--batch.-f.batch-byte-comp |
| 23780 | 69 6c 65 20 24 3c 0a 0a 63 6f 6d 70 69 6c 65 3a 20 24 28 45 4c 43 46 49 4c 45 53 29 0a 0a 23 20 | ile.$<..compile:.$(ELCFILES)..#. |
| 237a0 | 41 75 74 6f 6d 61 74 65 64 20 74 65 73 74 73 0a 23 0a 53 45 4c 45 43 54 4f 52 3d 74 0a 0a 63 68 | Automated.tests.#.SELECTOR=t..ch |
| 237c0 | 65 63 6b 3a 20 63 6f 6d 70 69 6c 65 0a 09 24 28 45 4d 41 43 53 29 20 2d 51 20 2d 2d 62 61 74 63 | eck:.compile..$(EMACS).-Q.--batc |
| 237e0 | 68 20 24 28 4c 4f 41 44 5f 50 41 54 48 29 09 09 09 09 5c 0a 09 09 2d 2d 65 76 61 6c 20 22 28 72 | h.$(LOAD_PATH)....\...--eval."(r |
| 23800 | 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 74 65 73 74 73 29 22 09 09 09 09 5c 0a 09 09 2d 2d 65 | equire.'slime-tests)"....\...--e |
| 23820 | 76 61 6c 20 22 28 73 6c 69 6d 65 2d 73 65 74 75 70 29 22 09 09 09 09 09 5c 0a 09 09 2d 2d 65 76 | val."(slime-setup)".....\...--ev |
| 23840 | 61 6c 20 22 28 73 65 74 71 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 20 | al."(setq.inferior-lisp-program. |
| 23860 | 5c 22 24 28 4c 49 53 50 29 5c 22 29 22 09 5c 0a 09 09 2d 2d 65 76 61 6c 20 27 28 73 6c 69 6d 65 | \"$(LISP)\")".\...--eval.'(slime |
| 23880 | 2d 62 61 74 63 68 2d 74 65 73 74 20 28 71 75 6f 74 65 20 24 28 53 45 4c 45 43 54 4f 52 29 29 29 | -batch-test.(quote.$(SELECTOR))) |
| 238a0 | 27 0a 0a 23 20 72 75 6e 20 74 65 73 74 73 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 0a 23 0a 23 | '..#.run.tests.interactively.#.# |
| 238c0 | 20 46 49 58 4d 45 3a 20 4e 6f 74 20 74 65 72 72 69 62 6c 79 20 75 73 65 66 75 6c 20 75 6e 74 69 | .FIXME:.Not.terribly.useful.unti |
| 238e0 | 6c 20 62 75 67 73 20 69 6e 20 65 72 74 2d 72 75 6e 2d 74 65 73 74 73 2d 69 6e 74 65 72 61 63 74 | l.bugs.in.ert-run-tests-interact |
| 23900 | 69 76 65 6c 79 0a 23 20 61 72 65 20 66 69 78 65 64 2e 0a 74 65 73 74 3a 20 63 6f 6d 70 69 6c 65 | ively.#.are.fixed..test:.compile |
| 23920 | 0a 09 24 28 45 4d 41 43 53 29 20 2d 51 20 2d 6e 77 20 24 28 4c 4f 41 44 5f 50 41 54 48 29 09 09 | ..$(EMACS).-Q.-nw.$(LOAD_PATH).. |
| 23940 | 09 09 09 5c 0a 09 09 2d 2d 65 76 61 6c 20 22 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 74 | ...\...--eval."(require.'slime-t |
| 23960 | 65 73 74 73 29 22 09 09 09 09 5c 0a 09 09 2d 2d 65 76 61 6c 20 22 28 73 6c 69 6d 65 2d 73 65 74 | ests)"....\...--eval."(slime-set |
| 23980 | 75 70 29 22 09 09 09 09 09 5c 0a 09 09 2d 2d 65 76 61 6c 20 22 28 73 65 74 71 20 69 6e 66 65 72 | up)".....\...--eval."(setq.infer |
| 239a0 | 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 20 5c 22 24 28 4c 49 53 50 29 5c 22 29 22 09 5c | ior-lisp-program.\"$(LISP)\")".\ |
| 239c0 | 0a 09 09 2d 2d 65 76 61 6c 20 27 28 73 6c 69 6d 65 2d 62 61 74 63 68 2d 74 65 73 74 20 28 71 75 | ...--eval.'(slime-batch-test.(qu |
| 239e0 | 6f 74 65 20 24 28 53 45 4c 45 43 54 4f 52 29 29 29 27 0a 0a 63 6f 6d 70 69 6c 65 2d 73 77 61 6e | ote.$(SELECTOR)))'..compile-swan |
| 23a00 | 6b 3a 0a 09 65 63 68 6f 20 27 28 6c 6f 61 64 20 22 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 2e 6c 69 | k:..echo.'(load."swank-loader.li |
| 23a20 | 73 70 22 29 27 20 27 28 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 69 6e 69 74 20 3a 73 65 74 75 70 | sp")'.'(swank-loader:init.:setup |
| 23a40 | 20 6e 69 6c 29 27 20 5c 0a 09 7c 20 24 28 4c 49 53 50 29 0a 0a 72 75 6e 2d 73 77 61 6e 6b 3a 0a | .nil)'.\..|.$(LISP)..run-swank:. |
| 23a60 | 09 7b 20 65 63 68 6f 20 5c 0a 09 27 28 6c 6f 61 64 20 22 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 2e | .{.echo.\..'(load."swank-loader. |
| 23a80 | 6c 69 73 70 22 29 27 20 5c 0a 09 27 28 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 69 6e 69 74 29 27 | lisp")'.\..'(swank-loader:init)' |
| 23aa0 | 20 5c 0a 09 27 28 73 77 61 6e 6b 3a 63 72 65 61 74 65 2d 73 65 72 76 65 72 29 27 20 5c 0a 09 26 | .\..'(swank:create-server)'.\..& |
| 23ac0 | 26 20 63 61 74 3b 20 7d 20 5c 0a 09 7c 20 24 28 4c 49 53 50 29 0a 0a 65 6c 70 61 2d 73 6c 69 6d | &.cat;.}.\..|.$(LISP)..elpa-slim |
| 23ae0 | 65 3a 0a 09 65 63 68 6f 20 22 4e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 79 65 74 3a 20 65 | e:..echo."Not.implemented.yet:.e |
| 23b00 | 6c 70 61 2d 73 6c 69 6d 65 20 74 61 72 67 65 74 22 20 26 26 20 65 78 69 74 20 32 35 35 0a 0a 65 | lpa-slime.target".&&.exit.255..e |
| 23b20 | 6c 70 61 3a 20 65 6c 70 61 2d 73 6c 69 6d 65 20 63 6f 6e 74 72 69 62 2d 65 6c 70 61 0a 0a 23 20 | lpa:.elpa-slime.contrib-elpa..#. |
| 23b40 | 43 6c 65 61 6e 75 70 0a 23 0a 46 41 53 4c 52 45 47 45 58 20 3d 20 2e 2a 5c 2e 5c 28 66 61 73 6c | Cleanup.#.FASLREGEX.=..*\.\(fasl |
| 23b60 | 5c 7c 75 66 61 73 6c 5c 7c 73 73 65 32 66 5c 7c 6c 78 33 32 66 73 6c 5c 7c 61 62 63 6c 5c 7c 66 | \|ufasl\|sse2f\|lx32fsl\|abcl\|f |
| 23b80 | 61 73 5c 7c 6c 69 62 5c 7c 74 72 61 63 65 5c 29 24 24 0a 0a 63 6c 65 61 6e 2d 66 61 73 6c 73 3a | as\|lib\|trace\)$$..clean-fasls: |
| 23ba0 | 0a 09 66 69 6e 64 20 2e 20 2d 72 65 67 65 78 20 27 24 28 46 41 53 4c 52 45 47 45 58 29 27 20 2d | ..find...-regex.'$(FASLREGEX)'.- |
| 23bc0 | 65 78 65 63 20 72 6d 20 2d 76 20 7b 7d 20 5c 3b 0a 09 5b 20 21 20 2d 64 20 7e 2f 2e 73 6c 69 6d | exec.rm.-v.{}.\;..[.!.-d.~/.slim |
| 23be0 | 65 2f 66 61 73 6c 20 5d 20 7c 7c 20 72 6d 20 2d 72 66 20 7e 2f 2e 73 6c 69 6d 65 2f 66 61 73 6c | e/fasl.].||.rm.-rf.~/.slime/fasl |
| 23c00 | 0a 0a 63 6c 65 61 6e 3a 20 63 6c 65 61 6e 2d 66 61 73 6c 73 0a 09 66 69 6e 64 20 2e 20 2d 69 6e | ..clean:.clean-fasls..find...-in |
| 23c20 | 61 6d 65 20 27 2a 2e 65 6c 63 27 20 2d 65 78 65 63 20 72 6d 20 7b 7d 20 5c 3b 0a 0a 0a 23 20 43 | ame.'*.elc'.-exec.rm.{}.\;...#.C |
| 23c40 | 6f 6e 74 72 69 62 20 73 74 75 66 66 2e 20 53 68 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 61 6c | ontrib.stuff..Should.probably.al |
| 23c60 | 73 6f 20 67 6f 20 74 6f 20 63 6f 6e 74 72 69 62 2f 0a 23 0a 4d 41 4b 45 43 4f 4e 54 52 49 42 3d | so.go.to.contrib/.#.MAKECONTRIB= |
| 23c80 | 24 28 4d 41 4b 45 29 20 2d 43 20 63 6f 6e 74 72 69 62 20 45 4d 41 43 53 3d 22 24 28 45 4d 41 43 | $(MAKE).-C.contrib.EMACS="$(EMAC |
| 23ca0 | 53 29 22 20 4c 49 53 50 3d 22 24 28 4c 49 53 50 29 22 0a 63 6f 6e 74 72 69 62 2d 63 68 65 63 6b | S)".LISP="$(LISP)".contrib-check |
| 23cc0 | 2d 25 20 63 68 65 63 6b 2d 25 3a 0a 09 24 28 4d 41 4b 45 43 4f 4e 54 52 49 42 29 20 24 28 40 3a | -%.check-%:..$(MAKECONTRIB).$(@: |
| 23ce0 | 63 6f 6e 74 72 69 62 2d 25 3d 25 29 0a 63 6f 6e 74 72 69 62 2d 65 6c 70 61 3a 0a 09 24 28 4d 41 | contrib-%=%).contrib-elpa:..$(MA |
| 23d00 | 4b 45 43 4f 4e 54 52 49 42 29 20 65 6c 70 61 2d 61 6c 6c 0a 63 6f 6e 74 72 69 62 2d 63 6f 6d 70 | KECONTRIB).elpa-all.contrib-comp |
| 23d20 | 69 6c 65 3a 0a 09 24 28 4d 41 4b 45 43 4f 4e 54 52 49 42 29 20 63 6f 6d 70 69 6c 65 0a 0a 23 20 | ile:..$(MAKECONTRIB).compile..#. |
| 23d40 | 44 6f 63 0a 23 0a 64 6f 63 2d 25 3a 0a 09 24 28 4d 41 4b 45 29 20 2d 43 20 64 6f 63 20 24 28 40 | Doc.#.doc-%:..$(MAKE).-C.doc.$(@ |
| 23d60 | 3a 64 6f 63 2d 25 3d 25 29 0a 64 6f 63 3a 20 64 6f 63 2d 68 65 6c 70 0a 0a 2e 50 48 4f 4e 59 3a | :doc-%=%).doc:.doc-help...PHONY: |
| 23d80 | 20 63 6c 65 61 6e 20 65 6c 70 61 20 63 6f 6d 70 69 6c 65 20 63 68 65 63 6b 20 64 6f 63 20 64 69 | .clean.elpa.compile.check.doc.di |
| 23da0 | 73 74 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | st.............................. |
| 23dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23e00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 62 63 6c 2d 70 70 72 69 6e 74 2d 70 61 74 63 68 2e 6c 69 73 | slime-2.31/sbcl-pprint-patch.lis |
| 23e20 | 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | p............................... |
| 23e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23e60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 23e80 | 30 30 32 37 36 35 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 35 30 00 20 30 00 00 00 | 0027654.00000000000.015450..0... |
| 23ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 23f20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 23f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 24000 | 3b 3b 20 50 72 65 74 74 79 20 70 72 69 6e 74 65 72 20 70 61 74 63 68 20 66 6f 72 20 53 42 43 4c | ;;.Pretty.printer.patch.for.SBCL |
| 24020 | 2c 20 77 68 69 63 68 20 61 64 64 73 20 74 68 65 20 22 61 6e 6e 6f 74 61 74 69 6f 6e 73 22 20 66 | ,.which.adds.the."annotations".f |
| 24040 | 65 61 74 75 72 65 0a 3b 3b 20 72 65 71 75 69 72 65 64 20 66 6f 72 20 73 65 6e 64 69 6e 67 20 70 | eature.;;.required.for.sending.p |
| 24060 | 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 74 68 72 6f 75 67 68 20 70 72 65 74 74 79 2d 70 72 69 6e | resentations.through.pretty-prin |
| 24080 | 74 69 6e 67 20 73 74 72 65 61 6d 73 2e 0a 3b 3b 0a 3b 3b 20 54 68 65 20 73 65 63 74 69 6f 6e 20 | ting.streams..;;.;;.The.section. |
| 240a0 | 6d 61 72 6b 65 64 20 22 43 68 61 6e 67 65 64 20 66 75 6e 63 74 69 6f 6e 73 22 20 61 6e 64 20 74 | marked."Changed.functions".and.t |
| 240c0 | 68 65 20 44 45 46 53 54 52 55 43 54 0a 3b 3b 20 50 52 45 54 54 59 2d 53 54 52 45 41 4d 20 61 72 | he.DEFSTRUCT.;;.PRETTY-STREAM.ar |
| 240e0 | 65 20 62 61 73 65 64 20 6f 6e 20 53 42 43 4c 27 73 20 70 70 72 69 6e 74 2e 6c 69 73 70 2e 0a 3b | e.based.on.SBCL's.pprint.lisp..; |
| 24100 | 3b 20 0a 3b 3b 20 50 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2e 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 | ;..;;.Public.domain...(in-packag |
| 24120 | 65 20 22 53 42 21 50 52 45 54 54 59 22 29 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 61 6e 6e 6f | e."SB!PRETTY")..(defstruct.(anno |
| 24140 | 74 61 74 69 6f 6e 20 28 3a 69 6e 63 6c 75 64 65 20 71 75 65 75 65 64 2d 6f 70 29 29 0a 20 20 28 | tation.(:include.queued-op))...( |
| 24160 | 68 61 6e 64 6c 65 72 20 28 63 6f 6e 73 74 61 6e 74 6c 79 20 6e 69 6c 29 20 3a 74 79 70 65 20 66 | handler.(constantly.nil).:type.f |
| 24180 | 75 6e 63 74 69 6f 6e 29 0a 20 20 28 72 65 63 6f 72 64 29 29 0a 0a 0a 28 64 65 66 73 74 72 75 63 | unction)...(record))...(defstruc |
| 241a0 | 74 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 20 28 3a 69 6e 63 6c 75 64 65 20 73 62 21 6b 65 | t.(pretty-stream.(:include.sb!ke |
| 241c0 | 72 6e 65 6c 3a 61 6e 73 69 2d 73 74 72 65 61 6d 0a 09 09 09 09 20 20 20 20 28 6f 75 74 20 23 27 | rnel:ansi-stream.........(out.#' |
| 241e0 | 70 72 65 74 74 79 2d 6f 75 74 29 0a 09 09 09 09 20 20 20 20 28 73 6f 75 74 20 23 27 70 72 65 74 | pretty-out).........(sout.#'pret |
| 24200 | 74 79 2d 73 6f 75 74 29 0a 09 09 09 09 20 20 20 20 28 6d 69 73 63 20 23 27 70 72 65 74 74 79 2d | ty-sout).........(misc.#'pretty- |
| 24220 | 6d 69 73 63 29 29 0a 09 09 09 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 6d 61 6b 65 2d 70 | misc))......(:constructor.make-p |
| 24240 | 72 65 74 74 79 2d 73 74 72 65 61 6d 20 28 74 61 72 67 65 74 29 29 0a 09 09 09 20 20 28 3a 63 6f | retty-stream.(target))......(:co |
| 24260 | 70 69 65 72 20 6e 69 6c 29 29 0a 20 20 3b 3b 20 57 68 65 72 65 20 74 68 65 20 6f 75 74 70 75 74 | pier.nil))...;;.Where.the.output |
| 24280 | 20 69 73 20 67 6f 69 6e 67 20 74 6f 20 66 69 6e 61 6c 6c 79 20 67 6f 2e 0a 20 20 28 74 61 72 67 | .is.going.to.finally.go....(targ |
| 242a0 | 65 74 20 28 6d 69 73 73 69 6e 67 2d 61 72 67 29 20 3a 74 79 70 65 20 73 74 72 65 61 6d 29 0a 20 | et.(missing-arg).:type.stream).. |
| 242c0 | 20 3b 3b 20 4c 69 6e 65 20 6c 65 6e 67 74 68 20 77 65 20 73 68 6f 75 6c 64 20 66 6f 72 6d 61 74 | .;;.Line.length.we.should.format |
| 242e0 | 20 74 6f 2e 20 43 61 63 68 65 64 20 68 65 72 65 20 73 6f 20 77 65 20 64 6f 6e 27 74 20 68 61 76 | .to..Cached.here.so.we.don't.hav |
| 24300 | 65 20 74 6f 20 6b 65 65 70 0a 20 20 3b 3b 20 65 78 74 72 61 63 74 69 6e 67 20 69 74 20 66 72 6f | e.to.keep...;;.extracting.it.fro |
| 24320 | 6d 20 74 68 65 20 74 61 72 67 65 74 20 73 74 72 65 61 6d 2e 0a 20 20 28 6c 69 6e 65 2d 6c 65 6e | m.the.target.stream....(line-len |
| 24340 | 67 74 68 20 28 6f 72 20 2a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 2a 0a 09 09 20 | gth.(or.*print-right-margin*.... |
| 24360 | 20 20 28 73 62 21 69 6d 70 6c 3a 3a 6c 69 6e 65 2d 6c 65 6e 67 74 68 20 74 61 72 67 65 74 29 0a | ..(sb!impl::line-length.target). |
| 24380 | 09 09 20 20 20 64 65 66 61 75 6c 74 2d 6c 69 6e 65 2d 6c 65 6e 67 74 68 29 0a 09 20 20 20 20 20 | .....default-line-length)....... |
| 243a0 | 20 20 3a 74 79 70 65 20 63 6f 6c 75 6d 6e 29 0a 20 20 3b 3b 20 41 20 73 69 6d 70 6c 65 20 73 74 | ..:type.column)...;;.A.simple.st |
| 243c0 | 72 69 6e 67 20 68 6f 6c 64 69 6e 67 20 61 6c 6c 20 74 68 65 20 74 65 78 74 20 74 68 61 74 20 68 | ring.holding.all.the.text.that.h |
| 243e0 | 61 73 20 62 65 65 6e 20 6f 75 74 70 75 74 20 62 75 74 20 6e 6f 74 20 79 65 74 0a 20 20 3b 3b 20 | as.been.output.but.not.yet...;;. |
| 24400 | 70 72 69 6e 74 65 64 2e 0a 20 20 28 62 75 66 66 65 72 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 | printed....(buffer.(make-string. |
| 24420 | 69 6e 69 74 69 61 6c 2d 62 75 66 66 65 72 2d 73 69 7a 65 29 20 3a 74 79 70 65 20 28 73 69 6d 70 | initial-buffer-size).:type.(simp |
| 24440 | 6c 65 2d 61 72 72 61 79 20 63 68 61 72 61 63 74 65 72 20 28 2a 29 29 29 0a 20 20 3b 3b 20 54 68 | le-array.character.(*)))...;;.Th |
| 24460 | 65 20 69 6e 64 65 78 20 69 6e 74 6f 20 42 55 46 46 45 52 20 77 68 65 72 65 20 6d 6f 72 65 20 74 | e.index.into.BUFFER.where.more.t |
| 24480 | 65 78 74 20 73 68 6f 75 6c 64 20 62 65 20 70 75 74 2e 0a 20 20 28 62 75 66 66 65 72 2d 66 69 6c | ext.should.be.put....(buffer-fil |
| 244a0 | 6c 2d 70 6f 69 6e 74 65 72 20 30 20 3a 74 79 70 65 20 69 6e 64 65 78 29 0a 20 20 3b 3b 20 57 68 | l-pointer.0.:type.index)...;;.Wh |
| 244c0 | 65 6e 65 76 65 72 20 77 65 20 6f 75 74 70 75 74 20 73 74 75 66 66 20 66 72 6f 6d 20 74 68 65 20 | enever.we.output.stuff.from.the. |
| 244e0 | 62 75 66 66 65 72 2c 20 77 65 20 73 68 69 66 74 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 6e | buffer,.we.shift.the.remaining.n |
| 24500 | 6f 69 73 65 0a 20 20 3b 3b 20 6f 76 65 72 2e 20 54 68 69 73 20 6d 61 6b 65 73 20 69 74 20 64 69 | oise...;;.over..This.makes.it.di |
| 24520 | 66 66 69 63 75 6c 74 20 74 6f 20 6b 65 65 70 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 6c 6f | fficult.to.keep.references.to.lo |
| 24540 | 63 61 74 69 6f 6e 73 20 69 6e 0a 20 20 3b 3b 20 74 68 65 20 62 75 66 66 65 72 2e 20 54 68 65 72 | cations.in...;;.the.buffer..Ther |
| 24560 | 65 66 6f 72 65 2c 20 77 65 20 68 61 76 65 20 74 6f 20 6b 65 65 70 20 74 72 61 63 6b 20 6f 66 20 | efore,.we.have.to.keep.track.of. |
| 24580 | 74 68 65 20 74 6f 74 61 6c 20 61 6d 6f 75 6e 74 20 6f 66 0a 20 20 3b 3b 20 73 74 75 66 66 20 74 | the.total.amount.of...;;.stuff.t |
| 245a0 | 68 61 74 20 68 61 73 20 62 65 65 6e 20 73 68 69 66 74 65 64 20 6f 75 74 20 6f 66 20 74 68 65 20 | hat.has.been.shifted.out.of.the. |
| 245c0 | 62 75 66 66 65 72 2e 0a 20 20 28 62 75 66 66 65 72 2d 6f 66 66 73 65 74 20 30 20 3a 74 79 70 65 | buffer....(buffer-offset.0.:type |
| 245e0 | 20 70 6f 73 6e 29 0a 20 20 3b 3b 20 54 68 65 20 63 6f 6c 75 6d 6e 20 74 68 65 20 66 69 72 73 74 | .posn)...;;.The.column.the.first |
| 24600 | 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 77 69 6c 6c 20 61 70 | .character.in.the.buffer.will.ap |
| 24620 | 70 65 61 72 20 69 6e 2e 20 4e 6f 72 6d 61 6c 6c 79 0a 20 20 3b 3b 20 7a 65 72 6f 2c 20 62 75 74 | pear.in..Normally...;;.zero,.but |
| 24640 | 20 69 66 20 77 65 20 65 6e 64 20 75 70 20 77 69 74 68 20 61 20 76 65 72 79 20 6c 6f 6e 67 20 6c | .if.we.end.up.with.a.very.long.l |
| 24660 | 69 6e 65 20 77 69 74 68 20 6e 6f 20 62 72 65 61 6b 73 20 69 6e 20 69 74 20 77 65 0a 20 20 3b 3b | ine.with.no.breaks.in.it.we...;; |
| 24680 | 20 6d 69 67 68 74 20 68 61 76 65 20 74 6f 20 6f 75 74 70 75 74 20 70 61 72 74 20 6f 66 20 69 74 | .might.have.to.output.part.of.it |
| 246a0 | 2e 20 54 68 65 6e 20 74 68 69 73 20 77 69 6c 6c 20 6e 6f 20 6c 6f 6e 67 65 72 20 62 65 20 7a 65 | ..Then.this.will.no.longer.be.ze |
| 246c0 | 72 6f 2e 0a 20 20 28 62 75 66 66 65 72 2d 73 74 61 72 74 2d 63 6f 6c 75 6d 6e 20 28 6f 72 20 28 | ro....(buffer-start-column.(or.( |
| 246e0 | 73 62 21 69 6d 70 6c 3a 3a 63 68 61 72 70 6f 73 20 74 61 72 67 65 74 29 20 30 29 20 3a 74 79 70 | sb!impl::charpos.target).0).:typ |
| 24700 | 65 20 63 6f 6c 75 6d 6e 29 0a 20 20 3b 3b 20 54 68 65 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 77 | e.column)...;;.The.line.number.w |
| 24720 | 65 20 61 72 65 20 63 75 72 72 65 6e 74 6c 79 20 6f 6e 2e 20 55 73 65 64 20 66 6f 72 20 2a 50 52 | e.are.currently.on..Used.for.*PR |
| 24740 | 49 4e 54 2d 4c 49 4e 45 53 2a 0a 20 20 3b 3b 20 61 62 62 72 65 76 69 61 74 69 6f 6e 73 20 61 6e | INT-LINES*...;;.abbreviations.an |
| 24760 | 64 20 74 6f 20 74 65 6c 6c 20 77 68 65 6e 20 73 65 63 74 69 6f 6e 73 20 68 61 76 65 20 62 65 65 | d.to.tell.when.sections.have.bee |
| 24780 | 6e 20 73 70 6c 69 74 20 61 63 72 6f 73 73 0a 20 20 3b 3b 20 6d 75 6c 74 69 70 6c 65 20 6c 69 6e | n.split.across...;;.multiple.lin |
| 247a0 | 65 73 2e 0a 20 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 30 20 3a 74 79 70 65 20 69 6e 64 65 78 | es....(line-number.0.:type.index |
| 247c0 | 29 0a 20 20 3b 3b 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 2a 50 52 49 4e 54 2d 4c 49 4e 45 53 | )...;;.the.value.of.*PRINT-LINES |
| 247e0 | 2a 20 63 61 70 74 75 72 65 64 20 61 74 20 6f 62 6a 65 63 74 20 63 72 65 61 74 69 6f 6e 20 74 69 | *.captured.at.object.creation.ti |
| 24800 | 6d 65 2e 20 57 65 0a 20 20 3b 3b 20 75 73 65 20 74 68 69 73 2c 20 69 6e 73 74 65 61 64 20 6f 66 | me..We...;;.use.this,.instead.of |
| 24820 | 20 74 68 65 20 64 79 6e 61 6d 69 63 20 2a 50 52 49 4e 54 2d 4c 49 4e 45 53 2a 2c 20 74 6f 20 61 | .the.dynamic.*PRINT-LINES*,.to.a |
| 24840 | 76 6f 69 64 0a 20 20 3b 3b 20 77 65 69 72 64 6e 65 73 73 20 6c 69 6b 65 0a 20 20 3b 3b 20 20 20 | void...;;.weirdness.like...;;... |
| 24860 | 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 6c 69 6e 65 73 2a 20 35 30 29 29 0a 20 20 3b 3b 20 20 | (let.((*print-lines*.50))...;;.. |
| 24880 | 20 20 20 28 70 70 72 69 6e 74 2d 6c 6f 67 69 63 61 6c 2d 62 6c 6f 63 6b 20 2e 2e 0a 20 20 3b 3b | ...(pprint-logical-block......;; |
| 248a0 | 20 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 31 30 29 0a 20 20 3b 3b 20 20 20 20 20 | .......(dotimes.(i.10)...;;..... |
| 248c0 | 20 20 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 6c 69 6e 65 73 2a 20 38 29 29 0a 20 20 3b | ....(let.((*print-lines*.8))...; |
| 248e0 | 3b 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 20 28 61 72 65 66 20 70 6f 73 73 69 62 6c | ;...........(print.(aref.possibl |
| 24900 | 79 62 69 67 74 68 69 6e 67 73 20 69 29 20 70 72 65 74 74 79 73 74 72 65 61 6d 29 29 29 29 29 0a | ybigthings.i).prettystream))))). |
| 24920 | 20 20 3b 3b 20 74 65 72 6d 69 6e 61 74 69 6e 67 20 74 68 65 20 6f 75 74 70 75 74 20 6f 66 20 74 | ..;;.terminating.the.output.of.t |
| 24940 | 68 65 20 65 6e 74 69 72 65 20 6c 6f 67 69 63 61 6c 20 62 6c 6f 63 6b 61 66 74 65 72 20 38 20 6c | he.entire.logical.blockafter.8.l |
| 24960 | 69 6e 65 73 2e 0a 20 20 28 70 72 69 6e 74 2d 6c 69 6e 65 73 20 2a 70 72 69 6e 74 2d 6c 69 6e 65 | ines....(print-lines.*print-line |
| 24980 | 73 2a 20 3a 74 79 70 65 20 28 6f 72 20 69 6e 64 65 78 20 6e 75 6c 6c 29 20 3a 72 65 61 64 2d 6f | s*.:type.(or.index.null).:read-o |
| 249a0 | 6e 6c 79 20 74 29 0a 20 20 3b 3b 20 53 74 61 63 6b 20 6f 66 20 6c 6f 67 69 63 61 6c 20 62 6c 6f | nly.t)...;;.Stack.of.logical.blo |
| 249c0 | 63 6b 73 20 69 6e 20 65 66 66 65 63 74 20 61 74 20 74 68 65 20 62 75 66 66 65 72 20 73 74 61 72 | cks.in.effect.at.the.buffer.star |
| 249e0 | 74 2e 0a 20 20 28 62 6c 6f 63 6b 73 20 28 6c 69 73 74 20 28 6d 61 6b 65 2d 6c 6f 67 69 63 61 6c | t....(blocks.(list.(make-logical |
| 24a00 | 2d 62 6c 6f 63 6b 29 29 20 3a 74 79 70 65 20 6c 69 73 74 29 0a 20 20 3b 3b 20 42 75 66 66 65 72 | -block)).:type.list)...;;.Buffer |
| 24a20 | 20 68 6f 6c 64 69 6e 67 20 74 68 65 20 70 65 72 2d 6c 69 6e 65 20 70 72 65 66 69 78 20 61 63 74 | .holding.the.per-line.prefix.act |
| 24a40 | 69 76 65 20 61 74 20 74 68 65 20 62 75 66 66 65 72 20 73 74 61 72 74 2e 0a 20 20 3b 3b 20 49 6e | ive.at.the.buffer.start....;;.In |
| 24a60 | 64 65 6e 74 61 74 69 6f 6e 20 69 73 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 74 68 69 73 2e 20 54 | dentation.is.included.in.this..T |
| 24a80 | 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 69 73 20 69 73 20 73 74 6f 72 65 64 0a 20 20 3b 3b | he.length.of.this.is.stored...;; |
| 24aa0 | 20 69 6e 20 74 68 65 20 6c 6f 67 69 63 61 6c 20 62 6c 6f 63 6b 20 73 74 61 63 6b 2e 0a 20 20 28 | .in.the.logical.block.stack....( |
| 24ac0 | 70 72 65 66 69 78 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 69 6e 69 74 69 61 6c 2d 62 75 66 66 | prefix.(make-string.initial-buff |
| 24ae0 | 65 72 2d 73 69 7a 65 29 20 3a 74 79 70 65 20 28 73 69 6d 70 6c 65 2d 61 72 72 61 79 20 63 68 61 | er-size).:type.(simple-array.cha |
| 24b00 | 72 61 63 74 65 72 20 28 2a 29 29 29 0a 20 20 3b 3b 20 42 75 66 66 65 72 20 68 6f 6c 64 69 6e 67 | racter.(*)))...;;.Buffer.holding |
| 24b20 | 20 74 68 65 20 74 6f 74 61 6c 20 72 65 6d 61 69 6e 69 6e 67 20 73 75 66 66 69 78 20 61 63 74 69 | .the.total.remaining.suffix.acti |
| 24b40 | 76 65 20 61 74 20 74 68 65 20 62 75 66 66 65 72 20 73 74 61 72 74 2e 0a 20 20 3b 3b 20 54 68 65 | ve.at.the.buffer.start....;;.The |
| 24b60 | 20 63 68 61 72 61 63 74 65 72 73 20 61 72 65 20 72 69 67 68 74 2d 6a 75 73 74 69 66 69 65 64 20 | .characters.are.right-justified. |
| 24b80 | 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 74 6f 20 6d 61 6b 65 20 69 74 20 65 61 73 69 65 72 0a | in.the.buffer.to.make.it.easier. |
| 24ba0 | 20 20 3b 3b 20 74 6f 20 6f 75 74 70 75 74 20 74 68 65 20 62 75 66 66 65 72 2e 20 54 68 65 20 6c | ..;;.to.output.the.buffer..The.l |
| 24bc0 | 65 6e 67 74 68 20 69 73 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20 6c 6f 67 69 63 61 6c 20 62 | ength.is.stored.in.the.logical.b |
| 24be0 | 6c 6f 63 6b 0a 20 20 3b 3b 20 73 74 61 63 6b 2e 0a 20 20 28 73 75 66 66 69 78 20 28 6d 61 6b 65 | lock...;;.stack....(suffix.(make |
| 24c00 | 2d 73 74 72 69 6e 67 20 69 6e 69 74 69 61 6c 2d 62 75 66 66 65 72 2d 73 69 7a 65 29 20 3a 74 79 | -string.initial-buffer-size).:ty |
| 24c20 | 70 65 20 28 73 69 6d 70 6c 65 2d 61 72 72 61 79 20 63 68 61 72 61 63 74 65 72 20 28 2a 29 29 29 | pe.(simple-array.character.(*))) |
| 24c40 | 0a 20 20 3b 3b 20 51 75 65 75 65 20 6f 66 20 70 65 6e 64 69 6e 67 20 6f 70 65 72 61 74 69 6f 6e | ...;;.Queue.of.pending.operation |
| 24c60 | 73 2e 20 57 68 65 6e 20 65 6d 70 74 79 2c 20 48 45 41 44 3d 54 41 49 4c 3d 4e 49 4c 2e 20 4f 74 | s..When.empty,.HEAD=TAIL=NIL..Ot |
| 24c80 | 68 65 72 77 69 73 65 2c 0a 20 20 3b 3b 20 54 41 49 4c 20 68 6f 6c 64 73 20 74 68 65 20 66 69 72 | herwise,...;;.TAIL.holds.the.fir |
| 24ca0 | 73 74 20 28 6f 6c 64 65 73 74 29 20 63 6f 6e 73 20 61 6e 64 20 48 45 41 44 20 68 6f 6c 64 73 20 | st.(oldest).cons.and.HEAD.holds. |
| 24cc0 | 74 68 65 20 6c 61 73 74 20 28 6e 65 77 65 73 74 29 0a 20 20 3b 3b 20 63 6f 6e 73 2e 20 41 64 64 | the.last.(newest)...;;.cons..Add |
| 24ce0 | 69 6e 67 20 74 68 69 6e 67 73 20 74 6f 20 74 68 65 20 71 75 65 75 65 20 69 73 20 62 61 73 69 63 | ing.things.to.the.queue.is.basic |
| 24d00 | 61 6c 6c 79 20 28 73 65 74 66 20 28 63 64 72 20 68 65 61 64 29 20 28 6c 69 73 74 0a 20 20 3b 3b | ally.(setf.(cdr.head).(list...;; |
| 24d20 | 20 6e 65 77 29 29 20 61 6e 64 20 72 65 6d 6f 76 69 6e 67 20 74 68 65 6d 20 69 73 20 62 61 73 69 | .new)).and.removing.them.is.basi |
| 24d40 | 63 61 6c 6c 79 20 28 70 6f 70 20 74 61 69 6c 29 20 5b 65 78 63 65 70 74 20 74 68 61 74 20 63 61 | cally.(pop.tail).[except.that.ca |
| 24d60 | 72 65 20 6d 75 73 74 0a 20 20 3b 3b 20 62 65 20 74 61 6b 65 6e 20 74 6f 20 68 61 6e 64 6c 65 20 | re.must...;;.be.taken.to.handle. |
| 24d80 | 74 68 65 20 65 6d 70 74 79 20 71 75 65 75 65 20 63 61 73 65 20 63 6f 72 72 65 63 74 6c 79 2e 5d | the.empty.queue.case.correctly.] |
| 24da0 | 0a 20 20 28 71 75 65 75 65 2d 74 61 69 6c 20 6e 69 6c 20 3a 74 79 70 65 20 6c 69 73 74 29 0a 20 | ...(queue-tail.nil.:type.list).. |
| 24dc0 | 20 28 71 75 65 75 65 2d 68 65 61 64 20 6e 69 6c 20 3a 74 79 70 65 20 6c 69 73 74 29 0a 20 20 3b | .(queue-head.nil.:type.list)...; |
| 24de0 | 3b 20 42 6c 6f 63 6b 2d 73 74 61 72 74 20 71 75 65 75 65 20 65 6e 74 72 69 65 73 20 69 6e 20 65 | ;.Block-start.queue.entries.in.e |
| 24e00 | 66 66 65 63 74 20 61 74 20 74 68 65 20 71 75 65 75 65 20 68 65 61 64 2e 0a 20 20 28 70 65 6e 64 | ffect.at.the.queue.head....(pend |
| 24e20 | 69 6e 67 2d 62 6c 6f 63 6b 73 20 6e 69 6c 20 3a 74 79 70 65 20 6c 69 73 74 29 0a 20 20 3b 3b 20 | ing-blocks.nil.:type.list)...;;. |
| 24e40 | 51 75 65 75 65 20 6f 66 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 74 6f 20 74 68 65 20 62 75 66 66 | Queue.of.annotations.to.the.buff |
| 24e60 | 65 72 0a 20 20 28 61 6e 6e 6f 74 61 74 69 6f 6e 73 2d 74 61 69 6c 20 6e 69 6c 20 3a 74 79 70 65 | er...(annotations-tail.nil.:type |
| 24e80 | 20 6c 69 73 74 29 0a 20 20 28 61 6e 6e 6f 74 61 74 69 6f 6e 73 2d 68 65 61 64 20 6e 69 6c 20 3a | .list)...(annotations-head.nil.: |
| 24ea0 | 74 79 70 65 20 6c 69 73 74 29 29 0a 0a 0a 28 64 65 66 6d 61 63 72 6f 20 65 6e 71 75 65 75 65 20 | type.list))...(defmacro.enqueue. |
| 24ec0 | 28 73 74 72 65 61 6d 20 74 79 70 65 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 6c 65 74 20 | (stream.type.&rest.args)...(let. |
| 24ee0 | 28 28 63 6f 6e 73 74 72 75 63 74 6f 72 20 28 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 74 65 6e 61 | ((constructor.(intern.(concatena |
| 24f00 | 74 65 20 27 73 74 72 69 6e 67 0a 09 09 09 09 09 20 20 22 4d 41 4b 45 2d 22 0a 09 09 09 09 09 20 | te.'string........"MAKE-"....... |
| 24f20 | 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 74 79 70 65 29 29 0a 09 09 09 20 20 20 20 20 22 53 42 | .(symbol-name.type))........."SB |
| 24f40 | 2d 50 52 45 54 54 59 22 29 29 29 0a 20 20 20 20 28 6f 6e 63 65 2d 6f 6e 6c 79 20 28 28 73 74 72 | -PRETTY"))).....(once-only.((str |
| 24f60 | 65 61 6d 20 73 74 72 65 61 6d 29 0a 09 09 28 65 6e 74 72 79 20 60 28 2c 63 6f 6e 73 74 72 75 63 | eam.stream)...(entry.`(,construc |
| 24f80 | 74 6f 72 20 3a 70 6f 73 6e 0a 09 09 09 09 20 20 20 20 20 20 28 69 6e 64 65 78 2d 70 6f 73 6e 0a | tor.:posn...........(index-posn. |
| 24fa0 | 09 09 09 09 20 20 20 20 20 20 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 62 75 66 66 65 72 | ...........(pretty-stream-buffer |
| 24fc0 | 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 0a 09 09 09 09 09 2c 73 74 72 65 61 6d 29 0a 09 09 09 09 | -fill-pointer......,stream)..... |
| 24fe0 | 20 20 20 20 20 20 20 2c 73 74 72 65 61 6d 29 0a 09 09 09 09 20 20 20 20 20 20 2c 40 61 72 67 73 | .......,stream)...........,@args |
| 25000 | 29 29 0a 09 09 28 6f 70 20 60 28 6c 69 73 74 20 2c 65 6e 74 72 79 29 29 0a 09 09 28 68 65 61 64 | ))...(op.`(list.,entry))...(head |
| 25020 | 20 60 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 71 75 65 75 65 2d 68 65 61 64 20 2c 73 74 72 | .`(pretty-stream-queue-head.,str |
| 25040 | 65 61 6d 29 29 29 0a 20 20 20 20 20 20 60 28 70 72 6f 67 6e 0a 09 20 28 69 66 20 2c 68 65 61 64 | eam))).......`(progn...(if.,head |
| 25060 | 0a 09 20 20 20 20 20 28 73 65 74 66 20 28 63 64 72 20 2c 68 65 61 64 29 20 2c 6f 70 29 0a 09 20 | .......(setf.(cdr.,head).,op)... |
| 25080 | 20 20 20 20 28 73 65 74 66 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 71 75 65 75 65 2d 74 | ....(setf.(pretty-stream-queue-t |
| 250a0 | 61 69 6c 20 2c 73 74 72 65 61 6d 29 20 2c 6f 70 29 29 0a 09 20 28 73 65 74 66 20 28 70 72 65 74 | ail.,stream).,op))...(setf.(pret |
| 250c0 | 74 79 2d 73 74 72 65 61 6d 2d 71 75 65 75 65 2d 68 65 61 64 20 2c 73 74 72 65 61 6d 29 20 2c 6f | ty-stream-queue-head.,stream).,o |
| 250e0 | 70 29 0a 09 20 2c 65 6e 74 72 79 29 29 29 29 0a 0a 3b 3b 3b 0a 3b 3b 3b 20 4e 65 77 20 68 65 6c | p)...,entry))))..;;;.;;;.New.hel |
| 25100 | 70 65 72 20 66 75 6e 63 74 69 6f 6e 73 0a 3b 3b 3b 0a 0a 28 64 65 66 75 6e 20 65 6e 71 75 65 75 | per.functions.;;;..(defun.enqueu |
| 25120 | 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 28 73 74 72 65 61 6d 20 68 61 6e 64 6c 65 72 20 72 65 63 | e-annotation.(stream.handler.rec |
| 25140 | 6f 72 64 29 0a 20 20 28 65 6e 71 75 65 75 65 20 73 74 72 65 61 6d 20 61 6e 6e 6f 74 61 74 69 6f | ord)...(enqueue.stream.annotatio |
| 25160 | 6e 20 3a 68 61 6e 64 6c 65 72 20 68 61 6e 64 6c 65 72 0a 09 20 20 20 3a 72 65 63 6f 72 64 20 72 | n.:handler.handler.....:record.r |
| 25180 | 65 63 6f 72 64 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 2d 65 6e 71 75 65 75 65 2d 61 6e 6e 6f 74 | ecord))..(defun.re-enqueue-annot |
| 251a0 | 61 74 69 6f 6e 20 28 73 74 72 65 61 6d 20 61 6e 6e 6f 74 61 74 69 6f 6e 29 0a 20 20 28 6c 65 74 | ation.(stream.annotation)...(let |
| 251c0 | 2a 20 28 28 61 6e 6e 6f 74 61 74 69 6f 6e 2d 63 6f 6e 73 20 28 6c 69 73 74 20 61 6e 6e 6f 74 61 | *.((annotation-cons.(list.annota |
| 251e0 | 74 69 6f 6e 29 29 0a 09 20 28 68 65 61 64 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 61 6e | tion))...(head.(pretty-stream-an |
| 25200 | 6e 6f 74 61 74 69 6f 6e 73 2d 68 65 61 64 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 28 69 66 | notations-head.stream))).....(if |
| 25220 | 20 68 65 61 64 0a 09 28 73 65 74 66 20 28 63 64 72 20 68 65 61 64 29 20 61 6e 6e 6f 74 61 74 69 | .head..(setf.(cdr.head).annotati |
| 25240 | 6f 6e 2d 63 6f 6e 73 29 0a 09 28 73 65 74 66 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 61 | on-cons)..(setf.(pretty-stream-a |
| 25260 | 6e 6e 6f 74 61 74 69 6f 6e 73 2d 74 61 69 6c 20 73 74 72 65 61 6d 29 20 61 6e 6e 6f 74 61 74 69 | nnotations-tail.stream).annotati |
| 25280 | 6f 6e 2d 63 6f 6e 73 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 70 72 65 74 74 79 2d 73 74 72 65 | on-cons)).....(setf.(pretty-stre |
| 252a0 | 61 6d 2d 61 6e 6e 6f 74 61 74 69 6f 6e 73 2d 68 65 61 64 20 73 74 72 65 61 6d 29 20 61 6e 6e 6f | am-annotations-head.stream).anno |
| 252c0 | 74 61 74 69 6f 6e 2d 63 6f 6e 73 29 0a 20 20 20 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 72 | tation-cons).....nil))..(defun.r |
| 252e0 | 65 2d 65 6e 71 75 65 75 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 28 73 74 72 65 61 6d 20 65 6e | e-enqueue-annotations.(stream.en |
| 25300 | 64 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 74 61 69 6c 20 3d 20 28 70 72 65 74 74 79 2d 73 74 | d)...(loop.for.tail.=.(pretty-st |
| 25320 | 72 65 61 6d 2d 71 75 65 75 65 2d 74 61 69 6c 20 73 74 72 65 61 6d 29 20 74 68 65 6e 20 28 63 64 | ream-queue-tail.stream).then.(cd |
| 25340 | 72 20 74 61 69 6c 29 0a 20 20 20 20 20 77 68 69 6c 65 20 28 61 6e 64 20 74 61 69 6c 20 28 6e 6f | r.tail)......while.(and.tail.(no |
| 25360 | 74 20 28 65 71 6c 20 28 63 61 72 20 74 61 69 6c 29 20 65 6e 64 29 29 29 0a 20 20 20 20 20 77 68 | t.(eql.(car.tail).end)))......wh |
| 25380 | 65 6e 20 28 61 6e 6e 6f 74 61 74 69 6f 6e 2d 70 20 28 63 61 72 20 74 61 69 6c 29 29 20 0a 20 20 | en.(annotation-p.(car.tail)).... |
| 253a0 | 20 20 20 64 6f 20 28 72 65 2d 65 6e 71 75 65 75 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 73 74 72 | ...do.(re-enqueue-annotation.str |
| 253c0 | 65 61 6d 20 28 63 61 72 20 74 61 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 71 75 65 75 | eam.(car.tail))))..(defun.dequeu |
| 253e0 | 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 28 73 74 72 65 61 6d 20 26 6b 65 79 20 65 6e 64 2d 70 6f | e-annotation.(stream.&key.end-po |
| 25400 | 73 6e 29 0a 20 20 28 6c 65 74 20 28 28 6e 65 78 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 28 63 61 | sn)...(let.((next-annotation.(ca |
| 25420 | 72 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 61 6e 6e 6f 74 61 74 69 6f 6e 73 2d 74 61 69 | r.(pretty-stream-annotations-tai |
| 25440 | 6c 20 73 74 72 65 61 6d 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 6e 65 78 74 2d 61 6e 6e 6f | l.stream)))).....(when.next-anno |
| 25460 | 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 6e 6f 74 20 65 6e 64 2d | tation.......(when.(or.(not.end- |
| 25480 | 70 6f 73 6e 29 0a 09 09 28 3c 3d 20 28 61 6e 6e 6f 74 61 74 69 6f 6e 2d 70 6f 73 6e 20 6e 65 78 | posn)...(<=.(annotation-posn.nex |
| 254a0 | 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 29 20 65 6e 64 2d 70 6f 73 6e 29 29 0a 09 28 70 6f 70 20 28 | t-annotation).end-posn))..(pop.( |
| 254c0 | 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 61 6e 6e 6f 74 61 74 69 6f 6e 73 2d 74 61 69 6c 20 73 | pretty-stream-annotations-tail.s |
| 254e0 | 74 72 65 61 6d 29 29 0a 09 28 75 6e 6c 65 73 73 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d | tream))..(unless.(pretty-stream- |
| 25500 | 61 6e 6e 6f 74 61 74 69 6f 6e 73 2d 74 61 69 6c 20 73 74 72 65 61 6d 29 0a 09 20 20 28 73 65 74 | annotations-tail.stream)....(set |
| 25520 | 66 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 61 6e 6e 6f 74 61 74 69 6f 6e 73 2d 68 65 61 | f.(pretty-stream-annotations-hea |
| 25540 | 64 20 73 74 72 65 61 6d 29 20 6e 69 6c 29 29 0a 09 6e 65 78 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e | d.stream).nil))..next-annotation |
| 25560 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 76 6f 6b 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 28 | ))))..(defun.invoke-annotation.( |
| 25580 | 73 74 72 65 61 6d 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 74 72 75 6e 63 61 74 65 70 29 0a 20 20 28 | stream.annotation.truncatep)...( |
| 255a0 | 6c 65 74 20 28 28 74 61 72 67 65 74 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 74 61 72 67 | let.((target.(pretty-stream-targ |
| 255c0 | 65 74 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 61 6e 6e 6f 74 | et.stream))).....(funcall.(annot |
| 255e0 | 61 74 69 6f 6e 2d 68 61 6e 64 6c 65 72 20 61 6e 6e 6f 74 61 74 69 6f 6e 29 0a 09 20 20 20 20 20 | ation-handler.annotation)....... |
| 25600 | 28 61 6e 6e 6f 74 61 74 69 6f 6e 2d 72 65 63 6f 72 64 20 61 6e 6e 6f 74 61 74 69 6f 6e 29 0a 09 | (annotation-record.annotation).. |
| 25620 | 20 20 20 20 20 74 61 72 67 65 74 0a 09 20 20 20 20 20 74 72 75 6e 63 61 74 65 70 29 29 29 0a 0a | .....target.......truncatep))).. |
| 25640 | 28 64 65 66 75 6e 20 6f 75 74 70 75 74 2d 62 75 66 66 65 72 2d 77 69 74 68 2d 61 6e 6e 6f 74 61 | (defun.output-buffer-with-annota |
| 25660 | 74 69 6f 6e 73 20 28 73 74 72 65 61 6d 20 65 6e 64 29 0a 20 20 28 6c 65 74 20 28 28 74 61 72 67 | tions.(stream.end)...(let.((targ |
| 25680 | 65 74 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 74 61 72 67 65 74 20 73 74 72 65 61 6d 29 | et.(pretty-stream-target.stream) |
| 256a0 | 29 0a 09 28 62 75 66 66 65 72 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 62 75 66 66 65 72 | )..(buffer.(pretty-stream-buffer |
| 256c0 | 20 73 74 72 65 61 6d 29 29 0a 09 28 65 6e 64 2d 70 6f 73 6e 20 28 69 6e 64 65 78 2d 70 6f 73 6e | .stream))..(end-posn.(index-posn |
| 256e0 | 20 65 6e 64 20 73 74 72 65 61 6d 29 29 0a 09 28 73 74 61 72 74 20 30 29 29 0a 20 20 20 20 28 6c | .end.stream))..(start.0)).....(l |
| 25700 | 6f 6f 70 0a 20 20 20 20 20 20 20 66 6f 72 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 3d 20 28 64 65 71 | oop........for.annotation.=.(deq |
| 25720 | 75 65 75 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 73 74 72 65 61 6d 20 3a 65 6e 64 2d 70 6f 73 6e | ueue-annotation.stream.:end-posn |
| 25740 | 20 65 6e 64 2d 70 6f 73 6e 29 0a 20 20 20 20 20 20 20 77 68 69 6c 65 20 61 6e 6e 6f 74 61 74 69 | .end-posn)........while.annotati |
| 25760 | 6f 6e 0a 20 20 20 20 20 20 20 64 6f 0a 09 20 28 6c 65 74 20 28 28 61 6e 6e 6f 74 61 74 69 6f 6e | on........do...(let.((annotation |
| 25780 | 2d 69 6e 64 65 78 20 28 70 6f 73 6e 2d 69 6e 64 65 78 20 28 61 6e 6e 6f 74 61 74 69 6f 6e 2d 70 | -index.(posn-index.(annotation-p |
| 257a0 | 6f 73 6e 20 61 6e 6e 6f 74 61 74 69 6f 6e 29 0a 09 09 09 09 09 20 20 20 20 20 73 74 72 65 61 6d | osn.annotation)...........stream |
| 257c0 | 29 29 29 0a 09 20 20 20 28 77 68 65 6e 20 28 3e 20 61 6e 6e 6f 74 61 74 69 6f 6e 2d 69 6e 64 65 | ))).....(when.(>.annotation-inde |
| 257e0 | 78 20 73 74 61 72 74 29 0a 09 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 62 75 66 | x.start).......(write-string.buf |
| 25800 | 66 65 72 20 74 61 72 67 65 74 20 3a 73 74 61 72 74 20 73 74 61 72 74 20 0a 09 09 09 20 20 20 3a | fer.target.:start.start........: |
| 25820 | 65 6e 64 20 61 6e 6e 6f 74 61 74 69 6f 6e 2d 69 6e 64 65 78 29 0a 09 20 20 20 20 20 28 73 65 74 | end.annotation-index).......(set |
| 25840 | 66 20 73 74 61 72 74 20 61 6e 6e 6f 74 61 74 69 6f 6e 2d 69 6e 64 65 78 29 29 0a 09 20 20 20 28 | f.start.annotation-index)).....( |
| 25860 | 69 6e 76 6f 6b 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 73 74 72 65 61 6d 20 61 6e 6e 6f 74 61 74 | invoke-annotation.stream.annotat |
| 25880 | 69 6f 6e 20 6e 69 6c 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 3e 20 65 6e 64 20 73 74 61 72 | ion.nil))).....(when.(>.end.star |
| 258a0 | 74 29 0a 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 62 75 66 66 65 72 20 74 61 | t).......(write-string.buffer.ta |
| 258c0 | 72 67 65 74 20 3a 73 74 61 72 74 20 73 74 61 72 74 20 3a 65 6e 64 20 65 6e 64 29 29 29 29 0a 0a | rget.:start.start.:end.end)))).. |
| 258e0 | 28 64 65 66 75 6e 20 66 6c 75 73 68 2d 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 28 73 74 72 65 61 6d | (defun.flush-annotations.(stream |
| 25900 | 20 65 6e 64 20 74 72 75 6e 63 61 74 65 70 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 64 2d 70 6f 73 | .end.truncatep)...(let.((end-pos |
| 25920 | 6e 20 28 69 6e 64 65 78 2d 70 6f 73 6e 20 65 6e 64 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 | n.(index-posn.end.stream)))..... |
| 25940 | 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 66 6f 72 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 3d 20 28 64 | (loop........for.annotation.=.(d |
| 25960 | 65 71 75 65 75 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 73 74 72 65 61 6d 20 3a 65 6e 64 2d 70 6f | equeue-annotation.stream.:end-po |
| 25980 | 73 6e 20 65 6e 64 2d 70 6f 73 6e 29 0a 20 20 20 20 20 20 20 77 68 69 6c 65 20 61 6e 6e 6f 74 61 | sn.end-posn)........while.annota |
| 259a0 | 74 69 6f 6e 0a 20 20 20 20 20 20 20 64 6f 20 28 69 6e 76 6f 6b 65 2d 61 6e 6e 6f 74 61 74 69 6f | tion........do.(invoke-annotatio |
| 259c0 | 6e 20 73 74 72 65 61 6d 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 74 72 75 6e 63 61 74 65 70 29 29 29 | n.stream.annotation.truncatep))) |
| 259e0 | 29 0a 0a 3b 3b 3b 0a 3b 3b 3b 20 43 68 61 6e 67 65 64 20 66 75 6e 63 74 69 6f 6e 73 0a 3b 3b 3b | )..;;;.;;;.Changed.functions.;;; |
| 25a00 | 0a 0a 28 64 65 66 75 6e 20 6d 61 79 62 65 2d 6f 75 74 70 75 74 20 28 73 74 72 65 61 6d 20 66 6f | ..(defun.maybe-output.(stream.fo |
| 25a20 | 72 63 65 2d 6e 65 77 6c 69 6e 65 73 2d 70 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 | rce-newlines-p)...(declare.(type |
| 25a40 | 20 70 72 65 74 74 79 2d 73 74 72 65 61 6d 20 73 74 72 65 61 6d 29 29 0a 20 20 28 6c 65 74 20 28 | .pretty-stream.stream))...(let.( |
| 25a60 | 28 74 61 69 6c 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 71 75 65 75 65 2d 74 61 69 6c 20 | (tail.(pretty-stream-queue-tail. |
| 25a80 | 73 74 72 65 61 6d 29 29 0a 09 28 6f 75 74 70 75 74 2d 61 6e 79 74 68 69 6e 67 20 6e 69 6c 29 29 | stream))..(output-anything.nil)) |
| 25aa0 | 0a 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 74 61 69 6c 0a 09 28 | .....(loop.......(unless.tail..( |
| 25ac0 | 73 65 74 66 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 71 75 65 75 65 2d 68 65 61 64 20 73 | setf.(pretty-stream-queue-head.s |
| 25ae0 | 74 72 65 61 6d 29 20 6e 69 6c 29 0a 09 28 72 65 74 75 72 6e 29 29 0a 20 20 20 20 20 20 28 6c 65 | tream).nil)..(return)).......(le |
| 25b00 | 74 20 28 28 6e 65 78 74 20 28 70 6f 70 20 74 61 69 6c 29 29 29 0a 09 28 65 74 79 70 65 63 61 73 | t.((next.(pop.tail)))..(etypecas |
| 25b20 | 65 20 6e 65 78 74 0a 09 20 20 28 6e 65 77 6c 69 6e 65 0a 09 20 20 20 28 77 68 65 6e 20 28 65 63 | e.next....(newline.....(when.(ec |
| 25b40 | 61 73 65 20 28 6e 65 77 6c 69 6e 65 2d 6b 69 6e 64 20 6e 65 78 74 29 0a 09 09 20 20 20 28 28 3a | ase.(newline-kind.next)......((: |
| 25b60 | 6c 69 74 65 72 61 6c 20 3a 6d 61 6e 64 61 74 6f 72 79 20 3a 6c 69 6e 65 61 72 29 20 74 29 0a 09 | literal.:mandatory.:linear).t).. |
| 25b80 | 09 20 20 20 28 3a 6d 69 73 65 72 20 28 6d 69 73 65 72 69 6e 67 2d 70 20 73 74 72 65 61 6d 29 29 | ....(:miser.(misering-p.stream)) |
| 25ba0 | 0a 09 09 20 20 20 28 3a 66 69 6c 6c 0a 09 09 20 20 20 20 28 6f 72 20 28 6d 69 73 65 72 69 6e 67 | ......(:fill.......(or.(misering |
| 25bc0 | 2d 70 20 73 74 72 65 61 6d 29 0a 09 09 09 28 3e 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d | -p.stream)....(>.(pretty-stream- |
| 25be0 | 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 73 74 72 65 61 6d 29 0a 09 09 09 20 20 20 28 6c 6f 67 69 63 | line-number.stream).......(logic |
| 25c00 | 61 6c 2d 62 6c 6f 63 6b 2d 73 65 63 74 69 6f 6e 2d 73 74 61 72 74 2d 6c 69 6e 65 0a 09 09 09 20 | al-block-section-start-line..... |
| 25c20 | 20 20 20 28 66 69 72 73 74 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 62 6c 6f 63 6b 73 20 | ...(first.(pretty-stream-blocks. |
| 25c40 | 73 74 72 65 61 6d 29 29 29 29 0a 09 09 09 28 65 63 61 73 65 20 28 66 69 74 73 2d 6f 6e 2d 6c 69 | stream))))....(ecase.(fits-on-li |
| 25c60 | 6e 65 2d 70 20 73 74 72 65 61 6d 0a 09 09 09 09 09 20 20 20 20 20 20 20 28 6e 65 77 6c 69 6e 65 | ne-p.stream.............(newline |
| 25c80 | 2d 73 65 63 74 69 6f 6e 2d 65 6e 64 20 6e 65 78 74 29 0a 09 09 09 09 09 20 20 20 20 20 20 20 66 | -section-end.next).............f |
| 25ca0 | 6f 72 63 65 2d 6e 65 77 6c 69 6e 65 73 2d 70 29 0a 09 09 09 20 20 28 28 74 29 20 6e 69 6c 29 0a | orce-newlines-p)......((t).nil). |
| 25cc0 | 09 09 09 20 20 28 28 6e 69 6c 29 20 74 29 0a 09 09 09 20 20 28 3a 64 6f 6e 74 2d 6b 6e 6f 77 0a | .....((nil).t)......(:dont-know. |
| 25ce0 | 09 09 09 20 20 20 28 72 65 74 75 72 6e 29 29 29 29 29 29 0a 09 20 20 20 20 20 28 73 65 74 66 20 | ......(return)))))).......(setf. |
| 25d00 | 6f 75 74 70 75 74 2d 61 6e 79 74 68 69 6e 67 20 74 29 0a 09 20 20 20 20 20 28 6f 75 74 70 75 74 | output-anything.t).......(output |
| 25d20 | 2d 6c 69 6e 65 20 73 74 72 65 61 6d 20 6e 65 78 74 29 29 29 0a 09 20 20 28 69 6e 64 65 6e 74 61 | -line.stream.next)))....(indenta |
| 25d40 | 74 69 6f 6e 0a 09 20 20 20 28 75 6e 6c 65 73 73 20 28 6d 69 73 65 72 69 6e 67 2d 70 20 73 74 72 | tion.....(unless.(misering-p.str |
| 25d60 | 65 61 6d 29 0a 09 20 20 20 20 20 28 73 65 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 74 72 65 | eam).......(set-indentation.stre |
| 25d80 | 61 6d 0a 09 09 09 20 20 20 20 20 20 28 2b 20 28 65 63 61 73 65 20 28 69 6e 64 65 6e 74 61 74 69 | am..........(+.(ecase.(indentati |
| 25da0 | 6f 6e 2d 6b 69 6e 64 20 6e 65 78 74 29 0a 09 09 09 09 20 20 20 28 3a 62 6c 6f 63 6b 0a 09 09 09 | on-kind.next)........(:block.... |
| 25dc0 | 09 20 20 20 20 28 6c 6f 67 69 63 61 6c 2d 62 6c 6f 63 6b 2d 73 74 61 72 74 2d 63 6f 6c 75 6d 6e | .....(logical-block-start-column |
| 25de0 | 0a 09 09 09 09 20 20 20 20 20 28 63 61 72 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 62 6c | ..........(car.(pretty-stream-bl |
| 25e00 | 6f 63 6b 73 20 73 74 72 65 61 6d 29 29 29 29 0a 09 09 09 09 20 20 20 28 3a 63 75 72 72 65 6e 74 | ocks.stream))))........(:current |
| 25e20 | 0a 09 09 09 09 20 20 20 20 28 70 6f 73 6e 2d 63 6f 6c 75 6d 6e 0a 09 09 09 09 20 20 20 20 20 28 | .........(posn-column..........( |
| 25e40 | 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 70 6f 73 6e 20 6e 65 78 74 29 0a 09 09 09 09 20 20 20 20 20 | indentation-posn.next).......... |
| 25e60 | 73 74 72 65 61 6d 29 29 29 0a 09 09 09 09 20 28 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 61 6d 6f 75 | stream)))......(indentation-amou |
| 25e80 | 6e 74 20 6e 65 78 74 29 29 29 29 29 0a 09 20 20 28 62 6c 6f 63 6b 2d 73 74 61 72 74 0a 09 20 20 | nt.next)))))....(block-start.... |
| 25ea0 | 20 28 65 63 61 73 65 20 28 66 69 74 73 2d 6f 6e 2d 6c 69 6e 65 2d 70 20 73 74 72 65 61 6d 20 28 | .(ecase.(fits-on-line-p.stream.( |
| 25ec0 | 62 6c 6f 63 6b 2d 73 74 61 72 74 2d 73 65 63 74 69 6f 6e 2d 65 6e 64 20 6e 65 78 74 29 0a 09 09 | block-start-section-end.next)... |
| 25ee0 | 09 09 20 20 66 6f 72 63 65 2d 6e 65 77 6c 69 6e 65 73 2d 70 29 0a 09 20 20 20 20 20 28 28 74 29 | ....force-newlines-p).......((t) |
| 25f00 | 0a 09 20 20 20 20 20 20 3b 3b 20 4a 75 73 74 20 6e 75 6b 65 20 74 68 65 20 77 68 6f 6c 65 20 6c | ........;;.Just.nuke.the.whole.l |
| 25f20 | 6f 67 69 63 61 6c 20 62 6c 6f 63 6b 20 61 6e 64 20 6d 61 6b 65 20 69 74 20 6c 6f 6f 6b 20 6c 69 | ogical.block.and.make.it.look.li |
| 25f40 | 6b 65 20 6f 6e 65 0a 09 20 20 20 20 20 20 3b 3b 20 6e 69 63 65 20 6c 6f 6e 67 20 6c 69 74 65 72 | ke.one........;;.nice.long.liter |
| 25f60 | 61 6c 2e 20 20 28 42 75 74 20 64 6f 6e 27 74 20 6e 75 6b 65 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 | al...(But.don't.nuke.annotations |
| 25f80 | 2e 29 0a 09 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 6e 64 20 28 62 6c 6f 63 6b 2d 73 74 61 72 | .)........(let.((end.(block-star |
| 25fa0 | 74 2d 62 6c 6f 63 6b 2d 65 6e 64 20 6e 65 78 74 29 29 29 0a 09 09 28 65 78 70 61 6e 64 2d 74 61 | t-block-end.next)))...(expand-ta |
| 25fc0 | 62 73 20 73 74 72 65 61 6d 20 65 6e 64 29 0a 09 09 28 72 65 2d 65 6e 71 75 65 75 65 2d 61 6e 6e | bs.stream.end)...(re-enqueue-ann |
| 25fe0 | 6f 74 61 74 69 6f 6e 73 20 73 74 72 65 61 6d 20 65 6e 64 29 0a 09 09 28 73 65 74 66 20 74 61 69 | otations.stream.end)...(setf.tai |
| 26000 | 6c 20 28 63 64 72 20 28 6d 65 6d 62 65 72 20 65 6e 64 20 74 61 69 6c 29 29 29 29 29 0a 09 20 20 | l.(cdr.(member.end.tail))))).... |
| 26020 | 20 20 20 28 28 6e 69 6c 29 0a 09 20 20 20 20 20 20 28 72 65 61 6c 6c 79 2d 73 74 61 72 74 2d 6c | ...((nil)........(really-start-l |
| 26040 | 6f 67 69 63 61 6c 2d 62 6c 6f 63 6b 0a 09 20 20 20 20 20 20 20 73 74 72 65 61 6d 0a 09 20 20 20 | ogical-block.........stream..... |
| 26060 | 20 20 20 20 28 70 6f 73 6e 2d 63 6f 6c 75 6d 6e 20 28 62 6c 6f 63 6b 2d 73 74 61 72 74 2d 70 6f | ....(posn-column.(block-start-po |
| 26080 | 73 6e 20 6e 65 78 74 29 20 73 74 72 65 61 6d 29 0a 09 20 20 20 20 20 20 20 28 62 6c 6f 63 6b 2d | sn.next).stream).........(block- |
| 260a0 | 73 74 61 72 74 2d 70 72 65 66 69 78 20 6e 65 78 74 29 0a 09 20 20 20 20 20 20 20 28 62 6c 6f 63 | start-prefix.next).........(bloc |
| 260c0 | 6b 2d 73 74 61 72 74 2d 73 75 66 66 69 78 20 6e 65 78 74 29 29 29 0a 09 20 20 20 20 20 28 3a 64 | k-start-suffix.next))).......(:d |
| 260e0 | 6f 6e 74 2d 6b 6e 6f 77 0a 09 20 20 20 20 20 20 28 72 65 74 75 72 6e 29 29 29 29 0a 09 20 20 28 | ont-know........(return))))....( |
| 26100 | 62 6c 6f 63 6b 2d 65 6e 64 0a 09 20 20 20 28 72 65 61 6c 6c 79 2d 65 6e 64 2d 6c 6f 67 69 63 61 | block-end.....(really-end-logica |
| 26120 | 6c 2d 62 6c 6f 63 6b 20 73 74 72 65 61 6d 29 29 0a 09 20 20 28 74 61 62 0a 09 20 20 20 28 65 78 | l-block.stream))....(tab.....(ex |
| 26140 | 70 61 6e 64 2d 74 61 62 73 20 73 74 72 65 61 6d 20 6e 65 78 74 29 29 0a 09 20 20 28 61 6e 6e 6f | pand-tabs.stream.next))....(anno |
| 26160 | 74 61 74 69 6f 6e 0a 09 20 20 20 28 72 65 2d 65 6e 71 75 65 75 65 2d 61 6e 6e 6f 74 61 74 69 6f | tation.....(re-enqueue-annotatio |
| 26180 | 6e 20 73 74 72 65 61 6d 20 6e 65 78 74 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 70 | n.stream.next)))).......(setf.(p |
| 261a0 | 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 71 75 65 75 65 2d 74 61 69 6c 20 73 74 72 65 61 6d 29 20 | retty-stream-queue-tail.stream). |
| 261c0 | 74 61 69 6c 29 29 0a 20 20 20 20 6f 75 74 70 75 74 2d 61 6e 79 74 68 69 6e 67 29 29 0a 0a 28 64 | tail)).....output-anything))..(d |
| 261e0 | 65 66 75 6e 20 6f 75 74 70 75 74 2d 6c 69 6e 65 20 28 73 74 72 65 61 6d 20 75 6e 74 69 6c 29 0a | efun.output-line.(stream.until). |
| 26200 | 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 70 72 65 74 74 79 2d 73 74 72 65 61 6d 20 73 | ..(declare.(type.pretty-stream.s |
| 26220 | 74 72 65 61 6d 29 0a 09 20 20 20 28 74 79 70 65 20 6e 65 77 6c 69 6e 65 20 75 6e 74 69 6c 29 29 | tream).....(type.newline.until)) |
| 26240 | 0a 20 20 28 6c 65 74 2a 20 28 28 74 61 72 67 65 74 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d | ...(let*.((target.(pretty-stream |
| 26260 | 2d 74 61 72 67 65 74 20 73 74 72 65 61 6d 29 29 0a 09 20 28 62 75 66 66 65 72 20 28 70 72 65 74 | -target.stream))...(buffer.(pret |
| 26280 | 74 79 2d 73 74 72 65 61 6d 2d 62 75 66 66 65 72 20 73 74 72 65 61 6d 29 29 0a 09 20 28 6b 69 6e | ty-stream-buffer.stream))...(kin |
| 262a0 | 64 20 28 6e 65 77 6c 69 6e 65 2d 6b 69 6e 64 20 75 6e 74 69 6c 29 29 0a 09 20 28 6c 69 74 65 72 | d.(newline-kind.until))...(liter |
| 262c0 | 61 6c 2d 70 20 28 65 71 20 6b 69 6e 64 20 3a 6c 69 74 65 72 61 6c 29 29 0a 09 20 28 61 6d 6f 75 | al-p.(eq.kind.:literal))...(amou |
| 262e0 | 6e 74 2d 74 6f 2d 63 6f 6e 73 75 6d 65 20 28 70 6f 73 6e 2d 69 6e 64 65 78 20 28 6e 65 77 6c 69 | nt-to-consume.(posn-index.(newli |
| 26300 | 6e 65 2d 70 6f 73 6e 20 75 6e 74 69 6c 29 20 73 74 72 65 61 6d 29 29 0a 09 20 28 61 6d 6f 75 6e | ne-posn.until).stream))...(amoun |
| 26320 | 74 2d 74 6f 2d 70 72 69 6e 74 0a 09 20 20 28 69 66 20 6c 69 74 65 72 61 6c 2d 70 0a 09 20 20 20 | t-to-print....(if.literal-p..... |
| 26340 | 20 20 20 61 6d 6f 75 6e 74 2d 74 6f 2d 63 6f 6e 73 75 6d 65 0a 09 20 20 20 20 20 20 28 6c 65 74 | ...amount-to-consume........(let |
| 26360 | 20 28 28 6c 61 73 74 2d 6e 6f 6e 2d 62 6c 61 6e 6b 0a 09 09 20 20 20 20 20 28 70 6f 73 69 74 69 | .((last-non-blank........(positi |
| 26380 | 6f 6e 20 23 5c 73 70 61 63 65 20 62 75 66 66 65 72 20 3a 65 6e 64 20 61 6d 6f 75 6e 74 2d 74 6f | on.#\space.buffer.:end.amount-to |
| 263a0 | 2d 63 6f 6e 73 75 6d 65 0a 09 09 09 20 20 20 20 20 20 20 3a 66 72 6f 6d 2d 65 6e 64 20 74 20 3a | -consume...........:from-end.t.: |
| 263c0 | 74 65 73 74 20 23 27 63 68 61 72 2f 3d 29 29 29 0a 09 09 28 69 66 20 6c 61 73 74 2d 6e 6f 6e 2d | test.#'char/=)))...(if.last-non- |
| 263e0 | 62 6c 61 6e 6b 0a 09 09 20 20 20 20 28 31 2b 20 6c 61 73 74 2d 6e 6f 6e 2d 62 6c 61 6e 6b 29 0a | blank.......(1+.last-non-blank). |
| 26400 | 09 09 20 20 20 20 30 29 29 29 29 29 0a 20 20 20 20 28 6f 75 74 70 75 74 2d 62 75 66 66 65 72 2d | ......0))))).....(output-buffer- |
| 26420 | 77 69 74 68 2d 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 73 74 72 65 61 6d 20 61 6d 6f 75 6e 74 2d 74 | with-annotations.stream.amount-t |
| 26440 | 6f 2d 70 72 69 6e 74 29 0a 20 20 20 20 28 66 6c 75 73 68 2d 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 | o-print).....(flush-annotations. |
| 26460 | 73 74 72 65 61 6d 20 61 6d 6f 75 6e 74 2d 74 6f 2d 63 6f 6e 73 75 6d 65 20 6e 69 6c 29 0a 20 20 | stream.amount-to-consume.nil)... |
| 26480 | 20 20 28 6c 65 74 20 28 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 28 70 72 65 74 74 79 2d 73 74 72 | ..(let.((line-number.(pretty-str |
| 264a0 | 65 61 6d 2d 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 20 20 | eam-line-number.stream)))....... |
| 264c0 | 28 69 6e 63 66 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 | (incf.line-number).......(when.( |
| 264e0 | 61 6e 64 20 28 6e 6f 74 20 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 29 0a 09 09 20 28 70 | and.(not.*print-readably*)....(p |
| 26500 | 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 70 72 69 6e 74 2d 6c 69 6e 65 73 20 73 74 72 65 61 6d 29 | retty-stream-print-lines.stream) |
| 26520 | 0a 09 09 20 28 3e 3d 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 28 70 72 65 74 74 79 2d 73 74 72 65 | ....(>=.line-number.(pretty-stre |
| 26540 | 61 6d 2d 70 72 69 6e 74 2d 6c 69 6e 65 73 20 73 74 72 65 61 6d 29 29 29 0a 09 28 77 72 69 74 65 | am-print-lines.stream)))..(write |
| 26560 | 2d 73 74 72 69 6e 67 20 22 20 2e 2e 22 20 74 61 72 67 65 74 29 0a 09 28 66 6c 75 73 68 2d 61 6e | -string."...".target)..(flush-an |
| 26580 | 6e 6f 74 61 74 69 6f 6e 73 20 73 74 72 65 61 6d 20 0a 09 09 09 20 20 20 28 70 72 65 74 74 79 2d | notations.stream........(pretty- |
| 265a0 | 73 74 72 65 61 6d 2d 62 75 66 66 65 72 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 73 74 72 65 61 | stream-buffer-fill-pointer.strea |
| 265c0 | 6d 29 0a 09 09 09 20 20 20 74 29 0a 09 28 6c 65 74 20 28 28 73 75 66 66 69 78 2d 6c 65 6e 67 74 | m).......t)..(let.((suffix-lengt |
| 265e0 | 68 20 28 6c 6f 67 69 63 61 6c 2d 62 6c 6f 63 6b 2d 73 75 66 66 69 78 2d 6c 65 6e 67 74 68 0a 09 | h.(logical-block-suffix-length.. |
| 26600 | 09 09 20 20 20 20 20 20 28 63 61 72 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 62 6c 6f 63 | ........(car.(pretty-stream-bloc |
| 26620 | 6b 73 20 73 74 72 65 61 6d 29 29 29 29 29 0a 09 20 20 28 75 6e 6c 65 73 73 20 28 7a 65 72 6f 70 | ks.stream)))))....(unless.(zerop |
| 26640 | 20 73 75 66 66 69 78 2d 6c 65 6e 67 74 68 29 0a 09 20 20 20 20 28 6c 65 74 2a 20 28 28 73 75 66 | .suffix-length)......(let*.((suf |
| 26660 | 66 69 78 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 73 75 66 66 69 78 20 73 74 72 65 61 6d | fix.(pretty-stream-suffix.stream |
| 26680 | 29 29 0a 09 09 20 20 20 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 73 75 66 66 69 78 29 29 29 0a 09 | ))......(len.(length.suffix))).. |
| 266a0 | 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 73 75 66 66 69 78 20 74 61 72 67 65 | ......(write-string.suffix.targe |
| 266c0 | 74 0a 09 09 09 20 20 20 20 3a 73 74 61 72 74 20 28 2d 20 6c 65 6e 20 73 75 66 66 69 78 2d 6c 65 | t........:start.(-.len.suffix-le |
| 266e0 | 6e 67 74 68 29 0a 09 09 09 20 20 20 20 3a 65 6e 64 20 6c 65 6e 29 29 29 29 0a 09 28 74 68 72 6f | ngth)........:end.len))))..(thro |
| 26700 | 77 20 27 6c 69 6e 65 2d 6c 69 6d 69 74 2d 61 62 62 72 65 76 69 61 74 69 6f 6e 2d 68 61 70 70 65 | w.'line-limit-abbreviation-happe |
| 26720 | 6e 65 64 20 74 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 70 72 65 74 74 79 2d 73 74 72 65 | ned.t)).......(setf.(pretty-stre |
| 26740 | 61 6d 2d 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 73 74 72 65 61 6d 29 20 6c 69 6e 65 2d 6e 75 6d 62 | am-line-number.stream).line-numb |
| 26760 | 65 72 29 0a 20 20 20 20 20 20 28 77 72 69 74 65 2d 63 68 61 72 20 23 5c 6e 65 77 6c 69 6e 65 20 | er).......(write-char.#\newline. |
| 26780 | 74 61 72 67 65 74 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 70 72 65 74 74 79 2d 73 74 72 65 | target).......(setf.(pretty-stre |
| 267a0 | 61 6d 2d 62 75 66 66 65 72 2d 73 74 61 72 74 2d 63 6f 6c 75 6d 6e 20 73 74 72 65 61 6d 29 20 30 | am-buffer-start-column.stream).0 |
| 267c0 | 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 6c 2d 70 74 72 20 28 70 72 65 74 74 79 | ).......(let*.((fill-ptr.(pretty |
| 267e0 | 2d 73 74 72 65 61 6d 2d 62 75 66 66 65 72 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 73 74 72 65 | -stream-buffer-fill-pointer.stre |
| 26800 | 61 6d 29 29 0a 09 20 20 20 20 20 28 62 6c 6f 63 6b 20 28 66 69 72 73 74 20 28 70 72 65 74 74 79 | am)).......(block.(first.(pretty |
| 26820 | 2d 73 74 72 65 61 6d 2d 62 6c 6f 63 6b 73 20 73 74 72 65 61 6d 29 29 29 0a 09 20 20 20 20 20 28 | -stream-blocks.stream))).......( |
| 26840 | 70 72 65 66 69 78 2d 6c 65 6e 0a 09 20 20 20 20 20 20 28 69 66 20 6c 69 74 65 72 61 6c 2d 70 0a | prefix-len........(if.literal-p. |
| 26860 | 09 09 20 20 28 6c 6f 67 69 63 61 6c 2d 62 6c 6f 63 6b 2d 70 65 72 2d 6c 69 6e 65 2d 70 72 65 66 | ....(logical-block-per-line-pref |
| 26880 | 69 78 2d 65 6e 64 20 62 6c 6f 63 6b 29 0a 09 09 20 20 28 6c 6f 67 69 63 61 6c 2d 62 6c 6f 63 6b | ix-end.block).....(logical-block |
| 268a0 | 2d 70 72 65 66 69 78 2d 6c 65 6e 67 74 68 20 62 6c 6f 63 6b 29 29 29 0a 09 20 20 20 20 20 28 73 | -prefix-length.block))).......(s |
| 268c0 | 68 69 66 74 20 28 2d 20 61 6d 6f 75 6e 74 2d 74 6f 2d 63 6f 6e 73 75 6d 65 20 70 72 65 66 69 78 | hift.(-.amount-to-consume.prefix |
| 268e0 | 2d 6c 65 6e 29 29 0a 09 20 20 20 20 20 28 6e 65 77 2d 66 69 6c 6c 2d 70 74 72 20 28 2d 20 66 69 | -len)).......(new-fill-ptr.(-.fi |
| 26900 | 6c 6c 2d 70 74 72 20 73 68 69 66 74 29 29 0a 09 20 20 20 20 20 28 6e 65 77 2d 62 75 66 66 65 72 | ll-ptr.shift)).......(new-buffer |
| 26920 | 20 62 75 66 66 65 72 29 0a 09 20 20 20 20 20 28 62 75 66 66 65 72 2d 6c 65 6e 67 74 68 20 28 6c | .buffer).......(buffer-length.(l |
| 26940 | 65 6e 67 74 68 20 62 75 66 66 65 72 29 29 29 0a 09 28 77 68 65 6e 20 28 3e 20 6e 65 77 2d 66 69 | ength.buffer)))..(when.(>.new-fi |
| 26960 | 6c 6c 2d 70 74 72 20 62 75 66 66 65 72 2d 6c 65 6e 67 74 68 29 0a 09 20 20 28 73 65 74 66 20 6e | ll-ptr.buffer-length)....(setf.n |
| 26980 | 65 77 2d 62 75 66 66 65 72 0a 09 09 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 6d 61 78 20 28 2a | ew-buffer...(make-string.(max.(* |
| 269a0 | 20 62 75 66 66 65 72 2d 6c 65 6e 67 74 68 20 32 29 0a 09 09 09 09 20 20 28 2b 20 62 75 66 66 65 | .buffer-length.2).......(+.buffe |
| 269c0 | 72 2d 6c 65 6e 67 74 68 0a 09 09 09 09 20 20 20 20 20 28 66 6c 6f 6f 72 20 28 2a 20 28 2d 20 6e | r-length..........(floor.(*.(-.n |
| 269e0 | 65 77 2d 66 69 6c 6c 2d 70 74 72 20 62 75 66 66 65 72 2d 6c 65 6e 67 74 68 29 0a 09 09 09 09 09 | ew-fill-ptr.buffer-length)...... |
| 26a00 | 20 20 20 20 20 20 20 35 29 0a 09 09 09 09 09 20 20 20 20 34 29 29 29 29 29 0a 09 20 20 28 73 65 | .......5)..........4)))))....(se |
| 26a20 | 74 66 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 62 75 66 66 65 72 20 73 74 72 65 61 6d 29 | tf.(pretty-stream-buffer.stream) |
| 26a40 | 20 6e 65 77 2d 62 75 66 66 65 72 29 29 0a 09 28 72 65 70 6c 61 63 65 20 6e 65 77 2d 62 75 66 66 | .new-buffer))..(replace.new-buff |
| 26a60 | 65 72 20 62 75 66 66 65 72 0a 09 09 20 3a 73 74 61 72 74 31 20 70 72 65 66 69 78 2d 6c 65 6e 20 | er.buffer....:start1.prefix-len. |
| 26a80 | 3a 73 74 61 72 74 32 20 61 6d 6f 75 6e 74 2d 74 6f 2d 63 6f 6e 73 75 6d 65 20 3a 65 6e 64 32 20 | :start2.amount-to-consume.:end2. |
| 26aa0 | 66 69 6c 6c 2d 70 74 72 29 0a 09 28 72 65 70 6c 61 63 65 20 6e 65 77 2d 62 75 66 66 65 72 20 28 | fill-ptr)..(replace.new-buffer.( |
| 26ac0 | 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 70 72 65 66 69 78 20 73 74 72 65 61 6d 29 0a 09 09 20 | pretty-stream-prefix.stream).... |
| 26ae0 | 3a 65 6e 64 31 20 70 72 65 66 69 78 2d 6c 65 6e 29 0a 09 28 73 65 74 66 20 28 70 72 65 74 74 79 | :end1.prefix-len)..(setf.(pretty |
| 26b00 | 2d 73 74 72 65 61 6d 2d 62 75 66 66 65 72 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 73 74 72 65 | -stream-buffer-fill-pointer.stre |
| 26b20 | 61 6d 29 20 6e 65 77 2d 66 69 6c 6c 2d 70 74 72 29 0a 09 28 69 6e 63 66 20 28 70 72 65 74 74 79 | am).new-fill-ptr)..(incf.(pretty |
| 26b40 | 2d 73 74 72 65 61 6d 2d 62 75 66 66 65 72 2d 6f 66 66 73 65 74 20 73 74 72 65 61 6d 29 20 73 68 | -stream-buffer-offset.stream).sh |
| 26b60 | 69 66 74 29 0a 09 28 75 6e 6c 65 73 73 20 6c 69 74 65 72 61 6c 2d 70 0a 09 20 20 28 73 65 74 66 | ift)..(unless.literal-p....(setf |
| 26b80 | 20 28 6c 6f 67 69 63 61 6c 2d 62 6c 6f 63 6b 2d 73 65 63 74 69 6f 6e 2d 63 6f 6c 75 6d 6e 20 62 | .(logical-block-section-column.b |
| 26ba0 | 6c 6f 63 6b 29 20 70 72 65 66 69 78 2d 6c 65 6e 29 0a 09 20 20 28 73 65 74 66 20 28 6c 6f 67 69 | lock).prefix-len)....(setf.(logi |
| 26bc0 | 63 61 6c 2d 62 6c 6f 63 6b 2d 73 65 63 74 69 6f 6e 2d 73 74 61 72 74 2d 6c 69 6e 65 20 62 6c 6f | cal-block-section-start-line.blo |
| 26be0 | 63 6b 29 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 75 | ck).line-number))))))..(defun.ou |
| 26c00 | 74 70 75 74 2d 70 61 72 74 69 61 6c 2d 6c 69 6e 65 20 28 73 74 72 65 61 6d 29 0a 20 20 28 6c 65 | tput-partial-line.(stream)...(le |
| 26c20 | 74 2a 20 28 28 66 69 6c 6c 2d 70 74 72 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 62 75 66 | t*.((fill-ptr.(pretty-stream-buf |
| 26c40 | 66 65 72 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 73 74 72 65 61 6d 29 29 0a 09 20 28 74 61 69 | fer-fill-pointer.stream))...(tai |
| 26c60 | 6c 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 71 75 65 75 65 2d 74 61 69 6c 20 73 74 72 65 | l.(pretty-stream-queue-tail.stre |
| 26c80 | 61 6d 29 29 0a 09 20 28 63 6f 75 6e 74 0a 09 20 20 28 69 66 20 74 61 69 6c 0a 09 20 20 20 20 20 | am))...(count....(if.tail....... |
| 26ca0 | 20 28 70 6f 73 6e 2d 69 6e 64 65 78 20 28 71 75 65 75 65 64 2d 6f 70 2d 70 6f 73 6e 20 28 63 61 | .(posn-index.(queued-op-posn.(ca |
| 26cc0 | 72 20 74 61 69 6c 29 29 20 73 74 72 65 61 6d 29 0a 09 20 20 20 20 20 20 66 69 6c 6c 2d 70 74 72 | r.tail)).stream)........fill-ptr |
| 26ce0 | 29 29 0a 09 20 28 6e 65 77 2d 66 69 6c 6c 2d 70 74 72 20 28 2d 20 66 69 6c 6c 2d 70 74 72 20 63 | ))...(new-fill-ptr.(-.fill-ptr.c |
| 26d00 | 6f 75 6e 74 29 29 0a 09 20 28 62 75 66 66 65 72 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d | ount))...(buffer.(pretty-stream- |
| 26d20 | 62 75 66 66 65 72 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 7a 65 72 6f | buffer.stream))).....(when.(zero |
| 26d40 | 70 20 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4f 75 74 70 75 74 2d 70 61 | p.count).......(error."Output-pa |
| 26d60 | 72 74 69 61 6c 2d 6c 69 6e 65 20 63 61 6c 6c 65 64 20 77 68 65 6e 20 6e 6f 74 68 69 6e 67 20 63 | rtial-line.called.when.nothing.c |
| 26d80 | 61 6e 20 62 65 20 6f 75 74 70 75 74 2e 22 29 29 0a 20 20 20 20 28 6f 75 74 70 75 74 2d 62 75 66 | an.be.output.")).....(output-buf |
| 26da0 | 66 65 72 2d 77 69 74 68 2d 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 73 74 72 65 61 6d 20 63 6f 75 6e | fer-with-annotations.stream.coun |
| 26dc0 | 74 29 0a 20 20 20 20 28 69 6e 63 66 20 28 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d 62 75 66 66 | t).....(incf.(pretty-stream-buff |
| 26de0 | 65 72 2d 73 74 61 72 74 2d 63 6f 6c 75 6d 6e 20 73 74 72 65 61 6d 29 20 63 6f 75 6e 74 29 0a 20 | er-start-column.stream).count).. |
| 26e00 | 20 20 20 28 72 65 70 6c 61 63 65 20 62 75 66 66 65 72 20 62 75 66 66 65 72 20 3a 65 6e 64 31 20 | ...(replace.buffer.buffer.:end1. |
| 26e20 | 6e 65 77 2d 66 69 6c 6c 2d 70 74 72 20 3a 73 74 61 72 74 32 20 63 6f 75 6e 74 20 3a 65 6e 64 32 | new-fill-ptr.:start2.count.:end2 |
| 26e40 | 20 66 69 6c 6c 2d 70 74 72 29 0a 20 20 20 20 28 73 65 74 66 20 28 70 72 65 74 74 79 2d 73 74 72 | .fill-ptr).....(setf.(pretty-str |
| 26e60 | 65 61 6d 2d 62 75 66 66 65 72 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 73 74 72 65 61 6d 29 20 | eam-buffer-fill-pointer.stream). |
| 26e80 | 6e 65 77 2d 66 69 6c 6c 2d 70 74 72 29 0a 20 20 20 20 28 69 6e 63 66 20 28 70 72 65 74 74 79 2d | new-fill-ptr).....(incf.(pretty- |
| 26ea0 | 73 74 72 65 61 6d 2d 62 75 66 66 65 72 2d 6f 66 66 73 65 74 20 73 74 72 65 61 6d 29 20 63 6f 75 | stream-buffer-offset.stream).cou |
| 26ec0 | 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 63 65 2d 70 72 65 74 74 79 2d 6f 75 74 70 75 | nt)))..(defun.force-pretty-outpu |
| 26ee0 | 74 20 28 73 74 72 65 61 6d 29 0a 20 20 28 6d 61 79 62 65 2d 6f 75 74 70 75 74 20 73 74 72 65 61 | t.(stream)...(maybe-output.strea |
| 26f00 | 6d 20 6e 69 6c 29 0a 20 20 28 65 78 70 61 6e 64 2d 74 61 62 73 20 73 74 72 65 61 6d 20 6e 69 6c | m.nil)...(expand-tabs.stream.nil |
| 26f20 | 29 0a 20 20 28 72 65 2d 65 6e 71 75 65 75 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 73 74 72 65 | )...(re-enqueue-annotations.stre |
| 26f40 | 61 6d 20 6e 69 6c 29 0a 20 20 28 6f 75 74 70 75 74 2d 62 75 66 66 65 72 2d 77 69 74 68 2d 61 6e | am.nil)...(output-buffer-with-an |
| 26f60 | 6e 6f 74 61 74 69 6f 6e 73 20 73 74 72 65 61 6d 20 0a 09 09 09 09 20 20 28 70 72 65 74 74 79 2d | notations.stream........(pretty- |
| 26f80 | 73 74 72 65 61 6d 2d 62 75 66 66 65 72 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 73 74 72 65 61 | stream-buffer-fill-pointer.strea |
| 26fa0 | 6d 29 29 29 0a 09 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | m)))............................ |
| 26fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 2e 67 69 74 72 65 66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/.gitref.............. |
| 27020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 27080 | 30 30 30 30 30 31 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 34 36 32 00 20 30 00 00 00 | 0000013.00000000000.012462..0... |
| 270a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 270c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 270e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 27120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 27140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 271a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 271c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 271e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27200 | 24 46 6f 72 6d 61 74 3a 25 48 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | $Format:%H$..................... |
| 27220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 272a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 272c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 272e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 273a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 273c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 273e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/contrib/............. |
| 27420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27460 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 27480 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 36 34 37 00 20 35 00 00 00 | 0000000.00000000000.012647..5... |
| 274a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 274c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 274e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 27520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 27540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 275a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 275c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 275e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 | slime-2.31/contrib/slime-trace-d |
| 27620 | 69 61 6c 6f 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ialog.el........................ |
| 27640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 27680 | 30 31 30 34 36 33 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 36 34 30 00 20 30 00 00 00 | 0104631.00000000000.016640..0... |
| 276a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 276c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 276e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 27720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 27740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 277a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 277c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 277e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27800 | 3b 3b 3b 20 2d 2a 2d 20 63 6f 64 69 6e 67 3a 20 75 74 66 2d 38 3b 20 6c 65 78 69 63 61 6c 2d 62 | ;;;.-*-.coding:.utf-8;.lexical-b |
| 27820 | 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 73 6c 69 6d 65 2d 74 72 61 63 | inding:.t.-*-.;;;.;;;.slime-trac |
| 27840 | 65 2d 64 69 61 6c 6f 67 2e 65 6c 20 2d 2d 20 61 20 6e 61 76 69 67 61 62 6c 65 20 64 69 61 6c 6f | e-dialog.el.--.a.navigable.dialo |
| 27860 | 67 20 6f 66 20 69 6e 73 70 65 63 74 61 62 6c 65 20 74 72 61 63 65 20 65 6e 74 72 69 65 73 0a 3b | g.of.inspectable.trace.entries.; |
| 27880 | 3b 3b 0a 3b 3b 3b 20 54 4f 44 4f 3a 20 69 6d 70 6c 65 6d 65 6e 74 20 62 65 74 74 65 72 20 77 72 | ;;.;;;.TODO:.implement.better.wr |
| 278a0 | 61 70 20 69 6e 74 65 72 66 61 63 65 20 66 6f 72 20 73 62 63 6c 20 6d 65 74 68 6f 64 2c 20 6c 61 | ap.interface.for.sbcl.method,.la |
| 278c0 | 62 65 6c 73 20 61 6e 64 20 73 75 63 68 0a 3b 3b 3b 20 54 4f 44 4f 3a 20 62 61 63 6b 74 72 61 63 | bels.and.such.;;;.TODO:.backtrac |
| 278e0 | 65 20 70 72 69 6e 74 69 6e 67 20 69 73 20 76 65 72 79 20 73 6c 6f 77 0a 3b 3b 3b 0a 28 72 65 71 | e.printing.is.very.slow.;;;.(req |
| 27900 | 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 70 61 72 | uire.'slime).(require.'slime-par |
| 27920 | 73 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 28 72 65 71 75 69 | se).(require.'slime-repl).(requi |
| 27940 | 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 | re.'cl-lib)..(define-slime-contr |
| 27960 | 69 62 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 0a 20 20 22 50 72 6f 76 69 64 65 | ib.slime-trace-dialog..."Provide |
| 27980 | 20 61 6e 20 69 6e 74 65 72 66 61 63 74 69 76 65 20 74 72 61 63 65 20 64 69 61 6c 6f 67 20 62 75 | .an.interfactive.trace.dialog.bu |
| 279a0 | 66 66 65 72 20 66 6f 72 20 6d 61 6e 61 67 69 6e 67 20 61 6e 64 0a 69 6e 73 70 65 63 74 69 6e 67 | ffer.for.managing.and.inspecting |
| 279c0 | 20 64 65 74 61 69 6c 73 20 6f 66 20 74 72 61 63 65 64 20 66 75 6e 63 74 69 6f 6e 73 2e 20 49 6e | .details.of.traced.functions..In |
| 279e0 | 76 6f 6b 65 20 74 68 69 73 20 64 69 61 6c 6f 67 20 77 69 74 68 20 43 2d 63 20 54 2e 22 0a 20 20 | voke.this.dialog.with.C-c.T."... |
| 27a00 | 28 3a 61 75 74 68 6f 72 73 20 22 4a 6f c3 a3 6f 20 54 c3 a1 76 6f 72 61 20 3c 6a 6f 61 6f 74 61 | (:authors."Jo..o.T..vora.<joaota |
| 27a20 | 76 6f 72 61 40 67 6d 61 69 6c 2e 63 6f 6d 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 | vora@gmail.com>")...(:license."G |
| 27a40 | 50 4c 22 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e | PL")...(:swank-dependencies.swan |
| 27a60 | 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 20 28 61 64 64 | k-trace-dialog)...(:on-load.(add |
| 27a80 | 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 74 72 | -hook.'slime-mode-hook.'slime-tr |
| 27aa0 | 61 63 65 2d 64 69 61 6c 6f 67 2d 65 6e 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | ace-dialog-enable).............( |
| 27ac0 | 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 | add-hook.'slime-repl-mode-hook.' |
| 27ae0 | 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 65 6e 61 62 6c 65 29 29 0a 20 20 28 3a | slime-trace-dialog-enable))...(: |
| 27b00 | 6f 6e 2d 75 6e 6c 6f 61 64 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 6d 6f | on-unload.(remove-hook.'slime-mo |
| 27b20 | 64 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 65 6e 61 62 | de-hook.'slime-trace-dialog-enab |
| 27b40 | 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 | le)...............(remove-hook.' |
| 27b60 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 74 72 61 63 | slime-repl-mode-hook.'slime-trac |
| 27b80 | 65 2d 64 69 61 6c 6f 67 2d 65 6e 61 62 6c 65 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 56 61 72 69 61 | e-dialog-enable)))....;;;;.Varia |
| 27ba0 | 62 6c 65 73 0a 3b 3b 3b 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 | bles.;;;.(defvar.slime-trace-dia |
| 27bc0 | 6c 6f 67 2d 66 6c 61 73 68 20 74 0a 20 20 22 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 66 6c 61 | log-flash.t..."Non-nil.means.fla |
| 27be0 | 73 68 20 74 68 65 20 75 70 64 61 74 65 64 20 72 65 67 69 6f 6e 20 6f 66 20 74 68 65 20 53 4c 49 | sh.the.updated.region.of.the.SLI |
| 27c00 | 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 2e 20 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 | ME.Trace.Dialog..")..(defvar.sli |
| 27c20 | 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 73 70 65 63 73 2d 6f 76 65 72 6c 61 79 20 6e | me-trace-dialog--specs-overlay.n |
| 27c40 | 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d | il)..(defvar.slime-trace-dialog- |
| 27c60 | 2d 70 72 6f 67 72 65 73 73 2d 6f 76 65 72 6c 61 79 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 | -progress-overlay.nil)..(defvar. |
| 27c80 | 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 65 65 2d 6f 76 65 72 6c 61 79 | slime-trace-dialog--tree-overlay |
| 27ca0 | 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f | .nil)..(defvar.slime-trace-dialo |
| 27cc0 | 67 2d 2d 63 6f 6c 6c 61 70 73 65 2d 63 68 61 72 73 20 28 63 6f 6e 73 20 22 2d 22 20 22 2b 22 29 | g--collapse-chars.(cons."-"."+") |
| 27ce0 | 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4c 6f 63 61 6c 20 74 72 61 63 65 20 65 6e 74 72 79 20 6d 6f 64 65 | )....;;;;.Local.trace.entry.mode |
| 27d00 | 6c 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 | l.(defvar.slime-trace-dialog--tr |
| 27d20 | 61 63 65 73 20 6e 69 6c 29 0a 0a 28 63 6c 2d 64 65 66 73 74 72 75 63 74 20 28 73 6c 69 6d 65 2d | aces.nil)..(cl-defstruct.(slime- |
| 27d40 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | trace-dialog--trace............. |
| 27d60 | 20 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 | ...(:constructor.slime-trace-dia |
| 27d80 | 6c 6f 67 2d 2d 6d 61 6b 65 2d 74 72 61 63 65 29 29 0a 20 20 69 64 0a 20 20 70 61 72 65 6e 74 0a | log--make-trace))...id...parent. |
| 27da0 | 20 20 73 70 65 63 0a 20 20 61 72 67 73 0a 20 20 72 65 74 6c 69 73 74 0a 20 20 64 65 70 74 68 0a | ..spec...args...retlist...depth. |
| 27dc0 | 20 20 62 65 67 0a 20 20 65 6e 64 0a 20 20 63 6f 6c 6c 61 70 73 65 2d 62 75 74 74 6f 6e 2d 6d 61 | ..beg...end...collapse-button-ma |
| 27de0 | 72 6b 65 72 0a 20 20 73 75 6d 6d 61 72 79 2d 62 65 67 0a 20 20 63 68 69 6c 64 72 65 6e 2d 65 6e | rker...summary-beg...children-en |
| 27e00 | 64 0a 20 20 63 6f 6c 6c 61 70 73 65 64 2d 70 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 | d...collapsed-p)..(defun.slime-t |
| 27e20 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 69 6e 64 2d 74 72 61 63 65 20 28 69 64 29 0a 20 20 28 | race-dialog--find-trace.(id)...( |
| 27e40 | 67 65 74 68 61 73 68 20 69 64 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 | gethash.id.slime-trace-dialog--t |
| 27e60 | 72 61 63 65 73 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 6f 64 65 73 20 61 6e 64 20 6d 6f 64 65 20 6d | races))....;;;;.Modes.and.mode.m |
| 27e80 | 61 70 73 0a 3b 3b 3b 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c | aps.;;;.(defvar.slime-trace-dial |
| 27ea0 | 6f 67 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 73 | og-mode-map...(let.((map.(make-s |
| 27ec0 | 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 6d 61 70 73 20 27 | parse-keymap)).........(remaps.' |
| 27ee0 | 28 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6f 70 65 72 61 74 65 2d 6f 6e 2d 70 6f 69 | ((slime-inspector-operate-on-poi |
| 27f00 | 6e 74 20 2e 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | nt...nil)...................(sli |
| 27f20 | 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6f 70 65 72 61 74 65 2d 6f 6e 2d 63 6c 69 63 6b 20 2e 20 | me-inspector-operate-on-click... |
| 27f40 | 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e | nil)...................(slime-in |
| 27f60 | 73 70 65 63 74 6f 72 2d 72 65 69 6e 73 70 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | spector-reinspect............... |
| 27f80 | 20 20 20 20 20 2e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d | .......slime-trace-dialog-fetch- |
| 27fa0 | 73 74 61 74 75 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | status)...................(slime |
| 27fc0 | 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 | -inspector-next-inspectable-obje |
| 27fe0 | 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 73 6c 69 6d 65 2d 74 72 | ct......................slime-tr |
| 28000 | 61 63 65 2d 64 69 61 6c 6f 67 2d 6e 65 78 74 2d 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 20 | ace-dialog-next-button)......... |
| 28020 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 72 65 76 69 | ..........(slime-inspector-previ |
| 28040 | 6f 75 73 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 | ous-inspectable-object.......... |
| 28060 | 20 20 20 20 20 20 20 20 20 20 2e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 70 | ............slime-trace-dialog-p |
| 28080 | 72 65 76 2d 62 75 74 74 6f 6e 29 29 29 29 0a 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 | rev-button)))).....(set-keymap-p |
| 280a0 | 61 72 65 6e 74 20 6d 61 70 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 6f 64 65 2d 6d | arent.map.slime-inspector-mode-m |
| 280c0 | 61 70 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6f 6c 64 20 2e 20 6e 65 77 29 | ap).....(cl-loop.for.(old...new) |
| 280e0 | 20 69 6e 20 72 65 6d 61 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 75 62 73 | .in.remaps..............do.(subs |
| 28100 | 74 69 74 75 74 65 2d 6b 65 79 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6f 6c 64 20 6e 65 77 20 6d 61 | titute-key-definition.old.new.ma |
| 28120 | 70 29 29 0a 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 6d 61 70 20 73 | p)).....(set-keymap-parent.map.s |
| 28140 | 6c 69 6d 65 2d 70 61 72 65 6e 74 2d 6d 61 70 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | lime-parent-map).....(define-key |
| 28160 | 20 6d 61 70 20 28 6b 62 64 20 22 47 22 29 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c | .map.(kbd."G").'slime-trace-dial |
| 28180 | 6f 67 2d 66 65 74 63 68 2d 74 72 61 63 65 73 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | og-fetch-traces).....(define-key |
| 281a0 | 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 6b 22 29 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 | .map.(kbd."C-k").'slime-trace-di |
| 281c0 | 61 6c 6f 67 2d 63 6c 65 61 72 2d 66 65 74 63 68 65 64 2d 74 72 61 63 65 73 29 0a 20 20 20 20 28 | alog-clear-fetched-traces).....( |
| 281e0 | 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 67 22 29 20 27 73 6c 69 6d 65 2d | define-key.map.(kbd."g").'slime- |
| 28200 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 73 74 61 74 75 73 29 0a 20 20 20 20 28 | trace-dialog-fetch-status).....( |
| 28220 | 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 4d 2d 52 45 54 22 29 20 27 73 6c | define-key.map.(kbd."M-RET").'sl |
| 28240 | 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 63 6f 70 79 2d 64 6f 77 6e 2d 74 6f 2d 72 65 | ime-trace-dialog-copy-down-to-re |
| 28260 | 70 6c 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 71 22 | pl).....(define-key.map.(kbd."q" |
| 28280 | 29 20 27 71 75 69 74 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 6d 61 70 29 29 0a 0a 28 64 65 66 69 | ).'quit-window).....map))..(defi |
| 282a0 | 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c | ne-derived-mode.slime-trace-dial |
| 282c0 | 6f 67 2d 6d 6f 64 65 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 0a 20 20 22 53 4c 49 4d | og-mode.fundamental-mode..."SLIM |
| 282e0 | 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 22 20 22 4d 6f 64 65 20 66 6f 72 20 63 6f 6e 74 72 6f | E.Trace.Dialog"."Mode.for.contro |
| 28300 | 6c 6c 69 6e 67 20 53 4c 49 4d 45 27 73 20 54 72 61 63 65 20 44 69 61 6c 6f 67 22 0a 20 20 28 73 | lling.SLIME's.Trace.Dialog"...(s |
| 28320 | 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 | et-syntax-table.lisp-mode-syntax |
| 28340 | 2d 74 61 62 6c 65 29 0a 20 20 28 72 65 61 64 2d 6f 6e 6c 79 2d 6d 6f 64 65 20 31 29 0a 20 20 28 | -table)...(read-only-mode.1)...( |
| 28360 | 61 64 64 2d 74 6f 2d 6c 69 73 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 | add-to-list.(make-local-variable |
| 28380 | 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 61 66 74 65 72 2d 74 6f 67 67 6c | .'slime-trace-dialog-after-toggl |
| 283a0 | 65 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 74 72 | e-hook)................'slime-tr |
| 283c0 | 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 73 74 61 74 75 73 29 29 0a 0a 28 64 65 66 69 | ace-dialog-fetch-status))..(defi |
| 283e0 | 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c | ne-derived-mode.slime-trace-dial |
| 28400 | 6f 67 2d 2d 64 65 74 61 69 6c 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d | og--detail-mode.slime-inspector- |
| 28420 | 6d 6f 64 65 0a 20 20 22 53 4c 49 4d 45 20 54 72 61 63 65 20 44 65 74 61 69 6c 22 0a 20 20 22 4d | mode..."SLIME.Trace.Detail"..."M |
| 28440 | 6f 64 65 20 66 6f 72 20 76 69 65 77 69 6e 67 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 74 72 61 | ode.for.viewing.a.particular.tra |
| 28460 | 63 65 20 66 72 6f 6d 20 53 4c 49 4d 45 27 73 20 54 72 61 63 65 20 44 69 61 6c 6f 67 22 29 0a 0a | ce.from.SLIME's.Trace.Dialog").. |
| 28480 | 28 73 65 74 71 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 64 65 74 61 69 6c | (setq.slime-trace-dialog--detail |
| 284a0 | 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 | -mode-map.......(let.((map.(make |
| 284c0 | 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 | -sparse-keymap)).............(re |
| 284e0 | 6d 61 70 73 20 27 28 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 2d 69 6e 73 | maps.'((slime-inspector-next-ins |
| 28500 | 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pectable-object................. |
| 28520 | 20 20 20 20 20 20 20 2e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6e 65 78 74 | .........slime-trace-dialog-next |
| 28540 | 2d 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -button).......................( |
| 28560 | 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 72 65 76 69 6f 75 73 2d 69 6e 73 70 65 63 74 | slime-inspector-previous-inspect |
| 28580 | 61 62 6c 65 2d 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | able-object..................... |
| 285a0 | 20 20 20 2e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 70 72 65 76 2d 62 75 74 | .....slime-trace-dialog-prev-but |
| 285c0 | 74 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 | ton)))).........(set-keymap-pare |
| 285e0 | 6e 74 20 6d 61 70 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6d 6f 64 65 2d 6d | nt.map.slime-trace-dialog-mode-m |
| 28600 | 61 70 29 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6f 6c 64 20 2e 20 | ap).........(cl-loop.for.(old... |
| 28620 | 6e 65 77 29 20 69 6e 20 72 65 6d 61 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | new).in.remaps.................. |
| 28640 | 64 6f 20 28 73 75 62 73 74 69 74 75 74 65 2d 6b 65 79 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6f 6c | do.(substitute-key-definition.ol |
| 28660 | 64 20 6e 65 77 20 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 6d 61 70 29 29 0a 0a 28 64 65 66 76 | d.new.map)).........map))..(defv |
| 28680 | 61 72 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 | ar.slime-trace-dialog-minor-mode |
| 286a0 | 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b | -map...(let.((map.(make-sparse-k |
| 286c0 | 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 | eymap))).....(define-key.map.(kb |
| 286e0 | 64 20 22 43 2d 63 20 54 22 29 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 29 0a | d."C-c.T").'slime-trace-dialog). |
| 28700 | 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 4d 2d | ....(define-key.map.(kbd."C-c.M- |
| 28720 | 74 22 29 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 74 6f 67 67 6c 65 2d 74 | t").'slime-trace-dialog-toggle-t |
| 28740 | 72 61 63 65 29 0a 20 20 20 20 6d 61 70 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d | race).....map))..(define-minor-m |
| 28760 | 6f 64 65 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6d 69 6e 6f 72 2d 6d 6f 64 | ode.slime-trace-dialog-minor-mod |
| 28780 | 65 0a 20 20 22 41 64 64 20 6b 65 79 62 69 6e 64 69 6e 67 73 20 66 6f 72 20 61 63 63 65 73 73 69 | e..."Add.keybindings.for.accessi |
| 287a0 | 6e 67 20 53 4c 49 4d 45 27 73 20 54 72 61 63 65 20 44 69 61 6c 6f 67 2e 22 29 0a 0a 28 64 65 66 | ng.SLIME's.Trace.Dialog.")..(def |
| 287c0 | 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 65 6e 61 62 6c 65 20 28 29 0a | un.slime-trace-dialog-enable.(). |
| 287e0 | 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 | ..(slime-trace-dialog-minor-mode |
| 28800 | 20 31 29 29 0a 0a 28 65 61 73 79 2d 6d 65 6e 75 2d 64 65 66 69 6e 65 20 73 6c 69 6d 65 2d 74 72 | .1))..(easy-menu-define.slime-tr |
| 28820 | 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6d 65 6e 75 62 61 72 20 28 6c 69 73 74 20 73 6c 69 6d 65 2d | ace-dialog--menubar.(list.slime- |
| 28840 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 20 20 | trace-dialog-minor-mode-map..... |
| 28860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 28880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c | ................slime-trace-dial |
| 288a0 | 6f 67 2d 6d 6f 64 65 2d 6d 61 70 29 0a 20 20 22 41 20 6d 65 6e 75 20 66 6f 72 20 61 63 63 65 73 | og-mode-map)..."A.menu.for.acces |
| 288c0 | 73 69 6e 67 20 73 6f 6d 65 20 66 65 61 74 75 72 65 73 20 6f 66 20 53 4c 49 4d 45 27 73 20 54 72 | sing.some.features.of.SLIME's.Tr |
| 288e0 | 61 63 65 20 44 69 61 6c 6f 67 22 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e 2d 64 69 61 6c 6f 67 20 | ace.Dialog"...(let*.((in-dialog. |
| 28900 | 27 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 | '(eq.major-mode.'slime-trace-dia |
| 28920 | 6c 6f 67 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 61 6c 6f 67 2d 6c 69 76 65 | log-mode))..........(dialog-live |
| 28940 | 20 60 28 61 6e 64 20 2c 69 6e 2d 64 69 61 6c 6f 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .`(and.,in-dialog............... |
| 28960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 | ..............(memq.slime-buffer |
| 28980 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 | -connection.slime-net-processes) |
| 289a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 6e 65 63 74 65 64 20 27 28 73 6c 69 6d 65 2d 63 | ))..........(connected.'(slime-c |
| 289c0 | 6f 6e 6e 65 63 74 65 64 2d 70 29 29 29 0a 20 20 20 20 60 28 22 54 72 61 63 65 22 0a 20 20 20 20 | onnected-p))).....`("Trace"..... |
| 289e0 | 20 20 5b 22 54 6f 67 67 6c 65 20 74 72 61 63 65 22 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 | ..["Toggle.trace".slime-trace-di |
| 28a00 | 61 6c 6f 67 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 2c 63 6f 6e 6e 65 63 74 65 64 5d 0a 20 20 | alog-toggle-trace.,connected]... |
| 28a20 | 20 20 20 20 5b 22 54 72 61 63 65 20 63 6f 6d 70 6c 65 78 20 73 70 65 63 22 20 73 6c 69 6d 65 2d | ....["Trace.complex.spec".slime- |
| 28a40 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 74 6f 67 67 6c 65 2d 63 6f 6d 70 6c 65 78 2d 74 72 61 63 | trace-dialog-toggle-complex-trac |
| 28a60 | 65 20 2c 63 6f 6e 6e 65 63 74 65 64 5d 0a 20 20 20 20 20 20 5b 22 4f 70 65 6e 20 54 72 61 63 65 | e.,connected].......["Open.Trace |
| 28a80 | 20 64 69 61 6c 6f 67 22 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 20 28 61 6e 64 | .dialog".slime-trace-dialog.(and |
| 28aa0 | 20 2c 63 6f 6e 6e 65 63 74 65 64 20 28 6e 6f 74 20 2c 69 6e 2d 64 69 61 6c 6f 67 29 29 5d 0a 20 | .,connected.(not.,in-dialog))].. |
| 28ac0 | 20 20 20 20 20 22 2d 2d 22 0a 20 20 20 20 20 20 5b 20 22 52 65 66 72 65 73 68 20 74 72 61 63 65 | ....."--".......[."Refresh.trace |
| 28ae0 | 73 20 61 6e 64 20 70 72 6f 67 72 65 73 73 22 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c | s.and.progress".slime-trace-dial |
| 28b00 | 6f 67 2d 66 65 74 63 68 2d 73 74 61 74 75 73 20 2c 64 69 61 6c 6f 67 2d 6c 69 76 65 5d 0a 20 20 | og-fetch-status.,dialog-live]... |
| 28b20 | 20 20 20 20 5b 20 22 46 65 74 63 68 20 6e 65 78 74 20 62 61 74 63 68 22 20 73 6c 69 6d 65 2d 74 | ....[."Fetch.next.batch".slime-t |
| 28b40 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 74 72 61 63 65 73 20 2c 64 69 61 6c 6f 67 | race-dialog-fetch-traces.,dialog |
| 28b60 | 2d 6c 69 76 65 5d 0a 20 20 20 20 20 20 5b 20 22 43 6c 65 61 72 20 61 6c 6c 20 66 65 74 63 68 65 | -live].......[."Clear.all.fetche |
| 28b80 | 64 20 74 72 61 63 65 73 22 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 63 6c 65 | d.traces".slime-trace-dialog-cle |
| 28ba0 | 61 72 2d 66 65 74 63 68 65 64 2d 74 72 61 63 65 73 20 2c 64 69 61 6c 6f 67 2d 6c 69 76 65 5d 0a | ar-fetched-traces.,dialog-live]. |
| 28bc0 | 20 20 20 20 20 20 5b 20 22 54 6f 67 67 6c 65 20 64 65 74 61 69 6c 73 22 20 73 6c 69 6d 65 2d 74 | ......[."Toggle.details".slime-t |
| 28be0 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 2d 6d 6f 64 65 20 2c 69 | race-dialog-hide-details-mode.,i |
| 28c00 | 6e 2d 64 69 61 6c 6f 67 5d 0a 20 20 20 20 20 20 5b 20 22 54 6f 67 67 6c 65 20 61 75 74 6f 66 6f | n-dialog].......[."Toggle.autofo |
| 28c20 | 6c 6c 6f 77 22 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 61 75 74 6f 66 6f 6c | llow".slime-trace-dialog-autofol |
| 28c40 | 6c 6f 77 2d 6d 6f 64 65 20 2c 69 6e 2d 64 69 61 6c 6f 67 5d 29 29 29 0a 0a 28 64 65 66 69 6e 65 | low-mode.,in-dialog])))..(define |
| 28c60 | 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 68 | -minor-mode.slime-trace-dialog-h |
| 28c80 | 69 64 65 2d 64 65 74 61 69 6c 73 2d 6d 6f 64 65 0a 20 20 22 48 69 64 65 20 64 65 74 61 69 6c 73 | ide-details-mode..."Hide.details |
| 28ca0 | 20 69 6e 20 60 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6d 6f 64 65 27 22 0a 20 | .in.`slime-trace-dialog-mode'".. |
| 28cc0 | 20 3a 69 6e 69 74 2d 76 61 6c 75 65 20 6e 69 6c 0a 20 20 3a 6c 69 67 68 74 65 72 20 22 20 42 72 | .:init-value.nil...:lighter.".Br |
| 28ce0 | 69 65 66 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f | ief"...:group.'slime-trace-dialo |
| 28d00 | 67 0a 20 20 28 75 6e 6c 65 73 73 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 27 73 6c 69 | g...(unless.(derived-mode-p.'sli |
| 28d20 | 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6d 6f 64 65 29 0a 20 20 20 20 28 65 72 72 6f 72 | me-trace-dialog-mode).....(error |
| 28d40 | 20 22 4e 6f 74 20 61 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 20 62 75 66 66 65 | ."Not.a.SLIME.Trace.Dialog.buffe |
| 28d60 | 72 22 29 29 0a 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 73 65 74 2d | r"))...(slime-trace-dialog--set- |
| 28d80 | 68 69 64 65 2d 64 65 74 61 69 6c 73 2d 6d 6f 64 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 69 6e | hide-details-mode))..(define-min |
| 28da0 | 6f 72 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 61 75 74 6f 66 | or-mode.slime-trace-dialog-autof |
| 28dc0 | 6f 6c 6c 6f 77 2d 6d 6f 64 65 0a 20 20 22 41 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 6f 70 65 6e | ollow-mode..."Automatically.open |
| 28de0 | 20 62 75 66 66 65 72 73 20 77 69 74 68 20 74 72 61 63 65 20 64 65 74 61 69 6c 73 20 66 72 6f 6d | .buffers.with.trace.details.from |
| 28e00 | 20 60 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6d 6f 64 65 27 22 0a 20 20 3a 69 | .`slime-trace-dialog-mode'"...:i |
| 28e20 | 6e 69 74 2d 76 61 6c 75 65 20 6e 69 6c 0a 20 20 3a 6c 69 67 68 74 65 72 20 22 20 41 75 74 6f 66 | nit-value.nil...:lighter.".Autof |
| 28e40 | 6f 6c 6c 6f 77 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 | ollow"...:group.'slime-trace-dia |
| 28e60 | 6c 6f 67 0a 20 20 28 75 6e 6c 65 73 73 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 27 73 | log...(unless.(derived-mode-p.'s |
| 28e80 | 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6d 6f 64 65 29 0a 20 20 20 20 28 65 72 72 | lime-trace-dialog-mode).....(err |
| 28ea0 | 6f 72 20 22 4e 6f 74 20 61 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 20 62 75 66 | or."Not.a.SLIME.Trace.Dialog.buf |
| 28ec0 | 66 65 72 22 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 73 | fer")))....;;;;.Helper.functions |
| 28ee0 | 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d | .;;;.(defun.slime-trace-dialog-- |
| 28f00 | 63 61 6c 6c 2d 72 65 66 72 65 73 68 69 6e 67 20 28 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 | call-refreshing.(buffer......... |
| 28f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 28f40 | 20 20 20 20 6f 76 65 72 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....overlay..................... |
| 28f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 6e 74 2d 65 72 61 | ........................dont-era |
| 28f80 | 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | se.............................. |
| 28fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 63 6f 76 65 72 2d 70 6f 69 6e 74 2d 70 0a 20 | ...............recover-point-p.. |
| 28fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 28fe0 | 20 20 20 20 20 20 20 20 20 20 20 66 6e 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 | ...........fn)...(with-current-b |
| 29000 | 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d | uffer.buffer.....(let.((inhibit- |
| 29020 | 70 6f 69 6e 74 2d 6d 6f 74 69 6f 6e 2d 68 6f 6f 6b 73 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 | point-motion-hooks.t)........... |
| 29040 | 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 | (inhibit-read-only.t)........... |
| 29060 | 28 73 61 76 65 64 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 72 65 73 | (saved.(point))).......(save-res |
| 29080 | 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6f 76 65 72 6c 61 79 0a 20 | triction.........(when.overlay.. |
| 290a0 | 20 20 20 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 28 6f 76 65 72 | .........(narrow-to-region.(over |
| 290c0 | 6c 61 79 2d 73 74 61 72 74 20 6f 76 65 72 6c 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | lay-start.overlay).............. |
| 290e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6f 76 65 72 | ...............(overlay-end.over |
| 29100 | 6c 61 79 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 | lay))).........(unwind-protect.. |
| 29120 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 64 6f 6e 74 2d 65 72 61 73 65 0a 20 20 20 20 20 20 | ...........(if.dont-erase....... |
| 29140 | 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 | ..........(goto-char.(point-max) |
| 29160 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 | )...............(delete-region.( |
| 29180 | 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 20 20 20 20 20 20 20 | point-min).(point-max)))........ |
| 291a0 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | ...(funcall.fn)...........(when. |
| 291c0 | 72 65 63 6f 76 65 72 2d 70 6f 69 6e 74 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 | recover-point-p.............(got |
| 291e0 | 6f 2d 63 68 61 72 20 73 61 76 65 64 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 6c | o-char.saved))).........(when.sl |
| 29200 | 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 6c 61 73 68 0a 20 20 20 20 20 20 20 20 20 | ime-trace-dialog-flash.......... |
| 29220 | 20 28 73 6c 69 6d 65 2d 66 6c 61 73 68 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 | .(slime-flash-region.(point-min) |
| 29240 | 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 0a 20 20 20 20 62 75 66 66 65 72 29 29 0a 0a 28 | .(point-max))))).....buffer))..( |
| 29260 | 63 6c 2d 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d | cl-defmacro.slime-trace-dialog-- |
| 29280 | 72 65 66 72 65 73 68 20 28 28 26 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | refresh.((&key.................. |
| 292a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 76 65 72 6c 61 | ..........................overla |
| 292c0 | 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | y............................... |
| 292e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 6e 74 2d 65 72 61 73 65 0a 20 20 20 20 20 20 20 20 | .............dont-erase......... |
| 29300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29320 | 20 20 20 72 65 63 6f 76 65 72 2d 70 6f 69 6e 74 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...recover-point-p.............. |
| 29340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 | ..............................bu |
| 29360 | 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ffer)........................... |
| 29380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 28 64 | ................&rest.body)...(d |
| 293a0 | 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 | eclare.(indent.1)............(de |
| 293c0 | 62 75 67 20 28 73 65 78 70 20 26 72 65 73 74 20 66 6f 72 6d 29 29 29 0a 20 20 60 28 73 6c 69 6d | bug.(sexp.&rest.form)))...`(slim |
| 293e0 | 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 63 61 6c 6c 2d 72 65 66 72 65 73 68 69 6e 67 20 | e-trace-dialog--call-refreshing. |
| 29400 | 2c 28 6f 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ,(or.buffer..................... |
| 29420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 63 75 72 72 65 | .........................`(curre |
| 29440 | 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt-buffer))..................... |
| 29460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 6f 76 65 72 6c 61 79 0a 20 20 20 | ....................,overlay.... |
| 29480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 294a0 | 20 20 20 20 20 2c 64 6f 6e 74 2d 65 72 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....,dont-erase................ |
| 294c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 72 65 63 6f 76 65 | .........................,recove |
| 294e0 | 72 2d 70 6f 69 6e 74 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-point-p....................... |
| 29500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 29 20 2c | ..................#'(lambda.()., |
| 29520 | 40 62 6f 64 79 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d | @body)))..(defmacro.slime-trace- |
| 29540 | 64 69 61 6c 6f 67 2d 2d 69 6e 73 65 72 74 2d 61 6e 64 2d 6f 76 65 72 6c 61 79 20 28 73 74 72 69 | dialog--insert-and-overlay.(stri |
| 29560 | 6e 67 20 6f 76 65 72 6c 61 79 29 0a 20 20 60 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e | ng.overlay)...`(save-restriction |
| 29580 | 0a 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 | ......(let.((inhibit-read-only.t |
| 295a0 | 29 29 0a 20 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 28 70 6f 69 | ))........(narrow-to-region.(poi |
| 295c0 | 6e 74 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 2c 73 74 72 | nt).(point))........(insert.,str |
| 295e0 | 69 6e 67 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 | ing."\n")........(set.(make-loca |
| 29600 | 6c 2d 76 61 72 69 61 62 6c 65 20 27 2c 6f 76 65 72 6c 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 | l-variable.',overlay)........... |
| 29620 | 20 20 28 6c 65 74 20 28 28 6f 76 65 72 6c 61 79 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 28 | ..(let.((overlay.(make-overlay.( |
| 29640 | 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | point-min)...................... |
| 29660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 0a | ....................(point-max). |
| 29680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 296a0 | 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 | .........(current-buffer)....... |
| 296c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 296e0 | 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...nil.......................... |
| 29700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ................t)))............ |
| 29720 | 20 20 20 28 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 20 6f 76 65 72 6c 61 79 20 28 6f 76 65 72 6c 61 | ...(move-overlay.overlay.(overla |
| 29740 | 79 2d 73 74 61 72 74 20 6f 76 65 72 6c 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | y-start.overlay)................ |
| 29760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2d 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6f 76 | .............(1-.(overlay-end.ov |
| 29780 | 65 72 6c 61 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 6f 76 65 72 6c | erlay)))...............;;.(overl |
| 297a0 | 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 66 61 63 65 20 27 28 3a 62 61 63 6b 67 72 6f 75 | ay-put.overlay.'face.'(:backgrou |
| 297c0 | 6e 64 20 22 64 61 72 6b 73 6c 61 74 65 67 72 65 79 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | nd."darkslategrey"))............ |
| 297e0 | 20 20 20 6f 76 65 72 6c 61 79 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 | ...overlay)))))..(defun.slime-tr |
| 29800 | 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 29 0a 20 20 28 66 6f | ace-dialog--buffer-name.()...(fo |
| 29820 | 72 6d 61 74 20 22 2a 74 72 61 63 65 73 20 66 6f 72 20 25 73 2a 22 0a 20 20 20 20 20 20 20 20 20 | rmat."*traces.for.%s*".......... |
| 29840 | 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 69 6d 65 2d 64 65 | .(slime-connection-name.slime-de |
| 29860 | 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | fault-connection)))..(defun.slim |
| 29880 | 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6c 69 76 65 2d 64 69 61 6c 6f 67 20 28 26 6f 70 | e-trace-dialog--live-dialog.(&op |
| 298a0 | 74 69 6f 6e 61 6c 20 62 75 66 66 65 72 2d 6f 72 2d 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 | tional.buffer-or-name)...(let.(( |
| 298c0 | 62 75 66 66 65 72 2d 6f 72 2d 6e 61 6d 65 20 28 6f 72 20 62 75 66 66 65 72 2d 6f 72 2d 6e 61 6d | buffer-or-name.(or.buffer-or-nam |
| 298e0 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | e.............................(s |
| 29900 | 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 | lime-trace-dialog--buffer-name)) |
| 29920 | 29 29 0a 20 20 20 20 28 61 6e 64 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 28 67 65 74 2d | )).....(and.(buffer-live-p.(get- |
| 29940 | 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 6f 72 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 | buffer.buffer-or-name))........( |
| 29960 | 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 6f 72 2d 6e 61 | with-current-buffer.buffer-or-na |
| 29980 | 6d 65 0a 20 20 20 20 20 20 20 20 20 28 6d 65 6d 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 | me..........(memq.slime-buffer-c |
| 299a0 | 6f 6e 6e 65 63 74 69 6f 6e 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 29 0a | onnection.slime-net-processes)). |
| 299c0 | 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 6f 72 2d 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e | .......buffer-or-name)))..(defun |
| 299e0 | 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 65 6e 73 75 72 65 2d 62 75 66 66 | .slime-trace-dialog--ensure-buff |
| 29a00 | 65 72 20 28 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 | er.()...(let.((name.(slime-trace |
| 29a20 | 2d 64 69 61 6c 6f 67 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 6f 72 20 | -dialog--buffer-name))).....(or. |
| 29a40 | 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6c 69 76 65 2d 64 69 61 6c 6f 67 | (slime-trace-dialog--live-dialog |
| 29a60 | 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 | .name).........(with-current-buf |
| 29a80 | 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 6e 61 6d 65 29 0a 20 20 20 | fer.(get-buffer-create.name).... |
| 29aa0 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 | .......(let.((inhibit-read-only. |
| 29ac0 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 29 0a | t)).............(erase-buffer)). |
| 29ae0 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6d 6f | ..........(slime-trace-dialog-mo |
| 29b00 | 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 | de)...........(save-excursion... |
| 29b20 | 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 64 69 73 61 62 6c 65 2d 75 6e 64 6f 29 0a | ..........(buffer-disable-undo). |
| 29b40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d | ............(slime-trace-dialog- |
| 29b60 | 2d 69 6e 73 65 72 74 2d 61 6e 64 2d 6f 76 65 72 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -insert-and-overlay............. |
| 29b80 | 20 22 5b 77 61 69 74 69 6e 67 20 66 6f 72 20 74 68 65 20 74 72 61 63 65 64 20 73 70 65 63 73 20 | ."[waiting.for.the.traced.specs. |
| 29ba0 | 74 6f 20 62 65 20 61 76 61 69 6c 61 62 6c 65 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 | to.be.available]"..............s |
| 29bc0 | 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 73 70 65 63 73 2d 6f 76 65 72 6c 61 79 | lime-trace-dialog--specs-overlay |
| 29be0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f | ).............(slime-trace-dialo |
| 29c00 | 67 2d 2d 69 6e 73 65 72 74 2d 61 6e 64 2d 6f 76 65 72 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 | g--insert-and-overlay........... |
| 29c20 | 20 20 20 22 5b 77 61 69 74 69 6e 67 20 66 6f 72 20 73 6f 6d 65 20 69 6e 66 6f 20 6f 6e 20 74 72 | ..."[waiting.for.some.info.on.tr |
| 29c40 | 61 63 65 20 64 6f 77 6e 6c 6f 61 64 20 70 72 6f 67 72 65 73 73 20 5d 22 0a 20 20 20 20 20 20 20 | ace.download.progress.]"........ |
| 29c60 | 20 20 20 20 20 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 70 72 6f 67 72 65 | ......slime-trace-dialog--progre |
| 29c80 | 73 73 2d 6f 76 65 72 6c 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 | ss-overlay).............(slime-t |
| 29ca0 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 69 6e 73 65 72 74 2d 61 6e 64 2d 6f 76 65 72 6c 61 79 0a | race-dialog--insert-and-overlay. |
| 29cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5b 77 61 69 74 69 6e 67 20 66 6f 72 20 74 68 65 20 61 | ............."[waiting.for.the.a |
| 29ce0 | 63 74 75 61 6c 20 74 72 61 63 65 73 20 74 6f 20 62 65 20 61 76 61 69 6c 61 62 6c 65 5d 22 0a 20 | ctual.traces.to.be.available]".. |
| 29d00 | 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d | ............slime-trace-dialog-- |
| 29d20 | 74 72 65 65 2d 6f 76 65 72 6c 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 | tree-overlay).............(curre |
| 29d40 | 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d | nt-buffer))...........(setq.slim |
| 29d60 | 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 6c 69 6d 65 2d 64 65 66 61 75 6c | e-buffer-connection.slime-defaul |
| 29d80 | 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 | t-connection)...........(current |
| 29da0 | 2d 62 75 66 66 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 | -buffer)))))..(defun.slime-trace |
| 29dc0 | 2d 64 69 61 6c 6f 67 2d 2d 6d 61 6b 65 2d 61 75 74 6f 66 6f 6c 6c 6f 77 2d 66 6e 20 28 69 64 29 | -dialog--make-autofollow-fn.(id) |
| 29de0 | 0a 20 20 28 6c 65 74 20 28 28 72 65 71 75 65 73 74 65 64 20 6e 69 6c 29 29 0a 20 20 20 20 23 27 | ...(let.((requested.nil)).....#' |
| 29e00 | 28 6c 61 6d 62 64 61 20 28 5f 62 65 66 6f 72 65 20 61 66 74 65 72 29 0a 20 20 20 20 20 20 20 20 | (lambda.(_before.after)......... |
| 29e20 | 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 70 6f 69 6e 74 2d 6d 6f 74 69 6f 6e 2d 68 6f 6f 6b | (let.((inhibit-point-motion-hook |
| 29e40 | 73 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 64 2d 61 66 74 65 72 20 28 67 65 | s.t)...............(id-after.(ge |
| 29e60 | 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 61 66 74 65 72 20 27 73 6c 69 6d 65 2d 74 72 61 | t-text-property.after.'slime-tra |
| 29e80 | 63 65 2d 64 69 61 6c 6f 67 2d 2d 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | ce-dialog--id)))...........(when |
| 29ea0 | 20 28 61 6e 64 20 28 3d 20 61 66 74 65 72 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 | .(and.(=.after.(point))......... |
| 29ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d | .............slime-trace-dialog- |
| 29ee0 | 61 75 74 6f 66 6f 6c 6c 6f 77 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | autofollow-mode................. |
| 29f00 | 20 20 20 20 20 69 64 2d 61 66 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....id-after................... |
| 29f20 | 20 20 20 28 3d 20 69 64 2d 61 66 74 65 72 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(=.id-after.id).............. |
| 29f40 | 20 20 20 20 20 20 20 20 28 6e 6f 74 20 72 65 71 75 65 73 74 65 64 29 29 0a 20 20 20 20 20 20 20 | ........(not.requested))........ |
| 29f60 | 20 20 20 20 20 28 73 65 74 71 20 72 65 71 75 65 73 74 65 64 20 74 29 0a 20 20 20 20 20 20 20 20 | .....(setq.requested.t)......... |
| 29f80 | 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 2d 74 72 | ....(slime-eval-async.`(swank-tr |
| 29fa0 | 61 63 65 2d 64 69 61 6c 6f 67 3a 72 65 70 6f 72 74 2d 74 72 61 63 65 2d 64 65 74 61 69 6c 0a 20 | ace-dialog:report-trace-detail.. |
| 29fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c | ..............................., |
| 29fe0 | 69 64 2d 61 66 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 | id-after)...............#'(lambd |
| 2a000 | 61 20 28 64 65 74 61 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | a.(detail)...................(se |
| 2a020 | 74 71 20 72 65 71 75 65 73 74 65 64 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tq.requested.nil)............... |
| 2a040 | 20 20 20 20 28 77 68 65 6e 20 64 65 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(when.detail................ |
| 2a060 | 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 70 6f 69 6e 74 2d 6d 6f 74 69 6f 6e | .....(let.((inhibit-point-motion |
| 2a080 | 2d 68 6f 6f 6b 73 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -hooks.t))...................... |
| 2a0a0 | 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6f 70 65 6e 2d 64 65 74 61 69 | .(slime-trace-dialog--open-detai |
| 2a0c0 | 6c 20 64 65 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l.detail........................ |
| 2a0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a100 | 27 6e 6f 2d 70 6f 70 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | 'no-pop))))))))))..(defun.slime- |
| 2a120 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 73 65 74 2d 63 6f 6c 6c 61 70 73 65 64 20 28 63 6f 6c | trace-dialog--set-collapsed.(col |
| 2a140 | 6c 61 70 73 65 64 2d 70 20 74 72 61 63 65 20 62 75 74 74 6f 6e 29 0a 20 20 28 73 61 76 65 2d 65 | lapsed-p.trace.button)...(save-e |
| 2a160 | 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d | xcursion.....(setf.(slime-trace- |
| 2a180 | 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 63 6f 6c 6c 61 70 73 65 64 2d 70 20 74 72 61 63 65 29 | dialog--trace-collapsed-p.trace) |
| 2a1a0 | 20 63 6f 6c 6c 61 70 73 65 64 2d 70 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 | .collapsed-p).....(slime-trace-d |
| 2a1c0 | 69 61 6c 6f 67 2d 2d 67 6f 2d 72 65 70 6c 61 63 65 2d 63 68 61 72 2d 61 74 0a 20 20 20 20 20 62 | ialog--go-replace-char-at......b |
| 2a1e0 | 75 74 74 6f 6e 0a 20 20 20 20 20 28 69 66 20 63 6f 6c 6c 61 70 73 65 64 2d 70 0a 20 20 20 20 20 | utton......(if.collapsed-p...... |
| 2a200 | 20 20 20 20 28 63 64 72 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 63 6f 6c | ....(cdr.slime-trace-dialog--col |
| 2a220 | 6c 61 70 73 65 2d 63 68 61 72 73 29 0a 20 20 20 20 20 20 20 28 63 61 72 20 73 6c 69 6d 65 2d 74 | lapse-chars)........(car.slime-t |
| 2a240 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 63 6f 6c 6c 61 70 73 65 2d 63 68 61 72 73 29 29 29 0a 20 | race-dialog--collapse-chars))).. |
| 2a260 | 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 68 69 64 65 2d 75 6e 68 | ...(slime-trace-dialog--hide-unh |
| 2a280 | 69 64 65 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 | ide......(slime-trace-dialog--tr |
| 2a2a0 | 61 63 65 2d 73 75 6d 6d 61 72 79 2d 62 65 67 20 74 72 61 63 65 29 0a 20 20 20 20 20 28 73 6c 69 | ace-summary-beg.trace)......(sli |
| 2a2c0 | 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 65 6e 64 20 74 72 61 63 65 | me-trace-dialog--trace-end.trace |
| 2a2e0 | 29 0a 20 20 20 20 20 28 69 66 20 63 6f 6c 6c 61 70 73 65 64 2d 70 20 31 20 2d 31 29 29 0a 20 20 | )......(if.collapsed-p.1.-1))... |
| 2a300 | 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 68 69 64 65 2d 75 6e 68 69 | ..(slime-trace-dialog--hide-unhi |
| 2a320 | 64 65 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 | de......(slime-trace-dialog--tra |
| 2a340 | 63 65 2d 65 6e 64 20 74 72 61 63 65 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d | ce-end.trace)......(slime-trace- |
| 2a360 | 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 63 68 69 6c 64 72 65 6e 2d 65 6e 64 20 74 72 61 63 65 | dialog--trace-children-end.trace |
| 2a380 | 29 0a 20 20 20 20 20 28 69 66 20 63 6f 6c 6c 61 70 73 65 64 2d 70 20 31 20 2d 31 29 29 29 29 0a | )......(if.collapsed-p.1.-1)))). |
| 2a3a0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 68 69 64 65 | .(defun.slime-trace-dialog--hide |
| 2a3c0 | 2d 75 6e 68 69 64 65 20 28 73 74 61 72 74 2d 70 6f 73 20 65 6e 64 2d 70 6f 73 20 64 65 6c 74 61 | -unhide.(start-pos.end-pos.delta |
| 2a3e0 | 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 69 74 68 20 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f | )...(cl-loop.with.inhibit-read-o |
| 2a400 | 6e 6c 79 20 3d 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 6f 73 20 3d 20 73 74 61 | nly.=.t............for.pos.=.sta |
| 2a420 | 72 74 2d 70 6f 73 20 74 68 65 6e 20 6e 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 | rt-pos.then.next............for. |
| 2a440 | 6e 65 78 74 20 3d 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 | next.=.(next-single-property-cha |
| 2a460 | 6e 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 0a 20 | nge........................pos.. |
| 2a480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 74 72 61 | ......................'slime-tra |
| 2a4a0 | 63 65 2d 64 69 61 6c 6f 67 2d 2d 68 69 64 64 65 6e 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 | ce-dialog--hidden-level......... |
| 2a4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............nil.............. |
| 2a4e0 | 20 20 20 20 20 20 20 20 20 20 65 6e 64 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f | ..........end-pos)............fo |
| 2a500 | 72 20 68 69 64 64 65 6e 2d 6c 65 76 65 6c 20 3d 20 28 2b 20 28 6f 72 20 28 67 65 74 2d 74 65 78 | r.hidden-level.=.(+.(or.(get-tex |
| 2a520 | 74 2d 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-property...................... |
| 2a540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 | .................pos............ |
| 2a560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d | ...........................'slim |
| 2a580 | 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 68 69 64 64 65 6e 2d 6c 65 76 65 6c 29 0a 20 20 | e-trace-dialog--hidden-level)... |
| 2a5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a5c0 | 20 20 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...0)........................... |
| 2a5e0 | 20 20 20 20 20 20 20 64 65 6c 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 61 64 64 | .......delta)............do.(add |
| 2a600 | 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 70 6f 73 20 6e 65 78 74 0a 20 20 20 20 20 20 | -text-properties.pos.next....... |
| 2a620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | .............................(li |
| 2a640 | 73 74 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 68 69 64 64 65 6e 2d 6c | st.'slime-trace-dialog--hidden-l |
| 2a660 | 65 76 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | evel............................ |
| 2a680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 69 64 64 65 6e 2d 6c 65 76 65 6c 0a 20 20 20 20 20 | ..............hidden-level...... |
| 2a6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a6c0 | 20 20 20 20 27 69 6e 76 69 73 69 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....'invisible.................. |
| 2a6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 70 6c 75 73 | ........................(cl-plus |
| 2a700 | 70 20 68 69 64 64 65 6e 2d 6c 65 76 65 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 77 68 69 | p.hidden-level)))............whi |
| 2a720 | 6c 65 20 28 3c 20 6e 65 78 74 20 65 6e 64 2d 70 6f 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | le.(<.next.end-pos)))..(defun.sl |
| 2a740 | 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 73 65 74 2d 68 69 64 65 2d 64 65 74 61 69 | ime-trace-dialog--set-hide-detai |
| 2a760 | 6c 73 2d 6d 6f 64 65 20 28 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 74 72 61 63 65 20 | ls-mode.()...(cl-loop.for.trace. |
| 2a780 | 62 65 69 6e 67 20 74 68 65 20 68 61 73 68 2d 76 61 6c 75 65 73 20 6f 66 20 73 6c 69 6d 65 2d 74 | being.the.hash-values.of.slime-t |
| 2a7a0 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 64 | race-dialog--traces............d |
| 2a7c0 | 6f 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 68 69 64 65 2d 75 6e 68 69 | o.(slime-trace-dialog--hide-unhi |
| 2a7e0 | 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 | de................(slime-trace-d |
| 2a800 | 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 73 75 6d 6d 61 72 79 2d 62 65 67 20 74 72 61 63 65 29 0a | ialog--trace-summary-beg.trace). |
| 2a820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c | ...............(slime-trace-dial |
| 2a840 | 6f 67 2d 2d 74 72 61 63 65 2d 65 6e 64 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | og--trace-end.trace)............ |
| 2a860 | 20 20 20 20 28 69 66 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 68 69 64 65 2d | ....(if.slime-trace-dialog-hide- |
| 2a880 | 64 65 74 61 69 6c 73 2d 6d 6f 64 65 20 31 20 2d 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | details-mode.1.-1))))..(defun.sl |
| 2a8a0 | 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 6f 72 6d 61 74 2d 70 61 72 74 20 28 70 | ime-trace-dialog--format-part.(p |
| 2a8c0 | 61 72 74 2d 69 64 20 70 61 72 74 2d 74 65 78 74 20 74 72 61 63 65 2d 69 64 20 74 79 70 65 29 0a | art-id.part-text.trace-id.type). |
| 2a8e0 | 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 62 75 74 74 6f 6e 0a 20 20 | ..(slime-trace-dialog--button... |
| 2a900 | 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 70 61 72 74 2d 74 65 78 74 29 0a 20 20 20 23 27 28 6c | .(format."%s".part-text)....#'(l |
| 2a920 | 61 6d 62 64 61 20 28 5f 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 | ambda.(_button)........(slime-ev |
| 2a940 | 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b 2d 74 72 61 63 | al-async............`(swank-trac |
| 2a960 | 65 2d 64 69 61 6c 6f 67 3a 69 6e 73 70 65 63 74 2d 74 72 61 63 65 2d 70 61 72 74 20 2c 74 72 61 | e-dialog:inspect-trace-part.,tra |
| 2a980 | 63 65 2d 69 64 20 2c 70 61 72 74 2d 69 64 20 2c 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 23 | ce-id.,part-id.,type)..........# |
| 2a9a0 | 27 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 29 29 0a 20 20 20 27 6d 6f 75 73 | 'slime-open-inspector))....'mous |
| 2a9c0 | 65 2d 66 61 63 65 20 27 68 69 67 68 6c 69 67 68 74 0a 20 20 20 27 73 6c 69 6d 65 2d 74 72 61 63 | e-face.'highlight....'slime-trac |
| 2a9e0 | 65 2d 64 69 61 6c 6f 67 2d 2d 70 61 72 74 2d 69 64 20 70 61 72 74 2d 69 64 0a 20 20 20 27 73 6c | e-dialog--part-id.part-id....'sl |
| 2aa00 | 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 79 70 65 20 74 79 70 65 0a 20 20 20 27 | ime-trace-dialog--type.type....' |
| 2aa20 | 66 61 63 65 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 76 61 6c 75 65 2d 66 61 63 65 | face.'slime-inspector-value-face |
| 2aa40 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 | ))..(defun.slime-trace-dialog--f |
| 2aa60 | 6f 72 6d 61 74 2d 74 72 61 63 65 2d 65 6e 74 72 79 20 28 69 64 20 65 78 74 65 72 6e 61 6c 29 0a | ormat-trace-entry.(id.external). |
| 2aa80 | 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 62 75 74 74 6f 6e 0a 20 20 | ..(slime-trace-dialog--button... |
| 2aaa0 | 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 65 78 74 65 72 6e 61 6c 29 0a 20 20 20 23 27 28 6c 61 | .(format."%s".external)....#'(la |
| 2aac0 | 6d 62 64 61 20 28 5f 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 | mbda.(_button)........(slime-eva |
| 2aae0 | 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b 3a 3a 69 6e 73 70 | l-async............`(swank::insp |
| 2ab00 | 65 63 74 2d 6f 62 6a 65 63 74 20 28 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 3a 3a | ect-object.(swank-trace-dialog:: |
| 2ab20 | 66 69 6e 64 2d 74 72 61 63 65 20 2c 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 23 27 73 6c 69 6d | find-trace.,id))..........#'slim |
| 2ab40 | 65 2d 6f 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 29 29 0a 20 20 20 27 66 61 63 65 20 27 73 6c 69 | e-open-inspector))....'face.'sli |
| 2ab60 | 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 76 61 6c 75 65 2d 66 61 63 65 29 29 0a 0a 28 64 65 66 75 | me-inspector-value-face))..(defu |
| 2ab80 | 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 6f 72 6d 61 74 20 28 66 6d | n.slime-trace-dialog--format.(fm |
| 2aba0 | 74 2d 73 74 72 69 6e 67 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 | t-string.&rest.args)...(let*.((s |
| 2abc0 | 74 72 69 6e 67 20 28 61 70 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 66 6d 74 2d 73 74 72 69 6e 67 | tring.(apply.#'format.fmt-string |
| 2abe0 | 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 64 65 6e 74 20 28 6d 61 6b 65 2d 73 | .args))..........(indent.(make-s |
| 2ac00 | 74 72 69 6e 67 20 28 6d 61 78 20 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tring.(max.2.................... |
| 2ac20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 35 30 20 28 6c 65 6e 67 74 68 20 73 74 | ................(-.50.(length.st |
| 2ac40 | 72 69 6e 67 29 29 29 20 3f 20 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 22 | ring))).?.))).....(format."%s%s" |
| 2ac60 | 20 73 74 72 69 6e 67 20 69 6e 64 65 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | .string.indent)))..(defun.slime- |
| 2ac80 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 62 75 74 74 6f 6e 20 28 74 69 74 6c 65 20 6c 61 6d 62 | trace-dialog--button.(title.lamb |
| 2aca0 | 64 61 20 26 72 65 73 74 20 70 72 6f 70 73 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 20 | da.&rest.props)...(let.((string. |
| 2acc0 | 28 66 6f 72 6d 61 74 20 22 25 73 22 20 74 69 74 6c 65 29 29 29 0a 20 20 20 20 28 61 70 70 6c 79 | (format."%s".title))).....(apply |
| 2ace0 | 20 23 27 6d 61 6b 65 2d 74 65 78 74 2d 62 75 74 74 6f 6e 20 73 74 72 69 6e 67 20 6e 69 6c 0a 20 | .#'make-text-button.string.nil.. |
| 2ad00 | 20 20 20 20 20 20 20 20 20 20 27 61 63 74 69 6f 6e 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 | ..........'action.....#'(lambda. |
| 2ad20 | 28 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (button)........................ |
| 2ad40 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6c 61 6d 62 64 61 20 62 75 74 74 6f 6e 29 29 0a 20 20 20 | ....(funcall.lambda.button)).... |
| 2ad60 | 20 20 20 20 20 20 20 20 27 6d 6f 75 73 65 2d 66 61 63 65 20 27 68 69 67 68 6c 69 67 68 74 0a 20 | ........'mouse-face.'highlight.. |
| 2ad80 | 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 69 6e 73 | ..........'face.......'slime-ins |
| 2ada0 | 70 65 63 74 6f 72 2d 61 63 74 69 6f 6e 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 70 72 | pector-action-face............pr |
| 2adc0 | 6f 70 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f | ops)))..(defun.slime-trace-dialo |
| 2ade0 | 67 2d 2d 63 61 6c 6c 2d 6d 61 69 6e 74 61 69 6e 69 6e 67 2d 70 72 6f 70 65 72 74 69 65 73 20 28 | g--call-maintaining-properties.( |
| 2ae00 | 70 6f 73 20 66 6e 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 67 | pos.fn)...(save-excursion.....(g |
| 2ae20 | 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 73 61 76 65 64 2d | oto-char.pos).....(let*.((saved- |
| 2ae40 | 70 72 6f 70 73 20 28 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 2d 61 74 20 70 6f 73 29 29 0a | props.(text-properties-at.pos)). |
| 2ae60 | 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 64 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 | ...........(saved-point.(point)) |
| 2ae80 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 | ............(inhibit-read-only.t |
| 2aea0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 74 2d 70 6f 69 6e 74 2d 6d 6f 74 69 | )............(inhibit-point-moti |
| 2aec0 | 6f 6e 2d 68 6f 6f 6b 73 20 74 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 0a | on-hooks.t)).......(funcall.fn). |
| 2aee0 | 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 73 61 76 65 64 | ......(add-text-properties.saved |
| 2af00 | 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 20 73 61 76 65 64 2d 70 72 6f 70 73 29 0a 20 20 20 20 | -point.(point).saved-props)..... |
| 2af20 | 20 20 28 69 66 20 28 6d 61 72 6b 65 72 70 20 70 6f 73 29 20 28 73 65 74 2d 6d 61 72 6b 65 72 20 | ..(if.(markerp.pos).(set-marker. |
| 2af40 | 70 6f 73 20 73 61 76 65 64 2d 70 6f 69 6e 74 29 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 61 63 | pos.saved-point)))))..(cl-defmac |
| 2af60 | 72 6f 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6d 61 69 6e 74 61 69 6e 69 | ro.slime-trace-dialog--maintaini |
| 2af80 | 6e 67 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-properties.(pos.............. |
| 2afa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2afc0 | 20 20 20 20 20 20 20 20 20 20 20 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 28 64 65 63 6c 61 | ............&body.body)...(decla |
| 2afe0 | 72 65 20 28 69 6e 64 65 6e 74 20 31 29 29 0a 20 20 60 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 | re.(indent.1))...`(slime-trace-d |
| 2b000 | 69 61 6c 6f 67 2d 2d 63 61 6c 6c 2d 6d 61 69 6e 74 61 69 6e 69 6e 67 2d 70 72 6f 70 65 72 74 69 | ialog--call-maintaining-properti |
| 2b020 | 65 73 20 2c 70 6f 73 20 23 27 28 6c 61 6d 62 64 61 20 28 29 20 2c 40 62 6f 64 79 29 29 29 0a 0a | es.,pos.#'(lambda.().,@body))).. |
| 2b040 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 67 6f 2d 72 65 | (defun.slime-trace-dialog--go-re |
| 2b060 | 70 6c 61 63 65 2d 63 68 61 72 2d 61 74 20 28 70 6f 73 20 63 68 61 72 29 0a 20 20 28 73 6c 69 6d | place-char-at.(pos.char)...(slim |
| 2b080 | 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6d 61 69 6e 74 61 69 6e 69 6e 67 2d 70 72 6f 70 | e-trace-dialog--maintaining-prop |
| 2b0a0 | 65 72 74 69 65 73 20 70 6f 73 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 63 68 61 72 20 31 29 0a 20 | erties.pos.....(delete-char.1).. |
| 2b0c0 | 20 20 20 28 69 6e 73 65 72 74 20 63 68 61 72 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 48 61 6e 64 6c | ...(insert.char)))....;;;;.Handl |
| 2b0e0 | 65 72 73 20 66 6f 72 20 74 68 65 20 2a 74 72 61 63 65 2d 64 69 61 6c 6f 67 2a 20 61 6e 64 20 2a | ers.for.the.*trace-dialog*.and.* |
| 2b100 | 74 72 61 63 65 2d 64 65 74 61 69 6c 2a 20 62 75 66 66 65 72 73 0a 3b 3b 3b 0a 28 64 65 66 75 6e | trace-detail*.buffers.;;;.(defun |
| 2b120 | 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6f 70 65 6e 2d 73 70 65 63 73 20 | .slime-trace-dialog--open-specs. |
| 2b140 | 28 74 72 61 63 65 64 2d 73 70 65 63 73 29 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 6d 61 | (traced-specs)...(cl-labels.((ma |
| 2b160 | 6b 65 2d 72 65 70 6f 72 74 2d 73 70 65 63 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ke-report-spec-fn............... |
| 2b180 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(&optional.form)............... |
| 2b1a0 | 20 23 27 28 6c 61 6d 62 64 61 20 28 5f 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .#'(lambda.(_button)............ |
| 2b1c0 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 | ........(slime-eval-async....... |
| 2b1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 63 6c 3a 70 72 6f 67 6e 0a 20 20 20 20 | .................`(cl:progn..... |
| 2b200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 66 6f 72 6d 0a 20 20 20 20 20 | .....................,form...... |
| 2b220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 74 72 61 63 65 | ....................(swank-trace |
| 2b240 | 2d 64 69 61 6c 6f 67 3a 72 65 70 6f 72 74 2d 73 70 65 63 73 29 29 0a 20 20 20 20 20 20 20 20 20 | -dialog:report-specs)).......... |
| 2b260 | 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 72 65 73 75 6c 74 73 29 0a | ............#'(lambda.(results). |
| 2b280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | .........................(slime- |
| 2b2a0 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6f 70 65 6e 2d 73 70 65 63 73 20 72 65 73 75 6c 74 73 | trace-dialog--open-specs.results |
| 2b2c0 | 29 29 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d | )))))).....(slime-trace-dialog-- |
| 2b2e0 | 72 65 66 72 65 73 68 0a 20 20 20 20 20 20 20 20 28 3a 6f 76 65 72 6c 61 79 20 73 6c 69 6d 65 2d | refresh.........(:overlay.slime- |
| 2b300 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 73 70 65 63 73 2d 6f 76 65 72 6c 61 79 0a 20 20 20 20 | trace-dialog--specs-overlay..... |
| 2b320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 63 6f 76 65 72 2d 70 6f 69 6e 74 2d 70 20 74 | ..............:recover-point-p.t |
| 2b340 | 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 | ).......(insert........(slime-tr |
| 2b360 | 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 6f 72 6d 61 74 20 22 54 72 61 63 65 64 20 73 70 65 63 73 | ace-dialog--format."Traced.specs |
| 2b380 | 20 28 25 73 29 22 20 28 6c 65 6e 67 74 68 20 74 72 61 63 65 64 2d 73 70 65 63 73 29 29 0a 20 20 | .(%s)".(length.traced-specs))... |
| 2b3a0 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 62 75 74 74 6f 6e | .....(slime-trace-dialog--button |
| 2b3c0 | 20 22 5b 72 65 66 72 65 73 68 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ."[refresh]".................... |
| 2b3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 72 65 70 6f 72 74 2d 73 70 65 | ................(make-report-spe |
| 2b400 | 63 2d 66 6e 29 29 0a 20 20 20 20 20 20 20 22 5c 6e 22 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 | c-fn))........"\n".(make-string. |
| 2b420 | 35 30 20 3f 20 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f | 50.?.)........(slime-trace-dialo |
| 2b440 | 67 2d 2d 62 75 74 74 6f 6e 0a 20 20 20 20 20 20 20 20 22 5b 75 6e 74 72 61 63 65 20 61 6c 6c 5d | g--button........."[untrace.all] |
| 2b460 | 22 0a 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 72 65 70 6f 72 74 2d 73 70 65 63 2d 66 6e 20 60 | ".........(make-report-spec-fn.` |
| 2b480 | 28 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 3a 64 69 61 6c 6f 67 2d 75 6e 74 72 61 | (swank-trace-dialog:dialog-untra |
| 2b4a0 | 63 65 2d 61 6c 6c 29 29 29 0a 20 20 20 20 20 20 20 22 5c 6e 5c 6e 22 29 0a 20 20 20 20 20 20 28 | ce-all)))........"\n\n").......( |
| 2b4c0 | 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 73 70 65 63 20 69 6e 20 74 72 61 63 65 64 2d 73 70 65 63 73 | cl-loop.for.spec.in.traced-specs |
| 2b4e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 69 6e 73 65 72 74 0a 20 20 20 20 20 | ................do.(insert...... |
| 2b500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............."..".............. |
| 2b520 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 62 75 74 74 6f | ......(slime-trace-dialog--butto |
| 2b540 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5b 75 6e 74 72 61 63 65 5d | n....................."[untrace] |
| 2b560 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 72 65 70 6f | ".....................(make-repo |
| 2b580 | 72 74 2d 73 70 65 63 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rt-spec-fn...................... |
| 2b5a0 | 60 28 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 3a 64 69 61 6c 6f 67 2d 75 6e 74 72 | `(swank-trace-dialog:dialog-untr |
| 2b5c0 | 61 63 65 20 27 2c 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ace.',spec)))................... |
| 2b5e0 | 20 28 66 6f 72 6d 61 74 20 22 20 25 73 22 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(format.".%s".spec)............ |
| 2b600 | 20 20 20 20 20 20 20 20 22 5c 6e 22 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 | ........"\n")))))..(defvar.slime |
| 2b620 | 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 65 74 63 68 2d 6b 65 79 20 6e 69 6c 29 0a 0a 28 | -trace-dialog--fetch-key.nil)..( |
| 2b640 | 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 73 74 6f 70 2d | defvar.slime-trace-dialog--stop- |
| 2b660 | 66 65 74 63 68 69 6e 67 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 | fetching.nil)..(defun.slime-trac |
| 2b680 | 65 2d 64 69 61 6c 6f 67 2d 2d 75 70 64 61 74 65 2d 70 72 6f 67 72 65 73 73 20 28 74 6f 74 61 6c | e-dialog--update-progress.(total |
| 2b6a0 | 20 26 6f 70 74 69 6f 6e 61 6c 20 73 68 6f 77 2d 73 74 6f 70 2d 70 20 72 65 6d 61 69 6e 69 6e 67 | .&optional.show-stop-p.remaining |
| 2b6c0 | 2d 70 29 0a 20 20 3b 3b 20 60 72 65 6d 61 69 6e 69 6e 67 2d 70 27 20 69 6e 64 69 63 61 74 65 73 | -p)...;;.`remaining-p'.indicates |
| 2b6e0 | 20 60 74 6f 74 61 6c 27 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 6d 61 69 6e | .`total'.is.the.number.of.remain |
| 2b700 | 69 6e 67 20 74 72 61 63 65 73 2e 0a 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f | ing.traces....(slime-trace-dialo |
| 2b720 | 67 2d 2d 72 65 66 72 65 73 68 0a 20 20 20 20 20 20 28 3a 6f 76 65 72 6c 61 79 20 73 6c 69 6d 65 | g--refresh.......(:overlay.slime |
| 2b740 | 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 70 72 6f 67 72 65 73 73 2d 6f 76 65 72 6c 61 79 0a | -trace-dialog--progress-overlay. |
| 2b760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 63 6f 76 65 72 2d 70 6f 69 6e 74 2d 70 | ................:recover-point-p |
| 2b780 | 20 74 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 64 6f 6e 65 20 28 68 61 73 68 2d 74 61 62 6c 65 | .t).....(let*.((done.(hash-table |
| 2b7a0 | 2d 63 6f 75 6e 74 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 | -count.slime-trace-dialog--trace |
| 2b7c0 | 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 6f 74 61 6c 20 28 69 66 20 72 65 6d 61 69 6e | s))............(total.(if.remain |
| 2b7e0 | 69 6e 67 2d 70 20 28 2b 20 64 6f 6e 65 20 74 6f 74 61 6c 29 20 74 6f 74 61 6c 29 29 29 0a 20 20 | ing-p.(+.done.total).total)))... |
| 2b800 | 20 20 20 20 28 69 6e 73 65 72 74 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d | ....(insert........(slime-trace- |
| 2b820 | 64 69 61 6c 6f 67 2d 2d 66 6f 72 6d 61 74 20 22 54 72 61 63 65 20 63 6f 6c 6c 65 63 74 69 6f 6e | dialog--format."Trace.collection |
| 2b840 | 20 73 74 61 74 75 73 20 28 25 64 2f 25 73 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .status.(%d/%s)"................ |
| 2b860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 6e 65 0a 20 20 20 20 20 20 20 | ....................done........ |
| 2b880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 | ............................(or. |
| 2b8a0 | 74 6f 74 61 6c 20 22 30 22 29 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d | total."0"))........(slime-trace- |
| 2b8c0 | 64 69 61 6c 6f 67 2d 2d 62 75 74 74 6f 6e 20 22 5b 72 65 66 72 65 73 68 5d 22 0a 20 20 20 20 20 | dialog--button."[refresh]"...... |
| 2b8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 | ..............................#' |
| 2b900 | 28 6c 61 6d 62 64 61 20 28 5f 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (lambda.(_button)............... |
| 2b920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | .........................(slime- |
| 2b940 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 70 72 6f 67 72 65 73 73 29 29 29 29 0a | trace-dialog-fetch-progress)))). |
| 2b960 | 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 74 6f 74 61 6c 20 28 63 6c 2d 70 6c 75 73 | .......(when.(and.total.(cl-plus |
| 2b980 | 70 20 28 2d 20 74 6f 74 61 6c 20 64 6f 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 | p.(-.total.done))).........(inse |
| 2b9a0 | 72 74 20 22 5c 6e 22 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 35 30 20 3f 20 29 0a 20 20 20 20 | rt."\n".(make-string.50.?.)..... |
| 2b9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d | ............(slime-trace-dialog- |
| 2b9e0 | 2d 62 75 74 74 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5b 66 65 74 63 68 | -button.................."[fetch |
| 2ba00 | 20 6e 65 78 74 20 62 61 74 63 68 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 | .next.batch]"..................# |
| 2ba20 | 27 28 6c 61 6d 62 64 61 20 28 5f 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | '(lambda.(_button).............. |
| 2ba40 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 | ........(slime-trace-dialog-fetc |
| 2ba60 | 68 2d 74 72 61 63 65 73 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h-traces.nil)))................. |
| 2ba80 | 22 5c 6e 22 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 35 30 20 3f 20 29 0a 20 20 20 20 20 20 20 | "\n".(make-string.50.?.)........ |
| 2baa0 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 62 75 | .........(slime-trace-dialog--bu |
| 2bac0 | 74 74 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5b 66 65 74 63 68 20 61 6c | tton.................."[fetch.al |
| 2bae0 | 6c 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 | l]"..................#'(lambda.( |
| 2bb00 | 5f 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | _button)......................(s |
| 2bb20 | 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 74 72 61 63 65 73 20 74 | lime-trace-dialog-fetch-traces.t |
| 2bb40 | 29 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 74 6f 74 61 6c 0a 20 20 20 20 20 20 20 20 | ))))).......(when.total......... |
| 2bb60 | 28 69 6e 73 65 72 74 20 22 5c 6e 22 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 35 30 20 3f 20 29 | (insert."\n".(make-string.50.?.) |
| 2bb80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 | .................(slime-trace-di |
| 2bba0 | 61 6c 6f 67 2d 2d 62 75 74 74 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5b | alog--button.................."[ |
| 2bbc0 | 63 6c 65 61 72 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 | clear]"..................#'(lamb |
| 2bbe0 | 64 61 20 28 5f 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | da.(_button).................... |
| 2bc00 | 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 63 6c 65 61 72 2d 66 65 74 63 | ..(slime-trace-dialog-clear-fetc |
| 2bc20 | 68 65 64 2d 74 72 61 63 65 73 29 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 68 6f 77 | hed-traces))))).......(when.show |
| 2bc40 | 2d 73 74 6f 70 2d 70 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 20 28 6d 61 | -stop-p.........(insert."\n".(ma |
| 2bc60 | 6b 65 2d 73 74 72 69 6e 67 20 35 30 20 3f 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ke-string.50.?.)................ |
| 2bc80 | 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 62 75 74 74 6f 6e 0a 20 20 20 | .(slime-trace-dialog--button.... |
| 2bca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5b 73 74 6f 70 5d 22 0a 20 20 20 20 20 20 20 20 20 | .............."[stop]".......... |
| 2bcc0 | 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 5f 62 75 74 74 6f 6e 29 0a 20 20 20 20 | ........#'(lambda.(_button)..... |
| 2bce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 74 72 61 | .................(setq.slime-tra |
| 2bd00 | 63 65 2d 64 69 61 6c 6f 67 2d 2d 73 74 6f 70 2d 66 65 74 63 68 69 6e 67 20 74 29 29 29 29 29 0a | ce-dialog--stop-fetching.t))))). |
| 2bd20 | 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 5c 6e 22 29 29 29 29 0a 0a 28 64 65 66 75 6e | ......(insert."\n\n"))))..(defun |
| 2bd40 | 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6f 70 65 6e 2d 64 65 74 61 69 6c | .slime-trace-dialog--open-detail |
| 2bd60 | 20 28 74 72 61 63 65 2d 74 75 70 6c 65 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 2d 70 6f 70 29 0a | .(trace-tuple.&optional.no-pop). |
| 2bd80 | 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 22 2a 74 72 | ..(slime-with-popup-buffer.("*tr |
| 2bda0 | 61 63 65 2d 64 65 74 61 69 6c 2a 22 20 3a 73 65 6c 65 63 74 20 28 6e 6f 74 20 6e 6f 2d 70 6f 70 | ace-detail*".:select.(not.no-pop |
| 2bdc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d | ).............................:m |
| 2bde0 | 6f 64 65 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 64 65 74 61 69 6c 2d | ode.'slime-trace-dialog--detail- |
| 2be00 | 6d 6f 64 65 29 0a 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 | mode).....(cl-destructuring-bind |
| 2be20 | 20 28 69 64 20 5f 70 61 72 65 6e 74 2d 69 64 20 5f 73 70 65 63 20 61 72 67 73 20 72 65 74 6c 69 | .(id._parent-id._spec.args.retli |
| 2be40 | 73 74 20 62 61 63 6b 74 72 61 63 65 20 65 78 74 65 72 6e 61 6c 29 0a 20 20 20 20 20 20 20 20 74 | st.backtrace.external).........t |
| 2be60 | 72 61 63 65 2d 74 75 70 6c 65 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 68 65 61 64 6c 69 6e 65 | race-tuple.......(let.((headline |
| 2be80 | 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 6f 72 6d 61 74 2d 74 72 61 | .(slime-trace-dialog--format-tra |
| 2bea0 | 63 65 2d 65 6e 74 72 79 20 69 64 20 65 78 74 65 72 6e 61 6c 29 29 29 0a 20 20 20 20 20 20 20 20 | ce-entry.id.external)))......... |
| 2bec0 | 28 73 65 74 71 20 68 65 61 64 6c 69 6e 65 20 28 66 6f 72 6d 61 74 20 22 25 73 5c 6e 25 73 5c 6e | (setq.headline.(format."%s\n%s\n |
| 2bee0 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "............................... |
| 2bf00 | 20 68 65 61 64 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .headline....................... |
| 2bf20 | 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 6c 65 6e 67 74 68 20 68 65 | .........(make-string.(length.he |
| 2bf40 | 61 64 6c 69 6e 65 29 20 3f 2d 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 68 65 | adline).?-))).........(insert.he |
| 2bf60 | 61 64 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 74 79 70 | adline)).......(cl-loop.for.(typ |
| 2bf80 | 65 20 6f 62 6a 65 63 74 73 20 6c 61 62 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.objects.label)................ |
| 2bfa0 | 69 6e 20 60 28 28 3a 61 72 67 20 2c 61 72 67 73 20 20 20 22 43 61 6c 6c 65 64 20 77 69 74 68 20 | in.`((:arg.,args..."Called.with. |
| 2bfc0 | 61 72 67 73 3a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 72 65 | args:").....................(:re |
| 2bfe0 | 74 76 61 6c 20 2c 72 65 74 6c 69 73 74 20 22 52 65 74 75 72 6e 65 64 20 76 61 6c 75 65 73 3a 22 | tval.,retlist."Returned.values:" |
| 2c000 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 69 6e 73 65 72 74 20 28 66 6f | ))................do.(insert.(fo |
| 2c020 | 72 6d 61 74 20 22 5c 6e 25 73 5c 6e 22 20 6c 61 62 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 | rmat."\n%s\n".label))........... |
| 2c040 | 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6f 62 6a 65 63 74 | .....(insert.(cl-loop.for.object |
| 2c060 | 20 69 6e 20 6f 62 6a 65 63 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .in.objects..................... |
| 2c080 | 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 | ............for.i.from.0........ |
| 2c0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 63 61 74 20 | .........................concat. |
| 2c0c0 | 28 66 6f 72 6d 61 74 20 22 20 20 20 25 73 3a 20 25 73 5c 6e 22 20 69 0a 20 20 20 20 20 20 20 20 | (format."...%s:.%s\n".i......... |
| 2c0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2c100 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 6f 72 6d | .......(slime-trace-dialog--form |
| 2c120 | 61 74 2d 70 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | at-part......................... |
| 2c140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 66 69 72 73 | ........................(cl-firs |
| 2c160 | 74 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.object)....................... |
| 2c180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 73 65 | ..........................(cl-se |
| 2c1a0 | 63 6f 6e 64 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cond.object).................... |
| 2c1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 64 0a | .............................id. |
| 2c1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2c200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 29 29 29 29 29 0a 20 20 20 20 20 20 | ................type)))))....... |
| 2c220 | 28 77 68 65 6e 20 62 61 63 6b 74 72 61 63 65 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 | (when.backtrace.........(insert. |
| 2c240 | 22 5c 6e 42 61 63 6b 74 72 61 63 65 3a 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "\nBacktrace:\n"................ |
| 2c260 | 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 69 20 73 70 65 63 29 20 69 6e 20 62 61 63 6b 74 72 | .(cl-loop.for.(i.spec).in.backtr |
| 2c280 | 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e | ace..........................con |
| 2c2a0 | 63 61 74 20 28 66 6f 72 6d 61 74 20 22 20 20 20 25 73 3a 20 25 73 5c 6e 22 20 69 20 73 70 65 63 | cat.(format."...%s:.%s\n".i.spec |
| 2c2c0 | 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 52 65 6e 64 65 72 69 6e 67 20 74 72 61 63 65 73 | )))))))....;;;;.Rendering.traces |
| 2c2e0 | 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d | .;;;.(defun.slime-trace-dialog-- |
| 2c300 | 64 72 61 77 2d 74 72 65 65 2d 6c 69 6e 65 73 20 28 73 74 61 72 74 20 6f 66 66 73 65 74 20 64 69 | draw-tree-lines.(start.offset.di |
| 2c320 | 72 65 63 74 69 6f 6e 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 | rection)...(save-excursion.....( |
| 2c340 | 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 70 6f 69 6e 74 2d 6d 6f 74 69 6f 6e 2d 68 6f 6f 6b 73 | let.((inhibit-point-motion-hooks |
| 2c360 | 20 74 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 | .t)).......(goto-char.start).... |
| 2c380 | 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 69 74 68 20 72 65 70 6c 61 63 65 2d 73 65 74 20 3d 20 28 | ...(cl-loop.with.replace-set.=.( |
| 2c3a0 | 69 66 20 28 65 71 20 64 69 72 65 63 74 69 6f 6e 20 27 64 6f 77 6e 29 0a 20 20 20 20 20 20 20 20 | if.(eq.direction.'down)......... |
| 2c3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 | ..............................'( |
| 2c3e0 | 3f 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ?.)............................. |
| 2c400 | 20 20 20 20 20 20 20 20 27 28 3f 20 20 3f 60 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........'(?..?`))............... |
| 2c420 | 20 66 6f 72 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 20 3d 20 28 6c 69 6e 65 2d 62 65 67 69 | .for.line-beginning.=.(line-begi |
| 2c440 | 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nning-position.................. |
| 2c460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 64 69 72 65 | ....................(if.(eq.dire |
| 2c480 | 63 74 69 6f 6e 20 27 64 6f 77 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ction.'down).................... |
| 2c4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 30 29 29 0a 20 20 20 20 | ......................2.0))..... |
| 2c4c0 | 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 6f 73 20 3d 20 28 2b 20 6c 69 6e 65 2d 62 65 67 | ...........for.pos.=.(+.line-beg |
| 2c4e0 | 69 6e 6e 69 6e 67 20 6f 66 66 73 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 | inning.offset)................wh |
| 2c500 | 69 6c 65 20 28 61 6e 64 20 28 3c 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 6c 69 6e 65 2d 62 65 67 | ile.(and.(<.(point-min).line-beg |
| 2c520 | 69 6e 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | inning)......................... |
| 2c540 | 20 20 28 3c 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 | ..(<.line-beginning.(point-max)) |
| 2c560 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 71 | ...........................(memq |
| 2c580 | 20 28 63 68 61 72 2d 61 66 74 65 72 20 70 6f 73 29 20 72 65 70 6c 61 63 65 2d 73 65 74 29 29 0a | .(char-after.pos).replace-set)). |
| 2c5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............do............... |
| 2c5c0 | 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 67 6f 2d 72 65 70 6c 61 63 65 | .(slime-trace-dialog--go-replace |
| 2c5e0 | 2d 63 68 61 72 2d 61 74 20 70 6f 73 20 22 7c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -char-at.pos."|")............... |
| 2c600 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | .(goto-char.pos)))))..(defun.sli |
| 2c620 | 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6d 61 6b 65 2d 69 6e 64 65 6e 74 20 28 64 65 | me-trace-dialog--make-indent.(de |
| 2c640 | 70 74 68 20 73 75 66 66 69 78 29 0a 20 20 28 63 6f 6e 63 61 74 20 28 6d 61 6b 65 2d 73 74 72 69 | pth.suffix)...(concat.(make-stri |
| 2c660 | 6e 67 20 28 2a 20 33 20 28 6d 61 78 20 30 20 28 31 2d 20 64 65 70 74 68 29 29 29 20 3f 20 29 0a | ng.(*.3.(max.0.(1-.depth))).?.). |
| 2c680 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 6c 2d 70 6c 75 73 70 20 64 65 70 74 68 29 20 73 | ..........(if.(cl-plusp.depth).s |
| 2c6a0 | 75 66 66 69 78 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 | uffix)))..(defun.slime-trace-dia |
| 2c6c0 | 6c 6f 67 2d 2d 6d 61 6b 65 2d 63 6f 6c 6c 61 70 73 65 2d 62 75 74 74 6f 6e 20 28 74 72 61 63 65 | log--make-collapse-button.(trace |
| 2c6e0 | 29 0a 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 62 75 74 74 6f 6e 20 | )...(slime-trace-dialog--button. |
| 2c700 | 28 69 66 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 63 | (if.(slime-trace-dialog--trace-c |
| 2c720 | 6f 6c 6c 61 70 73 65 64 2d 70 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ollapsed-p.trace)............... |
| 2c740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 73 6c 69 6d 65 2d 74 | ....................(cdr.slime-t |
| 2c760 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 63 6f 6c 6c 61 70 73 65 2d 63 68 61 72 73 29 0a 20 20 20 | race-dialog--collapse-chars).... |
| 2c780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 | .............................(ca |
| 2c7a0 | 72 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 63 6f 6c 6c 61 70 73 65 2d 63 | r.slime-trace-dialog--collapse-c |
| 2c7c0 | 68 61 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hars)).......................... |
| 2c7e0 | 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 20 | .....#'(lambda.(button)......... |
| 2c800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | ..........................(slime |
| 2c820 | 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 73 65 74 2d 63 6f 6c 6c 61 70 73 65 64 0a 20 20 20 | -trace-dialog--set-collapsed.... |
| 2c840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2c860 | 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d | (not.(slime-trace-dialog--trace- |
| 2c880 | 63 6f 6c 6c 61 70 73 65 64 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | collapsed-p..................... |
| 2c8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 63 65 29 29 0a 20 20 20 | .....................trace)).... |
| 2c8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2c8e0 | 74 72 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | trace........................... |
| 2c900 | 20 20 20 20 20 20 20 20 20 62 75 74 74 6f 6e 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | .........button))))...(defun.sli |
| 2c920 | 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 69 6e 73 65 72 74 2d 74 72 61 63 65 20 28 74 | me-trace-dialog--insert-trace.(t |
| 2c940 | 72 61 63 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 69 64 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d | race)...(let*.((id.(slime-trace- |
| 2c960 | 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 69 64 20 74 72 61 63 65 29 29 0a 20 20 20 20 20 20 20 | dialog--trace-id.trace))........ |
| 2c980 | 20 20 28 70 61 72 65 6e 74 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 | ..(parent.(slime-trace-dialog--t |
| 2c9a0 | 72 61 63 65 2d 70 61 72 65 6e 74 20 74 72 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 61 | race-parent.trace))..........(ha |
| 2c9c0 | 73 2d 63 68 69 6c 64 72 65 6e 2d 70 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 | s-children-p.(slime-trace-dialog |
| 2c9e0 | 2d 2d 74 72 61 63 65 2d 63 68 69 6c 64 72 65 6e 2d 65 6e 64 20 74 72 61 63 65 29 29 0a 20 20 20 | --trace-children-end.trace)).... |
| 2ca00 | 20 20 20 20 20 20 28 69 6e 64 65 6e 74 2d 73 70 65 63 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d | ......(indent-spec.(slime-trace- |
| 2ca20 | 64 69 61 6c 6f 67 2d 2d 6d 61 6b 65 2d 69 6e 64 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | dialog--make-indent............. |
| 2ca40 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d | ...........(slime-trace-dialog-- |
| 2ca60 | 74 72 61 63 65 2d 64 65 70 74 68 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | trace-depth.trace).............. |
| 2ca80 | 20 20 20 20 20 20 20 20 20 20 22 60 2d 2d 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 64 65 | .........."`--"))..........(inde |
| 2caa0 | 6e 74 2d 73 75 6d 6d 61 72 79 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d | nt-summary.(slime-trace-dialog-- |
| 2cac0 | 6d 61 6b 65 2d 69 6e 64 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | make-indent..................... |
| 2cae0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 | ......(slime-trace-dialog--trace |
| 2cb00 | 2d 64 65 70 74 68 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -depth.trace)................... |
| 2cb20 | 20 20 20 20 20 20 20 20 22 20 20 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 75 74 6f 66 6f | ........"..."))..........(autofo |
| 2cb40 | 6c 6c 6f 77 2d 66 6e 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6d 61 6b | llow-fn.(slime-trace-dialog--mak |
| 2cb60 | 65 2d 61 75 74 6f 66 6f 6c 6c 6f 77 2d 66 6e 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 | e-autofollow-fn.id))..........(i |
| 2cb80 | 64 2d 73 74 72 69 6e 67 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 62 75 | d-string.(slime-trace-dialog--bu |
| 2cba0 | 74 74 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 | tton......................(forma |
| 2cbc0 | 74 20 22 25 34 73 22 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t."%4s".id)..................... |
| 2cbe0 | 20 23 27 28 6c 61 6d 62 64 61 20 28 5f 62 75 74 74 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .#'(lambda.(_button)............ |
| 2cc00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a | ..............(slime-eval-async. |
| 2cc20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 | .............................`(s |
| 2cc40 | 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 3a 72 65 70 6f 72 74 2d 74 72 61 63 65 2d 64 | wank-trace-dialog:report-trace-d |
| 2cc60 | 65 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | etail........................... |
| 2cc80 | 20 20 20 20 20 2c 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....,id)....................... |
| 2cca0 | 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6f 70 65 6e 2d | .....#'slime-trace-dialog--open- |
| 2ccc0 | 64 65 74 61 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 70 65 63 20 28 73 6c 69 6d 65 | detail))))..........(spec.(slime |
| 2cce0 | 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 73 70 65 63 20 74 72 61 63 65 29 | -trace-dialog--trace-spec.trace) |
| 2cd00 | 29 0a 20 20 20 20 20 20 20 20 20 28 73 75 6d 6d 61 72 79 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 | )..........(summary.(cl-loop.for |
| 2cd20 | 20 28 74 79 70 65 20 6f 62 6a 65 63 74 73 20 6d 61 72 6b 65 72 29 20 69 6e 0a 20 20 20 20 20 20 | .(type.objects.marker).in....... |
| 2cd40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 61 72 67 20 20 20 20 | .....................`((:arg.... |
| 2cd60 | 2c 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 61 72 67 73 | ,(slime-trace-dialog--trace-args |
| 2cd80 | 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .trace)......................... |
| 2cda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 3e 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..............".>.")............ |
| 2cdc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 72 65 74 76 61 6c 20 2c 28 73 6c 69 | ..................(:retval.,(sli |
| 2cde0 | 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 72 65 74 6c 69 73 74 20 74 | me-trace-dialog--trace-retlist.t |
| 2ce00 | 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | race)........................... |
| 2ce20 | 20 20 20 20 20 20 20 20 20 20 20 20 22 20 3c 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ............".<."))............. |
| 2ce40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 63 61 74 20 28 63 6c 2d 6c 6f 6f 70 20 66 | ...............concat.(cl-loop.f |
| 2ce60 | 6f 72 20 6f 62 6a 65 63 74 20 69 6e 20 6f 62 6a 65 63 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 | or.object.in.objects............ |
| 2ce80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2cea0 | 63 6f 6e 63 61 74 20 22 20 20 20 20 20 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | concat."......"................. |
| 2cec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 63 61 | ...........................conca |
| 2cee0 | 74 20 69 6e 64 65 6e 74 2d 73 75 6d 6d 61 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.indent-summary................ |
| 2cf00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 63 | ............................conc |
| 2cf20 | 61 74 20 6d 61 72 6b 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | at.marker....................... |
| 2cf40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 63 61 74 20 28 73 6c 69 | .....................concat.(sli |
| 2cf60 | 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 6f 72 6d 61 74 2d 70 61 72 74 0a 20 20 20 | me-trace-dialog--format-part.... |
| 2cf80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2cfa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 66 69 72 73 74 20 6f 62 6a 65 63 74 | ................(cl-first.object |
| 2cfc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 2cfe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 73 65 63 6f 6e 64 20 | .....................(cl-second. |
| 2d000 | 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | object)......................... |
| 2d020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 64 0a 20 20 | ...........................id... |
| 2d040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2d060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 | .................type).......... |
| 2d080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2d0a0 | 20 20 63 6f 6e 63 61 74 20 22 5c 6e 22 29 29 29 29 0a 20 20 20 20 28 70 75 74 68 61 73 68 20 69 | ..concat."\n")))).....(puthash.i |
| 2d0c0 | 64 20 74 72 61 63 65 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 | d.trace.slime-trace-dialog--trac |
| 2d0e0 | 65 73 29 0a 20 20 20 20 3b 3b 20 69 6e 73 65 72 74 20 61 6e 64 20 70 72 6f 70 65 72 74 69 7a 65 | es).....;;.insert.and.propertize |
| 2d100 | 20 74 68 65 20 74 65 78 74 0a 20 20 20 20 3b 3b 0a 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d | .the.text.....;;.....(setf.(slim |
| 2d120 | 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 62 65 67 20 74 72 61 63 65 29 | e-trace-dialog--trace-beg.trace) |
| 2d140 | 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 69 64 2d | .(point-marker)).....(insert.id- |
| 2d160 | 73 74 72 69 6e 67 20 22 20 22 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 69 6e 64 65 6e 74 2d 73 | string.".").....(insert.indent-s |
| 2d180 | 70 65 63 29 0a 20 20 20 20 28 69 66 20 68 61 73 2d 63 68 69 6c 64 72 65 6e 2d 70 0a 20 20 20 20 | pec).....(if.has-children-p..... |
| 2d1a0 | 20 20 20 20 28 69 6e 73 65 72 74 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d | ....(insert.(slime-trace-dialog- |
| 2d1c0 | 2d 6d 61 6b 65 2d 63 6f 6c 6c 61 70 73 65 2d 62 75 74 74 6f 6e 20 74 72 61 63 65 29 29 0a 20 20 | -make-collapse-button.trace))... |
| 2d1e0 | 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 | ....(setf.(slime-trace-dialog--t |
| 2d200 | 72 61 63 65 2d 63 6f 6c 6c 61 70 73 65 2d 62 75 74 74 6f 6e 2d 6d 61 72 6b 65 72 20 74 72 61 63 | race-collapse-button-marker.trac |
| 2d220 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 0a 20 | e).............(point-marker)).. |
| 2d240 | 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 2d 22 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 28 | .....(insert."-")).....(insert.( |
| 2d260 | 66 6f 72 6d 61 74 20 22 20 25 73 5c 6e 22 20 73 70 65 63 29 29 0a 20 20 20 20 28 73 65 74 66 20 | format.".%s\n".spec)).....(setf. |
| 2d280 | 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 73 75 6d 6d 61 | (slime-trace-dialog--trace-summa |
| 2d2a0 | 72 79 2d 62 65 67 20 74 72 61 63 65 29 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 0a 20 20 | ry-beg.trace).(point-marker))... |
| 2d2c0 | 20 20 28 69 6e 73 65 72 74 20 73 75 6d 6d 61 72 79 29 0a 20 20 20 20 28 73 65 74 66 20 28 73 6c | ..(insert.summary).....(setf.(sl |
| 2d2e0 | 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 65 6e 64 20 74 72 61 63 | ime-trace-dialog--trace-end.trac |
| 2d300 | 65 29 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 28 73 65 74 2d 6d 61 72 6b | e).(point-marker)).....(set-mark |
| 2d320 | 65 72 2d 69 6e 73 65 72 74 69 6f 6e 2d 74 79 70 65 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 | er-insertion-type.(slime-trace-d |
| 2d340 | 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 62 65 67 20 74 72 61 63 65 29 20 74 29 0a 0a 20 20 20 20 | ialog--trace-beg.trace).t)...... |
| 2d360 | 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 73 6c 69 6d 65 2d 74 72 61 63 | (add-text-properties.(slime-trac |
| 2d380 | 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 62 65 67 20 74 72 61 63 65 29 0a 20 20 20 20 20 | e-dialog--trace-beg.trace)...... |
| 2d3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 | ....................(slime-trace |
| 2d3c0 | 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 65 6e 64 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 | -dialog--trace-end.trace)....... |
| 2d3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 73 6c 69 6d 65 2d | ...................(list.'slime- |
| 2d400 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 69 64 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 | trace-dialog--id.id............. |
| 2d420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 70 6f 69 6e 74 2d 65 6e 74 65 72 65 | ...................'point-entere |
| 2d440 | 64 20 61 75 74 6f 66 6f 6c 6c 6f 77 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.autofollow-fn................. |
| 2d460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 70 6f 69 6e 74 2d 6c 65 66 74 20 61 75 74 6f 66 | ...............'point-left.autof |
| 2d480 | 6f 6c 6c 6f 77 2d 66 6e 29 29 0a 20 20 20 20 3b 3b 20 72 65 73 70 65 63 74 20 62 72 69 65 66 20 | ollow-fn)).....;;.respect.brief. |
| 2d4a0 | 6d 6f 64 65 20 61 6e 64 20 63 6f 6c 6c 61 70 73 65 64 20 73 74 61 74 65 0a 20 20 20 20 3b 3b 0a | mode.and.collapsed.state.....;;. |
| 2d4c0 | 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 20 69 6e 20 28 6c | ....(cl-loop.for.condition.in.(l |
| 2d4e0 | 69 73 74 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 68 69 64 65 2d 64 65 74 61 | ist.slime-trace-dialog-hide-deta |
| 2d500 | 69 6c 73 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ils-mode........................ |
| 2d520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 | .............(slime-trace-dialog |
| 2d540 | 2d 2d 74 72 61 63 65 2d 63 6f 6c 6c 61 70 73 65 64 2d 70 20 74 72 61 63 65 29 29 0a 20 20 20 20 | --trace-collapsed-p.trace))..... |
| 2d560 | 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | .........when.condition......... |
| 2d580 | 20 20 20 20 20 64 6f 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 68 69 64 | .....do.(slime-trace-dialog--hid |
| 2d5a0 | 65 2d 75 6e 68 69 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | e-unhide..................(slime |
| 2d5c0 | 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 73 75 6d 6d 61 72 79 2d 62 65 67 | -trace-dialog--trace-summary-beg |
| 2d5e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 | ...................trace)....... |
| 2d600 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d | ...........(slime-trace-dialog-- |
| 2d620 | 74 72 61 63 65 2d 65 6e 64 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | trace-end.trace)................ |
| 2d640 | 20 20 31 29 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 74 72 20 3d 20 74 72 61 63 | ..1)).....(cl-loop.for.tr.=.trac |
| 2d660 | 65 20 74 68 65 6e 20 70 61 72 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 | e.then.parent..............for.p |
| 2d680 | 61 72 65 6e 74 20 3d 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 | arent.=.(slime-trace-dialog--tra |
| 2d6a0 | 63 65 2d 70 61 72 65 6e 74 20 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 | ce-parent.tr)..............while |
| 2d6c0 | 20 70 61 72 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 73 6c 69 6d 65 | .parent..............when.(slime |
| 2d6e0 | 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 63 6f 6c 6c 61 70 73 65 64 2d 70 | -trace-dialog--trace-collapsed-p |
| 2d700 | 20 70 61 72 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 6c 69 6d 65 2d | .parent)..............do.(slime- |
| 2d720 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 68 69 64 65 2d 75 6e 68 69 64 65 0a 20 20 20 20 20 20 | trace-dialog--hide-unhide....... |
| 2d740 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d | ...........(slime-trace-dialog-- |
| 2d760 | 74 72 61 63 65 2d 62 65 67 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | trace-beg.trace)................ |
| 2d780 | 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 65 6e 64 | ..(slime-trace-dialog--trace-end |
| 2d7a0 | 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 31 0a 20 20 | .trace)..................(+.1... |
| 2d7c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 67 65 74 2d 74 65 78 74 2d | ..................(or.(get-text- |
| 2d7e0 | 70 72 6f 70 65 72 74 79 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 | property.(slime-trace-dialog--tr |
| 2d800 | 61 63 65 2d 62 65 67 20 70 61 72 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ace-beg.parent)................. |
| 2d820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d | ...........................'slim |
| 2d840 | 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 68 69 64 64 65 6e 2d 6c 65 76 65 6c 29 0a 20 20 | e-trace-dialog--hidden-level)... |
| 2d860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 29 29 29 0a 20 20 20 20 20 | ......................0)))...... |
| 2d880 | 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 74 75 72 6e 29 29 0a 20 20 20 20 3b 3b 20 6d 61 79 62 | ........(cl-return)).....;;.mayb |
| 2d8a0 | 65 20 61 64 64 20 74 68 65 20 63 6f 6c 6c 61 70 73 65 2d 62 75 74 74 6f 6e 20 74 6f 20 74 68 65 | e.add.the.collapse-button.to.the |
| 2d8c0 | 20 70 61 72 65 6e 74 20 69 6e 20 63 61 73 65 20 69 74 20 64 69 64 6e 27 74 0a 20 20 20 20 3b 3b | .parent.in.case.it.didn't.....;; |
| 2d8e0 | 20 68 61 76 65 20 6f 6e 65 20 61 6c 72 65 61 64 79 0a 20 20 20 20 3b 3b 0a 20 20 20 20 28 77 68 | .have.one.already.....;;.....(wh |
| 2d900 | 65 6e 20 28 61 6e 64 20 70 61 72 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | en.(and.parent................(s |
| 2d920 | 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 63 6f 6c 6c 61 70 73 | lime-trace-dialog--trace-collaps |
| 2d940 | 65 2d 62 75 74 74 6f 6e 2d 6d 61 72 6b 65 72 20 70 61 72 65 6e 74 29 29 0a 20 20 20 20 20 20 28 | e-button-marker.parent)).......( |
| 2d960 | 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6d 61 69 6e 74 61 69 6e 69 6e 67 2d | slime-trace-dialog--maintaining- |
| 2d980 | 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 | properties...........(slime-trac |
| 2d9a0 | 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 63 6f 6c 6c 61 70 73 65 2d 62 75 74 74 6f 6e 2d | e-dialog--trace-collapse-button- |
| 2d9c0 | 6d 61 72 6b 65 72 20 70 61 72 65 6e 74 29 0a 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 63 | marker.parent).........(delete-c |
| 2d9e0 | 68 61 72 20 31 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 73 6c 69 6d 65 2d 74 72 | har.1).........(insert.(slime-tr |
| 2da00 | 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6d 61 6b 65 2d 63 6f 6c 6c 61 70 73 65 2d 62 75 74 74 6f 6e | ace-dialog--make-collapse-button |
| 2da20 | 20 70 61 72 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 74 | .parent)).........(setf.(slime-t |
| 2da40 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 63 6f 6c 6c 61 70 73 65 2d 62 75 74 74 | race-dialog--trace-collapse-butt |
| 2da60 | 6f 6e 2d 6d 61 72 6b 65 72 20 70 61 72 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on-marker.parent)............... |
| 2da80 | 6e 69 6c 29 29 29 0a 20 20 20 20 3b 3b 20 64 72 61 77 20 74 68 65 20 74 72 65 65 20 6c 69 6e 65 | nil))).....;;.draw.the.tree.line |
| 2daa0 | 73 0a 20 20 20 20 3b 3b 0a 20 20 20 20 28 77 68 65 6e 20 70 61 72 65 6e 74 0a 20 20 20 20 20 20 | s.....;;.....(when.parent....... |
| 2dac0 | 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 64 72 61 77 2d 74 72 65 65 2d 6c | (slime-trace-dialog--draw-tree-l |
| 2dae0 | 69 6e 65 73 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d | ines.(slime-trace-dialog--trace- |
| 2db00 | 62 65 67 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | beg.trace)...................... |
| 2db20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 32 20 28 6c 65 6e 67 | ......................(+.2.(leng |
| 2db40 | 74 68 20 69 6e 64 65 6e 74 2d 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | th.indent-spec))................ |
| 2db60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 75 70 29 | ............................'up) |
| 2db80 | 29 0a 20 20 20 20 28 77 68 65 6e 20 68 61 73 2d 63 68 69 6c 64 72 65 6e 2d 70 0a 20 20 20 20 20 | ).....(when.has-children-p...... |
| 2dba0 | 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 64 72 61 77 2d 74 72 65 65 2d | .(slime-trace-dialog--draw-tree- |
| 2dbc0 | 6c 69 6e 65 73 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 | lines.(slime-trace-dialog--trace |
| 2dbe0 | 2d 62 65 67 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -beg.trace)..................... |
| 2dc00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 35 20 28 6c 65 6e | .......................(+.5.(len |
| 2dc20 | 67 74 68 20 69 6e 64 65 6e 74 2d 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gth.indent-spec))............... |
| 2dc40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 64 6f | .............................'do |
| 2dc60 | 77 6e 29 29 0a 20 20 20 20 3b 3b 20 73 65 74 20 74 68 65 20 22 63 68 69 6c 64 72 65 6e 2d 65 6e | wn)).....;;.set.the."children-en |
| 2dc80 | 64 22 20 73 6c 6f 74 0a 20 20 20 20 3b 3b 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 73 6c 69 6d | d".slot.....;;.....(unless.(slim |
| 2dca0 | 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 63 68 69 6c 64 72 65 6e 2d 65 | e-trace-dialog--trace-children-e |
| 2dcc0 | 6e 64 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 70 61 72 | nd.trace).......(cl-loop.for.par |
| 2dce0 | 65 6e 74 20 3d 20 74 72 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 | ent.=.trace................then. |
| 2dd00 | 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 70 61 72 65 6e | (slime-trace-dialog--trace-paren |
| 2dd20 | 74 20 70 61 72 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 70 | t.parent)................while.p |
| 2dd40 | 61 72 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 | arent................do......... |
| 2dd60 | 20 20 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 | .......(setf.(slime-trace-dialog |
| 2dd80 | 2d 2d 74 72 61 63 65 2d 63 68 69 6c 64 72 65 6e 2d 65 6e 64 20 70 61 72 65 6e 74 29 0a 20 20 20 | --trace-children-end.parent).... |
| 2dda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 | ..................(slime-trace-d |
| 2ddc0 | 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 65 6e 64 20 74 72 61 63 65 29 29 29 29 29 29 0a 0a 28 64 | ialog--trace-end.trace))))))..(d |
| 2dde0 | 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 72 65 6e 64 65 72 2d | efun.slime-trace-dialog--render- |
| 2de00 | 74 72 61 63 65 20 28 74 72 61 63 65 29 0a 20 20 3b 3b 20 52 65 6e 64 65 72 20 74 68 65 20 74 72 | trace.(trace)...;;.Render.the.tr |
| 2de20 | 61 63 65 20 65 6e 74 72 79 20 69 6e 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 70 6c 61 | ace.entry.in.the.appropriate.pla |
| 2de40 | 63 65 2e 0a 20 20 3b 3b 0a 20 20 3b 3b 20 41 20 74 72 61 63 65 20 62 65 63 6f 6d 65 73 20 61 20 | ce....;;...;;.A.trace.becomes.a. |
| 2de60 | 66 65 77 20 6c 69 6e 65 73 20 6f 66 20 73 6c 69 67 68 74 6c 79 20 70 72 6f 70 65 72 74 69 7a 65 | few.lines.of.slightly.propertize |
| 2de80 | 64 20 74 65 78 74 20 69 6e 20 74 68 65 0a 20 20 3b 3b 20 62 75 66 66 65 72 2c 20 69 6e 73 65 72 | d.text.in.the...;;.buffer,.inser |
| 2dea0 | 74 65 64 20 62 79 20 60 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 69 6e 73 65 | ted.by.`slime-trace-dialog--inse |
| 2dec0 | 72 74 2d 74 72 61 63 65 27 2c 20 62 6f 75 6e 64 20 62 79 0a 20 20 3b 3b 20 70 6f 69 6e 74 20 6d | rt-trace',.bound.by...;;.point.m |
| 2dee0 | 61 72 6b 65 72 73 20 74 68 61 74 20 77 65 20 75 73 65 20 68 65 72 65 2e 0a 20 20 3b 3b 0a 20 20 | arkers.that.we.use.here....;;... |
| 2df00 | 3b 3b 20 54 68 65 20 6e 65 77 20 74 72 61 63 65 20 6d 69 67 68 74 20 62 65 20 72 65 70 6c 61 63 | ;;.The.new.trace.might.be.replac |
| 2df20 | 69 6e 67 20 61 6e 20 65 78 69 73 74 69 6e 67 20 6f 6e 65 2c 20 6f 72 20 6f 74 68 65 72 77 69 73 | ing.an.existing.one,.or.otherwis |
| 2df40 | 65 0a 20 20 3b 3b 20 6d 75 73 74 20 62 65 20 70 6c 61 63 65 64 20 75 6e 64 65 72 20 69 74 73 20 | e...;;.must.be.placed.under.its. |
| 2df60 | 65 78 69 73 74 69 6e 67 20 70 61 72 65 6e 74 20 77 68 69 63 68 20 6d 69 67 68 74 20 6f 72 20 6d | existing.parent.which.might.or.m |
| 2df80 | 69 67 68 74 20 6e 6f 74 0a 20 20 3b 3b 20 62 65 20 74 68 65 20 6c 61 73 74 20 65 6e 74 72 79 20 | ight.not...;;.be.the.last.entry. |
| 2dfa0 | 69 6e 73 65 72 74 65 64 2e 0a 20 20 3b 3b 0a 20 20 28 6c 65 74 20 28 28 65 78 69 73 74 69 6e 67 | inserted....;;...(let.((existing |
| 2dfc0 | 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 69 6e 64 2d 74 72 61 63 65 | .(slime-trace-dialog--find-trace |
| 2dfe0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 | ....................(slime-trace |
| 2e000 | 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 69 64 20 74 72 61 63 65 29 29 29 0a 20 20 20 20 20 | -dialog--trace-id.trace)))...... |
| 2e020 | 20 20 20 28 70 61 72 65 6e 74 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d | ...(parent.(slime-trace-dialog-- |
| 2e040 | 74 72 61 63 65 2d 70 61 72 65 6e 74 20 74 72 61 63 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | trace-parent.trace))).....(cond. |
| 2e060 | 28 65 78 69 73 74 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4f 74 68 65 72 20 74 72 | (existing............;;.Other.tr |
| 2e080 | 61 63 65 73 20 6d 69 67 68 74 20 61 6c 72 65 61 64 79 20 72 65 66 65 72 65 6e 63 65 20 60 65 78 | aces.might.already.reference.`ex |
| 2e0a0 | 69 73 74 69 6e 67 27 20 61 6e 64 20 77 69 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6e | isting'.and.with............;;.n |
| 2e0c0 | 65 65 64 20 74 6f 20 6d 61 69 6e 74 61 69 6e 20 74 68 61 74 20 65 71 6e 65 73 73 2e 20 42 65 73 | eed.to.maintain.that.eqness..Bes |
| 2e0e0 | 74 20 77 61 79 20 74 6f 20 64 6f 20 74 68 61 74 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 3b | t.way.to.do.that.is............; |
| 2e100 | 3b 20 64 65 73 74 72 75 63 74 69 76 65 6c 79 20 6d 6f 64 69 66 79 20 60 65 78 69 73 74 69 6e 67 | ;.destructively.modify.`existing |
| 2e120 | 27 20 77 69 74 68 20 74 68 65 20 6e 65 77 20 72 65 74 6c 69 73 74 2e 2e 2e 0a 20 20 20 20 20 20 | '.with.the.new.retlist.......... |
| 2e140 | 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d | .....;;............(setf.(slime- |
| 2e160 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 72 65 74 6c 69 73 74 20 65 78 69 73 | trace-dialog--trace-retlist.exis |
| 2e180 | 74 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 | ting)..................(slime-tr |
| 2e1a0 | 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 72 65 74 6c 69 73 74 20 74 72 61 63 65 29 | ace-dialog--trace-retlist.trace) |
| 2e1c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 77 2c 20 62 65 66 6f 72 65 20 64 65 6c 65 | )............;;.Now,.before.dele |
| 2e1e0 | 74 69 6e 67 20 61 6e 64 20 72 65 2d 69 6e 73 65 72 74 69 6e 67 20 60 65 78 69 73 74 69 6e 67 27 | ting.and.re-inserting.`existing' |
| 2e200 | 20 61 74 20 61 6e 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 72 62 69 74 72 61 72 79 20 70 | .at.an............;;.arbitrary.p |
| 2e220 | 6f 69 6e 74 20 69 6e 20 74 68 65 20 74 72 65 65 2c 20 6e 6f 74 65 20 74 68 61 74 20 69 74 27 73 | oint.in.the.tree,.note.that.it's |
| 2e240 | 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 22 63 68 69 6c 64 72 65 6e 2d 65 6e 64 22 20 6d 61 | ............;;."children-end".ma |
| 2e260 | 72 6b 65 72 20 69 73 20 61 6c 72 65 61 64 79 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 6e 64 20 69 6e 66 | rker.is.already.non-nil,.and.inf |
| 2e280 | 6f 72 6d 73 20 75 73 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 62 6f 75 74 20 69 74 73 20 | orms.us............;;.about.its. |
| 2e2a0 | 70 61 72 65 6e 74 68 6f 6f 64 20 73 74 61 74 75 73 2e 20 57 65 20 77 61 6e 74 20 74 6f 20 31 2e | parenthood.status..We.want.to.1. |
| 2e2c0 | 20 6c 65 61 76 65 20 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 6c 6f 6e 65 20 69 66 | .leave.it............;;.alone.if |
| 2e2e0 | 20 69 74 27 73 20 61 6c 72 65 61 64 79 20 61 20 70 61 72 65 6e 74 2c 20 6f 72 20 32 2e 20 73 65 | .it's.already.a.parent,.or.2..se |
| 2e300 | 74 20 69 74 20 74 6f 20 6e 69 6c 20 69 66 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 74 27 | t.it.to.nil.if............;;.it' |
| 2e320 | 73 20 61 20 6c 65 61 66 2c 20 74 68 75 73 20 66 6f 72 63 69 6e 67 20 74 68 65 20 6e 65 65 64 65 | s.a.leaf,.thus.forcing.the.neede |
| 2e340 | 64 20 75 70 64 61 74 65 20 6f 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 61 | d.update.of.the............;;.pa |
| 2e360 | 72 65 6e 74 73 27 20 22 63 68 69 6c 64 72 65 6e 2d 65 6e 64 22 20 6d 61 72 6b 65 72 2e 0a 20 20 | rents'."children-end".marker.... |
| 2e380 | 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3d 20 | .........;;............(when.(=. |
| 2e3a0 | 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 63 68 69 6c 64 | (slime-trace-dialog--trace-child |
| 2e3c0 | 72 65 6e 2d 65 6e 64 20 65 78 69 73 74 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ren-end.existing)............... |
| 2e3e0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 | ......(slime-trace-dialog--trace |
| 2e400 | 2d 65 6e 64 20 65 78 69 73 74 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | -end.existing))..............(se |
| 2e420 | 74 66 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 63 68 | tf.(slime-trace-dialog--trace-ch |
| 2e440 | 69 6c 64 72 65 6e 2d 65 6e 64 20 65 78 69 73 74 69 6e 67 29 20 6e 69 6c 29 29 0a 20 20 20 20 20 | ildren-end.existing).nil))...... |
| 2e460 | 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 73 6c 69 6d 65 2d 74 72 61 63 | ......(delete-region.(slime-trac |
| 2e480 | 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 62 65 67 20 65 78 69 73 74 69 6e 67 29 0a 20 20 | e-dialog--trace-beg.existing)... |
| 2e4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 | ........................(slime-t |
| 2e4c0 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 65 6e 64 20 65 78 69 73 74 69 6e 67 29 | race-dialog--trace-end.existing) |
| 2e4e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 73 6c 69 6d 65 2d 74 | )............(goto-char.(slime-t |
| 2e500 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 65 6e 64 20 65 78 69 73 74 69 6e 67 29 | race-dialog--trace-end.existing) |
| 2e520 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 52 65 6d 65 6d 62 65 72 20 74 6f 20 73 65 74 20 | )............;;.Remember.to.set. |
| 2e540 | 60 74 72 61 63 65 27 20 74 6f 20 62 65 20 60 65 78 69 73 74 69 6e 67 27 0a 20 20 20 20 20 20 20 | `trace'.to.be.`existing'........ |
| 2e560 | 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 72 61 63 65 20 65 78 | ....;;............(setq.trace.ex |
| 2e580 | 69 73 74 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 61 72 65 6e 74 0a 20 20 20 20 20 | isting))...........(parent...... |
| 2e5a0 | 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 31 2b 20 28 73 6c 69 6d 65 2d 74 72 61 63 | ......(goto-char.(1+.(slime-trac |
| 2e5c0 | 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 2d 63 68 69 6c 64 72 65 6e 2d 65 6e 64 20 70 61 72 | e-dialog--trace-children-end.par |
| 2e5e0 | 65 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 3b 3b 20 74 6f 70 20 6c 65 76 65 6c 20 | ent))))...........(;;.top.level. |
| 2e600 | 74 72 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 | trace............t............(g |
| 2e620 | 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 28 67 6f 74 | oto-char.(point-max)))).....(got |
| 2e640 | 6f 2d 63 68 61 72 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 | o-char.(line-beginning-position) |
| 2e660 | 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 69 6e 73 65 72 | ).....(slime-trace-dialog--inser |
| 2e680 | 74 2d 74 72 61 63 65 20 74 72 61 63 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 | t-trace.trace)))..(defun.slime-t |
| 2e6a0 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 75 70 64 61 74 65 2d 74 72 65 65 20 28 74 75 70 6c 65 73 | race-dialog--update-tree.(tuples |
| 2e6c0 | 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 | )...(save-excursion.....(slime-t |
| 2e6e0 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 72 65 66 72 65 73 68 0a 20 20 20 20 20 20 20 20 28 3a 6f | race-dialog--refresh.........(:o |
| 2e700 | 76 65 72 6c 61 79 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 65 65 2d | verlay.slime-trace-dialog--tree- |
| 2e720 | 6f 76 65 72 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 6f 6e 74 2d | overlay...................:dont- |
| 2e740 | 65 72 61 73 65 20 74 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 74 75 70 6c | erase.t).......(cl-loop.for.tupl |
| 2e760 | 65 20 69 6e 20 74 75 70 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 | e.in.tuples................for.p |
| 2e780 | 61 72 65 6e 74 20 3d 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 69 6e | arent.=.(slime-trace-dialog--fin |
| 2e7a0 | 64 2d 74 72 61 63 65 20 28 63 6c 2d 73 65 63 6f 6e 64 20 74 75 70 6c 65 29 29 0a 20 20 20 20 20 | d-trace.(cl-second.tuple))...... |
| 2e7c0 | 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 74 72 61 63 65 20 3d 20 28 73 6c 69 6d 65 2d 74 72 61 | ..........for.trace.=.(slime-tra |
| 2e7e0 | 63 65 2d 64 69 61 6c 6f 67 2d 2d 6d 61 6b 65 2d 74 72 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 | ce-dialog--make-trace........... |
| 2e800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 28 63 6c 2d 66 69 72 73 74 20 | ..................:id.(cl-first. |
| 2e820 | 74 75 70 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tuple).......................... |
| 2e840 | 20 20 20 3a 70 61 72 65 6e 74 20 70 61 72 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...:parent.parent............... |
| 2e860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 70 65 63 20 28 63 6c 2d 74 68 69 72 64 20 74 75 | ..............:spec.(cl-third.tu |
| 2e880 | 70 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ple)............................ |
| 2e8a0 | 20 3a 61 72 67 73 20 28 63 6c 2d 66 6f 75 72 74 68 20 74 75 70 6c 65 29 0a 20 20 20 20 20 20 20 | .:args.(cl-fourth.tuple)........ |
| 2e8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 74 6c 69 73 74 20 28 63 | .....................:retlist.(c |
| 2e8e0 | 6c 2d 66 69 66 74 68 20 74 75 70 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-fifth.tuple).................. |
| 2e900 | 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 70 74 68 20 28 69 66 20 70 61 72 65 6e 74 0a 20 20 20 | ...........:depth.(if.parent.... |
| 2e920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2e940 | 20 20 20 20 28 31 2b 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 | ....(1+.(slime-trace-dialog--tra |
| 2e960 | 63 65 2d 64 65 70 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ce-depth........................ |
| 2e980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 65 6e 74 29 29 0a 20 20 | .....................parent))... |
| 2e9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2e9c0 | 20 20 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 6c 69 6d 65 2d | ...0))................do.(slime- |
| 2e9e0 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 72 65 6e 64 65 72 2d 74 72 61 63 65 20 74 72 61 63 65 | trace-dialog--render-trace.trace |
| 2ea00 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 | )))))..(defun.slime-trace-dialog |
| 2ea20 | 2d 2d 63 6c 65 61 72 2d 6c 6f 63 61 6c 2d 74 72 65 65 20 28 29 0a 20 20 28 73 65 74 20 28 6d 61 | --clear-local-tree.()...(set.(ma |
| 2ea40 | 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 | ke-local-variable.'slime-trace-d |
| 2ea60 | 69 61 6c 6f 67 2d 2d 66 65 74 63 68 2d 6b 65 79 29 0a 20 20 20 20 20 20 20 28 63 6c 2d 67 65 6e | ialog--fetch-key)........(cl-gen |
| 2ea80 | 73 79 6d 20 22 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 6b 65 | sym."slime-trace-dialog-fetch-ke |
| 2eaa0 | 79 2d 22 29 29 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c | y-"))...(set.(make-local-variabl |
| 2eac0 | 65 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 61 63 65 73 29 0a 20 | e.'slime-trace-dialog--traces).. |
| 2eae0 | 20 20 20 20 20 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 20 20 28 73 6c 69 6d | ......(make-hash-table))...(slim |
| 2eb00 | 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 72 65 66 72 65 73 68 0a 20 20 20 20 20 20 28 3a | e-trace-dialog--refresh.......(: |
| 2eb20 | 6f 76 65 72 6c 61 79 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 74 72 65 65 | overlay.slime-trace-dialog--tree |
| 2eb40 | 2d 6f 76 65 72 6c 61 79 29 29 0a 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 | -overlay))...(slime-trace-dialog |
| 2eb60 | 2d 2d 75 70 64 61 74 65 2d 70 72 6f 67 72 65 73 73 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 | --update-progress.nil))..(defun. |
| 2eb80 | 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6f 6e 2d 6e 65 77 2d 72 65 73 75 6c | slime-trace-dialog--on-new-resul |
| 2eba0 | 74 73 20 28 72 65 73 75 6c 74 73 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 63 75 72 73 65 29 0a 20 | ts.(results.&optional.recurse).. |
| 2ebc0 | 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 74 75 70 6c 65 73 20 | .(cl-destructuring-bind.(tuples. |
| 2ebe0 | 72 65 6d 61 69 6e 69 6e 67 20 72 65 70 6c 79 2d 6b 65 79 29 0a 20 20 20 20 20 20 72 65 73 75 6c | remaining.reply-key).......resul |
| 2ec00 | 74 73 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 | ts.....(cond.((and.slime-trace-d |
| 2ec20 | 69 61 6c 6f 67 2d 2d 66 65 74 63 68 2d 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ialog--fetch-key................ |
| 2ec40 | 20 28 73 74 72 69 6e 67 3d 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 6c 69 6d 65 2d 74 72 61 | .(string=.(symbol-name.slime-tra |
| 2ec60 | 63 65 2d 64 69 61 6c 6f 67 2d 2d 66 65 74 63 68 2d 6b 65 79 29 0a 20 20 20 20 20 20 20 20 20 20 | ce-dialog--fetch-key)........... |
| 2ec80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 72 65 70 6c | ...............(symbol-name.repl |
| 2eca0 | 79 2d 6b 65 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 | y-key)))............(slime-trace |
| 2ecc0 | 2d 64 69 61 6c 6f 67 2d 2d 75 70 64 61 74 65 2d 74 72 65 65 20 74 75 70 6c 65 73 29 0a 20 20 20 | -dialog--update-tree.tuples).... |
| 2ece0 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 75 70 64 | ........(slime-trace-dialog--upd |
| 2ed00 | 61 74 65 2d 70 72 6f 67 72 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 61 69 6e 69 | ate-progress.............remaini |
| 2ed20 | 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 72 65 63 75 72 73 65 0a 20 20 20 20 | ng.............(and.recurse..... |
| 2ed40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 70 6c 75 73 70 20 72 65 6d 61 69 6e 69 6e 67 | .............(cl-plusp.remaining |
| 2ed60 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | )).............t)............(wh |
| 2ed80 | 65 6e 20 28 61 6e 64 20 72 65 63 75 72 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | en.(and.recurse................. |
| 2eda0 | 20 20 20 20 20 20 28 6e 6f 74 20 28 70 72 6f 67 31 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 | ......(not.(prog1.slime-trace-di |
| 2edc0 | 61 6c 6f 67 2d 2d 73 74 6f 70 2d 66 65 74 63 68 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 | alog--stop-fetching............. |
| 2ede0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 74 72 61 | .................(setq.slime-tra |
| 2ee00 | 63 65 2d 64 69 61 6c 6f 67 2d 2d 73 74 6f 70 2d 66 65 74 63 68 69 6e 67 20 6e 69 6c 29 29 29 0a | ce-dialog--stop-fetching.nil))). |
| 2ee20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 70 6c 75 73 70 20 | ......................(cl-plusp. |
| 2ee40 | 72 65 6d 61 69 6e 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | remaining))..............(slime- |
| 2ee60 | 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 3a | eval-async.`(swank-trace-dialog: |
| 2ee80 | 72 65 70 6f 72 74 2d 70 61 72 74 69 61 6c 2d 74 72 65 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | report-partial-tree............. |
| 2eea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 72 65 70 6c 79 2d 6b 65 79 | .....................',reply-key |
| 2eec0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 72 65 73 75 | )................#'(lambda.(resu |
| 2eee0 | 6c 74 73 29 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6f 6e 2d 6e 65 77 | lts).(slime-trace-dialog--on-new |
| 2ef00 | 2d 72 65 73 75 6c 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -results........................ |
| 2ef20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 | .............results............ |
| 2ef40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 63 75 72 73 65 | .........................recurse |
| 2ef60 | 29 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 74 65 72 61 63 74 69 76 65 20 66 75 6e | ))))))))....;;;;.Interactive.fun |
| 2ef80 | 63 74 69 6f 6e 73 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 | ctions.;;;.(defun.slime-trace-di |
| 2efa0 | 61 6c 6f 67 2d 66 65 74 63 68 2d 73 70 65 63 73 20 28 29 0a 20 20 22 52 65 66 72 65 73 68 20 6a | alog-fetch-specs.()..."Refresh.j |
| 2efc0 | 75 73 74 20 6c 69 73 74 20 6f 66 20 74 72 61 63 65 64 20 73 70 65 63 73 2e 22 0a 20 20 28 69 6e | ust.list.of.traced.specs."...(in |
| 2efe0 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 | teractive)...(slime-eval-async.` |
| 2f000 | 28 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 3a 72 65 70 6f 72 74 2d 73 70 65 63 73 | (swank-trace-dialog:report-specs |
| 2f020 | 29 0a 20 20 20 20 23 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6f 70 65 6e | ).....#'slime-trace-dialog--open |
| 2f040 | 2d 73 70 65 63 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 | -specs))..(defun.slime-trace-dia |
| 2f060 | 6c 6f 67 2d 66 65 74 63 68 2d 70 72 6f 67 72 65 73 73 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 | log-fetch-progress.()...(interac |
| 2f080 | 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 | tive)...(slime-eval-async....... |
| 2f0a0 | 27 28 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 3a 72 65 70 6f 72 74 2d 74 6f 74 61 | '(swank-trace-dialog:report-tota |
| 2f0c0 | 6c 29 0a 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 74 6f 74 61 6c 29 0a 20 20 20 20 20 20 20 | l).....#'(lambda.(total)........ |
| 2f0e0 | 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 75 70 64 61 74 65 2d 70 72 6f | .(slime-trace-dialog--update-pro |
| 2f100 | 67 72 65 73 73 0a 20 20 20 20 20 20 20 20 20 74 6f 74 61 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e | gress..........total))))..(defun |
| 2f120 | 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 73 74 61 74 75 73 | .slime-trace-dialog-fetch-status |
| 2f140 | 20 28 29 0a 20 20 22 52 65 66 72 65 73 68 20 6a 75 73 74 20 74 68 65 20 73 74 61 74 75 73 20 70 | .()..."Refresh.just.the.status.p |
| 2f160 | 61 72 74 20 6f 66 20 74 68 65 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 22 0a 20 | art.of.the.SLIME.Trace.Dialog".. |
| 2f180 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 | .(interactive)...(slime-trace-di |
| 2f1a0 | 61 6c 6f 67 2d 66 65 74 63 68 2d 73 70 65 63 73 29 0a 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 | alog-fetch-specs)...(slime-trace |
| 2f1c0 | 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 70 72 6f 67 72 65 73 73 29 29 0a 0a 28 64 65 66 75 6e | -dialog-fetch-progress))..(defun |
| 2f1e0 | 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 63 6c 65 61 72 2d 66 65 74 63 68 65 | .slime-trace-dialog-clear-fetche |
| 2f200 | 64 2d 74 72 61 63 65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 74 65 72 61 63 74 69 76 65 29 | d-traces.(&optional.interactive) |
| 2f220 | 0a 20 20 22 43 6c 65 61 72 20 6c 6f 63 61 6c 20 61 6e 64 20 72 65 6d 6f 74 65 20 74 72 61 63 65 | ..."Clear.local.and.remote.trace |
| 2f240 | 73 20 63 6f 6c 6c 65 63 74 65 64 20 73 6f 20 66 61 72 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | s.collected.so.far"...(interacti |
| 2f260 | 76 65 20 22 70 22 29 0a 20 20 28 77 68 65 6e 20 28 6f 72 20 28 6e 6f 74 20 69 6e 74 65 72 61 63 | ve."p")...(when.(or.(not.interac |
| 2f280 | 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 43 6c 65 | tive).............(y-or-n-p."Cle |
| 2f2a0 | 61 72 20 61 6c 6c 20 63 6f 6c 6c 65 63 74 65 64 20 61 6e 64 20 66 65 74 63 68 65 64 20 74 72 61 | ar.all.collected.and.fetched.tra |
| 2f2c0 | 63 65 73 3f 22 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 | ces?")).....(slime-eval-async... |
| 2f2e0 | 20 20 20 20 20 20 27 28 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 3a 63 6c 65 61 72 | ......'(swank-trace-dialog:clear |
| 2f300 | 2d 74 72 61 63 65 2d 74 72 65 65 29 0a 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 5f 69 | -trace-tree).......#'(lambda.(_i |
| 2f320 | 67 6e 6f 72 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 | gnored)...........(slime-trace-d |
| 2f340 | 69 61 6c 6f 67 2d 2d 63 6c 65 61 72 2d 6c 6f 63 61 6c 2d 74 72 65 65 29 29 29 29 29 0a 0a 28 64 | ialog--clear-local-tree)))))..(d |
| 2f360 | 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 74 72 | efun.slime-trace-dialog-fetch-tr |
| 2f380 | 61 63 65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 72 65 63 75 72 73 65 29 0a 20 20 28 69 6e 74 65 | aces.(&optional.recurse)...(inte |
| 2f3a0 | 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 74 72 61 63 65 | ractive."P")...(setq.slime-trace |
| 2f3c0 | 2d 64 69 61 6c 6f 67 2d 2d 73 74 6f 70 2d 66 65 74 63 68 69 6e 67 20 6e 69 6c 29 0a 20 20 28 73 | -dialog--stop-fetching.nil)...(s |
| 2f3e0 | 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 | lime-eval-async.`(swank-trace-di |
| 2f400 | 61 6c 6f 67 3a 72 65 70 6f 72 74 2d 70 61 72 74 69 61 6c 2d 74 72 65 65 0a 20 20 20 20 20 20 20 | alog:report-partial-tree........ |
| 2f420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 | ...............',slime-trace-dia |
| 2f440 | 6c 6f 67 2d 2d 66 65 74 63 68 2d 6b 65 79 29 0a 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 72 | log--fetch-key).....#'(lambda.(r |
| 2f460 | 65 73 75 6c 74 73 29 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6f 6e 2d | esults).(slime-trace-dialog--on- |
| 2f480 | 6e 65 77 2d 72 65 73 75 6c 74 73 20 72 65 73 75 6c 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | new-results.results............. |
| 2f4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2f4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 63 75 72 73 65 29 29 29 29 0a 0a 28 64 65 | ................recurse))))..(de |
| 2f4e0 | 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6e 65 78 74 2d 62 75 74 74 | fun.slime-trace-dialog-next-butt |
| 2f500 | 6f 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 67 6f 62 61 63 6b 29 0a 20 20 28 69 6e 74 65 72 61 63 | on.(&optional.goback)...(interac |
| 2f520 | 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6e 64 65 72 20 28 69 66 20 67 6f 62 61 63 6b | tive)...(let.((finder.(if.goback |
| 2f540 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 70 72 65 76 69 6f 75 73 2d | .....................#'previous- |
| 2f560 | 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 | single-property-change.......... |
| 2f580 | 20 20 20 20 20 20 20 20 20 23 27 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d | .........#'next-single-property- |
| 2f5a0 | 63 68 61 6e 67 65 29 29 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 70 6f 73 20 3d | change))).....(cl-loop.for.pos.= |
| 2f5c0 | 20 28 66 75 6e 63 61 6c 6c 20 66 69 6e 64 65 72 20 28 70 6f 69 6e 74 29 20 27 61 63 74 69 6f 6e | .(funcall.finder.(point).'action |
| 2f5e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 70 6f 73 0a 20 20 20 20 20 20 20 | )..............while.pos........ |
| 2f600 | 20 20 20 20 20 20 64 6f 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 20 20 20 20 20 | ......do.(goto-char.pos)........ |
| 2f620 | 20 20 20 20 20 20 75 6e 74 69 6c 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 | ......until.(get-text-property.p |
| 2f640 | 6f 73 20 27 61 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 | os.'action))))..(defun.slime-tra |
| 2f660 | 63 65 2d 64 69 61 6c 6f 67 2d 70 72 65 76 2d 62 75 74 74 6f 6e 20 28 29 0a 20 20 28 69 6e 74 65 | ce-dialog-prev-button.()...(inte |
| 2f680 | 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 6e | ractive)...(slime-trace-dialog-n |
| 2f6a0 | 65 78 74 2d 62 75 74 74 6f 6e 20 27 67 6f 62 61 63 6b 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c | ext-button.'goback))..(defvar.sl |
| 2f6c0 | 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 61 66 74 65 72 2d 74 6f 67 67 6c 65 2d 68 6f | ime-trace-dialog-after-toggle-ho |
| 2f6e0 | 6f 6b 20 6e 69 6c 0a 20 20 22 48 6f 6f 6b 73 20 72 75 6e 20 61 66 74 65 72 20 74 6f 67 67 6c 69 | ok.nil..."Hooks.run.after.toggli |
| 2f700 | 6e 67 20 61 20 64 69 61 6c 6f 67 2d 74 72 61 63 65 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | ng.a.dialog-trace")..(defun.slim |
| 2f720 | 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 28 26 6f 70 | e-trace-dialog-toggle-trace.(&op |
| 2f740 | 74 69 6f 6e 61 6c 20 75 73 69 6e 67 2d 63 6f 6e 74 65 78 74 2d 70 29 0a 20 20 22 54 6f 67 67 6c | tional.using-context-p)..."Toggl |
| 2f760 | 65 20 74 68 65 20 64 69 61 6c 6f 67 2d 74 72 61 63 65 20 6f 66 20 74 68 65 20 73 70 65 63 20 61 | e.the.dialog-trace.of.the.spec.a |
| 2f780 | 74 20 70 6f 69 6e 74 2e 0a 0a 57 68 65 6e 20 55 53 49 4e 47 2d 43 4f 4e 54 45 58 54 2d 50 2c 20 | t.point...When.USING-CONTEXT-P,. |
| 2f7a0 | 61 74 74 65 6d 70 74 20 74 6f 20 64 65 63 69 70 68 65 72 20 6c 61 6d 62 64 61 73 2e 20 6d 65 74 | attempt.to.decipher.lambdas..met |
| 2f7c0 | 68 6f 64 73 20 61 6e 64 0a 6f 74 68 65 72 20 63 6f 6d 70 6c 69 63 61 74 65 64 20 66 75 6e 63 74 | hods.and.other.complicated.funct |
| 2f7e0 | 69 6f 6e 20 73 70 65 63 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a | ion.specs."...(interactive."P"). |
| 2f800 | 20 20 3b 3b 20 4e 6f 74 69 63 65 20 74 68 65 20 75 73 65 20 6f 66 20 22 73 70 65 63 20 73 74 72 | ..;;.Notice.the.use.of."spec.str |
| 2f820 | 69 6e 67 73 22 20 68 65 72 65 20 61 73 20 6f 70 70 6f 73 65 64 20 74 6f 20 74 68 65 0a 20 20 3b | ings".here.as.opposed.to.the...; |
| 2f840 | 3b 20 70 72 6f 70 65 72 20 63 6f 6e 73 20 73 70 65 63 73 20 77 65 20 75 73 65 20 6f 6e 20 74 68 | ;.proper.cons.specs.we.use.on.th |
| 2f860 | 65 20 73 77 61 6e 6b 20 73 69 64 65 2e 0a 20 20 3b 3b 0a 20 20 3b 3b 20 4e 6f 74 69 63 65 20 74 | e.swank.side....;;...;;.Notice.t |
| 2f880 | 68 65 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 75 73 65 20 6f 66 20 60 73 6c 69 6d 65 2d 74 72 61 | he.conditional.use.of.`slime-tra |
| 2f8a0 | 63 65 2d 71 75 65 72 79 27 20 66 6f 75 6e 64 20 69 6e 0a 20 20 3b 3b 20 73 77 61 6e 6b 2d 66 61 | ce-query'.found.in...;;.swank-fa |
| 2f8c0 | 6e 63 79 2d 74 72 61 63 65 2e 65 6c 0a 20 20 3b 3b 0a 20 20 28 6c 65 74 2a 20 28 28 73 70 65 63 | ncy-trace.el...;;...(let*.((spec |
| 2f8e0 | 2d 73 74 72 69 6e 67 20 28 69 66 20 75 73 69 6e 67 2d 63 6f 6e 74 65 78 74 2d 70 0a 20 20 20 20 | -string.(if.using-context-p..... |
| 2f900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 78 74 | ......................(slime-ext |
| 2f920 | 72 61 63 74 2d 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ract-context)................... |
| 2f940 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a | ......(slime-symbol-at-point))). |
| 2f960 | 20 20 20 20 20 20 20 20 20 28 73 70 65 63 2d 73 74 72 69 6e 67 20 28 69 66 20 28 66 62 6f 75 6e | .........(spec-string.(if.(fboun |
| 2f980 | 64 70 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 71 75 65 72 79 29 0a 20 20 20 20 20 20 20 20 20 | dp.'slime-trace-query).......... |
| 2f9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 71 75 | .................(slime-trace-qu |
| 2f9c0 | 65 72 79 20 73 70 65 63 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ery.spec-string)................ |
| 2f9e0 | 20 20 20 20 20 20 20 20 20 73 70 65 63 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 6d 65 73 | .........spec-string))).....(mes |
| 2fa00 | 73 61 67 65 20 22 25 73 22 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 2d 74 72 | sage."%s".(slime-eval.`(swank-tr |
| 2fa20 | 61 63 65 2d 64 69 61 6c 6f 67 3a 64 69 61 6c 6f 67 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 0a 20 | ace-dialog:dialog-toggle-trace.. |
| 2fa40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 2fa60 | 73 77 61 6e 6b 3a 3a 66 72 6f 6d 2d 73 74 72 69 6e 67 20 2c 73 70 65 63 2d 73 74 72 69 6e 67 29 | swank::from-string.,spec-string) |
| 2fa80 | 29 29 29 0a 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d | ))).....(run-hooks.'slime-trace- |
| 2faa0 | 64 69 61 6c 6f 67 2d 61 66 74 65 72 2d 74 6f 67 67 6c 65 2d 68 6f 6f 6b 29 29 29 0a 0a 28 64 65 | dialog-after-toggle-hook)))..(de |
| 2fac0 | 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 75 70 64 61 74 65 2d 65 | fun.slime-trace-dialog--update-e |
| 2fae0 | 78 69 73 74 69 6e 67 2d 64 69 61 6c 6f 67 20 28 29 0a 20 20 28 6c 65 74 20 28 28 65 78 69 73 74 | xisting-dialog.()...(let.((exist |
| 2fb00 | 69 6e 67 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 6c 69 76 65 2d 64 69 | ing.(slime-trace-dialog--live-di |
| 2fb20 | 61 6c 6f 67 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 65 78 69 73 74 69 6e 67 0a 20 20 20 20 20 | alog))).....(when.existing...... |
| 2fb40 | 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 65 78 69 73 74 69 6e 67 0a 20 | .(with-current-buffer.existing.. |
| 2fb60 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 | .......(slime-trace-dialog-fetch |
| 2fb80 | 2d 73 74 61 74 75 73 29 29 29 29 29 0a 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 74 | -status)))))..(add-hook.'slime-t |
| 2fba0 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 61 66 74 65 72 2d 74 6f 67 67 6c 65 2d 68 6f 6f 6b 0a 20 20 | race-dialog-after-toggle-hook... |
| 2fbc0 | 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 75 70 64 | ........'slime-trace-dialog--upd |
| 2fbe0 | 61 74 65 2d 65 78 69 73 74 69 6e 67 2d 64 69 61 6c 6f 67 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | ate-existing-dialog)..(defun.sli |
| 2fc00 | 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 74 6f 67 67 6c 65 2d 63 6f 6d 70 6c 65 78 2d 74 | me-trace-dialog-toggle-complex-t |
| 2fc20 | 72 61 63 65 20 28 29 0a 20 20 22 54 6f 67 67 6c 65 20 74 68 65 20 64 69 61 6c 6f 67 2d 74 72 61 | race.()..."Toggle.the.dialog-tra |
| 2fc40 | 63 65 20 6f 66 20 74 68 65 20 63 6f 6d 70 6c 65 78 20 73 70 65 63 20 61 74 20 70 6f 69 6e 74 2e | ce.of.the.complex.spec.at.point. |
| 2fc60 | 0a 0a 53 65 65 20 60 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 74 6f 67 67 6c 65 | ..See.`slime-trace-dialog-toggle |
| 2fc80 | 2d 74 72 61 63 65 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 | -trace'."...(interactive)...(sli |
| 2fca0 | 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 74 29 29 | me-trace-dialog-toggle-trace.t)) |
| 2fcc0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 20 28 26 6f 70 | ..(defun.slime-trace-dialog.(&op |
| 2fce0 | 74 69 6f 6e 61 6c 20 63 6c 65 61 72 2d 61 6e 64 2d 66 65 74 63 68 29 0a 20 20 22 53 68 6f 77 20 | tional.clear-and-fetch)..."Show. |
| 2fd00 | 74 72 61 63 65 20 64 69 61 6c 6f 67 20 61 6e 64 20 72 65 66 72 65 73 68 20 74 72 61 63 65 20 63 | trace.dialog.and.refresh.trace.c |
| 2fd20 | 6f 6c 6c 65 63 74 69 6f 6e 20 73 74 61 74 75 73 2e 0a 0a 57 69 74 68 20 6f 70 74 69 6f 6e 61 6c | ollection.status...With.optional |
| 2fd40 | 20 43 4c 45 41 52 2d 41 4e 44 2d 46 45 54 43 48 20 70 72 65 66 69 78 20 61 72 67 2c 20 63 6c 65 | .CLEAR-AND-FETCH.prefix.arg,.cle |
| 2fd60 | 61 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 72 65 65 0a 61 6e 64 20 66 65 74 63 68 20 61 20 | ar.the.current.tree.and.fetch.a. |
| 2fd80 | 66 69 72 73 74 20 62 61 74 63 68 20 6f 66 20 74 72 61 63 65 73 2e 22 0a 20 20 28 69 6e 74 65 72 | first.batch.of.traces."...(inter |
| 2fda0 | 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 | active."P")...(with-current-buff |
| 2fdc0 | 65 72 0a 20 20 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 74 | er.......(pop-to-buffer.(slime-t |
| 2fde0 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 65 6e 73 75 72 65 2d 62 75 66 66 65 72 29 29 0a 20 20 20 | race-dialog--ensure-buffer)).... |
| 2fe00 | 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 73 74 61 74 75 | .(slime-trace-dialog-fetch-statu |
| 2fe20 | 73 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 63 6c 65 61 72 2d 61 6e 64 2d 66 65 74 63 68 | s).....(when.(or.clear-and-fetch |
| 2fe40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 73 6c 69 6d 65 2d 74 72 61 63 65 | ...............(null.slime-trace |
| 2fe60 | 2d 64 69 61 6c 6f 67 2d 2d 66 65 74 63 68 2d 6b 65 79 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d | -dialog--fetch-key)).......(slim |
| 2fe80 | 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 2d 63 6c 65 61 72 2d 6c 6f 63 61 6c 2d 74 72 65 65 | e-trace-dialog--clear-local-tree |
| 2fea0 | 29 29 0a 20 20 20 20 28 77 68 65 6e 20 63 6c 65 61 72 2d 61 6e 64 2d 66 65 74 63 68 0a 20 20 20 | )).....(when.clear-and-fetch.... |
| 2fec0 | 20 20 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 74 72 61 | ...(slime-trace-dialog-fetch-tra |
| 2fee0 | 63 65 73 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d | ces.nil))))..(defun.slime-trace- |
| 2ff00 | 64 69 61 6c 6f 67 2d 63 6f 70 79 2d 64 6f 77 6e 2d 74 6f 2d 72 65 70 6c 20 28 69 64 20 70 61 72 | dialog-copy-down-to-repl.(id.par |
| 2ff20 | 74 2d 69 64 20 74 79 70 65 29 0a 20 20 22 45 76 61 6c 20 74 68 65 20 54 72 61 63 65 20 44 69 61 | t-id.type)..."Eval.the.Trace.Dia |
| 2ff40 | 6c 6f 67 20 65 6e 74 72 79 20 75 6e 64 65 72 20 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 52 45 50 | log.entry.under.point.in.the.REP |
| 2ff60 | 4c 20 28 74 6f 20 73 65 74 20 2a 29 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 63 6c | L.(to.set.*)"...(interactive.(cl |
| 2ff80 | 2d 6c 6f 6f 70 20 66 6f 72 20 70 72 6f 70 20 69 6e 20 27 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d | -loop.for.prop.in.'(slime-trace- |
| 2ffa0 | 64 69 61 6c 6f 67 2d 2d 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dialog--id...................... |
| 2ffc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 | .................slime-trace-dia |
| 2ffe0 | 6c 6f 67 2d 2d 70 61 72 74 2d 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | log--part-id.................... |
| 30000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 | ...................slime-trace-d |
| 30020 | 69 61 6c 6f 67 2d 2d 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ialog--type).................... |
| 30040 | 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 | .....collect.(get-text-property. |
| 30060 | 28 70 6f 69 6e 74 29 20 70 72 6f 70 29 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 69 | (point).prop)))...(unless.(and.i |
| 30080 | 64 20 70 61 72 74 2d 69 64 20 74 79 70 65 29 20 28 65 72 72 6f 72 20 22 4e 6f 20 74 72 61 63 65 | d.part-id.type).(error."No.trace |
| 300a0 | 20 70 61 72 74 20 61 74 20 70 6f 69 6e 74 20 25 73 22 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 28 | .part.at.point.%s".(point)))...( |
| 300c0 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 6e 64 2d 73 74 72 69 6e 67 0a 20 20 20 28 66 6f 72 6d 61 | slime-repl-send-string....(forma |
| 300e0 | 74 20 22 25 73 22 20 60 28 6e 74 68 2d 76 61 6c 75 65 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 | t."%s".`(nth-value.0............ |
| 30100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 | .................(swank-trace-di |
| 30120 | 61 6c 6f 67 3a 3a 66 69 6e 64 2d 74 72 61 63 65 2d 70 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 | alog::find-trace-part........... |
| 30140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 69 64 20 2c 70 61 72 74 2d 69 64 20 | ...................,id.,part-id. |
| 30160 | 2c 74 79 70 65 29 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 29 29 0a 0a 28 70 72 6f 76 | ,type))))...(slime-repl))..(prov |
| 30180 | 69 64 65 20 27 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 29 0a 00 00 00 00 00 00 00 | ide.'slime-trace-dialog)........ |
| 301a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 301c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 301e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 30200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 6d 72 65 70 6c 2e 6c | slime-2.31/contrib/swank-mrepl.l |
| 30220 | 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | isp............................. |
| 30240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 30260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 30280 | 30 30 31 31 31 33 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 30 30 30 00 20 30 00 00 00 | 0011134.00000000000.016000..0... |
| 302a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 302c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 302e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 30300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 30320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 30340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 30360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 30380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 303a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 303c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 303e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 30400 | 3b 3b 3b 20 73 77 61 6e 6b 2d 6d 72 65 70 6c 2e 6c 69 73 70 0a 3b 3b 0a 3b 3b 20 4c 69 63 65 6e | ;;;.swank-mrepl.lisp.;;.;;.Licen |
| 30420 | 63 65 3a 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a | ce:.public.domain..(in-package.: |
| 30440 | 73 77 61 6e 6b 29 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c | swank).(eval-when.(:compile-topl |
| 30460 | 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 | evel.:load-toplevel.:execute)... |
| 30480 | 28 6c 65 74 20 28 28 61 70 69 20 27 28 0a 09 20 20 20 20 20 20 20 2a 65 6d 61 63 73 2d 63 6f 6e | (let.((api.'(.........*emacs-con |
| 304a0 | 6e 65 63 74 69 6f 6e 2a 0a 09 20 20 20 20 20 20 20 63 68 61 6e 6e 65 6c 20 0a 09 20 20 20 20 20 | nection*.........channel........ |
| 304c0 | 20 20 63 68 61 6e 6e 65 6c 2d 69 64 0a 09 20 20 20 20 20 20 20 64 65 66 69 6e 65 2d 63 68 61 6e | ..channel-id.........define-chan |
| 304e0 | 6e 65 6c 2d 6d 65 74 68 6f 64 0a 09 20 20 20 20 20 20 20 64 65 66 73 6c 69 6d 65 66 75 6e 20 0a | nel-method.........defslimefun.. |
| 30500 | 09 20 20 20 20 20 20 20 64 63 61 73 65 0a 09 20 20 20 20 20 20 20 6c 6f 67 2d 65 76 65 6e 74 0a | ........dcase.........log-event. |
| 30520 | 09 20 20 20 20 20 20 20 70 72 6f 63 65 73 73 2d 72 65 71 75 65 73 74 73 0a 09 20 20 20 20 20 20 | ........process-requests........ |
| 30540 | 20 73 65 6e 64 2d 74 6f 2d 72 65 6d 6f 74 65 2d 63 68 61 6e 6e 65 6c 0a 09 20 20 20 20 20 20 20 | .send-to-remote-channel......... |
| 30560 | 75 73 65 2d 74 68 72 65 61 64 73 2d 70 0a 09 20 20 20 20 20 20 20 77 61 69 74 2d 66 6f 72 2d 65 | use-threads-p.........wait-for-e |
| 30580 | 76 65 6e 74 0a 09 20 20 20 20 20 20 20 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 0a 09 20 20 20 20 | vent.........with-bindings...... |
| 305a0 | 20 20 20 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 09 20 20 20 20 20 20 20 77 69 74 68 2d | ...with-connection.........with- |
| 305c0 | 74 6f 70 2d 6c 65 76 65 6c 2d 72 65 73 74 61 72 74 0a 09 20 20 20 20 20 20 20 77 69 74 68 2d 73 | top-level-restart.........with-s |
| 305e0 | 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 0a 09 20 20 20 20 20 20 20 29 29 29 0a 20 20 20 20 | lime-interrupts.........)))..... |
| 30600 | 28 65 76 61 6c 20 60 28 64 65 66 70 61 63 6b 61 67 65 20 23 3a 73 77 61 6e 6b 2d 61 70 69 0a 09 | (eval.`(defpackage.#:swank-api.. |
| 30620 | 20 20 20 20 20 28 3a 75 73 65 29 0a 09 20 20 20 20 20 28 3a 69 6d 70 6f 72 74 2d 66 72 6f 6d 20 | .....(:use).......(:import-from. |
| 30640 | 23 3a 73 77 61 6e 6b 20 2e 20 2c 61 70 69 29 0a 09 20 20 20 20 20 28 3a 65 78 70 6f 72 74 20 2e | #:swank...,api).......(:export.. |
| 30660 | 20 2c 61 70 69 29 29 29 29 29 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2d 6d | .,api)))))..(defpackage.:swank-m |
| 30680 | 72 65 70 6c 0a 20 20 28 3a 75 73 65 20 3a 63 6c 20 3a 73 77 61 6e 6b 2d 61 70 69 29 0a 20 20 28 | repl...(:use.:cl.:swank-api)...( |
| 306a0 | 3a 65 78 70 6f 72 74 20 23 3a 63 72 65 61 74 65 2d 6d 72 65 70 6c 29 29 0a 0a 28 69 6e 2d 70 61 | :export.#:create-mrepl))..(in-pa |
| 306c0 | 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2d 6d 72 65 70 6c 29 0a 0a 28 64 65 66 63 6c 61 73 73 20 6c | ckage.:swank-mrepl)..(defclass.l |
| 306e0 | 69 73 74 65 6e 65 72 2d 63 68 61 6e 6e 65 6c 20 28 63 68 61 6e 6e 65 6c 29 0a 20 20 28 28 72 65 | istener-channel.(channel)...((re |
| 30700 | 6d 6f 74 65 20 3a 69 6e 69 74 61 72 67 20 3a 72 65 6d 6f 74 65 29 0a 20 20 20 28 65 6e 76 20 3a | mote.:initarg.:remote)....(env.: |
| 30720 | 69 6e 69 74 61 72 67 20 3a 65 6e 76 29 0a 20 20 20 28 6d 6f 64 65 20 3a 69 6e 69 74 66 6f 72 6d | initarg.:env)....(mode.:initform |
| 30740 | 20 3a 65 76 61 6c 29 0a 20 20 20 28 74 61 67 20 3a 69 6e 69 74 66 6f 72 6d 20 6e 69 6c 29 29 29 | .:eval)....(tag.:initform.nil))) |
| 30760 | 0a 0a 28 64 65 66 75 6e 20 70 61 63 6b 61 67 65 2d 70 72 6f 6d 70 74 20 28 70 61 63 6b 61 67 65 | ..(defun.package-prompt.(package |
| 30780 | 29 0a 20 20 28 72 65 64 75 63 65 20 28 6c 61 6d 62 64 61 20 28 78 20 79 29 20 28 69 66 20 28 3c | )...(reduce.(lambda.(x.y).(if.(< |
| 307a0 | 3d 20 28 6c 65 6e 67 74 68 20 78 29 20 28 6c 65 6e 67 74 68 20 79 29 29 20 78 20 79 29 29 0a 09 | =.(length.x).(length.y)).x.y)).. |
| 307c0 | 20 20 28 63 6f 6e 73 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 20 28 | ..(cons.(package-name.package).( |
| 307e0 | 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 73 20 70 61 63 6b 61 67 65 29 29 29 29 0a 0a 28 | package-nicknames.package))))..( |
| 30800 | 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 72 65 61 74 65 2d 6d 72 65 70 6c 20 28 72 65 6d 6f 74 65 | defslimefun.create-mrepl.(remote |
| 30820 | 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 6b 67 20 2a 70 61 63 6b 61 67 65 2a 29 0a 20 20 20 20 20 | )...(let*.((pkg.*package*)...... |
| 30840 | 20 20 20 20 28 63 6f 6e 6e 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 0a 09 20 | ....(conn.*emacs-connection*)... |
| 30860 | 28 74 68 72 65 61 64 20 28 69 66 20 28 75 73 65 2d 74 68 72 65 61 64 73 2d 70 29 0a 09 09 20 20 | (thread.(if.(use-threads-p)..... |
| 30880 | 20 20 20 28 73 70 61 77 6e 2d 6c 69 73 74 65 6e 65 72 2d 74 68 72 65 61 64 20 63 6f 6e 6e 29 0a | ...(spawn-listener-thread.conn). |
| 308a0 | 09 09 20 20 20 20 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 68 20 28 6d 61 6b 65 2d | .......nil))..........(ch.(make- |
| 308c0 | 69 6e 73 74 61 6e 63 65 20 27 6c 69 73 74 65 6e 65 72 2d 63 68 61 6e 6e 65 6c 20 3a 72 65 6d 6f | instance.'listener-channel.:remo |
| 308e0 | 74 65 20 72 65 6d 6f 74 65 20 3a 74 68 72 65 61 64 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 | te.remote.:thread.thread)))..... |
| 30900 | 28 73 65 74 66 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 63 68 20 27 65 6e 76 29 20 28 69 6e 69 74 | (setf.(slot-value.ch.'env).(init |
| 30920 | 69 61 6c 2d 6c 69 73 74 65 6e 65 72 2d 65 6e 76 20 63 68 29 29 0a 20 20 20 20 28 77 68 65 6e 20 | ial-listener-env.ch)).....(when. |
| 30940 | 74 68 72 65 61 64 0a 20 20 20 20 20 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 73 65 6e 64 | thread.......(swank/backend:send |
| 30960 | 20 74 68 72 65 61 64 20 60 28 3a 73 65 72 76 65 2d 63 68 61 6e 6e 65 6c 20 2c 63 68 29 29 29 0a | .thread.`(:serve-channel.,ch))). |
| 30980 | 20 20 20 20 28 6c 69 73 74 20 28 63 68 61 6e 6e 65 6c 2d 69 64 20 63 68 29 0a 09 20 20 28 73 77 | ....(list.(channel-id.ch)....(sw |
| 309a0 | 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 74 68 72 65 61 64 2d 69 64 20 28 6f 72 20 74 68 72 65 61 64 | ank/backend:thread-id.(or.thread |
| 309c0 | 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 | .(swank/backend:current-thread)) |
| 309e0 | 29 0a 09 20 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 6b 67 29 0a 09 20 20 28 70 61 63 6b | )....(package-name.pkg)....(pack |
| 30a00 | 61 67 65 2d 70 72 6f 6d 70 74 20 70 6b 67 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 69 74 69 | age-prompt.pkg))))..(defun.initi |
| 30a20 | 61 6c 2d 6c 69 73 74 65 6e 65 72 2d 65 6e 76 20 28 6c 69 73 74 65 6e 65 72 29 0a 20 20 60 28 28 | al-listener-env.(listener)...`(( |
| 30a40 | 2a 70 61 63 6b 61 67 65 2a 20 2e 20 2c 2a 70 61 63 6b 61 67 65 2a 29 0a 20 20 20 20 28 2a 73 74 | *package*...,*package*).....(*st |
| 30a60 | 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 20 2e 20 2c 28 6d 61 6b 65 2d 6c 69 73 74 65 6e 65 72 | andard-output*...,(make-listener |
| 30a80 | 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 6c 69 73 74 65 6e 65 72 29 29 0a 20 20 20 20 28 2a | -output-stream.listener)).....(* |
| 30aa0 | 73 74 61 6e 64 61 72 64 2d 69 6e 70 75 74 2a 20 2e 20 2c 28 6d 61 6b 65 2d 6c 69 73 74 65 6e 65 | standard-input*...,(make-listene |
| 30ac0 | 72 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 6c 69 73 74 65 6e 65 72 29 29 29 29 0a 0a 28 64 65 | r-input-stream.listener))))..(de |
| 30ae0 | 66 75 6e 20 73 70 61 77 6e 2d 6c 69 73 74 65 6e 65 72 2d 74 68 72 65 61 64 20 28 63 6f 6e 6e 65 | fun.spawn-listener-thread.(conne |
| 30b00 | 63 74 69 6f 6e 29 0a 20 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 73 70 61 77 6e 20 0a 20 | ction)...(swank/backend:spawn... |
| 30b20 | 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 | ..(lambda.()......(with-connecti |
| 30b40 | 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 64 63 61 73 65 20 28 73 | on.(connection)........(dcase.(s |
| 30b60 | 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 72 65 63 65 69 76 65 29 0a 09 20 28 28 3a 73 65 72 76 65 | wank/backend:receive)...((:serve |
| 30b80 | 2d 63 68 61 6e 6e 65 6c 20 63 29 0a 09 20 20 28 6c 6f 6f 70 0a 09 20 20 20 28 77 69 74 68 2d 74 | -channel.c)....(loop.....(with-t |
| 30ba0 | 6f 70 2d 6c 65 76 65 6c 2d 72 65 73 74 61 72 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 64 72 | op-level-restart.(connection.(dr |
| 30bc0 | 6f 70 2d 75 6e 70 72 6f 63 65 73 73 65 64 2d 65 76 65 6e 74 73 20 63 29 29 0a 09 20 20 20 20 20 | op-unprocessed-events.c))....... |
| 30be0 | 28 70 72 6f 63 65 73 73 2d 72 65 71 75 65 73 74 73 20 6e 69 6c 29 29 29 29 29 29 29 0a 20 20 20 | (process-requests.nil))))))).... |
| 30c00 | 3a 6e 61 6d 65 20 22 6d 72 65 70 6c 20 74 68 72 65 61 64 22 29 29 0a 0a 28 64 65 66 75 6e 20 64 | :name."mrepl.thread"))..(defun.d |
| 30c20 | 72 6f 70 2d 75 6e 70 72 6f 63 65 73 73 65 64 2d 65 76 65 6e 74 73 20 28 63 68 61 6e 6e 65 6c 29 | rop-unprocessed-events.(channel) |
| 30c40 | 0a 20 20 28 77 69 74 68 2d 73 6c 6f 74 73 20 28 6d 6f 64 65 29 20 63 68 61 6e 6e 65 6c 0a 20 20 | ...(with-slots.(mode).channel... |
| 30c60 | 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d 6d 6f 64 65 20 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 28 | ..(let.((old-mode.mode)).......( |
| 30c80 | 73 65 74 66 20 6d 6f 64 65 20 3a 64 72 6f 70 29 0a 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 | setf.mode.:drop).......(unwind-p |
| 30ca0 | 72 6f 74 65 63 74 0a 09 20 20 20 28 70 72 6f 63 65 73 73 2d 72 65 71 75 65 73 74 73 20 74 29 0a | rotect.....(process-requests.t). |
| 30cc0 | 09 28 73 65 74 66 20 6d 6f 64 65 20 6f 6c 64 2d 6d 6f 64 65 29 29 29 0a 20 20 20 20 28 73 65 6e | .(setf.mode.old-mode))).....(sen |
| 30ce0 | 64 2d 70 72 6f 6d 70 74 20 63 68 61 6e 6e 65 6c 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 63 68 61 | d-prompt.channel)))..(define-cha |
| 30d00 | 6e 6e 65 6c 2d 6d 65 74 68 6f 64 20 3a 70 72 6f 63 65 73 73 20 28 28 63 20 6c 69 73 74 65 6e 65 | nnel-method.:process.((c.listene |
| 30d20 | 72 2d 63 68 61 6e 6e 65 6c 29 20 73 74 72 69 6e 67 29 0a 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 | r-channel).string)...(log-event. |
| 30d40 | 22 3a 70 72 6f 63 65 73 73 20 7e 73 7e 25 22 20 73 74 72 69 6e 67 29 0a 20 20 28 77 69 74 68 2d | ":process.~s~%".string)...(with- |
| 30d60 | 73 6c 6f 74 73 20 28 6d 6f 64 65 20 72 65 6d 6f 74 65 29 20 63 0a 20 20 20 20 28 65 63 61 73 65 | slots.(mode.remote).c.....(ecase |
| 30d80 | 20 6d 6f 64 65 0a 20 20 20 20 20 20 28 3a 65 76 61 6c 20 28 6d 72 65 70 6c 2d 65 76 61 6c 20 63 | .mode.......(:eval.(mrepl-eval.c |
| 30da0 | 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 28 3a 72 65 61 64 20 28 6d 72 65 70 6c 2d 72 65 | .string)).......(:read.(mrepl-re |
| 30dc0 | 61 64 20 63 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 28 3a 64 72 6f 70 29 29 29 29 0a 0a | ad.c.string)).......(:drop)))).. |
| 30de0 | 28 64 65 66 75 6e 20 6d 72 65 70 6c 2d 65 76 61 6c 20 28 63 68 61 6e 6e 65 6c 20 73 74 72 69 6e | (defun.mrepl-eval.(channel.strin |
| 30e00 | 67 29 0a 20 20 28 77 69 74 68 2d 73 6c 6f 74 73 20 28 72 65 6d 6f 74 65 20 65 6e 76 29 20 63 68 | g)...(with-slots.(remote.env).ch |
| 30e20 | 61 6e 6e 65 6c 0a 20 20 20 20 28 6c 65 74 20 28 28 61 62 6f 72 74 65 64 20 74 29 29 0a 20 20 20 | annel.....(let.((aborted.t)).... |
| 30e40 | 20 20 20 28 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 20 65 6e 76 0a 09 28 75 6e 77 69 6e 64 2d 70 | ...(with-bindings.env..(unwind-p |
| 30e60 | 72 6f 74 65 63 74 20 0a 09 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 77 69 74 | rotect........(let.((result.(wit |
| 30e80 | 68 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 20 28 72 65 61 64 2d 65 76 61 6c 2d 70 72 | h-slime-interrupts.(read-eval-pr |
| 30ea0 | 69 6e 74 20 73 74 72 69 6e 67 29 29 29 29 0a 09 20 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d | int.string)))).........(send-to- |
| 30ec0 | 72 65 6d 6f 74 65 2d 63 68 61 6e 6e 65 6c 20 72 65 6d 6f 74 65 20 60 28 3a 77 72 69 74 65 2d 72 | remote-channel.remote.`(:write-r |
| 30ee0 | 65 73 75 6c 74 20 2c 72 65 73 75 6c 74 29 29 0a 09 20 20 20 20 20 20 20 28 73 65 74 71 20 61 62 | esult.,result)).........(setq.ab |
| 30f00 | 6f 72 74 65 64 20 6e 69 6c 29 29 0a 09 20 20 28 73 65 74 66 20 65 6e 76 20 28 6c 6f 6f 70 20 66 | orted.nil))....(setf.env.(loop.f |
| 30f20 | 6f 72 20 28 73 79 6d 29 20 69 6e 20 65 6e 76 0a 09 09 09 20 20 63 6f 6c 6c 65 63 74 20 28 63 6f | or.(sym).in.env......collect.(co |
| 30f40 | 6e 73 20 73 79 6d 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 73 79 6d 29 29 29 29 0a 09 20 20 | ns.sym.(symbol-value.sym)))).... |
| 30f60 | 28 63 6f 6e 64 20 28 61 62 6f 72 74 65 64 0a 09 09 20 28 73 65 6e 64 2d 74 6f 2d 72 65 6d 6f 74 | (cond.(aborted....(send-to-remot |
| 30f80 | 65 2d 63 68 61 6e 6e 65 6c 20 72 65 6d 6f 74 65 20 60 28 3a 65 76 61 6c 75 61 74 69 6f 6e 2d 61 | e-channel.remote.`(:evaluation-a |
| 30fa0 | 62 6f 72 74 65 64 29 29 29 0a 09 09 28 74 0a 09 09 20 28 73 65 6e 64 2d 70 72 6f 6d 70 74 20 63 | borted)))...(t....(send-prompt.c |
| 30fc0 | 68 61 6e 6e 65 6c 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 6e 64 2d 70 72 6f 6d | hannel))))))))..(defun.send-prom |
| 30fe0 | 70 74 20 28 63 68 61 6e 6e 65 6c 29 0a 20 20 28 77 69 74 68 2d 73 6c 6f 74 73 20 28 65 6e 76 20 | pt.(channel)...(with-slots.(env. |
| 31000 | 72 65 6d 6f 74 65 29 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 28 6c 65 74 20 28 28 70 6b 67 20 28 | remote).channel.....(let.((pkg.( |
| 31020 | 6f 72 20 28 63 64 72 20 28 61 73 73 6f 63 20 27 2a 70 61 63 6b 61 67 65 2a 20 65 6e 76 29 29 20 | or.(cdr.(assoc.'*package*.env)). |
| 31040 | 2a 70 61 63 6b 61 67 65 2a 29 29 0a 09 20 20 28 6f 75 74 20 28 63 64 72 20 28 61 73 73 6f 63 20 | *package*))....(out.(cdr.(assoc. |
| 31060 | 27 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 20 65 6e 76 29 29 29 0a 09 20 20 28 69 6e | '*standard-output*.env)))....(in |
| 31080 | 20 28 63 64 72 20 28 61 73 73 6f 63 20 27 2a 73 74 61 6e 64 61 72 64 2d 69 6e 70 75 74 2a 20 65 | .(cdr.(assoc.'*standard-input*.e |
| 310a0 | 6e 76 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 6f 75 74 20 28 66 6f 72 63 65 2d 6f 75 | nv)))).......(when.out.(force-ou |
| 310c0 | 74 70 75 74 20 6f 75 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 69 6e 20 28 63 6c 65 61 72 | tput.out)).......(when.in.(clear |
| 310e0 | 2d 69 6e 70 75 74 20 69 6e 29 29 0a 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 72 65 6d 6f 74 | -input.in)).......(send-to-remot |
| 31100 | 65 2d 63 68 61 6e 6e 65 6c 20 72 65 6d 6f 74 65 20 60 28 3a 70 72 6f 6d 70 74 20 2c 28 70 61 63 | e-channel.remote.`(:prompt.,(pac |
| 31120 | 6b 61 67 65 2d 6e 61 6d 65 20 70 6b 67 29 0a 09 09 09 09 09 20 20 20 20 20 20 20 2c 28 70 61 63 | kage-name.pkg).............,(pac |
| 31140 | 6b 61 67 65 2d 70 72 6f 6d 70 74 20 70 6b 67 29 29 29 29 29 29 0a 20 20 0a 28 64 65 66 75 6e 20 | kage-prompt.pkg))))))....(defun. |
| 31160 | 6d 72 65 70 6c 2d 72 65 61 64 20 28 63 68 61 6e 6e 65 6c 20 73 74 72 69 6e 67 29 0a 20 20 28 77 | mrepl-read.(channel.string)...(w |
| 31180 | 69 74 68 2d 73 6c 6f 74 73 20 28 74 61 67 29 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 28 61 73 73 | ith-slots.(tag).channel.....(ass |
| 311a0 | 65 72 74 20 74 61 67 29 0a 20 20 20 20 28 74 68 72 6f 77 20 74 61 67 20 73 74 72 69 6e 67 29 29 | ert.tag).....(throw.tag.string)) |
| 311c0 | 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 65 76 61 6c 2d 70 72 69 6e 74 20 28 73 74 72 69 6e | )..(defun.read-eval-print.(strin |
| 311e0 | 67 29 0a 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 69 6e | g)...(with-input-from-string.(in |
| 31200 | 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 73 65 74 71 20 2f 20 28 29 29 0a 20 20 20 20 28 6c 6f | .string).....(setq./.()).....(lo |
| 31220 | 6f 70 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 66 6f 72 6d 20 28 72 65 61 64 20 69 6e 20 | op........(let*.((form.(read.in. |
| 31240 | 6e 69 6c 20 69 6e 29 29 29 0a 09 20 28 63 6f 6e 64 20 28 28 65 71 20 66 6f 72 6d 20 69 6e 29 20 | nil.in)))...(cond.((eq.form.in). |
| 31260 | 28 72 65 74 75 72 6e 29 29 0a 09 20 20 20 20 20 20 20 28 74 20 28 73 65 74 71 20 2f 20 28 6d 75 | (return)).........(t.(setq./.(mu |
| 31280 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 65 76 61 6c 20 28 73 65 74 71 20 2b 20 | ltiple-value-list.(eval.(setq.+. |
| 312a0 | 66 6f 72 6d 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 29 0a | form)))))))).....(force-output). |
| 312c0 | 20 20 20 20 28 69 66 20 2f 0a 09 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 7b 7e 73 7e 25 7e 7d | ....(if./..(format.nil."~{~s~%~} |
| 312e0 | 22 20 2f 29 20 0a 09 22 3b 20 4e 6f 20 76 61 6c 75 65 73 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 | "./)...";.No.values")))..(defun. |
| 31300 | 6d 61 6b 65 2d 6c 69 73 74 65 6e 65 72 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 28 63 68 61 | make-listener-output-stream.(cha |
| 31320 | 6e 6e 65 6c 29 0a 20 20 28 6c 65 74 20 28 28 72 65 6d 6f 74 65 20 28 73 6c 6f 74 2d 76 61 6c 75 | nnel)...(let.((remote.(slot-valu |
| 31340 | 65 20 63 68 61 6e 6e 65 6c 20 27 72 65 6d 6f 74 65 29 29 29 0a 20 20 20 20 28 73 77 61 6e 6b 2f | e.channel.'remote))).....(swank/ |
| 31360 | 62 61 63 6b 65 6e 64 3a 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 0a 20 20 20 20 | backend:make-output-stream...... |
| 31380 | 20 28 6c 61 6d 62 64 61 20 28 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 28 73 65 6e 64 2d 74 | .(lambda.(string)........(send-t |
| 313a0 | 6f 2d 72 65 6d 6f 74 65 2d 63 68 61 6e 6e 65 6c 20 72 65 6d 6f 74 65 20 60 28 3a 77 72 69 74 65 | o-remote-channel.remote.`(:write |
| 313c0 | 2d 73 74 72 69 6e 67 20 2c 73 74 72 69 6e 67 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 | -string.,string))))))..(defun.ma |
| 313e0 | 6b 65 2d 6c 69 73 74 65 6e 65 72 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 28 63 68 61 6e 6e 65 | ke-listener-input-stream.(channe |
| 31400 | 6c 29 0a 20 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 6d 61 6b 65 2d 69 6e 70 75 74 2d 73 | l)...(swank/backend:make-input-s |
| 31420 | 74 72 65 61 6d 20 28 6c 61 6d 62 64 61 20 28 29 20 28 72 65 61 64 2d 69 6e 70 75 74 20 63 68 61 | tream.(lambda.().(read-input.cha |
| 31440 | 6e 6e 65 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 74 2d 6d 6f 64 65 20 28 63 68 61 6e 6e | nnel))))..(defun.set-mode.(chann |
| 31460 | 65 6c 20 6e 65 77 2d 6d 6f 64 65 29 0a 20 20 28 77 69 74 68 2d 73 6c 6f 74 73 20 28 6d 6f 64 65 | el.new-mode)...(with-slots.(mode |
| 31480 | 20 72 65 6d 6f 74 65 29 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 | .remote).channel.....(unless.(eq |
| 314a0 | 20 6d 6f 64 65 20 6e 65 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 72 | .mode.new-mode).......(send-to-r |
| 314c0 | 65 6d 6f 74 65 2d 63 68 61 6e 6e 65 6c 20 72 65 6d 6f 74 65 20 60 28 3a 73 65 74 2d 72 65 61 64 | emote-channel.remote.`(:set-read |
| 314e0 | 2d 6d 6f 64 65 20 2c 6e 65 77 2d 6d 6f 64 65 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 6d 6f 64 | -mode.,new-mode))).....(setf.mod |
| 31500 | 65 20 6e 65 77 2d 6d 6f 64 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 69 6e 70 75 74 | e.new-mode)))..(defun.read-input |
| 31520 | 20 28 63 68 61 6e 6e 65 6c 29 0a 20 20 28 77 69 74 68 2d 73 6c 6f 74 73 20 28 6d 6f 64 65 20 74 | .(channel)...(with-slots.(mode.t |
| 31540 | 61 67 20 72 65 6d 6f 74 65 29 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 | ag.remote).channel.....(force-ou |
| 31560 | 74 70 75 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d 6d 6f 64 65 20 6d 6f 64 65 29 0a | tput).....(let.((old-mode.mode). |
| 31580 | 09 20 20 28 6f 6c 64 2d 74 61 67 20 74 61 67 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 74 61 | ...(old-tag.tag)).......(setf.ta |
| 315a0 | 67 20 28 63 6f 6e 73 20 6e 69 6c 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 73 65 74 2d 6d 6f 64 | g.(cons.nil.nil)).......(set-mod |
| 315c0 | 65 20 63 68 61 6e 6e 65 6c 20 3a 72 65 61 64 29 0a 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 | e.channel.:read).......(unwind-p |
| 315e0 | 72 6f 74 65 63 74 20 0a 09 20 20 20 28 63 61 74 63 68 20 74 61 67 20 28 70 72 6f 63 65 73 73 2d | rotect......(catch.tag.(process- |
| 31600 | 72 65 71 75 65 73 74 73 20 6e 69 6c 29 29 0a 09 28 73 65 74 66 20 74 61 67 20 6f 6c 64 2d 74 61 | requests.nil))..(setf.tag.old-ta |
| 31620 | 67 29 0a 09 28 73 65 74 2d 6d 6f 64 65 20 63 68 61 6e 6e 65 6c 20 6f 6c 64 2d 6d 6f 64 65 29 29 | g)..(set-mode.channel.old-mode)) |
| 31640 | 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 6d 72 65 70 6c 29 0a 00 00 00 00 | )))..(provide.:swank-mrepl)..... |
| 31660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 316a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 316c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 316e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 317a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 317c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 317e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 | slime-2.31/contrib/swank-trace-d |
| 31820 | 69 61 6c 6f 67 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ialog.lisp...................... |
| 31840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 31880 | 30 30 32 31 33 35 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 32 32 30 00 20 30 00 00 00 | 0021353.00000000000.017220..0... |
| 318a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 318c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 318e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 31920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 31940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 319a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 319c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 319e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 31a00 | 28 64 65 66 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 0a | (defpackage.:swank-trace-dialog. |
| 31a20 | 20 20 28 3a 75 73 65 20 3a 63 6c 29 0a 20 20 28 3a 69 6d 70 6f 72 74 2d 66 72 6f 6d 20 3a 73 77 | ..(:use.:cl)...(:import-from.:sw |
| 31a40 | 61 6e 6b 20 3a 64 65 66 73 6c 69 6d 65 66 75 6e 20 3a 66 72 6f 6d 2d 73 74 72 69 6e 67 20 3a 74 | ank.:defslimefun.:from-string.:t |
| 31a60 | 6f 2d 73 74 72 69 6e 67 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 23 3a 63 6c 65 61 72 2d 74 72 61 | o-string)...(:export.#:clear-tra |
| 31a80 | 63 65 2d 74 72 65 65 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 64 69 61 6c 6f 67 2d 74 6f 67 67 | ce-tree............#:dialog-togg |
| 31aa0 | 6c 65 2d 74 72 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 64 69 61 6c 6f 67 2d 74 72 61 | le-trace............#:dialog-tra |
| 31ac0 | 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 64 69 61 6c 6f 67 2d 74 72 61 63 65 64 2d 70 0a | ce............#:dialog-traced-p. |
| 31ae0 | 20 20 20 20 20 20 20 20 20 20 20 23 3a 64 69 61 6c 6f 67 2d 75 6e 74 72 61 63 65 0a 20 20 20 20 | ...........#:dialog-untrace..... |
| 31b00 | 20 20 20 20 20 20 20 23 3a 64 69 61 6c 6f 67 2d 75 6e 74 72 61 63 65 2d 61 6c 6c 0a 20 20 20 20 | .......#:dialog-untrace-all..... |
| 31b20 | 20 20 20 20 20 20 20 23 3a 69 6e 73 70 65 63 74 2d 74 72 61 63 65 2d 70 61 72 74 0a 20 20 20 20 | .......#:inspect-trace-part..... |
| 31b40 | 20 20 20 20 20 20 20 23 3a 72 65 70 6f 72 74 2d 70 61 72 74 69 61 6c 2d 74 72 65 65 0a 20 20 20 | .......#:report-partial-tree.... |
| 31b60 | 20 20 20 20 20 20 20 20 23 3a 72 65 70 6f 72 74 2d 73 70 65 63 73 0a 20 20 20 20 20 20 20 20 20 | ........#:report-specs.......... |
| 31b80 | 20 20 23 3a 72 65 70 6f 72 74 2d 74 6f 74 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 72 65 | ..#:report-total............#:re |
| 31ba0 | 70 6f 72 74 2d 74 72 61 63 65 2d 64 65 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 72 | port-trace-detail............#:r |
| 31bc0 | 65 70 6f 72 74 2d 73 70 65 63 73 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 74 72 61 63 65 2d 66 | eport-specs............#:trace-f |
| 31be0 | 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 73 74 69 6c 6c 2d 69 6e 73 69 64 65 0a | ormat............#:still-inside. |
| 31c00 | 20 20 20 20 20 20 20 20 20 20 20 23 3a 65 78 69 74 65 64 2d 6e 6f 6e 2d 6c 6f 63 61 6c 6c 79 0a | ...........#:exited-non-locally. |
| 31c20 | 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 72 65 63 6f 72 64 2d 62 61 63 6b 74 72 61 63 65 2a 0a | ...........#:*record-backtrace*. |
| 31c40 | 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 74 72 61 63 65 73 2d 70 65 72 2d 72 65 70 6f 72 74 2a | ...........#:*traces-per-report* |
| 31c60 | 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 2a 64 69 61 6c 6f 67 2d 74 72 61 63 65 2d 66 6f 6c 6c | ............#:*dialog-trace-foll |
| 31c80 | 6f 77 73 2d 74 72 61 63 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 66 69 6e 64 2d 74 72 61 | ows-trace*............#:find-tra |
| 31ca0 | 63 65 2d 70 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 66 69 6e 64 2d 74 72 61 63 65 29 | ce-part............#:find-trace) |
| 31cc0 | 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c | )..(in-package.:swank-trace-dial |
| 31ce0 | 6f 67 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 72 65 63 6f 72 64 2d 62 61 63 6b 74 | og)..(defparameter.*record-backt |
| 31d00 | 72 61 63 65 2a 20 6e 69 6c 0a 20 20 22 52 65 63 6f 72 64 20 61 20 62 61 63 6b 74 72 61 63 65 20 | race*.nil..."Record.a.backtrace. |
| 31d20 | 6f 66 20 74 68 65 20 6c 61 73 74 20 32 30 20 63 61 6c 6c 73 20 66 6f 72 20 65 61 63 68 20 74 72 | of.the.last.20.calls.for.each.tr |
| 31d40 | 61 63 65 2e 0a 0a 42 65 77 61 72 65 20 74 68 61 74 20 74 68 69 73 20 6d 61 79 20 68 61 76 65 20 | ace...Beware.that.this.may.have. |
| 31d60 | 61 20 64 72 61 73 74 69 63 20 70 65 72 66 6f 72 6d 61 6e 63 65 20 69 6d 70 61 63 74 20 6f 6e 20 | a.drastic.performance.impact.on. |
| 31d80 | 79 6f 75 72 0a 70 72 6f 67 72 61 6d 2e 22 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a | your.program.")..(defparameter.* |
| 31da0 | 74 72 61 63 65 73 2d 70 65 72 2d 72 65 70 6f 72 74 2a 20 31 35 30 0a 20 20 22 4e 75 6d 62 65 72 | traces-per-report*.150..."Number |
| 31dc0 | 20 6f 66 20 74 72 61 63 65 73 20 74 6f 20 72 65 70 6f 72 74 20 74 6f 20 65 6d 61 63 73 20 69 6e | .of.traces.to.report.to.emacs.in |
| 31de0 | 20 65 61 63 68 20 62 61 74 63 68 2e 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 60 74 72 61 63 65 2d 65 6e | .each.batch.")....;;;;.`trace-en |
| 31e00 | 74 72 79 27 20 6d 6f 64 65 6c 0a 3b 3b 3b 3b 0a 28 64 65 66 76 61 72 20 2a 74 72 61 63 65 73 2a | try'.model.;;;;.(defvar.*traces* |
| 31e20 | 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 31 30 30 30 20 3a 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 | .(make-array.1000.:fill-pointer. |
| 31e40 | 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 0............................... |
| 31e60 | 20 20 20 20 3a 61 64 6a 75 73 74 61 62 6c 65 20 74 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 74 72 | ....:adjustable.t))..(defvar.*tr |
| 31e80 | 61 63 65 2d 6c 6f 63 6b 2a 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 6d 61 6b 65 2d 6c 6f | ace-lock*.(swank/backend:make-lo |
| 31ea0 | 63 6b 20 3a 6e 61 6d 65 20 22 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 20 6c 6f 63 | ck.:name."swank-trace-dialog.loc |
| 31ec0 | 6b 22 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 63 75 72 72 65 6e 74 2d 74 72 61 63 65 2d 62 79 2d | k"))..(defvar.*current-trace-by- |
| 31ee0 | 74 68 72 65 61 64 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 0a 28 64 65 66 | thread*.(make-hash-table))..(def |
| 31f00 | 63 6c 61 73 73 20 74 72 61 63 65 2d 65 6e 74 72 79 20 28 29 0a 20 20 28 28 69 64 20 20 20 20 20 | class.trace-entry.()...((id..... |
| 31f20 | 20 20 20 20 3a 72 65 61 64 65 72 20 20 20 69 64 2d 6f 66 29 0a 20 20 20 28 63 68 69 6c 64 72 65 | ....:reader...id-of)....(childre |
| 31f40 | 6e 20 20 20 3a 61 63 63 65 73 73 6f 72 20 63 68 69 6c 64 72 65 6e 2d 6f 66 20 3a 69 6e 69 74 66 | n...:accessor.children-of.:initf |
| 31f60 | 6f 72 6d 20 6e 69 6c 29 0a 20 20 20 28 62 61 63 6b 74 72 61 63 65 20 20 3a 61 63 63 65 73 73 6f | orm.nil)....(backtrace..:accesso |
| 31f80 | 72 20 62 61 63 6b 74 72 61 63 65 2d 6f 66 20 3a 69 6e 69 74 66 6f 72 6d 20 28 77 68 65 6e 20 2a | r.backtrace-of.:initform.(when.* |
| 31fa0 | 72 65 63 6f 72 64 2d 62 61 63 6b 74 72 61 63 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | record-backtrace*............... |
| 31fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 31fe0 | 20 20 20 20 28 75 73 65 66 75 6c 2d 62 61 63 6b 74 72 61 63 65 29 29 29 0a 0a 20 20 20 28 73 70 | ....(useful-backtrace))).....(sp |
| 32000 | 65 63 20 20 20 20 20 20 20 3a 69 6e 69 74 61 72 67 20 20 3a 73 70 65 63 20 20 20 20 20 20 3a 61 | ec.......:initarg..:spec......:a |
| 32020 | 63 63 65 73 73 6f 72 20 73 70 65 63 2d 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ccessor.spec-of................: |
| 32040 | 69 6e 69 74 66 6f 72 6d 20 28 65 72 72 6f 72 20 22 6d 75 73 74 20 70 72 6f 76 69 64 65 20 61 20 | initform.(error."must.provide.a. |
| 32060 | 73 70 65 63 22 29 29 0a 20 20 20 28 61 72 67 73 20 20 20 20 20 20 20 3a 69 6e 69 74 61 72 67 20 | spec"))....(args.......:initarg. |
| 32080 | 20 3a 61 72 67 73 20 20 20 20 20 20 3a 61 63 63 65 73 73 6f 72 20 61 72 67 73 2d 6f 66 0a 20 20 | .:args......:accessor.args-of... |
| 320a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 66 6f 72 6d 20 28 65 72 72 6f 72 20 22 6d | .............:initform.(error."m |
| 320c0 | 75 73 74 20 70 72 6f 76 69 64 65 20 61 72 67 73 22 29 29 0a 20 20 20 28 70 61 72 65 6e 74 20 20 | ust.provide.args"))....(parent.. |
| 320e0 | 20 20 20 3a 69 6e 69 74 61 72 67 20 20 3a 70 61 72 65 6e 74 20 20 20 20 3a 72 65 61 64 65 72 20 | ...:initarg..:parent....:reader. |
| 32100 | 20 20 70 61 72 65 6e 74 2d 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 | ..parent-of................:init |
| 32120 | 66 6f 72 6d 20 28 65 72 72 6f 72 20 22 6d 75 73 74 20 70 72 6f 76 69 64 65 20 61 20 70 61 72 65 | form.(error."must.provide.a.pare |
| 32140 | 6e 74 2c 20 65 76 65 6e 20 69 66 20 6e 69 6c 22 29 29 0a 20 20 20 28 72 65 74 6c 69 73 74 20 20 | nt,.even.if.nil"))....(retlist.. |
| 32160 | 20 20 3a 69 6e 69 74 61 72 67 20 20 3a 72 65 74 6c 69 73 74 20 20 20 3a 61 63 63 65 73 73 6f 72 | ..:initarg..:retlist...:accessor |
| 32180 | 20 72 65 74 6c 69 73 74 2d 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 | .retlist-of................:init |
| 321a0 | 66 6f 72 6d 20 27 73 74 69 6c 6c 2d 69 6e 73 69 64 65 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f | form.'still-inside)))..(defmetho |
| 321c0 | 64 20 69 6e 69 74 69 61 6c 69 7a 65 2d 69 6e 73 74 61 6e 63 65 20 3a 61 66 74 65 72 20 28 28 65 | d.initialize-instance.:after.((e |
| 321e0 | 6e 74 72 79 20 74 72 61 63 65 2d 65 6e 74 72 79 29 20 26 72 65 73 74 20 69 6e 69 74 61 72 67 73 | ntry.trace-entry).&rest.initargs |
| 32200 | 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 69 6e 69 74 61 72 67 73 29 29 0a | )...(declare.(ignore.initargs)). |
| 32220 | 20 20 28 69 66 20 28 70 61 72 65 6e 74 2d 6f 66 20 65 6e 74 72 79 29 0a 20 20 20 20 20 20 28 6e | ..(if.(parent-of.entry).......(n |
| 32240 | 63 6f 6e 63 20 28 63 68 69 6c 64 72 65 6e 2d 6f 66 20 28 70 61 72 65 6e 74 2d 6f 66 20 65 6e 74 | conc.(children-of.(parent-of.ent |
| 32260 | 72 79 29 29 20 28 6c 69 73 74 20 65 6e 74 72 79 29 29 29 0a 20 20 28 73 77 61 6e 6b 2f 62 61 63 | ry)).(list.entry)))...(swank/bac |
| 32280 | 6b 65 6e 64 3a 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 0a 20 20 20 2a 74 72 61 | kend:call-with-lock-held....*tra |
| 322a0 | 63 65 2d 6c 6f 63 6b 2a 0a 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 | ce-lock*....#'(lambda.()........ |
| 322c0 | 28 73 65 74 66 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 65 6e 74 72 79 20 27 69 64 29 20 28 66 69 | (setf.(slot-value.entry.'id).(fi |
| 322e0 | 6c 6c 2d 70 6f 69 6e 74 65 72 20 2a 74 72 61 63 65 73 2a 29 29 0a 20 20 20 20 20 20 20 28 76 65 | ll-pointer.*traces*))........(ve |
| 32300 | 63 74 6f 72 2d 70 75 73 68 2d 65 78 74 65 6e 64 20 65 6e 74 72 79 20 2a 74 72 61 63 65 73 2a 29 | ctor-push-extend.entry.*traces*) |
| 32320 | 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 70 72 69 6e 74 2d 6f 62 6a 65 63 74 20 28 28 65 | )))..(defmethod.print-object.((e |
| 32340 | 6e 74 72 79 20 74 72 61 63 65 2d 65 6e 74 72 79 29 20 73 74 72 65 61 6d 29 0a 20 20 28 70 72 69 | ntry.trace-entry).stream)...(pri |
| 32360 | 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 20 28 65 6e 74 72 79 20 73 74 72 65 | nt-unreadable-object.(entry.stre |
| 32380 | 61 6d 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 61 3a 20 7e 61 22 20 | am).....(format.stream."~a:.~a". |
| 323a0 | 28 69 64 2d 6f 66 20 65 6e 74 72 79 29 20 28 73 70 65 63 2d 6f 66 20 65 6e 74 72 79 29 29 29 29 | (id-of.entry).(spec-of.entry)))) |
| 323c0 | 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 6c 65 74 65 64 2d 70 20 28 74 72 61 63 65 29 20 28 6e 6f | ..(defun.completed-p.(trace).(no |
| 323e0 | 74 20 28 65 71 20 28 72 65 74 6c 69 73 74 2d 6f 66 20 74 72 61 63 65 29 20 27 73 74 69 6c 6c 2d | t.(eq.(retlist-of.trace).'still- |
| 32400 | 69 6e 73 69 64 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 74 72 61 63 65 20 28 69 64 | inside)))..(defun.find-trace.(id |
| 32420 | 29 0a 20 20 28 77 68 65 6e 20 28 3c 3d 20 30 20 69 64 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 2a | )...(when.(<=.0.id.(1-.(length.* |
| 32440 | 74 72 61 63 65 73 2a 29 29 29 0a 20 20 20 20 28 61 72 65 66 20 2a 74 72 61 63 65 73 2a 20 69 64 | traces*))).....(aref.*traces*.id |
| 32460 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 74 72 61 63 65 2d 70 61 72 74 20 28 69 64 20 | )))..(defun.find-trace-part.(id. |
| 32480 | 70 61 72 74 2d 69 64 20 74 79 70 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 72 61 63 65 20 28 66 | part-id.type)...(let*.((trace.(f |
| 324a0 | 69 6e 64 2d 74 72 61 63 65 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 20 28 61 6e 64 20 | ind-trace.id))..........(l.(and. |
| 324c0 | 74 72 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 74 79 | trace..................(ecase.ty |
| 324e0 | 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 72 67 20 28 61 72 67 | pe....................(:arg.(arg |
| 32500 | 73 2d 6f 66 20 74 72 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s-of.trace)).................... |
| 32520 | 28 3a 72 65 74 76 61 6c 20 28 73 77 61 6e 6b 3a 3a 65 6e 73 75 72 65 2d 6c 69 73 74 20 28 72 65 | (:retval.(swank::ensure-list.(re |
| 32540 | 74 6c 69 73 74 2d 6f 66 20 74 72 61 63 65 29 29 29 29 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 | tlist-of.trace))))))).....(value |
| 32560 | 73 20 28 6e 74 68 20 70 61 72 74 2d 69 64 20 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3c | s.(nth.part-id.l).............(< |
| 32580 | 20 70 61 72 74 2d 69 64 20 28 6c 65 6e 67 74 68 20 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | .part-id.(length.l)))))..(defun. |
| 325a0 | 75 73 65 66 75 6c 2d 62 61 63 6b 74 72 61 63 65 20 28 29 0a 20 20 28 73 77 61 6e 6b 2f 62 61 63 | useful-backtrace.()...(swank/bac |
| 325c0 | 6b 65 6e 64 3a 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f 6e | kend:call-with-debugging-environ |
| 325e0 | 6d 65 6e 74 0a 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 28 6c 6f 6f | ment....#'(lambda.()........(loo |
| 32600 | 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 | p.for.i.from.0..............for. |
| 32620 | 66 72 61 6d 65 20 69 6e 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 63 6f 6d 70 75 74 65 2d | frame.in.(swank/backend:compute- |
| 32640 | 62 61 63 6b 74 72 61 63 65 20 30 20 32 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c | backtrace.0.20)..............col |
| 32660 | 6c 65 63 74 20 28 6c 69 73 74 20 69 20 28 73 77 61 6e 6b 3a 3a 66 72 61 6d 65 2d 74 6f 2d 73 74 | lect.(list.i.(swank::frame-to-st |
| 32680 | 72 69 6e 67 20 66 72 61 6d 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 75 72 72 65 6e 74 | ring.frame))))))..(defun.current |
| 326a0 | 2d 74 72 61 63 65 20 28 29 0a 20 20 28 67 65 74 68 61 73 68 20 28 73 77 61 6e 6b 2f 62 61 63 6b | -trace.()...(gethash.(swank/back |
| 326c0 | 65 6e 64 3a 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 2a 63 75 72 72 65 6e 74 2d 74 72 61 | end:current-thread).*current-tra |
| 326e0 | 63 65 2d 62 79 2d 74 68 72 65 61 64 2a 29 29 0a 0a 28 64 65 66 75 6e 20 28 73 65 74 66 20 63 75 | ce-by-thread*))..(defun.(setf.cu |
| 32700 | 72 72 65 6e 74 2d 74 72 61 63 65 29 20 28 74 72 61 63 65 29 0a 20 20 28 73 65 74 66 20 28 67 65 | rrent-trace).(trace)...(setf.(ge |
| 32720 | 74 68 61 73 68 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 63 75 72 72 65 6e 74 2d 74 68 72 | thash.(swank/backend:current-thr |
| 32740 | 65 61 64 29 20 2a 63 75 72 72 65 6e 74 2d 74 72 61 63 65 2d 62 79 2d 74 68 72 65 61 64 2a 29 0a | ead).*current-trace-by-thread*). |
| 32760 | 20 20 20 20 20 20 20 20 74 72 61 63 65 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 6f 6e 74 72 6f 6c 20 | ........trace))....;;;;.Control. |
| 32780 | 6f 66 20 74 72 61 63 65 64 20 73 70 65 63 73 0a 3b 3b 3b 0a 28 64 65 66 76 61 72 20 2a 74 72 61 | of.traced.specs.;;;.(defvar.*tra |
| 327a0 | 63 65 64 2d 73 70 65 63 73 2a 20 27 28 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 69 | ced-specs*.'())..(defslimefun.di |
| 327c0 | 61 6c 6f 67 2d 74 72 61 63 65 20 28 73 70 65 63 29 0a 20 20 28 66 6c 65 74 20 28 28 62 65 66 6f | alog-trace.(spec)...(flet.((befo |
| 327e0 | 72 65 2d 68 6f 6f 6b 20 28 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 | re-hook.(args)............(setf. |
| 32800 | 28 63 75 72 72 65 6e 74 2d 74 72 61 63 65 29 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 | (current-trace).(make-instance.' |
| 32820 | 74 72 61 63 65 2d 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | trace-entry..................... |
| 32840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 70 65 | ............................:spe |
| 32860 | 63 20 20 20 20 20 20 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | c......spec..................... |
| 32880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 72 67 | ............................:arg |
| 328a0 | 73 20 20 20 20 20 20 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s......args..................... |
| 328c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 61 72 | ............................:par |
| 328e0 | 65 6e 74 20 20 20 20 28 63 75 72 72 65 6e 74 2d 74 72 61 63 65 29 29 29 29 0a 20 20 20 20 20 20 | ent....(current-trace))))....... |
| 32900 | 20 20 20 28 61 66 74 65 72 2d 68 6f 6f 6b 20 28 72 65 74 6c 69 73 74 29 0a 20 20 20 20 20 20 20 | ...(after-hook.(retlist)........ |
| 32920 | 20 20 20 20 28 6c 65 74 20 28 28 74 72 61 63 65 20 28 63 75 72 72 65 6e 74 2d 74 72 61 63 65 29 | ....(let.((trace.(current-trace) |
| 32940 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 74 72 61 63 65 0a 20 20 20 20 | ))..............(when.trace..... |
| 32960 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 72 61 63 65 20 | ...........;;.the.current.trace. |
| 32980 | 6d 69 67 68 74 20 68 61 76 65 20 62 65 65 6e 20 77 69 70 65 64 20 61 77 61 79 20 69 66 20 74 68 | might.have.been.wiped.away.if.th |
| 329a0 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 75 73 65 72 20 63 6c 65 61 72 65 64 | e................;;.user.cleared |
| 329c0 | 20 74 68 65 20 74 72 65 65 20 69 6e 20 74 68 65 20 6d 65 61 6e 74 69 6d 65 2e 20 6e 6f 20 62 69 | .the.tree.in.the.meantime..no.bi |
| 329e0 | 67 67 69 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 6f 6e 27 74 20 64 6f | ggie,................;;.don't.do |
| 32a00 | 20 61 6e 79 74 68 69 6e 67 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 | .anything.................;;.... |
| 32a20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 72 65 74 6c 69 73 74 2d 6f 66 20 74 72 | ............(setf.(retlist-of.tr |
| 32a40 | 61 63 65 29 20 72 65 74 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ace).retlist.................... |
| 32a60 | 20 20 28 63 75 72 72 65 6e 74 2d 74 72 61 63 65 29 20 28 70 61 72 65 6e 74 2d 6f 66 20 74 72 61 | ..(current-trace).(parent-of.tra |
| 32a80 | 63 65 29 29 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 64 69 61 6c 6f 67 2d 74 72 61 63 65 | ce)))))).....(when.(dialog-trace |
| 32aa0 | 64 2d 70 20 73 70 65 63 29 0a 20 20 20 20 20 20 28 77 61 72 6e 20 22 7e 61 20 69 73 20 61 70 70 | d-p.spec).......(warn."~a.is.app |
| 32ac0 | 61 72 65 6e 74 6c 79 20 61 6c 72 65 61 64 79 20 74 72 61 63 65 64 21 20 55 6e 74 72 61 63 69 6e | arently.already.traced!.Untracin |
| 32ae0 | 67 20 61 6e 64 20 72 65 74 72 61 63 69 6e 67 2e 22 20 73 70 65 63 29 0a 20 20 20 20 20 20 28 64 | g.and.retracing.".spec).......(d |
| 32b00 | 69 61 6c 6f 67 2d 75 6e 74 72 61 63 65 20 73 70 65 63 29 29 0a 20 20 20 20 28 73 77 61 6e 6b 2f | ialog-untrace.spec)).....(swank/ |
| 32b20 | 62 61 63 6b 65 6e 64 3a 77 72 61 70 20 73 70 65 63 20 27 74 72 61 63 65 2d 64 69 61 6c 6f 67 0a | backend:wrap.spec.'trace-dialog. |
| 32b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 65 66 6f 72 65 20 | ........................:before. |
| 32b60 | 23 27 62 65 66 6f 72 65 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | #'before-hook................... |
| 32b80 | 20 20 20 20 20 20 3a 61 66 74 65 72 20 23 27 61 66 74 65 72 2d 68 6f 6f 6b 29 0a 20 20 20 20 28 | ......:after.#'after-hook).....( |
| 32ba0 | 70 75 73 68 6e 65 77 20 73 70 65 63 20 2a 74 72 61 63 65 64 2d 73 70 65 63 73 2a 29 0a 20 20 20 | pushnew.spec.*traced-specs*).... |
| 32bc0 | 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 61 20 69 73 20 6e 6f 77 20 74 72 61 63 65 64 20 66 | .(format.nil."~a.is.now.traced.f |
| 32be0 | 6f 72 20 74 72 61 63 65 20 64 69 61 6c 6f 67 22 20 73 70 65 63 29 29 29 0a 0a 28 64 65 66 73 6c | or.trace.dialog".spec)))..(defsl |
| 32c00 | 69 6d 65 66 75 6e 20 64 69 61 6c 6f 67 2d 75 6e 74 72 61 63 65 20 28 73 70 65 63 29 0a 20 20 28 | imefun.dialog-untrace.(spec)...( |
| 32c20 | 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 75 6e 77 72 61 70 20 73 70 65 63 20 27 74 72 61 63 65 | swank/backend:unwrap.spec.'trace |
| 32c40 | 2d 64 69 61 6c 6f 67 29 0a 20 20 28 73 65 74 71 20 2a 74 72 61 63 65 64 2d 73 70 65 63 73 2a 20 | -dialog)...(setq.*traced-specs*. |
| 32c60 | 28 72 65 6d 6f 76 65 20 73 70 65 63 20 2a 74 72 61 63 65 64 2d 73 70 65 63 73 2a 20 3a 74 65 73 | (remove.spec.*traced-specs*.:tes |
| 32c80 | 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 61 20 69 73 | t.#'equal))...(format.nil."~a.is |
| 32ca0 | 20 6e 6f 77 20 75 6e 74 72 61 63 65 64 20 66 6f 72 20 74 72 61 63 65 20 64 69 61 6c 6f 67 22 20 | .now.untraced.for.trace.dialog". |
| 32cc0 | 73 70 65 63 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 69 61 6c 6f 67 2d 74 6f 67 67 | spec))..(defslimefun.dialog-togg |
| 32ce0 | 6c 65 2d 74 72 61 63 65 20 28 73 70 65 63 29 0a 20 20 28 69 66 20 28 64 69 61 6c 6f 67 2d 74 72 | le-trace.(spec)...(if.(dialog-tr |
| 32d00 | 61 63 65 64 2d 70 20 73 70 65 63 29 0a 20 20 20 20 20 20 28 64 69 61 6c 6f 67 2d 75 6e 74 72 61 | aced-p.spec).......(dialog-untra |
| 32d20 | 63 65 20 73 70 65 63 29 0a 20 20 20 20 20 20 28 64 69 61 6c 6f 67 2d 74 72 61 63 65 20 73 70 65 | ce.spec).......(dialog-trace.spe |
| 32d40 | 63 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 69 61 6c 6f 67 2d 74 72 61 63 65 64 | c)))..(defslimefun.dialog-traced |
| 32d60 | 2d 70 20 28 73 70 65 63 29 0a 20 20 28 66 69 6e 64 20 73 70 65 63 20 2a 74 72 61 63 65 64 2d 73 | -p.(spec)...(find.spec.*traced-s |
| 32d80 | 70 65 63 73 2a 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 | pecs*.:test.#'equal))..(defslime |
| 32da0 | 66 75 6e 20 64 69 61 6c 6f 67 2d 75 6e 74 72 61 63 65 2d 61 6c 6c 20 28 29 0a 20 20 28 75 6e 74 | fun.dialog-untrace-all.()...(unt |
| 32dc0 | 72 61 63 65 29 0a 20 20 28 6d 61 70 63 61 72 20 23 27 64 69 61 6c 6f 67 2d 75 6e 74 72 61 63 65 | race)...(mapcar.#'dialog-untrace |
| 32de0 | 20 2a 74 72 61 63 65 64 2d 73 70 65 63 73 2a 29 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 | .*traced-specs*))..(defparameter |
| 32e00 | 20 2a 64 69 61 6c 6f 67 2d 74 72 61 63 65 2d 66 6f 6c 6c 6f 77 73 2d 74 72 61 63 65 2a 20 6e 69 | .*dialog-trace-follows-trace*.ni |
| 32e20 | 6c 29 0a 0a 28 73 65 74 71 20 73 77 61 6e 6b 3a 2a 61 66 74 65 72 2d 74 6f 67 67 6c 65 2d 74 72 | l)..(setq.swank:*after-toggle-tr |
| 32e40 | 61 63 65 2d 68 6f 6f 6b 2a 0a 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 73 70 65 63 20 | ace-hook*.......#'(lambda.(spec. |
| 32e60 | 74 72 61 63 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 2a 64 69 61 6c 6f | traced-p)...........(when.*dialo |
| 32e80 | 67 2d 74 72 61 63 65 2d 66 6f 6c 6c 6f 77 73 2d 74 72 61 63 65 2a 0a 20 20 20 20 20 20 20 20 20 | g-trace-follows-trace*.......... |
| 32ea0 | 20 20 20 28 63 6f 6e 64 20 28 74 72 61 63 65 64 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(cond.(traced-p.............. |
| 32ec0 | 20 20 20 20 20 20 28 64 69 61 6c 6f 67 2d 74 72 61 63 65 20 73 70 65 63 29 0a 20 20 20 20 20 20 | ......(dialog-trace.spec)....... |
| 32ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 22 74 72 61 63 65 64 20 66 6f 72 20 74 72 61 63 65 20 64 | ............."traced.for.trace.d |
| 32f00 | 69 61 6c 6f 67 20 61 73 20 77 65 6c 6c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ialog.as.well")................. |
| 32f20 | 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 61 6c 6f 67 2d | ..(t....................(dialog- |
| 32f40 | 75 6e 74 72 61 63 65 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | untrace.spec)................... |
| 32f60 | 20 22 75 6e 74 72 61 63 65 64 20 66 6f 72 20 74 68 65 20 74 72 61 63 65 20 64 69 61 6c 6f 67 20 | ."untraced.for.the.trace.dialog. |
| 32f80 | 61 73 20 77 65 6c 6c 22 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 41 20 73 70 65 63 69 61 6c 20 | as.well")))))....;;;;.A.special. |
| 32fa0 | 6b 69 6e 64 20 6f 66 20 74 72 61 63 65 20 63 61 6c 6c 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 74 72 | kind.of.trace.call.;;;.(defun.tr |
| 32fc0 | 61 63 65 2d 66 6f 72 6d 61 74 20 28 66 6f 72 6d 61 74 2d 73 70 65 63 20 26 72 65 73 74 20 66 6f | ace-format.(format-spec.&rest.fo |
| 32fe0 | 72 6d 61 74 2d 61 72 67 73 29 0a 20 20 22 4d 61 6b 65 20 61 20 73 74 72 69 6e 67 20 66 72 6f 6d | rmat-args)..."Make.a.string.from |
| 33000 | 20 46 4f 52 4d 41 54 2d 53 50 45 43 20 61 6e 64 20 46 4f 52 4d 41 54 2d 41 52 47 53 20 61 6e 64 | .FORMAT-SPEC.and.FORMAT-ARGS.and |
| 33020 | 20 61 73 20 61 20 74 72 61 63 65 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6c 69 6e 65 20 28 61 70 | .as.a.trace."...(let*.((line.(ap |
| 33040 | 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 6e 69 6c 20 66 6f 72 6d 61 74 2d 73 70 65 63 20 66 6f 72 | ply.#'format.nil.format-spec.for |
| 33060 | 6d 61 74 2d 61 72 67 73 29 29 29 0a 20 20 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 | mat-args))).....(make-instance.' |
| 33080 | 74 72 61 63 65 2d 65 6e 74 72 79 20 3a 73 70 65 63 20 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 | trace-entry.:spec.line.......... |
| 330a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 72 67 73 20 66 6f 72 | .......................:args.for |
| 330c0 | 6d 61 74 2d 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mat-args........................ |
| 330e0 | 20 20 20 20 20 20 20 20 20 3a 70 61 72 65 6e 74 20 28 63 75 72 72 65 6e 74 2d 74 72 61 63 65 29 | .........:parent.(current-trace) |
| 33100 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 33120 | 20 3a 72 65 74 6c 69 73 74 20 6e 69 6c 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 52 65 70 6f 72 74 69 | .:retlist.nil)))....;;;;.Reporti |
| 33140 | 6e 67 20 74 6f 20 65 6d 61 63 73 0a 3b 3b 3b 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 76 | ng.to.emacs.;;;.(defparameter.*v |
| 33160 | 69 73 69 74 6f 72 2d 69 64 78 2a 20 30 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 76 | isitor-idx*.0)..(defparameter.*v |
| 33180 | 69 73 69 74 6f 72 2d 6b 65 79 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 2a 75 6e 66 69 6e | isitor-key*.nil)..(defvar.*unfin |
| 331a0 | 69 73 68 65 64 2d 74 72 61 63 65 73 2a 20 27 28 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 73 63 72 | ished-traces*.'())..(defun.descr |
| 331c0 | 69 62 65 2d 74 72 61 63 65 2d 66 6f 72 2d 65 6d 61 63 73 20 28 74 72 61 63 65 29 0a 20 20 60 28 | ibe-trace-for-emacs.(trace)...`( |
| 331e0 | 2c 28 69 64 2d 6f 66 20 74 72 61 63 65 29 0a 20 20 20 20 2c 28 61 6e 64 20 28 70 61 72 65 6e 74 | ,(id-of.trace).....,(and.(parent |
| 33200 | 2d 6f 66 20 74 72 61 63 65 29 20 28 69 64 2d 6f 66 20 28 70 61 72 65 6e 74 2d 6f 66 20 74 72 61 | -of.trace).(id-of.(parent-of.tra |
| 33220 | 63 65 29 29 29 0a 20 20 20 20 2c 28 73 70 65 63 2d 6f 66 20 74 72 61 63 65 29 0a 20 20 20 20 2c | ce))).....,(spec-of.trace)....., |
| 33240 | 28 6c 6f 6f 70 20 66 6f 72 20 61 72 67 20 69 6e 20 28 61 72 67 73 2d 6f 66 20 74 72 61 63 65 29 | (loop.for.arg.in.(args-of.trace) |
| 33260 | 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 | ............for.i.from.0........ |
| 33280 | 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 69 20 28 73 77 61 6e 6b 3a 3a 74 6f 2d 6c | ....collect.(list.i.(swank::to-l |
| 332a0 | 69 6e 65 20 61 72 67 29 29 29 0a 20 20 20 20 2c 28 6c 6f 6f 70 20 66 6f 72 20 72 65 74 76 61 6c | ine.arg))).....,(loop.for.retval |
| 332c0 | 20 69 6e 20 28 73 77 61 6e 6b 3a 3a 65 6e 73 75 72 65 2d 6c 69 73 74 20 28 72 65 74 6c 69 73 74 | .in.(swank::ensure-list.(retlist |
| 332e0 | 2d 6f 66 20 74 72 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f | -of.trace))............for.i.fro |
| 33300 | 6d 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 69 20 28 | m.0............collect.(list.i.( |
| 33320 | 73 77 61 6e 6b 3a 3a 74 6f 2d 6c 69 6e 65 20 72 65 74 76 61 6c 29 29 29 29 29 0a 0a 28 64 65 66 | swank::to-line.retval)))))..(def |
| 33340 | 73 6c 69 6d 65 66 75 6e 20 72 65 70 6f 72 74 2d 70 61 72 74 69 61 6c 2d 74 72 65 65 20 28 6b 65 | slimefun.report-partial-tree.(ke |
| 33360 | 79 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 6b 65 79 20 2a 76 69 73 69 74 6f 72 | y)...(unless.(equal.key.*visitor |
| 33380 | 2d 6b 65 79 2a 29 0a 20 20 20 20 28 73 65 74 71 20 2a 76 69 73 69 74 6f 72 2d 69 64 78 2a 20 30 | -key*).....(setq.*visitor-idx*.0 |
| 333a0 | 0a 20 20 20 20 20 20 20 20 20 20 2a 76 69 73 69 74 6f 72 2d 6b 65 79 2a 20 6b 65 79 29 29 0a 20 | ...........*visitor-key*.key)).. |
| 333c0 | 20 28 6c 65 74 2a 20 28 28 72 65 63 65 6e 74 6c 79 2d 66 69 6e 69 73 68 65 64 0a 20 20 20 20 20 | .(let*.((recently-finished...... |
| 333e0 | 20 20 20 20 20 20 28 6c 6f 6f 70 20 77 69 74 68 20 69 20 3d 20 30 0a 20 20 20 20 20 20 20 20 20 | ......(loop.with.i.=.0.......... |
| 33400 | 20 20 20 20 20 20 20 20 66 6f 72 20 74 72 61 63 65 20 69 6e 20 2a 75 6e 66 69 6e 69 73 68 65 64 | ........for.trace.in.*unfinished |
| 33420 | 2d 74 72 61 63 65 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 | -traces*..................while. |
| 33440 | 28 3c 20 69 20 2a 74 72 61 63 65 73 2d 70 65 72 2d 72 65 70 6f 72 74 2a 29 0a 20 20 20 20 20 20 | (<.i.*traces-per-report*)....... |
| 33460 | 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 63 6f 6d 70 6c 65 74 65 64 2d 70 20 74 72 61 | ...........when.(completed-p.tra |
| 33480 | 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 74 | ce)....................collect.t |
| 334a0 | 72 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 64 6f 0a 20 | race....................and.do.. |
| 334c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 69 29 0a 20 20 20 | ....................(incf.i).... |
| 334e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2a 75 6e 66 69 6e 69 73 | ..................(setq.*unfinis |
| 33500 | 68 65 64 2d 74 72 61 63 65 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hed-traces*..................... |
| 33520 | 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 74 72 61 63 65 20 2a 75 6e 66 69 6e 69 73 68 65 64 | .......(remove.trace.*unfinished |
| 33540 | 2d 74 72 61 63 65 73 2a 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 65 77 20 28 6c 6f 6f 70 | -traces*))))..........(new.(loop |
| 33560 | 20 66 6f 72 20 69 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 72 6f | .for.i.......................fro |
| 33580 | 6d 20 28 6c 65 6e 67 74 68 20 72 65 63 65 6e 74 6c 79 2d 66 69 6e 69 73 68 65 64 29 0a 20 20 20 | m.(length.recently-finished).... |
| 335a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 6c 6f 77 20 2a 74 72 61 63 | .....................below.*trac |
| 335c0 | 65 73 2d 70 65 72 2d 72 65 70 6f 72 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | es-per-report*.................. |
| 335e0 | 20 20 20 77 68 69 6c 65 20 28 3c 20 2a 76 69 73 69 74 6f 72 2d 69 64 78 2a 20 28 6c 65 6e 67 74 | ...while.(<.*visitor-idx*.(lengt |
| 33600 | 68 20 2a 74 72 61 63 65 73 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h.*traces*)).................... |
| 33620 | 20 66 6f 72 20 74 72 61 63 65 20 3d 20 28 61 72 65 66 20 2a 74 72 61 63 65 73 2a 20 2a 76 69 73 | .for.trace.=.(aref.*traces*.*vis |
| 33640 | 69 74 6f 72 2d 69 64 78 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 | itor-idx*).....................c |
| 33660 | 6f 6c 6c 65 63 74 20 74 72 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ollect.trace.................... |
| 33680 | 20 75 6e 6c 65 73 73 20 28 63 6f 6d 70 6c 65 74 65 64 2d 70 20 74 72 61 63 65 29 0a 20 20 20 20 | .unless.(completed-p.trace)..... |
| 336a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 70 75 73 68 20 74 72 61 63 65 | ..................do.(push.trace |
| 336c0 | 20 2a 75 6e 66 69 6e 69 73 68 65 64 2d 74 72 61 63 65 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 | .*unfinished-traces*)........... |
| 336e0 | 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 69 6e 63 66 20 2a 76 69 73 69 74 6f 72 2d 69 64 78 2a | ..........do.(incf.*visitor-idx* |
| 33700 | 29 29 29 29 0a 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 64 65 | )))).....(list......(mapcar.#'de |
| 33720 | 73 63 72 69 62 65 2d 74 72 61 63 65 2d 66 6f 72 2d 65 6d 61 63 73 0a 20 20 20 20 20 20 20 20 20 | scribe-trace-for-emacs.......... |
| 33740 | 20 20 20 20 28 61 70 70 65 6e 64 20 72 65 63 65 6e 74 6c 79 2d 66 69 6e 69 73 68 65 64 20 6e 65 | ....(append.recently-finished.ne |
| 33760 | 77 29 29 0a 20 20 20 20 20 28 2d 20 28 6c 65 6e 67 74 68 20 2a 74 72 61 63 65 73 2a 29 20 2a 76 | w))......(-.(length.*traces*).*v |
| 33780 | 69 73 69 74 6f 72 2d 69 64 78 2a 29 0a 20 20 20 20 6b 65 79 29 29 29 0a 0a 28 64 65 66 73 6c 69 | isitor-idx*).....key)))..(defsli |
| 337a0 | 6d 65 66 75 6e 20 72 65 70 6f 72 74 2d 74 72 61 63 65 2d 64 65 74 61 69 6c 20 28 74 72 61 63 65 | mefun.report-trace-detail.(trace |
| 337c0 | 2d 69 64 29 0a 20 20 28 73 77 61 6e 6b 3a 3a 63 61 6c 6c 2d 77 69 74 68 2d 62 69 6e 64 69 6e 67 | -id)...(swank::call-with-binding |
| 337e0 | 73 0a 20 20 20 73 77 61 6e 6b 3a 3a 2a 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 74 65 72 2d 62 | s....swank::*inspector-printer-b |
| 33800 | 69 6e 64 69 6e 67 73 2a 0a 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 | indings*....#'(lambda.()........ |
| 33820 | 28 6c 65 74 20 28 28 74 72 61 63 65 20 28 66 69 6e 64 2d 74 72 61 63 65 20 74 72 61 63 65 2d 69 | (let.((trace.(find-trace.trace-i |
| 33840 | 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 74 72 61 63 65 0a 20 20 20 20 20 20 | d)))..........(when.trace....... |
| 33860 | 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 63 72 69 | .....(append.............(descri |
| 33880 | 62 65 2d 74 72 61 63 65 2d 66 6f 72 2d 65 6d 61 63 73 20 74 72 61 63 65 29 0a 20 20 20 20 20 20 | be-trace-for-emacs.trace)....... |
| 338a0 | 20 20 20 20 20 20 28 6c 69 73 74 20 28 62 61 63 6b 74 72 61 63 65 2d 6f 66 20 74 72 61 63 65 29 | ......(list.(backtrace-of.trace) |
| 338c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 3a 3a 74 6f 2d 6c 69 | ...................(swank::to-li |
| 338e0 | 6e 65 20 74 72 61 63 65 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 72 | ne.trace))))))))..(defslimefun.r |
| 33900 | 65 70 6f 72 74 2d 73 70 65 63 73 20 28 29 0a 20 20 28 73 6f 72 74 20 28 63 6f 70 79 2d 6c 69 73 | eport-specs.()...(sort.(copy-lis |
| 33920 | 74 20 2a 74 72 61 63 65 64 2d 73 70 65 63 73 2a 29 0a 20 20 20 20 20 20 20 20 23 27 73 74 72 69 | t.*traced-specs*).........#'stri |
| 33940 | 6e 67 3c 0a 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 | ng<.........:key.#'princ-to-stri |
| 33960 | 6e 67 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 72 65 70 6f 72 74 2d 74 6f 74 61 6c 20 | ng))..(defslimefun.report-total. |
| 33980 | 28 29 0a 20 20 28 6c 65 6e 67 74 68 20 2a 74 72 61 63 65 73 2a 29 29 0a 0a 28 64 65 66 73 6c 69 | ()...(length.*traces*))..(defsli |
| 339a0 | 6d 65 66 75 6e 20 63 6c 65 61 72 2d 74 72 61 63 65 2d 74 72 65 65 20 28 29 0a 20 20 28 73 65 74 | mefun.clear-trace-tree.()...(set |
| 339c0 | 66 20 2a 63 75 72 72 65 6e 74 2d 74 72 61 63 65 2d 62 79 2d 74 68 72 65 61 64 2a 20 28 63 6c 72 | f.*current-trace-by-thread*.(clr |
| 339e0 | 68 61 73 68 20 2a 63 75 72 72 65 6e 74 2d 74 72 61 63 65 2d 62 79 2d 74 68 72 65 61 64 2a 29 0a | hash.*current-trace-by-thread*). |
| 33a00 | 20 20 20 20 20 20 20 20 2a 76 69 73 69 74 6f 72 2d 6b 65 79 2a 20 6e 69 6c 0a 20 20 20 20 20 20 | ........*visitor-key*.nil....... |
| 33a20 | 20 20 2a 75 6e 66 69 6e 69 73 68 65 64 2d 74 72 61 63 65 73 2a 20 6e 69 6c 29 0a 20 20 28 73 77 | ..*unfinished-traces*.nil)...(sw |
| 33a40 | 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 0a | ank/backend:call-with-lock-held. |
| 33a60 | 20 20 20 2a 74 72 61 63 65 2d 6c 6f 63 6b 2a 0a 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 29 20 | ...*trace-lock*....#'(lambda.(). |
| 33a80 | 28 73 65 74 66 20 28 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 2a 74 72 61 63 65 73 2a 29 20 30 29 | (setf.(fill-pointer.*traces*).0) |
| 33aa0 | 29 29 0a 20 20 6e 69 6c 29 0a 0a 3b 3b 20 48 41 43 4b 3a 20 60 73 77 61 6e 6b 3a 3a 2a 69 6e 73 | ))...nil)..;;.HACK:.`swank::*ins |
| 33ac0 | 70 65 63 74 6f 72 2d 68 69 73 74 6f 72 79 2a 27 20 69 73 20 75 6e 62 6f 75 6e 64 20 62 79 20 64 | pector-history*'.is.unbound.by.d |
| 33ae0 | 65 66 61 75 6c 74 20 61 6e 64 20 6e 65 65 64 73 0a 3b 3b 20 61 20 72 65 73 65 74 20 69 6e 20 74 | efault.and.needs.;;.a.reset.in.t |
| 33b00 | 68 61 74 20 63 61 73 65 20 73 6f 20 74 68 61 74 20 69 74 20 77 6f 6e 27 74 20 65 72 72 6f 72 20 | hat.case.so.that.it.won't.error. |
| 33b20 | 60 73 77 61 6e 6b 3a 3a 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 27 0a 3b 3b 20 62 65 66 6f 72 | `swank::inspect-object'.;;.befor |
| 33b40 | 65 20 61 6e 79 20 6f 74 68 65 72 20 6f 62 6a 65 63 74 20 69 73 20 69 6e 73 70 65 63 74 65 64 20 | e.any.other.object.is.inspected. |
| 33b60 | 69 6e 20 74 68 65 20 73 6c 69 6d 65 20 73 65 73 73 69 6f 6e 2e 0a 3b 3b 0a 28 75 6e 6c 65 73 73 | in.the.slime.session..;;.(unless |
| 33b80 | 20 28 62 6f 75 6e 64 70 20 27 73 77 61 6e 6b 3a 3a 2a 69 6e 73 70 65 63 74 6f 72 2d 68 69 73 74 | .(boundp.'swank::*inspector-hist |
| 33ba0 | 6f 72 79 2a 29 0a 20 20 28 73 77 61 6e 6b 3a 3a 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 | ory*)...(swank::reset-inspector) |
| 33bc0 | 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 74 72 61 63 65 2d 70 61 | )..(defslimefun.inspect-trace-pa |
| 33be0 | 72 74 20 28 74 72 61 63 65 2d 69 64 20 70 61 72 74 2d 69 64 20 74 79 70 65 29 0a 20 20 28 6d 75 | rt.(trace-id.part-id.type)...(mu |
| 33c00 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6f 62 6a 20 66 6f 75 6e 64 29 0a 20 20 | ltiple-value-bind.(obj.found)... |
| 33c20 | 20 20 20 20 28 66 69 6e 64 2d 74 72 61 63 65 2d 70 61 72 74 20 74 72 61 63 65 2d 69 64 20 70 61 | ....(find-trace-part.trace-id.pa |
| 33c40 | 72 74 2d 69 64 20 74 79 70 65 29 0a 20 20 20 20 28 69 66 20 66 6f 75 6e 64 0a 20 20 20 20 20 20 | rt-id.type).....(if.found....... |
| 33c60 | 20 20 28 73 77 61 6e 6b 3a 3a 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 6f 62 6a 29 0a 20 20 | ..(swank::inspect-object.obj)... |
| 33c80 | 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 6f 62 6a 65 63 74 20 66 6f 75 6e 64 20 77 69 | ......(error."No.object.found.wi |
| 33ca0 | 74 68 20 7e 61 2c 20 7e 61 20 61 6e 64 20 7e 61 22 20 74 72 61 63 65 2d 69 64 20 70 61 72 74 2d | th.~a,.~a.and.~a".trace-id.part- |
| 33cc0 | 69 64 20 74 79 70 65 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 74 72 61 | id.type))))..(provide.:swank-tra |
| 33ce0 | 63 65 2d 64 69 61 6c 6f 67 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ce-dialog)...................... |
| 33d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33e00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 | slime-2.31/contrib/swank-clipboa |
| 33e20 | 72 64 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | rd.lisp......................... |
| 33e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33e60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 33e80 | 30 30 30 34 31 37 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 36 32 32 00 20 30 00 00 00 | 0004170.00000000000.016622..0... |
| 33ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33f00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 33f20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 33f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 33fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34000 | 3b 3b 3b 20 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 2e 6c 69 73 70 20 2d 2d 2d 20 4f 62 6a | ;;;.swank-clipboard.lisp.---.Obj |
| 34020 | 65 63 74 20 63 6c 69 70 62 6f 61 72 64 0a 3b 3b 0a 3b 3b 20 57 72 69 74 74 65 6e 20 62 79 20 48 | ect.clipboard.;;.;;.Written.by.H |
| 34040 | 65 6c 6d 75 74 20 45 6c 6c 65 72 20 69 6e 20 32 30 30 38 2e 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a | elmut.Eller.in.2008..;;.License: |
| 34060 | 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 3a 73 77 61 | .Public.Domain..(defpackage.:swa |
| 34080 | 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 0a 20 20 28 3a 75 73 65 20 3a 63 6c 29 0a 20 20 28 3a 69 6d | nk-clipboard...(:use.:cl)...(:im |
| 340a0 | 70 6f 72 74 2d 66 72 6f 6d 20 3a 73 77 61 6e 6b 20 3a 64 65 66 73 6c 69 6d 65 66 75 6e 20 3a 77 | port-from.:swank.:defslimefun.:w |
| 340c0 | 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 3a 64 63 61 73 65 29 0a 20 20 28 3a 65 78 | ith-buffer-syntax.:dcase)...(:ex |
| 340e0 | 70 6f 72 74 20 3a 61 64 64 20 3a 64 65 6c 65 74 65 2d 65 6e 74 72 79 20 3a 65 6e 74 72 69 65 73 | port.:add.:delete-entry.:entries |
| 34100 | 20 3a 65 6e 74 72 79 2d 74 6f 2d 72 65 66 20 3a 72 65 66 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 | .:entry-to-ref.:ref))..(in-packa |
| 34120 | 67 65 20 3a 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 29 0a 0a 28 64 65 66 73 74 72 75 63 74 | ge.:swank-clipboard)..(defstruct |
| 34140 | 20 63 6c 69 70 62 6f 61 72 64 20 65 6e 74 72 69 65 73 20 28 63 6f 75 6e 74 65 72 20 30 29 29 0a | .clipboard.entries.(counter.0)). |
| 34160 | 0a 28 64 65 66 76 61 72 20 2a 63 6c 69 70 62 6f 61 72 64 2a 20 28 6d 61 6b 65 2d 63 6c 69 70 62 | .(defvar.*clipboard*.(make-clipb |
| 34180 | 6f 61 72 64 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 61 64 64 20 28 64 61 74 75 6d 29 | oard))..(defslimefun.add.(datum) |
| 341a0 | 0a 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 20 28 64 63 61 73 65 20 64 61 74 75 6d 0a 09 09 20 | ...(let.((value.(dcase.datum.... |
| 341c0 | 28 28 3a 73 74 72 69 6e 67 20 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 29 0a 09 09 20 20 28 77 | ((:string.string.package).....(w |
| 341e0 | 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 70 61 63 6b 61 67 65 29 0a 09 09 20 20 | ith-buffer-syntax.(package)..... |
| 34200 | 20 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 | ..(eval.(read-from-string.string |
| 34220 | 29 29 29 29 0a 09 09 20 28 28 3a 69 6e 73 70 65 63 74 6f 72 20 70 61 72 74 29 20 0a 09 09 20 20 | ))))....((:inspector.part)...... |
| 34240 | 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 6f 72 2d 6e 74 68 2d 70 61 72 74 20 70 61 72 74 29 29 | (swank:inspector-nth-part.part)) |
| 34260 | 0a 09 09 20 28 28 3a 73 6c 64 62 20 66 72 61 6d 65 20 76 61 72 29 0a 09 09 20 20 28 73 77 61 6e | ....((:sldb.frame.var).....(swan |
| 34280 | 6b 2f 62 61 63 6b 65 6e 64 3a 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 66 72 61 6d 65 20 | k/backend:frame-var-value.frame. |
| 342a0 | 76 61 72 29 29 29 29 29 0a 20 20 20 20 28 63 6c 69 70 62 6f 61 72 64 2d 61 64 64 20 76 61 6c 75 | var))))).....(clipboard-add.valu |
| 342c0 | 65 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 41 64 64 65 64 3a 20 7e 61 22 0a 09 | e).....(format.nil."Added:.~a".. |
| 342e0 | 20 20 20 20 28 65 6e 74 72 79 2d 74 6f 2d 73 74 72 69 6e 67 20 28 31 2d 20 28 6c 65 6e 67 74 68 | ....(entry-to-string.(1-.(length |
| 34300 | 20 28 63 6c 69 70 62 6f 61 72 64 2d 65 6e 74 72 69 65 73 20 2a 63 6c 69 70 62 6f 61 72 64 2a 29 | .(clipboard-entries.*clipboard*) |
| 34320 | 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 65 6e 74 72 69 65 73 20 28 29 0a | ))))))..(defslimefun.entries.(). |
| 34340 | 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 72 65 66 20 2e 20 76 61 6c 75 65 29 20 69 6e 20 28 63 6c | ..(loop.for.(ref...value).in.(cl |
| 34360 | 69 70 62 6f 61 72 64 2d 65 6e 74 72 69 65 73 20 2a 63 6c 69 70 62 6f 61 72 64 2a 29 0a 09 63 6f | ipboard-entries.*clipboard*)..co |
| 34380 | 6c 6c 65 63 74 20 60 28 2c 72 65 66 20 2e 20 2c 28 74 6f 2d 6c 69 6e 65 20 76 61 6c 75 65 29 29 | llect.`(,ref...,(to-line.value)) |
| 343a0 | 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 65 6c 65 74 65 2d 65 6e 74 72 79 20 28 65 | ))..(defslimefun.delete-entry.(e |
| 343c0 | 6e 74 72 79 29 0a 20 20 28 6c 65 74 20 28 28 6d 73 67 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 | ntry)...(let.((msg.(format.nil." |
| 343e0 | 44 65 6c 65 74 65 64 3a 20 7e 61 22 20 28 65 6e 74 72 79 2d 74 6f 2d 73 74 72 69 6e 67 20 65 6e | Deleted:.~a".(entry-to-string.en |
| 34400 | 74 72 79 29 29 29 29 0a 20 20 20 20 28 63 6c 69 70 62 6f 61 72 64 2d 64 65 6c 65 74 65 2d 65 6e | try)))).....(clipboard-delete-en |
| 34420 | 74 72 79 20 65 6e 74 72 79 29 0a 20 20 20 20 6d 73 67 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 | try.entry).....msg))..(defslimef |
| 34440 | 75 6e 20 65 6e 74 72 79 2d 74 6f 2d 72 65 66 20 28 65 6e 74 72 79 29 0a 20 20 28 64 65 73 74 72 | un.entry-to-ref.(entry)...(destr |
| 34460 | 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 72 65 66 20 2e 20 76 61 6c 75 65 29 20 28 63 6c 69 | ucturing-bind.(ref...value).(cli |
| 34480 | 70 62 6f 61 72 64 2d 65 6e 74 72 79 20 65 6e 74 72 79 29 0a 20 20 20 20 28 6c 69 73 74 20 72 65 | pboard-entry.entry).....(list.re |
| 344a0 | 66 20 28 74 6f 2d 6c 69 6e 65 20 76 61 6c 75 65 20 35 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 | f.(to-line.value.5))))..(defun.c |
| 344c0 | 6c 69 70 62 6f 61 72 64 2d 61 64 64 20 28 76 61 6c 75 65 29 0a 20 20 28 73 65 74 66 20 28 63 6c | lipboard-add.(value)...(setf.(cl |
| 344e0 | 69 70 62 6f 61 72 64 2d 65 6e 74 72 69 65 73 20 2a 63 6c 69 70 62 6f 61 72 64 2a 29 0a 09 28 61 | ipboard-entries.*clipboard*)..(a |
| 34500 | 70 70 65 6e 64 20 28 63 6c 69 70 62 6f 61 72 64 2d 65 6e 74 72 69 65 73 20 2a 63 6c 69 70 62 6f | ppend.(clipboard-entries.*clipbo |
| 34520 | 61 72 64 2a 29 20 0a 09 09 28 6c 69 73 74 20 28 63 6f 6e 73 20 28 69 6e 63 66 20 28 63 6c 69 70 | ard*)....(list.(cons.(incf.(clip |
| 34540 | 62 6f 61 72 64 2d 63 6f 75 6e 74 65 72 20 2a 63 6c 69 70 62 6f 61 72 64 2a 29 29 0a 09 09 09 20 | board-counter.*clipboard*))..... |
| 34560 | 20 20 20 76 61 6c 75 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 69 70 62 6f 61 72 64 2d | ...value)))))..(defun.clipboard- |
| 34580 | 72 65 66 20 28 72 65 66 29 0a 20 20 28 6c 65 74 20 28 28 74 61 69 6c 20 28 6d 65 6d 62 65 72 20 | ref.(ref)...(let.((tail.(member. |
| 345a0 | 72 65 66 20 28 63 6c 69 70 62 6f 61 72 64 2d 65 6e 74 72 69 65 73 20 2a 63 6c 69 70 62 6f 61 72 | ref.(clipboard-entries.*clipboar |
| 345c0 | 64 2a 29 20 3a 6b 65 79 20 23 27 63 61 72 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 74 61 69 | d*).:key.#'car))).....(cond.(tai |
| 345e0 | 6c 20 28 63 64 72 20 28 63 61 72 20 74 61 69 6c 29 29 29 0a 09 20 20 28 74 20 28 65 72 72 6f 72 | l.(cdr.(car.tail)))....(t.(error |
| 34600 | 20 22 49 6e 76 61 6c 69 64 20 63 6c 69 70 62 6f 61 72 64 20 72 65 66 3a 20 7e 73 22 20 72 65 66 | ."Invalid.clipboard.ref:.~s".ref |
| 34620 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 69 70 62 6f 61 72 64 2d 65 6e 74 72 79 20 28 65 | )))))..(defun.clipboard-entry.(e |
| 34640 | 6e 74 72 79 29 0a 20 20 28 65 6c 74 20 28 63 6c 69 70 62 6f 61 72 64 2d 65 6e 74 72 69 65 73 20 | ntry)...(elt.(clipboard-entries. |
| 34660 | 2a 63 6c 69 70 62 6f 61 72 64 2a 29 20 65 6e 74 72 79 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 69 | *clipboard*).entry))..(defun.cli |
| 34680 | 70 62 6f 61 72 64 2d 64 65 6c 65 74 65 2d 65 6e 74 72 79 20 28 69 6e 64 65 78 29 0a 20 20 28 6c | pboard-delete-entry.(index)...(l |
| 346a0 | 65 74 2a 20 28 28 6c 69 73 74 20 28 63 6c 69 70 62 6f 61 72 64 2d 65 6e 74 72 69 65 73 20 2a 63 | et*.((list.(clipboard-entries.*c |
| 346c0 | 6c 69 70 62 6f 61 72 64 2a 29 29 0a 09 20 28 74 61 69 6c 20 28 6e 74 68 63 64 72 20 69 6e 64 65 | lipboard*))...(tail.(nthcdr.inde |
| 346e0 | 78 20 6c 69 73 74 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 63 6c 69 70 62 6f 61 72 64 2d 65 | x.list))).....(setf.(clipboard-e |
| 34700 | 6e 74 72 69 65 73 20 2a 63 6c 69 70 62 6f 61 72 64 2a 29 0a 09 20 20 28 61 70 70 65 6e 64 20 28 | ntries.*clipboard*)....(append.( |
| 34720 | 6c 64 69 66 66 20 6c 69 73 74 20 74 61 69 6c 29 20 28 63 64 72 20 74 61 69 6c 29 29 29 29 29 0a | ldiff.list.tail).(cdr.tail))))). |
| 34740 | 0a 28 64 65 66 75 6e 20 65 6e 74 72 79 2d 74 6f 2d 73 74 72 69 6e 67 20 28 65 6e 74 72 79 29 0a | .(defun.entry-to-string.(entry). |
| 34760 | 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 72 65 66 20 2e 20 76 61 6c | ..(destructuring-bind.(ref...val |
| 34780 | 75 65 29 20 28 63 6c 69 70 62 6f 61 72 64 2d 65 6e 74 72 79 20 65 6e 74 72 79 29 0a 20 20 20 20 | ue).(clipboard-entry.entry)..... |
| 347a0 | 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 23 40 7e 64 28 7e 61 29 22 20 72 65 66 20 28 74 6f 2d 6c | (format.nil."#@~d(~a)".ref.(to-l |
| 347c0 | 69 6e 65 20 76 61 6c 75 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 6f 2d 6c 69 6e 65 20 20 28 | ine.value))))..(defun.to-line..( |
| 347e0 | 6f 62 6a 65 63 74 20 26 6f 70 74 69 6f 6e 61 6c 20 28 77 69 64 74 68 20 37 35 29 29 0a 20 20 28 | object.&optional.(width.75))...( |
| 34800 | 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2a 73 74 61 6e 64 61 72 64 | with-output-to-string.(*standard |
| 34820 | 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 28 77 72 69 74 65 20 6f 62 6a 65 63 74 20 3a 72 69 67 | -output*).....(write.object.:rig |
| 34840 | 68 74 2d 6d 61 72 67 69 6e 20 77 69 64 74 68 20 3a 6c 69 6e 65 73 20 31 29 29 29 0a 0a 28 70 72 | ht-margin.width.:lines.1)))..(pr |
| 34860 | 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 29 0a 00 00 00 00 00 00 00 00 | ovide.:swank-clipboard)......... |
| 34880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 348a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 348c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 348e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 349a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 349c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 349e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 6d 61 63 72 6f 73 74 | slime-2.31/contrib/swank-macrost |
| 34a20 | 65 70 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ep.lisp......................... |
| 34a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 34a80 | 30 30 31 37 36 34 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 36 36 37 00 20 30 00 00 00 | 0017641.00000000000.016667..0... |
| 34aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 34b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 34b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 34c00 | 3b 3b 3b 20 73 77 61 6e 6b 2d 6d 61 63 72 6f 73 74 65 70 2e 6c 69 73 70 20 2d 2d 20 66 61 6e 63 | ;;;.swank-macrostep.lisp.--.fanc |
| 34c20 | 79 20 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 20 76 69 61 20 6d 61 63 72 6f 73 74 65 70 2e | y.macro-expansion.via.macrostep. |
| 34c40 | 65 6c 0a 3b 3b 0a 3b 3b 20 41 75 74 68 6f 72 73 3a 20 4c 75 69 73 20 4f 6c 69 76 65 69 72 61 20 | el.;;.;;.Authors:.Luis.Oliveira. |
| 34c60 | 3c 6c 75 69 73 6d 62 6f 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 | <luismbo@gmail.com>.;;.......... |
| 34c80 | 4a 6f 6e 20 4f 64 64 69 65 20 3c 6a 2e 6a 2e 6f 64 64 69 65 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a | Jon.Oddie.<j.j.oddie@gmail.com>. |
| 34ca0 | 3b 3b 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 0a 0a 28 64 | ;;.;;.License:.Public.Domain..(d |
| 34cc0 | 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2d 6d 61 63 72 6f 73 74 65 70 0a 20 20 28 3a 75 73 | efpackage.swank-macrostep...(:us |
| 34ce0 | 65 20 63 6c 20 73 77 61 6e 6b 29 0a 20 20 28 3a 69 6d 70 6f 72 74 2d 66 72 6f 6d 20 73 77 61 6e | e.cl.swank)...(:import-from.swan |
| 34d00 | 6b 0a 09 09 23 3a 2a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 70 72 69 6e 74 65 72 2d 62 69 6e 64 69 | k...#:*macroexpand-printer-bindi |
| 34d20 | 6e 67 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 77 69 74 68 2d 62 75 66 66 | ngs*.................#:with-buff |
| 34d40 | 65 72 2d 73 79 6e 74 61 78 0a 09 09 23 3a 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 0a 20 20 20 20 | er-syntax...#:with-bindings..... |
| 34d60 | 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 | ............#:to-string......... |
| 34d80 | 20 20 20 20 20 20 20 20 23 3a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 0a 20 20 20 20 20 20 | ........#:macroexpand-all....... |
| 34da0 | 20 20 20 20 20 20 20 20 20 20 23 3a 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 | ..........#:compiler-macroexpand |
| 34dc0 | 2d 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 64 65 66 73 6c 69 6d 65 66 75 6e | -1.................#:defslimefun |
| 34de0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 63 6f 6c 6c 65 63 74 2d 6d 61 63 72 6f | .................#:collect-macro |
| 34e00 | 2d 66 6f 72 6d 73 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 23 3a 6d 61 63 72 6f 73 74 65 70 2d 65 | -forms)...(:export.#:macrostep-e |
| 34e20 | 78 70 61 6e 64 2d 31 0a 20 20 20 20 20 20 20 20 20 20 20 23 3a 6d 61 63 72 6f 2d 66 6f 72 6d 2d | xpand-1............#:macro-form- |
| 34e40 | 70 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 23 3a 73 77 61 6e 6b 2d 6d 61 63 72 6f 73 74 | p))..(in-package.#:swank-macrost |
| 34e60 | 65 70 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 | ep)..(defslimefun.macrostep-expa |
| 34e80 | 6e 64 2d 31 20 28 73 74 72 69 6e 67 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 3f 20 63 6f | nd-1.(string.compiler-macros?.co |
| 34ea0 | 6e 74 65 78 74 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a | ntext)...(with-buffer-syntax.(). |
| 34ec0 | 20 20 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e | ....(let.((form.(read-from-strin |
| 34ee0 | 67 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | g.string))).......(multiple-valu |
| 34f00 | 65 2d 62 69 6e 64 20 28 65 78 70 61 6e 73 69 6f 6e 20 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 29 | e-bind.(expansion.error-message) |
| 34f20 | 0a 09 20 20 28 65 78 70 61 6e 64 2d 66 6f 72 6d 2d 6f 6e 63 65 20 66 6f 72 6d 20 63 6f 6d 70 69 | ....(expand-form-once.form.compi |
| 34f40 | 6c 65 72 2d 6d 61 63 72 6f 73 3f 20 63 6f 6e 74 65 78 74 29 0a 09 28 69 66 20 65 72 72 6f 72 2d | ler-macros?.context)..(if.error- |
| 34f60 | 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 72 72 6f 72 20 2c 65 72 | message.............`(:error.,er |
| 34f80 | 72 6f 72 2d 6d 65 73 73 61 67 65 29 0a 09 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | ror-message)......(multiple-valu |
| 34fa0 | 65 2d 62 69 6e 64 20 28 6d 61 63 72 6f 73 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 29 0a | e-bind.(macros.compiler-macros). |
| 34fc0 | 09 09 28 63 6f 6c 6c 65 63 74 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 2d 69 6e 2d 63 6f 6e 74 65 78 | ..(collect-macro-forms-in-contex |
| 34fe0 | 74 20 65 78 70 61 6e 73 69 6f 6e 20 63 6f 6e 74 65 78 74 29 0a 09 20 20 20 20 20 20 28 6c 65 74 | t.expansion.context)........(let |
| 35000 | 2a 20 28 28 61 6c 6c 2d 6d 61 63 72 6f 73 20 28 61 70 70 65 6e 64 20 6d 61 63 72 6f 73 20 63 6f | *.((all-macros.(append.macros.co |
| 35020 | 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 29 29 0a 09 09 20 20 20 20 20 28 70 72 65 74 74 79 2d 65 | mpiler-macros))........(pretty-e |
| 35040 | 78 70 61 6e 73 69 6f 6e 20 28 70 70 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 65 78 70 61 6e | xpansion.(pprint-to-string.expan |
| 35060 | 73 69 6f 6e 29 29 0a 09 09 20 20 20 20 20 28 70 6f 73 69 74 69 6f 6e 73 20 28 63 6f 6c 6c 65 63 | sion))........(positions.(collec |
| 35080 | 74 2d 66 6f 72 6d 2d 70 6f 73 69 74 69 6f 6e 73 20 65 78 70 61 6e 73 69 6f 6e 0a 09 09 09 09 09 | t-form-positions.expansion...... |
| 350a0 | 09 09 70 72 65 74 74 79 2d 65 78 70 61 6e 73 69 6f 6e 0a 09 09 09 09 09 09 09 61 6c 6c 2d 6d 61 | ..pretty-expansion........all-ma |
| 350c0 | 63 72 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 | cros))......................(sub |
| 350e0 | 66 6f 72 6d 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | form-info....................... |
| 35100 | 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 | (loop..........................f |
| 35120 | 6f 72 20 66 6f 72 6d 20 69 6e 20 61 6c 6c 2d 6d 61 63 72 6f 73 0a 20 20 20 20 20 20 20 20 20 20 | or.form.in.all-macros........... |
| 35140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 73 74 61 72 74 20 65 6e 64 29 20 69 | ...............for.(start.end).i |
| 35160 | 6e 20 70 6f 73 69 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.positions..................... |
| 35180 | 20 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 | .....when.(and.start.end)....... |
| 351a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 65 74 20 | ...................collect.(let. |
| 351c0 | 28 28 6f 70 2d 6e 61 6d 65 20 28 74 6f 2d 73 74 72 69 6e 67 20 28 66 69 72 73 74 20 66 6f 72 6d | ((op-name.(to-string.(first.form |
| 351e0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )))............................. |
| 35200 | 20 20 20 20 20 20 20 20 20 20 20 28 6f 70 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...........(op-type............. |
| 35220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | ............................(if. |
| 35240 | 28 6d 65 6d 62 65 72 20 66 6f 72 6d 20 6d 61 63 72 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (member.form.macros)............ |
| 35260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 35280 | 20 3a 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:macro......................... |
| 352a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6d 70 69 6c 65 72 2d 6d 61 | ....................:compiler-ma |
| 352c0 | 63 72 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cro))).......................... |
| 352e0 | 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6f 70 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 | ..........(list.op-name......... |
| 35300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 35320 | 20 6f 70 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .op-type........................ |
| 35340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 29 29 29 29 29 0a 09 09 60 | ..................start)))))...` |
| 35360 | 28 3a 6f 6b 20 2c 70 72 65 74 74 79 2d 65 78 70 61 6e 73 69 6f 6e 20 2c 73 75 62 66 6f 72 6d 2d | (:ok.,pretty-expansion.,subform- |
| 35380 | 69 6e 66 6f 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 70 61 6e 64 2d 66 6f 72 6d | info))))))))..(defun.expand-form |
| 353a0 | 2d 6f 6e 63 65 20 28 66 6f 72 6d 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 3f 20 63 6f 6e | -once.(form.compiler-macros?.con |
| 353c0 | 74 65 78 74 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 65 78 | text)...(multiple-value-bind.(ex |
| 353e0 | 70 61 6e 73 69 6f 6e 20 65 78 70 61 6e 64 65 64 3f 29 0a 20 20 20 20 20 20 28 6d 61 63 72 6f 65 | pansion.expanded?).......(macroe |
| 35400 | 78 70 61 6e 64 2d 31 2d 69 6e 2d 63 6f 6e 74 65 78 74 20 66 6f 72 6d 20 63 6f 6e 74 65 78 74 29 | xpand-1-in-context.form.context) |
| 35420 | 0a 20 20 20 20 28 69 66 20 65 78 70 61 6e 64 65 64 3f 0a 09 28 76 61 6c 75 65 73 20 65 78 70 61 | .....(if.expanded?..(values.expa |
| 35440 | 6e 73 69 6f 6e 20 6e 69 6c 29 0a 09 28 69 66 20 28 6e 6f 74 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 | nsion.nil)..(if.(not.compiler-ma |
| 35460 | 63 72 6f 73 3f 29 0a 09 20 20 20 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 22 4e 6f 74 20 61 20 6d | cros?)......(values.nil."Not.a.m |
| 35480 | 61 63 72 6f 20 66 6f 72 6d 22 29 0a 09 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | acro.form")......(multiple-value |
| 354a0 | 2d 62 69 6e 64 20 28 65 78 70 61 6e 73 69 6f 6e 20 65 78 70 61 6e 64 65 64 3f 29 0a 09 09 28 63 | -bind.(expansion.expanded?)...(c |
| 354c0 | 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 66 6f 72 6d 29 0a 09 20 20 20 | ompiler-macroexpand-1.form)..... |
| 354e0 | 20 20 20 28 69 66 20 65 78 70 61 6e 64 65 64 3f 0a 09 09 20 20 28 76 61 6c 75 65 73 20 65 78 70 | ...(if.expanded?.....(values.exp |
| 35500 | 61 6e 73 69 6f 6e 20 6e 69 6c 29 0a 09 09 20 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 22 4e 6f 74 | ansion.nil).....(values.nil."Not |
| 35520 | 20 61 20 6d 61 63 72 6f 20 6f 72 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 6d 22 | .a.macro.or.compiler-macro.form" |
| 35540 | 29 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6d 61 63 72 6f 2d 66 6f 72 6d | )))))))..(defslimefun.macro-form |
| 35560 | 2d 70 20 28 73 74 72 69 6e 67 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 3f 20 63 6f 6e 74 | -p.(string.compiler-macros?.cont |
| 35580 | 65 78 74 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 | ext)...(with-buffer-syntax.()... |
| 355a0 | 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 | ..(let.((form............(handle |
| 355c0 | 72 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d | r-case................(read-from |
| 355e0 | 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 | -string.string)..............(er |
| 35600 | 72 6f 72 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ror.(condition)................( |
| 35620 | 75 6e 6c 65 73 73 20 28 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 29 0a 20 20 | unless.(debug-on-swank-error)... |
| 35640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 6d 61 63 72 | ...............(return-from.macr |
| 35660 | 6f 2d 66 6f 72 6d 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 | o-form-p....................`(:e |
| 35680 | 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 52 65 61 64 20 65 72 72 6f 72 3a 20 7e | rror.,(format.nil."Read.error:.~ |
| 356a0 | 41 22 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 60 28 3a 6f 6b | A".condition)))))))).......`(:ok |
| 356c0 | 20 2c 28 6d 61 63 72 6f 2d 66 6f 72 6d 2d 74 79 70 65 20 66 6f 72 6d 20 63 6f 6d 70 69 6c 65 72 | .,(macro-form-type.form.compiler |
| 356e0 | 2d 6d 61 63 72 6f 73 3f 20 63 6f 6e 74 65 78 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 | -macros?.context)))))..(defun.ma |
| 35700 | 63 72 6f 2d 66 6f 72 6d 2d 74 79 70 65 20 28 66 6f 72 6d 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 | cro-form-type.(form.compiler-mac |
| 35720 | 72 6f 73 3f 20 63 6f 6e 74 65 78 74 29 0a 20 20 28 63 6f 6e 64 0a 20 20 20 20 28 28 6f 72 20 28 | ros?.context)...(cond.....((or.( |
| 35740 | 6e 6f 74 20 28 63 6f 6e 73 70 20 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 | not.(consp.form))..........(not. |
| 35760 | 28 73 79 6d 62 6f 6c 70 20 28 63 61 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 20 6e 69 6c 29 | (symbolp.(car.form))))......nil) |
| 35780 | 0a 20 20 20 20 28 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 65 78 70 61 | .....((multiple-value-bind.(expa |
| 357a0 | 6e 73 69 6f 6e 20 65 78 70 61 6e 64 65 64 3f 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f | nsion.expanded?)..........(macro |
| 357c0 | 65 78 70 61 6e 64 2d 31 2d 69 6e 2d 63 6f 6e 74 65 78 74 20 66 6f 72 6d 20 63 6f 6e 74 65 78 74 | expand-1-in-context.form.context |
| 357e0 | 29 0a 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 65 78 70 61 6e 73 | )........(declare.(ignore.expans |
| 35800 | 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 65 78 70 61 6e 64 65 64 3f 29 0a 20 20 20 20 20 3a 6d 61 | ion))........expanded?)......:ma |
| 35820 | 63 72 6f 29 0a 20 20 20 20 28 28 61 6e 64 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 3f 0a | cro).....((and.compiler-macros?. |
| 35840 | 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 | ..........(multiple-value-bind.( |
| 35860 | 65 78 70 61 6e 73 69 6f 6e 20 65 78 70 61 6e 64 65 64 3f 29 0a 20 20 20 20 20 20 20 20 20 20 20 | expansion.expanded?)............ |
| 35880 | 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 66 6f 72 6d 29 | ...(compiler-macroexpand-1.form) |
| 358a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 65 78 | .............(declare.(ignore.ex |
| 358c0 | 70 61 6e 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 61 6e 64 65 64 3f 29 | pansion)).............expanded?) |
| 358e0 | 29 0a 20 20 20 20 20 3a 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 29 0a 20 20 20 20 28 74 0a 20 | )......:compiler-macro).....(t.. |
| 35900 | 20 20 20 20 6e 69 6c 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 48 61 63 6b 73 20 74 6f 20 73 75 70 70 | ....nil)))....;;;;.Hacks.to.supp |
| 35920 | 6f 72 74 20 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 20 77 69 74 68 69 6e 20 6c 6f 63 61 6c | ort.macro-expansion.within.local |
| 35940 | 20 63 6f 6e 74 65 78 74 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 6d 61 63 72 6f 73 74 | .context..(defparameter.*macrost |
| 35960 | 65 70 2d 74 61 67 2a 20 28 67 65 6e 73 79 6d 29 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 | ep-tag*.(gensym))..(defparameter |
| 35980 | 20 2a 6d 61 63 72 6f 73 74 65 70 2d 70 6c 61 63 65 68 6f 6c 64 65 72 2a 20 27 2a 6d 61 63 72 6f | .*macrostep-placeholder*.'*macro |
| 359a0 | 73 74 65 70 2d 70 6c 61 63 65 68 6f 6c 64 65 72 2a 29 0a 0a 28 64 65 66 69 6e 65 2d 63 6f 6e 64 | step-placeholder*)..(define-cond |
| 359c0 | 69 74 69 6f 6e 20 65 78 70 61 6e 73 69 6f 6e 2d 69 6e 2d 63 6f 6e 74 65 78 74 2d 66 61 69 6c 65 | ition.expansion-in-context-faile |
| 359e0 | 64 20 28 73 69 6d 70 6c 65 2d 65 72 72 6f 72 29 0a 20 20 28 29 29 0a 0a 28 64 65 66 6d 61 63 72 | d.(simple-error)...())..(defmacr |
| 35a00 | 6f 20 74 68 72 6f 77 2d 65 78 70 61 6e 73 69 6f 6e 20 28 66 6f 72 6d 20 26 65 6e 76 69 72 6f 6e | o.throw-expansion.(form.&environ |
| 35a20 | 6d 65 6e 74 20 65 6e 76 29 0a 20 20 28 74 68 72 6f 77 20 2a 6d 61 63 72 6f 73 74 65 70 2d 74 61 | ment.env)...(throw.*macrostep-ta |
| 35a40 | 67 2a 20 28 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 66 6f 72 6d 20 65 6e 76 29 29 29 0a 0a 28 | g*.(macroexpand-1.form.env)))..( |
| 35a60 | 64 65 66 6d 61 63 72 6f 20 74 68 72 6f 77 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 | defmacro.throw-collected-macro-f |
| 35a80 | 6f 72 6d 73 20 28 66 6f 72 6d 20 26 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 65 6e 76 29 0a 20 20 28 | orms.(form.&environment.env)...( |
| 35aa0 | 74 68 72 6f 77 20 2a 6d 61 63 72 6f 73 74 65 70 2d 74 61 67 2a 20 28 63 6f 6c 6c 65 63 74 2d 6d | throw.*macrostep-tag*.(collect-m |
| 35ac0 | 61 63 72 6f 2d 66 6f 72 6d 73 20 66 6f 72 6d 20 65 6e 76 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d | acro-forms.form.env)))..(defun.m |
| 35ae0 | 61 63 72 6f 65 78 70 61 6e 64 2d 31 2d 69 6e 2d 63 6f 6e 74 65 78 74 20 28 66 6f 72 6d 20 63 6f | acroexpand-1-in-context.(form.co |
| 35b00 | 6e 74 65 78 74 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 28 6d 61 | ntext)...(handler-case.......(ma |
| 35b20 | 63 72 6f 65 78 70 61 6e 64 2d 61 6e 64 2d 63 61 74 63 68 0a 20 20 20 20 20 20 20 60 28 74 68 72 | croexpand-and-catch........`(thr |
| 35b40 | 6f 77 2d 65 78 70 61 6e 73 69 6f 6e 20 2c 66 6f 72 6d 29 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 | ow-expansion.,form).context).... |
| 35b60 | 20 28 65 72 72 6f 72 20 28 29 0a 20 20 20 20 20 20 28 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 | .(error.().......(macroexpand-1. |
| 35b80 | 66 6f 72 6d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6c 6c 65 63 74 2d 6d 61 63 72 6f 2d 66 | form))))..(defun.collect-macro-f |
| 35ba0 | 6f 72 6d 73 2d 69 6e 2d 63 6f 6e 74 65 78 74 20 28 66 6f 72 6d 20 63 6f 6e 74 65 78 74 29 0a 20 | orms-in-context.(form.context).. |
| 35bc0 | 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 28 6d 61 63 72 6f 65 78 70 61 6e | .(handler-case.......(macroexpan |
| 35be0 | 64 2d 61 6e 64 2d 63 61 74 63 68 0a 20 20 20 20 20 20 20 60 28 74 68 72 6f 77 2d 63 6f 6c 6c 65 | d-and-catch........`(throw-colle |
| 35c00 | 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 2c 66 6f 72 6d 29 20 63 6f 6e 74 65 78 74 29 | cted-macro-forms.,form).context) |
| 35c20 | 0a 20 20 20 20 28 65 72 72 6f 72 20 28 29 0a 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 74 2d 6d 61 | .....(error.().......(collect-ma |
| 35c40 | 63 72 6f 2d 66 6f 72 6d 73 20 66 6f 72 6d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f | cro-forms.form))))..(defun.macro |
| 35c60 | 65 78 70 61 6e 64 2d 61 6e 64 2d 63 61 74 63 68 20 28 66 6f 72 6d 20 63 6f 6e 74 65 78 74 29 0a | expand-and-catch.(form.context). |
| 35c80 | 20 20 28 63 61 74 63 68 20 2a 6d 61 63 72 6f 73 74 65 70 2d 74 61 67 2a 0a 20 20 20 20 28 6d 61 | ..(catch.*macrostep-tag*.....(ma |
| 35ca0 | 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 28 65 6e 63 6c 6f 73 65 2d 66 6f 72 6d 2d 69 6e 2d 63 | croexpand-all.(enclose-form-in-c |
| 35cc0 | 6f 6e 74 65 78 74 20 66 6f 72 6d 20 63 6f 6e 74 65 78 74 29 29 0a 20 20 20 20 28 65 72 72 6f 72 | ontext.form.context)).....(error |
| 35ce0 | 20 27 65 78 70 61 6e 73 69 6f 6e 2d 69 6e 2d 63 6f 6e 74 65 78 74 2d 66 61 69 6c 65 64 29 29 29 | .'expansion-in-context-failed))) |
| 35d00 | 0a 0a 28 64 65 66 75 6e 20 65 6e 63 6c 6f 73 65 2d 66 6f 72 6d 2d 69 6e 2d 63 6f 6e 74 65 78 74 | ..(defun.enclose-form-in-context |
| 35d20 | 20 28 66 6f 72 6d 20 63 6f 6e 74 65 78 74 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 | .(form.context)...(with-buffer-s |
| 35d40 | 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 | yntax.().....(destructuring-bind |
| 35d60 | 20 28 70 72 65 66 69 78 20 73 75 66 66 69 78 29 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 28 | .(prefix.suffix).context.......( |
| 35d80 | 6c 65 74 2a 20 28 28 70 6c 61 63 65 68 6f 6c 64 65 72 2d 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 | let*.((placeholder-form......... |
| 35da0 | 20 20 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 | ......(read-from-string......... |
| 35dc0 | 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .......(concatenate............. |
| 35de0 | 20 20 20 20 27 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 66 | ....'string.................pref |
| 35e00 | 69 78 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 2a 6d 61 63 72 6f 73 74 65 70 2d 70 | ix.(prin1-to-string.*macrostep-p |
| 35e20 | 6c 61 63 65 68 6f 6c 64 65 72 2a 29 20 73 75 66 66 69 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 | laceholder*).suffix))).......... |
| 35e40 | 20 20 20 20 28 73 75 62 73 74 69 74 75 74 65 64 2d 66 6f 72 6d 20 28 73 75 62 73 74 20 66 6f 72 | ....(substituted-form.(subst.for |
| 35e60 | 6d 20 2a 6d 61 63 72 6f 73 74 65 70 2d 70 6c 61 63 65 68 6f 6c 64 65 72 2a 0a 20 20 20 20 20 20 | m.*macrostep-placeholder*....... |
| 35e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 35ea0 | 70 6c 61 63 65 68 6f 6c 64 65 72 2d 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 | placeholder-form))).........(if. |
| 35ec0 | 28 6e 6f 74 20 28 65 71 75 61 6c 20 70 6c 61 63 65 68 6f 6c 64 65 72 2d 66 6f 72 6d 20 73 75 62 | (not.(equal.placeholder-form.sub |
| 35ee0 | 73 74 69 74 75 74 65 64 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 75 62 73 | stituted-form)).............subs |
| 35f00 | 74 69 74 75 74 65 64 2d 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 | tituted-form.............(error. |
| 35f20 | 27 65 78 70 61 6e 73 69 6f 6e 2d 69 6e 2d 63 6f 6e 74 65 78 74 2d 66 61 69 6c 65 64 29 29 29 29 | 'expansion-in-context-failed)))) |
| 35f40 | 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 72 61 63 6b 69 6e 67 20 50 72 65 74 74 79 20 50 72 69 6e 74 | ))....;;;;.Tracking.Pretty.Print |
| 35f60 | 65 72 0a 0a 28 64 65 66 75 6e 20 6d 61 72 6b 65 72 2d 63 68 61 72 2d 70 20 28 63 68 61 72 29 0a | er..(defun.marker-char-p.(char). |
| 35f80 | 20 20 28 3c 3d 20 23 78 65 30 30 30 20 28 63 68 61 72 2d 63 6f 64 65 20 63 68 61 72 29 20 23 78 | ..(<=.#xe000.(char-code.char).#x |
| 35fa0 | 65 38 66 66 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 | e8ff))..(defun.make-marker-char. |
| 35fc0 | 28 69 64 29 0a 20 20 3b 3b 20 75 73 69 6e 67 20 74 68 65 20 70 72 69 76 61 74 65 2d 75 73 65 20 | (id)...;;.using.the.private-use. |
| 35fe0 | 63 68 61 72 61 63 74 65 72 73 20 55 2b 45 30 30 30 2e 2e 55 2b 46 38 46 46 20 61 73 20 6d 61 72 | characters.U+E000..U+F8FF.as.mar |
| 36000 | 6b 65 72 73 2c 20 73 6f 0a 20 20 3b 3b 20 74 68 61 74 27 73 20 6f 75 72 20 75 70 70 65 72 20 6c | kers,.so...;;.that's.our.upper.l |
| 36020 | 69 6d 69 74 20 66 6f 72 20 68 6f 77 20 6d 61 6e 79 20 77 65 20 63 61 6e 20 75 73 65 2e 0a 20 20 | imit.for.how.many.we.can.use.... |
| 36040 | 28 61 73 73 65 72 74 20 28 3c 3d 20 30 20 69 64 20 23 78 38 66 66 29 29 0a 20 20 28 63 6f 64 65 | (assert.(<=.0.id.#x8ff))...(code |
| 36060 | 2d 63 68 61 72 20 28 2b 20 23 78 65 30 30 30 20 69 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 | -char.(+.#xe000.id)))..(defun.ma |
| 36080 | 72 6b 65 72 2d 63 68 61 72 2d 69 64 20 28 63 68 61 72 29 0a 20 20 28 61 73 73 65 72 74 20 28 6d | rker-char-id.(char)...(assert.(m |
| 360a0 | 61 72 6b 65 72 2d 63 68 61 72 2d 70 20 63 68 61 72 29 29 0a 20 20 28 2d 20 28 63 68 61 72 2d 63 | arker-char-p.char))...(-.(char-c |
| 360c0 | 6f 64 65 20 63 68 61 72 29 20 23 78 65 30 30 30 29 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 | ode.char).#xe000))..(defparamete |
| 360e0 | 72 20 2b 77 68 69 74 65 73 70 61 63 65 2b 20 28 6d 61 70 63 61 72 20 23 27 63 6f 64 65 2d 63 68 | r.+whitespace+.(mapcar.#'code-ch |
| 36100 | 61 72 20 27 28 39 20 31 33 20 31 30 20 33 32 29 29 29 0a 0a 28 64 65 66 75 6e 20 77 68 69 74 65 | ar.'(9.13.10.32)))..(defun.white |
| 36120 | 73 70 61 63 65 70 20 28 63 68 61 72 29 0a 20 20 28 6d 65 6d 62 65 72 20 63 68 61 72 20 2b 77 68 | spacep.(char)...(member.char.+wh |
| 36140 | 69 74 65 73 70 61 63 65 2b 29 29 0a 0a 28 64 65 66 75 6e 20 70 70 72 69 6e 74 2d 74 6f 2d 73 74 | itespace+))..(defun.pprint-to-st |
| 36160 | 72 69 6e 67 20 28 6f 62 6a 65 63 74 20 26 6f 70 74 69 6f 6e 61 6c 20 70 70 72 69 6e 74 2d 64 69 | ring.(object.&optional.pprint-di |
| 36180 | 73 70 61 74 63 68 29 0a 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 70 70 72 69 6e 74 2d 64 | spatch)...(let.((*print-pprint-d |
| 361a0 | 69 73 70 61 74 63 68 2a 20 28 6f 72 20 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 20 2a 70 72 | ispatch*.(or.pprint-dispatch.*pr |
| 361c0 | 69 6e 74 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 2a 29 29 29 0a 20 20 20 20 28 77 69 74 | int-pprint-dispatch*))).....(wit |
| 361e0 | 68 2d 62 69 6e 64 69 6e 67 73 20 2a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 70 72 69 6e 74 65 72 2d | h-bindings.*macroexpand-printer- |
| 36200 | 62 69 6e 64 69 6e 67 73 2a 0a 20 20 20 20 20 20 28 74 6f 2d 73 74 72 69 6e 67 20 6f 62 6a 65 63 | bindings*.......(to-string.objec |
| 36220 | 74 29 29 29 29 0a 0a 23 2d 63 6c 69 73 70 0a 28 64 65 66 75 6e 20 63 6f 6c 6c 65 63 74 2d 66 6f | t))))..#-clisp.(defun.collect-fo |
| 36240 | 72 6d 2d 70 6f 73 69 74 69 6f 6e 73 20 28 65 78 70 61 6e 73 69 6f 6e 20 70 72 69 6e 74 65 64 2d | rm-positions.(expansion.printed- |
| 36260 | 65 78 70 61 6e 73 69 6f 6e 20 66 6f 72 6d 73 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 73 74 | expansion.forms)...(loop.for.(st |
| 36280 | 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 69 6e 20 28 63 6f 6c 6c 65 63 74 2d 6d 61 72 6b 65 72 | art.end)......in.(collect-marker |
| 362a0 | 2d 70 6f 73 69 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 28 70 70 72 69 6e 74 2d 74 6f 2d 73 | -positions..........(pprint-to-s |
| 362c0 | 74 72 69 6e 67 20 65 78 70 61 6e 73 69 6f 6e 20 28 6d 61 6b 65 2d 74 72 61 63 6b 69 6e 67 2d 70 | tring.expansion.(make-tracking-p |
| 362e0 | 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 20 66 6f 72 6d 73 29 29 0a 20 20 20 20 20 20 20 20 20 | print-dispatch.forms)).......... |
| 36300 | 28 6c 65 6e 67 74 68 20 66 6f 72 6d 73 29 29 0a 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 77 68 | (length.forms))......collect.(wh |
| 36320 | 65 6e 20 28 61 6e 64 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | en.(and.start.end).............. |
| 36340 | 20 20 28 6c 69 73 74 20 28 66 69 6e 64 2d 6e 6f 6e 2d 77 68 69 74 65 73 70 61 63 65 2d 70 6f 73 | ..(list.(find-non-whitespace-pos |
| 36360 | 69 74 69 6f 6e 20 70 72 69 6e 74 65 64 2d 65 78 70 61 6e 73 69 6f 6e 20 73 74 61 72 74 29 0a 20 | ition.printed-expansion.start).. |
| 36380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 6e 6f 6e 2d 77 68 | ....................(find-non-wh |
| 363a0 | 69 74 65 73 70 61 63 65 2d 70 6f 73 69 74 69 6f 6e 20 70 72 69 6e 74 65 64 2d 65 78 70 61 6e 73 | itespace-position.printed-expans |
| 363c0 | 69 6f 6e 20 65 6e 64 29 29 29 29 29 0a 0a 3b 3b 20 54 68 65 20 70 70 72 69 6e 74 2d 64 69 73 70 | ion.end)))))..;;.The.pprint-disp |
| 363e0 | 61 74 63 68 20 74 61 62 6c 65 20 63 6f 6e 73 74 72 75 63 74 65 64 20 62 79 0a 3b 3b 20 4d 41 4b | atch.table.constructed.by.;;.MAK |
| 36400 | 45 2d 54 52 41 43 4b 49 4e 47 2d 50 50 52 49 4e 54 2d 44 49 53 50 41 54 43 48 20 63 61 75 73 65 | E-TRACKING-PPRINT-DISPATCH.cause |
| 36420 | 73 20 61 6e 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 20 61 6e 64 20 73 74 61 63 6b 0a 3b 3b 20 | s.an.infinite.loop.and.stack.;;. |
| 36440 | 6f 76 65 72 66 6c 6f 77 20 75 6e 64 65 72 20 43 4c 49 53 50 20 76 65 72 73 69 6f 6e 20 32 2e 34 | overflow.under.CLISP.version.2.4 |
| 36460 | 39 2e 20 20 4d 61 6b 65 20 74 68 65 20 43 4f 4c 4c 45 43 54 2d 46 4f 52 4d 2d 50 4f 53 49 54 49 | 9...Make.the.COLLECT-FORM-POSITI |
| 36480 | 4f 4e 53 0a 3b 3b 20 65 6e 74 72 79 20 70 6f 69 6e 74 20 61 20 6e 6f 2d 6f 70 20 69 6e 20 74 68 | ONS.;;.entry.point.a.no-op.in.th |
| 364a0 | 69 20 63 61 73 65 2c 20 73 6f 20 74 68 61 74 20 62 61 73 69 63 20 6d 61 63 72 6f 2d 65 78 70 61 | i.case,.so.that.basic.macro-expa |
| 364c0 | 6e 73 69 6f 6e 20 77 69 6c 6c 0a 3b 3b 20 73 74 69 6c 6c 20 77 6f 72 6b 20 28 77 69 74 68 6f 75 | nsion.will.;;.still.work.(withou |
| 364e0 | 74 20 64 65 74 65 63 74 69 6f 6e 20 6f 66 20 69 6e 6e 65 72 20 6d 61 63 72 6f 20 66 6f 72 6d 73 | t.detection.of.inner.macro.forms |
| 36500 | 29 0a 23 2b 63 6c 69 73 70 0a 28 64 65 66 75 6e 20 63 6f 6c 6c 65 63 74 2d 66 6f 72 6d 2d 70 6f | ).#+clisp.(defun.collect-form-po |
| 36520 | 73 69 74 69 6f 6e 73 20 28 65 78 70 61 6e 73 69 6f 6e 20 70 72 69 6e 74 65 64 2d 65 78 70 61 6e | sitions.(expansion.printed-expan |
| 36540 | 73 69 6f 6e 20 66 6f 72 6d 73 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d | sion.forms)...nil)..(defun.make- |
| 36560 | 74 72 61 63 6b 69 6e 67 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 20 28 66 6f 72 6d 73 29 | tracking-pprint-dispatch.(forms) |
| 36580 | 0a 20 20 28 6c 65 74 20 28 28 6f 72 69 67 69 6e 61 6c 2d 74 61 62 6c 65 20 2a 70 72 69 6e 74 2d | ...(let.((original-table.*print- |
| 365a0 | 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 2a 29 0a 20 20 20 20 20 20 20 20 28 74 61 62 6c 65 | pprint-dispatch*).........(table |
| 365c0 | 20 28 63 6f 70 79 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 29 29 29 0a 20 20 20 20 28 66 | .(copy-pprint-dispatch))).....(f |
| 365e0 | 6c 65 74 20 28 28 6d 61 79 62 65 2d 77 72 69 74 65 2d 6d 61 72 6b 65 72 20 28 70 6f 73 69 74 69 | let.((maybe-write-marker.(positi |
| 36600 | 6f 6e 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 6f | on.stream)..............(when.po |
| 36620 | 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 63 68 61 | sition................(write-cha |
| 36640 | 72 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 70 6f 73 69 74 69 6f 6e 29 20 73 74 | r.(make-marker-char.position).st |
| 36660 | 72 65 61 6d 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 | ream)))).......(set-pprint-dispa |
| 36680 | 74 63 68 20 27 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tch.'cons....................... |
| 366a0 | 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 74 72 65 61 6d 20 63 6f 6e 73 29 0a 20 20 20 20 20 | .....(lambda.(stream.cons)...... |
| 366c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 | ........................(let.((p |
| 366e0 | 6f 73 20 28 70 6f 73 69 74 69 6f 6e 20 63 6f 6e 73 20 66 6f 72 6d 73 29 29 29 0a 20 20 20 20 20 | os.(position.cons.forms)))...... |
| 36700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 | ..........................(maybe |
| 36720 | 2d 77 72 69 74 65 2d 6d 61 72 6b 65 72 20 70 6f 73 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 | -write-marker.pos.stream)....... |
| 36740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 65 6c 65 | .........................;;.dele |
| 36760 | 67 61 74 65 20 70 72 69 6e 74 69 6e 67 20 74 6f 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 74 61 | gate.printing.to.the.original.ta |
| 36780 | 62 6c 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ble............................. |
| 367a0 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 20 63 6f | ....(funcall.(pprint-dispatch.co |
| 367c0 | 6e 73 20 6f 72 69 67 69 6e 61 6c 2d 74 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ns.original-table).............. |
| 367e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 65 61 | ...........................strea |
| 36800 | 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m............................... |
| 36820 | 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........cons)................. |
| 36840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 77 72 69 74 65 2d 6d 61 72 6b | ...............(maybe-write-mark |
| 36860 | 65 72 20 70 6f 73 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er.pos.stream)))................ |
| 36880 | 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d | ............most-positive-fixnum |
| 368a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c | ............................tabl |
| 368c0 | 65 29 29 0a 20 20 20 20 74 61 62 6c 65 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6c 6c 65 63 74 2d | e)).....table))..(defun.collect- |
| 368e0 | 6d 61 72 6b 65 72 2d 70 6f 73 69 74 69 6f 6e 73 20 28 73 74 72 69 6e 67 20 70 6f 73 69 74 69 6f | marker-positions.(string.positio |
| 36900 | 6e 2d 63 6f 75 6e 74 29 0a 20 20 28 6c 65 74 20 28 28 70 6f 73 69 74 69 6f 6e 73 20 28 6d 61 6b | n-count)...(let.((positions.(mak |
| 36920 | 65 2d 61 72 72 61 79 20 70 6f 73 69 74 69 6f 6e 2d 63 6f 75 6e 74 20 3a 69 6e 69 74 69 61 6c 2d | e-array.position-count.:initial- |
| 36940 | 65 6c 65 6d 65 6e 74 20 6e 69 6c 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 77 69 74 68 20 70 20 | element.nil))).....(loop.with.p. |
| 36960 | 3d 20 30 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 63 68 61 72 20 61 63 72 6f 73 73 20 73 74 | =.0...........for.char.across.st |
| 36980 | 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 75 6e 6c 65 73 73 20 28 77 68 69 74 65 73 70 61 63 | ring...........unless.(whitespac |
| 369a0 | 65 70 20 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 69 66 20 28 6d 61 72 | ep.char).............do.(if.(mar |
| 369c0 | 6b 65 72 2d 63 68 61 72 2d 70 20 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ker-char-p.char)................ |
| 369e0 | 20 20 20 20 28 70 75 73 68 20 70 20 28 61 72 65 66 20 70 6f 73 69 74 69 6f 6e 73 20 28 6d 61 72 | ....(push.p.(aref.positions.(mar |
| 36a00 | 6b 65 72 2d 63 68 61 72 2d 69 64 20 63 68 61 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ker-char-id.char)))............. |
| 36a20 | 20 20 20 20 20 20 20 28 69 6e 63 66 20 70 29 29 29 0a 20 20 20 20 28 6d 61 70 20 27 6c 69 73 74 | .......(incf.p))).....(map.'list |
| 36a40 | 20 23 27 72 65 76 65 72 73 65 20 70 6f 73 69 74 69 6f 6e 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 | .#'reverse.positions)))..(defun. |
| 36a60 | 66 69 6e 64 2d 6e 6f 6e 2d 77 68 69 74 65 73 70 61 63 65 2d 70 6f 73 69 74 69 6f 6e 20 28 73 74 | find-non-whitespace-position.(st |
| 36a80 | 72 69 6e 67 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 28 6c 6f 6f 70 20 77 69 74 68 20 6e 6f 6e 2d | ring.position)...(loop.with.non- |
| 36aa0 | 77 68 69 74 65 73 70 61 63 65 2d 70 6f 73 69 74 69 6f 6e 20 3d 20 2d 31 0a 20 20 20 20 20 20 20 | whitespace-position.=.-1........ |
| 36ac0 | 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 61 6e 64 20 63 68 61 72 20 61 63 72 6f 73 73 20 73 74 | .for.i.from.0.and.char.across.st |
| 36ae0 | 72 69 6e 67 0a 20 20 20 20 20 20 20 20 75 6e 6c 65 73 73 20 28 77 68 69 74 65 73 70 61 63 65 70 | ring.........unless.(whitespacep |
| 36b00 | 20 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 69 6e 63 66 20 6e 6f 6e 2d 77 68 | .char)...........do.(incf.non-wh |
| 36b20 | 69 74 65 73 70 61 63 65 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 75 6e 74 69 6c | itespace-position).........until |
| 36b40 | 20 28 65 71 6c 20 6e 6f 6e 2d 77 68 69 74 65 73 70 61 63 65 2d 70 6f 73 69 74 69 6f 6e 20 70 6f | .(eql.non-whitespace-position.po |
| 36b60 | 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 72 65 74 75 72 6e 20 | sition).........finally.(return. |
| 36b80 | 69 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 6d 61 63 72 6f 73 74 65 70 29 | i)))..(provide.:swank-macrostep) |
| 36ba0 | 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36c00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 00 00 00 00 00 00 00 00 | slime-2.31/contrib/test/........ |
| 36c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36c60 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 36c80 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 36 32 36 00 20 35 00 00 00 | 0000000.00000000000.013626..5... |
| 36ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 36d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 36d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36e00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 63 6c | slime-2.31/contrib/test/slime-cl |
| 36e20 | 2d 69 6e 64 65 6e 74 2d 74 65 73 74 2e 74 78 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | -indent-test.txt................ |
| 36e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36e60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 36e80 | 30 30 34 33 37 32 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 32 30 33 34 32 00 20 30 00 00 00 | 0043724.00000000000.020342..0... |
| 36ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36f00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 36f20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 36f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 36fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 37000 | 3b 3b 3b 3b 20 2d 2a 2d 20 6d 6f 64 65 3a 20 6c 69 73 70 20 2d 2a 2d 0a 3b 3b 3b 3b 0a 3b 3b 3b | ;;;;.-*-.mode:.lisp.-*-.;;;;.;;; |
| 37020 | 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 2e 74 78 74 2c 20 62 65 63 61 75 73 65 20 69 74 27 | ;.This.file.is..txt,.because.it' |
| 37040 | 73 20 6e 6f 74 20 6d 65 61 6e 74 20 74 6f 20 62 65 20 65 76 61 6c 75 61 74 65 64 2e 0a 3b 3b 3b | s.not.meant.to.be.evaluated..;;; |
| 37060 | 3b 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 72 75 6e 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 74 65 | ;.common-lisp-run-indentation-te |
| 37080 | 73 74 73 20 69 6e 20 73 6c 69 6d 65 2d 63 6c 2d 69 64 65 6e 74 2e 65 6c 0a 3b 3b 3b 3b 20 70 61 | sts.in.slime-cl-ident.el.;;;;.pa |
| 370a0 | 72 73 65 73 20 74 68 69 73 20 61 6e 64 20 72 75 6e 73 20 74 68 65 20 73 70 65 63 69 66 69 65 64 | rses.this.and.runs.the.specified |
| 370c0 | 20 74 65 73 74 73 2e 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 31 0a 0a 28 64 65 | .tests...;;;.Test:.indent-1..(de |
| 370e0 | 66 75 6e 20 66 6f 6f 20 28 29 0a 20 20 74 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e | fun.foo.()...t)..;;;.Test:.inden |
| 37100 | 74 2d 32 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f | t-2.;;.;;.lisp-lambda-list-keywo |
| 37120 | 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 3b 3b 20 6c | rd-parameter-alignment:.nil.;;.l |
| 37140 | 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e | isp-lambda-list-keyword-alignmen |
| 37160 | 74 3a 20 6e 69 6c 0a 0a 28 64 65 66 75 6e 20 66 6f 6f 20 28 66 6f 6f 20 26 6f 70 74 69 6f 6e 61 | t:.nil..(defun.foo.(foo.&optiona |
| 37180 | 6c 20 6f 70 74 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a 20 20 | l.opt1...................opt2... |
| 371a0 | 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 65 73 74 29 0a 20 20 28 6c 69 73 74 20 66 6f | ..........&rest.rest)...(list.fo |
| 371c0 | 6f 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 72 65 73 74 29 29 0a 0a 3b 3b 3b 20 | o.opt1.opt2.........rest))..;;;. |
| 371e0 | 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 33 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 | Test:.indent-3.;;.;;.lisp-lambda |
| 37200 | 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e | -list-keyword-parameter-alignmen |
| 37220 | 74 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 | t:.t.;;.lisp-lambda-list-keyword |
| 37240 | 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 0a 28 64 65 66 75 6e 20 66 6f 6f 20 28 66 6f 6f | -alignment:.nil..(defun.foo.(foo |
| 37260 | 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .&optional.opt1................. |
| 37280 | 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 | ..........opt2.............&rest |
| 372a0 | 20 72 65 73 74 29 0a 20 20 28 6c 69 73 74 20 66 6f 6f 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 | .rest)...(list.foo.opt1.opt2.... |
| 372c0 | 20 20 20 20 20 72 65 73 74 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 34 0a | .....rest))..;;;.Test:.indent-4. |
| 372e0 | 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 | ;;.;;.lisp-lambda-list-keyword-p |
| 37300 | 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 3b 3b 20 6c 69 73 70 2d | arameter-alignment:.nil.;;.lisp- |
| 37320 | 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 | lambda-list-keyword-alignment:.t |
| 37340 | 0a 0a 28 64 65 66 75 6e 20 66 6f 6f 20 28 66 6f 6f 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 31 | ..(defun.foo.(foo.&optional.opt1 |
| 37360 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 | ...................opt2......... |
| 37380 | 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 65 73 74 29 0a 20 20 28 6c 69 73 74 20 66 6f 6f 20 | ........&rest.rest)...(list.foo. |
| 373a0 | 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 72 65 73 74 29 29 0a 0a 3b 3b 3b 20 54 65 | opt1.opt2.........rest))..;;;.Te |
| 373c0 | 73 74 3a 20 69 6e 64 65 6e 74 2d 35 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c | st:.indent-5.;;.;;.lisp-lambda-l |
| 373e0 | 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a | ist-keyword-parameter-alignment: |
| 37400 | 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 | .t.;;.lisp-lambda-list-keyword-a |
| 37420 | 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 64 65 66 75 6e 20 66 6f 6f 20 28 66 6f 6f 20 26 6f 70 | lignment:.t..(defun.foo.(foo.&op |
| 37440 | 74 69 6f 6e 61 6c 20 6f 70 74 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tional.opt1..................... |
| 37460 | 20 20 20 20 20 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 | ......opt2.................&rest |
| 37480 | 20 72 65 73 74 29 0a 20 20 28 6c 69 73 74 20 66 6f 6f 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 | .rest)...(list.foo.opt1.opt2.... |
| 374a0 | 20 20 20 20 20 72 65 73 74 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 36 0a | .....rest))..;;;.Test:.indent-6. |
| 374c0 | 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 | ;;.;;.lisp-lambda-list-keyword-p |
| 374e0 | 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 3b 3b 20 6c 69 73 70 2d | arameter-alignment:.nil.;;.lisp- |
| 37500 | 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e | lambda-list-keyword-alignment:.n |
| 37520 | 69 6c 0a 0a 28 64 65 66 6d 61 63 72 6f 20 66 6f 6f 20 28 28 66 6f 6f 20 26 6f 70 74 69 6f 6e 61 | il..(defmacro.foo.((foo.&optiona |
| 37540 | 6c 20 6f 70 74 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 | l.opt1.......................opt |
| 37560 | 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 65 73 74 29 29 0a 20 | 2.................&rest.rest)).. |
| 37580 | 20 28 6c 69 73 74 20 66 6f 6f 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 72 65 73 | .(list.foo.opt1.opt2.........res |
| 375a0 | 74 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 37 0a 3b 3b 0a 3b 3b 20 6c 69 | t))..;;;.Test:.indent-7.;;.;;.li |
| 375c0 | 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 | sp-lambda-list-keyword-parameter |
| 375e0 | 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 | -alignment:.t.;;.lisp-lambda-lis |
| 37600 | 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 0a 28 64 65 66 6d 61 | t-keyword-alignment:.nil..(defma |
| 37620 | 63 72 6f 20 66 6f 6f 20 28 28 66 6f 6f 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 31 0a 20 20 20 | cro.foo.((foo.&optional.opt1.... |
| 37640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a | ...........................opt2. |
| 37660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 65 73 74 29 29 0a 20 20 28 | ................&rest.rest))...( |
| 37680 | 6c 69 73 74 20 66 6f 6f 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 72 65 73 74 29 | list.foo.opt1.opt2.........rest) |
| 376a0 | 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 38 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 | )..;;;.Test:.indent-8.;;.;;.lisp |
| 376c0 | 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 | -lambda-list-keyword-parameter-a |
| 376e0 | 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 | lignment:.nil.;;.lisp-lambda-lis |
| 37700 | 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 64 65 66 6d 61 63 72 | t-keyword-alignment:.t..(defmacr |
| 37720 | 6f 20 66 6f 6f 20 28 28 66 6f 6f 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 31 0a 20 20 20 20 20 | o.foo.((foo.&optional.opt1...... |
| 37740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 | .................opt2........... |
| 37760 | 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 65 73 74 29 29 0a 20 20 28 6c 69 73 74 20 66 | ..........&rest.rest))...(list.f |
| 37780 | 6f 6f 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 72 65 73 74 29 29 0a 0a 3b 3b 3b | oo.opt1.opt2.........rest))..;;; |
| 377a0 | 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 39 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 | .Test:.indent-9.;;.;;.lisp-lambd |
| 377c0 | 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 | a-list-keyword-parameter-alignme |
| 377e0 | 6e 74 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 | nt:.t.;;.lisp-lambda-list-keywor |
| 37800 | 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 64 65 66 6d 61 63 72 6f 20 66 6f 6f 20 28 28 | d-alignment:.t..(defmacro.foo.(( |
| 37820 | 66 6f 6f 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | foo.&optional.opt1.............. |
| 37840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 | .................opt2........... |
| 37860 | 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 65 73 74 29 29 0a 20 20 28 6c 69 73 74 20 66 | ..........&rest.rest))...(list.f |
| 37880 | 6f 6f 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 72 65 73 74 29 29 0a 0a 3b 3b 3b | oo.opt1.opt2.........rest))..;;; |
| 378a0 | 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 31 30 0a 0a 28 6c 65 74 20 28 28 78 20 79 29 0a 20 20 | .Test:.indent-10..(let.((x.y)... |
| 378c0 | 20 20 20 20 28 66 6f 6f 20 23 2d 66 6f 6f 20 28 6e 6f 2d 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 | ....(foo.#-foo.(no-foo)......... |
| 378e0 | 20 20 20 23 2b 66 6f 6f 20 28 79 65 73 2d 66 6f 6f 29 29 0a 20 20 20 20 20 20 28 62 61 72 20 23 | ...#+foo.(yes-foo)).......(bar.# |
| 37900 | 2d 62 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 2d 62 61 72 29 0a 20 20 20 20 20 20 20 | -bar............(no-bar)........ |
| 37920 | 20 20 20 20 23 2b 62 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 79 65 73 2d 62 61 72 29 29 29 | ....#+bar............(yes-bar))) |
| 37940 | 0a 20 20 28 6c 69 73 74 20 66 6f 6f 20 62 61 72 0a 20 20 20 20 20 20 20 20 78 29 29 0a 0a 3b 3b | ...(list.foo.bar.........x))..;; |
| 37960 | 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 31 31 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f | ;.Test:.indent-11.;;.;;.lisp-loo |
| 37980 | 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 74 0a 0a 28 6c 6f 6f 70 20 66 6f | p-indent-subclauses:.t..(loop.fo |
| 379a0 | 72 20 69 20 66 72 6f 6d 20 30 20 62 65 6c 6f 77 20 32 0a 20 20 20 20 20 20 66 6f 72 20 6a 20 66 | r.i.from.0.below.2.......for.j.f |
| 379c0 | 72 6f 6d 20 30 20 62 65 6c 6f 77 20 32 0a 20 20 20 20 20 20 77 68 65 6e 20 66 6f 6f 0a 20 20 20 | rom.0.below.2.......when.foo.... |
| 379e0 | 20 20 20 20 20 64 6f 20 28 66 75 62 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 61 72 29 | .....do.(fubar)............(bar) |
| 37a00 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 6f 29 0a 20 20 20 20 20 20 20 20 61 6e 64 20 63 6f | ............(moo).........and.co |
| 37a20 | 6c 6c 65 63 74 20 63 61 73 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 6f 20 68 6f | llect.cash...............into.ho |
| 37a40 | 6e 64 75 72 61 73 0a 20 20 20 20 20 20 65 6c 73 65 20 64 6f 20 3b 3b 20 74 68 69 73 20 69 73 20 | nduras.......else.do.;;.this.is. |
| 37a60 | 74 68 65 20 62 6f 64 79 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 65 6c 73 65 0a 20 20 20 20 20 | the.body.of.the.first.else...... |
| 37a80 | 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 62 6f 64 79 20 69 73 20 2e 2e 2e 0a 20 20 20 20 | .........;;.the.body.is......... |
| 37aa0 | 20 20 20 20 20 20 20 20 20 20 28 69 6e 64 65 6e 74 65 64 20 74 6f 20 74 68 65 20 61 62 6f 76 65 | ..........(indented.to.the.above |
| 37ac0 | 20 63 6f 6d 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 5a 4d 41 43 53 20 67 | .comment)...............(ZMACS.g |
| 37ae0 | 65 74 73 20 74 68 69 73 20 77 72 6f 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 64 | ets.this.wrong)............and.d |
| 37b00 | 6f 20 74 68 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 64 6f 20 74 68 61 74 0a 20 20 | o.this............and.do.that... |
| 37b20 | 20 20 20 20 20 20 20 20 20 61 6e 64 20 77 68 65 6e 20 66 6f 6f 0a 20 20 20 20 20 20 20 20 20 20 | .........and.when.foo........... |
| 37b40 | 20 20 20 20 20 20 20 64 6f 20 74 68 65 2d 6f 74 68 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .......do.the-other............. |
| 37b60 | 20 20 20 20 20 61 6e 64 20 63 72 79 0a 20 20 20 20 20 20 77 68 65 6e 20 74 68 69 73 2d 69 73 2d | .....and.cry.......when.this-is- |
| 37b80 | 61 2d 73 68 6f 72 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 64 6f 0a 20 20 20 20 20 20 20 20 28 62 6f | a-short-condition.do.........(bo |
| 37ba0 | 64 79 20 63 6f 64 65 20 6f 66 20 74 68 65 20 77 68 65 6e 29 0a 20 20 20 20 20 20 77 68 65 6e 20 | dy.code.of.the.when).......when. |
| 37bc0 | 68 65 72 65 27 73 20 73 6f 6d 65 74 68 69 6e 67 20 49 20 75 73 65 64 20 74 6f 20 62 6f 74 63 68 | here's.something.I.used.to.botch |
| 37be0 | 20 64 6f 20 28 68 65 72 65 20 69 73 20 61 20 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .do.(here.is.a.body)............ |
| 37c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 37c20 | 20 20 20 20 28 72 65 73 74 20 6f 66 20 62 6f 64 79 20 69 6e 64 65 6e 74 65 64 20 73 61 6d 65 29 | ....(rest.of.body.indented.same) |
| 37c40 | 0a 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 28 65 78 64 65 6e 74 65 64 20 6c 6f 6f | .......do..........(exdented.loo |
| 37c60 | 70 20 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 28 49 27 6d 20 6e 6f 74 20 73 75 72 65 20 49 | p.body)..........(I'm.not.sure.I |
| 37c80 | 20 6c 69 6b 65 20 74 68 69 73 20 62 75 74 20 69 74 27 73 20 63 6f 6d 70 61 74 69 62 6c 65 29 0a | .like.this.but.it's.compatible). |
| 37ca0 | 20 20 20 20 20 20 77 68 65 6e 20 66 75 6e 6e 79 2d 70 72 65 64 69 63 61 74 65 20 64 6f 20 3b 3b | ......when.funny-predicate.do.;; |
| 37cc0 | 20 48 65 72 65 27 73 20 61 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .Here's.a.comment............... |
| 37ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6f 64 79 20 66 69 6c 6c 65 64 20 74 6f 20 | ................(body.filled.to. |
| 37d00 | 63 6f 6d 6d 65 6e 74 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 31 32 0a 0a | comment))..;;;.Test:.indent-12.. |
| 37d20 | 28 64 65 66 75 6e 20 66 6f 6f 20 28 78 29 0a 20 20 28 74 61 67 62 6f 64 79 0a 20 20 20 66 6f 6f | (defun.foo.(x)...(tagbody....foo |
| 37d40 | 0a 20 20 20 20 20 28 62 61 72 29 0a 20 20 20 62 61 7a 0a 20 20 20 20 20 28 77 68 65 6e 20 28 6c | ......(bar)....baz......(when.(l |
| 37d60 | 6f 73 69 6e 67 29 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 62 69 67 2d 6c 6f 73 65 72 0a 20 20 | osing)........(with-big-loser... |
| 37d80 | 20 20 20 20 20 20 20 20 20 28 79 6f 77 29 0a 20 20 20 20 20 20 20 20 20 28 28 6c 61 6d 62 64 61 | .........(yow)..........((lambda |
| 37da0 | 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 20 20 62 | .().............foo)...........b |
| 37dc0 | 69 67 29 29 29 0a 20 20 20 20 20 28 66 6c 65 74 20 28 28 66 6f 6f 20 28 62 61 72 20 62 61 7a 20 | ig)))......(flet.((foo.(bar.baz. |
| 37de0 | 7a 61 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 7a 69 70 29 29 0a 20 20 20 20 20 20 | zap)...............(zip))....... |
| 37e00 | 20 20 20 20 20 20 28 7a 6f 74 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 75 78 | ......(zot.()...............quux |
| 37e20 | 29 29 0a 20 20 20 20 20 20 20 28 64 6f 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f | ))........(do.()............((lo |
| 37e40 | 73 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 6f 20 31 29 29 0a 20 20 20 20 20 20 20 | se).............(foo.1))........ |
| 37e60 | 20 20 28 71 75 75 78 29 0a 20 20 20 20 20 20 20 20 66 6f 6f 0a 20 20 20 20 20 20 20 20 20 28 6c | ..(quux).........foo..........(l |
| 37e80 | 6f 73 65 29 29 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 78 29 0a 20 20 20 20 20 20 20 20 | ose))........(cond.((x)......... |
| 37ea0 | 20 20 20 20 20 20 28 77 69 6e 20 31 20 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(win.1.2.................. |
| 37ec0 | 20 20 28 66 6f 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 | ..(foo)))..............(t....... |
| 37ee0 | 20 20 20 20 20 20 20 20 28 6c 6f 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 29 29 | ........(lose................3)) |
| 37f00 | 29 29 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 31 33 0a 0a 28 69 66 2a 20 | ))))..;;;.Test:.indent-13..(if*. |
| 37f20 | 28 65 71 20 74 20 6e 69 6c 29 0a 20 20 20 74 68 65 6e 20 28 29 0a 20 20 20 20 20 20 20 20 28 29 | (eq.t.nil)....then.().........() |
| 37f40 | 0a 20 65 6c 73 65 69 66 20 28 64 73 66 29 0a 20 20 20 74 68 65 6e 72 65 74 20 78 0a 20 20 20 65 | ..elseif.(dsf)....thenret.x....e |
| 37f60 | 6c 73 65 20 28 62 61 6c 62 6b 6a 29 0a 20 20 20 20 20 20 20 20 28 73 64 66 29 29 0a 0a 3b 3b 3b | lse.(balbkj).........(sdf))..;;; |
| 37f80 | 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 31 34 0a 0a 28 6c 69 73 74 20 66 6f 6f 20 23 2b 66 6f | .Test:.indent-14..(list.foo.#+fo |
| 37fa0 | 6f 20 28 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 20 20 23 2d 66 6f 6f 20 28 6e 6f 2d 66 6f 6f 29 | o.(foo)...........#-foo.(no-foo) |
| 37fc0 | 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 31 35 0a 3b 3b 0a 3b 3b 20 6c 69 73 | )..;;;.Test:.indent-15.;;.;;.lis |
| 37fe0 | 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 74 0a 0a 28 6c 6f | p-loop-indent-subclauses:.t..(lo |
| 38000 | 6f 70 20 66 6f 72 20 78 20 69 6e 20 66 6f 6f 31 0a 20 20 20 20 20 20 66 6f 72 20 79 20 69 6e 20 | op.for.x.in.foo1.......for.y.in. |
| 38020 | 71 75 75 78 31 0a 20 20 20 20 20 20 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d | quux1.......)..;;;.Test:.indent- |
| 38040 | 31 36 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 | 16.;;.;;.lisp-loop-indent-subcla |
| 38060 | 75 73 65 73 3a 20 6e 69 6c 0a 0a 28 6c 6f 6f 70 20 66 6f 72 20 78 20 69 6e 20 66 6f 6f 31 0a 20 | uses:.nil..(loop.for.x.in.foo1.. |
| 38080 | 20 20 20 20 20 66 6f 72 20 79 20 69 6e 20 71 75 75 78 31 0a 20 20 20 20 20 20 29 0a 0a 3b 3b 3b | .....for.y.in.quux1.......)..;;; |
| 380a0 | 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 31 37 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 | .Test:.indent-17.;;.;;.lisp-loop |
| 380c0 | 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 6e 69 6c 0a 3b 3b 20 6c 69 73 70 2d | -indent-subclauses:.nil.;;.lisp- |
| 380e0 | 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 66 6f 72 6d 73 2d 6c 69 6b 65 2d 6b 65 79 77 6f 72 64 73 3a | loop-indent-forms-like-keywords: |
| 38100 | 20 74 0a 0a 28 6c 6f 6f 70 20 66 6f 72 20 78 20 69 6e 20 66 6f 6f 0a 20 20 20 20 20 20 66 6f 72 | .t..(loop.for.x.in.foo.......for |
| 38120 | 20 79 20 69 6e 20 71 75 75 78 0a 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 66 6f 6f 29 0a 20 | .y.in.quux.......finally.(foo).. |
| 38140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............(fo)............... |
| 38160 | 28 7a 6f 6f 29 0a 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 28 70 72 69 6e 74 20 78 29 0a 20 | (zoo).......do.......(print.x).. |
| 38180 | 20 20 20 20 20 28 70 72 69 6e 74 20 79 29 0a 20 20 20 20 20 20 28 70 72 69 6e 74 20 27 6f 6b 21 | .....(print.y).......(print.'ok! |
| 381a0 | 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 31 38 0a 3b 3b 0a 3b 3b 20 6c 69 | ))..;;;.Test:.indent-18.;;.;;.li |
| 381c0 | 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 6e 69 6c 0a 3b | sp-loop-indent-subclauses:.nil.; |
| 381e0 | 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 66 6f 72 6d 73 2d 6c 69 6b 65 2d 6b 65 | ;.lisp-loop-indent-forms-like-ke |
| 38200 | 79 77 6f 72 64 73 3a 20 6e 69 6c 0a 0a 28 6c 6f 6f 70 20 66 6f 72 20 78 20 69 6e 20 66 6f 6f 0a | ywords:.nil..(loop.for.x.in.foo. |
| 38220 | 20 20 20 20 20 20 66 6f 72 20 79 20 69 6e 20 71 75 75 78 0a 20 20 20 20 20 20 66 69 6e 61 6c 6c | ......for.y.in.quux.......finall |
| 38240 | 79 20 28 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 29 0a 20 20 20 20 20 | y.(foo)...............(fo)...... |
| 38260 | 20 20 20 20 20 20 20 20 20 28 7a 6f 6f 29 0a 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 | .........(zoo).......do......... |
| 38280 | 20 28 70 72 69 6e 74 20 78 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 20 79 29 0a 20 20 | .(print.x)..........(print.y)... |
| 382a0 | 20 20 20 20 20 20 20 28 70 72 69 6e 74 20 27 6f 6b 21 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 | .......(print.'ok!))..;;;.Test:. |
| 382c0 | 69 6e 64 65 6e 74 2d 31 39 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 | indent-19.;;.;;.lisp-loop-indent |
| 382e0 | 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 | -subclauses:.t.;;.lisp-loop-inde |
| 38300 | 6e 74 2d 66 6f 72 6d 73 2d 6c 69 6b 65 2d 6b 65 79 77 6f 72 64 73 3a 20 6e 69 6c 0a 0a 28 6c 6f | nt-forms-like-keywords:.nil..(lo |
| 38320 | 6f 70 20 66 6f 72 20 78 20 69 6e 20 66 6f 6f 0a 20 20 20 20 20 20 66 6f 72 20 79 20 69 6e 20 71 | op.for.x.in.foo.......for.y.in.q |
| 38340 | 75 75 78 0a 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 | uux.......finally.(foo)......... |
| 38360 | 20 20 20 20 20 20 28 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 7a 6f 6f 29 0a 20 | ......(fo)...............(zoo).. |
| 38380 | 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 20 78 29 0a 20 20 20 20 20 | .....do..........(print.x)...... |
| 383a0 | 20 20 20 20 28 70 72 69 6e 74 20 79 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 20 27 6f | ....(print.y)..........(print.'o |
| 383c0 | 6b 21 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 32 30 0a 3b 3b 0a 3b 3b 20 | k!))..;;;.Test:.indent-20.;;.;;. |
| 383e0 | 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 6e 69 6c | lisp-loop-indent-subclauses:.nil |
| 38400 | 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 66 6f 72 6d 73 2d 6c 69 6b 65 2d | .;;.lisp-loop-indent-forms-like- |
| 38420 | 6b 65 79 77 6f 72 64 73 3a 20 6e 69 6c 0a 0a 28 6c 6f 6f 70 20 66 6f 72 20 66 20 69 6e 20 66 69 | keywords:.nil..(loop.for.f.in.fi |
| 38440 | 6c 65 73 0a 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6f 70 65 6e 20 66 0a 20 20 20 20 20 20 | les.......collect.(open.f....... |
| 38460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 | ..............:direction.:output |
| 38480 | 29 0a 20 20 20 20 20 20 64 6f 20 28 66 6f 6f 29 20 28 62 61 72 29 0a 20 20 20 20 20 20 20 20 20 | ).......do.(foo).(bar).......... |
| 384a0 | 28 71 75 75 78 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 32 31 0a 3b 3b 0a | (quux))..;;;.Test:.indent-21.;;. |
| 384c0 | 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 | ;;.lisp-loop-indent-subclauses:. |
| 384e0 | 74 0a 0a 28 6c 6f 6f 70 20 66 6f 72 20 66 20 69 6e 20 66 69 6c 65 73 0a 20 20 20 20 20 20 63 6f | t..(loop.for.f.in.files.......co |
| 38500 | 6c 6c 65 63 74 20 28 6f 70 65 6e 20 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | llect.(open.f................... |
| 38520 | 20 20 3a 64 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 64 6f 20 28 | ..:direction.:output).......do.( |
| 38540 | 66 6f 6f 29 20 28 62 61 72 29 0a 20 20 20 20 20 20 20 20 20 28 71 75 75 78 29 29 0a 0a 3b 3b 3b | foo).(bar)..........(quux))..;;; |
| 38560 | 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 32 32 0a 0a 28 64 65 66 73 65 74 66 20 66 6f 6f 20 62 | .Test:.indent-22..(defsetf.foo.b |
| 38580 | 61 72 0a 20 20 22 74 68 65 20 64 6f 63 20 73 74 72 69 6e 67 22 29 0a 0a 3b 3b 3b 20 54 65 73 74 | ar..."the.doc.string")..;;;.Test |
| 385a0 | 3a 20 69 6e 64 65 6e 74 2d 32 33 0a 0a 28 64 65 66 73 65 74 66 20 66 6f 6f 0a 20 20 20 20 62 61 | :.indent-23..(defsetf.foo.....ba |
| 385c0 | 72 0a 20 20 22 74 68 65 20 64 6f 63 20 73 74 72 69 6e 67 22 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a | r..."the.doc.string")..;;;.Test: |
| 385e0 | 20 69 6e 64 65 6e 74 2d 32 34 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 | .indent-24.;;.;;.lisp-lambda-lis |
| 38600 | 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 | t-keyword-parameter-alignment:.t |
| 38620 | 0a 0a 28 64 65 66 73 65 74 66 20 66 6f 6f 20 28 78 20 79 20 26 6f 70 74 69 6f 6e 61 6c 20 61 0a | ..(defsetf.foo.(x.y.&optional.a. |
| 38640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 29 0a 20 | ............................z).. |
| 38660 | 20 20 20 28 61 20 62 20 63 29 0a 20 20 73 74 75 66 66 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 | ...(a.b.c)...stuff)..;;;.Test:.i |
| 38680 | 6e 64 65 6e 74 2d 32 35 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 61 6c 69 67 6e 2d 6b 65 79 77 6f 72 | ndent-25.;;.;;.lisp-align-keywor |
| 386a0 | 64 73 2d 69 6e 2d 63 61 6c 6c 73 3a 20 74 0a 0a 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 | ds-in-calls:.t..(make-instance.' |
| 386c0 | 66 6f 6f 20 3a 62 61 72 20 74 20 3a 71 75 75 78 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | foo.:bar.t.:quux.t.............. |
| 386e0 | 20 20 20 20 20 20 20 3a 7a 6f 74 20 74 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 | .......:zot.t)..;;;.Test:.indent |
| 38700 | 2d 32 36 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 61 6c 69 67 6e 2d 6b 65 79 77 6f 72 64 73 2d 69 6e | -26.;;.;;.lisp-align-keywords-in |
| 38720 | 2d 63 61 6c 6c 73 3a 20 6e 69 6c 0a 0a 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 66 6f 6f | -calls:.nil..(make-instance.'foo |
| 38740 | 20 3a 62 61 72 20 74 20 3a 71 75 75 78 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | .:bar.t.:quux.t................: |
| 38760 | 7a 6f 74 20 74 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 32 37 0a 3b 3b 0a 3b | zot.t)..;;;.Test:.indent-27.;;.; |
| 38780 | 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 3a 20 | ;.lisp-lambda-list-indentation:. |
| 387a0 | 6e 69 6c 0a 0a 28 64 65 66 75 6e 20 65 78 61 6d 70 6c 65 20 28 61 20 62 20 26 6f 70 74 69 6f 6e | nil..(defun.example.(a.b.&option |
| 387c0 | 61 6c 20 6f 31 20 6f 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 33 20 6f 34 0a 20 | al.o1.o2.................o3.o4.. |
| 387e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 0a 20 20 20 20 20 20 20 20 20 | ...............&rest.r.......... |
| 38800 | 20 20 20 20 20 20 20 26 6b 65 79 20 6b 31 20 6b 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......&key.k1.k2............... |
| 38820 | 20 20 6b 33 20 6b 34 29 0a 20 20 27 68 65 6c 6c 6f 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e | ..k3.k4)...'hello)..;;;.Test:.in |
| 38840 | 64 65 6e 74 2d 32 38 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b | dent-28.;;.;;.lisp-lambda-list-k |
| 38860 | 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 3b 3b | eyword-parameter-alignment:.t.;; |
| 38880 | 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d | .lisp-lambda-list-keyword-alignm |
| 388a0 | 65 6e 74 3a 20 74 0a 0a 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 66 6f 6f | ent:.t..(destructuring-bind.(foo |
| 388c0 | 20 26 6f 70 74 69 6f 6e 61 6c 20 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .&optional.x.................... |
| 388e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................y............... |
| 38900 | 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 62 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...........&key.bar............. |
| 38920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 75 78 29 0a 20 20 20 20 66 6f 6f 0a | ..................quux).....foo. |
| 38940 | 20 20 62 6f 64 79 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 32 39 0a 3b 3b 0a | ..body)..;;;.Test:.indent-29.;;. |
| 38960 | 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 | ;;.lisp-lambda-list-keyword-para |
| 38980 | 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 | meter-alignment:.t.;;.lisp-lambd |
| 389a0 | 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 6e 61 | a-list-keyword-alignment:.t..(na |
| 389c0 | 6d 65 64 2d 6c 61 6d 62 64 61 20 66 6f 6f 0a 20 20 20 20 28 78 20 26 6f 70 74 69 6f 6e 61 6c 20 | med-lambda.foo.....(x.&optional. |
| 389e0 | 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 0a 20 20 20 20 20 20 20 26 72 65 73 | y..................z........&res |
| 38a00 | 74 20 6d 6f 72 65 29 0a 20 20 62 6f 64 79 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e | t.more)...body)..;;;.Test:.inden |
| 38a20 | 74 2d 33 30 0a 0a 28 66 6f 6f 20 66 69 69 0a 20 20 20 20 20 28 6f 72 20 78 0a 20 20 20 20 20 20 | t-30..(foo.fii......(or.x....... |
| 38a40 | 20 20 20 79 29 20 74 0a 20 20 20 20 20 62 61 72 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 | ...y).t......bar)..;;;.Test:.ind |
| 38a60 | 65 6e 74 2d 33 31 0a 0a 28 66 6f 6f 0a 20 28 62 61 72 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 | ent-31..(foo..(bar))..;;;.Test:. |
| 38a80 | 69 6e 64 65 6e 74 2d 33 32 0a 3b 3b 0a 3b 3b 20 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 2d 66 | indent-32.;;.;;.comment-indent-f |
| 38aa0 | 75 6e 63 74 69 6f 6e 3a 20 28 6c 61 6d 62 64 61 20 28 29 20 6e 69 6c 29 0a 3b 3b 20 63 6f 6d 6d | unction:.(lambda.().nil).;;.comm |
| 38ac0 | 65 6e 74 2d 63 6f 6c 75 6d 6e 3a 20 6e 69 6c 0a 0a 28 75 6e 6b 6e 6f 77 6e 20 28 3b 3b 20 4b 4c | ent-column:.nil..(unknown.(;;.KL |
| 38ae0 | 55 44 47 45 3a 20 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 68 61 63 6b 65 72 79 20 74 6f 20 | UDGE:.comment-indent.hackery.to. |
| 38b00 | 67 65 74 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 63 6f 6d 6d 65 6e 74 20 72 69 67 | get...........;;.the.comment.rig |
| 38b20 | 68 74 2e 20 4f 74 68 65 72 77 69 73 65 20 77 65 20 67 65 74 20 61 0a 20 20 20 20 20 20 20 20 20 | ht..Otherwise.we.get.a.......... |
| 38b40 | 20 3b 3b 20 73 70 61 63 65 20 62 65 66 6f 72 65 20 74 68 65 20 66 69 72 73 74 20 3b 2e 0a 20 20 | .;;.space.before.the.first.;.... |
| 38b60 | 20 20 20 20 20 20 20 20 62 61 72 20 71 75 75 78 0a 20 20 20 20 20 20 20 20 20 20 7a 6f 74 29 0a | ........bar.quux...........zot). |
| 38b80 | 20 20 20 20 20 20 20 20 20 28 23 7c 66 69 69 7c 23 0a 20 20 20 20 20 20 20 20 20 20 7a 6f 74 29 | .........(#|fii|#...........zot) |
| 38ba0 | 0a 20 20 20 20 20 20 20 20 20 28 0a 20 20 20 20 20 20 20 20 20 20 71 75 75 78 29 29 0a 0a 3b 3b | ..........(...........quux))..;; |
| 38bc0 | 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 33 33 0a 0a 28 63 6f 6d 70 6c 65 78 2d 69 6e 64 65 | ;.Test:.indent-33..(complex-inde |
| 38be0 | 6e 74 2e 31 20 28 28 78 20 7a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 | nt.1.((x.z.....................f |
| 38c00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 66 6f 78 20 66 6f 6f 0a 20 | .....................((fox.foo.. |
| 38c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 6f 29 29 0a 20 | .........................foo)).. |
| 38c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 6f 74 65 20 28 64 69 6e 67 20 62 | ...................:note.(ding.b |
| 38c60 | 61 72 20 71 75 75 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ar.quux......................... |
| 38c80 | 20 20 20 20 20 20 20 20 7a 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........zot).................... |
| 38ca0 | 20 3a 77 61 69 74 20 28 74 68 69 73 21 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:wait.(this!.is................ |
| 38cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 20 66 75 6e 63 61 6c 6c 29 29 0a 20 20 | ..................a.funcall))... |
| 38ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 74 20 31 30 30 25 20 73 75 | ..................;;.Not.100%.su |
| 38d00 | 72 65 20 74 68 69 73 20 73 68 6f 75 6c 64 20 6e 6f 74 20 62 65 20 61 20 73 74 65 70 20 6c 65 66 | re.this.should.not.be.a.step.lef |
| 38d20 | 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 62 62 62 29 0a 20 20 | t......................(abbb)... |
| 38d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 62 62 29 29 0a 20 20 28 62 6f 64 79 | ..................(abb))...(body |
| 38d60 | 66 6f 72 6d 29 0a 20 20 28 61 6e 6f 74 68 65 72 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e | form)...(another))..;;;.Test:.in |
| 38d80 | 64 65 6e 74 2d 33 34 0a 0a 28 63 6f 6d 70 6c 65 78 2d 69 6e 64 65 6e 74 2e 32 20 28 62 61 72 20 | dent-34..(complex-indent.2.(bar. |
| 38da0 | 71 75 75 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 74 29 | quux........................zot) |
| 38dc0 | 0a 20 20 20 20 28 61 20 62 0a 20 20 20 20 20 63 20 64 29 0a 20 20 28 66 6f 72 6d 31 29 0a 20 20 | .....(a.b......c.d)...(form1)... |
| 38de0 | 28 66 6f 72 6d 32 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 33 35 0a 0a 28 | (form2))..;;;.Test:.indent-35..( |
| 38e00 | 63 6f 6d 70 6c 65 78 2d 69 6e 64 65 6e 74 2e 33 20 28 3a 77 61 69 74 20 66 69 69 0a 20 20 20 20 | complex-indent.3.(:wait.fii..... |
| 38e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 69 73 20 69 73 0a 20 20 | .....................(this.is... |
| 38e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 20 66 | .............................a.f |
| 38e60 | 75 6e 63 61 6c 6c 29 29 0a 20 20 28 62 6f 64 79 66 6f 72 6d 29 0a 20 20 28 61 6e 6f 74 68 65 72 | uncall))...(bodyform)...(another |
| 38e80 | 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 33 36 0a 0a 28 64 65 66 6d 61 63 | ))..;;;.Test:.indent-36..(defmac |
| 38ea0 | 72 6f 20 66 6f 6f 20 28 62 6f 64 79 29 0a 20 20 60 28 6c 65 74 20 28 2c 40 28 73 74 75 66 66 29 | ro.foo.(body)...`(let.(,@(stuff) |
| 38ec0 | 0a 20 20 20 20 20 20 20 20 20 2c 28 6d 6f 72 65 2d 73 74 75 66 66 29 0a 20 20 20 20 20 20 20 20 | ..........,(more-stuff)......... |
| 38ee0 | 20 2c 28 65 76 65 6e 2d 6d 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 6f 20 66 6f 6f 29 | .,(even-more)..........(foo.foo) |
| 38f00 | 29 0a 20 20 20 20 20 2c 40 62 6f 66 79 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e | )......,@bofy))..;;;.Test:.inden |
| 38f20 | 74 2d 33 37 0a 0a 28 64 65 66 75 6e 20 66 6f 6f 20 28 29 0a 20 20 60 28 6c 69 73 74 20 66 6f 6f | t-37..(defun.foo.()...`(list.foo |
| 38f40 | 20 62 61 72 0a 20 20 20 20 20 20 20 20 20 2c 40 28 71 75 75 78 20 66 6f 0a 20 20 20 20 20 20 20 | .bar..........,@(quux.fo........ |
| 38f60 | 20 20 20 20 20 20 20 20 20 20 66 6f 6f 29 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 | ..........foo)))..;;;.Test:.inde |
| 38f80 | 6e 74 2d 33 38 0a 0a 28 64 65 66 6d 61 63 72 6f 20 66 6f 6f 66 6f 6f 20 28 62 6f 64 79 29 0a 20 | nt-38..(defmacro.foofoo.(body).. |
| 38fa0 | 20 60 28 66 6f 6f 0a 20 20 20 20 60 28 6c 65 74 20 28 2c 27 2c 40 2c 28 73 74 75 66 66 29 0a 20 | .`(foo.....`(let.(,',@,(stuff).. |
| 38fc0 | 20 20 20 20 20 20 20 20 20 20 2c 28 6d 6f 72 65 2d 73 74 75 66 66 29 0a 20 20 20 20 20 20 20 20 | ..........,(more-stuff)......... |
| 38fe0 | 20 20 20 2c 28 65 76 65 6e 2d 6d 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 6f 20 | ...,(even-more)............(foo. |
| 39000 | 66 6f 6f 29 29 0a 20 20 20 20 20 20 20 2c 40 62 6f 66 79 29 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 | foo))........,@bofy)))..;;;.Test |
| 39020 | 3a 20 69 6e 64 65 6e 74 2d 33 39 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 | :.indent-39.;;.;;.lisp-lambda-li |
| 39040 | 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 | st-keyword-parameter-alignment:. |
| 39060 | 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c | t.;;.lisp-lambda-list-keyword-al |
| 39080 | 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 66 6f 6f 20 28 3a 63 6f | ignment:.t..(defstruct.(foo.(:co |
| 390a0 | 6e 73 74 72 75 63 74 6f 72 20 6d 61 6b 65 2d 66 6f 6f 20 28 26 6f 70 74 69 6f 6e 61 6c 20 62 61 | nstructor.make-foo.(&optional.ba |
| 390c0 | 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r............................... |
| 390e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 75 78 0a 20 20 20 20 20 20 20 | ....................quux........ |
| 39100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 39120 | 20 26 6b 65 79 20 7a 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .&key.zot....................... |
| 39140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 69 29 29 29 0a 20 20 | .......................fii)))... |
| 39160 | 62 61 72 0a 20 20 71 75 75 78 0a 20 20 7a 6f 74 0a 20 20 66 69 69 29 0a 0a 3b 3b 3b 20 54 65 73 | bar...quux...zot...fii)..;;;.Tes |
| 39180 | 74 3a 20 69 6e 64 65 6e 74 2d 34 30 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c | t:.indent-40.;;.;;.lisp-lambda-l |
| 391a0 | 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a | ist-keyword-parameter-alignment: |
| 391c0 | 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 | .t.;;.lisp-lambda-list-keyword-a |
| 391e0 | 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 66 6f 6f 20 3a 61 72 6f | lignment:.t..(defmethod.foo.:aro |
| 39200 | 75 6e 64 20 28 7a 6f 74 20 26 6b 65 79 20 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | und.(zot.&key.x................. |
| 39220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 79 29 0a 20 20 28 6c 69 73 74 20 7a 6f 74 29 | .................y)...(list.zot) |
| 39240 | 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 34 31 0a 3b 3b 0a 3b 3b 20 6c 69 73 | )..;;;.Test:.indent-41.;;.;;.lis |
| 39260 | 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d | p-lambda-list-keyword-parameter- |
| 39280 | 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 | alignment:.t.;;.lisp-lambda-list |
| 392a0 | 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 70 72 6f 67 6e 0a 20 20 | -keyword-alignment:.t..(progn... |
| 392c0 | 28 64 65 66 6d 65 74 68 6f 64 20 66 6f 6f 20 3a 61 72 6f 75 6e 64 20 28 66 69 69 20 26 6b 65 79 | (defmethod.foo.:around.(fii.&key |
| 392e0 | 20 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .x.............................. |
| 39300 | 20 20 20 20 20 20 79 29 0a 20 20 20 20 28 6c 69 73 74 20 66 69 69 29 29 29 0a 0a 3b 3b 3b 20 54 | ......y).....(list.fii)))..;;;.T |
| 39320 | 65 73 74 3a 20 69 6e 64 65 6e 74 2d 34 32 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 | est:.indent-42.;;.;;.lisp-lambda |
| 39340 | 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e | -list-keyword-parameter-alignmen |
| 39360 | 74 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 | t:.t.;;.lisp-lambda-list-keyword |
| 39380 | 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 70 72 6f 67 6e 0a 20 20 28 64 65 66 67 65 6e 65 | -alignment:.t..(progn...(defgene |
| 393a0 | 72 69 63 20 66 6f 6f 20 28 78 20 79 20 26 6f 70 74 69 6f 6e 61 6c 20 61 0a 20 20 20 20 20 20 20 | ric.foo.(x.y.&optional.a........ |
| 393c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 29 0a 20 20 20 | ..........................b).... |
| 393e0 | 20 28 3a 6d 65 74 68 6f 64 20 3a 61 72 6f 75 6e 64 20 28 61 20 62 20 26 6f 70 74 69 6f 6e 61 6c | .(:method.:around.(a.b.&optional |
| 39400 | 20 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .x.............................. |
| 39420 | 20 20 20 20 20 20 20 79 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 61 20 62 20 78 20 79 29 29 29 | .......y).......(list.a.b.x.y))) |
| 39440 | 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 34 33 0a 3b 3b 0a 3b 3b 20 6c 69 73 | )..;;;.Test:.indent-43.;;.;;.lis |
| 39460 | 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d | p-lambda-list-keyword-parameter- |
| 39480 | 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 | alignment:.t.;;.lisp-lambda-list |
| 394a0 | 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 64 65 66 67 65 6e 65 72 | -keyword-alignment:.t..(defgener |
| 394c0 | 69 63 20 66 6f 6f 20 28 78 20 26 6f 70 74 69 6f 6e 61 6c 20 61 20 62 29 0a 20 20 28 3a 6d 65 74 | ic.foo.(x.&optional.a.b)...(:met |
| 394e0 | 68 6f 64 20 28 78 20 79 20 26 6f 70 74 69 6f 6e 61 6c 20 61 0a 20 20 20 20 20 20 20 20 20 20 20 | hod.(x.y.&optional.a............ |
| 39500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 29 0a 20 20 20 20 28 6c 69 73 74 20 78 20 79 20 | ...............b).....(list.x.y. |
| 39520 | 61 20 62 29 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 34 34 0a 0a 28 6c 65 | a.b)))..;;;.Test:.indent-44..(le |
| 39540 | 74 20 28 64 65 66 69 6e 65 72 0a 20 20 20 20 20 20 66 6f 6f 0a 20 20 20 20 20 20 62 61 72 0a 20 | t.(definer.......foo.......bar.. |
| 39560 | 20 20 20 20 20 71 75 75 78 29 0a 20 20 2e 2e 2e 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 | .....quux)......)..;;;.Test:.ind |
| 39580 | 65 6e 74 2d 34 35 0a 0a 28 6c 65 74 20 28 64 65 66 69 6e 69 74 69 6f 6e 0a 20 20 20 20 20 20 66 | ent-45..(let.(definition.......f |
| 395a0 | 6f 6f 0a 20 20 20 20 20 20 62 61 72 0a 20 20 20 20 20 20 71 75 75 78 29 0a 20 20 2e 2e 2e 29 0a | oo.......bar.......quux)......). |
| 395c0 | 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 34 36 0a 0a 28 6c 65 74 20 28 66 6f 6f 20 | .;;;.Test:.indent-46..(let.(foo. |
| 395e0 | 62 61 72 0a 20 20 20 20 20 20 71 75 75 78 29 0a 20 20 2e 2e 2e 29 0a 0a 3b 3b 3b 20 54 65 73 74 | bar.......quux)......)..;;;.Test |
| 39600 | 3a 20 69 6e 64 65 6e 74 2d 34 37 0a 0a 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 75 | :.indent-47..(with-compilation-u |
| 39620 | 6e 69 74 0a 20 20 20 20 28 3a 66 6f 6f 20 74 0a 20 20 20 20 20 3a 71 75 75 78 20 6e 69 6c 29 0a | nit.....(:foo.t......:quux.nil). |
| 39640 | 20 20 2e 2e 2e 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 34 38 0a 0a 28 63 6f | .....)..;;;.Test:.indent-48..(co |
| 39660 | 6e 64 0a 20 20 28 28 3e 20 78 20 79 29 20 28 66 6f 6f 29 0a 20 20 20 3b 3b 20 54 68 69 73 20 69 | nd...((>.x.y).(foo)....;;.This.i |
| 39680 | 73 6e 27 74 20 69 64 65 61 6c 20 2d 2d 20 49 20 61 74 20 6c 65 61 73 74 20 77 6f 75 6c 64 20 61 | sn't.ideal.--.I.at.least.would.a |
| 396a0 | 6c 69 67 6e 20 77 69 74 68 20 28 46 4f 4f 20 68 65 72 65 2e 0a 20 20 20 28 62 61 72 29 20 28 71 | lign.with.(FOO.here.....(bar).(q |
| 396c0 | 75 75 78 29 0a 20 20 20 28 7a 6f 74 29 29 0a 20 20 28 71 75 78 20 28 66 6f 6f 29 0a 20 20 20 20 | uux)....(zot))...(qux.(foo)..... |
| 396e0 | 20 20 20 28 62 61 72 29 0a 20 20 20 20 20 20 20 28 7a 6f 74 29 29 0a 20 20 28 7a 6f 74 0a 20 20 | ...(bar)........(zot))...(zot... |
| 39700 | 20 28 66 6f 6f 29 0a 20 20 20 28 66 6f 6f 32 29 29 0a 20 20 28 74 20 28 66 6f 6f 29 0a 20 20 20 | .(foo)....(foo2))...(t.(foo).... |
| 39720 | 20 20 28 62 61 72 29 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 34 39 0a 0a | ..(bar)))..;;;.Test:.indent-49.. |
| 39740 | 28 63 6f 6e 64 20 28 28 3e 20 78 20 79 29 20 28 66 6f 6f 29 0a 20 20 20 20 20 20 20 3b 3b 20 54 | (cond.((>.x.y).(foo)........;;.T |
| 39760 | 68 69 73 20 69 73 6e 27 74 20 69 64 65 61 6c 20 2d 2d 20 49 20 61 74 20 6c 65 61 73 74 20 77 6f | his.isn't.ideal.--.I.at.least.wo |
| 39780 | 75 6c 64 20 61 6c 69 67 6e 20 77 69 74 68 20 28 46 4f 4f 20 68 65 72 65 2e 0a 20 20 20 20 20 20 | uld.align.with.(FOO.here........ |
| 397a0 | 20 28 62 61 72 29 29 0a 20 20 20 20 20 20 28 71 75 78 20 28 66 6f 6f 29 0a 20 20 20 20 20 20 20 | .(bar)).......(qux.(foo)........ |
| 397c0 | 20 20 20 20 28 62 61 72 29 29 0a 20 20 20 20 20 20 28 7a 6f 74 0a 20 20 20 20 20 20 20 28 66 6f | ....(bar)).......(zot........(fo |
| 397e0 | 6f 29 29 0a 20 20 20 20 20 20 28 74 20 28 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 20 28 62 61 72 | o)).......(t.(foo)..........(bar |
| 39800 | 29 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 35 30 0a 3b 3b 0a 3b 3b 20 6c | )))..;;;.Test:.indent-50.;;.;;.l |
| 39820 | 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 | isp-lambda-list-keyword-paramete |
| 39840 | 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d | r-alignment:.nil.;;.lisp-lambda- |
| 39860 | 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 0a 28 64 65 | list-keyword-alignment:.nil..(de |
| 39880 | 66 75 6e 20 66 6f 6f 20 28 78 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 31 0a 20 20 20 20 20 20 | fun.foo.(x.&optional.opt1....... |
| 398a0 | 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 | ..........opt2.............&rest |
| 398c0 | 20 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b | .rest.............&allow-other-k |
| 398e0 | 65 79 73 29 0a 20 20 28 6c 69 73 74 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 72 | eys)...(list.opt1.opt2.........r |
| 39900 | 65 73 74 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 35 31 0a 3b 3b 0a 3b 3b | est))..;;;.Test:.indent-51.;;.;; |
| 39920 | 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 | .lisp-lambda-list-keyword-parame |
| 39940 | 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d | ter-alignment:.t.;;.lisp-lambda- |
| 39960 | 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 0a 28 64 65 | list-keyword-alignment:.nil..(de |
| 39980 | 66 75 6e 20 66 6f 6f 20 28 78 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 31 0a 20 20 20 20 20 20 | fun.foo.(x.&optional.opt1....... |
| 399a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 | ..................opt2.......... |
| 399c0 | 20 20 20 26 72 65 73 74 20 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 26 61 6c 6c 6f 77 | ...&rest.rest.............&allow |
| 399e0 | 2d 6f 74 68 65 72 2d 6b 65 79 73 29 0a 20 20 28 6c 69 73 74 20 6f 70 74 31 20 6f 70 74 32 0a 20 | -other-keys)...(list.opt1.opt2.. |
| 39a00 | 20 20 20 20 20 20 20 72 65 73 74 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d | .......rest))..;;;.Test:.indent- |
| 39a20 | 35 32 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 | 52.;;.;;.lisp-lambda-list-keywor |
| 39a40 | 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 3b 3b 20 6c 69 | d-parameter-alignment:.nil.;;.li |
| 39a60 | 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 | sp-lambda-list-keyword-alignment |
| 39a80 | 3a 20 74 0a 0a 28 64 65 66 75 6e 20 66 6f 6f 20 28 78 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 | :.t..(defun.foo.(x.&optional.opt |
| 39aa0 | 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 | 1.................opt2.......... |
| 39ac0 | 20 20 20 20 20 26 72 65 73 74 20 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 61 | .....&rest.rest...............&a |
| 39ae0 | 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 0a 20 20 28 6c 69 73 74 20 6f 70 74 31 20 6f 70 | llow-other-keys)...(list.opt1.op |
| 39b00 | 74 32 0a 20 20 20 20 20 20 20 20 72 65 73 74 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 | t2.........rest))..;;;.Test:.ind |
| 39b20 | 65 6e 74 2d 35 33 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 | ent-53.;;.;;.lisp-lambda-list-ke |
| 39b40 | 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 3b 3b 20 | yword-parameter-alignment:.t.;;. |
| 39b60 | 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 | lisp-lambda-list-keyword-alignme |
| 39b80 | 6e 74 3a 20 74 0a 0a 28 64 65 66 75 6e 20 66 6f 6f 20 28 78 20 26 6f 70 74 69 6f 6e 61 6c 20 6f | nt:.t..(defun.foo.(x.&optional.o |
| 39ba0 | 70 74 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 | pt1.........................opt2 |
| 39bc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 65 73 74 0a 20 20 20 20 20 20 | ...............&rest.rest....... |
| 39be0 | 20 20 20 20 20 20 20 20 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 0a 20 20 28 6c 69 | ........&allow-other-keys)...(li |
| 39c00 | 73 74 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 72 65 73 74 29 29 0a 0a 3b 3b 3b | st.opt1.opt2.........rest))..;;; |
| 39c20 | 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 35 34 0a 3b 3b 0a 0a 28 6c 6f 6f 70 20 28 66 6f 6f 29 | .Test:.indent-54.;;..(loop.(foo) |
| 39c40 | 0a 20 20 20 20 20 20 3b 3b 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 28 62 61 72 29 0a 20 20 | .......;;.comment.......(bar)... |
| 39c60 | 20 20 20 20 28 71 75 75 78 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 35 35 | ....(quux))..;;;.Test:.indent-55 |
| 39c80 | 0a 3b 3b 0a 0a 28 6c 6f 6f 70 20 3b 3b 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 28 66 6f 6f | .;;..(loop.;;.comment.......(foo |
| 39ca0 | 29 0a 20 20 20 20 20 20 28 62 61 72 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 | ).......(bar))..;;;.Test:.indent |
| 39cc0 | 2d 35 36 0a 3b 3b 0a 0a 28 6c 6f 6f 70 0a 20 20 28 66 6f 6f 29 0a 20 20 3b 3b 20 63 6f 6d 6d 65 | -56.;;..(loop...(foo)...;;.comme |
| 39ce0 | 6e 74 0a 20 20 28 62 61 72 29 29 0a 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 35 | nt...(bar))...;;;.Test:.indent-5 |
| 39d00 | 37 0a 3b 3b 0a 0a 28 6c 6f 6f 70 0a 20 20 3b 3b 20 63 6f 6d 6d 65 6e 74 0a 20 20 28 66 6f 6f 29 | 7.;;..(loop...;;.comment...(foo) |
| 39d20 | 0a 20 20 28 62 61 72 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 35 38 0a 3b | ...(bar))..;;;.Test:.indent-58.; |
| 39d40 | 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 | ;.;;.lisp-loop-indent-subclauses |
| 39d60 | 3a 20 74 0a 0a 28 6c 6f 6f 70 20 3b 3b 20 63 6f 6d 6d 65 6e 74 20 61 74 20 74 6f 70 6c 65 76 65 | :.t..(loop.;;.comment.at.topleve |
| 39d80 | 6c 20 6f 66 20 74 68 65 20 6c 6f 6f 70 0a 20 20 20 20 20 20 77 69 74 68 20 66 6f 6f 20 3d 20 74 | l.of.the.loop.......with.foo.=.t |
| 39da0 | 0a 20 20 20 20 20 20 64 6f 20 28 66 6f 6f 20 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f | .......do.(foo.foo)..........(fo |
| 39dc0 | 6f 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 35 39 0a 3b 3b 0a 3b 3b 20 6c | o))..;;;.Test:.indent-59.;;.;;.l |
| 39de0 | 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 6e 69 6c 0a | isp-loop-indent-subclauses:.nil. |
| 39e00 | 0a 28 6c 6f 6f 70 20 3b 3b 20 63 6f 6d 6d 65 6e 74 20 61 74 20 74 6f 70 6c 65 76 65 6c 20 6f 66 | .(loop.;;.comment.at.toplevel.of |
| 39e20 | 20 74 68 65 20 6c 6f 6f 70 0a 20 20 20 20 20 20 77 69 74 68 20 66 6f 6f 20 3d 20 74 0a 20 20 20 | .the.loop.......with.foo.=.t.... |
| 39e40 | 20 20 20 64 6f 20 28 66 6f 6f 20 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 6f 29 29 0a | ...do.(foo.foo)..........(foo)). |
| 39e60 | 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 36 30 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d | .;;;.Test:.indent-60.;;.;;.lisp- |
| 39e80 | 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 74 0a 0a 28 6c 6f 6f 70 | loop-indent-subclauses:.t..(loop |
| 39ea0 | 0a 20 20 3b 3b 20 63 6f 6d 6d 65 6e 74 20 61 74 20 74 6f 70 6c 65 76 65 6c 20 6f 66 20 74 68 65 | ...;;.comment.at.toplevel.of.the |
| 39ec0 | 20 6c 6f 6f 70 0a 20 20 77 69 74 68 20 66 6f 6f 20 3d 20 74 0a 20 20 64 6f 20 28 66 6f 6f 20 66 | .loop...with.foo.=.t...do.(foo.f |
| 39ee0 | 6f 6f 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 36 31 0a 3b 3b 0a 3b 3b 20 | oo))..;;;.Test:.indent-61.;;.;;. |
| 39f00 | 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 6e 69 6c | lisp-loop-indent-subclauses:.nil |
| 39f20 | 0a 0a 28 6c 6f 6f 70 0a 20 20 3b 3b 20 63 6f 6d 6d 65 6e 74 20 61 74 20 74 6f 70 6c 65 76 65 6c | ..(loop...;;.comment.at.toplevel |
| 39f40 | 20 6f 66 20 74 68 65 20 6c 6f 6f 70 0a 20 20 77 69 74 68 20 66 6f 6f 20 3d 20 74 0a 20 20 64 6f | .of.the.loop...with.foo.=.t...do |
| 39f60 | 20 28 66 6f 6f 20 66 6f 6f 29 0a 20 20 20 20 20 28 66 6f 6f 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 | .(foo.foo)......(foo))..;;;.Test |
| 39f80 | 3a 20 69 6e 64 65 6e 74 2d 36 32 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 | :.indent-62.;;.;;.lisp-loop-inde |
| 39fa0 | 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 74 0a 0a 28 6c 6f 6f 70 20 77 69 74 68 20 66 6f 6f | nt-subclauses:.t..(loop.with.foo |
| 39fc0 | 20 3d 20 74 0a 20 20 20 20 20 20 64 6f 20 28 66 6f 6f 20 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 | .=.t.......do.(foo.foo)......... |
| 39fe0 | 20 3b 3b 20 63 6f 6d 6d 65 6e 74 20 69 6e 73 69 64 65 20 63 6c 61 75 73 65 0a 20 20 20 20 20 20 | .;;.comment.inside.clause....... |
| 3a000 | 20 20 20 28 62 61 72 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 36 33 0a 3b | ...(bar))..;;;.Test:.indent-63.; |
| 3a020 | 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 | ;.;;.lisp-loop-indent-subclauses |
| 3a040 | 3a 20 6e 69 6c 0a 0a 28 6c 6f 6f 70 20 77 69 74 68 20 66 6f 6f 20 3d 20 74 0a 20 20 20 20 20 20 | :.nil..(loop.with.foo.=.t....... |
| 3a060 | 64 6f 20 28 66 6f 6f 20 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6d 6d 65 6e 74 | do.(foo.foo)..........;;.comment |
| 3a080 | 20 69 6e 73 69 64 65 20 63 6c 61 75 73 65 0a 20 20 20 20 20 20 20 20 20 28 62 61 72 29 29 0a 0a | .inside.clause..........(bar)).. |
| 3a0a0 | 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 36 34 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d | .;;;.Test:.indent-64.;;.;;.lisp- |
| 3a0c0 | 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c | lambda-list-keyword-parameter-al |
| 3a0e0 | 69 67 6e 6d 65 6e 74 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b | ignment:.t.;;.lisp-lambda-list-k |
| 3a100 | 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 | eyword-alignment:.t..(defmethod. |
| 3a120 | 28 73 65 74 66 20 66 6f 6f 29 20 3a 61 72 6f 75 6e 64 20 28 7a 6f 74 20 26 6b 65 79 20 78 0a 20 | (setf.foo).:around.(zot.&key.x.. |
| 3a140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3a160 | 20 20 20 20 20 20 20 79 29 0a 20 20 28 6c 69 73 74 20 7a 6f 74 29 29 0a 0a 3b 3b 3b 20 54 65 73 | .......y)...(list.zot))..;;;.Tes |
| 3a180 | 74 3a 20 69 6e 64 65 6e 74 2d 36 35 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c | t:.indent-65.;;.;;.lisp-lambda-l |
| 3a1a0 | 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a | ist-keyword-parameter-alignment: |
| 3a1c0 | 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 | .t.;;.lisp-lambda-list-keyword-a |
| 3a1e0 | 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 28 73 65 74 66 20 66 6f | lignment:.t..(defmethod.(setf.fo |
| 3a200 | 6f 29 0a 20 20 20 20 3a 61 72 6f 75 6e 64 20 28 7a 6f 74 20 26 6b 65 79 20 78 20 79 29 0a 20 20 | o).....:around.(zot.&key.x.y)... |
| 3a220 | 28 6c 69 73 74 20 7a 6f 74 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 36 36 | (list.zot))..;;;.Test:.indent-66 |
| 3a240 | 0a 3b 3b 0a 0a 28 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 66 6f 6f | .;;..(define-condition.......foo |
| 3a260 | 0a 20 20 20 20 28 62 61 72 20 71 75 75 78 0a 20 20 20 20 20 7a 6f 74 29 0a 20 20 28 29 0a 20 20 | .....(bar.quux......zot)...()... |
| 3a280 | 28 3a 72 65 70 6f 72 74 20 22 66 6f 6f 22 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 | (:report."foo"))..;;;.Test:.inde |
| 3a2a0 | 6e 74 2d 36 37 0a 3b 3b 0a 0a 28 64 65 66 63 6c 61 73 73 0a 20 20 20 20 20 20 66 6f 6f 0a 20 20 | nt-67.;;..(defclass.......foo... |
| 3a2c0 | 20 20 28 62 61 72 20 71 75 78 78 0a 20 20 20 20 20 78 6f 6f 29 0a 20 20 28 29 0a 20 20 28 3a 6d | ..(bar.quxx......xoo)...()...(:m |
| 3a2e0 | 65 74 61 63 6c 61 73 73 20 66 6f 6f 2d 63 6c 61 73 73 29 29 0a 0a 0a 3b 3b 3b 20 54 65 73 74 3a | etaclass.foo-class))...;;;.Test: |
| 3a300 | 20 69 6e 64 65 6e 74 2d 36 38 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e | .indent-68.;;.;;.lisp-loop-inden |
| 3a320 | 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 6e 69 6c 0a 0a 28 70 72 6f 67 6e 0a 20 20 28 6c 6f 6f | t-subclauses:.nil..(progn...(loo |
| 3a340 | 70 0a 20 20 20 20 72 65 70 65 61 74 20 31 30 30 30 0a 20 20 20 20 64 6f 20 3b 3b 20 54 68 69 73 | p.....repeat.1000.....do.;;.This |
| 3a360 | 20 69 73 20 74 68 65 0a 20 20 20 20 20 20 20 3b 3b 20 62 65 67 69 6e 6e 69 6e 67 0a 20 20 20 20 | .is.the........;;.beginning..... |
| 3a380 | 20 20 20 28 66 6f 6f 29 29 0a 20 20 28 6c 6f 6f 70 20 72 65 70 65 61 74 20 31 30 30 20 3b 3b 20 | ...(foo))...(loop.repeat.100.;;. |
| 3a3a0 | 54 68 69 73 20 74 6f 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 | This.too....................;;.i |
| 3a3c0 | 73 20 61 20 62 65 67 69 6e 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 64 6f 20 28 66 6f 6f 29 29 29 | s.a.beginning.........do.(foo))) |
| 3a3e0 | 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 36 39 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 | ..;;;.Test:.indent-69.;;.;;.lisp |
| 3a400 | 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 74 0a 0a 28 70 72 6f | -loop-indent-subclauses:.t..(pro |
| 3a420 | 67 6e 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 20 72 65 70 65 61 74 20 31 30 30 30 0a 20 20 20 20 64 | gn...(loop.....repeat.1000.....d |
| 3a440 | 6f 20 3b 3b 20 54 68 69 73 20 69 73 20 74 68 65 0a 20 20 20 20 20 20 20 3b 3b 20 62 65 67 69 6e | o.;;.This.is.the........;;.begin |
| 3a460 | 6e 69 6e 67 0a 20 20 20 20 20 20 20 28 66 6f 6f 29 29 0a 20 20 28 6c 6f 6f 70 20 72 65 70 65 61 | ning........(foo))...(loop.repea |
| 3a480 | 74 20 31 30 30 20 3b 3b 20 54 68 69 73 20 74 6f 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.100.;;.This.too............... |
| 3a4a0 | 20 20 20 20 20 3b 3b 20 69 73 20 61 20 62 65 67 69 6e 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 64 | .....;;.is.a.beginning.........d |
| 3a4c0 | 6f 20 28 66 6f 6f 29 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 37 30 0a 3b | o.(foo)))..;;;.Test:.indent-70.; |
| 3a4e0 | 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 | ;.;;.lisp-loop-indent-subclauses |
| 3a500 | 3a 20 6e 69 6c 0a 0a 28 70 72 6f 67 6e 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 20 3a 72 65 70 65 61 | :.nil..(progn...(loop.....:repea |
| 3a520 | 74 20 31 30 30 30 0a 20 20 20 20 23 3a 64 6f 20 3b 3b 20 54 68 69 73 20 69 73 20 74 68 65 0a 20 | t.1000.....#:do.;;.This.is.the.. |
| 3a540 | 20 20 20 20 20 20 20 20 3b 3b 20 62 65 67 69 6e 6e 69 6e 67 0a 20 20 20 20 20 20 20 28 66 6f 6f | ........;;.beginning........(foo |
| 3a560 | 29 29 0a 20 20 28 6c 6f 6f 70 20 23 3a 72 65 70 65 61 74 20 31 30 30 20 3b 3b 20 54 68 69 73 20 | ))...(loop.#:repeat.100.;;.This. |
| 3a580 | 74 6f 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 73 20 61 | too......................;;.is.a |
| 3a5a0 | 20 62 65 67 69 6e 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 3a 64 6f 20 28 66 6f 6f 29 29 29 0a 0a | .beginning.........:do.(foo))).. |
| 3a5c0 | 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 37 31 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c | ;;;.Test:.indent-71.;;.;;.lisp-l |
| 3a5e0 | 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 3a 20 74 0a 0a 28 70 72 6f 67 6e | oop-indent-subclauses:.t..(progn |
| 3a600 | 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 20 23 3a 72 65 70 65 61 74 20 31 30 30 30 0a 20 20 20 20 23 | ...(loop.....#:repeat.1000.....# |
| 3a620 | 3a 64 6f 20 3b 3b 20 54 68 69 73 20 69 73 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 62 | :do.;;.This.is.the..........;;.b |
| 3a640 | 65 67 69 6e 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 20 28 66 6f 6f 29 29 0a 20 20 28 6c 6f 6f 70 | eginning..........(foo))...(loop |
| 3a660 | 20 3a 72 65 70 65 61 74 20 31 30 30 20 3b 3b 20 54 68 69 73 20 74 6f 6f 0a 20 20 20 20 20 20 20 | .:repeat.100.;;.This.too........ |
| 3a680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 73 20 61 20 62 65 67 69 6e 6e 69 6e 67 0a 20 | .............;;.is.a.beginning.. |
| 3a6a0 | 20 20 20 20 20 20 20 23 3a 64 6f 20 28 66 6f 6f 29 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 | .......#:do.(foo)))..;;;.Test:.i |
| 3a6c0 | 6e 64 65 6e 74 2d 37 32 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d | ndent-72.;;.;;.lisp-lambda-list- |
| 3a6e0 | 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c | keyword-parameter-alignment:.nil |
| 3a700 | 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 | .;;.lisp-lambda-list-keyword-ali |
| 3a720 | 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 0a 28 66 6c 65 74 20 28 28 66 6f 6f 20 28 66 6f 6f 20 26 6f | gnment:.nil..(flet.((foo.(foo.&o |
| 3a740 | 70 74 69 6f 6e 61 6c 20 6f 70 74 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ptional.opt1.................... |
| 3a760 | 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 65 73 74 29 0a 20 20 | opt2..............&rest.rest)... |
| 3a780 | 20 20 20 20 20 20 20 28 6c 69 73 74 20 66 6f 6f 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 | .......(list.foo.opt1.opt2...... |
| 3a7a0 | 20 20 20 20 20 20 20 20 20 20 72 65 73 74 29 29 29 0a 20 20 2e 2e 2e 29 0a 0a 3b 3b 3b 20 54 65 | ..........rest)))......)..;;;.Te |
| 3a7c0 | 73 74 3a 20 69 6e 64 65 6e 74 2d 37 33 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d | st:.indent-73.;;.;;.lisp-lambda- |
| 3a7e0 | 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 | list-keyword-parameter-alignment |
| 3a800 | 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d | :.t.;;.lisp-lambda-list-keyword- |
| 3a820 | 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 0a 28 66 6c 65 74 20 28 28 66 6f 6f 20 28 66 6f 6f | alignment:.nil..(flet.((foo.(foo |
| 3a840 | 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .&optional.opt1................. |
| 3a860 | 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 | ...........opt2..............&re |
| 3a880 | 73 74 20 72 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 66 6f 6f 20 6f 70 74 31 | st.rest)..........(list.foo.opt1 |
| 3a8a0 | 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 74 29 29 29 0a 20 20 2e | .opt2................rest))).... |
| 3a8c0 | 2e 2e 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 37 34 0a 3b 3b 0a 3b 3b 20 6c | ..)..;;;.Test:.indent-74.;;.;;.l |
| 3a8e0 | 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 | isp-lambda-list-keyword-paramete |
| 3a900 | 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 6e 69 6c 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d | r-alignment:.nil.;;.lisp-lambda- |
| 3a920 | 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 66 6c 65 74 | list-keyword-alignment:.t..(flet |
| 3a940 | 20 28 28 66 6f 6f 20 28 66 6f 6f 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 31 0a 20 20 20 20 20 | .((foo.(foo.&optional.opt1...... |
| 3a960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..............opt2.............. |
| 3a980 | 20 20 20 20 26 72 65 73 74 20 72 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 66 | ....&rest.rest)..........(list.f |
| 3a9a0 | 6f 6f 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 74 | oo.opt1.opt2................rest |
| 3a9c0 | 29 29 29 0a 20 20 2e 2e 2e 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 37 35 0a | )))......)..;;;.Test:.indent-75. |
| 3a9e0 | 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 | ;;.;;.lisp-lambda-list-keyword-p |
| 3aa00 | 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 | arameter-alignment:.t.;;.lisp-la |
| 3aa20 | 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a | mbda-list-keyword-alignment:.t.. |
| 3aa40 | 28 66 6c 65 74 20 28 28 66 6f 6f 20 28 66 6f 6f 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 31 0a | (flet.((foo.(foo.&optional.opt1. |
| 3aa60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 0a | ...........................opt2. |
| 3aa80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 65 73 74 29 0a 20 20 20 | .................&rest.rest).... |
| 3aaa0 | 20 20 20 20 20 20 28 6c 69 73 74 20 66 6f 6f 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 20 | ......(list.foo.opt1.opt2....... |
| 3aac0 | 20 20 20 20 20 20 20 20 20 72 65 73 74 29 29 29 0a 20 20 2e 2e 2e 29 0a 0a 3b 3b 3b 20 54 65 73 | .........rest)))......)..;;;.Tes |
| 3aae0 | 74 3a 20 69 6e 64 65 6e 74 2d 37 36 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c | t:.indent-76.;;.;;.lisp-lambda-l |
| 3ab00 | 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 3a | ist-keyword-parameter-alignment: |
| 3ab20 | 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 | .t.;;.lisp-lambda-list-keyword-a |
| 3ab40 | 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 6d 61 63 72 6f 6c 65 74 20 28 28 66 6f 6f 0a 20 20 20 | lignment:.t..(macrolet.((foo.... |
| 3ab60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 6f 20 28 26 6f 70 74 69 6f 6e 61 6c 20 78 6f 70 74 | ............(foo.(&optional.xopt |
| 3ab80 | 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1............................... |
| 3aba0 | 20 78 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 | .xopt2......................&res |
| 3abc0 | 74 20 78 72 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6f 70 74 69 6f 6e | t.xrest).................&option |
| 3abe0 | 61 6c 20 6f 70 74 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | al.opt1......................... |
| 3ac00 | 20 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 65 73 | ..opt2.................&rest.res |
| 3ac20 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 66 6f 6f 20 6f 70 74 31 20 6f | t)..............(list.foo.opt1.o |
| 3ac40 | 70 74 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 74 29 29 29 0a 20 | pt2....................rest))).. |
| 3ac60 | 20 2e 2e 2e 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 37 37 0a 3b 3b 0a 3b 3b | ....)..;;;.Test:.indent-77.;;.;; |
| 3ac80 | 20 6c 69 73 70 2d 61 6c 69 67 6e 2d 6b 65 79 77 6f 72 64 73 2d 69 6e 2d 63 61 6c 6c 73 3a 20 74 | .lisp-align-keywords-in-calls:.t |
| 3aca0 | 0a 0a 28 66 6f 6f 20 2a 66 6f 6f 2a 0a 20 20 20 20 20 3a 62 61 72 20 74 0a 20 20 20 20 20 3a 71 | ..(foo.*foo*......:bar.t......:q |
| 3acc0 | 75 75 78 20 23 2b 71 75 75 78 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 2d 71 75 75 78 20 6e | uux.#+quux.t............#-quux.n |
| 3ace0 | 69 6c 0a 20 20 20 20 20 3a 7a 6f 74 20 74 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e | il......:zot.t)..;;;.Test:.inden |
| 3ad00 | 74 2d 37 38 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 61 6c 69 67 6e 2d 6b 65 79 77 6f 72 64 73 2d 69 | t-78.;;.;;.lisp-align-keywords-i |
| 3ad20 | 6e 2d 63 61 6c 6c 73 3a 20 74 0a 0a 28 66 6f 6f 20 2a 66 6f 6f 2a 20 3a 66 69 69 20 74 0a 20 20 | n-calls:.t..(foo.*foo*.:fii.t... |
| 3ad40 | 20 20 20 20 20 20 20 20 20 3a 62 61 72 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 3a 71 75 75 78 | .........:bar.t............:quux |
| 3ad60 | 20 23 2b 71 75 75 78 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 7a 6f 74 | .#+quux.t..................#+zot |
| 3ad80 | 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 3a 7a 6f 74 20 74 29 0a 0a 3b 3b 3b 20 54 65 73 | .nil............:zot.t)..;;;.Tes |
| 3ada0 | 74 3a 20 69 6e 64 65 6e 74 2d 37 39 0a 0a 28 66 6f 6f 20 23 2b 71 75 75 78 20 3a 71 75 75 78 20 | t:.indent-79..(foo.#+quux.:quux. |
| 3adc0 | 23 2b 71 75 75 78 20 74 0a 20 20 20 20 20 23 2d 71 75 75 78 20 3a 7a 6f 6f 20 23 2d 71 75 75 78 | #+quux.t......#-quux.:zoo.#-quux |
| 3ade0 | 20 74 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 38 30 0a 3b 3b 0a 3b 3b 20 6c | .t)..;;;.Test:.indent-80.;;.;;.l |
| 3ae00 | 69 73 70 2d 61 6c 69 67 6e 2d 6b 65 79 77 6f 72 64 73 2d 69 6e 2d 63 61 6c 6c 73 3a 20 74 0a 0a | isp-align-keywords-in-calls:.t.. |
| 3ae20 | 28 66 6f 6f 20 2a 66 6f 6f 2a 20 3a 66 69 69 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 3a 62 61 | (foo.*foo*.:fii.t............:ba |
| 3ae40 | 72 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 2b 71 75 75 78 20 3a 71 75 75 78 20 23 2b 71 75 | r.t............#+quux.:quux.#+qu |
| 3ae60 | 75 78 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 3a 7a 6f 74 20 74 29 0a 0a 3b 3b 3b 20 54 65 73 | ux.t............:zot.t)..;;;.Tes |
| 3ae80 | 74 3a 20 69 6e 64 65 6e 74 2d 38 31 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 61 6c 69 67 6e 2d 6b 65 | t:.indent-81.;;.;;.lisp-align-ke |
| 3aea0 | 79 77 6f 72 64 73 2d 69 6e 2d 63 61 6c 6c 73 3a 20 74 0a 0a 28 66 6f 6f 20 2a 66 6f 6f 2a 20 3a | ywords-in-calls:.t..(foo.*foo*.: |
| 3aec0 | 66 69 69 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 3a 62 61 72 20 74 0a 20 20 20 20 20 20 20 20 | fii.t............:bar.t......... |
| 3aee0 | 20 20 20 23 2b 71 75 75 78 20 23 2b 71 75 75 78 20 3a 71 75 75 78 20 74 0a 20 20 20 20 20 20 20 | ...#+quux.#+quux.:quux.t........ |
| 3af00 | 20 20 20 20 3a 7a 6f 74 20 74 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 38 32 | ....:zot.t)..;;;.Test:.indent-82 |
| 3af20 | 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 61 6c 69 67 6e 2d 6b 65 79 77 6f 72 64 73 2d 69 6e 2d 63 61 | .;;.;;.lisp-align-keywords-in-ca |
| 3af40 | 6c 6c 73 3a 20 74 0a 0a 28 66 6f 6f 20 2a 66 6f 6f 2a 20 3a 66 69 69 20 74 0a 20 20 20 20 20 20 | lls:.t..(foo.*foo*.:fii.t....... |
| 3af60 | 20 20 20 20 20 3a 62 61 72 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 2b 71 75 75 78 0a 20 20 | .....:bar.t............#+quux... |
| 3af80 | 20 20 20 20 20 20 20 20 20 3a 71 75 75 78 20 23 2b 71 75 75 78 20 74 0a 20 20 20 20 20 20 20 20 | .........:quux.#+quux.t......... |
| 3afa0 | 20 20 20 3a 7a 6f 74 20 74 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 38 33 0a | ...:zot.t)..;;;.Test:.indent-83. |
| 3afc0 | 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 61 6c 69 67 6e 2d 6b 65 79 77 6f 72 64 73 2d 69 6e 2d 63 61 6c | ;;.;;.lisp-align-keywords-in-cal |
| 3afe0 | 6c 73 3a 20 74 0a 0a 28 66 6f 6f 20 2a 66 6f 6f 2a 20 3a 66 69 69 20 74 0a 20 20 20 20 20 20 20 | ls:.t..(foo.*foo*.:fii.t........ |
| 3b000 | 20 20 20 20 3a 62 61 72 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 23 2b 71 75 75 78 20 23 2b 71 | ....:bar.t............#+quux.#+q |
| 3b020 | 75 75 78 0a 20 20 20 20 20 20 20 20 20 20 20 3a 71 75 75 78 20 74 0a 20 20 20 20 20 20 20 20 20 | uux............:quux.t.......... |
| 3b040 | 20 20 3a 7a 6f 74 20 74 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 38 34 0a 0a | ..:zot.t)..;;;.Test:.indent-84.. |
| 3b060 | 28 61 6e 64 20 3b 3b 20 46 6f 6f 0a 20 20 20 20 20 28 73 6f 6d 65 74 68 69 6e 67 29 0a 20 20 20 | (and.;;.Foo......(something).... |
| 3b080 | 20 20 3b 3b 20 51 75 75 78 0a 20 20 20 20 20 28 6d 6f 72 65 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 | ..;;.Quux......(more))..;;;.Test |
| 3b0a0 | 3a 20 69 6e 64 65 6e 74 2d 38 35 0a 0a 28 61 6e 64 20 20 20 20 20 20 3b 3b 20 46 6f 6f 0a 20 20 | :.indent-85..(and......;;.Foo... |
| 3b0c0 | 20 20 20 28 73 6f 6d 65 74 68 69 6e 67 29 0a 20 20 20 20 20 3b 3b 20 51 75 75 78 0a 20 20 20 20 | ...(something)......;;.Quux..... |
| 3b0e0 | 20 28 6d 6f 72 65 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 38 36 0a 0a 28 | .(more))..;;;.Test:.indent-86..( |
| 3b100 | 66 6f 6f 20 28 0a 20 20 20 20 20 20 62 61 72 20 71 75 75 78 0a 20 20 20 20 20 20 7a 6f 72 29 29 | foo.(.......bar.quux.......zor)) |
| 3b120 | 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 38 37 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 | ..;;;.Test:.indent-87.;;.;;.lisp |
| 3b140 | 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 | -lambda-list-keyword-parameter-a |
| 3b160 | 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 3b 3b 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d | lignment:.t.;;.lisp-lambda-list- |
| 3b180 | 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 3a 20 74 0a 0a 28 64 65 66 6d 61 63 72 6f 20 | keyword-alignment:.t..(defmacro. |
| 3b1a0 | 66 6f 6f 20 28 28 66 6f 6f 20 26 6f 70 74 69 6f 6e 61 6c 20 28 6f 70 74 31 20 28 6f 72 20 28 74 | foo.((foo.&optional.(opt1.(or.(t |
| 3b1c0 | 68 69 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | his)............................ |
| 3b1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 61 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .............(that)))........... |
| 3b200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 70 74 32 20 28 74 68 65 2d 64 | ....................(opt2.(the-d |
| 3b220 | 65 66 61 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | efault)......................... |
| 3b240 | 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 32 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ............opt2-p)............. |
| 3b260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 70 74 33 0a 20 20 20 20 20 20 20 20 | ..................(opt3......... |
| 3b280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 65 2d 64 65 66 61 | .......................(the-defa |
| 3b2a0 | 75 6c 74 20 28 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ult.(foo)....................... |
| 3b2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 72 29 29 29 0a 20 20 | ......................(bar)))... |
| 3b2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 72 65 73 74 29 29 0a 20 | ..................&rest.rest)).. |
| 3b300 | 20 28 6c 69 73 74 20 66 6f 6f 20 6f 70 74 31 20 6f 70 74 32 0a 20 20 20 20 20 20 20 20 72 65 73 | .(list.foo.opt1.opt2.........res |
| 3b320 | 74 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 38 38 0a 0a 28 64 65 66 73 74 | t))..;;;.Test:.indent-88..(defst |
| 3b340 | 72 75 63 74 20 28 66 6f 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 73 74 72 75 63 | ruct.(foo.............(:construc |
| 3b360 | 74 6f 72 20 6d 61 6b 65 2d 66 6f 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 | tor.make-foo.................(ba |
| 3b380 | 72 20 26 61 75 78 20 28 71 75 75 78 20 28 71 75 75 78 2d 66 72 6f 6d 2d 62 61 72 20 62 61 72 0a | r.&aux.(quux.(quux-from-bar.bar. |
| 3b3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3b3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 6f 72 20 27 66 6f 6f 29 29 29 29 29 0a 20 20 | ...............:for.'foo)))))... |
| 3b3e0 | 62 61 72 0a 20 20 71 75 75 78 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 38 39 | bar...quux)..;;;.Test:.indent-89 |
| 3b400 | 0a 0a 28 64 65 66 69 6e 65 2d 74 65 6e 74 61 74 69 76 65 2d 74 68 69 6e 67 20 66 6f 6f 0a 20 20 | ..(define-tentative-thing.foo... |
| 3b420 | 20 20 28 62 61 72 29 0a 20 20 71 75 75 78 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e | ..(bar)...quux)..;;;.Test:.inden |
| 3b440 | 74 2d 39 30 0a 0a 28 64 65 66 69 6e 65 2d 74 65 6e 74 61 74 69 76 65 2d 74 68 69 6e 67 20 66 6f | t-90..(define-tentative-thing.fo |
| 3b460 | 6f 0a 20 20 62 61 72 0a 20 20 71 75 75 78 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e | o...bar...quux)..;;;.Test:.inden |
| 3b480 | 74 2d 39 31 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 62 6f 64 79 | t-91.;;.;;.lisp-loop-indent-body |
| 3b4a0 | 2d 66 6f 72 6d 73 2d 72 65 6c 61 74 69 76 65 2d 74 6f 2d 6c 6f 6f 70 2d 73 74 61 72 74 3a 20 74 | -forms-relative-to-loop-start:.t |
| 3b4c0 | 0a 0a 28 6c 6f 6f 70 20 66 6f 72 20 66 6f 6f 20 69 6e 20 62 61 72 0a 20 20 20 20 20 20 64 6f 0a | ..(loop.for.foo.in.bar.......do. |
| 3b4e0 | 20 20 20 28 70 72 6f 67 6e 20 66 6f 6f 0a 20 20 20 20 20 20 20 20 20 20 62 61 72 0a 20 20 20 20 | ...(progn.foo...........bar..... |
| 3b500 | 20 20 20 20 20 20 62 61 7a 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 39 32 | ......baz))..;;;.Test:.indent-92 |
| 3b520 | 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 62 6f 64 79 2d 66 6f 72 | .;;.;;.lisp-loop-indent-body-for |
| 3b540 | 6d 73 2d 72 65 6c 61 74 69 76 65 2d 74 6f 2d 6c 6f 6f 70 2d 73 74 61 72 74 3a 20 74 0a 3b 3b 20 | ms-relative-to-loop-start:.t.;;. |
| 3b560 | 6c 69 73 70 2d 6c 6f 6f 70 2d 63 6c 61 75 73 65 73 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 3a 20 34 | lisp-loop-clauses-indentation:.4 |
| 3b580 | 0a 0a 28 6c 6f 6f 70 0a 20 20 20 20 66 6f 72 20 66 6f 6f 20 69 6e 20 62 61 72 0a 20 20 20 20 64 | ..(loop.....for.foo.in.bar.....d |
| 3b5a0 | 6f 0a 20 20 20 28 70 72 6f 67 6e 20 66 6f 6f 0a 20 20 20 20 20 20 20 20 20 20 62 61 72 0a 20 20 | o....(progn.foo...........bar... |
| 3b5c0 | 20 20 20 20 20 20 20 20 62 61 7a 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d | ........baz))..;;;.Test:.indent- |
| 3b5e0 | 39 33 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 63 6c 61 75 73 65 73 2d 69 6e 64 65 6e | 93.;;.;;.lisp-loop-clauses-inden |
| 3b600 | 74 61 74 69 6f 6e 3a 20 34 0a 0a 28 6c 6f 6f 70 0a 20 20 20 20 66 6f 72 20 66 6f 6f 20 69 6e 20 | tation:.4..(loop.....for.foo.in. |
| 3b620 | 62 61 72 0a 20 20 20 20 64 6f 69 6e 67 0a 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 66 6f 6f 0a | bar.....doing........(progn.foo. |
| 3b640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..............bar............... |
| 3b660 | 62 61 7a 29 29 0a 0a 3b 3b 3b 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 39 34 0a 3b 3b 0a 3b 3b | baz))..;;;.Test:.indent-94.;;.;; |
| 3b680 | 20 6c 69 73 70 2d 6c 6f 6f 70 2d 63 6c 61 75 73 65 73 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 3a 20 | .lisp-loop-clauses-indentation:. |
| 3b6a0 | 34 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 62 6f 64 79 2d 66 6f 72 6d 73 2d 69 6e 64 65 6e 74 | 4.;;.lisp-loop-body-forms-indent |
| 3b6c0 | 61 74 69 6f 6e 3a 20 31 0a 0a 28 6c 6f 6f 70 0a 20 20 20 20 66 6f 72 20 66 6f 6f 20 69 6e 20 62 | ation:.1..(loop.....for.foo.in.b |
| 3b6e0 | 61 72 0a 20 20 20 20 64 6f 69 6e 67 0a 20 20 20 20 20 28 6c 69 73 74 20 66 6f 6f 0a 20 20 20 20 | ar.....doing......(list.foo..... |
| 3b700 | 20 20 20 20 20 20 20 62 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 62 61 7a 29 29 0a 0a 3b 3b 3b | .......bar............baz))..;;; |
| 3b720 | 20 54 65 73 74 3a 20 69 6e 64 65 6e 74 2d 39 35 0a 3b 3b 0a 3b 3b 20 6c 69 73 70 2d 6c 6f 6f 70 | .Test:.indent-95.;;.;;.lisp-loop |
| 3b740 | 2d 62 6f 64 79 2d 66 6f 72 6d 73 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 3a 20 31 0a 3b 3b 20 6c 69 | -body-forms-indentation:.1.;;.li |
| 3b760 | 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 62 6f 64 79 2d 66 6f 72 6d 73 2d 72 65 6c 61 74 69 | sp-loop-indent-body-forms-relati |
| 3b780 | 76 65 2d 74 6f 2d 6c 6f 6f 70 2d 73 74 61 72 74 3a 20 74 0a 0a 28 6c 6f 6f 70 0a 20 20 66 6f 72 | ve-to-loop-start:.t..(loop...for |
| 3b7a0 | 20 66 6f 6f 20 69 6e 20 62 61 72 0a 20 20 64 6f 0a 20 28 6c 69 73 74 20 66 6f 6f 0a 20 20 20 20 | .foo.in.bar...do..(list.foo..... |
| 3b7c0 | 20 20 20 62 61 72 0a 20 20 20 20 20 20 20 62 61 7a 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 | ...bar........baz))............. |
| 3b7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3b800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 61 75 | slime-2.31/contrib/test/slime-au |
| 3b820 | 74 6f 64 6f 63 2d 74 65 73 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | todoc-tests.el.................. |
| 3b840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3b860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 3b880 | 30 30 31 37 36 31 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 32 30 30 36 35 00 20 30 00 00 00 | 0017613.00000000000.020065..0... |
| 3b8a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3b8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3b8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3b900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 3b920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 3b940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3b960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3b980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3b9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3b9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3b9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3ba00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 29 0a 28 72 65 71 75 69 72 | (require.'slime-autodoc).(requir |
| 3ba20 | 65 20 27 73 6c 69 6d 65 2d 74 65 73 74 73 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 | e.'slime-tests).(require.'cl-lib |
| 3ba40 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 74 6f 2d 73 74 72 69 6e | )..(defun.slime-autodoc-to-strin |
| 3ba60 | 67 20 28 29 0a 20 20 22 52 65 74 72 69 65 76 65 20 61 6e 64 20 72 65 74 75 72 6e 20 61 75 74 6f | g.()..."Retrieve.and.return.auto |
| 3ba80 | 64 6f 63 20 66 6f 72 20 66 6f 72 6d 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 6c 65 74 20 28 | doc.for.form.at.point."...(let.( |
| 3baa0 | 28 61 75 74 6f 64 6f 63 20 28 63 61 72 20 28 73 6c 69 6d 65 2d 65 76 61 6c 0a 09 09 20 20 20 20 | (autodoc.(car.(slime-eval....... |
| 3bac0 | 20 20 20 60 28 73 77 61 6e 6b 3a 61 75 74 6f 64 6f 63 0a 09 09 09 20 27 2c 28 73 6c 69 6d 65 2d | ...`(swank:autodoc.....',(slime- |
| 3bae0 | 61 75 74 6f 64 6f 63 2d 2d 70 61 72 73 65 2d 63 6f 6e 74 65 78 74 29 0a 09 09 09 20 3a 70 72 69 | autodoc--parse-context).....:pri |
| 3bb00 | 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 0a 09 09 09 20 2c 28 77 69 6e 64 6f 77 2d 77 69 64 | nt-right-margin.....,(window-wid |
| 3bb20 | 74 68 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 29 29 29 29 29 0a 20 20 20 | th.(minibuffer-window))))))).... |
| 3bb40 | 20 28 69 66 20 28 65 71 20 61 75 74 6f 64 6f 63 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 | .(if.(eq.autodoc.:not-available) |
| 3bb60 | 0a 20 20 20 20 20 20 20 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 0a 20 20 20 20 20 20 20 20 | .........:not-available......... |
| 3bb80 | 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 2d 77 68 69 | (slime-autodoc--canonicalize-whi |
| 3bba0 | 74 65 73 70 61 63 65 20 61 75 74 6f 64 6f 63 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | tespace.autodoc))))..(defun.slim |
| 3bbc0 | 65 2d 63 68 65 63 6b 2d 61 75 74 6f 64 6f 63 2d 61 74 2d 70 6f 69 6e 74 20 28 61 72 67 6c 69 73 | e-check-autodoc-at-point.(arglis |
| 3bbe0 | 74 29 0a 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 28 66 6f 72 6d 61 74 20 | t)...(slime-test-expect.(format. |
| 3bc00 | 22 41 75 74 6f 64 6f 63 20 69 6e 20 60 25 73 27 20 28 61 74 20 25 64 29 20 69 73 20 61 73 20 65 | "Autodoc.in.`%s'.(at.%d).is.as.e |
| 3bc20 | 78 70 65 63 74 65 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | xpected"........................ |
| 3bc40 | 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 20 28 70 6f 69 6e 74 29 29 0a 20 | ......(buffer-string).(point)).. |
| 3bc60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 6c 69 73 74 0a 20 20 20 20 | ....................arglist..... |
| 3bc80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d | .................(slime-autodoc- |
| 3bca0 | 74 6f 2d 73 74 72 69 6e 67 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 61 | to-string)))..(defmacro.define-a |
| 3bcc0 | 75 74 6f 64 6f 63 2d 74 65 73 74 73 20 28 26 72 65 73 74 20 73 70 65 63 73 29 0a 20 20 60 28 70 | utodoc-tests.(&rest.specs)...`(p |
| 3bce0 | 72 6f 67 6e 0a 20 20 20 20 20 2c 40 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 66 6f 72 | rogn......,@(cl-loop.........for |
| 3bd00 | 20 28 62 75 66 66 65 72 2d 73 65 78 70 72 20 77 69 73 68 65 64 2d 61 72 67 6c 69 73 74 20 2e 20 | .(buffer-sexpr.wished-arglist... |
| 3bd20 | 6f 70 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 69 6e 20 73 70 65 63 73 0a 20 20 20 20 20 20 | options).........in.specs....... |
| 3bd40 | 20 20 66 6f 72 20 66 61 69 6c 73 2d 66 6f 72 20 3d 20 28 70 6c 69 73 74 2d 67 65 74 20 6f 70 74 | ..for.fails-for.=.(plist-get.opt |
| 3bd60 | 69 6f 6e 73 20 3a 66 61 69 6c 73 2d 66 6f 72 29 0a 20 20 20 20 20 20 20 20 66 6f 72 20 73 6b 69 | ions.:fails-for).........for.ski |
| 3bd80 | 70 2d 74 72 61 69 6c 69 6e 67 2d 74 65 73 74 2d 70 20 3d 20 28 70 6c 69 73 74 2d 67 65 74 20 6f | p-trailing-test-p.=.(plist-get.o |
| 3bda0 | 70 74 69 6f 6e 73 20 3a 73 6b 69 70 2d 74 72 61 69 6c 69 6e 67 2d 74 65 73 74 2d 70 29 0a 20 20 | ptions.:skip-trailing-test-p)... |
| 3bdc0 | 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 31 0a 20 20 20 20 20 20 20 20 77 68 65 6e 20 | ......for.i.from.1.........when. |
| 3bde0 | 28 66 65 61 74 75 72 65 70 20 27 65 72 74 29 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 | (featurep.'ert).........collect. |
| 3be00 | 60 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 65 72 74 2d 74 65 73 74 20 2c 28 69 6e 74 65 72 6e | `(define-slime-ert-test.,(intern |
| 3be20 | 20 28 66 6f 72 6d 61 74 20 22 61 75 74 6f 64 6f 63 2d 74 65 73 74 73 2d 25 64 22 20 69 29 29 0a | .(format."autodoc-tests-%d".i)). |
| 3be40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 | ...................()........... |
| 3be60 | 20 20 20 20 20 20 20 20 20 2c 28 66 6f 72 6d 61 74 20 22 43 68 65 63 6b 20 61 75 74 6f 64 6f 63 | .........,(format."Check.autodoc |
| 3be80 | 20 77 6f 72 6b 73 20 6f 6b 20 66 6f 72 20 25 73 22 20 62 75 66 66 65 72 2d 73 65 78 70 72 29 0a | .works.ok.for.%s".buffer-sexpr). |
| 3bea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 69 66 20 66 61 69 6c 73 2d 66 | ...................,@(if.fails-f |
| 3bec0 | 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 | or..........................`(:e |
| 3bee0 | 78 70 65 63 74 65 64 2d 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | xpected-result.................. |
| 3bf00 | 20 20 20 20 20 20 20 20 20 20 27 28 73 61 74 69 73 66 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 | ..........'(satisfies........... |
| 3bf20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 65 73 75 | ...................(lambda.(resu |
| 3bf40 | 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lt)............................. |
| 3bf60 | 20 20 20 28 65 72 74 2d 74 65 73 74 2d 72 65 73 75 6c 74 2d 74 79 70 65 2d 70 0a 20 20 20 20 20 | ...(ert-test-result-type-p...... |
| 3bf80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c | ...........................resul |
| 3bfa0 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t............................... |
| 3bfc0 | 20 20 28 69 66 20 28 6d 65 6d 62 65 72 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d | ..(if.(member.(slime-lisp-implem |
| 3bfe0 | 65 6e 74 61 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | entation-name).................. |
| 3c000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 66 61 69 | ...........................',fai |
| 3c020 | 6c 73 2d 66 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ls-for)......................... |
| 3c040 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 61 69 6c 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ............:failed............. |
| 3c060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 61 73 73 65 64 29 29 29 | ......................:passed))) |
| 3c080 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 | )))....................(slime-sy |
| 3c0a0 | 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 30 2e 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 | nc-to-top-level.0.3)............ |
| 3c0c0 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a | ........(slime-check-top-level). |
| 3c0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 | ...................(with-temp-bu |
| 3c100 | 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | ffer......................(setq. |
| 3c120 | 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 22 43 4f 4d 4d 4f 4e 2d 4c 49 53 | slime-buffer-package."COMMON-LIS |
| 3c140 | 50 2d 55 53 45 52 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | P-USER")......................(l |
| 3c160 | 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | isp-mode)......................( |
| 3c180 | 69 6e 73 65 72 74 20 2c 62 75 66 66 65 72 2d 73 65 78 70 72 29 0a 20 20 20 20 20 20 20 20 20 20 | insert.,buffer-sexpr)........... |
| 3c1a0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 2a 48 45 | ...........(search-backward."*HE |
| 3c1c0 | 52 45 2a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 | RE*")......................(dele |
| 3c1e0 | 74 65 2d 72 65 67 69 6f 6e 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 20 28 6d | te-region.(match-beginning.0).(m |
| 3c200 | 61 74 63 68 2d 65 6e 64 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | atch-end.0)).................... |
| 3c220 | 20 20 28 73 68 6f 75 6c 64 20 28 65 71 75 61 6c 20 2c 77 69 73 68 65 64 2d 61 72 67 6c 69 73 74 | ..(should.(equal.,wished-arglist |
| 3c240 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3c260 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 74 6f 2d 73 74 72 69 6e 67 29 29 29 | .....(slime-autodoc-to-string))) |
| 3c280 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 2c 73 | ......................(unless.,s |
| 3c2a0 | 6b 69 70 2d 74 72 61 69 6c 69 6e 67 2d 74 65 73 74 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 | kip-trailing-test-p............. |
| 3c2c0 | 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 29 22 29 20 28 62 61 63 6b 77 61 72 | ...........(insert.")").(backwar |
| 3c2e0 | 64 2d 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | d-char)........................( |
| 3c300 | 73 68 6f 75 6c 64 20 28 65 71 75 61 6c 20 2c 77 69 73 68 65 64 2d 61 72 67 6c 69 73 74 0a 20 20 | should.(equal.,wished-arglist... |
| 3c320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3c340 | 20 20 20 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 74 6f 2d 73 74 72 69 6e 67 29 29 29 29 | ....(slime-autodoc-to-string)))) |
| 3c360 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 | )....................(slime-sync |
| 3c380 | 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 30 2e 33 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d | -to-top-level.0.3)))))..(define- |
| 3c3a0 | 61 75 74 6f 64 6f 63 2d 74 65 73 74 73 0a 20 20 3b 3b 20 54 65 73 74 20 62 61 73 69 63 73 0a 20 | autodoc-tests...;;.Test.basics.. |
| 3c3c0 | 20 28 22 28 73 77 61 6e 6b 3a 3a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 65 64 2a 48 45 52 45 2a | .("(swank::emacs-connected*HERE* |
| 3c3e0 | 22 20 20 20 20 22 28 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 65 64 29 22 29 0a 20 20 28 22 28 73 | "...."(emacs-connected)")...("(s |
| 3c400 | 77 61 6e 6b 3a 3a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 65 64 20 2a 48 45 52 45 2a 22 20 20 20 | wank::emacs-connected.*HERE*"... |
| 3c420 | 22 28 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 65 64 29 22 29 0a 20 20 28 22 28 73 77 61 6e 6b 3a | "(emacs-connected)")...("(swank: |
| 3c440 | 3a 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 63 72 65 61 74 | :create-socket*HERE*"...."(creat |
| 3c460 | 65 2d 73 6f 63 6b 65 74 20 68 6f 73 74 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 | e-socket.host.port.&key.backlog) |
| 3c480 | 22 29 0a 20 20 28 22 28 73 77 61 6e 6b 3a 3a 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 2a 48 45 | ")...("(swank::create-socket.*HE |
| 3c4a0 | 52 45 2a 22 0a 20 20 20 22 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 3d 3d 3d 3e 20 68 6f 73 | RE*"...."(create-socket.===>.hos |
| 3c4c0 | 74 20 3c 3d 3d 3d 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 22 29 0a 20 20 28 22 | t.<===.port.&key.backlog)")...(" |
| 3c4e0 | 28 73 77 61 6e 6b 3a 3a 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 66 6f 6f 20 2a 48 45 52 45 2a | (swank::create-socket.foo.*HERE* |
| 3c500 | 22 0a 20 20 20 22 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 68 6f 73 74 20 3d 3d 3d 3e 20 70 | "...."(create-socket.host.===>.p |
| 3c520 | 6f 72 74 20 3c 3d 3d 3d 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 22 29 0a 0a 20 20 3b 3b 20 54 | ort.<===.&key.backlog)")....;;.T |
| 3c540 | 65 73 74 20 74 68 61 74 20 61 75 74 6f 64 6f 63 20 64 69 66 66 65 72 65 6e 74 69 61 74 65 73 20 | est.that.autodoc.differentiates. |
| 3c560 | 62 65 74 77 65 65 6e 20 65 78 70 6f 72 74 65 64 20 61 6e 64 0a 20 20 3b 3b 20 75 6e 65 78 70 6f | between.exported.and...;;.unexpo |
| 3c580 | 72 74 65 64 20 73 79 6d 62 6f 6c 73 2e 0a 20 20 28 22 28 73 77 61 6e 6b 3a 63 72 65 61 74 65 2d | rted.symbols....("(swank:create- |
| 3c5a0 | 73 6f 63 6b 65 74 2a 48 45 52 45 2a 22 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 0a 0a 20 | socket*HERE*".:not-available)... |
| 3c5c0 | 20 3b 3b 20 54 65 73 74 20 69 66 20 63 75 72 73 6f 72 20 69 73 20 6f 6e 20 6e 6f 6e 2d 65 78 69 | .;;.Test.if.cursor.is.on.non-exi |
| 3c5e0 | 73 74 69 6e 67 20 72 65 71 75 69 72 65 64 20 70 61 72 61 6d 65 74 65 72 0a 20 20 28 22 28 73 77 | sting.required.parameter...("(sw |
| 3c600 | 61 6e 6b 3a 3a 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 66 6f 6f 20 62 61 72 20 2a 48 45 52 45 | ank::create-socket.foo.bar.*HERE |
| 3c620 | 2a 22 0a 20 20 20 22 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 68 6f 73 74 20 70 6f 72 74 20 | *"...."(create-socket.host.port. |
| 3c640 | 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 22 29 0a 0a 20 20 3b 3b 20 54 65 73 74 20 63 75 72 73 6f | &key.backlog)")....;;.Test.curso |
| 3c660 | 72 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 6f 70 65 6e 69 6e 67 20 70 61 72 65 6e 74 68 65 73 69 | r.in.front.of.opening.parenthesi |
| 3c680 | 73 0a 20 20 28 22 28 73 77 61 6e 6b 3a 3a 77 69 74 68 2d 73 74 72 75 63 74 20 2a 48 45 52 45 2a | s...("(swank::with-struct.*HERE* |
| 3c6a0 | 28 66 6f 6f 2e 20 78 20 79 29 20 2a 73 74 72 75 63 74 2a 20 62 6f 64 79 31 29 22 0a 20 20 20 22 | (foo..x.y).*struct*.body1)"...." |
| 3c6c0 | 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 63 6f 6e 63 2d 6e 61 6d 65 20 26 72 65 73 74 20 6e 61 | (with-struct.(conc-name.&rest.na |
| 3c6e0 | 6d 65 73 29 20 6f 62 6a 20 26 62 6f 64 79 20 62 6f 64 79 29 22 0a 20 20 20 3a 73 6b 69 70 2d 74 | mes).obj.&body.body)"....:skip-t |
| 3c700 | 72 61 69 6c 69 6e 67 2d 74 65 73 74 2d 70 20 74 29 0a 0a 20 20 3b 3b 20 54 65 73 74 20 76 61 72 | railing-test-p.t)....;;.Test.var |
| 3c720 | 69 61 62 6c 65 20 63 6f 6e 74 65 6e 74 20 64 69 73 70 6c 61 79 0a 20 20 28 22 28 70 72 6f 67 6e | iable.content.display...("(progn |
| 3c740 | 20 73 77 61 6e 6b 3a 3a 64 65 66 61 75 6c 74 2d 73 65 72 76 65 72 2d 70 6f 72 74 2a 48 45 52 45 | .swank::default-server-port*HERE |
| 3c760 | 2a 22 0a 20 20 20 22 44 45 46 41 55 4c 54 2d 53 45 52 56 45 52 2d 50 4f 52 54 20 3d 3e 20 34 30 | *"...."DEFAULT-SERVER-PORT.=>.40 |
| 3c780 | 30 35 22 29 0a 0a 20 20 3b 3b 20 54 65 73 74 20 74 68 61 74 20 22 76 61 72 69 61 62 6c 65 20 63 | 05")....;;.Test.that."variable.c |
| 3c7a0 | 6f 6e 74 65 6e 74 20 64 69 73 70 6c 61 79 22 20 69 73 20 6e 6f 74 20 74 72 69 67 67 65 72 65 64 | ontent.display".is.not.triggered |
| 3c7c0 | 20 66 6f 72 0a 20 20 3b 3b 20 74 72 69 76 69 61 6c 20 63 6f 6e 73 74 61 6e 74 73 2e 0a 20 20 28 | .for...;;.trivial.constants....( |
| 3c7e0 | 22 28 73 77 61 6e 6b 3a 3a 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 74 2a 48 45 52 45 2a 22 0a | "(swank::create-socket.t*HERE*". |
| 3c800 | 20 20 20 22 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 3d 3d 3d 3e 20 68 6f 73 74 20 3c 3d 3d | ..."(create-socket.===>.host.<== |
| 3c820 | 3d 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 22 29 0a 20 20 28 22 28 73 77 61 6e | =.port.&key.backlog)")...("(swan |
| 3c840 | 6b 3a 3a 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 3a 66 6f 6f 2a 48 45 52 45 2a 22 0a 20 20 20 | k::create-socket.:foo*HERE*".... |
| 3c860 | 22 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 3d 3d 3d 3e 20 68 6f 73 74 20 3c 3d 3d 3d 20 70 | "(create-socket.===>.host.<===.p |
| 3c880 | 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 22 29 0a 0a 20 20 3b 3b 20 54 65 73 74 20 77 | ort.&key.backlog)")....;;.Test.w |
| 3c8a0 | 69 74 68 20 73 79 6e 74 61 63 74 69 63 20 73 75 67 61 72 0a 20 20 28 22 23 27 28 6c 61 6d 62 64 | ith.syntactic.sugar...("#'(lambd |
| 3c8c0 | 61 20 28 29 20 28 73 77 61 6e 6b 3a 3a 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 2a 48 45 52 45 2a | a.().(swank::create-socket*HERE* |
| 3c8e0 | 22 0a 20 20 20 22 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 68 6f 73 74 20 70 6f 72 74 20 26 | "...."(create-socket.host.port.& |
| 3c900 | 6b 65 79 20 62 61 63 6b 6c 6f 67 29 22 29 0a 20 20 28 22 60 28 6c 61 6d 62 64 61 20 28 29 20 2c | key.backlog)")...("`(lambda.()., |
| 3c920 | 28 73 77 61 6e 6b 3a 3a 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 2a 48 45 52 45 2a 22 0a 20 20 20 | (swank::create-socket*HERE*".... |
| 3c940 | 22 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 68 6f 73 74 20 70 6f 72 74 20 26 6b 65 79 20 62 | "(create-socket.host.port.&key.b |
| 3c960 | 61 63 6b 6c 6f 67 29 22 29 0a 20 20 28 22 28 72 65 6d 6f 76 65 2d 69 66 20 23 27 28 6c 61 6d 62 | acklog)")...("(remove-if.#'(lamb |
| 3c980 | 64 61 20 28 29 20 28 73 77 61 6e 6b 3a 3a 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 2a 48 45 52 45 | da.().(swank::create-socket*HERE |
| 3c9a0 | 2a 22 0a 20 20 20 22 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 68 6f 73 74 20 70 6f 72 74 20 | *"...."(create-socket.host.port. |
| 3c9c0 | 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 22 29 0a 20 20 28 22 60 28 72 65 6d 6f 76 65 2d 69 66 20 | &key.backlog)")...("`(remove-if. |
| 3c9e0 | 23 27 28 6c 61 6d 62 64 61 20 28 29 20 2c 40 28 73 77 61 6e 6b 3a 3a 63 72 65 61 74 65 2d 73 6f | #'(lambda.().,@(swank::create-so |
| 3ca00 | 63 6b 65 74 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 68 | cket*HERE*"...."(create-socket.h |
| 3ca20 | 6f 73 74 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 22 29 0a 0a 20 20 3b 3b 20 54 | ost.port.&key.backlog)")....;;.T |
| 3ca40 | 65 73 74 20 26 6f 70 74 69 6f 6e 61 6c 0a 20 20 28 22 28 73 77 61 6e 6b 3a 3a 73 79 6d 62 6f 6c | est.&optional...("(swank::symbol |
| 3ca60 | 2d 73 74 61 74 75 73 20 66 6f 6f 20 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 73 79 6d 62 6f 6c 2d | -status.foo.*HERE*"...."(symbol- |
| 3ca80 | 73 74 61 74 75 73 20 73 79 6d 62 6f 6c 20 26 6f 70 74 69 6f 6e 61 6c 5c 0a 20 3d 3d 3d 3e 20 28 | status.symbol.&optional\..===>.( |
| 3caa0 | 70 61 63 6b 61 67 65 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 73 79 6d 62 6f 6c 29 29 | package.(symbol-package.symbol)) |
| 3cac0 | 20 3c 3d 3d 3d 29 22 20 3a 66 61 69 6c 73 2d 66 6f 72 20 28 22 61 6c 6c 65 67 72 6f 22 20 22 63 | .<===)".:fails-for.("allegro"."c |
| 3cae0 | 63 6c 22 29 29 0a 0a 20 20 3b 3b 20 54 65 73 74 20 63 6f 6e 74 65 78 74 2d 73 65 6e 73 69 74 69 | cl"))....;;.Test.context-sensiti |
| 3cb00 | 76 65 20 61 75 74 6f 64 6f 63 20 28 44 45 46 4d 45 54 48 4f 44 29 0a 20 20 28 22 28 64 65 66 6d | ve.autodoc.(DEFMETHOD)...("(defm |
| 3cb20 | 65 74 68 6f 64 20 73 77 61 6e 6b 3a 3a 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 63 68 20 28 2a | ethod.swank::arglist-dispatch.(* |
| 3cb40 | 48 45 52 45 2a 22 0a 20 20 20 22 28 64 65 66 6d 65 74 68 6f 64 20 61 72 67 6c 69 73 74 2d 64 69 | HERE*"...."(defmethod.arglist-di |
| 3cb60 | 73 70 61 74 63 68 5c 0a 20 28 3d 3d 3d 3e 20 6f 70 65 72 61 74 6f 72 20 3c 3d 3d 3d 20 61 72 67 | spatch\..(===>.operator.<===.arg |
| 3cb80 | 75 6d 65 6e 74 73 29 20 26 62 6f 64 79 20 62 6f 64 79 29 22 29 0a 20 20 28 22 28 64 65 66 6d 65 | uments).&body.body)")...("(defme |
| 3cba0 | 74 68 6f 64 20 73 77 61 6e 6b 3a 3a 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 63 68 20 3a 62 65 | thod.swank::arglist-dispatch.:be |
| 3cbc0 | 66 6f 72 65 20 28 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 64 65 66 6d 65 74 68 6f 64 20 61 72 67 | fore.(*HERE*"...."(defmethod.arg |
| 3cbe0 | 6c 69 73 74 2d 64 69 73 70 61 74 63 68 20 3a 62 65 66 6f 72 65 5c 0a 20 28 3d 3d 3d 3e 20 6f 70 | list-dispatch.:before\..(===>.op |
| 3cc00 | 65 72 61 74 6f 72 20 3c 3d 3d 3d 20 61 72 67 75 6d 65 6e 74 73 29 20 26 62 6f 64 79 20 62 6f 64 | erator.<===.arguments).&body.bod |
| 3cc20 | 79 29 22 29 0a 0a 20 20 3b 3b 20 54 65 73 74 20 63 6f 6e 74 65 78 74 2d 73 65 6e 73 69 74 69 76 | y)")....;;.Test.context-sensitiv |
| 3cc40 | 65 20 61 75 74 6f 64 6f 63 20 28 41 50 50 4c 59 29 0a 20 20 28 22 28 61 70 70 6c 79 20 27 73 77 | e.autodoc.(APPLY)...("(apply.'sw |
| 3cc60 | 61 6e 6b 3a 3a 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 | ank::eval-for-emacs*HERE*"...."( |
| 3cc80 | 61 70 70 6c 79 20 27 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 26 6f 70 74 69 6f 6e 61 6c 20 | apply.'eval-for-emacs.&optional. |
| 3cca0 | 66 6f 72 6d 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 69 64 20 26 72 65 73 74 20 61 72 67 | form.buffer-package.id.&rest.arg |
| 3ccc0 | 73 29 22 29 0a 20 20 28 22 28 61 70 70 6c 79 20 23 27 73 77 61 6e 6b 3a 3a 65 76 61 6c 2d 66 6f | s)")...("(apply.#'swank::eval-fo |
| 3cce0 | 72 2d 65 6d 61 63 73 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 61 70 70 6c 79 20 23 27 65 76 61 6c | r-emacs*HERE*"...."(apply.#'eval |
| 3cd00 | 2d 66 6f 72 2d 65 6d 61 63 73 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 20 62 75 66 66 65 72 | -for-emacs.&optional.form.buffer |
| 3cd20 | 2d 70 61 63 6b 61 67 65 20 69 64 20 26 72 65 73 74 20 61 72 67 73 29 22 20 3a 66 61 69 6c 73 2d | -package.id.&rest.args)".:fails- |
| 3cd40 | 66 6f 72 20 28 22 63 63 6c 22 29 29 0a 20 20 28 22 28 61 70 70 6c 79 20 27 73 77 61 6e 6b 3a 3a | for.("ccl"))...("(apply.'swank:: |
| 3cd60 | 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 66 6f 6f 20 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 | eval-for-emacs.foo.*HERE*"...."( |
| 3cd80 | 61 70 70 6c 79 20 27 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 26 6f 70 74 69 6f 6e 61 6c 20 | apply.'eval-for-emacs.&optional. |
| 3cda0 | 66 6f 72 6d 5c 0a 20 3d 3d 3d 3e 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 3c 3d 3d 3d 20 | form\..===>.buffer-package.<===. |
| 3cdc0 | 69 64 20 26 72 65 73 74 20 61 72 67 73 29 22 29 0a 20 20 28 22 28 61 70 70 6c 79 20 23 27 73 77 | id.&rest.args)")...("(apply.#'sw |
| 3cde0 | 61 6e 6b 3a 3a 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 66 6f 6f 20 2a 48 45 52 45 2a 22 0a | ank::eval-for-emacs.foo.*HERE*". |
| 3ce00 | 20 20 20 22 28 61 70 70 6c 79 20 23 27 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 26 6f 70 74 | ..."(apply.#'eval-for-emacs.&opt |
| 3ce20 | 69 6f 6e 61 6c 20 66 6f 72 6d 5c 0a 20 3d 3d 3d 3e 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 | ional.form\..===>.buffer-package |
| 3ce40 | 20 3c 3d 3d 3d 20 69 64 20 26 72 65 73 74 20 61 72 67 73 29 22 20 3a 66 61 69 6c 73 2d 66 6f 72 | .<===.id.&rest.args)".:fails-for |
| 3ce60 | 20 28 22 63 63 6c 22 29 29 0a 0a 20 20 3b 3b 20 54 65 73 74 20 63 6f 6e 74 65 78 74 2d 73 65 6e | .("ccl"))....;;.Test.context-sen |
| 3ce80 | 73 69 74 69 76 65 20 61 75 74 6f 64 6f 63 20 28 45 52 52 4f 52 2c 20 43 45 52 52 4f 52 29 0a 20 | sitive.autodoc.(ERROR,.CERROR).. |
| 3cea0 | 20 28 22 28 65 72 72 6f 72 20 27 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 2a 48 45 52 45 | .("(error.'simple-condition*HERE |
| 3cec0 | 2a 22 0a 20 20 20 22 28 65 72 72 6f 72 20 27 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 | *"...."(error.'simple-condition. |
| 3cee0 | 26 72 65 73 74 20 61 72 67 75 6d 65 6e 74 73 5c 0a 20 26 6b 65 79 20 66 6f 72 6d 61 74 2d 61 72 | &rest.arguments\..&key.format-ar |
| 3cf00 | 67 75 6d 65 6e 74 73 20 66 6f 72 6d 61 74 2d 63 6f 6e 74 72 6f 6c 29 22 20 3a 66 61 69 6c 73 2d | guments.format-control)".:fails- |
| 3cf20 | 66 6f 72 20 28 22 63 63 6c 22 29 29 0a 20 20 28 22 28 63 65 72 72 6f 72 20 5c 22 46 6f 6f 5c 22 | for.("ccl"))...("(cerror.\"Foo\" |
| 3cf40 | 20 27 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 63 | .'simple-condition*HERE*"...."(c |
| 3cf60 | 65 72 72 6f 72 20 5c 22 46 6f 6f 5c 22 20 27 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 5c | error.\"Foo\".'simple-condition\ |
| 3cf80 | 0a 20 26 72 65 73 74 20 61 72 67 75 6d 65 6e 74 73 20 26 6b 65 79 20 66 6f 72 6d 61 74 2d 61 72 | ..&rest.arguments.&key.format-ar |
| 3cfa0 | 67 75 6d 65 6e 74 73 20 66 6f 72 6d 61 74 2d 63 6f 6e 74 72 6f 6c 29 22 0a 20 20 20 3a 66 61 69 | guments.format-control)"....:fai |
| 3cfc0 | 6c 73 2d 66 6f 72 20 28 22 61 6c 6c 65 67 72 6f 22 20 22 63 63 6c 22 29 29 0a 0a 20 20 3b 3b 20 | ls-for.("allegro"."ccl"))....;;. |
| 3cfe0 | 54 65 73 74 20 26 4b 45 59 20 61 6e 64 20 6e 65 73 74 65 64 20 61 72 67 6c 69 73 74 73 0a 20 20 | Test.&KEY.and.nested.arglists... |
| 3d000 | 28 22 28 73 77 61 6e 6b 3a 3a 77 69 74 68 2d 72 65 74 72 79 2d 72 65 73 74 61 72 74 20 28 3a 6d | ("(swank::with-retry-restart.(:m |
| 3d020 | 73 67 20 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 77 69 74 68 2d 72 65 74 72 79 2d 72 65 73 74 61 | sg.*HERE*"...."(with-retry-resta |
| 3d040 | 72 74 20 28 26 6b 65 79 20 3d 3d 3d 3e 20 28 6d 73 67 20 5c 22 52 65 74 72 79 2e 5c 22 29 20 3c | rt.(&key.===>.(msg.\"Retry.\").< |
| 3d060 | 3d 3d 3d 29 20 26 62 6f 64 79 20 62 6f 64 79 29 22 0a 20 20 20 3a 66 61 69 6c 73 2d 66 6f 72 20 | ===).&body.body)"....:fails-for. |
| 3d080 | 28 22 61 6c 6c 65 67 72 6f 22 29 29 0a 20 20 28 22 28 73 77 61 6e 6b 3a 3a 77 69 74 68 2d 72 65 | ("allegro"))...("(swank::with-re |
| 3d0a0 | 74 72 79 2d 72 65 73 74 61 72 74 20 28 3a 6d 73 67 20 2a 48 45 52 45 2a 28 66 6f 6f 22 0a 20 20 | try-restart.(:msg.*HERE*(foo"... |
| 3d0c0 | 20 22 28 77 69 74 68 2d 72 65 74 72 79 2d 72 65 73 74 61 72 74 20 28 26 6b 65 79 20 3d 3d 3d 3e | ."(with-retry-restart.(&key.===> |
| 3d0e0 | 20 28 6d 73 67 20 5c 22 52 65 74 72 79 2e 5c 22 29 20 3c 3d 3d 3d 29 20 26 62 6f 64 79 20 62 6f | .(msg.\"Retry.\").<===).&body.bo |
| 3d100 | 64 79 29 22 0a 20 20 20 3a 73 6b 69 70 2d 74 72 61 69 6c 69 6e 67 2d 74 65 73 74 2d 70 20 74 0a | dy)"....:skip-trailing-test-p.t. |
| 3d120 | 20 20 20 3a 66 61 69 6c 73 2d 66 6f 72 20 28 22 61 6c 6c 65 67 72 6f 22 29 29 0a 20 20 28 22 28 | ...:fails-for.("allegro"))...("( |
| 3d140 | 73 77 61 6e 6b 3a 3a 73 74 61 72 74 2d 73 65 72 76 65 72 20 5c 22 2f 74 6d 70 2f 66 6f 6f 5c 22 | swank::start-server.\"/tmp/foo\" |
| 3d160 | 20 3a 64 6f 6e 74 2d 63 6c 6f 73 65 20 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 73 74 61 72 74 2d | .:dont-close.*HERE*"...."(start- |
| 3d180 | 73 65 72 76 65 72 20 70 6f 72 74 2d 66 69 6c 65 20 26 6b 65 79 20 28 73 74 79 6c 65 20 73 77 61 | server.port-file.&key.(style.swa |
| 3d1a0 | 6e 6b 3a 2a 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 2a 29 5c 0a 20 3d 3d 3d 3e | nk:*communication-style*)\..===> |
| 3d1c0 | 20 28 64 6f 6e 74 2d 63 6c 6f 73 65 20 73 77 61 6e 6b 3a 2a 64 6f 6e 74 2d 63 6c 6f 73 65 2a 29 | .(dont-close.swank:*dont-close*) |
| 3d1e0 | 20 3c 3d 3d 3d 29 22 0a 20 20 20 3a 66 61 69 6c 73 2d 66 6f 72 20 28 22 61 6c 6c 65 67 72 6f 22 | .<===)"....:fails-for.("allegro" |
| 3d200 | 20 22 63 63 6c 22 29 29 0a 0a 20 20 3b 3b 20 54 65 73 74 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 | ."ccl"))....;;.Test.declarations |
| 3d220 | 20 61 6e 64 20 74 79 70 65 20 73 70 65 63 69 66 69 65 72 73 0a 20 20 28 22 28 64 65 63 6c 61 72 | .and.type.specifiers...("(declar |
| 3d240 | 65 20 28 73 74 72 69 6e 67 20 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 64 65 63 6c 61 72 65 20 28 | e.(string.*HERE*"...."(declare.( |
| 3d260 | 73 74 72 69 6e 67 20 26 72 65 73 74 20 3d 3d 3d 3e 20 76 61 72 69 61 62 6c 65 73 20 3c 3d 3d 3d | string.&rest.===>.variables.<=== |
| 3d280 | 29 29 22 0a 20 20 20 3a 66 61 69 6c 73 2d 66 6f 72 20 28 22 61 6c 6c 65 67 72 6f 22 29 20 3a 66 | ))"....:fails-for.("allegro").:f |
| 3d2a0 | 61 69 6c 73 2d 66 6f 72 20 28 22 63 63 6c 22 29 29 0a 20 20 28 22 28 64 65 63 6c 61 72 65 20 28 | ails-for.("ccl"))...("(declare.( |
| 3d2c0 | 28 73 74 72 69 6e 67 20 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 64 65 63 6c 61 72 65 20 28 28 73 | (string.*HERE*"...."(declare.((s |
| 3d2e0 | 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 3d 3d 3d 3e 20 73 69 7a 65 20 3c 3d 3d 3d 29 20 | tring.&optional.===>.size.<===). |
| 3d300 | 26 72 65 73 74 20 76 61 72 69 61 62 6c 65 73 29 29 22 29 0a 20 20 28 22 28 64 65 63 6c 61 72 65 | &rest.variables))")...("(declare |
| 3d320 | 20 28 74 79 70 65 20 28 73 74 72 69 6e 67 20 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 64 65 63 6c | .(type.(string.*HERE*"...."(decl |
| 3d340 | 61 72 65 20 28 74 79 70 65 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 3d 3d 3d 3e | are.(type.(string.&optional.===> |
| 3d360 | 20 73 69 7a 65 20 3c 3d 3d 3d 29 20 26 72 65 73 74 20 76 61 72 69 61 62 6c 65 73 29 29 22 29 0a | .size.<===).&rest.variables))"). |
| 3d380 | 0a 20 20 3b 3b 20 54 65 73 74 20 6c 6f 63 61 6c 20 66 75 6e 63 74 69 6f 6e 73 0a 20 20 28 22 28 | ...;;.Test.local.functions...("( |
| 3d3a0 | 66 6c 65 74 20 28 28 66 6f 6f 20 28 78 20 79 29 20 28 2b 20 78 20 79 29 29 29 20 28 66 6f 6f 20 | flet.((foo.(x.y).(+.x.y))).(foo. |
| 3d3c0 | 2a 48 45 52 45 2a 22 20 22 28 66 6f 6f 20 3d 3d 3d 3e 20 78 20 3c 3d 3d 3d 20 79 29 22 29 0a 20 | *HERE*"."(foo.===>.x.<===.y)").. |
| 3d3e0 | 20 28 22 28 6d 61 63 72 6f 6c 65 74 20 28 28 66 6f 6f 20 28 78 20 79 29 20 60 28 2b 20 2c 78 20 | .("(macrolet.((foo.(x.y).`(+.,x. |
| 3d400 | 2c 79 29 29 29 20 28 66 6f 6f 20 2a 48 45 52 45 2a 22 20 22 28 66 6f 6f 20 3d 3d 3d 3e 20 78 20 | ,y))).(foo.*HERE*"."(foo.===>.x. |
| 3d420 | 3c 3d 3d 3d 20 79 29 22 29 0a 20 20 28 22 28 6c 61 62 65 6c 73 20 28 28 66 6f 6f 20 28 78 20 79 | <===.y)")...("(labels.((foo.(x.y |
| 3d440 | 29 20 28 2b 20 78 20 79 29 29 29 20 28 66 6f 6f 20 2a 48 45 52 45 2a 22 20 22 28 66 6f 6f 20 3d | ).(+.x.y))).(foo.*HERE*"."(foo.= |
| 3d460 | 3d 3d 3e 20 78 20 3c 3d 3d 3d 20 79 29 22 29 0a 20 20 28 22 28 6c 61 62 65 6c 73 20 28 28 66 6f | ==>.x.<===.y)")...("(labels.((fo |
| 3d480 | 6f 20 28 78 20 79 29 20 28 2b 20 78 20 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o.(x.y).(+.x.y))................ |
| 3d4a0 | 20 20 28 62 61 72 20 28 79 29 20 28 66 6f 6f 20 2a 48 45 52 45 2a 22 0a 20 20 20 22 28 66 6f 6f | ..(bar.(y).(foo.*HERE*"...."(foo |
| 3d4c0 | 20 3d 3d 3d 3e 20 78 20 3c 3d 3d 3d 20 79 29 22 20 3a 66 61 69 6c 73 2d 66 6f 72 20 28 22 63 6d | .===>.x.<===.y)".:fails-for.("cm |
| 3d4e0 | 75 63 6c 22 20 22 73 62 63 6c 22 20 22 61 6c 6c 65 67 72 6f 22 20 22 63 63 6c 22 29 29 29 0a 0a | ucl"."sbcl"."allegro"."ccl"))).. |
| 3d500 | 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 61 75 74 6f 64 6f 63 2d 73 70 61 63 65 0a 20 20 | (def-slime-test.autodoc-space... |
| 3d520 | 20 20 28 69 6e 70 75 74 2d 6b 65 79 73 20 65 78 70 65 63 74 65 64 2d 6d 65 73 73 61 67 65 29 0a | ..(input-keys.expected-message). |
| 3d540 | 20 20 20 20 22 45 6d 75 6c 61 74 65 20 74 68 65 20 69 6e 73 65 72 74 69 6e 67 20 73 6f 6d 65 74 | ...."Emulate.the.inserting.somet |
| 3d560 | 68 69 6e 67 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 20 73 70 61 63 65 20 6b 65 79 0a 65 | hing.followed.by.the.space.key.e |
| 3d580 | 76 65 6e 74 20 61 6e 64 20 76 65 72 69 66 79 20 74 68 61 74 20 74 68 65 20 72 69 67 68 74 20 74 | vent.and.verify.that.the.right.t |
| 3d5a0 | 68 69 6e 67 20 61 70 70 65 61 72 73 20 69 6e 20 74 68 65 20 65 63 68 6f 0a 61 72 65 61 20 28 61 | hing.appears.in.the.echo.area.(a |
| 3d5c0 | 66 74 65 72 20 61 20 73 68 6f 72 74 20 64 65 6c 61 79 29 2e 22 0a 20 20 20 20 27 28 28 22 28 20 | fter.a.short.delay).".....'(("(. |
| 3d5e0 | 73 20 77 20 61 20 6e 20 6b 20 3a 20 3a 20 6f 20 70 20 65 20 72 20 61 20 74 20 6f 20 72 20 2d 20 | s.w.a.n.k.:.:.o.p.e.r.a.t.o.r.-. |
| 3d600 | 61 20 72 20 67 20 6c 20 69 20 73 20 74 20 53 50 43 22 0a 20 20 20 20 20 20 20 22 28 6f 70 65 72 | a.r.g.l.i.s.t.SPC"........"(oper |
| 3d620 | 61 74 6f 72 2d 61 72 67 6c 69 73 74 20 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 22 29 29 0a 20 20 | ator-arglist.name.package)"))... |
| 3d640 | 28 77 68 65 6e 20 6e 6f 6e 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 28 73 6c 69 6d 65 2d | (when.noninteractive.....(slime- |
| 3d660 | 73 6b 69 70 2d 74 65 73 74 20 22 43 61 6e 27 74 20 75 73 65 20 75 6e 72 65 61 64 2d 63 6f 6d 6d | skip-test."Can't.use.unread-comm |
| 3d680 | 61 6e 64 2d 65 76 65 6e 74 73 20 69 6e 20 62 61 74 63 68 20 6d 6f 64 65 22 29 29 0a 20 20 28 6c | and-events.in.batch.mode"))...(l |
| 3d6a0 | 65 74 2a 20 28 28 6b 65 79 73 20 28 65 76 61 6c 20 60 28 6b 62 64 20 2c 69 6e 70 75 74 2d 6b 65 | et*.((keys.(eval.`(kbd.,input-ke |
| 3d6c0 | 79 73 29 29 29 0a 09 20 28 74 61 67 20 28 63 6f 6e 73 20 6e 69 6c 20 6e 69 6c 29 29 0a 09 20 28 | ys)))...(tag.(cons.nil.nil))...( |
| 3d6e0 | 74 69 6d 65 72 66 75 6e 20 28 6c 61 6d 62 64 61 20 28 74 61 67 29 20 28 74 68 72 6f 77 20 74 61 | timerfun.(lambda.(tag).(throw.ta |
| 3d700 | 67 20 6e 69 6c 29 29 29 0a 09 20 28 74 69 6d 65 72 20 28 72 75 6e 2d 77 69 74 68 2d 74 69 6d 65 | g.nil)))...(timer.(run-with-time |
| 3d720 | 72 20 30 2e 31 20 6e 69 6c 20 74 69 6d 65 72 66 75 6e 20 74 61 67 29 29 29 0a 20 20 20 20 28 77 | r.0.1.nil.timerfun.tag))).....(w |
| 3d740 | 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 | ith-temp-buffer.......(lisp-mode |
| 3d760 | 29 0a 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 09 20 20 28 63 61 74 63 | ).......(unwind-protect....(catc |
| 3d780 | 68 20 74 61 67 0a 09 20 20 20 20 28 6d 65 73 73 61 67 65 20 6e 69 6c 29 0a 09 20 20 20 20 28 73 | h.tag......(message.nil)......(s |
| 3d7a0 | 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 63 75 | elect-window.(display-buffer.(cu |
| 3d7c0 | 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 29 29 0a 09 20 20 20 20 28 73 65 74 71 20 75 6e 72 | rrent-buffer).t))......(setq.unr |
| 3d7e0 | 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 65 76 65 6e 74 73 20 28 6c 69 73 74 69 66 79 2d 6b 65 79 2d | ead-command-events.(listify-key- |
| 3d800 | 73 65 71 75 65 6e 63 65 20 6b 65 79 73 29 29 0a 09 20 20 20 20 28 61 63 63 65 70 74 2d 70 72 6f | sequence.keys))......(accept-pro |
| 3d820 | 63 65 73 73 2d 6f 75 74 70 75 74 29 0a 09 20 20 20 20 28 72 65 63 75 72 73 69 76 65 2d 65 64 69 | cess-output)......(recursive-edi |
| 3d840 | 74 29 29 0a 09 28 73 65 74 71 20 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 65 76 65 6e 74 73 | t))..(setq.unread-command-events |
| 3d860 | 20 6e 69 6c 29 0a 09 28 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 74 69 6d 65 72 29 29 0a 20 20 20 | .nil)..(cancel-timer.timer)).... |
| 3d880 | 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 4d 65 73 73 61 67 65 20 61 | ...(slime-test-expect."Message.a |
| 3d8a0 | 66 74 65 72 20 53 50 43 22 0a 09 09 09 20 65 78 70 65 63 74 65 64 2d 6d 65 73 73 61 67 65 20 28 | fter.SPC".....expected-message.( |
| 3d8c0 | 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 29 29 0a 20 20 20 20 20 20 28 61 63 63 65 70 74 2d | current-message)).......(accept- |
| 3d8e0 | 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20 6e 69 6c 20 28 2a 20 65 6c 64 6f 63 2d 69 64 6c 65 | process-output.nil.(*.eldoc-idle |
| 3d900 | 2d 64 65 6c 61 79 20 32 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 | -delay.2)).......(slime-test-exp |
| 3d920 | 65 63 74 20 22 4d 65 73 73 61 67 65 20 61 66 74 65 72 20 65 64 6c 6f 63 20 64 65 6c 61 79 22 0a | ect."Message.after.edloc.delay". |
| 3d940 | 09 09 09 20 65 78 70 65 63 74 65 64 2d 6d 65 73 73 61 67 65 20 28 63 75 72 72 65 6e 74 2d 6d 65 | ....expected-message.(current-me |
| 3d960 | 73 73 61 67 65 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 61 75 74 6f | ssage)))))..(provide.'slime-auto |
| 3d980 | 64 6f 63 2d 74 65 73 74 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | doc-tests)...................... |
| 3d9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3d9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3d9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3da00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 65 6e | slime-2.31/contrib/test/slime-en |
| 3da20 | 63 6c 6f 73 69 6e 67 2d 63 6f 6e 74 65 78 74 2d 74 65 73 74 73 2e 65 6c 00 00 00 00 00 00 00 00 | closing-context-tests.el........ |
| 3da40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3da60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 3da80 | 30 30 30 33 33 31 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 32 32 30 36 32 00 20 30 00 00 00 | 0003313.00000000000.022062..0... |
| 3daa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3dac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3dae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3db00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 3db20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 3db40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3db60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3db80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3dba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3dbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3dbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3dc00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 63 6f 6e 74 65 78 | (require.'slime-enclosing-contex |
| 3dc20 | 74 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 74 65 73 74 73 29 0a 28 72 65 71 75 69 | t).(require.'slime-tests).(requi |
| 3dc40 | 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 65 6e 63 | re.'cl-lib)..(def-slime-test.enc |
| 3dc60 | 6c 6f 73 69 6e 67 2d 63 6f 6e 74 65 78 74 2e 31 0a 20 20 28 62 75 66 66 65 72 2d 73 65 78 70 72 | losing-context.1...(buffer-sexpr |
| 3dc80 | 20 77 69 73 68 65 64 2d 62 6f 75 6e 64 2d 6e 61 6d 65 73 20 77 69 73 68 65 64 2d 62 6f 75 6e 64 | .wished-bound-names.wished-bound |
| 3dca0 | 2d 66 75 6e 63 74 69 6f 6e 73 29 0a 20 20 22 43 68 65 63 6b 20 74 68 61 74 20 66 69 6e 64 69 6e | -functions)..."Check.that.findin |
| 3dcc0 | 67 20 6c 6f 63 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 77 6f 72 6b 2e 22 0a 20 20 27 28 28 | g.local.definitions.work."...'(( |
| 3dce0 | 22 28 66 6c 65 74 20 28 28 2c 6e 69 6c 20 28 29 29 29 0a 09 20 28 6c 65 74 20 28 28 62 61 72 20 | "(flet.((,nil.()))...(let.((bar. |
| 3dd00 | 31 33 29 0a 09 20 20 20 20 20 20 20 28 2c 66 6f 6f 20 34 32 29 29 0a 09 20 20 20 2a 48 45 52 45 | 13).........(,foo.42)).....*HERE |
| 3dd20 | 2a 29 29 22 0a 20 20 20 20 20 3b 3b 20 57 65 20 75 73 65 64 20 74 6f 20 72 65 74 75 72 6e 20 2c | *))"......;;.We.used.to.return., |
| 3dd40 | 66 6f 6f 20 68 65 72 65 2c 20 62 75 74 20 77 65 20 64 6f 20 6e 6f 74 20 61 6e 79 6d 6f 72 65 2e | foo.here,.but.we.do.not.anymore. |
| 3dd60 | 20 20 57 65 0a 20 20 20 20 20 3b 3b 20 73 74 69 6c 6c 20 72 65 74 75 72 6e 20 2c 6e 69 6c 20 66 | ..We......;;.still.return.,nil.f |
| 3dd80 | 6f 72 20 74 68 65 20 60 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 62 6f 75 6e 64 2d 66 75 | or.the.`slime-enclosing-bound-fu |
| 3dda0 | 6e 63 74 69 6f 6e 73 27 2c 0a 20 20 20 20 20 3b 3b 20 74 68 6f 75 67 68 2e 20 54 68 65 20 66 69 | nctions',......;;.though..The.fi |
| 3ddc0 | 72 73 74 20 6f 6e 65 20 69 73 20 75 73 65 64 20 66 6f 72 20 6c 6f 63 61 6c 20 4d 2d 2e 2c 20 77 | rst.one.is.used.for.local.M-.,.w |
| 3dde0 | 68 65 72 65 61 73 20 74 68 65 0a 20 20 20 20 20 3b 3b 20 6c 61 74 74 65 72 20 69 73 20 75 73 65 | hereas.the......;;.latter.is.use |
| 3de00 | 64 20 66 6f 72 20 6c 6f 63 61 6c 20 61 75 74 6f 64 6f 63 2e 20 49 74 20 64 6f 65 73 20 6e 6f 74 | d.for.local.autodoc..It.does.not |
| 3de20 | 20 73 65 65 6d 20 74 6f 6f 0a 20 20 20 20 20 3b 3b 20 69 6d 70 6f 72 74 61 6e 74 20 66 6f 72 20 | .seem.too......;;.important.for. |
| 3de40 | 6c 6f 63 61 6c 20 4d 2d 2e 20 74 6f 20 77 6f 72 6b 20 6f 6e 20 73 75 63 68 20 6e 61 6d 65 73 2e | local.M-..to.work.on.such.names. |
| 3de60 | 20 5c 28 54 68 65 20 72 65 61 73 6f 6e 0a 20 20 20 20 20 3b 3b 20 74 68 61 74 20 69 74 20 64 6f | .\(The.reason......;;.that.it.do |
| 3de80 | 65 73 20 6e 6f 74 20 77 6f 72 6b 20 61 6e 79 6d 6f 72 65 2c 20 69 73 20 74 68 61 74 0a 20 20 20 | es.not.work.anymore,.is.that.... |
| 3dea0 | 20 20 3b 3b 20 60 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 27 20 6e 6f 77 | ..;;.`slime-symbol-at-point'.now |
| 3dec0 | 20 64 6f 65 73 20 54 52 54 20 61 6e 64 20 64 6f 65 73 20 6e 6f 74 20 72 65 74 75 72 6e 20 61 0a | .does.TRT.and.does.not.return.a. |
| 3dee0 | 20 20 20 20 20 3b 3b 20 6c 65 61 64 69 6e 67 20 63 6f 6d 6d 61 20 61 6e 79 6d 6f 72 65 2e 5c 29 | .....;;.leading.comma.anymore.\) |
| 3df00 | 0a 20 20 20 20 20 28 22 62 61 72 22 20 6e 69 6c 20 6e 69 6c 29 0a 20 20 20 20 20 28 28 22 2c 6e | ......("bar".nil.nil)......((",n |
| 3df20 | 69 6c 22 20 22 28 29 22 29 29 29 0a 20 20 20 20 28 22 28 66 6c 65 74 20 28 28 66 6f 6f 20 28 29 | il"."()"))).....("(flet.((foo.() |
| 3df40 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 71 75 75 78 29 0a 20 20 20 20 20 20 20 20 20 28 62 61 72 | ))..........(quux)..........(bar |
| 3df60 | 20 2a 48 45 52 45 2a 29 29 22 0a 20 20 20 20 20 28 22 66 6f 6f 22 29 0a 20 20 20 20 20 28 28 22 | .*HERE*))"......("foo")......((" |
| 3df80 | 66 6f 6f 22 20 22 28 29 22 29 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 | foo"."()"))))...(slime-check-top |
| 3dfa0 | 2d 6c 65 76 65 6c 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 | -level)...(with-temp-buffer..... |
| 3dfc0 | 28 6c 65 74 20 28 28 74 6d 70 62 75 66 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 | (let.((tmpbuf.(current-buffer))) |
| 3dfe0 | 0a 20 20 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 | .......(lisp-mode).......(insert |
| 3e000 | 20 62 75 66 66 65 72 2d 73 65 78 70 72 29 0a 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 62 61 63 | .buffer-sexpr).......(search-bac |
| 3e020 | 6b 77 61 72 64 20 22 2a 48 45 52 45 2a 22 29 0a 20 20 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 | kward."*HERE*").......(cl-multip |
| 3e040 | 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 62 6f 75 6e 64 2d 6e 61 6d 65 73 20 70 6f 69 6e 74 | le-value-bind.(bound-names.point |
| 3e060 | 73 29 0a 09 20 20 28 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 62 6f 75 6e 64 2d 6e 61 6d | s)....(slime-enclosing-bound-nam |
| 3e080 | 65 73 29 0a 09 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 43 68 65 63 6b 20 65 6e 63 6c 6f 73 69 | es)..(slime-check."Check.enclosi |
| 3e0a0 | 6e 67 20 62 6f 75 6e 64 20 6e 61 6d 65 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng.bound.names"................. |
| 3e0c0 | 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6e 61 6d 65 20 69 6e 20 77 69 73 68 65 64 | .....(cl-loop.for.name.in.wished |
| 3e0e0 | 2d 62 6f 75 6e 64 2d 6e 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -bound-names.................... |
| 3e100 | 20 20 20 20 20 20 20 20 20 20 20 61 6c 77 61 79 73 20 28 6d 65 6d 62 65 72 20 6e 61 6d 65 20 62 | ...........always.(member.name.b |
| 3e120 | 6f 75 6e 64 2d 6e 61 6d 65 73 29 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c | ound-names)))).......(cl-multipl |
| 3e140 | 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 6e 2d 6e 61 6d 65 73 20 66 6e 2d 61 72 67 6c 69 73 | e-value-bind.(fn-names.fn-arglis |
| 3e160 | 74 73 20 70 6f 69 6e 74 73 29 0a 09 20 20 28 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 62 | ts.points)....(slime-enclosing-b |
| 3e180 | 6f 75 6e 64 2d 66 75 6e 63 74 69 6f 6e 73 29 0a 09 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 43 | ound-functions)..(slime-check."C |
| 3e1a0 | 68 65 63 6b 20 65 6e 63 6c 6f 73 69 6e 67 20 62 6f 75 6e 64 20 66 75 6e 63 74 69 6f 6e 73 22 0a | heck.enclosing.bound.functions". |
| 3e1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f | .....................(cl-loop.fo |
| 3e1e0 | 72 20 28 6e 61 6d 65 20 61 72 67 6c 69 73 74 29 20 69 6e 20 77 69 73 68 65 64 2d 62 6f 75 6e 64 | r.(name.arglist).in.wished-bound |
| 3e200 | 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -functions...................... |
| 3e220 | 20 20 20 20 20 20 20 20 20 61 6c 77 61 79 73 20 28 61 6e 64 20 28 6d 65 6d 62 65 72 20 6e 61 6d | .........always.(and.(member.nam |
| 3e240 | 65 20 66 6e 2d 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.fn-names)..................... |
| 3e260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 61 72 | ......................(member.ar |
| 3e280 | 67 6c 69 73 74 20 66 6e 2d 61 72 67 6c 69 73 74 73 29 29 29 29 29 0a 20 20 20 20 20 20 29 29 29 | glist.fn-arglists))))).......))) |
| 3e2a0 | 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 63 6f 6e 74 | ..(provide.'slime-enclosing-cont |
| 3e2c0 | 65 78 74 2d 74 65 73 74 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ext-tests)...................... |
| 3e2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 63 2d | slime-2.31/contrib/test/slime-c- |
| 3e420 | 70 2d 63 2d 74 65 73 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | p-c-tests.el.................... |
| 3e440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 3e480 | 30 30 31 34 35 31 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 33 32 35 00 20 30 00 00 00 | 0014516.00000000000.017325..0... |
| 3e4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 3e520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 3e540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3e600 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 63 2d 70 2d 63 29 0a 28 72 65 71 75 69 72 65 20 | (require.'slime-c-p-c).(require. |
| 3e620 | 27 73 6c 69 6d 65 2d 74 65 73 74 73 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 63 | 'slime-tests)..(def-slime-test.c |
| 3e640 | 6f 6d 70 6c 65 74 69 6f 6e 73 0a 20 20 20 20 28 70 72 65 66 69 78 20 65 78 70 65 63 74 65 64 2d | ompletions.....(prefix.expected- |
| 3e660 | 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 0a 20 20 20 20 22 46 69 6e 64 20 74 68 65 20 63 6f 6d 70 6c | completions)....."Find.the.compl |
| 3e680 | 65 74 69 6f 6e 73 20 6f 66 20 61 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 70 72 65 66 69 78 2e 22 | etions.of.a.symbol-name.prefix." |
| 3e6a0 | 0a 20 20 20 20 27 28 28 22 63 6c 3a 63 6f 6d 70 69 6c 65 22 20 28 28 22 63 6c 3a 63 6f 6d 70 69 | .....'(("cl:compile".(("cl:compi |
| 3e6c0 | 6c 65 22 20 22 63 6c 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 22 20 22 63 6c 3a 63 6f 6d 70 69 6c | le"."cl:compile-file"."cl:compil |
| 3e6e0 | 65 2d 66 69 6c 65 2d 70 61 74 68 6e 61 6d 65 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-file-pathname"................ |
| 3e700 | 20 20 20 20 20 20 20 22 63 6c 3a 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 22 20 22 63 | ......."cl:compiled-function"."c |
| 3e720 | 6c 3a 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 70 22 20 0a 20 20 20 20 20 20 20 20 | l:compiled-function-p".......... |
| 3e740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 6c 3a 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f | .............."cl:compiler-macro |
| 3e760 | 22 20 22 63 6c 3a 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 22 29 0a | "."cl:compiler-macro-function"). |
| 3e780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 6c 3a 63 6f 6d 70 69 6c 65 | ....................."cl:compile |
| 3e7a0 | 22 29 29 0a 20 20 20 20 20 20 28 22 63 6c 3a 66 6f 6f 62 61 72 22 20 6e 69 6c 29 0a 20 20 20 20 | ")).......("cl:foobar".nil)..... |
| 3e7c0 | 20 20 28 22 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 22 20 28 28 22 73 77 61 6e | ..("swank::compile-file".(("swan |
| 3e7e0 | 6b 3a 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 22 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | k::compile-file"................ |
| 3e800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 | ................."swank::compile |
| 3e820 | 2d 66 69 6c 65 2d 66 6f 72 2d 65 6d 61 63 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -file-for-emacs"................ |
| 3e840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 2d | ................"swank::compile- |
| 3e860 | 66 69 6c 65 2d 69 66 2d 6e 65 65 64 65 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | file-if-needed"................. |
| 3e880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 2d 66 | ..............."swank::compile-f |
| 3e8a0 | 69 6c 65 2d 6f 75 74 70 75 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile-output"..................... |
| 3e8c0 | 20 20 20 20 20 20 20 20 20 20 20 22 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d | ..........."swank::compile-file- |
| 3e8e0 | 70 61 74 68 6e 61 6d 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pathname")...................... |
| 3e900 | 20 20 20 20 20 20 20 20 20 22 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 22 29 29 | ........."swank::compile-file")) |
| 3e920 | 0a 20 20 20 20 20 20 28 22 63 6c 3a 6d 2d 76 2d 6c 22 20 28 28 22 63 6c 3a 6d 75 6c 74 69 70 6c | .......("cl:m-v-l".(("cl:multipl |
| 3e940 | 65 2d 76 61 6c 75 65 2d 6c 69 73 74 22 20 22 63 6c 3a 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | e-value-list"."cl:multiple-value |
| 3e960 | 73 2d 6c 69 6d 69 74 22 29 20 22 63 6c 3a 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 22 29 29 0a | s-limit")."cl:multiple-value")). |
| 3e980 | 20 20 20 20 20 20 28 22 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 22 20 28 28 22 63 6f 6d 6d 6f 6e 2d 6c | ......("common-lisp".(("common-l |
| 3e9a0 | 69 73 70 2d 75 73 65 72 3a 22 20 22 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 3a 22 29 20 22 63 6f 6d 6d | isp-user:"."common-lisp:")."comm |
| 3e9c0 | 6f 6e 2d 6c 69 73 70 22 29 29 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 | on-lisp")))...(let.((completions |
| 3e9e0 | 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 70 72 65 66 69 78 29 29 29 0a 20 20 | .(slime-completions.prefix)))... |
| 3ea00 | 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 43 6f 6d 70 6c 65 74 69 6f 6e | ..(slime-test-expect."Completion |
| 3ea20 | 20 73 65 74 22 20 65 78 70 65 63 74 65 64 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 63 6f 6d 70 6c | .set".expected-completions.compl |
| 3ea40 | 65 74 69 6f 6e 73 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 63 6f 6d 70 6c | etions)))..(def-slime-test.compl |
| 3ea60 | 65 74 65 2d 73 79 6d 62 6f 6c 2a 0a 20 20 20 20 28 62 75 66 66 65 72 2d 73 65 78 70 20 77 69 73 | ete-symbol*.....(buffer-sexp.wis |
| 3ea80 | 68 65 64 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 63 68 6f 73 65 6e 2d | hed-completion.&optional.chosen- |
| 3eaa0 | 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 61 6e 63 79 20 75 6e 61 6d 62 69 67 75 6f 75 73 29 0a 20 20 | completion.fancy.unambiguous)... |
| 3eac0 | 20 20 22 45 6e 73 75 72 65 20 74 68 61 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 61 72 65 20 63 | .."Ensure.that.completions.are.c |
| 3eae0 | 6f 72 72 65 63 74 6c 79 20 69 6e 73 65 72 74 65 64 2e 22 0a 20 20 20 20 27 28 28 22 63 6c 3a 61 | orrectly.inserted.".....'(("cl:a |
| 3eb00 | 6e 64 22 20 22 63 6c 3a 61 6e 64 22 29 0a 20 20 20 20 20 20 28 22 28 63 6c 3a 61 6e 64 22 20 22 | nd"."cl:and").......("(cl:and"." |
| 3eb20 | 28 63 6c 3a 61 6e 64 22 29 0a 20 20 20 20 20 20 28 22 28 63 6c 3a 61 6e 64 29 22 20 22 28 63 6c | (cl:and").......("(cl:and)"."(cl |
| 3eb40 | 3a 61 6e 64 29 22 29 0a 20 20 20 20 20 20 28 22 28 63 6c 3a 61 6e 64 29 22 20 22 28 63 6c 3a 61 | :and)").......("(cl:and)"."(cl:a |
| 3eb60 | 6e 64 29 22 20 6e 69 6c 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 3b 3b 20 46 61 6e 63 79 20 63 | nd)".nil.nil.t).......;;.Fancy.c |
| 3eb80 | 6f 6d 70 6c 65 74 69 6f 6e 20 6f 66 20 61 20 66 6f 72 6d 20 74 68 61 74 20 61 63 63 65 70 74 73 | ompletion.of.a.form.that.accepts |
| 3eba0 | 20 61 72 67 75 6d 65 6e 74 73 20 73 68 6f 75 6c 64 0a 20 20 20 20 20 20 3b 3b 20 69 6e 73 65 72 | .arguments.should.......;;.inser |
| 3ebc0 | 74 20 61 20 73 70 61 63 65 20 61 66 74 65 72 20 74 68 65 20 63 6f 6d 70 6c 65 74 65 64 20 66 6f | t.a.space.after.the.completed.fo |
| 3ebe0 | 72 6d 2e 0a 20 20 20 20 20 20 28 22 28 63 6c 3a 61 6e 64 29 22 20 22 28 63 6c 3a 61 6e 64 20 29 | rm........("(cl:and)"."(cl:and.) |
| 3ec00 | 22 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 3b 3b 20 2e 2e 2e 62 75 74 20 6f 6e 6c 79 20 66 6f | ".nil.t).......;;....but.only.fo |
| 3ec20 | 72 20 73 79 6d 62 6f 6c 73 20 69 6e 20 74 68 65 20 66 75 6e 63 61 6c 6c 20 70 6f 73 69 74 69 6f | r.symbols.in.the.funcall.positio |
| 3ec40 | 6e 2e 0a 20 20 20 20 20 20 28 22 63 6c 3a 61 6e 64 22 20 22 63 6c 3a 61 6e 64 22 20 6e 69 6c 20 | n........("cl:and"."cl:and".nil. |
| 3ec60 | 74 29 0a 20 20 20 20 20 20 3b 3b 20 46 61 6e 63 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f 66 20 | t).......;;.Fancy.completion.of. |
| 3ec80 | 61 20 66 6f 72 6d 20 77 69 74 68 6f 75 74 20 61 72 67 75 6d 65 6e 74 73 20 73 68 6f 75 6c 64 20 | a.form.without.arguments.should. |
| 3eca0 | 69 6e 73 65 72 74 20 61 0a 20 20 20 20 20 20 3b 3b 20 63 6c 6f 73 69 6e 67 20 70 61 72 65 6e 2e | insert.a.......;;.closing.paren. |
| 3ecc0 | 0a 20 20 20 20 20 20 28 22 28 63 6c 3a 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 75 6e 2d 74 69 | .......("(cl:get-internal-run-ti |
| 3ece0 | 6d 65 22 20 22 28 63 6c 3a 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 75 6e 2d 74 69 6d 65 29 22 | me"."(cl:get-internal-run-time)" |
| 3ed00 | 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 3b 3b 20 2e 2e 2e 62 75 74 20 6f 6e 6c 79 20 66 6f 72 | .nil.t).......;;....but.only.for |
| 3ed20 | 20 73 79 6d 62 6f 6c 73 20 69 6e 20 74 68 65 20 66 75 6e 63 61 6c 6c 20 70 6f 73 69 74 69 6f 6e | .symbols.in.the.funcall.position |
| 3ed40 | 2e 0a 20 20 20 20 20 20 28 22 63 6c 3a 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 75 6e 2d 74 69 | ........("cl:get-internal-run-ti |
| 3ed60 | 6d 65 22 20 22 63 6c 3a 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 75 6e 2d 74 69 6d 65 22 20 6e | me"."cl:get-internal-run-time".n |
| 3ed80 | 69 6c 20 74 29 0a 20 20 20 20 20 20 28 22 63 6c 3a 6d 2d 76 2d 62 22 20 22 63 6c 3a 6d 75 6c 74 | il.t).......("cl:m-v-b"."cl:mult |
| 3eda0 | 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 22 29 0a 20 20 20 20 20 20 28 22 63 6c 3a 6d 2d 76 | iple-value-bind").......("cl:m-v |
| 3edc0 | 2d 6c 22 20 22 63 6c 3a 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 22 20 22 63 6c | -l"."cl:multiple-value-list"."cl |
| 3ede0 | 3a 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 22 29 0a 20 20 20 20 20 20 3b 3b 20 | :multiple-value-list").......;;. |
| 3ee00 | 46 61 6e 63 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 69 73 20 6f 6e 6c 79 20 64 6f 6e 65 20 66 6f | Fancy.completion.is.only.done.fo |
| 3ee20 | 72 20 75 6e 69 71 75 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 2e 20 54 68 69 73 20 69 73 0a 20 20 | r.unique.completions..This.is... |
| 3ee40 | 20 20 20 20 3b 3b 20 6e 6f 74 20 61 20 68 61 72 64 20 72 65 71 75 69 72 65 6d 65 6e 74 2c 20 61 | ....;;.not.a.hard.requirement,.a |
| 3ee60 | 6e 64 20 6d 69 67 68 74 20 63 68 61 6e 67 65 20 69 6e 20 74 68 65 20 66 75 74 75 72 65 2e 20 54 | nd.might.change.in.the.future..T |
| 3ee80 | 68 69 73 0a 20 20 20 20 20 20 3b 3b 20 74 65 73 74 20 69 73 20 69 6e 63 6c 75 64 65 64 20 6d 65 | his.......;;.test.is.included.me |
| 3eea0 | 72 65 6c 79 20 74 6f 20 64 6f 63 75 6d 65 6e 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 65 68 | rely.to.document.the.current.beh |
| 3eec0 | 61 76 69 6f 72 2e 0a 20 20 20 20 20 20 28 22 28 63 6c 3a 6d 2d 76 2d 6c 29 22 20 22 28 63 6c 3a | avior........("(cl:m-v-l)"."(cl: |
| 3eee0 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 29 22 20 22 63 6c 3a 6d 75 6c 74 69 70 | multiple-value-list)"."cl:multip |
| 3ef00 | 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 22 20 74 29 0a 20 20 20 20 20 20 28 22 63 6c 3a 6d 75 6c | le-value-list".t).......("cl:mul |
| 3ef20 | 74 22 20 22 63 6c 3a 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 22 20 22 63 6c 3a | t"."cl:multiple-value-call"."cl: |
| 3ef40 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 22 29 0a 20 20 20 20 20 20 28 22 63 6c | multiple-value-call").......("cl |
| 3ef60 | 3a 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 22 20 22 63 6c 3a 6d 75 6c 74 69 70 6c 65 2d 76 61 | :multiple-value"."cl:multiple-va |
| 3ef80 | 6c 75 65 2d 73 65 74 71 22 20 22 63 6c 3a 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 | lue-setq"."cl:multiple-value-set |
| 3efa0 | 71 22 29 0a 20 20 20 20 20 20 28 22 63 6c 3a 63 6f 6d 70 69 6c 65 22 20 22 63 6c 3a 63 6f 6d 70 | q").......("cl:compile"."cl:comp |
| 3efc0 | 69 6c 65 22 20 22 63 6c 3a 63 6f 6d 70 69 6c 65 22 29 0a 20 20 20 20 20 20 28 22 63 6c 3a 63 6f | ile"."cl:compile").......("cl:co |
| 3efe0 | 6d 70 69 6c 65 22 20 22 63 6c 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 22 20 22 63 6c 3a 63 6f 6d | mpile"."cl:compile-file"."cl:com |
| 3f000 | 70 69 6c 65 2d 66 69 6c 65 22 29 0a 20 20 20 20 20 20 28 22 63 6c 3a 66 2d 6f 22 20 22 63 6c 3a | pile-file").......("cl:f-o"."cl: |
| 3f020 | 66 6f 72 63 65 2d 6f 75 74 70 75 74 22 20 22 63 6c 3a 66 6f 72 63 65 2d 6f 75 74 70 75 74 22 29 | force-output"."cl:force-output") |
| 3f040 | 0a 20 20 20 20 20 20 3b 3b 20 57 68 65 6e 20 60 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 75 6e 61 6d | .......;;.When.`slime-c-p-c-unam |
| 3f060 | 62 69 67 75 6f 75 73 2d 70 72 65 66 69 78 2d 70 27 20 69 73 20 6e 6f 6e 20 6e 69 6c 2c 0a 20 20 | biguous-prefix-p'.is.non.nil,... |
| 3f080 | 20 20 20 20 3b 3b 20 60 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2a 27 20 | ....;;.`slime-complete-symbol*'. |
| 3f0a0 | 77 69 6c 6c 20 6d 6f 76 65 20 70 6f 69 6e 74 20 62 61 63 6b 20 74 6f 20 74 68 65 0a 20 20 20 20 | will.move.point.back.to.the..... |
| 3f0c0 | 20 20 3b 3b 20 75 6e 61 6d 62 69 67 75 6f 75 73 20 70 6f 72 74 69 6f 6e 20 6f 66 20 74 68 65 20 | ..;;.unambiguous.portion.of.the. |
| 3f0e0 | 70 72 65 66 69 78 3b 20 68 6f 77 65 76 65 72 2c 20 74 68 65 20 66 69 6e 61 6c 20 72 65 73 75 6c | prefix;.however,.the.final.resul |
| 3f100 | 74 0a 20 20 20 20 20 20 3b 3b 20 61 66 74 65 72 20 63 68 6f 6f 73 69 6e 67 20 61 20 63 6f 6d 70 | t.......;;.after.choosing.a.comp |
| 3f120 | 6c 65 74 69 6f 6e 20 63 61 6e 64 69 64 61 74 65 20 73 68 6f 75 6c 64 20 62 65 20 74 68 65 20 73 | letion.candidate.should.be.the.s |
| 3f140 | 61 6d 65 2e 0a 20 20 20 20 20 20 28 22 63 6c 3a 66 2d 6f 22 20 22 63 6c 3a 66 6f 72 63 65 2d 6f | ame........("cl:f-o"."cl:force-o |
| 3f160 | 75 74 70 75 74 22 20 22 63 6c 3a 66 6f 72 63 65 2d 6f 75 74 70 75 74 22 20 6e 69 6c 20 74 29 0a | utput"."cl:force-output".nil.t). |
| 3f180 | 20 20 20 20 20 20 28 22 28 63 6c 3a 66 2d 6f 29 22 20 22 28 63 6c 3a 66 6f 72 63 65 2d 6f 75 74 | ......("(cl:f-o)"."(cl:force-out |
| 3f1a0 | 70 75 74 29 22 20 22 63 6c 3a 66 6f 72 63 65 2d 6f 75 74 70 75 74 22 20 6e 69 6c 20 74 29 0a 20 | put)"."cl:force-output".nil.t).. |
| 3f1c0 | 20 20 20 20 20 3b 3b 20 43 68 61 72 61 63 74 65 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 0a 20 20 | .....;;.Character.completions... |
| 3f1e0 | 20 20 20 20 28 22 23 5c 5c 4e 22 20 22 23 5c 5c 4e 65 77 6c 69 6e 65 22 29 0a 20 20 20 20 20 20 | ....("#\\N"."#\\Newline")....... |
| 3f200 | 28 22 23 5c 5c 52 22 20 22 23 5c 5c 52 65 74 75 72 6e 22 20 22 23 5c 5c 52 65 74 75 72 6e 22 29 | ("#\\R"."#\\Return"."#\\Return") |
| 3f220 | 0a 20 20 20 20 20 20 28 22 23 5c 5c 52 22 20 22 23 5c 5c 52 75 62 6f 75 74 22 20 22 23 5c 5c 52 | .......("#\\R"."#\\Rubout"."#\\R |
| 3f240 | 75 62 6f 75 74 22 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 3b 3b 20 4b 65 79 77 6f 72 64 20 63 | ubout".nil.t).......;;.Keyword.c |
| 3f260 | 6f 6d 70 6c 65 74 69 6f 6e 73 0a 20 20 20 20 20 20 28 22 28 63 6c 3a 66 69 6e 64 20 27 78 20 27 | ompletions.......("(cl:find.'x.' |
| 3f280 | 28 29 20 3a 29 22 20 22 28 63 6c 3a 66 69 6e 64 20 27 78 20 27 28 29 20 3a 53 54 41 52 54 29 22 | ().:)"."(cl:find.'x.'().:START)" |
| 3f2a0 | 20 22 3a 53 54 41 52 54 22 29 0a 20 20 20 20 20 20 28 22 28 63 6c 3a 66 69 6e 64 20 27 78 20 27 | .":START").......("(cl:find.'x.' |
| 3f2c0 | 28 29 20 3a 53 29 22 20 22 28 63 6c 3a 66 69 6e 64 20 27 78 20 27 28 29 20 3a 53 54 41 52 54 29 | ().:S)"."(cl:find.'x.'().:START) |
| 3f2e0 | 22 29 0a 20 20 20 20 20 20 28 22 28 63 6c 3a 66 69 6e 64 20 27 78 20 27 28 29 20 3a 73 29 22 20 | ").......("(cl:find.'x.'().:s)". |
| 3f300 | 22 28 63 6c 3a 66 69 6e 64 20 27 78 20 27 28 29 20 3a 73 74 61 72 74 29 22 29 0a 20 20 20 20 20 | "(cl:find.'x.'().:start)")...... |
| 3f320 | 20 28 22 28 63 6c 3a 66 69 6e 64 20 27 78 20 27 28 29 20 3a 73 29 22 20 22 28 63 6c 3a 66 69 6e | .("(cl:find.'x.'().:s)"."(cl:fin |
| 3f340 | 64 20 27 78 20 27 28 29 20 3a 73 74 61 72 74 29 22 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 | d.'x.'().:start)".nil.t).......( |
| 3f360 | 22 28 63 6c 3a 66 69 6e 64 20 27 78 20 27 28 29 20 3a 74 29 22 20 22 28 63 6c 3a 66 69 6e 64 20 | "(cl:find.'x.'().:t)"."(cl:find. |
| 3f380 | 27 78 20 27 28 29 20 3a 74 65 73 74 29 22 20 22 3a 74 65 73 74 22 29 0a 20 20 20 20 20 20 28 22 | 'x.'().:test)".":test").......(" |
| 3f3a0 | 28 63 6c 3a 66 69 6e 64 20 27 78 20 27 28 29 20 3a 74 29 22 20 22 28 63 6c 3a 66 69 6e 64 20 27 | (cl:find.'x.'().:t)"."(cl:find.' |
| 3f3c0 | 78 20 27 28 29 20 3a 74 65 73 74 2d 6e 6f 74 29 22 20 22 3a 74 65 73 74 2d 6e 6f 74 22 20 6e 69 | x.'().:test-not)".":test-not".ni |
| 3f3e0 | 6c 20 74 29 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a | l.t))...(slime-check-top-level). |
| 3f400 | 20 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 77 69 | ..(save-window-excursion.....(wi |
| 3f420 | 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 | th-temp-buffer.......(lisp-mode) |
| 3f440 | 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 | .......(setq.slime-buffer-packag |
| 3f460 | 65 20 22 53 57 41 4e 4b 22 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 62 75 66 66 65 72 2d | e."SWANK").......(insert.buffer- |
| 3f480 | 73 65 78 70 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 63 68 61 72 2d 62 65 66 6f | sexp).......(when.(eq.(char-befo |
| 3f4a0 | 72 65 29 20 3f 5c 29 29 0a 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 63 68 61 72 29 | re).?\)).........(backward-char) |
| 3f4c0 | 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 75 6e 61 6d 62 | ).......(let.((slime-c-p-c-unamb |
| 3f4e0 | 69 67 75 6f 75 73 2d 70 72 65 66 69 78 2d 70 20 75 6e 61 6d 62 69 67 75 6f 75 73 29 0a 20 20 20 | iguous-prefix-p.unambiguous).... |
| 3f500 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2a | .........(slime-complete-symbol* |
| 3f520 | 2d 66 61 6e 63 79 20 66 61 6e 63 79 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 | -fancy.fancy)).........(if.(not. |
| 3f540 | 66 61 6e 63 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 | fancy).............(slime-comple |
| 3f560 | 74 65 2d 73 79 6d 62 6f 6c 2a 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 60 73 6c 69 6d 65 2d | te-symbol*)...........;;.`slime- |
| 3f580 | 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2a 2d 66 61 6e 63 79 2d 62 69 74 27 20 6d 61 79 20 | complete-symbol*-fancy-bit'.may. |
| 3f5a0 | 63 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 60 65 78 65 63 75 74 65 2d 6b 62 64 2d 6d | call...........;;.`execute-kbd-m |
| 3f5c0 | 61 63 72 6f 27 2c 20 77 68 69 63 68 20 75 6c 74 69 6d 61 74 65 6c 79 20 6f 70 65 72 61 74 65 73 | acro',.which.ultimately.operates |
| 3f5e0 | 20 6f 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 75 66 66 65 72 20 61 73 73 6f | .on.the...........;;.buffer.asso |
| 3f600 | 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 77 69 6e 64 6f 77 2c | ciated.with.the.selected.window, |
| 3f620 | 20 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6e 65 63 65 73 73 61 72 69 6c 79 20 74 68 | .not...........;;.necessarily.th |
| 3f640 | 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 20 43 61 6c 6c 20 60 70 6f 70 2d 74 6f 2d 62 | e.current.buffer..Call.`pop-to-b |
| 3f660 | 75 66 66 65 72 27 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 65 6e 73 75 72 65 20 74 68 | uffer'.to...........;;.ensure.th |
| 3f680 | 61 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 69 73 20 69 6e 20 74 68 65 20 | at.the.current.buffer.is.in.the. |
| 3f6a0 | 73 65 6c 65 63 74 65 64 20 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 65 66 | selected.window...........;;.bef |
| 3f6c0 | 6f 72 65 20 63 61 6c 6c 69 6e 67 20 60 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 | ore.calling.`slime-complete-symb |
| 3f6e0 | 6f 6c 2a 27 2e 20 46 61 6e 63 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | ol*'..Fancy.completion.......... |
| 3f700 | 20 3b 3b 20 6d 69 67 68 74 20 61 6c 73 6f 20 6b 69 63 6b 20 6f 66 66 20 61 20 60 73 6c 69 6d 65 | .;;.might.also.kick.off.a.`slime |
| 3f720 | 2d 65 76 61 6c 2d 61 73 79 6e 63 27 20 69 6e 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 60 73 6c | -eval-async'.in...........;;.`sl |
| 3f740 | 69 6d 65 2d 65 63 68 6f 2d 61 72 67 6c 69 73 74 27 2c 20 73 6f 20 65 6e 73 75 72 65 20 74 68 65 | ime-echo-arglist',.so.ensure.the |
| 3f760 | 20 6f 75 74 70 75 74 20 69 73 20 63 6f 6e 73 75 6d 65 64 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | .output.is.consumed...........;; |
| 3f780 | 20 77 69 74 68 20 60 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 27 20 | .with.`slime-sync-to-top-level'. |
| 3f7a0 | 62 65 66 6f 72 65 20 63 6f 6e 74 69 6e 75 69 6e 67 2e 0a 20 20 20 20 20 20 20 20 20 20 28 70 6f | before.continuing............(po |
| 3f7c0 | 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 | p-to-buffer.(current-buffer))... |
| 3f7e0 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2a 29 | ........(slime-complete-symbol*) |
| 3f800 | 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 | ...........(slime-sync-to-top-le |
| 3f820 | 76 65 6c 20 31 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 63 68 6f 73 65 6e 2d 63 6f 6d 70 | vel.1))).......(when.chosen-comp |
| 3f840 | 6c 65 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 | letion.........(with-selected-wi |
| 3f860 | 6e 64 6f 77 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 77 69 6e 64 6f 77 0a 20 20 | ndow.slime-completions-window... |
| 3f880 | 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a | ........(goto-char.(point-min)). |
| 3f8a0 | 20 20 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 63 68 6f 73 65 6e | ..........(search-forward.chosen |
| 3f8c0 | 2d 63 6f 6d 70 6c 65 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 68 6f 6f 73 65 2d 63 | -completion)...........(choose-c |
| 3f8e0 | 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d | ompletion))).......(slime-check- |
| 3f900 | 63 6f 6d 70 6c 65 74 65 64 2d 66 6f 72 6d 20 62 75 66 66 65 72 2d 73 65 78 70 20 77 69 73 68 65 | completed-form.buffer-sexp.wishe |
| 3f920 | 64 2d 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 | d-completion))))..(def-slime-tes |
| 3f940 | 74 20 63 6f 6d 70 6c 65 74 65 2d 66 6f 72 6d 0a 20 20 20 20 28 62 75 66 66 65 72 2d 73 65 78 70 | t.complete-form.....(buffer-sexp |
| 3f960 | 72 20 77 69 73 68 65 64 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 73 6b | r.wished-completion.&optional.sk |
| 3f980 | 69 70 2d 74 72 61 69 6c 69 6e 67 2d 74 65 73 74 2d 70 29 0a 20 20 20 20 22 22 0a 20 20 20 20 27 | ip-trailing-test-p)....."".....' |
| 3f9a0 | 28 28 22 28 64 65 66 6d 65 74 68 6f 64 20 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 63 68 20 2a | (("(defmethod.arglist-dispatch.* |
| 3f9c0 | 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 22 28 64 65 66 6d 65 74 68 6f 64 20 61 72 67 6c 69 73 | HERE*"........"(defmethod.arglis |
| 3f9e0 | 74 2d 64 69 73 70 61 74 63 68 20 28 6f 70 65 72 61 74 6f 72 20 61 72 67 75 6d 65 6e 74 73 29 20 | t-dispatch.(operator.arguments). |
| 3fa00 | 62 6f 64 79 2e 2e 2e 29 22 29 0a 20 20 20 20 20 20 28 22 28 77 69 74 68 2d 73 74 72 75 63 74 20 | body...)").......("(with-struct. |
| 3fa20 | 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 22 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 63 6f | *HERE*"........"(with-struct.(co |
| 3fa40 | 6e 63 2d 6e 61 6d 65 20 6e 61 6d 65 73 2e 2e 2e 29 20 6f 62 6a 20 62 6f 64 79 2e 2e 2e 29 22 29 | nc-name.names...).obj.body...)") |
| 3fa60 | 0a 20 20 20 20 20 20 28 22 28 77 69 74 68 2d 73 74 72 75 63 74 20 2a 48 45 52 45 2a 22 0a 20 20 | .......("(with-struct.*HERE*"... |
| 3fa80 | 20 20 20 20 20 22 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 63 6f 6e 63 2d 6e 61 6d 65 20 6e 61 | ....."(with-struct.(conc-name.na |
| 3faa0 | 6d 65 73 2e 2e 2e 29 20 6f 62 6a 20 62 6f 64 79 2e 2e 2e 29 22 29 0a 20 20 20 20 20 20 28 22 28 | mes...).obj.body...)").......("( |
| 3fac0 | 77 69 74 68 2d 73 74 72 75 63 74 20 28 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 22 28 77 69 | with-struct.(*HERE*"........"(wi |
| 3fae0 | 74 68 2d 73 74 72 75 63 74 20 28 63 6f 6e 63 2d 6e 61 6d 65 20 6e 61 6d 65 73 2e 2e 2e 29 22 20 | th-struct.(conc-name.names...)". |
| 3fb00 | 74 29 0a 20 20 20 20 20 20 28 22 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 66 6f 6f 2e 20 62 61 | t).......("(with-struct.(foo..ba |
| 3fb20 | 72 20 62 61 7a 20 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 22 28 77 69 74 68 2d 73 74 72 75 | r.baz.*HERE*"........"(with-stru |
| 3fb40 | 63 74 20 28 66 6f 6f 2e 20 62 61 72 20 62 61 7a 20 6e 61 6d 65 73 2e 2e 2e 29 22 20 74 29 29 0a | ct.(foo..bar.baz.names...)".t)). |
| 3fb60 | 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 77 69 74 | ..(slime-check-top-level)...(wit |
| 3fb80 | 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 | h-temp-buffer.....(lisp-mode)... |
| 3fba0 | 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 22 53 57 | ..(setq.slime-buffer-package."SW |
| 3fbc0 | 41 4e 4b 22 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 62 75 66 66 65 72 2d 73 65 78 70 72 29 0a | ANK").....(insert.buffer-sexpr). |
| 3fbe0 | 20 20 20 20 28 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 2a 48 45 52 45 2a 22 29 0a 20 | ....(search-backward."*HERE*").. |
| 3fc00 | 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 | ...(delete-region.(match-beginni |
| 3fc20 | 6e 67 20 30 29 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d | ng.0).(match-end.0)).....(slime- |
| 3fc40 | 63 6f 6d 70 6c 65 74 65 2d 66 6f 72 6d 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d | complete-form).....(slime-check- |
| 3fc60 | 63 6f 6d 70 6c 65 74 65 64 2d 66 6f 72 6d 20 62 75 66 66 65 72 2d 73 65 78 70 72 20 77 69 73 68 | completed-form.buffer-sexpr.wish |
| 3fc80 | 65 64 2d 63 6f 6d 70 6c 65 74 69 6f 6e 29 0a 0a 20 20 20 20 3b 3b 20 4e 6f 77 20 74 68 65 20 73 | ed-completion)......;;.Now.the.s |
| 3fca0 | 61 6d 65 20 62 75 74 20 77 69 74 68 20 74 72 61 69 6c 69 6e 67 20 60 29 27 20 66 6f 72 20 70 61 | ame.but.with.trailing.`)'.for.pa |
| 3fcc0 | 72 65 64 69 74 20 75 73 65 72 73 2e 2e 2e 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 73 6b 69 70 2d | redit.users........(unless.skip- |
| 3fce0 | 74 72 61 69 6c 69 6e 67 2d 74 65 73 74 2d 70 0a 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 | trailing-test-p.......(erase-buf |
| 3fd00 | 66 65 72 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 62 75 66 66 65 72 2d 73 65 78 70 72 29 | fer).......(insert.buffer-sexpr) |
| 3fd20 | 0a 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 2a 48 45 52 45 2a 22 | .......(search-backward."*HERE*" |
| 3fd40 | 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 6d 61 74 63 68 2d 62 65 | ).......(delete-region.(match-be |
| 3fd60 | 67 69 6e 6e 69 6e 67 20 30 29 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 0a 20 20 20 20 20 20 | ginning.0).(match-end.0))....... |
| 3fd80 | 28 69 6e 73 65 72 74 20 22 29 22 29 20 28 62 61 63 6b 77 61 72 64 2d 63 68 61 72 29 0a 20 20 20 | (insert.")").(backward-char).... |
| 3fda0 | 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 28 | ...(slime-complete-form).......( |
| 3fdc0 | 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 63 6f 6d 70 6c 65 74 65 64 2d 66 6f 72 6d 20 28 63 6f 6e 63 | slime-check-completed-form.(conc |
| 3fde0 | 61 74 20 62 75 66 66 65 72 2d 73 65 78 70 72 20 22 29 22 29 20 77 69 73 68 65 64 2d 63 6f 6d 70 | at.buffer-sexpr.")").wished-comp |
| 3fe00 | 6c 65 74 69 6f 6e 29 29 0a 20 20 20 20 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 | letion)).....))..(defun.slime-ch |
| 3fe20 | 65 63 6b 2d 63 6f 6d 70 6c 65 74 65 64 2d 66 6f 72 6d 20 28 62 75 66 66 65 72 2d 73 65 78 70 72 | eck-completed-form.(buffer-sexpr |
| 3fe40 | 20 77 69 73 68 65 64 2d 63 6f 6d 70 6c 65 74 69 6f 6e 29 0a 20 20 28 73 6c 69 6d 65 2d 74 65 73 | .wished-completion)...(slime-tes |
| 3fe60 | 74 2d 65 78 70 65 63 74 20 28 66 6f 72 6d 61 74 20 22 43 6f 6d 70 6c 65 74 65 64 20 66 6f 72 6d | t-expect.(format."Completed.form |
| 3fe80 | 20 66 6f 72 20 60 25 73 27 20 69 73 20 61 73 20 65 78 70 65 63 74 65 64 22 0a 20 20 20 20 20 20 | .for.`%s'.is.as.expected"....... |
| 3fea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 73 | ........................buffer-s |
| 3fec0 | 65 78 70 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 73 68 65 | expr)......................wishe |
| 3fee0 | 64 2d 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-completion.................... |
| 3ff00 | 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(buffer-string)............... |
| 3ff20 | 20 20 20 20 20 20 20 27 65 71 75 61 6c 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 | .......'equal))..(provide.'slime |
| 3ff40 | 2d 63 2d 70 2d 63 2d 74 65 73 74 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | -c-p-c-tests)................... |
| 3ff60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3ff80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3ffa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3ffc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 3ffe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 40000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 6d 61 | slime-2.31/contrib/test/slime-ma |
| 40020 | 63 72 6f 73 74 65 70 2d 74 65 73 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | crostep-tests.el................ |
| 40040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 40060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 40080 | 30 30 32 35 35 37 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 32 30 34 32 36 00 20 30 00 00 00 | 0025571.00000000000.020426..0... |
| 400a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 400c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 400e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 40100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 40120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 40140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 40160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 40180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 401a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 401c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 401e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 40200 | 3b 3b 20 54 65 73 74 73 20 66 6f 72 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2e 20 20 54 | ;;.Tests.for.slime-macrostep...T |
| 40220 | 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65 20 65 78 70 65 63 74 65 64 20 66 61 69 6c 75 72 | he.following.are.expected.failur |
| 40240 | 65 73 3a 0a 0a 3b 3b 20 2d 20 55 6e 64 65 72 20 43 4c 49 53 50 2c 20 68 69 67 68 6c 69 67 68 74 | es:..;;.-.Under.CLISP,.highlight |
| 40260 | 69 6e 67 20 6f 66 20 6d 61 63 72 6f 20 73 75 62 2d 66 6f 72 6d 73 20 66 61 69 6c 73 20 62 65 63 | ing.of.macro.sub-forms.fails.bec |
| 40280 | 61 75 73 65 20 6f 75 72 0a 3b 3b 20 20 20 70 72 65 74 74 79 2d 70 72 69 6e 74 65 72 20 64 69 73 | ause.our.;;...pretty-printer.dis |
| 402a0 | 70 61 74 63 68 20 74 61 62 6c 65 20 68 61 63 6b 69 6e 67 20 63 61 75 73 65 73 20 69 6e 66 69 6e | patch.table.hacking.causes.infin |
| 402c0 | 69 74 65 20 72 65 63 75 72 73 69 6f 6e 3a 0a 3b 3b 20 20 20 73 65 65 20 63 6f 6d 6d 65 6e 74 20 | ite.recursion:.;;...see.comment. |
| 402e0 | 69 6e 20 73 77 61 6e 6b 2d 6d 61 63 72 6f 73 74 65 70 2e 6c 69 73 70 0a 0a 3b 3b 20 2d 20 43 4f | in.swank-macrostep.lisp..;;.-.CO |
| 40300 | 4c 4c 45 43 54 2d 4d 41 43 52 4f 2d 46 4f 52 4d 53 20 64 6f 65 73 20 6e 6f 74 20 63 61 74 63 68 | LLECT-MACRO-FORMS.does.not.catch |
| 40320 | 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 73 20 75 6e 64 65 72 20 43 4c 49 53 50 0a 3b 3b 20 | .compiler.macros.under.CLISP.;;. |
| 40340 | 20 20 61 6e 64 20 41 42 43 4c 0a 0a 3b 3b 20 2d 20 55 6e 64 65 72 20 43 43 4c 20 61 6e 64 20 45 | ..and.ABCL..;;.-.Under.CCL.and.E |
| 40360 | 43 4c 2c 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 20 63 61 6c 6c 73 20 72 65 74 75 72 6e 65 | CL,.compiler.macro.calls.returne |
| 40380 | 64 20 62 79 0a 3b 3b 20 20 20 43 4f 4c 4c 45 43 54 2d 4d 41 43 52 4f 2d 46 4f 52 4d 53 20 61 72 | d.by.;;...COLLECT-MACRO-FORMS.ar |
| 403a0 | 65 20 6e 6f 74 20 45 51 20 74 6f 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 66 6f 72 6d 2c 20 61 | e.not.EQ.to.the.original.form,.a |
| 403c0 | 6e 64 20 73 6f 20 61 72 65 0a 3b 3b 20 20 20 6e 6f 74 20 64 65 74 65 63 74 65 64 20 62 79 20 74 | nd.so.are.;;...not.detected.by.t |
| 403e0 | 68 65 20 74 72 61 63 6b 69 6e 67 20 70 72 65 74 74 79 2d 70 72 69 6e 74 65 72 20 6d 65 63 68 61 | he.tracking.pretty-printer.mecha |
| 40400 | 6e 69 73 6d 2e 20 20 54 68 69 73 0a 3b 3b 20 20 20 63 6f 75 6c 64 20 62 65 20 66 69 78 65 64 20 | nism...This.;;...could.be.fixed. |
| 40420 | 62 79 20 61 64 64 69 6e 67 20 3a 54 45 53 54 20 23 27 45 51 55 41 4c 20 74 6f 20 74 68 65 20 50 | by.adding.:TEST.#'EQUAL.to.the.P |
| 40440 | 4f 53 49 54 49 4f 4e 20 63 61 6c 6c 0a 3b 3b 20 20 20 77 69 74 68 69 6e 20 4d 41 4b 45 2d 54 52 | OSITION.call.;;...within.MAKE-TR |
| 40460 | 41 43 4b 49 4e 47 2d 50 50 52 49 4e 54 2d 44 49 53 50 41 54 43 48 2c 20 61 74 20 74 68 65 20 63 | ACKING-PPRINT-DISPATCH,.at.the.c |
| 40480 | 6f 73 74 20 6f 66 20 69 6e 74 72 6f 64 75 63 69 6e 67 0a 3b 3b 20 20 20 66 61 6c 73 65 20 70 6f | ost.of.introducing.;;...false.po |
| 404a0 | 73 69 74 69 76 65 73 2e 0a 0a 3b 3b 20 45 43 4c 20 68 61 73 20 74 77 6f 20 6f 74 68 65 72 20 69 | sitives...;;.ECL.has.two.other.i |
| 404c0 | 73 73 75 65 73 3a 0a 0a 3b 3b 20 20 20 2d 20 69 74 20 63 75 72 72 65 6e 74 6c 79 20 6c 61 63 6b | ssues:..;;...-.it.currently.lack |
| 404e0 | 73 20 61 20 77 6f 72 6b 69 6e 67 20 53 4c 49 4d 45 20 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | s.a.working.SLIME.defimplementat |
| 40500 | 69 6f 6e 20 66 6f 72 0a 3b 3b 20 20 20 20 20 4d 41 43 52 4f 45 58 50 41 4e 44 2d 41 4c 4c 20 28 | ion.for.;;.....MACROEXPAND-ALL.( |
| 40520 | 47 69 74 68 75 62 20 69 73 73 75 65 20 23 31 35 37 29 2c 20 77 69 74 68 6f 75 74 20 77 68 69 63 | Github.issue.#157),.without.whic |
| 40540 | 68 20 6e 6f 6e 65 20 6f 66 20 74 68 65 0a 3b 3b 20 20 20 20 20 65 78 70 61 6e 64 2d 69 6e 2d 63 | h.none.of.the.;;.....expand-in-c |
| 40560 | 6f 6e 74 65 78 74 20 73 74 75 66 66 20 77 6f 72 6b 73 2e 0a 0a 3b 3b 20 20 20 2d 20 74 68 65 20 | ontext.stuff.works...;;...-.the. |
| 40580 | 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 20 63 6f 6e 73 65 64 20 75 70 20 62 79 20 69 74 73 20 57 41 | environments.consed.up.by.its.WA |
| 405a0 | 4c 4b 45 52 3a 4d 41 43 52 4f 45 58 50 41 4e 44 2d 41 4c 4c 0a 3b 3b 20 20 20 20 20 66 75 6e 63 | LKER:MACROEXPAND-ALL.;;.....func |
| 405c0 | 74 69 6f 6e 20 61 72 65 20 73 6c 69 67 68 74 6c 79 20 62 72 6f 6b 65 6e 2c 20 61 6e 64 20 64 6f | tion.are.slightly.broken,.and.do |
| 405e0 | 20 6e 6f 74 20 77 6f 72 6b 20 77 68 65 6e 20 70 61 73 73 65 64 20 74 6f 0a 3b 3b 20 20 20 20 20 | .not.work.when.passed.to.;;..... |
| 40600 | 4d 41 43 52 4f 45 58 50 41 4e 44 2d 31 20 75 6e 6c 65 73 73 20 66 69 78 65 64 20 75 70 20 76 69 | MACROEXPAND-1.unless.fixed.up.vi |
| 40620 | 61 0a 0a 3b 3b 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 20 27 73 69 3a 3a 6d 61 63 72 6f 20 | a..;;.........(subst.'si::macro. |
| 40640 | 27 77 61 6c 6b 65 72 3a 3a 6d 61 63 72 6f 20 65 6e 76 29 0a 0a 28 72 65 71 75 69 72 65 20 27 73 | 'walker::macro.env)..(require.'s |
| 40660 | 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d | lime-macrostep).(require.'slime- |
| 40680 | 74 65 73 74 73 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 75 6e | tests).(require.'cl-lib)..(defun |
| 406a0 | 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 65 76 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e | .slime-macrostep-eval-definition |
| 406c0 | 73 20 28 64 65 66 69 6e 69 74 69 6f 6e 73 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 | s.(definitions)...(slime-check-t |
| 406e0 | 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e | op-level)...(slime-compile-strin |
| 40700 | 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 30 29 0a 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 | g.definitions.0)...(slime-sync-t |
| 40720 | 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 | o-top-level.5))..(defmacro.slime |
| 40740 | 2d 6d 61 63 72 6f 73 74 65 70 2d 77 69 74 68 2d 74 65 78 74 20 28 62 75 66 66 65 72 2d 74 65 78 | -macrostep-with-text.(buffer-tex |
| 40760 | 74 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 | t.&rest.body)...(declare.(indent |
| 40780 | 20 31 29 29 0a 20 20 60 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 28 | .1))...`(with-temp-buffer......( |
| 407a0 | 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a | lisp-mode)......(save-excursion. |
| 407c0 | 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 2c 62 75 66 66 65 72 2d 74 65 78 74 29 29 0a 20 20 | .......(insert.,buffer-text))... |
| 407e0 | 20 20 20 2c 40 62 6f 64 79 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 | ...,@body))..(defun.slime-macros |
| 40800 | 74 65 70 2d 73 65 61 72 63 68 20 28 66 6f 72 6d 29 0a 20 20 22 53 65 61 72 63 68 20 66 6f 72 77 | tep-search.(form)..."Search.forw |
| 40820 | 61 72 64 20 66 6f 72 20 46 4f 52 4d 2c 20 6c 65 61 76 69 6e 67 20 70 6f 69 6e 74 20 61 74 20 69 | ard.for.FORM,.leaving.point.at.i |
| 40840 | 74 73 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 61 | ts.first.character."...(let.((ca |
| 40860 | 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 29 0a 20 20 20 20 20 20 20 20 28 73 65 61 72 63 | se-fold-search.t).........(searc |
| 40880 | 68 2d 73 70 61 63 65 73 2d 72 65 67 65 78 70 20 22 5c 5c 73 2d 2b 22 29 29 0a 20 20 20 20 28 72 | h-spaces-regexp."\\s-+")).....(r |
| 408a0 | 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 66 | e-search-forward.(regexp-quote.f |
| 408c0 | 6f 72 6d 29 29 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 61 74 63 68 2d 62 65 67 69 6e | orm)))...(goto-char.(match-begin |
| 408e0 | 6e 69 6e 67 20 30 29 29 29 0a 0a 0c 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 73 | ning.0))).....(def-slime-test.(s |
| 40900 | 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 64 65 66 6d 61 63 72 6f 29 0a | lime-macrostep-expand-defmacro). |
| 40920 | 20 20 20 20 28 64 65 66 69 6e 69 74 69 6f 6e 20 62 75 66 66 65 72 2d 74 65 78 74 20 6f 72 69 67 | ....(definition.buffer-text.orig |
| 40940 | 69 6e 61 6c 20 65 78 70 61 6e 73 69 6f 6e 29 0a 20 20 22 54 65 73 74 20 74 68 61 74 20 73 69 6d | inal.expansion)..."Test.that.sim |
| 40960 | 70 6c 65 20 6d 61 63 72 6f 73 74 65 70 20 65 78 70 61 6e 73 69 6f 6e 20 77 6f 72 6b 73 2e 22 0a | ple.macrostep.expansion.works.". |
| 40980 | 20 20 27 28 28 22 28 64 65 66 6d 61 63 72 6f 20 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d | ..'(("(defmacro.macrostep-dummy- |
| 409a0 | 6d 61 63 72 6f 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 60 28 65 78 70 | macro.(&rest.args).........`(exp |
| 409c0 | 61 6e 73 69 6f 6e 20 6f 66 20 2c 40 61 72 67 73 29 29 22 0a 0a 20 20 20 20 20 22 28 70 72 6f 67 | ansion.of.,@args))"......."(prog |
| 409e0 | 6e 0a 20 20 20 20 20 20 20 20 28 66 69 72 73 74 20 62 6f 64 79 20 66 6f 72 6d 29 0a 20 20 20 20 | n.........(first.body.form)..... |
| 40a00 | 20 20 20 20 28 73 65 63 6f 6e 64 20 62 6f 64 79 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 28 | ....(second.body.form).........( |
| 40a20 | 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 6d 61 63 72 6f 20 28 66 69 72 73 74 20 28 61 72 | macrostep-dummy-macro.(first.(ar |
| 40a40 | 67 75 6d 65 6e 74 29 29 20 73 65 63 6f 6e 64 20 28 74 68 69 72 64 20 61 72 67 75 6d 65 6e 74 29 | gument)).second.(third.argument) |
| 40a60 | 29 0a 20 20 20 20 20 20 20 20 28 72 65 6d 61 69 6e 69 6e 67 20 62 6f 64 79 20 66 6f 72 6d 73 29 | ).........(remaining.body.forms) |
| 40a80 | 29 22 0a 0a 20 20 20 20 20 22 28 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 6d 61 63 72 6f | )"......."(macrostep-dummy-macro |
| 40aa0 | 20 28 66 69 72 73 74 20 28 61 72 67 75 6d 65 6e 74 29 29 20 73 65 63 6f 6e 64 20 28 74 68 69 72 | .(first.(argument)).second.(thir |
| 40ac0 | 64 20 61 72 67 75 6d 65 6e 74 29 29 22 0a 0a 20 20 20 20 20 22 28 65 78 70 61 6e 73 69 6f 6e 20 | d.argument))"......."(expansion. |
| 40ae0 | 6f 66 20 28 66 69 72 73 74 20 28 61 72 67 75 6d 65 6e 74 29 29 20 73 65 63 6f 6e 64 20 28 74 68 | of.(first.(argument)).second.(th |
| 40b00 | 69 72 64 20 61 72 67 75 6d 65 6e 74 29 29 22 29 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f | ird.argument))"))...(slime-macro |
| 40b20 | 73 74 65 70 2d 65 76 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 64 65 66 69 6e 69 74 69 6f 6e | step-eval-definitions.definition |
| 40b40 | 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 77 69 74 68 2d 74 65 78 74 20 62 | )...(slime-macrostep-with-text.b |
| 40b60 | 75 66 66 65 72 2d 74 65 78 74 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d | uffer-text.....(slime-macrostep- |
| 40b80 | 73 65 61 72 63 68 20 6f 72 69 67 69 6e 61 6c 29 0a 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d | search.original).....(macrostep- |
| 40ba0 | 65 78 70 61 6e 64 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 | expand).....(slime-test-expect." |
| 40bc0 | 4d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 69 73 20 63 6f 72 72 65 63 74 22 0a 20 20 20 20 20 | Macroexpansion.is.correct"...... |
| 40be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 61 6e 73 69 6f 6e 0a 20 20 20 20 | ..................expansion..... |
| 40c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 63 61 73 65 20 28 73 6c | ...................(downcase.(sl |
| 40c20 | 69 6d 65 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ime-sexp-at-point))............. |
| 40c40 | 20 20 20 20 20 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 74 65 73 74 2d 6d 61 63 72 6f 65 78 70 | ...........#'slime-test-macroexp |
| 40c60 | 61 6e 73 69 6f 6e 3d 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 73 6c 69 | ansion=)))..(def-slime-test.(sli |
| 40c80 | 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 66 6f 6e 74 69 66 79 2d 6d 61 63 72 6f 73 0a 20 20 20 20 | me-macrostep-fontify-macros..... |
| 40ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 61 69 6c 73 2d 66 6f 72 20 22 63 6c 69 73 70 22 | .............(:fails-for."clisp" |
| 40cc0 | 20 22 45 43 4c 22 29 29 0a 20 20 20 20 28 64 65 66 69 6e 69 74 69 6f 6e 20 62 75 66 66 65 72 2d | ."ECL")).....(definition.buffer- |
| 40ce0 | 74 65 78 74 20 6f 72 69 67 69 6e 61 6c 20 73 75 62 66 6f 72 6d 29 0a 20 20 22 54 65 73 74 20 74 | text.original.subform)..."Test.t |
| 40d00 | 68 61 74 20 6d 61 63 72 6f 20 66 6f 72 6d 73 20 69 6e 20 65 78 70 61 6e 73 69 6f 6e 73 20 61 72 | hat.macro.forms.in.expansions.ar |
| 40d20 | 65 20 66 6f 6e 74 2d 6c 6f 63 6b 65 64 22 0a 20 20 27 28 28 22 28 64 65 66 6d 61 63 72 6f 20 6d | e.font-locked"...'(("(defmacro.m |
| 40d40 | 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 31 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 | acrostep-dummy-1.(&rest.args)... |
| 40d60 | 20 20 20 20 20 20 60 28 65 78 70 61 6e 73 69 6f 6e 20 69 6e 63 6c 75 64 69 6e 67 20 28 6d 61 63 | ......`(expansion.including.(mac |
| 40d80 | 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 32 20 2c 40 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 28 | rostep-dummy-2.,@args))).......( |
| 40da0 | 64 65 66 6d 61 63 72 6f 20 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 32 20 28 26 72 65 73 | defmacro.macrostep-dummy-2.(&res |
| 40dc0 | 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 60 28 66 69 6e 61 6c 20 65 78 70 61 6e 73 69 6f | t.args).........`(final.expansio |
| 40de0 | 6e 20 6f 66 20 2c 40 61 72 67 73 29 29 22 0a 0a 20 20 20 20 20 22 28 70 72 6f 67 6e 0a 20 20 20 | n.of.,@args))"......."(progn.... |
| 40e00 | 20 20 20 20 20 28 66 69 72 73 74 20 62 6f 64 79 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 28 | .....(first.body.form).........( |
| 40e20 | 73 65 63 6f 6e 64 20 62 6f 64 79 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f | second.body.form).........(macro |
| 40e40 | 73 74 65 70 2d 64 75 6d 6d 79 2d 31 20 28 66 69 72 73 74 20 28 61 72 67 75 6d 65 6e 74 29 29 20 | step-dummy-1.(first.(argument)). |
| 40e60 | 73 65 63 6f 6e 64 20 28 74 68 69 72 64 20 61 72 67 75 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 | second.(third.argument))........ |
| 40e80 | 20 28 72 65 6d 61 69 6e 69 6e 67 20 62 6f 64 79 20 66 6f 72 6d 73 29 29 22 0a 0a 20 20 20 20 20 | .(remaining.body.forms))"....... |
| 40ea0 | 22 28 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 31 20 28 66 69 72 73 74 20 28 61 72 67 75 | "(macrostep-dummy-1.(first.(argu |
| 40ec0 | 6d 65 6e 74 29 29 20 73 65 63 6f 6e 64 20 28 74 68 69 72 64 20 61 72 67 75 6d 65 6e 74 29 29 22 | ment)).second.(third.argument))" |
| 40ee0 | 0a 0a 20 20 20 20 20 22 28 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 32 20 28 66 69 72 73 | ......."(macrostep-dummy-2.(firs |
| 40f00 | 74 20 28 61 72 67 75 6d 65 6e 74 29 29 20 73 65 63 6f 6e 64 20 28 74 68 69 72 64 20 61 72 67 75 | t.(argument)).second.(third.argu |
| 40f20 | 6d 65 6e 74 29 29 22 29 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 65 76 61 | ment))"))...(slime-macrostep-eva |
| 40f40 | 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 64 65 66 69 6e 69 74 69 6f 6e 29 0a 20 20 28 73 6c 69 | l-definitions.definition)...(sli |
| 40f60 | 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 77 69 74 68 2d 74 65 78 74 20 62 75 66 66 65 72 2d 74 65 | me-macrostep-with-text.buffer-te |
| 40f80 | 78 74 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 73 65 61 72 63 68 20 6f | xt.....(slime-macrostep-search.o |
| 40fa0 | 72 69 67 69 6e 61 6c 29 0a 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 29 0a | riginal).....(macrostep-expand). |
| 40fc0 | 20 20 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 73 65 61 72 63 68 20 73 75 62 66 | ....(slime-macrostep-search.subf |
| 40fe0 | 6f 72 6d 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 29 20 20 20 20 20 20 20 20 20 | orm).....(forward-char)......... |
| 41000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 6f 76 65 20 6f 76 65 72 20 6f 70 65 6e 20 70 61 | .............;.move.over.open.pa |
| 41020 | 72 65 6e 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 48 65 61 64 20 6f 66 20 6d 61 | ren.....(slime-check."Head.of.ma |
| 41040 | 63 72 6f 20 66 6f 72 6d 20 69 6e 20 65 78 70 61 6e 73 69 6f 6e 20 69 73 20 66 6f 6e 74 69 66 69 | cro.form.in.expansion.is.fontifi |
| 41060 | 65 64 20 63 6f 72 72 65 63 74 6c 79 22 0a 20 20 20 20 20 20 20 20 28 65 71 20 28 67 65 74 2d 63 | ed.correctly".........(eq.(get-c |
| 41080 | 68 61 72 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d | har-property.(point).'font-lock- |
| 410a0 | 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 27 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d | face)..........'macrostep-macro- |
| 410c0 | 66 61 63 65 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 73 6c 69 6d 65 | face))))..(def-slime-test.(slime |
| 410e0 | 2d 6d 61 63 72 6f 73 74 65 70 2d 66 6f 6e 74 69 66 79 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 | -macrostep-fontify-compiler-macr |
| 41100 | 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 61 69 6c 73 2d 66 6f 72 20 | os..................(:fails-for. |
| 41120 | 22 61 72 6d 65 64 62 65 61 72 22 20 22 63 6c 69 73 70 22 20 22 63 63 6c 22 20 22 45 43 4c 22 29 | "armedbear"."clisp"."ccl"."ECL") |
| 41140 | 29 0a 20 20 20 20 28 64 65 66 69 6e 69 74 69 6f 6e 20 62 75 66 66 65 72 2d 74 65 78 74 20 6f 72 | ).....(definition.buffer-text.or |
| 41160 | 69 67 69 6e 61 6c 20 73 75 62 66 6f 72 6d 29 0a 20 20 22 54 65 73 74 20 74 68 61 74 20 63 6f 6d | iginal.subform)..."Test.that.com |
| 41180 | 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 6d 73 20 69 6e 20 65 78 70 61 6e 73 69 6f 6e 73 20 | piler-macro.forms.in.expansions. |
| 411a0 | 61 72 65 20 66 6f 6e 74 2d 6c 6f 63 6b 65 64 22 0a 20 20 27 28 28 22 28 64 65 66 6d 61 63 72 6f | are.font-locked"...'(("(defmacro |
| 411c0 | 20 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 33 20 28 26 72 65 73 74 20 61 72 67 73 29 0a | .macrostep-dummy-3.(&rest.args). |
| 411e0 | 20 20 20 20 20 20 20 20 60 28 65 78 70 61 6e 73 69 6f 6e 20 69 6e 63 6c 75 64 69 6e 67 20 28 6d | ........`(expansion.including.(m |
| 41200 | 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 34 20 2c 40 61 72 67 73 29 29 29 0a 20 20 20 20 20 | acrostep-dummy-4.,@args)))...... |
| 41220 | 20 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 34 20 28 26 72 65 73 74 | .(defun.macrostep-dummy-4.(&rest |
| 41240 | 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 61 72 67 73 29 0a 20 20 20 20 20 20 28 64 65 66 69 | .args).........args).......(defi |
| 41260 | 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d | ne-compiler-macro.macrostep-dumm |
| 41280 | 79 2d 34 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 60 28 63 6f 6d 70 69 | y-4.(&rest.args).........`(compi |
| 412a0 | 6c 65 2d 74 69 6d 65 20 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 2c 40 61 72 67 73 29 29 22 0a 0a | le-time.expansion.of.,@args))".. |
| 412c0 | 20 20 20 20 20 22 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 28 66 69 72 73 74 20 62 6f 64 79 | ....."(progn.........(first.body |
| 412e0 | 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 28 73 65 63 6f 6e 64 20 62 6f 64 79 20 66 6f 72 6d | .form).........(second.body.form |
| 41300 | 29 0a 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 33 20 66 69 72 | ).........(macrostep-dummy-3.fir |
| 41320 | 73 74 20 73 65 63 6f 6e 64 20 74 68 69 72 64 29 0a 20 20 20 20 20 20 20 20 28 72 65 6d 61 69 6e | st.second.third).........(remain |
| 41340 | 69 6e 67 20 62 6f 64 79 20 66 6f 72 6d 73 29 29 22 0a 0a 20 20 20 20 20 22 28 6d 61 63 72 6f 73 | ing.body.forms))"......."(macros |
| 41360 | 74 65 70 2d 64 75 6d 6d 79 2d 33 20 66 69 72 73 74 20 73 65 63 6f 6e 64 20 74 68 69 72 64 29 22 | tep-dummy-3.first.second.third)" |
| 41380 | 0a 0a 20 20 20 20 20 22 28 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 34 20 66 69 72 73 74 | ......."(macrostep-dummy-4.first |
| 413a0 | 20 73 65 63 6f 6e 64 20 74 68 69 72 64 29 22 29 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f | .second.third)"))...(slime-macro |
| 413c0 | 73 74 65 70 2d 65 76 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 64 65 66 69 6e 69 74 69 6f 6e | step-eval-definitions.definition |
| 413e0 | 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 77 69 74 68 2d 74 65 78 74 20 62 | )...(slime-macrostep-with-text.b |
| 41400 | 75 66 66 65 72 2d 74 65 78 74 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d | uffer-text.....(slime-macrostep- |
| 41420 | 73 65 61 72 63 68 20 6f 72 69 67 69 6e 61 6c 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6d 61 63 72 | search.original).....(let.((macr |
| 41440 | 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 20 74 29 29 | ostep-expand-compiler-macros.t)) |
| 41460 | 0a 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 29 29 0a 20 20 20 20 28 | .......(macrostep-expand)).....( |
| 41480 | 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 73 65 61 72 63 68 20 73 75 62 66 6f 72 6d 29 0a | slime-macrostep-search.subform). |
| 414a0 | 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(forward-char).............. |
| 414c0 | 20 20 20 20 20 20 20 20 3b 20 6d 6f 76 65 20 6f 76 65 72 20 6f 70 65 6e 20 70 61 72 65 6e 0a 20 | ........;.move.over.open.paren.. |
| 414e0 | 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 48 65 61 64 20 6f 66 20 63 6f 6d 70 69 6c 65 | ...(slime-check."Head.of.compile |
| 41500 | 72 2d 6d 61 63 72 6f 20 69 6e 20 65 78 70 61 6e 73 69 6f 6e 20 69 73 20 66 6f 6e 74 69 66 69 65 | r-macro.in.expansion.is.fontifie |
| 41520 | 64 20 63 6f 72 72 65 63 74 6c 79 22 0a 20 20 20 20 20 20 20 20 28 65 71 20 28 67 65 74 2d 63 68 | d.correctly".........(eq.(get-ch |
| 41540 | 61 72 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 | ar-property.(point).'font-lock-f |
| 41560 | 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 27 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6d 70 69 6c 65 | ace)..........'macrostep-compile |
| 41580 | 72 2d 6d 61 63 72 6f 2d 66 61 63 65 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 | r-macro-face))))..(def-slime-tes |
| 415a0 | 74 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 6d 61 63 72 6f 6c | t.(slime-macrostep-expand-macrol |
| 415c0 | 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 61 69 6c 73 2d 66 6f 72 20 | et..................(:fails-for. |
| 415e0 | 22 45 43 4c 22 29 29 0a 20 20 20 20 28 64 65 66 69 6e 69 74 69 6f 6e 73 20 62 75 66 66 65 72 2d | "ECL")).....(definitions.buffer- |
| 41600 | 74 65 78 74 20 65 78 70 61 6e 73 69 6f 6e 73 29 0a 20 20 20 20 22 54 65 73 74 20 74 68 61 74 20 | text.expansions)....."Test.that. |
| 41620 | 63 61 6c 6c 73 20 74 6f 20 6d 61 63 72 6f 6c 65 74 2d 64 65 66 69 6e 65 64 20 6d 61 63 72 6f 73 | calls.to.macrolet-defined.macros |
| 41640 | 20 61 72 65 20 65 78 70 61 6e 64 65 64 2e 22 0a 20 20 20 20 27 28 28 6e 69 6c 0a 20 20 20 20 20 | .are.expanded.".....'((nil...... |
| 41660 | 20 20 22 28 6d 61 63 72 6f 6c 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 74 65 73 74 20 | .."(macrolet.............((test. |
| 41680 | 28 26 72 65 73 74 20 61 72 67 73 29 20 60 28 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 2c 40 61 72 | (&rest.args).`(expansion.of.,@ar |
| 416a0 | 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 69 72 73 74 20 62 6f 64 79 20 66 6f 72 6d | gs)))...........(first.body.form |
| 416c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 63 6f 6e 64 20 62 6f 64 79 20 66 6f 72 6d 29 0a 20 | )...........(second.body.form).. |
| 416e0 | 20 20 20 20 20 20 20 20 20 28 74 65 73 74 20 28 73 74 72 61 77 62 65 72 72 79 20 70 69 65 29 20 | .........(test.(strawberry.pie). |
| 41700 | 61 6e 64 20 28 61 70 70 6c 65 20 70 69 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 61 | and.(apple.pie))...........(fina |
| 41720 | 6c 20 62 6f 64 79 20 66 6f 72 6d 29 29 22 0a 20 20 20 20 20 20 20 28 28 22 28 74 65 73 74 20 28 | l.body.form))"........(("(test.( |
| 41740 | 73 74 72 61 77 62 65 72 72 79 20 70 69 65 29 20 61 6e 64 20 28 61 70 70 6c 65 20 70 69 65 29 29 | strawberry.pie).and.(apple.pie)) |
| 41760 | 22 0a 20 20 20 20 20 20 20 20 20 22 28 45 58 50 41 4e 53 49 4f 4e 20 4f 46 20 28 53 54 52 41 57 | ".........."(EXPANSION.OF.(STRAW |
| 41780 | 42 45 52 52 59 20 50 49 45 29 20 41 4e 44 20 28 41 50 50 4c 45 20 50 49 45 29 29 22 29 29 29 0a | BERRY.PIE).AND.(APPLE.PIE))"))). |
| 417a0 | 0a 20 20 20 20 20 20 3b 3b 20 46 72 6f 6d 20 73 77 61 6e 6b 2e 6c 69 73 70 3a 0a 20 20 20 20 20 | .......;;.From.swank.lisp:...... |
| 417c0 | 20 28 6e 69 6c 0a 20 20 20 20 20 20 20 22 28 6d 61 63 72 6f 6c 65 74 20 28 28 64 65 66 69 6e 65 | .(nil........"(macrolet.((define |
| 417e0 | 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 28 78 72 65 66 2d 74 79 70 65 20 68 61 6e 64 6c 65 72 29 | -xref-action.(xref-type.handler) |
| 41800 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 64 65 66 6d 65 74 68 6f | ......................`(defmetho |
| 41820 | 64 20 78 72 65 66 2d 64 6f 69 74 20 28 28 74 79 70 65 20 28 65 71 6c 20 2c 78 72 65 66 2d 74 79 | d.xref-doit.((type.(eql.,xref-ty |
| 41840 | 70 65 29 29 20 74 68 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pe)).thing)..................... |
| 41860 | 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 61 62 6c 65 20 74 79 70 65 29 29 0a 20 | ....(declare.(ignorable.type)).. |
| 41880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 | .......................(funcall. |
| 418a0 | 2c 68 61 6e 64 6c 65 72 20 74 68 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 | ,handler.thing))))...........(de |
| 418c0 | 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 63 61 6c 6c 73 20 20 20 20 20 20 20 20 23 | fine-xref-action.:calls........# |
| 418e0 | 27 77 68 6f 2d 63 61 6c 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 78 72 | 'who-calls)...........(define-xr |
| 41900 | 65 66 2d 61 63 74 69 6f 6e 20 3a 63 61 6c 6c 73 2d 77 68 6f 20 20 20 20 23 27 63 61 6c 6c 73 2d | ef-action.:calls-who....#'calls- |
| 41920 | 77 68 6f 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 | who)...........(define-xref-acti |
| 41940 | 6f 6e 20 3a 72 65 66 65 72 65 6e 63 65 73 20 20 20 23 27 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 | on.:references...#'who-reference |
| 41960 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e | s)...........(define-xref-action |
| 41980 | 20 3a 62 69 6e 64 73 20 20 20 20 20 20 20 20 23 27 77 68 6f 2d 62 69 6e 64 73 29 0a 20 20 20 20 | .:binds........#'who-binds)..... |
| 419a0 | 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 6d 61 63 72 6f | ......(define-xref-action.:macro |
| 419c0 | 65 78 70 61 6e 64 73 20 23 27 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 29 0a 20 20 20 20 | expands.#'who-macroexpands)..... |
| 419e0 | 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 73 70 65 63 69 | ......(define-xref-action.:speci |
| 41a00 | 61 6c 69 7a 65 73 20 20 23 27 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 29 0a 20 20 20 20 20 | alizes..#'who-specializes)...... |
| 41a20 | 20 20 20 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 63 61 6c 6c 65 72 | .....(define-xref-action.:caller |
| 41a40 | 73 20 20 20 20 20 20 23 27 6c 69 73 74 2d 63 61 6c 6c 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 | s......#'list-callers).......... |
| 41a60 | 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 63 61 6c 6c 65 65 73 20 20 20 | .(define-xref-action.:callees... |
| 41a80 | 20 20 20 23 27 6c 69 73 74 2d 63 61 6c 6c 65 65 73 29 29 22 0a 20 20 20 20 20 20 20 28 28 22 28 | ...#'list-callees))"........(("( |
| 41aa0 | 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 63 61 6c 6c 73 20 20 20 20 20 20 20 | define-xref-action.:calls....... |
| 41ac0 | 20 23 27 77 68 6f 2d 63 61 6c 6c 73 29 22 0a 20 20 20 20 20 20 20 20 20 22 28 44 45 46 4d 45 54 | .#'who-calls)".........."(DEFMET |
| 41ae0 | 48 4f 44 20 58 52 45 46 2d 44 4f 49 54 20 28 28 54 59 50 45 20 28 45 51 4c 20 3a 43 41 4c 4c 53 | HOD.XREF-DOIT.((TYPE.(EQL.:CALLS |
| 41b00 | 29 29 20 54 48 49 4e 47 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 44 45 43 4c 41 52 45 20 28 | )).THING).............(DECLARE.( |
| 41b20 | 49 47 4e 4f 52 41 42 4c 45 20 54 59 50 45 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 46 55 | IGNORABLE.TYPE)).............(FU |
| 41b40 | 4e 43 41 4c 4c 20 23 27 57 48 4f 2d 43 41 4c 4c 53 20 54 48 49 4e 47 29 29 22 29 0a 20 20 20 20 | NCALL.#'WHO-CALLS.THING))")..... |
| 41b60 | 20 20 20 20 28 22 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 6d 61 63 72 6f | ....("(define-xref-action.:macro |
| 41b80 | 65 78 70 61 6e 64 73 20 23 27 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 29 22 0a 20 20 20 | expands.#'who-macroexpands)".... |
| 41ba0 | 20 20 20 20 20 20 22 28 44 45 46 4d 45 54 48 4f 44 20 58 52 45 46 2d 44 4f 49 54 20 28 28 54 59 | ......"(DEFMETHOD.XREF-DOIT.((TY |
| 41bc0 | 50 45 20 28 45 51 4c 20 3a 4d 41 43 52 4f 45 58 50 41 4e 44 53 29 29 20 54 48 49 4e 47 29 0a 20 | PE.(EQL.:MACROEXPANDS)).THING).. |
| 41be0 | 20 20 20 20 20 20 20 20 20 20 20 28 44 45 43 4c 41 52 45 20 28 49 47 4e 4f 52 41 42 4c 45 20 54 | ...........(DECLARE.(IGNORABLE.T |
| 41c00 | 59 50 45 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 46 55 4e 43 41 4c 4c 20 23 27 57 48 4f | YPE)).............(FUNCALL.#'WHO |
| 41c20 | 2d 4d 41 43 52 4f 45 58 50 41 4e 44 53 20 54 48 49 4e 47 29 29 22 29 0a 20 20 20 20 20 20 20 20 | -MACROEXPANDS.THING))")......... |
| 41c40 | 28 22 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 63 61 6c 6c 65 65 73 20 20 | ("(define-xref-action.:callees.. |
| 41c60 | 20 20 20 20 23 27 6c 69 73 74 2d 63 61 6c 6c 65 65 73 29 22 0a 20 20 20 20 20 20 20 20 20 22 28 | ....#'list-callees)".........."( |
| 41c80 | 44 45 46 4d 45 54 48 4f 44 20 58 52 45 46 2d 44 4f 49 54 20 28 28 54 59 50 45 20 28 45 51 4c 20 | DEFMETHOD.XREF-DOIT.((TYPE.(EQL. |
| 41ca0 | 3a 43 41 4c 4c 45 45 53 29 29 20 54 48 49 4e 47 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 44 | :CALLEES)).THING).............(D |
| 41cc0 | 45 43 4c 41 52 45 20 28 49 47 4e 4f 52 41 42 4c 45 20 54 59 50 45 29 29 0a 20 20 20 20 20 20 20 | ECLARE.(IGNORABLE.TYPE))........ |
| 41ce0 | 20 20 20 20 20 28 46 55 4e 43 41 4c 4c 20 23 27 4c 49 53 54 2d 43 41 4c 4c 45 45 53 20 54 48 49 | .....(FUNCALL.#'LIST-CALLEES.THI |
| 41d00 | 4e 47 29 29 22 29 29 29 0a 0a 20 20 20 20 20 20 3b 3b 20 54 65 73 74 20 65 78 70 61 6e 73 69 6f | NG))")))........;;.Test.expansio |
| 41d20 | 6e 20 6f 66 20 73 68 61 64 6f 77 65 64 20 64 65 66 69 6e 69 74 69 6f 6e 73 0a 20 20 20 20 20 20 | n.of.shadowed.definitions....... |
| 41d40 | 28 6e 69 6c 0a 20 20 20 20 20 20 20 22 28 6d 61 63 72 6f 6c 65 74 0a 20 20 20 20 20 20 20 20 20 | (nil........"(macrolet.......... |
| 41d60 | 20 20 20 28 28 74 65 73 74 2d 6d 61 63 72 6f 20 28 26 72 65 73 74 20 66 6f 72 6d 73 29 20 28 63 | ...((test-macro.(&rest.forms).(c |
| 41d80 | 6f 6e 73 20 27 6f 75 74 65 72 2d 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 6d 73 29 29 29 0a 20 | ons.'outer-definition.forms))).. |
| 41da0 | 20 20 20 20 20 20 20 20 20 28 74 65 73 74 2d 6d 61 63 72 6f 20 66 69 72 73 74 20 28 63 61 6c 6c | .........(test-macro.first.(call |
| 41dc0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 6c 65 74 0a 20 20 20 20 20 20 20 20 20 | ))...........(macrolet.......... |
| 41de0 | 20 20 20 20 20 28 28 74 65 73 74 2d 6d 61 63 72 6f 20 28 26 72 65 73 74 20 66 6f 72 6d 73 29 20 | .....((test-macro.(&rest.forms). |
| 41e00 | 28 63 6f 6e 73 20 27 69 6e 6e 65 72 2d 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 6d 73 29 29 29 | (cons.'inner-definition.forms))) |
| 41e20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 65 73 74 2d 6d 61 63 72 6f 20 28 73 65 63 6f 6e 64 | .............(test-macro.(second |
| 41e40 | 20 28 63 61 6c 6c 29 29 29 29 29 22 0a 20 20 20 20 20 20 20 28 28 22 28 74 65 73 74 2d 6d 61 63 | .(call)))))"........(("(test-mac |
| 41e60 | 72 6f 20 66 69 72 73 74 20 28 63 61 6c 6c 29 29 22 0a 20 20 20 20 20 20 20 20 20 22 28 4f 55 54 | ro.first.(call))".........."(OUT |
| 41e80 | 45 52 2d 44 45 46 49 4e 49 54 49 4f 4e 20 46 49 52 53 54 20 28 43 41 4c 4c 29 29 22 29 0a 20 20 | ER-DEFINITION.FIRST.(CALL))")... |
| 41ea0 | 20 20 20 20 20 20 28 22 28 74 65 73 74 2d 6d 61 63 72 6f 20 28 73 65 63 6f 6e 64 20 28 63 61 6c | ......("(test-macro.(second.(cal |
| 41ec0 | 6c 29 29 29 22 0a 20 20 20 20 20 20 20 20 20 22 28 49 4e 4e 45 52 2d 44 45 46 49 4e 49 54 49 4f | l)))".........."(INNER-DEFINITIO |
| 41ee0 | 4e 20 28 53 45 43 4f 4e 44 20 28 43 41 4c 4c 29 29 29 22 29 29 29 0a 0a 20 20 20 20 20 20 3b 3b | N.(SECOND.(CALL)))")))........;; |
| 41f00 | 20 45 78 70 61 6e 73 69 6f 6e 20 6f 66 20 6d 61 63 72 6f 2d 64 65 66 69 6e 65 64 20 6c 6f 63 61 | .Expansion.of.macro-defined.loca |
| 41f20 | 6c 20 6d 61 63 72 6f 73 0a 20 20 20 20 20 20 28 22 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d | l.macros.......("(defmacro.with- |
| 41f40 | 6c 6f 63 61 6c 2d 64 75 6d 6d 79 2d 6d 61 63 72 6f 20 28 26 72 65 73 74 20 62 6f 64 79 29 0a 20 | local-dummy-macro.(&rest.body).. |
| 41f60 | 20 20 20 20 20 20 20 20 20 60 28 6d 61 63 72 6f 6c 65 74 20 28 28 64 75 6d 6d 79 20 28 26 72 65 | .........`(macrolet.((dummy.(&re |
| 41f80 | 73 74 20 61 72 67 73 29 20 60 28 65 78 70 61 6e 73 69 6f 6e 20 28 6f 66 29 20 2c 40 61 72 67 73 | st.args).`(expansion.(of).,@args |
| 41fa0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 29 22 0a 20 20 20 20 20 | )))..............,@body))"...... |
| 41fc0 | 20 20 22 28 77 69 74 68 2d 6c 6f 63 61 6c 2d 64 75 6d 6d 79 2d 6d 61 63 72 6f 0a 20 20 20 20 20 | .."(with-local-dummy-macro...... |
| 41fe0 | 20 20 20 20 20 20 28 64 75 6d 6d 79 20 66 6f 72 6d 20 28 6f 6e 65 29 29 0a 20 20 20 20 20 20 20 | ......(dummy.form.(one))........ |
| 42000 | 20 20 20 20 28 64 75 6d 6d 79 20 28 66 6f 72 6d 20 74 77 6f 29 29 29 22 0a 20 20 20 20 20 20 20 | ....(dummy.(form.two)))"........ |
| 42020 | 28 28 22 28 64 75 6d 6d 79 20 66 6f 72 6d 20 28 6f 6e 65 29 29 22 0a 20 20 20 20 20 20 20 20 20 | (("(dummy.form.(one))".......... |
| 42040 | 22 28 45 58 50 41 4e 53 49 4f 4e 20 28 4f 46 29 20 46 4f 52 4d 20 28 4f 4e 45 29 29 22 29 0a 20 | "(EXPANSION.(OF).FORM.(ONE))").. |
| 42060 | 20 20 20 20 20 20 20 28 22 28 64 75 6d 6d 79 20 28 66 6f 72 6d 20 74 77 6f 29 29 22 0a 20 20 20 | .......("(dummy.(form.two))".... |
| 42080 | 20 20 20 20 20 20 22 28 45 58 50 41 4e 53 49 4f 4e 20 28 4f 46 29 20 28 46 4f 52 4d 20 54 57 4f | ......"(EXPANSION.(OF).(FORM.TWO |
| 420a0 | 29 29 22 29 29 29 29 0a 0a 20 20 28 77 68 65 6e 20 64 65 66 69 6e 69 74 69 6f 6e 73 0a 20 20 20 | ))"))))....(when.definitions.... |
| 420c0 | 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 65 76 61 6c 2d 64 65 66 69 6e 69 74 69 6f | .(slime-macrostep-eval-definitio |
| 420e0 | 6e 73 20 64 65 66 69 6e 69 74 69 6f 6e 73 29 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 | ns.definitions))...(slime-macros |
| 42100 | 74 65 70 2d 77 69 74 68 2d 74 65 78 74 20 62 75 66 66 65 72 2d 74 65 78 74 0a 20 20 20 20 3b 3b | tep-with-text.buffer-text.....;; |
| 42120 | 20 73 6c 69 6d 65 2d 74 65 73 74 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 3d 20 64 6f 65 73 | .slime-test-macroexpansion=.does |
| 42140 | 20 6e 6f 74 20 65 78 70 65 63 74 20 74 61 62 20 63 68 61 72 61 63 74 65 72 73 2c 0a 20 20 20 20 | .not.expect.tab.characters,..... |
| 42160 | 3b 3b 20 73 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 45 6d 61 63 73 20 64 6f 65 73 20 | ;;.so.make.sure.that.Emacs.does. |
| 42180 | 6e 6f 74 20 69 6e 73 65 72 74 20 74 68 65 6d 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 64 65 6e | not.insert.them.....(let.((inden |
| 421a0 | 74 2d 74 61 62 73 2d 6d 6f 64 65 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 | t-tabs-mode.nil)).......(cl-loop |
| 421c0 | 0a 20 20 20 20 20 20 20 66 6f 72 20 28 6f 72 69 67 69 6e 61 6c 20 65 78 70 61 6e 73 69 6f 6e 29 | ........for.(original.expansion) |
| 421e0 | 20 69 6e 20 65 78 70 61 6e 73 69 6f 6e 73 0a 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 | .in.expansions........do........ |
| 42200 | 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 28 | (goto-char.(point-min))........( |
| 42220 | 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 73 65 61 72 63 68 20 6f 72 69 67 69 6e 61 6c 29 | slime-macrostep-search.original) |
| 42240 | 0a 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 29 0a 20 20 20 20 20 | ........(macrostep-expand)...... |
| 42260 | 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 4d 61 63 72 6f 65 78 70 61 6e | ..(slime-test-expect."Macroexpan |
| 42280 | 73 69 6f 6e 20 69 73 20 63 6f 72 72 65 63 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sion.is.correct"................ |
| 422a0 | 20 20 20 20 20 20 20 20 20 20 20 65 78 70 61 6e 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | ...........expansion............ |
| 422c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 78 70 2d 61 74 2d 70 6f | ...............(slime-sexp-at-po |
| 422e0 | 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 | int)...........................# |
| 42300 | 27 73 6c 69 6d 65 2d 74 65 73 74 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 3d 29 29 29 29 29 | 'slime-test-macroexpansion=))))) |
| 42320 | 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 | ..(def-slime-test.(slime-macrost |
| 42340 | 65 70 2d 66 6f 6e 74 69 66 79 2d 6c 6f 63 61 6c 2d 6d 61 63 72 6f 73 0a 20 20 20 20 20 20 20 20 | ep-fontify-local-macros......... |
| 42360 | 20 20 20 20 20 20 20 20 20 28 3a 66 61 69 6c 73 2d 66 6f 72 20 22 63 6c 69 73 70 22 20 22 45 43 | .........(:fails-for."clisp"."EC |
| 42380 | 4c 22 29 29 0a 20 20 20 20 28 29 0a 20 20 20 20 22 54 65 73 74 20 74 68 61 74 20 6c 6f 63 61 6c | L")).....()....."Test.that.local |
| 423a0 | 6c 79 2d 62 6f 75 6e 64 20 6d 61 63 72 6f 73 20 61 72 65 20 68 69 67 68 6c 69 67 68 74 65 64 20 | ly-bound.macros.are.highlighted. |
| 423c0 | 69 6e 20 65 78 70 61 6e 73 69 6f 6e 73 2e 22 0a 20 20 20 20 27 28 28 29 29 0a 20 20 20 20 28 73 | in.expansions.".....'(()).....(s |
| 423e0 | 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 77 69 74 68 2d 74 65 78 74 0a 20 20 20 20 20 20 20 | lime-macrostep-with-text........ |
| 42400 | 20 22 28 6d 61 63 72 6f 6c 65 74 20 28 28 66 72 6f 62 20 28 26 72 65 73 74 20 61 72 67 73 29 0a | ."(macrolet.((frob.(&rest.args). |
| 42420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 7a 65 72 6f 70 | ......................(if.(zerop |
| 42440 | 20 28 6c 65 6e 67 74 68 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(length.args))................. |
| 42460 | 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........nil................... |
| 42480 | 20 20 20 20 20 20 20 20 60 28 63 6f 6e 73 20 2c 28 63 61 72 20 61 72 67 73 29 20 28 66 72 6f 62 | ........`(cons.,(car.args).(frob |
| 424a0 | 20 2c 40 28 63 64 72 20 61 72 67 73 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 | .,@(cdr.args))))))............(f |
| 424c0 | 72 6f 62 20 31 20 32 20 33 20 34 20 35 29 29 22 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 78 | rob.1.2.3.4.5))".......(let.((ex |
| 424e0 | 70 61 6e 73 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 28 22 28 66 72 6f 62 20 | pansions..............'(("(frob. |
| 42500 | 31 20 32 20 33 20 34 20 35 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 43 4f | 1.2.3.4.5)"................."(CO |
| 42520 | 4e 53 20 31 20 28 46 52 4f 42 20 32 20 33 20 34 20 35 29 29 22 0a 20 20 20 20 20 20 20 20 20 20 | NS.1.(FROB.2.3.4.5))"........... |
| 42540 | 20 20 20 20 20 20 22 28 46 52 4f 42 20 32 20 33 20 34 20 35 29 22 29 0a 20 20 20 20 20 20 20 20 | ......"(FROB.2.3.4.5)")......... |
| 42560 | 20 20 20 20 20 20 20 28 22 28 46 52 4f 42 20 32 20 33 20 34 20 35 29 22 0a 20 20 20 20 20 20 20 | .......("(FROB.2.3.4.5)"........ |
| 42580 | 20 20 20 20 20 20 20 20 20 22 28 43 4f 4e 53 20 32 20 28 46 52 4f 42 20 33 20 34 20 35 29 29 22 | ........."(CONS.2.(FROB.3.4.5))" |
| 425a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 46 52 4f 42 20 33 20 34 20 35 29 22 29 | ................."(FROB.3.4.5)") |
| 425c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 28 46 52 4f 42 20 33 20 34 20 35 29 22 0a | ................("(FROB.3.4.5)". |
| 425e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 43 4f 4e 53 20 33 20 28 46 52 4f 42 20 34 | ................"(CONS.3.(FROB.4 |
| 42600 | 20 35 29 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 46 52 4f 42 20 34 20 35 | .5))"................."(FROB.4.5 |
| 42620 | 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 28 46 52 4f 42 20 34 20 35 29 22 | )")................("(FROB.4.5)" |
| 42640 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 43 4f 4e 53 20 34 20 28 46 52 4f 42 20 | ................."(CONS.4.(FROB. |
| 42660 | 35 29 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 46 52 4f 42 20 35 29 22 29 | 5))"................."(FROB.5)") |
| 42680 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 28 46 52 4f 42 20 35 29 22 0a 20 20 20 20 | ................("(FROB.5)"..... |
| 426a0 | 20 20 20 20 20 20 20 20 20 20 20 20 22 28 43 4f 4e 53 20 35 20 28 46 52 4f 42 29 29 22 0a 20 20 | ............"(CONS.5.(FROB))"... |
| 426c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 46 52 4f 42 29 22 29 0a 20 20 20 20 20 20 20 20 | .............."(FROB)")......... |
| 426e0 | 20 20 20 20 20 20 20 3b 3b 20 28 22 28 46 52 4f 42 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .......;;.("(FROB)"............. |
| 42700 | 20 20 20 3b 3b 20 20 22 4e 49 4c 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 | ...;;.."NIL"................;;.. |
| 42720 | 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 0a 20 20 20 20 20 20 20 20 | nil)................)))......... |
| 42740 | 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6f 72 69 67 69 6e 61 6c 20 65 78 70 61 6e 73 69 6f 6e | (cl-loop.for.(original.expansion |
| 42760 | 20 73 75 62 66 6f 72 6d 29 20 69 6e 20 65 78 70 61 6e 73 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 | .subform).in.expansions......... |
| 42780 | 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f | .........do..................(go |
| 427a0 | 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | to-char.(point-min))............ |
| 427c0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 73 65 61 72 63 68 20 6f 72 | ......(slime-macrostep-search.or |
| 427e0 | 69 67 69 6e 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 | iginal)..................(macros |
| 42800 | 74 65 70 2d 65 78 70 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | tep-expand)..................(sl |
| 42820 | 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 4d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 | ime-test-expect."Macroexpansion. |
| 42840 | 69 73 20 63 6f 72 72 65 63 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | is.correct"..................... |
| 42860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 61 6e 73 69 6f 6e 0a 20 20 20 20 20 20 | ................expansion....... |
| 42880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ..............................(s |
| 428a0 | 6c 69 6d 65 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | lime-sexp-at-point)............. |
| 428c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d | ........................#'slime- |
| 428e0 | 74 65 73 74 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 3d 29 0a 20 20 20 20 20 20 20 20 20 20 | test-macroexpansion=)........... |
| 42900 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 75 62 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 | .......(when.subform............ |
| 42920 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 73 65 61 72 63 68 20 | ........(slime-macrostep-search. |
| 42940 | 73 75 62 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 | subform)....................(for |
| 42960 | 77 61 72 64 2d 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ward-char)....................(s |
| 42980 | 6c 69 6d 65 2d 63 68 65 63 6b 20 22 48 65 61 64 20 6f 66 20 6d 61 63 72 6f 20 66 6f 72 6d 20 69 | lime-check."Head.of.macro.form.i |
| 429a0 | 6e 20 65 78 70 61 6e 73 69 6f 6e 20 69 73 20 66 6f 6e 74 69 66 69 65 64 20 63 6f 72 72 65 63 74 | n.expansion.is.fontified.correct |
| 429c0 | 6c 79 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 | ly"........................(eq.( |
| 429e0 | 67 65 74 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 66 6f 6e 74 2d | get-char-property.(point).'font- |
| 42a00 | 6c 6f 63 6b 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lock-face)...................... |
| 42a20 | 20 20 20 27 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 61 63 65 29 29 29 29 29 29 29 0a | ...'macrostep-macro-face))))))). |
| 42a40 | 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 | .(def-slime-test.(slime-macroste |
| 42a60 | 70 2d 68 61 6e 64 6c 65 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 73 29 0a 20 20 20 | p-handle-unreadable-objects).... |
| 42a80 | 20 28 64 65 66 69 6e 69 74 69 6f 6e 73 20 62 75 66 66 65 72 2d 74 65 78 74 20 73 75 62 66 6f 72 | .(definitions.buffer-text.subfor |
| 42aa0 | 6d 20 65 78 70 61 6e 73 69 6f 6e 29 0a 20 20 20 20 22 43 68 65 63 6b 20 74 68 61 74 20 6d 61 63 | m.expansion)....."Check.that.mac |
| 42ac0 | 72 6f 65 78 70 61 6e 73 69 6f 6e 20 73 75 63 63 65 65 64 73 20 69 6e 20 61 20 63 6f 6e 74 65 78 | roexpansion.succeeds.in.a.contex |
| 42ae0 | 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 75 6e 72 65 61 64 61 62 6c 65 20 6f 62 6a 65 63 74 73 2e | t.containing.unreadable.objects. |
| 42b00 | 22 0a 20 20 20 20 27 28 28 22 28 64 65 66 6d 61 63 72 6f 20 6d 61 63 72 6f 73 74 65 70 2d 64 75 | ".....'(("(defmacro.macrostep-du |
| 42b20 | 6d 6d 79 2d 35 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 60 28 65 | mmy-5.(&rest.args)...........`(e |
| 42b40 | 78 70 61 6e 73 69 6f 6e 20 6f 66 20 2c 40 61 72 67 73 29 29 22 0a 20 20 20 20 20 20 20 22 28 70 | xpansion.of.,@args))"........"(p |
| 42b60 | 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 23 3c 75 6e 72 65 61 64 61 62 6c 65 20 6f 62 6a 65 | rogn...........#<unreadable.obje |
| 42b80 | 63 74 3e 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 64 75 6d 6d 79 2d 35 | ct>...........(macrostep-dummy-5 |
| 42ba0 | 20 71 75 75 78 20 66 72 6f 62 29 29 22 0a 20 20 20 20 20 20 20 22 28 6d 61 63 72 6f 73 74 65 70 | .quux.frob))"........"(macrostep |
| 42bc0 | 2d 64 75 6d 6d 79 2d 35 20 71 75 75 78 20 66 72 6f 62 29 22 0a 20 20 20 20 20 20 20 22 28 45 58 | -dummy-5.quux.frob)"........"(EX |
| 42be0 | 50 41 4e 53 49 4f 4e 20 4f 46 20 51 55 55 58 20 46 52 4f 42 29 22 29 29 0a 20 20 20 20 28 73 6c | PANSION.OF.QUUX.FROB)")).....(sl |
| 42c00 | 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 65 76 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 64 | ime-macrostep-eval-definitions.d |
| 42c20 | 65 66 69 6e 69 74 69 6f 6e 73 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 | efinitions).....(slime-macrostep |
| 42c40 | 2d 77 69 74 68 2d 74 65 78 74 20 62 75 66 66 65 72 2d 74 65 78 74 0a 20 20 20 20 20 20 28 73 6c | -with-text.buffer-text.......(sl |
| 42c60 | 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 73 65 61 72 63 68 20 73 75 62 66 6f 72 6d 29 0a 20 20 | ime-macrostep-search.subform)... |
| 42c80 | 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 29 0a 20 20 20 20 20 20 28 73 6c | ....(macrostep-expand).......(sl |
| 42ca0 | 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 4d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 | ime-test-expect."Macroexpansion. |
| 42cc0 | 69 73 20 63 6f 72 72 65 63 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | is.correct"..................... |
| 42ce0 | 20 20 20 20 20 65 78 70 61 6e 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....expansion.................. |
| 42d00 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 | ........(slime-sexp-at-point)... |
| 42d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 74 | .......................#'slime-t |
| 42d40 | 65 73 74 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 3d 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 | est-macroexpansion=)))..(provide |
| 42d60 | 20 27 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2d 74 65 73 74 73 29 0a 00 00 00 00 00 00 00 | .'slime-macrostep-tests)........ |
| 42d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42e00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 70 61 | slime-2.31/contrib/test/slime-pa |
| 42e20 | 72 73 65 2d 74 65 73 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | rse-tests.el.................... |
| 42e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42e60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 42e80 | 30 30 30 34 31 36 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 35 34 31 00 20 30 00 00 00 | 0004167.00000000000.017541..0... |
| 42ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42f00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 42f20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 42f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43000 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 70 61 72 73 65 29 0a 28 72 65 71 75 69 72 65 20 | (require.'slime-parse).(require. |
| 43020 | 27 73 6c 69 6d 65 2d 74 65 73 74 73 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 65 63 | 'slime-tests)..(defun.slime-chec |
| 43040 | 6b 2d 62 75 66 66 65 72 2d 66 6f 72 6d 20 28 72 65 73 75 6c 74 2d 66 6f 72 6d 29 0a 20 20 28 73 | k-buffer-form.(result-form)...(s |
| 43060 | 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 0a 20 20 20 28 66 6f 72 6d 61 74 20 22 42 75 66 | lime-test-expect....(format."Buf |
| 43080 | 66 65 72 20 66 6f 72 6d 20 63 6f 72 72 65 63 74 20 69 6e 20 60 25 73 27 20 28 61 74 20 25 64 29 | fer.form.correct.in.`%s'.(at.%d) |
| 430a0 | 22 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 72 65 | ".(buffer-string).(point))....re |
| 430c0 | 73 75 6c 74 2d 66 6f 72 6d 0a 20 20 20 28 73 6c 69 6d 65 2d 70 61 72 73 65 2d 66 6f 72 6d 2d 75 | sult-form....(slime-parse-form-u |
| 430e0 | 70 74 6f 2d 70 6f 69 6e 74 20 31 30 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 | pto-point.10)))..(def-slime-test |
| 43100 | 20 66 6f 72 6d 2d 75 70 2d 74 6f 2d 70 6f 69 6e 74 2e 31 0a 20 20 20 20 28 62 75 66 66 65 72 2d | .form-up-to-point.1.....(buffer- |
| 43120 | 73 65 78 70 72 20 72 65 73 75 6c 74 2d 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 73 6b 69 70 | sexpr.result-form.&optional.skip |
| 43140 | 2d 74 72 61 69 6c 69 6e 67 2d 74 65 73 74 2d 70 29 0a 20 20 20 20 22 22 0a 20 20 20 20 60 28 28 | -trailing-test-p)....."".....`(( |
| 43160 | 22 28 63 68 61 72 3d 20 23 5c 5c 28 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 28 22 63 68 61 | "(char=.#\\(*HERE*"........("cha |
| 43180 | 72 3d 22 20 22 23 5c 5c 28 22 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 | r="."#\\(".,slime-cursor-marker) |
| 431a0 | 29 0a 20 20 20 20 20 20 28 22 28 63 68 61 72 3d 20 23 5c 5c 28 20 2a 48 45 52 45 2a 22 0a 20 20 | ).......("(char=.#\\(.*HERE*"... |
| 431c0 | 20 20 20 20 20 28 22 63 68 61 72 3d 22 20 22 23 5c 5c 28 22 20 22 22 20 2c 73 6c 69 6d 65 2d 63 | .....("char="."#\\("."".,slime-c |
| 431e0 | 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 20 20 28 22 28 63 68 61 72 3d 20 23 5c | ursor-marker)).......("(char=.#\ |
| 43200 | 5c 29 20 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 28 22 63 68 61 72 3d 22 20 22 23 5c 5c 29 | \).*HERE*"........("char="."#\\) |
| 43220 | 22 20 22 22 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 | "."".,slime-cursor-marker))..... |
| 43240 | 20 20 28 22 28 63 68 61 72 3d 20 23 5c 5c 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 28 22 63 | ..("(char=.#\\*HERE*"........("c |
| 43260 | 68 61 72 3d 22 20 22 23 5c 5c 22 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 | har="."#\\".,slime-cursor-marker |
| 43280 | 29 20 74 29 0a 20 20 20 20 20 20 28 22 28 64 65 66 75 6e 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 | ).t).......("(defun*HERE*"...... |
| 432a0 | 20 20 28 22 64 65 66 75 6e 22 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 | ..("defun".,slime-cursor-marker) |
| 432c0 | 29 0a 20 20 20 20 20 20 28 22 28 64 65 66 75 6e 20 66 6f 6f 2a 48 45 52 45 2a 22 0a 20 20 20 20 | ).......("(defun.foo*HERE*"..... |
| 432e0 | 20 20 20 28 22 64 65 66 75 6e 22 20 22 66 6f 6f 22 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d | ...("defun"."foo".,slime-cursor- |
| 43300 | 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 20 20 28 22 28 64 65 66 75 6e 20 66 6f 6f 20 28 78 20 79 | marker)).......("(defun.foo.(x.y |
| 43320 | 29 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 28 22 64 65 66 75 6e 22 20 22 66 6f 6f 22 0a 09 | )*HERE*"........("defun"."foo".. |
| 43340 | 28 22 78 22 20 22 79 22 29 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 29 | ("x"."y").,slime-cursor-marker)) |
| 43360 | 0a 20 20 20 20 20 20 28 22 28 64 65 66 75 6e 20 66 6f 6f 20 28 78 20 79 2a 48 45 52 45 2a 22 0a | .......("(defun.foo.(x.y*HERE*". |
| 43380 | 20 20 20 20 20 20 20 28 22 64 65 66 75 6e 22 20 22 66 6f 6f 22 0a 09 28 22 78 22 20 22 79 22 20 | .......("defun"."foo"..("x"."y". |
| 433a0 | 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 29 29 0a 20 20 20 20 20 20 28 22 | ,slime-cursor-marker))).......(" |
| 433c0 | 28 61 70 70 6c 79 20 27 66 6f 6f 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 28 22 61 70 70 6c | (apply.'foo*HERE*"........("appl |
| 433e0 | 79 22 20 22 27 66 6f 6f 22 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 29 | y"."'foo".,slime-cursor-marker)) |
| 43400 | 0a 20 20 20 20 20 20 28 22 28 61 70 70 6c 79 20 23 27 66 6f 6f 2a 48 45 52 45 2a 22 0a 20 20 20 | .......("(apply.#'foo*HERE*".... |
| 43420 | 20 20 20 20 28 22 61 70 70 6c 79 22 20 22 23 27 66 6f 6f 22 20 2c 73 6c 69 6d 65 2d 63 75 72 73 | ....("apply"."#'foo".,slime-curs |
| 43440 | 6f 72 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 20 20 28 22 28 64 65 63 6c 61 72 65 20 28 28 76 | or-marker)).......("(declare.((v |
| 43460 | 65 63 74 6f 72 20 62 69 74 20 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 28 22 64 65 63 6c 61 | ector.bit.*HERE*"........("decla |
| 43480 | 72 65 22 20 28 28 22 76 65 63 74 6f 72 22 20 22 62 69 74 22 20 22 22 20 2c 73 6c 69 6d 65 2d 63 | re".(("vector"."bit"."".,slime-c |
| 434a0 | 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 29 29 29 0a 20 20 20 20 20 20 28 22 28 77 69 74 68 2d 6f | ursor-marker)))).......("(with-o |
| 434c0 | 70 65 6e 2d 66 69 6c 65 20 28 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 28 22 77 69 74 68 2d | pen-file.(*HERE*"........("with- |
| 434e0 | 6f 70 65 6e 2d 66 69 6c 65 22 20 28 22 22 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 | open-file".("".,slime-cursor-mar |
| 43500 | 6b 65 72 29 29 29 0a 20 20 20 20 20 20 28 22 28 28 28 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 | ker))).......("(((*HERE*"....... |
| 43520 | 20 28 28 28 22 22 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 29 29 29 0a | .((("".,slime-cursor-marker)))). |
| 43540 | 20 20 20 20 20 20 28 22 28 64 65 66 75 6e 20 23 7c 20 66 6f 6f 20 23 7c 20 2a 48 45 52 45 2a 22 | ......("(defun.#|.foo.#|.*HERE*" |
| 43560 | 0a 20 20 20 20 20 20 20 28 22 64 65 66 75 6e 22 20 22 22 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f | ........("defun"."".,slime-curso |
| 43580 | 72 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 20 20 28 22 28 64 65 66 75 6e 20 23 2d 28 61 6e 64 | r-marker)).......("(defun.#-(and |
| 435a0 | 29 20 28 62 61 72 29 20 66 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 28 22 64 65 66 75 6e 22 | ).(bar).f*HERE*"........("defun" |
| 435c0 | 20 22 66 22 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 | ."f".,slime-cursor-marker))..... |
| 435e0 | 20 20 28 22 28 72 65 6d 6f 76 65 2d 69 66 20 23 27 28 6c 61 6d 62 64 61 20 28 78 29 2a 48 45 52 | ..("(remove-if.#'(lambda.(x)*HER |
| 43600 | 45 2a 22 0a 20 20 20 20 20 20 20 28 22 72 65 6d 6f 76 65 2d 69 66 22 20 28 22 6c 61 6d 62 64 61 | E*"........("remove-if".("lambda |
| 43620 | 22 20 28 22 78 22 29 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 29 29 0a | ".("x").,slime-cursor-marker))). |
| 43640 | 20 20 20 20 20 20 28 22 60 28 72 65 6d 6f 76 65 2d 69 66 20 2c 28 6c 61 6d 62 64 61 20 28 78 29 | ......("`(remove-if.,(lambda.(x) |
| 43660 | 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 28 22 72 65 6d 6f 76 65 2d 69 66 22 20 28 22 6c 61 | *HERE*"........("remove-if".("la |
| 43680 | 6d 62 64 61 22 20 28 22 78 22 29 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 | mbda".("x").,slime-cursor-marker |
| 436a0 | 29 29 29 0a 20 20 20 20 20 20 28 22 60 28 72 65 6d 6f 76 65 2d 69 66 20 2c 40 28 6c 61 6d 62 64 | ))).......("`(remove-if.,@(lambd |
| 436c0 | 61 20 28 78 29 2a 48 45 52 45 2a 22 0a 20 20 20 20 20 20 20 28 22 72 65 6d 6f 76 65 2d 69 66 22 | a.(x)*HERE*"........("remove-if" |
| 436e0 | 20 28 22 6c 61 6d 62 64 61 22 20 28 22 78 22 29 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d | .("lambda".("x").,slime-cursor-m |
| 43700 | 61 72 6b 65 72 29 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 | arker))))...(slime-check-top-lev |
| 43720 | 65 6c 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 6c 69 73 | el)...(with-temp-buffer.....(lis |
| 43740 | 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 62 75 66 66 65 72 2d 73 65 78 70 72 | p-mode).....(insert.buffer-sexpr |
| 43760 | 29 0a 20 20 20 20 28 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 2a 48 45 52 45 2a 22 29 | ).....(search-backward."*HERE*") |
| 43780 | 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 6d 61 74 63 68 2d 62 65 67 69 6e | .....(delete-region.(match-begin |
| 437a0 | 6e 69 6e 67 20 30 29 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 0a 20 20 20 20 28 73 6c 69 6d | ning.0).(match-end.0)).....(slim |
| 437c0 | 65 2d 63 68 65 63 6b 2d 62 75 66 66 65 72 2d 66 6f 72 6d 20 72 65 73 75 6c 74 2d 66 6f 72 6d 29 | e-check-buffer-form.result-form) |
| 437e0 | 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 73 6b 69 70 2d 74 72 61 69 6c 69 6e 67 2d 74 65 73 74 2d | .....(unless.skip-trailing-test- |
| 43800 | 70 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 29 22 29 20 28 62 61 63 6b 77 61 72 64 2d 63 | p.......(insert.")").(backward-c |
| 43820 | 68 61 72 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 62 75 66 66 65 72 2d 66 | har).......(slime-check-buffer-f |
| 43840 | 6f 72 6d 20 72 65 73 75 6c 74 2d 66 6f 72 6d 29 29 0a 20 20 20 20 29 29 0a 0a 28 70 72 6f 76 69 | orm.result-form)).....))..(provi |
| 43860 | 64 65 20 27 73 6c 69 6d 65 2d 70 61 72 73 65 2d 74 65 73 74 73 29 0a 00 00 00 00 00 00 00 00 00 | de.'slime-parse-tests).......... |
| 43880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 438a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 438c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 438e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 439a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 439c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 439e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 72 65 | slime-2.31/contrib/test/slime-re |
| 43a20 | 70 6c 2d 74 65 73 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | pl-tests.el..................... |
| 43a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 43a80 | 30 30 32 36 37 36 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 34 30 31 00 20 30 00 00 00 | 0026765.00000000000.017401..0... |
| 43aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 43b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 43b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43c00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 28 72 65 71 75 69 72 65 20 27 | (require.'slime-repl).(require.' |
| 43c20 | 73 6c 69 6d 65 2d 74 65 73 74 73 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a | slime-tests).(require.'cl-lib).. |
| 43c40 | 28 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 74 65 73 74 2d 6d 61 72 6b 65 72 | (defmacro.slime-repl-test-marker |
| 43c60 | 73 20 28 65 78 70 65 63 74 65 64 2d 73 74 72 69 6e 67 2d 73 70 65 63 20 26 72 65 73 74 20 6d 61 | s.(expected-string-spec.&rest.ma |
| 43c80 | 72 6b 65 72 2d 73 70 65 63 73 29 0a 20 20 22 46 6f 72 20 28 4d 41 52 4b 45 52 20 53 49 47 20 46 | rker-specs)..."For.(MARKER.SIG.F |
| 43ca0 | 4f 52 4d 29 20 69 6e 20 4d 41 52 4b 45 52 2d 53 50 45 43 53 2c 20 70 72 6f 64 75 63 65 20 73 75 | ORM).in.MARKER-SPECS,.produce.su |
| 43cc0 | 69 74 61 62 6c 65 20 60 73 68 6f 75 6c 64 27 20 61 73 73 65 72 74 69 6f 6e 73 2e 0a 54 68 65 20 | itable.`should'.assertions..The. |
| 43ce0 | 61 73 73 65 72 74 69 6f 6e 73 20 63 6f 6d 70 61 72 65 20 76 61 6c 75 65 73 20 69 6e 20 73 79 6d | assertions.compare.values.in.sym |
| 43d00 | 62 6f 6c 73 20 60 65 78 70 65 63 74 65 64 2d 4d 41 52 4b 45 52 27 20 61 6e 64 0a 60 6f 62 73 65 | bols.`expected-MARKER'.and.`obse |
| 43d20 | 72 76 65 64 2d 4d 41 52 4b 45 52 27 2e 20 54 68 65 20 66 6f 72 6d 65 72 20 69 73 20 6f 62 74 61 | rved-MARKER'..The.former.is.obta |
| 43d40 | 69 6e 65 64 20 62 79 20 73 65 61 72 63 68 69 6e 67 20 45 58 50 45 43 54 45 44 2d 53 54 52 49 4e | ined.by.searching.EXPECTED-STRIN |
| 43d60 | 47 2d 53 50 45 43 0a 66 6f 72 20 74 68 65 20 73 74 72 69 6e 67 20 73 69 67 20 53 49 47 2c 20 74 | G-SPEC.for.the.string.sig.SIG,.t |
| 43d80 | 68 65 20 6c 61 74 74 65 72 20 62 79 20 65 76 61 6c 69 6e 67 20 46 4f 52 4d 20 69 6e 20 74 68 65 | he.latter.by.evaling.FORM.in.the |
| 43da0 | 20 74 65 73 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e | .test.buffer."...(declare.(inden |
| 43dc0 | 74 20 31 29 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 66 6f 72 20 28 6d 61 72 6b 65 72 20 | t.1))...(cl-loop....for.(marker. |
| 43de0 | 73 69 67 6e 61 74 75 72 65 20 6f 62 73 65 72 76 65 72 2d 66 6f 72 6d 29 20 69 6e 20 6d 61 72 6b | signature.observer-form).in.mark |
| 43e00 | 65 72 2d 73 70 65 63 73 0a 20 20 20 66 6f 72 20 65 78 70 65 63 74 65 64 2d 73 79 6d 20 3d 20 28 | er-specs....for.expected-sym.=.( |
| 43e20 | 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 28 66 6f 72 6d 61 74 20 22 65 78 70 65 63 74 65 64 2d 25 73 | make-symbol.(format."expected-%s |
| 43e40 | 22 20 6d 61 72 6b 65 72 29 29 0a 20 20 20 66 6f 72 20 6f 62 73 65 72 76 65 64 2d 73 79 6d 20 3d | ".marker))....for.observed-sym.= |
| 43e60 | 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 28 66 6f 72 6d 61 74 20 22 6f 62 73 65 72 76 65 64 2d | .(make-symbol.(format."observed- |
| 43e80 | 25 73 22 20 6d 61 72 6b 65 72 29 29 0a 0a 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 2c 65 78 70 65 | %s".marker)).....collect.`(,expe |
| 43ea0 | 63 74 65 64 2d 73 79 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 67 6f | cted-sym..............(progn.(go |
| 43ec0 | 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | to-char.(point-min))............ |
| 43ee0 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 2c | .........(when.(search-forward., |
| 43f00 | 73 69 67 6e 61 74 75 72 65 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | signature.nil.t)................ |
| 43f20 | 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 29 0a 20 20 20 20 20 20 | .......(replace-match."")....... |
| 43f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 29 | ................(point-marker))) |
| 43f60 | 29 0a 20 20 20 69 6e 74 6f 20 65 78 70 65 63 74 65 64 2d 62 69 6e 64 69 6e 67 73 0a 20 20 20 63 | )....into.expected-bindings....c |
| 43f80 | 6f 6c 6c 65 63 74 20 60 28 2c 6f 62 73 65 72 76 65 64 2d 73 79 6d 20 2c 6f 62 73 65 72 76 65 72 | ollect.`(,observed-sym.,observer |
| 43fa0 | 2d 66 6f 72 6d 29 0a 20 20 20 69 6e 74 6f 20 6f 62 73 65 72 76 65 64 2d 62 69 6e 64 69 6e 67 73 | -form)....into.observed-bindings |
| 43fc0 | 0a 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 77 68 65 6e 20 28 61 6e 64 20 2c 6f 62 73 65 72 76 65 | ....collect.`(when.(and.,observe |
| 43fe0 | 64 2d 73 79 6d 20 28 6e 6f 74 20 2c 65 78 70 65 63 74 65 64 2d 73 79 6d 29 29 0a 20 20 20 20 20 | d-sym.(not.,expected-sym))...... |
| 44000 | 20 20 20 20 20 20 20 20 20 28 65 72 74 2d 66 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(ert-fail.............. |
| 44020 | 20 20 28 66 6f 72 6d 61 74 20 22 44 69 64 6e 27 74 20 65 78 70 65 63 74 20 74 6f 20 6f 62 73 65 | ..(format."Didn't.expect.to.obse |
| 44040 | 72 76 65 20 25 73 2c 20 62 75 74 20 64 69 64 20 61 6e 64 20 69 74 73 20 25 73 22 0a 20 20 20 20 | rve.%s,.but.did.and.its.%s"..... |
| 44060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 6d 61 72 6b 65 72 20 2c 6f 62 73 | ...................',marker.,obs |
| 44080 | 65 72 76 65 64 2d 73 79 6d 29 29 29 0a 20 20 20 69 6e 74 6f 20 61 73 73 65 72 74 69 6f 6e 73 0a | erved-sym)))....into.assertions. |
| 440a0 | 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 77 68 65 6e 20 28 61 6e 64 20 28 6e 6f 74 20 2c 6f 62 73 | ...collect.`(when.(and.(not.,obs |
| 440c0 | 65 72 76 65 64 2d 73 79 6d 29 20 2c 65 78 70 65 63 74 65 64 2d 73 79 6d 29 0a 20 20 20 20 20 20 | erved-sym).,expected-sym)....... |
| 440e0 | 20 20 20 20 20 20 20 20 28 65 72 74 2d 66 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(ert-fail............... |
| 44100 | 20 28 66 6f 72 6d 61 74 20 22 45 78 70 65 63 74 65 64 20 25 73 20 74 6f 20 62 65 20 25 73 2c 20 | .(format."Expected.%s.to.be.%s,. |
| 44120 | 62 69 74 20 64 69 64 6e 27 74 20 6f 62 73 65 72 76 65 20 61 6e 79 74 68 69 6e 67 22 0a 20 20 20 | bit.didn't.observe.anything".... |
| 44140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 6d 61 72 6b 65 72 20 2c 65 78 | ....................',marker.,ex |
| 44160 | 70 65 63 74 65 64 2d 73 79 6d 29 29 29 0a 20 20 20 69 6e 74 6f 20 61 73 73 65 72 74 69 6f 6e 73 | pected-sym)))....into.assertions |
| 44180 | 0a 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 77 68 65 6e 20 28 61 6e 64 20 2c 6f 62 73 65 72 76 65 | ....collect.`(when.(and.,observe |
| 441a0 | 64 2d 73 79 6d 20 2c 65 78 70 65 63 74 65 64 2d 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 | d-sym.,expected-sym)............ |
| 441c0 | 20 20 20 28 73 68 6f 75 6c 64 20 28 3d 20 2c 6f 62 73 65 72 76 65 64 2d 73 79 6d 20 2c 65 78 70 | ...(should.(=.,observed-sym.,exp |
| 441e0 | 65 63 74 65 64 2d 73 79 6d 29 29 29 0a 20 20 20 69 6e 74 6f 20 61 73 73 65 72 74 69 6f 6e 73 0a | ected-sym)))....into.assertions. |
| 44200 | 20 20 20 66 69 6e 61 6c 6c 79 0a 20 20 20 28 72 65 74 75 72 6e 0a 20 20 20 20 60 28 70 72 6f 67 | ...finally....(return.....`(prog |
| 44220 | 6e 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 2c 40 6f 62 73 65 72 76 65 64 2d 62 69 6e 64 69 6e | n........(let.(,@observed-bindin |
| 44240 | 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 62 73 65 72 76 65 64 2d 73 74 72 69 6e 67 | gs..............(observed-string |
| 44260 | 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 | .(buffer-substring-no-properties |
| 44280 | 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(point-min).................... |
| 442a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 442c0 | 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 | ...........(point-max))))....... |
| 442e0 | 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 | ...(with-current-buffer.(get-buf |
| 44300 | 66 65 72 2d 63 72 65 61 74 65 20 22 2a 73 6c 69 6d 65 2d 72 65 70 6c 20 74 65 73 74 20 62 75 66 | fer-create."*slime-repl.test.buf |
| 44320 | 66 65 72 2a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 | fer*")............(erase-buffer) |
| 44340 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 2c 65 78 70 65 63 74 65 64 2d 73 74 | ............(insert.,expected-st |
| 44360 | 72 69 6e 67 2d 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 2c 40 65 78 | ring-spec)............(let.(,@ex |
| 44380 | 70 65 63 74 65 64 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | pected-bindings)..............(s |
| 443a0 | 68 6f 75 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 6f 62 73 65 72 | hould...............(equal.obser |
| 443c0 | 76 65 64 2d 73 74 72 69 6e 67 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 | ved-string.(buffer-string))).... |
| 443e0 | 20 20 20 20 20 20 20 20 20 20 2c 40 61 73 73 65 72 74 69 6f 6e 73 29 29 29 29 29 29 29 0a 0a 28 | ..........,@assertions)))))))..( |
| 44400 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e 74 | defun.slime-check-buffer-content |
| 44420 | 73 20 28 5f 6d 73 67 20 65 78 70 65 63 74 65 64 2d 73 74 72 69 6e 67 2d 73 70 65 63 29 0a 20 20 | s.(_msg.expected-string-spec)... |
| 44440 | 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 74 65 73 74 2d 6d 61 72 6b 65 72 73 20 65 78 70 65 63 74 65 | (slime-repl-test-markers.expecte |
| 44460 | 64 2d 73 74 72 69 6e 67 2d 73 70 65 63 0a 20 20 20 20 28 70 6f 69 6e 74 20 20 20 20 20 20 20 20 | d-string-spec.....(point........ |
| 44480 | 20 20 20 20 20 22 2a 22 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 28 6f 75 74 70 75 74 2d 73 74 | ....."*".(point)).....(output-st |
| 444a0 | 61 72 74 20 20 20 20 20 20 22 7b 22 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 | art......"{".(next-single-proper |
| 444c0 | 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ty-change....................... |
| 444e0 | 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 75 | ......(point-min).'slime-repl-ou |
| 44500 | 74 70 75 74 29 29 0a 20 20 20 20 28 6f 75 74 70 75 74 2d 65 6e 64 20 20 20 20 20 20 20 20 22 7d | tput)).....(output-end........"} |
| 44520 | 22 20 28 70 72 65 76 69 6f 75 73 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e | ".(previous-single-property-chan |
| 44540 | 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ge.............................( |
| 44560 | 70 6f 69 6e 74 2d 6d 61 78 29 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 75 74 70 75 74 29 29 0a | point-max).'slime-repl-output)). |
| 44580 | 20 20 20 20 28 69 6e 70 75 74 2d 73 74 61 72 74 20 20 20 20 20 20 20 22 5b 22 20 73 6c 69 6d 65 | ....(input-start......."[".slime |
| 445a0 | 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 20 20 20 28 70 6f 69 | -repl-input-start-mark).....(poi |
| 445c0 | 6e 74 2d 6d 61 78 20 20 20 20 20 20 20 20 20 22 5d 22 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a | nt-max........."]".(point-max)). |
| 445e0 | 20 20 20 20 28 6e 65 78 74 2d 69 6e 70 75 74 2d 73 74 61 72 74 20 20 22 5e 22 20 6e 69 6c 29 29 | ....(next-input-start.."^".nil)) |
| 44600 | 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 70 61 63 6b 61 67 65 2d 75 70 64 61 74 | )..(def-slime-test.package-updat |
| 44620 | 69 6e 67 0a 20 20 20 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 6e 69 63 6b 6e 61 6d 65 73 29 | ing.....(package-name.nicknames) |
| 44640 | 0a 20 20 20 20 22 54 65 73 74 20 69 66 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 | ....."Test.if.slime-lisp-package |
| 44660 | 20 69 73 20 75 70 64 61 74 65 64 2e 22 0a 20 20 20 20 27 28 28 22 43 4f 4d 4d 4f 4e 2d 4c 49 53 | .is.updated.".....'(("COMMON-LIS |
| 44680 | 50 22 20 28 22 43 4c 22 29 29 0a 20 20 20 20 20 20 28 22 4b 45 59 57 4f 52 44 22 20 28 22 22 20 | P".("CL")).......("KEYWORD".("". |
| 446a0 | 22 4b 45 59 57 4f 52 44 22 20 22 7c 7c 22 29 29 0a 20 20 20 20 20 20 28 22 43 4f 4d 4d 4f 4e 2d | "KEYWORD"."||")).......("COMMON- |
| 446c0 | 4c 49 53 50 2d 55 53 45 52 22 20 28 22 43 4c 2d 55 53 45 52 22 29 29 29 0a 20 20 28 77 69 74 68 | LISP-USER".("CL-USER")))...(with |
| 446e0 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 | -current-buffer.(slime-output-bu |
| 44700 | 66 66 65 72 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 20 28 73 6c 69 6d 65 2d 65 76 61 6c 0a 20 | ffer).....(let.((p.(slime-eval.. |
| 44720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b 2d 72 65 70 6c 3a 6c 69 73 74 65 6e | .............`(swank-repl:listen |
| 44740 | 65 72 2d 65 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 66 6f 72 6d 61 74 | er-eval.................,(format |
| 44760 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 63 6c 3a 73 65 74 71 20 63 6c 3a | ..................."(cl:setq.cl: |
| 44780 | 2a 70 72 69 6e 74 2d 63 61 73 65 2a 20 3a 75 70 63 61 73 65 29 0a 20 20 20 20 20 20 20 20 20 20 | *print-case*.:upcase)........... |
| 447a0 | 20 20 20 20 20 20 20 20 20 28 63 6c 3a 73 65 74 71 20 63 6c 3a 2a 70 61 63 6b 61 67 65 2a 20 28 | .........(cl:setq.cl:*package*.( |
| 447c0 | 63 6c 3a 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 25 53 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | cl:find-package.%S))............ |
| 447e0 | 20 20 20 20 20 20 20 20 28 63 6c 3a 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 63 6c 3a 2a 70 61 63 | ........(cl:package-name.cl:*pac |
| 44800 | 6b 61 67 65 2a 29 22 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 | kage*)".package-name)).......... |
| 44820 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 29 29 29 29 0a 20 20 20 | .....(slime-lisp-package)))).... |
| 44840 | 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 28 22 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 | ...(slime-check.("slime-lisp-pac |
| 44860 | 6b 61 67 65 20 69 73 20 25 53 2e 22 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 | kage.is.%S.".package-name)...... |
| 44880 | 20 20 20 28 65 71 75 61 6c 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 29 20 70 | ...(equal.(slime-lisp-package).p |
| 448a0 | 61 63 6b 61 67 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b | ackage-name)).......(slime-check |
| 448c0 | 20 28 22 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 2d 70 72 6f 6d 70 74 2d 73 74 72 | .("slime-lisp-package-prompt-str |
| 448e0 | 69 6e 67 20 69 73 20 69 6e 20 25 53 2e 22 20 6e 69 63 6b 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 | ing.is.in.%S.".nicknames)....... |
| 44900 | 20 20 28 6d 65 6d 62 65 72 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 2d 70 72 | ..(member.(slime-lisp-package-pr |
| 44920 | 6f 6d 70 74 2d 73 74 72 69 6e 67 29 20 6e 69 63 6b 6e 61 6d 65 73 29 29 29 29 29 0a 0a 28 64 65 | ompt-string).nicknames)))))..(de |
| 44940 | 66 6d 61 63 72 6f 20 77 69 74 68 2d 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 2d 73 6c 69 6d 65 2d | fmacro.with-canonicalized-slime- |
| 44960 | 72 65 70 6c 2d 62 75 66 66 65 72 20 28 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 45 76 61 6c | repl-buffer.(&rest.body)..."Eval |
| 44980 | 75 61 74 65 20 42 4f 44 59 20 77 69 74 68 69 6e 20 61 20 66 72 65 73 68 20 52 45 50 4c 20 62 75 | uate.BODY.within.a.fresh.REPL.bu |
| 449a0 | 66 66 65 72 2e 20 54 68 65 20 52 45 50 4c 20 70 72 6f 6d 70 74 20 69 73 0a 63 61 6e 6f 6e 69 63 | ffer..The.REPL.prompt.is.canonic |
| 449c0 | 61 6c 69 7a 65 64 20 74 6f 20 5c 22 53 57 41 4e 4b 5c 22 2d 2d 2d 77 65 20 64 6f 20 61 63 74 75 | alized.to.\"SWANK\"---we.do.actu |
| 449e0 | 61 6c 6c 79 20 73 77 69 74 63 68 20 74 6f 20 74 68 61 74 0a 70 61 63 6b 61 67 65 2c 20 74 68 6f | ally.switch.to.that.package,.tho |
| 44a00 | 75 67 68 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 67 20 28 26 72 65 73 74 20 66 | ugh."...(declare.(debug.(&rest.f |
| 44a20 | 6f 72 6d 29 29 20 28 69 6e 64 65 6e 74 20 30 29 29 0a 20 20 60 28 6c 65 74 20 28 28 25 6f 6c 64 | orm)).(indent.0))...`(let.((%old |
| 44a40 | 2d 70 72 6f 6d 70 74 25 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 2d 70 72 6f | -prompt%.(slime-lisp-package-pro |
| 44a60 | 6d 70 74 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 | mpt-string)))......(unwind-prote |
| 44a80 | 63 74 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 77 69 74 68 2d 63 75 72 72 65 6e | ct...........(progn.(with-curren |
| 44aa0 | 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 | t-buffer.(slime-output-buffer).. |
| 44ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 6c | ..................(setf.(slime-l |
| 44ae0 | 69 73 70 2d 70 61 63 6b 61 67 65 2d 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 20 22 53 57 41 4e | isp-package-prompt-string)."SWAN |
| 44b00 | 4b 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 | K"))..................(kill-buff |
| 44b20 | 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 | er.(slime-output-buffer))....... |
| 44b40 | 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 | ...........(with-current-buffer. |
| 44b60 | 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 | (slime-output-buffer)........... |
| 44b80 | 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 28 73 65 74 66 20 28 | .........,@body))........(setf.( |
| 44ba0 | 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 2d 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 | slime-lisp-package-prompt-string |
| 44bc0 | 29 20 25 6f 6c 64 2d 70 72 6f 6d 70 74 25 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 | ).%old-prompt%))))..(def-slime-t |
| 44be0 | 65 73 74 20 72 65 70 6c 2d 74 65 73 74 0a 20 20 20 20 28 69 6e 70 75 74 20 72 65 73 75 6c 74 2d | est.repl-test.....(input.result- |
| 44c00 | 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 22 54 65 73 74 20 73 69 6d 70 6c 65 20 63 6f 6d 6d 61 | contents)....."Test.simple.comma |
| 44c20 | 6e 64 73 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 0a 20 20 20 20 27 28 28 22 | nds.in.the.minibuffer.".....'((" |
| 44c40 | 28 2b 20 31 20 32 29 22 20 22 53 57 41 4e 4b 3e 20 28 2b 20 31 20 32 29 0a 33 0a 53 57 41 4e 4b | (+.1.2)"."SWANK>.(+.1.2).3.SWANK |
| 44c60 | 3e 20 2a 5b 5d 22 29 0a 20 20 20 20 20 20 28 22 28 70 72 69 6e 63 20 31 30 29 22 20 22 53 57 41 | >.*[]").......("(princ.10)"."SWA |
| 44c80 | 4e 4b 3e 20 28 70 72 69 6e 63 20 31 30 29 0a 7b 31 30 0a 7d 31 30 0a 53 57 41 4e 4b 3e 20 2a 5b | NK>.(princ.10).{10.}10.SWANK>.*[ |
| 44ca0 | 5d 22 29 0a 20 20 20 20 20 20 28 22 28 70 72 69 6e 63 20 31 30 29 28 70 72 69 6e 63 20 32 30 29 | ]").......("(princ.10)(princ.20) |
| 44cc0 | 22 20 22 53 57 41 4e 4b 3e 20 28 70 72 69 6e 63 20 31 30 29 28 70 72 69 6e 63 20 32 30 29 0a 7b | "."SWANK>.(princ.10)(princ.20).{ |
| 44ce0 | 31 30 32 30 0a 7d 32 30 0a 53 57 41 4e 4b 3e 20 2a 5b 5d 22 29 0a 20 20 20 20 20 20 28 22 28 64 | 1020.}20.SWANK>.*[]").......("(d |
| 44d00 | 6f 74 69 6d 65 73 20 28 69 20 31 30 20 37 37 29 20 28 70 72 69 6e 63 20 69 29 20 28 74 65 72 70 | otimes.(i.10.77).(princ.i).(terp |
| 44d20 | 72 69 29 29 22 0a 20 20 20 20 20 20 20 22 53 57 41 4e 4b 3e 20 28 64 6f 74 69 6d 65 73 20 28 69 | ri))"........"SWANK>.(dotimes.(i |
| 44d40 | 20 31 30 20 37 37 29 20 28 70 72 69 6e 63 20 69 29 20 28 74 65 72 70 72 69 29 29 0a 7b 30 0a 31 | .10.77).(princ.i).(terpri)).{0.1 |
| 44d60 | 0a 32 0a 33 0a 34 0a 35 0a 36 0a 37 0a 38 0a 39 0a 7d 37 37 0a 53 57 41 4e 4b 3e 20 2a 5b 5d 22 | .2.3.4.5.6.7.8.9.}77.SWANK>.*[]" |
| 44d80 | 29 0a 20 20 20 20 20 20 28 22 28 61 62 6f 72 74 29 22 20 22 53 57 41 4e 4b 3e 20 28 61 62 6f 72 | ).......("(abort)"."SWANK>.(abor |
| 44da0 | 74 29 0a 3b 20 45 76 61 6c 75 61 74 69 6f 6e 20 61 62 6f 72 74 65 64 20 6f 6e 20 4e 49 4c 2e 0a | t).;.Evaluation.aborted.on.NIL.. |
| 44dc0 | 53 57 41 4e 4b 3e 20 2a 5b 5d 22 29 0a 20 20 20 20 20 20 28 22 28 70 72 6f 67 6e 20 28 70 72 69 | SWANK>.*[]").......("(progn.(pri |
| 44de0 | 6e 63 20 31 30 29 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 29 20 28 61 62 6f 72 74 29 29 22 0a | nc.10).(force-output).(abort))". |
| 44e00 | 20 20 20 20 20 20 20 22 53 57 41 4e 4b 3e 20 28 70 72 6f 67 6e 20 28 70 72 69 6e 63 20 31 30 29 | ......."SWANK>.(progn.(princ.10) |
| 44e20 | 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 29 20 28 61 62 6f 72 74 29 29 0a 7b 31 30 7d 3b 20 45 | .(force-output).(abort)).{10};.E |
| 44e40 | 76 61 6c 75 61 74 69 6f 6e 20 61 62 6f 72 74 65 64 20 6f 6e 20 4e 49 4c 2e 0a 53 57 41 4e 4b 3e | valuation.aborted.on.NIL..SWANK> |
| 44e60 | 20 2a 5b 5d 22 29 0a 20 20 20 20 20 20 28 22 28 70 72 6f 67 6e 20 28 70 72 69 6e 63 20 31 30 29 | .*[]").......("(progn.(princ.10) |
| 44e80 | 20 28 61 62 6f 72 74 29 29 22 0a 20 20 20 20 20 20 20 3b 3b 20 6f 75 74 70 75 74 20 63 61 6e 20 | .(abort))"........;;.output.can. |
| 44ea0 | 62 65 20 66 6c 75 73 68 65 64 20 61 66 74 65 72 20 61 62 6f 72 74 69 6e 67 0a 20 20 20 20 20 20 | be.flushed.after.aborting....... |
| 44ec0 | 20 22 53 57 41 4e 4b 3e 20 28 70 72 6f 67 6e 20 28 70 72 69 6e 63 20 31 30 29 20 28 61 62 6f 72 | ."SWANK>.(progn.(princ.10).(abor |
| 44ee0 | 74 29 29 0a 7b 31 30 7d 3b 20 45 76 61 6c 75 61 74 69 6f 6e 20 61 62 6f 72 74 65 64 20 6f 6e 20 | t)).{10};.Evaluation.aborted.on. |
| 44f00 | 4e 49 4c 2e 0a 53 57 41 4e 4b 3e 20 2a 5b 5d 22 29 0a 20 20 20 20 20 20 28 22 28 69 66 20 28 66 | NIL..SWANK>.*[]").......("(if.(f |
| 44f20 | 72 65 73 68 2d 6c 69 6e 65 29 20 31 20 30 29 22 0a 20 20 20 20 20 20 20 22 53 57 41 4e 4b 3e 20 | resh-line).1.0)"........"SWANK>. |
| 44f40 | 28 69 66 20 28 66 72 65 73 68 2d 6c 69 6e 65 29 20 31 20 30 29 0a 7b 0a 7d 31 0a 53 57 41 4e 4b | (if.(fresh-line).1.0).{.}1.SWANK |
| 44f60 | 3e 20 2a 5b 5d 22 29 0a 20 20 20 20 20 20 28 22 28 76 61 6c 75 65 73 20 31 20 32 20 33 29 22 20 | >.*[]").......("(values.1.2.3)". |
| 44f80 | 22 53 57 41 4e 4b 3e 20 28 76 61 6c 75 65 73 20 31 20 32 20 33 29 0a 31 0a 32 0a 33 0a 53 57 41 | "SWANK>.(values.1.2.3).1.2.3.SWA |
| 44fa0 | 4e 4b 3e 20 2a 5b 5d 22 29 29 0a 20 20 28 77 69 74 68 2d 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 | NK>.*[]"))...(with-canonicalized |
| 44fc0 | 2d 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 20 69 | -slime-repl-buffer.....(insert.i |
| 44fe0 | 6e 70 75 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 62 75 66 66 65 72 2d 63 6f | nput).....(slime-check-buffer-co |
| 45000 | 6e 74 65 6e 74 73 20 22 42 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 69 6e 70 75 74 22 0a 20 | ntents."Buffer.contains.input".. |
| 45020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 45040 | 28 63 6f 6e 63 61 74 20 22 53 57 41 4e 4b 3e 20 5b 22 20 69 6e 70 75 74 20 22 2a 5d 22 29 29 0a | (concat."SWANK>.[".input."*]")). |
| 45060 | 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 73 6c 69 6d 65 2d 72 | ....(call-interactively.'slime-r |
| 45080 | 65 70 6c 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 | epl-return).....(slime-sync-to-t |
| 450a0 | 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 62 75 66 | op-level.5).....(slime-check-buf |
| 450c0 | 66 65 72 2d 63 6f 6e 74 65 6e 74 73 20 22 42 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 72 65 | fer-contents."Buffer.contains.re |
| 450e0 | 73 75 6c 74 22 20 72 65 73 75 6c 74 2d 63 6f 6e 74 65 6e 74 73 29 29 29 0a 0a 28 64 65 66 2d 73 | sult".result-contents)))..(def-s |
| 45100 | 6c 69 6d 65 2d 74 65 73 74 20 72 65 70 6c 2d 74 65 73 74 2d 32 0a 20 20 20 20 28 69 6e 70 75 74 | lime-test.repl-test-2.....(input |
| 45120 | 20 72 65 73 75 6c 74 2d 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 22 54 65 73 74 20 73 6f 6d 65 | .result-contents)....."Test.some |
| 45140 | 20 6d 6f 72 65 20 73 69 6d 70 6c 65 20 73 69 74 75 61 74 69 6f 6e 73 20 64 65 61 6c 69 6e 67 20 | .more.simple.situations.dealing. |
| 45160 | 77 69 74 68 20 70 72 69 6e 74 2d 77 69 64 74 68 20 61 6e 64 20 73 74 75 66 66 22 0a 20 20 20 20 | with.print-width.and.stuff"..... |
| 45180 | 27 28 28 22 28 77 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 | '(("(with-standard-io-syntax.... |
| 451a0 | 20 20 20 20 20 20 28 77 72 69 74 65 20 28 6d 61 6b 65 2d 6c 69 73 74 20 31 35 20 3a 69 6e 69 74 | ......(write.(make-list.15.:init |
| 451c0 | 69 61 6c 2d 65 6c 65 6d 65 6e 74 20 27 28 31 20 2e 20 32 29 29 20 3a 70 72 65 74 74 79 20 74 29 | ial-element.'(1...2)).:pretty.t) |
| 451e0 | 20 30 29 22 0a 20 20 20 20 20 20 20 22 53 57 41 4e 4b 3e 20 28 77 69 74 68 2d 73 74 61 6e 64 61 | .0)"........"SWANK>.(with-standa |
| 45200 | 72 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 20 28 6d 61 | rd-io-syntax..........(write.(ma |
| 45220 | 6b 65 2d 6c 69 73 74 20 31 35 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 6d 65 6e 74 20 27 28 31 20 | ke-list.15.:initial-element.'(1. |
| 45240 | 2e 20 32 29 29 20 3a 70 72 65 74 74 79 20 74 29 20 30 29 0a 7b 28 28 31 20 2e 20 32 29 20 28 31 | ..2)).:pretty.t).0).{((1...2).(1 |
| 45260 | 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 | ...2).(1...2).(1...2).(1...2).(1 |
| 45280 | 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 0a 20 28 | ...2).(1...2).(1...2).(1...2)..( |
| 452a0 | 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 | 1...2).(1...2).(1...2).(1...2).( |
| 452c0 | 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 29 0a 7d 30 0a 53 57 41 4e 4b 3e 20 2a 5b 5d 22 29 0a | 1...2).(1...2)).}0.SWANK>.*[]"). |
| 452e0 | 20 20 20 20 20 20 3b 3b 20 54 77 6f 20 74 69 6d 65 73 20 74 6f 20 74 65 73 74 20 74 68 65 20 65 | ......;;.Two.times.to.test.the.e |
| 45300 | 66 66 65 63 74 20 6f 66 20 46 52 45 53 48 2d 4c 49 4e 45 2e 0a 20 20 20 20 20 20 28 22 28 77 69 | ffect.of.FRESH-LINE........("(wi |
| 45320 | 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 20 20 20 20 20 20 28 | th-standard-io-syntax..........( |
| 45340 | 77 72 69 74 65 20 28 6d 61 6b 65 2d 6c 69 73 74 20 31 35 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 | write.(make-list.15.:initial-ele |
| 45360 | 6d 65 6e 74 20 27 28 31 20 2e 20 32 29 29 20 3a 70 72 65 74 74 79 20 74 29 20 30 29 22 0a 20 20 | ment.'(1...2)).:pretty.t).0)"... |
| 45380 | 20 20 20 20 20 22 53 57 41 4e 4b 3e 20 28 77 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 | ....."SWANK>.(with-standard-io-s |
| 453a0 | 79 6e 74 61 78 0a 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 20 28 6d 61 6b 65 2d 6c 69 73 74 | yntax..........(write.(make-list |
| 453c0 | 20 31 35 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 6d 65 6e 74 20 27 28 31 20 2e 20 32 29 29 20 3a | .15.:initial-element.'(1...2)).: |
| 453e0 | 70 72 65 74 74 79 20 74 29 20 30 29 0a 7b 28 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 | pretty.t).0).{((1...2).(1...2).( |
| 45400 | 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 | 1...2).(1...2).(1...2).(1...2).( |
| 45420 | 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 0a 20 28 31 20 2e 20 32 29 20 | 1...2).(1...2).(1...2)..(1...2). |
| 45440 | 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 | (1...2).(1...2).(1...2).(1...2). |
| 45460 | 28 31 20 2e 20 32 29 29 0a 7d 30 0a 53 57 41 4e 4b 3e 20 2a 5b 5d 22 29 29 0a 20 20 28 73 6c 69 | (1...2)).}0.SWANK>.*[]"))...(sli |
| 45480 | 6d 65 2d 73 6b 69 70 2d 74 65 73 74 20 22 52 65 70 6c 20 74 65 73 74 20 69 73 20 75 6e 73 74 61 | me-skip-test."Repl.test.is.unsta |
| 454a0 | 62 6c 65 20 77 69 74 68 6f 75 74 20 74 68 65 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 | ble.without.the.slime-presentati |
| 454c0 | 6f 6e 73 20 63 6f 6e 74 72 69 62 2e 22 29 0a 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 72 65 70 | ons.contrib.")...(slime-test-rep |
| 454e0 | 6c 2d 74 65 73 74 20 69 6e 70 75 74 20 72 65 73 75 6c 74 2d 63 6f 6e 74 65 6e 74 73 29 29 0a 0a | l-test.input.result-contents)).. |
| 45500 | 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 72 65 70 6c 2d 72 65 74 75 72 6e 0a 20 20 20 20 | (def-slime-test.repl-return..... |
| 45520 | 28 62 65 66 6f 72 65 20 61 66 74 65 72 20 72 65 73 75 6c 74 2d 63 6f 6e 74 65 6e 74 73 29 0a 20 | (before.after.result-contents).. |
| 45540 | 20 20 20 22 54 65 73 74 20 69 66 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 20 73 65 | ..."Test.if.slime-repl-return.se |
| 45560 | 6e 64 73 20 74 68 65 20 63 6f 72 72 65 63 74 20 70 72 6f 74 69 6f 6e 20 74 6f 20 4c 69 73 70 20 | nds.the.correct.protion.to.Lisp. |
| 45580 | 65 76 65 6e 0a 69 66 20 70 6f 69 6e 74 20 69 73 20 6e 6f 74 20 61 74 20 74 68 65 20 65 6e 64 20 | even.if.point.is.not.at.the.end. |
| 455a0 | 6f 66 20 74 68 65 20 6c 69 6e 65 2e 22 0a 20 20 20 20 27 28 28 22 28 2b 20 31 20 32 29 22 20 22 | of.the.line.".....'(("(+.1.2)"." |
| 455c0 | 22 20 22 53 57 41 4e 4b 3e 20 28 2b 20 31 20 32 29 0a 33 0a 53 57 41 4e 4b 3e 20 22 29 0a 28 22 | "."SWANK>.(+.1.2).3.SWANK>.").(" |
| 455e0 | 28 2b 20 31 20 22 20 22 32 29 22 20 22 53 57 41 4e 4b 3e 20 28 2b 20 31 20 32 29 0a 33 0a 53 57 | (+.1."."2)"."SWANK>.(+.1.2).3.SW |
| 45600 | 41 4e 4b 3e 20 22 29 0a 0a 28 22 28 2b 20 31 5c 6e 22 20 22 32 29 22 20 22 53 57 41 4e 4b 3e 20 | ANK>.")..("(+.1\n"."2)"."SWANK>. |
| 45620 | 28 2b 20 31 0a 32 29 0a 33 0a 53 57 41 4e 4b 3e 20 22 29 29 0a 20 20 28 77 69 74 68 2d 63 61 6e | (+.1.2).3.SWANK>."))...(with-can |
| 45640 | 6f 6e 69 63 61 6c 69 7a 65 64 2d 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 75 66 66 65 72 0a 20 20 20 | onicalized-slime-repl-buffer.... |
| 45660 | 20 28 69 6e 73 65 72 74 20 62 65 66 6f 72 65 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 | .(insert.before).....(save-excur |
| 45680 | 73 69 6f 6e 20 28 69 6e 73 65 72 74 20 61 66 74 65 72 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d | sion.(insert.after)).....(slime- |
| 456a0 | 74 65 73 74 2d 65 78 70 65 63 74 20 22 42 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 69 6e 70 | test-expect."Buffer.contains.inp |
| 456c0 | 75 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 | ut"........................(conc |
| 456e0 | 61 74 20 22 53 57 41 4e 4b 3e 20 22 20 62 65 66 6f 72 65 20 61 66 74 65 72 29 0a 20 20 20 20 20 | at."SWANK>.".before.after)...... |
| 45700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 | ..................(buffer-string |
| 45720 | 29 29 0a 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 73 6c 69 6d | )).....(call-interactively.'slim |
| 45740 | 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 | e-repl-return).....(slime-sync-t |
| 45760 | 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 | o-top-level.5).....(slime-test-e |
| 45780 | 78 70 65 63 74 20 22 42 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 72 65 73 75 6c 74 22 0a 20 | xpect."Buffer.contains.result".. |
| 457a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 2d 63 6f 6e | ......................result-con |
| 457c0 | 74 65 6e 74 73 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 29 0a 0a 28 64 65 66 2d 73 | tents.(buffer-string))))..(def-s |
| 457e0 | 6c 69 6d 65 2d 74 65 73 74 20 72 65 70 6c 2d 72 65 61 64 0a 20 20 20 20 28 70 72 6f 6d 70 74 20 | lime-test.repl-read.....(prompt. |
| 45800 | 69 6e 70 75 74 20 72 65 73 75 6c 74 2d 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 22 54 65 73 74 | input.result-contents)....."Test |
| 45820 | 20 73 69 6d 70 6c 65 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 | .simple.commands.in.the.minibuff |
| 45840 | 65 72 2e 22 0a 20 20 20 20 27 28 28 22 28 72 65 61 64 2d 6c 69 6e 65 29 22 20 22 66 6f 6f 22 20 | er.".....'(("(read-line)"."foo". |
| 45860 | 22 53 57 41 4e 4b 3e 20 28 76 61 6c 75 65 73 20 28 72 65 61 64 2d 6c 69 6e 65 29 29 0a 66 6f 6f | "SWANK>.(values.(read-line)).foo |
| 45880 | 0a 5c 22 66 6f 6f 5c 22 0a 53 57 41 4e 4b 3e 20 22 29 0a 20 20 20 20 20 20 28 22 28 72 65 61 64 | .\"foo\".SWANK>.").......("(read |
| 458a0 | 2d 63 68 61 72 29 22 20 22 31 22 20 22 53 57 41 4e 4b 3e 20 28 76 61 6c 75 65 73 20 28 72 65 61 | -char)"."1"."SWANK>.(values.(rea |
| 458c0 | 64 2d 63 68 61 72 29 29 0a 31 0a 23 5c 5c 31 0a 53 57 41 4e 4b 3e 20 22 29 0a 20 20 20 20 20 20 | d-char)).1.#\\1.SWANK>.")....... |
| 458e0 | 28 22 28 72 65 61 64 29 22 20 22 28 2b 20 32 20 33 0a 34 29 22 20 22 53 57 41 4e 4b 3e 20 28 76 | ("(read)"."(+.2.3.4)"."SWANK>.(v |
| 45900 | 61 6c 75 65 73 20 28 72 65 61 64 29 29 0a 5c 28 2b 20 32 20 33 0a 34 29 0a 5c 28 2b 20 32 20 33 | alues.(read)).\(+.2.3.4).\(+.2.3 |
| 45920 | 20 34 29 0a 53 57 41 4e 4b 3e 20 22 29 29 0a 20 20 28 77 69 74 68 2d 63 61 6e 6f 6e 69 63 61 6c | .4).SWANK>."))...(with-canonical |
| 45940 | 69 7a 65 64 2d 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 | ized-slime-repl-buffer.....(inse |
| 45960 | 72 74 20 28 66 6f 72 6d 61 74 20 22 28 76 61 6c 75 65 73 20 25 73 29 22 20 70 72 6f 6d 70 74 29 | rt.(format."(values.%s)".prompt) |
| 45980 | 29 0a 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 73 6c 69 6d 65 | ).....(call-interactively.'slime |
| 459a0 | 2d 72 65 70 6c 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f | -repl-return).....(slime-wait-co |
| 459c0 | 6e 64 69 74 69 6f 6e 20 22 72 65 61 64 69 6e 67 22 20 23 27 73 6c 69 6d 65 2d 72 65 61 64 69 6e | ndition."reading".#'slime-readin |
| 459e0 | 67 2d 70 20 35 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 69 6e 70 75 74 29 0a 20 20 20 20 28 63 | g-p.5).....(insert.input).....(c |
| 45a00 | 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 | all-interactively.'slime-repl-re |
| 45a20 | 74 75 72 6e 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 | turn).....(slime-sync-to-top-lev |
| 45a40 | 65 6c 20 35 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 42 75 | el.5).....(slime-test-expect."Bu |
| 45a60 | 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 72 65 73 75 6c 74 22 0a 20 20 20 20 20 20 20 20 20 20 | ffer.contains.result"........... |
| 45a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 2d 63 6f 6e 74 65 6e 74 73 20 28 62 75 | .............result-contents.(bu |
| 45aa0 | 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 | ffer-string))))..(def-slime-test |
| 45ac0 | 20 72 65 70 6c 2d 72 65 61 64 2d 6c 69 6e 65 73 0a 20 20 20 20 28 63 6f 6d 6d 61 6e 64 20 69 6e | .repl-read-lines.....(command.in |
| 45ae0 | 70 75 74 73 20 66 69 6e 61 6c 2d 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 22 54 65 73 74 20 72 | puts.final-contents)....."Test.r |
| 45b00 | 65 61 64 69 6e 67 20 6d 75 6c 74 69 70 6c 65 20 6c 69 6e 65 73 20 66 72 6f 6d 20 74 68 65 20 72 | eading.multiple.lines.from.the.r |
| 45b20 | 65 70 6c 2e 22 0a 20 20 20 20 27 28 28 22 28 6c 69 73 74 20 28 72 65 61 64 2d 6c 69 6e 65 29 20 | epl.".....'(("(list.(read-line). |
| 45b40 | 28 72 65 61 64 2d 6c 69 6e 65 29 20 28 72 65 61 64 2d 6c 69 6e 65 29 29 22 0a 20 20 20 20 20 20 | (read-line).(read-line))"....... |
| 45b60 | 20 28 22 61 22 20 22 62 22 20 22 63 22 29 0a 20 20 20 20 20 20 20 22 53 57 41 4e 4b 3e 20 28 6c | .("a"."b"."c")........"SWANK>.(l |
| 45b80 | 69 73 74 20 28 72 65 61 64 2d 6c 69 6e 65 29 20 28 72 65 61 64 2d 6c 69 6e 65 29 20 28 72 65 61 | ist.(read-line).(read-line).(rea |
| 45ba0 | 64 2d 6c 69 6e 65 29 29 0a 61 0a 62 0a 63 0a 5c 28 5c 22 61 5c 22 20 5c 22 62 5c 22 20 5c 22 63 | d-line)).a.b.c.\(\"a\".\"b\".\"c |
| 45bc0 | 5c 22 29 0a 53 57 41 4e 4b 3e 20 22 29 29 0a 20 20 28 77 69 74 68 2d 63 61 6e 6f 6e 69 63 61 6c | \").SWANK>."))...(with-canonical |
| 45be0 | 69 7a 65 64 2d 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 | ized-slime-repl-buffer.....(inse |
| 45c00 | 72 74 20 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 | rt.command).....(call-interactiv |
| 45c20 | 65 6c 79 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 28 64 6f 6c | ely.'slime-repl-return).....(dol |
| 45c40 | 69 73 74 20 28 69 6e 70 75 74 20 69 6e 70 75 74 73 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | ist.(input.inputs).......(slime- |
| 45c60 | 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 72 65 61 64 69 6e 67 22 20 23 27 73 6c 69 6d 65 | wait-condition."reading".#'slime |
| 45c80 | 2d 72 65 61 64 69 6e 67 2d 70 20 35 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 69 6e 70 75 | -reading-p.5).......(insert.inpu |
| 45ca0 | 74 29 0a 20 20 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 73 6c | t).......(call-interactively.'sl |
| 45cc0 | 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e | ime-repl-return)).....(slime-syn |
| 45ce0 | 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 | c-to-top-level.5).....(slime-tes |
| 45d00 | 74 2d 65 78 70 65 63 74 20 22 42 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 72 65 73 75 6c 74 | t-expect."Buffer.contains.result |
| 45d20 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 2d 63 | "........................final-c |
| 45d40 | 6f 6e 74 65 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ontents........................( |
| 45d60 | 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | buffer-string).................. |
| 45d80 | 20 20 20 20 20 20 23 27 65 71 75 61 6c 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 | ......#'equal)))..(def-slime-tes |
| 45da0 | 74 20 72 65 70 6c 2d 74 79 70 65 2d 61 68 65 61 64 0a 20 20 20 20 28 63 6f 6d 6d 61 6e 64 20 69 | t.repl-type-ahead.....(command.i |
| 45dc0 | 6e 70 75 74 20 66 69 6e 61 6c 2d 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 22 45 6e 73 75 72 65 | nput.final-contents)....."Ensure |
| 45de0 | 20 74 68 61 74 20 75 73 65 72 20 69 6e 70 75 74 20 69 73 20 70 72 65 73 65 72 76 65 64 20 63 6f | .that.user.input.is.preserved.co |
| 45e00 | 72 72 65 63 74 6c 79 2e 0a 49 6e 20 70 61 72 74 69 63 75 6c 61 72 2c 20 69 6e 70 75 74 20 69 6e | rrectly..In.particular,.input.in |
| 45e20 | 73 65 72 74 65 64 20 77 68 69 6c 65 20 77 61 69 74 69 6e 67 20 66 6f 72 20 61 20 72 65 73 75 6c | serted.while.waiting.for.a.resul |
| 45e40 | 74 2e 22 0a 20 20 20 20 27 28 28 22 28 73 6c 65 65 70 20 30 2e 31 29 22 20 22 66 6f 6f 2a 22 20 | t.".....'(("(sleep.0.1)"."foo*". |
| 45e60 | 22 53 57 41 4e 4b 3e 20 28 73 6c 65 65 70 20 30 2e 31 29 0a 4e 49 4c 0a 53 57 41 4e 4b 3e 20 5b | "SWANK>.(sleep.0.1).NIL.SWANK>.[ |
| 45e80 | 66 6f 6f 2a 5d 22 29 0a 20 20 20 20 20 20 28 22 28 73 6c 65 65 70 20 30 2e 31 29 22 20 22 2a 66 | foo*]").......("(sleep.0.1)"."*f |
| 45ea0 | 6f 6f 22 20 22 53 57 41 4e 4b 3e 20 28 73 6c 65 65 70 20 30 2e 31 29 0a 4e 49 4c 0a 53 57 41 4e | oo"."SWANK>.(sleep.0.1).NIL.SWAN |
| 45ec0 | 4b 3e 20 5b 2a 66 6f 6f 5d 22 29 0a 20 20 20 20 20 20 28 22 28 70 72 6f 67 6e 20 28 73 6c 65 65 | K>.[*foo]").......("(progn.(slee |
| 45ee0 | 70 20 30 2e 31 29 20 28 61 62 6f 72 74 29 29 22 20 22 2a 66 6f 6f 22 20 22 53 57 41 4e 4b 3e 20 | p.0.1).(abort))"."*foo"."SWANK>. |
| 45f00 | 28 70 72 6f 67 6e 20 28 73 6c 65 65 70 20 30 2e 31 29 20 28 61 62 6f 72 74 29 29 0a 3b 20 45 76 | (progn.(sleep.0.1).(abort)).;.Ev |
| 45f20 | 61 6c 75 61 74 69 6f 6e 20 61 62 6f 72 74 65 64 20 6f 6e 20 4e 49 4c 2e 0a 53 57 41 4e 4b 3e 20 | aluation.aborted.on.NIL..SWANK>. |
| 45f40 | 5b 2a 66 6f 6f 5d 22 29 29 0a 20 20 28 77 69 74 68 2d 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 2d | [*foo]"))...(with-canonicalized- |
| 45f60 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 20 63 6f | slime-repl-buffer.....(insert.co |
| 45f80 | 6d 6d 61 6e 64 29 0a 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 | mmand).....(call-interactively.' |
| 45fa0 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 | slime-repl-return).....(save-exc |
| 45fc0 | 75 72 73 69 6f 6e 20 28 69 6e 73 65 72 74 20 28 63 6c 2d 64 65 6c 65 74 65 20 3f 2a 20 69 6e 70 | ursion.(insert.(cl-delete.?*.inp |
| 45fe0 | 75 74 29 29 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 28 63 6c 2d 70 6f 73 69 | ut))).....(forward-char.(cl-posi |
| 46000 | 74 69 6f 6e 20 3f 2a 20 69 6e 70 75 74 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d | tion.?*.input)).....(slime-sync- |
| 46020 | 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b | to-top-level.5).....(slime-check |
| 46040 | 2d 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e 74 73 20 22 42 75 66 66 65 72 20 63 6f 6e 74 61 69 6e | -buffer-contents."Buffer.contain |
| 46060 | 73 20 72 65 73 75 6c 74 22 20 66 69 6e 61 6c 2d 63 6f 6e 74 65 6e 74 73 29 29 29 0a 0a 0a 28 64 | s.result".final-contents)))...(d |
| 46080 | 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 69 6e 74 65 72 72 75 70 74 2d 69 6e 2d 62 6c 6f 63 6b | ef-slime-test.interrupt-in-block |
| 460a0 | 69 6e 67 2d 72 65 61 64 0a 20 20 20 20 28 29 0a 20 20 20 20 22 4c 65 74 27 73 20 73 65 65 20 77 | ing-read.....()....."Let's.see.w |
| 460c0 | 68 61 74 20 68 61 70 70 65 6e 73 20 69 66 20 77 65 20 69 6e 74 65 72 72 75 70 74 20 61 20 62 6c | hat.happens.if.we.interrupt.a.bl |
| 460e0 | 6f 63 6b 69 6e 67 20 72 65 61 64 20 6f 70 65 72 61 74 69 6f 6e 2e 22 0a 20 20 20 20 27 28 28 29 | ocking.read.operation.".....'(() |
| 46100 | 29 0a 20 20 28 73 6c 69 6d 65 2d 73 6b 69 70 2d 74 65 73 74 20 22 54 4f 44 4f 3a 20 73 6b 69 70 | )...(slime-skip-test."TODO:.skip |
| 46120 | 20 66 6f 72 20 6e 6f 77 2c 20 62 75 74 20 61 6e 61 6c 79 73 65 20 74 68 69 73 20 66 61 69 6c 75 | .for.now,.but.analyse.this.failu |
| 46140 | 72 65 21 22 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a | re!")...(slime-check-top-level). |
| 46160 | 20 20 28 77 69 74 68 2d 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 2d 73 6c 69 6d 65 2d 72 65 70 6c | ..(with-canonicalized-slime-repl |
| 46180 | 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 28 72 65 61 64 2d 63 68 61 72 29 | -buffer.....(insert."(read-char) |
| 461a0 | 22 29 0a 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 73 6c 69 6d | ").....(call-interactively.'slim |
| 461c0 | 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 | e-repl-return).....(slime-wait-c |
| 461e0 | 6f 6e 64 69 74 69 6f 6e 20 22 72 65 61 64 69 6e 67 22 20 23 27 73 6c 69 6d 65 2d 72 65 61 64 69 | ondition."reading".#'slime-readi |
| 46200 | 6e 67 2d 70 20 35 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 29 0a 20 20 | ng-p.5).....(slime-interrupt)... |
| 46220 | 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 44 65 62 75 67 67 65 | ..(slime-wait-condition."Debugge |
| 46240 | 72 20 76 69 73 69 62 6c 65 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.visible"...................... |
| 46260 | 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(lambda.()................. |
| 46280 | 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 6c 69 6d 65 2d 73 6c 64 62 2d 6c 65 76 | ............(and.(slime-sldb-lev |
| 462a0 | 65 6c 3d 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | el=.1).......................... |
| 462c0 | 20 20 20 20 20 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 | ........(get-buffer-window...... |
| 462e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | .............................(sl |
| 46300 | 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 | db-get-default-buffer))))....... |
| 46320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 29 0a 20 20 20 20 28 77 69 74 68 | ....................5).....(with |
| 46340 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c | -current-buffer.(sldb-get-defaul |
| 46360 | 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 29 29 | t-buffer).......(sldb-continue)) |
| 46380 | 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 72 65 61 64 | .....(slime-wait-condition."read |
| 463a0 | 69 6e 67 22 20 23 27 73 6c 69 6d 65 2d 72 65 61 64 69 6e 67 2d 70 20 35 29 0a 20 20 20 20 28 77 | ing".#'slime-reading-p.5).....(w |
| 463c0 | 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 | ith-current-buffer.(slime-output |
| 463e0 | 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 58 22 29 0a 20 20 20 20 | -buffer).......(insert."X")..... |
| 46400 | 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 73 6c 69 6d 65 2d 72 65 70 | ..(call-interactively.'slime-rep |
| 46420 | 6c 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 | l-return).......(slime-sync-to-t |
| 46440 | 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 | op-level.5).......(slime-test-ex |
| 46460 | 70 65 63 74 20 22 42 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 72 65 73 75 6c 74 22 0a 20 20 | pect."Buffer.contains.result"... |
| 46480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53 57 41 4e 4b 3e 20 28 | ......................."SWANK>.( |
| 464a0 | 72 65 61 64 2d 63 68 61 72 29 0a 58 0a 23 5c 5c 58 0a 53 57 41 4e 4b 3e 20 22 20 28 62 75 66 66 | read-char).X.#\\X.SWANK>.".(buff |
| 464c0 | 65 72 2d 73 74 72 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 | er-string)))))..(def-slime-test. |
| 464e0 | 6d 6f 76 65 2d 61 72 6f 75 6e 64 2d 61 6e 64 2d 62 65 2d 6e 61 73 74 79 0a 20 20 20 20 28 29 0a | move-around-and-be-nasty.....(). |
| 46500 | 20 20 20 20 22 54 65 73 74 20 6d 6f 76 69 6e 67 20 61 72 6f 75 6e 64 20 69 6e 20 72 65 70 6c 2c | ...."Test.moving.around.in.repl, |
| 46520 | 20 61 6e 64 20 77 61 74 63 68 69 6e 67 20 61 74 74 65 6d 70 74 73 20 74 6f 20 64 65 73 74 72 6f | .and.watching.attempts.to.destro |
| 46540 | 79 20 70 72 6f 6d 70 74 20 66 61 69 6c 22 0a 20 20 20 20 27 28 28 29 29 0a 20 20 28 73 6c 69 6d | y.prompt.fail".....'(())...(slim |
| 46560 | 65 2d 73 6b 69 70 2d 74 65 73 74 20 22 54 4f 44 4f 3a 20 54 65 73 74 20 63 61 75 73 65 73 20 69 | e-skip-test."TODO:.Test.causes.i |
| 46580 | 6e 73 74 61 62 69 6c 69 74 79 20 66 6f 72 20 6f 74 68 65 72 20 74 65 73 74 73 2e 22 29 0a 20 20 | nstability.for.other.tests.")... |
| 465a0 | 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 77 69 74 68 2d | (slime-check-top-level)...(with- |
| 465c0 | 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 2d 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 75 66 66 65 72 0a | canonicalized-slime-repl-buffer. |
| 465e0 | 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 | ....(let.((start.(point)))...... |
| 46600 | 20 28 69 6e 73 65 72 74 20 22 66 6f 6f 22 29 0a 20 20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 | .(insert."foo").......(beginning |
| 46620 | 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 28 73 68 6f 75 6c 64 20 28 65 71 75 61 6c 20 28 | -of-line).......(should.(equal.( |
| 46640 | 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 | buffer-substring-no-properties.. |
| 46660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 | .....................(point-min) |
| 46680 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 | .......................(point-ma |
| 466a0 | 78 29 29 20 22 53 57 41 4e 4b 3e 20 66 6f 6f 22 29 29 0a 20 20 20 20 20 20 28 73 68 6f 75 6c 64 | x))."SWANK>.foo")).......(should |
| 466c0 | 20 28 65 71 75 61 6c 20 28 70 6f 69 6e 74 29 20 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 28 75 | .(equal.(point).start)).......(u |
| 466e0 | 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 | nwind-protect...........(progn.. |
| 46700 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 66 69 65 6c 64 2d | ...........(let.((inhibit-field- |
| 46720 | 74 65 78 74 2d 6d 6f 74 69 6f 6e 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 | text-motion.t))...............(g |
| 46740 | 6f 74 6f 2d 63 68 61 72 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f | oto-char.(line-beginning-positio |
| 46760 | 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 68 6f 75 6c 64 2d 65 72 72 6f 72 20 28 | n))).............(should-error.( |
| 46780 | 64 65 6c 65 74 65 2d 63 68 61 72 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | delete-char.1))).........(goto-c |
| 467a0 | 68 61 72 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 29 29 0a 0a 28 64 | har.(line-end-position))))))..(d |
| 467c0 | 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 6d 69 78 65 64 2d 6f 75 74 70 75 74 2d 61 6e 64 2d 72 | ef-slime-test.mixed-output-and-r |
| 467e0 | 65 73 75 6c 74 73 0a 20 20 20 20 28 70 72 6f 6d 70 74 20 65 76 61 6c 2d 69 6e 70 75 74 20 72 65 | esults.....(prompt.eval-input.re |
| 46800 | 73 75 6c 74 2d 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 22 54 65 73 74 20 74 68 61 74 20 6f 75 | sult-contents)....."Test.that.ou |
| 46820 | 74 70 75 74 20 67 6f 65 73 20 74 6f 20 74 68 65 20 63 6f 72 72 65 63 74 20 70 6c 61 63 65 73 2e | tput.goes.to.the.correct.places. |
| 46840 | 22 0a 20 20 20 20 27 28 28 22 28 70 72 69 6e 63 20 31 32 33 29 22 20 28 63 6c 3a 6c 6f 6f 70 20 | ".....'(("(princ.123)".(cl:loop. |
| 46860 | 72 65 70 65 61 74 20 32 20 64 6f 20 28 63 6c 3a 70 72 69 6e 63 20 34 35 36 29 29 20 22 53 57 41 | repeat.2.do.(cl:princ.456))."SWA |
| 46880 | 4e 4b 3e 20 28 70 72 69 6e 63 20 31 32 33 29 0a 31 32 33 0a 31 32 33 0a 34 35 36 34 35 36 0a 53 | NK>.(princ.123).123.123.456456.S |
| 468a0 | 57 41 4e 4b 3e 20 22 29 29 0a 20 20 28 77 69 74 68 2d 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 2d | WANK>."))...(with-canonicalized- |
| 468c0 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 20 70 72 | slime-repl-buffer.....(insert.pr |
| 468e0 | 6f 6d 70 74 29 0a 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 73 | ompt).....(call-interactively.'s |
| 46900 | 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e | lime-repl-return).....(slime-syn |
| 46920 | 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 | c-to-top-level.5).....(slime-eva |
| 46940 | 6c 20 65 76 61 6c 2d 69 6e 70 75 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f | l.eval-input).....(slime-sync-to |
| 46960 | 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 | -top-level.5).....(slime-test-ex |
| 46980 | 70 65 63 74 20 22 42 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 72 65 73 75 6c 74 22 0a 20 20 | pect."Buffer.contains.result"... |
| 469a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 2d 63 6f 6e 74 | .....................result-cont |
| 469c0 | 65 6e 74 73 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 | ents.(buffer-string))))..(provid |
| 469e0 | 65 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 74 65 73 74 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 | e.'slime-repl-tests)............ |
| 46a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 66 6f | slime-2.31/contrib/test/slime-fo |
| 46a20 | 6e 74 69 66 79 69 6e 67 2d 66 75 2d 74 65 73 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 | ntifying-fu-tests.el............ |
| 46a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 46a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 46a80 | 30 30 30 34 36 32 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 32 31 32 31 34 00 20 30 00 00 00 | 0004627.00000000000.021214..0... |
| 46aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 46ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 46ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 46b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 46b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 46b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 46b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 46b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 46ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 46bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 46be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 46c00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 66 6f 6e 74 69 66 79 69 6e 67 2d 66 75 29 0a 28 | (require.'slime-fontifying-fu).( |
| 46c20 | 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 74 65 73 74 73 29 0a 0a 28 64 65 66 2d 73 6c 69 6d | require.'slime-tests)..(def-slim |
| 46c40 | 65 2d 74 65 73 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 61 67 69 63 20 28 62 75 66 66 65 72 2d 63 | e-test.font-lock-magic.(buffer-c |
| 46c60 | 6f 6e 74 65 6e 74 29 0a 20 20 20 20 22 53 6f 6d 65 20 74 65 73 74 69 6e 67 20 66 6f 72 20 74 68 | ontent)....."Some.testing.for.th |
| 46c80 | 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 61 67 69 63 2e 20 2a 59 45 53 2a 20 73 68 6f 75 6c 64 20 | e.font-lock-magic..*YES*.should. |
| 46ca0 | 62 65 0a 20 20 20 20 68 69 67 68 6c 69 67 68 74 65 64 20 61 73 20 61 20 73 75 70 70 72 65 73 73 | be.....highlighted.as.a.suppress |
| 46cc0 | 65 64 20 66 6f 72 6d 2c 20 2a 4e 4f 2a 20 73 68 6f 75 6c 64 20 6e 6f 74 2e 22 0a 0a 20 20 20 20 | ed.form,.*NO*.should.not."...... |
| 46ce0 | 27 28 28 22 28 64 65 66 75 6e 20 2a 4e 4f 2a 20 28 78 20 79 29 20 28 2b 20 78 20 79 29 29 22 29 | '(("(defun.*NO*.(x.y).(+.x.y))") |
| 46d00 | 0a 20 20 20 20 20 20 28 22 28 64 65 66 75 6e 20 2a 4e 4f 2a 22 29 0a 20 20 20 20 20 20 28 22 2a | .......("(defun.*NO*").......("* |
| 46d20 | 4e 4f 2a 29 20 23 2d 28 61 6e 64 29 20 28 2a 59 45 53 2a 29 20 28 2a 4e 4f 2a 20 2a 4e 4f 2a 22 | NO*).#-(and).(*YES*).(*NO*.*NO*" |
| 46d40 | 29 0a 20 20 20 20 20 20 28 22 5c 28 0a 5c 28 64 65 66 75 6e 20 2a 4e 4f 2a 22 29 0a 20 20 20 20 | ).......("\(.\(defun.*NO*")..... |
| 46d60 | 20 20 28 22 5c 29 0a 5c 28 64 65 66 75 6e 20 2a 4e 4f 2a 0a 20 20 20 20 5c 28 0a 5c 29 22 29 0a | ..("\).\(defun.*NO*.....\(.\)"). |
| 46d80 | 20 20 20 20 20 20 28 22 23 2b 23 2e 66 6f 6f 0a 5c 28 64 65 66 75 6e 20 2a 4e 4f 2a 20 28 78 20 | ......("#+#.foo.\(defun.*NO*.(x. |
| 46da0 | 79 29 20 28 2b 20 78 20 79 29 29 22 29 0a 20 20 20 20 20 20 28 22 23 2b 23 2e 66 6f 6f 0a 5c 28 | y).(+.x.y))").......("#+#.foo.\( |
| 46dc0 | 64 65 66 75 6e 20 2a 4e 4f 2a 20 28 78 20 22 29 0a 20 20 20 20 20 20 28 22 23 2b 28 0a 5c 28 64 | defun.*NO*.(x.").......("#+(.\(d |
| 46de0 | 65 66 75 6e 20 2a 4e 4f 2a 20 28 78 20 22 29 0a 20 20 20 20 20 20 28 22 23 2b 28 74 65 73 74 29 | efun.*NO*.(x.").......("#+(test) |
| 46e00 | 0a 5c 28 64 65 66 75 6e 20 2a 4e 4f 2a 20 28 78 20 22 29 0a 0a 20 20 20 20 20 20 28 22 28 65 76 | .\(defun.*NO*.(x.")........("(ev |
| 46e20 | 61 6c 2d 77 68 65 6e 20 28 2e 2e 2e 29 0a 5c 28 64 65 66 75 6e 20 2a 4e 4f 2a 20 28 78 20 22 29 | al-when.(...).\(defun.*NO*.(x.") |
| 46e40 | 0a 0a 20 20 20 20 20 20 28 22 28 65 76 61 6c 2d 77 68 65 6e 20 28 2e 2e 2e 29 0a 23 2b 28 61 6e | ........("(eval-when.(...).#+(an |
| 46e60 | 64 29 0a 5c 28 64 65 66 75 6e 20 2a 4e 4f 2a 20 28 78 20 22 29 0a 0a 20 20 20 20 20 20 28 22 23 | d).\(defun.*NO*.(x.")........("# |
| 46e80 | 2d 28 61 6e 64 29 20 28 64 65 66 75 6e 20 2a 59 45 53 2a 20 28 78 20 79 29 20 28 2b 20 78 20 79 | -(and).(defun.*YES*.(x.y).(+.x.y |
| 46ea0 | 29 29 22 29 0a 20 20 20 20 20 20 28 22 0a 23 2d 28 61 6e 64 29 20 28 64 65 66 75 6e 20 2a 59 45 | ))").......(".#-(and).(defun.*YE |
| 46ec0 | 53 2a 20 28 78 20 79 29 20 28 2b 20 78 20 79 29 29 0a 23 2b 28 61 6e 64 29 20 28 64 65 66 75 6e | S*.(x.y).(+.x.y)).#+(and).(defun |
| 46ee0 | 20 2a 4e 4f 2a 20 28 78 20 79 29 20 28 2b 20 78 20 79 29 29 22 29 0a 0a 20 20 20 20 20 20 28 22 | .*NO*.(x.y).(+.x.y))")........(" |
| 46f00 | 23 2b 28 61 6e 64 29 20 28 64 65 66 75 6e 20 2a 4e 4f 2a 20 28 78 20 79 29 20 23 2d 28 61 6e 64 | #+(and).(defun.*NO*.(x.y).#-(and |
| 46f20 | 29 20 28 2b 20 2a 59 45 53 2a 20 79 29 29 22 29 0a 20 20 20 20 20 20 28 22 23 7c 20 23 2b 28 6f | ).(+.*YES*.y))").......("#|.#+(o |
| 46f40 | 72 29 20 7c 23 20 2a 4e 4f 2a 22 29 0a 20 20 20 20 20 20 28 22 23 7c 20 23 2b 28 6f 72 29 20 78 | r).|#.*NO*").......("#|.#+(or).x |
| 46f60 | 20 7c 23 20 2a 4e 4f 2a 22 29 0a 20 20 20 20 20 20 28 22 2a 4e 4f 2a 20 5c 22 23 7c 20 2a 4e 4f | .|#.*NO*").......("*NO*.\"#|.*NO |
| 46f80 | 2a 20 23 2b 28 6f 72 29 20 78 20 7c 23 20 2a 4e 4f 2a 5c 22 20 2a 4e 4f 2a 22 29 0a 20 20 20 20 | *.#+(or).x.|#.*NO*\".*NO*")..... |
| 46fa0 | 20 20 28 22 23 2b 23 2e 66 6f 6f 20 28 64 65 66 75 6e 20 66 6f 6f 20 28 62 61 72 29 29 0a 23 2d | ..("#+#.foo.(defun.foo.(bar)).#- |
| 46fc0 | 28 61 6e 64 29 20 2a 59 45 53 2a 20 2a 4e 4f 2a 20 62 61 72 0a 22 29 0a 20 20 20 20 20 20 28 22 | (and).*YES*.*NO*.bar.").......(" |
| 46fe0 | 23 2b 28 66 6f 6f 29 20 28 64 65 66 75 6e 20 66 6f 6f 20 28 62 61 72 29 29 0a 23 2d 28 61 6e 64 | #+(foo).(defun.foo.(bar)).#-(and |
| 47000 | 29 20 2a 59 45 53 2a 20 2a 4e 4f 2a 20 62 61 72 22 29 0a 20 20 20 20 20 20 28 22 23 7c 20 23 2b | ).*YES*.*NO*.bar").......("#|.#+ |
| 47020 | 28 6f 72 29 20 7c 23 20 2a 4e 4f 2a 20 66 6f 6f 0a 23 2d 28 61 6e 64 29 20 2a 59 45 53 2a 20 2a | (or).|#.*NO*.foo.#-(and).*YES*.* |
| 47040 | 4e 4f 2a 22 29 0a 20 20 20 20 20 20 28 22 23 2d 20 28 61 6e 64 29 0a 5c 28 2a 59 45 53 2a 29 0a | NO*").......("#-.(and).\(*YES*). |
| 47060 | 5c 28 2a 4e 4f 2a 29 0a 23 2d 28 61 6e 64 29 0a 5c 28 2a 59 45 53 2a 29 0a 5c 28 2a 4e 4f 2a 29 | \(*NO*).#-(and).\(*YES*).\(*NO*) |
| 47080 | 22 29 0a 20 20 20 20 20 20 28 22 23 2b 6e 69 6c 20 28 66 6f 6f 29 0a 0a 23 2d 28 61 6e 64 29 0a | ").......("#+nil.(foo)..#-(and). |
| 470a0 | 23 2b 6e 69 6c 20 28 0a 20 20 20 20 20 20 20 61 73 64 66 20 2a 59 45 53 2a 20 61 0a 20 20 20 20 | #+nil.(........asdf.*YES*.a..... |
| 470c0 | 20 20 20 20 20 20 20 20 66 73 64 66 61 64 29 0a 0a 5c 28 20 61 73 64 66 20 2a 59 45 53 2a 0a 0a | ........fsdfad)..\(.asdf.*YES*.. |
| 470e0 | 20 20 20 20 20 20 20 29 0a 5c 28 2a 4e 4f 2a 29 0a 0a 22 29 0a 20 20 20 20 20 20 28 22 2a 4e 4f | .......).\(*NO*)..").......("*NO |
| 47100 | 2a 0a 0a 23 2d 28 61 6e 64 29 20 5c 28 70 72 6f 67 6e 0a 20 20 20 23 2d 28 61 6e 64 29 0a 20 20 | *..#-(and).\(progn....#-(and)... |
| 47120 | 20 28 64 65 66 75 6e 20 2a 59 45 53 2a 20 2e 2e 2e 29 0a 0a 20 20 20 23 2b 28 61 6e 64 29 0a 20 | .(defun.*YES*....).....#+(and).. |
| 47140 | 20 20 28 64 65 66 75 6e 20 2a 59 45 53 2a 20 2e 2e 2e 29 0a 0a 20 20 20 28 64 65 66 75 6e 20 2a | ..(defun.*YES*....).....(defun.* |
| 47160 | 59 45 53 2a 20 2e 2e 2e 29 0a 0a 20 20 20 2a 59 45 53 2a 0a 0a 20 20 20 2a 59 45 53 2a 0a 0a 20 | YES*....).....*YES*.....*YES*... |
| 47180 | 20 20 2a 59 45 53 2a 0a 0a 20 20 20 2a 59 45 53 2a 0a 5c 29 0a 0a 2a 4e 4f 2a 22 29 0a 20 20 20 | ..*YES*.....*YES*.\)..*NO*").... |
| 471a0 | 20 20 20 28 22 23 2d 28 6e 6f 74 29 20 2a 59 45 53 2a 20 2a 4e 4f 2a 0a 0a 2a 4e 4f 2a 0a 0a 23 | ...("#-(not).*YES*.*NO*..*NO*..# |
| 471c0 | 2b 28 6e 6f 74 29 20 2a 4e 4f 2a 20 2a 4e 4f 2a 0a 0a 2a 4e 4f 2a 0a 0a 23 2b 28 6e 6f 74 20 61 | +(not).*NO*.*NO*..*NO*..#+(not.a |
| 471e0 | 20 62 20 63 29 20 2a 4e 4f 2a 20 2a 4e 4f 2a 0a 0a 2a 4e 4f 2a 22 29 29 0a 20 20 28 73 6c 69 6d | .b.c).*NO*.*NO*..*NO*"))...(slim |
| 47200 | 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d | e-check-top-level)...(with-temp- |
| 47220 | 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 20 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e | buffer.....(insert.buffer-conten |
| 47240 | 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 69 74 69 61 6c 69 7a 65 2d 6c 69 73 70 2d 62 75 | t).....(slime-initialize-lisp-bu |
| 47260 | 66 66 65 72 2d 66 6f 72 2d 74 65 73 74 2d 73 75 69 74 65 0a 20 20 20 20 20 3a 61 75 74 6f 64 6f | ffer-for-test-suite......:autodo |
| 47280 | 63 20 74 20 3a 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 61 67 69 63 20 74 29 0a 20 20 20 20 3b 3b 20 43 | c.t.:font-lock-magic.t).....;;.C |
| 472a0 | 61 6e 27 74 20 75 73 65 20 60 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 6f 6e 74 69 66 79 2d 62 75 66 66 | an't.use.`font-lock-fontify-buff |
| 472c0 | 65 72 27 20 62 65 63 61 75 73 65 20 66 6f 72 20 74 68 65 20 63 61 73 65 20 77 68 65 6e 0a 20 20 | er'.because.for.the.case.when... |
| 472e0 | 20 20 3b 3b 20 60 6a 69 74 2d 6c 6f 63 6b 2d 6d 6f 64 65 27 20 69 73 20 65 6e 61 62 6c 65 64 2e | ..;;.`jit-lock-mode'.is.enabled. |
| 47300 | 20 4a 69 74 2d 6c 6f 63 6b 2d 6d 6f 64 65 20 66 6f 6e 74 69 66 69 65 73 20 6f 6e 6c 79 20 6f 6e | .Jit-lock-mode.fontifies.only.on |
| 47320 | 0a 20 20 20 20 3b 3b 20 61 63 74 75 61 6c 20 64 69 73 70 6c 61 79 2e 0a 20 20 20 20 28 66 6f 6e | .....;;.actual.display......(fon |
| 47340 | 74 2d 6c 6f 63 6b 2d 64 65 66 61 75 6c 74 2d 66 6f 6e 74 69 66 79 2d 62 75 66 66 65 72 29 0a 20 | t-lock-default-fontify-buffer).. |
| 47360 | 20 20 20 28 77 68 65 6e 20 28 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 2a 4e 4f 2a 22 | ...(when.(search-backward."*NO*" |
| 47380 | 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 | .nil.t).......(slime-test-expect |
| 473a0 | 20 22 4e 6f 74 20 73 75 70 70 72 65 73 73 65 64 20 62 79 20 72 65 61 64 65 72 20 63 6f 6e 64 69 | ."Not.suppressed.by.reader.condi |
| 473c0 | 74 69 6f 6e 61 6c 3f 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tional?"........................ |
| 473e0 | 20 20 27 73 6c 69 6d 65 2d 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 2d 66 61 63 65 | ..'slime-reader-conditional-face |
| 47400 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 | ..........................(get-t |
| 47420 | 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 66 61 63 65 29 0a 20 20 20 20 | ext-property.(point).'face)..... |
| 47440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 | .....................#'(lambda.( |
| 47460 | 78 20 79 29 20 28 6e 6f 74 20 28 65 71 20 78 20 79 29 29 29 29 29 0a 20 20 20 20 28 67 6f 74 6f | x.y).(not.(eq.x.y))))).....(goto |
| 47480 | 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 73 65 | -char.(point-max)).....(when.(se |
| 474a0 | 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 2a 59 45 53 2a 22 20 6e 69 6c 20 74 29 0a 20 20 20 | arch-backward."*YES*".nil.t).... |
| 474c0 | 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 53 75 70 70 72 65 73 73 65 | ...(slime-test-expect."Suppresse |
| 474e0 | 64 20 62 79 20 72 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 3f 22 0a 20 20 20 20 20 20 | d.by.reader.conditional?"....... |
| 47500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 72 65 61 64 65 72 | ...................'slime-reader |
| 47520 | 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -conditional-face............... |
| 47540 | 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 | ...........(get-text-property.(p |
| 47560 | 6f 69 6e 74 29 20 27 66 61 63 65 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d | oint).'face)))))..(provide.'slim |
| 47580 | 65 2d 66 6f 6e 74 69 66 79 69 6e 67 2d 66 75 2d 74 65 73 74 73 29 0a 00 00 00 00 00 00 00 00 00 | e-fontifying-fu-tests).......... |
| 475a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 475c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 475e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 47600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 69 6e | slime-2.31/contrib/test/slime-in |
| 47620 | 64 65 6e 74 61 74 69 6f 6e 2d 74 65 73 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | dentation-tests.el.............. |
| 47640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 47660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 47680 | 30 30 30 36 32 35 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 32 30 37 34 34 00 20 30 00 00 00 | 0006256.00000000000.020744..0... |
| 476a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 476c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 476e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 47700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 47720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 47740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 47760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 47780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 477a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 477c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 477e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 47800 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 28 72 65 | (require.'slime-indentation).(re |
| 47820 | 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 74 65 73 74 73 29 0a 0a 28 64 65 66 69 6e 65 2d 63 6f 6d | quire.'slime-tests)..(define-com |
| 47840 | 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 20 22 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 | mon-lisp-style."common-lisp-inde |
| 47860 | 6e 74 2d 74 65 73 74 22 0a 20 20 20 20 3b 3b 20 55 73 65 64 20 74 6f 20 73 70 65 63 69 66 79 20 | nt-test".....;;.Used.to.specify. |
| 47880 | 61 20 66 65 77 20 63 6f 6d 70 6c 65 78 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 70 65 63 73 20 | a.few.complex.indentation.specs. |
| 478a0 | 66 6f 72 20 74 65 73 74 69 6e 67 2e 0a 20 20 20 20 28 3a 69 6e 68 65 72 69 74 20 22 62 61 73 69 | for.testing......(:inherit."basi |
| 478c0 | 63 22 29 0a 20 20 20 20 28 3a 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 28 63 6f 6d 70 | c").....(:indentation......(comp |
| 478e0 | 6c 65 78 2d 69 6e 64 65 6e 74 2e 31 20 28 28 26 77 68 6f 6c 65 20 34 20 28 26 77 68 6f 6c 65 20 | lex-indent.1.((&whole.4.(&whole. |
| 47900 | 31 20 31 20 31 20 31 20 28 26 77 68 6f 6c 65 20 31 20 31 29 20 26 72 65 73 74 20 31 29 0a 20 20 | 1.1.1.1.(&whole.1.1).&rest.1)... |
| 47920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 62 | ..............................&b |
| 47940 | 6f 64 79 29 20 26 62 6f 64 79 29 29 0a 20 20 20 20 20 28 63 6f 6d 70 6c 65 78 2d 69 6e 64 65 6e | ody).&body))......(complex-inden |
| 47960 | 74 2e 32 20 28 34 20 28 26 77 68 6f 6c 65 20 34 20 26 72 65 73 74 20 31 29 20 26 62 6f 64 79 29 | t.2.(4.(&whole.4.&rest.1).&body) |
| 47980 | 29 0a 20 20 20 20 20 28 63 6f 6d 70 6c 65 78 2d 69 6e 64 65 6e 74 2e 33 20 28 34 20 26 62 6f 64 | )......(complex-indent.3.(4.&bod |
| 479a0 | 79 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d | y))))..(defun.slime-indentation- |
| 479c0 | 6d 65 73 73 2d 75 70 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 29 0a 20 20 20 20 28 77 68 69 6c | mess-up-indentation.().....(whil |
| 479e0 | 65 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 | e.(not.(eobp)).......(forward-li |
| 47a00 | 6e 65 20 31 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 | ne.1).......(unless.(looking-at. |
| 47a20 | 22 5e 24 22 29 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 63 61 73 65 20 28 72 61 6e 64 6f 6d 20 32 | "^$").........(cl-case.(random.2 |
| 47a40 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 30 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 44 65 6c | )...........(0............;;.Del |
| 47a60 | 65 74 65 20 61 6c 6c 20 6c 65 61 64 69 6e 67 20 77 68 69 74 65 73 70 61 63 65 20 2d 2d 20 65 78 | ete.all.leading.whitespace.--.ex |
| 47a80 | 63 65 70 74 20 66 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6d 6d 65 6e 74 20 6c | cept.for............;;.comment.l |
| 47aa0 | 69 6e 65 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 6c 6f | ines.............(while.(and.(lo |
| 47ac0 | 6f 6b 69 6e 67 2d 61 74 20 22 20 22 29 20 28 6e 6f 74 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 | oking-at.".").(not.(looking-at." |
| 47ae0 | 20 3b 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 63 68 61 72 | .;")))..............(delete-char |
| 47b00 | 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 31 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b | .1)))...........(1............;; |
| 47b20 | 20 49 6e 73 65 72 74 20 77 68 69 74 65 73 70 61 63 65 20 72 61 6e 64 6f 6d 2e 0a 20 20 20 20 20 | .Insert.whitespace.random....... |
| 47b40 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 20 28 31 2b 20 28 72 61 6e 64 6f 6d 20 32 34 29 29 29 | ......(let.((n.(1+.(random.24))) |
| 47b60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 3e 20 6e 20 30 29 20 28 63 | )..............(while.(>.n.0).(c |
| 47b80 | 6c 2d 64 65 63 66 20 6e 29 20 28 69 6e 73 65 72 74 20 22 20 22 29 29 29 29 29 29 29 0a 20 20 20 | l-decf.n).(insert."."))))))).... |
| 47ba0 | 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 0a 0a 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d | .(buffer-string))..(eval-and-com |
| 47bc0 | 70 69 6c 65 0a 20 20 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d | pile...(defun.slime-indentation- |
| 47be0 | 74 65 73 74 2d 66 6f 72 6d 20 28 74 65 73 74 2d 6e 61 6d 65 20 62 69 6e 64 69 6e 67 73 20 65 78 | test-form.(test-name.bindings.ex |
| 47c00 | 70 65 63 74 65 64 29 0a 20 20 20 20 60 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 65 72 74 2d 74 | pected).....`(define-slime-ert-t |
| 47c20 | 65 73 74 20 2c 74 65 73 74 2d 6e 61 6d 65 20 28 29 0a 20 20 20 20 20 20 20 2c 28 66 6f 72 6d 61 | est.,test-name.()........,(forma |
| 47c40 | 74 20 22 41 6e 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 65 73 74 20 6e 61 6d 65 64 20 60 25 73 | t."An.indentation.test.named.`%s |
| 47c60 | 27 22 20 74 65 73 74 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d | '".test-name)........(with-temp- |
| 47c80 | 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 | buffer..........(lisp-mode)..... |
| 47ca0 | 20 20 20 20 20 28 73 65 74 71 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 20 6e 69 6c 29 | .....(setq.indent-tabs-mode.nil) |
| 47cc0 | 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 65 74 2d 73 74 79 6c 65 | ..........(common-lisp-set-style |
| 47ce0 | 20 22 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 74 65 73 74 22 29 0a 20 20 20 20 | ."common-lisp-indent-test")..... |
| 47d00 | 20 20 20 20 20 28 6c 65 74 20 2c 28 63 6f 6e 73 20 60 28 65 78 70 65 63 74 65 64 20 2c 65 78 70 | .....(let.,(cons.`(expected.,exp |
| 47d20 | 65 63 74 65 64 29 20 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 | ected).bindings)............(ins |
| 47d40 | 65 72 74 20 65 78 70 65 63 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | ert.expected)............(goto-c |
| 47d60 | 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | har.(point-min))............(let |
| 47d80 | 20 28 28 6d 65 73 73 20 28 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 6d 65 73 73 2d | .((mess.(slime-indentation-mess- |
| 47da0 | 75 70 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | up-indentation)))..............( |
| 47dc0 | 77 68 65 6e 20 28 73 74 72 69 6e 67 3d 20 6d 65 73 73 20 65 78 70 65 63 74 65 64 29 0a 20 20 20 | when.(string=.mess.expected).... |
| 47de0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 74 2d 66 61 69 6c 20 22 43 6f 75 6c 64 20 6e 6f 74 | ............(ert-fail."Could.not |
| 47e00 | 20 6d 65 73 73 20 75 70 20 69 6e 64 65 6e 74 61 74 69 6f 6e 3f 22 29 29 0a 20 20 20 20 20 20 20 | .mess.up.indentation?"))........ |
| 47e20 | 20 20 20 20 20 20 28 69 6e 64 65 6e 74 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 | ......(indent-region.(point-min) |
| 47e40 | 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 | .(point-max))..............(dele |
| 47e60 | 74 65 2d 74 72 61 69 6c 69 6e 67 2d 77 68 69 74 65 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 | te-trailing-whitespace)......... |
| 47e80 | 20 20 20 20 20 28 73 68 6f 75 6c 64 20 28 65 71 75 61 6c 20 65 78 70 65 63 74 65 64 20 28 62 75 | .....(should.(equal.expected.(bu |
| 47ea0 | 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 29 29 29 29 29 0a 20 20 0a 20 20 28 64 65 66 75 6e 20 | ffer-string))))))))......(defun. |
| 47ec0 | 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 74 65 73 74 2d 66 6f 72 6d 73 2d 66 6f 72 | slime-indentation-test-forms-for |
| 47ee0 | 2d 66 69 6c 65 20 28 66 69 6c 65 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 | -file.(file).....(with-current-b |
| 47f00 | 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 | uffer.........(find-file-noselec |
| 47f20 | 74 20 28 63 6f 6e 63 61 74 20 73 6c 69 6d 65 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 | t.(concat.slime-path............ |
| 47f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2f 63 6f 6e 74 72 | ........................."/contr |
| 47f60 | 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 63 6c 2d 69 6e 64 65 6e 74 2d 74 65 73 74 2e 74 78 74 | ib/test/slime-cl-indent-test.txt |
| 47f80 | 22 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 | ")).......(goto-char.(point-min) |
| 47fa0 | 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 20 20 77 68 69 6c 65 20 28 72 | ).......(cl-loop........while.(r |
| 47fc0 | 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 3b 3b 3b 20 54 65 73 74 3a 5b 5c 74 5c 6e | e-search-forward.";;;.Test:[\t\n |
| 47fe0 | 5c 73 5d 2a 5c 5c 28 2e 2a 5c 5c 29 5b 5c 74 5c 6e 5c 73 5d 22 20 6e 69 6c 20 74 29 0a 20 20 20 | \s]*\\(.*\\)[\t\n\s]".nil.t).... |
| 48000 | 20 20 20 20 66 6f 72 20 74 65 73 74 2d 6e 61 6d 65 20 3d 20 28 69 6e 74 65 72 6e 20 28 6d 61 74 | ....for.test-name.=.(intern.(mat |
| 48020 | 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 29 29 0a 20 20 20 20 | ch-string-no-properties.1))..... |
| 48040 | 20 20 20 66 6f 72 20 62 69 6e 64 69 6e 67 73 20 3d 0a 20 20 20 20 20 20 20 28 73 61 76 65 2d 72 | ...for.bindings.=........(save-r |
| 48060 | 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 | estriction..........(narrow-to-r |
| 48080 | 65 67 69 6f 6e 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | egion.(point)................... |
| 480a0 | 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 66 6f 72 77 61 72 64 2d 63 6f 6d 6d 65 6e 74 | .........(progn.(forward-comment |
| 480c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 480e0 | 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(point-max))................ |
| 48100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 | ...................(point))).... |
| 48120 | 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 | ......(save-excursion........... |
| 48140 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 | .(goto-char.(point-min))........ |
| 48160 | 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 68 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(cl-loop.while.............. |
| 48180 | 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 0a 20 20 20 20 20 20 | .......(re-search-forward....... |
| 481a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 5c 28 5b 5e 5c 73 5d 2a 5c 5c 29 5b 5c 74 5c | ..............."\\([^\s]*\\)[\t\ |
| 481c0 | 6e 5c 73 5d 2a 3a 5b 5c 74 5c 6e 5c 73 5d 2a 5c 5c 28 2e 2a 5c 5c 29 5b 5c 74 5c 6e 5c 73 5d 22 | n\s]*:[\t\n\s]*\\(.*\\)[\t\n\s]" |
| 481e0 | 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c | .nil.t).....................coll |
| 48200 | 65 63 74 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ect.(list....................... |
| 48220 | 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d | .......(intern.(match-string-no- |
| 48240 | 70 72 6f 70 65 72 74 69 65 73 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | properties.1)).................. |
| 48260 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............(car................ |
| 48280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 | ...............(read-from-string |
| 482a0 | 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 32 29 29 | .(match-string-no-properties.2)) |
| 482c0 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 66 6f 72 20 65 78 70 65 63 74 65 64 20 3d 20 28 62 75 66 | )))))........for.expected.=.(buf |
| 482e0 | 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 | fer-substring-no-properties.(poi |
| 48300 | 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt)............................. |
| 48320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 63 61 6e 2d | ..........................(scan- |
| 48340 | 73 65 78 70 73 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sexps.(point)................... |
| 48360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 48380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 29 29 0a 20 20 20 20 20 20 20 63 6f 6c 6c 65 | ................1))........colle |
| 483a0 | 63 74 20 28 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 74 65 73 74 2d 66 6f 72 6d 20 | ct.(slime-indentation-test-form. |
| 483c0 | 74 65 73 74 2d 6e 61 6d 65 20 62 69 6e 64 69 6e 67 73 20 65 78 70 65 63 74 65 64 29 29 29 29 29 | test-name.bindings.expected))))) |
| 483e0 | 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 64 65 | ..(defmacro.slime-indentation-de |
| 48400 | 66 69 6e 65 2d 74 65 73 74 73 20 28 29 0a 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 | fine-tests.().....`(progn....... |
| 48420 | 20 2c 40 28 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 74 65 73 74 2d 66 6f 72 6d 73 | .,@(slime-indentation-test-forms |
| 48440 | 2d 66 6f 72 2d 66 69 6c 65 20 22 73 6c 69 6d 65 2d 63 6c 2d 69 6e 64 65 6e 74 2d 74 65 73 74 2e | -for-file."slime-cl-indent-test. |
| 48460 | 74 78 74 22 29 29 29 0a 0a 28 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 64 65 66 69 | txt")))..(slime-indentation-defi |
| 48480 | 6e 65 2d 74 65 73 74 73 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 69 6e 64 65 6e | ne-tests)..(provide.'slime-inden |
| 484a0 | 74 61 74 69 6f 6e 2d 74 65 73 74 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | tation-tests)................... |
| 484c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 484e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 48500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 48520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 48540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 48560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 48580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 485a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 485c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 485e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 48600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 70 72 | slime-2.31/contrib/test/slime-pr |
| 48620 | 65 73 65 6e 74 61 74 69 6f 6e 73 2d 74 65 73 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 | esentations-tests.el............ |
| 48640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 48660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 48680 | 30 30 30 34 31 30 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 32 31 33 31 37 00 20 30 00 00 00 | 0004107.00000000000.021317..0... |
| 486a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 486c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 486e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 48700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 48720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 48740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 48760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 48780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 487a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 487c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 487e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 48800 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 29 0a 28 | (require.'slime-presentations).( |
| 48820 | 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 74 65 73 74 73 29 0a 28 72 65 71 75 69 72 65 20 27 | require.'slime-tests).(require.' |
| 48840 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 74 65 73 74 73 20 22 74 65 73 74 2f 73 6c 69 6d 65 2d 72 65 70 | slime-repl-tests."test/slime-rep |
| 48860 | 6c 2d 74 65 73 74 73 22 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 65 72 74 2d 74 65 73 | l-tests")..(define-slime-ert-tes |
| 48880 | 74 20 70 69 63 6b 2d 75 70 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 | t.pick-up-presentation-at-point. |
| 488a0 | 28 29 0a 20 20 22 45 6e 73 75 72 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 61 72 65 20 66 | ()..."Ensure.presentations.are.f |
| 488c0 | 6f 75 6e 64 20 63 6f 6e 73 69 73 74 65 6e 74 6c 79 2e 22 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 | ound.consistently."...(cl-labels |
| 488e0 | 20 28 28 61 73 73 65 72 74 2d 69 74 20 28 70 6f 69 6e 74 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 65 | .((assert-it.(point.&optional.ne |
| 48900 | 67 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | gate)........................(le |
| 48920 | 74 20 28 28 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.((result...................... |
| 48940 | 20 20 20 20 20 20 20 20 20 28 63 6c 2d 66 69 72 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(cl-first.............. |
| 48960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 | ..................(slime-present |
| 48980 | 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 20 70 6f 69 | ation-around-or-before-point.poi |
| 489a0 | 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt)))).......................... |
| 489c0 | 28 75 6e 6c 65 73 73 20 28 69 66 20 6e 65 67 61 74 65 20 28 6e 6f 74 20 72 65 73 75 6c 74 29 20 | (unless.(if.negate.(not.result). |
| 489e0 | 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | result)......................... |
| 48a00 | 20 20 20 28 65 72 74 2d 66 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(ert-fail.................... |
| 48a20 | 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 46 61 69 6c 65 64 20 74 6f 20 70 69 63 6b | .........(format."Failed.to.pick |
| 48a40 | 20 75 70 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 20 25 73 22 0a 20 20 | .up.presentation.at.point.%s"... |
| 48a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 48a80 | 20 20 70 6f 69 6e 74 29 29 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 | ..point)))))).....(with-temp-buf |
| 48aa0 | 66 65 72 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 65 73 65 6e 74 61 | fer.......(slime-insert-presenta |
| 48ac0 | 74 69 6f 6e 20 22 31 32 33 34 35 36 37 38 39 30 22 20 60 28 3a 69 6e 73 70 65 63 74 65 64 2d 70 | tion."1234567890".`(:inspected-p |
| 48ae0 | 61 72 74 20 34 32 29 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 20 20 20 20 22 29 0a | art.42)).......(insert."....."). |
| 48b00 | 20 20 20 20 20 20 28 61 73 73 65 72 74 2d 69 74 20 31 29 0a 20 20 20 20 20 20 28 61 73 73 65 72 | ......(assert-it.1).......(asser |
| 48b20 | 74 2d 69 74 20 32 29 0a 20 20 20 20 20 20 28 61 73 73 65 72 74 2d 69 74 20 33 29 0a 20 20 20 20 | t-it.2).......(assert-it.3)..... |
| 48b40 | 20 20 28 61 73 73 65 72 74 2d 69 74 20 34 29 0a 20 20 20 20 20 20 28 61 73 73 65 72 74 2d 69 74 | ..(assert-it.4).......(assert-it |
| 48b60 | 20 35 29 0a 20 20 20 20 20 20 28 61 73 73 65 72 74 2d 69 74 20 31 30 29 0a 20 20 20 20 20 20 28 | .5).......(assert-it.10).......( |
| 48b80 | 61 73 73 65 72 74 2d 69 74 20 31 31 29 0a 20 20 20 20 20 20 28 61 73 73 65 72 74 2d 69 74 20 31 | assert-it.11).......(assert-it.1 |
| 48ba0 | 32 20 74 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 70 72 65 74 74 79 | 2.t))))..(def-slime-test.(pretty |
| 48bc0 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 72 65 73 75 6c 74 73 20 28 3a 66 61 69 6c 73 2d 66 6f | -presentation-results.(:fails-fo |
| 48be0 | 72 20 22 61 6c 6c 65 67 72 6f 22 29 29 0a 20 20 20 20 28 69 6e 70 75 74 20 72 65 73 75 6c 74 2d | r."allegro")).....(input.result- |
| 48c00 | 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 22 54 65 73 74 20 73 6f 6d 65 20 6d 6f 72 65 20 73 69 | contents)....."Test.some.more.si |
| 48c20 | 6d 70 6c 65 20 73 69 74 75 61 74 69 6f 6e 73 20 64 65 61 6c 69 6e 67 20 77 69 74 68 20 70 72 69 | mple.situations.dealing.with.pri |
| 48c40 | 6e 74 2d 77 69 64 74 68 20 61 6e 64 20 73 74 75 66 66 2e 0a 0a 56 65 72 79 20 6d 75 63 68 20 6c | nt-width.and.stuff...Very.much.l |
| 48c60 | 69 6b 65 20 60 72 65 70 6c 2d 74 65 73 74 2d 32 27 2c 20 62 75 74 20 73 68 6f 75 6c 64 20 62 65 | ike.`repl-test-2',.but.should.be |
| 48c80 | 20 6d 6f 72 65 20 73 74 61 62 6c 65 20 77 68 65 6e 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 | .more.stable.when.presentations. |
| 48ca0 | 61 72 65 20 65 6e 61 62 6c 65 64 2c 20 65 78 63 65 70 74 20 69 6e 20 61 6c 6c 65 67 72 6f 2e 22 | are.enabled,.except.in.allegro." |
| 48cc0 | 0a 20 20 20 20 27 28 28 22 5c 0a 28 77 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e | .....'(("\.(with-standard-io-syn |
| 48ce0 | 74 61 78 0a 20 28 77 72 69 74 65 20 28 6d 61 6b 65 2d 6c 69 73 74 20 31 35 20 3a 69 6e 69 74 69 | tax..(write.(make-list.15.:initi |
| 48d00 | 61 6c 2d 65 6c 65 6d 65 6e 74 20 27 28 31 20 2e 20 32 29 29 20 3a 70 72 65 74 74 79 20 74 20 3a | al-element.'(1...2)).:pretty.t.: |
| 48d20 | 72 69 67 68 74 2d 6d 61 72 67 69 6e 20 37 35 29 0a 20 30 29 22 0a 20 20 20 20 20 20 20 22 5c 0a | right-margin.75)..0)"........"\. |
| 48d40 | 53 57 41 4e 4b 3e 20 5c 0a 28 77 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 | SWANK>.\.(with-standard-io-synta |
| 48d60 | 78 0a 20 28 77 72 69 74 65 20 28 6d 61 6b 65 2d 6c 69 73 74 20 31 35 20 3a 69 6e 69 74 69 61 6c | x..(write.(make-list.15.:initial |
| 48d80 | 2d 65 6c 65 6d 65 6e 74 20 27 28 31 20 2e 20 32 29 29 20 3a 70 72 65 74 74 79 20 74 20 3a 72 69 | -element.'(1...2)).:pretty.t.:ri |
| 48da0 | 67 68 74 2d 6d 61 72 67 69 6e 20 37 35 29 0a 20 30 29 0a 7b 28 28 31 20 2e 20 32 29 20 28 31 20 | ght-margin.75)..0).{((1...2).(1. |
| 48dc0 | 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 | ..2).(1...2).(1...2).(1...2).(1. |
| 48de0 | 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 0a 20 28 31 | ..2).(1...2).(1...2).(1...2)..(1 |
| 48e00 | 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 | ...2).(1...2).(1...2).(1...2).(1 |
| 48e20 | 20 2e 20 32 29 20 28 31 20 2e 20 32 29 29 0a 7d 30 0a 53 57 41 4e 4b 3e 20 2a 5b 5d 22 29 0a 20 | ...2).(1...2)).}0.SWANK>.*[]").. |
| 48e40 | 20 20 20 20 20 3b 3b 20 54 77 6f 20 74 69 6d 65 73 20 74 6f 20 74 65 73 74 20 74 68 65 20 65 66 | .....;;.Two.times.to.test.the.ef |
| 48e60 | 66 65 63 74 20 6f 66 20 46 52 45 53 48 2d 4c 49 4e 45 2e 0a 20 20 20 20 20 20 28 22 5c 0a 28 77 | fect.of.FRESH-LINE........("\.(w |
| 48e80 | 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 28 77 72 69 74 65 20 28 | ith-standard-io-syntax..(write.( |
| 48ea0 | 6d 61 6b 65 2d 6c 69 73 74 20 31 35 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 6d 65 6e 74 20 27 28 | make-list.15.:initial-element.'( |
| 48ec0 | 31 20 2e 20 32 29 29 20 3a 70 72 65 74 74 79 20 74 20 3a 72 69 67 68 74 2d 6d 61 72 67 69 6e 20 | 1...2)).:pretty.t.:right-margin. |
| 48ee0 | 37 35 29 0a 20 30 29 22 0a 20 20 20 20 20 20 20 22 53 57 41 4e 4b 3e 20 5c 0a 28 77 69 74 68 2d | 75)..0)"........"SWANK>.\.(with- |
| 48f00 | 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 28 77 72 69 74 65 20 28 6d 61 6b 65 | standard-io-syntax..(write.(make |
| 48f20 | 2d 6c 69 73 74 20 31 35 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 6d 65 6e 74 20 27 28 31 20 2e 20 | -list.15.:initial-element.'(1... |
| 48f40 | 32 29 29 20 3a 70 72 65 74 74 79 20 74 20 3a 72 69 67 68 74 2d 6d 61 72 67 69 6e 20 37 35 29 0a | 2)).:pretty.t.:right-margin.75). |
| 48f60 | 20 30 29 0a 7b 28 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 | .0).{((1...2).(1...2).(1...2).(1 |
| 48f80 | 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 | ...2).(1...2).(1...2).(1...2).(1 |
| 48fa0 | 20 2e 20 32 29 20 28 31 20 2e 20 32 29 0a 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 | ...2).(1...2)..(1...2).(1...2).( |
| 48fc0 | 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 20 28 31 20 2e 20 32 29 29 0a | 1...2).(1...2).(1...2).(1...2)). |
| 48fe0 | 7d 30 0a 53 57 41 4e 4b 3e 20 2a 5b 5d 22 29 29 0a 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 72 | }0.SWANK>.*[]"))...(slime-test-r |
| 49000 | 65 70 6c 2d 74 65 73 74 20 69 6e 70 75 74 20 72 65 73 75 6c 74 2d 63 6f 6e 74 65 6e 74 73 29 29 | epl-test.input.result-contents)) |
| 49020 | 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2d | ..(provide.'slime-presentations- |
| 49040 | 74 65 73 74 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | tests).......................... |
| 49060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 490a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 490c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 490e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 491a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 491c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 491e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d 65 2d 6d 64 | slime-2.31/contrib/test/slime-md |
| 49220 | 6f 74 2d 66 75 2d 74 65 73 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ot-fu-tests.el.................. |
| 49240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 49280 | 30 30 30 32 31 36 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 37 37 33 00 20 30 00 00 00 | 0002162.00000000000.017773..0... |
| 492a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 492c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 492e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 49320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 49340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 493a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 493c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 493e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49400 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 6d 64 6f 74 2d 66 75 29 0a 28 72 65 71 75 69 72 | (require.'slime-mdot-fu).(requir |
| 49420 | 65 20 27 73 6c 69 6d 65 2d 74 65 73 74 73 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 | e.'slime-tests)..(def-slime-test |
| 49440 | 20 66 69 6e 64 2d 6c 6f 63 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2e 31 0a 20 20 20 20 28 62 | .find-local-definitions.1.....(b |
| 49460 | 75 66 66 65 72 2d 73 65 78 70 72 20 64 65 66 69 6e 69 74 69 6f 6e 20 74 61 72 67 65 74 2d 72 65 | uffer-sexpr.definition.target-re |
| 49480 | 67 65 78 70 29 0a 20 20 20 20 22 43 68 65 63 6b 20 74 68 61 74 20 66 69 6e 64 69 6e 67 20 6c 6f | gexp)....."Check.that.finding.lo |
| 494a0 | 63 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 77 6f 72 6b 2e 22 0a 20 20 20 20 27 28 28 28 64 | cal.definitions.work.".....'(((d |
| 494c0 | 65 66 75 6e 20 66 6f 6f 20 28 78 29 0a 09 20 20 28 6c 65 74 20 28 28 79 20 28 2b 20 78 20 31 29 | efun.foo.(x)....(let.((y.(+.x.1) |
| 494e0 | 29 29 0a 09 20 20 20 20 28 2d 20 78 20 79 20 2a 48 45 52 45 2a 29 29 29 0a 20 20 20 20 20 20 20 | ))......(-.x.y.*HERE*)))........ |
| 49500 | 79 0a 20 20 20 20 20 20 20 22 28 79 20 28 2b 20 78 20 31 29 29 22 29 0a 0a 20 20 20 20 20 20 28 | y........"(y.(+.x.1))")........( |
| 49520 | 28 64 65 66 75 6e 20 62 61 72 20 28 78 29 0a 09 20 28 66 6c 65 74 20 28 28 66 6f 6f 20 28 7a 29 | (defun.bar.(x)...(flet.((foo.(z) |
| 49540 | 20 28 2b 20 78 20 7a 29 29 29 0a 09 20 20 20 28 2a 20 78 20 28 66 6f 6f 20 2a 48 45 52 45 2a 29 | .(+.x.z))).....(*.x.(foo.*HERE*) |
| 49560 | 29 29 29 0a 20 20 20 20 20 20 20 66 6f 6f 0a 20 20 20 20 20 20 20 22 28 66 6f 6f 20 28 7a 29 20 | )))........foo........"(foo.(z). |
| 49580 | 28 2b 20 78 20 7a 29 29 22 29 0a 0a 20 20 20 20 20 20 28 28 64 65 66 75 6e 20 71 75 75 78 20 28 | (+.x.z))")........((defun.quux.( |
| 495a0 | 78 29 0a 09 20 28 66 6c 65 74 20 28 28 66 6f 6f 20 28 7a 29 20 28 2b 20 78 20 7a 29 29 29 0a 09 | x)...(flet.((foo.(z).(+.x.z))).. |
| 495c0 | 20 20 20 28 6c 65 74 20 28 28 66 6f 6f 20 28 2d 20 31 20 78 29 29 29 0a 09 20 20 20 20 20 28 2b | ...(let.((foo.(-.1.x))).......(+ |
| 495e0 | 20 78 20 66 6f 6f 20 2a 48 45 52 45 2a 29 29 29 29 0a 20 20 20 20 20 20 20 66 6f 6f 0a 20 20 20 | .x.foo.*HERE*))))........foo.... |
| 49600 | 20 20 20 20 22 28 66 6f 6f 20 28 2d 20 31 20 78 29 22 29 0a 0a 20 20 20 20 20 20 28 28 64 65 66 | ...."(foo.(-.1.x)")........((def |
| 49620 | 75 6e 20 7a 75 72 70 20 28 78 29 0a 09 20 28 6d 61 63 72 6f 6c 65 74 20 28 28 66 72 6f 62 20 28 | un.zurp.(x)...(macrolet.((frob.( |
| 49640 | 78 20 79 29 20 60 28 71 75 75 78 20 2c 78 20 2c 79 29 29 29 0a 09 20 20 20 28 66 72 6f 62 20 78 | x.y).`(quux.,x.,y))).....(frob.x |
| 49660 | 20 2a 48 45 52 45 2a 29 29 29 0a 20 20 20 20 20 20 20 66 72 6f 62 0a 20 20 20 20 20 20 20 22 28 | .*HERE*)))........frob........"( |
| 49680 | 66 72 6f 62 20 28 78 20 79 29 22 29 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 | frob.(x.y)"))...(slime-check-top |
| 496a0 | 2d 6c 65 76 65 6c 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 | -level)...(with-temp-buffer..... |
| 496c0 | 28 6c 65 74 20 28 28 74 6d 70 62 75 66 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 | (let.((tmpbuf.(current-buffer))) |
| 496e0 | 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 | .......(insert.(prin1-to-string. |
| 49700 | 62 75 66 66 65 72 2d 73 65 78 70 72 29 29 0a 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 62 61 63 | buffer-sexpr)).......(search-bac |
| 49720 | 6b 77 61 72 64 20 22 2a 48 45 52 45 2a 22 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 64 69 | kward."*HERE*").......(slime-edi |
| 49740 | 74 2d 6c 6f 63 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 | t-local-definition.(prin1-to-str |
| 49760 | 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 | ing.definition)).......(slime-sy |
| 49780 | 6e 63 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 43 68 65 63 6b 20 74 68 | nc).......(slime-check."Check.th |
| 497a0 | 61 74 20 77 65 20 64 69 64 6e 74 20 6c 65 61 76 65 20 74 68 65 20 74 65 6d 70 20 62 75 66 66 65 | at.we.didnt.leave.the.temp.buffe |
| 497c0 | 72 2e 22 0a 09 28 65 71 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 6d 70 62 75 66 | r."..(eq.(current-buffer).tmpbuf |
| 497e0 | 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 43 68 65 63 6b 20 74 68 61 | )).......(slime-check."Check.tha |
| 49800 | 74 20 77 65 20 61 72 65 20 61 74 20 74 68 65 20 6c 6f 63 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e | t.we.are.at.the.local.definition |
| 49820 | 2e 22 0a 09 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 74 61 | ."..(looking-at.(regexp-quote.ta |
| 49840 | 72 67 65 74 2d 72 65 67 65 78 70 29 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 | rget-regexp))))))..(provide.'sli |
| 49860 | 6d 65 2d 6d 64 6f 74 2d 66 75 2d 74 65 73 74 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | me-mdot-fu-tests)............... |
| 49880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 498a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 498c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 498e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 499a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 499c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 499e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 66 75 7a 7a 79 2e 6c | slime-2.31/contrib/swank-fuzzy.l |
| 49a20 | 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | isp............................. |
| 49a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 49a80 | 30 31 30 31 35 36 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 30 35 37 00 20 30 00 00 00 | 0101564.00000000000.016057..0... |
| 49aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 49b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 49b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49c00 | 3b 3b 3b 20 73 77 61 6e 6b 2d 66 75 7a 7a 79 2e 6c 69 73 70 20 2d 2d 2d 20 66 75 7a 7a 79 20 73 | ;;;.swank-fuzzy.lisp.---.fuzzy.s |
| 49c20 | 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 3b 3b 0a 3b 3b 20 41 75 74 68 6f 72 73 3a 20 | ymbol.completion.;;.;;.Authors:. |
| 49c40 | 42 72 69 61 6e 20 44 6f 77 6e 69 6e 67 20 3c 62 64 6f 77 6e 69 6e 67 40 6c 61 76 6f 73 2e 6e 65 | Brian.Downing.<bdowning@lavos.ne |
| 49c60 | 74 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 54 6f 62 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 | t>.;;..........Tobias.C..Rittwei |
| 49c80 | 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 73 2e 64 65 3e 0a 3b 3b 20 20 20 20 20 20 20 20 | ler.<tcr@freebits.de>.;;........ |
| 49ca0 | 20 20 61 6e 64 20 6f 74 68 65 72 73 0a 3b 3b 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 50 75 62 6c | ..and.others.;;.;;.License:.Publ |
| 49cc0 | 69 63 20 44 6f 6d 61 69 6e 0a 3b 3b 0a 0a 0c 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 | ic.Domain.;;....(in-package.:swa |
| 49ce0 | 6e 6b 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 | nk)..(eval-when.(:compile-toplev |
| 49d00 | 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 73 | el.:load-toplevel.:execute)...(s |
| 49d20 | 77 61 6e 6b 2d 72 65 71 75 69 72 65 20 3a 73 77 61 6e 6b 2d 75 74 69 6c 29 0a 20 20 28 73 77 61 | wank-require.:swank-util)...(swa |
| 49d40 | 6e 6b 2d 72 65 71 75 69 72 65 20 3a 73 77 61 6e 6b 2d 63 2d 70 2d 63 29 29 0a 0a 28 64 65 66 76 | nk-require.:swank-c-p-c))..(defv |
| 49d60 | 61 72 20 2a 66 75 7a 7a 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c 74 65 | ar.*fuzzy-duplicate-symbol-filte |
| 49d80 | 72 2a 20 3a 6e 65 61 72 65 73 74 2d 70 61 63 6b 61 67 65 0a 20 20 22 53 70 65 63 69 66 69 65 73 | r*.:nearest-package..."Specifies |
| 49da0 | 20 68 6f 77 20 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 20 68 61 6e 64 6c 65 73 20 5c 22 64 75 | .how.fuzzy-matching.handles.\"du |
| 49dc0 | 70 6c 69 63 61 74 65 5c 22 20 73 79 6d 62 6f 6c 73 2e 0a 50 6f 73 73 69 62 6c 65 20 76 61 6c 75 | plicate\".symbols..Possible.valu |
| 49de0 | 65 73 20 61 72 65 20 3a 4e 45 41 52 45 53 54 2d 50 41 43 4b 41 47 45 2c 20 3a 48 4f 4d 45 2d 50 | es.are.:NEAREST-PACKAGE,.:HOME-P |
| 49e00 | 41 43 4b 41 47 45 2c 20 3a 41 4c 4c 2c 20 6f 72 20 61 20 63 75 73 74 6f 6d 0a 66 75 6e 63 74 69 | ACKAGE,.:ALL,.or.a.custom.functi |
| 49e20 | 6f 6e 2e 20 53 65 65 20 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 20 69 6e 20 74 68 65 20 | on..See.Fuzzy.Completion.in.the. |
| 49e40 | 6d 61 6e 75 61 6c 20 66 6f 72 20 64 65 74 61 69 6c 73 2e 22 29 0a 0a 28 65 78 70 6f 72 74 20 27 | manual.for.details.")..(export.' |
| 49e60 | 2a 66 75 7a 7a 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c 74 65 72 2a 29 | *fuzzy-duplicate-symbol-filter*) |
| 49e80 | 0a 0a 3b 3b 3b 20 46 6f 72 20 6e 6f 6d 65 6e 63 6c 61 74 75 72 65 20 6f 66 20 74 68 65 20 66 75 | ..;;;.For.nomenclature.of.the.fu |
| 49ea0 | 7a 7a 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 65 63 74 69 6f 6e 2c 20 70 6c 65 61 73 65 20 72 | zzy.completion.section,.please.r |
| 49ec0 | 65 61 64 0a 3b 3b 3b 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 64 6f | ead.;;;.through.the.following.do |
| 49ee0 | 63 73 74 72 69 6e 67 2e 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 75 7a 7a 79 2d 63 6f 6d | cstring...(defslimefun.fuzzy-com |
| 49f00 | 70 6c 65 74 69 6f 6e 73 20 28 73 74 72 69 6e 67 20 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 | pletions.(string.default-package |
| 49f20 | 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -name........................... |
| 49f40 | 20 20 20 20 20 20 26 6b 65 79 20 6c 69 6d 69 74 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d | ......&key.limit.time-limit-in-m |
| 49f60 | 73 65 63 29 0a 22 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 76 61 6c 75 | sec)."Returns.a.list.of.two.valu |
| 49f80 | 65 73 3a 0a 0a 20 20 41 6e 20 28 6f 70 74 69 6f 6e 61 6c 6c 79 20 6c 69 6d 69 74 65 64 20 74 6f | es:....An.(optionally.limited.to |
| 49fa0 | 20 4c 49 4d 49 54 20 62 65 73 74 20 72 65 73 75 6c 74 73 29 20 6c 69 73 74 20 6f 66 20 66 75 7a | .LIMIT.best.results).list.of.fuz |
| 49fc0 | 7a 79 0a 20 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 66 6f 72 20 61 20 73 79 6d 62 6f 6c 20 64 65 | zy...completions.for.a.symbol.de |
| 49fe0 | 73 69 67 6e 61 74 6f 72 20 53 54 52 49 4e 47 2e 20 54 68 65 20 6c 69 73 74 20 77 69 6c 6c 20 62 | signator.STRING..The.list.will.b |
| 4a000 | 65 0a 20 20 73 6f 72 74 65 64 20 62 79 20 73 63 6f 72 65 2c 20 6d 6f 73 74 20 6c 69 6b 65 6c 79 | e...sorted.by.score,.most.likely |
| 4a020 | 20 6d 61 74 63 68 20 66 69 72 73 74 2e 0a 0a 20 20 41 20 66 6c 61 67 20 74 68 61 74 20 69 6e 64 | .match.first.....A.flag.that.ind |
| 4a040 | 69 63 61 74 65 73 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 54 49 4d 45 2d 4c 49 4d 49 54 | icates.whether.or.not.TIME-LIMIT |
| 4a060 | 2d 49 4e 2d 4d 53 45 43 20 68 61 73 0a 20 20 62 65 65 6e 20 65 78 68 61 75 73 74 65 64 20 64 75 | -IN-MSEC.has...been.exhausted.du |
| 4a080 | 72 69 6e 67 20 63 6f 6d 70 75 74 61 74 69 6f 6e 2e 20 49 66 20 74 68 61 74 20 70 61 72 61 6d 65 | ring.computation..If.that.parame |
| 4a0a0 | 74 65 72 27 73 20 76 61 6c 75 65 20 69 73 0a 20 20 4e 49 4c 20 6f 72 20 30 2c 20 6e 6f 20 74 69 | ter's.value.is...NIL.or.0,.no.ti |
| 4a0c0 | 6d 65 20 6c 69 6d 69 74 20 69 73 20 61 73 73 75 6d 65 64 2e 0a 0a 54 68 65 20 6d 61 69 6e 20 72 | me.limit.is.assumed...The.main.r |
| 4a0e0 | 65 73 75 6c 74 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f 62 | esult.is.a.list.of.completion.ob |
| 4a100 | 6a 65 63 74 73 2c 20 77 68 65 72 65 20 61 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 6f 62 6a 65 63 74 | jects,.where.a.completion.object |
| 4a120 | 20 69 73 3a 0a 0a 20 20 20 20 28 43 4f 4d 50 4c 45 54 45 44 2d 53 54 52 49 4e 47 20 53 43 4f 52 | .is:......(COMPLETED-STRING.SCOR |
| 4a140 | 45 20 28 26 72 65 73 74 20 43 48 55 4e 4b 53 29 20 43 4c 41 53 53 49 46 49 43 41 54 49 4f 4e 2d | E.(&rest.CHUNKS).CLASSIFICATION- |
| 4a160 | 53 54 52 49 4e 47 29 0a 0a 77 68 65 72 65 20 61 20 43 48 55 4e 4b 20 69 73 20 61 20 64 65 73 63 | STRING)..where.a.CHUNK.is.a.desc |
| 4a180 | 72 69 70 74 69 6f 6e 20 6f 66 20 61 20 6d 61 74 63 68 65 64 20 73 75 62 73 74 72 69 6e 67 3a 0a | ription.of.a.matched.substring:. |
| 4a1a0 | 0a 20 20 20 20 28 4f 46 46 53 45 54 20 53 55 42 53 54 52 49 4e 47 29 0a 0a 61 6e 64 20 46 4c 41 | .....(OFFSET.SUBSTRING)..and.FLA |
| 4a1c0 | 47 53 20 69 73 20 73 68 6f 72 74 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20 70 72 | GS.is.short.string.describing.pr |
| 4a1e0 | 6f 70 65 72 74 69 65 73 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 28 73 65 65 0a 53 59 4d 42 | operties.of.the.symbol.(see.SYMB |
| 4a200 | 4f 4c 2d 43 4c 41 53 53 49 46 49 43 41 54 49 4f 4e 2d 53 54 52 49 4e 47 29 2e 0a 0a 45 2e 67 2e | OL-CLASSIFICATION-STRING)...E.g. |
| 4a220 | 2c 20 63 6f 6d 70 6c 65 74 69 6e 67 20 5c 22 6d 76 62 5c 22 20 69 6e 20 61 20 70 61 63 6b 61 67 | ,.completing.\"mvb\".in.a.packag |
| 4a240 | 65 20 74 68 61 74 20 75 73 65 73 20 43 4f 4d 4d 4f 4e 2d 4c 49 53 50 20 77 6f 75 6c 64 0a 72 65 | e.that.uses.COMMON-LISP.would.re |
| 4a260 | 74 75 72 6e 20 73 6f 6d 65 74 68 69 6e 67 20 6c 69 6b 65 3a 0a 0a 20 20 20 20 28 28 5c 22 6d 75 | turn.something.like:......((\"mu |
| 4a280 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 5c 22 20 32 36 2e 35 38 38 32 33 36 20 28 28 | ltiple-value-bind\".26.588236.(( |
| 4a2a0 | 30 20 5c 22 6d 5c 22 29 20 28 39 20 5c 22 76 5c 22 29 20 28 31 35 20 5c 22 62 5c 22 29 29 0a 20 | 0.\"m\").(9.\"v\").(15.\"b\")).. |
| 4a2c0 | 20 20 20 20 28 3a 46 42 4f 55 4e 44 50 20 3a 4d 41 43 52 4f 29 29 0a 20 20 20 20 20 2e 2e 2e 29 | ....(:FBOUNDP.:MACRO)).........) |
| 4a2e0 | 0a 0a 49 66 20 53 54 52 49 4e 47 20 69 73 20 70 61 63 6b 61 67 65 20 71 75 61 6c 69 66 69 65 64 | ..If.STRING.is.package.qualified |
| 4a300 | 20 74 68 65 20 72 65 73 75 6c 74 20 6c 69 73 74 20 77 69 6c 6c 20 61 6c 73 6f 20 62 65 0a 71 75 | .the.result.list.will.also.be.qu |
| 4a320 | 61 6c 69 66 69 65 64 2e 20 20 49 66 20 73 74 72 69 6e 67 20 69 73 20 6e 6f 6e 2d 71 75 61 6c 69 | alified...If.string.is.non-quali |
| 4a340 | 66 69 65 64 20 74 68 65 20 72 65 73 75 6c 74 20 73 74 72 69 6e 67 73 20 61 72 65 0a 61 6c 73 6f | fied.the.result.strings.are.also |
| 4a360 | 20 6e 6f 74 20 71 75 61 6c 69 66 69 65 64 20 61 6e 64 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 | .not.qualified.and.are.considere |
| 4a380 | 64 20 72 65 6c 61 74 69 76 65 20 74 6f 0a 44 45 46 41 55 4c 54 2d 50 41 43 4b 41 47 45 2d 4e 41 | d.relative.to.DEFAULT-PACKAGE-NA |
| 4a3a0 | 4d 45 2e 0a 0a 57 68 69 63 68 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 63 61 6e 64 69 64 61 74 65 | ME...Which.symbols.are.candidate |
| 4a3c0 | 73 20 66 6f 72 20 6d 61 74 63 68 69 6e 67 20 64 65 70 65 6e 64 73 20 6f 6e 20 74 68 65 20 73 79 | s.for.matching.depends.on.the.sy |
| 4a3e0 | 6d 62 6f 6c 0a 64 65 73 69 67 6e 61 74 6f 72 27 73 20 66 6f 72 6d 61 74 2e 20 54 68 65 20 63 61 | mbol.designator's.format..The.ca |
| 4a400 | 73 65 73 20 61 72 65 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 20 20 46 4f 4f 20 20 20 20 20 20 2d | ses.are.as.follows:...FOO......- |
| 4a420 | 20 53 79 6d 62 6f 6c 73 20 61 63 63 65 73 73 69 62 6c 65 20 69 6e 20 74 68 65 20 62 75 66 66 65 | .Symbols.accessible.in.the.buffe |
| 4a440 | 72 20 70 61 63 6b 61 67 65 2e 0a 20 20 50 4b 47 3a 46 4f 4f 20 20 2d 20 53 79 6d 62 6f 6c 73 20 | r.package....PKG:FOO..-.Symbols. |
| 4a460 | 65 78 74 65 72 6e 61 6c 20 69 6e 20 70 61 63 6b 61 67 65 20 50 4b 47 2e 0a 20 20 50 4b 47 3a 3a | external.in.package.PKG....PKG:: |
| 4a480 | 46 4f 4f 20 2d 20 53 79 6d 62 6f 6c 73 20 61 63 63 65 73 73 69 62 6c 65 20 69 6e 20 70 61 63 6b | FOO.-.Symbols.accessible.in.pack |
| 4a4a0 | 61 67 65 20 50 4b 47 2e 22 0a 20 20 3b 3b 20 46 6f 72 20 45 6d 61 63 73 20 77 65 20 61 6c 6c 6f | age.PKG."...;;.For.Emacs.we.allo |
| 4a4c0 | 77 20 62 6f 74 68 20 4e 49 4c 20 61 6e 64 20 30 20 61 73 20 76 61 6c 75 65 20 6f 66 20 54 49 4d | w.both.NIL.and.0.as.value.of.TIM |
| 4a4e0 | 45 2d 4c 49 4d 49 54 2d 49 4e 2d 4d 53 45 43 0a 20 20 3b 3b 20 74 6f 20 64 65 6e 6f 74 65 20 61 | E-LIMIT-IN-MSEC...;;.to.denote.a |
| 4a500 | 6e 20 69 6e 66 69 6e 69 74 65 20 74 69 6d 65 20 6c 69 6d 69 74 2e 20 49 6e 74 65 72 6e 61 6c 6c | n.infinite.time.limit..Internall |
| 4a520 | 79 2c 20 77 65 20 6f 6e 6c 79 20 75 73 65 20 4e 49 4c 20 66 6f 72 0a 20 20 3b 3b 20 74 68 61 74 | y,.we.only.use.NIL.for...;;.that |
| 4a540 | 20 70 75 72 70 6f 73 65 2c 20 74 6f 20 62 65 20 61 62 6c 65 20 74 6f 20 64 69 73 74 69 6e 67 75 | .purpose,.to.be.able.to.distingu |
| 4a560 | 69 73 68 20 62 65 74 77 65 65 6e 20 22 6e 6f 20 74 69 6d 65 20 6c 69 6d 69 74 0a 20 20 3b 3b 20 | ish.between."no.time.limit...;;. |
| 4a580 | 61 6c 6c 74 6f 67 65 74 68 65 72 22 20 61 6e 64 20 22 63 75 72 72 65 6e 74 20 74 69 6d 65 20 6c | alltogether".and."current.time.l |
| 4a5a0 | 69 6d 69 74 20 61 6c 72 65 61 64 79 20 65 78 68 61 75 73 74 65 64 2e 22 20 53 6f 20 77 65 27 76 | imit.already.exhausted.".So.we'v |
| 4a5c0 | 65 0a 20 20 3b 3b 20 67 6f 74 20 74 6f 20 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 20 69 74 73 20 76 | e...;;.got.to.canonicalize.its.v |
| 4a5e0 | 61 6c 75 65 20 61 74 20 66 69 72 73 74 3a 0a 20 20 28 6c 65 74 2a 20 28 28 6e 6f 2d 74 69 6d 65 | alue.at.first:...(let*.((no-time |
| 4a600 | 2d 6c 69 6d 69 74 2d 70 20 28 6f 72 20 28 6e 6f 74 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d | -limit-p.(or.(not.time-limit-in- |
| 4a620 | 6d 73 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | msec)........................... |
| 4a640 | 20 20 20 20 28 7a 65 72 6f 70 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 29 29 29 | ....(zerop.time-limit-in-msec))) |
| 4a660 | 0a 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 2d 6c 69 6d 69 74 20 28 69 66 20 6e 6f 2d 74 69 6d | ..........(time-limit.(if.no-tim |
| 4a680 | 65 2d 6c 69 6d 69 74 2d 70 20 6e 69 6c 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 | e-limit-p.nil.time-limit-in-msec |
| 4a6a0 | 29 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 63 6f | ))).....(multiple-value-bind.(co |
| 4a6c0 | 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 69 6e 74 65 72 72 75 70 74 65 64 2d 70 29 0a 20 20 20 20 | mpletion-set.interrupted-p)..... |
| 4a6e0 | 20 20 20 20 28 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 73 74 72 69 6e 67 | ....(fuzzy-completion-set.string |
| 4a700 | 20 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 3a 6c 69 6d 69 74 20 6c 69 6d | .default-package-name.:limit.lim |
| 4a720 | 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | it.............................. |
| 4a740 | 20 3a 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 20 74 69 6d 65 2d 6c 69 6d 69 74 29 | .:time-limit-in-msec.time-limit) |
| 4a760 | 0a 20 20 20 20 20 20 3b 3b 20 57 65 20 6d 61 79 20 73 65 6e 64 20 74 68 69 73 20 61 73 20 65 6c | .......;;.We.may.send.this.as.el |
| 4a780 | 69 73 70 20 5b 5d 20 61 72 72 61 79 73 20 74 6f 20 73 70 61 72 65 20 61 20 63 6f 65 72 63 65 20 | isp.[].arrays.to.spare.a.coerce. |
| 4a7a0 | 68 65 72 65 2c 0a 20 20 20 20 20 20 3b 3b 20 62 75 74 20 74 68 65 6e 20 74 68 65 20 6e 65 74 77 | here,.......;;.but.then.the.netw |
| 4a7c0 | 6f 72 6b 20 73 65 72 69 61 6c 69 7a 61 74 69 6f 6e 20 77 65 72 65 20 73 6c 6f 77 65 72 20 62 79 | ork.serialization.were.slower.by |
| 4a7e0 | 20 68 61 6e 64 6c 69 6e 67 20 61 72 72 61 79 73 2e 0a 20 20 20 20 20 20 3b 3b 20 49 6e 73 74 65 | .handling.arrays........;;.Inste |
| 4a800 | 61 64 20 77 65 20 6c 69 6d 69 74 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6d 70 6c 65 | ad.we.limit.the.number.of.comple |
| 4a820 | 74 69 6f 6e 73 20 74 68 61 74 20 69 73 20 74 72 61 6e 73 66 65 72 72 65 64 0a 20 20 20 20 20 20 | tions.that.is.transferred....... |
| 4a840 | 3b 3b 20 28 74 68 65 20 6c 69 6d 69 74 20 69 73 20 73 65 74 20 66 72 6f 6d 20 45 6d 61 63 73 2e | ;;.(the.limit.is.set.from.Emacs. |
| 4a860 | 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 65 72 63 65 20 63 6f 6d 70 6c 65 74 69 6f 6e | ).......(list.(coerce.completion |
| 4a880 | 2d 73 65 74 20 27 6c 69 73 74 29 20 69 6e 74 65 72 72 75 70 74 65 64 2d 70 29 29 29 29 0a 0a 0a | -set.'list).interrupted-p))))... |
| 4a8a0 | 3b 3b 3b 20 41 20 46 75 7a 7a 79 20 4d 61 74 63 68 69 6e 67 20 2d 2d 20 4e 6f 74 20 74 6f 20 62 | ;;;.A.Fuzzy.Matching.--.Not.to.b |
| 4a8c0 | 65 20 63 6f 6e 66 75 73 65 64 20 77 69 74 68 20 61 20 66 75 7a 7a 79 20 63 6f 6d 70 6c 65 74 69 | e.confused.with.a.fuzzy.completi |
| 4a8e0 | 6f 6e 0a 3b 3b 3b 20 6f 62 6a 65 63 74 20 74 68 61 74 20 77 69 6c 6c 20 62 65 20 73 65 6e 74 20 | on.;;;.object.that.will.be.sent. |
| 4a900 | 62 61 63 6b 20 74 6f 20 45 6d 61 63 73 2c 20 61 73 20 64 65 73 63 72 69 62 65 64 20 61 62 6f 76 | back.to.Emacs,.as.described.abov |
| 4a920 | 65 2e 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 20 28 | e...(defstruct.(fuzzy-matching.( |
| 4a940 | 3a 63 6f 6e 63 2d 6e 61 6d 65 20 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 29 0a 20 20 20 20 | :conc-name.fuzzy-matching.)..... |
| 4a960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 70 72 65 64 69 63 61 | .......................(:predica |
| 4a980 | 74 65 20 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 | te.fuzzy-matching-p)............ |
| 4a9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 6d 61 | ................(:constructor.ma |
| 4a9c0 | 6b 65 2d 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ke-fuzzy-matching............... |
| 4a9e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 | .................(symbol.package |
| 4aa00 | 2d 6e 61 6d 65 20 73 63 6f 72 65 20 70 61 63 6b 61 67 65 2d 63 68 75 6e 6b 73 0a 20 20 20 20 20 | -name.score.package-chunks...... |
| 4aa20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f | ...........................symbo |
| 4aa40 | 6c 2d 63 68 75 6e 6b 73 20 26 6b 65 79 20 28 73 79 6d 62 6f 6c 2d 70 20 74 29 29 29 29 0a 20 20 | l-chunks.&key.(symbol-p.t))))... |
| 4aa60 | 73 79 6d 62 6f 6c 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 54 68 65 20 73 79 6d 62 6f 6c 20 74 | symbol............;.The.symbol.t |
| 4aa80 | 68 61 74 20 68 61 73 20 62 65 65 6e 20 66 6f 75 6e 64 20 74 6f 20 6d 61 74 63 68 2e 0a 20 20 73 | hat.has.been.found.to.match....s |
| 4aaa0 | 79 6d 62 6f 6c 2d 70 20 20 20 20 20 20 20 20 20 20 3b 20 54 6f 20 64 65 66 66 69 72 65 6e 74 69 | ymbol-p..........;.To.deffirenti |
| 4aac0 | 61 74 65 20 62 65 74 77 65 65 6e 20 63 6f 6d 70 6c 65 74 65 69 6e 67 0a 20 20 20 20 20 20 20 20 | ate.between.completeing......... |
| 4aae0 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 70 61 63 6b 61 67 65 3a 20 61 6e 64 20 70 61 63 6b 61 | ............;.package:.and.packa |
| 4ab00 | 67 65 3a 6e 69 6c 0a 20 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 20 20 20 20 20 3b 20 54 68 65 | ge:nil...package-name......;.The |
| 4ab20 | 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 70 61 63 6b 61 67 65 20 77 68 65 72 65 20 53 59 4d 42 4f | .name.of.the.package.where.SYMBO |
| 4ab40 | 4c 20 77 61 73 20 66 6f 75 6e 64 20 69 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | L.was.found.in.................. |
| 4ab60 | 20 20 20 20 3b 20 20 28 54 68 69 73 20 69 73 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 | ....;..(This.is.not.necessarily. |
| 4ab80 | 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 65 20 68 6f 6d 65 2d 70 61 63 6b 61 67 65 0a 20 20 20 | the.same.as.the.home-package.... |
| 4aba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 6f 66 20 53 59 4d 42 4f 4c 2c 20 | .................;...of.SYMBOL,. |
| 4abc0 | 62 65 63 61 75 73 65 20 74 68 65 20 53 59 4d 42 4f 4c 20 63 61 6e 20 62 65 20 69 6e 74 65 72 6e | because.the.SYMBOL.can.be.intern |
| 4abe0 | 61 6c 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 6c 6f | al.to.....................;...lo |
| 4ac00 | 74 73 20 6f 66 20 70 61 63 6b 61 67 65 73 3b 20 61 6c 73 6f 20 74 68 69 6e 6b 20 6f 66 20 70 61 | ts.of.packages;.also.think.of.pa |
| 4ac20 | 63 6b 61 67 65 20 6e 69 63 6b 6e 61 6d 65 73 2e 29 0a 20 20 73 63 6f 72 65 20 20 20 20 20 20 20 | ckage.nicknames.)...score....... |
| 4ac40 | 20 20 20 20 20 20 3b 20 54 68 65 20 68 69 67 68 65 72 20 74 68 65 20 62 65 74 74 65 72 20 53 59 | ......;.The.higher.the.better.SY |
| 4ac60 | 4d 42 4f 4c 20 69 73 20 61 20 6d 61 74 63 68 2e 0a 20 20 70 61 63 6b 61 67 65 2d 63 68 75 6e 6b | MBOL.is.a.match....package-chunk |
| 4ac80 | 73 20 20 20 20 3b 20 43 68 75 6e 6b 73 20 70 65 72 74 61 69 6e 69 6e 67 20 74 6f 20 74 68 65 20 | s....;.Chunks.pertaining.to.the. |
| 4aca0 | 70 61 63 6b 61 67 65 20 69 64 65 6e 74 69 66 69 65 72 20 6f 66 20 53 59 4d 42 4f 4c 2e 0a 20 20 | package.identifier.of.SYMBOL.... |
| 4acc0 | 73 79 6d 62 6f 6c 2d 63 68 75 6e 6b 73 29 20 20 20 20 3b 20 43 68 75 6e 6b 73 20 70 65 72 74 61 | symbol-chunks)....;.Chunks.perta |
| 4ace0 | 69 6e 69 6e 67 20 74 6f 20 53 59 4d 42 4f 4c 27 73 20 6e 61 6d 65 2e 0a 0a 28 64 65 66 75 6e 20 | ining.to.SYMBOL's.name...(defun. |
| 4ad00 | 25 66 75 7a 7a 79 2d 65 78 74 72 61 63 74 2d 6d 61 74 63 68 69 6e 67 2d 69 6e 66 6f 20 28 66 75 | %fuzzy-extract-matching-info.(fu |
| 4ad20 | 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 20 75 73 65 72 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 29 0a | zzy-matching.user-input-string). |
| 4ad40 | 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 5f 20 75 73 65 72 2d 70 | ..(multiple-value-bind.(_.user-p |
| 4ad60 | 61 63 6b 61 67 65 2d 6e 61 6d 65 20 5f 5f 20 69 6e 70 75 74 2d 69 6e 74 65 72 6e 61 6c 2d 70 29 | ackage-name.__.input-internal-p) |
| 4ad80 | 0a 20 20 20 20 20 20 28 70 61 72 73 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 72 67 75 6d 65 6e | .......(parse-completion-argumen |
| 4ada0 | 74 73 20 75 73 65 72 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 20 6e 69 6c 29 0a 20 20 20 20 28 64 | ts.user-input-string.nil).....(d |
| 4adc0 | 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 5f 20 5f 5f 29 29 0a 20 20 20 20 28 77 69 74 68 2d | eclare.(ignore._.__)).....(with- |
| 4ade0 | 73 74 72 75 63 74 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 20 73 63 6f 72 65 20 73 79 | struct.(fuzzy-matching..score.sy |
| 4ae00 | 6d 62 6f 6c 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 2d 63 68 75 6e 6b 73 | mbol.package-name.package-chunks |
| 4ae20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4ae40 | 20 20 20 73 79 6d 62 6f 6c 2d 63 68 75 6e 6b 73 20 73 79 6d 62 6f 6c 2d 70 29 0a 20 20 20 20 20 | ...symbol-chunks.symbol-p)...... |
| 4ae60 | 20 20 20 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 0a 20 20 20 20 20 20 28 6c 65 74 20 28 73 79 | ...fuzzy-matching.......(let.(sy |
| 4ae80 | 6d 62 6f 6c 2d 6e 61 6d 65 20 72 65 61 6c 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 69 6e 74 65 | mbol-name.real-package-name.inte |
| 4aea0 | 72 6e 61 6c 2d 70 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 73 79 6d 62 6f 6c 2d 70 20 | rnal-p).........(cond.(symbol-p. |
| 4aec0 | 3b 20 73 79 6d 62 6f 6c 20 66 75 7a 7a 79 20 6d 61 74 63 68 69 6e 67 3f 0a 20 20 20 20 20 20 20 | ;.symbol.fuzzy.matching?........ |
| 4aee0 | 20 20 20 20 20 20 20 20 28 73 65 74 66 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 73 79 6d 62 6f | ........(setf.symbol-name.(symbo |
| 4af00 | 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | l-name.symbol))................( |
| 4af20 | 73 65 74 66 20 69 6e 74 65 72 6e 61 6c 2d 70 20 69 6e 70 75 74 2d 69 6e 74 65 72 6e 61 6c 2d 70 | setf.internal-p.input-internal-p |
| 4af40 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 61 6c 2d 70 61 63 6b | )................(setf.real-pack |
| 4af60 | 61 67 65 2d 6e 61 6d 65 20 28 63 6f 6e 64 20 28 28 6b 65 79 77 6f 72 64 70 20 73 79 6d 62 6f 6c | age-name.(cond.((keywordp.symbol |
| 4af80 | 29 20 20 20 20 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )....."")....................... |
| 4afa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 75 73 65 | .......................((not.use |
| 4afc0 | 72 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 | r-package-name).nil)............ |
| 4afe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4b000 | 20 20 28 74 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ..(t.package-name))))........... |
| 4b020 | 20 20 20 20 28 74 20 20 20 20 20 20 3b 20 70 61 63 6b 61 67 65 20 66 75 7a 7a 79 20 6d 61 74 63 | ....(t......;.package.fuzzy.matc |
| 4b040 | 68 69 6e 67 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 73 79 6d 62 6f | hing?................(setf.symbo |
| 4b060 | 6c 2d 6e 61 6d 65 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 | l-name."")................(setf. |
| 4b080 | 72 65 61 6c 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a | real-package-name.package-name). |
| 4b0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 6e 6f 20 65 78 70 6c 69 63 69 74 | ...............;;.If.no.explicit |
| 4b0c0 | 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 20 77 61 73 20 67 69 76 65 6e 20 62 79 20 74 68 65 20 75 | .package.name.was.given.by.the.u |
| 4b0e0 | 73 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 65 2e 67 2e 20 69 6e 70 75 | ser................;;.(e.g..inpu |
| 4b100 | 74 20 77 61 73 20 22 61 73 64 66 22 29 2c 20 77 65 20 77 61 6e 74 20 74 6f 20 61 70 70 65 6e 64 | t.was."asdf"),.we.want.to.append |
| 4b120 | 20 6f 6e 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6f 6e 65 20 63 6f 6c 6f | .only................;;.one.colo |
| 4b140 | 6e 20 22 3a 22 20 74 6f 20 74 68 65 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 73 2e 0a 20 20 20 20 | n.":".to.the.package.names...... |
| 4b160 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 69 6e 74 65 72 6e 61 6c 2d 70 20 28 69 66 20 | ...........(setf.internal-p.(if. |
| 4b180 | 75 73 65 72 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 69 6e 70 75 74 2d 69 6e 74 65 72 6e 61 6c | user-package-name.input-internal |
| 4b1a0 | 2d 70 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 73 79 6d 62 6f | -p.nil)))).........(values.symbo |
| 4b1c0 | 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 61 6c 2d 70 61 63 6b | l-name.................real-pack |
| 4b1e0 | 61 67 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 75 73 65 | age-name.................(if.use |
| 4b200 | 72 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 69 6e 74 65 72 6e 61 6c 2d 70 20 6e 69 6c 29 0a 20 | r-package-name.internal-p.nil).. |
| 4b220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 | ...............(completion-outpu |
| 4b240 | 74 2d 73 79 6d 62 6f 6c 2d 63 6f 6e 76 65 72 74 65 72 20 75 73 65 72 2d 69 6e 70 75 74 2d 73 74 | t-symbol-converter.user-input-st |
| 4b260 | 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6f | ring).................(completio |
| 4b280 | 6e 2d 6f 75 74 70 75 74 2d 70 61 63 6b 61 67 65 2d 63 6f 6e 76 65 72 74 65 72 20 75 73 65 72 2d | n-output-package-converter.user- |
| 4b2a0 | 69 6e 70 75 74 2d 73 74 72 69 6e 67 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 7a 7a 79 | input-string))))))..(defun.fuzzy |
| 4b2c0 | 2d 66 6f 72 6d 61 74 2d 6d 61 74 63 68 69 6e 67 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 | -format-matching.(fuzzy-matching |
| 4b2e0 | 20 75 73 65 72 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 | .user-input-string)..."Returns.t |
| 4b300 | 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 28 5c 22 66 6f 6f 3a 62 61 72 5c 22 29 20 74 68 61 74 | he.completion.(\"foo:bar\").that |
| 4b320 | 27 73 20 72 65 70 72 65 73 65 6e 74 65 64 20 62 79 20 46 55 5a 5a 59 2d 4d 41 54 43 48 49 4e 47 | 's.represented.by.FUZZY-MATCHING |
| 4b340 | 2e 22 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 79 6d 62 6f | ."...(multiple-value-bind.(symbo |
| 4b360 | 6c 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 69 6e 74 65 72 6e 61 6c 2d 70 0a 20 | l-name.package-name.internal-p.. |
| 4b380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 2d 63 6f | .......................symbol-co |
| 4b3a0 | 6e 76 65 72 74 65 72 20 70 61 63 6b 61 67 65 2d 63 6f 6e 76 65 72 74 65 72 29 0a 20 20 20 20 20 | nverter.package-converter)...... |
| 4b3c0 | 20 28 25 66 75 7a 7a 79 2d 65 78 74 72 61 63 74 2d 6d 61 74 63 68 69 6e 67 2d 69 6e 66 6f 20 66 | .(%fuzzy-extract-matching-info.f |
| 4b3e0 | 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 20 75 73 65 72 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 29 | uzzy-matching.user-input-string) |
| 4b400 | 0a 20 20 20 20 28 73 65 74 71 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 61 6e 64 20 73 79 6d 62 | .....(setq.symbol-name.(and.symb |
| 4b420 | 6f 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ol-name......................... |
| 4b440 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 73 79 6d 62 6f 6c 2d 63 6f 6e 76 65 72 74 65 72 20 73 79 6d | ...(funcall.symbol-converter.sym |
| 4b460 | 62 6f 6c 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 70 61 63 6b 61 67 65 2d 6e 61 | bol-name))).....(setq.package-na |
| 4b480 | 6d 65 20 28 61 6e 64 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 | me.(and.package-name............ |
| 4b4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 70 61 63 6b 61 67 | .................(funcall.packag |
| 4b4c0 | 65 2d 63 6f 6e 76 65 72 74 65 72 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 | e-converter.package-name)))..... |
| 4b4e0 | 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 75 6e 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c | (let.((result.(untokenize-symbol |
| 4b500 | 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 69 6e 74 65 72 6e 61 6c 2d 70 20 73 79 6d 62 6f 6c 2d | .package-name.internal-p.symbol- |
| 4b520 | 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 57 65 20 72 65 74 75 72 6e 20 74 68 65 20 6c | name))).......;;.We.return.the.l |
| 4b540 | 65 6e 67 74 68 20 6f 66 20 74 68 65 20 70 6f 73 73 69 62 6c 79 20 61 64 64 65 64 20 70 72 65 66 | ength.of.the.possibly.added.pref |
| 4b560 | 69 78 20 61 73 20 73 65 63 6f 6e 64 20 76 61 6c 75 65 2e 0a 20 20 20 20 20 20 28 76 61 6c 75 65 | ix.as.second.value........(value |
| 4b580 | 73 20 72 65 73 75 6c 74 20 28 73 65 61 72 63 68 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 72 65 73 | s.result.(search.symbol-name.res |
| 4b5a0 | 75 6c 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 7a 7a 79 2d 63 6f 6e 76 65 72 74 2d 6d | ult)))))..(defun.fuzzy-convert-m |
| 4b5c0 | 61 74 63 68 69 6e 67 2d 66 6f 72 2d 65 6d 61 63 73 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e | atching-for-emacs.(fuzzy-matchin |
| 4b5e0 | 67 20 75 73 65 72 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 29 0a 20 20 22 43 6f 6e 76 65 72 74 73 | g.user-input-string)..."Converts |
| 4b600 | 20 61 20 72 65 73 75 6c 74 20 66 72 6f 6d 20 74 68 65 20 66 75 7a 7a 79 20 63 6f 6d 70 6c 65 74 | .a.result.from.the.fuzzy.complet |
| 4b620 | 69 6f 6e 20 63 6f 72 65 20 69 6e 74 6f 20 73 6f 6d 65 74 68 69 6e 67 0a 74 68 61 74 20 65 6d 61 | ion.core.into.something.that.ema |
| 4b640 | 63 73 20 69 73 20 65 78 70 65 63 74 69 6e 67 2e 20 20 43 6f 6e 76 65 72 74 73 20 73 79 6d 62 6f | cs.is.expecting...Converts.symbo |
| 4b660 | 6c 73 20 74 6f 20 73 74 72 69 6e 67 73 2c 20 66 69 78 65 73 20 63 61 73 65 0a 69 73 73 75 65 73 | ls.to.strings,.fixes.case.issues |
| 4b680 | 2c 20 61 6e 64 20 61 64 64 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 28 61 73 20 61 20 73 74 72 | ,.and.adds.information.(as.a.str |
| 4b6a0 | 69 6e 67 29 20 64 65 73 63 72 69 62 69 6e 67 20 69 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 | ing).describing.if.the.symbol.is |
| 4b6c0 | 0a 62 6f 75 6e 64 2c 20 66 62 6f 75 6e 64 2c 20 61 20 63 6c 61 73 73 2c 20 61 20 6d 61 63 72 6f | .bound,.fbound,.a.class,.a.macro |
| 4b6e0 | 2c 20 61 20 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2c 20 61 0a 73 70 65 63 69 61 6c 2d | ,.a.generic-function,.a.special- |
| 4b700 | 6f 70 65 72 61 74 6f 72 2c 20 6f 72 20 61 20 70 61 63 6b 61 67 65 2e 22 0a 20 20 28 77 69 74 68 | operator,.or.a.package."...(with |
| 4b720 | 2d 73 74 72 75 63 74 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 20 73 79 6d 62 6f 6c 20 | -struct.(fuzzy-matching..symbol. |
| 4b740 | 73 63 6f 72 65 20 70 61 63 6b 61 67 65 2d 63 68 75 6e 6b 73 20 73 79 6d 62 6f 6c 2d 63 68 75 6e | score.package-chunks.symbol-chun |
| 4b760 | 6b 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ks.............................. |
| 4b780 | 20 20 20 73 79 6d 62 6f 6c 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 7a 7a | ...symbol-p)................fuzz |
| 4b7a0 | 79 2d 6d 61 74 63 68 69 6e 67 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 | y-matching.....(multiple-value-b |
| 4b7c0 | 69 6e 64 20 28 6e 61 6d 65 20 61 64 64 65 64 2d 6c 65 6e 67 74 68 29 0a 20 20 20 20 20 20 20 20 | ind.(name.added-length)......... |
| 4b7e0 | 28 66 75 7a 7a 79 2d 66 6f 72 6d 61 74 2d 6d 61 74 63 68 69 6e 67 20 66 75 7a 7a 79 2d 6d 61 74 | (fuzzy-format-matching.fuzzy-mat |
| 4b800 | 63 68 69 6e 67 20 75 73 65 72 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 28 | ching.user-input-string).......( |
| 4b820 | 6c 69 73 74 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 | list.name.............(format.ni |
| 4b840 | 6c 20 22 7e 2c 32 66 22 20 73 63 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 | l."~,2f".score).............(app |
| 4b860 | 65 6e 64 20 70 61 63 6b 61 67 65 2d 63 68 75 6e 6b 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | end.package-chunks.............. |
| 4b880 | 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 63 68 75 6e 6b 29 0a 20 | .......(mapcar.(lambda.(chunk).. |
| 4b8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | .............................;;. |
| 4b8c0 | 46 69 78 20 75 70 20 63 68 75 6e 6b 20 70 6f 73 69 74 69 6f 6e 73 20 74 6f 20 61 63 63 6f 75 6e | Fix.up.chunk.positions.to.accoun |
| 4b8e0 | 74 20 66 6f 72 20 70 6f 73 73 69 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.for.possible.................. |
| 4b900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 64 64 65 64 20 70 61 63 6b 61 67 65 20 69 64 | .............;;.added.package.id |
| 4b920 | 65 6e 74 69 66 69 65 72 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | entifier........................ |
| 4b940 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 66 66 73 65 74 20 28 66 69 72 73 74 20 63 68 75 | ........(let.((offset.(first.chu |
| 4b960 | 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nk))............................ |
| 4b980 | 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 28 73 65 63 6f 6e 64 20 63 68 75 6e 6b 29 29 | .........(string.(second.chunk)) |
| 4b9a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 4b9c0 | 20 20 28 6c 69 73 74 20 28 2b 20 61 64 64 65 64 2d 6c 65 6e 67 74 68 20 6f 66 66 73 65 74 29 20 | ..(list.(+.added-length.offset). |
| 4b9e0 | 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | string)))....................... |
| 4ba00 | 20 20 20 20 20 20 73 79 6d 62 6f 6c 2d 63 68 75 6e 6b 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ......symbol-chunks))........... |
| 4ba20 | 20 20 28 69 66 20 73 79 6d 62 6f 6c 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ..(if.symbol-p.................( |
| 4ba40 | 73 79 6d 62 6f 6c 2d 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 73 79 6d | symbol-classification-string.sym |
| 4ba60 | 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 2d 2d 2d 70 22 29 | bol)................."-------p") |
| 4ba80 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 | ))))..(defun.fuzzy-completion-se |
| 4baa0 | 74 20 28 73 74 72 69 6e 67 20 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 0a 20 | t.(string.default-package-name.. |
| 4bac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 | ............................&key |
| 4bae0 | 20 6c 69 6d 69 74 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 29 0a 20 20 22 52 65 | .limit.time-limit-in-msec)..."Re |
| 4bb00 | 74 75 72 6e 73 20 74 77 6f 20 76 61 6c 75 65 73 3a 20 61 6e 20 61 72 72 61 79 20 6f 66 20 63 6f | turns.two.values:.an.array.of.co |
| 4bb20 | 6d 70 6c 65 74 69 6f 6e 20 6f 62 6a 65 63 74 73 2c 20 73 6f 72 74 65 64 20 62 79 0a 74 68 65 69 | mpletion.objects,.sorted.by.thei |
| 4bb40 | 72 20 73 63 6f 72 65 2c 20 74 68 61 74 20 69 73 20 68 6f 77 20 77 65 6c 6c 20 74 68 65 79 20 61 | r.score,.that.is.how.well.they.a |
| 4bb60 | 72 65 20 61 20 6d 61 74 63 68 20 66 6f 72 20 53 54 52 49 4e 47 0a 61 63 63 6f 72 64 69 6e 67 20 | re.a.match.for.STRING.according. |
| 4bb80 | 74 6f 20 74 68 65 20 66 75 7a 7a 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 6c 67 6f 72 69 74 68 | to.the.fuzzy.completion.algorith |
| 4bba0 | 6d 2e 20 20 49 66 20 4c 49 4d 49 54 20 69 73 20 73 65 74 2c 0a 6f 6e 6c 79 20 74 68 65 20 74 6f | m...If.LIMIT.is.set,.only.the.to |
| 4bbc0 | 70 20 4c 49 4d 49 54 20 72 65 73 75 6c 74 73 20 77 69 6c 6c 20 62 65 20 72 65 74 75 72 6e 65 64 | p.LIMIT.results.will.be.returned |
| 4bbe0 | 2e 20 41 64 64 69 74 69 6f 6e 61 6c 6c 79 2c 20 61 20 66 6c 61 67 0a 69 73 20 72 65 74 75 72 6e | ..Additionally,.a.flag.is.return |
| 4bc00 | 65 64 20 74 68 61 74 20 69 6e 64 69 63 61 74 65 73 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 | ed.that.indicates.whether.or.not |
| 4bc20 | 20 54 49 4d 45 2d 4c 49 4d 49 54 2d 49 4e 2d 4d 53 45 43 20 77 61 73 0a 65 78 68 61 75 73 74 65 | .TIME-LIMIT-IN-MSEC.was.exhauste |
| 4bc40 | 64 2e 22 0a 20 20 28 63 68 65 63 6b 2d 74 79 70 65 20 6c 69 6d 69 74 20 28 6f 72 20 6e 75 6c 6c | d."...(check-type.limit.(or.null |
| 4bc60 | 20 28 69 6e 74 65 67 65 72 20 30 20 23 2e 28 31 2d 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d | .(integer.0.#.(1-.most-positive- |
| 4bc80 | 66 69 78 6e 75 6d 29 29 29 29 0a 20 20 28 63 68 65 63 6b 2d 74 79 70 65 20 74 69 6d 65 2d 6c 69 | fixnum))))...(check-type.time-li |
| 4bca0 | 6d 69 74 2d 69 6e 2d 6d 73 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 6e 75 | mit-in-msec...............(or.nu |
| 4bcc0 | 6c 6c 20 28 69 6e 74 65 67 65 72 20 30 20 23 2e 28 31 2d 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 | ll.(integer.0.#.(1-.most-positiv |
| 4bce0 | 65 2d 66 69 78 6e 75 6d 29 29 29 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 | e-fixnum))))...(multiple-value-b |
| 4bd00 | 69 6e 64 20 28 6d 61 74 63 68 69 6e 67 73 20 69 6e 74 65 72 72 75 70 74 65 64 2d 70 29 0a 20 20 | ind.(matchings.interrupted-p)... |
| 4bd20 | 20 20 20 20 28 66 75 7a 7a 79 2d 67 65 6e 65 72 61 74 65 2d 6d 61 74 63 68 69 6e 67 73 20 73 74 | ....(fuzzy-generate-matchings.st |
| 4bd40 | 72 69 6e 67 20 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 74 69 6d 65 2d 6c | ring.default-package-name.time-l |
| 4bd60 | 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6c 69 6d | imit-in-msec).....(when.(and.lim |
| 4bd80 | 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 20 6c 69 6d 69 74 20 30 29 0a 20 20 | it................(>.limit.0)... |
| 4bda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 6c 69 6d 69 74 20 28 6c 65 6e 67 74 68 20 6d 61 | .............(<.limit.(length.ma |
| 4bdc0 | 74 63 68 69 6e 67 73 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 61 72 72 61 79 2d 68 61 73 2d | tchings))).......(if.(array-has- |
| 4bde0 | 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 2d 70 20 6d 61 74 63 68 69 6e 67 73 29 0a 20 20 20 20 20 20 | fill-pointer-p.matchings)....... |
| 4be00 | 20 20 20 20 28 73 65 74 66 20 28 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 6d 61 74 63 68 69 6e 67 | ....(setf.(fill-pointer.matching |
| 4be20 | 73 29 20 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 6d 61 74 63 68 69 | s).limit)...........(setf.matchi |
| 4be40 | 6e 67 73 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 6c 69 6d 69 74 20 3a 64 69 73 70 6c 61 63 65 64 | ngs.(make-array.limit.:displaced |
| 4be60 | 2d 74 6f 20 6d 61 74 63 68 69 6e 67 73 29 29 29 29 0a 20 20 20 20 28 6d 61 70 2d 69 6e 74 6f 20 | -to.matchings)))).....(map-into. |
| 4be80 | 6d 61 74 63 68 69 6e 67 73 20 23 27 28 6c 61 6d 62 64 61 20 28 6d 29 0a 20 20 20 20 20 20 20 20 | matchings.#'(lambda.(m)......... |
| 4bea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 7a 7a 79 2d 63 6f 6e 76 65 | ....................(fuzzy-conve |
| 4bec0 | 72 74 2d 6d 61 74 63 68 69 6e 67 2d 66 6f 72 2d 65 6d 61 63 73 20 6d 20 73 74 72 69 6e 67 29 29 | rt-matching-for-emacs.m.string)) |
| 4bee0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 74 63 68 69 6e 67 73 29 0a 20 20 20 20 28 76 | ...............matchings).....(v |
| 4bf00 | 61 6c 75 65 73 20 6d 61 74 63 68 69 6e 67 73 20 69 6e 74 65 72 72 75 70 74 65 64 2d 70 29 29 29 | alues.matchings.interrupted-p))) |
| 4bf20 | 0a 0a 0a 28 64 65 66 75 6e 20 66 75 7a 7a 79 2d 67 65 6e 65 72 61 74 65 2d 6d 61 74 63 68 69 6e | ...(defun.fuzzy-generate-matchin |
| 4bf40 | 67 73 20 28 73 74 72 69 6e 67 20 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 0a | gs.(string.default-package-name. |
| 4bf60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4bf80 | 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 29 0a 20 20 22 44 6f 65 73 20 61 6c 6c | .time-limit-in-msec)..."Does.all |
| 4bfa0 | 20 74 68 65 20 68 61 72 64 20 77 6f 72 6b 20 66 6f 72 20 46 55 5a 5a 59 2d 43 4f 4d 50 4c 45 54 | .the.hard.work.for.FUZZY-COMPLET |
| 4bfc0 | 49 4f 4e 2d 53 45 54 2e 20 49 66 0a 54 49 4d 45 2d 4c 49 4d 49 54 2d 49 4e 2d 4d 53 45 43 20 69 | ION-SET..If.TIME-LIMIT-IN-MSEC.i |
| 4bfe0 | 73 20 4e 49 4c 2c 20 61 6e 20 69 6e 66 69 6e 69 74 65 20 74 69 6d 65 20 6c 69 6d 69 74 20 69 73 | s.NIL,.an.infinite.time.limit.is |
| 4c000 | 20 61 73 73 75 6d 65 64 2e 22 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e | .assumed."...(multiple-value-bin |
| 4c020 | 64 20 28 70 61 72 73 65 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 70 61 72 73 65 64 2d 70 61 63 | d.(parsed-symbol-name.parsed-pac |
| 4c040 | 6b 61 67 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kage-name....................... |
| 4c060 | 20 20 70 61 63 6b 61 67 65 20 69 6e 74 65 72 6e 61 6c 2d 70 29 0a 20 20 20 20 20 20 28 70 61 72 | ..package.internal-p).......(par |
| 4c080 | 73 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 73 20 73 74 72 69 6e 67 20 64 | se-completion-arguments.string.d |
| 4c0a0 | 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 20 20 28 66 6c 65 74 20 28 | efault-package-name).....(flet.( |
| 4c0c0 | 28 66 69 78 2d 75 70 20 28 6d 61 74 63 68 69 6e 67 73 20 70 61 72 65 6e 74 2d 70 61 63 6b 61 67 | (fix-up.(matchings.parent-packag |
| 4c0e0 | 65 2d 6d 61 74 63 68 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 | e-matching)..............;;.The. |
| 4c100 | 63 6f 6d 70 6f 6e 65 6e 74 73 20 6f 66 20 65 61 63 68 20 6d 61 74 63 68 69 6e 67 20 69 6e 20 4d | components.of.each.matching.in.M |
| 4c120 | 41 54 43 48 49 4e 47 53 20 68 61 76 65 20 62 65 65 6e 20 63 6f 6d 70 75 74 65 64 0a 20 20 20 20 | ATCHINGS.have.been.computed..... |
| 4c140 | 20 20 20 20 20 20 20 20 20 3b 3b 20 72 65 6c 61 74 69 76 65 6c 79 20 74 6f 20 50 41 52 45 4e 54 | .........;;.relatively.to.PARENT |
| 4c160 | 2d 50 41 43 4b 41 47 45 2d 4d 41 54 43 48 49 4e 47 2e 20 4d 61 6b 65 20 74 68 65 6d 20 61 62 73 | -PACKAGE-MATCHING..Make.them.abs |
| 4c180 | 6f 6c 75 74 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 20 70 61 | olute...............(let*.((p.pa |
| 4c1a0 | 72 65 6e 74 2d 70 61 63 6b 61 67 65 2d 6d 61 74 63 68 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 | rent-package-matching).......... |
| 4c1c0 | 20 20 20 20 20 20 20 20 20 20 20 28 70 2e 6e 61 6d 65 20 20 20 28 66 75 7a 7a 79 2d 6d 61 74 63 | ...........(p.name...(fuzzy-matc |
| 4c1e0 | 68 69 6e 67 2e 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 | hing.package-name.p))........... |
| 4c200 | 20 20 20 20 20 20 20 20 20 20 28 70 2e 73 63 6f 72 65 20 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 | ..........(p.score..(fuzzy-match |
| 4c220 | 69 6e 67 2e 73 63 6f 72 65 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing.score.p))................... |
| 4c240 | 20 20 28 70 2e 63 68 75 6e 6b 73 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 70 61 63 6b | ..(p.chunks.(fuzzy-matching.pack |
| 4c260 | 61 67 65 2d 63 68 75 6e 6b 73 20 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | age-chunks.p)))................( |
| 4c280 | 6d 61 70 2d 69 6e 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 74 63 68 69 6e | map-into.................matchin |
| 4c2a0 | 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6d 29 0a 20 | gs.................(lambda.(m).. |
| 4c2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 2e 73 63 6f 72 65 20 | .................(let.((m.score. |
| 4c2e0 | 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 73 63 6f 72 65 20 6d 29 29 29 0a 20 20 20 20 20 | (fuzzy-matching.score.m)))...... |
| 4c300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 66 75 7a 7a 79 2d 6d 61 74 63 | ...............(setf.(fuzzy-matc |
| 4c320 | 68 69 6e 67 2e 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 6d 29 20 70 2e 6e 61 6d 65 29 0a 20 20 20 | hing.package-name.m).p.name).... |
| 4c340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 66 75 7a 7a 79 2d 6d 61 | .................(setf.(fuzzy-ma |
| 4c360 | 74 63 68 69 6e 67 2e 70 61 63 6b 61 67 65 2d 63 68 75 6e 6b 73 20 6d 29 20 70 2e 63 68 75 6e 6b | tching.package-chunks.m).p.chunk |
| 4c380 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 66 75 | s).....................(setf.(fu |
| 4c3a0 | 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 73 63 6f 72 65 20 6d 29 0a 20 20 20 20 20 20 20 20 20 20 | zzy-matching.score.m)........... |
| 4c3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 70 61 72 73 65 | ................(if.(equal.parse |
| 4c3e0 | 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-symbol-name."")............... |
| 4c400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4d 61 6b 65 20 70 61 63 6b 61 67 65 20 | ................;;.Make.package. |
| 4c420 | 6d 61 74 63 68 69 6e 67 73 20 62 65 20 73 6f 72 74 65 64 20 62 65 66 6f 72 65 20 61 6c 6c 0a 20 | matchings.be.sorted.before.all.. |
| 4c440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | .............................;;. |
| 4c460 | 74 68 65 20 72 65 6c 61 74 69 76 65 20 73 79 6d 62 6f 6c 20 6d 61 74 63 68 69 6e 67 73 20 77 68 | the.relative.symbol.matchings.wh |
| 4c480 | 69 6c 65 20 70 72 65 73 65 72 76 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile.preserving.................. |
| 4c4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6f 76 65 72 20 61 6c 6c 20 6f 72 64 65 72 6e 65 | .............;;.over.all.orderne |
| 4c4c0 | 73 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ss.............................. |
| 4c4e0 | 20 20 28 2f 20 70 2e 73 63 6f 72 65 20 31 30 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(/.p.score.100)............... |
| 4c500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 70 2e 73 63 6f 72 65 20 6d 2e 73 63 6f | ................(+.p.score.m.sco |
| 4c520 | 72 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 29 29 0a 20 20 | re))).....................m))... |
| 4c540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 74 63 68 69 6e 67 73 29 29 29 0a 20 20 20 20 20 | ..............matchings)))...... |
| 4c560 | 20 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 73 20 28 64 65 73 69 67 6e 61 74 6f 72 20 | ......(find-symbols.(designator. |
| 4c580 | 70 61 63 6b 61 67 65 20 74 69 6d 65 2d 6c 69 6d 69 74 20 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c | package.time-limit.&optional.fil |
| 4c5a0 | 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 7a 7a 79 2d 66 69 6e 64 2d 6d 61 | ter)..............(fuzzy-find-ma |
| 4c5c0 | 74 63 68 69 6e 67 2d 73 79 6d 62 6f 6c 73 20 64 65 73 69 67 6e 61 74 6f 72 20 70 61 63 6b 61 67 | tching-symbols.designator.packag |
| 4c5e0 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e............................... |
| 4c600 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 20 | ............:time-limit-in-msec. |
| 4c620 | 74 69 6d 65 2d 6c 69 6d 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | time-limit...................... |
| 4c640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 6f | .....................:external-o |
| 4c660 | 6e 6c 79 20 28 6e 6f 74 20 69 6e 74 65 72 6e 61 6c 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 | nly.(not.internal-p)............ |
| 4c680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ...............................: |
| 4c6a0 | 66 69 6c 74 65 72 20 28 6f 72 20 66 69 6c 74 65 72 20 23 27 69 64 65 6e 74 69 74 79 29 29 29 0a | filter.(or.filter.#'identity))). |
| 4c6c0 | 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 73 20 28 64 65 73 69 67 | ...........(find-packages.(desig |
| 4c6e0 | 6e 61 74 6f 72 20 74 69 6d 65 2d 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | nator.time-limit)..............( |
| 4c700 | 66 75 7a 7a 79 2d 66 69 6e 64 2d 6d 61 74 63 68 69 6e 67 2d 70 61 63 6b 61 67 65 73 20 64 65 73 | fuzzy-find-matching-packages.des |
| 4c720 | 69 67 6e 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ignator......................... |
| 4c740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 | ...................:time-limit-i |
| 4c760 | 6e 2d 6d 73 65 63 20 74 69 6d 65 2d 6c 69 6d 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | n-msec.time-limit))............( |
| 4c780 | 6d 61 79 62 65 2d 66 69 6e 64 2d 6c 6f 63 61 6c 2d 70 61 63 6b 61 67 65 20 28 6e 61 6d 65 29 0a | maybe-find-local-package.(name). |
| 4c7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 66 69 6e 64 2d 6c 6f 63 61 6c 6c 79 2d 6e | .............(or.(find-locally-n |
| 4c7c0 | 69 63 6b 6e 61 6d 65 64 2d 70 61 63 6b 61 67 65 20 6e 61 6d 65 20 2a 62 75 66 66 65 72 2d 70 61 | icknamed-package.name.*buffer-pa |
| 4c7e0 | 63 6b 61 67 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 70 | ckage*)..................(find-p |
| 4c800 | 61 63 6b 61 67 65 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 69 6d | ackage.name)))).......(let.((tim |
| 4c820 | 65 2d 6c 69 6d 69 74 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 29 20 28 73 79 6d | e-limit.time-limit-in-msec).(sym |
| 4c840 | 62 6f 6c 73 29 20 28 70 61 63 6b 61 67 65 73 29 20 28 72 65 73 75 6c 74 73 29 0a 20 20 20 20 20 | bols).(packages).(results)...... |
| 4c860 | 20 20 20 20 20 20 20 28 64 65 64 75 70 2d 74 61 62 6c 65 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 | .......(dedup-table.(make-hash-t |
| 4c880 | 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 | able.:test.#'equal))).........(c |
| 4c8a0 | 6f 6e 64 20 28 28 6e 6f 74 20 70 61 72 73 65 64 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 20 3b | ond.((not.parsed-package-name).; |
| 4c8c0 | 20 45 2e 67 2e 20 53 54 52 49 4e 47 20 3d 20 22 61 73 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 | .E.g..STRING.=."asd"............ |
| 4c8e0 | 20 20 20 20 3b 3b 20 57 65 20 64 6f 6e 27 74 20 6b 6e 6f 77 20 69 66 20 75 73 65 72 20 69 73 20 | ....;;.We.don't.know.if.user.is. |
| 4c900 | 73 65 61 72 63 68 69 6e 67 20 66 6f 72 20 61 20 70 61 63 6b 61 67 65 20 6f 72 20 61 20 73 79 6d | searching.for.a.package.or.a.sym |
| 4c920 | 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 69 74 68 69 6e 20 68 69 73 | bol................;;.within.his |
| 4c940 | 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 2e 20 53 6f 20 77 65 20 74 72 79 20 74 6f 20 66 | .current.package..So.we.try.to.f |
| 4c960 | 69 6e 64 20 65 69 74 68 65 72 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 | ind.either.................(setf |
| 4c980 | 20 28 76 61 6c 75 65 73 20 70 61 63 6b 61 67 65 73 20 74 69 6d 65 2d 6c 69 6d 69 74 29 0a 20 20 | .(values.packages.time-limit)... |
| 4c9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 | ...................(find-package |
| 4c9c0 | 73 20 70 61 72 73 65 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 74 69 6d 65 2d 6c 69 6d 69 74 29 | s.parsed-symbol-name.time-limit) |
| 4c9e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 76 61 6c 75 65 73 20 73 | )................(setf.(values.s |
| 4ca00 | 79 6d 62 6f 6c 73 20 20 74 69 6d 65 2d 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ymbols..time-limit)............. |
| 4ca20 | 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 73 20 70 61 72 73 65 64 2d 73 79 | .........(find-symbols.parsed-sy |
| 4ca40 | 6d 62 6f 6c 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 20 74 69 6d 65 2d 6c 69 6d 69 74 29 29 29 0a | mbol-name.package.time-limit))). |
| 4ca60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 3d 20 70 61 72 73 65 64 2d 70 | ..............((string=.parsed-p |
| 4ca80 | 61 63 6b 61 67 65 2d 6e 61 6d 65 20 22 22 29 20 3b 20 45 2e 67 2e 20 53 54 52 49 4e 47 20 3d 20 | ackage-name."").;.E.g..STRING.=. |
| 4caa0 | 22 3a 22 20 6f 72 20 22 3a 66 6f 6f 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | ":".or.":foo"................(se |
| 4cac0 | 74 66 20 28 76 61 6c 75 65 73 20 73 79 6d 62 6f 6c 73 20 74 69 6d 65 2d 6c 69 6d 69 74 29 0a 20 | tf.(values.symbols.time-limit).. |
| 4cae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c | ....................(find-symbol |
| 4cb00 | 73 20 70 61 72 73 65 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 20 74 69 6d | s.parsed-symbol-name.package.tim |
| 4cb20 | 65 2d 6c 69 6d 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 20 20 20 20 | e-limit)))...............(t..... |
| 4cb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 45 2e 67 2e 20 53 54 52 49 4e 47 20 3d 20 22 61 | ..............;.E.g..STRING.=."a |
| 4cb60 | 73 64 3a 22 20 6f 72 20 22 61 73 64 3a 66 6f 6f 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sd:".or."asd:foo"............... |
| 4cb80 | 20 3b 3b 20 46 69 6e 64 20 66 75 7a 7a 79 20 6d 61 74 63 68 69 6e 67 73 20 6f 66 20 74 68 65 20 | .;;.Find.fuzzy.matchings.of.the. |
| 4cba0 | 64 65 6e 6f 74 65 64 20 70 61 63 6b 61 67 65 20 69 64 65 6e 74 69 66 69 65 72 20 70 61 72 74 2e | denoted.package.identifier.part. |
| 4cbc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 66 74 65 72 20 74 68 61 74 2c 20 66 | ................;;.After.that,.f |
| 4cbe0 | 69 6e 64 20 6d 61 74 63 68 69 6e 67 73 20 66 6f 72 20 74 68 65 20 64 65 6e 6f 74 65 64 20 73 79 | ind.matchings.for.the.denoted.sy |
| 4cc00 | 6d 62 6f 6c 20 69 64 65 6e 74 69 66 69 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | mbol.identifier................; |
| 4cc20 | 3b 20 72 65 6c 61 74 69 76 65 20 74 6f 20 61 6c 6c 20 74 68 65 20 70 61 63 6b 61 67 65 73 20 66 | ;.relative.to.all.the.packages.f |
| 4cc40 | 6f 75 6e 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 | ound.................(multiple-v |
| 4cc60 | 61 6c 75 65 2d 62 69 6e 64 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 73 20 72 65 73 74 2d | alue-bind.(symbol-packages.rest- |
| 4cc80 | 74 69 6d 65 2d 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | time-limit)....................( |
| 4cca0 | 66 69 6e 64 2d 70 61 63 6b 61 67 65 73 20 70 61 72 73 65 64 2d 70 61 63 6b 61 67 65 2d 6e 61 6d | find-packages.parsed-package-nam |
| 4ccc0 | 65 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 | e.time-limit-in-msec)........... |
| 4cce0 | 20 20 20 20 20 20 20 3b 3b 20 57 65 20 77 61 6e 74 20 74 6f 20 74 72 61 76 65 72 73 65 20 74 68 | .......;;.We.want.to.traverse.th |
| 4cd00 | 65 20 66 6f 75 6e 64 20 70 61 63 6b 61 67 65 73 20 69 6e 20 74 68 65 20 6f 72 64 65 72 20 6f 66 | e.found.packages.in.the.order.of |
| 4cd20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 69 72 20 73 63 6f 72 65 | ..................;;.their.score |
| 4cd40 | 2c 20 73 69 6e 63 65 20 74 68 6f 73 65 20 77 69 74 68 20 68 69 67 68 65 72 20 73 63 6f 72 65 20 | ,.since.those.with.higher.score. |
| 4cd60 | 70 72 65 73 75 6d 61 62 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 72 | presumably..................;;.r |
| 4cd80 | 65 70 72 65 73 65 6e 74 20 62 65 74 74 65 72 20 63 68 6f 69 63 65 73 2e 20 20 28 54 68 69 73 20 | epresent.better.choices...(This. |
| 4cda0 | 69 73 20 69 6d 70 6f 72 74 61 6e 74 20 62 65 63 61 75 73 65 20 73 6f 6d 65 0a 20 20 20 20 20 20 | is.important.because.some....... |
| 4cdc0 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 61 63 6b 61 67 65 73 20 6d 61 79 20 6e 65 76 65 72 | ...........;;.packages.may.never |
| 4cde0 | 20 62 65 20 6c 6f 6f 6b 65 64 20 61 74 20 69 66 20 74 69 6d 65 20 6c 69 6d 69 74 20 65 78 68 61 | .be.looked.at.if.time.limit.exha |
| 4ce00 | 75 73 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 75 72 69 6e 67 20 | usts..................;;.during. |
| 4ce20 | 74 72 61 76 65 72 73 61 6c 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | traversal.)..................(se |
| 4ce40 | 74 66 20 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | tf.symbol-packages.............. |
| 4ce60 | 20 20 20 20 20 20 20 20 20 20 28 73 6f 72 74 20 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 73 20 | ..........(sort.symbol-packages. |
| 4ce80 | 23 27 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2d 67 72 65 61 74 65 72 70 29 29 0a 20 20 20 20 | #'fuzzy-matching-greaterp))..... |
| 4cea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............(loop.............. |
| 4cec0 | 20 20 20 20 20 20 66 6f 72 20 70 61 63 6b 61 67 65 2d 6d 61 74 63 68 69 6e 67 20 61 63 72 6f 73 | ......for.package-matching.acros |
| 4cee0 | 73 20 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.symbol-packages............... |
| 4cf00 | 20 20 20 20 20 66 6f 72 20 70 61 63 6b 61 67 65 20 3d 20 28 6d 61 79 62 65 2d 66 69 6e 64 2d 6c | .....for.package.=.(maybe-find-l |
| 4cf20 | 6f 63 61 6c 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ocal-package.................... |
| 4cf40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 70 | ...............(fuzzy-matching.p |
| 4cf60 | 61 63 6b 61 67 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ackage-name..................... |
| 4cf80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 63 6b 61 67 65 2d 6d 61 74 63 68 69 6e 67 29 | ...............package-matching) |
| 4cfa0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 28 6f 72 20 28 | )....................while.(or.( |
| 4cfc0 | 6e 6f 74 20 74 69 6d 65 2d 6c 69 6d 69 74 29 20 28 3e 20 72 65 73 74 2d 74 69 6d 65 2d 6c 69 6d | not.time-limit).(>.rest-time-lim |
| 4cfe0 | 69 74 20 30 29 29 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 | it.0)).do....................(mu |
| 4d000 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6d 61 74 63 68 69 6e 67 73 20 72 65 6d | ltiple-value-bind.(matchings.rem |
| 4d020 | 61 69 6e 69 6e 67 2d 74 69 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | aining-time).................... |
| 4d040 | 20 20 20 20 3b 3b 20 54 68 65 20 64 75 70 6c 69 63 61 74 69 6f 6e 20 66 69 6c 74 65 72 20 72 65 | ....;;.The.duplication.filter.re |
| 4d060 | 6d 6f 76 65 73 20 61 6c 6c 20 74 68 6f 73 65 20 73 79 6d 62 6f 6c 73 0a 20 20 20 20 20 20 20 20 | moves.all.those.symbols......... |
| 4d080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 68 69 63 68 20 61 72 65 20 70 72 65 73 | ...............;;.which.are.pres |
| 4d0a0 | 65 6e 74 20 69 6e 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 70 61 63 6b 61 67 65 0a 20 20 20 | ent.in.more.than.one.package.... |
| 4d0c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6d 61 74 63 68 2e 20 53 65 | ....................;;.match..Se |
| 4d0e0 | 65 20 2a 46 55 5a 5a 59 2d 44 55 50 4c 49 43 41 54 45 2d 53 59 4d 42 4f 4c 2d 46 49 4c 54 45 52 | e.*FUZZY-DUPLICATE-SYMBOL-FILTER |
| 4d100 | 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 73 | *........................(find-s |
| 4d120 | 79 6d 62 6f 6c 73 20 70 61 72 73 65 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 70 61 63 6b 61 67 | ymbols.parsed-symbol-name.packag |
| 4d140 | 65 20 72 65 73 74 2d 74 69 6d 65 2d 6c 69 6d 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.rest-time-limit............... |
| 4d160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 25 6d 61 6b 65 2d 64 75 | .......................(%make-du |
| 4d180 | 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 73 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 | plicate-symbols-filter.......... |
| 4d1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 63 | .............................pac |
| 4d1c0 | 6b 61 67 65 2d 6d 61 74 63 68 69 6e 67 20 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 73 20 64 65 | kage-matching.symbol-packages.de |
| 4d1e0 | 64 75 70 2d 74 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dup-table))..................... |
| 4d200 | 20 28 73 65 74 66 20 6d 61 74 63 68 69 6e 67 73 20 28 66 69 78 2d 75 70 20 6d 61 74 63 68 69 6e | .(setf.matchings.(fix-up.matchin |
| 4d220 | 67 73 20 70 61 63 6b 61 67 65 2d 6d 61 74 63 68 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 | gs.package-matching))........... |
| 4d240 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 73 79 6d 62 6f 6c 73 20 20 20 28 63 6f 6e 63 | ...........(setf.symbols...(conc |
| 4d260 | 61 74 65 6e 61 74 65 20 27 76 65 63 74 6f 72 20 73 79 6d 62 6f 6c 73 20 6d 61 74 63 68 69 6e 67 | atenate.'vector.symbols.matching |
| 4d280 | 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 72 | s))......................(setf.r |
| 4d2a0 | 65 73 74 2d 74 69 6d 65 2d 6c 69 6d 69 74 20 72 65 6d 61 69 6e 69 6e 67 2d 74 69 6d 65 29 0a 20 | est-time-limit.remaining-time).. |
| 4d2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 67 75 65 73 73 | ....................(let.((guess |
| 4d2e0 | 65 64 2d 73 6f 72 74 2d 64 75 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-sort-duration................ |
| 4d300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 25 67 75 65 73 73 2d 73 6f 72 74 2d 64 75 72 61 74 | ..............(%guess-sort-durat |
| 4d320 | 69 6f 6e 20 28 6c 65 6e 67 74 68 20 73 79 6d 62 6f 6c 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 | ion.(length.symbols))))......... |
| 4d340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 72 65 73 74 2d 74 | ...............(when.(and.rest-t |
| 4d360 | 69 6d 65 2d 6c 69 6d 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ime-limit....................... |
| 4d380 | 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 3d 20 72 65 73 74 2d 74 69 6d 65 2d 6c 69 6d 69 74 20 | ............(<=.rest-time-limit. |
| 4d3a0 | 67 75 65 73 73 65 64 2d 73 6f 72 74 2d 64 75 72 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 | guessed-sort-duration))......... |
| 4d3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 66 20 72 65 73 74 2d 74 69 6d 65 | .................(decf.rest-time |
| 4d3e0 | 2d 6c 69 6d 69 74 20 67 75 65 73 73 65 64 2d 73 6f 72 74 2d 64 75 72 61 74 69 6f 6e 29 0a 20 20 | -limit.guessed-sort-duration)... |
| 4d400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 2d 66 69 6e | .......................(loop-fin |
| 4d420 | 69 73 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c | ish))))....................final |
| 4d440 | 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 74 69 6d 65 | ly....................(setf.time |
| 4d460 | 2d 6c 69 6d 69 74 20 72 65 73 74 2d 74 69 6d 65 2d 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 | -limit.rest-time-limit)......... |
| 4d480 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 70 61 72 73 65 64 2d 73 | ...........(when.(equal.parsed-s |
| 4d4a0 | 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 22 29 20 3b 20 45 2e 67 2e 20 53 54 52 49 4e 47 20 3d 20 22 | ymbol-name."").;.E.g..STRING.=." |
| 4d4c0 | 61 73 64 3a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 | asd:"......................(setf |
| 4d4e0 | 20 70 61 63 6b 61 67 65 73 20 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 73 29 29 29 29 29 29 0a | .packages.symbol-packages)))))). |
| 4d500 | 20 20 20 20 20 20 20 20 3b 3b 20 53 6f 72 74 20 62 79 20 73 63 6f 72 65 3b 20 74 68 69 6e 67 20 | ........;;.Sort.by.score;.thing. |
| 4d520 | 77 69 74 68 20 65 71 75 61 6c 20 73 63 6f 72 65 2c 20 73 6f 72 74 20 61 6c 70 68 61 62 65 74 69 | with.equal.score,.sort.alphabeti |
| 4d540 | 63 61 6c 6c 79 2e 0a 20 20 20 20 20 20 20 20 3b 3b 20 28 45 73 70 65 63 69 61 6c 6c 79 20 75 73 | cally..........;;.(Especially.us |
| 4d560 | 65 66 75 6c 20 77 68 65 6e 20 50 41 52 53 45 44 2d 53 59 4d 42 4f 4c 2d 4e 41 4d 45 20 69 73 20 | eful.when.PARSED-SYMBOL-NAME.is. |
| 4d580 | 65 6d 70 74 79 2c 20 61 6e 64 20 61 6c 6c 0a 20 20 20 20 20 20 20 20 3b 3b 20 70 6f 73 73 69 62 | empty,.and.all.........;;.possib |
| 4d5a0 | 6c 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 61 72 65 20 74 6f 20 62 65 20 72 65 74 75 72 6e 65 | le.completions.are.to.be.returne |
| 4d5c0 | 64 2e 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 73 20 28 63 6f 6e 63 61 | d.).........(setf.results.(conca |
| 4d5e0 | 74 65 6e 61 74 65 20 27 76 65 63 74 6f 72 20 73 79 6d 62 6f 6c 73 20 70 61 63 6b 61 67 65 73 29 | tenate.'vector.symbols.packages) |
| 4d600 | 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 73 20 28 73 6f 72 74 20 72 65 | ).........(setf.results.(sort.re |
| 4d620 | 73 75 6c 74 73 20 23 27 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2d 67 72 65 61 74 65 72 70 29 | sults.#'fuzzy-matching-greaterp) |
| 4d640 | 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 72 65 73 75 6c 74 73 20 28 61 6e 64 20 74 | ).........(values.results.(and.t |
| 4d660 | 69 6d 65 2d 6c 69 6d 69 74 20 28 3c 3d 20 74 69 6d 65 2d 6c 69 6d 69 74 20 30 29 29 29 29 29 29 | ime-limit.(<=.time-limit.0)))))) |
| 4d680 | 29 0a 0a 28 64 65 66 75 6e 20 25 67 75 65 73 73 2d 73 6f 72 74 2d 64 75 72 61 74 69 6f 6e 20 28 | )..(defun.%guess-sort-duration.( |
| 4d6a0 | 6c 65 6e 67 74 68 29 0a 20 20 3b 3b 20 54 68 65 73 65 20 6e 75 6d 62 65 72 73 20 61 72 65 20 70 | length)...;;.These.numbers.are.p |
| 4d6c0 | 72 65 74 74 79 20 6d 75 63 68 20 61 72 62 69 74 72 61 72 79 2c 20 65 78 63 65 70 74 20 74 68 61 | retty.much.arbitrary,.except.tha |
| 4d6e0 | 74 20 74 68 65 79 27 72 65 0a 20 20 3b 3b 20 76 61 67 75 65 6c 79 20 63 6f 72 72 65 63 74 20 6f | t.they're...;;.vaguely.correct.o |
| 4d700 | 6e 20 6d 79 20 6d 61 63 68 69 6e 65 20 77 69 74 68 20 53 42 43 4c 2e 20 59 65 73 2c 20 74 68 69 | n.my.machine.with.SBCL..Yes,.thi |
| 4d720 | 73 20 69 73 20 61 6e 20 75 67 6c 79 0a 20 20 3b 3b 20 6b 6c 75 64 67 65 2c 20 62 75 74 20 69 74 | s.is.an.ugly...;;.kludge,.but.it |
| 4d740 | 27 73 20 62 65 74 74 65 72 20 74 68 61 6e 20 62 65 66 6f 72 65 20 28 77 68 65 72 65 20 74 68 69 | 's.better.than.before.(where.thi |
| 4d760 | 73 20 64 69 64 6e 27 74 20 65 78 69 73 74 20 61 74 0a 20 20 3b 3b 20 61 6c 6c 2c 20 77 68 69 63 | s.didn't.exist.at...;;.all,.whic |
| 4d780 | 68 20 65 73 73 65 6e 74 69 61 6c 6c 79 20 6d 65 61 6e 74 2c 20 74 68 61 74 20 74 68 69 73 20 77 | h.essentially.meant,.that.this.w |
| 4d7a0 | 61 73 20 74 61 6b 65 6e 20 74 6f 20 62 65 20 30 2e 29 0a 20 20 28 69 66 20 28 7a 65 72 6f 70 20 | as.taken.to.be.0.)...(if.(zerop. |
| 4d7c0 | 6c 65 6e 67 74 68 29 0a 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6d | length).......0.......(let.((com |
| 4d7e0 | 70 61 72 61 73 69 6f 6e 73 20 28 2a 20 33 2e 38 20 28 2a 20 6c 65 6e 67 74 68 20 28 6c 6f 67 20 | parasions.(*.3.8.(*.length.(log. |
| 4d800 | 6c 65 6e 67 74 68 20 32 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 2a 20 31 30 30 30 20 28 2a | length.2))))).........(*.1000.(* |
| 4d820 | 20 63 6f 6d 70 61 72 61 73 69 6f 6e 73 20 28 65 78 70 74 20 31 30 20 2d 37 29 29 29 29 29 29 20 | .comparasions.(expt.10.-7)))))). |
| 4d840 | 3b 20 6d 73 65 63 73 0a 0a 28 64 65 66 75 6e 20 25 6d 61 6b 65 2d 64 75 70 6c 69 63 61 74 65 2d | ;.msecs..(defun.%make-duplicate- |
| 4d860 | 73 79 6d 62 6f 6c 73 2d 66 69 6c 74 65 72 20 28 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 2d | symbols-filter.(current-package- |
| 4d880 | 6d 61 74 63 68 69 6e 67 20 66 75 7a 7a 79 2d 70 61 63 6b 61 67 65 2d 6d 61 74 63 68 69 6e 67 73 | matching.fuzzy-package-matchings |
| 4d8a0 | 20 64 65 64 75 70 2d 74 61 62 6c 65 29 0a 20 20 3b 3b 20 52 65 74 75 72 6e 73 20 61 20 66 69 6c | .dedup-table)...;;.Returns.a.fil |
| 4d8c0 | 74 65 72 20 66 75 6e 63 74 69 6f 6e 20 62 61 73 65 64 20 6f 6e 20 2a 46 55 5a 5a 59 2d 44 55 50 | ter.function.based.on.*FUZZY-DUP |
| 4d8e0 | 4c 49 43 41 54 45 2d 53 59 4d 42 4f 4c 2d 46 49 4c 54 45 52 2a 2e 0a 20 20 28 63 61 73 65 20 2a | LICATE-SYMBOL-FILTER*....(case.* |
| 4d900 | 66 75 7a 7a 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c 74 65 72 2a 0a 20 | fuzzy-duplicate-symbol-filter*.. |
| 4d920 | 20 20 20 28 3a 68 6f 6d 65 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 3b 3b 20 52 65 74 75 72 6e | ...(:home-package......;;.Return |
| 4d940 | 20 61 20 66 69 6c 74 65 72 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 74 61 6b 65 73 20 61 20 | .a.filter.function.that.takes.a. |
| 4d960 | 73 79 6d 62 6f 6c 2c 20 61 6e 64 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 20 54 0a 20 20 20 20 | symbol,.and.which.returns.T..... |
| 4d980 | 20 3b 3b 20 69 66 20 61 6e 64 20 6f 6e 6c 79 20 69 66 20 2f 6e 6f 2f 20 6d 61 74 63 68 69 6e 67 | .;;.if.and.only.if./no/.matching |
| 4d9a0 | 20 69 6e 20 46 55 5a 5a 59 2d 50 41 43 4b 41 47 45 2d 4d 41 54 43 48 49 4e 47 53 20 72 65 70 72 | .in.FUZZY-PACKAGE-MATCHINGS.repr |
| 4d9c0 | 65 73 65 6e 74 73 0a 20 20 20 20 20 3b 3b 20 74 68 65 20 68 6f 6d 65 2d 70 61 63 6b 61 67 65 20 | esents......;;.the.home-package. |
| 4d9e0 | 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 70 61 73 73 65 64 2e 0a 20 20 20 20 20 28 6c 65 74 20 | of.the.symbol.passed.......(let. |
| 4da00 | 28 28 70 61 63 6b 61 67 65 73 20 28 6d 61 70 63 61 72 20 23 27 28 6c 61 6d 62 64 61 20 28 6d 29 | ((packages.(mapcar.#'(lambda.(m) |
| 4da20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4da40 | 20 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e | ..(find-package.(fuzzy-matching. |
| 4da60 | 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | package-name.m)))............... |
| 4da80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 63 75 72 72 65 6e 74 2d 70 | ...............(remove.current-p |
| 4daa0 | 61 63 6b 61 67 65 2d 6d 61 74 63 68 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ackage-matching................. |
| 4dac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 65 72 63 65 20 66 75 7a | .....................(coerce.fuz |
| 4dae0 | 7a 79 2d 70 61 63 6b 61 67 65 2d 6d 61 74 63 68 69 6e 67 73 20 27 6c 69 73 74 29 29 29 29 29 0a | zy-package-matchings.'list))))). |
| 4db00 | 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 | .......#'(lambda.(symbol)....... |
| 4db20 | 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 | .....(not.(member.(symbol-packag |
| 4db40 | 65 20 73 79 6d 62 6f 6c 29 20 70 61 63 6b 61 67 65 73 29 29 29 29 29 0a 20 20 20 20 28 3a 6e 65 | e.symbol).packages))))).....(:ne |
| 4db60 | 61 72 65 73 74 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 3b 3b 20 4b 65 65 70 20 6f 6e 6c 79 20 | arest-package......;;.Keep.only. |
| 4db80 | 74 68 65 20 66 69 72 73 74 20 6f 63 63 75 72 65 6e 63 65 20 6f 66 20 74 68 65 20 73 79 6d 62 6f | the.first.occurence.of.the.symbo |
| 4dba0 | 6c 2e 0a 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 | l.......#'(lambda.(symbol)...... |
| 4dbc0 | 20 20 20 20 28 75 6e 6c 65 73 73 20 28 67 65 74 68 61 73 68 20 73 79 6d 62 6f 6c 20 64 65 64 75 | ....(unless.(gethash.symbol.dedu |
| 4dbe0 | 70 2d 74 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 | p-table)............(setf.(getha |
| 4dc00 | 73 68 20 73 79 6d 62 6f 6c 20 64 65 64 75 70 2d 74 61 62 6c 65 29 20 74 29 29 29 29 0a 20 20 20 | sh.symbol.dedup-table).t)))).... |
| 4dc20 | 20 28 3a 61 6c 6c 0a 20 20 20 20 20 3b 3b 20 4e 6f 20 66 69 6c 74 65 72 0a 20 20 20 20 20 23 27 | .(:all......;;.No.filter......#' |
| 4dc40 | 69 64 65 6e 74 69 74 79 29 0a 20 20 20 20 28 74 0a 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 | identity).....(t......(typecase. |
| 4dc60 | 2a 66 75 7a 7a 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c 74 65 72 2a 0a | *fuzzy-duplicate-symbol-filter*. |
| 4dc80 | 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 3b 3b 20 43 75 73 74 | .......(function.........;;.Cust |
| 4dca0 | 6f 6d 20 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 2a 66 75 7a 7a | om.filter.........(funcall.*fuzz |
| 4dcc0 | 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c 74 65 72 2a 0a 20 20 20 20 20 | y-duplicate-symbol-filter*...... |
| 4dce0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 70 61 63 6b | ............(fuzzy-matching.pack |
| 4dd00 | 61 67 65 2d 6e 61 6d 65 20 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 2d 6d 61 74 63 68 69 6e | age-name.current-package-matchin |
| 4dd20 | 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 27 6c 69 73 74 20 23 | g)..................(map.'list.# |
| 4dd40 | 27 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 66 75 7a | 'fuzzy-matching.package-name.fuz |
| 4dd60 | 7a 79 2d 70 61 63 6b 61 67 65 2d 6d 61 74 63 68 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 | zy-package-matchings)........... |
| 4dd80 | 20 20 20 20 20 20 20 64 65 64 75 70 2d 74 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 28 74 0a 20 | .......dedup-table))........(t.. |
| 4dda0 | 20 20 20 20 20 20 20 3b 3b 20 42 61 64 20 66 69 6c 74 65 72 20 76 61 6c 75 65 0a 20 20 20 20 20 | .......;;.Bad.filter.value...... |
| 4ddc0 | 20 20 20 28 77 61 72 6e 20 22 62 61 64 20 2a 46 55 5a 5a 59 2d 44 55 50 4c 49 43 41 54 45 2d 53 | ...(warn."bad.*FUZZY-DUPLICATE-S |
| 4dde0 | 59 4d 42 4f 4c 2d 46 49 4c 54 45 52 2a 20 76 61 6c 75 65 3a 20 7e 73 22 0a 20 20 20 20 20 20 20 | YMBOL-FILTER*.value:.~s"........ |
| 4de00 | 20 20 20 20 20 20 20 2a 66 75 7a 7a 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 | .......*fuzzy-duplicate-symbol-f |
| 4de20 | 69 6c 74 65 72 2a 29 0a 20 20 20 20 20 20 20 20 23 27 69 64 65 6e 74 69 74 79 29 29 29 29 29 0a | ilter*).........#'identity))))). |
| 4de40 | 0a 28 64 65 66 75 6e 20 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2d 67 72 65 61 74 65 72 70 20 | .(defun.fuzzy-matching-greaterp. |
| 4de60 | 28 6d 31 20 6d 32 29 0a 20 20 22 52 65 74 75 72 6e 73 20 54 20 69 66 20 66 75 7a 7a 79 2d 6d 61 | (m1.m2)..."Returns.T.if.fuzzy-ma |
| 4de80 | 74 63 68 69 6e 67 20 4d 31 20 73 68 6f 75 6c 64 20 62 65 20 73 6f 72 74 65 64 20 62 65 66 6f 72 | tching.M1.should.be.sorted.befor |
| 4dea0 | 65 20 4d 32 2e 0a 42 61 73 69 63 61 6c 6c 79 20 6a 75 73 74 20 74 68 65 20 73 63 6f 72 65 73 20 | e.M2..Basically.just.the.scores. |
| 4dec0 | 6f 66 20 74 68 65 20 74 77 6f 20 6d 61 74 63 68 69 6e 67 73 20 61 72 65 20 63 6f 6d 70 61 72 65 | of.the.two.matchings.are.compare |
| 4dee0 | 64 2c 20 61 6e 64 0a 74 68 65 20 6d 61 74 63 68 20 77 69 74 68 20 68 69 67 68 65 72 20 73 63 6f | d,.and.the.match.with.higher.sco |
| 4df00 | 72 65 20 77 69 6e 73 2e 20 46 6f 72 20 74 68 65 20 63 61 73 65 20 74 68 61 74 20 74 68 65 20 73 | re.wins..For.the.case.that.the.s |
| 4df20 | 63 6f 72 65 20 69 73 0a 65 71 75 61 6c 2c 20 74 68 65 20 6f 6e 65 20 77 68 69 63 68 20 63 6f 6d | core.is.equal,.the.one.which.com |
| 4df40 | 65 73 20 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 20 66 69 72 73 74 20 77 69 6e 73 2e 22 0a 20 | es.alphabetically.first.wins.".. |
| 4df60 | 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 20 6d | .(declare.(type.fuzzy-matching.m |
| 4df80 | 31 20 6d 32 29 29 0a 20 20 28 6c 65 74 20 28 28 73 63 6f 72 65 31 20 28 66 75 7a 7a 79 2d 6d 61 | 1.m2))...(let.((score1.(fuzzy-ma |
| 4dfa0 | 74 63 68 69 6e 67 2e 73 63 6f 72 65 20 6d 31 29 29 0a 20 20 20 20 20 20 20 20 28 73 63 6f 72 65 | tching.score.m1)).........(score |
| 4dfc0 | 32 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 73 63 6f 72 65 20 6d 32 29 29 29 0a 20 20 | 2.(fuzzy-matching.score.m2)))... |
| 4dfe0 | 20 20 28 63 6f 6e 64 20 28 28 3e 20 73 63 6f 72 65 31 20 73 63 6f 72 65 32 29 20 74 29 0a 20 20 | ..(cond.((>.score1.score2).t)... |
| 4e000 | 20 20 20 20 20 20 20 20 28 28 3c 20 73 63 6f 72 65 31 20 73 63 6f 72 65 32 29 20 6e 69 6c 29 20 | ........((<.score1.score2).nil). |
| 4e020 | 20 20 20 20 20 20 3b 20 74 6f 74 61 6c 20 6f 72 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 74 | ......;.total.order...........(t |
| 4e040 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 31 20 28 73 79 6d 62 6f 6c | ............(let.((name1.(symbol |
| 4e060 | 2d 6e 61 6d 65 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 73 79 6d 62 6f 6c 20 6d 31 29 | -name.(fuzzy-matching.symbol.m1) |
| 4e080 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 32 20 28 73 79 6d 62 | ))..................(name2.(symb |
| 4e0a0 | 6f 6c 2d 6e 61 6d 65 20 28 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 2e 73 79 6d 62 6f 6c 20 6d | ol-name.(fuzzy-matching.symbol.m |
| 4e0c0 | 32 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3c 20 6e 61 6d 65 | 2))))..............(string<.name |
| 4e0e0 | 31 20 6e 61 6d 65 32 29 29 29 29 29 29 0a 0a 28 64 65 63 6c 61 69 6d 20 28 66 74 79 70 65 20 28 | 1.name2))))))..(declaim.(ftype.( |
| 4e100 | 66 75 6e 63 74 69 6f 6e 20 28 29 20 28 69 6e 74 65 67 65 72 20 30 29 29 20 67 65 74 2d 72 65 61 | function.().(integer.0)).get-rea |
| 4e120 | 6c 2d 74 69 6d 65 2d 6d 73 65 63 73 29 29 0a 28 64 65 66 75 6e 20 67 65 74 2d 72 65 61 6c 2d 74 | l-time-msecs)).(defun.get-real-t |
| 4e140 | 69 6d 65 2d 69 6e 2d 6d 73 65 63 73 20 28 29 0a 20 20 28 6c 65 74 20 28 28 75 6e 69 74 73 2d 70 | ime-in-msecs.()...(let.((units-p |
| 4e160 | 65 72 2d 6d 73 65 63 20 28 6d 61 78 20 31 20 28 66 6c 6f 6f 72 20 69 6e 74 65 72 6e 61 6c 2d 74 | er-msec.(max.1.(floor.internal-t |
| 4e180 | 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 31 30 30 30 29 29 29 29 0a 20 20 | ime-units-per-second.1000))))... |
| 4e1a0 | 20 20 28 76 61 6c 75 65 73 20 28 66 6c 6f 6f 72 20 28 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 | ..(values.(floor.(get-internal-r |
| 4e1c0 | 65 61 6c 2d 74 69 6d 65 29 20 75 6e 69 74 73 2d 70 65 72 2d 6d 73 65 63 29 29 29 29 0a 0a 28 64 | eal-time).units-per-msec))))..(d |
| 4e1e0 | 65 66 75 6e 20 66 75 7a 7a 79 2d 66 69 6e 64 2d 6d 61 74 63 68 69 6e 67 2d 73 79 6d 62 6f 6c 73 | efun.fuzzy-find-matching-symbols |
| 4e200 | 0a 20 20 20 20 28 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 20 26 6b 65 79 20 28 66 69 6c 74 65 | .....(string.package.&key.(filte |
| 4e220 | 72 20 23 27 69 64 65 6e 74 69 74 79 29 20 65 78 74 65 72 6e 61 6c 2d 6f 6e 6c 79 20 74 69 6d 65 | r.#'identity).external-only.time |
| 4e240 | 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 77 6f 20 76 | -limit-in-msec)..."Returns.two.v |
| 4e260 | 61 6c 75 65 73 3a 20 61 20 76 65 63 74 6f 72 20 6f 66 20 66 75 7a 7a 79 20 6d 61 74 63 68 69 6e | alues:.a.vector.of.fuzzy.matchin |
| 4e280 | 67 73 20 66 6f 72 20 6d 61 74 63 68 69 6e 67 0a 73 79 6d 62 6f 6c 73 20 69 6e 20 50 41 43 4b 41 | gs.for.matching.symbols.in.PACKA |
| 4e2a0 | 47 45 2c 20 75 73 69 6e 67 20 74 68 65 20 66 75 7a 7a 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 | GE,.using.the.fuzzy.completion.a |
| 4e2c0 | 6c 67 6f 72 69 74 68 6d 2c 20 61 6e 64 20 74 68 65 0a 72 65 6d 61 69 6e 69 6e 67 20 74 69 6d 65 | lgorithm,.and.the.remaining.time |
| 4e2e0 | 20 6c 69 6d 69 74 2e 0a 0a 4f 6e 6c 79 20 74 68 6f 73 65 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 | .limit...Only.those.symbols.are. |
| 4e300 | 63 6f 6e 73 69 64 65 72 65 64 20 6f 66 20 77 68 69 63 68 20 46 49 4c 54 45 52 20 64 6f 65 73 20 | considered.of.which.FILTER.does. |
| 4e320 | 72 65 74 75 72 6e 20 54 2e 0a 0a 49 66 20 45 58 54 45 52 4e 41 4c 2d 4f 4e 4c 59 20 69 73 20 74 | return.T...If.EXTERNAL-ONLY.is.t |
| 4e340 | 72 75 65 2c 20 6f 6e 6c 79 20 65 78 74 65 72 6e 61 6c 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 63 | rue,.only.external.symbols.are.c |
| 4e360 | 6f 6e 73 69 64 65 72 65 64 2e 20 41 0a 54 49 4d 45 2d 4c 49 4d 49 54 2d 49 4e 2d 4d 53 45 43 20 | onsidered..A.TIME-LIMIT-IN-MSEC. |
| 4e380 | 6f 66 20 4e 49 4c 20 69 73 20 63 6f 6e 73 69 64 65 72 65 64 20 6e 6f 20 6c 69 6d 69 74 3b 20 69 | of.NIL.is.considered.no.limit;.i |
| 4e3a0 | 66 20 69 74 27 73 20 7a 65 72 6f 20 6f 72 0a 6e 65 67 61 74 69 76 65 2c 20 70 65 72 66 6f 72 6d | f.it's.zero.or.negative,.perform |
| 4e3c0 | 20 61 20 4e 4f 50 2e 22 0a 20 20 28 6c 65 74 20 28 28 74 69 6d 65 2d 6c 69 6d 69 74 2d 70 20 28 | .a.NOP."...(let.((time-limit-p.( |
| 4e3e0 | 61 6e 64 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 20 74 29 29 0a 20 20 20 20 20 | and.time-limit-in-msec.t))...... |
| 4e400 | 20 20 20 28 74 69 6d 65 2d 6c 69 6d 69 74 20 28 6f 72 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e | ...(time-limit.(or.time-limit-in |
| 4e420 | 2d 6d 73 65 63 20 30 29 29 0a 20 20 20 20 20 20 20 20 28 72 74 69 6d 65 2d 61 74 2d 73 74 61 72 | -msec.0)).........(rtime-at-star |
| 4e440 | 74 20 28 67 65 74 2d 72 65 61 6c 2d 74 69 6d 65 2d 69 6e 2d 6d 73 65 63 73 29 29 0a 20 20 20 20 | t.(get-real-time-in-msecs))..... |
| 4e460 | 20 20 20 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 | ....(package-name.(package-name. |
| 4e480 | 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 75 6e 74 20 30 29 29 0a 20 20 20 | package)).........(count.0)).... |
| 4e4a0 | 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 62 6f 6f 6c 65 61 6e 20 74 69 6d 65 2d 6c 69 6d | .(declare.(type.boolean.time-lim |
| 4e4c0 | 69 74 2d 70 29 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 69 6e 74 65 67 65 | it-p)).....(declare.(type.intege |
| 4e4e0 | 72 20 74 69 6d 65 2d 6c 69 6d 69 74 20 72 74 69 6d 65 2d 61 74 2d 73 74 61 72 74 29 29 0a 20 20 | r.time-limit.rtime-at-start))... |
| 4e500 | 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 28 69 6e 74 65 67 65 72 20 30 20 23 2e 28 31 | ..(declare.(type.(integer.0.#.(1 |
| 4e520 | 2d 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d 29 29 20 63 6f 75 6e 74 29 29 | -.most-positive-fixnum)).count)) |
| 4e540 | 0a 0a 20 20 20 20 28 66 6c 65 74 20 28 28 72 65 63 6f 6d 70 75 74 65 2d 72 65 6d 61 69 6e 69 6e | ......(flet.((recompute-remainin |
| 4e560 | 67 2d 74 69 6d 65 20 28 6f 6c 64 2d 72 65 6d 61 69 6e 69 6e 67 2d 74 69 6d 65 29 0a 20 20 20 20 | g-time.(old-remaining-time)..... |
| 4e580 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 74 69 6d 65 2d 6c 69 6d 69 74 2d | .........(cond.((not.time-limit- |
| 4e5a0 | 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 72 6f 70 61 67 | p).....................;;.propag |
| 4e5c0 | 61 74 65 20 4e 49 4c 20 62 61 63 6b 20 61 73 20 69 6e 66 69 6e 69 74 65 20 74 69 6d 65 20 6c 69 | ate.NIL.back.as.infinite.time.li |
| 4e5e0 | 6d 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 | mit.....................(values. |
| 4e600 | 6e 69 6c 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3e | nil.nil))....................((> |
| 4e620 | 20 63 6f 75 6e 74 20 30 29 20 3b 20 65 61 73 65 20 75 70 20 6f 6e 20 67 65 74 74 69 6e 67 20 69 | .count.0).;.ease.up.on.getting.i |
| 4e640 | 6e 74 65 72 6e 61 6c 20 74 69 6d 65 20 6c 69 6b 65 20 63 72 61 7a 79 0a 20 20 20 20 20 20 20 20 | nternal.time.like.crazy......... |
| 4e660 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 63 6f 75 6e 74 20 28 6d 6f 64 20 28 31 2b | ............(setf.count.(mod.(1+ |
| 4e680 | 20 63 6f 75 6e 74 29 20 31 32 38 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .count).128))................... |
| 4e6a0 | 20 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 6f 6c 64 2d 72 65 6d 61 69 6e 69 6e 67 2d 74 69 6d 65 | ..(values.nil.old-remaining-time |
| 4e6c0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6c 65 74 2a 20 28 | ))....................(t.(let*.( |
| 4e6e0 | 28 65 6c 61 70 73 65 64 2d 74 69 6d 65 20 28 2d 20 28 67 65 74 2d 72 65 61 6c 2d 74 69 6d 65 2d | (elapsed-time.(-.(get-real-time- |
| 4e700 | 69 6e 2d 6d 73 65 63 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | in-msecs)....................... |
| 4e720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 74 69 6d 65 2d 61 74 | ........................rtime-at |
| 4e740 | 2d 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -start))........................ |
| 4e760 | 20 20 20 20 20 20 28 72 65 6d 61 69 6e 69 6e 67 20 28 2d 20 74 69 6d 65 2d 6c 69 6d 69 74 20 65 | ......(remaining.(-.time-limit.e |
| 4e780 | 6c 61 70 73 65 64 2d 74 69 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lapsed-time))).................. |
| 4e7a0 | 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 3c 3d 20 72 65 6d 61 69 6e 69 6e 67 20 30 29 20 | .......(values.(<=.remaining.0). |
| 4e7c0 | 72 65 6d 61 69 6e 69 6e 67 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 65 72 66 6f | remaining)))))............(perfo |
| 4e7e0 | 72 6d 2d 66 75 7a 7a 79 2d 6d 61 74 63 68 20 28 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 2d 6e 61 | rm-fuzzy-match.(string.symbol-na |
| 4e800 | 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 6e 76 65 72 74 | me)..............(let*.((convert |
| 4e820 | 65 72 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 74 2d 73 79 6d 62 6f 6c 2d 63 6f 6e | er.(completion-output-symbol-con |
| 4e840 | 76 65 72 74 65 72 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | verter.string))................. |
| 4e860 | 20 20 20 20 28 63 6f 6e 76 65 72 74 65 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 66 75 6e 63 | ....(converted-symbol-name.(func |
| 4e880 | 61 6c 6c 20 63 6f 6e 76 65 72 74 65 72 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 0a 20 20 20 | all.converter.symbol-name))).... |
| 4e8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 75 74 65 2d 68 69 67 68 65 73 74 2d 73 63 6f | ............(compute-highest-sco |
| 4e8c0 | 72 69 6e 67 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 | ring-completion.string.......... |
| 4e8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4e900 | 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 65 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 | ..........converted-symbol-name) |
| 4e920 | 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 6d 61 | ))).......(let.((completions.(ma |
| 4e940 | 6b 65 2d 61 72 72 61 79 20 32 35 36 20 3a 61 64 6a 75 73 74 61 62 6c 65 20 74 20 3a 66 69 6c 6c | ke-array.256.:adjustable.t.:fill |
| 4e960 | 2d 70 6f 69 6e 74 65 72 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 74 2d 74 | -pointer.0)).............(rest-t |
| 4e980 | 69 6d 65 2d 6c 69 6d 69 74 20 74 69 6d 65 2d 6c 69 6d 69 74 29 29 0a 20 20 20 20 20 20 20 20 28 | ime-limit.time-limit)).........( |
| 4e9a0 | 64 6f 2d 73 79 6d 62 6f 6c 73 2a 20 28 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 20 | do-symbols*.(symbol.package).... |
| 4e9c0 | 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 65 78 68 | .......(multiple-value-bind.(exh |
| 4e9e0 | 61 75 73 74 65 64 3f 20 72 65 6d 61 69 6e 69 6e 67 2d 74 69 6d 65 29 0a 20 20 20 20 20 20 20 20 | austed?.remaining-time)......... |
| 4ea00 | 20 20 20 20 20 20 28 72 65 63 6f 6d 70 75 74 65 2d 72 65 6d 61 69 6e 69 6e 67 2d 74 69 6d 65 20 | ......(recompute-remaining-time. |
| 4ea20 | 72 65 73 74 2d 74 69 6d 65 2d 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | rest-time-limit).............(se |
| 4ea40 | 74 66 20 72 65 73 74 2d 74 69 6d 65 2d 6c 69 6d 69 74 20 72 65 6d 61 69 6e 69 6e 67 2d 74 69 6d | tf.rest-time-limit.remaining-tim |
| 4ea60 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 65 78 68 61 75 73 74 65 64 3f | e).............(cond.(exhausted? |
| 4ea80 | 20 28 72 65 74 75 72 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e | .(return))...................((n |
| 4eaa0 | 6f 74 20 28 61 6e 64 20 28 6f 72 20 28 6e 6f 74 20 65 78 74 65 72 6e 61 6c 2d 6f 6e 6c 79 29 0a | ot.(and.(or.(not.external-only). |
| 4eac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4eae0 | 20 28 73 79 6d 62 6f 6c 2d 65 78 74 65 72 6e 61 6c 2d 70 20 73 79 6d 62 6f 6c 20 70 61 63 6b 61 | .(symbol-external-p.symbol.packa |
| 4eb00 | 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ge))............................ |
| 4eb20 | 20 20 28 66 75 6e 63 61 6c 6c 20 66 69 6c 74 65 72 20 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 | ..(funcall.filter.symbol)))).... |
| 4eb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 3d 20 22 22 20 73 74 72 69 | ...............((string=."".stri |
| 4eb60 | 6e 67 29 20 3b 20 22 22 20 6d 61 74 63 68 65 73 20 61 6c 77 61 79 73 0a 20 20 20 20 20 20 20 20 | ng).;."".matches.always......... |
| 4eb80 | 20 20 20 20 20 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d 70 75 73 68 2d 65 78 74 65 6e 64 0a 20 | ...........(vector-push-extend.. |
| 4eba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 66 75 7a 7a 79 2d 6d | ...................(make-fuzzy-m |
| 4ebc0 | 61 74 63 68 69 6e 67 20 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 0a 20 20 20 20 | atching.symbol.package-name..... |
| 4ebe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4ec00 | 20 20 20 20 20 30 2e 30 20 27 28 29 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....0.0.'().'())............... |
| 4ec20 | 20 20 20 20 20 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......completions))............. |
| 4ec40 | 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c | ......(t....................(mul |
| 4ec60 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6d 61 74 63 68 2d 72 65 73 75 6c 74 20 73 | tiple-value-bind.(match-result.s |
| 4ec80 | 63 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 65 | core)........................(pe |
| 4eca0 | 72 66 6f 72 6d 2d 66 75 7a 7a 79 2d 6d 61 74 63 68 20 73 74 72 69 6e 67 20 28 73 79 6d 62 6f 6c | rform-fuzzy-match.string.(symbol |
| 4ecc0 | 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -name.symbol)).................. |
| 4ece0 | 20 20 20 20 28 77 68 65 6e 20 6d 61 74 63 68 2d 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 | ....(when.match-result.......... |
| 4ed00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d 70 75 73 68 2d 65 78 74 65 6e | ..............(vector-push-exten |
| 4ed20 | 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d | d.........................(make- |
| 4ed40 | 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 20 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 2d 6e 61 | fuzzy-matching.symbol.package-na |
| 4ed60 | 6d 65 20 73 63 6f 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me.score........................ |
| 4ed80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 29 20 6d 61 74 63 68 2d | ......................'().match- |
| 4eda0 | 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | result)......................... |
| 4edc0 | 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 | completions))))))).........(valu |
| 4ede0 | 65 73 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 72 65 73 74 2d 74 69 6d 65 2d 6c 69 6d 69 74 29 29 | es.completions.rest-time-limit)) |
| 4ee00 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 7a 7a 79 2d 66 69 6e 64 2d 6d 61 74 63 68 69 6e 67 2d | )))..(defun.fuzzy-find-matching- |
| 4ee20 | 70 61 63 6b 61 67 65 73 20 28 6e 61 6d 65 20 26 6b 65 79 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 | packages.(name.&key.time-limit-i |
| 4ee40 | 6e 2d 6d 73 65 63 29 0a 20 20 22 52 65 74 75 72 6e 73 20 61 20 76 65 63 74 6f 72 20 6f 66 20 66 | n-msec)..."Returns.a.vector.of.f |
| 4ee60 | 75 7a 7a 79 20 6d 61 74 63 68 69 6e 67 73 20 66 6f 72 20 65 61 63 68 20 70 61 63 6b 61 67 65 20 | uzzy.matchings.for.each.package. |
| 4ee80 | 74 68 61 74 20 69 73 0a 73 69 6d 69 6c 69 61 72 20 74 6f 20 4e 41 4d 45 2c 20 61 6e 64 20 74 68 | that.is.similiar.to.NAME,.and.th |
| 4eea0 | 65 20 72 65 6d 61 69 6e 69 6e 67 20 74 69 6d 65 20 6c 69 6d 69 74 2e 0a 43 66 2e 20 46 55 5a 5a | e.remaining.time.limit..Cf..FUZZ |
| 4eec0 | 59 2d 46 49 4e 44 2d 4d 41 54 43 48 49 4e 47 2d 53 59 4d 42 4f 4c 53 2e 22 0a 20 20 28 6c 65 74 | Y-FIND-MATCHING-SYMBOLS."...(let |
| 4eee0 | 20 28 28 74 69 6d 65 2d 6c 69 6d 69 74 2d 70 20 28 61 6e 64 20 74 69 6d 65 2d 6c 69 6d 69 74 2d | .((time-limit-p.(and.time-limit- |
| 4ef00 | 69 6e 2d 6d 73 65 63 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 74 69 6d 65 2d 6c 69 6d 69 74 20 | in-msec.t)).........(time-limit. |
| 4ef20 | 28 6f 72 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 20 30 29 29 0a 20 20 20 20 20 | (or.time-limit-in-msec.0))...... |
| 4ef40 | 20 20 20 28 72 74 69 6d 65 2d 61 74 2d 73 74 61 72 74 20 28 67 65 74 2d 72 65 61 6c 2d 74 69 6d | ...(rtime-at-start.(get-real-tim |
| 4ef60 | 65 2d 69 6e 2d 6d 73 65 63 73 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 76 65 72 74 65 72 20 | e-in-msecs)).........(converter. |
| 4ef80 | 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 74 2d 70 61 63 6b 61 67 65 2d 63 6f 6e 76 65 | (completion-output-package-conve |
| 4efa0 | 72 74 65 72 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 | rter.name)).........(completions |
| 4efc0 | 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 33 32 20 3a 61 64 6a 75 73 74 61 62 6c 65 20 74 20 3a 66 | .(make-array.32.:adjustable.t.:f |
| 4efe0 | 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 30 29 29 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 74 | ill-pointer.0))).....(declare.(t |
| 4f000 | 79 70 65 20 62 6f 6f 6c 65 61 6e 20 74 69 6d 65 2d 6c 69 6d 69 74 2d 70 29 29 0a 20 20 20 20 28 | ype.boolean.time-limit-p)).....( |
| 4f020 | 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 69 6e 74 65 67 65 72 20 74 69 6d 65 2d 6c 69 6d 69 74 | declare.(type.integer.time-limit |
| 4f040 | 20 72 74 69 6d 65 2d 61 74 2d 73 74 61 72 74 29 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 | .rtime-at-start)).....(declare.( |
| 4f060 | 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 63 6f 6e 76 65 72 74 65 72 29 29 0a 20 20 20 20 28 66 | type.function.converter)).....(f |
| 4f080 | 6c 65 74 20 28 28 6d 61 74 63 68 2d 70 61 63 6b 61 67 65 20 28 6e 61 6d 65 73 29 0a 20 20 20 20 | let.((match-package.(names)..... |
| 4f0a0 | 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 77 69 74 68 20 6d 61 78 2d 70 6b 67 2d 6e 61 6d 65 | .........(loop.with.max-pkg-name |
| 4f0c0 | 20 3d 20 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 6d 61 | .=.""....................with.ma |
| 4f0e0 | 78 2d 72 65 73 75 6c 74 20 20 20 3d 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | x-result...=.nil................ |
| 4f100 | 20 20 20 20 77 69 74 68 20 6d 61 78 2d 73 63 6f 72 65 20 20 20 20 3d 20 30 0a 20 20 20 20 20 20 | ....with.max-score....=.0....... |
| 4f120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 69 6e | .............for.package-name.in |
| 4f140 | 20 6e 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 63 6f | .names....................for.co |
| 4f160 | 6e 76 65 72 74 65 64 2d 6e 61 6d 65 20 3d 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6e 76 65 72 74 65 | nverted-name.=.(funcall.converte |
| 4f180 | 72 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.package-name)................. |
| 4f1a0 | 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 | ...do....................(multip |
| 4f1c0 | 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 72 65 73 75 6c 74 20 73 63 6f 72 65 29 0a 20 20 20 | le-value-bind.(result.score).... |
| 4f1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 75 74 65 2d 68 69 67 | ....................(compute-hig |
| 4f200 | 68 65 73 74 2d 73 63 6f 72 69 6e 67 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 6e 61 6d 65 0a 20 20 20 | hest-scoring-completion.name.... |
| 4f220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4f240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 65 | ........................converte |
| 4f260 | 64 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | d-name)......................(wh |
| 4f280 | 65 6e 20 28 61 6e 64 20 72 65 73 75 6c 74 20 28 3e 20 73 63 6f 72 65 20 6d 61 78 2d 73 63 6f 72 | en.(and.result.(>.score.max-scor |
| 4f2a0 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 | e))........................(setf |
| 4f2c0 | 20 6d 61 78 2d 70 6b 67 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 20 20 | .max-pkg-name.package-name)..... |
| 4f2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 6d 61 78 2d 72 65 73 | ...................(setf.max-res |
| 4f300 | 75 6c 74 20 20 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ult...result)................... |
| 4f320 | 20 20 20 20 20 28 73 65 74 66 20 6d 61 78 2d 73 63 6f 72 65 20 20 20 20 73 63 6f 72 65 29 29 29 | .....(setf.max-score....score))) |
| 4f340 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 0a 20 20 20 20 | ....................finally..... |
| 4f360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6d 61 78 2d 72 65 73 75 6c 74 0a | ...............(when.max-result. |
| 4f380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d 70 75 73 | .....................(vector-pus |
| 4f3a0 | 68 2d 65 78 74 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | h-extend.......................( |
| 4f3c0 | 6d 61 6b 65 2d 66 75 7a 7a 79 2d 6d 61 74 63 68 69 6e 67 20 6e 69 6c 20 6d 61 78 2d 70 6b 67 2d | make-fuzzy-matching.nil.max-pkg- |
| 4f3e0 | 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name............................ |
| 4f400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 2d 73 63 6f 72 65 20 6d 61 78 2d 72 65 | ................max-score.max-re |
| 4f420 | 73 75 6c 74 20 27 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sult.'()........................ |
| 4f440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 79 6d 62 6f 6c 2d 70 20 6e 69 | ....................:symbol-p.ni |
| 4f460 | 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 6c 65 74 | l).......................complet |
| 4f480 | 69 6f 6e 73 29 29 29 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 74 69 6d 65 2d | ions)))))......(cond.((and.time- |
| 4f4a0 | 6c 69 6d 69 74 2d 70 20 28 3c 3d 20 74 69 6d 65 2d 6c 69 6d 69 74 20 30 29 29 0a 20 20 20 20 20 | limit-p.(<=.time-limit.0))...... |
| 4f4c0 | 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 23 28 29 20 74 69 6d 65 2d 6c 69 6d 69 74 29 29 0a | .......(values.#().time-limit)). |
| 4f4e0 | 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 | ...........(t.............(loop. |
| 4f500 | 66 6f 72 20 28 6e 69 63 6b 29 20 69 6e 20 28 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 | for.(nick).in.(package-local-nic |
| 4f520 | 6b 6e 61 6d 65 73 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 0a 20 20 20 20 20 20 20 | knames.*buffer-package*)........ |
| 4f540 | 20 20 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........do................... |
| 4f560 | 28 6d 61 74 63 68 2d 70 61 63 6b 61 67 65 20 28 6c 69 73 74 20 6e 69 63 6b 29 29 29 0a 20 20 20 | (match-package.(list.nick))).... |
| 4f580 | 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 70 61 63 6b 61 67 65 20 69 6e 20 28 6c | .........(loop.for.package.in.(l |
| 4f5a0 | 69 73 74 2d 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ist-all-packages)............... |
| 4f5c0 | 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 69 6e 64 | ....do...................;;.Find |
| 4f5e0 | 20 62 65 73 74 2d 6d 61 74 63 68 69 6e 67 20 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 3a | .best-matching.package-nickname: |
| 4f600 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 70 61 63 6b 61 67 | ...................(match-packag |
| 4f620 | 65 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 73 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 | e.(package-names.package))...... |
| 4f640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 | .............finally............ |
| 4f660 | 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(return.................. |
| 4f680 | 20 20 20 28 76 61 6c 75 65 73 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 | ...(values.completions.......... |
| 4f6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 74 69 6d 65 2d 6c 69 6d | ...................(and.time-lim |
| 4f6c0 | 69 74 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | it-p............................ |
| 4f6e0 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 6c 61 70 73 65 64 2d 74 69 6d 65 20 28 2d 20 28 67 65 | ......(let.((elapsed-time.(-.(ge |
| 4f700 | 74 2d 72 65 61 6c 2d 74 69 6d 65 2d 69 6e 2d 6d 73 65 63 73 29 0a 20 20 20 20 20 20 20 20 20 20 | t-real-time-in-msecs)........... |
| 4f720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4f740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 74 69 6d 65 2d 61 74 2d 73 74 61 72 74 29 29 29 0a | ..............rtime-at-start))). |
| 4f760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4f780 | 20 20 20 28 2d 20 74 69 6d 65 2d 6c 69 6d 69 74 20 65 6c 61 70 73 65 64 2d 74 69 6d 65 29 29 29 | ...(-.time-limit.elapsed-time))) |
| 4f7a0 | 29 29 29 29 29 29 29 29 0a 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 75 7a 7a 79 2d 63 6f | ))))))))...(defslimefun.fuzzy-co |
| 4f7c0 | 6d 70 6c 65 74 69 6f 6e 2d 73 65 6c 65 63 74 65 64 20 28 6f 72 69 67 69 6e 61 6c 2d 73 74 72 69 | mpletion-selected.(original-stri |
| 4f7e0 | 6e 67 20 63 6f 6d 70 6c 65 74 69 6f 6e 29 0a 20 20 22 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 | ng.completion)..."This.function. |
| 4f800 | 69 73 20 63 61 6c 6c 65 64 20 62 79 20 53 6c 69 6d 65 20 77 68 65 6e 20 61 20 66 75 7a 7a 79 20 | is.called.by.Slime.when.a.fuzzy. |
| 4f820 | 63 6f 6d 70 6c 65 74 69 6f 6e 20 69 73 0a 73 65 6c 65 63 74 65 64 20 62 79 20 74 68 65 20 75 73 | completion.is.selected.by.the.us |
| 4f840 | 65 72 2e 20 20 49 74 20 69 73 20 66 6f 72 20 66 75 74 75 72 65 20 65 78 70 61 6e 73 69 6f 6e 20 | er...It.is.for.future.expansion. |
| 4f860 | 74 6f 20 6d 61 6b 65 0a 74 65 73 74 69 6e 67 2c 20 73 61 79 2c 20 61 20 6d 61 63 68 69 6e 65 20 | to.make.testing,.say,.a.machine. |
| 4f880 | 6c 65 61 72 6e 69 6e 67 20 61 6c 67 6f 72 69 74 68 6d 20 66 6f 72 20 63 6f 6d 70 6c 65 74 69 6f | learning.algorithm.for.completio |
| 4f8a0 | 6e 20 73 63 6f 72 69 6e 67 0a 65 61 73 69 65 72 2e 0a 0a 4f 52 49 47 49 4e 41 4c 2d 53 54 52 49 | n.scoring.easier...ORIGINAL-STRI |
| 4f8c0 | 4e 47 20 69 73 20 74 68 65 20 73 74 72 69 6e 67 20 74 68 65 20 75 73 65 72 20 63 6f 6d 70 6c 65 | NG.is.the.string.the.user.comple |
| 4f8e0 | 74 65 64 20 66 72 6f 6d 2c 20 61 6e 64 0a 43 4f 4d 50 4c 45 54 49 4f 4e 20 69 73 20 74 68 65 20 | ted.from,.and.COMPLETION.is.the. |
| 4f900 | 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f 62 6a 65 63 74 20 28 73 65 65 20 64 6f 63 73 74 72 69 6e 67 | completion.object.(see.docstring |
| 4f920 | 20 66 6f 72 0a 53 57 41 4e 4b 3a 46 55 5a 5a 59 2d 43 4f 4d 50 4c 45 54 49 4f 4e 53 29 20 63 6f | .for.SWANK:FUZZY-COMPLETIONS).co |
| 4f940 | 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 74 68 | rresponding.to.the.completion.th |
| 4f960 | 61 74 20 74 68 65 0a 75 73 65 72 20 73 65 6c 65 63 74 65 64 2e 22 0a 20 20 28 64 65 63 6c 61 72 | at.the.user.selected."...(declar |
| 4f980 | 65 20 28 69 67 6e 6f 72 65 20 6f 72 69 67 69 6e 61 6c 2d 73 74 72 69 6e 67 20 63 6f 6d 70 6c 65 | e.(ignore.original-string.comple |
| 4f9a0 | 74 69 6f 6e 29 29 0a 20 20 6e 69 6c 29 0a 0a 0a 3b 3b 3b 3b 3b 20 46 75 7a 7a 79 20 63 6f 6d 70 | tion))...nil)...;;;;;.Fuzzy.comp |
| 4f9c0 | 6c 65 74 69 6f 6e 20 63 6f 72 65 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 66 75 7a 7a | letion.core..(defparameter.*fuzz |
| 4f9e0 | 79 2d 72 65 63 75 72 73 69 6f 6e 2d 73 6f 66 74 2d 6c 69 6d 69 74 2a 20 33 30 0a 20 20 22 54 68 | y-recursion-soft-limit*.30..."Th |
| 4fa00 | 69 73 20 69 73 20 61 20 73 6f 66 74 20 6c 69 6d 69 74 20 66 6f 72 20 72 65 63 75 72 73 69 6f 6e | is.is.a.soft.limit.for.recursion |
| 4fa20 | 20 69 6e 0a 52 45 43 55 52 53 49 56 45 4c 59 2d 43 4f 4d 50 55 54 45 2d 4d 4f 53 54 2d 43 4f 4d | .in.RECURSIVELY-COMPUTE-MOST-COM |
| 4fa40 | 50 4c 45 54 49 4f 4e 53 2e 20 20 57 69 74 68 6f 75 74 20 74 68 69 73 20 6c 69 6d 69 74 2c 0a 63 | PLETIONS...Without.this.limit,.c |
| 4fa60 | 6f 6d 70 6c 65 74 69 6e 67 20 61 20 73 74 72 69 6e 67 20 73 75 63 68 20 61 73 20 5c 22 5a 5a 5a | ompleting.a.string.such.as.\"ZZZ |
| 4fa80 | 5a 5a 5a 5c 22 20 77 69 74 68 20 61 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 64 0a 5c 22 5a 5a 5a 5a | ZZZ\".with.a.symbol.named.\"ZZZZ |
| 4faa0 | 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5c 22 20 77 69 6c 6c 20 72 65 73 75 6c | ZZZZZZZZZZZZZZZZZZZ\".will.resul |
| 4fac0 | 74 20 69 6e 20 65 78 70 6c 6f 73 69 76 65 20 72 65 63 75 72 73 69 6f 6e 20 74 6f 0a 66 69 6e 64 | t.in.explosive.recursion.to.find |
| 4fae0 | 20 61 6c 6c 20 74 68 65 20 77 61 79 73 20 69 74 20 63 61 6e 20 6d 61 74 63 68 2e 0a 0a 4d 6f 73 | .all.the.ways.it.can.match...Mos |
| 4fb00 | 74 20 6e 61 74 75 72 61 6c 20 6c 61 6e 67 75 61 67 65 20 73 65 61 72 63 68 65 73 20 61 6e 64 20 | t.natural.language.searches.and. |
| 4fb20 | 73 79 6d 62 6f 6c 73 20 64 6f 20 6e 6f 74 20 68 61 76 65 20 74 68 69 73 0a 70 72 6f 62 6c 65 6d | symbols.do.not.have.this.problem |
| 4fb40 | 20 2d 2d 20 74 68 69 73 20 69 73 20 6f 6e 6c 79 20 68 65 72 65 20 61 73 20 61 20 73 61 66 65 67 | .--.this.is.only.here.as.a.safeg |
| 4fb60 | 75 61 72 64 2e 22 29 0a 28 64 65 63 6c 61 69 6d 20 28 66 69 78 6e 75 6d 20 2a 66 75 7a 7a 79 2d | uard.").(declaim.(fixnum.*fuzzy- |
| 4fb80 | 72 65 63 75 72 73 69 6f 6e 2d 73 6f 66 74 2d 6c 69 6d 69 74 2a 29 29 0a 0a 28 64 65 66 76 61 72 | recursion-soft-limit*))..(defvar |
| 4fba0 | 20 2a 61 6c 6c 2d 63 68 75 6e 6b 73 2a 20 27 28 29 29 0a 28 64 65 63 6c 61 69 6d 20 28 74 79 70 | .*all-chunks*.'()).(declaim.(typ |
| 4fbc0 | 65 20 6c 69 73 74 20 2a 61 6c 6c 2d 63 68 75 6e 6b 73 2a 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f | e.list.*all-chunks*))..(defun.co |
| 4fbe0 | 6d 70 75 74 65 2d 68 69 67 68 65 73 74 2d 73 63 6f 72 69 6e 67 2d 63 6f 6d 70 6c 65 74 69 6f 6e | mpute-highest-scoring-completion |
| 4fc00 | 20 28 73 68 6f 72 74 20 66 75 6c 6c 29 0a 20 20 22 46 69 6e 64 73 20 74 68 65 20 68 69 67 68 65 | .(short.full)..."Finds.the.highe |
| 4fc20 | 73 74 20 73 63 6f 72 69 6e 67 20 77 61 79 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 74 68 65 20 61 | st.scoring.way.to.complete.the.a |
| 4fc40 | 62 62 72 65 76 69 61 74 69 6f 6e 0a 53 48 4f 52 54 20 6f 6e 74 6f 20 74 68 65 20 73 74 72 69 6e | bbreviation.SHORT.onto.the.strin |
| 4fc60 | 67 20 46 55 4c 4c 2c 20 75 73 69 6e 67 20 43 48 41 52 3d 20 61 73 20 61 20 65 71 75 61 6c 69 74 | g.FULL,.using.CHAR=.as.a.equalit |
| 4fc80 | 79 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 0a 6c 65 74 74 65 72 73 2e 20 20 52 65 74 75 72 6e 73 | y.function.for.letters...Returns |
| 4fca0 | 20 74 77 6f 20 76 61 6c 75 65 73 3a 20 20 54 68 65 20 66 69 72 73 74 20 62 65 69 6e 67 20 74 68 | .two.values:..The.first.being.th |
| 4fcc0 | 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 63 68 75 6e 6b 73 20 6f 66 20 74 68 65 20 68 69 67 68 65 | e.completion.chunks.of.the.highe |
| 4fce0 | 73 74 20 73 63 6f 72 65 72 2c 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 62 65 69 6e 67 20 | st.scorer,.and.the.second.being. |
| 4fd00 | 74 68 65 20 73 63 6f 72 65 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 63 6f 72 65 64 2d 72 65 73 | the.score."...(let*.((scored-res |
| 4fd20 | 75 6c 74 73 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 28 6c 61 6d 62 64 61 | ults...........(mapcar.#'(lambda |
| 4fd40 | 20 28 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(result)....................... |
| 4fd60 | 28 63 6f 6e 73 20 28 73 63 6f 72 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 72 65 73 75 6c 74 20 73 | (cons.(score-completion.result.s |
| 4fd80 | 68 6f 72 74 20 66 75 6c 6c 29 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | hort.full).result))............. |
| 4fda0 | 20 20 20 20 20 20 28 63 6f 6d 70 75 74 65 2d 6d 6f 73 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 | ......(compute-most-completions. |
| 4fdc0 | 73 68 6f 72 74 20 66 75 6c 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 69 6e 6e 65 72 20 28 | short.full)))..........(winner.( |
| 4fde0 | 66 69 72 73 74 20 28 73 6f 72 74 20 73 63 6f 72 65 64 2d 72 65 73 75 6c 74 73 20 23 27 3e 20 3a | first.(sort.scored-results.#'>.: |
| 4fe00 | 6b 65 79 20 23 27 66 69 72 73 74 29 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 28 72 65 73 | key.#'first)))).....(values.(res |
| 4fe20 | 74 20 77 69 6e 6e 65 72 29 20 28 66 69 72 73 74 20 77 69 6e 6e 65 72 29 29 29 29 0a 0a 28 64 65 | t.winner).(first.winner))))..(de |
| 4fe40 | 66 75 6e 20 63 6f 6d 70 75 74 65 2d 6d 6f 73 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 73 68 | fun.compute-most-completions.(sh |
| 4fe60 | 6f 72 74 20 66 75 6c 6c 29 0a 20 20 22 46 69 6e 64 73 20 6d 6f 73 74 20 70 6f 73 73 69 62 6c 65 | ort.full)..."Finds.most.possible |
| 4fe80 | 20 77 61 79 73 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 46 55 4c 4c 20 77 69 74 68 20 74 68 65 20 | .ways.to.complete.FULL.with.the. |
| 4fea0 | 6c 65 74 74 65 72 73 20 69 6e 20 53 48 4f 52 54 2e 0a 43 61 6c 6c 73 20 52 45 43 55 52 53 49 56 | letters.in.SHORT..Calls.RECURSIV |
| 4fec0 | 45 4c 59 2d 43 4f 4d 50 55 54 45 2d 4d 4f 53 54 2d 43 4f 4d 50 4c 45 54 49 4f 4e 53 20 72 65 63 | ELY-COMPUTE-MOST-COMPLETIONS.rec |
| 4fee0 | 75 72 73 69 76 65 6c 79 2e 20 20 52 65 74 75 72 6e 73 0a 61 20 6c 69 73 74 20 6f 66 20 28 26 72 | ursively...Returns.a.list.of.(&r |
| 4ff00 | 65 73 74 20 43 48 55 4e 4b 53 29 2c 20 77 68 65 72 65 20 65 61 63 68 20 43 48 55 4e 4b 53 20 69 | est.CHUNKS),.where.each.CHUNKS.i |
| 4ff20 | 73 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 0a 68 6f 77 20 61 20 63 6f 6d 70 6c 65 74 | s.a.description.of.how.a.complet |
| 4ff40 | 69 6f 6e 20 6d 61 74 63 68 65 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 2a 61 6c 6c 2d 63 68 75 6e | ion.matches."...(let.((*all-chun |
| 4ff60 | 6b 73 2a 20 6e 69 6c 29 29 0a 20 20 20 20 28 72 65 63 75 72 73 69 76 65 6c 79 2d 63 6f 6d 70 75 | ks*.nil)).....(recursively-compu |
| 4ff80 | 74 65 2d 6d 6f 73 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 73 68 6f 72 74 20 66 75 6c 6c 20 30 | te-most-completions.short.full.0 |
| 4ffa0 | 20 30 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 74 29 0a 20 20 20 20 2a 61 6c 6c 2d 63 68 75 6e 6b | .0.nil.nil.nil.t).....*all-chunk |
| 4ffc0 | 73 2a 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 63 75 72 73 69 76 65 6c 79 2d 63 6f 6d 70 75 74 65 | s*))..(defun.recursively-compute |
| 4ffe0 | 2d 6d 6f 73 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 0a 20 20 20 20 28 73 68 6f 72 74 20 66 75 6c | -most-completions.....(short.ful |
| 50000 | 6c 0a 20 20 20 20 20 73 68 6f 72 74 2d 69 6e 64 65 78 20 69 6e 69 74 69 61 6c 2d 66 75 6c 6c 2d | l......short-index.initial-full- |
| 50020 | 69 6e 64 65 78 0a 20 20 20 20 20 63 68 75 6e 6b 73 20 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 20 | index......chunks.current-chunk. |
| 50040 | 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 2d 70 6f 73 0a 20 20 20 20 20 72 65 63 75 72 73 65 2d 70 | current-chunk-pos......recurse-p |
| 50060 | 29 0a 20 20 22 52 65 63 75 72 73 69 76 65 6c 79 20 28 69 66 20 52 45 43 55 52 53 45 2d 50 20 69 | )..."Recursively.(if.RECURSE-P.i |
| 50080 | 73 20 74 72 75 65 29 20 66 69 6e 64 20 2f 6d 6f 73 74 2f 20 70 6f 73 73 69 62 6c 65 20 77 61 79 | s.true).find./most/.possible.way |
| 500a0 | 73 0a 74 6f 20 66 75 7a 7a 69 6c 79 20 6d 61 70 20 74 68 65 20 6c 65 74 74 65 72 73 20 69 6e 20 | s.to.fuzzily.map.the.letters.in. |
| 500c0 | 53 48 4f 52 54 20 6f 6e 74 6f 20 46 55 4c 4c 2c 20 75 73 69 6e 67 20 43 48 41 52 3d 20 74 6f 0a | SHORT.onto.FULL,.using.CHAR=.to. |
| 500e0 | 64 65 74 65 72 6d 69 6e 65 20 69 66 20 74 77 6f 20 6c 65 74 74 65 72 73 20 6d 61 74 63 68 2e 0a | determine.if.two.letters.match.. |
| 50100 | 0a 41 20 63 68 75 6e 6b 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 74 | .A.chunk.is.a.list.of.elements.t |
| 50120 | 68 61 74 20 68 61 76 65 20 6d 61 74 63 68 65 64 20 63 6f 6e 73 65 63 75 74 69 76 65 6c 79 2e 0a | hat.have.matched.consecutively.. |
| 50140 | 57 68 65 6e 20 63 6f 6e 73 65 63 75 74 69 76 65 20 6d 61 74 63 68 65 73 20 73 74 6f 70 2c 20 69 | When.consecutive.matches.stop,.i |
| 50160 | 74 20 69 73 20 63 6f 65 72 63 65 64 20 69 6e 74 6f 20 61 20 73 74 72 69 6e 67 2c 0a 70 61 69 72 | t.is.coerced.into.a.string,.pair |
| 50180 | 65 64 20 77 69 74 68 20 74 68 65 20 73 74 61 72 74 69 6e 67 20 70 6f 73 69 74 69 6f 6e 20 6f 66 | ed.with.the.starting.position.of |
| 501a0 | 20 74 68 65 20 63 68 75 6e 6b 2c 20 61 6e 64 20 70 75 73 68 65 64 20 6f 6e 74 6f 0a 43 48 55 4e | .the.chunk,.and.pushed.onto.CHUN |
| 501c0 | 4b 53 2e 0a 0a 57 68 65 6e 65 76 65 72 20 61 20 6c 65 74 74 65 72 20 6d 61 74 63 68 65 73 2c 20 | KS...Whenever.a.letter.matches,. |
| 501e0 | 69 66 20 52 45 43 55 52 53 45 2d 50 20 69 73 20 74 72 75 65 2c 0a 52 45 43 55 52 53 49 56 45 4c | if.RECURSE-P.is.true,.RECURSIVEL |
| 50200 | 59 2d 43 4f 4d 50 55 54 45 2d 4d 4f 53 54 2d 43 4f 4d 50 4c 45 54 49 4f 4e 53 20 63 61 6c 6c 73 | Y-COMPUTE-MOST-COMPLETIONS.calls |
| 50220 | 20 69 74 73 65 6c 66 20 77 69 74 68 20 61 20 70 6f 73 69 74 69 6f 6e 0a 6f 6e 65 20 69 6e 64 65 | .itself.with.a.position.one.inde |
| 50240 | 78 20 61 68 65 61 64 2c 20 74 6f 20 66 69 6e 64 20 6f 74 68 65 72 20 70 6f 73 73 69 62 6c 79 20 | x.ahead,.to.find.other.possibly. |
| 50260 | 68 69 67 68 65 72 20 73 63 6f 72 69 6e 67 0a 70 6f 73 73 69 62 69 6c 69 74 69 65 73 2e 20 20 49 | higher.scoring.possibilities...I |
| 50280 | 66 20 74 68 65 72 65 20 61 72 65 20 6c 65 73 73 20 74 68 61 6e 0a 2a 46 55 5a 5a 59 2d 52 45 43 | f.there.are.less.than.*FUZZY-REC |
| 502a0 | 55 52 53 49 4f 4e 2d 53 4f 46 54 2d 4c 49 4d 49 54 2a 20 72 65 73 75 6c 74 73 20 69 6e 20 2a 41 | URSION-SOFT-LIMIT*.results.in.*A |
| 502c0 | 4c 4c 2d 43 48 55 4e 4b 53 2a 20 63 75 72 72 65 6e 74 6c 79 2c 0a 74 68 69 73 20 63 61 6c 6c 20 | LL-CHUNKS*.currently,.this.call. |
| 502e0 | 77 69 6c 6c 20 61 6c 73 6f 20 72 65 63 75 72 73 65 2e 0a 0a 4f 6e 63 65 20 61 20 77 6f 72 64 20 | will.also.recurse...Once.a.word. |
| 50300 | 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 6c 65 74 65 6c 79 20 6d 61 74 63 68 65 64 2c 20 74 68 65 | has.been.completely.matched,.the |
| 50320 | 20 63 68 75 6e 6b 73 20 61 72 65 20 70 75 73 68 65 64 0a 6f 6e 74 6f 20 74 68 65 20 73 70 65 63 | .chunks.are.pushed.onto.the.spec |
| 50340 | 69 61 6c 20 76 61 72 69 61 62 6c 65 20 2a 41 4c 4c 2d 43 48 55 4e 4b 53 2a 20 61 6e 64 20 74 68 | ial.variable.*ALL-CHUNKS*.and.th |
| 50360 | 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 | e.function.returns."...(declare. |
| 50380 | 28 6f 70 74 69 6d 69 7a 65 20 73 70 65 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 | (optimize.speed)............(typ |
| 503a0 | 65 20 66 69 78 6e 75 6d 20 73 68 6f 72 74 2d 69 6e 64 65 78 20 69 6e 69 74 69 61 6c 2d 66 75 6c | e.fixnum.short-index.initial-ful |
| 503c0 | 6c 2d 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 20 6c 69 73 74 20 63 | l-index)............(type.list.c |
| 503e0 | 75 72 72 65 6e 74 2d 63 68 75 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 69 6d 70 6c 65 | urrent-chunk)............(simple |
| 50400 | 2d 73 74 72 69 6e 67 20 73 68 6f 72 74 20 66 75 6c 6c 29 29 0a 20 20 28 66 6c 65 74 20 28 28 73 | -string.short.full))...(flet.((s |
| 50420 | 68 6f 72 74 2d 63 75 72 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 22 52 65 74 75 72 6e 73 20 | hort-cur.()............"Returns. |
| 50440 | 74 68 65 20 6e 65 78 74 20 6c 65 74 74 65 72 20 66 72 6f 6d 20 74 68 65 20 61 62 62 72 65 76 69 | the.next.letter.from.the.abbrevi |
| 50460 | 61 74 69 6f 6e 2c 20 6f 72 20 4e 49 4c 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 6c 6c | ation,.or.NIL.............if.all |
| 50480 | 20 68 61 76 65 20 62 65 65 6e 20 75 73 65 64 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 | .have.been.used."............(if |
| 504a0 | 20 28 3d 20 73 68 6f 72 74 2d 69 6e 64 65 78 20 28 6c 65 6e 67 74 68 20 73 68 6f 72 74 29 29 0a | .(=.short-index.(length.short)). |
| 504c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............nil.............. |
| 504e0 | 20 20 28 61 72 65 66 20 73 68 6f 72 74 20 73 68 6f 72 74 2d 69 6e 64 65 78 29 29 29 0a 20 20 20 | ..(aref.short.short-index))).... |
| 50500 | 20 20 20 20 20 20 28 61 64 64 2d 74 6f 2d 63 68 75 6e 6b 20 28 63 68 61 72 20 70 6f 73 29 0a 20 | ......(add-to-chunk.(char.pos).. |
| 50520 | 20 20 20 20 20 20 20 20 20 20 22 41 64 64 73 20 74 68 65 20 43 48 41 52 20 61 74 20 50 4f 53 20 | .........."Adds.the.CHAR.at.POS. |
| 50540 | 69 6e 20 46 55 4c 4c 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 68 75 6e 6b 2c 0a 20 20 | in.FULL.to.the.current.chunk,... |
| 50560 | 20 20 20 20 20 20 20 20 20 20 6d 61 72 6b 69 6e 67 20 74 68 65 20 73 74 61 72 74 20 70 6f 73 69 | ..........marking.the.start.posi |
| 50580 | 74 69 6f 6e 20 69 66 20 69 74 20 69 73 20 65 6d 70 74 79 2e 22 0a 20 20 20 20 20 20 20 20 20 20 | tion.if.it.is.empty."........... |
| 505a0 | 20 28 75 6e 6c 65 73 73 20 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 0a 20 20 20 20 20 20 20 20 20 | .(unless.current-chunk.......... |
| 505c0 | 20 20 20 20 28 73 65 74 66 20 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 2d 70 6f 73 20 70 6f 73 29 | ....(setf.current-chunk-pos.pos) |
| 505e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 63 68 61 72 20 63 75 72 72 65 6e 74 2d | )............(push.char.current- |
| 50600 | 63 68 75 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 74 2d 63 68 75 6e 6b 20 | chunk))..........(collect-chunk. |
| 50620 | 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 22 43 6f 6c 6c 65 63 74 73 20 74 68 65 20 63 75 72 72 | ()............"Collects.the.curr |
| 50640 | 65 6e 74 20 63 68 75 6e 6b 20 74 6f 20 43 48 55 4e 4b 53 20 61 6e 64 20 70 72 65 70 61 72 65 73 | ent.chunk.to.CHUNKS.and.prepares |
| 50660 | 20 66 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 20 6e 65 77 20 63 68 75 6e 6b 2e 22 0a 20 | .for.............a.new.chunk.".. |
| 50680 | 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 0a 20 20 | ..........(when.current-chunk... |
| 506a0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 2d | ...........(let.((current-chunk- |
| 506c0 | 61 73 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | as-string......................( |
| 506e0 | 6e 72 65 76 65 72 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | nreverse.......................( |
| 50700 | 6d 61 6b 65 2d 61 72 72 61 79 20 28 6c 65 6e 67 74 68 20 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b | make-array.(length.current-chunk |
| 50720 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 50740 | 20 20 20 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 27 63 68 61 72 61 63 74 65 72 0a 20 20 20 | ....:element-type.'character.... |
| 50760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ...............................: |
| 50780 | 69 6e 69 74 69 61 6c 2d 63 6f 6e 74 65 6e 74 73 20 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 29 29 | initial-contents.current-chunk)) |
| 507a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 63 75 | ))................(push.(list.cu |
| 507c0 | 72 72 65 6e 74 2d 63 68 75 6e 6b 2d 70 6f 73 20 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 2d 61 73 | rrent-chunk-pos.current-chunk-as |
| 507e0 | 2d 73 74 72 69 6e 67 29 20 63 68 75 6e 6b 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -string).chunks)................ |
| 50800 | 28 73 65 74 66 20 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 | (setf.current-chunk.nil......... |
| 50820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 2d 70 6f 73 20 6e | .............current-chunk-pos.n |
| 50840 | 69 6c 29 29 29 29 29 0a 20 20 20 20 3b 3b 20 49 66 20 74 68 65 72 65 27 73 20 61 6e 20 6f 75 74 | il))))).....;;.If.there's.an.out |
| 50860 | 73 74 61 6e 64 69 6e 67 20 63 68 75 6e 6b 20 63 6f 6d 69 6e 67 20 69 6e 20 63 6f 6c 6c 65 63 74 | standing.chunk.coming.in.collect |
| 50880 | 20 69 74 2e 20 20 53 69 6e 63 65 0a 20 20 20 20 3b 3b 20 77 65 27 72 65 20 72 65 63 75 72 73 69 | .it...Since.....;;.we're.recursi |
| 508a0 | 76 65 6c 79 20 63 61 6c 6c 65 64 20 6f 6e 20 73 6b 69 70 70 69 6e 67 20 61 6e 20 69 6e 70 75 74 | vely.called.on.skipping.an.input |
| 508c0 | 20 63 68 61 72 61 63 74 65 72 2c 20 74 68 65 0a 20 20 20 20 3b 3b 20 63 68 75 6e 6b 20 63 61 6e | .character,.the.....;;.chunk.can |
| 508e0 | 27 74 20 70 6f 73 73 69 62 6c 79 20 63 6f 6e 74 69 6e 75 65 20 6f 6e 2e 0a 20 20 20 20 28 77 68 | 't.possibly.continue.on......(wh |
| 50900 | 65 6e 20 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 20 28 63 6f 6c 6c 65 63 74 2d 63 68 75 6e 6b 29 | en.current-chunk.(collect-chunk) |
| 50920 | 29 0a 20 20 20 20 28 64 6f 20 28 28 70 6f 73 20 69 6e 69 74 69 61 6c 2d 66 75 6c 6c 2d 69 6e 64 | ).....(do.((pos.initial-full-ind |
| 50940 | 65 78 20 28 31 2b 20 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 3d 20 70 6f 73 20 28 6c | ex.(1+.pos))).........((=.pos.(l |
| 50960 | 65 6e 67 74 68 20 66 75 6c 6c 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 2d 63 | ength.full))).......(let.((cur-c |
| 50980 | 68 61 72 20 28 61 72 65 66 20 66 75 6c 6c 20 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 | har.(aref.full.pos))).........(i |
| 509a0 | 66 20 28 61 6e 64 20 28 73 68 6f 72 74 2d 63 75 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | f.(and.(short-cur).............. |
| 509c0 | 20 20 20 20 28 63 68 61 72 3d 20 63 75 72 2d 63 68 61 72 20 28 73 68 6f 72 74 2d 63 75 72 29 29 | ....(char=.cur-char.(short-cur)) |
| 509e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | ).............(progn............ |
| 50a00 | 20 20 20 28 77 68 65 6e 20 72 65 63 75 72 73 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(when.recurse-p.............. |
| 50a20 | 20 20 20 3b 3b 20 54 72 79 20 6f 74 68 65 72 20 70 6f 73 73 69 62 69 6c 69 74 69 65 73 2c 20 6c | ...;;.Try.other.possibilities,.l |
| 50a40 | 69 6d 69 74 69 6e 67 20 69 6e 73 61 6e 65 6c 79 20 64 65 65 70 0a 20 20 20 20 20 20 20 20 20 20 | imiting.insanely.deep........... |
| 50a60 | 20 20 20 20 20 20 3b 3b 20 72 65 63 75 72 73 69 6f 6e 20 73 6f 6d 65 77 68 61 74 2e 0a 20 20 20 | ......;;.recursion.somewhat..... |
| 50a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 63 75 72 73 69 76 65 6c 79 2d 63 6f 6d 70 75 74 | .............(recursively-comput |
| 50aa0 | 65 2d 6d 6f 73 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-most-completions.............. |
| 50ac0 | 20 20 20 20 73 68 6f 72 74 20 66 75 6c 6c 20 73 68 6f 72 74 2d 69 6e 64 65 78 20 28 31 2b 20 70 | ....short.full.short-index.(1+.p |
| 50ae0 | 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 75 6e 6b 73 20 63 75 72 72 | os)..................chunks.curr |
| 50b00 | 65 6e 74 2d 63 68 75 6e 6b 20 63 75 72 72 65 6e 74 2d 63 68 75 6e 6b 2d 70 6f 73 0a 20 20 20 20 | ent-chunk.current-chunk-pos..... |
| 50b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 3e 20 28 6c 65 6e 67 74 68 20 2a 61 6c | .............(not.(>.(length.*al |
| 50b40 | 6c 2d 63 68 75 6e 6b 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-chunks*)...................... |
| 50b60 | 20 20 20 20 2a 66 75 7a 7a 79 2d 72 65 63 75 72 73 69 6f 6e 2d 73 6f 66 74 2d 6c 69 6d 69 74 2a | ....*fuzzy-recursion-soft-limit* |
| 50b80 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 73 68 6f 72 74 2d 69 | ))))...............(incf.short-i |
| 50ba0 | 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 6f 2d 63 68 75 6e | ndex)...............(add-to-chun |
| 50bc0 | 6b 20 63 75 72 2d 63 68 61 72 20 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | k.cur-char.pos)).............(co |
| 50be0 | 6c 6c 65 63 74 2d 63 68 75 6e 6b 29 29 29 29 0a 20 20 20 20 28 63 6f 6c 6c 65 63 74 2d 63 68 75 | llect-chunk)))).....(collect-chu |
| 50c00 | 6e 6b 29 0a 20 20 20 20 3b 3b 20 49 66 20 77 65 27 76 65 20 65 78 68 61 75 73 74 65 64 20 74 68 | nk).....;;.If.we've.exhausted.th |
| 50c20 | 65 20 73 68 6f 72 74 20 63 68 61 72 61 63 74 65 72 73 20 77 65 20 68 61 76 65 20 61 20 6d 61 74 | e.short.characters.we.have.a.mat |
| 50c40 | 63 68 2e 0a 20 20 20 20 28 69 66 20 28 73 68 6f 72 74 2d 63 75 72 29 0a 20 20 20 20 20 20 20 20 | ch......(if.(short-cur)......... |
| 50c60 | 6e 69 6c 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 76 2d 63 68 75 6e 6b 73 20 28 72 | nil.........(let.((rev-chunks.(r |
| 50c80 | 65 76 65 72 73 65 20 63 68 75 6e 6b 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 | everse.chunks)))...........(push |
| 50ca0 | 20 72 65 76 2d 63 68 75 6e 6b 73 20 2a 61 6c 6c 2d 63 68 75 6e 6b 73 2a 29 0a 20 20 20 20 20 20 | .rev-chunks.*all-chunks*)....... |
| 50cc0 | 20 20 20 20 72 65 76 2d 63 68 75 6e 6b 73 29 29 29 29 0a 0a 0a 3b 3b 3b 3b 3b 20 46 75 7a 7a 79 | ....rev-chunks))))...;;;;;.Fuzzy |
| 50ce0 | 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 63 6f 72 69 6e 67 0a 0a 28 64 65 66 76 61 72 20 2a 66 75 | .completion.scoring..(defvar.*fu |
| 50d00 | 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 79 6d 62 6f 6c 2d 70 72 65 66 69 78 65 73 2a 20 | zzy-completion-symbol-prefixes*. |
| 50d20 | 22 2a 2b 2d 25 26 3f 3c 22 0a 20 20 22 4c 65 74 74 65 72 73 20 74 68 61 74 20 61 72 65 20 6c 69 | "*+-%&?<"..."Letters.that.are.li |
| 50d40 | 6b 65 6c 79 20 74 6f 20 62 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 | kely.to.be.at.the.beginning.of.a |
| 50d60 | 20 73 79 6d 62 6f 6c 2e 0a 4c 65 74 74 65 72 73 20 66 6f 75 6e 64 20 61 66 74 65 72 20 6f 6e 65 | .symbol..Letters.found.after.one |
| 50d80 | 20 6f 66 20 74 68 65 73 65 20 70 72 65 66 69 78 65 73 20 77 69 6c 6c 20 62 65 20 73 63 6f 72 65 | .of.these.prefixes.will.be.score |
| 50da0 | 64 20 61 73 20 69 66 0a 74 68 65 79 20 77 65 72 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 | d.as.if.they.were.at.the.beginni |
| 50dc0 | 6e 67 20 6f 66 20 74 68 73 20 73 79 6d 62 6f 6c 2e 22 29 0a 28 64 65 66 76 61 72 20 2a 66 75 7a | ng.of.ths.symbol.").(defvar.*fuz |
| 50de0 | 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 79 6d 62 6f 6c 2d 73 75 66 66 69 78 65 73 2a 20 22 | zy-completion-symbol-suffixes*." |
| 50e00 | 2a 2b 2d 3e 22 0a 20 20 22 4c 65 74 74 65 72 73 20 74 68 61 74 20 61 72 65 20 6c 69 6b 65 6c 79 | *+->"..."Letters.that.are.likely |
| 50e20 | 20 74 6f 20 62 65 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 61 20 73 79 6d 62 6f 6c 2e 0a 4c | .to.be.at.the.end.of.a.symbol..L |
| 50e40 | 65 74 74 65 72 73 20 66 6f 75 6e 64 20 62 65 66 6f 72 65 20 6f 6e 65 20 6f 66 20 74 68 65 73 65 | etters.found.before.one.of.these |
| 50e60 | 20 73 75 66 66 69 78 65 73 20 77 69 6c 6c 20 62 65 20 73 63 6f 72 65 64 20 61 73 20 69 66 0a 74 | .suffixes.will.be.scored.as.if.t |
| 50e80 | 68 65 79 20 77 65 72 65 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 73 79 6d 62 6f | hey.were.at.the.end.of.the.symbo |
| 50ea0 | 6c 2e 22 29 0a 28 64 65 66 76 61 72 20 2a 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 77 | l.").(defvar.*fuzzy-completion-w |
| 50ec0 | 6f 72 64 2d 73 65 70 61 72 61 74 6f 72 73 2a 20 22 2d 2f 2e 22 0a 20 20 22 4c 65 74 74 65 72 73 | ord-separators*."-/."..."Letters |
| 50ee0 | 20 74 68 61 74 20 73 65 70 61 72 61 74 65 20 64 69 66 66 65 72 65 6e 74 20 77 6f 72 64 73 20 69 | .that.separate.different.words.i |
| 50f00 | 6e 20 73 79 6d 62 6f 6c 73 2e 20 20 4c 65 74 74 65 72 73 0a 61 66 74 65 72 20 6f 6e 65 20 6f 66 | n.symbols...Letters.after.one.of |
| 50f20 | 20 74 68 65 73 65 20 73 79 6d 62 6f 6c 73 20 77 69 6c 6c 20 62 65 20 73 63 6f 72 65 73 20 6d 6f | .these.symbols.will.be.scores.mo |
| 50f40 | 72 65 20 68 69 67 68 6c 79 20 74 68 61 6e 20 6f 74 68 65 72 0a 6c 65 74 74 65 72 73 2e 22 29 0a | re.highly.than.other.letters."). |
| 50f60 | 0a 28 64 65 66 75 6e 20 73 63 6f 72 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 28 63 6f 6d 70 6c 65 | .(defun.score-completion.(comple |
| 50f80 | 74 69 6f 6e 20 73 68 6f 72 74 20 66 75 6c 6c 29 0a 20 20 22 53 63 6f 72 65 73 20 74 68 65 20 63 | tion.short.full)..."Scores.the.c |
| 50fa0 | 6f 6d 70 6c 65 74 69 6f 6e 20 63 68 75 6e 6b 73 20 43 4f 4d 50 4c 45 54 49 4f 4e 20 61 73 20 61 | ompletion.chunks.COMPLETION.as.a |
| 50fc0 | 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 72 6f 6d 0a 74 68 65 20 61 62 62 72 65 76 69 61 74 69 6f | .completion.from.the.abbreviatio |
| 50fe0 | 6e 20 53 48 4f 52 54 20 74 6f 20 74 68 65 20 66 75 6c 6c 20 73 74 72 69 6e 67 20 46 55 4c 4c 2e | n.SHORT.to.the.full.string.FULL. |
| 51000 | 20 20 43 4f 4d 50 4c 45 54 49 4f 4e 20 69 73 20 61 0a 6c 69 73 74 20 6c 69 6b 65 3a 0a 20 20 20 | ..COMPLETION.is.a.list.like:.... |
| 51020 | 20 28 28 30 20 5c 22 6d 75 6c 5c 22 29 20 28 39 20 5c 22 76 5c 22 29 20 28 31 35 20 5c 22 62 5c | .((0.\"mul\").(9.\"v\").(15.\"b\ |
| 51040 | 22 29 29 0a 57 68 69 63 68 2c 20 69 66 20 53 48 4f 52 54 20 77 65 72 65 20 5c 22 6d 75 6c 76 62 | ")).Which,.if.SHORT.were.\"mulvb |
| 51060 | 5c 22 20 61 6e 64 20 66 75 6c 6c 20 77 65 72 65 20 5c 22 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | \".and.full.were.\"multiple-valu |
| 51080 | 65 2d 62 69 6e 64 5c 22 2c 0a 77 6f 75 6c 64 20 69 6e 64 69 63 61 74 65 20 74 68 61 74 20 69 74 | e-bind\",.would.indicate.that.it |
| 510a0 | 20 63 6f 6d 70 6c 65 74 65 64 20 61 73 20 73 75 63 68 20 28 63 6f 6d 70 6c 65 74 65 64 20 6c 65 | .completed.as.such.(completed.le |
| 510c0 | 74 74 65 72 73 0a 63 61 70 69 74 61 6c 69 7a 65 64 29 3a 0a 20 20 20 20 4d 55 4c 74 69 70 6c 65 | tters.capitalized):.....MULtiple |
| 510e0 | 2d 56 61 6c 75 65 2d 42 69 6e 64 0a 0a 4c 65 74 74 65 72 73 20 61 72 65 20 67 69 76 65 6e 20 73 | -Value-Bind..Letters.are.given.s |
| 51100 | 63 6f 72 65 73 20 62 61 73 65 64 20 6f 6e 20 74 68 65 69 72 20 70 6f 73 69 74 69 6f 6e 20 69 6e | cores.based.on.their.position.in |
| 51120 | 20 74 68 65 20 73 74 72 69 6e 67 2e 0a 4c 65 74 74 65 72 73 20 61 74 20 74 68 65 20 62 65 67 69 | .the.string..Letters.at.the.begi |
| 51140 | 6e 6e 69 6e 67 20 6f 66 20 61 20 73 74 72 69 6e 67 20 6f 72 20 61 66 74 65 72 20 61 20 70 72 65 | nning.of.a.string.or.after.a.pre |
| 51160 | 66 69 78 20 6c 65 74 74 65 72 20 61 74 0a 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 | fix.letter.at.the.beginning.of.a |
| 51180 | 20 73 74 72 69 6e 67 20 61 72 65 20 73 63 6f 72 65 64 20 68 69 67 68 65 73 74 2e 20 20 4c 65 74 | .string.are.scored.highest...Let |
| 511a0 | 74 65 72 73 20 61 66 74 65 72 20 61 0a 77 6f 72 64 20 73 65 70 61 72 61 74 6f 72 20 73 75 63 68 | ters.after.a.word.separator.such |
| 511c0 | 20 61 73 20 23 5c 2d 20 61 72 65 20 73 63 6f 72 65 64 20 6e 65 78 74 20 68 69 67 68 65 73 74 2e | .as.#\-.are.scored.next.highest. |
| 511e0 | 20 20 4c 65 74 74 65 72 73 20 61 74 0a 74 68 65 20 65 6e 64 20 6f 66 20 61 20 73 74 72 69 6e 67 | ..Letters.at.the.end.of.a.string |
| 51200 | 20 6f 72 20 62 65 66 6f 72 65 20 61 20 73 75 66 66 69 78 20 6c 65 74 74 65 72 20 61 74 20 74 68 | .or.before.a.suffix.letter.at.th |
| 51220 | 65 20 65 6e 64 20 6f 66 20 61 0a 73 74 72 69 6e 67 20 61 72 65 20 73 63 6f 72 65 64 20 6d 65 64 | e.end.of.a.string.are.scored.med |
| 51240 | 69 75 6d 2c 20 61 6e 64 20 6c 65 74 74 65 72 73 20 61 6e 79 77 68 65 72 65 20 65 6c 73 65 20 61 | ium,.and.letters.anywhere.else.a |
| 51260 | 72 65 20 73 63 6f 72 65 64 0a 6c 6f 77 2e 0a 0a 49 66 20 61 20 6c 65 74 74 65 72 20 69 73 20 64 | re.scored.low...If.a.letter.is.d |
| 51280 | 69 72 65 63 74 6c 79 20 61 66 74 65 72 20 61 6e 6f 74 68 65 72 20 6d 61 74 63 68 65 64 20 6c 65 | irectly.after.another.matched.le |
| 512a0 | 74 74 65 72 2c 20 61 6e 64 20 69 74 73 0a 69 6e 74 72 69 6e 73 69 63 20 76 61 6c 75 65 20 69 6e | tter,.and.its.intrinsic.value.in |
| 512c0 | 20 74 68 61 74 20 70 6f 73 69 74 69 6f 6e 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 61 20 70 65 | .that.position.is.less.than.a.pe |
| 512e0 | 72 63 65 6e 74 61 67 65 20 6f 66 20 74 68 65 0a 70 72 65 76 69 6f 75 73 20 6c 65 74 74 65 72 27 | rcentage.of.the.previous.letter' |
| 51300 | 73 20 76 61 6c 75 65 2c 20 69 74 20 77 69 6c 6c 20 75 73 65 20 74 68 61 74 20 70 65 72 63 65 6e | s.value,.it.will.use.that.percen |
| 51320 | 74 61 67 65 20 69 6e 73 74 65 61 64 2e 0a 0a 46 69 6e 61 6c 6c 79 2c 20 61 20 73 6d 61 6c 6c 20 | tage.instead...Finally,.a.small. |
| 51340 | 73 63 61 6c 69 6e 67 20 66 61 63 74 6f 72 20 69 73 20 61 70 70 6c 69 65 64 20 74 6f 20 66 61 76 | scaling.factor.is.applied.to.fav |
| 51360 | 6f 72 20 73 68 6f 72 74 65 72 0a 6d 61 74 63 68 65 73 2c 20 61 6c 6c 20 6f 74 68 65 72 20 74 68 | or.shorter.matches,.all.other.th |
| 51380 | 69 6e 67 73 20 62 65 69 6e 67 20 65 71 75 61 6c 2e 22 0a 20 20 28 6c 61 62 65 6c 73 20 28 28 61 | ings.being.equal."...(labels.((a |
| 513a0 | 74 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 20 28 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | t-beginning-p.(pos)............. |
| 513c0 | 20 28 3d 20 70 6f 73 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 66 74 65 72 2d 70 72 | .(=.pos.0))............(after-pr |
| 513e0 | 65 66 69 78 2d 70 20 28 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 | efix-p.(pos)..............(and.( |
| 51400 | 3d 20 70 6f 73 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 | =.pos.1)...................(find |
| 51420 | 20 28 61 72 65 66 20 66 75 6c 6c 20 30 29 20 2a 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e | .(aref.full.0).*fuzzy-completion |
| 51440 | 2d 73 79 6d 62 6f 6c 2d 70 72 65 66 69 78 65 73 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -symbol-prefixes*)))............ |
| 51460 | 28 77 6f 72 64 2d 73 65 70 61 72 61 74 6f 72 2d 70 20 28 70 6f 73 29 0a 20 20 20 20 20 20 20 20 | (word-separator-p.(pos)......... |
| 51480 | 20 20 20 20 20 28 66 69 6e 64 20 28 61 72 65 66 20 66 75 6c 6c 20 70 6f 73 29 20 2a 66 75 7a 7a | .....(find.(aref.full.pos).*fuzz |
| 514a0 | 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 77 6f 72 64 2d 73 65 70 61 72 61 74 6f 72 73 2a 29 29 0a | y-completion-word-separators*)). |
| 514c0 | 20 20 20 20 20 20 20 20 20 20 20 28 61 66 74 65 72 2d 77 6f 72 64 2d 73 65 70 61 72 61 74 6f 72 | ...........(after-word-separator |
| 514e0 | 2d 70 20 28 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 20 28 61 72 65 | -p.(pos)..............(find.(are |
| 51500 | 66 20 66 75 6c 6c 20 28 31 2d 20 70 6f 73 29 29 20 2a 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 | f.full.(1-.pos)).*fuzzy-completi |
| 51520 | 6f 6e 2d 77 6f 72 64 2d 73 65 70 61 72 61 74 6f 72 73 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 | on-word-separators*))........... |
| 51540 | 20 28 61 74 2d 65 6e 64 2d 70 20 28 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d | .(at-end-p.(pos)..............(= |
| 51560 | 20 70 6f 73 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 66 75 6c 6c 29 29 29 29 0a 20 20 20 20 20 20 | .pos.(1-.(length.full))))....... |
| 51580 | 20 20 20 20 20 28 62 65 66 6f 72 65 2d 73 75 66 66 69 78 2d 70 20 28 70 6f 73 29 0a 20 20 20 20 | .....(before-suffix-p.(pos)..... |
| 515a0 | 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 3d 20 70 6f 73 20 28 2d 20 28 6c 65 6e 67 74 68 20 | .........(and.(=.pos.(-.(length. |
| 515c0 | 66 75 6c 6c 29 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e | full).2))...................(fin |
| 515e0 | 64 20 28 61 72 65 66 20 66 75 6c 6c 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 66 75 6c 6c 29 29 29 | d.(aref.full.(1-.(length.full))) |
| 51600 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 66 75 7a 7a 79 2d | .........................*fuzzy- |
| 51620 | 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 79 6d 62 6f 6c 2d 73 75 66 66 69 78 65 73 2a 29 29 29 0a 20 | completion-symbol-suffixes*))).. |
| 51640 | 20 20 20 20 20 20 20 20 20 20 28 73 63 6f 72 65 2d 6f 72 2d 70 65 72 63 65 6e 74 61 67 65 2d 6f | ..........(score-or-percentage-o |
| 51660 | 66 2d 70 72 65 76 69 6f 75 73 20 28 62 61 73 65 2d 73 63 6f 72 65 20 70 6f 73 20 63 68 75 6e 6b | f-previous.(base-score.pos.chunk |
| 51680 | 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 7a 65 72 6f 70 20 63 68 | -pos)..............(if.(zerop.ch |
| 516a0 | 75 6e 6b 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 61 73 65 2d 73 | unk-pos)..................base-s |
| 516c0 | 63 6f 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 78 20 62 61 73 65 2d | core..................(max.base- |
| 516e0 | 73 63 6f 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 28 | score.......................(+.( |
| 51700 | 2a 20 28 73 63 6f 72 65 2d 63 68 61 72 20 28 31 2d 20 70 6f 73 29 20 28 31 2d 20 63 68 75 6e 6b | *.(score-char.(1-.pos).(1-.chunk |
| 51720 | 2d 70 6f 73 29 29 20 30 2e 38 35 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -pos)).0.85).................... |
| 51740 | 20 20 20 20 20 20 28 65 78 70 74 20 31 2e 32 20 63 68 75 6e 6b 2d 70 6f 73 29 29 29 29 29 0a 20 | ......(expt.1.2.chunk-pos))))).. |
| 51760 | 20 20 20 20 20 20 20 20 20 20 28 73 63 6f 72 65 2d 63 68 61 72 20 28 70 6f 73 20 63 68 75 6e 6b | ..........(score-char.(pos.chunk |
| 51780 | 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 63 6f 72 65 2d 6f 72 2d 70 65 72 | -pos)..............(score-or-per |
| 517a0 | 63 65 6e 74 61 67 65 2d 6f 66 2d 70 72 65 76 69 6f 75 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | centage-of-previous............. |
| 517c0 | 20 20 28 63 6f 6e 64 20 28 28 61 74 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 20 70 6f 73 29 20 20 20 | ..(cond.((at-beginning-p.pos)... |
| 517e0 | 20 20 20 20 20 20 31 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 | ......10).....................(( |
| 51800 | 61 66 74 65 72 2d 70 72 65 66 69 78 2d 70 20 70 6f 73 29 20 20 20 20 20 20 20 20 20 31 30 29 0a | after-prefix-p.pos).........10). |
| 51820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 77 6f 72 64 2d 73 65 70 61 72 | ....................((word-separ |
| 51840 | 61 74 6f 72 2d 70 20 70 6f 73 29 20 20 20 20 20 20 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ator-p.pos).......1)............ |
| 51860 | 20 20 20 20 20 20 20 20 20 28 28 61 66 74 65 72 2d 77 6f 72 64 2d 73 65 70 61 72 61 74 6f 72 2d | .........((after-word-separator- |
| 51880 | 70 20 70 6f 73 29 20 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 | p.pos).8).....................(( |
| 518a0 | 61 74 2d 65 6e 64 2d 70 20 70 6f 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 29 0a 20 | at-end-p.pos)...............6).. |
| 518c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 62 65 66 6f 72 65 2d 73 75 66 66 | ...................((before-suff |
| 518e0 | 69 78 2d 70 20 70 6f 73 29 20 20 20 20 20 20 20 20 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ix-p.pos)........6)............. |
| 51900 | 20 20 20 20 20 20 20 20 28 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(t...................... |
| 51920 | 20 20 20 20 20 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 20 63 68 75 6e | ......1))...............pos.chun |
| 51940 | 6b 2d 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 63 6f 72 65 2d 63 68 75 6e 6b 20 | k-pos))............(score-chunk. |
| 51960 | 28 63 68 75 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 | (chunk)..............(loop.for.c |
| 51980 | 68 75 6e 6b 2d 70 6f 73 20 62 65 6c 6f 77 20 28 6c 65 6e 67 74 68 20 28 73 65 63 6f 6e 64 20 63 | hunk-pos.below.(length.(second.c |
| 519a0 | 68 75 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 6f | hunk))....................for.po |
| 519c0 | 73 20 66 72 6f 6d 20 28 66 69 72 73 74 20 63 68 75 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 | s.from.(first.chunk)............ |
| 519e0 | 20 20 20 20 20 20 20 20 73 75 6d 6d 69 6e 67 20 28 73 63 6f 72 65 2d 63 68 61 72 20 70 6f 73 20 | ........summing.(score-char.pos. |
| 51a00 | 63 68 75 6e 6b 2d 70 6f 73 29 29 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 63 68 75 6e 6b 2d | chunk-pos)))).....(let*.((chunk- |
| 51a20 | 73 63 6f 72 65 73 20 28 6d 61 70 63 61 72 20 23 27 73 63 6f 72 65 2d 63 68 75 6e 6b 20 63 6f 6d | scores.(mapcar.#'score-chunk.com |
| 51a40 | 70 6c 65 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 2d 73 63 6f | pletion))............(length-sco |
| 51a60 | 72 65 20 28 2f 20 31 30 2e 30 20 28 31 2b 20 28 2d 20 28 6c 65 6e 67 74 68 20 66 75 6c 6c 29 20 | re.(/.10.0.(1+.(-.(length.full). |
| 51a80 | 28 6c 65 6e 67 74 68 20 73 68 6f 72 74 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 76 61 6c 75 65 | (length.short)))))).......(value |
| 51aa0 | 73 0a 20 20 20 20 20 20 20 28 2b 20 28 72 65 64 75 63 65 20 23 27 2b 20 63 68 75 6e 6b 2d 73 63 | s........(+.(reduce.#'+.chunk-sc |
| 51ac0 | 6f 72 65 73 29 20 6c 65 6e 67 74 68 2d 73 63 6f 72 65 29 0a 20 20 20 20 20 20 20 28 6c 69 73 74 | ores).length-score)........(list |
| 51ae0 | 20 28 6d 61 70 63 61 72 20 23 27 6c 69 73 74 20 63 68 75 6e 6b 2d 73 63 6f 72 65 73 20 63 6f 6d | .(mapcar.#'list.chunk-scores.com |
| 51b00 | 70 6c 65 74 69 6f 6e 29 20 6c 65 6e 67 74 68 2d 73 63 6f 72 65 29 29 29 29 29 0a 0a 28 64 65 66 | pletion).length-score)))))..(def |
| 51b20 | 75 6e 20 68 69 67 68 6c 69 67 68 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 28 63 6f 6d 70 6c 65 74 | un.highlight-completion.(complet |
| 51b40 | 69 6f 6e 20 66 75 6c 6c 29 0a 20 20 22 47 69 76 65 6e 20 61 20 63 68 75 6e 6b 20 64 65 66 69 6e | ion.full)..."Given.a.chunk.defin |
| 51b60 | 69 74 69 6f 6e 20 43 4f 4d 50 4c 45 54 49 4f 4e 20 61 6e 64 20 74 68 65 20 73 74 72 69 6e 67 20 | ition.COMPLETION.and.the.string. |
| 51b80 | 46 55 4c 4c 2c 0a 48 49 47 48 4c 49 47 48 54 2d 43 4f 4d 50 4c 45 54 49 4f 4e 20 77 69 6c 6c 20 | FULL,.HIGHLIGHT-COMPLETION.will. |
| 51ba0 | 63 72 65 61 74 65 20 61 20 73 74 72 69 6e 67 20 74 68 61 74 20 64 65 6d 6f 6e 73 74 72 61 74 65 | create.a.string.that.demonstrate |
| 51bc0 | 73 20 77 68 65 72 65 0a 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6d 61 74 63 68 65 64 20 69 | s.where.the.completion.matched.i |
| 51be0 | 6e 20 74 68 65 20 73 74 72 69 6e 67 2e 20 20 4d 61 74 63 68 65 73 20 77 69 6c 6c 20 62 65 0a 63 | n.the.string...Matches.will.be.c |
| 51c00 | 61 70 69 74 61 6c 69 7a 65 64 2c 20 77 68 69 6c 65 20 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 | apitalized,.while.the.rest.of.th |
| 51c20 | 65 20 73 74 72 69 6e 67 20 77 69 6c 6c 20 62 65 20 6c 6f 77 65 72 2d 63 61 73 65 2e 22 0a 20 20 | e.string.will.be.lower-case."... |
| 51c40 | 28 6c 65 74 20 28 28 68 69 67 68 6c 69 74 20 28 6e 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 | (let.((highlit.(nstring-downcase |
| 51c60 | 20 28 63 6f 70 79 2d 73 65 71 20 66 75 6c 6c 29 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 | .(copy-seq.full)))).....(dolist. |
| 51c80 | 28 63 68 75 6e 6b 20 63 6f 6d 70 6c 65 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 68 | (chunk.completion).......(setf.h |
| 51ca0 | 69 67 68 6c 69 74 20 28 6e 73 74 72 69 6e 67 2d 75 70 63 61 73 65 20 68 69 67 68 6c 69 74 0a 20 | ighlit.(nstring-upcase.highlit.. |
| 51cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 51ce0 | 20 20 20 3a 73 74 61 72 74 20 28 66 69 72 73 74 20 63 68 75 6e 6b 29 0a 20 20 20 20 20 20 20 20 | ...:start.(first.chunk)......... |
| 51d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6e 64 | ............................:end |
| 51d20 | 20 28 2b 20 28 66 69 72 73 74 20 63 68 75 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(+.(first.chunk)............... |
| 51d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ..............................(l |
| 51d60 | 65 6e 67 74 68 20 28 73 65 63 6f 6e 64 20 63 68 75 6e 6b 29 29 29 29 29 29 0a 20 20 20 20 68 69 | ength.(second.chunk)))))).....hi |
| 51d80 | 67 68 6c 69 74 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 6d 61 74 2d 66 75 7a 7a 79 2d 63 6f 6d | ghlit))..(defun.format-fuzzy-com |
| 51da0 | 70 6c 65 74 69 6f 6e 2d 73 65 74 20 28 77 69 6e 6e 65 72 73 29 0a 20 20 22 47 69 76 65 6e 20 61 | pletion-set.(winners)..."Given.a |
| 51dc0 | 20 6c 69 73 74 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f 62 6a 65 63 74 73 20 73 75 63 68 | .list.of.completion.objects.such |
| 51de0 | 20 61 73 20 6f 6e 20 72 65 74 75 72 6e 65 64 20 62 79 0a 46 55 5a 5a 59 2d 43 4f 4d 50 4c 45 54 | .as.on.returned.by.FUZZY-COMPLET |
| 51e00 | 49 4f 4e 2d 53 45 54 2c 20 66 6f 72 6d 61 74 20 74 68 65 20 6c 69 73 74 20 69 6e 74 6f 20 75 73 | ION-SET,.format.the.list.into.us |
| 51e20 | 65 72 2d 72 65 61 64 61 62 6c 65 20 6f 75 74 70 75 74 0a 66 6f 72 20 69 6e 74 65 72 61 63 74 69 | er-readable.output.for.interacti |
| 51e40 | 76 65 20 64 65 62 75 67 67 69 6e 67 20 70 75 72 70 6f 73 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 | ve.debugging.purpose."...(let.(( |
| 51e60 | 6d 61 78 2d 6c 65 6e 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 77 69 6e 6e 65 | max-len..........(loop.for.winne |
| 51e80 | 72 20 69 6e 20 77 69 6e 6e 65 72 73 20 6d 61 78 69 6d 69 7a 69 6e 67 20 28 6c 65 6e 67 74 68 20 | r.in.winners.maximizing.(length. |
| 51ea0 | 28 66 69 72 73 74 20 77 69 6e 6e 65 72 29 29 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 | (first.winner))))).....(loop.for |
| 51ec0 | 20 28 73 79 6d 20 73 63 6f 72 65 20 72 65 73 75 6c 74 29 20 69 6e 20 77 69 6e 6e 65 72 73 20 64 | .(sym.score.result).in.winners.d |
| 51ee0 | 6f 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 7e 56 41 20 20 73 63 | o...........(format.t."~&~VA..sc |
| 51f00 | 6f 72 65 20 7e 38 2c 32 46 20 20 7e 41 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ore.~8,2F..~A".................. |
| 51f20 | 20 6d 61 78 2d 6c 65 6e 20 28 68 69 67 68 6c 69 67 68 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 72 | .max-len.(highlight-completion.r |
| 51f40 | 65 73 75 6c 74 20 73 79 6d 29 20 73 63 6f 72 65 20 72 65 73 75 6c 74 29 29 29 29 0a 0a 28 70 72 | esult.sym).score.result))))..(pr |
| 51f60 | 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 66 75 7a 7a 79 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 | ovide.:swank-fuzzy)............. |
| 51f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 51fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 51fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 51fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 52000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 63 6c 2d 69 6e 64 65 | slime-2.31/contrib/slime-cl-inde |
| 52020 | 6e 74 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | nt.el........................... |
| 52040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 52060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 52080 | 30 32 32 33 31 32 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 36 30 00 20 30 00 00 00 | 0223123.00000000000.016160..0... |
| 520a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 520c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 520e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 52100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 52120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 52140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 52160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 52180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 521a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 521c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 521e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 52200 | 3b 3b 3b 20 73 6c 69 6d 65 2d 63 6c 2d 69 6e 64 65 6e 74 2e 65 6c 20 2d 2d 2d 20 65 6e 68 61 6e | ;;;.slime-cl-indent.el.---.enhan |
| 52220 | 63 65 64 20 6c 69 73 70 2d 69 6e 64 65 6e 74 20 6d 6f 64 65 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 | ced.lisp-indent.mode..;;.Copyrig |
| 52240 | 68 74 20 28 43 29 20 31 39 38 37 2c 20 32 30 30 30 2d 32 30 31 31 20 46 72 65 65 20 53 6f 66 74 | ht.(C).1987,.2000-2011.Free.Soft |
| 52260 | 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 0a 0a 3b 3b 20 41 75 74 68 6f 72 | ware.Foundation,.Inc...;;.Author |
| 52280 | 3a 20 52 69 63 68 61 72 64 20 4d 6c 79 6e 61 72 69 6b 20 3c 6d 6c 79 40 65 64 64 69 65 2e 6d 69 | :.Richard.Mlynarik.<mly@eddie.mi |
| 522a0 | 74 2e 65 64 75 3e 0a 3b 3b 20 43 72 65 61 74 65 64 3a 20 4a 75 6c 79 20 31 39 38 37 0a 3b 3b 20 | t.edu>.;;.Created:.July.1987.;;. |
| 522c0 | 4d 61 69 6e 74 61 69 6e 65 72 3a 20 46 53 46 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 6c 69 73 | Maintainer:.FSF.;;.Keywords:.lis |
| 522e0 | 70 2c 20 74 6f 6f 6c 73 0a 3b 3b 20 50 61 63 6b 61 67 65 3a 20 65 6d 61 63 73 0a 0a 3b 3b 20 54 | p,.tools.;;.Package:.emacs..;;.T |
| 52300 | 68 69 73 20 66 69 6c 65 20 69 73 20 66 6f 72 6b 65 64 20 66 72 6f 6d 20 63 6c 2d 69 6e 64 65 6e | his.file.is.forked.from.cl-inden |
| 52320 | 74 2e 65 6c 2c 20 77 68 69 63 68 20 69 73 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 | t.el,.which.is.part.of.GNU.Emacs |
| 52340 | 2e 0a 0a 3b 3b 20 47 4e 55 20 45 6d 61 63 73 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 | ...;;.GNU.Emacs.is.free.software |
| 52360 | 3a 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 | :.you.can.redistribute.it.and/or |
| 52380 | 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 | .modify.;;.it.under.the.terms.of |
| 523a0 | 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 | .the.GNU.General.Public.License. |
| 523c0 | 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 | as.published.by.;;.the.Free.Soft |
| 523e0 | 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 | ware.Foundation,.either.version. |
| 52400 | 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 | 3.of.the.License,.or.;;.(at.your |
| 52420 | 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 | .option).any.later.version...;;. |
| 52440 | 47 4e 55 20 45 6d 61 63 73 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 | GNU.Emacs.is.distributed.in.the. |
| 52460 | 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 | hope.that.it.will.be.useful,.;;. |
| 52480 | 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 | but.WITHOUT.ANY.WARRANTY;.withou |
| 524a0 | 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b | t.even.the.implied.warranty.of.; |
| 524c0 | 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 | ;.MERCHANTABILITY.or.FITNESS.FOR |
| 524e0 | 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a | .A.PARTICULAR.PURPOSE...See.the. |
| 52500 | 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f | ;;.GNU.General.Public.License.fo |
| 52520 | 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 | r.more.details...;;.You.should.h |
| 52540 | 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 | ave.received.a.copy.of.the.GNU.G |
| 52560 | 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 | eneral.Public.License.;;.along.w |
| 52580 | 69 74 68 20 47 4e 55 20 45 6d 61 63 73 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 | ith.GNU.Emacs...If.not,.see.<htt |
| 525a0 | 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b | p://www.gnu.org/licenses/>...;;; |
| 525c0 | 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 54 68 69 73 20 70 61 63 6b 61 67 65 20 73 75 | .Commentary:..;;.This.package.su |
| 525e0 | 70 70 6c 69 65 73 20 61 20 73 69 6e 67 6c 65 20 65 6e 74 72 79 20 70 6f 69 6e 74 2c 20 63 6f 6d | pplies.a.single.entry.point,.com |
| 52600 | 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 2c 0a 3b 3b 20 77 68 69 | mon-lisp-indent-function,.;;.whi |
| 52620 | 63 68 20 70 65 72 66 6f 72 6d 73 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 70 | ch.performs.indentation.in.the.p |
| 52640 | 72 65 66 65 72 72 65 64 20 73 74 79 6c 65 20 66 6f 72 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 63 | referred.style.for.Common.Lisp.c |
| 52660 | 6f 64 65 2e 0a 3b 3b 20 54 6f 20 65 6e 61 62 6c 65 20 69 74 3a 0a 3b 3b 0a 3b 3b 20 28 73 65 74 | ode..;;.To.enable.it:.;;.;;.(set |
| 52680 | 71 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 27 63 6f 6d 6d 6f 6e 2d 6c | q.lisp-indent-function.'common-l |
| 526a0 | 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 3b 3b 0a 3b 3b 20 54 68 69 73 20 | isp-indent-function).;;.;;.This. |
| 526c0 | 66 69 6c 65 20 69 73 20 73 75 62 73 74 61 6e 74 69 61 6c 6c 79 20 70 61 74 63 68 65 64 20 66 72 | file.is.substantially.patched.fr |
| 526e0 | 6f 6d 20 6f 72 69 67 69 6e 61 6c 20 63 6c 2d 69 6e 64 65 6e 74 2e 65 6c 2c 0a 3b 3b 20 77 68 69 | om.original.cl-indent.el,.;;.whi |
| 52700 | 63 68 20 69 73 20 69 6e 20 45 6d 61 63 73 20 70 72 6f 70 65 72 2e 20 49 74 20 64 6f 65 73 20 6e | ch.is.in.Emacs.proper..It.does.n |
| 52720 | 6f 74 20 72 65 71 75 69 72 65 20 53 4c 49 4d 45 2c 20 62 75 74 20 69 73 20 69 6e 73 74 65 61 64 | ot.require.SLIME,.but.is.instead |
| 52740 | 0a 3b 3b 20 72 65 71 75 69 72 65 64 20 62 79 20 6f 6e 65 20 6f 66 20 69 74 27 73 20 63 6f 6e 74 | .;;.required.by.one.of.it's.cont |
| 52760 | 72 69 62 73 2c 20 60 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 27 2e 0a 3b 3b 0a 3b 3b | ribs,.`slime-indentation'..;;.;; |
| 52780 | 20 42 65 66 6f 72 65 20 6d 61 6b 69 6e 67 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 73 20 74 6f 20 | .Before.making.modifications.to. |
| 527a0 | 74 68 69 73 20 66 69 6c 65 2c 20 63 6f 6e 73 69 64 65 72 20 61 64 64 69 6e 67 20 74 68 65 6d 20 | this.file,.consider.adding.them. |
| 527c0 | 74 6f 0a 3b 3b 20 45 6d 61 63 73 27 73 20 6f 77 6e 20 60 63 6c 2d 69 6e 64 65 6e 74 27 20 61 6e | to.;;.Emacs's.own.`cl-indent'.an |
| 527e0 | 64 20 72 65 66 61 63 74 6f 72 69 6e 67 20 74 68 69 73 20 66 69 6c 65 20 74 6f 20 62 65 20 61 6e | d.refactoring.this.file.to.be.an |
| 52800 | 0a 3b 3b 20 65 78 74 65 6e 73 69 6f 6e 20 6f 66 20 45 6d 61 63 73 27 73 2e 0a 0a 3b 3b 3b 20 43 | .;;.extension.of.Emacs's...;;;.C |
| 52820 | 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 20 3b 20 6f 6e 6c 79 20 66 6f | ode:..(require.'slime).;.only.fo |
| 52840 | 72 20 69 74 73 20 63 6c 2d 6c 69 62 20 6c 6f 61 64 69 6e 67 20 73 6d 61 72 74 6e 65 73 73 0a 28 | r.its.cl-lib.loading.smartness.( |
| 52860 | 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 67 72 6f 75 70 20 6c 69 73 70 | require.'cl-lib)..(defgroup.lisp |
| 52880 | 2d 69 6e 64 65 6e 74 20 6e 69 6c 0a 20 20 22 49 6e 64 65 6e 74 61 74 69 6f 6e 20 69 6e 20 4c 69 | -indent.nil..."Indentation.in.Li |
| 528a0 | 73 70 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d | sp."...:group.'lisp)..(defcustom |
| 528c0 | 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6d 61 78 69 6d 75 6d 2d 62 61 63 6b 74 72 61 63 6b 69 6e | .lisp-indent-maximum-backtrackin |
| 528e0 | 67 20 36 0a 20 20 22 4d 61 78 69 6d 75 6d 20 64 65 70 74 68 20 74 6f 20 62 61 63 6b 74 72 61 63 | g.6..."Maximum.depth.to.backtrac |
| 52900 | 6b 20 6f 75 74 20 66 72 6f 6d 20 61 20 73 75 62 6c 69 73 74 20 66 6f 72 20 73 74 72 75 63 74 75 | k.out.from.a.sublist.for.structu |
| 52920 | 72 65 64 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2e 0a 49 66 20 74 68 69 73 20 76 61 72 69 61 62 6c | red.indentation..If.this.variabl |
| 52940 | 65 20 69 73 20 30 2c 20 6e 6f 20 62 61 63 6b 74 72 61 63 6b 69 6e 67 20 77 69 6c 6c 20 6f 63 63 | e.is.0,.no.backtracking.will.occ |
| 52960 | 75 72 20 61 6e 64 20 66 6f 72 6d 73 20 73 75 63 68 20 61 73 20 60 66 6c 65 74 27 0a 6d 61 79 20 | ur.and.forms.such.as.`flet'.may. |
| 52980 | 6e 6f 74 20 62 65 20 63 6f 72 72 65 63 74 6c 79 20 69 6e 64 65 6e 74 65 64 20 69 66 20 74 68 69 | not.be.correctly.indented.if.thi |
| 529a0 | 73 20 76 61 6c 75 65 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 34 2e 22 0a 20 20 3a 74 79 70 65 | s.value.is.less.than.4."...:type |
| 529c0 | 20 27 69 6e 74 65 67 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 | .'integer...:group.'lisp-indent) |
| 529e0 | 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6c 69 73 70 2d 74 61 67 2d 69 6e 64 65 6e 74 61 74 69 6f | ..(defcustom.lisp-tag-indentatio |
| 52a00 | 6e 20 31 0a 20 20 22 49 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 61 67 73 20 72 65 6c 61 74 | n.1..."Indentation.of.tags.relat |
| 52a20 | 69 76 65 20 74 6f 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6c 69 73 74 2e 0a 54 68 69 73 20 76 61 72 | ive.to.containing.list..This.var |
| 52a40 | 69 61 62 6c 65 20 69 73 20 75 73 65 64 20 62 79 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 60 6c | iable.is.used.by.the.function.`l |
| 52a60 | 69 73 70 2d 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64 79 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 | isp-indent-tagbody'."...:type.'i |
| 52a80 | 6e 74 65 67 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a 28 | nteger...:group.'lisp-indent)..( |
| 52aa0 | 64 65 66 63 75 73 74 6f 6d 20 6c 69 73 70 2d 74 61 67 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 | defcustom.lisp-tag-body-indentat |
| 52ac0 | 69 6f 6e 20 33 0a 20 20 22 49 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 6e 6f 6e 2d 74 61 67 67 | ion.3..."Indentation.of.non-tagg |
| 52ae0 | 65 64 20 6c 69 6e 65 73 20 72 65 6c 61 74 69 76 65 20 74 6f 20 63 6f 6e 74 61 69 6e 69 6e 67 20 | ed.lines.relative.to.containing. |
| 52b00 | 6c 69 73 74 2e 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 75 73 65 64 20 62 79 20 74 | list..This.variable.is.used.by.t |
| 52b20 | 68 65 20 66 75 6e 63 74 69 6f 6e 20 60 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64 79 | he.function.`lisp-indent-tagbody |
| 52b40 | 27 20 74 6f 20 69 6e 64 65 6e 74 20 6e 6f 72 6d 61 6c 0a 6c 69 6e 65 73 20 28 6c 69 6e 65 73 20 | '.to.indent.normal.lines.(lines. |
| 52b60 | 77 69 74 68 6f 75 74 20 74 61 67 73 29 2e 0a 54 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 69 | without.tags)..The.indentation.i |
| 52b80 | 73 20 72 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 | s.relative.to.the.indentation.of |
| 52ba0 | 20 74 68 65 20 70 61 72 65 6e 74 68 65 73 69 73 20 65 6e 63 6c 6f 73 69 6e 67 0a 74 68 65 20 73 | .the.parenthesis.enclosing.the.s |
| 52bc0 | 70 65 63 69 61 6c 20 66 6f 72 6d 2e 20 20 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 74 2c | pecial.form...If.the.value.is.t, |
| 52be0 | 20 74 68 65 20 62 6f 64 79 20 6f 66 20 74 61 67 73 20 77 69 6c 6c 20 62 65 20 69 6e 64 65 6e 74 | .the.body.of.tags.will.be.indent |
| 52c00 | 65 64 0a 61 73 20 61 20 62 6c 6f 63 6b 20 61 74 20 74 68 65 20 73 61 6d 65 20 69 6e 64 65 6e 74 | ed.as.a.block.at.the.same.indent |
| 52c20 | 61 74 69 6f 6e 20 61 73 20 74 68 65 20 66 69 72 73 74 20 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 | ation.as.the.first.s-expression. |
| 52c40 | 66 6f 6c 6c 6f 77 69 6e 67 0a 74 68 65 20 74 61 67 2e 20 20 49 6e 20 74 68 69 73 20 63 61 73 65 | following.the.tag...In.this.case |
| 52c60 | 2c 20 61 6e 79 20 66 6f 72 6d 73 20 62 65 66 6f 72 65 20 74 68 65 20 66 69 72 73 74 20 74 61 67 | ,.any.forms.before.the.first.tag |
| 52c80 | 20 61 72 65 20 69 6e 64 65 6e 74 65 64 0a 62 79 20 60 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 | .are.indented.by.`lisp-body-inde |
| 52ca0 | 6e 74 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 0a 20 20 3a 67 72 6f 75 70 20 | nt'."...:type.'integer...:group. |
| 52cc0 | 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6c 69 73 70 2d 62 | 'lisp-indent)..(defcustom.lisp-b |
| 52ce0 | 61 63 6b 71 75 6f 74 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 0a 20 20 22 57 68 65 74 68 65 | ackquote-indentation.t..."Whethe |
| 52d00 | 72 20 6f 72 20 6e 6f 74 20 74 6f 20 69 6e 64 65 6e 74 20 62 61 63 6b 71 75 6f 74 65 64 20 6c 69 | r.or.not.to.indent.backquoted.li |
| 52d20 | 73 74 73 20 61 73 20 63 6f 64 65 2e 0a 49 66 20 6e 69 6c 2c 20 69 6e 64 65 6e 74 20 62 61 63 6b | sts.as.code..If.nil,.indent.back |
| 52d40 | 71 75 6f 74 65 64 20 6c 69 73 74 73 20 61 73 20 64 61 74 61 2c 20 69 2e 65 2e 2c 20 6c 69 6b 65 | quoted.lists.as.data,.i.e.,.like |
| 52d60 | 20 71 75 6f 74 65 64 20 6c 69 73 74 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e | .quoted.lists."...:type.'boolean |
| 52d80 | 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a 28 64 65 66 63 75 73 | ...:group.'lisp-indent)..(defcus |
| 52da0 | 74 6f 6d 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 20 | tom.lisp-loop-indent-subclauses. |
| 52dc0 | 74 0a 20 20 22 57 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 6f 20 69 6e 64 65 6e 74 20 6c 6f | t..."Whether.or.not.to.indent.lo |
| 52de0 | 6f 70 20 73 75 62 63 6c 61 75 73 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e | op.subclauses."...:type.'boolean |
| 52e00 | 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a 28 64 65 66 63 75 73 | ...:group.'lisp-indent)..(defcus |
| 52e20 | 74 6f 6d 20 6c 69 73 70 2d 73 69 6d 70 6c 65 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 61 74 69 6f 6e | tom.lisp-simple-loop-indentation |
| 52e40 | 20 32 0a 20 20 22 49 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 66 6f 72 6d 73 20 69 6e 20 73 69 | .2..."Indentation.of.forms.in.si |
| 52e60 | 6d 70 6c 65 20 6c 6f 6f 70 20 66 6f 72 6d 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 | mple.loop.forms."...:type.'integ |
| 52e80 | 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a 28 64 65 66 63 | er...:group.'lisp-indent)..(defc |
| 52ea0 | 75 73 74 6f 6d 20 6c 69 73 70 2d 6c 6f 6f 70 2d 63 6c 61 75 73 65 73 2d 69 6e 64 65 6e 74 61 74 | ustom.lisp-loop-clauses-indentat |
| 52ec0 | 69 6f 6e 20 32 0a 20 20 22 49 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 6c 6f 6f 70 20 63 6c 61 | ion.2..."Indentation.of.loop.cla |
| 52ee0 | 75 73 65 73 20 69 66 20 60 6c 6f 6f 70 27 20 69 73 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 66 6f | uses.if.`loop'.is.immediately.fo |
| 52f00 | 6c 6c 6f 77 65 64 20 62 79 20 61 20 6e 65 77 6c 69 6e 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 | llowed.by.a.newline."...:type.'i |
| 52f20 | 6e 74 65 67 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a 28 | nteger...:group.'lisp-indent)..( |
| 52f40 | 64 65 66 63 75 73 74 6f 6d 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 62 6f 64 79 2d | defcustom.lisp-loop-indent-body- |
| 52f60 | 66 6f 72 6d 73 2d 72 65 6c 61 74 69 76 65 2d 74 6f 2d 6c 6f 6f 70 2d 73 74 61 72 74 20 6e 69 6c | forms-relative-to-loop-start.nil |
| 52f80 | 0a 20 20 22 57 68 65 6e 20 74 72 75 65 2c 20 69 6e 64 65 6e 74 20 6c 6f 6f 70 20 62 6f 64 79 20 | ..."When.true,.indent.loop.body. |
| 52fa0 | 63 6c 61 75 73 65 73 20 72 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 6f 70 65 6e 20 70 61 72 | clauses.relative.to.the.open.par |
| 52fc0 | 65 6e 20 6f 66 20 74 68 65 20 6c 6f 6f 70 0a 66 6f 72 6d 2c 20 69 6e 73 74 65 61 64 20 6f 66 20 | en.of.the.loop.form,.instead.of. |
| 52fe0 | 74 68 65 20 6b 65 79 77 6f 72 64 20 70 6f 73 69 74 69 6f 6e 2e 22 0a 20 20 3a 74 79 70 65 20 27 | the.keyword.position."...:type.' |
| 53000 | 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a | boolean...:group.'lisp-indent).. |
| 53020 | 28 64 65 66 63 75 73 74 6f 6d 20 6c 69 73 70 2d 6c 6f 6f 70 2d 62 6f 64 79 2d 66 6f 72 6d 73 2d | (defcustom.lisp-loop-body-forms- |
| 53040 | 69 6e 64 65 6e 74 61 74 69 6f 6e 20 33 0a 20 20 22 49 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 | indentation.3..."Indentation.of. |
| 53060 | 6c 6f 6f 70 20 62 6f 64 79 20 63 6c 61 75 73 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 | loop.body.clauses."...:type.'int |
| 53080 | 65 67 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a 28 64 65 | eger...:group.'lisp-indent)..(de |
| 530a0 | 66 63 75 73 74 6f 6d 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 66 6f 72 6d 73 2d 6c | fcustom.lisp-loop-indent-forms-l |
| 530c0 | 69 6b 65 2d 6b 65 79 77 6f 72 64 73 20 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 6f 72 20 6e | ike-keywords.nil..."Whether.or.n |
| 530e0 | 6f 74 20 74 6f 20 69 6e 64 65 6e 74 20 6c 6f 6f 70 20 73 75 62 66 6f 72 6d 73 20 6a 75 73 74 20 | ot.to.indent.loop.subforms.just. |
| 53100 | 6c 69 6b 65 0a 6c 6f 6f 70 20 6b 65 79 77 6f 72 64 73 2e 20 4f 6e 6c 79 20 6d 61 74 74 65 72 73 | like.loop.keywords..Only.matters |
| 53120 | 20 77 68 65 6e 20 60 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 | .when.`lisp-loop-indent-subclaus |
| 53140 | 65 73 27 0a 69 73 20 6e 69 6c 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 | es'.is.nil."...:type.'boolean... |
| 53160 | 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d | :group.'lisp-indent)..(defcustom |
| 53180 | 20 6c 69 73 70 2d 61 6c 69 67 6e 2d 6b 65 79 77 6f 72 64 73 2d 69 6e 2d 63 61 6c 6c 73 20 74 0a | .lisp-align-keywords-in-calls.t. |
| 531a0 | 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 61 6c 69 67 6e 20 6b 65 79 77 6f 72 64 20 61 72 67 75 | .."Whether.to.align.keyword.argu |
| 531c0 | 6d 65 6e 74 73 20 76 65 72 74 69 63 61 6c 6c 79 20 6f 72 20 6e 6f 74 2e 0a 49 66 20 74 20 28 74 | ments.vertically.or.not..If.t.(t |
| 531e0 | 68 65 20 64 65 66 61 75 6c 74 29 2c 20 6b 65 79 77 6f 72 64 73 20 69 6e 20 63 6f 6e 74 65 78 74 | he.default),.keywords.in.context |
| 53200 | 73 20 77 68 65 72 65 20 6e 6f 20 6f 74 68 65 72 0a 69 6e 64 65 6e 74 61 74 69 6f 6e 20 72 75 6c | s.where.no.other.indentation.rul |
| 53220 | 65 20 74 61 6b 65 73 20 70 72 65 63 65 64 65 6e 63 65 20 61 72 65 20 61 6c 69 67 6e 65 64 20 6c | e.takes.precedence.are.aligned.l |
| 53240 | 69 6b 65 20 74 68 69 73 3a 0a 0a 5c 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 66 6f 6f 20 | ike.this:..\(make-instance.'foo. |
| 53260 | 3a 62 61 72 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 71 75 75 78 | :bar.t.....................:quux |
| 53280 | 20 34 32 29 0a 0a 49 66 20 6e 69 6c 2c 20 74 68 65 79 20 61 72 65 20 69 6e 64 65 6e 74 65 64 20 | .42)..If.nil,.they.are.indented. |
| 532a0 | 6c 69 6b 65 20 61 6e 79 20 6f 74 68 65 72 20 66 75 6e 63 74 69 6f 6e 0a 63 61 6c 6c 20 61 72 67 | like.any.other.function.call.arg |
| 532c0 | 75 6d 65 6e 74 73 3a 0a 0a 5c 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 66 6f 6f 20 3a 62 | uments:..\(make-instance.'foo.:b |
| 532e0 | 61 72 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 71 75 75 78 20 34 32 29 22 0a 20 | ar.t................:quux.42)".. |
| 53300 | 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 | .:type.'boolean...:group.'lisp-i |
| 53320 | 6e 64 65 6e 74 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c | ndent)..(defcustom.lisp-lambda-l |
| 53340 | 69 73 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 | ist-indentation.t..."Whether.to. |
| 53360 | 69 6e 64 65 6e 74 20 6c 61 6d 62 64 61 2d 6c 69 73 74 73 20 73 70 65 63 69 61 6c 6c 79 2e 20 44 | indent.lambda-lists.specially..D |
| 53380 | 65 66 61 75 6c 74 73 20 74 6f 20 74 2e 20 53 65 74 74 69 6e 67 20 74 68 69 73 20 74 6f 0a 6e 69 | efaults.to.t..Setting.this.to.ni |
| 533a0 | 6c 20 6d 61 6b 65 73 20 60 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 | l.makes.`lisp-lambda-list-keywor |
| 533c0 | 64 2d 61 6c 69 67 6e 6d 65 6e 74 27 2c 0a 60 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d | d-alignment',.`lisp-lambda-list- |
| 533e0 | 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 27 2c 20 61 6e | keyword-parameter-alignment',.an |
| 53400 | 64 0a 60 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 | d.`lisp-lambda-list-keyword-para |
| 53420 | 6d 65 74 65 72 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 27 20 6d 65 61 6e 69 6e 67 6c 65 73 73 2c 20 | meter-indentation'.meaningless,. |
| 53440 | 63 61 75 73 69 6e 67 0a 6c 61 6d 62 64 61 2d 6c 69 73 74 73 20 74 6f 20 62 65 20 69 6e 64 65 6e | causing.lambda-lists.to.be.inden |
| 53460 | 74 65 64 20 61 73 20 69 66 20 74 68 65 79 20 77 65 72 65 20 64 61 74 61 3a 0a 0a 5c 28 64 65 66 | ted.as.if.they.were.data:..\(def |
| 53480 | 75 6e 20 65 78 61 6d 70 6c 65 20 28 61 20 62 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 31 20 6f 32 0a | un.example.(a.b.&optional.o1.o2. |
| 534a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 33 20 6f 34 0a 20 20 20 20 20 20 20 20 20 20 | ................o3.o4........... |
| 534c0 | 20 20 20 20 20 20 26 72 65 73 74 20 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b | ......&rest.r.................&k |
| 534e0 | 65 79 20 6b 31 20 6b 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 33 20 6b 34 29 0a | ey.k1.k2.................k3.k4). |
| 53500 | 20 20 23 7c 2e 2e 2e 7c 23 29 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a | ..#|...|#)"...:type.'boolean...: |
| 53520 | 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 | group.'lisp-indent)..(defcustom. |
| 53540 | 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 | lisp-lambda-list-keyword-alignme |
| 53560 | 6e 74 20 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 76 65 72 74 69 63 61 6c 6c 79 20 | nt.nil..."Whether.to.vertically. |
| 53580 | 61 6c 69 67 6e 20 6c 61 6d 62 64 61 2d 6c 69 73 74 20 6b 65 79 77 6f 72 64 73 20 74 6f 67 65 74 | align.lambda-list.keywords.toget |
| 535a0 | 68 65 72 2e 0a 49 66 20 6e 69 6c 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 2c 20 6b 65 79 77 6f | her..If.nil.(the.default),.keywo |
| 535c0 | 72 64 65 64 20 6c 61 6d 62 64 61 2d 6c 69 73 74 20 70 61 72 74 73 20 61 72 65 20 61 6c 69 67 6e | rded.lambda-list.parts.are.align |
| 535e0 | 65 64 0a 77 69 74 68 20 74 68 65 20 69 6e 69 74 69 61 6c 20 6d 61 6e 64 61 74 6f 72 79 20 61 72 | ed.with.the.initial.mandatory.ar |
| 53600 | 67 75 6d 65 6e 74 73 2c 20 6c 69 6b 65 20 74 68 69 73 3a 0a 0a 5c 28 64 65 66 75 6e 20 66 6f 6f | guments,.like.this:..\(defun.foo |
| 53620 | 20 28 61 72 67 31 20 61 72 67 32 20 26 72 65 73 74 20 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 | .(arg1.arg2.&rest.rest.......... |
| 53640 | 20 20 20 26 6b 65 79 20 6b 65 79 31 20 6b 65 79 32 29 0a 20 20 23 7c 2e 2e 2e 7c 23 29 0a 0a 49 | ...&key.key1.key2)...#|...|#)..I |
| 53660 | 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 6c 69 67 6e 6d 65 6e 74 20 69 73 20 64 6f 6e 65 20 77 69 74 | f.non-nil,.alignment.is.done.wit |
| 53680 | 68 20 74 68 65 20 66 69 72 73 74 20 6b 65 79 77 6f 72 64 0a 5c 28 6f 72 20 66 61 6c 6c 73 20 62 | h.the.first.keyword.\(or.falls.b |
| 536a0 | 61 63 6b 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 63 61 73 65 29 2c 20 61 73 20 69 6e | ack.to.the.previous.case),.as.in |
| 536c0 | 3a 0a 0a 5c 28 64 65 66 75 6e 20 66 6f 6f 20 28 61 72 67 31 20 61 72 67 32 20 26 72 65 73 74 20 | :..\(defun.foo.(arg1.arg2.&rest. |
| 536e0 | 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 | rest.......................&key. |
| 53700 | 6b 65 79 31 20 6b 65 79 32 29 0a 20 20 23 7c 2e 2e 2e 7c 23 29 22 0a 20 20 3a 74 79 70 65 20 27 | key1.key2)...#|...|#)"...:type.' |
| 53720 | 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a | boolean...:group.'lisp-indent).. |
| 53740 | 28 64 65 66 63 75 73 74 6f 6d 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 | (defcustom.lisp-lambda-list-keyw |
| 53760 | 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 32 0a 20 20 22 49 | ord-parameter-indentation.2..."I |
| 53780 | 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 6c 61 6d 62 64 61 20 6c 69 73 74 20 6b 65 79 77 6f 72 | ndentation.of.lambda.list.keywor |
| 537a0 | 64 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 53 65 65 20 60 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c | d.parameters..See.`lisp-lambda-l |
| 537c0 | 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 27 | ist-keyword-parameter-alignment' |
| 537e0 | 0a 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 3a 74 79 70 65 20 | .for.more.information."...:type. |
| 53800 | 27 69 6e 74 65 67 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a | 'integer...:group.'lisp-indent). |
| 53820 | 0a 28 64 65 66 63 75 73 74 6f 6d 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 | .(defcustom.lisp-lambda-list-key |
| 53840 | 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 20 6e 69 6c 0a 20 20 22 | word-parameter-alignment.nil..." |
| 53860 | 57 68 65 74 68 65 72 20 74 6f 20 76 65 72 74 69 63 61 6c 6c 79 20 61 6c 69 67 6e 20 6c 61 6d 62 | Whether.to.vertically.align.lamb |
| 53880 | 64 61 2d 6c 69 73 74 20 6b 65 79 77 6f 72 64 20 70 61 72 61 6d 65 74 65 72 73 20 74 6f 67 65 74 | da-list.keyword.parameters.toget |
| 538a0 | 68 65 72 2e 0a 49 66 20 6e 69 6c 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 2c 20 74 68 65 20 70 | her..If.nil.(the.default),.the.p |
| 538c0 | 61 72 61 6d 65 74 65 72 73 20 61 72 65 20 61 6c 69 67 6e 65 64 0a 77 69 74 68 20 74 68 65 69 72 | arameters.are.aligned.with.their |
| 538e0 | 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 6b 65 79 77 6f 72 64 2c 20 70 6c 75 73 20 74 68 65 | .corresponding.keyword,.plus.the |
| 53900 | 20 76 61 6c 75 65 20 6f 66 0a 60 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 | .value.of.`lisp-lambda-list-keyw |
| 53920 | 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 27 2c 20 6c 69 6b 65 | ord-parameter-indentation',.like |
| 53940 | 20 74 68 69 73 3a 0a 0a 5c 28 64 65 66 75 6e 20 66 6f 6f 20 28 61 72 67 31 20 61 72 67 32 20 26 | .this:..\(defun.foo.(arg1.arg2.& |
| 53960 | 6b 65 79 20 6b 65 79 31 20 6b 65 79 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | key.key1.key2................... |
| 53980 | 20 20 20 20 20 20 6b 65 79 33 20 6b 65 79 34 29 0a 20 20 23 7c 2e 2e 2e 7c 23 29 0a 0a 49 66 20 | ......key3.key4)...#|...|#)..If. |
| 539a0 | 6e 6f 6e 2d 6e 69 6c 2c 20 61 6c 69 67 6e 6d 65 6e 74 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 | non-nil,.alignment.is.done.with. |
| 539c0 | 74 68 65 20 66 69 72 73 74 20 70 61 72 61 6d 65 74 65 72 0a 5c 28 6f 72 20 66 61 6c 6c 73 20 62 | the.first.parameter.\(or.falls.b |
| 539e0 | 61 63 6b 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 63 61 73 65 29 2c 20 61 73 20 69 6e | ack.to.the.previous.case),.as.in |
| 53a00 | 3a 0a 0a 5c 28 64 65 66 75 6e 20 66 6f 6f 20 28 61 72 67 31 20 61 72 67 32 20 26 6b 65 79 20 6b | :..\(defun.foo.(arg1.arg2.&key.k |
| 53a20 | 65 79 31 20 6b 65 79 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ey1.key2........................ |
| 53a40 | 20 20 20 20 6b 65 79 33 20 6b 65 79 34 29 0a 20 20 23 7c 2e 2e 2e 7c 23 29 22 0a 20 20 3a 74 79 | ....key3.key4)...#|...|#)"...:ty |
| 53a60 | 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e | pe.'boolean...:group.'lisp-inden |
| 53a80 | 74 29 0a 0a 0c 0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 64 65 66 75 6e 2d | t)....(defvar.lisp-indent-defun- |
| 53aa0 | 6d 65 74 68 6f 64 20 27 28 34 20 26 6c 61 6d 62 64 61 20 26 62 6f 64 79 29 0a 20 20 22 44 65 66 | method.'(4.&lambda.&body)..."Def |
| 53ac0 | 75 6e 2d 6c 69 6b 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6d 65 74 68 6f 64 2e 0a 54 68 69 73 | un-like.indentation.method..This |
| 53ae0 | 20 61 70 70 6c 69 65 73 20 77 68 65 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 60 | .applies.when.the.value.of.the.` |
| 53b00 | 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 20 70 72 6f | common-lisp-indent-function'.pro |
| 53b20 | 70 65 72 74 79 0a 69 73 20 73 65 74 20 74 6f 20 60 64 65 66 75 6e 27 2e 22 29 0a 0a 0c 0a 3b 3b | perty.is.set.to.`defun'.")....;; |
| 53b40 | 3b 3b 20 4e 61 6d 65 64 20 73 74 79 6c 65 73 2e 0a 3b 3b 3b 3b 0a 3b 3b 3b 3b 20 2d 2a 2d 20 63 | ;;.Named.styles..;;;;.;;;;.-*-.c |
| 53b60 | 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 3a 20 66 6f 6f 20 2d 2a 2d 0a 3b 3b 3b 3b 0a 3b | ommon-lisp-style:.foo.-*-.;;;;.; |
| 53b80 | 3b 3b 3b 20 73 65 74 73 20 74 68 65 20 73 74 79 6c 65 20 66 6f 72 20 74 68 65 20 62 75 66 66 65 | ;;;.sets.the.style.for.the.buffe |
| 53ba0 | 72 2e 0a 3b 3b 3b 3b 0a 3b 3b 3b 3b 20 41 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 73 74 79 6c 65 | r..;;;;.;;;;.A.Common.Lisp.style |
| 53bc0 | 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 3a 0a 3b 3b 3b 3b 0a 3b 3b 3b | .is.a.list.of.the.form:.;;;;.;;; |
| 53be0 | 3b 20 20 28 4e 41 4d 45 20 49 4e 48 45 52 49 54 20 56 41 52 49 41 42 4c 45 53 20 49 4e 44 45 4e | ;..(NAME.INHERIT.VARIABLES.INDEN |
| 53c00 | 54 41 54 49 4f 4e 20 48 4f 4f 4b 20 44 4f 43 53 54 52 49 4e 47 29 0a 3b 3b 3b 3b 0a 3b 3b 3b 3b | TATION.HOOK.DOCSTRING).;;;;.;;;; |
| 53c20 | 20 77 68 65 72 65 20 4e 41 4d 45 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 6e 61 6d 69 6e 67 20 74 | .where.NAME.is.a.symbol.naming.t |
| 53c40 | 68 65 20 73 74 79 6c 65 2c 20 49 4e 48 45 52 49 54 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 | he.style,.INHERIT.is.the.name.of |
| 53c60 | 20 74 68 65 20 73 74 79 6c 65 0a 3b 3b 3b 3b 20 69 74 20 69 6e 68 65 72 69 74 73 20 66 72 6f 6d | .the.style.;;;;.it.inherits.from |
| 53c80 | 2c 20 56 41 52 49 41 42 4c 45 53 20 69 73 20 61 6e 20 61 6c 69 73 74 20 73 70 65 63 69 66 79 69 | ,.VARIABLES.is.an.alist.specifyi |
| 53ca0 | 6e 67 20 62 75 66 66 65 72 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 0a 3b 3b 3b 3b 20 66 | ng.buffer.local.variables.;;;;.f |
| 53cc0 | 6f 72 20 74 68 65 20 73 74 79 6c 65 2c 20 61 6e 64 20 49 4e 44 45 4e 54 41 54 49 4f 4e 20 69 73 | or.the.style,.and.INDENTATION.is |
| 53ce0 | 20 61 6e 20 61 6c 69 73 74 20 73 70 65 63 69 66 79 69 6e 67 20 6e 6f 6e 2d 73 74 61 6e 64 61 72 | .an.alist.specifying.non-standar |
| 53d00 | 64 0a 3b 3b 3b 3b 20 69 6e 64 65 6e 74 61 74 69 6f 6e 73 20 66 6f 72 20 43 6f 6d 6d 6f 6e 20 4c | d.;;;;.indentations.for.Common.L |
| 53d20 | 69 73 70 20 73 79 6d 62 6f 6c 73 2e 20 48 4f 4f 4b 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 | isp.symbols..HOOK.is.a.function. |
| 53d40 | 74 6f 20 63 61 6c 6c 20 77 68 65 6e 0a 3b 3b 3b 3b 20 61 63 74 69 76 61 74 69 6e 67 20 74 68 65 | to.call.when.;;;;.activating.the |
| 53d60 | 20 73 74 79 6c 65 2e 20 44 4f 43 53 54 52 49 4e 47 20 69 73 20 74 68 65 20 64 6f 63 75 6d 65 6e | .style..DOCSTRING.is.the.documen |
| 53d80 | 74 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 73 74 79 6c 65 2e 0a 3b 3b 3b 3b 0a 3b 3b 3b 3b 20 | tation.for.the.style..;;;;.;;;;. |
| 53da0 | 43 6f 6e 76 65 6e 69 65 6e 63 65 20 61 63 63 65 73 73 6f 72 73 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 | Convenience.accessors.`common-li |
| 53dc0 | 73 70 2d 73 74 79 6c 65 2d 6e 61 6d 65 27 2c 20 26 63 6f 20 65 78 69 73 74 2e 0a 3b 3b 3b 3b 0a | sp-style-name',.&co.exist..;;;;. |
| 53de0 | 3b 3b 3b 3b 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 27 20 73 74 6f 72 65 73 20 | ;;;;.`common-lisp-style'.stores. |
| 53e00 | 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 74 79 6c 65 2e 0a 3b | the.name.of.the.current.style..; |
| 53e20 | 3b 3b 3b 0a 3b 3b 3b 3b 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 64 65 66 61 | ;;;.;;;;.`common-lisp-style-defa |
| 53e40 | 75 6c 74 27 20 73 74 6f 72 65 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 73 74 79 6c | ult'.stores.the.name.of.the.styl |
| 53e60 | 65 20 74 6f 20 75 73 65 20 77 68 65 6e 20 6e 6f 6e 65 0a 3b 3b 3b 3b 20 68 61 73 20 62 65 65 6e | e.to.use.when.none.;;;;.has.been |
| 53e80 | 20 73 70 65 63 69 66 69 65 64 2e 0a 3b 3b 3b 3b 0a 3b 3b 3b 3b 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 | .specified..;;;;.;;;;.`common-li |
| 53ea0 | 73 70 2d 61 63 74 69 76 65 2d 73 74 79 6c 65 27 20 73 74 6f 72 65 73 20 61 20 63 6f 6e 73 20 6f | sp-active-style'.stores.a.cons.o |
| 53ec0 | 66 20 74 68 65 20 6c 69 73 74 20 73 70 65 63 69 66 79 69 6e 67 20 74 68 65 0a 3b 3b 3b 3b 20 63 | f.the.list.specifying.the.;;;;.c |
| 53ee0 | 75 72 72 65 6e 74 20 73 74 79 6c 65 2c 20 61 6e 64 20 61 20 68 61 73 68 2d 74 61 62 6c 65 20 63 | urrent.style,.and.a.hash-table.c |
| 53f00 | 6f 6e 74 61 69 6e 69 6e 67 20 61 6c 6c 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6d 65 74 68 6f 64 | ontaining.all.indentation.method |
| 53f20 | 73 20 6f 66 0a 3b 3b 3b 3b 20 74 68 61 74 20 73 74 79 6c 65 20 61 6e 64 20 61 6e 79 20 73 74 79 | s.of.;;;;.that.style.and.any.sty |
| 53f40 | 6c 65 73 20 69 74 20 69 6e 68 65 72 69 74 73 20 66 72 6f 6d 2e 20 57 68 65 6e 65 76 65 72 20 77 | les.it.inherits.from..Whenever.w |
| 53f60 | 65 27 72 65 20 69 6e 64 65 6e 74 69 6e 67 2c 20 77 65 0a 3b 3b 3b 3b 20 63 68 65 63 6b 20 74 68 | e're.indenting,.we.;;;;.check.th |
| 53f80 | 61 74 20 74 68 69 73 20 69 73 20 75 70 20 74 6f 20 64 61 74 65 2c 20 61 6e 64 20 72 65 63 6f 6d | at.this.is.up.to.date,.and.recom |
| 53fa0 | 70 75 74 65 20 77 68 65 6e 20 6e 65 63 65 73 73 61 72 79 2e 0a 3b 3b 3b 3b 0a 3b 3b 3b 3b 20 4a | pute.when.necessary..;;;;.;;;;.J |
| 53fc0 | 75 73 74 20 73 65 74 74 69 6e 67 20 74 68 65 20 62 75 66 66 65 72 20 6c 6f 63 61 6c 20 63 6f 6d | ust.setting.the.buffer.local.com |
| 53fe0 | 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 20 77 69 6c 6c 20 62 65 20 65 6e 6f 75 67 68 20 74 6f | mon-lisp-style.will.be.enough.to |
| 54000 | 20 68 61 76 65 0a 3b 3b 3b 3b 20 74 68 65 20 73 74 79 6c 65 20 74 61 6b 65 20 65 66 66 65 63 74 | .have.;;;;.the.style.take.effect |
| 54020 | 2e 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 65 74 2d 73 74 79 6c 65 27 20 63 61 6e 20 61 6c | ..`common-lisp-set-style'.can.al |
| 54040 | 73 6f 20 62 65 20 63 61 6c 6c 65 64 0a 3b 3b 3b 3b 20 65 78 70 6c 69 63 69 74 6c 79 2c 20 68 6f | so.be.called.;;;;.explicitly,.ho |
| 54060 | 77 65 76 65 72 2c 20 61 6e 64 20 6f 66 66 65 72 73 20 6e 61 6d 65 20 63 6f 6d 70 6c 65 74 69 6f | wever,.and.offers.name.completio |
| 54080 | 6e 2c 20 65 74 63 2e 0a 0a 3b 3b 3b 20 43 6f 6e 76 65 6e 69 65 6e 63 65 20 61 63 63 65 73 73 6f | n,.etc...;;;.Convenience.accesso |
| 540a0 | 72 73 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 6e 61 6d 65 | rs.(defun.common-lisp-style-name |
| 540c0 | 20 28 73 74 79 6c 65 29 20 28 63 6c 2d 66 69 72 73 74 20 73 74 79 6c 65 29 29 0a 28 64 65 66 75 | .(style).(cl-first.style)).(defu |
| 540e0 | 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 69 6e 68 65 72 69 74 73 20 28 73 74 | n.common-lisp-style-inherits.(st |
| 54100 | 79 6c 65 29 20 28 63 6c 2d 73 65 63 6f 6e 64 20 73 74 79 6c 65 29 29 0a 28 64 65 66 75 6e 20 63 | yle).(cl-second.style)).(defun.c |
| 54120 | 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 76 61 72 69 61 62 6c 65 73 20 28 73 74 79 6c | ommon-lisp-style-variables.(styl |
| 54140 | 65 29 20 28 63 6c 2d 74 68 69 72 64 20 73 74 79 6c 65 29 29 0a 28 64 65 66 75 6e 20 63 6f 6d 6d | e).(cl-third.style)).(defun.comm |
| 54160 | 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 73 74 79 6c 65 | on-lisp-style-indentation.(style |
| 54180 | 29 20 28 63 6c 2d 66 6f 75 72 74 68 20 73 74 79 6c 65 29 29 0a 28 64 65 66 75 6e 20 63 6f 6d 6d | ).(cl-fourth.style)).(defun.comm |
| 541a0 | 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 68 6f 6f 6b 20 28 73 74 79 6c 65 29 20 28 63 6c 2d 66 | on-lisp-style-hook.(style).(cl-f |
| 541c0 | 69 66 74 68 20 73 74 79 6c 65 29 29 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d | ifth.style)).(defun.common-lisp- |
| 541e0 | 73 74 79 6c 65 2d 64 6f 63 73 74 72 69 6e 67 20 28 73 74 79 6c 65 29 20 28 63 6c 2d 73 69 78 74 | style-docstring.(style).(cl-sixt |
| 54200 | 68 20 73 74 79 6c 65 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6d 61 | h.style))..(defun.common-lisp-ma |
| 54220 | 6b 65 2d 73 74 79 6c 65 20 28 73 74 79 6c 65 6e 61 6d 65 20 69 6e 68 65 72 69 74 73 20 76 61 72 | ke-style.(stylename.inherits.var |
| 54240 | 69 61 62 6c 65 73 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 | iables.indentation.hook......... |
| 54260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 75 6d 65 6e 74 61 | .......................documenta |
| 54280 | 74 69 6f 6e 29 0a 20 20 28 6c 69 73 74 20 73 74 79 6c 65 6e 61 6d 65 20 69 6e 68 65 72 69 74 73 | tion)...(list.stylename.inherits |
| 542a0 | 20 76 61 72 69 61 62 6c 65 73 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 68 6f 6f 6b 20 64 6f 63 75 | .variables.indentation.hook.docu |
| 542c0 | 6d 65 6e 74 61 74 69 6f 6e 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | mentation))..(defvar.common-lisp |
| 542e0 | 2d 73 74 79 6c 65 20 6e 69 6c 29 0a 0a 3b 3b 3b 20 60 64 65 66 69 6e 65 2d 63 6f 6d 6d 6f 6e 2d | -style.nil)..;;;.`define-common- |
| 54300 | 6c 69 73 70 2d 73 74 79 6c 65 27 20 75 70 64 61 74 65 73 20 74 68 65 20 64 6f 63 73 74 72 69 6e | lisp-style'.updates.the.docstrin |
| 54320 | 67 20 6f 66 0a 3b 3b 3b 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 27 2c 20 75 73 | g.of.;;;.`common-lisp-style',.us |
| 54340 | 69 6e 67 20 74 68 69 73 20 61 73 20 74 68 65 20 62 61 73 65 2e 0a 28 70 75 74 20 27 63 6f 6d 6d | ing.this.as.the.base..(put.'comm |
| 54360 | 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 | on-lisp-style.'common-lisp-style |
| 54380 | 2d 62 61 73 65 2d 64 6f 63 0a 20 20 20 20 20 22 4e 61 6d 65 20 6f 66 20 74 68 65 20 43 6f 6d 6d | -base-doc......"Name.of.the.Comm |
| 543a0 | 6f 6e 20 4c 69 73 70 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 74 79 6c 65 20 75 73 65 64 20 69 | on.Lisp.indentation.style.used.i |
| 543c0 | 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 53 65 74 20 74 68 69 73 20 62 | n.the.current.buffer..Set.this.b |
| 543e0 | 79 20 67 69 76 69 6e 67 20 65 67 2e 0a 0a 20 20 3b 3b 20 2d 2a 2d 20 63 6f 6d 6d 6f 6e 2d 6c 69 | y.giving.eg.....;;.-*-.common-li |
| 54400 | 73 70 2d 73 74 79 6c 65 3a 20 73 62 63 6c 20 2d 2a 2d 0a 0a 69 6e 20 74 68 65 20 66 69 72 73 74 | sp-style:.sbcl.-*-..in.the.first |
| 54420 | 20 6c 69 6e 65 20 6f 66 20 74 68 65 20 66 69 6c 65 2c 20 6f 72 20 62 79 20 63 61 6c 6c 69 6e 67 | .line.of.the.file,.or.by.calling |
| 54440 | 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 65 74 2d 73 74 79 6c 65 27 2e 20 49 66 0a 62 75 66 | .`common-lisp-set-style'..If.buf |
| 54460 | 66 65 72 20 68 61 73 20 6e 6f 20 73 74 79 6c 65 20 73 70 65 63 69 66 69 65 64 2c 20 62 75 74 20 | fer.has.no.style.specified,.but. |
| 54480 | 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 64 65 66 61 75 6c 74 27 20 69 73 20 73 | `common-lisp-style-default'.is.s |
| 544a0 | 65 74 2c 20 74 68 61 74 0a 73 74 79 6c 65 20 69 73 20 75 73 65 64 20 69 6e 73 74 65 61 64 2e 20 | et,.that.style.is.used.instead.. |
| 544c0 | 55 73 65 20 60 64 65 66 69 6e 65 2d 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 27 20 74 | Use.`define-common-lisp-style'.t |
| 544e0 | 6f 20 64 65 66 69 6e 65 20 6e 65 77 20 73 74 79 6c 65 73 2e 22 29 0a 0a 28 6d 61 6b 65 2d 76 61 | o.define.new.styles.")..(make-va |
| 54500 | 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | riable-buffer-local.'common-lisp |
| 54520 | 2d 73 74 79 6c 65 29 0a 28 73 65 74 2d 64 65 66 61 75 6c 74 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 | -style).(set-default.'common-lis |
| 54540 | 70 2d 73 74 79 6c 65 20 6e 69 6c 29 0a 0a 3b 3b 3b 20 60 6c 69 73 70 2d 6d 6f 64 65 27 20 6b 69 | p-style.nil)..;;;.`lisp-mode'.ki |
| 54560 | 6c 6c 73 20 61 6c 6c 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 20 | lls.all.buffer-local.variables.. |
| 54580 | 53 65 74 74 69 6e 67 20 74 68 65 0a 3b 3b 3b 20 60 70 65 72 6d 61 6e 65 6e 74 2d 6c 6f 63 61 6c | Setting.the.;;;.`permanent-local |
| 545a0 | 27 20 70 72 6f 70 65 72 74 79 20 61 6c 6c 6f 77 73 20 75 73 20 74 6f 20 72 65 74 61 69 6e 20 74 | '.property.allows.us.to.retain.t |
| 545c0 | 68 65 20 73 74 79 6c 65 2e 0a 28 70 75 74 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c | he.style..(put.'common-lisp-styl |
| 545e0 | 65 20 27 70 65 72 6d 61 6e 65 6e 74 2d 6c 6f 63 61 6c 20 74 29 0a 0a 3b 3b 3b 20 4d 61 72 6b 20 | e.'permanent-local.t)..;;;.Mark. |
| 54600 | 61 73 20 73 61 66 65 20 77 68 65 6e 20 74 68 65 20 73 74 79 6c 65 20 64 6f 65 73 6e 27 74 20 65 | as.safe.when.the.style.doesn't.e |
| 54620 | 76 61 6c 75 61 74 65 20 61 72 62 69 74 72 61 72 79 20 63 6f 64 65 2e 0a 28 70 75 74 20 27 63 6f | valuate.arbitrary.code..(put.'co |
| 54640 | 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 20 27 73 61 66 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 | mmon-lisp-style.'safe-local-vari |
| 54660 | 61 62 6c 65 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 61 66 65 2d 73 74 79 6c 65 2d 70 29 0a | able.'common-lisp-safe-style-p). |
| 54680 | 0a 3b 3b 3b 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 74 79 | .;;;.Common.Lisp.indentation.sty |
| 546a0 | 6c 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 73 2e 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f | le.specifications..(defvar.commo |
| 546c0 | 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 73 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a | n-lisp-styles.(make-hash-table.: |
| 546e0 | 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 | test.'equal))..(defun.common-lis |
| 54700 | 70 2d 64 65 6c 65 74 65 2d 73 74 79 6c 65 20 28 73 74 79 6c 65 6e 61 6d 65 29 0a 20 20 28 72 65 | p-delete-style.(stylename)...(re |
| 54720 | 6d 68 61 73 68 20 73 74 79 6c 65 6e 61 6d 65 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c | mhash.stylename.common-lisp-styl |
| 54740 | 65 73 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 66 69 6e 64 2d 73 74 | es))..(defun.common-lisp-find-st |
| 54760 | 79 6c 65 20 28 73 74 79 6c 65 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 69 | yle.(stylename)...(let.((name.(i |
| 54780 | 66 20 28 73 79 6d 62 6f 6c 70 20 73 74 79 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | f.(symbolp.stylename)........... |
| 547a0 | 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 74 79 6c 65 6e 61 6d 65 29 0a | ........(symbol-name.stylename). |
| 547c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 79 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 | ................stylename))).... |
| 547e0 | 20 28 6f 72 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 | .(or.(gethash.name.common-lisp-s |
| 54800 | 74 79 6c 65 73 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 43 | tyles).........(error."Unknown.C |
| 54820 | 6f 6d 6d 6f 6e 20 4c 69 73 70 20 73 74 79 6c 65 3a 20 25 73 22 20 6e 61 6d 65 29 29 29 29 0a 0a | ommon.Lisp.style:.%s".name)))).. |
| 54840 | 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 61 66 65 2d 73 74 79 6c 65 2d 70 20 | (defun.common-lisp-safe-style-p. |
| 54860 | 28 73 74 79 6c 65 6e 61 6d 65 29 0a 20 20 22 54 72 75 65 20 66 6f 72 20 6b 6e 6f 77 6e 20 43 6f | (stylename)..."True.for.known.Co |
| 54880 | 6d 6d 6f 6e 20 4c 69 73 70 20 73 74 79 6c 65 20 77 69 74 68 6f 75 74 20 61 6e 20 3a 45 56 41 4c | mmon.Lisp.style.without.an.:EVAL |
| 548a0 | 20 6f 70 74 69 6f 6e 2e 0a 49 65 2e 20 73 74 79 6c 65 73 20 74 68 61 74 20 77 69 6c 6c 20 6e 6f | .option..Ie..styles.that.will.no |
| 548c0 | 74 20 65 76 61 6c 75 61 74 65 20 61 72 62 69 74 72 61 72 79 20 63 6f 64 65 20 6f 6e 20 61 63 74 | t.evaluate.arbitrary.code.on.act |
| 548e0 | 69 76 61 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 74 79 6c 65 20 28 69 67 6e 6f 72 | ivation."...(let*.((style.(ignor |
| 54900 | 65 2d 65 72 72 6f 72 73 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 66 69 6e 64 2d 73 74 79 6c 65 | e-errors.(common-lisp-find-style |
| 54920 | 20 73 74 79 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 61 73 65 20 28 63 6f | .stylename)))..........(base.(co |
| 54940 | 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 69 6e 68 65 72 69 74 73 20 73 74 79 6c 65 29 29 | mmon-lisp-style-inherits.style)) |
| 54960 | 29 0a 20 20 20 20 28 61 6e 64 20 73 74 79 6c 65 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 | ).....(and.style..........(not.( |
| 54980 | 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 68 6f 6f 6b 20 73 74 79 6c 65 29 29 0a 20 | common-lisp-style-hook.style)).. |
| 549a0 | 20 20 20 20 20 20 20 20 28 6f 72 20 28 6e 6f 74 20 62 61 73 65 29 0a 20 20 20 20 20 20 20 20 20 | ........(or.(not.base).......... |
| 549c0 | 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 61 66 65 2d 73 74 79 6c 65 2d 70 20 62 61 | ....(common-lisp-safe-style-p.ba |
| 549e0 | 73 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 64 64 2d | se)))))..(defun.common-lisp-add- |
| 54a00 | 73 74 79 6c 65 20 28 73 74 79 6c 65 6e 61 6d 65 20 69 6e 68 65 72 69 74 73 20 76 61 72 69 61 62 | style.(stylename.inherits.variab |
| 54a20 | 6c 65 73 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 68 6f 6f 6b 73 0a 20 20 20 20 20 20 20 20 20 20 | les.indentation.hooks........... |
| 54a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f | ....................documentatio |
| 54a60 | 6e 29 0a 20 20 3b 3b 20 49 6e 76 61 6c 69 64 61 74 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6d | n)...;;.Invalidate.indentation.m |
| 54a80 | 65 74 68 6f 64 73 20 63 61 63 68 65 64 20 69 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 63 74 | ethods.cached.in.common-lisp-act |
| 54aa0 | 69 76 65 2d 73 74 79 6c 65 2e 0a 20 20 28 6d 61 70 68 61 73 68 20 28 6c 61 6d 62 64 61 20 28 6b | ive-style....(maphash.(lambda.(k |
| 54ac0 | 20 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 68 61 73 68 20 6b 20 28 63 6c 2d | .v)..............(puthash.k.(cl- |
| 54ae0 | 63 6f 70 79 2d 6c 69 73 74 20 76 29 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 73 29 | copy-list.v).common-lisp-styles) |
| 54b00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 73 29 | )............common-lisp-styles) |
| 54b20 | 0a 20 20 3b 3b 20 41 64 64 2f 52 65 64 65 66 69 6e 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 | ...;;.Add/Redefine.the.specified |
| 54b40 | 20 73 74 79 6c 65 2e 0a 20 20 28 70 75 74 68 61 73 68 20 73 74 79 6c 65 6e 61 6d 65 0a 20 20 20 | .style....(puthash.stylename.... |
| 54b60 | 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6d 61 6b 65 2d 73 74 79 6c 65 20 | ........(common-lisp-make-style. |
| 54b80 | 73 74 79 6c 65 6e 61 6d 65 20 69 6e 68 65 72 69 74 73 20 76 61 72 69 61 62 6c 65 73 20 69 6e 64 | stylename.inherits.variables.ind |
| 54ba0 | 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | entation........................ |
| 54bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 6f 6b 73 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 29 | ............hooks.documentation) |
| 54be0 | 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 73 29 0a | ............common-lisp-styles). |
| 54c00 | 20 20 3b 3b 20 46 72 6f 62 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 27 20 64 6f | ..;;.Frob.`common-lisp-style'.do |
| 54c20 | 63 73 74 72 69 6e 67 2e 0a 20 20 28 6c 65 74 20 28 28 64 6f 63 20 28 67 65 74 20 27 63 6f 6d 6d | cstring....(let.((doc.(get.'comm |
| 54c40 | 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 | on-lisp-style.'common-lisp-style |
| 54c60 | 2d 62 61 73 65 2d 64 6f 63 29 29 0a 20 20 20 20 20 20 20 20 28 61 6c 6c 20 6e 69 6c 29 29 0a 20 | -base-doc)).........(all.nil)).. |
| 54c80 | 20 20 20 28 73 65 74 71 20 64 6f 63 20 28 63 6f 6e 63 61 74 20 64 6f 63 20 22 5c 6e 5c 6e 41 76 | ...(setq.doc.(concat.doc."\n\nAv |
| 54ca0 | 61 69 6c 61 62 6c 65 20 73 74 79 6c 65 73 20 61 72 65 3a 5c 6e 22 29 29 0a 20 20 20 20 28 6d 61 | ailable.styles.are:\n")).....(ma |
| 54cc0 | 70 68 61 73 68 20 28 6c 61 6d 62 64 61 20 28 6e 61 6d 65 20 73 74 79 6c 65 29 0a 20 20 20 20 20 | phash.(lambda.(name.style)...... |
| 54ce0 | 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 6e 61 6d 65 20 28 63 6f 6d 6d | ..........(push.(list.name.(comm |
| 54d00 | 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 64 6f 63 73 74 72 69 6e 67 20 73 74 79 6c 65 29 29 20 | on-lisp-style-docstring.style)). |
| 54d20 | 61 6c 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 | all))..............common-lisp-s |
| 54d40 | 74 79 6c 65 73 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 69 6e 66 6f 20 28 73 6f 72 74 20 61 | tyles).....(dolist.(info.(sort.a |
| 54d60 | 6c 6c 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 20 28 73 74 72 69 6e 67 3c 20 28 63 61 72 20 61 | ll.(lambda.(a.b).(string<.(car.a |
| 54d80 | 29 20 28 63 61 72 20 62 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 79 6c 65 | ).(car.b))))).......(let.((style |
| 54da0 | 2d 6e 61 6d 65 20 28 63 6c 2d 66 69 72 73 74 20 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 | -name.(cl-first.info)).......... |
| 54dc0 | 20 20 20 28 73 74 79 6c 65 2d 64 6f 63 20 28 63 6c 2d 73 65 63 6f 6e 64 20 69 6e 66 6f 29 29 29 | ...(style-doc.(cl-second.info))) |
| 54de0 | 0a 20 20 20 20 20 20 20 20 28 69 66 20 73 74 79 6c 65 2d 64 6f 63 0a 20 20 20 20 20 20 20 20 20 | .........(if.style-doc.......... |
| 54e00 | 20 20 20 28 73 65 74 71 20 64 6f 63 20 28 63 6f 6e 63 61 74 20 64 6f 63 0a 20 20 20 20 20 20 20 | ...(setq.doc.(concat.doc........ |
| 54e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 20 22 20 73 74 79 | ......................."\n.".sty |
| 54e40 | 6c 65 2d 6e 61 6d 65 20 22 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-name."\n".................... |
| 54e60 | 20 20 20 20 20 20 20 20 20 20 20 22 20 20 20 22 20 73 74 79 6c 65 2d 64 6f 63 20 22 5c 6e 22 29 | ..........."...".style-doc."\n") |
| 54e80 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 6f 63 20 28 63 6f 6e 63 61 74 20 64 6f | )...........(setq.doc.(concat.do |
| 54ea0 | 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c | c............................."\ |
| 54ec0 | 6e 20 22 20 73 74 79 6c 65 2d 6e 61 6d 65 20 22 20 28 75 6e 64 6f 63 75 6d 65 6e 74 65 64 29 5c | n.".style-name.".(undocumented)\ |
| 54ee0 | 6e 22 29 29 29 29 29 0a 20 20 20 20 28 70 75 74 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 | n"))))).....(put.'common-lisp-st |
| 54f00 | 79 6c 65 20 27 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 64 6f 63 29 | yle.'variable-documentation.doc) |
| 54f20 | 29 0a 20 20 73 74 79 6c 65 6e 61 6d 65 29 0a 0a 3b 3b 3b 20 41 63 74 69 76 61 74 65 20 53 54 59 | )...stylename)..;;;.Activate.STY |
| 54f40 | 4c 45 4e 41 4d 45 2c 20 61 64 64 69 6e 67 20 69 74 73 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6d | LENAME,.adding.its.indentation.m |
| 54f60 | 65 74 68 6f 64 73 20 74 6f 20 4d 45 54 48 4f 44 53 20 2d 2d 20 61 6e 64 0a 3b 3b 3b 20 72 65 63 | ethods.to.METHODS.--.and.;;;.rec |
| 54f80 | 75 72 73 65 20 6f 6e 20 73 74 79 6c 65 20 69 6e 68 65 72 69 74 65 64 20 66 72 6f 6d 2e 0a 28 64 | urse.on.style.inherited.from..(d |
| 54fa0 | 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 63 74 69 76 61 74 65 2d 73 74 79 6c 65 20 | efun.common-lisp-activate-style. |
| 54fc0 | 28 73 74 79 6c 65 6e 61 6d 65 20 6d 65 74 68 6f 64 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 74 | (stylename.methods)...(let*.((st |
| 54fe0 | 79 6c 65 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 66 69 6e 64 2d 73 74 79 6c 65 20 73 74 79 6c | yle.(common-lisp-find-style.styl |
| 55000 | 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 61 73 65 6e 61 6d 65 20 28 63 6f 6d 6d | ename))..........(basename.(comm |
| 55020 | 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 69 6e 68 65 72 69 74 73 20 73 74 79 6c 65 29 29 29 0a | on-lisp-style-inherits.style))). |
| 55040 | 20 20 20 20 3b 3b 20 52 65 63 75 72 73 65 20 6f 6e 20 70 61 72 65 6e 74 2e 0a 20 20 20 20 28 77 | ....;;.Recurse.on.parent......(w |
| 55060 | 68 65 6e 20 62 61 73 65 6e 61 6d 65 0a 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d | hen.basename.......(common-lisp- |
| 55080 | 61 63 74 69 76 61 74 65 2d 73 74 79 6c 65 20 62 61 73 65 6e 61 6d 65 20 6d 65 74 68 6f 64 73 29 | activate-style.basename.methods) |
| 550a0 | 29 0a 20 20 20 20 3b 3b 20 43 6f 70 79 20 6d 65 74 68 6f 64 73 0a 20 20 20 20 28 64 6f 6c 69 73 | ).....;;.Copy.methods.....(dolis |
| 550c0 | 74 20 28 73 70 65 63 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 69 6e 64 65 6e | t.(spec.(common-lisp-style-inden |
| 550e0 | 74 61 74 69 6f 6e 20 73 74 79 6c 65 29 29 0a 20 20 20 20 20 20 28 70 75 74 68 61 73 68 20 28 63 | tation.style)).......(puthash.(c |
| 55100 | 6c 2d 66 69 72 73 74 20 73 70 65 63 29 20 28 63 6c 2d 73 65 63 6f 6e 64 20 73 70 65 63 29 20 6d | l-first.spec).(cl-second.spec).m |
| 55120 | 65 74 68 6f 64 73 29 29 0a 20 20 20 20 3b 3b 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 2e 0a | ethods)).....;;.Bind.variables.. |
| 55140 | 20 20 20 20 28 64 6f 6c 69 73 74 20 28 76 61 72 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 | ....(dolist.(var.(common-lisp-st |
| 55160 | 79 6c 65 2d 76 61 72 69 61 62 6c 65 73 20 73 74 79 6c 65 29 29 0a 20 20 20 20 20 20 28 73 65 74 | yle-variables.style)).......(set |
| 55180 | 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 28 63 6c 2d 66 69 72 73 74 20 | .(make-local-variable.(cl-first. |
| 551a0 | 76 61 72 29 29 20 28 63 6c 2d 73 65 63 6f 6e 64 20 76 61 72 29 29 29 0a 20 20 20 20 3b 3b 20 52 | var)).(cl-second.var))).....;;.R |
| 551c0 | 75 6e 20 68 6f 6f 6b 2e 0a 20 20 20 20 28 6c 65 74 20 28 28 68 6f 6f 6b 20 28 63 6f 6d 6d 6f 6e | un.hook......(let.((hook.(common |
| 551e0 | 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 68 6f 6f 6b 20 73 74 79 6c 65 29 29 29 0a 20 20 20 20 20 20 | -lisp-style-hook.style)))....... |
| 55200 | 28 77 68 65 6e 20 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 68 6f 6f 6b | (when.hook.........(funcall.hook |
| 55220 | 29 29 29 29 29 0a 0a 3b 3b 3b 20 57 68 65 6e 20 61 20 73 74 79 6c 65 20 69 73 20 62 65 69 6e 67 | )))))..;;;.When.a.style.is.being |
| 55240 | 20 75 73 65 64 2c 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 63 74 69 76 65 2d 73 74 79 6c 65 | .used,.`common-lisp-active-style |
| 55260 | 27 20 68 6f 6c 64 73 20 61 20 63 6f 6e 73 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 28 53 54 59 4c 45 20 | '.holds.a.cons.;;;.;;;...(STYLE. |
| 55280 | 2e 20 4d 45 54 48 4f 44 53 29 0a 3b 3b 3b 0a 3b 3b 3b 20 77 68 65 72 65 20 53 54 59 4c 45 20 69 | ..METHODS).;;;.;;;.where.STYLE.i |
| 552a0 | 73 20 74 68 65 20 6c 69 73 74 20 73 70 65 63 69 66 79 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e | s.the.list.specifying.the.curren |
| 552c0 | 74 6c 79 20 61 63 74 69 76 65 20 73 74 79 6c 65 2c 20 61 6e 64 0a 3b 3b 3b 20 4d 45 54 48 4f 44 | tly.active.style,.and.;;;.METHOD |
| 552e0 | 53 20 69 73 20 74 68 65 20 74 61 62 6c 65 20 6f 66 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6d 65 | S.is.the.table.of.indentation.me |
| 55300 | 74 68 6f 64 73 20 2d 2d 20 20 69 6e 63 6c 75 64 69 6e 67 20 69 6e 68 65 72 69 74 65 64 0a 3b 3b | thods.--..including.inherited.;; |
| 55320 | 3b 20 6f 6e 65 73 20 2d 2d 20 66 6f 72 20 69 74 2e 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 | ;.ones.--.for.it..`common-lisp-a |
| 55340 | 63 74 69 76 65 2d 73 74 79 6c 65 2d 6d 65 74 68 6f 64 73 27 20 69 73 20 72 65 70 6f 6e 73 69 62 | ctive-style-methods'.is.reponsib |
| 55360 | 6c 65 0a 3b 3b 3b 20 66 6f 72 20 6b 65 65 70 69 6e 67 20 74 68 69 73 20 75 70 20 74 6f 20 64 61 | le.;;;.for.keeping.this.up.to.da |
| 55380 | 74 65 2e 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 | te..(make-variable-buffer-local. |
| 553a0 | 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 63 74 69 76 65 2d 73 74 79 6c 65 | (defvar.common-lisp-active-style |
| 553c0 | 20 6e 69 6c 29 29 0a 0a 3b 3b 3b 20 4d 61 6b 65 73 20 73 75 72 65 20 63 6f 6d 6d 6f 6e 2d 6c 69 | .nil))..;;;.Makes.sure.common-li |
| 553e0 | 73 70 2d 61 63 74 69 76 65 2d 73 74 79 6c 65 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f 20 63 | sp-active-style.corresponds.to.c |
| 55400 | 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2c 20 61 6e 64 0a 3b 3b 3b 20 70 69 63 6b 20 75 | ommon-lisp-style,.and.;;;.pick.u |
| 55420 | 70 20 72 65 64 65 66 69 6e 69 74 69 6f 6e 73 2c 20 65 74 63 2e 20 52 65 74 75 72 6e 73 20 74 68 | p.redefinitions,.etc..Returns.th |
| 55440 | 65 20 6d 65 74 68 6f 64 20 74 61 62 6c 65 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 | e.method.table.for.the.currently |
| 55460 | 0a 3b 3b 3b 20 61 63 74 69 76 65 20 73 74 79 6c 65 2e 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e | .;;;.active.style..(defun.common |
| 55480 | 2d 6c 69 73 70 2d 61 63 74 69 76 65 2d 73 74 79 6c 65 2d 6d 65 74 68 6f 64 73 20 28 29 0a 20 20 | -lisp-active-style-methods.()... |
| 554a0 | 28 6c 65 74 2a 20 28 28 6e 61 6d 65 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 29 0a | (let*.((name.common-lisp-style). |
| 554c0 | 20 20 20 20 20 20 20 20 20 28 73 74 79 6c 65 20 28 77 68 65 6e 20 6e 61 6d 65 20 28 63 6f 6d 6d | .........(style.(when.name.(comm |
| 554e0 | 6f 6e 2d 6c 69 73 70 2d 66 69 6e 64 2d 73 74 79 6c 65 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 | on-lisp-find-style.name))))..... |
| 55500 | 28 69 66 20 28 65 71 20 73 74 79 6c 65 20 28 63 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 | (if.(eq.style.(car.common-lisp-a |
| 55520 | 63 74 69 76 65 2d 73 74 79 6c 65 29 29 0a 20 20 20 20 20 20 20 20 28 63 64 72 20 63 6f 6d 6d 6f | ctive-style)).........(cdr.commo |
| 55540 | 6e 2d 6c 69 73 70 2d 61 63 74 69 76 65 2d 73 74 79 6c 65 29 0a 20 20 20 20 20 20 28 77 68 65 6e | n-lisp-active-style).......(when |
| 55560 | 20 73 74 79 6c 65 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 65 74 68 6f 64 73 20 28 6d | .style.........(let.((methods.(m |
| 55580 | 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 29 0a 20 | ake-hash-table.:test.'equal))).. |
| 555a0 | 20 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 63 74 69 76 61 74 65 2d 73 | .........(common-lisp-activate-s |
| 555c0 | 74 79 6c 65 20 6e 61 6d 65 20 6d 65 74 68 6f 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 | tyle.name.methods)...........(se |
| 555e0 | 74 71 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 63 74 69 76 65 2d 73 74 79 6c 65 20 28 63 6f 6e | tq.common-lisp-active-style.(con |
| 55600 | 73 20 73 74 79 6c 65 20 6d 65 74 68 6f 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 6d 65 74 68 | s.style.methods))...........meth |
| 55620 | 6f 64 73 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 65 | ods)))))..(defvar.common-lisp-se |
| 55640 | 74 2d 73 74 79 6c 65 2d 68 69 73 74 6f 72 79 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d | t-style-history.nil)..(defun.com |
| 55660 | 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 6e 61 6d 65 73 20 28 29 0a 20 20 28 6c 65 74 20 28 | mon-lisp-style-names.()...(let.( |
| 55680 | 6e 61 6d 65 73 29 0a 20 20 20 20 28 6d 61 70 68 61 73 68 20 28 6c 61 6d 62 64 61 20 28 6b 20 76 | names).....(maphash.(lambda.(k.v |
| 556a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 6b 20 76 | )................(push.(cons.k.v |
| 556c0 | 29 20 6e 61 6d 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 | ).names))..............common-li |
| 556e0 | 73 70 2d 73 74 79 6c 65 73 29 0a 20 20 20 20 6e 61 6d 65 73 29 29 0a 0a 28 64 65 66 75 6e 20 63 | sp-styles).....names))..(defun.c |
| 55700 | 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 65 74 2d 73 74 79 6c 65 20 28 73 74 79 6c 65 6e 61 6d 65 29 | ommon-lisp-set-style.(stylename) |
| 55720 | 0a 20 20 22 53 65 74 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 74 6f 20 75 73 65 20 74 68 | ..."Set.current.buffer.to.use.th |
| 55740 | 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 73 74 79 6c 65 20 53 54 59 4c 45 4e 41 4d 45 2e 0a 53 | e.Common.Lisp.style.STYLENAME..S |
| 55760 | 54 59 4c 45 4e 41 4d 45 2c 20 61 20 73 74 72 69 6e 67 2c 20 6d 75 73 74 20 62 65 20 61 6e 20 65 | TYLENAME,.a.string,.must.be.an.e |
| 55780 | 78 69 73 74 69 6e 67 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 73 74 79 6c 65 2e 20 53 74 79 6c 65 | xisting.Common.Lisp.style..Style |
| 557a0 | 73 0a 61 72 65 20 61 64 64 65 64 20 28 61 6e 64 20 75 70 64 61 74 65 64 29 20 75 73 69 6e 67 20 | s.are.added.(and.updated).using. |
| 557c0 | 60 64 65 66 69 6e 65 2d 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 27 2e 0a 0a 54 68 65 | `define-common-lisp-style'...The |
| 557e0 | 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 60 63 6f 6d 6d 6f 6e 2d 6c | .buffer-local.variable.`common-l |
| 55800 | 69 73 70 2d 73 74 79 6c 65 27 20 77 69 6c 6c 20 67 65 74 20 73 65 74 20 74 6f 20 53 54 59 4c 45 | isp-style'.will.get.set.to.STYLE |
| 55820 | 4e 41 4d 45 2e 0a 0a 41 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 73 74 79 6c 65 20 69 73 20 63 6f | NAME...A.Common.Lisp.style.is.co |
| 55840 | 6d 70 6f 73 65 64 20 6f 66 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 2c 20 69 6e 64 65 6e | mposed.of.local.variables,.inden |
| 55860 | 74 61 74 69 6f 6e 0a 73 70 65 63 69 66 69 63 61 74 69 6f 6e 73 2c 20 61 6e 64 20 6d 61 79 20 61 | tation.specifications,.and.may.a |
| 55880 | 6c 73 6f 20 63 6f 6e 74 61 69 6e 20 61 72 62 69 74 72 61 72 79 20 65 6c 69 73 70 20 63 6f 64 65 | lso.contain.arbitrary.elisp.code |
| 558a0 | 20 74 6f 20 72 75 6e 20 75 70 6f 6e 0a 61 63 74 69 76 61 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 | .to.run.upon.activation."...(int |
| 558c0 | 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 28 6c 65 74 20 28 28 63 6f 6d 70 6c 65 74 | eractive....(list.(let.((complet |
| 558e0 | 69 6f 6e 2d 69 67 6e 6f 72 65 2d 63 61 73 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion-ignore-case.t).............. |
| 55900 | 20 20 28 70 72 6f 6d 70 74 20 22 53 70 65 63 69 66 79 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 69 | ..(prompt."Specify.Common.Lisp.i |
| 55920 | 6e 64 65 6e 74 61 74 69 6f 6e 20 73 74 79 6c 65 3a 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ndentation.style:."))........... |
| 55940 | 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 70 72 6f 6d 70 74 0a 20 20 20 20 20 20 20 | .(completing-read.prompt........ |
| 55960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 | .....................(common-lis |
| 55980 | 70 2d 73 74 79 6c 65 2d 6e 61 6d 65 73 29 20 6e 69 6c 20 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 | p-style-names).nil.t.nil........ |
| 559a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 | .....................'common-lis |
| 559c0 | 70 2d 73 65 74 2d 73 74 79 6c 65 2d 68 69 73 74 6f 72 79 29 29 29 29 0a 20 20 28 73 65 74 71 20 | p-set-style-history))))...(setq. |
| 559e0 | 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 | common-lisp-style.(common-lisp-s |
| 55a00 | 74 79 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tyle-name....................... |
| 55a20 | 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 66 69 6e 64 2d 73 74 79 6c 65 20 73 74 79 | .....(common-lisp-find-style.sty |
| 55a40 | 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 63 74 | lename)).........common-lisp-act |
| 55a60 | 69 76 65 2d 73 74 79 6c 65 20 6e 69 6c 29 0a 20 20 3b 3b 20 41 63 74 75 61 6c 6c 79 20 61 63 74 | ive-style.nil)...;;.Actually.act |
| 55a80 | 69 76 61 74 65 73 20 74 68 65 20 73 74 79 6c 65 2e 0a 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | ivates.the.style....(common-lisp |
| 55aa0 | 2d 61 63 74 69 76 65 2d 73 74 79 6c 65 2d 6d 65 74 68 6f 64 73 29 0a 20 20 73 74 79 6c 65 6e 61 | -active-style-methods)...stylena |
| 55ac0 | 6d 65 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 63 6f 6d 6d 6f 6e 2d 6c 69 73 | me)..(defmacro.define-common-lis |
| 55ae0 | 70 2d 73 74 79 6c 65 20 28 6e 61 6d 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 26 72 65 73 | p-style.(name.documentation.&res |
| 55b00 | 74 20 6f 70 74 69 6f 6e 73 29 0a 20 20 22 44 65 66 69 6e 65 20 61 20 43 6f 6d 6d 6f 6e 20 4c 69 | t.options)..."Define.a.Common.Li |
| 55b20 | 73 70 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 74 79 6c 65 2e 0a 0a 4e 41 4d 45 20 69 73 20 74 | sp.indentation.style...NAME.is.t |
| 55b40 | 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 73 74 79 6c 65 2e 0a 0a 44 4f 43 55 4d 45 4e 54 41 | he.name.of.the.style...DOCUMENTA |
| 55b60 | 54 49 4f 4e 20 69 73 20 74 68 65 20 64 6f 63 73 74 72 69 6e 67 20 66 6f 72 20 74 68 65 20 73 74 | TION.is.the.docstring.for.the.st |
| 55b80 | 79 6c 65 2c 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 61 64 64 65 64 20 74 6f 20 74 68 65 0a | yle,.automatically.added.to.the. |
| 55ba0 | 64 6f 63 73 74 72 69 6e 67 20 6f 66 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 27 | docstring.of.`common-lisp-style' |
| 55bc0 | 2e 0a 0a 4f 50 54 49 4f 4e 53 20 61 72 65 3a 0a 0a 20 28 3a 76 61 72 69 61 62 6c 65 73 20 28 6e | ...OPTIONS.are:...(:variables.(n |
| 55be0 | 61 6d 65 20 76 61 6c 75 65 29 20 2e 2e 2e 29 0a 0a 20 20 53 70 65 63 69 66 79 69 6e 67 20 74 68 | ame.value)....)....Specifying.th |
| 55c00 | 65 20 62 75 66 66 65 72 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 61 73 73 6f 63 69 61 | e.buffer.local.variables.associa |
| 55c20 | 74 65 64 20 77 69 74 68 20 74 68 65 20 73 74 79 6c 65 2e 0a 0a 20 28 3a 69 6e 64 65 6e 74 61 74 | ted.with.the.style....(:indentat |
| 55c40 | 69 6f 6e 20 28 73 79 6d 62 6f 6c 20 73 70 65 63 29 20 2e 2e 2e 29 0a 0a 20 20 53 70 65 63 69 66 | ion.(symbol.spec)....)....Specif |
| 55c60 | 79 69 6e 67 20 63 75 73 74 6f 6d 20 69 6e 64 65 6e 74 61 74 69 6f 6e 73 20 61 73 73 6f 63 69 61 | ying.custom.indentations.associa |
| 55c80 | 74 65 64 20 77 69 74 68 20 74 68 65 20 73 74 79 6c 65 2e 20 53 50 45 43 20 69 73 0a 20 20 61 20 | ted.with.the.style..SPEC.is...a. |
| 55ca0 | 6e 6f 72 6d 61 6c 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 | normal.`common-lisp-indent-funct |
| 55cc0 | 69 6f 6e 27 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 2e 0a | ion'.indentation.specification.. |
| 55ce0 | 0a 20 28 3a 69 6e 68 65 72 69 74 20 73 74 79 6c 65 29 0a 0a 20 20 49 6e 68 65 72 69 74 20 76 61 | ..(:inherit.style)....Inherit.va |
| 55d00 | 72 69 61 62 6c 65 73 20 61 6e 64 20 69 6e 64 65 6e 74 61 74 69 6f 6e 73 20 66 72 6f 6d 20 61 6e | riables.and.indentations.from.an |
| 55d20 | 6f 74 68 65 72 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 73 74 79 6c 65 2e 0a 0a 20 28 3a 65 76 61 | other.Common.Lisp.style....(:eva |
| 55d40 | 6c 20 66 6f 72 6d 20 2e 2e 2e 29 0a 0a 20 20 4c 69 73 70 20 63 6f 64 65 20 74 6f 20 65 76 61 6c | l.form....)....Lisp.code.to.eval |
| 55d60 | 75 61 74 65 20 77 68 65 6e 20 61 63 74 69 76 61 74 69 6e 67 20 74 68 65 20 73 74 79 6c 65 2e 20 | uate.when.activating.the.style.. |
| 55d80 | 54 68 69 73 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 0a 20 20 65 67 2e 20 61 63 74 69 76 61 | This.can.be.used.to...eg..activa |
| 55da0 | 74 65 20 6f 74 68 65 72 20 6d 6f 64 65 73 2e 20 49 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 74 | te.other.modes..It.is.possible.t |
| 55dc0 | 68 61 74 20 6f 76 65 72 20 74 68 65 20 6c 69 66 65 74 69 6d 65 20 6f 66 0a 20 20 61 20 62 75 66 | hat.over.the.lifetime.of...a.buf |
| 55de0 | 66 65 72 20 73 61 6d 65 20 73 74 79 6c 65 20 67 65 74 73 20 61 63 74 69 76 61 74 65 64 20 6d 75 | fer.same.style.gets.activated.mu |
| 55e00 | 6c 74 69 70 6c 65 20 74 69 6d 65 73 2c 20 73 6f 20 63 6f 64 65 20 69 6e 20 3a 65 76 61 6c 0a 20 | ltiple.times,.so.code.in.:eval.. |
| 55e20 | 20 6f 70 74 69 6f 6e 20 73 68 6f 75 6c 64 20 63 6f 70 65 20 77 69 74 68 20 74 68 61 74 2e 0a 22 | .option.should.cope.with.that.." |
| 55e40 | 0a 20 20 28 77 68 65 6e 20 28 63 6f 6e 73 70 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 29 0a 20 | ...(when.(consp.documentation).. |
| 55e60 | 20 20 20 28 73 65 74 71 20 6f 70 74 69 6f 6e 73 20 28 63 6f 6e 73 20 64 6f 63 75 6d 65 6e 74 61 | ...(setq.options.(cons.documenta |
| 55e80 | 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 64 6f 63 75 6d 65 6e 74 | tion.options)...........document |
| 55ea0 | 61 74 69 6f 6e 20 6e 69 6c 29 29 0a 20 20 60 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 64 64 2d | ation.nil))...`(common-lisp-add- |
| 55ec0 | 73 74 79 6c 65 20 2c 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | style.,name..................... |
| 55ee0 | 20 20 20 20 20 20 27 2c 28 63 61 64 72 20 28 61 73 73 6f 63 20 3a 69 6e 68 65 72 69 74 20 6f 70 | ......',(cadr.(assoc.:inherit.op |
| 55f00 | 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tions))......................... |
| 55f20 | 20 20 27 2c 28 63 64 72 20 28 61 73 73 6f 63 20 3a 76 61 72 69 61 62 6c 65 73 20 6f 70 74 69 6f | ..',(cdr.(assoc.:variables.optio |
| 55f40 | 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | ns))...........................' |
| 55f60 | 2c 28 63 64 72 20 28 61 73 73 6f 63 20 3a 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 70 74 69 6f 6e | ,(cdr.(assoc.:indentation.option |
| 55f80 | 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 | s))...........................,( |
| 55fa0 | 77 68 65 6e 20 28 61 73 73 6f 63 20 3a 65 76 61 6c 20 6f 70 74 69 6f 6e 73 29 0a 20 20 20 20 20 | when.(assoc.:eval.options)...... |
| 55fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6c 61 6d 62 64 61 | ........................`(lambda |
| 55fe0 | 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .()............................. |
| 56000 | 20 20 20 20 2c 40 28 63 64 72 20 28 61 73 73 6f 63 20 3a 65 76 61 6c 20 6f 70 74 69 6f 6e 73 29 | ....,@(cdr.(assoc.:eval.options) |
| 56020 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 64 | )))...........................,d |
| 56040 | 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 29 29 0a 0a 28 64 65 66 69 6e 65 2d 63 6f 6d 6d 6f 6e 2d 6c | ocumentation))..(define-common-l |
| 56060 | 69 73 70 2d 73 74 79 6c 65 20 22 62 61 73 69 63 2d 63 6f 6d 6d 6f 6e 22 0a 20 20 28 3a 76 61 72 | isp-style."basic-common"...(:var |
| 56080 | 69 61 62 6c 65 73 0a 20 20 20 28 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6d 61 78 69 6d 75 6d 2d 62 | iables....(lisp-indent-maximum-b |
| 560a0 | 61 63 6b 74 72 61 63 6b 69 6e 67 20 36 29 0a 20 20 20 28 6c 69 73 70 2d 74 61 67 2d 69 6e 64 65 | acktracking.6)....(lisp-tag-inde |
| 560c0 | 6e 74 61 74 69 6f 6e 20 31 29 0a 20 20 20 28 6c 69 73 70 2d 74 61 67 2d 62 6f 64 79 2d 69 6e 64 | ntation.1)....(lisp-tag-body-ind |
| 560e0 | 65 6e 74 61 74 69 6f 6e 20 33 29 0a 20 20 20 28 6c 69 73 70 2d 62 61 63 6b 71 75 6f 74 65 2d 69 | entation.3)....(lisp-backquote-i |
| 56100 | 6e 64 65 6e 74 61 74 69 6f 6e 20 74 29 0a 20 20 20 28 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 | ndentation.t)....(lisp-loop-inde |
| 56120 | 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 20 74 29 0a 20 20 20 28 6c 69 73 70 2d 6c 6f 6f 70 2d 69 | nt-subclauses.t)....(lisp-loop-i |
| 56140 | 6e 64 65 6e 74 2d 66 6f 72 6d 73 2d 6c 69 6b 65 2d 6b 65 79 77 6f 72 64 73 20 6e 69 6c 29 0a 20 | ndent-forms-like-keywords.nil).. |
| 56160 | 20 20 28 6c 69 73 70 2d 73 69 6d 70 6c 65 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 | ..(lisp-simple-loop-indentation. |
| 56180 | 32 29 0a 20 20 20 28 6c 69 73 70 2d 61 6c 69 67 6e 2d 6b 65 79 77 6f 72 64 73 2d 69 6e 2d 63 61 | 2)....(lisp-align-keywords-in-ca |
| 561a0 | 6c 6c 73 20 74 29 0a 20 20 20 28 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 69 6e 64 65 | lls.t)....(lisp-lambda-list-inde |
| 561c0 | 6e 74 61 74 69 6f 6e 20 74 29 0a 20 20 20 28 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d | ntation.t)....(lisp-lambda-list- |
| 561e0 | 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 20 6e 69 6c 29 0a 20 20 20 28 6c 69 73 70 2d | keyword-alignment.nil)....(lisp- |
| 56200 | 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 69 6e | lambda-list-keyword-parameter-in |
| 56220 | 64 65 6e 74 61 74 69 6f 6e 20 32 29 0a 20 20 20 28 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 | dentation.2)....(lisp-lambda-lis |
| 56240 | 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 20 6e 69 | t-keyword-parameter-alignment.ni |
| 56260 | 6c 29 0a 20 20 20 28 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 64 65 66 75 6e 2d 6d 65 74 68 6f 64 20 | l)....(lisp-indent-defun-method. |
| 56280 | 28 34 20 26 6c 61 6d 62 64 61 20 26 62 6f 64 79 29 29 0a 20 20 20 28 6c 69 73 70 2d 6c 6f 6f 70 | (4.&lambda.&body))....(lisp-loop |
| 562a0 | 2d 63 6c 61 75 73 65 73 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 32 29 0a 20 20 20 28 6c 69 73 70 | -clauses-indentation.2)....(lisp |
| 562c0 | 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 62 6f 64 79 2d 66 6f 72 6d 73 2d 72 65 6c 61 74 69 76 65 | -loop-indent-body-forms-relative |
| 562e0 | 2d 74 6f 2d 6c 6f 6f 70 2d 73 74 61 72 74 20 6e 69 6c 29 0a 20 20 20 28 6c 69 73 70 2d 6c 6f 6f | -to-loop-start.nil)....(lisp-loo |
| 56300 | 70 2d 62 6f 64 79 2d 66 6f 72 6d 73 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 33 29 29 29 0a 0a 28 | p-body-forms-indentation.3)))..( |
| 56320 | 64 65 66 69 6e 65 2d 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 20 22 62 61 73 69 63 2d | define-common-lisp-style."basic- |
| 56340 | 65 6d 61 63 73 32 35 22 0a 20 20 22 54 68 69 73 20 73 74 79 6c 65 20 61 64 64 73 20 61 20 77 6f | emacs25"..."This.style.adds.a.wo |
| 56360 | 72 6b 61 72 6f 75 6e 64 20 6e 65 65 64 65 64 20 66 6f 72 20 45 6d 61 63 73 20 32 35 22 0a 20 20 | rkaround.needed.for.Emacs.25"... |
| 56380 | 28 3a 69 6e 68 65 72 69 74 20 22 62 61 73 69 63 2d 63 6f 6d 6d 6f 6e 22 29 0a 20 20 28 3a 76 61 | (:inherit."basic-common")...(:va |
| 563a0 | 72 69 61 62 6c 65 73 0a 20 20 20 3b 3b 20 57 69 74 68 6f 75 74 20 74 68 65 73 65 20 28 3b 3b 66 | riables....;;.Without.these.(;;f |
| 563c0 | 6f 6f 20 77 6f 75 6c 64 20 67 65 74 20 61 20 73 70 61 63 65 20 69 6e 73 65 72 74 65 64 20 62 65 | oo.would.get.a.space.inserted.be |
| 563e0 | 74 77 65 65 6e 0a 20 20 20 3b 3b 20 28 20 61 6e 64 20 3b 20 62 79 20 69 6e 64 65 6e 74 2d 73 65 | tween....;;.(.and.;.by.indent-se |
| 56400 | 78 70 2e 0a 20 20 20 28 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 | xp.....(comment-indent-function. |
| 56420 | 28 6c 61 6d 62 64 61 20 28 29 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 63 6f 6d 6d | (lambda.().nil))))..(define-comm |
| 56440 | 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 20 22 62 61 73 69 63 2d 65 6d 61 63 73 32 36 22 0a 20 20 | on-lisp-style."basic-emacs26"... |
| 56460 | 22 54 68 69 73 20 73 74 79 6c 65 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 62 61 73 69 63 | "This.style.is.the.same.as.basic |
| 56480 | 2d 63 6f 6d 6d 6f 6e 2e 20 49 74 20 64 6f 65 73 6e 27 74 20 6e 65 65 64 20 6f 72 0a 20 20 20 77 | -common..It.doesn't.need.or....w |
| 564a0 | 61 6e 74 20 74 68 65 20 77 6f 72 6b 61 72 6f 75 6e 64 20 75 73 65 64 20 69 6e 20 45 6d 61 63 73 | ant.the.workaround.used.in.Emacs |
| 564c0 | 20 32 35 2e 20 49 6e 20 45 6d 61 63 73 20 32 36 2c 20 74 68 61 74 0a 20 20 20 77 6f 72 6b 61 72 | .25..In.Emacs.26,.that....workar |
| 564e0 | 6f 75 6e 64 20 69 6e 74 72 6f 64 75 63 65 73 20 61 20 77 65 69 72 64 20 62 65 68 61 76 69 6f 72 | ound.introduces.a.weird.behavior |
| 56500 | 20 77 68 65 72 65 20 61 20 73 69 6e 67 6c 65 0a 20 20 20 73 65 6d 69 63 6f 6c 6f 6e 20 62 72 65 | .where.a.single....semicolon.bre |
| 56520 | 61 6b 73 20 74 68 65 20 6d 6f 64 65 20 61 6e 64 20 63 61 75 73 65 73 20 74 68 65 20 63 75 72 73 | aks.the.mode.and.causes.the.curs |
| 56540 | 6f 72 20 74 6f 20 6d 6f 76 65 20 74 6f 20 74 68 65 0a 20 20 20 73 74 61 72 74 20 6f 66 20 74 68 | or.to.move.to.the....start.of.th |
| 56560 | 65 20 6c 69 6e 65 20 61 66 74 65 72 20 65 76 65 72 79 20 63 68 61 72 61 63 74 65 72 20 69 6e 73 | e.line.after.every.character.ins |
| 56580 | 65 72 74 65 64 2e 22 0a 20 20 28 3a 69 6e 68 65 72 69 74 20 22 62 61 73 69 63 2d 63 6f 6d 6d 6f | erted."...(:inherit."basic-commo |
| 565a0 | 6e 22 29 29 0a 0a 28 69 66 20 28 3e 3d 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 72 73 69 6f | n"))..(if.(>=.emacs-major-versio |
| 565c0 | 6e 20 32 36 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 | n.26).....(define-common-lisp-st |
| 565e0 | 79 6c 65 20 22 62 61 73 69 63 22 0a 20 20 20 20 20 20 22 54 68 69 73 20 73 74 79 6c 65 20 6d 65 | yle."basic"......."This.style.me |
| 56600 | 72 65 6c 79 20 67 69 76 65 73 20 61 6c 6c 20 69 64 65 6e 74 61 74 69 6f 6e 20 76 61 72 69 61 62 | rely.gives.all.identation.variab |
| 56620 | 6c 65 73 20 74 68 65 69 72 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 73 2c 0a 20 20 20 20 20 20 | les.their.default.values,....... |
| 56640 | 20 6d 61 6b 69 6e 67 20 69 74 20 65 61 73 79 20 74 6f 20 63 72 65 61 74 65 20 6e 65 77 20 73 74 | .making.it.easy.to.create.new.st |
| 56660 | 79 6c 65 73 20 74 68 61 74 20 61 72 65 20 70 72 6f 6f 66 20 61 67 61 69 6e 73 74 20 75 73 65 72 | yles.that.are.proof.against.user |
| 56680 | 0a 20 20 20 20 20 20 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 73 2e 20 49 74 20 61 6c 73 6f 20 | ........customizations..It.also. |
| 566a0 | 61 64 6a 75 73 74 73 20 63 6f 6d 6d 65 6e 74 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 66 72 6f 6d | adjusts.comment.indentation.from |
| 566c0 | 20 64 65 66 61 75 6c 74 2e 0a 20 20 20 20 20 20 20 41 6c 6c 20 6f 74 68 65 72 20 70 72 65 64 65 | .default.........All.other.prede |
| 566e0 | 66 69 6e 65 64 20 6d 6f 64 65 73 20 69 6e 68 65 72 69 74 20 66 72 6f 6d 20 62 61 73 69 63 2e 22 | fined.modes.inherit.from.basic." |
| 56700 | 0a 20 20 20 20 20 20 28 3a 69 6e 68 65 72 69 74 20 22 62 61 73 69 63 2d 65 6d 61 63 73 32 36 22 | .......(:inherit."basic-emacs26" |
| 56720 | 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 | )).....(define-common-lisp-style |
| 56740 | 20 22 62 61 73 69 63 22 0a 20 20 20 20 20 20 22 54 68 69 73 20 73 74 79 6c 65 20 6d 65 72 65 6c | ."basic"......."This.style.merel |
| 56760 | 79 20 67 69 76 65 73 20 61 6c 6c 20 69 64 65 6e 74 61 74 69 6f 6e 20 76 61 72 69 61 62 6c 65 73 | y.gives.all.identation.variables |
| 56780 | 20 74 68 65 69 72 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 73 2c 0a 20 20 20 20 20 20 20 6d 61 | .their.default.values,........ma |
| 567a0 | 6b 69 6e 67 20 69 74 20 65 61 73 79 20 74 6f 20 63 72 65 61 74 65 20 6e 65 77 20 73 74 79 6c 65 | king.it.easy.to.create.new.style |
| 567c0 | 73 20 74 68 61 74 20 61 72 65 20 70 72 6f 6f 66 20 61 67 61 69 6e 73 74 20 75 73 65 72 0a 20 20 | s.that.are.proof.against.user... |
| 567e0 | 20 20 20 20 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 73 2e 20 49 74 20 61 6c 73 6f 20 61 64 6a | .....customizations..It.also.adj |
| 56800 | 75 73 74 73 20 63 6f 6d 6d 65 6e 74 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 66 72 6f 6d 20 64 65 | usts.comment.indentation.from.de |
| 56820 | 66 61 75 6c 74 2e 0a 20 20 20 20 20 20 20 41 6c 6c 20 6f 74 68 65 72 20 70 72 65 64 65 66 69 6e | fault.........All.other.predefin |
| 56840 | 65 64 20 6d 6f 64 65 73 20 69 6e 68 65 72 69 74 20 66 72 6f 6d 20 62 61 73 69 63 2e 22 0a 20 20 | ed.modes.inherit.from.basic."... |
| 56860 | 20 20 20 20 28 3a 69 6e 68 65 72 69 74 20 22 62 61 73 69 63 2d 65 6d 61 63 73 32 35 22 29 29 29 | ....(:inherit."basic-emacs25"))) |
| 56880 | 0a 0a 28 64 65 66 69 6e 65 2d 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 20 22 63 6c 61 | ..(define-common-lisp-style."cla |
| 568a0 | 73 73 69 63 22 0a 20 20 22 54 68 69 73 20 73 74 79 6c 65 20 6f 66 20 69 6e 64 65 6e 74 61 74 69 | ssic"..."This.style.of.indentati |
| 568c0 | 6f 6e 20 65 6d 75 6c 61 74 65 73 20 74 68 65 20 6d 6f 73 74 20 73 74 72 69 6b 69 6e 67 20 66 65 | on.emulates.the.most.striking.fe |
| 568e0 | 61 74 75 72 65 73 20 6f 66 20 31 39 39 35 0a 20 20 20 76 69 6e 74 61 67 65 20 63 6c 2d 69 6e 64 | atures.of.1995....vintage.cl-ind |
| 56900 | 65 6e 74 2e 65 6c 20 6f 6e 63 65 20 69 6e 63 6c 75 64 65 64 20 61 73 20 70 61 72 74 20 6f 66 20 | ent.el.once.included.as.part.of. |
| 56920 | 53 6c 69 6d 65 3a 20 49 46 20 69 6e 64 65 6e 74 65 64 20 62 79 20 74 77 6f 0a 20 20 20 73 70 61 | Slime:.IF.indented.by.two....spa |
| 56940 | 63 65 73 2c 20 61 6e 64 20 43 41 53 45 20 63 6c 61 75 73 65 20 62 6f 64 69 65 73 20 69 6e 64 65 | ces,.and.CASE.clause.bodies.inde |
| 56960 | 6e 74 65 6e 74 65 64 20 6d 6f 72 65 20 64 65 65 70 6c 79 20 74 68 61 6e 20 74 68 65 20 6b 65 79 | ntented.more.deeply.than.the.key |
| 56980 | 73 2e 22 0a 20 20 28 3a 69 6e 68 65 72 69 74 20 22 62 61 73 69 63 22 29 0a 20 20 28 3a 76 61 72 | s."...(:inherit."basic")...(:var |
| 569a0 | 69 61 62 6c 65 73 0a 20 20 20 28 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 | iables....(lisp-lambda-list-keyw |
| 569c0 | 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 30 29 29 0a 20 20 | ord-parameter-indentation.0))... |
| 569e0 | 28 3a 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 20 20 20 28 63 61 73 65 20 28 34 20 26 72 65 73 74 20 | (:indentation....(case.(4.&rest. |
| 56a00 | 28 26 77 68 6f 6c 65 20 32 20 26 72 65 73 74 20 33 29 29 29 0a 20 20 20 28 69 66 20 20 20 28 34 | (&whole.2.&rest.3)))....(if...(4 |
| 56a20 | 20 32 20 32 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 | .2.2))))..(define-common-lisp-st |
| 56a40 | 79 6c 65 20 22 6d 6f 64 65 72 6e 22 0a 20 20 22 41 20 67 6f 6f 64 20 67 65 6e 65 72 61 6c 20 70 | yle."modern"..."A.good.general.p |
| 56a60 | 75 72 70 6f 73 65 20 73 74 79 6c 65 2e 20 54 75 72 6e 73 20 6f 6e 20 6c 61 6d 62 64 61 2d 6c 69 | urpose.style..Turns.on.lambda-li |
| 56a80 | 73 74 20 6b 65 79 77 6f 72 64 20 61 6e 64 20 6b 65 79 77 6f 72 64 0a 20 20 20 70 61 72 61 6d 65 | st.keyword.and.keyword....parame |
| 56aa0 | 74 65 72 20 61 6c 69 67 6e 6d 65 6e 74 2c 20 61 6e 64 20 74 75 72 6e 73 20 73 75 62 63 6c 61 75 | ter.alignment,.and.turns.subclau |
| 56ac0 | 73 65 20 61 77 61 72 65 20 6c 6f 6f 70 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 66 2e 0a 20 | se.aware.loop.indentation.off... |
| 56ae0 | 20 20 28 4c 6f 6f 70 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 6f 20 62 65 63 61 75 73 65 20 73 | ..(Loop.indentation.so.because.s |
| 56b00 | 69 6d 70 6c 65 72 20 73 74 79 6c 65 20 69 73 20 6d 6f 72 65 20 70 72 65 76 61 6c 65 6e 74 20 69 | impler.style.is.more.prevalent.i |
| 56b20 | 6e 20 65 78 69 73 74 69 6e 67 0a 20 20 20 73 6f 75 72 63 65 73 2c 20 6e 6f 74 20 62 65 63 61 75 | n.existing....sources,.not.becau |
| 56b40 | 73 65 20 69 74 20 69 73 20 6e 65 63 65 73 73 61 72 69 6c 79 20 70 72 65 66 65 72 72 65 64 2e 29 | se.it.is.necessarily.preferred.) |
| 56b60 | 22 0a 20 20 28 3a 69 6e 68 65 72 69 74 20 22 62 61 73 69 63 22 29 0a 20 20 28 3a 76 61 72 69 61 | "...(:inherit."basic")...(:varia |
| 56b80 | 62 6c 65 73 0a 20 20 20 28 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 | bles....(lisp-lambda-list-keywor |
| 56ba0 | 64 2d 61 6c 69 67 6e 6d 65 6e 74 20 74 29 0a 20 20 20 28 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c | d-alignment.t)....(lisp-lambda-l |
| 56bc0 | 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 61 6c 69 67 6e 6d 65 6e 74 20 | ist-keyword-parameter-alignment. |
| 56be0 | 74 29 0a 20 20 20 28 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d | t)....(lisp-lambda-list-keyword- |
| 56c00 | 70 61 72 61 6d 65 74 65 72 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 30 29 0a 20 20 20 28 6c 69 73 | parameter-indentation.0)....(lis |
| 56c20 | 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 20 6e 69 6c 29 29 29 0a | p-loop-indent-subclauses.nil))). |
| 56c40 | 0a 28 64 65 66 69 6e 65 2d 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 20 22 73 62 63 6c | .(define-common-lisp-style."sbcl |
| 56c60 | 22 0a 20 20 22 53 74 79 6c 65 20 75 73 65 64 20 69 6e 20 53 42 43 4c 20 73 6f 75 72 63 65 73 2e | "..."Style.used.in.SBCL.sources. |
| 56c80 | 20 41 20 67 6f 6f 64 20 69 66 20 73 6f 6d 65 77 68 61 74 20 69 6e 74 72 75 73 69 76 65 20 67 65 | .A.good.if.somewhat.intrusive.ge |
| 56ca0 | 6e 65 72 61 6c 20 70 75 72 70 6f 73 65 0a 20 20 20 73 74 79 6c 65 20 62 61 73 65 64 20 6f 6e 20 | neral.purpose....style.based.on. |
| 56cc0 | 74 68 65 20 5c 22 6d 6f 64 65 72 6e 5c 22 20 73 74 79 6c 65 2e 20 41 64 64 73 20 69 6e 64 65 6e | the.\"modern\".style..Adds.inden |
| 56ce0 | 74 61 74 69 6f 6e 20 66 6f 72 20 61 20 66 65 77 20 53 42 43 4c 0a 20 20 20 73 70 65 63 69 66 69 | tation.for.a.few.SBCL....specifi |
| 56d00 | 63 20 63 6f 6e 73 74 72 75 63 74 73 2c 20 73 65 74 73 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 | c.constructs,.sets.indentation.t |
| 56d20 | 6f 20 75 73 65 20 73 70 61 63 65 73 20 69 6e 73 74 65 61 64 20 6f 66 20 74 61 62 73 2c 0a 20 20 | o.use.spaces.instead.of.tabs,... |
| 56d40 | 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 74 6f 20 37 38 2c 20 61 6e 64 20 61 63 74 69 76 61 74 65 | .fill-column.to.78,.and.activate |
| 56d60 | 73 20 77 68 69 74 65 73 70 61 63 65 2d 6d 6f 64 65 20 74 6f 20 73 68 6f 77 20 74 61 62 73 20 61 | s.whitespace-mode.to.show.tabs.a |
| 56d80 | 6e 64 20 74 72 61 69 6c 69 6e 67 0a 20 20 20 77 68 69 74 65 73 70 61 63 65 2e 22 0a 20 20 28 3a | nd.trailing....whitespace."...(: |
| 56da0 | 69 6e 68 65 72 69 74 20 22 6d 6f 64 65 72 6e 22 29 0a 20 20 28 3a 65 76 61 6c 0a 20 20 20 28 77 | inherit."modern")...(:eval....(w |
| 56dc0 | 68 69 74 65 73 70 61 63 65 2d 6d 6f 64 65 20 31 29 29 0a 20 20 28 3a 76 61 72 69 61 62 6c 65 73 | hitespace-mode.1))...(:variables |
| 56de0 | 0a 20 20 20 28 77 68 69 74 65 73 70 61 63 65 2d 73 74 79 6c 65 20 28 74 61 62 73 20 74 72 61 69 | ....(whitespace-style.(tabs.trai |
| 56e00 | 6c 69 6e 67 29 29 0a 20 20 20 28 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 20 6e 69 6c 29 | ling))....(indent-tabs-mode.nil) |
| 56e20 | 0a 20 20 20 28 63 6f 6d 6d 65 6e 74 2d 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 6e 69 6c 29 0a 20 20 | ....(comment-fill-column.nil)... |
| 56e40 | 20 28 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 37 38 29 29 0a 20 20 28 3a 69 6e 64 65 6e 74 61 74 69 | .(fill-column.78))...(:indentati |
| 56e60 | 6f 6e 0a 20 20 20 28 64 65 66 21 63 6f 6e 73 74 61 6e 74 20 20 20 20 20 20 20 28 61 73 20 64 65 | on....(def!constant.......(as.de |
| 56e80 | 66 63 6f 6e 73 74 61 6e 74 29 29 0a 20 20 20 28 64 65 66 21 6d 61 63 72 6f 20 20 20 20 20 20 20 | fconstant))....(def!macro....... |
| 56ea0 | 20 20 20 28 61 73 20 64 65 66 6d 61 63 72 6f 29 29 0a 20 20 20 28 64 65 66 21 6d 65 74 68 6f 64 | ...(as.defmacro))....(def!method |
| 56ec0 | 20 20 20 20 20 20 20 20 20 28 61 73 20 64 65 66 6d 65 74 68 6f 64 29 29 0a 20 20 20 28 64 65 66 | .........(as.defmethod))....(def |
| 56ee0 | 21 73 74 72 75 63 74 20 20 20 20 20 20 20 20 20 28 61 73 20 64 65 66 73 74 72 75 63 74 29 29 0a | !struct.........(as.defstruct)). |
| 56f00 | 20 20 20 28 64 65 66 21 74 79 70 65 20 20 20 20 20 20 20 20 20 20 20 28 61 73 20 64 65 66 74 79 | ...(def!type...........(as.defty |
| 56f20 | 70 65 29 29 0a 20 20 20 28 64 65 66 6d 61 63 72 6f 2d 6d 75 6e 64 61 6e 65 6c 79 20 28 61 73 20 | pe))....(defmacro-mundanely.(as. |
| 56f40 | 64 65 66 6d 61 63 72 6f 29 29 0a 20 20 20 28 64 65 66 69 6e 65 2d 73 6f 75 72 63 65 2d 74 72 61 | defmacro))....(define-source-tra |
| 56f60 | 6e 73 66 6f 72 6d 20 28 61 73 20 64 65 66 75 6e 29 29 0a 20 20 20 28 21 64 65 66 2d 74 79 70 65 | nsform.(as.defun))....(!def-type |
| 56f80 | 2d 74 72 61 6e 73 6c 61 74 6f 72 20 28 61 73 20 64 65 66 75 6e 29 29 0a 20 20 20 28 21 64 65 66 | -translator.(as.defun))....(!def |
| 56fa0 | 2d 64 65 62 75 67 2d 63 6f 6d 6d 61 6e 64 20 28 61 73 20 64 65 66 75 6e 29 29 29 29 0a 0a 28 64 | -debug-command.(as.defun))))..(d |
| 56fc0 | 65 66 63 75 73 74 6f 6d 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 64 65 66 61 75 | efcustom.common-lisp-style-defau |
| 56fe0 | 6c 74 20 6e 69 6c 0a 20 20 20 20 22 4e 61 6d 65 20 6f 66 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c | lt.nil....."Name.of.the.Common.L |
| 57000 | 69 73 70 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 74 79 6c 65 20 74 6f 20 75 73 65 20 69 6e 20 | isp.indentation.style.to.use.in. |
| 57020 | 6c 69 73 70 2d 6d 6f 64 65 20 62 75 66 66 65 72 73 20 69 66 0a 6e 6f 6e 65 20 68 61 73 20 62 65 | lisp-mode.buffers.if.none.has.be |
| 57040 | 65 6e 20 73 70 65 63 69 66 69 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 60 28 63 68 6f 69 63 65 20 | en.specified."...:type.`(choice. |
| 57060 | 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4e 6f 6e 65 22 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 | (const.:tag."None".nil)......... |
| 57080 | 20 20 20 20 20 20 20 20 20 2c 40 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 73 70 65 63 | .........,@(mapcar.(lambda.(spec |
| 570a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 | )..............................` |
| 570c0 | 28 63 6f 6e 73 74 20 3a 74 61 67 20 2c 28 63 61 72 20 73 70 65 63 29 20 2c 28 63 61 72 20 73 70 | (const.:tag.,(car.spec).,(car.sp |
| 570e0 | 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ec)))........................... |
| 57100 | 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 6e 61 6d 65 73 29 29 0a 20 20 20 20 | .(common-lisp-style-names))..... |
| 57120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 3a 74 61 67 20 22 4f 74 68 65 72 | .............(string.:tag."Other |
| 57140 | 22 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 29 0a 0a 3b 3b 3b 20 | "))...:group.'lisp-indent)..;;;. |
| 57160 | 49 66 20 73 74 79 6c 65 20 69 73 20 62 65 69 6e 67 20 75 73 65 64 2c 20 74 68 61 74 27 73 20 61 | If.style.is.being.used,.that's.a |
| 57180 | 20 73 75 66 66 69 63 69 65 6e 74 20 69 6e 76 69 74 61 74 69 6f 6e 20 74 6f 20 73 6e 61 67 0a 3b | .sufficient.invitation.to.snag.; |
| 571a0 | 3b 3b 20 74 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2e 0a 28 64 65 | ;;.the.indentation.function..(de |
| 571c0 | 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 28 | fun.common-lisp-lisp-mode-hook.( |
| 571e0 | 29 0a 20 20 28 6c 65 74 20 28 28 73 74 79 6c 65 20 28 6f 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | )...(let.((style.(or.common-lisp |
| 57200 | 2d 73 74 79 6c 65 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 2d 64 65 66 61 75 6c 74 | -style.common-lisp-style-default |
| 57220 | 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 73 74 79 6c 65 0a 20 20 20 20 20 20 28 73 65 74 20 28 | ))).....(when.style.......(set.( |
| 57240 | 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 | make-local-variable.'lisp-indent |
| 57260 | 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 | -function)............'common-li |
| 57280 | 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 63 6f 6d 6d 6f | sp-indent-function).......(commo |
| 572a0 | 6e 2d 6c 69 73 70 2d 73 65 74 2d 73 74 79 6c 65 20 73 74 79 6c 65 29 29 29 29 0a 28 61 64 64 2d | n-lisp-set-style.style)))).(add- |
| 572c0 | 68 6f 6f 6b 20 27 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 | hook.'lisp-mode-hook.'common-lis |
| 572e0 | 70 2d 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 68 65 20 69 6e | p-lisp-mode-hook)....;;;;.The.in |
| 57300 | 64 65 6e 74 61 74 69 6f 6e 20 73 70 65 63 73 20 61 72 65 20 73 74 6f 72 65 64 20 61 74 20 74 68 | dentation.specs.are.stored.at.th |
| 57320 | 72 65 65 20 6c 65 76 65 6c 73 2e 20 49 6e 20 6f 72 64 65 72 20 6f 66 20 70 72 69 6f 72 69 74 79 | ree.levels..In.order.of.priority |
| 57340 | 3a 0a 3b 3b 3b 3b 0a 3b 3b 3b 3b 20 31 2e 20 49 6e 64 65 6e 74 61 74 69 6f 6e 20 61 73 20 73 65 | :.;;;;.;;;;.1..Indentation.as.se |
| 57360 | 74 20 62 79 20 63 75 72 72 65 6e 74 20 73 74 79 6c 65 2c 20 66 72 6f 6d 20 74 68 65 20 69 6e 64 | t.by.current.style,.from.the.ind |
| 57380 | 65 6e 74 61 74 69 6f 6e 20 74 61 62 6c 65 0a 3b 3b 3b 3b 20 20 20 20 69 6e 20 74 68 65 20 63 75 | entation.table.;;;;....in.the.cu |
| 573a0 | 72 72 65 6e 74 20 73 74 79 6c 65 2e 0a 3b 3b 3b 3b 0a 3b 3b 3b 3b 20 32 2e 20 47 6c 6f 62 61 6c | rrent.style..;;;;.;;;;.2..Global |
| 573c0 | 6c 79 20 73 65 74 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2c 20 66 72 6f 6d 20 74 68 65 20 60 63 6f | ly.set.indentation,.from.the.`co |
| 573e0 | 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 0a 3b 3b 3b 3b 20 | mmon-lisp-indent-function'.;;;;. |
| 57400 | 20 20 20 70 72 6f 70 65 72 74 79 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 2e 0a 3b 3b 3b 3b 0a | ...property.of.the.symbol..;;;;. |
| 57420 | 3b 3b 3b 3b 20 33 2e 20 50 65 72 2d 70 61 63 6b 61 67 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 | ;;;;.3..Per-package.indentation. |
| 57440 | 64 65 72 69 76 65 64 20 62 79 20 74 68 65 20 73 79 73 74 65 6d 2e 20 41 20 6c 69 76 65 20 43 6f | derived.by.the.system..A.live.Co |
| 57460 | 6d 6d 6f 6e 20 4c 69 73 70 0a 3b 3b 3b 3b 20 20 20 20 73 79 73 74 65 6d 20 6d 61 79 20 28 76 69 | mmon.Lisp.;;;;....system.may.(vi |
| 57480 | 61 20 53 6c 69 6d 65 2c 20 65 67 2e 29 20 61 64 64 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 70 | a.Slime,.eg.).add.indentation.sp |
| 574a0 | 65 63 73 20 74 6f 0a 3b 3b 3b 3b 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 79 73 74 65 | ecs.to.;;;;....common-lisp-syste |
| 574c0 | 6d 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2c 20 77 68 65 72 65 20 74 68 65 79 20 61 72 65 20 61 73 | m-indentation,.where.they.are.as |
| 574e0 | 73 6f 63 69 61 74 65 64 20 77 69 74 68 0a 3b 3b 3b 3b 20 20 20 20 74 68 65 20 70 61 63 6b 61 67 | sociated.with.;;;;....the.packag |
| 57500 | 65 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 2e 20 54 68 65 6e 20 77 65 20 72 75 6e 20 73 6f 6d | e.of.the.symbol..Then.we.run.som |
| 57520 | 65 20 6c 6f 73 73 79 20 68 65 75 72 69 73 74 69 63 73 20 61 6e 64 0a 3b 3b 3b 3b 20 20 20 20 66 | e.lossy.heuristics.and.;;;;....f |
| 57540 | 69 6e 64 20 73 6f 6d 65 74 68 69 6e 67 20 74 68 61 74 20 6c 6f 6f 6b 73 20 70 72 6f 6d 69 73 69 | ind.something.that.looks.promisi |
| 57560 | 6e 67 2e 0a 3b 3b 3b 3b 0a 3b 3b 3b 3b 20 20 20 20 46 49 58 4d 45 3a 20 66 6f 72 20 6e 6f 6e 2d | ng..;;;;.;;;;....FIXME:.for.non- |
| 57580 | 73 79 73 74 65 6d 20 70 61 63 6b 61 67 65 73 20 74 68 65 20 64 65 72 69 76 65 64 20 69 6e 64 65 | system.packages.the.derived.inde |
| 575a0 | 6e 74 61 74 69 6f 6e 20 73 68 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 0a 3b 3b 3b 3b 20 20 20 20 | ntation.should.probably.;;;;.... |
| 575c0 | 74 61 6b 65 20 70 72 65 63 65 64 65 6e 63 65 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 6d 61 70 73 20 | take.precedence...;;;.This.maps. |
| 575e0 | 73 79 6d 62 6f 6c 73 20 69 6e 74 6f 20 6c 69 73 74 73 20 6f 66 20 28 49 4e 44 45 4e 54 20 2e 20 | symbols.into.lists.of.(INDENT... |
| 57600 | 50 41 43 4b 41 47 45 53 29 20 77 68 65 72 65 20 49 4e 44 45 4e 54 20 69 73 0a 3b 3b 3b 20 61 6e | PACKAGES).where.INDENT.is.;;;.an |
| 57620 | 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 70 65 63 2c 20 61 6e 64 20 50 41 43 4b 41 47 45 53 20 | .indentation.spec,.and.PACKAGES. |
| 57640 | 61 72 65 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 70 61 63 6b 61 67 65 73 20 77 68 65 72 65 20 | are.the.names.of.packages.where. |
| 57660 | 74 68 69 73 0a 3b 3b 3b 20 61 70 70 6c 69 65 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 57 65 20 6e 65 76 | this.;;;.applies..;;;.;;;.We.nev |
| 57680 | 65 72 20 61 64 64 20 73 74 75 66 66 20 68 65 72 65 20 62 79 20 6f 75 72 73 65 6c 76 65 73 3a 20 | er.add.stuff.here.by.ourselves:. |
| 576a0 | 74 68 69 73 20 69 73 20 66 6f 72 20 74 68 69 6e 67 73 20 6c 69 6b 65 20 53 6c 69 6d 65 20 74 6f | this.is.for.things.like.Slime.to |
| 576c0 | 0a 3b 3b 3b 20 66 69 6c 6c 2e 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 | .;;;.fill..(defvar.common-lisp-s |
| 576e0 | 79 73 74 65 6d 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 | ystem-indentation.(make-hash-tab |
| 57700 | 6c 65 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e | le.:test.'equal))..(defun.common |
| 57720 | 2d 6c 69 73 70 2d 67 75 65 73 73 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 20 28 29 0a 20 | -lisp-guess-current-package.().. |
| 57740 | 20 28 6c 65 74 20 28 70 6b 67 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a | .(let.(pkg).....(save-excursion. |
| 57760 | 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 28 77 68 | ......(ignore-errors.........(wh |
| 57780 | 65 6e 20 28 6c 65 74 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 29 29 0a 20 | en.(let.((case-fold-search.t)).. |
| 577a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 | ...............(search-backward. |
| 577c0 | 22 28 69 6e 2d 70 61 63 6b 61 67 65 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 | "(in-package."))...........(re-s |
| 577e0 | 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 20 3a 5c 22 5d 2b 22 29 0a 20 20 20 20 20 20 20 | earch-forward."[.:\"]+")........ |
| 57800 | 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 | ...(let.((start.(point)))....... |
| 57820 | 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 5c 22 3a 29 5d | ......(re-search-forward."[\":)] |
| 57840 | 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 70 6b 67 20 28 75 70 63 61 73 65 | ").............(setf.pkg.(upcase |
| 57860 | 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 | .(buffer-substring-no-properties |
| 57880 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 578a0 | 73 74 61 72 74 20 28 31 2d 20 28 70 6f 69 6e 74 29 29 29 29 29 29 29 29 29 0a 20 20 20 20 70 6b | start.(1-.(point))))))))).....pk |
| 578c0 | 67 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 63 75 72 72 65 6e 74 | g))..(defvar.common-lisp-current |
| 578e0 | 2d 70 61 63 6b 61 67 65 2d 66 75 6e 63 74 69 6f 6e 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 67 | -package-function.'common-lisp-g |
| 57900 | 75 65 73 73 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 0a 20 20 22 55 73 65 64 20 74 6f 20 | uess-current-package..."Used.to. |
| 57920 | 64 65 72 69 76 65 20 74 68 65 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 20 74 6f 20 75 73 65 20 66 | derive.the.package.name.to.use.f |
| 57940 | 6f 72 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 61 74 20 61 0a 67 69 76 65 6e 20 70 6f 69 6e 74 2e | or.indentation.at.a.given.point. |
| 57960 | 20 44 65 66 61 75 6c 74 73 20 74 6f 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 67 75 65 73 73 2d | .Defaults.to.`common-lisp-guess- |
| 57980 | 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d | current-package'.")..(defun.comm |
| 579a0 | 6f 6e 2d 6c 69 73 70 2d 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 28 73 74 72 69 6e 67 29 0a | on-lisp-symbol-package.(string). |
| 579c0 | 20 20 28 69 66 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 73 74 72 69 6e 67 29 20 28 73 74 72 | ..(if.(and.(stringp.string).(str |
| 579e0 | 69 6e 67 2d 6d 61 74 63 68 20 22 3a 22 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 28 6c 65 | ing-match.":".string)).......(le |
| 57a00 | 74 20 28 28 70 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 0a 20 20 20 20 | t.((p.(match-beginning.0)))..... |
| 57a20 | 20 20 20 20 28 69 66 20 28 65 71 6c 20 30 20 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 4b | ....(if.(eql.0.p)............."K |
| 57a40 | 45 59 57 4f 52 44 22 0a 20 20 20 20 20 20 20 20 20 20 28 75 70 63 61 73 65 20 28 73 75 62 73 74 | EYWORD"...........(upcase.(subst |
| 57a60 | 72 69 6e 67 20 73 74 72 69 6e 67 20 30 20 70 29 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c | ring.string.0.p)))).....(funcall |
| 57a80 | 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 2d 66 75 6e | .common-lisp-current-package-fun |
| 57aa0 | 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 67 65 74 | ction)))..(defun.common-lisp-get |
| 57ac0 | 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 66 75 6c | -indentation.(name.&optional.ful |
| 57ae0 | 6c 29 0a 20 20 22 52 65 74 72 69 65 76 65 73 20 74 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 | l)..."Retrieves.the.indentation. |
| 57b00 | 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 4e 41 4d 45 2e 22 0a 20 20 28 6c 65 74 20 28 28 | information.for.NAME."...(let.(( |
| 57b20 | 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 28 6f 72 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | method..........(or...........;; |
| 57b40 | 20 46 72 6f 6d 20 73 74 79 6c 65 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 6f 6d 6d | .From.style...........(when.comm |
| 57b60 | 6f 6e 2d 6c 69 73 70 2d 73 74 79 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 68 61 | on-lisp-style.............(getha |
| 57b80 | 73 68 20 6e 61 6d 65 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 63 74 69 76 65 2d 73 74 79 6c | sh.name.(common-lisp-active-styl |
| 57ba0 | 65 2d 6d 65 74 68 6f 64 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 72 6f 6d 20 67 | e-methods)))...........;;.From.g |
| 57bc0 | 6c 6f 62 61 6c 20 73 65 74 74 69 6e 67 73 2e 0a 20 20 20 20 20 20 20 20 20 20 28 67 65 74 20 6e | lobal.settings............(get.n |
| 57be0 | 61 6d 65 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e | ame.'common-lisp-indent-function |
| 57c00 | 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 72 6f 6d 20 73 79 73 74 65 6d 20 64 65 72 69 76 | )...........;;.From.system.deriv |
| 57c20 | 65 64 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | ed.information............(let.( |
| 57c40 | 28 73 79 73 74 65 6d 2d 69 6e 66 6f 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 63 6f 6d 6d 6f | (system-info.(gethash.name.commo |
| 57c60 | 6e 2d 6c 69 73 70 2d 73 79 73 74 65 6d 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 29 0a 20 20 20 | n-lisp-system-indentation))).... |
| 57c80 | 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 63 64 72 20 73 79 73 74 65 6d 2d 69 6e | .........(if.(not.(cdr.system-in |
| 57ca0 | 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 61 72 20 73 79 73 74 65 | fo)).................(caar.syste |
| 57cc0 | 6d 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 67 75 65 | m-info)...............(let.((gue |
| 57ce0 | 73 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 75 65 | ss.nil).....................(gue |
| 57d00 | 73 73 2d 6e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 | ss-n.0).....................(pac |
| 57d20 | 6b 61 67 65 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 | kage.(common-lisp-symbol-package |
| 57d40 | 20 66 75 6c 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 64 6f 6c | .full))).................(cl-dol |
| 57d60 | 69 73 74 20 28 69 6e 66 6f 20 73 79 73 74 65 6d 2d 69 6e 66 6f 20 67 75 65 73 73 29 0a 20 20 20 | ist.(info.system-info.guess).... |
| 57d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 6b 67 73 20 28 63 64 72 | ...............(let*.((pkgs.(cdr |
| 57da0 | 20 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .info))......................... |
| 57dc0 | 20 28 6e 20 28 6c 65 6e 67 74 68 20 70 6b 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .(n.(length.pkgs)))............. |
| 57de0 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6d 65 6d 62 65 72 20 70 61 63 6b 61 67 65 20 70 | ........(cond.((member.package.p |
| 57e00 | 6b 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kgs)............................ |
| 57e20 | 3b 3b 20 54 68 69 73 20 69 73 20 69 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;;.This.is.it................... |
| 57e40 | 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 74 75 72 6e 20 28 63 61 72 20 69 6e 66 6f 29 29 | ..........(cl-return.(car.info)) |
| 57e60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3e 20 | )...........................((>. |
| 57e80 | 6e 20 67 75 65 73 73 2d 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.guess-n)...................... |
| 57ea0 | 20 20 20 20 20 20 3b 3b 20 49 66 20 77 65 20 63 61 6e 27 74 20 66 69 6e 64 20 74 68 65 20 72 65 | ......;;.If.we.can't.find.the.re |
| 57ec0 | 61 6c 20 74 68 69 6e 67 2c 20 67 6f 20 77 69 74 68 20 74 68 65 20 6f 6e 65 0a 20 20 20 20 20 20 | al.thing,.go.with.the.one....... |
| 57ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 63 63 65 73 73 69 62 | .....................;;.accessib |
| 57f00 | 6c 65 20 69 6e 20 6d 6f 73 74 20 70 61 63 6b 61 67 65 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 | le.in.most.packages............. |
| 57f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 67 75 65 73 73 20 28 63 61 72 | ................(setf.guess.(car |
| 57f40 | 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .info).......................... |
| 57f60 | 20 20 20 20 20 20 20 20 67 75 65 73 73 2d 6e 20 6e 29 29 29 29 29 29 29 29 29 29 29 0a 20 20 20 | ........guess-n.n))))))))))).... |
| 57f80 | 20 28 69 66 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 6d 65 74 68 6f 64 29 20 28 65 71 20 27 61 73 | .(if.(and.(consp.method).(eq.'as |
| 57fa0 | 20 28 63 61 72 20 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d | .(car.method))).........(common- |
| 57fc0 | 6c 69 73 70 2d 67 65 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 63 61 64 72 20 6d 65 74 68 6f | lisp-get-indentation.(cadr.metho |
| 57fe0 | 64 29 29 0a 20 20 20 20 20 20 6d 65 74 68 6f 64 29 29 29 0a 0c 0a 3b 3b 3b 3b 20 4c 4f 4f 50 20 | d)).......method)))...;;;;.LOOP. |
| 58000 | 69 6e 64 65 6e 74 61 74 69 6f 6e 2c 20 74 68 65 20 73 69 6d 70 6c 65 20 76 65 72 73 69 6f 6e 0a | indentation,.the.simple.version. |
| 58020 | 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 70 2d 74 79 70 65 20 28 6c | .(defun.common-lisp-loop-type.(l |
| 58040 | 6f 6f 70 2d 73 74 61 72 74 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 68 65 20 74 79 70 65 20 6f | oop-start)..."Returns.the.type.o |
| 58060 | 66 20 74 68 65 20 6c 6f 6f 70 20 66 6f 72 6d 20 61 74 20 4c 4f 4f 50 2d 53 54 41 52 54 2e 0a 50 | f.the.loop.form.at.LOOP-START..P |
| 58080 | 6f 73 73 69 62 6c 65 20 74 79 70 65 73 20 61 72 65 20 53 49 4d 50 4c 45 2c 20 53 49 4d 50 4c 45 | ossible.types.are.SIMPLE,.SIMPLE |
| 580a0 | 2f 53 50 4c 49 54 2c 20 45 58 54 45 4e 44 45 44 2c 20 61 6e 64 20 45 58 54 45 4e 44 45 44 2f 53 | /SPLIT,.EXTENDED,.and.EXTENDED/S |
| 580c0 | 50 4c 49 54 2e 20 2a 2f 53 50 4c 49 54 0a 72 65 66 65 72 73 20 74 6f 20 65 78 74 65 6e 64 65 64 | PLIT..*/SPLIT.refers.to.extended |
| 580e0 | 20 6c 6f 6f 70 73 20 77 68 6f 73 65 20 62 6f 64 79 20 64 6f 65 73 20 6e 6f 74 20 73 74 61 72 74 | .loops.whose.body.does.not.start |
| 58100 | 20 6f 6e 20 74 68 65 20 73 61 6d 65 20 6c 69 6e 65 20 61 73 20 74 68 65 0a 6f 70 65 6e 69 6e 67 | .on.the.same.line.as.the.opening |
| 58120 | 20 70 61 72 65 6e 74 68 65 73 69 73 20 6f 66 20 74 68 65 20 6c 6f 6f 70 2e 22 0a 20 20 28 6c 65 | .parenthesis.of.the.loop."...(le |
| 58140 | 74 20 28 63 6f 6d 6d 65 6e 74 2d 73 70 6c 69 74 29 0a 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e | t.(comment-split).....(condition |
| 58160 | 2d 63 61 73 65 20 28 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e | -case.().........(save-excursion |
| 58180 | 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6c 6f 6f 70 2d 73 74 61 72 74 | ...........(goto-char.loop-start |
| 581a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 69 6e 65 20 28 6c 69 6e 65 2d 6e 75 | )...........(let.((line.(line-nu |
| 581c0 | 6d 62 65 72 2d 61 74 2d 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | mber-at-pos)).................(m |
| 581e0 | 61 79 62 65 2d 73 70 6c 69 74 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 | aybe-split.t)).............(forw |
| 58200 | 61 72 64 2d 63 68 61 72 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 | ard-char.1).............(forward |
| 58220 | 2d 73 65 78 70 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 | -sexp.1).............(save-excur |
| 58240 | 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6c 6f 6f 6b 69 6e | sion...............(when.(lookin |
| 58260 | 67 2d 61 74 20 22 5c 5c 73 2d 2a 5c 5c 5c 6e 2a 3b 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | g-at."\\s-*\\\n*;")............. |
| 58280 | 20 20 20 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 3b 22 29 0a 20 20 20 20 20 20 20 | ....(search-forward.";")........ |
| 582a0 | 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 31 29 0a 20 20 20 20 20 | .........(backward-char.1)...... |
| 582c0 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3d 20 6c 69 6e 65 20 28 6c 69 6e 65 2d 6e 75 6d | ...........(if.(=.line.(line-num |
| 582e0 | 62 65 72 2d 61 74 2d 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ber-at-pos)).................... |
| 58300 | 20 28 73 65 74 71 20 6d 61 79 62 65 2d 73 70 6c 69 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 | .(setq.maybe-split.nil)......... |
| 58320 | 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6d 6d 65 6e 74 2d 73 70 6c 69 74 20 74 29 | ..........(setq.comment-split.t) |
| 58340 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 29 | ))).............(forward-sexp.1) |
| 58360 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 20 31 29 0a 20 | .............(backward-sexp.1).. |
| 58380 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 6c 20 28 63 68 61 72 2d 61 66 74 65 72 29 | ...........(if.(eql.(char-after) |
| 583a0 | 20 3f 5c 28 29 0a 09 09 28 69 66 20 28 6f 72 20 28 6e 6f 74 20 6d 61 79 62 65 2d 73 70 6c 69 74 | .?\()...(if.(or.(not.maybe-split |
| 583c0 | 29 20 28 3d 20 6c 69 6e 65 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 29 29 29 | ).(=.line.(line-number-at-pos))) |
| 583e0 | 0a 09 09 20 20 20 20 27 73 69 6d 70 6c 65 0a 09 09 20 20 20 20 27 73 69 6d 70 6c 65 2f 73 70 6c | .......'simple.......'simple/spl |
| 58400 | 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 6e 6f 74 20 6d | it)...............(if.(or.(not.m |
| 58420 | 61 79 62 65 2d 73 70 6c 69 74 29 20 28 3d 20 6c 69 6e 65 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 | aybe-split).(=.line.(line-number |
| 58440 | 2d 61 74 2d 70 6f 73 29 29 29 0a 09 09 20 20 27 65 78 74 65 6e 64 65 64 0a 09 09 20 20 27 65 78 | -at-pos))).....'extended.....'ex |
| 58460 | 74 65 6e 64 65 64 2f 73 70 6c 69 74 29 29 29 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 0a 20 20 | tended/split)))).......(error... |
| 58480 | 20 20 20 20 20 28 69 66 20 63 6f 6d 6d 65 6e 74 2d 73 70 6c 69 74 0a 20 20 20 20 20 20 20 20 20 | .....(if.comment-split.......... |
| 584a0 | 20 20 27 73 69 6d 70 6c 65 2f 73 70 6c 69 74 0a 20 20 20 20 20 20 20 20 20 27 73 69 6d 70 6c 65 | ..'simple/split..........'simple |
| 584c0 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 74 72 61 69 6c 69 | )))))..(defun.common-lisp-traili |
| 584e0 | 6e 67 2d 63 6f 6d 6d 65 6e 74 20 28 29 0a 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 | ng-comment.()...(ignore-errors.. |
| 58500 | 20 20 20 3b 3b 20 49 66 20 77 65 20 68 61 64 20 61 20 74 72 61 69 6c 69 6e 67 20 63 6f 6d 6d 65 | ...;;.If.we.had.a.trailing.comme |
| 58520 | 6e 74 20 6a 75 73 74 20 62 65 66 6f 72 65 20 74 68 69 73 2c 20 66 69 6e 64 20 69 74 2e 0a 20 20 | nt.just.before.this,.find.it.... |
| 58540 | 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 | ..(save-excursion.......(backwar |
| 58560 | 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 | d-sexp).......(forward-sexp).... |
| 58580 | 20 20 20 28 77 68 65 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 2d 2a 3b 22 29 0a 20 | ...(when.(looking-at."\\s-*;").. |
| 585a0 | 20 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 3b 22 29 0a 20 20 20 20 | .......(search-forward.";")..... |
| 585c0 | 20 20 20 20 28 31 2d 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 29 29 29 0a 0a 3b | ....(1-.(current-column))))))..; |
| 585e0 | 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | ;;###autoload.(defun.common-lisp |
| 58600 | 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 28 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 | -indent-function.(indent-point.s |
| 58620 | 74 61 74 65 29 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 69 6e 64 65 6e 74 20 74 68 65 20 | tate)..."Function.to.indent.the. |
| 58640 | 61 72 67 75 6d 65 6e 74 73 20 6f 66 20 61 20 4c 69 73 70 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c | arguments.of.a.Lisp.function.cal |
| 58660 | 6c 2e 0a 54 68 69 73 20 69 73 20 73 75 69 74 61 62 6c 65 20 66 6f 72 20 75 73 65 20 61 73 20 74 | l..This.is.suitable.for.use.as.t |
| 58680 | 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 0a 60 6c 69 73 70 2d 69 | he.value.of.the.variable.`lisp-i |
| 586a0 | 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 2e 20 20 49 4e 44 45 4e 54 2d 50 4f 49 4e 54 20 69 | ndent-function'...INDENT-POINT.i |
| 586c0 | 73 20 74 68 65 20 70 6f 69 6e 74 20 61 74 20 77 68 69 63 68 20 74 68 65 0a 69 6e 64 65 6e 74 61 | s.the.point.at.which.the.indenta |
| 586e0 | 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 2c 20 61 6e 64 20 53 54 41 | tion.function.is.called,.and.STA |
| 58700 | 54 45 20 69 73 20 74 68 65 0a 60 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 27 20 73 | TE.is.the.`parse-partial-sexp'.s |
| 58720 | 74 61 74 65 20 61 74 20 74 68 61 74 20 70 6f 73 69 74 69 6f 6e 2e 20 20 42 72 6f 77 73 65 20 74 | tate.at.that.position...Browse.t |
| 58740 | 68 65 0a 60 6c 69 73 70 2d 69 6e 64 65 6e 74 27 20 63 75 73 74 6f 6d 69 7a 65 20 67 72 6f 75 70 | he.`lisp-indent'.customize.group |
| 58760 | 20 66 6f 72 20 6f 70 74 69 6f 6e 73 20 61 66 66 65 63 74 69 6e 67 20 74 68 65 20 62 65 68 61 76 | .for.options.affecting.the.behav |
| 58780 | 69 6f 72 0a 6f 66 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 49 66 20 74 68 65 20 69 6e | ior.of.this.function...If.the.in |
| 587a0 | 64 65 6e 74 61 74 69 6f 6e 20 70 6f 69 6e 74 20 69 73 20 69 6e 20 61 20 63 61 6c 6c 20 74 6f 20 | dentation.point.is.in.a.call.to. |
| 587c0 | 61 20 4c 69 73 70 20 66 75 6e 63 74 69 6f 6e 2c 20 74 68 61 74 0a 66 75 6e 63 74 69 6f 6e 27 73 | a.Lisp.function,.that.function's |
| 587e0 | 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 70 72 6f | .common-lisp-indent-function.pro |
| 58800 | 70 65 72 74 79 20 73 70 65 63 69 66 69 65 73 20 68 6f 77 0a 74 68 69 73 20 66 75 6e 63 74 69 6f | perty.specifies.how.this.functio |
| 58820 | 6e 20 73 68 6f 75 6c 64 20 69 6e 64 65 6e 74 20 69 74 2e 20 20 50 6f 73 73 69 62 6c 65 20 76 61 | n.should.indent.it...Possible.va |
| 58840 | 6c 75 65 73 20 66 6f 72 20 74 68 69 73 0a 70 72 6f 70 65 72 74 79 20 61 72 65 3a 0a 0a 2a 20 64 | lues.for.this.property.are:..*.d |
| 58860 | 65 66 75 6e 2c 20 6d 65 61 6e 69 6e 67 20 69 6e 64 65 6e 74 20 61 63 63 6f 72 64 69 6e 67 20 74 | efun,.meaning.indent.according.t |
| 58880 | 6f 20 60 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 64 65 66 75 6e 2d 6d 65 74 68 6f 64 27 3b 0a 20 20 | o.`lisp-indent-defun-method';... |
| 588a0 | 69 2e 65 2e 2c 20 6c 69 6b 65 20 28 34 20 26 6c 61 6d 62 64 61 20 26 62 6f 64 79 29 2c 20 61 73 | i.e.,.like.(4.&lambda.&body),.as |
| 588c0 | 20 65 78 70 6c 61 69 6e 65 64 20 62 65 6c 6f 77 2e 0a 0a 2a 20 61 6e 79 20 6f 74 68 65 72 20 73 | .explained.below...*.any.other.s |
| 588e0 | 79 6d 62 6f 6c 2c 20 6d 65 61 6e 69 6e 67 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c | ymbol,.meaning.a.function.to.cal |
| 58900 | 6c 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 0a 20 20 74 61 6b 65 20 74 | l...The.function.should...take.t |
| 58920 | 68 65 20 61 72 67 75 6d 65 6e 74 73 3a 20 50 41 54 48 20 53 54 41 54 45 20 49 4e 44 45 4e 54 2d | he.arguments:.PATH.STATE.INDENT- |
| 58940 | 50 4f 49 4e 54 20 53 45 58 50 2d 43 4f 4c 55 4d 4e 20 4e 4f 52 4d 41 4c 2d 49 4e 44 45 4e 54 2e | POINT.SEXP-COLUMN.NORMAL-INDENT. |
| 58960 | 0a 20 20 50 41 54 48 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 69 6e 74 65 67 65 72 73 20 64 65 | ...PATH.is.a.list.of.integers.de |
| 58980 | 73 63 72 69 62 69 6e 67 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 70 6f 69 6e 74 20 69 | scribing.the.position.of.point.i |
| 589a0 | 6e 20 74 65 72 6d 73 20 6f 66 0a 20 20 6c 69 73 74 2d 73 74 72 75 63 74 75 72 65 20 77 69 74 68 | n.terms.of...list-structure.with |
| 589c0 | 20 72 65 73 70 65 63 74 20 74 6f 20 74 68 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6c 69 73 74 73 | .respect.to.the.containing.lists |
| 589e0 | 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 69 6e 0a 20 20 28 28 61 20 62 20 63 20 28 64 20 | ...For.example,.in...((a.b.c.(d. |
| 58a00 | 66 6f 6f 29 20 66 29 20 67 29 2c 20 66 6f 6f 20 68 61 73 20 61 20 70 61 74 68 20 6f 66 20 28 30 | foo).f).g),.foo.has.a.path.of.(0 |
| 58a20 | 20 33 20 31 29 2e 20 20 49 6e 20 6f 74 68 65 72 20 77 6f 72 64 73 2c 0a 20 20 74 6f 20 72 65 61 | .3.1)...In.other.words,...to.rea |
| 58a40 | 63 68 20 66 6f 6f 20 74 61 6b 65 20 74 68 65 20 30 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 | ch.foo.take.the.0th.element.of.t |
| 58a60 | 68 65 20 6f 75 74 65 72 6d 6f 73 74 20 6c 69 73 74 2c 20 74 68 65 6e 0a 20 20 74 68 65 20 33 72 | he.outermost.list,.then...the.3r |
| 58a80 | 64 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6e 65 78 74 20 6c 69 73 74 2c 20 61 6e 64 20 | d.element.of.the.next.list,.and. |
| 58aa0 | 66 69 6e 61 6c 6c 79 20 74 68 65 20 31 73 74 20 65 6c 65 6d 65 6e 74 2e 0a 20 20 53 54 41 54 45 | finally.the.1st.element....STATE |
| 58ac0 | 20 61 6e 64 20 49 4e 44 45 4e 54 2d 50 4f 49 4e 54 20 61 72 65 20 61 73 20 69 6e 20 74 68 65 20 | .and.INDENT-POINT.are.as.in.the. |
| 58ae0 | 61 72 67 75 6d 65 6e 74 73 20 74 6f 0a 20 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 | arguments.to...`common-lisp-inde |
| 58b00 | 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 2e 20 20 53 45 58 50 2d 43 4f 4c 55 4d 4e 20 69 73 20 74 68 | nt-function'...SEXP-COLUMN.is.th |
| 58b20 | 65 20 63 6f 6c 75 6d 6e 20 6f 66 0a 20 20 74 68 65 20 6f 70 65 6e 20 70 61 72 65 6e 74 68 65 73 | e.column.of...the.open.parenthes |
| 58b40 | 69 73 20 6f 66 20 74 68 65 20 69 6e 6e 65 72 6d 6f 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6c | is.of.the.innermost.containing.l |
| 58b60 | 69 73 74 2e 0a 20 20 4e 4f 52 4d 41 4c 2d 49 4e 44 45 4e 54 20 69 73 20 74 68 65 20 63 6f 6c 75 | ist....NORMAL-INDENT.is.the.colu |
| 58b80 | 6d 6e 20 74 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 70 6f 69 6e 74 20 77 61 73 0a 20 20 6f | mn.the.indentation.point.was...o |
| 58ba0 | 72 69 67 69 6e 61 6c 6c 79 20 69 6e 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f | riginally.in...This.function.sho |
| 58bc0 | 75 6c 64 20 62 65 68 61 76 65 20 6c 69 6b 65 20 60 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 32 35 39 | uld.behave.like.`lisp-indent-259 |
| 58be0 | 27 2e 0a 0a 2a 20 61 6e 20 69 6e 74 65 67 65 72 20 4e 2c 20 6d 65 61 6e 69 6e 67 20 69 6e 64 65 | '...*.an.integer.N,.meaning.inde |
| 58c00 | 6e 74 20 74 68 65 20 66 69 72 73 74 20 4e 20 61 72 67 75 6d 65 6e 74 73 20 6c 69 6b 65 0a 20 20 | nt.the.first.N.arguments.like... |
| 58c20 | 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 6d 65 6e 74 73 2c 20 61 6e 64 20 61 6e 79 20 66 75 72 74 | function.arguments,.and.any.furt |
| 58c40 | 68 65 72 20 61 72 67 75 6d 65 6e 74 73 20 6c 69 6b 65 20 61 20 62 6f 64 79 2e 0a 20 20 54 68 69 | her.arguments.like.a.body....Thi |
| 58c60 | 73 20 69 73 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 28 34 20 34 20 2e 2e 2e 20 26 62 6f 64 | s.is.equivalent.to.(4.4.....&bod |
| 58c80 | 79 29 2e 0a 0a 2a 20 61 20 6c 69 73 74 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 60 61 73 27 | y)...*.a.list.starting.with.`as' |
| 58ca0 | 20 73 70 65 63 69 66 69 65 73 20 61 6e 20 69 6e 64 69 72 65 63 74 69 6f 6e 3a 20 69 6e 64 65 6e | .specifies.an.indirection:.inden |
| 58cc0 | 74 61 74 69 6f 6e 20 69 73 20 64 6f 6e 65 20 61 73 0a 20 20 69 66 20 74 68 65 20 66 6f 72 6d 20 | tation.is.done.as...if.the.form. |
| 58ce0 | 62 65 69 6e 67 20 69 6e 64 65 6e 74 65 64 20 68 61 64 20 73 74 61 72 74 65 64 20 77 69 74 68 20 | being.indented.had.started.with. |
| 58d00 | 74 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 2e 0a | the.second.element.of.the.list.. |
| 58d20 | 0a 2a 20 61 6e 79 20 6f 74 68 65 72 20 6c 69 73 74 2e 20 20 54 68 65 20 6c 69 73 74 20 65 6c 65 | .*.any.other.list...The.list.ele |
| 58d40 | 6d 65 6e 74 20 69 6e 20 70 6f 73 69 74 69 6f 6e 20 4d 20 73 70 65 63 69 66 69 65 73 20 68 6f 77 | ment.in.position.M.specifies.how |
| 58d60 | 20 74 6f 20 69 6e 64 65 6e 74 20 74 68 65 0a 20 20 4d 74 68 20 66 75 6e 63 74 69 6f 6e 20 61 72 | .to.indent.the...Mth.function.ar |
| 58d80 | 67 75 6d 65 6e 74 2e 20 20 49 66 20 74 68 65 72 65 20 61 72 65 20 66 65 77 65 72 20 65 6c 65 6d | gument...If.there.are.fewer.elem |
| 58da0 | 65 6e 74 73 20 74 68 61 6e 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 6d 65 6e 74 73 2c 0a 20 20 | ents.than.function.arguments,... |
| 58dc0 | 74 68 65 20 6c 61 73 74 20 6c 69 73 74 20 65 6c 65 6d 65 6e 74 20 61 70 70 6c 69 65 73 20 74 6f | the.last.list.element.applies.to |
| 58de0 | 20 61 6c 6c 20 72 65 6d 61 69 6e 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 2e 20 20 54 68 65 20 61 | .all.remaining.arguments...The.a |
| 58e00 | 63 63 65 70 74 65 64 20 6c 69 73 74 0a 20 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 3a 0a 0a 20 20 | ccepted.list...elements.are:.... |
| 58e20 | 2a 20 6e 69 6c 2c 20 6d 65 61 6e 69 6e 67 20 74 68 65 20 64 65 66 61 75 6c 74 20 69 6e 64 65 6e | *.nil,.meaning.the.default.inden |
| 58e40 | 74 61 74 69 6f 6e 2e 0a 0a 20 20 2a 20 61 6e 20 69 6e 74 65 67 65 72 2c 20 73 70 65 63 69 66 79 | tation.....*.an.integer,.specify |
| 58e60 | 69 6e 67 20 61 6e 20 65 78 70 6c 69 63 69 74 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2e 0a 0a 20 20 | ing.an.explicit.indentation..... |
| 58e80 | 2a 20 26 6c 61 6d 62 64 61 2e 20 20 49 6e 64 65 6e 74 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 | *.&lambda...Indent.the.argument. |
| 58ea0 | 28 77 68 69 63 68 20 6d 61 79 20 62 65 20 61 20 6c 69 73 74 29 20 62 79 20 34 2e 0a 0a 20 20 2a | (which.may.be.a.list).by.4.....* |
| 58ec0 | 20 26 72 65 73 74 2e 20 20 57 68 65 6e 20 75 73 65 64 2c 20 74 68 69 73 20 6d 75 73 74 20 62 65 | .&rest...When.used,.this.must.be |
| 58ee0 | 20 74 68 65 20 70 65 6e 75 6c 74 69 6d 61 74 65 20 65 6c 65 6d 65 6e 74 2e 20 20 54 68 65 0a 20 | .the.penultimate.element...The.. |
| 58f00 | 20 20 20 65 6c 65 6d 65 6e 74 20 61 66 74 65 72 20 74 68 69 73 20 6f 6e 65 20 61 70 70 6c 69 65 | ...element.after.this.one.applie |
| 58f20 | 73 20 74 6f 20 61 6c 6c 20 72 65 6d 61 69 6e 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 20 | s.to.all.remaining.arguments.... |
| 58f40 | 20 2a 20 26 62 6f 64 79 2e 20 20 54 68 69 73 20 69 73 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f | .*.&body...This.is.equivalent.to |
| 58f60 | 20 26 72 65 73 74 20 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 2c 20 69 2e 65 2e 2c 20 69 | .&rest.lisp-body-indent,.i.e.,.i |
| 58f80 | 6e 64 65 6e 74 0a 20 20 20 20 61 6c 6c 20 72 65 6d 61 69 6e 69 6e 67 20 65 6c 65 6d 65 6e 74 73 | ndent.....all.remaining.elements |
| 58fa0 | 20 62 79 20 60 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 27 2e 0a 0a 20 20 2a 20 26 77 68 | .by.`lisp-body-indent'.....*.&wh |
| 58fc0 | 6f 6c 65 2e 20 20 54 68 69 73 20 6d 75 73 74 20 62 65 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 6e | ole...This.must.be.followed.by.n |
| 58fe0 | 69 6c 2c 20 61 6e 20 69 6e 74 65 67 65 72 2c 20 6f 72 20 61 0a 20 20 20 20 66 75 6e 63 74 69 6f | il,.an.integer,.or.a.....functio |
| 59000 | 6e 20 73 79 6d 62 6f 6c 2e 20 20 54 68 69 73 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 69 73 20 61 | n.symbol...This.indentation.is.a |
| 59020 | 70 70 6c 69 65 64 20 74 6f 20 74 68 65 0a 20 20 20 20 61 73 73 6f 63 69 61 74 65 64 20 61 72 67 | pplied.to.the.....associated.arg |
| 59040 | 75 6d 65 6e 74 2c 20 61 6e 64 20 61 73 20 61 20 62 61 73 65 20 69 6e 64 65 6e 74 20 66 6f 72 20 | ument,.and.as.a.base.indent.for. |
| 59060 | 61 6c 6c 20 72 65 6d 61 69 6e 69 6e 67 0a 20 20 20 20 61 72 67 75 6d 65 6e 74 73 2e 20 20 46 6f | all.remaining.....arguments...Fo |
| 59080 | 72 20 65 78 61 6d 70 6c 65 2c 20 61 6e 20 69 6e 74 65 67 65 72 20 50 20 6d 65 61 6e 73 20 69 6e | r.example,.an.integer.P.means.in |
| 590a0 | 64 65 6e 74 20 74 68 69 73 0a 20 20 20 20 61 72 67 75 6d 65 6e 74 20 62 79 20 50 2c 20 61 6e 64 | dent.this.....argument.by.P,.and |
| 590c0 | 20 61 6c 6c 20 72 65 6d 61 69 6e 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 20 62 79 20 50 2c 20 70 | .all.remaining.arguments.by.P,.p |
| 590e0 | 6c 75 73 20 74 68 65 0a 20 20 20 20 76 61 6c 75 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 74 | lus.the.....value.specified.by.t |
| 59100 | 68 65 69 72 20 61 73 73 6f 63 69 61 74 65 64 20 6c 69 73 74 20 65 6c 65 6d 65 6e 74 2e 0a 0a 20 | heir.associated.list.element.... |
| 59120 | 20 2a 20 61 20 73 79 6d 62 6f 6c 2e 20 20 41 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c | .*.a.symbol...A.function.to.call |
| 59140 | 2c 20 77 69 74 68 20 74 68 65 20 36 20 61 72 67 75 6d 65 6e 74 73 20 73 70 65 63 69 66 69 65 64 | ,.with.the.6.arguments.specified |
| 59160 | 20 61 62 6f 76 65 2e 0a 0a 20 20 2a 20 61 20 6c 69 73 74 2c 20 77 69 74 68 20 65 6c 65 6d 65 6e | .above.....*.a.list,.with.elemen |
| 59180 | 74 73 20 61 73 20 64 65 73 63 72 69 62 65 64 20 61 62 6f 76 65 2e 20 20 54 68 69 73 20 61 70 70 | ts.as.described.above...This.app |
| 591a0 | 6c 69 65 73 20 77 68 65 6e 20 74 68 65 0a 20 20 20 20 61 73 73 6f 63 69 61 74 65 64 20 66 75 6e | lies.when.the.....associated.fun |
| 591c0 | 63 74 69 6f 6e 20 61 72 67 75 6d 65 6e 74 20 69 73 20 69 74 73 65 6c 66 20 61 20 6c 69 73 74 2e | ction.argument.is.itself.a.list. |
| 591e0 | 20 20 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 0a 20 20 20 20 73 | ..Each.element.of.the.list.....s |
| 59200 | 70 65 63 69 66 69 65 73 20 68 6f 77 20 74 6f 20 69 6e 64 65 6e 74 20 74 68 65 20 61 73 73 6f 63 | pecifies.how.to.indent.the.assoc |
| 59220 | 69 61 74 65 64 20 61 72 67 75 6d 65 6e 74 2e 0a 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 | iated.argument...For.example,.th |
| 59240 | 65 20 66 75 6e 63 74 69 6f 6e 20 60 63 61 73 65 27 20 68 61 73 20 61 6e 20 69 6e 64 65 6e 74 20 | e.function.`case'.has.an.indent. |
| 59260 | 70 72 6f 70 65 72 74 79 0a 5c 28 34 20 26 72 65 73 74 20 28 26 77 68 6f 6c 65 20 32 20 26 72 65 | property.\(4.&rest.(&whole.2.&re |
| 59280 | 73 74 20 31 29 29 2c 20 6d 65 61 6e 69 6e 67 3a 0a 20 20 2a 20 69 6e 64 65 6e 74 20 74 68 65 20 | st.1)),.meaning:...*.indent.the. |
| 592a0 | 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 62 79 20 34 2e 0a 20 20 2a 20 61 72 67 75 6d 65 6e | first.argument.by.4....*.argumen |
| 592c0 | 74 73 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 20 73 68 6f 75 6c 64 20 62 65 20 6c 69 73 | ts.after.the.first.should.be.lis |
| 592e0 | 74 73 2c 20 61 6e 64 20 74 68 65 72 65 20 6d 61 79 20 62 65 20 61 6e 79 20 6e 75 6d 62 65 72 0a | ts,.and.there.may.be.any.number. |
| 59300 | 20 20 20 20 6f 66 20 74 68 65 6d 2e 20 20 54 68 65 20 66 69 72 73 74 20 6c 69 73 74 20 65 6c 65 | ....of.them...The.first.list.ele |
| 59320 | 6d 65 6e 74 20 68 61 73 20 61 6e 20 6f 66 66 73 65 74 20 6f 66 20 32 2c 20 61 6c 6c 20 74 68 65 | ment.has.an.offset.of.2,.all.the |
| 59340 | 20 72 65 73 74 0a 20 20 20 20 68 61 76 65 20 61 6e 20 6f 66 66 73 65 74 20 6f 66 20 32 2b 31 3d | .rest.....have.an.offset.of.2+1= |
| 59360 | 33 2e 22 0a 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 | 3."...(common-lisp-indent-functi |
| 59380 | 6f 6e 2d 31 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 74 61 74 65 29 29 0a 0a 3b 3b 3b 20 58 | on-1.indent-point.state))..;;;.X |
| 593a0 | 45 6d 61 63 73 20 64 6f 65 73 6e 27 74 20 68 61 76 65 20 6c 6f 6f 6b 69 6e 67 2d 62 61 63 6b 2c | Emacs.doesn't.have.looking-back, |
| 593c0 | 20 73 6f 20 77 65 20 64 65 66 69 6e 65 20 61 20 73 69 6d 70 6c 65 20 6f 6e 65 2e 20 46 61 73 74 | .so.we.define.a.simple.one..Fast |
| 593e0 | 65 72 20 74 6f 0a 3b 3b 3b 20 62 6f 6f 74 2c 20 61 6e 64 20 73 75 66 66 69 63 69 65 6e 74 20 66 | er.to.;;;.boot,.and.sufficient.f |
| 59400 | 6f 72 20 6f 75 72 20 6e 65 65 64 73 2e 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | or.our.needs..(defun.common-lisp |
| 59420 | 2d 6c 6f 6f 6b 69 6e 67 2d 62 61 63 6b 20 28 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 | -looking-back.(string)...(let.(( |
| 59440 | 6c 65 6e 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 63 6c 2d 64 6f | len.(length.string))).....(cl-do |
| 59460 | 74 69 6d 65 73 20 28 69 20 6c 65 6e 20 74 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 | times.(i.len.t).......(unless.(e |
| 59480 | 71 6c 20 28 65 6c 74 20 73 74 72 69 6e 67 20 28 2d 20 6c 65 6e 20 69 20 31 29 29 20 28 63 68 61 | ql.(elt.string.(-.len.i.1)).(cha |
| 594a0 | 72 2d 62 65 66 6f 72 65 20 28 2d 20 28 70 6f 69 6e 74 29 20 69 29 29 29 0a 20 20 20 20 20 20 20 | r-before.(-.(point).i)))........ |
| 594c0 | 20 28 63 6c 2d 72 65 74 75 72 6e 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f | .(cl-return.nil)))))..(defvar.co |
| 594e0 | 6d 6d 6f 6e 2d 6c 69 73 70 2d 66 65 61 74 75 72 65 2d 65 78 70 72 2d 72 65 67 65 78 70 20 22 23 | mmon-lisp-feature-expr-regexp."# |
| 59500 | 21 3f 5c 5c 28 2b 5c 5c 7c 2d 5c 5c 29 22 29 0a 0a 3b 3b 3b 20 53 65 6d 69 2d 66 65 61 74 75 72 | !?\\(+\\|-\\)")..;;;.Semi-featur |
| 59520 | 65 2d 65 78 70 72 65 73 73 69 6f 6e 20 61 77 61 72 65 20 6b 65 79 77 6f 72 64 20 63 68 65 63 6b | e-expression.aware.keyword.check |
| 59540 | 2e 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 2d | ..(defun.common-lisp-looking-at- |
| 59560 | 6b 65 79 77 6f 72 64 20 28 29 0a 20 20 28 6f 72 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3a 22 | keyword.()...(or.(looking-at.":" |
| 59580 | 29 0a 20 20 20 20 20 20 28 61 6e 64 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e 2d | ).......(and.(looking-at.common- |
| 595a0 | 6c 69 73 70 2d 66 65 61 74 75 72 65 2d 65 78 70 72 2d 72 65 67 65 78 70 29 0a 20 20 20 20 20 20 | lisp-feature-expr-regexp)....... |
| 595c0 | 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | .....(save-excursion............ |
| 595e0 | 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ..(forward-sexp)..............(s |
| 59600 | 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 5c 74 5c 6e 22 29 0a 20 20 20 20 20 | kip-chars-forward.".\t\n")...... |
| 59620 | 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 2d | ........(common-lisp-looking-at- |
| 59640 | 6b 65 79 77 6f 72 64 29 29 29 29 29 0a 0a 3b 3b 3b 20 53 65 6d 69 2d 66 65 61 74 75 72 65 2d 65 | keyword)))))..;;;.Semi-feature-e |
| 59660 | 78 70 72 65 73 73 69 6f 6e 20 61 77 61 72 65 20 62 61 63 6b 77 61 72 64 73 20 6d 6f 76 65 6d 65 | xpression.aware.backwards.moveme |
| 59680 | 6e 74 20 66 6f 72 20 6b 65 79 77 6f 72 64 0a 3b 3b 3b 20 61 72 67 75 6d 65 6e 74 20 70 61 69 72 | nt.for.keyword.;;;.argument.pair |
| 596a0 | 73 2e 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 62 61 63 6b 77 61 72 64 2d 6b | s..(defun.common-lisp-backward-k |
| 596c0 | 65 79 77 6f 72 64 2d 61 72 67 75 6d 65 6e 74 20 28 29 0a 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 | eyword-argument.()...(ignore-err |
| 596e0 | 6f 72 73 0a 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 20 32 29 0a 20 20 20 20 28 77 | ors.....(backward-sexp.2).....(w |
| 59700 | 68 65 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 66 65 61 74 | hen.(looking-at.common-lisp-feat |
| 59720 | 75 72 65 2d 65 78 70 72 2d 72 65 67 65 78 70 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 69 | ure-expr-regexp).......(cond.((i |
| 59740 | 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 | gnore-errors................(sav |
| 59760 | 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 | e-excursion..................(ba |
| 59780 | 63 6b 77 61 72 64 2d 73 65 78 70 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ckward-sexp.2).................. |
| 597a0 | 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 66 65 61 74 75 72 65 2d | (looking-at.common-lisp-feature- |
| 597c0 | 65 78 70 72 2d 72 65 67 65 78 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d | expr-regexp)))..............(com |
| 597e0 | 6d 6f 6e 2d 6c 69 73 70 2d 62 61 63 6b 77 61 72 64 2d 6b 65 79 77 6f 72 64 2d 61 72 67 75 6d 65 | mon-lisp-backward-keyword-argume |
| 59800 | 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 | nt)).............((ignore-errors |
| 59820 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a | ................(save-excursion. |
| 59840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 20 | .................(backward-sexp. |
| 59860 | 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 | 1)..................(looking-at. |
| 59880 | 22 3a 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 | ":")))..............(backward-se |
| 598a0 | 78 70 29 29 29 29 0a 20 20 20 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 | xp)))).....t))..(defun.common-li |
| 598c0 | 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 2d 31 20 28 69 6e 64 65 6e 74 2d 70 6f 69 | sp-indent-function-1.(indent-poi |
| 598e0 | 6e 74 20 73 74 61 74 65 29 0a 20 20 3b 3b 20 49 66 20 77 65 27 72 65 20 6c 6f 6f 6b 69 6e 67 20 | nt.state)...;;.If.we're.looking. |
| 59900 | 61 74 20 61 20 73 70 6c 69 63 65 2c 20 6d 6f 76 65 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 63 | at.a.splice,.move.to.the.first.c |
| 59920 | 6f 6d 6d 61 2e 0a 20 20 28 77 68 65 6e 20 28 6f 72 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c | omma....(when.(or.(common-lisp-l |
| 59940 | 6f 6f 6b 69 6e 67 2d 62 61 63 6b 20 22 2c 22 29 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f | ooking-back.",").(common-lisp-lo |
| 59960 | 6f 6b 69 6e 67 2d 62 61 63 6b 20 22 2c 40 22 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 72 65 2d | oking-back.",@")).....(when.(re- |
| 59980 | 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5b 5e 2c 40 27 5d 2c 22 29 0a 20 20 20 20 20 | search-backward."[^,@'],")...... |
| 599a0 | 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 29 29 29 0a 20 20 28 6c 65 74 20 28 28 6e 6f 72 | .(forward-char.1)))...(let.((nor |
| 599c0 | 6d 61 6c 2d 69 6e 64 65 6e 74 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 | mal-indent.(current-column)))... |
| 599e0 | 20 20 3b 3b 20 57 61 6c 6b 20 75 70 20 6c 69 73 74 20 6c 65 76 65 6c 73 20 75 6e 74 69 6c 20 77 | ..;;.Walk.up.list.levels.until.w |
| 59a00 | 65 20 73 65 65 20 73 6f 6d 65 74 68 69 6e 67 0a 20 20 20 20 3b 3b 20 20 77 68 69 63 68 20 64 6f | e.see.something.....;;..which.do |
| 59a20 | 65 73 20 73 70 65 63 69 61 6c 20 74 68 69 6e 67 73 20 77 69 74 68 20 73 75 62 66 6f 72 6d 73 2e | es.special.things.with.subforms. |
| 59a40 | 0a 20 20 20 20 28 6c 65 74 20 28 28 64 65 70 74 68 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 3b | .....(let.((depth.0)...........; |
| 59a60 | 3b 20 50 61 74 68 20 64 65 73 63 72 69 62 65 73 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 | ;.Path.describes.the.position.of |
| 59a80 | 20 70 6f 69 6e 74 20 69 6e 20 74 65 72 6d 73 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | .point.in.terms.of...........;;. |
| 59aa0 | 20 6c 69 73 74 2d 73 74 72 75 63 74 75 72 65 20 77 69 74 68 20 72 65 73 70 65 63 74 20 74 6f 20 | .list-structure.with.respect.to. |
| 59ac0 | 63 6f 6e 74 61 69 6e 69 6e 67 20 6c 69 73 74 73 2e 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 60 | containing.lists............;;.` |
| 59ae0 | 66 6f 6f 27 20 68 61 73 20 61 20 70 61 74 68 20 6f 66 20 28 30 20 33 20 31 29 20 69 6e 20 60 28 | foo'.has.a.path.of.(0.3.1).in.`( |
| 59b00 | 28 61 20 62 20 63 20 28 64 20 66 6f 6f 29 20 66 29 20 67 29 27 2e 0a 20 20 20 20 20 20 20 20 20 | (a.b.c.(d.foo).f).g)'........... |
| 59b20 | 20 28 70 61 74 68 20 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 65 74 20 6e 6f 6e 2d | .(path.())...........;;.set.non- |
| 59b40 | 6e 69 6c 20 77 68 65 6e 20 73 6f 6d 65 62 6f 64 79 20 77 6f 72 6b 73 20 6f 75 74 20 74 68 65 20 | nil.when.somebody.works.out.the. |
| 59b60 | 69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 6f 20 75 73 65 0a 20 20 20 20 20 20 20 20 20 20 63 61 6c | indentation.to.use...........cal |
| 59b80 | 63 75 6c 61 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 6e 6f 6e 2d 6e 69 6c 2c | culated...........;;.If.non-nil, |
| 59ba0 | 20 74 68 69 73 20 69 73 20 61 6e 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 6f 20 75 73 65 0a 20 | .this.is.an.indentation.to.use.. |
| 59bc0 | 20 20 20 20 20 20 20 20 20 3b 3b 20 69 66 20 6e 6f 74 68 69 6e 67 20 65 6c 73 65 20 73 70 65 63 | .........;;.if.nothing.else.spec |
| 59be0 | 69 66 69 65 73 20 69 74 20 6d 6f 72 65 20 66 69 72 6d 6c 79 2e 0a 20 20 20 20 20 20 20 20 20 20 | ifies.it.more.firmly............ |
| 59c00 | 74 65 6e 74 61 74 69 76 65 2d 63 61 6c 63 75 6c 61 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 28 | tentative-calculated...........( |
| 59c20 | 6c 61 73 74 2d 70 6f 69 6e 74 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 | last-point.indent-point)........ |
| 59c40 | 20 20 20 3b 3b 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 6f 70 65 6e 2d 70 | ...;;.the.position.of.the.open-p |
| 59c60 | 61 72 65 6e 20 6f 66 20 74 68 65 20 69 6e 6e 65 72 6d 6f 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 | aren.of.the.innermost.containing |
| 59c80 | 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d | .list...........(containing-form |
| 59ca0 | 2d 73 74 61 72 74 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 70 61 72 73 65 | -start.(common-lisp-indent-parse |
| 59cc0 | 2d 73 74 61 74 65 2d 73 74 61 72 74 20 73 74 61 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b | -state-start.state))...........; |
| 59ce0 | 3b 20 74 68 65 20 63 6f 6c 75 6d 6e 20 6f 66 20 74 68 65 20 61 62 6f 76 65 0a 20 20 20 20 20 20 | ;.the.column.of.the.above....... |
| 59d00 | 20 20 20 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 20 20 3b 3b 20 4d 6f 76 65 20 74 | ....sexp-column).......;;.Move.t |
| 59d20 | 6f 20 73 74 61 72 74 20 6f 66 20 69 6e 6e 65 72 6d 6f 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 | o.start.of.innermost.containing. |
| 59d40 | 6c 69 73 74 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 63 6f 6e 74 61 69 6e 69 6e 67 | list.......(goto-char.containing |
| 59d60 | 2d 66 6f 72 6d 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 65 78 70 2d 63 6f | -form-start).......(setq.sexp-co |
| 59d80 | 6c 75 6d 6e 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 0a 0a 20 20 20 20 20 20 3b 3b | lumn.(current-column))........;; |
| 59da0 | 20 4c 6f 6f 6b 20 6f 76 65 72 20 73 75 63 63 65 73 73 69 76 65 6c 79 20 6c 65 73 73 2d 64 65 65 | .Look.over.successively.less-dee |
| 59dc0 | 70 20 63 6f 6e 74 61 69 6e 69 6e 67 20 66 6f 72 6d 73 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 | p.containing.forms.......(while. |
| 59de0 | 28 61 6e 64 20 28 6e 6f 74 20 63 61 6c 63 75 6c 61 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 | (and.(not.calculated)........... |
| 59e00 | 20 20 20 20 20 20 20 20 28 3c 20 64 65 70 74 68 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6d 61 78 | ........(<.depth.lisp-indent-max |
| 59e20 | 69 6d 75 6d 2d 62 61 63 6b 74 72 61 63 6b 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 | imum-backtracking)).........(let |
| 59e40 | 20 28 28 63 6f 6e 74 61 69 6e 69 6e 67 2d 73 65 78 70 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 | .((containing-sexp.(point))).... |
| 59e60 | 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 29 0a 20 20 20 20 20 20 20 20 | .......(forward-char.1)......... |
| 59e80 | 20 20 28 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 20 28 70 6f 69 6e 74 29 20 69 6e | ..(parse-partial-sexp.(point).in |
| 59ea0 | 64 65 6e 74 2d 70 6f 69 6e 74 20 31 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4d 6f 76 | dent-point.1.t)...........;;.Mov |
| 59ec0 | 65 20 74 6f 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 72 65 6c 65 76 61 6e 74 20 63 6f 6e | e.to.the.car.of.the.relevant.con |
| 59ee0 | 74 61 69 6e 69 6e 67 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 74 65 6d | taining.form...........(let.(tem |
| 59f00 | 20 66 75 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 20 74 65 6e 74 61 74 69 76 65 2d | .full.function.method.tentative- |
| 59f20 | 64 65 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 6c 6f 6f | defun).............(if.(not.(loo |
| 59f40 | 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 77 5c 5c 7c 5c 5c 73 5f 22 29 29 0a 20 20 20 20 20 20 20 20 | king-at."\\sw\\|\\s_"))......... |
| 59f60 | 20 20 20 20 20 20 20 20 3b 3b 20 54 68 69 73 20 66 6f 72 6d 20 64 6f 65 73 6e 27 74 20 73 65 65 | ........;;.This.form.doesn't.see |
| 59f80 | 6d 20 74 6f 20 73 74 61 72 74 20 77 69 74 68 20 61 20 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 | m.to.start.with.a.symbol........ |
| 59fa0 | 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 6d 65 74 68 | .........(setq.function.nil.meth |
| 59fc0 | 6f 64 20 6e 69 6c 20 66 75 6c 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | od.nil.full.nil)...............( |
| 59fe0 | 73 65 74 71 20 74 65 6d 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | setq.tem.(point))............... |
| 5a000 | 28 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | (forward-sexp.1)...............( |
| 5a020 | 73 65 74 71 20 66 75 6c 6c 20 28 64 6f 77 6e 63 61 73 65 20 28 62 75 66 66 65 72 2d 73 75 62 73 | setq.full.(downcase.(buffer-subs |
| 5a040 | 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | tring-no-properties............. |
| 5a060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 20 | ............................tem. |
| 5a080 | 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 | (point))).....................fu |
| 5a0a0 | 6e 63 74 69 6f 6e 20 66 75 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f | nction.full)...............(goto |
| 5a0c0 | 2d 63 68 61 72 20 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 | -char.tem)...............(setq.t |
| 5a0e0 | 65 6d 20 28 69 6e 74 65 72 6e 2d 73 6f 66 74 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 | em.(intern-soft.function)....... |
| 5a100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 74 68 6f 64 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 | ..............method.(common-lis |
| 5a120 | 70 2d 67 65 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 65 6d 29 29 0a 20 20 20 20 20 20 20 20 | p-get-indentation.tem))......... |
| 5a140 | 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 6e 75 6c 6c 20 6d 65 74 68 6f 64 29 0a | ......(cond.((and.(null.method). |
| 5a160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e | ..........................(strin |
| 5a180 | 67 2d 6d 61 74 63 68 20 22 3a 5b 5e 3a 5d 2b 22 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 | g-match.":[^:]+".function))..... |
| 5a1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 70 6c 65 62 6c 69 73 70 | .................;;.The.pleblisp |
| 5a1c0 | 20 70 61 63 6b 61 67 65 20 66 65 61 74 75 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .package.feature................ |
| 5a1e0 | 20 20 20 20 20 20 28 73 65 74 71 20 66 75 6e 63 74 69 6f 6e 20 28 73 75 62 73 74 72 69 6e 67 20 | ......(setq.function.(substring. |
| 5a200 | 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | function........................ |
| 5a220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2b 20 28 6d 61 74 | ........................(1+.(mat |
| 5a240 | 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ch-beginning.0)))............... |
| 5a260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 74 68 6f 64 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | .............method.(common-lisp |
| 5a280 | 2d 67 65 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -get-indentation................ |
| 5a2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 2d 73 6f 66 74 | ....................(intern-soft |
| 5a2c0 | 20 66 75 6e 63 74 69 6f 6e 29 20 66 75 6c 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .function).full))).............. |
| 5a2e0 | 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 6e 75 6c 6c 20 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 | .......((and.(null.method))..... |
| 5a300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 61 63 6b 77 61 72 64 73 20 63 6f | .................;;.backwards.co |
| 5a320 | 6d 70 61 74 69 62 69 6c 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mpatibility..................... |
| 5a340 | 20 28 73 65 74 71 20 6d 65 74 68 6f 64 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 67 65 74 2d 69 | .(setq.method.(common-lisp-get-i |
| 5a360 | 6e 64 65 6e 74 61 74 69 6f 6e 20 74 65 6d 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ndentation.tem)))))............. |
| 5a380 | 28 6c 65 74 20 28 28 6e 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 6f | (let.((n.0))...............;;.Ho |
| 5a3a0 | 77 20 66 61 72 20 69 6e 74 6f 20 74 68 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 66 6f 72 6d 20 69 | w.far.into.the.containing.form.i |
| 5a3c0 | 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 6f 72 6d 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 | s.the.current.form?............. |
| 5a3e0 | 20 20 28 69 66 20 28 3c 20 28 70 6f 69 6e 74 29 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 0a 20 | ..(if.(<.(point).indent-point).. |
| 5a400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 63 6f 6e 64 69 74 69 | .................(while.(conditi |
| 5a420 | 6f 6e 2d 63 61 73 65 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on-case.()...................... |
| 5a440 | 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(progn.................. |
| 5a460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 29 0a 20 | ..............(forward-sexp.1).. |
| 5a480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | ..............................(i |
| 5a4a0 | 66 20 28 3e 3d 20 28 70 6f 69 6e 74 29 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 | f.(>=.(point).indent-point)..... |
| 5a4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e | ...............................n |
| 5a4e0 | 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | il.............................. |
| 5a500 | 20 20 20 20 28 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 20 28 70 6f 69 6e 74 29 0a | ....(parse-partial-sexp.(point). |
| 5a520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5a540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 6e 74 2d 70 6f 69 6e | .....................indent-poin |
| 5a560 | 74 20 31 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.1.t).......................... |
| 5a580 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 20 28 31 2b 20 6e 29 29 0a 20 20 20 20 20 20 20 20 | ........(setq.n.(1+.n))......... |
| 5a5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 0a 20 20 20 | .........................t)).... |
| 5a5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 6e | ........................(error.n |
| 5a5e0 | 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 61 74 68 20 | il))))...............(setq.path. |
| 5a600 | 28 63 6f 6e 73 20 6e 20 70 61 74 68 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | (cons.n.path)))..............;;. |
| 5a620 | 47 75 65 73 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6e | Guess..............(when.(and.(n |
| 5a640 | 6f 74 20 6d 65 74 68 6f 64 29 20 66 75 6e 63 74 69 6f 6e 20 28 6e 75 6c 6c 20 28 63 64 72 20 70 | ot.method).function.(null.(cdr.p |
| 5a660 | 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 70 61 63 6b 61 67 65 | ath)))...............;;.(package |
| 5a680 | 20 70 72 65 66 69 78 20 77 61 73 20 73 74 72 69 70 70 65 64 20 6f 66 66 20 61 62 6f 76 65 29 0a | .prefix.was.stripped.off.above). |
| 5a6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 73 74 72 69 6e | ..............(cond.((and.(strin |
| 5a6c0 | 67 2d 6d 61 74 63 68 20 22 5c 5c 60 64 65 66 22 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 | g-match."\\`def".function)...... |
| 5a6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e | .....................(not.(strin |
| 5a700 | 67 2d 6d 61 74 63 68 20 22 5c 5c 60 64 65 66 61 75 6c 74 22 20 66 75 6e 63 74 69 6f 6e 29 29 0a | g-match."\\`default".function)). |
| 5a720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 | ..........................(not.( |
| 5a740 | 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 64 65 66 69 6e 69 74 69 6f 6e 22 20 66 75 6e | string-match."\\`definition".fun |
| 5a760 | 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ction))......................... |
| 5a780 | 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 64 65 66 69 6e 65 72 | ..(not.(string-match."\\`definer |
| 5a7a0 | 22 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ".function)))................... |
| 5a7c0 | 20 20 20 28 73 65 74 71 20 74 65 6e 74 61 74 69 76 65 2d 64 65 66 75 6e 20 74 29 29 0a 20 20 20 | ...(setq.tentative-defun.t)).... |
| 5a7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 0a | .................((string-match. |
| 5a800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 2d 77 68 65 6e | ......................(eval-when |
| 5a820 | 2d 63 6f 6d 70 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -compile........................ |
| 5a840 | 20 28 63 6f 6e 63 61 74 20 22 5c 5c 60 5c 5c 28 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(concat."\\`\\("............... |
| 5a860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 67 65 78 70 2d 6f 70 74 20 27 28 | ..................(regexp-opt.'( |
| 5a880 | 22 77 69 74 68 22 20 22 77 69 74 68 6f 75 74 22 20 22 64 6f 22 29 29 0a 20 20 20 20 20 20 20 20 | "with"."without"."do"))......... |
| 5a8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 5c 29 2d 22 29 29 | ........................"\\)-")) |
| 5a8c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6e 63 74 69 6f 6e 29 | .......................function) |
| 5a8e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 65 74 68 | ......................(setq.meth |
| 5a900 | 6f 64 20 27 28 26 6c 61 6d 62 64 61 20 26 62 6f 64 79 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 | od.'(&lambda.&body)))))......... |
| 5a920 | 20 20 20 20 20 3b 3b 20 23 2b 20 61 6e 64 20 23 2d 20 63 6c 65 76 65 72 6e 65 73 73 2e 0a 20 20 | .....;;.#+.and.#-.cleverness.... |
| 5a940 | 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 | ..........(save-excursion....... |
| 5a960 | 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 | ........(goto-char.indent-point) |
| 5a980 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 29 0a 20 | ...............(backward-sexp).. |
| 5a9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 64 65 6e 74 20 28 63 75 72 72 | .............(let.((indent.(curr |
| 5a9c0 | 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 | ent-column))).................(w |
| 5a9e0 | 68 65 6e 20 28 6f 72 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d | hen.(or.(looking-at.common-lisp- |
| 5aa00 | 66 65 61 74 75 72 65 2d 65 78 70 72 2d 72 65 67 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 | feature-expr-regexp)............ |
| 5aa20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 | ...............(ignore-errors... |
| 5aa40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 | ..........................(backw |
| 5aa60 | 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ard-sexp)....................... |
| 5aa80 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 0a 20 20 20 20 20 20 20 20 | ......(when.(looking-at......... |
| 5aaa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f | ...........................commo |
| 5aac0 | 6e 2d 6c 69 73 70 2d 66 65 61 74 75 72 65 2d 65 78 70 72 2d 72 65 67 65 78 70 29 0a 20 20 20 20 | n-lisp-feature-expr-regexp)..... |
| 5aae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | ..........................(setq. |
| 5ab00 | 69 6e 64 65 6e 74 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 0a 20 20 20 20 20 20 20 | indent.(current-column))........ |
| 5ab20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 69 | .......................(let.((li |
| 5ab40 | 6e 65 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 29 29 29 0a 20 20 20 20 20 20 | ne.(line-number-at-pos)))....... |
| 5ab60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 | ..........................(while |
| 5ab80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5aba0 | 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .....(ignore-errors............. |
| 5abc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 | ..........................(backw |
| 5abe0 | 61 72 64 2d 73 65 78 70 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ard-sexp.2)..................... |
| 5ac00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 0a 20 20 20 20 20 20 20 20 20 | ..................(and.......... |
| 5ac20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d | ..............................(= |
| 5ac40 | 20 6c 69 6e 65 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 29 29 0a 20 20 20 20 | .line.(line-number-at-pos))..... |
| 5ac60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5ac80 | 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(looking-at.................. |
| 5aca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 | .......................common-li |
| 5acc0 | 73 70 2d 66 65 61 74 75 72 65 2d 65 78 70 72 2d 72 65 67 65 78 70 29 29 29 0a 20 20 20 20 20 20 | sp-feature-expr-regexp)))....... |
| 5ace0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | ............................(set |
| 5ad00 | 71 20 69 6e 64 65 6e 74 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 29 0a 20 20 20 | q.indent.(current-column)))).... |
| 5ad20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 0a | ...........................t))). |
| 5ad40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 63 75 6c 61 74 | ..................(setq.calculat |
| 5ad60 | 65 64 20 28 6c 69 73 74 20 69 6e 64 65 6e 74 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d | ed.(list.indent.containing-form- |
| 5ad80 | 73 74 61 72 74 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 | start)))))..............(cond.(( |
| 5ada0 | 61 6e 64 20 28 6f 72 20 28 65 71 20 28 63 68 61 72 2d 61 66 74 65 72 20 28 31 2d 20 63 6f 6e 74 | and.(or.(eq.(char-after.(1-.cont |
| 5adc0 | 61 69 6e 69 6e 67 2d 73 65 78 70 29 29 20 3f 5c 27 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | aining-sexp)).?\').............. |
| 5ade0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6e 6f 74 20 6c 69 73 70 2d 62 61 | ...............(and.(not.lisp-ba |
| 5ae00 | 63 6b 71 75 6f 74 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ckquote-indentation)............ |
| 5ae20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 63 68 61 72 2d | ......................(eq.(char- |
| 5ae40 | 61 66 74 65 72 20 28 31 2d 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 73 65 78 70 29 29 20 3f 5c 60 29 | after.(1-.containing-sexp)).?\`) |
| 5ae60 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 | )).........................(not. |
| 5ae80 | 28 65 71 20 28 63 68 61 72 2d 61 66 74 65 72 20 28 2d 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 73 65 | (eq.(char-after.(-.containing-se |
| 5aea0 | 78 70 20 32 29 29 20 3f 5c 23 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | xp.2)).?\#)))................... |
| 5aec0 | 20 3b 3b 20 4e 6f 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 22 27 28 2e 2e 2e 29 22 20 | .;;.No.indentation.for."'(...)". |
| 5aee0 | 65 6c 65 6d 65 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | elements....................(set |
| 5af00 | 71 20 63 61 6c 63 75 6c 61 74 65 64 20 28 31 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 29 29 29 0a | q.calculated.(1+.sexp-column))). |
| 5af20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 28 63 68 61 72 2d 61 66 74 | ..................((eq.(char-aft |
| 5af40 | 65 72 20 28 31 2d 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 73 65 78 70 29 29 20 3f 5c 23 29 0a 20 20 | er.(1-.containing-sexp)).?\#)... |
| 5af60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 22 23 28 2e 2e 2e 29 22 0a 20 20 20 | .................;;."#(...)".... |
| 5af80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 63 75 6c 61 74 65 64 | ................(setq.calculated |
| 5afa0 | 20 28 31 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .(1+.sexp-column)))............. |
| 5afc0 | 20 20 20 20 20 20 28 28 6e 75 6c 6c 20 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ......((null.method)............ |
| 5afe0 | 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 74 68 69 73 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 61 20 | ........;;.If.this.looks.like.a. |
| 5b000 | 63 61 6c 6c 20 74 6f 20 61 20 60 64 65 66 2e 2e 2e 27 20 66 6f 72 6d 2c 0a 20 20 20 20 20 20 20 | call.to.a.`def...'.form,........ |
| 5b020 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 69 6e 6b 20 61 62 6f 75 74 20 69 6e 64 65 6e | ............;;.think.about.inden |
| 5b040 | 74 69 6e 67 20 69 74 20 61 73 20 6f 6e 65 2c 20 62 75 74 20 64 6f 20 69 74 0a 20 20 20 20 20 20 | ting.it.as.one,.but.do.it....... |
| 5b060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 65 6e 74 61 74 69 76 65 6c 79 20 66 6f 72 20 | .............;;.tentatively.for. |
| 5b080 | 63 61 73 65 73 20 6c 69 6b 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | cases.like....................;; |
| 5b0a0 | 20 28 66 6c 65 74 20 28 28 64 65 66 75 6e 70 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(flet.((defunp.().............. |
| 5b0c0 | 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 | ......;;..........nil)))........ |
| 5b0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 65 74 20 62 6f 74 68 20 6e 6f 72 6d 61 6c 2d 69 | ............;;.Set.both.normal-i |
| 5b100 | 6e 64 65 6e 74 20 61 6e 64 20 74 65 6e 74 61 74 69 76 65 2d 63 61 6c 63 75 6c 61 74 65 64 2e 0a | ndent.and.tentative-calculated.. |
| 5b120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 6c 61 74 74 65 72 | ...................;;.The.latter |
| 5b140 | 20 65 6e 73 75 72 65 73 20 74 68 69 73 20 76 61 6c 75 65 20 67 65 74 73 20 75 73 65 64 0a 20 20 | .ensures.this.value.gets.used... |
| 5b160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 66 20 74 68 65 72 65 20 61 72 65 | .................;;.if.there.are |
| 5b180 | 20 6e 6f 20 72 65 6c 65 76 61 6e 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 63 6f 6e 73 74 72 75 63 | .no.relevant.containing.construc |
| 5b1a0 | 74 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 66 6f | ts.....................;;.The.fo |
| 5b1c0 | 72 6d 65 72 20 65 6e 73 75 72 65 73 20 74 68 69 73 20 76 61 6c 75 65 20 67 65 74 73 20 75 73 65 | rmer.ensures.this.value.gets.use |
| 5b1e0 | 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 66 20 74 68 65 72 65 | d....................;;.if.there |
| 5b200 | 20 69 73 20 61 20 72 65 6c 65 76 61 6e 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 63 6f 6e 73 74 72 | .is.a.relevant.containing.constr |
| 5b220 | 75 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 75 74 20 77 65 | uct....................;;.but.we |
| 5b240 | 20 61 72 65 20 6e 65 73 74 65 64 20 77 69 74 68 69 6e 20 74 68 65 20 73 74 72 75 63 74 75 72 65 | .are.nested.within.the.structure |
| 5b260 | 20 6c 65 76 65 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 | .levels....................;;.th |
| 5b280 | 61 74 20 69 74 20 73 70 65 63 69 66 69 65 73 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 66 6f 72 2e | at.it.specifies.indentation.for. |
| 5b2a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 74 65 6e 74 61 74 69 76 | ....................(if.tentativ |
| 5b2c0 | 65 2d 64 65 66 75 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | e-defun........................( |
| 5b2e0 | 73 65 74 71 20 74 65 6e 74 61 74 69 76 65 2d 63 61 6c 63 75 6c 61 74 65 64 0a 20 20 20 20 20 20 | setq.tentative-calculated....... |
| 5b300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c | .......................(common-l |
| 5b320 | 69 73 70 2d 69 6e 64 65 6e 74 2d 63 61 6c 6c 2d 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 | isp-indent-call-method.......... |
| 5b340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 6c 69 | .....................function.li |
| 5b360 | 73 70 2d 69 6e 64 65 6e 74 2d 64 65 66 75 6e 2d 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 | sp-indent-defun-method.......... |
| 5b380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 20 73 74 61 74 65 20 | .....................path.state. |
| 5b3a0 | 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | indent-point.................... |
| 5b3c0 | 20 20 20 20 20 20 20 20 20 20 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e | ...........sexp-column.normal-in |
| 5b3e0 | 64 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dent)........................... |
| 5b400 | 20 20 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 20 74 65 6e 74 61 74 69 76 65 2d 63 61 6c 63 75 | ...normal-indent.tentative-calcu |
| 5b420 | 6c 61 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 | lated)......................(whe |
| 5b440 | 6e 20 6c 69 73 70 2d 61 6c 69 67 6e 2d 6b 65 79 77 6f 72 64 73 2d 69 6e 2d 63 61 6c 6c 73 0a 20 | n.lisp-align-keywords-in-calls.. |
| 5b460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 20 6d 65 74 68 | ......................;;.No.meth |
| 5b480 | 6f 64 20 73 6f 20 66 61 72 2e 20 49 66 20 77 65 27 72 65 20 6c 6f 6f 6b 69 6e 67 20 61 74 20 61 | od.so.far..If.we're.looking.at.a |
| 5b4a0 | 20 6b 65 79 77 6f 72 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .keyword,....................... |
| 5b4c0 | 20 3b 3b 20 61 6c 69 67 6e 20 77 69 74 68 20 74 68 65 20 66 69 72 73 74 20 6b 65 79 77 6f 72 64 | .;;.align.with.the.first.keyword |
| 5b4e0 | 20 69 6e 20 74 68 69 73 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 | .in.this.expression............. |
| 5b500 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 69 73 20 67 69 76 65 73 20 61 20 72 65 61 73 | ............;;.This.gives.a.reas |
| 5b520 | 6f 6e 61 62 6c 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 6f 20 6d 6f 73 74 20 74 68 69 6e 67 | onable.indentation.to.most.thing |
| 5b540 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 69 74 68 | s........................;;.with |
| 5b560 | 20 6b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .keyword.arguments.............. |
| 5b580 | 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 | ...........(save-excursion...... |
| 5b5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 69 | ....................(goto-char.i |
| 5b5c0 | 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ndent-point).................... |
| 5b5e0 | 20 20 20 20 20 20 28 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 | ......(back-to-indentation)..... |
| 5b600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 6f 6d 6d | .....................(when.(comm |
| 5b620 | 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 2d 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 | on-lisp-looking-at-keyword)..... |
| 5b640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 63 | .......................(while.(c |
| 5b660 | 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 62 61 63 6b 77 61 72 64 2d 6b 65 79 77 6f 72 64 2d 61 72 67 75 | ommon-lisp-backward-keyword-argu |
| 5b680 | 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ment)........................... |
| 5b6a0 | 20 20 20 28 77 68 65 6e 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 6b 69 6e 67 2d 61 74 | ...(when.(common-lisp-looking-at |
| 5b6c0 | 2d 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -keyword)....................... |
| 5b6e0 | 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 63 75 6c 61 74 65 64 0a 20 20 20 20 20 20 | .........(setq.calculated....... |
| 5b700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 5b720 | 6c 69 73 74 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 20 20 20 20 20 20 | list.(current-column)........... |
| 5b740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5b760 | 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 29 29 29 29 29 29 29 29 0a | .containing-form-start))))))))). |
| 5b780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 69 6e 74 65 67 65 72 70 20 6d 65 74 | ..................((integerp.met |
| 5b7a0 | 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6e 76 65 | hod)....................;;.conve |
| 5b7c0 | 6e 69 65 6e 74 20 74 6f 70 2d 6c 65 76 65 6c 20 68 61 63 6b 2e 0a 20 20 20 20 20 20 20 20 20 20 | nient.top-level.hack............ |
| 5b7e0 | 20 20 20 20 20 20 20 20 20 3b 3b 20 20 28 61 6c 73 6f 20 63 6f 6d 70 61 74 69 62 6c 65 20 77 69 | .........;;..(also.compatible.wi |
| 5b800 | 74 68 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 | th.lisp-indent-function)........ |
| 5b820 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 6e 75 6d 62 65 72 20 73 70 65 63 69 66 | ............;;.The.number.specif |
| 5b840 | 69 65 73 20 68 6f 77 20 6d 61 6e 79 20 60 64 69 73 74 69 6e 67 75 69 73 68 65 64 27 0a 20 20 20 | ies.how.many.`distinguished'.... |
| 5b860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 66 6f 72 6d 73 20 74 68 65 72 65 20 | ................;;..forms.there. |
| 5b880 | 61 72 65 20 62 65 66 6f 72 65 20 74 68 65 20 62 6f 64 79 20 73 74 61 72 74 73 0a 20 20 20 20 20 | are.before.the.body.starts...... |
| 5b8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 45 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 28 | ..............;;.Equivalent.to.( |
| 5b8c0 | 34 20 34 20 2e 2e 2e 20 26 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 4.4.....&body).................. |
| 5b8e0 | 20 20 28 73 65 74 71 20 63 61 6c 63 75 6c 61 74 65 64 20 28 63 6f 6e 64 20 28 28 63 64 72 20 70 | ..(setq.calculated.(cond.((cdr.p |
| 5b900 | 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ath)............................ |
| 5b920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 0a 20 | ................normal-indent).. |
| 5b940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5b960 | 20 20 20 20 20 20 20 20 20 28 28 3c 3d 20 28 63 61 72 20 70 61 74 68 29 20 6d 65 74 68 6f 64 29 | .........((<=.(car.path).method) |
| 5b980 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5b9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 60 64 69 73 74 69 6e 67 75 69 73 68 65 64 27 20 66 | ............;;.`distinguished'.f |
| 5b9c0 | 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | orm............................. |
| 5b9e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 2b 20 73 65 78 70 2d 63 6f 6c | ...............(list.(+.sexp-col |
| 5ba00 | 75 6d 6e 20 34 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | umn.4).......................... |
| 5ba20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 61 69 6e 69 | ........................containi |
| 5ba40 | 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-form-start))................. |
| 5ba60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 28 63 | ..........................((=.(c |
| 5ba80 | 61 72 20 70 61 74 68 29 20 28 31 2b 20 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ar.path).(1+.method))........... |
| 5baa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5bac0 | 20 3b 3b 20 66 69 72 73 74 20 62 6f 64 79 20 66 6f 72 6d 2e 0a 20 20 20 20 20 20 20 20 20 20 20 | .;;.first.body.form............. |
| 5bae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5bb00 | 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 29 | (+.sexp-column.lisp-body-indent) |
| 5bb20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 5bb40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............(t.................. |
| 5bb60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6f 74 68 | ..........................;;.oth |
| 5bb80 | 65 72 20 62 6f 64 79 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er.body.form.................... |
| 5bba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 72 6d 61 6c 2d 69 | ........................normal-i |
| 5bbc0 | 6e 64 65 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 | ndent))))...................(t.. |
| 5bbe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6c 63 75 6c 61 74 | ..................(setq.calculat |
| 5bc00 | 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d | ed..........................(com |
| 5bc20 | 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 63 61 6c 6c 2d 6d 65 74 68 6f 64 0a 20 20 20 20 | mon-lisp-indent-call-method..... |
| 5bc40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 6d | ......................function.m |
| 5bc60 | 65 74 68 6f 64 20 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 0a 20 20 | ethod.path.state.indent-point... |
| 5bc80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 78 70 2d 63 6f 6c | ........................sexp-col |
| 5bca0 | 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | umn.normal-indent))))).......... |
| 5bcc0 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 73 65 78 70 29 0a 20 20 20 | .(goto-char.containing-sexp).... |
| 5bce0 | 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 61 73 74 2d 70 6f 69 6e 74 20 63 6f 6e 74 61 69 6e 69 | .......(setq.last-point.containi |
| 5bd00 | 6e 67 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 63 61 6c 63 75 | ng-sexp)...........(unless.calcu |
| 5bd20 | 6c 61 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 | lated.............(condition-cas |
| 5bd40 | 65 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 62 61 63 | e.().................(progn.(bac |
| 5bd60 | 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kward-up-list.1)................ |
| 5bd80 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 65 70 74 68 20 28 31 2b 20 64 65 70 74 68 29 29 29 | ........(setq.depth.(1+.depth))) |
| 5bda0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 | ...............(error........... |
| 5bdc0 | 20 20 20 20 20 28 73 65 74 71 20 64 65 70 74 68 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6d 61 78 | .....(setq.depth.lisp-indent-max |
| 5bde0 | 69 6d 75 6d 2d 62 61 63 6b 74 72 61 63 6b 69 6e 67 29 29 29 29 29 29 0a 0a 20 20 20 20 20 20 28 | imum-backtracking))))))........( |
| 5be00 | 6f 72 20 63 61 6c 63 75 6c 61 74 65 64 20 74 65 6e 74 61 74 69 76 65 2d 63 61 6c 63 75 6c 61 74 | or.calculated.tentative-calculat |
| 5be20 | 65 64 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 61 6c 6c 62 61 63 6b 2e 0a 20 20 20 20 20 20 | ed...........;;.Fallback........ |
| 5be40 | 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 6e 73 74 65 61 64 20 6f 66 20 70 | ....;;...........;;.Instead.of.p |
| 5be60 | 75 6e 74 69 6e 67 20 64 69 72 65 63 74 6c 79 20 74 6f 20 63 61 6c 63 75 6c 61 74 65 2d 6c 69 73 | unting.directly.to.calculate-lis |
| 5be80 | 70 2d 69 6e 64 65 6e 74 20 77 65 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 68 61 6e 64 6c 65 20 | p-indent.we...........;;.handle. |
| 5bea0 | 61 20 66 65 77 20 6f 66 20 63 61 73 65 73 20 69 74 20 64 6f 65 73 6e 27 74 20 64 65 61 6c 20 77 | a.few.of.cases.it.doesn't.deal.w |
| 5bec0 | 69 74 68 3a 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 | ith:...........;;...........;;.A |
| 5bee0 | 3a 20 28 66 6f 6f 20 28 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 62 | :.(foo.(...........;;..........b |
| 5bf00 | 61 72 20 7a 6f 74 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 71 75 75 | ar.zot...........;;..........quu |
| 5bf20 | 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 | x))...........;;...........;;... |
| 5bf40 | 20 77 6f 75 6c 64 20 61 6c 69 67 6e 20 51 55 55 58 20 77 69 74 68 20 5a 4f 54 2e 0a 20 20 20 20 | .would.align.QUUX.with.ZOT...... |
| 5bf60 | 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 42 3a 0a 20 20 20 20 20 20 20 | ......;;...........;;.B:........ |
| 5bf80 | 20 20 20 3b 3b 20 20 20 28 66 6f 6f 20 28 6f 72 20 78 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | ...;;...(foo.(or.x...........;;. |
| 5bfa0 | 20 20 20 20 20 20 20 20 20 20 20 79 29 20 74 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 | ...........y).t...........;;.... |
| 5bfc0 | 20 20 20 20 7a 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | ....z)...........;;...........;; |
| 5bfe0 | 20 20 20 77 6f 75 6c 64 20 61 6c 69 67 6e 20 74 68 65 20 5a 20 77 69 74 68 20 59 2e 0a 20 20 20 | ...would.align.the.Z.with.Y..... |
| 5c000 | 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 3a 0a 20 20 20 20 20 20 | .......;;...........;;.C:....... |
| 5c020 | 20 20 20 20 3b 3b 20 20 20 28 66 6f 6f 20 3b 3b 20 43 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 | ....;;...(foo.;;.Comment........ |
| 5c040 | 20 20 20 3b 3b 20 20 20 20 20 20 20 20 28 62 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | ...;;........(bar)...........;;. |
| 5c060 | 20 20 20 20 20 20 20 3b 3b 20 43 6f 6d 6d 65 6e 74 20 32 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | .......;;.Comment.2...........;; |
| 5c080 | 20 20 20 20 20 20 20 20 28 71 75 75 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 | ........(quux))...........;;.... |
| 5c0a0 | 20 20 20 20 20 20 20 3b 3b 20 20 20 77 6f 75 6c 64 20 69 6e 64 65 6e 74 20 42 41 52 20 61 6e 64 | .......;;...would.indent.BAR.and |
| 5c0c0 | 20 51 55 55 58 20 62 79 20 6f 6e 65 2e 0a 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d | .QUUX.by.one............(ignore- |
| 5c0e0 | 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 | errors.............(save-excursi |
| 5c100 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 69 6e 64 65 | on...............(goto-char.inde |
| 5c120 | 6e 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 2d 74 6f | nt-point)...............(back-to |
| 5c140 | 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | -indentation)...............(let |
| 5c160 | 20 28 28 70 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .((p.(point))).................( |
| 5c180 | 67 6f 74 6f 2d 63 68 61 72 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 | goto-char.containing-form-start) |
| 5c1a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c 69 73 74 29 0a 20 20 20 | .................(down-list).... |
| 5c1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 6e 65 20 28 63 75 72 72 65 6e 74 | .............(let.((one.(current |
| 5c1e0 | 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6b | -column)))...................(sk |
| 5c200 | 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 5c 74 22 29 0a 20 20 20 20 20 20 20 20 | ip-chars-forward.".\t")......... |
| 5c220 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 65 6f 6c 70 29 20 28 6c 6f 6f 6b 69 6e | ..........(if.(or.(eolp).(lookin |
| 5c240 | 67 2d 61 74 20 22 3b 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g-at.";"))...................... |
| 5c260 | 20 3b 3b 20 41 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | .;;.A........................(li |
| 5c280 | 73 74 20 6f 6e 65 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 0a 20 20 | st.one.containing-form-start)... |
| 5c2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 20 | ..................(forward-sexp. |
| 5c2c0 | 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 | 2).....................(backward |
| 5c2e0 | 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | -sexp).....................(if.( |
| 5c300 | 2f 3d 20 70 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | /=.p.(point))................... |
| 5c320 | 20 20 20 20 20 20 3b 3b 20 42 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......;;.B...................... |
| 5c340 | 20 20 20 20 28 6c 69 73 74 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 20 63 6f 6e 74 61 | ....(list.(current-column).conta |
| 5c360 | 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ining-form-start)............... |
| 5c380 | 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 | ........(backward-sexp)......... |
| 5c3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 | ..............(forward-sexp).... |
| 5c3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 6d 70 20 28 2b | ...................(let.((tmp.(+ |
| 5c3e0 | 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 | .(current-column).1))).......... |
| 5c400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 | ...............(skip-chars-forwa |
| 5c420 | 72 64 20 22 20 5c 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rd.".\t")....................... |
| 5c440 | 20 20 28 69 66 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3b 22 29 0a 20 20 20 20 20 20 20 20 20 | ..(if.(looking-at.";").......... |
| 5c460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 2e 0a 20 20 20 20 20 20 20 | ...................;;.C......... |
| 5c480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 74 6d 70 20 63 | .....................(list.tmp.c |
| 5c4a0 | 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 29 29 29 29 29 29 29 29 29 29 29 | ontaining-form-start)))))))))))) |
| 5c4c0 | 29 0a 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 63 61 | )...(defun.common-lisp-indent-ca |
| 5c4e0 | 6c 6c 2d 6d 65 74 68 6f 64 20 28 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 20 70 61 74 68 20 | ll-method.(function.method.path. |
| 5c500 | 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | state.indent-point.............. |
| 5c520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 78 70 2d 63 | ..........................sexp-c |
| 5c540 | 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 0a 20 20 28 6c 65 74 20 28 28 6c 69 | olumn.normal-indent)...(let.((li |
| 5c560 | 73 70 2d 69 6e 64 65 6e 74 2d 65 72 72 6f 72 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f | sp-indent-error-function.functio |
| 5c580 | 6e 29 29 0a 20 20 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 6d 65 74 68 6f 64 29 0a 20 20 20 | n)).....(if.(symbolp.method).... |
| 5c5a0 | 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 20 20 | .....(funcall.method............ |
| 5c5c0 | 20 20 20 20 20 20 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 0a 20 20 | ......path.state.indent-point... |
| 5c5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 | ...............sexp-column.norma |
| 5c600 | 6c 2d 69 6e 64 65 6e 74 29 0a 20 20 20 20 20 20 28 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 32 35 39 | l-indent).......(lisp-indent-259 |
| 5c620 | 20 6d 65 74 68 6f 64 20 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 0a | .method.path.state.indent-point. |
| 5c640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 78 70 2d 63 6f 6c 75 | .......................sexp-colu |
| 5c660 | 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 29 29 29 0a 0a 3b 3b 20 44 79 6e 61 6d 69 63 | mn.normal-indent))))..;;.Dynamic |
| 5c680 | 61 6c 6c 79 20 62 6f 75 6e 64 20 69 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 | ally.bound.in.common-lisp-indent |
| 5c6a0 | 2d 63 61 6c 6c 2d 6d 65 74 68 6f 64 2e 0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d 69 6e 64 65 6e | -call-method..(defvar.lisp-inden |
| 5c6c0 | 74 2d 65 72 72 6f 72 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 | t-error-function)..(defun.lisp-i |
| 5c6e0 | 6e 64 65 6e 74 2d 72 65 70 6f 72 74 2d 62 61 64 2d 66 6f 72 6d 61 74 20 28 6d 29 0a 20 20 28 65 | ndent-report-bad-format.(m)...(e |
| 5c700 | 72 72 6f 72 20 22 25 73 20 68 61 73 20 61 20 62 61 64 6c 79 2d 66 6f 72 6d 65 64 20 25 73 20 70 | rror."%s.has.a.badly-formed.%s.p |
| 5c720 | 72 6f 70 65 72 74 79 3a 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 4c 6f 76 65 20 74 68 | roperty:.%s"..........;;.Love.th |
| 5c740 | 6f 73 65 20 66 72 65 65 20 76 61 72 69 61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 73 21 21 0a 20 | ose.free.variable.references!!.. |
| 5c760 | 20 20 20 20 20 20 20 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 65 72 72 6f 72 2d 66 75 6e 63 74 69 | ........lisp-indent-error-functi |
| 5c780 | 6f 6e 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 | on.'common-lisp-indent-function. |
| 5c7a0 | 6d 29 29 0a 0a 0a 3b 3b 20 4c 61 6d 62 64 61 2d 6c 69 73 74 20 69 6e 64 65 6e 74 61 74 69 6f 6e | m))...;;.Lambda-list.indentation |
| 5c7c0 | 20 69 73 20 6e 6f 77 20 64 6f 6e 65 20 69 6e 20 4c 49 53 50 2d 49 4e 44 45 4e 54 2d 4c 41 4d 42 | .is.now.done.in.LISP-INDENT-LAMB |
| 5c7e0 | 44 41 2d 4c 49 53 54 2e 0a 3b 3b 20 53 65 65 20 61 6c 73 6f 20 60 6c 69 73 70 2d 6c 61 6d 62 64 | DA-LIST..;;.See.also.`lisp-lambd |
| 5c800 | 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 27 2c 0a 3b 3b 20 60 6c | a-list-keyword-alignment',.;;.`l |
| 5c820 | 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 | isp-lambda-list-keyword-paramete |
| 5c840 | 72 2d 61 6c 69 67 6e 6d 65 6e 74 27 20 61 6e 64 0a 3b 3b 20 60 6c 69 73 70 2d 6c 61 6d 62 64 61 | r-alignment'.and.;;.`lisp-lambda |
| 5c860 | 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 69 6e 64 65 6e 74 61 74 | -list-keyword-parameter-indentat |
| 5c880 | 69 6f 6e 27 20 2d 2d 20 64 76 6c 0a 0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d 69 6e 64 65 6e 74 | ion'.--.dvl..(defvar.lisp-indent |
| 5c8a0 | 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 2d 72 65 67 65 78 70 0a 20 20 22 | -lambda-list-keywords-regexp..." |
| 5c8c0 | 26 5c 5c 28 5c 0a 6f 70 74 69 6f 6e 61 6c 5c 5c 7c 72 65 73 74 5c 5c 7c 6b 65 79 5c 5c 7c 61 6c | &\\(\.optional\\|rest\\|key\\|al |
| 5c8e0 | 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 5c 5c 7c 61 75 78 5c 5c 7c 77 68 6f 6c 65 5c 5c 7c 62 | low-other-keys\\|aux\\|whole\\|b |
| 5c900 | 6f 64 79 5c 5c 7c 5c 0a 65 6e 76 69 72 6f 6e 6d 65 6e 74 5c 5c 7c 6d 6f 72 65 5c 0a 5c 5c 29 5c | ody\\|\.environment\\|more\.\\)\ |
| 5c920 | 5c 3e 22 0a 20 20 22 52 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 74 63 68 69 | \>"..."Regular.expression.matchi |
| 5c940 | 6e 67 20 6c 61 6d 62 64 61 2d 6c 69 73 74 20 6b 65 79 77 6f 72 64 73 2e 22 29 0a 0a 28 64 65 66 | ng.lambda-list.keywords.")..(def |
| 5c960 | 76 61 72 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 73 69 6e 67 | var.lisp-indent-lambda-list-sing |
| 5c980 | 6c 65 2d 61 72 67 2d 6b 65 79 77 6f 72 64 73 2d 72 65 67 65 78 70 0a 20 20 22 26 5c 5c 28 77 68 | le-arg-keywords-regexp..."&\\(wh |
| 5c9a0 | 6f 6c 65 5c 5c 7c 65 6e 76 69 72 6f 6e 6d 65 6e 74 5c 5c 29 5c 5c 3e 22 0a 20 20 22 52 65 67 75 | ole\\|environment\\)\\>"..."Regu |
| 5c9c0 | 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 74 63 68 69 6e 67 20 6c 61 6d 62 64 61 2d 6c | lar.expression.matching.lambda-l |
| 5c9e0 | 69 73 74 20 6b 65 79 77 6f 72 64 73 20 77 68 69 63 68 20 74 61 6b 65 20 61 20 73 69 6e 67 6c 65 | ist.keywords.which.take.a.single |
| 5ca00 | 20 61 72 67 75 6d 65 6e 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 | .argument.")..(defun.lisp-indent |
| 5ca20 | 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 20 20 20 20 28 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 | -lambda-list.....(indent-point.s |
| 5ca40 | 65 78 70 2d 63 6f 6c 75 6d 6e 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 | exp-column.containing-form-start |
| 5ca60 | 29 0a 20 20 28 69 66 20 28 6e 6f 74 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 69 6e | )...(if.(not.lisp-lambda-list-in |
| 5ca80 | 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 31 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e | dentation).......(1+.sexp-column |
| 5caa0 | 29 0a 20 20 20 20 28 6c 69 73 70 2d 70 72 6f 70 65 72 6c 79 2d 69 6e 64 65 6e 74 2d 6c 61 6d 62 | ).....(lisp-properly-indent-lamb |
| 5cac0 | 64 61 2d 6c 69 73 74 0a 20 20 20 20 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 | da-list......indent-point.sexp-c |
| 5cae0 | 6f 6c 75 6d 6e 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 29 29 0a 0a | olumn.containing-form-start))).. |
| 5cb00 | 28 64 65 66 75 6e 20 6c 69 73 70 2d 70 72 6f 70 65 72 6c 79 2d 69 6e 64 65 6e 74 2d 6c 61 6d 62 | (defun.lisp-properly-indent-lamb |
| 5cb20 | 64 61 2d 6c 69 73 74 0a 20 20 20 20 28 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 | da-list.....(indent-point.sexp-c |
| 5cb40 | 6f 6c 75 6d 6e 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 0a 20 20 28 | olumn.containing-form-start)...( |
| 5cb60 | 6c 65 74 20 28 6c 69 6d 69 74 29 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 28 28 73 61 76 | let.(limit).....(cond......((sav |
| 5cb80 | 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 69 | e-excursion.........(goto-char.i |
| 5cba0 | 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 28 62 61 63 6b 2d 74 6f 2d 69 6e | ndent-point).........(back-to-in |
| 5cbc0 | 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 69 6d 69 74 20 28 | dentation).........(setq.limit.( |
| 5cbe0 | 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6c 69 73 70 | point)).........(looking-at.lisp |
| 5cc00 | 2d 69 6e 64 65 6e 74 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 2d 72 65 67 | -indent-lambda-list-keywords-reg |
| 5cc20 | 65 78 70 29 29 0a 20 20 20 20 20 20 3b 3b 20 57 65 27 72 65 20 66 61 63 69 6e 67 20 61 20 6c 61 | exp)).......;;.We're.facing.a.la |
| 5cc40 | 6d 62 64 61 2d 6c 69 73 74 20 6b 65 79 77 6f 72 64 2e 0a 20 20 20 20 20 20 28 69 66 20 6c 69 73 | mbda-list.keyword........(if.lis |
| 5cc60 | 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 61 6c 69 67 6e 6d 65 6e 74 0a | p-lambda-list-keyword-alignment. |
| 5cc80 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 6c 69 67 6e 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 | ..........;;.Align.to.the.first. |
| 5cca0 | 6b 65 79 77 6f 72 64 20 69 66 20 61 6e 79 2c 20 6f 72 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e | keyword.if.any,.or.to.the.beginn |
| 5ccc0 | 69 6e 67 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 6c 61 6d 62 64 61 2d 6c | ing.of...........;;.the.lambda-l |
| 5cce0 | 69 73 74 2e 0a 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 | ist............(save-excursion.. |
| 5cd00 | 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 63 6f 6e 74 61 69 6e 69 6e 67 | ...........(goto-char.containing |
| 5cd20 | 2d 66 6f 72 6d 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c | -form-start).............(down-l |
| 5cd40 | 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6b 65 79 2d 69 6e 64 65 | ist).............(let.((key-inde |
| 5cd60 | 6e 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 78 74 20 | nt.nil)...................(next. |
| 5cd80 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 6e 65 | t))...............(while.(and.ne |
| 5cda0 | 78 74 20 28 3c 20 28 70 6f 69 6e 74 29 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 | xt.(<.(point).indent-point)).... |
| 5cdc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6c 69 73 | .............(if.(looking-at.lis |
| 5cde0 | 70 2d 69 6e 64 65 6e 74 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 2d 72 65 | p-indent-lambda-list-keywords-re |
| 5ce00 | 67 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | gexp).....................(setq. |
| 5ce20 | 6b 65 79 2d 69 6e 64 65 6e 74 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 | key-indent.(current-column)..... |
| 5ce40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 20 6e 69 6c 29 0a | ......................next.nil). |
| 5ce60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 65 78 74 20 28 69 67 | ..................(setq.next.(ig |
| 5ce80 | 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 20 74 29 29 0a 20 | nore-errors.(forward-sexp).t)).. |
| 5cea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6e 65 78 74 0a 20 20 20 20 20 20 | .................(if.next....... |
| 5cec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 | ................(ignore-errors.. |
| 5cee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d | .......................(forward- |
| 5cf00 | 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 | sexp).........................(b |
| 5cf20 | 61 63 6b 77 61 72 64 2d 73 65 78 70 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ackward-sexp)))))............... |
| 5cf40 | 28 6f 72 20 6b 65 79 2d 69 6e 64 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (or.key-indent.................. |
| 5cf60 | 20 28 31 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 | .(1+.sexp-column)))).........;;. |
| 5cf80 | 41 6c 69 67 6e 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 6c 61 | Align.to.the.beginning.of.the.la |
| 5cfa0 | 6d 62 64 61 2d 6c 69 73 74 2e 0a 20 20 20 20 20 20 20 20 28 31 2b 20 73 65 78 70 2d 63 6f 6c 75 | mbda-list..........(1+.sexp-colu |
| 5cfc0 | 6d 6e 29 29 29 0a 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 3b 3b 20 4f 74 68 65 72 77 69 73 65 | mn)))......(t.......;;.Otherwise |
| 5cfe0 | 2c 20 61 6c 69 67 6e 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 6f 66 | ,.align.to.the.first.argument.of |
| 5d000 | 20 74 68 65 20 6c 61 73 74 20 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 20 20 20 20 20 20 3b 3b 20 6b | .the.last.lambda-list.......;;.k |
| 5d020 | 65 79 77 6f 72 64 2c 20 74 68 65 20 6b 65 79 77 6f 72 64 20 69 74 73 65 6c 66 2c 20 6f 72 20 74 | eyword,.the.keyword.itself,.or.t |
| 5d040 | 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 0a 20 20 20 20 20 20 3b 3b 20 6c 61 6d | he.beginning.of.the.......;;.lam |
| 5d060 | 62 64 61 2d 6c 69 73 74 2e 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a | bda-list........(save-excursion. |
| 5d080 | 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 | ........(goto-char.indent-point) |
| 5d0a0 | 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 64 65 6e 74 20 6e 69 6c 29 0a 20 20 20 20 | .........(let.((indent.nil)..... |
| 5d0c0 | 20 20 20 20 20 20 20 20 20 20 28 6e 65 78 74 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 | ..........(next.t))...........(w |
| 5d0e0 | 68 69 6c 65 20 28 61 6e 64 20 6e 65 78 74 20 28 3e 20 28 70 6f 69 6e 74 29 20 63 6f 6e 74 61 69 | hile.(and.next.(>.(point).contai |
| 5d100 | 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ning-form-start)).............(s |
| 5d120 | 65 74 71 20 6e 65 78 74 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 62 61 63 6b 77 61 72 | etq.next.(ignore-errors.(backwar |
| 5d140 | 64 2d 73 65 78 70 29 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 | d-sexp).t)).............(let*.(( |
| 5d160 | 63 6f 6c 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 | col.(current-column))........... |
| 5d180 | 20 20 20 20 20 20 20 20 20 28 70 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(pos................... |
| 5d1a0 | 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(save-excursion............... |
| 5d1c0 | 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 6f 72 77 61 72 64 2d | ........(ignore-errors.(forward- |
| 5d1e0 | 73 65 78 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6b | sexp)).......................(sk |
| 5d200 | 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 5c 74 22 29 0a 20 20 20 20 20 20 20 20 | ip-chars-forward.".\t")......... |
| 5d220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 6f 6c 70 29 0a 20 20 20 20 20 20 20 | ..............(if.(eolp)........ |
| 5d240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 63 6f 6c 0a 20 20 20 20 20 20 | ...................(+.col....... |
| 5d260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 70 2d 6c 61 6d 62 | .......................lisp-lamb |
| 5d280 | 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 69 6e 64 65 6e 74 | da-list-keyword-parameter-indent |
| 5d2a0 | 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 | ation).........................c |
| 5d2c0 | 6f 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 | ol))))...............(cond...... |
| 5d2e0 | 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6c 69 73 70 2d 69 6e 64 65 | ..........((looking-at.lisp-inde |
| 5d300 | 6e 74 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 73 69 6e 67 6c 65 2d 61 72 67 2d 6b 65 79 77 6f 72 | nt-lambda-list-single-arg-keywor |
| 5d320 | 64 73 2d 72 65 67 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 6f | ds-regexp).................;;.So |
| 5d340 | 6d 65 20 6b 65 79 77 6f 72 64 73 20 73 75 63 68 20 61 73 20 26 77 68 6f 6c 65 20 68 61 76 65 20 | me.keywords.such.as.&whole.have. |
| 5d360 | 61 20 73 69 6e 67 6c 65 20 61 72 67 75 6d 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | a.single.argument;.............. |
| 5d380 | 20 20 20 3b 3b 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 69 6e | ...;;.following.arguments.are.in |
| 5d3a0 | 64 65 6e 74 65 64 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 0a 20 | dented.to.the.beginning.of.the.. |
| 5d3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6c 61 6d 62 64 61 2d 6c 69 73 74 2e 0a 20 | ...............;;.lambda-list... |
| 5d3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 6e 64 65 6e 74 20 63 6f 6c 0a | ...............(setq.indent.col. |
| 5d400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 20 6e 69 6c 29 29 | ......................next.nil)) |
| 5d420 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6c 69 73 | ................((looking-at.lis |
| 5d440 | 70 2d 69 6e 64 65 6e 74 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 2d 72 65 | p-indent-lambda-list-keywords-re |
| 5d460 | 67 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 6e 64 65 | gexp).................(setq.inde |
| 5d480 | 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6c 69 73 | nt.......................(if.lis |
| 5d4a0 | 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d | p-lambda-list-keyword-parameter- |
| 5d4c0 | 61 6c 69 67 6e 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | alignment....................... |
| 5d4e0 | 20 20 20 20 28 6f 72 20 69 6e 64 65 6e 74 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ....(or.indent.pos)............. |
| 5d500 | 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 63 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............(+.col.............. |
| 5d520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 70 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b | ..............lisp-lambda-list-k |
| 5d540 | 65 79 77 6f 72 64 2d 70 61 72 61 6d 65 74 65 72 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 0a 20 | eyword-parameter-indentation)).. |
| 5d560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 20 6e 69 6c 29 29 0a | .....................next.nil)). |
| 5d580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............(t............... |
| 5d5a0 | 20 20 28 73 65 74 71 20 69 6e 64 65 6e 74 20 63 6f 6c 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 | ..(setq.indent.col)))))......... |
| 5d5c0 | 20 20 28 6f 72 20 69 6e 64 65 6e 74 20 28 31 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 29 29 29 29 | ..(or.indent.(1+.sexp-column)))) |
| 5d5e0 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 61 6d 62 64 61 2d | ))))..(defun.common-lisp-lambda- |
| 5d600 | 6c 69 73 74 2d 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 2d 66 6f 72 6d 2d 70 20 28 70 6f 69 6e 74 | list-initial-value-form-p.(point |
| 5d620 | 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 74 65 20 27 78 29 0a 20 20 20 20 20 20 20 20 28 70 6f | )...(let.((state.'x).........(po |
| 5d640 | 69 6e 74 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | int.(save-excursion............. |
| 5d660 | 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 | .....(goto-char.point).......... |
| 5d680 | 20 20 20 20 20 20 20 20 28 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 | ........(back-to-indentation)... |
| 5d6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 28 73 | ...............(point)))).....(s |
| 5d6c0 | 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 | ave-excursion.......(backward-se |
| 5d6e0 | 78 70 29 0a 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 64 6f 77 6e 2d 6c | xp).......(ignore-errors.(down-l |
| 5d700 | 69 73 74 20 31 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 70 6f 69 6e 74 20 | ist.1)).......(while.(and.point. |
| 5d720 | 28 3c 20 28 70 6f 69 6e 74 29 20 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 | (<.(point).point)).........(cond |
| 5d740 | 20 28 28 6f 72 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 26 6b 65 79 22 29 20 28 6c 6f 6f 6b 69 | .((or.(looking-at."&key").(looki |
| 5d760 | 6e 67 2d 61 74 20 22 26 6f 70 74 69 6f 6e 61 6c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-at."&optional").............. |
| 5d780 | 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 26 61 75 78 22 29 29 0a 20 20 20 20 20 | ......(looking-at."&aux"))...... |
| 5d7a0 | 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 74 61 74 65 20 27 6b 65 79 29 29 0a 20 20 20 | ..........(setq.state.'key)).... |
| 5d7c0 | 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6c 69 73 70 2d 69 6e 64 | ...........((looking-at.lisp-ind |
| 5d7e0 | 65 6e 74 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 2d 72 65 67 65 78 70 29 | ent-lambda-list-keywords-regexp) |
| 5d800 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 74 61 74 65 20 27 78 29 29 | ................(setq.state.'x)) |
| 5d820 | 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 | ).........(if.(not.(ignore-error |
| 5d840 | 73 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | s.(forward-sexp).t))............ |
| 5d860 | 20 28 73 65 74 71 20 70 6f 69 6e 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 67 6e | .(setq.point.nil)...........(ign |
| 5d880 | 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d | ore-errors.............(forward- |
| 5d8a0 | 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 | sexp).............(backward-sexp |
| 5d8c0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3e 20 28 70 6f 69 6e 74 29 20 70 | ))...........(cond.((>.(point).p |
| 5d8e0 | 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 | oint)..................(backward |
| 5d900 | 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 | -sexp)..................(when.(e |
| 5d920 | 71 20 73 74 61 74 65 20 27 76 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | q.state.'var)................... |
| 5d940 | 20 28 73 65 74 71 20 73 74 61 74 65 20 27 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(setq.state.'x))............... |
| 5d960 | 20 20 20 28 6f 72 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 | ...(or.(ignore-errors........... |
| 5d980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c 69 73 74 20 31 29 0a 20 20 20 20 20 | .............(down-list.1)...... |
| 5d9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3e 20 28 70 6f 69 | ..................(cond.((>.(poi |
| 5d9c0 | 6e 74 29 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt).point)...................... |
| 5d9e0 | 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 29 29 0a 20 20 20 | .........(backward-up-list)).... |
| 5da00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 27 | ..........................((eq.' |
| 5da20 | 6b 65 79 20 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | key.state)...................... |
| 5da40 | 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 74 61 74 65 20 27 76 61 72 29 29 29 0a 20 20 20 | .........(setq.state.'var))).... |
| 5da60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 20 20 | ....................t).......... |
| 5da80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 6f 69 6e 74 20 6e 69 6c 29 29 29 0a 20 | ............(setq.point.nil))).. |
| 5daa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 73 74 61 74 65 20 27 76 61 72 29 | ................((eq.state.'var) |
| 5dac0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 74 61 74 65 20 27 | ...................(setq.state.' |
| 5dae0 | 66 6f 72 6d 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 65 71 20 27 66 6f 72 6d 20 73 74 61 74 65 | form)))))).......(eq.'form.state |
| 5db00 | 29 29 29 0a 0a 3b 3b 20 42 6c 61 6d 65 20 74 68 65 20 63 72 75 66 74 79 20 63 6f 6e 74 72 6f 6c | )))..;;.Blame.the.crufty.control |
| 5db20 | 20 73 74 72 75 63 74 75 72 65 20 6f 6e 20 64 79 6e 61 6d 69 63 20 73 63 6f 70 69 6e 67 0a 3b 3b | .structure.on.dynamic.scoping.;; |
| 5db40 | 20 20 2d 2d 20 6e 6f 74 20 6f 6e 20 6d 65 21 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65 | ..--.not.on.me!.(defun.lisp-inde |
| 5db60 | 6e 74 2d 32 35 39 0a 20 20 20 20 28 6d 65 74 68 6f 64 20 70 61 74 68 20 73 74 61 74 65 20 69 6e | nt-259.....(method.path.state.in |
| 5db80 | 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e | dent-point.sexp-column.normal-in |
| 5dba0 | 64 65 6e 74 29 0a 20 20 28 63 61 74 63 68 20 27 65 78 69 74 0a 20 20 20 20 28 6c 65 74 2a 20 28 | dent)...(catch.'exit.....(let*.( |
| 5dbc0 | 28 70 20 28 63 64 72 20 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 74 61 | (p.(cdr.path))............(conta |
| 5dbe0 | 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 20 28 65 6c 74 20 73 74 61 74 65 20 31 29 29 0a | ining-form-start.(elt.state.1)). |
| 5dc00 | 20 20 20 20 20 20 20 20 20 20 20 28 6e 20 28 31 2d 20 28 63 61 72 20 70 61 74 68 29 29 29 0a 20 | ...........(n.(1-.(car.path))).. |
| 5dc20 | 20 20 20 20 20 20 20 20 20 20 74 65 6d 20 74 61 69 6c 29 0a 20 20 20 20 20 20 28 69 66 20 28 6e | ..........tem.tail).......(if.(n |
| 5dc40 | 6f 74 20 28 63 6f 6e 73 70 20 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 69 | ot.(consp.method))...........(li |
| 5dc60 | 73 70 2d 69 6e 64 65 6e 74 2d 72 65 70 6f 72 74 2d 62 61 64 2d 66 6f 72 6d 61 74 20 6d 65 74 68 | sp-indent-report-bad-format.meth |
| 5dc80 | 6f 64 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 6e 0a 20 20 20 20 20 20 20 20 3b 3b 20 54 | od)).......(while.n.........;;.T |
| 5dca0 | 68 69 73 20 77 68 69 6c 65 20 6c 6f 6f 70 20 69 73 20 66 6f 72 20 61 64 76 61 6e 63 69 6e 67 20 | his.while.loop.is.for.advancing. |
| 5dcc0 | 61 6c 6f 6e 67 20 61 20 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 3b 3b 20 75 6e 74 69 6c 20 | along.a.method.........;;.until. |
| 5dce0 | 74 68 65 20 72 65 6c 65 76 61 6e 74 20 28 70 6f 73 73 69 62 6c 79 20 26 72 65 73 74 2f 26 62 6f | the.relevant.(possibly.&rest/&bo |
| 5dd00 | 64 79 29 20 70 61 74 74 65 72 6e 0a 20 20 20 20 20 20 20 20 3b 3b 20 69 73 20 72 65 61 63 68 65 | dy).pattern.........;;.is.reache |
| 5dd20 | 64 2e 0a 20 20 20 20 20 20 20 20 3b 3b 20 6e 20 69 73 20 73 65 74 20 74 6f 20 28 31 2d 20 6e 29 | d..........;;.n.is.set.to.(1-.n) |
| 5dd40 | 20 61 6e 64 20 6d 65 74 68 6f 64 20 74 6f 20 28 63 64 72 20 6d 65 74 68 6f 64 29 0a 20 20 20 20 | .and.method.to.(cdr.method)..... |
| 5dd60 | 20 20 20 20 3b 3b 20 65 61 63 68 20 69 74 65 72 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 28 | ....;;.each.iteration..........( |
| 5dd80 | 73 65 74 71 20 74 65 6d 20 28 63 61 72 20 6d 65 74 68 6f 64 29 29 0a 0a 20 20 20 20 20 20 20 20 | setq.tem.(car.method)).......... |
| 5dda0 | 28 6f 72 20 28 65 71 20 74 65 6d 20 27 6e 69 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 64 | (or.(eq.tem.'nil).............;d |
| 5ddc0 | 65 66 61 75 6c 74 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | efault.indentation.............( |
| 5dde0 | 65 71 20 74 65 6d 20 27 26 6c 61 6d 62 64 61 29 20 20 20 20 20 20 20 20 20 3b 6c 61 6d 62 64 61 | eq.tem.'&lambda).........;lambda |
| 5de00 | 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 74 65 6d 20 27 | .list.............(and.(eq.tem.' |
| 5de20 | 26 62 6f 64 79 29 20 28 6e 75 6c 6c 20 28 63 64 72 20 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 | &body).(null.(cdr.method)))..... |
| 5de40 | 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 74 65 6d 20 27 26 72 65 73 74 29 0a 20 20 20 | ........(and.(eq.tem.'&rest).... |
| 5de60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 70 20 28 63 64 72 20 6d 65 74 68 6f 64 | ..............(consp.(cdr.method |
| 5de80 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 28 63 64 64 72 20 | ))..................(null.(cddr. |
| 5dea0 | 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 67 65 72 70 20 | method))).............(integerp. |
| 5dec0 | 74 65 6d 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 65 78 70 6c 69 63 69 74 20 69 6e 64 65 6e 74 | tem)............;explicit.indent |
| 5dee0 | 61 74 69 6f 6e 20 73 70 65 63 69 66 69 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 | ation.specified.............(and |
| 5df00 | 20 28 63 6f 6e 73 70 20 74 65 6d 29 20 20 20 20 20 20 20 20 20 20 3b 64 65 73 74 72 75 63 74 75 | .(consp.tem)..........;destructu |
| 5df20 | 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 63 6f 6e 73 70 | ring..................(or.(consp |
| 5df40 | 20 28 63 61 72 20 74 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(car.tem))..................... |
| 5df60 | 20 28 61 6e 64 20 28 65 71 20 28 63 61 72 20 74 65 6d 29 20 27 26 77 68 6f 6c 65 29 0a 20 20 20 | .(and.(eq.(car.tem).'&whole).... |
| 5df80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 73 79 6d 62 | .......................(or.(symb |
| 5dfa0 | 6f 6c 70 20 28 63 61 64 72 20 74 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | olp.(cadr.tem))................. |
| 5dfc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 67 65 72 70 20 28 63 61 64 72 20 74 65 | ..............(integerp.(cadr.te |
| 5dfe0 | 6d 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c | m)))))).............(and.(symbol |
| 5e000 | 70 20 74 65 6d 29 20 20 20 20 20 20 20 20 3b 61 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c | p.tem)........;a.function.to.cal |
| 5e020 | 6c 20 74 6f 20 64 6f 20 74 68 65 20 77 6f 72 6b 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l.to.do.the.work................ |
| 5e040 | 20 20 20 28 6e 75 6c 6c 20 28 63 64 72 20 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 20 20 20 20 | ...(null.(cdr.method)))......... |
| 5e060 | 20 20 20 20 28 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 72 65 70 6f 72 74 2d 62 61 64 2d 66 6f 72 6d | ....(lisp-indent-report-bad-form |
| 5e080 | 61 74 20 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 74 | at.method)).........(cond.((eq.t |
| 5e0a0 | 65 6d 20 27 26 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 26 62 6f | em.'&body)................;;.&bo |
| 5e0c0 | 64 79 20 6d 65 61 6e 73 20 28 26 72 65 73 74 20 3c 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e | dy.means.(&rest.<lisp-body-inden |
| 5e0e0 | 74 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 65 78 69 74 0a | t>)................(throw.'exit. |
| 5e100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 | ......................(if.(null. |
| 5e120 | 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 | p)...........................(+. |
| 5e140 | 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 29 0a 20 20 | sexp-column.lisp-body-indent)... |
| 5e160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 72 6d 61 6c 2d 69 6e 64 | ......................normal-ind |
| 5e180 | 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 74 65 6d 20 27 26 | ent)))...............((eq.tem.'& |
| 5e1a0 | 72 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 69 73 20 70 61 74 | rest)................;;.this.pat |
| 5e1c0 | 74 65 72 6e 20 68 6f 6c 64 73 20 66 6f 72 20 61 6c 6c 20 72 65 6d 61 69 6e 69 6e 67 20 66 6f 72 | tern.holds.for.all.remaining.for |
| 5e1e0 | 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 61 69 6c 20 28 3e 20 | ms................(setq.tail.(>. |
| 5e200 | 6e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 20 30 0a 20 20 | n.0)......................n.0... |
| 5e220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 74 68 6f 64 20 28 63 64 72 20 6d | ...................method.(cdr.m |
| 5e240 | 65 74 68 6f 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3e 20 6e 20 30 29 0a | ethod)))...............((>.n.0). |
| 5e260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 72 79 20 6e 65 78 74 20 65 6c 65 6d 65 | ...............;;.try.next.eleme |
| 5e280 | 6e 74 20 6f 66 20 70 61 74 74 65 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | nt.of.pattern................(se |
| 5e2a0 | 74 71 20 6e 20 28 31 2d 20 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tq.n.(1-.n)..................... |
| 5e2c0 | 20 6d 65 74 68 6f 64 20 28 63 64 72 20 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .method.(cdr.method))........... |
| 5e2e0 | 20 20 20 20 20 28 69 66 20 28 3c 20 6e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(if.(<.n.0)................ |
| 5e300 | 20 20 20 20 3b 3b 20 54 6f 6f 20 66 65 77 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 70 61 74 74 65 | ....;;.Too.few.elements.in.patte |
| 5e320 | 72 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 65 | rn.....................(throw.'e |
| 5e340 | 78 69 74 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | xit.normal-indent)))............ |
| 5e360 | 20 20 20 28 28 65 71 20 74 65 6d 20 27 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...((eq.tem.'nil)............... |
| 5e380 | 20 28 74 68 72 6f 77 20 27 65 78 69 74 20 28 69 66 20 28 63 6f 6e 73 70 20 6e 6f 72 6d 61 6c 2d | .(throw.'exit.(if.(consp.normal- |
| 5e3a0 | 69 6e 64 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | indent)......................... |
| 5e3c0 | 20 20 20 20 20 20 20 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 | ........normal-indent........... |
| 5e3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6e 6f 72 6d 61 6c | ....................(list.normal |
| 5e400 | 2d 69 6e 64 65 6e 74 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 29 29 | -indent.containing-form-start))) |
| 5e420 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 74 65 6d 20 27 26 6c 61 6d 62 64 | )...............((eq.tem.'&lambd |
| 5e440 | 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 65 78 69 74 0a 20 | a)................(throw.'exit.. |
| 5e460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 | .....................(cond.((not |
| 5e480 | 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 6b 69 6e 67 2d 62 61 63 6b 20 22 29 22 29 29 | .(common-lisp-looking-back.")")) |
| 5e4a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | ..............................;; |
| 5e4c0 | 20 49 66 20 69 74 27 73 20 6e 6f 74 20 61 20 6c 69 73 74 20 61 74 20 61 6c 6c 2c 20 69 6e 64 65 | .If.it's.not.a.list.at.all,.inde |
| 5e4e0 | 6e 74 20 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt.it........................... |
| 5e500 | 20 20 20 3b 3b 20 6c 69 6b 65 20 62 6f 64 79 20 69 6e 73 74 65 61 64 2e 0a 20 20 20 20 20 20 20 | ...;;.like.body.instead......... |
| 5e520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 | ......................(if.(null. |
| 5e540 | 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p).............................. |
| 5e560 | 20 20 20 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 | ....(+.sexp-column.lisp-body-ind |
| 5e580 | 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ent)............................ |
| 5e5a0 | 20 20 20 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ....normal-indent))............. |
| 5e5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 61 | ................((common-lisp-la |
| 5e5e0 | 6d 62 64 61 2d 6c 69 73 74 2d 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 2d 66 6f 72 6d 2d 70 0a 20 | mbda-list-initial-value-form-p.. |
| 5e600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 | .............................ind |
| 5e620 | 65 6e 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ent-point)...................... |
| 5e640 | 20 20 20 20 20 20 20 20 28 69 66 20 28 63 6f 6e 73 70 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 | ........(if.(consp.normal-indent |
| 5e660 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 5e680 | 20 20 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...normal-indent................ |
| 5e6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6e 6f 72 6d 61 6c 2d 69 6e 64 | ................(list.normal-ind |
| 5e6c0 | 65 6e 74 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 29 29 0a 20 20 20 | ent.containing-form-start))).... |
| 5e6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 75 6c 6c 20 | .........................((null. |
| 5e700 | 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p).............................. |
| 5e720 | 28 6c 69 73 74 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 34 29 20 63 6f 6e 74 61 69 6e 69 | (list.(+.sexp-column.4).containi |
| 5e740 | 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-form-start))................. |
| 5e760 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............(t.................. |
| 5e780 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 6e 64 65 6e 74 61 74 69 6f 6e 20 77 69 74 68 69 | ............;;.Indentation.withi |
| 5e7a0 | 6e 20 61 20 6c 61 6d 62 64 61 2d 6c 69 73 74 2e 20 2d 2d 20 64 76 6c 0a 20 20 20 20 20 20 20 20 | n.a.lambda-list..--.dvl......... |
| 5e7c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 70 | .....................(list.(lisp |
| 5e7e0 | 2d 69 6e 64 65 6e 74 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -indent-lambda-list............. |
| 5e800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 6e 74 2d 70 | ........................indent-p |
| 5e820 | 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | oint............................ |
| 5e840 | 20 20 20 20 20 20 20 20 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | .........sexp-column............ |
| 5e860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 61 69 6e | .........................contain |
| 5e880 | 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing-form-start)................. |
| 5e8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f | ...................containing-fo |
| 5e8c0 | 72 6d 2d 73 74 61 72 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 69 6e | rm-start)))))...............((in |
| 5e8e0 | 74 65 67 65 72 70 20 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f | tegerp.tem)................(thro |
| 5e900 | 77 20 27 65 78 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | w.'exit.......................(i |
| 5e920 | 66 20 28 6e 75 6c 6c 20 70 29 20 20 20 20 20 20 20 20 20 3b 6e 6f 74 20 69 6e 20 73 75 62 66 6f | f.(null.p).........;not.in.subfo |
| 5e940 | 72 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | rms...........................(l |
| 5e960 | 69 73 74 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 74 65 6d 29 20 63 6f 6e 74 61 69 6e 69 | ist.(+.sexp-column.tem).containi |
| 5e980 | 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-form-start).................. |
| 5e9a0 | 20 20 20 20 20 20 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 | .......normal-indent)))......... |
| 5e9c0 | 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 70 20 74 65 6d 29 20 20 20 20 20 20 20 20 20 20 3b 61 | ......((symbolp.tem)..........;a |
| 5e9e0 | 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .function.to.call............... |
| 5ea00 | 20 28 74 68 72 6f 77 20 27 65 78 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(throw.'exit................... |
| 5ea20 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 74 65 6d 20 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 | ....(funcall.tem.path.state.inde |
| 5ea40 | 6e 74 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt-point........................ |
| 5ea60 | 20 20 20 20 20 20 20 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e | ........sexp-column.normal-inden |
| 5ea80 | 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 | t)))...............(t........... |
| 5eaa0 | 20 20 20 20 20 3b 3b 20 6d 75 73 74 20 62 65 20 61 20 64 65 73 74 72 75 63 74 69 6e 67 20 66 72 | .....;;.must.be.a.destructing.fr |
| 5eac0 | 6f 62 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 0a 20 20 20 20 20 20 20 20 | ob................(if.p......... |
| 5eae0 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 65 73 63 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 | ...........;;.descend........... |
| 5eb00 | 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 65 74 68 6f 64 20 28 63 64 64 72 20 74 65 6d 29 | .........(setq.method.(cddr.tem) |
| 5eb20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 20 28 63 61 72 | ..........................n.(car |
| 5eb40 | 20 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 20 28 | .p)..........................p.( |
| 5eb60 | 63 64 72 20 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cdr.p).......................... |
| 5eb80 | 74 61 69 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | tail.nil)..................(let. |
| 5eba0 | 28 28 77 68 6f 6c 65 70 20 28 65 71 20 27 26 77 68 6f 6c 65 20 28 63 61 72 20 74 65 6d 29 29 29 | ((wholep.(eq.'&whole.(car.tem))) |
| 5ebc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 65 6d 20 28 | )....................(setq.tem.( |
| 5ebe0 | 63 61 64 72 20 74 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 | cadr.tem))....................(t |
| 5ec00 | 68 72 6f 77 20 27 65 78 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hrow.'exit...................... |
| 5ec20 | 20 20 20 20 20 28 63 6f 6e 64 20 28 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(cond.(tail................ |
| 5ec40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 77 68 6f 6c 65 | ..................(if.(and.whole |
| 5ec60 | 70 20 28 69 6e 74 65 67 65 72 70 20 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p.(integerp.tem)................ |
| 5ec80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 | ...........................(save |
| 5eca0 | 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -excursion...................... |
| 5ecc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 | .......................(goto-cha |
| 5ece0 | 72 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.indent-point)................. |
| 5ed00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 | ............................(bac |
| 5ed20 | 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | k-to-indentation)............... |
| 5ed40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ..............................(l |
| 5ed60 | 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 77 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ooking-at."\\sw")))............. |
| 5ed80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 72 | .........................;;.Ther |
| 5eda0 | 65 27 73 20 61 20 66 75 72 74 68 65 72 20 6c 65 76 65 6c 20 6f 66 0a 20 20 20 20 20 20 20 20 20 | e's.a.further.level.of.......... |
| 5edc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 | ............................;;.d |
| 5ede0 | 65 73 74 72 75 63 74 75 72 69 6e 67 2c 20 62 75 74 20 77 65 27 72 65 20 6c 6f 6f 6b 69 6e 67 20 | estructuring,.but.we're.looking. |
| 5ee00 | 61 74 20 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | at.a............................ |
| 5ee20 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 6f 72 64 20 2d 2d 20 69 6e 64 65 6e 74 20 74 6f 20 73 | ..........;;.word.--.indent.to.s |
| 5ee40 | 65 78 70 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | exp............................. |
| 5ee60 | 20 20 20 20 20 20 20 20 20 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 74 65 6d 29 0a 20 20 | ..........(+.sexp-column.tem)... |
| 5ee80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5eea0 | 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .normal-indent))................ |
| 5eec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 74 65 6d 29 0a 20 20 20 20 | .................((not.tem)..... |
| 5eee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | .............................(li |
| 5ef00 | 73 74 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | st.normal-indent................ |
| 5ef20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 61 69 6e 69 | ........................containi |
| 5ef40 | 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-form-start))................. |
| 5ef60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 69 6e 74 65 67 65 72 70 20 74 65 6d 29 0a | ................((integerp.tem). |
| 5ef80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5efa0 | 20 28 6c 69 73 74 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 74 65 6d 29 0a 20 20 20 20 20 | .(list.(+.sexp-column.tem)...... |
| 5efc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5efe0 | 20 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 | ..containing-form-start))....... |
| 5f000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 | ..........................(t.... |
| 5f020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | ..............................(f |
| 5f040 | 75 6e 63 61 6c 6c 20 74 65 6d 20 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 | uncall.tem.path.state.indent-poi |
| 5f060 | 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt.............................. |
| 5f080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d | .............sexp-column.normal- |
| 5f0a0 | 69 6e 64 65 6e 74 29 29 29 29 29 29 29 29 29 29 29 29 0a 0c 0a 28 64 65 66 75 6e 20 6c 69 73 70 | indent))))))))))))...(defun.lisp |
| 5f0c0 | 2d 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64 79 20 28 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 | -indent-tagbody.(path.state.inde |
| 5f0e0 | 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 | nt-point.sexp-column.normal-inde |
| 5f100 | 6e 74 29 0a 20 20 28 69 66 20 28 6e 6f 74 20 28 6e 75 6c 6c 20 28 63 64 72 20 70 61 74 68 29 29 | nt)...(if.(not.(null.(cdr.path)) |
| 5f120 | 29 0a 20 20 20 20 20 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 0a 20 20 20 20 28 73 61 76 65 2d | ).......normal-indent.....(save- |
| 5f140 | 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 69 6e 64 65 6e | excursion.......(goto-char.inden |
| 5f160 | 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 28 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 | t-point).......(back-to-indentat |
| 5f180 | 69 6f 6e 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 64 20 28 28 6c 6f 6f 6b 69 6e 67 | ion).......(list.(cond.((looking |
| 5f1a0 | 2d 61 74 20 22 5c 5c 73 77 5c 5c 7c 5c 5c 73 5f 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -at."\\sw\\|\\s_").............. |
| 5f1c0 | 20 20 20 20 20 20 3b 3b 20 61 20 74 61 67 62 6f 64 79 20 74 61 67 0a 20 20 20 20 20 20 20 20 20 | ......;;.a.tagbody.tag.......... |
| 5f1e0 | 20 20 20 20 20 20 20 20 20 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 74 61 | ..........(+.sexp-column.lisp-ta |
| 5f200 | 67 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g-indentation))................. |
| 5f220 | 20 20 28 28 69 6e 74 65 67 65 72 70 20 6c 69 73 70 2d 74 61 67 2d 62 6f 64 79 2d 69 6e 64 65 6e | ..((integerp.lisp-tag-body-inden |
| 5f240 | 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 73 65 | tation)....................(+.se |
| 5f260 | 78 70 2d 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 74 61 67 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 | xp-column.lisp-tag-body-indentat |
| 5f280 | 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 6c 69 73 | ion))...................((eq.lis |
| 5f2a0 | 70 2d 74 61 67 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 27 74 29 0a 20 20 20 20 20 | p-tag-body-indentation.'t)...... |
| 5f2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 28 29 | ..............(condition-case.() |
| 5f2e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 | ........................(progn.( |
| 5f300 | 62 61 63 6b 77 61 72 64 2d 73 65 78 70 20 31 29 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e | backward-sexp.1).(current-column |
| 5f320 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 | ))......................(error.( |
| 5f340 | 31 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1+.sexp-column)))).............. |
| 5f360 | 20 20 20 20 20 28 74 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 62 6f 64 79 | .....(t.(+.sexp-column.lisp-body |
| 5f380 | 2d 69 6e 64 65 6e 74 29 29 29 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 | -indent))).;............(cond.(( |
| 5f3a0 | 69 6e 74 65 67 65 72 70 20 6c 69 73 70 2d 74 61 67 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 | integerp.lisp-tag-body-indentati |
| 5f3c0 | 6f 6e 29 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 73 65 78 70 2d | on).;...................(+.sexp- |
| 5f3e0 | 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 74 61 67 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e | column.lisp-tag-body-indentation |
| 5f400 | 29 29 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 6c 69 73 70 2d | )).;..................((eq.lisp- |
| 5f420 | 74 61 67 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 27 74 29 0a 3b 20 20 20 20 20 20 | tag-body-indentation.'t).;...... |
| 5f440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 0a 3b 20 20 20 | .............normal-indent).;... |
| 5f460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............(t.;............. |
| 5f480 | 20 20 20 20 20 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 62 6f 64 79 2d 69 | ......(+.sexp-column.lisp-body-i |
| 5f4a0 | 6e 64 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 74 20 73 74 61 74 65 20 | ndent))).............(elt.state. |
| 5f4c0 | 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 | 1).............))))..(defun.lisp |
| 5f4e0 | 2d 69 6e 64 65 6e 74 2d 64 6f 20 28 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f | -indent-do.(path.state.indent-po |
| 5f500 | 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 0a 20 | int.sexp-column.normal-indent).. |
| 5f520 | 20 28 69 66 20 28 3e 3d 20 28 63 61 72 20 70 61 74 68 29 20 33 29 0a 20 20 20 20 20 20 28 6c 65 | .(if.(>=.(car.path).3).......(le |
| 5f540 | 74 20 28 28 6c 69 73 70 2d 74 61 67 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6c 69 | t.((lisp-tag-body-indentation.li |
| 5f560 | 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c | sp-body-indent)).........(funcal |
| 5f580 | 6c 20 28 66 75 6e 63 74 69 6f 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64 79 29 | l.(function.lisp-indent-tagbody) |
| 5f5a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 | ..................path.state.ind |
| 5f5c0 | 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 | ent-point.sexp-column.normal-ind |
| 5f5e0 | 65 6e 74 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 66 75 6e 63 74 69 6f 6e 20 6c 69 73 | ent)).....(funcall.(function.lis |
| 5f600 | 70 2d 69 6e 64 65 6e 74 2d 32 35 39 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 28 26 77 | p-indent-259)..............'((&w |
| 5f620 | 68 6f 6c 65 20 6e 69 6c 20 26 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | hole.nil.&rest.................; |
| 5f640 | 3b 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 61 75 73 65 73 20 77 65 69 72 64 20 69 6e 64 | ;.the.following.causes.weird.ind |
| 5f660 | 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 26 77 68 6f | entation.................;;(&who |
| 5f680 | 6c 65 20 31 20 31 20 32 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a | le.1.1.2.nil).................). |
| 5f6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 26 77 68 6f 6c 65 20 6e 69 6c 20 26 72 65 73 74 | ...............(&whole.nil.&rest |
| 5f6c0 | 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 | .1))..............path.state.ind |
| 5f6e0 | 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 | ent-point.sexp-column.normal-ind |
| 5f700 | 65 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 64 65 66 73 65 | ent)))..(defun.lisp-indent-defse |
| 5f720 | 74 66 0a 20 20 20 20 28 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 | tf.....(path.state.indent-point. |
| 5f740 | 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 0a 20 20 28 6c 69 | sexp-column.normal-indent)...(li |
| 5f760 | 73 74 0a 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 3b 3b 20 49 6e 73 69 64 65 20 74 68 65 20 6c 61 | st....(cond.....;;.Inside.the.la |
| 5f780 | 6d 62 64 61 2d 6c 69 73 74 20 69 6e 20 61 20 6c 6f 6e 67 2d 66 6f 72 6d 20 64 65 66 73 65 74 66 | mbda-list.in.a.long-form.defsetf |
| 5f7a0 | 2e 0a 20 20 20 20 28 28 61 6e 64 20 28 65 71 6c 20 32 20 28 63 61 72 20 70 61 74 68 29 29 20 28 | ......((and.(eql.2.(car.path)).( |
| 5f7c0 | 63 64 72 20 70 61 74 68 29 29 0a 20 20 20 20 20 28 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6c 61 6d | cdr.path))......(lisp-indent-lam |
| 5f7e0 | 62 64 61 2d 6c 69 73 74 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d | bda-list.indent-point.sexp-colum |
| 5f800 | 6e 20 28 65 6c 74 20 73 74 61 74 65 20 31 29 29 29 0a 20 20 20 20 3b 3b 20 4c 6f 6e 67 20 66 6f | n.(elt.state.1))).....;;.Long.fo |
| 5f820 | 72 6d 3a 20 68 61 73 20 61 20 6c 61 6d 62 64 61 2d 6c 69 73 74 2e 0a 20 20 20 20 28 28 6f 72 20 | rm:.has.a.lambda-list......((or. |
| 5f840 | 28 63 64 72 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 | (cdr.path)..........(save-excurs |
| 5f860 | 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 65 6c 74 20 73 | ion............(goto-char.(elt.s |
| 5f880 | 74 61 74 65 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f | tate.1))............(ignore-erro |
| 5f8a0 | 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c 69 73 74 29 0a 20 20 20 20 | rs..............(down-list)..... |
| 5f8c0 | 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 20 33 29 0a 20 20 20 20 20 20 | .........(forward-sexp.3)....... |
| 5f8e0 | 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 | .......(backward-sexp).......... |
| 5f900 | 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 6e 69 6c 5c 5c 7c 28 22 29 29 29 29 0a 20 20 | ....(looking-at."nil\\|("))))... |
| 5f920 | 20 20 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 63 61 | ...(+.sexp-column.........(cl-ca |
| 5f940 | 73 65 20 28 63 61 72 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 31 20 33 29 20 34 | se.(car.path)...........((1.3).4 |
| 5f960 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 32 20 34 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 32 | )...........(2.4)...........(t.2 |
| 5f980 | 29 29 29 29 0a 20 20 20 20 3b 3b 20 53 68 6f 72 74 20 66 6f 72 6d 2e 0a 20 20 20 20 28 74 0a 20 | )))).....;;.Short.form......(t.. |
| 5f9a0 | 20 20 20 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 63 | ....(+.sexp-column.........(cl-c |
| 5f9c0 | 61 73 65 20 28 63 61 72 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 28 31 20 34 29 0a 20 | ase.(car.path)...........(1.4).. |
| 5f9e0 | 20 20 20 20 20 20 20 20 20 28 32 20 34 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 32 29 29 29 | .........(2.4)...........(t.2))) |
| 5fa00 | 29 29 0a 20 20 20 28 65 6c 74 20 73 74 61 74 65 20 31 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 | ))....(elt.state.1)))..(defun.li |
| 5fa20 | 73 70 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 6d 65 74 68 6f 64 2d 71 75 61 6c 69 66 | sp-beginning-of-defmethod-qualif |
| 5fa40 | 69 65 72 73 20 28 29 0a 20 20 28 6c 65 74 20 28 28 72 65 67 65 78 70 2d 31 20 22 28 64 65 66 6d | iers.()...(let.((regexp-1."(defm |
| 5fa60 | 65 74 68 6f 64 5c 5c 7c 28 44 45 46 4d 45 54 48 4f 44 22 29 0a 20 20 20 20 20 20 20 20 28 72 65 | ethod\\|(DEFMETHOD").........(re |
| 5fa80 | 67 65 78 70 2d 32 20 22 28 3a 6d 65 74 68 6f 64 5c 5c 7c 28 3a 4d 45 54 48 4f 44 22 29 29 0a 20 | gexp-2."(:method\\|(:METHOD")).. |
| 5faa0 | 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 6e 6f 74 20 28 6f 72 20 28 6c 6f 6f 6b 69 6e 67 | ...(while.(and.(not.(or.(looking |
| 5fac0 | 2d 61 74 20 72 65 67 65 78 70 2d 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -at.regexp-1)................... |
| 5fae0 | 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 72 65 67 65 78 70 2d 32 29 29 29 0a 20 | .......(looking-at.regexp-2))).. |
| 5fb00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 62 | ...............(ignore-errors.(b |
| 5fb20 | 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 29 20 74 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | ackward-up-list).t))).....(cond. |
| 5fb40 | 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 72 65 67 65 78 70 2d 31 29 0a 20 20 20 20 20 20 20 20 20 | ((looking-at.regexp-1).......... |
| 5fb60 | 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 | ..(forward-char)............;;.S |
| 5fb80 | 6b 69 70 20 6e 61 6d 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 | kip.name.............(forward-se |
| 5fba0 | 78 70 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 | xp.2)............1)...........(( |
| 5fbc0 | 6c 6f 6f 6b 69 6e 67 2d 61 74 20 72 65 67 65 78 70 2d 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 | looking-at.regexp-2)............ |
| 5fbe0 | 28 66 6f 72 77 61 72 64 2d 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 | (forward-char)............(forwa |
| 5fc00 | 72 64 2d 73 65 78 70 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 30 29 29 29 29 0a 0a 3b 3b 20 | rd-sexp.1)............0))))..;;. |
| 5fc20 | 4c 49 53 50 2d 49 4e 44 45 4e 54 2d 44 45 46 4d 45 54 48 4f 44 20 6e 6f 77 20 73 75 70 70 6f 72 | LISP-INDENT-DEFMETHOD.now.suppor |
| 5fc40 | 74 73 20 74 68 65 20 70 72 65 73 65 6e 63 65 20 6f 66 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 | ts.the.presence.of.more.than.one |
| 5fc60 | 20 6d 65 74 68 6f 64 0a 3b 3b 20 71 75 61 6c 69 66 69 65 72 20 61 6e 64 20 69 6e 64 65 6e 74 73 | .method.;;.qualifier.and.indents |
| 5fc80 | 20 74 68 65 20 6d 65 74 68 6f 64 27 73 20 6c 61 6d 62 64 61 20 6c 69 73 74 20 70 72 6f 70 65 72 | .the.method's.lambda.list.proper |
| 5fca0 | 6c 79 2e 20 2d 2d 20 64 76 6c 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 64 65 | ly..--.dvl.(defun.lisp-indent-de |
| 5fcc0 | 66 6d 65 74 68 6f 64 0a 20 20 20 20 28 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 | fmethod.....(path.state.indent-p |
| 5fce0 | 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 0a | oint.sexp-column.normal-indent). |
| 5fd00 | 20 20 28 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 32 35 39 0a 20 20 20 28 6c 65 74 20 28 28 6e 73 6b | ..(lisp-indent-259....(let.((nsk |
| 5fd20 | 69 70 20 6e 69 6c 29 29 0a 20 20 20 20 20 28 69 66 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f | ip.nil))......(if.(save-excursio |
| 5fd40 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 65 74 71 20 6e 73 6b 69 70 20 28 | n............(when.(setq.nskip.( |
| 5fd60 | 6c 69 73 70 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 6d 65 74 68 6f 64 2d 71 75 61 6c | lisp-beginning-of-defmethod-qual |
| 5fd80 | 69 66 69 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6b 69 70 2d 63 68 61 72 | ifiers))..............(skip-char |
| 5fda0 | 73 2d 66 6f 72 77 61 72 64 20 22 20 5c 74 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | s-forward.".\t\n").............. |
| 5fdc0 | 28 77 68 69 6c 65 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 77 5c 5c 7c 5c 5c 73 5f 22 | (while.(looking-at."\\sw\\|\\s_" |
| 5fde0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 6e 73 6b 69 70 29 | )................(cl-incf.nskip) |
| 5fe00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 0a 20 | ................(forward-sexp).. |
| 5fe20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 | ..............(skip-chars-forwar |
| 5fe40 | 64 20 22 20 5c 74 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 0a 20 20 20 | d.".\t\n"))..............t)).... |
| 5fe60 | 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 6d 61 6b 65 2d 6c 69 73 74 20 6e 73 6b 69 70 20 34 | ......(append.(make-list.nskip.4 |
| 5fe80 | 29 20 27 28 26 6c 61 6d 62 64 61 20 26 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 28 63 6f 6d 6d | ).'(&lambda.&body))........(comm |
| 5fea0 | 6f 6e 2d 6c 69 73 70 2d 67 65 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 27 64 65 66 75 6e 29 29 | on-lisp-get-indentation.'defun)) |
| 5fec0 | 29 0a 20 20 20 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 | )....path.state.indent-point.sex |
| 5fee0 | 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 29 0a 0a 28 64 65 66 75 6e | p-column.normal-indent))..(defun |
| 5ff00 | 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 68 61 63 | .lisp-indent-function-lambda-hac |
| 5ff20 | 6b 20 28 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 0a 20 20 20 20 20 | k.(path.state.indent-point...... |
| 5ff40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5ff60 | 20 20 20 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 0a 20 | ....sexp-column.normal-indent).. |
| 5ff80 | 20 3b 3b 20 69 6e 64 65 6e 74 20 28 66 75 6e 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 29 20 | .;;.indent.(function.(lambda.(). |
| 5ffa0 | 3c 6e 65 77 6c 69 6e 65 3e 20 3c 62 6f 64 79 2d 66 6f 72 6d 73 3e 29 29 20 6b 6c 75 64 67 69 6c | <newline>.<body-forms>)).kludgil |
| 5ffc0 | 79 2e 0a 20 20 28 69 66 20 28 6f 72 20 28 63 64 72 20 70 61 74 68 29 20 3b 20 77 74 66 3f 0a 20 | y....(if.(or.(cdr.path).;.wtf?.. |
| 5ffe0 | 20 20 20 20 20 20 20 20 20 28 3e 20 28 63 61 72 20 70 61 74 68 29 20 33 29 29 0a 20 20 20 20 20 | .........(>.(car.path).3))...... |
| 60000 | 20 3b 3b 20 6c 69 6e 65 20 75 70 20 75 6e 64 65 72 20 70 72 65 76 69 6f 75 73 20 62 6f 64 79 20 | .;;.line.up.under.previous.body. |
| 60020 | 66 6f 72 6d 0a 20 20 20 20 20 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 0a 20 20 20 20 3b 3b 20 | form.......normal-indent.....;;. |
| 60040 | 6c 69 6e 65 20 75 70 20 75 6e 64 65 72 20 66 75 6e 63 74 69 6f 6e 20 72 61 74 68 65 72 20 74 68 | line.up.under.function.rather.th |
| 60060 | 61 6e 20 75 6e 64 65 72 20 6c 61 6d 62 64 61 20 69 6e 20 6f 72 64 65 72 20 74 6f 0a 20 20 20 20 | an.under.lambda.in.order.to..... |
| 60080 | 3b 3b 20 20 63 6f 6e 73 65 72 76 65 20 68 6f 72 69 7a 6f 6e 74 61 6c 20 73 70 61 63 65 2e 20 20 | ;;..conserve.horizontal.space... |
| 600a0 | 28 57 68 69 63 68 20 69 73 20 77 68 61 74 20 23 27 20 69 73 20 66 6f 72 2e 29 0a 20 20 20 20 28 | (Which.is.what.#'.is.for.).....( |
| 600c0 | 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 28 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d | condition-case.().........(save- |
| 600e0 | 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 75 70 | excursion...........(backward-up |
| 60100 | 2d 6c 69 73 74 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 | -list.2)...........(forward-char |
| 60120 | 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c | .1)...........(if.(looking-at."\ |
| 60140 | 5c 28 6c 69 73 70 3a 2b 5c 5c 29 3f 66 75 6e 63 74 69 6f 6e 5c 5c 28 5c 5c 53 77 5c 5c 7c 5c 5c | \(lisp:+\\)?function\\(\\Sw\\|\\ |
| 60160 | 53 5f 5c 5c 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 6c 69 73 70 2d 62 6f | S_\\)")...............(+.lisp-bo |
| 60180 | 64 79 2d 69 6e 64 65 6e 74 20 2d 31 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 0a 20 | dy-indent.-1.(current-column)).. |
| 601a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6c 69 73 70 | .............(+.sexp-column.lisp |
| 601c0 | 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 2b | -body-indent)))........(error.(+ |
| 601e0 | 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 29 29 29 | .sexp-column.lisp-body-indent))) |
| 60200 | 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6c 6f 6f 70 20 28 70 61 74 | ))..(defun.lisp-indent-loop.(pat |
| 60220 | 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d 6e | h.state.indent-point.sexp-column |
| 60240 | 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 0a 20 20 28 69 66 20 28 63 64 72 20 70 61 74 68 29 | .normal-indent)...(if.(cdr.path) |
| 60260 | 0a 20 20 20 20 20 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 0a 20 20 20 20 28 6c 65 74 2a 20 28 | .......normal-indent.....(let*.( |
| 60280 | 28 6c 6f 6f 70 2d 73 74 61 72 74 20 28 65 6c 74 20 73 74 61 74 65 20 31 29 29 0a 20 20 20 20 20 | (loop-start.(elt.state.1))...... |
| 602a0 | 20 20 20 20 20 20 28 74 79 70 65 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 70 2d 74 79 | ......(type.(common-lisp-loop-ty |
| 602c0 | 70 65 20 6c 6f 6f 70 2d 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 | pe.loop-start))).......(cond.((a |
| 602e0 | 6e 64 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 65 6e 74 2d 73 75 62 63 6c 61 75 73 65 73 0a 20 | nd.lisp-loop-indent-subclauses.. |
| 60300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 74 79 70 65 20 27 28 | .................(member.type.'( |
| 60320 | 65 78 74 65 6e 64 65 64 20 65 78 74 65 6e 64 65 64 2f 73 70 6c 69 74 29 29 29 0a 20 20 20 20 20 | extended.extended/split)))...... |
| 60340 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e | ........(list.(common-lisp-inden |
| 60360 | 74 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 31 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e | t-loop-macro-1.state.indent-poin |
| 60380 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 | t)....................(common-li |
| 603a0 | 73 70 2d 69 6e 64 65 6e 74 2d 70 61 72 73 65 2d 73 74 61 74 65 2d 73 74 61 72 74 20 73 74 61 74 | sp-indent-parse-state-start.stat |
| 603c0 | 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e))).............(t............. |
| 603e0 | 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 70 2d 70 61 72 74 2d 69 6e 64 65 6e 74 61 74 | .(common-lisp-loop-part-indentat |
| 60400 | 69 6f 6e 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 74 61 74 65 20 74 79 70 65 29 29 29 29 29 | ion.indent-point.state.type))))) |
| 60420 | 29 0a 0a 3b 3b 3b 3b 20 4c 4f 4f 50 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2c 20 74 68 65 20 63 6f | )..;;;;.LOOP.indentation,.the.co |
| 60440 | 6d 70 6c 65 78 20 76 65 72 73 69 6f 6e 20 2d 2d 20 68 61 6e 64 6c 65 73 20 73 75 62 63 6c 61 75 | mplex.version.--.handles.subclau |
| 60460 | 73 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 0a 3b 3b 20 52 65 67 65 78 70 73 20 6d 61 74 63 68 | se.indentation..;;.Regexps.match |
| 60480 | 69 6e 67 20 76 61 72 69 6f 75 73 20 76 61 72 69 65 74 69 65 73 20 6f 66 20 6c 6f 6f 70 20 6d 61 | ing.various.varieties.of.loop.ma |
| 604a0 | 63 72 6f 20 6b 65 79 77 6f 72 64 20 2e 2e 2e 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c | cro.keyword.....(defvar.common-l |
| 604c0 | 69 73 70 2d 62 6f 64 79 2d 69 6e 74 72 6f 64 75 63 69 6e 67 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d | isp-body-introducing-loop-macro- |
| 604e0 | 6b 65 79 77 6f 72 64 0a 20 20 22 5c 5c 28 23 3f 3a 5c 5c 29 3f 5c 5c 28 64 6f 5c 5c 28 69 6e 67 | keyword..."\\(#?:\\)?\\(do\\(ing |
| 60500 | 5c 5c 29 3f 5c 5c 7c 66 69 6e 61 6c 6c 79 5c 5c 7c 69 6e 69 74 69 61 6c 6c 79 5c 5c 29 22 0a 20 | \\)?\\|finally\\|initially\\)".. |
| 60520 | 20 22 52 65 67 65 78 70 20 6d 61 74 63 68 69 6e 67 20 6c 6f 6f 70 20 6d 61 63 72 6f 20 6b 65 79 | ."Regexp.matching.loop.macro.key |
| 60540 | 77 6f 72 64 73 20 77 68 69 63 68 20 69 6e 74 72 6f 64 75 63 65 20 62 6f 64 79 20 66 6f 72 6d 73 | words.which.introduce.body.forms |
| 60560 | 2e 22 29 0a 0a 3b 3b 20 4e 6f 74 20 63 75 72 72 65 6e 63 74 6c 79 20 75 73 65 64 0a 28 64 65 66 | .")..;;.Not.currenctly.used.(def |
| 60580 | 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 61 63 63 75 6d 6c 61 74 69 6f 6e 2d 6c 6f 6f 70 | var.common-lisp-accumlation-loop |
| 605a0 | 2d 6d 61 63 72 6f 2d 6b 65 79 77 6f 72 64 0a 20 20 22 5c 5c 28 23 3f 3a 5c 5c 29 3f 5c 5c 28 63 | -macro-keyword..."\\(#?:\\)?\\(c |
| 605c0 | 6f 6c 6c 65 63 74 5c 5c 28 69 6e 67 5c 5c 29 3f 5c 5c 7c 61 70 70 65 6e 64 5c 5c 28 69 6e 67 5c | ollect\\(ing\\)?\\|append\\(ing\ |
| 605e0 | 5c 29 3f 5c 5c 7c 6e 63 6f 6e 63 5c 5c 28 69 6e 67 5c 5c 29 3f 5c 5c 7c 5c 0a 63 6f 75 6e 74 5c | \)?\\|nconc\\(ing\\)?\\|\.count\ |
| 60600 | 5c 28 69 6e 67 5c 5c 29 3f 5c 5c 7c 73 75 6d 5c 5c 28 6d 69 6e 67 5c 5c 29 3f 5c 5c 7c 6d 61 78 | \(ing\\)?\\|sum\\(ming\\)?\\|max |
| 60620 | 69 6d 69 7a 5c 5c 28 65 5c 5c 7c 69 6e 67 5c 5c 29 5c 5c 7c 5c 0a 6d 69 6e 69 6d 69 7a 5c 5c 28 | imiz\\(e\\|ing\\)\\|\.minimiz\\( |
| 60640 | 65 5c 5c 7c 69 6e 67 5c 5c 29 5c 5c 29 22 0a 20 20 22 52 65 67 65 78 70 20 6d 61 74 63 68 69 6e | e\\|ing\\)\\)"..."Regexp.matchin |
| 60660 | 67 20 6c 6f 6f 70 20 6d 61 63 72 6f 20 6b 65 79 77 6f 72 64 73 20 77 68 69 63 68 20 69 6e 74 72 | g.loop.macro.keywords.which.intr |
| 60680 | 6f 64 75 63 65 20 61 63 63 75 6d 75 6c 61 74 69 6f 6e 20 63 6c 61 75 73 65 73 2e 22 29 0a 0a 3b | oduce.accumulation.clauses.")..; |
| 606a0 | 3b 20 54 68 69 73 20 69 73 20 73 6f 20 22 61 6e 64 20 77 68 65 6e 22 20 61 6e 64 20 22 65 6c 73 | ;.This.is.so."and.when".and."els |
| 606c0 | 65 20 77 68 65 6e 22 20 67 65 74 20 68 61 6e 64 6c 65 64 20 72 69 67 68 74 0a 3b 3b 20 28 6e 6f | e.when".get.handled.right.;;.(no |
| 606e0 | 74 20 74 6f 20 6d 65 6e 74 69 6f 6e 20 22 65 6c 73 65 20 64 6f 22 20 21 21 21 29 0a 28 64 65 66 | t.to.mention."else.do".!!!).(def |
| 60700 | 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 70 72 65 66 69 78 2d 6c 6f 6f 70 2d 6d 61 63 72 | var.common-lisp-prefix-loop-macr |
| 60720 | 6f 2d 6b 65 79 77 6f 72 64 0a 20 20 22 5c 5c 28 23 3f 3a 5c 5c 29 3f 5c 5c 28 61 6e 64 5c 5c 7c | o-keyword..."\\(#?:\\)?\\(and\\| |
| 60740 | 65 6c 73 65 5c 5c 29 22 0a 20 20 22 52 65 67 65 78 70 20 6d 61 74 63 68 69 6e 67 20 6c 6f 6f 70 | else\\)"..."Regexp.matching.loop |
| 60760 | 20 6d 61 63 72 6f 20 6b 65 79 77 6f 72 64 73 20 77 68 69 63 68 20 61 72 65 20 70 72 65 66 69 78 | .macro.keywords.which.are.prefix |
| 60780 | 65 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e | es.")..(defvar.common-lisp-inden |
| 607a0 | 74 2d 63 6c 61 75 73 65 2d 6a 6f 69 6e 69 6e 67 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 6b 65 79 77 | t-clause-joining-loop-macro-keyw |
| 607c0 | 6f 72 64 0a 20 20 22 5c 5c 28 23 3f 3a 5c 5c 29 3f 61 6e 64 22 0a 20 20 22 52 65 67 65 78 70 20 | ord..."\\(#?:\\)?and"..."Regexp. |
| 607e0 | 6d 61 74 63 68 69 6e 67 20 27 61 6e 64 27 2c 20 61 6e 64 20 61 6e 79 74 68 69 6e 67 20 65 6c 73 | matching.'and',.and.anything.els |
| 60800 | 65 20 74 68 65 72 65 20 65 76 65 72 20 63 6f 6d 65 73 20 74 6f 20 62 65 20 6c 69 6b 65 20 69 74 | e.there.ever.comes.to.be.like.it |
| 60820 | 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d | .")..(defvar.common-lisp-indent- |
| 60840 | 69 6e 64 65 6e 74 65 64 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 6b 65 79 77 6f 72 64 0a 20 20 22 5c | indented-loop-macro-keyword..."\ |
| 60860 | 5c 28 23 3f 3a 5c 5c 29 3f 5c 5c 28 5c 5c 28 75 70 5c 5c 7c 64 6f 77 6e 5c 5c 29 3f 28 66 72 6f | \(#?:\\)?\\(\\(up\\|down\\)?(fro |
| 60880 | 6d 5c 5c 7c 74 6f 29 5c 5c 7c 62 65 6c 6f 77 5c 5c 7c 61 62 6f 76 65 5c 5c 7c 69 6e 5c 5c 28 74 | m\\|to)\\|below\\|above\\|in\\(t |
| 608a0 | 6f 5c 5c 29 3f 5c 5c 7c 5c 0a 6f 6e 5c 5c 7c 3d 5c 5c 7c 74 68 65 6e 5c 5c 7c 61 63 72 6f 73 73 | o\\)?\\|\.on\\|=\\|then\\|across |
| 608c0 | 5c 5c 7c 62 65 69 6e 67 5c 5c 7c 65 61 63 68 5c 5c 7c 74 68 65 5c 5c 7c 6f 66 5c 5c 7c 75 73 69 | \\|being\\|each\\|the\\|of\\|usi |
| 608e0 | 6e 67 5c 5c 7c 5c 0a 5c 5c 28 70 72 65 73 65 6e 74 2d 5c 5c 7c 65 78 74 65 72 6e 61 6c 2d 5c 5c | ng\\|\.\\(present-\\|external-\\ |
| 60900 | 29 3f 73 79 6d 62 6f 6c 73 3f 5c 5c 7c 66 69 78 6e 75 6d 5c 5c 7c 66 6c 6f 61 74 5c 5c 7c 74 5c | )?symbols?\\|fixnum\\|float\\|t\ |
| 60920 | 5c 7c 6e 69 6c 5c 5c 7c 6f 66 2d 74 79 70 65 5c 5c 29 22 0a 20 20 22 52 65 67 65 78 70 20 6d 61 | \|nil\\|of-type\\)"..."Regexp.ma |
| 60940 | 74 63 68 69 6e 67 20 6b 65 79 77 6f 72 64 73 20 69 6e 74 72 6f 64 75 63 69 6e 67 20 6c 6f 6f 70 | tching.keywords.introducing.loop |
| 60960 | 20 73 75 62 63 6c 61 75 73 65 73 2e 0a 41 6c 77 61 79 73 20 69 6e 64 65 6e 74 65 64 20 74 77 6f | .subclauses..Always.indented.two |
| 60980 | 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 69 | .")..(defvar.common-lisp-indenti |
| 609a0 | 6e 67 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 6b 65 79 77 6f 72 64 0a 20 20 22 5c 5c 28 23 3f 3a 5c | ng-loop-macro-keyword..."\\(#?:\ |
| 609c0 | 5c 29 3f 5c 5c 28 77 68 65 6e 5c 5c 7c 75 6e 6c 65 73 73 5c 5c 7c 69 66 5c 5c 29 22 0a 20 20 22 | \)?\\(when\\|unless\\|if\\)"..." |
| 609e0 | 52 65 67 65 78 70 20 6d 61 74 63 68 69 6e 67 20 6b 65 79 77 6f 72 64 73 20 69 6e 74 72 6f 64 75 | Regexp.matching.keywords.introdu |
| 60a00 | 63 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 63 6c 61 75 73 65 73 2e 0a 43 61 75 73 65 20 | cing.conditional.clauses..Cause. |
| 60a20 | 73 75 62 73 65 71 75 65 6e 74 20 63 6c 61 75 73 65 73 20 74 6f 20 62 65 20 69 6e 64 65 6e 74 65 | subsequent.clauses.to.be.indente |
| 60a40 | 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 70 2d 6d | d.")..(defvar.common-lisp-loop-m |
| 60a60 | 61 63 72 6f 2d 65 6c 73 65 2d 6b 65 79 77 6f 72 64 20 22 5c 5c 28 23 3f 3a 5c 5c 29 3f 65 6c 73 | acro-else-keyword."\\(#?:\\)?els |
| 60a80 | 65 22 29 0a 0a 3b 3b 3b 20 41 74 74 65 6d 70 74 20 74 6f 20 69 6e 64 65 6e 74 20 74 68 65 20 6c | e")..;;;.Attempt.to.indent.the.l |
| 60aa0 | 6f 6f 70 20 6d 61 63 72 6f 20 2e 2e 2e 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 | oop.macro......(defun.common-lis |
| 60ac0 | 70 2d 69 6e 64 65 6e 74 2d 70 61 72 73 65 2d 73 74 61 74 65 2d 64 65 70 74 68 20 28 70 61 72 73 | p-indent-parse-state-depth.(pars |
| 60ae0 | 65 2d 73 74 61 74 65 29 0a 20 20 28 63 61 72 20 70 61 72 73 65 2d 73 74 61 74 65 29 29 0a 0a 28 | e-state)...(car.parse-state))..( |
| 60b00 | 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 70 61 72 73 65 2d 73 | defun.common-lisp-indent-parse-s |
| 60b20 | 74 61 74 65 2d 73 74 61 72 74 20 28 70 61 72 73 65 2d 73 74 61 74 65 29 0a 20 20 28 63 61 72 20 | tate-start.(parse-state)...(car. |
| 60b40 | 28 63 64 72 20 70 61 72 73 65 2d 73 74 61 74 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d | (cdr.parse-state)))..(defun.comm |
| 60b60 | 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 70 61 72 73 65 2d 73 74 61 74 65 2d 70 72 65 76 20 | on-lisp-indent-parse-state-prev. |
| 60b80 | 28 70 61 72 73 65 2d 73 74 61 74 65 29 0a 20 20 28 63 61 72 20 28 63 64 72 20 28 63 64 72 20 70 | (parse-state)...(car.(cdr.(cdr.p |
| 60ba0 | 61 72 73 65 2d 73 74 61 74 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 | arse-state))))..(defun.common-li |
| 60bc0 | 73 70 2d 6c 6f 6f 70 2d 70 61 72 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 69 6e 64 65 6e 74 | sp-loop-part-indentation.(indent |
| 60be0 | 2d 70 6f 69 6e 74 20 73 74 61 74 65 20 74 79 70 65 29 0a 20 20 22 43 6f 6d 70 75 74 65 20 74 68 | -point.state.type)..."Compute.th |
| 60c00 | 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 6c 6f 6f 70 20 66 6f 72 6d 20 63 6f 6e 73 74 | e.indentation.of.loop.form.const |
| 60c20 | 69 74 75 65 6e 74 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6c 6f 6f 70 2d 73 74 61 72 74 20 28 | ituents."...(let*.((loop-start.( |
| 60c40 | 65 6c 74 20 73 74 61 74 65 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 2d 69 6e 64 | elt.state.1))..........(loop-ind |
| 60c60 | 65 6e 74 61 74 69 6f 6e 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 | entation.(save-excursion........ |
| 60c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 | ......................(goto-char |
| 60ca0 | 20 6c 6f 6f 70 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .loop-start).................... |
| 60cc0 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 74 79 70 65 20 27 65 78 74 65 6e 64 65 64 | ..........(if.(eq.type.'extended |
| 60ce0 | 2f 73 70 6c 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | /split)......................... |
| 60d00 | 20 20 20 20 20 20 20 20 20 28 2d 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 20 34 29 0a | .........(-.(current-column).4). |
| 60d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 60d40 | 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 64 | current-column))))..........(ind |
| 60d60 | 65 6e 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 20 22 5c 5c 28 5c 5c 28 23 3f 3a | ent.nil)..........(re."\\(\\(#?: |
| 60d80 | 5c 5c 29 3f 5c 5c 73 77 2b 5c 5c 7c 29 5c 5c 7c 5c 6e 5c 5c 29 22 29 29 0a 20 20 20 20 28 67 6f | \\)?\\sw+\\|)\\|\n\\)")).....(go |
| 60da0 | 74 6f 2d 63 68 61 72 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 28 62 61 63 6b 2d | to-char.indent-point).....(back- |
| 60dc0 | 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 74 | to-indentation).....(cond.((eq.t |
| 60de0 | 79 70 65 20 27 73 69 6d 70 6c 65 2f 73 70 6c 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 2b | ype.'simple/split)............(+ |
| 60e00 | 20 6c 6f 6f 70 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6c 69 73 70 2d 73 69 6d 70 6c 65 2d 6c 6f | .loop-indentation.lisp-simple-lo |
| 60e20 | 6f 70 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 | op-indentation))...........((eq. |
| 60e40 | 74 79 70 65 20 27 73 69 6d 70 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 6c 6f 6f 70 | type.'simple)............(+.loop |
| 60e60 | 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 36 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 | -indentation.6))...........;;.We |
| 60e80 | 20 61 72 65 20 61 6c 72 65 61 64 79 20 69 6e 20 61 20 62 6f 64 79 2c 20 77 69 74 68 20 66 6f 72 | .are.already.in.a.body,.with.for |
| 60ea0 | 6d 73 20 69 6e 20 69 74 2e 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 6e 6f 74 20 28 | ms.in.it............((and.(not.( |
| 60ec0 | 6c 6f 6f 6b 69 6e 67 2d 61 74 20 72 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | looking-at.re))................. |
| 60ee0 | 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (save-excursion................. |
| 60f00 | 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 62 61 | ..(while.(and.(ignore-errors.(ba |
| 60f20 | 63 6b 77 61 72 64 2d 73 65 78 70 29 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ckward-sexp).t)................. |
| 60f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 72 | ..............(not.(looking-at.r |
| 60f60 | 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 | e))).....................(setq.i |
| 60f80 | 6e 64 65 6e 74 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 | ndent.(current-column)))........ |
| 60fa0 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 69 6e 64 65 6e 74 0a 20 20 20 | ...........(when.(and.indent.... |
| 60fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 | ..........................(looki |
| 60fe0 | 6e 67 2d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-at........................... |
| 61000 | 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 74 72 6f 64 75 63 69 6e 67 | ....common-lisp-body-introducing |
| 61020 | 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 6b 65 79 77 6f 72 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -loop-macro-keyword))........... |
| 61040 | 20 20 20 20 20 20 20 20 20 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | ..........t)))............(list. |
| 61060 | 69 6e 64 65 6e 74 20 6c 6f 6f 70 2d 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | indent.loop-start))...........;; |
| 61080 | 20 4b 65 79 77 6f 72 64 2d 73 74 79 6c 65 20 6f 72 20 63 6f 6d 6d 65 6e 74 20 6f 75 74 73 69 64 | .Keyword-style.or.comment.outsid |
| 610a0 | 65 20 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 6c 69 73 70 2d 6c 6f 6f 70 2d | e.body...........((or.lisp-loop- |
| 610c0 | 69 6e 64 65 6e 74 2d 66 6f 72 6d 73 2d 6c 69 6b 65 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 | indent-forms-like-keywords...... |
| 610e0 | 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 72 65 29 0a 20 20 20 20 20 20 | ..........(looking-at.re)....... |
| 61100 | 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3b 22 29 29 0a 20 20 20 20 20 | .........(looking-at.";"))...... |
| 61120 | 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3b 22 29 0a | ......(if.(and.(looking-at.";"). |
| 61140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 20 28 63 6f | ....................(let.((p.(co |
| 61160 | 6d 6d 6f 6e 2d 6c 69 73 70 2d 74 72 61 69 6c 69 6e 67 2d 63 6f 6d 6d 65 6e 74 29 29 29 0a 20 20 | mmon-lisp-trailing-comment)))... |
| 61180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 0a 20 20 20 20 | ....................(when.p..... |
| 611a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 6f 6f 70 2d 69 | ....................(setq.loop-i |
| 611c0 | 6e 64 65 6e 74 61 74 69 6f 6e 20 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ndentation.p))))................ |
| 611e0 | 28 6c 69 73 74 20 6c 6f 6f 70 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6c 6f 6f 70 2d 73 74 61 72 | (list.loop-indentation.loop-star |
| 61200 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 2b 20 6c 6f 6f 70 2d 69 6e | t)..............(list.(+.loop-in |
| 61220 | 64 65 6e 74 61 74 69 6f 6e 20 36 29 20 6c 6f 6f 70 2d 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 | dentation.6).loop-start)))...... |
| 61240 | 20 20 20 20 20 3b 3b 20 46 6f 72 6d 2d 73 74 79 6c 65 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a | .....;;.Form-style...........(t. |
| 61260 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 2b 20 6c 6f 6f 70 2d 69 6e 64 65 6e 74 61 | ...........(list.(+.loop-indenta |
| 61280 | 74 69 6f 6e 20 39 29 20 6c 6f 6f 70 2d 73 74 61 72 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | tion.9).loop-start)))))..(defun. |
| 612a0 | 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 31 20 | common-lisp-indent-loop-macro-1. |
| 612c0 | 28 70 61 72 73 65 2d 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 0a 20 20 28 63 61 | (parse-state.indent-point)...(ca |
| 612e0 | 74 63 68 20 27 72 65 74 75 72 6e 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 28 73 61 76 | tch.'return-indentation.....(sav |
| 61300 | 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 3b 3b 20 46 69 6e 64 20 66 69 72 73 74 20 | e-excursion.......;;.Find.first. |
| 61320 | 63 6c 61 75 73 65 20 6f 66 20 6c 6f 6f 70 20 6d 61 63 72 6f 2c 20 61 6e 64 20 75 73 65 20 69 74 | clause.of.loop.macro,.and.use.it |
| 61340 | 20 74 6f 20 65 73 74 61 62 6c 69 73 68 0a 20 20 20 20 20 20 3b 3b 20 62 61 73 65 20 63 6f 6c 75 | .to.establish.......;;.base.colu |
| 61360 | 6d 6e 20 66 6f 72 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | mn.for.indentation.......(goto-c |
| 61380 | 68 61 72 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 70 61 72 73 65 2d 73 74 | har.(common-lisp-indent-parse-st |
| 613a0 | 61 74 65 2d 73 74 61 72 74 20 70 61 72 73 65 2d 73 74 61 74 65 29 29 0a 20 20 20 20 20 20 28 6c | ate-start.parse-state)).......(l |
| 613c0 | 65 74 20 28 28 6c 6f 6f 70 2d 73 74 61 72 74 2d 63 6f 6c 75 6d 6e 20 28 63 75 72 72 65 6e 74 2d | et.((loop-start-column.(current- |
| 613e0 | 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c | column))).........(common-lisp-l |
| 61400 | 6f 6f 70 2d 61 64 76 61 6e 63 65 2d 70 61 73 74 2d 6b 65 79 77 6f 72 64 2d 6f 6e 2d 6c 69 6e 65 | oop-advance-past-keyword-on-line |
| 61420 | 29 0a 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 6f 6c 70 29 0a 20 20 20 20 20 20 20 20 | )..........(when.(eolp)......... |
| 61440 | 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 6e | ..(forward-line.1)...........(en |
| 61460 | 64 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 69 6e 64 65 6e | d-of-line)...........;;.If.inden |
| 61480 | 74 69 6e 67 20 66 69 72 73 74 20 6c 69 6e 65 20 61 66 74 65 72 20 22 28 6c 6f 6f 70 20 3c 6e 65 | ting.first.line.after."(loop.<ne |
| 614a0 | 77 6c 69 6e 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 70 20 6f 75 74 20 2e 2e 2e | wline>"...........;;.cop.out.... |
| 614c0 | 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3c 3d 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 | ...........(if.(<=.indent-point. |
| 614e0 | 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 72 | (point))...............(throw.'r |
| 61500 | 65 74 75 72 6e 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 2b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 63 | eturn-indentation.(+.lisp-loop-c |
| 61520 | 6c 61 75 73 65 73 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | lauses-indentation.............. |
| 61540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c | ...............................l |
| 61560 | 6f 6f 70 2d 73 74 61 72 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 62 | oop-start-column)))...........(b |
| 61580 | 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 0a 0a 20 20 20 20 20 20 20 20 28 6c | ack-to-indentation))..........(l |
| 615a0 | 65 74 2a 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 29 0a 20 20 20 20 20 20 | et*.((case-fold-search.t)....... |
| 615c0 | 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 66 69 72 73 74 2d 63 6c 61 75 73 | .........(loop-macro-first-claus |
| 615e0 | 65 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 65 76 69 | e.(point))................(previ |
| 61600 | 6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 | ous-expression-start............ |
| 61620 | 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 70 61 72 73 65 2d 73 | .....(common-lisp-indent-parse-s |
| 61640 | 74 61 74 65 2d 70 72 65 76 20 70 61 72 73 65 2d 73 74 61 74 65 29 29 0a 20 20 20 20 20 20 20 20 | tate-prev.parse-state))......... |
| 61660 | 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 20 28 63 75 72 72 65 6e 74 2d 63 | .......(default-value.(current-c |
| 61680 | 6f 6c 75 6d 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 2d 62 6f 64 | olumn))................(loop-bod |
| 616a0 | 79 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 2d 62 6f | y-p.nil)................(loop-bo |
| 616c0 | 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | dy-indentation.nil)............. |
| 616e0 | 20 20 20 28 69 6e 64 65 6e 74 65 64 2d 63 6c 61 75 73 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 | ...(indented-clause-indentation. |
| 61700 | 28 2b 20 32 20 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | (+.2.default-value)))........... |
| 61720 | 3b 3b 20 44 65 74 65 72 6d 69 6e 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 68 69 73 20 6c 6f 6f | ;;.Determine.context.of.this.loo |
| 61740 | 70 20 63 6c 61 75 73 65 2c 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 74 68 65 0a 20 20 20 20 | p.clause,.starting.with.the..... |
| 61760 | 20 20 20 20 20 20 3b 3b 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 | ......;;.expression.immediately. |
| 61780 | 70 72 65 63 65 64 69 6e 67 20 74 68 65 20 6c 69 6e 65 20 77 65 27 72 65 20 74 72 79 69 6e 67 20 | preceding.the.line.we're.trying. |
| 617a0 | 74 6f 20 69 6e 64 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 | to.indent...........(goto-char.p |
| 617c0 | 72 65 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e 2d 73 74 61 72 74 29 0a 0a 20 20 20 20 20 | revious-expression-start)....... |
| 617e0 | 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 61 20 62 6f 64 79 2d 69 6e 74 72 6f 64 75 63 69 6e | .....;;.Handle.a.body-introducin |
| 61800 | 67 2d 63 6c 61 75 73 65 20 77 68 69 63 68 20 65 6e 64 73 20 61 20 6c 69 6e 65 20 73 70 65 63 69 | g-clause.which.ends.a.line.speci |
| 61820 | 61 6c 6c 79 2e 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 | ally............(if.(looking-at. |
| 61840 | 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 74 72 6f 64 75 63 69 6e 67 2d 6c 6f 6f | common-lisp-body-introducing-loo |
| 61860 | 70 2d 6d 61 63 72 6f 2d 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | p-macro-keyword)...............( |
| 61880 | 6c 65 74 20 28 28 6b 65 79 77 6f 72 64 2d 70 6f 73 69 74 69 6f 6e 20 28 63 75 72 72 65 6e 74 2d | let.((keyword-position.(current- |
| 618a0 | 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | column))).................(setq. |
| 618c0 | 6c 6f 6f 70 2d 62 6f 64 79 2d 70 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | loop-body-p.t).................( |
| 618e0 | 73 65 74 71 20 6c 6f 6f 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 | setq.loop-body-indentation...... |
| 61900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 | .................(if.(common-lis |
| 61920 | 70 2d 6c 6f 6f 70 2d 61 64 76 61 6e 63 65 2d 70 61 73 74 2d 6b 65 79 77 6f 72 64 2d 6f 6e 2d 6c | p-loop-advance-past-keyword-on-l |
| 61940 | 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ine)...........................( |
| 61960 | 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | current-column)................. |
| 61980 | 20 20 20 20 20 20 20 20 28 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 | ........(back-to-indentation)... |
| 619a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 2f 3d 20 28 63 | ......................(if.(/=.(c |
| 619c0 | 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 20 6b 65 79 77 6f 72 64 2d 70 6f 73 69 74 69 6f 6e 29 | urrent-column).keyword-position) |
| 619e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 | .............................(+. |
| 61a00 | 32 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | 2.(current-column))............. |
| 61a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 6c 69 73 70 2d 6c 6f 6f 70 2d 62 6f 64 79 2d | ..............(+.lisp-loop-body- |
| 61a40 | 66 6f 72 6d 73 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | forms-indentation............... |
| 61a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6c 69 73 70 2d 6c 6f 6f 70 2d 69 6e 64 | ...............(if.lisp-loop-ind |
| 61a80 | 65 6e 74 2d 62 6f 64 79 2d 66 6f 72 6d 73 2d 72 65 6c 61 74 69 76 65 2d 74 6f 2d 6c 6f 6f 70 2d | ent-body-forms-relative-to-loop- |
| 61aa0 | 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | start........................... |
| 61ac0 | 20 20 20 20 20 20 20 6c 6f 6f 70 2d 73 74 61 72 74 2d 63 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 | .......loop-start-column........ |
| 61ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 77 6f 72 64 2d | ........................keyword- |
| 61b00 | 70 6f 73 69 74 69 6f 6e 29 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 | position))))))..............(bac |
| 61b20 | 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | k-to-indentation).............(i |
| 61b40 | 66 20 28 3c 20 28 70 6f 69 6e 74 29 20 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 66 69 72 73 74 2d 63 6c | f.(<.(point).loop-macro-first-cl |
| 61b60 | 61 75 73 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 | ause).................(goto-char |
| 61b80 | 20 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 66 69 72 73 74 2d 63 6c 61 75 73 65 29 29 0a 20 20 20 20 20 | .loop-macro-first-clause))...... |
| 61ba0 | 20 20 20 20 20 20 20 3b 3b 20 49 66 20 74 68 65 72 65 27 73 20 61 6e 20 22 61 6e 64 22 20 6f 72 | .......;;.If.there's.an."and".or |
| 61bc0 | 20 22 65 6c 73 65 2c 22 20 61 64 76 61 6e 63 65 20 6f 76 65 72 20 69 74 2e 0a 20 20 20 20 20 20 | ."else,".advance.over.it........ |
| 61be0 | 20 20 20 20 20 20 3b 3b 20 49 66 20 69 74 20 69 73 20 61 6c 6f 6e 65 20 6f 6e 20 74 68 65 20 6c | ......;;.If.it.is.alone.on.the.l |
| 61c00 | 69 6e 65 2c 20 74 68 65 20 6e 65 78 74 20 22 63 6f 6e 64 22 20 77 69 6c 6c 20 74 72 65 61 74 20 | ine,.the.next."cond".will.treat. |
| 61c20 | 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 73 20 69 66 20 74 68 65 72 65 20 77 65 | it.............;;.as.if.there.we |
| 61c40 | 72 65 20 61 20 22 77 68 65 6e 22 20 61 6e 64 20 69 6e 64 65 6e 74 20 75 6e 64 65 72 20 69 74 20 | re.a."when".and.indent.under.it. |
| 61c60 | 2e 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 78 69 74 20 6e 69 6c 29 | ................(let.((exit.nil) |
| 61c80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 6e 75 6c | )...............(while.(and.(nul |
| 61ca0 | 6c 20 65 78 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l.exit)......................... |
| 61cc0 | 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 70 72 65 66 69 78 | ..(looking-at.common-lisp-prefix |
| 61ce0 | 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 6b 65 79 77 6f 72 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -loop-macro-keyword))........... |
| 61d00 | 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f | ......(if.(null.(common-lisp-loo |
| 61d20 | 70 2d 61 64 76 61 6e 63 65 2d 70 61 73 74 2d 6b 65 79 77 6f 72 64 2d 6f 6e 2d 6c 69 6e 65 29 29 | p-advance-past-keyword-on-line)) |
| 61d40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 73 65 74 | .....................(progn.(set |
| 61d60 | 71 20 65 78 69 74 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | q.exit.t)....................... |
| 61d80 | 20 20 20 20 20 28 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 29 29 29 0a 0a | .....(back-to-indentation))))).. |
| 61da0 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 6f 75 6e 64 20 73 74 61 72 74 20 6f 66 20 6c 6f | ............;;.Found.start.of.lo |
| 61dc0 | 6f 70 20 63 6c 61 75 73 65 20 70 72 65 63 65 64 69 6e 67 20 74 68 65 20 6f 6e 65 20 77 65 27 72 | op.clause.preceding.the.one.we'r |
| 61de0 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 72 79 69 6e 67 20 74 6f 20 69 6e 64 65 6e | e.............;;.trying.to.inden |
| 61e00 | 74 2e 20 47 6c 65 61 6e 20 63 6f 6e 74 65 78 74 20 2e 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 | t..Glean.context................ |
| 61e20 | 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 | .(cond..............((looking-at |
| 61e40 | 20 22 28 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 27 72 65 20 69 6e 20 | ."(")...............;;.We're.in. |
| 61e60 | 74 68 65 20 6d 69 64 64 6c 65 20 6f 66 20 61 20 63 6c 61 75 73 65 20 62 6f 64 79 20 2e 2e 2e 0a | the.middle.of.a.clause.body..... |
| 61e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 6f 6f 70 2d 62 6f 64 79 2d 70 20 | ..............(setq.loop-body-p. |
| 61ea0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 6f 6f 70 2d 62 6f 64 79 | t)...............(setq.loop-body |
| 61ec0 | 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a | -indentation.(current-column))). |
| 61ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e | .............((looking-at.common |
| 61f00 | 2d 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 74 72 6f 64 75 63 69 6e 67 2d 6c 6f 6f 70 2d 6d 61 63 72 | -lisp-body-introducing-loop-macr |
| 61f20 | 6f 2d 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c | o-keyword)...............(setq.l |
| 61f40 | 6f 6f 70 2d 62 6f 64 79 2d 70 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4b | oop-body-p.t)...............;;.K |
| 61f60 | 6e 6f 77 20 74 68 65 72 65 27 73 20 73 6f 6d 65 74 68 69 6e 67 20 65 6c 73 65 20 6f 6e 20 74 68 | now.there's.something.else.on.th |
| 61f80 | 65 20 6c 69 6e 65 20 28 6f 72 20 77 6f 75 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | e.line.(or.would...............; |
| 61fa0 | 3b 20 68 61 76 65 20 62 65 65 6e 20 63 61 75 67 68 74 20 61 62 6f 76 65 29 0a 20 20 20 20 20 20 | ;.have.been.caught.above)....... |
| 61fc0 | 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 70 2d 61 64 76 61 6e 63 | ........(common-lisp-loop-advanc |
| 61fe0 | 65 2d 70 61 73 74 2d 6b 65 79 77 6f 72 64 2d 6f 6e 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 | e-past-keyword-on-line)......... |
| 62000 | 20 20 20 20 20 20 28 73 65 74 71 20 6c 6f 6f 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f | ......(setq.loop-body-indentatio |
| 62020 | 6e 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | n.(current-column)))............ |
| 62040 | 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 6f 6f 70 2d 62 6f | ..(t...............(setq.loop-bo |
| 62060 | 64 79 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 | dy-p.nil)...............(if.(or. |
| 62080 | 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 69 6e | (looking-at.common-lisp-indentin |
| 620a0 | 67 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 | g-loop-macro-keyword)........... |
| 620c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e 2d 6c | ............(looking-at.common-l |
| 620e0 | 69 73 70 2d 70 72 65 66 69 78 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 6b 65 79 77 6f 72 64 29 29 0a | isp-prefix-loop-macro-keyword)). |
| 62100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 65 66 61 75 6c 74 2d | ..................(setq.default- |
| 62120 | 76 61 6c 75 65 20 28 2b 20 32 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 29 0a 20 | value.(+.2.(current-column)))).. |
| 62140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 6e 64 65 6e 74 65 64 2d 63 6c 61 75 | .............(setq.indented-clau |
| 62160 | 73 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 2b 20 32 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c | se-indentation.(+.2.(current-col |
| 62180 | 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 73 74 69 6c 6c | umn)))...............;;.We.still |
| 621a0 | 20 6e 65 65 64 20 6c 6f 6f 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 | .need.loop-body-indentation.for. |
| 621c0 | 22 73 79 6e 74 61 78 20 65 72 72 6f 72 73 22 20 2e 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | "syntax.errors"................. |
| 621e0 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 72 65 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e | ..(goto-char.previous-expression |
| 62200 | 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 6f 6f 70 | -start)...............(setq.loop |
| 62220 | 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d | -body-indentation.(current-colum |
| 62240 | 6e 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 47 6f 20 74 6f 20 66 69 72 73 74 | n)))))............;;.Go.to.first |
| 62260 | 20 6e 6f 6e 2d 62 6c 61 6e 6b 20 63 68 61 72 61 63 74 65 72 20 6f 66 20 74 68 65 20 6c 69 6e 65 | .non-blank.character.of.the.line |
| 62280 | 20 77 65 27 72 65 20 74 72 79 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 6f 20 69 6e | .we're.trying...........;;.to.in |
| 622a0 | 64 65 6e 74 2e 20 28 69 66 20 6e 6f 6e 65 2c 20 77 69 6e 64 20 75 70 20 70 6f 69 73 65 64 20 6f | dent..(if.none,.wind.up.poised.o |
| 622c0 | 6e 20 74 68 65 20 6e 65 77 2d 6c 69 6e 65 20 2e 2e 2e 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 | n.the.new-line....)...........(g |
| 622e0 | 6f 74 6f 2d 63 68 61 72 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 | oto-char.indent-point).......... |
| 62300 | 20 28 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | .(back-to-indentation).......... |
| 62320 | 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 | .(cond............((looking-at." |
| 62340 | 28 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6c 61 75 73 65 20 62 6f 64 79 20 2e | (").............;;.Clause.body.. |
| 62360 | 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6f 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 | ...............loop-body-indenta |
| 62380 | 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 28 65 6f 6c 70 29 20 28 6c 6f | tion)............((or.(eolp).(lo |
| 623a0 | 6f 6b 69 6e 67 2d 61 74 20 22 3b 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 42 6c | oking-at.";")).............;;.Bl |
| 623c0 | 61 6e 6b 20 6c 69 6e 65 2e 20 20 49 66 20 62 6f 64 79 2d 70 2c 20 69 6e 64 65 6e 74 20 61 73 20 | ank.line...If.body-p,.indent.as. |
| 623e0 | 62 6f 64 79 2c 20 65 6c 73 65 20 69 6e 64 65 6e 74 20 61 73 0a 20 20 20 20 20 20 20 20 20 20 20 | body,.else.indent.as............ |
| 62400 | 20 3b 3b 20 76 61 6e 69 6c 6c 61 20 63 6c 61 75 73 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .;;.vanilla.clause.............. |
| 62420 | 28 69 66 20 6c 6f 6f 70 2d 62 6f 64 79 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (if.loop-body-p................. |
| 62440 | 6c 6f 6f 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 | loop-body-indentation........... |
| 62460 | 20 20 20 20 28 6f 72 20 28 61 6e 64 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3b 22 29 20 28 63 | ....(or.(and.(looking-at.";").(c |
| 62480 | 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 74 72 61 69 6c 69 6e 67 2d 63 6f 6d 6d 65 6e 74 29 29 0a 20 20 | ommon-lisp-trailing-comment))... |
| 624a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 29 29 29 | ................default-value))) |
| 624c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e 2d | ............((looking-at.common- |
| 624e0 | 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 69 6e 64 65 6e 74 65 64 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d | lisp-indent-indented-loop-macro- |
| 62500 | 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 6e 74 65 64 2d 63 6c | keyword).............indented-cl |
| 62520 | 61 75 73 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 6c | ause-indentation)............((l |
| 62540 | 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 63 6c 61 | ooking-at.common-lisp-indent-cla |
| 62560 | 75 73 65 2d 6a 6f 69 6e 69 6e 67 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 6b 65 79 77 6f 72 64 29 0a | use-joining-loop-macro-keyword). |
| 62580 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 6f 6c 65 6e 2d 69 6e 64 65 6e 74 | ............(let.((stolen-indent |
| 625a0 | 2d 63 6f 6c 75 6d 6e 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 | -column.nil))...............(for |
| 625c0 | 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 | ward-line.-1)...............(whi |
| 625e0 | 6c 65 20 28 61 6e 64 20 28 6e 75 6c 6c 20 73 74 6f 6c 65 6e 2d 69 6e 64 65 6e 74 2d 63 6f 6c 75 | le.(and.(null.stolen-indent-colu |
| 62600 | 6d 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e | mn)...........................(> |
| 62620 | 20 28 70 6f 69 6e 74 29 20 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 66 69 72 73 74 2d 63 6c 61 75 73 65 | .(point).loop-macro-first-clause |
| 62640 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 | )).................(back-to-inde |
| 62660 | 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e | ntation).................(if.(an |
| 62680 | 64 20 28 3c 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 20 6c 6f 6f 70 2d 62 6f 64 79 2d | d.(<.(current-column).loop-body- |
| 626a0 | 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | indentation).................... |
| 626c0 | 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 28 23 3f 3a 5c 5c 29 3f 5c 5c 73 | ......(looking-at."\\(#?:\\)?\\s |
| 626e0 | 77 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a | w")).....................(progn. |
| 62700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 6f 6f 6b 69 | ......................(if.(looki |
| 62720 | 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 70 2d 6d 61 63 72 6f 2d 65 6c 73 | ng-at.common-lisp-loop-macro-els |
| 62740 | 65 2d 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-keyword)...................... |
| 62760 | 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 6c 6f 6f 70 2d 61 64 76 61 6e 63 65 2d 70 | .....(common-lisp-loop-advance-p |
| 62780 | 61 73 74 2d 6b 65 79 77 6f 72 64 2d 6f 6e 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ast-keyword-on-line))........... |
| 627a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 74 6f 6c 65 6e 2d 69 6e 64 65 6e 74 2d | ............(setq.stolen-indent- |
| 627c0 | 63 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | column.......................... |
| 627e0 | 20 20 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ...(current-column)))........... |
| 62800 | 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 29 29 0a 20 20 20 20 | ........(forward-line.-1)))..... |
| 62820 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 73 74 6f 6c 65 6e 2d 69 6e 64 65 6e 74 2d 63 6f 6c 75 | ..........(if.stolen-indent-colu |
| 62840 | 6d 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6f 6c 65 6e 2d 69 6e 64 65 | mn...................stolen-inde |
| 62860 | 6e 74 2d 63 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c | nt-column.................defaul |
| 62880 | 74 2d 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 20 64 65 66 61 75 6c 74 | t-value)))............(t.default |
| 628a0 | 2d 76 61 6c 75 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 | -value)))))))..(defun.common-lis |
| 628c0 | 70 2d 6c 6f 6f 70 2d 61 64 76 61 6e 63 65 2d 70 61 73 74 2d 6b 65 79 77 6f 72 64 2d 6f 6e 2d 6c | p-loop-advance-past-keyword-on-l |
| 628e0 | 69 6e 65 20 28 29 0a 20 20 28 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 31 29 0a 20 20 28 77 68 69 | ine.()...(forward-word.1)...(whi |
| 62900 | 6c 65 20 28 61 6e 64 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 2d 22 29 20 28 6e 6f 74 | le.(and.(looking-at."\\s-").(not |
| 62920 | 20 28 65 6f 6c 70 29 29 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 29 29 0a | .(eolp))).....(forward-char.1)). |
| 62940 | 20 20 28 69 66 20 28 65 6f 6c 70 29 0a 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 28 63 75 72 72 | ..(if.(eolp).......nil.....(curr |
| 62960 | 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 0a 3b 3b 3b 3b 20 49 46 2a 20 69 73 20 6e 6f 74 20 73 | ent-column)))..;;;;.IF*.is.not.s |
| 62980 | 74 61 6e 64 61 72 64 2c 20 62 75 74 20 61 20 70 6c 61 67 75 65 20 75 70 6f 6e 20 74 68 65 20 6c | tandard,.but.a.plague.upon.the.l |
| 629a0 | 61 6e 64 0a 3b 3b 3b 3b 20 2e 2e 2e 6c 65 74 27 73 20 61 74 20 6c 65 61 73 74 20 74 72 79 20 74 | and.;;;;....let's.at.least.try.t |
| 629c0 | 6f 20 69 6e 64 65 6e 74 20 69 74 2e 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 | o.indent.it...(defvar.common-lis |
| 629e0 | 70 2d 69 6e 64 65 6e 74 2d 69 66 2a 2d 6b 65 79 77 6f 72 64 0a 20 20 22 74 68 72 65 6e 72 65 74 | p-indent-if*-keyword..."threnret |
| 62a00 | 5c 5c 7c 65 6c 73 65 69 66 5c 5c 7c 74 68 65 6e 5c 5c 7c 65 6c 73 65 22 0a 20 20 22 52 65 67 65 | \\|elseif\\|then\\|else"..."Rege |
| 62a20 | 78 70 20 6d 61 74 63 68 69 6e 67 20 69 66 2a 20 6b 65 79 77 6f 72 64 73 22 29 0a 0a 28 64 65 66 | xp.matching.if*.keywords")..(def |
| 62a40 | 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 69 66 2a 0a 20 20 20 20 28 70 | un.common-lisp-indent-if*.....(p |
| 62a60 | 61 74 68 20 70 61 72 73 65 2d 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 | ath.parse-state.indent-point.sex |
| 62a80 | 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 0a 20 20 28 6c 69 73 74 20 | p-column.normal-indent)...(list. |
| 62aa0 | 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 69 66 2a 2d 31 20 70 61 72 73 65 2d | (common-lisp-indent-if*-1.parse- |
| 62ac0 | 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 0a 09 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 | state.indent-point)..(common-lis |
| 62ae0 | 70 2d 69 6e 64 65 6e 74 2d 70 61 72 73 65 2d 73 74 61 74 65 2d 73 74 61 72 74 20 70 61 72 73 65 | p-indent-parse-state-start.parse |
| 62b00 | 2d 73 74 61 74 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e | -state)))..(defun.common-lisp-in |
| 62b20 | 64 65 6e 74 2d 69 66 2a 2d 31 20 28 70 61 72 73 65 2d 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 | dent-if*-1.(parse-state.indent-p |
| 62b40 | 6f 69 6e 74 29 0a 20 20 28 63 61 74 63 68 20 27 72 65 74 75 72 6e 2d 69 6e 64 65 6e 74 61 74 69 | oint)...(catch.'return-indentati |
| 62b60 | 6f 6e 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 3b 3b 20 | on.....(save-excursion.......;;. |
| 62b80 | 46 69 6e 64 20 66 69 72 73 74 20 63 6c 61 75 73 65 20 6f 66 20 69 66 2a 20 6d 61 63 72 6f 2c 20 | Find.first.clause.of.if*.macro,. |
| 62ba0 | 61 6e 64 20 75 73 65 20 69 74 20 74 6f 20 65 73 74 61 62 6c 69 73 68 0a 20 20 20 20 20 20 3b 3b | and.use.it.to.establish.......;; |
| 62bc0 | 20 62 61 73 65 20 63 6f 6c 75 6d 6e 20 66 6f 72 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 20 20 20 | .base.column.for.indentation.... |
| 62be0 | 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e | ...(goto-char.(common-lisp-inden |
| 62c00 | 74 2d 70 61 72 73 65 2d 73 74 61 74 65 2d 73 74 61 72 74 20 70 61 72 73 65 2d 73 74 61 74 65 29 | t-parse-state-start.parse-state) |
| 62c20 | 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 66 2a 2d 73 74 61 72 74 2d 63 6f 6c 75 6d 6e 20 | ).......(let.((if*-start-column. |
| 62c40 | 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 09 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | (current-column)))..(common-lisp |
| 62c60 | 2d 69 6e 64 65 6e 74 2d 69 66 2a 2d 61 64 76 61 6e 63 65 2d 70 61 73 74 2d 6b 65 79 77 6f 72 64 | -indent-if*-advance-past-keyword |
| 62c80 | 2d 6f 6e 2d 6c 69 6e 65 29 0a 09 28 6c 65 74 2a 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 | -on-line)..(let*.((case-fold-sea |
| 62ca0 | 72 63 68 20 74 29 0a 09 20 20 20 20 20 20 20 28 69 66 2a 2d 66 69 72 73 74 2d 63 6c 61 75 73 65 | rch.t).........(if*-first-clause |
| 62cc0 | 20 28 70 6f 69 6e 74 29 29 0a 09 20 20 20 20 20 20 20 28 70 72 65 76 69 6f 75 73 2d 65 78 70 72 | .(point)).........(previous-expr |
| 62ce0 | 65 73 73 69 6f 6e 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | ession-start.................(co |
| 62d00 | 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 70 61 72 73 65 2d 73 74 61 74 65 2d 70 72 65 | mmon-lisp-indent-parse-state-pre |
| 62d20 | 76 20 70 61 72 73 65 2d 73 74 61 74 65 29 29 0a 09 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 | v.parse-state)).........(default |
| 62d40 | 2d 76 61 6c 75 65 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 0a 09 20 20 20 20 20 20 | -value.(current-column))........ |
| 62d60 | 20 28 69 66 2a 2d 62 6f 64 79 2d 70 20 6e 69 6c 29 0a 09 20 20 20 20 20 20 20 28 69 66 2a 2d 62 | .(if*-body-p.nil).........(if*-b |
| 62d80 | 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6e 69 6c 29 29 0a 09 20 20 3b 3b 20 44 65 74 65 | ody-indentation.nil))....;;.Dete |
| 62da0 | 72 6d 69 6e 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 68 69 73 20 69 66 2a 20 63 6c 61 75 73 65 | rmine.context.of.this.if*.clause |
| 62dc0 | 2c 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 74 68 65 0a 09 20 20 3b 3b 20 65 78 70 72 65 73 | ,.starting.with.the....;;.expres |
| 62de0 | 73 69 6f 6e 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 70 72 65 63 65 64 69 6e 67 20 74 68 65 20 6c | sion.immediately.preceding.the.l |
| 62e00 | 69 6e 65 20 77 65 27 72 65 20 74 72 79 69 6e 67 20 74 6f 20 69 6e 64 65 6e 74 0a 09 20 20 28 67 | ine.we're.trying.to.indent....(g |
| 62e20 | 6f 74 6f 2d 63 68 61 72 20 70 72 65 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e 2d 73 74 61 | oto-char.previous-expression-sta |
| 62e40 | 72 74 29 0a 09 20 20 3b 3b 20 48 61 6e 64 6c 65 20 61 20 62 6f 64 79 2d 69 6e 74 72 6f 64 75 63 | rt)....;;.Handle.a.body-introduc |
| 62e60 | 69 6e 67 2d 63 6c 61 75 73 65 20 77 68 69 63 68 20 65 6e 64 73 20 61 20 6c 69 6e 65 20 73 70 65 | ing-clause.which.ends.a.line.spe |
| 62e80 | 63 69 61 6c 6c 79 2e 0a 09 20 20 28 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 | cially.....(back-to-indentation) |
| 62ea0 | 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3c 20 28 70 6f 69 6e 74 29 20 69 66 2a 2d 66 69 | ...........(if.(<.(point).if*-fi |
| 62ec0 | 72 73 74 2d 63 6c 61 75 73 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d | rst-clause)...............(goto- |
| 62ee0 | 63 68 61 72 20 69 66 2a 2d 66 69 72 73 74 2d 63 6c 61 75 73 65 29 29 0a 20 20 20 20 20 20 20 20 | char.if*-first-clause))......... |
| 62f00 | 20 20 3b 3b 20 46 6f 75 6e 64 20 73 74 61 72 74 20 6f 66 20 69 66 2a 20 63 6c 61 75 73 65 20 70 | ..;;.Found.start.of.if*.clause.p |
| 62f20 | 72 65 63 65 64 69 6e 67 20 74 68 65 20 6f 6e 65 20 77 65 27 72 65 20 74 72 79 69 6e 67 0a 20 20 | receding.the.one.we're.trying... |
| 62f40 | 20 20 20 20 20 20 20 20 3b 3b 20 74 6f 20 69 6e 64 65 6e 74 2e 20 47 6c 65 61 6e 20 63 6f 6e 74 | ........;;.to.indent..Glean.cont |
| 62f60 | 65 78 74 20 2e 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 | ext...............(cond......... |
| 62f80 | 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 | ...((looking-at.common-lisp-inde |
| 62fa0 | 6e 74 2d 69 66 2a 2d 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | nt-if*-keyword).............(set |
| 62fc0 | 71 20 69 66 2a 2d 62 6f 64 79 2d 70 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4b | q.if*-body-p.t).............;;.K |
| 62fe0 | 6e 6f 77 20 74 68 65 72 65 27 73 20 73 6f 6d 65 74 68 69 6e 67 20 65 6c 73 65 20 6f 6e 20 74 68 | now.there's.something.else.on.th |
| 63000 | 65 20 6c 69 6e 65 20 28 6f 72 20 77 6f 75 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | e.line.(or.would.............;;. |
| 63020 | 68 61 76 65 20 62 65 65 6e 20 63 61 75 67 68 74 20 61 62 6f 76 65 29 0a 20 20 20 20 20 20 20 20 | have.been.caught.above)......... |
| 63040 | 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 69 66 2a 2d 61 64 76 61 | ....(common-lisp-indent-if*-adva |
| 63060 | 6e 63 65 2d 70 61 73 74 2d 6b 65 79 77 6f 72 64 2d 6f 6e 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 | nce-past-keyword-on-line)....... |
| 63080 | 20 20 20 20 20 20 28 73 65 74 71 20 69 66 2a 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e | ......(setq.if*-body-indentation |
| 630a0 | 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | .(current-column)))............( |
| 630c0 | 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 23 27 5c 5c 7c 27 5c 5c 7c 28 22 29 0a 20 20 20 20 20 20 | (looking-at."#'\\|'\\|(")....... |
| 630e0 | 20 20 20 20 20 20 3b 3b 20 57 65 27 72 65 20 69 6e 20 74 68 65 20 6d 69 64 64 6c 65 20 6f 66 20 | ......;;.We're.in.the.middle.of. |
| 63100 | 61 20 63 6c 61 75 73 65 20 62 6f 64 79 20 2e 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | a.clause.body.................(s |
| 63120 | 65 74 71 20 69 66 2a 2d 62 6f 64 79 2d 70 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | etq.if*-body-p.t).............(s |
| 63140 | 65 74 71 20 69 66 2a 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 63 75 72 72 65 6e | etq.if*-body-indentation.(curren |
| 63160 | 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 | t-column)))............(t....... |
| 63180 | 20 20 20 20 20 20 28 73 65 74 71 20 69 66 2a 2d 62 6f 64 79 2d 70 20 6e 69 6c 29 0a 20 20 20 20 | ......(setq.if*-body-p.nil)..... |
| 631a0 | 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 73 74 69 6c 6c 20 6e 65 65 64 20 69 66 2a 2d 62 6f 64 | ........;;.We.still.need.if*-bod |
| 631c0 | 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 22 73 79 6e 74 61 78 20 65 72 72 6f 72 73 | y-indentation.for."syntax.errors |
| 631e0 | 22 20 2e 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 72 65 | ".................(goto-char.pre |
| 63200 | 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 | vious-expression-start)......... |
| 63220 | 20 20 20 20 28 73 65 74 71 20 69 66 2a 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 | ....(setq.if*-body-indentation.( |
| 63240 | 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | current-column))))............;; |
| 63260 | 20 47 6f 20 74 6f 20 66 69 72 73 74 20 6e 6f 6e 2d 62 6c 61 6e 6b 20 63 68 61 72 61 63 74 65 72 | .Go.to.first.non-blank.character |
| 63280 | 20 6f 66 20 74 68 65 20 6c 69 6e 65 20 77 65 27 72 65 20 74 72 79 69 6e 67 0a 20 20 20 20 20 20 | .of.the.line.we're.trying....... |
| 632a0 | 20 20 20 20 3b 3b 20 74 6f 20 69 6e 64 65 6e 74 2e 20 28 69 66 20 6e 6f 6e 65 2c 20 77 69 6e 64 | ....;;.to.indent..(if.none,.wind |
| 632c0 | 20 75 70 20 70 6f 69 73 65 64 20 6f 6e 20 74 68 65 20 6e 65 77 2d 6c 69 6e 65 20 2e 2e 2e 29 0a | .up.poised.on.the.new-line....). |
| 632e0 | 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 69 6e 64 65 6e 74 2d 70 6f 69 6e | ..........(goto-char.indent-poin |
| 63300 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f | t)...........(back-to-indentatio |
| 63320 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 | n)...........(cond............(( |
| 63340 | 6f 72 20 28 65 6f 6c 70 29 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3b 22 29 29 0a 20 20 20 20 | or.(eolp).(looking-at.";"))..... |
| 63360 | 20 20 20 20 20 20 20 20 3b 3b 20 42 6c 61 6e 6b 20 6c 69 6e 65 2e 20 20 49 66 20 62 6f 64 79 2d | ........;;.Blank.line...If.body- |
| 63380 | 70 2c 20 69 6e 64 65 6e 74 20 61 73 20 62 6f 64 79 2c 20 65 6c 73 65 20 69 6e 64 65 6e 74 20 61 | p,.indent.as.body,.else.indent.a |
| 633a0 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 76 61 6e 69 6c 6c 61 20 63 6c 61 75 73 65 2e | s.............;;.vanilla.clause. |
| 633c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 69 66 2a 2d 62 6f 64 79 2d 70 0a 20 20 20 20 | .............(if.if*-body-p..... |
| 633e0 | 20 20 20 20 20 20 20 20 20 20 20 20 69 66 2a 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e | ............if*-body-indentation |
| 63400 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 29 29 0a 20 | ...............default-value)).. |
| 63420 | 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 63 6f 6d 6d | ..........((not.(looking-at.comm |
| 63440 | 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 69 66 2a 2d 6b 65 79 77 6f 72 64 29 29 0a 20 20 20 | on-lisp-indent-if*-keyword)).... |
| 63460 | 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6c 61 75 73 65 20 62 6f 64 79 20 2e 2e 2e 0a 20 20 20 20 | .........;;.Clause.body......... |
| 63480 | 20 20 20 20 20 20 20 20 69 66 2a 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 | ........if*-body-indentation)... |
| 634a0 | 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 2b 20 37 20 | .........(t.............(-.(+.7. |
| 634c0 | 69 66 2a 2d 73 74 61 72 74 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | if*-start-column)............... |
| 634e0 | 20 28 2d 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 | .(-.(match-end.0).(match-beginni |
| 63500 | 6e 67 20 30 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 | ng.0))))))))))..(defun.common-li |
| 63520 | 73 70 2d 69 6e 64 65 6e 74 2d 69 66 2a 2d 61 64 76 61 6e 63 65 2d 70 61 73 74 2d 6b 65 79 77 6f | sp-indent-if*-advance-past-keywo |
| 63540 | 72 64 2d 6f 6e 2d 6c 69 6e 65 20 28 29 0a 20 20 28 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 31 29 | rd-on-line.()...(forward-word.1) |
| 63560 | 0a 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 2d | ...(while.(and.(looking-at."\\s- |
| 63580 | 22 29 20 28 6e 6f 74 20 28 65 6f 6c 70 29 29 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 | ").(not.(eolp))).....(forward-ch |
| 635a0 | 61 72 20 31 29 29 0a 20 20 28 69 66 20 28 65 6f 6c 70 29 0a 20 20 20 20 20 20 6e 69 6c 0a 20 20 | ar.1))...(if.(eolp).......nil... |
| 635c0 | 20 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 64 | ..(current-column)))....;;;;.Ind |
| 635e0 | 65 6e 74 61 74 69 6f 6e 20 73 70 65 63 73 20 66 6f 72 20 73 74 61 6e 64 61 72 64 20 73 79 6d 62 | entation.specs.for.standard.symb |
| 63600 | 6f 6c 73 2c 20 61 6e 64 20 61 20 66 65 77 20 73 65 6d 69 73 74 61 6e 64 61 72 64 20 6f 6e 65 73 | ols,.and.a.few.semistandard.ones |
| 63620 | 2e 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 69 74 2d 73 74 61 6e 64 61 | ..(defun.common-lisp-init-standa |
| 63640 | 72 64 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 29 0a 20 20 28 6c 65 74 20 28 28 6c 20 27 28 28 | rd-indentation.()...(let.((l.'(( |
| 63660 | 62 6c 6f 63 6b 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 73 65 20 20 20 20 20 | block.1)..............(case..... |
| 63680 | 20 20 20 28 34 20 26 72 65 73 74 20 28 26 77 68 6f 6c 65 20 32 20 26 72 65 73 74 20 31 29 29 29 | ...(4.&rest.(&whole.2.&rest.1))) |
| 636a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 61 73 65 20 20 20 20 20 20 20 28 61 73 20 63 | ..............(ccase.......(as.c |
| 636c0 | 61 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 20 20 20 20 20 20 | ase))..............(ecase....... |
| 636e0 | 28 61 73 20 63 61 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 73 | (as.case))..............(typecas |
| 63700 | 65 20 20 20 20 28 61 73 20 63 61 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 74 | e....(as.case))..............(et |
| 63720 | 79 70 65 63 61 73 65 20 20 20 28 61 73 20 63 61 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ypecase...(as.case))............ |
| 63740 | 20 20 28 63 74 79 70 65 63 61 73 65 20 20 20 28 61 73 20 63 61 73 65 29 29 0a 20 20 20 20 20 20 | ..(ctypecase...(as.case))....... |
| 63760 | 20 20 20 20 20 20 20 28 63 61 74 63 68 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | .......(catch.1)..............(c |
| 63780 | 6f 6e 64 20 20 20 20 20 20 20 20 28 26 72 65 73 74 20 28 26 77 68 6f 6c 65 20 32 20 26 72 65 73 | ond........(&rest.(&whole.2.&res |
| 637a0 | 74 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 66 6f 72 20 44 45 46 | t.nil)))..............;;.for.DEF |
| 637c0 | 53 54 52 55 43 54 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f | STRUCT..............(:constructo |
| 637e0 | 72 20 28 34 20 26 6c 61 6d 62 64 61 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 | r.(4.&lambda))..............(def |
| 63800 | 76 61 72 20 20 20 20 20 20 28 34 20 32 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | var......(4.2.2))..............( |
| 63820 | 64 65 66 63 6c 61 73 73 20 20 20 20 28 36 20 28 26 77 68 6f 6c 65 20 34 20 26 72 65 73 74 20 31 | defclass....(6.(&whole.4.&rest.1 |
| 63840 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | )..............................( |
| 63860 | 26 77 68 6f 6c 65 20 32 20 26 72 65 73 74 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | &whole.2.&rest.1)............... |
| 63880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 26 77 68 6f 6c 65 20 32 20 26 72 65 73 74 20 31 | ...............(&whole.2.&rest.1 |
| 638a0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 63 6f 6e 73 74 61 6e 74 20 28 61 | )))..............(defconstant.(a |
| 638c0 | 73 20 64 65 66 76 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 63 75 73 74 | s.defvar))..............(defcust |
| 638e0 | 6f 6d 20 20 20 28 34 20 32 20 32 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 | om...(4.2.2.2))..............(de |
| 63900 | 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 28 61 73 20 64 65 66 75 6e 29 29 0a | fine-compiler-macro.(as.defun)). |
| 63920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 20 20 20 20 28 | .............(defparameter.....( |
| 63940 | 61 73 20 64 65 66 76 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 63 6f 6e | as.defvar))..............(defcon |
| 63960 | 73 74 20 20 20 20 20 20 20 20 20 28 61 73 20 64 65 66 63 75 73 74 6f 6d 29 29 0a 20 20 20 20 20 | st.........(as.defcustom))...... |
| 63980 | 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 61 73 20 64 65 | ........(define-condition.(as.de |
| 639a0 | 66 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 6d 6f | fclass))..............(define-mo |
| 639c0 | 64 69 66 79 2d 6d 61 63 72 6f 20 28 34 20 26 6c 61 6d 62 64 61 20 26 62 6f 64 79 29 29 0a 20 20 | dify-macro.(4.&lambda.&body))... |
| 639e0 | 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 73 65 74 66 20 20 20 20 20 20 6c 69 73 70 2d 69 6e | ...........(defsetf......lisp-in |
| 63a00 | 64 65 6e 74 2d 64 65 66 73 65 74 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 75 | dent-defsetf)..............(defu |
| 63a20 | 6e 20 20 20 20 20 20 20 28 34 20 26 6c 61 6d 62 64 61 20 26 62 6f 64 79 29 29 0a 20 20 20 20 20 | n.......(4.&lambda.&body))...... |
| 63a40 | 20 20 20 20 20 20 20 20 28 64 65 66 67 65 6e 65 72 69 63 20 20 28 34 20 26 6c 61 6d 62 64 61 20 | ........(defgeneric..(4.&lambda. |
| 63a60 | 26 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 73 65 74 | &body))..............(define-set |
| 63a80 | 66 2d 6d 65 74 68 6f 64 20 20 20 28 61 73 20 64 65 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 | f-method...(as.defun)).......... |
| 63aa0 | 20 20 20 20 28 64 65 66 69 6e 65 2d 73 65 74 66 2d 65 78 70 61 6e 64 65 72 20 28 61 73 20 64 65 | ....(define-setf-expander.(as.de |
| 63ac0 | 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 6d 61 63 72 6f 20 20 20 20 | fun))..............(defmacro.... |
| 63ae0 | 20 28 61 73 20 64 65 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 73 75 | .(as.defun))..............(defsu |
| 63b00 | 62 73 74 20 20 20 20 20 28 61 73 20 64 65 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | bst.....(as.defun))............. |
| 63b20 | 20 28 64 65 66 74 79 70 65 20 20 20 20 20 20 28 61 73 20 64 65 66 75 6e 29 29 0a 20 20 20 20 20 | .(deftype......(as.defun))...... |
| 63b40 | 20 20 20 20 20 20 20 20 28 64 65 66 6d 65 74 68 6f 64 20 20 20 6c 69 73 70 2d 69 6e 64 65 6e 74 | ........(defmethod...lisp-indent |
| 63b60 | 2d 64 65 66 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 70 61 63 | -defmethod)..............(defpac |
| 63b80 | 6b 61 67 65 20 20 28 34 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 73 74 | kage..(4.2))..............(defst |
| 63ba0 | 72 75 63 74 20 20 20 28 28 26 77 68 6f 6c 65 20 34 20 26 72 65 73 74 20 28 26 77 68 6f 6c 65 20 | ruct...((&whole.4.&rest.(&whole. |
| 63bc0 | 32 20 26 72 65 73 74 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 2.&rest.1))..................... |
| 63be0 | 20 20 20 20 20 20 20 26 72 65 73 74 20 28 26 77 68 6f 6c 65 20 32 20 26 72 65 73 74 20 31 29 29 | .......&rest.(&whole.2.&rest.1)) |
| 63c00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 | )..............(destructuring-bi |
| 63c20 | 6e 64 20 28 26 6c 61 6d 62 64 61 20 34 20 26 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 | nd.(&lambda.4.&body))........... |
| 63c40 | 20 20 20 28 64 6f 20 20 20 20 20 20 20 20 20 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 64 6f 29 0a | ...(do..........lisp-indent-do). |
| 63c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 2a 20 20 20 20 20 20 20 20 20 28 61 73 20 64 6f | .............(do*.........(as.do |
| 63c80 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 20 20 20 20 20 28 28 26 | ))..............(dolist......((& |
| 63ca0 | 77 68 6f 6c 65 20 34 20 32 20 31 29 20 26 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | whole.4.2.1).&body))............ |
| 63cc0 | 20 20 28 64 6f 74 69 6d 65 73 20 20 20 20 20 28 61 73 20 64 6f 6c 69 73 74 29 29 0a 20 20 20 20 | ..(dotimes.....(as.dolist))..... |
| 63ce0 | 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 2d 77 68 65 6e 20 20 20 31 29 0a 20 20 20 20 20 20 20 | .........(eval-when...1)........ |
| 63d00 | 20 20 20 20 20 20 28 66 6c 65 74 20 20 20 20 20 20 20 20 28 28 26 77 68 6f 6c 65 20 34 20 26 72 | ......(flet........((&whole.4.&r |
| 63d20 | 65 73 74 20 28 26 77 68 6f 6c 65 20 31 20 34 20 26 6c 61 6d 62 64 61 20 26 62 6f 64 79 29 29 20 | est.(&whole.1.4.&lambda.&body)). |
| 63d40 | 26 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 73 20 20 20 20 | &body))..............(labels.... |
| 63d60 | 20 20 20 20 20 28 61 73 20 66 6c 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 | .....(as.flet))..............(ma |
| 63d80 | 63 72 6f 6c 65 74 20 20 20 20 20 20 20 28 61 73 20 66 6c 65 74 29 29 0a 20 20 20 20 20 20 20 20 | crolet.......(as.flet))......... |
| 63da0 | 20 20 20 20 20 28 67 65 6e 65 72 69 63 2d 66 6c 65 74 20 20 20 28 61 73 20 66 6c 65 74 29 29 0a | .....(generic-flet...(as.flet)). |
| 63dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 6e 65 72 69 63 2d 6c 61 62 65 6c 73 20 28 61 73 | .............(generic-labels.(as |
| 63de0 | 20 66 6c 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 | .flet))..............(handler-ca |
| 63e00 | 73 65 20 28 34 20 26 72 65 73 74 20 28 26 77 68 6f 6c 65 20 32 20 32 20 34 20 26 62 6f 64 79 29 | se.(4.&rest.(&whole.2.2.4.&body) |
| 63e20 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 74 61 72 74 2d 63 61 73 65 20 28 61 | ))..............(restart-case.(a |
| 63e40 | 73 20 68 61 6e 64 6c 65 72 2d 63 61 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | s.handler-case))..............;; |
| 63e60 | 20 73 69 6e 67 6c 65 2d 65 6c 73 65 20 73 74 79 6c 65 20 28 74 68 65 6e 20 61 6e 64 20 65 6c 73 | .single-else.style.(then.and.els |
| 63e80 | 65 20 65 71 75 61 6c 6c 79 20 69 6e 64 65 6e 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e.equally.indented)............. |
| 63ea0 | 20 28 69 66 20 20 20 20 20 20 20 20 20 20 28 26 72 65 73 74 20 6e 69 6c 29 29 0a 20 20 20 20 20 | .(if..........(&rest.nil))...... |
| 63ec0 | 20 20 20 20 20 20 20 20 28 69 66 2a 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | ........(if*.........common-lisp |
| 63ee0 | 2d 69 6e 64 65 6e 74 2d 69 66 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 | -indent-if*)..............(lambd |
| 63f00 | 61 20 20 20 20 20 20 28 26 6c 61 6d 62 64 61 20 26 72 65 73 74 20 6c 69 73 70 2d 69 6e 64 65 6e | a......(&lambda.&rest.lisp-inden |
| 63f20 | 74 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 68 61 63 6b 29 29 0a 20 20 20 20 20 20 20 | t-function-lambda-hack))........ |
| 63f40 | 20 20 20 20 20 20 28 6c 65 74 20 20 20 20 20 20 20 20 20 28 28 26 77 68 6f 6c 65 20 34 20 26 72 | ......(let.........((&whole.4.&r |
| 63f60 | 65 73 74 20 28 26 77 68 6f 6c 65 20 31 20 31 20 32 29 29 20 26 62 6f 64 79 29 29 0a 20 20 20 20 | est.(&whole.1.1.2)).&body))..... |
| 63f80 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 20 20 20 20 20 20 20 20 28 61 73 20 6c 65 74 29 29 | .........(let*.........(as.let)) |
| 63fa0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6c 65 74 20 28 61 73 20 | ..............(compiler-let.(as. |
| 63fc0 | 6c 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 | let))..............(handler-bind |
| 63fe0 | 20 28 61 73 20 6c 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 74 61 72 74 | .(as.let))..............(restart |
| 64000 | 2d 62 69 6e 64 20 28 61 73 20 6c 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f | -bind.(as.let))..............(lo |
| 64020 | 63 61 6c 6c 79 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 20 20 20 20 | cally.1)..............(loop..... |
| 64040 | 20 20 20 20 20 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6c 6f 6f 70 29 0a 20 20 20 20 20 20 20 20 | ......lisp-indent-loop)......... |
| 64060 | 20 20 20 20 20 28 3a 6d 65 74 68 6f 64 20 20 20 20 20 20 20 20 6c 69 73 70 2d 69 6e 64 65 6e 74 | .....(:method........lisp-indent |
| 64080 | 2d 64 65 66 6d 65 74 68 6f 64 29 20 3b 20 69 6e 20 60 64 65 66 67 65 6e 65 72 69 63 27 0a 20 20 | -defmethod).;.in.`defgeneric'... |
| 640a0 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 | ...........(multiple-value-bind. |
| 640c0 | 28 28 26 77 68 6f 6c 65 20 36 20 26 72 65 73 74 20 31 29 20 34 20 26 62 6f 64 79 29 29 0a 20 20 | ((&whole.6.&rest.1).4.&body))... |
| 640e0 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 20 | ...........(multiple-value-call. |
| 64100 | 28 34 20 26 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c | (4.&body))..............(multipl |
| 64120 | 65 2d 76 61 6c 75 65 2d 70 72 6f 67 31 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | e-value-prog1.1)..............(m |
| 64140 | 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 34 20 32 29 29 0a 20 20 20 20 20 20 | ultiple-value-setq.(4.2))....... |
| 64160 | 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 66 20 28 61 73 20 | .......(multiple-value-setf.(as. |
| 64180 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 29 29 0a 20 20 20 20 20 20 20 20 20 20 | multiple-value-setq))........... |
| 641a0 | 20 20 20 28 6e 61 6d 65 64 2d 6c 61 6d 62 64 61 20 28 34 20 26 6c 61 6d 62 64 61 20 26 72 65 73 | ...(named-lambda.(4.&lambda.&res |
| 641c0 | 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 68 61 | t.lisp-indent-function-lambda-ha |
| 641e0 | 63 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 70 72 69 6e 74 2d 6c 6f 67 69 63 61 | ck))..............(pprint-logica |
| 64200 | 6c 2d 62 6c 6f 63 6b 20 28 34 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 | l-block.(4.2))..............(pri |
| 64220 | 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 20 28 28 26 77 68 6f 6c 65 20 34 20 | nt-unreadable-object.((&whole.4. |
| 64240 | 31 20 26 72 65 73 74 20 31 29 20 26 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1.&rest.1).&body)).............. |
| 64260 | 3b 3b 20 43 6f 6d 62 69 6e 65 73 20 74 68 65 20 77 6f 72 73 74 20 66 65 61 74 75 72 65 73 20 6f | ;;.Combines.the.worst.features.o |
| 64280 | 66 20 42 4c 4f 43 4b 2c 20 4c 45 54 20 61 6e 64 20 54 41 47 42 4f 44 59 0a 20 20 20 20 20 20 20 | f.BLOCK,.LET.and.TAGBODY........ |
| 642a0 | 20 20 20 20 20 20 28 70 72 6f 67 20 20 20 20 20 20 20 20 28 26 6c 61 6d 62 64 61 20 26 72 65 73 | ......(prog........(&lambda.&res |
| 642c0 | 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 | t.lisp-indent-tagbody))......... |
| 642e0 | 20 20 20 20 20 28 70 72 6f 67 2a 20 28 61 73 20 70 72 6f 67 29 29 0a 20 20 20 20 20 20 20 20 20 | .....(prog*.(as.prog)).......... |
| 64300 | 20 20 20 20 28 70 72 6f 67 31 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 | ....(prog1.1)..............(prog |
| 64320 | 32 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 30 29 0a 20 20 20 20 | 2.2)..............(progn.0)..... |
| 64340 | 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 76 20 20 20 20 20 20 20 28 34 20 34 20 26 62 6f 64 79 | .........(progv.......(4.4.&body |
| 64360 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 30 29 0a 20 20 20 20 20 | ))..............(return.0)...... |
| 64380 | 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 28 6e 69 6c 20 26 62 6f 64 79 29 | ........(return-from.(nil.&body) |
| 643a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6d 61 63 72 6f 6c 65 74 20 | )..............(symbol-macrolet. |
| 643c0 | 28 61 73 20 6c 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 67 62 6f 64 79 20 | (as.let))..............(tagbody. |
| 643e0 | 20 20 20 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64 79 29 0a 20 20 20 20 20 20 20 | ....lisp-indent-tagbody)........ |
| 64400 | 20 20 20 20 20 20 28 74 68 72 6f 77 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e | ......(throw.1)..............(un |
| 64420 | 6c 65 73 73 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f | less.1)..............(unwind-pro |
| 64440 | 74 65 63 74 20 28 35 20 26 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | tect.(5.&body))..............(wh |
| 64460 | 65 6e 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 61 63 63 65 73 73 6f | en.1)..............(with-accesso |
| 64480 | 72 73 20 20 20 20 20 20 20 20 20 20 28 61 73 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 | rs..........(as.multiple-value-b |
| 644a0 | 69 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 | ind))..............(with-compila |
| 644c0 | 74 69 6f 6e 2d 75 6e 69 74 20 20 20 28 28 26 77 68 6f 6c 65 20 34 20 26 72 65 73 74 20 31 29 20 | tion-unit...((&whole.4.&rest.1). |
| 644e0 | 26 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6e 64 69 | &body))..............(with-condi |
| 64500 | 74 69 6f 6e 2d 72 65 73 74 61 72 74 73 20 28 61 73 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | tion-restarts.(as.multiple-value |
| 64520 | 2d 62 69 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 | -bind))..............(with-outpu |
| 64540 | 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 34 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-to-string.(4.2)).............. |
| 64560 | 28 77 69 74 68 2d 73 6c 6f 74 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 20 6d 75 6c | (with-slots..............(as.mul |
| 64580 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | tiple-value-bind)).............. |
| 645a0 | 28 77 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 20 28 32 29 29 29 29 29 | (with-standard-io-syntax.(2))))) |
| 645c0 | 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 65 6c 20 6c 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 | .....(dolist.(el.l).......(let*. |
| 645e0 | 28 28 6e 61 6d 65 20 28 63 61 72 20 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ((name.(car.el))..............(s |
| 64600 | 70 65 63 20 28 63 64 72 20 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 64 65 | pec.(cdr.el))..............(inde |
| 64620 | 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 79 6d 62 6f | ntation...............(if.(symbo |
| 64640 | 6c 70 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f | lp.spec)...................(erro |
| 64660 | 72 20 22 4f 6c 64 20 73 74 79 6c 65 20 69 6e 64 69 72 65 63 74 20 69 6e 64 65 6e 74 61 74 69 6f | r."Old.style.indirect.indentatio |
| 64680 | 6e 20 73 70 65 63 3a 20 25 73 22 20 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.spec:.%s".el)................. |
| 646a0 | 28 77 68 65 6e 20 28 63 64 72 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (when.(cdr.spec)................ |
| 646c0 | 20 20 20 28 65 72 72 6f 72 20 22 4d 61 6c 66 6f 72 6d 65 64 20 69 6e 64 65 6e 74 61 74 69 6f 6e | ...(error."Malformed.indentation |
| 646e0 | 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 3a 20 25 73 22 20 65 6c 29 29 0a 20 20 20 20 20 20 20 | .specification:.%s".el))........ |
| 64700 | 20 20 20 20 20 20 20 20 20 28 63 61 72 20 73 70 65 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 | .........(car.spec)))).........( |
| 64720 | 75 6e 6c 65 73 73 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | unless.(symbolp.name)........... |
| 64740 | 28 65 72 72 6f 72 20 22 43 61 6e 6e 6f 74 20 73 65 74 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 69 | (error."Cannot.set.Common.Lisp.i |
| 64760 | 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 61 20 6e 6f 6e 2d 73 79 6d 62 6f 6c 3a 20 25 73 22 0a | ndentation.of.a.non-symbol:.%s". |
| 64780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 | .................name))......... |
| 647a0 | 28 70 75 74 20 6e 61 6d 65 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 | (put.name.'common-lisp-indent-fu |
| 647c0 | 6e 63 74 69 6f 6e 20 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 29 29 29 0a 28 63 6f 6d 6d 6f 6e 2d | nction.indentation))))).(common- |
| 647e0 | 6c 69 73 70 2d 69 6e 69 74 2d 73 74 61 6e 64 61 72 64 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a | lisp-init-standard-indentation). |
| 64800 | 0a 28 70 72 6f 76 69 64 65 20 27 63 6c 2d 69 6e 64 65 6e 74 29 0a 28 70 72 6f 76 69 64 65 20 27 | .(provide.'cl-indent).(provide.' |
| 64820 | 73 6c 69 6d 65 2d 63 6c 2d 69 6e 64 65 6e 74 29 0a 0a 3b 3b 3b 20 73 6c 69 6d 65 2d 63 6c 2d 69 | slime-cl-indent)..;;;.slime-cl-i |
| 64840 | 6e 64 65 6e 74 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 | ndent.el.ends.here.............. |
| 64860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 648a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 648c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 648e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 649a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 649c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 649e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 62 75 66 66 65 72 2d | slime-2.31/contrib/swank-buffer- |
| 64a20 | 73 74 72 65 61 6d 73 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | streams.lisp.................... |
| 64a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 64a80 | 30 30 30 32 32 33 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 36 31 32 00 20 30 00 00 00 | 0002237.00000000000.017612..0... |
| 64aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 64b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 64b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 64c00 | 3b 3b 3b 20 73 77 61 6e 6b 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 2e 6c 69 73 70 20 2d 2d | ;;;.swank-buffer-streams.lisp.-- |
| 64c20 | 2d 20 53 74 72 65 61 6d 73 20 74 68 61 74 20 6f 75 74 70 75 74 20 74 6f 20 61 20 62 75 66 66 65 | -.Streams.that.output.to.a.buffe |
| 64c40 | 72 0a 3b 3b 3b 0a 3b 3b 3b 20 41 75 74 68 6f 72 73 3a 20 45 64 20 4c 61 6e 67 6c 65 79 20 20 3c | r.;;;.;;;.Authors:.Ed.Langley..< |
| 64c60 | 65 6c 2d 67 69 74 68 75 62 40 65 6c 61 6e 67 6c 65 79 2e 6f 72 67 3e 0a 3b 3b 3b 0a 3b 3b 3b 20 | el-github@elangley.org>.;;;.;;;. |
| 64c80 | 4c 69 63 65 6e 73 65 3a 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 | License:.This.code.has.been.plac |
| 64ca0 | 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 | ed.in.the.Public.Domain...All.wa |
| 64cc0 | 72 72 61 6e 74 69 65 73 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 61 72 65 20 64 69 73 63 6c 61 | rranties.;;;..........are.discla |
| 64ce0 | 69 6d 65 64 2e 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 28 64 65 66 | imed...(in-package.:swank)..(def |
| 64d00 | 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 0a 20 20 | package.:swank-buffer-streams... |
| 64d20 | 28 3a 75 73 65 20 3a 63 6c 29 0a 20 20 28 3a 69 6d 70 6f 72 74 2d 66 72 6f 6d 20 3a 73 77 61 6e | (:use.:cl)...(:import-from.:swan |
| 64d40 | 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 73 6c 69 6d 65 66 75 6e 0a 20 20 | k.................defslimefun... |
| 64d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 64 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 | ..............add-hook.......... |
| 64d80 | 20 20 20 20 20 20 20 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 | .......encode-message........... |
| 64da0 | 20 20 20 20 20 20 73 65 6e 64 2d 65 76 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......send-event................ |
| 64dc0 | 20 66 69 6e 64 2d 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 63 61 | .find-thread.................dca |
| 64de0 | 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d 73 6f 63 6b 65 | se.................current-socke |
| 64e00 | 74 2d 69 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 2d 74 6f 2d 65 6d 61 | t-io.................send-to-ema |
| 64e20 | 63 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 | cs.................current-threa |
| 64e40 | 64 2d 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 2d 66 6f 72 2d 65 76 | d-id.................wait-for-ev |
| 64e60 | 65 6e 74 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e | ent..................*emacs-conn |
| 64e80 | 65 63 74 69 6f 6e 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 76 65 6e 74 2d 68 | ection*.................*event-h |
| 64ea0 | 6f 6f 6b 2a 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 6d 61 6b 65 2d 62 75 66 66 65 72 2d 6f 75 74 | ook*)...(:export.make-buffer-out |
| 64ec0 | 70 75 74 2d 73 74 72 65 61 6d 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b | put-stream))..(in-package.:swank |
| 64ee0 | 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 29 0a 0a 28 64 65 66 75 6e 20 67 65 74 2d 74 65 6d | -buffer-streams)..(defun.get-tem |
| 64f00 | 70 6f 72 61 72 79 2d 69 64 65 6e 74 69 66 69 65 72 20 28 29 0a 20 20 28 69 6e 74 65 72 6e 20 28 | porary-identifier.()...(intern.( |
| 64f20 | 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 67 65 6e 73 79 6d 20 22 42 55 46 46 45 52 22 29 29 0a 20 | symbol-name.(gensym."BUFFER")).. |
| 64f40 | 20 20 20 20 20 20 20 20 20 3a 6b 65 79 77 6f 72 64 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 | .........:keyword))..(defun.make |
| 64f60 | 2d 62 75 66 66 65 72 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 28 26 6f 70 74 69 6f 6e 61 6c | -buffer-output-stream.(&optional |
| 64f80 | 20 28 74 61 72 67 65 74 2d 69 64 65 6e 74 69 66 69 65 72 20 28 67 65 74 2d 74 65 6d 70 6f 72 61 | .(target-identifier.(get-tempora |
| 64fa0 | 72 79 2d 69 64 65 6e 74 69 66 69 65 72 29 29 29 0a 20 20 28 73 77 61 6e 6b 3a 65 64 2d 72 70 63 | ry-identifier)))...(swank:ed-rpc |
| 64fc0 | 20 27 23 3a 73 6c 69 6d 65 2d 6d 61 6b 65 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 2d 74 61 72 | .'#:slime-make-buffer-stream-tar |
| 64fe0 | 67 65 74 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 29 20 74 61 72 67 65 74 2d 69 | get.(current-thread-id).target-i |
| 65000 | 64 65 6e 74 69 66 69 65 72 29 0a 20 20 28 76 61 6c 75 65 73 20 28 73 77 61 6e 6b 3a 6d 61 6b 65 | dentifier)...(values.(swank:make |
| 65020 | 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 66 6f 72 2d 74 61 72 67 65 74 20 2a 65 6d 61 63 73 | -output-stream-for-target.*emacs |
| 65040 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 20 74 61 72 67 65 74 2d 69 64 65 6e 74 69 66 69 65 72 29 0a | -connection*.target-identifier). |
| 65060 | 20 20 20 20 20 20 20 20 20 20 74 61 72 67 65 74 2d 69 64 65 6e 74 69 66 69 65 72 29 29 0a 0a 28 | ..........target-identifier))..( |
| 65080 | 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 29 0a 00 | provide.:swank-buffer-streams).. |
| 650a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 650c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 650e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 651a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 651c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 651e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 73 6e 61 70 73 68 6f | slime-2.31/contrib/swank-snapsho |
| 65220 | 74 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | t.lisp.......................... |
| 65240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 65280 | 30 30 30 34 35 37 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 32 36 00 20 30 00 00 00 | 0004570.00000000000.016526..0... |
| 652a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 652c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 652e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 65320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 65340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 653a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 653c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 653e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65400 | 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2d 73 6e 61 70 73 68 6f 74 0a 20 20 28 3a | .(defpackage.swank-snapshot...(: |
| 65420 | 75 73 65 20 63 6c 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 72 65 73 74 6f 72 65 2d 73 6e 61 70 73 | use.cl)...(:export.restore-snaps |
| 65440 | 68 6f 74 20 73 61 76 65 2d 73 6e 61 70 73 68 6f 74 20 62 61 63 6b 67 72 6f 75 6e 64 2d 73 61 76 | hot.save-snapshot.background-sav |
| 65460 | 65 2d 73 6e 61 70 73 68 6f 74 29 0a 20 20 28 3a 69 6d 70 6f 72 74 2d 66 72 6f 6d 20 73 77 61 6e | e-snapshot)...(:import-from.swan |
| 65480 | 6b 20 64 65 66 73 6c 69 6d 65 66 75 6e 29 29 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e | k.defslimefun)).(in-package.swan |
| 654a0 | 6b 2d 73 6e 61 70 73 68 6f 74 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 61 76 65 2d 73 | k-snapshot)..(defslimefun.save-s |
| 654c0 | 6e 61 70 73 68 6f 74 20 28 69 6d 61 67 65 2d 66 69 6c 65 29 0a 20 20 28 73 77 61 6e 6b 2f 62 61 | napshot.(image-file)...(swank/ba |
| 654e0 | 63 6b 65 6e 64 3a 73 61 76 65 2d 69 6d 61 67 65 20 69 6d 61 67 65 2d 66 69 6c 65 20 0a 09 09 09 | ckend:save-image.image-file..... |
| 65500 | 20 20 20 20 28 6c 65 74 20 28 28 63 20 73 77 61 6e 6b 3a 3a 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 | ....(let.((c.swank::*emacs-conne |
| 65520 | 63 74 69 6f 6e 2a 29 29 0a 09 09 09 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 72 65 | ction*))..........(lambda.().(re |
| 65540 | 73 75 72 72 65 63 74 20 63 29 29 29 29 0a 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 44 75 6d | surrect.c))))...(format.nil."Dum |
| 65560 | 70 65 64 20 6c 69 73 70 20 74 6f 20 7e 41 22 20 69 6d 61 67 65 2d 66 69 6c 65 29 29 0a 0a 28 64 | ped.lisp.to.~A".image-file))..(d |
| 65580 | 65 66 73 6c 69 6d 65 66 75 6e 20 72 65 73 74 6f 72 65 2d 73 6e 61 70 73 68 6f 74 20 28 69 6d 61 | efslimefun.restore-snapshot.(ima |
| 655a0 | 67 65 2d 66 69 6c 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6f 6e 6e 20 73 77 61 6e 6b 3a 3a 2a | ge-file)...(let*.((conn.swank::* |
| 655c0 | 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 0a 09 20 28 73 74 72 65 61 6d 20 28 73 77 | emacs-connection*)...(stream.(sw |
| 655e0 | 61 6e 6b 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2e 73 6f 63 6b 65 74 2d 69 6f 20 63 6f 6e 6e 29 29 | ank::connection.socket-io.conn)) |
| 65600 | 0a 09 20 28 63 6c 6f 6e 65 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 64 75 70 20 28 73 77 | ...(clone.(swank/backend:dup.(sw |
| 65620 | 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 73 6f 63 6b 65 74 2d 66 64 20 73 74 72 65 61 6d 29 29 29 0a | ank/backend:socket-fd.stream))). |
| 65640 | 09 20 28 73 74 79 6c 65 20 28 73 77 61 6e 6b 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2e 63 6f 6d 6d | ..(style.(swank::connection.comm |
| 65660 | 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 63 6f 6e 6e 29 29 0a 09 20 28 72 65 70 6c 20 28 | unication-style.conn))...(repl.( |
| 65680 | 69 66 20 28 73 77 61 6e 6b 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 69 6f 20 63 6f | if.(swank::connection.user-io.co |
| 656a0 | 6e 6e 29 20 74 29 29 0a 09 20 28 61 72 67 73 20 28 6c 69 73 74 20 22 2d 2d 73 77 61 6e 6b 2d 66 | nn).t))...(args.(list."--swank-f |
| 656c0 | 64 22 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 64 22 20 63 6c 6f 6e 65 29 0a 09 09 20 20 20 | d".(format.nil."~d".clone)...... |
| 656e0 | 20 20 22 2d 2d 73 77 61 6e 6b 2d 73 74 79 6c 65 22 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e | .."--swank-style".(format.nil."~ |
| 65700 | 73 22 20 73 74 79 6c 65 29 0a 09 09 20 20 20 20 20 22 2d 2d 73 77 61 6e 6b 2d 72 65 70 6c 22 20 | s".style)........"--swank-repl". |
| 65720 | 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 73 22 20 72 65 70 6c 29 29 29 29 0a 20 20 20 20 28 73 | (format.nil."~s".repl)))).....(s |
| 65740 | 77 61 6e 6b 3a 3a 63 6c 6f 73 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 20 6e 69 6c 20 | wank::close-connection.conn.nil. |
| 65760 | 6e 69 6c 29 0a 20 20 20 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 65 78 65 63 2d 69 6d 61 | nil).....(swank/backend:exec-ima |
| 65780 | 67 65 20 69 6d 61 67 65 2d 66 69 6c 65 20 61 72 67 73 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 | ge.image-file.args)))..(defslime |
| 657a0 | 66 75 6e 20 62 61 63 6b 67 72 6f 75 6e 64 2d 73 61 76 65 2d 73 6e 61 70 73 68 6f 74 20 28 69 6d | fun.background-save-snapshot.(im |
| 657c0 | 61 67 65 2d 66 69 6c 65 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 77 | age-file)...(let.((connection.sw |
| 657e0 | 61 6e 6b 3a 3a 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 0a 20 20 20 20 28 66 | ank::*emacs-connection*)).....(f |
| 65800 | 6c 65 74 20 28 28 63 6f 6d 70 6c 65 74 65 20 28 73 75 63 63 65 73 73 29 0a 09 20 20 20 20 20 28 | let.((complete.(success).......( |
| 65820 | 6c 65 74 20 28 28 73 77 61 6e 6b 3a 3a 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 20 | let.((swank::*emacs-connection*. |
| 65840 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 09 20 20 20 20 20 20 20 28 73 77 61 6e 6b 3a 3a 62 61 63 | connection)).........(swank::bac |
| 65860 | 6b 67 72 6f 75 6e 64 2d 6d 65 73 73 61 67 65 0a 09 09 22 44 75 6d 70 69 6e 67 20 6c 69 73 70 20 | kground-message..."Dumping.lisp. |
| 65880 | 69 6d 61 67 65 20 7e 41 20 7e 3a 5b 66 61 69 6c 65 64 21 7e 3b 73 75 63 63 65 65 64 65 64 2e 7e | image.~A.~:[failed!~;succeeded.~ |
| 658a0 | 5d 22 20 0a 09 09 69 6d 61 67 65 2d 66 69 6c 65 20 73 75 63 63 65 73 73 29 29 29 0a 09 20 20 20 | ]"....image-file.success)))..... |
| 658c0 | 28 61 77 61 6b 65 6e 20 28 29 0a 09 20 20 20 20 20 28 72 65 73 75 72 72 65 63 74 20 63 6f 6e 6e | (awaken.().......(resurrect.conn |
| 658e0 | 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 62 | ection))).......(swank/backend:b |
| 65900 | 61 63 6b 67 72 6f 75 6e 64 2d 73 61 76 65 2d 69 6d 61 67 65 20 69 6d 61 67 65 2d 66 69 6c 65 0a | ackground-save-image.image-file. |
| 65920 | 09 09 09 09 09 20 20 20 3a 72 65 73 74 61 72 74 2d 66 75 6e 63 74 69 6f 6e 20 23 27 61 77 61 6b | ........:restart-function.#'awak |
| 65940 | 65 6e 0a 09 09 09 09 09 20 20 20 3a 63 6f 6d 70 6c 65 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 20 | en.........:completion-function. |
| 65960 | 23 27 63 6f 6d 70 6c 65 74 65 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 53 | #'complete).......(format.nil."S |
| 65980 | 74 61 72 74 65 64 20 64 75 6d 70 69 6e 67 20 6c 69 73 70 20 74 6f 20 7e 41 2e 2e 2e 22 20 69 6d | tarted.dumping.lisp.to.~A...".im |
| 659a0 | 61 67 65 2d 66 69 6c 65 29 29 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b | age-file))))..(in-package.:swank |
| 659c0 | 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 73 6e 61 70 73 68 6f 74 3a 3a 72 65 73 75 72 72 | )..(defun.swank-snapshot::resurr |
| 659e0 | 65 63 74 20 28 6f 6c 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 73 65 74 71 20 2a 6c 6f | ect.(old-connection)...(setq.*lo |
| 65a00 | 67 2d 6f 75 74 70 75 74 2a 20 6e 69 6c 29 0a 20 20 28 69 6e 69 74 2d 6c 6f 67 2d 6f 75 74 70 75 | g-output*.nil)...(init-log-outpu |
| 65a20 | 74 29 0a 20 20 28 63 6c 65 61 72 2d 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 29 0a 20 20 28 73 65 | t)...(clear-event-history)...(se |
| 65a40 | 74 71 20 2a 63 6f 6e 6e 65 63 74 69 6f 6e 73 2a 20 28 64 65 6c 65 74 65 20 6f 6c 64 2d 63 6f 6e | tq.*connections*.(delete.old-con |
| 65a60 | 6e 65 63 74 69 6f 6e 20 2a 63 6f 6e 6e 65 63 74 69 6f 6e 73 2a 29 29 0a 20 20 28 66 6f 72 6d 61 | nection.*connections*))...(forma |
| 65a80 | 74 20 2a 65 72 72 6f 72 2d 6f 75 74 70 75 74 2a 20 22 61 72 67 73 3a 20 7e 73 7e 25 22 20 28 63 | t.*error-output*."args:.~s~%".(c |
| 65aa0 | 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 64 20 | ommand-line-args))...(let*.((fd. |
| 65ac0 | 28 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 20 22 2d 2d 73 77 61 6e 6b 2d | (read-command-line-arg."--swank- |
| 65ae0 | 66 64 22 29 29 0a 09 20 28 73 74 79 6c 65 20 28 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e | fd"))...(style.(read-command-lin |
| 65b00 | 65 2d 61 72 67 20 22 2d 2d 73 77 61 6e 6b 2d 73 74 79 6c 65 22 29 29 0a 09 20 28 72 65 70 6c 20 | e-arg."--swank-style"))...(repl. |
| 65b20 | 28 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 20 22 2d 2d 73 77 61 6e 6b 2d | (read-command-line-arg."--swank- |
| 65b40 | 72 65 70 6c 22 29 29 0a 09 20 28 2a 20 28 66 6f 72 6d 61 74 20 2a 65 72 72 6f 72 2d 6f 75 74 70 | repl"))...(*.(format.*error-outp |
| 65b60 | 75 74 2a 20 22 66 64 3d 7e 73 20 73 74 79 6c 65 3d 7e 73 7e 25 22 20 66 64 20 73 74 79 6c 65 29 | ut*."fd=~s.style=~s~%".fd.style) |
| 65b80 | 29 0a 09 20 28 73 74 72 65 61 6d 20 28 6d 61 6b 65 2d 66 64 2d 73 74 72 65 61 6d 20 66 64 20 6e | )...(stream.(make-fd-stream.fd.n |
| 65ba0 | 69 6c 29 29 0a 09 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 6d 61 6b 65 2d 63 6f 6e 6e 65 63 74 | il))...(connection.(make-connect |
| 65bc0 | 69 6f 6e 20 6e 69 6c 20 73 74 72 65 61 6d 20 73 74 79 6c 65 29 29 29 0a 20 20 20 20 28 6c 65 74 | ion.nil.stream.style))).....(let |
| 65be0 | 20 28 28 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e | .((*emacs-connection*.connection |
| 65c00 | 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 70 6c 20 28 73 77 61 6e 6b 2d 72 65 70 6c 3a | )).......(when.repl.(swank-repl: |
| 65c20 | 63 72 65 61 74 65 2d 72 65 70 6c 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 62 61 63 6b 67 72 6f | create-repl.nil)).......(backgro |
| 65c40 | 75 6e 64 2d 6d 65 73 73 61 67 65 20 22 7e 41 22 20 22 4c 69 73 70 20 69 6d 61 67 65 20 72 65 73 | und-message."~A"."Lisp.image.res |
| 65c60 | 74 6f 72 65 64 22 29 29 0a 20 20 20 20 28 73 65 72 76 65 2d 72 65 71 75 65 73 74 73 20 63 6f 6e | tored")).....(serve-requests.con |
| 65c80 | 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 73 69 6d 70 6c 65 2d 72 65 70 6c 29 29 29 0a 0a 28 64 | nection).....(simple-repl)))..(d |
| 65ca0 | 65 66 75 6e 20 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 20 28 6e 61 6d 65 | efun.read-command-line-arg.(name |
| 65cc0 | 29 0a 20 20 28 6c 65 74 2a 20 28 28 61 72 67 73 20 28 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 | )...(let*.((args.(command-line-a |
| 65ce0 | 72 67 73 29 29 0a 09 20 28 70 6f 73 20 28 70 6f 73 69 74 69 6f 6e 20 6e 61 6d 65 20 61 72 67 73 | rgs))...(pos.(position.name.args |
| 65d00 | 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 29 0a 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d | .:test.#'equal))).....(read-from |
| 65d20 | 2d 73 74 72 69 6e 67 20 28 65 6c 74 20 61 72 67 73 20 28 31 2b 20 70 6f 73 29 29 29 29 29 0a 0a | -string.(elt.args.(1+.pos))))).. |
| 65d40 | 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2d 73 6e 61 70 73 68 6f 74 29 0a 0a 28 70 | (in-package.:swank-snapshot)..(p |
| 65d60 | 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 73 6e 61 70 73 68 6f 74 29 0a 00 00 00 00 00 00 00 00 | rovide.:swank-snapshot)......... |
| 65d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65e00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 | slime-2.31/contrib/slime-present |
| 65e20 | 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ation-streams.el................ |
| 65e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65e60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 65e80 | 30 30 30 31 32 30 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 32 30 34 36 31 00 20 30 00 00 00 | 0001201.00000000000.020461..0... |
| 65ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65f00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 65f20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 65f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 65fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66000 | 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6c | (eval-and-compile...(require.'sl |
| 66020 | 69 6d 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 | ime))..(define-slime-contrib.sli |
| 66040 | 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 0a 20 20 22 53 74 72 65 61 | me-presentation-streams..."Strea |
| 66060 | 6d 73 20 74 68 61 74 20 61 6c 6c 6f 77 20 61 74 74 61 63 68 69 6e 67 20 6f 62 6a 65 63 74 20 69 | ms.that.allow.attaching.object.i |
| 66080 | 64 65 6e 74 69 74 69 65 73 20 74 6f 20 70 6f 72 74 69 6f 6e 73 20 6f 66 0a 20 20 20 6f 75 74 70 | dentities.to.portions.of....outp |
| 660a0 | 75 74 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 41 6c 61 6e 20 52 75 74 74 65 6e 62 65 72 | ut."...(:authors."Alan.Ruttenber |
| 660c0 | 67 20 20 3c 61 6c 61 6e 72 2d 6c 40 6d 75 6d 62 6c 65 2e 6e 65 74 3e 22 0a 20 20 20 20 20 20 20 | g..<alanr-l@mumble.net>"........ |
| 660e0 | 20 20 20 20 20 22 4d 61 74 74 68 69 61 73 20 4b 6f 65 70 70 65 20 20 3c 6d 6b 6f 65 70 70 65 40 | ....."Matthias.Koeppe..<mkoeppe@ |
| 66100 | 6d 61 69 6c 2e 6d 61 74 68 2e 75 6e 69 2d 6d 61 67 64 65 62 75 72 67 2e 64 65 3e 22 0a 20 20 20 | mail.math.uni-magdeburg.de>".... |
| 66120 | 20 20 20 20 20 20 20 20 20 22 48 65 6c 6d 75 74 20 45 6c 6c 65 72 20 20 3c 68 65 6c 6c 65 72 40 | ........."Helmut.Eller..<heller@ |
| 66140 | 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 | common-lisp.net>")...(:license." |
| 66160 | 47 50 4c 22 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 | GPL")...(:on-load....(add-hook.' |
| 66180 | 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 70 72 65 73 | slime-connected-hook.'slime-pres |
| 661a0 | 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 2d 6f 6e 2d 63 6f 6e 6e 65 63 74 65 64 29 29 0a | entation-streams-on-connected)). |
| 661c0 | 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d 70 72 65 | ..(:swank-dependencies.swank-pre |
| 661e0 | 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | sentation-streams))..(defun.slim |
| 66200 | 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 2d 6f 6e 2d 63 6f 6e 6e 65 63 | e-presentation-streams-on-connec |
| 66220 | 74 65 64 20 28 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 69 6e 69 | ted.()...(slime-eval.`(swank:ini |
| 66240 | 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 29 29 29 0a 0a 28 70 72 6f 76 | t-presentation-streams)))..(prov |
| 66260 | 69 64 65 20 27 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 29 | ide.'slime-presentation-streams) |
| 66280 | 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 662a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 662c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 662e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 663a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 663c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 663e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 70 72 65 73 65 6e 74 | slime-2.31/contrib/swank-present |
| 66420 | 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ation-streams.lisp.............. |
| 66440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 66480 | 30 30 32 37 34 30 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 32 31 30 35 36 00 20 30 00 00 00 | 0027403.00000000000.021056..0... |
| 664a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 664c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 664e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 66520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 66540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 665a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 665c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 665e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 66600 | 3b 3b 3b 20 73 77 61 6e 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 2e 6c | ;;;.swank-presentation-streams.l |
| 66620 | 69 73 70 20 2d 2d 2d 20 53 74 72 65 61 6d 73 20 74 68 61 74 20 61 6c 6c 6f 77 20 61 74 74 61 63 | isp.---.Streams.that.allow.attac |
| 66640 | 68 69 6e 67 20 6f 62 6a 65 63 74 20 69 64 65 6e 74 69 74 69 65 73 0a 3b 3b 3b 20 20 20 20 20 20 | hing.object.identities.;;;...... |
| 66660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 | ...............................t |
| 66680 | 6f 20 70 6f 72 74 69 6f 6e 73 20 6f 66 20 6f 75 74 70 75 74 0a 3b 3b 3b 0a 3b 3b 3b 20 41 75 74 | o.portions.of.output.;;;.;;;.Aut |
| 666a0 | 68 6f 72 73 3a 20 41 6c 61 6e 20 52 75 74 74 65 6e 62 65 72 67 20 20 3c 61 6c 61 6e 72 2d 6c 40 | hors:.Alan.Ruttenberg..<alanr-l@ |
| 666c0 | 6d 75 6d 62 6c 65 2e 6e 65 74 3e 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 4d 61 74 74 68 69 61 | mumble.net>.;;;..........Matthia |
| 666e0 | 73 20 4b 6f 65 70 70 65 20 20 3c 6d 6b 6f 65 70 70 65 40 6d 61 69 6c 2e 6d 61 74 68 2e 75 6e 69 | s.Koeppe..<mkoeppe@mail.math.uni |
| 66700 | 2d 6d 61 67 64 65 62 75 72 67 2e 64 65 3e 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 48 65 6c 6d | -magdeburg.de>.;;;..........Helm |
| 66720 | 75 74 20 45 6c 6c 65 72 20 20 3c 68 65 6c 6c 65 72 40 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 | ut.Eller..<heller@common-lisp.ne |
| 66740 | 74 3e 0a 3b 3b 3b 0a 3b 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 54 68 69 73 20 63 6f 64 65 20 68 61 | t>.;;;.;;;.License:.This.code.ha |
| 66760 | 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 | s.been.placed.in.the.Public.Doma |
| 66780 | 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 | in...All.warranties.;;;......... |
| 667a0 | 20 61 72 65 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 | .are.disclaimed...(in-package.:s |
| 667c0 | 77 61 6e 6b 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c | wank)..(eval-when.(:compile-topl |
| 667e0 | 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 | evel.:load-toplevel.:execute)... |
| 66800 | 28 73 77 61 6e 6b 2d 72 65 71 75 69 72 65 20 3a 73 77 61 6e 6b 2d 70 72 65 73 65 6e 74 61 74 69 | (swank-require.:swank-presentati |
| 66820 | 6f 6e 73 29 29 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 61 20 6d | ons))..;;.This.file.contains.a.m |
| 66840 | 65 63 68 61 6e 69 73 6d 20 66 6f 72 20 70 72 69 6e 74 69 6e 67 20 74 6f 20 74 68 65 20 73 6c 69 | echanism.for.printing.to.the.sli |
| 66860 | 6d 65 20 72 65 70 6c 20 73 6f 0a 3b 3b 20 74 68 61 74 20 74 68 65 20 70 72 69 6e 74 65 64 20 72 | me.repl.so.;;.that.the.printed.r |
| 66880 | 65 73 75 6c 74 20 72 65 6d 65 6d 62 65 72 73 20 77 68 61 74 20 6f 62 6a 65 63 74 20 69 74 20 69 | esult.remembers.what.object.it.i |
| 668a0 | 73 20 61 73 73 6f 63 69 61 74 65 64 0a 3b 3b 20 77 69 74 68 2e 20 20 54 68 69 73 20 65 78 74 65 | s.associated.;;.with...This.exte |
| 668c0 | 6e 64 73 20 74 68 65 20 72 65 63 6f 72 64 69 6e 67 20 6f 66 20 52 45 50 4c 20 72 65 73 75 6c 74 | nds.the.recording.of.REPL.result |
| 668e0 | 73 2e 0a 3b 3b 0a 3b 3b 20 54 68 65 72 65 20 61 72 65 20 74 77 6f 20 6d 65 74 68 6f 64 73 3a 0a | s..;;.;;.There.are.two.methods:. |
| 66900 | 3b 3b 0a 3b 3b 20 31 2e 20 44 65 70 65 6e 64 73 20 6f 6e 20 74 68 65 20 69 6c 69 73 70 20 62 72 | ;;.;;.1..Depends.on.the.ilisp.br |
| 66920 | 69 64 67 65 20 63 6f 64 65 20 62 65 69 6e 67 20 69 6e 73 74 61 6c 6c 65 64 20 61 6e 64 20 72 65 | idge.code.being.installed.and.re |
| 66940 | 61 64 79 20 74 6f 0a 3b 3b 20 20 20 20 69 6e 74 65 72 63 65 70 74 20 6d 65 73 73 61 67 65 73 20 | ady.to.;;....intercept.messages. |
| 66960 | 69 6e 20 74 68 65 20 70 72 69 6e 74 65 64 20 73 74 72 65 61 6d 2e 20 57 65 20 65 6e 63 6f 64 65 | in.the.printed.stream..We.encode |
| 66980 | 20 74 68 65 0a 3b 3b 20 20 20 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 69 74 68 20 61 20 6d 65 | .the.;;....information.with.a.me |
| 669a0 | 73 73 61 67 65 20 73 61 79 69 6e 67 20 74 68 61 74 20 77 65 20 61 72 65 20 73 74 61 72 74 69 6e | ssage.saying.that.we.are.startin |
| 669c0 | 67 20 74 6f 20 70 72 69 6e 74 0a 3b 3b 20 20 20 20 61 6e 20 6f 62 6a 65 63 74 20 63 6f 72 72 65 | g.to.print.;;....an.object.corre |
| 669e0 | 73 70 6f 6e 64 69 6e 67 20 74 6f 20 61 20 67 69 76 65 6e 20 69 64 20 61 6e 64 20 61 6e 6f 74 68 | sponding.to.a.given.id.and.anoth |
| 66a00 | 65 72 20 77 68 65 6e 20 77 65 20 61 72 65 0a 3b 3b 20 20 20 20 64 6f 6e 65 2e 20 54 68 65 20 70 | er.when.we.are.;;....done..The.p |
| 66a20 | 72 6f 63 65 73 73 20 66 69 6c 74 65 72 20 6e 6f 74 69 63 65 73 20 74 68 65 73 65 20 61 6e 64 20 | rocess.filter.notices.these.and. |
| 66a40 | 61 64 64 73 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 0a 3b 3b 20 20 20 20 74 65 78 74 20 70 72 | adds.the.necessary.;;....text.pr |
| 66a60 | 6f 70 65 72 74 69 65 73 20 74 6f 20 74 68 65 20 6f 75 74 70 75 74 2e 0a 3b 3b 0a 3b 3b 20 32 2e | operties.to.the.output..;;.;;.2. |
| 66a80 | 20 55 73 65 20 73 65 70 61 72 61 74 65 20 70 72 6f 74 6f 63 6f 6c 20 6d 65 73 73 61 67 65 73 20 | .Use.separate.protocol.messages. |
| 66aa0 | 3a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 20 61 6e 64 0a 3b 3b 20 20 20 20 3a 70 | :presentation-start.and.;;....:p |
| 66ac0 | 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 20 66 6f 72 20 73 65 6e 64 69 6e 67 20 70 72 65 73 | resentation-end.for.sending.pres |
| 66ae0 | 65 6e 74 61 74 69 6f 6e 73 2e 0a 3b 3b 0a 3b 3b 20 57 65 20 6f 6e 6c 79 20 64 6f 20 74 68 69 73 | entations..;;.;;.We.only.do.this |
| 66b00 | 20 69 66 20 77 65 20 6b 6e 6f 77 20 77 65 20 61 72 65 20 70 72 69 6e 74 69 6e 67 20 74 6f 20 61 | .if.we.know.we.are.printing.to.a |
| 66b20 | 20 73 6c 69 6d 65 20 73 74 72 65 61 6d 2c 0a 3b 3b 20 63 68 65 63 6b 65 64 20 77 69 74 68 20 74 | .slime.stream,.;;.checked.with.t |
| 66b40 | 68 65 20 6d 65 74 68 6f 64 20 73 6c 69 6d 65 2d 73 74 72 65 61 6d 2d 70 2e 20 49 6e 69 74 69 61 | he.method.slime-stream-p..Initia |
| 66b60 | 6c 6c 79 20 74 68 69 73 20 63 68 65 63 6b 73 20 66 6f 72 0a 3b 3b 20 74 68 65 20 6b 6e 6f 77 73 | lly.this.checks.for.;;.the.knows |
| 66b80 | 20 73 6c 69 6d 65 20 73 74 72 65 61 6d 73 20 6c 6f 6f 6b 69 6e 67 20 61 74 20 2a 63 6f 6e 6e 65 | .slime.streams.looking.at.*conne |
| 66ba0 | 63 74 69 6f 6e 73 2a 2e 20 49 6e 20 63 6d 75 63 6c 2c 20 73 62 63 6c 2c 20 61 6e 64 0a 3b 3b 20 | ctions*..In.cmucl,.sbcl,.and.;;. |
| 66bc0 | 6f 70 65 6e 6d 63 6c 20 69 74 20 61 6c 73 6f 20 63 68 65 63 6b 73 20 69 66 20 69 74 20 69 73 20 | openmcl.it.also.checks.if.it.is. |
| 66be0 | 61 20 70 72 65 74 74 79 2d 70 72 69 6e 74 69 6e 67 20 73 74 72 65 61 6d 20 77 68 69 63 68 0a 3b | a.pretty-printing.stream.which.; |
| 66c00 | 3b 20 75 6c 74 69 6d 61 74 65 6c 79 20 70 72 69 6e 74 73 20 74 6f 20 61 20 73 6c 69 6d 65 20 73 | ;.ultimately.prints.to.a.slime.s |
| 66c20 | 74 72 65 61 6d 2e 0a 3b 3b 0a 3b 3b 20 4d 65 74 68 6f 64 20 31 20 73 65 65 6d 73 20 74 6f 20 62 | tream..;;.;;.Method.1.seems.to.b |
| 66c40 | 65 20 66 61 73 74 65 72 2c 20 62 75 74 20 74 68 65 20 70 72 69 6e 74 65 64 20 65 73 63 61 70 65 | e.faster,.but.the.printed.escape |
| 66c60 | 20 73 65 71 75 65 6e 63 65 73 20 63 61 6e 20 0a 3b 3b 20 64 69 73 74 75 72 62 20 74 68 65 20 63 | .sequences.can..;;.disturb.the.c |
| 66c80 | 6f 6c 75 6d 6e 20 63 6f 75 6e 74 69 6e 67 2c 20 61 6e 64 20 74 68 75 73 20 74 68 65 20 6c 61 79 | olumn.counting,.and.thus.the.lay |
| 66ca0 | 6f 75 74 20 69 6e 20 70 72 65 74 74 79 2d 70 72 69 6e 74 69 6e 67 2e 0a 3b 3b 20 57 65 20 75 73 | out.in.pretty-printing..;;.We.us |
| 66cc0 | 65 20 6d 65 74 68 6f 64 20 31 20 77 68 65 6e 20 61 20 64 65 64 69 63 61 74 65 64 20 6f 75 74 70 | e.method.1.when.a.dedicated.outp |
| 66ce0 | 75 74 20 73 74 72 65 61 6d 20 69 73 20 75 73 65 64 2e 20 20 0a 3b 3b 0a 3b 3b 20 4d 65 74 68 6f | ut.stream.is.used....;;.;;.Metho |
| 66d00 | 64 20 32 20 69 73 20 63 6c 65 61 6e 65 72 20 61 6e 64 20 77 6f 72 6b 73 20 77 69 74 68 20 70 72 | d.2.is.cleaner.and.works.with.pr |
| 66d20 | 65 74 74 79 20 70 72 69 6e 74 69 6e 67 20 69 66 20 74 68 65 20 70 72 65 74 74 79 0a 3b 3b 20 70 | etty.printing.if.the.pretty.;;.p |
| 66d40 | 72 69 6e 74 65 72 73 20 73 75 70 70 6f 72 74 20 22 61 6e 6e 6f 74 61 74 69 6f 6e 73 22 2e 20 20 | rinters.support."annotations"... |
| 66d60 | 57 65 20 75 73 65 20 6d 65 74 68 6f 64 20 32 20 77 68 65 6e 20 6e 6f 20 64 65 64 69 63 61 74 65 | We.use.method.2.when.no.dedicate |
| 66d80 | 64 0a 3b 3b 20 6f 75 74 70 75 74 20 73 74 72 65 61 6d 20 69 73 20 75 73 65 64 2e 0a 0a 3b 3b 20 | d.;;.output.stream.is.used...;;. |
| 66da0 | 43 6f 6e 74 72 6f 6c 0a 28 64 65 66 76 61 72 20 2a 65 6e 61 62 6c 65 2d 70 72 65 73 65 6e 74 69 | Control.(defvar.*enable-presenti |
| 66dc0 | 6e 67 2d 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 73 2a 20 74 0a 20 20 22 73 65 74 20 74 68 | ng-readable-objects*.t..."set.th |
| 66de0 | 69 73 20 74 6f 20 65 6e 61 62 6c 65 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 70 72 69 6e 74 | is.to.enable.automatically.print |
| 66e00 | 69 6e 67 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 66 6f 72 20 73 6f 6d 65 0a 73 75 62 73 65 | ing.presentations.for.some.subse |
| 66e20 | 74 20 6f 66 20 72 65 61 64 61 62 6c 65 20 6f 62 6a 65 63 74 73 2c 20 73 75 63 68 20 61 73 20 70 | t.of.readable.objects,.such.as.p |
| 66e40 | 61 74 68 6e 61 6d 65 73 2e 22 20 20 29 0a 0a 3b 3b 20 64 6f 69 6e 67 20 69 74 0a 0a 28 64 65 66 | athnames."..)..;;.doing.it..(def |
| 66e60 | 6d 61 63 72 6f 20 70 72 65 73 65 6e 74 69 6e 67 2d 6f 62 6a 65 63 74 20 28 6f 62 6a 65 63 74 20 | macro.presenting-object.(object. |
| 66e80 | 73 74 72 65 61 6d 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 57 68 61 74 20 79 6f 75 20 75 | stream.&body.body)..."What.you.u |
| 66ea0 | 73 65 20 69 6e 20 79 6f 75 72 20 63 6f 64 65 2e 20 57 72 61 70 20 74 68 69 73 20 61 72 6f 75 6e | se.in.your.code..Wrap.this.aroun |
| 66ec0 | 64 20 73 6f 6d 65 20 70 72 69 6e 74 69 6e 67 20 61 6e 64 20 74 68 61 74 20 74 65 78 74 20 77 69 | d.some.printing.and.that.text.wi |
| 66ee0 | 6c 6c 0a 62 65 20 73 65 6e 73 69 74 69 76 65 20 61 6e 64 20 72 65 6d 65 6d 62 65 72 20 77 68 61 | ll.be.sensitive.and.remember.wha |
| 66f00 | 74 20 6f 62 6a 65 63 74 20 69 74 20 69 73 20 69 6e 20 74 68 65 20 72 65 70 6c 22 0a 20 20 60 28 | t.object.it.is.in.the.repl"...`( |
| 66f20 | 70 72 65 73 65 6e 74 69 6e 67 2d 6f 62 6a 65 63 74 2d 31 20 2c 6f 62 6a 65 63 74 20 2c 73 74 72 | presenting-object-1.,object.,str |
| 66f40 | 65 61 6d 20 23 27 28 6c 61 6d 62 64 61 20 28 29 20 2c 40 62 6f 64 79 29 29 29 0a 0a 28 64 65 66 | eam.#'(lambda.().,@body)))..(def |
| 66f60 | 6d 61 63 72 6f 20 70 72 65 73 65 6e 74 69 6e 67 2d 6f 62 6a 65 63 74 2d 69 66 20 28 70 72 65 64 | macro.presenting-object-if.(pred |
| 66f80 | 69 63 61 74 65 20 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 20 26 62 6f 64 79 20 62 6f 64 79 29 0a | icate.object.stream.&body.body). |
| 66fa0 | 20 20 22 57 68 61 74 20 79 6f 75 20 75 73 65 20 69 6e 20 79 6f 75 72 20 63 6f 64 65 2e 20 57 72 | .."What.you.use.in.your.code..Wr |
| 66fc0 | 61 70 20 74 68 69 73 20 61 72 6f 75 6e 64 20 73 6f 6d 65 20 70 72 69 6e 74 69 6e 67 20 61 6e 64 | ap.this.around.some.printing.and |
| 66fe0 | 20 74 68 61 74 20 74 65 78 74 20 77 69 6c 6c 0a 62 65 20 73 65 6e 73 69 74 69 76 65 20 61 6e 64 | .that.text.will.be.sensitive.and |
| 67000 | 20 72 65 6d 65 6d 62 65 72 20 77 68 61 74 20 6f 62 6a 65 63 74 20 69 74 20 69 73 20 69 6e 20 74 | .remember.what.object.it.is.in.t |
| 67020 | 68 65 20 72 65 70 6c 20 69 66 20 70 72 65 64 69 63 61 74 65 20 69 73 20 74 72 75 65 22 0a 20 20 | he.repl.if.predicate.is.true"... |
| 67040 | 28 6c 65 74 20 28 28 63 6f 6e 74 69 6e 75 65 20 28 67 65 6e 73 79 6d 29 29 29 0a 20 20 60 28 6c | (let.((continue.(gensym)))...`(l |
| 67060 | 65 74 20 28 28 2c 63 6f 6e 74 69 6e 75 65 20 23 27 28 6c 61 6d 62 64 61 20 28 29 20 2c 40 62 6f | et.((,continue.#'(lambda.().,@bo |
| 67080 | 64 79 29 29 29 0a 20 20 20 20 28 69 66 20 2c 70 72 65 64 69 63 61 74 65 0a 09 28 70 72 65 73 65 | dy))).....(if.,predicate..(prese |
| 670a0 | 6e 74 69 6e 67 2d 6f 62 6a 65 63 74 2d 31 20 2c 6f 62 6a 65 63 74 20 2c 73 74 72 65 61 6d 20 2c | nting-object-1.,object.,stream., |
| 670c0 | 63 6f 6e 74 69 6e 75 65 29 0a 09 28 66 75 6e 63 61 6c 6c 20 2c 63 6f 6e 74 69 6e 75 65 29 29 29 | continue)..(funcall.,continue))) |
| 670e0 | 29 29 0a 0a 3b 3b 3b 20 47 65 74 20 70 72 65 74 74 79 20 70 72 69 6e 74 65 72 20 70 61 74 63 68 | ))..;;;.Get.pretty.printer.patch |
| 67100 | 65 73 20 66 6f 72 20 53 42 43 4c 20 61 74 20 6c 6f 61 64 20 28 6e 6f 74 20 63 6f 6d 70 69 6c 65 | es.for.SBCL.at.load.(not.compile |
| 67120 | 29 20 74 69 6d 65 2e 0a 23 2b 23 3a 64 69 73 61 62 6c 65 2d 64 61 6e 67 65 72 6f 75 73 2d 70 61 | ).time..#+#:disable-dangerous-pa |
| 67140 | 74 63 68 69 6e 67 20 3b 20 23 2b 73 62 63 6c 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 6c 6f 61 | tching.;.#+sbcl.(eval-when.(:loa |
| 67160 | 64 2d 74 6f 70 6c 65 76 65 6c 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 73 69 | d-toplevel)...(handler-bind.((si |
| 67180 | 6d 70 6c 65 2d 65 72 72 6f 72 0a 09 09 20 20 28 6c 61 6d 62 64 61 20 28 63 29 0a 09 09 20 20 20 | mple-error.....(lambda.(c)...... |
| 671a0 | 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 29 29 0a 09 09 20 20 20 20 28 6c 65 74 | .(declare.(ignore.c)).......(let |
| 671c0 | 20 28 28 63 6c 6f 62 62 65 72 2d 69 74 20 28 66 69 6e 64 2d 72 65 73 74 61 72 74 20 27 73 62 2d | .((clobber-it.(find-restart.'sb- |
| 671e0 | 6b 65 72 6e 65 6c 3a 3a 63 6c 6f 62 62 65 72 2d 69 74 29 29 29 0a 09 09 20 20 20 20 20 20 28 77 | kernel::clobber-it))).........(w |
| 67200 | 68 65 6e 20 63 6c 6f 62 62 65 72 2d 69 74 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 63 | hen.clobber-it.(invoke-restart.c |
| 67220 | 6c 6f 62 62 65 72 2d 69 74 29 29 29 29 29 29 0a 20 20 20 20 28 73 62 2d 65 78 74 3a 77 69 74 68 | lobber-it)))))).....(sb-ext:with |
| 67240 | 6f 75 74 2d 70 61 63 6b 61 67 65 2d 6c 6f 63 6b 73 0a 20 20 20 20 20 20 28 73 77 61 6e 6b 2f 73 | out-package-locks.......(swank/s |
| 67260 | 62 63 6c 3a 3a 77 69 74 68 2d 64 65 62 6f 6f 74 73 74 72 61 70 70 69 6e 67 0a 09 28 6c 6f 61 64 | bcl::with-debootstrapping..(load |
| 67280 | 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 0a 09 20 20 20 20 20 20 20 3a 6e 61 6d 65 20 22 73 | .(make-pathname.........:name."s |
| 672a0 | 62 63 6c 2d 70 70 72 69 6e 74 2d 70 61 74 63 68 22 0a 09 20 20 20 20 20 20 20 3a 74 79 70 65 20 | bcl-pprint-patch".........:type. |
| 672c0 | 22 6c 69 73 70 22 0a 09 20 20 20 20 20 20 20 3a 64 69 72 65 63 74 6f 72 79 20 28 70 61 74 68 6e | "lisp".........:directory.(pathn |
| 672e0 | 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 0a 09 09 09 20 20 20 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 | ame-directory.......swank-loader |
| 67300 | 3a 2a 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 2a 29 29 29 29 29 29 29 0a 0a 28 6c 65 74 | :*source-directory*)))))))..(let |
| 67320 | 20 28 28 6c 61 73 74 2d 73 74 72 65 61 6d 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 6c 61 73 74 2d | .((last-stream.nil).......(last- |
| 67340 | 61 6e 73 77 65 72 20 6e 69 6c 29 29 0a 20 20 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 74 72 65 | answer.nil))...(defun.slime-stre |
| 67360 | 61 6d 2d 70 20 28 73 74 72 65 61 6d 29 0a 20 20 20 20 22 43 68 65 63 6b 20 69 66 20 73 74 72 65 | am-p.(stream)....."Check.if.stre |
| 67380 | 61 6d 20 69 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 73 6c 69 6d 65 20 73 74 72 65 61 6d 73 2c 20 | am.is.one.of.the.slime.streams,. |
| 673a0 | 73 69 6e 63 65 20 69 66 20 69 74 20 69 73 6e 27 74 20 77 65 0a 64 6f 6e 27 74 20 77 61 6e 74 20 | since.if.it.isn't.we.don't.want. |
| 673c0 | 74 6f 20 70 72 65 73 65 6e 74 20 61 6e 79 74 68 69 6e 67 2e 0a 53 70 65 63 69 61 6c 20 72 65 74 | to.present.anything..Special.ret |
| 673e0 | 75 72 6e 20 76 61 6c 75 65 73 3a 20 0a 3a 52 45 50 4c 2d 52 45 53 55 4c 54 20 2d 2d 20 4f 75 74 | urn.values:..:REPL-RESULT.--.Out |
| 67400 | 70 75 74 20 65 6e 64 73 20 75 70 20 6f 6e 20 74 68 65 20 3a 72 65 70 6c 2d 72 65 73 75 6c 74 73 | put.ends.up.on.the.:repl-results |
| 67420 | 20 74 61 72 67 65 74 2e 0a 22 0a 20 20 20 20 28 69 66 20 28 65 71 20 6c 61 73 74 2d 73 74 72 65 | .target..".....(if.(eq.last-stre |
| 67440 | 61 6d 20 73 74 72 65 61 6d 29 0a 09 6c 61 73 74 2d 61 6e 73 77 65 72 0a 09 28 70 72 6f 67 6e 0a | am.stream)..last-answer..(progn. |
| 67460 | 09 20 20 28 73 65 74 71 20 6c 61 73 74 2d 73 74 72 65 61 6d 20 73 74 72 65 61 6d 29 0a 09 20 20 | ...(setq.last-stream.stream).... |
| 67480 | 28 69 66 20 28 65 71 20 73 74 72 65 61 6d 20 74 29 20 0a 09 20 20 20 20 20 20 28 73 65 74 71 20 | (if.(eq.stream.t).........(setq. |
| 674a0 | 73 74 72 65 61 6d 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 29 0a 09 20 20 28 73 | stream.*standard-output*))....(s |
| 674c0 | 65 74 71 20 6c 61 73 74 2d 61 6e 73 77 65 72 20 0a 09 09 28 6f 72 20 23 2b 6f 70 65 6e 6d 63 6c | etq.last-answer....(or.#+openmcl |
| 674e0 | 20 0a 09 09 20 20 20 20 28 61 6e 64 20 28 74 79 70 65 70 20 73 74 72 65 61 6d 20 27 63 63 6c 3a | ........(and.(typep.stream.'ccl: |
| 67500 | 3a 78 70 2d 73 74 72 65 61 6d 29 20 0a 09 09 09 09 09 3b 28 73 6c 69 6d 65 2d 73 74 72 65 61 6d | :xp-stream).......;(slime-stream |
| 67520 | 2d 70 20 28 63 63 6c 3a 3a 78 70 2d 62 61 73 65 2d 73 74 72 65 61 6d 20 28 73 6c 6f 74 2d 76 61 | -p.(ccl::xp-base-stream.(slot-va |
| 67540 | 6c 75 65 20 73 74 72 65 61 6d 20 27 63 63 6c 3a 3a 78 70 2d 73 74 72 75 63 74 75 72 65 29 29 29 | lue.stream.'ccl::xp-structure))) |
| 67560 | 0a 09 09 09 20 28 73 6c 69 6d 65 2d 73 74 72 65 61 6d 2d 70 20 28 63 63 6c 3a 3a 25 73 76 72 65 | .....(slime-stream-p.(ccl::%svre |
| 67580 | 66 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 73 74 72 65 61 6d 20 27 63 63 6c 3a 3a 78 70 2d 73 74 | f.(slot-value.stream.'ccl::xp-st |
| 675a0 | 72 75 63 74 75 72 65 29 20 31 29 29 29 0a 09 09 20 20 20 20 23 2b 63 6d 75 0a 09 09 20 20 20 20 | ructure).1))).......#+cmu....... |
| 675c0 | 28 6f 72 20 28 61 6e 64 20 28 74 79 70 65 70 20 73 74 72 65 61 6d 20 27 6c 69 73 70 3a 3a 69 6e | (or.(and.(typep.stream.'lisp::in |
| 675e0 | 64 65 6e 74 69 6e 67 2d 73 74 72 65 61 6d 29 0a 09 09 09 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 | denting-stream).........(slime-s |
| 67600 | 74 72 65 61 6d 2d 70 20 28 6c 69 73 70 3a 3a 69 6e 64 65 6e 74 69 6e 67 2d 73 74 72 65 61 6d 2d | tream-p.(lisp::indenting-stream- |
| 67620 | 73 74 72 65 61 6d 20 73 74 72 65 61 6d 29 29 29 0a 09 09 09 28 61 6e 64 20 28 74 79 70 65 70 20 | stream.stream)))....(and.(typep. |
| 67640 | 73 74 72 65 61 6d 20 27 70 72 65 74 74 79 2d 70 72 69 6e 74 3a 3a 70 72 65 74 74 79 2d 73 74 72 | stream.'pretty-print::pretty-str |
| 67660 | 65 61 6d 29 0a 09 09 09 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 70 72 65 74 74 79 2d 70 72 | eam).........(fboundp.'pretty-pr |
| 67680 | 69 6e 74 3a 3a 65 6e 71 75 65 75 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 29 0a 09 09 09 20 20 20 20 | int::enqueue-annotation)........ |
| 676a0 | 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 73 74 72 65 61 6d 2d 70 0a 09 09 09 09 20 20 20 20 28 | .(let.((slime-stream-p.........( |
| 676c0 | 73 6c 69 6d 65 2d 73 74 72 65 61 6d 2d 70 20 28 70 72 65 74 74 79 2d 70 72 69 6e 74 3a 3a 70 72 | slime-stream-p.(pretty-print::pr |
| 676e0 | 65 74 74 79 2d 73 74 72 65 61 6d 2d 74 61 72 67 65 74 20 73 74 72 65 61 6d 29 29 29 29 0a 09 09 | etty-stream-target.stream))))... |
| 67700 | 09 20 20 20 20 20 20 20 28 61 6e 64 20 3b 3b 20 49 66 20 4f 4b 2c 20 72 65 74 75 72 6e 20 74 68 | ........(and.;;.If.OK,.return.th |
| 67720 | 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 0a 09 09 09 09 20 20 20 20 3b 3b 20 77 65 20 67 6f 74 | e.return.value.........;;.we.got |
| 67740 | 20 66 72 6f 6d 20 73 6c 69 6d 65 2d 73 74 72 65 61 6d 2d 70 20 6f 6e 0a 09 09 09 09 20 20 20 20 | .from.slime-stream-p.on......... |
| 67760 | 3b 3b 20 74 68 65 20 74 61 72 67 65 74 20 73 74 72 65 61 6d 20 28 63 6f 75 6c 64 20 62 65 0a 09 | ;;.the.target.stream.(could.be.. |
| 67780 | 09 09 09 20 20 20 20 3b 3b 20 3a 72 65 70 6c 2d 72 65 73 75 6c 74 29 3a 0a 09 09 09 09 20 20 20 | .......;;.:repl-result):........ |
| 677a0 | 20 73 6c 69 6d 65 2d 73 74 72 65 61 6d 2d 70 29 29 29 29 0a 09 09 20 20 20 20 23 2b 73 62 63 6c | .slime-stream-p)))).......#+sbcl |
| 677c0 | 0a 09 09 20 20 20 20 28 6c 65 74 20 28 29 0a 09 09 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 | .......(let.().........(declare. |
| 677e0 | 28 6e 6f 74 69 6e 6c 69 6e 65 20 73 62 2d 70 72 65 74 74 79 3a 3a 70 72 65 74 74 79 2d 73 74 72 | (notinline.sb-pretty::pretty-str |
| 67800 | 65 61 6d 2d 74 61 72 67 65 74 29 29 0a 09 09 20 20 20 20 20 20 28 61 6e 64 20 28 74 79 70 65 70 | eam-target)).........(and.(typep |
| 67820 | 20 73 74 72 65 61 6d 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 50 52 45 54 54 59 2d 53 54 52 | .stream.(find-symbol."PRETTY-STR |
| 67840 | 45 41 4d 22 20 27 73 62 2d 70 72 65 74 74 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | EAM".'sb-pretty))............... |
| 67860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 45 4e 51 55 45 | .............(find-symbol."ENQUE |
| 67880 | 55 45 2d 41 4e 4e 4f 54 41 54 49 4f 4e 22 20 27 73 62 2d 70 72 65 74 74 79 29 0a 20 20 20 20 20 | UE-ANNOTATION".'sb-pretty)...... |
| 678a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 74 72 | ......................(slime-str |
| 678c0 | 65 61 6d 2d 70 20 28 73 62 2d 70 72 65 74 74 79 3a 3a 70 72 65 74 74 79 2d 73 74 72 65 61 6d 2d | eam-p.(sb-pretty::pretty-stream- |
| 678e0 | 74 61 72 67 65 74 20 73 74 72 65 61 6d 29 29 29 29 0a 09 09 20 20 20 20 23 2b 61 6c 6c 65 67 72 | target.stream)))).......#+allegr |
| 67900 | 6f 0a 09 09 20 20 20 20 28 61 6e 64 20 28 74 79 70 65 70 20 73 74 72 65 61 6d 20 27 65 78 63 6c | o.......(and.(typep.stream.'excl |
| 67920 | 3a 78 70 2d 73 69 6d 70 6c 65 2d 73 74 72 65 61 6d 29 0a 09 09 09 20 28 73 6c 69 6d 65 2d 73 74 | :xp-simple-stream).....(slime-st |
| 67940 | 72 65 61 6d 2d 70 20 28 65 78 63 6c 3a 3a 73 74 72 65 61 6d 2d 6f 75 74 70 75 74 2d 68 61 6e 64 | ream-p.(excl::stream-output-hand |
| 67960 | 6c 65 20 73 74 72 65 61 6d 29 29 29 0a 09 09 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 6f 6e | le.stream))).......(loop.for.con |
| 67980 | 6e 65 63 74 69 6f 6e 20 69 6e 20 2a 63 6f 6e 6e 65 63 74 69 6f 6e 73 2a 0a 09 09 09 20 20 74 68 | nection.in.*connections*......th |
| 679a0 | 65 72 65 69 73 20 28 6f 72 20 28 65 71 20 73 74 72 65 61 6d 20 28 63 6f 6e 6e 65 63 74 69 6f 6e | ereis.(or.(eq.stream.(connection |
| 679c0 | 2e 73 6f 63 6b 65 74 2d 69 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 09 09 09 09 20 20 20 20 | .socket-io.connection))......... |
| 679e0 | 20 20 28 65 71 20 73 74 72 65 61 6d 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 6f 75 | ..(eq.stream.(connection.user-ou |
| 67a00 | 74 70 75 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 09 09 09 09 20 20 20 20 20 20 28 65 71 20 | tput.connection))...........(eq. |
| 67a20 | 73 74 72 65 61 6d 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 69 6f 20 63 6f 6e 6e 65 | stream.(connection.user-io.conne |
| 67a40 | 63 74 69 6f 6e 29 29 0a 09 09 09 09 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 73 74 72 65 61 | ction))...........(and.(eq.strea |
| 67a60 | 6d 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 72 65 70 6c 2d 72 65 73 75 6c 74 73 20 63 6f 6e 6e 65 | m.(connection.repl-results.conne |
| 67a80 | 63 74 69 6f 6e 29 29 0a 09 09 09 09 09 20 20 20 3a 72 65 70 6c 2d 72 65 73 75 6c 74 29 29 29 29 | ction)).........:repl-result)))) |
| 67aa0 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6e 2d 70 72 65 73 65 6e 74 2d 72 65 61 64 61 62 | )))))..(defun.can-present-readab |
| 67ac0 | 6c 65 2d 6f 62 6a 65 63 74 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 65 61 6d 29 0a 20 20 | le-objects.(&optional.stream)... |
| 67ae0 | 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 73 74 72 65 61 6d 29 29 0a 20 20 2a 65 6e 61 | (declare.(ignore.stream))...*ena |
| 67b00 | 62 6c 65 2d 70 72 65 73 65 6e 74 69 6e 67 2d 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 73 2a | ble-presenting-readable-objects* |
| 67b20 | 29 0a 0a 3b 3b 20 49 66 20 77 65 20 61 72 65 20 70 72 69 6e 74 69 6e 67 20 74 6f 20 61 6e 20 58 | )..;;.If.we.are.printing.to.an.X |
| 67b40 | 50 20 28 70 72 65 74 74 79 20 70 72 69 6e 74 69 6e 67 29 20 73 74 72 65 61 6d 2c 20 70 72 69 6e | P.(pretty.printing).stream,.prin |
| 67b60 | 74 69 6e 67 20 74 68 65 0a 3b 3b 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 73 20 64 69 72 | ting.the.;;.escape.sequences.dir |
| 67b80 | 65 63 74 6c 79 20 77 6f 75 6c 64 20 6d 65 73 73 20 75 70 20 74 68 65 20 6c 61 79 6f 75 74 20 62 | ectly.would.mess.up.the.layout.b |
| 67ba0 | 65 63 61 75 73 65 20 63 6f 6c 75 6d 6e 0a 3b 3b 20 63 6f 75 6e 74 69 6e 67 20 69 73 20 64 69 73 | ecause.column.;;.counting.is.dis |
| 67bc0 | 74 75 72 62 65 64 2e 20 20 55 73 65 20 22 61 6e 6e 6f 74 61 74 69 6f 6e 73 22 20 69 6e 73 74 65 | turbed...Use."annotations".inste |
| 67be0 | 61 64 2e 0a 23 2b 61 6c 6c 65 67 72 6f 0a 28 64 65 66 75 6e 20 77 72 69 74 65 2d 61 6e 6e 6f 74 | ad..#+allegro.(defun.write-annot |
| 67c00 | 61 74 69 6f 6e 20 28 73 74 72 65 61 6d 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 29 0a 20 20 28 69 | ation.(stream.function.arg)...(i |
| 67c20 | 66 20 28 74 79 70 65 70 20 73 74 72 65 61 6d 20 27 65 78 63 6c 3a 78 70 2d 73 69 6d 70 6c 65 2d | f.(typep.stream.'excl:xp-simple- |
| 67c40 | 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 65 78 63 6c 3a 3a 73 63 68 65 64 75 6c 65 2d 61 6e | stream).......(excl::schedule-an |
| 67c60 | 6e 6f 74 61 74 69 6f 6e 20 73 74 72 65 61 6d 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 29 0a 20 20 | notation.stream.function.arg)... |
| 67c80 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 20 73 74 72 65 61 6d | ....(funcall.function.arg.stream |
| 67ca0 | 20 6e 69 6c 29 29 29 0a 23 2b 63 6d 75 0a 28 64 65 66 75 6e 20 77 72 69 74 65 2d 61 6e 6e 6f 74 | .nil))).#+cmu.(defun.write-annot |
| 67cc0 | 61 74 69 6f 6e 20 28 73 74 72 65 61 6d 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 29 0a 20 20 28 69 | ation.(stream.function.arg)...(i |
| 67ce0 | 66 20 28 61 6e 64 20 28 74 79 70 65 70 20 73 74 72 65 61 6d 20 27 70 70 3a 70 72 65 74 74 79 2d | f.(and.(typep.stream.'pp:pretty- |
| 67d00 | 73 74 72 65 61 6d 29 0a 09 20 20 20 28 66 62 6f 75 6e 64 70 20 27 70 70 3a 3a 65 6e 71 75 65 75 | stream).....(fboundp.'pp::enqueu |
| 67d20 | 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 28 70 70 3a 3a 65 6e 71 75 65 75 | e-annotation)).......(pp::enqueu |
| 67d40 | 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 73 74 72 65 61 6d 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 | e-annotation.stream.function.arg |
| 67d60 | 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 20 73 74 | ).......(funcall.function.arg.st |
| 67d80 | 72 65 61 6d 20 6e 69 6c 29 29 29 0a 23 2b 73 62 63 6c 0a 28 64 65 66 75 6e 20 77 72 69 74 65 2d | ream.nil))).#+sbcl.(defun.write- |
| 67da0 | 61 6e 6e 6f 74 61 74 69 6f 6e 20 28 73 74 72 65 61 6d 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 29 | annotation.(stream.function.arg) |
| 67dc0 | 0a 20 20 28 6c 65 74 20 28 28 65 6e 71 75 65 75 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 0a 09 20 28 | ...(let.((enqueue-annotation...( |
| 67de0 | 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 45 4e 51 55 45 55 45 2d 41 4e 4e 4f 54 41 54 49 4f 4e 22 | find-symbol."ENQUEUE-ANNOTATION" |
| 67e00 | 20 27 73 62 2d 70 72 65 74 74 79 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 65 6e 71 75 | .'sb-pretty))).....(if.(and.enqu |
| 67e20 | 65 75 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 0a 09 20 20 20 20 20 28 74 79 70 65 70 20 73 74 72 65 | eue-annotation.......(typep.stre |
| 67e40 | 61 6d 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 50 52 45 54 54 59 2d 53 54 52 45 41 4d 22 20 | am.(find-symbol."PRETTY-STREAM". |
| 67e60 | 27 73 62 2d 70 72 65 74 74 79 29 29 29 0a 09 28 66 75 6e 63 61 6c 6c 20 65 6e 71 75 65 75 65 2d | 'sb-pretty)))..(funcall.enqueue- |
| 67e80 | 61 6e 6e 6f 74 61 74 69 6f 6e 20 73 74 72 65 61 6d 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 29 0a | annotation.stream.function.arg). |
| 67ea0 | 09 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 20 73 74 72 65 61 6d 20 6e 69 | .(funcall.function.arg.stream.ni |
| 67ec0 | 6c 29 29 29 29 0a 23 2d 28 6f 72 20 61 6c 6c 65 67 72 6f 20 63 6d 75 20 73 62 63 6c 29 0a 28 64 | l)))).#-(or.allegro.cmu.sbcl).(d |
| 67ee0 | 65 66 75 6e 20 77 72 69 74 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 28 73 74 72 65 61 6d 20 66 75 | efun.write-annotation.(stream.fu |
| 67f00 | 6e 63 74 69 6f 6e 20 61 72 67 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 | nction.arg)...(funcall.function. |
| 67f20 | 61 72 67 20 73 74 72 65 61 6d 20 6e 69 6c 29 29 0a 0a 28 64 65 66 73 74 72 75 63 74 20 70 72 65 | arg.stream.nil))..(defstruct.pre |
| 67f40 | 73 65 6e 74 61 74 69 6f 6e 2d 72 65 63 6f 72 64 20 0a 20 20 28 69 64 29 0a 20 20 28 70 72 69 6e | sentation-record....(id)...(prin |
| 67f60 | 74 65 64 2d 70 29 0a 20 20 28 74 61 72 67 65 74 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 73 65 | ted-p)...(target))..(defun.prese |
| 67f80 | 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 20 28 72 65 63 6f 72 64 20 73 74 72 65 61 6d 20 74 72 75 | ntation-start.(record.stream.tru |
| 67fa0 | 6e 63 61 74 65 70 29 20 0a 20 20 28 75 6e 6c 65 73 73 20 74 72 75 6e 63 61 74 65 70 0a 20 20 20 | ncatep)....(unless.truncatep.... |
| 67fc0 | 20 3b 3b 20 44 6f 6e 27 74 20 73 74 61 72 74 20 6e 65 77 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | .;;.Don't.start.new.presentation |
| 67fe0 | 73 20 77 68 65 6e 20 6e 6f 74 68 69 6e 67 20 69 73 20 67 6f 69 6e 67 20 74 6f 20 62 65 0a 20 20 | s.when.nothing.is.going.to.be... |
| 68000 | 20 20 3b 3b 20 70 72 69 6e 74 65 64 20 64 75 65 20 74 6f 20 2a 70 72 69 6e 74 2d 6c 69 6e 65 73 | ..;;.printed.due.to.*print-lines |
| 68020 | 2a 2e 0a 20 20 20 20 28 6c 65 74 20 28 28 70 69 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d | *......(let.((pid.(presentation- |
| 68040 | 72 65 63 6f 72 64 2d 69 64 20 72 65 63 6f 72 64 29 29 0a 09 20 20 28 74 61 72 67 65 74 20 28 70 | record-id.record))....(target.(p |
| 68060 | 72 65 73 65 6e 74 61 74 69 6f 6e 2d 72 65 63 6f 72 64 2d 74 61 72 67 65 74 20 72 65 63 6f 72 64 | resentation-record-target.record |
| 68080 | 29 29 29 0a 20 20 20 20 20 20 28 63 61 73 65 20 74 61 72 67 65 74 0a 09 28 74 0a 09 20 28 66 69 | ))).......(case.target..(t...(fi |
| 680a0 | 6e 69 73 68 2d 6f 75 74 70 75 74 20 73 74 72 65 61 6d 29 0a 09 20 28 73 65 6e 64 2d 74 6f 2d 65 | nish-output.stream)...(send-to-e |
| 680c0 | 6d 61 63 73 20 60 28 3a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 20 2c 70 69 64 20 | macs.`(:presentation-start.,pid. |
| 680e0 | 2c 74 61 72 67 65 74 29 29 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 70 72 65 73 65 6e 74 61 | ,target))))).....(setf.(presenta |
| 68100 | 74 69 6f 6e 2d 72 65 63 6f 72 64 2d 70 72 69 6e 74 65 64 2d 70 20 72 65 63 6f 72 64 29 20 74 29 | tion-record-printed-p.record).t) |
| 68120 | 29 29 0a 09 20 20 20 0a 28 64 65 66 75 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 20 | ))......(defun.presentation-end. |
| 68140 | 28 72 65 63 6f 72 64 20 73 74 72 65 61 6d 20 74 72 75 6e 63 61 74 65 70 29 0a 20 20 28 64 65 63 | (record.stream.truncatep)...(dec |
| 68160 | 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 74 72 75 6e 63 61 74 65 70 29 29 0a 20 20 3b 3b 20 41 6c | lare.(ignore.truncatep))...;;.Al |
| 68180 | 77 61 79 73 20 65 6e 64 20 6f 6c 64 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 74 68 61 74 20 | ways.end.old.presentations.that. |
| 681a0 | 77 65 72 65 20 73 74 61 72 74 65 64 2e 0a 20 20 28 77 68 65 6e 20 28 70 72 65 73 65 6e 74 61 74 | were.started....(when.(presentat |
| 681c0 | 69 6f 6e 2d 72 65 63 6f 72 64 2d 70 72 69 6e 74 65 64 2d 70 20 72 65 63 6f 72 64 29 0a 20 20 20 | ion-record-printed-p.record).... |
| 681e0 | 20 28 6c 65 74 20 28 28 70 69 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 72 65 63 6f 72 64 | .(let.((pid.(presentation-record |
| 68200 | 2d 69 64 20 72 65 63 6f 72 64 29 29 0a 09 20 20 28 74 61 72 67 65 74 20 28 70 72 65 73 65 6e 74 | -id.record))....(target.(present |
| 68220 | 61 74 69 6f 6e 2d 72 65 63 6f 72 64 2d 74 61 72 67 65 74 20 72 65 63 6f 72 64 29 29 29 0a 20 20 | ation-record-target.record)))... |
| 68240 | 20 20 20 20 28 63 61 73 65 20 74 61 72 67 65 74 0a 09 28 74 0a 09 20 28 66 69 6e 69 73 68 2d 6f | ....(case.target..(t...(finish-o |
| 68260 | 75 74 70 75 74 20 73 74 72 65 61 6d 29 0a 09 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 | utput.stream)...(send-to-emacs.` |
| 68280 | 28 3a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 20 2c 70 69 64 20 2c 74 61 72 67 65 74 29 | (:presentation-end.,pid.,target) |
| 682a0 | 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 73 65 6e 74 69 6e 67 2d 6f 62 6a 65 63 74 | ))))))..(defun.presenting-object |
| 682c0 | 2d 31 20 28 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 20 63 6f 6e 74 69 6e 75 65 29 0a 20 20 22 55 | -1.(object.stream.continue)..."U |
| 682e0 | 73 65 73 20 74 68 65 20 62 72 69 64 67 65 20 6d 65 63 68 61 6e 69 73 6d 20 77 69 74 68 20 74 77 | ses.the.bridge.mechanism.with.tw |
| 68300 | 6f 20 6d 65 73 73 61 67 65 73 20 3e 69 64 20 61 6e 64 20 3c 69 64 2e 20 54 68 65 20 66 69 72 73 | o.messages.>id.and.<id..The.firs |
| 68320 | 74 20 6f 6e 65 0a 73 61 79 73 20 74 68 61 74 20 49 20 61 6d 20 73 74 61 72 74 69 6e 67 20 74 6f | t.one.says.that.I.am.starting.to |
| 68340 | 20 70 72 69 6e 74 20 61 6e 20 6f 62 6a 65 63 74 20 77 69 74 68 20 74 68 69 73 20 69 64 2e 20 54 | .print.an.object.with.this.id..T |
| 68360 | 68 65 20 73 65 63 6f 6e 64 20 73 61 79 73 20 49 20 61 6d 20 66 69 6e 69 73 68 65 64 22 0a 20 20 | he.second.says.I.am.finished"... |
| 68380 | 3b 3b 20 74 68 69 73 20 64 65 63 6c 61 72 65 20 73 70 65 63 69 61 6c 20 69 73 20 74 6f 20 6c 65 | ;;.this.declare.special.is.to.le |
| 683a0 | 74 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6b 6e 6f 77 20 74 68 61 74 20 2a 72 65 63 6f 72 64 | t.the.compiler.know.that.*record |
| 683c0 | 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2a 20 77 69 6c 6c 20 65 76 65 6e 74 75 61 6c 6c 79 20 62 | -repl-results*.will.eventually.b |
| 683e0 | 65 0a 20 20 3b 3b 20 61 20 67 6c 6f 62 61 6c 20 73 70 65 63 69 61 6c 2c 20 65 76 65 6e 20 69 66 | e...;;.a.global.special,.even.if |
| 68400 | 20 69 74 20 69 73 6e 27 74 20 77 68 65 6e 20 74 68 69 73 20 66 69 6c 65 20 69 73 20 63 6f 6d 70 | .it.isn't.when.this.file.is.comp |
| 68420 | 69 6c 65 64 2f 6c 6f 61 64 65 64 2e 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 70 65 63 69 61 6c | iled/loaded....(declare.(special |
| 68440 | 20 2a 72 65 63 6f 72 64 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2a 29 29 0a 20 20 28 6c 65 74 20 | .*record-repl-results*))...(let. |
| 68460 | 28 28 73 6c 69 6d 65 2d 73 74 72 65 61 6d 2d 70 20 0a 09 20 28 61 6e 64 20 2a 72 65 63 6f 72 64 | ((slime-stream-p....(and.*record |
| 68480 | 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2a 20 28 73 6c 69 6d 65 2d 73 74 72 65 61 6d 2d 70 20 73 | -repl-results*.(slime-stream-p.s |
| 684a0 | 74 72 65 61 6d 29 29 29 29 0a 20 20 20 20 28 69 66 20 73 6c 69 6d 65 2d 73 74 72 65 61 6d 2d 70 | tream)))).....(if.slime-stream-p |
| 684c0 | 0a 09 28 6c 65 74 2a 20 28 28 70 69 64 20 28 73 77 61 6e 6b 3a 3a 73 61 76 65 2d 70 72 65 73 65 | ..(let*.((pid.(swank::save-prese |
| 684e0 | 6e 74 65 64 2d 6f 62 6a 65 63 74 20 6f 62 6a 65 63 74 29 29 0a 09 20 20 20 20 20 20 20 28 72 65 | nted-object.object)).........(re |
| 68500 | 63 6f 72 64 20 28 6d 61 6b 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 72 65 63 6f 72 64 20 3a | cord.(make-presentation-record.: |
| 68520 | 69 64 20 70 69 64 20 3a 70 72 69 6e 74 65 64 2d 70 20 6e 69 6c 0a 09 09 09 09 09 09 20 3a 74 61 | id.pid.:printed-p.nil........:ta |
| 68540 | 72 67 65 74 20 28 69 66 20 28 65 71 20 73 6c 69 6d 65 2d 73 74 72 65 61 6d 2d 70 20 3a 72 65 70 | rget.(if.(eq.slime-stream-p.:rep |
| 68560 | 6c 2d 72 65 73 75 6c 74 29 0a 09 09 09 09 09 09 09 20 20 20 20 20 3a 72 65 70 6c 2d 72 65 73 75 | l-result).............:repl-resu |
| 68580 | 6c 74 0a 09 09 09 09 09 09 09 20 20 20 20 20 6e 69 6c 29 29 29 29 0a 09 20 20 28 77 72 69 74 65 | lt.............nil))))....(write |
| 685a0 | 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 73 74 72 65 61 6d 20 23 27 70 72 65 73 65 6e 74 61 74 69 6f | -annotation.stream.#'presentatio |
| 685c0 | 6e 2d 73 74 61 72 74 20 72 65 63 6f 72 64 29 0a 09 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c | n-start.record)....(multiple-val |
| 685e0 | 75 65 2d 70 72 6f 67 31 0a 09 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6e 74 69 6e 75 | ue-prog1........(funcall.continu |
| 68600 | 65 29 0a 09 20 20 20 20 28 77 72 69 74 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 73 74 72 65 61 6d | e)......(write-annotation.stream |
| 68620 | 20 23 27 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 20 72 65 63 6f 72 64 29 29 29 0a 09 28 | .#'presentation-end.record)))..( |
| 68640 | 66 75 6e 63 61 6c 6c 20 63 6f 6e 74 69 6e 75 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 | funcall.continue))))..(defun.pre |
| 68660 | 73 65 6e 74 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2d 76 69 61 2d 70 72 65 73 65 6e 74 61 74 69 | sent-repl-results-via-presentati |
| 68680 | 6f 6e 2d 73 74 72 65 61 6d 73 20 28 76 61 6c 75 65 73 29 0a 20 20 3b 3b 20 4f 76 65 72 72 69 64 | on-streams.(values)...;;.Overrid |
| 686a0 | 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 69 6e 20 73 77 61 6e 6b 2e 6c 69 73 70 2c 20 73 6f 20 74 | e.a.function.in.swank.lisp,.so.t |
| 686c0 | 68 61 74 20 0a 20 20 3b 3b 20 6e 65 73 74 65 64 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 77 | hat....;;.nested.presentations.w |
| 686e0 | 6f 72 6b 20 69 6e 20 74 68 65 20 52 45 50 4c 20 72 65 73 75 6c 74 2e 0a 20 20 28 6c 65 74 20 28 | ork.in.the.REPL.result....(let.( |
| 68700 | 28 72 65 70 6c 2d 72 65 73 75 6c 74 73 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 72 65 70 6c 2d 72 | (repl-results.(connection.repl-r |
| 68720 | 65 73 75 6c 74 73 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 29 0a 20 20 20 | esults.*emacs-connection*))).... |
| 68740 | 20 28 66 6c 65 74 20 28 28 73 65 6e 64 20 28 76 61 6c 75 65 29 0a 09 20 20 20 20 20 28 70 72 65 | .(flet.((send.(value).......(pre |
| 68760 | 73 65 6e 74 69 6e 67 2d 6f 62 6a 65 63 74 20 76 61 6c 75 65 20 72 65 70 6c 2d 72 65 73 75 6c 74 | senting-object.value.repl-result |
| 68780 | 73 0a 09 20 20 20 20 20 20 20 28 70 72 69 6e 31 20 76 61 6c 75 65 20 72 65 70 6c 2d 72 65 73 75 | s.........(prin1.value.repl-resu |
| 687a0 | 6c 74 73 29 29 0a 09 20 20 20 20 20 28 74 65 72 70 72 69 20 72 65 70 6c 2d 72 65 73 75 6c 74 73 | lts)).......(terpri.repl-results |
| 687c0 | 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 76 61 6c 75 65 73 29 0a 09 20 20 28 | ))).......(if.(null.values)....( |
| 687e0 | 70 72 6f 67 6e 20 0a 09 20 20 20 20 28 70 72 69 6e 63 20 22 3b 20 4e 6f 20 76 61 6c 75 65 22 20 | progn.......(princ.";.No.value". |
| 68800 | 72 65 70 6c 2d 72 65 73 75 6c 74 73 29 0a 09 20 20 20 20 28 74 65 72 70 72 69 20 72 65 70 6c 2d | repl-results)......(terpri.repl- |
| 68820 | 72 65 73 75 6c 74 73 29 29 0a 09 20 20 28 6d 61 70 63 20 23 27 73 65 6e 64 20 76 61 6c 75 65 73 | results))....(mapc.#'send.values |
| 68840 | 29 29 29 0a 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 72 65 70 6c 2d 72 65 73 75 | ))).....(finish-output.repl-resu |
| 68860 | 6c 74 73 29 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | lts)))..;;;;;;;;;;;;;;;;;;;;;;;; |
| 68880 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 688a0 | 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 23 2b 6f 70 65 6e 6d 63 6c 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 | ;;;;;;;;..#+openmcl.(in-package. |
| 688c0 | 3a 63 63 6c 29 0a 0a 23 2b 6f 70 65 6e 6d 63 6c 0a 28 64 65 66 75 6e 20 6d 6f 6e 6b 65 79 2d 70 | :ccl)..#+openmcl.(defun.monkey-p |
| 688e0 | 61 74 63 68 2d 73 74 72 65 61 6d 2d 70 72 69 6e 74 69 6e 67 20 28 29 0a 20 20 28 6c 65 74 20 28 | atch-stream-printing.()...(let.( |
| 68900 | 28 2a 77 61 72 6e 2d 69 66 2d 72 65 64 65 66 69 6e 65 2d 6b 65 72 6e 65 6c 2a 20 6e 69 6c 29 0a | (*warn-if-redefine-kernel*.nil). |
| 68920 | 09 28 2a 77 61 72 6e 2d 69 66 2d 72 65 64 65 66 69 6e 65 2a 20 6e 69 6c 29 29 0a 20 20 20 20 28 | .(*warn-if-redefine*.nil)).....( |
| 68940 | 64 65 66 75 6e 20 25 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 20 28 | defun.%print-unreadable-object.( |
| 68960 | 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 20 74 79 70 65 20 69 64 20 74 68 75 6e 6b 29 0a 20 20 20 | object.stream.type.id.thunk).... |
| 68980 | 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 73 74 72 65 61 6d 29 20 28 73 65 74 71 20 73 74 | ...(cond.((null.stream).(setq.st |
| 689a0 | 72 65 61 6d 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 29 0a 09 20 20 20 20 28 28 | ream.*standard-output*))......(( |
| 689c0 | 65 71 20 73 74 72 65 61 6d 20 74 29 20 28 73 65 74 71 20 73 74 72 65 61 6d 20 2a 74 65 72 6d 69 | eq.stream.t).(setq.stream.*termi |
| 689e0 | 6e 61 6c 2d 69 6f 2a 29 29 29 0a 20 20 20 20 20 20 28 73 77 61 6e 6b 3a 3a 70 72 65 73 65 6e 74 | nal-io*))).......(swank::present |
| 68a00 | 69 6e 67 2d 6f 62 6a 65 63 74 20 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 0a 09 28 77 72 69 74 65 | ing-object.object.stream..(write |
| 68a20 | 2d 75 6e 72 65 61 64 61 62 6c 65 2d 73 74 61 72 74 20 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 29 | -unreadable-start.object.stream) |
| 68a40 | 0a 09 28 77 68 65 6e 20 74 79 70 65 0a 09 20 20 28 70 72 69 6e 63 20 28 74 79 70 65 2d 6f 66 20 | ..(when.type....(princ.(type-of. |
| 68a60 | 6f 62 6a 65 63 74 29 20 73 74 72 65 61 6d 29 0a 09 20 20 28 73 74 72 65 61 6d 2d 77 72 69 74 65 | object).stream)....(stream-write |
| 68a80 | 2d 63 68 61 72 20 73 74 72 65 61 6d 20 23 5c 73 70 61 63 65 29 29 0a 09 28 77 68 65 6e 20 74 68 | -char.stream.#\space))..(when.th |
| 68aa0 | 75 6e 6b 0a 09 20 20 28 66 75 6e 63 61 6c 6c 20 74 68 75 6e 6b 29 29 0a 09 28 69 66 20 69 64 0a | unk....(funcall.thunk))..(if.id. |
| 68ac0 | 09 20 20 20 20 28 25 77 72 69 74 65 2d 61 64 64 72 65 73 73 20 6f 62 6a 65 63 74 20 73 74 72 65 | .....(%write-address.object.stre |
| 68ae0 | 61 6d 20 23 5c 3e 29 0a 09 20 20 20 20 28 70 70 2d 65 6e 64 2d 62 6c 6f 63 6b 20 73 74 72 65 61 | am.#\>)......(pp-end-block.strea |
| 68b00 | 6d 20 22 3e 22 29 29 0a 09 6e 69 6c 29 29 0a 20 20 20 20 28 64 65 66 6d 65 74 68 6f 64 20 70 72 | m.">"))..nil)).....(defmethod.pr |
| 68b20 | 69 6e 74 2d 6f 62 6a 65 63 74 20 3a 61 72 6f 75 6e 64 20 28 28 70 61 74 68 6e 61 6d 65 20 70 61 | int-object.:around.((pathname.pa |
| 68b40 | 74 68 6e 61 6d 65 29 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 73 77 61 6e 6b 3a 3a 70 72 | thname).stream).......(swank::pr |
| 68b60 | 65 73 65 6e 74 69 6e 67 2d 6f 62 6a 65 63 74 2d 69 66 0a 09 20 20 28 73 77 61 6e 6b 3a 3a 63 61 | esenting-object-if....(swank::ca |
| 68b80 | 6e 2d 70 72 65 73 65 6e 74 2d 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 73 20 73 74 72 65 61 | n-present-readable-objects.strea |
| 68ba0 | 6d 29 0a 09 20 20 70 61 74 68 6e 61 6d 65 20 73 74 72 65 61 6d 20 28 63 61 6c 6c 2d 6e 65 78 74 | m)....pathname.stream.(call-next |
| 68bc0 | 2d 6d 65 74 68 6f 64 29 29 29 29 0a 20 20 28 63 63 6c 3a 3a 64 65 66 2d 6c 6f 61 64 2d 70 6f 69 | -method))))...(ccl::def-load-poi |
| 68be0 | 6e 74 65 72 73 20 63 6c 65 61 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 28 29 0a 20 20 20 | nters.clear-presentations.().... |
| 68c00 | 20 28 73 77 61 6e 6b 3a 3a 63 6c 65 61 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 61 62 6c | .(swank::clear-presentation-tabl |
| 68c20 | 65 73 29 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 23 2b 63 6d | es)))..(in-package.:swank)..#+cm |
| 68c40 | 75 0a 28 70 72 6f 67 6e 0a 20 20 28 66 77 72 61 70 70 65 72 73 3a 64 65 66 69 6e 65 2d 66 77 72 | u.(progn...(fwrappers:define-fwr |
| 68c60 | 61 70 70 65 72 20 70 72 65 73 65 6e 74 69 6e 67 2d 75 6e 72 65 61 64 61 62 6c 65 2d 77 72 61 70 | apper.presenting-unreadable-wrap |
| 68c80 | 70 65 72 20 28 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 20 74 79 70 65 20 69 64 65 6e 74 69 74 79 | per.(object.stream.type.identity |
| 68ca0 | 20 62 6f 64 79 29 0a 20 20 20 20 28 70 72 65 73 65 6e 74 69 6e 67 2d 6f 62 6a 65 63 74 20 6f 62 | .body).....(presenting-object.ob |
| 68cc0 | 6a 65 63 74 20 73 74 72 65 61 6d 0a 20 20 20 20 20 20 28 66 77 72 61 70 70 65 72 73 3a 63 61 6c | ject.stream.......(fwrappers:cal |
| 68ce0 | 6c 2d 6e 65 78 74 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 20 20 28 66 77 72 61 70 70 65 72 73 | l-next-function)))....(fwrappers |
| 68d00 | 3a 64 65 66 69 6e 65 2d 66 77 72 61 70 70 65 72 20 70 72 65 73 65 6e 74 69 6e 67 2d 70 61 74 68 | :define-fwrapper.presenting-path |
| 68d20 | 6e 61 6d 65 2d 77 72 61 70 70 65 72 20 28 70 61 74 68 6e 61 6d 65 20 73 74 72 65 61 6d 20 64 65 | name-wrapper.(pathname.stream.de |
| 68d40 | 70 74 68 29 0a 20 20 20 20 28 70 72 65 73 65 6e 74 69 6e 67 2d 6f 62 6a 65 63 74 2d 69 66 20 28 | pth).....(presenting-object-if.( |
| 68d60 | 63 61 6e 2d 70 72 65 73 65 6e 74 2d 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 73 20 73 74 72 | can-present-readable-objects.str |
| 68d80 | 65 61 6d 29 20 70 61 74 68 6e 61 6d 65 20 73 74 72 65 61 6d 0a 20 20 20 20 20 20 28 66 77 72 61 | eam).pathname.stream.......(fwra |
| 68da0 | 70 70 65 72 73 3a 63 61 6c 6c 2d 6e 65 78 74 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 20 20 28 | ppers:call-next-function)))....( |
| 68dc0 | 64 65 66 75 6e 20 6d 6f 6e 6b 65 79 2d 70 61 74 63 68 2d 73 74 72 65 61 6d 2d 70 72 69 6e 74 69 | defun.monkey-patch-stream-printi |
| 68de0 | 6e 67 20 28 29 0a 20 20 20 20 28 66 77 72 61 70 70 65 72 73 3a 3a 66 77 72 61 70 20 27 6c 69 73 | ng.().....(fwrappers::fwrap.'lis |
| 68e00 | 70 3a 3a 25 70 72 69 6e 74 2d 70 61 74 68 6e 61 6d 65 20 20 23 27 70 72 65 73 65 6e 74 69 6e 67 | p::%print-pathname..#'presenting |
| 68e20 | 2d 70 61 74 68 6e 61 6d 65 2d 77 72 61 70 70 65 72 29 0a 20 20 20 20 28 66 77 72 61 70 70 65 72 | -pathname-wrapper).....(fwrapper |
| 68e40 | 73 3a 3a 66 77 72 61 70 20 27 6c 69 73 70 3a 3a 25 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c | s::fwrap.'lisp::%print-unreadabl |
| 68e60 | 65 2d 6f 62 6a 65 63 74 20 20 23 27 70 72 65 73 65 6e 74 69 6e 67 2d 75 6e 72 65 61 64 61 62 6c | e-object..#'presenting-unreadabl |
| 68e80 | 65 2d 77 72 61 70 70 65 72 29 29 29 0a 0a 23 2b 73 62 63 6c 0a 28 70 72 6f 67 6e 0a 20 20 28 64 | e-wrapper)))..#+sbcl.(progn...(d |
| 68ea0 | 65 66 76 61 72 20 2a 73 61 76 65 64 2d 25 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f | efvar.*saved-%print-unreadable-o |
| 68ec0 | 62 6a 65 63 74 2a 0a 20 20 20 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 27 73 62 2d 69 6d 70 6c | bject*.....(fdefinition.'sb-impl |
| 68ee0 | 3a 3a 25 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 29 29 0a 0a 20 20 | ::%print-unreadable-object)).... |
| 68f00 | 28 64 65 66 75 6e 20 6d 6f 6e 6b 65 79 2d 70 61 74 63 68 2d 73 74 72 65 61 6d 2d 70 72 69 6e 74 | (defun.monkey-patch-stream-print |
| 68f20 | 69 6e 67 20 28 29 0a 20 20 20 20 28 73 62 2d 65 78 74 3a 77 69 74 68 6f 75 74 2d 70 61 63 6b 61 | ing.().....(sb-ext:without-packa |
| 68f40 | 67 65 2d 6c 6f 63 6b 73 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 66 64 65 66 69 6e | ge-locks.......(when.(eq.(fdefin |
| 68f60 | 69 74 69 6f 6e 20 27 73 62 2d 69 6d 70 6c 3a 3a 25 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c | ition.'sb-impl::%print-unreadabl |
| 68f80 | 65 2d 6f 62 6a 65 63 74 29 0a 09 09 2a 73 61 76 65 64 2d 25 70 72 69 6e 74 2d 75 6e 72 65 61 64 | e-object)...*saved-%print-unread |
| 68fa0 | 61 62 6c 65 2d 6f 62 6a 65 63 74 2a 29 0a 09 28 73 65 74 66 20 28 66 64 65 66 69 6e 69 74 69 6f | able-object*)..(setf.(fdefinitio |
| 68fc0 | 6e 20 27 73 62 2d 69 6d 70 6c 3a 3a 25 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 | n.'sb-impl::%print-unreadable-ob |
| 68fe0 | 6a 65 63 74 29 0a 09 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6f 62 6a 65 63 74 20 73 74 72 | ject)........(lambda.(object.str |
| 69000 | 65 61 6d 20 26 72 65 73 74 20 61 72 67 73 29 0a 09 09 28 70 72 65 73 65 6e 74 69 6e 67 2d 6f 62 | eam.&rest.args)...(presenting-ob |
| 69020 | 6a 65 63 74 20 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ject.object.stream.............. |
| 69040 | 20 20 20 20 20 28 61 70 70 6c 79 20 2a 73 61 76 65 64 2d 25 70 72 69 6e 74 2d 75 6e 72 65 61 64 | .....(apply.*saved-%print-unread |
| 69060 | 61 62 6c 65 2d 6f 62 6a 65 63 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | able-object*.................... |
| 69080 | 20 20 20 20 20 20 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 20 61 72 67 73 29 29 29 29 29 0a 20 20 | ......object.stream.args)))))... |
| 690a0 | 20 20 20 20 28 64 65 66 6d 65 74 68 6f 64 20 70 72 69 6e 74 2d 6f 62 6a 65 63 74 20 3a 61 72 6f | ....(defmethod.print-object.:aro |
| 690c0 | 75 6e 64 20 28 28 6f 62 6a 65 63 74 20 70 61 74 68 6e 61 6d 65 29 20 73 74 72 65 61 6d 29 0a 09 | und.((object.pathname).stream).. |
| 690e0 | 28 70 72 65 73 65 6e 74 69 6e 67 2d 6f 62 6a 65 63 74 20 6f 62 6a 65 63 74 20 73 74 72 65 61 6d | (presenting-object.object.stream |
| 69100 | 0a 09 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 29 29 29 29 0a 0a 23 2b 61 | ....(call-next-method))))))..#+a |
| 69120 | 6c 6c 65 67 72 6f 0a 28 70 72 6f 67 6e 0a 20 20 28 65 78 63 6c 3a 64 65 66 2d 66 77 72 61 70 70 | llegro.(progn...(excl:def-fwrapp |
| 69140 | 65 72 20 70 72 65 73 65 6e 74 69 6e 67 2d 75 6e 72 65 61 64 61 62 6c 65 2d 77 72 61 70 70 65 72 | er.presenting-unreadable-wrapper |
| 69160 | 20 28 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 20 74 79 70 65 20 69 64 65 6e 74 69 74 79 20 63 6f | .(object.stream.type.identity.co |
| 69180 | 6e 74 69 6e 75 61 74 69 6f 6e 29 0a 20 20 20 20 28 73 77 61 6e 6b 3a 3a 70 72 65 73 65 6e 74 69 | ntinuation).....(swank::presenti |
| 691a0 | 6e 67 2d 6f 62 6a 65 63 74 20 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 20 28 65 78 63 6c 3a 63 61 | ng-object.object.stream.(excl:ca |
| 691c0 | 6c 6c 2d 6e 65 78 74 2d 66 77 72 61 70 70 65 72 29 29 29 0a 20 20 28 65 78 63 6c 3a 64 65 66 2d | ll-next-fwrapper)))...(excl:def- |
| 691e0 | 66 77 72 61 70 70 65 72 20 70 72 65 73 65 6e 74 69 6e 67 2d 70 61 74 68 6e 61 6d 65 2d 77 72 61 | fwrapper.presenting-pathname-wra |
| 69200 | 70 70 65 72 20 28 70 61 74 68 6e 61 6d 65 20 73 74 72 65 61 6d 20 64 65 70 74 68 29 0a 20 20 20 | pper.(pathname.stream.depth).... |
| 69220 | 20 28 70 72 65 73 65 6e 74 69 6e 67 2d 6f 62 6a 65 63 74 2d 69 66 20 28 63 61 6e 2d 70 72 65 73 | .(presenting-object-if.(can-pres |
| 69240 | 65 6e 74 2d 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 73 20 73 74 72 65 61 6d 29 20 70 61 74 | ent-readable-objects.stream).pat |
| 69260 | 68 6e 61 6d 65 20 73 74 72 65 61 6d 0a 20 20 20 20 20 20 28 65 78 63 6c 3a 63 61 6c 6c 2d 6e 65 | hname.stream.......(excl:call-ne |
| 69280 | 78 74 2d 66 77 72 61 70 70 65 72 29 29 29 0a 20 20 28 64 65 66 75 6e 20 6d 6f 6e 6b 65 79 2d 70 | xt-fwrapper)))...(defun.monkey-p |
| 692a0 | 61 74 63 68 2d 73 74 72 65 61 6d 2d 70 72 69 6e 74 69 6e 67 20 28 29 0a 20 20 20 20 28 65 78 63 | atch-stream-printing.().....(exc |
| 692c0 | 6c 3a 66 77 72 61 70 20 27 65 78 63 6c 3a 3a 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d | l:fwrap.'excl::print-unreadable- |
| 692e0 | 6f 62 6a 65 63 74 2d 31 0a 09 09 27 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 70 72 65 | object-1...'print-unreadable-pre |
| 69300 | 73 65 6e 74 20 27 70 72 65 73 65 6e 74 69 6e 67 2d 75 6e 72 65 61 64 61 62 6c 65 2d 77 72 61 70 | sent.'presenting-unreadable-wrap |
| 69320 | 70 65 72 29 0a 20 20 20 20 28 65 78 63 6c 3a 66 77 72 61 70 20 27 65 78 63 6c 3a 3a 70 61 74 68 | per).....(excl:fwrap.'excl::path |
| 69340 | 6e 61 6d 65 2d 70 72 69 6e 74 65 72 0a 09 09 27 70 72 69 6e 74 2d 70 61 74 68 6e 61 6d 65 2d 70 | name-printer...'print-pathname-p |
| 69360 | 72 65 73 65 6e 74 20 27 70 72 65 73 65 6e 74 69 6e 67 2d 70 61 74 68 6e 61 6d 65 2d 77 72 61 70 | resent.'presenting-pathname-wrap |
| 69380 | 70 65 72 29 29 29 0a 0a 23 2d 28 6f 72 20 61 6c 6c 65 67 72 6f 20 73 62 63 6c 20 63 6d 75 20 6f | per)))..#-(or.allegro.sbcl.cmu.o |
| 693a0 | 70 65 6e 6d 63 6c 29 0a 28 64 65 66 75 6e 20 6d 6f 6e 6b 65 79 2d 70 61 74 63 68 2d 73 74 72 65 | penmcl).(defun.monkey-patch-stre |
| 693c0 | 61 6d 2d 70 72 69 6e 74 69 6e 67 20 28 29 0a 20 20 28 76 61 6c 75 65 73 29 29 0a 0a 3b 3b 20 48 | am-printing.()...(values))..;;.H |
| 693e0 | 6f 6f 6b 20 69 6e 74 6f 20 53 57 41 4e 4b 2e 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e | ook.into.SWANK...(defslimefun.in |
| 69400 | 69 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 20 28 29 0a 20 20 28 6d 6f | it-presentation-streams.()...(mo |
| 69420 | 6e 6b 65 79 2d 70 61 74 63 68 2d 73 74 72 65 61 6d 2d 70 72 69 6e 74 69 6e 67 29 0a 20 20 3b 3b | nkey-patch-stream-printing)...;; |
| 69440 | 20 46 49 58 4d 45 3a 20 69 6d 70 6f 72 74 2f 75 73 65 20 73 77 61 6e 6b 2d 72 65 70 6c 20 74 6f | .FIXME:.import/use.swank-repl.to |
| 69460 | 20 61 76 6f 69 64 20 70 61 63 6b 61 67 65 20 71 75 61 6c 69 66 69 65 72 2e 0a 20 20 28 73 65 74 | .avoid.package.qualifier....(set |
| 69480 | 71 20 73 77 61 6e 6b 2d 72 65 70 6c 3a 2a 73 65 6e 64 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2d | q.swank-repl:*send-repl-results- |
| 694a0 | 66 75 6e 63 74 69 6f 6e 2a 0a 09 27 70 72 65 73 65 6e 74 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 | function*..'present-repl-results |
| 694c0 | 2d 76 69 61 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 29 29 0a 0a 28 70 72 | -via-presentation-streams))..(pr |
| 694e0 | 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d | ovide.:swank-presentation-stream |
| 69500 | 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | s).............................. |
| 69520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 69540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 69560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 69580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 695a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 695c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 695e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 69600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 66 61 6e 63 79 2d 74 | slime-2.31/contrib/slime-fancy-t |
| 69620 | 72 61 63 65 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | race.el......................... |
| 69640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 69660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 69680 | 30 30 30 35 37 35 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 30 35 00 20 30 00 00 00 | 0005752.00000000000.016505..0... |
| 696a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 696c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 696e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 69700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 69720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 69740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 69760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 69780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 697a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 697c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 697e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 69800 | 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6c | (eval-and-compile...(require.'sl |
| 69820 | 69 6d 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 | ime))..(define-slime-contrib.sli |
| 69840 | 6d 65 2d 66 61 6e 63 79 2d 74 72 61 63 65 0a 20 20 22 45 6e 68 61 6e 63 65 64 20 76 65 72 73 69 | me-fancy-trace..."Enhanced.versi |
| 69860 | 6f 6e 20 6f 66 20 73 6c 69 6d 65 2d 74 72 61 63 65 20 63 61 70 61 62 6c 65 20 6f 66 20 74 72 61 | on.of.slime-trace.capable.of.tra |
| 69880 | 63 69 6e 67 20 6c 6f 63 61 6c 20 66 75 6e 63 74 69 6f 6e 73 2c 0a 6d 65 74 68 6f 64 73 2c 20 73 | cing.local.functions,.methods,.s |
| 698a0 | 65 74 66 20 66 75 6e 63 74 69 6f 6e 73 2c 20 61 6e 64 20 6f 74 68 65 72 20 65 6e 74 69 74 69 65 | etf.functions,.and.other.entitie |
| 698c0 | 73 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 73 70 65 63 69 66 69 63 0a 73 77 61 6e 6b 3a 73 77 | s.supported.by.specific.swank:sw |
| 698e0 | 61 6e 6b 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 62 61 63 6b 65 6e 64 73 2e 20 49 6e 76 6f 6b | ank-toggle-trace.backends..Invok |
| 69900 | 65 20 76 69 61 20 43 2d 75 20 43 2d 74 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 4d 61 74 | e.via.C-u.C-t."...(:authors."Mat |
| 69920 | 74 68 69 61 73 20 4b 6f 65 70 70 65 20 20 3c 6d 6b 6f 65 70 70 65 40 6d 61 69 6c 2e 6d 61 74 68 | thias.Koeppe..<mkoeppe@mail.math |
| 69940 | 2e 75 6e 69 2d 6d 61 67 64 65 62 75 72 67 2e 64 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .uni-magdeburg.de>"............. |
| 69960 | 22 54 6f 62 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 | "Tobias.C..Rittweiler.<tcr@freeb |
| 69980 | 69 74 73 2e 64 65 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 | its.de>")...(:license."GPL")...( |
| 699a0 | 3a 73 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 6c 69 6d 65 2d 70 61 72 73 65 29 | :slime-dependencies.slime-parse) |
| 699c0 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 71 75 65 72 79 20 28 73 70 65 | )..(defun.slime-trace-query.(spe |
| 699e0 | 63 29 0a 20 20 22 41 73 6b 20 74 68 65 20 75 73 65 72 20 77 68 69 63 68 20 66 75 6e 63 74 69 6f | c)..."Ask.the.user.which.functio |
| 69a00 | 6e 20 74 6f 20 74 72 61 63 65 3b 20 53 50 45 43 20 69 73 20 74 68 65 20 64 65 66 61 75 6c 74 2e | n.to.trace;.SPEC.is.the.default. |
| 69a20 | 0a 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 63 6f 6e | .The.result.is.a.string."...(con |
| 69a40 | 64 20 28 28 6e 75 6c 6c 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 | d.((null.spec)..........(slime-r |
| 69a60 | 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 28 55 6e 29 74 72 61 63 65 3a 20 | ead-from-minibuffer."(Un)trace:. |
| 69a80 | 22 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 70 20 73 70 65 63 29 0a 20 20 20 20 | ")).........((stringp.spec)..... |
| 69aa0 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 | .....(slime-read-from-minibuffer |
| 69ac0 | 20 22 28 55 6e 29 74 72 61 63 65 3a 20 22 20 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 28 28 | ."(Un)trace:.".spec)).........(( |
| 69ae0 | 73 79 6d 62 6f 6c 70 20 73 70 65 63 29 20 20 20 20 3b 20 60 73 6c 69 6d 65 2d 65 78 74 72 61 63 | symbolp.spec)....;.`slime-extrac |
| 69b00 | 74 2d 63 6f 6e 74 65 78 74 27 20 63 61 6e 20 72 65 74 75 72 6e 20 73 79 6d 62 6f 6c 73 2e 0a 20 | t-context'.can.return.symbols... |
| 69b20 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 | ........(slime-read-from-minibuf |
| 69b40 | 66 65 72 20 22 28 55 6e 29 74 72 61 63 65 3a 20 22 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 | fer."(Un)trace:.".(prin1-to-stri |
| 69b60 | 6e 67 20 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 | ng.spec))).........(t..........( |
| 69b80 | 73 6c 69 6d 65 2d 64 63 61 73 65 20 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 73 65 | slime-dcase.spec............((se |
| 69ba0 | 74 66 20 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 | tf.n).............(slime-read-fr |
| 69bc0 | 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 28 55 6e 29 74 72 61 63 65 3a 20 22 20 28 70 72 69 | om-minibuffer."(Un)trace:.".(pri |
| 69be0 | 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | n1-to-string.spec)))............ |
| 69c00 | 28 28 3a 64 65 66 75 6e 20 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 | ((:defun.n).............(slime-r |
| 69c20 | 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 28 55 6e 29 74 72 61 63 65 3a 20 | ead-from-minibuffer."(Un)trace:. |
| 69c40 | 22 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 6e 29 29 29 0a 20 20 20 20 20 20 20 20 | ".(prin1-to-string.n)))......... |
| 69c60 | 20 20 20 28 28 3a 64 65 66 67 65 6e 65 72 69 63 20 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...((:defgeneric.n)............. |
| 69c80 | 28 6c 65 74 2a 20 28 28 6e 61 6d 65 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 6e 29 | (let*.((name.(prin1-to-string.n) |
| 69ca0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 73 77 65 72 20 28 73 6c | )....................(answer.(sl |
| 69cc0 | 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 28 55 6e 29 74 72 | ime-read-from-minibuffer."(Un)tr |
| 69ce0 | 61 63 65 3a 20 22 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | ace:.".name)))...............(co |
| 69d00 | 6e 64 20 28 28 61 6e 64 20 28 73 74 72 69 6e 67 3d 20 6e 61 6d 65 20 61 6e 73 77 65 72 29 0a 20 | nd.((and.(string=.name.answer).. |
| 69d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 2d 6f 72 2d 6e | .........................(y-or-n |
| 69d40 | 2d 70 20 28 63 6f 6e 63 61 74 20 22 28 55 6e 29 74 72 61 63 65 20 61 6c 73 6f 20 61 6c 6c 20 22 | -p.(concat."(Un)trace.also.all." |
| 69d60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 69d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6d 65 74 68 6f 64 73 20 69 6d 70 6c 65 6d 65 6e 74 69 | ............."methods.implementi |
| 69da0 | 6e 67 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng."............................ |
| 69dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 20 22 3f 20 22 29 29 29 0a 20 20 | .................name."?.")))... |
| 69de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 | ...................(prin1-to-str |
| 69e00 | 69 6e 67 20 60 28 3a 64 65 66 67 65 6e 65 72 69 63 20 2c 6e 29 29 29 0a 20 20 20 20 20 20 20 20 | ing.`(:defgeneric.,n)))......... |
| 69e20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............(t.................. |
| 69e40 | 20 20 20 20 61 6e 73 77 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 66 | ....answer))))............((:def |
| 69e60 | 6d 65 74 68 6f 64 20 26 72 65 73 74 20 5f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | method.&rest._).............(sli |
| 69e80 | 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 28 55 6e 29 74 72 61 | me-read-from-minibuffer."(Un)tra |
| 69ea0 | 63 65 3a 20 22 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 73 70 65 63 29 29 29 0a 20 | ce:.".(prin1-to-string.spec))).. |
| 69ec0 | 20 20 20 20 20 20 20 20 20 20 28 28 3a 63 61 6c 6c 20 63 61 6c 6c 65 72 20 63 61 6c 6c 65 65 29 | ..........((:call.caller.callee) |
| 69ee0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 61 6c 6c 65 72 73 74 72 20 28 | .............(let*.((callerstr.( |
| 69f00 | 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 63 61 6c 6c 65 72 29 29 0a 20 20 20 20 20 20 20 | prin1-to-string.caller))........ |
| 69f20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 65 65 73 74 72 20 28 70 72 69 6e 31 2d 74 6f | ............(calleestr.(prin1-to |
| 69f40 | 2d 73 74 72 69 6e 67 20 63 61 6c 6c 65 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -string.callee))................ |
| 69f60 | 20 20 20 20 28 61 6e 73 77 65 72 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e | ....(answer.(slime-read-from-min |
| 69f80 | 69 62 75 66 66 65 72 20 22 28 55 6e 29 74 72 61 63 65 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 | ibuffer."(Un)trace:."........... |
| 69fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 69fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 65 65 73 74 72 29 29 29 0a 20 20 20 20 20 20 | .............calleestr)))....... |
| 69fe0 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 73 74 72 69 6e 67 3d 20 63 61 6c | ........(cond.((and.(string=.cal |
| 6a000 | 6c 65 65 73 74 72 20 61 6e 73 77 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | leestr.answer).................. |
| 6a020 | 20 20 20 20 20 20 20 20 20 28 79 2d 6f 72 2d 6e 2d 70 20 28 63 6f 6e 63 61 74 20 22 28 55 6e 29 | .........(y-or-n-p.(concat."(Un) |
| 6a040 | 74 72 61 63 65 20 6f 6e 6c 79 20 77 68 65 6e 20 22 20 63 61 6c 6c 65 65 73 74 72 0a 20 20 20 20 | trace.only.when.".calleestr..... |
| 6a060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6a080 | 20 20 20 20 20 20 20 20 22 20 69 73 20 63 61 6c 6c 65 64 20 62 79 20 22 20 63 61 6c 6c 65 72 73 | ........".is.called.by.".callers |
| 6a0a0 | 74 72 20 22 3f 20 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tr."?.")))...................... |
| 6a0c0 | 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 60 28 3a 63 61 6c 6c 20 2c 63 61 6c 6c 65 72 | (prin1-to-string.`(:call.,caller |
| 6a0e0 | 20 2c 63 61 6c 6c 65 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .,callee)))..................... |
| 6a100 | 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 73 77 65 72 29 29 | (t......................answer)) |
| 6a120 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 28 3a 6c 61 62 65 6c 73 20 3a 66 6c 65 74 29 20 | ))............(((:labels.:flet). |
| 6a140 | 26 72 65 73 74 20 5f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 | &rest._).............(slime-read |
| 6a160 | 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 28 55 6e 29 74 72 61 63 65 20 6c 6f 63 61 | -from-minibuffer."(Un)trace.loca |
| 6a180 | 6c 20 66 75 6e 63 74 69 6f 6e 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l.function:."................... |
| 6a1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 2d 74 6f 2d | ......................(prin1-to- |
| 6a1c0 | 73 74 72 69 6e 67 20 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 65 72 | string.spec)))............(t.(er |
| 6a1e0 | 72 6f 72 20 22 44 6f 6e 27 74 20 6b 6e 6f 77 20 68 6f 77 20 74 6f 20 74 72 61 63 65 20 74 68 65 | ror."Don't.know.how.to.trace.the |
| 6a200 | 20 73 70 65 63 20 25 53 22 20 73 70 65 63 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | .spec.%S".spec))))))..(defun.sli |
| 6a220 | 6d 65 2d 74 6f 67 67 6c 65 2d 66 61 6e 63 79 2d 74 72 61 63 65 20 28 26 6f 70 74 69 6f 6e 61 6c | me-toggle-fancy-trace.(&optional |
| 6a240 | 20 75 73 69 6e 67 2d 63 6f 6e 74 65 78 74 2d 70 29 0a 20 20 22 54 6f 67 67 6c 65 20 74 72 61 63 | .using-context-p)..."Toggle.trac |
| 6a260 | 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 6c 65 74 2a 20 | e."...(interactive."P")...(let*. |
| 6a280 | 28 28 73 70 65 63 20 28 69 66 20 75 73 69 6e 67 2d 63 6f 6e 74 65 78 74 2d 70 0a 20 20 20 20 20 | ((spec.(if.using-context-p...... |
| 6a2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 78 74 72 61 63 74 2d 63 6f 6e | ..............(slime-extract-con |
| 6a2c0 | 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | text)....................(slime- |
| 6a2e0 | 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 70 65 | symbol-at-point)))..........(spe |
| 6a300 | 63 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 71 75 65 72 79 20 73 70 65 63 29 29 29 0a 20 20 20 | c.(slime-trace-query.spec))).... |
| 6a320 | 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 | .(message."%s".(slime-eval.`(swa |
| 6a340 | 6e 6b 3a 73 77 61 6e 6b 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 2c 73 70 65 63 29 29 29 29 29 | nk:swank-toggle-trace.,spec))))) |
| 6a360 | 0a 0a 3b 3b 20 6f 76 65 72 72 69 64 65 20 73 6c 69 6d 65 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 | ..;;.override.slime-toggle-trace |
| 6a380 | 2d 66 64 65 66 69 6e 69 74 69 6f 6e 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 70 | -fdefinition.(define-key.slime-p |
| 6a3a0 | 72 65 66 69 78 2d 6d 61 70 20 22 5c 43 2d 74 22 20 27 73 6c 69 6d 65 2d 74 6f 67 67 6c 65 2d 66 | refix-map."\C-t".'slime-toggle-f |
| 6a3c0 | 61 6e 63 79 2d 74 72 61 63 65 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 66 61 6e | ancy-trace)..(provide.'slime-fan |
| 6a3e0 | 63 79 2d 74 72 61 63 65 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | cy-trace)....................... |
| 6a400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 4d 61 6b 65 66 69 6c 65 00 00 00 00 00 | slime-2.31/contrib/Makefile..... |
| 6a420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6a440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6a460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 6a480 | 30 30 31 30 30 37 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 33 31 32 00 20 30 00 00 00 | 0010075.00000000000.014312..0... |
| 6a4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6a4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6a4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6a500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 6a520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 6a540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6a560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6a580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6a5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6a5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6a5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6a600 | 23 23 23 20 4d 61 6b 65 66 69 6c 65 20 66 6f 72 20 63 6f 6e 74 72 69 62 73 0a 23 0a 23 20 54 68 | ###.Makefile.for.contribs.#.#.Th |
| 6a620 | 69 73 20 66 69 6c 65 20 69 73 20 69 6e 20 74 68 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2e | is.file.is.in.the.public.domain. |
| 6a640 | 0a 0a 45 4d 41 43 53 3d 65 6d 61 63 73 0a 4c 49 53 50 3d 73 62 63 6c 0a 0a 4c 4f 41 44 5f 50 41 | ..EMACS=emacs.LISP=sbcl..LOAD_PA |
| 6a660 | 54 48 3d 2d 4c 20 2e 20 2d 4c 20 2e 2e 0a 43 4f 4e 54 52 49 42 53 20 3d 20 24 28 70 61 74 73 75 | TH=-L...-L....CONTRIBS.=.$(patsu |
| 6a680 | 62 73 74 20 73 6c 69 6d 65 2d 25 2e 65 6c 2c 25 2c 24 28 77 69 6c 64 63 61 72 64 20 73 6c 69 6d | bst.slime-%.el,%,$(wildcard.slim |
| 6a6a0 | 65 2d 2a 2e 65 6c 29 29 0a 43 4f 4e 54 52 49 42 5f 54 45 53 54 53 20 3d 20 24 28 70 61 74 73 75 | e-*.el)).CONTRIB_TESTS.=.$(patsu |
| 6a6c0 | 62 73 74 20 74 65 73 74 2f 73 6c 69 6d 65 2d 25 2d 74 65 73 74 73 2e 65 6c 2c 25 2c 24 28 77 69 | bst.test/slime-%-tests.el,%,$(wi |
| 6a6e0 | 6c 64 63 61 72 64 20 74 65 73 74 2f 73 6c 69 6d 65 2d 2a 2e 65 6c 29 29 0a 53 4c 49 4d 45 5f 56 | ldcard.test/slime-*.el)).SLIME_V |
| 6a700 | 45 52 53 49 4f 4e 3d 24 28 73 68 65 6c 6c 20 67 72 65 70 20 22 56 65 72 73 69 6f 6e 3a 22 20 2e | ERSION=$(shell.grep."Version:".. |
| 6a720 | 2e 2f 73 6c 69 6d 65 2e 65 6c 20 7c 20 67 72 65 70 20 2d 45 20 2d 6f 20 22 5b 30 2d 39 2e 5d 2b | ./slime.el.|.grep.-E.-o."[0-9.]+ |
| 6a740 | 24 24 22 29 0a 0a 45 4c 46 49 4c 45 53 20 3a 3d 20 24 28 73 68 65 6c 6c 20 66 69 6e 64 20 2e 20 | $$")..ELFILES.:=.$(shell.find... |
| 6a760 | 2d 74 79 70 65 20 66 20 2d 69 6e 61 6d 65 20 22 2a 2e 65 6c 22 29 0a 45 4c 43 46 49 4c 45 53 20 | -type.f.-iname."*.el").ELCFILES. |
| 6a780 | 3a 3d 20 24 28 70 61 74 73 75 62 73 74 20 25 2e 65 6c 2c 25 2e 65 6c 63 2c 24 28 45 4c 46 49 4c | :=.$(patsubst.%.el,%.elc,$(ELFIL |
| 6a7a0 | 45 53 29 29 0a 0a 25 2e 65 6c 63 3a 20 25 2e 65 6c 0a 09 24 28 45 4d 41 43 53 29 20 2d 51 20 24 | ES))..%.elc:.%.el..$(EMACS).-Q.$ |
| 6a7c0 | 28 4c 4f 41 44 5f 50 41 54 48 29 20 2d 2d 62 61 74 63 68 20 2d 66 20 62 61 74 63 68 2d 62 79 74 | (LOAD_PATH).--batch.-f.batch-byt |
| 6a7e0 | 65 2d 63 6f 6d 70 69 6c 65 20 24 3c 0a 0a 63 6f 6d 70 69 6c 65 3a 20 24 28 45 4c 43 46 49 4c 45 | e-compile.$<..compile:.$(ELCFILE |
| 6a800 | 53 29 0a 09 24 28 45 4d 41 43 53 29 20 2d 51 20 2d 2d 62 61 74 63 68 20 24 28 4c 4f 41 44 5f 50 | S)..$(EMACS).-Q.--batch.$(LOAD_P |
| 6a820 | 41 54 48 29 20 5c 0a 09 20 20 20 20 20 20 20 20 2d 2d 65 76 61 6c 20 22 28 62 61 74 63 68 2d 62 | ATH).\..........--eval."(batch-b |
| 6a840 | 79 74 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 20 30 29 22 20 2e 0a 0a 23 | yte-recompile-directory.0)"....# |
| 6a860 | 20 45 4c 50 41 20 62 75 69 6c 64 73 20 66 6f 72 20 63 6f 6e 74 72 69 62 73 0a 23 0a 24 28 43 4f | .ELPA.builds.for.contribs.#.$(CO |
| 6a880 | 4e 54 52 49 42 53 3a 25 3d 65 6c 70 61 2d 25 29 3a 20 43 4f 4e 54 52 49 42 3d 24 28 40 3a 65 6c | NTRIBS:%=elpa-%):.CONTRIB=$(@:el |
| 6a8a0 | 70 61 2d 25 3d 25 29 0a 24 28 43 4f 4e 54 52 49 42 53 3a 25 3d 65 6c 70 61 2d 25 29 3a 20 43 4f | pa-%=%).$(CONTRIBS:%=elpa-%):.CO |
| 6a8c0 | 4e 54 52 49 42 5f 45 4c 3d 24 28 43 4f 4e 54 52 49 42 3a 25 3d 73 6c 69 6d 65 2d 25 2e 65 6c 29 | NTRIB_EL=$(CONTRIB:%=slime-%.el) |
| 6a8e0 | 0a 24 28 43 4f 4e 54 52 49 42 53 3a 25 3d 65 6c 70 61 2d 25 29 3a 20 43 4f 4e 54 52 49 42 5f 43 | .$(CONTRIBS:%=elpa-%):.CONTRIB_C |
| 6a900 | 4c 3d 24 28 43 4f 4e 54 52 49 42 3a 25 3d 73 77 61 6e 6b 2d 25 2e 6c 69 73 70 29 0a 24 28 43 4f | L=$(CONTRIB:%=swank-%.lisp).$(CO |
| 6a920 | 4e 54 52 49 42 53 3a 25 3d 65 6c 70 61 2d 25 29 3a 20 43 4f 4e 54 52 49 42 5f 56 45 52 53 49 4f | NTRIBS:%=elpa-%):.CONTRIB_VERSIO |
| 6a940 | 4e 3d 24 28 73 68 65 6c 6c 20 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | N=$(shell.(..................... |
| 6a960 | 20 20 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....\.......................... |
| 6a980 | 20 20 20 20 20 20 20 20 20 20 67 72 65 70 20 22 56 65 72 73 69 6f 6e 3a 22 20 24 28 43 4f 4e 54 | ..........grep."Version:".$(CONT |
| 6a9a0 | 52 49 42 5f 45 4c 29 20 20 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | RIB_EL)..\...................... |
| 6a9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 7c 20 65 63 68 6f 20 24 28 53 4c 49 4d 45 5f 56 45 | ..............||.echo.$(SLIME_VE |
| 6a9e0 | 52 53 49 4f 4e 29 20 20 20 20 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | RSION).......\.................. |
| 6aa00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 20 7c 20 67 72 65 70 20 2d 45 20 2d 6f 20 22 | ................).|.grep.-E.-o." |
| 6aa20 | 5b 30 2d 39 2e 5d 2b 24 24 22 20 29 0a 24 28 43 4f 4e 54 52 49 42 53 3a 25 3d 65 6c 70 61 2d 25 | [0-9.]+$$".).$(CONTRIBS:%=elpa-% |
| 6aa40 | 29 3a 20 50 41 43 4b 41 47 45 3d 24 28 43 4f 4e 54 52 49 42 3a 25 3d 73 6c 69 6d 65 2d 25 2d 24 | ):.PACKAGE=$(CONTRIB:%=slime-%-$ |
| 6aa60 | 28 43 4f 4e 54 52 49 42 5f 56 45 52 53 49 4f 4e 29 29 0a 24 28 43 4f 4e 54 52 49 42 53 3a 25 3d | (CONTRIB_VERSION)).$(CONTRIBS:%= |
| 6aa80 | 65 6c 70 61 2d 25 29 3a 20 50 41 43 4b 41 47 45 5f 45 4c 3d 24 28 43 4f 4e 54 52 49 42 3a 25 3d | elpa-%):.PACKAGE_EL=$(CONTRIB:%= |
| 6aaa0 | 73 6c 69 6d 65 2d 25 2d 70 6b 67 2e 65 6c 29 0a 24 28 43 4f 4e 54 52 49 42 53 3a 25 3d 65 6c 70 | slime-%-pkg.el).$(CONTRIBS:%=elp |
| 6aac0 | 61 2d 25 29 3a 20 45 4c 50 41 5f 44 49 52 3d 65 6c 70 61 2f 24 28 50 41 43 4b 41 47 45 29 0a 24 | a-%):.ELPA_DIR=elpa/$(PACKAGE).$ |
| 6aae0 | 28 43 4f 4e 54 52 49 42 53 3a 25 3d 65 6c 70 61 2d 25 29 3a 20 63 6f 6d 70 69 6c 65 0a 09 65 6c | (CONTRIBS:%=elpa-%):.compile..el |
| 6ab00 | 70 61 5f 64 69 72 3d 24 28 45 4c 50 41 5f 44 49 52 29 0a 09 6d 6b 64 69 72 20 2d 70 20 24 24 65 | pa_dir=$(ELPA_DIR)..mkdir.-p.$$e |
| 6ab20 | 6c 70 61 5f 64 69 72 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lpa_dir;........................ |
| 6ab40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 09 65 6d 61 63 73 20 2d 2d | .....................\..emacs.-- |
| 6ab60 | 62 61 74 63 68 20 24 28 43 4f 4e 54 52 49 42 5f 45 4c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 | batch.$(CONTRIB_EL)............. |
| 6ab80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 09 2d 2d 65 76 | .........................\..--ev |
| 6aba0 | 61 6c 20 22 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 22 20 20 20 20 20 20 20 20 20 20 | al."(require.'cl-lib)".......... |
| 6abc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 09 | .............................\.. |
| 6abe0 | 2d 2d 65 76 61 6c 20 22 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 5c 22 64 65 66 69 6e 65 | --eval."(search-forward.\"define |
| 6ac00 | 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 5c 22 29 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -slime-contrib\")".............. |
| 6ac20 | 20 5c 0a 09 2d 2d 65 76 61 6c 20 22 28 75 70 2d 6c 69 73 74 20 2d 31 29 22 20 20 20 20 20 20 20 | .\..--eval."(up-list.-1)"....... |
| 6ac40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6ac60 | 20 20 20 20 20 5c 0a 09 2d 2d 65 76 61 6c 20 22 28 70 70 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....\..--eval."(pp............. |
| 6ac80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6aca0 | 20 20 20 20 20 20 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 28 70 63 61 73 65 20 28 72 65 61 64 | .........\..........(pcase.(read |
| 6acc0 | 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(point-marker))................ |
| 6ace0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 20 20 28 5c 60 28 64 65 | .............\............(\`(de |
| 6ad00 | 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 2c 6e 61 6d 65 20 2c 64 6f 63 73 74 72 | fine-slime-contrib.,name.,docstr |
| 6ad20 | 69 6e 67 20 2e 20 2c 72 65 73 74 29 20 20 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 5c | ing...,rest).....\.............\ |
| 6ad40 | 60 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 2c 6e 61 6d 65 20 5c 22 24 28 43 4f 4e 54 52 | `(define-package.,name.\"$(CONTR |
| 6ad60 | 49 42 5f 56 45 52 53 49 4f 4e 29 5c 22 20 20 20 20 20 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 | IB_VERSION)\"........\.......... |
| 6ad80 | 2c 64 6f 63 73 74 72 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ,docstring...................... |
| 6ada0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 09 20 20 20 20 | .........................\...... |
| 6adc0 | 20 20 20 20 2c 28 63 6f 6e 73 20 27 28 73 6c 69 6d 65 20 5c 22 24 28 53 4c 49 4d 45 5f 56 45 52 | ....,(cons.'(slime.\"$(SLIME_VER |
| 6ade0 | 53 49 4f 4e 29 5c 22 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 09 | SION)\").....................\.. |
| 6ae00 | 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 66 6f 72 6d 20 69 6e 20 72 65 | .........(cl-loop.for.form.in.re |
| 6ae20 | 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | st.............................. |
| 6ae40 | 20 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 65 71 20 3a 73 6c 69 6d 65 | .\...............when.(eq.:slime |
| 6ae60 | 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 28 63 61 72 20 66 6f 72 6d 29 29 20 20 20 20 20 20 20 | -dependencies.(car.form))....... |
| 6ae80 | 20 20 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 63 6c 2d | .....\...............append.(cl- |
| 6aea0 | 6c 6f 6f 70 20 66 6f 72 20 63 6f 6e 74 72 69 62 20 69 6e 20 28 63 64 72 20 66 6f 72 6d 29 20 20 | loop.for.contrib.in.(cdr.form).. |
| 6aec0 | 20 20 20 20 20 20 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........\...................... |
| 6aee0 | 20 20 20 20 20 20 20 20 20 69 66 20 28 61 74 6f 6d 20 63 6f 6e 74 72 69 62 29 20 20 20 20 20 20 | .........if.(atom.contrib)...... |
| 6af00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............\.................. |
| 6af20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 20 20 20 20 20 20 20 20 20 20 20 | .............collect............ |
| 6af40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 | .................\.............. |
| 6af60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 60 28 2c 63 6f 6e 74 72 69 62 20 5c | ...................\`(,contrib.\ |
| 6af80 | 22 24 28 53 4c 49 4d 45 5f 56 45 52 53 49 4f 4e 29 5c 22 29 20 5c 0a 09 20 20 20 20 20 20 20 20 | "$(SLIME_VERSION)\").\.......... |
| 6afa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 20 | .....................else....... |
| 6afc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 09 20 20 20 20 | .........................\...... |
| 6afe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 | .........................collect |
| 6b000 | 20 63 6f 6e 74 72 69 62 29 29 29 29 29 29 29 29 22 20 20 20 3e 20 20 20 20 20 20 20 20 5c 0a 09 | .contrib))))))))"...>........\.. |
| 6b020 | 24 24 65 6c 70 61 5f 64 69 72 2f 24 28 50 41 43 4b 41 47 45 5f 45 4c 29 3b 20 20 20 20 20 20 20 | $$elpa_dir/$(PACKAGE_EL);....... |
| 6b040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6b060 | 20 5c 0a 09 63 70 20 24 28 43 4f 4e 54 52 49 42 5f 45 4c 29 20 24 24 65 6c 70 61 5f 64 69 72 3b | .\..cp.$(CONTRIB_EL).$$elpa_dir; |
| 6b080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6b0a0 | 20 20 20 20 20 5c 0a 09 5b 20 2d 72 20 24 28 43 4f 4e 54 52 49 42 5f 43 4c 29 20 5d 20 26 26 20 | .....\..[.-r.$(CONTRIB_CL).].&&. |
| 6b0c0 | 63 70 20 24 28 43 4f 4e 54 52 49 42 5f 43 4c 29 20 24 24 65 6c 70 61 5f 64 69 72 3b 20 20 20 20 | cp.$(CONTRIB_CL).$$elpa_dir;.... |
| 6b0e0 | 20 20 20 20 20 20 20 20 20 5c 0a 09 6c 73 20 24 24 65 6c 70 61 5f 64 69 72 0a 09 63 64 20 65 6c | .........\..ls.$$elpa_dir..cd.el |
| 6b100 | 70 61 20 26 26 20 74 61 72 20 63 76 66 20 24 28 50 41 43 4b 41 47 45 29 2e 74 61 72 20 24 28 50 | pa.&&.tar.cvf.$(PACKAGE).tar.$(P |
| 6b120 | 41 43 4b 41 47 45 29 0a 09 72 6d 20 2d 72 66 20 24 28 45 4c 50 41 5f 44 49 52 29 0a 0a 65 6c 70 | ACKAGE)..rm.-rf.$(ELPA_DIR)..elp |
| 6b140 | 61 2d 61 6c 6c 3a 20 24 28 43 4f 4e 54 52 49 42 53 3a 25 3d 65 6c 70 61 2d 25 29 0a 0a 24 28 43 | a-all:.$(CONTRIBS:%=elpa-%)..$(C |
| 6b160 | 4f 4e 54 52 49 42 5f 54 45 53 54 53 3a 25 3d 63 68 65 63 6b 2d 25 29 3a 20 43 4f 4e 54 52 49 42 | ONTRIB_TESTS:%=check-%):.CONTRIB |
| 6b180 | 5f 4e 41 4d 45 3d 24 28 70 61 74 73 75 62 73 74 20 63 68 65 63 6b 2d 25 2c 73 6c 69 6d 65 2d 25 | _NAME=$(patsubst.check-%,slime-% |
| 6b1a0 | 2c 24 40 29 0a 24 28 43 4f 4e 54 52 49 42 5f 54 45 53 54 53 3a 25 3d 63 68 65 63 6b 2d 25 29 3a | ,$@).$(CONTRIB_TESTS:%=check-%): |
| 6b1c0 | 20 53 45 4c 45 43 54 4f 52 3d 28 71 75 6f 74 65 20 28 74 61 67 20 63 6f 6e 74 72 69 62 29 29 0a | .SELECTOR=(quote.(tag.contrib)). |
| 6b1e0 | 24 28 43 4f 4e 54 52 49 42 5f 54 45 53 54 53 3a 25 3d 63 68 65 63 6b 2d 25 29 3a 20 63 6f 6d 70 | $(CONTRIB_TESTS:%=check-%):.comp |
| 6b200 | 69 6c 65 0a 09 24 28 45 4d 41 43 53 29 20 2d 51 20 2d 2d 62 61 74 63 68 20 24 28 4c 4f 41 44 5f | ile..$(EMACS).-Q.--batch.$(LOAD_ |
| 6b220 | 50 41 54 48 29 20 2d 4c 20 74 65 73 74 09 09 09 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 2d 2d | PATH).-L.test......\..........-- |
| 6b240 | 65 76 61 6c 20 22 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 73 6c 69 6d 65 29 29 22 09 09 | eval."(require.(quote.slime))".. |
| 6b260 | 09 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 2d 2d 65 76 61 6c 20 22 28 73 6c 69 6d 65 2d 73 65 | ....\..........--eval."(slime-se |
| 6b280 | 74 75 70 20 28 71 75 6f 74 65 20 28 24 28 43 4f 4e 54 52 49 42 5f 4e 41 4d 45 29 29 29 29 22 09 | tup.(quote.($(CONTRIB_NAME))))". |
| 6b2a0 | 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 2d 2d 65 76 61 6c 20 22 28 72 65 71 75 69 72 65 09 09 | ...\..........--eval."(require.. |
| 6b2c0 | 09 09 09 20 20 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......\......................... |
| 6b2e0 | 20 28 69 6e 74 65 72 6e 09 09 09 09 09 20 20 20 5c 0a 09 09 09 20 20 28 66 6f 72 6d 61 74 20 5c | .(intern........\......(format.\ |
| 6b300 | 22 25 73 2d 74 65 73 74 73 5c 22 20 28 71 75 6f 74 65 20 24 28 43 4f 4e 54 52 49 42 5f 4e 41 4d | "%s-tests\".(quote.$(CONTRIB_NAM |
| 6b320 | 45 29 29 29 29 29 22 20 5c 0a 09 20 20 20 20 20 20 20 20 2d 2d 65 76 61 6c 20 27 28 73 65 74 71 | E)))))".\..........--eval.'(setq |
| 6b340 | 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 20 22 24 28 4c 49 53 50 29 22 | .inferior-lisp-program."$(LISP)" |
| 6b360 | 29 27 09 09 20 20 20 5c 0a 09 20 20 20 20 20 20 20 20 2d 2d 65 76 61 6c 20 22 28 73 6c 69 6d 65 | )'.....\..........--eval."(slime |
| 6b380 | 2d 62 61 74 63 68 2d 74 65 73 74 20 24 28 53 45 4c 45 43 54 4f 52 29 29 22 0a 0a 63 68 65 63 6b | -batch-test.$(SELECTOR))"..check |
| 6b3a0 | 2d 61 6c 6c 3a 20 24 28 43 4f 4e 54 52 49 42 5f 54 45 53 54 53 3a 25 3d 63 68 65 63 6b 2d 25 29 | -all:.$(CONTRIB_TESTS:%=check-%) |
| 6b3c0 | 0a 0a 63 68 65 63 6b 2d 66 61 6e 63 79 3a 20 63 6f 6d 70 69 6c 65 0a 09 24 28 45 4d 41 43 53 29 | ..check-fancy:.compile..$(EMACS) |
| 6b3e0 | 20 2d 51 20 2d 2d 62 61 74 63 68 20 20 24 28 4c 4f 41 44 5f 50 41 54 48 29 20 2d 4c 20 74 65 73 | .-Q.--batch..$(LOAD_PATH).-L.tes |
| 6b400 | 74 09 09 09 5c 0a 09 20 20 20 20 20 20 20 20 2d 2d 65 76 61 6c 20 22 28 73 65 74 71 20 64 65 62 | t...\..........--eval."(setq.deb |
| 6b420 | 75 67 2d 6f 6e 2d 65 72 72 6f 72 20 74 29 22 09 09 09 5c 0a 09 20 20 20 20 20 20 20 20 2d 2d 65 | ug-on-error.t)"...\..........--e |
| 6b440 | 76 61 6c 20 22 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 73 6c 69 6d 65 29 29 22 09 09 09 | val."(require.(quote.slime))"... |
| 6b460 | 5c 0a 09 20 20 20 20 20 20 20 20 2d 2d 65 76 61 6c 20 22 28 73 6c 69 6d 65 2d 73 65 74 75 70 20 | \..........--eval."(slime-setup. |
| 6b480 | 28 71 75 6f 74 65 20 28 73 6c 69 6d 65 2d 66 61 6e 63 79 29 29 29 22 09 09 5c 0a 09 20 20 20 20 | (quote.(slime-fancy)))"..\...... |
| 6b4a0 | 20 20 20 20 2d 2d 65 76 61 6c 20 22 28 6d 61 70 63 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 29 09 | ....--eval."(mapc.(lambda.(sym). |
| 6b4c0 | 09 09 09 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...\...........................( |
| 6b4e0 | 72 65 71 75 69 72 65 09 09 09 09 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | require....\.................... |
| 6b500 | 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 5c 22 25 73 2d 74 65 | .........(intern.(format.\"%s-te |
| 6b520 | 73 74 73 5c 22 20 73 79 6d 29 29 09 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sts\".sym)).\................... |
| 6b540 | 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 29 29 09 09 09 09 5c 0a 09 20 20 20 20 20 20 20 20 | ..........nil.t))....\.......... |
| 6b560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 2d 61 6c 6c | ..............(slime-contrib-all |
| 6b580 | 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 09 09 5c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -dependencies..\................ |
| 6b5a0 | 20 20 20 20 20 20 20 20 20 20 28 71 75 6f 74 65 20 73 6c 69 6d 65 2d 66 61 6e 63 79 29 29 29 22 | ..........(quote.slime-fancy)))" |
| 6b5c0 | 09 09 09 5c 0a 09 20 20 20 20 20 20 20 20 2d 2d 65 76 61 6c 20 27 28 73 65 74 71 20 69 6e 66 65 | ...\..........--eval.'(setq.infe |
| 6b5e0 | 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 20 22 24 28 4c 49 53 50 29 22 29 27 09 09 5c | rior-lisp-program."$(LISP)")'..\ |
| 6b600 | 0a 09 20 20 20 20 20 20 20 20 2d 2d 65 76 61 6c 20 27 28 73 6c 69 6d 65 2d 62 61 74 63 68 2d 74 | ..........--eval.'(slime-batch-t |
| 6b620 | 65 73 74 20 28 71 75 6f 74 65 20 28 74 61 67 20 63 6f 6e 74 72 69 62 29 29 29 27 0a 0a 00 00 00 | est.(quote.(tag.contrib)))'..... |
| 6b640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b6a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b6c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b6e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b7a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 6a 6f 6c 74 2e 6b 00 | slime-2.31/contrib/swank-jolt.k. |
| 6b820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 6b880 | 30 31 30 30 32 36 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 31 31 36 00 20 30 00 00 00 | 0100263.00000000000.015116..0... |
| 6b8a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 6b920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 6b940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6b9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6ba00 | 3b 3b 3b 20 73 77 61 6e 6b 2d 6a 6f 6c 74 2e 6b 20 2d 2d 2d 20 53 77 61 6e 6b 20 73 65 72 76 65 | ;;;.swank-jolt.k.---.Swank.serve |
| 6ba20 | 72 20 66 6f 72 20 4a 6f 6c 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.for.Jolt...................... |
| 6ba40 | 20 20 20 2d 2a 2d 20 67 6f 6f 20 2d 2a 2d 0a 3b 3b 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 | ...-*-.goo.-*-.;;.;;.Copyright.( |
| 6ba60 | 43 29 20 32 30 30 38 20 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 0a 3b 3b 0a 3b 3b 20 54 68 69 73 | C).2008..Helmut.Eller.;;.;;.This |
| 6ba80 | 20 66 69 6c 65 20 69 73 20 6c 69 63 65 6e 73 65 64 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d | .file.is.licensed.under.the.term |
| 6baa0 | 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 0a 3b 3b 20 4c | s.of.the.GNU.General.Public.;;.L |
| 6bac0 | 69 63 65 6e 73 65 20 61 73 20 64 69 73 74 72 69 62 75 74 65 64 20 77 69 74 68 20 45 6d 61 63 73 | icense.as.distributed.with.Emacs |
| 6bae0 | 20 28 70 72 65 73 73 20 43 2d 68 20 43 2d 63 20 66 6f 72 20 64 65 74 61 69 6c 73 29 2e 0a 0a 3b | .(press.C-h.C-c.for.details)...; |
| 6bb00 | 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 3b 3b 0a 3b 3b 20 4a 6f 6c 74 2f 43 6f 6b 65 20 69 | ;;.Commentary:.;;.;;.Jolt/Coke.i |
| 6bb20 | 73 20 61 20 4c 69 73 70 2d 6c 69 6b 65 20 6c 61 6e 67 75 61 67 65 20 77 69 63 68 20 6f 70 65 72 | s.a.Lisp-like.language.wich.oper |
| 6bb40 | 61 74 65 73 20 61 74 20 74 68 65 20 73 65 6d 61 6e 74 69 63 20 6c 65 76 65 6c 20 6f 66 0a 3b 3b | ates.at.the.semantic.level.of.;; |
| 6bb60 | 20 43 2c 20 69 2e 65 2e 20 6d 6f 73 74 20 6f 62 6a 65 63 74 73 20 61 72 65 20 6d 61 63 68 69 6e | .C,.i.e..most.objects.are.machin |
| 6bb80 | 65 20 77 6f 72 64 73 20 61 6e 64 20 6d 65 6d 6f 72 79 20 70 6f 69 6e 74 65 72 73 2e 20 20 54 68 | e.words.and.memory.pointers...Th |
| 6bba0 | 65 0a 3b 3b 20 73 74 61 6e 64 61 72 64 20 62 6f 6f 74 20 66 69 6c 65 73 20 64 65 66 69 6e 65 20 | e.;;.standard.boot.files.define. |
| 6bbc0 | 61 6e 20 69 6e 74 65 72 66 61 63 65 20 74 6f 20 49 64 20 53 6d 61 6c 6c 74 61 6c 6b 2e 20 20 53 | an.interface.to.Id.Smalltalk...S |
| 6bbe0 | 6f 20 77 65 20 63 61 6e 0a 3b 3b 20 61 6c 73 6f 20 70 72 65 74 65 6e 64 20 74 6f 20 64 6f 20 4f | o.we.can.;;.also.pretend.to.do.O |
| 6bc00 | 4f 50 2c 20 62 75 74 20 77 65 20 6d 75 73 74 20 62 65 20 63 61 72 65 66 75 6c 20 74 6f 20 70 61 | OP,.but.we.must.be.careful.to.pa |
| 6bc20 | 73 73 20 70 72 6f 70 65 72 6c 79 0a 3b 3b 20 74 61 67 67 65 64 20 70 6f 69 6e 74 65 72 73 20 74 | ss.properly.;;.tagged.pointers.t |
| 6bc40 | 6f 20 53 6d 61 6c 6c 74 61 6c 6b 2e 0a 3b 3b 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 6f 6e 6c | o.Smalltalk..;;.;;.This.file.onl |
| 6bc60 | 79 20 69 6d 70 6c 65 6d 65 6e 74 73 20 61 20 6d 69 6e 69 6d 75 6d 20 6f 66 20 53 4c 49 4d 45 27 | y.implements.a.minimum.of.SLIME' |
| 6bc80 | 73 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 2e 20 20 57 65 0a 3b 3b 20 69 6e 73 74 61 6c 6c 20 | s.functionality...We.;;.install. |
| 6bca0 | 61 20 68 61 6e 64 6c 65 72 20 77 69 74 68 20 61 74 65 78 69 74 28 33 29 20 74 6f 20 69 6e 76 6f | a.handler.with.atexit(3).to.invo |
| 6bcc0 | 6b 65 20 74 68 65 20 64 65 62 75 67 67 65 72 2e 20 20 54 68 69 73 20 77 61 79 0a 3b 3b 20 77 65 | ke.the.debugger...This.way.;;.we |
| 6bce0 | 20 63 61 6e 20 73 74 6f 70 20 4a 6f 6c 74 20 66 72 6f 6d 20 74 65 72 6d 69 6e 61 74 69 6e 67 20 | .can.stop.Jolt.from.terminating. |
| 6bd00 | 74 68 65 20 70 72 6f 63 65 73 73 20 6f 6e 20 65 76 65 72 79 20 65 72 72 6f 72 2e 0a 3b 3b 20 55 | the.process.on.every.error..;;.U |
| 6bd20 | 6e 66 6f 72 74 75 6e 61 74 65 6c 79 2c 20 74 68 65 20 62 61 63 6b 74 72 61 63 65 20 64 6f 65 73 | nfortunately,.the.backtrace.does |
| 6bd40 | 6e 27 74 20 63 6f 6e 74 61 69 6e 20 6d 75 63 68 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 6e 64 | n't.contain.much.information.and |
| 6bd60 | 0a 3b 3b 20 77 65 20 61 6c 73 6f 20 68 61 76 65 20 6e 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 67 | .;;.we.also.have.no.error.messag |
| 6bd80 | 65 20 28 6f 74 68 65 72 20 74 68 61 6e 20 74 68 65 20 65 78 69 74 20 63 6f 64 65 29 2e 20 20 4a | e.(other.than.the.exit.code)...J |
| 6bda0 | 6f 6c 74 0a 3b 3b 20 75 73 75 61 6c 6c 79 20 70 72 69 6e 74 73 20 73 6f 6d 65 20 6d 65 73 73 61 | olt.;;.usually.prints.some.messa |
| 6bdc0 | 67 65 20 74 6f 20 73 74 64 6f 75 74 20 62 65 66 6f 72 65 20 63 61 6c 6c 69 6e 67 20 65 78 69 74 | ge.to.stdout.before.calling.exit |
| 6bde0 | 2c 20 73 6f 20 79 6f 75 0a 3b 3b 20 68 61 76 65 20 74 6f 20 6c 6f 6f 6b 20 69 6e 20 74 68 65 20 | ,.so.you.;;.have.to.look.in.the. |
| 6be00 | 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 20 62 75 66 66 65 72 20 66 6f 72 20 68 69 6e 74 73 | *inferior-lisp*.buffer.for.hints |
| 6be20 | 2e 20 20 57 65 20 64 6f 0a 3b 3b 20 6e 6f 74 68 69 6e 67 20 28 79 65 74 29 20 74 6f 20 72 65 63 | ...We.do.;;.nothing.(yet).to.rec |
| 6be40 | 6f 76 65 72 20 66 72 6f 6d 20 53 49 47 53 45 47 56 2e 0a 0a 3b 3b 3b 20 49 6e 73 74 61 6c 6c 61 | over.from.SIGSEGV...;;;.Installa |
| 6be60 | 74 69 6f 6e 0a 3b 3b 0a 3b 3b 20 31 2e 20 44 6f 77 6e 6c 6f 61 64 20 61 6e 64 20 62 75 69 6c 64 | tion.;;.;;.1..Download.and.build |
| 6be80 | 20 63 6f 6c 61 2e 20 20 53 65 65 20 3c 68 74 74 70 3a 2f 2f 70 69 75 6d 61 72 74 61 2e 63 6f 6d | .cola...See.<http://piumarta.com |
| 6bea0 | 2f 73 6f 66 74 77 61 72 65 2f 63 6f 6c 61 2f 3e 2e 20 20 0a 3b 3b 20 20 20 20 49 20 75 73 65 64 | /software/cola/>....;;....I.used |
| 6bec0 | 20 74 68 65 20 73 76 6e 20 76 65 72 73 69 6f 6e 3a 0a 3b 3b 20 20 20 20 20 20 20 73 76 6e 20 63 | .the.svn.version:.;;.......svn.c |
| 6bee0 | 6f 20 68 74 74 70 3a 2f 2f 70 69 75 6d 61 72 74 61 2e 63 6f 6d 2f 73 76 6e 32 2f 69 64 73 74 2f | o.http://piumarta.com/svn2/idst/ |
| 6bf00 | 74 72 75 6e 6b 20 69 64 73 74 0a 3b 3b 20 32 2e 20 41 64 64 20 73 6f 6d 65 74 68 69 6e 67 20 6c | trunk.idst.;;.2..Add.something.l |
| 6bf20 | 69 6b 65 20 74 68 69 73 20 74 6f 20 79 6f 75 72 20 2e 65 6d 61 63 73 3a 0a 3b 3b 20 20 20 20 0a | ike.this.to.your..emacs:.;;..... |
| 6bf40 | 3b 3b 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 | ;;..(add-to-list.'slime-lisp-imp |
| 6bf60 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 | lementations.;;...............'( |
| 6bf80 | 6a 6f 6c 74 20 28 22 2e 2e 2e 2f 69 64 73 74 2f 66 75 6e 63 74 69 6f 6e 2f 6a 6f 6c 74 2d 62 75 | jolt.(".../idst/function/jolt-bu |
| 6bfa0 | 72 67 2f 6d 61 69 6e 22 20 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rg/main"..;;.................... |
| 6bfc0 | 20 20 20 22 62 6f 6f 74 2e 6b 22 20 22 2e 2e 2e 2f 73 77 61 6e 6b 2d 6a 6f 6c 74 2e 6b 22 20 22 | ..."boot.k".".../swank-jolt.k"." |
| 6bfe0 | 2d 22 29 20 3b 20 6e 6f 74 65 20 74 68 65 20 22 2d 22 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 | -").;.note.the."-".;;........... |
| 6c000 | 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 20 6a 6f 6c 74 2d 73 6c 69 6d 65 2d 69 6e 69 74 | ...........:init.jolt-slime-init |
| 6c020 | 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 2d 66 | .;;......................:init-f |
| 6c040 | 75 6e 63 74 69 6f 6e 20 73 6c 69 6d 65 2d 72 65 64 69 72 65 63 74 2d 69 6e 66 65 72 69 6f 72 2d | unction.slime-redirect-inferior- |
| 6c060 | 6f 75 74 70 75 74 29 0a 3b 3b 20 20 28 64 65 66 75 6e 20 6a 6f 6c 74 2d 73 6c 69 6d 65 2d 69 6e | output).;;..(defun.jolt-slime-in |
| 6c080 | 69 74 20 28 66 69 6c 65 20 5f 29 20 28 66 6f 72 6d 61 74 20 22 25 53 5c 6e 22 20 60 28 73 74 61 | it.(file._).(format."%S\n".`(sta |
| 6c0a0 | 72 74 2d 73 77 61 6e 6b 20 2c 66 69 6c 65 29 29 29 0a 3b 3b 20 20 28 64 65 66 75 6e 20 6a 6f 6c | rt-swank.,file))).;;..(defun.jol |
| 6c0c0 | 74 20 28 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 73 6c 69 6d 65 20 27 6a 6f 6c 74 29 | t.().(interactive).(slime.'jolt) |
| 6c0e0 | 29 0a 3b 3b 0a 3b 3b 20 33 2e 20 55 73 65 20 60 4d 2d 78 20 6a 6f 6c 74 27 20 74 6f 20 73 74 61 | ).;;.;;.3..Use.`M-x.jolt'.to.sta |
| 6c100 | 72 74 20 69 74 2e 0a 3b 3b 0a 0a 3b 3b 3b 20 43 6f 64 65 0a 0a 3b 3b 20 49 6e 20 74 68 69 73 20 | rt.it..;;..;;;.Code..;;.In.this. |
| 6c120 | 66 69 6c 65 20 49 20 75 73 65 20 32 2d 33 20 6c 65 74 74 65 72 73 20 66 6f 72 20 6f 66 74 65 6e | file.I.use.2-3.letters.for.often |
| 6c140 | 20 75 73 65 64 20 6e 61 6d 65 73 2c 20 6c 69 6b 65 20 44 46 20 6f 72 0a 3b 3b 20 56 45 43 2c 20 | .used.names,.like.DF.or.;;.VEC,. |
| 6c160 | 65 76 65 6e 20 69 66 20 74 68 6f 73 65 20 6e 61 6d 65 73 20 61 72 65 20 61 62 62 72 65 76 69 61 | even.if.those.names.are.abbrevia |
| 6c180 | 74 69 6f 6e 73 2e 20 20 49 20 74 68 69 6e 6b 20 74 68 61 74 20 61 66 74 65 72 20 61 0a 3b 3b 20 | tions...I.think.that.after.a.;;. |
| 6c1a0 | 6c 69 74 74 6c 65 20 67 65 74 74 69 6e 67 20 75 73 65 64 20 74 6f 2c 20 74 68 69 73 20 73 74 79 | little.getting.used.to,.this.sty |
| 6c1c0 | 6c 65 20 69 73 20 6a 75 73 74 20 61 73 20 72 65 61 64 61 62 6c 65 20 61 73 20 74 68 65 20 6d 6f | le.is.just.as.readable.as.the.mo |
| 6c1e0 | 72 65 0a 3b 3b 20 74 72 61 64 69 74 69 6f 6e 61 6c 20 44 45 46 55 4e 20 61 6e 64 20 56 45 43 54 | re.;;.traditional.DEFUN.and.VECT |
| 6c200 | 4f 52 2e 20 20 53 68 6f 72 74 65 72 20 6e 61 6d 65 73 20 6d 61 6b 65 20 69 74 20 65 61 73 69 65 | OR...Shorter.names.make.it.easie |
| 6c220 | 72 20 74 6f 0a 3b 3b 20 77 72 69 74 65 20 74 65 72 73 65 20 63 6f 64 65 2c 20 69 6e 20 70 61 72 | r.to.;;.write.terse.code,.in.par |
| 6c240 | 74 69 63 75 6c 61 72 20 31 2d 6c 69 6e 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 0a 3b 3b 20 | ticular.1-line.definitions...;;. |
| 6c260 | 60 64 66 27 20 69 73 20 6c 69 6b 65 20 60 64 65 66 75 6e 27 20 69 6e 20 61 20 74 72 61 64 69 74 | `df'.is.like.`defun'.in.a.tradit |
| 6c280 | 69 6f 6e 61 6c 20 6c 69 73 70 0a 28 73 79 6e 74 61 78 20 64 66 20 0a 20 20 28 6c 61 6d 62 64 61 | ional.lisp.(syntax.df....(lambda |
| 6c2a0 | 20 28 66 6f 72 6d 20 63 6f 6d 70 69 6c 65 72 29 0a 20 20 20 20 28 70 72 69 6e 74 66 20 22 64 66 | .(form.compiler).....(printf."df |
| 6c2c0 | 20 25 73 20 2e 2e 2e 5c 6e 22 20 5b 5b 5b 66 6f 72 6d 20 73 65 63 6f 6e 64 5d 20 61 73 53 74 72 | .%s....\n".[[[form.second].asStr |
| 6c2e0 | 69 6e 67 5d 20 5f 73 74 72 69 6e 67 56 61 6c 75 65 5d 29 0a 20 20 20 20 60 28 64 65 66 69 6e 65 | ing]._stringValue]).....`(define |
| 6c300 | 20 2c 5b 66 6f 72 6d 20 73 65 63 6f 6e 64 5d 20 28 6c 61 6d 62 64 61 20 2c 40 5b 66 6f 72 6d 20 | .,[form.second].(lambda.,@[form. |
| 6c320 | 63 6f 70 79 46 72 6f 6d 3a 20 27 32 5d 29 29 29 29 0a 0a 3b 3b 20 28 21 20 61 72 67 73 20 2e 2e | copyFrom:.'2]))))..;;.(!.args... |
| 6c340 | 2e 29 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 5b 61 72 67 73 20 2e 2e 2e 5d 20 62 75 74 | .).is.the.same.as.[args....].but |
| 6c360 | 20 65 61 73 69 65 72 20 74 6f 20 65 64 69 74 2e 0a 28 73 79 6e 74 61 78 20 21 0a 20 20 28 6c 61 | .easier.to.edit..(syntax.!...(la |
| 6c380 | 6d 62 64 61 20 28 66 6f 72 6d 20 63 6f 6d 70 69 6c 65 72 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 | mbda.(form.compiler).....(cond.( |
| 6c3a0 | 28 3d 3d 20 5b 66 6f 72 6d 20 73 69 7a 65 5d 20 27 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | (==.[form.size].'3)............( |
| 6c3c0 | 69 66 20 5b 5b 66 6f 72 6d 20 74 68 69 72 64 5d 20 69 73 53 79 6d 62 6f 6c 5d 0a 20 20 20 20 20 | if.[[form.third].isSymbol]...... |
| 6c3e0 | 20 20 20 20 20 20 20 20 20 20 60 28 73 65 6e 64 20 27 2c 5b 66 6f 72 6d 20 74 68 69 72 64 5d 20 | ..........`(send.',[form.third]. |
| 6c400 | 2c 5b 66 6f 72 6d 20 73 65 63 6f 6e 64 5d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b | ,[form.second])................[ |
| 6c420 | 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 53 79 6e 74 61 78 3a 20 5b 66 6f 72 6d 20 74 68 69 72 | compiler.errorSyntax:.[form.thir |
| 6c440 | 64 5d 5d 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 5b 5b 66 6f 72 6d 20 73 69 7a | d]]))...........((and.[[form.siz |
| 6c460 | 65 5d 20 3e 20 27 33 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 3d 20 5b 5b 66 | e].>.'3].................(==.[[f |
| 6c480 | 6f 72 6d 20 73 69 7a 65 5d 20 5c 5c 20 27 32 5d 20 27 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 | orm.size].\\.'2].'0))........... |
| 6c4a0 | 20 28 6c 65 74 20 28 28 61 72 67 73 20 5b 4f 72 64 65 72 65 64 43 6f 6c 6c 65 63 74 69 6f 6e 20 | .(let.((args.[OrderedCollection. |
| 6c4c0 | 6e 65 77 5d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 73 20 5b 4f 72 | new])..................(keys.[Or |
| 6c4e0 | 64 65 72 65 64 43 6f 6c 6c 65 63 74 69 6f 6e 20 6e 65 77 5d 29 0a 20 20 20 20 20 20 20 20 20 20 | deredCollection.new])........... |
| 6c500 | 20 20 20 20 20 20 20 28 69 20 27 32 29 20 28 6c 65 6e 20 5b 66 6f 72 6d 20 73 69 7a 65 5d 29 29 | .......(i.'2).(len.[form.size])) |
| 6c520 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 3c 20 69 20 6c 65 6e 29 0a 20 | ..............(while.(<.i.len).. |
| 6c540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6b 65 79 20 5b 66 6f 72 6d 20 61 | ..............(let.((key.[form.a |
| 6c560 | 74 3a 20 69 5d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 | t:.i]))..................(if.(or |
| 6c580 | 20 5b 6b 65 79 20 69 73 4b 65 79 77 6f 72 64 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .[key.isKeyword]................ |
| 6c5a0 | 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 3d 3d 20 69 20 27 32 29 20 5b 6b 65 79 20 69 73 | ..........(and.(==.i.'2).[key.is |
| 6c5c0 | 53 79 6d 62 6f 6c 5d 29 29 20 3b 20 66 6f 72 20 5b 58 20 2b 20 59 5d 0a 20 20 20 20 20 20 20 20 | Symbol])).;.for.[X.+.Y]......... |
| 6c5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 6b 65 79 73 20 61 64 64 4c 61 73 74 3a 20 5b 6b 65 79 | .............[keys.addLast:.[key |
| 6c600 | 20 61 73 53 74 72 69 6e 67 5d 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .asString]]..................... |
| 6c620 | 20 5b 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 53 79 6e 74 61 78 3a 20 6b 65 79 5d 29 29 0a 20 | .[compiler.errorSyntax:.key])).. |
| 6c640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 61 72 67 73 20 61 64 64 4c 61 73 74 3a 20 5b 66 6f | ..............[args.addLast:.[fo |
| 6c660 | 72 6d 20 61 74 3a 20 5b 69 20 2b 20 27 31 5d 5d 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rm.at:.[i.+.'1]]]............... |
| 6c680 | 20 28 73 65 74 20 69 20 5b 69 20 2b 20 27 32 5d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(set.i.[i.+.'2])).............. |
| 6c6a0 | 60 28 73 65 6e 64 20 27 2c 5b 5b 6b 65 79 73 20 63 6f 6e 63 61 74 65 6e 61 74 65 64 5d 20 61 73 | `(send.',[[keys.concatenated].as |
| 6c6c0 | 53 79 6d 62 6f 6c 5d 20 2c 5b 66 6f 72 6d 20 73 65 63 6f 6e 64 5d 20 2c 40 61 72 67 73 29 29 29 | Symbol].,[form.second].,@args))) |
| 6c6e0 | 0a 20 20 20 20 20 20 20 20 20 20 28 31 20 5b 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 41 72 67 | ...........(1.[compiler.errorArg |
| 6c700 | 75 6d 65 6e 74 43 6f 75 6e 74 3a 20 66 6f 72 6d 5d 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 49 | umentCount:.form]))))..(define.I |
| 6c720 | 6e 74 65 67 65 72 20 28 69 6d 70 6f 72 74 20 22 49 6e 74 65 67 65 72 22 29 29 0a 28 64 65 66 69 | nteger.(import."Integer")).(defi |
| 6c740 | 6e 65 20 53 79 6d 62 6f 6c 20 28 69 6d 70 6f 72 74 20 22 53 79 6d 62 6f 6c 22 29 29 20 3b 3b 20 | ne.Symbol.(import."Symbol")).;;. |
| 6c760 | 61 6b 61 2e 20 5f 73 65 6c 65 63 74 6f 72 0a 28 64 65 66 69 6e 65 20 53 74 61 74 69 63 42 6c 6f | aka.._selector.(define.StaticBlo |
| 6c780 | 63 6b 43 6c 6f 73 75 72 65 20 28 69 6d 70 6f 72 74 20 22 53 74 61 74 69 63 42 6c 6f 63 6b 43 6c | ckClosure.(import."StaticBlockCl |
| 6c7a0 | 6f 73 75 72 65 22 29 29 0a 28 64 65 66 69 6e 65 20 42 6c 6f 63 6b 43 6c 6f 73 75 72 65 20 28 69 | osure")).(define.BlockClosure.(i |
| 6c7c0 | 6d 70 6f 72 74 20 22 42 6c 6f 63 6b 43 6c 6f 73 75 72 65 22 29 29 0a 28 64 65 66 69 6e 65 20 53 | mport."BlockClosure")).(define.S |
| 6c7e0 | 65 71 75 65 6e 63 65 61 62 6c 65 43 6f 6c 6c 65 63 74 69 6f 6e 20 28 69 6d 70 6f 72 74 20 22 53 | equenceableCollection.(import."S |
| 6c800 | 65 71 75 65 6e 63 65 61 62 6c 65 43 6f 6c 6c 65 63 74 69 6f 6e 22 29 29 0a 28 64 65 66 69 6e 65 | equenceableCollection")).(define |
| 6c820 | 20 5f 76 74 61 62 6c 65 20 28 69 6d 70 6f 72 74 20 22 5f 76 74 61 62 6c 65 22 29 29 0a 28 64 65 | ._vtable.(import."_vtable")).(de |
| 6c840 | 66 69 6e 65 20 42 79 74 65 41 72 72 61 79 20 28 69 6d 70 6f 72 74 20 22 42 79 74 65 41 72 72 61 | fine.ByteArray.(import."ByteArra |
| 6c860 | 79 22 29 29 0a 28 64 65 66 69 6e 65 20 43 6f 64 65 47 65 6e 65 72 61 74 6f 72 20 28 69 6d 70 6f | y")).(define.CodeGenerator.(impo |
| 6c880 | 72 74 20 22 43 6f 64 65 47 65 6e 65 72 61 74 6f 72 22 29 29 0a 28 64 65 66 69 6e 65 20 54 68 65 | rt."CodeGenerator")).(define.The |
| 6c8a0 | 47 6c 6f 62 61 6c 45 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 69 6d 70 6f 72 74 20 22 54 68 65 47 6c | GlobalEnvironment.(import."TheGl |
| 6c8c0 | 6f 62 61 6c 45 6e 76 69 72 6f 6e 6d 65 6e 74 22 29 29 0a 0a 28 64 66 20 65 72 72 6f 72 20 28 6d | obalEnvironment"))..(df.error.(m |
| 6c8e0 | 73 67 29 20 28 21 20 4f 62 6a 65 63 74 20 65 72 72 6f 72 3a 20 6d 73 67 29 29 0a 28 64 66 20 70 | sg).(!.Object.error:.msg)).(df.p |
| 6c900 | 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 62 6a 29 0a 20 20 28 6c 65 74 20 28 28 6c 65 | rint-to-string.(obj)...(let.((le |
| 6c920 | 6e 20 27 32 30 30 29 0a 20 20 20 20 20 20 20 20 28 73 74 72 65 61 6d 20 28 21 20 57 72 69 74 65 | n.'200).........(stream.(!.Write |
| 6c940 | 53 74 72 65 61 6d 20 6f 6e 3a 20 28 21 20 53 74 72 69 6e 67 20 6e 65 77 3a 20 6c 65 6e 29 29 29 | Stream.on:.(!.String.new:.len))) |
| 6c960 | 29 0a 20 20 20 20 28 21 20 73 74 72 65 61 6d 20 70 72 69 6e 74 3a 20 6f 62 6a 29 0a 20 20 20 20 | ).....(!.stream.print:.obj)..... |
| 6c980 | 28 21 20 73 74 72 65 61 6d 20 63 6f 6e 74 65 6e 74 73 29 29 29 0a 28 64 66 20 61 73 73 65 72 74 | (!.stream.contents))).(df.assert |
| 6c9a0 | 69 6f 6e 2d 66 61 69 6c 65 64 20 28 65 78 70 29 0a 20 20 28 65 72 72 6f 72 20 28 21 20 27 22 41 | ion-failed.(exp)...(error.(!.'"A |
| 6c9c0 | 73 73 65 72 74 69 6f 6e 20 66 61 69 6c 65 64 3a 20 22 20 2c 20 28 70 72 69 6e 74 2d 74 6f 2d 73 | ssertion.failed:.".,.(print-to-s |
| 6c9e0 | 74 72 69 6e 67 20 65 78 70 29 29 29 29 0a 0a 28 73 79 6e 74 61 78 20 61 73 73 65 72 74 20 0a 20 | tring.exp))))..(syntax.assert... |
| 6ca00 | 20 28 6c 61 6d 62 64 61 20 28 66 6f 72 6d 29 20 0a 20 20 20 20 60 28 69 66 20 28 6e 6f 74 20 2c | .(lambda.(form)......`(if.(not., |
| 6ca20 | 28 21 20 66 6f 72 6d 20 73 65 63 6f 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 | (!.form.second))..........(asser |
| 6ca40 | 74 69 6f 6e 2d 66 61 69 6c 65 64 20 27 2c 28 21 20 66 6f 72 6d 20 73 65 63 6f 6e 64 29 29 29 29 | tion-failed.',(!.form.second)))) |
| 6ca60 | 29 0a 0a 28 64 66 20 69 73 61 3f 20 28 6f 62 6a 20 74 79 70 65 29 20 28 21 20 6f 62 6a 20 69 73 | )..(df.isa?.(obj.type).(!.obj.is |
| 6ca80 | 4b 69 6e 64 4f 66 3a 20 74 79 70 65 29 29 0a 28 64 66 20 65 71 75 61 6c 20 28 6f 31 20 6f 32 29 | KindOf:.type)).(df.equal.(o1.o2) |
| 6caa0 | 20 28 21 20 6f 31 20 3d 20 6f 32 29 29 0a 0a 28 64 65 66 69 6e 65 20 6e 69 6c 20 30 29 0a 28 64 | .(!.o1.=.o2))..(define.nil.0).(d |
| 6cac0 | 65 66 69 6e 65 20 66 61 6c 73 65 20 30 29 0a 28 64 65 66 69 6e 65 20 74 72 75 65 20 28 21 20 4f | efine.false.0).(define.true.(!.O |
| 6cae0 | 62 6a 65 63 74 20 6e 6f 74 4e 69 6c 29 29 0a 28 64 66 20 62 6f 6f 6c 3f 20 28 6f 62 6a 29 20 28 | bject.notNil)).(df.bool?.(obj).( |
| 6cb00 | 6f 72 20 28 3d 3d 20 6f 62 6a 20 66 61 6c 73 65 29 20 28 3d 3d 20 6f 62 6a 20 74 72 75 65 29 29 | or.(==.obj.false).(==.obj.true)) |
| 6cb20 | 29 0a 28 64 66 20 69 6e 74 3f 20 28 6f 62 6a 29 20 28 69 73 61 3f 20 6f 62 6a 20 49 6e 74 65 67 | ).(df.int?.(obj).(isa?.obj.Integ |
| 6cb40 | 65 72 29 29 0a 0a 3b 3b 20 49 6e 20 74 68 69 73 20 66 69 6c 65 20 74 68 65 20 63 6f 6e 76 65 6e | er))..;;.In.this.file.the.conven |
| 6cb60 | 74 69 6f 6e 20 58 3e 59 20 69 73 20 75 73 65 64 20 66 6f 72 20 6f 70 65 72 61 74 69 6f 6e 73 20 | tion.X>Y.is.used.for.operations. |
| 6cb80 | 74 68 61 74 20 63 6f 6e 76 65 72 74 0a 3b 3b 20 58 2d 74 6f 2d 59 2e 20 20 41 6e 64 20 5f 20 6d | that.convert.;;.X-to-Y...And._.m |
| 6cba0 | 65 61 6e 73 20 22 6d 61 63 68 69 6e 65 20 77 6f 72 64 22 2e 20 20 53 6f 20 5f 3e 69 6e 74 20 69 | eans."machine.word"...So._>int.i |
| 6cbc0 | 73 20 74 68 65 20 6f 70 65 72 61 74 6f 72 20 74 68 61 74 0a 3b 3b 20 63 6f 6e 76 65 72 74 73 20 | s.the.operator.that.;;.converts. |
| 6cbe0 | 61 20 6d 61 63 68 69 6e 65 20 77 6f 72 64 20 74 6f 20 61 6e 20 49 6e 74 65 67 65 72 2e 0a 0a 28 | a.machine.word.to.an.Integer...( |
| 6cc00 | 64 66 20 5f 3e 69 6e 74 20 28 77 6f 72 64 29 20 28 21 20 49 6e 74 65 67 65 72 20 76 61 6c 75 65 | df._>int.(word).(!.Integer.value |
| 6cc20 | 5f 3a 20 77 6f 72 64 29 29 0a 28 64 66 20 69 6e 74 3e 5f 20 28 69 29 20 28 21 20 69 20 5f 69 6e | _:.word)).(df.int>_.(i).(!.i._in |
| 6cc40 | 74 65 67 65 72 56 61 6c 75 65 29 29 0a 0a 3b 3b 20 46 69 78 6e 75 6d 20 6f 70 65 72 61 74 6f 72 | tegerValue))..;;.Fixnum.operator |
| 6cc60 | 73 2e 20 20 4d 61 6e 75 61 6c 20 74 61 67 67 69 6e 67 2f 75 6e 74 61 67 67 69 6e 67 20 77 6f 75 | s...Manual.tagging/untagging.wou |
| 6cc80 | 6c 64 20 70 72 6f 62 61 62 6c 79 20 62 65 20 6d 6f 72 65 0a 3b 3b 20 65 66 66 69 63 65 6e 74 20 | ld.probably.be.more.;;.efficent. |
| 6cca0 | 74 68 61 6e 20 69 6e 76 6f 6b 69 6e 67 20 6d 65 74 68 6f 64 73 2e 0a 0a 28 64 66 20 66 69 78 3f | than.invoking.methods...(df.fix? |
| 6ccc0 | 20 28 6f 62 6a 29 20 28 26 20 6f 62 6a 20 31 29 29 0a 28 64 66 20 5f 3e 66 69 78 20 28 6e 29 20 | .(obj).(&.obj.1)).(df._>fix.(n). |
| 6cce0 | 28 21 20 53 6d 61 6c 6c 49 6e 74 65 67 65 72 20 76 61 6c 75 65 5f 3a 20 6e 29 29 0a 28 64 66 20 | (!.SmallInteger.value_:.n)).(df. |
| 6cd00 | 66 69 78 3e 5f 20 28 69 29 20 28 21 20 69 20 5f 69 6e 74 65 67 65 72 56 61 6c 75 65 29 29 0a 28 | fix>_.(i).(!.i._integerValue)).( |
| 6cd20 | 64 66 20 66 78 2b 20 28 66 78 31 20 66 78 32 29 20 28 21 20 66 78 31 20 2b 20 66 78 32 29 29 0a | df.fx+.(fx1.fx2).(!.fx1.+.fx2)). |
| 6cd40 | 28 64 66 20 66 78 2a 20 28 66 78 31 20 66 78 32 29 20 28 21 20 66 78 31 20 2a 20 66 78 32 29 29 | (df.fx*.(fx1.fx2).(!.fx1.*.fx2)) |
| 6cd60 | 0a 28 64 66 20 66 78 31 2b 20 28 66 78 29 20 28 21 20 66 78 20 2b 20 27 31 29 29 0a 28 64 66 20 | .(df.fx1+.(fx).(!.fx.+.'1)).(df. |
| 6cd80 | 66 78 31 2d 20 28 66 78 29 20 28 21 20 66 78 20 2d 20 27 31 29 29 0a 0a 28 64 66 20 73 74 72 3f | fx1-.(fx).(!.fx.-.'1))..(df.str? |
| 6cda0 | 20 28 6f 62 6a 29 20 28 69 73 61 3f 20 6f 62 6a 20 53 74 72 69 6e 67 29 29 0a 28 64 66 20 3e 73 | .(obj).(isa?.obj.String)).(df.>s |
| 6cdc0 | 74 72 20 28 6f 29 20 28 21 20 6f 20 61 73 53 74 72 69 6e 67 29 29 0a 28 64 66 20 73 74 72 3e 5f | tr.(o).(!.o.asString)).(df.str>_ |
| 6cde0 | 20 28 73 29 20 28 21 20 73 20 5f 73 74 72 69 6e 67 56 61 6c 75 65 29 29 0a 28 64 66 20 5f 3e 73 | .(s).(!.s._stringValue)).(df._>s |
| 6ce00 | 74 72 20 28 73 29 20 28 21 20 53 74 72 69 6e 67 20 76 61 6c 75 65 5f 3a 20 73 29 29 0a 28 64 66 | tr.(s).(!.String.value_:.s)).(df |
| 6ce20 | 20 73 79 6d 3f 20 28 6f 62 6a 29 20 28 69 73 61 3f 20 6f 62 6a 20 53 79 6d 62 6f 6c 29 29 0a 28 | .sym?.(obj).(isa?.obj.Symbol)).( |
| 6ce40 | 64 66 20 73 65 71 3f 20 28 6f 62 6a 29 20 28 69 73 61 3f 20 6f 62 6a 20 53 65 71 75 65 6e 63 65 | df.seq?.(obj).(isa?.obj.Sequence |
| 6ce60 | 61 62 6c 65 43 6f 6c 6c 65 63 74 69 6f 6e 29 29 0a 28 64 66 20 61 72 72 61 79 3f 20 28 6f 62 6a | ableCollection)).(df.array?.(obj |
| 6ce80 | 29 20 28 69 73 61 3f 20 6f 62 6a 20 41 72 72 61 79 29 29 0a 28 64 66 20 6c 65 6e 20 28 6f 62 6a | ).(isa?.obj.Array)).(df.len.(obj |
| 6cea0 | 29 20 28 21 20 6f 62 6a 20 73 69 7a 65 29 29 0a 28 64 66 20 6c 65 6e 5f 20 28 6f 62 6a 29 20 28 | ).(!.obj.size)).(df.len_.(obj).( |
| 6cec0 | 21 20 28 21 20 6f 62 6a 20 73 69 7a 65 29 20 5f 69 6e 74 65 67 65 72 56 61 6c 75 65 29 29 0a 28 | !.(!.obj.size)._integerValue)).( |
| 6cee0 | 64 66 20 72 65 66 20 28 6f 62 6a 20 69 64 78 29 20 28 21 20 6f 62 6a 20 61 74 3a 20 69 64 78 29 | df.ref.(obj.idx).(!.obj.at:.idx) |
| 6cf00 | 29 0a 28 64 66 20 73 65 74 2d 72 65 66 20 28 6f 62 6a 20 69 64 78 20 65 6c 74 29 20 28 21 20 6f | ).(df.set-ref.(obj.idx.elt).(!.o |
| 6cf20 | 62 6a 20 61 74 3a 20 69 64 78 20 70 75 74 3a 20 65 6c 74 29 29 0a 28 64 66 20 66 69 72 73 74 20 | bj.at:.idx.put:.elt)).(df.first. |
| 6cf40 | 28 6f 62 6a 29 20 28 21 20 6f 62 6a 20 66 69 72 73 74 29 29 0a 28 64 66 20 73 65 63 6f 6e 64 20 | (obj).(!.obj.first)).(df.second. |
| 6cf60 | 28 6f 62 6a 29 20 28 21 20 6f 62 6a 20 73 65 63 6f 6e 64 29 29 0a 0a 28 64 66 20 70 75 74 73 20 | (obj).(!.obj.second))..(df.puts. |
| 6cf80 | 28 73 74 72 69 6e 67 20 73 74 72 65 61 6d 29 20 28 21 20 73 74 72 65 61 6d 20 6e 65 78 74 50 75 | (string.stream).(!.stream.nextPu |
| 6cfa0 | 74 41 6c 6c 3a 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 69 6e 65 20 5f 47 43 5f 62 61 73 65 | tAll:.string))..(define._GC_base |
| 6cfc0 | 20 28 64 6c 73 79 6d 20 22 47 43 5f 62 61 73 65 22 29 29 0a 0a 3b 3b 20 49 73 20 41 44 44 52 20 | .(dlsym."GC_base"))..;;.Is.ADDR. |
| 6cfe0 | 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 68 65 61 70 20 61 6c 6c 6f 63 61 74 65 64 20 6f 62 | a.pointer.to.a.heap.allocated.ob |
| 6d000 | 6a 65 63 74 3f 20 20 54 68 65 20 42 6f 65 68 6d 20 47 43 20 6e 6f 77 73 0a 3b 3b 20 73 75 63 68 | ject?..The.Boehm.GC.nows.;;.such |
| 6d020 | 20 74 68 69 6e 67 73 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 66 6f 72 20 64 65 62 | .things...This.is.useful.for.deb |
| 6d040 | 75 67 67 69 6e 67 2c 20 62 65 63 61 75 73 65 20 77 65 20 63 61 6e 20 71 75 69 74 65 0a 3b 3b 20 | ugging,.because.we.can.quite.;;. |
| 6d060 | 73 61 66 65 6c 79 20 28 69 2e 65 2e 20 77 69 74 68 6f 75 74 20 70 72 6f 76 6f 6b 69 6e 67 20 53 | safely.(i.e..without.provoking.S |
| 6d080 | 49 47 53 45 47 56 29 20 61 63 63 65 73 73 20 73 75 63 68 20 61 64 64 72 65 73 73 65 73 2e 0a 28 | IGSEGV).access.such.addresses..( |
| 6d0a0 | 64 66 20 76 61 6c 69 64 2d 70 6f 69 6e 74 65 72 3f 20 28 61 64 64 72 29 20 0a 20 20 28 6c 65 74 | df.valid-pointer?.(addr)....(let |
| 6d0c0 | 20 28 28 70 74 72 20 28 26 20 61 64 64 72 20 28 7e 20 31 29 29 29 29 0a 20 20 20 20 28 61 6e 64 | .((ptr.(&.addr.(~.1)))).....(and |
| 6d0e0 | 20 28 5f 47 43 5f 62 61 73 65 20 70 74 72 29 0a 20 20 20 20 20 20 20 20 20 28 5f 47 43 5f 62 61 | .(_GC_base.ptr)..........(_GC_ba |
| 6d100 | 73 65 20 28 6c 6f 6e 67 40 20 70 74 72 20 2d 31 29 29 29 29 29 0a 0a 3b 3b 20 50 72 69 6e 74 20 | se.(long@.ptr.-1)))))..;;.Print. |
| 6d120 | 4f 42 4a 20 61 73 20 61 20 4c 69 73 70 20 70 72 69 6e 74 65 72 20 77 6f 75 6c 64 20 64 6f 2e 0a | OBJ.as.a.Lisp.printer.would.do.. |
| 6d140 | 28 64 66 20 70 72 69 6e 31 20 28 6f 62 6a 20 73 74 72 65 61 6d 29 0a 20 20 28 63 6f 6e 64 20 28 | (df.prin1.(obj.stream)...(cond.( |
| 6d160 | 28 66 69 78 3f 20 6f 62 6a 29 20 28 21 20 73 74 72 65 61 6d 20 70 72 69 6e 74 3a 20 6f 62 6a 29 | (fix?.obj).(!.stream.print:.obj) |
| 6d180 | 29 0a 20 20 20 20 20 20 20 20 28 28 3d 3d 20 6f 62 6a 20 6e 69 6c 29 20 28 70 75 74 73 20 27 22 | ).........((==.obj.nil).(puts.'" |
| 6d1a0 | 6e 69 6c 22 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 28 28 3d 3d 20 6f 62 6a 20 66 | nil".stream)).........((==.obj.f |
| 6d1c0 | 61 6c 73 65 29 20 28 70 75 74 73 20 27 22 23 66 22 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 | alse).(puts.'"#f".stream))...... |
| 6d1e0 | 20 20 20 28 28 3d 3d 20 6f 62 6a 20 74 72 75 65 29 20 28 70 75 74 73 20 27 22 23 74 22 20 73 74 | ...((==.obj.true).(puts.'"#t".st |
| 6d200 | 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 76 61 6c 69 64 2d 70 6f 69 6e | ream)).........((not.(valid-poin |
| 6d220 | 74 65 72 3f 20 6f 62 6a 29 29 20 0a 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 20 28 70 75 74 | ter?.obj))...........(begin.(put |
| 6d240 | 73 20 27 22 23 3c 77 20 22 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.'"#<w.".stream)............... |
| 6d260 | 20 20 28 70 72 69 6e 31 20 28 5f 3e 69 6e 74 20 6f 62 6a 29 20 73 74 72 65 61 6d 29 0a 20 20 20 | ..(prin1.(_>int.obj).stream).... |
| 6d280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 73 20 27 22 3e 22 20 73 74 72 65 61 6d 29 29 | .............(puts.'">".stream)) |
| 6d2a0 | 29 0a 20 20 20 20 20 20 20 20 28 28 69 6e 74 3f 20 6f 62 6a 29 20 28 21 20 73 74 72 65 61 6d 20 | ).........((int?.obj).(!.stream. |
| 6d2c0 | 70 72 69 6e 74 3a 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 79 6d 3f 20 6f 62 6a 29 | print:.obj)).........((sym?.obj) |
| 6d2e0 | 20 28 70 75 74 73 20 28 3e 73 74 72 20 6f 62 6a 29 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 | .(puts.(>str.obj).stream))...... |
| 6d300 | 20 20 20 28 28 69 73 61 3f 20 6f 62 6a 20 53 74 61 74 69 63 42 6c 6f 63 6b 43 6c 6f 73 75 72 65 | ...((isa?.obj.StaticBlockClosure |
| 6d320 | 29 0a 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 20 28 70 75 74 73 20 27 22 23 3c 66 75 6e 20 | )..........(begin.(puts.'"#<fun. |
| 6d340 | 2f 22 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 73 74 | /".stream).................(!.st |
| 6d360 | 72 65 61 6d 20 70 72 69 6e 74 3a 20 28 21 20 6f 62 6a 20 61 72 69 74 79 29 29 0a 20 20 20 20 20 | ream.print:.(!.obj.arity))...... |
| 6d380 | 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 73 20 27 22 23 3e 22 20 73 74 72 65 61 6d 29 29 29 | ...........(puts.'"#>".stream))) |
| 6d3a0 | 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 73 74 72 3f 20 6f 62 6a 29 20 28 6c 65 6e 20 6f | .........((and.(str?.obj).(len.o |
| 6d3c0 | 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 28 21 20 6f 62 6a 20 70 72 69 6e 74 45 73 63 61 70 65 | bj))..........(!.obj.printEscape |
| 6d3e0 | 64 4f 6e 3a 20 73 74 72 65 61 6d 20 64 65 6c 69 6d 69 74 65 64 3a 20 28 72 65 66 20 27 22 5c 22 | dOn:.stream.delimited:.(ref.'"\" |
| 6d400 | 22 20 27 30 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 61 72 72 61 79 3f 20 6f 62 | ".'0))).........((and.(array?.ob |
| 6d420 | 6a 29 20 28 6c 65 6e 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 20 28 70 | j).(len.obj))..........(begin.(p |
| 6d440 | 75 74 73 20 27 22 28 22 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uts.'"(".stream)................ |
| 6d460 | 20 28 6c 65 74 20 28 28 6d 61 78 20 28 2d 20 28 6c 65 6e 5f 20 6f 62 6a 29 20 31 29 29 29 0a 20 | .(let.((max.(-.(len_.obj).1))).. |
| 6d480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 20 28 69 20 30 20 31 20 6d 61 78 | .................(for.(i.0.1.max |
| 6d4a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 20 28 72 65 | ).....................(prin1.(re |
| 6d4c0 | 66 20 6f 62 6a 20 28 5f 3e 66 69 78 20 69 29 29 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 | f.obj.(_>fix.i)).stream)........ |
| 6d4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 21 3d 20 69 20 6d 61 78 29 0a 20 20 20 20 | .............(if.(!=.i.max)..... |
| 6d500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 73 20 27 22 20 22 20 73 | ....................(puts.'".".s |
| 6d520 | 74 72 65 61 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 73 20 | tream)))).................(puts. |
| 6d540 | 27 22 29 22 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 69 73 | '")".stream))).........((and.(is |
| 6d560 | 61 3f 20 6f 62 6a 20 4f 72 64 65 72 65 64 43 6f 6c 6c 65 63 74 69 6f 6e 29 20 28 6c 65 6e 20 6f | a?.obj.OrderedCollection).(len.o |
| 6d580 | 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 20 28 70 75 74 73 20 27 22 23 5b 22 | bj))..........(begin.(puts.'"#[" |
| 6d5a0 | 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | .stream).................(let.(( |
| 6d5c0 | 6d 61 78 20 28 2d 20 28 6c 65 6e 5f 20 6f 62 6a 29 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 | max.(-.(len_.obj).1))).......... |
| 6d5e0 | 20 20 20 20 20 20 20 20 20 28 66 6f 72 20 28 69 20 30 20 31 20 6d 61 78 29 0a 20 20 20 20 20 20 | .........(for.(i.0.1.max)....... |
| 6d600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 20 28 72 65 66 20 6f 62 6a 20 28 5f | ..............(prin1.(ref.obj.(_ |
| 6d620 | 3e 66 69 78 20 69 29 29 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | >fix.i)).stream)................ |
| 6d640 | 20 20 20 20 20 28 69 66 20 28 21 3d 20 69 20 6d 61 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .....(if.(!=.i.max)............. |
| 6d660 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 73 20 27 22 20 22 20 73 74 72 65 61 6d 29 29 29 | ............(puts.'".".stream))) |
| 6d680 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 73 20 27 22 5d 22 20 73 74 72 | ).................(puts.'"]".str |
| 6d6a0 | 65 61 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 72 75 65 20 0a 20 20 20 20 20 20 20 20 20 28 | eam))).........(true...........( |
| 6d6c0 | 62 65 67 69 6e 20 28 70 75 74 73 20 27 22 23 3c 22 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 | begin.(puts.'"#<".stream)....... |
| 6d6e0 | 20 20 20 20 20 20 20 20 20 20 28 70 75 74 73 20 28 21 20 6f 62 6a 20 64 65 62 75 67 4e 61 6d 65 | ..........(puts.(!.obj.debugName |
| 6d700 | 29 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 73 20 | ).stream).................(puts. |
| 6d720 | 27 22 3e 22 20 73 74 72 65 61 6d 29 29 29 29 0a 20 20 6f 62 6a 29 0a 0a 28 64 66 20 70 72 69 6e | '">".stream))))...obj)..(df.prin |
| 6d740 | 74 20 28 6f 62 6a 29 0a 20 20 28 70 72 69 6e 31 20 6f 62 6a 20 53 74 64 4f 75 74 29 0a 20 20 28 | t.(obj)...(prin1.obj.StdOut)...( |
| 6d760 | 70 75 74 73 20 27 22 5c 6e 22 20 53 74 64 4f 75 74 29 29 0a 0a 28 64 66 20 70 72 69 6e 31 2d 74 | puts.'"\n".StdOut))..(df.prin1-t |
| 6d780 | 6f 2d 73 74 72 69 6e 67 20 28 6f 62 6a 29 0a 20 20 28 6c 65 74 20 28 28 6c 65 6e 20 27 31 30 30 | o-string.(obj)...(let.((len.'100 |
| 6d7a0 | 29 0a 20 20 20 20 20 20 20 20 28 73 74 72 65 61 6d 20 28 21 20 57 72 69 74 65 53 74 72 65 61 6d | ).........(stream.(!.WriteStream |
| 6d7c0 | 20 6f 6e 3a 20 28 21 20 53 74 72 69 6e 67 20 6e 65 77 3a 20 6c 65 6e 29 29 29 29 0a 20 20 20 20 | .on:.(!.String.new:.len))))..... |
| 6d7e0 | 28 70 72 69 6e 31 20 6f 62 6a 20 73 74 72 65 61 6d 29 0a 20 20 20 20 28 21 20 73 74 72 65 61 6d | (prin1.obj.stream).....(!.stream |
| 6d800 | 20 63 6f 6e 74 65 6e 74 73 29 29 29 0a 0a 3b 3b 28 64 66 20 25 76 61 62 6c 65 2d 74 61 6c 6c 79 | .contents)))..;;(df.%vable-tally |
| 6d820 | 20 28 5f 76 74 61 62 6c 65 29 20 28 6c 6f 6e 67 40 20 5f 76 74 61 62 6c 65 29 29 0a 28 64 66 20 | .(_vtable).(long@._vtable)).(df. |
| 6d840 | 63 72 20 28 29 20 28 70 72 69 6e 74 66 20 22 5c 6e 22 29 29 0a 28 64 66 20 70 72 69 6e 74 2d 6f | cr.().(printf."\n")).(df.print-o |
| 6d860 | 62 6a 65 63 74 2d 73 65 6c 65 63 74 6f 72 73 20 28 6f 62 6a 29 0a 20 20 28 6c 65 74 20 28 28 76 | bject-selectors.(obj)...(let.((v |
| 6d880 | 74 61 62 6c 65 20 28 21 20 6f 62 6a 20 5f 76 74 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 28 | table.(!.obj._vtable)).........( |
| 6d8a0 | 74 61 6c 6c 79 20 28 6c 6f 6e 67 40 20 76 74 61 62 6c 65 20 30 29 29 0a 20 20 20 20 20 20 20 20 | tally.(long@.vtable.0))......... |
| 6d8c0 | 28 62 69 6e 64 69 6e 67 73 20 28 6c 6f 6e 67 40 20 76 74 61 62 6c 65 20 31 29 29 29 0a 20 20 20 | (bindings.(long@.vtable.1))).... |
| 6d8e0 | 20 28 66 6f 72 20 28 69 20 31 20 31 20 74 61 6c 6c 79 29 0a 20 20 20 20 20 20 28 70 72 69 6e 74 | .(for.(i.1.1.tally).......(print |
| 6d900 | 20 28 6c 6f 6e 67 40 20 28 6c 6f 6e 67 40 20 62 69 6e 64 69 6e 67 73 20 69 29 29 29 0a 20 20 20 | .(long@.(long@.bindings.i))).... |
| 6d920 | 20 20 20 28 63 72 29 29 29 29 0a 0a 28 64 66 20 70 72 69 6e 74 2d 6f 62 6a 65 63 74 2d 73 6c 6f | ...(cr))))..(df.print-object-slo |
| 6d940 | 74 73 20 28 6f 62 6a 29 0a 20 20 28 6c 65 74 20 28 28 73 69 7a 65 20 28 21 20 6f 62 6a 20 5f 73 | ts.(obj)...(let.((size.(!.obj._s |
| 6d960 | 69 7a 65 6f 66 29 29 0a 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 2b 20 6f 62 6a 20 73 69 7a 65 | izeof)).........(end.(+.obj.size |
| 6d980 | 29 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 3c 20 6f 62 6a 20 65 6e 64 29 0a 20 20 20 20 20 | ))).....(while.(<.obj.end)...... |
| 6d9a0 | 20 28 70 72 69 6e 74 20 28 6c 6f 6e 67 40 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 28 63 72 29 0a | .(print.(long@.obj)).......(cr). |
| 6d9c0 | 20 20 20 20 20 20 28 69 6e 63 72 20 6f 62 6a 20 34 29 29 29 29 0a 0a 28 64 66 20 69 6e 74 65 72 | ......(incr.obj.4))))..(df.inter |
| 6d9e0 | 6e 20 28 73 74 72 69 6e 67 29 20 28 21 20 53 79 6d 62 6f 6c 20 69 6e 74 65 72 6e 3a 20 73 74 72 | n.(string).(!.Symbol.intern:.str |
| 6da00 | 69 6e 67 29 29 0a 0a 3b 3b 20 4a 6f 6c 74 20 64 6f 65 73 6e 27 74 20 73 65 65 6d 20 74 6f 20 68 | ing))..;;.Jolt.doesn't.seem.to.h |
| 6da20 | 61 76 65 20 61 6e 20 65 71 75 69 76 61 6c 65 6e 74 20 66 6f 72 20 67 65 6e 73 79 6d 2c 20 62 75 | ave.an.equivalent.for.gensym,.bu |
| 6da40 | 74 20 69 74 27 73 20 64 61 6d 6e 0a 3b 3b 20 68 61 72 64 20 74 6f 20 77 72 69 74 65 20 6d 61 63 | t.it's.damn.;;.hard.to.write.mac |
| 6da60 | 72 6f 73 20 77 69 74 68 6f 75 74 20 69 74 2e 20 20 53 6f 20 68 65 72 65 20 77 65 20 61 64 6f 70 | ros.without.it...So.here.we.adop |
| 6da80 | 74 20 74 68 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 0a 3b 3b 20 74 68 61 74 20 73 79 6d 62 6f 6c | t.the.conventions.;;.that.symbol |
| 6daa0 | 73 20 77 68 69 63 68 20 6c 6f 6f 6b 20 6c 69 6b 65 20 22 2e 5b 30 2d 39 5d 2b 22 20 61 72 65 20 | s.which.look.like.".[0-9]+".are. |
| 6dac0 | 72 65 73 65 72 76 65 64 20 66 6f 72 20 67 65 6e 73 79 6d 20 61 6e 64 0a 3b 3b 20 73 68 6f 75 6c | reserved.for.gensym.and.;;.shoul |
| 6dae0 | 64 6e 27 74 20 62 65 20 75 73 65 64 20 66 6f 72 20 22 75 73 65 72 20 76 69 73 69 62 6c 65 20 76 | dn't.be.used.for."user.visible.v |
| 6db00 | 61 72 69 61 62 6c 65 73 22 2e 0a 28 64 65 66 69 6e 65 20 67 65 6e 73 79 6d 2d 63 6f 75 6e 74 65 | ariables"..(define.gensym-counte |
| 6db20 | 72 20 30 29 0a 28 64 66 20 67 65 6e 73 79 6d 20 28 29 0a 20 20 28 73 65 74 20 67 65 6e 73 79 6d | r.0).(df.gensym.()...(set.gensym |
| 6db40 | 2d 63 6f 75 6e 74 65 72 20 28 2b 20 67 65 6e 73 79 6d 2d 63 6f 75 6e 74 65 72 20 31 29 29 0a 20 | -counter.(+.gensym-counter.1)).. |
| 6db60 | 20 28 69 6e 74 65 72 6e 20 28 21 20 27 22 2e 22 20 2c 20 28 3e 73 74 72 20 28 5f 3e 66 69 78 20 | .(intern.(!.'".".,.(>str.(_>fix. |
| 6db80 | 67 65 6e 73 79 6d 2d 63 6f 75 6e 74 65 72 29 29 29 29 29 0a 0a 3b 3b 20 53 75 72 70 72 69 73 69 | gensym-counter)))))..;;.Surprisi |
| 6dba0 | 6e 67 6c 79 2c 20 53 65 71 75 65 6e 63 65 61 62 6c 65 43 6f 6c 6c 65 63 74 69 6f 6e 20 64 6f 65 | ngly,.SequenceableCollection.doe |
| 6dbc0 | 73 6e 27 74 20 68 61 76 65 20 61 20 69 6e 64 65 78 4f 66 20 6d 65 74 68 6f 64 2e 0a 3b 3b 20 53 | sn't.have.a.indexOf.method..;;.S |
| 6dbe0 | 6f 20 77 65 20 65 76 65 6e 20 6e 65 65 64 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 73 75 63 68 | o.we.even.need.to.implement.such |
| 6dc00 | 20 6d 75 6e 64 61 6e 65 20 74 68 69 6e 67 73 2e 0a 28 64 66 20 69 6e 64 65 78 2d 6f 66 20 28 73 | .mundane.things..(df.index-of.(s |
| 6dc20 | 65 71 20 65 6c 74 29 0a 20 20 28 6c 65 74 20 28 28 6d 61 78 20 28 6c 65 6e 20 73 65 71 29 29 0a | eq.elt)...(let.((max.(len.seq)). |
| 6dc40 | 20 20 20 20 20 20 20 20 28 69 20 27 30 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 21 20 69 20 | ........(i.'0)).....(while.(!.i. |
| 6dc60 | 3c 20 6d 61 78 29 0a 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 28 72 65 66 20 73 65 71 | <.max).......(if.(equal.(ref.seq |
| 6dc80 | 20 69 29 20 65 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 69 29 0a 20 20 | .i).elt)...........(return.i)... |
| 6dca0 | 20 20 20 20 20 20 20 20 28 73 65 74 20 69 20 28 21 20 69 20 2b 20 27 31 29 29 29 29 0a 20 20 20 | ........(set.i.(!.i.+.'1)))).... |
| 6dcc0 | 20 6e 69 6c 29 29 0a 0a 28 64 66 20 66 69 6e 64 2d 64 6f 74 20 28 61 72 72 61 79 29 20 28 69 6e | .nil))..(df.find-dot.(array).(in |
| 6dce0 | 64 65 78 2d 6f 66 20 61 72 72 61 79 20 27 2e 29 29 0a 0a 3b 3b 20 57 68 61 74 20 66 6f 6c 6c 6f | dex-of.array.'.))..;;.What.follo |
| 6dd00 | 77 65 73 20 69 73 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 | wes.is.the.implementation.of.the |
| 6dd20 | 20 70 61 74 74 65 72 6e 20 6d 61 74 63 68 69 6e 67 20 6d 61 63 72 6f 20 4d 49 46 2e 0a 3b 3b 20 | .pattern.matching.macro.MIF..;;. |
| 6dd40 | 54 68 65 20 73 79 6e 74 61 78 20 69 73 20 28 6d 69 66 20 28 50 41 54 54 45 52 4e 20 45 58 50 29 | The.syntax.is.(mif.(PATTERN.EXP) |
| 6dd60 | 20 54 48 45 4e 20 45 4c 53 45 29 2e 0a 3b 3b 20 54 68 65 20 54 48 45 4e 2d 62 72 61 6e 63 68 20 | .THEN.ELSE)..;;.The.THEN-branch. |
| 6dd80 | 69 73 20 65 78 65 63 75 74 65 64 20 69 66 20 50 41 54 54 45 52 4e 20 6d 61 74 63 68 65 73 20 74 | is.executed.if.PATTERN.matches.t |
| 6dda0 | 68 65 20 76 61 6c 75 65 20 70 72 6f 64 75 63 65 64 20 62 79 20 45 58 50 2e 0a 3b 3b 20 45 4c 53 | he.value.produced.by.EXP..;;.ELS |
| 6ddc0 | 45 20 67 65 74 73 20 6f 6e 6c 79 20 65 78 65 63 75 74 65 64 20 69 66 20 74 68 65 20 6d 61 74 63 | E.gets.only.executed.if.the.matc |
| 6dde0 | 68 20 66 61 69 6c 65 73 2e 0a 3b 3b 20 41 20 70 61 74 74 65 72 6e 20 63 61 6e 20 62 65 0a 3b 3b | h.failes..;;.A.pattern.can.be.;; |
| 6de00 | 20 20 31 29 20 61 20 73 79 6d 62 6f 6c 2c 20 77 68 69 63 68 20 6d 61 74 63 68 65 73 20 61 6c 6c | ..1).a.symbol,.which.matches.all |
| 6de20 | 20 76 61 6c 75 65 73 2c 20 62 75 74 20 61 6c 73 6f 20 62 69 6e 64 73 20 74 68 65 20 76 61 72 69 | .values,.but.also.binds.the.vari |
| 6de40 | 61 62 6c 65 20 74 6f 20 74 68 65 0a 3b 3b 20 20 20 20 20 76 61 6c 75 65 0a 3b 3b 20 20 32 29 20 | able.to.the.;;.....value.;;..2). |
| 6de60 | 28 71 75 6f 74 65 20 4c 49 54 45 52 41 4c 29 2c 20 6d 61 74 63 68 65 73 20 69 66 20 74 68 65 20 | (quote.LITERAL),.matches.if.the. |
| 6de80 | 76 61 6c 75 65 20 69 73 20 60 65 71 75 61 6c 27 20 74 6f 20 4c 49 54 45 52 41 4c 2e 0a 3b 3b 20 | value.is.`equal'.to.LITERAL..;;. |
| 6dea0 | 20 33 29 20 28 50 53 20 2e 2e 2e 29 20 6d 61 74 63 68 65 73 20 73 65 71 75 65 6e 63 65 73 2c 20 | .3).(PS....).matches.sequences,. |
| 6dec0 | 69 66 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6d 61 74 63 68 20 50 53 2e 0a 3b 3b 20 20 34 29 | if.the.elements.match.PS..;;..4) |
| 6dee0 | 20 28 50 31 20 2e 2e 2e 20 50 6e 20 2e 20 50 74 61 69 6c 29 20 6d 61 74 63 68 65 73 20 69 66 20 | .(P1.....Pn...Ptail).matches.if. |
| 6df00 | 50 31 20 2e 2e 2e 20 50 6e 20 6d 61 74 63 68 20 74 68 65 20 72 65 73 70 65 63 74 69 76 65 20 65 | P1.....Pn.match.the.respective.e |
| 6df20 | 6c 65 6d 65 6e 74 73 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lements.;;...................... |
| 6df40 | 20 20 20 61 74 20 69 6e 64 69 63 65 73 20 31 2e 2e 6e 20 61 6e 64 20 69 66 20 50 74 61 69 6c 20 | ...at.indices.1..n.and.if.Ptail. |
| 6df60 | 6d 61 74 63 68 65 73 20 74 68 65 20 72 65 73 74 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 | matches.the.rest.;;............. |
| 6df80 | 20 20 20 20 20 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 73 65 71 75 65 6e 63 65 0a 3b 3b 20 45 | ............of.the.sequence.;;.E |
| 6dfa0 | 78 61 6d 70 6c 65 73 3a 0a 3b 3b 20 20 20 28 6d 69 66 20 28 78 20 31 30 29 20 78 20 27 65 6c 73 | xamples:.;;...(mif.(x.10).x.'els |
| 6dfc0 | 65 29 20 3d 3e 20 31 30 0a 3b 3b 20 20 20 28 6d 69 66 20 28 27 61 20 27 61 29 20 27 74 68 65 6e | e).=>.10.;;...(mif.('a.'a).'then |
| 6dfe0 | 20 27 65 6c 73 65 29 20 3d 3e 20 74 68 65 6e 0a 3b 3b 20 20 20 28 6d 69 66 20 28 27 61 20 27 62 | .'else).=>.then.;;...(mif.('a.'b |
| 6e000 | 29 20 27 74 68 65 6e 20 27 65 6c 73 65 29 20 3d 3e 20 65 6c 73 65 0a 3b 3b 20 20 20 28 6d 69 66 | ).'then.'else).=>.else.;;...(mif |
| 6e020 | 20 28 28 61 20 62 29 20 27 28 31 20 32 29 29 20 62 20 27 65 6c 73 65 29 20 3d 3e 20 32 0a 3b 3b | .((a.b).'(1.2)).b.'else).=>.2.;; |
| 6e040 | 20 20 20 28 6d 69 66 20 28 28 61 20 2e 20 62 29 20 27 28 31 20 32 29 29 20 62 20 27 65 6c 73 65 | ...(mif.((a...b).'(1.2)).b.'else |
| 6e060 | 29 20 3d 3e 20 27 28 32 29 0a 3b 3b 20 20 20 28 6d 69 66 20 28 28 2e 20 78 29 20 27 28 31 20 32 | ).=>.'(2).;;...(mif.((..x).'(1.2 |
| 6e080 | 29 29 20 78 20 27 65 6c 73 65 29 20 3d 3e 20 27 28 31 20 32 29 0a 0a 28 64 65 66 69 6e 65 20 6d | )).x.'else).=>.'(1.2)..(define.m |
| 6e0a0 | 69 66 25 20 30 29 20 3b 3b 20 64 65 66 65 72 0a 28 64 66 20 6d 69 66 25 61 72 72 61 79 20 28 63 | if%.0).;;.defer.(df.mif%array.(c |
| 6e0c0 | 6f 6d 70 69 6c 65 72 20 70 61 74 74 65 72 6e 20 69 20 76 61 6c 75 65 20 74 68 65 6e 20 66 61 69 | ompiler.pattern.i.value.then.fai |
| 6e0e0 | 6c 29 0a 20 20 3b 3b 28 70 72 69 6e 74 20 60 28 6d 69 66 25 61 72 72 61 79 20 2c 70 61 74 74 65 | l)...;;(print.`(mif%array.,patte |
| 6e100 | 72 6e 20 2c 69 20 2c 76 61 6c 75 65 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 3d 3d 20 69 20 28 6c | rn.,i.,value))...(cond.((==.i.(l |
| 6e120 | 65 6e 5f 20 70 61 74 74 65 72 6e 29 29 20 74 68 65 6e 29 0a 20 20 20 20 20 20 20 20 28 28 3d 3d | en_.pattern)).then).........((== |
| 6e140 | 20 28 72 65 66 20 70 61 74 74 65 72 6e 20 28 5f 3e 66 69 78 20 69 29 29 20 27 2e 29 0a 20 20 20 | .(ref.pattern.(_>fix.i)).'.).... |
| 6e160 | 20 20 20 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 21 3d 20 28 | ......(begin...........(if.(!=.( |
| 6e180 | 2d 20 28 6c 65 6e 5f 20 70 61 74 74 65 72 6e 29 20 32 29 20 69 29 0a 20 20 20 20 20 20 20 20 20 | -.(len_.pattern).2).i).......... |
| 6e1a0 | 20 20 20 20 20 28 62 65 67 69 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 | .....(begin.................(pri |
| 6e1c0 | 6e 74 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 63 6f | nt.pattern)................(!.co |
| 6e1e0 | 6d 70 69 6c 65 72 20 65 72 72 6f 72 3a 20 28 21 20 27 22 64 6f 74 20 69 6e 20 73 74 72 61 6e 67 | mpiler.error:.(!.'"dot.in.strang |
| 6e200 | 65 20 70 6f 73 69 74 69 6f 6e 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.position:."................... |
| 6e220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 28 3e 73 74 72 20 28 5f 3e 66 69 | ...................,.(>str.(_>fi |
| 6e240 | 78 20 69 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 69 66 25 20 63 6f 6d 70 69 6c | x.i))))))...........(mif%.compil |
| 6e260 | 65 72 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 66 20 70 61 74 74 65 72 6e | er..................(ref.pattern |
| 6e280 | 20 28 5f 3e 66 69 78 20 28 2b 20 69 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(_>fix.(+.i.1)))............... |
| 6e2a0 | 20 20 60 28 21 20 2c 76 61 6c 75 65 20 63 6f 70 79 46 72 6f 6d 3a 20 27 2c 28 5f 3e 66 69 78 20 | ..`(!.,value.copyFrom:.',(_>fix. |
| 6e2c0 | 69 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 66 61 69 6c 29 29 29 | i)).................then.fail))) |
| 6e2e0 | 0a 20 20 20 20 20 20 20 20 28 74 72 75 65 20 0a 20 20 20 20 20 20 20 20 20 28 6d 69 66 25 20 63 | .........(true...........(mif%.c |
| 6e300 | 6f 6d 70 69 6c 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 66 20 70 61 74 74 | ompiler................(ref.patt |
| 6e320 | 65 72 6e 20 28 5f 3e 66 69 78 20 69 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 | ern.(_>fix.i))................`( |
| 6e340 | 72 65 66 20 2c 76 61 6c 75 65 20 27 2c 28 5f 3e 66 69 78 20 69 29 29 0a 20 20 20 20 20 20 20 20 | ref.,value.',(_>fix.i))......... |
| 6e360 | 20 20 20 20 20 20 20 28 6d 69 66 25 61 72 72 61 79 20 63 6f 6d 70 69 6c 65 72 20 70 61 74 74 65 | .......(mif%array.compiler.patte |
| 6e380 | 72 6e 20 28 2b 20 69 20 31 29 20 76 61 6c 75 65 20 74 68 65 6e 20 66 61 69 6c 29 0a 20 20 20 20 | rn.(+.i.1).value.then.fail)..... |
| 6e3a0 | 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c 29 29 29 29 0a 0a 28 64 66 20 6d 69 66 25 20 28 63 | ...........fail))))..(df.mif%.(c |
| 6e3c0 | 6f 6d 70 69 6c 65 72 20 70 61 74 74 65 72 6e 20 76 61 6c 75 65 20 74 68 65 6e 20 66 61 69 6c 29 | ompiler.pattern.value.then.fail) |
| 6e3e0 | 0a 20 20 3b 3b 28 70 72 69 6e 74 20 60 28 6d 69 66 25 20 2c 70 61 74 74 65 72 6e 20 2c 76 61 6c | ...;;(print.`(mif%.,pattern.,val |
| 6e400 | 75 65 20 2c 74 68 65 6e 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 3d 3d 20 70 61 74 74 65 72 6e 20 | ue.,then))...(cond.((==.pattern. |
| 6e420 | 27 5f 29 20 74 68 65 6e 29 0a 20 20 20 20 20 20 20 20 28 28 3d 3d 20 70 61 74 74 65 72 6e 20 27 | '_).then).........((==.pattern.' |
| 6e440 | 2e 29 20 28 21 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 53 79 6e 74 61 78 3a 20 70 61 74 74 | .).(!.compiler.errorSyntax:.patt |
| 6e460 | 65 72 6e 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 79 6d 3f 20 70 61 74 74 65 72 6e 29 20 0a 20 | ern)).........((sym?.pattern)... |
| 6e480 | 20 20 20 20 20 20 20 20 60 28 6c 65 74 20 28 28 2c 70 61 74 74 65 72 6e 20 2c 76 61 6c 75 65 29 | ........`(let.((,pattern.,value) |
| 6e4a0 | 29 20 2c 74 68 65 6e 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 65 71 3f 20 70 61 74 74 65 72 6e | ).,then)).........((seq?.pattern |
| 6e4c0 | 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 3d 20 28 6c 65 6e 5f 20 70 61 74 74 | )..........(cond.((==.(len_.patt |
| 6e4e0 | 65 72 6e 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 69 66 20 28 3d 3d | ern).0).................`(if.(== |
| 6e500 | 20 28 6c 65 6e 5f 20 2c 76 61 6c 75 65 29 20 30 29 20 2c 74 68 65 6e 20 28 67 6f 74 6f 20 2c 66 | .(len_.,value).0).,then.(goto.,f |
| 6e520 | 61 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3d 3d 20 28 66 69 72 73 | ail)))................((==.(firs |
| 6e540 | 74 20 70 61 74 74 65 72 6e 29 20 27 71 75 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.pattern).'quote).............. |
| 6e560 | 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | ...(begin..................(if.( |
| 6e580 | 6e 6f 74 20 28 3d 3d 20 28 6c 65 6e 5f 20 70 61 74 74 65 72 6e 29 20 32 29 29 0a 20 20 20 20 20 | not.(==.(len_.pattern).2))...... |
| 6e5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f | ................(!.compiler.erro |
| 6e5c0 | 72 53 79 6e 74 61 78 3a 20 70 61 74 74 65 72 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | rSyntax:.pattern)).............. |
| 6e5e0 | 20 20 20 20 60 28 69 66 20 28 65 71 75 61 6c 20 2c 76 61 6c 75 65 20 2c 70 61 74 74 65 72 6e 29 | ....`(if.(equal.,value.,pattern) |
| 6e600 | 20 2c 74 68 65 6e 20 28 67 6f 74 6f 20 2c 66 61 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | .,then.(goto.,fail)))).......... |
| 6e620 | 20 20 20 20 20 20 28 74 72 75 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | ......(true..................(le |
| 6e640 | 74 20 28 28 74 6d 70 20 28 67 65 6e 73 79 6d 29 29 20 28 74 6d 70 32 20 28 67 65 6e 73 79 6d 29 | t.((tmp.(gensym)).(tmp2.(gensym) |
| 6e660 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 66 69 | ).......................(pos.(fi |
| 6e680 | 6e 64 2d 64 6f 74 20 70 61 74 74 65 72 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd-dot.pattern)))............... |
| 6e6a0 | 20 20 20 20 60 28 6c 65 74 20 28 28 2c 74 6d 70 32 20 2c 76 61 6c 75 65 29 0a 20 20 20 20 20 20 | ....`(let.((,tmp2.,value)....... |
| 6e6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 74 6d 70 20 2c 74 6d 70 32 29 29 | ...................(,tmp.,tmp2)) |
| 6e6e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 | ......................(if.(and.( |
| 6e700 | 73 65 71 3f 20 2c 74 6d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | seq?.,tmp)...................... |
| 6e720 | 20 20 20 20 20 20 20 20 20 2c 28 69 66 20 28 66 69 6e 64 2d 64 6f 74 20 70 61 74 74 65 72 6e 29 | .........,(if.(find-dot.pattern) |
| 6e740 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6e760 | 20 20 20 20 60 28 3e 3d 20 28 6c 65 6e 20 2c 74 6d 70 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 | ....`(>=.(len.,tmp)............. |
| 6e780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 28 | .............................',( |
| 6e7a0 | 5f 3e 66 69 78 20 28 2d 20 28 6c 65 6e 5f 20 70 61 74 74 65 72 6e 29 20 32 29 29 29 0a 20 20 20 | _>fix.(-.(len_.pattern).2))).... |
| 6e7c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6e7e0 | 60 28 3d 3d 20 28 6c 65 6e 20 2c 74 6d 70 29 20 27 2c 28 6c 65 6e 20 70 61 74 74 65 72 6e 29 29 | `(==.(len.,tmp).',(len.pattern)) |
| 6e800 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6d 69 | ))..........................,(mi |
| 6e820 | 66 25 61 72 72 61 79 20 63 6f 6d 70 69 6c 65 72 20 70 61 74 74 65 72 6e 20 30 20 74 6d 70 20 74 | f%array.compiler.pattern.0.tmp.t |
| 6e840 | 68 65 6e 20 66 61 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hen.fail)....................... |
| 6e860 | 20 20 20 28 67 6f 74 6f 20 2c 66 61 69 6c 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 | ...(goto.,fail))))))).........(t |
| 6e880 | 72 75 65 20 28 21 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 53 79 6e 74 61 78 3a 20 70 61 74 | rue.(!.compiler.errorSyntax:.pat |
| 6e8a0 | 74 65 72 6e 29 29 29 29 0a 0a 28 73 79 6e 74 61 78 20 6d 69 66 0a 20 20 28 6c 61 6d 62 64 61 20 | tern))))..(syntax.mif...(lambda. |
| 6e8c0 | 28 6e 6f 64 65 20 63 6f 6d 70 69 6c 65 72 29 0a 20 20 20 20 3b 3b 28 70 72 69 6e 74 20 60 28 6d | (node.compiler).....;;(print.`(m |
| 6e8e0 | 69 66 20 2c 6e 6f 64 65 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 6f 72 20 28 3d 3d 20 | if.,node)).....(if.(not.(or.(==. |
| 6e900 | 28 6c 65 6e 5f 20 6e 6f 64 65 29 20 34 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (len_.node).4).................. |
| 6e920 | 28 3d 3d 20 28 6c 65 6e 5f 20 6e 6f 64 65 29 20 33 29 29 29 0a 20 20 20 20 20 20 20 20 28 21 20 | (==.(len_.node).3))).........(!. |
| 6e940 | 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 41 72 67 75 6d 65 6e 74 43 6f 75 6e 74 3a 20 6e 6f 64 | compiler.errorArgumentCount:.nod |
| 6e960 | 65 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 61 6e 64 20 28 61 72 72 61 79 3f 20 28 72 | e)).....(if.(not.(and.(array?.(r |
| 6e980 | 65 66 20 6e 6f 64 65 20 27 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ef.node.'1))...................( |
| 6e9a0 | 3d 3d 20 28 6c 65 6e 5f 20 28 72 65 66 20 6e 6f 64 65 20 27 31 29 29 20 32 29 29 29 0a 20 20 20 | ==.(len_.(ref.node.'1)).2))).... |
| 6e9c0 | 20 20 20 20 20 28 21 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 53 79 6e 74 61 78 3a 20 28 72 | .....(!.compiler.errorSyntax:.(r |
| 6e9e0 | 65 66 20 6e 6f 64 65 20 27 31 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 61 74 74 65 72 6e | ef.node.'1))).....(let.((pattern |
| 6ea00 | 20 28 66 69 72 73 74 20 28 72 65 66 20 6e 6f 64 65 20 27 31 29 29 29 0a 20 20 20 20 20 20 20 20 | .(first.(ref.node.'1)))......... |
| 6ea20 | 20 20 28 76 61 6c 75 65 20 28 73 65 63 6f 6e 64 20 28 72 65 66 20 6e 6f 64 65 20 27 31 29 29 29 | ..(value.(second.(ref.node.'1))) |
| 6ea40 | 0a 20 20 20 20 20 20 20 20 20 20 28 74 68 65 6e 20 28 72 65 66 20 6e 6f 64 65 20 27 32 29 29 0a | ...........(then.(ref.node.'2)). |
| 6ea60 | 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 28 69 66 20 28 3d 3d 20 28 6c 65 6e 5f 20 6e 6f | ..........(else.(if.(==.(len_.no |
| 6ea80 | 64 65 29 20 34 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 66 20 | de).4).....................(ref. |
| 6eaa0 | 6e 6f 64 65 20 27 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 65 | node.'3).....................`(e |
| 6eac0 | 72 72 6f 72 20 22 6d 69 66 20 66 61 69 6c 65 64 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | rror."mif.failed")))...........( |
| 6eae0 | 64 65 73 74 69 6e 61 74 69 6f 6e 20 28 67 65 6e 73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 | destination.(gensym))........... |
| 6eb00 | 28 66 61 69 6c 20 28 21 20 63 6f 6d 70 69 6c 65 72 20 6e 65 77 4c 61 62 65 6c 29 29 0a 20 20 20 | (fail.(!.compiler.newLabel)).... |
| 6eb20 | 20 20 20 20 20 20 20 28 73 75 63 63 65 73 73 20 28 21 20 63 6f 6d 70 69 6c 65 72 20 6e 65 77 4c | .......(success.(!.compiler.newL |
| 6eb40 | 61 62 65 6c 29 29 29 0a 20 20 20 20 20 20 60 28 6c 65 74 20 28 28 2c 64 65 73 74 69 6e 61 74 69 | abel))).......`(let.((,destinati |
| 6eb60 | 6f 6e 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 2c 28 6d 69 66 25 20 63 6f 6d 70 69 6c 65 72 20 | on.0))..........,(mif%.compiler. |
| 6eb80 | 70 61 74 74 65 72 6e 20 76 61 6c 75 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 | pattern.value..................` |
| 6eba0 | 28 62 65 67 69 6e 20 28 73 65 74 20 2c 64 65 73 74 69 6e 61 74 69 6f 6e 20 2c 74 68 65 6e 29 0a | (begin.(set.,destination.,then). |
| 6ebc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 20 2c 73 | ........................(goto.,s |
| 6ebe0 | 75 63 63 65 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c 29 0a 20 | uccess)).................fail).. |
| 6ec00 | 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 20 2c 66 61 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 | ........(label.,fail)..........( |
| 6ec20 | 73 65 74 20 2c 64 65 73 74 69 6e 61 74 69 6f 6e 20 2c 65 6c 73 65 29 0a 20 20 20 20 20 20 20 20 | set.,destination.,else)......... |
| 6ec40 | 20 28 6c 61 62 65 6c 20 2c 73 75 63 63 65 73 73 29 0a 20 20 20 20 20 20 20 20 20 2c 64 65 73 74 | .(label.,success)..........,dest |
| 6ec60 | 69 6e 61 74 69 6f 6e 29 29 29 29 0a 0a 3b 3b 20 28 64 65 66 69 6e 65 20 2a 63 61 74 63 68 2d 73 | ination))))..;;.(define.*catch-s |
| 6ec80 | 74 61 63 6b 2a 20 6e 69 6c 29 0a 3b 3b 20 0a 28 64 66 20 62 61 72 20 28 6f 29 20 28 6d 69 66 20 | tack*.nil).;;..(df.bar.(o).(mif. |
| 6eca0 | 28 27 61 20 6f 29 20 27 79 65 73 20 27 6e 6f 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 62 | ('a.o).'yes.'no)).(assert.(==.(b |
| 6ecc0 | 61 72 20 27 61 29 20 27 79 65 73 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 62 61 72 20 27 | ar.'a).'yes)).(assert.(==.(bar.' |
| 6ece0 | 62 29 20 27 6e 6f 29 29 0a 28 64 66 20 66 6f 6f 20 28 6f 29 20 28 6d 69 66 20 28 28 27 61 29 20 | b).'no)).(df.foo.(o).(mif.(('a). |
| 6ed00 | 6f 29 20 27 79 65 73 20 27 6e 6f 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 66 6f 6f 20 27 | o).'yes.'no)).(assert.(==.(foo.' |
| 6ed20 | 28 61 29 29 20 27 79 65 73 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 66 6f 6f 20 27 28 62 | (a)).'yes)).(assert.(==.(foo.'(b |
| 6ed40 | 29 29 20 27 6e 6f 29 29 0a 28 64 66 20 62 61 7a 20 28 6f 29 20 28 6d 69 66 20 28 28 27 61 20 27 | )).'no)).(df.baz.(o).(mif.(('a.' |
| 6ed60 | 62 29 20 6f 29 20 27 79 65 73 20 27 6e 6f 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 62 61 | b).o).'yes.'no)).(assert.(==.(ba |
| 6ed80 | 7a 20 27 28 61 20 62 29 29 20 27 79 65 73 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 62 61 | z.'(a.b)).'yes)).(assert.(==.(ba |
| 6eda0 | 7a 20 27 28 61 20 63 29 29 20 27 6e 6f 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 62 61 7a | z.'(a.c)).'no)).(assert.(==.(baz |
| 6edc0 | 20 27 28 62 20 63 29 29 20 27 6e 6f 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 62 61 7a 20 | .'(b.c)).'no)).(assert.(==.(baz. |
| 6ede0 | 27 61 29 20 27 6e 6f 29 29 0a 28 64 66 20 6d 69 66 76 61 72 20 28 6f 29 20 28 6d 69 66 20 28 79 | 'a).'no)).(df.mifvar.(o).(mif.(y |
| 6ee00 | 20 6f 29 20 79 20 27 6e 6f 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 6d 69 66 76 61 72 20 | .o).y.'no)).(assert.(==.(mifvar. |
| 6ee20 | 27 66 6f 6f 29 20 27 66 6f 6f 29 29 0a 28 64 66 20 6d 69 66 76 65 63 20 28 6f 29 20 28 6d 69 66 | 'foo).'foo)).(df.mifvec.(o).(mif |
| 6ee40 | 20 28 28 79 29 20 6f 29 20 79 20 27 6e 6f 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 6d 69 | .((y).o).y.'no)).(assert.(==.(mi |
| 6ee60 | 66 76 65 63 20 27 28 61 29 29 20 27 61 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 6d 69 66 | fvec.'(a)).'a)).(assert.(==.(mif |
| 6ee80 | 76 65 63 20 27 78 29 20 27 6e 6f 29 29 0a 28 64 66 20 6d 69 66 76 65 63 32 20 28 6f 29 20 28 6d | vec.'x).'no)).(df.mifvec2.(o).(m |
| 6eea0 | 69 66 20 28 28 27 61 20 79 29 20 6f 29 20 79 20 27 6e 6f 29 29 0a 28 61 73 73 65 72 74 20 28 3d | if.(('a.y).o).y.'no)).(assert.(= |
| 6eec0 | 3d 20 28 6d 69 66 76 65 63 32 20 27 28 61 20 62 29 29 20 27 62 29 29 0a 28 61 73 73 65 72 74 20 | =.(mifvec2.'(a.b)).'b)).(assert. |
| 6eee0 | 28 3d 3d 20 28 6d 69 66 76 65 63 32 20 27 28 62 20 63 29 29 20 27 6e 6f 29 29 0a 28 61 73 73 65 | (==.(mifvec2.'(b.c)).'no)).(asse |
| 6ef00 | 72 74 20 28 3d 3d 20 28 6d 69 66 20 28 28 78 29 20 27 28 61 29 29 20 78 20 27 6e 6f 29 20 27 61 | rt.(==.(mif.((x).'(a)).x.'no).'a |
| 6ef20 | 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 6d 69 66 20 28 28 78 20 2e 20 79 29 20 27 28 61 | )).(assert.(==.(mif.((x...y).'(a |
| 6ef40 | 20 62 29 29 20 78 20 27 6e 6f 29 20 27 61 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 6d 69 | .b)).x.'no).'a)).(assert.(==.(mi |
| 6ef60 | 66 20 28 28 78 20 79 20 2e 20 7a 29 20 27 28 61 20 62 29 29 20 79 20 27 6e 6f 29 20 27 62 29 29 | f.((x.y...z).'(a.b)).y.'no).'b)) |
| 6ef80 | 0a 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 20 28 6d 69 66 20 28 28 78 20 2e 20 79 29 20 27 28 | .(assert.(equal.(mif.((x...y).'( |
| 6efa0 | 61 20 62 29 29 20 79 20 27 6e 6f 29 20 27 28 62 29 29 29 0a 28 61 73 73 65 72 74 20 28 65 71 75 | a.b)).y.'no).'(b))).(assert.(equ |
| 6efc0 | 61 6c 20 28 6d 69 66 20 28 28 2e 20 78 29 20 27 28 61 20 62 29 29 20 78 20 27 6e 6f 29 20 27 28 | al.(mif.((..x).'(a.b)).x.'no).'( |
| 6efe0 | 61 20 62 29 29 29 0a 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 20 28 6d 69 66 20 28 28 28 2e 20 | a.b))).(assert.(equal.(mif.(((.. |
| 6f000 | 78 29 29 20 27 28 28 61 20 62 29 29 29 20 78 20 27 6e 6f 29 20 27 28 61 20 62 29 29 29 0a 28 61 | x)).'((a.b))).x.'no).'(a.b))).(a |
| 6f020 | 73 73 65 72 74 20 28 65 71 75 61 6c 20 28 6d 69 66 20 28 28 28 2e 20 78 29 20 2e 20 79 29 20 27 | ssert.(equal.(mif.(((..x)...y).' |
| 6f040 | 28 28 61 20 62 29 20 63 29 29 20 79 20 27 6e 6f 29 20 27 28 63 29 29 29 0a 28 61 73 73 65 72 74 | ((a.b).c)).y.'no).'(c))).(assert |
| 6f060 | 20 28 3d 3d 20 28 6d 69 66 20 28 28 29 20 27 28 29 29 20 27 79 65 73 20 27 6e 6f 29 20 27 79 65 | .(==.(mif.(().'()).'yes.'no).'ye |
| 6f080 | 73 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 28 6d 69 66 20 28 28 29 20 27 28 61 29 29 20 27 | s)).(assert.(==.(mif.(().'(a)).' |
| 6f0a0 | 79 65 73 20 27 6e 6f 29 20 27 6e 6f 29 29 0a 0a 3b 3b 20 4e 6f 77 20 74 68 61 74 20 77 65 20 68 | yes.'no).'no))..;;.Now.that.we.h |
| 6f0c0 | 61 76 65 20 61 20 73 6f 6d 65 77 68 61 74 20 63 6f 6e 76 65 6e 69 65 6e 74 20 70 61 74 74 65 72 | ave.a.somewhat.convenient.patter |
| 6f0e0 | 6e 20 6d 61 74 63 68 65 72 20 77 65 20 63 61 6e 20 77 72 69 74 65 0a 3b 3b 20 61 20 6d 6f 72 65 | n.matcher.we.can.write.;;.a.more |
| 6f100 | 20 63 6f 6e 76 65 6e 69 65 6e 74 20 6d 61 63 72 6f 20 64 65 66 69 6e 69 6e 67 20 6d 61 63 72 6f | .convenient.macro.defining.macro |
| 6f120 | 3a 0a 28 73 79 6e 74 61 78 20 64 65 66 6d 61 63 72 6f 0a 20 20 28 6c 61 6d 62 64 61 20 28 6e 6f | :.(syntax.defmacro...(lambda.(no |
| 6f140 | 64 65 20 63 6f 6d 70 69 6c 65 72 29 0a 20 20 20 20 28 6d 69 66 20 28 28 27 64 65 66 6d 61 63 72 | de.compiler).....(mif.(('defmacr |
| 6f160 | 6f 20 6e 61 6d 65 20 28 2e 20 61 72 67 73 29 20 2e 20 62 6f 64 79 29 20 6e 6f 64 65 29 0a 20 20 | o.name.(..args)...body).node)... |
| 6f180 | 20 20 20 20 20 20 20 28 62 65 67 69 6e 20 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 66 | .......(begin............(printf |
| 6f1a0 | 20 22 64 65 66 6d 61 63 72 6f 20 25 73 20 2e 2e 2e 5c 6e 22 20 28 73 74 72 3e 5f 20 28 3e 73 74 | ."defmacro.%s....\n".(str>_.(>st |
| 6f1c0 | 72 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 60 28 73 79 6e 74 61 78 20 2c 6e 61 | r.name)))...........`(syntax.,na |
| 6f1e0 | 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6e 6f 64 65 20 63 6f | me..............(lambda.(node.co |
| 6f200 | 6d 70 69 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 69 66 20 28 28 27 2c | mpiler)................(mif.((', |
| 6f220 | 6e 61 6d 65 20 2c 40 61 72 67 73 29 20 6e 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | name.,@args).node).............. |
| 6f240 | 20 20 20 20 20 20 20 28 62 65 67 69 6e 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 | .......(begin.,@body)........... |
| 6f260 | 20 20 20 20 20 20 20 20 20 20 28 21 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 53 79 6e 74 61 | ..........(!.compiler.errorSynta |
| 6f280 | 78 3a 20 6e 6f 64 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 21 20 63 6f 6d 70 69 6c 65 | x:.node)))))..........(!.compile |
| 6f2a0 | 72 20 65 72 72 6f 72 53 79 6e 74 61 78 3a 20 6e 6f 64 65 29 29 29 29 0a 0a 3b 3b 20 61 6e 64 20 | r.errorSyntax:.node))))..;;.and. |
| 6f2c0 | 61 6e 20 65 76 65 6e 20 6d 6f 72 65 20 63 6f 6e 76 65 6e 69 65 6e 74 20 70 61 74 74 65 72 6e 20 | an.even.more.convenient.pattern. |
| 6f2e0 | 6d 61 74 63 68 65 72 3a 0a 28 64 65 66 6d 61 63 72 6f 20 6d 63 61 73 65 20 28 76 61 6c 75 65 20 | matcher:.(defmacro.mcase.(value. |
| 6f300 | 2e 20 63 6c 61 75 73 65 73 29 0a 20 20 28 6c 65 74 20 28 28 74 6d 70 20 28 67 65 6e 73 79 6d 29 | ..clauses)...(let.((tmp.(gensym) |
| 6f320 | 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 74 6d 70 20 2c 76 61 6c 75 65 29 29 0a 20 20 20 | )).....`(let.((,tmp.,value)).... |
| 6f340 | 20 20 20 20 2c 28 6d 69 66 20 28 28 29 20 63 6c 61 75 73 65 73 29 20 0a 20 20 20 20 20 20 20 20 | ....,(mif.(().clauses).......... |
| 6f360 | 20 20 20 20 20 60 28 62 65 67 69 6e 20 28 70 72 69 6e 74 20 2c 74 6d 70 29 20 0a 20 20 20 20 20 | .....`(begin.(print.,tmp)....... |
| 6f380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 6d 63 61 73 65 20 66 61 | ................(error."mcase.fa |
| 6f3a0 | 69 6c 65 64 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 69 66 20 28 28 28 70 61 74 | iled"))..............(mif.(((pat |
| 6f3c0 | 74 65 72 6e 20 2e 20 62 6f 64 79 29 20 2e 20 6d 6f 72 65 29 20 63 6c 61 75 73 65 73 29 0a 20 20 | tern...body)...more).clauses)... |
| 6f3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6d 69 66 20 28 2c 70 61 74 74 65 72 6e 20 | ................`(mif.(,pattern. |
| 6f400 | 2c 74 6d 70 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ,tmp)..........................( |
| 6f420 | 62 65 67 69 6e 20 2c 40 28 6d 69 66 20 28 28 29 20 62 6f 64 79 29 20 27 28 30 29 20 62 6f 64 79 | begin.,@(mif.(().body).'(0).body |
| 6f440 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 63 61 73 | )).........................(mcas |
| 6f460 | 65 20 2c 74 6d 70 20 2c 40 6d 6f 72 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.,tmp.,@more))................. |
| 6f480 | 20 20 28 21 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 53 79 6e 74 61 78 3a 20 63 6c 61 75 73 | ..(!.compiler.errorSyntax:.claus |
| 6f4a0 | 65 73 29 29 29 29 29 29 0a 0a 3b 3b 20 61 6e 64 20 73 6f 6d 65 20 74 72 61 64 69 74 69 6f 6e 61 | es))))))..;;.and.some.traditiona |
| 6f4c0 | 6c 20 6d 61 63 72 6f 73 0a 28 64 65 66 6d 61 63 72 6f 20 77 68 65 6e 20 28 74 65 73 74 20 2e 20 | l.macros.(defmacro.when.(test... |
| 6f4e0 | 62 6f 64 79 29 20 60 28 69 66 20 2c 74 65 73 74 20 28 62 65 67 69 6e 20 2c 40 62 6f 64 79 29 29 | body).`(if.,test.(begin.,@body)) |
| 6f500 | 29 0a 28 64 65 66 6d 61 63 72 6f 20 75 6e 6c 65 73 73 20 28 74 65 73 74 20 2e 20 62 6f 64 79 29 | ).(defmacro.unless.(test...body) |
| 6f520 | 20 60 28 69 66 20 2c 74 65 73 74 20 30 20 28 62 65 67 69 6e 20 2c 40 62 6f 64 79 29 29 29 0a 28 | .`(if.,test.0.(begin.,@body))).( |
| 6f540 | 64 65 66 6d 61 63 72 6f 20 6f 72 20 28 2e 20 61 72 67 73 29 20 20 3b 20 74 68 65 20 62 75 69 6c | defmacro.or.(..args)..;.the.buil |
| 6f560 | 74 20 69 6e 20 4f 52 20 72 65 74 75 72 6e 73 20 31 20 6f 6e 20 73 75 63 63 65 73 73 2e 0a 20 20 | t.in.OR.returns.1.on.success.... |
| 6f580 | 28 6d 63 61 73 65 20 61 72 67 73 0a 20 20 20 20 28 28 29 20 30 29 0a 20 20 20 20 28 28 65 29 20 | (mcase.args.....(().0).....((e). |
| 6f5a0 | 65 29 0a 20 20 20 20 28 28 65 31 20 2e 20 6d 6f 72 65 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 | e).....((e1...more)......(let.(( |
| 6f5c0 | 74 6d 70 20 28 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 60 28 6c 65 74 20 28 28 2c 74 | tmp.(gensym)))........`(let.((,t |
| 6f5e0 | 6d 70 20 2c 65 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 2c 74 6d 70 20 2c 74 6d 70 | mp.,e1))...........(if.,tmp.,tmp |
| 6f600 | 20 28 6f 72 20 2c 40 6d 6f 72 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 6f | .(or.,@more)))))))..(defmacro.do |
| 6f620 | 74 69 6d 65 73 5f 20 28 28 76 61 72 20 6e 29 20 2e 20 62 6f 64 79 29 0a 20 20 28 6c 65 74 20 28 | times_.((var.n)...body)...(let.( |
| 6f640 | 28 74 6d 70 20 28 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 74 6d 70 | (tmp.(gensym))).....`(let.((,tmp |
| 6f660 | 20 2c 6e 29 0a 09 20 20 20 28 2c 76 61 72 20 30 29 29 0a 20 20 20 20 20 20 20 28 77 68 69 6c 65 | .,n).....(,var.0))........(while |
| 6f680 | 20 28 3c 20 2c 76 61 72 20 2c 74 6d 70 29 0a 09 20 2c 40 62 6f 64 79 0a 09 20 28 73 65 74 20 2c | .(<.,var.,tmp)...,@body...(set., |
| 6f6a0 | 76 61 72 20 28 2b 20 2c 76 61 72 20 31 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 | var.(+.,var.1))))))..(defmacro.d |
| 6f6c0 | 6f 74 69 6d 65 73 20 28 28 76 61 72 20 6e 29 20 2e 20 62 6f 64 79 29 0a 20 20 28 6c 65 74 20 28 | otimes.((var.n)...body)...(let.( |
| 6f6e0 | 28 74 6d 70 20 28 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 74 6d 70 | (tmp.(gensym))).....`(let.((,tmp |
| 6f700 | 20 2c 6e 29 0a 09 20 20 20 28 2c 76 61 72 20 27 30 29 29 0a 20 20 20 20 20 20 20 28 77 68 69 6c | .,n).....(,var.'0))........(whil |
| 6f720 | 65 20 28 3c 20 2c 76 61 72 20 2c 74 6d 70 29 0a 09 20 2c 40 62 6f 64 79 0a 09 20 28 73 65 74 20 | e.(<.,var.,tmp)...,@body...(set. |
| 6f740 | 2c 76 61 72 20 28 66 78 31 2b 20 2c 76 61 72 29 29 29 29 29 29 0a 0a 3b 3b 20 44 4f 56 45 43 20 | ,var.(fx1+.,var))))))..;;.DOVEC. |
| 6f760 | 69 73 20 6c 69 6b 65 20 74 68 65 20 74 72 61 64 69 74 69 6f 6e 61 6c 20 44 4f 4c 49 53 54 20 62 | is.like.the.traditional.DOLIST.b |
| 6f780 | 75 74 20 77 6f 72 6b 73 20 6f 6e 20 22 76 65 63 74 6f 72 73 22 0a 3b 3b 20 69 2e 65 2e 20 73 65 | ut.works.on."vectors".;;.i.e..se |
| 6f7a0 | 71 75 65 6e 63 65 73 20 77 68 69 63 68 20 63 61 6e 20 62 65 20 69 6e 64 65 78 65 64 20 65 66 66 | quences.which.can.be.indexed.eff |
| 6f7c0 | 69 63 65 6e 74 6c 79 2e 0a 28 64 65 66 6d 61 63 72 6f 20 64 6f 76 65 63 20 28 28 76 61 72 20 73 | icently..(defmacro.dovec.((var.s |
| 6f7e0 | 65 71 29 20 2e 20 62 6f 64 79 29 0a 20 20 28 6c 65 74 20 28 28 69 20 28 67 65 6e 73 79 6d 29 29 | eq)...body)...(let.((i.(gensym)) |
| 6f800 | 0a 09 28 6d 61 78 20 28 67 65 6e 73 79 6d 29 29 0a 09 28 74 6d 70 20 28 67 65 6e 73 79 6d 29 29 | ..(max.(gensym))..(tmp.(gensym)) |
| 6f820 | 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 69 20 30 29 0a 09 20 20 20 28 2c 74 6d 70 20 2c 73 | ).....`(let.((,i.0).....(,tmp.,s |
| 6f840 | 65 71 29 0a 09 20 20 20 28 2c 6d 61 78 20 28 6c 65 6e 5f 20 2c 74 6d 70 29 29 29 0a 20 20 20 20 | eq).....(,max.(len_.,tmp)))..... |
| 6f860 | 20 20 20 28 77 68 69 6c 65 20 28 3c 20 2c 69 20 2c 6d 61 78 29 0a 09 20 28 6c 65 74 20 28 28 2c | ...(while.(<.,i.,max)...(let.((, |
| 6f880 | 76 61 72 20 28 21 20 2c 74 6d 70 20 61 74 3a 20 28 5f 3e 66 69 78 20 2c 69 29 29 29 29 0a 09 20 | var.(!.,tmp.at:.(_>fix.,i))))... |
| 6f8a0 | 20 20 2c 40 62 6f 64 79 0a 09 20 20 20 28 73 65 74 20 2c 69 20 28 2b 20 2c 69 20 31 29 29 29 29 | ..,@body.....(set.,i.(+.,i.1)))) |
| 6f8c0 | 29 29 29 0a 0a 3b 3b 20 22 50 61 63 6b 69 6e 67 22 20 69 73 20 77 68 61 74 20 4c 69 73 70 65 72 | )))..;;."Packing".is.what.Lisper |
| 6f8e0 | 73 20 75 73 75 61 6c 6c 79 20 63 61 6c 6c 20 22 63 6f 6c 6c 65 63 74 69 6e 67 22 2e 0a 3b 3b 20 | s.usually.call."collecting"..;;. |
| 6f900 | 54 68 65 20 4c 69 73 70 20 69 64 69 6f 6d 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 27 28 | The.Lisp.idiom..(let.((result.'( |
| 6f920 | 29 29 29 20 2e 2e 20 28 70 75 73 68 20 78 20 72 65 73 75 6c 74 29 20 2e 2e 20 28 6e 72 65 76 65 | )))....(push.x.result)....(nreve |
| 6f940 | 72 73 65 20 72 65 73 75 6c 74 29 29 0a 3b 3b 20 74 72 61 6e 73 6c 61 74 65 73 20 74 6f 20 20 20 | rse.result)).;;.translates.to... |
| 6f960 | 28 70 61 63 6b 69 6e 67 20 28 72 65 73 75 6c 74 29 20 2e 2e 20 28 70 61 63 6b 20 78 20 72 65 73 | (packing.(result)....(pack.x.res |
| 6f980 | 75 6c 74 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 70 61 63 6b 69 6e 67 20 28 28 76 61 72 29 20 2e | ult)).(defmacro.packing.((var).. |
| 6f9a0 | 20 62 6f 64 79 29 0a 20 20 60 28 6c 65 74 20 28 28 2c 76 61 72 20 28 21 20 4f 72 64 65 72 65 64 | .body)...`(let.((,var.(!.Ordered |
| 6f9c0 | 43 6f 6c 6c 65 63 74 69 6f 6e 20 6e 65 77 29 29 29 0a 20 20 20 20 20 2c 40 62 6f 64 79 0a 20 20 | Collection.new)))......,@body... |
| 6f9e0 | 20 20 20 28 21 20 2c 76 61 72 20 61 73 41 72 72 61 79 29 29 29 0a 0a 28 64 66 20 70 61 63 6b 20 | ...(!.,var.asArray)))..(df.pack. |
| 6fa00 | 28 65 6c 74 20 70 61 63 6b 65 72 29 20 28 21 20 70 61 63 6b 65 72 20 61 64 64 4c 61 73 74 3a 20 | (elt.packer).(!.packer.addLast:. |
| 6fa20 | 65 6c 74 29 29 0a 0a 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 20 28 70 61 63 6b 69 6e 67 20 28 | elt))..(assert.(equal.(packing.( |
| 6fa40 | 70 29 20 28 64 6f 74 69 6d 65 73 5f 20 28 69 20 32 29 20 28 70 61 63 6b 20 28 5f 3e 66 69 78 20 | p).(dotimes_.(i.2).(pack.(_>fix. |
| 6fa60 | 69 29 20 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 30 20 31 29 29 29 0a | i).p)))................'(0.1))). |
| 6fa80 | 0a 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 20 28 70 61 63 6b 69 6e 67 20 28 70 29 20 28 64 6f | .(assert.(equal.(packing.(p).(do |
| 6faa0 | 76 65 63 20 28 65 20 27 28 32 20 33 29 29 20 28 70 61 63 6b 20 65 20 70 29 29 29 0a 20 20 20 20 | vec.(e.'(2.3)).(pack.e.p)))..... |
| 6fac0 | 20 20 20 20 20 20 20 20 20 20 20 27 28 32 20 33 29 29 29 0a 0a 28 61 73 73 65 72 74 20 28 65 71 | ...........'(2.3)))..(assert.(eq |
| 6fae0 | 75 61 6c 20 28 70 61 63 6b 69 6e 67 20 28 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ual.(packing.(p)................ |
| 6fb00 | 20 20 28 6c 65 74 20 28 28 61 20 27 28 32 20 33 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..(let.((a.'(2.3)))............. |
| 6fb20 | 20 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 28 6c 65 6e 20 61 29 29 0a 20 20 20 20 | .......(dotimes.(i.(len.a))..... |
| 6fb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 72 65 66 20 61 20 69 29 | .................(pack.(ref.a.i) |
| 6fb60 | 20 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 32 20 33 29 29 29 0a 0a | .p))))................'(2.3))).. |
| 6fb80 | 3b 3b 20 4d 41 50 43 41 52 20 28 6d 6f 72 65 20 6f 72 20 6c 65 73 73 29 0a 28 64 66 20 6d 61 70 | ;;.MAPCAR.(more.or.less).(df.map |
| 6fba0 | 20 28 66 75 6e 20 63 6f 6c 29 0a 20 20 28 70 61 63 6b 69 6e 67 20 28 72 29 20 0a 20 20 20 20 28 | .(fun.col)...(packing.(r)......( |
| 6fbc0 | 64 6f 76 65 63 20 28 65 20 63 6f 6c 29 20 0a 20 20 20 20 20 20 28 70 61 63 6b 20 28 66 75 6e 20 | dovec.(e.col)........(pack.(fun. |
| 6fbe0 | 65 29 20 72 29 29 29 29 0a 0a 3b 3b 20 56 45 43 20 61 6c 6c 6f 63 61 74 65 73 20 61 6e 64 20 69 | e).r))))..;;.VEC.allocates.and.i |
| 6fc00 | 6e 69 74 69 61 6c 69 7a 65 73 20 61 20 6e 65 77 20 61 72 72 61 79 2e 0a 3b 3b 20 54 68 65 20 6d | nitializes.a.new.array..;;.The.m |
| 6fc20 | 61 63 72 6f 20 74 72 61 6e 73 6c 61 74 65 73 20 28 76 65 63 20 78 20 79 20 7a 29 20 74 6f 20 60 | acro.translates.(vec.x.y.z).to.` |
| 6fc40 | 28 2c 78 20 2c 79 20 2c 7a 29 2e 0a 28 64 65 66 6d 61 63 72 6f 20 76 65 63 20 28 2e 20 61 72 67 | (,x.,y.,z)..(defmacro.vec.(..arg |
| 6fc60 | 73 29 0a 20 20 60 28 71 75 61 73 69 71 75 6f 74 65 0a 20 20 20 20 28 2c 40 28 6d 61 70 20 28 6c | s)...`(quasiquote.....(,@(map.(l |
| 6fc80 | 61 6d 62 64 61 20 28 61 72 67 29 20 60 28 2c 27 75 6e 71 75 6f 74 65 20 2c 61 72 67 29 29 0a 20 | ambda.(arg).`(,'unquote.,arg)).. |
| 6fca0 | 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 29 29 29 0a 0a 28 61 73 73 65 72 74 20 28 65 71 | ...........args))))..(assert.(eq |
| 6fcc0 | 75 61 6c 20 28 76 65 63 20 27 30 20 27 31 29 20 27 28 30 20 31 29 29 29 0a 28 61 73 73 65 72 74 | ual.(vec.'0.'1).'(0.1))).(assert |
| 6fce0 | 20 28 65 71 75 61 6c 20 28 76 65 63 29 20 27 28 29 29 29 0a 28 61 73 73 65 72 74 20 28 3d 3d 20 | .(equal.(vec).'())).(assert.(==. |
| 6fd00 | 28 6c 65 6e 20 28 76 65 63 20 30 20 31 20 32 20 33 20 34 29 29 20 27 35 29 29 0a 0a 3b 3b 20 43 | (len.(vec.0.1.2.3.4)).'5))..;;.C |
| 6fd20 | 6f 6e 63 61 74 65 6e 61 74 65 2e 0a 28 64 65 66 6d 61 63 72 6f 20 63 61 74 20 28 2e 20 61 72 67 | oncatenate..(defmacro.cat.(..arg |
| 6fd40 | 73 29 20 60 28 21 20 28 76 65 63 20 27 22 22 20 2c 40 61 72 67 73 29 20 63 6f 6e 63 61 74 65 6e | s).`(!.(vec.'"".,@args).concaten |
| 6fd60 | 61 74 65 64 29 29 0a 0a 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 20 28 63 61 74 20 27 22 61 22 | ated))..(assert.(equal.(cat.'"a" |
| 6fd80 | 20 27 22 62 22 20 27 22 63 22 29 20 27 22 61 62 63 22 29 29 0a 0a 3b 3b 20 54 61 6b 65 20 61 20 | .'"b".'"c").'"abc"))..;;.Take.a. |
| 6fda0 | 76 65 63 74 6f 72 20 6f 66 20 62 79 74 65 73 20 61 6e 64 20 63 6f 70 79 20 74 68 65 20 62 79 74 | vector.of.bytes.and.copy.the.byt |
| 6fdc0 | 65 73 20 74 6f 20 61 20 63 6f 6e 74 69 6e 75 6f 75 73 0a 3b 3b 20 62 6c 6f 63 6b 20 6f 66 20 6d | es.to.a.continuous.;;.block.of.m |
| 6fde0 | 65 6d 6f 72 79 0a 28 64 66 20 61 73 73 65 6d 62 6c 65 5f 20 28 63 6f 6c 29 20 28 21 20 28 21 20 | emory.(df.assemble_.(col).(!.(!. |
| 6fe00 | 42 79 74 65 41 72 72 61 79 20 77 69 74 68 41 6c 6c 3a 20 63 6f 6c 29 20 5f 62 79 74 65 73 29 29 | ByteArray.withAll:.col)._bytes)) |
| 6fe20 | 0a 0a 3b 3b 20 4a 6f 6c 74 20 64 6f 65 73 6e 27 74 20 73 65 65 6d 20 74 6f 20 68 61 76 65 20 63 | ..;;.Jolt.doesn't.seem.to.have.c |
| 6fe40 | 61 74 63 68 2f 74 68 72 6f 77 20 6f 72 20 73 6f 6d 65 74 68 69 6e 67 20 65 71 75 69 76 61 6c 65 | atch/throw.or.something.equivale |
| 6fe60 | 6e 74 2e 0a 3b 3b 20 48 65 72 65 20 49 20 75 73 65 20 61 20 70 61 69 72 20 6f 66 20 61 73 73 65 | nt..;;.Here.I.use.a.pair.of.asse |
| 6fe80 | 6d 62 6c 79 20 72 6f 75 74 69 6e 65 73 20 61 73 20 73 75 62 73 74 69 74 75 65 2e 0a 3b 3b 20 28 | mbly.routines.as.substitue..;;.( |
| 6fea0 | 63 61 74 63 68 25 20 46 55 4e 29 20 63 61 6c 6c 73 20 46 55 4e 20 77 69 74 68 20 74 68 65 20 63 | catch%.FUN).calls.FUN.with.the.c |
| 6fec0 | 75 72 72 65 6e 74 20 73 74 61 63 6b 20 70 6f 69 6e 74 65 72 2e 0a 3b 3b 20 28 74 68 72 6f 77 25 | urrent.stack.pointer..;;.(throw% |
| 6fee0 | 20 56 41 4c 55 45 20 4b 29 20 75 6e 77 69 6e 64 73 20 74 68 65 20 73 74 61 63 6b 20 74 6f 20 4b | .VALUE.K).unwinds.the.stack.to.K |
| 6ff00 | 20 61 6e 64 20 74 68 65 6e 20 72 65 74 75 72 6e 73 20 56 41 4c 55 45 2e 0a 3b 3b 20 63 61 74 63 | .and.then.returns.VALUE..;;.catc |
| 6ff20 | 68 25 20 69 73 20 61 20 62 69 74 20 6c 69 6b 65 20 63 61 6c 6c 2f 63 63 2e 0a 3b 3b 0a 3b 3b 20 | h%.is.a.bit.like.call/cc..;;.;;. |
| 6ff40 | 5b 57 6f 75 6c 64 20 73 65 74 6a 6d 70 2f 6c 6f 6e 67 6a 6d 70 20 77 6f 72 6b 20 66 72 6f 6d 20 | [Would.setjmp/longjmp.work.from. |
| 6ff60 | 4a 6f 6c 74 3f 20 6f 72 20 64 6f 65 73 20 73 65 74 6a 6d 70 20 72 65 71 75 69 72 65 0a 3b 3b 20 | Jolt?.or.does.setjmp.require.;;. |
| 6ff80 | 20 43 2d 63 6f 6d 70 69 6c 65 72 20 6d 61 67 69 63 3f 5d 0a 3b 3b 20 5b 49 20 66 69 67 75 72 65 | .C-compiler.magic?].;;.[I.figure |
| 6ffa0 | 20 53 6d 61 6c 6c 74 61 6c 6b 20 68 61 73 20 61 20 77 61 79 20 74 6f 20 64 6f 20 6e 6f 6e 2d 6c | .Smalltalk.has.a.way.to.do.non-l |
| 6ffc0 | 6f 63 61 6c 2d 65 78 69 74 73 20 62 75 74 2c 20 49 20 64 6f 6e 27 74 20 6b 6e 6f 77 0a 3b 3b 20 | ocal-exits.but,.I.don't.know.;;. |
| 6ffe0 | 20 68 6f 77 20 74 6f 20 75 73 65 20 74 68 61 74 20 69 6e 20 4a 6f 6c 74 2e 5d 0a 3b 3b 0a 28 64 | .how.to.use.that.in.Jolt.].;;.(d |
| 70000 | 65 66 69 6e 65 20 63 61 74 63 68 25 0a 20 20 28 61 73 73 65 6d 62 6c 65 5f 0a 20 20 20 27 28 30 | efine.catch%...(assemble_....'(0 |
| 70020 | 78 35 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | x55............................. |
| 70040 | 20 20 3b 20 70 75 73 68 20 20 20 25 65 62 70 0a 20 20 20 20 20 30 78 38 39 20 30 78 65 35 20 20 | ..;.push...%ebp......0x89.0xe5.. |
| 70060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 6f 76 20 20 20 | ........................;.mov... |
| 70080 | 20 25 65 73 70 2c 25 65 62 70 0a 20 20 20 20 20 30 78 35 34 20 20 20 20 20 20 20 20 20 20 20 20 | .%esp,%ebp......0x54............ |
| 700a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 70 75 73 68 20 20 20 25 65 73 70 | ...................;.push...%esp |
| 700c0 | 0a 20 20 20 20 20 30 78 38 62 20 30 78 34 35 20 30 78 30 38 20 20 20 20 20 20 20 20 20 20 20 20 | ......0x8b.0x45.0x08............ |
| 700e0 | 20 20 20 20 20 20 20 20 20 3b 20 6d 6f 76 20 20 20 20 30 78 38 28 25 65 62 70 29 2c 25 65 61 78 | .........;.mov....0x8(%ebp),%eax |
| 70100 | 0a 20 20 20 20 20 30 78 66 66 20 30 78 64 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......0xff.0xd0................. |
| 70120 | 20 20 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 20 20 20 2a 25 65 61 78 0a 20 20 20 20 20 30 78 63 | .........;.call...*%eax......0xc |
| 70140 | 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 9............................... |
| 70160 | 3b 20 6c 65 61 76 65 20 20 0a 20 20 20 20 20 30 78 63 33 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;.leave........0xc3............. |
| 70180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 74 20 20 20 20 0a 20 20 20 20 | ..................;.ret......... |
| 701a0 | 20 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 74 68 72 6f 77 25 0a 20 20 28 61 73 73 65 6d 62 6c 65 | .)))..(define.throw%...(assemble |
| 701c0 | 5f 0a 20 20 20 60 28 2c 40 27 28 29 0a 20 20 20 20 20 30 78 38 62 20 30 78 34 34 20 30 78 32 34 | _....`(,@'()......0x8b.0x44.0x24 |
| 701e0 | 20 30 78 30 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 6f 76 20 20 20 20 30 78 | .0x04................;.mov....0x |
| 70200 | 34 28 25 65 73 70 29 2c 25 65 61 78 0a 20 20 20 20 20 30 78 38 62 20 30 78 36 63 20 30 78 32 34 | 4(%esp),%eax......0x8b.0x6c.0x24 |
| 70220 | 20 30 78 30 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 6f 76 20 20 20 20 30 78 | .0x08................;.mov....0x |
| 70240 | 38 28 25 65 73 70 29 2c 25 65 62 70 0a 20 20 20 20 20 30 78 63 39 20 20 20 20 20 20 20 20 20 20 | 8(%esp),%ebp......0xc9.......... |
| 70260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6c 65 61 76 65 20 20 09 0a | .....................;.leave.... |
| 70280 | 20 20 20 20 20 30 78 63 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....0xc3....................... |
| 702a0 | 20 20 20 20 20 20 20 20 3b 20 72 65 74 20 20 20 20 0a 20 20 20 20 20 29 29 29 0a 0a 28 64 66 20 | ........;.ret..........)))..(df. |
| 702c0 | 62 61 72 20 28 69 20 20 6b 29 0a 20 20 28 69 66 20 28 3d 3d 20 69 20 30 29 0a 20 20 20 20 20 20 | bar.(i..k)...(if.(==.i.0)....... |
| 702e0 | 28 74 68 72 6f 77 25 20 31 30 30 20 6b 29 0a 20 20 20 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 | (throw%.100.k).......(begin..... |
| 70300 | 20 20 20 28 70 72 69 6e 74 66 20 22 62 61 72 20 25 64 5c 6e 22 20 69 29 0a 20 20 20 20 20 20 20 | ...(printf."bar.%d\n".i)........ |
| 70320 | 28 62 61 72 20 28 2d 20 69 20 31 29 20 6b 29 29 29 29 0a 28 64 66 20 66 6f 6f 20 28 6b 29 0a 20 | (bar.(-.i.1).k)))).(df.foo.(k).. |
| 70340 | 20 28 70 72 69 6e 74 66 20 22 66 6f 6f 2e 31 5c 6e 22 29 0a 20 20 28 70 72 69 6e 74 66 20 22 66 | .(printf."foo.1\n")...(printf."f |
| 70360 | 6f 6f 2e 32 20 25 64 5c 6e 22 20 28 62 61 72 20 31 30 20 6b 29 29 29 0a 0a 3b 3b 20 4f 75 72 20 | oo.2.%d\n".(bar.10.k)))..;;.Our. |
| 70380 | 77 61 79 20 74 6f 20 70 72 6f 64 75 63 65 20 63 6c 6f 73 75 72 65 73 3a 20 77 65 20 63 6f 6d 70 | way.to.produce.closures:.we.comp |
| 703a0 | 69 6c 65 20 61 20 6e 65 77 20 6c 69 74 74 6c 65 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 63 68 0a | ile.a.new.little.function.which. |
| 703c0 | 3b 3b 20 68 61 72 64 63 6f 64 65 73 20 74 68 65 20 61 64 64 72 65 73 73 65 73 20 6f 66 20 74 68 | ;;.hardcodes.the.addresses.of.th |
| 703e0 | 65 20 63 6f 64 65 20 72 65 73 70 2e 20 74 68 65 20 64 61 74 61 2d 76 65 63 74 6f 72 2e 20 20 54 | e.code.resp..the.data-vector...T |
| 70400 | 68 65 0a 3b 3b 20 6e 69 63 65 20 74 68 69 6e 67 20 69 73 20 74 68 61 74 20 73 75 63 68 20 63 6c | he.;;.nice.thing.is.that.such.cl |
| 70420 | 6f 73 75 72 65 73 20 63 61 6e 20 62 65 20 75 73 65 64 20 63 61 6c 6c 65 64 20 43 20 66 75 6e 63 | osures.can.be.used.called.C.func |
| 70440 | 74 69 6f 6e 0a 3b 3b 20 70 6f 69 6e 74 65 72 73 2e 20 20 49 74 27 73 20 70 72 6f 62 61 62 6c 79 | tion.;;.pointers...It's.probably |
| 70460 | 20 73 6c 6f 77 20 74 6f 20 69 6e 76 6f 6b 65 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 66 6f 72 | .slow.to.invoke.the.compiler.for |
| 70480 | 20 73 75 63 68 0a 3b 3b 20 74 68 69 6e 67 73 2c 20 73 6f 20 75 73 65 20 77 69 74 68 20 63 61 72 | .such.;;.things,.so.use.with.car |
| 704a0 | 65 2e 0a 28 64 66 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 28 61 64 64 72 20 73 74 61 74 65 29 | e..(df.make-closure.(addr.state) |
| 704c0 | 0a 20 20 28 69 6e 74 3e 5f 0a 20 20 20 28 21 20 60 28 6c 61 6d 62 64 61 20 28 61 20 62 20 63 20 | ...(int>_....(!.`(lambda.(a.b.c. |
| 704e0 | 64 29 0a 20 20 20 20 20 20 20 20 20 28 2c 28 5f 3e 69 6e 74 20 61 64 64 72 29 20 2c 28 5f 3e 69 | d)..........(,(_>int.addr).,(_>i |
| 70500 | 6e 74 20 73 74 61 74 65 29 20 61 20 62 20 63 20 64 29 29 0a 20 20 20 20 20 20 65 76 61 6c 29 29 | nt.state).a.b.c.d)).......eval)) |
| 70520 | 29 0a 0a 3b 3b 20 52 65 74 75 72 6e 20 61 20 63 6c 6f 73 75 72 65 20 77 68 69 63 68 20 63 61 6c | )..;;.Return.a.closure.which.cal |
| 70540 | 6c 73 20 46 55 4e 20 77 69 74 68 20 41 52 47 53 20 61 6e 64 20 74 68 65 20 61 72 67 75 6d 65 6e | ls.FUN.with.ARGS.and.the.argumen |
| 70560 | 74 73 0a 3b 3b 20 74 68 61 74 20 74 68 65 20 63 6c 6f 73 75 72 65 20 77 61 73 20 63 61 6c 6c 65 | ts.;;.that.the.closure.was.calle |
| 70580 | 64 20 77 69 74 68 2e 20 20 0a 3b 3b 20 45 78 61 6d 70 6c 65 3a 20 28 28 63 75 72 72 79 20 70 72 | d.with....;;.Example:.((curry.pr |
| 705a0 | 69 6e 74 66 20 22 25 64 5c 6e 22 29 20 31 30 29 0a 28 64 65 66 6d 61 63 72 6f 20 63 75 72 72 79 | intf."%d\n").10).(defmacro.curry |
| 705c0 | 20 28 66 75 6e 20 2e 20 61 72 67 73 29 0a 20 20 60 28 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 0a 20 | .(fun...args)...`(make-closure.. |
| 705e0 | 20 20 20 28 6c 61 6d 62 64 61 20 28 73 74 61 74 65 20 61 20 62 20 63 20 64 29 0a 20 20 20 20 20 | ...(lambda.(state.a.b.c.d)...... |
| 70600 | 20 28 28 72 65 66 20 73 74 61 74 65 20 27 30 29 0a 20 20 20 20 20 20 20 2c 40 28 70 61 63 6b 69 | .((ref.state.'0)........,@(packi |
| 70620 | 6e 67 20 28 73 76 29 0a 09 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 28 6c 65 6e 20 61 72 67 | ng.(sv).....(dotimes.(i.(len.arg |
| 70640 | 73 29 29 0a 09 20 20 20 20 20 28 70 61 63 6b 20 60 28 72 65 66 20 73 74 61 74 65 20 27 2c 28 66 | s)).......(pack.`(ref.state.',(f |
| 70660 | 78 31 2b 20 69 29 29 20 73 76 29 29 29 0a 20 20 20 20 20 20 20 61 20 62 20 63 20 64 29 29 0a 20 | x1+.i)).sv)))........a.b.c.d)).. |
| 70680 | 20 20 20 28 76 65 63 20 2c 66 75 6e 20 2c 40 61 72 67 73 29 29 29 0a 0a 28 64 66 20 70 61 72 73 | ...(vec.,fun.,@args)))..(df.pars |
| 706a0 | 65 2d 63 6c 6f 73 75 72 65 2d 61 72 67 6c 69 73 74 20 28 76 61 72 73 29 0a 20 20 28 6c 65 74 20 | e-closure-arglist.(vars)...(let. |
| 706c0 | 28 28 70 6f 73 20 28 6f 72 20 28 69 6e 64 65 78 2d 6f 66 20 76 61 72 73 20 27 7c 29 0a 20 20 20 | ((pos.(or.(index-of.vars.'|).... |
| 706e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 6e 69 6c 29 29 29 0a 20 20 20 | ..............(return.nil))).... |
| 70700 | 20 20 20 20 20 28 63 76 61 72 73 20 28 21 20 76 61 72 73 20 63 6f 70 79 46 72 6f 6d 3a 20 27 30 | .....(cvars.(!.vars.copyFrom:.'0 |
| 70720 | 20 74 6f 3a 20 28 66 78 31 2d 20 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 76 61 72 73 | .to:.(fx1-.pos))).........(lvars |
| 70740 | 20 28 21 20 76 61 72 73 20 63 6f 70 79 46 72 6f 6d 3a 20 28 66 78 31 2b 20 70 6f 73 29 29 29 29 | .(!.vars.copyFrom:.(fx1+.pos)))) |
| 70760 | 0a 20 20 20 20 28 76 65 63 20 63 76 61 72 73 20 6c 76 61 72 73 29 29 29 0a 0a 3b 3b 20 43 72 65 | .....(vec.cvars.lvars)))..;;.Cre |
| 70780 | 61 74 65 20 61 20 63 6c 6f 73 75 72 65 2c 20 74 6f 2d 62 65 2d 63 6c 6f 73 65 64 2d 6f 76 65 72 | ate.a.closure,.to-be-closed-over |
| 707a0 | 20 76 61 72 69 61 62 6c 65 73 20 6d 75 73 74 20 65 6e 75 6d 65 72 61 74 65 64 0a 3b 3b 20 65 78 | .variables.must.enumerated.;;.ex |
| 707c0 | 70 6c 69 63 69 74 6c 79 2e 20 20 0a 3b 3b 20 45 78 61 6d 70 6c 65 3a 20 28 28 6c 65 74 20 28 28 | plicitly....;;.Example:.((let.(( |
| 707e0 | 78 20 31 29 29 20 28 63 6c 6f 73 75 72 65 20 28 78 20 7c 20 79 29 20 28 2b 20 78 20 79 29 29 29 | x.1)).(closure.(x.|.y).(+.x.y))) |
| 70800 | 20 33 29 20 3d 3e 20 34 2e 0a 3b 3b 20 54 68 65 20 76 61 72 69 61 62 6c 65 73 20 62 65 66 6f 72 | .3).=>.4..;;.The.variables.befor |
| 70820 | 65 20 74 68 65 20 22 7c 22 20 61 72 65 20 63 61 70 74 75 72 65 64 20 62 79 20 74 68 65 20 63 6c | e.the."|".are.captured.by.the.cl |
| 70840 | 6f 73 75 72 65 2e 0a 28 64 65 66 6d 61 63 72 6f 20 63 6c 6f 73 75 72 65 20 28 28 2e 20 76 61 72 | osure..(defmacro.closure.((..var |
| 70860 | 73 29 20 2e 20 62 6f 64 79 29 0a 20 20 28 6d 69 66 20 28 28 63 76 61 72 73 20 6c 76 61 72 73 29 | s)...body)...(mif.((cvars.lvars) |
| 70880 | 20 28 70 61 72 73 65 2d 63 6c 6f 73 75 72 65 2d 61 72 67 6c 69 73 74 20 76 61 72 73 29 29 0a 20 | .(parse-closure-arglist.vars)).. |
| 708a0 | 20 20 20 20 20 20 60 28 63 75 72 72 79 20 28 6c 61 6d 62 64 61 20 28 2c 40 63 76 61 72 73 20 2c | ......`(curry.(lambda.(,@cvars., |
| 708c0 | 40 6c 76 61 72 73 29 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c | @lvars).,@body)................, |
| 708e0 | 40 63 76 61 72 73 29 0a 20 20 20 20 20 20 20 28 21 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 | @cvars)........(!.compiler.error |
| 70900 | 53 79 6e 74 61 78 3a 20 76 61 72 73 29 29 29 0a 0a 3b 3b 20 54 68 65 20 61 6e 61 6c 6f 67 20 66 | Syntax:.vars)))..;;.The.analog.f |
| 70920 | 6f 72 20 53 6d 61 6c 6c 74 61 6c 6b 69 73 68 20 22 62 6c 6f 63 6b 73 22 2e 0a 28 64 65 66 6d 61 | or.Smalltalkish."blocks"..(defma |
| 70940 | 63 72 6f 20 62 6c 6f 63 6b 20 28 28 2e 20 76 61 72 73 29 20 2e 20 62 6f 64 79 29 0a 20 20 28 6d | cro.block.((..vars)...body)...(m |
| 70960 | 69 66 20 28 28 63 76 61 72 73 20 6c 76 61 72 73 29 20 28 70 61 72 73 65 2d 63 6c 6f 73 75 72 65 | if.((cvars.lvars).(parse-closure |
| 70980 | 2d 61 72 67 6c 69 73 74 20 76 61 72 73 29 29 0a 20 20 20 20 20 20 20 60 28 21 20 53 74 61 74 69 | -arglist.vars))........`(!.Stati |
| 709a0 | 63 42 6c 6f 63 6b 43 6c 6f 73 75 72 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 66 75 6e 63 74 69 | cBlockClosure.............functi |
| 709c0 | 6f 6e 5f 3a 20 28 63 75 72 72 79 20 28 6c 61 6d 62 64 61 20 28 2c 40 63 76 61 72 73 20 5f 63 6c | on_:.(curry.(lambda.(,@cvars._cl |
| 709e0 | 6f 73 75 72 65 20 5f 73 65 6c 66 20 2c 40 6c 76 61 72 73 29 20 2c 40 62 6f 64 79 29 0a 20 20 20 | osure._self.,@lvars).,@body).... |
| 70a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 63 76 61 72 | ..........................,@cvar |
| 70a20 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 61 72 69 74 79 5f 3a 20 2c 28 6c 65 6e 20 6c 76 61 72 | s)............arity_:.,(len.lvar |
| 70a40 | 73 29 29 0a 20 20 20 20 20 20 20 28 21 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 53 79 6e 74 | s))........(!.compiler.errorSynt |
| 70a60 | 61 78 3a 20 76 61 72 73 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 25 6d 6b 73 74 65 6d 70 20 28 64 | ax:.vars)))..(define.%mkstemp.(d |
| 70a80 | 6c 73 79 6d 20 22 6d 6b 73 74 65 6d 70 22 29 29 0a 28 64 66 20 6d 61 6b 65 2d 74 65 6d 70 2d 66 | lsym."mkstemp")).(df.make-temp-f |
| 70aa0 | 69 6c 65 20 28 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 21 20 27 22 2f 74 6d 70 2f 6a | ile.()...(let.((name.(!.'"/tmp/j |
| 70ac0 | 6f 6c 74 2d 74 6d 70 2e 58 58 58 58 58 58 22 20 63 6f 70 79 29 29 0a 20 20 20 20 20 20 20 20 28 | olt-tmp.XXXXXX".copy)).........( |
| 70ae0 | 66 64 20 28 25 6d 6b 73 74 65 6d 70 20 28 21 20 6e 61 6d 65 20 5f 73 74 72 69 6e 67 56 61 6c 75 | fd.(%mkstemp.(!.name._stringValu |
| 70b00 | 65 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 3d 3d 20 66 64 20 2d 31 29 0a 20 20 20 20 20 20 20 | e)))).....(if.(==.fd.-1)........ |
| 70b20 | 20 28 65 72 72 6f 72 20 22 6d 6b 73 74 65 6d 70 20 66 61 69 6c 65 64 22 29 29 0a 20 20 20 20 60 | .(error."mkstemp.failed")).....` |
| 70b40 | 28 2c 66 64 20 2c 6e 61 6d 65 29 29 29 0a 28 64 65 66 69 6e 65 20 25 75 6e 6c 69 6e 6b 20 28 64 | (,fd.,name))).(define.%unlink.(d |
| 70b60 | 6c 73 79 6d 20 22 75 6e 6c 69 6e 6b 22 29 29 0a 28 64 66 20 75 6e 6c 69 6e 6b 20 28 66 69 6c 65 | lsym."unlink")).(df.unlink.(file |
| 70b80 | 6e 61 6d 65 29 20 28 25 75 6e 6c 69 6e 6b 20 28 21 20 66 69 6c 65 6e 61 6d 65 20 5f 73 74 72 69 | name).(%unlink.(!.filename._stri |
| 70ba0 | 6e 67 56 61 6c 75 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 77 72 69 74 65 20 28 64 6c 73 79 6d | ngValue)))..(define.write.(dlsym |
| 70bc0 | 20 22 77 72 69 74 65 22 29 29 0a 28 64 66 20 77 72 69 74 65 2d 62 79 74 65 73 20 28 61 64 64 72 | ."write")).(df.write-bytes.(addr |
| 70be0 | 20 63 6f 75 6e 74 20 66 64 29 0a 20 20 28 6c 65 74 20 28 28 77 72 69 74 74 65 6e 20 28 77 72 69 | .count.fd)...(let.((written.(wri |
| 70c00 | 74 65 20 66 64 20 61 64 64 72 20 63 6f 75 6e 74 29 29 29 0a 20 20 20 20 28 69 66 20 28 21 3d 20 | te.fd.addr.count))).....(if.(!=. |
| 70c20 | 77 72 69 74 74 65 6e 20 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 0a 20 20 | written.count).........(begin... |
| 70c40 | 20 20 20 20 20 20 20 28 70 72 69 6e 74 66 20 22 77 72 69 74 65 20 66 61 69 6c 65 64 20 25 70 20 | .......(printf."write.failed.%p. |
| 70c60 | 25 64 20 25 64 20 3d 3e 20 25 64 22 20 61 64 64 72 20 63 6f 75 6e 74 20 66 64 20 77 72 69 74 74 | %d.%d.=>.%d".addr.count.fd.writt |
| 70c80 | 65 6e 29 0a 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 27 22 77 72 69 74 65 20 66 61 69 6c | en)..........(error.'"write.fail |
| 70ca0 | 65 64 22 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 73 79 73 74 65 6d 20 28 64 6c 73 79 6d 20 | ed")))))..(define.system.(dlsym. |
| 70cc0 | 22 73 79 73 74 65 6d 22 29 29 0a 28 64 65 66 69 6e 65 20 6d 61 69 6e 20 28 64 6c 73 79 6d 20 22 | "system")).(define.main.(dlsym." |
| 70ce0 | 6d 61 69 6e 22 29 29 0a 0a 3b 3b 20 53 74 61 72 74 69 6e 67 20 61 74 20 61 64 64 72 65 73 73 20 | main"))..;;.Starting.at.address. |
| 70d00 | 41 44 44 52 2c 20 64 69 73 61 73 73 65 6d 62 6c 65 20 43 4f 55 4e 54 20 62 79 74 65 73 2e 0a 3b | ADDR,.disassemble.COUNT.bytes..; |
| 70d20 | 3b 20 54 68 69 73 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 20 77 72 69 74 69 6e 67 | ;.This.is.implemented.by.writing |
| 70d40 | 20 74 68 65 20 6d 65 6d 6f 72 79 20 72 65 67 69 6f 6e 20 74 6f 20 61 20 66 69 6c 65 0a 3b 3b 20 | .the.memory.region.to.a.file.;;. |
| 70d60 | 61 6e 64 20 63 61 6c 6c 20 6e 64 69 73 61 73 6d 20 6f 6e 20 69 74 2e 0a 28 64 66 20 64 69 73 61 | and.call.ndisasm.on.it..(df.disa |
| 70d80 | 73 20 28 61 64 64 72 20 63 6f 75 6e 74 29 0a 20 20 28 6c 65 74 20 28 28 66 64 2b 6e 61 6d 65 20 | s.(addr.count)...(let.((fd+name. |
| 70da0 | 28 6d 61 6b 65 2d 74 65 6d 70 2d 66 69 6c 65 29 29 29 0a 20 20 20 20 28 77 72 69 74 65 2d 62 79 | (make-temp-file))).....(write-by |
| 70dc0 | 74 65 73 20 61 64 64 72 20 63 6f 75 6e 74 20 28 66 69 72 73 74 20 66 64 2b 6e 61 6d 65 29 29 0a | tes.addr.count.(first.fd+name)). |
| 70de0 | 20 20 20 20 28 6c 65 74 20 28 28 63 6d 64 20 28 73 74 72 3e 5f 20 28 63 61 74 20 27 22 6e 64 69 | ....(let.((cmd.(str>_.(cat.'"ndi |
| 70e00 | 73 61 73 6d 20 2d 75 20 2d 6f 20 22 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sasm.-u.-o.".................... |
| 70e20 | 20 20 20 20 20 20 20 20 20 28 3e 73 74 72 20 28 5f 3e 66 69 78 20 61 64 64 72 29 29 0a 20 20 20 | .........(>str.(_>fix.addr)).... |
| 70e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 22 20 22 20 28 73 65 | ........................'".".(se |
| 70e60 | 63 6f 6e 64 20 66 64 2b 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 28 70 72 69 6e 74 66 20 | cond.fd+name))))).......(printf. |
| 70e80 | 22 52 75 6e 6e 69 6e 67 3a 20 25 73 5c 6e 22 20 63 6d 64 29 0a 20 20 20 20 20 20 28 73 79 73 74 | "Running:.%s\n".cmd).......(syst |
| 70ea0 | 65 6d 20 63 6d 64 29 29 0a 20 20 20 20 28 75 6e 6c 69 6e 6b 20 28 73 65 63 6f 6e 64 20 66 64 2b | em.cmd)).....(unlink.(second.fd+ |
| 70ec0 | 6e 61 6d 65 29 29 29 29 0a 0a 28 64 66 20 72 65 70 20 28 29 0a 20 20 28 6c 65 74 20 28 28 72 65 | name))))..(df.rep.()...(let.((re |
| 70ee0 | 73 75 6c 74 20 28 21 20 28 21 20 43 6f 6b 65 53 63 61 6e 6e 65 72 20 72 65 61 64 3a 20 53 74 64 | sult.(!.(!.CokeScanner.read:.Std |
| 70f00 | 49 6e 29 20 65 76 61 6c 29 29 29 0a 20 20 20 20 28 70 75 74 73 20 27 22 3d 3e 20 22 20 53 74 64 | In).eval))).....(puts.'"=>.".Std |
| 70f20 | 4f 75 74 29 0a 20 20 20 20 28 70 72 69 6e 74 20 72 65 73 75 6c 74 29 0a 20 20 20 20 28 70 75 74 | Out).....(print.result).....(put |
| 70f40 | 73 20 27 22 5c 6e 22 20 53 74 64 4f 75 74 29 29 29 0a 0a 3b 3b 20 50 65 72 68 61 70 73 20 77 65 | s.'"\n".StdOut)))..;;.Perhaps.we |
| 70f60 | 20 63 6f 75 6c 64 20 75 73 65 20 73 65 74 63 6f 6e 74 65 78 74 2f 67 65 74 63 6f 6e 74 65 78 74 | .could.use.setcontext/getcontext |
| 70f80 | 20 74 6f 20 72 65 74 75 72 6e 20 66 72 6f 6d 20 73 69 67 6e 61 6c 0a 3b 3b 20 68 61 6e 64 6c 65 | .to.return.from.signal.;;.handle |
| 70fa0 | 72 73 20 28 6f 72 20 6e 6f 74 29 2e 0a 28 64 65 66 69 6e 65 20 2b 75 63 6f 6e 74 65 78 74 2d 73 | rs.(or.not)..(define.+ucontext-s |
| 70fc0 | 69 7a 65 2b 20 33 35 30 29 0a 28 64 65 66 69 6e 65 20 5f 67 65 74 63 6f 6e 74 65 78 74 20 28 64 | ize+.350).(define._getcontext.(d |
| 70fe0 | 6c 73 79 6d 20 22 67 65 74 63 6f 6e 74 65 78 74 22 29 29 0a 28 64 65 66 69 6e 65 20 5f 73 65 74 | lsym."getcontext")).(define._set |
| 71000 | 63 6f 6e 74 65 78 74 20 28 64 6c 73 79 6d 20 22 73 65 74 63 6f 6e 74 65 78 74 22 29 29 0a 28 64 | context.(dlsym."setcontext")).(d |
| 71020 | 66 20 67 65 74 63 6f 6e 74 65 78 74 20 28 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 78 74 | f.getcontext.()...(let.((context |
| 71040 | 20 28 6d 61 6c 6c 6f 63 20 33 35 30 29 29 29 0a 20 20 20 20 28 5f 67 65 74 63 6f 6e 74 65 78 74 | .(malloc.350))).....(_getcontext |
| 71060 | 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 63 6f 6e 74 65 78 74 29 29 0a 0a 28 64 65 66 69 6e 65 | .context).....context))..(define |
| 71080 | 20 6f 6e 5f 65 78 69 74 20 28 64 6c 73 79 6d 20 22 6f 6e 5f 65 78 69 74 22 29 29 20 3b 20 22 61 | .on_exit.(dlsym."on_exit")).;."a |
| 710a0 | 74 65 78 69 74 22 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b 2e 20 77 68 79 3f 0a 0a 28 64 65 66 69 | texit".doesn't.work..why?..(defi |
| 710c0 | 6e 65 20 2a 74 6f 70 2d 6c 65 76 65 6c 2d 72 65 73 74 61 72 74 2a 20 30 29 0a 28 64 65 66 69 6e | ne.*top-level-restart*.0).(defin |
| 710e0 | 65 20 2a 74 6f 70 2d 6c 65 76 65 6c 2d 63 6f 6e 74 65 78 74 2a 20 30 29 0a 28 64 65 66 69 6e 65 | e.*top-level-context*.0).(define |
| 71100 | 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 30 29 0a 0a 3b 3b 20 4a 6f 6c 74 27 73 20 65 | .*debugger-hook*.0)..;;.Jolt's.e |
| 71120 | 72 72 6f 72 20 68 61 6e 64 6c 69 6e 67 20 73 74 72 61 74 65 67 79 20 69 73 20 63 68 61 72 6d 69 | rror.handling.strategy.is.charmi |
| 71140 | 6e 67 6c 79 20 73 69 6d 70 6c 65 3a 20 63 61 6c 6c 20 65 78 69 74 2e 0a 3b 3b 20 57 65 20 69 6e | ngly.simple:.call.exit..;;.We.in |
| 71160 | 76 6f 6b 65 20 74 68 65 20 53 4c 49 4d 45 20 64 65 62 75 67 67 65 72 20 66 72 6f 6d 20 61 6e 20 | voke.the.SLIME.debugger.from.an. |
| 71180 | 65 78 69 74 20 68 61 6e 64 6c 65 72 2e 20 0a 3b 3b 20 28 54 68 65 20 68 61 6e 64 6c 65 72 20 69 | exit.handler...;;.(The.handler.i |
| 711a0 | 73 20 72 65 67 69 73 74 65 72 65 64 20 77 69 74 68 20 61 74 65 78 69 74 2c 20 74 68 61 74 27 73 | s.registered.with.atexit,.that's |
| 711c0 | 20 61 20 6c 69 62 63 20 66 75 6e 63 74 69 6f 6e 2e 29 0a 0a 28 64 66 20 65 78 69 74 2d 68 61 6e | .a.libc.function.)..(df.exit-han |
| 711e0 | 64 6c 65 72 20 28 72 65 61 73 6f 6e 20 61 72 67 29 0a 20 20 28 70 72 69 6e 74 66 20 22 65 78 69 | dler.(reason.arg)...(printf."exi |
| 71200 | 74 2d 68 61 6e 64 6c 65 72 20 30 78 25 78 5c 6e 22 20 72 65 61 73 6f 6e 29 0a 20 20 3b 3b 28 62 | t-handler.0x%x\n".reason)...;;(b |
| 71220 | 61 63 6b 74 72 61 63 65 29 0a 20 20 28 6f 6e 5f 65 78 69 74 20 65 78 69 74 2d 68 61 6e 64 6c 65 | acktrace)...(on_exit.exit-handle |
| 71240 | 72 20 6e 69 6c 29 0a 20 20 28 77 68 65 6e 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 0a 20 | r.nil)...(when.*debugger-hook*.. |
| 71260 | 20 20 20 28 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 60 28 65 78 69 74 20 2c 72 65 61 73 | ...(*debugger-hook*.`(exit.,reas |
| 71280 | 6f 6e 29 29 29 0a 20 20 28 63 6f 6e 64 20 28 2a 74 6f 70 2d 6c 65 76 65 6c 2d 63 6f 6e 74 65 78 | on)))...(cond.(*top-level-contex |
| 712a0 | 74 2a 0a 20 20 20 20 20 20 20 20 20 28 5f 73 65 74 63 6f 6e 74 65 78 74 20 2a 74 6f 70 2d 6c 65 | t*..........(_setcontext.*top-le |
| 712c0 | 76 65 6c 2d 63 6f 6e 74 65 78 74 2a 29 29 0a 20 20 20 20 20 20 20 20 28 2a 74 6f 70 2d 6c 65 76 | vel-context*)).........(*top-lev |
| 712e0 | 65 6c 2d 72 65 73 74 61 72 74 2a 0a 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 25 20 72 65 61 | el-restart*..........(throw%.rea |
| 71300 | 73 6f 6e 20 2a 74 6f 70 2d 6c 65 76 65 6c 2d 72 65 73 74 61 72 74 2a 29 29 29 29 0a 0a 28 64 66 | son.*top-level-restart*))))..(df |
| 71320 | 20 72 65 70 6c 20 28 29 0a 20 20 28 73 65 74 20 2a 74 6f 70 2d 6c 65 76 65 6c 2d 63 6f 6e 74 65 | .repl.()...(set.*top-level-conte |
| 71340 | 78 74 2a 20 28 67 65 74 63 6f 6e 74 65 78 74 29 29 0a 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 | xt*.(getcontext))...(while.(not. |
| 71360 | 28 21 20 28 21 20 53 74 64 49 6e 20 72 65 61 64 53 74 72 65 61 6d 29 20 61 74 45 6e 64 29 29 0a | (!.(!.StdIn.readStream).atEnd)). |
| 71380 | 20 20 20 20 28 70 72 69 6e 74 66 20 22 74 6f 70 2d 6c 65 76 65 6c 5c 6e 22 29 0a 20 20 20 20 28 | ....(printf."top-level\n").....( |
| 713a0 | 63 61 74 63 68 25 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6b 29 0a 20 20 20 20 20 20 20 28 | catch%......(lambda.(k)........( |
| 713c0 | 73 65 74 20 2a 74 6f 70 2d 6c 65 76 65 6c 2d 72 65 73 74 61 72 74 2a 20 6b 29 0a 20 20 20 20 20 | set.*top-level-restart*.k)...... |
| 713e0 | 20 20 28 70 72 69 6e 74 66 20 22 72 65 70 6c 5c 6e 22 29 0a 20 20 20 20 20 20 20 28 77 68 69 6c | ..(printf."repl\n")........(whil |
| 71400 | 65 20 31 0a 20 20 20 20 20 20 20 20 20 28 72 65 70 29 29 29 29 29 0a 20 20 28 70 72 69 6e 74 66 | e.1..........(rep)))))...(printf |
| 71420 | 20 22 45 4f 46 5c 6e 22 29 29 0a 0a 3b 3b 20 28 72 65 70 6c 29 0a 0a 0a 3b 3b 3b 20 53 6f 63 6b | ."EOF\n"))..;;.(repl)...;;;.Sock |
| 71440 | 65 74 20 63 6f 64 65 2e 20 28 48 6f 77 20 62 6f 72 69 6e 67 2e 20 44 75 68 2c 20 73 68 6f 75 6c | et.code..(How.boring..Duh,.shoul |
| 71460 | 64 20 68 61 76 65 20 75 73 65 64 20 6e 65 74 63 61 74 20 69 6e 73 74 65 61 64 2e 29 0a 0a 28 64 | d.have.used.netcat.instead.)..(d |
| 71480 | 65 66 69 6e 65 20 73 74 72 65 72 72 6f 72 20 28 64 6c 73 79 6d 20 22 73 74 72 65 72 72 6f 72 22 | efine.strerror.(dlsym."strerror" |
| 714a0 | 29 29 0a 0a 28 64 66 20 63 68 65 63 6b 2d 6f 73 2d 63 6f 64 65 20 28 76 61 6c 75 65 29 0a 20 20 | ))..(df.check-os-code.(value)... |
| 714c0 | 28 69 66 20 28 3d 3d 20 76 61 6c 75 65 20 2d 31 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 | (if.(==.value.-1).......(error.( |
| 714e0 | 5f 3e 73 74 72 20 28 73 74 72 65 72 72 6f 72 20 28 66 69 78 3e 5f 20 28 21 20 4f 53 20 65 72 72 | _>str.(strerror.(fix>_.(!.OS.err |
| 71500 | 6e 6f 29 29 29 29 29 0a 20 20 20 20 20 20 76 61 6c 75 65 29 29 0a 0a 3b 3b 20 46 6f 72 20 6e 6f | no))))).......value))..;;.For.no |
| 71520 | 77 20 6a 75 73 74 20 68 61 72 64 2d 63 6f 64 65 20 63 6f 6e 73 74 61 6e 74 73 20 77 68 69 63 68 | w.just.hard-code.constants.which |
| 71540 | 20 75 73 75 61 6c 6c 79 20 72 65 73 69 64 65 20 69 6e 20 68 65 61 64 65 72 0a 3b 3b 20 66 69 6c | .usually.reside.in.header.;;.fil |
| 71560 | 65 73 20 28 6a 75 73 74 20 6c 69 6b 65 20 61 20 46 6f 72 74 68 20 67 75 79 20 77 6f 75 6c 64 20 | es.(just.like.a.Forth.guy.would. |
| 71580 | 64 6f 29 2e 0a 28 64 65 66 69 6e 65 20 50 46 5f 49 4e 45 54 20 32 29 0a 28 64 65 66 69 6e 65 20 | do)..(define.PF_INET.2).(define. |
| 715a0 | 53 4f 43 4b 5f 53 54 52 45 41 4d 20 31 29 0a 28 64 65 66 69 6e 65 20 53 4f 4c 5f 53 4f 43 4b 45 | SOCK_STREAM.1).(define.SOL_SOCKE |
| 715c0 | 54 20 31 29 0a 28 64 65 66 69 6e 65 20 53 4f 5f 52 45 55 53 45 41 44 44 52 20 32 29 0a 28 64 65 | T.1).(define.SO_REUSEADDR.2).(de |
| 715e0 | 66 69 6e 65 20 73 6f 63 6b 65 74 20 28 64 6c 73 79 6d 20 22 73 6f 63 6b 65 74 22 29 29 0a 28 64 | fine.socket.(dlsym."socket")).(d |
| 71600 | 65 66 69 6e 65 20 73 65 74 73 6f 63 6b 6f 70 74 20 28 64 6c 73 79 6d 20 22 73 65 74 73 6f 63 6b | efine.setsockopt.(dlsym."setsock |
| 71620 | 6f 70 74 22 29 29 0a 0a 28 64 66 20 73 65 74 2d 72 65 75 73 65 2d 61 64 64 72 65 73 73 20 28 73 | opt"))..(df.set-reuse-address.(s |
| 71640 | 6f 63 6b 20 76 61 6c 75 65 29 0a 20 20 28 6c 65 74 20 28 28 77 6f 72 64 2d 73 69 7a 65 20 34 29 | ock.value)...(let.((word-size.4) |
| 71660 | 0a 20 20 20 20 20 20 20 20 28 76 61 6c 20 28 21 20 4f 62 6a 65 63 74 20 5f 62 61 6c 6c 6f 63 3a | .........(val.(!.Object._balloc: |
| 71680 | 20 28 5f 3e 66 69 78 20 77 6f 72 64 2d 73 69 7a 65 29 29 29 29 0a 20 20 20 20 28 73 65 74 2d 69 | .(_>fix.word-size)))).....(set-i |
| 716a0 | 6e 74 40 20 76 61 6c 20 76 61 6c 75 65 29 0a 20 20 20 20 28 63 68 65 63 6b 2d 6f 73 2d 63 6f 64 | nt@.val.value).....(check-os-cod |
| 716c0 | 65 0a 20 20 20 20 20 28 73 65 74 73 6f 63 6b 6f 70 74 20 73 6f 63 6b 20 53 4f 4c 5f 53 4f 43 4b | e......(setsockopt.sock.SOL_SOCK |
| 716e0 | 45 54 20 53 4f 5f 52 45 55 53 45 41 44 44 52 20 76 61 6c 20 77 6f 72 64 2d 73 69 7a 65 29 29 29 | ET.SO_REUSEADDR.val.word-size))) |
| 71700 | 29 0a 0a 28 64 65 66 69 6e 65 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 7a 65 20 31 36 29 0a | )..(define.sockaddr_in/size.16). |
| 71720 | 28 64 65 66 69 6e 65 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 6e 5f 66 61 6d 69 6c 79 20 30 | (define.sockaddr_in/sin_family.0 |
| 71740 | 29 0a 28 64 65 66 69 6e 65 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 6e 5f 70 6f 72 74 20 32 | ).(define.sockaddr_in/sin_port.2 |
| 71760 | 29 0a 28 64 65 66 69 6e 65 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 6e 5f 61 64 64 72 20 34 | ).(define.sockaddr_in/sin_addr.4 |
| 71780 | 29 0a 28 64 65 66 69 6e 65 20 49 4e 41 44 44 52 5f 41 4e 59 20 30 29 0a 28 64 65 66 69 6e 65 20 | ).(define.INADDR_ANY.0).(define. |
| 717a0 | 41 46 5f 49 4e 45 54 20 32 29 0a 28 64 65 66 69 6e 65 20 68 74 6f 6e 73 20 28 64 6c 73 79 6d 20 | AF_INET.2).(define.htons.(dlsym. |
| 717c0 | 22 68 74 6f 6e 73 22 29 29 0a 28 64 65 66 69 6e 65 20 62 69 6e 64 20 28 64 6c 73 79 6d 20 22 62 | "htons")).(define.bind.(dlsym."b |
| 717e0 | 69 6e 64 22 29 29 0a 0a 28 64 66 20 62 69 6e 64 2d 73 6f 63 6b 65 74 20 28 73 6f 63 6b 20 70 6f | ind"))..(df.bind-socket.(sock.po |
| 71800 | 72 74 29 0a 20 20 28 6c 65 74 20 28 28 61 64 64 72 20 28 21 20 4f 53 20 5f 62 61 6c 6c 6f 63 3a | rt)...(let.((addr.(!.OS._balloc: |
| 71820 | 20 28 5f 3e 66 69 78 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 7a 65 29 29 29 29 0a 20 20 20 | .(_>fix.sockaddr_in/size)))).... |
| 71840 | 20 28 73 65 74 2d 73 68 6f 72 74 40 20 28 2b 20 61 64 64 72 20 73 6f 63 6b 61 64 64 72 5f 69 6e | .(set-short@.(+.addr.sockaddr_in |
| 71860 | 2f 73 69 6e 5f 66 61 6d 69 6c 79 29 20 41 46 5f 49 4e 45 54 29 0a 20 20 20 20 28 73 65 74 2d 73 | /sin_family).AF_INET).....(set-s |
| 71880 | 68 6f 72 74 40 20 28 2b 20 61 64 64 72 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 6e 5f 70 6f | hort@.(+.addr.sockaddr_in/sin_po |
| 718a0 | 72 74 29 20 28 68 74 6f 6e 73 20 70 6f 72 74 29 29 0a 20 20 20 20 28 73 65 74 2d 69 6e 74 40 20 | rt).(htons.port)).....(set-int@. |
| 718c0 | 28 2b 20 61 64 64 72 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 6e 5f 61 64 64 72 29 20 49 4e | (+.addr.sockaddr_in/sin_addr).IN |
| 718e0 | 41 44 44 52 5f 41 4e 59 29 0a 20 20 20 20 28 63 68 65 63 6b 2d 6f 73 2d 63 6f 64 65 20 0a 20 20 | ADDR_ANY).....(check-os-code.... |
| 71900 | 20 20 20 28 62 69 6e 64 20 73 6f 63 6b 20 61 64 64 72 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 | ...(bind.sock.addr.sockaddr_in/s |
| 71920 | 69 7a 65 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 6c 69 73 74 65 6e 20 28 64 6c 73 79 6d 20 22 | ize))))..(define.listen.(dlsym." |
| 71940 | 6c 69 73 74 65 6e 22 29 29 0a 0a 28 64 66 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 28 70 6f | listen"))..(df.create-socket.(po |
| 71960 | 72 74 29 0a 20 20 28 6c 65 74 20 28 28 73 6f 63 6b 20 28 63 68 65 63 6b 2d 6f 73 2d 63 6f 64 65 | rt)...(let.((sock.(check-os-code |
| 71980 | 20 28 73 6f 63 6b 65 74 20 50 46 5f 49 4e 45 54 20 53 4f 43 4b 5f 53 54 52 45 41 4d 20 30 29 29 | .(socket.PF_INET.SOCK_STREAM.0)) |
| 719a0 | 29 29 0a 20 20 20 20 28 73 65 74 2d 72 65 75 73 65 2d 61 64 64 72 65 73 73 20 73 6f 63 6b 20 31 | )).....(set-reuse-address.sock.1 |
| 719c0 | 29 0a 20 20 20 20 28 62 69 6e 64 2d 73 6f 63 6b 65 74 20 73 6f 63 6b 20 70 6f 72 74 29 0a 20 20 | ).....(bind-socket.sock.port)... |
| 719e0 | 20 20 28 63 68 65 63 6b 2d 6f 73 2d 63 6f 64 65 20 28 6c 69 73 74 65 6e 20 73 6f 63 6b 20 31 29 | ..(check-os-code.(listen.sock.1) |
| 71a00 | 29 0a 20 20 20 20 73 6f 63 6b 29 29 0a 0a 28 64 65 66 69 6e 65 20 61 63 63 65 70 74 25 20 28 64 | ).....sock))..(define.accept%.(d |
| 71a20 | 6c 73 79 6d 20 22 61 63 63 65 70 74 22 29 29 0a 28 64 66 20 61 63 63 65 70 74 20 28 73 6f 63 6b | lsym."accept")).(df.accept.(sock |
| 71a40 | 29 0a 20 20 28 6c 65 74 20 28 28 61 64 64 72 20 28 21 20 4f 53 20 5f 62 61 6c 6c 6f 63 3a 20 28 | )...(let.((addr.(!.OS._balloc:.( |
| 71a60 | 5f 3e 66 69 78 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 7a 65 29 29 29 0a 20 20 20 20 20 20 | _>fix.sockaddr_in/size)))....... |
| 71a80 | 20 20 28 6c 65 6e 20 28 21 20 4f 53 20 5f 62 61 6c 6c 6f 63 3a 20 34 29 29 29 0a 20 20 20 20 28 | ..(len.(!.OS._balloc:.4))).....( |
| 71aa0 | 73 65 74 2d 69 6e 74 40 20 6c 65 6e 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 7a 65 29 0a 20 | set-int@.len.sockaddr_in/size).. |
| 71ac0 | 20 20 20 28 63 68 65 63 6b 2d 6f 73 2d 63 6f 64 65 20 28 61 63 63 65 70 74 25 20 73 6f 63 6b 20 | ...(check-os-code.(accept%.sock. |
| 71ae0 | 61 64 64 72 20 6c 65 6e 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 67 65 74 73 6f 63 6b 6e 61 6d | addr.len))))..(define.getsocknam |
| 71b00 | 65 20 28 64 6c 73 79 6d 20 22 67 65 74 73 6f 63 6b 6e 61 6d 65 22 29 29 0a 28 64 65 66 69 6e 65 | e.(dlsym."getsockname")).(define |
| 71b20 | 20 6e 74 6f 68 73 20 28 64 6c 73 79 6d 20 22 6e 74 6f 68 73 22 29 29 0a 28 64 66 20 6c 6f 63 61 | .ntohs.(dlsym."ntohs")).(df.loca |
| 71b40 | 6c 2d 70 6f 72 74 20 28 73 6f 63 6b 29 0a 20 20 28 6c 65 74 20 28 28 61 64 64 72 20 28 21 20 4f | l-port.(sock)...(let.((addr.(!.O |
| 71b60 | 53 20 5f 62 61 6c 6c 6f 63 3a 20 28 5f 3e 66 69 78 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 | S._balloc:.(_>fix.sockaddr_in/si |
| 71b80 | 7a 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 6e 20 28 21 20 4f 53 20 5f 62 61 6c 6c 6f 63 | ze))).........(len.(!.OS._balloc |
| 71ba0 | 3a 20 34 29 29 29 0a 20 20 20 20 28 73 65 74 2d 69 6e 74 40 20 6c 65 6e 20 73 6f 63 6b 61 64 64 | :.4))).....(set-int@.len.sockadd |
| 71bc0 | 72 5f 69 6e 2f 73 69 7a 65 29 0a 20 20 20 20 28 63 68 65 63 6b 2d 6f 73 2d 63 6f 64 65 0a 20 20 | r_in/size).....(check-os-code... |
| 71be0 | 20 20 20 28 67 65 74 73 6f 63 6b 6e 61 6d 65 20 73 6f 63 6b 20 61 64 64 72 20 6c 65 6e 29 29 0a | ...(getsockname.sock.addr.len)). |
| 71c00 | 20 20 20 20 28 6e 74 6f 68 73 20 28 73 68 6f 72 74 40 20 28 2b 20 61 64 64 72 20 73 6f 63 6b 61 | ....(ntohs.(short@.(+.addr.socka |
| 71c20 | 64 64 72 5f 69 6e 2f 73 69 6e 5f 70 6f 72 74 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 63 6c | ddr_in/sin_port)))))..(define.cl |
| 71c40 | 6f 73 65 20 28 64 6c 73 79 6d 20 22 63 6c 6f 73 65 22 29 29 0a 28 64 65 66 69 6e 65 20 5f 72 65 | ose.(dlsym."close")).(define._re |
| 71c60 | 61 64 20 28 64 6c 73 79 6d 20 22 72 65 61 64 22 29 29 0a 0a 3b 3b 20 4e 6f 77 2c 20 61 66 74 65 | ad.(dlsym."read"))..;;.Now,.afte |
| 71c80 | 72 20 32 2f 33 20 6f 66 20 74 68 65 20 66 69 6c 65 20 77 65 20 63 61 6e 20 62 65 67 69 6e 20 77 | r.2/3.of.the.file.we.can.begin.w |
| 71ca0 | 69 74 68 20 74 68 65 20 61 63 74 75 61 6c 20 53 77 61 6e 6b 0a 3b 3b 20 73 65 72 76 65 72 2e 0a | ith.the.actual.Swank.;;.server.. |
| 71cc0 | 0a 28 64 66 20 72 65 61 64 2d 73 74 72 69 6e 67 20 28 66 64 20 63 6f 75 6e 74 29 0a 20 20 28 6c | .(df.read-string.(fd.count)...(l |
| 71ce0 | 65 74 20 28 28 62 75 66 66 65 72 20 28 21 20 53 74 72 69 6e 67 20 6e 65 77 3a 20 63 6f 75 6e 74 | et.((buffer.(!.String.new:.count |
| 71d00 | 29 29 0a 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 5f 20 28 73 74 72 3e 5f 20 62 75 66 66 65 | )).........(buffer_.(str>_.buffe |
| 71d20 | 72 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 75 6e 74 5f 20 28 69 6e 74 3e 5f 20 63 6f 75 6e 74 | r)).........(count_.(int>_.count |
| 71d40 | 29 29 0a 20 20 20 20 20 20 20 20 28 73 74 61 72 74 20 30 29 29 0a 20 20 20 20 28 77 68 69 6c 65 | )).........(start.0)).....(while |
| 71d60 | 20 28 3e 20 28 2d 20 63 6f 75 6e 74 5f 20 73 74 61 72 74 29 20 30 29 0a 20 20 20 20 20 20 28 6c | .(>.(-.count_.start).0).......(l |
| 71d80 | 65 74 20 28 28 72 63 6f 75 6e 74 20 28 63 68 65 63 6b 2d 6f 73 2d 63 6f 64 65 20 28 5f 72 65 61 | et.((rcount.(check-os-code.(_rea |
| 71da0 | 64 20 66 64 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.fd............................ |
| 71dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 62 75 66 66 65 72 5f 20 73 74 61 72 74 | ................(+.buffer_.start |
| 71de0 | 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 71e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 63 6f 75 6e 74 5f 20 73 74 61 72 74 29 29 29 29 | .............(-.count_.start)))) |
| 71e20 | 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 20 73 74 61 72 74 20 28 2b 20 73 74 61 72 74 20 72 63 | ).........(set.start.(+.start.rc |
| 71e40 | 6f 75 6e 74 29 29 29 29 0a 20 20 20 20 62 75 66 66 65 72 29 29 0a 0a 3b 3b 20 52 65 61 64 20 61 | ount)))).....buffer))..;;.Read.a |
| 71e60 | 6e 64 20 70 61 72 73 65 20 61 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 74 68 65 20 77 69 72 65 | nd.parse.a.message.from.the.wire |
| 71e80 | 2e 0a 28 64 66 20 72 65 61 64 2d 70 61 63 6b 65 74 20 28 66 64 29 0a 20 20 28 6c 65 74 20 28 28 | ..(df.read-packet.(fd)...(let.(( |
| 71ea0 | 68 65 61 64 65 72 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 66 64 20 27 36 29 29 0a 20 20 20 20 | header.(read-string.fd.'6))..... |
| 71ec0 | 20 20 20 20 28 6c 65 6e 67 74 68 20 28 21 20 49 6e 74 65 67 65 72 20 66 72 6f 6d 53 74 72 69 6e | ....(length.(!.Integer.fromStrin |
| 71ee0 | 67 3a 20 68 65 61 64 65 72 20 62 61 73 65 3a 20 27 31 36 29 29 0a 20 20 20 20 20 20 20 20 28 70 | g:.header.base:.'16)).........(p |
| 71f00 | 61 79 6c 6f 61 64 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 66 64 20 6c 65 6e 67 74 68 29 29 29 | ayload.(read-string.fd.length))) |
| 71f20 | 0a 20 20 20 20 28 21 20 43 6f 6b 65 53 63 61 6e 6e 65 72 20 72 65 61 64 3a 20 70 61 79 6c 6f 61 | .....(!.CokeScanner.read:.payloa |
| 71f40 | 64 29 29 29 0a 0a 3b 3b 20 50 72 69 6e 74 20 61 20 6d 65 73 73 61 67 20 74 6f 20 74 68 65 20 77 | d)))..;;.Print.a.messag.to.the.w |
| 71f60 | 69 72 65 2e 0a 28 64 66 20 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 28 65 76 65 6e 74 20 66 64 | ire..(df.send-to-emacs.(event.fd |
| 71f80 | 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 65 61 6d 20 28 21 20 57 72 69 74 65 53 74 72 65 61 6d | )...(let.((stream.(!.WriteStream |
| 71fa0 | 20 6f 6e 3a 20 28 21 20 53 74 72 69 6e 67 20 6e 65 77 3a 20 27 31 30 30 29 29 29 29 0a 20 20 20 | .on:.(!.String.new:.'100)))).... |
| 71fc0 | 20 28 21 20 73 74 72 65 61 6d 20 70 6f 73 69 74 69 6f 6e 3a 20 27 36 29 0a 20 20 20 20 28 70 72 | .(!.stream.position:.'6).....(pr |
| 71fe0 | 69 6e 31 20 65 76 65 6e 74 20 73 74 72 65 61 6d 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 65 6e | in1.event.stream).....(let.((len |
| 72000 | 20 28 21 20 73 74 72 65 61 6d 20 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 21 20 | .(!.stream.position))).......(!. |
| 72020 | 73 74 72 65 61 6d 20 70 6f 73 69 74 69 6f 6e 3a 20 27 30 29 0a 20 20 20 20 20 20 28 21 20 28 66 | stream.position:.'0).......(!.(f |
| 72040 | 78 2b 20 6c 65 6e 20 27 2d 36 29 20 70 72 69 6e 74 4f 6e 3a 20 73 74 72 65 61 6d 20 62 61 73 65 | x+.len.'-6).printOn:.stream.base |
| 72060 | 3a 20 27 31 36 20 77 69 64 74 68 3a 20 27 36 29 0a 20 20 20 20 20 20 28 77 72 69 74 65 2d 62 79 | :.'16.width:.'6).......(write-by |
| 72080 | 74 65 73 20 28 73 74 72 3e 5f 20 28 21 20 73 74 72 65 61 6d 20 63 6f 6c 6c 65 63 74 69 6f 6e 29 | tes.(str>_.(!.stream.collection) |
| 720a0 | 29 20 28 69 6e 74 3e 5f 20 6c 65 6e 29 20 66 64 29 29 29 29 0a 0a 28 64 66 20 61 64 64 2d 71 75 | ).(int>_.len).fd))))..(df.add-qu |
| 720c0 | 6f 74 65 73 20 28 66 6f 72 6d 29 0a 20 20 28 6d 63 61 73 65 20 66 6f 72 6d 0a 20 20 20 20 28 28 | otes.(form)...(mcase.form.....(( |
| 720e0 | 66 75 6e 20 2e 20 61 72 67 73 29 0a 20 20 20 20 20 60 28 2c 66 75 6e 20 2c 40 28 70 61 63 6b 69 | fun...args)......`(,fun.,@(packi |
| 72100 | 6e 67 20 28 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 76 65 63 20 28 65 | ng.(s).................(dovec.(e |
| 72120 | 20 61 72 67 73 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 | .args)....................(pack. |
| 72140 | 60 28 71 75 6f 74 65 20 2c 65 29 20 73 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 73 6c | `(quote.,e).s)))))))..(define.sl |
| 72160 | 64 62 20 30 29 20 3b 64 65 66 65 72 0a 0a 28 64 66 20 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 | db.0).;defer..(df.eval-for-emacs |
| 72180 | 20 28 66 6f 72 6d 20 69 64 20 66 64 20 61 62 6f 72 74 29 0a 20 20 28 6c 65 74 20 28 28 6f 6c 64 | .(form.id.fd.abort)...(let.((old |
| 721a0 | 2d 68 6f 6f 6b 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 29 29 0a 20 20 20 20 28 6d 63 61 | -hook.*debugger-hook*)).....(mca |
| 721c0 | 73 65 20 28 63 61 74 63 68 25 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 6f 73 75 72 65 20 | se.(catch%.............(closure. |
| 721e0 | 28 66 6f 72 6d 20 66 64 20 7c 20 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | (form.fd.|.k)...............(set |
| 72200 | 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 28 63 75 72 72 79 20 73 6c 64 62 20 66 64 20 | .*debugger-hook*.(curry.sldb.fd. |
| 72220 | 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6f 6b 20 2c 28 69 6e 74 3e 5f 20 28 | k))...............`(ok.,(int>_.( |
| 72240 | 21 20 28 61 64 64 2d 71 75 6f 74 65 73 20 66 6f 72 6d 29 20 65 76 61 6c 29 29 29 29 29 0a 20 20 | !.(add-quotes.form).eval)))))... |
| 72260 | 20 20 20 20 28 28 27 6f 6b 20 76 61 6c 75 65 29 20 0a 20 20 20 20 20 20 20 28 73 65 74 20 2a 64 | ....(('ok.value).........(set.*d |
| 72280 | 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 6f 6c 64 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 28 | ebugger-hook*.old-hook)........( |
| 722a0 | 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 72 65 74 75 72 6e 20 28 3a 6f 6b 20 2c 76 61 | send-to-emacs.`(:return.(:ok.,va |
| 722c0 | 6c 75 65 29 20 2c 69 64 29 20 66 64 29 0a 20 20 20 20 20 20 20 27 6f 6b 29 0a 20 20 20 20 20 20 | lue).,id).fd)........'ok)....... |
| 722e0 | 28 61 72 67 0a 20 20 20 20 20 20 20 28 73 65 74 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a | (arg........(set.*debugger-hook* |
| 72300 | 20 6f 6c 64 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 | .old-hook)........(send-to-emacs |
| 72320 | 20 60 28 3a 72 65 74 75 72 6e 20 28 3a 61 62 6f 72 74 29 20 2c 69 64 29 20 66 64 29 0a 20 20 20 | .`(:return.(:abort).,id).fd).... |
| 72340 | 20 20 20 20 28 74 68 72 6f 77 25 20 61 72 67 20 61 62 6f 72 74 29 29 29 29 29 0a 0a 28 64 66 20 | ....(throw%.arg.abort)))))..(df. |
| 72360 | 70 72 6f 63 65 73 73 2d 65 76 65 6e 74 73 20 28 66 64 29 0a 20 20 28 6f 6e 5f 65 78 69 74 20 65 | process-events.(fd)...(on_exit.e |
| 72380 | 78 69 74 2d 68 61 6e 64 6c 65 72 20 6e 69 6c 29 0a 20 20 28 6c 65 74 20 28 28 64 6f 6e 65 20 6e | xit-handler.nil)...(let.((done.n |
| 723a0 | 69 6c 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 64 6f 6e 65 29 0a 20 20 20 20 20 | il)).....(while.(not.done)...... |
| 723c0 | 20 28 6d 63 61 73 65 20 28 72 65 61 64 2d 70 61 63 6b 65 74 20 66 64 29 0a 20 20 20 20 20 20 20 | .(mcase.(read-packet.fd)........ |
| 723e0 | 20 28 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 66 6f 72 6d 20 70 61 63 6b 61 67 65 20 74 68 72 65 | .((':emacs-rex.form.package.thre |
| 72400 | 61 64 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 28 6d 63 61 73 65 20 28 63 61 74 63 68 25 20 28 | ad.id)..........(mcase.(catch%.( |
| 72420 | 63 6c 6f 73 75 72 65 20 28 66 6f 72 6d 20 69 64 20 66 64 20 7c 20 61 62 6f 72 74 29 0a 20 20 20 | closure.(form.id.fd.|.abort).... |
| 72440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 2d 66 6f 72 | .......................(eval-for |
| 72460 | 2d 65 6d 61 63 73 20 66 6f 72 6d 20 69 64 20 66 64 20 61 62 6f 72 74 29 29 29 0a 20 20 20 20 20 | -emacs.form.id.fd.abort)))...... |
| 72480 | 20 20 20 20 20 20 28 27 6f 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 27 61 62 6f 72 74 | ......('ok)............;;('abort |
| 724a0 | 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 27 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 | .nil)............('top-level)... |
| 724c0 | 20 20 20 20 20 20 20 20 20 28 6f 74 68 65 72 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 | .........(other..............;;( |
| 724e0 | 72 65 74 75 72 6e 20 6f 74 68 65 72 29 20 3b 20 63 6f 6d 70 69 6c 65 72 20 62 72 65 61 6b 73 20 | return.other).;.compiler.breaks. |
| 72500 | 77 69 74 68 20 72 65 74 75 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 64 6f 6e | with.return.............(set.don |
| 72520 | 65 20 31 29 29 29 29 29 29 29 29 0a 0a 28 64 66 20 6e 65 78 74 2d 66 72 61 6d 65 20 28 66 70 29 | e.1))))))))..(df.next-frame.(fp) |
| 72540 | 0a 20 20 28 6c 65 74 20 28 28 6e 65 78 74 20 28 67 65 74 2d 63 61 6c 6c 65 72 2d 66 70 20 66 70 | ...(let.((next.(get-caller-fp.fp |
| 72560 | 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 21 3d 20 6e 65 78 74 20 66 70 29 20 0a 20 | ))).....(if.(and.(!=.next.fp)... |
| 72580 | 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 3d 20 6e 65 78 74 20 25 74 6f 70 2d 6c 65 76 65 6c 2d | ............(<=.next.%top-level- |
| 725a0 | 66 70 29 29 0a 20 20 20 20 20 20 20 20 6e 65 78 74 0a 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 | fp)).........next.........nil))) |
| 725c0 | 0a 0a 28 64 66 20 6e 74 68 2d 66 72 61 6d 65 20 28 6e 20 74 6f 70 29 0a 20 20 28 6c 65 74 20 28 | ..(df.nth-frame.(n.top)...(let.( |
| 725e0 | 28 66 70 20 74 6f 70 29 0a 20 20 20 20 20 20 20 20 28 69 20 30 29 29 0a 20 20 20 20 28 77 68 69 | (fp.top).........(i.0)).....(whi |
| 72600 | 6c 65 20 66 70 0a 20 20 20 20 20 20 28 69 66 20 28 3d 3d 20 69 20 6e 29 20 28 72 65 74 75 72 6e | le.fp.......(if.(==.i.n).(return |
| 72620 | 20 66 70 29 29 0a 20 20 20 20 20 20 28 73 65 74 20 66 70 20 28 6e 65 78 74 2d 66 72 61 6d 65 20 | .fp)).......(set.fp.(next-frame. |
| 72640 | 66 70 29 29 0a 20 20 20 20 20 20 28 73 65 74 20 69 20 28 2b 20 69 20 31 29 29 29 0a 20 20 20 20 | fp)).......(set.i.(+.i.1)))..... |
| 72660 | 6e 69 6c 29 29 0a 0a 28 64 65 66 69 6e 65 20 44 6c 5f 69 6e 66 6f 2f 73 69 7a 65 20 31 36 29 0a | nil))..(define.Dl_info/size.16). |
| 72680 | 28 64 65 66 69 6e 65 20 44 6c 5f 69 6e 66 6f 2f 64 6c 69 5f 66 6e 61 6d 65 20 30 29 0a 28 64 65 | (define.Dl_info/dli_fname.0).(de |
| 726a0 | 66 69 6e 65 20 44 6c 5f 69 6e 66 6f 2f 64 6c 69 5f 73 6e 61 6d 65 20 38 29 0a 0a 28 64 66 20 67 | fine.Dl_info/dli_sname.8)..(df.g |
| 726c0 | 65 74 2d 64 6c 2d 73 79 6d 2d 6e 61 6d 65 20 28 61 64 64 72 29 0a 20 20 28 6c 65 74 20 28 28 69 | et-dl-sym-name.(addr)...(let.((i |
| 726e0 | 6e 66 6f 20 28 21 20 4f 53 20 5f 62 61 6c 6c 6f 63 3a 20 28 5f 3e 66 69 78 20 44 6c 5f 69 6e 66 | nfo.(!.OS._balloc:.(_>fix.Dl_inf |
| 72700 | 6f 2f 73 69 7a 65 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 3d 3d 20 28 64 6c 61 64 64 72 | o/size)))).....(when.(==.(dladdr |
| 72720 | 20 61 64 64 72 20 69 6e 66 6f 29 20 30 29 0a 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 6e 69 6c | .addr.info).0).......(return.nil |
| 72740 | 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 6e 61 6d 65 20 28 6c 6f 6e 67 40 20 28 2b 20 69 6e | )).....(let.((sname.(long@.(+.in |
| 72760 | 66 6f 20 44 6c 5f 69 6e 66 6f 2f 64 6c 69 5f 73 6e 61 6d 65 29 29 20 29 0a 20 20 20 20 20 20 20 | fo.Dl_info/dli_sname)).)........ |
| 72780 | 20 20 20 28 66 6e 61 6d 65 20 28 6c 6f 6e 67 40 20 28 2b 20 69 6e 66 6f 20 44 6c 5f 69 6e 66 6f | ...(fname.(long@.(+.info.Dl_info |
| 727a0 | 2f 64 6c 69 5f 66 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 | /dli_fname)))).......(cond.((and |
| 727c0 | 20 73 6e 61 6d 65 20 66 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 74 20 | .sname.fname)..............(cat. |
| 727e0 | 28 5f 3e 73 74 72 20 73 6e 61 6d 65 29 20 27 22 20 69 6e 20 22 20 28 5f 3e 73 74 72 20 66 6e 61 | (_>str.sname).'".in.".(_>str.fna |
| 72800 | 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6e 61 6d 65 20 28 5f 3e 73 74 72 20 | me))).............(sname.(_>str. |
| 72820 | 66 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6e 61 6d 65 20 28 63 61 74 20 | fname)).............(fname.(cat. |
| 72840 | 27 22 3c 3f 3f 3e 20 22 20 28 5f 3e 73 74 72 20 66 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 | '"<??>.".(_>str.fname)))........ |
| 72860 | 20 20 20 20 20 28 74 72 75 65 20 6e 69 6c 29 29 29 29 29 0a 0a 3b 3b 28 67 65 74 2d 64 6c 2d 73 | .....(true.nil)))))..;;(get-dl-s |
| 72880 | 79 6d 2d 6e 61 6d 65 20 70 72 69 6e 74 66 29 0a 0a 28 64 66 20 67 75 65 73 73 2d 66 75 6e 63 74 | ym-name.printf)..(df.guess-funct |
| 728a0 | 69 6f 6e 2d 6e 61 6d 65 20 28 69 70 29 0a 20 20 28 6c 65 74 20 28 28 66 6e 61 6d 65 20 28 67 65 | ion-name.(ip)...(let.((fname.(ge |
| 728c0 | 74 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 69 70 29 29 29 0a 20 20 20 20 28 69 66 20 66 6e | t-function-name.ip))).....(if.fn |
| 728e0 | 61 6d 65 0a 20 20 20 20 20 20 20 20 28 5f 3e 73 74 72 20 66 6e 61 6d 65 29 20 0a 20 20 20 20 20 | ame.........(_>str.fname)....... |
| 72900 | 20 20 20 28 67 65 74 2d 64 6c 2d 73 79 6d 2d 6e 61 6d 65 20 69 70 29 29 29 29 0a 0a 28 64 66 20 | ...(get-dl-sym-name.ip))))..(df. |
| 72920 | 62 61 63 6b 74 72 61 63 65 3e 65 6c 20 28 74 6f 70 5f 20 66 72 6f 6d 5f 20 74 6f 5f 29 0a 20 20 | backtrace>el.(top_.from_.to_)... |
| 72940 | 28 6c 65 74 20 28 28 66 70 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 6f 6d 5f 20 74 6f 70 5f 29 | (let.((fp.(nth-frame.from_.top_) |
| 72960 | 29 0a 20 20 20 20 20 20 20 20 28 69 20 66 72 6f 6d 5f 29 29 0a 20 20 20 20 28 70 61 63 6b 69 6e | ).........(i.from_)).....(packin |
| 72980 | 67 20 28 62 74 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 66 70 20 28 3c 20 69 | g.(bt).......(while.(and.fp.(<.i |
| 729a0 | 20 74 6f 5f 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 70 20 28 67 65 74 2d 66 72 | .to_)).........(let.((ip.(get-fr |
| 729c0 | 61 6d 65 2d 69 70 20 66 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 76 65 | ame-ip.fp)))...........(pack.(ve |
| 729e0 | 63 20 28 5f 3e 69 6e 74 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | c.(_>int.i)..................... |
| 72a00 | 20 28 63 61 74 20 28 6f 72 20 28 67 75 65 73 73 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 69 | .(cat.(or.(guess-function-name.i |
| 72a20 | 70 29 20 27 22 28 6e 6f 2d 6e 61 6d 65 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p).'"(no-name)")................ |
| 72a40 | 20 20 20 20 20 20 20 20 20 20 20 27 22 20 22 20 3b 3b 28 3e 73 74 72 20 28 5f 3e 69 6e 74 20 69 | ...........'".".;;(>str.(_>int.i |
| 72a60 | 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 | p))...........................)) |
| 72a80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 74 29 29 0a 20 20 20 20 20 20 20 20 28 73 | .................bt)).........(s |
| 72aa0 | 65 74 20 69 20 28 2b 20 69 20 31 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 20 66 70 20 28 6e | et.i.(+.i.1)).........(set.fp.(n |
| 72ac0 | 65 78 74 2d 66 72 61 6d 65 20 66 70 29 29 29 29 29 29 0a 20 0a 28 64 66 20 64 65 62 75 67 67 65 | ext-frame.fp))))))...(df.debugge |
| 72ae0 | 72 2d 69 6e 66 6f 20 28 66 70 20 6d 73 67 29 0a 20 20 28 76 65 63 20 60 28 2c 28 70 72 69 6e 31 | r-info.(fp.msg)...(vec.`(,(prin1 |
| 72b00 | 2d 74 6f 2d 73 74 72 69 6e 67 20 6d 73 67 29 20 22 20 5b 74 79 70 65 20 2e 2e 2e 5d 22 20 28 29 | -to-string.msg).".[type....]".() |
| 72b20 | 29 0a 20 20 20 20 20 20 20 27 28 28 22 71 75 69 74 22 20 22 52 65 74 75 72 6e 20 74 6f 20 74 6f | )........'(("quit"."Return.to.to |
| 72b40 | 70 20 6c 65 76 65 6c 22 29 29 0a 20 20 20 20 20 20 20 28 62 61 63 6b 74 72 61 63 65 3e 65 6c 20 | p.level"))........(backtrace>el. |
| 72b60 | 66 70 20 30 20 32 30 29 0a 20 20 20 20 20 20 20 27 28 29 29 29 0a 20 20 20 20 20 20 20 0a 28 64 | fp.0.20)........'())).........(d |
| 72b80 | 65 66 69 6e 65 20 2a 74 6f 70 2d 66 72 61 6d 65 2a 20 30 29 0a 28 64 65 66 69 6e 65 20 2a 73 6c | efine.*top-frame*.0).(define.*sl |
| 72ba0 | 64 62 2d 71 75 69 74 2a 20 30 29 0a 0a 28 64 66 20 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 20 28 | db-quit*.0)..(df.debugger-loop.( |
| 72bc0 | 66 64 20 61 72 67 73 20 61 62 6f 72 74 29 0a 20 20 28 6c 65 74 20 28 28 66 70 20 28 67 65 74 2d | fd.args.abort)...(let.((fp.(get- |
| 72be0 | 63 75 72 72 65 6e 74 2d 66 70 29 29 29 0a 20 20 20 20 28 73 65 74 20 2a 74 6f 70 2d 66 72 61 6d | current-fp))).....(set.*top-fram |
| 72c00 | 65 2a 20 66 70 29 0a 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 64 65 62 | e*.fp).....(send-to-emacs.`(:deb |
| 72c20 | 75 67 20 30 20 31 20 2c 40 28 64 65 62 75 67 67 65 72 2d 69 6e 66 6f 20 66 70 20 61 72 67 73 29 | ug.0.1.,@(debugger-info.fp.args) |
| 72c40 | 29 20 66 64 29 0a 20 20 20 20 28 77 68 69 6c 65 20 31 0a 20 20 20 20 20 20 28 6d 63 61 73 65 20 | ).fd).....(while.1.......(mcase. |
| 72c60 | 28 72 65 61 64 2d 70 61 63 6b 65 74 20 66 64 29 0a 20 20 20 20 20 20 20 20 28 28 27 3a 65 6d 61 | (read-packet.fd).........((':ema |
| 72c80 | 63 73 2d 72 65 78 20 66 6f 72 6d 20 70 61 63 6b 61 67 65 20 74 68 72 65 61 64 20 69 64 29 0a 20 | cs-rex.form.package.thread.id).. |
| 72ca0 | 20 20 20 20 20 20 20 20 28 6d 63 61 73 65 20 28 63 61 74 63 68 25 20 28 63 6c 6f 73 75 72 65 20 | ........(mcase.(catch%.(closure. |
| 72cc0 | 28 66 6f 72 6d 20 69 64 20 66 64 20 7c 20 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (form.id.fd.|.k)................ |
| 72ce0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 2a 73 6c 64 62 2d 71 75 69 74 2a 20 6b 29 0a 20 | ...........(set.*sldb-quit*.k).. |
| 72d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 2d 66 | .........................(eval-f |
| 72d20 | 6f 72 2d 65 6d 61 63 73 20 66 6f 72 6d 20 69 64 20 66 64 20 6b 29 0a 20 20 20 20 20 20 20 20 20 | or-emacs.form.id.fd.k).......... |
| 72d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6f 6b 29 29 0a 20 20 20 20 20 20 20 20 20 | .................'ok)).......... |
| 72d60 | 20 20 28 27 6f 6b 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 74 68 65 72 0a 20 20 | ..('ok.nil)............(other... |
| 72d80 | 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 72 65 74 75 | ..........(send-to-emacs.`(:retu |
| 72da0 | 72 6e 20 28 3a 61 62 6f 72 74 29 20 2c 69 64 29 20 66 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 | rn.(:abort).,id).fd)............ |
| 72dc0 | 20 28 74 68 72 6f 77 25 20 6f 74 68 65 72 20 61 62 6f 72 74 29 29 29 29 29 29 29 29 0a 0a 28 64 | .(throw%.other.abort))))))))..(d |
| 72de0 | 66 20 73 6c 64 62 20 28 66 64 20 61 62 6f 72 74 20 61 72 67 73 29 0a 20 20 28 6c 65 74 20 28 28 | f.sldb.(fd.abort.args)...(let.(( |
| 72e00 | 6f 6c 64 2d 74 6f 70 2d 66 72 61 6d 65 20 2a 74 6f 70 2d 66 72 61 6d 65 2a 29 0a 20 20 20 20 20 | old-top-frame.*top-frame*)...... |
| 72e20 | 20 20 20 28 6f 6c 64 2d 73 6c 64 62 2d 71 75 69 74 20 2a 73 6c 64 62 2d 71 75 69 74 2a 29 29 0a | ...(old-sldb-quit.*sldb-quit*)). |
| 72e40 | 20 20 20 20 28 6d 63 61 73 65 20 28 63 61 74 63 68 25 20 28 63 75 72 72 79 20 64 65 62 75 67 67 | ....(mcase.(catch%.(curry.debugg |
| 72e60 | 65 72 2d 6c 6f 6f 70 20 66 64 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 28 76 61 6c 75 65 0a 20 | er-loop.fd.args)).......(value.. |
| 72e80 | 20 20 20 20 20 20 28 73 65 74 20 2a 74 6f 70 2d 66 72 61 6d 65 2a 20 6f 6c 64 2d 74 6f 70 2d 66 | ......(set.*top-frame*.old-top-f |
| 72ea0 | 72 61 6d 65 29 0a 20 20 20 20 20 20 20 28 73 65 74 20 2a 73 6c 64 62 2d 71 75 69 74 2a 20 6f 6c | rame)........(set.*sldb-quit*.ol |
| 72ec0 | 64 2d 73 6c 64 62 2d 71 75 69 74 29 0a 20 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 | d-sldb-quit)........(send-to-ema |
| 72ee0 | 63 73 20 60 28 3a 64 65 62 75 67 2d 72 65 74 75 72 6e 20 30 20 31 20 6e 69 6c 29 20 66 64 29 0a | cs.`(:debug-return.0.1.nil).fd). |
| 72f00 | 20 20 20 20 20 20 20 28 74 68 72 6f 77 25 20 76 61 6c 75 65 20 61 62 6f 72 74 29 29 29 29 29 0a | .......(throw%.value.abort))))). |
| 72f20 | 0a 28 64 66 20 73 77 61 6e 6b 3a 62 61 63 6b 74 72 61 63 65 20 28 73 74 61 72 74 20 65 6e 64 29 | .(df.swank:backtrace.(start.end) |
| 72f40 | 0a 20 20 28 62 61 63 6b 74 72 61 63 65 3e 65 6c 20 2a 74 6f 70 2d 66 72 61 6d 65 2a 20 28 69 6e | ...(backtrace>el.*top-frame*.(in |
| 72f60 | 74 3e 5f 20 73 74 61 72 74 29 20 28 69 6e 74 3e 5f 20 65 6e 64 29 29 29 0a 20 0a 28 64 66 20 73 | t>_.start).(int>_.end)))...(df.s |
| 72f80 | 6c 64 62 2d 71 75 69 74 20 28 29 0a 20 20 28 61 73 73 65 72 74 20 2a 73 6c 64 62 2d 71 75 69 74 | ldb-quit.()...(assert.*sldb-quit |
| 72fa0 | 2a 29 0a 20 20 28 74 68 72 6f 77 25 20 27 74 6f 70 2d 6c 65 76 65 6c 20 2a 73 6c 64 62 2d 71 75 | *)...(throw%.'top-level.*sldb-qu |
| 72fc0 | 69 74 2a 29 29 0a 0a 28 64 66 20 73 77 61 6e 6b 3a 69 6e 76 6f 6b 65 2d 6e 74 68 2d 72 65 73 74 | it*))..(df.swank:invoke-nth-rest |
| 72fe0 | 61 72 74 2d 66 6f 72 2d 65 6d 61 63 73 20 28 2e 2e 2e 29 20 28 73 6c 64 62 2d 71 75 69 74 29 29 | art-for-emacs.(...).(sldb-quit)) |
| 73000 | 0a 28 64 66 20 73 77 61 6e 6b 3a 74 68 72 6f 77 2d 74 6f 2d 74 6f 70 6c 65 76 65 6c 20 28 2e 2e | .(df.swank:throw-to-toplevel.(.. |
| 73020 | 2e 29 20 28 73 6c 64 62 2d 71 75 69 74 29 29 0a 0a 28 64 66 20 73 65 74 75 70 2d 73 65 72 76 65 | .).(sldb-quit))..(df.setup-serve |
| 73040 | 72 20 28 70 6f 72 74 20 61 6e 6e 6f 75 6e 63 65 29 0a 20 20 28 6c 65 74 20 28 28 73 6f 63 6b 20 | r.(port.announce)...(let.((sock. |
| 73060 | 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 70 6f 72 74 29 29 29 0a 20 20 20 20 28 61 6e 6e 6f | (create-socket.port))).....(anno |
| 73080 | 75 6e 63 65 20 73 6f 63 6b 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6c 69 65 6e 74 20 28 61 63 | unce.sock).....(let.((client.(ac |
| 730a0 | 63 65 70 74 20 73 6f 63 6b 29 29 29 0a 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 65 76 65 6e | cept.sock))).......(process-even |
| 730c0 | 74 73 20 63 6c 69 65 6e 74 29 0a 20 20 20 20 20 20 28 63 6c 6f 73 65 20 63 6c 69 65 6e 74 29 29 | ts.client).......(close.client)) |
| 730e0 | 0a 20 20 20 20 28 70 72 69 6e 74 66 20 22 43 6c 6f 73 69 6e 67 20 73 6f 63 6b 65 74 3a 20 25 64 | .....(printf."Closing.socket:.%d |
| 73100 | 20 25 64 5c 6e 22 20 73 6f 63 6b 20 28 6c 6f 63 61 6c 2d 70 6f 72 74 20 73 6f 63 6b 29 29 0a 20 | .%d\n".sock.(local-port.sock)).. |
| 73120 | 20 20 20 28 63 6c 6f 73 65 20 73 6f 63 6b 29 29 29 0a 0a 28 64 66 20 61 6e 6e 6f 75 6e 63 65 2d | ...(close.sock)))..(df.announce- |
| 73140 | 70 6f 72 74 20 28 73 6f 63 6b 29 0a 20 20 28 70 72 69 6e 74 66 20 22 4c 69 73 74 65 6e 69 6e 67 | port.(sock)...(printf."Listening |
| 73160 | 20 6f 6e 20 70 6f 72 74 3a 20 25 64 5c 6e 22 20 28 6c 6f 63 61 6c 2d 70 6f 72 74 20 73 6f 63 6b | .on.port:.%d\n".(local-port.sock |
| 73180 | 29 29 29 0a 0a 28 64 66 20 63 72 65 61 74 65 2d 73 65 72 76 65 72 20 28 70 6f 72 74 29 20 28 73 | )))..(df.create-server.(port).(s |
| 731a0 | 65 74 75 70 2d 73 65 72 76 65 72 20 70 6f 72 74 20 61 6e 6e 6f 75 6e 63 65 2d 70 6f 72 74 29 29 | etup-server.port.announce-port)) |
| 731c0 | 0a 0a 28 64 66 20 77 72 69 74 65 2d 70 6f 72 74 2d 66 69 6c 65 20 28 66 69 6c 65 6e 61 6d 65 20 | ..(df.write-port-file.(filename. |
| 731e0 | 73 6f 63 6b 29 20 0a 20 20 28 6c 65 74 20 28 28 66 20 28 21 20 46 69 6c 65 20 63 72 65 61 74 65 | sock)....(let.((f.(!.File.create |
| 73200 | 3a 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 21 20 66 20 77 72 69 74 65 3a 20 28 70 | :.filename))).....(!.f.write:.(p |
| 73220 | 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 5f 3e 69 6e 74 20 28 6c 6f 63 61 6c 2d 70 6f 72 | rint-to-string.(_>int.(local-por |
| 73240 | 74 20 73 6f 63 6b 29 29 29 29 0a 20 20 20 20 28 21 20 66 20 63 6c 6f 73 65 29 29 29 0a 0a 28 64 | t.sock)))).....(!.f.close)))..(d |
| 73260 | 66 20 73 74 61 72 74 2d 73 77 61 6e 6b 20 28 70 6f 72 74 2d 66 69 6c 65 29 0a 20 20 28 73 65 74 | f.start-swank.(port-file)...(set |
| 73280 | 75 70 2d 73 65 72 76 65 72 20 30 20 28 63 75 72 72 79 20 77 72 69 74 65 2d 70 6f 72 74 2d 66 69 | up-server.0.(curry.write-port-fi |
| 732a0 | 6c 65 20 28 5f 3e 73 74 72 20 70 6f 72 74 2d 66 69 6c 65 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 | le.(_>str.port-file))))..(define |
| 732c0 | 20 67 65 74 70 69 64 20 28 64 6c 73 79 6d 20 22 67 65 74 70 69 64 22 29 29 0a 28 64 66 20 73 77 | .getpid.(dlsym."getpid")).(df.sw |
| 732e0 | 61 6e 6b 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 69 6e 66 6f 20 28 29 0a 20 20 60 28 2c 40 27 28 29 | ank:connection-info.()...`(,@'() |
| 73300 | 0a 20 20 20 20 3a 70 69 64 20 2c 28 5f 3e 69 6e 74 20 28 67 65 74 70 69 64 29 29 0a 20 20 20 20 | .....:pid.,(_>int.(getpid))..... |
| 73320 | 3a 73 74 79 6c 65 20 6e 69 6c 0a 20 20 20 20 3a 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 | :style.nil.....:lisp-implementat |
| 73340 | 69 6f 6e 20 28 2c 40 27 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion.(,@'()...................... |
| 73360 | 20 20 20 20 20 3a 74 79 70 65 20 22 43 6f 6b 65 22 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....:type."Coke"............... |
| 73380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 61 6d 65 20 22 6a 6f 6c 74 22 20 0a 20 20 20 20 20 | .............:name."jolt"....... |
| 733a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 65 72 73 69 6f 6e 20 2c 28 | .....................:version.,( |
| 733c0 | 21 20 43 6f 64 65 47 65 6e 65 72 61 74 6f 72 20 76 65 72 73 69 6f 6e 53 74 72 69 6e 67 29 29 0a | !.CodeGenerator.versionString)). |
| 733e0 | 20 20 20 20 3a 6d 61 63 68 69 6e 65 20 28 3a 69 6e 73 74 61 6e 63 65 20 22 22 20 3a 74 79 70 65 | ....:machine.(:instance."".:type |
| 73400 | 20 2c 28 21 20 4f 53 20 61 72 63 68 69 74 65 63 74 75 72 65 29 20 3a 76 65 72 73 69 6f 6e 20 22 | .,(!.OS.architecture).:version." |
| 73420 | 22 29 0a 20 20 20 20 3a 66 65 61 74 75 72 65 73 20 28 29 0a 20 20 20 20 3a 70 61 63 6b 61 67 65 | ").....:features.().....:package |
| 73440 | 20 28 3a 6e 61 6d 65 20 22 6a 6f 6c 74 22 20 3a 70 72 6f 6d 70 74 20 22 6a 6f 6c 74 22 29 29 29 | .(:name."jolt".:prompt."jolt"))) |
| 73460 | 0a 0a 28 64 66 20 73 77 61 6e 6b 3a 6c 69 73 74 65 6e 65 72 2d 65 76 61 6c 20 28 73 74 72 69 6e | ..(df.swank:listener-eval.(strin |
| 73480 | 67 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 21 20 28 21 20 43 6f 6b 65 53 63 61 | g)...(let.((result.(!.(!.CokeSca |
| 734a0 | 6e 6e 65 72 20 72 65 61 64 3a 20 73 74 72 69 6e 67 29 20 65 76 61 6c 29 29 29 0a 20 20 20 20 60 | nner.read:.string).eval))).....` |
| 734c0 | 28 3a 76 61 6c 75 65 73 20 2c 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 28 69 66 20 28 | (:values.,(prin1-to-string.(if.( |
| 734e0 | 6f 72 20 28 66 69 78 3f 20 72 65 73 75 6c 74 29 20 0a 09 09 09 09 09 28 61 6e 64 20 28 76 61 6c | or.(fix?.result).......(and.(val |
| 73500 | 69 64 2d 70 6f 69 6e 74 65 72 3f 20 72 65 73 75 6c 74 29 0a 09 09 09 09 09 20 20 20 20 20 28 69 | id-pointer?.result)...........(i |
| 73520 | 6e 74 3f 20 72 65 73 75 6c 74 29 29 29 0a 09 09 09 09 20 20 20 20 28 69 6e 74 3e 5f 20 72 65 73 | nt?.result))).........(int>_.res |
| 73540 | 75 6c 74 29 0a 09 09 09 09 20 20 20 20 72 65 73 75 6c 74 29 29 0a 09 20 20 20 20 20 20 2c 28 70 | ult).........result))........,(p |
| 73560 | 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 72 65 73 75 6c 74 29 29 29 29 0a 0a 28 64 66 20 73 | rin1-to-string.result))))..(df.s |
| 73580 | 77 61 6e 6b 3a 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 20 28 73 74 72 69 6e 67 29 0a 20 | wank:interactive-eval.(string).. |
| 735a0 | 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 21 20 28 21 20 43 6f 6b 65 53 63 61 6e 6e 65 72 | .(let.((result.(!.(!.CokeScanner |
| 735c0 | 20 72 65 61 64 3a 20 73 74 72 69 6e 67 29 20 65 76 61 6c 29 29 29 0a 20 20 20 20 28 63 61 74 20 | .read:.string).eval))).....(cat. |
| 735e0 | 27 22 3d 3e 20 22 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 28 69 66 20 28 6f 72 20 | '"=>.".(prin1-to-string.(if.(or. |
| 73600 | 28 66 69 78 3f 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (fix?.result)................... |
| 73620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 76 61 6c | .......................(and.(val |
| 73640 | 69 64 2d 70 6f 69 6e 74 65 72 3f 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | id-pointer?.result)............. |
| 73660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 73680 | 20 20 28 69 6e 74 3f 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(int?.result)))............... |
| 736a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 3e 5f 20 72 65 | .......................(int>_.re |
| 736c0 | 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sult)........................... |
| 736e0 | 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 27 22 2c | ...........result))..........'", |
| 73700 | 20 22 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 72 65 73 75 6c 74 29 29 29 29 0a 0a | .".(prin1-to-string.result)))).. |
| 73720 | 28 64 66 20 73 77 61 6e 6b 3a 6f 70 65 72 61 74 6f 72 2d 61 72 67 6c 69 73 74 20 28 29 20 6e 69 | (df.swank:operator-arglist.().ni |
| 73740 | 6c 29 0a 28 64 66 20 73 77 61 6e 6b 3a 62 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 | l).(df.swank:buffer-first-change |
| 73760 | 20 28 29 20 6e 69 6c 29 0a 28 64 66 20 73 77 61 6e 6b 3a 63 72 65 61 74 65 2d 72 65 70 6c 20 28 | .().nil).(df.swank:create-repl.( |
| 73780 | 5f 29 20 27 28 22 6a 6f 6c 74 22 20 22 6a 6f 6c 74 22 29 29 0a 0a 28 64 66 20 6d 69 6e 20 28 78 | _).'("jolt"."jolt"))..(df.min.(x |
| 737a0 | 20 79 29 20 28 69 66 20 28 3c 3d 20 78 20 79 29 20 78 20 79 29 29 0a 0a 28 64 66 20 63 6f 6d 6d | .y).(if.(<=.x.y).x.y))..(df.comm |
| 737c0 | 6f 6e 2d 70 72 65 66 69 78 32 20 28 65 31 20 65 32 29 0a 20 20 28 6c 65 74 20 28 28 69 20 27 30 | on-prefix2.(e1.e2)...(let.((i.'0 |
| 737e0 | 29 0a 20 20 20 20 20 20 20 20 28 6d 61 78 20 28 6d 69 6e 20 28 6c 65 6e 20 65 31 29 20 28 6c 65 | ).........(max.(min.(len.e1).(le |
| 73800 | 6e 20 65 32 29 29 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 3c 20 69 20 6d 61 | n.e2)))).....(while.(and.(<.i.ma |
| 73820 | 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 3d 20 28 72 65 66 20 65 31 20 69 | x).................(==.(ref.e1.i |
| 73840 | 29 20 28 72 65 66 20 65 32 20 69 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 20 69 20 28 66 78 31 | ).(ref.e2.i))).......(set.i.(fx1 |
| 73860 | 2b 20 69 29 29 29 0a 20 20 20 20 28 21 20 65 31 20 63 6f 70 79 46 72 6f 6d 3a 20 27 30 20 74 6f | +.i))).....(!.e1.copyFrom:.'0.to |
| 73880 | 3a 20 28 66 78 31 2d 20 69 29 29 29 29 0a 0a 28 64 66 20 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 | :.(fx1-.i))))..(df.common-prefix |
| 738a0 | 20 28 73 65 71 29 0a 20 20 28 6d 63 61 73 65 20 73 65 71 0a 20 20 20 20 28 28 29 20 6e 69 6c 29 | .(seq)...(mcase.seq.....(().nil) |
| 738c0 | 0a 20 20 20 20 28 5f 0a 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 65 66 69 78 20 28 72 65 66 20 | .....(_......(let.((prefix.(ref. |
| 738e0 | 73 65 71 20 27 30 29 29 29 0a 20 20 20 20 20 20 20 28 64 6f 76 65 63 20 28 65 20 73 65 71 29 0a | seq.'0)))........(dovec.(e.seq). |
| 73900 | 20 20 20 20 20 20 20 20 20 28 73 65 74 20 70 72 65 66 69 78 20 28 63 6f 6d 6d 6f 6e 2d 70 72 65 | .........(set.prefix.(common-pre |
| 73920 | 66 69 78 32 20 70 72 65 66 69 78 20 65 29 29 29 0a 20 20 20 20 20 20 20 70 72 65 66 69 78 29 29 | fix2.prefix.e)))........prefix)) |
| 73940 | 29 29 0a 0a 28 64 66 20 73 77 61 6e 6b 3a 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 | ))..(df.swank:simple-completions |
| 73960 | 20 28 70 72 65 66 69 78 20 5f 70 61 63 6b 61 67 65 29 0a 20 20 28 6c 65 74 20 28 28 6d 61 74 63 | .(prefix._package)...(let.((matc |
| 73980 | 68 65 73 20 28 70 61 63 6b 69 6e 67 20 28 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hes.(packing.(s)................ |
| 739a0 | 20 20 20 20 28 64 6f 76 65 63 20 28 65 20 28 21 20 54 68 65 47 6c 6f 62 61 6c 45 6e 76 69 72 6f | ....(dovec.(e.(!.TheGlobalEnviro |
| 739c0 | 6e 6d 65 6e 74 20 6b 65 79 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nment.keys)).................... |
| 739e0 | 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 3e 73 74 72 20 65 29 29 29 0a 20 20 20 20 20 20 20 | ..(let.((name.(>str.e)))........ |
| 73a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 21 20 6e 61 6d 65 20 62 65 | ................(when.(!.name.be |
| 73a20 | 67 69 6e 73 57 69 74 68 3a 20 70 72 65 66 69 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ginsWith:.prefix)............... |
| 73a40 | 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 6e 61 6d 65 20 73 29 29 29 29 29 29 29 0a 20 | ...........(pack.name.s))))))).. |
| 73a60 | 20 20 20 28 76 65 63 20 6d 61 74 63 68 65 73 20 28 6f 72 20 28 63 6f 6d 6d 6f 6e 2d 70 72 65 66 | ...(vec.matches.(or.(common-pref |
| 73a80 | 69 78 20 6d 61 74 63 68 65 73 29 20 70 72 65 66 69 78 29 29 29 29 0a 0a 0a 3b 3b 20 73 77 61 6e | ix.matches).prefix))))...;;.swan |
| 73aa0 | 6b 2d 6a 6f 6c 74 2e 6b 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 | k-jolt.k.ends.here.............. |
| 73ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73c00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 | slime-2.31/contrib/slime-typeout |
| 73c20 | 2d 66 72 61 6d 65 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | -frame.el....................... |
| 73c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73c60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 73c80 | 30 30 30 36 32 30 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 31 30 34 00 20 30 00 00 00 | 0006205.00000000000.017104..0... |
| 73ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 73d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 73d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73e00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 | (require.'slime).(require.'slime |
| 73e20 | 2d 61 75 74 6f 64 6f 63 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 | -autodoc).(require.'cl-lib)..(de |
| 73e40 | 66 76 61 72 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 2d 75 6e 62 69 6e 64 2d | fvar.slime-typeout-frame-unbind- |
| 73e60 | 73 74 61 63 6b 20 28 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 | stack.())..(define-slime-contrib |
| 73e80 | 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 0a 20 20 22 44 69 73 70 6c 61 79 20 | .slime-typeout-frame..."Display. |
| 73ea0 | 6d 65 73 73 61 67 65 73 20 69 6e 20 61 20 64 65 64 69 63 61 74 65 64 20 66 72 61 6d 65 2e 22 0a | messages.in.a.dedicated.frame.". |
| 73ec0 | 20 20 28 3a 61 75 74 68 6f 72 73 20 22 4c 75 6b 65 20 47 6f 72 72 69 65 20 20 3c 6c 75 6b 65 40 | ..(:authors."Luke.Gorrie..<luke@ |
| 73ee0 | 73 79 6e 61 70 2e 73 65 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 | synap.se>")...(:license."GPL").. |
| 73f00 | 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 75 6e 6c 65 73 73 20 28 73 6c 69 6d 65 2d 74 79 70 | .(:on-load....(unless.(slime-typ |
| 73f20 | 65 6f 75 74 2d 74 74 79 2d 6f 6e 6c 79 2d 70 29 0a 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 | eout-tty-only-p)......(add-hook. |
| 73f40 | 27 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 65 6e 73 | 'slime-connected-hook.'slime-ens |
| 73f60 | 75 72 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 29 0a 20 20 20 20 20 28 61 64 64 2d 68 6f 6f | ure-typeout-frame)......(add-hoo |
| 73f80 | 6b 20 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d | k.'slime-autodoc-mode-hook.'slim |
| 73fa0 | 65 2d 74 79 70 65 6f 75 74 2d 77 72 61 70 2d 61 75 74 6f 64 6f 63 29 0a 20 20 20 20 20 28 63 6c | e-typeout-wrap-autodoc)......(cl |
| 73fc0 | 2d 6c 6f 6f 70 20 66 6f 72 20 28 76 61 72 20 76 61 6c 75 65 29 20 69 6e 20 0a 20 20 20 20 20 20 | -loop.for.(var.value).in........ |
| 73fe0 | 20 20 20 20 20 20 20 20 27 28 28 73 6c 69 6d 65 2d 6d 65 73 73 61 67 65 2d 66 75 6e 63 74 69 6f | ........'((slime-message-functio |
| 74000 | 6e 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 | n.slime-typeout-message)........ |
| 74020 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 73 73 61 | .........(slime-background-messa |
| 74040 | 67 65 2d 66 75 6e 63 74 69 6f 6e 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 6d 65 73 73 61 67 | ge-function.slime-typeout-messag |
| 74060 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 6c 69 6d 65 2d 74 79 70 65 | e))...............do.(slime-type |
| 74080 | 6f 75 74 2d 66 72 61 6d 65 2d 69 6e 69 74 2d 76 61 72 20 76 61 72 20 76 61 6c 75 65 29 29 29 29 | out-frame-init-var.var.value)))) |
| 740a0 | 0a 20 20 28 3a 6f 6e 2d 75 6e 6c 6f 61 64 0a 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 | ...(:on-unload....(remove-hook.' |
| 740c0 | 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 65 6e 73 75 | slime-connected-hook.'slime-ensu |
| 740e0 | 72 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 29 0a 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f | re-typeout-frame)....(remove-hoo |
| 74100 | 6b 20 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d | k.'slime-autodoc-mode-hook.'slim |
| 74120 | 65 2d 74 79 70 65 6f 75 74 2d 77 72 61 70 2d 61 75 74 6f 64 6f 63 29 0a 20 20 20 28 63 6c 2d 6c | e-typeout-wrap-autodoc)....(cl-l |
| 74140 | 6f 6f 70 20 66 6f 72 20 28 76 61 72 20 76 61 6c 75 65 29 20 69 6e 20 73 6c 69 6d 65 2d 74 79 70 | oop.for.(var.value).in.slime-typ |
| 74160 | 65 6f 75 74 2d 66 72 61 6d 65 2d 75 6e 62 69 6e 64 2d 73 74 61 63 6b 20 0a 20 20 20 20 20 20 20 | eout-frame-unbind-stack......... |
| 74180 | 20 20 20 20 20 64 6f 20 28 63 6f 6e 64 20 28 28 65 71 20 76 61 72 20 27 73 6c 69 6d 65 2d 75 6e | .....do.(cond.((eq.var.'slime-un |
| 741a0 | 62 6f 75 6e 64 29 20 28 6d 61 6b 75 6e 62 6f 75 6e 64 20 76 61 72 29 29 0a 20 20 20 20 20 20 20 | bound).(makunbound.var))........ |
| 741c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 73 65 74 20 76 61 72 20 76 61 6c 75 65 29 | ..............(t.(set.var.value) |
| 741e0 | 29 29 29 0a 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 | )))....(setq.slime-typeout-frame |
| 74200 | 2d 75 6e 62 69 6e 64 2d 73 74 61 63 6b 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | -unbind-stack.nil)))..(defun.sli |
| 74220 | 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 2d 69 6e 69 74 2d 76 61 72 20 28 76 61 72 20 76 | me-typeout-frame-init-var.(var.v |
| 74240 | 61 6c 75 65 29 0a 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 76 61 72 20 28 69 66 20 28 62 6f 75 | alue)...(push.(list.var.(if.(bou |
| 74260 | 6e 64 70 20 76 61 72 29 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 76 61 72 29 20 27 73 6c 69 | ndp.var).(symbol-value.var).'sli |
| 74280 | 6d 65 2d 75 6e 62 6f 75 6e 64 29 29 0a 09 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d | me-unbound))..slime-typeout-fram |
| 742a0 | 65 2d 75 6e 62 69 6e 64 2d 73 74 61 63 6b 29 0a 20 20 28 73 65 74 20 76 61 72 20 76 61 6c 75 65 | e-unbind-stack)...(set.var.value |
| 742c0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 74 74 79 2d 6f 6e 6c | ))..(defun.slime-typeout-tty-onl |
| 742e0 | 79 2d 70 20 28 29 0a 20 20 28 63 6f 6e 64 20 28 28 66 65 61 74 75 72 65 70 20 27 78 65 6d 61 63 | y-p.()...(cond.((featurep.'xemac |
| 74300 | 73 29 0a 09 20 28 6e 75 6c 6c 20 28 72 65 6d 6f 76 65 20 27 74 74 79 20 28 6d 61 70 63 61 72 20 | s)...(null.(remove.'tty.(mapcar. |
| 74320 | 23 27 64 65 76 69 63 65 2d 74 79 70 65 20 28 63 6f 6e 73 6f 6c 65 2d 64 65 76 69 63 65 2d 6c 69 | #'device-type.(console-device-li |
| 74340 | 73 74 29 29 29 29 29 0a 09 28 74 20 28 6e 6f 74 20 28 77 69 6e 64 6f 77 2d 73 79 73 74 65 6d 29 | st)))))..(t.(not.(window-system) |
| 74360 | 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 79 70 65 6f 75 74 20 66 72 61 6d 65 0a 0a 3b 3b 20 57 | ))))....;;;;.Typeout.frame..;;.W |
| 74380 | 68 65 6e 20 61 20 22 74 79 70 65 6f 75 74 20 66 72 61 6d 65 22 20 65 78 69 73 74 73 20 69 74 20 | hen.a."typeout.frame".exists.it. |
| 743a0 | 69 73 20 75 73 65 64 20 74 6f 20 64 69 73 70 6c 61 79 20 63 65 72 74 61 69 6e 0a 3b 3b 20 6d 65 | is.used.to.display.certain.;;.me |
| 743c0 | 73 73 61 67 65 73 20 69 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 20 | ssages.instead.of.the.echo.area. |
| 743e0 | 6f 72 20 70 6f 70 2d 75 70 20 77 69 6e 64 6f 77 73 2e 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d | or.pop-up.windows...(defvar.slim |
| 74400 | 65 2d 74 79 70 65 6f 75 74 2d 77 69 6e 64 6f 77 20 6e 69 6c 0a 20 20 22 54 68 65 20 63 75 72 72 | e-typeout-window.nil..."The.curr |
| 74420 | 65 6e 74 20 74 79 70 65 6f 75 74 20 77 69 6e 64 6f 77 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 | ent.typeout.window.")..(defvar.s |
| 74440 | 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 | lime-typeout-frame-properties... |
| 74460 | 27 28 28 68 65 69 67 68 74 20 2e 20 31 30 29 20 28 6d 69 6e 69 62 75 66 66 65 72 20 2e 20 6e 69 | '((height...10).(minibuffer...ni |
| 74480 | 6c 29 29 0a 20 20 22 54 68 65 20 74 79 70 65 6f 75 74 20 66 72 61 6d 65 20 70 72 6f 70 65 72 74 | l))..."The.typeout.frame.propert |
| 744a0 | 69 65 73 20 28 70 61 73 73 65 64 20 74 6f 20 60 6d 61 6b 65 2d 66 72 61 6d 65 27 29 2e 22 29 0a | ies.(passed.to.`make-frame')."). |
| 744c0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 62 75 66 66 65 72 20 28 29 0a | .(defun.slime-typeout-buffer.(). |
| 744e0 | 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 | ..(with-current-buffer.(get-buff |
| 74500 | 65 72 2d 63 72 65 61 74 65 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 74 79 | er-create.(slime-buffer-name.:ty |
| 74520 | 70 65 6f 75 74 29 29 0a 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e | peout)).....(setq.buffer-read-on |
| 74540 | 6c 79 20 74 29 0a 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 64 | ly.t).....(current-buffer)))..(d |
| 74560 | 65 66 75 6e 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 61 63 74 69 76 65 2d 70 20 28 29 0a 20 | efun.slime-typeout-active-p.().. |
| 74580 | 20 28 61 6e 64 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 | .(and.slime-typeout-window...... |
| 745a0 | 20 20 28 77 69 6e 64 6f 77 2d 6c 69 76 65 2d 70 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 77 | ..(window-live-p.slime-typeout-w |
| 745c0 | 69 6e 64 6f 77 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 6d | indow)))..(defun.slime-typeout-m |
| 745e0 | 65 73 73 61 67 65 2d 61 75 78 20 28 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 26 72 65 73 74 20 | essage-aux.(format-string.&rest. |
| 74600 | 66 6f 72 6d 61 74 2d 61 72 67 73 29 0a 20 20 28 73 6c 69 6d 65 2d 65 6e 73 75 72 65 2d 74 79 70 | format-args)...(slime-ensure-typ |
| 74620 | 65 6f 75 74 2d 66 72 61 6d 65 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 | eout-frame)...(with-current-buff |
| 74640 | 65 72 20 28 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 6c | er.(slime-typeout-buffer).....(l |
| 74660 | 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 | et.((inhibit-read-only.t)....... |
| 74680 | 20 20 20 20 28 6d 73 67 20 28 61 70 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 66 6f 72 6d 61 74 2d | ....(msg.(apply.#'format.format- |
| 746a0 | 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 2d 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 28 75 6e 6c | string.format-args))).......(unl |
| 746c0 | 65 73 73 20 28 73 74 72 69 6e 67 3d 20 6d 73 67 20 22 22 29 0a 09 28 65 72 61 73 65 2d 62 75 66 | ess.(string=.msg."")..(erase-buf |
| 746e0 | 66 65 72 29 0a 09 28 69 6e 73 65 72 74 20 6d 73 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | fer)..(insert.msg)))))..(defun.s |
| 74700 | 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 6d 65 73 73 61 67 65 20 28 66 6f 72 6d 61 74 2d 73 74 72 | lime-typeout-message.(format-str |
| 74720 | 69 6e 67 20 26 72 65 73 74 20 66 6f 72 6d 61 74 2d 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 | ing.&rest.format-args)...(apply. |
| 74740 | 23 27 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 6d 65 73 73 61 67 65 2d 61 75 78 20 66 6f 72 6d | #'slime-typeout-message-aux.form |
| 74760 | 61 74 2d 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 2d 61 72 67 73 29 29 0a 0a 28 64 65 66 75 6e 20 | at-string.format-args))..(defun. |
| 74780 | 73 6c 69 6d 65 2d 6d 61 6b 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 20 28 29 0a 20 20 22 43 | slime-make-typeout-frame.()..."C |
| 747a0 | 72 65 61 74 65 20 61 20 66 72 61 6d 65 20 66 6f 72 20 64 69 73 70 6c 61 79 69 6e 67 20 6d 65 73 | reate.a.frame.for.displaying.mes |
| 747c0 | 73 61 67 65 73 20 28 65 2e 67 2e 20 61 72 67 6c 69 73 74 73 29 2e 22 0a 20 20 28 69 6e 74 65 72 | sages.(e.g..arglists)."...(inter |
| 747e0 | 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6d 61 6b 65 2d 66 72 61 | active)...(let.((frame.(make-fra |
| 74800 | 6d 65 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 2d 70 72 6f 70 65 72 74 69 65 | me.slime-typeout-frame-propertie |
| 74820 | 73 29 29 29 0a 20 20 20 20 28 73 61 76 65 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 0a 20 | s))).....(save-selected-window.. |
| 74840 | 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 66 72 61 6d 65 2d 73 65 6c 65 63 | .....(select-window.(frame-selec |
| 74860 | 74 65 64 2d 77 69 6e 64 6f 77 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 28 73 77 69 74 63 68 | ted-window.frame)).......(switch |
| 74880 | 2d 74 6f 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 62 75 66 66 65 72 | -to-buffer.(slime-typeout-buffer |
| 748a0 | 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 77 69 6e | )).......(setq.slime-typeout-win |
| 748c0 | 64 6f 77 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 29 29 29 0a 0a 28 64 65 66 75 | dow.(selected-window)))))..(defu |
| 748e0 | 6e 20 73 6c 69 6d 65 2d 65 6e 73 75 72 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 20 28 29 0a | n.slime-ensure-typeout-frame.(). |
| 74900 | 20 20 22 43 72 65 61 74 65 20 74 68 65 20 74 79 70 65 6f 75 74 20 66 72 61 6d 65 20 75 6e 6c 65 | .."Create.the.typeout.frame.unle |
| 74920 | 73 73 20 69 74 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 | ss.it.already.exists."...(intera |
| 74940 | 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 61 63 74 69 | ctive)...(if.(slime-typeout-acti |
| 74960 | 76 65 2d 70 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f | ve-p).......(save-selected-windo |
| 74980 | 77 0a 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 73 6c 69 6d 65 2d 74 | w.........(select-window.slime-t |
| 749a0 | 79 70 65 6f 75 74 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 | ypeout-window).........(switch-t |
| 749c0 | 6f 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 62 75 66 66 65 72 29 29 | o-buffer.(slime-typeout-buffer)) |
| 749e0 | 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6d 61 6b 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 29 | ).....(slime-make-typeout-frame) |
| 74a00 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 77 72 61 70 2d 61 75 | ))..(defun.slime-typeout-wrap-au |
| 74a20 | 74 6f 64 6f 63 20 28 29 0a 20 20 28 73 65 74 71 20 65 6c 64 6f 63 2d 6d 65 73 73 61 67 65 2d 66 | todoc.()...(setq.eldoc-message-f |
| 74a40 | 75 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 6d 65 73 73 61 67 65 2d 61 | unction.'slime-typeout-message-a |
| 74a60 | 75 78 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 | ux))..(provide.'slime-typeout-fr |
| 74a80 | 61 6d 65 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ame)............................ |
| 74aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74c00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 6d 6c 77 6f 72 6b 73 | slime-2.31/contrib/swank-mlworks |
| 74c20 | 2e 73 6d 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .sml............................ |
| 74c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74c60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 74c80 | 30 30 32 32 31 35 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 32 30 34 00 20 30 00 00 00 | 0022151.00000000000.016204..0... |
| 74ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 74d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 74d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74e00 | 28 2a 20 73 77 61 6e 6b 2d 6d 6c 77 6f 72 6b 73 2e 73 6d 6c 20 2d 2d 20 53 57 41 4e 4b 20 73 65 | (*.swank-mlworks.sml.--.SWANK.se |
| 74e20 | 72 76 65 72 20 66 6f 72 20 4d 4c 57 6f 72 6b 73 0a 20 2a 0a 20 2a 20 54 68 69 73 20 63 6f 64 65 | rver.for.MLWorks..*..*.This.code |
| 74e40 | 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 | .has.been.placed.in.the.Public.D |
| 74e60 | 6f 6d 61 69 6e 2e 0a 20 2a 29 0a 0a 28 2a 20 54 68 69 73 20 69 73 20 61 6e 20 65 78 70 65 72 69 | omain...*)..(*.This.is.an.experi |
| 74e80 | 6d 65 6e 74 20 74 6f 20 73 65 65 20 68 6f 77 20 74 68 65 20 69 6e 74 65 72 66 61 63 65 73 2f 6d | ment.to.see.how.the.interfaces/m |
| 74ea0 | 6f 64 75 6c 65 73 20 77 6f 75 6c 64 20 6c 6f 6f 6b 0a 20 2a 20 69 6e 20 61 20 6c 61 6e 67 75 61 | odules.would.look..*.in.a.langua |
| 74ec0 | 67 65 20 77 69 74 68 20 61 20 73 75 70 70 6f 73 65 64 6c 79 20 22 67 6f 6f 64 22 20 6d 6f 64 75 | ge.with.a.supposedly."good".modu |
| 74ee0 | 6c 65 20 73 79 73 74 65 6d 2e 0a 20 2a 0a 20 2a 20 4d 4c 57 6f 72 6b 73 20 69 73 20 70 72 6f 62 | le.system...*..*.MLWorks.is.prob |
| 74f00 | 61 62 6c 79 20 74 68 65 20 6f 6e 6c 79 20 53 4d 4c 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ably.the.only.SML.implementation |
| 74f20 | 20 74 68 61 74 20 74 72 69 65 73 20 74 6f 0a 20 2a 20 73 75 70 70 6f 72 74 20 22 69 6e 74 65 72 | .that.tries.to..*.support."inter |
| 74f40 | 61 63 74 69 76 65 20 70 72 6f 67 72 61 6d 6d 69 6e 67 22 2e 20 20 53 69 6e 63 65 20 4d 4c 57 6f | active.programming"...Since.MLWo |
| 74f60 | 72 6b 73 20 77 61 73 6e 27 74 20 6d 61 69 6e 74 61 69 6e 65 64 0a 20 2a 20 74 68 65 20 6c 61 73 | rks.wasn't.maintained..*.the.las |
| 74f80 | 74 20 31 35 20 6f 72 20 73 6f 20 79 65 61 72 73 2c 20 62 69 67 20 63 68 75 6e 6b 73 20 6f 66 20 | t.15.or.so.years,.big.chunks.of. |
| 74fa0 | 74 68 65 20 53 4d 4c 20 42 61 73 69 73 20 4c 69 62 72 61 72 79 20 61 72 65 0a 20 2a 20 6d 69 73 | the.SML.Basis.Library.are..*.mis |
| 74fc0 | 73 69 6e 67 20 6f 72 20 6e 6f 74 20 74 68 65 20 77 61 79 20 61 73 20 72 65 71 75 69 72 65 64 20 | sing.or.not.the.way.as.required. |
| 74fe0 | 62 79 20 74 68 65 20 73 74 61 6e 64 61 72 64 2e 20 20 54 68 61 74 20 6d 61 6b 65 73 20 69 74 0a | by.the.standard...That.makes.it. |
| 75000 | 20 2a 20 72 61 74 68 65 72 20 68 61 72 64 20 74 6f 20 64 6f 20 61 6e 79 74 68 69 6e 67 3b 20 69 | .*.rather.hard.to.do.anything;.i |
| 75020 | 74 20 61 6c 73 6f 20 73 68 6f 77 73 20 74 68 61 74 20 4d 4c 57 6f 72 6b 73 20 68 61 73 6e 27 74 | t.also.shows.that.MLWorks.hasn't |
| 75040 | 20 62 65 65 6e 0a 20 2a 20 22 75 73 65 64 20 69 6e 20 61 6e 67 65 72 22 20 66 6f 72 20 61 20 6c | .been..*."used.in.anger".for.a.l |
| 75060 | 6f 6e 67 20 74 69 6d 65 2e 0a 20 2a 29 0a 0a 73 74 72 75 63 74 75 72 65 20 53 77 61 6e 6b 20 3d | ong.time...*)..structure.Swank.= |
| 75080 | 20 73 74 72 75 63 74 0a 0a 20 20 20 20 73 74 72 75 63 74 75 72 65 20 55 74 69 6c 20 3d 20 73 74 | .struct......structure.Util.=.st |
| 750a0 | 72 75 63 74 0a 09 66 75 6e 20 75 74 66 38 54 6f 53 74 72 69 6e 67 20 28 76 3a 57 6f 72 64 38 56 | ruct..fun.utf8ToString.(v:Word8V |
| 750c0 | 65 63 74 6f 72 2e 76 65 63 74 6f 72 29 20 3a 20 73 74 72 69 6e 67 20 3d 20 42 79 74 65 2e 62 79 | ector.vector).:.string.=.Byte.by |
| 750e0 | 74 65 73 54 6f 53 74 72 69 6e 67 20 76 0a 09 66 75 6e 20 73 74 72 69 6e 67 54 6f 55 74 66 38 20 | tesToString.v..fun.stringToUtf8. |
| 75100 | 73 20 3d 20 42 79 74 65 2e 73 74 72 69 6e 67 54 6f 42 79 74 65 73 20 73 0a 20 20 20 20 20 20 65 | s.=.Byte.stringToBytes.s.......e |
| 75120 | 6e 64 0a 0a 20 20 20 20 73 74 72 75 63 74 75 72 65 20 4d 61 70 20 3d 20 73 74 72 75 63 74 0a 09 | nd......structure.Map.=.struct.. |
| 75140 | 64 61 74 61 74 79 70 65 20 28 27 61 2c 20 27 62 29 20 6d 61 70 20 3d 20 41 6c 69 73 74 20 6f 66 | datatype.('a,.'b).map.=.Alist.of |
| 75160 | 20 7b 6c 69 73 74 3a 20 28 27 61 20 2a 20 27 62 29 20 6c 69 73 74 20 72 65 66 2c 0a 09 09 09 09 | .{list:.('a.*.'b).list.ref,..... |
| 75180 | 09 20 20 65 71 3a 20 28 27 61 20 2a 20 27 61 29 20 2d 3e 20 62 6f 6f 6c 7d 0a 0a 09 66 75 6e 20 | ...eq:.('a.*.'a).->.bool}...fun. |
| 751a0 | 73 74 72 69 6e 67 4d 61 70 20 28 29 20 3d 0a 09 20 20 20 20 41 6c 69 73 74 20 7b 6c 69 73 74 20 | stringMap.().=......Alist.{list. |
| 751c0 | 3d 20 72 65 66 20 5b 5d 2c 0a 09 09 20 20 20 65 71 20 3d 20 28 66 6e 20 28 78 3a 73 74 72 69 6e | =.ref.[],......eq.=.(fn.(x:strin |
| 751e0 | 67 2c 79 3a 73 74 72 69 6e 67 29 20 3d 3e 20 78 20 3d 20 79 29 7d 0a 0a 0a 09 66 75 6e 20 6c 6f | g,y:string).=>.x.=.y)}....fun.lo |
| 75200 | 6f 6b 75 70 20 28 41 6c 69 73 74 20 7b 6c 69 73 74 2c 20 65 71 7d 2c 20 6b 65 79 29 20 3d 0a 09 | okup.(Alist.{list,.eq},.key).=.. |
| 75220 | 20 20 20 20 6c 65 74 20 66 75 6e 20 73 65 61 72 63 68 20 5b 5d 20 3d 20 4e 4f 4e 45 0a 09 09 20 | ....let.fun.search.[].=.NONE.... |
| 75240 | 20 7c 20 73 65 61 72 63 68 20 28 28 6b 65 79 27 2c 20 76 61 6c 75 65 29 20 3a 3a 20 78 73 29 20 | .|.search.((key',.value).::.xs). |
| 75260 | 3d 0a 09 09 20 20 20 20 69 66 20 65 71 20 28 6b 65 79 27 2c 20 6b 65 79 29 20 74 68 65 6e 20 53 | =.......if.eq.(key',.key).then.S |
| 75280 | 4f 4d 45 20 76 61 6c 75 65 0a 09 09 20 20 20 20 65 6c 73 65 20 73 65 61 72 63 68 20 78 73 0a 09 | OME.value.......else.search.xs.. |
| 752a0 | 20 20 20 20 69 6e 20 73 65 61 72 63 68 20 28 21 6c 69 73 74 29 0a 09 20 20 20 20 65 6e 64 0a 0a | ....in.search.(!list)......end.. |
| 752c0 | 09 66 75 6e 20 70 75 74 20 28 41 6c 69 73 74 20 7b 6c 69 73 74 2c 20 65 71 7d 2c 20 6b 65 79 2c | .fun.put.(Alist.{list,.eq},.key, |
| 752e0 | 20 76 61 6c 75 65 29 20 3d 0a 09 20 20 20 20 6c 65 74 20 76 61 6c 20 6c 20 3d 20 28 6b 65 79 2c | .value).=......let.val.l.=.(key, |
| 75300 | 20 76 61 6c 75 65 29 20 3a 3a 20 28 21 6c 69 73 74 29 0a 09 20 20 20 20 69 6e 20 6c 69 73 74 20 | .value).::.(!list)......in.list. |
| 75320 | 3a 3d 20 6c 0a 09 20 20 20 20 65 6e 64 0a 0a 20 20 20 20 20 20 65 6e 64 0a 0a 20 20 20 20 73 74 | :=.l......end........end......st |
| 75340 | 72 75 63 74 75 72 65 20 43 68 61 72 42 75 66 66 65 72 20 3d 20 73 74 72 75 63 74 0a 09 6c 6f 63 | ructure.CharBuffer.=.struct..loc |
| 75360 | 61 6c 0a 09 20 20 20 20 73 74 72 75 63 74 75 72 65 20 43 20 3d 20 43 68 61 72 41 72 72 61 79 0a | al......structure.C.=.CharArray. |
| 75380 | 09 20 20 20 20 64 61 74 61 74 79 70 65 20 62 75 66 66 65 72 20 3d 20 42 20 6f 66 20 7b 61 72 72 | .....datatype.buffer.=.B.of.{arr |
| 753a0 | 61 79 20 3a 20 43 2e 61 72 72 61 79 20 72 65 66 2c 0a 09 09 09 09 20 20 20 20 69 6e 64 65 78 3a | ay.:.C.array.ref,.........index: |
| 753c0 | 20 69 6e 74 20 72 65 66 7d 0a 09 69 6e 0a 0a 09 66 75 6e 20 6e 65 77 20 68 69 6e 74 20 3d 20 42 | .int.ref}..in...fun.new.hint.=.B |
| 753e0 | 20 7b 61 72 72 61 79 20 3d 20 72 65 66 20 28 43 2e 61 72 72 61 79 20 28 68 69 6e 74 2c 20 23 22 | .{array.=.ref.(C.array.(hint,.#" |
| 75400 | 5c 30 30 30 22 29 29 2c 0a 09 09 09 20 20 69 6e 64 65 78 20 3d 20 72 65 66 20 30 7d 0a 0a 09 66 | \000")),......index.=.ref.0}...f |
| 75420 | 75 6e 20 61 70 70 65 6e 64 20 28 62 75 66 66 65 72 20 61 73 20 42 20 7b 61 72 72 61 79 2c 20 69 | un.append.(buffer.as.B.{array,.i |
| 75440 | 6e 64 65 78 7d 2c 20 63 68 61 72 29 20 3d 0a 09 20 20 20 20 6c 65 74 20 76 61 6c 20 61 20 3d 20 | ndex},.char).=......let.val.a.=. |
| 75460 | 21 61 72 72 61 79 0a 09 09 76 61 6c 20 69 20 3d 20 21 69 6e 64 65 78 0a 09 09 76 61 6c 20 6c 65 | !array...val.i.=.!index...val.le |
| 75480 | 6e 20 3d 20 43 2e 6c 65 6e 67 74 68 20 61 0a 09 20 20 20 20 69 6e 20 69 66 20 69 20 3c 20 6c 65 | n.=.C.length.a......in.if.i.<.le |
| 754a0 | 6e 20 74 68 65 6e 0a 09 09 20 20 20 28 43 2e 75 70 64 61 74 65 20 28 61 2c 20 69 2c 20 63 68 61 | n.then......(C.update.(a,.i,.cha |
| 754c0 | 72 29 3b 0a 09 09 20 20 20 20 69 6e 64 65 78 20 3a 3d 20 69 20 2b 20 31 3b 0a 09 09 20 20 20 20 | r);.......index.:=.i.+.1;....... |
| 754e0 | 28 29 29 0a 09 20 20 20 20 20 20 20 65 6c 73 65 20 6c 65 74 20 76 61 6c 20 61 61 20 3d 20 43 2e | ()).........else.let.val.aa.=.C. |
| 75500 | 61 72 72 61 79 20 28 32 20 2a 20 6c 65 6e 2c 20 23 22 5c 30 30 30 22 29 0a 09 09 09 66 75 6e 20 | array.(2.*.len,.#"\000")....fun. |
| 75520 | 63 6f 70 79 20 28 73 72 63 2c 20 64 73 74 29 20 3d 0a 09 09 09 20 20 20 20 6c 65 74 20 76 61 6c | copy.(src,.dst).=........let.val |
| 75540 | 20 6c 65 6e 20 3d 20 43 2e 6c 65 6e 67 74 68 20 73 72 63 0a 09 09 09 09 66 75 6e 20 6c 6f 6f 70 | .len.=.C.length.src.....fun.loop |
| 75560 | 20 69 20 3d 0a 09 09 09 09 20 20 20 20 69 66 20 69 20 3d 20 6c 65 6e 20 74 68 65 6e 20 28 29 0a | .i.=.........if.i.=.len.then.(). |
| 75580 | 09 09 09 09 20 20 20 20 65 6c 73 65 20 28 43 2e 75 70 64 61 74 65 20 28 64 73 74 2c 20 69 2c 20 | ........else.(C.update.(dst,.i,. |
| 755a0 | 43 2e 73 75 62 20 28 73 72 63 2c 20 69 29 29 3b 0a 09 09 09 09 09 20 20 6c 6f 6f 70 20 28 69 20 | C.sub.(src,.i));........loop.(i. |
| 755c0 | 2b 20 31 29 29 0a 09 09 09 20 20 20 20 69 6e 20 6c 6f 6f 70 20 30 20 65 6e 64 0a 09 09 20 20 20 | +.1))........in.loop.0.end...... |
| 755e0 | 20 69 6e 20 63 6f 70 79 20 28 61 2c 20 61 61 29 3b 0a 09 09 20 20 20 20 20 20 20 43 2e 75 70 64 | .in.copy.(a,.aa);..........C.upd |
| 75600 | 61 74 65 20 28 61 61 2c 20 69 2c 20 63 68 61 72 29 3b 0a 09 09 20 20 20 20 20 20 20 61 72 72 61 | ate.(aa,.i,.char);..........arra |
| 75620 | 79 20 3a 3d 20 61 61 3b 0a 09 09 20 20 20 20 20 20 20 69 6e 64 65 78 20 3a 3d 20 69 20 2b 20 31 | y.:=.aa;..........index.:=.i.+.1 |
| 75640 | 3b 0a 09 09 20 20 20 20 20 20 20 28 29 0a 09 09 20 20 20 20 65 6e 64 0a 09 20 20 20 20 65 6e 64 | ;..........().......end......end |
| 75660 | 0a 0a 09 66 75 6e 20 74 6f 53 74 72 69 6e 67 20 28 42 20 7b 61 72 72 61 79 2c 20 69 6e 64 65 78 | ...fun.toString.(B.{array,.index |
| 75680 | 7d 29 20 3d 0a 09 20 20 20 20 6c 65 74 20 76 61 6c 20 61 20 3d 20 21 61 72 72 61 79 0a 09 09 76 | }).=......let.val.a.=.!array...v |
| 756a0 | 61 6c 20 69 20 3d 20 21 69 6e 64 65 78 0a 09 20 20 20 20 69 6e 20 43 68 61 72 56 65 63 74 6f 72 | al.i.=.!index......in.CharVector |
| 756c0 | 2e 74 61 62 75 6c 61 74 65 20 28 69 2c 20 66 6e 20 69 20 3d 3e 20 43 2e 73 75 62 20 28 61 2c 20 | .tabulate.(i,.fn.i.=>.C.sub.(a,. |
| 756e0 | 69 29 29 20 65 6e 64 0a 0a 09 65 6e 64 0a 0a 20 20 20 20 20 20 65 6e 64 0a 0a 0a 20 20 20 20 73 | i)).end...end........end.......s |
| 75700 | 74 72 75 63 74 75 72 65 20 53 65 78 70 20 3d 20 73 74 72 75 63 74 0a 09 73 74 72 75 63 74 75 72 | tructure.Sexp.=.struct..structur |
| 75720 | 65 20 54 79 70 65 20 3d 20 73 74 72 75 63 74 0a 09 20 20 20 20 64 61 74 61 74 79 70 65 20 73 65 | e.Type.=.struct......datatype.se |
| 75740 | 78 70 20 3d 20 49 6e 74 20 6f 66 20 69 6e 74 0a 09 09 09 20 20 7c 20 53 74 72 20 6f 66 20 73 74 | xp.=.Int.of.int......|.Str.of.st |
| 75760 | 72 69 6e 67 0a 09 09 09 20 20 7c 20 4c 73 74 20 6f 66 20 73 65 78 70 20 6c 69 73 74 0a 09 09 09 | ring......|.Lst.of.sexp.list.... |
| 75780 | 20 20 7c 20 53 79 6d 20 6f 66 20 73 74 72 69 6e 67 0a 09 09 09 20 20 7c 20 51 53 79 6d 20 6f 66 | ..|.Sym.of.string......|.QSym.of |
| 757a0 | 20 73 74 72 69 6e 67 20 2a 20 73 74 72 69 6e 67 0a 09 09 09 20 20 7c 20 54 0a 09 09 09 20 20 7c | .string.*.string......|.T......| |
| 757c0 | 20 4e 69 6c 0a 09 09 09 20 20 7c 20 51 75 6f 74 65 0a 09 20 20 65 6e 64 0a 09 6f 70 65 6e 20 54 | .Nil......|.Quote....end..open.T |
| 757e0 | 79 70 65 0a 0a 09 65 78 63 65 70 74 69 6f 6e 20 52 65 61 64 45 72 72 6f 72 0a 0a 09 66 75 6e 20 | ype...exception.ReadError...fun. |
| 75800 | 66 72 6f 6d 55 74 66 38 20 76 20 3d 0a 09 20 20 20 20 6c 65 74 20 76 61 6c 20 6c 65 6e 20 3d 20 | fromUtf8.v.=......let.val.len.=. |
| 75820 | 57 6f 72 64 38 56 65 63 74 6f 72 2e 6c 65 6e 67 74 68 20 76 0a 09 09 76 61 6c 20 69 6e 64 65 78 | Word8Vector.length.v...val.index |
| 75840 | 20 3d 20 72 65 66 20 30 0a 09 09 66 75 6e 20 67 65 74 63 20 28 29 20 3d 0a 09 09 20 20 20 20 63 | .=.ref.0...fun.getc.().=.......c |
| 75860 | 61 73 65 20 67 65 74 63 27 20 28 29 20 6f 66 0a 09 09 09 53 4f 4d 45 20 63 20 3d 3e 20 63 0a 09 | ase.getc'.().of....SOME.c.=>.c.. |
| 75880 | 09 20 20 20 20 20 7c 20 20 4e 4f 4e 45 20 3d 3e 20 72 61 69 73 65 20 52 65 61 64 45 72 72 6f 72 | ......|..NONE.=>.raise.ReadError |
| 758a0 | 0a 09 09 61 6e 64 20 67 65 74 63 27 20 28 29 20 3d 0a 09 09 20 20 20 20 6c 65 74 20 76 61 6c 20 | ...and.getc'.().=.......let.val. |
| 758c0 | 69 20 3d 20 21 69 6e 64 65 78 0a 09 09 20 20 20 20 69 6e 20 69 66 20 69 20 3d 20 6c 65 6e 20 74 | i.=.!index.......in.if.i.=.len.t |
| 758e0 | 68 65 6e 20 4e 4f 4e 45 0a 09 09 20 20 20 20 20 20 20 65 6c 73 65 20 28 69 6e 64 65 78 20 3a 3d | hen.NONE..........else.(index.:= |
| 75900 | 20 69 20 2b 20 31 3b 0a 09 09 09 20 20 20 20 20 53 4f 4d 45 20 28 42 79 74 65 2e 62 79 74 65 54 | .i.+.1;.........SOME.(Byte.byteT |
| 75920 | 6f 43 68 61 72 20 28 57 6f 72 64 38 56 65 63 74 6f 72 2e 73 75 62 20 28 76 2c 20 69 29 29 29 29 | oChar.(Word8Vector.sub.(v,.i)))) |
| 75940 | 0a 09 09 20 20 20 20 65 6e 64 0a 09 09 61 6e 64 20 75 6e 67 65 74 63 20 28 29 20 3d 20 69 6e 64 | .......end...and.ungetc.().=.ind |
| 75960 | 65 78 20 3a 3d 20 21 69 6e 64 65 78 20 2d 20 31 0a 09 09 61 6e 64 20 73 65 78 70 20 28 29 20 3a | ex.:=.!index.-.1...and.sexp.().: |
| 75980 | 20 73 65 78 70 20 3d 0a 09 09 20 20 20 20 63 61 73 65 20 67 65 74 63 20 28 29 20 6f 66 0a 09 09 | .sexp.=.......case.getc.().of... |
| 759a0 | 09 23 22 5c 22 22 20 3d 3e 20 73 74 72 69 6e 67 20 28 43 68 61 72 42 75 66 66 65 72 2e 6e 65 77 | .#"\"".=>.string.(CharBuffer.new |
| 759c0 | 20 31 30 30 29 0a 09 09 20 20 20 20 20 20 7c 20 23 22 28 22 20 20 3d 3e 20 6c 73 74 20 28 29 0a | .100).........|.#"("..=>.lst.(). |
| 759e0 | 09 09 20 20 20 20 20 20 7c 20 23 22 27 22 20 3d 3e 20 4c 73 74 20 5b 51 75 6f 74 65 2c 20 73 65 | ........|.#"'".=>.Lst.[Quote,.se |
| 75a00 | 78 70 20 28 29 5d 0a 09 09 20 20 20 20 20 20 7c 20 5f 20 3d 3e 20 28 75 6e 67 65 74 63 28 29 3b | xp.()].........|._.=>.(ungetc(); |
| 75a20 | 20 74 6f 6b 65 6e 20 28 29 29 0a 09 09 61 6e 64 20 73 74 72 69 6e 67 20 62 75 66 20 3a 20 73 65 | .token.())...and.string.buf.:.se |
| 75a40 | 78 70 20 3d 0a 09 09 20 20 20 20 63 61 73 65 20 67 65 74 63 20 28 29 20 6f 66 0a 09 09 09 23 22 | xp.=.......case.getc.().of....#" |
| 75a60 | 5c 22 22 20 3d 3e 20 53 74 72 20 28 43 68 61 72 42 75 66 66 65 72 2e 74 6f 53 74 72 69 6e 67 20 | \"".=>.Str.(CharBuffer.toString. |
| 75a80 | 62 75 66 29 0a 09 09 20 20 20 20 20 20 7c 20 23 22 5c 5c 22 20 3d 3e 20 28 43 68 61 72 42 75 66 | buf).........|.#"\\".=>.(CharBuf |
| 75aa0 | 66 65 72 2e 61 70 70 65 6e 64 20 28 62 75 66 2c 20 67 65 74 63 20 28 29 29 3b 20 73 74 72 69 6e | fer.append.(buf,.getc.());.strin |
| 75ac0 | 67 20 62 75 66 29 0a 09 09 20 20 20 20 20 20 7c 20 63 20 3d 3e 20 28 43 68 61 72 42 75 66 66 65 | g.buf).........|.c.=>.(CharBuffe |
| 75ae0 | 72 2e 61 70 70 65 6e 64 20 28 62 75 66 2c 20 63 29 3b 20 73 74 72 69 6e 67 20 62 75 66 29 0a 09 | r.append.(buf,.c);.string.buf).. |
| 75b00 | 09 61 6e 64 20 6c 73 74 20 28 29 20 3d 0a 09 09 20 20 20 20 6c 65 74 20 76 61 6c 20 78 20 3d 20 | .and.lst.().=.......let.val.x.=. |
| 75b20 | 73 65 78 70 20 28 29 0a 09 09 20 20 20 20 69 6e 20 63 61 73 65 20 67 65 74 63 20 28 29 20 6f 66 | sexp.().......in.case.getc.().of |
| 75b40 | 0a 09 09 09 20 20 20 23 22 29 22 20 3d 3e 20 4c 73 74 20 5b 78 5d 0a 09 09 09 20 7c 20 23 22 20 | .......#")".=>.Lst.[x].....|.#". |
| 75b60 | 22 20 3d 3e 20 6c 65 74 20 76 61 6c 20 4c 73 74 20 79 20 3d 20 6c 73 74 20 28 29 20 69 6e 20 4c | ".=>.let.val.Lst.y.=.lst.().in.L |
| 75b80 | 73 74 20 28 78 20 3a 3a 20 79 29 20 65 6e 64 0a 09 09 09 20 7c 20 5f 20 3d 3e 20 72 61 69 73 65 | st.(x.::.y).end.....|._.=>.raise |
| 75ba0 | 20 52 65 61 64 45 72 72 6f 72 0a 09 09 20 20 20 20 65 6e 64 0a 09 09 61 6e 64 20 74 6f 6b 65 6e | .ReadError.......end...and.token |
| 75bc0 | 20 28 29 20 3d 0a 09 09 20 20 20 20 6c 65 74 20 76 61 6c 20 74 6f 6b 20 3d 20 74 6f 6b 65 6e 27 | .().=.......let.val.tok.=.token' |
| 75be0 | 20 28 43 68 61 72 42 75 66 66 65 72 2e 6e 65 77 20 35 30 29 0a 09 09 09 76 61 6c 20 63 30 20 3d | .(CharBuffer.new.50)....val.c0.= |
| 75c00 | 20 53 74 72 69 6e 67 2e 73 75 62 20 28 74 6f 6b 2c 20 30 29 0a 09 09 20 20 20 20 69 6e 20 69 66 | .String.sub.(tok,.0).......in.if |
| 75c20 | 20 43 68 61 72 2e 69 73 44 69 67 69 74 20 63 30 20 74 68 65 6e 20 28 63 61 73 65 20 49 6e 74 2e | .Char.isDigit.c0.then.(case.Int. |
| 75c40 | 66 72 6f 6d 53 74 72 69 6e 67 20 74 6f 6b 20 6f 66 0a 09 09 09 09 09 09 20 20 20 20 53 4f 4d 45 | fromString.tok.of...........SOME |
| 75c60 | 20 69 20 3d 3e 20 49 6e 74 20 69 0a 09 09 09 09 09 09 20 20 7c 20 4e 4f 4e 45 20 3d 3e 20 72 61 | .i.=>.Int.i.........|.NONE.=>.ra |
| 75c80 | 69 73 65 20 52 65 61 64 45 72 72 6f 72 29 0a 09 09 20 20 20 20 20 20 20 65 6c 73 65 0a 09 09 09 | ise.ReadError)..........else.... |
| 75ca0 | 20 20 20 53 79 6d 20 28 74 6f 6b 29 0a 09 09 20 20 20 20 65 6e 64 0a 09 09 61 6e 64 20 74 6f 6b | ...Sym.(tok).......end...and.tok |
| 75cc0 | 65 6e 27 20 62 75 66 20 3a 20 73 74 72 69 6e 67 20 3d 0a 09 09 20 20 20 20 63 61 73 65 20 67 65 | en'.buf.:.string.=.......case.ge |
| 75ce0 | 74 63 27 20 28 29 20 6f 66 0a 09 09 09 4e 4f 4e 45 20 3d 3e 20 43 68 61 72 42 75 66 66 65 72 2e | tc'.().of....NONE.=>.CharBuffer. |
| 75d00 | 74 6f 53 74 72 69 6e 67 20 62 75 66 0a 09 09 20 20 20 20 20 20 7c 20 53 4f 4d 45 20 23 22 5c 5c | toString.buf.........|.SOME.#"\\ |
| 75d20 | 22 20 3d 3e 20 28 43 68 61 72 42 75 66 66 65 72 2e 61 70 70 65 6e 64 20 28 62 75 66 2c 20 67 65 | ".=>.(CharBuffer.append.(buf,.ge |
| 75d40 | 74 63 20 28 29 29 3b 0a 09 09 09 09 20 20 20 20 20 20 20 74 6f 6b 65 6e 27 20 62 75 66 29 0a 09 | tc.());............token'.buf).. |
| 75d60 | 09 20 20 20 20 20 20 7c 20 53 4f 4d 45 20 23 22 20 22 20 3d 3e 20 28 75 6e 67 65 74 63 20 28 29 | .......|.SOME.#".".=>.(ungetc.() |
| 75d80 | 3b 20 43 68 61 72 42 75 66 66 65 72 2e 74 6f 53 74 72 69 6e 67 20 62 75 66 29 0a 09 09 20 20 20 | ;.CharBuffer.toString.buf)...... |
| 75da0 | 20 20 20 7c 20 53 4f 4d 45 20 23 22 29 22 20 3d 3e 20 28 75 6e 67 65 74 63 20 28 29 3b 20 43 68 | ...|.SOME.#")".=>.(ungetc.();.Ch |
| 75dc0 | 61 72 42 75 66 66 65 72 2e 74 6f 53 74 72 69 6e 67 20 62 75 66 29 0a 09 09 20 20 20 20 20 20 7c | arBuffer.toString.buf).........| |
| 75de0 | 20 53 4f 4d 45 20 63 20 3d 3e 20 28 43 68 61 72 42 75 66 66 65 72 2e 61 70 70 65 6e 64 20 28 62 | .SOME.c.=>.(CharBuffer.append.(b |
| 75e00 | 75 66 2c 20 63 29 3b 20 74 6f 6b 65 6e 27 20 62 75 66 29 0a 09 20 20 20 20 69 6e 0a 09 09 73 65 | uf,.c);.token'.buf)......in...se |
| 75e20 | 78 70 20 28 29 0a 09 20 20 20 20 65 6e 64 0a 0a 09 66 75 6e 20 74 6f 53 74 72 69 6e 67 20 73 65 | xp.()......end...fun.toString.se |
| 75e40 | 78 70 20 3d 0a 09 20 20 20 20 63 61 73 65 20 73 65 78 70 20 6f 66 0a 09 09 28 53 74 72 20 73 29 | xp.=......case.sexp.of...(Str.s) |
| 75e60 | 20 3d 3e 20 22 5c 22 22 20 5e 20 53 74 72 69 6e 67 2e 74 6f 43 53 74 72 69 6e 67 20 73 20 5e 20 | .=>."\"".^.String.toCString.s.^. |
| 75e80 | 22 5c 22 22 0a 09 20 20 20 20 20 20 7c 20 28 4c 73 74 20 5b 5d 29 20 3d 3e 20 22 6e 69 6c 22 0a | "\""........|.(Lst.[]).=>."nil". |
| 75ea0 | 09 20 20 20 20 20 20 7c 20 28 4c 73 74 20 78 73 29 20 3d 3e 20 22 28 22 20 5e 20 53 74 72 69 6e | .......|.(Lst.xs).=>."(".^.Strin |
| 75ec0 | 67 2e 63 6f 6e 63 61 74 57 69 74 68 20 22 20 22 20 28 6d 61 70 20 74 6f 53 74 72 69 6e 67 20 78 | g.concatWith.".".(map.toString.x |
| 75ee0 | 73 29 20 5e 20 22 29 22 0a 09 20 20 20 20 20 20 7c 20 53 79 6d 20 28 6e 61 6d 65 29 20 3d 3e 20 | s).^.")"........|.Sym.(name).=>. |
| 75f00 | 6e 61 6d 65 0a 09 20 20 20 20 20 20 7c 20 51 53 79 6d 20 28 70 6b 67 2c 20 6e 61 6d 65 29 20 3d | name........|.QSym.(pkg,.name).= |
| 75f20 | 3e 20 70 6b 67 20 5e 20 22 3a 22 20 5e 20 6e 61 6d 65 0a 09 20 20 20 20 20 20 7c 20 51 75 6f 74 | >.pkg.^.":".^.name........|.Quot |
| 75f40 | 65 20 3d 3e 20 22 71 75 6f 74 65 22 0a 09 20 20 20 20 20 20 7c 20 54 20 3d 3e 20 22 74 22 0a 09 | e.=>."quote"........|.T.=>."t".. |
| 75f60 | 20 20 20 20 20 20 7c 20 4e 69 6c 20 3d 3e 20 22 6e 69 6c 22 0a 09 20 20 20 20 20 20 7c 20 49 6e | ......|.Nil.=>."nil"........|.In |
| 75f80 | 74 20 69 20 3d 3e 20 49 6e 74 2e 74 6f 53 74 72 69 6e 67 20 69 0a 0a 09 66 75 6e 20 74 6f 55 74 | t.i.=>.Int.toString.i...fun.toUt |
| 75fa0 | 66 38 20 73 65 78 70 20 3d 20 55 74 69 6c 2e 73 74 72 69 6e 67 54 6f 55 74 66 38 20 28 74 6f 53 | f8.sexp.=.Util.stringToUtf8.(toS |
| 75fc0 | 74 72 69 6e 67 20 73 65 78 70 29 0a 20 20 20 20 20 20 65 6e 64 0a 0a 20 20 20 20 73 74 72 75 63 | tring.sexp).......end......struc |
| 75fe0 | 74 75 72 65 20 4e 65 74 20 3d 20 73 74 72 75 63 74 0a 09 6c 6f 63 61 6c 0a 09 20 20 20 20 73 74 | ture.Net.=.struct..local......st |
| 76000 | 72 75 63 74 75 72 65 20 53 20 3d 20 53 6f 63 6b 65 74 0a 09 20 20 20 20 73 74 72 75 63 74 75 72 | ructure.S.=.Socket......structur |
| 76020 | 65 20 49 20 3d 20 49 4e 65 74 53 6f 63 6b 0a 09 20 20 20 20 73 74 72 75 63 74 75 72 65 20 57 20 | e.I.=.INetSock......structure.W. |
| 76040 | 3d 20 57 6f 72 64 38 56 65 63 74 6f 72 0a 0a 09 20 20 20 20 66 75 6e 20 63 72 65 61 74 65 53 6f | =.Word8Vector.......fun.createSo |
| 76060 | 63 6b 65 74 20 28 70 6f 72 74 29 20 3d 0a 09 09 6c 65 74 20 76 61 6c 20 73 6f 63 6b 20 3a 20 53 | cket.(port).=...let.val.sock.:.S |
| 76080 | 2e 70 61 73 73 69 76 65 20 49 2e 73 74 72 65 61 6d 5f 73 6f 63 6b 20 3d 20 49 2e 54 43 50 2e 73 | .passive.I.stream_sock.=.I.TCP.s |
| 760a0 | 6f 63 6b 65 74 20 28 29 0a 09 09 20 20 20 20 76 61 6c 20 53 4f 4d 45 20 6c 6f 63 61 6c 68 6f 73 | ocket.().......val.SOME.localhos |
| 760c0 | 74 20 3d 20 4e 65 74 48 6f 73 74 44 42 2e 66 72 6f 6d 53 74 72 69 6e 67 20 22 31 32 37 2e 30 2e | t.=.NetHostDB.fromString."127.0. |
| 760e0 | 30 2e 31 22 0a 09 09 69 6e 0a 09 09 20 20 20 20 53 2e 43 74 6c 2e 73 65 74 52 45 55 53 45 41 44 | 0.1"...in.......S.Ctl.setREUSEAD |
| 76100 | 44 52 20 28 73 6f 63 6b 2c 20 74 72 75 65 29 3b 0a 09 09 20 20 20 20 53 2e 62 69 6e 64 20 28 73 | DR.(sock,.true);.......S.bind.(s |
| 76120 | 6f 63 6b 2c 20 49 2e 74 6f 41 64 64 72 20 28 6c 6f 63 61 6c 68 6f 73 74 2c 20 70 6f 72 74 29 29 | ock,.I.toAddr.(localhost,.port)) |
| 76140 | 3b 0a 09 09 20 20 20 20 53 2e 6c 69 73 74 65 6e 20 28 73 6f 63 6b 2c 20 32 29 3b 0a 09 09 20 20 | ;.......S.listen.(sock,.2);..... |
| 76160 | 20 20 73 6f 63 6b 0a 09 09 65 6e 64 0a 0a 09 20 20 20 20 66 75 6e 20 61 64 64 72 54 6f 53 74 72 | ..sock...end.......fun.addrToStr |
| 76180 | 69 6e 67 20 73 6f 63 6b 41 64 64 72 20 3d 0a 09 09 6c 65 74 20 76 61 6c 20 28 69 70 2c 20 70 6f | ing.sockAddr.=...let.val.(ip,.po |
| 761a0 | 72 74 29 20 3d 20 49 2e 66 72 6f 6d 41 64 64 72 20 73 6f 63 6b 41 64 64 72 0a 09 09 69 6e 20 4e | rt).=.I.fromAddr.sockAddr...in.N |
| 761c0 | 65 74 48 6f 73 74 44 42 2e 74 6f 53 74 72 69 6e 67 20 69 70 20 5e 20 22 3a 22 20 5e 20 49 6e 74 | etHostDB.toString.ip.^.":".^.Int |
| 761e0 | 2e 74 6f 53 74 72 69 6e 67 20 70 6f 72 74 0a 09 09 65 6e 64 0a 0a 09 20 20 20 20 65 78 63 65 70 | .toString.port...end.......excep |
| 76200 | 74 69 6f 6e 20 53 68 6f 72 74 52 65 61 64 20 6f 66 20 57 2e 76 65 63 74 6f 72 0a 09 20 20 20 20 | tion.ShortRead.of.W.vector...... |
| 76220 | 65 78 63 65 70 74 69 6f 6e 20 49 6e 76 61 6c 69 64 48 65 78 53 74 72 69 6e 67 20 6f 66 20 73 74 | exception.InvalidHexString.of.st |
| 76240 | 72 69 6e 67 0a 09 69 6e 0a 0a 09 66 75 6e 20 61 63 63 65 70 74 43 6f 6e 6e 65 63 74 69 6f 6e 20 | ring..in...fun.acceptConnection. |
| 76260 | 70 6f 72 74 20 3d 0a 09 20 20 20 20 6c 65 74 20 76 61 6c 20 73 6f 63 6b 20 3d 20 63 72 65 61 74 | port.=......let.val.sock.=.creat |
| 76280 | 65 53 6f 63 6b 65 74 20 70 6f 72 74 0a 09 09 76 61 6c 20 61 64 64 72 20 3d 20 53 2e 43 74 6c 2e | eSocket.port...val.addr.=.S.Ctl. |
| 762a0 | 67 65 74 53 6f 63 6b 4e 61 6d 65 20 73 6f 63 6b 0a 09 09 76 61 6c 20 5f 20 3d 20 70 72 69 6e 74 | getSockName.sock...val._.=.print |
| 762c0 | 20 28 22 4c 69 73 74 65 6e 69 6e 67 20 6f 6e 3a 20 22 20 5e 20 61 64 64 72 54 6f 53 74 72 69 6e | .("Listening.on:.".^.addrToStrin |
| 762e0 | 67 20 61 64 64 72 20 5e 20 22 5c 6e 22 29 0a 09 09 76 61 6c 20 28 70 65 65 72 2c 20 61 64 64 72 | g.addr.^."\n")...val.(peer,.addr |
| 76300 | 29 20 3d 20 53 2e 61 63 63 65 70 74 20 73 6f 63 6b 0a 09 20 20 20 20 69 6e 0a 09 09 53 2e 63 6c | ).=.S.accept.sock......in...S.cl |
| 76320 | 6f 73 65 20 73 6f 63 6b 3b 0a 09 09 70 72 69 6e 74 20 28 22 43 6f 6e 6e 65 63 74 69 6f 6e 20 66 | ose.sock;...print.("Connection.f |
| 76340 | 72 6f 6d 3a 20 22 20 5e 20 61 64 64 72 54 6f 53 74 72 69 6e 67 20 61 64 64 72 20 5e 20 22 5c 6e | rom:.".^.addrToString.addr.^."\n |
| 76360 | 22 29 3b 0a 09 09 70 65 65 72 0a 09 20 20 20 20 65 6e 64 0a 0a 09 66 75 6e 20 72 65 63 65 69 76 | ");...peer......end...fun.receiv |
| 76380 | 65 50 61 63 6b 65 74 20 73 6f 63 6b 65 74 20 3d 0a 09 20 20 20 20 6c 65 74 20 76 61 6c 20 76 20 | ePacket.socket.=......let.val.v. |
| 763a0 | 3d 20 53 2e 72 65 63 76 56 65 63 20 28 73 6f 63 6b 65 74 2c 20 36 29 0a 09 09 76 61 6c 20 5f 20 | =.S.recvVec.(socket,.6)...val._. |
| 763c0 | 3d 20 69 66 20 57 2e 6c 65 6e 67 74 68 20 76 20 3d 20 36 20 74 68 65 6e 20 28 29 0a 09 09 09 65 | =.if.W.length.v.=.6.then.()....e |
| 763e0 | 6c 73 65 20 72 61 69 73 65 20 53 68 6f 72 74 52 65 61 64 20 76 0a 09 09 76 61 6c 20 73 20 3d 20 | lse.raise.ShortRead.v...val.s.=. |
| 76400 | 55 74 69 6c 2e 75 74 66 38 54 6f 53 74 72 69 6e 67 20 76 0a 09 09 76 61 6c 20 5f 20 3d 20 70 72 | Util.utf8ToString.v...val._.=.pr |
| 76420 | 69 6e 74 20 28 22 73 20 3d 20 22 20 5e 20 73 20 5e 20 22 5c 6e 22 29 0a 09 09 76 61 6c 20 6c 65 | int.("s.=.".^.s.^."\n")...val.le |
| 76440 | 6e 20 3d 0a 09 09 20 20 20 20 63 61 73 65 20 53 74 72 69 6e 67 43 76 74 2e 73 63 61 6e 53 74 72 | n.=.......case.StringCvt.scanStr |
| 76460 | 69 6e 67 20 28 49 6e 74 2e 73 63 61 6e 20 53 74 72 69 6e 67 43 76 74 2e 48 45 58 29 20 73 20 6f | ing.(Int.scan.StringCvt.HEX).s.o |
| 76480 | 66 0a 09 09 09 53 4f 4d 45 20 6c 65 6e 20 3d 3e 20 6c 65 6e 0a 09 09 20 20 20 20 20 20 7c 20 4e | f....SOME.len.=>.len.........|.N |
| 764a0 | 4f 4e 45 20 3d 3e 20 72 61 69 73 65 20 49 6e 76 61 6c 69 64 48 65 78 53 74 72 69 6e 67 20 73 0a | ONE.=>.raise.InvalidHexString.s. |
| 764c0 | 09 09 76 61 6c 20 5f 20 3d 20 70 72 69 6e 74 20 28 22 6c 65 6e 20 3d 20 22 20 5e 20 49 6e 74 2e | ..val._.=.print.("len.=.".^.Int. |
| 764e0 | 74 6f 53 74 72 69 6e 67 20 6c 65 6e 20 5e 20 22 5c 6e 22 29 0a 09 09 76 61 6c 20 70 61 79 6c 6f | toString.len.^."\n")...val.paylo |
| 76500 | 61 64 20 3d 20 53 2e 72 65 63 76 56 65 63 20 28 73 6f 63 6b 65 74 2c 20 6c 65 6e 29 0a 09 09 76 | ad.=.S.recvVec.(socket,.len)...v |
| 76520 | 61 6c 20 70 6c 65 6e 20 3d 20 57 2e 6c 65 6e 67 74 68 20 70 61 79 6c 6f 61 64 0a 09 09 76 61 6c | al.plen.=.W.length.payload...val |
| 76540 | 20 5f 20 3d 20 70 72 69 6e 74 20 28 22 70 6c 65 6e 20 3d 20 22 20 5e 20 49 6e 74 2e 74 6f 53 74 | ._.=.print.("plen.=.".^.Int.toSt |
| 76560 | 72 69 6e 67 20 70 6c 65 6e 20 5e 20 22 5c 6e 22 29 0a 09 09 76 61 6c 20 5f 20 3d 20 69 66 20 70 | ring.plen.^."\n")...val._.=.if.p |
| 76580 | 6c 65 6e 20 3d 20 6c 65 6e 20 74 68 65 6e 20 28 29 0a 09 09 09 65 6c 73 65 20 72 61 69 73 65 20 | len.=.len.then.()....else.raise. |
| 765a0 | 53 68 6f 72 74 52 65 61 64 20 70 61 79 6c 6f 61 64 0a 09 20 20 20 20 69 6e 0a 09 09 70 61 79 6c | ShortRead.payload......in...payl |
| 765c0 | 6f 61 64 0a 09 20 20 20 20 65 6e 64 0a 0a 09 66 75 6e 20 6e 69 62 62 6c 65 54 6f 48 65 78 20 69 | oad......end...fun.nibbleToHex.i |
| 765e0 | 3a 73 74 72 69 6e 67 20 3d 20 49 6e 74 2e 66 6d 74 20 53 74 72 69 6e 67 43 76 74 2e 48 45 58 20 | :string.=.Int.fmt.StringCvt.HEX. |
| 76600 | 69 0a 0a 09 66 75 6e 20 6c 6f 61 64 4e 69 62 62 6c 65 20 69 20 70 6f 73 20 3d 0a 09 20 20 20 20 | i...fun.loadNibble.i.pos.=...... |
| 76620 | 57 6f 72 64 33 32 2e 74 6f 49 6e 74 20 28 57 6f 72 64 33 32 2e 61 6e 64 62 20 28 57 6f 72 64 33 | Word32.toInt.(Word32.andb.(Word3 |
| 76640 | 32 2e 3e 3e 20 28 57 6f 72 64 33 32 2e 66 72 6f 6d 49 6e 74 20 69 2c 0a 09 09 09 09 09 09 20 20 | 2.>>.(Word32.fromInt.i,......... |
| 76660 | 57 6f 72 64 2e 66 72 6f 6d 49 6e 74 20 28 70 6f 73 20 2a 20 34 29 29 2c 0a 09 09 09 09 20 20 20 | Word.fromInt.(pos.*.4)),........ |
| 76680 | 20 20 20 20 30 77 78 66 29 29 0a 0a 09 66 75 6e 20 68 65 78 44 69 67 69 74 20 69 20 70 6f 73 20 | ....0wxf))...fun.hexDigit.i.pos. |
| 766a0 | 3d 20 6e 69 62 62 6c 65 54 6f 48 65 78 20 28 6c 6f 61 64 4e 69 62 62 6c 65 20 69 20 70 6f 73 29 | =.nibbleToHex.(loadNibble.i.pos) |
| 766c0 | 0a 0a 09 66 75 6e 20 6c 65 6e 54 6f 48 65 78 20 69 20 3d 0a 09 20 20 20 20 63 6f 6e 63 61 74 20 | ...fun.lenToHex.i.=......concat. |
| 766e0 | 5b 68 65 78 44 69 67 69 74 20 69 20 35 2c 0a 09 09 20 20 20 20 68 65 78 44 69 67 69 74 20 69 20 | [hexDigit.i.5,.......hexDigit.i. |
| 76700 | 34 2c 0a 09 09 20 20 20 20 68 65 78 44 69 67 69 74 20 69 20 33 2c 0a 09 09 20 20 20 20 68 65 78 | 4,.......hexDigit.i.3,.......hex |
| 76720 | 44 69 67 69 74 20 69 20 32 2c 0a 09 09 20 20 20 20 68 65 78 44 69 67 69 74 20 69 20 31 2c 0a 09 | Digit.i.2,.......hexDigit.i.1,.. |
| 76740 | 09 20 20 20 20 68 65 78 44 69 67 69 74 20 69 20 30 5d 0a 0a 09 66 75 6e 20 73 65 6e 64 50 61 63 | .....hexDigit.i.0]...fun.sendPac |
| 76760 | 6b 65 74 20 28 70 61 79 6c 6f 61 64 3a 57 2e 76 65 63 74 6f 72 2c 20 73 6f 63 6b 65 74 29 20 3d | ket.(payload:W.vector,.socket).= |
| 76780 | 0a 09 20 20 20 20 6c 65 74 20 76 61 6c 20 6c 65 6e 20 3d 20 57 2e 6c 65 6e 67 74 68 20 70 61 79 | ......let.val.len.=.W.length.pay |
| 767a0 | 6c 6f 61 64 0a 09 09 76 61 6c 20 68 65 61 64 65 72 20 3d 20 55 74 69 6c 2e 73 74 72 69 6e 67 54 | load...val.header.=.Util.stringT |
| 767c0 | 6f 55 74 66 38 20 28 6c 65 6e 54 6f 48 65 78 20 6c 65 6e 29 0a 09 09 76 61 6c 20 70 61 63 6b 65 | oUtf8.(lenToHex.len)...val.packe |
| 767e0 | 74 20 3d 20 57 2e 63 6f 6e 63 61 74 20 5b 68 65 61 64 65 72 2c 20 70 61 79 6c 6f 61 64 5d 0a 09 | t.=.W.concat.[header,.payload].. |
| 76800 | 20 20 20 20 69 6e 20 20 70 72 69 6e 74 20 28 22 6c 65 6e 20 3d 20 22 20 5e 20 49 6e 74 2e 74 6f | ....in..print.("len.=.".^.Int.to |
| 76820 | 53 74 72 69 6e 67 20 6c 65 6e 20 5e 20 22 5c 6e 22 0a 09 09 20 20 20 20 20 20 20 5e 20 22 68 65 | String.len.^."\n"..........^."he |
| 76840 | 61 64 65 72 20 3d 20 22 20 5e 20 6c 65 6e 54 6f 48 65 78 20 6c 65 6e 20 5e 20 22 5c 6e 22 0a 09 | ader.=.".^.lenToHex.len.^."\n".. |
| 76860 | 09 20 20 20 20 20 20 20 5e 20 22 70 61 79 6c 61 64 20 3d 20 22 20 5e 20 55 74 69 6c 2e 75 74 66 | ........^."paylad.=.".^.Util.utf |
| 76880 | 38 54 6f 53 74 72 69 6e 67 20 70 61 79 6c 6f 61 64 20 5e 20 22 5c 6e 22 29 3b 0a 09 09 53 2e 73 | 8ToString.payload.^."\n");...S.s |
| 768a0 | 65 6e 64 56 65 63 20 28 73 6f 63 6b 65 74 2c 20 7b 62 75 66 20 3d 20 70 61 63 6b 65 74 2c 20 69 | endVec.(socket,.{buf.=.packet,.i |
| 768c0 | 20 3d 20 30 2c 20 73 7a 20 3d 20 4e 4f 4e 45 7d 29 0a 09 20 20 20 20 65 6e 64 0a 0a 09 65 6e 64 | .=.0,.sz.=.NONE})......end...end |
| 768e0 | 0a 20 20 20 20 20 20 65 6e 64 0a 0a 20 20 20 20 73 74 72 75 63 74 75 72 65 20 52 70 63 20 3d 20 | .......end......structure.Rpc.=. |
| 76900 | 73 74 72 75 63 74 0a 09 6f 70 65 6e 20 53 65 78 70 2e 54 79 70 65 0a 0a 09 76 61 6c 20 66 75 6e | struct..open.Sexp.Type...val.fun |
| 76920 | 54 61 62 6c 65 20 3a 20 28 73 74 72 69 6e 67 2c 20 73 65 78 70 20 6c 69 73 74 20 2d 3e 20 73 65 | Table.:.(string,.sexp.list.->.se |
| 76940 | 78 70 29 20 4d 61 70 2e 6d 61 70 0a 09 20 20 20 20 3d 20 4d 61 70 2e 73 74 72 69 6e 67 4d 61 70 | xp).Map.map......=.Map.stringMap |
| 76960 | 20 28 29 0a 0a 09 66 75 6e 20 64 65 66 69 6e 65 20 6e 61 6d 65 20 66 20 3d 20 4d 61 70 2e 70 75 | .()...fun.define.name.f.=.Map.pu |
| 76980 | 74 20 28 66 75 6e 54 61 62 6c 65 2c 20 6e 61 6d 65 2c 20 66 29 0a 0a 09 65 78 63 65 70 74 69 6f | t.(funTable,.name,.f)...exceptio |
| 769a0 | 6e 20 55 6e 6b 6e 6f 77 6e 46 75 6e 63 74 69 6f 6e 20 6f 66 20 73 74 72 69 6e 67 0a 09 66 75 6e | n.UnknownFunction.of.string..fun |
| 769c0 | 20 63 61 6c 6c 20 28 6e 61 6d 65 2c 20 61 72 67 73 29 20 3d 0a 09 20 20 20 20 28 70 72 69 6e 74 | .call.(name,.args).=......(print |
| 769e0 | 20 28 22 63 61 6c 6c 3a 20 22 20 5e 20 6e 61 6d 65 20 5e 20 22 5c 6e 22 29 3b 0a 09 20 20 20 20 | .("call:.".^.name.^."\n");...... |
| 76a00 | 20 63 61 73 65 20 4d 61 70 2e 6c 6f 6f 6b 75 70 20 28 66 75 6e 54 61 62 6c 65 2c 20 6e 61 6d 65 | .case.Map.lookup.(funTable,.name |
| 76a20 | 29 20 6f 66 0a 09 09 20 53 4f 4d 45 20 66 20 3d 3e 20 66 20 61 72 67 73 0a 09 20 20 20 20 20 20 | ).of....SOME.f.=>.f.args........ |
| 76a40 | 20 7c 20 4e 4f 4e 45 20 3d 3e 20 72 61 69 73 65 20 55 6e 6b 6e 6f 77 6e 46 75 6e 63 74 69 6f 6e | .|.NONE.=>.raise.UnknownFunction |
| 76a60 | 20 6e 61 6d 65 29 0a 0a 0a 09 6c 6f 63 61 6c 20 66 75 6e 20 67 65 74 70 69 64 20 28 29 20 3d 0a | .name)....local.fun.getpid.().=. |
| 76a80 | 09 20 20 20 20 57 6f 72 64 33 32 2e 74 6f 49 6e 74 20 28 50 6f 73 69 78 2e 50 72 6f 63 65 73 73 | .....Word32.toInt.(Posix.Process |
| 76aa0 | 2e 70 69 64 54 6f 57 6f 72 64 20 28 50 6f 73 69 78 2e 50 72 6f 63 45 6e 76 2e 67 65 74 70 69 64 | .pidToWord.(Posix.ProcEnv.getpid |
| 76ac0 | 20 28 29 29 29 0a 09 69 6e 0a 09 66 75 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 49 6e 66 6f 20 5b 5d | .()))..in..fun.connectionInfo.[] |
| 76ae0 | 20 3d 0a 09 20 20 20 20 4c 73 74 20 5b 53 79 6d 20 22 3a 70 69 64 22 2c 20 49 6e 74 20 28 67 65 | .=......Lst.[Sym.":pid",.Int.(ge |
| 76b00 | 74 70 69 64 20 28 29 29 2c 0a 09 09 20 53 79 6d 20 22 3a 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e | tpid.()),....Sym.":lisp-implemen |
| 76b20 | 74 61 74 69 6f 6e 22 2c 20 4c 73 74 20 5b 53 79 6d 20 22 3a 74 79 70 65 22 2c 20 53 74 72 20 22 | tation",.Lst.[Sym.":type",.Str." |
| 76b40 | 4d 4c 57 6f 72 6b 73 22 2c 0a 09 09 09 09 09 09 20 20 53 79 6d 20 22 3a 6e 61 6d 65 22 2c 20 53 | MLWorks",.........Sym.":name",.S |
| 76b60 | 74 72 20 22 6d 6c 77 6f 72 6b 73 22 2c 0a 09 09 09 09 09 09 20 20 53 79 6d 20 22 3a 76 65 72 73 | tr."mlworks",.........Sym.":vers |
| 76b80 | 69 6f 6e 22 2c 20 53 74 72 20 22 32 2e 78 22 5d 2c 0a 09 09 20 53 79 6d 20 22 3a 6d 61 63 68 69 | ion",.Str."2.x"],....Sym.":machi |
| 76ba0 | 6e 65 22 2c 20 4c 73 74 20 5b 53 79 6d 20 22 3a 69 6e 73 74 61 6e 63 65 22 2c 20 53 74 72 20 22 | ne",.Lst.[Sym.":instance",.Str." |
| 76bc0 | 22 2c 0a 09 09 09 09 20 20 20 20 20 20 53 79 6d 20 22 3a 74 79 70 65 22 2c 20 53 74 72 20 22 22 | ",...........Sym.":type",.Str."" |
| 76be0 | 2c 0a 09 09 09 09 20 20 20 20 20 20 53 79 6d 20 22 3a 76 65 72 73 69 6f 6e 22 2c 20 53 74 72 20 | ,...........Sym.":version",.Str. |
| 76c00 | 22 22 5d 2c 0a 09 09 20 53 79 6d 20 22 3a 66 65 61 74 75 72 65 73 22 2c 20 4e 69 6c 2c 0a 09 09 | ""],....Sym.":features",.Nil,... |
| 76c20 | 20 53 79 6d 20 22 3a 70 61 63 6b 61 67 65 22 2c 20 4c 73 74 20 5b 53 79 6d 20 22 3a 6e 61 6d 65 | .Sym.":package",.Lst.[Sym.":name |
| 76c40 | 22 2c 20 53 74 72 20 22 72 6f 6f 74 22 2c 0a 09 09 09 09 20 20 20 20 20 20 53 79 6d 20 22 3a 70 | ",.Str."root",...........Sym.":p |
| 76c60 | 72 6f 6d 70 74 22 2c 20 53 74 72 20 22 2d 22 5d 5d 0a 09 65 6e 64 0a 0a 09 66 75 6e 20 6e 79 69 | rompt",.Str."-"]]..end...fun.nyi |
| 76c80 | 20 5f 20 3d 20 4e 69 6c 0a 0a 09 6c 6f 63 61 6c 20 73 74 72 75 63 74 75 72 65 20 44 20 3d 20 53 | ._.=.Nil...local.structure.D.=.S |
| 76ca0 | 68 65 6c 6c 2e 44 79 6e 61 6d 69 63 0a 09 69 6e 0a 09 66 75 6e 20 69 6e 74 65 72 61 63 74 69 76 | hell.Dynamic..in..fun.interactiv |
| 76cc0 | 65 45 76 61 6c 20 5b 53 74 72 20 73 74 72 69 6e 67 5d 20 3d 0a 09 20 20 20 20 6c 65 74 20 76 61 | eEval.[Str.string].=......let.va |
| 76ce0 | 6c 20 78 20 3d 20 44 2e 65 76 61 6c 20 73 74 72 69 6e 67 0a 09 20 20 20 20 69 6e 20 53 74 72 20 | l.x.=.D.eval.string......in.Str. |
| 76d00 | 28 63 6f 6e 63 61 74 20 5b 44 2e 70 72 69 6e 74 56 61 6c 75 65 20 78 2c 20 22 20 3a 20 22 2c 20 | (concat.[D.printValue.x,.".:.",. |
| 76d20 | 44 2e 70 72 69 6e 74 54 79 70 65 20 28 44 2e 67 65 74 54 79 70 65 20 78 29 5d 29 0a 09 20 20 20 | D.printType.(D.getType.x)])..... |
| 76d40 | 20 65 6e 64 0a 09 65 6e 64 0a 0a 09 76 61 6c 20 5f 20 3d 0a 09 20 20 20 20 28 64 65 66 69 6e 65 | .end..end...val._.=......(define |
| 76d60 | 20 22 73 77 61 6e 6b 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 69 6e 66 6f 22 20 63 6f 6e 6e 65 63 74 | ."swank:connection-info".connect |
| 76d80 | 69 6f 6e 49 6e 66 6f 3b 0a 09 20 20 20 20 20 64 65 66 69 6e 65 20 22 73 77 61 6e 6b 3a 73 77 61 | ionInfo;.......define."swank:swa |
| 76da0 | 6e 6b 2d 72 65 71 75 69 72 65 22 20 6e 79 69 3b 0a 09 20 20 20 20 20 64 65 66 69 6e 65 20 22 73 | nk-require".nyi;.......define."s |
| 76dc0 | 77 61 6e 6b 3a 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 22 20 69 6e 74 65 72 61 63 74 69 | wank:interactive-eval".interacti |
| 76de0 | 76 65 45 76 61 6c 3b 0a 09 20 20 20 20 20 28 29 29 0a 20 20 20 20 20 20 65 6e 64 0a 0a 20 20 20 | veEval;.......()).......end..... |
| 76e00 | 20 73 74 72 75 63 74 75 72 65 20 45 76 65 6e 74 4c 6f 6f 70 20 3d 20 73 74 72 75 63 74 0a 09 6f | .structure.EventLoop.=.struct..o |
| 76e20 | 70 65 6e 20 53 65 78 70 2e 54 79 70 65 0a 0a 09 66 75 6e 20 65 78 65 63 75 74 65 20 28 73 65 78 | pen.Sexp.Type...fun.execute.(sex |
| 76e40 | 70 2c 20 70 6b 67 29 20 3d 0a 09 20 20 20 20 28 70 72 69 6e 74 20 28 22 73 65 78 70 20 3d 20 22 | p,.pkg).=......(print.("sexp.=." |
| 76e60 | 20 5e 20 28 53 65 78 70 2e 74 6f 53 74 72 69 6e 67 20 73 65 78 70 29 20 5e 20 22 5c 6e 22 29 3b | .^.(Sexp.toString.sexp).^."\n"); |
| 76e80 | 0a 09 20 20 20 20 20 63 61 73 65 20 73 65 78 70 20 6f 66 0a 09 09 20 4c 73 74 20 28 53 79 6d 20 | .......case.sexp.of....Lst.(Sym. |
| 76ea0 | 6e 61 6d 65 20 3a 3a 20 61 72 67 73 29 20 3d 3e 20 52 70 63 2e 63 61 6c 6c 20 28 6e 61 6d 65 2c | name.::.args).=>.Rpc.call.(name, |
| 76ec0 | 20 61 72 67 73 29 29 0a 0a 09 66 75 6e 20 65 6d 61 63 73 52 65 78 20 28 73 65 78 70 2c 20 70 6b | .args))...fun.emacsRex.(sexp,.pk |
| 76ee0 | 67 2c 20 69 64 20 61 73 20 49 6e 74 20 5f 2c 20 73 6f 63 6b 29 20 3d 0a 09 20 20 20 20 6c 65 74 | g,.id.as.Int._,.sock).=......let |
| 76f00 | 20 76 61 6c 20 72 65 73 75 6c 74 20 3d 20 28 4c 73 74 20 5b 53 79 6d 20 28 22 3a 6f 6b 22 29 2c | .val.result.=.(Lst.[Sym.(":ok"), |
| 76f20 | 20 65 78 65 63 75 74 65 20 28 73 65 78 70 2c 20 70 6b 67 29 5d 0a 09 09 09 20 20 20 20 20 20 68 | .execute.(sexp,.pkg)]..........h |
| 76f40 | 61 6e 64 6c 65 20 65 78 6e 20 3d 3e 20 28 4c 73 74 20 5b 53 79 6d 20 22 3a 61 62 6f 72 74 22 2c | andle.exn.=>.(Lst.[Sym.":abort", |
| 76f60 | 0a 09 09 09 09 09 09 20 20 53 74 72 20 28 65 78 6e 4e 61 6d 65 20 65 78 6e 20 5e 20 22 3a 20 22 | .........Str.(exnName.exn.^.":." |
| 76f80 | 0a 09 09 09 09 09 09 20 20 20 20 20 20 20 5e 20 65 78 6e 4d 65 73 73 61 67 65 20 65 78 6e 29 5d | ..............^.exnMessage.exn)] |
| 76fa0 | 29 29 0a 09 09 76 61 6c 20 72 65 70 6c 79 20 3d 20 4c 73 74 20 5b 53 79 6d 20 22 3a 72 65 74 75 | ))...val.reply.=.Lst.[Sym.":retu |
| 76fc0 | 72 6e 22 2c 20 72 65 73 75 6c 74 2c 20 69 64 5d 0a 09 20 20 20 20 69 6e 20 4e 65 74 2e 73 65 6e | rn",.result,.id]......in.Net.sen |
| 76fe0 | 64 50 61 63 6b 65 74 20 28 53 65 78 70 2e 74 6f 55 74 66 38 20 72 65 70 6c 79 2c 20 73 6f 63 6b | dPacket.(Sexp.toUtf8.reply,.sock |
| 77000 | 29 0a 09 20 20 20 20 65 6e 64 0a 0a 09 66 75 6e 20 64 69 73 70 61 74 63 68 20 28 4c 73 74 20 28 | )......end...fun.dispatch.(Lst.( |
| 77020 | 28 53 79 6d 20 6b 65 79 29 20 3a 3a 20 61 72 67 73 29 2c 20 73 6f 63 6b 29 20 3d 0a 09 20 20 20 | (Sym.key).::.args),.sock).=..... |
| 77040 | 20 63 61 73 65 20 6b 65 79 20 6f 66 0a 09 09 22 3a 65 6d 61 63 73 2d 72 65 78 22 20 3d 3e 20 6c | .case.key.of...":emacs-rex".=>.l |
| 77060 | 65 74 20 76 61 6c 20 20 5b 73 65 78 70 2c 20 70 6b 67 2c 20 5f 2c 20 69 64 5d 20 3d 20 61 72 67 | et.val..[sexp,.pkg,._,.id].=.arg |
| 77080 | 73 0a 09 09 09 09 69 6e 20 65 6d 61 63 73 52 65 78 20 28 73 65 78 70 2c 20 70 6b 67 2c 20 69 64 | s.....in.emacsRex.(sexp,.pkg,.id |
| 770a0 | 2c 20 73 6f 63 6b 29 0a 09 09 09 09 65 6e 64 0a 0a 09 66 75 6e 20 70 72 6f 63 65 73 73 52 65 71 | ,.sock).....end...fun.processReq |
| 770c0 | 75 65 73 74 73 20 73 6f 63 6b 65 74 3a 75 6e 69 74 20 3d 0a 09 20 20 20 20 6c 65 74 20 76 61 6c | uests.socket:unit.=......let.val |
| 770e0 | 20 73 65 78 70 20 3d 20 53 65 78 70 2e 66 72 6f 6d 55 74 66 38 20 28 4e 65 74 2e 72 65 63 65 69 | .sexp.=.Sexp.fromUtf8.(Net.recei |
| 77100 | 76 65 50 61 63 6b 65 74 20 73 6f 63 6b 65 74 29 0a 09 20 20 20 20 69 6e 20 70 72 69 6e 74 20 28 | vePacket.socket)......in.print.( |
| 77120 | 22 72 65 71 75 65 73 74 3a 20 22 0a 09 09 20 20 20 20 20 20 5e 20 55 74 69 6c 2e 75 74 66 38 54 | "request:.".........^.Util.utf8T |
| 77140 | 6f 53 74 72 69 6e 67 20 28 53 65 78 70 2e 74 6f 55 74 66 38 20 73 65 78 70 29 0a 09 09 20 20 20 | oString.(Sexp.toUtf8.sexp)...... |
| 77160 | 20 20 20 5e 20 22 5c 6e 22 29 3b 0a 09 20 20 20 20 20 20 20 64 69 73 70 61 74 63 68 20 28 73 65 | ...^."\n");.........dispatch.(se |
| 77180 | 78 70 2c 20 73 6f 63 6b 65 74 29 3b 0a 09 20 20 20 20 20 20 20 70 72 6f 63 65 73 73 52 65 71 75 | xp,.socket);.........processRequ |
| 771a0 | 65 73 74 73 20 73 6f 63 6b 65 74 0a 09 20 20 20 20 65 6e 64 0a 0a 20 20 20 20 20 20 65 6e 64 0a | ests.socket......end........end. |
| 771c0 | 0a 20 20 20 20 28 2a 20 76 61 6c 20 5f 20 3d 20 45 76 65 6e 74 4c 6f 6f 70 2e 70 72 6f 63 65 73 | .....(*.val._.=.EventLoop.proces |
| 771e0 | 73 52 65 71 75 65 73 74 73 20 28 4e 65 74 2e 61 63 63 65 70 74 43 6f 6e 6e 65 63 74 69 6f 6e 20 | sRequests.(Net.acceptConnection. |
| 77200 | 34 30 30 35 29 20 2a 29 0a 20 20 20 20 76 61 6c 20 5f 20 3d 20 28 29 0a 20 20 65 6e 64 0a 0a 28 | 4005).*).....val._.=.()...end..( |
| 77220 | 2a 20 28 53 77 61 6e 6b 2e 45 76 65 6e 74 4c 6f 6f 70 2e 70 72 6f 63 65 73 73 52 65 71 75 65 73 | *.(Swank.EventLoop.processReques |
| 77240 | 74 73 20 28 53 77 61 6e 6b 2e 4e 65 74 2e 61 63 63 65 70 74 43 6f 6e 6e 65 63 74 69 6f 6e 20 34 | ts.(Swank.Net.acceptConnection.4 |
| 77260 | 30 30 35 29 29 20 2a 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | 005)).*)........................ |
| 77280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 772a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 772c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 772e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 773a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 773c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 773e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 6c 61 72 63 65 6e 79 | slime-2.31/contrib/swank-larceny |
| 77420 | 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .scm............................ |
| 77440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 77480 | 30 30 31 31 35 31 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 33 34 00 20 30 00 00 00 | 0011515.00000000000.016134..0... |
| 774a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 774c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 774e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 77520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 77540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 775a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 775c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 775e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77600 | 3b 3b 20 73 77 61 6e 6b 2d 6c 61 72 63 65 6e 79 2e 73 63 6d 20 2d 2d 2d 20 53 77 61 6e 6b 20 73 | ;;.swank-larceny.scm.---.Swank.s |
| 77620 | 65 72 76 65 72 20 66 6f 72 20 4c 61 72 63 65 6e 79 0a 3b 3b 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a | erver.for.Larceny.;;.;;.License: |
| 77640 | 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 48 65 6c 6d 75 74 | .Public.Domain.;;.Author:.Helmut |
| 77660 | 20 45 6c 6c 65 72 0a 3b 3b 0a 3b 3b 20 49 6e 20 61 20 73 68 65 6c 6c 20 65 78 65 63 75 74 65 3a | .Eller.;;.;;.In.a.shell.execute: |
| 77680 | 0a 3b 3b 20 20 20 6c 61 72 63 65 6e 79 20 2d 72 36 72 73 20 2d 70 72 6f 67 72 61 6d 20 73 77 61 | .;;...larceny.-r6rs.-program.swa |
| 776a0 | 6e 6b 2d 6c 61 72 63 65 6e 79 2e 73 63 6d 0a 3b 3b 20 61 6e 64 20 74 68 65 6e 20 60 4d 2d 78 20 | nk-larceny.scm.;;.and.then.`M-x. |
| 776c0 | 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 27 20 69 6e 20 45 6d 61 63 73 2e 0a 0a 28 6c 69 62 72 61 | slime-connect'.in.Emacs...(libra |
| 776e0 | 72 79 20 28 73 77 61 6e 6b 20 6f 73 29 0a 20 20 20 20 28 65 78 70 6f 72 74 20 67 65 74 70 69 64 | ry.(swank.os).....(export.getpid |
| 77700 | 20 6d 61 6b 65 2d 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 20 61 63 63 65 70 74 20 6c 6f 63 61 6c | .make-server-socket.accept.local |
| 77720 | 2d 70 6f 72 74 20 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 29 0a 20 20 20 20 28 69 6d 70 6f 72 74 20 | -port.close-socket).....(import. |
| 77740 | 28 72 6e 72 73 29 0a 09 20 20 20 20 28 70 72 69 6d 69 74 69 76 65 73 20 66 6f 72 65 69 67 6e 2d | (rnrs)......(primitives.foreign- |
| 77760 | 70 72 6f 63 65 64 75 72 65 20 0a 09 09 09 66 66 69 2f 68 61 6e 64 6c 65 2d 3e 61 64 64 72 65 73 | procedure.....ffi/handle->addres |
| 77780 | 73 0a 09 09 09 66 66 69 2f 73 74 72 69 6e 67 2d 3e 61 73 63 69 69 7a 0a 09 09 09 73 69 7a 65 6f | s....ffi/string->asciiz....sizeo |
| 777a0 | 66 3a 70 6f 69 6e 74 65 72 0a 09 09 09 73 69 7a 65 6f 66 3a 69 6e 74 0a 09 09 09 25 73 65 74 2d | f:pointer....sizeof:int....%set- |
| 777c0 | 70 6f 69 6e 74 65 72 0a 09 09 09 25 67 65 74 2d 69 6e 74 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 | pointer....%get-int))...(define. |
| 777e0 | 67 65 74 70 69 64 20 28 66 6f 72 65 69 67 6e 2d 70 72 6f 63 65 64 75 72 65 20 22 67 65 74 70 69 | getpid.(foreign-procedure."getpi |
| 77800 | 64 22 20 27 28 29 20 27 69 6e 74 29 29 0a 20 28 64 65 66 69 6e 65 20 66 6f 72 6b 20 28 66 6f 72 | d".'().'int))..(define.fork.(for |
| 77820 | 65 69 67 6e 2d 70 72 6f 63 65 64 75 72 65 20 22 66 6f 72 6b 22 20 27 28 29 20 27 69 6e 74 29 29 | eign-procedure."fork".'().'int)) |
| 77840 | 0a 20 28 64 65 66 69 6e 65 20 63 6c 6f 73 65 20 28 66 6f 72 65 69 67 6e 2d 70 72 6f 63 65 64 75 | ..(define.close.(foreign-procedu |
| 77860 | 72 65 20 22 63 6c 6f 73 65 22 20 27 28 69 6e 74 29 20 27 69 6e 74 29 29 0a 20 28 64 65 66 69 6e | re."close".'(int).'int))..(defin |
| 77880 | 65 20 64 75 70 32 20 28 66 6f 72 65 69 67 6e 2d 70 72 6f 63 65 64 75 72 65 20 22 64 75 70 32 22 | e.dup2.(foreign-procedure."dup2" |
| 778a0 | 20 27 28 69 6e 74 20 69 6e 74 29 20 27 69 6e 74 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 62 79 74 | .'(int.int).'int))...(define.byt |
| 778c0 | 65 76 65 63 74 6f 72 2d 63 6f 6e 74 65 6e 74 2d 6f 66 66 73 65 74 24 20 73 69 7a 65 6f 66 3a 70 | evector-content-offset$.sizeof:p |
| 778e0 | 6f 69 6e 74 65 72 29 0a 0a 20 28 64 65 66 69 6e 65 20 65 78 65 63 76 70 25 20 28 66 6f 72 65 69 | ointer)...(define.execvp%.(forei |
| 77900 | 67 6e 2d 70 72 6f 63 65 64 75 72 65 20 22 65 78 65 63 76 70 22 20 27 28 73 74 72 69 6e 67 20 62 | gn-procedure."execvp".'(string.b |
| 77920 | 6f 78 65 64 29 20 27 69 6e 74 29 29 0a 20 28 64 65 66 69 6e 65 20 28 65 78 65 63 76 70 20 66 69 | oxed).'int))..(define.(execvp.fi |
| 77940 | 6c 65 20 2e 20 61 72 67 73 29 0a 20 20 20 28 6c 65 74 2a 20 28 28 6e 61 72 67 73 20 28 6c 65 6e | le...args)....(let*.((nargs.(len |
| 77960 | 67 74 68 20 61 72 67 73 29 29 0a 09 20 20 28 61 72 67 76 20 28 6d 61 6b 65 2d 62 79 74 65 76 65 | gth.args))....(argv.(make-byteve |
| 77980 | 63 74 6f 72 20 28 2a 20 28 2b 20 6e 61 72 67 73 20 31 29 0a 09 09 09 09 20 20 20 20 73 69 7a 65 | ctor.(*.(+.nargs.1).........size |
| 779a0 | 6f 66 3a 70 6f 69 6e 74 65 72 29 29 29 29 0a 20 20 20 20 20 28 64 6f 20 28 28 6f 66 66 73 65 74 | of:pointer))))......(do.((offset |
| 779c0 | 20 30 20 28 2b 20 6f 66 66 73 65 74 20 73 69 7a 65 6f 66 3a 70 6f 69 6e 74 65 72 29 29 0a 09 20 | .0.(+.offset.sizeof:pointer))... |
| 779e0 | 20 28 61 73 20 61 72 67 73 20 28 63 64 72 20 61 73 29 29 29 0a 09 20 28 28 6e 75 6c 6c 3f 20 61 | .(as.args.(cdr.as)))...((null?.a |
| 77a00 | 73 29 29 0a 20 20 20 20 20 20 20 28 25 73 65 74 2d 70 6f 69 6e 74 65 72 20 61 72 67 76 0a 09 09 | s))........(%set-pointer.argv... |
| 77a20 | 20 20 20 20 20 6f 66 66 73 65 74 0a 09 09 20 20 20 20 20 28 2b 20 28 66 66 69 2f 68 61 6e 64 6c | .....offset........(+.(ffi/handl |
| 77a40 | 65 2d 3e 61 64 64 72 65 73 73 20 28 66 66 69 2f 73 74 72 69 6e 67 2d 3e 61 73 63 69 69 7a 20 28 | e->address.(ffi/string->asciiz.( |
| 77a60 | 63 61 72 20 61 73 29 29 29 0a 09 09 09 62 79 74 65 76 65 63 74 6f 72 2d 63 6f 6e 74 65 6e 74 2d | car.as)))....bytevector-content- |
| 77a80 | 6f 66 66 73 65 74 24 29 29 29 0a 20 20 20 20 20 28 25 73 65 74 2d 70 6f 69 6e 74 65 72 20 61 72 | offset$)))......(%set-pointer.ar |
| 77aa0 | 67 76 20 28 2a 20 6e 61 72 67 73 20 73 69 7a 65 6f 66 3a 70 6f 69 6e 74 65 72 29 20 30 29 0a 20 | gv.(*.nargs.sizeof:pointer).0).. |
| 77ac0 | 20 20 20 20 28 65 78 65 63 76 70 25 20 66 69 6c 65 20 61 72 67 76 29 29 29 0a 0a 20 28 64 65 66 | ....(execvp%.file.argv)))...(def |
| 77ae0 | 69 6e 65 20 70 69 70 65 25 20 28 66 6f 72 65 69 67 6e 2d 70 72 6f 63 65 64 75 72 65 20 22 70 69 | ine.pipe%.(foreign-procedure."pi |
| 77b00 | 70 65 22 20 27 28 62 6f 78 65 64 29 20 27 69 6e 74 29 29 0a 20 28 64 65 66 69 6e 65 20 28 70 69 | pe".'(boxed).'int))..(define.(pi |
| 77b20 | 70 65 29 0a 20 20 20 28 6c 65 74 20 28 28 61 72 72 61 79 20 28 6d 61 6b 65 2d 62 79 74 65 76 65 | pe)....(let.((array.(make-byteve |
| 77b40 | 63 74 6f 72 20 28 2a 20 73 69 7a 65 6f 66 3a 69 6e 74 20 32 29 29 29 29 0a 20 20 20 20 20 28 6c | ctor.(*.sizeof:int.2))))......(l |
| 77b60 | 65 74 20 28 28 72 20 28 70 69 70 65 25 20 61 72 72 61 79 29 29 29 0a 20 20 20 20 20 20 20 28 76 | et.((r.(pipe%.array)))........(v |
| 77b80 | 61 6c 75 65 73 20 72 20 28 25 67 65 74 2d 69 6e 74 20 61 72 72 61 79 20 30 29 20 28 25 67 65 74 | alues.r.(%get-int.array.0).(%get |
| 77ba0 | 2d 69 6e 74 20 61 72 72 61 79 20 73 69 7a 65 6f 66 3a 69 6e 74 29 29 29 29 29 0a 0a 20 28 64 65 | -int.array.sizeof:int)))))...(de |
| 77bc0 | 66 69 6e 65 20 28 66 6f 72 6b 2f 65 78 65 63 20 66 69 6c 65 20 2e 20 61 72 67 73 29 0a 20 20 20 | fine.(fork/exec.file...args).... |
| 77be0 | 28 6c 65 74 20 28 28 70 69 64 20 28 66 6f 72 6b 29 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 | (let.((pid.(fork)))......(cond.( |
| 77c00 | 28 3d 20 70 69 64 20 30 29 0a 09 20 20 20 20 28 61 70 70 6c 79 20 65 78 65 63 76 70 20 66 69 6c | (=.pid.0)......(apply.execvp.fil |
| 77c20 | 65 20 61 72 67 73 29 29 0a 09 20 20 20 28 23 74 20 70 69 64 29 29 29 29 0a 20 0a 20 28 64 65 66 | e.args)).....(#t.pid))))....(def |
| 77c40 | 69 6e 65 20 28 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20 66 69 6c 65 20 2e 20 61 72 67 73 29 0a | ine.(start-process.file...args). |
| 77c60 | 20 20 20 28 6c 65 74 2d 76 61 6c 75 65 73 20 28 28 28 72 31 20 64 6f 77 6e 2d 6f 75 74 20 64 6f | ...(let-values.(((r1.down-out.do |
| 77c80 | 77 6e 2d 69 6e 29 20 28 70 69 70 65 29 29 0a 09 09 28 28 72 32 20 75 70 2d 6f 75 74 20 75 70 2d | wn-in).(pipe))...((r2.up-out.up- |
| 77ca0 | 69 6e 29 20 28 70 69 70 65 29 29 0a 09 09 28 28 72 33 20 65 72 72 2d 6f 75 74 20 65 72 72 2d 69 | in).(pipe))...((r3.err-out.err-i |
| 77cc0 | 6e 29 20 28 70 69 70 65 29 29 29 0a 20 20 20 20 20 28 61 73 73 65 72 74 20 28 3d 20 30 20 72 31 | n).(pipe)))......(assert.(=.0.r1 |
| 77ce0 | 29 29 0a 20 20 20 20 20 28 61 73 73 65 72 74 20 28 3d 20 30 20 72 32 29 29 0a 20 20 20 20 20 28 | ))......(assert.(=.0.r2))......( |
| 77d00 | 61 73 73 65 72 74 20 28 3d 20 30 20 72 33 29 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 70 69 64 | assert.(=.0.r3))......(let.((pid |
| 77d20 | 20 28 66 6f 72 6b 29 29 29 0a 20 20 20 20 20 20 20 28 63 61 73 65 20 70 69 64 0a 09 20 28 28 2d | .(fork)))........(case.pid...((- |
| 77d40 | 31 29 0a 09 20 20 28 65 72 72 6f 72 20 22 46 61 69 6c 65 64 20 74 6f 20 66 6f 72 6b 20 61 20 73 | 1)....(error."Failed.to.fork.a.s |
| 77d60 | 75 62 70 72 6f 63 65 73 73 2e 22 29 29 0a 09 20 28 28 30 29 0a 09 20 20 28 63 6c 6f 73 65 20 75 | ubprocess."))...((0)....(close.u |
| 77d80 | 70 2d 6f 75 74 29 0a 09 20 20 28 63 6c 6f 73 65 20 65 72 72 2d 6f 75 74 29 0a 09 20 20 28 63 6c | p-out)....(close.err-out)....(cl |
| 77da0 | 6f 73 65 20 64 6f 77 6e 2d 69 6e 29 0a 09 20 20 28 64 75 70 32 20 64 6f 77 6e 2d 6f 75 74 20 30 | ose.down-in)....(dup2.down-out.0 |
| 77dc0 | 29 0a 09 20 20 28 64 75 70 32 20 75 70 2d 69 6e 20 31 29 0a 09 20 20 28 64 75 70 32 20 65 72 72 | )....(dup2.up-in.1)....(dup2.err |
| 77de0 | 2d 69 6e 20 32 29 0a 09 20 20 28 61 70 70 6c 79 20 65 78 65 63 76 70 20 66 69 6c 65 20 61 72 67 | -in.2)....(apply.execvp.file.arg |
| 77e00 | 73 29 0a 09 20 20 28 65 78 69 74 20 31 29 29 0a 09 20 28 65 6c 73 65 20 0a 09 20 20 28 63 6c 6f | s)....(exit.1))...(else.....(clo |
| 77e20 | 73 65 20 64 6f 77 6e 2d 6f 75 74 29 0a 09 20 20 28 63 6c 6f 73 65 20 75 70 2d 69 6e 29 0a 09 20 | se.down-out)....(close.up-in)... |
| 77e40 | 20 28 63 6c 6f 73 65 20 65 72 72 2d 69 6e 29 0a 09 20 20 28 6c 69 73 74 20 70 69 64 20 0a 09 09 | .(close.err-in)....(list.pid.... |
| 77e60 | 28 6d 61 6b 65 2d 66 64 2d 69 6f 2d 73 74 72 65 61 6d 20 75 70 2d 6f 75 74 20 64 6f 77 6e 2d 69 | (make-fd-io-stream.up-out.down-i |
| 77e80 | 6e 29 0a 09 09 28 6d 61 6b 65 2d 66 64 2d 69 6f 2d 73 74 72 65 61 6d 20 65 72 72 2d 6f 75 74 20 | n)...(make-fd-io-stream.err-out. |
| 77ea0 | 65 72 72 2d 6f 75 74 29 29 29 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 6d 61 6b 65 2d 66 | err-out)))))))...(define.(make-f |
| 77ec0 | 64 2d 69 6f 2d 73 74 72 65 61 6d 20 69 6e 20 6f 75 74 29 0a 20 20 20 28 6c 65 74 20 28 28 77 72 | d-io-stream.in.out)....(let.((wr |
| 77ee0 | 69 74 65 20 28 6c 61 6d 62 64 61 20 28 62 76 20 73 74 61 72 74 20 63 6f 75 6e 74 29 20 28 66 64 | ite.(lambda.(bv.start.count).(fd |
| 77f00 | 2d 77 72 69 74 65 20 6f 75 74 20 62 76 20 73 74 61 72 74 20 63 6f 75 6e 74 29 29 29 0a 09 20 28 | -write.out.bv.start.count)))...( |
| 77f20 | 72 65 61 64 20 28 6c 61 6d 62 64 61 20 28 62 76 20 73 74 61 72 74 20 63 6f 75 6e 74 29 20 28 66 | read.(lambda.(bv.start.count).(f |
| 77f40 | 64 2d 72 65 61 64 20 69 6e 20 62 76 20 73 74 61 72 74 20 63 6f 75 6e 74 29 29 29 0a 09 20 28 63 | d-read.in.bv.start.count)))...(c |
| 77f60 | 6c 6f 73 65 69 74 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 6c 6f 73 65 20 69 6e 29 20 28 63 6c | loseit.(lambda.().(close.in).(cl |
| 77f80 | 6f 73 65 20 6f 75 74 29 29 29 29 0a 20 20 20 20 20 28 6d 61 6b 65 2d 63 75 73 74 6f 6d 2d 62 69 | ose.out))))......(make-custom-bi |
| 77fa0 | 6e 61 72 79 2d 69 6e 70 75 74 2f 6f 75 74 70 75 74 2d 70 6f 72 74 0a 20 20 20 20 20 20 22 66 64 | nary-input/output-port......."fd |
| 77fc0 | 2d 73 74 72 65 61 6d 22 20 72 65 61 64 20 77 72 69 74 65 20 23 66 20 23 66 20 63 6c 6f 73 65 69 | -stream".read.write.#f.#f.closei |
| 77fe0 | 74 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 77 72 69 74 65 25 20 28 66 6f 72 65 69 67 6e 2d 70 | t)))...(define.write%.(foreign-p |
| 78000 | 72 6f 63 65 64 75 72 65 20 22 77 72 69 74 65 22 20 27 28 69 6e 74 20 75 6c 6f 6e 67 20 69 6e 74 | rocedure."write".'(int.ulong.int |
| 78020 | 29 20 27 69 6e 74 29 29 0a 20 28 64 65 66 69 6e 65 20 28 66 64 2d 77 72 69 74 65 20 66 64 20 62 | ).'int))..(define.(fd-write.fd.b |
| 78040 | 79 74 65 76 65 63 74 6f 72 20 73 74 61 72 74 20 63 6f 75 6e 74 29 0a 20 20 20 28 77 72 69 74 65 | ytevector.start.count)....(write |
| 78060 | 25 20 66 64 20 0a 09 20 20 20 28 2b 20 28 66 66 69 2f 68 61 6e 64 6c 65 2d 3e 61 64 64 72 65 73 | %.fd......(+.(ffi/handle->addres |
| 78080 | 73 20 62 79 74 65 76 65 63 74 6f 72 29 0a 09 20 20 20 20 20 20 62 79 74 65 76 65 63 74 6f 72 2d | s.bytevector)........bytevector- |
| 780a0 | 63 6f 6e 74 65 6e 74 2d 6f 66 66 73 65 74 24 0a 09 20 20 20 20 20 20 73 74 61 72 74 29 0a 09 20 | content-offset$........start)... |
| 780c0 | 20 20 63 6f 75 6e 74 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 72 65 61 64 25 20 28 66 6f 72 65 69 | ..count))...(define.read%.(forei |
| 780e0 | 67 6e 2d 70 72 6f 63 65 64 75 72 65 20 22 72 65 61 64 22 20 27 28 69 6e 74 20 75 6c 6f 6e 67 20 | gn-procedure."read".'(int.ulong. |
| 78100 | 69 6e 74 29 20 27 69 6e 74 29 29 0a 20 28 64 65 66 69 6e 65 20 28 66 64 2d 72 65 61 64 20 66 64 | int).'int))..(define.(fd-read.fd |
| 78120 | 20 62 79 74 65 76 65 63 74 6f 72 20 73 74 61 72 74 20 63 6f 75 6e 74 29 0a 20 20 20 3b 3b 28 70 | .bytevector.start.count)....;;(p |
| 78140 | 72 69 6e 74 66 20 22 66 64 2d 72 65 61 64 3a 20 7e 61 20 7e 73 20 7e 61 20 7e 61 5c 6e 22 20 66 | rintf."fd-read:.~a.~s.~a.~a\n".f |
| 78160 | 64 20 62 79 74 65 76 65 63 74 6f 72 20 73 74 61 72 74 20 63 6f 75 6e 74 29 0a 20 20 20 28 72 65 | d.bytevector.start.count)....(re |
| 78180 | 61 64 25 20 66 64 20 0a 09 20 20 28 2b 20 28 66 66 69 2f 68 61 6e 64 6c 65 2d 3e 61 64 64 72 65 | ad%.fd.....(+.(ffi/handle->addre |
| 781a0 | 73 73 20 62 79 74 65 76 65 63 74 6f 72 29 0a 09 20 20 20 20 20 62 79 74 65 76 65 63 74 6f 72 2d | ss.bytevector).......bytevector- |
| 781c0 | 63 6f 6e 74 65 6e 74 2d 6f 66 66 73 65 74 24 0a 09 20 20 20 20 20 73 74 61 72 74 29 0a 09 20 20 | content-offset$.......start).... |
| 781e0 | 63 6f 75 6e 74 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 6d 61 6b 65 2d 73 65 72 76 65 72 2d 73 | count))...(define.(make-server-s |
| 78200 | 6f 63 6b 65 74 20 70 6f 72 74 29 0a 20 20 20 28 6c 65 74 2a 20 28 28 61 72 67 73 20 60 28 22 2f | ocket.port)....(let*.((args.`("/ |
| 78220 | 62 69 6e 2f 62 61 73 68 22 20 22 62 61 73 68 22 20 0a 09 09 20 20 22 2d 63 22 20 0a 09 09 20 20 | bin/bash"."bash"......"-c"...... |
| 78240 | 2c 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 0a 09 09 20 20 20 20 22 6e 65 74 63 61 74 20 2d 73 | ,(string-append......."netcat.-s |
| 78260 | 20 31 32 37 2e 30 2e 30 2e 31 20 2d 71 20 30 20 2d 6c 20 2d 76 20 22 0a 09 09 20 20 20 20 28 69 | .127.0.0.1.-q.0.-l.-v.".......(i |
| 78280 | 66 20 70 6f 72 74 20 0a 09 09 09 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 22 2d 70 20 22 20 | f.port.....(string-append."-p.". |
| 782a0 | 28 6e 75 6d 62 65 72 2d 3e 73 74 72 69 6e 67 20 70 6f 72 74 29 29 0a 09 09 09 22 22 29 29 29 29 | (number->string.port))...."")))) |
| 782c0 | 0a 09 20 20 28 6e 63 20 28 61 70 70 6c 79 20 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20 61 72 67 | ....(nc.(apply.start-process.arg |
| 782e0 | 73 29 29 0a 09 20 20 28 65 72 72 20 28 74 72 61 6e 73 63 6f 64 65 64 2d 70 6f 72 74 20 28 6c 69 | s))....(err.(transcoded-port.(li |
| 78300 | 73 74 2d 72 65 66 20 6e 63 20 32 29 0a 09 09 09 09 28 6d 61 6b 65 2d 74 72 61 6e 73 63 6f 64 65 | st-ref.nc.2).....(make-transcode |
| 78320 | 72 20 28 6c 61 74 69 6e 2d 31 2d 63 6f 64 65 63 29 29 29 29 0a 09 20 20 28 6c 69 6e 65 20 28 67 | r.(latin-1-codec))))....(line.(g |
| 78340 | 65 74 2d 6c 69 6e 65 20 65 72 72 29 29 0a 09 20 20 28 70 6f 73 20 28 6c 61 73 74 2d 69 6e 64 65 | et-line.err))....(pos.(last-inde |
| 78360 | 78 2d 6f 66 20 6c 69 6e 65 20 27 23 5c 5d 29 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 70 6f | x-of.line.'#\])))......(cond.(po |
| 78380 | 73 0a 09 20 20 20 20 28 6c 65 74 2a 20 28 28 74 61 69 6c 20 28 73 75 62 73 74 72 69 6e 67 20 6c | s......(let*.((tail.(substring.l |
| 783a0 | 69 6e 65 20 28 2b 20 70 6f 73 20 31 29 20 28 73 74 72 69 6e 67 2d 6c 65 6e 67 74 68 20 6c 69 6e | ine.(+.pos.1).(string-length.lin |
| 783c0 | 65 29 29 29 0a 09 09 20 20 20 28 70 6f 72 74 20 28 67 65 74 2d 64 61 74 75 6d 20 28 6f 70 65 6e | e)))......(port.(get-datum.(open |
| 783e0 | 2d 73 74 72 69 6e 67 2d 69 6e 70 75 74 2d 70 6f 72 74 20 74 61 69 6c 29 29 29 29 0a 09 20 20 20 | -string-input-port.tail))))..... |
| 78400 | 20 20 20 28 6c 69 73 74 20 28 63 61 72 20 6e 63 29 20 28 63 61 64 72 20 6e 63 29 20 65 72 72 20 | ...(list.(car.nc).(cadr.nc).err. |
| 78420 | 70 6f 72 74 29 29 29 0a 09 20 20 20 28 23 74 20 28 65 72 72 6f 72 20 22 6e 65 74 63 61 74 20 66 | port))).....(#t.(error."netcat.f |
| 78440 | 61 69 6c 65 64 3a 20 22 20 6c 69 6e 65 29 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 61 63 | ailed:.".line)))))...(define.(ac |
| 78460 | 63 65 70 74 20 73 6f 63 6b 65 74 20 63 6f 64 65 63 29 0a 20 20 20 28 6c 65 74 2a 20 28 28 6c 69 | cept.socket.codec)....(let*.((li |
| 78480 | 6e 65 20 28 67 65 74 2d 6c 69 6e 65 20 28 63 61 64 64 72 20 73 6f 63 6b 65 74 29 29 29 0a 09 20 | ne.(get-line.(caddr.socket)))... |
| 784a0 | 20 28 70 6f 73 20 28 6c 61 73 74 2d 69 6e 64 65 78 2d 6f 66 20 6c 69 6e 65 20 23 5c 5d 29 29 29 | .(pos.(last-index-of.line.#\]))) |
| 784c0 | 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 70 6f 73 20 0a 09 20 20 20 20 28 63 6c 6f 73 65 2d 70 6f | ......(cond.(pos.......(close-po |
| 784e0 | 72 74 20 28 63 61 64 64 72 20 73 6f 63 6b 65 74 29 29 0a 09 20 20 20 20 28 6c 65 74 20 28 28 73 | rt.(caddr.socket))......(let.((s |
| 78500 | 74 72 65 61 6d 20 28 63 61 64 72 20 73 6f 63 6b 65 74 29 29 29 0a 09 20 20 20 20 20 20 28 6c 65 | tream.(cadr.socket)))........(le |
| 78520 | 74 20 28 28 69 6f 20 28 74 72 61 6e 73 63 6f 64 65 64 2d 70 6f 72 74 20 73 74 72 65 61 6d 20 28 | t.((io.(transcoded-port.stream.( |
| 78540 | 6d 61 6b 65 2d 74 72 61 6e 73 63 6f 64 65 72 20 63 6f 64 65 63 29 29 29 29 0a 09 09 28 76 61 6c | make-transcoder.codec))))...(val |
| 78560 | 75 65 73 20 69 6f 20 69 6f 29 29 29 29 0a 09 20 20 20 28 65 6c 73 65 20 28 65 72 72 6f 72 20 22 | ues.io.io)))).....(else.(error." |
| 78580 | 61 63 63 65 70 74 20 66 61 69 6c 65 64 3a 20 22 20 6c 69 6e 65 29 29 29 29 29 0a 0a 20 28 64 65 | accept.failed:.".line)))))...(de |
| 785a0 | 66 69 6e 65 20 28 6c 6f 63 61 6c 2d 70 6f 72 74 20 73 6f 63 6b 65 74 29 0a 20 20 20 28 6c 69 73 | fine.(local-port.socket)....(lis |
| 785c0 | 74 2d 72 65 66 20 73 6f 63 6b 65 74 20 33 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 6c 61 73 74 | t-ref.socket.3))...(define.(last |
| 785e0 | 2d 69 6e 64 65 78 2d 6f 66 20 73 74 72 20 63 68 72 29 0a 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 | -index-of.str.chr)....(let.loop. |
| 78600 | 28 28 69 20 28 73 74 72 69 6e 67 2d 6c 65 6e 67 74 68 20 73 74 72 29 29 29 0a 20 20 20 20 20 28 | ((i.(string-length.str)))......( |
| 78620 | 63 6f 6e 64 20 28 28 3c 3d 20 69 20 30 29 20 23 66 29 0a 09 20 20 20 28 23 74 20 28 6c 65 74 20 | cond.((<=.i.0).#f).....(#t.(let. |
| 78640 | 28 28 69 20 28 2d 20 69 20 31 29 29 29 0a 09 09 20 28 63 6f 6e 64 20 28 28 63 68 61 72 3d 3f 20 | ((i.(-.i.1)))....(cond.((char=?. |
| 78660 | 28 73 74 72 69 6e 67 2d 72 65 66 20 73 74 72 20 69 29 20 63 68 72 29 0a 09 09 09 69 29 0a 09 09 | (string-ref.str.i).chr)....i)... |
| 78680 | 20 20 20 20 20 20 20 28 23 74 20 0a 09 09 09 28 6c 6f 6f 70 20 69 29 29 29 29 29 29 29 29 0a 0a | .......(#t.....(loop.i)))))))).. |
| 786a0 | 20 28 64 65 66 69 6e 65 20 28 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 73 6f 63 6b 65 74 29 0a 20 | .(define.(close-socket.socket).. |
| 786c0 | 20 20 3b 3b 28 63 6c 6f 73 65 2d 70 6f 72 74 20 28 63 61 64 72 20 73 6f 63 6b 65 74 29 29 0a 20 | ..;;(close-port.(cadr.socket)).. |
| 786e0 | 20 20 23 66 0a 20 20 20 29 0a 0a 20 29 0a 0a 28 6c 69 62 72 61 72 79 20 28 73 77 61 6e 6b 20 73 | ..#f....)...)..(library.(swank.s |
| 78700 | 79 73 29 0a 20 20 20 20 28 65 78 70 6f 72 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 6e | ys).....(export.implementation-n |
| 78720 | 61 6d 65 20 65 76 61 6c 2d 69 6e 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 65 6e 76 69 72 6f 6e 6d | ame.eval-in-interaction-environm |
| 78740 | 65 6e 74 29 0a 20 20 20 20 28 69 6d 70 6f 72 74 20 28 72 6e 72 73 29 20 0a 09 20 20 20 20 28 70 | ent).....(import.(rnrs).......(p |
| 78760 | 72 69 6d 69 74 69 76 65 73 20 73 79 73 74 65 6d 2d 66 65 61 74 75 72 65 73 0a 09 09 09 61 65 72 | rimitives.system-features....aer |
| 78780 | 79 6e 2d 65 76 61 6c 75 61 74 6f 72 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 69 6d 70 6c 65 6d | yn-evaluator))...(define.(implem |
| 787a0 | 65 6e 74 61 74 69 6f 6e 2d 6e 61 6d 65 29 20 22 6c 61 72 63 65 6e 79 22 29 0a 0a 20 3b 3b 20 73 | entation-name)."larceny")...;;.s |
| 787c0 | 65 65 20 24 4c 41 52 43 45 4e 59 2f 72 36 72 73 6d 6f 64 65 2e 73 63 68 3a 0a 20 3b 3b 20 20 20 | ee.$LARCENY/r6rsmode.sch:..;;... |
| 787e0 | 4c 61 72 63 65 6e 79 27 73 20 45 52 52 35 52 53 20 61 6e 64 20 52 36 52 53 20 6d 6f 64 65 73 2e | Larceny's.ERR5RS.and.R6RS.modes. |
| 78800 | 0a 20 3b 3b 20 20 20 43 6f 64 65 20 6e 61 6d 65 73 3a 0a 20 3b 3b 20 20 20 20 20 20 20 41 65 72 | ..;;...Code.names:..;;.......Aer |
| 78820 | 79 6e 20 20 20 20 45 52 52 35 52 53 0a 20 3b 3b 20 20 20 20 20 20 20 44 27 41 72 67 6f 20 20 20 | yn....ERR5RS..;;.......D'Argo... |
| 78840 | 52 36 52 53 2d 63 6f 6d 70 61 74 69 62 6c 65 0a 20 3b 3b 20 20 20 20 20 20 20 53 70 61 6e 6b 79 | R6RS-compatible..;;.......Spanky |
| 78860 | 20 20 20 52 36 52 53 2d 63 6f 6e 66 6f 72 6d 69 6e 67 20 28 6e 6f 74 20 79 65 74 20 69 6d 70 6c | ...R6RS-conforming.(not.yet.impl |
| 78880 | 65 6d 65 6e 74 65 64 29 0a 20 28 64 65 66 69 6e 65 20 28 65 76 61 6c 2d 69 6e 2d 69 6e 74 65 72 | emented)..(define.(eval-in-inter |
| 788a0 | 61 63 74 69 6f 6e 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 66 6f 72 6d 29 0a 20 20 20 28 61 65 72 | action-environment.form)....(aer |
| 788c0 | 79 6e 2d 65 76 61 6c 75 61 74 6f 72 20 66 6f 72 6d 29 29 0a 0a 20 29 0a 0a 28 69 6d 70 6f 72 74 | yn-evaluator.form))...)..(import |
| 788e0 | 20 28 72 6e 72 73 29 20 28 72 6e 72 73 20 65 76 61 6c 29 20 28 6c 61 72 63 65 6e 79 20 6c 6f 61 | .(rnrs).(rnrs.eval).(larceny.loa |
| 78900 | 64 29 29 0a 28 6c 6f 61 64 20 22 73 77 61 6e 6b 2d 72 36 72 73 2e 73 63 6d 22 29 0a 28 65 76 61 | d)).(load."swank-r6rs.scm").(eva |
| 78920 | 6c 20 27 28 73 74 61 72 74 2d 73 65 72 76 65 72 20 23 66 29 20 28 65 6e 76 69 72 6f 6e 6d 65 6e | l.'(start-server.#f).(environmen |
| 78940 | 74 20 27 28 73 77 61 6e 6b 29 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | t.'(swank))).................... |
| 78960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 789a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 789c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 789e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 71 75 69 63 6b 6c 69 | slime-2.31/contrib/slime-quickli |
| 78a20 | 73 70 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | sp.el........................... |
| 78a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 78a80 | 30 30 30 33 32 34 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 33 30 34 00 20 30 00 00 00 | 0003241.00000000000.016304..0... |
| 78aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 78b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 78b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 78c00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 | (require.'slime).(require.'cl-li |
| 78c20 | 62 29 0a 0a 3b 3b 3b 20 62 69 74 73 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 61 | b)..;;;.bits.of.the.following.ta |
| 78c40 | 6b 65 6e 20 66 72 6f 6d 20 73 6c 69 6d 65 2d 61 73 64 66 2e 65 6c 0a 0a 28 64 65 66 69 6e 65 2d | ken.from.slime-asdf.el..(define- |
| 78c60 | 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 71 75 69 63 6b 6c 69 73 70 0a 20 20 | slime-contrib.slime-quicklisp... |
| 78c80 | 22 51 75 69 63 6b 6c 69 73 70 20 73 75 70 70 6f 72 74 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 | "Quicklisp.support."...(:authors |
| 78ca0 | 20 22 4d 61 74 74 68 65 77 20 4b 65 6e 6e 65 64 79 20 3c 62 75 72 6e 73 69 64 65 6d 6b 40 67 6d | ."Matthew.Kennedy.<burnsidemk@gm |
| 78cc0 | 61 69 6c 2e 63 6f 6d 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 | ail.com>")...(:license."GPL")... |
| 78ce0 | 28 3a 73 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 6c 69 6d 65 2d 72 65 70 6c 29 | (:slime-dependencies.slime-repl) |
| 78d00 | 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d 71 75 | ...(:swank-dependencies.swank-qu |
| 78d20 | 69 63 6b 6c 69 73 70 29 29 0a 0a 3b 3b 3b 20 55 74 69 6c 69 74 69 65 73 0a 0a 28 64 65 66 67 72 | icklisp))..;;;.Utilities..(defgr |
| 78d40 | 6f 75 70 20 73 6c 69 6d 65 2d 71 75 69 63 6b 6c 69 73 70 20 6e 69 6c 0a 20 20 22 51 75 69 63 6b | oup.slime-quicklisp.nil..."Quick |
| 78d60 | 6c 69 73 70 20 73 75 70 70 6f 72 74 20 66 6f 72 20 53 6c 69 6d 65 2e 22 0a 20 20 3a 70 72 65 66 | lisp.support.for.Slime."...:pref |
| 78d80 | 69 78 20 22 73 6c 69 6d 65 2d 71 75 69 63 6b 6c 69 73 70 2d 22 0a 20 20 3a 67 72 6f 75 70 20 27 | ix."slime-quicklisp-"...:group.' |
| 78da0 | 73 6c 69 6d 65 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 71 75 69 63 6b 6c 69 73 70 2d | slime)..(defvar.slime-quicklisp- |
| 78dc0 | 73 79 73 74 65 6d 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 20 6c 69 | system-history.nil..."History.li |
| 78de0 | 73 74 20 66 6f 72 20 51 75 69 63 6b 6c 69 73 70 20 73 79 73 74 65 6d 20 6e 61 6d 65 73 2e 22 29 | st.for.Quicklisp.system.names.") |
| 78e00 | 0a 0a 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 61 64 2d 71 75 69 63 6b 6c 69 73 70 2d | ....(defun.slime-read-quicklisp- |
| 78e20 | 73 79 73 74 65 6d 2d 6e 61 6d 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 72 6f 6d 70 74 20 64 65 | system-name.(&optional.prompt.de |
| 78e40 | 66 61 75 6c 74 2d 76 61 6c 75 65 29 0a 20 20 22 52 65 61 64 20 61 20 51 75 69 63 6b 20 73 79 73 | fault-value)..."Read.a.Quick.sys |
| 78e60 | 74 65 6d 20 6e 61 6d 65 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2c 20 70 72 | tem.name.from.the.minibuffer,.pr |
| 78e80 | 6f 6d 70 74 69 6e 67 20 77 69 74 68 20 50 52 4f 4d 50 54 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 | ompting.with.PROMPT."...(let*.(( |
| 78ea0 | 63 6f 6d 70 6c 65 74 69 6f 6e 2d 69 67 6e 6f 72 65 2d 63 61 73 65 20 6e 69 6c 29 0a 20 20 20 20 | completion-ignore-case.nil)..... |
| 78ec0 | 20 20 20 20 20 28 70 72 6f 6d 70 74 20 28 6f 72 20 70 72 6f 6d 70 74 20 22 51 75 69 63 6b 6c 69 | .....(prompt.(or.prompt."Quickli |
| 78ee0 | 73 70 20 73 79 73 74 65 6d 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 71 75 69 63 6b 6c 69 73 70 | sp.system"))..........(quicklisp |
| 78f00 | 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 73 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e | -system-names.(slime-eval.`(swan |
| 78f20 | 6b 3a 6c 69 73 74 2d 71 75 69 63 6b 6c 69 73 70 2d 73 79 73 74 65 6d 73 29 29 29 0a 20 20 20 20 | k:list-quicklisp-systems)))..... |
| 78f40 | 20 20 20 20 20 28 70 72 6f 6d 70 74 20 28 63 6f 6e 63 61 74 20 70 72 6f 6d 70 74 20 28 69 66 20 | .....(prompt.(concat.prompt.(if. |
| 78f60 | 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | default-value................... |
| 78f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 28 64 65 66 | ..................(format.".(def |
| 78fa0 | 61 75 6c 74 20 60 25 73 27 29 3a 20 22 20 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 29 0a 20 20 20 | ault.`%s'):.".default-value).... |
| 78fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | ..............................." |
| 78fe0 | 3a 20 22 29 29 29 29 0a 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 70 72 6f | :.")))).....(completing-read.pro |
| 79000 | 6d 70 74 20 28 73 6c 69 6d 65 2d 62 6f 67 75 73 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 6c 69 73 | mpt.(slime-bogus-completion-alis |
| 79020 | 74 20 71 75 69 63 6b 6c 69 73 70 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 | t.quicklisp-system-names)....... |
| 79040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 0a 20 20 20 20 20 | ...............nil.nil.nil...... |
| 79060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 71 75 69 63 6b 6c 69 73 70 | ................'slime-quicklisp |
| 79080 | 2d 73 79 73 74 65 6d 2d 68 69 73 74 6f 72 79 20 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 29 29 29 | -system-history.default-value))) |
| 790a0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 71 75 69 63 6b 6c 69 73 70 2d 71 75 69 63 6b 6c 6f | ..(defun.slime-quicklisp-quicklo |
| 790c0 | 61 64 20 28 73 79 73 74 65 6d 29 0a 20 20 22 4c 6f 61 64 20 61 20 51 75 69 63 6b 6c 69 73 70 20 | ad.(system)..."Load.a.Quicklisp. |
| 790e0 | 73 79 73 74 65 6d 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 73 61 76 65 2d 73 6f 6d 65 2d 6c 69 73 70 | system."...(slime-save-some-lisp |
| 79100 | 2d 62 75 66 66 65 72 73 29 0a 20 20 28 73 6c 69 6d 65 2d 64 69 73 70 6c 61 79 2d 6f 75 74 70 75 | -buffers)...(slime-display-outpu |
| 79120 | 74 2d 62 75 66 66 65 72 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 | t-buffer)...(slime-repl-shortcut |
| 79140 | 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 71 6c 3a 71 75 69 63 6b 6c 6f 61 64 20 2c 73 79 73 74 | -eval-async.`(ql:quickload.,syst |
| 79160 | 65 6d 29 29 29 0a 0a 3b 3b 3b 20 52 45 50 4c 20 73 68 6f 72 74 63 75 74 73 0a 0a 28 64 65 66 73 | em)))..;;;.REPL.shortcuts..(defs |
| 79180 | 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 71 75 | lime-repl-shortcut.slime-repl-qu |
| 791a0 | 69 63 6b 6c 69 73 70 2d 71 75 69 63 6b 6c 6f 61 64 20 28 22 71 75 69 63 6b 6c 69 73 70 2d 71 75 | icklisp-quickload.("quicklisp-qu |
| 791c0 | 69 63 6b 6c 6f 61 64 22 20 22 71 6c 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 28 6c 61 6d 62 | ickload"."ql")...(:handler.(lamb |
| 791e0 | 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | da.()...............(interactive |
| 79200 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 71 75 69 63 6b 6c 69 73 70 | )...............(slime-quicklisp |
| 79220 | 2d 71 75 69 63 6b 6c 6f 61 64 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 71 75 69 63 6b 6c 69 73 70 | -quickload.(slime-read-quicklisp |
| 79240 | 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 29 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 | -system-name))))...(:one-liner." |
| 79260 | 4c 6f 61 64 20 61 20 73 79 73 74 65 6d 20 6b 6e 6f 77 6e 20 74 6f 20 51 75 69 63 6b 6c 69 73 70 | Load.a.system.known.to.Quicklisp |
| 79280 | 2e 22 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 71 75 69 63 6b 6c 69 73 70 29 | ."))..(provide.'slime-quicklisp) |
| 792a0 | 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 792c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 792e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 79300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 79320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 79340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 79360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 79380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 793a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 793c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 793e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 79400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 78 72 65 66 2d 62 72 | slime-2.31/contrib/slime-xref-br |
| 79420 | 6f 77 73 65 72 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | owser.el........................ |
| 79440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 79460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 79480 | 30 30 30 37 34 34 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 37 33 36 00 20 30 00 00 00 | 0007444.00000000000.016736..0... |
| 794a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 794c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 794e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 79500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 79520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 79540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 79560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 79580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 795a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 795c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 795e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 79600 | 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6c | (eval-and-compile...(require.'sl |
| 79620 | 69 6d 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 | ime))..(define-slime-contrib.sli |
| 79640 | 6d 65 2d 78 72 65 66 2d 62 72 6f 77 73 65 72 0a 20 20 22 58 72 65 66 20 62 72 6f 77 73 69 6e 67 | me-xref-browser..."Xref.browsing |
| 79660 | 20 77 69 74 68 20 74 72 65 65 2d 77 69 64 67 65 74 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 | .with.tree-widget"...(:authors." |
| 79680 | 52 75 69 20 50 61 74 72 6f 63 ed 6e 69 6f 20 3c 72 75 69 2e 70 61 74 72 6f 63 69 6e 69 6f 40 6e | Rui.Patroc.nio.<rui.patrocinio@n |
| 796a0 | 65 74 76 69 73 61 6f 2e 70 74 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 | etvisao.pt>")...(:license."GPL") |
| 796c0 | 29 0a 0a 0c 0a 3b 3b 3b 3b 20 63 6c 61 73 73 65 73 20 62 72 6f 77 73 65 72 0a 0a 28 64 65 66 75 | )....;;;;.classes.browser..(defu |
| 796e0 | 6e 20 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 63 6c 61 73 73 2d 6e 6f 64 65 20 28 77 69 64 67 65 | n.slime-expand-class-node.(widge |
| 79700 | 74 29 0a 20 20 28 6f 72 20 28 77 69 64 67 65 74 2d 67 65 74 20 77 69 64 67 65 74 20 3a 61 72 67 | t)...(or.(widget-get.widget.:arg |
| 79720 | 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 77 69 64 67 65 74 2d 67 65 74 | s).......(let.((name.(widget-get |
| 79740 | 20 77 69 64 67 65 74 20 3a 74 61 67 29 29 29 0a 09 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6b 69 | .widget.:tag)))..(cl-loop.for.ki |
| 79760 | 64 20 69 6e 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 6d 6f 70 20 3a 73 75 | d.in.(slime-eval.`(swank:mop.:su |
| 79780 | 62 63 6c 61 73 73 65 73 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bclasses.,name))................ |
| 797a0 | 20 20 63 6f 6c 6c 65 63 74 20 60 28 74 72 65 65 2d 77 69 64 67 65 74 20 3a 74 61 67 20 2c 6b 69 | ..collect.`(tree-widget.:tag.,ki |
| 797c0 | 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d............................... |
| 797e0 | 20 20 20 20 20 20 20 20 20 3a 65 78 70 61 6e 64 65 72 20 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d | .........:expander.slime-expand- |
| 79800 | 63 6c 61 73 73 2d 6e 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | class-node...................... |
| 79820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 61 73 2d 63 68 69 6c 64 72 65 6e 20 | ..................:has-children. |
| 79840 | 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 2d 63 6c 61 73 | t)))))..(defun.slime-browse-clas |
| 79860 | 73 65 73 20 28 6e 61 6d 65 29 0a 20 20 22 52 65 61 64 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 | ses.(name)..."Read.the.name.of.a |
| 79880 | 20 63 6c 61 73 73 20 61 6e 64 20 73 68 6f 77 20 69 74 73 20 73 75 62 63 6c 61 73 73 65 73 2e 22 | .class.and.show.its.subclasses." |
| 798a0 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 | ...(interactive.(list.(slime-rea |
| 798c0 | 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 43 6c 61 73 73 20 4e 61 6d 65 3a 20 22 29 29 29 0a | d-symbol-name."Class.Name:."))). |
| 798e0 | 20 20 28 73 6c 69 6d 65 2d 63 61 6c 6c 2d 77 69 74 68 2d 62 72 6f 77 73 65 72 2d 73 65 74 75 70 | ..(slime-call-with-browser-setup |
| 79900 | 20 0a 20 20 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 62 72 6f 77 73 65 72 | .....(slime-buffer-name.:browser |
| 79920 | 29 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 20 22 43 6c 61 73 73 | ).(slime-current-package)."Class |
| 79940 | 20 42 72 6f 77 73 65 72 22 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 77 69 | .Browser"....(lambda.()......(wi |
| 79960 | 64 67 65 74 2d 63 72 65 61 74 65 20 27 74 72 65 65 2d 77 69 64 67 65 74 20 3a 74 61 67 20 6e 61 | dget-create.'tree-widget.:tag.na |
| 79980 | 6d 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 70 61 6e 64 65 | me......................:expande |
| 799a0 | 72 20 27 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 63 6c 61 73 73 2d 6e 6f 64 65 20 0a 20 20 20 20 | r.'slime-expand-class-node...... |
| 799c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 61 73 2d 65 63 68 69 6c 64 72 65 6e 20 74 | ................:has-echildren.t |
| 799e0 | 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 72 2d 6d 61 70 20 | ))))..(defvar.slime-browser-map. |
| 79a00 | 6e 69 6c 0a 20 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 74 72 65 65 20 77 69 64 67 65 74 20 62 72 | nil..."Keymap.for.tree.widget.br |
| 79a20 | 6f 77 73 65 72 73 22 29 0a 0a 28 72 65 71 75 69 72 65 20 27 74 72 65 65 2d 77 69 64 67 65 74 29 | owsers")..(require.'tree-widget) |
| 79a40 | 0a 28 75 6e 6c 65 73 73 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 72 2d 6d 61 70 0a 20 20 28 73 65 | .(unless.slime-browser-map...(se |
| 79a60 | 74 71 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 72 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 | tq.slime-browser-map.(make-spars |
| 79a80 | 65 2d 6b 65 79 6d 61 70 29 29 0a 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 | e-keymap))...(set-keymap-parent. |
| 79aa0 | 73 6c 69 6d 65 2d 62 72 6f 77 73 65 72 2d 6d 61 70 20 77 69 64 67 65 74 2d 6b 65 79 6d 61 70 29 | slime-browser-map.widget-keymap) |
| 79ac0 | 0a 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 72 2d 6d 61 70 | ...(define-key.slime-browser-map |
| 79ae0 | 20 22 71 22 20 27 62 75 72 79 2d 62 75 66 66 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | ."q".'bury-buffer))..(defun.slim |
| 79b00 | 65 2d 63 61 6c 6c 2d 77 69 74 68 2d 62 72 6f 77 73 65 72 2d 73 65 74 75 70 20 28 62 75 66 66 65 | e-call-with-browser-setup.(buffe |
| 79b20 | 72 20 70 61 63 6b 61 67 65 20 74 69 74 6c 65 20 66 6e 29 0a 20 20 28 73 77 69 74 63 68 2d 74 6f | r.package.title.fn)...(switch-to |
| 79b40 | 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 0a 20 20 28 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 | -buffer.buffer)...(kill-all-loca |
| 79b60 | 6c 2d 76 61 72 69 61 62 6c 65 73 29 0a 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 | l-variables)...(setq.slime-buffe |
| 79b80 | 72 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 | r-package.package)...(let.((inhi |
| 79ba0 | 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 | bit-read-only.t)).(erase-buffer) |
| 79bc0 | 29 0a 20 20 28 77 69 64 67 65 74 2d 69 6e 73 65 72 74 20 74 69 74 6c 65 20 22 5c 6e 5c 6e 22 29 | )...(widget-insert.title."\n\n") |
| 79be0 | 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 | ...(save-excursion.....(funcall. |
| 79c00 | 66 6e 29 29 0a 20 20 28 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 20 74 29 0a 20 | fn))...(lisp-mode-variables.t).. |
| 79c20 | 20 28 73 6c 69 6d 65 2d 6d 6f 64 65 20 74 29 0a 20 20 28 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 | .(slime-mode.t)...(use-local-map |
| 79c40 | 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 72 2d 6d 61 70 29 0a 20 20 28 77 69 64 67 65 74 2d 73 65 | .slime-browser-map)...(widget-se |
| 79c60 | 74 75 70 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 58 72 65 66 20 62 72 6f 77 73 65 72 0a 0a 28 64 65 66 | tup))....;;;;.Xref.browser..(def |
| 79c80 | 75 6e 20 73 6c 69 6d 65 2d 66 65 74 63 68 2d 62 72 6f 77 73 61 62 6c 65 2d 78 72 65 66 73 20 28 | un.slime-fetch-browsable-xrefs.( |
| 79ca0 | 74 79 70 65 20 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 28 28 4c 41 | type.name)..."Return.a.list.((LA |
| 79cc0 | 42 45 4c 20 44 53 50 45 43 29 29 2e 0a 4c 41 42 45 4c 20 69 73 20 6a 75 73 74 20 61 20 73 74 72 | BEL.DSPEC))..LABEL.is.just.a.str |
| 79ce0 | 69 6e 67 20 66 6f 72 20 64 69 73 70 6c 61 79 20 70 75 72 70 6f 73 65 73 2e 20 0a 44 53 50 45 43 | ing.for.display.purposes...DSPEC |
| 79d00 | 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 65 78 70 61 6e 64 20 74 68 65 20 6e 6f 64 65 2e | .can.be.used.to.expand.the.node. |
| 79d20 | 22 0a 20 20 28 6c 65 74 20 28 28 78 72 65 66 73 20 27 28 29 29 29 0a 20 20 20 20 28 63 6c 2d 6c | "...(let.((xrefs.'())).....(cl-l |
| 79d40 | 6f 6f 70 20 66 6f 72 20 28 5f 66 69 6c 65 20 2e 20 73 70 65 63 73 29 20 69 6e 20 28 73 6c 69 6d | oop.for.(_file...specs).in.(slim |
| 79d60 | 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 78 72 65 66 20 2c 74 79 70 65 20 2c 6e 61 6d 65 29 | e-eval.`(swank:xref.,type.,name) |
| 79d80 | 29 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 | ).do..............(cl-loop.for.( |
| 79da0 | 64 73 70 65 63 20 2e 20 5f 6c 6f 63 61 74 69 6f 6e 29 20 69 6e 20 73 70 65 63 73 20 64 6f 0a 20 | dspec..._location).in.specs.do.. |
| 79dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 78 70 20 | .....................(let.((exp. |
| 79de0 | 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 72 65 61 64 20 28 64 6f 77 6e 63 61 73 65 20 64 | (ignore-errors.(read.(downcase.d |
| 79e00 | 73 70 65 63 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | spec)))))....................... |
| 79e20 | 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 63 6f 6e 73 70 20 65 78 70 29 20 28 65 71 20 27 66 | ..(cond.((and.(consp.exp).(eq.'f |
| 79e40 | 6c 65 74 20 28 63 61 72 20 65 78 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | let.(car.exp)))................. |
| 79e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 65 20 63 61 6e 27 74 20 65 78 70 61 6e | ...............;;.we.can't.expan |
| 79e80 | 64 20 46 4c 45 54 20 72 65 66 65 72 65 6e 63 65 73 20 73 6f 20 74 68 65 79 27 72 65 20 75 73 65 | d.FLET.references.so.they're.use |
| 79ea0 | 6c 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | less............................ |
| 79ec0 | 20 20 20 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....)........................... |
| 79ee0 | 20 20 20 20 28 28 61 6e 64 20 28 63 6f 6e 73 70 20 65 78 70 29 20 28 65 71 20 27 6d 65 74 68 6f | ....((and.(consp.exp).(eq.'metho |
| 79f00 | 64 20 28 63 61 72 20 65 78 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.(car.exp)))................... |
| 79f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 69 73 20 69 73 6e 27 74 20 71 75 69 74 65 | .............;;.this.isn't.quite |
| 79f40 | 20 72 69 67 68 74 2c 20 62 75 74 20 67 6f 6f 64 20 65 6e 6f 75 67 68 20 66 6f 72 20 6e 6f 77 0a | .right,.but.good.enough.for.now. |
| 79f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 79f80 | 70 75 73 68 20 28 6c 69 73 74 20 64 73 70 65 63 20 28 73 74 72 69 6e 67 20 28 63 6c 2d 73 65 63 | push.(list.dspec.(string.(cl-sec |
| 79fa0 | 6f 6e 64 20 65 78 70 29 29 29 20 78 72 65 66 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ond.exp))).xrefs)).............. |
| 79fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .................(t............. |
| 79fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 64 | ...................(push.(list.d |
| 7a000 | 73 70 65 63 20 64 73 70 65 63 29 20 78 72 65 66 73 29 29 29 29 29 29 0a 20 20 20 20 78 72 65 66 | spec.dspec).xrefs)))))).....xref |
| 7a020 | 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 78 72 65 66 73 20 28 | s))..(defun.slime-expand-xrefs.( |
| 7a040 | 77 69 64 67 65 74 29 0a 20 20 28 6f 72 20 28 77 69 64 67 65 74 2d 67 65 74 20 77 69 64 67 65 74 | widget)...(or.(widget-get.widget |
| 7a060 | 20 3a 61 72 67 73 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 79 70 65 20 28 77 69 64 67 | .:args).......(let*.((type.(widg |
| 7a080 | 65 74 2d 67 65 74 20 77 69 64 67 65 74 20 3a 78 72 65 66 2d 74 79 70 65 29 29 0a 20 20 20 20 20 | et-get.widget.:xref-type))...... |
| 7a0a0 | 20 20 20 20 20 20 20 20 28 64 73 70 65 63 20 28 77 69 64 67 65 74 2d 67 65 74 20 77 69 64 67 65 | ........(dspec.(widget-get.widge |
| 7a0c0 | 74 20 3a 78 72 65 66 2d 64 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 78 72 | t.:xref-dspec))..............(xr |
| 7a0e0 | 65 66 73 20 28 73 6c 69 6d 65 2d 66 65 74 63 68 2d 62 72 6f 77 73 61 62 6c 65 2d 78 72 65 66 73 | efs.(slime-fetch-browsable-xrefs |
| 7a100 | 20 74 79 70 65 20 64 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 | .type.dspec))).........(cl-loop. |
| 7a120 | 66 6f 72 20 28 6c 61 62 65 6c 20 64 73 70 65 63 29 20 69 6e 20 78 72 65 66 73 0a 20 20 20 20 20 | for.(label.dspec).in.xrefs...... |
| 7a140 | 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 74 72 65 65 2d 77 69 64 67 65 | ............collect.`(tree-widge |
| 7a160 | 74 20 3a 74 61 67 20 2c 6c 61 62 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.:tag.,label................... |
| 7a180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 78 72 65 66 2d 74 79 70 65 20 | .....................:xref-type. |
| 7a1a0 | 2c 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ,type........................... |
| 7a1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 78 72 65 66 2d 64 73 70 65 63 20 2c 64 73 70 65 63 0a | .............:xref-dspec.,dspec. |
| 7a1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7a200 | 20 20 20 20 20 20 20 3a 65 78 70 61 6e 64 65 72 20 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 78 72 | .......:expander.slime-expand-xr |
| 7a220 | 65 66 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | efs............................. |
| 7a240 | 20 20 20 20 20 20 20 20 20 20 20 3a 68 61 73 2d 63 68 69 6c 64 72 65 6e 20 74 29 29 29 29 29 0a | ...........:has-children.t))))). |
| 7a260 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 2d 78 72 65 66 73 20 28 6e 61 6d 65 | .(defun.slime-browse-xrefs.(name |
| 7a280 | 20 74 79 70 65 29 0a 20 20 22 53 68 6f 77 20 74 68 65 20 78 72 65 66 20 67 72 61 70 68 20 6f 66 | .type)..."Show.the.xref.graph.of |
| 7a2a0 | 20 61 20 66 75 6e 63 74 69 6f 6e 20 69 6e 20 61 20 74 72 65 65 20 77 69 64 67 65 74 2e 22 0a 20 | .a.function.in.a.tree.widget.".. |
| 7a2c0 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 0a 20 20 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 | .(interactive.....(list.(slime-r |
| 7a2e0 | 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 4e 61 6d 65 3a 20 22 0a 20 20 20 | ead-from-minibuffer."Name:.".... |
| 7a300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7a320 | 20 20 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 | ..(slime-symbol-at-point))...... |
| 7a340 | 20 20 20 20 28 72 65 61 64 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 54 79 70 65 | ....(read.(completing-read."Type |
| 7a360 | 3a 20 22 20 28 73 6c 69 6d 65 2d 62 6f 67 75 73 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 6c 69 73 | :.".(slime-bogus-completion-alis |
| 7a380 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t............................... |
| 7a3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 3a 63 61 6c 6c 65 72 73 22 20 22 3a 63 61 6c 6c 65 | ............'(":callers".":calle |
| 7a3c0 | 65 73 22 20 22 3a 63 61 6c 6c 73 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | es".":calls")).................. |
| 7a3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 20 22 3a 22 29 29 29 29 0a 20 20 28 | ...............nil.t.":"))))...( |
| 7a400 | 73 6c 69 6d 65 2d 63 61 6c 6c 2d 77 69 74 68 2d 62 72 6f 77 73 65 72 2d 73 65 74 75 70 20 0a 20 | slime-call-with-browser-setup... |
| 7a420 | 20 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 78 72 65 66 29 20 28 73 6c 69 | ..(slime-buffer-name.:xref).(sli |
| 7a440 | 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 20 22 58 72 65 66 20 42 72 6f 77 73 65 | me-current-package)."Xref.Browse |
| 7a460 | 72 22 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 77 69 64 67 65 74 2d 63 72 | r"....(lambda.()......(widget-cr |
| 7a480 | 65 61 74 65 20 27 74 72 65 65 2d 77 69 64 67 65 74 20 3a 74 61 67 20 6e 61 6d 65 20 3a 78 72 65 | eate.'tree-widget.:tag.name.:xre |
| 7a4a0 | 66 2d 74 79 70 65 20 74 79 70 65 20 3a 78 72 65 66 2d 64 73 70 65 63 20 6e 61 6d 65 20 0a 20 20 | f-type.type.:xref-dspec.name.... |
| 7a4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 70 61 6e 64 65 72 20 27 73 6c 69 | ..................:expander.'sli |
| 7a4e0 | 6d 65 2d 65 78 70 61 6e 64 2d 78 72 65 66 73 20 3a 68 61 73 2d 65 63 68 69 6c 64 72 65 6e 20 74 | me-expand-xrefs.:has-echildren.t |
| 7a500 | 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 78 72 65 66 2d 62 72 6f 77 73 | ))))..(provide.'slime-xref-brows |
| 7a520 | 65 72 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | er)............................. |
| 7a540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 61 73 64 66 2e 65 6c | slime-2.31/contrib/slime-asdf.el |
| 7a620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 7a680 | 30 30 33 30 36 33 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 32 31 37 00 20 30 00 00 00 | 0030630.00000000000.015217..0... |
| 7a6a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a6c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a6e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 7a720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 7a740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a7a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7a800 | 3b 3b 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a | ;;.-*-.lexical-binding:.t;.-*-.. |
| 7a820 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 | (require.'slime).(require.'cl-li |
| 7a840 | 62 29 0a 28 72 65 71 75 69 72 65 20 27 67 72 65 70 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d | b).(require.'grep)..(define-slim |
| 7a860 | 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 61 73 64 66 0a 20 20 22 41 53 44 46 20 73 75 70 | e-contrib.slime-asdf..."ASDF.sup |
| 7a880 | 70 6f 72 74 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 44 61 6e 69 65 6c 20 42 61 72 6c 6f | port."...(:authors."Daniel.Barlo |
| 7a8a0 | 77 20 20 20 20 20 20 20 3c 64 61 6e 40 74 65 6c 65 6e 74 2e 6e 65 74 3e 22 0a 20 20 20 20 20 20 | w.......<dan@telent.net>"....... |
| 7a8c0 | 20 20 20 20 20 20 22 4d 61 72 63 6f 20 42 61 72 69 6e 67 65 72 20 20 20 20 20 20 3c 6d 62 40 62 | ......"Marco.Baringer......<mb@b |
| 7a8e0 | 65 73 65 2e 69 74 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 45 64 69 20 57 65 69 74 7a 20 | ese.it>"............."Edi.Weitz. |
| 7a900 | 20 20 20 20 20 20 20 20 20 20 3c 65 64 69 40 61 67 68 61 72 74 61 2e 64 65 3e 22 0a 20 20 20 20 | ..........<edi@agharta.de>"..... |
| 7a920 | 20 20 20 20 20 20 20 20 22 53 74 61 73 20 42 6f 75 6b 61 72 65 76 20 20 20 20 20 20 20 3c 73 74 | ........"Stas.Boukarev.......<st |
| 7a940 | 61 73 73 61 74 73 40 67 6d 61 69 6c 2e 63 6f 6d 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 | assats@gmail.com>"............." |
| 7a960 | 54 6f 62 69 61 73 20 43 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 | Tobias.C.Rittweiler.<tcr@freebit |
| 7a980 | 73 2e 64 65 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 73 | s.de>")...(:license."GPL")...(:s |
| 7a9a0 | 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 20 20 | lime-dependencies.slime-repl)... |
| 7a9c0 | 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d 61 73 64 66 29 | (:swank-dependencies.swank-asdf) |
| 7a9e0 | 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 73 6c | ...(:on-load....(add-to-list.'sl |
| 7aa00 | 69 6d 65 2d 65 64 69 74 2d 75 73 65 73 2d 78 72 65 66 73 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 | ime-edit-uses-xrefs.:depends-on. |
| 7aa20 | 74 29 0a 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 77 68 6f 2d 6d 61 70 20 | t)....(define-key.slime-who-map. |
| 7aa40 | 5b 3f 64 5d 20 27 73 6c 69 6d 65 2d 77 68 6f 2d 64 65 70 65 6e 64 73 2d 6f 6e 29 29 29 0a 0a 3b | [?d].'slime-who-depends-on)))..; |
| 7aa60 | 3b 3b 20 4e 4f 54 45 3a 20 60 73 79 73 74 65 6d 2d 6e 61 6d 65 27 20 69 73 20 61 20 70 72 65 64 | ;;.NOTE:.`system-name'.is.a.pred |
| 7aa80 | 65 66 69 6e 65 64 20 76 61 72 69 61 62 6c 65 20 69 6e 20 45 6d 61 63 73 2e 20 20 54 72 79 20 74 | efined.variable.in.Emacs...Try.t |
| 7aaa0 | 6f 0a 3b 3b 3b 20 61 76 6f 69 64 20 69 74 20 61 73 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 | o.;;;.avoid.it.as.local.variable |
| 7aac0 | 20 6e 61 6d 65 2e 0a 0a 3b 3b 3b 20 55 74 69 6c 69 74 69 65 73 0a 0a 28 64 65 66 67 72 6f 75 70 | .name...;;;.Utilities..(defgroup |
| 7aae0 | 20 73 6c 69 6d 65 2d 61 73 64 66 20 6e 69 6c 0a 20 20 22 41 53 44 46 20 73 75 70 70 6f 72 74 20 | .slime-asdf.nil..."ASDF.support. |
| 7ab00 | 66 6f 72 20 53 6c 69 6d 65 2e 22 0a 20 20 3a 70 72 65 66 69 78 20 22 73 6c 69 6d 65 2d 61 73 64 | for.Slime."...:prefix."slime-asd |
| 7ab20 | 66 2d 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 29 0a 0a 28 64 65 66 76 61 72 20 73 6c | f-"...:group.'slime)..(defvar.sl |
| 7ab40 | 69 6d 65 2d 73 79 73 74 65 6d 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 | ime-system-history.nil..."Histor |
| 7ab60 | 79 20 6c 69 73 74 20 66 6f 72 20 41 53 44 46 20 73 79 73 74 65 6d 20 6e 61 6d 65 73 2e 22 29 0a | y.list.for.ASDF.system.names."). |
| 7ab80 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 20 28 | .(defun.slime-read-system-name.( |
| 7aba0 | 26 6f 70 74 69 6f 6e 61 6c 20 70 72 6f 6d 70 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | &optional.prompt................ |
| 7abc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 | ...........................defau |
| 7abe0 | 6c 74 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lt-value........................ |
| 7ac00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 74 65 72 6d 69 6e 65 2d 64 65 66 61 | ..................determine-defa |
| 7ac20 | 75 6c 74 2d 61 63 63 75 72 61 74 65 6c 79 29 0a 20 20 22 52 65 61 64 20 61 20 73 79 73 74 65 6d | ult-accurately)..."Read.a.system |
| 7ac40 | 20 6e 61 6d 65 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2c 20 70 72 6f 6d 70 | .name.from.the.minibuffer,.promp |
| 7ac60 | 74 69 6e 67 20 77 69 74 68 20 50 52 4f 4d 50 54 2e 0a 49 66 20 6e 6f 20 60 64 65 66 61 75 6c 74 | ting.with.PROMPT..If.no.`default |
| 7ac80 | 2d 76 61 6c 75 65 27 20 69 73 20 67 69 76 65 6e 2c 20 6f 6e 65 20 69 73 20 74 72 69 65 64 20 74 | -value'.is.given,.one.is.tried.t |
| 7aca0 | 6f 20 62 65 20 64 65 74 65 72 6d 69 6e 65 64 3a 20 69 66 0a 60 64 65 74 65 72 6d 69 6e 65 2d 64 | o.be.determined:.if.`determine-d |
| 7acc0 | 65 66 61 75 6c 74 2d 61 63 63 75 72 61 74 65 6c 79 27 20 69 73 20 74 72 75 65 2c 20 62 79 20 61 | efault-accurately'.is.true,.by.a |
| 7ace0 | 6e 20 52 50 43 20 72 65 71 75 65 73 74 20 77 68 69 63 68 0a 67 72 6f 76 65 6c 73 20 74 68 72 6f | n.RPC.request.which.grovels.thro |
| 7ad00 | 75 67 68 20 61 6c 6c 20 64 65 66 69 6e 65 64 20 73 79 73 74 65 6d 73 3b 20 69 66 20 69 74 27 73 | ugh.all.defined.systems;.if.it's |
| 7ad20 | 20 6e 6f 74 20 74 72 75 65 2c 20 62 79 20 6c 6f 6f 6b 69 6e 67 0a 69 6e 20 74 68 65 20 64 69 72 | .not.true,.by.looking.in.the.dir |
| 7ad40 | 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 | ectory.of.the.current.buffer.".. |
| 7ad60 | 20 28 6c 65 74 2a 20 28 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 69 67 6e 6f 72 65 2d 63 61 73 65 20 | .(let*.((completion-ignore-case. |
| 7ad80 | 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 6d 70 74 20 28 6f 72 20 70 72 6f 6d 70 74 | nil)..........(prompt.(or.prompt |
| 7ada0 | 20 22 53 79 73 74 65 6d 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 79 73 74 65 6d 2d 6e 61 6d | ."System"))..........(system-nam |
| 7adc0 | 65 73 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 6c 69 73 74 2d 61 73 64 66 | es.(slime-eval.`(swank:list-asdf |
| 7ade0 | 2d 73 79 73 74 65 6d 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 2d 76 61 | -systems)))..........(default-va |
| 7ae00 | 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 | lue............(or.default-value |
| 7ae20 | 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 64 65 74 65 72 6d 69 6e 65 2d 64 | .................(if.determine-d |
| 7ae40 | 65 66 61 75 6c 74 2d 61 63 63 75 72 61 74 65 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | efault-accurately............... |
| 7ae60 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 65 74 65 72 6d 69 6e 65 2d 61 73 64 66 2d 73 79 73 74 65 | .....(slime-determine-asdf-syste |
| 7ae80 | 6d 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | m.(buffer-file-name)............ |
| 7aea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7aec0 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 | .....(slime-current-package))... |
| 7aee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 61 73 64 | .................(slime-find-asd |
| 7af00 | 2d 66 69 6c 65 20 28 6f 72 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 | -file.(or.default-directory..... |
| 7af20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7af40 | 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 | ........(buffer-file-name))..... |
| 7af60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7af80 | 20 20 20 20 73 79 73 74 65 6d 2d 6e 61 6d 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 | ....system-names))))..........(p |
| 7afa0 | 72 6f 6d 70 74 20 28 63 6f 6e 63 61 74 20 70 72 6f 6d 70 74 20 28 69 66 20 64 65 66 61 75 6c 74 | rompt.(concat.prompt.(if.default |
| 7afc0 | 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -value.......................... |
| 7afe0 | 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 28 64 65 66 61 75 6c 74 20 60 25 | ...........(format.".(default.`% |
| 7b000 | 73 27 29 3a 20 22 20 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 | s'):.".default-value)........... |
| 7b020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 20 22 29 29 | ..........................":.")) |
| 7b040 | 29 29 0a 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 70 72 6f 6d 70 74 20 28 | )).....(completing-read.prompt.( |
| 7b060 | 73 6c 69 6d 65 2d 62 6f 67 75 73 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 6c 69 73 74 20 73 79 73 | slime-bogus-completion-alist.sys |
| 7b080 | 74 65 6d 2d 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tem-names)...................... |
| 7b0a0 | 6e 69 6c 20 6e 69 6c 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nil.nil.nil..................... |
| 7b0c0 | 20 27 73 6c 69 6d 65 2d 73 79 73 74 65 6d 2d 68 69 73 74 6f 72 79 20 64 65 66 61 75 6c 74 2d 76 | .'slime-system-history.default-v |
| 7b0e0 | 61 6c 75 65 29 29 29 0a 0a 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 61 73 64 | alue)))....(defun.slime-find-asd |
| 7b100 | 2d 66 69 6c 65 20 28 64 69 72 65 63 74 6f 72 79 20 73 79 73 74 65 6d 2d 6e 61 6d 65 73 29 0a 20 | -file.(directory.system-names).. |
| 7b120 | 20 22 54 72 69 65 73 20 74 6f 20 66 69 6e 64 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 20 64 | ."Tries.to.find.an.ASDF.system.d |
| 7b140 | 65 66 69 6e 69 74 69 6f 6e 20 66 69 6c 65 20 69 6e 20 74 68 65 0a 60 64 69 72 65 63 74 6f 72 79 | efinition.file.in.the.`directory |
| 7b160 | 27 20 61 6e 64 20 72 65 74 75 72 6e 73 20 69 74 20 69 66 20 69 74 27 73 20 69 6e 20 60 73 79 73 | '.and.returns.it.if.it's.in.`sys |
| 7b180 | 74 65 6d 2d 6e 61 6d 65 73 27 2e 22 0a 20 20 28 6c 65 74 20 28 28 61 73 64 2d 66 69 6c 65 73 0a | tem-names'."...(let.((asd-files. |
| 7b1a0 | 20 20 20 20 20 20 20 20 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 73 20 28 66 69 6c 65 2d | .........(directory-files.(file- |
| 7b1c0 | 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 29 20 6e 69 6c 20 22 5c | name-directory.directory).nil."\ |
| 7b1e0 | 2e 61 73 64 24 22 29 29 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 73 79 73 74 65 | .asd$"))).....(cl-loop.for.syste |
| 7b200 | 6d 20 69 6e 20 61 73 64 2d 66 69 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 | m.in.asd-files..............for. |
| 7b220 | 63 61 6e 64 69 64 61 74 65 20 3d 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 73 61 6e 73 2d 65 78 74 65 | candidate.=.(file-name-sans-exte |
| 7b240 | 6e 73 69 6f 6e 20 73 79 73 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 | nsion.system)..............when. |
| 7b260 | 28 63 6c 2d 66 69 6e 64 20 63 61 6e 64 69 64 61 74 65 20 73 79 73 74 65 6d 2d 6e 61 6d 65 73 20 | (cl-find.candidate.system-names. |
| 7b280 | 3a 74 65 73 74 20 23 27 73 74 72 69 6e 67 2d 65 71 75 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | :test.#'string-equal)........... |
| 7b2a0 | 20 20 20 64 6f 20 28 63 6c 2d 72 65 74 75 72 6e 20 63 61 6e 64 69 64 61 74 65 29 29 29 29 0a 0a | ...do.(cl-return.candidate)))).. |
| 7b2c0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 74 65 72 6d 69 6e 65 2d 61 73 64 66 2d 73 79 73 74 | (defun.slime-determine-asdf-syst |
| 7b2e0 | 65 6d 20 28 66 69 6c 65 6e 61 6d 65 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 29 0a 20 20 22 | em.(filename.buffer-package)..." |
| 7b300 | 54 72 79 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 61 73 64 66 20 73 79 73 74 65 6d | Try.to.determine.the.asdf.system |
| 7b320 | 20 74 68 61 74 20 60 66 69 6c 65 6e 61 6d 65 27 20 62 65 6c 6f 6e 67 73 20 74 6f 2e 22 0a 20 20 | .that.`filename'.belongs.to."... |
| 7b340 | 28 73 6c 69 6d 65 2d 65 76 61 6c 0a 20 20 20 60 28 73 77 61 6e 6b 3a 61 73 64 66 2d 64 65 74 65 | (slime-eval....`(swank:asdf-dete |
| 7b360 | 72 6d 69 6e 65 2d 73 79 73 74 65 6d 20 2c 28 61 6e 64 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 | rmine-system.,(and.filename..... |
| 7b380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7b3a0 | 20 20 20 28 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 6e | ...(slime-to-lisp-filename.filen |
| 7b3c0 | 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame))........................... |
| 7b3e0 | 20 20 20 20 20 20 20 2c 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 29 29 29 0a 0a 28 64 65 66 75 | .......,buffer-package)))..(defu |
| 7b400 | 6e 20 73 6c 69 6d 65 2d 77 68 6f 2d 64 65 70 65 6e 64 73 2d 6f 6e 2d 72 70 63 20 28 73 79 73 74 | n.slime-who-depends-on-rpc.(syst |
| 7b420 | 65 6d 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 77 68 6f 2d 64 65 | em)...(slime-eval.`(swank:who-de |
| 7b440 | 70 65 6e 64 73 2d 6f 6e 20 2c 73 79 73 74 65 6d 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 | pends-on.,system)))..(defcustom. |
| 7b460 | 73 6c 69 6d 65 2d 61 73 64 66 2d 63 6f 6c 6c 65 63 74 2d 6e 6f 74 65 73 20 74 0a 20 20 22 43 6f | slime-asdf-collect-notes.t..."Co |
| 7b480 | 6c 6c 65 63 74 20 61 6e 64 20 64 69 73 70 6c 61 79 20 6e 6f 74 65 73 20 70 72 6f 64 75 63 65 64 | llect.and.display.notes.produced |
| 7b4a0 | 20 62 79 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 73 6c 69 | .by.the.compiler...See.also.`sli |
| 7b4c0 | 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 27 20 61 6e 64 | me-highlight-compiler-notes'.and |
| 7b4e0 | 0a 60 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 68 6f 6f | .`slime-compilation-finished-hoo |
| 7b500 | 6b 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 61 73 64 66 29 0a 0a 28 64 65 66 | k'."...:group.'slime-asdf)..(def |
| 7b520 | 75 6e 20 73 6c 69 6d 65 2d 61 73 64 66 2d 6f 70 65 72 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 | un.slime-asdf-operation-finished |
| 7b540 | 2d 66 75 6e 63 74 69 6f 6e 20 28 73 79 73 74 65 6d 29 0a 20 20 28 69 66 20 73 6c 69 6d 65 2d 61 | -function.(system)...(if.slime-a |
| 7b560 | 73 64 66 2d 63 6f 6c 6c 65 63 74 2d 6e 6f 74 65 73 0a 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d | sdf-collect-notes.......#'slime- |
| 7b580 | 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 0a 20 20 20 20 20 20 28 73 6c 69 6d | compilation-finished.......(slim |
| 7b5a0 | 65 2d 63 75 72 72 79 20 28 6c 61 6d 62 64 61 20 28 73 79 73 74 65 6d 20 72 65 73 75 6c 74 29 0a | e-curry.(lambda.(system.result). |
| 7b5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 73 6c 69 6d 65 | .....................(let.(slime |
| 7b5e0 | 2d 68 69 67 68 6c 69 67 68 74 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 0a 20 20 20 20 20 20 | -highlight-compiler-notes....... |
| 7b600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 | .....................slime-compi |
| 7b620 | 6c 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 20 20 | lation-finished-hook)........... |
| 7b640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d | .............(slime-compilation- |
| 7b660 | 66 69 6e 69 73 68 65 64 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | finished.result))).............. |
| 7b680 | 20 20 20 20 20 20 73 79 73 74 65 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6f 6f | ......system)))..(defun.slime-oo |
| 7b6a0 | 73 20 28 73 79 73 74 65 6d 20 6f 70 65 72 61 74 69 6f 6e 20 26 72 65 73 74 20 6b 65 79 77 6f 72 | s.(system.operation.&rest.keywor |
| 7b6c0 | 64 2d 61 72 67 73 29 0a 20 20 22 4f 70 65 72 61 74 65 20 4f 6e 20 53 79 73 74 65 6d 2e 22 0a 20 | d-args)..."Operate.On.System.".. |
| 7b6e0 | 20 28 73 6c 69 6d 65 2d 73 61 76 65 2d 73 6f 6d 65 2d 6c 69 73 70 2d 62 75 66 66 65 72 73 29 0a | .(slime-save-some-lisp-buffers). |
| 7b700 | 20 20 28 73 6c 69 6d 65 2d 64 69 73 70 6c 61 79 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a | ..(slime-display-output-buffer). |
| 7b720 | 20 20 28 6d 65 73 73 61 67 65 20 22 50 65 72 66 6f 72 6d 69 6e 67 20 41 53 44 46 20 25 53 25 73 | ..(message."Performing.ASDF.%S%s |
| 7b740 | 20 6f 6e 20 73 79 73 74 65 6d 20 25 53 22 0a 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 72 61 74 | .on.system.%S"............operat |
| 7b760 | 69 6f 6e 20 28 69 66 20 6b 65 79 77 6f 72 64 2d 61 72 67 73 20 28 66 6f 72 6d 61 74 20 22 20 25 | ion.(if.keyword-args.(format.".% |
| 7b780 | 53 22 20 6b 65 79 77 6f 72 64 2d 61 72 67 73 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 | S".keyword-args)."")............ |
| 7b7a0 | 73 79 73 74 65 6d 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 65 | system)...(slime-repl-shortcut-e |
| 7b7c0 | 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 60 28 73 77 61 6e 6b 3a 6f 70 65 72 61 74 65 2d 6f 6e 2d | val-async....`(swank:operate-on- |
| 7b7e0 | 73 79 73 74 65 6d 2d 66 6f 72 2d 65 6d 61 63 73 20 2c 73 79 73 74 65 6d 20 27 2c 6f 70 65 72 61 | system-for-emacs.,system.',opera |
| 7b800 | 74 69 6f 6e 20 2c 40 6b 65 79 77 6f 72 64 2d 61 72 67 73 29 0a 20 20 20 28 73 6c 69 6d 65 2d 61 | tion.,@keyword-args)....(slime-a |
| 7b820 | 73 64 66 2d 6f 70 65 72 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 66 75 6e 63 74 69 6f 6e 20 | sdf-operation-finished-function. |
| 7b840 | 73 79 73 74 65 6d 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 49 6e 74 65 72 61 63 74 69 76 65 20 66 75 6e | system)))....;;;.Interactive.fun |
| 7b860 | 63 74 69 6f 6e 73 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c 6f 61 64 2d 73 79 73 74 65 6d | ctions..(defun.slime-load-system |
| 7b880 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 79 73 74 65 6d 29 0a 20 20 22 43 6f 6d 70 69 6c 65 20 61 | .(&optional.system)..."Compile.a |
| 7b8a0 | 6e 64 20 6c 6f 61 64 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e 20 20 0a 0a 44 65 66 61 75 | nd.load.an.ASDF.system.....Defau |
| 7b8c0 | 6c 74 20 73 79 73 74 65 6d 20 6e 61 6d 65 20 69 73 20 74 61 6b 65 6e 20 66 72 6f 6d 20 66 69 72 | lt.system.name.is.taken.from.fir |
| 7b8e0 | 73 74 20 66 69 6c 65 20 6d 61 74 63 68 69 6e 67 20 2a 2e 61 73 64 20 69 6e 20 63 75 72 72 65 6e | st.file.matching.*.asd.in.curren |
| 7b900 | 74 0a 62 75 66 66 65 72 27 73 20 77 6f 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 22 0a 20 20 | t.buffer's.working.directory"... |
| 7b920 | 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 | (interactive.(list.(slime-read-s |
| 7b940 | 79 73 74 65 6d 2d 6e 61 6d 65 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 6f 6f 73 20 73 79 73 74 65 | ystem-name)))...(slime-oos.syste |
| 7b960 | 6d 20 27 6c 6f 61 64 2d 6f 70 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6f 70 65 6e 2d | m.'load-op))..(defun.slime-open- |
| 7b980 | 73 79 73 74 65 6d 20 28 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 61 64 20 69 6e 74 65 | system.(name.&optional.load.inte |
| 7b9a0 | 72 61 63 74 69 76 65 29 0a 20 20 22 4f 70 65 6e 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20 61 6e | ractive)..."Open.all.files.in.an |
| 7b9c0 | 20 41 53 44 46 20 73 79 73 74 65 6d 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c | .ASDF.system."...(interactive.(l |
| 7b9e0 | 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 29 20 6e 69 6c | ist.(slime-read-system-name).nil |
| 7ba00 | 20 74 29 29 0a 20 20 28 77 68 65 6e 20 28 6f 72 20 6c 6f 61 64 0a 20 20 20 20 20 20 20 20 20 20 | .t))...(when.(or.load........... |
| 7ba20 | 20 20 28 61 6e 64 20 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(and.interactive.............. |
| 7ba40 | 20 20 20 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 61 73 64 | ....(not.(slime-eval.`(swank:asd |
| 7ba60 | 66 2d 73 79 73 74 65 6d 2d 6c 6f 61 64 65 64 2d 70 20 2c 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 | f-system-loaded-p.,name)))...... |
| 7ba80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 4c 6f 61 64 20 69 74 3f 20 | ............(y-or-n-p."Load.it?. |
| 7baa0 | 22 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6c 6f 61 64 2d 73 79 73 74 65 6d 20 6e 61 6d 65 | "))).....(slime-load-system.name |
| 7bac0 | 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 60 28 73 77 61 6e | ))...(slime-eval-async....`(swan |
| 7bae0 | 6b 3a 61 73 64 66 2d 73 79 73 74 65 6d 2d 66 69 6c 65 73 20 2c 6e 61 6d 65 29 0a 20 20 20 28 6c | k:asdf-system-files.,name)....(l |
| 7bb00 | 61 6d 62 64 61 20 28 66 69 6c 65 73 29 0a 20 20 20 20 20 28 77 68 65 6e 20 66 69 6c 65 73 0a 20 | ambda.(files)......(when.files.. |
| 7bb20 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 73 20 28 6d 61 70 63 61 72 20 27 73 6c 69 6d | ......(let.((files.(mapcar.'slim |
| 7bb40 | 65 2d 66 72 6f 6d 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 | e-from-lisp-filename............ |
| 7bb60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 66 69 6c 65 73 | .................(nreverse.files |
| 7bb80 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 | ))))..........(find-file-other-w |
| 7bba0 | 69 6e 64 6f 77 20 28 63 61 72 20 66 69 6c 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 70 | indow.(car.files))..........(map |
| 7bbc0 | 63 20 27 66 69 6e 64 2d 66 69 6c 65 20 28 63 64 72 20 66 69 6c 65 73 29 29 29 29 29 29 29 0a 0a | c.'find-file.(cdr.files))))))).. |
| 7bbe0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 2d 73 79 73 74 65 6d 20 28 6e 61 6d 65 | (defun.slime-browse-system.(name |
| 7bc00 | 29 0a 20 20 22 42 72 6f 77 73 65 20 66 69 6c 65 73 20 69 6e 20 61 6e 20 41 53 44 46 20 73 79 73 | )..."Browse.files.in.an.ASDF.sys |
| 7bc20 | 74 65 6d 20 75 73 69 6e 67 20 44 69 72 65 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | tem.using.Dired."...(interactive |
| 7bc40 | 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 29 29 | .(list.(slime-read-system-name)) |
| 7bc60 | 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 61 73 | )...(slime-eval-async.`(swank:as |
| 7bc80 | 64 66 2d 73 79 73 74 65 6d 2d 64 69 72 65 63 74 6f 72 79 20 2c 6e 61 6d 65 29 0a 20 20 20 28 6c | df-system-directory.,name)....(l |
| 7bca0 | 61 6d 62 64 61 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 28 77 68 65 6e 20 64 69 72 | ambda.(directory)......(when.dir |
| 7bcc0 | 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 28 64 69 72 65 64 20 28 73 6c 69 6d 65 2d 66 72 6f 6d | ectory........(dired.(slime-from |
| 7bce0 | 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 64 69 72 65 63 74 6f 72 79 29 29 29 29 29 29 0a 0a | -lisp-filename.directory)))))).. |
| 7bd00 | 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 72 67 72 65 70 29 0a 20 20 20 20 28 64 65 66 75 6e 20 | (if.(fboundp.'rgrep).....(defun. |
| 7bd20 | 73 6c 69 6d 65 2d 72 67 72 65 70 2d 73 79 73 74 65 6d 20 28 73 79 73 2d 6e 61 6d 65 20 72 65 67 | slime-rgrep-system.(sys-name.reg |
| 7bd40 | 65 78 70 29 0a 20 20 20 20 20 20 22 52 75 6e 20 60 72 67 72 65 70 27 20 6f 6e 20 74 68 65 20 62 | exp)......."Run.`rgrep'.on.the.b |
| 7bd60 | 61 73 65 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e | ase.directory.of.an.ASDF.system. |
| 7bd80 | 22 0a 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 70 72 6f 67 6e 20 28 67 72 65 | ".......(interactive.(progn.(gre |
| 7bda0 | 70 2d 63 6f 6d 70 75 74 65 2d 64 65 66 61 75 6c 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | p-compute-defaults)............. |
| 7bdc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d | ..............(list.(slime-read- |
| 7bde0 | 73 79 73 74 65 6d 2d 6e 61 6d 65 20 6e 69 6c 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 | system-name.nil.nil.t).......... |
| 7be00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 65 70 2d 72 65 61 | .......................(grep-rea |
| 7be20 | 64 2d 72 65 67 65 78 70 29 29 29 29 0a 20 20 20 20 20 20 28 72 67 72 65 70 20 72 65 67 65 78 70 | d-regexp)))).......(rgrep.regexp |
| 7be40 | 20 22 2a 2e 6c 69 73 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 72 | ."*.lisp"..............(slime-fr |
| 7be60 | 6f 6d 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | om-lisp-filename...............( |
| 7be80 | 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 61 73 64 66 2d 73 79 73 74 65 6d 2d 64 | slime-eval.`(swank:asdf-system-d |
| 7bea0 | 69 72 65 63 74 6f 72 79 20 2c 73 79 73 2d 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 28 64 65 66 | irectory.,sys-name))))).....(def |
| 7bec0 | 75 6e 20 73 6c 69 6d 65 2d 72 67 72 65 70 2d 73 79 73 74 65 6d 20 28 29 0a 20 20 20 20 20 20 28 | un.slime-rgrep-system.().......( |
| 7bee0 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 54 68 69 73 20 | interactive).......(error."This. |
| 7bf00 | 63 6f 6d 6d 61 6e 64 20 69 73 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 65 64 20 6f 6e 20 47 4e 55 | command.is.only.supported.on.GNU |
| 7bf20 | 20 45 6d 61 63 73 20 3e 32 31 2e 78 2e 22 29 29 29 0a 0a 28 69 66 20 28 62 6f 75 6e 64 70 20 27 | .Emacs.>21.x.")))..(if.(boundp.' |
| 7bf40 | 6d 75 6c 74 69 2d 69 73 65 61 72 63 68 2d 6e 65 78 74 2d 62 75 66 66 65 72 2d 66 75 6e 63 74 69 | multi-isearch-next-buffer-functi |
| 7bf60 | 6f 6e 29 0a 20 20 20 20 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 73 65 61 72 63 68 2d 73 79 73 | on).....(defun.slime-isearch-sys |
| 7bf80 | 74 65 6d 20 28 73 79 73 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 22 52 75 6e 20 60 69 73 65 61 72 | tem.(sys-name)......."Run.`isear |
| 7bfa0 | 63 68 2d 66 6f 72 77 61 72 64 27 20 6f 6e 20 74 68 65 20 66 69 6c 65 73 20 6f 66 20 61 6e 20 41 | ch-forward'.on.the.files.of.an.A |
| 7bfc0 | 53 44 46 20 73 79 73 74 65 6d 2e 22 0a 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 | SDF.system.".......(interactive. |
| 7bfe0 | 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 20 6e 69 | (list.(slime-read-system-name.ni |
| 7c000 | 6c 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 65 73 20 28 | l.nil.t))).......(let*.((files.( |
| 7c020 | 6d 61 70 63 61 72 20 27 73 6c 69 6d 65 2d 66 72 6f 6d 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 | mapcar.'slime-from-lisp-filename |
| 7c040 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | .............................(sl |
| 7c060 | 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 61 73 64 66 2d 73 79 73 74 65 6d 2d 66 69 6c | ime-eval.`(swank:asdf-system-fil |
| 7c080 | 65 73 20 2c 73 79 73 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | es.,sys-name))))..............(m |
| 7c0a0 | 75 6c 74 69 2d 69 73 65 61 72 63 68 2d 6e 65 78 74 2d 62 75 66 66 65 72 2d 66 75 6e 63 74 69 6f | ulti-isearch-next-buffer-functio |
| 7c0c0 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 0a 20 20 20 20 20 20 20 20 20 | n...............(let*........... |
| 7c0e0 | 20 20 20 20 20 20 20 20 20 28 28 62 75 66 66 65 72 73 2d 66 6f 72 77 61 72 64 20 20 28 6d 61 70 | .........((buffers-forward..(map |
| 7c100 | 63 61 72 20 23 27 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 66 69 6c 65 73 29 29 | car.#'find-file-noselect.files)) |
| 7c120 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 73 2d 62 61 63 | ....................(buffers-bac |
| 7c140 | 6b 77 61 72 64 20 28 72 65 76 65 72 73 65 20 62 75 66 66 65 72 73 2d 66 6f 72 77 61 72 64 29 29 | kward.(reverse.buffers-forward)) |
| 7c160 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 63 75 72 | ).................#'(lambda.(cur |
| 7c180 | 72 65 6e 74 2d 62 75 66 66 65 72 20 77 72 61 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rent-buffer.wrap)............... |
| 7c1a0 | 20 20 20 20 20 20 3b 3b 20 43 6f 6e 74 72 61 72 69 6c 79 20 74 6f 20 74 68 65 20 64 6f 63 73 74 | ......;;.Contrarily.to.the.docst |
| 7c1c0 | 72 69 6e 67 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 60 | ring.of.....................;;.` |
| 7c1e0 | 6d 75 6c 74 69 2d 69 73 65 61 72 63 68 2d 6e 65 78 74 2d 62 75 66 66 65 72 2d 66 75 6e 63 74 69 | multi-isearch-next-buffer-functi |
| 7c200 | 6f 6e 27 2c 20 74 68 65 20 66 69 72 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on',.the.first.................. |
| 7c220 | 20 20 20 3b 3b 20 61 72 67 20 69 73 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 61 20 62 | ...;;.arg.is.not.necessarily.a.b |
| 7c240 | 75 66 66 65 72 2e 20 52 65 70 6f 72 74 20 73 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | uffer..Report.sent.............. |
| 7c260 | 20 20 20 20 20 20 20 3b 3b 20 75 70 73 74 72 65 61 6d 2e 20 28 32 30 30 39 2d 31 31 2d 31 37 29 | .......;;.upstream..(2009-11-17) |
| 7c280 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 75 72 72 65 | .....................(setq.curre |
| 7c2a0 | 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 20 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 63 75 | nt-buffer.(or.current-buffer.(cu |
| 7c2c0 | 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rrent-buffer)))................. |
| 7c2e0 | 20 20 20 20 28 6c 65 74 2a 20 28 28 62 75 66 66 65 72 73 20 28 69 66 20 69 73 65 61 72 63 68 2d | ....(let*.((buffers.(if.isearch- |
| 7c300 | 66 6f 72 77 61 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | forward......................... |
| 7c320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 73 2d 66 6f 72 77 61 72 64 0a | ................buffers-forward. |
| 7c340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7c360 | 20 20 20 20 20 20 20 20 62 75 66 66 65 72 73 2d 62 61 63 6b 77 61 72 64 29 29 29 0a 20 20 20 20 | ........buffers-backward)))..... |
| 7c380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 77 72 61 70 0a 20 20 20 20 20 | ..................(if.wrap...... |
| 7c3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 62 75 66 66 65 72 | .....................(car.buffer |
| 7c3c0 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | s)...........................(se |
| 7c3e0 | 63 6f 6e 64 20 28 6d 65 6d 71 20 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 | cond.(memq.current-buffer.buffer |
| 7c400 | 73 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 73 65 61 72 63 68 2d 66 6f 72 77 61 | s)))))))).........(isearch-forwa |
| 7c420 | 72 64 29 29 29 0a 20 20 20 20 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 73 65 61 72 63 68 2d 73 | rd))).....(defun.slime-isearch-s |
| 7c440 | 79 73 74 65 6d 20 28 29 0a 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 | ystem.().......(interactive).... |
| 7c460 | 20 20 20 28 65 72 72 6f 72 20 22 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 6f 6e 6c 79 20 | ...(error."This.command.is.only. |
| 7c480 | 73 75 70 70 6f 72 74 65 64 20 6f 6e 20 47 4e 55 20 45 6d 61 63 73 20 3e 32 33 2e 31 2e 78 2e 22 | supported.on.GNU.Emacs.>23.1.x." |
| 7c4a0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 61 64 2d 71 75 65 72 79 2d 72 65 70 | )))..(defun.slime-read-query-rep |
| 7c4c0 | 6c 61 63 65 2d 61 72 67 73 20 28 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 26 72 65 73 74 20 66 | lace-args.(format-string.&rest.f |
| 7c4e0 | 6f 72 6d 61 74 2d 61 72 67 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 69 6e 69 62 75 66 66 65 72 | ormat-args)...(let*.((minibuffer |
| 7c500 | 2d 73 65 74 75 70 2d 68 6f 6f 6b 20 28 73 6c 69 6d 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 73 65 | -setup-hook.(slime-minibuffer-se |
| 7c520 | 74 75 70 2d 68 6f 6f 6b 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 69 6e 69 62 75 66 66 65 72 2d | tup-hook))..........(minibuffer- |
| 7c540 | 6c 6f 63 61 6c 2d 6d 61 70 20 73 6c 69 6d 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 6d 61 70 29 0a | local-map.slime-minibuffer-map). |
| 7c560 | 20 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 20 28 71 75 65 72 79 2d 72 65 70 6c 61 63 65 2d | .........(common.(query-replace- |
| 7c580 | 72 65 61 64 2d 61 72 67 73 20 28 61 70 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 66 6f 72 6d 61 74 | read-args.(apply.#'format.format |
| 7c5a0 | 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -string......................... |
| 7c5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 61 74 2d | .........................format- |
| 7c5e0 | 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | args)........................... |
| 7c600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 20 74 29 29 29 0a 20 20 20 20 28 6c 69 73 74 | ................t.t))).....(list |
| 7c620 | 20 28 6e 74 68 20 30 20 63 6f 6d 6d 6f 6e 29 20 28 6e 74 68 20 31 20 63 6f 6d 6d 6f 6e 29 20 28 | .(nth.0.common).(nth.1.common).( |
| 7c640 | 6e 74 68 20 32 20 63 6f 6d 6d 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 71 | nth.2.common))))..(defun.slime-q |
| 7c660 | 75 65 72 79 2d 72 65 70 6c 61 63 65 2d 73 79 73 74 65 6d 20 28 6e 61 6d 65 20 66 72 6f 6d 20 74 | uery-replace-system.(name.from.t |
| 7c680 | 6f 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 6c 69 6d 69 74 65 64 29 0a 20 20 22 52 75 6e 20 60 71 | o.&optional.delimited)..."Run.`q |
| 7c6a0 | 75 65 72 79 2d 72 65 70 6c 61 63 65 27 20 6f 6e 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e | uery-replace'.on.an.ASDF.system. |
| 7c6c0 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 65 74 20 28 28 73 79 73 74 65 6d 20 28 | "...(interactive.(let.((system.( |
| 7c6e0 | 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 20 6e 69 6c 20 6e 69 6c 20 74 | slime-read-system-name.nil.nil.t |
| 7c700 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 73 79 73 74 65 | )))..................(cons.syste |
| 7c720 | 6d 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 2d 61 72 67 73 | m.(slime-read-query-replace-args |
| 7c740 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7c760 | 22 51 75 65 72 79 20 72 65 70 6c 61 63 65 20 74 68 72 6f 75 67 68 6f 75 74 20 60 25 73 27 22 20 | "Query.replace.throughout.`%s'". |
| 7c780 | 73 79 73 74 65 6d 29 29 29 29 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 63 0a 20 | system))))...(condition-case.c.. |
| 7c7a0 | 20 20 20 20 20 3b 3b 20 60 74 61 67 73 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 27 20 61 63 74 | .....;;.`tags-query-replace'.act |
| 7c7c0 | 75 61 6c 6c 79 20 75 73 65 73 20 60 71 75 65 72 79 2d 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 | ually.uses.`query-replace-regexp |
| 7c7e0 | 27 0a 20 20 20 20 20 20 3b 3b 20 69 6e 74 65 72 6e 61 6c 6c 79 2e 0a 20 20 20 20 20 20 28 74 61 | '.......;;.internally........(ta |
| 7c800 | 67 73 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 66 | gs-query-replace.(regexp-quote.f |
| 7c820 | 72 6f 6d 29 20 74 6f 20 64 65 6c 69 6d 69 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rom).to.delimited............... |
| 7c840 | 20 20 20 20 20 20 20 20 20 20 20 20 27 28 6d 61 70 63 61 72 20 27 73 6c 69 6d 65 2d 66 72 6f 6d | ............'(mapcar.'slime-from |
| 7c860 | 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -lisp-filename.................. |
| 7c880 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 61 | ...........(slime-eval.`(swank:a |
| 7c8a0 | 73 64 66 2d 73 79 73 74 65 6d 2d 66 69 6c 65 73 20 2c 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 | sdf-system-files.,name)))).....( |
| 7c8c0 | 65 72 72 6f 72 0a 20 20 20 20 20 3b 3b 20 4b 6c 75 64 67 65 3a 20 60 74 61 67 73 2d 71 75 65 72 | error......;;.Kludge:.`tags-quer |
| 7c8e0 | 79 2d 72 65 70 6c 61 63 65 27 20 64 6f 65 73 20 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 72 65 74 | y-replace'.does.not.actually.ret |
| 7c900 | 75 72 6e 20 62 75 74 0a 20 20 20 20 20 3b 3b 20 73 69 67 6e 61 6c 73 20 61 6e 20 75 6e 6e 61 6d | urn.but......;;.signals.an.unnam |
| 7c920 | 65 64 20 65 72 72 6f 72 20 77 69 74 68 20 74 68 65 20 62 65 6c 6f 77 20 65 72 72 6f 72 0a 20 20 | ed.error.with.the.below.error... |
| 7c940 | 20 20 20 3b 3b 20 6d 65 73 73 61 67 65 2e 20 28 3c 3d 32 33 2e 31 2e 32 2c 20 61 74 20 6c 65 61 | ...;;.message..(<=23.1.2,.at.lea |
| 7c960 | 73 74 2e 29 0a 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 | st.)......(unless.(string-equal. |
| 7c980 | 28 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 2d 73 74 72 69 6e 67 20 63 29 20 22 41 6c 6c 20 66 69 | (error-message-string.c)."All.fi |
| 7c9a0 | 6c 65 73 20 70 72 6f 63 65 73 73 65 64 22 29 0a 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 28 | les.processed")........(signal.( |
| 7c9c0 | 63 61 72 20 63 29 20 28 63 64 72 20 63 29 29 29 20 20 20 20 20 20 20 20 3b 20 72 65 73 69 67 6e | car.c).(cdr.c)))........;.resign |
| 7c9e0 | 61 6c 0a 20 20 20 20 20 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 71 75 65 72 79 | al......t)))..(defun.slime-query |
| 7ca00 | 2d 72 65 70 6c 61 63 65 2d 73 79 73 74 65 6d 2d 61 6e 64 2d 64 65 70 65 6e 64 65 6e 74 73 0a 20 | -replace-system-and-dependents.. |
| 7ca20 | 20 20 20 28 6e 61 6d 65 20 66 72 6f 6d 20 74 6f 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 6c 69 6d | ...(name.from.to.&optional.delim |
| 7ca40 | 69 74 65 64 29 0a 20 20 22 52 75 6e 20 60 71 75 65 72 79 2d 72 65 70 6c 61 63 65 27 20 6f 6e 20 | ited)..."Run.`query-replace'.on. |
| 7ca60 | 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 20 61 6e 64 20 61 6c 6c 20 74 68 65 20 73 79 73 74 65 | an.ASDF.system.and.all.the.syste |
| 7ca80 | 6d 73 0a 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 69 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | ms.depending.on.it."...(interact |
| 7caa0 | 69 76 65 20 28 6c 65 74 20 28 28 73 79 73 74 65 6d 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 | ive.(let.((system.(slime-read-sy |
| 7cac0 | 73 74 65 6d 2d 6e 61 6d 65 20 6e 69 6c 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 | stem-name.nil.nil.t))).......... |
| 7cae0 | 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 73 79 73 74 65 6d 20 28 73 6c 69 6d 65 2d 72 65 61 64 | ........(cons.system.(slime-read |
| 7cb00 | 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 2d 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -query-replace-args............. |
| 7cb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 51 75 65 72 79 20 72 65 70 6c 61 63 | ..................."Query.replac |
| 7cb40 | 65 20 74 68 72 6f 75 67 68 6f 75 74 20 60 25 73 27 2b 64 65 70 65 6e 64 65 6e 63 69 65 73 22 0a | e.throughout.`%s'+dependencies". |
| 7cb60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 | ...............................s |
| 7cb80 | 79 73 74 65 6d 29 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 | ystem))))...(slime-query-replace |
| 7cba0 | 2d 73 79 73 74 65 6d 20 6e 61 6d 65 20 66 72 6f 6d 20 74 6f 20 64 65 6c 69 6d 69 74 65 64 29 0a | -system.name.from.to.delimited). |
| 7cbc0 | 20 20 28 64 6f 6c 69 73 74 20 28 64 65 70 20 28 73 6c 69 6d 65 2d 77 68 6f 2d 64 65 70 65 6e 64 | ..(dolist.(dep.(slime-who-depend |
| 7cbe0 | 73 2d 6f 6e 2d 72 70 63 20 6e 61 6d 65 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 79 2d 6f 72 2d | s-on-rpc.name)).....(when.(y-or- |
| 7cc00 | 6e 2d 70 20 28 66 6f 72 6d 61 74 20 22 44 65 73 63 65 6e 64 20 69 6e 74 6f 20 73 79 73 74 65 6d | n-p.(format."Descend.into.system |
| 7cc20 | 20 60 25 73 27 3f 20 22 20 64 65 70 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 71 75 65 72 | .`%s'?.".dep)).......(slime-quer |
| 7cc40 | 79 2d 72 65 70 6c 61 63 65 2d 73 79 73 74 65 6d 20 64 65 70 20 66 72 6f 6d 20 74 6f 20 64 65 6c | y-replace-system.dep.from.to.del |
| 7cc60 | 69 6d 69 74 65 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 6c 65 74 65 2d | imited))))..(defun.slime-delete- |
| 7cc80 | 73 79 73 74 65 6d 2d 66 61 73 6c 73 20 28 6e 61 6d 65 29 0a 20 20 22 44 65 6c 65 74 65 20 46 41 | system-fasls.(name)..."Delete.FA |
| 7cca0 | 53 4c 73 20 70 72 6f 64 75 63 65 64 20 62 79 20 63 6f 6d 70 69 6c 69 6e 67 20 61 20 73 79 73 74 | SLs.produced.by.compiling.a.syst |
| 7ccc0 | 65 6d 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 | em."...(interactive.(list.(slime |
| 7cce0 | 2d 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 | -read-system-name)))...(slime-re |
| 7cd00 | 70 6c 2d 73 68 6f 72 74 63 75 74 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 60 28 73 77 61 6e | pl-shortcut-eval-async....`(swan |
| 7cd20 | 6b 3a 64 65 6c 65 74 65 2d 73 79 73 74 65 6d 2d 66 61 73 6c 73 20 2c 6e 61 6d 65 29 0a 20 20 20 | k:delete-system-fasls.,name).... |
| 7cd40 | 27 6d 65 73 73 61 67 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 6c 6f 61 64 2d | 'message))..(defun.slime-reload- |
| 7cd60 | 73 79 73 74 65 6d 20 28 73 79 73 74 65 6d 29 0a 20 20 22 52 65 6c 6f 61 64 20 61 6e 20 41 53 44 | system.(system)..."Reload.an.ASD |
| 7cd80 | 46 20 73 79 73 74 65 6d 20 77 69 74 68 6f 75 74 20 72 65 6c 6f 61 64 69 6e 67 20 69 74 73 20 64 | F.system.without.reloading.its.d |
| 7cda0 | 65 70 65 6e 64 65 6e 63 69 65 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 | ependencies."...(interactive.(li |
| 7cdc0 | 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 29 29 29 0a 20 20 | st.(slime-read-system-name)))... |
| 7cde0 | 28 73 6c 69 6d 65 2d 73 61 76 65 2d 73 6f 6d 65 2d 6c 69 73 70 2d 62 75 66 66 65 72 73 29 0a 20 | (slime-save-some-lisp-buffers).. |
| 7ce00 | 20 28 73 6c 69 6d 65 2d 64 69 73 70 6c 61 79 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 | .(slime-display-output-buffer).. |
| 7ce20 | 20 28 6d 65 73 73 61 67 65 20 22 50 65 72 66 6f 72 6d 69 6e 67 20 41 53 44 46 20 4c 4f 41 44 2d | .(message."Performing.ASDF.LOAD- |
| 7ce40 | 4f 50 20 6f 6e 20 73 79 73 74 65 6d 20 25 53 22 20 73 79 73 74 65 6d 29 0a 20 20 28 73 6c 69 6d | OP.on.system.%S".system)...(slim |
| 7ce60 | 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 60 28 | e-repl-shortcut-eval-async....`( |
| 7ce80 | 73 77 61 6e 6b 3a 72 65 6c 6f 61 64 2d 73 79 73 74 65 6d 20 2c 73 79 73 74 65 6d 29 0a 20 20 20 | swank:reload-system.,system).... |
| 7cea0 | 28 73 6c 69 6d 65 2d 61 73 64 66 2d 6f 70 65 72 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 66 | (slime-asdf-operation-finished-f |
| 7cec0 | 75 6e 63 74 69 6f 6e 20 73 79 73 74 65 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | unction.system)))..(defun.slime- |
| 7cee0 | 77 68 6f 2d 64 65 70 65 6e 64 73 2d 6f 6e 20 28 73 79 73 74 65 6d 2d 6e 61 6d 65 29 0a 20 20 28 | who-depends-on.(system-name)...( |
| 7cf00 | 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 | interactive.(list.(slime-read-sy |
| 7cf20 | 73 74 65 6d 2d 6e 61 6d 65 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 78 72 65 66 20 3a 64 65 70 65 | stem-name)))...(slime-xref.:depe |
| 7cf40 | 6e 64 73 2d 6f 6e 20 73 79 73 74 65 6d 2d 6e 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | nds-on.system-name))..(defun.sli |
| 7cf60 | 6d 65 2d 73 61 76 65 2d 73 79 73 74 65 6d 20 28 73 79 73 74 65 6d 29 0a 20 20 22 53 61 76 65 20 | me-save-system.(system)..."Save. |
| 7cf80 | 66 69 6c 65 73 20 62 65 6c 6f 6e 67 69 6e 67 20 74 6f 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 | files.belonging.to.an.ASDF.syste |
| 7cfa0 | 6d 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d | m."...(interactive.(list.(slime- |
| 7cfc0 | 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 | read-system-name)))...(slime-eva |
| 7cfe0 | 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 60 28 73 77 61 6e 6b 3a 61 73 64 66 2d 73 79 73 74 65 | l-async.......`(swank:asdf-syste |
| 7d000 | 6d 2d 66 69 6c 65 73 20 2c 73 79 73 74 65 6d 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 66 69 | m-files.,system).....(lambda.(fi |
| 7d020 | 6c 65 73 29 0a 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 66 69 6c 65 20 66 69 6c 65 73 29 0a | les).......(dolist.(file.files). |
| 7d040 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 67 65 74 2d 66 69 6c 65 2d | ........(let.((buffer.(get-file- |
| 7d060 | 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 66 72 6f 6d 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 | buffer.(slime-from-lisp-filename |
| 7d080 | 20 66 69 6c 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 62 75 66 66 65 72 | .file))))...........(when.buffer |
| 7d0a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | .............(with-current-buffe |
| 7d0c0 | 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 62 75 66 | r.buffer...............(save-buf |
| 7d0e0 | 66 65 72 20 62 75 66 66 65 72 29 29 29 29 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 | fer.buffer))))).......(message." |
| 7d100 | 44 6f 6e 65 2e 22 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 52 45 50 4c 20 73 68 6f 72 74 63 75 74 73 | Done."))))....;;;.REPL.shortcuts |
| 7d120 | 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d | ..(defslime-repl-shortcut.slime- |
| 7d140 | 72 65 70 6c 2d 6c 6f 61 64 2f 66 6f 72 63 65 2d 73 79 73 74 65 6d 20 28 22 66 6f 72 63 65 2d 6c | repl-load/force-system.("force-l |
| 7d160 | 6f 61 64 2d 73 79 73 74 65 6d 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 28 6c 61 6d 62 64 61 | oad-system")...(:handler.(lambda |
| 7d180 | 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a | .()...............(interactive). |
| 7d1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6f 6f 73 20 28 73 6c 69 6d 65 2d | ..............(slime-oos.(slime- |
| 7d1c0 | 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 29 20 27 6c 6f 61 64 2d 6f 70 20 3a 66 6f 72 63 | read-system-name).'load-op.:forc |
| 7d1e0 | 65 20 74 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 52 65 63 6f 6d 70 69 6c 65 20 | e.t)))...(:one-liner."Recompile. |
| 7d200 | 61 6e 64 20 6c 6f 61 64 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e 22 29 29 0a 0a 28 64 65 | and.load.an.ASDF.system."))..(de |
| 7d220 | 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | fslime-repl-shortcut.slime-repl- |
| 7d240 | 6c 6f 61 64 2d 73 79 73 74 65 6d 20 28 22 6c 6f 61 64 2d 73 79 73 74 65 6d 22 29 0a 20 20 28 3a | load-system.("load-system")...(: |
| 7d260 | 68 61 6e 64 6c 65 72 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | handler.(lambda.().............. |
| 7d280 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | .(interactive)...............(sl |
| 7d2a0 | 69 6d 65 2d 6f 6f 73 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 29 | ime-oos.(slime-read-system-name) |
| 7d2c0 | 20 27 6c 6f 61 64 2d 6f 70 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 43 6f 6d 70 | .'load-op)))...(:one-liner."Comp |
| 7d2e0 | 69 6c 65 20 28 61 73 20 6e 65 65 64 65 64 29 20 61 6e 64 20 6c 6f 61 64 20 61 6e 20 41 53 44 46 | ile.(as.needed).and.load.an.ASDF |
| 7d300 | 20 73 79 73 74 65 6d 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 | .system."))..(defslime-repl-shor |
| 7d320 | 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 74 65 73 74 2f 66 6f 72 63 65 2d 73 79 73 74 65 | tcut.slime-repl-test/force-syste |
| 7d340 | 6d 20 28 22 66 6f 72 63 65 2d 74 65 73 74 2d 73 79 73 74 65 6d 22 29 0a 20 20 28 3a 68 61 6e 64 | m.("force-test-system")...(:hand |
| 7d360 | 6c 65 72 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e | ler.(lambda.()...............(in |
| 7d380 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | teractive)...............(slime- |
| 7d3a0 | 6f 6f 73 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 29 20 27 74 65 | oos.(slime-read-system-name).'te |
| 7d3c0 | 73 74 2d 6f 70 20 3a 66 6f 72 63 65 20 74 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 | st-op.:force.t)))...(:one-liner. |
| 7d3e0 | 22 52 65 63 6f 6d 70 69 6c 65 20 61 6e 64 20 74 65 73 74 20 61 6e 20 41 53 44 46 20 73 79 73 74 | "Recompile.and.test.an.ASDF.syst |
| 7d400 | 65 6d 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 | em."))..(defslime-repl-shortcut. |
| 7d420 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 74 65 73 74 2d 73 79 73 74 65 6d 20 28 22 74 65 73 74 2d 73 79 | slime-repl-test-system.("test-sy |
| 7d440 | 73 74 65 6d 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 | stem")...(:handler.(lambda.()... |
| 7d460 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 | ............(interactive)....... |
| 7d480 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6f 6f 73 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 | ........(slime-oos.(slime-read-s |
| 7d4a0 | 79 73 74 65 6d 2d 6e 61 6d 65 29 20 27 74 65 73 74 2d 6f 70 29 29 29 0a 20 20 28 3a 6f 6e 65 2d | ystem-name).'test-op)))...(:one- |
| 7d4c0 | 6c 69 6e 65 72 20 22 43 6f 6d 70 69 6c 65 20 28 61 73 20 6e 65 65 64 65 64 29 20 61 6e 64 20 74 | liner."Compile.(as.needed).and.t |
| 7d4e0 | 65 73 74 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d | est.an.ASDF.system."))..(defslim |
| 7d500 | 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6f 6d 70 69 | e-repl-shortcut.slime-repl-compi |
| 7d520 | 6c 65 2d 73 79 73 74 65 6d 20 28 22 63 6f 6d 70 69 6c 65 2d 73 79 73 74 65 6d 22 29 0a 20 20 28 | le-system.("compile-system")...( |
| 7d540 | 3a 68 61 6e 64 6c 65 72 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | :handler.(lambda.()............. |
| 7d560 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ..(interactive)...............(s |
| 7d580 | 6c 69 6d 65 2d 6f 6f 73 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 | lime-oos.(slime-read-system-name |
| 7d5a0 | 29 20 27 63 6f 6d 70 69 6c 65 2d 6f 70 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 | ).'compile-op)))...(:one-liner." |
| 7d5c0 | 43 6f 6d 70 69 6c 65 20 28 62 75 74 20 6e 6f 74 20 6c 6f 61 64 29 20 61 6e 20 41 53 44 46 20 73 | Compile.(but.not.load).an.ASDF.s |
| 7d5e0 | 79 73 74 65 6d 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 | ystem."))..(defslime-repl-shortc |
| 7d600 | 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6f 6d 70 69 6c 65 2f 66 6f 72 63 65 2d 73 79 73 74 | ut.slime-repl-compile/force-syst |
| 7d620 | 65 6d 20 0a 20 20 28 22 66 6f 72 63 65 2d 63 6f 6d 70 69 6c 65 2d 73 79 73 74 65 6d 22 29 20 20 | em....("force-compile-system").. |
| 7d640 | 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 | ...(:handler.(lambda.()......... |
| 7d660 | 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(interactive)............. |
| 7d680 | 20 20 28 73 6c 69 6d 65 2d 6f 6f 73 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 73 74 65 6d 2d | ..(slime-oos.(slime-read-system- |
| 7d6a0 | 6e 61 6d 65 29 20 27 63 6f 6d 70 69 6c 65 2d 6f 70 20 3a 66 6f 72 63 65 20 74 29 29 29 0a 20 20 | name).'compile-op.:force.t)))... |
| 7d6c0 | 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 52 65 63 6f 6d 70 69 6c 65 20 28 62 75 74 20 6e 6f 74 20 | (:one-liner."Recompile.(but.not. |
| 7d6e0 | 63 6f 6d 70 6c 65 74 65 6c 79 20 6c 6f 61 64 29 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e | completely.load).an.ASDF.system. |
| 7d700 | 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 | "))..(defslime-repl-shortcut.sli |
| 7d720 | 6d 65 2d 72 65 70 6c 2d 6f 70 65 6e 2d 73 79 73 74 65 6d 20 28 22 6f 70 65 6e 2d 73 79 73 74 65 | me-repl-open-system.("open-syste |
| 7d740 | 6d 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 27 73 6c 69 6d 65 2d 6f 70 65 6e 2d 73 79 73 74 | m")...(:handler.'slime-open-syst |
| 7d760 | 65 6d 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 4f 70 65 6e 20 61 6c 6c 20 66 69 6c 65 | em)...(:one-liner."Open.all.file |
| 7d780 | 73 20 69 6e 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 | s.in.an.ASDF.system."))..(defsli |
| 7d7a0 | 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 72 6f 77 | me-repl-shortcut.slime-repl-brow |
| 7d7c0 | 73 65 2d 73 79 73 74 65 6d 20 28 22 62 72 6f 77 73 65 2d 73 79 73 74 65 6d 22 29 0a 20 20 28 3a | se-system.("browse-system")...(: |
| 7d7e0 | 68 61 6e 64 6c 65 72 20 27 73 6c 69 6d 65 2d 62 72 6f 77 73 65 2d 73 79 73 74 65 6d 29 0a 20 20 | handler.'slime-browse-system)... |
| 7d800 | 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 42 72 6f 77 73 65 20 66 69 6c 65 73 20 69 6e 20 61 6e 20 | (:one-liner."Browse.files.in.an. |
| 7d820 | 41 53 44 46 20 73 79 73 74 65 6d 20 75 73 69 6e 67 20 44 69 72 65 64 2e 22 29 29 0a 0a 28 64 65 | ASDF.system.using.Dired."))..(de |
| 7d840 | 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | fslime-repl-shortcut.slime-repl- |
| 7d860 | 64 65 6c 65 74 65 2d 73 79 73 74 65 6d 2d 66 61 73 6c 73 20 28 22 64 65 6c 65 74 65 2d 73 79 73 | delete-system-fasls.("delete-sys |
| 7d880 | 74 65 6d 2d 66 61 73 6c 73 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 27 73 6c 69 6d 65 2d 64 | tem-fasls")...(:handler.'slime-d |
| 7d8a0 | 65 6c 65 74 65 2d 73 79 73 74 65 6d 2d 66 61 73 6c 73 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 | elete-system-fasls)...(:one-line |
| 7d8c0 | 72 20 22 44 65 6c 65 74 65 20 46 41 53 4c 73 20 6f 66 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 | r."Delete.FASLs.of.an.ASDF.syste |
| 7d8e0 | 6d 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 | m."))..(defslime-repl-shortcut.s |
| 7d900 | 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 6c 6f 61 64 2d 73 79 73 74 65 6d 20 28 22 72 65 6c 6f 61 64 | lime-repl-reload-system.("reload |
| 7d920 | 2d 73 79 73 74 65 6d 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 27 73 6c 69 6d 65 2d 72 65 6c | -system")...(:handler.'slime-rel |
| 7d940 | 6f 61 64 2d 73 79 73 74 65 6d 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 52 65 63 6f 6d | oad-system)...(:one-liner."Recom |
| 7d960 | 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e 22 29 29 | pile.and.load.an.ASDF.system.")) |
| 7d980 | 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 61 73 64 66 29 0a 00 00 00 00 00 00 00 00 | ..(provide.'slime-asdf)......... |
| 7d9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7d9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7d9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7da00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 73 63 68 65 6d 65 2e | slime-2.31/contrib/slime-scheme. |
| 7da20 | 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | el.............................. |
| 7da40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7da60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 7da80 | 30 30 30 32 33 37 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 35 35 30 00 20 30 00 00 00 | 0002372.00000000000.015550..0... |
| 7daa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7dac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7dae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7db00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 7db20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 7db40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7db60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7db80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7dba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7dbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7dbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7dc00 | 3b 3b 3b 20 73 6c 69 6d 65 2d 73 63 68 65 6d 65 2e 65 6c 20 2d 2d 2d 20 53 75 70 70 6f 72 74 20 | ;;;.slime-scheme.el.---.Support. |
| 7dc20 | 53 63 68 65 6d 65 20 70 72 6f 67 72 61 6d 73 20 72 75 6e 6e 69 6e 67 20 75 6e 64 65 72 20 43 6f | Scheme.programs.running.under.Co |
| 7dc40 | 6d 6d 6f 6e 20 4c 69 73 70 0a 3b 3b 0a 3b 3b 20 41 75 74 68 6f 72 73 3a 20 4d 61 74 74 68 69 61 | mmon.Lisp.;;.;;.Authors:.Matthia |
| 7dc60 | 73 20 4b 6f 65 70 70 65 20 20 3c 6d 6b 6f 65 70 70 65 40 6d 61 69 6c 2e 6d 61 74 68 2e 75 6e 69 | s.Koeppe..<mkoeppe@mail.math.uni |
| 7dc80 | 2d 6d 61 67 64 65 62 75 72 67 2e 64 65 3e 0a 3b 3b 20 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 47 | -magdeburg.de>.;;..;;.License:.G |
| 7dca0 | 4e 55 20 47 50 4c 20 28 73 61 6d 65 20 6c 69 63 65 6e 73 65 20 61 73 20 45 6d 61 63 73 29 0a 3b | NU.GPL.(same.license.as.Emacs).; |
| 7dcc0 | 3b 0a 3b 3b 3b 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 3a 0a 3b 3b 0a 3b 3b 20 41 64 64 20 74 68 | ;.;;;.Installation:.;;.;;.Add.th |
| 7dce0 | 69 73 20 74 6f 20 79 6f 75 72 20 2e 65 6d 61 63 73 3a 20 0a 3b 3b 0a 3b 3b 20 20 20 28 61 64 64 | is.to.your..emacs:..;;.;;...(add |
| 7dd00 | 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f 61 64 2d 70 61 74 68 20 22 3c 64 69 72 65 63 74 6f 72 79 2d | -to-list.'load-path."<directory- |
| 7dd20 | 6f 66 2d 74 68 69 73 2d 66 69 6c 65 3e 22 29 0a 3b 3b 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 | of-this-file>").;;...(add-hook.' |
| 7dd40 | 73 6c 69 6d 65 2d 6c 6f 61 64 2d 68 6f 6f 6b 20 28 6c 61 6d 62 64 61 20 28 29 20 28 72 65 71 75 | slime-load-hook.(lambda.().(requ |
| 7dd60 | 69 72 65 20 27 73 6c 69 6d 65 2d 73 63 68 65 6d 65 29 29 29 0a 3b 3b 0a 28 65 76 61 6c 2d 61 6e | ire.'slime-scheme))).;;.(eval-an |
| 7dd80 | 64 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 29 0a 0a 28 | d-compile...(require.'slime))..( |
| 7dda0 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 28 29 0a | defun.slime-scheme-mode-hook.(). |
| 7ddc0 | 20 20 28 73 6c 69 6d 65 2d 6d 6f 64 65 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | ..(slime-mode.1))..(defun.slime- |
| 7dde0 | 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 65 20 28 73 79 6d 62 6f | scheme-indentation-update.(symbo |
| 7de00 | 6c 20 69 6e 64 65 6e 74 20 70 61 63 6b 61 67 65 73 29 0a 20 20 3b 3b 20 44 6f 65 73 20 74 68 65 | l.indent.packages)...;;.Does.the |
| 7de20 | 20 73 79 6d 62 6f 6c 20 68 61 76 65 20 61 6e 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 76 61 6c 75 | .symbol.have.an.indentation.valu |
| 7de40 | 65 20 74 68 61 74 20 77 65 20 73 65 74 3f 0a 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 28 67 | e.that.we.set?...(when.(equal.(g |
| 7de60 | 65 74 20 73 79 6d 62 6f 6c 20 27 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f | et.symbol.'scheme-indent-functio |
| 7de80 | 6e 29 0a 09 20 20 20 20 20 20 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 27 73 6c 69 6d 65 2d 73 63 | n).........(get.symbol.'slime-sc |
| 7dea0 | 68 65 6d 65 2d 69 6e 64 65 6e 74 29 29 0a 20 20 20 20 28 70 75 74 20 73 79 6d 62 6f 6c 20 27 73 | heme-indent)).....(put.symbol.'s |
| 7dec0 | 6c 69 6d 65 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 20 69 6e 64 65 6e 74 29 0a 20 20 20 20 28 | lime-scheme-indent.indent).....( |
| 7dee0 | 70 75 74 20 73 79 6d 62 6f 6c 20 27 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 | put.symbol.'scheme-indent-functi |
| 7df00 | 6f 6e 20 69 6e 64 65 6e 74 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 49 6e 69 74 69 61 6c 69 7a 61 74 69 | on.indent)))....;;;.Initializati |
| 7df20 | 6f 6e 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 63 68 65 6d 65 2d 69 6e 69 74 20 28 29 0a | on..(defun.slime-scheme-init.(). |
| 7df40 | 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 | ..(add-hook.'scheme-mode-hook.'s |
| 7df60 | 6c 69 6d 65 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 0a 20 20 28 61 64 64 2d 68 6f | lime-scheme-mode-hook)...(add-ho |
| 7df80 | 6f 6b 20 27 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 65 2d 68 6f 6f | ok.'slime-indentation-update-hoo |
| 7dfa0 | 6b 73 20 27 73 6c 69 6d 65 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 | ks.'slime-scheme-indentation-upd |
| 7dfc0 | 61 74 65 29 0a 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 73 6c 69 6d 65 2d 6c 69 73 70 2d | ate)...(add-to-list.'slime-lisp- |
| 7dfe0 | 6d 6f 64 65 73 20 27 73 63 68 65 6d 65 2d 6d 6f 64 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | modes.'scheme-mode))..(defun.sli |
| 7e000 | 6d 65 2d 73 63 68 65 6d 65 2d 75 6e 6c 6f 61 64 20 28 29 0a 20 20 28 72 65 6d 6f 76 65 2d 68 6f | me-scheme-unload.()...(remove-ho |
| 7e020 | 6f 6b 20 27 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 73 63 68 65 | ok.'scheme-mode-hook.'slime-sche |
| 7e040 | 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 0a 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 73 6c | me-mode-hook)...(remove-hook.'sl |
| 7e060 | 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 65 2d 68 6f 6f 6b 73 20 27 73 6c | ime-indentation-update-hooks.'sl |
| 7e080 | 69 6d 65 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 65 29 0a 20 | ime-scheme-indentation-update).. |
| 7e0a0 | 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 65 73 20 28 72 65 6d 6f 76 65 20 | .(setq.slime-lisp-modes.(remove. |
| 7e0c0 | 27 73 63 68 65 6d 65 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 65 73 29 29 29 | 'scheme-mode.slime-lisp-modes))) |
| 7e0e0 | 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 73 63 68 65 6d 65 29 0a 00 00 00 00 00 00 | ..(provide.'slime-scheme)....... |
| 7e100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 72 36 72 73 2e 73 63 | slime-2.31/contrib/swank-r6rs.sc |
| 7e220 | 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | m............................... |
| 7e240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 7e280 | 30 30 32 37 37 36 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 30 37 00 20 30 00 00 00 | 0027763.00000000000.015407..0... |
| 7e2a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e2c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 7e320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 7e340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7e400 | 3b 3b 20 73 77 61 6e 6b 2d 72 36 72 73 2e 73 6c 73 20 2d 2d 2d 20 53 68 61 72 65 61 62 6c 65 20 | ;;.swank-r6rs.sls.---.Shareable. |
| 7e420 | 63 6f 64 65 20 62 65 74 77 65 65 6e 20 73 77 61 6e 6b 2d 69 6b 61 72 75 73 20 61 6e 64 20 73 77 | code.between.swank-ikarus.and.sw |
| 7e440 | 61 6e 6b 2d 6c 61 72 63 65 6e 79 0a 3b 3b 0a 3b 3b 20 4c 69 63 65 6e 63 65 3a 20 70 75 62 6c 69 | ank-larceny.;;.;;.Licence:.publi |
| 7e460 | 63 20 64 6f 6d 61 69 6e 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 | c.domain.;;.Author:.Helmut.Eller |
| 7e480 | 0a 3b 3b 0a 3b 3b 20 54 68 69 73 20 69 73 20 61 20 53 77 61 6e 6b 20 73 65 72 76 65 72 20 62 61 | .;;.;;.This.is.a.Swank.server.ba |
| 7e4a0 | 72 65 6c 79 20 63 61 70 61 62 6c 65 20 65 6e 6f 75 67 68 20 74 6f 20 70 72 6f 63 65 73 73 20 73 | rely.capable.enough.to.process.s |
| 7e4c0 | 69 6d 70 6c 65 20 65 76 61 6c 0a 3b 3b 20 72 65 71 75 65 73 74 73 20 66 72 6f 6d 20 45 6d 61 63 | imple.eval.;;.requests.from.Emac |
| 7e4e0 | 73 20 62 65 66 6f 72 65 20 64 79 69 6e 67 2e 20 20 4e 6f 20 66 61 6e 63 79 20 66 65 61 74 75 72 | s.before.dying...No.fancy.featur |
| 7e500 | 65 73 20 6c 69 6b 65 0a 3b 3b 20 62 61 63 6b 74 72 61 63 65 73 2c 20 6d 6f 64 75 6c 65 20 72 65 | es.like.;;.backtraces,.module.re |
| 7e520 | 64 65 66 69 6e 74 69 6f 6e 2c 20 4d 2d 2e 20 65 74 63 2e 20 61 72 65 20 69 6d 70 6c 65 6d 65 6e | defintion,.M-..etc..are.implemen |
| 7e540 | 74 65 64 2e 20 20 44 6f 6e 27 74 0a 3b 3b 20 65 76 65 6e 20 74 68 69 6e 6b 20 61 62 6f 75 74 20 | ted...Don't.;;.even.think.about. |
| 7e560 | 70 63 2d 74 6f 2d 73 6f 75 72 63 65 20 6d 61 70 70 69 6e 67 2e 0a 3b 3b 0a 3b 3b 20 44 65 73 70 | pc-to-source.mapping..;;.;;.Desp |
| 7e580 | 69 74 65 20 73 74 61 6e 64 61 72 64 20 6d 6f 64 75 6c 65 73 2c 20 74 68 69 73 20 66 69 6c 65 20 | ite.standard.modules,.this.file. |
| 7e5a0 | 75 73 65 73 20 28 73 77 61 6e 6b 20 6f 73 29 20 61 6e 64 20 28 73 77 61 6e 6b 20 73 79 73 29 0a | uses.(swank.os).and.(swank.sys). |
| 7e5c0 | 3b 3b 20 77 68 69 63 68 20 64 65 66 69 6e 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 | ;;.which.define.implementation.d |
| 7e5e0 | 65 70 65 6e 64 65 6e 64 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 2e 20 20 54 68 65 72 65 20 61 | ependend.functionality...There.a |
| 7e600 | 72 65 0a 3b 3b 20 6d 75 6c 74 69 70 6c 65 20 6d 6f 64 75 6c 65 73 20 69 6e 20 74 68 69 73 20 66 | re.;;.multiple.modules.in.this.f |
| 7e620 | 69 6c 65 73 2c 20 77 68 69 63 68 20 69 73 20 70 72 6f 62 61 62 6c 79 20 6e 6f 74 20 73 74 61 6e | iles,.which.is.probably.not.stan |
| 7e640 | 64 61 72 64 69 7a 65 64 2e 0a 3b 3b 0a 0a 3b 3b 20 4e 61 69 76 65 20 46 4f 52 4d 41 54 20 69 6d | dardized..;;..;;.Naive.FORMAT.im |
| 7e660 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 68 69 63 68 20 73 75 70 70 6f 72 74 73 3a 20 7e 61 20 | plementation.which.supports:.~a. |
| 7e680 | 7e 73 20 7e 64 20 7e 78 20 7e 63 0a 28 6c 69 62 72 61 72 79 20 28 73 77 61 6e 6b 20 66 6f 72 6d | ~s.~d.~x.~c.(library.(swank.form |
| 7e6a0 | 61 74 29 0a 20 20 20 20 28 65 78 70 6f 72 74 20 66 6f 72 6d 61 74 20 70 72 69 6e 74 66 20 66 70 | at).....(export.format.printf.fp |
| 7e6c0 | 72 69 6e 74 66 29 0a 20 20 20 20 28 69 6d 70 6f 72 74 20 28 72 6e 72 73 29 29 0a 0a 20 28 64 65 | rintf).....(import.(rnrs))...(de |
| 7e6e0 | 66 69 6e 65 20 28 66 6f 72 6d 61 74 20 66 20 2e 20 61 72 67 73 29 0a 20 20 20 28 63 61 6c 6c 2d | fine.(format.f...args)....(call- |
| 7e700 | 77 69 74 68 2d 73 74 72 69 6e 67 2d 6f 75 74 70 75 74 2d 70 6f 72 74 0a 20 20 20 20 28 6c 61 6d | with-string-output-port.....(lam |
| 7e720 | 62 64 61 20 28 70 6f 72 74 29 20 28 61 70 70 6c 79 20 66 70 72 69 6e 74 66 20 70 6f 72 74 20 66 | bda.(port).(apply.fprintf.port.f |
| 7e740 | 20 61 72 67 73 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 70 72 69 6e 74 66 20 66 20 2e 20 | .args))))...(define.(printf.f... |
| 7e760 | 61 72 67 73 29 0a 20 20 20 28 6c 65 74 20 28 28 70 6f 72 74 20 28 63 75 72 72 65 6e 74 2d 6f 75 | args)....(let.((port.(current-ou |
| 7e780 | 74 70 75 74 2d 70 6f 72 74 29 29 29 0a 20 20 20 20 20 28 61 70 70 6c 79 20 66 70 72 69 6e 74 66 | tput-port)))......(apply.fprintf |
| 7e7a0 | 20 70 6f 72 74 20 66 20 61 72 67 73 29 0a 20 20 20 20 20 28 66 6c 75 73 68 2d 6f 75 74 70 75 74 | .port.f.args)......(flush-output |
| 7e7c0 | 2d 70 6f 72 74 20 70 6f 72 74 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 66 70 72 69 6e 74 66 | -port.port)))...(define.(fprintf |
| 7e7e0 | 20 70 6f 72 74 20 66 20 2e 20 61 72 67 73 29 0a 20 20 20 28 6c 65 74 20 28 28 6c 65 6e 20 28 73 | .port.f...args)....(let.((len.(s |
| 7e800 | 74 72 69 6e 67 2d 6c 65 6e 67 74 68 20 66 29 29 29 0a 20 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 | tring-length.f)))......(let.loop |
| 7e820 | 20 28 28 69 20 30 29 20 28 61 72 67 73 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 28 63 6f 6e | .((i.0).(args.args))........(con |
| 7e840 | 64 20 28 28 3d 20 69 20 6c 65 6e 29 20 28 61 73 73 65 72 74 20 28 6e 75 6c 6c 3f 20 61 72 67 73 | d.((=.i.len).(assert.(null?.args |
| 7e860 | 29 29 29 0a 09 20 20 20 20 20 28 28 61 6e 64 20 28 63 68 61 72 3d 3f 20 28 73 74 72 69 6e 67 2d | ))).......((and.(char=?.(string- |
| 7e880 | 72 65 66 20 66 20 69 29 20 23 5c 7e 29 0a 09 09 20 20 20 28 3c 20 28 2b 20 69 20 31 29 20 6c 65 | ref.f.i).#\~)......(<.(+.i.1).le |
| 7e8a0 | 6e 29 29 0a 09 20 20 20 20 20 20 28 64 69 73 70 61 74 63 68 2d 66 6f 72 6d 61 74 20 28 73 74 72 | n))........(dispatch-format.(str |
| 7e8c0 | 69 6e 67 2d 72 65 66 20 66 20 28 2b 20 69 20 31 29 29 20 70 6f 72 74 20 28 63 61 72 20 61 72 67 | ing-ref.f.(+.i.1)).port.(car.arg |
| 7e8e0 | 73 29 29 0a 09 20 20 20 20 20 20 28 6c 6f 6f 70 20 28 2b 20 69 20 32 29 20 28 63 64 72 20 61 72 | s))........(loop.(+.i.2).(cdr.ar |
| 7e900 | 67 73 29 29 29 0a 09 20 20 20 20 20 28 65 6c 73 65 0a 09 20 20 20 20 20 20 28 70 75 74 2d 63 68 | gs))).......(else........(put-ch |
| 7e920 | 61 72 20 70 6f 72 74 20 28 73 74 72 69 6e 67 2d 72 65 66 20 66 20 69 29 29 0a 09 20 20 20 20 20 | ar.port.(string-ref.f.i))....... |
| 7e940 | 20 28 6c 6f 6f 70 20 28 2b 20 69 20 31 29 20 61 72 67 73 29 29 29 29 29 29 0a 20 0a 20 28 64 65 | .(loop.(+.i.1).args))))))....(de |
| 7e960 | 66 69 6e 65 20 28 64 69 73 70 61 74 63 68 2d 66 6f 72 6d 61 74 20 63 68 61 72 20 70 6f 72 74 20 | fine.(dispatch-format.char.port. |
| 7e980 | 61 72 67 29 0a 20 20 20 28 6c 65 74 20 28 28 70 72 6f 62 65 20 28 61 73 73 6f 63 20 63 68 61 72 | arg)....(let.((probe.(assoc.char |
| 7e9a0 | 20 66 6f 72 6d 61 74 2d 64 69 73 70 61 74 63 68 2d 74 61 62 6c 65 29 29 29 0a 20 20 20 20 20 28 | .format-dispatch-table)))......( |
| 7e9c0 | 63 6f 6e 64 20 28 70 72 6f 62 65 20 28 28 63 64 72 20 70 72 6f 62 65 29 20 61 72 67 20 70 6f 72 | cond.(probe.((cdr.probe).arg.por |
| 7e9e0 | 74 29 29 0a 09 20 20 20 28 65 6c 73 65 20 28 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 66 6f | t)).....(else.(error."invalid.fo |
| 7ea00 | 72 6d 61 74 20 63 68 61 72 3a 20 22 20 63 68 61 72 29 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 | rmat.char:.".char)))))...(define |
| 7ea20 | 20 66 6f 72 6d 61 74 2d 64 69 73 70 61 74 63 68 2d 74 61 62 6c 65 20 0a 20 20 20 60 28 28 23 5c | .format-dispatch-table.....`((#\ |
| 7ea40 | 61 20 2e 20 2c 64 69 73 70 6c 61 79 29 0a 20 20 20 20 20 28 23 5c 73 20 2e 20 2c 77 72 69 74 65 | a...,display)......(#\s...,write |
| 7ea60 | 29 0a 20 20 20 20 20 28 23 5c 64 20 2e 20 2c 28 6c 61 6d 62 64 61 20 28 61 72 67 20 70 6f 72 74 | )......(#\d...,(lambda.(arg.port |
| 7ea80 | 29 20 28 70 75 74 2d 73 74 72 69 6e 67 20 70 6f 72 74 20 28 6e 75 6d 62 65 72 2d 3e 73 74 72 69 | ).(put-string.port.(number->stri |
| 7eaa0 | 6e 67 20 61 72 67 20 31 30 29 29 29 29 0a 20 20 20 20 20 28 23 5c 78 20 2e 20 2c 28 6c 61 6d 62 | ng.arg.10))))......(#\x...,(lamb |
| 7eac0 | 64 61 20 28 61 72 67 20 70 6f 72 74 29 20 28 70 75 74 2d 73 74 72 69 6e 67 20 70 6f 72 74 20 28 | da.(arg.port).(put-string.port.( |
| 7eae0 | 6e 75 6d 62 65 72 2d 3e 73 74 72 69 6e 67 20 61 72 67 20 31 36 29 29 29 29 0a 20 20 20 20 20 28 | number->string.arg.16))))......( |
| 7eb00 | 23 5c 63 20 2e 20 2c 28 6c 61 6d 62 64 61 20 28 61 72 67 20 70 6f 72 74 29 20 28 70 75 74 2d 63 | #\c...,(lambda.(arg.port).(put-c |
| 7eb20 | 68 61 72 20 70 6f 72 74 20 61 72 67 29 29 29 29 29 29 0a 0a 0a 3b 3b 20 43 4c 2d 73 74 79 6c 65 | har.port.arg))))))...;;.CL-style |
| 7eb40 | 20 72 65 73 74 61 72 74 73 20 74 6f 20 6c 65 74 20 75 73 20 63 6f 6e 74 69 6e 75 65 20 61 66 74 | .restarts.to.let.us.continue.aft |
| 7eb60 | 65 72 20 65 72 72 6f 72 73 2e 0a 28 6c 69 62 72 61 72 79 20 28 73 77 61 6e 6b 20 72 65 73 74 61 | er.errors..(library.(swank.resta |
| 7eb80 | 72 74 73 29 0a 20 20 20 20 28 65 78 70 6f 72 74 20 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 65 73 | rts).....(export.with-simple-res |
| 7eba0 | 74 61 72 74 20 63 6f 6d 70 75 74 65 2d 72 65 73 74 61 72 74 73 20 69 6e 76 6f 6b 65 2d 72 65 73 | tart.compute-restarts.invoke-res |
| 7ebc0 | 74 61 72 74 20 72 65 73 74 61 72 74 2d 6e 61 6d 65 0a 09 20 20 20 20 77 72 69 74 65 2d 72 65 73 | tart.restart-name......write-res |
| 7ebe0 | 74 61 72 74 2d 72 65 70 6f 72 74 29 0a 20 20 20 20 28 69 6d 70 6f 72 74 20 28 72 6e 72 73 29 29 | tart-report).....(import.(rnrs)) |
| 7ec00 | 0a 0a 20 28 64 65 66 69 6e 65 20 2a 72 65 73 74 61 72 74 73 2a 20 27 28 29 29 0a 0a 20 28 64 65 | ...(define.*restarts*.'())...(de |
| 7ec20 | 66 69 6e 65 2d 72 65 63 6f 72 64 2d 74 79 70 65 20 72 65 73 74 61 72 74 0a 20 20 20 28 66 69 65 | fine-record-type.restart....(fie |
| 7ec40 | 6c 64 73 20 6e 61 6d 65 20 72 65 70 6f 72 74 65 72 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 29 | lds.name.reporter.continuation)) |
| 7ec60 | 0a 20 0a 20 28 64 65 66 69 6e 65 20 28 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 | ....(define.(with-simple-restart |
| 7ec80 | 20 6e 61 6d 65 20 72 65 70 6f 72 74 65 72 20 74 68 75 6e 6b 29 0a 20 20 20 28 63 61 6c 6c 2f 63 | .name.reporter.thunk)....(call/c |
| 7eca0 | 63 20 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6b 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 | c......(lambda.(k).......(let.(( |
| 7ecc0 | 6f 6c 64 2d 72 65 73 74 61 72 74 73 20 2a 72 65 73 74 61 72 74 73 2a 29 0a 09 20 20 20 20 28 72 | old-restarts.*restarts*)......(r |
| 7ece0 | 65 73 74 61 72 74 20 28 6d 61 6b 65 2d 72 65 73 74 61 72 74 20 6e 61 6d 65 20 28 63 6f 65 72 63 | estart.(make-restart.name.(coerc |
| 7ed00 | 65 2d 74 6f 2d 72 65 70 6f 72 74 65 72 20 72 65 70 6f 72 74 65 72 29 20 6b 29 29 29 0a 09 28 64 | e-to-reporter.reporter).k)))..(d |
| 7ed20 | 79 6e 61 6d 69 63 2d 77 69 6e 64 0a 09 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 73 65 74 | ynamic-wind......(lambda.().(set |
| 7ed40 | 21 20 2a 72 65 73 74 61 72 74 73 2a 20 28 63 6f 6e 73 20 72 65 73 74 61 72 74 20 6f 6c 64 2d 72 | !.*restarts*.(cons.restart.old-r |
| 7ed60 | 65 73 74 61 72 74 73 29 29 29 0a 09 20 20 20 20 74 68 75 6e 6b 0a 09 20 20 20 20 28 6c 61 6d 62 | estarts)))......thunk......(lamb |
| 7ed80 | 64 61 20 28 29 20 28 73 65 74 21 20 2a 72 65 73 74 61 72 74 73 2a 20 6f 6c 64 2d 72 65 73 74 61 | da.().(set!.*restarts*.old-resta |
| 7eda0 | 72 74 73 29 29 29 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 63 6f 6d 70 75 74 65 2d 72 65 | rts)))))))...(define.(compute-re |
| 7edc0 | 73 74 61 72 74 73 29 20 2a 72 65 73 74 61 72 74 73 2a 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 69 | starts).*restarts*)...(define.(i |
| 7ede0 | 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 72 65 73 74 61 72 74 20 2e 20 61 72 67 73 29 0a 20 20 | nvoke-restart.restart...args)... |
| 7ee00 | 20 28 61 70 70 6c 79 20 28 72 65 73 74 61 72 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 72 65 | .(apply.(restart-continuation.re |
| 7ee20 | 73 74 61 72 74 29 20 61 72 67 73 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 77 72 69 74 65 2d 72 | start).args))...(define.(write-r |
| 7ee40 | 65 73 74 61 72 74 2d 72 65 70 6f 72 74 20 72 65 73 74 61 72 74 20 70 6f 72 74 29 0a 20 20 20 28 | estart-report.restart.port)....( |
| 7ee60 | 28 72 65 73 74 61 72 74 2d 72 65 70 6f 72 74 65 72 20 72 65 73 74 61 72 74 29 20 70 6f 72 74 29 | (restart-reporter.restart).port) |
| 7ee80 | 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 63 6f 65 72 63 65 2d 74 6f 2d 72 65 70 6f 72 74 65 72 20 | )...(define.(coerce-to-reporter. |
| 7eea0 | 6f 62 6a 29 0a 20 20 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 3f 20 6f 62 6a 29 20 28 6c 61 | obj)....(cond.((string?.obj).(la |
| 7eec0 | 6d 62 64 61 20 28 70 6f 72 74 29 20 28 70 75 74 2d 73 74 72 69 6e 67 20 70 6f 72 74 20 6f 62 6a | mbda.(port).(put-string.port.obj |
| 7eee0 | 29 29 29 0a 09 20 28 23 74 20 28 61 73 73 65 72 74 20 28 70 72 6f 63 65 64 75 72 65 3f 20 6f 62 | )))...(#t.(assert.(procedure?.ob |
| 7ef00 | 6a 29 29 20 6f 62 6a 29 29 29 0a 0a 20 29 0a 0a 3b 3b 20 54 68 69 73 20 6d 6f 64 75 6c 65 20 65 | j)).obj)))...)..;;.This.module.e |
| 7ef20 | 6e 63 6f 64 65 73 20 26 20 64 65 63 6f 64 65 73 20 6d 65 73 73 61 67 65 73 20 66 72 6f 6d 20 74 | ncodes.&.decodes.messages.from.t |
| 7ef40 | 68 65 20 77 69 72 65 20 61 6e 64 20 71 75 65 75 65 73 20 74 68 65 6d 2e 0a 28 6c 69 62 72 61 72 | he.wire.and.queues.them..(librar |
| 7ef60 | 79 20 28 73 77 61 6e 6b 20 65 76 65 6e 74 2d 71 75 65 75 65 29 0a 20 20 20 20 28 65 78 70 6f 72 | y.(swank.event-queue).....(expor |
| 7ef80 | 74 20 6d 61 6b 65 2d 65 76 65 6e 74 2d 71 75 65 75 65 20 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e | t.make-event-queue.wait-for-even |
| 7efa0 | 74 20 65 6e 71 75 65 75 65 2d 65 76 65 6e 74 20 0a 09 20 20 20 20 72 65 61 64 2d 65 76 65 6e 74 | t.enqueue-event.......read-event |
| 7efc0 | 20 77 72 69 74 65 2d 65 76 65 6e 74 29 0a 20 20 20 20 28 69 6d 70 6f 72 74 20 28 72 6e 72 73 29 | .write-event).....(import.(rnrs) |
| 7efe0 | 0a 09 20 20 20 20 28 72 6e 72 73 20 6d 75 74 61 62 6c 65 2d 70 61 69 72 73 29 0a 09 20 20 20 20 | ......(rnrs.mutable-pairs)...... |
| 7f000 | 28 73 77 61 6e 6b 20 66 6f 72 6d 61 74 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 72 65 63 6f 72 64 | (swank.format))...(define-record |
| 7f020 | 2d 74 79 70 65 20 65 76 65 6e 74 2d 71 75 65 75 65 0a 20 20 20 28 66 69 65 6c 64 73 20 28 6d 75 | -type.event-queue....(fields.(mu |
| 7f040 | 74 61 62 6c 65 20 71 29 20 77 61 69 74 2d 66 75 6e 29 0a 20 20 20 28 70 72 6f 74 6f 63 6f 6c 20 | table.q).wait-fun)....(protocol. |
| 7f060 | 28 6c 61 6d 62 64 61 20 28 69 6e 69 74 29 0a 09 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | (lambda.(init).........(lambda.( |
| 7f080 | 77 61 69 74 2d 66 75 6e 29 0a 09 09 20 28 69 6e 69 74 20 27 28 29 20 77 61 69 74 2d 66 75 6e 29 | wait-fun)....(init.'().wait-fun) |
| 7f0a0 | 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 20 71 | ))))...(define.(wait-for-event.q |
| 7f0c0 | 20 70 61 74 74 65 72 6e 29 0a 20 20 20 28 6f 72 20 28 70 6f 6c 6c 20 71 20 70 61 74 74 65 72 6e | .pattern)....(or.(poll.q.pattern |
| 7f0e0 | 29 0a 20 20 20 20 20 20 20 28 62 65 67 69 6e 0a 09 20 28 28 65 76 65 6e 74 2d 71 75 65 75 65 2d | )........(begin...((event-queue- |
| 7f100 | 77 61 69 74 2d 66 75 6e 20 71 29 20 71 29 0a 09 20 28 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 | wait-fun.q).q)...(wait-for-event |
| 7f120 | 20 71 20 70 61 74 74 65 72 6e 29 29 29 29 0a 20 0a 20 28 64 65 66 69 6e 65 20 28 70 6f 6c 6c 20 | .q.pattern))))....(define.(poll. |
| 7f140 | 71 20 70 61 74 74 65 72 6e 29 0a 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 6c 61 67 20 23 66 | q.pattern)....(let.loop.((lag.#f |
| 7f160 | 29 0a 09 20 20 20 20 20 20 28 6c 20 28 65 76 65 6e 74 2d 71 75 65 75 65 2d 71 20 71 29 29 29 0a | )........(l.(event-queue-q.q))). |
| 7f180 | 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 6c 29 20 23 66 29 0a 09 20 20 20 28 28 | .....(cond.((null?.l).#f).....(( |
| 7f1a0 | 65 76 65 6e 74 2d 6d 61 74 63 68 3f 20 28 63 61 72 20 6c 29 20 70 61 74 74 65 72 6e 29 0a 09 20 | event-match?.(car.l).pattern)... |
| 7f1c0 | 20 20 20 28 63 6f 6e 64 20 28 6c 61 67 20 0a 09 09 20 20 20 28 73 65 74 2d 63 64 72 21 20 6c 61 | ...(cond.(lag.......(set-cdr!.la |
| 7f1e0 | 67 20 28 63 64 72 20 6c 29 29 0a 09 09 20 20 20 28 63 61 72 20 6c 29 29 0a 09 09 20 20 28 65 6c | g.(cdr.l))......(car.l)).....(el |
| 7f200 | 73 65 0a 09 09 20 20 20 28 65 76 65 6e 74 2d 71 75 65 75 65 2d 71 2d 73 65 74 21 20 71 20 28 63 | se......(event-queue-q-set!.q.(c |
| 7f220 | 64 72 20 6c 29 29 0a 09 09 20 20 20 28 63 61 72 20 6c 29 29 29 29 0a 09 20 20 20 28 65 6c 73 65 | dr.l))......(car.l)))).....(else |
| 7f240 | 20 28 6c 6f 6f 70 20 6c 20 28 63 64 72 20 6c 29 29 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 | .(loop.l.(cdr.l))))))...(define. |
| 7f260 | 28 65 76 65 6e 74 2d 6d 61 74 63 68 3f 20 65 76 65 6e 74 20 70 61 74 74 65 72 6e 29 0a 20 20 20 | (event-match?.event.pattern).... |
| 7f280 | 28 63 6f 6e 64 20 28 28 6f 72 20 28 6e 75 6d 62 65 72 3f 20 70 61 74 74 65 72 6e 29 0a 09 20 20 | (cond.((or.(number?.pattern).... |
| 7f2a0 | 20 20 20 20 28 6d 65 6d 62 65 72 20 70 61 74 74 65 72 6e 20 27 28 74 20 6e 69 6c 29 29 29 0a 09 | ....(member.pattern.'(t.nil))).. |
| 7f2c0 | 20 20 28 65 71 75 61 6c 3f 20 65 76 65 6e 74 20 70 61 74 74 65 72 6e 29 29 0a 09 20 28 28 73 79 | ..(equal?.event.pattern))...((sy |
| 7f2e0 | 6d 62 6f 6c 3f 20 70 61 74 74 65 72 6e 29 20 23 74 29 0a 09 20 28 28 70 61 69 72 3f 20 70 61 74 | mbol?.pattern).#t)...((pair?.pat |
| 7f300 | 74 65 72 6e 29 0a 09 20 20 28 63 61 73 65 20 28 63 61 72 20 70 61 74 74 65 72 6e 29 0a 09 20 20 | tern)....(case.(car.pattern).... |
| 7f320 | 20 20 28 28 71 75 6f 74 65 29 20 28 65 71 75 61 6c 3f 20 65 76 65 6e 74 20 28 63 61 64 72 20 70 | ..((quote).(equal?.event.(cadr.p |
| 7f340 | 61 74 74 65 72 6e 29 29 29 0a 09 20 20 20 20 28 28 6f 72 29 20 28 65 78 69 73 74 73 20 28 6c 61 | attern)))......((or).(exists.(la |
| 7f360 | 6d 62 64 61 20 28 70 29 20 28 65 76 65 6e 74 2d 6d 61 74 63 68 3f 20 65 76 65 6e 74 20 70 29 29 | mbda.(p).(event-match?.event.p)) |
| 7f380 | 20 28 63 64 72 20 70 61 74 74 65 72 6e 29 29 29 0a 09 20 20 20 20 28 65 6c 73 65 20 28 61 6e 64 | .(cdr.pattern)))......(else.(and |
| 7f3a0 | 20 28 70 61 69 72 3f 20 65 76 65 6e 74 29 0a 09 09 20 20 20 20 20 20 20 28 65 76 65 6e 74 2d 6d | .(pair?.event)..........(event-m |
| 7f3c0 | 61 74 63 68 3f 20 28 63 61 72 20 65 76 65 6e 74 29 20 28 63 61 72 20 70 61 74 74 65 72 6e 29 29 | atch?.(car.event).(car.pattern)) |
| 7f3e0 | 0a 09 09 20 20 20 20 20 20 20 28 65 76 65 6e 74 2d 6d 61 74 63 68 3f 20 28 63 64 72 20 65 76 65 | ..........(event-match?.(cdr.eve |
| 7f400 | 6e 74 29 20 28 63 64 72 20 70 61 74 74 65 72 6e 29 29 29 29 29 29 0a 09 20 28 65 6c 73 65 20 28 | nt).(cdr.pattern))))))...(else.( |
| 7f420 | 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 70 61 74 74 65 72 6e 3a 20 22 20 70 61 74 74 65 72 | error."Invalid.pattern:.".patter |
| 7f440 | 6e 29 29 29 29 0a 20 0a 20 28 64 65 66 69 6e 65 20 28 65 6e 71 75 65 75 65 2d 65 76 65 6e 74 20 | n))))....(define.(enqueue-event. |
| 7f460 | 71 20 65 76 65 6e 74 29 0a 20 20 20 28 65 76 65 6e 74 2d 71 75 65 75 65 2d 71 2d 73 65 74 21 20 | q.event)....(event-queue-q-set!. |
| 7f480 | 71 0a 09 09 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 65 76 65 6e 74 2d 71 75 65 75 65 2d | q..........(append.(event-queue- |
| 7f4a0 | 71 20 71 29 20 0a 09 09 09 20 20 20 20 20 20 20 28 6c 69 73 74 20 65 76 65 6e 74 29 29 29 29 0a | q.q)............(list.event)))). |
| 7f4c0 | 0a 20 28 64 65 66 69 6e 65 20 28 77 72 69 74 65 2d 65 76 65 6e 74 20 65 76 65 6e 74 20 70 6f 72 | ..(define.(write-event.event.por |
| 7f4e0 | 74 29 0a 20 20 20 28 6c 65 74 20 28 28 70 61 79 6c 6f 61 64 20 28 63 61 6c 6c 2d 77 69 74 68 2d | t)....(let.((payload.(call-with- |
| 7f500 | 73 74 72 69 6e 67 2d 6f 75 74 70 75 74 2d 70 6f 72 74 0a 09 09 20 20 20 28 6c 61 6d 62 64 61 20 | string-output-port......(lambda. |
| 7f520 | 28 70 6f 72 74 29 20 28 77 72 69 74 65 20 65 76 65 6e 74 20 70 6f 72 74 29 29 29 29 29 0a 20 20 | (port).(write.event.port)))))... |
| 7f540 | 20 20 20 28 77 72 69 74 65 2d 6c 65 6e 67 74 68 20 28 73 74 72 69 6e 67 2d 6c 65 6e 67 74 68 20 | ...(write-length.(string-length. |
| 7f560 | 70 61 79 6c 6f 61 64 29 20 70 6f 72 74 29 0a 20 20 20 20 20 28 70 75 74 2d 73 74 72 69 6e 67 20 | payload).port)......(put-string. |
| 7f580 | 70 6f 72 74 20 70 61 79 6c 6f 61 64 29 0a 20 20 20 20 20 28 66 6c 75 73 68 2d 6f 75 74 70 75 74 | port.payload)......(flush-output |
| 7f5a0 | 2d 70 6f 72 74 20 70 6f 72 74 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 77 72 69 74 65 2d 6c | -port.port)))...(define.(write-l |
| 7f5c0 | 65 6e 67 74 68 20 6c 65 6e 20 70 6f 72 74 29 0a 20 20 20 28 64 6f 20 28 28 69 20 32 34 20 28 2d | ength.len.port)....(do.((i.24.(- |
| 7f5e0 | 20 69 20 34 29 29 29 0a 20 20 20 20 20 20 20 28 28 3d 20 69 20 30 29 29 0a 20 20 20 20 20 28 70 | .i.4)))........((=.i.0))......(p |
| 7f600 | 75 74 2d 73 74 72 69 6e 67 20 70 6f 72 74 0a 09 09 20 28 6e 75 6d 62 65 72 2d 3e 73 74 72 69 6e | ut-string.port....(number->strin |
| 7f620 | 67 20 28 62 69 74 77 69 73 65 2d 62 69 74 2d 66 69 65 6c 64 20 6c 65 6e 20 28 2d 20 69 20 34 29 | g.(bitwise-bit-field.len.(-.i.4) |
| 7f640 | 20 69 29 0a 09 09 09 09 20 31 36 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 72 65 61 64 2d | .i)......16))))...(define.(read- |
| 7f660 | 65 76 65 6e 74 20 70 6f 72 74 29 0a 20 20 20 28 6c 65 74 2a 20 28 28 68 65 61 64 65 72 20 28 73 | event.port)....(let*.((header.(s |
| 7f680 | 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 28 67 65 74 2d 73 74 72 69 6e 67 2d 6e 20 70 6f 72 74 20 | tring-append.(get-string-n.port. |
| 7f6a0 | 32 29 20 0a 09 09 09 09 20 28 67 65 74 2d 73 74 72 69 6e 67 2d 6e 20 70 6f 72 74 20 32 29 0a 09 | 2).......(get-string-n.port.2).. |
| 7f6c0 | 09 09 09 20 28 67 65 74 2d 73 74 72 69 6e 67 2d 6e 20 70 6f 72 74 20 32 29 29 29 0a 09 20 20 28 | ....(get-string-n.port.2)))....( |
| 7f6e0 | 5f 20 28 70 72 69 6e 74 66 20 22 68 65 61 64 65 72 3a 20 7e 73 5c 6e 22 20 68 65 61 64 65 72 29 | _.(printf."header:.~s\n".header) |
| 7f700 | 29 0a 09 20 20 28 6c 65 6e 20 28 73 74 72 69 6e 67 2d 3e 6e 75 6d 62 65 72 20 68 65 61 64 65 72 | )....(len.(string->number.header |
| 7f720 | 20 31 36 29 29 0a 09 20 20 28 5f 20 28 70 72 69 6e 74 66 20 22 6c 65 6e 3a 20 7e 73 5c 6e 22 20 | .16))....(_.(printf."len:.~s\n". |
| 7f740 | 6c 65 6e 29 29 0a 09 20 20 28 70 61 79 6c 6f 61 64 20 28 67 65 74 2d 73 74 72 69 6e 67 2d 6e 20 | len))....(payload.(get-string-n. |
| 7f760 | 70 6f 72 74 20 6c 65 6e 29 29 29 0a 20 20 20 20 20 28 70 72 69 6e 74 66 20 22 70 61 79 6c 6f 61 | port.len)))......(printf."payloa |
| 7f780 | 64 3a 20 7e 73 5c 6e 22 20 70 61 79 6c 6f 61 64 29 0a 20 20 20 20 20 28 72 65 61 64 20 28 6f 70 | d:.~s\n".payload)......(read.(op |
| 7f7a0 | 65 6e 2d 73 74 72 69 6e 67 2d 69 6e 70 75 74 2d 70 6f 72 74 20 70 61 79 6c 6f 61 64 29 29 29 29 | en-string-input-port.payload)))) |
| 7f7c0 | 0a 0a 20 29 0a 0a 3b 3b 20 45 6e 74 72 79 20 70 6f 69 6e 74 73 20 66 6f 72 20 53 4c 49 4d 45 20 | ...)..;;.Entry.points.for.SLIME. |
| 7f7e0 | 63 6f 6d 6d 61 6e 64 73 2e 0a 28 6c 69 62 72 61 72 79 20 28 73 77 61 6e 6b 20 72 70 63 29 0a 20 | commands..(library.(swank.rpc).. |
| 7f800 | 20 20 20 28 65 78 70 6f 72 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2d 69 6e 66 6f 20 69 6e 74 65 72 | ...(export.connection-info.inter |
| 7f820 | 61 63 74 69 76 65 2d 65 76 61 6c 0a 09 20 20 20 20 3b 3b 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e | active-eval......;;compile-strin |
| 7f840 | 67 2d 66 6f 72 2d 65 6d 61 63 73 20 0a 09 20 20 20 20 74 68 72 6f 77 2d 74 6f 2d 74 6f 70 6c 65 | g-for-emacs.......throw-to-tople |
| 7f860 | 76 65 6c 20 73 6c 64 62 2d 61 62 6f 72 74 0a 09 20 20 20 20 6f 70 65 72 61 74 6f 72 2d 61 72 67 | vel.sldb-abort......operator-arg |
| 7f880 | 6c 69 73 74 20 62 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 0a 09 20 20 20 20 63 72 | list.buffer-first-change......cr |
| 7f8a0 | 65 61 74 65 2d 72 65 70 6c 20 6c 69 73 74 65 6e 65 72 2d 65 76 61 6c 29 0a 20 20 20 20 28 69 6d | eate-repl.listener-eval).....(im |
| 7f8c0 | 70 6f 72 74 20 28 72 6e 72 73 29 0a 09 20 20 20 20 28 72 6e 72 73 20 65 76 61 6c 29 0a 09 20 20 | port.(rnrs)......(rnrs.eval).... |
| 7f8e0 | 20 20 28 6f 6e 6c 79 20 28 72 6e 72 73 20 72 35 72 73 29 20 73 63 68 65 6d 65 2d 72 65 70 6f 72 | ..(only.(rnrs.r5rs).scheme-repor |
| 7f900 | 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 09 20 20 20 20 28 73 77 61 6e 6b 20 6f 73 29 0a 09 | t-environment)......(swank.os).. |
| 7f920 | 20 20 20 20 28 73 77 61 6e 6b 20 66 6f 72 6d 61 74 29 0a 09 20 20 20 20 28 73 77 61 6e 6b 20 72 | ....(swank.format)......(swank.r |
| 7f940 | 65 73 74 61 72 74 73 29 0a 09 20 20 20 20 28 73 77 61 6e 6b 20 73 79 73 29 0a 09 20 20 20 20 29 | estarts)......(swank.sys)......) |
| 7f960 | 0a 20 0a 20 28 64 65 66 69 6e 65 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2d 69 6e 66 6f 20 2e 20 5f | ....(define.(connection-info..._ |
| 7f980 | 29 0a 20 20 20 60 28 2c 40 27 28 29 0a 20 20 20 20 20 3a 70 69 64 20 2c 28 67 65 74 70 69 64 29 | )....`(,@'()......:pid.,(getpid) |
| 7f9a0 | 20 0a 20 20 20 20 20 3a 70 61 63 6b 61 67 65 20 28 3a 6e 61 6d 65 20 22 3e 22 20 3a 70 72 6f 6d | .......:package.(:name.">".:prom |
| 7f9c0 | 70 74 20 22 3e 22 29 0a 20 20 20 20 20 3a 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | pt.">")......:lisp-implementatio |
| 7f9e0 | 6e 20 28 2c 40 27 28 29 20 0a 09 09 09 20 20 20 3a 6e 61 6d 65 20 2c 28 69 6d 70 6c 65 6d 65 6e | n.(,@'()........:name.,(implemen |
| 7fa00 | 74 61 74 69 6f 6e 2d 6e 61 6d 65 29 0a 09 09 09 20 20 20 3a 74 79 70 65 20 22 52 36 52 53 2d 53 | tation-name).......:type."R6RS-S |
| 7fa20 | 63 68 65 6d 65 22 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 69 6e 74 65 72 61 63 74 69 76 65 | cheme")))...(define.(interactive |
| 7fa40 | 2d 65 76 61 6c 20 73 74 72 69 6e 67 29 0a 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 76 61 6c 75 | -eval.string)....(call-with-valu |
| 7fa60 | 65 73 20 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 09 20 28 65 76 61 6c 2d 69 6e | es.........(lambda.()...(eval-in |
| 7fa80 | 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 72 65 61 64 2d 66 | -interaction-environment.(read-f |
| 7faa0 | 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 28 63 61 73 65 2d | rom-string.string)))......(case- |
| 7fac0 | 6c 61 6d 62 64 61 0a 20 20 20 20 20 20 28 28 29 20 22 3b 20 6e 6f 20 76 61 6c 75 65 22 29 0a 20 | lambda.......(().";.no.value").. |
| 7fae0 | 20 20 20 20 20 28 28 76 61 6c 75 65 29 20 28 66 6f 72 6d 61 74 20 22 7e 73 22 20 76 61 6c 75 65 | .....((value).(format."~s".value |
| 7fb00 | 29 29 0a 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 66 6f 72 6d 61 74 20 22 76 61 6c 75 65 73 | )).......(values.(format."values |
| 7fb20 | 3a 20 7e 73 22 20 76 61 6c 75 65 73 29 29 29 29 29 0a 20 0a 20 28 64 65 66 69 6e 65 20 28 74 68 | :.~s".values)))))....(define.(th |
| 7fb40 | 72 6f 77 2d 74 6f 2d 74 6f 70 6c 65 76 65 6c 29 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 | row-to-toplevel).(invoke-restart |
| 7fb60 | 2d 62 79 2d 6e 61 6d 65 2d 6f 72 2d 6e 69 6c 20 27 74 6f 70 6c 65 76 65 6c 29 29 0a 0a 20 28 64 | -by-name-or-nil.'toplevel))...(d |
| 7fb80 | 65 66 69 6e 65 20 28 73 6c 64 62 2d 61 62 6f 72 74 29 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 | efine.(sldb-abort).(invoke-resta |
| 7fba0 | 72 74 2d 62 79 2d 6e 61 6d 65 2d 6f 72 2d 6e 69 6c 20 27 61 62 6f 72 74 29 29 0a 20 0a 20 28 64 | rt-by-name-or-nil.'abort))....(d |
| 7fbc0 | 65 66 69 6e 65 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 2d 62 79 2d 6e 61 6d 65 2d 6f 72 | efine.(invoke-restart-by-name-or |
| 7fbe0 | 2d 6e 69 6c 20 6e 61 6d 65 29 0a 20 20 20 28 6c 65 74 20 28 28 72 20 28 66 69 6e 64 20 28 6c 61 | -nil.name)....(let.((r.(find.(la |
| 7fc00 | 6d 62 64 61 20 28 72 29 20 28 65 71 3f 20 28 72 65 73 74 61 72 74 2d 6e 61 6d 65 20 72 29 20 6e | mbda.(r).(eq?.(restart-name.r).n |
| 7fc20 | 61 6d 65 29 29 0a 09 09 20 20 28 63 6f 6d 70 75 74 65 2d 72 65 73 74 61 72 74 73 29 29 29 29 0a | ame)).....(compute-restarts)))). |
| 7fc40 | 20 20 20 20 20 28 69 66 20 72 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 72 29 20 27 6e | .....(if.r.(invoke-restart.r).'n |
| 7fc60 | 69 6c 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 63 72 65 61 74 65 2d 72 65 70 6c 20 74 61 72 | il)))...(define.(create-repl.tar |
| 7fc80 | 67 65 74 29 0a 20 20 20 28 6c 69 73 74 20 22 22 20 22 22 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 | get)....(list."".""))...(define. |
| 7fca0 | 28 6c 69 73 74 65 6e 65 72 2d 65 76 61 6c 20 73 74 72 69 6e 67 29 0a 20 20 20 28 63 61 6c 6c 2d | (listener-eval.string)....(call- |
| 7fcc0 | 77 69 74 68 2d 76 61 6c 75 65 73 20 28 6c 61 6d 62 64 61 20 28 29 20 28 65 76 61 6c 2d 72 65 67 | with-values.(lambda.().(eval-reg |
| 7fce0 | 69 6f 6e 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 76 61 6c 75 65 73 | ion.string))......(lambda.values |
| 7fd00 | 20 60 28 3a 76 61 6c 75 65 73 20 2c 40 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 76 29 20 28 66 | .`(:values.,@(map.(lambda.(v).(f |
| 7fd20 | 6f 72 6d 61 74 20 22 7e 73 22 20 76 29 29 20 76 61 6c 75 65 73 29 29 29 29 29 0a 0a 20 28 64 65 | ormat."~s".v)).values)))))...(de |
| 7fd40 | 66 69 6e 65 20 28 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73 74 72 69 6e 67 29 0a 20 20 20 28 6c 65 | fine.(eval-region.string)....(le |
| 7fd60 | 74 20 28 28 73 65 78 70 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e | t.((sexp.(read-from-string.strin |
| 7fd80 | 67 29 29 29 0a 20 20 20 20 20 28 69 66 20 28 65 6f 66 2d 6f 62 6a 65 63 74 3f 20 65 78 70 29 0a | g)))......(if.(eof-object?.exp). |
| 7fda0 | 09 20 28 76 61 6c 75 65 73 29 0a 09 20 28 65 76 61 6c 2d 69 6e 2d 69 6e 74 65 72 61 63 74 69 6f | ..(values)...(eval-in-interactio |
| 7fdc0 | 6e 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 73 65 78 70 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 | n-environment.sexp))))...(define |
| 7fde0 | 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 0a 20 20 20 28 63 | .(read-from-string.string)....(c |
| 7fe00 | 61 6c 6c 2d 77 69 74 68 2d 70 6f 72 74 20 28 6f 70 65 6e 2d 73 74 72 69 6e 67 2d 69 6e 70 75 74 | all-with-port.(open-string-input |
| 7fe20 | 2d 70 6f 72 74 20 73 74 72 69 6e 67 29 20 72 65 61 64 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 | -port.string).read))...(define.( |
| 7fe40 | 6f 70 65 72 61 74 6f 72 2d 61 72 67 6c 69 73 74 20 2e 20 5f 29 20 27 6e 69 6c 29 0a 20 28 64 65 | operator-arglist..._).'nil)..(de |
| 7fe60 | 66 69 6e 65 20 28 62 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 20 2e 20 5f 29 20 27 | fine.(buffer-first-change..._).' |
| 7fe80 | 6e 69 6c 29 0a 0a 20 29 0a 0a 3b 3b 20 54 68 65 20 73 65 72 76 65 72 20 70 72 6f 70 65 72 2e 20 | nil)...)..;;.The.server.proper.. |
| 7fea0 | 20 44 6f 65 73 20 74 68 65 20 54 43 50 20 73 74 75 66 66 20 61 6e 64 20 65 78 63 65 70 74 69 6f | .Does.the.TCP.stuff.and.exceptio |
| 7fec0 | 6e 20 68 61 6e 64 6c 69 6e 67 2e 0a 28 6c 69 62 72 61 72 79 20 28 73 77 61 6e 6b 29 0a 20 20 20 | n.handling..(library.(swank).... |
| 7fee0 | 20 28 65 78 70 6f 72 74 20 73 74 61 72 74 2d 73 65 72 76 65 72 29 0a 20 20 20 20 28 69 6d 70 6f | .(export.start-server).....(impo |
| 7ff00 | 72 74 20 28 72 6e 72 73 29 20 0a 09 20 20 20 20 28 72 6e 72 73 20 65 76 61 6c 29 0a 09 20 20 20 | rt.(rnrs).......(rnrs.eval)..... |
| 7ff20 | 20 28 73 77 61 6e 6b 20 6f 73 29 0a 09 20 20 20 20 28 73 77 61 6e 6b 20 66 6f 72 6d 61 74 29 0a | .(swank.os)......(swank.format). |
| 7ff40 | 09 20 20 20 20 28 73 77 61 6e 6b 20 65 76 65 6e 74 2d 71 75 65 75 65 29 0a 09 20 20 20 20 28 73 | .....(swank.event-queue)......(s |
| 7ff60 | 77 61 6e 6b 20 72 65 73 74 61 72 74 73 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 72 65 63 6f 72 64 | wank.restarts))...(define-record |
| 7ff80 | 2d 74 79 70 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 28 66 69 65 6c 64 73 20 69 6e 2d 70 | -type.connection....(fields.in-p |
| 7ffa0 | 6f 72 74 20 6f 75 74 2d 70 6f 72 74 20 65 76 65 6e 74 2d 71 75 65 75 65 29 29 0a 0a 20 28 64 65 | ort.out-port.event-queue))...(de |
| 7ffc0 | 66 69 6e 65 20 28 73 74 61 72 74 2d 73 65 72 76 65 72 20 70 6f 72 74 29 0a 20 20 20 28 61 63 63 | fine.(start-server.port)....(acc |
| 7ffe0 | 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 28 6f 72 20 70 6f 72 74 20 34 30 30 35 29 20 23 | ept-connections.(or.port.4005).# |
| 80000 | 66 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 73 74 61 72 74 2d 73 65 72 76 65 72 2f 70 6f 72 74 | f))...(define.(start-server/port |
| 80020 | 2d 66 69 6c 65 20 70 6f 72 74 2d 66 69 6c 65 29 0a 20 20 20 28 61 63 63 65 70 74 2d 63 6f 6e 6e | -file.port-file)....(accept-conn |
| 80040 | 65 63 74 69 6f 6e 73 20 23 66 20 70 6f 72 74 2d 66 69 6c 65 29 29 0a 0a 20 28 64 65 66 69 6e 65 | ections.#f.port-file))...(define |
| 80060 | 20 28 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 70 6f 72 74 20 70 6f 72 74 2d 66 | .(accept-connections.port.port-f |
| 80080 | 69 6c 65 29 0a 20 20 20 28 6c 65 74 20 28 28 73 6f 63 6b 20 28 6d 61 6b 65 2d 73 65 72 76 65 72 | ile)....(let.((sock.(make-server |
| 800a0 | 2d 73 6f 63 6b 65 74 20 70 6f 72 74 29 29 29 0a 20 20 20 20 20 28 70 72 69 6e 74 66 20 22 4c 69 | -socket.port)))......(printf."Li |
| 800c0 | 73 74 65 6e 69 6e 67 20 6f 6e 20 70 6f 72 74 3a 20 7e 73 5c 6e 22 20 28 6c 6f 63 61 6c 2d 70 6f | stening.on.port:.~s\n".(local-po |
| 800e0 | 72 74 20 73 6f 63 6b 29 29 0a 20 20 20 20 20 28 77 68 65 6e 20 70 6f 72 74 2d 66 69 6c 65 20 0a | rt.sock))......(when.port-file.. |
| 80100 | 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 70 6f 72 74 2d 66 69 6c 65 20 28 6c 6f 63 61 6c 2d 70 | .......(write-port-file.(local-p |
| 80120 | 6f 72 74 20 73 6f 63 6b 29 20 70 6f 72 74 2d 66 69 6c 65 29 29 0a 20 20 20 20 20 28 6c 65 74 2d | ort.sock).port-file))......(let- |
| 80140 | 76 61 6c 75 65 73 20 28 28 28 69 6e 20 6f 75 74 29 20 28 61 63 63 65 70 74 20 73 6f 63 6b 20 28 | values.(((in.out).(accept.sock.( |
| 80160 | 6c 61 74 69 6e 2d 31 2d 63 6f 64 65 63 29 29 29 29 0a 20 20 20 20 20 20 20 28 64 79 6e 61 6d 69 | latin-1-codec))))........(dynami |
| 80180 | 63 2d 77 69 6e 64 20 0a 09 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 23 66 29 0a 09 20 20 20 28 | c-wind......(lambda.().#f).....( |
| 801a0 | 6c 61 6d 62 64 61 20 28 29 20 0a 09 20 20 20 20 20 28 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 73 | lambda.()........(close-socket.s |
| 801c0 | 6f 63 6b 29 0a 09 20 20 20 20 20 28 73 65 72 76 65 20 69 6e 20 6f 75 74 29 29 0a 09 20 20 20 28 | ock).......(serve.in.out)).....( |
| 801e0 | 6c 61 6d 62 64 61 20 28 29 20 0a 09 20 20 20 20 20 28 63 6c 6f 73 65 2d 70 6f 72 74 20 69 6e 29 | lambda.()........(close-port.in) |
| 80200 | 0a 09 20 20 20 20 20 28 63 6c 6f 73 65 2d 70 6f 72 74 20 6f 75 74 29 29 29 29 29 29 0a 0a 20 28 | .......(close-port.out))))))...( |
| 80220 | 64 65 66 69 6e 65 20 28 77 72 69 74 65 2d 70 6f 72 74 2d 66 69 6c 65 20 70 6f 72 74 20 70 6f 72 | define.(write-port-file.port.por |
| 80240 | 74 2d 66 69 6c 65 29 0a 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 6f 75 74 70 75 74 2d 66 69 6c | t-file)....(call-with-output-fil |
| 80260 | 65 20 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 66 69 6c 65 29 20 0a 09 20 28 77 72 69 | e.........(lambda.(file)....(wri |
| 80280 | 74 65 20 70 6f 72 74 20 66 69 6c 65 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 73 65 72 76 | te.port.file))))...(define.(serv |
| 802a0 | 65 20 69 6e 20 6f 75 74 29 20 0a 20 20 20 28 6c 65 74 20 28 28 65 72 72 20 28 63 75 72 72 65 6e | e.in.out).....(let.((err.(curren |
| 802c0 | 74 2d 65 72 72 6f 72 2d 70 6f 72 74 29 29 0a 09 20 28 71 20 28 6d 61 6b 65 2d 65 76 65 6e 74 2d | t-error-port))...(q.(make-event- |
| 802e0 | 71 75 65 75 65 20 0a 09 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 71 29 0a 09 20 20 20 20 20 20 | queue........(lambda.(q)........ |
| 80300 | 20 28 6c 65 74 20 28 28 65 20 28 72 65 61 64 2d 65 76 65 6e 74 20 69 6e 29 29 29 0a 09 09 20 28 | .(let.((e.(read-event.in)))....( |
| 80320 | 70 72 69 6e 74 66 20 22 72 65 61 64 3a 20 7e 73 5c 6e 22 20 65 29 0a 09 09 20 28 65 6e 71 75 65 | printf."read:.~s\n".e)....(enque |
| 80340 | 75 65 2d 65 76 65 6e 74 20 71 20 65 29 29 29 29 29 29 0a 20 20 20 20 20 28 64 69 73 70 61 74 63 | ue-event.q.e))))))......(dispatc |
| 80360 | 68 2d 6c 6f 6f 70 20 28 6d 61 6b 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 20 6f 75 74 20 71 | h-loop.(make-connection.in.out.q |
| 80380 | 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 2d 72 65 63 6f 72 64 2d 74 79 70 65 20 73 6c 64 62 2d | ))))...(define-record-type.sldb- |
| 803a0 | 73 74 61 74 65 0a 20 20 20 28 66 69 65 6c 64 73 20 6c 65 76 65 6c 20 63 6f 6e 64 69 74 69 6f 6e | state....(fields.level.condition |
| 803c0 | 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 6e 65 78 74 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 | .continuation.next))...(define.( |
| 803e0 | 64 69 73 70 61 74 63 68 2d 6c 6f 6f 70 20 63 6f 6e 6e 29 0a 20 20 20 28 6c 65 74 20 28 28 65 76 | dispatch-loop.conn)....(let.((ev |
| 80400 | 65 6e 74 20 28 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2d | ent.(wait-for-event.(connection- |
| 80420 | 65 76 65 6e 74 2d 71 75 65 75 65 20 63 6f 6e 6e 29 20 27 78 29 29 29 0a 20 20 20 20 20 28 63 61 | event-queue.conn).'x)))......(ca |
| 80440 | 73 65 20 28 63 61 72 20 65 76 65 6e 74 29 0a 20 20 20 20 20 20 20 28 28 3a 65 6d 61 63 73 2d 72 | se.(car.event)........((:emacs-r |
| 80460 | 65 78 29 20 0a 09 28 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 20 0a 09 20 27 74 | ex)...(with-simple-restart....'t |
| 80480 | 6f 70 6c 65 76 65 6c 20 22 52 65 74 75 72 6e 20 74 6f 20 53 4c 49 4d 45 27 73 20 74 6f 70 6c 65 | oplevel."Return.to.SLIME's.tople |
| 804a0 | 76 65 6c 22 0a 09 20 28 6c 61 6d 62 64 61 20 28 29 0a 09 20 20 20 28 61 70 70 6c 79 20 65 6d 61 | vel"...(lambda.().....(apply.ema |
| 804c0 | 63 73 2d 72 65 78 20 63 6f 6e 6e 20 23 66 20 28 63 64 72 20 65 76 65 6e 74 29 29 29 29 29 0a 20 | cs-rex.conn.#f.(cdr.event))))).. |
| 804e0 | 20 20 20 20 20 20 28 65 6c 73 65 20 28 65 72 72 6f 72 20 22 55 6e 68 61 6e 64 6c 65 64 20 65 76 | ......(else.(error."Unhandled.ev |
| 80500 | 65 6e 74 3a 20 7e 73 22 20 65 76 65 6e 74 29 29 29 29 0a 20 20 20 28 64 69 73 70 61 74 63 68 2d | ent:.~s".event))))....(dispatch- |
| 80520 | 6c 6f 6f 70 20 63 6f 6e 6e 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 72 65 63 6f 76 65 72 20 74 | loop.conn))...(define.(recover.t |
| 80540 | 68 75 6e 6b 20 6f 6e 2d 65 72 72 6f 72 2d 74 68 75 6e 6b 29 0a 20 20 20 28 6c 65 74 20 28 28 6f | hunk.on-error-thunk)....(let.((o |
| 80560 | 6b 20 23 66 29 29 0a 20 20 20 20 20 28 64 79 6e 61 6d 69 63 2d 77 69 6e 64 20 0a 09 20 28 6c 61 | k.#f))......(dynamic-wind....(la |
| 80580 | 6d 62 64 61 20 28 29 20 23 66 29 20 0a 09 20 28 6c 61 6d 62 64 61 20 28 29 20 0a 09 20 20 20 28 | mbda.().#f)....(lambda.()......( |
| 805a0 | 63 61 6c 6c 2d 77 69 74 68 2d 76 61 6c 75 65 73 20 74 68 75 6e 6b 20 0a 09 20 20 20 20 20 28 6c | call-with-values.thunk........(l |
| 805c0 | 61 6d 62 64 61 20 76 61 6c 73 20 0a 09 20 20 20 20 20 20 20 28 73 65 74 21 20 6f 6b 20 23 74 29 | ambda.vals..........(set!.ok.#t) |
| 805e0 | 20 0a 09 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 76 61 6c 75 65 73 20 76 61 6c 73 29 29 29 29 | ..........(apply.values.vals)))) |
| 80600 | 0a 09 20 28 6c 61 6d 62 64 61 20 28 29 0a 09 20 20 20 28 75 6e 6c 65 73 73 20 6f 6b 0a 09 20 20 | ...(lambda.().....(unless.ok.... |
| 80620 | 20 20 20 28 6f 6e 2d 65 72 72 6f 72 2d 74 68 75 6e 6b 29 29 29 29 29 29 0a 0a 20 3b 3b 20 43 6f | ...(on-error-thunk))))))...;;.Co |
| 80640 | 75 6c 64 6e 27 74 20 72 65 73 69 73 74 20 74 6f 20 65 78 70 6c 6f 69 74 20 74 68 65 20 70 72 65 | uldn't.resist.to.exploit.the.pre |
| 80660 | 66 69 78 20 66 65 61 74 75 72 65 2e 0a 20 28 64 65 66 69 6e 65 20 72 70 63 2d 65 6e 74 72 69 65 | fix.feature...(define.rpc-entrie |
| 80680 | 73 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 27 28 70 72 65 66 69 78 20 28 73 77 61 6e 6b 20 72 | s.(environment.'(prefix.(swank.r |
| 806a0 | 70 63 29 20 73 77 61 6e 6b 3a 29 29 29 0a 20 0a 20 28 64 65 66 69 6e 65 20 28 65 6d 61 63 73 2d | pc).swank:)))....(define.(emacs- |
| 806c0 | 72 65 78 20 63 6f 6e 6e 20 73 6c 64 62 2d 73 74 61 74 65 20 66 6f 72 6d 20 70 61 63 6b 61 67 65 | rex.conn.sldb-state.form.package |
| 806e0 | 20 74 68 72 65 61 64 20 74 61 67 29 0a 20 20 20 28 6c 65 74 20 28 28 6f 75 74 20 28 63 6f 6e 6e | .thread.tag)....(let.((out.(conn |
| 80700 | 65 63 74 69 6f 6e 2d 6f 75 74 2d 70 6f 72 74 20 63 6f 6e 6e 29 29 29 0a 20 20 20 20 20 28 72 65 | ection-out-port.conn)))......(re |
| 80720 | 63 6f 76 65 72 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 09 28 77 69 74 68 2d 65 78 | cover.......(lambda.()..(with-ex |
| 80740 | 63 65 70 74 69 6f 6e 2d 68 61 6e 64 6c 65 72 0a 09 20 28 6c 61 6d 62 64 61 20 28 63 6f 6e 64 69 | ception-handler...(lambda.(condi |
| 80760 | 74 69 6f 6e 29 20 0a 09 20 20 20 28 63 61 6c 6c 2f 63 63 20 0a 09 20 20 20 20 28 6c 61 6d 62 64 | tion)......(call/cc.......(lambd |
| 80780 | 61 20 28 6b 29 0a 09 20 20 20 20 20 20 28 73 6c 64 62 2d 65 78 63 65 70 74 69 6f 6e 2d 68 61 6e | a.(k)........(sldb-exception-han |
| 807a0 | 64 6c 65 72 20 63 6f 6e 6e 20 63 6f 6e 64 69 74 69 6f 6e 20 6b 20 73 6c 64 62 2d 73 74 61 74 65 | dler.conn.condition.k.sldb-state |
| 807c0 | 29 29 29 29 0a 09 20 28 6c 61 6d 62 64 61 20 28 29 0a 09 20 20 20 28 6c 65 74 20 28 28 76 61 6c | ))))...(lambda.().....(let.((val |
| 807e0 | 75 65 20 28 61 70 70 6c 79 20 28 65 76 61 6c 20 28 63 61 72 20 66 6f 72 6d 29 20 72 70 63 2d 65 | ue.(apply.(eval.(car.form).rpc-e |
| 80800 | 6e 74 72 69 65 73 29 20 28 63 64 72 20 66 6f 72 6d 29 29 29 29 0a 09 20 20 20 20 20 28 77 72 69 | ntries).(cdr.form)))).......(wri |
| 80820 | 74 65 2d 65 76 65 6e 74 20 60 28 3a 72 65 74 75 72 6e 20 28 3a 6f 6b 20 2c 76 61 6c 75 65 29 20 | te-event.`(:return.(:ok.,value). |
| 80840 | 2c 74 61 67 29 20 6f 75 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a | ,tag).out))))).......(lambda.(). |
| 80860 | 09 28 77 72 69 74 65 2d 65 76 65 6e 74 20 60 28 3a 72 65 74 75 72 6e 20 28 3a 61 62 6f 72 74 29 | .(write-event.`(:return.(:abort) |
| 80880 | 20 2c 74 61 67 29 20 6f 75 74 29 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 73 6c 64 62 2d | .,tag).out)))))...(define.(sldb- |
| 808a0 | 65 78 63 65 70 74 69 6f 6e 2d 68 61 6e 64 6c 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e | exception-handler.connection.con |
| 808c0 | 64 69 74 69 6f 6e 20 6b 20 73 6c 64 62 2d 73 74 61 74 65 29 0a 20 20 20 28 77 68 65 6e 20 28 73 | dition.k.sldb-state)....(when.(s |
| 808e0 | 65 72 69 6f 75 73 2d 63 6f 6e 64 69 74 69 6f 6e 3f 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 | erious-condition?.condition).... |
| 80900 | 20 20 28 6c 65 74 20 28 28 6c 65 76 65 6c 20 28 69 66 20 73 6c 64 62 2d 73 74 61 74 65 20 28 2b | ..(let.((level.(if.sldb-state.(+ |
| 80920 | 20 28 73 6c 64 62 2d 73 74 61 74 65 2d 6c 65 76 65 6c 20 73 6c 64 62 2d 73 74 61 74 65 29 20 31 | .(sldb-state-level.sldb-state).1 |
| 80940 | 29 20 31 29 29 0a 09 20 20 20 28 6f 75 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6f 75 74 2d 70 | ).1)).....(out.(connection-out-p |
| 80960 | 6f 72 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 28 77 72 69 74 65 2d | ort.connection)))........(write- |
| 80980 | 65 76 65 6e 74 20 60 28 3a 64 65 62 75 67 20 30 20 2c 6c 65 76 65 6c 20 2c 40 28 64 65 62 75 67 | event.`(:debug.0.,level.,@(debug |
| 809a0 | 67 65 72 2d 69 6e 66 6f 20 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a | ger-info.condition.connection)). |
| 809c0 | 09 09 20 20 20 20 6f 75 74 29 0a 20 20 20 20 20 20 20 28 64 79 6e 61 6d 69 63 2d 77 69 6e 64 0a | ......out)........(dynamic-wind. |
| 809e0 | 09 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 23 66 29 0a 09 20 20 20 28 6c 61 6d 62 64 61 20 28 | ....(lambda.().#f).....(lambda.( |
| 80a00 | 29 0a 09 20 20 20 20 20 28 73 6c 64 62 2d 6c 6f 6f 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 0a 09 | ).......(sldb-loop.connection... |
| 80a20 | 09 09 28 6d 61 6b 65 2d 73 6c 64 62 2d 73 74 61 74 65 20 6c 65 76 65 6c 20 63 6f 6e 64 69 74 69 | ..(make-sldb-state.level.conditi |
| 80a40 | 6f 6e 20 6b 20 73 6c 64 62 2d 73 74 61 74 65 29 29 29 0a 09 20 20 20 28 6c 61 6d 62 64 61 20 28 | on.k.sldb-state))).....(lambda.( |
| 80a60 | 29 20 28 77 72 69 74 65 2d 65 76 65 6e 74 20 60 28 3a 64 65 62 75 67 2d 72 65 74 75 72 6e 20 30 | ).(write-event.`(:debug-return.0 |
| 80a80 | 20 2c 6c 65 76 65 6c 20 6e 69 6c 29 20 6f 75 74 29 29 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 | .,level.nil).out))))))...(define |
| 80aa0 | 20 28 73 6c 64 62 2d 6c 6f 6f 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 65 29 0a 20 20 | .(sldb-loop.connection.state)... |
| 80ac0 | 20 28 61 70 70 6c 79 20 65 6d 61 63 73 2d 72 65 78 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 61 | .(apply.emacs-rex.connection.sta |
| 80ae0 | 74 65 0a 09 20 20 28 63 64 72 20 28 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 20 28 63 6f 6e 6e | te....(cdr.(wait-for-event.(conn |
| 80b00 | 65 63 74 69 6f 6e 2d 65 76 65 6e 74 2d 71 75 65 75 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 0a | ection-event-queue.connection).. |
| 80b20 | 09 09 09 20 20 20 20 20 20 20 27 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 2e 20 5f 29 29 29 29 0a | ..........'(':emacs-rex..._)))). |
| 80b40 | 20 20 20 28 73 6c 64 62 2d 6c 6f 6f 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 65 29 29 | ...(sldb-loop.connection.state)) |
| 80b60 | 0a 0a 20 28 64 65 66 69 6e 65 20 28 64 65 62 75 67 67 65 72 2d 69 6e 66 6f 20 63 6f 6e 64 69 74 | ...(define.(debugger-info.condit |
| 80b80 | 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 28 6c 69 73 74 20 60 28 2c 28 63 61 6c | ion.connection)....(list.`(,(cal |
| 80ba0 | 6c 2d 77 69 74 68 2d 73 74 72 69 6e 67 2d 6f 75 74 70 75 74 2d 70 6f 72 74 20 0a 09 20 20 20 20 | l-with-string-output-port....... |
| 80bc0 | 20 28 6c 61 6d 62 64 61 20 28 70 6f 72 74 29 20 28 70 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e | .(lambda.(port).(print-condition |
| 80be0 | 20 63 6f 6e 64 69 74 69 6f 6e 20 70 6f 72 74 29 29 29 0a 09 20 20 20 2c 28 66 6f 72 6d 61 74 20 | .condition.port))).....,(format. |
| 80c00 | 22 20 5b 74 79 70 65 20 7e 73 5d 22 20 28 69 66 20 28 72 65 63 6f 72 64 3f 20 63 6f 6e 64 69 74 | ".[type.~s]".(if.(record?.condit |
| 80c20 | 69 6f 6e 29 0a 09 09 09 09 20 20 20 20 20 28 72 65 63 6f 72 64 2d 74 79 70 65 2d 6e 61 6d 65 20 | ion)..........(record-type-name. |
| 80c40 | 28 72 65 63 6f 72 64 2d 72 74 64 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 09 09 09 09 20 20 20 20 | (record-rtd.condition))......... |
| 80c60 | 20 29 29 0a 09 20 20 20 28 29 29 0a 09 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 72 29 20 0a | .)).....())...(map.(lambda.(r).. |
| 80c80 | 09 09 28 6c 69 73 74 20 28 66 6f 72 6d 61 74 20 22 7e 61 22 20 28 72 65 73 74 61 72 74 2d 6e 61 | ..(list.(format."~a".(restart-na |
| 80ca0 | 6d 65 20 72 29 29 0a 09 09 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 73 74 72 69 6e 67 | me.r)).........(call-with-string |
| 80cc0 | 2d 6f 75 74 70 75 74 2d 70 6f 72 74 0a 09 09 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 | -output-port..........(lambda.(p |
| 80ce0 | 6f 72 74 29 0a 09 09 09 20 28 77 72 69 74 65 2d 72 65 73 74 61 72 74 2d 72 65 70 6f 72 74 20 72 | ort).....(write-restart-report.r |
| 80d00 | 20 70 6f 72 74 29 29 29 29 29 0a 09 20 20 20 20 20 20 28 63 6f 6d 70 75 74 65 2d 72 65 73 74 61 | .port)))))........(compute-resta |
| 80d20 | 72 74 73 29 29 0a 09 20 27 28 29 0a 09 20 27 28 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 70 | rts))...'()...'()))...(define.(p |
| 80d40 | 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 6f 62 6a 20 70 6f 72 74 29 0a 20 20 20 28 63 6f 6e | rint-condition.obj.port)....(con |
| 80d60 | 64 20 28 28 63 6f 6e 64 69 74 69 6f 6e 3f 20 6f 62 6a 29 0a 09 20 20 28 6c 65 74 20 28 28 6c 69 | d.((condition?.obj)....(let.((li |
| 80d80 | 73 74 20 28 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 6f 62 6a 29 29 29 0a 09 20 20 | st.(simple-conditions.obj))).... |
| 80da0 | 20 20 28 63 61 73 65 20 28 6c 65 6e 67 74 68 20 6c 69 73 74 29 0a 09 20 20 20 20 20 20 28 28 30 | ..(case.(length.list)........((0 |
| 80dc0 | 29 0a 09 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 20 22 43 6f 6d 70 75 6f 6e 64 20 63 6f 6e | ).........(display."Compuond.con |
| 80de0 | 64 69 74 69 6f 6e 20 77 69 74 68 20 7a 65 72 6f 20 63 6f 6d 70 6f 6e 65 6e 74 73 22 20 70 6f 72 | dition.with.zero.components".por |
| 80e00 | 74 29 29 0a 09 20 20 20 20 20 20 28 28 31 29 0a 09 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 | t))........((1).........(assert. |
| 80e20 | 28 65 71 3f 20 6f 62 6a 20 28 63 61 72 20 6c 69 73 74 29 29 29 0a 09 20 20 20 20 20 20 20 28 70 | (eq?.obj.(car.list))).........(p |
| 80e40 | 72 69 6e 74 2d 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 61 72 20 6c 69 73 74 29 | rint-simple-condition.(car.list) |
| 80e60 | 20 70 6f 72 74 29 29 0a 09 20 20 20 20 20 20 28 65 6c 73 65 0a 09 20 20 20 20 20 20 20 28 64 69 | .port))........(else.........(di |
| 80e80 | 73 70 6c 61 79 20 22 43 6f 6d 70 6f 75 6e 64 20 63 6f 6e 64 69 74 69 6f 6e 3a 5c 6e 22 20 70 6f | splay."Compound.condition:\n".po |
| 80ea0 | 72 74 29 0a 09 20 20 20 20 20 20 20 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 6d 62 64 61 20 28 63 | rt).........(for-each.(lambda.(c |
| 80ec0 | 29 0a 09 09 09 20 20 20 28 64 69 73 70 6c 61 79 20 22 20 20 22 20 70 6f 72 74 29 0a 09 09 09 20 | ).......(display."..".port)..... |
| 80ee0 | 20 20 28 70 72 69 6e 74 2d 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 20 70 6f 72 74 | ..(print-simple-condition.c.port |
| 80f00 | 29 0a 09 09 09 20 20 20 28 6e 65 77 6c 69 6e 65 20 70 6f 72 74 29 29 0a 09 09 09 20 6c 69 73 74 | ).......(newline.port)).....list |
| 80f20 | 29 29 29 29 29 0a 09 20 28 23 74 0a 09 20 20 28 66 70 72 69 6e 74 66 20 70 6f 72 74 20 22 4e 6f | )))))...(#t....(fprintf.port."No |
| 80f40 | 6e 2d 63 6f 6e 64 69 74 69 6f 6e 20 6f 62 6a 65 63 74 3a 20 7e 73 22 20 6f 62 6a 29 29 29 29 0a | n-condition.object:.~s".obj)))). |
| 80f60 | 0a 20 28 64 65 66 69 6e 65 20 28 70 72 69 6e 74 2d 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f | ..(define.(print-simple-conditio |
| 80f80 | 6e 20 63 6f 6e 64 69 74 69 6f 6e 20 70 6f 72 74 29 0a 20 20 20 28 66 70 72 69 6e 74 66 20 70 6f | n.condition.port)....(fprintf.po |
| 80fa0 | 72 74 20 22 7e 61 22 20 28 72 65 63 6f 72 64 2d 74 79 70 65 2d 6e 61 6d 65 20 28 72 65 63 6f 72 | rt."~a".(record-type-name.(recor |
| 80fc0 | 64 2d 72 74 64 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 28 63 61 73 65 20 28 63 6f 75 | d-rtd.condition)))....(case.(cou |
| 80fe0 | 6e 74 2d 72 65 63 6f 72 64 2d 66 69 65 6c 64 73 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 | nt-record-fields.condition)..... |
| 81000 | 20 28 28 30 29 20 23 66 29 0a 20 20 20 20 20 28 28 31 29 20 0a 20 20 20 20 20 20 28 66 70 72 69 | .((0).#f)......((1)........(fpri |
| 81020 | 6e 74 66 20 70 6f 72 74 20 22 3a 20 22 29 0a 20 20 20 20 20 20 28 64 6f 2d 72 65 63 6f 72 64 2d | ntf.port.":.").......(do-record- |
| 81040 | 66 69 65 6c 64 73 20 63 6f 6e 64 69 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 6e 61 6d 65 20 76 | fields.condition.(lambda.(name.v |
| 81060 | 61 6c 75 65 29 20 28 77 72 69 74 65 20 76 61 6c 75 65 20 70 6f 72 74 29 29 29 29 0a 20 20 20 20 | alue).(write.value.port))))..... |
| 81080 | 20 28 65 6c 73 65 0a 20 20 20 20 20 20 28 66 70 72 69 6e 74 66 20 70 6f 72 74 20 22 3a 22 29 0a | .(else.......(fprintf.port.":"). |
| 810a0 | 20 20 20 20 20 20 28 64 6f 2d 72 65 63 6f 72 64 2d 66 69 65 6c 64 73 20 63 6f 6e 64 69 74 69 6f | ......(do-record-fields.conditio |
| 810c0 | 6e 20 28 6c 61 6d 62 64 61 20 28 6e 61 6d 65 20 76 61 6c 75 65 29 20 0a 09 09 09 09 20 20 20 20 | n.(lambda.(name.value).......... |
| 810e0 | 28 66 70 72 69 6e 74 66 20 70 6f 72 74 20 22 5c 6e 7e 61 3a 20 7e 73 22 20 6e 61 6d 65 20 76 61 | (fprintf.port."\n~a:.~s".name.va |
| 81100 | 6c 75 65 29 29 29 29 29 29 0a 0a 20 3b 3b 20 43 61 6c 6c 20 46 55 4e 20 77 69 74 68 20 52 45 43 | lue))))))...;;.Call.FUN.with.REC |
| 81120 | 4f 52 44 27 73 20 72 74 64 20 61 6e 64 20 70 61 72 65 6e 74 20 72 74 64 73 2e 0a 20 28 64 65 66 | ORD's.rtd.and.parent.rtds...(def |
| 81140 | 69 6e 65 20 28 64 6f 2d 72 65 63 6f 72 64 2d 72 74 64 73 20 72 65 63 6f 72 64 20 66 75 6e 29 0a | ine.(do-record-rtds.record.fun). |
| 81160 | 20 20 20 28 64 6f 20 28 28 72 74 64 20 28 72 65 63 6f 72 64 2d 72 74 64 20 72 65 63 6f 72 64 29 | ...(do.((rtd.(record-rtd.record) |
| 81180 | 20 28 72 65 63 6f 72 64 2d 74 79 70 65 2d 70 61 72 65 6e 74 20 72 74 64 29 29 29 0a 20 20 20 20 | .(record-type-parent.rtd)))..... |
| 811a0 | 20 20 20 28 28 6e 6f 74 20 72 74 64 29 29 0a 20 20 20 20 20 28 66 75 6e 20 72 74 64 29 29 29 0a | ...((not.rtd))......(fun.rtd))). |
| 811c0 | 0a 20 3b 3b 20 43 61 6c 6c 20 46 55 4e 20 77 69 74 68 20 52 45 43 4f 52 44 27 73 20 66 69 65 6c | ..;;.Call.FUN.with.RECORD's.fiel |
| 811e0 | 64 20 6e 61 6d 65 73 20 61 6e 64 20 76 61 6c 75 65 73 2e 0a 20 28 64 65 66 69 6e 65 20 28 64 6f | d.names.and.values...(define.(do |
| 81200 | 2d 72 65 63 6f 72 64 2d 66 69 65 6c 64 73 20 72 65 63 6f 72 64 20 66 75 6e 29 0a 20 20 20 28 64 | -record-fields.record.fun)....(d |
| 81220 | 6f 2d 72 65 63 6f 72 64 2d 72 74 64 73 20 0a 20 20 20 20 72 65 63 6f 72 64 0a 20 20 20 20 28 6c | o-record-rtds......record.....(l |
| 81240 | 61 6d 62 64 61 20 28 72 74 64 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6e 61 6d 65 73 20 | ambda.(rtd).......(let*.((names. |
| 81260 | 28 72 65 63 6f 72 64 2d 74 79 70 65 2d 66 69 65 6c 64 2d 6e 61 6d 65 73 20 72 74 64 29 29 0a 09 | (record-type-field-names.rtd)).. |
| 81280 | 20 20 20 20 20 28 6c 65 6e 20 28 76 65 63 74 6f 72 2d 6c 65 6e 67 74 68 20 6e 61 6d 65 73 29 29 | .....(len.(vector-length.names)) |
| 812a0 | 29 0a 09 28 64 6f 20 28 28 69 20 30 20 28 2b 20 31 20 69 29 29 29 0a 09 20 20 20 20 28 28 3d 20 | )..(do.((i.0.(+.1.i)))......((=. |
| 812c0 | 69 20 6c 65 6e 29 29 0a 09 20 20 28 66 75 6e 20 28 76 65 63 74 6f 72 2d 72 65 66 20 6e 61 6d 65 | i.len))....(fun.(vector-ref.name |
| 812e0 | 73 20 69 29 20 28 28 72 65 63 6f 72 64 2d 61 63 63 65 73 73 6f 72 20 72 74 64 20 69 29 20 72 65 | s.i).((record-accessor.rtd.i).re |
| 81300 | 63 6f 72 64 29 29 29 29 29 29 29 0a 0a 20 3b 3b 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 | cord)))))))...;;.Return.the.numb |
| 81320 | 65 72 20 6f 66 20 66 69 65 6c 64 73 20 69 6e 20 52 45 43 4f 52 44 0a 20 28 64 65 66 69 6e 65 20 | er.of.fields.in.RECORD..(define. |
| 81340 | 28 63 6f 75 6e 74 2d 72 65 63 6f 72 64 2d 66 69 65 6c 64 73 20 72 65 63 6f 72 64 29 0a 20 20 20 | (count-record-fields.record).... |
| 81360 | 28 6c 65 74 20 28 28 69 20 30 29 29 0a 20 20 20 20 20 28 64 6f 2d 72 65 63 6f 72 64 2d 72 74 64 | (let.((i.0))......(do-record-rtd |
| 81380 | 73 20 0a 20 20 20 20 20 20 72 65 63 6f 72 64 20 28 6c 61 6d 62 64 61 20 28 72 74 64 29 20 0a 09 | s........record.(lambda.(rtd)... |
| 813a0 | 20 20 20 20 20 20 20 28 73 65 74 21 20 69 20 28 2b 20 69 20 28 76 65 63 74 6f 72 2d 6c 65 6e 67 | .......(set!.i.(+.i.(vector-leng |
| 813c0 | 74 68 20 28 72 65 63 6f 72 64 2d 74 79 70 65 2d 66 69 65 6c 64 2d 6e 61 6d 65 73 20 72 74 64 29 | th.(record-type-field-names.rtd) |
| 813e0 | 29 29 29 29 29 0a 20 20 20 20 20 69 29 29 0a 0a 20 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 | )))))......i))...).............. |
| 81400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 70 61 63 6b 61 67 65 | slime-2.31/contrib/slime-package |
| 81420 | 2d 66 75 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | -fu.el.......................... |
| 81440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 81460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 81480 | 30 30 33 31 37 34 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 33 31 34 00 20 30 00 00 00 | 0031744.00000000000.016314..0... |
| 814a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 814c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 814e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 81500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 81520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 81540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 81560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 81580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 815a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 815c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 815e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 81600 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 | (require.'slime).(require.'slime |
| 81620 | 2d 63 2d 70 2d 63 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 70 61 72 73 65 29 0a 0a | -c-p-c).(require.'slime-parse).. |
| 81640 | 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 70 61 63 6b 61 67 65 2d 66 75 2d 69 6e 69 74 2d 75 6e | (defvar.slime-package-fu-init-un |
| 81660 | 64 6f 2d 73 74 61 63 6b 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e | do-stack.nil)..(define-slime-con |
| 81680 | 74 72 69 62 20 73 6c 69 6d 65 2d 70 61 63 6b 61 67 65 2d 66 75 0a 20 20 22 45 78 70 6f 72 74 69 | trib.slime-package-fu..."Exporti |
| 816a0 | 6e 67 2f 55 6e 65 78 70 6f 72 74 69 6e 67 20 73 79 6d 62 6f 6c 73 20 61 74 20 70 6f 69 6e 74 2e | ng/Unexporting.symbols.at.point. |
| 816c0 | 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 54 6f 62 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 | "...(:authors."Tobias.C..Rittwei |
| 816e0 | 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 73 2e 64 65 3e 22 29 0a 20 20 28 3a 6c 69 63 65 | ler.<tcr@freebits.de>")...(:lice |
| 81700 | 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 | nse."GPL")...(:swank-dependencie |
| 81720 | 73 20 73 77 61 6e 6b 2d 70 61 63 6b 61 67 65 2d 66 75 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a | s.swank-package-fu)...(:on-load. |
| 81740 | 20 20 20 28 70 75 73 68 20 60 28 70 72 6f 67 6e 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 | ...(push.`(progn.(define-key.sli |
| 81760 | 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 5c 43 2d 63 78 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | me-mode-map."\C-cx"............. |
| 81780 | 20 20 20 20 20 20 20 27 2c 28 6c 6f 6f 6b 75 70 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d | .......',(lookup-key.slime-mode- |
| 817a0 | 6d 61 70 20 22 5c 43 2d 63 78 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 70 61 | map."\C-cx")))..........slime-pa |
| 817c0 | 63 6b 61 67 65 2d 66 75 2d 69 6e 69 74 2d 75 6e 64 6f 2d 73 74 61 63 6b 29 0a 20 20 20 28 64 65 | ckage-fu-init-undo-stack)....(de |
| 817e0 | 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 5c 43 2d 63 78 22 20 | fine-key.slime-mode-map."\C-cx". |
| 81800 | 20 27 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 | .'slime-export-symbol-at-point)) |
| 81820 | 0a 20 20 28 3a 6f 6e 2d 75 6e 6c 6f 61 64 0a 20 20 20 28 77 68 69 6c 65 20 73 6c 69 6d 65 2d 63 | ...(:on-unload....(while.slime-c |
| 81840 | 2d 70 2d 63 2d 69 6e 69 74 2d 75 6e 64 6f 2d 73 74 61 63 6b 0a 20 20 20 20 20 28 65 76 61 6c 20 | -p-c-init-undo-stack......(eval. |
| 81860 | 28 70 6f 70 20 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 69 6e 69 74 2d 75 6e 64 6f 2d 73 74 61 63 6b | (pop.slime-c-p-c-init-undo-stack |
| 81880 | 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 70 61 63 6b 61 67 65 2d 66 69 6c | )))))..(defvar.slime-package-fil |
| 818a0 | 65 2d 63 61 6e 64 69 64 61 74 65 73 0a 20 20 28 6d 61 70 63 61 72 20 23 27 66 69 6c 65 2d 6e 61 | e-candidates...(mapcar.#'file-na |
| 818c0 | 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 27 28 22 70 61 63 | me-nondirectory...........'("pac |
| 818e0 | 6b 61 67 65 2e 6c 69 73 70 22 20 22 70 61 63 6b 61 67 65 73 2e 6c 69 73 70 22 20 22 70 6b 67 64 | kage.lisp"."packages.lisp"."pkgd |
| 81900 | 63 6c 2e 6c 69 73 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 64 65 66 70 61 63 6b 61 67 65 | cl.lisp"............."defpackage |
| 81920 | 2e 6c 69 73 70 22 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d | .lisp")))..(defvar.slime-export- |
| 81940 | 73 79 6d 62 6f 6c 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 0a 20 | symbol-representation-function.. |
| 81960 | 20 23 27 28 6c 61 6d 62 64 61 20 28 6e 29 20 28 66 6f 72 6d 61 74 20 22 23 3a 25 73 22 20 6e 29 | .#'(lambda.(n).(format."#:%s".n) |
| 81980 | 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 2d | ))..(defvar.slime-export-symbol- |
| 819a0 | 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 75 74 6f 20 74 0a 20 20 22 44 65 74 65 72 6d 69 | representation-auto.t..."Determi |
| 819c0 | 6e 65 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 77 68 69 63 68 20 73 74 79 6c 65 20 69 73 20 | ne.automatically.which.style.is. |
| 819e0 | 75 73 65 64 20 66 6f 72 20 73 79 6d 62 6f 6c 73 2c 20 23 3a 20 6f 72 20 3a 0a 49 66 20 69 74 27 | used.for.symbols,.#:.or.:.If.it' |
| 81a00 | 73 20 6d 69 78 65 64 20 6f 72 20 6e 6f 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 65 78 70 6f 72 74 | s.mixed.or.no.symbols.are.export |
| 81a20 | 65 64 20 73 6f 20 66 61 72 2c 0a 75 73 65 20 60 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d 73 79 6d | ed.so.far,.use.`slime-export-sym |
| 81a40 | 62 6f 6c 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 27 2e 22 29 0a | bol-representation-function'."). |
| 81a60 | 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d 73 61 76 65 2d 66 69 6c 65 20 | .(defvar.slime-export-save-file. |
| 81a80 | 6e 69 6c 0a 20 20 22 53 61 76 65 20 74 68 65 20 70 61 63 6b 61 67 65 20 66 69 6c 65 20 61 66 74 | nil..."Save.the.package.file.aft |
| 81aa0 | 65 72 20 65 61 63 68 20 61 75 74 6f 6d 61 74 69 63 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 22 29 | er.each.automatic.modification") |
| 81ac0 | 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 64 65 66 70 61 63 6b 61 67 65 2d 72 65 67 65 78 | ..(defvar.slime-defpackage-regex |
| 81ae0 | 70 0a 20 20 22 5e 28 5c 5c 28 63 6c 3a 5c 5c 7c 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 3a 5c 5c 7c 75 | p..."^(\\(cl:\\|common-lisp:\\|u |
| 81b00 | 69 6f 70 3a 5c 5c 7c 75 69 6f 70 2f 70 61 63 6b 61 67 65 3a 5c 5c 29 3f 5c 5c 28 64 65 66 70 61 | iop:\\|uiop/package:\\)?\\(defpa |
| 81b20 | 63 6b 61 67 65 5c 5c 7c 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 5c 5c 29 5c 5c 3e 5b 20 5c 74 | ckage\\|define-package\\)\\>[.\t |
| 81b40 | 27 5d 2a 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 70 61 63 6b 61 67 65 | ']*")..(defun.slime-find-package |
| 81b60 | 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 72 70 63 20 28 70 61 63 6b 61 67 65 29 0a 20 20 28 73 6c 69 | -definition-rpc.(package)...(sli |
| 81b80 | 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d | me-eval.`(swank:find-definition- |
| 81ba0 | 66 6f 72 2d 74 68 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b | for-thing.................(swank |
| 81bc0 | 3a 3a 67 75 65 73 73 2d 70 61 63 6b 61 67 65 20 2c 70 61 63 6b 61 67 65 29 29 29 29 0a 0a 28 64 | ::guess-package.,package))))..(d |
| 81be0 | 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 70 61 63 6b 61 67 65 2d 64 65 66 69 6e 69 74 69 | efun.slime-find-package-definiti |
| 81c00 | 6f 6e 2d 72 65 67 65 78 70 20 28 70 61 63 6b 61 67 65 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 | on-regexp.(package)...(save-excu |
| 81c20 | 72 73 69 6f 6e 0a 20 20 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 | rsion.....(save-match-data...... |
| 81c40 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 | .(goto-char.(point-min)).......( |
| 81c60 | 63 6c 2d 62 6c 6f 63 6b 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d | cl-block.nil.........(while.(re- |
| 81c80 | 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 73 6c 69 6d 65 2d 64 65 66 70 61 63 6b 61 67 65 2d | search-forward.slime-defpackage- |
| 81ca0 | 72 65 67 65 78 70 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 | regexp.nil.t)...........(when.(s |
| 81cc0 | 6c 69 6d 65 2d 70 61 63 6b 61 67 65 2d 65 71 75 61 6c 20 70 61 63 6b 61 67 65 20 28 73 6c 69 6d | lime-package-equal.package.(slim |
| 81ce0 | 65 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 | e-sexp-at-point)).............(b |
| 81d00 | 61 63 6b 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 | ackward-sexp).............(cl-re |
| 81d20 | 74 75 72 6e 20 28 6d 61 6b 65 2d 73 6c 69 6d 65 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 | turn.(make-slime-file-location.( |
| 81d40 | 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | buffer-file-name)............... |
| 81d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 81d80 | 20 20 20 28 31 2d 20 28 70 6f 69 6e 74 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ...(1-.(point))))))))))..(defun. |
| 81da0 | 73 6c 69 6d 65 2d 70 61 63 6b 61 67 65 2d 65 71 75 61 6c 20 28 64 65 73 69 67 6e 61 74 6f 72 31 | slime-package-equal.(designator1 |
| 81dc0 | 20 64 65 73 69 67 6e 61 74 6f 72 32 29 0a 20 20 3b 3b 20 46 69 72 73 74 20 74 72 79 20 74 6f 20 | .designator2)...;;.First.try.to. |
| 81de0 | 62 65 20 6c 75 63 6b 79 20 61 6e 64 20 63 6f 6d 70 61 72 65 20 74 68 65 20 73 74 72 69 6e 67 73 | be.lucky.and.compare.the.strings |
| 81e00 | 20 74 68 65 6d 73 65 6c 76 65 73 20 28 66 6f 72 20 74 68 65 0a 20 20 3b 3b 20 63 61 73 65 20 77 | .themselves.(for.the...;;.case.w |
| 81e20 | 68 65 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 70 61 63 6b 61 67 | hen.one.of.the.designated.packag |
| 81e40 | 65 73 20 69 73 6e 27 74 20 6c 6f 61 64 65 64 20 69 6e 20 74 68 65 0a 20 20 3b 3b 20 69 6d 61 67 | es.isn't.loaded.in.the...;;.imag |
| 81e60 | 65 2e 29 20 54 68 65 6e 20 74 72 79 20 74 6f 20 64 6f 20 69 74 20 70 72 6f 70 65 72 6c 79 20 75 | e.).Then.try.to.do.it.properly.u |
| 81e80 | 73 69 6e 67 20 74 68 65 20 69 6e 66 65 72 69 6f 72 20 4c 69 73 70 20 77 68 69 63 68 0a 20 20 3b | sing.the.inferior.Lisp.which...; |
| 81ea0 | 3b 20 77 69 6c 6c 20 61 6c 73 6f 20 72 65 73 6f 6c 76 65 20 6e 69 63 6b 6e 61 6d 65 73 20 66 6f | ;.will.also.resolve.nicknames.fo |
| 81ec0 | 72 20 75 73 20 26 63 2e 0a 20 20 28 6f 72 20 28 63 6c 2d 65 71 75 61 6c 70 20 28 73 6c 69 6d 65 | r.us.&c....(or.(cl-equalp.(slime |
| 81ee0 | 2d 63 6c 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 64 65 73 69 67 6e 61 74 6f 72 31 29 0a 20 20 20 | -cl-symbol-name.designator1).... |
| 81f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6c 2d 73 79 6d 62 6f 6c 2d 6e | ..............(slime-cl-symbol-n |
| 81f20 | 61 6d 65 20 64 65 73 69 67 6e 61 74 6f 72 32 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 | ame.designator2)).......(slime-e |
| 81f40 | 76 61 6c 20 60 28 73 77 61 6e 6b 3a 70 61 63 6b 61 67 65 3d 20 2c 64 65 73 69 67 6e 61 74 6f 72 | val.`(swank:package=.,designator |
| 81f60 | 31 20 2c 64 65 73 69 67 6e 61 74 6f 72 32 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | 1.,designator2))))..(defun.slime |
| 81f80 | 2d 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 0a | -export-symbol.(symbol.package). |
| 81fa0 | 20 20 22 45 78 70 6f 72 74 20 60 73 79 6d 62 6f 6c 27 20 66 72 6f 6d 20 60 70 61 63 6b 61 67 65 | .."Export.`symbol'.from.`package |
| 81fc0 | 27 20 69 6e 20 74 68 65 20 4c 69 73 70 20 69 6d 61 67 65 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 65 | '.in.the.Lisp.image."...(slime-e |
| 81fe0 | 76 61 6c 20 60 28 73 77 61 6e 6b 3a 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d | val.`(swank:export-symbol-for-em |
| 82000 | 61 63 73 20 2c 73 79 6d 62 6f 6c 20 2c 70 61 63 6b 61 67 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 | acs.,symbol.,package)))..(defun. |
| 82020 | 73 6c 69 6d 65 2d 75 6e 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 20 70 61 | slime-unexport-symbol.(symbol.pa |
| 82040 | 63 6b 61 67 65 29 0a 20 20 22 55 6e 65 78 70 6f 72 74 20 60 73 79 6d 62 6f 6c 27 20 66 72 6f 6d | ckage)..."Unexport.`symbol'.from |
| 82060 | 20 60 70 61 63 6b 61 67 65 27 20 69 6e 20 74 68 65 20 4c 69 73 70 20 69 6d 61 67 65 2e 22 0a 20 | .`package'.in.the.Lisp.image.".. |
| 82080 | 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 75 6e 65 78 70 6f 72 74 2d 73 79 | .(slime-eval.`(swank:unexport-sy |
| 820a0 | 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 2c 73 79 6d 62 6f 6c 20 2c 70 61 63 6b 61 67 65 29 | mbol-for-emacs.,symbol.,package) |
| 820c0 | 29 29 0a 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 70 6f 73 73 69 62 6c 65 2d | ))...(defun.slime-find-possible- |
| 820e0 | 70 61 63 6b 61 67 65 2d 66 69 6c 65 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a | package-file.(buffer-file-name). |
| 82100 | 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 66 69 6c 65 2d 6e 61 6d 65 2d 73 75 62 64 69 72 65 | ..(cl-labels.((file-name-subdire |
| 82120 | 63 74 6f 72 79 20 28 64 69 72 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ctory.(dirname)................. |
| 82140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 | ......................(expand-fi |
| 82160 | 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-name......................... |
| 82180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d | ...............(concat.(file-nam |
| 821a0 | 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 28 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 | e-as-directory.(slime-to-lisp-fi |
| 821c0 | 6c 65 6e 61 6d 65 20 64 69 72 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lename.dirname))................ |
| 821e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 82200 | 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 22 2e 2e 22 29 29 29 29 | (file-name-as-directory."..")))) |
| 82220 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 79 20 28 64 69 72 6e 61 6d 65 29 0a 20 20 | ...............(try.(dirname)... |
| 82240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 64 6f 6c 69 73 74 20 28 70 61 63 | .................(cl-dolist.(pac |
| 82260 | 6b 61 67 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 73 6c 69 6d 65 2d 70 61 63 6b 61 67 65 2d 66 69 6c | kage-file-name.slime-package-fil |
| 82280 | 65 2d 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-candidates)................... |
| 822a0 | 20 20 20 28 6c 65 74 20 28 28 66 20 28 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e | ...(let.((f.(slime-to-lisp-filen |
| 822c0 | 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame............................. |
| 822e0 | 20 20 20 28 63 6f 6e 63 61 74 20 64 69 72 6e 61 6d 65 20 70 61 63 6b 61 67 65 2d 66 69 6c 65 2d | ...(concat.dirname.package-file- |
| 82300 | 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name))))........................ |
| 82320 | 28 77 68 65 6e 20 28 66 69 6c 65 2d 72 65 61 64 61 62 6c 65 2d 70 20 66 29 0a 20 20 20 20 20 20 | (when.(file-readable-p.f)....... |
| 82340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 74 75 72 6e 20 66 29 | ...................(cl-return.f) |
| 82360 | 29 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 | ))))).....(when.buffer-file-name |
| 82380 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 2d 63 77 64 20 28 66 69 6c 65 2d 6e | .......(let.((buffer-cwd.(file-n |
| 823a0 | 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 | ame-directory.buffer-file-name)) |
| 823c0 | 29 0a 20 20 20 20 20 20 20 20 28 6f 72 20 28 74 72 79 20 62 75 66 66 65 72 2d 63 77 64 29 0a 20 | ).........(or.(try.buffer-cwd).. |
| 823e0 | 20 20 20 20 20 20 20 20 20 20 20 28 74 72 79 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 73 75 62 64 69 | ...........(try.(file-name-subdi |
| 82400 | 72 65 63 74 6f 72 79 20 62 75 66 66 65 72 2d 63 77 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | rectory.buffer-cwd))............ |
| 82420 | 20 28 74 72 79 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 73 75 62 64 69 72 65 63 74 6f 72 79 0a 20 20 | .(try.(file-name-subdirectory... |
| 82440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 73 75 62 64 69 | ................(file-name-subdi |
| 82460 | 72 65 63 74 6f 72 79 20 62 75 66 66 65 72 2d 63 77 64 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 | rectory.buffer-cwd))))))))..(def |
| 82480 | 75 6e 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 70 61 63 6b 61 67 65 2d 73 6f 75 72 63 65 2d 64 65 66 | un.slime-goto-package-source-def |
| 824a0 | 69 6e 69 74 69 6f 6e 20 28 70 61 63 6b 61 67 65 29 0a 20 20 22 54 72 69 65 73 20 74 6f 20 66 69 | inition.(package)..."Tries.to.fi |
| 824c0 | 6e 64 20 74 68 65 20 44 45 46 50 41 43 4b 41 47 45 20 66 6f 72 6d 20 6f 66 20 60 70 61 63 6b 61 | nd.the.DEFPACKAGE.form.of.`packa |
| 824e0 | 67 65 27 2e 20 49 66 20 66 6f 75 6e 64 2c 0a 70 6c 61 63 65 73 20 74 68 65 20 63 75 72 73 6f 72 | ge'..If.found,.places.the.cursor |
| 82500 | 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 44 45 46 50 41 43 4b 41 47 45 20 | .at.the.start.of.the.DEFPACKAGE. |
| 82520 | 66 6f 72 6d 2e 22 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 74 72 79 20 28 6c 6f 63 61 74 | form."...(cl-labels.((try.(locat |
| 82540 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 | ion)....................(when.(s |
| 82560 | 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 | lime-location-p.location)....... |
| 82580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 73 6f 75 72 63 | ...............(slime-goto-sourc |
| 825a0 | 65 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | e-location.location)............ |
| 825c0 | 20 20 20 20 20 20 20 20 20 20 74 29 29 29 0a 20 20 20 20 28 6f 72 20 28 74 72 79 20 28 73 6c 69 | ..........t))).....(or.(try.(sli |
| 825e0 | 6d 65 2d 66 69 6e 64 2d 70 61 63 6b 61 67 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 72 70 63 20 70 | me-find-package-definition-rpc.p |
| 82600 | 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 74 72 79 20 28 73 6c 69 6d 65 2d 66 69 6e | ackage)).........(try.(slime-fin |
| 82620 | 64 2d 70 61 63 6b 61 67 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 72 65 67 65 78 70 20 70 61 63 6b | d-package-definition-regexp.pack |
| 82640 | 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 74 72 79 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 | age)).........(try.(let.((packag |
| 82660 | 65 2d 66 69 6c 65 20 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 70 6f 73 73 69 62 6c 65 2d 70 61 63 6b | e-file.(slime-find-possible-pack |
| 82680 | 61 67 65 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | age-file........................ |
| 826a0 | 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 29 | ...........(buffer-file-name)))) |
| 826c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 61 63 6b 61 67 65 2d 66 69 | ................(when.package-fi |
| 826e0 | 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e | le..................(with-curren |
| 82700 | 74 2d 62 75 66 66 65 72 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 70 61 63 | t-buffer.(find-file-noselect.pac |
| 82720 | 6b 61 67 65 2d 66 69 6c 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kage-file.t).................... |
| 82740 | 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 70 61 63 6b 61 67 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 72 | (slime-find-package-definition-r |
| 82760 | 65 67 65 78 70 20 70 61 63 6b 61 67 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f | egexp.package))))).........(erro |
| 82780 | 72 20 22 43 6f 75 6c 64 6e 27 74 20 66 69 6e 64 20 73 6f 75 72 63 65 20 64 65 66 69 6e 69 74 69 | r."Couldn't.find.source.definiti |
| 827a0 | 6f 6e 20 6f 66 20 70 61 63 6b 61 67 65 3a 20 25 73 22 20 70 61 63 6b 61 67 65 29 29 29 29 0a 0a | on.of.package:.%s".package)))).. |
| 827c0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 74 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 28 70 61 | (defun.slime-at-expression-p.(pa |
| 827e0 | 74 74 65 72 6e 29 0a 20 20 28 77 68 65 6e 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 | ttern)...(when.(ignore-errors... |
| 82800 | 20 20 20 20 20 20 20 20 3b 3b 20 61 74 20 61 20 6c 69 73 74 3f 0a 20 20 20 20 20 20 20 20 20 20 | ........;;.at.a.list?........... |
| 82820 | 28 3d 20 28 70 6f 69 6e 74 29 20 28 70 72 6f 67 6e 20 28 64 6f 77 6e 2d 6c 69 73 74 20 31 29 0a | (=.(point).(progn.(down-list.1). |
| 82840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 | ............................(bac |
| 82860 | 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kward-up-list.1)................ |
| 82880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 28 73 61 76 | .............(point)))).....(sav |
| 828a0 | 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c 69 73 74 20 31 29 0a | e-excursion.......(down-list.1). |
| 828c0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 70 61 74 | ......(slime-in-expression-p.pat |
| 828e0 | 74 65 72 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6e 65 78 74 | tern))))..(defun.slime-goto-next |
| 82900 | 2d 65 78 70 6f 72 74 2d 63 6c 61 75 73 65 20 28 29 0a 20 20 3b 3b 20 41 73 73 75 6d 65 73 20 77 | -export-clause.()...;;.Assumes.w |
| 82920 | 65 27 72 65 20 69 6e 73 69 64 65 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 20 44 | e're.inside.the.beginning.of.a.D |
| 82940 | 45 46 50 41 43 4b 41 47 45 20 66 6f 72 6d 2e 0a 20 20 28 6c 65 74 20 28 28 70 6f 69 6e 74 29 29 | EFPACKAGE.form....(let.((point)) |
| 82960 | 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 63 6c 2d 62 | .....(save-excursion.......(cl-b |
| 82980 | 6c 6f 63 6b 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 69 67 6e 6f 72 65 2d | lock.nil.........(while.(ignore- |
| 829a0 | 65 72 72 6f 72 73 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 73 65 78 70 29 20 74 29 0a 20 | errors.(slime-forward-sexp).t).. |
| 829c0 | 20 20 20 20 20 20 20 20 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 5c | .........(skip-chars-forward.".\ |
| 829e0 | 6e 5c 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 6c 69 6d 65 2d 61 74 2d | n\t")...........(when.(slime-at- |
| 82a00 | 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 27 28 3a 65 78 70 6f 72 74 20 2a 29 29 0a 20 20 20 20 20 | expression-p.'(:export.*))...... |
| 82a20 | 20 20 20 20 20 20 20 28 73 65 74 71 20 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 | .......(setq.point.(point))..... |
| 82a40 | 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 74 75 72 6e 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 | ........(cl-return))))).....(if. |
| 82a60 | 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 69 6e 74 29 0a | point.........(goto-char.point). |
| 82a80 | 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 6e 65 78 74 20 28 3a 65 78 70 6f 72 74 20 2e | ......(error."No.next.(:export.. |
| 82aa0 | 2e 2e 29 20 63 6c 61 75 73 65 20 66 6f 75 6e 64 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | ..).clause.found"))))..(defun.sl |
| 82ac0 | 69 6d 65 2d 73 65 61 72 63 68 2d 65 78 70 6f 72 74 73 2d 69 6e 2d 64 65 66 70 61 63 6b 61 67 65 | ime-search-exports-in-defpackage |
| 82ae0 | 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 22 4c 6f 6f 6b 20 69 66 20 60 73 79 6d 62 6f | .(symbol-name)..."Look.if.`symbo |
| 82b00 | 6c 2d 6e 61 6d 65 27 20 69 73 20 6d 65 6e 74 69 6f 6e 65 64 20 69 6e 20 6f 6e 65 20 6f 66 20 74 | l-name'.is.mentioned.in.one.of.t |
| 82b20 | 68 65 20 3a 45 58 50 4f 52 54 20 63 6c 61 75 73 65 73 2e 22 0a 20 20 3b 3b 20 41 73 73 75 6d 65 | he.:EXPORT.clauses."...;;.Assume |
| 82b40 | 73 20 77 65 27 72 65 20 69 6e 73 69 64 65 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 | s.we're.inside.the.beginning.of. |
| 82b60 | 61 20 44 45 46 50 41 43 4b 41 47 45 20 66 6f 72 6d 2e 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 | a.DEFPACKAGE.form....(cl-labels. |
| 82b80 | 28 28 74 61 72 67 65 74 2d 73 79 6d 62 6f 6c 2d 70 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 | ((target-symbol-p.(symbol)...... |
| 82ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e | ..........................(strin |
| 82bc0 | 67 2d 6d 61 74 63 68 2d 70 20 28 66 6f 72 6d 61 74 20 22 5e 5c 5c 28 5c 5c 28 23 3a 5c 5c 29 5c | g-match-p.(format."^\\(\\(#:\\)\ |
| 82be0 | 5c 7c 3a 5c 5c 29 3f 25 73 24 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | \|:\\)?%s$"..................... |
| 82c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 82c20 | 20 20 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 0a 20 | ...(regexp-quote.symbol-name)).. |
| 82c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 82c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 73 61 76 | ..............symbol))).....(sav |
| 82c80 | 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 63 6c 2d 62 6c 6f 63 6b 20 6e 69 6c 0a | e-excursion.......(cl-block.nil. |
| 82ca0 | 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 | ........(while.(ignore-errors.(s |
| 82cc0 | 6c 69 6d 65 2d 67 6f 74 6f 2d 6e 65 78 74 2d 65 78 70 6f 72 74 2d 63 6c 61 75 73 65 29 20 74 29 | lime-goto-next-export-clause).t) |
| 82ce0 | 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6c 61 75 73 65 2d 65 6e 64 20 28 73 61 | ...........(let.((clause-end.(sa |
| 82d00 | 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 20 28 70 6f 69 | ve-excursion.(forward-sexp).(poi |
| 82d20 | 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 | nt)))).............(save-excursi |
| 82d40 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 73 65 61 72 63 68 2d | on...............(while.(search- |
| 82d60 | 66 6f 72 77 61 72 64 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 63 6c 61 75 73 65 2d 65 6e 64 20 74 | forward.symbol-name.clause-end.t |
| 82d80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 74 61 72 67 65 74 2d | ).................(when.(target- |
| 82da0 | 73 79 6d 62 6f 6c 2d 70 20 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 | symbol-p.(slime-symbol-at-point) |
| 82dc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 74 75 72 6e 20 28 | )...................(cl-return.( |
| 82de0 | 69 66 20 28 73 6c 69 6d 65 2d 69 6e 73 69 64 65 2d 73 74 72 69 6e 67 2d 70 29 0a 20 20 20 20 20 | if.(slime-inside-string-p)...... |
| 82e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 | ............................;;.I |
| 82e20 | 6e 63 6c 75 64 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 22 0a 20 20 20 20 20 20 20 20 20 | nclude.the.following.".......... |
| 82e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2b 20 28 70 6f 69 | ........................(1+.(poi |
| 82e60 | 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt))............................ |
| 82e80 | 20 20 20 20 28 70 6f 69 6e 74 29 29 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | ....(point))))))))))))..(defun.s |
| 82ea0 | 6c 69 6d 65 2d 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e | lime-export-symbols.()..."Return |
| 82ec0 | 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 69 6e 73 69 64 65 20 3a 65 78 70 6f 72 | .a.list.of.symbols.inside.:expor |
| 82ee0 | 74 20 63 6c 61 75 73 65 20 6f 66 20 61 20 64 65 66 70 61 63 6b 61 67 65 2e 22 0a 20 20 3b 3b 20 | t.clause.of.a.defpackage."...;;. |
| 82f00 | 41 73 73 75 6d 65 73 20 77 65 27 72 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f | Assumes.we're.at.the.beginning.o |
| 82f20 | 66 20 3a 65 78 70 6f 72 74 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 72 65 61 64 2d 73 65 | f.:export...(cl-labels.((read-se |
| 82f40 | 78 70 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | xp.()..........................( |
| 82f60 | 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ignore-errors................... |
| 82f80 | 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 6f 6d 6d 65 6e 74 20 28 70 6f 69 6e 74 | .........(forward-comment.(point |
| 82fa0 | 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -max)).......................... |
| 82fc0 | 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 | ..(buffer-substring-no-propertie |
| 82fe0 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | s.............................(p |
| 83000 | 6f 69 6e 74 29 20 28 70 72 6f 67 6e 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 20 28 70 6f 69 | oint).(progn.(forward-sexp).(poi |
| 83020 | 6e 74 29 29 29 29 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 | nt)))))).....(save-excursion.... |
| 83040 | 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 73 65 78 70 20 3d 20 28 72 65 61 64 2d 73 65 78 | ...(cl-loop.for.sexp.=.(read-sex |
| 83060 | 70 29 20 77 68 69 6c 65 20 73 65 78 70 20 63 6f 6c 6c 65 63 74 20 73 65 78 70 29 29 29 29 0a 0a | p).while.sexp.collect.sexp)))).. |
| 83080 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 66 70 61 63 6b 61 67 65 2d 65 78 70 6f 72 74 73 20 | (defun.slime-defpackage-exports. |
| 830a0 | 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 69 | ()..."Return.a.list.of.symbols.i |
| 830c0 | 6e 73 69 64 65 20 3a 65 78 70 6f 72 74 20 63 6c 61 75 73 65 20 6f 66 20 61 20 64 65 66 70 61 63 | nside.:export.clause.of.a.defpac |
| 830e0 | 6b 61 67 65 2e 22 0a 20 20 3b 3b 20 41 73 73 75 6d 65 73 20 77 65 27 72 65 20 69 6e 73 69 64 65 | kage."...;;.Assumes.we're.inside |
| 83100 | 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 20 44 45 46 50 41 43 4b 41 47 45 20 66 | .the.beginning.of.a.DEFPACKAGE.f |
| 83120 | 6f 72 6d 2e 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 6e 6f 72 6d 61 6c 69 7a 65 2d 6e 61 | orm....(cl-labels.((normalize-na |
| 83140 | 6d 65 20 28 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me.(name)....................... |
| 83160 | 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 5c 22 | ........(if.(string-prefix-p."\" |
| 83180 | 22 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ".name)......................... |
| 831a0 | 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ..........(read.name)........... |
| 831c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 | ......................(replace-r |
| 831e0 | 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5e 5c 5c 28 5c 5c 28 23 3a 5c 5c 29 5c 5c 7c | egexp-in-string."^\\(\\(#:\\)\\| |
| 83200 | 3a 5c 5c 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :\\)"........................... |
| 83220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 83240 | 22 22 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a | "".name)))).....(save-excursion. |
| 83260 | 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 6e 6f 72 6d 61 6c 69 7a 65 2d 6e 61 6d 65 0a 20 | ......(mapcar.#'normalize-name.. |
| 83280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 68 69 6c 65 20 28 69 67 6e | .............(cl-loop.while.(ign |
| 832a0 | 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6e 65 78 74 2d 65 78 70 6f | ore-errors.(slime-goto-next-expo |
| 832c0 | 72 74 2d 63 6c 61 75 73 65 29 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rt-clause).t)................... |
| 832e0 | 20 20 20 20 20 64 6f 20 28 64 6f 77 6e 2d 6c 69 73 74 29 20 28 66 6f 72 77 61 72 64 2d 73 65 78 | .....do.(down-list).(forward-sex |
| 83300 | 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 | p)........................append |
| 83320 | 20 28 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 | .(slime-export-symbols)......... |
| 83340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 75 70 2d 6c 69 73 74 29 20 28 62 61 63 | ...............do.(up-list).(bac |
| 83360 | 6b 77 61 72 64 2d 73 65 78 70 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 | kward-sexp))))))..(defun.slime-s |
| 83380 | 79 6d 62 6f 6c 2d 65 78 70 6f 72 74 65 64 2d 70 20 28 6e 61 6d 65 20 73 79 6d 62 6f 6c 73 29 0a | ymbol-exported-p.(name.symbols). |
| 833a0 | 20 20 28 63 6c 2d 6d 65 6d 62 65 72 20 6e 61 6d 65 20 73 79 6d 62 6f 6c 73 20 3a 74 65 73 74 20 | ..(cl-member.name.symbols.:test. |
| 833c0 | 27 63 6c 2d 65 71 75 61 6c 70 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 72 6f 62 2d | 'cl-equalp))..(defun.slime-frob- |
| 833e0 | 64 65 66 70 61 63 6b 61 67 65 2d 66 6f 72 6d 20 28 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 | defpackage-form.(current-package |
| 83400 | 20 64 6f 2d 77 68 61 74 20 73 79 6d 62 6f 6c 73 29 0a 20 20 22 41 64 64 73 2f 72 65 6d 6f 76 65 | .do-what.symbols)..."Adds/remove |
| 83420 | 73 20 60 73 79 6d 62 6f 6c 27 20 66 72 6f 6d 20 74 68 65 20 44 45 46 50 41 43 4b 41 47 45 20 66 | s.`symbol'.from.the.DEFPACKAGE.f |
| 83440 | 6f 72 6d 20 6f 66 20 60 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 27 0a 64 65 70 65 6e 64 69 | orm.of.`current-package'.dependi |
| 83460 | 6e 67 20 6f 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 60 64 6f 2d 77 68 61 74 27 20 77 68 69 | ng.on.the.value.of.`do-what'.whi |
| 83480 | 63 68 20 63 61 6e 20 65 69 74 68 65 72 20 62 65 20 60 3a 65 78 70 6f 72 74 27 2c 0a 6f 72 20 60 | ch.can.either.be.`:export',.or.` |
| 834a0 | 3a 75 6e 65 78 70 6f 72 74 27 2e 0a 0a 52 65 74 75 72 6e 73 20 74 20 69 66 20 74 68 65 20 73 79 | :unexport'...Returns.t.if.the.sy |
| 834c0 | 6d 62 6f 6c 20 77 61 73 20 61 64 64 65 64 2f 72 65 6d 6f 76 65 64 2e 20 4e 69 6c 20 69 66 20 74 | mbol.was.added/removed..Nil.if.t |
| 834e0 | 68 65 20 73 79 6d 62 6f 6c 20 77 61 73 0a 61 6c 72 65 61 64 79 20 65 78 70 6f 72 74 65 64 2f 75 | he.symbol.was.already.exported/u |
| 83500 | 6e 65 78 70 6f 72 74 65 64 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 | nexported."...(save-excursion... |
| 83520 | 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 70 61 63 6b 61 67 65 2d 73 6f 75 72 63 65 2d 64 65 66 | ..(slime-goto-package-source-def |
| 83540 | 69 6e 69 74 69 6f 6e 20 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 0a 20 20 20 20 28 64 6f | inition.current-package).....(do |
| 83560 | 77 6e 2d 6c 69 73 74 20 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | wn-list.1)...................... |
| 83580 | 20 3b 20 65 6e 74 65 72 20 44 45 46 50 41 43 4b 41 47 45 20 66 6f 72 6d 0a 20 20 20 20 28 66 6f | .;.enter.DEFPACKAGE.form.....(fo |
| 835a0 | 72 77 61 72 64 2d 73 65 78 70 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rward-sexp)..................... |
| 835c0 | 20 3b 20 73 6b 69 70 20 44 45 46 50 41 43 4b 41 47 45 20 73 79 6d 62 6f 6c 0a 20 20 20 20 3b 3b | .;.skip.DEFPACKAGE.symbol.....;; |
| 835e0 | 20 44 6f 6e 27 74 20 6f 72 20 77 69 6c 6c 20 66 61 69 6c 20 69 66 20 28 3a 65 78 70 6f 72 74 20 | .Don't.or.will.fail.if.(:export. |
| 83600 | 2e 2e 2e 29 20 69 73 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 66 6f 6c 6c 6f 77 69 6e 67 0a 20 20 | ...).is.immediately.following... |
| 83620 | 20 20 3b 3b 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..;;.(forward-sexp)............. |
| 83640 | 20 20 20 20 20 20 3b 20 73 6b 69 70 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 0a 20 20 20 20 28 6c | ......;.skip.package.name.....(l |
| 83660 | 65 74 20 28 28 65 78 70 6f 72 74 65 64 2d 73 79 6d 62 6f 6c 73 20 28 73 6c 69 6d 65 2d 64 65 66 | et.((exported-symbols.(slime-def |
| 83680 | 70 61 63 6b 61 67 65 2d 65 78 70 6f 72 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 79 6d | package-exports))...........(sym |
| 836a0 | 62 6f 6c 73 20 28 69 66 20 28 63 6f 6e 73 70 20 73 79 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 | bols.(if.(consp.symbols)........ |
| 836c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 73 0a 20 20 20 20 20 20 20 20 | ................symbols......... |
| 836e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 73 79 6d 62 6f 6c 73 29 29 29 0a 20 20 | .............(list.symbols)))... |
| 83700 | 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 2d 6f 66 2d 61 63 74 69 6f 6e 73 20 30 29 29 0a 20 | ........(number-of-actions.0)).. |
| 83720 | 20 20 20 20 20 28 63 6c 2d 65 63 61 73 65 20 64 6f 2d 77 68 61 74 0a 20 20 20 20 20 20 20 20 28 | .....(cl-ecase.do-what.........( |
| 83740 | 3a 65 78 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 61 64 64 2d 65 78 70 6f | :export..........(slime-add-expo |
| 83760 | 72 74 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 73 79 6d 62 6f 6c 20 73 79 6d | rt)..........(dolist.(symbol.sym |
| 83780 | 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 79 6d 62 6f 6c 2d 6e | bols)............(let.((symbol-n |
| 837a0 | 61 6d 65 20 28 73 6c 69 6d 65 2d 63 6c 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c | ame.(slime-cl-symbol-name.symbol |
| 837c0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 73 6c 69 6d 65 2d | )))..............(unless.(slime- |
| 837e0 | 73 79 6d 62 6f 6c 2d 65 78 70 6f 72 74 65 64 2d 70 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 65 78 | symbol-exported-p.symbol-name.ex |
| 83800 | 70 6f 72 74 65 64 2d 73 79 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ported-symbols)................( |
| 83820 | 63 6c 2d 69 6e 63 66 20 6e 75 6d 62 65 72 2d 6f 66 2d 61 63 74 69 6f 6e 73 29 0a 20 20 20 20 20 | cl-incf.number-of-actions)...... |
| 83840 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 65 78 70 6f 72 74 20 73 | ..........(slime-insert-export.s |
| 83860 | 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 3a 75 6e 65 78 70 6f | ymbol-name))))).........(:unexpo |
| 83880 | 72 74 0a 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 73 79 6d 62 6f 6c 20 73 79 6d 62 | rt..........(dolist.(symbol.symb |
| 838a0 | 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 79 6d 62 6f 6c 2d 6e 61 | ols)............(let.((symbol-na |
| 838c0 | 6d 65 20 28 73 6c 69 6d 65 2d 63 6c 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 | me.(slime-cl-symbol-name.symbol) |
| 838e0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 6c 69 6d 65 2d 73 79 6d | ))..............(when.(slime-sym |
| 83900 | 62 6f 6c 2d 65 78 70 6f 72 74 65 64 2d 70 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 65 78 70 6f 72 | bol-exported-p.symbol-name.expor |
| 83920 | 74 65 64 2d 73 79 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | ted-symbols)................(sli |
| 83940 | 6d 65 2d 72 65 6d 6f 76 65 2d 65 78 70 6f 72 74 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 | me-remove-export.symbol-name)... |
| 83960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 6e 75 6d 62 65 72 2d 6f 66 2d | .............(cl-incf.number-of- |
| 83980 | 61 63 74 69 6f 6e 73 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d | actions)))))).......(when.slime- |
| 839a0 | 65 78 70 6f 72 74 2d 73 61 76 65 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 62 | export-save-file.........(save-b |
| 839c0 | 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 6e 75 6d 62 65 72 2d 6f 66 2d 61 63 74 69 6f 6e 73 29 | uffer)).......number-of-actions) |
| 839e0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 64 64 2d 65 78 70 6f 72 74 20 28 29 0a 20 | ))..(defun.slime-add-export.().. |
| 83a00 | 20 28 6c 65 74 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f | .(let.(point).....(save-excursio |
| 83a20 | 6e 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 | n.......(while.(ignore-errors.(s |
| 83a40 | 6c 69 6d 65 2d 67 6f 74 6f 2d 6e 65 78 74 2d 65 78 70 6f 72 74 2d 63 6c 61 75 73 65 29 20 74 29 | lime-goto-next-export-clause).t) |
| 83a60 | 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 29 29 0a | .........(setq.point.(point)))). |
| 83a80 | 20 20 20 20 28 63 6f 6e 64 20 28 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 | ....(cond.(point............(got |
| 83aa0 | 6f 2d 63 68 61 72 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c | o-char.point)............(down-l |
| 83ac0 | 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 6c 69 | ist)............(slime-end-of-li |
| 83ae0 | 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | st))...........(t............(sl |
| 83b00 | 69 6d 65 2d 65 6e 64 2d 6f 66 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c | ime-end-of-list)............(unl |
| 83b20 | 65 73 73 20 28 6c 6f 6f 6b 69 6e 67 2d 62 61 63 6b 20 22 5e 5c 5c 73 2d 2a 22 29 0a 20 20 20 20 | ess.(looking-back."^\\s-*")..... |
| 83b40 | 20 20 20 20 20 20 20 20 20 28 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 69 6e 64 65 6e 74 29 29 0a 20 | .........(newline-and-indent)).. |
| 83b60 | 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 28 3a 65 78 70 6f 72 74 20 22 29 0a 20 | ..........(insert."(:export.").. |
| 83b80 | 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 69 6e 73 65 72 | ..........(save-excursion.(inser |
| 83ba0 | 74 20 22 29 22 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 74 65 72 6d | t.")"))))))..(defun.slime-determ |
| 83bc0 | 69 6e 65 2d 73 79 6d 62 6f 6c 2d 73 74 79 6c 65 20 28 29 0a 20 20 3b 3b 20 41 73 73 75 6d 65 73 | ine-symbol-style.()...;;.Assumes |
| 83be0 | 20 77 65 27 72 65 20 69 6e 73 69 64 65 20 3a 65 78 70 6f 72 74 0a 20 20 28 73 61 76 65 2d 65 78 | .we're.inside.:export...(save-ex |
| 83c00 | 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d | cursion.....(slime-beginning-of- |
| 83c20 | 6c 69 73 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 73 65 78 70 29 0a 20 | list).....(slime-forward-sexp).. |
| 83c40 | 20 20 20 28 6c 65 74 20 28 28 73 79 6d 62 6f 6c 73 20 28 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d | ...(let.((symbols.(slime-export- |
| 83c60 | 73 79 6d 62 6f 6c 73 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 73 79 | symbols))).......(cond.((null.sy |
| 83c80 | 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 65 78 70 6f 72 74 | mbols)..............slime-export |
| 83ca0 | 2d 73 79 6d 62 6f 6c 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 | -symbol-representation-function) |
| 83cc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 6c 2d 65 76 65 72 79 20 28 6c 61 6d 62 64 61 20 | .............((cl-every.(lambda. |
| 83ce0 | 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 | (x)..........................(st |
| 83d00 | 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 3a 22 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ring-match."^:".x))............. |
| 83d20 | 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...........symbols)............. |
| 83d40 | 20 28 6c 61 6d 62 64 61 20 28 6e 29 20 28 66 6f 72 6d 61 74 20 22 3a 25 73 22 20 6e 29 29 29 0a | .(lambda.(n).(format.":%s".n))). |
| 83d60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 6c 2d 65 76 65 72 79 20 28 6c 61 6d 62 64 61 20 28 | ............((cl-every.(lambda.( |
| 83d80 | 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 | x)..........................(str |
| 83da0 | 69 6e 67 2d 6d 61 74 63 68 20 22 5e 23 3a 22 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ing-match."^#:".x))............. |
| 83dc0 | 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...........symbols)............. |
| 83de0 | 20 28 6c 61 6d 62 64 61 20 28 6e 29 20 28 66 6f 72 6d 61 74 20 22 23 3a 25 73 22 20 6e 29 29 29 | .(lambda.(n).(format."#:%s".n))) |
| 83e00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 6c 2d 65 76 65 72 79 20 28 6c 61 6d 62 64 61 20 | .............((cl-every.(lambda. |
| 83e20 | 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 | (x)..........................(st |
| 83e40 | 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 5c 22 22 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 | ring-prefix-p."\"".x)).......... |
| 83e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 | ..............symbols).......... |
| 83e80 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6e 29 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 | ....(lambda.(n).(prin1-to-string |
| 83ea0 | 20 28 75 70 63 61 73 65 20 28 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 | .(upcase.(substring-no-propertie |
| 83ec0 | 73 20 6e 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 | s.n))))).............(t......... |
| 83ee0 | 20 20 20 20 20 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 2d 72 65 70 72 65 73 65 | .....slime-export-symbol-represe |
| 83f00 | 6e 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | ntation-function)))))..(defun.sl |
| 83f20 | 69 6d 65 2d 66 6f 72 6d 61 74 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 64 65 66 70 61 63 6b 61 67 65 | ime-format-symbol-for-defpackage |
| 83f40 | 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 69 66 20 73 6c | .(symbol-name)...(funcall.(if.sl |
| 83f60 | 69 6d 65 2d 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e | ime-export-symbol-representation |
| 83f80 | 2d 61 75 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 65 74 65 | -auto................(slime-dete |
| 83fa0 | 72 6d 69 6e 65 2d 73 79 6d 62 6f 6c 2d 73 74 79 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | rmine-symbol-style)............. |
| 83fc0 | 20 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 2d 72 65 70 72 65 73 65 6e 74 61 74 | .slime-export-symbol-representat |
| 83fe0 | 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 2d | ion-function)............symbol- |
| 84000 | 6e 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 65 78 70 6f | name))..(defun.slime-insert-expo |
| 84020 | 72 74 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 3b 3b 20 41 73 73 75 6d 65 73 20 77 65 | rt.(symbol-name)...;;.Assumes.we |
| 84040 | 27 72 65 20 61 74 20 74 68 65 20 69 6e 73 69 64 65 20 3a 65 78 70 6f 72 74 20 61 66 74 65 72 20 | 're.at.the.inside.:export.after. |
| 84060 | 74 68 65 20 6c 61 73 74 20 73 79 6d 62 6f 6c 0a 20 20 28 6c 65 74 20 28 28 73 79 6d 62 6f 6c 2d | the.last.symbol...(let.((symbol- |
| 84080 | 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 66 6f 72 6d 61 74 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 64 65 | name.(slime-format-symbol-for-de |
| 840a0 | 66 70 61 63 6b 61 67 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 75 6e 6c | fpackage.symbol-name))).....(unl |
| 840c0 | 65 73 73 20 28 6c 6f 6f 6b 69 6e 67 2d 62 61 63 6b 20 22 5e 5c 5c 73 2d 2a 22 29 0a 20 20 20 20 | ess.(looking-back."^\\s-*")..... |
| 840e0 | 20 20 28 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 69 6e 64 65 6e 74 29 29 0a 20 20 20 20 28 69 6e 73 | ..(newline-and-indent)).....(ins |
| 84100 | 65 72 74 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | ert.symbol-name)))..(defun.slime |
| 84120 | 2d 72 65 6d 6f 76 65 2d 65 78 70 6f 72 74 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 3b | -remove-export.(symbol-name)...; |
| 84140 | 3b 20 41 73 73 75 6d 65 73 20 77 65 27 72 65 20 69 6e 73 69 64 65 20 74 68 65 20 62 65 67 69 6e | ;.Assumes.we're.inside.the.begin |
| 84160 | 6e 69 6e 67 20 6f 66 20 61 20 44 45 46 50 41 43 4b 41 47 45 20 66 6f 72 6d 2e 0a 20 20 28 6c 65 | ning.of.a.DEFPACKAGE.form....(le |
| 84180 | 74 20 28 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 73 65 74 71 20 70 6f 69 | t.((point)).....(while.(setq.poi |
| 841a0 | 6e 74 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 65 78 70 6f 72 74 73 2d 69 6e 2d 64 65 66 70 | nt.(slime-search-exports-in-defp |
| 841c0 | 61 63 6b 61 67 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 | ackage.symbol-name)).......(save |
| 841e0 | 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f | -excursion.........(goto-char.po |
| 84200 | 69 6e 74 29 0a 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 | int).........(backward-sexp).... |
| 84220 | 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 29 20 70 6f 69 6e | .....(delete-region.(point).poin |
| 84240 | 74 29 0a 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 0a 20 | t).........(beginning-of-line).. |
| 84260 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 5c 5c 73 2d 2a | .......(when.(looking-at."^\\s-* |
| 84280 | 24 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 6a 6f 69 6e 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 | $")...........(join-line)....... |
| 842a0 | 20 20 20 20 28 64 65 6c 65 74 65 2d 74 72 61 69 6c 69 6e 67 2d 77 68 69 74 65 73 70 61 63 65 20 | ....(delete-trailing-whitespace. |
| 842c0 | 28 70 6f 69 6e 74 29 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 29 29 | (point).(line-end-position)))))) |
| 842e0 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 2d 61 74 | )..(defun.slime-export-symbol-at |
| 84300 | 2d 70 6f 69 6e 74 20 28 29 0a 20 20 22 41 64 64 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 | -point.()..."Add.the.symbol.at.p |
| 84320 | 6f 69 6e 74 20 74 6f 20 74 68 65 20 64 65 66 70 61 63 6b 61 67 65 20 73 6f 75 72 63 65 20 64 65 | oint.to.the.defpackage.source.de |
| 84340 | 66 69 6e 69 74 69 6f 6e 0a 62 65 6c 6f 6e 67 69 6e 67 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e | finition.belonging.to.the.curren |
| 84360 | 74 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2e 20 57 69 74 68 20 70 72 65 66 69 78 2d 61 72 | t.buffer-package..With.prefix-ar |
| 84380 | 67 2c 20 72 65 6d 6f 76 65 0a 74 68 65 20 73 79 6d 62 6f 6c 20 61 67 61 69 6e 2e 20 41 64 64 69 | g,.remove.the.symbol.again..Addi |
| 843a0 | 74 69 6f 6e 61 6c 6c 79 20 70 65 72 66 6f 72 6d 73 20 61 6e 20 45 58 50 4f 52 54 2f 55 4e 45 58 | tionally.performs.an.EXPORT/UNEX |
| 843c0 | 50 4f 52 54 20 6f 66 20 74 68 65 0a 73 79 6d 62 6f 6c 20 69 6e 20 74 68 65 20 4c 69 73 70 20 69 | PORT.of.the.symbol.in.the.Lisp.i |
| 843e0 | 6d 61 67 65 20 69 66 20 70 6f 73 73 69 62 6c 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | mage.if.possible."...(interactiv |
| 84400 | 65 29 0a 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 | e)...(let.((package.(slime-curre |
| 84420 | 6e 74 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 73 6c | nt-package)).........(symbol.(sl |
| 84440 | 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 | ime-symbol-at-point))).....(unle |
| 84460 | 73 73 20 73 79 6d 62 6f 6c 20 28 65 72 72 6f 72 20 22 4e 6f 20 73 79 6d 62 6f 6c 20 61 74 20 70 | ss.symbol.(error."No.symbol.at.p |
| 84480 | 6f 69 6e 74 2e 22 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 63 75 72 72 65 6e 74 2d 70 72 65 66 | oint.")).....(cond.(current-pref |
| 844a0 | 69 78 2d 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 6c 2d 70 6c 75 73 70 20 | ix-arg............(if.(cl-plusp. |
| 844c0 | 28 73 6c 69 6d 65 2d 66 72 6f 62 2d 64 65 66 70 61 63 6b 61 67 65 2d 66 6f 72 6d 20 70 61 63 6b | (slime-frob-defpackage-form.pack |
| 844e0 | 61 67 65 20 3a 75 6e 65 78 70 6f 72 74 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 | age.:unexport.symbol)).......... |
| 84500 | 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 53 79 6d 62 6f 6c 20 60 25 73 27 20 6e 6f 20 6c | ......(message."Symbol.`%s'.no.l |
| 84520 | 6f 6e 67 65 72 20 65 78 70 6f 72 74 65 64 20 66 6f 72 6d 20 60 25 73 27 22 0a 20 20 20 20 20 20 | onger.exported.form.`%s'"....... |
| 84540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 | ..................symbol.package |
| 84560 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 53 79 6d 62 6f 6c 20 | )..............(message."Symbol. |
| 84580 | 60 25 73 27 20 69 73 20 6e 6f 74 20 65 78 70 6f 72 74 65 64 20 66 72 6f 6d 20 60 25 73 27 22 0a | `%s'.is.not.exported.from.`%s'". |
| 845a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 20 70 61 63 | ......................symbol.pac |
| 845c0 | 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 75 6e 65 78 70 6f 72 | kage))............(slime-unexpor |
| 845e0 | 74 2d 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 | t-symbol.symbol.package))....... |
| 84600 | 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 6c 2d 70 6c 75 73 70 20 | ....(t............(if.(cl-plusp. |
| 84620 | 28 73 6c 69 6d 65 2d 66 72 6f 62 2d 64 65 66 70 61 63 6b 61 67 65 2d 66 6f 72 6d 20 70 61 63 6b | (slime-frob-defpackage-form.pack |
| 84640 | 61 67 65 20 3a 65 78 70 6f 72 74 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | age.:export.symbol))............ |
| 84660 | 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 53 79 6d 62 6f 6c 20 60 25 73 27 20 6e 6f 77 20 65 78 | ....(message."Symbol.`%s'.now.ex |
| 84680 | 70 6f 72 74 65 64 20 66 72 6f 6d 20 60 25 73 27 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ported.from.`%s'"............... |
| 846a0 | 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 | ..........symbol.package)....... |
| 846c0 | 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 53 79 6d 62 6f 6c 20 60 25 73 27 20 61 6c 72 | .......(message."Symbol.`%s'.alr |
| 846e0 | 65 61 64 79 20 65 78 70 6f 72 74 65 64 20 66 72 6f 6d 20 60 25 73 27 22 0a 20 20 20 20 20 20 20 | eady.exported.from.`%s'"........ |
| 84700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 29 0a | ...............symbol.package)). |
| 84720 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d 73 79 6d 62 6f 6c 20 | ...........(slime-export-symbol. |
| 84740 | 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | symbol.package)))))..(defun.slim |
| 84760 | 65 2d 65 78 70 6f 72 74 2d 63 6c 61 73 73 20 28 6e 61 6d 65 29 0a 20 20 22 45 78 70 6f 72 74 20 | e-export-class.(name)..."Export. |
| 84780 | 61 63 65 73 73 6f 72 73 2c 20 63 6f 6e 73 74 72 75 63 74 6f 72 73 2c 20 65 74 63 2e 20 61 73 73 | acessors,.constructors,.etc..ass |
| 847a0 | 6f 63 69 61 74 65 64 20 77 69 74 68 20 61 20 73 74 72 75 63 74 75 72 65 20 6f 72 20 61 20 63 6c | ociated.with.a.structure.or.a.cl |
| 847c0 | 61 73 73 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 | ass"...(interactive.(list.(slime |
| 847e0 | 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 45 78 70 6f 72 74 20 73 74 | -read-from-minibuffer."Export.st |
| 84800 | 72 75 63 74 75 72 65 20 6e 61 6d 65 64 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ructure.named:."................ |
| 84820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 84840 | 20 20 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 28 | ..(slime-symbol-at-point))))...( |
| 84860 | 6c 65 74 2a 20 28 28 70 61 63 6b 61 67 65 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 | let*.((package.(slime-current-pa |
| 84880 | 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 73 20 28 73 6c 69 6d 65 | ckage))..........(symbols.(slime |
| 848a0 | 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 65 78 70 6f 72 74 2d 73 74 72 75 63 74 75 72 65 20 2c | -eval.`(swank:export-structure., |
| 848c0 | 6e 61 6d 65 20 2c 70 61 63 6b 61 67 65 29 29 29 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 | name.,package)))).....(message." |
| 848e0 | 25 73 20 73 79 6d 62 6f 6c 73 20 65 78 70 6f 72 74 65 64 20 66 72 6f 6d 20 60 25 73 27 22 0a 20 | %s.symbols.exported.from.`%s'".. |
| 84900 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 72 6f 62 2d 64 65 66 70 61 63 6b 61 | ............(slime-frob-defpacka |
| 84920 | 67 65 2d 66 6f 72 6d 20 70 61 63 6b 61 67 65 20 3a 65 78 70 6f 72 74 20 73 79 6d 62 6f 6c 73 29 | ge-form.package.:export.symbols) |
| 84940 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 63 6b 61 67 65 29 29 29 0a 0a 28 64 65 66 61 6c | ..............package)))..(defal |
| 84960 | 69 61 73 20 27 73 6c 69 6d 65 2d 65 78 70 6f 72 74 2d 73 74 72 75 63 74 75 72 65 20 27 73 6c 69 | ias.'slime-export-structure.'sli |
| 84980 | 6d 65 2d 65 78 70 6f 72 74 2d 63 6c 61 73 73 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d | me-export-class)..(provide.'slim |
| 849a0 | 65 2d 70 61 63 6b 61 67 65 2d 66 75 29 0a 0a 3b 3b 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 | e-package-fu)..;;.Local.Variable |
| 849c0 | 73 3a 0a 3b 3b 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 3b 3b 20 45 | s:.;;.indent-tabs-mode:.nil.;;.E |
| 849e0 | 6e 64 3a 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | nd:............................. |
| 84a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 | slime-2.31/contrib/slime-editing |
| 84a20 | 2d 63 6f 6d 6d 61 6e 64 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | -commands.el.................... |
| 84a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 84a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 84a80 | 30 30 31 36 31 32 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 35 32 32 00 20 30 00 00 00 | 0016120.00000000000.017522..0... |
| 84aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 84ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 84ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 84b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 84b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 84b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 84b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 84b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 84ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 84bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 84be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 84c00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 | (require.'slime).(require.'slime |
| 84c20 | 2d 72 65 70 6c 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 69 6e | -repl).(require.'cl-lib)..(defin |
| 84c40 | 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 63 6f | e-slime-contrib.slime-editing-co |
| 84c60 | 6d 6d 61 6e 64 73 0a 20 20 22 45 64 69 74 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 77 69 74 68 6f | mmands..."Editing.commands.witho |
| 84c80 | 75 74 20 73 65 72 76 65 72 20 69 6e 74 65 72 61 63 74 69 6f 6e 2e 22 0a 20 20 28 3a 61 75 74 68 | ut.server.interaction."...(:auth |
| 84ca0 | 6f 72 73 20 22 54 68 6f 6d 61 73 20 46 2e 20 42 75 72 64 69 63 6b 20 20 3c 74 66 62 40 4f 43 46 | ors."Thomas.F..Burdick..<tfb@OCF |
| 84cc0 | 2e 42 65 72 6b 65 6c 65 79 2e 45 44 55 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 4c 75 6b | .Berkeley.EDU>"............."Luk |
| 84ce0 | 65 20 47 6f 72 72 69 65 20 20 3c 6c 75 6b 65 40 73 79 6e 61 70 2e 73 65 3e 22 0a 20 20 20 20 20 | e.Gorrie..<luke@synap.se>"...... |
| 84d00 | 20 20 20 20 20 20 20 22 42 69 6c 6c 20 43 6c 65 6d 65 6e 74 73 6f 6e 20 3c 62 69 6c 6c 63 6c 65 | ......."Bill.Clementson.<billcle |
| 84d20 | 6d 40 67 6d 61 69 6c 2e 63 6f 6d 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 54 6f 62 69 61 | m@gmail.com>"............."Tobia |
| 84d40 | 73 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 73 2e 64 65 | s.C..Rittweiler.<tcr@freebits.de |
| 84d60 | 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 6f 6e 2d 6c 6f | >")...(:license."GPL")...(:on-lo |
| 84d80 | 61 64 0a 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 | ad....(define-key.slime-mode-map |
| 84da0 | 20 22 5c 4d 2d 5c 43 2d 61 22 20 20 27 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d | ."\M-\C-a"..'slime-beginning-of- |
| 84dc0 | 64 65 66 75 6e 29 0a 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 6f 64 65 | defun)....(define-key.slime-mode |
| 84de0 | 2d 6d 61 70 20 22 5c 4d 2d 5c 43 2d 65 22 20 20 27 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 64 65 | -map."\M-\C-e"..'slime-end-of-de |
| 84e00 | 66 75 6e 29 0a 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d | fun)....(define-key.slime-mode-m |
| 84e20 | 61 70 20 22 5c 43 2d 63 5c 4d 2d 71 22 20 27 73 6c 69 6d 65 2d 72 65 69 6e 64 65 6e 74 2d 64 65 | ap."\C-c\M-q".'slime-reindent-de |
| 84e40 | 66 75 6e 29 0a 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d | fun)....(define-key.slime-mode-m |
| 84e60 | 61 70 20 22 5c 43 2d 63 5c 43 2d 5d 22 20 27 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 61 6c 6c 2d 70 | ap."\C-c\C-]".'slime-close-all-p |
| 84e80 | 61 72 65 6e 73 2d 69 6e 2d 73 65 78 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 | arens-in-sexp)))..(defun.slime-b |
| 84ea0 | 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 | eginning-of-defun.()...(interact |
| 84ec0 | 69 76 65 29 0a 20 20 28 69 66 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 73 6c 69 6d 65 2d 72 | ive)...(if.(and.(boundp.'slime-r |
| 84ee0 | 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 20 20 20 20 20 20 20 20 20 | epl-input-start-mark)........... |
| 84f00 | 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 20 | .slime-repl-input-start-mark)... |
| 84f20 | 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 | ....(slime-repl-beginning-of-def |
| 84f40 | 75 6e 29 0a 20 20 20 20 28 6c 65 74 20 28 28 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 27 62 65 67 | un).....(let.((this-command.'beg |
| 84f60 | 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 29 29 20 3b 20 6e 65 65 64 65 64 20 66 6f 72 20 70 | inning-of-defun)).;.needed.for.p |
| 84f80 | 75 73 68 2d 6d 61 72 6b 0a 20 20 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 | ush-mark.......(call-interactive |
| 84fa0 | 6c 79 20 27 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 29 29 29 29 0a 0a 28 64 65 66 | ly.'beginning-of-defun))))..(def |
| 84fc0 | 75 6e 20 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 20 28 29 0a 20 20 28 69 6e 74 65 | un.slime-end-of-defun.()...(inte |
| 84fe0 | 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 73 | ractive)...(if.(eq.major-mode.'s |
| 85000 | 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 | lime-repl-mode).......(slime-rep |
| 85020 | 6c 2d 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 29 0a 20 20 20 20 20 20 28 65 6e 64 2d 6f 66 2d 64 65 | l-end-of-defun).......(end-of-de |
| 85040 | 66 75 6e 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6d 6d 65 6e 74 2d 73 74 | fun)))..(defvar.slime-comment-st |
| 85060 | 61 72 74 2d 72 65 67 65 78 70 0a 20 20 22 5c 5c 28 5c 5c 28 5e 5c 5c 7c 5b 5e 5c 6e 5c 5c 5c 5c | art-regexp..."\\(\\(^\\|[^\n\\\\ |
| 85080 | 5d 5c 5c 29 5c 5c 28 5b 5c 5c 5c 5c 5d 5b 5c 5c 5c 5c 5d 5c 5c 29 2a 5c 5c 29 3b 2b 5b 20 5c 74 | ]\\)\\([\\\\][\\\\]\\)*\\);+[.\t |
| 850a0 | 5d 2a 22 0a 20 20 22 52 65 67 65 78 70 20 74 6f 20 6d 61 74 63 68 20 74 68 65 20 73 74 61 72 74 | ]*"..."Regexp.to.match.the.start |
| 850c0 | 20 6f 66 20 61 20 63 6f 6d 6d 65 6e 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 | .of.a.comment.")..(defun.slime-b |
| 850e0 | 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 63 6f 6d 6d 65 6e 74 20 28 29 0a 20 20 22 4d 6f 76 65 20 70 | eginning-of-comment.()..."Move.p |
| 85100 | 6f 69 6e 74 20 74 6f 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 63 6f 6d 6d 65 6e 74 2e 0a 49 66 | oint.to.beginning.of.comment..If |
| 85120 | 20 70 6f 69 6e 74 20 69 73 20 69 6e 73 69 64 65 20 61 20 63 6f 6d 6d 65 6e 74 20 6d 6f 76 65 20 | .point.is.inside.a.comment.move. |
| 85140 | 74 6f 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 63 6f 6d 6d 65 6e 74 20 61 6e 64 20 72 65 74 75 | to.beginning.of.comment.and.retu |
| 85160 | 72 6e 20 70 6f 69 6e 74 2e 0a 4f 74 68 65 72 77 69 73 65 20 6c 65 61 76 65 20 70 6f 69 6e 74 20 | rn.point..Otherwise.leave.point. |
| 85180 | 75 6e 63 68 61 6e 67 65 64 20 61 6e 64 20 72 65 74 75 72 6e 20 4e 49 4c 2e 22 0a 20 20 28 6c 65 | unchanged.and.return.NIL."...(le |
| 851a0 | 74 20 28 28 62 6f 75 6e 64 61 72 79 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 62 65 67 69 | t.((boundary.(point))).....(begi |
| 851c0 | 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 72 65 2d 73 65 | nning-of-line).....(cond.((re-se |
| 851e0 | 61 72 63 68 2d 66 6f 72 77 61 72 64 20 73 6c 69 6d 65 2d 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 | arch-forward.slime-comment-start |
| 85200 | 2d 72 65 67 65 78 70 20 62 6f 75 6e 64 61 72 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | -regexp.boundary.t)............( |
| 85220 | 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 67 6f 74 6f 2d 63 68 61 72 20 | point))...........(t.(goto-char. |
| 85240 | 62 6f 75 6e 64 61 72 79 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 0a | boundary)...............nil)))). |
| 85260 | 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 70 61 72 65 6e 73 2d 6c 69 6d 69 | .(defvar.slime-close-parens-limi |
| 85280 | 74 20 6e 69 6c 0a 20 20 22 4d 61 78 6d 69 6d 75 6d 20 70 61 72 65 6e 73 20 66 6f 72 20 60 73 6c | t.nil..."Maxmimum.parens.for.`sl |
| 852a0 | 69 6d 65 2d 63 6c 6f 73 65 2d 61 6c 6c 2d 73 65 78 70 27 20 74 6f 20 69 6e 73 65 72 74 2e 20 4e | ime-close-all-sexp'.to.insert..N |
| 852c0 | 49 4c 0a 6d 65 61 6e 73 20 74 6f 20 69 6e 73 65 72 74 20 61 73 20 6d 61 6e 79 20 70 61 72 65 6e | IL.means.to.insert.as.many.paren |
| 852e0 | 74 68 65 73 65 73 20 61 73 20 6e 65 63 65 73 73 61 72 79 20 74 6f 20 63 6f 72 72 65 63 74 6c 79 | theses.as.necessary.to.correctly |
| 85300 | 0a 63 6c 6f 73 65 20 74 68 65 20 66 6f 72 6d 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | .close.the.form.")..(defun.slime |
| 85320 | 2d 63 6c 6f 73 65 2d 61 6c 6c 2d 70 61 72 65 6e 73 2d 69 6e 2d 73 65 78 70 20 28 26 6f 70 74 69 | -close-all-parens-in-sexp.(&opti |
| 85340 | 6f 6e 61 6c 20 72 65 67 69 6f 6e 29 0a 20 20 22 42 61 6c 61 6e 63 65 20 70 61 72 65 6e 74 68 65 | onal.region)..."Balance.parenthe |
| 85360 | 73 65 73 20 6f 66 20 6f 70 65 6e 20 73 2d 65 78 70 72 65 73 73 69 6f 6e 73 20 61 74 20 70 6f 69 | ses.of.open.s-expressions.at.poi |
| 85380 | 6e 74 2e 0a 49 6e 73 65 72 74 20 65 6e 6f 75 67 68 20 72 69 67 68 74 20 70 61 72 65 6e 74 68 65 | nt..Insert.enough.right.parenthe |
| 853a0 | 73 65 73 20 74 6f 20 62 61 6c 61 6e 63 65 20 75 6e 6d 61 74 63 68 65 64 20 6c 65 66 74 20 70 61 | ses.to.balance.unmatched.left.pa |
| 853c0 | 72 65 6e 74 68 65 73 65 73 2e 0a 44 65 6c 65 74 65 20 65 78 74 72 61 20 6c 65 66 74 20 70 61 72 | rentheses..Delete.extra.left.par |
| 853e0 | 65 6e 74 68 65 73 65 73 2e 20 20 52 65 66 6f 72 6d 61 74 20 74 72 61 69 6c 69 6e 67 20 70 61 72 | entheses...Reformat.trailing.par |
| 85400 | 65 6e 74 68 65 73 65 73 20 0a 4c 69 73 70 2d 73 74 79 6c 69 73 68 6c 79 2e 0a 0a 49 66 20 52 45 | entheses..Lisp-stylishly...If.RE |
| 85420 | 47 49 4f 4e 20 69 73 20 74 72 75 65 2c 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 72 65 67 | GION.is.true,.operate.on.the.reg |
| 85440 | 69 6f 6e 2e 20 4f 74 68 65 72 77 69 73 65 20 6f 70 65 72 61 74 65 20 6f 6e 0a 74 68 65 20 74 6f | ion..Otherwise.operate.on.the.to |
| 85460 | 70 2d 6c 65 76 65 6c 20 73 65 78 70 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 22 0a 20 20 28 69 | p-level.sexp.before.point."...(i |
| 85480 | 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 6c 65 74 20 28 28 73 65 78 70 2d 6c 65 | nteractive."P")...(let.((sexp-le |
| 854a0 | 76 65 6c 20 30 29 0a 20 20 20 20 20 20 20 20 70 6f 69 6e 74 29 0a 20 20 20 20 28 73 61 76 65 2d | vel.0).........point).....(save- |
| 854c0 | 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f | excursion.......(save-restrictio |
| 854e0 | 6e 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 67 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | n.........(when.region.......... |
| 85500 | 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 28 72 65 67 69 6f 6e 2d 62 65 67 69 6e | .(narrow-to-region.(region-begin |
| 85520 | 6e 69 6e 67 29 20 28 72 65 67 69 6f 6e 2d 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 | ning).(region-end))...........(g |
| 85540 | 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 20 20 20 20 20 20 20 20 3b | oto-char.(point-max))).........; |
| 85560 | 3b 20 73 6b 69 70 20 6f 76 65 72 20 63 6c 6f 73 69 6e 67 20 70 61 72 65 6e 73 2c 20 62 75 74 20 | ;.skip.over.closing.parens,.but. |
| 85580 | 6e 6f 74 20 69 6e 74 6f 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 28 73 6b 69 70 2d 63 | not.into.comment.........(skip-c |
| 855a0 | 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 29 20 5c 74 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 | hars-backward.").\t\n")......... |
| 855c0 | 28 77 68 65 6e 20 28 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 63 6f 6d 6d 65 6e | (when.(slime-beginning-of-commen |
| 855e0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 0a 20 20 20 20 | t)...........(forward-line)..... |
| 85600 | 20 20 20 20 20 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 5c 74 22 29 | ......(skip-chars-forward.".\t") |
| 85620 | 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 0a 20 | ).........(setq.point.(point)).. |
| 85640 | 20 20 20 20 20 20 20 3b 3b 20 63 6f 75 6e 74 20 73 65 78 70 73 20 75 6e 74 69 6c 20 65 69 74 68 | .......;;.count.sexps.until.eith |
| 85660 | 65 72 20 27 28 27 20 6f 72 20 63 6f 6d 6d 65 6e 74 20 69 73 20 66 6f 75 6e 64 20 61 74 20 66 69 | er.'('.or.comment.is.found.at.fi |
| 85680 | 72 73 74 20 63 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 | rst.column.........(while.(and.( |
| 856a0 | 6e 6f 74 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 5b 28 3b 5d 22 29 29 0a 09 09 20 20 20 20 | not.(looking-at."^[(;]"))....... |
| 856c0 | 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 | (ignore-errors.(backward-up-list |
| 856e0 | 20 31 29 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 73 65 78 70 2d | .1).t))...........(cl-incf.sexp- |
| 85700 | 6c 65 76 65 6c 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 3e 20 73 65 78 70 2d 6c 65 76 65 | level)))).....(when.(>.sexp-leve |
| 85720 | 6c 20 30 29 0a 20 20 20 20 20 20 3b 3b 20 69 6e 73 65 72 74 20 63 6f 72 72 65 63 74 20 6e 75 6d | l.0).......;;.insert.correct.num |
| 85740 | 62 65 72 20 6f 66 20 72 69 67 68 74 20 70 61 72 65 6e 73 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d | ber.of.right.parens.......(goto- |
| 85760 | 63 68 61 72 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 73 65 | char.point).......(dotimes.(i.se |
| 85780 | 78 70 2d 6c 65 76 65 6c 29 20 28 69 6e 73 65 72 74 20 22 29 22 29 29 0a 20 20 20 20 20 20 3b 3b | xp-level).(insert.")")).......;; |
| 857a0 | 20 64 65 6c 65 74 65 20 65 78 74 72 61 20 72 69 67 68 74 20 70 61 72 65 6e 73 0a 20 20 20 20 20 | .delete.extra.right.parens...... |
| 857c0 | 20 28 73 65 74 71 20 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 73 6b 69 | .(setq.point.(point)).......(ski |
| 857e0 | 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 5c 74 5c 6e 29 22 29 0a 20 20 20 20 20 20 | p-chars-forward.".\t\n)")....... |
| 85800 | 28 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 5c 74 5c 6e 22 29 0a 20 20 | (skip-chars-backward.".\t\n")... |
| 85820 | 20 20 20 20 28 6c 65 74 2a 20 28 28 64 65 6c 65 74 65 64 2d 72 65 67 69 6f 6e 20 20 20 20 20 28 | ....(let*.((deleted-region.....( |
| 85840 | 64 65 6c 65 74 65 2d 61 6e 64 2d 65 78 74 72 61 63 74 2d 72 65 67 69 6f 6e 20 70 6f 69 6e 74 20 | delete-and-extract-region.point. |
| 85860 | 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 64 2d | (point)))..............(deleted- |
| 85880 | 74 65 78 74 20 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 | text.......(substring-no-propert |
| 858a0 | 69 65 73 20 64 65 6c 65 74 65 64 2d 72 65 67 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ies.deleted-region))............ |
| 858c0 | 20 20 28 70 72 69 6f 72 2d 70 61 72 65 6e 73 2d 63 6f 75 6e 74 20 28 63 6c 2d 63 6f 75 6e 74 20 | ..(prior-parens-count.(cl-count. |
| 858e0 | 3f 5c 29 20 64 65 6c 65 74 65 64 2d 74 65 78 74 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 52 | ?\).deleted-text))).........;;.R |
| 85900 | 65 6d 65 6d 62 65 72 3a 20 77 65 20 61 6c 77 61 79 73 20 69 6e 73 65 72 74 20 61 73 20 6d 61 6e | emember:.we.always.insert.as.man |
| 85920 | 79 20 70 61 72 65 6e 74 68 65 73 65 73 20 61 73 20 6e 65 63 65 73 73 61 72 79 0a 20 20 20 20 20 | y.parentheses.as.necessary...... |
| 85940 | 20 20 20 3b 3b 20 61 6e 64 20 6f 6e 6c 79 20 61 66 74 65 72 77 61 72 64 73 20 64 65 6c 65 74 65 | ...;;.and.only.afterwards.delete |
| 85960 | 20 74 68 65 20 73 75 70 65 72 66 6c 75 6f 75 73 6c 79 2d 61 64 64 65 64 20 70 61 72 65 6e 73 2e | .the.superfluously-added.parens. |
| 85980 | 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 70 61 72 65 6e | .........(when.slime-close-paren |
| 859a0 | 73 2d 6c 69 6d 69 74 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 69 73 73 69 6e 67 | s-limit...........(let.((missing |
| 859c0 | 2d 70 61 72 65 6e 73 20 28 2d 20 73 65 78 70 2d 6c 65 76 65 6c 20 70 72 69 6f 72 2d 70 61 72 65 | -parens.(-.sexp-level.prior-pare |
| 859e0 | 6e 73 2d 63 6f 75 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ns-count........................ |
| 85a00 | 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 70 61 72 65 6e 73 2d 6c | ............slime-close-parens-l |
| 85a20 | 69 6d 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 | imit))).............(dotimes.(i. |
| 85a40 | 28 6d 61 78 20 30 20 6d 69 73 73 69 6e 67 2d 70 61 72 65 6e 73 29 29 0a 20 20 20 20 20 20 20 20 | (max.0.missing-parens))......... |
| 85a60 | 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 31 29 29 29 29 29 29 29 29 0a 0a 28 | ......(delete-char.-1))))))))..( |
| 85a80 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 62 61 6c 61 6e 63 65 64 2d 63 6f 6d 6d | defun.slime-insert-balanced-comm |
| 85aa0 | 65 6e 74 73 20 28 61 72 67 29 0a 20 20 22 49 6e 73 65 72 74 20 61 20 73 65 74 20 6f 66 20 62 61 | ents.(arg)..."Insert.a.set.of.ba |
| 85ac0 | 6c 61 6e 63 65 64 20 63 6f 6d 6d 65 6e 74 73 20 61 72 6f 75 6e 64 20 74 68 65 20 73 2d 65 78 70 | lanced.comments.around.the.s-exp |
| 85ae0 | 72 65 73 73 69 6f 6e 0a 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 70 6f 69 6e 74 2e 20 20 49 | ression.containing.the.point...I |
| 85b00 | 66 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 69 6e 76 6f 6b 65 64 20 72 65 70 65 61 74 | f.this.command.is.invoked.repeat |
| 85b20 | 65 64 6c 79 0a 5c 28 77 69 74 68 6f 75 74 20 61 6e 79 20 6f 74 68 65 72 20 63 6f 6d 6d 61 6e 64 | edly.\(without.any.other.command |
| 85b40 | 20 6f 63 63 75 72 72 69 6e 67 20 62 65 74 77 65 65 6e 20 69 6e 76 6f 63 61 74 69 6f 6e 73 29 2c | .occurring.between.invocations), |
| 85b60 | 20 74 68 65 0a 63 6f 6d 6d 65 6e 74 20 70 72 6f 67 72 65 73 73 69 76 65 6c 79 20 6d 6f 76 65 73 | .the.comment.progressively.moves |
| 85b80 | 20 6f 75 74 77 61 72 64 20 6f 76 65 72 20 65 6e 63 6c 6f 73 69 6e 67 20 65 78 70 72 65 73 73 69 | .outward.over.enclosing.expressi |
| 85ba0 | 6f 6e 73 2e 0a 49 66 20 69 6e 76 6f 6b 65 64 20 77 69 74 68 20 61 20 70 6f 73 69 74 69 76 65 20 | ons..If.invoked.with.a.positive. |
| 85bc0 | 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 65 20 73 2d 65 78 70 72 65 73 73 69 6f | prefix.argument,.the.s-expressio |
| 85be0 | 6e 20 61 72 67 0a 65 78 70 72 65 73 73 69 6f 6e 73 20 6f 75 74 20 69 73 20 65 6e 63 6c 6f 73 65 | n.arg.expressions.out.is.enclose |
| 85c00 | 64 20 69 6e 20 61 20 73 65 74 20 6f 66 20 62 61 6c 61 6e 63 65 64 20 63 6f 6d 6d 65 6e 74 73 2e | d.in.a.set.of.balanced.comments. |
| 85c20 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 70 22 29 0a 20 20 28 73 61 76 65 2d 65 | "...(interactive."*p")...(save-e |
| 85c40 | 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 6c 61 73 74 2d 63 6f 6d 6d | xcursion.....(when.(eq.last-comm |
| 85c60 | 61 6e 64 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 | and.this-command).......(when.(s |
| 85c80 | 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 23 7c 22 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 | earch-backward."#|".nil.t)...... |
| 85ca0 | 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 | ...(save-excursion...........(de |
| 85cc0 | 6c 65 74 65 2d 63 68 61 72 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 | lete-char.2)...........(while.(a |
| 85ce0 | 6e 64 20 28 3c 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 20 28 6e 6f 74 20 | nd.(<.(point).(point-max)).(not. |
| 85d00 | 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 20 2a 7c 23 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | (looking-at.".*|#")))........... |
| 85d20 | 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 70 | ..(forward-sexp))...........(rep |
| 85d40 | 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 29 29 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 3e 20 | lace-match."")))).....(while.(>. |
| 85d60 | 61 72 67 20 30 29 0a 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 31 29 0a 20 | arg.0).......(backward-char.1).. |
| 85d80 | 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 29 22 29 20 28 63 6c | .....(cond.((looking-at.")").(cl |
| 85da0 | 2d 69 6e 63 66 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e | -incf.arg)).............((lookin |
| 85dc0 | 67 2d 61 74 20 22 28 22 29 20 28 63 6c 2d 64 65 63 66 20 61 72 67 29 29 29 29 0a 20 20 20 20 28 | g-at."(").(cl-decf.arg)))).....( |
| 85de0 | 69 6e 73 65 72 74 20 22 23 7c 22 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 0a | insert."#|").....(forward-sexp). |
| 85e00 | 20 20 20 20 28 69 6e 73 65 72 74 20 22 7c 23 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | ....(insert."|#")))..(defun.slim |
| 85e20 | 65 2d 72 65 6d 6f 76 65 2d 62 61 6c 61 6e 63 65 64 2d 63 6f 6d 6d 65 6e 74 73 20 28 29 0a 20 20 | e-remove-balanced-comments.()... |
| 85e40 | 22 52 65 6d 6f 76 65 20 61 20 73 65 74 20 6f 66 20 62 61 6c 61 6e 63 65 64 20 63 6f 6d 6d 65 6e | "Remove.a.set.of.balanced.commen |
| 85e60 | 74 73 20 65 6e 63 6c 6f 73 69 6e 67 20 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | ts.enclosing.point."...(interact |
| 85e80 | 69 76 65 20 22 2a 22 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 | ive."*")...(save-excursion.....( |
| 85ea0 | 77 68 65 6e 20 28 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 23 7c 22 20 6e 69 6c 20 74 | when.(search-backward."#|".nil.t |
| 85ec0 | 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 63 68 61 72 20 32 29 0a 20 20 20 20 20 20 28 77 | ).......(delete-char.2).......(w |
| 85ee0 | 68 69 6c 65 20 28 61 6e 64 20 28 3c 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 | hile.(and.(<.(point).(point-max) |
| 85f00 | 29 20 28 6e 6f 74 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 20 2a 7c 23 22 29 29 29 0a 20 20 20 | ).(not.(looking-at.".*|#"))).... |
| 85f20 | 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 29 0a 20 20 20 20 20 20 28 72 65 70 6c 61 63 | ...(forward-sexp)).......(replac |
| 85f40 | 65 2d 6d 61 74 63 68 20 22 22 29 29 29 29 0a 0a 0a 3b 3b 20 53 4c 49 4d 45 2d 43 4c 4f 53 45 2d | e-match.""))))...;;.SLIME-CLOSE- |
| 85f60 | 50 41 52 45 4e 53 2d 41 54 2d 50 4f 49 4e 54 20 69 73 20 6f 62 73 6f 6c 65 74 65 3a 0a 0a 3b 3b | PARENS-AT-POINT.is.obsolete:..;; |
| 85f80 | 20 49 74 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b 20 63 6f 72 72 65 63 74 6c 79 20 6f 6e 20 74 68 | .It.doesn't.work.correctly.on.th |
| 85fa0 | 65 20 52 45 50 4c 2c 20 62 65 63 61 75 73 65 20 74 68 65 72 65 0a 3b 3b 20 42 45 47 49 4e 4e 49 | e.REPL,.because.there.;;.BEGINNI |
| 85fc0 | 4e 47 2d 4f 46 2d 44 45 46 55 4e 2d 46 55 4e 43 54 49 4f 4e 20 61 6e 64 20 45 4e 44 2d 4f 46 2d | NG-OF-DEFUN-FUNCTION.and.END-OF- |
| 85fe0 | 44 45 46 55 4e 2d 46 55 4e 43 54 49 4f 4e 20 69 73 20 62 6f 75 6e 64 20 74 6f 0a 3b 3b 20 53 4c | DEFUN-FUNCTION.is.bound.to.;;.SL |
| 86000 | 49 4d 45 2d 52 45 50 4c 2d 4d 4f 44 45 2d 42 45 47 49 4e 4e 49 4e 47 2d 4f 46 2d 44 45 46 55 4e | IME-REPL-MODE-BEGINNING-OF-DEFUN |
| 86020 | 20 28 61 6e 64 0a 3b 3b 20 53 4c 49 4d 45 2d 52 45 50 4c 2d 4d 4f 44 45 2d 45 4e 44 2d 4f 46 2d | .(and.;;.SLIME-REPL-MODE-END-OF- |
| 86040 | 44 45 46 55 4e 20 72 65 73 70 65 63 74 69 76 65 6c 79 29 20 77 68 69 63 68 20 63 6f 6d 70 72 6f | DEFUN.respectively).which.compro |
| 86060 | 6d 69 73 65 73 20 74 68 65 0a 3b 3b 20 77 61 79 20 68 6f 77 20 74 68 65 79 27 72 65 20 65 78 70 | mises.the.;;.way.how.they're.exp |
| 86080 | 65 63 74 20 74 6f 20 77 6f 72 6b 20 28 69 2e 65 2e 20 45 4e 44 2d 4f 46 2d 44 45 46 55 4e 20 64 | ect.to.work.(i.e..END-OF-DEFUN.d |
| 860a0 | 6f 65 73 20 6e 6f 74 20 73 69 67 6e 61 6c 0a 3b 3b 20 61 6e 20 55 4e 42 4f 55 4e 44 2d 50 41 52 | oes.not.signal.;;.an.UNBOUND-PAR |
| 860c0 | 45 4e 54 48 45 53 45 53 20 65 72 72 6f 72 2e 29 0a 0a 3b 3b 20 55 73 65 20 53 4c 49 4d 45 2d 43 | ENTHESES.error.)..;;.Use.SLIME-C |
| 860e0 | 4c 4f 53 45 2d 41 4c 4c 2d 50 41 52 45 4e 53 2d 49 4e 2d 53 45 58 50 20 69 6e 73 74 65 61 64 2e | LOSE-ALL-PARENS-IN-SEXP.instead. |
| 86100 | 0a 0a 3b 3b 20 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 70 61 72 65 6e 73 2d 61 | ..;;.(defun.slime-close-parens-a |
| 86120 | 74 2d 70 6f 69 6e 74 20 28 29 0a 3b 3b 20 20 20 22 43 6c 6f 73 65 20 70 61 72 65 6e 74 68 65 73 | t-point.().;;..."Close.parenthes |
| 86140 | 69 73 20 61 74 20 70 6f 69 6e 74 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 74 68 65 20 74 6f 70 2d | is.at.point.to.complete.the.top- |
| 86160 | 6c 65 76 65 6c 2d 66 6f 72 6d 2e 20 20 53 69 6d 70 6c 79 0a 3b 3b 20 69 6e 73 65 72 74 73 20 27 | level-form...Simply.;;.inserts.' |
| 86180 | 29 27 20 63 68 61 72 61 63 74 65 72 73 20 61 74 20 70 6f 69 6e 74 20 75 6e 74 69 6c 20 60 62 65 | )'.characters.at.point.until.`be |
| 861a0 | 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 27 20 61 6e 64 0a 3b 3b 20 60 65 6e 64 2d 6f 66 | ginning-of-defun'.and.;;.`end-of |
| 861c0 | 2d 64 65 66 75 6e 27 20 65 78 65 63 75 74 65 20 77 69 74 68 6f 75 74 20 65 72 72 6f 72 73 2c 20 | -defun'.execute.without.errors,. |
| 861e0 | 6f 72 20 60 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 70 61 72 65 6e 73 2d 6c 69 6d 69 74 27 0a 3b 3b | or.`slime-close-parens-limit'.;; |
| 86200 | 20 69 73 20 65 78 63 65 65 64 65 64 2e 22 0a 3b 3b 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | .is.exceeded.".;;...(interactive |
| 86220 | 29 0a 3b 3b 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 31 20 74 6f 20 73 6c 69 | ).;;...(loop.for.i.from.1.to.sli |
| 86240 | 6d 65 2d 63 6c 6f 73 65 2d 70 61 72 65 6e 73 2d 6c 69 6d 69 74 0a 3b 3b 20 20 20 20 20 20 20 20 | me-close-parens-limit.;;........ |
| 86260 | 20 75 6e 74 69 6c 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 3b 3b 20 20 20 20 20 20 20 | .until.(save-excursion.;;....... |
| 86280 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 | ..........(slime-beginning-of-de |
| 862a0 | 66 75 6e 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d | fun).;;.................(ignore- |
| 862c0 | 65 72 72 6f 72 73 20 28 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 29 20 74 29 29 0a | errors.(slime-end-of-defun).t)). |
| 862e0 | 3b 3b 20 20 20 20 20 20 20 20 20 64 6f 20 28 69 6e 73 65 72 74 20 22 29 22 29 29 29 0a 0a 28 64 | ;;.........do.(insert.")")))..(d |
| 86300 | 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 69 6e 64 65 6e 74 2d 64 65 66 75 6e 20 28 26 6f 70 74 69 | efun.slime-reindent-defun.(&opti |
| 86320 | 6f 6e 61 6c 20 66 6f 72 63 65 2d 74 65 78 74 2d 66 69 6c 6c 29 0a 20 20 22 52 65 69 6e 64 65 6e | onal.force-text-fill)..."Reinden |
| 86340 | 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 75 6e 2c 20 6f 72 20 72 65 66 69 6c 6c 20 74 | t.the.current.defun,.or.refill.t |
| 86360 | 68 65 20 63 75 72 72 65 6e 74 20 70 61 72 61 67 72 61 70 68 2e 0a 49 66 20 70 6f 69 6e 74 20 69 | he.current.paragraph..If.point.i |
| 86380 | 73 20 69 6e 73 69 64 65 20 61 20 63 6f 6d 6d 65 6e 74 20 62 6c 6f 63 6b 2c 20 74 68 65 20 74 65 | s.inside.a.comment.block,.the.te |
| 863a0 | 78 74 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 20 77 69 6c 6c 20 62 65 0a 74 72 65 61 74 65 64 20 | xt.around.point.will.be.treated. |
| 863c0 | 61 73 20 61 20 70 61 72 61 67 72 61 70 68 20 61 6e 64 20 77 69 6c 6c 20 62 65 20 66 69 6c 6c 65 | as.a.paragraph.and.will.be.fille |
| 863e0 | 64 20 77 69 74 68 20 60 66 69 6c 6c 2d 70 61 72 61 67 72 61 70 68 27 2e 0a 4f 74 68 65 72 77 69 | d.with.`fill-paragraph'..Otherwi |
| 86400 | 73 65 2c 20 69 74 20 77 69 6c 6c 20 62 65 20 74 72 65 61 74 65 64 20 61 73 20 4c 69 73 70 20 63 | se,.it.will.be.treated.as.Lisp.c |
| 86420 | 6f 64 65 2c 20 61 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 75 6e 0a 77 69 6c 6c 20 | ode,.and.the.current.defun.will. |
| 86440 | 62 65 20 72 65 69 6e 64 65 6e 74 65 64 2e 20 20 49 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 | be.reindented...If.the.current.d |
| 86460 | 65 66 75 6e 20 68 61 73 20 75 6e 62 61 6c 61 6e 63 65 64 20 70 61 72 65 6e 73 2c 0a 61 6e 20 61 | efun.has.unbalanced.parens,.an.a |
| 86480 | 74 74 65 6d 70 74 20 77 69 6c 6c 20 62 65 20 6d 61 64 65 20 74 6f 20 66 69 78 20 69 74 20 62 65 | ttempt.will.be.made.to.fix.it.be |
| 864a0 | 66 6f 72 65 20 72 65 69 6e 64 65 6e 74 69 6e 67 2e 0a 0a 57 68 65 6e 20 67 69 76 65 6e 20 61 20 | fore.reindenting...When.given.a. |
| 864c0 | 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 65 20 74 65 78 74 20 61 72 6f 75 6e 64 | prefix.argument,.the.text.around |
| 864e0 | 20 70 6f 69 6e 74 20 77 69 6c 6c 20 61 6c 77 61 79 73 0a 62 65 20 74 72 65 61 74 65 64 20 61 73 | .point.will.always.be.treated.as |
| 86500 | 20 61 20 70 61 72 61 67 72 61 70 68 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 66 6f | .a.paragraph...This.is.useful.fo |
| 86520 | 72 20 66 69 6c 6c 69 6e 67 20 64 6f 63 73 74 72 69 6e 67 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 | r.filling.docstrings."...(intera |
| 86540 | 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 | ctive."P")...(save-excursion.... |
| 86560 | 20 28 69 66 20 28 6f 72 20 66 6f 72 63 65 2d 74 65 78 74 2d 66 69 6c 6c 20 28 73 6c 69 6d 65 2d | .(if.(or.force-text-fill.(slime- |
| 86580 | 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 63 6f 6d 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 | beginning-of-comment)).........( |
| 865a0 | 66 69 6c 6c 2d 70 61 72 61 67 72 61 70 68 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 | fill-paragraph.nil).......(let.( |
| 865c0 | 28 73 74 61 72 74 20 28 70 72 6f 67 6e 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 28 61 6e 64 20 28 | (start.(progn.(unless.(or.(and.( |
| 865e0 | 7a 65 72 6f 70 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 0a 20 20 20 20 20 20 20 20 | zerop.(current-column))......... |
| 86600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 86620 | 20 20 20 28 65 71 20 3f 5c 28 20 28 63 68 61 72 2d 61 66 74 65 72 29 29 29 0a 20 20 20 20 20 20 | ...(eq.?\(.(char-after)))....... |
| 86640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 86660 | 28 61 6e 64 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b | (and.slime-repl-input-start-mark |
| 86680 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 866a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 74 2d 70 72 6f 6d 70 | ............(slime-repl-at-promp |
| 866c0 | 74 2d 73 74 61 72 74 2d 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-start-p))).................... |
| 866e0 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 | .........(slime-beginning-of-def |
| 86700 | 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | un))...........................( |
| 86720 | 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 69 67 6e 6f 72 | point))).............(end.(ignor |
| 86740 | 65 2d 65 72 72 6f 72 73 20 28 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 29 20 28 70 | e-errors.(slime-end-of-defun).(p |
| 86760 | 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 65 6e 64 0a 20 20 20 | oint)))).........(unless.end.... |
| 86780 | 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 29 0a 20 20 20 20 20 | .......(forward-paragraph)...... |
| 867a0 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 61 6c 6c 2d 70 61 72 65 6e 73 2d 69 6e 2d | .....(slime-close-all-parens-in- |
| 867c0 | 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 64 65 | sexp)...........(slime-end-of-de |
| 867e0 | 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 65 6e 64 20 28 70 6f 69 6e 74 29 | fun)...........(setf.end.(point) |
| 86800 | 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 64 65 6e 74 2d 72 65 67 69 6f 6e 20 73 74 61 72 74 20 | )).........(indent-region.start. |
| 86820 | 65 6e 64 20 6e 69 6c 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 65 64 | end.nil)))))..(provide.'slime-ed |
| 86840 | 69 74 69 6e 67 2d 63 6f 6d 6d 61 6e 64 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | iting-commands)................. |
| 86860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 868a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 868c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 868e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 869a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 869c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 869e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 6b 61 77 61 2e 73 63 | slime-2.31/contrib/swank-kawa.sc |
| 86a20 | 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | m............................... |
| 86a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 86a80 | 30 32 35 36 33 36 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 34 32 00 20 30 00 00 00 | 0256367.00000000000.015442..0... |
| 86aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 86b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 86b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 86c00 | 3b 3b 3b 3b 20 73 77 61 6e 6b 2d 6b 61 77 61 2e 73 63 6d 20 2d 2d 2d 20 53 77 61 6e 6b 20 73 65 | ;;;;.swank-kawa.scm.---.Swank.se |
| 86c20 | 72 76 65 72 20 66 6f 72 20 4b 61 77 61 0a 3b 3b 3b 0a 3b 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 | rver.for.Kawa.;;;.;;;.Copyright. |
| 86c40 | 28 43 29 20 32 30 30 37 20 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 0a 3b 3b 3b 0a 3b 3b 3b 20 54 | (C).2007..Helmut.Eller.;;;.;;;.T |
| 86c60 | 68 69 73 20 66 69 6c 65 20 69 73 20 6c 69 63 65 6e 73 65 64 20 75 6e 64 65 72 20 74 68 65 20 74 | his.file.is.licensed.under.the.t |
| 86c80 | 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 0a 3b | erms.of.the.GNU.General.Public.; |
| 86ca0 | 3b 3b 20 4c 69 63 65 6e 73 65 20 61 73 20 64 69 73 74 72 69 62 75 74 65 64 20 77 69 74 68 20 45 | ;;.License.as.distributed.with.E |
| 86cc0 | 6d 61 63 73 20 28 70 72 65 73 73 20 43 2d 68 20 43 2d 63 20 66 6f 72 20 64 65 74 61 69 6c 73 29 | macs.(press.C-h.C-c.for.details) |
| 86ce0 | 2e 0a 0a 3b 3b 3b 3b 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 0a 3b 3b 0a 3b 3b 20 31 2e 20 59 6f | ...;;;;.Installation.;;.;;.1..Yo |
| 86d00 | 75 20 6e 65 65 64 20 4b 61 77 61 20 28 76 65 72 73 69 6f 6e 20 32 2e 78 29 20 61 6e 64 20 61 20 | u.need.Kawa.(version.2.x).and.a. |
| 86d20 | 4a 56 4d 20 77 69 74 68 20 64 65 62 75 67 67 65 72 20 73 75 70 70 6f 72 74 2e 0a 3b 3b 0a 3b 3b | JVM.with.debugger.support..;;.;; |
| 86d40 | 20 32 2e 20 43 6f 6d 70 69 6c 65 20 74 68 69 73 20 66 69 6c 65 20 61 6e 64 20 63 72 65 61 74 65 | .2..Compile.this.file.and.create |
| 86d60 | 20 73 77 61 6e 6b 2d 6b 61 77 61 2e 6a 61 72 20 77 69 74 68 3a 0a 3b 3b 20 20 20 20 20 20 6a 61 | .swank-kawa.jar.with:.;;......ja |
| 86d80 | 76 61 20 2d 63 70 20 6b 61 77 61 2e 6a 61 72 3a 24 4a 41 56 41 5f 48 4f 4d 45 2f 6c 69 62 2f 74 | va.-cp.kawa.jar:$JAVA_HOME/lib/t |
| 86da0 | 6f 6f 6c 73 2e 6a 61 72 20 5c 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 2d 58 73 73 32 4d 20 6b | ools.jar.\.;;...........-Xss2M.k |
| 86dc0 | 61 77 61 2e 72 65 70 6c 20 2d 2d 72 37 72 73 20 2d 64 20 63 6c 61 73 73 65 73 20 2d 43 20 73 77 | awa.repl.--r7rs.-d.classes.-C.sw |
| 86de0 | 61 6e 6b 2d 6b 61 77 61 2e 73 63 6d 20 26 26 0a 3b 3b 20 20 20 20 20 20 6a 61 72 20 63 66 20 73 | ank-kawa.scm.&&.;;......jar.cf.s |
| 86e00 | 77 61 6e 6b 2d 6b 61 77 61 2e 6a 61 72 20 2d 43 20 63 6c 61 73 73 65 73 20 2e 0a 3b 3b 0a 3b 3b | wank-kawa.jar.-C.classes...;;.;; |
| 86e20 | 20 33 2e 20 41 64 64 20 73 6f 6d 65 74 68 69 6e 67 20 6c 69 6b 65 20 74 68 69 73 20 74 6f 20 79 | .3..Add.something.like.this.to.y |
| 86e40 | 6f 75 72 20 2e 65 6d 61 63 73 3a 0a 23 7c 0a 3b 3b 20 4b 61 77 61 2c 20 53 77 61 6e 6b 2c 20 61 | our..emacs:.#|.;;.Kawa,.Swank,.a |
| 86e60 | 6e 64 20 74 68 65 20 64 65 62 75 67 67 65 72 20 63 6c 61 73 73 65 73 20 28 74 6f 6f 6c 73 2e 6a | nd.the.debugger.classes.(tools.j |
| 86e80 | 61 72 29 20 6d 75 73 74 20 62 65 20 69 6e 20 74 68 65 0a 3b 3b 20 63 6c 61 73 73 70 61 74 68 2e | ar).must.be.in.the.;;.classpath. |
| 86ea0 | 20 20 59 6f 75 20 61 6c 73 6f 20 6e 65 65 64 20 74 6f 20 73 74 61 72 74 20 74 68 65 20 64 65 62 | ..You.also.need.to.start.the.deb |
| 86ec0 | 75 67 20 61 67 65 6e 74 2e 0a 28 73 65 74 71 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 | ug.agent..(setq.slime-lisp-imple |
| 86ee0 | 6d 65 6e 74 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 27 28 28 6b 61 77 61 0a 20 20 20 20 20 20 20 | mentations.......'((kawa........ |
| 86f00 | 20 20 28 22 6a 61 76 61 22 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6e 65 65 64 65 64 20 6a 61 | ..("java"...........;;.needed.ja |
| 86f20 | 72 20 66 69 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 22 2d 63 70 22 20 22 6b 61 77 61 2d 32 2e | r.files..........."-cp"."kawa-2. |
| 86f40 | 30 2e 31 2e 6a 61 72 3a 73 77 61 6e 6b 2d 6b 61 77 61 2e 6a 61 72 3a 2f 6f 70 74 2f 6a 64 6b 31 | 0.1.jar:swank-kawa.jar:/opt/jdk1 |
| 86f60 | 2e 38 2e 30 2f 6c 69 62 2f 74 6f 6f 6c 73 2e 6a 61 72 22 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | .8.0/lib/tools.jar"...........;; |
| 86f80 | 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 64 65 62 75 67 67 65 72 0a 20 20 20 20 20 20 20 20 20 20 | .channel.for.debugger........... |
| 86fa0 | 22 2d 61 67 65 6e 74 6c 69 62 3a 6a 64 77 70 3d 74 72 61 6e 73 70 6f 72 74 3d 64 74 5f 73 6f 63 | "-agentlib:jdwp=transport=dt_soc |
| 86fc0 | 6b 65 74 2c 73 65 72 76 65 72 3d 79 2c 73 75 73 70 65 6e 64 3d 6e 22 0a 20 20 20 20 20 20 20 20 | ket,server=y,suspend=n"......... |
| 86fe0 | 20 20 3b 3b 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 4a 56 4d 2c 20 63 6f 6d 70 69 6c 65 72 20 | ..;;.depending.on.JVM,.compiler. |
| 87000 | 6d 61 79 20 6e 65 65 64 20 6d 6f 72 65 20 73 74 61 63 6b 0a 20 20 20 20 20 20 20 20 20 20 22 2d | may.need.more.stack..........."- |
| 87020 | 58 73 73 32 4d 22 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6b 61 77 61 20 77 69 74 68 6f 75 74 | Xss2M"...........;;.kawa.without |
| 87040 | 20 47 55 49 0a 20 20 20 20 20 20 20 20 20 20 22 6b 61 77 61 2e 72 65 70 6c 22 20 22 2d 73 22 29 | .GUI..........."kawa.repl"."-s") |
| 87060 | 0a 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 20 6b 61 77 61 2d 73 6c 69 6d 65 2d 69 6e 69 74 29 | ..........:init.kawa-slime-init) |
| 87080 | 29 29 0a 0a 28 64 65 66 75 6e 20 6b 61 77 61 2d 73 6c 69 6d 65 2d 69 6e 69 74 20 28 66 69 6c 65 | ))..(defun.kawa-slime-init.(file |
| 870a0 | 20 5f 29 0a 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 70 72 6f 74 6f 63 6f 6c 2d 76 65 72 73 69 | ._)...(setq.slime-protocol-versi |
| 870c0 | 6f 6e 20 27 69 67 6e 6f 72 65 29 0a 20 20 28 66 6f 72 6d 61 74 20 22 25 53 5c 6e 22 0a 20 20 20 | on.'ignore)...(format."%S\n".... |
| 870e0 | 20 20 20 20 20 20 20 60 28 62 65 67 69 6e 20 28 69 6d 70 6f 72 74 20 28 73 77 61 6e 6b 2d 6b 61 | .......`(begin.(import.(swank-ka |
| 87100 | 77 61 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 2d 73 77 | wa))...................(start-sw |
| 87120 | 61 6e 6b 20 2c 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | ank.,file)...................;;. |
| 87140 | 4f 70 74 69 6f 6e 61 6c 6c 79 20 61 64 64 20 73 6f 75 72 63 65 20 70 61 74 68 73 20 6f 66 20 79 | Optionally.add.source.paths.of.y |
| 87160 | 6f 75 72 20 63 6f 64 65 20 73 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | our.code.so...................;; |
| 87180 | 20 74 68 61 74 20 4d 2d 2e 20 77 6f 72 6b 73 20 62 65 74 74 65 72 3a 0a 20 20 20 20 20 20 20 20 | .that.M-..works.better:......... |
| 871a0 | 20 20 20 20 20 20 20 20 20 20 3b 3b 28 73 65 74 21 20 73 77 61 6e 6b 2d 6a 61 76 61 2d 73 6f 75 | ..........;;(set!.swank-java-sou |
| 871c0 | 72 63 65 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 28 | rce-path...................;;..( |
| 871e0 | 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 27 28 | append...................;;...'( |
| 87200 | 2c 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 7e 2f 6c 69 73 70 2f 73 6c 69 6d 65 | ,(expand-file-name."~/lisp/slime |
| 87220 | 2f 63 6f 6e 74 72 69 62 2f 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | /contrib/")...................;; |
| 87240 | 20 20 20 20 20 22 2f 73 63 72 61 74 63 68 2f 6b 61 77 61 22 29 0a 20 20 20 20 20 20 20 20 20 20 | ....."/scratch/kawa")........... |
| 87260 | 20 20 20 20 20 20 20 20 3b 3b 20 20 20 73 77 61 6e 6b 2d 6a 61 76 61 2d 73 6f 75 72 63 65 2d 70 | ........;;...swank-java-source-p |
| 87280 | 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 0a 0a 3b 3b 20 | ath))...................)))..;;. |
| 872a0 | 4f 70 74 69 6f 6e 61 6c 6c 79 20 64 65 66 69 6e 65 20 61 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 73 | Optionally.define.a.command.to.s |
| 872c0 | 74 61 72 74 20 69 74 2e 0a 28 64 65 66 75 6e 20 6b 61 77 61 20 28 29 0a 20 20 28 69 6e 74 65 72 | tart.it..(defun.kawa.()...(inter |
| 872e0 | 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 20 27 6b 61 77 61 29 29 0a 0a 7c 23 0a 3b 3b 20 | active)...(slime.'kawa))..|#.;;. |
| 87300 | 34 2e 20 53 74 61 72 74 20 65 76 65 72 79 74 68 69 6e 67 20 77 69 74 68 20 20 4d 2d 2d 20 4d 2d | 4..Start.everything.with..M--.M- |
| 87320 | 78 20 73 6c 69 6d 65 20 6b 61 77 61 0a 3b 3b 0a 3b 3b 0a 0a 0c 0a 3b 3b 3b 20 43 6f 64 65 3a 0a | x.slime.kawa.;;.;;....;;;.Code:. |
| 87340 | 0a 28 64 65 66 69 6e 65 2d 6c 69 62 72 61 72 79 20 28 73 77 61 6e 6b 20 6d 61 63 72 6f 73 29 0a | .(define-library.(swank.macros). |
| 87360 | 20 20 20 20 28 65 78 70 6f 72 74 20 64 66 20 66 75 6e 20 73 65 71 20 73 65 74 20 66 69 6e 20 65 | ....(export.df.fun.seq.set.fin.e |
| 87380 | 73 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 21 21 20 21 73 20 40 20 40 73 0a 20 20 20 20 | sc.............!.!!.!s.@.@s..... |
| 873a0 | 20 20 20 20 20 20 20 20 77 68 65 6e 20 75 6e 6c 65 73 73 20 77 68 69 6c 65 20 64 6f 74 69 6d 65 | ........when.unless.while.dotime |
| 873c0 | 73 20 64 6f 6c 69 73 74 20 66 6f 72 20 70 61 63 6b 69 6e 67 20 77 69 74 68 20 70 75 73 68 66 20 | s.dolist.for.packing.with.pushf. |
| 873e0 | 3d 3d 20 61 73 73 65 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 66 20 6d 63 61 73 65 20 | ==.assert.............mif.mcase. |
| 87400 | 6d 6c 65 74 20 6d 6c 65 74 2a 20 74 79 70 65 63 61 73 65 20 69 67 6e 6f 72 65 2d 65 72 72 6f 72 | mlet.mlet*.typecase.ignore-error |
| 87420 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 | s.............ferror............ |
| 87440 | 20 29 0a 20 20 20 20 28 69 6d 70 6f 72 74 20 28 73 63 68 65 6d 65 20 62 61 73 65 29 0a 20 20 20 | .).....(import.(scheme.base).... |
| 87460 | 20 20 20 20 20 20 20 20 20 28 6f 6e 6c 79 20 28 6b 61 77 61 20 62 61 73 65 29 0a 20 20 20 20 20 | .........(only.(kawa.base)...... |
| 87480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6e 74 61 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .............syntax............. |
| 874a0 | 20 20 20 20 20 20 71 75 61 73 69 73 79 6e 74 61 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......quasisyntax............... |
| 874c0 | 20 20 20 20 73 79 6e 74 61 78 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....syntax-case................. |
| 874e0 | 20 20 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 | ..define-syntax-case............ |
| 87500 | 20 20 20 20 20 20 20 69 64 65 6e 74 69 66 69 65 72 3f 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .......identifier?.............. |
| 87520 | 20 20 20 20 20 20 69 6e 76 6f 6b 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 | ......invoke...................i |
| 87540 | 6e 76 6f 6b 65 2d 73 74 61 74 69 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 | nvoke-static...................f |
| 87560 | 69 65 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 69 63 2d 66 69 | ield...................static-fi |
| 87580 | 65 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 73 74 61 6e 63 65 3f 0a | eld...................instance?. |
| 875a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 79 2d 66 69 6e 61 6c 6c 79 0a 20 20 | ..................try-finally... |
| 875c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 79 2d 63 61 74 63 68 0a 20 20 20 20 20 20 | ................try-catch....... |
| 875e0 | 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6d 69 74 69 76 65 2d 74 68 72 6f 77 0a 0a 20 20 20 | ............primitive-throw..... |
| 87600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 | ...............format........... |
| 87620 | 20 20 20 20 20 20 20 20 72 65 76 65 72 73 65 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........reverse!................ |
| 87640 | 20 20 20 61 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 0a 20 20 28 62 65 | ...as...................))...(be |
| 87660 | 67 69 6e 20 22 0a 28 22 0a 0a 28 64 65 66 69 6e 65 20 28 66 65 72 72 6f 72 20 66 73 74 72 69 6e | gin.".("..(define.(ferror.fstrin |
| 87680 | 67 20 23 21 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 6c 65 74 20 28 28 65 72 72 20 28 3c 6a 61 | g.#!rest.args)...(let.((err.(<ja |
| 876a0 | 76 61 2e 6c 61 6e 67 2e 45 72 72 6f 72 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 | va.lang.Error>...............(as |
| 876c0 | 20 3c 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 72 69 6e 67 3e 20 28 61 70 70 6c 79 20 66 6f 72 6d 61 | .<java.lang.String>.(apply.forma |
| 876e0 | 74 20 66 73 74 72 69 6e 67 20 61 72 67 73 29 29 29 29 29 0a 20 20 20 20 28 70 72 69 6d 69 74 69 | t.fstring.args))))).....(primiti |
| 87700 | 76 65 2d 74 68 72 6f 77 20 65 72 72 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 72 65 77 72 69 74 | ve-throw.err)))..(define.(rewrit |
| 87720 | 65 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 61 72 67 73 29 0a 20 20 28 73 79 6e 74 61 78 2d 63 61 | e-lambda-list.args)...(syntax-ca |
| 87740 | 73 65 20 61 72 67 73 20 28 29 0a 20 20 20 20 28 28 29 20 23 60 28 29 29 0a 20 20 20 20 28 28 72 | se.args.().....(().#`()).....((r |
| 87760 | 65 73 74 20 78 20 2e 2e 2e 29 20 28 65 71 3f 20 23 27 72 65 73 74 20 23 21 72 65 73 74 29 20 61 | est.x....).(eq?.#'rest.#!rest).a |
| 87780 | 72 67 73 29 0a 20 20 20 20 28 28 6f 70 74 69 6f 6e 61 6c 20 78 20 2e 2e 2e 29 20 28 65 71 3f 20 | rgs).....((optional.x....).(eq?. |
| 877a0 | 23 27 6f 70 74 69 6f 6e 61 6c 20 23 21 6f 70 74 69 6f 6e 61 6c 29 20 61 72 67 73 29 0a 20 20 20 | #'optional.#!optional).args).... |
| 877c0 | 20 28 28 76 61 72 20 61 72 67 73 20 2e 2e 2e 29 20 28 69 64 65 6e 74 69 66 69 65 72 3f 20 23 27 | .((var.args....).(identifier?.#' |
| 877e0 | 76 61 72 29 0a 20 20 20 20 20 23 60 28 76 61 72 20 23 2c 40 28 72 65 77 72 69 74 65 2d 6c 61 6d | var)......#`(var.#,@(rewrite-lam |
| 87800 | 62 64 61 2d 6c 69 73 74 20 23 27 28 61 72 67 73 20 2e 2e 2e 29 29 29 29 0a 20 20 20 20 28 28 28 | bda-list.#'(args....)))).....((( |
| 87820 | 76 61 72 20 74 79 70 65 29 20 61 72 67 73 20 2e 2e 2e 29 20 28 69 64 65 6e 74 69 66 69 65 72 3f | var.type).args....).(identifier? |
| 87840 | 20 23 27 76 61 72 29 0a 20 20 20 20 20 23 60 28 28 76 61 72 20 3a 3a 20 74 79 70 65 29 20 23 2c | .#'var)......#`((var.::.type).#, |
| 87860 | 40 28 72 65 77 72 69 74 65 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 23 27 28 61 72 67 73 20 2e 2e | @(rewrite-lambda-list.#'(args... |
| 87880 | 2e 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 64 66 0a 20 20 28 6c 61 | .))))))..(define-syntax.df...(la |
| 878a0 | 6d 62 64 61 20 28 73 74 78 29 0a 20 20 20 20 28 73 79 6e 74 61 78 2d 63 61 73 65 20 73 74 78 20 | mbda.(stx).....(syntax-case.stx. |
| 878c0 | 28 3d 3e 29 0a 20 20 20 20 20 20 28 28 64 66 20 6e 61 6d 65 20 28 61 72 67 73 20 2e 2e 2e 20 3d | (=>).......((df.name.(args.....= |
| 878e0 | 3e 20 72 65 74 75 72 6e 2d 74 79 70 65 29 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 20 20 | >.return-type).body....)........ |
| 87900 | 23 60 28 64 65 66 69 6e 65 20 28 6e 61 6d 65 20 23 2c 40 28 72 65 77 72 69 74 65 2d 6c 61 6d 62 | #`(define.(name.#,@(rewrite-lamb |
| 87920 | 64 61 2d 6c 69 73 74 20 23 27 28 61 72 67 73 20 2e 2e 2e 29 29 29 20 3a 3a 20 72 65 74 75 72 6e | da-list.#'(args....))).::.return |
| 87940 | 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 71 20 62 6f 64 79 | -type..................(seq.body |
| 87960 | 20 2e 2e 2e 29 29 29 0a 20 20 20 20 20 20 28 28 64 66 20 6e 61 6d 65 20 28 61 72 67 73 20 2e 2e | ....))).......((df.name.(args... |
| 87980 | 2e 29 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 20 20 23 60 28 64 65 66 69 6e 65 20 28 6e | .).body....)........#`(define.(n |
| 879a0 | 61 6d 65 20 23 2c 40 28 72 65 77 72 69 74 65 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 23 27 28 61 | ame.#,@(rewrite-lambda-list.#'(a |
| 879c0 | 72 67 73 20 2e 2e 2e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 71 20 62 6f 64 79 20 | rgs....)))............(seq.body. |
| 879e0 | 2e 2e 2e 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 66 75 6e 0a 20 20 | ...))))))..(define-syntax.fun... |
| 87a00 | 28 6c 61 6d 62 64 61 20 28 73 74 78 29 0a 20 20 20 20 28 73 79 6e 74 61 78 2d 63 61 73 65 20 73 | (lambda.(stx).....(syntax-case.s |
| 87a20 | 74 78 20 28 3d 3e 29 0a 20 20 20 20 20 20 28 28 66 75 6e 20 28 61 72 67 73 20 2e 2e 2e 20 3d 3e | tx.(=>).......((fun.(args.....=> |
| 87a40 | 20 72 65 74 75 72 6e 2d 74 79 70 65 29 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 20 20 23 | .return-type).body....)........# |
| 87a60 | 60 28 6c 61 6d 62 64 61 20 23 2c 28 72 65 77 72 69 74 65 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 | `(lambda.#,(rewrite-lambda-list. |
| 87a80 | 23 27 28 61 72 67 73 20 2e 2e 2e 29 29 20 3a 3a 20 72 65 74 75 72 6e 2d 74 79 70 65 0a 20 20 20 | #'(args....)).::.return-type.... |
| 87aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 71 20 62 6f 64 79 20 2e 2e 2e 29 29 29 0a 20 | ..............(seq.body....))).. |
| 87ac0 | 20 20 20 20 20 28 28 66 75 6e 20 28 61 72 67 73 20 2e 2e 2e 29 20 62 6f 64 79 20 2e 2e 2e 29 0a | .....((fun.(args....).body....). |
| 87ae0 | 20 20 20 20 20 20 20 23 60 28 6c 61 6d 62 64 61 20 23 2c 28 72 65 77 72 69 74 65 2d 6c 61 6d 62 | .......#`(lambda.#,(rewrite-lamb |
| 87b00 | 64 61 2d 6c 69 73 74 20 23 27 28 61 72 67 73 20 2e 2e 2e 29 29 0a 20 20 20 20 20 20 20 20 20 20 | da-list.#'(args....))........... |
| 87b20 | 20 28 73 65 71 20 62 6f 64 79 20 2e 2e 2e 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 | .(seq.body....))))))..(define-sy |
| 87b40 | 6e 74 61 78 20 66 69 6e 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 | ntax.fin...(syntax-rules.()..... |
| 87b60 | 28 28 66 69 6e 20 62 6f 64 79 20 68 61 6e 64 6c 65 72 20 2e 2e 2e 29 0a 20 20 20 20 20 28 74 72 | ((fin.body.handler....)......(tr |
| 87b80 | 79 2d 66 69 6e 61 6c 6c 79 20 62 6f 64 79 20 28 73 65 71 20 68 61 6e 64 6c 65 72 20 2e 2e 2e 29 | y-finally.body.(seq.handler....) |
| 87ba0 | 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 73 65 71 0a 20 20 28 73 79 6e 74 | ))))..(define-syntax.seq...(synt |
| 87bc0 | 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 73 65 71 29 0a 20 20 20 20 20 28 62 65 67 | ax-rules.().....((seq)......(beg |
| 87be0 | 69 6e 20 23 21 76 6f 69 64 29 29 0a 20 20 20 20 28 28 73 65 71 20 62 6f 64 79 20 2e 2e 2e 29 0a | in.#!void)).....((seq.body....). |
| 87c00 | 20 20 20 20 20 28 62 65 67 69 6e 20 62 6f 64 79 20 2e 2e 2e 29 29 29 29 0a 0a 28 64 65 66 69 6e | .....(begin.body....))))..(defin |
| 87c20 | 65 2d 73 79 6e 74 61 78 20 65 73 63 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a | e-syntax.esc...(syntax-rules.(). |
| 87c40 | 20 20 20 20 28 28 65 73 63 20 61 62 6f 72 74 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 28 | ....((esc.abort.body....)......( |
| 87c60 | 6c 65 74 2a 20 28 28 6b 65 79 20 28 3c 73 79 6d 62 6f 6c 3e 29 29 0a 20 20 20 20 20 20 20 20 20 | let*.((key.(<symbol>)).......... |
| 87c80 | 20 20 20 28 61 62 6f 72 74 20 28 6c 61 6d 62 64 61 20 28 76 61 6c 29 20 28 74 68 72 6f 77 20 6b | ...(abort.(lambda.(val).(throw.k |
| 87ca0 | 65 79 20 76 61 6c 29 29 29 29 0a 20 20 20 20 20 20 20 28 63 61 74 63 68 20 6b 65 79 0a 20 20 20 | ey.val))))........(catch.key.... |
| 87cc0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 62 6f 64 79 20 2e 2e 2e 29 0a | ...........(lambda.().body....). |
| 87ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6b 65 79 20 76 61 6c 29 20 | ..............(lambda.(key.val). |
| 87d00 | 76 61 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 21 0a 20 20 28 73 | val))))))..(define-syntax.!...(s |
| 87d20 | 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 21 20 6e 61 6d 65 20 6f 62 6a 20 | yntax-rules.().....((!.name.obj. |
| 87d40 | 61 72 67 73 20 2e 2e 2e 29 0a 20 20 20 20 20 28 69 6e 76 6f 6b 65 20 6f 62 6a 20 27 6e 61 6d 65 | args....)......(invoke.obj.'name |
| 87d60 | 20 61 72 67 73 20 2e 2e 2e 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 21 21 | .args....))))..(define-syntax.!! |
| 87d80 | 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 21 21 20 6e 61 6d | ...(syntax-rules.().....((!!.nam |
| 87da0 | 65 31 20 6e 61 6d 65 32 20 6f 62 6a 20 61 72 67 73 20 2e 2e 2e 29 0a 20 20 20 20 20 28 21 20 6e | e1.name2.obj.args....)......(!.n |
| 87dc0 | 61 6d 65 31 20 28 21 20 6e 61 6d 65 32 20 6f 62 6a 20 61 72 67 73 20 2e 2e 2e 29 29 29 29 29 0a | ame1.(!.name2.obj.args....))))). |
| 87de0 | 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 21 73 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c | .(define-syntax.!s...(syntax-rul |
| 87e00 | 65 73 20 28 29 0a 20 20 20 20 28 28 21 20 63 6c 61 73 73 20 6e 61 6d 65 20 61 72 67 73 20 2e 2e | es.().....((!.class.name.args... |
| 87e20 | 2e 29 0a 20 20 20 20 20 28 69 6e 76 6f 6b 65 2d 73 74 61 74 69 63 20 63 6c 61 73 73 20 27 6e 61 | .)......(invoke-static.class.'na |
| 87e40 | 6d 65 20 61 72 67 73 20 2e 2e 2e 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 | me.args....))))..(define-syntax. |
| 87e60 | 40 0a 20 20 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 20 20 28 28 40 | @.....(syntax-rules.().......((@ |
| 87e80 | 20 6e 61 6d 65 20 6f 62 6a 29 0a 20 20 20 20 20 20 20 28 66 69 65 6c 64 20 6f 62 6a 20 27 6e 61 | .name.obj)........(field.obj.'na |
| 87ea0 | 6d 65 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 40 73 0a 20 20 28 73 79 6e | me))))..(define-syntax.@s...(syn |
| 87ec0 | 74 61 78 2d 72 75 6c 65 73 20 28 71 75 6f 74 65 29 0a 20 20 20 20 28 28 40 73 20 63 6c 61 73 73 | tax-rules.(quote).....((@s.class |
| 87ee0 | 20 6e 61 6d 65 29 0a 20 20 20 20 20 28 73 74 61 74 69 63 2d 66 69 65 6c 64 20 63 6c 61 73 73 20 | .name)......(static-field.class. |
| 87f00 | 28 71 75 6f 74 65 20 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 | (quote.name)))))..(define-syntax |
| 87f20 | 20 77 68 69 6c 65 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 | .while...(syntax-rules.().....(( |
| 87f40 | 77 68 69 6c 65 20 65 78 70 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 28 64 6f 20 28 29 20 | while.exp.body....)......(do.(). |
| 87f60 | 28 28 6e 6f 74 20 65 78 70 29 29 20 62 6f 64 79 20 2e 2e 2e 29 29 29 29 0a 0a 28 64 65 66 69 6e | ((not.exp)).body....))))..(defin |
| 87f80 | 65 2d 73 79 6e 74 61 78 20 64 6f 74 69 6d 65 73 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 | e-syntax.dotimes...(syntax-rules |
| 87fa0 | 20 28 29 0a 20 20 20 20 28 28 64 6f 74 69 6d 65 73 20 28 69 20 6e 20 72 65 73 75 6c 74 29 20 62 | .().....((dotimes.(i.n.result).b |
| 87fc0 | 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 78 20 3a 3a 20 3c 69 6e 74 | ody....)......(let.((max.::.<int |
| 87fe0 | 3e 20 6e 29 29 0a 20 20 20 20 20 20 20 28 64 6f 20 28 28 69 20 3a 3a 20 3c 69 6e 74 3e 20 30 20 | >.n))........(do.((i.::.<int>.0. |
| 88000 | 28 61 73 20 3c 69 6e 74 3e 20 28 2b 20 69 20 31 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (as.<int>.(+.i.1))))............ |
| 88020 | 28 28 3d 20 69 20 6d 61 78 29 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 62 6f 64 79 | ((=.i.max).result)..........body |
| 88040 | 20 2e 2e 2e 29 29 29 0a 20 20 20 20 28 28 64 6f 74 69 6d 65 73 20 28 69 20 6e 29 20 62 6f 64 79 | ....))).....((dotimes.(i.n).body |
| 88060 | 20 2e 2e 2e 29 0a 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 6e 20 23 66 29 20 62 6f 64 | ....)......(dotimes.(i.n.#f).bod |
| 88080 | 79 20 2e 2e 2e 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 64 6f 6c 69 73 74 | y....))))..(define-syntax.dolist |
| 880a0 | 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 64 6f 6c 69 73 74 | ...(syntax-rules.().....((dolist |
| 880c0 | 20 28 65 20 6c 69 73 74 29 20 62 6f 64 79 20 2e 2e 2e 20 29 0a 20 20 20 20 20 28 66 6f 72 20 28 | .(e.list).body.....)......(for.( |
| 880e0 | 28 65 20 6c 69 73 74 29 29 20 62 6f 64 79 20 2e 2e 2e 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d | (e.list)).body....))))..(define- |
| 88100 | 73 79 6e 74 61 78 20 66 6f 72 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 | syntax.for...(syntax-rules.()... |
| 88120 | 20 20 28 28 66 6f 72 20 28 28 76 61 72 20 69 74 65 72 61 62 6c 65 29 29 20 62 6f 64 79 20 2e 2e | ..((for.((var.iterable)).body... |
| 88140 | 2e 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 69 74 65 72 20 28 21 20 69 74 65 72 61 74 6f 72 20 | .)......(let.((iter.(!.iterator. |
| 88160 | 69 74 65 72 61 62 6c 65 29 29 29 0a 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 21 20 68 61 73 | iterable)))........(while.(!.has |
| 88180 | 2d 6e 65 78 74 20 69 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 28 28 6c 61 6d 62 64 61 20 28 76 | -next.iter)..........((lambda.(v |
| 881a0 | 61 72 29 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 20 20 20 20 20 28 21 20 6e 65 78 74 20 | ar).body....)...........(!.next. |
| 881c0 | 69 74 65 72 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 70 61 63 6b | iter)))))))..(define-syntax.pack |
| 881e0 | 69 6e 67 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 70 61 63 | ing...(syntax-rules.().....((pac |
| 88200 | 6b 69 6e 67 20 28 76 61 72 29 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 28 6c 65 74 20 28 | king.(var).body....)......(let.( |
| 88220 | 28 76 61 72 20 3a 3a 20 3c 6c 69 73 74 3e 20 27 28 29 29 29 0a 20 20 20 20 20 20 20 28 6c 65 74 | (var.::.<list>.'()))........(let |
| 88240 | 20 28 28 76 61 72 20 28 6c 61 6d 62 64 61 20 28 76 29 20 28 73 65 74 21 20 76 61 72 20 28 63 6f | .((var.(lambda.(v).(set!.var.(co |
| 88260 | 6e 73 20 76 20 76 61 72 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 62 6f 64 79 20 2e 2e 2e 29 | ns.v.var)))))..........body....) |
| 88280 | 0a 20 20 20 20 20 20 20 28 72 65 76 65 72 73 65 21 20 76 61 72 29 29 29 29 29 0a 0a 3b 3b 28 64 | ........(reverse!.var)))))..;;(d |
| 882a0 | 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 6c 6f 6f 70 0a 3b 3b 20 20 28 73 79 6e 74 61 78 2d 72 75 | efine-syntax.loop.;;..(syntax-ru |
| 882c0 | 6c 65 73 20 28 66 6f 72 20 3d 20 74 68 65 6e 20 63 6f 6c 6c 65 63 74 20 75 6e 74 69 6c 29 0a 3b | les.(for.=.then.collect.until).; |
| 882e0 | 3b 20 20 20 20 28 28 6c 6f 6f 70 20 66 6f 72 20 76 61 72 20 3d 20 69 6e 69 74 20 74 68 65 6e 20 | ;....((loop.for.var.=.init.then. |
| 88300 | 73 74 65 70 20 75 6e 74 69 6c 20 74 65 73 74 20 63 6f 6c 6c 65 63 74 20 65 78 70 29 0a 3b 3b 20 | step.until.test.collect.exp).;;. |
| 88320 | 20 20 20 20 28 70 61 63 6b 69 6e 67 20 28 70 61 63 6b 29 0a 3b 3b 20 20 20 20 20 20 20 28 64 6f | ....(packing.(pack).;;.......(do |
| 88340 | 20 28 28 76 61 72 20 69 6e 69 74 20 73 74 65 70 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 | .((var.init.step)).;;........... |
| 88360 | 28 74 65 73 74 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 65 78 70 29 29 29 29 0a | (test).;;.........(pack.exp)))). |
| 88380 | 3b 3b 20 20 20 20 28 28 6c 6f 6f 70 20 77 68 69 6c 65 20 74 65 73 74 20 63 6f 6c 6c 65 63 74 20 | ;;....((loop.while.test.collect. |
| 883a0 | 65 78 70 29 0a 3b 3b 20 20 20 20 20 28 70 61 63 6b 69 6e 67 20 28 70 61 63 6b 29 20 28 77 68 69 | exp).;;.....(packing.(pack).(whi |
| 883c0 | 6c 65 20 74 65 73 74 20 28 70 61 63 6b 20 65 78 70 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 | le.test.(pack.exp))))))..(define |
| 883e0 | 2d 73 79 6e 74 61 78 20 77 69 74 68 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a | -syntax.with...(syntax-rules.(). |
| 88400 | 20 20 20 20 28 28 77 69 74 68 20 28 76 61 72 73 20 2e 2e 2e 20 28 66 20 61 72 67 73 20 2e 2e 2e | ....((with.(vars.....(f.args.... |
| 88420 | 29 29 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 28 66 20 61 72 67 73 20 2e 2e 2e 20 28 6c | )).body....)......(f.args.....(l |
| 88440 | 61 6d 62 64 61 20 28 76 61 72 73 20 2e 2e 2e 29 20 62 6f 64 79 20 2e 2e 2e 29 29 29 29 29 0a 0a | ambda.(vars....).body....))))).. |
| 88460 | 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 70 75 73 68 66 0a 20 20 28 73 79 6e 74 61 78 2d 72 | (define-syntax.pushf...(syntax-r |
| 88480 | 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 70 75 73 68 66 20 76 61 6c 75 65 20 76 61 72 29 0a 20 | ules.().....((pushf.value.var).. |
| 884a0 | 20 20 20 20 28 73 65 74 21 20 76 61 72 20 28 63 6f 6e 73 20 76 61 6c 75 65 20 76 61 72 29 29 29 | ....(set!.var.(cons.value.var))) |
| 884c0 | 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 3d 3d 0a 20 20 28 73 79 6e 74 61 78 2d | ))..(define-syntax.==...(syntax- |
| 884e0 | 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 3d 3d 20 78 20 79 29 0a 20 20 20 20 20 28 65 71 3f | rules.().....((==.x.y)......(eq? |
| 88500 | 20 78 20 79 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 73 65 74 0a 20 20 28 | .x.y))))..(define-syntax.set...( |
| 88520 | 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 73 65 74 20 78 20 79 29 0a 20 | syntax-rules.().....((set.x.y).. |
| 88540 | 20 20 20 20 28 6c 65 74 20 28 28 74 6d 70 20 79 29 29 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 | ....(let.((tmp.y))........(set!. |
| 88560 | 78 20 74 6d 70 29 0a 20 20 20 20 20 20 20 74 6d 70 29 29 0a 20 20 20 20 28 28 73 65 74 20 78 20 | x.tmp)........tmp)).....((set.x. |
| 88580 | 79 20 6d 6f 72 65 20 2e 2e 2e 29 0a 20 20 20 20 20 28 62 65 67 69 6e 20 28 73 65 74 21 20 78 20 | y.more....)......(begin.(set!.x. |
| 885a0 | 79 29 20 28 73 65 74 20 6d 6f 72 65 20 2e 2e 2e 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 | y).(set.more....)))))..(define-s |
| 885c0 | 79 6e 74 61 78 20 61 73 73 65 72 74 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a | yntax.assert...(syntax-rules.(). |
| 885e0 | 20 20 20 20 28 28 61 73 73 65 72 74 20 74 65 73 74 29 0a 20 20 20 20 20 28 73 65 71 0a 20 20 20 | ....((assert.test)......(seq.... |
| 88600 | 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 74 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 28 65 | ....(when.(not.test)..........(e |
| 88620 | 72 72 6f 72 20 22 41 73 73 65 72 74 69 6f 6e 20 66 61 69 6c 65 64 22 20 27 74 65 73 74 29 29 0a | rror."Assertion.failed".'test)). |
| 88640 | 20 20 20 20 20 20 20 27 6f 6b 29 29 0a 20 20 20 20 28 28 61 73 73 65 72 74 20 74 65 73 74 20 66 | .......'ok)).....((assert.test.f |
| 88660 | 73 74 72 69 6e 67 20 61 72 67 73 20 2e 2e 2e 29 0a 20 20 20 20 20 28 73 65 71 0a 20 20 20 20 20 | string.args....)......(seq...... |
| 88680 | 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 74 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 28 65 72 72 | ..(when.(not.test)..........(err |
| 886a0 | 6f 72 20 22 41 73 73 65 72 74 69 6f 6e 20 66 61 69 6c 65 64 22 20 27 74 65 73 74 20 28 66 6f 72 | or."Assertion.failed".'test.(for |
| 886c0 | 6d 61 74 20 23 66 20 66 73 74 72 69 6e 67 20 61 72 67 73 20 2e 2e 2e 29 29 29 0a 20 20 20 20 20 | mat.#f.fstring.args....)))...... |
| 886e0 | 20 20 27 6f 6b 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 6d 69 66 0a 20 20 | ..'ok))))..(define-syntax.mif... |
| 88700 | 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 71 75 6f 74 65 20 75 6e 71 75 6f 74 65 20 5f 29 0a | (syntax-rules.(quote.unquote._). |
| 88720 | 20 20 20 20 28 28 6d 69 66 20 28 27 78 20 76 61 6c 75 65 29 20 74 68 65 6e 20 65 6c 73 65 29 0a | ....((mif.('x.value).then.else). |
| 88740 | 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 3f 20 27 78 20 76 61 6c 75 65 29 20 74 68 65 6e 20 | .....(if.(equal?.'x.value).then. |
| 88760 | 65 6c 73 65 29 29 0a 20 20 20 20 28 28 6d 69 66 20 28 2c 78 20 76 61 6c 75 65 29 20 74 68 65 6e | else)).....((mif.(,x.value).then |
| 88780 | 20 65 6c 73 65 29 0a 20 20 20 20 20 28 69 66 20 28 65 71 3f 20 78 20 76 61 6c 75 65 29 20 74 68 | .else)......(if.(eq?.x.value).th |
| 887a0 | 65 6e 20 65 6c 73 65 29 29 0a 20 20 20 20 28 28 6d 69 66 20 28 28 29 20 76 61 6c 75 65 29 20 74 | en.else)).....((mif.(().value).t |
| 887c0 | 68 65 6e 20 65 6c 73 65 29 0a 20 20 20 20 20 28 69 66 20 28 65 71 3f 20 76 61 6c 75 65 20 27 28 | hen.else)......(if.(eq?.value.'( |
| 887e0 | 29 29 20 74 68 65 6e 20 65 6c 73 65 29 29 0a 20 20 20 20 23 7c 20 20 54 68 69 73 20 76 61 72 69 | )).then.else)).....#|..This.vari |
| 88800 | 61 6e 74 20 70 72 6f 64 75 63 65 73 20 6e 6f 20 6c 61 6d 62 64 61 73 20 62 75 74 20 62 72 65 61 | ant.produces.no.lambdas.but.brea |
| 88820 | 6b 73 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 0a 20 20 20 20 28 28 6d 69 66 20 28 28 70 20 2e 20 | ks.the.compiler.....((mif.((p... |
| 88840 | 70 73 29 20 76 61 6c 75 65 29 20 74 68 65 6e 20 65 6c 73 65 29 0a 20 20 20 20 20 28 6c 65 74 20 | ps).value).then.else)......(let. |
| 88860 | 28 28 74 6d 70 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 61 69 6c 3f 20 3a | ((tmp.value)............(fail?.: |
| 88880 | 3a 20 3c 69 6e 74 3e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 75 6c 74 20 23 21 | :.<int>.0)............(result.#! |
| 888a0 | 6e 75 6c 6c 29 29 0a 20 20 20 20 20 20 20 28 69 66 20 28 69 6e 73 74 61 6e 63 65 3f 20 74 6d 70 | null))........(if.(instance?.tmp |
| 888c0 | 20 3c 70 61 69 72 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 6d 70 20 3a | .<pair>)............(let.((tmp.: |
| 888e0 | 3a 20 3c 70 61 69 72 3e 20 74 6d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 69 66 | :.<pair>.tmp))..............(mif |
| 88900 | 20 28 70 20 28 21 20 67 65 74 2d 63 61 72 20 74 6d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(p.(!.get-car.tmp))............ |
| 88920 | 20 20 20 20 20 20 20 28 6d 69 66 20 28 70 73 20 28 21 20 67 65 74 2d 63 64 72 20 74 6d 70 29 29 | .......(mif.(ps.(!.get-cdr.tmp)) |
| 88940 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 21 20 72 65 | ........................(set!.re |
| 88960 | 73 75 6c 74 20 74 68 65 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sult.then)...................... |
| 88980 | 20 20 28 73 65 74 21 20 66 61 69 6c 3f 20 2d 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(set!.fail?.-1)).............. |
| 889a0 | 20 20 20 20 20 28 73 65 74 21 20 66 61 69 6c 3f 20 2d 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 | .....(set!.fail?.-1))).......... |
| 889c0 | 20 20 28 73 65 74 21 20 66 61 69 6c 3f 20 2d 31 29 29 0a 20 20 20 20 20 20 20 28 69 66 20 28 3d | ..(set!.fail?.-1))........(if.(= |
| 889e0 | 20 66 61 69 6c 3f 20 30 29 20 72 65 73 75 6c 74 20 65 6c 73 65 29 29 29 0a 20 20 20 20 7c 23 0a | .fail?.0).result.else))).....|#. |
| 88a00 | 20 20 20 20 28 28 6d 69 66 20 28 28 70 20 2e 20 70 73 29 20 76 61 6c 75 65 29 20 74 68 65 6e 20 | ....((mif.((p...ps).value).then. |
| 88a20 | 65 6c 73 65 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 66 61 69 6c 20 28 6c 61 6d 62 64 61 20 28 | else)......(let.((fail.(lambda.( |
| 88a40 | 29 20 65 6c 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 6d 70 20 76 61 6c 75 65 29 29 | ).else))............(tmp.value)) |
| 88a60 | 0a 20 20 20 20 20 20 20 28 69 66 20 28 69 6e 73 74 61 6e 63 65 3f 20 74 6d 70 20 3c 70 61 69 72 | ........(if.(instance?.tmp.<pair |
| 88a80 | 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 6d 70 20 3a 3a 20 3c 70 61 69 | >)............(let.((tmp.::.<pai |
| 88aa0 | 72 3e 20 74 6d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 69 66 20 28 70 20 28 21 | r>.tmp))..............(mif.(p.(! |
| 88ac0 | 20 67 65 74 2d 63 61 72 20 74 6d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .get-car.tmp)).................. |
| 88ae0 | 20 28 6d 69 66 20 28 70 73 20 28 21 20 67 65 74 2d 63 64 72 20 74 6d 70 29 29 0a 20 20 20 20 20 | .(mif.(ps.(!.get-cdr.tmp))...... |
| 88b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 | ..................then.......... |
| 88b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 61 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ..............(fail))........... |
| 88b40 | 20 20 20 20 20 20 20 20 28 66 61 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 61 69 | ........(fail)))............(fai |
| 88b60 | 6c 29 29 29 29 0a 20 20 20 20 28 28 6d 69 66 20 28 5f 20 76 61 6c 75 65 29 20 74 68 65 6e 20 65 | l)))).....((mif.(_.value).then.e |
| 88b80 | 6c 73 65 29 0a 20 20 20 20 20 74 68 65 6e 29 0a 20 20 20 20 28 28 6d 69 66 20 28 76 61 72 20 76 | lse)......then).....((mif.(var.v |
| 88ba0 | 61 6c 75 65 29 20 74 68 65 6e 20 65 6c 73 65 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 72 | alue).then.else)......(let.((var |
| 88bc0 | 20 76 61 6c 75 65 29 29 20 74 68 65 6e 29 29 0a 20 20 20 20 28 28 6d 69 66 20 28 70 61 74 74 65 | .value)).then)).....((mif.(patte |
| 88be0 | 72 6e 20 76 61 6c 75 65 29 20 74 68 65 6e 29 0a 20 20 20 20 20 28 6d 69 66 20 28 70 61 74 74 65 | rn.value).then)......(mif.(patte |
| 88c00 | 72 6e 20 76 61 6c 75 65 29 20 74 68 65 6e 20 28 76 61 6c 75 65 73 29 29 29 29 29 0a 0a 28 64 65 | rn.value).then.(values)))))..(de |
| 88c20 | 66 69 6e 65 2d 73 79 6e 74 61 78 20 6d 63 61 73 65 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 | fine-syntax.mcase...(syntax-rule |
| 88c40 | 73 20 28 29 0a 20 20 20 20 28 28 6d 63 61 73 65 20 65 78 70 20 28 70 61 74 74 65 72 6e 20 62 6f | s.().....((mcase.exp.(pattern.bo |
| 88c60 | 64 79 20 2e 2e 2e 29 20 6d 6f 72 65 20 2e 2e 2e 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 74 6d | dy....).more....)......(let.((tm |
| 88c80 | 70 20 65 78 70 29 29 0a 20 20 20 20 20 20 20 28 6d 69 66 20 28 70 61 74 74 65 72 6e 20 74 6d 70 | p.exp))........(mif.(pattern.tmp |
| 88ca0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 | ).............(begin.body....).. |
| 88cc0 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 63 61 73 65 20 74 6d 70 20 6d 6f 72 65 20 2e 2e 2e 29 29 | ...........(mcase.tmp.more....)) |
| 88ce0 | 29 29 0a 20 20 20 20 28 28 6d 63 61 73 65 20 65 78 70 29 20 28 66 65 72 72 6f 72 20 22 6d 63 61 | )).....((mcase.exp).(ferror."mca |
| 88d00 | 73 65 20 66 61 69 6c 65 64 20 7e 73 5c 6e 7e 61 22 20 27 65 78 70 20 65 78 70 29 29 29 29 0a 0a | se.failed.~s\n~a".'exp.exp)))).. |
| 88d20 | 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 6d 6c 65 74 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 | (define-syntax.mlet...(syntax-ru |
| 88d40 | 6c 65 73 20 28 29 0a 20 20 20 20 28 28 6d 6c 65 74 20 28 70 61 74 74 65 72 6e 20 76 61 6c 75 65 | les.().....((mlet.(pattern.value |
| 88d60 | 29 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 74 6d 70 20 76 61 6c 75 | ).body....)......(let.((tmp.valu |
| 88d80 | 65 29 29 0a 20 20 20 20 20 20 20 28 6d 69 66 20 28 70 61 74 74 65 72 6e 20 74 6d 70 29 0a 20 20 | e))........(mif.(pattern.tmp)... |
| 88da0 | 20 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 | ..........(begin.body....)...... |
| 88dc0 | 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 6d 6c 65 74 20 66 61 69 6c 65 64 22 20 74 6d 70 29 | .......(error."mlet.failed".tmp) |
| 88de0 | 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 6d 6c 65 74 2a 0a 20 20 28 73 | )))))..(define-syntax.mlet*...(s |
| 88e00 | 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 6d 6c 65 74 2a 20 28 29 20 62 6f | yntax-rules.().....((mlet*.().bo |
| 88e20 | 64 79 20 2e 2e 2e 29 20 28 62 65 67 69 6e 20 62 6f 64 79 20 2e 2e 2e 29 29 0a 20 20 20 20 28 28 | dy....).(begin.body....)).....(( |
| 88e40 | 6d 6c 65 74 2a 20 28 28 70 61 74 74 65 72 6e 20 76 61 6c 75 65 29 20 6d 73 20 2e 2e 2e 29 20 62 | mlet*.((pattern.value).ms....).b |
| 88e60 | 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 28 6d 6c 65 74 20 28 70 61 74 74 65 72 6e 20 76 61 6c | ody....)......(mlet.(pattern.val |
| 88e80 | 75 65 29 20 28 6d 6c 65 74 2a 20 28 6d 73 20 2e 2e 2e 29 20 62 6f 64 79 20 2e 2e 2e 29 29 29 29 | ue).(mlet*.(ms....).body....)))) |
| 88ea0 | 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 74 79 70 65 63 61 73 65 25 0a 20 20 28 73 | )..(define-syntax.typecase%...(s |
| 88ec0 | 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 65 71 6c 20 6f 72 20 73 61 74 69 73 66 69 65 73 29 0a 20 | yntax-rules.(eql.or.satisfies).. |
| 88ee0 | 20 20 20 28 28 74 79 70 65 63 61 73 65 25 20 76 61 72 20 28 23 74 20 62 6f 64 79 20 2e 2e 2e 29 | ...((typecase%.var.(#t.body....) |
| 88f00 | 20 6d 6f 72 65 20 2e 2e 2e 29 0a 20 20 20 20 20 28 73 65 71 20 62 6f 64 79 20 2e 2e 2e 29 29 0a | .more....)......(seq.body....)). |
| 88f20 | 20 20 20 20 28 28 74 79 70 65 63 61 73 65 25 20 76 61 72 20 28 28 65 71 6c 20 76 61 6c 75 65 29 | ....((typecase%.var.((eql.value) |
| 88f40 | 20 62 6f 64 79 20 2e 2e 2e 29 20 6d 6f 72 65 20 2e 2e 2e 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 | .body....).more....)......(cond. |
| 88f60 | 28 28 65 71 76 3f 20 76 61 72 20 27 76 61 6c 75 65 29 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 | ((eqv?.var.'value).body....).... |
| 88f80 | 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 28 74 79 70 65 63 61 73 65 25 20 76 61 72 20 6d 6f 72 | ........(else.(typecase%.var.mor |
| 88fa0 | 65 20 2e 2e 2e 29 29 29 29 0a 20 20 20 20 28 28 74 79 70 65 63 61 73 65 25 20 76 61 72 20 28 28 | e....)))).....((typecase%.var.(( |
| 88fc0 | 73 61 74 69 73 66 69 65 73 20 70 72 65 64 69 63 61 74 65 29 20 62 6f 64 79 20 2e 2e 2e 29 20 6d | satisfies.predicate).body....).m |
| 88fe0 | 6f 72 65 20 2e 2e 2e 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 70 72 65 64 69 63 61 74 65 20 | ore....)......(cond.((predicate. |
| 89000 | 76 61 72 29 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 | var).body....)............(else. |
| 89020 | 28 74 79 70 65 63 61 73 65 25 20 76 61 72 20 6d 6f 72 65 20 2e 2e 2e 29 29 29 29 0a 20 20 20 20 | (typecase%.var.more....))))..... |
| 89040 | 28 28 74 79 70 65 63 61 73 65 25 20 76 61 72 20 28 28 6f 72 20 74 79 70 65 29 20 62 6f 64 79 20 | ((typecase%.var.((or.type).body. |
| 89060 | 2e 2e 2e 29 20 6d 6f 72 65 20 2e 2e 2e 29 0a 20 20 20 20 20 28 74 79 70 65 63 61 73 65 25 20 76 | ...).more....)......(typecase%.v |
| 89080 | 61 72 20 28 74 79 70 65 20 62 6f 64 79 20 2e 2e 2e 29 20 6d 6f 72 65 20 2e 2e 2e 29 29 0a 20 20 | ar.(type.body....).more....))... |
| 890a0 | 20 20 28 28 74 79 70 65 63 61 73 65 25 20 76 61 72 20 28 28 6f 72 20 74 79 70 65 20 2e 2e 2e 29 | ..((typecase%.var.((or.type....) |
| 890c0 | 20 62 6f 64 79 20 2e 2e 2e 29 20 6d 6f 72 65 20 2e 2e 2e 29 0a 20 20 20 20 20 28 6c 65 74 20 28 | .body....).more....)......(let.( |
| 890e0 | 28 66 20 28 6c 61 6d 62 64 61 20 28 76 61 72 29 20 62 6f 64 79 20 2e 2e 2e 29 29 29 0a 20 20 20 | (f.(lambda.(var).body....))).... |
| 89100 | 20 20 20 20 28 74 79 70 65 63 61 73 65 25 20 76 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(typecase%.var.............. |
| 89120 | 20 20 20 20 20 28 74 79 70 65 20 28 66 20 76 61 72 29 29 20 2e 2e 2e 0a 20 20 20 20 20 20 20 20 | .....(type.(f.var))............. |
| 89140 | 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 74 79 70 65 63 61 73 65 25 20 76 61 72 20 6d 6f 72 | ..........(#t.(typecase%.var.mor |
| 89160 | 65 20 2e 2e 2e 29 29 29 29 29 0a 20 20 20 20 28 28 74 79 70 65 63 61 73 65 25 20 76 61 72 20 28 | e....))))).....((typecase%.var.( |
| 89180 | 74 79 70 65 20 62 6f 64 79 20 2e 2e 2e 29 20 6d 6f 72 65 20 2e 2e 2e 29 0a 20 20 20 20 20 28 63 | type.body....).more....)......(c |
| 891a0 | 6f 6e 64 20 28 28 69 6e 73 74 61 6e 63 65 3f 20 76 61 72 20 74 79 70 65 29 0a 20 20 20 20 20 20 | ond.((instance?.var.type)....... |
| 891c0 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 72 20 3a 3a 20 74 79 70 65 20 28 61 73 20 74 79 70 | ......(let.((var.::.type.(as.typ |
| 891e0 | 65 20 76 61 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 6f 64 79 20 2e 2e 2e 29 | e.var)))...............body....) |
| 89200 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 28 74 79 70 65 63 61 73 65 25 20 76 61 | )............(else.(typecase%.va |
| 89220 | 72 20 6d 6f 72 65 20 2e 2e 2e 29 29 29 29 0a 20 20 20 20 28 28 74 79 70 65 63 61 73 65 25 20 76 | r.more....)))).....((typecase%.v |
| 89240 | 61 72 29 0a 20 20 20 20 20 28 65 72 72 6f 72 20 22 74 79 70 65 63 61 73 65 25 20 66 61 69 6c 65 | ar)......(error."typecase%.faile |
| 89260 | 64 22 20 76 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 67 65 74 43 6c 61 73 73 20 28 | d".var.............(!.getClass.( |
| 89280 | 61 73 20 3c 6f 62 6a 65 63 74 3e 20 76 61 72 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 | as.<object>.var))))))..(define-s |
| 892a0 | 79 6e 74 61 78 20 74 79 70 65 63 61 73 65 0a 20 20 28 6c 61 6d 62 64 61 20 28 73 74 78 29 0a 20 | yntax.typecase...(lambda.(stx).. |
| 892c0 | 20 20 20 28 73 79 6e 74 61 78 2d 63 61 73 65 20 73 74 78 20 28 29 0a 20 20 20 20 20 20 28 28 5f | ...(syntax-case.stx.().......((_ |
| 892e0 | 20 65 78 70 20 6d 6f 72 65 20 2e 2e 2e 29 20 28 69 64 65 6e 74 69 66 69 65 72 3f 20 28 73 79 6e | .exp.more....).(identifier?.(syn |
| 89300 | 74 61 78 20 65 78 70 29 29 0a 20 20 20 20 20 20 20 23 60 28 74 79 70 65 63 61 73 65 25 20 65 78 | tax.exp))........#`(typecase%.ex |
| 89320 | 70 20 6d 6f 72 65 20 2e 2e 2e 29 29 0a 20 20 20 20 20 20 28 28 5f 20 65 78 70 20 6d 6f 72 65 20 | p.more....)).......((_.exp.more. |
| 89340 | 2e 2e 2e 29 0a 20 20 20 20 20 20 20 23 60 28 6c 65 74 20 28 28 74 6d 70 20 65 78 70 29 29 0a 20 | ...)........#`(let.((tmp.exp)).. |
| 89360 | 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 25 20 74 6d 70 20 6d 6f 72 65 20 2e 2e | ..........(typecase%.tmp.more... |
| 89380 | 2e 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 69 67 6e 6f 72 65 2d 65 | .))))))..(define-syntax.ignore-e |
| 893a0 | 72 72 6f 72 73 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 69 | rrors...(syntax-rules.().....((i |
| 893c0 | 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 28 74 72 79 | gnore-errors.body....)......(try |
| 893e0 | 2d 63 61 74 63 68 20 28 73 65 71 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 20 20 20 20 20 | -catch.(seq.body....)........... |
| 89400 | 20 20 20 20 20 20 28 76 20 3c 6a 61 76 61 2e 6c 61 6e 67 2e 45 72 72 6f 72 3e 20 23 66 29 0a 20 | ......(v.<java.lang.Error>.#f).. |
| 89420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 20 3c 6a 61 76 61 2e 6c 61 6e 67 2e 45 78 63 | ...............(v.<java.lang.Exc |
| 89440 | 65 70 74 69 6f 6e 3e 20 23 66 29 29 29 29 29 0a 0a 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6c 69 62 | eption>.#f)))))..))..(define-lib |
| 89460 | 72 61 72 79 20 28 73 77 61 6e 6b 2d 6b 61 77 61 29 0a 20 20 20 20 28 65 78 70 6f 72 74 20 73 74 | rary.(swank-kawa).....(export.st |
| 89480 | 61 72 74 2d 73 77 61 6e 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 72 65 61 74 65 2d 73 77 61 | art-swank.............create-swa |
| 894a0 | 6e 6b 2d 73 65 72 76 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 77 61 6e 6b 2d 6a 61 76 61 | nk-server.............swank-java |
| 894c0 | 2d 73 6f 75 72 63 65 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 29 0a | -source-path.............break). |
| 894e0 | 20 20 20 20 28 69 6d 70 6f 72 74 20 28 73 63 68 65 6d 65 20 62 61 73 65 29 0a 20 20 20 20 20 20 | ....(import.(scheme.base)....... |
| 89500 | 20 20 20 20 20 20 28 73 63 68 65 6d 65 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(scheme.file)............. |
| 89520 | 28 73 63 68 65 6d 65 20 72 65 70 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 63 68 65 6d | (scheme.repl).............(schem |
| 89540 | 65 20 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 63 68 65 6d 65 20 77 72 69 74 | e.read).............(scheme.writ |
| 89560 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 63 68 65 6d 65 20 65 76 61 6c 29 0a 20 20 20 | e).............(scheme.eval).... |
| 89580 | 20 20 20 20 20 20 20 20 20 28 73 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2d 63 6f 6e 74 65 78 74 | .........(scheme.process-context |
| 895a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 20 6d 61 63 72 6f 73 29 0a 20 20 20 | ).............(swank.macros).... |
| 895c0 | 20 20 20 20 20 20 20 20 20 28 6f 6e 6c 79 20 28 6b 61 77 61 20 62 61 73 65 29 0a 0a 20 20 20 20 | .........(only.(kawa.base)...... |
| 895e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 2d 61 6c 69 61 73 0a 20 20 20 20 20 | ..............define-alias...... |
| 89600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 0a 0a 20 20 | .............define-variable.... |
| 89620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 2d 73 69 6d 70 6c 65 2d 63 6c | ................define-simple-cl |
| 89640 | 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 69 73 0a 0a 20 20 20 20 | ass...................this...... |
| 89660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 76 6f 6b 65 2d 73 70 65 63 69 61 6c 0a 20 20 20 | ..............invoke-special.... |
| 89680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 73 74 61 6e 63 65 3f 0a 20 20 20 20 20 20 20 | ...............instance?........ |
| 896a0 | 20 20 20 20 20 20 20 20 20 20 20 61 73 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........as................... |
| 896c0 | 20 70 72 69 6d 69 74 69 76 65 2d 74 68 72 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .primitive-throw................ |
| 896e0 | 20 20 20 74 72 79 2d 66 69 6e 61 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...try-finally.................. |
| 89700 | 20 74 72 79 2d 63 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6e | .try-catch...................syn |
| 89720 | 63 68 72 6f 6e 69 7a 65 64 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c | chronized....................cal |
| 89740 | 6c 2d 77 69 74 68 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 | l-with-input-string............. |
| 89760 | 20 20 20 20 20 20 63 61 6c 6c 2d 77 69 74 68 2d 6f 75 74 70 75 74 2d 73 74 72 69 6e 67 0a 20 20 | ......call-with-output-string... |
| 89780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 63 65 2d 6f 75 74 70 75 74 0a 20 20 20 | ................force-output.... |
| 897a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 61 74 0a 0a 20 20 20 20 20 20 20 20 20 | ...............format........... |
| 897c0 | 20 20 20 20 20 20 20 20 20 6d 61 6b 65 2d 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 | .........make-process........... |
| 897e0 | 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 2d 70 61 72 73 65 0a 0a 20 20 20 20 20 20 20 20 20 | ........command-parse........... |
| 89800 | 20 20 20 20 20 20 20 20 20 72 75 6e 6e 61 62 6c 65 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........runnable............... |
| 89820 | 20 20 20 20 20 73 63 68 65 6d 65 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 | .....scheme-implementation-versi |
| 89840 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 76 65 72 73 65 21 0a 20 20 | on...................reverse!... |
| 89860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 | ................).............(r |
| 89880 | 6e 72 73 20 68 61 73 68 74 61 62 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 6e 6c | nrs.hashtables).............(onl |
| 898a0 | 79 20 28 67 6e 75 20 6b 61 77 61 20 73 6c 69 62 20 73 79 6e 74 61 78 75 74 69 6c 73 29 20 65 78 | y.(gnu.kawa.slib.syntaxutils).ex |
| 898c0 | 70 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 6e 6c 79 20 28 6b 61 77 61 20 72 65 | pand).............(only.(kawa.re |
| 898e0 | 67 65 78 29 20 72 65 67 65 78 2d 6d 61 74 63 68 29 29 0a 20 20 28 62 65 67 69 6e 20 22 0a 28 22 | gex).regex-match))...(begin.".(" |
| 89900 | 0a 0a 0a 3b 3b 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 64 63 0a 3b 3b 20 20 28 73 79 6e 74 | ...;;(define-syntax.dc.;;..(synt |
| 89920 | 61 78 2d 72 75 6c 65 73 20 28 29 0a 3b 3b 20 20 20 20 28 28 64 63 20 6e 61 6d 65 20 28 29 20 25 | ax-rules.().;;....((dc.name.().% |
| 89940 | 25 20 28 70 72 6f 70 73 20 2e 2e 2e 29 20 70 72 6f 70 20 6d 6f 72 65 20 2e 2e 2e 29 0a 3b 3b 20 | %.(props....).prop.more....).;;. |
| 89960 | 20 20 20 20 28 64 63 20 6e 61 6d 65 20 28 29 20 25 25 20 28 70 72 6f 70 73 20 2e 2e 2e 20 28 70 | ....(dc.name.().%%.(props.....(p |
| 89980 | 72 6f 70 20 3c 6f 62 6a 65 63 74 3e 29 29 20 6d 6f 72 65 20 2e 2e 2e 29 29 0a 3b 3b 20 20 20 20 | rop.<object>)).more....)).;;.... |
| 899a0 | 3b 3b 28 28 64 63 20 6e 61 6d 65 20 28 29 20 25 25 20 28 70 72 6f 70 73 20 2e 2e 2e 29 20 28 70 | ;;((dc.name.().%%.(props....).(p |
| 899c0 | 72 6f 70 20 74 79 70 65 29 20 6d 6f 72 65 20 2e 2e 2e 29 0a 3b 3b 20 20 20 20 3b 3b 20 28 64 63 | rop.type).more....).;;....;;.(dc |
| 899e0 | 20 6e 61 6d 65 20 28 29 20 25 25 20 28 70 72 6f 70 73 20 2e 2e 2e 20 28 70 72 6f 70 20 74 79 70 | .name.().%%.(props.....(prop.typ |
| 89a00 | 65 29 29 20 6d 6f 72 65 20 2e 2e 2e 29 29 0a 3b 3b 20 20 20 20 28 28 64 63 20 6e 61 6d 65 20 28 | e)).more....)).;;....((dc.name.( |
| 89a20 | 29 20 25 25 20 28 28 70 72 6f 70 20 74 79 70 65 29 20 2e 2e 2e 29 29 0a 3b 3b 20 20 20 20 20 28 | ).%%.((prop.type)....)).;;.....( |
| 89a40 | 64 65 66 69 6e 65 2d 73 69 6d 70 6c 65 2d 63 6c 61 73 73 20 6e 61 6d 65 20 28 29 0a 3b 3b 20 20 | define-simple-class.name.().;;.. |
| 89a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 2a 69 6e 69 74 2a | ........................((*init* |
| 89a80 | 20 28 70 72 6f 70 20 3a 3a 20 74 79 70 65 29 20 2e 2e 2e 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 | .(prop.::.type)....).;;......... |
| 89aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 28 66 69 65 6c 64 20 28 74 | ..................(set.(field.(t |
| 89ac0 | 68 69 73 29 20 27 70 72 6f 70 29 20 70 72 6f 70 29 20 2e 2e 2e 29 0a 3b 3b 20 20 20 20 20 20 20 | his).'prop).prop)....).;;....... |
| 89ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 20 3a 74 79 70 65 20 74 | ...................(prop.:type.t |
| 89b00 | 79 70 65 29 20 2e 2e 2e 29 29 0a 3b 3b 20 20 20 20 28 28 64 63 20 6e 61 6d 65 20 28 29 20 70 72 | ype)....)).;;....((dc.name.().pr |
| 89b20 | 6f 70 73 20 2e 2e 2e 29 0a 3b 3b 20 20 20 20 20 28 64 63 20 6e 61 6d 65 20 28 29 20 25 25 20 28 | ops....).;;.....(dc.name.().%%.( |
| 89b40 | 29 20 70 72 6f 70 73 20 2e 2e 2e 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 41 6c 69 61 73 65 73 0a | ).props....))))....;;;;.Aliases. |
| 89b60 | 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 3e 20 6a | .(define-alias.<server-socket>.j |
| 89b80 | 61 76 61 2e 6e 65 74 2e 53 65 72 76 65 72 53 6f 63 6b 65 74 29 0a 28 64 65 66 69 6e 65 2d 61 6c | ava.net.ServerSocket).(define-al |
| 89ba0 | 69 61 73 20 3c 73 6f 63 6b 65 74 3e 20 6a 61 76 61 2e 6e 65 74 2e 53 6f 63 6b 65 74 29 0a 28 64 | ias.<socket>.java.net.Socket).(d |
| 89bc0 | 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 69 6e 3e 20 6a 61 76 61 2e 69 6f 2e 49 6e 70 75 74 53 74 | efine-alias.<in>.java.io.InputSt |
| 89be0 | 72 65 61 6d 52 65 61 64 65 72 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 6f 75 74 3e 20 | reamReader).(define-alias.<out>. |
| 89c00 | 6a 61 76 61 2e 69 6f 2e 4f 75 74 70 75 74 53 74 72 65 61 6d 57 72 69 74 65 72 29 0a 28 64 65 66 | java.io.OutputStreamWriter).(def |
| 89c20 | 69 6e 65 2d 61 6c 69 61 73 20 3c 69 6e 2d 70 6f 72 74 3e 20 67 6e 75 2e 6b 61 77 61 2e 69 6f 2e | ine-alias.<in-port>.gnu.kawa.io. |
| 89c40 | 49 6e 50 6f 72 74 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 6f 75 74 2d 70 6f 72 74 3e | InPort).(define-alias.<out-port> |
| 89c60 | 20 67 6e 75 2e 6b 61 77 61 2e 69 6f 2e 4f 75 74 50 6f 72 74 29 0a 28 64 65 66 69 6e 65 2d 61 6c | .gnu.kawa.io.OutPort).(define-al |
| 89c80 | 69 61 73 20 3c 66 69 6c 65 3e 20 6a 61 76 61 2e 69 6f 2e 46 69 6c 65 29 0a 28 64 65 66 69 6e 65 | ias.<file>.java.io.File).(define |
| 89ca0 | 2d 61 6c 69 61 73 20 3c 73 74 72 3e 20 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 72 69 6e 67 29 0a 28 | -alias.<str>.java.lang.String).( |
| 89cc0 | 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 62 75 69 6c 64 65 72 3e 20 6a 61 76 61 2e 6c 61 6e 67 | define-alias.<builder>.java.lang |
| 89ce0 | 2e 53 74 72 69 6e 67 42 75 69 6c 64 65 72 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 74 | .StringBuilder).(define-alias.<t |
| 89d00 | 68 72 6f 77 61 62 6c 65 3e 20 6a 61 76 61 2e 6c 61 6e 67 2e 54 68 72 6f 77 61 62 6c 65 29 0a 28 | hrowable>.java.lang.Throwable).( |
| 89d20 | 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 73 6f 75 72 63 65 2d 65 72 72 6f 72 3e 20 67 6e 75 2e | define-alias.<source-error>.gnu. |
| 89d40 | 74 65 78 74 2e 53 6f 75 72 63 65 45 72 72 6f 72 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 | text.SourceError).(define-alias. |
| 89d60 | 3c 6d 6f 64 75 6c 65 2d 69 6e 66 6f 3e 20 67 6e 75 2e 65 78 70 72 2e 4d 6f 64 75 6c 65 49 6e 66 | <module-info>.gnu.expr.ModuleInf |
| 89d80 | 6f 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 69 74 65 72 61 62 6c 65 3e 20 6a 61 76 61 | o).(define-alias.<iterable>.java |
| 89da0 | 2e 6c 61 6e 67 2e 49 74 65 72 61 62 6c 65 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 74 | .lang.Iterable).(define-alias.<t |
| 89dc0 | 68 72 65 61 64 3e 20 6a 61 76 61 2e 6c 61 6e 67 2e 54 68 72 65 61 64 29 0a 28 64 65 66 69 6e 65 | hread>.java.lang.Thread).(define |
| 89de0 | 2d 61 6c 69 61 73 20 3c 71 75 65 75 65 3e 20 6a 61 76 61 2e 75 74 69 6c 2e 63 6f 6e 63 75 72 72 | -alias.<queue>.java.util.concurr |
| 89e00 | 65 6e 74 2e 4c 69 6e 6b 65 64 42 6c 6f 63 6b 69 6e 67 51 75 65 75 65 29 0a 28 64 65 66 69 6e 65 | ent.LinkedBlockingQueue).(define |
| 89e20 | 2d 61 6c 69 61 73 20 3c 65 78 63 68 61 6e 67 65 72 3e 20 6a 61 76 61 2e 75 74 69 6c 2e 63 6f 6e | -alias.<exchanger>.java.util.con |
| 89e40 | 63 75 72 72 65 6e 74 2e 45 78 63 68 61 6e 67 65 72 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 | current.Exchanger).(define-alias |
| 89e60 | 20 3c 74 69 6d 65 75 6e 69 74 3e 20 6a 61 76 61 2e 75 74 69 6c 2e 63 6f 6e 63 75 72 72 65 6e 74 | .<timeunit>.java.util.concurrent |
| 89e80 | 2e 54 69 6d 65 55 6e 69 74 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 76 6d 3e 20 63 6f | .TimeUnit).(define-alias.<vm>.co |
| 89ea0 | 6d 2e 73 75 6e 2e 6a 64 69 2e 56 69 72 74 75 61 6c 4d 61 63 68 69 6e 65 29 0a 28 64 65 66 69 6e | m.sun.jdi.VirtualMachine).(defin |
| 89ec0 | 65 2d 61 6c 69 61 73 20 3c 6d 69 72 72 6f 72 3e 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 4d 69 72 | e-alias.<mirror>.com.sun.jdi.Mir |
| 89ee0 | 72 6f 72 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 76 61 6c 75 65 3e 20 63 6f 6d 2e 73 | ror).(define-alias.<value>.com.s |
| 89f00 | 75 6e 2e 6a 64 69 2e 56 61 6c 75 65 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 74 68 72 | un.jdi.Value).(define-alias.<thr |
| 89f20 | 65 61 64 2d 72 65 66 3e 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 54 68 72 65 61 64 52 65 66 65 72 | ead-ref>.com.sun.jdi.ThreadRefer |
| 89f40 | 65 6e 63 65 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 6f 62 6a 2d 72 65 66 3e 20 63 6f | ence).(define-alias.<obj-ref>.co |
| 89f60 | 6d 2e 73 75 6e 2e 6a 64 69 2e 4f 62 6a 65 63 74 52 65 66 65 72 65 6e 63 65 29 0a 28 64 65 66 69 | m.sun.jdi.ObjectReference).(defi |
| 89f80 | 6e 65 2d 61 6c 69 61 73 20 3c 61 72 72 61 79 2d 72 65 66 3e 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 | ne-alias.<array-ref>.com.sun.jdi |
| 89fa0 | 2e 41 72 72 61 79 52 65 66 65 72 65 6e 63 65 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c | .ArrayReference).(define-alias.< |
| 89fc0 | 73 74 72 2d 72 65 66 3e 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 53 74 72 69 6e 67 52 65 66 65 72 | str-ref>.com.sun.jdi.StringRefer |
| 89fe0 | 65 6e 63 65 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 6d 65 74 68 2d 72 65 66 3e 20 63 | ence).(define-alias.<meth-ref>.c |
| 8a000 | 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 4d 65 74 68 6f 64 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 | om.sun.jdi.Method).(define-alias |
| 8a020 | 20 3c 63 6c 61 73 73 2d 74 79 70 65 3e 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 43 6c 61 73 73 54 | .<class-type>.com.sun.jdi.ClassT |
| 8a040 | 79 70 65 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 72 65 66 2d 74 79 70 65 3e 20 63 6f | ype).(define-alias.<ref-type>.co |
| 8a060 | 6d 2e 73 75 6e 2e 6a 64 69 2e 52 65 66 65 72 65 6e 63 65 54 79 70 65 29 0a 28 64 65 66 69 6e 65 | m.sun.jdi.ReferenceType).(define |
| 8a080 | 2d 61 6c 69 61 73 20 3c 66 72 61 6d 65 3e 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 53 74 61 63 6b | -alias.<frame>.com.sun.jdi.Stack |
| 8a0a0 | 46 72 61 6d 65 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 66 69 65 6c 64 3e 20 63 6f 6d | Frame).(define-alias.<field>.com |
| 8a0c0 | 2e 73 75 6e 2e 6a 64 69 2e 46 69 65 6c 64 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 6c | .sun.jdi.Field).(define-alias.<l |
| 8a0e0 | 6f 63 61 6c 2d 76 61 72 3e 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 4c 6f 63 61 6c 56 61 72 69 61 | ocal-var>.com.sun.jdi.LocalVaria |
| 8a100 | 62 6c 65 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 6c 6f 63 61 74 69 6f 6e 3e 20 63 6f | ble).(define-alias.<location>.co |
| 8a120 | 6d 2e 73 75 6e 2e 6a 64 69 2e 4c 6f 63 61 74 69 6f 6e 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 | m.sun.jdi.Location).(define-alia |
| 8a140 | 73 20 3c 61 62 73 65 6e 74 2d 65 78 63 3e 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 41 62 73 65 6e | s.<absent-exc>.com.sun.jdi.Absen |
| 8a160 | 74 49 6e 66 6f 72 6d 61 74 69 6f 6e 45 78 63 65 70 74 69 6f 6e 29 0a 28 64 65 66 69 6e 65 2d 61 | tInformationException).(define-a |
| 8a180 | 6c 69 61 73 20 3c 65 76 65 6e 74 3e 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 65 76 65 6e 74 2e 45 | lias.<event>.com.sun.jdi.event.E |
| 8a1a0 | 76 65 6e 74 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 65 78 63 65 70 74 69 6f 6e 2d 65 | vent).(define-alias.<exception-e |
| 8a1c0 | 76 65 6e 74 3e 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 65 76 65 6e 74 2e 45 78 63 65 70 74 69 6f | vent>.com.sun.jdi.event.Exceptio |
| 8a1e0 | 6e 45 76 65 6e 74 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 73 74 65 70 2d 65 76 65 6e | nEvent).(define-alias.<step-even |
| 8a200 | 74 3e 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 65 76 65 6e 74 2e 53 74 65 70 45 76 65 6e 74 29 0a | t>.com.sun.jdi.event.StepEvent). |
| 8a220 | 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 62 72 65 61 6b 70 6f 69 6e 74 2d 65 76 65 6e 74 3e | (define-alias.<breakpoint-event> |
| 8a240 | 20 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 65 76 65 6e 74 2e 42 72 65 61 6b 70 6f 69 6e 74 45 76 65 | .com.sun.jdi.event.BreakpointEve |
| 8a260 | 6e 74 29 0a 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 65 6e 76 3e 20 67 6e 75 2e 6d 61 70 70 | nt).(define-alias.<env>.gnu.mapp |
| 8a280 | 69 6e 67 2e 45 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 0a 28 64 65 66 69 6e 65 2d 73 69 6d 70 6c 65 | ing.Environment)..(define-simple |
| 8a2a0 | 2d 63 6c 61 73 73 20 3c 63 68 61 6e 3e 20 28 29 0a 20 20 28 6f 77 6e 65 72 20 3a 3a 20 3c 74 68 | -class.<chan>.()...(owner.::.<th |
| 8a2c0 | 72 65 61 64 3e 20 23 3a 69 6e 69 74 20 28 21 73 20 6a 61 76 61 2e 6c 61 6e 67 2e 54 68 72 65 61 | read>.#:init.(!s.java.lang.Threa |
| 8a2e0 | 64 20 63 75 72 72 65 6e 74 54 68 72 65 61 64 29 29 0a 20 20 28 70 65 65 72 20 3a 3a 20 3c 63 68 | d.currentThread))...(peer.::.<ch |
| 8a300 | 61 6e 3e 29 0a 20 20 28 71 75 65 75 65 20 3a 3a 20 3c 71 75 65 75 65 3e 20 23 3a 69 6e 69 74 20 | an>)...(queue.::.<queue>.#:init. |
| 8a320 | 28 3c 71 75 65 75 65 3e 29 29 0a 20 20 28 6c 6f 63 6b 20 23 3a 69 6e 69 74 20 28 3c 6f 62 6a 65 | (<queue>))...(lock.#:init.(<obje |
| 8a340 | 63 74 3e 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 45 6e 74 72 79 20 50 6f 69 6e 74 73 0a 0a 28 64 66 | ct>)))....;;;;.Entry.Points..(df |
| 8a360 | 20 63 72 65 61 74 65 2d 73 77 61 6e 6b 2d 73 65 72 76 65 72 20 28 70 6f 72 74 2d 6e 75 6d 62 65 | .create-swank-server.(port-numbe |
| 8a380 | 72 29 0a 20 20 28 73 65 74 75 70 2d 73 65 72 76 65 72 20 70 6f 72 74 2d 6e 75 6d 62 65 72 20 61 | r)...(setup-server.port-number.a |
| 8a3a0 | 6e 6e 6f 75 6e 63 65 2d 70 6f 72 74 29 29 0a 0a 28 64 66 20 73 74 61 72 74 2d 73 77 61 6e 6b 20 | nnounce-port))..(df.start-swank. |
| 8a3c0 | 28 70 6f 72 74 2d 66 69 6c 65 29 0a 20 20 28 6c 65 74 20 28 28 61 6e 6e 6f 75 6e 63 65 20 28 66 | (port-file)...(let.((announce.(f |
| 8a3e0 | 75 6e 20 28 28 73 6f 63 6b 65 74 20 3c 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 3e 29 29 0a 20 20 | un.((socket.<server-socket>))... |
| 8a400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 20 28 66 20 28 63 61 6c 6c | ..................(with.(f.(call |
| 8a420 | 2d 77 69 74 68 2d 6f 75 74 70 75 74 2d 66 69 6c 65 20 70 6f 72 74 2d 66 69 6c 65 29 29 0a 20 20 | -with-output-file.port-file))... |
| 8a440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 66 20 22 7e | ....................(format.f."~ |
| 8a460 | 64 5c 6e 22 20 28 21 20 67 65 74 2d 6c 6f 63 61 6c 2d 70 6f 72 74 20 73 6f 63 6b 65 74 29 29 29 | d\n".(!.get-local-port.socket))) |
| 8a480 | 29 29 29 0a 20 20 20 20 28 73 70 61 77 6e 20 28 66 75 6e 20 28 29 0a 20 20 20 20 20 20 20 20 20 | ))).....(spawn.(fun.().......... |
| 8a4a0 | 20 20 20 20 28 73 65 74 75 70 2d 73 65 72 76 65 72 20 30 20 61 6e 6e 6f 75 6e 63 65 29 29 29 29 | ....(setup-server.0.announce)))) |
| 8a4c0 | 29 0a 0a 28 64 66 20 73 65 74 75 70 2d 73 65 72 76 65 72 20 28 28 70 6f 72 74 2d 6e 75 6d 62 65 | )..(df.setup-server.((port-numbe |
| 8a4e0 | 72 20 3c 69 6e 74 3e 29 20 61 6e 6e 6f 75 6e 63 65 29 0a 20 20 28 21 20 73 65 74 2d 6e 61 6d 65 | r.<int>).announce)...(!.set-name |
| 8a500 | 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 22 73 77 61 6e 6b 22 29 0a 20 20 28 6c 65 | .(current-thread)."swank")...(le |
| 8a520 | 74 20 28 28 73 20 28 3c 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 3e 20 70 6f 72 74 2d 6e 75 6d 62 | t.((s.(<server-socket>.port-numb |
| 8a540 | 65 72 29 29 29 0a 20 20 20 20 28 61 6e 6e 6f 75 6e 63 65 20 73 29 0a 20 20 20 20 28 6c 65 74 20 | er))).....(announce.s).....(let. |
| 8a560 | 28 28 63 20 28 21 20 61 63 63 65 70 74 20 73 29 29 29 0a 20 20 20 20 20 20 28 21 20 63 6c 6f 73 | ((c.(!.accept.s))).......(!.clos |
| 8a580 | 65 20 73 29 0a 20 20 20 20 20 20 28 6c 6f 67 20 22 63 6f 6e 6e 65 63 74 69 6f 6e 3a 20 7e 73 5c | e.s).......(log."connection:.~s\ |
| 8a5a0 | 6e 22 20 20 63 29 0a 20 20 20 20 20 20 28 66 69 6e 20 28 64 69 73 70 61 74 63 68 2d 65 76 65 6e | n"..c).......(fin.(dispatch-even |
| 8a5c0 | 74 73 20 63 29 0a 20 20 20 20 20 20 20 20 28 6c 6f 67 20 22 63 6c 6f 73 69 6e 67 20 73 6f 63 6b | ts.c).........(log."closing.sock |
| 8a5e0 | 65 74 3a 20 7e 61 5c 6e 22 20 73 29 0a 20 20 20 20 20 20 20 20 28 21 20 63 6c 6f 73 65 20 63 29 | et:.~a\n".s).........(!.close.c) |
| 8a600 | 29 29 29 29 0a 0a 28 64 66 20 61 6e 6e 6f 75 6e 63 65 2d 70 6f 72 74 20 28 28 73 6f 63 6b 65 74 | ))))..(df.announce-port.((socket |
| 8a620 | 20 3c 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 3e 29 29 0a 20 20 28 6c 6f 67 20 22 4c 69 73 74 65 | .<server-socket>))...(log."Liste |
| 8a640 | 6e 69 6e 67 20 6f 6e 20 70 6f 72 74 3a 20 7e 64 5c 6e 22 20 28 21 20 67 65 74 2d 6c 6f 63 61 6c | ning.on.port:.~d\n".(!.get-local |
| 8a660 | 2d 70 6f 72 74 20 73 6f 63 6b 65 74 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 45 76 65 6e 74 20 64 69 | -port.socket)))....;;;;.Event.di |
| 8a680 | 73 70 61 74 63 68 65 72 0a 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 20 2a 74 68 65 2d | spatcher..(define-variable.*the- |
| 8a6a0 | 76 6d 2a 20 23 66 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 20 2a 6c 61 73 74 2d 65 | vm*.#f).(define-variable.*last-e |
| 8a6c0 | 78 63 65 70 74 69 6f 6e 2a 20 23 66 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 20 2a | xception*.#f).(define-variable.* |
| 8a6e0 | 6c 61 73 74 2d 73 74 61 63 6b 74 72 61 63 65 2a 20 23 66 29 0a 28 64 66 20 25 76 6d 20 28 3d 3e | last-stacktrace*.#f).(df.%vm.(=> |
| 8a700 | 20 3c 76 6d 3e 29 20 2a 74 68 65 2d 76 6d 2a 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 74 68 69 73 | .<vm>).*the-vm*)..;;.FIXME:.this |
| 8a720 | 20 6e 65 65 64 73 20 66 61 63 74 6f 72 69 7a 61 74 69 6f 6e 2e 20 20 42 75 74 20 49 20 67 75 65 | .needs.factorization...But.I.gue |
| 8a740 | 73 73 20 74 68 65 20 77 68 6f 6c 65 20 69 64 65 61 20 6f 66 0a 3b 3b 20 75 73 69 6e 67 20 62 69 | ss.the.whole.idea.of.;;.using.bi |
| 8a760 | 64 69 72 65 63 74 69 6f 6e 61 6c 20 63 68 61 6e 6e 65 6c 73 20 6a 75 73 74 20 73 75 63 6b 73 2e | directional.channels.just.sucks. |
| 8a780 | 20 20 4d 61 69 6c 62 6f 78 65 73 20 6f 77 6e 65 64 20 62 79 20 61 0a 3b 3b 20 73 69 6e 67 6c 65 | ..Mailboxes.owned.by.a.;;.single |
| 8a7a0 | 20 74 68 72 65 61 64 20 74 6f 20 77 68 69 63 68 20 65 76 65 72 79 62 6f 64 79 20 63 61 6e 20 73 | .thread.to.which.everybody.can.s |
| 8a7c0 | 65 6e 64 20 61 72 65 20 6d 75 63 68 20 65 61 73 69 65 72 20 74 6f 20 75 73 65 2e 0a 0a 28 64 66 | end.are.much.easier.to.use...(df |
| 8a7e0 | 20 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 73 20 28 28 73 20 3c 73 6f 63 6b 65 74 3e 29 29 0a | .dispatch-events.((s.<socket>)). |
| 8a800 | 20 20 28 6d 6c 65 74 2a 20 28 28 63 68 61 72 73 65 74 20 22 69 73 6f 2d 38 38 35 39 2d 31 22 29 | ..(mlet*.((charset."iso-8859-1") |
| 8a820 | 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 20 28 3c 69 6e 3e 20 28 21 20 67 65 74 49 6e 70 75 | ...........(ins.(<in>.(!.getInpu |
| 8a840 | 74 53 74 72 65 61 6d 20 73 29 20 63 68 61 72 73 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | tStream.s).charset))...........( |
| 8a860 | 6f 75 74 73 20 28 3c 6f 75 74 3e 20 28 21 20 67 65 74 4f 75 74 70 75 74 53 74 72 65 61 6d 20 73 | outs.(<out>.(!.getOutputStream.s |
| 8a880 | 29 20 63 68 61 72 73 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 69 6e 20 2e 20 5f 29 20 | ).charset))...........((in..._). |
| 8a8a0 | 28 73 70 61 77 6e 2f 63 68 61 6e 2f 63 61 74 63 68 20 28 66 75 6e 20 28 63 29 20 28 72 65 61 64 | (spawn/chan/catch.(fun.(c).(read |
| 8a8c0 | 65 72 20 69 6e 73 20 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6f 75 74 20 2e 20 5f | er.ins.c))))...........((out..._ |
| 8a8e0 | 29 20 28 73 70 61 77 6e 2f 63 68 61 6e 2f 63 61 74 63 68 20 28 66 75 6e 20 28 63 29 20 28 77 72 | ).(spawn/chan/catch.(fun.(c).(wr |
| 8a900 | 69 74 65 72 20 6f 75 74 73 20 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 64 62 67 20 | iter.outs.c))))...........((dbg. |
| 8a920 | 2e 20 5f 29 20 28 73 70 61 77 6e 2f 63 68 61 6e 2f 63 61 74 63 68 20 76 6d 2d 6d 6f 6e 69 74 6f | .._).(spawn/chan/catch.vm-monito |
| 8a940 | 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 6e 76 20 20 28 69 6e 74 65 72 61 | r))...........(user-env..(intera |
| 8a960 | 63 74 69 6f 6e 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 78 | ction-environment))...........(x |
| 8a980 | 20 28 73 65 71 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 73 65 74 2d 66 6c 61 67 | .(seq................(!.set-flag |
| 8a9a0 | 20 75 73 65 72 2d 65 6e 76 20 23 74 20 23 7c 3c 65 6e 76 3e 3a 54 48 52 45 41 44 5f 53 41 46 45 | .user-env.#t.#|<env>:THREAD_SAFE |
| 8a9c0 | 7c 23 20 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 73 65 74 2d 66 6c 61 67 | |#.8)................(!.set-flag |
| 8a9e0 | 20 75 73 65 72 2d 65 6e 76 20 23 66 20 23 7c 3c 65 6e 76 3e 3a 44 49 52 45 43 54 5f 49 4e 48 45 | .user-env.#f.#|<env>:DIRECT_INHE |
| 8aa00 | 52 49 54 45 44 5f 4f 4e 5f 53 45 54 7c 23 20 31 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | RITED_ON_SET|#.16).............. |
| 8aa20 | 20 20 23 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6c 69 73 74 65 6e 65 72 20 2e 20 5f 29 | ..#f))...........((listener..._) |
| 8aa40 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 70 61 77 6e 2f 63 68 61 6e 20 28 66 75 6e 20 28 63 29 | ............(spawn/chan.(fun.(c) |
| 8aa60 | 20 28 6c 69 73 74 65 6e 65 72 20 63 20 75 73 65 72 2d 65 6e 76 29 29 29 29 0a 20 20 20 20 20 20 | .(listener.c.user-env))))....... |
| 8aa80 | 20 20 20 20 28 69 6e 73 70 65 63 74 6f 72 20 23 66 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 68 | ....(inspector.#f)...........(th |
| 8aaa0 | 72 65 61 64 73 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 2d 74 68 72 65 61 | reads.'())...........(repl-threa |
| 8aac0 | 64 20 23 66 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 78 74 72 61 20 27 28 29 29 0a 20 20 20 20 | d.#f)...........(extra.'())..... |
| 8aae0 | 20 20 20 20 20 20 28 76 6d 20 28 6c 65 74 20 28 28 76 6d 20 23 66 29 29 20 28 66 75 6e 20 28 29 | ......(vm.(let.((vm.#f)).(fun.() |
| 8ab00 | 20 28 6f 72 20 76 6d 20 28 72 70 63 20 64 62 67 20 60 28 67 65 74 2d 76 6d 29 29 29 29 29 29 29 | .(or.vm.(rpc.dbg.`(get-vm))))))) |
| 8ab20 | 0a 20 20 20 20 28 77 68 69 6c 65 20 23 74 0a 20 20 20 20 20 20 28 6d 6c 65 74 20 28 28 63 20 2e | .....(while.#t.......(mlet.((c.. |
| 8ab40 | 20 65 76 65 6e 74 29 20 28 72 65 63 76 2a 20 28 61 70 70 65 6e 64 20 28 6c 69 73 74 20 69 6e 20 | .event).(recv*.(append.(list.in. |
| 8ab60 | 6f 75 74 20 64 62 67 20 6c 69 73 74 65 6e 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | out.dbg.listener)............... |
| 8ab80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 69 6e | ..........................(if.in |
| 8aba0 | 73 70 65 63 74 6f 72 20 28 6c 69 73 74 20 69 6e 73 70 65 63 74 6f 72 29 20 27 28 29 29 0a 20 20 | spector.(list.inspector).'())... |
| 8abc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8abe0 | 20 20 20 20 20 20 28 6d 61 70 20 63 61 72 20 74 68 72 65 61 64 73 29 0a 20 20 20 20 20 20 20 20 | ......(map.car.threads)......... |
| 8ac00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8ac20 | 65 78 74 72 61 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 28 6c 6f 67 20 22 65 76 65 6e 74 3a 20 | extra))).........;;(log."event:. |
| 8ac40 | 7e 73 5c 6e 22 20 65 76 65 6e 74 29 0a 20 20 20 20 20 20 20 20 28 6d 63 61 73 65 20 28 6c 69 73 | ~s\n".event).........(mcase.(lis |
| 8ac60 | 74 20 63 20 65 76 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 28 27 3a 65 6d 61 63 | t.c.event)...........((_.(':emac |
| 8ac80 | 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 64 65 62 75 67 67 65 72 2d 69 6e 66 6f 2d 66 6f 72 | s-rex.('|swank:debugger-info-for |
| 8aca0 | 2d 65 6d 61 63 73 7c 20 66 72 6f 6d 20 74 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -emacs|.from.to)................ |
| 8acc0 | 20 20 20 20 20 20 20 20 20 20 20 20 70 6b 67 20 74 68 72 65 61 64 20 69 64 29 29 0a 20 20 20 20 | ............pkg.thread.id))..... |
| 8ace0 | 20 20 20 20 20 20 20 28 73 65 6e 64 20 64 62 67 20 60 28 64 65 62 75 67 2d 69 6e 66 6f 20 2c 74 | .......(send.dbg.`(debug-info.,t |
| 8ad00 | 68 72 65 61 64 20 2c 66 72 6f 6d 20 2c 74 6f 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 | hread.,from.,to.,id))).......... |
| 8ad20 | 20 28 28 5f 20 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 74 68 72 6f 77 | .((_.(':emacs-rex.('|swank:throw |
| 8ad40 | 2d 74 6f 2d 74 6f 70 6c 65 76 65 6c 7c 29 20 70 6b 67 20 74 68 72 65 61 64 20 69 64 29 29 0a 20 | -to-toplevel|).pkg.thread.id)).. |
| 8ad60 | 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 64 62 67 20 60 28 74 68 72 6f 77 2d 74 6f 2d 74 | ..........(send.dbg.`(throw-to-t |
| 8ad80 | 6f 70 6c 65 76 65 6c 20 2c 74 68 72 65 61 64 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 | oplevel.,thread.,id))).......... |
| 8ada0 | 20 28 28 5f 20 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 73 6c 64 62 2d | .((_.(':emacs-rex.('|swank:sldb- |
| 8adc0 | 63 6f 6e 74 69 6e 75 65 7c 29 20 70 6b 67 20 74 68 72 65 61 64 20 69 64 29 29 0a 20 20 20 20 20 | continue|).pkg.thread.id))...... |
| 8ade0 | 20 20 20 20 20 20 28 73 65 6e 64 20 64 62 67 20 60 28 74 68 72 65 61 64 2d 63 6f 6e 74 69 6e 75 | ......(send.dbg.`(thread-continu |
| 8ae00 | 65 20 2c 74 68 72 65 61 64 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 28 | e.,thread.,id)))...........((_.( |
| 8ae20 | 27 3a 65 6d 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 66 72 61 6d 65 2d 73 6f 75 72 63 | ':emacs-rex.('|swank:frame-sourc |
| 8ae40 | 65 2d 6c 6f 63 61 74 69 6f 6e 7c 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-location|.frame).............. |
| 8ae60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6b 67 20 74 68 72 65 61 64 20 69 64 29 29 0a 20 20 | ..............pkg.thread.id))... |
| 8ae80 | 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 64 62 67 20 60 28 66 72 61 6d 65 2d 73 72 63 2d 6c | .........(send.dbg.`(frame-src-l |
| 8aea0 | 6f 63 20 2c 74 68 72 65 61 64 20 2c 66 72 61 6d 65 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 | oc.,thread.,frame.,id)))........ |
| 8aec0 | 20 20 20 28 28 5f 20 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 66 72 61 | ...((_.(':emacs-rex.('|swank:fra |
| 8aee0 | 6d 65 2d 6c 6f 63 61 6c 73 2d 61 6e 64 2d 63 61 74 63 68 2d 74 61 67 73 7c 20 66 72 61 6d 65 29 | me-locals-and-catch-tags|.frame) |
| 8af00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6b 67 20 | ............................pkg. |
| 8af20 | 74 68 72 65 61 64 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 64 62 67 | thread.id))............(send.dbg |
| 8af40 | 20 60 28 66 72 61 6d 65 2d 64 65 74 61 69 6c 73 20 2c 74 68 72 65 61 64 20 2c 66 72 61 6d 65 20 | .`(frame-details.,thread.,frame. |
| 8af60 | 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 28 27 3a 65 6d 61 63 73 2d 72 65 | ,id)))...........((_.(':emacs-re |
| 8af80 | 78 20 28 27 7c 73 77 61 6e 6b 3a 73 6c 64 62 2d 64 69 73 61 73 73 65 6d 62 6c 65 7c 20 66 72 61 | x.('|swank:sldb-disassemble|.fra |
| 8afa0 | 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 | me)............................p |
| 8afc0 | 6b 67 20 74 68 72 65 61 64 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 | kg.thread.id))............(send. |
| 8afe0 | 64 62 67 20 60 28 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 72 61 6d 65 20 2c 74 68 72 65 61 64 20 | dbg.`(disassemble-frame.,thread. |
| 8b000 | 2c 66 72 61 6d 65 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 28 27 3a 65 | ,frame.,id)))...........((_.(':e |
| 8b020 | 6d 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 62 61 63 6b 74 72 61 63 65 7c 20 66 72 6f | macs-rex.('|swank:backtrace|.fro |
| 8b040 | 6d 20 74 6f 29 20 70 6b 67 20 74 68 72 65 61 64 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 | m.to).pkg.thread.id))........... |
| 8b060 | 20 28 73 65 6e 64 20 64 62 67 20 60 28 74 68 72 65 61 64 2d 66 72 61 6d 65 73 20 2c 74 68 72 65 | .(send.dbg.`(thread-frames.,thre |
| 8b080 | 61 64 20 2c 66 72 6f 6d 20 2c 74 6f 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 | ad.,from.,to.,id)))...........(( |
| 8b0a0 | 5f 20 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 6c 69 73 74 2d 74 68 72 | _.(':emacs-rex.('|swank:list-thr |
| 8b0c0 | 65 61 64 73 7c 29 20 70 6b 67 20 74 68 72 65 61 64 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 | eads|).pkg.thread.id)).......... |
| 8b0e0 | 20 20 28 73 65 6e 64 20 64 62 67 20 60 28 6c 69 73 74 2d 74 68 72 65 61 64 73 20 2c 69 64 29 29 | ..(send.dbg.`(list-threads.,id)) |
| 8b100 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 28 27 7c | )...........((_.(':emacs-rex.('| |
| 8b120 | 73 77 61 6e 6b 3a 64 65 62 75 67 2d 6e 74 68 2d 74 68 72 65 61 64 7c 20 6e 29 20 5f 20 20 5f 20 | swank:debug-nth-thread|.n)._.._. |
| 8b140 | 5f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 64 62 67 20 60 28 64 65 62 75 67 | _))............(send.dbg.`(debug |
| 8b160 | 2d 6e 74 68 2d 74 68 72 65 61 64 20 2c 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 | -nth-thread.,n)))...........((_. |
| 8b180 | 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 71 75 69 74 2d 74 68 72 65 61 | (':emacs-rex.('|swank:quit-threa |
| 8b1a0 | 64 2d 62 72 6f 77 73 65 72 7c 29 20 5f 20 20 5f 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 | d-browser|)._.._.id))........... |
| 8b1c0 | 20 28 73 65 6e 64 20 64 62 67 20 60 28 71 75 69 74 2d 74 68 72 65 61 64 2d 62 72 6f 77 73 65 72 | .(send.dbg.`(quit-thread-browser |
| 8b1e0 | 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 28 27 3a 65 6d 61 63 73 2d 72 | .,id)))...........((_.(':emacs-r |
| 8b200 | 65 78 20 28 27 7c 73 77 61 6e 6b 3a 69 6e 69 74 2d 69 6e 73 70 65 63 74 6f 72 7c 20 73 74 72 20 | ex.('|swank:init-inspector|.str. |
| 8b220 | 2e 20 5f 29 20 70 6b 67 20 5f 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 | .._).pkg._.id))............(set. |
| 8b240 | 69 6e 73 70 65 63 74 6f 72 20 28 6d 61 6b 65 2d 69 6e 73 70 65 63 74 6f 72 20 75 73 65 72 2d 65 | inspector.(make-inspector.user-e |
| 8b260 | 6e 76 20 28 76 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 69 6e 73 70 65 | nv.(vm)))............(send.inspe |
| 8b280 | 63 74 6f 72 20 60 28 69 6e 69 74 20 2c 73 74 72 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 | ctor.`(init.,str.,id)))......... |
| 8b2a0 | 20 20 28 28 5f 20 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 69 6e 73 70 | ..((_.(':emacs-rex.('|swank:insp |
| 8b2c0 | 65 63 74 2d 66 72 61 6d 65 2d 76 61 72 7c 20 66 72 61 6d 65 20 76 61 72 29 0a 20 20 20 20 20 20 | ect-frame-var|.frame.var)....... |
| 8b2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6b 67 20 74 68 72 65 61 64 20 | .....................pkg.thread. |
| 8b300 | 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 6c 65 74 20 28 28 69 6d 20 2e 20 65 78 29 | id))............(mlet.((im...ex) |
| 8b320 | 20 28 63 68 61 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 69 6e 73 70 65 | .(chan))..............(set.inspe |
| 8b340 | 63 74 6f 72 20 28 6d 61 6b 65 2d 69 6e 73 70 65 63 74 6f 72 20 75 73 65 72 2d 65 6e 76 20 28 76 | ctor.(make-inspector.user-env.(v |
| 8b360 | 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 64 62 67 20 60 28 67 65 | m)))..............(send.dbg.`(ge |
| 8b380 | 74 2d 6c 6f 63 61 6c 20 2c 65 78 20 2c 74 68 72 65 61 64 20 2c 66 72 61 6d 65 20 2c 76 61 72 29 | t-local.,ex.,thread.,frame.,var) |
| 8b3a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 69 6e 73 70 65 63 74 6f 72 20 60 | )..............(send.inspector.` |
| 8b3c0 | 28 69 6e 69 74 2d 6d 69 72 72 6f 72 20 2c 69 6d 20 2c 69 64 29 29 29 29 0a 20 20 20 20 20 20 20 | (init-mirror.,im.,id))))........ |
| 8b3e0 | 20 20 20 28 28 5f 20 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 69 6e 73 | ...((_.(':emacs-rex.('|swank:ins |
| 8b400 | 70 65 63 74 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 7c 29 20 70 6b 67 20 74 68 72 | pect-current-condition|).pkg.thr |
| 8b420 | 65 61 64 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 6c 65 74 20 28 28 69 6d 20 2e | ead.id))............(mlet.((im.. |
| 8b440 | 20 65 78 29 20 28 63 68 61 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 69 | .ex).(chan))..............(set.i |
| 8b460 | 6e 73 70 65 63 74 6f 72 20 28 6d 61 6b 65 2d 69 6e 73 70 65 63 74 6f 72 20 75 73 65 72 2d 65 6e | nspector.(make-inspector.user-en |
| 8b480 | 76 20 28 76 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 64 62 67 20 | v.(vm)))..............(send.dbg. |
| 8b4a0 | 60 28 67 65 74 2d 65 78 63 65 70 74 69 6f 6e 20 2c 65 78 20 2c 74 68 72 65 61 64 29 29 0a 20 20 | `(get-exception.,ex.,thread))... |
| 8b4c0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 69 6e 73 70 65 63 74 6f 72 20 60 28 69 6e 69 | ...........(send.inspector.`(ini |
| 8b4e0 | 74 2d 6d 69 72 72 6f 72 20 2c 69 6d 20 2c 69 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | t-mirror.,im.,id))))...........( |
| 8b500 | 28 5f 20 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 | (_.(':emacs-rex.('|swank:inspect |
| 8b520 | 2d 6e 74 68 2d 70 61 72 74 7c 20 6e 29 20 70 6b 67 20 5f 20 69 64 29 29 0a 20 20 20 20 20 20 20 | -nth-part|.n).pkg._.id))........ |
| 8b540 | 20 20 20 20 28 73 65 6e 64 20 69 6e 73 70 65 63 74 6f 72 20 60 28 69 6e 73 70 65 63 74 2d 70 61 | ....(send.inspector.`(inspect-pa |
| 8b560 | 72 74 20 2c 6e 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 28 27 3a 65 6d | rt.,n.,id)))...........((_.(':em |
| 8b580 | 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 6f 72 2d 70 6f 70 7c 29 | acs-rex.('|swank:inspector-pop|) |
| 8b5a0 | 20 70 6b 67 20 5f 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 69 6e 73 | .pkg._.id))............(send.ins |
| 8b5c0 | 70 65 63 74 6f 72 20 60 28 70 6f 70 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 | pector.`(pop.,id)))...........(( |
| 8b5e0 | 5f 20 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 28 27 7c 73 77 61 6e 6b 3a 71 75 69 74 2d 69 6e 73 | _.(':emacs-rex.('|swank:quit-ins |
| 8b600 | 70 65 63 74 6f 72 7c 29 20 70 6b 67 20 5f 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | pector|).pkg._.id))............( |
| 8b620 | 73 65 6e 64 20 69 6e 73 70 65 63 74 6f 72 20 60 28 71 75 69 74 20 2c 69 64 29 29 29 0a 20 20 20 | send.inspector.`(quit.,id))).... |
| 8b640 | 20 20 20 20 20 20 20 28 28 5f 20 28 27 3a 65 6d 61 63 73 2d 69 6e 74 65 72 72 75 70 74 20 69 64 | .......((_.(':emacs-interrupt.id |
| 8b660 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 76 6d 20 28 76 6d 29 29 0a 20 | ))............(let*.((vm.(vm)).. |
| 8b680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 66 69 6e 64 2d 74 68 72 65 61 64 | .................(t.(find-thread |
| 8b6a0 | 20 69 64 20 28 6d 61 70 20 63 64 72 20 74 68 72 65 61 64 73 29 20 72 65 70 6c 2d 74 68 72 65 61 | .id.(map.cdr.threads).repl-threa |
| 8b6c0 | 64 20 76 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 64 62 67 20 60 | d.vm)))..............(send.dbg.` |
| 8b6e0 | 28 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 2c 74 29 29 29 29 0a 20 20 20 20 20 20 20 | (interrupt-thread.,t))))........ |
| 8b700 | 20 20 20 28 28 5f 20 28 27 3a 65 6d 61 63 73 2d 72 65 78 20 66 6f 72 6d 20 5f 20 5f 20 69 64 29 | ...((_.(':emacs-rex.form._._.id) |
| 8b720 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 6c 69 73 74 65 6e 65 72 20 60 28 2c 66 | )............(send.listener.`(,f |
| 8b740 | 6f 72 6d 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 28 27 67 65 74 2d 76 | orm.,id)))...........((_.('get-v |
| 8b760 | 6d 20 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 64 62 67 20 60 28 67 65 74 | m.c))............(send.dbg.`(get |
| 8b780 | 2d 76 6d 20 2c 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 28 27 67 65 74 2d 63 68 | -vm.,c)))...........((_.('get-ch |
| 8b7a0 | 61 6e 6e 65 6c 20 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 6c 65 74 20 28 28 69 6d 20 | annel.c))............(mlet.((im. |
| 8b7c0 | 2e 20 65 78 29 20 28 63 68 61 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 | ..ex).(chan))..............(push |
| 8b7e0 | 66 20 69 6d 20 65 78 74 72 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 63 | f.im.extra)..............(send.c |
| 8b800 | 20 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 28 27 66 6f 72 77 61 72 64 20 78 | .ex)))...........((_.('forward.x |
| 8b820 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 6f 75 74 20 78 29 29 0a 20 20 20 20 | ))............(send.out.x))..... |
| 8b840 | 20 20 20 20 20 20 28 28 5f 20 28 27 73 65 74 2d 6c 69 73 74 65 6e 65 72 20 78 29 29 0a 20 20 20 | ......((_.('set-listener.x)).... |
| 8b860 | 20 20 20 20 20 20 20 20 28 73 65 74 20 72 65 70 6c 2d 74 68 72 65 61 64 20 78 29 29 0a 20 20 20 | ........(set.repl-thread.x)).... |
| 8b880 | 20 20 20 20 20 20 20 28 28 5f 20 28 27 70 75 62 6c 69 73 68 2d 76 6d 20 76 6d 29 29 0a 20 20 20 | .......((_.('publish-vm.vm)).... |
| 8b8a0 | 20 20 20 20 20 20 20 20 28 73 65 74 20 2a 74 68 65 2d 76 6d 2a 20 76 6d 29 29 0a 20 20 20 20 20 | ........(set.*the-vm*.vm))...... |
| 8b8c0 | 20 20 20 20 20 29 29 29 29 29 0a 0a 28 64 66 20 66 69 6e 64 2d 74 68 72 65 61 64 20 28 69 64 20 | .....)))))..(df.find-thread.(id. |
| 8b8e0 | 74 68 72 65 61 64 73 20 6c 69 73 74 65 6e 65 72 20 28 76 6d 20 3c 76 6d 3e 29 29 0a 20 20 28 63 | threads.listener.(vm.<vm>))...(c |
| 8b900 | 6f 6e 64 20 28 28 3d 3d 20 69 64 20 27 3a 72 65 70 6c 2d 74 68 72 65 61 64 29 20 6c 69 73 74 65 | ond.((==.id.':repl-thread).liste |
| 8b920 | 6e 65 72 29 0a 20 20 20 20 20 20 20 20 28 28 3d 3d 20 69 64 20 27 74 29 20 6c 69 73 74 65 6e 65 | ner).........((==.id.'t).listene |
| 8b940 | 72 0a 20 20 20 20 20 20 20 20 20 3b 3b 28 69 66 20 28 6e 75 6c 6c 3f 20 74 68 72 65 61 64 73 29 | r..........;;(if.(null?.threads) |
| 8b960 | 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 6c 69 73 74 65 6e 65 72 0a 20 20 20 20 20 20 20 | ..........;;....listener........ |
| 8b980 | 20 20 3b 3b 20 20 20 20 28 76 6d 2d 6d 69 72 72 6f 72 20 76 6d 20 28 63 61 72 20 74 68 72 65 61 | ..;;....(vm-mirror.vm.(car.threa |
| 8b9a0 | 64 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 20 20 28 23 74 0a 20 20 20 | ds)))..........).........(#t.... |
| 8b9c0 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 20 28 66 69 6e 64 2d 69 66 20 74 68 72 65 61 64 73 0a | ......(let.((f.(find-if.threads. |
| 8b9e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 74 20 3a 3a | ......................(fun.(t.:: |
| 8ba00 | 20 3c 74 68 72 65 61 64 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .<thread>)...................... |
| 8ba20 | 20 20 20 28 3d 20 69 64 20 28 21 20 75 6e 69 71 75 65 49 44 0a 20 20 20 20 20 20 20 20 20 20 20 | ...(=.id.(!.uniqueID............ |
| 8ba40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 20 3c 74 68 72 65 61 | ......................(as.<threa |
| 8ba60 | 64 2d 72 65 66 3e 20 28 76 6d 2d 6d 69 72 72 6f 72 20 76 6d 20 74 29 29 29 29 29 0a 20 20 20 20 | d-ref>.(vm-mirror.vm.t)))))..... |
| 8ba80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 66 29 29 29 0a 20 20 20 20 20 20 20 20 | ..................#f)))......... |
| 8baa0 | 20 20 20 28 63 6f 6e 64 20 28 66 20 28 76 6d 2d 6d 69 72 72 6f 72 20 76 6d 20 66 29 29 0a 20 20 | ...(cond.(f.(vm-mirror.vm.f))... |
| 8bac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 6c 69 73 74 65 6e 65 72 29 29 29 29 29 | ...............(#t.listener))))) |
| 8bae0 | 29 0a 0a 0c 0a 3b 3b 3b 3b 20 52 65 61 64 65 72 20 74 68 72 65 61 64 0a 0a 28 64 66 20 72 65 61 | )....;;;;.Reader.thread..(df.rea |
| 8bb00 | 64 65 72 20 28 28 69 6e 20 3c 69 6e 3e 29 20 28 63 20 3c 63 68 61 6e 3e 29 29 0a 20 20 28 21 20 | der.((in.<in>).(c.<chan>))...(!. |
| 8bb20 | 73 65 74 2d 6e 61 6d 65 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 22 73 77 61 6e 6b | set-name.(current-thread)."swank |
| 8bb40 | 2d 6e 65 74 2d 72 65 61 64 65 72 22 29 0a 20 20 28 6c 65 74 20 28 28 72 74 20 28 21 73 20 67 6e | -net-reader")...(let.((rt.(!s.gn |
| 8bb60 | 75 2e 6b 61 77 61 2e 6c 69 73 70 65 78 70 72 2e 52 65 61 64 54 61 62 6c 65 20 63 72 65 61 74 65 | u.kawa.lispexpr.ReadTable.create |
| 8bb80 | 49 6e 69 74 69 61 6c 29 29 29 20 3b 20 27 3a 27 20 6e 6f 74 20 73 70 65 63 69 61 6c 0a 20 20 20 | Initial))).;.':'.not.special.... |
| 8bba0 | 20 28 77 68 69 6c 65 20 23 74 0a 20 20 20 20 20 20 28 73 65 6e 64 20 63 20 28 64 65 63 6f 64 65 | .(while.#t.......(send.c.(decode |
| 8bbc0 | 2d 6d 65 73 73 61 67 65 20 69 6e 20 72 74 29 29 29 29 29 0a 0a 28 64 66 20 64 65 63 6f 64 65 2d | -message.in.rt)))))..(df.decode- |
| 8bbe0 | 6d 65 73 73 61 67 65 20 28 28 69 6e 20 3c 69 6e 3e 29 20 28 72 74 20 20 3c 67 6e 75 2e 6b 61 77 | message.((in.<in>).(rt..<gnu.kaw |
| 8bc00 | 61 2e 6c 69 73 70 65 78 70 72 2e 52 65 61 64 54 61 62 6c 65 3e 29 20 3d 3e 20 3c 6c 69 73 74 3e | a.lispexpr.ReadTable>).=>.<list> |
| 8bc20 | 29 0a 20 20 28 6c 65 74 2a 20 28 28 68 65 61 64 65 72 20 28 72 65 61 64 2d 63 68 75 6e 6b 20 69 | )...(let*.((header.(read-chunk.i |
| 8bc40 | 6e 20 36 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 6e 20 28 21 73 20 6a 61 76 61 2e 6c 61 6e | n.6))..........(len.(!s.java.lan |
| 8bc60 | 67 2e 49 6e 74 65 67 65 72 20 70 61 72 73 65 49 6e 74 20 68 65 61 64 65 72 20 31 36 29 29 29 0a | g.Integer.parseInt.header.16))). |
| 8bc80 | 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 20 28 72 65 61 | ....(call-with-input-string.(rea |
| 8bca0 | 64 2d 63 68 75 6e 6b 20 69 6e 20 6c 65 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-chunk.in.len)................. |
| 8bcc0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 28 70 6f 72 74 20 3c 69 6e 70 75 74 2d 70 | ............(fun.((port.<input-p |
| 8bce0 | 6f 72 74 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ort>)).......................... |
| 8bd00 | 20 20 20 20 20 28 25 72 65 61 64 20 70 6f 72 74 20 72 74 29 29 29 29 29 0a 0a 28 64 66 20 72 65 | .....(%read.port.rt)))))..(df.re |
| 8bd20 | 61 64 2d 63 68 75 6e 6b 20 28 28 69 6e 20 3c 69 6e 3e 29 20 28 6c 65 6e 20 3c 69 6e 74 3e 29 20 | ad-chunk.((in.<in>).(len.<int>). |
| 8bd40 | 3d 3e 20 3c 73 74 72 3e 29 0a 20 20 28 6c 65 74 20 28 28 63 68 61 72 73 20 28 3c 63 68 61 72 5b | =>.<str>)...(let.((chars.(<char[ |
| 8bd60 | 5d 3e 20 23 3a 6c 65 6e 67 74 68 20 6c 65 6e 29 29 29 0a 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 | ]>.#:length.len))).....(let.loop |
| 8bd80 | 20 28 28 6f 66 66 73 65 74 20 3a 3a 20 3c 69 6e 74 3e 20 30 29 29 0a 20 20 20 20 20 20 28 63 6f | .((offset.::.<int>.0)).......(co |
| 8bda0 | 6e 64 20 28 28 3d 20 6f 66 66 73 65 74 20 6c 65 6e 29 20 28 3c 73 74 72 3e 20 63 68 61 72 73 29 | nd.((=.offset.len).(<str>.chars) |
| 8bdc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 6c 65 74 20 28 28 63 6f 75 6e 74 20 28 | ).............(#t.(let.((count.( |
| 8bde0 | 21 20 72 65 61 64 20 69 6e 20 63 68 61 72 73 20 6f 66 66 73 65 74 20 28 2d 20 6c 65 6e 20 6f 66 | !.read.in.chars.offset.(-.len.of |
| 8be00 | 66 73 65 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 65 | fset))))...................(asse |
| 8be20 | 72 74 20 28 6e 6f 74 20 28 3d 20 63 6f 75 6e 74 20 2d 31 29 29 20 22 70 61 72 74 69 61 6c 20 70 | rt.(not.(=.count.-1))."partial.p |
| 8be40 | 61 63 6b 65 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 | acket")...................(loop. |
| 8be60 | 28 2b 20 6f 66 66 73 65 74 20 63 6f 75 6e 74 29 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 20 46 49 58 | (+.offset.count))))))))..;;;.FIX |
| 8be80 | 4d 45 3a 20 6e 6f 74 20 74 68 72 65 61 64 20 73 61 66 65 0a 28 64 66 20 25 72 65 61 64 20 28 28 | ME:.not.thread.safe.(df.%read.(( |
| 8bea0 | 70 6f 72 74 20 3c 69 6e 2d 70 6f 72 74 3e 29 20 28 74 61 62 6c 65 20 3c 67 6e 75 2e 6b 61 77 61 | port.<in-port>).(table.<gnu.kawa |
| 8bec0 | 2e 6c 69 73 70 65 78 70 72 2e 52 65 61 64 54 61 62 6c 65 3e 29 29 0a 20 20 28 6c 65 74 20 28 28 | .lispexpr.ReadTable>))...(let.(( |
| 8bee0 | 6f 6c 64 20 28 21 73 20 67 6e 75 2e 6b 61 77 61 2e 6c 69 73 70 65 78 70 72 2e 52 65 61 64 54 61 | old.(!s.gnu.kawa.lispexpr.ReadTa |
| 8bf00 | 62 6c 65 20 67 65 74 43 75 72 72 65 6e 74 29 29 29 0a 20 20 20 20 28 74 72 79 2d 66 69 6e 61 6c | ble.getCurrent))).....(try-final |
| 8bf20 | 6c 79 0a 20 20 20 20 20 28 73 65 71 20 28 21 73 20 67 6e 75 2e 6b 61 77 61 2e 6c 69 73 70 65 78 | ly......(seq.(!s.gnu.kawa.lispex |
| 8bf40 | 70 72 2e 52 65 61 64 54 61 62 6c 65 20 73 65 74 43 75 72 72 65 6e 74 20 74 61 62 6c 65 29 0a 20 | pr.ReadTable.setCurrent.table).. |
| 8bf60 | 20 20 20 20 20 20 20 20 20 28 72 65 61 64 20 70 6f 72 74 29 29 0a 20 20 20 20 20 28 21 73 20 67 | .........(read.port))......(!s.g |
| 8bf80 | 6e 75 2e 6b 61 77 61 2e 6c 69 73 70 65 78 70 72 2e 52 65 61 64 54 61 62 6c 65 20 73 65 74 43 75 | nu.kawa.lispexpr.ReadTable.setCu |
| 8bfa0 | 72 72 65 6e 74 20 6f 6c 64 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 57 72 69 74 65 72 20 74 68 72 | rrent.old))))....;;;;.Writer.thr |
| 8bfc0 | 65 61 64 0a 0a 28 64 66 20 77 72 69 74 65 72 20 28 28 6f 75 74 20 3c 6f 75 74 3e 29 20 28 63 20 | ead..(df.writer.((out.<out>).(c. |
| 8bfe0 | 3c 63 68 61 6e 3e 29 29 0a 20 20 28 21 20 73 65 74 2d 6e 61 6d 65 20 28 63 75 72 72 65 6e 74 2d | <chan>))...(!.set-name.(current- |
| 8c000 | 74 68 72 65 61 64 29 20 22 73 77 61 6e 6b 2d 6e 65 74 2d 77 72 69 74 65 72 22 29 0a 20 20 28 77 | thread)."swank-net-writer")...(w |
| 8c020 | 68 69 6c 65 20 23 74 0a 20 20 20 20 28 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 6f 75 74 20 | hile.#t.....(encode-message.out. |
| 8c040 | 28 72 65 63 76 20 63 29 29 29 29 0a 0a 28 64 66 20 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 | (recv.c))))..(df.encode-message. |
| 8c060 | 28 28 6f 75 74 20 3c 6f 75 74 3e 29 20 28 6d 65 73 73 61 67 65 20 3c 6c 69 73 74 3e 29 29 0a 20 | ((out.<out>).(message.<list>)).. |
| 8c080 | 20 28 6c 65 74 20 28 28 62 75 69 6c 64 65 72 20 28 3c 62 75 69 6c 64 65 72 3e 20 28 61 73 20 3c | .(let.((builder.(<builder>.(as.< |
| 8c0a0 | 69 6e 74 3e 20 35 31 32 29 29 29 29 0a 20 20 20 20 28 70 72 69 6e 74 2d 66 6f 72 2d 65 6d 61 63 | int>.512)))).....(print-for-emac |
| 8c0c0 | 73 20 6d 65 73 73 61 67 65 20 62 75 69 6c 64 65 72 29 0a 20 20 20 20 28 21 20 77 72 69 74 65 20 | s.message.builder).....(!.write. |
| 8c0e0 | 6f 75 74 20 28 21 20 74 6f 53 74 72 69 6e 67 20 28 66 6f 72 6d 61 74 20 22 7e 36 2c 27 30 78 22 | out.(!.toString.(format."~6,'0x" |
| 8c100 | 20 28 21 20 6c 65 6e 67 74 68 20 62 75 69 6c 64 65 72 29 29 29 29 0a 20 20 20 20 28 21 20 77 72 | .(!.length.builder)))).....(!.wr |
| 8c120 | 69 74 65 20 6f 75 74 20 62 75 69 6c 64 65 72 29 0a 20 20 20 20 28 21 20 66 6c 75 73 68 20 6f 75 | ite.out.builder).....(!.flush.ou |
| 8c140 | 74 29 29 29 0a 0a 28 64 66 20 70 72 69 6e 74 2d 66 6f 72 2d 65 6d 61 63 73 20 28 6f 62 6a 20 28 | t)))..(df.print-for-emacs.(obj.( |
| 8c160 | 6f 75 74 20 3c 62 75 69 6c 64 65 72 3e 29 29 0a 20 20 28 6c 65 74 20 28 28 70 72 20 28 66 75 6e | out.<builder>))...(let.((pr.(fun |
| 8c180 | 20 28 6f 29 20 28 21 20 61 70 70 65 6e 64 20 6f 75 74 20 28 21 20 74 6f 53 74 72 69 6e 67 20 28 | .(o).(!.append.out.(!.toString.( |
| 8c1a0 | 66 6f 72 6d 61 74 20 22 7e 73 22 20 6f 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 2b 2b 20 28 | format."~s".o))))).........(++.( |
| 8c1c0 | 66 75 6e 20 28 28 73 20 3c 73 74 72 69 6e 67 3e 29 29 20 28 21 20 61 70 70 65 6e 64 20 6f 75 74 | fun.((s.<string>)).(!.append.out |
| 8c1e0 | 20 28 21 20 74 6f 53 74 72 69 6e 67 20 73 29 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 | .(!.toString.s))))).....(cond.(( |
| 8c200 | 6e 75 6c 6c 3f 20 6f 62 6a 29 20 28 2b 2b 20 22 6e 69 6c 22 29 29 0a 20 20 20 20 20 20 20 20 20 | null?.obj).(++."nil")).......... |
| 8c220 | 20 28 28 73 74 72 69 6e 67 3f 20 6f 62 6a 29 20 28 70 72 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 | .((string?.obj).(pr.obj))....... |
| 8c240 | 20 20 20 20 28 28 6e 75 6d 62 65 72 3f 20 6f 62 6a 29 20 28 70 72 20 6f 62 6a 29 29 0a 20 20 20 | ....((number?.obj).(pr.obj)).... |
| 8c260 | 20 20 20 20 20 20 20 3b 3b 28 28 6b 65 79 77 6f 72 64 3f 20 6f 62 6a 29 20 28 2b 2b 20 22 3a 22 | .......;;((keyword?.obj).(++.":" |
| 8c280 | 29 20 28 21 20 61 70 70 65 6e 64 20 6f 75 74 20 28 74 6f 2d 73 74 72 20 6f 62 6a 29 29 29 0a 20 | ).(!.append.out.(to-str.obj))).. |
| 8c2a0 | 20 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 3f 20 6f 62 6a 29 20 28 70 72 20 6f 62 6a 29 | .........((symbol?.obj).(pr.obj) |
| 8c2c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 70 61 69 72 3f 20 6f 62 6a 29 0a 20 20 20 20 20 20 20 | )...........((pair?.obj)........ |
| 8c2e0 | 20 20 20 20 28 2b 2b 20 22 28 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 6c 6f 6f | ....(++."(")............(let.loo |
| 8c300 | 70 20 28 28 6f 62 6a 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e | p.((obj.obj))..............(prin |
| 8c320 | 74 2d 66 6f 72 2d 65 6d 61 63 73 20 28 63 61 72 20 6f 62 6a 29 20 6f 75 74 29 0a 20 20 20 20 20 | t-for-emacs.(car.obj).out)...... |
| 8c340 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 64 72 20 28 63 64 72 20 6f 62 6a 29 29 29 0a 20 | ........(let.((cdr.(cdr.obj))).. |
| 8c360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 63 64 72 29 | ..............(cond.((null?.cdr) |
| 8c380 | 20 28 2b 2b 20 22 29 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(++.")"))...................... |
| 8c3a0 | 28 28 70 61 69 72 3f 20 63 64 72 29 20 28 2b 2b 20 22 20 22 29 20 28 6c 6f 6f 70 20 63 64 72 29 | ((pair?.cdr).(++.".").(loop.cdr) |
| 8c3c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 2b 2b 20 22 | )......................(#t.(++." |
| 8c3e0 | 20 2e 20 22 29 20 28 70 72 69 6e 74 2d 66 6f 72 2d 65 6d 61 63 73 20 63 64 72 20 6f 75 74 29 20 | ...").(print-for-emacs.cdr.out). |
| 8c400 | 28 2b 2b 20 22 29 22 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 65 72 72 | (++.")"))))))...........(#t.(err |
| 8c420 | 6f 72 20 22 55 6e 70 72 69 6e 74 61 62 6c 65 20 6f 62 6a 65 63 74 22 20 6f 62 6a 29 29 29 29 29 | or."Unprintable.object".obj))))) |
| 8c440 | 0a 0a 3b 3b 3b 3b 20 53 4c 49 4d 45 2d 45 56 41 4c 0a 0a 28 64 66 20 65 76 61 6c 2d 66 6f 72 2d | ..;;;;.SLIME-EVAL..(df.eval-for- |
| 8c460 | 65 6d 61 63 73 20 28 28 66 6f 72 6d 20 3c 6c 69 73 74 3e 29 20 65 6e 76 20 28 69 64 20 3c 69 6e | emacs.((form.<list>).env.(id.<in |
| 8c480 | 74 3e 29 20 28 63 20 3c 63 68 61 6e 3e 29 29 0a 20 20 3b 3b 28 21 20 73 65 74 2d 75 6e 63 61 75 | t>).(c.<chan>))...;;(!.set-uncau |
| 8c4a0 | 67 68 74 2d 65 78 63 65 70 74 69 6f 6e 2d 68 61 6e 64 6c 65 72 20 28 63 75 72 72 65 6e 74 2d 74 | ght-exception-handler.(current-t |
| 8c4c0 | 68 72 65 61 64 29 0a 20 20 3b 3b 20 20 20 28 3c 75 63 65 78 2d 68 61 6e 64 6c 65 72 3e 20 28 66 | hread)...;;...(<ucex-handler>.(f |
| 8c4e0 | 75 6e 20 28 74 20 65 29 20 28 72 65 70 6c 79 2d 61 62 6f 72 74 20 63 20 69 64 29 29 29 29 0a 20 | un.(t.e).(reply-abort.c.id)))).. |
| 8c500 | 20 28 72 65 70 6c 79 20 63 20 28 25 65 76 61 6c 20 66 6f 72 6d 20 65 6e 76 29 20 69 64 29 29 0a | .(reply.c.(%eval.form.env).id)). |
| 8c520 | 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 20 2a 73 6c 69 6d 65 2d 66 75 6e 73 2a 29 0a | .(define-variable.*slime-funs*). |
| 8c540 | 28 73 65 74 20 2a 73 6c 69 6d 65 2d 66 75 6e 73 2a 20 28 74 61 62 29 29 0a 0a 28 64 66 20 25 65 | (set.*slime-funs*.(tab))..(df.%e |
| 8c560 | 76 61 6c 20 28 66 6f 72 6d 20 65 6e 76 29 0a 20 20 28 61 70 70 6c 79 20 28 6c 6f 6f 6b 75 70 2d | val.(form.env)...(apply.(lookup- |
| 8c580 | 73 6c 69 6d 65 66 75 6e 20 28 63 61 72 20 66 6f 72 6d 29 20 2a 73 6c 69 6d 65 2d 66 75 6e 73 2a | slimefun.(car.form).*slime-funs* |
| 8c5a0 | 29 20 65 6e 76 20 28 63 64 72 20 66 6f 72 6d 29 29 29 0a 0a 28 64 66 20 6c 6f 6f 6b 75 70 2d 73 | ).env.(cdr.form)))..(df.lookup-s |
| 8c5c0 | 6c 69 6d 65 66 75 6e 20 28 28 6e 61 6d 65 20 3c 73 79 6d 62 6f 6c 3e 29 20 74 61 62 29 0a 20 20 | limefun.((name.<symbol>).tab)... |
| 8c5e0 | 3b 3b 20 6e 61 6d 65 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 27 7c 73 77 61 6e 6b 3a 63 6f 6e 6e 65 | ;;.name.looks.like.'|swank:conne |
| 8c600 | 63 74 69 6f 6e 2d 69 6e 66 6f 7c 0a 20 20 28 6f 72 20 28 67 65 74 20 74 61 62 20 6e 61 6d 65 20 | ction-info|...(or.(get.tab.name. |
| 8c620 | 23 66 29 0a 20 20 20 20 20 20 28 66 65 72 72 6f 72 20 22 7e 61 20 6e 6f 74 20 69 6d 70 6c 65 6d | #f).......(ferror."~a.not.implem |
| 8c640 | 65 6e 74 65 64 22 20 6e 61 6d 65 29 29 29 0a 0a 28 64 66 20 25 64 65 66 73 6c 69 6d 65 66 75 6e | ented".name)))..(df.%defslimefun |
| 8c660 | 20 28 28 6e 61 6d 65 20 3c 73 79 6d 62 6f 6c 3e 29 20 28 66 75 6e 20 3c 70 72 6f 63 65 64 75 72 | .((name.<symbol>).(fun.<procedur |
| 8c680 | 65 3e 29 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 20 28 73 79 6d 62 6f 6c 2d 3e 73 74 | e>))...(let.((string.(symbol->st |
| 8c6a0 | 72 69 6e 67 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 72 65 67 65 78 2d 6d | ring.name))).....(cond.((regex-m |
| 8c6c0 | 61 74 63 68 20 23 2f 3a 2f 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 75 | atch.#/:/.string)............(pu |
| 8c6e0 | 74 20 2a 73 6c 69 6d 65 2d 66 75 6e 73 2a 20 6e 61 6d 65 20 66 75 6e 29 29 0a 20 20 20 20 20 20 | t.*slime-funs*.name.fun))....... |
| 8c700 | 20 20 20 20 28 23 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 71 6e 61 6d 65 20 | ....(#t............(let.((qname. |
| 8c720 | 28 73 74 72 69 6e 67 2d 3e 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 22 | (string->symbol.(string-append." |
| 8c740 | 73 77 61 6e 6b 3a 22 20 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | swank:".string)))).............. |
| 8c760 | 28 70 75 74 20 2a 73 6c 69 6d 65 2d 66 75 6e 73 2a 20 71 6e 61 6d 65 20 66 75 6e 29 29 29 29 29 | (put.*slime-funs*.qname.fun))))) |
| 8c780 | 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 64 65 66 73 6c 69 6d 65 66 75 6e 0a 20 20 | )..(define-syntax.defslimefun... |
| 8c7a0 | 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 64 65 66 73 6c 69 6d 65 66 | (syntax-rules.().....((defslimef |
| 8c7c0 | 75 6e 20 6e 61 6d 65 20 28 61 72 67 73 20 2e 2e 2e 29 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 | un.name.(args....).body....).... |
| 8c7e0 | 20 20 28 73 65 71 0a 20 20 20 20 20 20 20 28 64 66 20 6e 61 6d 65 20 28 61 72 67 73 20 2e 2e 2e | ..(seq........(df.name.(args.... |
| 8c800 | 29 20 62 6f 64 79 20 2e 2e 2e 29 0a 20 20 20 20 20 20 20 28 25 64 65 66 73 6c 69 6d 65 66 75 6e | ).body....)........(%defslimefun |
| 8c820 | 20 27 6e 61 6d 65 20 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 | .'name.name)))))..(defslimefun.c |
| 8c840 | 6f 6e 6e 65 63 74 69 6f 6e 2d 69 6e 66 6f 20 28 28 65 6e 76 20 3c 65 6e 76 3e 29 29 0a 20 20 28 | onnection-info.((env.<env>))...( |
| 8c860 | 6c 65 74 20 28 28 70 72 6f 70 20 28 66 75 6e 20 28 6e 61 6d 65 29 20 28 21 73 20 6a 61 76 61 2e | let.((prop.(fun.(name).(!s.java. |
| 8c880 | 6c 61 6e 67 2e 53 79 73 74 65 6d 20 67 65 74 50 72 6f 70 65 72 74 79 20 6e 61 6d 65 29 29 29 29 | lang.System.getProperty.name)))) |
| 8c8a0 | 0a 20 20 60 28 3a 70 69 64 0a 20 20 20 20 30 0a 20 20 20 20 3a 73 74 79 6c 65 20 3a 73 70 61 77 | ...`(:pid.....0.....:style.:spaw |
| 8c8c0 | 6e 0a 20 20 20 20 3a 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 28 3a 74 79 70 | n.....:lisp-implementation.(:typ |
| 8c8e0 | 65 20 22 4b 61 77 61 22 20 3a 6e 61 6d 65 20 22 6b 61 77 61 22 0a 20 20 20 20 20 20 20 20 20 20 | e."Kawa".:name."kawa"........... |
| 8c900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 65 72 73 69 6f 6e 20 2c | ......................:version., |
| 8c920 | 28 73 63 68 65 6d 65 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 6f 6e 29 29 | (scheme-implementation-version)) |
| 8c940 | 0a 20 20 20 20 3a 6d 61 63 68 69 6e 65 20 28 3a 69 6e 73 74 61 6e 63 65 20 2c 28 70 72 6f 70 20 | .....:machine.(:instance.,(prop. |
| 8c960 | 22 6a 61 76 61 2e 76 6d 2e 6e 61 6d 65 22 29 20 3a 74 79 70 65 20 2c 28 70 72 6f 70 20 22 6f 73 | "java.vm.name").:type.,(prop."os |
| 8c980 | 2e 6e 61 6d 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .name")......................... |
| 8c9a0 | 3a 76 65 72 73 69 6f 6e 20 2c 28 70 72 6f 70 20 22 6a 61 76 61 2e 72 75 6e 74 69 6d 65 2e 76 65 | :version.,(prop."java.runtime.ve |
| 8c9c0 | 72 73 69 6f 6e 22 29 29 0a 20 20 20 20 3a 66 65 61 74 75 72 65 73 20 28 29 0a 20 20 20 20 3a 70 | rsion")).....:features.().....:p |
| 8c9e0 | 61 63 6b 61 67 65 20 28 3a 6e 61 6d 65 20 22 3f 3f 22 20 3a 70 72 6f 6d 70 74 20 2c 28 21 20 67 | ackage.(:name."??".:prompt.,(!.g |
| 8ca00 | 65 74 4e 61 6d 65 20 65 6e 76 29 29 0a 20 20 20 20 3a 65 6e 63 6f 64 69 6e 67 20 28 3a 63 6f 64 | etName.env)).....:encoding.(:cod |
| 8ca20 | 69 6e 67 2d 73 79 73 74 65 6d 73 20 28 22 69 73 6f 2d 38 38 35 39 2d 31 22 29 29 0a 20 20 20 20 | ing-systems.("iso-8859-1"))..... |
| 8ca40 | 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4c 69 73 74 65 6e 65 72 0a 0a 28 64 66 20 6c 69 73 74 65 6e | )))....;;;;.Listener..(df.listen |
| 8ca60 | 65 72 20 28 28 63 20 3c 63 68 61 6e 3e 29 20 28 65 6e 76 20 3c 65 6e 76 3e 29 29 0a 20 20 28 21 | er.((c.<chan>).(env.<env>))...(! |
| 8ca80 | 20 73 65 74 2d 6e 61 6d 65 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 22 73 77 61 6e | .set-name.(current-thread)."swan |
| 8caa0 | 6b 2d 6c 69 73 74 65 6e 65 72 22 29 0a 20 20 28 6c 6f 67 20 22 6c 69 73 74 65 6e 65 72 3a 20 7e | k-listener")...(log."listener:.~ |
| 8cac0 | 73 20 7e 73 20 7e 73 20 7e 73 5c 6e 22 0a 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 74 68 | s.~s.~s.~s\n"........(current-th |
| 8cae0 | 72 65 61 64 29 20 28 21 20 68 61 73 68 43 6f 64 65 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 | read).(!.hashCode.(current-threa |
| 8cb00 | 64 29 29 20 63 20 65 6e 76 29 0a 20 20 28 6c 65 74 20 28 28 6f 75 74 20 28 6d 61 6b 65 2d 73 77 | d)).c.env)...(let.((out.(make-sw |
| 8cb20 | 61 6e 6b 2d 6f 75 74 70 6f 72 74 20 28 72 70 63 20 63 20 60 28 67 65 74 2d 63 68 61 6e 6e 65 6c | ank-outport.(rpc.c.`(get-channel |
| 8cb40 | 29 29 29 29 29 0a 20 20 20 20 28 73 65 74 20 28 63 75 72 72 65 6e 74 2d 6f 75 74 70 75 74 2d 70 | ))))).....(set.(current-output-p |
| 8cb60 | 6f 72 74 29 20 6f 75 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 76 6d 20 28 61 73 20 3c 76 6d 3e | ort).out).....(let.((vm.(as.<vm> |
| 8cb80 | 20 28 72 70 63 20 63 20 60 28 67 65 74 2d 76 6d 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 6e | .(rpc.c.`(get-vm))))).......(sen |
| 8cba0 | 64 20 63 20 60 28 73 65 74 2d 6c 69 73 74 65 6e 65 72 20 2c 28 76 6d 2d 6d 69 72 72 6f 72 20 76 | d.c.`(set-listener.,(vm-mirror.v |
| 8cbc0 | 6d 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 29 29 0a 20 20 20 20 20 20 28 72 65 71 | m.(current-thread)))).......(req |
| 8cbe0 | 75 65 73 74 2d 75 6e 63 61 75 67 68 74 2d 65 78 63 65 70 74 69 6f 6e 2d 65 76 65 6e 74 73 20 76 | uest-uncaught-exception-events.v |
| 8cc00 | 6d 29 0a 20 20 20 20 20 20 3b 3b 73 74 61 63 6b 20 73 6e 61 70 68 6f 73 74 20 61 72 65 20 74 6f | m).......;;stack.snaphost.are.to |
| 8cc20 | 6f 20 65 78 70 65 6e 73 69 76 65 0a 20 20 20 20 20 20 3b 3b 28 72 65 71 75 65 73 74 2d 63 61 75 | o.expensive.......;;(request-cau |
| 8cc40 | 67 68 74 2d 65 78 63 65 70 74 69 6f 6e 2d 65 76 65 6e 74 73 20 76 6d 29 0a 20 20 20 20 20 20 29 | ght-exception-events.vm).......) |
| 8cc60 | 0a 20 20 20 20 28 72 70 63 20 63 20 60 28 67 65 74 2d 76 6d 29 29 0a 20 20 20 20 28 6c 69 73 74 | .....(rpc.c.`(get-vm)).....(list |
| 8cc80 | 65 6e 65 72 2d 6c 6f 6f 70 20 63 20 65 6e 76 20 6f 75 74 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d | ener-loop.c.env.out)))..(define- |
| 8cca0 | 73 69 6d 70 6c 65 2d 63 6c 61 73 73 20 3c 6c 69 73 74 65 6e 65 72 2d 61 62 6f 72 74 3e 20 28 3c | simple-class.<listener-abort>.(< |
| 8ccc0 | 74 68 72 6f 77 61 62 6c 65 3e 29 0a 20 20 28 28 2a 69 6e 69 74 2a 29 0a 20 20 20 28 69 6e 76 6f | throwable>)...((*init*)....(invo |
| 8cce0 | 6b 65 2d 73 70 65 63 69 61 6c 20 3c 74 68 72 6f 77 61 62 6c 65 3e 20 28 74 68 69 73 29 20 27 2a | ke-special.<throwable>.(this).'* |
| 8cd00 | 69 6e 69 74 2a 20 29 29 0a 20 20 28 28 61 62 6f 72 74 29 20 3a 3a 20 76 6f 69 64 0a 20 20 20 28 | init*.))...((abort).::.void....( |
| 8cd20 | 70 72 69 6d 69 74 69 76 65 2d 74 68 72 6f 77 20 28 74 68 69 73 29 29 29 29 0a 0a 28 64 66 20 6c | primitive-throw.(this))))..(df.l |
| 8cd40 | 69 73 74 65 6e 65 72 2d 6c 6f 6f 70 20 28 28 63 20 3c 63 68 61 6e 3e 29 20 28 65 6e 76 20 3c 65 | istener-loop.((c.<chan>).(env.<e |
| 8cd60 | 6e 76 3e 29 20 70 6f 72 74 29 0a 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 6e 75 6c 3f 20 63 | nv>).port)...(while.(not.(nul?.c |
| 8cd80 | 29 29 0a 20 20 20 20 3b 3b 28 6c 6f 67 20 22 6c 69 73 74 65 6e 65 72 2d 6c 6f 6f 70 3a 20 7e 73 | )).....;;(log."listener-loop:.~s |
| 8cda0 | 20 7e 73 5c 6e 22 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 63 29 0a 20 20 20 20 28 | .~s\n".(current-thread).c).....( |
| 8cdc0 | 6d 6c 65 74 20 28 28 66 6f 72 6d 20 69 64 29 20 28 72 65 63 76 20 63 29 29 0a 20 20 20 20 20 20 | mlet.((form.id).(recv.c))....... |
| 8cde0 | 28 6c 65 74 20 28 28 72 65 73 74 61 72 74 20 28 66 75 6e 20 28 29 0a 20 20 20 20 20 20 20 20 20 | (let.((restart.(fun.().......... |
| 8ce00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 6f 73 65 2d 70 6f 72 74 20 70 6f 72 74 29 0a | ..............(close-port.port). |
| 8ce20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 79 2d 61 62 | .......................(reply-ab |
| 8ce40 | 6f 72 74 20 63 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ort.c.id)....................... |
| 8ce60 | 20 28 73 65 6e 64 20 28 63 61 72 20 28 73 70 61 77 6e 2f 63 68 61 6e 0a 20 20 20 20 20 20 20 20 | .(send.(car.(spawn/chan......... |
| 8ce80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 | ...........................(fun. |
| 8cea0 | 28 63 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (cc)............................ |
| 8cec0 | 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 65 6e 65 72 20 28 72 65 63 76 20 63 63 29 20 65 6e | ..........(listener.(recv.cc).en |
| 8cee0 | 76 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | v))))........................... |
| 8cf00 | 20 20 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | ...c)........................(se |
| 8cf20 | 74 20 63 20 23 21 6e 75 6c 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 21 20 73 65 74 2d 75 6e | t.c.#!null)))).........(!.set-un |
| 8cf40 | 63 61 75 67 68 74 2d 65 78 63 65 70 74 69 6f 6e 2d 68 61 6e 64 6c 65 72 20 28 63 75 72 72 65 6e | caught-exception-handler.(curren |
| 8cf60 | 74 2d 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3c 75 63 65 78 2d 68 61 6e 64 | t-thread)............(<ucex-hand |
| 8cf80 | 6c 65 72 3e 20 28 66 75 6e 20 28 74 20 65 29 20 28 72 65 73 74 61 72 74 29 29 29 29 0a 20 20 20 | ler>.(fun.(t.e).(restart)))).... |
| 8cfa0 | 20 20 20 20 20 28 74 72 79 2d 63 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 | .....(try-catch..........(let*.( |
| 8cfc0 | 28 76 61 6c 20 28 25 65 76 61 6c 20 66 6f 72 6d 20 65 6e 76 29 29 29 0a 20 20 20 20 20 20 20 20 | (val.(%eval.form.env)))......... |
| 8cfe0 | 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 | ...(force-output)............(re |
| 8d000 | 70 6c 79 20 63 20 76 61 6c 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 78 20 3c 6a 61 76 | ply.c.val.id))..........(ex.<jav |
| 8d020 | 61 2e 6c 61 6e 67 2e 45 78 63 65 70 74 69 6f 6e 3e 20 28 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 | a.lang.Exception>.(invoke-debugg |
| 8d040 | 65 72 20 65 78 29 20 28 72 65 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 78 20 3c | er.ex).(restart))..........(ex.< |
| 8d060 | 6a 61 76 61 2e 6c 61 6e 67 2e 45 72 72 6f 72 3e 20 28 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 | java.lang.Error>.(invoke-debugge |
| 8d080 | 72 20 65 78 29 20 28 72 65 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 78 20 3c 6c | r.ex).(restart))..........(ex.<l |
| 8d0a0 | 69 73 74 65 6e 65 72 2d 61 62 6f 72 74 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | istener-abort>..............(let |
| 8d0c0 | 20 28 28 66 6c 61 67 20 28 21 73 20 6a 61 76 61 2e 6c 61 6e 67 2e 54 68 72 65 61 64 20 69 6e 74 | .((flag.(!s.java.lang.Thread.int |
| 8d0e0 | 65 72 72 75 70 74 65 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 67 20 | errupted)))................(log. |
| 8d100 | 22 6c 69 73 74 65 6e 65 72 2d 61 62 6f 72 74 3a 20 7e 73 20 7e 61 5c 6e 22 20 65 78 20 66 6c 61 | "listener-abort:.~s.~a\n".ex.fla |
| 8d120 | 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 74 61 72 74 29 29 0a 20 20 20 20 | g))..............(restart))..... |
| 8d140 | 20 20 20 20 20 29 29 29 29 29 0a 0a 28 64 66 20 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 20 | .....)))))..(df.invoke-debugger. |
| 8d160 | 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 3b 3b 28 6c 6f 67 20 22 73 68 6f 75 6c 64 20 6e 6f 77 | (condition)...;;(log."should.now |
| 8d180 | 20 69 6e 76 6f 6b 65 20 64 65 62 75 67 67 65 72 3a 20 7e 61 22 20 63 6f 6e 64 69 74 69 6f 6e 29 | .invoke.debugger:.~a".condition) |
| 8d1a0 | 0a 20 20 28 74 72 79 2d 63 61 74 63 68 0a 20 20 20 28 62 72 65 61 6b 20 63 6f 6e 64 69 74 69 6f | ...(try-catch....(break.conditio |
| 8d1c0 | 6e 29 0a 20 20 20 28 65 78 20 3c 6c 69 73 74 65 6e 65 72 2d 61 62 6f 72 74 3e 20 28 73 65 71 29 | n)....(ex.<listener-abort>.(seq) |
| 8d1e0 | 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 7c 73 77 61 6e 6b 2d 72 65 70 6c 3a 63 72 | )))..(defslimefun.|swank-repl:cr |
| 8d200 | 65 61 74 65 2d 72 65 70 6c 7c 20 28 65 6e 76 20 23 21 72 65 73 74 20 5f 29 0a 20 20 28 6c 69 73 | eate-repl|.(env.#!rest._)...(lis |
| 8d220 | 74 20 22 75 73 65 72 22 20 22 75 73 65 72 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 | t."user"."user"))..(defslimefun. |
| 8d240 | 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 20 28 65 6e 76 20 73 74 72 29 0a 20 20 28 76 61 | interactive-eval.(env.str)...(va |
| 8d260 | 6c 75 65 73 2d 66 6f 72 2d 65 63 68 6f 2d 61 72 65 61 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 | lues-for-echo-area.(eval.(read-f |
| 8d280 | 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 29 20 65 6e 76 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d | rom-string.str).env)))..(defslim |
| 8d2a0 | 65 66 75 6e 20 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 20 28 65 6e | efun.interactive-eval-region.(en |
| 8d2c0 | 76 20 28 73 20 3c 73 74 72 69 6e 67 3e 29 29 0a 20 20 28 77 69 74 68 20 28 70 6f 72 74 20 28 63 | v.(s.<string>))...(with.(port.(c |
| 8d2e0 | 61 6c 6c 2d 77 69 74 68 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 20 73 29 29 0a 20 20 20 20 28 76 | all-with-input-string.s)).....(v |
| 8d300 | 61 6c 75 65 73 2d 66 6f 72 2d 65 63 68 6f 2d 61 72 65 61 0a 20 20 20 20 20 28 6c 65 74 20 6e 65 | alues-for-echo-area......(let.ne |
| 8d320 | 78 74 20 28 28 72 65 73 75 6c 74 20 28 76 61 6c 75 65 73 29 29 29 0a 20 20 20 20 20 20 20 28 6c | xt.((result.(values)))........(l |
| 8d340 | 65 74 20 28 28 66 6f 72 6d 20 28 72 65 61 64 20 70 6f 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 | et.((form.(read.port)))......... |
| 8d360 | 20 28 63 6f 6e 64 20 28 28 3d 3d 20 66 6f 72 6d 20 23 21 65 6f 66 29 20 72 65 73 75 6c 74 29 0a | .(cond.((==.form.#!eof).result). |
| 8d380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 6e 65 78 74 20 28 65 76 61 6c 20 66 | ...............(#t.(next.(eval.f |
| 8d3a0 | 6f 72 6d 20 65 6e 76 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 7c | orm.env)))))))))..(defslimefun.| |
| 8d3c0 | 73 77 61 6e 6b 2d 72 65 70 6c 3a 6c 69 73 74 65 6e 65 72 2d 65 76 61 6c 7c 20 28 65 6e 76 20 73 | swank-repl:listener-eval|.(env.s |
| 8d3e0 | 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 6f 72 6d 20 28 72 65 61 64 2d 66 72 6f 6d | tring)...(let*.((form.(read-from |
| 8d400 | 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | -string.string))..........(list. |
| 8d420 | 28 76 61 6c 75 65 73 2d 74 6f 2d 6c 69 73 74 20 28 65 76 61 6c 20 66 6f 72 6d 20 65 6e 76 29 29 | (values-to-list.(eval.form.env)) |
| 8d440 | 29 29 0a 20 20 60 28 3a 76 61 6c 75 65 73 20 2c 40 28 6d 61 70 20 70 70 72 69 6e 74 2d 74 6f 2d | ))...`(:values.,@(map.pprint-to- |
| 8d460 | 73 74 72 69 6e 67 20 6c 69 73 74 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 70 70 | string.list))))..(defslimefun.pp |
| 8d480 | 72 69 6e 74 2d 65 76 61 6c 20 28 65 6e 76 20 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 2a 20 28 | rint-eval.(env.string)...(let*.( |
| 8d4a0 | 28 66 6f 72 6d 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 | (form.(read-from-string.string)) |
| 8d4c0 | 0a 20 20 20 20 20 20 20 20 20 28 6c 20 28 76 61 6c 75 65 73 2d 74 6f 2d 6c 69 73 74 20 28 65 76 | ..........(l.(values-to-list.(ev |
| 8d4e0 | 61 6c 20 66 6f 72 6d 20 65 6e 76 29 29 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20 63 61 74 20 28 | al.form.env)))).....(apply.cat.( |
| 8d500 | 6d 61 70 20 70 70 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 6c 29 29 29 29 0a 0a 28 64 65 66 | map.pprint-to-string.l))))..(def |
| 8d520 | 73 6c 69 6d 65 66 75 6e 20 65 76 61 6c 2d 61 6e 64 2d 67 72 61 62 2d 6f 75 74 70 75 74 20 28 65 | slimefun.eval-and-grab-output.(e |
| 8d540 | 6e 76 20 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 20 28 72 65 61 64 20 28 | nv.string)...(let.((form.(read.( |
| 8d560 | 6f 70 65 6e 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 | open-input-string.string)))).... |
| 8d580 | 20 28 6c 65 74 2d 76 61 6c 75 65 73 20 28 28 76 61 6c 75 65 73 20 28 65 76 61 6c 20 66 6f 72 6d | .(let-values.((values.(eval.form |
| 8d5a0 | 20 65 6e 76 29 29 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 22 22 0a 20 20 20 20 20 20 20 20 20 | .env))).......(list."".......... |
| 8d5c0 | 20 20 20 28 66 6f 72 6d 61 74 20 23 66 20 22 7e 7b 7e 53 7e 5e 7e 25 7e 7d 22 20 76 61 6c 75 65 | ...(format.#f."~{~S~^~%~}".value |
| 8d5e0 | 73 29 29 29 29 29 0a 0a 28 64 66 20 63 61 6c 6c 2d 77 69 74 68 2d 61 62 6f 72 74 20 28 66 29 0a | s)))))..(df.call-with-abort.(f). |
| 8d600 | 20 20 28 74 72 79 2d 63 61 74 63 68 20 28 66 29 20 28 65 78 20 3c 74 68 72 6f 77 61 62 6c 65 3e | ..(try-catch.(f).(ex.<throwable> |
| 8d620 | 20 28 65 78 63 65 70 74 69 6f 6e 2d 6d 65 73 73 61 67 65 20 65 78 29 29 29 29 0a 0a 28 64 66 20 | .(exception-message.ex))))..(df. |
| 8d640 | 65 78 63 65 70 74 69 6f 6e 2d 6d 65 73 73 61 67 65 20 28 28 65 78 20 3c 74 68 72 6f 77 61 62 6c | exception-message.((ex.<throwabl |
| 8d660 | 65 3e 29 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 65 78 0a 20 20 20 20 28 3c 6b 61 77 61 2e 6c | e>))...(typecase.ex.....(<kawa.l |
| 8d680 | 61 6e 67 2e 4e 61 6d 65 64 45 78 63 65 70 74 69 6f 6e 3e 20 28 21 20 74 6f 2d 73 74 72 69 6e 67 | ang.NamedException>.(!.to-string |
| 8d6a0 | 20 65 78 29 29 0a 20 20 20 20 28 3c 74 68 72 6f 77 61 62 6c 65 3e 20 28 66 6f 72 6d 61 74 20 22 | .ex)).....(<throwable>.(format." |
| 8d6c0 | 7e 61 3a 20 7e 61 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ~a:.~a"......................... |
| 8d6e0 | 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 61 6e 73 2d 70 61 63 6b 61 67 65 20 65 78 29 0a 20 20 | .(class-name-sans-package.ex)... |
| 8d700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 67 65 74 4d 65 73 | .......................(!.getMes |
| 8d720 | 73 61 67 65 20 65 78 29 29 29 29 29 0a 0a 28 64 66 20 76 61 6c 75 65 73 2d 66 6f 72 2d 65 63 68 | sage.ex)))))..(df.values-for-ech |
| 8d740 | 6f 2d 61 72 65 61 20 28 76 61 6c 75 65 73 29 0a 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 73 20 | o-area.(values)...(let.((values. |
| 8d760 | 28 76 61 6c 75 65 73 2d 74 6f 2d 6c 69 73 74 20 76 61 6c 75 65 73 29 29 29 0a 20 20 20 20 28 63 | (values-to-list.values))).....(c |
| 8d780 | 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 76 61 6c 75 65 73 29 20 22 3b 20 4e 6f 20 76 61 6c 75 65 22 | ond.((null?.values).";.No.value" |
| 8d7a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 66 6f 72 6d 61 74 20 22 7e 7b 7e 61 7e 5e 2c | )...........(#t.(format."~{~a~^, |
| 8d7c0 | 20 7e 7d 22 20 28 6d 61 70 20 70 70 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 76 61 6c 75 65 | .~}".(map.pprint-to-string.value |
| 8d7e0 | 73 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 0a 0a 28 64 65 66 73 | s))))))..;;;;.Compilation..(defs |
| 8d800 | 6c 69 6d 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 66 6f 72 2d 65 6d 61 63 73 20 28 | limefun.compile-file-for-emacs.( |
| 8d820 | 65 6e 76 20 28 66 69 6c 65 6e 61 6d 65 20 3c 73 74 72 3e 29 20 6c 6f 61 64 3f 0a 20 20 20 20 20 | env.(filename.<str>).load?...... |
| 8d840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8d860 | 20 20 20 20 23 21 6f 70 74 69 6f 6e 61 6c 20 6f 70 74 69 6f 6e 73 29 0a 20 20 28 6c 65 74 20 28 | ....#!optional.options)...(let.( |
| 8d880 | 28 6a 61 72 20 28 63 61 74 20 28 70 61 74 68 2d 73 61 6e 73 2d 65 78 74 65 6e 73 69 6f 6e 20 28 | (jar.(cat.(path-sans-extension.( |
| 8d8a0 | 66 69 6c 65 70 61 74 68 20 66 69 6c 65 6e 61 6d 65 29 29 20 22 2e 6a 61 72 22 29 29 29 0a 20 20 | filepath.filename)).".jar")))... |
| 8d8c0 | 20 20 28 77 72 61 70 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 0a 20 20 20 20 20 28 66 75 6e 20 28 28 | ..(wrap-compilation......(fun.(( |
| 8d8e0 | 6d 20 3c 67 6e 75 2e 74 65 78 74 2e 53 6f 75 72 63 65 4d 65 73 73 61 67 65 73 3e 29 29 0a 20 20 | m.<gnu.text.SourceMessages>))... |
| 8d900 | 20 20 20 20 20 28 21 73 20 6b 61 77 61 2e 6c 61 6e 67 2e 43 6f 6d 70 69 6c 65 46 69 6c 65 20 72 | .....(!s.kawa.lang.CompileFile.r |
| 8d920 | 65 61 64 20 66 69 6c 65 6e 61 6d 65 20 6d 29 29 0a 20 20 20 20 20 6a 61 72 20 28 69 66 20 28 6c | ead.filename.m))......jar.(if.(l |
| 8d940 | 69 73 70 2d 62 6f 6f 6c 20 6c 6f 61 64 3f 29 20 65 6e 76 20 23 66 29 20 23 66 29 29 29 0a 0a 28 | isp-bool.load?).env.#f).#f)))..( |
| 8d960 | 64 66 20 77 72 61 70 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 28 66 20 6a 61 72 20 65 6e 76 20 64 | df.wrap-compilation.(f.jar.env.d |
| 8d980 | 65 6c 65 74 65 3f 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 2d 74 69 6d 65 20 28 63 75 72 | elete?)...(let.((start-time.(cur |
| 8d9a0 | 72 65 6e 74 2d 74 69 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 73 20 28 3c | rent-time)).........(messages.(< |
| 8d9c0 | 67 6e 75 2e 74 65 78 74 2e 53 6f 75 72 63 65 4d 65 73 73 61 67 65 73 3e 29 29 29 0a 20 20 20 20 | gnu.text.SourceMessages>)))..... |
| 8d9e0 | 28 74 72 79 2d 63 61 74 63 68 0a 20 20 20 20 20 28 6c 65 74 20 28 28 63 20 28 61 73 20 3c 67 6e | (try-catch......(let.((c.(as.<gn |
| 8da00 | 75 2e 65 78 70 72 2e 43 6f 6d 70 69 6c 61 74 69 6f 6e 3e 20 28 66 20 6d 65 73 73 61 67 65 73 29 | u.expr.Compilation>.(f.messages) |
| 8da20 | 29 29 29 0a 20 20 20 20 20 20 20 28 73 65 74 20 28 40 20 65 78 70 6c 69 63 69 74 20 63 29 20 23 | )))........(set.(@.explicit.c).# |
| 8da40 | 74 29 0a 20 20 20 20 20 20 20 28 21 20 63 6f 6d 70 69 6c 65 2d 74 6f 2d 61 72 63 68 69 76 65 20 | t)........(!.compile-to-archive. |
| 8da60 | 63 20 28 21 20 67 65 74 2d 6d 6f 64 75 6c 65 20 63 29 20 6a 61 72 29 29 0a 20 20 20 20 20 28 65 | c.(!.get-module.c).jar))......(e |
| 8da80 | 78 20 3c 74 68 72 6f 77 61 62 6c 65 3e 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 67 20 22 65 72 72 | x.<throwable>..........(log."err |
| 8daa0 | 6f 72 20 64 75 72 69 6e 67 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 3a 20 7e 61 5c 6e 7e 61 22 20 65 | or.during.compilation:.~a\n~a".e |
| 8dac0 | 78 20 28 21 20 67 65 74 53 74 61 63 6b 54 72 61 63 65 20 65 78 29 29 0a 20 20 20 20 20 20 20 20 | x.(!.getStackTrace.ex))......... |
| 8dae0 | 20 28 21 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 20 28 61 73 20 3c 63 68 61 72 3e 20 23 5c | .(!.error.messages.(as.<char>.#\ |
| 8db00 | 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 6f 2d 73 74 72 20 28 65 78 63 65 70 74 69 6f | f).............(to-str.(exceptio |
| 8db20 | 6e 2d 6d 65 73 73 61 67 65 20 65 78 29 29 20 23 21 6e 75 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 | n-message.ex)).#!null).......... |
| 8db40 | 23 66 29 29 0a 20 20 20 20 28 6c 6f 67 20 22 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 64 6f 6e 65 2e | #f)).....(log."compilation.done. |
| 8db60 | 5c 6e 22 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 75 63 63 65 73 73 3f 20 28 7a 65 72 6f 3f 20 | \n").....(let.((success?.(zero?. |
| 8db80 | 28 21 20 67 65 74 2d 65 72 72 6f 72 2d 63 6f 75 6e 74 20 6d 65 73 73 61 67 65 73 29 29 29 29 0a | (!.get-error-count.messages)))). |
| 8dba0 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 65 6e 76 20 73 75 63 63 65 73 73 3f 29 0a 20 | ......(when.(and.env.success?).. |
| 8dbc0 | 20 20 20 20 20 20 20 28 6c 6f 67 20 22 6c 6f 61 64 69 6e 67 20 2e 2e 2e 5c 6e 22 29 0a 20 20 20 | .......(log."loading....\n").... |
| 8dbe0 | 20 20 20 20 20 28 65 76 61 6c 20 60 28 6c 6f 61 64 20 2c 6a 61 72 29 20 65 6e 76 29 0a 20 20 20 | .....(eval.`(load.,jar).env).... |
| 8dc00 | 20 20 20 20 20 28 6c 6f 67 20 22 6c 6f 61 64 69 6e 67 20 2e 2e 2e 20 64 6f 6e 65 2e 5c 6e 22 29 | .....(log."loading.....done.\n") |
| 8dc20 | 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 64 65 6c 65 74 65 3f 0a 20 20 20 20 20 20 20 20 28 69 | ).......(when.delete?.........(i |
| 8dc40 | 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 6a 61 72 29 20 23 | gnore-errors.(delete-file.jar).# |
| 8dc60 | 66 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 6e 64 2d 74 69 6d 65 20 28 63 75 72 72 65 | f)).......(let.((end-time.(curre |
| 8dc80 | 6e 74 2d 74 69 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 3a 63 6f 6d 70 69 | nt-time))).........(list.':compi |
| 8dca0 | 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d | lation-result...............(com |
| 8dcc0 | 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 66 6f 72 2d 65 6d 61 63 73 20 6d 65 73 73 61 67 65 73 29 0a | piler-notes-for-emacs.messages). |
| 8dce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 73 75 63 63 65 73 73 3f 20 27 74 20 27 6e | ..............(if.success?.'t.'n |
| 8dd00 | 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2f 20 28 2d 20 65 6e 64 2d 74 69 6d 65 | il)...............(/.(-.end-time |
| 8dd20 | 20 73 74 61 72 74 2d 74 69 6d 65 29 20 31 30 30 30 2e 30 29 29 29 29 29 29 0a 0a 28 64 65 66 73 | .start-time).1000.0))))))..(defs |
| 8dd40 | 6c 69 6d 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 65 6d 61 63 73 | limefun.compile-string-for-emacs |
| 8dd60 | 20 28 65 6e 76 20 73 74 72 69 6e 67 20 62 75 66 66 65 72 20 6f 66 66 73 65 74 20 64 69 72 29 0a | .(env.string.buffer.offset.dir). |
| 8dd80 | 20 20 28 77 72 61 70 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 0a 20 20 20 28 66 75 6e 20 28 28 6d 20 | ..(wrap-compilation....(fun.((m. |
| 8dda0 | 3c 67 6e 75 2e 74 65 78 74 2e 53 6f 75 72 63 65 4d 65 73 73 61 67 65 73 3e 29 29 0a 20 20 20 20 | <gnu.text.SourceMessages>))..... |
| 8ddc0 | 20 28 6c 65 74 20 28 28 63 20 28 61 73 20 3c 67 6e 75 2e 65 78 70 72 2e 43 6f 6d 70 69 6c 61 74 | .(let.((c.(as.<gnu.expr.Compilat |
| 8dde0 | 69 6f 6e 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 | ion>...................(call-wit |
| 8de00 | 68 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h-input-string.................. |
| 8de20 | 20 20 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e | ..string....................(fun |
| 8de40 | 20 28 28 70 20 3c 69 6e 2d 70 6f 72 74 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .((p.<in-port>))................ |
| 8de60 | 20 20 20 20 20 20 28 21 20 73 65 74 2d 70 61 74 68 20 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(!.set-path.p............. |
| 8de80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 7e 73 22 0a 20 20 20 20 20 20 20 | ............(format."~s"........ |
| 8dea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 62 75 66 66 65 | .........................`(buffe |
| 8dec0 | 72 20 2c 62 75 66 66 65 72 20 6f 66 66 73 65 74 20 2c 6f 66 66 73 65 74 20 73 74 72 20 2c 73 74 | r.,buffer.offset.,offset.str.,st |
| 8dee0 | 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 73 | ring)))......................(!s |
| 8df00 | 20 6b 61 77 61 2e 6c 61 6e 67 2e 43 6f 6d 70 69 6c 65 46 69 6c 65 20 72 65 61 64 20 70 20 6d 29 | .kawa.lang.CompileFile.read.p.m) |
| 8df20 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 20 28 40 20 63 75 72 72 65 6e 74 | )))))........(let.((o.(@.current |
| 8df40 | 4f 70 74 69 6f 6e 73 20 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 21 20 73 65 74 20 6f 20 22 | Options.c)))..........(!.set.o." |
| 8df60 | 77 61 72 6e 2d 69 6e 76 6f 6b 65 2d 75 6e 6b 6e 6f 77 6e 2d 6d 65 74 68 6f 64 22 20 23 74 29 0a | warn-invoke-unknown-method".#t). |
| 8df80 | 20 20 20 20 20 20 20 20 20 28 21 20 73 65 74 20 6f 20 22 77 61 72 6e 2d 75 6e 64 65 66 69 6e 65 | .........(!.set.o."warn-undefine |
| 8dfa0 | 64 2d 76 61 72 69 61 62 6c 65 22 20 23 74 29 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d | d-variable".#t))........(let.((m |
| 8dfc0 | 20 28 21 20 67 65 74 4d 6f 64 75 6c 65 20 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 21 20 73 | .(!.getModule.c)))..........(!.s |
| 8dfe0 | 65 74 2d 6e 61 6d 65 20 6d 20 28 66 6f 72 6d 61 74 20 22 3c 65 6d 61 63 73 3e 3a 7e 61 2f 7e 61 | et-name.m.(format."<emacs>:~a/~a |
| 8e000 | 22 20 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 29 29 29 0a 20 20 20 20 20 | ".buffer.(current-time))))...... |
| 8e020 | 20 20 63 29 29 0a 20 20 20 22 2f 74 6d 70 2f 6b 61 77 61 2d 74 6d 70 2e 7a 69 70 22 20 65 6e 76 | ..c))...."/tmp/kawa-tmp.zip".env |
| 8e040 | 20 23 74 29 29 0a 0a 28 64 66 20 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 66 6f 72 2d 65 6d | .#t))..(df.compiler-notes-for-em |
| 8e060 | 61 63 73 20 28 28 6d 65 73 73 61 67 65 73 20 3c 67 6e 75 2e 74 65 78 74 2e 53 6f 75 72 63 65 4d | acs.((messages.<gnu.text.SourceM |
| 8e080 | 65 73 73 61 67 65 73 3e 29 29 0a 20 20 28 70 61 63 6b 69 6e 67 20 28 70 61 63 6b 29 0a 20 20 20 | essages>))...(packing.(pack).... |
| 8e0a0 | 20 28 64 6f 20 28 28 65 20 28 21 20 67 65 74 2d 65 72 72 6f 72 73 20 6d 65 73 73 61 67 65 73 29 | .(do.((e.(!.get-errors.messages) |
| 8e0c0 | 20 28 40 20 6e 65 78 74 20 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 6e 75 6c 3f 20 65 29 29 | .(@.next.e))).........((nul?.e)) |
| 8e0e0 | 0a 20 20 20 20 20 20 28 70 61 63 6b 20 28 73 6f 75 72 63 65 2d 65 72 72 6f 72 3e 65 6c 69 73 70 | .......(pack.(source-error>elisp |
| 8e100 | 20 65 29 29 29 29 29 0a 0a 28 64 66 20 73 6f 75 72 63 65 2d 65 72 72 6f 72 3e 65 6c 69 73 70 20 | .e)))))..(df.source-error>elisp. |
| 8e120 | 28 28 65 20 3c 73 6f 75 72 63 65 2d 65 72 72 6f 72 3e 29 20 3d 3e 20 3c 6c 69 73 74 3e 29 0a 20 | ((e.<source-error>).=>.<list>).. |
| 8e140 | 20 28 6c 69 73 74 20 27 3a 6d 65 73 73 61 67 65 20 28 74 6f 2d 73 74 72 69 6e 67 20 28 40 20 6d | .(list.':message.(to-string.(@.m |
| 8e160 | 65 73 73 61 67 65 20 65 29 29 0a 20 20 20 20 20 20 20 20 27 3a 73 65 76 65 72 69 74 79 20 28 63 | essage.e)).........':severity.(c |
| 8e180 | 61 73 65 20 28 69 6e 74 65 67 65 72 2d 3e 63 68 61 72 20 28 40 20 73 65 76 65 72 69 74 79 20 65 | ase.(integer->char.(@.severity.e |
| 8e1a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 23 5c 65 20 23 5c 66 | )).....................((#\e.#\f |
| 8e1c0 | 29 20 27 3a 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ).':error).....................( |
| 8e1e0 | 28 23 5c 77 29 20 27 3a 77 61 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (#\w).':warning)................ |
| 8e200 | 20 20 20 20 20 28 65 6c 73 65 20 27 3a 6e 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 27 3a 6c 6f | .....(else.':note)).........':lo |
| 8e220 | 63 61 74 69 6f 6e 20 28 65 72 72 6f 72 2d 6c 6f 63 3e 65 6c 69 73 70 20 65 29 29 29 0a 0a 28 64 | cation.(error-loc>elisp.e)))..(d |
| 8e240 | 66 20 65 72 72 6f 72 2d 6c 6f 63 3e 65 6c 69 73 70 20 28 28 65 20 3c 73 6f 75 72 63 65 2d 65 72 | f.error-loc>elisp.((e.<source-er |
| 8e260 | 72 6f 72 3e 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 3f 20 28 40 20 66 69 6c 65 6e 61 6d | ror>))...(cond.((nul?.(@.filenam |
| 8e280 | 65 20 65 29 29 20 60 28 3a 65 72 72 6f 72 20 22 4e 6f 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 | e.e)).`(:error."No.source.locati |
| 8e2a0 | 6f 6e 22 29 29 0a 20 20 20 20 20 20 20 20 28 28 21 20 73 74 61 72 74 73 2d 77 69 74 68 20 28 40 | on")).........((!.starts-with.(@ |
| 8e2c0 | 20 66 69 6c 65 6e 61 6d 65 20 65 29 20 22 28 62 75 66 66 65 72 20 22 29 0a 20 20 20 20 20 20 20 | .filename.e)."(buffer.")........ |
| 8e2e0 | 20 20 28 6d 6c 65 74 20 28 28 27 62 75 66 66 65 72 20 62 20 27 6f 66 66 73 65 74 20 28 27 71 75 | ..(mlet.(('buffer.b.'offset.('qu |
| 8e300 | 6f 74 65 20 28 28 3a 70 6f 73 69 74 69 6f 6e 20 6f 29 20 5f 29 29 20 27 73 74 72 20 73 29 0a 20 | ote.((:position.o)._)).'str.s).. |
| 8e320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 | ...............(read-from-string |
| 8e340 | 20 28 40 20 66 69 6c 65 6e 61 6d 65 20 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | .(@.filename.e)))............(le |
| 8e360 | 74 20 28 28 6f 66 66 20 28 6c 69 6e 65 3e 6f 66 66 73 65 74 20 28 31 2d 20 28 40 20 6c 69 6e 65 | t.((off.(line>offset.(1-.(@.line |
| 8e380 | 20 65 29 29 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 20 28 | .e)).s))..................(col.( |
| 8e3a0 | 31 2d 20 28 40 20 63 6f 6c 75 6d 6e 20 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1-.(@.column.e)))).............. |
| 8e3c0 | 60 28 3a 6c 6f 63 61 74 69 6f 6e 20 28 3a 62 75 66 66 65 72 20 2c 62 29 20 28 3a 70 6f 73 69 74 | `(:location.(:buffer.,b).(:posit |
| 8e3e0 | 69 6f 6e 20 2c 28 2b 20 6f 20 6f 66 66 20 63 6f 6c 29 29 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 | ion.,(+.o.off.col)).nil))))..... |
| 8e400 | 20 20 20 20 28 23 74 0a 20 20 20 20 20 20 20 20 20 60 28 3a 6c 6f 63 61 74 69 6f 6e 20 28 3a 66 | ....(#t..........`(:location.(:f |
| 8e420 | 69 6c 65 20 2c 28 74 6f 2d 73 74 72 69 6e 67 20 28 40 20 66 69 6c 65 6e 61 6d 65 20 65 29 29 29 | ile.,(to-string.(@.filename.e))) |
| 8e440 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 69 6e 65 20 2c 28 40 | ......................(:line.,(@ |
| 8e460 | 20 6c 69 6e 65 20 65 29 20 2c 28 31 2d 20 28 40 20 63 6f 6c 75 6d 6e 20 65 29 29 29 0a 20 20 20 | .line.e).,(1-.(@.column.e))).... |
| 8e480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 0a 0a 28 64 66 20 6c | ..................nil))))..(df.l |
| 8e4a0 | 69 6e 65 3e 6f 66 66 73 65 74 20 28 28 6c 69 6e 65 20 3c 69 6e 74 3e 29 20 28 73 20 3c 73 74 72 | ine>offset.((line.<int>).(s.<str |
| 8e4c0 | 3e 29 20 3d 3e 20 3c 69 6e 74 3e 29 0a 20 20 28 6c 65 74 20 28 28 6f 66 66 73 65 74 20 3a 3a 20 | >).=>.<int>)...(let.((offset.::. |
| 8e4e0 | 3c 69 6e 74 3e 20 30 29 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 6c 69 6e 65 29 0a | <int>.0)).....(dotimes.(i.line). |
| 8e500 | 20 20 20 20 20 20 28 73 65 74 20 6f 66 66 73 65 74 20 28 21 20 69 6e 64 65 78 2d 6f 66 20 73 20 | ......(set.offset.(!.index-of.s. |
| 8e520 | 28 61 73 20 3c 63 68 61 72 3e 20 23 5c 6e 65 77 6c 69 6e 65 29 20 6f 66 66 73 65 74 29 29 0a 20 | (as.<char>.#\newline).offset)).. |
| 8e540 | 20 20 20 20 20 28 61 73 73 65 72 74 20 28 3e 3d 20 6f 66 66 73 65 74 20 30 29 29 0a 20 20 20 20 | .....(assert.(>=.offset.0))..... |
| 8e560 | 20 20 28 73 65 74 20 6f 66 66 73 65 74 20 28 61 73 20 3c 69 6e 74 3e 20 28 2b 20 6f 66 66 73 65 | ..(set.offset.(as.<int>.(+.offse |
| 8e580 | 74 20 31 29 29 29 29 0a 20 20 20 20 28 6c 6f 67 20 22 6c 69 6e 65 3d 7e 61 20 6f 66 66 73 65 74 | t.1)))).....(log."line=~a.offset |
| 8e5a0 | 3d 7e 61 5c 6e 22 20 6c 69 6e 65 20 6f 66 66 73 65 74 29 0a 20 20 20 20 6f 66 66 73 65 74 29 29 | =~a\n".line.offset).....offset)) |
| 8e5c0 | 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6c 6f 61 64 2d 66 69 6c 65 20 28 65 6e 76 20 66 69 | ..(defslimefun.load-file.(env.fi |
| 8e5e0 | 6c 65 6e 61 6d 65 29 0a 20 20 28 66 6f 72 6d 61 74 20 22 4c 6f 61 64 65 64 3a 20 7e 61 20 3d 3e | lename)...(format."Loaded:.~a.=> |
| 8e600 | 20 7e 73 22 20 66 69 6c 65 6e 61 6d 65 20 28 65 76 61 6c 20 60 28 6c 6f 61 64 20 2c 66 69 6c 65 | .~s".filename.(eval.`(load.,file |
| 8e620 | 6e 61 6d 65 29 20 65 6e 76 29 29 29 0a 0a 3b 3b 3b 3b 20 43 6f 6d 70 6c 65 74 69 6f 6e 0a 0a 28 | name).env)))..;;;;.Completion..( |
| 8e640 | 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 | defslimefun.simple-completions.( |
| 8e660 | 65 6e 76 20 28 70 61 74 74 65 72 6e 20 3c 73 74 72 3e 29 20 5f 29 0a 20 20 28 6c 65 74 2a 20 28 | env.(pattern.<str>)._)...(let*.( |
| 8e680 | 28 65 6e 76 20 28 61 73 20 3c 67 6e 75 2e 6d 61 70 70 69 6e 67 2e 49 6e 68 65 72 69 74 69 6e 67 | (env.(as.<gnu.mapping.Inheriting |
| 8e6a0 | 45 6e 76 69 72 6f 6e 6d 65 6e 74 3e 20 65 6e 76 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 74 | Environment>.env))..........(mat |
| 8e6c0 | 63 68 65 73 20 28 70 61 63 6b 69 6e 67 20 28 70 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ches.(packing.(pack)............ |
| 8e6e0 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 74 65 72 20 28 21 20 65 6e 75 6d 65 72 61 74 | .........(let.((iter.(!.enumerat |
| 8e700 | 65 2d 61 6c 6c 2d 6c 6f 63 61 74 69 6f 6e 73 20 65 6e 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 | e-all-locations.env))).......... |
| 8e720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 21 20 68 61 73 2d 6e 65 78 74 20 | .............(while.(!.has-next. |
| 8e740 | 69 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | iter).........................(l |
| 8e760 | 65 74 20 28 28 6c 20 28 21 20 6e 65 78 74 2d 6c 6f 63 61 74 69 6f 6e 20 69 74 65 72 29 29 29 0a | et.((l.(!.next-location.iter))). |
| 8e780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 | ..........................(typec |
| 8e7a0 | 61 73 65 20 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ase.l........................... |
| 8e7c0 | 20 20 28 3c 67 6e 75 2e 6d 61 70 70 69 6e 67 2e 4e 61 6d 65 64 4c 6f 63 61 74 69 6f 6e 3e 0a 20 | ..(<gnu.mapping.NamedLocation>.. |
| 8e7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | ............................(let |
| 8e800 | 20 28 28 6e 61 6d 65 20 28 21 21 20 67 65 74 2d 6e 61 6d 65 20 67 65 74 2d 6b 65 79 2d 73 79 6d | .((name.(!!.get-name.get-key-sym |
| 8e820 | 62 6f 6c 20 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bol.l)))........................ |
| 8e840 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 21 20 73 74 61 72 74 73 2d 77 69 74 68 20 6e 61 6d | ........(when.(!.starts-with.nam |
| 8e860 | 65 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.pattern)...................... |
| 8e880 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 6e 61 6d 65 29 29 29 29 29 29 29 29 29 29 | ............(pack.name)))))))))) |
| 8e8a0 | 29 0a 20 20 20 20 60 28 2c 6d 61 74 63 68 65 73 20 2c 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 | ).....`(,matches.,(cond.((null?. |
| 8e8c0 | 6d 61 74 63 68 65 73 29 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | matches).pattern)............... |
| 8e8e0 | 20 20 20 20 20 20 20 20 28 23 74 20 28 66 6f 6c 64 2b 20 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 | ........(#t.(fold+.common-prefix |
| 8e900 | 20 6d 61 74 63 68 65 73 29 29 29 29 29 29 0a 0a 28 64 66 20 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 | .matches))))))..(df.common-prefi |
| 8e920 | 78 20 28 28 73 31 20 3c 73 74 72 3e 29 20 28 73 32 20 3c 73 74 72 3e 29 20 3d 3e 20 3c 73 74 72 | x.((s1.<str>).(s2.<str>).=>.<str |
| 8e940 | 3e 29 0a 20 20 28 6c 65 74 20 28 28 6c 69 6d 69 74 20 28 6d 69 6e 20 28 21 20 6c 65 6e 67 74 68 | >)...(let.((limit.(min.(!.length |
| 8e960 | 20 73 31 29 20 28 21 20 6c 65 6e 67 74 68 20 73 32 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 6c | .s1).(!.length.s2)))).....(let.l |
| 8e980 | 6f 6f 70 20 28 28 69 20 30 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6f 72 20 28 3d 20 | oop.((i.0)).......(cond.((or.(=. |
| 8e9a0 | 69 20 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 | i.limit)..................(not.( |
| 8e9c0 | 3d 3d 20 28 21 20 63 68 61 72 2d 61 74 20 73 31 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ==.(!.char-at.s1.i)............. |
| 8e9e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 63 68 61 72 2d 61 74 20 73 32 20 69 29 29 29 | ..............(!.char-at.s2.i))) |
| 8ea00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 73 75 62 73 74 72 69 6e 67 20 73 31 20 30 | )..............(!.substring.s1.0 |
| 8ea20 | 20 69 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 6c 6f 6f 70 20 28 31 2b 20 69 | .i)).............(#t.(loop.(1+.i |
| 8ea40 | 29 29 29 29 29 29 29 0a 0a 28 64 66 20 66 6f 6c 64 2b 20 28 66 20 6c 69 73 74 29 0a 20 20 28 6c | )))))))..(df.fold+.(f.list)...(l |
| 8ea60 | 65 74 20 6c 6f 6f 70 20 28 28 73 20 28 63 61 72 20 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 | et.loop.((s.(car.list))......... |
| 8ea80 | 20 20 20 20 20 28 6c 20 28 63 64 72 20 6c 69 73 74 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 | .....(l.(cdr.list))).....(cond.( |
| 8eaa0 | 28 6e 75 6c 6c 3f 20 6c 29 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 6c 6f 6f 70 | (null?.l).s)...........(#t.(loop |
| 8eac0 | 20 28 66 20 73 20 28 63 61 72 20 6c 29 29 20 28 63 64 72 20 6c 29 29 29 29 29 29 0a 0a 3b 3b 3b | .(f.s.(car.l)).(cdr.l))))))..;;; |
| 8eae0 | 20 51 75 69 74 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 71 75 69 74 2d 6c 69 73 70 20 28 65 | .Quit..(defslimefun.quit-lisp.(e |
| 8eb00 | 6e 76 29 0a 20 20 28 65 78 69 74 29 29 0a 0a 3b 3b 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 65 | nv)...(exit))..;;(defslimefun.se |
| 8eb20 | 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 65 6e 76 20 6e 65 77 64 69 72 29 | t-default-directory.(env.newdir) |
| 8eb40 | 29 0a 0a 0a 3b 3b 3b 3b 20 44 75 6d 6d 79 20 64 65 66 73 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 | )...;;;;.Dummy.defs..(defslimefu |
| 8eb60 | 6e 20 62 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 20 28 23 21 72 65 73 74 20 79 29 | n.buffer-first-change.(#!rest.y) |
| 8eb80 | 20 27 28 29 29 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 72 65 71 75 69 72 65 | .'()).(defslimefun.swank-require |
| 8eba0 | 20 28 23 21 72 65 73 74 20 79 29 20 27 28 29 29 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 72 | .(#!rest.y).'()).(defslimefun.fr |
| 8ebc0 | 61 6d 65 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 23 21 72 65 73 74 20 79 29 20 27 28 29 29 | ame-package-name.(#!rest.y).'()) |
| 8ebe0 | 0a 0a 3b 3b 3b 3b 20 61 72 67 6c 69 73 74 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6f 70 65 | ..;;;;.arglist..(defslimefun.ope |
| 8ec00 | 72 61 74 6f 72 2d 61 72 67 6c 69 73 74 20 28 65 6e 76 20 6e 61 6d 65 20 23 21 72 65 73 74 20 5f | rator-arglist.(env.name.#!rest._ |
| 8ec20 | 29 0a 20 20 28 6d 63 61 73 65 20 28 74 72 79 2d 63 61 74 63 68 20 60 28 6f 6b 20 2c 28 65 76 61 | )...(mcase.(try-catch.`(ok.,(eva |
| 8ec40 | 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 6e 61 6d 65 29 20 65 6e 76 29 29 0a | l.(read-from-string.name).env)). |
| 8ec60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 20 3c 74 68 72 6f 77 61 62 | ....................(ex.<throwab |
| 8ec80 | 6c 65 3e 20 27 6e 69 6c 29 29 0a 20 20 20 20 28 28 27 6f 6b 20 6f 62 6a 29 0a 20 20 20 20 20 28 | le>.'nil)).....(('ok.obj)......( |
| 8eca0 | 6d 63 61 73 65 20 28 61 72 67 6c 69 73 74 20 6f 62 6a 29 0a 20 20 20 20 20 20 20 28 27 23 66 20 | mcase.(arglist.obj)........('#f. |
| 8ecc0 | 27 6e 69 6c 29 0a 20 20 20 20 20 20 20 28 28 61 72 67 73 20 72 74 79 70 65 29 0a 20 20 20 20 20 | 'nil)........((args.rtype)...... |
| 8ece0 | 20 20 20 28 66 6f 72 6d 61 74 20 22 28 7e 61 7e 7b 7e 5e 20 7e 61 7e 7d 29 7e 61 22 20 6e 61 6d | ...(format."(~a~{~^.~a~})~a".nam |
| 8ed00 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 28 66 75 6e 20 28 65 29 0a | e.................(map.(fun.(e). |
| 8ed20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 | .......................(if.(equa |
| 8ed40 | 6c 20 28 63 61 64 72 20 65 29 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 4f 62 6a 65 63 74 22 29 20 28 | l.(cadr.e)."java.lang.Object").( |
| 8ed60 | 63 61 72 20 65 29 20 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | car.e).e))...................... |
| 8ed80 | 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c | args).................(if.(equal |
| 8eda0 | 20 72 74 79 70 65 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 4f 62 6a 65 63 74 22 29 0a 20 20 20 20 20 | .rtype."java.lang.Object")...... |
| 8edc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............""............... |
| 8ede0 | 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 3d 3e 20 7e 61 22 20 72 74 79 70 65 29 29 29 29 | ......(format.".=>.~a".rtype)))) |
| 8ee00 | 29 29 0a 20 20 20 20 28 5f 20 27 6e 69 6c 29 29 29 0a 0a 28 64 66 20 61 72 67 6c 69 73 74 20 28 | )).....(_.'nil)))..(df.arglist.( |
| 8ee20 | 6f 62 6a 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 6f 62 6a 0a 20 20 20 20 28 3c 67 6e 75 2e 65 | obj)...(typecase.obj.....(<gnu.e |
| 8ee40 | 78 70 72 2e 4d 6f 64 75 6c 65 4d 65 74 68 6f 64 3e 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6d | xpr.ModuleMethod>......(let*.((m |
| 8ee60 | 72 65 66 20 28 6d 6f 64 75 6c 65 2d 6d 65 74 68 6f 64 3e 6d 65 74 68 2d 72 65 66 20 6f 62 6a 29 | ref.(module-method>meth-ref.obj) |
| 8ee80 | 29 29 0a 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 6d 61 70 69 20 28 21 20 61 72 67 75 6d 65 6e | ))........(list.(mapi.(!.argumen |
| 8eea0 | 74 73 20 6d 72 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e | ts.mref)....................(fun |
| 8eec0 | 20 28 28 76 20 3c 6c 6f 63 61 6c 2d 76 61 72 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .((v.<local-var>)).............. |
| 8eee0 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 21 20 6e 61 6d 65 20 76 29 20 28 21 20 74 79 70 65 | ........(list.(!.name.v).(!.type |
| 8ef00 | 4e 61 6d 65 20 76 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 72 65 74 75 72 | Name.v))))..............(!.retur |
| 8ef20 | 6e 54 79 70 65 4e 61 6d 65 20 6d 72 65 66 29 29 29 29 0a 20 20 20 20 28 3c 6f 62 6a 65 63 74 3e | nTypeName.mref)))).....(<object> |
| 8ef40 | 20 23 66 29 29 29 0a 0a 3b 3b 3b 3b 20 4d 2d 2e 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 | .#f)))..;;;;.M-...(defslimefun.f |
| 8ef60 | 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 66 6f 72 2d 65 6d 61 63 73 20 28 65 6e 76 20 6e | ind-definitions-for-emacs.(env.n |
| 8ef80 | 61 6d 65 29 0a 20 20 28 6d 63 61 73 65 20 28 74 72 79 2d 63 61 74 63 68 20 60 28 6f 6b 20 2c 28 | ame)...(mcase.(try-catch.`(ok.,( |
| 8efa0 | 65 76 61 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 6e 61 6d 65 29 20 65 6e 76 | eval.(read-from-string.name).env |
| 8efc0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 20 3c 74 68 72 6f | )).....................(ex.<thro |
| 8efe0 | 77 61 62 6c 65 3e 20 60 28 65 72 72 6f 72 20 2c 28 65 78 63 65 70 74 69 6f 6e 2d 6d 65 73 73 61 | wable>.`(error.,(exception-messa |
| 8f000 | 67 65 20 65 78 29 29 29 29 0a 20 20 20 20 28 28 27 6f 6b 20 6f 62 6a 29 20 28 6d 61 70 69 20 28 | ge.ex)))).....(('ok.obj).(mapi.( |
| 8f020 | 61 6c 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6f 62 6a 29 0a 20 20 20 20 20 20 20 20 20 20 20 | all-definitions.obj)............ |
| 8f040 | 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(fun.(d).............. |
| 8f060 | 20 20 20 20 20 20 20 20 20 20 60 28 2c 28 66 6f 72 6d 61 74 20 22 7e 61 22 20 64 29 20 2c 28 73 | ..........`(,(format."~a".d).,(s |
| 8f080 | 72 63 2d 6c 6f 63 3e 65 6c 69 73 70 20 28 73 72 63 2d 6c 6f 63 20 64 29 29 29 29 29 29 0a 20 20 | rc-loc>elisp.(src-loc.d))))))... |
| 8f0a0 | 20 20 28 28 27 65 72 72 6f 72 20 6d 73 67 29 20 60 28 28 2c 6e 61 6d 65 20 28 3a 65 72 72 6f 72 | ..(('error.msg).`((,name.(:error |
| 8f0c0 | 20 2c 6d 73 67 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 69 6d 70 6c 65 2d 63 6c 61 73 | .,msg))))))..(define-simple-clas |
| 8f0e0 | 73 20 3c 73 77 61 6e 6b 2d 6c 6f 63 61 74 69 6f 6e 3e 20 28 3c 6c 6f 63 61 74 69 6f 6e 3e 29 0a | s.<swank-location>.(<location>). |
| 8f100 | 20 20 28 66 69 6c 65 20 23 3a 69 6e 69 74 20 23 66 29 0a 20 20 28 6c 69 6e 65 20 23 3a 69 6e 69 | ..(file.#:init.#f)...(line.#:ini |
| 8f120 | 74 20 23 66 29 0a 20 20 28 28 2a 69 6e 69 74 2a 20 66 69 6c 65 20 6e 61 6d 65 29 0a 20 20 20 28 | t.#f)...((*init*.file.name)....( |
| 8f140 | 73 65 74 20 28 40 20 66 69 6c 65 20 28 74 68 69 73 29 29 20 66 69 6c 65 29 0a 20 20 20 28 73 65 | set.(@.file.(this)).file)....(se |
| 8f160 | 74 20 28 40 20 6c 69 6e 65 20 28 74 68 69 73 29 29 20 6c 69 6e 65 29 29 0a 20 20 28 28 6c 69 6e | t.(@.line.(this)).line))...((lin |
| 8f180 | 65 4e 75 6d 62 65 72 29 20 3a 3a 20 3c 69 6e 74 3e 20 28 6f 72 20 6c 69 6e 65 20 28 61 62 73 65 | eNumber).::.<int>.(or.line.(abse |
| 8f1a0 | 6e 74 29 29 29 0a 20 20 28 28 6c 69 6e 65 4e 75 6d 62 65 72 20 28 73 20 3a 3a 20 3c 73 74 72 3e | nt)))...((lineNumber.(s.::.<str> |
| 8f1c0 | 29 29 20 3a 3a 20 69 6e 74 20 28 21 20 6c 69 6e 65 4e 75 6d 62 65 72 20 28 74 68 69 73 29 29 29 | )).::.int.(!.lineNumber.(this))) |
| 8f1e0 | 0a 20 20 28 28 6d 65 74 68 6f 64 29 20 3a 3a 20 3c 6d 65 74 68 2d 72 65 66 3e 20 28 61 62 73 65 | ...((method).::.<meth-ref>.(abse |
| 8f200 | 6e 74 29 29 0a 20 20 28 28 73 6f 75 72 63 65 50 61 74 68 29 20 3a 3a 20 3c 73 74 72 3e 20 28 6f | nt))...((sourcePath).::.<str>.(o |
| 8f220 | 72 20 66 69 6c 65 20 28 61 62 73 65 6e 74 29 29 29 0a 20 20 28 28 73 6f 75 72 63 65 50 61 74 68 | r.file.(absent)))...((sourcePath |
| 8f240 | 20 28 73 20 3a 3a 20 3c 73 74 72 3e 29 29 20 3a 3a 20 3c 73 74 72 3e 20 28 21 20 73 6f 75 72 63 | .(s.::.<str>)).::.<str>.(!.sourc |
| 8f260 | 65 50 61 74 68 20 28 74 68 69 73 29 29 29 0a 20 20 28 28 73 6f 75 72 63 65 4e 61 6d 65 29 20 3a | ePath.(this)))...((sourceName).: |
| 8f280 | 3a 20 3c 73 74 72 3e 20 28 61 62 73 65 6e 74 29 29 0a 20 20 28 28 73 6f 75 72 63 65 4e 61 6d 65 | :.<str>.(absent))...((sourceName |
| 8f2a0 | 20 28 73 20 3a 3a 20 3c 73 74 72 3e 29 29 20 3a 3a 20 3c 73 74 72 3e 20 28 21 20 73 6f 75 72 63 | .(s.::.<str>)).::.<str>.(!.sourc |
| 8f2c0 | 65 4e 61 6d 65 20 28 74 68 69 73 29 29 29 0a 20 20 28 28 64 65 63 6c 61 72 69 6e 67 54 79 70 65 | eName.(this)))...((declaringType |
| 8f2e0 | 29 20 3a 3a 20 3c 72 65 66 2d 74 79 70 65 3e 20 28 61 62 73 65 6e 74 29 29 0a 20 20 28 28 63 6f | ).::.<ref-type>.(absent))...((co |
| 8f300 | 64 65 49 6e 64 65 78 29 20 3a 3a 20 3c 6c 6f 6e 67 3e 20 2d 31 29 0a 20 20 28 28 76 69 72 74 75 | deIndex).::.<long>.-1)...((virtu |
| 8f320 | 61 6c 4d 61 63 68 69 6e 65 29 20 3a 3a 20 3c 76 6d 3e 20 2a 74 68 65 2d 76 6d 2a 29 0a 20 20 28 | alMachine).::.<vm>.*the-vm*)...( |
| 8f340 | 28 63 6f 6d 70 61 72 65 54 6f 20 6f 29 20 3a 3a 20 3c 69 6e 74 3e 0a 20 20 20 28 74 79 70 65 63 | (compareTo.o).::.<int>....(typec |
| 8f360 | 61 73 65 20 6f 0a 20 20 20 20 20 28 3c 6c 6f 63 61 74 69 6f 6e 3e 20 28 2d 20 28 21 20 63 6f 64 | ase.o......(<location>.(-.(!.cod |
| 8f380 | 65 49 6e 64 65 78 20 28 74 68 69 73 29 29 20 28 21 20 63 6f 64 65 49 6e 64 65 78 20 6f 29 29 29 | eIndex.(this)).(!.codeIndex.o))) |
| 8f3a0 | 29 29 29 0a 0a 28 64 66 20 61 62 73 65 6e 74 20 28 29 20 28 70 72 69 6d 69 74 69 76 65 2d 74 68 | )))..(df.absent.().(primitive-th |
| 8f3c0 | 72 6f 77 20 28 3c 61 62 73 65 6e 74 2d 65 78 63 3e 29 29 29 0a 0a 28 64 66 20 61 6c 6c 2d 64 65 | row.(<absent-exc>)))..(df.all-de |
| 8f3e0 | 66 69 6e 69 74 69 6f 6e 73 20 28 6f 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 6f 0a 20 20 20 20 | finitions.(o)...(typecase.o..... |
| 8f400 | 28 3c 67 6e 75 2e 65 78 70 72 2e 4d 6f 64 75 6c 65 4d 65 74 68 6f 64 3e 20 28 6c 69 73 74 20 6f | (<gnu.expr.ModuleMethod>.(list.o |
| 8f420 | 29 29 0a 20 20 20 20 28 3c 67 6e 75 2e 65 78 70 72 2e 50 72 69 6d 50 72 6f 63 65 64 75 72 65 3e | )).....(<gnu.expr.PrimProcedure> |
| 8f440 | 20 28 6c 69 73 74 20 6f 29 29 0a 20 20 20 20 28 3c 67 6e 75 2e 65 78 70 72 2e 47 65 6e 65 72 69 | .(list.o)).....(<gnu.expr.Generi |
| 8f460 | 63 50 72 6f 63 3e 20 28 61 70 70 65 6e 64 20 28 6d 61 70 70 65 6e 64 20 61 6c 6c 2d 64 65 66 69 | cProc>.(append.(mappend.all-defi |
| 8f480 | 6e 69 74 69 6f 6e 73 20 28 67 66 2d 6d 65 74 68 6f 64 73 20 6f 29 29 0a 20 20 20 20 20 20 20 20 | nitions.(gf-methods.o))......... |
| 8f4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | ............................(let |
| 8f4c0 | 20 28 28 73 20 28 21 20 67 65 74 2d 73 65 74 74 65 72 20 6f 29 29 29 0a 20 20 20 20 20 20 20 20 | .((s.(!.get-setter.o)))......... |
| 8f4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | ..............................(i |
| 8f500 | 66 20 73 20 28 61 6c 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 73 29 20 27 28 29 29 29 29 29 0a | f.s.(all-definitions.s).'())))). |
| 8f520 | 20 20 20 20 28 3c 6a 61 76 61 2e 6c 61 6e 67 2e 43 6c 61 73 73 3e 20 28 6c 69 73 74 20 6f 29 29 | ....(<java.lang.Class>.(list.o)) |
| 8f540 | 0a 20 20 20 20 28 3c 67 6e 75 2e 6d 61 70 70 69 6e 67 2e 50 72 6f 63 65 64 75 72 65 3e 20 28 61 | .....(<gnu.mapping.Procedure>.(a |
| 8f560 | 6c 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 21 20 67 65 74 2d 63 6c 61 73 73 20 6f 29 29 29 | ll-definitions.(!.get-class.o))) |
| 8f580 | 0a 20 20 20 20 28 3c 6b 61 77 61 2e 6c 61 6e 67 2e 4d 61 63 72 6f 3e 20 28 6c 69 73 74 20 6f 29 | .....(<kawa.lang.Macro>.(list.o) |
| 8f5a0 | 29 0a 20 20 20 20 28 3c 67 6e 75 2e 62 79 74 65 63 6f 64 65 2e 4f 62 6a 65 63 74 54 79 70 65 3e | ).....(<gnu.bytecode.ObjectType> |
| 8f5c0 | 20 28 61 6c 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 21 20 67 65 74 52 65 66 6c 65 63 74 43 | .(all-definitions.(!.getReflectC |
| 8f5e0 | 6c 61 73 73 20 6f 29 29 29 0a 20 20 20 20 28 3c 6a 61 76 61 2e 6c 61 6e 67 2e 4f 62 6a 65 63 74 | lass.o))).....(<java.lang.Object |
| 8f600 | 3e 20 27 28 29 29 0a 20 20 20 20 29 29 0a 0a 28 64 66 20 67 66 2d 6d 65 74 68 6f 64 73 20 28 28 | >.'()).....))..(df.gf-methods.(( |
| 8f620 | 66 20 3c 67 6e 75 2e 65 78 70 72 2e 47 65 6e 65 72 69 63 50 72 6f 63 3e 29 29 0a 20 20 28 6c 65 | f.<gnu.expr.GenericProc>))...(le |
| 8f640 | 74 2a 20 28 28 6f 20 3a 3a 20 3c 6f 62 6a 2d 72 65 66 3e 20 28 76 6d 2d 6d 69 72 72 6f 72 20 2a | t*.((o.::.<obj-ref>.(vm-mirror.* |
| 8f660 | 74 68 65 2d 76 6d 2a 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 20 28 21 20 66 69 65 6c 64 | the-vm*.f))..........(f.(!.field |
| 8f680 | 2d 62 79 2d 6e 61 6d 65 20 28 21 20 72 65 66 65 72 65 6e 63 65 2d 74 79 70 65 20 6f 29 20 22 6d | -by-name.(!.reference-type.o)."m |
| 8f6a0 | 65 74 68 6f 64 73 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 73 20 28 76 6d 2d 64 65 6d 69 72 | ethods"))..........(ms.(vm-demir |
| 8f6c0 | 72 6f 72 20 2a 74 68 65 2d 76 6d 2a 20 28 21 20 67 65 74 2d 76 61 6c 75 65 20 6f 20 66 29 29 29 | ror.*the-vm*.(!.get-value.o.f))) |
| 8f6e0 | 29 0a 20 20 20 20 28 66 69 6c 74 65 72 20 28 61 72 72 61 79 2d 74 6f 2d 6c 69 73 74 20 6d 73 29 | ).....(filter.(array-to-list.ms) |
| 8f700 | 20 28 66 75 6e 20 28 78 29 20 28 6e 6f 74 20 28 6e 75 6c 3f 20 78 29 29 29 29 29 29 0a 0a 28 64 | .(fun.(x).(not.(nul?.x))))))..(d |
| 8f720 | 66 20 73 72 63 2d 6c 6f 63 20 28 6f 20 3d 3e 20 3c 6c 6f 63 61 74 69 6f 6e 3e 29 0a 20 20 28 74 | f.src-loc.(o.=>.<location>)...(t |
| 8f740 | 79 70 65 63 61 73 65 20 6f 0a 20 20 20 20 28 3c 67 6e 75 2e 65 78 70 72 2e 50 72 69 6d 50 72 6f | ypecase.o.....(<gnu.expr.PrimPro |
| 8f760 | 63 65 64 75 72 65 3e 20 28 73 72 63 2d 6c 6f 63 20 28 40 20 6d 65 74 68 6f 64 20 6f 29 29 29 0a | cedure>.(src-loc.(@.method.o))). |
| 8f780 | 20 20 20 20 28 3c 67 6e 75 2e 65 78 70 72 2e 4d 6f 64 75 6c 65 4d 65 74 68 6f 64 3e 20 28 6d 6f | ....(<gnu.expr.ModuleMethod>.(mo |
| 8f7a0 | 64 75 6c 65 2d 6d 65 74 68 6f 64 3e 73 72 63 2d 6c 6f 63 20 6f 29 29 0a 20 20 20 20 28 3c 67 6e | dule-method>src-loc.o)).....(<gn |
| 8f7c0 | 75 2e 65 78 70 72 2e 47 65 6e 65 72 69 63 50 72 6f 63 3e 20 28 3c 73 77 61 6e 6b 2d 6c 6f 63 61 | u.expr.GenericProc>.(<swank-loca |
| 8f7e0 | 74 69 6f 6e 3e 20 23 66 20 23 66 29 29 0a 20 20 20 20 28 3c 6a 61 76 61 2e 6c 61 6e 67 2e 43 6c | tion>.#f.#f)).....(<java.lang.Cl |
| 8f800 | 61 73 73 3e 20 28 63 6c 61 73 73 3e 73 72 63 2d 6c 6f 63 20 6f 29 29 0a 20 20 20 20 28 3c 6b 61 | ass>.(class>src-loc.o)).....(<ka |
| 8f820 | 77 61 2e 6c 61 6e 67 2e 4d 61 63 72 6f 3e 20 28 3c 73 77 61 6e 6b 2d 6c 6f 63 61 74 69 6f 6e 3e | wa.lang.Macro>.(<swank-location> |
| 8f840 | 20 23 66 20 23 66 29 29 0a 20 20 20 20 28 3c 67 6e 75 2e 62 79 74 65 63 6f 64 65 2e 4d 65 74 68 | .#f.#f)).....(<gnu.bytecode.Meth |
| 8f860 | 6f 64 3e 20 28 62 79 74 65 6d 65 74 68 6f 64 3e 73 72 63 2d 6c 6f 63 20 6f 29 29 29 29 0a 0a 28 | od>.(bytemethod>src-loc.o))))..( |
| 8f880 | 64 66 20 6d 6f 64 75 6c 65 2d 6d 65 74 68 6f 64 3e 73 72 63 2d 6c 6f 63 20 28 28 66 20 3c 67 6e | df.module-method>src-loc.((f.<gn |
| 8f8a0 | 75 2e 65 78 70 72 2e 4d 6f 64 75 6c 65 4d 65 74 68 6f 64 3e 29 29 0a 20 20 28 21 20 6c 6f 63 61 | u.expr.ModuleMethod>))...(!.loca |
| 8f8c0 | 74 69 6f 6e 20 28 6d 6f 64 75 6c 65 2d 6d 65 74 68 6f 64 3e 6d 65 74 68 2d 72 65 66 20 66 29 29 | tion.(module-method>meth-ref.f)) |
| 8f8e0 | 29 0a 0a 28 64 66 20 6d 6f 64 75 6c 65 2d 6d 65 74 68 6f 64 3e 6d 65 74 68 2d 72 65 66 20 28 28 | )..(df.module-method>meth-ref.(( |
| 8f900 | 66 20 3c 67 6e 75 2e 65 78 70 72 2e 4d 6f 64 75 6c 65 4d 65 74 68 6f 64 3e 29 20 3d 3e 20 3c 6d | f.<gnu.expr.ModuleMethod>).=>.<m |
| 8f920 | 65 74 68 2d 72 65 66 3e 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 6f 64 75 6c 65 20 28 21 20 72 65 | eth-ref>)...(let*.((module.(!.re |
| 8f940 | 66 65 72 65 6e 63 65 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ference-type.................... |
| 8f960 | 20 28 61 73 20 3c 6f 62 6a 2d 72 65 66 3e 20 28 76 6d 2d 6d 69 72 72 6f 72 20 2a 74 68 65 2d 76 | .(as.<obj-ref>.(vm-mirror.*the-v |
| 8f980 | 6d 2a 20 28 40 20 6d 6f 64 75 6c 65 20 66 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 31 73 | m*.(@.module.f)))))..........(1s |
| 8f9a0 | 74 2d 6d 65 74 68 6f 64 2d 62 79 2d 6e 61 6d 65 20 28 66 75 6e 20 28 6e 61 6d 65 29 0a 20 20 20 | t-method-by-name.(fun.(name).... |
| 8f9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | ............................(let |
| 8f9e0 | 20 28 28 69 20 28 21 20 6d 65 74 68 6f 64 73 2d 62 79 2d 6e 61 6d 65 20 6d 6f 64 75 6c 65 20 6e | .((i.(!.methods-by-name.module.n |
| 8fa00 | 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame))).......................... |
| 8fa20 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 21 20 69 73 2d 65 6d 70 74 79 20 69 29 20 23 66 | ........(cond.((!.is-empty.i).#f |
| 8fa40 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 8fa60 | 20 20 20 20 20 20 20 20 20 28 23 74 20 28 31 73 74 20 69 29 29 29 29 29 29 29 0a 20 20 20 20 28 | .........(#t.(1st.i))))))).....( |
| 8fa80 | 61 73 20 3c 6d 65 74 68 2d 72 65 66 3e 20 28 6f 72 20 28 31 73 74 2d 6d 65 74 68 6f 64 2d 62 79 | as.<meth-ref>.(or.(1st-method-by |
| 8faa0 | 2d 6e 61 6d 65 20 28 21 20 67 65 74 2d 6e 61 6d 65 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -name.(!.get-name.f))........... |
| 8fac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 6e 67 6c 65 64 20 28 6d 61 6e | .............(let.((mangled.(man |
| 8fae0 | 67 6c 65 64 2d 6e 61 6d 65 20 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gled-name.f))).................. |
| 8fb00 | 20 20 20 20 20 20 20 20 28 6f 72 20 28 31 73 74 2d 6d 65 74 68 6f 64 2d 62 79 2d 6e 61 6d 65 20 | ........(or.(1st-method-by-name. |
| 8fb20 | 6d 61 6e 67 6c 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mangled)........................ |
| 8fb40 | 20 20 20 20 20 20 28 31 73 74 2d 6d 65 74 68 6f 64 2d 62 79 2d 6e 61 6d 65 20 28 63 61 74 20 6d | ......(1st-method-by-name.(cat.m |
| 8fb60 | 61 6e 67 6c 65 64 20 22 24 56 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | angled."$V"))................... |
| 8fb80 | 20 20 20 20 20 20 20 20 20 20 20 28 31 73 74 2d 6d 65 74 68 6f 64 2d 62 79 2d 6e 61 6d 65 20 28 | ...........(1st-method-by-name.( |
| 8fba0 | 63 61 74 20 6d 61 6e 67 6c 65 64 20 22 24 58 22 29 29 29 29 29 29 29 29 0a 0a 28 64 66 20 6d 61 | cat.mangled."$X"))))))))..(df.ma |
| 8fbc0 | 6e 67 6c 65 64 2d 6e 61 6d 65 20 28 28 66 20 3c 67 6e 75 2e 65 78 70 72 2e 4d 6f 64 75 6c 65 4d | ngled-name.((f.<gnu.expr.ModuleM |
| 8fbe0 | 65 74 68 6f 64 3e 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 6e 61 6d 65 30 20 28 21 20 67 65 74 2d | ethod>))...(let*.((name0.(!.get- |
| 8fc00 | 6e 61 6d 65 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 63 6f 6e 64 20 28 28 | name.f))..........(name.(cond.(( |
| 8fc20 | 6e 75 6c 3f 20 6e 61 6d 65 30 29 20 28 66 6f 72 6d 61 74 20 22 6c 61 6d 62 64 61 7e 64 22 20 28 | nul?.name0).(format."lambda~d".( |
| 8fc40 | 40 20 73 65 6c 65 63 74 6f 72 20 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | @.selector.f)))................. |
| 8fc60 | 20 20 20 20 20 28 23 74 20 28 21 73 20 67 6e 75 2e 65 78 70 72 2e 43 6f 6d 70 69 6c 61 74 69 6f | .....(#t.(!s.gnu.expr.Compilatio |
| 8fc80 | 6e 20 6d 61 6e 67 6c 65 4e 61 6d 65 20 6e 61 6d 65 30 29 29 29 29 29 0a 20 20 20 20 6e 61 6d 65 | n.mangleName.name0))))).....name |
| 8fca0 | 29 29 0a 0a 28 64 66 20 63 6c 61 73 73 3e 73 72 63 2d 6c 6f 63 20 28 28 63 20 3c 6a 61 76 61 2e | ))..(df.class>src-loc.((c.<java. |
| 8fcc0 | 6c 61 6e 67 2e 43 6c 61 73 73 3e 29 20 3d 3e 20 3c 6c 6f 63 61 74 69 6f 6e 3e 29 0a 20 20 28 6c | lang.Class>).=>.<location>)...(l |
| 8fce0 | 65 74 2a 20 28 28 74 79 70 65 20 28 63 6c 61 73 73 3e 72 65 66 2d 74 79 70 65 20 63 29 29 0a 20 | et*.((type.(class>ref-type.c)).. |
| 8fd00 | 20 20 20 20 20 20 20 20 28 6c 6f 63 73 20 28 21 20 61 6c 6c 2d 6c 69 6e 65 2d 6c 6f 63 61 74 69 | ........(locs.(!.all-line-locati |
| 8fd20 | 6f 6e 73 20 74 79 70 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 28 21 20 69 | ons.type))).....(cond.((not.(!.i |
| 8fd40 | 73 45 6d 70 74 79 20 6c 6f 63 73 29 29 20 28 31 73 74 20 6c 6f 63 73 29 29 0a 20 20 20 20 20 20 | sEmpty.locs)).(1st.locs))....... |
| 8fd60 | 20 20 20 20 28 23 74 20 28 3c 73 77 61 6e 6b 2d 6c 6f 63 61 74 69 6f 6e 3e 20 28 31 73 74 20 28 | ....(#t.(<swank-location>.(1st.( |
| 8fd80 | 21 20 73 6f 75 72 63 65 2d 70 61 74 68 73 20 74 79 70 65 20 22 4a 61 76 61 22 29 29 0a 20 20 20 | !.source-paths.type."Java")).... |
| 8fda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 66 29 | .............................#f) |
| 8fdc0 | 29 29 29 29 0a 0a 28 64 66 20 63 6c 61 73 73 3e 72 65 66 2d 74 79 70 65 20 28 28 63 6c 61 73 73 | ))))..(df.class>ref-type.((class |
| 8fde0 | 20 3c 6a 61 76 61 2e 6c 61 6e 67 2e 43 6c 61 73 73 3e 29 20 3d 3e 20 3c 72 65 66 2d 74 79 70 65 | .<java.lang.Class>).=>.<ref-type |
| 8fe00 | 3e 29 0a 20 20 28 21 20 72 65 66 6c 65 63 74 65 64 54 79 70 65 20 28 61 73 20 3c 63 6f 6d 2e 73 | >)...(!.reflectedType.(as.<com.s |
| 8fe20 | 75 6e 2e 6a 64 69 2e 43 6c 61 73 73 4f 62 6a 65 63 74 52 65 66 65 72 65 6e 63 65 3e 0a 20 20 20 | un.jdi.ClassObjectReference>.... |
| 8fe40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 6d 2d 6d 69 72 72 6f 72 20 2a | ....................(vm-mirror.* |
| 8fe60 | 74 68 65 2d 76 6d 2a 20 63 6c 61 73 73 29 29 29 29 0a 0a 28 64 66 20 63 6c 61 73 73 3e 63 6c 61 | the-vm*.class))))..(df.class>cla |
| 8fe80 | 73 73 2d 74 79 70 65 20 28 28 63 6c 61 73 73 20 3c 6a 61 76 61 2e 6c 61 6e 67 2e 43 6c 61 73 73 | ss-type.((class.<java.lang.Class |
| 8fea0 | 3e 29 20 3d 3e 20 3c 63 6c 61 73 73 2d 74 79 70 65 3e 29 0a 20 20 28 61 73 20 3c 63 6c 61 73 73 | >).=>.<class-type>)...(as.<class |
| 8fec0 | 2d 74 79 70 65 3e 20 28 63 6c 61 73 73 3e 72 65 66 2d 74 79 70 65 20 63 6c 61 73 73 29 29 29 0a | -type>.(class>ref-type.class))). |
| 8fee0 | 0a 28 64 66 20 62 79 74 65 6d 65 74 68 6f 64 3e 73 72 63 2d 6c 6f 63 20 28 28 6d 20 3c 67 6e 75 | .(df.bytemethod>src-loc.((m.<gnu |
| 8ff00 | 2e 62 79 74 65 63 6f 64 65 2e 4d 65 74 68 6f 64 3e 29 20 3d 3e 20 3c 6c 6f 63 61 74 69 6f 6e 3e | .bytecode.Method>).=>.<location> |
| 8ff20 | 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6c 73 20 28 63 6c 61 73 73 3e 63 6c 61 73 73 2d 74 79 70 | )...(let*.((cls.(class>class-typ |
| 8ff40 | 65 20 28 21 20 67 65 74 2d 72 65 66 6c 65 63 74 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 | e.(!.get-reflect-class.......... |
| 8ff60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 67 65 74 | ..........................(!.get |
| 8ff80 | 2d 64 65 63 6c 61 72 69 6e 67 2d 63 6c 61 73 73 20 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | -declaring-class.m)))).......... |
| 8ffa0 | 28 6e 61 6d 65 20 28 21 20 67 65 74 2d 6e 61 6d 65 20 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 | (name.(!.get-name.m))..........( |
| 8ffc0 | 73 69 67 20 28 21 20 67 65 74 2d 73 69 67 6e 61 74 75 72 65 20 6d 29 29 0a 20 20 20 20 20 20 20 | sig.(!.get-signature.m))........ |
| 8ffe0 | 20 20 28 6d 65 74 68 20 28 21 20 63 6f 6e 63 72 65 74 65 2d 6d 65 74 68 6f 64 2d 62 79 2d 6e 61 | ..(meth.(!.concrete-method-by-na |
| 90000 | 6d 65 20 63 6c 73 20 6e 61 6d 65 20 73 69 67 29 29 29 0a 20 20 20 20 28 21 20 6c 6f 63 61 74 69 | me.cls.name.sig))).....(!.locati |
| 90020 | 6f 6e 20 6d 65 74 68 29 29 29 0a 0a 28 64 66 20 73 72 63 2d 6c 6f 63 3e 65 6c 69 73 70 20 28 28 | on.meth)))..(df.src-loc>elisp.(( |
| 90040 | 6c 20 3c 6c 6f 63 61 74 69 6f 6e 3e 29 29 0a 20 20 28 64 66 20 73 72 63 2d 6c 6f 63 3e 6c 69 73 | l.<location>))...(df.src-loc>lis |
| 90060 | 74 20 28 28 6c 20 3c 6c 6f 63 61 74 69 6f 6e 3e 29 29 0a 20 20 20 20 28 6c 69 73 74 20 28 69 67 | t.((l.<location>)).....(list.(ig |
| 90080 | 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 21 20 73 6f 75 72 63 65 2d 6e 61 6d 65 20 6c 20 22 4a 61 | nore-errors.(!.source-name.l."Ja |
| 900a0 | 76 61 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 | va"))...........(ignore-errors.( |
| 900c0 | 21 20 73 6f 75 72 63 65 2d 70 61 74 68 20 6c 20 22 4a 61 76 61 22 29 29 0a 20 20 20 20 20 20 20 | !.source-path.l."Java"))........ |
| 900e0 | 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 21 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 | ...(ignore-errors.(!.line-number |
| 90100 | 20 6c 20 22 4a 61 76 61 22 29 29 29 29 0a 20 20 28 6d 63 61 73 65 20 28 73 72 63 2d 6c 6f 63 3e | .l."Java"))))...(mcase.(src-loc> |
| 90120 | 6c 69 73 74 20 6c 29 0a 20 20 20 20 28 28 6e 61 6d 65 20 70 61 74 68 20 6c 69 6e 65 29 0a 20 20 | list.l).....((name.path.line)... |
| 90140 | 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ...(cond.((not.path)............ |
| 90160 | 20 60 28 3a 65 72 72 6f 72 20 2c 28 63 61 6c 6c 2d 77 69 74 68 2d 61 62 6f 72 74 20 28 66 75 6e | .`(:error.,(call-with-abort.(fun |
| 90180 | 20 28 29 20 28 21 20 73 6f 75 72 63 65 2d 70 61 74 68 20 6c 29 29 29 29 29 0a 20 20 20 20 20 20 | .().(!.source-path.l)))))....... |
| 901a0 | 20 20 20 20 20 28 28 21 20 73 74 61 72 74 73 2d 77 69 74 68 20 28 61 73 20 3c 73 74 72 3e 20 70 | .....((!.starts-with.(as.<str>.p |
| 901c0 | 61 74 68 29 20 22 28 62 75 66 66 65 72 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6c | ath)."(buffer.").............(ml |
| 901e0 | 65 74 20 28 28 27 62 75 66 66 65 72 20 62 20 27 6f 66 66 73 65 74 20 6f 20 27 73 74 72 20 73 29 | et.(('buffer.b.'offset.o.'str.s) |
| 90200 | 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 70 61 74 68 29 29 0a 20 20 20 20 20 20 | .(read-from-string.path))....... |
| 90220 | 20 20 20 20 20 20 20 20 60 28 3a 6c 6f 63 61 74 69 6f 6e 20 28 3a 62 75 66 66 65 72 20 2c 62 29 | ........`(:location.(:buffer.,b) |
| 90240 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 70 6f 73 | ...........................(:pos |
| 90260 | 69 74 69 6f 6e 20 2c 28 2b 20 6f 20 28 6c 69 6e 65 3e 6f 66 66 73 65 74 20 6c 69 6e 65 20 73 29 | ition.,(+.o.(line>offset.line.s) |
| 90280 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c | ))...........................nil |
| 902a0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 23 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 | )))............(#t.............` |
| 902c0 | 28 3a 6c 6f 63 61 74 69 6f 6e 20 2c 28 6f 72 20 28 66 69 6e 64 2d 66 69 6c 65 2d 69 6e 2d 70 61 | (:location.,(or.(find-file-in-pa |
| 902e0 | 74 68 20 6e 61 6d 65 20 28 73 6f 75 72 63 65 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 | th.name.(source-path)).......... |
| 90300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 2d 69 | ....................(find-file-i |
| 90320 | 6e 2d 70 61 74 68 20 70 61 74 68 20 28 73 6f 75 72 63 65 2d 70 61 74 68 29 29 0a 20 20 20 20 20 | n-path.path.(source-path))...... |
| 90340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 65 72 72 6f 72 20 | ........................(ferror. |
| 90360 | 22 43 61 6e 27 74 20 66 69 6e 64 20 73 6f 75 72 63 65 2d 70 61 74 68 3a 20 7e 73 20 7e 73 20 7e | "Can't.find.source-path:.~s.~s.~ |
| 90380 | 61 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | a".............................. |
| 903a0 | 20 20 20 20 20 20 20 20 70 61 74 68 20 6e 61 6d 65 20 28 73 6f 75 72 63 65 2d 70 61 74 68 29 29 | ........path.name.(source-path)) |
| 903c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 69 6e 65 | ).........................(:line |
| 903e0 | 20 2c 28 6f 72 20 6c 69 6e 65 20 2d 31 29 29 20 28 29 29 29 29 29 29 29 0a 0a 28 64 66 20 73 72 | .,(or.line.-1)).()))))))..(df.sr |
| 90400 | 63 2d 6c 6f 63 3e 73 74 72 20 28 28 6c 20 3c 6c 6f 63 61 74 69 6f 6e 3e 29 29 0a 20 20 28 63 6f | c-loc>str.((l.<location>))...(co |
| 90420 | 6e 64 20 28 28 6e 75 6c 3f 20 6c 29 20 22 3c 6e 75 6c 6c 2d 6c 6f 63 61 74 69 6f 6e 3e 22 29 0a | nd.((nul?.l)."<null-location>"). |
| 90440 | 20 20 20 20 20 20 20 20 28 23 74 20 28 66 6f 72 6d 61 74 20 22 7e 61 20 7e 61 20 7e 61 22 0a 20 | ........(#t.(format."~a.~a.~a".. |
| 90460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 69 67 6e 6f 72 65 2d 65 | ...................(or.(ignore-e |
| 90480 | 72 72 6f 72 73 20 28 21 20 73 6f 75 72 63 65 2d 70 61 74 68 20 6c 29 29 0a 20 20 20 20 20 20 20 | rrors.(!.source-path.l))........ |
| 904a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 | .................(ignore-errors. |
| 904c0 | 28 21 20 73 6f 75 72 63 65 2d 6e 61 6d 65 20 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (!.source-name.l)).............. |
| 904e0 | 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 21 21 20 6e 61 | ...........(ignore-errors.(!!.na |
| 90500 | 6d 65 20 64 65 63 6c 61 72 69 6e 67 2d 74 79 70 65 20 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 | me.declaring-type.l))).......... |
| 90520 | 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 21 21 20 6e 61 | ...........(ignore-errors.(!!.na |
| 90540 | 6d 65 20 6d 65 74 68 6f 64 20 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me.method.l))................... |
| 90560 | 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 21 20 6c 69 6e 65 4e 75 6d 62 65 72 20 6c | ..(ignore-errors.(!.lineNumber.l |
| 90580 | 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 3b 20 63 6c 61 73 73 2d 70 61 74 68 20 68 61 63 6b 69 6e | ))))))..;;;;;;.class-path.hackin |
| 905a0 | 67 0a 0a 3b 3b 20 28 66 69 6e 64 2d 66 69 6c 65 2d 69 6e 2d 70 61 74 68 20 22 6b 61 77 61 2f 6c | g..;;.(find-file-in-path."kawa/l |
| 905c0 | 69 62 2f 6b 61 77 61 2f 68 61 73 68 74 61 62 6c 65 2e 73 63 6d 22 20 28 73 6f 75 72 63 65 2d 70 | ib/kawa/hashtable.scm".(source-p |
| 905e0 | 61 74 68 29 29 0a 0a 28 64 66 20 66 69 6e 64 2d 66 69 6c 65 2d 69 6e 2d 70 61 74 68 20 28 28 66 | ath))..(df.find-file-in-path.((f |
| 90600 | 69 6c 65 6e 61 6d 65 20 3c 73 74 72 3e 29 20 28 70 61 74 68 20 3c 6c 69 73 74 3e 29 29 0a 20 20 | ilename.<str>).(path.<list>))... |
| 90620 | 28 6c 65 74 20 28 28 66 20 28 3c 66 69 6c 65 3e 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 | (let.((f.(<file>.filename))).... |
| 90640 | 20 28 63 6f 6e 64 20 28 28 21 20 69 73 41 62 73 6f 6c 75 74 65 20 66 29 20 60 28 3a 66 69 6c 65 | .(cond.((!.isAbsolute.f).`(:file |
| 90660 | 20 2c 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 6c 65 74 20 | .,filename))...........(#t.(let. |
| 90680 | 28 28 72 65 73 75 6c 74 20 23 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | ((result.#f)).................(f |
| 906a0 | 69 6e 64 2d 69 66 20 70 61 74 68 20 28 66 75 6e 20 28 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 | ind-if.path.(fun.(dir).......... |
| 906c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 78 20 | .......................(let.((x. |
| 906e0 | 28 66 69 6e 64 2d 66 69 6c 65 2d 69 6e 2d 64 69 72 20 66 20 64 69 72 29 29 29 0a 20 20 20 20 20 | (find-file-in-dir.f.dir)))...... |
| 90700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | .............................(se |
| 90720 | 74 20 72 65 73 75 6c 74 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.result.x)))................... |
| 90740 | 20 20 20 20 20 20 20 23 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c | .......#f).................resul |
| 90760 | 74 29 29 29 29 29 0a 0a 28 64 66 20 66 69 6e 64 2d 66 69 6c 65 2d 69 6e 2d 64 69 72 20 28 28 66 | t)))))..(df.find-file-in-dir.((f |
| 90780 | 69 6c 65 20 3c 66 69 6c 65 3e 29 20 28 64 69 72 20 3c 73 74 72 3e 29 29 0a 20 20 28 6c 65 74 20 | ile.<file>).(dir.<str>))...(let. |
| 907a0 | 28 28 66 69 6c 65 6e 61 6d 65 20 3a 3a 20 3c 73 74 72 3e 20 28 21 20 67 65 74 50 61 74 68 20 66 | ((filename.::.<str>.(!.getPath.f |
| 907c0 | 69 6c 65 29 29 29 0a 20 20 20 20 28 6f 72 20 28 6c 65 74 20 28 28 63 68 69 6c 64 20 28 3c 66 69 | ile))).....(or.(let.((child.(<fi |
| 907e0 | 6c 65 3e 20 28 3c 66 69 6c 65 3e 20 64 69 72 29 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 | le>.(<file>.dir).filename))).... |
| 90800 | 20 20 20 20 20 20 20 28 61 6e 64 20 28 21 20 65 78 69 73 74 73 20 63 68 69 6c 64 29 0a 20 20 20 | .......(and.(!.exists.child).... |
| 90820 | 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 66 69 6c 65 20 2c 28 21 20 67 65 74 50 61 74 68 20 | ............`(:file.,(!.getPath. |
| 90840 | 63 68 69 6c 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 72 79 2d 63 61 74 63 68 0a 20 20 20 | child)))).........(try-catch.... |
| 90860 | 20 20 20 20 20 20 28 61 6e 64 20 28 6e 6f 74 20 28 6e 75 6c 3f 20 28 21 20 67 65 74 45 6e 74 72 | ......(and.(not.(nul?.(!.getEntr |
| 90880 | 79 20 28 3c 6a 61 76 61 2e 75 74 69 6c 2e 7a 69 70 2e 5a 69 70 46 69 6c 65 3e 20 64 69 72 29 20 | y.(<java.util.zip.ZipFile>.dir). |
| 908a0 | 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 7a 69 70 | filename)))...............`(:zip |
| 908c0 | 20 2c 64 69 72 20 2c 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 78 20 3c | .,dir.,filename))..........(ex.< |
| 908e0 | 74 68 72 6f 77 61 62 6c 65 3e 20 23 66 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 73 77 61 6e | throwable>.#f)))))..(define.swan |
| 90900 | 6b 2d 6a 61 76 61 2d 73 6f 75 72 63 65 2d 70 61 74 68 0a 20 20 28 6c 65 74 2a 20 28 28 6a 72 65 | k-java-source-path...(let*.((jre |
| 90920 | 2d 68 6f 6d 65 20 3a 3a 20 3c 73 74 72 3e 20 28 21 73 20 3c 6a 61 76 61 2e 6c 61 6e 67 2e 53 79 | -home.::.<str>.(!s.<java.lang.Sy |
| 90940 | 73 74 65 6d 3e 20 67 65 74 50 72 6f 70 65 72 74 79 20 22 6a 61 76 61 2e 68 6f 6d 65 22 29 29 0a | stem>.getProperty."java.home")). |
| 90960 | 20 20 20 20 20 20 20 20 20 28 70 61 72 65 6e 74 20 3a 3a 20 3c 73 74 72 3e 20 28 21 20 67 65 74 | .........(parent.::.<str>.(!.get |
| 90980 | 2d 70 61 72 65 6e 74 20 28 3c 66 69 6c 65 3e 20 6a 72 65 2d 68 6f 6d 65 29 29 29 29 0a 20 20 20 | -parent.(<file>.jre-home)))).... |
| 909a0 | 20 28 6c 69 73 74 20 28 21 20 67 65 74 2d 70 61 74 68 20 28 3c 66 69 6c 65 3e 20 70 61 72 65 6e | .(list.(!.get-path.(<file>.paren |
| 909c0 | 74 20 22 73 72 63 2e 7a 69 70 22 29 29 29 29 29 0a 0a 28 64 66 20 73 6f 75 72 63 65 2d 70 61 74 | t."src.zip")))))..(df.source-pat |
| 909e0 | 68 20 28 29 0a 20 20 28 6d 6c 65 74 20 28 28 62 61 73 65 29 20 28 73 65 61 72 63 68 2d 70 61 74 | h.()...(mlet.((base).(search-pat |
| 90a00 | 68 2d 70 72 6f 70 20 22 75 73 65 72 2e 64 69 72 22 29 29 0a 20 20 20 20 28 61 70 70 65 6e 64 0a | h-prop."user.dir")).....(append. |
| 90a20 | 20 20 20 20 20 28 6c 69 73 74 20 62 61 73 65 29 0a 20 20 20 20 20 28 6d 61 70 20 28 66 75 6e 20 | .....(list.base)......(map.(fun. |
| 90a40 | 28 28 73 20 3c 73 74 72 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 | ((s.<str>)).............(let.((f |
| 90a60 | 20 28 3c 66 69 6c 65 3e 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .(<file>.s))...................( |
| 90a80 | 62 61 73 65 20 3a 3a 20 3c 73 74 72 3e 20 28 61 73 20 3c 73 74 72 3e 20 62 61 73 65 29 29 29 0a | base.::.<str>.(as.<str>.base))). |
| 90aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 21 20 69 73 41 62 73 6f 6c | ...............(cond.((!.isAbsol |
| 90ac0 | 75 74 65 20 66 29 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ute.f).s)......................( |
| 90ae0 | 23 74 20 28 21 20 67 65 74 50 61 74 68 20 28 3c 66 69 6c 65 3e 20 62 61 73 65 20 73 29 29 29 29 | #t.(!.getPath.(<file>.base.s)))) |
| 90b00 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 61 73 73 2d 70 61 74 68 29 29 0a 20 20 20 20 20 | ))...........(class-path))...... |
| 90b20 | 73 77 61 6e 6b 2d 6a 61 76 61 2d 73 6f 75 72 63 65 2d 70 61 74 68 29 29 29 0a 0a 28 64 66 20 63 | swank-java-source-path)))..(df.c |
| 90b40 | 6c 61 73 73 2d 70 61 74 68 20 28 29 0a 20 20 28 61 70 70 65 6e 64 20 28 73 65 61 72 63 68 2d 70 | lass-path.()...(append.(search-p |
| 90b60 | 61 74 68 2d 70 72 6f 70 20 22 6a 61 76 61 2e 63 6c 61 73 73 2e 70 61 74 68 22 29 0a 20 20 20 20 | ath-prop."java.class.path")..... |
| 90b80 | 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 70 61 74 68 2d 70 72 6f 70 20 22 73 75 6e 2e 62 6f 6f | ......(search-path-prop."sun.boo |
| 90ba0 | 74 2e 63 6c 61 73 73 2e 70 61 74 68 22 29 29 29 0a 0a 28 64 66 20 73 65 61 72 63 68 2d 70 61 74 | t.class.path")))..(df.search-pat |
| 90bc0 | 68 2d 70 72 6f 70 20 28 28 6e 61 6d 65 20 3c 73 74 72 3e 29 29 0a 20 20 28 61 72 72 61 79 2d 74 | h-prop.((name.<str>))...(array-t |
| 90be0 | 6f 2d 6c 69 73 74 20 28 21 20 73 70 6c 69 74 20 28 21 73 20 6a 61 76 61 2e 6c 61 6e 67 2e 53 79 | o-list.(!.split.(!s.java.lang.Sy |
| 90c00 | 73 74 65 6d 20 67 65 74 50 72 6f 70 65 72 74 79 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 | stem.getProperty.name).......... |
| 90c20 | 20 20 20 20 20 20 20 20 20 20 20 28 40 73 20 3c 66 69 6c 65 3e 20 70 61 74 68 53 65 70 61 72 61 | ...........(@s.<file>.pathSepara |
| 90c40 | 74 6f 72 29 29 29 29 0a 0a 3b 3b 3b 3b 20 44 69 73 61 73 73 65 6d 62 6c 65 0a 0a 28 64 65 66 73 | tor))))..;;;;.Disassemble..(defs |
| 90c60 | 6c 69 6d 65 66 75 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 6f 72 6d 20 28 65 6e 76 20 66 6f | limefun.disassemble-form.(env.fo |
| 90c80 | 72 6d 29 0a 20 20 28 6d 63 61 73 65 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 66 | rm)...(mcase.(read-from-string.f |
| 90ca0 | 6f 72 6d 29 0a 20 20 20 20 28 28 27 71 75 6f 74 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 28 6c 65 | orm).....(('quote.name)......(le |
| 90cc0 | 74 20 28 28 66 20 28 65 76 61 6c 20 6e 61 6d 65 20 65 6e 76 29 29 29 0a 20 20 20 20 20 20 20 28 | t.((f.(eval.name.env)))........( |
| 90ce0 | 74 79 70 65 63 61 73 65 20 66 0a 20 20 20 20 20 20 20 20 20 28 3c 67 6e 75 2e 65 78 70 72 2e 4d | typecase.f..........(<gnu.expr.M |
| 90d00 | 6f 64 75 6c 65 4d 65 74 68 6f 64 3e 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d | oduleMethod>...........(disassem |
| 90d20 | 62 6c 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6d 6f 64 75 6c 65 2d 6d 65 74 68 6f 64 3e 6d 65 74 | ble-to-string.(module-method>met |
| 90d40 | 68 2d 72 65 66 20 66 29 29 29 29 29 29 29 29 0a 0a 28 64 66 20 64 69 73 61 73 73 65 6d 62 6c 65 | h-ref.f))))))))..(df.disassemble |
| 90d60 | 2d 74 6f 2d 73 74 72 69 6e 67 20 28 28 6d 72 20 3c 6d 65 74 68 2d 72 65 66 3e 29 20 3d 3e 20 3c | -to-string.((mr.<meth-ref>).=>.< |
| 90d80 | 73 74 72 3e 29 0a 20 20 28 77 69 74 68 2d 73 69 6e 6b 20 23 66 20 28 66 75 6e 20 28 6f 75 74 29 | str>)...(with-sink.#f.(fun.(out) |
| 90da0 | 20 28 64 69 73 61 73 73 65 6d 62 6c 65 2d 6d 65 74 68 2d 72 65 66 20 6d 72 20 6f 75 74 29 29 29 | .(disassemble-meth-ref.mr.out))) |
| 90dc0 | 29 0a 0a 28 64 66 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 6d 65 74 68 2d 72 65 66 20 28 28 6d 72 | )..(df.disassemble-meth-ref.((mr |
| 90de0 | 20 3c 6d 65 74 68 2d 72 65 66 3e 29 20 28 6f 75 74 20 3c 6a 61 76 61 2e 69 6f 2e 50 72 69 6e 74 | .<meth-ref>).(out.<java.io.Print |
| 90e00 | 57 72 69 74 65 72 3e 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 20 28 21 20 64 65 63 6c 61 72 69 | Writer>))...(let*.((t.(!.declari |
| 90e20 | 6e 67 2d 74 79 70 65 20 6d 72 29 29 29 0a 20 20 20 20 28 64 69 73 61 73 2d 68 65 61 64 65 72 20 | ng-type.mr))).....(disas-header. |
| 90e40 | 6d 72 20 6f 75 74 29 0a 20 20 20 20 28 64 69 73 61 73 2d 63 6f 64 65 20 28 21 20 63 6f 6e 73 74 | mr.out).....(disas-code.(!.const |
| 90e60 | 61 6e 74 2d 70 6f 6f 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 63 | ant-pool.t).................(!.c |
| 90e80 | 6f 6e 73 74 61 6e 74 2d 70 6f 6f 6c 2d 63 6f 75 6e 74 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 | onstant-pool-count.t)........... |
| 90ea0 | 20 20 20 20 20 20 28 21 20 62 79 74 65 63 6f 64 65 73 20 6d 72 29 0a 20 20 20 20 20 20 20 20 20 | ......(!.bytecodes.mr).......... |
| 90ec0 | 20 20 20 20 20 20 20 6f 75 74 29 29 29 0a 0a 28 64 66 20 64 69 73 61 73 2d 68 65 61 64 65 72 20 | .......out)))..(df.disas-header. |
| 90ee0 | 28 28 6d 72 20 3c 6d 65 74 68 2d 72 65 66 3e 29 20 28 6f 75 74 20 3c 6a 61 76 61 2e 69 6f 2e 50 | ((mr.<meth-ref>).(out.<java.io.P |
| 90f00 | 72 69 6e 74 57 72 69 74 65 72 3e 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 2b 2b 20 28 66 75 6e 20 | rintWriter>))...(let*.((++.(fun. |
| 90f20 | 28 28 73 74 72 20 3c 73 74 72 3e 29 29 20 28 21 20 77 72 69 74 65 20 6f 75 74 20 73 74 72 29 29 | ((str.<str>)).(!.write.out.str)) |
| 90f40 | 29 0a 20 20 20 20 20 20 20 20 20 28 3f 20 28 66 75 6e 20 28 66 6c 61 67 20 73 74 72 29 20 28 69 | )..........(?.(fun.(flag.str).(i |
| 90f60 | 66 20 66 6c 61 67 20 28 2b 2b 20 73 74 72 29 29 29 29 29 0a 20 20 20 20 28 3f 20 28 21 20 69 73 | f.flag.(++.str))))).....(?.(!.is |
| 90f80 | 2d 73 74 61 74 69 63 20 6d 72 29 20 22 73 74 61 74 69 63 20 22 29 0a 20 20 20 20 28 3f 20 28 21 | -static.mr)."static.").....(?.(! |
| 90fa0 | 20 69 73 2d 66 69 6e 61 6c 20 6d 72 29 20 22 66 69 6e 61 6c 20 22 29 0a 20 20 20 20 28 3f 20 28 | .is-final.mr)."final.").....(?.( |
| 90fc0 | 21 20 69 73 2d 70 72 69 76 61 74 65 20 6d 72 29 20 22 70 72 69 76 61 74 65 20 22 29 0a 20 20 20 | !.is-private.mr)."private.").... |
| 90fe0 | 20 28 3f 20 28 21 20 69 73 2d 70 72 6f 74 65 63 74 65 64 20 6d 72 29 20 22 70 72 6f 74 65 63 74 | .(?.(!.is-protected.mr)."protect |
| 91000 | 65 64 20 22 29 0a 20 20 20 20 28 3f 20 28 21 20 69 73 2d 70 75 62 6c 69 63 20 6d 72 29 20 22 70 | ed.").....(?.(!.is-public.mr)."p |
| 91020 | 75 62 6c 69 63 20 22 29 0a 20 20 20 20 28 2b 2b 20 28 21 20 6e 61 6d 65 20 6d 72 29 29 20 28 2b | ublic.").....(++.(!.name.mr)).(+ |
| 91040 | 2b 20 28 21 20 73 69 67 6e 61 74 75 72 65 20 6d 72 29 29 20 28 2b 2b 20 22 5c 6e 22 29 29 29 0a | +.(!.signature.mr)).(++."\n"))). |
| 91060 | 0a 28 64 66 20 64 69 73 61 73 2d 63 6f 64 65 20 28 28 63 70 6f 6f 6c 20 3c 62 79 74 65 5b 5d 3e | .(df.disas-code.((cpool.<byte[]> |
| 91080 | 29 20 28 63 70 6f 6f 6c 63 6f 75 6e 74 20 3c 69 6e 74 3e 29 20 28 62 79 74 65 63 6f 64 65 20 3c | ).(cpoolcount.<int>).(bytecode.< |
| 910a0 | 62 79 74 65 5b 5d 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 75 74 20 3c 6a | byte[]>).................(out.<j |
| 910c0 | 61 76 61 2e 69 6f 2e 50 72 69 6e 74 57 72 69 74 65 72 3e 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 | ava.io.PrintWriter>))...(let*.(( |
| 910e0 | 63 74 20 28 3c 67 6e 75 2e 62 79 74 65 63 6f 64 65 2e 43 6c 61 73 73 54 79 70 65 3e 20 22 66 6f | ct.(<gnu.bytecode.ClassType>."fo |
| 91100 | 6f 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 74 20 28 21 20 61 64 64 4d 65 74 68 6f 64 20 | o"))..........(met.(!.addMethod. |
| 91120 | 63 74 20 22 62 61 72 22 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 20 28 3c 67 6e 75 2e | ct."bar".0))..........(ca.(<gnu. |
| 91140 | 62 79 74 65 63 6f 64 65 2e 43 6f 64 65 41 74 74 72 3e 20 6d 65 74 29 29 0a 20 20 20 20 20 20 20 | bytecode.CodeAttr>.met))........ |
| 91160 | 20 20 28 63 6f 6e 73 74 61 6e 74 73 20 28 6c 65 74 2a 20 28 28 62 73 20 28 3c 6a 61 76 61 2e 69 | ..(constants.(let*.((bs.(<java.i |
| 91180 | 6f 2e 42 79 74 65 41 72 72 61 79 4f 75 74 70 75 74 53 74 72 65 61 6d 3e 29 29 0a 20 20 20 20 20 | o.ByteArrayOutputStream>))...... |
| 911a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 20 28 3c 6a 61 76 61 2e | ......................(s.(<java. |
| 911c0 | 69 6f 2e 44 61 74 61 4f 75 74 70 75 74 53 74 72 65 61 6d 3e 20 62 73 29 29 29 0a 20 20 20 20 20 | io.DataOutputStream>.bs)))...... |
| 911e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 77 72 69 74 65 2d 73 68 6f 72 74 20 | .................(!.write-short. |
| 91200 | 73 20 63 70 6f 6f 6c 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.cpoolcount)................... |
| 91220 | 20 20 20 20 28 21 20 77 72 69 74 65 20 73 20 63 70 6f 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | ....(!.write.s.cpool)........... |
| 91240 | 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 66 6c 75 73 68 20 73 29 0a 20 20 20 20 20 20 20 20 | ............(!.flush.s)......... |
| 91260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 74 6f 42 79 74 65 41 72 72 61 79 20 62 73 29 | ..............(!.toByteArray.bs) |
| 91280 | 29 29 29 0a 20 20 20 20 28 76 6d 2d 73 65 74 2d 73 6c 6f 74 20 2a 74 68 65 2d 76 6d 2a 20 63 74 | ))).....(vm-set-slot.*the-vm*.ct |
| 912a0 | 20 22 63 6f 6e 73 74 61 6e 74 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c | ."constants"..................(< |
| 912c0 | 67 6e 75 2e 62 79 74 65 63 6f 64 65 2e 43 6f 6e 73 74 61 6e 74 50 6f 6f 6c 3e 0a 20 20 20 20 20 | gnu.bytecode.ConstantPool>...... |
| 912e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 6a 61 76 61 2e 69 6f 2e 44 61 74 61 49 6e 70 75 74 | .............(<java.io.DataInput |
| 91300 | 53 74 72 65 61 6d 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 6a 61 76 | Stream>....................(<jav |
| 91320 | 61 2e 69 6f 2e 42 79 74 65 41 72 72 61 79 49 6e 70 75 74 53 74 72 65 61 6d 3e 0a 20 20 20 20 20 | a.io.ByteArrayInputStream>...... |
| 91340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 74 61 6e 74 73 29 29 29 29 0a 20 20 20 | ...............constants)))).... |
| 91360 | 20 28 21 20 73 65 74 43 6f 64 65 20 63 61 20 62 79 74 65 63 6f 64 65 29 0a 20 20 20 20 28 6c 65 | .(!.setCode.ca.bytecode).....(le |
| 91380 | 74 20 28 28 77 20 28 3c 67 6e 75 2e 62 79 74 65 63 6f 64 65 2e 43 6c 61 73 73 54 79 70 65 57 72 | t.((w.(<gnu.bytecode.ClassTypeWr |
| 913a0 | 69 74 65 72 3e 20 63 74 20 6f 75 74 20 30 29 29 29 0a 20 20 20 20 20 20 28 21 20 70 72 69 6e 74 | iter>.ct.out.0))).......(!.print |
| 913c0 | 20 63 61 20 77 29 0a 20 20 20 20 20 20 28 21 20 66 6c 75 73 68 20 77 29 29 29 29 0a 0a 28 64 66 | .ca.w).......(!.flush.w))))..(df |
| 913e0 | 20 77 69 74 68 2d 73 69 6e 6b 20 28 73 69 6e 6b 20 28 66 20 3c 66 75 6e 63 74 69 6f 6e 3e 29 29 | .with-sink.(sink.(f.<function>)) |
| 91400 | 0a 20 20 28 63 6f 6e 64 20 28 28 69 6e 73 74 61 6e 63 65 3f 20 73 69 6e 6b 20 3c 6a 61 76 61 2e | ...(cond.((instance?.sink.<java. |
| 91420 | 69 6f 2e 50 72 69 6e 74 57 72 69 74 65 72 3e 29 20 28 66 20 73 69 6e 6b 29 29 0a 20 20 20 20 20 | io.PrintWriter>).(f.sink))...... |
| 91440 | 20 20 20 28 28 3d 3d 20 73 69 6e 6b 20 23 74 29 20 28 66 20 28 61 73 20 3c 6a 61 76 61 2e 69 6f | ...((==.sink.#t).(f.(as.<java.io |
| 91460 | 2e 50 72 69 6e 74 57 72 69 74 65 72 3e 20 28 63 75 72 72 65 6e 74 2d 6f 75 74 70 75 74 2d 70 6f | .PrintWriter>.(current-output-po |
| 91480 | 72 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 3d 3d 20 73 69 6e 6b 20 23 66 29 0a 20 20 20 | rt)))).........((==.sink.#f).... |
| 914a0 | 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 62 75 66 66 65 72 20 28 3c 6a 61 76 61 2e 69 6f 2e 53 | ......(let*.((buffer.(<java.io.S |
| 914c0 | 74 72 69 6e 67 57 72 69 74 65 72 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | tringWriter>)).................( |
| 914e0 | 6f 75 74 20 28 3c 6a 61 76 61 2e 69 6f 2e 50 72 69 6e 74 57 72 69 74 65 72 3e 20 62 75 66 66 65 | out.(<java.io.PrintWriter>.buffe |
| 91500 | 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 20 6f 75 74 29 0a 20 20 20 20 20 20 20 20 | r)))............(f.out)......... |
| 91520 | 20 20 20 28 21 20 66 6c 75 73 68 20 6f 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 21 20 74 | ...(!.flush.out)............(!.t |
| 91540 | 6f 53 74 72 69 6e 67 20 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 23 74 20 28 66 | oString.buffer))).........(#t.(f |
| 91560 | 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 73 69 6e 6b 20 64 65 73 69 67 6e 61 74 6f 72 3a 20 | error."Invalid.sink.designator:. |
| 91580 | 7e 73 22 20 73 69 6e 6b 29 29 29 29 0a 0a 28 64 66 20 74 65 73 74 2d 64 69 73 61 73 20 28 28 63 | ~s".sink))))..(df.test-disas.((c |
| 915a0 | 20 3c 73 74 72 3e 29 20 28 6d 20 3c 73 74 72 3e 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 76 6d 20 | .<str>).(m.<str>))...(let*.((vm. |
| 915c0 | 28 61 73 20 3c 76 6d 3e 20 2a 74 68 65 2d 76 6d 2a 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 20 | (as.<vm>.*the-vm*))..........(c. |
| 915e0 | 28 61 73 20 3c 72 65 66 2d 74 79 70 65 3e 20 28 31 73 74 20 28 21 20 63 6c 61 73 73 65 73 2d 62 | (as.<ref-type>.(1st.(!.classes-b |
| 91600 | 79 2d 6e 61 6d 65 20 76 6d 20 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 20 28 61 73 20 | y-name.vm.c))))..........(m.(as. |
| 91620 | 3c 6d 65 74 68 2d 72 65 66 3e 20 28 31 73 74 20 28 21 20 6d 65 74 68 6f 64 73 2d 62 79 2d 6e 61 | <meth-ref>.(1st.(!.methods-by-na |
| 91640 | 6d 65 20 63 20 6d 29 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 73 69 6e 6b 20 23 66 20 28 66 | me.c.m))))).....(with-sink.#f.(f |
| 91660 | 75 6e 20 28 6f 75 74 29 20 28 64 69 73 61 73 73 65 6d 62 6c 65 2d 6d 65 74 68 2d 72 65 66 20 6d | un.(out).(disassemble-meth-ref.m |
| 91680 | 20 6f 75 74 29 29 29 29 29 0a 0a 3b 3b 20 28 74 65 73 74 2d 64 69 73 61 73 20 22 6a 61 76 61 2e | .out)))))..;;.(test-disas."java. |
| 916a0 | 6c 61 6e 67 2e 43 6c 61 73 73 22 20 22 74 6f 53 74 72 69 6e 67 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 | lang.Class"."toString")....;;;;. |
| 916c0 | 4d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 | Macroexpansion..(defslimefun.swa |
| 916e0 | 6e 6b 2d 65 78 70 61 6e 64 2d 31 20 28 65 6e 76 20 73 29 20 28 25 73 77 61 6e 6b 2d 6d 61 63 72 | nk-expand-1.(env.s).(%swank-macr |
| 91700 | 6f 65 78 70 61 6e 64 20 73 20 65 6e 76 29 29 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 | oexpand.s.env)).(defslimefun.swa |
| 91720 | 6e 6b 2d 65 78 70 61 6e 64 20 28 65 6e 76 20 73 29 20 28 25 73 77 61 6e 6b 2d 6d 61 63 72 6f 65 | nk-expand.(env.s).(%swank-macroe |
| 91740 | 78 70 61 6e 64 20 73 20 65 6e 76 29 29 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b | xpand.s.env)).(defslimefun.swank |
| 91760 | 2d 65 78 70 61 6e 64 2d 61 6c 6c 20 28 65 6e 76 20 73 29 20 28 25 73 77 61 6e 6b 2d 6d 61 63 72 | -expand-all.(env.s).(%swank-macr |
| 91780 | 6f 65 78 70 61 6e 64 20 73 20 65 6e 76 29 29 0a 0a 28 64 66 20 25 73 77 61 6e 6b 2d 6d 61 63 72 | oexpand.s.env))..(df.%swank-macr |
| 917a0 | 6f 65 78 70 61 6e 64 20 28 73 74 72 69 6e 67 20 65 6e 76 29 0a 20 20 28 70 70 72 69 6e 74 2d 74 | oexpand.(string.env)...(pprint-t |
| 917c0 | 6f 2d 73 74 72 69 6e 67 20 28 25 6d 61 63 72 6f 65 78 70 61 6e 64 20 28 72 65 61 64 2d 66 72 6f | o-string.(%macroexpand.(read-fro |
| 917e0 | 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 20 65 6e 76 29 29 29 0a 0a 28 64 66 20 25 6d 61 | m-string.string).env)))..(df.%ma |
| 91800 | 63 72 6f 65 78 70 61 6e 64 20 28 73 65 78 70 20 65 6e 76 29 20 28 65 78 70 61 6e 64 20 73 65 78 | croexpand.(sexp.env).(expand.sex |
| 91820 | 70 20 23 3a 65 6e 76 20 65 6e 76 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 74 6f 72 0a | p.#:env.env))....;;;;.Inspector. |
| 91840 | 0a 28 64 65 66 69 6e 65 2d 73 69 6d 70 6c 65 2d 63 6c 61 73 73 20 3c 69 6e 73 70 65 63 74 6f 72 | .(define-simple-class.<inspector |
| 91860 | 2d 73 74 61 74 65 3e 20 28 29 0a 20 20 28 6f 62 6a 65 63 74 20 23 3a 69 6e 69 74 20 23 21 6e 75 | -state>.()...(object.#:init.#!nu |
| 91880 | 6c 6c 29 0a 20 20 28 70 61 72 74 73 20 3a 3a 20 3c 6a 61 76 61 2e 75 74 69 6c 2e 41 72 72 61 79 | ll)...(parts.::.<java.util.Array |
| 918a0 | 4c 69 73 74 3e 20 23 3a 69 6e 69 74 20 28 3c 6a 61 76 61 2e 75 74 69 6c 2e 41 72 72 61 79 4c 69 | List>.#:init.(<java.util.ArrayLi |
| 918c0 | 73 74 3e 29 20 29 0a 20 20 28 73 74 61 63 6b 20 3a 3a 20 3c 6c 69 73 74 3e 20 23 3a 69 6e 69 74 | st>).)...(stack.::.<list>.#:init |
| 918e0 | 20 27 28 29 29 0a 20 20 28 63 6f 6e 74 65 6e 74 20 3a 3a 20 3c 6c 69 73 74 3e 20 23 3a 69 6e 69 | .'())...(content.::.<list>.#:ini |
| 91900 | 74 20 27 28 29 29 29 0a 0a 28 64 66 20 6d 61 6b 65 2d 69 6e 73 70 65 63 74 6f 72 20 28 65 6e 76 | t.'()))..(df.make-inspector.(env |
| 91920 | 20 28 76 6d 20 3c 76 6d 3e 29 20 3d 3e 20 3c 63 68 61 6e 3e 29 0a 20 20 28 63 61 72 20 28 73 70 | .(vm.<vm>).=>.<chan>)...(car.(sp |
| 91940 | 61 77 6e 2f 63 68 61 6e 20 28 66 75 6e 20 28 63 29 20 28 69 6e 73 70 65 63 74 6f 72 20 63 20 65 | awn/chan.(fun.(c).(inspector.c.e |
| 91960 | 6e 76 20 76 6d 29 29 29 29 29 0a 0a 28 64 66 20 69 6e 73 70 65 63 74 6f 72 20 28 28 63 20 3c 63 | nv.vm)))))..(df.inspector.((c.<c |
| 91980 | 68 61 6e 3e 29 20 65 6e 76 20 28 76 6d 20 3c 76 6d 3e 29 29 0a 20 20 28 21 20 73 65 74 2d 6e 61 | han>).env.(vm.<vm>))...(!.set-na |
| 919a0 | 6d 65 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 22 69 6e 73 70 65 63 74 6f 72 22 29 | me.(current-thread)."inspector") |
| 919c0 | 0a 20 20 28 6c 65 74 20 28 28 73 74 61 74 65 20 3a 3a 20 3c 69 6e 73 70 65 63 74 6f 72 2d 73 74 | ...(let.((state.::.<inspector-st |
| 919e0 | 61 74 65 3e 20 28 3c 69 6e 73 70 65 63 74 6f 72 2d 73 74 61 74 65 3e 29 29 0a 20 20 20 20 20 20 | ate>.(<inspector-state>))....... |
| 91a00 | 20 20 28 6f 70 65 6e 20 23 74 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 6f 70 65 6e 0a 20 20 20 | ..(open.#t)).....(while.open.... |
| 91a20 | 20 20 20 28 6d 63 61 73 65 20 28 72 65 63 76 20 63 29 0a 20 20 20 20 20 20 20 20 28 28 27 69 6e | ...(mcase.(recv.c).........(('in |
| 91a40 | 69 74 20 73 74 72 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 20 73 74 61 74 65 20 28 | it.str.id)..........(set.state.( |
| 91a60 | 3c 69 6e 73 70 65 63 74 6f 72 2d 73 74 61 74 65 3e 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 | <inspector-state>))..........(le |
| 91a80 | 74 20 28 28 6f 62 6a 20 28 74 72 79 2d 63 61 74 63 68 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 | t.((obj.(try-catch.(eval.(read-f |
| 91aa0 | 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 29 20 65 6e 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 | rom-string.str).env)............ |
| 91ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 20 3c 74 68 72 6f 77 61 62 | ....................(ex.<throwab |
| 91ae0 | 6c 65 3e 20 65 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 79 20 63 20 28 | le>.ex))))............(reply.c.( |
| 91b00 | 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 6f 62 6a 20 73 74 61 74 65 20 76 6d 29 20 69 64 29 | inspect-object.obj.state.vm).id) |
| 91b20 | 29 29 0a 20 20 20 20 20 20 20 20 28 28 27 69 6e 69 74 2d 6d 69 72 72 6f 72 20 63 63 20 69 64 29 | )).........(('init-mirror.cc.id) |
| 91b40 | 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 20 73 74 61 74 65 20 28 3c 69 6e 73 70 65 63 74 6f 72 | ..........(set.state.(<inspector |
| 91b60 | 2d 73 74 61 74 65 3e 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 69 72 72 6f | -state>))..........(let*.((mirro |
| 91b80 | 72 20 28 72 65 63 76 20 63 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 62 | r.(recv.cc)).................(ob |
| 91ba0 | 6a 20 28 76 6d 2d 64 65 6d 69 72 72 6f 72 20 76 6d 20 6d 69 72 72 6f 72 29 29 29 0a 20 20 20 20 | j.(vm-demirror.vm.mirror)))..... |
| 91bc0 | 20 20 20 20 20 20 20 28 72 65 70 6c 79 20 63 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 | .......(reply.c.(inspect-object. |
| 91be0 | 6f 62 6a 20 73 74 61 74 65 20 76 6d 29 20 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 27 69 | obj.state.vm).id))).........(('i |
| 91c00 | 6e 73 70 65 63 74 2d 70 61 72 74 20 6e 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | nspect-part.n.id)..........(let. |
| 91c20 | 28 28 70 61 72 74 20 28 21 20 67 65 74 20 28 40 20 70 61 72 74 73 20 73 74 61 74 65 29 20 6e 29 | ((part.(!.get.(@.parts.state).n) |
| 91c40 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 79 20 63 20 28 69 6e 73 70 65 63 74 2d | ))............(reply.c.(inspect- |
| 91c60 | 6f 62 6a 65 63 74 20 70 61 72 74 20 73 74 61 74 65 20 76 6d 29 20 69 64 29 29 29 0a 20 20 20 20 | object.part.state.vm).id)))..... |
| 91c80 | 20 20 20 20 28 28 27 70 6f 70 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 79 20 63 | ....(('pop.id)..........(reply.c |
| 91ca0 | 20 28 69 6e 73 70 65 63 74 6f 72 2d 70 6f 70 20 73 74 61 74 65 20 76 6d 29 20 69 64 29 29 0a 20 | .(inspector-pop.state.vm).id)).. |
| 91cc0 | 20 20 20 20 20 20 20 28 28 27 71 75 69 74 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 70 | .......(('quit.id)..........(rep |
| 91ce0 | 6c 79 20 63 20 27 6e 69 6c 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 20 6f 70 65 6e | ly.c.'nil.id)..........(set.open |
| 91d00 | 20 23 66 29 29 29 29 29 29 0a 0a 28 64 66 20 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 6f | .#f))))))..(df.inspect-object.(o |
| 91d20 | 62 6a 20 28 73 74 61 74 65 20 3c 69 6e 73 70 65 63 74 6f 72 2d 73 74 61 74 65 3e 29 20 28 76 6d | bj.(state.<inspector-state>).(vm |
| 91d40 | 20 3c 76 6d 3e 29 29 0a 20 20 28 73 65 74 20 28 40 20 6f 62 6a 65 63 74 20 73 74 61 74 65 29 20 | .<vm>))...(set.(@.object.state). |
| 91d60 | 6f 62 6a 29 0a 20 20 28 73 65 74 20 28 40 20 70 61 72 74 73 20 73 74 61 74 65 29 20 28 3c 6a 61 | obj)...(set.(@.parts.state).(<ja |
| 91d80 | 76 61 2e 75 74 69 6c 2e 41 72 72 61 79 4c 69 73 74 3e 29 29 0a 20 20 28 70 75 73 68 66 20 6f 62 | va.util.ArrayList>))...(pushf.ob |
| 91da0 | 6a 20 28 40 20 73 74 61 63 6b 20 73 74 61 74 65 29 29 0a 20 20 28 73 65 74 20 28 40 20 63 6f 6e | j.(@.stack.state))...(set.(@.con |
| 91dc0 | 74 65 6e 74 20 73 74 61 74 65 29 20 28 69 6e 73 70 65 63 74 6f 72 2d 63 6f 6e 74 65 6e 74 0a 20 | tent.state).(inspector-content.. |
| 91de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 63 6c 61 73 | .........................`("clas |
| 91e00 | 73 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 28 21 20 67 65 74 43 6c 61 73 73 20 6f 62 6a 29 29 20 | s:.".(:value.,(!.getClass.obj)). |
| 91e20 | 22 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "\n"............................ |
| 91e40 | 20 2c 40 28 69 6e 73 70 65 63 74 20 6f 62 6a 20 76 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .,@(inspect.obj.vm))............ |
| 91e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 29 29 0a 20 20 28 63 6f 6e 64 20 28 | ...............state))...(cond.( |
| 91e80 | 28 6e 75 6c 3f 20 6f 62 6a 29 20 28 6c 69 73 74 20 27 3a 74 69 74 6c 65 20 22 23 21 6e 75 6c 6c | (nul?.obj).(list.':title."#!null |
| 91ea0 | 22 20 27 3a 69 64 20 30 20 27 3a 63 6f 6e 74 65 6e 74 20 60 28 29 29 29 0a 20 20 20 20 20 20 20 | ".':id.0.':content.`()))........ |
| 91ec0 | 20 28 23 74 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 3a 74 69 74 6c 65 20 28 70 70 72 | .(#t..........(list.':title.(ppr |
| 91ee0 | 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 62 6a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | int-to-string.obj).............. |
| 91f00 | 20 20 27 3a 69 64 20 28 61 73 73 69 67 6e 2d 69 6e 64 65 78 20 6f 62 6a 20 73 74 61 74 65 29 0a | ..':id.(assign-index.obj.state). |
| 91f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3a 63 6f 6e 74 65 6e 74 20 28 6c 65 74 20 28 28 | ...............':content.(let.(( |
| 91f40 | 63 20 28 40 20 63 6f 6e 74 65 6e 74 20 73 74 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | c.(@.content.state)))........... |
| 91f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 74 65 6e 74 2d 72 61 6e 67 65 20 | .................(content-range. |
| 91f80 | 20 63 20 30 20 28 6c 65 6e 20 63 29 29 29 29 29 29 29 0a 0a 28 64 66 20 69 6e 73 70 65 63 74 20 | .c.0.(len.c)))))))..(df.inspect. |
| 91fa0 | 28 6f 62 6a 20 76 6d 29 0a 20 20 28 6c 65 74 20 28 28 6f 62 6a 20 28 61 73 20 3c 6f 62 6a 2d 72 | (obj.vm)...(let.((obj.(as.<obj-r |
| 91fc0 | 65 66 3e 20 28 76 6d 2d 6d 69 72 72 6f 72 20 76 6d 20 6f 62 6a 29 29 29 29 0a 20 20 20 20 28 74 | ef>.(vm-mirror.vm.obj)))).....(t |
| 91fe0 | 79 70 65 63 61 73 65 20 6f 62 6a 0a 20 20 20 20 20 20 28 3c 61 72 72 61 79 2d 72 65 66 3e 20 28 | ypecase.obj.......(<array-ref>.( |
| 92000 | 69 6e 73 70 65 63 74 2d 61 72 72 61 79 2d 72 65 66 20 76 6d 20 6f 62 6a 29 29 0a 20 20 20 20 20 | inspect-array-ref.vm.obj))...... |
| 92020 | 20 28 3c 6f 62 6a 2d 72 65 66 3e 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 2d 72 65 66 20 76 6d 20 | .(<obj-ref>.(inspect-obj-ref.vm. |
| 92040 | 6f 62 6a 29 29 29 29 29 0a 0a 28 64 66 20 69 6e 73 70 65 63 74 2d 61 72 72 61 79 2d 72 65 66 20 | obj)))))..(df.inspect-array-ref. |
| 92060 | 28 28 76 6d 20 3c 76 6d 3e 29 20 28 6f 62 6a 20 3c 61 72 72 61 79 2d 72 65 66 3e 29 29 0a 20 20 | ((vm.<vm>).(obj.<array-ref>))... |
| 92080 | 28 70 61 63 6b 69 6e 67 20 28 70 61 63 6b 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 20 30 29 29 | (packing.(pack).....(let.((i.0)) |
| 920a0 | 0a 20 20 20 20 20 20 28 66 6f 72 20 28 28 28 76 20 3a 3a 20 3c 76 61 6c 75 65 3e 29 20 28 21 20 | .......(for.(((v.::.<value>).(!. |
| 920c0 | 67 65 74 56 61 6c 75 65 73 20 6f 62 6a 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 | getValues.obj))).........(pack.( |
| 920e0 | 66 6f 72 6d 61 74 20 22 7e 64 3a 20 22 20 69 29 29 0a 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 | format."~d:.".i)).........(pack. |
| 92100 | 60 28 3a 76 61 6c 75 65 20 2c 28 76 6d 2d 64 65 6d 69 72 72 6f 72 20 76 6d 20 76 29 29 29 0a 20 | `(:value.,(vm-demirror.vm.v))).. |
| 92120 | 20 20 20 20 20 20 20 28 70 61 63 6b 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 20 | .......(pack."\n").........(set. |
| 92140 | 69 20 28 31 2b 20 69 29 29 29 29 29 29 0a 0a 28 64 66 20 69 6e 73 70 65 63 74 2d 6f 62 6a 2d 72 | i.(1+.i))))))..(df.inspect-obj-r |
| 92160 | 65 66 20 28 28 76 6d 20 3c 76 6d 3e 29 20 28 6f 62 6a 20 3c 6f 62 6a 2d 72 65 66 3e 29 29 0a 20 | ef.((vm.<vm>).(obj.<obj-ref>)).. |
| 92180 | 20 28 6c 65 74 2a 20 28 28 74 79 70 65 20 28 21 20 72 65 66 65 72 65 6e 63 65 54 79 70 65 20 6f | .(let*.((type.(!.referenceType.o |
| 921a0 | 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 65 6c 64 73 20 28 21 20 61 6c 6c 46 69 65 6c | bj))..........(fields.(!.allFiel |
| 921c0 | 64 73 20 74 79 70 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 21 20 67 65 | ds.type))..........(values.(!.ge |
| 921e0 | 74 56 61 6c 75 65 73 20 6f 62 6a 20 66 69 65 6c 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 | tValues.obj.fields))..........(i |
| 92200 | 66 69 65 6c 64 73 20 27 28 29 29 20 28 73 66 69 65 6c 64 73 20 27 28 29 29 20 28 69 6d 65 74 68 | fields.'()).(sfields.'()).(imeth |
| 92220 | 73 20 27 28 29 29 20 28 73 6d 65 74 68 73 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 72 | s.'()).(smeths.'())..........(fr |
| 92240 | 6f 62 20 28 6c 61 6d 62 64 61 20 28 6c 69 73 74 73 29 20 28 61 70 70 6c 79 20 61 70 70 65 6e 64 | ob.(lambda.(lists).(apply.append |
| 92260 | 20 28 72 65 76 65 72 73 65 20 6c 69 73 74 73 29 29 29 29 29 0a 20 20 20 20 28 66 6f 72 20 28 28 | .(reverse.lists))))).....(for.(( |
| 92280 | 28 66 20 3a 3a 20 3c 66 69 65 6c 64 3e 29 20 66 69 65 6c 64 73 29 29 0a 20 20 20 20 20 20 28 6c | (f.::.<field>).fields)).......(l |
| 922a0 | 65 74 2a 20 28 28 76 61 6c 20 28 61 73 20 3c 76 61 6c 75 65 3e 20 28 21 20 67 65 74 20 76 61 6c | et*.((val.(as.<value>.(!.get.val |
| 922c0 | 75 65 73 20 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 20 60 28 2c 28 21 20 6e | ues.f)))..............(l.`(,(!.n |
| 922e0 | 61 6d 65 20 66 29 20 22 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 28 76 6d 2d 64 65 6d 69 72 72 6f | ame.f).":.".(:value.,(vm-demirro |
| 92300 | 72 20 76 6d 20 76 61 6c 29 29 20 22 5c 6e 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 | r.vm.val))."\n"))).........(if.( |
| 92320 | 21 20 69 73 2d 73 74 61 74 69 63 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 | !.is-static.f).............(push |
| 92340 | 66 20 6c 20 73 66 69 65 6c 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 66 20 | f.l.sfields).............(pushf. |
| 92360 | 6c 20 69 66 69 65 6c 64 73 29 29 29 29 0a 20 20 20 20 28 66 6f 72 20 28 28 28 6d 20 3a 3a 20 3c | l.ifields)))).....(for.(((m.::.< |
| 92380 | 6d 65 74 68 2d 72 65 66 3e 29 20 28 21 20 61 6c 6c 4d 65 74 68 6f 64 73 20 74 79 70 65 29 29 29 | meth-ref>).(!.allMethods.type))) |
| 923a0 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 20 60 28 2c 28 21 20 6e 61 6d 65 20 6d 29 20 2c 28 | .......(let.((l.`(,(!.name.m).,( |
| 923c0 | 21 20 73 69 67 6e 61 74 75 72 65 20 6d 29 20 22 5c 6e 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 | !.signature.m)."\n"))).........( |
| 923e0 | 69 66 20 28 21 20 69 73 2d 73 74 61 74 69 63 20 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | if.(!.is-static.m).............( |
| 92400 | 70 75 73 68 66 20 6c 20 73 6d 65 74 68 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 | pushf.l.smeths).............(pus |
| 92420 | 68 66 20 6c 20 69 6d 65 74 68 73 29 29 29 29 0a 20 20 20 20 60 28 2c 40 28 66 72 6f 62 20 69 66 | hf.l.imeths)))).....`(,@(frob.if |
| 92440 | 69 65 6c 64 73 29 0a 20 20 20 20 20 20 22 2d 2d 2d 20 73 74 61 74 69 63 20 66 69 65 6c 64 73 20 | ields)......."---.static.fields. |
| 92460 | 2d 2d 2d 5c 6e 22 20 2c 40 28 66 72 6f 62 20 73 66 69 65 6c 64 73 29 0a 20 20 20 20 20 20 22 2d | ---\n".,@(frob.sfields)......."- |
| 92480 | 2d 2d 20 6d 65 74 68 6f 64 73 20 2d 2d 2d 5c 6e 22 20 2c 40 28 66 72 6f 62 20 69 6d 65 74 68 73 | --.methods.---\n".,@(frob.imeths |
| 924a0 | 29 0a 20 20 20 20 20 20 22 2d 2d 2d 20 73 74 61 74 69 63 20 6d 65 74 68 6f 64 73 20 2d 2d 2d 5c | )......."---.static.methods.---\ |
| 924c0 | 6e 22 20 2c 40 28 66 72 6f 62 20 73 6d 65 74 68 73 29 29 29 29 0a 0a 28 64 66 20 69 6e 73 70 65 | n".,@(frob.smeths))))..(df.inspe |
| 924e0 | 63 74 6f 72 2d 63 6f 6e 74 65 6e 74 20 28 63 6f 6e 74 65 6e 74 20 28 73 74 61 74 65 20 3c 69 6e | ctor-content.(content.(state.<in |
| 92500 | 73 70 65 63 74 6f 72 2d 73 74 61 74 65 3e 29 29 0a 20 20 28 6d 61 70 20 28 66 75 6e 20 28 70 61 | spector-state>))...(map.(fun.(pa |
| 92520 | 72 74 29 0a 20 20 20 20 20 20 20 20 20 28 6d 63 61 73 65 20 70 61 72 74 0a 20 20 20 20 20 20 20 | rt)..........(mcase.part........ |
| 92540 | 20 20 20 20 28 28 27 3a 76 61 6c 75 65 20 76 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 | ....((':value.val).............` |
| 92560 | 28 3a 76 61 6c 75 65 20 2c 28 70 70 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 76 61 6c 29 20 | (:value.,(pprint-to-string.val). |
| 92580 | 2c 28 61 73 73 69 67 6e 2d 69 6e 64 65 78 20 76 61 6c 20 73 74 61 74 65 29 29 29 0a 20 20 20 20 | ,(assign-index.val.state)))..... |
| 925a0 | 20 20 20 20 20 20 20 28 78 20 28 74 6f 2d 73 74 72 69 6e 67 20 78 29 29 29 29 0a 20 20 20 20 20 | .......(x.(to-string.x))))...... |
| 925c0 | 20 20 63 6f 6e 74 65 6e 74 29 29 0a 0a 28 64 66 20 61 73 73 69 67 6e 2d 69 6e 64 65 78 20 28 6f | ..content))..(df.assign-index.(o |
| 925e0 | 62 6a 20 28 73 74 61 74 65 20 3c 69 6e 73 70 65 63 74 6f 72 2d 73 74 61 74 65 3e 29 20 3d 3e 20 | bj.(state.<inspector-state>).=>. |
| 92600 | 3c 69 6e 74 3e 29 0a 20 20 28 21 20 61 64 64 20 28 40 20 70 61 72 74 73 20 73 74 61 74 65 29 20 | <int>)...(!.add.(@.parts.state). |
| 92620 | 6f 62 6a 29 0a 20 20 28 31 2d 20 28 21 20 73 69 7a 65 20 20 28 40 20 70 61 72 74 73 20 73 74 61 | obj)...(1-.(!.size..(@.parts.sta |
| 92640 | 74 65 29 29 29 29 0a 0a 28 64 66 20 63 6f 6e 74 65 6e 74 2d 72 61 6e 67 65 20 28 6c 20 73 74 61 | te))))..(df.content-range.(l.sta |
| 92660 | 72 74 20 65 6e 64 29 0a 20 20 28 6c 65 74 2a 20 28 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 6c 29 | rt.end)...(let*.((len.(length.l) |
| 92680 | 29 20 28 65 6e 64 20 28 6d 69 6e 20 6c 65 6e 20 65 6e 64 29 29 29 0a 20 20 20 20 28 6c 69 73 74 | ).(end.(min.len.end))).....(list |
| 926a0 | 20 28 73 75 62 73 65 71 20 6c 20 73 74 61 72 74 20 65 6e 64 29 20 6c 65 6e 20 73 74 61 72 74 20 | .(subseq.l.start.end).len.start. |
| 926c0 | 65 6e 64 29 29 29 0a 0a 28 64 66 20 69 6e 73 70 65 63 74 6f 72 2d 70 6f 70 20 28 28 73 74 61 74 | end)))..(df.inspector-pop.((stat |
| 926e0 | 65 20 3c 69 6e 73 70 65 63 74 6f 72 2d 73 74 61 74 65 3e 29 20 76 6d 29 0a 20 20 28 63 6f 6e 64 | e.<inspector-state>).vm)...(cond |
| 92700 | 20 28 28 3c 3d 20 32 20 28 6c 65 6e 20 28 40 20 73 74 61 63 6b 20 73 74 61 74 65 29 29 29 0a 20 | .((<=.2.(len.(@.stack.state))).. |
| 92720 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 62 6a 20 28 63 61 64 72 20 28 40 20 73 74 61 63 | ........(let.((obj.(cadr.(@.stac |
| 92740 | 6b 20 73 74 61 74 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 28 40 20 73 | k.state))))............(set.(@.s |
| 92760 | 74 61 63 6b 20 73 74 61 74 65 29 20 28 63 64 64 72 20 28 40 20 73 74 61 63 6b 20 73 74 61 74 65 | tack.state).(cddr.(@.stack.state |
| 92780 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 6f | )))............(inspect-object.o |
| 927a0 | 62 6a 20 73 74 61 74 65 20 76 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 23 74 20 27 6e 69 6c 29 | bj.state.vm))).........(#t.'nil) |
| 927c0 | 29 29 0a 0a 3b 3b 3b 3b 20 49 4f 20 72 65 64 69 72 65 63 74 69 6f 6e 0a 0a 28 64 65 66 69 6e 65 | ))..;;;;.IO.redirection..(define |
| 927e0 | 2d 73 69 6d 70 6c 65 2d 63 6c 61 73 73 20 3c 73 77 61 6e 6b 2d 77 72 69 74 65 72 3e 20 28 3c 6a | -simple-class.<swank-writer>.(<j |
| 92800 | 61 76 61 2e 69 6f 2e 57 72 69 74 65 72 3e 29 0a 20 20 28 71 20 3a 3a 20 3c 71 75 65 75 65 3e 20 | ava.io.Writer>)...(q.::.<queue>. |
| 92820 | 23 3a 69 6e 69 74 20 28 3c 71 75 65 75 65 3e 20 28 61 73 20 3c 69 6e 74 3e 20 31 30 30 29 29 29 | #:init.(<queue>.(as.<int>.100))) |
| 92840 | 0a 20 20 28 28 2a 69 6e 69 74 2a 29 20 28 69 6e 76 6f 6b 65 2d 73 70 65 63 69 61 6c 20 3c 6a 61 | ...((*init*).(invoke-special.<ja |
| 92860 | 76 61 2e 69 6f 2e 57 72 69 74 65 72 3e 20 28 74 68 69 73 29 20 27 2a 69 6e 69 74 2a 29 29 0a 20 | va.io.Writer>.(this).'*init*)).. |
| 92880 | 20 28 28 77 72 69 74 65 20 28 62 75 66 66 65 72 20 3a 3a 20 3c 63 68 61 72 5b 5d 3e 29 20 28 66 | .((write.(buffer.::.<char[]>).(f |
| 928a0 | 72 6f 6d 20 3a 3a 20 3c 69 6e 74 3e 29 20 28 74 6f 20 3a 3a 20 3c 69 6e 74 3e 29 29 20 3a 3a 20 | rom.::.<int>).(to.::.<int>)).::. |
| 928c0 | 3c 76 6f 69 64 3e 0a 20 20 20 28 73 79 6e 63 68 72 6f 6e 69 7a 65 64 20 28 74 68 69 73 29 0a 20 | <void>....(synchronized.(this).. |
| 928e0 | 20 20 20 20 28 61 73 73 65 72 74 20 28 6e 6f 74 20 28 3d 3d 20 71 20 23 21 6e 75 6c 6c 29 29 29 | ....(assert.(not.(==.q.#!null))) |
| 92900 | 0a 20 20 20 20 20 28 21 20 70 75 74 20 71 20 60 28 77 72 69 74 65 20 2c 28 3c 73 74 72 3e 20 62 | ......(!.put.q.`(write.,(<str>.b |
| 92920 | 75 66 66 65 72 20 66 72 6f 6d 20 74 6f 29 29 29 29 29 0a 20 20 28 28 63 6c 6f 73 65 29 20 3a 3a | uffer.from.to)))))...((close).:: |
| 92940 | 20 3c 76 6f 69 64 3e 0a 20 20 20 28 73 79 6e 63 68 72 6f 6e 69 7a 65 64 20 28 74 68 69 73 29 0a | .<void>....(synchronized.(this). |
| 92960 | 20 20 20 20 20 28 21 20 70 75 74 20 71 20 27 63 6c 6f 73 65 29 0a 20 20 20 20 20 28 73 65 74 21 | .....(!.put.q.'close)......(set! |
| 92980 | 20 71 20 23 21 6e 75 6c 6c 29 29 29 0a 20 20 28 28 66 6c 75 73 68 29 20 3a 3a 20 3c 76 6f 69 64 | .q.#!null)))...((flush).::.<void |
| 929a0 | 3e 0a 20 20 20 28 73 79 6e 63 68 72 6f 6e 69 7a 65 64 20 28 74 68 69 73 29 0a 20 20 20 20 20 28 | >....(synchronized.(this)......( |
| 929c0 | 61 73 73 65 72 74 20 28 6e 6f 74 20 28 3d 3d 20 71 20 23 21 6e 75 6c 6c 29 29 29 0a 20 20 20 20 | assert.(not.(==.q.#!null)))..... |
| 929e0 | 20 28 6c 65 74 20 28 28 65 78 20 28 3c 65 78 63 68 61 6e 67 65 72 3e 29 29 29 0a 20 20 20 20 20 | .(let.((ex.(<exchanger>)))...... |
| 92a00 | 20 20 28 21 20 70 75 74 20 71 20 60 28 66 6c 75 73 68 20 2c 65 78 29 29 0a 20 20 20 20 20 20 20 | ..(!.put.q.`(flush.,ex))........ |
| 92a20 | 28 21 20 65 78 63 68 61 6e 67 65 20 65 78 20 23 21 6e 75 6c 6c 29 29 29 29 29 0a 0a 28 64 66 20 | (!.exchange.ex.#!null)))))..(df. |
| 92a40 | 73 77 61 6e 6b 2d 77 72 69 74 65 72 20 28 28 69 6e 20 3c 63 68 61 6e 3e 29 20 28 71 20 3c 71 75 | swank-writer.((in.<chan>).(q.<qu |
| 92a60 | 65 75 65 3e 29 29 0a 20 20 28 21 20 73 65 74 2d 6e 61 6d 65 20 28 63 75 72 72 65 6e 74 2d 74 68 | eue>))...(!.set-name.(current-th |
| 92a80 | 72 65 61 64 29 20 22 73 77 61 6e 6b 2d 72 65 64 69 72 65 63 74 2d 74 68 72 65 61 64 22 29 0a 20 | read)."swank-redirect-thread").. |
| 92aa0 | 20 28 6c 65 74 2a 20 28 28 6f 75 74 20 28 61 73 20 3c 63 68 61 6e 3e 20 28 72 65 63 76 20 69 6e | .(let*.((out.(as.<chan>.(recv.in |
| 92ac0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 69 6c 64 65 72 20 28 3c 62 75 69 6c 64 65 72 3e | )))..........(builder.(<builder> |
| 92ae0 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6c 75 73 68 20 28 66 75 6e 20 28 29 0a 20 20 20 20 20 | ))..........(flush.(fun.()...... |
| 92b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 7a 65 72 6f 3f 20 28 21 20 6c | .............(unless.(zero?.(!.l |
| 92b20 | 65 6e 67 74 68 20 62 75 69 6c 64 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ength.builder))................. |
| 92b40 | 20 20 20 20 28 73 65 6e 64 20 6f 75 74 20 60 28 66 6f 72 77 61 72 64 20 28 3a 77 72 69 74 65 2d | ....(send.out.`(forward.(:write- |
| 92b60 | 73 74 72 69 6e 67 20 2c 28 3c 73 74 72 3e 20 62 75 69 6c 64 65 72 29 29 29 29 0a 20 20 20 20 20 | string.,(<str>.builder))))...... |
| 92b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 73 65 74 4c 65 6e 67 74 68 20 62 75 69 6c | ...............(!.setLength.buil |
| 92ba0 | 64 65 72 20 30 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6c 6f 73 65 64 20 23 66 29 29 0a | der.0))))..........(closed.#f)). |
| 92bc0 | 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 63 6c 6f 73 65 64 29 0a 20 20 20 20 20 20 28 6d | ....(while.(not.closed).......(m |
| 92be0 | 63 61 73 65 20 28 21 20 70 6f 6c 6c 20 71 20 28 61 73 20 6c 6f 6e 67 20 32 30 30 29 20 28 40 73 | case.(!.poll.q.(as.long.200).(@s |
| 92c00 | 20 3c 74 69 6d 65 75 6e 69 74 3e 20 4d 49 4c 4c 49 53 45 43 4f 4e 44 53 29 29 0a 20 20 20 20 20 | .<timeunit>.MILLISECONDS))...... |
| 92c20 | 20 20 20 28 27 23 21 6e 75 6c 6c 20 28 66 6c 75 73 68 29 29 0a 20 20 20 20 20 20 20 20 28 28 27 | ...('#!null.(flush)).........((' |
| 92c40 | 77 72 69 74 65 20 73 29 0a 20 20 20 20 20 20 20 20 20 28 21 20 61 70 70 65 6e 64 20 62 75 69 6c | write.s)..........(!.append.buil |
| 92c60 | 64 65 72 20 28 61 73 20 3c 73 74 72 3e 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | der.(as.<str>.s))..........(when |
| 92c80 | 20 28 3e 20 28 21 20 6c 65 6e 67 74 68 20 62 75 69 6c 64 65 72 29 20 34 30 30 30 29 0a 20 20 20 | .(>.(!.length.builder).4000).... |
| 92ca0 | 20 20 20 20 20 20 20 20 28 66 6c 75 73 68 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 27 66 6c 75 | ........(flush))).........(('flu |
| 92cc0 | 73 68 20 65 78 29 0a 20 20 20 20 20 20 20 20 20 28 66 6c 75 73 68 29 0a 20 20 20 20 20 20 20 20 | sh.ex)..........(flush)......... |
| 92ce0 | 20 28 21 20 65 78 63 68 61 6e 67 65 20 28 61 73 20 3c 65 78 63 68 61 6e 67 65 72 3e 20 65 78 29 | .(!.exchange.(as.<exchanger>.ex) |
| 92d00 | 20 23 21 6e 75 6c 6c 29 29 0a 20 20 20 20 20 20 20 20 28 27 63 6c 6f 73 65 0a 20 20 20 20 20 20 | .#!null)).........('close....... |
| 92d20 | 20 20 20 28 73 65 74 20 63 6c 6f 73 65 64 20 23 74 29 0a 20 20 20 20 20 20 20 20 20 28 66 6c 75 | ...(set.closed.#t)..........(flu |
| 92d40 | 73 68 29 29 29 29 29 29 0a 0a 28 64 66 20 6d 61 6b 65 2d 73 77 61 6e 6b 2d 6f 75 74 70 6f 72 74 | sh))))))..(df.make-swank-outport |
| 92d60 | 20 28 28 6f 75 74 20 3c 63 68 61 6e 3e 29 29 0a 20 20 28 6c 65 74 20 28 28 77 20 28 3c 73 77 61 | .((out.<chan>))...(let.((w.(<swa |
| 92d80 | 6e 6b 2d 77 72 69 74 65 72 3e 29 29 29 0a 20 20 20 20 28 6d 6c 65 74 20 28 28 69 6e 20 2e 20 5f | nk-writer>))).....(mlet.((in..._ |
| 92da0 | 29 20 28 73 70 61 77 6e 2f 63 68 61 6e 20 28 66 75 6e 20 28 63 29 20 28 73 77 61 6e 6b 2d 77 72 | ).(spawn/chan.(fun.(c).(swank-wr |
| 92dc0 | 69 74 65 72 20 63 20 28 40 20 71 20 77 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 6e 64 20 69 | iter.c.(@.q.w))))).......(send.i |
| 92de0 | 6e 20 6f 75 74 29 29 0a 20 20 20 20 28 3c 6f 75 74 2d 70 6f 72 74 3e 20 77 20 20 23 74 20 23 74 | n.out)).....(<out-port>.w..#t.#t |
| 92e00 | 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 6f 6e 69 74 6f 72 0a 0a 3b 3b 28 64 65 66 69 6e 65 2d 73 | )))....;;;;.Monitor..;;(define-s |
| 92e20 | 69 6d 70 6c 65 2d 63 6c 61 73 73 20 3c 6d 6f 6e 69 74 6f 72 73 74 61 74 65 3e 20 28 29 0a 3b 3b | imple-class.<monitorstate>.().;; |
| 92e40 | 20 20 28 74 68 72 65 61 64 6d 61 70 20 74 79 70 65 3a 20 28 74 61 62 29 29 29 0a 0a 28 64 66 20 | ..(threadmap.type:.(tab)))..(df. |
| 92e60 | 76 6d 2d 6d 6f 6e 69 74 6f 72 20 28 28 63 20 3c 63 68 61 6e 3e 29 29 0a 20 20 28 21 20 73 65 74 | vm-monitor.((c.<chan>))...(!.set |
| 92e80 | 2d 6e 61 6d 65 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 22 73 77 61 6e 6b 2d 76 6d | -name.(current-thread)."swank-vm |
| 92ea0 | 2d 6d 6f 6e 69 74 6f 72 22 29 0a 20 20 28 6c 65 74 20 28 28 76 6d 20 28 76 6d 2d 61 74 74 61 63 | -monitor")...(let.((vm.(vm-attac |
| 92ec0 | 68 29 29 29 0a 20 20 20 20 28 6c 6f 67 2d 76 6d 2d 70 72 6f 70 73 20 76 6d 29 0a 20 20 20 20 28 | h))).....(log-vm-props.vm).....( |
| 92ee0 | 72 65 71 75 65 73 74 2d 62 72 65 61 6b 70 6f 69 6e 74 20 76 6d 29 0a 20 20 20 20 28 6d 6c 65 74 | request-breakpoint.vm).....(mlet |
| 92f00 | 2a 20 28 28 28 65 76 20 2e 20 5f 29 20 28 73 70 61 77 6e 2f 63 68 61 6e 2f 63 61 74 63 68 0a 20 | *.(((ev..._).(spawn/chan/catch.. |
| 92f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 63 29 0a 20 | ......................(fun.(c).. |
| 92f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 71 | ........................(let.((q |
| 92f60 | 20 28 21 20 65 76 65 6e 74 51 75 65 75 65 20 76 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(!.eventQueue.vm)))............ |
| 92f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 23 74 0a 20 20 20 20 20 20 | ................(while.#t....... |
| 92fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 63 20 60 | .......................(send.c.` |
| 92fc0 | 28 76 6d 2d 65 76 65 6e 74 20 2c 28 74 6f 2d 6c 69 73 74 20 28 21 20 72 65 6d 6f 76 65 20 71 29 | (vm-event.,(to-list.(!.remove.q) |
| 92fe0 | 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 6f 2d 73 74 72 69 6e 67 20 | )))))))).............(to-string. |
| 93000 | 28 76 6d 2d 74 6f 2d 73 74 72 69 6e 67 20 76 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | (vm-to-string.vm)).............( |
| 93020 | 73 74 61 74 65 20 28 74 61 62 29 29 29 0a 20 20 20 20 20 20 28 73 65 6e 64 20 63 20 60 28 70 75 | state.(tab))).......(send.c.`(pu |
| 93040 | 62 6c 69 73 68 2d 76 6d 20 2c 76 6d 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 23 74 0a 20 | blish-vm.,vm)).......(while.#t.. |
| 93060 | 20 20 20 20 20 20 20 28 6d 63 61 73 65 20 28 72 65 63 76 2a 20 28 6c 69 73 74 20 63 20 65 76 29 | .......(mcase.(recv*.(list.c.ev) |
| 93080 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 2e 20 28 27 67 65 74 2d 76 6d 20 63 63 29 29 0a | )...........((_...('get-vm.cc)). |
| 930a0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 63 63 20 76 6d 29 29 0a 20 20 20 20 20 20 20 | ...........(send.cc.vm))........ |
| 930c0 | 20 20 20 28 28 2c 63 20 2e 20 28 27 64 65 62 75 67 2d 69 6e 66 6f 20 74 68 72 65 61 64 20 66 72 | ...((,c...('debug-info.thread.fr |
| 930e0 | 6f 6d 20 74 6f 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 79 20 63 20 28 | om.to.id))............(reply.c.( |
| 93100 | 64 65 62 75 67 2d 69 6e 66 6f 20 74 68 72 65 61 64 20 66 72 6f 6d 20 74 6f 20 73 74 61 74 65 29 | debug-info.thread.from.to.state) |
| 93120 | 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 2c 63 20 2e 20 28 27 74 68 72 6f 77 2d 74 | .id))...........((,c...('throw-t |
| 93140 | 6f 2d 74 6f 70 6c 65 76 65 6c 20 74 68 72 65 61 64 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 | o-toplevel.thread.id)).......... |
| 93160 | 20 20 28 73 65 74 20 73 74 61 74 65 20 28 74 68 72 6f 77 2d 74 6f 2d 74 6f 70 6c 65 76 65 6c 20 | ..(set.state.(throw-to-toplevel. |
| 93180 | 74 68 72 65 61 64 20 69 64 20 63 20 73 74 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | thread.id.c.state)))...........( |
| 931a0 | 28 2c 63 20 2e 20 28 27 74 68 72 65 61 64 2d 63 6f 6e 74 69 6e 75 65 20 74 68 72 65 61 64 20 69 | (,c...('thread-continue.thread.i |
| 931c0 | 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 73 74 61 74 65 20 28 74 68 72 65 61 | d))............(set.state.(threa |
| 931e0 | 64 2d 63 6f 6e 74 69 6e 75 65 20 74 68 72 65 61 64 20 69 64 20 63 20 73 74 61 74 65 29 29 29 0a | d-continue.thread.id.c.state))). |
| 93200 | 20 20 20 20 20 20 20 20 20 20 28 28 2c 63 20 2e 20 28 27 66 72 61 6d 65 2d 73 72 63 2d 6c 6f 63 | ..........((,c...('frame-src-loc |
| 93220 | 20 74 68 72 65 61 64 20 66 72 61 6d 65 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 | .thread.frame.id))............(r |
| 93240 | 65 70 6c 79 20 63 20 28 66 72 61 6d 65 2d 73 72 63 2d 6c 6f 63 20 74 68 72 65 61 64 20 66 72 61 | eply.c.(frame-src-loc.thread.fra |
| 93260 | 6d 65 20 73 74 61 74 65 29 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 2c 63 20 2e 20 | me.state).id))...........((,c... |
| 93280 | 28 27 66 72 61 6d 65 2d 64 65 74 61 69 6c 73 20 74 68 72 65 61 64 20 66 72 61 6d 65 20 69 64 29 | ('frame-details.thread.frame.id) |
| 932a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 79 20 63 20 28 6c 69 73 74 20 28 66 72 61 | )............(reply.c.(list.(fra |
| 932c0 | 6d 65 2d 6c 6f 63 61 6c 73 20 74 68 72 65 61 64 20 66 72 61 6d 65 20 73 74 61 74 65 29 20 27 28 | me-locals.thread.frame.state).'( |
| 932e0 | 29 29 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 2c 63 20 2e 20 28 27 64 69 73 61 73 | )).id))...........((,c...('disas |
| 93300 | 73 65 6d 62 6c 65 2d 66 72 61 6d 65 20 74 68 72 65 61 64 20 66 72 61 6d 65 20 69 64 29 29 0a 20 | semble-frame.thread.frame.id)).. |
| 93320 | 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 79 20 63 20 28 64 69 73 61 73 73 65 6d 62 6c 65 2d | ..........(reply.c.(disassemble- |
| 93340 | 66 72 61 6d 65 20 74 68 72 65 61 64 20 66 72 61 6d 65 20 73 74 61 74 65 29 20 69 64 29 29 0a 20 | frame.thread.frame.state).id)).. |
| 93360 | 20 20 20 20 20 20 20 20 20 28 28 2c 63 20 2e 20 28 27 74 68 72 65 61 64 2d 66 72 61 6d 65 73 20 | .........((,c...('thread-frames. |
| 93380 | 74 68 72 65 61 64 20 66 72 6f 6d 20 74 6f 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | thread.from.to.id))............( |
| 933a0 | 72 65 70 6c 79 20 63 20 28 74 68 72 65 61 64 2d 66 72 61 6d 65 73 20 74 68 72 65 61 64 20 66 72 | reply.c.(thread-frames.thread.fr |
| 933c0 | 6f 6d 20 74 6f 20 73 74 61 74 65 29 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 2c 63 | om.to.state).id))...........((,c |
| 933e0 | 20 2e 20 28 27 6c 69 73 74 2d 74 68 72 65 61 64 73 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 | ...('list-threads.id)).......... |
| 93400 | 20 20 28 72 65 70 6c 79 20 63 20 28 6c 69 73 74 2d 74 68 72 65 61 64 73 20 76 6d 20 73 74 61 74 | ..(reply.c.(list-threads.vm.stat |
| 93420 | 65 29 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 2c 63 20 2e 20 28 27 69 6e 74 65 72 | e).id))...........((,c...('inter |
| 93440 | 72 75 70 74 2d 74 68 72 65 61 64 20 72 65 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | rupt-thread.ref))............(se |
| 93460 | 74 20 73 74 61 74 65 20 28 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 72 65 66 20 73 74 | t.state.(interrupt-thread.ref.st |
| 93480 | 61 74 65 20 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 2c 63 20 2e 20 28 27 64 65 62 75 | ate.c)))...........((,c...('debu |
| 934a0 | 67 2d 6e 74 68 2d 74 68 72 65 61 64 20 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | g-nth-thread.n))............(let |
| 934c0 | 20 28 28 74 20 28 6e 74 68 20 28 67 65 74 20 73 74 61 74 65 20 27 61 6c 6c 2d 74 68 72 65 61 64 | .((t.(nth.(get.state.'all-thread |
| 934e0 | 73 20 23 66 29 20 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 6c 6f 67 20 22 | s.#f).n)))..............;;(log." |
| 93500 | 74 68 72 65 61 64 20 7e 64 20 3a 20 7e 61 5c 6e 22 20 6e 20 74 29 0a 20 20 20 20 20 20 20 20 20 | thread.~d.:.~a\n".n.t).......... |
| 93520 | 20 20 20 20 28 73 65 74 20 73 74 61 74 65 20 28 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 | ....(set.state.(interrupt-thread |
| 93540 | 20 74 20 73 74 61 74 65 20 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 2c 63 20 2e 20 | .t.state.c))))...........((,c... |
| 93560 | 28 27 71 75 69 74 2d 74 68 72 65 61 64 2d 62 72 6f 77 73 65 72 20 69 64 29 29 0a 20 20 20 20 20 | ('quit-thread-browser.id))...... |
| 93580 | 20 20 20 20 20 20 28 72 65 70 6c 79 20 63 20 27 74 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 | ......(reply.c.'t.id)........... |
| 935a0 | 20 28 73 65 74 20 73 74 61 74 65 20 28 64 65 6c 20 73 74 61 74 65 20 27 61 6c 6c 2d 74 68 72 65 | .(set.state.(del.state.'all-thre |
| 935c0 | 61 64 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 2c 65 76 20 2e 20 28 27 76 6d 2d 65 76 | ads)))...........((,ev...('vm-ev |
| 935e0 | 65 6e 74 20 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 6c 6f 67 20 22 76 6d 2d 65 | ent.es))............;;(log."vm-e |
| 93600 | 76 65 6e 74 73 3a 20 6c 65 6e 3d 7e 61 5c 6e 22 20 28 6c 65 6e 20 65 73 29 29 0a 20 20 20 20 20 | vents:.len=~a\n".(len.es))...... |
| 93620 | 20 20 20 20 20 20 28 66 6f 72 20 28 28 28 65 20 3a 3a 20 3c 65 76 65 6e 74 3e 29 20 28 61 73 20 | ......(for.(((e.::.<event>).(as. |
| 93640 | 3c 6c 69 73 74 3e 20 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 73 | <list>.es)))..............(set.s |
| 93660 | 74 61 74 65 20 28 70 72 6f 63 65 73 73 2d 76 6d 2d 65 76 65 6e 74 20 65 20 63 20 73 74 61 74 65 | tate.(process-vm-event.e.c.state |
| 93680 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 20 2e 20 28 27 67 65 74 2d 65 78 63 65 70 | ))))...........((_...('get-excep |
| 936a0 | 74 69 6f 6e 20 66 72 6f 6d 20 74 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 6c 65 74 | tion.from.tid))............(mlet |
| 936c0 | 20 28 28 5f 20 5f 20 65 73 29 20 28 67 65 74 20 73 74 61 74 65 20 74 69 64 20 23 66 29 29 0a 20 | .((_._.es).(get.state.tid.#f)).. |
| 936e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 66 72 6f 6d 20 28 6c 65 74 20 28 28 65 20 | ............(send.from.(let.((e. |
| 93700 | 28 63 61 72 20 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (car.es)))...................... |
| 93720 | 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(typecase.e................ |
| 93740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 65 78 63 65 70 74 69 6f 6e 2d 65 76 65 6e 74 3e 20 | .............(<exception-event>. |
| 93760 | 28 21 20 65 78 63 65 70 74 69 6f 6e 20 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (!.exception.e))................ |
| 93780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 65 76 65 6e 74 3e 20 65 29 29 29 29 29 29 0a 20 20 | .............(<event>.e))))))... |
| 937a0 | 20 20 20 20 20 20 20 20 28 28 5f 20 2e 20 28 27 67 65 74 2d 6c 6f 63 61 6c 20 72 63 20 74 69 64 | ........((_...('get-local.rc.tid |
| 937c0 | 20 66 72 61 6d 65 20 76 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 72 63 | .frame.var))............(send.rc |
| 937e0 | 20 28 66 72 61 6d 65 2d 6c 6f 63 61 6c 2d 76 61 72 20 74 69 64 20 66 72 61 6d 65 20 76 61 72 20 | .(frame-local-var.tid.frame.var. |
| 93800 | 73 74 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 29 29 29 29 29 0a 0a 28 64 66 20 72 65 | state)))...........)))))..(df.re |
| 93820 | 70 6c 79 20 28 28 63 20 3c 63 68 61 6e 3e 29 20 76 61 6c 75 65 20 69 64 29 0a 20 20 28 73 65 6e | ply.((c.<chan>).value.id)...(sen |
| 93840 | 64 20 63 20 60 28 66 6f 72 77 61 72 64 20 28 3a 72 65 74 75 72 6e 20 28 3a 6f 6b 20 2c 76 61 6c | d.c.`(forward.(:return.(:ok.,val |
| 93860 | 75 65 29 20 2c 69 64 29 29 29 29 0a 0a 28 64 66 20 72 65 70 6c 79 2d 61 62 6f 72 74 20 28 28 63 | ue).,id))))..(df.reply-abort.((c |
| 93880 | 20 3c 63 68 61 6e 3e 29 20 69 64 29 0a 20 20 28 73 65 6e 64 20 63 20 60 28 66 6f 72 77 61 72 64 | .<chan>).id)...(send.c.`(forward |
| 938a0 | 20 28 3a 72 65 74 75 72 6e 20 28 3a 61 62 6f 72 74 20 6e 69 6c 29 20 2c 69 64 29 29 29 29 0a 0a | .(:return.(:abort.nil).,id)))).. |
| 938c0 | 28 64 66 20 70 72 6f 63 65 73 73 2d 76 6d 2d 65 76 65 6e 74 20 28 28 65 20 3c 65 76 65 6e 74 3e | (df.process-vm-event.((e.<event> |
| 938e0 | 29 20 28 63 20 3c 63 68 61 6e 3e 29 20 73 74 61 74 65 29 0a 20 20 3b 3b 28 6c 6f 67 20 22 76 6d | ).(c.<chan>).state)...;;(log."vm |
| 93900 | 2d 65 76 65 6e 74 3a 20 7e 73 5c 6e 22 20 65 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 65 0a 20 | -event:.~s\n".e)...(typecase.e.. |
| 93920 | 20 20 20 28 3c 65 78 63 65 70 74 69 6f 6e 2d 65 76 65 6e 74 3e 0a 20 20 20 20 20 3b 3b 28 6c 6f | ...(<exception-event>......;;(lo |
| 93940 | 67 20 22 65 78 63 65 70 74 69 6f 6e 3a 20 7e 73 5c 6e 22 20 28 21 20 65 78 63 65 70 74 69 6f 6e | g."exception:.~s\n".(!.exception |
| 93960 | 20 65 29 29 0a 20 20 20 20 20 3b 3b 28 6c 6f 67 20 22 65 78 63 65 70 74 69 6f 6e 2d 6d 65 73 73 | .e))......;;(log."exception-mess |
| 93980 | 61 67 65 3a 20 7e 73 5c 6e 22 0a 20 20 20 20 20 3b 3b 20 20 20 20 20 28 65 78 63 65 70 74 69 6f | age:.~s\n"......;;.....(exceptio |
| 939a0 | 6e 2d 6d 65 73 73 61 67 65 20 28 76 6d 2d 64 65 6d 69 72 72 6f 72 20 2a 74 68 65 2d 76 6d 2a 20 | n-message.(vm-demirror.*the-vm*. |
| 939c0 | 28 21 20 65 78 63 65 70 74 69 6f 6e 20 65 29 29 29 29 0a 20 20 20 20 20 3b 3b 28 6c 6f 67 20 22 | (!.exception.e))))......;;(log." |
| 939e0 | 65 78 63 65 70 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 3a 20 7e 73 5c 6e 22 20 28 73 72 63 2d 6c | exception-location:.~s\n".(src-l |
| 93a00 | 6f 63 3e 73 74 72 20 28 21 20 6c 6f 63 61 74 69 6f 6e 20 65 29 29 29 0a 20 20 20 20 20 3b 3b 28 | oc>str.(!.location.e)))......;;( |
| 93a20 | 6c 6f 67 20 22 65 78 63 65 70 74 69 6f 6e 2d 63 61 74 63 68 2d 6c 6f 63 61 74 69 6f 6e 3a 20 7e | log."exception-catch-location:.~ |
| 93a40 | 73 5c 6e 22 20 28 73 72 63 2d 6c 6f 63 3e 73 74 72 20 28 21 20 63 61 74 63 68 2d 6c 6f 63 61 74 | s\n".(src-loc>str.(!.catch-locat |
| 93a60 | 69 6f 6e 20 65 29 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 21 20 6e 6f 74 69 66 79 55 6e | ion.e)))......(cond.((!.notifyUn |
| 93a80 | 63 61 75 67 68 74 20 28 61 73 20 3c 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 72 65 71 75 65 73 74 2e | caught.(as.<com.sun.jdi.request. |
| 93aa0 | 45 78 63 65 70 74 69 6f 6e 52 65 71 75 65 73 74 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ExceptionRequest>............... |
| 93ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 72 65 71 75 65 73 74 20 65 | ....................(!.request.e |
| 93ae0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 65 78 63 65 70 74 69 | ))).............(process-excepti |
| 93b00 | 6f 6e 20 65 20 63 20 73 74 61 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 23 74 0a 20 20 | on.e.c.state))............(#t... |
| 93b20 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 20 28 21 20 74 68 72 65 61 64 20 65 29 | ..........(let*.((t.(!.thread.e) |
| 93b40 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 20 28 21 20 72 65 71 75 65 | )....................(r.(!.reque |
| 93b60 | 73 74 20 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 20 28 21 | st.e))....................(ex.(! |
| 93b80 | 20 65 78 63 65 70 74 69 6f 6e 20 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 | .exception.e)))...............(u |
| 93ba0 | 6e 6c 65 73 73 20 28 65 71 3f 20 2a 6c 61 73 74 2d 65 78 63 65 70 74 69 6f 6e 2a 20 65 78 29 0a | nless.(eq?.*last-exception*.ex). |
| 93bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 2a 6c 61 73 74 2d 65 78 63 65 70 | ................(set.*last-excep |
| 93be0 | 74 69 6f 6e 2a 20 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 2a | tion*.ex).................(set.* |
| 93c00 | 6c 61 73 74 2d 73 74 61 63 6b 74 72 61 63 65 2a 20 20 28 63 6f 70 79 2d 73 74 61 63 6b 20 74 29 | last-stacktrace*..(copy-stack.t) |
| 93c20 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 72 65 73 75 6d 65 20 74 29 29 0a 20 | ))...............(!.resume.t)).. |
| 93c40 | 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 29 29 29 0a 20 20 20 20 28 3c 73 74 65 70 2d 65 | ...........state))).....(<step-e |
| 93c60 | 76 65 6e 74 3e 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 72 20 28 21 20 72 65 71 75 65 73 74 20 | vent>......(let*.((r.(!.request. |
| 93c80 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 20 28 21 20 67 65 74 2d 70 72 6f 70 65 72 | e)).............(k.(!.get-proper |
| 93ca0 | 74 79 20 72 20 27 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 28 21 20 | ty.r.'continuation)))........(!. |
| 93cc0 | 64 69 73 61 62 6c 65 20 72 29 0a 20 20 20 20 20 20 20 28 6c 6f 67 20 22 6b 3a 20 7e 73 5c 6e 22 | disable.r)........(log."k:.~s\n" |
| 93ce0 | 20 6b 29 0a 20 20 20 20 20 20 20 28 6b 20 65 29 29 0a 20 20 20 20 20 73 74 61 74 65 29 0a 20 20 | .k)........(k.e))......state)... |
| 93d00 | 20 20 28 3c 62 72 65 61 6b 70 6f 69 6e 74 2d 65 76 65 6e 74 3e 0a 20 20 20 20 20 28 6c 6f 67 20 | ..(<breakpoint-event>......(log. |
| 93d20 | 22 62 72 65 61 6b 70 6f 69 6e 74 20 65 76 65 6e 74 3a 20 7e 61 5c 6e 22 20 65 29 0a 20 20 20 20 | "breakpoint.event:.~a\n".e)..... |
| 93d40 | 20 28 64 65 62 75 67 2d 74 68 72 65 61 64 20 28 21 20 74 68 72 65 61 64 20 65 29 20 65 20 73 74 | .(debug-thread.(!.thread.e).e.st |
| 93d60 | 61 74 65 20 63 29 29 0a 20 20 20 20 29 29 0a 0a 28 64 66 20 70 72 6f 63 65 73 73 2d 65 78 63 65 | ate.c)).....))..(df.process-exce |
| 93d80 | 70 74 69 6f 6e 20 28 28 65 20 3c 65 78 63 65 70 74 69 6f 6e 2d 65 76 65 6e 74 3e 29 20 28 63 20 | ption.((e.<exception-event>).(c. |
| 93da0 | 3c 63 68 61 6e 3e 29 20 73 74 61 74 65 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 74 72 65 66 20 | <chan>).state).....(let*.((tref. |
| 93dc0 | 28 21 20 74 68 72 65 61 64 20 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 69 64 20 28 21 | (!.thread.e))............(tid.(! |
| 93de0 | 20 75 6e 69 71 75 65 49 44 20 74 72 65 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 20 28 | .uniqueID.tref))............(s.( |
| 93e00 | 67 65 74 20 73 74 61 74 65 20 74 69 64 20 23 66 29 29 29 0a 20 20 20 20 20 20 28 6d 63 61 73 65 | get.state.tid.#f))).......(mcase |
| 93e20 | 20 73 0a 20 20 20 20 20 20 20 20 28 27 23 66 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 58 58 58 20 | .s.........('#f..........;;.XXX. |
| 93e40 | 72 65 64 75 6e 64 61 6e 74 20 69 6e 20 64 65 62 75 67 2d 74 68 72 65 61 64 0a 20 20 20 20 20 20 | redundant.in.debug-thread....... |
| 93e60 | 20 20 20 28 6c 65 74 2a 20 28 28 6c 65 76 65 6c 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...(let*.((level.1)............. |
| 93e80 | 20 20 20 20 28 73 74 61 74 65 20 28 70 75 74 20 73 74 61 74 65 20 74 69 64 20 28 6c 69 73 74 20 | ....(state.(put.state.tid.(list. |
| 93ea0 | 74 72 65 66 20 6c 65 76 65 6c 20 28 6c 69 73 74 20 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 | tref.level.(list.e)))))......... |
| 93ec0 | 20 20 20 28 73 65 6e 64 20 63 20 60 28 66 6f 72 77 61 72 64 20 28 3a 64 65 62 75 67 20 2c 74 69 | ...(send.c.`(forward.(:debug.,ti |
| 93ee0 | 64 20 2c 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.,level........................ |
| 93f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 64 65 62 75 67 2d 69 6e 66 6f 20 74 69 64 20 | ..............,@(debug-info.tid. |
| 93f20 | 30 20 31 35 20 73 74 61 74 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 | 0.15.state))))............(send. |
| 93f40 | 63 20 60 28 66 6f 72 77 61 72 64 20 28 3a 64 65 62 75 67 2d 61 63 74 69 76 61 74 65 20 2c 74 69 | c.`(forward.(:debug-activate.,ti |
| 93f60 | 64 20 2c 6c 65 76 65 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 29 29 0a 20 | d.,level)))............state)).. |
| 93f80 | 20 20 20 20 20 20 20 28 28 5f 20 6c 65 76 65 6c 20 65 78 73 29 0a 20 20 20 20 20 20 20 20 20 28 | .......((_.level.exs)..........( |
| 93fa0 | 73 65 6e 64 20 63 20 60 28 66 6f 72 77 61 72 64 20 28 3a 64 65 62 75 67 2d 61 63 74 69 76 61 74 | send.c.`(forward.(:debug-activat |
| 93fc0 | 65 20 2c 28 21 20 75 6e 69 71 75 65 49 44 20 74 72 65 66 29 20 2c 6c 65 76 65 6c 29 29 29 0a 20 | e.,(!.uniqueID.tref).,level))).. |
| 93fe0 | 20 20 20 20 20 20 20 20 28 70 75 74 20 73 74 61 74 65 20 74 69 64 20 28 6c 69 73 74 20 74 72 65 | ........(put.state.tid.(list.tre |
| 94000 | 66 20 28 31 2b 20 6c 65 76 65 6c 29 20 28 63 6f 6e 73 20 65 20 65 78 73 29 29 29 29 29 29 29 0a | f.(1+.level).(cons.e.exs))))))). |
| 94020 | 0a 28 64 65 66 69 6e 65 2d 73 69 6d 70 6c 65 2d 63 6c 61 73 73 20 3c 66 61 6b 65 64 2d 66 72 61 | .(define-simple-class.<faked-fra |
| 94040 | 6d 65 3e 20 28 29 0a 20 20 28 6c 6f 63 20 3a 3a 20 3c 6c 6f 63 61 74 69 6f 6e 3e 29 0a 20 20 28 | me>.()...(loc.::.<location>)...( |
| 94060 | 61 72 67 73 29 0a 20 20 28 6e 61 6d 65 73 29 0a 20 20 28 76 61 6c 75 65 73 20 3a 3a 20 3c 6a 61 | args)...(names)...(values.::.<ja |
| 94080 | 76 61 2e 75 74 69 6c 2e 4d 61 70 3e 29 0a 20 20 28 73 65 6c 66 29 0a 20 20 28 28 2a 69 6e 69 74 | va.util.Map>)...(self)...((*init |
| 940a0 | 2a 20 28 6c 6f 63 20 3a 3a 20 3c 6c 6f 63 61 74 69 6f 6e 3e 29 20 61 72 67 73 20 6e 61 6d 65 73 | *.(loc.::.<location>).args.names |
| 940c0 | 20 28 76 61 6c 75 65 73 20 3a 3a 20 3c 6a 61 76 61 2e 75 74 69 6c 2e 4d 61 70 3e 29 20 73 65 6c | .(values.::.<java.util.Map>).sel |
| 940e0 | 66 29 0a 20 20 20 28 73 65 74 20 28 40 20 6c 6f 63 20 28 74 68 69 73 29 29 20 6c 6f 63 29 0a 20 | f)....(set.(@.loc.(this)).loc).. |
| 94100 | 20 20 28 73 65 74 20 28 40 20 61 72 67 73 20 28 74 68 69 73 29 29 20 61 72 67 73 29 0a 20 20 20 | ..(set.(@.args.(this)).args).... |
| 94120 | 28 73 65 74 20 28 40 20 6e 61 6d 65 73 20 28 74 68 69 73 29 29 20 6e 61 6d 65 73 29 0a 20 20 20 | (set.(@.names.(this)).names).... |
| 94140 | 28 73 65 74 20 28 40 20 76 61 6c 75 65 73 20 28 74 68 69 73 29 29 20 76 61 6c 75 65 73 29 0a 20 | (set.(@.values.(this)).values).. |
| 94160 | 20 20 28 73 65 74 20 28 40 20 73 65 6c 66 20 28 74 68 69 73 29 29 20 73 65 6c 66 29 29 0a 20 20 | ..(set.(@.self.(this)).self))... |
| 94180 | 28 28 74 6f 53 74 72 69 6e 67 29 20 3a 3a 20 3c 73 74 72 3e 0a 20 20 20 28 66 6f 72 6d 61 74 20 | ((toString).::.<str>....(format. |
| 941a0 | 22 23 3c 66 66 20 7e 61 3e 22 20 28 73 72 63 2d 6c 6f 63 3e 73 74 72 20 6c 6f 63 29 29 29 29 0a | "#<ff.~a>".(src-loc>str.loc)))). |
| 941c0 | 0a 28 64 66 20 63 6f 70 79 2d 73 74 61 63 6b 20 28 28 74 20 3c 74 68 72 65 61 64 2d 72 65 66 3e | .(df.copy-stack.((t.<thread-ref> |
| 941e0 | 29 29 0a 20 20 28 70 61 63 6b 69 6e 67 20 28 70 61 63 6b 29 0a 20 20 20 20 28 69 74 65 72 20 28 | ))...(packing.(pack).....(iter.( |
| 94200 | 21 20 66 72 61 6d 65 73 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 28 66 20 3c | !.frames.t)...........(fun.((f.< |
| 94220 | 66 72 61 6d 65 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 72 73 | frame>)).............(let.((vars |
| 94240 | 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 21 20 76 69 73 69 62 6c 65 56 61 72 69 61 62 | .(ignore-errors.(!.visibleVariab |
| 94260 | 6c 65 73 20 66 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 3c | les.f))))...............(pack.(< |
| 94280 | 66 61 6b 65 64 2d 66 72 61 6d 65 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | faked-frame>.................... |
| 942a0 | 20 20 28 6f 72 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 21 20 6c 6f 63 61 74 69 6f 6e | ..(or.(ignore-errors.(!.location |
| 942c0 | 20 66 29 29 20 23 21 6e 75 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .f)).#!null).................... |
| 942e0 | 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 21 20 67 65 74 41 72 67 75 6d 65 6e 74 56 | ..(ignore-errors.(!.getArgumentV |
| 94300 | 61 6c 75 65 73 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | alues.f))......................( |
| 94320 | 6f 72 20 76 61 72 73 20 23 21 6e 75 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | or.vars.#!null)................. |
| 94340 | 20 20 20 20 20 28 6f 72 20 28 61 6e 64 20 76 61 72 73 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 | .....(or.(and.vars.(ignore-error |
| 94360 | 73 20 28 21 20 67 65 74 2d 76 61 6c 75 65 73 20 66 20 76 61 72 73 29 29 29 0a 20 20 20 20 20 20 | s.(!.get-values.f.vars)))....... |
| 94380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 21 6e 75 6c 6c 29 0a 20 20 20 20 20 | ...................#!null)...... |
| 943a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 | ................(ignore-errors.( |
| 943c0 | 21 20 74 68 69 73 4f 62 6a 65 63 74 20 66 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 | !.thisObject.f)))))))))..(define |
| 943e0 | 2d 73 69 6d 70 6c 65 2d 63 6c 61 73 73 20 3c 69 6e 74 65 72 72 75 70 74 2d 65 76 65 6e 74 3e 20 | -simple-class.<interrupt-event>. |
| 94400 | 28 3c 65 76 65 6e 74 3e 29 0a 20 20 28 74 68 72 65 61 64 20 3a 3a 20 3c 74 68 72 65 61 64 2d 72 | (<event>)...(thread.::.<thread-r |
| 94420 | 65 66 3e 29 0a 20 20 28 28 2a 69 6e 69 74 2a 20 28 74 68 72 65 61 64 20 3a 3a 20 3c 74 68 72 65 | ef>)...((*init*.(thread.::.<thre |
| 94440 | 61 64 2d 72 65 66 3e 29 29 20 28 73 65 74 20 28 40 20 74 68 72 65 61 64 20 28 74 68 69 73 29 29 | ad-ref>)).(set.(@.thread.(this)) |
| 94460 | 20 74 68 72 65 61 64 29 29 0a 20 20 28 28 72 65 71 75 65 73 74 29 20 3a 3a 20 3c 63 6f 6d 2e 73 | .thread))...((request).::.<com.s |
| 94480 | 75 6e 2e 6a 64 69 2e 72 65 71 75 65 73 74 2e 45 76 65 6e 74 52 65 71 75 65 73 74 3e 20 23 21 6e | un.jdi.request.EventRequest>.#!n |
| 944a0 | 75 6c 6c 29 0a 20 20 28 28 76 69 72 74 75 61 6c 4d 61 63 68 69 6e 65 29 20 3a 3a 20 3c 76 6d 3e | ull)...((virtualMachine).::.<vm> |
| 944c0 | 20 28 21 20 76 69 72 74 75 61 6c 4d 61 63 68 69 6e 65 20 74 68 72 65 61 64 29 29 29 0a 0a 28 64 | .(!.virtualMachine.thread)))..(d |
| 944e0 | 66 20 62 72 65 61 6b 20 28 23 21 6f 70 74 69 6f 6e 61 6c 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 | f.break.(#!optional.condition).. |
| 94500 | 20 28 28 62 72 65 61 6b 70 6f 69 6e 74 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 0a 3b 3b 20 57 | .((breakpoint.condition)))..;;.W |
| 94520 | 65 20 73 65 74 20 61 20 62 72 65 61 6b 70 6f 69 6e 74 20 6f 6e 20 74 68 69 73 20 66 75 6e 63 74 | e.set.a.breakpoint.on.this.funct |
| 94540 | 69 6f 6e 2e 20 20 49 74 20 72 65 74 75 72 6e 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 63 | ion...It.returns.a.function.whic |
| 94560 | 68 0a 3b 3b 20 73 70 65 63 69 66 69 65 73 20 77 68 61 74 20 74 68 65 20 64 65 62 75 67 67 65 65 | h.;;.specifies.what.the.debuggee |
| 94580 | 20 73 68 6f 75 6c 64 20 64 6f 20 6e 65 78 74 20 28 74 68 65 20 61 63 74 75 61 6c 20 72 65 74 75 | .should.do.next.(the.actual.retu |
| 945a0 | 72 6e 20 76 61 6c 75 65 0a 3b 3b 20 69 73 20 73 65 74 20 76 69 61 20 4a 44 49 29 2e 20 20 4c 65 | rn.value.;;.is.set.via.JDI)...Le |
| 945c0 | 74 73 20 68 6f 70 65 20 74 68 61 74 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 64 6f 65 73 6e 27 | ts.hope.that.the.compiler.doesn' |
| 945e0 | 74 20 6f 70 74 69 6d 69 7a 65 20 74 68 69 73 0a 3b 3b 20 61 77 61 79 2e 0a 28 64 66 20 62 72 65 | t.optimize.this.;;.away..(df.bre |
| 94600 | 61 6b 70 6f 69 6e 74 20 28 63 6f 6e 64 69 74 69 6f 6e 20 3d 3e 20 3c 66 75 6e 63 74 69 6f 6e 3e | akpoint.(condition.=>.<function> |
| 94620 | 29 0a 20 20 28 66 75 6e 20 28 29 20 23 21 6e 75 6c 6c 29 29 0a 0a 3b 3b 20 45 6e 61 62 6c 65 20 | )...(fun.().#!null))..;;.Enable. |
| 94640 | 62 72 65 61 6b 70 6f 69 6e 74 73 20 65 76 65 6e 74 20 6f 6e 20 74 68 65 20 62 72 65 61 6b 70 6f | breakpoints.event.on.the.breakpo |
| 94660 | 69 6e 74 20 66 75 6e 63 74 69 6f 6e 2e 0a 28 64 66 20 72 65 71 75 65 73 74 2d 62 72 65 61 6b 70 | int.function..(df.request-breakp |
| 94680 | 6f 69 6e 74 20 28 28 76 6d 20 3c 76 6d 3e 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 77 61 6e 6b | oint.((vm.<vm>))...(let*.((swank |
| 946a0 | 2d 63 6c 61 73 73 65 73 20 28 21 20 63 6c 61 73 73 65 73 42 79 4e 61 6d 65 20 76 6d 20 22 73 77 | -classes.(!.classesByName.vm."sw |
| 946c0 | 61 6e 6b 2d 6b 61 77 61 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 63 6c 61 73 | ank-kawa"))..........(swank-clas |
| 946e0 | 73 65 73 2d 6c 65 67 61 63 79 20 28 21 20 63 6c 61 73 73 65 73 42 79 4e 61 6d 65 20 76 6d 20 22 | ses-legacy.(!.classesByName.vm." |
| 94700 | 73 77 61 6e 6b 24 4d 6e 6b 61 77 61 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6c 61 73 73 20 | swank$Mnkawa"))..........(class. |
| 94720 | 3a 3a 20 3c 63 6c 61 73 73 2d 74 79 70 65 3e 20 28 31 73 74 20 28 69 66 20 28 3d 20 28 6c 65 6e | ::.<class-type>.(1st.(if.(=.(len |
| 94740 | 67 74 68 20 73 77 61 6e 6b 2d 63 6c 61 73 73 65 73 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 | gth.swank-classes).0)........... |
| 94760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 | ...............................s |
| 94780 | 77 61 6e 6b 2d 63 6c 61 73 73 65 73 2d 6c 65 67 61 63 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | wank-classes-legacy............. |
| 947a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 61 | .............................swa |
| 947c0 | 6e 6b 2d 63 6c 61 73 73 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 74 68 20 3a 3a 20 | nk-classes)))..........(meth.::. |
| 947e0 | 3c 6d 65 74 68 2d 72 65 66 3e 20 28 31 73 74 20 28 21 20 6d 65 74 68 6f 64 73 42 79 4e 61 6d 65 | <meth-ref>.(1st.(!.methodsByName |
| 94800 | 20 63 6c 61 73 73 20 22 62 72 65 61 6b 70 6f 69 6e 74 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 | .class."breakpoint"))).......... |
| 94820 | 28 65 72 6d 20 28 21 20 65 76 65 6e 74 52 65 71 75 65 73 74 4d 61 6e 61 67 65 72 20 76 6d 29 29 | (erm.(!.eventRequestManager.vm)) |
| 94840 | 0a 20 20 20 20 20 20 20 20 20 28 72 65 71 20 28 21 20 63 72 65 61 74 65 42 72 65 61 6b 70 6f 69 | ..........(req.(!.createBreakpoi |
| 94860 | 6e 74 52 65 71 75 65 73 74 20 65 72 6d 20 28 21 20 6c 6f 63 61 74 69 6f 6e 20 6d 65 74 68 29 29 | ntRequest.erm.(!.location.meth)) |
| 94880 | 29 29 0a 20 20 20 20 28 21 20 73 65 74 53 75 73 70 65 6e 64 50 6f 6c 69 63 79 20 72 65 71 20 28 | )).....(!.setSuspendPolicy.req.( |
| 948a0 | 40 20 53 55 53 50 45 4e 44 5f 45 56 45 4e 54 5f 54 48 52 45 41 44 20 72 65 71 29 29 0a 20 20 20 | @.SUSPEND_EVENT_THREAD.req)).... |
| 948c0 | 20 28 21 20 70 75 74 2d 70 72 6f 70 65 72 74 79 20 72 65 71 20 27 73 77 61 6e 6b 20 23 74 29 0a | .(!.put-property.req.'swank.#t). |
| 948e0 | 20 20 20 20 28 21 20 70 75 74 2d 70 72 6f 70 65 72 74 79 20 72 65 71 20 27 61 72 67 6e 61 6d 65 | ....(!.put-property.req.'argname |
| 94900 | 20 22 63 6f 6e 64 69 74 69 6f 6e 22 29 0a 20 20 20 20 28 21 20 65 6e 61 62 6c 65 20 72 65 71 29 | ."condition").....(!.enable.req) |
| 94920 | 29 29 0a 0a 28 64 66 20 6c 6f 67 2d 76 6d 2d 70 72 6f 70 73 20 28 28 76 6d 20 3c 76 6d 3e 29 29 | ))..(df.log-vm-props.((vm.<vm>)) |
| 94940 | 0a 20 20 28 6c 65 74 72 65 63 2d 73 79 6e 74 61 78 20 28 28 70 20 28 73 79 6e 74 61 78 2d 72 75 | ...(letrec-syntax.((p.(syntax-ru |
| 94960 | 6c 65 73 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 | les.()........................(( |
| 94980 | 70 20 6e 61 6d 65 29 20 28 6c 6f 67 20 22 7e 73 3a 20 7e 73 5c 6e 22 20 27 6e 61 6d 65 20 28 21 | p.name).(log."~s:.~s\n".'name.(! |
| 949a0 | 20 6e 61 6d 65 20 76 6d 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .name.vm)))))................... |
| 949c0 | 28 70 2a 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (p*.(syntax-rules.()............ |
| 949e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 70 2a 20 6e 20 2e 2e 2e 29 20 28 73 65 71 20 28 70 | .............((p*.n....).(seq.(p |
| 94a00 | 20 6e 29 20 2e 2e 2e 29 29 29 29 29 0a 20 20 20 20 28 70 2a 20 63 61 6e 42 65 4d 6f 64 69 66 69 | .n)....))))).....(p*.canBeModifi |
| 94a20 | 65 64 0a 20 20 20 20 20 20 20 20 63 61 6e 52 65 64 65 66 69 6e 65 43 6c 61 73 73 65 73 0a 20 20 | ed.........canRedefineClasses... |
| 94a40 | 20 20 20 20 20 20 63 61 6e 41 64 64 4d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 63 61 6e 55 6e | ......canAddMethod.........canUn |
| 94a60 | 72 65 73 74 72 69 63 74 65 64 6c 79 52 65 64 65 66 69 6e 65 43 6c 61 73 73 65 73 0a 20 20 20 20 | restrictedlyRedefineClasses..... |
| 94a80 | 20 20 20 20 63 61 6e 47 65 74 42 79 74 65 63 6f 64 65 73 0a 20 20 20 20 20 20 20 20 63 61 6e 47 | ....canGetBytecodes.........canG |
| 94aa0 | 65 74 43 6f 6e 73 74 61 6e 74 50 6f 6f 6c 0a 20 20 20 20 20 20 20 20 63 61 6e 47 65 74 53 79 6e | etConstantPool.........canGetSyn |
| 94ac0 | 74 68 65 74 69 63 41 74 74 72 69 62 75 74 65 0a 20 20 20 20 20 20 20 20 63 61 6e 47 65 74 53 6f | theticAttribute.........canGetSo |
| 94ae0 | 75 72 63 65 44 65 62 75 67 45 78 74 65 6e 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 63 61 6e 50 6f | urceDebugExtension.........canPo |
| 94b00 | 70 46 72 61 6d 65 73 0a 20 20 20 20 20 20 20 20 63 61 6e 46 6f 72 63 65 45 61 72 6c 79 52 65 74 | pFrames.........canForceEarlyRet |
| 94b20 | 75 72 6e 0a 20 20 20 20 20 20 20 20 63 61 6e 47 65 74 4d 65 74 68 6f 64 52 65 74 75 72 6e 56 61 | urn.........canGetMethodReturnVa |
| 94b40 | 6c 75 65 73 0a 20 20 20 20 20 20 20 20 63 61 6e 47 65 74 49 6e 73 74 61 6e 63 65 49 6e 66 6f 0a | lues.........canGetInstanceInfo. |
| 94b60 | 20 20 20 20 20 20 20 20 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 44 65 62 75 67 67 65 72 0a 0a 28 64 66 | ........)))..;;;;;.Debugger..(df |
| 94b80 | 20 64 65 62 75 67 2d 74 68 72 65 61 64 20 28 28 74 72 65 66 20 3c 74 68 72 65 61 64 2d 72 65 66 | .debug-thread.((tref.<thread-ref |
| 94ba0 | 3e 29 20 28 65 76 20 3c 65 76 65 6e 74 3e 29 20 73 74 61 74 65 20 28 63 20 3c 63 68 61 6e 3e 29 | >).(ev.<event>).state.(c.<chan>) |
| 94bc0 | 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 21 20 69 73 2d 73 75 73 70 65 6e 64 65 64 20 74 72 65 66 | )...(unless.(!.is-suspended.tref |
| 94be0 | 29 0a 20 20 20 20 28 21 20 73 75 73 70 65 6e 64 20 74 72 65 66 29 29 0a 20 20 28 6c 65 74 2a 20 | ).....(!.suspend.tref))...(let*. |
| 94c00 | 28 28 69 64 20 28 21 20 75 6e 69 71 75 65 49 44 20 74 72 65 66 29 29 0a 20 20 20 20 20 20 20 20 | ((id.(!.uniqueID.tref))......... |
| 94c20 | 20 28 6c 65 76 65 6c 20 31 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 61 74 65 20 28 70 75 74 20 | .(level.1)..........(state.(put. |
| 94c40 | 73 74 61 74 65 20 69 64 20 28 6c 69 73 74 20 74 72 65 66 20 6c 65 76 65 6c 20 28 6c 69 73 74 20 | state.id.(list.tref.level.(list. |
| 94c60 | 65 76 29 29 29 29 29 0a 20 20 20 20 28 73 65 6e 64 20 63 20 60 28 66 6f 72 77 61 72 64 20 28 3a | ev))))).....(send.c.`(forward.(: |
| 94c80 | 64 65 62 75 67 20 2c 69 64 20 2c 6c 65 76 65 6c 20 2c 40 28 64 65 62 75 67 2d 69 6e 66 6f 20 69 | debug.,id.,level.,@(debug-info.i |
| 94ca0 | 64 20 30 20 31 30 20 73 74 61 74 65 29 29 29 29 0a 20 20 20 20 28 73 65 6e 64 20 63 20 60 28 66 | d.0.10.state)))).....(send.c.`(f |
| 94cc0 | 6f 72 77 61 72 64 20 28 3a 64 65 62 75 67 2d 61 63 74 69 76 61 74 65 20 2c 69 64 20 2c 6c 65 76 | orward.(:debug-activate.,id.,lev |
| 94ce0 | 65 6c 29 29 29 0a 20 20 20 20 73 74 61 74 65 29 29 0a 0a 28 64 66 20 69 6e 74 65 72 72 75 70 74 | el))).....state))..(df.interrupt |
| 94d00 | 2d 74 68 72 65 61 64 20 28 28 74 72 65 66 20 3c 74 68 72 65 61 64 2d 72 65 66 3e 29 20 73 74 61 | -thread.((tref.<thread-ref>).sta |
| 94d20 | 74 65 20 28 63 20 3c 63 68 61 6e 3e 29 29 0a 20 20 28 64 65 62 75 67 2d 74 68 72 65 61 64 20 74 | te.(c.<chan>))...(debug-thread.t |
| 94d40 | 72 65 66 20 28 3c 69 6e 74 65 72 72 75 70 74 2d 65 76 65 6e 74 3e 20 74 72 65 66 29 20 73 74 61 | ref.(<interrupt-event>.tref).sta |
| 94d60 | 74 65 20 63 29 29 0a 0a 28 64 66 20 64 65 62 75 67 2d 69 6e 66 6f 20 28 28 74 69 64 20 3c 69 6e | te.c))..(df.debug-info.((tid.<in |
| 94d80 | 74 3e 29 20 28 66 72 6f 6d 20 3c 69 6e 74 3e 29 20 74 6f 20 73 74 61 74 65 29 0a 20 20 28 6d 6c | t>).(from.<int>).to.state)...(ml |
| 94da0 | 65 74 20 28 28 74 68 72 65 61 64 2d 72 65 66 20 6c 65 76 65 6c 20 65 76 73 29 20 28 67 65 74 20 | et.((thread-ref.level.evs).(get. |
| 94dc0 | 73 74 61 74 65 20 74 69 64 20 23 66 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 74 72 65 66 20 | state.tid.#f)).....(let*.((tref. |
| 94de0 | 28 61 73 20 3c 74 68 72 65 61 64 2d 72 65 66 3e 20 74 68 72 65 61 64 2d 72 65 66 29 29 0a 20 20 | (as.<thread-ref>.thread-ref))... |
| 94e00 | 20 20 20 20 20 20 20 20 20 28 76 6d 20 28 21 20 76 69 72 74 75 61 6c 4d 61 63 68 69 6e 65 20 74 | .........(vm.(!.virtualMachine.t |
| 94e20 | 72 65 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 76 20 28 61 73 20 3c 65 76 65 6e 74 3e | ref))............(ev.(as.<event> |
| 94e40 | 20 28 63 61 72 20 65 76 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 78 20 28 74 79 70 | .(car.evs)))............(ex.(typ |
| 94e60 | 65 63 61 73 65 20 65 76 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 62 72 65 61 | ecase.ev..................(<brea |
| 94e80 | 6b 70 6f 69 6e 74 2d 65 76 65 6e 74 3e 20 28 62 72 65 61 6b 70 6f 69 6e 74 2d 63 6f 6e 64 69 74 | kpoint-event>.(breakpoint-condit |
| 94ea0 | 69 6f 6e 20 65 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 65 78 63 65 | ion.ev))..................(<exce |
| 94ec0 | 70 74 69 6f 6e 2d 65 76 65 6e 74 3e 20 28 21 20 65 78 63 65 70 74 69 6f 6e 20 65 76 29 29 0a 20 | ption-event>.(!.exception.ev)).. |
| 94ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 69 6e 74 65 72 72 75 70 74 2d 65 76 65 6e | ................(<interrupt-even |
| 94f00 | 74 3e 20 28 3c 6a 61 76 61 2e 6c 61 6e 67 2e 45 78 63 65 70 74 69 6f 6e 3e 20 22 49 6e 74 65 72 | t>.(<java.lang.Exception>."Inter |
| 94f20 | 72 75 70 74 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 63 20 28 74 79 70 65 | rupt"))))............(desc.(type |
| 94f40 | 63 61 73 65 20 65 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 6f 62 6a | case.ex....................(<obj |
| 94f60 | 2d 72 65 66 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 6c 6f 67 | -ref>.....................;;(log |
| 94f80 | 20 22 65 78 3a 20 7e 61 20 7e 61 5c 6e 22 20 65 78 20 28 76 6d 2d 64 65 6d 69 72 72 6f 72 20 76 | ."ex:.~a.~a\n".ex.(vm-demirror.v |
| 94fa0 | 6d 20 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 74 6f | m.ex)).....................(!.to |
| 94fc0 | 53 74 72 69 6e 67 20 28 76 6d 2d 64 65 6d 69 72 72 6f 72 20 76 6d 20 65 78 29 29 29 0a 20 20 20 | String.(vm-demirror.vm.ex))).... |
| 94fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 6a 61 76 61 2e 6c 61 6e 67 2e 54 68 72 6f | ................(<java.lang.Thro |
| 95000 | 77 61 62 6c 65 3e 20 28 21 20 74 6f 53 74 72 69 6e 67 20 65 78 29 29 29 29 0a 20 20 20 20 20 20 | wable>.(!.toString.ex))))....... |
| 95020 | 20 20 20 20 20 28 74 79 70 65 20 28 66 6f 72 6d 61 74 20 22 20 20 5b 74 79 70 65 20 7e 61 5d 22 | .....(type.(format."..[type.~a]" |
| 95040 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 | ..........................(typec |
| 95060 | 61 73 65 20 65 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ase.ex.......................... |
| 95080 | 20 20 28 3c 6f 62 6a 2d 72 65 66 3e 20 28 21 20 6e 61 6d 65 20 28 21 20 72 65 66 65 72 65 6e 63 | ..(<obj-ref>.(!.name.(!.referenc |
| 950a0 | 65 54 79 70 65 20 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eType.ex)))..................... |
| 950c0 | 20 20 20 20 20 20 20 28 3c 6f 62 6a 65 63 74 3e 20 28 21 21 20 67 65 74 4e 61 6d 65 20 67 65 74 | .......(<object>.(!!.getName.get |
| 950e0 | 43 6c 61 73 73 20 65 78 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 74 20 28 74 68 | Class.ex)))))............(bt.(th |
| 95100 | 72 65 61 64 2d 66 72 61 6d 65 73 20 74 69 64 20 66 72 6f 6d 20 74 6f 20 73 74 61 74 65 29 29 29 | read-frames.tid.from.to.state))) |
| 95120 | 0a 20 20 20 20 20 20 60 28 28 2c 64 65 73 63 20 2c 74 79 70 65 20 6e 69 6c 29 20 28 28 22 71 75 | .......`((,desc.,type.nil).(("qu |
| 95140 | 69 74 22 20 22 74 65 72 6d 69 6e 61 74 65 20 63 75 72 72 65 6e 74 20 74 68 72 65 61 64 22 29 29 | it"."terminate.current.thread")) |
| 95160 | 20 2c 62 74 20 28 29 29 29 29 29 0a 0a 28 64 66 20 62 72 65 61 6b 70 6f 69 6e 74 2d 63 6f 6e 64 | .,bt.()))))..(df.breakpoint-cond |
| 95180 | 69 74 69 6f 6e 20 28 28 65 20 3c 62 72 65 61 6b 70 6f 69 6e 74 2d 65 76 65 6e 74 3e 29 20 3d 3e | ition.((e.<breakpoint-event>).=> |
| 951a0 | 20 3c 6f 62 6a 2d 72 65 66 3e 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 21 20 66 72 | .<obj-ref>)...(let.((frame.(!.fr |
| 951c0 | 61 6d 65 20 28 21 20 74 68 72 65 61 64 20 65 29 20 30 29 29 29 0a 20 20 20 20 28 31 73 74 20 28 | ame.(!.thread.e).0))).....(1st.( |
| 951e0 | 21 20 67 65 74 2d 61 72 67 75 6d 65 6e 74 2d 76 61 6c 75 65 73 20 66 72 61 6d 65 29 29 29 29 0a | !.get-argument-values.frame)))). |
| 95200 | 0a 28 64 66 20 74 68 72 65 61 64 2d 66 72 61 6d 65 73 20 28 28 74 69 64 20 3c 69 6e 74 3e 29 20 | .(df.thread-frames.((tid.<int>). |
| 95220 | 28 66 72 6f 6d 20 3c 69 6e 74 3e 29 20 74 6f 20 73 74 61 74 65 29 0a 20 20 28 6d 6c 65 74 20 28 | (from.<int>).to.state)...(mlet.( |
| 95240 | 28 74 68 72 65 61 64 20 6c 65 76 65 6c 20 65 76 73 29 20 28 67 65 74 20 73 74 61 74 65 20 74 69 | (thread.level.evs).(get.state.ti |
| 95260 | 64 20 23 66 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 74 68 72 65 61 64 20 28 61 73 20 3c 74 | d.#f)).....(let*.((thread.(as.<t |
| 95280 | 68 72 65 61 64 2d 72 65 66 3e 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | hread-ref>.thread))............( |
| 952a0 | 66 63 6f 75 6e 74 20 28 21 20 66 72 61 6d 65 43 6f 75 6e 74 20 74 68 72 65 61 64 29 29 0a 20 20 | fcount.(!.frameCount.thread))... |
| 952c0 | 20 20 20 20 20 20 20 20 20 28 73 74 61 63 6b 74 72 61 63 65 20 28 65 76 65 6e 74 2d 73 74 61 63 | .........(stacktrace.(event-stac |
| 952e0 | 6b 74 72 61 63 65 20 28 63 61 72 20 65 76 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d | ktrace.(car.evs)))............(m |
| 95300 | 69 73 73 69 6e 67 20 28 63 6f 6e 64 20 28 28 7a 65 72 6f 3f 20 28 6c 65 6e 20 73 74 61 63 6b 74 | issing.(cond.((zero?.(len.stackt |
| 95320 | 72 61 63 65 29 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | race)).0)....................... |
| 95340 | 20 20 20 20 28 23 74 20 28 2d 20 28 6c 65 6e 20 73 74 61 63 6b 74 72 61 63 65 29 20 66 63 6f 75 | ....(#t.(-.(len.stacktrace).fcou |
| 95360 | 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 73 74 61 72 74 20 28 6d 61 78 20 28 | nt))))............(fstart.(max.( |
| 95380 | 2d 20 66 72 6f 6d 20 6d 69 73 73 69 6e 67 29 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | -.from.missing).0))............( |
| 953a0 | 66 6c 65 6e 20 28 6d 61 78 20 28 2d 20 74 6f 20 66 72 6f 6d 20 6d 69 73 73 69 6e 67 29 20 30 29 | flen.(max.(-.to.from.missing).0) |
| 953c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 73 20 28 21 20 66 72 61 6d 65 73 20 74 | )............(frames.(!.frames.t |
| 953e0 | 68 72 65 61 64 20 66 73 74 61 72 74 20 28 6d 69 6e 20 66 6c 65 6e 20 28 2d 20 66 63 6f 75 6e 74 | hread.fstart.(min.flen.(-.fcount |
| 95400 | 20 66 73 74 61 72 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 70 61 63 6b 69 6e 67 20 28 70 61 63 | .fstart))))).......(packing.(pac |
| 95420 | 6b 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 20 66 72 6f 6d 29 29 0a 20 20 20 20 20 | k).........(let.((i.from))...... |
| 95440 | 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 5f 20 28 6d 61 78 20 28 2d 20 6d 69 73 73 69 6e 67 | .....(dotimes.(_.(max.(-.missing |
| 95460 | 20 66 72 6f 6d 29 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 6c 69 | .from).0)).............(pack.(li |
| 95480 | 73 74 20 69 20 28 66 6f 72 6d 61 74 20 22 7e 61 22 20 28 73 74 61 63 6b 74 72 61 63 65 20 69 29 | st.i.(format."~a".(stacktrace.i) |
| 954a0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 69 20 28 31 2b 20 69 29 29 29 0a | ))).............(set.i.(1+.i))). |
| 954c0 | 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 20 66 72 61 6d 65 73 20 28 66 75 6e 20 28 28 66 20 | ..........(iter.frames.(fun.((f. |
| 954e0 | 3c 66 72 61 6d 65 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | <frame>))....................... |
| 95500 | 20 20 20 28 6c 65 74 20 28 28 73 20 28 66 72 61 6d 65 2d 74 6f 2d 73 74 72 69 6e 67 20 66 29 29 | ...(let.((s.(frame-to-string.f)) |
| 95520 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 | )............................(pa |
| 95540 | 63 6b 20 28 6c 69 73 74 20 69 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ck.(list.i.s)).................. |
| 95560 | 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 69 20 28 31 2b 20 69 29 29 29 29 29 29 29 29 29 29 | ..........(set.i.(1+.i)))))))))) |
| 95580 | 0a 0a 28 64 66 20 65 76 65 6e 74 2d 73 74 61 63 6b 74 72 61 63 65 20 28 28 65 76 20 3c 65 76 65 | ..(df.event-stacktrace.((ev.<eve |
| 955a0 | 6e 74 3e 29 29 0a 20 20 28 6c 65 74 20 28 28 6e 6f 74 68 69 6e 67 20 28 66 75 6e 20 28 29 20 28 | nt>))...(let.((nothing.(fun.().( |
| 955c0 | 3c 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 61 63 6b 54 72 61 63 65 45 6c 65 6d 65 6e 74 5b 5d 3e 29 | <java.lang.StackTraceElement[]>) |
| 955e0 | 29 29 0a 20 20 20 20 20 20 20 20 28 76 6d 20 28 21 20 76 69 72 74 75 61 6c 4d 61 63 68 69 6e 65 | )).........(vm.(!.virtualMachine |
| 95600 | 20 65 76 29 29 29 0a 20 20 20 20 28 74 79 70 65 63 61 73 65 20 65 76 0a 20 20 20 20 20 20 28 3c | .ev))).....(typecase.ev.......(< |
| 95620 | 62 72 65 61 6b 70 6f 69 6e 74 2d 65 76 65 6e 74 3e 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | breakpoint-event>........(let.(( |
| 95640 | 63 6f 6e 64 69 74 69 6f 6e 20 28 76 6d 2d 64 65 6d 69 72 72 6f 72 20 76 6d 20 28 62 72 65 61 6b | condition.(vm-demirror.vm.(break |
| 95660 | 70 6f 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 65 76 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | point-condition.ev)))).......... |
| 95680 | 28 63 6f 6e 64 20 28 28 69 6e 73 74 61 6e 63 65 3f 20 63 6f 6e 64 69 74 69 6f 6e 20 3c 74 68 72 | (cond.((instance?.condition.<thr |
| 956a0 | 6f 77 61 62 6c 65 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 61 | owable>).................(throwa |
| 956c0 | 62 6c 65 2d 73 74 61 63 6b 74 72 61 63 65 20 76 6d 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 | ble-stacktrace.vm.condition))... |
| 956e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 6e 6f 74 68 69 6e 67 29 29 29 29 29 0a 20 | .............(#t.(nothing))))).. |
| 95700 | 20 20 20 20 20 28 3c 65 78 63 65 70 74 69 6f 6e 2d 65 76 65 6e 74 3e 0a 20 20 20 20 20 20 20 28 | .....(<exception-event>........( |
| 95720 | 74 68 72 6f 77 61 62 6c 65 2d 73 74 61 63 6b 74 72 61 63 65 20 76 6d 20 28 76 6d 2d 64 65 6d 69 | throwable-stacktrace.vm.(vm-demi |
| 95740 | 72 72 6f 72 20 76 6d 20 28 21 20 65 78 63 65 70 74 69 6f 6e 20 65 76 29 29 29 29 0a 20 20 20 20 | rror.vm.(!.exception.ev))))..... |
| 95760 | 20 20 28 3c 65 76 65 6e 74 3e 20 28 6e 6f 74 68 69 6e 67 29 29 29 29 29 0a 0a 28 64 66 20 74 68 | ..(<event>.(nothing)))))..(df.th |
| 95780 | 72 6f 77 61 62 6c 65 2d 73 74 61 63 6b 74 72 61 63 65 20 28 28 76 6d 20 3c 76 6d 3e 29 20 28 65 | rowable-stacktrace.((vm.<vm>).(e |
| 957a0 | 78 20 3c 74 68 72 6f 77 61 62 6c 65 3e 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 3d 3d 20 65 78 20 | x.<throwable>))...(cond.((==.ex. |
| 957c0 | 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 76 6d 2d 64 65 6d 69 72 72 6f 72 20 76 6d 20 2a | (ignore-errors.(vm-demirror.vm.* |
| 957e0 | 6c 61 73 74 2d 65 78 63 65 70 74 69 6f 6e 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 2a 6c 61 73 | last-exception*)))..........*las |
| 95800 | 74 2d 73 74 61 63 6b 74 72 61 63 65 2a 29 0a 20 20 20 20 20 20 20 20 28 23 74 0a 20 20 20 20 20 | t-stacktrace*).........(#t...... |
| 95820 | 20 20 20 20 28 21 20 67 65 74 53 74 61 63 6b 54 72 61 63 65 20 65 78 29 29 29 29 0a 0a 28 64 66 | ....(!.getStackTrace.ex))))..(df |
| 95840 | 20 66 72 61 6d 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 28 66 20 3c 66 72 61 6d 65 3e 29 29 0a 20 | .frame-to-string.((f.<frame>)).. |
| 95860 | 20 28 6c 65 74 20 28 28 6c 6f 63 20 28 21 20 6c 6f 63 61 74 69 6f 6e 20 66 29 29 0a 20 20 20 20 | .(let.((loc.(!.location.f))..... |
| 95880 | 20 20 20 20 28 76 6d 20 28 21 20 76 69 72 74 75 61 6c 4d 61 63 68 69 6e 65 20 66 29 29 29 0a 20 | ....(vm.(!.virtualMachine.f))).. |
| 958a0 | 20 20 20 28 66 6f 72 6d 61 74 20 22 7e 61 20 28 7e 61 29 22 20 28 21 21 20 6e 61 6d 65 20 6d 65 | ...(format."~a.(~a)".(!!.name.me |
| 958c0 | 74 68 6f 64 20 6c 6f 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 | thod.loc).............(call-with |
| 958e0 | 2d 61 62 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 29 20 28 66 6f 72 | -abort..............(fun.().(for |
| 95900 | 6d 61 74 20 22 7e 7b 7e 61 7e 5e 20 7e 7d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mat."~{~a~^.~}"................. |
| 95920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 69 20 28 21 20 67 65 74 41 72 67 75 6d 65 6e | .............(mapi.(!.getArgumen |
| 95940 | 74 56 61 6c 75 65 73 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tValues.f)...................... |
| 95960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 61 72 67 29 0a 20 20 20 20 20 20 20 | ..............(fun.(arg)........ |
| 95980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | ..............................(p |
| 959a0 | 70 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | print-to-string................. |
| 959c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 6d 2d 64 65 6d 69 72 72 | ......................(vm-demirr |
| 959e0 | 6f 72 20 76 6d 20 61 72 67 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 66 20 66 72 61 6d 65 2d 73 | or.vm.arg))))))))))..(df.frame-s |
| 95a00 | 72 63 2d 6c 6f 63 20 28 28 74 69 64 20 3c 69 6e 74 3e 29 20 28 6e 20 3c 69 6e 74 3e 29 20 73 74 | rc-loc.((tid.<int>).(n.<int>).st |
| 95a20 | 61 74 65 29 0a 20 20 28 74 72 79 2d 63 61 74 63 68 0a 20 20 20 28 6d 6c 65 74 2a 20 28 28 28 66 | ate)...(try-catch....(mlet*.(((f |
| 95a40 | 72 61 6d 65 20 76 6d 29 20 28 6e 74 68 2d 66 72 61 6d 65 20 74 69 64 20 6e 20 73 74 61 74 65 29 | rame.vm).(nth-frame.tid.n.state) |
| 95a60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 76 6d 20 28 61 73 20 3c 76 6d 3e 20 76 6d 29 29 29 0a | )............(vm.(as.<vm>.vm))). |
| 95a80 | 20 20 20 20 20 28 73 72 63 2d 6c 6f 63 3e 65 6c 69 73 70 0a 20 20 20 20 20 20 28 74 79 70 65 63 | .....(src-loc>elisp.......(typec |
| 95aa0 | 61 73 65 20 66 72 61 6d 65 0a 20 20 20 20 20 20 20 20 28 3c 66 72 61 6d 65 3e 20 28 21 20 6c 6f | ase.frame.........(<frame>.(!.lo |
| 95ac0 | 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 3c 66 61 6b 65 64 2d 66 | cation.frame)).........(<faked-f |
| 95ae0 | 72 61 6d 65 3e 20 28 40 20 6c 6f 63 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 3c 6a | rame>.(@.loc.frame)).........(<j |
| 95b00 | 61 76 61 2e 6c 61 6e 67 2e 53 74 61 63 6b 54 72 61 63 65 45 6c 65 6d 65 6e 74 3e 0a 20 20 20 20 | ava.lang.StackTraceElement>..... |
| 95b20 | 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6c 61 73 73 6e 61 6d 65 20 28 21 20 67 65 74 43 6c 61 | .....(let*.((classname.(!.getCla |
| 95b40 | 73 73 4e 61 6d 65 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ssName.frame)).................( |
| 95b60 | 63 6c 61 73 73 65 73 20 28 21 20 63 6c 61 73 73 65 73 42 79 4e 61 6d 65 20 76 6d 20 63 6c 61 73 | classes.(!.classesByName.vm.clas |
| 95b80 | 73 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 61 73 20 3c | sname)).................(t.(as.< |
| 95ba0 | 72 65 66 2d 74 79 70 65 3e 20 28 31 73 74 20 63 6c 61 73 73 65 73 29 29 29 29 0a 20 20 20 20 20 | ref-type>.(1st.classes))))...... |
| 95bc0 | 20 20 20 20 20 20 28 31 73 74 20 28 21 20 6c 6f 63 61 74 69 6f 6e 73 4f 66 4c 69 6e 65 20 74 20 | ......(1st.(!.locationsOfLine.t. |
| 95be0 | 28 21 20 67 65 74 4c 69 6e 65 4e 75 6d 62 65 72 20 66 72 61 6d 65 29 29 29 29 29 29 29 29 0a 20 | (!.getLineNumber.frame)))))))).. |
| 95c00 | 20 20 28 65 78 20 3c 74 68 72 6f 77 61 62 6c 65 3e 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | ..(ex.<throwable>........(let.(( |
| 95c20 | 6d 73 67 20 28 21 20 67 65 74 4d 65 73 73 61 67 65 20 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 | msg.(!.getMessage.ex)))......... |
| 95c40 | 20 60 28 3a 65 72 72 6f 72 20 2c 28 69 66 20 28 3d 3d 20 6d 73 67 20 23 21 6e 75 6c 6c 29 0a 20 | .`(:error.,(if.(==.msg.#!null).. |
| 95c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 74 6f 53 74 72 69 6e | ......................(!.toStrin |
| 95c80 | 67 20 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 73 67 | g.ex)........................msg |
| 95ca0 | 29 29 29 29 29 29 0a 0a 28 64 66 20 6e 74 68 2d 66 72 61 6d 65 20 28 28 74 69 64 20 3c 69 6e 74 | ))))))..(df.nth-frame.((tid.<int |
| 95cc0 | 3e 29 20 28 6e 20 3c 69 6e 74 3e 29 20 73 74 61 74 65 29 0a 20 20 28 6d 6c 65 74 20 28 28 74 72 | >).(n.<int>).state)...(mlet.((tr |
| 95ce0 | 65 66 20 6c 65 76 65 6c 20 65 76 73 29 20 28 67 65 74 20 73 74 61 74 65 20 74 69 64 20 23 66 29 | ef.level.evs).(get.state.tid.#f) |
| 95d00 | 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 74 68 72 65 61 64 20 28 61 73 20 3c 74 68 72 65 61 64 | ).....(let*.((thread.(as.<thread |
| 95d20 | 2d 72 65 66 3e 20 74 72 65 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 63 6f 75 6e 74 20 | -ref>.tref))............(fcount. |
| 95d40 | 28 21 20 66 72 61 6d 65 43 6f 75 6e 74 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 | (!.frameCount.thread)).......... |
| 95d60 | 20 20 28 73 74 61 63 6b 74 72 61 63 65 20 28 65 76 65 6e 74 2d 73 74 61 63 6b 74 72 61 63 65 20 | ..(stacktrace.(event-stacktrace. |
| 95d80 | 28 63 61 72 20 65 76 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 69 73 73 69 6e 67 20 | (car.evs)))............(missing. |
| 95da0 | 28 63 6f 6e 64 20 28 28 7a 65 72 6f 3f 20 28 6c 65 6e 20 73 74 61 63 6b 74 72 61 63 65 29 29 20 | (cond.((zero?.(len.stacktrace)). |
| 95dc0 | 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 | 0)...........................(#t |
| 95de0 | 20 28 2d 20 28 6c 65 6e 20 73 74 61 63 6b 74 72 61 63 65 29 20 66 63 6f 75 6e 74 29 29 29 29 0a | .(-.(len.stacktrace).fcount)))). |
| 95e00 | 20 20 20 20 20 20 20 20 20 20 20 28 76 6d 20 28 21 20 76 69 72 74 75 61 6c 4d 61 63 68 69 6e 65 | ...........(vm.(!.virtualMachine |
| 95e20 | 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 20 28 63 6f 6e | .thread))............(frame.(con |
| 95e40 | 64 20 28 28 3c 20 6e 20 6d 69 73 73 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.((<.n.missing)................ |
| 95e60 | 20 20 20 20 20 20 20 20 20 20 28 73 74 61 63 6b 74 72 61 63 65 20 6e 29 29 0a 20 20 20 20 20 20 | ..........(stacktrace.n))....... |
| 95e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 21 20 66 72 61 6d 65 20 74 | ..................(#t.(!.frame.t |
| 95ea0 | 68 72 65 61 64 20 28 2d 20 6e 20 6d 69 73 73 69 6e 67 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 | hread.(-.n.missing)))))).......( |
| 95ec0 | 6c 69 73 74 20 66 72 61 6d 65 20 76 6d 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 4c 6f 63 61 6c 73 0a | list.frame.vm))))..;;;;;.Locals. |
| 95ee0 | 0a 28 64 66 20 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 28 28 74 69 64 20 3c 69 6e 74 3e 29 20 28 | .(df.frame-locals.((tid.<int>).( |
| 95f00 | 6e 20 3c 69 6e 74 3e 29 20 73 74 61 74 65 29 0a 20 20 28 6d 6c 65 74 20 28 28 74 68 72 65 61 64 | n.<int>).state)...(mlet.((thread |
| 95f20 | 20 5f 20 5f 29 20 28 67 65 74 20 73 74 61 74 65 20 74 69 64 20 23 66 29 29 0a 20 20 20 20 28 6c | ._._).(get.state.tid.#f)).....(l |
| 95f40 | 65 74 2a 20 28 28 74 68 72 65 61 64 20 28 61 73 20 3c 74 68 72 65 61 64 2d 72 65 66 3e 20 74 68 | et*.((thread.(as.<thread-ref>.th |
| 95f60 | 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 76 6d 20 28 21 20 76 69 72 74 75 61 6c | read))............(vm.(!.virtual |
| 95f80 | 4d 61 63 68 69 6e 65 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 20 28 | Machine.thread))............(p.( |
| 95fa0 | 66 75 6e 20 28 78 29 20 28 70 70 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 | fun.(x).(pprint-to-string....... |
| 95fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 61 62 6f | ..................(call-with-abo |
| 95fe0 | 72 74 20 28 66 75 6e 20 28 29 20 28 76 6d 2d 64 65 6d 69 72 72 6f 72 20 76 6d 20 78 29 29 29 29 | rt.(fun.().(vm-demirror.vm.x)))) |
| 96000 | 29 29 29 0a 20 20 20 20 20 20 28 6d 61 70 20 28 66 75 6e 20 28 78 29 0a 20 20 20 20 20 20 20 20 | ))).......(map.(fun.(x)......... |
| 96020 | 20 20 20 20 20 28 6d 6c 65 74 20 28 28 6e 61 6d 65 20 76 61 6c 75 65 29 20 78 29 0a 20 20 20 20 | .....(mlet.((name.value).x)..... |
| 96040 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 3a 6e 61 6d 65 20 6e 61 6d 65 20 27 3a 76 | ...........(list.':name.name.':v |
| 96060 | 61 6c 75 65 20 28 70 20 76 61 6c 75 65 29 20 27 3a 69 64 20 30 29 29 29 0a 20 20 20 20 20 20 20 | alue.(p.value).':id.0)))........ |
| 96080 | 20 20 20 20 28 25 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 74 69 64 20 6e 20 73 74 61 74 65 29 29 | ....(%frame-locals.tid.n.state)) |
| 960a0 | 29 29 29 0a 0a 28 64 66 20 66 72 61 6d 65 2d 6c 6f 63 61 6c 2d 76 61 72 20 28 28 74 69 64 20 3c | )))..(df.frame-local-var.((tid.< |
| 960c0 | 69 6e 74 3e 29 20 28 66 72 61 6d 65 20 3c 69 6e 74 3e 29 20 28 76 61 72 20 3c 69 6e 74 3e 29 20 | int>).(frame.<int>).(var.<int>). |
| 960e0 | 73 74 61 74 65 20 3d 3e 20 3c 6d 69 72 72 6f 72 3e 29 0a 20 20 28 63 61 64 72 20 28 6e 74 68 20 | state.=>.<mirror>)...(cadr.(nth. |
| 96100 | 28 25 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 74 69 64 20 66 72 61 6d 65 20 73 74 61 74 65 29 20 | (%frame-locals.tid.frame.state). |
| 96120 | 76 61 72 29 29 29 0a 0a 28 64 66 20 25 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 28 28 74 69 64 20 | var)))..(df.%frame-locals.((tid. |
| 96140 | 3c 69 6e 74 3e 29 20 28 6e 20 3c 69 6e 74 3e 29 20 73 74 61 74 65 29 0a 20 20 28 6d 6c 65 74 20 | <int>).(n.<int>).state)...(mlet. |
| 96160 | 28 28 66 72 61 6d 65 20 5f 29 20 28 6e 74 68 2d 66 72 61 6d 65 20 74 69 64 20 6e 20 73 74 61 74 | ((frame._).(nth-frame.tid.n.stat |
| 96180 | 65 29 29 0a 20 20 20 20 28 74 79 70 65 63 61 73 65 20 66 72 61 6d 65 0a 20 20 20 20 20 20 28 3c | e)).....(typecase.frame.......(< |
| 961a0 | 66 72 61 6d 65 3e 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 76 69 73 69 62 6c 65 20 28 74 | frame>........(let*.((visible.(t |
| 961c0 | 72 79 2d 63 61 74 63 68 20 28 21 20 76 69 73 69 62 6c 65 56 61 72 69 61 62 6c 65 73 20 66 72 61 | ry-catch.(!.visibleVariables.fra |
| 961e0 | 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me)............................. |
| 96200 | 20 20 20 20 20 20 28 65 78 20 3c 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 41 62 73 65 6e 74 49 6e 66 | ......(ex.<com.sun.jdi.AbsentInf |
| 96220 | 6f 72 6d 61 74 69 6f 6e 45 78 63 65 70 74 69 6f 6e 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ormationException>.............. |
| 96240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 29 29 29 29 0a | .........................'()))). |
| 96260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 28 21 20 67 65 74 56 61 6c 75 65 73 20 | ..............(map.(!.getValues. |
| 96280 | 66 72 61 6d 65 20 76 69 73 69 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | frame.visible))...............(p |
| 962a0 | 20 28 66 75 6e 20 28 78 29 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 69 6e 67 | .(fun.(x).x)))..........(packing |
| 962c0 | 20 28 70 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 65 6c 66 20 28 | .(pack)............(let.((self.( |
| 962e0 | 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 21 20 74 68 69 73 4f 62 6a 65 63 74 20 66 72 61 6d | ignore-errors.(!.thisObject.fram |
| 96300 | 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 65 6c 66 0a 20 20 | e))))..............(when.self... |
| 96320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 6c 69 73 74 20 22 74 68 69 73 22 20 | .............(pack.(list."this". |
| 96340 | 28 70 20 73 65 6c 66 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 20 28 21 | (p.self)))))............(iter.(! |
| 96360 | 20 65 6e 74 72 79 53 65 74 20 6d 61 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .entrySet.map).................. |
| 96380 | 28 66 75 6e 20 28 28 65 20 3c 6a 61 76 61 2e 75 74 69 6c 2e 4d 61 70 24 45 6e 74 72 79 3e 29 29 | (fun.((e.<java.util.Map$Entry>)) |
| 963a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 72 20 28 | ....................(let.((var.( |
| 963c0 | 61 73 20 3c 6c 6f 63 61 6c 2d 76 61 72 3e 20 28 21 20 67 65 74 4b 65 79 20 65 29 29 29 0a 20 20 | as.<local-var>.(!.getKey.e)))... |
| 963e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 20 28 61 73 20 | .......................(val.(as. |
| 96400 | 3c 76 61 6c 75 65 3e 20 28 21 20 67 65 74 56 61 6c 75 65 20 65 29 29 29 29 0a 20 20 20 20 20 20 | <value>.(!.getValue.e))))....... |
| 96420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 6c 69 73 74 20 28 21 20 6e 61 | ...............(pack.(list.(!.na |
| 96440 | 6d 65 20 76 61 72 29 20 28 70 20 76 61 6c 29 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 3c | me.var).(p.val))))))))).......(< |
| 96460 | 66 61 6b 65 64 2d 66 72 61 6d 65 3e 0a 20 20 20 20 20 20 20 28 70 61 63 6b 69 6e 67 20 28 70 61 | faked-frame>........(packing.(pa |
| 96480 | 63 6b 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 40 20 73 65 6c 66 20 66 72 61 6d 65 | ck)..........(when.(@.self.frame |
| 964a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 6c 69 73 74 20 22 74 68 69 73 22 20 | )............(pack.(list."this". |
| 964c0 | 28 40 20 73 65 6c 66 20 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 74 65 72 | (@.self.frame))))..........(iter |
| 964e0 | 20 28 21 20 65 6e 74 72 79 53 65 74 20 28 40 20 76 61 6c 75 65 73 20 66 72 61 6d 65 29 29 0a 20 | .(!.entrySet.(@.values.frame)).. |
| 96500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 28 65 20 3c 6a 61 76 61 2e 75 74 69 | ..............(fun.((e.<java.uti |
| 96520 | 6c 2e 4d 61 70 24 45 6e 74 72 79 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l.Map$Entry>)).................. |
| 96540 | 28 6c 65 74 20 28 28 76 61 72 20 28 61 73 20 3c 6c 6f 63 61 6c 2d 76 61 72 3e 20 28 21 20 67 65 | (let.((var.(as.<local-var>.(!.ge |
| 96560 | 74 4b 65 79 20 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tKey.e)))....................... |
| 96580 | 20 28 76 61 6c 20 28 61 73 20 3c 76 61 6c 75 65 3e 20 28 21 20 67 65 74 56 61 6c 75 65 20 65 29 | .(val.(as.<value>.(!.getValue.e) |
| 965a0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 6c 69 | )))....................(pack.(li |
| 965c0 | 73 74 20 28 21 20 6e 61 6d 65 20 76 61 72 29 20 76 61 6c 29 29 29 29 29 29 29 0a 20 20 20 20 20 | st.(!.name.var).val)))))))...... |
| 965e0 | 20 28 3c 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 61 63 6b 54 72 61 63 65 45 6c 65 6d 65 6e 74 3e 20 | .(<java.lang.StackTraceElement>. |
| 96600 | 27 28 29 29 29 29 29 0a 0a 28 64 66 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 72 61 6d 65 20 28 | '()))))..(df.disassemble-frame.( |
| 96620 | 28 74 69 64 20 3c 69 6e 74 3e 29 20 28 66 72 61 6d 65 20 3c 69 6e 74 3e 29 20 73 74 61 74 65 29 | (tid.<int>).(frame.<int>).state) |
| 96640 | 0a 20 20 28 6d 6c 65 74 20 28 28 66 72 61 6d 65 20 5f 29 20 28 6e 74 68 2d 66 72 61 6d 65 20 74 | ...(mlet.((frame._).(nth-frame.t |
| 96660 | 69 64 20 66 72 61 6d 65 20 73 74 61 74 65 29 29 0a 20 20 20 20 28 74 79 70 65 63 61 73 65 20 66 | id.frame.state)).....(typecase.f |
| 96680 | 72 61 6d 65 0a 20 20 20 20 20 20 28 3c 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 61 63 6b 54 72 61 63 | rame.......(<java.lang.StackTrac |
| 966a0 | 65 45 6c 65 6d 65 6e 74 3e 20 22 3c 3f 3f 3e 22 29 0a 20 20 20 20 20 20 28 3c 66 72 61 6d 65 3e | eElement>."<??>").......(<frame> |
| 966c0 | 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 20 28 21 20 6c 6f 63 61 74 69 6f 6e 20 66 72 | ........(let*.((l.(!.location.fr |
| 966e0 | 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 20 28 21 20 6d 65 74 68 6f 64 | ame))...............(m.(!.method |
| 96700 | 20 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 20 28 21 20 64 65 63 6c 61 72 69 | .l))...............(c.(!.declari |
| 96720 | 6e 67 54 79 70 65 20 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 62 | ngType.l)))...........(disassemb |
| 96740 | 6c 65 2d 74 6f 2d 73 74 72 69 6e 67 20 6d 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 52 65 73 74 | le-to-string.m))))))..;;;;;.Rest |
| 96760 | 61 72 74 73 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 66 61 63 74 6f 72 69 7a 65 0a 28 64 66 20 74 68 | arts..;;.FIXME:.factorize.(df.th |
| 96780 | 72 6f 77 2d 74 6f 2d 74 6f 70 6c 65 76 65 6c 20 28 28 74 69 64 20 3c 69 6e 74 3e 29 20 28 69 64 | row-to-toplevel.((tid.<int>).(id |
| 967a0 | 20 3c 69 6e 74 3e 29 20 28 63 20 3c 63 68 61 6e 3e 29 20 73 74 61 74 65 29 0a 20 20 28 6d 6c 65 | .<int>).(c.<chan>).state)...(mle |
| 967c0 | 74 20 28 28 74 72 65 66 20 6c 65 76 65 6c 20 65 78 63 29 20 28 67 65 74 20 73 74 61 74 65 20 74 | t.((tref.level.exc).(get.state.t |
| 967e0 | 69 64 20 23 66 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 74 20 28 61 73 20 3c 74 68 72 65 61 | id.#f)).....(let*.((t.(as.<threa |
| 96800 | 64 2d 72 65 66 3e 20 74 72 65 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 76 20 28 63 61 | d-ref>.tref))............(ev.(ca |
| 96820 | 72 20 65 78 63 29 29 29 0a 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 65 76 0a 20 20 20 20 | r.exc))).......(typecase.ev..... |
| 96840 | 20 20 20 20 28 3c 65 78 63 65 70 74 69 6f 6e 2d 65 76 65 6e 74 3e 20 3b 20 61 63 74 75 61 6c 6c | ....(<exception-event>.;.actuall |
| 96860 | 79 20 75 6e 63 61 75 67 68 74 45 78 63 65 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 21 20 | y.uncaughtException..........(!. |
| 96880 | 72 65 73 75 6d 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 79 2d 61 62 6f 72 74 20 | resume.t)..........(reply-abort. |
| 968a0 | 63 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 28 73 65 6e 64 2d 64 65 62 75 67 2d 72 65 74 | c.id)..........;;(send-debug-ret |
| 968c0 | 75 72 6e 20 63 20 74 69 64 20 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 20 28 28 | urn.c.tid.state)..........(do.(( |
| 968e0 | 6c 65 76 65 6c 20 6c 65 76 65 6c 20 28 31 2d 20 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 | level.level.(1-.level))......... |
| 96900 | 20 20 20 20 20 20 28 65 78 63 20 65 78 63 20 28 63 64 72 20 65 78 63 29 29 29 0a 20 20 20 20 20 | ......(exc.exc.(cdr.exc)))...... |
| 96920 | 20 20 20 20 20 20 20 20 28 28 6e 75 6c 6c 3f 20 65 78 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ........((null?.exc))........... |
| 96940 | 20 28 73 65 6e 64 20 63 20 60 28 66 6f 72 77 61 72 64 20 28 3a 64 65 62 75 67 2d 72 65 74 75 72 | .(send.c.`(forward.(:debug-retur |
| 96960 | 6e 20 2c 74 69 64 20 2c 6c 65 76 65 6c 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 | n.,tid.,level.nil))))..........( |
| 96980 | 64 65 6c 20 73 74 61 74 65 20 74 69 64 29 29 0a 20 20 20 20 20 20 20 20 28 3c 62 72 65 61 6b 70 | del.state.tid)).........(<breakp |
| 969a0 | 6f 69 6e 74 2d 65 76 65 6e 74 3e 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 58 58 58 20 72 61 63 65 | oint-event>..........;;.XXX.race |
| 969c0 | 20 63 6f 6e 64 69 74 69 6f 6e 3f 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 67 20 22 72 65 73 75 6d | .condition?..........(log."resum |
| 969e0 | 65 20 66 72 6f 6d 20 66 72 6f 6d 20 62 72 65 61 6b 20 28 73 75 73 70 65 6e 64 43 6f 75 6e 74 3a | e.from.from.break.(suspendCount: |
| 96a00 | 20 7e 64 29 5c 6e 22 20 28 21 20 73 75 73 70 65 6e 64 43 6f 75 6e 74 20 74 29 29 0a 20 20 20 20 | .~d)\n".(!.suspendCount.t))..... |
| 96a20 | 20 20 20 20 20 28 6c 65 74 20 28 28 76 6d 20 28 21 20 76 69 72 74 75 61 6c 4d 61 63 68 69 6e 65 | .....(let.((vm.(!.virtualMachine |
| 96a40 | 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 20 28 66 75 6e 20 28 29 20 28 | .t))................(k.(fun.().( |
| 96a60 | 70 72 69 6d 69 74 69 76 65 2d 74 68 72 6f 77 20 28 3c 6c 69 73 74 65 6e 65 72 2d 61 62 6f 72 74 | primitive-throw.(<listener-abort |
| 96a80 | 3e 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 79 2d 61 62 6f 72 74 20 63 | >)))))............(reply-abort.c |
| 96aa0 | 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 21 20 66 6f 72 63 65 2d 65 61 72 6c 79 2d 72 | .id)............(!.force-early-r |
| 96ac0 | 65 74 75 72 6e 20 74 20 28 76 6d 2d 6d 69 72 72 6f 72 20 76 6d 20 6b 29 29 0a 20 20 20 20 20 20 | eturn.t.(vm-mirror.vm.k))....... |
| 96ae0 | 20 20 20 20 20 28 21 20 72 65 73 75 6d 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 6f | .....(!.resume.t)............(do |
| 96b00 | 20 28 28 6c 65 76 65 6c 20 6c 65 76 65 6c 20 28 31 2d 20 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 | .((level.level.(1-.level))...... |
| 96b20 | 20 20 20 20 20 20 20 20 20 20 20 28 65 78 63 20 65 78 63 20 28 63 64 72 20 65 78 63 29 29 29 0a | ...........(exc.exc.(cdr.exc))). |
| 96b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 75 6c 6c 3f 20 65 78 63 29 29 0a 20 20 20 | ...............((null?.exc)).... |
| 96b60 | 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 63 20 60 28 66 6f 72 77 61 72 64 20 28 3a 64 65 | ..........(send.c.`(forward.(:de |
| 96b80 | 62 75 67 2d 72 65 74 75 72 6e 20 2c 74 69 64 20 2c 6c 65 76 65 6c 20 6e 69 6c 29 29 29 29 0a 20 | bug-return.,tid.,level.nil)))).. |
| 96ba0 | 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 20 73 74 61 74 65 20 74 69 64 29 29 29 0a 20 20 20 20 | ..........(del.state.tid)))..... |
| 96bc0 | 20 20 20 20 28 3c 69 6e 74 65 72 72 75 70 74 2d 65 76 65 6e 74 3e 0a 20 20 20 20 20 20 20 20 20 | ....(<interrupt-event>.......... |
| 96be0 | 28 6c 6f 67 20 22 72 65 73 75 6d 65 20 66 72 6f 6d 20 66 72 6f 6d 20 69 6e 74 65 72 72 75 70 74 | (log."resume.from.from.interrupt |
| 96c00 | 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 6d 20 28 21 20 76 69 72 74 75 | \n")..........(let.((vm.(!.virtu |
| 96c20 | 61 6c 4d 61 63 68 69 6e 65 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 21 20 73 74 6f | alMachine.t)))............(!.sto |
| 96c40 | 70 20 74 20 28 76 6d 2d 6d 69 72 72 6f 72 20 76 6d 20 28 3c 6c 69 73 74 65 6e 65 72 2d 61 62 6f | p.t.(vm-mirror.vm.(<listener-abo |
| 96c60 | 72 74 3e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 21 20 72 65 73 75 6d 65 20 74 29 0a 20 | rt>)))............(!.resume.t).. |
| 96c80 | 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 79 2d 61 62 6f 72 74 20 63 20 69 64 29 0a 20 20 20 | ..........(reply-abort.c.id).... |
| 96ca0 | 20 20 20 20 20 20 20 20 28 64 6f 20 28 28 6c 65 76 65 6c 20 6c 65 76 65 6c 20 28 31 2d 20 6c 65 | ........(do.((level.level.(1-.le |
| 96cc0 | 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 63 20 65 78 63 20 28 | vel)).................(exc.exc.( |
| 96ce0 | 63 64 72 20 65 78 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 75 6c 6c | cdr.exc)))................((null |
| 96d00 | 3f 20 65 78 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 63 20 60 28 66 | ?.exc))..............(send.c.`(f |
| 96d20 | 6f 72 77 61 72 64 20 28 3a 64 65 62 75 67 2d 72 65 74 75 72 6e 20 2c 74 69 64 20 2c 6c 65 76 65 | orward.(:debug-return.,tid.,leve |
| 96d40 | 6c 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 20 73 74 61 74 65 20 | l.nil))))............(del.state. |
| 96d60 | 74 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 29 29 29 29 29 0a 0a 28 64 66 20 74 68 72 65 61 64 | tid))..........)))))..(df.thread |
| 96d80 | 2d 63 6f 6e 74 69 6e 75 65 20 28 28 74 69 64 20 3c 69 6e 74 3e 29 20 28 69 64 20 3c 69 6e 74 3e | -continue.((tid.<int>).(id.<int> |
| 96da0 | 29 20 28 63 20 3c 63 68 61 6e 3e 29 20 73 74 61 74 65 29 0a 20 20 28 6d 6c 65 74 20 28 28 74 72 | ).(c.<chan>).state)...(mlet.((tr |
| 96dc0 | 65 66 20 6c 65 76 65 6c 20 65 78 63 29 20 28 67 65 74 20 73 74 61 74 65 20 74 69 64 20 23 66 29 | ef.level.exc).(get.state.tid.#f) |
| 96de0 | 29 0a 20 20 20 20 28 6c 6f 67 20 22 74 68 72 65 61 64 2d 63 6f 6e 74 69 6e 75 65 3a 20 7e 61 20 | ).....(log."thread-continue:.~a. |
| 96e00 | 7e 61 20 7e 61 20 5c 6e 22 20 74 72 65 66 20 6c 65 76 65 6c 20 65 78 63 29 0a 20 20 20 20 28 6c | ~a.~a.\n".tref.level.exc).....(l |
| 96e20 | 65 74 2a 20 28 28 74 20 28 61 73 20 3c 74 68 72 65 61 64 2d 72 65 66 3e 20 74 72 65 66 29 29 29 | et*.((t.(as.<thread-ref>.tref))) |
| 96e40 | 0a 20 20 20 20 20 20 20 28 21 20 72 65 73 75 6d 65 20 74 29 29 0a 20 20 20 20 28 72 65 70 6c 79 | ........(!.resume.t)).....(reply |
| 96e60 | 2d 61 62 6f 72 74 20 63 20 69 64 29 0a 20 20 20 20 28 64 6f 20 28 28 6c 65 76 65 6c 20 6c 65 76 | -abort.c.id).....(do.((level.lev |
| 96e80 | 65 6c 20 28 31 2d 20 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 78 63 20 65 78 63 | el.(1-.level))..........(exc.exc |
| 96ea0 | 20 28 63 64 72 20 65 78 63 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 6e 75 6c 6c 3f 20 65 78 63 | .(cdr.exc))).........((null?.exc |
| 96ec0 | 29 29 0a 20 20 20 20 20 20 28 73 65 6e 64 20 63 20 60 28 66 6f 72 77 61 72 64 20 28 3a 64 65 62 | )).......(send.c.`(forward.(:deb |
| 96ee0 | 75 67 2d 72 65 74 75 72 6e 20 2c 74 69 64 20 2c 6c 65 76 65 6c 20 6e 69 6c 29 29 29 29 0a 20 20 | ug-return.,tid.,level.nil))))... |
| 96f00 | 20 20 28 64 65 6c 20 73 74 61 74 65 20 74 69 64 29 29 29 0a 0a 28 64 66 20 74 68 72 65 61 64 2d | ..(del.state.tid)))..(df.thread- |
| 96f20 | 73 74 65 70 20 28 28 74 20 3c 74 68 72 65 61 64 2d 72 65 66 3e 29 20 6b 29 0a 20 20 28 6c 65 74 | step.((t.<thread-ref>).k)...(let |
| 96f40 | 2a 20 28 28 76 6d 20 28 21 20 76 69 72 74 75 61 6c 2d 6d 61 63 68 69 6e 65 20 74 29 29 0a 20 20 | *.((vm.(!.virtual-machine.t))... |
| 96f60 | 20 20 20 20 20 20 20 28 65 72 6d 20 28 21 20 65 76 65 6e 74 52 65 71 75 65 73 74 4d 61 6e 61 67 | .......(erm.(!.eventRequestManag |
| 96f80 | 65 72 20 76 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 3c 73 72 3e 20 3c 63 6f 6d 2e 73 75 6e 2e | er.vm))..........(<sr>.<com.sun. |
| 96fa0 | 6a 64 69 2e 72 65 71 75 65 73 74 2e 53 74 65 70 52 65 71 75 65 73 74 3e 29 0a 20 20 20 20 20 20 | jdi.request.StepRequest>)....... |
| 96fc0 | 20 20 20 28 72 65 71 20 28 21 20 63 72 65 61 74 65 53 74 65 70 52 65 71 75 65 73 74 20 65 72 6d | ...(req.(!.createStepRequest.erm |
| 96fe0 | 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 40 73 20 3c 73 72 3e 20 53 54 45 | .t..................(@s.<sr>.STE |
| 97000 | 50 5f 4d 49 4e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 40 73 20 3c 73 72 3e | P_MIN)..................(@s.<sr> |
| 97020 | 20 53 54 45 50 5f 4f 56 45 52 29 29 29 29 0a 20 20 20 20 28 21 20 73 65 74 53 75 73 70 65 6e 64 | .STEP_OVER)))).....(!.setSuspend |
| 97040 | 50 6f 6c 69 63 79 20 72 65 71 20 28 40 20 53 55 53 50 45 4e 44 5f 45 56 45 4e 54 5f 54 48 52 45 | Policy.req.(@.SUSPEND_EVENT_THRE |
| 97060 | 41 44 20 72 65 71 29 29 0a 20 20 20 20 28 21 20 61 64 64 43 6f 75 6e 74 46 69 6c 74 65 72 20 72 | AD.req)).....(!.addCountFilter.r |
| 97080 | 65 71 20 31 29 0a 20 20 20 20 28 21 20 70 75 74 2d 70 72 6f 70 65 72 74 79 20 72 65 71 20 27 63 | eq.1).....(!.put-property.req.'c |
| 970a0 | 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 6b 29 0a 20 20 20 20 28 21 20 65 6e 61 62 6c 65 20 72 65 71 | ontinuation.k).....(!.enable.req |
| 970c0 | 29 29 29 0a 0a 28 64 66 20 65 76 61 6c 2d 69 6e 2d 74 68 72 65 61 64 20 28 28 74 20 3c 74 68 72 | )))..(df.eval-in-thread.((t.<thr |
| 970e0 | 65 61 64 2d 72 65 66 3e 29 20 73 65 78 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ead-ref>).sexp.................. |
| 97100 | 20 20 20 23 21 6f 70 74 69 6f 6e 61 6c 20 28 65 6e 76 20 3a 3a 20 3c 65 6e 76 3e 20 28 21 73 20 | ...#!optional.(env.::.<env>.(!s. |
| 97120 | 3c 65 6e 76 3e 20 63 75 72 72 65 6e 74 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 76 6d 20 28 21 | <env>.current)))...(let*.((vm.(! |
| 97140 | 20 76 69 72 74 75 61 6c 4d 61 63 68 69 6e 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 63 | .virtualMachine.t))..........(sc |
| 97160 | 20 3a 3a 20 3c 63 6c 61 73 73 2d 74 79 70 65 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 | .::.<class-type>..............(1 |
| 97180 | 73 74 20 28 21 20 63 6c 61 73 73 65 73 2d 62 79 2d 6e 61 6d 65 20 76 6d 20 22 6b 61 77 61 2e 73 | st.(!.classes-by-name.vm."kawa.s |
| 971a0 | 74 61 6e 64 61 72 64 2e 53 63 68 65 6d 65 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 76 20 | tandard.Scheme")))..........(ev. |
| 971c0 | 3a 3a 20 3c 6d 65 74 68 2d 72 65 66 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 73 74 20 | ::.<meth-ref>..............(1st. |
| 971e0 | 28 21 20 6d 65 74 68 6f 64 73 2d 62 79 2d 6e 61 6d 65 20 73 63 20 22 65 76 61 6c 22 0a 20 20 20 | (!.methods-by-name.sc."eval".... |
| 97200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 74 20 22 28 4c 6a 61 76 61 2f 6c | ..................(cat."(Ljava/l |
| 97220 | 61 6e 67 2f 4f 62 6a 65 63 74 3b 4c 67 6e 75 2f 6d 61 70 70 69 6e 67 2f 45 6e 76 69 72 6f 6e 6d | ang/Object;Lgnu/mapping/Environm |
| 97240 | 65 6e 74 3b 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ent;)".......................... |
| 97260 | 20 22 4c 6a 61 76 61 2f 6c 61 6e 67 2f 4f 62 6a 65 63 74 3b 22 29 29 29 29 29 0a 20 20 20 20 28 | ."Ljava/lang/Object;"))))).....( |
| 97280 | 21 20 69 6e 76 6f 6b 65 4d 65 74 68 6f 64 20 73 63 20 74 20 65 76 20 28 6c 69 73 74 20 73 65 78 | !.invokeMethod.sc.t.ev.(list.sex |
| 972a0 | 70 20 65 6e 76 29 0a 20 20 20 20 20 20 20 28 40 73 20 3c 63 6c 61 73 73 2d 74 79 70 65 3e 20 49 | p.env)........(@s.<class-type>.I |
| 972c0 | 4e 56 4f 4b 45 5f 53 49 4e 47 4c 45 5f 54 48 52 45 41 44 45 44 29 29 29 29 0a 0a 3b 3b 3b 3b 3b | NVOKE_SINGLE_THREADED))))..;;;;; |
| 972e0 | 20 54 68 72 65 61 64 73 0a 0a 28 64 66 20 6c 69 73 74 2d 74 68 72 65 61 64 73 20 28 76 6d 20 3a | .Threads..(df.list-threads.(vm.: |
| 97300 | 3a 20 3c 76 6d 3e 20 73 74 61 74 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 68 72 65 61 64 73 20 | :.<vm>.state)...(let*.((threads. |
| 97320 | 28 21 20 61 6c 6c 54 68 72 65 61 64 73 20 76 6d 29 29 29 0a 20 20 20 20 28 70 75 74 20 73 74 61 | (!.allThreads.vm))).....(put.sta |
| 97340 | 74 65 20 27 61 6c 6c 2d 74 68 72 65 61 64 73 20 74 68 72 65 61 64 73 29 0a 20 20 20 20 28 70 61 | te.'all-threads.threads).....(pa |
| 97360 | 63 6b 69 6e 67 20 28 70 61 63 6b 29 0a 20 20 20 20 20 20 28 70 61 63 6b 20 27 28 5c 3a 69 64 20 | cking.(pack).......(pack.'(\:id. |
| 97380 | 5c 3a 6e 61 6d 65 20 5c 3a 73 74 61 74 75 73 20 5c 3a 70 72 69 6f 72 69 74 79 29 29 0a 20 20 20 | \:name.\:status.\:priority)).... |
| 973a0 | 20 20 20 28 69 74 65 72 20 74 68 72 65 61 64 73 20 28 66 75 6e 20 28 28 74 20 3c 74 68 72 65 61 | ...(iter.threads.(fun.((t.<threa |
| 973c0 | 64 2d 72 65 66 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | d-ref>)).......................( |
| 973e0 | 70 61 63 6b 20 28 6c 69 73 74 20 28 21 20 75 6e 69 71 75 65 49 44 20 74 29 0a 20 20 20 20 20 20 | pack.(list.(!.uniqueID.t)....... |
| 97400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 6e | ............................(!.n |
| 97420 | 61 6d 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame.t).......................... |
| 97440 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 20 28 74 68 72 65 61 64 2d 73 74 61 74 75 73 | .........(let.((s.(thread-status |
| 97460 | 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .t)))........................... |
| 97480 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 21 20 69 73 2d 73 75 73 70 65 6e 64 65 64 20 74 29 | ..........(if.(!.is-suspended.t) |
| 974a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 974c0 | 20 20 20 20 20 20 20 20 20 28 63 61 74 20 22 53 55 53 50 45 4e 44 45 44 2f 22 20 73 29 0a 20 20 | .........(cat."SUSPENDED/".s)... |
| 974e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 97500 | 20 20 20 20 20 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......s))....................... |
| 97520 | 20 20 20 20 20 20 20 20 20 20 20 20 30 29 29 29 29 29 29 29 0a 0a 28 64 66 20 74 68 72 65 61 64 | ............0)))))))..(df.thread |
| 97540 | 2d 73 74 61 74 75 73 20 28 74 20 3a 3a 20 3c 74 68 72 65 61 64 2d 72 65 66 3e 29 0a 20 20 28 6c | -status.(t.::.<thread-ref>)...(l |
| 97560 | 65 74 20 28 28 73 20 28 21 20 73 74 61 74 75 73 20 74 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | et.((s.(!.status.t))).....(cond. |
| 97580 | 28 28 3d 20 73 20 28 40 73 20 3c 74 68 72 65 61 64 2d 72 65 66 3e 20 54 48 52 45 41 44 5f 53 54 | ((=.s.(@s.<thread-ref>.THREAD_ST |
| 975a0 | 41 54 55 53 5f 55 4e 4b 4e 4f 57 4e 29 29 20 22 55 4e 4b 4e 4f 57 4e 22 29 0a 20 20 20 20 20 20 | ATUS_UNKNOWN))."UNKNOWN")....... |
| 975c0 | 20 20 20 20 28 28 3d 20 73 20 28 40 73 20 3c 74 68 72 65 61 64 2d 72 65 66 3e 20 54 48 52 45 41 | ....((=.s.(@s.<thread-ref>.THREA |
| 975e0 | 44 5f 53 54 41 54 55 53 5f 5a 4f 4d 42 49 45 29 29 20 22 5a 4f 4d 42 49 45 22 29 0a 20 20 20 20 | D_STATUS_ZOMBIE))."ZOMBIE")..... |
| 97600 | 20 20 20 20 20 20 28 28 3d 20 73 20 28 40 73 20 3c 74 68 72 65 61 64 2d 72 65 66 3e 20 54 48 52 | ......((=.s.(@s.<thread-ref>.THR |
| 97620 | 45 41 44 5f 53 54 41 54 55 53 5f 52 55 4e 4e 49 4e 47 29 29 20 22 52 55 4e 4e 49 4e 47 22 29 0a | EAD_STATUS_RUNNING))."RUNNING"). |
| 97640 | 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 73 20 28 40 73 20 3c 74 68 72 65 61 64 2d 72 65 66 3e | ..........((=.s.(@s.<thread-ref> |
| 97660 | 20 54 48 52 45 41 44 5f 53 54 41 54 55 53 5f 53 4c 45 45 50 49 4e 47 29 29 20 22 53 4c 45 45 50 | .THREAD_STATUS_SLEEPING))."SLEEP |
| 97680 | 49 4e 47 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 73 20 28 40 73 20 3c 74 68 72 65 61 | ING")...........((=.s.(@s.<threa |
| 976a0 | 64 2d 72 65 66 3e 20 54 48 52 45 41 44 5f 53 54 41 54 55 53 5f 4d 4f 4e 49 54 4f 52 29 29 20 22 | d-ref>.THREAD_STATUS_MONITOR))." |
| 976c0 | 4d 4f 4e 49 54 4f 52 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 73 20 28 40 73 20 3c 74 | MONITOR")...........((=.s.(@s.<t |
| 976e0 | 68 72 65 61 64 2d 72 65 66 3e 20 54 48 52 45 41 44 5f 53 54 41 54 55 53 5f 57 41 49 54 29 29 20 | hread-ref>.THREAD_STATUS_WAIT)). |
| 97700 | 22 57 41 49 54 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 73 20 28 40 73 20 3c 74 68 72 | "WAIT")...........((=.s.(@s.<thr |
| 97720 | 65 61 64 2d 72 65 66 3e 20 54 48 52 45 41 44 5f 53 54 41 54 55 53 5f 4e 4f 54 5f 53 54 41 52 54 | ead-ref>.THREAD_STATUS_NOT_START |
| 97740 | 45 44 29 29 20 22 4e 4f 54 5f 53 54 41 52 54 45 44 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 23 | ED))."NOT_STARTED")...........(# |
| 97760 | 74 20 22 3c 62 75 67 3e 22 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 42 6f 6f 74 73 74 72 61 70 0a 0a | t."<bug>"))))..;;;;;.Bootstrap.. |
| 97780 | 28 64 66 20 76 6d 2d 61 74 74 61 63 68 20 28 3d 3e 20 3c 76 6d 3e 29 0a 20 20 28 61 74 74 61 63 | (df.vm-attach.(=>.<vm>)...(attac |
| 977a0 | 68 20 28 67 65 74 70 69 64 29 20 32 30 29 29 0a 0a 28 64 66 20 61 74 74 61 63 68 20 28 70 69 64 | h.(getpid).20))..(df.attach.(pid |
| 977c0 | 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 6c 6f 67 20 22 61 74 74 61 63 68 69 6e 67 3a 20 7e 61 20 | .timeout)...(log."attaching:.~a. |
| 977e0 | 7e 61 5c 6e 22 20 70 69 64 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 3c 61 63 | ~a\n".pid.timeout)...(let*.((<ac |
| 97800 | 3e 20 3c 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 63 6f 6e 6e 65 63 74 2e 41 74 74 61 63 68 69 6e 67 | >.<com.sun.jdi.connect.Attaching |
| 97820 | 43 6f 6e 6e 65 63 74 6f 72 3e 29 0a 20 20 20 20 20 20 20 20 20 28 3c 61 72 67 3e 20 3c 63 6f 6d | Connector>)..........(<arg>.<com |
| 97840 | 2e 73 75 6e 2e 6a 64 69 2e 63 6f 6e 6e 65 63 74 2e 43 6f 6e 6e 65 63 74 6f 72 24 41 72 67 75 6d | .sun.jdi.connect.Connector$Argum |
| 97860 | 65 6e 74 3e 29 0a 20 20 20 20 20 20 20 20 20 28 76 6d 6d 20 28 21 73 20 63 6f 6d 2e 73 75 6e 2e | ent>)..........(vmm.(!s.com.sun. |
| 97880 | 6a 64 69 2e 42 6f 6f 74 73 74 72 61 70 20 76 69 72 74 75 61 6c 4d 61 63 68 69 6e 65 4d 61 6e 61 | jdi.Bootstrap.virtualMachineMana |
| 978a0 | 67 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 61 20 28 61 73 20 3c 61 63 3e 0a 20 20 20 20 | ger))..........(pa.(as.<ac>..... |
| 978c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............(or................ |
| 978e0 | 20 20 20 28 66 69 6e 64 2d 69 66 20 28 21 20 61 74 74 61 63 68 69 6e 67 2d 63 6f 6e 6e 65 63 74 | ...(find-if.(!.attaching-connect |
| 97900 | 6f 72 73 20 76 6d 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ors.vmm)........................ |
| 97920 | 20 20 20 20 28 66 75 6e 20 28 78 20 3a 3a 20 3c 61 63 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ....(fun.(x.::.<ac>)............ |
| 97940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 65 71 75 61 6c 73 20 28 21 20 6e | ..................(!.equals.(!.n |
| 97960 | 61 6d 65 20 78 29 20 22 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 50 72 6f 63 65 73 73 41 74 74 61 63 | ame.x)."com.sun.jdi.ProcessAttac |
| 97980 | 68 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h"))............................ |
| 979a0 | 23 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 50 72 | #f)...................(error."Pr |
| 979c0 | 6f 63 65 73 73 41 74 74 61 63 68 20 63 6f 6e 6e 65 63 74 6f 72 20 6e 6f 74 20 66 6f 75 6e 64 22 | ocessAttach.connector.not.found" |
| 979e0 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 72 67 73 20 28 21 20 64 65 66 61 75 6c 74 2d 61 | ))))..........(args.(!.default-a |
| 97a00 | 72 67 75 6d 65 6e 74 73 20 70 61 29 29 29 0a 20 20 20 20 28 21 20 73 65 74 2d 76 61 6c 75 65 20 | rguments.pa))).....(!.set-value. |
| 97a20 | 28 61 73 20 3c 61 72 67 3e 20 28 21 20 67 65 74 20 61 72 67 73 20 28 74 6f 2d 73 74 72 20 22 70 | (as.<arg>.(!.get.args.(to-str."p |
| 97a40 | 69 64 22 29 29 29 20 70 69 64 29 0a 20 20 20 20 28 77 68 65 6e 20 74 69 6d 65 6f 75 74 0a 20 20 | id"))).pid).....(when.timeout... |
| 97a60 | 20 20 20 20 28 21 20 73 65 74 2d 76 61 6c 75 65 20 28 61 73 20 3c 61 72 67 3e 20 28 21 20 67 65 | ....(!.set-value.(as.<arg>.(!.ge |
| 97a80 | 74 20 61 72 67 73 20 28 74 6f 2d 73 74 72 20 22 74 69 6d 65 6f 75 74 22 29 29 29 20 74 69 6d 65 | t.args.(to-str."timeout"))).time |
| 97aa0 | 6f 75 74 29 29 0a 20 20 20 20 28 6c 6f 67 20 22 61 74 74 61 63 68 69 6e 67 32 3a 20 7e 61 20 7e | out)).....(log."attaching2:.~a.~ |
| 97ac0 | 61 5c 6e 22 20 70 61 20 61 72 67 73 29 0a 20 20 20 20 28 21 20 61 74 74 61 63 68 20 70 61 20 61 | a\n".pa.args).....(!.attach.pa.a |
| 97ae0 | 72 67 73 29 29 29 0a 0a 28 64 66 20 67 65 74 70 69 64 20 28 29 0a 20 20 28 6c 65 74 20 28 28 70 | rgs)))..(df.getpid.()...(let.((p |
| 97b00 | 20 28 6d 61 6b 65 2d 70 72 6f 63 65 73 73 20 28 63 6f 6d 6d 61 6e 64 2d 70 61 72 73 65 20 22 65 | .(make-process.(command-parse."e |
| 97b20 | 63 68 6f 20 24 50 50 49 44 22 29 20 23 21 6e 75 6c 6c 29 29 29 0a 20 20 20 20 28 21 20 77 61 69 | cho.$PPID").#!null))).....(!.wai |
| 97b40 | 74 46 6f 72 20 70 29 0a 20 20 20 20 28 21 20 72 65 61 64 2d 6c 69 6e 65 20 28 3c 6a 61 76 61 2e | tFor.p).....(!.read-line.(<java. |
| 97b60 | 69 6f 2e 42 75 66 66 65 72 65 64 52 65 61 64 65 72 3e 20 28 3c 69 6e 3e 20 28 21 20 67 65 74 2d | io.BufferedReader>.(<in>.(!.get- |
| 97b80 | 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 70 29 29 29 29 29 29 0a 0a 28 64 66 20 72 65 71 75 65 73 | input-stream.p))))))..(df.reques |
| 97ba0 | 74 2d 75 6e 63 61 75 67 68 74 2d 65 78 63 65 70 74 69 6f 6e 2d 65 76 65 6e 74 73 20 28 28 76 6d | t-uncaught-exception-events.((vm |
| 97bc0 | 20 3c 76 6d 3e 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 65 72 6d 20 28 21 20 65 76 65 6e 74 52 65 | .<vm>))...(let*.((erm.(!.eventRe |
| 97be0 | 71 75 65 73 74 4d 61 6e 61 67 65 72 20 76 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 71 20 | questManager.vm))..........(req. |
| 97c00 | 28 21 20 63 72 65 61 74 65 45 78 63 65 70 74 69 6f 6e 52 65 71 75 65 73 74 20 65 72 6d 20 23 21 | (!.createExceptionRequest.erm.#! |
| 97c20 | 6e 75 6c 6c 20 23 66 20 23 74 29 29 29 0a 20 20 20 20 28 21 20 73 65 74 53 75 73 70 65 6e 64 50 | null.#f.#t))).....(!.setSuspendP |
| 97c40 | 6f 6c 69 63 79 20 72 65 71 20 28 40 20 53 55 53 50 45 4e 44 5f 45 56 45 4e 54 5f 54 48 52 45 41 | olicy.req.(@.SUSPEND_EVENT_THREA |
| 97c60 | 44 20 72 65 71 29 29 0a 20 20 20 20 28 21 20 61 64 64 54 68 72 65 61 64 46 69 6c 74 65 72 20 72 | D.req)).....(!.addThreadFilter.r |
| 97c80 | 65 71 20 28 76 6d 2d 6d 69 72 72 6f 72 20 76 6d 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 | eq.(vm-mirror.vm.(current-thread |
| 97ca0 | 29 29 29 0a 20 20 20 20 28 21 20 65 6e 61 62 6c 65 20 72 65 71 29 29 29 0a 0a 0a 28 64 66 20 72 | ))).....(!.enable.req)))...(df.r |
| 97cc0 | 65 71 75 65 73 74 2d 63 61 75 67 68 74 2d 65 78 63 65 70 74 69 6f 6e 2d 65 76 65 6e 74 73 20 28 | equest-caught-exception-events.( |
| 97ce0 | 28 76 6d 20 3c 76 6d 3e 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 65 72 6d 20 28 21 20 65 76 65 6e | (vm.<vm>))...(let*.((erm.(!.even |
| 97d00 | 74 52 65 71 75 65 73 74 4d 61 6e 61 67 65 72 20 76 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 | tRequestManager.vm))..........(r |
| 97d20 | 65 71 20 28 21 20 63 72 65 61 74 65 45 78 63 65 70 74 69 6f 6e 52 65 71 75 65 73 74 20 65 72 6d | eq.(!.createExceptionRequest.erm |
| 97d40 | 20 23 21 6e 75 6c 6c 20 23 74 20 23 66 29 29 29 0a 20 20 20 20 28 21 20 73 65 74 53 75 73 70 65 | .#!null.#t.#f))).....(!.setSuspe |
| 97d60 | 6e 64 50 6f 6c 69 63 79 20 72 65 71 20 28 40 20 53 55 53 50 45 4e 44 5f 45 56 45 4e 54 5f 54 48 | ndPolicy.req.(@.SUSPEND_EVENT_TH |
| 97d80 | 52 45 41 44 20 72 65 71 29 29 0a 20 20 20 20 28 21 20 61 64 64 54 68 72 65 61 64 46 69 6c 74 65 | READ.req)).....(!.addThreadFilte |
| 97da0 | 72 20 72 65 71 20 28 76 6d 2d 6d 69 72 72 6f 72 20 76 6d 20 28 63 75 72 72 65 6e 74 2d 74 68 72 | r.req.(vm-mirror.vm.(current-thr |
| 97dc0 | 65 61 64 29 29 29 0a 20 20 20 20 28 21 20 61 64 64 43 6c 61 73 73 45 78 63 6c 75 73 69 6f 6e 46 | ead))).....(!.addClassExclusionF |
| 97de0 | 69 6c 74 65 72 20 72 65 71 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 43 6c 61 73 73 4c 6f 61 64 65 72 | ilter.req."java.lang.ClassLoader |
| 97e00 | 22 29 0a 20 20 20 20 28 21 20 61 64 64 43 6c 61 73 73 45 78 63 6c 75 73 69 6f 6e 46 69 6c 74 65 | ").....(!.addClassExclusionFilte |
| 97e20 | 72 20 72 65 71 20 22 6a 61 76 61 2e 6e 65 74 2e 55 52 4c 43 6c 61 73 73 4c 6f 61 64 65 72 22 29 | r.req."java.net.URLClassLoader") |
| 97e40 | 0a 20 20 20 20 28 21 20 61 64 64 43 6c 61 73 73 45 78 63 6c 75 73 69 6f 6e 46 69 6c 74 65 72 20 | .....(!.addClassExclusionFilter. |
| 97e60 | 72 65 71 20 22 6a 61 76 61 2e 6e 65 74 2e 55 52 4c 43 6c 61 73 73 4c 6f 61 64 65 72 24 31 22 29 | req."java.net.URLClassLoader$1") |
| 97e80 | 0a 20 20 20 20 28 21 20 65 6e 61 62 6c 65 20 72 65 71 29 29 29 0a 0a 28 64 66 20 73 65 74 2d 73 | .....(!.enable.req)))..(df.set-s |
| 97ea0 | 74 61 63 6b 74 72 61 63 65 2d 72 65 63 6f 72 64 69 6e 67 20 28 28 76 6d 20 3c 76 6d 3e 29 20 28 | tacktrace-recording.((vm.<vm>).( |
| 97ec0 | 66 6c 61 67 20 3c 62 6f 6f 6c 65 61 6e 3e 29 29 0a 20 20 28 66 6f 72 20 28 28 28 65 20 3a 3a 20 | flag.<boolean>))...(for.(((e.::. |
| 97ee0 | 3c 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 72 65 71 75 65 73 74 2e 45 78 63 65 70 74 69 6f 6e 52 65 | <com.sun.jdi.request.ExceptionRe |
| 97f00 | 71 75 65 73 74 3e 29 0a 20 20 20 20 20 20 20 20 20 28 21 21 20 65 78 63 65 70 74 69 6f 6e 52 65 | quest>)..........(!!.exceptionRe |
| 97f20 | 71 75 65 73 74 73 20 65 76 65 6e 74 52 65 71 75 65 73 74 4d 61 6e 61 67 65 72 20 76 6d 29 29 29 | quests.eventRequestManager.vm))) |
| 97f40 | 0a 20 20 20 20 28 77 68 65 6e 20 28 21 20 6e 6f 74 69 66 79 2d 63 61 75 67 68 74 20 65 29 0a 20 | .....(when.(!.notify-caught.e).. |
| 97f60 | 20 20 20 20 20 28 21 20 73 65 74 45 6e 61 62 6c 65 64 20 65 20 66 6c 61 67 29 29 29 29 0a 0a 3b | .....(!.setEnabled.e.flag))))..; |
| 97f80 | 3b 20 28 73 65 74 2d 73 74 61 63 6b 74 72 61 63 65 2d 72 65 63 6f 72 64 69 6e 67 20 2a 74 68 65 | ;.(set-stacktrace-recording.*the |
| 97fa0 | 2d 76 6d 2a 20 23 66 29 0a 0a 28 64 66 20 76 6d 2d 74 6f 2d 73 74 72 69 6e 67 20 28 28 76 6d 20 | -vm*.#f)..(df.vm-to-string.((vm. |
| 97fc0 | 3c 76 6d 3e 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 6f 62 6a 20 28 61 73 20 3c 72 65 66 2d 74 79 | <vm>))...(let*.((obj.(as.<ref-ty |
| 97fe0 | 70 65 3e 20 28 31 73 74 20 28 21 20 63 6c 61 73 73 65 73 42 79 4e 61 6d 65 20 76 6d 20 22 6a 61 | pe>.(1st.(!.classesByName.vm."ja |
| 98000 | 76 61 2e 6c 61 6e 67 2e 4f 62 6a 65 63 74 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 | va.lang.Object"))))..........(me |
| 98020 | 74 20 28 61 73 20 3c 6d 65 74 68 2d 72 65 66 3e 20 28 31 73 74 20 28 21 20 6d 65 74 68 6f 64 73 | t.(as.<meth-ref>.(1st.(!.methods |
| 98040 | 42 79 4e 61 6d 65 20 6f 62 6a 20 22 74 6f 53 74 72 69 6e 67 22 29 29 29 29 29 0a 20 20 20 20 28 | ByName.obj."toString"))))).....( |
| 98060 | 66 75 6e 20 28 28 6f 20 3c 6f 62 6a 2d 72 65 66 3e 29 20 28 74 20 3c 74 68 72 65 61 64 2d 72 65 | fun.((o.<obj-ref>).(t.<thread-re |
| 98080 | 66 3e 29 29 0a 20 20 20 20 20 20 28 21 20 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 28 61 73 | f>)).......(!.value..........(as |
| 980a0 | 20 3c 73 74 72 2d 72 65 66 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 69 6e 76 6f 6b | .<str-ref>..............(!.invok |
| 980c0 | 65 4d 65 74 68 6f 64 20 6f 20 74 20 6d 65 74 20 27 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | eMethod.o.t.met.'()............. |
| 980e0 | 20 20 20 20 28 40 73 20 3c 6f 62 6a 2d 72 65 66 3e 20 49 4e 56 4f 4b 45 5f 53 49 4e 47 4c 45 5f | ....(@s.<obj-ref>.INVOKE_SINGLE_ |
| 98100 | 54 48 52 45 41 44 45 44 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 69 6d 70 6c 65 2d | THREADED)))))))..(define-simple- |
| 98120 | 63 6c 61 73 73 20 3c 73 77 61 6e 6b 2d 67 6c 6f 62 61 6c 2d 76 61 72 69 61 62 6c 65 3e 20 28 29 | class.<swank-global-variable>.() |
| 98140 | 0a 20 20 28 76 61 72 20 23 3a 61 6c 6c 6f 63 61 74 69 6f 6e 20 27 73 74 61 74 69 63 29 29 0a 0a | ...(var.#:allocation.'static)).. |
| 98160 | 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 20 2a 67 6c 6f 62 61 6c 2d 67 65 74 2d 6d 69 72 | (define-variable.*global-get-mir |
| 98180 | 72 6f 72 2a 20 23 21 6e 75 6c 6c 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 20 2a 67 | ror*.#!null).(define-variable.*g |
| 981a0 | 6c 6f 62 61 6c 2d 73 65 74 2d 6d 69 72 72 6f 72 2a 20 23 21 6e 75 6c 6c 29 0a 28 64 65 66 69 6e | lobal-set-mirror*.#!null).(defin |
| 981c0 | 65 2d 76 61 72 69 61 62 6c 65 20 2a 67 6c 6f 62 61 6c 2d 67 65 74 2d 72 61 77 2a 20 23 21 6e 75 | e-variable.*global-get-raw*.#!nu |
| 981e0 | 6c 6c 29 0a 28 64 65 66 69 6e 65 2d 76 61 72 69 61 62 6c 65 20 2a 67 6c 6f 62 61 6c 2d 73 65 74 | ll).(define-variable.*global-set |
| 98200 | 2d 72 61 77 2a 20 23 21 6e 75 6c 6c 29 0a 0a 28 64 66 20 69 6e 69 74 2d 67 6c 6f 62 61 6c 2d 66 | -raw*.#!null)..(df.init-global-f |
| 98220 | 69 65 6c 64 20 28 28 76 6d 20 3c 76 6d 3e 29 29 0a 20 20 28 77 68 65 6e 20 28 6e 75 6c 3f 20 2a | ield.((vm.<vm>))...(when.(nul?.* |
| 98240 | 67 6c 6f 62 61 6c 2d 67 65 74 2d 6d 69 72 72 6f 72 2a 29 0a 20 20 20 20 28 73 65 74 20 28 40 73 | global-get-mirror*).....(set.(@s |
| 98260 | 20 3c 73 77 61 6e 6b 2d 67 6c 6f 62 61 6c 2d 76 61 72 69 61 62 6c 65 3e 20 76 61 72 29 20 23 21 | .<swank-global-variable>.var).#! |
| 98280 | 6e 75 6c 6c 29 20 3b 20 70 72 65 70 61 72 65 20 63 6c 61 73 73 0a 20 20 20 20 28 6c 65 74 2a 20 | null).;.prepare.class.....(let*. |
| 982a0 | 28 28 73 77 61 6e 6b 2d 67 6c 6f 62 61 6c 2d 76 61 72 69 61 62 6c 65 2d 63 6c 61 73 73 65 73 0a | ((swank-global-variable-classes. |
| 982c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 63 6c 61 73 73 65 73 2d 62 79 2d 6e 61 6d 65 20 76 | ............(!.classes-by-name.v |
| 982e0 | 6d 20 22 73 77 61 6e 6b 2d 67 6c 6f 62 61 6c 2d 76 61 72 69 61 62 6c 65 22 29 29 0a 20 20 20 20 | m."swank-global-variable"))..... |
| 98300 | 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 67 6c 6f 62 61 6c 2d 76 61 72 69 61 62 6c 65 2d 63 6c | .......(swank-global-variable-cl |
| 98320 | 61 73 73 65 73 2d 6c 65 67 61 63 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 63 6c 61 73 | asses-legacy.............(!.clas |
| 98340 | 73 65 73 2d 62 79 2d 6e 61 6d 65 20 76 6d 20 22 73 77 61 6e 6b 24 4d 6e 67 6c 6f 62 61 6c 24 4d | ses-by-name.vm."swank$Mnglobal$M |
| 98360 | 6e 76 61 72 69 61 62 6c 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 20 28 61 73 20 3c | nvariable"))............(c.(as.< |
| 98380 | 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 43 6c 61 73 73 54 79 70 65 3e 0a 20 20 20 20 20 20 20 20 20 | com.sun.jdi.ClassType>.......... |
| 983a0 | 20 20 20 20 20 20 20 20 20 28 31 73 74 20 28 69 66 20 28 3d 20 28 6c 65 6e 67 74 68 20 73 77 61 | .........(1st.(if.(=.(length.swa |
| 983c0 | 6e 6b 2d 67 6c 6f 62 61 6c 2d 76 61 72 69 61 62 6c 65 2d 63 6c 61 73 73 65 73 29 20 30 29 0a 20 | nk-global-variable-classes).0).. |
| 983e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 61 6e 6b 2d | ..........................swank- |
| 98400 | 67 6c 6f 62 61 6c 2d 76 61 72 69 61 62 6c 65 2d 63 6c 61 73 73 65 73 2d 6c 65 67 61 63 79 0a 20 | global-variable-classes-legacy.. |
| 98420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 61 6e 6b 2d | ..........................swank- |
| 98440 | 67 6c 6f 62 61 6c 2d 76 61 72 69 61 62 6c 65 2d 63 6c 61 73 73 65 73 29 29 29 29 0a 20 20 20 20 | global-variable-classes))))..... |
| 98460 | 20 20 20 20 20 20 20 28 66 20 28 21 20 66 69 65 6c 64 42 79 4e 61 6d 65 20 63 20 22 76 61 72 22 | .......(f.(!.fieldByName.c."var" |
| 98480 | 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 20 2a 67 6c 6f 62 61 6c 2d 67 65 74 2d 6d 69 72 72 6f | ))).......(set.*global-get-mirro |
| 984a0 | 72 2a 20 28 66 75 6e 20 28 29 20 28 21 20 67 65 74 56 61 6c 75 65 20 63 20 66 29 29 29 0a 20 20 | r*.(fun.().(!.getValue.c.f)))... |
| 984c0 | 20 20 20 20 28 73 65 74 20 2a 67 6c 6f 62 61 6c 2d 73 65 74 2d 6d 69 72 72 6f 72 2a 20 28 66 75 | ....(set.*global-set-mirror*.(fu |
| 984e0 | 6e 20 28 28 76 20 3c 6f 62 6a 2d 72 65 66 3e 29 29 20 28 21 20 73 65 74 56 61 6c 75 65 20 63 20 | n.((v.<obj-ref>)).(!.setValue.c. |
| 98500 | 66 20 76 29 29 29 29 0a 20 20 20 20 28 73 65 74 20 2a 67 6c 6f 62 61 6c 2d 67 65 74 2d 72 61 77 | f.v)))).....(set.*global-get-raw |
| 98520 | 2a 20 28 66 75 6e 20 28 29 20 27 28 29 20 28 40 73 20 3c 73 77 61 6e 6b 2d 67 6c 6f 62 61 6c 2d | *.(fun.().'().(@s.<swank-global- |
| 98540 | 76 61 72 69 61 62 6c 65 3e 20 76 61 72 29 29 29 0a 20 20 20 20 28 73 65 74 20 2a 67 6c 6f 62 61 | variable>.var))).....(set.*globa |
| 98560 | 6c 2d 73 65 74 2d 72 61 77 2a 20 28 66 75 6e 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | l-set-raw*.(fun.(x)............. |
| 98580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 28 40 73 20 3c 73 77 61 6e 6b 2d | ................(set.(@s.<swank- |
| 985a0 | 67 6c 6f 62 61 6c 2d 76 61 72 69 61 62 6c 65 3e 20 76 61 72 29 20 78 29 29 29 29 29 0a 0a 28 64 | global-variable>.var).x)))))..(d |
| 985c0 | 66 20 76 6d 2d 6d 69 72 72 6f 72 20 28 28 76 6d 20 3c 76 6d 3e 29 20 6f 62 6a 29 0a 20 20 28 73 | f.vm-mirror.((vm.<vm>).obj)...(s |
| 985e0 | 79 6e 63 68 72 6f 6e 69 7a 65 64 20 76 6d 0a 20 20 20 20 28 69 6e 69 74 2d 67 6c 6f 62 61 6c 2d | ynchronized.vm.....(init-global- |
| 98600 | 66 69 65 6c 64 20 76 6d 29 0a 20 20 20 20 28 2a 67 6c 6f 62 61 6c 2d 73 65 74 2d 72 61 77 2a 20 | field.vm).....(*global-set-raw*. |
| 98620 | 6f 62 6a 29 0a 20 20 20 20 28 2a 67 6c 6f 62 61 6c 2d 67 65 74 2d 6d 69 72 72 6f 72 2a 29 29 29 | obj).....(*global-get-mirror*))) |
| 98640 | 0a 0a 28 64 66 20 76 6d 2d 64 65 6d 69 72 72 6f 72 20 28 28 76 6d 20 3c 76 6d 3e 29 20 28 76 20 | ..(df.vm-demirror.((vm.<vm>).(v. |
| 98660 | 3c 76 61 6c 75 65 3e 29 29 0a 20 20 28 73 79 6e 63 68 72 6f 6e 69 7a 65 64 20 76 6d 0a 20 20 20 | <value>))...(synchronized.vm.... |
| 98680 | 20 28 69 66 20 28 3d 3d 20 76 20 23 21 6e 75 6c 6c 29 0a 20 20 20 20 20 20 23 21 6e 75 6c 6c 0a | .(if.(==.v.#!null).......#!null. |
| 986a0 | 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 76 0a 20 20 20 20 20 20 20 20 28 3c 6f 62 6a 2d | ......(typecase.v.........(<obj- |
| 986c0 | 72 65 66 3e 20 28 69 6e 69 74 2d 67 6c 6f 62 61 6c 2d 66 69 65 6c 64 20 76 6d 29 0a 20 20 20 20 | ref>.(init-global-field.vm)..... |
| 986e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 67 6c 6f 62 61 6c 2d 73 65 74 2d 6d 69 72 72 | ...............(*global-set-mirr |
| 98700 | 6f 72 2a 20 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 67 6c 6f 62 | or*.v)....................(*glob |
| 98720 | 61 6c 2d 67 65 74 2d 72 61 77 2a 29 29 0a 20 20 20 20 20 20 20 20 28 3c 63 6f 6d 2e 73 75 6e 2e | al-get-raw*)).........(<com.sun. |
| 98740 | 6a 64 69 2e 49 6e 74 65 67 65 72 56 61 6c 75 65 3e 20 28 21 20 76 61 6c 75 65 20 76 29 29 0a 20 | jdi.IntegerValue>.(!.value.v)).. |
| 98760 | 20 20 20 20 20 20 20 28 3c 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 4c 6f 6e 67 56 61 6c 75 65 3e 20 | .......(<com.sun.jdi.LongValue>. |
| 98780 | 28 21 20 76 61 6c 75 65 20 76 29 29 0a 20 20 20 20 20 20 20 20 28 3c 63 6f 6d 2e 73 75 6e 2e 6a | (!.value.v)).........(<com.sun.j |
| 987a0 | 64 69 2e 43 68 61 72 56 61 6c 75 65 3e 20 28 21 20 76 61 6c 75 65 20 76 29 29 0a 20 20 20 20 20 | di.CharValue>.(!.value.v))...... |
| 987c0 | 20 20 20 28 3c 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 42 79 74 65 56 61 6c 75 65 3e 20 28 21 20 76 | ...(<com.sun.jdi.ByteValue>.(!.v |
| 987e0 | 61 6c 75 65 20 76 29 29 0a 20 20 20 20 20 20 20 20 28 3c 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 42 | alue.v)).........(<com.sun.jdi.B |
| 98800 | 6f 6f 6c 65 61 6e 56 61 6c 75 65 3e 20 28 21 20 76 61 6c 75 65 20 76 29 29 0a 20 20 20 20 20 20 | ooleanValue>.(!.value.v))....... |
| 98820 | 20 20 28 3c 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 53 68 6f 72 74 56 61 6c 75 65 3e 20 28 21 20 76 | ..(<com.sun.jdi.ShortValue>.(!.v |
| 98840 | 61 6c 75 65 20 76 29 29 0a 20 20 20 20 20 20 20 20 28 3c 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 46 | alue.v)).........(<com.sun.jdi.F |
| 98860 | 6c 6f 61 74 56 61 6c 75 65 3e 20 28 21 20 76 61 6c 75 65 20 76 29 29 0a 20 20 20 20 20 20 20 20 | loatValue>.(!.value.v))......... |
| 98880 | 28 3c 63 6f 6d 2e 73 75 6e 2e 6a 64 69 2e 44 6f 75 62 6c 65 56 61 6c 75 65 3e 20 28 21 20 76 61 | (<com.sun.jdi.DoubleValue>.(!.va |
| 988a0 | 6c 75 65 20 76 29 29 29 29 29 29 0a 0a 28 64 66 20 76 6d 2d 73 65 74 2d 73 6c 6f 74 20 28 28 76 | lue.v))))))..(df.vm-set-slot.((v |
| 988c0 | 6d 20 3c 76 6d 3e 29 20 28 6f 20 3c 6f 62 6a 65 63 74 3e 29 20 28 6e 61 6d 65 20 3c 73 74 72 3e | m.<vm>).(o.<object>).(name.<str> |
| 988e0 | 29 20 76 61 6c 75 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 6f 20 28 61 73 20 3c 6f 62 6a 2d 72 65 | ).value)...(let*.((o.(as.<obj-re |
| 98900 | 66 3e 20 28 76 6d 2d 6d 69 72 72 6f 72 20 76 6d 20 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 | f>.(vm-mirror.vm.o)))..........( |
| 98920 | 74 20 28 21 20 72 65 66 65 72 65 6e 63 65 2d 74 79 70 65 20 6f 29 29 0a 20 20 20 20 20 20 20 20 | t.(!.reference-type.o))......... |
| 98940 | 20 28 66 20 28 21 20 66 69 65 6c 64 2d 62 79 2d 6e 61 6d 65 20 74 20 6e 61 6d 65 29 29 29 0a 20 | .(f.(!.field-by-name.t.name))).. |
| 98960 | 20 20 20 28 21 20 73 65 74 2d 76 61 6c 75 65 20 6f 20 66 20 28 76 6d 2d 6d 69 72 72 6f 72 20 76 | ...(!.set-value.o.f.(vm-mirror.v |
| 98980 | 6d 20 76 61 6c 75 65 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 69 6d 70 6c 65 2d 63 6c 61 73 | m.value))))..(define-simple-clas |
| 989a0 | 73 20 3c 75 63 65 78 2d 68 61 6e 64 6c 65 72 3e 0a 20 20 20 20 28 3c 6a 61 76 61 2e 6c 61 6e 67 | s.<ucex-handler>.....(<java.lang |
| 989c0 | 2e 54 68 72 65 61 64 24 55 6e 63 61 75 67 68 74 45 78 63 65 70 74 69 6f 6e 48 61 6e 64 6c 65 72 | .Thread$UncaughtExceptionHandler |
| 989e0 | 3e 29 0a 20 20 28 66 20 3a 3a 20 3c 67 6e 75 2e 6d 61 70 70 69 6e 67 2e 50 72 6f 63 65 64 75 72 | >)...(f.::.<gnu.mapping.Procedur |
| 98a00 | 65 3e 29 0a 20 20 28 28 2a 69 6e 69 74 2a 20 28 66 20 3a 3a 20 3c 67 6e 75 2e 6d 61 70 70 69 6e | e>)...((*init*.(f.::.<gnu.mappin |
| 98a20 | 67 2e 50 72 6f 63 65 64 75 72 65 3e 29 29 20 28 73 65 74 20 28 40 20 66 20 28 74 68 69 73 29 29 | g.Procedure>)).(set.(@.f.(this)) |
| 98a40 | 20 66 29 29 0a 20 20 28 28 75 6e 63 61 75 67 68 74 45 78 63 65 70 74 69 6f 6e 20 28 74 20 3a 3a | .f))...((uncaughtException.(t.:: |
| 98a60 | 20 3c 74 68 72 65 61 64 3e 29 20 28 65 20 3a 3a 20 3c 74 68 72 6f 77 61 62 6c 65 3e 29 29 0a 20 | .<thread>).(e.::.<throwable>)).. |
| 98a80 | 20 20 3a 3a 20 3c 76 6f 69 64 3e 0a 20 20 20 28 21 20 70 72 69 6e 74 6c 6e 20 28 40 73 20 6a 61 | ..::.<void>....(!.println.(@s.ja |
| 98aa0 | 76 61 2e 6c 61 6e 67 2e 53 79 73 74 65 6d 20 65 72 72 29 20 28 74 6f 2d 73 74 72 20 22 75 68 65 | va.lang.System.err).(to-str."uhe |
| 98ac0 | 78 63 3a 3a 3a 22 29 29 0a 20 20 20 28 21 20 61 70 70 6c 79 32 20 66 20 74 20 65 29 0a 20 20 20 | xc:::"))....(!.apply2.f.t.e).... |
| 98ae0 | 23 21 76 6f 69 64 29 29 0a 0a 3b 3b 3b 3b 20 43 68 61 6e 6e 65 6c 73 0a 0a 28 64 66 20 73 70 61 | #!void))..;;;;.Channels..(df.spa |
| 98b00 | 77 6e 20 28 66 29 0a 20 20 28 6c 65 74 20 28 28 74 68 72 65 61 64 20 28 3c 74 68 72 65 61 64 3e | wn.(f)...(let.((thread.(<thread> |
| 98b20 | 20 28 25 25 72 75 6e 6e 61 62 6c 65 20 66 29 29 29 29 0a 20 20 20 20 28 21 20 73 74 61 72 74 20 | .(%%runnable.f)))).....(!.start. |
| 98b40 | 74 68 72 65 61 64 29 0a 20 20 20 20 74 68 72 65 61 64 29 29 0a 0a 0a 3b 3b 20 67 6e 75 2e 6d 61 | thread).....thread))...;;.gnu.ma |
| 98b60 | 70 70 69 6e 67 2e 52 75 6e 6e 61 62 6c 65 43 6c 6f 73 75 72 65 20 75 73 65 73 20 74 68 65 20 74 | pping.RunnableClosure.uses.the.t |
| 98b80 | 72 79 7b 2e 2e 2e 7d 63 61 74 63 68 28 54 68 72 6f 77 61 62 6c 65 29 7b 2e 2e 2e 7d 0a 3b 3b 20 | ry{...}catch(Throwable){...}.;;. |
| 98ba0 | 69 64 69 6f 6d 20 77 68 69 63 68 20 64 65 66 65 61 74 73 20 61 6c 6c 20 61 74 74 65 6d 70 74 73 | idiom.which.defeats.all.attempts |
| 98bc0 | 20 74 6f 20 75 73 65 20 61 20 62 72 65 61 6b 2d 6f 6e 2d 65 72 72 6f 72 2d 73 74 79 6c 65 0a 3b | .to.use.a.break-on-error-style.; |
| 98be0 | 3b 20 64 65 62 75 67 67 65 72 2e 20 20 50 72 65 76 69 6f 75 73 6c 79 20 49 20 68 61 64 20 6d 79 | ;.debugger...Previously.I.had.my |
| 98c00 | 20 6f 77 6e 20 76 65 72 73 69 6f 6e 20 6f 66 20 52 75 6e 6e 61 62 6c 65 43 6c 6f 73 75 72 65 0a | .own.version.of.RunnableClosure. |
| 98c20 | 3b 3b 20 77 69 74 68 6f 75 74 20 74 68 61 74 20 64 65 66 69 63 69 65 6e 63 79 20 62 75 74 20 73 | ;;.without.that.deficiency.but.s |
| 98c40 | 6f 6d 65 74 68 69 6e 67 20 69 6e 20 75 70 73 74 72 65 61 6d 20 63 68 61 6e 67 65 64 20 61 6e 64 | omething.in.upstream.changed.and |
| 98c60 | 20 69 74 20 6e 6f 0a 3b 3b 20 6c 6f 6e 67 65 72 20 77 6f 72 6b 65 64 2e 20 4e 6f 77 20 77 65 20 | .it.no.;;.longer.worked..Now.we. |
| 98c80 | 75 73 65 20 74 68 65 20 6e 6f 72 6d 61 6c 20 52 75 6e 6e 61 62 6c 65 43 6c 6f 73 75 72 65 20 61 | use.the.normal.RunnableClosure.a |
| 98ca0 | 6e 64 20 61 74 20 74 68 65 0a 3b 3b 20 63 6f 73 74 20 6f 66 20 74 61 6b 69 6e 67 20 73 74 61 63 | nd.at.the.;;.cost.of.taking.stac |
| 98cc0 | 6b 20 73 6e 61 70 73 68 6f 74 73 20 6f 6e 20 65 76 65 72 79 20 74 68 72 6f 77 2e 0a 28 64 66 20 | k.snapshots.on.every.throw..(df. |
| 98ce0 | 25 25 72 75 6e 6e 61 62 6c 65 20 28 66 20 3d 3e 20 3c 6a 61 76 61 2e 6c 61 6e 67 2e 52 75 6e 6e | %%runnable.(f.=>.<java.lang.Runn |
| 98d00 | 61 62 6c 65 3e 29 0a 20 20 3b 3b 28 3c 72 75 6e 6e 61 62 6c 65 3e 20 66 29 0a 20 20 3b 3b 28 3c | able>)...;;(<runnable>.f)...;;(< |
| 98d20 | 67 6e 75 2e 6d 61 70 70 69 6e 67 2e 52 75 6e 6e 61 62 6c 65 43 6c 6f 73 75 72 65 3e 20 66 29 0a | gnu.mapping.RunnableClosure>.f). |
| 98d40 | 20 20 3b 3b 28 72 75 6e 6e 61 62 6c 65 20 66 29 0a 20 20 28 25 72 75 6e 6e 61 62 6c 65 20 66 29 | ..;;(runnable.f)...(%runnable.f) |
| 98d60 | 0a 20 20 29 0a 0a 28 64 66 20 25 72 75 6e 6e 61 62 6c 65 20 28 66 20 3d 3e 20 3c 6a 61 76 61 2e | ...)..(df.%runnable.(f.=>.<java. |
| 98d80 | 6c 61 6e 67 2e 52 75 6e 6e 61 62 6c 65 3e 29 0a 20 20 28 72 75 6e 6e 61 62 6c 65 0a 20 20 20 28 | lang.Runnable>)...(runnable....( |
| 98da0 | 66 75 6e 20 28 29 0a 20 20 20 20 20 28 74 72 79 2d 63 61 74 63 68 20 28 66 29 0a 20 20 20 20 20 | fun.()......(try-catch.(f)...... |
| 98dc0 | 20 20 20 20 20 20 20 20 20 20 20 28 65 78 20 3c 74 68 72 6f 77 61 62 6c 65 3e 0a 20 20 20 20 20 | ...........(ex.<throwable>...... |
| 98de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 67 20 22 65 78 63 65 70 74 69 6f 6e 20 69 | ...............(log."exception.i |
| 98e00 | 6e 20 74 68 72 65 61 64 20 7e 73 3a 20 7e 73 22 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 | n.thread.~s:.~s".(current-thread |
| 98e20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 29 0a | )...........................ex). |
| 98e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 70 72 69 6e 74 53 74 61 63 | ....................(!.printStac |
| 98e60 | 6b 54 72 61 63 65 20 65 78 29 29 29 29 29 29 0a 0a 28 64 66 20 63 68 61 6e 20 28 29 0a 20 20 28 | kTrace.ex))))))..(df.chan.()...( |
| 98e80 | 6c 65 74 20 28 28 6c 6f 63 6b 20 28 3c 6f 62 6a 65 63 74 3e 29 29 0a 20 20 20 20 20 20 20 20 28 | let.((lock.(<object>)).........( |
| 98ea0 | 69 6d 20 28 3c 63 68 61 6e 3e 29 29 0a 20 20 20 20 20 20 20 20 28 65 78 20 28 3c 63 68 61 6e 3e | im.(<chan>)).........(ex.(<chan> |
| 98ec0 | 29 29 29 0a 20 20 20 20 28 73 65 74 20 28 40 20 6c 6f 63 6b 20 69 6d 29 20 6c 6f 63 6b 29 0a 20 | ))).....(set.(@.lock.im).lock).. |
| 98ee0 | 20 20 20 28 73 65 74 20 28 40 20 6c 6f 63 6b 20 65 78 29 20 6c 6f 63 6b 29 0a 20 20 20 20 28 73 | ...(set.(@.lock.ex).lock).....(s |
| 98f00 | 65 74 20 28 40 20 70 65 65 72 20 69 6d 29 20 65 78 29 0a 20 20 20 20 28 73 65 74 20 28 40 20 70 | et.(@.peer.im).ex).....(set.(@.p |
| 98f20 | 65 65 72 20 65 78 29 20 69 6d 29 0a 20 20 20 20 28 63 6f 6e 73 20 69 6d 20 65 78 29 29 29 0a 0a | eer.ex).im).....(cons.im.ex))).. |
| 98f40 | 28 64 66 20 69 6d 6d 75 74 61 62 6c 65 3f 20 28 6f 62 6a 29 0a 20 20 28 6f 72 20 28 3d 3d 20 6f | (df.immutable?.(obj)...(or.(==.o |
| 98f60 | 62 6a 20 23 21 6e 75 6c 6c 29 0a 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 3f 20 6f 62 6a 29 0a 20 | bj.#!null).......(symbol?.obj).. |
| 98f80 | 20 20 20 20 20 28 6e 75 6d 62 65 72 3f 20 6f 62 6a 29 0a 20 20 20 20 20 20 28 63 68 61 72 3f 20 | .....(number?.obj).......(char?. |
| 98fa0 | 6f 62 6a 29 0a 20 20 20 20 20 20 28 69 6e 73 74 61 6e 63 65 3f 20 6f 62 6a 20 3c 73 74 72 3e 29 | obj).......(instance?.obj.<str>) |
| 98fc0 | 0a 20 20 20 20 20 20 28 6e 75 6c 6c 3f 20 6f 62 6a 29 29 29 0a 0a 28 64 66 20 73 65 6e 64 20 28 | .......(null?.obj)))..(df.send.( |
| 98fe0 | 28 63 20 3c 63 68 61 6e 3e 29 20 76 61 6c 75 65 20 3d 3e 20 3c 76 6f 69 64 3e 29 0a 20 20 28 64 | (c.<chan>).value.=>.<void>)...(d |
| 99000 | 66 20 70 61 73 73 20 28 6f 62 6a 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 69 6d 6d 75 74 61 62 | f.pass.(obj).....(cond.((immutab |
| 99020 | 6c 65 3f 20 6f 62 6a 29 20 6f 62 6a 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 | le?.obj).obj)...........((string |
| 99040 | 3f 20 6f 62 6a 29 20 28 21 20 74 6f 2d 73 74 72 69 6e 67 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 | ?.obj).(!.to-string.obj))....... |
| 99060 | 20 20 20 20 28 28 70 61 69 72 3f 20 6f 62 6a 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | ....((pair?.obj)............(let |
| 99080 | 20 6c 6f 6f 70 20 28 28 72 20 28 6c 69 73 74 20 28 70 61 73 73 20 28 63 61 72 20 6f 62 6a 29 29 | .loop.((r.(list.(pass.(car.obj)) |
| 990a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 20 28 63 64 72 | )).......................(o.(cdr |
| 990c0 | 20 6f 62 6a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c | .obj)))..............(cond.((nul |
| 990e0 | 6c 3f 20 6f 29 20 28 72 65 76 65 72 73 65 21 20 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | l?.o).(reverse!.r))............. |
| 99100 | 20 20 20 20 20 20 20 28 28 70 61 69 72 3f 20 6f 29 20 28 6c 6f 6f 70 20 28 63 6f 6e 73 20 28 70 | .......((pair?.o).(loop.(cons.(p |
| 99120 | 61 73 73 20 28 63 61 72 20 6f 29 29 20 72 29 20 28 63 64 72 20 6f 29 29 29 0a 20 20 20 20 20 20 | ass.(car.o)).r).(cdr.o)))....... |
| 99140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 61 70 70 65 6e 64 20 28 72 65 76 65 72 73 | .............(#t.(append.(revers |
| 99160 | 65 21 20 72 29 20 28 70 61 73 73 20 6f 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 | e!.r).(pass.o))))))...........(( |
| 99180 | 69 6e 73 74 61 6e 63 65 3f 20 6f 62 6a 20 3c 63 68 61 6e 3e 29 0a 20 20 20 20 20 20 20 20 20 20 | instance?.obj.<chan>)........... |
| 991a0 | 20 28 6c 65 74 20 28 28 6f 20 3a 3a 20 3c 63 68 61 6e 3e 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 | .(let.((o.::.<chan>.obj))....... |
| 991c0 | 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 3d 3d 20 28 40 20 6f 77 6e 65 72 20 6f 29 20 28 | .......(assert.(==.(@.owner.o).( |
| 991e0 | 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | current-thread)))..............( |
| 99200 | 73 79 6e 63 68 72 6f 6e 69 7a 65 64 20 28 40 20 6c 6f 63 6b 20 63 29 0a 20 20 20 20 20 20 20 20 | synchronized.(@.lock.c)......... |
| 99220 | 20 20 20 20 20 20 20 28 73 65 74 20 28 40 20 6f 77 6e 65 72 20 6f 29 20 28 40 20 6f 77 6e 65 72 | .......(set.(@.owner.o).(@.owner |
| 99240 | 20 28 40 20 70 65 65 72 20 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 29 29 0a | .(@.peer.c))))..............o)). |
| 99260 | 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 28 69 6e 73 74 61 6e 63 65 3f 20 6f 62 6a 20 3c 65 | ..........((or.(instance?.obj.<e |
| 99280 | 6e 76 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 74 61 6e 63 65 3f 20 6f | nv>)................(instance?.o |
| 992a0 | 62 6a 20 3c 6d 69 72 72 6f 72 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 6f 73 | bj.<mirror>))............;;.thos |
| 992c0 | 65 20 63 61 6e 20 62 65 20 73 68 61 72 65 64 2c 20 66 6f 72 20 70 72 61 67 6d 61 74 69 63 20 72 | e.can.be.shared,.for.pragmatic.r |
| 992e0 | 65 61 73 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 0a 20 20 20 20 20 20 20 20 20 20 | easons............obj........... |
| 99300 | 20 29 0a 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 65 72 72 6f 72 20 22 63 61 6e 27 74 20 73 | .)...........(#t.(error."can't.s |
| 99320 | 65 6e 64 22 20 6f 62 6a 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 61 6e 73 2d 70 61 63 6b 61 67 | end".obj.(class-name-sans-packag |
| 99340 | 65 20 6f 62 6a 29 29 29 29 29 0a 20 20 3b 3b 28 6c 6f 67 20 22 73 65 6e 64 3a 20 7e 73 20 7e 73 | e.obj)))))...;;(log."send:.~s.~s |
| 99360 | 20 2d 3e 20 7e 73 5c 6e 22 20 76 61 6c 75 65 20 28 40 20 6f 77 6e 65 72 20 63 29 20 28 40 20 6f | .->.~s\n".value.(@.owner.c).(@.o |
| 99380 | 77 6e 65 72 20 28 40 20 70 65 65 72 20 63 29 29 29 0a 20 20 28 61 73 73 65 72 74 20 28 3d 3d 20 | wner.(@.peer.c)))...(assert.(==. |
| 993a0 | 28 40 20 6f 77 6e 65 72 20 63 29 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 29 0a 20 | (@.owner.c).(current-thread))).. |
| 993c0 | 20 3b 3b 28 6c 6f 67 20 22 6c 6f 63 6b 3a 20 7e 73 20 73 65 6e 64 5c 6e 22 20 28 40 20 6f 77 6e | .;;(log."lock:.~s.send\n".(@.own |
| 993e0 | 65 72 20 28 40 20 70 65 65 72 20 63 29 29 29 0a 20 20 28 73 79 6e 63 68 72 6f 6e 69 7a 65 64 20 | er.(@.peer.c)))...(synchronized. |
| 99400 | 28 40 20 6f 77 6e 65 72 20 28 40 20 70 65 65 72 20 63 29 29 0a 20 20 20 20 28 21 20 70 75 74 20 | (@.owner.(@.peer.c)).....(!.put. |
| 99420 | 28 40 20 71 75 65 75 65 20 28 40 20 70 65 65 72 20 63 29 29 20 28 70 61 73 73 20 76 61 6c 75 65 | (@.queue.(@.peer.c)).(pass.value |
| 99440 | 29 29 0a 20 20 20 20 28 21 20 6e 6f 74 69 66 79 20 28 40 20 6f 77 6e 65 72 20 28 40 20 70 65 65 | )).....(!.notify.(@.owner.(@.pee |
| 99460 | 72 20 63 29 29 29 29 0a 20 20 3b 3b 28 6c 6f 67 20 22 75 6e 6c 6f 63 6b 3a 20 7e 73 20 73 65 6e | r.c))))...;;(log."unlock:.~s.sen |
| 99480 | 64 5c 6e 22 20 28 40 20 6f 77 6e 65 72 20 28 40 20 70 65 65 72 20 63 29 29 29 0a 20 20 29 0a 0a | d\n".(@.owner.(@.peer.c)))...).. |
| 994a0 | 28 64 66 20 72 65 63 76 20 28 28 63 20 3c 63 68 61 6e 3e 29 29 0a 20 20 28 63 64 72 20 28 72 65 | (df.recv.((c.<chan>))...(cdr.(re |
| 994c0 | 63 76 2f 74 69 6d 65 6f 75 74 20 28 6c 69 73 74 20 63 29 20 30 29 29 29 0a 0a 28 64 66 20 72 65 | cv/timeout.(list.c).0)))..(df.re |
| 994e0 | 63 76 2a 20 28 28 63 73 20 3c 69 74 65 72 61 62 6c 65 3e 29 29 0a 20 20 28 72 65 63 76 2f 74 69 | cv*.((cs.<iterable>))...(recv/ti |
| 99500 | 6d 65 6f 75 74 20 63 73 20 30 29 29 0a 0a 28 64 66 20 72 65 63 76 2f 74 69 6d 65 6f 75 74 20 28 | meout.cs.0))..(df.recv/timeout.( |
| 99520 | 28 63 73 20 3c 69 74 65 72 61 62 6c 65 3e 29 20 28 74 69 6d 65 6f 75 74 20 3c 6c 6f 6e 67 3e 29 | (cs.<iterable>).(timeout.<long>) |
| 99540 | 29 0a 20 20 28 6c 65 74 20 28 28 73 65 6c 66 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 | )...(let.((self.(current-thread) |
| 99560 | 29 0a 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 69 66 20 28 7a 65 72 6f 3f 20 74 69 6d 65 6f 75 | ).........(end.(if.(zero?.timeou |
| 99580 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20 | t)..................0........... |
| 995a0 | 20 20 20 20 20 20 20 28 2b 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 20 74 69 6d 65 6f 75 74 | .......(+.(current-time).timeout |
| 995c0 | 29 29 29 29 0a 20 20 20 20 3b 3b 28 6c 6f 67 20 22 6c 6f 63 6b 3a 20 7e 73 20 72 65 63 76 5c 6e | )))).....;;(log."lock:.~s.recv\n |
| 995e0 | 22 20 73 65 6c 66 29 0a 20 20 20 20 28 73 79 6e 63 68 72 6f 6e 69 7a 65 64 20 73 65 6c 66 0a 20 | ".self).....(synchronized.self.. |
| 99600 | 20 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 29 0a 20 20 20 20 20 20 20 20 3b 3b 28 6c 6f 67 | .....(let.loop.().........;;(log |
| 99620 | 20 22 72 65 63 65 69 76 65 2d 6c 6f 6f 70 3a 20 7e 73 5c 6e 22 20 73 65 6c 66 29 0a 20 20 20 20 | ."receive-loop:.~s\n".self)..... |
| 99640 | 20 20 20 20 28 6c 65 74 20 28 28 72 65 61 64 79 20 28 66 69 6e 64 2d 69 66 20 63 73 0a 20 20 20 | ....(let.((ready.(find-if.cs.... |
| 99660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 | ...........................(fun. |
| 99680 | 28 28 63 20 3c 63 68 61 6e 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ((c.<chan>)).................... |
| 996a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 21 20 69 73 2d 65 6d 70 74 79 20 28 40 | .............(not.(!.is-empty.(@ |
| 996c0 | 20 71 75 65 75 65 20 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .queue.c)))).................... |
| 996e0 | 20 20 20 20 20 20 20 20 20 20 20 23 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 | ...........#f)))...........(cond |
| 99700 | 20 28 72 65 61 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 6c 6f 67 20 | .(ready..................;;(log. |
| 99720 | 22 75 6e 6c 6f 63 6b 3a 20 7e 73 20 72 65 63 76 5c 6e 22 20 73 65 6c 66 29 0a 20 20 20 20 20 20 | "unlock:.~s.recv\n".self)....... |
| 99740 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 72 65 61 64 79 20 28 21 20 74 61 6b 65 20 28 | ...........(cons.ready.(!.take.( |
| 99760 | 40 20 71 75 65 75 65 20 28 61 73 20 3c 63 68 61 6e 3e 20 72 65 61 64 79 29 29 29 29 29 0a 20 20 | @.queue.(as.<chan>.ready)))))... |
| 99780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 7a 65 72 6f 3f 20 74 69 6d 65 6f 75 74 29 0a 20 | ..............((zero?.timeout).. |
| 997a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 6c 6f 67 20 22 77 61 69 74 3a 20 7e 73 | ................;;(log."wait:.~s |
| 997c0 | 20 72 65 63 76 5c 6e 22 20 73 65 6c 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .recv\n".self).................. |
| 997e0 | 28 21 20 77 61 69 74 20 73 65 6c 66 29 20 28 6c 6f 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 | (!.wait.self).(loop))........... |
| 99800 | 20 20 20 20 20 20 28 23 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | ......(#t..................(let. |
| 99820 | 28 28 6e 6f 77 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ((now.(current-time))).......... |
| 99840 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3c 3d 20 65 6e 64 20 6e 6f 77 29 0a 20 20 | ..........(cond.((<=.end.now)... |
| 99860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 74 69 6d 65 6f 75 74 | ........................'timeout |
| 99880 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 0a 20 | )..........................(#t.. |
| 998a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 6c 6f 67 20 | .........................;;(log. |
| 998c0 | 22 77 61 69 74 3a 20 7e 73 20 72 65 63 76 5c 6e 22 20 73 65 6c 66 29 0a 20 20 20 20 20 20 20 20 | "wait:.~s.recv\n".self)......... |
| 998e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 77 61 69 74 20 73 65 6c 66 20 28 | ..................(!.wait.self.( |
| 99900 | 2d 20 65 6e 64 20 6e 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -.end.now))..................... |
| 99920 | 20 20 20 20 20 20 28 6c 6f 6f 70 29 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 66 20 72 70 63 20 | ......(loop)))))))))))..(df.rpc. |
| 99940 | 28 28 63 20 3c 63 68 61 6e 3e 29 20 6d 73 67 29 0a 20 20 28 6d 6c 65 74 2a 20 28 28 28 69 6d 20 | ((c.<chan>).msg)...(mlet*.(((im. |
| 99960 | 2e 20 65 78 29 20 28 63 68 61 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6f 70 20 2e 20 61 | ..ex).(chan))...........((op...a |
| 99980 | 72 67 73 29 20 6d 73 67 29 29 0a 20 20 20 20 28 73 65 6e 64 20 63 20 60 28 2c 6f 70 20 2c 65 78 | rgs).msg)).....(send.c.`(,op.,ex |
| 999a0 | 20 2e 20 2c 61 72 67 73 29 29 0a 20 20 20 20 28 72 65 63 76 20 69 6d 29 29 29 0a 0a 28 64 66 20 | ...,args)).....(recv.im)))..(df. |
| 999c0 | 73 70 61 77 6e 2f 63 68 61 6e 20 28 66 29 0a 20 20 28 6d 6c 65 74 20 28 28 69 6d 20 2e 20 65 78 | spawn/chan.(f)...(mlet.((im...ex |
| 999e0 | 29 20 28 63 68 61 6e 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 74 68 72 65 61 64 20 28 3c 74 68 | ).(chan)).....(let.((thread.(<th |
| 99a00 | 72 65 61 64 3e 20 28 25 25 72 75 6e 6e 61 62 6c 65 20 28 66 75 6e 20 28 29 20 28 66 20 65 78 29 | read>.(%%runnable.(fun.().(f.ex) |
| 99a20 | 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 20 28 40 20 6f 77 6e 65 72 20 65 78 29 20 74 68 | ))))).......(set.(@.owner.ex).th |
| 99a40 | 72 65 61 64 29 0a 20 20 20 20 20 20 28 21 20 73 74 61 72 74 20 74 68 72 65 61 64 29 0a 20 20 20 | read).......(!.start.thread).... |
| 99a60 | 20 20 20 28 63 6f 6e 73 20 69 6d 20 74 68 72 65 61 64 29 29 29 29 0a 0a 28 64 66 20 73 70 61 77 | ...(cons.im.thread))))..(df.spaw |
| 99a80 | 6e 2f 63 68 61 6e 2f 63 61 74 63 68 20 28 66 29 0a 20 20 28 73 70 61 77 6e 2f 63 68 61 6e 0a 20 | n/chan/catch.(f)...(spawn/chan.. |
| 99aa0 | 20 20 28 66 75 6e 20 28 63 29 0a 20 20 20 20 20 28 74 72 79 2d 63 61 74 63 68 0a 20 20 20 20 20 | ..(fun.(c)......(try-catch...... |
| 99ac0 | 20 28 66 20 63 29 0a 20 20 20 20 20 20 28 65 78 20 3c 74 68 72 6f 77 61 62 6c 65 3e 0a 20 20 20 | .(f.c).......(ex.<throwable>.... |
| 99ae0 | 20 20 20 20 20 20 20 28 73 65 6e 64 20 63 20 60 28 65 72 72 6f 72 20 2c 28 21 20 74 6f 53 74 72 | .......(send.c.`(error.,(!.toStr |
| 99b00 | 69 6e 67 20 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing.ex)......................... |
| 99b20 | 20 20 2c 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 61 6e 73 2d 70 61 63 6b 61 67 65 20 65 78 29 0a | ..,(class-name-sans-package.ex). |
| 99b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6d 61 70 20 | ..........................,(map. |
| 99b60 | 28 66 75 6e 20 28 65 29 20 28 21 20 74 6f 2d 73 74 72 69 6e 67 20 65 29 29 0a 20 20 20 20 20 20 | (fun.(e).(!.to-string.e))....... |
| 99b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 72 61 79 | ..........................(array |
| 99ba0 | 2d 74 6f 2d 6c 69 73 74 20 28 21 20 67 65 74 2d 73 74 61 63 6b 2d 74 72 61 63 65 20 65 78 29 29 | -to-list.(!.get-stack-trace.ex)) |
| 99bc0 | 29 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 4c 6f 67 67 69 6e 67 0a 0a 28 64 65 66 69 6e 65 20 | ))))))))..;;;;.Logging..(define. |
| 99be0 | 73 77 61 6e 6b 2d 6c 6f 67 2d 70 6f 72 74 20 28 63 75 72 72 65 6e 74 2d 65 72 72 6f 72 2d 70 6f | swank-log-port.(current-error-po |
| 99c00 | 72 74 29 29 0a 28 64 66 20 6c 6f 67 20 28 66 73 74 72 20 23 21 72 65 73 74 20 61 72 67 73 29 0a | rt)).(df.log.(fstr.#!rest.args). |
| 99c20 | 20 20 28 73 79 6e 63 68 72 6f 6e 69 7a 65 64 20 73 77 61 6e 6b 2d 6c 6f 67 2d 70 6f 72 74 0a 20 | ..(synchronized.swank-log-port.. |
| 99c40 | 20 20 20 28 61 70 70 6c 79 20 66 6f 72 6d 61 74 20 73 77 61 6e 6b 2d 6c 6f 67 2d 70 6f 72 74 20 | ...(apply.format.swank-log-port. |
| 99c60 | 66 73 74 72 20 61 72 67 73 29 0a 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 20 73 77 61 | fstr.args).....(force-output.swa |
| 99c80 | 6e 6b 2d 6c 6f 67 2d 70 6f 72 74 29 29 0a 20 20 23 21 76 6f 69 64 29 0a 0a 3b 3b 3b 3b 20 52 61 | nk-log-port))...#!void)..;;;;.Ra |
| 99ca0 | 6e 64 6f 6d 20 68 65 6c 70 65 72 73 0a 0a 28 64 66 20 31 2b 20 28 78 29 20 28 2b 20 78 20 31 29 | ndom.helpers..(df.1+.(x).(+.x.1) |
| 99cc0 | 29 0a 28 64 66 20 31 2d 20 28 78 29 20 28 2d 20 78 20 31 29 29 0a 0a 28 64 66 20 6c 65 6e 20 28 | ).(df.1-.(x).(-.x.1))..(df.len.( |
| 99ce0 | 78 20 3d 3e 20 3c 69 6e 74 3e 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 78 0a 20 20 20 20 28 3c | x.=>.<int>)...(typecase.x.....(< |
| 99d00 | 6c 69 73 74 3e 20 28 6c 65 6e 67 74 68 20 78 29 29 0a 20 20 20 20 28 3c 73 74 72 3e 20 28 21 20 | list>.(length.x)).....(<str>.(!. |
| 99d20 | 6c 65 6e 67 74 68 20 78 29 29 0a 20 20 20 20 28 3c 73 74 72 69 6e 67 3e 20 28 73 74 72 69 6e 67 | length.x)).....(<string>.(string |
| 99d40 | 2d 6c 65 6e 67 74 68 20 78 29 29 0a 20 20 20 20 28 3c 76 65 63 74 6f 72 3e 20 28 76 65 63 74 6f | -length.x)).....(<vector>.(vecto |
| 99d60 | 72 2d 6c 65 6e 67 74 68 20 78 29 29 0a 20 20 20 20 28 3c 6a 61 76 61 2e 75 74 69 6c 2e 4c 69 73 | r-length.x)).....(<java.util.Lis |
| 99d80 | 74 3e 20 28 21 20 73 69 7a 65 20 78 29 29 0a 20 20 20 20 28 3c 6f 62 6a 65 63 74 5b 5d 3e 20 28 | t>.(!.size.x)).....(<object[]>.( |
| 99da0 | 40 20 6c 65 6e 67 74 68 20 78 29 29 29 29 0a 0a 3b 3b 28 64 66 20 70 75 74 20 28 74 61 62 20 6b | @.length.x))))..;;(df.put.(tab.k |
| 99dc0 | 65 79 20 76 61 6c 75 65 29 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 73 65 74 21 20 74 61 62 20 6b | ey.value).(hash-table-set!.tab.k |
| 99de0 | 65 79 20 76 61 6c 75 65 29 20 74 61 62 29 0a 3b 3b 28 64 66 20 67 65 74 20 28 74 61 62 20 6b 65 | ey.value).tab).;;(df.get.(tab.ke |
| 99e00 | 79 20 64 65 66 61 75 6c 74 29 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 72 65 66 2f 64 65 66 61 75 | y.default).(hash-table-ref/defau |
| 99e20 | 6c 74 20 74 61 62 20 6b 65 79 20 64 65 66 61 75 6c 74 29 29 0a 3b 3b 28 64 66 20 64 65 6c 20 28 | lt.tab.key.default)).;;(df.del.( |
| 99e40 | 74 61 62 20 6b 65 79 29 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 64 65 6c 65 74 65 21 20 74 61 62 | tab.key).(hash-table-delete!.tab |
| 99e60 | 20 6b 65 79 29 20 74 61 62 29 0a 3b 3b 28 64 66 20 74 61 62 20 28 29 20 28 6d 61 6b 65 2d 68 61 | .key).tab).;;(df.tab.().(make-ha |
| 99e80 | 73 68 2d 74 61 62 6c 65 29 29 0a 0a 28 64 66 20 70 75 74 20 28 74 61 62 20 6b 65 79 20 76 61 6c | sh-table))..(df.put.(tab.key.val |
| 99ea0 | 75 65 29 20 28 68 61 73 68 74 61 62 6c 65 2d 73 65 74 21 20 74 61 62 20 6b 65 79 20 76 61 6c 75 | ue).(hashtable-set!.tab.key.valu |
| 99ec0 | 65 29 20 74 61 62 29 0a 28 64 66 20 67 65 74 20 28 74 61 62 20 6b 65 79 20 64 65 66 61 75 6c 74 | e).tab).(df.get.(tab.key.default |
| 99ee0 | 29 20 28 68 61 73 68 74 61 62 6c 65 2d 72 65 66 20 74 61 62 20 6b 65 79 20 64 65 66 61 75 6c 74 | ).(hashtable-ref.tab.key.default |
| 99f00 | 29 29 0a 28 64 66 20 64 65 6c 20 28 74 61 62 20 6b 65 79 29 20 28 68 61 73 68 74 61 62 6c 65 2d | )).(df.del.(tab.key).(hashtable- |
| 99f20 | 64 65 6c 65 74 65 21 20 74 61 62 20 6b 65 79 29 20 74 61 62 29 0a 28 64 66 20 74 61 62 20 28 29 | delete!.tab.key).tab).(df.tab.() |
| 99f40 | 20 28 6d 61 6b 65 2d 65 71 76 2d 68 61 73 68 74 61 62 6c 65 29 29 0a 0a 28 64 66 20 65 71 75 61 | .(make-eqv-hashtable))..(df.equa |
| 99f60 | 6c 20 28 78 20 79 20 3d 3e 20 3c 62 6f 6f 6c 65 61 6e 3e 29 20 28 65 71 75 61 6c 3f 20 78 20 79 | l.(x.y.=>.<boolean>).(equal?.x.y |
| 99f80 | 29 29 0a 0a 28 64 66 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 3d 3e 20 3c 74 68 72 65 | ))..(df.current-thread.(=>.<thre |
| 99fa0 | 61 64 3e 29 20 28 21 73 20 6a 61 76 61 2e 6c 61 6e 67 2e 54 68 72 65 61 64 20 63 75 72 72 65 6e | ad>).(!s.java.lang.Thread.curren |
| 99fc0 | 74 54 68 72 65 61 64 29 29 0a 28 64 66 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 20 28 3d 3e 20 3c | tThread)).(df.current-time.(=>.< |
| 99fe0 | 6c 6f 6e 67 3e 29 20 28 21 73 20 6a 61 76 61 2e 6c 61 6e 67 2e 53 79 73 74 65 6d 20 63 75 72 72 | long>).(!s.java.lang.System.curr |
| 9a000 | 65 6e 74 54 69 6d 65 4d 69 6c 6c 69 73 29 29 0a 0a 28 64 66 20 6e 75 6c 3f 20 28 78 29 20 28 3d | entTimeMillis))..(df.nul?.(x).(= |
| 9a020 | 3d 20 78 20 23 21 6e 75 6c 6c 29 29 0a 0a 28 64 66 20 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 | =.x.#!null))..(df.read-from-stri |
| 9a040 | 6e 67 20 28 73 74 72 29 0a 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 69 6e 70 75 74 2d 73 74 72 69 | ng.(str)...(call-with-input-stri |
| 9a060 | 6e 67 20 73 74 72 20 72 65 61 64 29 29 0a 0a 3b 3b 28 64 66 20 70 72 69 6e 74 2d 74 6f 2d 73 74 | ng.str.read))..;;(df.print-to-st |
| 9a080 | 72 69 6e 67 20 28 6f 62 6a 29 20 28 63 61 6c 6c 2d 77 69 74 68 2d 6f 75 74 70 75 74 2d 73 74 72 | ring.(obj).(call-with-output-str |
| 9a0a0 | 69 6e 67 20 28 66 75 6e 20 28 70 29 20 28 77 72 69 74 65 20 6f 62 6a 20 70 29 29 29 29 0a 0a 28 | ing.(fun.(p).(write.obj.p))))..( |
| 9a0c0 | 64 66 20 70 70 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 62 6a 29 0a 20 20 28 6c 65 74 | df.pprint-to-string.(obj)...(let |
| 9a0e0 | 2a 20 28 28 77 20 28 3c 6a 61 76 61 2e 69 6f 2e 53 74 72 69 6e 67 57 72 69 74 65 72 3e 29 29 0a | *.((w.(<java.io.StringWriter>)). |
| 9a100 | 20 20 20 20 20 20 20 20 20 28 70 20 28 3c 6f 75 74 2d 70 6f 72 74 3e 20 77 20 23 74 20 23 66 29 | .........(p.(<out-port>.w.#t.#f) |
| 9a120 | 29 29 0a 20 20 20 20 28 74 72 79 2d 63 61 74 63 68 20 28 70 72 69 6e 74 2d 6f 62 6a 65 63 74 20 | )).....(try-catch.(print-object. |
| 9a140 | 6f 62 6a 20 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 20 3c 74 68 72 6f 77 | obj.p)................(ex.<throw |
| 9a160 | 61 62 6c 65 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | able>....................(format |
| 9a180 | 20 70 20 22 23 3c 65 72 72 6f 72 20 77 68 69 6c 65 20 70 72 69 6e 74 69 6e 67 20 7e 61 20 7e 61 | .p."#<error.while.printing.~a.~a |
| 9a1a0 | 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 | >"............................ex |
| 9a1c0 | 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 61 6e 73 2d 70 61 63 6b 61 67 65 20 65 78 29 29 29 29 | .(class-name-sans-package.ex)))) |
| 9a1e0 | 0a 20 20 20 20 28 21 20 66 6c 75 73 68 20 70 29 0a 20 20 20 20 28 74 6f 2d 73 74 72 69 6e 67 20 | .....(!.flush.p).....(to-string. |
| 9a200 | 28 21 20 67 65 74 42 75 66 66 65 72 20 77 29 29 29 29 0a 0a 28 64 66 20 70 72 69 6e 74 2d 6f 62 | (!.getBuffer.w))))..(df.print-ob |
| 9a220 | 6a 65 63 74 20 28 6f 62 6a 20 73 74 72 65 61 6d 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 6f 62 | ject.(obj.stream)...(typecase.ob |
| 9a240 | 6a 0a 20 20 20 20 23 3b 0a 20 20 20 20 28 28 6f 72 20 28 65 71 6c 20 23 21 6e 75 6c 6c 29 20 28 | j.....#;.....((or.(eql.#!null).( |
| 9a260 | 65 71 6c 20 23 21 65 6f 66 29 0a 20 20 20 20 20 20 20 20 20 3c 6c 69 73 74 3e 20 3c 6e 75 6d 62 | eql.#!eof)..........<list>.<numb |
| 9a280 | 65 72 3e 20 3c 63 68 61 72 61 63 74 65 72 3e 20 3c 73 74 72 69 6e 67 3e 20 3c 76 65 63 74 6f 72 | er>.<character>.<string>.<vector |
| 9a2a0 | 3e 20 3c 70 72 6f 63 65 64 75 72 65 3e 20 3c 62 6f 6f 6c 65 61 6e 3e 29 0a 20 20 20 20 20 28 77 | >.<procedure>.<boolean>)......(w |
| 9a2c0 | 72 69 74 65 20 6f 62 6a 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 28 23 74 0a 20 20 20 20 20 23 | rite.obj.stream)).....(#t......# |
| 9a2e0 | 3b 28 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 20 6f 62 6a 20 73 74 | ;(print-unreadable-object.obj.st |
| 9a300 | 72 65 61 6d 29 0a 20 20 20 20 20 28 77 72 69 74 65 20 6f 62 6a 20 73 74 72 65 61 6d 29 0a 20 20 | ream)......(write.obj.stream)... |
| 9a320 | 20 20 20 29 29 29 0a 0a 28 64 66 20 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a | ...)))..(df.print-unreadable-obj |
| 9a340 | 65 63 74 20 28 28 6f 20 3c 6f 62 6a 65 63 74 3e 29 20 73 74 72 65 61 6d 29 0a 20 20 28 6c 65 74 | ect.((o.<object>).stream)...(let |
| 9a360 | 2a 20 28 28 73 74 72 69 6e 67 20 28 21 20 74 6f 2d 73 74 72 69 6e 67 20 6f 29 29 0a 20 20 20 20 | *.((string.(!.to-string.o))..... |
| 9a380 | 20 20 20 20 20 28 63 6c 61 73 73 20 28 21 20 67 65 74 2d 63 6c 61 73 73 20 6f 29 29 0a 20 20 20 | .....(class.(!.get-class.o)).... |
| 9a3a0 | 20 20 20 20 20 20 28 6e 61 6d 65 20 28 21 20 67 65 74 2d 6e 61 6d 65 20 63 6c 61 73 73 29 29 0a | ......(name.(!.get-name.class)). |
| 9a3c0 | 20 20 20 20 20 20 20 20 20 28 73 69 6d 70 6c 65 6e 61 6d 65 20 28 21 20 67 65 74 2d 73 69 6d 70 | .........(simplename.(!.get-simp |
| 9a3e0 | 6c 65 2d 6e 61 6d 65 20 63 6c 61 73 73 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 21 20 73 | le-name.class))).....(cond.((!.s |
| 9a400 | 74 61 72 74 73 2d 77 69 74 68 20 73 74 72 69 6e 67 20 22 23 3c 22 29 0a 20 20 20 20 20 20 20 20 | tarts-with.string."#<")......... |
| 9a420 | 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 61 22 20 73 74 72 69 6e 67 29 29 0a | ...(format.stream."~a".string)). |
| 9a440 | 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 28 21 20 73 74 61 72 74 73 2d 77 69 74 68 20 73 74 | ..........((or.(!.starts-with.st |
| 9a460 | 72 69 6e 67 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 73 74 61 | ring.name)................(!.sta |
| 9a480 | 72 74 73 2d 77 69 74 68 20 73 74 72 69 6e 67 20 73 69 6d 70 6c 65 6e 61 6d 65 29 29 0a 20 20 20 | rts-with.string.simplename)).... |
| 9a4a0 | 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 23 3c 7e 61 3e 22 20 73 | ........(format.stream."#<~a>".s |
| 9a4c0 | 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 23 74 0a 20 20 20 20 20 20 20 20 20 20 | tring))...........(#t........... |
| 9a4e0 | 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 23 3c 7e 61 20 7e 61 3e 22 20 6e 61 6d 65 20 | .(format.stream."#<~a.~a>".name. |
| 9a500 | 73 74 72 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 63 61 74 20 73 74 72 69 6e 67 2d | string)))))..(define.cat.string- |
| 9a520 | 61 70 70 65 6e 64 29 0a 0a 28 64 66 20 76 61 6c 75 65 73 2d 74 6f 2d 6c 69 73 74 20 28 76 61 6c | append)..(df.values-to-list.(val |
| 9a540 | 75 65 73 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 76 61 6c 75 65 73 0a 20 20 20 20 28 3c 67 6e | ues)...(typecase.values.....(<gn |
| 9a560 | 75 2e 6d 61 70 70 69 6e 67 2e 56 61 6c 75 65 73 3e 20 28 61 72 72 61 79 2d 74 6f 2d 6c 69 73 74 | u.mapping.Values>.(array-to-list |
| 9a580 | 20 28 21 20 67 65 74 56 61 6c 75 65 73 20 76 61 6c 75 65 73 29 29 29 0a 20 20 20 20 28 3c 6f 62 | .(!.getValues.values))).....(<ob |
| 9a5a0 | 6a 65 63 74 3e 20 28 6c 69 73 74 20 76 61 6c 75 65 73 29 29 29 29 0a 0a 3b 3b 20 28 74 6f 2d 6c | ject>.(list.values))))..;;.(to-l |
| 9a5c0 | 69 73 74 20 28 61 73 2d 6c 69 73 74 20 28 76 61 6c 75 65 73 20 31 20 32 20 32 29 29 29 0a 0a 28 | ist.(as-list.(values.1.2.2)))..( |
| 9a5e0 | 64 66 20 61 72 72 61 79 2d 74 6f 2d 6c 69 73 74 20 28 28 61 72 72 61 79 20 3c 6f 62 6a 65 63 74 | df.array-to-list.((array.<object |
| 9a600 | 5b 5d 3e 29 20 3d 3e 20 3c 6c 69 73 74 3e 29 0a 20 20 28 70 61 63 6b 69 6e 67 20 28 70 61 63 6b | []>).=>.<list>)...(packing.(pack |
| 9a620 | 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 28 40 20 6c 65 6e 67 74 68 20 61 72 72 61 | ).....(dotimes.(i.(@.length.arra |
| 9a640 | 79 29 29 0a 20 20 20 20 20 20 28 70 61 63 6b 20 28 61 72 72 61 79 20 69 29 29 29 29 29 0a 0a 28 | y)).......(pack.(array.i)))))..( |
| 9a660 | 64 66 20 6c 69 73 70 2d 62 6f 6f 6c 20 28 6f 62 6a 29 0a 20 20 28 63 6f 6e 64 20 28 28 3d 3d 20 | df.lisp-bool.(obj)...(cond.((==. |
| 9a680 | 6f 62 6a 20 27 6e 69 6c 29 20 23 66 29 0a 20 20 20 20 20 20 20 20 28 28 3d 3d 20 6f 62 6a 20 27 | obj.'nil).#f).........((==.obj.' |
| 9a6a0 | 74 29 20 23 74 29 0a 20 20 20 20 20 20 20 20 28 23 74 20 28 65 72 72 6f 72 20 22 43 61 6e 27 74 | t).#t).........(#t.(error."Can't |
| 9a6c0 | 20 6d 61 70 20 6c 69 73 70 20 62 6f 6f 6c 65 61 6e 22 20 6f 62 6a 29 29 29 29 0a 0a 28 64 66 20 | .map.lisp.boolean".obj))))..(df. |
| 9a6e0 | 70 61 74 68 2d 73 61 6e 73 2d 65 78 74 65 6e 73 69 6f 6e 20 28 28 70 20 70 61 74 68 29 20 3d 3e | path-sans-extension.((p.path).=> |
| 9a700 | 20 3c 73 74 72 69 6e 67 3e 29 0a 20 20 28 6c 65 74 20 28 28 65 78 20 28 21 20 67 65 74 2d 65 78 | .<string>)...(let.((ex.(!.get-ex |
| 9a720 | 74 65 6e 73 69 6f 6e 20 70 29 29 0a 20 20 20 20 20 20 20 20 28 73 74 72 20 28 21 20 74 6f 2d 73 | tension.p)).........(str.(!.to-s |
| 9a740 | 74 72 69 6e 67 20 70 29 29 29 0a 20 20 20 20 28 74 6f 2d 73 74 72 69 6e 67 20 28 63 6f 6e 64 20 | tring.p))).....(to-string.(cond. |
| 9a760 | 28 28 6e 6f 74 20 65 78 29 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ((not.ex).str).................. |
| 9a780 | 20 20 20 20 28 23 74 20 28 21 20 73 75 62 73 74 72 69 6e 67 20 73 74 72 20 30 20 28 2d 20 28 6c | ....(#t.(!.substring.str.0.(-.(l |
| 9a7a0 | 65 6e 20 73 74 72 29 20 28 6c 65 6e 20 65 78 29 20 31 29 29 29 29 29 29 29 0a 0a 28 64 66 20 63 | en.str).(len.ex).1)))))))..(df.c |
| 9a7c0 | 6c 61 73 73 2d 6e 61 6d 65 2d 73 61 6e 73 2d 70 61 63 6b 61 67 65 20 28 28 6f 62 6a 20 3c 6f 62 | lass-name-sans-package.((obj.<ob |
| 9a7e0 | 6a 65 63 74 3e 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 3f 20 6f 62 6a 29 20 22 3c 23 21 | ject>))...(cond.((nul?.obj)."<#! |
| 9a800 | 6e 75 6c 6c 3e 22 29 0a 20 20 20 20 20 20 20 20 28 23 74 0a 20 20 20 20 20 20 20 20 20 28 74 72 | null>").........(#t..........(tr |
| 9a820 | 79 2d 63 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 20 28 21 20 67 | y-catch...........(let*.((c.(!.g |
| 9a840 | 65 74 2d 63 6c 61 73 73 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | et-class.obj)).................. |
| 9a860 | 28 6e 20 28 21 20 67 65 74 2d 73 69 6d 70 6c 65 2d 6e 61 6d 65 20 63 29 29 29 0a 20 20 20 20 20 | (n.(!.get-simple-name.c)))...... |
| 9a880 | 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 6e 20 22 22 29 20 28 21 20 67 65 | .......(cond.((equal.n."").(!.ge |
| 9a8a0 | 74 2d 6e 61 6d 65 20 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 | t-name.c))...................(#t |
| 9a8c0 | 20 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 20 3c 6a 61 76 61 2e 6c 61 6e 67 2e 54 68 | .n)))...........(e.<java.lang.Th |
| 9a8e0 | 72 6f 77 61 62 6c 65 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 23 | rowable>..............(format."# |
| 9a900 | 3c 7e 61 3a 20 7e 61 3e 22 20 65 20 28 21 20 67 65 74 2d 6d 65 73 73 61 67 65 20 65 29 29 29 29 | <~a:.~a>".e.(!.get-message.e)))) |
| 9a920 | 29 29 29 0a 0a 28 64 66 20 6c 69 73 74 2d 65 6e 76 20 28 23 21 6f 70 74 69 6f 6e 61 6c 20 28 65 | )))..(df.list-env.(#!optional.(e |
| 9a940 | 6e 76 20 3a 3a 20 3c 65 6e 76 3e 20 28 21 73 20 3c 65 6e 76 3e 20 63 75 72 72 65 6e 74 29 29 29 | nv.::.<env>.(!s.<env>.current))) |
| 9a960 | 0a 20 20 28 6c 65 74 20 28 28 65 6e 75 6d 20 28 21 20 65 6e 75 6d 65 72 61 74 65 41 6c 6c 4c 6f | ...(let.((enum.(!.enumerateAllLo |
| 9a980 | 63 61 74 69 6f 6e 73 20 65 6e 76 29 29 29 0a 20 20 20 20 28 70 61 63 6b 69 6e 67 20 28 70 61 63 | cations.env))).....(packing.(pac |
| 9a9a0 | 6b 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 21 20 68 61 73 4d 6f 72 65 45 6c 65 6d 65 6e | k).......(while.(!.hasMoreElemen |
| 9a9c0 | 74 73 20 65 6e 75 6d 29 0a 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 21 20 6e 65 78 74 4c 6f | ts.enum).........(pack.(!.nextLo |
| 9a9e0 | 63 61 74 69 6f 6e 20 65 6e 75 6d 29 29 29 29 29 29 0a 0a 28 64 66 20 6c 69 73 74 2d 66 69 6c 65 | cation.enum))))))..(df.list-file |
| 9aa00 | 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 28 77 69 74 68 20 28 70 6f 72 74 20 28 63 61 6c 6c 2d | .(filename)...(with.(port.(call- |
| 9aa20 | 77 69 74 68 2d 69 6e 70 75 74 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 28 | with-input-file.filename)).....( |
| 9aa40 | 6c 65 74 2a 20 28 28 6c 61 6e 67 20 28 21 73 20 67 6e 75 2e 65 78 70 72 2e 4c 61 6e 67 75 61 67 | let*.((lang.(!s.gnu.expr.Languag |
| 9aa60 | 65 20 67 65 74 44 65 66 61 75 6c 74 4c 61 6e 67 75 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 | e.getDefaultLanguage)).......... |
| 9aa80 | 20 20 28 6d 65 73 73 61 67 65 73 20 28 3c 67 6e 75 2e 74 65 78 74 2e 53 6f 75 72 63 65 4d 65 73 | ..(messages.(<gnu.text.SourceMes |
| 9aaa0 | 73 61 67 65 73 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 20 28 21 20 70 61 72 | sages>))............(comp.(!.par |
| 9aac0 | 73 65 20 6c 61 6e 67 20 28 61 73 20 3c 69 6e 2d 70 6f 72 74 3e 20 70 6f 72 74 29 20 6d 65 73 73 | se.lang.(as.<in-port>.port).mess |
| 9aae0 | 61 67 65 73 20 30 29 29 29 0a 20 20 20 20 20 20 28 21 20 67 65 74 2d 6d 6f 64 75 6c 65 20 63 6f | ages.0))).......(!.get-module.co |
| 9ab00 | 6d 70 29 29 29 29 0a 0a 28 64 66 20 6c 69 73 74 2d 64 65 63 6c 73 20 28 66 69 6c 65 29 0a 20 20 | mp))))..(df.list-decls.(file)... |
| 9ab20 | 28 6c 65 74 2a 20 28 28 6d 6f 64 75 6c 65 20 28 61 73 20 3c 67 6e 75 2e 65 78 70 72 2e 4d 6f 64 | (let*.((module.(as.<gnu.expr.Mod |
| 9ab40 | 75 6c 65 45 78 70 3e 20 28 6c 69 73 74 2d 66 69 6c 65 20 66 69 6c 65 29 29 29 29 0a 20 20 20 20 | uleExp>.(list-file.file))))..... |
| 9ab60 | 28 64 6f 20 28 28 64 65 63 6c 20 3a 3a 20 3c 67 6e 75 2e 65 78 70 72 2e 44 65 63 6c 61 72 61 74 | (do.((decl.::.<gnu.expr.Declarat |
| 9ab80 | 69 6f 6e 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 66 69 72 73 74 44 65 63 6c | ion>................(!.firstDecl |
| 9aba0 | 20 6d 6f 64 75 6c 65 29 20 28 21 20 6e 65 78 74 44 65 63 6c 20 64 65 63 6c 29 29 29 0a 20 20 20 | .module).(!.nextDecl.decl))).... |
| 9abc0 | 20 20 20 20 20 28 28 6e 75 6c 3f 20 64 65 63 6c 29 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | .....((nul?.decl)).......(format |
| 9abe0 | 20 23 74 20 22 7e 61 20 7e 61 3a 7e 64 3a 7e 64 5c 6e 22 20 64 65 63 6c 0a 20 20 20 20 20 20 20 | .#t."~a.~a:~d:~d\n".decl........ |
| 9ac00 | 20 20 20 20 20 20 20 28 21 20 67 65 74 46 69 6c 65 4e 61 6d 65 20 64 65 63 6c 29 0a 20 20 20 20 | .......(!.getFileName.decl)..... |
| 9ac20 | 20 20 20 20 20 20 20 20 20 20 28 21 20 67 65 74 4c 69 6e 65 4e 75 6d 62 65 72 20 64 65 63 6c 29 | ..........(!.getLineNumber.decl) |
| 9ac40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 67 65 74 43 6f 6c 75 6d 6e 4e 75 6d 62 65 | ...............(!.getColumnNumbe |
| 9ac60 | 72 20 64 65 63 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 29 0a 0a 28 64 66 20 | r.decl)...............))))..(df. |
| 9ac80 | 25 74 69 6d 65 20 28 66 29 0a 20 20 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 6d 66 3e 20 3c | %time.(f)...(define-alias.<mf>.< |
| 9aca0 | 6a 61 76 61 2e 6c 61 6e 67 2e 6d 61 6e 61 67 65 6d 65 6e 74 2e 4d 61 6e 61 67 65 6d 65 6e 74 46 | java.lang.management.ManagementF |
| 9acc0 | 61 63 74 6f 72 79 3e 29 0a 20 20 28 64 65 66 69 6e 65 2d 61 6c 69 61 73 20 3c 67 63 3e 20 3c 6a | actory>)...(define-alias.<gc>.<j |
| 9ace0 | 61 76 61 2e 6c 61 6e 67 2e 6d 61 6e 61 67 65 6d 65 6e 74 2e 47 61 72 62 61 67 65 43 6f 6c 6c 65 | ava.lang.management.GarbageColle |
| 9ad00 | 63 74 6f 72 4d 58 42 65 61 6e 3e 29 0a 20 20 28 6c 65 74 2a 20 28 28 67 63 73 20 28 21 73 20 3c | ctorMXBean>)...(let*.((gcs.(!s.< |
| 9ad20 | 6d 66 3e 20 67 65 74 47 61 72 62 61 67 65 43 6f 6c 6c 65 63 74 6f 72 4d 58 42 65 61 6e 73 29 29 | mf>.getGarbageCollectorMXBeans)) |
| 9ad40 | 0a 20 20 20 20 20 20 20 20 20 28 6d 65 6d 20 28 21 73 20 3c 6d 66 3e 20 67 65 74 4d 65 6d 6f 72 | ..........(mem.(!s.<mf>.getMemor |
| 9ad60 | 79 4d 58 42 65 61 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 6a 69 74 20 28 21 73 20 3c 6d 66 3e | yMXBean))..........(jit.(!s.<mf> |
| 9ad80 | 20 67 65 74 43 6f 6d 70 69 6c 61 74 69 6f 6e 4d 58 42 65 61 6e 29 29 0a 20 20 20 20 20 20 20 20 | .getCompilationMXBean))......... |
| 9ada0 | 20 28 6f 6c 64 6a 69 74 20 28 21 20 67 65 74 54 6f 74 61 6c 43 6f 6d 70 69 6c 61 74 69 6f 6e 54 | .(oldjit.(!.getTotalCompilationT |
| 9adc0 | 69 6d 65 20 6a 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 6c 64 67 63 20 28 70 61 63 6b 69 | ime.jit))..........(oldgc.(packi |
| 9ade0 | 6e 67 20 28 70 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 | ng.(pack)...................(ite |
| 9ae00 | 72 20 67 63 73 20 28 66 75 6e 20 28 28 67 63 20 3c 67 63 3e 29 29 0a 20 20 20 20 20 20 20 20 20 | r.gcs.(fun.((gc.<gc>)).......... |
| 9ae20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 63 6f 6e 73 | .....................(pack.(cons |
| 9ae40 | 20 67 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .gc............................. |
| 9ae60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 21 20 67 65 74 43 6f 6c 6c 65 63 | ..............(list.(!.getCollec |
| 9ae80 | 74 69 6f 6e 43 6f 75 6e 74 20 67 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tionCount.gc)................... |
| 9aea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 | ..............................(! |
| 9aec0 | 20 67 65 74 43 6f 6c 6c 65 63 74 69 6f 6e 54 69 6d 65 20 67 63 29 29 29 29 29 29 29 29 0a 20 20 | .getCollectionTime.gc))))))))... |
| 9aee0 | 20 20 20 20 20 20 20 28 68 65 61 70 20 28 21 21 20 67 65 74 55 73 65 64 20 67 65 74 48 65 61 70 | .......(heap.(!!.getUsed.getHeap |
| 9af00 | 4d 65 6d 6f 72 79 55 73 61 67 65 20 6d 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 6e 68 | MemoryUsage.mem))..........(nonh |
| 9af20 | 65 61 70 20 28 21 21 20 67 65 74 55 73 65 64 20 67 65 74 4e 6f 6e 48 65 61 70 4d 65 6d 6f 72 79 | eap.(!!.getUsed.getNonHeapMemory |
| 9af40 | 55 73 61 67 65 20 6d 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 20 28 21 73 20 | Usage.mem))..........(start.(!s. |
| 9af60 | 6a 61 76 61 2e 6c 61 6e 67 2e 53 79 73 74 65 6d 20 6e 61 6e 6f 54 69 6d 65 29 29 0a 20 20 20 20 | java.lang.System.nanoTime))..... |
| 9af80 | 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 66 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 | .....(values.(f))..........(end. |
| 9afa0 | 28 21 73 20 6a 61 76 61 2e 6c 61 6e 67 2e 53 79 73 74 65 6d 20 6e 61 6e 6f 54 69 6d 65 29 29 0a | (!s.java.lang.System.nanoTime)). |
| 9afc0 | 20 20 20 20 20 20 20 20 20 28 6e 65 77 68 65 61 70 20 28 21 21 20 67 65 74 55 73 65 64 20 67 65 | .........(newheap.(!!.getUsed.ge |
| 9afe0 | 74 48 65 61 70 4d 65 6d 6f 72 79 55 73 61 67 65 20 6d 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 | tHeapMemoryUsage.mem)).......... |
| 9b000 | 28 6e 65 77 6e 6f 6e 68 65 61 70 20 28 21 21 20 67 65 74 55 73 65 64 20 67 65 74 4e 6f 6e 48 65 | (newnonheap.(!!.getUsed.getNonHe |
| 9b020 | 61 70 4d 65 6d 6f 72 79 55 73 61 67 65 20 6d 65 6d 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 | apMemoryUsage.mem))).....(format |
| 9b040 | 20 23 74 20 22 7e 26 22 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6e 6a 69 74 20 28 21 20 67 65 74 | .#t."~&").....(let.((njit.(!.get |
| 9b060 | 54 6f 74 61 6c 43 6f 6d 70 69 6c 61 74 69 6f 6e 54 69 6d 65 20 6a 69 74 29 29 29 0a 20 20 20 20 | TotalCompilationTime.jit)))..... |
| 9b080 | 20 20 28 66 6f 72 6d 61 74 20 23 74 20 22 3b 20 4a 49 54 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 3a | ..(format.#t.";.JIT.compilation: |
| 9b0a0 | 20 7e 3a 64 20 6d 73 20 28 7e 3a 64 29 5c 6e 22 20 28 2d 20 6e 6a 69 74 20 6f 6c 64 6a 69 74 29 | .~:d.ms.(~:d)\n".(-.njit.oldjit) |
| 9b0c0 | 20 6e 6a 69 74 29 29 0a 20 20 20 20 28 69 74 65 72 20 67 63 73 20 28 66 75 6e 20 28 28 67 63 20 | .njit)).....(iter.gcs.(fun.((gc. |
| 9b0e0 | 3c 67 63 3e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6c 65 74 20 28 28 5f | <gc>)).................(mlet.((_ |
| 9b100 | 20 63 6f 75 6e 74 20 74 69 6d 65 29 20 28 61 73 73 6f 63 20 67 63 20 6f 6c 64 67 63 29 29 0a 20 | .count.time).(assoc.gc.oldgc)).. |
| 9b120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 23 74 20 22 3b 20 47 | .................(format.#t.";.G |
| 9b140 | 43 20 7e 61 3a 20 7e 3a 64 20 6d 73 20 28 7e 64 29 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 | C.~a:.~:d.ms.(~d)\n"............ |
| 9b160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 67 65 74 4e 61 6d 65 20 67 63 29 0a 20 20 | ...............(!.getName.gc)... |
| 9b180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 21 20 67 65 | ........................(-.(!.ge |
| 9b1a0 | 74 43 6f 6c 6c 65 63 74 69 6f 6e 54 69 6d 65 20 67 63 29 20 74 69 6d 65 29 0a 20 20 20 20 20 20 | tCollectionTime.gc).time)....... |
| 9b1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 21 20 67 65 74 43 6f 6c | ....................(-.(!.getCol |
| 9b1e0 | 6c 65 63 74 69 6f 6e 43 6f 75 6e 74 20 67 63 29 20 63 6f 75 6e 74 29 29 29 29 29 0a 20 20 20 20 | lectionCount.gc).count)))))..... |
| 9b200 | 28 66 6f 72 6d 61 74 20 23 74 20 22 3b 20 48 65 61 70 3a 20 7e 40 3a 64 20 28 7e 3a 64 29 5c 6e | (format.#t.";.Heap:.~@:d.(~:d)\n |
| 9b220 | 22 20 28 2d 20 6e 65 77 68 65 61 70 20 68 65 61 70 29 20 6e 65 77 68 65 61 70 29 0a 20 20 20 20 | ".(-.newheap.heap).newheap)..... |
| 9b240 | 28 66 6f 72 6d 61 74 20 23 74 20 22 3b 20 4e 6f 6e 2d 48 65 61 70 3a 20 7e 40 3a 64 20 28 7e 3a | (format.#t.";.Non-Heap:.~@:d.(~: |
| 9b260 | 64 29 5c 6e 22 20 28 2d 20 6e 65 77 6e 6f 6e 68 65 61 70 20 6e 6f 6e 68 65 61 70 29 20 6e 65 77 | d)\n".(-.newnonheap.nonheap).new |
| 9b280 | 6e 6f 6e 68 65 61 70 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 23 74 20 22 3b 20 45 6c 61 70 73 | nonheap).....(format.#t.";.Elaps |
| 9b2a0 | 65 64 20 74 69 6d 65 3a 20 7e 3a 64 20 75 73 5c 6e 22 20 28 2f 20 28 2d 20 65 6e 64 20 73 74 61 | ed.time:.~:d.us\n".(/.(-.end.sta |
| 9b2c0 | 72 74 29 20 31 30 30 30 29 29 0a 20 20 20 20 76 61 6c 75 65 73 29 29 0a 0a 28 64 65 66 69 6e 65 | rt).1000)).....values))..(define |
| 9b2e0 | 2d 73 79 6e 74 61 78 20 74 69 6d 65 0a 20 20 28 73 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a | -syntax.time...(syntax-rules.(). |
| 9b300 | 20 20 20 20 28 28 74 69 6d 65 20 66 6f 72 6d 29 0a 20 20 20 20 20 28 25 74 69 6d 65 20 28 6c 61 | ....((time.form)......(%time.(la |
| 9b320 | 6d 62 64 61 20 28 29 20 66 6f 72 6d 29 29 29 29 29 0a 0a 28 64 66 20 67 63 20 28 29 0a 20 20 28 | mbda.().form)))))..(df.gc.()...( |
| 9b340 | 6c 65 74 2a 20 28 28 6d 65 6d 20 28 21 73 20 6a 61 76 61 2e 6c 61 6e 67 2e 6d 61 6e 61 67 65 6d | let*.((mem.(!s.java.lang.managem |
| 9b360 | 65 6e 74 2e 4d 61 6e 61 67 65 6d 65 6e 74 46 61 63 74 6f 72 79 20 67 65 74 4d 65 6d 6f 72 79 4d | ent.ManagementFactory.getMemoryM |
| 9b380 | 58 42 65 61 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 68 65 61 70 20 28 21 21 20 67 65 74 55 | XBean))..........(oheap.(!!.getU |
| 9b3a0 | 73 65 64 20 67 65 74 48 65 61 70 4d 65 6d 6f 72 79 55 73 61 67 65 20 6d 65 6d 29 29 0a 20 20 20 | sed.getHeapMemoryUsage.mem)).... |
| 9b3c0 | 20 20 20 20 20 20 28 6f 6e 68 65 61 70 20 28 21 21 20 67 65 74 55 73 65 64 20 67 65 74 4e 6f 6e | ......(onheap.(!!.getUsed.getNon |
| 9b3e0 | 48 65 61 70 4d 65 6d 6f 72 79 55 73 61 67 65 20 6d 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 | HeapMemoryUsage.mem))..........( |
| 9b400 | 5f 20 28 21 20 67 63 20 6d 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 61 70 20 28 21 21 | _.(!.gc.mem))..........(heap.(!! |
| 9b420 | 20 67 65 74 55 73 65 64 20 20 67 65 74 48 65 61 70 4d 65 6d 6f 72 79 55 73 61 67 65 20 6d 65 6d | .getUsed..getHeapMemoryUsage.mem |
| 9b440 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 68 65 61 70 20 28 21 21 20 67 65 74 55 73 65 64 20 67 | ))..........(nheap.(!!.getUsed.g |
| 9b460 | 65 74 4e 6f 6e 48 65 61 70 4d 65 6d 6f 72 79 55 73 61 67 65 20 6d 65 6d 29 29 29 0a 20 20 20 20 | etNonHeapMemoryUsage.mem)))..... |
| 9b480 | 28 66 6f 72 6d 61 74 20 23 74 20 22 3b 20 68 65 61 70 3a 20 7e 40 3a 64 20 28 7e 3a 64 29 20 6e | (format.#t.";.heap:.~@:d.(~:d).n |
| 9b4a0 | 6f 6e 2d 68 65 61 70 3a 20 7e 40 3a 64 20 28 7e 3a 64 29 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 | on-heap:.~@:d.(~:d)\n".......... |
| 9b4c0 | 20 20 20 20 28 2d 20 68 65 61 70 20 6f 68 65 61 70 29 20 68 65 61 70 20 28 2d 20 6f 6e 68 65 61 | ....(-.heap.oheap).heap.(-.onhea |
| 9b4e0 | 70 20 6e 68 65 61 70 29 20 6e 68 65 61 70 29 29 29 0a 0a 28 64 66 20 72 6f 6f 6d 20 28 29 0a 20 | p.nheap).nheap)))..(df.room.().. |
| 9b500 | 20 28 6c 65 74 2a 20 28 28 70 6f 6f 6c 73 20 28 21 73 20 6a 61 76 61 2e 6c 61 6e 67 2e 6d 61 6e | .(let*.((pools.(!s.java.lang.man |
| 9b520 | 61 67 65 6d 65 6e 74 2e 4d 61 6e 61 67 65 6d 65 6e 74 46 61 63 74 6f 72 79 0a 20 20 20 20 20 20 | agement.ManagementFactory....... |
| 9b540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 4d 65 6d 6f 72 79 50 6f 6f 6c 4d 58 42 65 61 | ..............getMemoryPoolMXBea |
| 9b560 | 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 6d 20 28 21 73 20 6a 61 76 61 2e 6c 61 6e 67 | ns))..........(mem.(!s.java.lang |
| 9b580 | 2e 6d 61 6e 61 67 65 6d 65 6e 74 2e 4d 61 6e 61 67 65 6d 65 6e 74 46 61 63 74 6f 72 79 20 67 65 | .management.ManagementFactory.ge |
| 9b5a0 | 74 4d 65 6d 6f 72 79 4d 58 42 65 61 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 61 70 20 28 | tMemoryMXBean))..........(heap.( |
| 9b5c0 | 21 21 20 67 65 74 55 73 65 64 20 20 67 65 74 48 65 61 70 4d 65 6d 6f 72 79 55 73 61 67 65 20 6d | !!.getUsed..getHeapMemoryUsage.m |
| 9b5e0 | 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 68 65 61 70 20 28 21 21 20 67 65 74 55 73 65 64 | em))..........(nheap.(!!.getUsed |
| 9b600 | 20 67 65 74 4e 6f 6e 48 65 61 70 4d 65 6d 6f 72 79 55 73 61 67 65 20 6d 65 6d 29 29 29 0a 20 20 | .getNonHeapMemoryUsage.mem)))... |
| 9b620 | 20 20 28 69 74 65 72 20 70 6f 6f 6c 73 20 28 66 75 6e 20 28 28 70 20 3c 6a 61 76 61 2e 6c 61 6e | ..(iter.pools.(fun.((p.<java.lan |
| 9b640 | 67 2e 6d 61 6e 61 67 65 6d 65 6e 74 2e 4d 65 6d 6f 72 79 50 6f 6f 6c 4d 58 42 65 61 6e 3e 29 29 | g.management.MemoryPoolMXBean>)) |
| 9b660 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 23 74 20 22 7e | ...................(format.#t."~ |
| 9b680 | 26 3b 20 7e 61 7e 31 2c 31 36 74 3a 20 7e 31 30 3a 64 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 | &;.~a~1,16t:.~10:d\n"........... |
| 9b6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 67 65 74 4e 61 6d 65 20 70 29 0a 20 20 | ................(!.getName.p)... |
| 9b6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 21 20 67 65 74 55 | ........................(!!.getU |
| 9b6e0 | 73 65 64 20 67 65 74 55 73 61 67 65 20 70 29 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 23 | sed.getUsage.p)))).....(format.# |
| 9b700 | 74 20 22 3b 20 48 65 61 70 7e 31 2c 31 36 74 3a 20 7e 31 30 3a 64 5c 6e 22 20 68 65 61 70 29 0a | t.";.Heap~1,16t:.~10:d\n".heap). |
| 9b720 | 20 20 20 20 28 66 6f 72 6d 61 74 20 23 74 20 22 3b 20 4e 6f 6e 2d 48 65 61 70 7e 31 2c 31 36 74 | ....(format.#t.";.Non-Heap~1,16t |
| 9b740 | 3a 20 7e 31 30 3a 64 5c 6e 22 20 6e 68 65 61 70 29 29 29 0a 0a 3b 3b 20 28 64 66 20 6a 61 76 61 | :.~10:d\n".nheap)))..;;.(df.java |
| 9b760 | 70 20 28 63 6c 61 73 73 20 23 21 6b 65 79 20 6d 65 74 68 6f 64 20 73 69 67 6e 61 74 75 72 65 29 | p.(class.#!key.method.signature) |
| 9b780 | 0a 3b 3b 20 20 20 28 6c 65 74 2a 20 28 28 3c 69 73 3e 20 3c 6a 61 76 61 2e 69 6f 2e 42 79 74 65 | .;;...(let*.((<is>.<java.io.Byte |
| 9b7a0 | 41 72 72 61 79 49 6e 70 75 74 53 74 72 65 61 6d 3e 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 28 | ArrayInputStream>).;;..........( |
| 9b7c0 | 62 79 74 65 73 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 63 6c 61 | bytes.;;...........(typecase.cla |
| 9b7e0 | 73 73 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 73 74 72 69 6e 67 3e 20 28 72 65 61 | ss.;;.............(<string>.(rea |
| 9b800 | 64 2d 62 79 74 65 73 20 28 3c 6a 61 76 61 2e 69 6f 2e 46 69 6c 65 49 6e 70 75 74 53 74 72 65 61 | d-bytes.(<java.io.FileInputStrea |
| 9b820 | 6d 3e 20 28 74 6f 2d 73 74 72 20 63 6c 61 73 73 29 29 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 | m>.(to-str.class)))).;;......... |
| 9b840 | 20 20 20 20 28 3c 62 79 74 65 5b 5d 3e 20 63 6c 61 73 73 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 | ....(<byte[]>.class).;;......... |
| 9b860 | 20 20 20 20 28 3c 73 79 6d 62 6f 6c 3e 20 28 72 65 61 64 2d 63 6c 61 73 73 2d 66 69 6c 65 20 63 | ....(<symbol>.(read-class-file.c |
| 9b880 | 6c 61 73 73 29 29 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 28 63 64 61 74 61 20 28 3c 73 75 | lass)))).;;..........(cdata.(<su |
| 9b8a0 | 6e 2e 74 6f 6f 6c 73 2e 6a 61 76 61 70 2e 43 6c 61 73 73 44 61 74 61 3e 20 28 3c 69 73 3e 20 62 | n.tools.javap.ClassData>.(<is>.b |
| 9b8c0 | 79 74 65 73 29 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 28 70 20 28 3c 73 75 6e 2e 74 6f 6f | ytes))).;;..........(p.(<sun.too |
| 9b8e0 | 6c 73 2e 6a 61 76 61 70 2e 4a 61 76 61 70 50 72 69 6e 74 65 72 3e 0a 3b 3b 20 20 20 20 20 20 20 | ls.javap.JavapPrinter>.;;....... |
| 9b900 | 20 20 20 20 28 3c 69 73 3e 20 62 79 74 65 73 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(<is>.bytes).;;............. |
| 9b920 | 20 28 63 75 72 72 65 6e 74 2d 6f 75 74 70 75 74 2d 70 6f 72 74 29 0a 3b 3b 20 20 20 20 20 20 20 | .(current-output-port).;;....... |
| 9b940 | 20 20 20 20 20 20 20 28 3c 73 75 6e 2e 74 6f 6f 6c 73 2e 6a 61 76 61 70 2e 4a 61 76 61 70 45 6e | .......(<sun.tools.javap.JavapEn |
| 9b960 | 76 69 72 6f 6e 6d 65 6e 74 3e 29 29 29 29 0a 3b 3b 20 20 20 20 20 28 63 6f 6e 64 20 28 6d 65 74 | vironment>)))).;;.....(cond.(met |
| 9b980 | 68 6f 64 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 28 6d 20 3c 73 | hod.;;............(dolist.((m.<s |
| 9b9a0 | 75 6e 2e 74 6f 6f 6c 73 2e 6a 61 76 61 70 2e 4d 65 74 68 6f 64 44 61 74 61 3e 29 0a 3b 3b 20 20 | un.tools.javap.MethodData>).;;.. |
| 9b9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 72 61 79 2d 74 6f 2d 6c 69 73 | ...................(array-to-lis |
| 9b9e0 | 74 20 28 21 20 67 65 74 4d 65 74 68 6f 64 73 20 63 64 61 74 61 29 29 29 0a 3b 3b 20 20 20 20 20 | t.(!.getMethods.cdata))).;;..... |
| 9ba00 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 65 71 75 61 6c 20 28 74 6f 2d 73 | .........(when.(and.(equal.(to-s |
| 9ba20 | 74 72 20 6d 65 74 68 6f 64 29 20 28 21 20 67 65 74 4e 61 6d 65 20 6d 29 29 0a 3b 3b 20 20 20 20 | tr.method).(!.getName.m)).;;.... |
| 9ba40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 6e 6f 74 20 73 69 | .....................(or.(not.si |
| 9ba60 | 67 6e 61 74 75 72 65 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gnature).;;..................... |
| 9ba80 | 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 73 69 67 6e 61 74 75 72 65 20 28 21 20 67 65 74 49 | ........(equal.signature.(!.getI |
| 9baa0 | 6e 74 65 72 6e 61 6c 53 69 67 20 6d 29 29 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 | nternalSig.m)))).;;............. |
| 9bac0 | 20 20 20 28 21 20 70 72 69 6e 74 4d 65 74 68 6f 64 53 69 67 6e 61 74 75 72 65 20 70 20 6d 20 28 | ...(!.printMethodSignature.p.m.( |
| 9bae0 | 21 20 67 65 74 41 63 63 65 73 73 20 6d 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | !.getAccess.m)).;;.............. |
| 9bb00 | 20 20 28 21 20 70 72 69 6e 74 45 78 63 65 70 74 69 6f 6e 73 20 70 20 6d 29 0a 3b 3b 20 20 20 20 | ..(!.printExceptions.p.m).;;.... |
| 9bb20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 6c 69 6e 65 29 0a 3b 3b 20 20 20 20 20 20 20 20 | ............(newline).;;........ |
| 9bb40 | 20 20 20 20 20 20 20 20 28 21 20 70 72 69 6e 74 56 65 72 62 6f 73 65 48 65 61 64 65 72 20 70 20 | ........(!.printVerboseHeader.p. |
| 9bb60 | 6d 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 21 20 70 72 69 6e 74 63 6f 64 | m).;;................(!.printcod |
| 9bb80 | 65 53 65 71 75 65 6e 63 65 20 70 20 6d 29 29 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 28 | eSequence.p.m)))).;;...........( |
| 9bba0 | 23 74 20 28 70 3a 70 72 69 6e 74 29 29 29 0a 3b 3b 20 20 20 20 20 28 76 61 6c 75 65 73 29 29 29 | #t.(p:print))).;;.....(values))) |
| 9bbc0 | 0a 0a 28 64 66 20 72 65 61 64 2d 62 79 74 65 73 20 28 28 69 73 20 3c 6a 61 76 61 2e 69 6f 2e 49 | ..(df.read-bytes.((is.<java.io.I |
| 9bbe0 | 6e 70 75 74 53 74 72 65 61 6d 3e 29 20 3d 3e 20 3c 62 79 74 65 5b 5d 3e 29 0a 20 20 28 6c 65 74 | nputStream>).=>.<byte[]>)...(let |
| 9bc00 | 20 28 28 6f 73 20 28 3c 6a 61 76 61 2e 69 6f 2e 42 79 74 65 41 72 72 61 79 4f 75 74 70 75 74 53 | .((os.(<java.io.ByteArrayOutputS |
| 9bc20 | 74 72 65 61 6d 3e 29 29 29 0a 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 29 0a 20 20 20 20 20 | tream>))).....(let.loop.()...... |
| 9bc40 | 20 28 6c 65 74 20 28 28 63 20 28 21 20 72 65 61 64 20 69 73 29 29 29 0a 20 20 20 20 20 20 20 20 | .(let.((c.(!.read.is)))......... |
| 9bc60 | 28 63 6f 6e 64 20 28 28 3d 20 63 20 2d 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | (cond.((=.c.-1))...............( |
| 9bc80 | 23 74 20 28 21 20 77 72 69 74 65 20 6f 73 20 63 29 20 28 6c 6f 6f 70 29 29 29 29 29 0a 20 20 20 | #t.(!.write.os.c).(loop))))).... |
| 9bca0 | 20 28 21 20 74 6f 2d 62 79 74 65 2d 61 72 72 61 79 20 6f 73 29 29 29 0a 0a 28 64 66 20 72 65 61 | .(!.to-byte-array.os)))..(df.rea |
| 9bcc0 | 64 2d 63 6c 61 73 73 2d 66 69 6c 65 20 28 28 6e 61 6d 65 20 3c 73 79 6d 62 6f 6c 3e 29 20 3d 3e | d-class-file.((name.<symbol>).=> |
| 9bce0 | 20 3c 62 79 74 65 5b 5d 3e 29 0a 20 20 28 6c 65 74 20 28 28 66 20 28 63 61 74 20 28 21 20 72 65 | .<byte[]>)...(let.((f.(cat.(!.re |
| 9bd00 | 70 6c 61 63 65 20 28 74 6f 2d 73 74 72 20 6e 61 6d 65 29 20 28 61 73 20 3c 63 68 61 72 3e 20 23 | place.(to-str.name).(as.<char>.# |
| 9bd20 | 5c 2e 29 20 28 61 73 20 3c 63 68 61 72 3e 20 23 5c 2f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | \.).(as.<char>.#\/))............ |
| 9bd40 | 20 20 20 20 20 22 2e 63 6c 61 73 73 22 29 29 29 0a 20 20 20 20 28 6d 63 61 73 65 20 28 66 69 6e | .....".class"))).....(mcase.(fin |
| 9bd60 | 64 2d 66 69 6c 65 2d 69 6e 2d 70 61 74 68 20 66 20 28 63 6c 61 73 73 2d 70 61 74 68 29 29 0a 20 | d-file-in-path.f.(class-path)).. |
| 9bd80 | 20 20 20 20 20 28 27 23 66 20 28 66 65 72 72 6f 72 20 22 43 61 6e 27 74 20 66 69 6e 64 20 63 6c | .....('#f.(ferror."Can't.find.cl |
| 9bda0 | 61 73 73 66 69 6c 65 20 66 6f 72 20 7e 73 22 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 28 28 3a | assfile.for.~s".name)).......((: |
| 9bdc0 | 7a 69 70 20 7a 69 70 66 69 6c 65 20 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 | zip.zipfile.entry)........(let*. |
| 9bde0 | 28 28 7a 20 28 3c 6a 61 76 61 2e 75 74 69 6c 2e 7a 69 70 2e 5a 69 70 46 69 6c 65 3e 20 28 61 73 | ((z.(<java.util.zip.ZipFile>.(as |
| 9be00 | 20 3c 73 74 72 3e 20 7a 69 70 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .<str>.zipfile)))............... |
| 9be20 | 28 65 20 28 21 20 67 65 74 45 6e 74 72 79 20 7a 20 28 61 73 20 3c 73 74 72 3e 20 65 6e 74 72 79 | (e.(!.getEntry.z.(as.<str>.entry |
| 9be40 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 62 79 74 65 73 20 28 21 20 67 65 74 | ))))..........(read-bytes.(!.get |
| 9be60 | 49 6e 70 75 74 53 74 72 65 61 6d 20 7a 20 65 29 29 29 29 0a 20 20 20 20 20 20 28 28 3a 66 69 6c | InputStream.z.e)))).......((:fil |
| 9be80 | 65 20 73 29 20 28 72 65 61 64 2d 62 79 74 65 73 20 28 3c 6a 61 76 61 2e 69 6f 2e 46 69 6c 65 49 | e.s).(read-bytes.(<java.io.FileI |
| 9bea0 | 6e 70 75 74 53 74 72 65 61 6d 3e 20 28 61 73 20 3c 73 74 72 3e 20 73 29 29 29 29 29 29 29 0a 0a | nputStream>.(as.<str>.s))))))).. |
| 9bec0 | 28 64 66 20 61 6c 6c 2d 69 6e 73 74 61 6e 63 65 73 20 28 28 76 6d 20 3c 76 6d 3e 29 20 28 63 6c | (df.all-instances.((vm.<vm>).(cl |
| 9bee0 | 61 73 73 6e 61 6d 65 20 3c 73 74 72 3e 29 29 0a 20 20 28 6d 61 70 70 65 6e 64 20 28 66 75 6e 20 | assname.<str>))...(mappend.(fun. |
| 9bf00 | 28 28 63 20 3c 63 6c 61 73 73 2d 74 79 70 65 3e 29 29 20 28 74 6f 2d 6c 69 73 74 20 28 21 20 69 | ((c.<class-type>)).(to-list.(!.i |
| 9bf20 | 6e 73 74 61 6e 63 65 73 20 63 20 28 61 73 20 6c 6f 6e 67 20 39 39 39 39 29 29 29 29 0a 20 20 20 | nstances.c.(as.long.9999)))).... |
| 9bf40 | 20 20 20 20 20 20 20 20 28 25 61 6c 6c 2d 73 75 62 63 6c 61 73 73 65 73 20 76 6d 20 63 6c 61 73 | ........(%all-subclasses.vm.clas |
| 9bf60 | 73 6e 61 6d 65 29 29 29 0a 0a 28 64 66 20 25 61 6c 6c 2d 73 75 62 63 6c 61 73 73 65 73 20 28 28 | sname)))..(df.%all-subclasses.(( |
| 9bf80 | 76 6d 20 3c 76 6d 3e 29 20 28 63 6c 61 73 73 6e 61 6d 65 20 3c 73 74 72 3e 29 29 0a 20 20 28 6d | vm.<vm>).(classname.<str>))...(m |
| 9bfa0 | 61 70 70 65 6e 64 20 28 66 75 6e 20 28 28 63 20 3c 63 6c 61 73 73 2d 74 79 70 65 3e 29 29 20 28 | append.(fun.((c.<class-type>)).( |
| 9bfc0 | 63 6f 6e 73 20 63 20 28 74 6f 2d 6c 69 73 74 20 28 21 20 73 75 62 63 6c 61 73 73 65 73 20 63 29 | cons.c.(to-list.(!.subclasses.c) |
| 9bfe0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 6f 2d 6c 69 73 74 20 28 21 20 63 6c 61 73 73 | )))............(to-list.(!.class |
| 9c000 | 65 73 2d 62 79 2d 6e 61 6d 65 20 76 6d 20 63 6c 61 73 73 6e 61 6d 65 29 29 29 29 0a 0a 28 64 66 | es-by-name.vm.classname))))..(df |
| 9c020 | 20 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 74 68 75 6e 6b 20 3d 3e | .with-output-to-string.(thunk.=> |
| 9c040 | 20 3c 73 74 72 3e 29 0a 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 6f 75 74 70 75 74 2d 73 74 72 69 | .<str>)...(call-with-output-stri |
| 9c060 | 6e 67 0a 20 20 20 28 66 75 6e 20 28 73 29 20 28 70 61 72 61 6d 65 74 65 72 69 7a 65 20 28 28 63 | ng....(fun.(s).(parameterize.((c |
| 9c080 | 75 72 72 65 6e 74 2d 6f 75 74 70 75 74 2d 70 6f 72 74 20 73 29 29 20 28 74 68 75 6e 6b 29 29 29 | urrent-output-port.s)).(thunk))) |
| 9c0a0 | 29 29 0a 0a 28 64 66 20 66 69 6e 64 2d 69 66 20 28 28 69 20 3c 69 74 65 72 61 62 6c 65 3e 29 20 | ))..(df.find-if.((i.<iterable>). |
| 9c0c0 | 74 65 73 74 20 64 65 66 61 75 6c 74 29 0a 20 20 28 6c 65 74 20 28 28 69 74 65 72 20 28 21 20 69 | test.default)...(let.((iter.(!.i |
| 9c0e0 | 74 65 72 61 74 6f 72 20 69 29 29 0a 20 20 20 20 20 20 20 20 28 66 6f 75 6e 64 20 23 66 29 29 0a | terator.i)).........(found.#f)). |
| 9c100 | 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 6e 6f 74 20 66 6f 75 6e 64 29 20 28 21 20 68 | ....(while.(and.(not.found).(!.h |
| 9c120 | 61 73 2d 6e 65 78 74 20 69 74 65 72 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 20 28 21 | as-next.iter)).......(let.((e.(! |
| 9c140 | 20 6e 65 78 74 20 69 74 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 74 65 73 | .next.iter))).........(when.(tes |
| 9c160 | 74 20 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 66 6f 75 6e 64 20 23 74 29 0a 20 20 | t.e)...........(set.found.#t)... |
| 9c180 | 20 20 20 20 20 20 20 20 28 73 65 74 20 64 65 66 61 75 6c 74 20 65 29 29 29 29 0a 20 20 20 20 64 | ........(set.default.e)))).....d |
| 9c1a0 | 65 66 61 75 6c 74 29 29 0a 0a 28 64 66 20 66 69 6c 74 65 72 20 28 28 69 20 3c 69 74 65 72 61 62 | efault))..(df.filter.((i.<iterab |
| 9c1c0 | 6c 65 3e 29 20 74 65 73 74 20 3d 3e 20 3c 6c 69 73 74 3e 29 0a 20 20 28 70 61 63 6b 69 6e 67 20 | le>).test.=>.<list>)...(packing. |
| 9c1e0 | 28 70 61 63 6b 29 0a 20 20 20 20 28 66 6f 72 20 28 28 65 20 69 29 29 0a 20 20 20 20 20 20 28 77 | (pack).....(for.((e.i)).......(w |
| 9c200 | 68 65 6e 20 28 74 65 73 74 20 65 29 0a 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 65 29 29 29 29 | hen.(test.e).........(pack.e)))) |
| 9c220 | 29 0a 0a 28 64 66 20 69 74 65 72 20 28 28 69 20 3c 69 74 65 72 61 62 6c 65 3e 29 20 66 29 0a 20 | )..(df.iter.((i.<iterable>).f).. |
| 9c240 | 20 28 66 6f 72 20 28 28 65 20 69 29 29 20 28 66 20 65 29 29 29 0a 0a 28 64 66 20 6d 61 70 69 20 | .(for.((e.i)).(f.e)))..(df.mapi. |
| 9c260 | 28 28 69 20 3c 69 74 65 72 61 62 6c 65 3e 29 20 66 20 3d 3e 20 3c 6c 69 73 74 3e 29 0a 20 20 28 | ((i.<iterable>).f.=>.<list>)...( |
| 9c280 | 70 61 63 6b 69 6e 67 20 28 70 61 63 6b 29 20 28 66 6f 72 20 28 28 65 20 69 29 29 20 28 70 61 63 | packing.(pack).(for.((e.i)).(pac |
| 9c2a0 | 6b 20 28 66 20 65 29 29 29 29 29 0a 0a 28 64 66 20 6e 74 68 20 28 28 69 20 3c 69 74 65 72 61 62 | k.(f.e)))))..(df.nth.((i.<iterab |
| 9c2c0 | 6c 65 3e 29 20 28 6e 20 3c 69 6e 74 3e 29 29 0a 20 20 28 6c 65 74 20 28 28 69 74 65 72 20 28 21 | le>).(n.<int>))...(let.((iter.(! |
| 9c2e0 | 20 69 74 65 72 61 74 6f 72 20 69 29 29 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 6e | .iterator.i))).....(dotimes.(i.n |
| 9c300 | 29 0a 20 20 20 20 20 20 28 21 20 6e 65 78 74 20 69 74 65 72 29 29 0a 20 20 20 20 28 21 20 6e 65 | ).......(!.next.iter)).....(!.ne |
| 9c320 | 78 74 20 69 74 65 72 29 29 29 0a 0a 28 64 66 20 31 73 74 20 28 28 69 20 3c 69 74 65 72 61 62 6c | xt.iter)))..(df.1st.((i.<iterabl |
| 9c340 | 65 3e 29 29 20 28 21 21 20 6e 65 78 74 20 69 74 65 72 61 74 6f 72 20 69 29 29 0a 0a 28 64 66 20 | e>)).(!!.next.iterator.i))..(df. |
| 9c360 | 74 6f 2d 6c 69 73 74 20 28 28 69 20 3c 69 74 65 72 61 62 6c 65 3e 29 20 3d 3e 20 3c 6c 69 73 74 | to-list.((i.<iterable>).=>.<list |
| 9c380 | 3e 29 0a 20 20 28 70 61 63 6b 69 6e 67 20 28 70 61 63 6b 29 20 28 66 6f 72 20 28 28 65 20 69 29 | >)...(packing.(pack).(for.((e.i) |
| 9c3a0 | 29 20 28 70 61 63 6b 20 65 29 29 29 29 0a 0a 28 64 66 20 61 73 2d 6c 69 73 74 20 28 28 6f 20 3c | ).(pack.e))))..(df.as-list.((o.< |
| 9c3c0 | 6a 61 76 61 2e 6c 61 6e 67 2e 4f 62 6a 65 63 74 5b 5d 3e 29 20 3d 3e 20 3c 6a 61 76 61 2e 75 74 | java.lang.Object[]>).=>.<java.ut |
| 9c3e0 | 69 6c 2e 4c 69 73 74 3e 29 0a 20 20 28 21 73 20 6a 61 76 61 2e 75 74 69 6c 2e 41 72 72 61 79 73 | il.List>)...(!s.java.util.Arrays |
| 9c400 | 20 61 73 4c 69 73 74 20 6f 29 29 0a 0a 28 64 66 20 6d 61 70 70 65 6e 64 20 28 66 20 6c 69 73 74 | .asList.o))..(df.mappend.(f.list |
| 9c420 | 29 0a 20 20 28 61 70 70 6c 79 20 61 70 70 65 6e 64 20 28 6d 61 70 20 66 20 6c 69 73 74 29 29 29 | )...(apply.append.(map.f.list))) |
| 9c440 | 0a 0a 28 64 66 20 73 75 62 73 65 71 20 28 73 20 66 72 6f 6d 20 74 6f 29 0a 20 20 28 74 79 70 65 | ..(df.subseq.(s.from.to)...(type |
| 9c460 | 63 61 73 65 20 73 0a 20 20 20 20 28 3c 6c 69 73 74 3e 20 28 61 70 70 6c 79 20 6c 69 73 74 20 28 | case.s.....(<list>.(apply.list.( |
| 9c480 | 21 20 73 75 62 2d 6c 69 73 74 20 73 20 66 72 6f 6d 20 74 6f 29 29 29 0a 20 20 20 20 28 3c 76 65 | !.sub-list.s.from.to))).....(<ve |
| 9c4a0 | 63 74 6f 72 3e 20 28 61 70 70 6c 79 20 76 65 63 74 6f 72 20 28 21 20 73 75 62 2d 6c 69 73 74 20 | ctor>.(apply.vector.(!.sub-list. |
| 9c4c0 | 73 20 66 72 6f 6d 20 74 6f 29 29 29 0a 20 20 20 20 28 3c 73 74 72 3e 20 28 21 20 73 75 62 73 74 | s.from.to))).....(<str>.(!.subst |
| 9c4e0 | 72 69 6e 67 20 73 20 66 72 6f 6d 20 74 6f 29 29 0a 20 20 20 20 28 3c 62 79 74 65 5b 5d 3e 20 28 | ring.s.from.to)).....(<byte[]>.( |
| 9c500 | 6c 65 74 2a 20 28 28 6c 65 6e 20 28 61 73 20 3c 69 6e 74 3e 20 28 2d 20 74 6f 20 66 72 6f 6d 29 | let*.((len.(as.<int>.(-.to.from) |
| 9c520 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 3c 62 79 74 | ))......................(t.(<byt |
| 9c540 | 65 5b 5d 3e 20 23 3a 6c 65 6e 67 74 68 20 6c 65 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | e[]>.#:length.len)))............ |
| 9c560 | 20 20 20 20 20 28 21 73 20 6a 61 76 61 2e 6c 61 6e 67 2e 53 79 73 74 65 6d 20 61 72 72 61 79 63 | .....(!s.java.lang.System.arrayc |
| 9c580 | 6f 70 79 20 73 20 66 72 6f 6d 20 74 20 30 20 6c 65 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | opy.s.from.t.0.len)............. |
| 9c5a0 | 20 20 20 20 74 29 29 29 29 0a 0a 28 64 66 20 74 6f 2d 73 74 72 69 6e 67 20 28 6f 62 6a 20 3d 3e | ....t))))..(df.to-string.(obj.=> |
| 9c5c0 | 20 3c 73 74 72 69 6e 67 3e 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 6f 62 6a 0a 20 20 20 20 28 | .<string>)...(typecase.obj.....( |
| 9c5e0 | 3c 73 74 72 3e 20 28 3c 67 6e 75 2e 6c 69 73 74 73 2e 46 53 74 72 69 6e 67 3e 20 6f 62 6a 29 29 | <str>.(<gnu.lists.FString>.obj)) |
| 9c600 | 0a 20 20 20 20 28 28 73 61 74 69 73 66 69 65 73 20 73 74 72 69 6e 67 3f 29 20 6f 62 6a 29 0a 20 | .....((satisfies.string?).obj).. |
| 9c620 | 20 20 20 28 28 73 61 74 69 73 66 69 65 73 20 73 79 6d 62 6f 6c 3f 29 20 28 73 79 6d 62 6f 6c 2d | ...((satisfies.symbol?).(symbol- |
| 9c640 | 3e 73 74 72 69 6e 67 20 6f 62 6a 29 29 0a 20 20 20 20 28 3c 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 | >string.obj)).....(<java.lang.St |
| 9c660 | 72 69 6e 67 42 75 66 66 65 72 3e 20 28 3c 67 6e 75 2e 6c 69 73 74 73 2e 46 53 74 72 69 6e 67 3e | ringBuffer>.(<gnu.lists.FString> |
| 9c680 | 20 6f 62 6a 29 29 0a 20 20 20 20 28 3c 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 72 69 6e 67 42 75 69 | .obj)).....(<java.lang.StringBui |
| 9c6a0 | 6c 64 65 72 3e 20 28 3c 67 6e 75 2e 6c 69 73 74 73 2e 46 53 74 72 69 6e 67 3e 20 6f 62 6a 29 29 | lder>.(<gnu.lists.FString>.obj)) |
| 9c6c0 | 0a 20 20 20 20 28 23 74 20 28 65 72 72 6f 72 20 22 4e 6f 74 20 61 20 73 74 72 69 6e 67 20 64 65 | .....(#t.(error."Not.a.string.de |
| 9c6e0 | 73 69 67 6e 61 74 6f 72 22 20 6f 62 6a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c | signator".obj................(cl |
| 9c700 | 61 73 73 2d 6e 61 6d 65 2d 73 61 6e 73 2d 70 61 63 6b 61 67 65 20 6f 62 6a 29 29 29 29 29 0a 0a | ass-name-sans-package.obj))))).. |
| 9c720 | 28 64 66 20 74 6f 2d 73 74 72 20 28 6f 62 6a 20 3d 3e 20 3c 73 74 72 3e 29 0a 20 20 28 63 6f 6e | (df.to-str.(obj.=>.<str>)...(con |
| 9c740 | 64 20 28 28 69 6e 73 74 61 6e 63 65 3f 20 6f 62 6a 20 3c 73 74 72 3e 29 20 6f 62 6a 29 0a 20 20 | d.((instance?.obj.<str>).obj)... |
| 9c760 | 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 3f 20 6f 62 6a 29 20 28 21 20 74 6f 53 74 72 69 6e 67 | ......((string?.obj).(!.toString |
| 9c780 | 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 3f 20 6f 62 6a 29 20 28 21 | .obj)).........((symbol?.obj).(! |
| 9c7a0 | 20 67 65 74 4e 61 6d 65 20 28 61 73 20 3c 67 6e 75 2e 6d 61 70 70 69 6e 67 2e 53 79 6d 62 6f 6c | .getName.(as.<gnu.mapping.Symbol |
| 9c7c0 | 3e 20 6f 62 6a 29 29 29 0a 20 20 20 20 20 20 20 20 28 23 74 20 28 65 72 72 6f 72 20 22 4e 6f 74 | >.obj))).........(#t.(error."Not |
| 9c7e0 | 20 61 20 73 74 72 69 6e 67 20 64 65 73 69 67 6e 61 74 6f 72 22 20 6f 62 6a 0a 20 20 20 20 20 20 | .a.string.designator".obj....... |
| 9c800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 61 6e 73 2d 70 61 | .............(class-name-sans-pa |
| 9c820 | 63 6b 61 67 65 20 6f 62 6a 29 29 29 29 29 0a 0a 29 29 0a 0a 3b 3b 20 4c 6f 63 61 6c 20 56 61 72 | ckage.obj)))))..))..;;.Local.Var |
| 9c840 | 69 61 62 6c 65 73 3a 0a 3b 3b 20 6d 6f 64 65 3a 20 67 6f 6f 0a 3b 3b 20 63 6f 6d 70 69 6c 65 2d | iables:.;;.mode:.goo.;;.compile- |
| 9c860 | 63 6f 6d 6d 61 6e 64 3a 20 22 5c 0a 3b 3b 20 20 72 6d 20 2d 72 66 20 63 6c 61 73 73 65 73 20 26 | command:."\.;;..rm.-rf.classes.& |
| 9c880 | 26 20 5c 0a 3b 3b 20 20 4a 41 56 41 5f 4f 50 54 53 3d 2d 58 73 73 32 4d 20 6b 61 77 61 20 2d 2d | &.\.;;..JAVA_OPTS=-Xss2M.kawa.-- |
| 9c8a0 | 72 37 72 73 20 2d 64 20 63 6c 61 73 73 65 73 20 2d 43 20 73 77 61 6e 6b 2d 6b 61 77 61 2e 73 63 | r7rs.-d.classes.-C.swank-kawa.sc |
| 9c8c0 | 6d 20 26 26 20 5c 0a 3b 3b 20 20 6a 61 72 20 63 66 20 73 77 61 6e 6b 2d 6b 61 77 61 2e 6a 61 72 | m.&&.\.;;..jar.cf.swank-kawa.jar |
| 9c8e0 | 20 2d 43 20 63 6c 61 73 73 65 73 20 2e 22 0a 3b 3b 20 45 6e 64 3a 0a 00 00 00 00 00 00 00 00 00 | .-C.classes..".;;.End:.......... |
| 9c900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9c920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9c940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9c960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9c980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9c9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9c9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9c9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9ca00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 62 61 6e 6e 65 72 2e | slime-2.31/contrib/slime-banner. |
| 9ca20 | 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | el.............................. |
| 9ca40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9ca60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 9ca80 | 30 30 30 32 33 30 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 35 34 37 00 20 30 00 00 00 | 0002307.00000000000.015547..0... |
| 9caa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9cac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9cae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9cb00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 9cb20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 9cb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9cb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9cb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9cba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9cbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9cbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9cc00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 | (require.'slime).(require.'slime |
| 9cc20 | 2d 72 65 70 6c 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c | -repl)..(define-slime-contrib.sl |
| 9cc40 | 69 6d 65 2d 62 61 6e 6e 65 72 0a 20 20 22 50 65 72 73 69 73 74 65 6e 74 20 68 65 61 64 65 72 20 | ime-banner..."Persistent.header. |
| 9cc60 | 6c 69 6e 65 20 61 6e 64 20 73 74 61 72 74 75 70 20 61 6e 69 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 | line.and.startup.animation."...( |
| 9cc80 | 3a 61 75 74 68 6f 72 73 20 22 48 65 6c 6d 75 74 20 45 6c 6c 65 72 20 3c 68 65 6c 6c 65 72 40 63 | :authors."Helmut.Eller.<heller@c |
| 9cca0 | 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 4c 75 | ommon-lisp.net>"............."Lu |
| 9ccc0 | 6b 65 20 47 6f 72 72 69 65 20 20 3c 6c 75 6b 65 40 73 79 6e 61 70 2e 73 65 3e 22 29 0a 20 20 28 | ke.Gorrie..<luke@synap.se>")...( |
| 9cce0 | 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 20 20 20 28 73 | :license."GPL")...(:on-load...(s |
| 9cd00 | 65 74 71 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 61 6e 6e 65 72 2d 66 75 6e 63 74 69 6f 6e 20 27 | etq.slime-repl-banner-function.' |
| 9cd20 | 73 6c 69 6d 65 2d 73 74 61 72 74 75 70 2d 6d 65 73 73 61 67 65 29 29 0a 20 20 28 3a 6f 6e 2d 75 | slime-startup-message))...(:on-u |
| 9cd40 | 6e 6c 6f 61 64 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 61 6e 6e 65 72 2d 66 75 | nload.(setq.slime-repl-banner-fu |
| 9cd60 | 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 65 72 74 2d 62 61 6e 6e 65 72 | nction.'slime-repl-insert-banner |
| 9cd80 | 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 73 74 61 72 74 75 70 2d 61 6e | )))..(defcustom.slime-startup-an |
| 9cda0 | 69 6d 61 74 69 6f 6e 20 28 66 62 6f 75 6e 64 70 20 27 61 6e 69 6d 61 74 65 2d 73 74 72 69 6e 67 | imation.(fboundp.'animate-string |
| 9cdc0 | 29 0a 20 20 20 22 45 6e 61 62 6c 65 20 74 68 65 20 73 74 61 72 74 75 70 20 61 6e 69 6d 61 74 69 | )...."Enable.the.startup.animati |
| 9cde0 | 6f 6e 2e 22 0a 20 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 3a 74 | on."....:type.'(choice.(const.:t |
| 9ce00 | 61 67 20 22 45 6e 61 62 6c 65 22 20 74 29 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 44 69 73 61 | ag."Enable".t).(const.:tag."Disa |
| 9ce20 | 62 6c 65 22 20 6e 69 6c 29 29 0a 20 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 75 69 29 0a | ble".nil))....:group.'slime-ui). |
| 9ce40 | 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 70 20 | .(defcustom.slime-header-line-p. |
| 9ce60 | 28 62 6f 75 6e 64 70 20 27 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 29 0a 20 20 22 | (boundp.'header-line-format)..." |
| 9ce80 | 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 69 73 70 6c 61 79 20 61 20 68 65 61 64 65 72 20 6c 69 6e | If.non-nil,.display.a.header.lin |
| 9cea0 | 65 20 69 6e 20 53 6c 69 6d 65 20 62 75 66 66 65 72 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f | e.in.Slime.buffers."...:type.'bo |
| 9cec0 | 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 0a 28 64 65 | olean...:group.'slime-repl)..(de |
| 9cee0 | 66 75 6e 20 73 6c 69 6d 65 2d 73 74 61 72 74 75 70 2d 6d 65 73 73 61 67 65 20 28 29 0a 20 20 28 | fun.slime-startup-message.()...( |
| 9cf00 | 77 68 65 6e 20 73 6c 69 6d 65 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 70 0a 20 20 20 20 28 73 65 | when.slime-header-line-p.....(se |
| 9cf20 | 74 71 20 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 20 0a 20 20 20 20 20 20 20 20 20 | tq.header-line-format........... |
| 9cf40 | 20 28 66 6f 72 6d 61 74 20 22 25 73 20 20 50 6f 72 74 3a 20 25 73 20 20 50 69 64 3a 20 25 73 22 | .(format."%s..Port:.%s..Pid:.%s" |
| 9cf60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 | ...................(slime-lisp-i |
| 9cf80 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | mplementation-type)............. |
| 9cfa0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 6f 72 74 20 28 73 6c | ......(slime-connection-port.(sl |
| 9cfc0 | 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ime-connection))................ |
| 9cfe0 | 20 20 20 28 73 6c 69 6d 65 2d 70 69 64 29 29 29 29 0a 20 20 28 77 68 65 6e 20 28 7a 65 72 6f 70 | ...(slime-pid))))...(when.(zerop |
| 9d000 | 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 77 65 6c 63 6f | .(buffer-size)).....(let.((welco |
| 9d020 | 6d 65 20 28 63 6f 6e 63 61 74 20 22 3b 20 53 4c 49 4d 45 20 22 20 73 6c 69 6d 65 2d 76 65 72 73 | me.(concat.";.SLIME.".slime-vers |
| 9d040 | 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 73 6c 69 6d 65 2d 73 74 61 72 74 75 70 2d 61 | ion))).......(if.slime-startup-a |
| 9d060 | 6e 69 6d 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 61 6e 69 6d 61 74 65 2d 73 74 72 69 | nimation...........(animate-stri |
| 9d080 | 6e 67 20 77 65 6c 63 6f 6d 65 20 30 20 30 29 20 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 | ng.welcome.0.0)..........(insert |
| 9d0a0 | 20 77 65 6c 63 6f 6d 65 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 62 | .welcome)))))..(provide.'slime-b |
| 9d0c0 | 61 6e 6e 65 72 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | anner).......................... |
| 9d0e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 66 61 6e 63 79 2d 69 | slime-2.31/contrib/swank-fancy-i |
| 9d220 | 6e 73 70 65 63 74 6f 72 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | nspector.lisp................... |
| 9d240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 9d280 | 30 31 32 35 31 33 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 37 37 31 00 20 30 00 00 00 | 0125132.00000000000.017771..0... |
| 9d2a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d2c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 9d320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 9d340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 9d400 | 3b 3b 3b 20 73 77 61 6e 6b 2d 66 61 6e 63 79 2d 69 6e 73 70 65 63 74 6f 72 2e 6c 69 73 70 20 2d | ;;;.swank-fancy-inspector.lisp.- |
| 9d420 | 2d 2d 20 46 61 6e 63 79 20 69 6e 73 70 65 63 74 6f 72 20 66 6f 72 20 43 4c 4f 53 20 6f 62 6a 65 | --.Fancy.inspector.for.CLOS.obje |
| 9d440 | 63 74 73 0a 3b 3b 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 4d 61 72 63 6f 20 42 61 72 69 6e 67 65 72 | cts.;;.;;.Author:.Marco.Baringer |
| 9d460 | 20 3c 6d 62 40 62 65 73 65 2e 69 74 3e 20 61 6e 64 20 6f 74 68 65 72 73 0a 3b 3b 20 4c 69 63 65 | .<mb@bese.it>.and.others.;;.Lice |
| 9d480 | 6e 73 65 3a 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 0a 3b 3b 0a 0a 28 69 6e 2d 70 61 63 6b 61 | nse:.Public.Domain.;;..(in-packa |
| 9d4a0 | 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 | ge.:swank)..(eval-when.(:compile |
| 9d4c0 | 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 | -toplevel.:load-toplevel.:execut |
| 9d4e0 | 65 29 0a 20 20 28 73 77 61 6e 6b 2d 72 65 71 75 69 72 65 20 3a 73 77 61 6e 6b 2d 75 74 69 6c 29 | e)...(swank-require.:swank-util) |
| 9d500 | 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 73 79 | )..(defmethod.emacs-inspect.((sy |
| 9d520 | 6d 62 6f 6c 20 73 79 6d 62 6f 6c 29 29 0a 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 20 28 | mbol.symbol))...(let.((package.( |
| 9d540 | 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 6d 75 | symbol-package.symbol))).....(mu |
| 9d560 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 5f 73 79 6d 62 6f 6c 20 73 74 61 74 75 | ltiple-value-bind.(_symbol.statu |
| 9d580 | 73 29 0a 20 20 20 20 20 20 20 20 28 61 6e 64 20 70 61 63 6b 61 67 65 20 28 66 69 6e 64 2d 73 79 | s).........(and.package.(find-sy |
| 9d5a0 | 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 20 70 61 63 6b 61 67 65 29 29 0a 20 | mbol.(string.symbol).package)).. |
| 9d5c0 | 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 5f 73 79 6d 62 6f 6c 29 29 0a | .....(declare.(ignore._symbol)). |
| 9d5e0 | 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c | ......(append.........(label-val |
| 9d600 | 75 65 2d 6c 69 6e 65 20 22 49 74 73 20 6e 61 6d 65 20 69 73 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 | ue-line."Its.name.is".(symbol-na |
| 9d620 | 6d 65 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 3b | me.symbol)).........;;.........; |
| 9d640 | 3b 20 56 61 6c 75 65 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 62 6f 75 6e 64 70 20 73 | ;.Value.........(cond.((boundp.s |
| 9d660 | 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 | ymbol)................(append... |
| 9d680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 | ..............(label-value-line. |
| 9d6a0 | 28 69 66 20 28 63 6f 6e 73 74 61 6e 74 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 | (if.(constantp.symbol).......... |
| 9d6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 49 74 | ............................."It |
| 9d6e0 | 20 69 73 20 61 20 63 6f 6e 73 74 61 6e 74 20 6f 66 20 76 61 6c 75 65 22 0a 20 20 20 20 20 20 20 | .is.a.constant.of.value"........ |
| 9d700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | ..............................." |
| 9d720 | 49 74 20 69 73 20 61 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 62 6f 75 6e 64 20 74 6f | It.is.a.global.variable.bound.to |
| 9d740 | 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ").............................. |
| 9d760 | 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 73 79 6d 62 6f 6c 29 20 3a 6e 65 77 6c | .....(symbol-value.symbol).:newl |
| 9d780 | 69 6e 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 75 6e 62 69 | ine.nil).................;;.unbi |
| 9d7a0 | 6e 64 69 6e 67 20 63 6f 6e 73 74 61 6e 74 73 20 6d 69 67 68 74 20 62 65 20 6e 6f 74 20 61 20 67 | nding.constants.might.be.not.a.g |
| 9d7c0 | 6f 6f 64 20 69 64 65 61 2c 20 62 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | ood.idea,.but.................;; |
| 9d7e0 | 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 75 73 75 61 6c 6c 79 20 70 72 6f 76 69 64 65 | .implementations.usually.provide |
| 9d800 | 20 61 20 72 65 73 74 61 72 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 20 | .a.restart..................`(". |
| 9d820 | 22 20 28 3a 61 63 74 69 6f 6e 20 22 5b 75 6e 62 69 6e 64 5d 22 0a 20 20 20 20 20 20 20 20 20 20 | ".(:action."[unbind]"........... |
| 9d840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 20 28 29 | .....................,(lambda.() |
| 9d860 | 20 28 6d 61 6b 75 6e 62 6f 75 6e 64 20 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 | .(makunbound.symbol))))......... |
| 9d880 | 20 20 20 20 20 20 20 20 27 28 28 3a 6e 65 77 6c 69 6e 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 | ........'((:newline))))......... |
| 9d8a0 | 20 20 20 20 20 20 28 74 20 27 28 22 49 74 20 69 73 20 75 6e 62 6f 75 6e 64 2e 22 20 28 3a 6e 65 | ......(t.'("It.is.unbound.".(:ne |
| 9d8c0 | 77 6c 69 6e 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 6f 63 73 74 72 69 6e 67 2d 69 73 70 | wline)))).........(docstring-isp |
| 9d8e0 | 65 63 20 22 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 22 20 73 79 6d 62 6f 6c 20 27 76 61 72 69 61 | ec."Documentation".symbol.'varia |
| 9d900 | 62 6c 65 29 0a 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e | ble).........(multiple-value-bin |
| 9d920 | 64 20 28 65 78 70 61 6e 73 69 6f 6e 20 64 65 66 69 6e 65 64 70 29 20 28 6d 61 63 72 6f 65 78 70 | d.(expansion.definedp).(macroexp |
| 9d940 | 61 6e 64 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 64 65 66 69 6e 65 | and.symbol)...........(if.define |
| 9d960 | 64 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 | dp...............(label-value-li |
| 9d980 | 6e 65 20 22 49 74 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 6d 61 63 72 6f 20 77 69 74 68 20 65 78 | ne."It.is.a.symbol.macro.with.ex |
| 9d9a0 | 70 61 6e 73 69 6f 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pansion"........................ |
| 9d9c0 | 20 20 20 20 20 20 20 20 20 65 78 70 61 6e 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b | .........expansion))).........;; |
| 9d9e0 | 0a 20 20 20 20 20 20 20 20 3b 3b 20 46 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 69 66 | .........;;.Function.........(if |
| 9da00 | 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | .(fboundp.symbol).............(a |
| 9da20 | 70 70 65 6e 64 20 28 69 66 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c | ppend.(if.(macro-function.symbol |
| 9da40 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 49 74 20 | ).........................`("It. |
| 9da60 | 69 73 20 61 20 6d 61 63 72 6f 20 77 69 74 68 20 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 3a 20 | is.a.macro.with.macro-function:. |
| 9da80 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 76 61 | "...........................(:va |
| 9daa0 | 6c 75 65 20 2c 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 29 0a 20 | lue.,(macro-function.symbol))).. |
| 9dac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 49 74 20 69 73 20 | .......................`("It.is. |
| 9dae0 | 61 20 66 75 6e 63 74 69 6f 6e 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | a.function:."................... |
| 9db00 | 20 20 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f | ........(:value.,(symbol-functio |
| 9db20 | 6e 20 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.symbol)))).................... |
| 9db40 | 20 60 28 22 20 22 20 28 3a 61 63 74 69 6f 6e 20 22 5b 75 6e 62 69 6e 64 5d 22 0a 20 20 20 20 20 | .`(".".(:action."[unbind]"...... |
| 9db60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 | ..............................,( |
| 9db80 | 6c 61 6d 62 64 61 20 28 29 20 28 66 6d 61 6b 75 6e 62 6f 75 6e 64 20 73 79 6d 62 6f 6c 29 29 29 | lambda.().(fmakunbound.symbol))) |
| 9dba0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 6e 65 77 6c 69 6e | ).....................`((:newlin |
| 9dbc0 | 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 49 74 20 68 61 73 20 6e 6f 20 66 75 | e))).............`("It.has.no.fu |
| 9dbe0 | 6e 63 74 69 6f 6e 20 76 61 6c 75 65 2e 22 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 | nction.value.".(:newline)))..... |
| 9dc00 | 20 20 20 20 28 64 6f 63 73 74 72 69 6e 67 2d 69 73 70 65 63 20 22 46 75 6e 63 74 69 6f 6e 20 64 | ....(docstring-ispec."Function.d |
| 9dc20 | 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 22 20 73 79 6d 62 6f 6c 20 27 66 75 6e 63 74 69 6f 6e 29 0a | ocumentation".symbol.'function). |
| 9dc40 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 | ........(when.(compiler-macro-fu |
| 9dc60 | 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 | nction.symbol).............(appe |
| 9dc80 | 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e | nd..............(label-value-lin |
| 9dca0 | 65 20 22 49 74 20 61 6c 73 6f 20 6e 61 6d 65 73 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6d 61 | e."It.also.names.the.compiler.ma |
| 9dcc0 | 63 72 6f 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cro"............................ |
| 9dce0 | 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d | ....(compiler-macro-function.sym |
| 9dd00 | 62 6f 6c 29 20 3a 6e 65 77 6c 69 6e 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | bol).:newline.nil).............. |
| 9dd20 | 60 28 22 20 22 20 28 3a 61 63 74 69 6f 6e 20 22 5b 72 65 6d 6f 76 65 5d 22 0a 20 20 20 20 20 20 | `(".".(:action."[remove]"....... |
| 9dd40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 20 28 | ......................,(lambda.( |
| 9dd60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 9dd80 | 20 28 73 65 74 66 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 | .(setf.(compiler-macro-function. |
| 9dda0 | 73 79 6d 62 6f 6c 29 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | symbol).nil))).................. |
| 9ddc0 | 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 6f 63 73 74 72 69 | ..(:newline)))).........(docstri |
| 9dde0 | 6e 67 2d 69 73 70 65 63 20 22 43 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 20 64 6f 63 75 6d 65 6e | ng-ispec."Compiler.macro.documen |
| 9de00 | 74 61 74 69 6f 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tation"......................... |
| 9de20 | 20 73 79 6d 62 6f 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 29 0a 20 20 20 20 20 20 20 | .symbol.'compiler-macro)........ |
| 9de40 | 20 3b 3b 0a 20 20 20 20 20 20 20 20 3b 3b 20 50 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 28 | .;;.........;;.Package.........( |
| 9de60 | 69 66 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 49 74 20 69 73 20 | if.package.............`("It.is. |
| 9de80 | 22 20 2c 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 28 73 74 72 69 6e 67 20 73 74 61 74 | ".,(string-downcase.(string.stat |
| 9dea0 | 75 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 74 6f | us))........................".to |
| 9dec0 | 20 74 68 65 20 70 61 63 6b 61 67 65 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .the.package:."................. |
| 9dee0 | 20 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 70 61 63 6b 61 67 65 20 2c 28 70 61 63 6b 61 67 | .......(:value.,package.,(packag |
| 9df00 | 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-name.package))................ |
| 9df20 | 20 20 20 20 20 20 20 20 2c 40 28 69 66 20 28 65 71 20 3a 69 6e 74 65 72 6e 61 6c 20 73 74 61 74 | ........,@(if.(eq.:internal.stat |
| 9df40 | 75 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | us)............................. |
| 9df60 | 20 60 28 22 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .`(".".......................... |
| 9df80 | 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 22 5b 65 78 70 6f 72 74 5d 22 0a 20 20 20 20 20 20 | ......(:action."[export]"....... |
| 9dfa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9dfc0 | 20 20 2c 28 6c 61 6d 62 64 61 20 28 29 20 28 65 78 70 6f 72 74 20 73 79 6d 62 6f 6c 20 70 61 63 | ..,(lambda.().(export.symbol.pac |
| 9dfe0 | 6b 61 67 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kage)))))....................... |
| 9e000 | 20 22 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 63 | ."."........................(:ac |
| 9e020 | 74 69 6f 6e 20 22 5b 75 6e 69 6e 74 65 72 6e 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion."[unintern]"............... |
| 9e040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 20 28 29 20 28 75 | ..................,(lambda.().(u |
| 9e060 | 6e 69 6e 74 65 72 6e 20 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 20 20 20 | nintern.symbol.package)))....... |
| 9e080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 | .................(:newline)).... |
| 9e0a0 | 20 20 20 20 20 20 20 20 20 27 28 22 49 74 20 69 73 20 61 20 6e 6f 6e 2d 69 6e 74 65 72 6e 65 64 | .........'("It.is.a.non-interned |
| 9e0c0 | 20 73 79 6d 62 6f 6c 2e 22 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 3b | .symbol.".(:newline))).........; |
| 9e0e0 | 3b 0a 20 20 20 20 20 20 20 20 3b 3b 20 50 6c 69 73 74 0a 20 20 20 20 20 20 20 20 28 6c 61 62 65 | ;.........;;.Plist.........(labe |
| 9e100 | 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 22 50 72 6f 70 65 72 74 79 20 6c 69 73 74 22 20 28 73 79 | l-value-line."Property.list".(sy |
| 9e120 | 6d 62 6f 6c 2d 70 6c 69 73 74 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 0a 20 | mbol-plist.symbol)).........;;.. |
| 9e140 | 20 20 20 20 20 20 20 3b 3b 20 43 6c 61 73 73 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 66 69 6e | .......;;.Class.........(if.(fin |
| 9e160 | 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | d-class.symbol.nil)............. |
| 9e180 | 60 28 22 49 74 20 6e 61 6d 65 73 20 74 68 65 20 63 6c 61 73 73 20 22 0a 20 20 20 20 20 20 20 20 | `("It.names.the.class."......... |
| 9e1a0 | 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f | ......(:value.,(find-class.symbo |
| 9e1c0 | 6c 29 20 2c 28 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | l).,(string.symbol))............ |
| 9e1e0 | 20 20 20 22 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 22 5b | ..."."...............(:action."[ |
| 9e200 | 72 65 6d 6f 76 65 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | remove]"........................ |
| 9e220 | 2c 28 6c 61 6d 62 64 61 20 28 29 20 28 73 65 74 66 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 | ,(lambda.().(setf.(find-class.sy |
| 9e240 | 6d 62 6f 6c 29 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 | mbol).nil)))...............(:new |
| 9e260 | 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 3b 3b 20 4d 6f | line))).........;;.........;;.Mo |
| 9e280 | 72 65 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 66 69 6e 64 2d 70 61 63 | re.package.........(if.(find-pac |
| 9e2a0 | 6b 61 67 65 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d | kage.symbol).............(label- |
| 9e2c0 | 76 61 6c 75 65 2d 6c 69 6e 65 20 22 49 74 20 6e 61 6d 65 73 20 74 68 65 20 70 61 63 6b 61 67 65 | value-line."It.names.the.package |
| 9e2e0 | 22 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 | ".(find-package.symbol)))....... |
| 9e300 | 20 20 28 69 6e 73 70 65 63 74 2d 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 20 73 79 6d 62 6f 6c | ..(inspect-type-specifier.symbol |
| 9e320 | 29 29 29 29 29 0a 0a 23 2d 73 62 63 6c 0a 28 64 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 74 79 70 | )))))..#-sbcl.(defun.inspect-typ |
| 9e340 | 65 2d 73 70 65 63 69 66 69 65 72 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 64 65 63 6c 61 72 65 20 | e-specifier.(symbol)...(declare. |
| 9e360 | 28 69 67 6e 6f 72 65 20 73 79 6d 62 6f 6c 29 29 29 0a 0a 23 2b 73 62 63 6c 0a 28 64 65 66 75 6e | (ignore.symbol)))..#+sbcl.(defun |
| 9e380 | 20 69 6e 73 70 65 63 74 2d 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 20 28 73 79 6d 62 6f 6c 29 | .inspect-type-specifier.(symbol) |
| 9e3a0 | 0a 20 20 28 6c 65 74 2a 20 28 28 6b 69 6e 64 20 28 73 62 2d 69 6e 74 3a 69 6e 66 6f 20 3a 74 79 | ...(let*.((kind.(sb-int:info.:ty |
| 9e3c0 | 70 65 20 3a 6b 69 6e 64 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 | pe.:kind.symbol))..........(fun. |
| 9e3e0 | 28 63 61 73 65 20 6b 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 64 65 66 | (case.kind.................(:def |
| 9e400 | 69 6e 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 73 62 2d 69 6e | ined..................(or.(sb-in |
| 9e420 | 74 3a 69 6e 66 6f 20 3a 74 79 70 65 20 3a 65 78 70 61 6e 64 65 72 20 73 79 6d 62 6f 6c 29 20 74 | t:info.:type.:expander.symbol).t |
| 9e440 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 70 72 69 6d 69 74 69 76 65 0a 20 | )).................(:primitive.. |
| 9e460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 23 2e 28 69 66 20 28 73 77 61 6e 6b | ................(or.#.(if.(swank |
| 9e480 | 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 76 65 72 73 69 6f 6e 3e 3d 20 31 20 33 20 31 29 0a 20 20 20 | /sbcl::sbcl-version>=.1.3.1).... |
| 9e4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 6c 65 74 20 28 28 | ........................'(let.(( |
| 9e4c0 | 78 20 28 73 62 2d 69 6e 74 3a 69 6e 66 6f 20 3a 74 79 70 65 20 3a 65 78 70 61 6e 64 65 72 20 73 | x.(sb-int:info.:type.:expander.s |
| 9e4e0 | 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ymbol)))........................ |
| 9e500 | 20 20 20 20 20 20 28 69 66 20 28 63 6f 6e 73 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(if.(consp.x)............. |
| 9e520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 78 29 0a 20 20 20 | .....................(car.x).... |
| 9e540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 29 | ..............................x) |
| 9e560 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 73 | )............................'(s |
| 9e580 | 62 2d 69 6e 74 3a 69 6e 66 6f 20 3a 74 79 70 65 20 3a 74 72 61 6e 73 6c 61 74 6f 72 20 73 79 6d | b-int:info.:type.:translator.sym |
| 9e5a0 | 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 29 | bol))......................t)))) |
| 9e5c0 | 29 0a 20 20 20 20 28 77 68 65 6e 20 66 75 6e 0a 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 | ).....(when.fun.......(append... |
| 9e5e0 | 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 | .....(list.........(format.nil." |
| 9e600 | 49 74 20 6e 61 6d 65 73 20 61 20 7e 40 5b 70 72 69 6d 69 74 69 76 65 7e 2a 20 7e 5d 74 79 70 65 | It.names.a.~@[primitive~*.~]type |
| 9e620 | 2d 73 70 65 63 69 66 69 65 72 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 | -specifier.".................(eq |
| 9e640 | 20 6b 69 6e 64 20 3a 70 72 69 6d 69 74 69 76 65 29 29 0a 20 20 20 20 20 20 20 20 27 28 3a 6e 65 | .kind.:primitive)).........'(:ne |
| 9e660 | 77 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 28 64 6f 63 73 74 72 69 6e 67 2d 69 73 70 65 63 20 | wline))........(docstring-ispec. |
| 9e680 | 22 54 79 70 65 2d 73 70 65 63 69 66 69 65 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 22 20 73 | "Type-specifier.documentation".s |
| 9e6a0 | 79 6d 62 6f 6c 20 27 74 79 70 65 29 0a 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 | ymbol.'type)........(unless.(eq. |
| 9e6c0 | 74 20 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 6c 69 73 74 20 28 | t.fun)..........(let.((arglist.( |
| 9e6e0 | 61 72 67 6c 69 73 74 20 66 75 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e | arglist.fun)))............(appen |
| 9e700 | 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 54 79 70 65 2d 73 70 65 63 69 66 69 65 72 20 | d.............`("Type-specifier. |
| 9e720 | 6c 61 6d 62 64 61 2d 6c 69 73 74 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | lambda-list:."...............;;. |
| 9e740 | 43 6f 75 6c 64 20 75 73 65 20 7e 3a 73 2c 20 62 75 74 20 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 | Could.use.~:s,.but.inspector-pri |
| 9e760 | 6e 63 20 64 6f 65 73 20 61 20 62 69 74 20 6d 6f 72 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nc.does.a.bit.more,............. |
| 9e780 | 20 20 3b 3b 20 61 6e 64 20 6e 6f 74 20 61 6c 6c 20 4e 49 4c 73 20 69 6e 20 74 68 65 20 61 72 67 | ..;;.and.not.all.NILs.in.the.arg |
| 9e7a0 | 6c 69 73 74 20 73 68 6f 75 6c 64 20 62 65 20 70 72 69 6e 74 65 64 20 74 68 61 74 20 77 61 79 2e | list.should.be.printed.that.way. |
| 9e7c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 69 66 20 61 72 67 6c 69 73 74 0a 20 20 20 20 | ...............,(if.arglist..... |
| 9e7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 63 20 | ...............(inspector-princ. |
| 9e800 | 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 29 22 | arglist)...................."()" |
| 9e820 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 20 | )...............(:newline))..... |
| 9e840 | 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 65 78 | ........(multiple-value-bind.(ex |
| 9e860 | 70 61 6e 73 69 6f 6e 20 6f 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e | pansion.ok).................(han |
| 9e880 | 64 6c 65 72 2d 63 61 73 65 20 28 73 62 2d 65 78 74 3a 74 79 70 65 78 70 61 6e 64 2d 31 20 73 79 | dler-case.(sb-ext:typexpand-1.sy |
| 9e8a0 | 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 | mbol)...................(error.( |
| 9e8c0 | 29 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ).(values.nil.nil)))............ |
| 9e8e0 | 20 20 20 28 77 68 65 6e 20 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | ...(when.ok.................(lis |
| 9e900 | 74 20 22 54 79 70 65 2d 73 70 65 63 69 66 69 65 72 20 65 78 70 61 6e 73 69 6f 6e 3a 20 22 0a 20 | t."Type-specifier.expansion:.".. |
| 9e920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 63 2d 74 6f 2d 73 | .....................(princ-to-s |
| 9e940 | 74 72 69 6e 67 20 65 78 70 61 6e 73 69 6f 6e 29 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 | tring.expansion)))))))))))..(def |
| 9e960 | 75 6e 20 64 6f 63 73 74 72 69 6e 67 2d 69 73 70 65 63 20 28 6c 61 62 65 6c 20 6f 62 6a 65 63 74 | un.docstring-ispec.(label.object |
| 9e980 | 20 6b 69 6e 64 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 69 6e 73 70 65 63 74 6f 72 20 73 70 65 | .kind)..."Return.a.inspector.spe |
| 9e9a0 | 63 20 69 66 20 4f 42 4a 45 43 54 20 68 61 73 20 61 20 64 6f 63 73 74 72 69 6e 67 20 6f 66 20 6b | c.if.OBJECT.has.a.docstring.of.k |
| 9e9c0 | 69 6e 64 20 4b 49 4e 44 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 6f 63 73 74 72 69 6e 67 20 28 64 | ind.KIND."...(let.((docstring.(d |
| 9e9e0 | 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 62 6a 65 63 74 20 6b 69 6e 64 29 29 29 0a 20 20 20 20 | ocumentation.object.kind)))..... |
| 9ea00 | 28 63 6f 6e 64 20 28 28 6e 6f 74 20 64 6f 63 73 74 72 69 6e 67 29 20 6e 69 6c 29 0a 20 20 20 20 | (cond.((not.docstring).nil)..... |
| 9ea20 | 20 20 20 20 20 20 28 28 3c 20 28 2b 20 28 6c 65 6e 67 74 68 20 6c 61 62 65 6c 29 20 28 6c 65 6e | ......((<.(+.(length.label).(len |
| 9ea40 | 67 74 68 20 64 6f 63 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 35 | gth.docstring))...............75 |
| 9ea60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6c 61 62 65 6c 20 22 3a 20 22 20 64 6f | )............(list.label.":.".do |
| 9ea80 | 63 73 74 72 69 6e 67 20 27 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | cstring.'(:newline)))........... |
| 9eaa0 | 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6c 61 62 65 6c 20 22 3a 22 20 27 28 | (t............(list.label.":".'( |
| 9eac0 | 3a 6e 65 77 6c 69 6e 65 29 20 22 20 20 22 20 64 6f 63 73 74 72 69 6e 67 20 27 28 3a 6e 65 77 6c | :newline)."..".docstring.'(:newl |
| 9eae0 | 69 6e 65 29 29 29 29 29 29 0a 0a 28 75 6e 6c 65 73 73 20 28 66 69 6e 64 2d 6d 65 74 68 6f 64 20 | ine))))))..(unless.(find-method. |
| 9eb00 | 23 27 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 27 28 29 20 28 6c 69 73 74 20 28 66 69 6e 64 2d | #'emacs-inspect.'().(list.(find- |
| 9eb20 | 63 6c 61 73 73 20 27 66 75 6e 63 74 69 6f 6e 29 29 20 6e 69 6c 29 0a 20 20 28 64 65 66 6d 65 74 | class.'function)).nil)...(defmet |
| 9eb40 | 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 66 20 66 75 6e 63 74 69 6f 6e 29 29 | hod.emacs-inspect.((f.function)) |
| 9eb60 | 0a 20 20 20 20 28 69 6e 73 70 65 63 74 2d 66 75 6e 63 74 69 6f 6e 20 66 29 29 29 0a 0a 28 64 65 | .....(inspect-function.f)))..(de |
| 9eb80 | 66 75 6e 20 69 6e 73 70 65 63 74 2d 66 75 6e 63 74 69 6f 6e 20 28 66 29 0a 20 20 28 61 70 70 65 | fun.inspect-function.(f)...(appe |
| 9eba0 | 6e 64 0a 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 22 4e 61 6d 65 22 20 28 | nd....(label-value-line."Name".( |
| 9ebc0 | 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 29 0a 20 20 20 60 28 22 49 74 73 20 61 72 67 75 | function-name.f))....`("Its.argu |
| 9ebe0 | 6d 65 6e 74 20 6c 69 73 74 20 69 73 3a 20 22 0a 20 20 20 20 20 2c 28 69 6e 73 70 65 63 74 6f 72 | ment.list.is:."......,(inspector |
| 9ec00 | 2d 70 72 69 6e 63 20 28 61 72 67 6c 69 73 74 20 66 29 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a | -princ.(arglist.f)).(:newline)). |
| 9ec20 | 20 20 20 28 64 6f 63 73 74 72 69 6e 67 2d 69 73 70 65 63 20 22 44 6f 63 75 6d 65 6e 74 61 74 69 | ...(docstring-ispec."Documentati |
| 9ec40 | 6f 6e 22 20 66 20 74 29 0a 20 20 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 | on".f.t)....(if.(function-lambda |
| 9ec60 | 2d 65 78 70 72 65 73 73 69 6f 6e 20 66 29 0a 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c | -expression.f)........(label-val |
| 9ec80 | 75 65 2d 6c 69 6e 65 20 22 4c 61 6d 62 64 61 20 45 78 70 72 65 73 73 69 6f 6e 22 0a 20 20 20 20 | ue-line."Lambda.Expression"..... |
| 9eca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c | .....................(function-l |
| 9ecc0 | 61 6d 62 64 61 2d 65 78 70 72 65 73 73 69 6f 6e 20 66 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ambda-expression.f)))))..(defun. |
| 9ece0 | 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 2d 66 6f 72 2d 69 6e 73 70 65 63 74 20 | method-specializers-for-inspect. |
| 9ed00 | 28 6d 65 74 68 6f 64 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 5c 22 70 72 65 74 74 79 5c 22 20 | (method)..."Return.a.\"pretty\". |
| 9ed20 | 6c 69 73 74 20 6f 66 20 74 68 65 20 6d 65 74 68 6f 64 27 73 20 73 70 65 63 69 61 6c 69 7a 65 72 | list.of.the.method's.specializer |
| 9ed40 | 73 2e 20 4e 6f 72 6d 61 6c 0a 20 20 73 70 65 63 69 61 6c 69 7a 65 72 73 20 61 72 65 20 72 65 70 | s..Normal...specializers.are.rep |
| 9ed60 | 6c 61 63 65 64 20 62 79 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 63 6c 61 73 73 2c 20 | laced.by.the.name.of.the.class,. |
| 9ed80 | 65 71 6c 0a 20 20 73 70 65 63 69 61 6c 69 7a 65 72 73 20 61 72 65 20 72 65 70 6c 61 63 65 64 20 | eql...specializers.are.replaced. |
| 9eda0 | 62 79 20 60 28 65 71 6c 20 2c 6f 62 6a 65 63 74 29 2e 22 0a 20 20 28 6d 61 70 63 61 72 20 28 6c | by.`(eql.,object)."...(mapcar.(l |
| 9edc0 | 61 6d 62 64 61 20 28 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 | ambda.(spec).............(typeca |
| 9ede0 | 73 65 20 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 | se.spec...............(swank-mop |
| 9ee00 | 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :eql-specializer................ |
| 9ee20 | 60 28 65 71 6c 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 | `(eql.,(swank-mop:eql-specialize |
| 9ee40 | 72 2d 6f 62 6a 65 63 74 20 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 | r-object.spec)))...............# |
| 9ee60 | 2d 73 62 63 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 | -sbcl...............(t.......... |
| 9ee80 | 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 6e 61 6d 65 20 73 70 65 63 | ......(swank-mop:class-name.spec |
| 9eea0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 73 62 63 6c 0a 20 20 20 20 20 20 20 20 | ))...............#+sbcl......... |
| 9eec0 | 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 42 43 4c 20 | ......(t................;;.SBCL. |
| 9eee0 | 68 61 73 20 65 78 74 65 6e 64 65 64 20 73 70 65 63 69 61 6c 69 7a 65 72 73 0a 20 20 20 20 20 20 | has.extended.specializers....... |
| 9ef00 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 67 66 20 28 73 62 2d 6d 6f 70 3a 6d 65 74 68 6f | .........(let.((gf.(sb-mop:metho |
| 9ef20 | 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 | d-generic-function.method))).... |
| 9ef40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 67 66 0a 20 20 20 20 20 20 20 20 | ..............(cond.(gf......... |
| 9ef60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 70 63 6c 3a 75 6e 70 61 72 73 65 2d | ................(sb-pcl:unparse- |
| 9ef80 | 73 70 65 63 69 61 6c 69 7a 65 72 2d 75 73 69 6e 67 2d 63 6c 61 73 73 20 67 66 20 73 70 65 63 29 | specializer-using-class.gf.spec) |
| 9efa0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 74 79 70 65 70 | )........................((typep |
| 9efc0 | 20 73 70 65 63 20 27 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .spec.'class)................... |
| 9efe0 | 20 20 20 20 20 20 28 63 6c 61 73 73 2d 6e 61 6d 65 20 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 | ......(class-name.spec))........ |
| 9f000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................(t.............. |
| 9f020 | 20 20 20 20 20 20 20 20 20 20 20 73 70 65 63 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ...........spec))))))........... |
| 9f040 | 28 73 77 61 6e 6b 2d 6d 6f 70 3a 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 20 6d | (swank-mop:method-specializers.m |
| 9f060 | 65 74 68 6f 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 74 68 6f 64 2d 66 6f 72 2d 69 6e 73 70 | ethod)))..(defun.method-for-insp |
| 9f080 | 65 63 74 2d 76 61 6c 75 65 20 28 6d 65 74 68 6f 64 29 0a 20 20 22 52 65 74 75 72 6e 73 20 61 20 | ect-value.(method)..."Returns.a. |
| 9f0a0 | 5c 22 70 72 65 74 74 79 5c 22 20 6c 69 73 74 20 64 65 73 63 72 69 62 69 6e 67 20 4d 45 54 48 4f | \"pretty\".list.describing.METHO |
| 9f0c0 | 44 2e 20 54 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 0a 20 20 6f 66 20 74 68 65 20 6c 69 | D..The.first.element...of.the.li |
| 9f0e0 | 73 74 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 | st.is.the.name.of.generic-functi |
| 9f100 | 6f 6e 20 6d 65 74 68 6f 64 20 69 73 0a 20 20 73 70 65 63 69 61 6c 69 61 7a 65 64 20 6f 6e 2c 20 | on.method.is...specialiazed.on,. |
| 9f120 | 74 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 69 73 20 74 68 65 20 6d 65 74 68 6f 64 | the.second.element.is.the.method |
| 9f140 | 20 71 75 61 6c 69 66 69 65 72 73 2c 0a 20 20 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 65 20 6c | .qualifiers,...the.rest.of.the.l |
| 9f160 | 69 73 74 20 69 73 20 74 68 65 20 6d 65 74 68 6f 64 27 73 20 73 70 65 63 69 61 6c 69 61 7a 65 72 | ist.is.the.method's.specialiazer |
| 9f180 | 73 20 28 61 73 20 70 65 72 0a 20 20 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 2d | s.(as.per...method-specializers- |
| 9f1a0 | 66 6f 72 2d 69 6e 73 70 65 63 74 29 2e 22 0a 20 20 28 61 70 70 65 6e 64 20 28 6c 69 73 74 20 28 | for-inspect)."...(append.(list.( |
| 9f1c0 | 73 77 61 6e 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 0a | swank-mop:generic-function-name. |
| 9f1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 6d 65 74 68 | .................(swank-mop:meth |
| 9f200 | 6f 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 29 0a 20 20 | od-generic-function.method)))... |
| 9f220 | 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 6d 65 74 68 6f 64 2d 71 75 61 6c 69 66 | ........(swank-mop:method-qualif |
| 9f240 | 69 65 72 73 20 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 65 74 68 6f 64 2d 73 | iers.method)...........(method-s |
| 9f260 | 70 65 63 69 61 6c 69 7a 65 72 73 2d 66 6f 72 2d 69 6e 73 70 65 63 74 20 6d 65 74 68 6f 64 29 29 | pecializers-for-inspect.method)) |
| 9f280 | 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 62 | )..(defmethod.emacs-inspect.((ob |
| 9f2a0 | 6a 65 63 74 20 73 74 61 6e 64 61 72 64 2d 6f 62 6a 65 63 74 29 29 0a 20 20 28 6c 65 74 20 28 28 | ject.standard-object))...(let.(( |
| 9f2c0 | 63 6c 61 73 73 20 28 63 6c 61 73 73 2d 6f 66 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 20 20 | class.(class-of.object)))....... |
| 9f2e0 | 20 20 20 20 20 20 60 28 22 43 6c 61 73 73 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 63 6c 61 73 73 | ......`("Class:.".(:value.,class |
| 9f300 | 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 61 6c | ).(:newline)...............,@(al |
| 9f320 | 6c 2d 73 6c 6f 74 73 2d 66 6f 72 2d 69 6e 73 70 65 63 74 6f 72 20 6f 62 6a 65 63 74 29 29 29 29 | l-slots-for-inspector.object)))) |
| 9f340 | 0a 0a 28 64 65 66 76 61 72 20 2a 67 66 2d 6d 65 74 68 6f 64 2d 67 65 74 74 65 72 2a 20 27 6d 65 | ..(defvar.*gf-method-getter*.'me |
| 9f360 | 74 68 6f 64 73 2d 62 79 2d 61 70 70 6c 69 63 61 62 69 6c 69 74 79 0a 20 20 22 54 68 69 73 20 66 | thods-by-applicability..."This.f |
| 9f380 | 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 74 6f 20 67 65 74 20 74 68 65 20 6d 65 74 | unction.is.called.to.get.the.met |
| 9f3a0 | 68 6f 64 73 20 6f 66 20 61 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 2e 0a 54 68 65 20 | hods.of.a.generic.function..The. |
| 9f3c0 | 64 65 66 61 75 6c 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 6d 65 74 68 6f 64 20 73 6f 72 74 65 | default.returns.the.method.sorte |
| 9f3e0 | 64 20 62 79 20 61 70 70 6c 69 63 61 62 69 6c 69 74 79 2e 0a 53 65 65 20 60 6d 65 74 68 6f 64 73 | d.by.applicability..See.`methods |
| 9f400 | 2d 62 79 2d 61 70 70 6c 69 63 61 62 69 6c 69 74 79 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 70 | -by-applicability'.")..(defun.sp |
| 9f420 | 65 63 69 61 6c 69 7a 65 72 3c 20 28 73 70 65 63 69 61 6c 69 7a 65 72 31 20 73 70 65 63 69 61 6c | ecializer<.(specializer1.special |
| 9f440 | 69 7a 65 72 32 29 0a 20 20 22 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 53 50 45 43 49 41 4c | izer2)..."Return.true.if.SPECIAL |
| 9f460 | 49 5a 45 52 31 20 69 73 20 6d 6f 72 65 20 73 70 65 63 69 66 69 63 20 74 68 61 6e 20 53 50 45 43 | IZER1.is.more.specific.than.SPEC |
| 9f480 | 49 41 4c 49 5a 45 52 32 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 31 20 73 70 65 63 69 61 6c 69 7a | IALIZER2."...(let.((s1.specializ |
| 9f4a0 | 65 72 31 29 20 28 73 32 20 73 70 65 63 69 61 6c 69 7a 65 72 32 29 20 29 0a 20 20 20 20 28 63 6f | er1).(s2.specializer2).).....(co |
| 9f4c0 | 6e 64 20 28 28 74 79 70 65 70 20 73 31 20 27 73 77 61 6e 6b 2d 6d 6f 70 3a 65 71 6c 2d 73 70 65 | nd.((typep.s1.'swank-mop:eql-spe |
| 9f4e0 | 63 69 61 6c 69 7a 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 74 79 70 65 70 | cializer)............(not.(typep |
| 9f500 | 20 73 32 20 27 73 77 61 6e 6b 2d 6d 6f 70 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 29 29 | .s2.'swank-mop:eql-specializer)) |
| 9f520 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 74 79 70 65 70 20 73 31 20 27 63 6c 61 73 73 29 0a 20 | )...........((typep.s1.'class).. |
| 9f540 | 20 20 20 20 20 20 20 20 20 20 28 66 6c 65 74 20 28 28 63 70 6c 20 28 63 6c 61 73 73 29 0a 20 20 | ..........(flet.((cpl.(class)... |
| 9f560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 77 61 6e 6b 2d 6d 6f | ..................(and.(swank-mo |
| 9f580 | 70 3a 63 6c 61 73 73 2d 66 69 6e 61 6c 69 7a 65 64 2d 70 20 63 6c 61 73 73 29 0a 20 20 20 20 20 | p:class-finalized-p.class)...... |
| 9f5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 | ....................(swank-mop:c |
| 9f5c0 | 6c 61 73 73 2d 70 72 65 63 65 64 65 6e 63 65 2d 6c 69 73 74 20 63 6c 61 73 73 29 29 29 29 0a 20 | lass-precedence-list.class)))).. |
| 9f5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 73 32 20 28 63 70 6c 20 73 31 29 29 | ............(member.s2.(cpl.s1)) |
| 9f600 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 74 68 6f 64 73 2d 62 79 2d 61 70 70 6c 69 63 61 | )))))..(defun.methods-by-applica |
| 9f620 | 62 69 6c 69 74 79 20 28 67 66 29 0a 20 20 22 52 65 74 75 72 6e 20 6d 65 74 68 6f 64 73 20 6f 72 | bility.(gf)..."Return.methods.or |
| 9f640 | 64 65 72 65 64 20 62 79 20 6d 6f 73 74 20 73 70 65 63 69 66 69 63 20 61 72 67 75 6d 65 6e 74 20 | dered.by.most.specific.argument. |
| 9f660 | 74 79 70 65 73 2e 0a 0a 60 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 3c 27 20 69 73 | types...`method-specializer<'.is |
| 9f680 | 20 75 73 65 64 20 66 6f 72 20 73 6f 72 74 69 6e 67 2e 22 0a 20 20 3b 3b 20 46 49 58 4d 45 3a 20 | .used.for.sorting."...;;.FIXME:. |
| 9f6a0 | 61 72 67 75 6d 65 6e 74 2d 70 72 65 63 65 64 65 6e 63 65 2d 6f 72 64 65 72 20 61 6e 64 20 71 75 | argument-precedence-order.and.qu |
| 9f6c0 | 61 6c 69 66 69 65 72 73 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a 20 20 28 6c 61 62 65 6c 73 20 | alifiers.are.ignored....(labels. |
| 9f6e0 | 28 28 6d 65 74 68 6f 64 3c 20 28 6d 65 74 68 31 20 6d 65 74 68 32 29 0a 20 20 20 20 20 20 20 20 | ((method<.(meth1.meth2)......... |
| 9f700 | 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 31 20 69 6e 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a | .....(loop.for.s1.in.(swank-mop: |
| 9f720 | 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 20 6d 65 74 68 31 29 0a 20 20 20 20 20 | method-specializers.meth1)...... |
| 9f740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 73 32 20 69 6e 20 28 73 77 61 6e 6b 2d 6d | ..............for.s2.in.(swank-m |
| 9f760 | 6f 70 3a 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 20 6d 65 74 68 32 29 0a 20 20 | op:method-specializers.meth2)... |
| 9f780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 63 6f 6e 64 20 28 28 73 70 65 63 | .................do.(cond.((spec |
| 9f7a0 | 69 61 6c 69 7a 65 72 3c 20 73 32 20 73 31 29 20 28 72 65 74 75 72 6e 20 6e 69 6c 29 29 0a 20 20 | ializer<.s2.s1).(return.nil))... |
| 9f7c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 70 65 63 | ..........................((spec |
| 9f7e0 | 69 61 6c 69 7a 65 72 3c 20 73 31 20 73 32 29 20 28 72 65 74 75 72 6e 20 74 29 29 29 29 29 29 0a | ializer<.s1.s2).(return.t)))))). |
| 9f800 | 20 20 20 20 28 73 74 61 62 6c 65 2d 73 6f 72 74 20 28 63 6f 70 79 2d 73 65 71 20 28 73 77 61 6e | ....(stable-sort.(copy-seq.(swan |
| 9f820 | 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 73 20 67 | k-mop:generic-function-methods.g |
| 9f840 | 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 6d 65 74 68 6f 64 3c 29 29 | f))..................#'method<)) |
| 9f860 | 29 0a 0a 28 64 65 66 75 6e 20 61 62 62 72 65 76 2d 64 6f 63 20 28 64 6f 63 20 26 6f 70 74 69 6f | )..(defun.abbrev-doc.(doc.&optio |
| 9f880 | 6e 61 6c 20 28 6d 61 78 6c 65 6e 20 38 30 29 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 | nal.(maxlen.80))..."Return.the.f |
| 9f8a0 | 69 72 73 74 20 73 65 6e 74 65 6e 63 65 20 6f 66 20 44 4f 43 2c 20 62 75 74 20 6e 6f 74 20 6d 6f | irst.sentence.of.DOC,.but.not.mo |
| 9f8c0 | 72 65 20 74 68 61 6e 20 4d 41 58 4c 41 4e 20 63 68 61 72 61 63 74 65 72 73 2e 22 0a 20 20 28 73 | re.than.MAXLAN.characters."...(s |
| 9f8e0 | 75 62 73 65 71 20 64 6f 63 20 30 20 28 6d 69 6e 20 28 31 2b 20 28 6f 72 20 28 70 6f 73 69 74 69 | ubseq.doc.0.(min.(1+.(or.(positi |
| 9f900 | 6f 6e 20 23 5c 2e 20 64 6f 63 29 20 28 31 2d 20 6d 61 78 6c 65 6e 29 29 29 0a 20 20 20 20 20 20 | on.#\..doc).(1-.maxlen)))....... |
| 9f920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 6c 65 6e 0a 20 20 20 20 20 20 20 20 20 20 | ...............maxlen........... |
| 9f940 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 64 6f 63 29 29 29 29 0a 0a 28 64 65 66 | ...........(length.doc))))..(def |
| 9f960 | 73 74 72 75 63 74 20 28 69 6e 73 70 65 63 74 6f 72 2d 63 68 65 63 6b 6c 69 73 74 20 28 3a 63 6f | struct.(inspector-checklist.(:co |
| 9f980 | 6e 63 2d 6e 61 6d 65 20 63 68 65 63 6b 6c 69 73 74 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nc-name.checklist.)............. |
| 9f9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 | .....................(:construct |
| 9f9c0 | 6f 72 20 25 6d 61 6b 65 2d 63 68 65 63 6b 6c 69 73 74 20 28 62 75 74 74 6f 6e 73 29 29 29 0a 20 | or.%make-checklist.(buttons))).. |
| 9f9e0 | 20 28 62 75 74 74 6f 6e 73 20 6e 69 6c 20 3a 74 79 70 65 20 28 6f 72 20 6e 75 6c 6c 20 73 69 6d | .(buttons.nil.:type.(or.null.sim |
| 9fa00 | 70 6c 65 2d 76 65 63 74 6f 72 29 29 0a 20 20 28 63 6f 75 6e 74 20 20 20 30 29 29 0a 0a 28 64 65 | ple-vector))...(count...0))..(de |
| 9fa20 | 66 75 6e 20 6d 61 6b 65 2d 63 68 65 63 6b 6c 69 73 74 20 28 6e 29 0a 20 20 28 25 6d 61 6b 65 2d | fun.make-checklist.(n)...(%make- |
| 9fa40 | 63 68 65 63 6b 6c 69 73 74 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 6e 20 3a 69 6e 69 74 69 61 6c | checklist.(make-array.n.:initial |
| 9fa60 | 2d 65 6c 65 6d 65 6e 74 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 69 6e 69 74 69 61 | -element.nil)))..(defun.reinitia |
| 9fa80 | 6c 69 7a 65 2d 63 68 65 63 6b 6c 69 73 74 20 28 63 68 65 63 6b 6c 69 73 74 29 0a 20 20 3b 3b 20 | lize-checklist.(checklist)...;;. |
| 9faa0 | 41 6c 6f 6e 67 20 74 68 69 73 20 63 6f 75 6e 74 65 72 20 74 68 65 20 62 75 74 74 6f 6e 73 20 61 | Along.this.counter.the.buttons.a |
| 9fac0 | 72 65 20 63 72 65 61 74 65 64 2c 20 73 6f 20 77 65 20 68 61 76 65 20 74 6f 0a 20 20 3b 3b 20 69 | re.created,.so.we.have.to...;;.i |
| 9fae0 | 6e 69 74 69 61 6c 69 7a 65 20 69 74 20 74 6f 20 30 20 65 76 65 72 79 74 69 6d 65 20 74 68 65 20 | nitialize.it.to.0.everytime.the. |
| 9fb00 | 69 6e 73 70 65 63 74 6f 72 20 70 61 67 65 20 69 73 20 72 65 64 69 73 70 6c 61 79 65 64 2e 0a 20 | inspector.page.is.redisplayed... |
| 9fb20 | 20 28 73 65 74 66 20 28 63 68 65 63 6b 6c 69 73 74 2e 63 6f 75 6e 74 20 63 68 65 63 6b 6c 69 73 | .(setf.(checklist.count.checklis |
| 9fb40 | 74 29 20 30 29 0a 20 20 63 68 65 63 6b 6c 69 73 74 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d | t).0)...checklist)..(defun.make- |
| 9fb60 | 63 68 65 63 6b 6c 69 73 74 2d 62 75 74 74 6f 6e 20 28 63 68 65 63 6b 6c 69 73 74 29 0a 20 20 28 | checklist-button.(checklist)...( |
| 9fb80 | 6c 65 74 20 28 28 62 75 74 74 6f 6e 73 20 28 63 68 65 63 6b 6c 69 73 74 2e 62 75 74 74 6f 6e 73 | let.((buttons.(checklist.buttons |
| 9fba0 | 20 63 68 65 63 6b 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 28 69 20 28 63 68 65 63 6b 6c 69 | .checklist)).........(i.(checkli |
| 9fbc0 | 73 74 2e 63 6f 75 6e 74 20 63 68 65 63 6b 6c 69 73 74 29 29 29 0a 20 20 20 20 28 69 6e 63 66 20 | st.count.checklist))).....(incf. |
| 9fbe0 | 28 63 68 65 63 6b 6c 69 73 74 2e 63 6f 75 6e 74 20 63 68 65 63 6b 6c 69 73 74 29 29 0a 20 20 20 | (checklist.count.checklist)).... |
| 9fc00 | 20 60 28 3a 61 63 74 69 6f 6e 20 2c 28 69 66 20 28 73 76 72 65 66 20 62 75 74 74 6f 6e 73 20 69 | .`(:action.,(if.(svref.buttons.i |
| 9fc20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5b 58 5d 22 0a 20 20 20 20 20 | )...................."[X]"...... |
| 9fc40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5b 20 5d 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .............."[.]")............ |
| 9fc60 | 20 20 20 2c 23 27 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...,#'(lambda.()................ |
| 9fc80 | 20 20 20 20 28 73 65 74 66 20 28 73 76 72 65 66 20 62 75 74 74 6f 6e 73 20 69 29 20 28 6e 6f 74 | ....(setf.(svref.buttons.i).(not |
| 9fca0 | 20 28 73 76 72 65 66 20 62 75 74 74 6f 6e 73 20 69 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .(svref.buttons.i))))........... |
| 9fcc0 | 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 74 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 6f | ....:refreshp.t)))..(defmacro.do |
| 9fce0 | 2d 63 68 65 63 6b 6c 69 73 74 20 28 28 69 64 78 20 63 68 65 63 6b 6c 69 73 74 29 20 26 62 6f 64 | -checklist.((idx.checklist).&bod |
| 9fd00 | 79 20 62 6f 64 79 29 0a 20 20 22 49 74 65 72 61 74 65 20 6f 76 65 72 20 61 6c 6c 20 73 65 74 20 | y.body)..."Iterate.over.all.set. |
| 9fd20 | 62 75 74 74 6f 6e 73 20 69 6e 20 43 48 45 43 4b 4c 49 53 54 2e 22 0a 20 20 28 6c 65 74 20 28 28 | buttons.in.CHECKLIST."...(let.(( |
| 9fd40 | 62 75 74 74 6f 6e 73 20 28 67 65 6e 73 79 6d 20 22 62 75 74 74 6f 6e 73 22 29 29 29 0a 20 20 20 | buttons.(gensym."buttons"))).... |
| 9fd60 | 20 60 28 6c 65 74 20 28 28 2c 62 75 74 74 6f 6e 73 20 28 63 68 65 63 6b 6c 69 73 74 2e 62 75 74 | .`(let.((,buttons.(checklist.but |
| 9fd80 | 74 6f 6e 73 20 2c 63 68 65 63 6b 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 28 64 6f 74 69 6d | tons.,checklist)))........(dotim |
| 9fda0 | 65 73 20 28 2c 69 64 78 20 28 6c 65 6e 67 74 68 20 2c 62 75 74 74 6f 6e 73 29 29 0a 20 20 20 20 | es.(,idx.(length.,buttons))..... |
| 9fdc0 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 76 72 65 66 20 2c 62 75 74 74 6f 6e 73 20 2c 69 64 78 | ......(when.(svref.,buttons.,idx |
| 9fde0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 29 29 29 29 0a 0a 28 64 65 66 75 | ).............,@body)))))..(defu |
| 9fe00 | 6e 20 62 6f 78 20 28 74 68 69 6e 67 29 20 28 63 6f 6e 73 20 3a 62 6f 78 20 74 68 69 6e 67 29 29 | n.box.(thing).(cons.:box.thing)) |
| 9fe20 | 0a 28 64 65 66 75 6e 20 72 65 66 20 28 62 6f 78 29 0a 20 20 28 61 73 73 65 72 74 20 28 65 71 20 | .(defun.ref.(box)...(assert.(eq. |
| 9fe40 | 28 63 61 72 20 62 6f 78 29 20 3a 62 6f 78 29 29 0a 20 20 28 63 64 72 20 62 6f 78 29 29 0a 28 64 | (car.box).:box))...(cdr.box)).(d |
| 9fe60 | 65 66 75 6e 20 28 73 65 74 66 20 72 65 66 29 20 28 76 61 6c 75 65 20 62 6f 78 29 0a 20 20 28 61 | efun.(setf.ref).(value.box)...(a |
| 9fe80 | 73 73 65 72 74 20 28 65 71 20 28 63 61 72 20 62 6f 78 29 20 3a 62 6f 78 29 29 0a 20 20 28 73 65 | ssert.(eq.(car.box).:box))...(se |
| 9fea0 | 74 66 20 28 63 64 72 20 62 6f 78 29 20 76 61 6c 75 65 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 69 | tf.(cdr.box).value))..(defvar.*i |
| 9fec0 | 6e 73 70 65 63 74 6f 72 2d 73 6c 6f 74 73 2d 64 65 66 61 75 6c 74 2d 6f 72 64 65 72 2a 20 3a 61 | nspector-slots-default-order*.:a |
| 9fee0 | 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 0a 20 20 22 41 63 63 65 70 74 65 64 20 76 61 6c 75 65 73 | lphabetically..."Accepted.values |
| 9ff00 | 3a 20 3a 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 20 61 6e 64 20 3a 75 6e 73 6f 72 74 65 64 22 | :.:alphabetically.and.:unsorted" |
| 9ff20 | 29 0a 0a 28 64 65 66 76 61 72 20 2a 69 6e 73 70 65 63 74 6f 72 2d 73 6c 6f 74 73 2d 64 65 66 61 | )..(defvar.*inspector-slots-defa |
| 9ff40 | 75 6c 74 2d 67 72 6f 75 70 69 6e 67 2a 20 3a 61 6c 6c 0a 20 20 22 41 63 63 65 70 74 65 64 20 76 | ult-grouping*.:all..."Accepted.v |
| 9ff60 | 61 6c 75 65 73 3a 20 3a 69 6e 68 65 72 69 74 61 6e 63 65 20 61 6e 64 20 3a 61 6c 6c 22 29 0a 0a | alues:.:inheritance.and.:all").. |
| 9ff80 | 28 64 65 66 67 65 6e 65 72 69 63 20 61 6c 6c 2d 73 6c 6f 74 73 2d 66 6f 72 2d 69 6e 73 70 65 63 | (defgeneric.all-slots-for-inspec |
| 9ffa0 | 74 6f 72 20 28 6f 62 6a 65 63 74 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 61 6c 6c 2d 73 6c | tor.(object))..(defmethod.all-sl |
| 9ffc0 | 6f 74 73 2d 66 6f 72 2d 69 6e 73 70 65 63 74 6f 72 20 28 28 6f 62 6a 65 63 74 20 73 74 61 6e 64 | ots-for-inspector.((object.stand |
| 9ffe0 | 61 72 64 2d 6f 62 6a 65 63 74 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6c 61 73 73 20 20 20 20 | ard-object))...(let*.((class.... |
| a0000 | 20 20 20 20 20 20 20 28 63 6c 61 73 73 2d 6f 66 20 6f 62 6a 65 63 74 29 29 0a 20 20 20 20 20 20 | .......(class-of.object))....... |
| a0020 | 20 20 20 28 64 69 72 65 63 74 2d 73 6c 6f 74 73 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 | ...(direct-slots....(swank-mop:c |
| a0040 | 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 6c 6f 74 73 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 | lass-direct-slots.class))....... |
| a0060 | 20 20 20 28 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 | ...(effective-slots.(swank-mop:c |
| a0080 | 6c 61 73 73 2d 73 6c 6f 74 73 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 6e | lass-slots.class))..........(lon |
| a00a0 | 67 65 73 74 2d 73 6c 6f 74 2d 6e 61 6d 65 2d 6c 65 6e 67 74 68 0a 20 20 20 20 20 20 20 20 20 20 | gest-slot-name-length........... |
| a00c0 | 28 6c 6f 6f 70 20 66 6f 72 20 73 6c 6f 74 20 3a 69 6e 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f | (loop.for.slot.:in.effective-slo |
| a00e0 | 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 69 6d 69 7a 65 20 28 6c 65 6e | ts.................maximize.(len |
| a0100 | 67 74 68 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gth.(symbol-name................ |
| a0120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c | ...................(swank-mop:sl |
| a0140 | 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 29 29 29 29 29 0a 20 20 20 | ot-definition-name.slot))))).... |
| a0160 | 20 20 20 20 20 20 28 63 68 65 63 6b 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 69 6e | ......(checklist...........(rein |
| a0180 | 69 74 69 61 6c 69 7a 65 2d 63 68 65 63 6b 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 | itialize-checklist............(e |
| a01a0 | 6e 73 75 72 65 2d 69 73 74 61 74 65 2d 6d 65 74 61 64 61 74 61 20 6f 62 6a 65 63 74 20 3a 63 68 | nsure-istate-metadata.object.:ch |
| a01c0 | 65 63 6b 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ecklist......................... |
| a01e0 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 63 68 65 63 6b 6c 69 73 74 20 28 6c 65 6e 67 | ...........(make-checklist.(leng |
| a0200 | 74 68 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 | th.effective-slots)))))......... |
| a0220 | 20 28 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 | .(grouping-kind...........;;.We. |
| a0240 | 62 6f 78 20 74 68 65 20 76 61 6c 75 65 20 73 6f 20 77 65 20 63 61 6e 20 72 65 2d 73 65 74 20 69 | box.the.value.so.we.can.re-set.i |
| a0260 | 74 2e 0a 20 20 20 20 20 20 20 20 20 20 28 65 6e 73 75 72 65 2d 69 73 74 61 74 65 2d 6d 65 74 61 | t............(ensure-istate-meta |
| a0280 | 64 61 74 61 20 6f 62 6a 65 63 74 20 3a 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 0a 20 20 20 20 20 | data.object.:grouping-kind...... |
| a02a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6f | .............................(bo |
| a02c0 | 78 20 2a 69 6e 73 70 65 63 74 6f 72 2d 73 6c 6f 74 73 2d 64 65 66 61 75 6c 74 2d 67 72 6f 75 70 | x.*inspector-slots-default-group |
| a02e0 | 69 6e 67 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 6f 72 74 2d 6f 72 64 65 72 0a 20 20 20 | ing*)))..........(sort-order.... |
| a0300 | 20 20 20 20 20 20 20 28 65 6e 73 75 72 65 2d 69 73 74 61 74 65 2d 6d 65 74 61 64 61 74 61 20 6f | .......(ensure-istate-metadata.o |
| a0320 | 62 6a 65 63 74 20 3a 73 6f 72 74 2d 6f 72 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bject.:sort-order............... |
| a0340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6f 78 20 2a 69 6e 73 70 65 63 | ....................(box.*inspec |
| a0360 | 74 6f 72 2d 73 6c 6f 74 73 2d 64 65 66 61 75 6c 74 2d 6f 72 64 65 72 2a 29 29 29 0a 20 20 20 20 | tor-slots-default-order*)))..... |
| a0380 | 20 20 20 20 20 28 73 6f 72 74 2d 70 72 65 64 69 63 61 74 65 20 28 65 63 61 73 65 20 28 72 65 66 | .....(sort-predicate.(ecase.(ref |
| a03a0 | 20 73 6f 72 74 2d 6f 72 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .sort-order).................... |
| a03c0 | 20 20 20 20 20 20 20 20 28 3a 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 20 23 27 73 74 72 69 6e | ........(:alphabetically.#'strin |
| a03e0 | 67 3c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | g<)............................( |
| a0400 | 3a 75 6e 73 6f 72 74 65 64 20 28 63 6f 6e 73 74 61 6e 74 6c 79 20 6e 69 6c 29 29 29 29 0a 20 20 | :unsorted.(constantly.nil))))... |
| a0420 | 20 20 20 20 20 20 20 28 73 6f 72 74 65 64 2d 73 6c 6f 74 73 20 28 73 6f 72 74 20 28 63 6f 70 79 | .......(sorted-slots.(sort.(copy |
| a0440 | 2d 73 65 71 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 | -seq.effective-slots)........... |
| a0460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 72 74 2d 70 72 65 64 69 63 61 74 | ...................sort-predicat |
| a0480 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | e..............................: |
| a04a0 | 6b 65 79 20 23 27 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d | key.#'swank-mop:slot-definition- |
| a04c0 | 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 | name))..........(effective-slots |
| a04e0 | 0a 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 28 72 65 66 20 67 72 6f 75 70 69 6e 67 2d | ...........(ecase.(ref.grouping- |
| a0500 | 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 6c 20 73 6f 72 74 65 64 2d 73 | kind).............(:all.sorted-s |
| a0520 | 6c 6f 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 69 6e 68 65 72 69 74 61 6e 63 65 20 | lots).............(:inheritance. |
| a0540 | 28 73 74 61 62 6c 65 2d 73 6f 72 74 2d 62 79 2d 69 6e 68 65 72 69 74 61 6e 63 65 20 73 6f 72 74 | (stable-sort-by-inheritance.sort |
| a0560 | 65 64 2d 73 6c 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-slots........................ |
| a0580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 | ...............................c |
| a05a0 | 6c 61 73 73 20 73 6f 72 74 2d 70 72 65 64 69 63 61 74 65 29 29 29 29 29 0a 20 20 20 20 60 28 22 | lass.sort-predicate))))).....`(" |
| a05c0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 0a 20 20 20 20 20 20 28 3a 6e 65 | --------------------".......(:ne |
| a05e0 | 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 22 20 47 72 6f 75 70 20 73 6c 6f 74 73 20 62 79 20 69 6e | wline).......".Group.slots.by.in |
| a0600 | 68 65 72 69 74 61 6e 63 65 20 22 0a 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 2c 28 65 63 61 | heritance.".......(:action.,(eca |
| a0620 | 73 65 20 28 72 65 66 20 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 | se.(ref.grouping-kind).......... |
| a0640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 6c 20 22 5b 20 5d 22 29 0a 20 20 20 20 20 | ..............(:all."[.]")...... |
| a0660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 69 6e 68 65 72 69 74 61 6e 63 65 20 | ..................(:inheritance. |
| a0680 | 22 5b 58 5d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 20 | "[X]"))................,(lambda. |
| a06a0 | 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 | ().........................;;.We |
| a06c0 | 20 68 61 76 65 20 74 6f 20 64 6f 20 74 68 69 73 20 61 73 20 74 68 65 20 6f 72 64 65 72 20 6f 66 | .have.to.do.this.as.the.order.of |
| a06e0 | 20 73 6c 6f 74 73 20 77 69 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .slots.will..................... |
| a0700 | 20 20 20 20 3b 3b 20 62 65 20 73 6f 72 74 65 64 20 64 69 66 66 65 72 65 6e 74 6c 79 2e 0a 20 20 | ....;;.be.sorted.differently.... |
| a0720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 6c 20 28 63 68 65 | ......................(fill.(che |
| a0740 | 63 6b 6c 69 73 74 2e 62 75 74 74 6f 6e 73 20 63 68 65 63 6b 6c 69 73 74 29 20 6e 69 6c 29 0a 20 | cklist.buttons.checklist).nil).. |
| a0760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 72 65 | .......................(setf.(re |
| a0780 | 66 20 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | f.grouping-kind)................ |
| a07a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 28 72 65 66 20 67 72 6f 75 70 | ...............(ecase.(ref.group |
| a07c0 | 69 6e 67 2d 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing-kind)....................... |
| a07e0 | 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 6c 20 3a 69 6e 68 65 72 69 74 61 6e 63 65 29 0a 20 20 | ..........(:all.:inheritance)... |
| a0800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a | ..............................(: |
| a0820 | 69 6e 68 65 72 69 74 61 6e 63 65 20 3a 61 6c 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | inheritance.:all))))............ |
| a0840 | 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 74 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 | ....:refreshp.t).......(:newline |
| a0860 | 29 0a 20 20 20 20 20 20 22 20 53 6f 72 74 20 73 6c 6f 74 73 20 61 6c 70 68 61 62 65 74 69 63 61 | ).......".Sort.slots.alphabetica |
| a0880 | 6c 6c 79 20 20 22 0a 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 2c 28 65 63 61 73 65 20 28 72 | lly..".......(:action.,(ecase.(r |
| a08a0 | 65 66 20 73 6f 72 74 2d 6f 72 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ef.sort-order).................. |
| a08c0 | 20 20 20 20 20 20 28 3a 75 6e 73 6f 72 74 65 64 20 22 5b 20 5d 22 29 0a 20 20 20 20 20 20 20 20 | ......(:unsorted."[.]")......... |
| a08e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 20 | ...............(:alphabetically. |
| a0900 | 22 5b 58 5d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 20 | "[X]"))................,(lambda. |
| a0920 | 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 6c | ().........................(fill |
| a0940 | 20 28 63 68 65 63 6b 6c 69 73 74 2e 62 75 74 74 6f 6e 73 20 63 68 65 63 6b 6c 69 73 74 29 20 6e | .(checklist.buttons.checklist).n |
| a0960 | 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | il).........................(set |
| a0980 | 66 20 28 72 65 66 20 73 6f 72 74 2d 6f 72 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | f.(ref.sort-order).............. |
| a09a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 28 72 65 66 20 73 6f 72 | .................(ecase.(ref.sor |
| a09c0 | 74 2d 6f 72 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-order)........................ |
| a09e0 | 20 20 20 20 20 20 20 20 20 28 3a 75 6e 73 6f 72 74 65 64 20 3a 61 6c 70 68 61 62 65 74 69 63 61 | .........(:unsorted.:alphabetica |
| a0a00 | 6c 6c 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lly)............................ |
| a0a20 | 20 20 20 20 20 28 3a 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 20 3a 75 6e 73 6f 72 74 65 64 29 | .....(:alphabetically.:unsorted) |
| a0a40 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 74 29 0a | )))................:refreshp.t). |
| a0a60 | 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 2c 40 20 28 63 61 73 65 20 | ......(:newline).......,@.(case. |
| a0a80 | 28 72 65 66 20 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | (ref.grouping-kind)............( |
| a0aa0 | 3a 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 | :all.............`((:newline)... |
| a0ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 22 41 6c 6c 20 53 6c 6f 74 73 3a 22 0a 20 20 20 20 20 20 20 | ............"All.Slots:"........ |
| a0ae0 | 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(:newline)............... |
| a0b00 | 2c 40 28 6d 61 6b 65 2d 73 6c 6f 74 2d 6c 69 73 74 69 6e 67 20 63 68 65 63 6b 6c 69 73 74 20 6f | ,@(make-slot-listing.checklist.o |
| a0b20 | 62 6a 65 63 74 20 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bject.class..................... |
| a0b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 20 64 | ...............effective-slots.d |
| a0b60 | 69 72 65 63 74 2d 73 6c 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | irect-slots..................... |
| a0b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 65 73 74 2d 73 6c 6f 74 2d 6e 61 6d 65 | ...............longest-slot-name |
| a0ba0 | 2d 6c 65 6e 67 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3a 69 6e 68 65 72 69 74 61 | -length)))............(:inherita |
| a0bc0 | 6e 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2d 61 6c 6c 2d 73 6c 6f 74 73 2d | nce.............(list-all-slots- |
| a0be0 | 62 79 2d 69 6e 68 65 72 69 74 61 6e 63 65 20 63 68 65 63 6b 6c 69 73 74 20 6f 62 6a 65 63 74 20 | by-inheritance.checklist.object. |
| a0c00 | 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | class........................... |
| a0c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 | .................effective-slots |
| a0c40 | 20 64 69 72 65 63 74 2d 73 6c 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .direct-slots................... |
| a0c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 65 73 74 | .........................longest |
| a0c80 | 2d 73 6c 6f 74 2d 6e 61 6d 65 2d 6c 65 6e 67 74 68 29 29 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 | -slot-name-length))).......(:new |
| a0ca0 | 6c 69 6e 65 29 0a 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 22 5b 73 65 74 20 76 61 6c 75 65 | line).......(:action."[set.value |
| a0cc0 | 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 | ]"................,(lambda.()... |
| a0ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 2d 63 68 65 63 6b 6c | ......................(do-checkl |
| a0d00 | 69 73 74 20 28 69 64 78 20 63 68 65 63 6b 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ist.(idx.checklist)............. |
| a0d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 71 75 65 72 79 2d 61 6e 64 2d 73 65 74 2d 73 6c 6f | ..............(query-and-set-slo |
| a0d40 | 74 20 63 6c 61 73 73 20 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.class.object.................. |
| a0d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 | .............................(nt |
| a0d80 | 68 20 69 64 78 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 29 29 29 29 0a 20 20 20 20 20 20 | h.idx.effective-slots))))....... |
| a0da0 | 20 20 20 20 20 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 74 29 0a 20 20 20 20 20 20 22 20 20 22 | .........:refreshp.t).......".." |
| a0dc0 | 0a 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 22 5b 6d 61 6b 65 20 75 6e 62 6f 75 6e 64 5d 22 | .......(:action."[make.unbound]" |
| a0de0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 | ................,(lambda.()..... |
| a0e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 2d 63 68 65 63 6b 6c 69 73 | ....................(do-checklis |
| a0e20 | 74 20 28 69 64 78 20 63 68 65 63 6b 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.(idx.checklist)............... |
| a0e40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 6d 61 6b 75 | ............(swank-mop:slot-maku |
| a0e60 | 6e 62 6f 75 6e 64 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | nbound-using-class.............. |
| a0e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 61 73 73 20 6f 62 6a 65 63 74 20 28 6e 74 68 20 | ..............class.object.(nth. |
| a0ea0 | 69 64 78 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 | idx.effective-slots))))......... |
| a0ec0 | 20 20 20 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 74 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c | .......:refreshp.t).......(:newl |
| a0ee0 | 69 6e 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 74 2d 61 6c 6c 2d 73 6c 6f 74 73 2d 62 | ine))))..(defun.list-all-slots-b |
| a0f00 | 79 2d 69 6e 68 65 72 69 74 61 6e 63 65 20 28 63 68 65 63 6b 6c 69 73 74 20 6f 62 6a 65 63 74 20 | y-inheritance.(checklist.object. |
| a0f20 | 63 6c 61 73 73 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 | class.effective-slots........... |
| a0f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 | ............................dire |
| a0f60 | 63 74 2d 73 6c 6f 74 73 20 6c 6f 6e 67 65 73 74 2d 73 6c 6f 74 2d 6e 61 6d 65 2d 6c 65 6e 67 74 | ct-slots.longest-slot-name-lengt |
| a0f80 | 68 29 0a 20 20 28 66 6c 65 74 20 28 28 73 6c 6f 74 2d 68 6f 6d 65 2d 63 6c 61 73 73 20 28 73 6c | h)...(flet.((slot-home-class.(sl |
| a0fa0 | 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 6f 74 2d 68 6f 6d 65 2d 63 6c 61 73 73 2d | ot)............(slot-home-class- |
| a0fc0 | 75 73 69 6e 67 2d 63 6c 61 73 73 20 73 6c 6f 74 20 63 6c 61 73 73 29 29 29 0a 20 20 20 20 28 6c | using-class.slot.class))).....(l |
| a0fe0 | 65 74 20 28 28 63 75 72 72 65 6e 74 2d 73 6c 6f 74 73 20 27 28 29 29 29 0a 20 20 20 20 20 20 28 | et.((current-slots.'())).......( |
| a1000 | 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 6c 6f 74 20 69 6e 20 | append........(loop.for.slot.in. |
| a1020 | 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 | effective-slots..............for |
| a1040 | 20 70 72 65 76 69 6f 75 73 2d 68 6f 6d 65 2d 63 6c 61 73 73 20 3d 20 28 73 6c 6f 74 2d 68 6f 6d | .previous-home-class.=.(slot-hom |
| a1060 | 65 2d 63 6c 61 73 73 20 73 6c 6f 74 29 20 74 68 65 6e 20 68 6f 6d 65 2d 63 6c 61 73 73 0a 20 20 | e-class.slot).then.home-class... |
| a1080 | 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 68 6f 6d 65 2d 63 6c 61 73 73 20 3d 20 70 72 65 76 | ...........for.home-class.=.prev |
| a10a0 | 69 6f 75 73 2d 68 6f 6d 65 2d 63 6c 61 73 73 20 74 68 65 6e 20 28 73 6c 6f 74 2d 68 6f 6d 65 2d | ious-home-class.then.(slot-home- |
| a10c0 | 63 6c 61 73 73 20 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 65 71 20 | class.slot)..............if.(eq. |
| a10e0 | 68 6f 6d 65 2d 63 6c 61 73 73 20 70 72 65 76 69 6f 75 73 2d 68 6f 6d 65 2d 63 6c 61 73 73 29 0a | home-class.previous-home-class). |
| a1100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 70 75 73 68 20 73 6c 6f 74 20 63 75 72 | ...............do.(push.slot.cur |
| a1120 | 72 65 6e 74 2d 73 6c 6f 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 | rent-slots)..............else... |
| a1140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 27 28 3a 6e 65 77 6c 69 6e 65 29 | .............collect.'(:newline) |
| a1160 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 63 6f 6c 6c 65 63 74 20 28 66 6f 72 | ................and.collect.(for |
| a1180 | 6d 61 74 20 6e 69 6c 20 22 7e 41 3a 22 20 28 63 6c 61 73 73 2d 6e 61 6d 65 20 70 72 65 76 69 6f | mat.nil."~A:".(class-name.previo |
| a11a0 | 75 73 2d 68 6f 6d 65 2d 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 | us-home-class))................a |
| a11c0 | 6e 64 20 63 6f 6c 6c 65 63 74 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 | nd.collect.'(:newline).......... |
| a11e0 | 20 20 20 20 20 20 61 6e 64 20 61 70 70 65 6e 64 20 28 6d 61 6b 65 2d 73 6c 6f 74 2d 6c 69 73 74 | ......and.append.(make-slot-list |
| a1200 | 69 6e 67 20 63 68 65 63 6b 6c 69 73 74 20 6f 62 6a 65 63 74 20 63 6c 61 73 73 0a 20 20 20 20 20 | ing.checklist.object.class...... |
| a1220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a1240 | 20 20 20 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 63 75 72 72 65 6e 74 2d 73 6c 6f 74 73 29 | ........(nreverse.current-slots) |
| a1260 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a1280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 63 74 2d 73 6c 6f 74 73 0a 20 20 20 20 20 | ..............direct-slots...... |
| a12a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a12c0 | 20 20 20 20 20 20 20 20 6c 6f 6e 67 65 73 74 2d 73 6c 6f 74 2d 6e 61 6d 65 2d 6c 65 6e 67 74 68 | ........longest-slot-name-length |
| a12e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 64 6f 20 28 73 65 74 66 20 63 75 | )................and.do.(setf.cu |
| a1300 | 72 72 65 6e 74 2d 73 6c 6f 74 73 20 28 6c 69 73 74 20 73 6c 6f 74 29 29 29 0a 20 20 20 20 20 20 | rrent-slots.(list.slot)))....... |
| a1320 | 20 28 61 6e 64 20 63 75 72 72 65 6e 74 2d 73 6c 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .(and.current-slots............. |
| a1340 | 60 28 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 66 6f 72 | `((:newline)...............,(for |
| a1360 | 6d 61 74 20 6e 69 6c 20 22 7e 41 3a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mat.nil."~A:"................... |
| a1380 | 20 20 20 20 20 28 63 6c 61 73 73 2d 6e 61 6d 65 20 28 73 6c 6f 74 2d 68 6f 6d 65 2d 63 6c 61 73 | .....(class-name.(slot-home-clas |
| a13a0 | 73 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s-using-class................... |
| a13c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 63 75 72 72 65 6e 74 2d 73 | ..................(car.current-s |
| a13e0 | 6c 6f 74 73 29 20 63 6c 61 73 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e | lots).class)))...............(:n |
| a1400 | 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 6d 61 6b 65 2d 73 6c | ewline)...............,@(make-sl |
| a1420 | 6f 74 2d 6c 69 73 74 69 6e 67 20 63 68 65 63 6b 6c 69 73 74 20 6f 62 6a 65 63 74 20 63 6c 61 73 | ot-listing.checklist.object.clas |
| a1440 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s............................... |
| a1460 | 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 63 75 72 72 65 6e 74 2d 73 6c 6f 74 73 29 20 64 69 | .....(nreverse.current-slots).di |
| a1480 | 72 65 63 74 2d 73 6c 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rect-slots...................... |
| a14a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 65 73 74 2d 73 6c 6f 74 2d 6e 61 6d 65 2d | ..............longest-slot-name- |
| a14c0 | 6c 65 6e 67 74 68 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 73 6c 6f 74 2d | length)))))))..(defun.make-slot- |
| a14e0 | 6c 69 73 74 69 6e 67 20 28 63 68 65 63 6b 6c 69 73 74 20 6f 62 6a 65 63 74 20 63 6c 61 73 73 20 | listing.(checklist.object.class. |
| a1500 | 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 20 64 69 72 65 63 74 2d 73 6c 6f 74 73 0a 20 20 20 | effective-slots.direct-slots.... |
| a1520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 65 73 74 2d 73 | .......................longest-s |
| a1540 | 6c 6f 74 2d 6e 61 6d 65 2d 6c 65 6e 67 74 68 29 0a 20 20 28 66 6c 65 74 20 28 28 70 61 64 64 69 | lot-name-length)...(flet.((paddi |
| a1560 | 6e 67 2d 66 6f 72 20 28 73 6c 6f 74 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d | ng-for.(slot-name)............(m |
| a1580 | 61 6b 65 2d 73 74 72 69 6e 67 20 28 2d 20 6c 6f 6e 67 65 73 74 2d 73 6c 6f 74 2d 6e 61 6d 65 2d | ake-string.(-.longest-slot-name- |
| a15a0 | 6c 65 6e 67 74 68 20 28 6c 65 6e 67 74 68 20 73 6c 6f 74 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 | length.(length.slot-name))...... |
| a15c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 6d | ...................:initial-elem |
| a15e0 | 65 6e 74 20 23 5c 53 70 61 63 65 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 66 | ent.#\Space))).....(loop.......f |
| a1600 | 6f 72 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 20 3a 69 6e 20 65 66 66 65 63 74 69 76 65 2d | or.effective-slot.:in.effective- |
| a1620 | 73 6c 6f 74 73 0a 20 20 20 20 20 20 66 6f 72 20 64 69 72 65 63 74 2d 73 6c 6f 74 20 3d 20 28 66 | slots.......for.direct-slot.=.(f |
| a1640 | 69 6e 64 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e | ind.(swank-mop:slot-definition-n |
| a1660 | 61 6d 65 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ame.effective-slot)............. |
| a1680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 63 74 2d 73 6c 6f 74 73 0a 20 | ..................direct-slots.. |
| a16a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 | .............................:ke |
| a16c0 | 79 20 23 27 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 | y.#'swank-mop:slot-definition-na |
| a16e0 | 6d 65 29 0a 20 20 20 20 20 20 66 6f 72 20 73 6c 6f 74 2d 6e 61 6d 65 20 20 20 3d 20 28 69 6e 73 | me).......for.slot-name...=.(ins |
| a1700 | 70 65 63 74 6f 72 2d 70 72 69 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pector-princ.................... |
| a1720 | 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e | ......(swank-mop:slot-definition |
| a1740 | 2d 6e 61 6d 65 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 29 29 0a 20 20 20 20 20 20 63 6f 6c | -name.effective-slot)).......col |
| a1760 | 6c 65 63 74 20 28 6d 61 6b 65 2d 63 68 65 63 6b 6c 69 73 74 2d 62 75 74 74 6f 6e 20 63 68 65 63 | lect.(make-checklist-button.chec |
| a1780 | 6b 6c 69 73 74 29 0a 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 22 20 20 22 0a 20 20 20 20 20 20 | klist).......collect.".."....... |
| a17a0 | 63 6f 6c 6c 65 63 74 20 60 28 3a 76 61 6c 75 65 20 2c 28 69 66 20 64 69 72 65 63 74 2d 73 6c 6f | collect.`(:value.,(if.direct-slo |
| a17c0 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | t.............................(l |
| a17e0 | 69 73 74 20 64 69 72 65 63 74 2d 73 6c 6f 74 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 29 0a | ist.direct-slot.effective-slot). |
| a1800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 66 66 65 | ............................effe |
| a1820 | 63 74 69 76 65 2d 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ctive-slot)..................... |
| a1840 | 20 20 20 2c 73 6c 6f 74 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 70 61 | ...,slot-name).......collect.(pa |
| a1860 | 64 64 69 6e 67 2d 66 6f 72 20 73 6c 6f 74 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 63 6f 6c 6c 65 | dding-for.slot-name).......colle |
| a1880 | 63 74 20 22 20 3d 20 22 0a 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 73 6c 6f 74 2d 76 61 6c | ct.".=.".......collect.(slot-val |
| a18a0 | 75 65 2d 66 6f 72 2d 69 6e 73 70 65 63 74 6f 72 20 63 6c 61 73 73 20 6f 62 6a 65 63 74 20 65 66 | ue-for-inspector.class.object.ef |
| a18c0 | 66 65 63 74 69 76 65 2d 73 6c 6f 74 29 0a 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 27 28 3a 6e | fective-slot).......collect.'(:n |
| a18e0 | 65 77 6c 69 6e 65 29 29 29 29 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 73 6c 6f 74 2d 76 61 6c | ewline))))..(defgeneric.slot-val |
| a1900 | 75 65 2d 66 6f 72 2d 69 6e 73 70 65 63 74 6f 72 20 28 63 6c 61 73 73 20 6f 62 6a 65 63 74 20 73 | ue-for-inspector.(class.object.s |
| a1920 | 6c 6f 74 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 63 6c 61 73 73 20 6f 62 6a 65 63 74 20 73 6c | lot)...(:method.(class.object.sl |
| a1940 | 6f 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 62 6f 75 6e 64 70 20 28 73 77 61 6e 6b 2d 6d 6f 70 | ot).....(let.((boundp.(swank-mop |
| a1960 | 3a 73 6c 6f 74 2d 62 6f 75 6e 64 70 2d 75 73 69 6e 67 2d 63 6c 61 73 73 20 63 6c 61 73 73 20 6f | :slot-boundp-using-class.class.o |
| a1980 | 62 6a 65 63 74 20 73 6c 6f 74 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 62 6f 75 6e 64 70 0a 20 | bject.slot))).......(if.boundp.. |
| a19a0 | 20 20 20 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c | .........`(:value.,(swank-mop:sl |
| a19c0 | 6f 74 2d 76 61 6c 75 65 2d 75 73 69 6e 67 2d 63 6c 61 73 73 20 63 6c 61 73 73 20 6f 62 6a 65 63 | ot-value-using-class.class.objec |
| a19e0 | 74 20 73 6c 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 22 23 3c 75 6e 62 6f 75 6e 64 3e 22 29 | t.slot))..........."#<unbound>") |
| a1a00 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 6f 74 2d 68 6f 6d 65 2d 63 6c 61 73 73 2d 75 73 69 6e | )))..(defun.slot-home-class-usin |
| a1a20 | 67 2d 63 6c 61 73 73 20 28 73 6c 6f 74 20 63 6c 61 73 73 29 0a 20 20 28 6c 65 74 20 28 28 73 6c | g-class.(slot.class)...(let.((sl |
| a1a40 | 6f 74 2d 6e 61 6d 65 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 | ot-name.(swank-mop:slot-definiti |
| a1a60 | 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 6c | on-name.slot))).....(loop.for.cl |
| a1a80 | 61 73 73 20 69 6e 20 28 72 65 76 65 72 73 65 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 | ass.in.(reverse.(swank-mop:class |
| a1aa0 | 2d 70 72 65 63 65 64 65 6e 63 65 2d 6c 69 73 74 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 | -precedence-list.class))........ |
| a1ac0 | 20 20 20 74 68 65 72 65 69 73 20 28 61 6e 64 20 28 6d 65 6d 62 65 72 20 73 6c 6f 74 2d 6e 61 6d | ...thereis.(and.(member.slot-nam |
| a1ae0 | 65 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 6c 6f 74 73 20 | e.(swank-mop:class-direct-slots. |
| a1b00 | 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | class).......................... |
| a1b20 | 20 20 20 20 20 20 3a 6b 65 79 20 23 27 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 | ......:key.#'swank-mop:slot-defi |
| a1b40 | 6e 69 74 69 6f 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nition-name..................... |
| a1b60 | 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 65 71 29 0a 20 20 20 20 20 20 20 20 20 | ...........:test.#'eq).......... |
| a1b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 61 73 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ..............class))))..(defun. |
| a1ba0 | 73 74 61 62 6c 65 2d 73 6f 72 74 2d 62 79 2d 69 6e 68 65 72 69 74 61 6e 63 65 20 28 73 6c 6f 74 | stable-sort-by-inheritance.(slot |
| a1bc0 | 73 20 63 6c 61 73 73 20 70 72 65 64 69 63 61 74 65 29 0a 20 20 28 73 74 61 62 6c 65 2d 73 6f 72 | s.class.predicate)...(stable-sor |
| a1be0 | 74 20 73 6c 6f 74 73 20 70 72 65 64 69 63 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.slots.predicate............... |
| a1c00 | 20 3a 6b 65 79 20 23 27 28 6c 61 6d 62 64 61 20 28 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .:key.#'(lambda.(s)............. |
| a1c20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 61 73 73 2d 6e 61 6d 65 20 28 73 6c 6f 74 2d 68 6f | ............(class-name.(slot-ho |
| a1c40 | 6d 65 2d 63 6c 61 73 73 2d 75 73 69 6e 67 2d 63 6c 61 73 73 20 73 20 63 6c 61 73 73 29 29 29 29 | me-class-using-class.s.class)))) |
| a1c60 | 29 0a 0a 28 64 65 66 75 6e 20 71 75 65 72 79 2d 61 6e 64 2d 73 65 74 2d 73 6c 6f 74 20 28 63 6c | )..(defun.query-and-set-slot.(cl |
| a1c80 | 61 73 73 20 6f 62 6a 65 63 74 20 73 6c 6f 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 6c 6f 74 2d | ass.object.slot)...(let*.((slot- |
| a1ca0 | 6e 61 6d 65 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d | name.(swank-mop:slot-definition- |
| a1cc0 | 6e 61 6d 65 20 73 6c 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 2d 73 74 72 69 | name.slot))..........(value-stri |
| a1ce0 | 6e 67 20 28 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 2d 69 6e 2d 65 6d 61 63 | ng.(read-from-minibuffer-in-emac |
| a1d00 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 | s.........................(forma |
| a1d20 | 74 20 6e 69 6c 20 22 53 65 74 20 73 6c 6f 74 20 7e 53 20 74 6f 20 28 65 76 61 6c 75 61 74 65 64 | t.nil."Set.slot.~S.to.(evaluated |
| a1d40 | 29 20 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).:."........................... |
| a1d60 | 20 20 20 20 20 20 73 6c 6f 74 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 | ......slot-name)))).....(when.(a |
| a1d80 | 6e 64 20 76 61 6c 75 65 2d 73 74 72 69 6e 67 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 76 61 | nd.value-string.(not.(string=.va |
| a1da0 | 6c 75 65 2d 73 74 72 69 6e 67 20 22 22 29 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 73 69 6d | lue-string.""))).......(with-sim |
| a1dc0 | 70 6c 65 2d 72 65 73 74 61 72 74 20 28 61 62 6f 72 74 20 22 41 62 6f 72 74 20 73 65 74 74 69 6e | ple-restart.(abort."Abort.settin |
| a1de0 | 67 20 73 6c 6f 74 20 7e 53 22 20 73 6c 6f 74 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 28 73 | g.slot.~S".slot-name).........(s |
| a1e00 | 65 74 66 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 76 61 6c 75 65 2d 75 73 69 6e 67 2d | etf.(swank-mop:slot-value-using- |
| a1e20 | 63 6c 61 73 73 20 63 6c 61 73 73 20 6f 62 6a 65 63 74 20 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 | class.class.object.slot)........ |
| a1e40 | 20 20 20 20 20 20 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 76 | .......(eval.(read-from-string.v |
| a1e60 | 61 6c 75 65 2d 73 74 72 69 6e 67 29 29 29 29 29 29 29 0a 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 | alue-string)))))))...(defmethod. |
| a1e80 | 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 67 66 20 73 74 61 6e 64 61 72 64 2d 67 65 6e 65 | emacs-inspect.((gf.standard-gene |
| a1ea0 | 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 66 6c 65 74 20 28 28 6c 76 20 28 6c 61 62 | ric-function))...(flet.((lv.(lab |
| a1ec0 | 65 6c 20 76 61 6c 75 65 29 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 6c 61 62 65 | el.value).(label-value-line.labe |
| a1ee0 | 6c 20 76 61 6c 75 65 29 29 29 0a 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 28 6c 76 | l.value))).....(append.......(lv |
| a1f00 | 20 22 4e 61 6d 65 22 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 | ."Name".(swank-mop:generic-funct |
| a1f20 | 69 6f 6e 2d 6e 61 6d 65 20 67 66 29 29 0a 20 20 20 20 20 20 28 6c 76 20 22 41 72 67 75 6d 65 6e | ion-name.gf)).......(lv."Argumen |
| a1f40 | 74 73 22 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d | ts".(swank-mop:generic-function- |
| a1f60 | 6c 61 6d 62 64 61 2d 6c 69 73 74 20 67 66 29 29 0a 20 20 20 20 20 20 28 64 6f 63 73 74 72 69 6e | lambda-list.gf)).......(docstrin |
| a1f80 | 67 2d 69 73 70 65 63 20 22 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 22 20 67 66 20 74 29 0a 20 20 | g-ispec."Documentation".gf.t)... |
| a1fa0 | 20 20 20 20 28 6c 76 20 22 4d 65 74 68 6f 64 20 63 6c 61 73 73 22 20 28 73 77 61 6e 6b 2d 6d 6f | ....(lv."Method.class".(swank-mo |
| a1fc0 | 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 2d 63 6c 61 73 73 20 | p:generic-function-method-class. |
| a1fe0 | 67 66 29 29 0a 20 20 20 20 20 20 28 6c 76 20 22 4d 65 74 68 6f 64 20 63 6f 6d 62 69 6e 61 74 69 | gf)).......(lv."Method.combinati |
| a2000 | 6f 6e 22 0a 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 | on"...........(swank-mop:generic |
| a2020 | 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 67 66 29 | -function-method-combination.gf) |
| a2040 | 29 0a 20 20 20 20 20 20 60 28 22 4d 65 74 68 6f 64 73 3a 20 22 20 28 3a 6e 65 77 6c 69 6e 65 29 | ).......`("Methods:.".(:newline) |
| a2060 | 29 0a 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6d 65 74 68 6f 64 20 69 6e 20 28 66 75 6e | ).......(loop.for.method.in.(fun |
| a2080 | 63 61 6c 6c 20 2a 67 66 2d 6d 65 74 68 6f 64 2d 67 65 74 74 65 72 2a 20 67 66 29 20 61 70 70 65 | call.*gf-method-getter*.gf).appe |
| a20a0 | 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 76 61 6c 75 65 20 2c 6d 65 74 68 6f 64 | nd.............`((:value.,method |
| a20c0 | 20 2c 28 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .,(inspector-princ.............. |
| a20e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 72 6f 70 20 74 68 65 20 6e 61 | ..................;;.drop.the.na |
| a2100 | 6d 65 20 6f 66 20 74 68 65 20 47 46 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me.of.the.GF.................... |
| a2120 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 6d 65 74 68 6f 64 2d 66 6f 72 2d 69 6e 73 | ............(cdr.(method-for-ins |
| a2140 | 70 65 63 74 2d 76 61 6c 75 65 20 6d 65 74 68 6f 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | pect-value.method))))........... |
| a2160 | 20 20 20 20 22 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 22 | ...."."...............(:action." |
| a2180 | 5b 72 65 6d 6f 76 65 20 6d 65 74 68 6f 64 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | [remove.method]"................ |
| a21a0 | 20 20 20 20 20 20 20 20 2c 28 6c 65 74 20 28 28 6d 20 6d 65 74 68 6f 64 29 29 20 3b 20 4c 4f 4f | ........,(let.((m.method)).;.LOO |
| a21c0 | 50 20 72 65 61 73 73 69 67 6e 73 20 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | P.reassigns.method.............. |
| a21e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 | .............(lambda.()......... |
| a2200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 6d 65 74 68 | ....................(remove-meth |
| a2220 | 6f 64 20 67 66 20 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c | od.gf.m))))...............(:newl |
| a2240 | 69 6e 65 29 29 29 0a 20 20 20 20 20 20 60 28 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 20 20 | ine))).......`((:newline))...... |
| a2260 | 20 28 61 6c 6c 2d 73 6c 6f 74 73 2d 66 6f 72 2d 69 6e 73 70 65 63 74 6f 72 20 67 66 29 29 29 29 | .(all-slots-for-inspector.gf)))) |
| a2280 | 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6d 65 74 | ..(defmethod.emacs-inspect.((met |
| a22a0 | 68 6f 64 20 73 74 61 6e 64 61 72 64 2d 6d 65 74 68 6f 64 29 29 0a 20 20 60 28 2c 40 28 69 66 20 | hod.standard-method))...`(,@(if. |
| a22c0 | 28 73 77 61 6e 6b 2d 6d 6f 70 3a 6d 65 74 68 6f 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 | (swank-mop:method-generic-functi |
| a22e0 | 6f 6e 20 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 60 28 22 4d 65 74 68 6f 64 20 64 | on.method)...........`("Method.d |
| a2300 | 65 66 69 6e 65 64 20 6f 6e 20 74 68 65 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 22 | efined.on.the.generic.function." |
| a2320 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 | .............(:value.,(swank-mop |
| a2340 | 3a 6d 65 74 68 6f 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 | :method-generic-function.method) |
| a2360 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 69 6e 73 70 65 63 74 6f 72 | .....................,(inspector |
| a2380 | 2d 70 72 69 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 | -princ.......................(sw |
| a23a0 | 61 6e 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 0a 20 20 | ank-mop:generic-function-name... |
| a23c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a | .....................(swank-mop: |
| a23e0 | 6d 65 74 68 6f 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 | method-generic-function.method)) |
| a2400 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 27 28 22 4d 65 74 68 6f 64 20 77 69 74 68 6f 75 74 20 | )))...........'("Method.without. |
| a2420 | 61 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 22 29 29 0a 20 20 20 20 20 20 28 3a 6e 65 | a.generic.function")).......(:ne |
| a2440 | 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 2c 40 28 64 6f 63 73 74 72 69 6e 67 2d 69 73 70 65 63 20 | wline).......,@(docstring-ispec. |
| a2460 | 22 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 22 20 6d 65 74 68 6f 64 20 74 29 0a 20 20 20 20 20 20 | "Documentation".method.t)....... |
| a2480 | 22 4c 61 6d 62 64 61 20 4c 69 73 74 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 28 73 77 61 6e 6b 2d | "Lambda.List:.".(:value.,(swank- |
| a24a0 | 6d 6f 70 3a 6d 65 74 68 6f 64 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 6d 65 74 68 6f 64 29 29 0a | mop:method-lambda-list.method)). |
| a24c0 | 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 22 53 70 65 63 69 61 6c 69 | ......(:newline)......."Speciali |
| a24e0 | 7a 65 72 73 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 6d 65 74 68 | zers:.".(:value.,(swank-mop:meth |
| a2500 | 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 20 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 | od-specializers.method)......... |
| a2520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 69 6e 73 70 65 63 74 | .......................,(inspect |
| a2540 | 6f 72 2d 70 72 69 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | or-princ........................ |
| a2560 | 20 20 20 20 20 20 20 20 20 20 28 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 2d 66 | ..........(method-specializers-f |
| a2580 | 6f 72 2d 69 6e 73 70 65 63 74 20 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 | or-inspect.method))).......(:new |
| a25a0 | 6c 69 6e 65 29 0a 20 20 20 20 20 20 22 51 75 61 6c 69 66 69 65 72 73 3a 20 22 20 28 3a 76 61 6c | line)......."Qualifiers:.".(:val |
| a25c0 | 75 65 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 6d 65 74 68 6f 64 2d 71 75 61 6c 69 66 69 65 72 73 | ue.,(swank-mop:method-qualifiers |
| a25e0 | 20 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 | .method)).......(:newline)...... |
| a2600 | 20 22 4d 65 74 68 6f 64 20 66 75 6e 63 74 69 6f 6e 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 28 73 | ."Method.function:.".(:value.,(s |
| a2620 | 77 61 6e 6b 2d 6d 6f 70 3a 6d 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 | wank-mop:method-function.method) |
| a2640 | 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 2c 40 28 61 6c 6c 2d | ).......(:newline).......,@(all- |
| a2660 | 73 6c 6f 74 73 2d 66 6f 72 2d 69 6e 73 70 65 63 74 6f 72 20 6d 65 74 68 6f 64 29 29 29 0a 0a 28 | slots-for-inspector.method)))..( |
| a2680 | 64 65 66 75 6e 20 73 70 65 63 69 61 6c 69 7a 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 | defun.specializer-direct-methods |
| a26a0 | 20 28 63 6c 61 73 73 29 0a 20 20 28 73 6f 72 74 20 28 63 6f 70 79 2d 73 65 71 20 28 73 77 61 6e | .(class)...(sort.(copy-seq.(swan |
| a26c0 | 6b 2d 6d 6f 70 3a 73 70 65 63 69 61 6c 69 7a 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 | k-mop:specializer-direct-methods |
| a26e0 | 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 23 27 73 74 72 69 6e 67 3c 0a 20 20 20 20 20 | .class)).........#'string<...... |
| a2700 | 20 20 20 3a 6b 65 79 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 | ...:key.........(lambda.(x)..... |
| a2720 | 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c | ......(symbol-name............(l |
| a2740 | 65 74 20 28 28 6e 61 6d 65 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 3a 67 65 6e 65 72 69 63 2d 66 75 | et.((name.(swank-mop::generic-fu |
| a2760 | 6e 63 74 69 6f 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nction-name..................... |
| a2780 | 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 3a 6d 65 74 68 6f 64 2d 67 65 6e 65 72 69 63 2d 66 | ....(swank-mop::method-generic-f |
| a27a0 | 75 6e 63 74 69 6f 6e 20 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | unction.x))))..............(if.( |
| a27c0 | 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e | symbolp.name)..................n |
| a27e0 | 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 63 6f 6e 64 20 6e 61 6d | ame..................(second.nam |
| a2800 | 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 | e)))))))..(defmethod.emacs-inspe |
| a2820 | 63 74 20 28 28 63 6c 61 73 73 20 73 74 61 6e 64 61 72 64 2d 63 6c 61 73 73 29 29 0a 20 20 60 28 | ct.((class.standard-class))...`( |
| a2840 | 22 4e 61 6d 65 3a 20 22 0a 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 63 6c 61 73 73 2d 6e 61 6d | "Name:.".....(:value.,(class-nam |
| a2860 | 65 20 63 6c 61 73 73 29 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 22 53 75 | e.class)).....(:newline)....."Su |
| a2880 | 70 65 72 20 63 6c 61 73 73 65 73 3a 20 22 0a 20 20 20 20 2c 40 28 63 6f 6d 6d 6f 6e 2d 73 65 70 | per.classes:.".....,@(common-sep |
| a28a0 | 65 72 61 74 65 64 2d 73 70 65 63 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 | erated-spec.(swank-mop:class-dir |
| a28c0 | 65 63 74 2d 73 75 70 65 72 63 6c 61 73 73 65 73 20 63 6c 61 73 73 29 29 0a 20 20 20 20 28 3a 6e | ect-superclasses.class)).....(:n |
| a28e0 | 65 77 6c 69 6e 65 29 0a 20 20 20 20 22 44 69 72 65 63 74 20 53 6c 6f 74 73 3a 20 22 0a 20 20 20 | ewline)....."Direct.Slots:.".... |
| a2900 | 20 2c 40 28 63 6f 6d 6d 6f 6e 2d 73 65 70 65 72 61 74 65 64 2d 73 70 65 63 0a 20 20 20 20 20 20 | .,@(common-seperated-spec....... |
| a2920 | 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 6c 6f 74 73 20 63 | .(swank-mop:class-direct-slots.c |
| a2940 | 6c 61 73 73 29 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 6c 6f 74 29 0a 20 20 20 20 | lass)........(lambda.(slot)..... |
| a2960 | 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 73 6c 6f 74 20 2c 28 69 6e 73 70 65 63 74 6f 72 2d | .....`(:value.,slot.,(inspector- |
| a2980 | 70 72 69 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | princ........................... |
| a29a0 | 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 | (swank-mop:slot-definition-name. |
| a29c0 | 73 6c 6f 74 29 29 29 29 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 22 45 66 | slot))))).....(:newline)....."Ef |
| a29e0 | 66 65 63 74 69 76 65 20 53 6c 6f 74 73 3a 20 22 0a 20 20 20 20 2c 40 28 69 66 20 28 73 77 61 6e | fective.Slots:.".....,@(if.(swan |
| a2a00 | 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 66 69 6e 61 6c 69 7a 65 64 2d 70 20 63 6c 61 73 73 29 0a 20 | k-mop:class-finalized-p.class).. |
| a2a20 | 20 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 73 65 70 65 72 61 74 65 64 2d 73 70 65 63 0a | .........(common-seperated-spec. |
| a2a40 | 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 73 6c 6f 74 | ...........(swank-mop:class-slot |
| a2a60 | 73 20 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 6c 6f | s.class)............(lambda.(slo |
| a2a80 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 73 6c 6f 74 20 2c | t)..............`(:value.,slot., |
| a2aa0 | 28 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (inspector-princ................ |
| a2ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 | ...............(swank-mop:slot-d |
| a2ae0 | 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 | efinition-name.slot)))))........ |
| a2b00 | 20 20 20 60 28 22 23 3c 4e 2f 41 20 28 63 6c 61 73 73 20 6e 6f 74 20 66 69 6e 61 6c 69 7a 65 64 | ...`("#<N/A.(class.not.finalized |
| a2b20 | 29 3e 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 22 5b 66 69 6e 61 | )>.".............(:action."[fina |
| a2b40 | 6c 69 7a 65 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 | lize]"......................,(la |
| a2b60 | 6d 62 64 61 20 28 29 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 66 69 6e 61 6c 69 7a 65 2d 69 6e 68 65 | mbda.().(swank-mop:finalize-inhe |
| a2b80 | 72 69 74 61 6e 63 65 20 63 6c 61 73 73 29 29 29 29 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 | ritance.class))))).....(:newline |
| a2ba0 | 29 0a 20 20 20 20 2c 40 28 6c 65 74 20 28 28 64 6f 63 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f | ).....,@(let.((doc.(documentatio |
| a2bc0 | 6e 20 63 6c 61 73 73 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 64 6f 63 0a 20 | n.class.t))).........(when.doc.. |
| a2be0 | 20 20 20 20 20 20 20 20 20 60 28 22 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 22 20 28 3a 6e 65 | .........`("Documentation:".(:ne |
| a2c00 | 77 6c 69 6e 65 29 20 2c 28 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 63 20 64 6f 63 29 20 28 3a | wline).,(inspector-princ.doc).(: |
| a2c20 | 6e 65 77 6c 69 6e 65 29 29 29 29 0a 20 20 20 20 22 53 75 62 20 63 6c 61 73 73 65 73 3a 20 22 0a | newline))))....."Sub.classes:.". |
| a2c40 | 20 20 20 20 2c 40 28 63 6f 6d 6d 6f 6e 2d 73 65 70 65 72 61 74 65 64 2d 73 70 65 63 20 28 73 77 | ....,@(common-seperated-spec.(sw |
| a2c60 | 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 75 62 63 6c 61 73 73 65 73 20 | ank-mop:class-direct-subclasses. |
| a2c80 | 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | class).......................... |
| a2ca0 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 75 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(lambda.(sub)............... |
| a2cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 73 75 62 0a 20 | .................`(:value.,sub.. |
| a2ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a2d00 | 20 20 20 20 20 20 20 2c 28 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 63 20 28 63 6c 61 73 73 2d | .......,(inspector-princ.(class- |
| a2d20 | 6e 61 6d 65 20 73 75 62 29 29 29 29 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 | name.sub))))).....(:newline).... |
| a2d40 | 20 22 50 72 65 63 65 64 65 6e 63 65 20 4c 69 73 74 3a 20 22 0a 20 20 20 20 2c 40 28 69 66 20 28 | ."Precedence.List:.".....,@(if.( |
| a2d60 | 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 66 69 6e 61 6c 69 7a 65 64 2d 70 20 63 6c 61 73 | swank-mop:class-finalized-p.clas |
| a2d80 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 73 65 70 65 72 61 74 65 64 2d 73 | s)...........(common-seperated-s |
| a2da0 | 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d | pec............(swank-mop:class- |
| a2dc0 | 70 72 65 63 65 64 65 6e 63 65 2d 6c 69 73 74 20 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 | precedence-list.class).......... |
| a2de0 | 20 20 28 6c 61 6d 62 64 61 20 28 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 60 | ..(lambda.(class)..............` |
| a2e00 | 28 3a 76 61 6c 75 65 20 2c 63 6c 61 73 73 20 2c 28 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 63 | (:value.,class.,(inspector-princ |
| a2e20 | 20 28 63 6c 61 73 73 2d 6e 61 6d 65 20 63 6c 61 73 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 | .(class-name.class)))))......... |
| a2e40 | 20 20 27 28 22 23 3c 4e 2f 41 20 28 63 6c 61 73 73 20 6e 6f 74 20 66 69 6e 61 6c 69 7a 65 64 29 | ..'("#<N/A.(class.not.finalized) |
| a2e60 | 3e 22 29 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 2c 40 28 77 68 65 6e 20 | >")).....(:newline).....,@(when. |
| a2e80 | 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 70 65 63 69 61 6c 69 7a 65 72 2d 64 69 72 65 63 74 2d 6d 65 | (swank-mop:specializer-direct-me |
| a2ea0 | 74 68 6f 64 73 20 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 60 28 22 49 74 20 69 73 20 75 73 | thods.class).........`("It.is.us |
| a2ec0 | 65 64 20 61 73 20 61 20 64 69 72 65 63 74 20 73 70 65 63 69 61 6c 69 7a 65 72 20 69 6e 20 74 68 | ed.as.a.direct.specializer.in.th |
| a2ee0 | 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 65 74 68 6f 64 73 3a 22 0a 20 20 20 20 20 20 20 20 20 20 | e.following.methods:"........... |
| a2f00 | 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 2c 40 28 6c 6f 6f 70 0a 20 20 20 | (:newline)...........,@(loop.... |
| a2f20 | 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6d 65 74 68 6f 64 20 69 6e 20 28 73 70 65 63 69 61 | ...........for.method.in.(specia |
| a2f40 | 6c 69 7a 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 20 63 6c 61 73 73 29 0a 20 20 20 20 | lizer-direct-methods.class)..... |
| a2f60 | 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 22 20 20 22 0a 20 20 20 20 20 20 20 20 20 | ..........collect."..".......... |
| a2f80 | 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 3a 76 61 6c 75 65 20 2c 6d 65 74 68 6f 64 0a 20 20 | .....collect.`(:value.,method... |
| a2fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 69 | .............................,(i |
| a2fc0 | 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nspector-princ.................. |
| a2fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 74 68 6f 64 2d 66 6f 72 2d 69 6e 73 70 | ................(method-for-insp |
| a3000 | 65 63 74 2d 76 61 6c 75 65 20 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ect-value.method)))............. |
| a3020 | 20 20 63 6f 6c 6c 65 63 74 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ..collect.'(:newline)........... |
| a3040 | 20 20 20 20 69 66 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6d 65 74 68 6f 64 20 74 29 0a | ....if.(documentation.method.t). |
| a3060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 22 20 20 20 20 44 6f 63 75 6d | ..............collect."....Docum |
| a3080 | 65 6e 74 61 74 69 6f 6e 3a 20 22 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f | entation:.".and...............co |
| a30a0 | 6c 6c 65 63 74 20 28 61 62 62 72 65 76 2d 64 6f 63 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | llect.(abbrev-doc.(documentation |
| a30c0 | 20 6d 65 74 68 6f 64 20 74 29 29 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f | .method.t)).and...............co |
| a30e0 | 6c 6c 65 63 74 20 27 28 3a 6e 65 77 6c 69 6e 65 29 29 29 29 0a 20 20 20 20 22 50 72 6f 74 6f 74 | llect.'(:newline))))....."Protot |
| a3100 | 79 70 65 3a 20 22 20 2c 28 69 66 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 66 69 6e | ype:.".,(if.(swank-mop:class-fin |
| a3120 | 61 6c 69 7a 65 64 2d 70 20 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | alized-p.class)................. |
| a3140 | 20 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 | .......`(:value.,(swank-mop:clas |
| a3160 | 73 2d 70 72 6f 74 6f 74 79 70 65 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | s-prototype.class))............. |
| a3180 | 20 20 20 20 20 20 20 20 20 20 20 27 22 23 3c 4e 2f 41 20 28 63 6c 61 73 73 20 6e 6f 74 20 66 69 | ...........'"#<N/A.(class.not.fi |
| a31a0 | 6e 61 6c 69 7a 65 64 29 3e 22 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 2c | nalized)>").....(:newline)....., |
| a31c0 | 40 28 61 6c 6c 2d 73 6c 6f 74 73 2d 66 6f 72 2d 69 6e 73 70 65 63 74 6f 72 20 63 6c 61 73 73 29 | @(all-slots-for-inspector.class) |
| a31e0 | 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 73 | ))..(defmethod.emacs-inspect.((s |
| a3200 | 6c 6f 74 20 73 77 61 6e 6b 2d 6d 6f 70 3a 73 74 61 6e 64 61 72 64 2d 73 6c 6f 74 2d 64 65 66 69 | lot.swank-mop:standard-slot-defi |
| a3220 | 6e 69 74 69 6f 6e 29 29 0a 20 20 60 28 22 4e 61 6d 65 3a 20 22 0a 20 20 20 20 28 3a 76 61 6c 75 | nition))...`("Name:.".....(:valu |
| a3240 | 65 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 | e.,(swank-mop:slot-definition-na |
| a3260 | 6d 65 20 73 6c 6f 74 29 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 2c 40 28 | me.slot)).....(:newline).....,@( |
| a3280 | 77 68 65 6e 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d | when.(swank-mop:slot-definition- |
| a32a0 | 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 60 28 22 44 | documentation.slot).........`("D |
| a32c0 | 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 | ocumentation:".(:newline)....... |
| a32e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 73 | .....................(:value.,(s |
| a3300 | 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e | wank-mop:slot-definition-documen |
| a3320 | 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tation.......................... |
| a3340 | 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............slot)).............. |
| a3360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 22 | ..............(:newline)))....." |
| a3380 | 49 6e 69 74 20 61 72 67 73 3a 20 22 0a 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 73 77 61 6e 6b | Init.args:.".....(:value.,(swank |
| a33a0 | 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 74 61 72 67 73 20 73 6c | -mop:slot-definition-initargs.sl |
| a33c0 | 6f 74 29 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 22 49 6e 69 74 20 66 6f | ot)).....(:newline)....."Init.fo |
| a33e0 | 72 6d 3a 20 22 0a 20 20 20 20 2c 28 69 66 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 | rm:.".....,(if.(swank-mop:slot-d |
| a3400 | 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 74 66 75 6e 63 74 69 6f 6e 20 73 6c 6f 74 29 0a 20 20 20 | efinition-initfunction.slot).... |
| a3420 | 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d | ......`(:value.,(swank-mop:slot- |
| a3440 | 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 74 66 6f 72 6d 20 73 6c 6f 74 29 29 0a 20 20 20 20 20 | definition-initform.slot))...... |
| a3460 | 20 20 20 20 22 23 3c 75 6e 73 70 65 63 69 66 69 65 64 3e 22 29 0a 20 20 20 20 28 3a 6e 65 77 6c | ...."#<unspecified>").....(:newl |
| a3480 | 69 6e 65 29 0a 20 20 20 20 22 49 6e 69 74 20 66 75 6e 63 74 69 6f 6e 3a 20 22 0a 20 20 20 20 28 | ine)....."Init.function:.".....( |
| a34a0 | 3a 76 61 6c 75 65 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 | :value.,(swank-mop:slot-definiti |
| a34c0 | 6f 6e 2d 69 6e 69 74 66 75 6e 63 74 69 6f 6e 20 73 6c 6f 74 29 29 0a 20 20 20 20 28 3a 6e 65 77 | on-initfunction.slot)).....(:new |
| a34e0 | 6c 69 6e 65 29 0a 20 20 20 20 2c 40 28 61 6c 6c 2d 73 6c 6f 74 73 2d 66 6f 72 2d 69 6e 73 70 65 | line).....,@(all-slots-for-inspe |
| a3500 | 63 74 6f 72 20 73 6c 6f 74 29 29 29 0a 0a 0a 3b 3b 20 57 72 61 70 70 65 72 20 73 74 72 75 63 74 | ctor.slot)))...;;.Wrapper.struct |
| a3520 | 75 72 65 20 6f 76 65 72 20 74 68 65 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 6f 66 20 | ure.over.the.list.of.symbols.of. |
| a3540 | 61 20 70 61 63 6b 61 67 65 20 74 68 61 74 20 73 68 6f 75 6c 64 0a 3b 3b 20 62 65 20 64 69 73 70 | a.package.that.should.;;.be.disp |
| a3560 | 6c 61 79 65 64 20 77 69 74 68 20 74 68 65 69 72 20 72 65 73 70 65 63 74 69 76 65 20 63 6c 61 73 | layed.with.their.respective.clas |
| a3580 | 73 69 66 69 63 61 74 69 6f 6e 20 66 6c 61 67 73 2e 20 54 68 69 73 20 69 73 0a 3b 3b 20 62 65 63 | sification.flags..This.is.;;.bec |
| a35a0 | 61 75 73 65 20 77 65 20 6e 65 65 64 20 61 20 75 6e 69 71 75 65 20 74 79 70 65 20 74 6f 20 64 69 | ause.we.need.a.unique.type.to.di |
| a35c0 | 73 70 61 74 63 68 20 6f 6e 20 69 6e 20 45 4d 41 43 53 2d 49 4e 53 50 45 43 54 2e 0a 3b 3b 20 55 | spatch.on.in.EMACS-INSPECT..;;.U |
| a35e0 | 73 65 64 20 62 79 20 74 68 65 20 49 6e 73 70 65 63 74 6f 72 20 66 6f 72 20 70 61 63 6b 61 67 65 | sed.by.the.Inspector.for.package |
| a3600 | 73 2e 0a 28 64 65 66 73 74 72 75 63 74 20 28 25 70 61 63 6b 61 67 65 2d 73 79 6d 62 6f 6c 73 2d | s..(defstruct.(%package-symbols- |
| a3620 | 63 6f 6e 74 61 69 6e 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 63 2d 6e 61 6d | container.............(:conc-nam |
| a3640 | 65 20 20 20 25 63 6f 6e 74 61 69 6e 65 72 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 | e...%container.).............(:c |
| a3660 | 6f 6e 73 74 72 75 63 74 6f 72 20 25 25 6d 61 6b 65 2d 70 61 63 6b 61 67 65 2d 73 79 6d 62 6f 6c | onstructor.%%make-package-symbol |
| a3680 | 73 2d 63 6f 6e 74 61 69 6e 65 72 29 29 0a 20 20 74 69 74 6c 65 20 3b 3b 20 41 20 73 74 72 69 6e | s-container))...title.;;.A.strin |
| a36a0 | 67 3b 20 74 68 65 20 74 69 74 6c 65 20 6f 66 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 70 61 | g;.the.title.of.the.inspector.pa |
| a36c0 | 67 65 20 69 6e 20 45 6d 61 63 73 2e 0a 20 20 64 65 73 63 72 69 70 74 69 6f 6e 20 3b 3b 20 41 20 | ge.in.Emacs....description.;;.A. |
| a36e0 | 6c 69 73 74 20 6f 66 20 72 65 6e 64 65 72 61 62 6c 65 20 6f 62 6a 65 63 74 73 3b 20 75 73 65 64 | list.of.renderable.objects;.used |
| a3700 | 20 61 73 20 64 65 73 63 72 69 70 74 69 6f 6e 2e 0a 20 20 73 79 6d 62 6f 6c 73 20 3b 3b 20 41 20 | .as.description....symbols.;;.A. |
| a3720 | 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 2e 20 53 75 70 70 6f 73 65 64 20 74 6f 20 62 65 20 | list.of.symbols..Supposed.to.be. |
| a3740 | 73 6f 72 74 65 64 20 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 2e 0a 20 20 67 72 6f 75 70 69 6e | sorted.alphabetically....groupin |
| a3760 | 67 2d 6b 69 6e 64 29 20 3b 3b 20 45 69 74 68 65 72 20 3a 53 59 4d 42 4f 4c 20 6f 72 20 3a 43 4c | g-kind).;;.Either.:SYMBOL.or.:CL |
| a3780 | 41 53 53 49 46 49 43 41 54 49 4f 4e 2e 20 43 66 2e 20 4d 41 4b 45 2d 53 59 4d 42 4f 4c 53 2d 4c | ASSIFICATION..Cf..MAKE-SYMBOLS-L |
| a37a0 | 49 53 54 49 4e 47 0a 0a 0a 28 64 65 66 75 6e 20 25 6d 61 6b 65 2d 70 61 63 6b 61 67 65 2d 73 79 | ISTING...(defun.%make-package-sy |
| a37c0 | 6d 62 6f 6c 73 2d 63 6f 6e 74 61 69 6e 65 72 20 28 26 6b 65 79 20 74 69 74 6c 65 20 64 65 73 63 | mbols-container.(&key.title.desc |
| a37e0 | 72 69 70 74 69 6f 6e 20 73 79 6d 62 6f 6c 73 29 0a 20 20 28 25 25 6d 61 6b 65 2d 70 61 63 6b 61 | ription.symbols)...(%%make-packa |
| a3800 | 67 65 2d 73 79 6d 62 6f 6c 73 2d 63 6f 6e 74 61 69 6e 65 72 20 3a 74 69 74 6c 65 20 74 69 74 6c | ge-symbols-container.:title.titl |
| a3820 | 65 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 20 20 | e.:description.description...... |
| a3840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ...............................: |
| a3860 | 73 79 6d 62 6f 6c 73 20 73 79 6d 62 6f 6c 73 20 3a 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 20 3a | symbols.symbols.:grouping-kind.: |
| a3880 | 73 79 6d 62 6f 6c 29 29 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 6d 61 6b 65 2d 73 79 6d 62 6f | symbol))..(defgeneric.make-symbo |
| a38a0 | 6c 73 2d 6c 69 73 74 69 6e 67 20 28 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 20 73 79 6d 62 6f 6c | ls-listing.(grouping-kind.symbol |
| a38c0 | 73 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 73 2d 6c 69 73 | s))..(defmethod.make-symbols-lis |
| a38e0 | 74 69 6e 67 20 28 28 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 20 28 65 71 6c 20 3a 73 79 6d 62 6f | ting.((grouping-kind.(eql.:symbo |
| a3900 | 6c 29 29 20 73 79 6d 62 6f 6c 73 29 0a 20 20 22 52 65 74 75 72 6e 73 20 61 6e 20 6f 62 6a 65 63 | l)).symbols)..."Returns.an.objec |
| a3920 | 74 20 72 65 6e 64 65 72 61 62 6c 65 20 62 79 20 45 6d 61 63 73 27 20 69 6e 73 70 65 63 74 6f 72 | t.renderable.by.Emacs'.inspector |
| a3940 | 20 73 69 64 65 20 74 68 61 74 0a 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 20 6c 69 73 74 73 20 | .side.that.alphabetically.lists. |
| a3960 | 61 6c 6c 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 69 6e 20 53 59 4d 42 4f 4c 53 20 74 6f 67 65 74 | all.the.symbols.in.SYMBOLS.toget |
| a3980 | 68 65 72 20 77 69 74 68 20 61 0a 63 6f 6e 63 69 73 65 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 | her.with.a.concise.string.repres |
| a39a0 | 65 6e 74 61 74 69 6f 6e 20 6f 66 20 77 68 61 74 20 65 61 63 68 20 73 79 6d 62 6f 6c 0a 72 65 70 | entation.of.what.each.symbol.rep |
| a39c0 | 72 65 73 65 6e 74 73 20 28 73 65 65 20 53 59 4d 42 4f 4c 2d 43 4c 41 53 53 49 46 49 43 41 54 49 | resents.(see.SYMBOL-CLASSIFICATI |
| a39e0 | 4f 4e 2d 53 54 52 49 4e 47 29 22 0a 20 20 28 6c 65 74 20 28 28 6d 61 78 2d 6c 65 6e 67 74 68 20 | ON-STRING)"...(let.((max-length. |
| a3a00 | 28 6c 6f 6f 70 20 66 6f 72 20 73 20 69 6e 20 73 79 6d 62 6f 6c 73 0a 20 20 20 20 20 20 20 20 20 | (loop.for.s.in.symbols.......... |
| a3a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 69 6d 69 7a 69 6e 67 20 28 6c 65 6e | .................maximizing.(len |
| a3a40 | 67 74 68 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 | gth.(symbol-name.s)))).........( |
| a3a60 | 64 69 73 74 61 6e 63 65 20 31 30 29 29 20 3b 20 65 6d 70 74 79 20 64 69 73 74 61 6e 63 65 20 62 | distance.10)).;.empty.distance.b |
| a3a80 | 65 74 77 65 65 6e 20 6e 61 6d 65 20 61 6e 64 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 0a 20 | etween.name.and.classification.. |
| a3aa0 | 20 20 20 28 66 6c 65 74 20 28 28 73 74 72 69 6e 67 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e | ...(flet.((string-representation |
| a3ac0 | 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 | s.(symbol)..............(let*.(( |
| a3ae0 | 6e 61 6d 65 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 | name.(symbol-name.symbol))...... |
| a3b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 28 6c 65 6e 67 74 68 20 6e | ...............(length.(length.n |
| a3b20 | 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 64 64 69 | ame)).....................(paddi |
| a3b40 | 6e 67 20 28 2d 20 6d 61 78 2d 6c 65 6e 67 74 68 20 6c 65 6e 67 74 68 29 29 29 0a 20 20 20 20 20 | ng.(-.max-length.length)))...... |
| a3b60 | 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(values............... |
| a3b80 | 20 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 | ..(concatenate.'string.......... |
| a3ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 | ....................name........ |
| a3bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 74 72 69 | ......................(make-stri |
| a3be0 | 6e 67 20 28 2b 20 70 61 64 64 69 6e 67 20 64 69 73 74 61 6e 63 65 29 0a 20 20 20 20 20 20 20 20 | ng.(+.padding.distance)......... |
| a3c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a3c20 | 20 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 6d 65 6e 74 20 23 5c 53 70 61 63 65 29 29 0a 20 20 20 | ..:initial-element.#\Space)).... |
| a3c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 63 6c 61 73 73 69 66 69 63 61 74 | .............(symbol-classificat |
| a3c60 | 69 6f 6e 2d 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 29 29 29 29 0a 20 20 20 20 20 20 60 28 22 | ion-string.symbol))))).......`(" |
| a3c80 | 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 38 20 | "...........................;.8. |
| a3ca0 | 69 73 20 28 6c 65 6e 67 74 68 20 22 53 79 6d 62 6f 6c 73 3a 22 29 0a 20 20 20 20 20 20 20 20 22 | is.(length."Symbols:")........." |
| a3cc0 | 53 79 6d 62 6f 6c 73 3a 22 20 2c 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 2b 20 2d 38 20 6d 61 | Symbols:".,(make-string.(+.-8.ma |
| a3ce0 | 78 2d 6c 65 6e 67 74 68 20 64 69 73 74 61 6e 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | x-length.distance).............. |
| a3d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 | ....................:initial-ele |
| a3d20 | 6d 65 6e 74 20 23 5c 53 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 22 46 6c 61 67 73 3a 22 0a 20 | ment.#\Space)........."Flags:".. |
| a3d40 | 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 2c 28 63 6f 6e 63 | .......(:newline).........,(conc |
| a3d60 | 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 20 20 20 20 20 20 20 20 3b 20 75 6e 64 65 72 6c 69 | atenate.'string........;.underli |
| a3d80 | 6e 69 6e 67 20 64 61 73 68 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ning.dashes..................... |
| a3da0 | 20 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 2b 20 6d 61 78 2d 6c 65 6e 67 74 68 20 64 69 73 | ..(make-string.(+.max-length.dis |
| a3dc0 | 74 61 6e 63 65 20 2d 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tance.-1)....................... |
| a3de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 6d 65 6e 74 20 23 5c | .............:initial-element.#\ |
| a3e00 | 2d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 22 0a 20 20 20 | -).......................".".... |
| a3e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 63 6c 61 73 73 | ...................(symbol-class |
| a3e40 | 69 66 69 63 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 27 23 3a 66 6f 6f 29 29 0a 20 20 20 20 20 20 | ification-string.'#:foo))....... |
| a3e60 | 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 2c 40 28 6c 6f 6f 70 20 66 6f 72 | ..(:newline).........,@(loop.for |
| a3e80 | 20 73 79 6d 62 6f 6c 20 69 6e 20 73 79 6d 62 6f 6c 73 20 61 70 70 65 6e 64 69 6e 67 0a 20 20 20 | .symbol.in.symbols.appending.... |
| a3ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 | ............(multiple-value-bind |
| a3ec0 | 20 28 73 79 6d 62 6f 6c 2d 73 74 72 69 6e 67 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 2d 73 | .(symbol-string.classification-s |
| a3ee0 | 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e | tring)....................(strin |
| a3f00 | 67 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 | g-representations.symbol)....... |
| a3f20 | 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 76 61 6c 75 65 20 2c 73 79 6d 62 6f 6c 20 2c 73 79 | ...........`((:value.,symbol.,sy |
| a3f40 | 6d 62 6f 6c 2d 73 74 72 69 6e 67 29 20 2c 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 2d 73 74 72 | mbol-string).,classification-str |
| a3f60 | 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 | ing....................(:newline |
| a3f80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 29 29 29 29 0a 0a 28 64 | )....................)))))))..(d |
| a3fa0 | 65 66 6d 65 74 68 6f 64 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 73 2d 6c 69 73 74 69 6e 67 20 28 28 | efmethod.make-symbols-listing.(( |
| a3fc0 | 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 20 28 65 71 6c 20 3a 63 6c 61 73 73 69 66 69 63 61 74 69 | grouping-kind.(eql.:classificati |
| a3fe0 | 6f 6e 29 29 20 73 79 6d 62 6f 6c 73 29 0a 20 20 22 46 6f 72 20 65 61 63 68 20 70 6f 73 73 69 62 | on)).symbols)..."For.each.possib |
| a4000 | 6c 65 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 20 28 63 66 2e 20 43 4c 41 53 53 49 46 59 2d | le.classification.(cf..CLASSIFY- |
| a4020 | 53 59 4d 42 4f 4c 29 2c 20 67 72 6f 75 70 0a 61 6c 6c 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 69 | SYMBOL),.group.all.the.symbols.i |
| a4040 | 6e 20 53 59 4d 42 4f 4c 53 20 74 6f 20 61 6c 6c 20 6f 66 20 74 68 65 69 72 20 72 65 73 70 65 63 | n.SYMBOLS.to.all.of.their.respec |
| a4060 | 74 69 76 65 0a 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 73 2e 20 28 49 66 20 61 20 73 79 6d 62 | tive.classifications..(If.a.symb |
| a4080 | 6f 6c 20 69 73 2c 20 66 6f 72 20 69 6e 73 74 61 6e 63 65 2c 20 62 6f 75 6e 64 70 20 61 6e 64 20 | ol.is,.for.instance,.boundp.and. |
| a40a0 | 61 0a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2c 20 69 74 27 6c 6c 20 61 70 70 65 61 72 | a.generic-function,.it'll.appear |
| a40c0 | 20 62 6f 74 68 20 62 65 6c 6f 77 20 74 68 65 20 42 4f 55 4e 44 50 20 67 72 6f 75 70 20 61 6e 64 | .both.below.the.BOUNDP.group.and |
| a40e0 | 0a 74 68 65 20 47 45 4e 45 52 49 43 2d 46 55 4e 43 54 49 4f 4e 20 67 72 6f 75 70 2e 29 20 41 73 | .the.GENERIC-FUNCTION.group.).As |
| a4100 | 20 6d 61 63 72 6f 73 20 61 6e 64 20 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 73 20 61 72 | .macros.and.special-operators.ar |
| a4120 | 65 0a 73 70 65 63 69 66 69 65 64 20 74 6f 20 62 65 20 46 42 4f 55 4e 44 50 2c 20 74 68 65 72 65 | e.specified.to.be.FBOUNDP,.there |
| a4140 | 20 69 73 20 6e 6f 20 67 65 6e 65 72 61 6c 20 46 42 4f 55 4e 44 50 20 67 72 6f 75 70 2c 0a 69 6e | .is.no.general.FBOUNDP.group,.in |
| a4160 | 73 74 65 61 64 20 74 68 65 72 65 20 61 72 65 20 74 68 65 20 74 68 72 65 65 20 65 78 70 6c 69 63 | stead.there.are.the.three.explic |
| a4180 | 69 74 20 46 55 4e 43 54 49 4f 4e 2c 20 4d 41 43 52 4f 20 61 6e 64 0a 53 50 45 43 49 41 4c 2d 4f | it.FUNCTION,.MACRO.and.SPECIAL-O |
| a41a0 | 50 45 52 41 54 4f 52 20 67 72 6f 75 70 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 74 61 62 6c 65 20 | PERATOR.groups."...(let.((table. |
| a41c0 | 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 29 29 0a 20 20 | (make-hash-table.:test.#'eq))... |
| a41e0 | 20 20 20 20 20 20 28 2b 64 65 66 61 75 6c 74 2d 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 2b 20 | ......(+default-classification+. |
| a4200 | 3a 6d 69 73 63 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 6e 6f 72 6d 61 6c 69 7a 65 2d 63 6c | :misc)).....(flet.((normalize-cl |
| a4220 | 61 73 73 69 66 69 63 61 74 69 6f 6e 73 20 28 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 73 29 0a | assifications.(classifications). |
| a4240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 63 6c 61 73 73 69 | .............(cond.((null.classi |
| a4260 | 66 69 63 61 74 69 6f 6e 73 29 20 60 28 2c 2b 64 65 66 61 75 6c 74 2d 63 6c 61 73 73 69 66 69 63 | fications).`(,+default-classific |
| a4280 | 61 74 69 6f 6e 2b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 | ation+))....................;;.C |
| a42a0 | 6f 6e 76 65 72 74 20 61 6e 20 3a 46 42 4f 55 4e 44 50 20 69 6e 20 43 4c 41 53 53 49 46 49 43 41 | onvert.an.:FBOUNDP.in.CLASSIFICA |
| a42c0 | 54 49 4f 4e 53 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 3a | TIONS.to....................;;.: |
| a42e0 | 46 55 4e 43 54 49 4f 4e 20 69 66 20 70 6f 73 73 69 62 6c 65 2e 0a 20 20 20 20 20 20 20 20 20 20 | FUNCTION.if.possible............ |
| a4300 | 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 6d 65 6d 62 65 72 20 3a 66 62 6f 75 6e 64 70 20 | .........((and.(member.:fboundp. |
| a4320 | 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | classifications)................ |
| a4340 | 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 3a 6d 61 63 72 6f 20 63 6c | ..........(not.(member.:macro.cl |
| a4360 | 61 73 73 69 66 69 63 61 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | assifications))................. |
| a4380 | 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 3a 73 70 65 63 69 61 6c 2d 6f | .........(not.(member.:special-o |
| a43a0 | 70 65 72 61 74 6f 72 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 73 29 29 29 0a 20 20 20 20 20 | perator.classifications)))...... |
| a43c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 69 74 75 74 65 20 3a 66 75 6e 63 | ...............(substitute.:func |
| a43e0 | 74 69 6f 6e 20 3a 66 62 6f 75 6e 64 70 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 73 29 29 0a | tion.:fboundp.classifications)). |
| a4400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 72 65 6d 6f 76 65 20 3a 66 | ...................(t.(remove.:f |
| a4420 | 62 6f 75 6e 64 70 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 73 29 29 29 29 29 0a 20 20 20 20 | boundp.classifications)))))..... |
| a4440 | 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 79 6d 62 6f 6c 20 69 6e 20 73 79 6d 62 6f 6c 73 20 64 6f | ..(loop.for.symbol.in.symbols.do |
| a4460 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 6c 61 73 73 69 66 69 63 | .............(loop.for.classific |
| a4480 | 61 74 69 6f 6e 20 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 72 6d | ation.in...................(norm |
| a44a0 | 61 6c 69 7a 65 2d 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 73 20 28 63 6c 61 73 73 69 66 79 2d | alize-classifications.(classify- |
| a44c0 | 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | symbol.symbol))................. |
| a44e0 | 20 20 3b 3b 20 53 59 4d 42 4f 4c 53 20 61 72 65 20 73 75 70 70 6f 73 65 64 20 74 6f 20 62 65 20 | ..;;.SYMBOLS.are.supposed.to.be. |
| a4500 | 73 6f 72 74 65 64 20 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 3b 0a 20 20 20 20 20 20 20 20 20 | sorted.alphabetically;.......... |
| a4520 | 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 69 73 20 70 72 6f 70 65 72 74 79 20 69 73 20 70 72 65 | .........;;.this.property.is.pre |
| a4540 | 73 65 72 76 65 64 20 68 65 72 65 20 65 78 63 65 70 74 20 66 6f 72 20 72 65 76 65 72 73 69 6e 67 | served.here.except.for.reversing |
| a4560 | 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 70 75 73 68 20 73 79 6d | ....................do.(push.sym |
| a4580 | 62 6f 6c 20 28 67 65 74 68 61 73 68 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 20 74 61 62 6c | bol.(gethash.classification.tabl |
| a45a0 | 65 29 29 29 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6c 61 73 73 69 66 69 63 61 74 69 6f | e))))).....(let*.((classificatio |
| a45c0 | 6e 73 20 28 6c 6f 6f 70 20 66 6f 72 20 6b 20 62 65 69 6e 67 20 65 61 63 68 20 68 61 73 68 2d 6b | ns.(loop.for.k.being.each.hash-k |
| a45e0 | 65 79 20 69 6e 20 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ey.in.table..................... |
| a4600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 6b 29 29 0a 20 20 20 20 20 20 | ..............collect.k))....... |
| a4620 | 20 20 20 20 20 28 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 73 20 28 73 6f 72 74 20 63 6c 61 73 | .....(classifications.(sort.clas |
| a4640 | 73 69 66 69 63 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sifications..................... |
| a4660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 6f 72 74 20 61 6c 70 68 61 62 65 74 69 63 | ..............;;.Sort.alphabetic |
| a4680 | 61 6c 6c 79 2c 20 65 78 63 65 70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ally,.except.................... |
| a46a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 2b 44 45 46 41 55 4c 54 2d 43 4c 41 53 53 | ...............;;.+DEFAULT-CLASS |
| a46c0 | 49 46 49 43 41 54 49 4f 4e 2b 20 77 68 69 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | IFICATION+.which................ |
| a46e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 6f 72 74 20 74 6f 20 74 68 | ...................;;.sort.to.th |
| a4700 | 65 20 65 6e 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.end........................... |
| a4720 | 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 0a 20 20 20 20 20 20 20 20 20 | .........(lambda.(a.b).......... |
| a4740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 | ...........................(cond |
| a4760 | 20 28 28 65 71 6c 20 61 20 2b 64 65 66 61 75 6c 74 2d 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e | .((eql.a.+default-classification |
| a4780 | 2b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | +).............................. |
| a47a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..............nil).............. |
| a47c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 | .............................((e |
| a47e0 | 71 6c 20 62 20 2b 64 65 66 61 75 6c 74 2d 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 2b 29 0a 20 | ql.b.+default-classification+).. |
| a4800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a4820 | 20 20 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........t).................... |
| a4840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 73 74 72 69 6e | .......................(t.(strin |
| a4860 | 67 3c 20 61 20 62 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 6c | g<.a.b))))))).......(loop.for.cl |
| a4880 | 61 73 73 69 66 69 63 61 74 69 6f 6e 20 69 6e 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 73 0a | assification.in.classifications. |
| a48a0 | 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 73 79 6d 62 6f 6c 73 20 3d 20 28 67 65 74 68 61 | ............for.symbols.=.(getha |
| a48c0 | 73 68 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 20 74 61 62 6c 65 29 0a 20 20 20 20 20 20 20 | sh.classification.table)........ |
| a48e0 | 20 20 20 20 20 61 70 70 65 6e 64 69 6e 67 60 28 2c 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 63 6c | .....appending`(,(symbol-name.cl |
| a4900 | 61 73 73 69 66 69 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | assification)................... |
| a4920 | 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(:newline)................. |
| a4940 | 20 20 20 20 20 20 20 2c 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 36 34 20 3a 69 6e 69 74 69 61 6c | .......,(make-string.64.:initial |
| a4960 | 2d 65 6c 65 6d 65 6e 74 20 23 5c 2d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -element.#\-)................... |
| a4980 | 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(:newline)................. |
| a49a0 | 20 20 20 20 20 20 20 2c 40 28 6d 61 70 63 61 6e 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 62 6f 6c | .......,@(mapcan.(lambda.(symbol |
| a49c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| a49e0 | 20 20 20 20 20 60 28 28 3a 76 61 6c 75 65 20 2c 73 79 6d 62 6f 6c 20 2c 28 73 79 6d 62 6f 6c 2d | .....`((:value.,symbol.,(symbol- |
| a4a00 | 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name.symbol))................... |
| a4a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a | ...................(:newline))). |
| a4a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a4a60 | 20 3b 3b 20 72 65 73 74 6f 72 65 20 61 6c 70 68 61 62 65 74 69 63 20 6f 72 64 65 72 2e 0a 20 20 | .;;.restore.alphabetic.order.... |
| a4a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| a4aa0 | 6e 72 65 76 65 72 73 65 20 73 79 6d 62 6f 6c 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | nreverse.symbols)).............. |
| a4ac0 | 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 29 29 29 0a 0a 28 64 65 66 6d | ..........(:newline))))))..(defm |
| a4ae0 | 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 25 63 6f 6e 74 61 69 6e 65 72 | ethod.emacs-inspect.((%container |
| a4b00 | 20 25 70 61 63 6b 61 67 65 2d 73 79 6d 62 6f 6c 73 2d 63 6f 6e 74 61 69 6e 65 72 29 29 0a 20 20 | .%package-symbols-container))... |
| a4b20 | 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 25 63 6f 6e 74 61 69 6e 65 72 2e 20 74 69 74 6c 65 20 | (with-struct.(%container..title. |
| a4b40 | 64 65 73 63 72 69 70 74 69 6f 6e 20 73 79 6d 62 6f 6c 73 20 67 72 6f 75 70 69 6e 67 2d 6b 69 6e | description.symbols.grouping-kin |
| a4b60 | 64 29 20 25 63 6f 6e 74 61 69 6e 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 74 69 74 | d).%container.............`(,tit |
| a4b80 | 6c 65 20 28 3a 6e 65 77 6c 69 6e 65 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 | le.(:newline).(:newline)........ |
| a4ba0 | 20 20 20 20 20 20 20 2c 40 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | .......,@description............ |
| a4bc0 | 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 22 | ...(:newline)...............".." |
| a4be0 | 20 2c 28 65 63 61 73 65 20 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 0a 20 20 20 20 20 20 20 20 20 | .,(ecase.grouping-kind.......... |
| a4c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 79 6d 62 6f 6c 0a 20 20 20 20 20 | ..................(:symbol...... |
| a4c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 61 63 74 69 6f 6e | .......................`(:action |
| a4c40 | 20 22 5b 47 72 6f 75 70 20 62 79 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 5d 22 0a 20 20 20 | ."[Group.by.classification]".... |
| a4c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a4c80 | 20 20 20 2c 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...,(lambda.().................. |
| a4ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 67 72 | ........................(setf.gr |
| a4cc0 | 6f 75 70 69 6e 67 2d 6b 69 6e 64 20 3a 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 29 29 0a 20 20 | ouping-kind.:classification))... |
| a4ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a4d00 | 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....:refreshp.t))............... |
| a4d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 0a 20 20 | .............(:classification... |
| a4d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 61 63 74 | ..........................`(:act |
| a4d60 | 69 6f 6e 20 22 5b 47 72 6f 75 70 20 62 79 20 73 79 6d 62 6f 6c 5d 22 0a 20 20 20 20 20 20 20 20 | ion."[Group.by.symbol]"......... |
| a4d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 | ..............................,( |
| a4da0 | 6c 61 6d 62 64 61 20 28 29 20 28 73 65 74 66 20 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 20 3a 73 | lambda.().(setf.grouping-kind.:s |
| a4dc0 | 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ymbol))......................... |
| a4de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 74 29 29 29 0a 20 20 20 | ..............:refreshp.t))).... |
| a4e00 | 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 20 28 3a 6e 65 77 6c 69 6e 65 29 | ...........(:newline).(:newline) |
| a4e20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 73 2d 6c | ...............,@(make-symbols-l |
| a4e40 | 69 73 74 69 6e 67 20 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 20 73 79 6d 62 6f 6c 73 29 29 29 29 | isting.grouping-kind.symbols)))) |
| a4e60 | 0a 0a 28 64 65 66 75 6e 20 64 69 73 70 6c 61 79 2d 6c 69 6e 6b 20 28 74 79 70 65 20 73 79 6d 62 | ..(defun.display-link.(type.symb |
| a4e80 | 6f 6c 73 20 6c 65 6e 67 74 68 20 26 6b 65 79 20 74 69 74 6c 65 20 64 65 73 63 72 69 70 74 69 6f | ols.length.&key.title.descriptio |
| a4ea0 | 6e 29 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 73 79 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 28 66 | n)...(if.(null.symbols).......(f |
| a4ec0 | 6f 72 6d 61 74 20 6e 69 6c 20 22 30 20 7e 41 20 73 79 6d 62 6f 6c 73 2e 22 20 74 79 70 65 29 0a | ormat.nil."0.~A.symbols.".type). |
| a4ee0 | 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 28 25 6d 61 6b 65 2d 70 61 63 6b 61 67 65 2d 73 | ......`(:value.,(%make-package-s |
| a4f00 | 79 6d 62 6f 6c 73 2d 63 6f 6e 74 61 69 6e 65 72 20 3a 74 69 74 6c 65 20 74 69 74 6c 65 0a 20 20 | ymbols-container.:title.title... |
| a4f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a4f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 64 65 73 63 | ...............:description.desc |
| a4f60 | 72 69 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ription......................... |
| a4f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 79 6d 62 6f 6c | .........................:symbol |
| a4fa0 | 73 20 73 79 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 66 6f 72 6d | s.symbols)................,(form |
| a4fc0 | 61 74 20 6e 69 6c 20 22 7e 44 20 7e 41 20 73 79 6d 62 6f 6c 7e 50 2e 22 20 6c 65 6e 67 74 68 20 | at.nil."~D.~A.symbol~P.".length. |
| a4fe0 | 74 79 70 65 20 6c 65 6e 67 74 68 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 | type.length))))..(defmethod.emac |
| a5000 | 73 2d 69 6e 73 70 65 63 74 20 28 28 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 0a 20 20 | s-inspect.((package.package))... |
| a5020 | 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 20 20 20 20 20 20 20 20 28 70 61 63 | (let.((package-name.........(pac |
| a5040 | 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 70 61 63 | kage-name.package)).........(pac |
| a5060 | 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 73 20 20 20 20 28 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e | kage-nicknames....(package-nickn |
| a5080 | 61 6d 65 73 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 6c 6f 63 61 6c 2d 6e 69 | ames.package)).........(local-ni |
| a50a0 | 63 6b 6e 61 6d 65 73 20 20 20 20 20 20 28 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b | cknames......(package-local-nick |
| a50c0 | 6e 61 6d 65 73 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 70 61 63 6b 61 67 65 | names.package)).........(package |
| a50e0 | 2d 75 73 65 2d 6c 69 73 74 20 20 20 20 20 28 70 61 63 6b 61 67 65 2d 75 73 65 2d 6c 69 73 74 20 | -use-list.....(package-use-list. |
| a5100 | 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 70 61 63 6b 61 67 65 2d 75 73 65 64 2d | package)).........(package-used- |
| a5120 | 62 79 2d 6c 69 73 74 20 28 70 61 63 6b 61 67 65 2d 75 73 65 64 2d 62 79 2d 6c 69 73 74 20 70 61 | by-list.(package-used-by-list.pa |
| a5140 | 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 73 68 61 64 6f 77 65 64 2d 73 79 6d 62 6f 6c | ckage)).........(shadowed-symbol |
| a5160 | 73 20 20 20 20 20 28 70 61 63 6b 61 67 65 2d 73 68 61 64 6f 77 69 6e 67 2d 73 79 6d 62 6f 6c 73 | s.....(package-shadowing-symbols |
| a5180 | 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 65 73 65 6e 74 2d 73 79 6d 62 | .package)).........(present-symb |
| a51a0 | 6f 6c 73 20 20 20 20 20 20 27 28 29 29 20 28 70 72 65 73 65 6e 74 2d 73 79 6d 62 6f 6c 73 2d 6c | ols......'()).(present-symbols-l |
| a51c0 | 65 6e 67 74 68 20 20 20 30 29 0a 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 61 6c 2d 73 79 6d | ength...0).........(internal-sym |
| a51e0 | 62 6f 6c 73 20 20 20 20 20 27 28 29 29 20 28 69 6e 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 2d | bols.....'()).(internal-symbols- |
| a5200 | 6c 65 6e 67 74 68 20 20 30 29 0a 20 20 20 20 20 20 20 20 28 69 6e 68 65 72 69 74 65 64 2d 73 79 | length..0).........(inherited-sy |
| a5220 | 6d 62 6f 6c 73 20 20 20 20 27 28 29 29 20 28 69 6e 68 65 72 69 74 65 64 2d 73 79 6d 62 6f 6c 73 | mbols....'()).(inherited-symbols |
| a5240 | 2d 6c 65 6e 67 74 68 20 30 29 0a 20 20 20 20 20 20 20 20 28 65 78 74 65 72 6e 61 6c 2d 73 79 6d | -length.0).........(external-sym |
| a5260 | 62 6f 6c 73 20 20 20 20 20 27 28 29 29 20 28 65 78 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 2d | bols.....'()).(external-symbols- |
| a5280 | 6c 65 6e 67 74 68 20 20 30 29 29 0a 0a 20 20 20 20 28 64 6f 2d 73 79 6d 62 6f 6c 73 2a 20 28 73 | length..0))......(do-symbols*.(s |
| a52a0 | 79 6d 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 74 75 73 20 | ym.package).......(let.((status. |
| a52c0 | 28 73 79 6d 62 6f 6c 2d 73 74 61 74 75 73 20 73 79 6d 20 70 61 63 6b 61 67 65 29 29 29 0a 20 20 | (symbol-status.sym.package)))... |
| a52e0 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 73 74 61 74 75 73 20 3a 69 6e 68 65 72 69 74 65 | ......(when.(eq.status.:inherite |
| a5300 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 73 79 6d 20 69 6e 68 65 72 69 74 65 64 | d)...........(push.sym.inherited |
| a5320 | 2d 73 79 6d 62 6f 6c 73 29 20 28 69 6e 63 66 20 69 6e 68 65 72 69 74 65 64 2d 73 79 6d 62 6f 6c | -symbols).(incf.inherited-symbol |
| a5340 | 73 2d 6c 65 6e 67 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 20 3a 63 6f 6e 74 69 6e 75 | s-length)...........(go.:continu |
| a5360 | 65 29 29 0a 20 20 20 20 20 20 20 20 28 70 75 73 68 20 73 79 6d 20 70 72 65 73 65 6e 74 2d 73 79 | e)).........(push.sym.present-sy |
| a5380 | 6d 62 6f 6c 73 29 20 28 69 6e 63 66 20 70 72 65 73 65 6e 74 2d 73 79 6d 62 6f 6c 73 2d 6c 65 6e | mbols).(incf.present-symbols-len |
| a53a0 | 67 74 68 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 73 74 61 74 75 73 20 3a | gth).........(cond.((eq.status.: |
| a53c0 | 69 6e 74 65 72 6e 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 73 | internal)................(push.s |
| a53e0 | 79 6d 20 69 6e 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 29 20 28 69 6e 63 66 20 69 6e 74 65 72 | ym.internal-symbols).(incf.inter |
| a5400 | 6e 61 6c 2d 73 79 6d 62 6f 6c 73 2d 6c 65 6e 67 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | nal-symbols-length))............ |
| a5420 | 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 73 79 6d 20 65 | ...(t................(push.sym.e |
| a5440 | 78 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 29 20 28 69 6e 63 66 20 65 78 74 65 72 6e 61 6c 2d | xternal-symbols).(incf.external- |
| a5460 | 73 79 6d 62 6f 6c 73 2d 6c 65 6e 67 74 68 29 29 29 29 0a 20 20 20 20 20 20 3a 63 6f 6e 74 69 6e | symbols-length)))).......:contin |
| a5480 | 75 65 29 0a 0a 20 20 20 20 28 73 65 74 66 20 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 73 | ue)......(setf.package-nicknames |
| a54a0 | 20 20 20 20 28 73 6f 72 74 20 28 63 6f 70 79 2d 6c 69 73 74 20 70 61 63 6b 61 67 65 2d 6e 69 63 | ....(sort.(copy-list.package-nic |
| a54c0 | 6b 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | knames)......................... |
| a54e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 74 72 69 6e 67 3c 29 0a 20 20 20 20 20 20 20 20 | .............#'string<)......... |
| a5500 | 20 20 70 61 63 6b 61 67 65 2d 75 73 65 2d 6c 69 73 74 20 20 20 20 20 28 73 6f 72 74 20 28 63 6f | ..package-use-list.....(sort.(co |
| a5520 | 70 79 2d 6c 69 73 74 20 70 61 63 6b 61 67 65 2d 75 73 65 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 | py-list.package-use-list)....... |
| a5540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 | ...............................# |
| a5560 | 27 73 74 72 69 6e 67 3c 20 3a 6b 65 79 20 23 27 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 | 'string<.:key.#'package-name)... |
| a5580 | 20 20 20 20 20 20 20 20 70 61 63 6b 61 67 65 2d 75 73 65 64 2d 62 79 2d 6c 69 73 74 20 28 73 6f | ........package-used-by-list.(so |
| a55a0 | 72 74 20 28 63 6f 70 79 2d 6c 69 73 74 20 70 61 63 6b 61 67 65 2d 75 73 65 64 2d 62 79 2d 6c 69 | rt.(copy-list.package-used-by-li |
| a55c0 | 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | st)............................. |
| a55e0 | 20 20 20 20 20 20 20 20 20 23 27 73 74 72 69 6e 67 3c 20 3a 6b 65 79 20 23 27 70 61 63 6b 61 67 | .........#'string<.:key.#'packag |
| a5600 | 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 73 68 61 64 6f 77 65 64 2d 73 79 6d 62 6f | e-name)...........shadowed-symbo |
| a5620 | 6c 73 20 20 20 20 20 28 73 6f 72 74 20 28 63 6f 70 79 2d 6c 69 73 74 20 73 68 61 64 6f 77 65 64 | ls.....(sort.(copy-list.shadowed |
| a5640 | 2d 73 79 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -symbols)....................... |
| a5660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 74 72 69 6e 67 3c 29 29 0a 20 20 20 20 3b | ...............#'string<)).....; |
| a5680 | 3b 3b 20 53 4f 52 54 20 2b 20 53 54 52 49 4e 47 2d 4c 45 53 53 50 20 63 6f 6e 73 65 73 20 6f 6e | ;;.SORT.+.STRING-LESSP.conses.on |
| a56a0 | 20 61 74 20 6c 65 61 73 74 20 53 42 43 4c 20 30 2e 39 2e 31 38 2e 0a 20 20 20 20 28 73 65 74 66 | .at.least.SBCL.0.9.18......(setf |
| a56c0 | 20 70 72 65 73 65 6e 74 2d 73 79 6d 62 6f 6c 73 20 20 20 20 20 20 28 73 6f 72 74 20 70 72 65 73 | .present-symbols......(sort.pres |
| a56e0 | 65 6e 74 2d 73 79 6d 62 6f 6c 73 20 20 23 27 73 74 72 69 6e 67 3c 29 0a 20 20 20 20 20 20 20 20 | ent-symbols..#'string<)......... |
| a5700 | 20 20 69 6e 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 20 20 20 20 20 28 73 6f 72 74 20 69 6e 74 | ..internal-symbols.....(sort.int |
| a5720 | 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 20 23 27 73 74 72 69 6e 67 3c 29 0a 20 20 20 20 20 20 20 | ernal-symbols.#'string<)........ |
| a5740 | 20 20 20 65 78 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 20 20 20 20 20 28 73 6f 72 74 20 65 78 | ...external-symbols.....(sort.ex |
| a5760 | 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 20 23 27 73 74 72 69 6e 67 3c 29 0a 20 20 20 20 20 20 | ternal-symbols.#'string<)....... |
| a5780 | 20 20 20 20 69 6e 68 65 72 69 74 65 64 2d 73 79 6d 62 6f 6c 73 20 20 20 20 28 73 6f 72 74 20 69 | ....inherited-symbols....(sort.i |
| a57a0 | 6e 68 65 72 69 74 65 64 2d 73 79 6d 62 6f 6c 73 20 23 27 73 74 72 69 6e 67 3c 29 29 0a 20 20 20 | nherited-symbols.#'string<)).... |
| a57c0 | 20 60 28 22 22 20 3b 3b 20 64 75 6d 6d 79 20 74 6f 20 70 72 65 73 65 72 76 65 20 69 6e 64 65 6e | .`("".;;.dummy.to.preserve.inden |
| a57e0 | 74 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 22 4e 61 6d 65 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c | tation........"Name:.".(:value., |
| a5800 | 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 0a 20 20 20 20 20 20 | package-name).(:newline)........ |
| a5820 | 22 4e 69 63 6b 6e 61 6d 65 73 3a 20 22 20 2c 40 28 63 6f 6d 6d 6f 6e 2d 73 65 70 65 72 61 74 65 | "Nicknames:.".,@(common-seperate |
| a5840 | 64 2d 73 70 65 63 20 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 73 29 20 28 3a 6e 65 77 6c | d-spec.package-nicknames).(:newl |
| a5860 | 69 6e 65 29 0a 0a 20 20 20 20 20 20 2c 40 28 77 68 65 6e 20 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 | ine)........,@(when.local-nickna |
| a5880 | 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 60 28 22 50 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 20 6e | mes...........`("Package-local.n |
| a58a0 | 69 63 6b 6e 61 6d 65 73 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 6c 6f 63 61 6c 2d 6e 69 63 6b 6e | icknames:.".(:value.,local-nickn |
| a58c0 | 61 6d 65 73 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 0a 20 20 20 20 20 20 2c 40 28 77 68 65 | ames).(:newline)))........,@(whe |
| a58e0 | 6e 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 70 61 63 6b 61 67 65 20 74 29 0a 20 20 20 20 | n.(documentation.package.t)..... |
| a5900 | 20 20 20 20 20 20 60 28 22 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 22 20 28 3a 6e 65 77 6c 69 | ......`("Documentation:".(:newli |
| a5920 | 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ne)............................. |
| a5940 | 20 2c 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 70 61 63 6b 61 67 65 20 74 29 20 28 3a 6e 65 | .,(documentation.package.t).(:ne |
| a5960 | 77 6c 69 6e 65 29 29 29 0a 0a 20 20 20 20 20 20 22 55 73 65 20 6c 69 73 74 3a 20 22 20 2c 40 28 | wline)))........"Use.list:.".,@( |
| a5980 | 63 6f 6d 6d 6f 6e 2d 73 65 70 65 72 61 74 65 64 2d 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 | common-seperated-spec........... |
| a59a0 | 20 20 20 20 20 20 20 20 20 20 20 20 70 61 63 6b 61 67 65 2d 75 73 65 2d 6c 69 73 74 0a 20 20 20 | ............package-use-list.... |
| a59c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 61 63 6b | ...................(lambda.(pack |
| a59e0 | 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a | age).........................`(: |
| a5a00 | 76 61 6c 75 65 20 2c 70 61 63 6b 61 67 65 20 2c 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 | value.,package.,(package-name.pa |
| a5a20 | 63 6b 61 67 65 29 29 29 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 0a 20 20 20 20 | ckage)))).......(:newline)...... |
| a5a40 | 20 20 22 55 73 65 64 20 62 79 20 6c 69 73 74 3a 20 22 20 2c 40 28 63 6f 6d 6d 6f 6e 2d 73 65 70 | .."Used.by.list:.".,@(common-sep |
| a5a60 | 65 72 61 74 65 64 2d 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | erated-spec..................... |
| a5a80 | 20 20 20 20 20 20 70 61 63 6b 61 67 65 2d 75 73 65 64 2d 62 79 2d 6c 69 73 74 0a 20 20 20 20 20 | ......package-used-by-list...... |
| a5aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 61 | .....................(lambda.(pa |
| a5ac0 | 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ckage).......................... |
| a5ae0 | 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 70 61 63 6b 61 67 65 20 2c 28 70 61 63 6b 61 67 65 2d 6e | ...`(:value.,package.,(package-n |
| a5b00 | 61 6d 65 20 70 61 63 6b 61 67 65 29 29 29 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 | ame.package)))).......(:newline) |
| a5b20 | 0a 0a 20 20 20 20 20 20 2c 28 64 69 73 70 6c 61 79 2d 6c 69 6e 6b 20 22 70 72 65 73 65 6e 74 22 | ........,(display-link."present" |
| a5b40 | 20 70 72 65 73 65 6e 74 2d 73 79 6d 62 6f 6c 73 20 20 70 72 65 73 65 6e 74 2d 73 79 6d 62 6f 6c | .present-symbols..present-symbol |
| a5b60 | 73 2d 6c 65 6e 67 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 | s-length......................:t |
| a5b80 | 69 74 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 | itle......................(forma |
| a5ba0 | 74 20 6e 69 6c 20 22 41 6c 6c 20 70 72 65 73 65 6e 74 20 73 79 6d 62 6f 6c 73 20 6f 66 20 70 61 | t.nil."All.present.symbols.of.pa |
| a5bc0 | 63 6b 61 67 65 20 5c 22 7e 41 5c 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ckage.\"~A\""................... |
| a5be0 | 20 20 20 20 20 20 20 20 20 20 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | ...........package-name)........ |
| a5c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 20 20 | ..............:description...... |
| a5c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 41 20 73 79 6d 62 6f 6c 20 69 73 20 63 | ................'("A.symbol.is.c |
| a5c40 | 6f 6e 73 69 64 65 72 65 64 20 70 72 65 73 65 6e 74 20 69 6e 20 61 20 70 61 63 6b 61 67 65 20 69 | onsidered.present.in.a.package.i |
| a5c60 | 66 20 69 74 27 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | f.it's"........................( |
| a5c80 | 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :newline)....................... |
| a5ca0 | 20 22 5c 22 61 63 63 65 73 73 69 62 6c 65 20 69 6e 20 74 68 61 74 20 70 61 63 6b 61 67 65 20 64 | ."\"accessible.in.that.package.d |
| a5cc0 | 69 72 65 63 74 6c 79 2c 20 72 61 74 68 65 72 20 74 68 61 6e 22 0a 20 20 20 20 20 20 20 20 20 20 | irectly,.rather.than"........... |
| a5ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 | .............(:newline)......... |
| a5d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 62 65 69 6e 67 20 69 6e 68 65 72 69 74 65 64 20 | ..............."being.inherited. |
| a5d20 | 66 72 6f 6d 20 61 6e 6f 74 68 65 72 20 70 61 63 6b 61 67 65 2e 5c 22 22 0a 20 20 20 20 20 20 20 | from.another.package.\""........ |
| a5d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 | ................(:newline)...... |
| a5d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 43 4c 48 53 20 67 6c 6f 73 73 61 72 | .................."(CLHS.glossar |
| a5d80 | 79 20 65 6e 74 72 79 20 66 6f 72 20 60 70 72 65 73 65 6e 74 27 29 22 0a 20 20 20 20 20 20 20 20 | y.entry.for.`present')"......... |
| a5da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 0a 20 20 20 | ...............(:newline)))..... |
| a5dc0 | 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 2c 28 64 69 73 70 6c 61 79 2d 6c 69 | ...(:newline).......,(display-li |
| a5de0 | 6e 6b 20 22 65 78 74 65 72 6e 61 6c 22 20 65 78 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 20 65 | nk."external".external-symbols.e |
| a5e00 | 78 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 2d 6c 65 6e 67 74 68 0a 20 20 20 20 20 20 20 20 20 | xternal-symbols-length.......... |
| a5e20 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 69 74 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............:title.............. |
| a5e40 | 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 41 6c 6c 20 65 78 74 65 72 6e 61 | ........(format.nil."All.externa |
| a5e60 | 6c 20 73 79 6d 62 6f 6c 73 20 6f 66 20 70 61 63 6b 61 67 65 20 5c 22 7e 41 5c 22 22 0a 20 20 20 | l.symbols.of.package.\"~A\"".... |
| a5e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 63 6b 61 67 | ..........................packag |
| a5ea0 | 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 | e-name)......................:de |
| a5ec0 | 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | scription......................' |
| a5ee0 | 28 22 41 20 73 79 6d 62 6f 6c 20 69 73 20 63 6f 6e 73 69 64 65 72 65 64 20 65 78 74 65 72 6e 61 | ("A.symbol.is.considered.externa |
| a5f00 | 6c 20 6f 66 20 61 20 70 61 63 6b 61 67 65 20 69 66 20 69 74 27 73 22 0a 20 20 20 20 20 20 20 20 | l.of.a.package.if.it's"......... |
| a5f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 | ...............(:newline)....... |
| a5f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 70 61 72 74 20 6f 66 20 74 68 65 20 | ................."\"part.of.the. |
| a5f60 | 60 65 78 74 65 72 6e 61 6c 20 69 6e 74 65 72 66 61 63 65 27 20 74 6f 20 74 68 65 20 70 61 63 6b | `external.interface'.to.the.pack |
| a5f80 | 61 67 65 20 61 6e 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | age.and"........................ |
| a5fa0 | 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (:newline)...................... |
| a5fc0 | 20 20 22 5b 69 73 5d 20 69 6e 68 65 72 69 74 65 64 20 62 79 20 61 6e 79 20 6f 74 68 65 72 20 70 | .."[is].inherited.by.any.other.p |
| a5fe0 | 61 63 6b 61 67 65 20 74 68 61 74 20 75 73 65 73 20 74 68 65 22 0a 20 20 20 20 20 20 20 20 20 20 | ackage.that.uses.the"........... |
| a6000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 | .............(:newline)......... |
| a6020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 61 63 6b 61 67 65 2e 5c 22 20 28 43 4c 48 53 | ..............."package.\".(CLHS |
| a6040 | 20 67 6c 6f 73 73 61 72 79 20 65 6e 74 72 79 20 6f 66 20 60 65 78 74 65 72 6e 61 6c 27 29 22 0a | .glossary.entry.of.`external')". |
| a6060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 | .......................(:newline |
| a6080 | 29 29 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 2c 28 64 69 73 | ))).......(:newline).......,(dis |
| a60a0 | 70 6c 61 79 2d 6c 69 6e 6b 20 22 69 6e 74 65 72 6e 61 6c 22 20 69 6e 74 65 72 6e 61 6c 2d 73 79 | play-link."internal".internal-sy |
| a60c0 | 6d 62 6f 6c 73 20 69 6e 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 2d 6c 65 6e 67 74 68 0a 20 20 | mbols.internal-symbols-length... |
| a60e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 69 74 6c 65 0a 20 20 20 20 20 20 | ...................:title....... |
| a6100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 41 6c 6c 20 | ...............(format.nil."All. |
| a6120 | 69 6e 74 65 72 6e 61 6c 20 73 79 6d 62 6f 6c 73 20 6f 66 20 70 61 63 6b 61 67 65 20 5c 22 7e 41 | internal.symbols.of.package.\"~A |
| a6140 | 5c 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | \""............................. |
| a6160 | 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .package-name).................. |
| a6180 | 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....:description................ |
| a61a0 | 20 20 20 20 20 20 27 28 22 41 20 73 79 6d 62 6f 6c 20 69 73 20 63 6f 6e 73 69 64 65 72 65 64 20 | ......'("A.symbol.is.considered. |
| a61c0 | 69 6e 74 65 72 6e 61 6c 20 6f 66 20 61 20 70 61 63 6b 61 67 65 20 69 66 20 69 74 27 73 22 0a 20 | internal.of.a.package.if.it's".. |
| a61e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 | ......................(:newline) |
| a6200 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 72 65 73 65 6e 74 | ........................"present |
| a6220 | 20 61 6e 64 20 6e 6f 74 20 65 78 74 65 72 6e 61 6c 2d 2d 2d 74 68 61 74 20 69 73 20 69 66 20 74 | .and.not.external---that.is.if.t |
| a6240 | 68 65 20 70 61 63 6b 61 67 65 20 69 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | he.package.is".................. |
| a6260 | 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(:newline)................ |
| a6280 | 20 20 20 20 20 20 20 20 22 74 68 65 20 68 6f 6d 65 20 70 61 63 6b 61 67 65 20 6f 66 20 74 68 65 | ........"the.home.package.of.the |
| a62a0 | 20 73 79 6d 62 6f 6c 2c 20 6f 72 20 69 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 68 61 73 22 0a 20 | .symbol,.or.if.the.symbol.has".. |
| a62c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 | ......................(:newline) |
| a62e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 62 65 65 6e 20 65 78 | ........................"been.ex |
| a6300 | 70 6c 69 63 69 74 6c 79 20 69 6d 70 6f 72 74 65 64 20 69 6e 74 6f 20 74 68 65 20 70 61 63 6b 61 | plicitly.imported.into.the.packa |
| a6320 | 67 65 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 | ge."........................(:ne |
| a6340 | 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a | wline)........................(: |
| a6360 | 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | newline)........................ |
| a6380 | 22 4e 6f 74 69 63 65 20 74 68 61 74 20 69 6e 68 65 72 69 74 65 64 20 73 79 6d 62 6f 6c 73 20 77 | "Notice.that.inherited.symbols.w |
| a63a0 | 69 6c 6c 20 74 68 75 73 20 6e 6f 74 20 62 65 20 6c 69 73 74 65 64 2c 22 0a 20 20 20 20 20 20 20 | ill.thus.not.be.listed,"........ |
| a63c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 | ................(:newline)...... |
| a63e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 77 68 69 63 68 20 64 65 6c 69 62 65 72 | .................."which.deliber |
| a6400 | 61 74 65 6c 79 20 64 65 76 69 61 74 65 73 20 66 72 6f 6d 20 74 68 65 20 43 4c 48 53 20 67 6c 6f | ately.deviates.from.the.CLHS.glo |
| a6420 | 73 73 61 72 79 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a | ssary"........................(: |
| a6440 | 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | newline)........................ |
| a6460 | 22 65 6e 74 72 79 20 6f 66 20 60 69 6e 74 65 72 6e 61 6c 27 20 62 65 63 61 75 73 65 20 69 74 27 | "entry.of.`internal'.because.it' |
| a6480 | 73 20 61 73 73 75 6d 65 64 20 74 6f 20 62 65 20 6d 6f 72 65 22 0a 20 20 20 20 20 20 20 20 20 20 | s.assumed.to.be.more"........... |
| a64a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 | .............(:newline)......... |
| a64c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 73 65 66 75 6c 20 74 68 69 73 20 77 61 79 2e | ..............."useful.this.way. |
| a64e0 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 | "........................(:newli |
| a6500 | 6e 65 29 29 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 2c 28 64 | ne))).......(:newline).......,(d |
| a6520 | 69 73 70 6c 61 79 2d 6c 69 6e 6b 20 22 69 6e 68 65 72 69 74 65 64 22 20 69 6e 68 65 72 69 74 65 | isplay-link."inherited".inherite |
| a6540 | 64 2d 73 79 6d 62 6f 6c 73 20 20 69 6e 68 65 72 69 74 65 64 2d 73 79 6d 62 6f 6c 73 2d 6c 65 6e | d-symbols..inherited-symbols-len |
| a6560 | 67 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 69 74 6c 65 0a | gth......................:title. |
| a6580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c | .....................(format.nil |
| a65a0 | 20 22 41 6c 6c 20 69 6e 68 65 72 69 74 65 64 20 73 79 6d 62 6f 6c 73 20 6f 66 20 70 61 63 6b 61 | ."All.inherited.symbols.of.packa |
| a65c0 | 67 65 20 5c 22 7e 41 5c 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ge.\"~A\""...................... |
| a65e0 | 20 20 20 20 20 20 20 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ........package-name)........... |
| a6600 | 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | ...........:description......... |
| a6620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 41 20 73 79 6d 62 6f 6c 20 69 73 20 63 6f 6e 73 | .............'("A.symbol.is.cons |
| a6640 | 69 64 65 72 65 64 20 69 6e 68 65 72 69 74 65 64 20 69 6e 20 61 20 70 61 63 6b 61 67 65 20 69 66 | idered.inherited.in.a.package.if |
| a6660 | 20 69 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 | .it"........................(:ne |
| a6680 | 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 77 | wline)........................"w |
| a66a0 | 61 73 20 6d 61 64 65 20 61 63 63 65 73 73 69 62 6c 65 20 76 69 61 20 55 53 45 2d 50 41 43 4b 41 | as.made.accessible.via.USE-PACKA |
| a66c0 | 47 45 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 | GE."........................(:ne |
| a66e0 | 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 | wline))).......(:newline)....... |
| a6700 | 2c 28 64 69 73 70 6c 61 79 2d 6c 69 6e 6b 20 22 73 68 61 64 6f 77 65 64 22 20 73 68 61 64 6f 77 | ,(display-link."shadowed".shadow |
| a6720 | 65 64 2d 73 79 6d 62 6f 6c 73 20 28 6c 65 6e 67 74 68 20 73 68 61 64 6f 77 65 64 2d 73 79 6d 62 | ed-symbols.(length.shadowed-symb |
| a6740 | 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 69 74 6c 65 | ols)......................:title |
| a6760 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 | ......................(format.ni |
| a6780 | 6c 20 22 41 6c 6c 20 73 68 61 64 6f 77 65 64 20 73 79 6d 62 6f 6c 73 20 6f 66 20 70 61 63 6b 61 | l."All.shadowed.symbols.of.packa |
| a67a0 | 67 65 20 5c 22 7e 41 5c 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ge.\"~A\""...................... |
| a67c0 | 20 20 20 20 20 20 20 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ........package-name)........... |
| a67e0 | 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 6e 69 6c 29 29 29 29 0a | ...........:description.nil)))). |
| a6800 | 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 70 61 74 | ..(defmethod.emacs-inspect.((pat |
| a6820 | 68 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 60 28 2c 28 69 66 20 28 77 69 6c 64 2d | hname.pathname))...`(,(if.(wild- |
| a6840 | 70 61 74 68 6e 61 6d 65 2d 70 20 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 22 41 | pathname-p.pathname).........."A |
| a6860 | 20 77 69 6c 64 20 70 61 74 68 6e 61 6d 65 2e 22 0a 20 20 20 20 20 20 20 20 20 22 41 20 70 61 74 | .wild.pathname.".........."A.pat |
| a6880 | 68 6e 61 6d 65 2e 22 29 0a 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 2c 40 | hname.")......(:newline)......,@ |
| a68a0 | 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 28 22 4e 61 6d | (label-value-line*.........("Nam |
| a68c0 | 65 73 74 72 69 6e 67 22 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 70 61 74 68 6e 61 6d 65 29 29 0a | estring".(namestring.pathname)). |
| a68e0 | 20 20 20 20 20 20 20 20 28 22 48 6f 73 74 22 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d | ........("Host".......(pathname- |
| a6900 | 68 6f 73 74 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 22 44 65 76 69 63 65 | host.pathname)).........("Device |
| a6920 | 22 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 64 65 76 69 63 65 20 70 61 74 68 6e 61 6d 65 29 | ".....(pathname-device.pathname) |
| a6940 | 29 0a 20 20 20 20 20 20 20 20 28 22 44 69 72 65 63 74 6f 72 79 22 20 20 28 70 61 74 68 6e 61 6d | ).........("Directory"..(pathnam |
| a6960 | 65 2d 64 69 72 65 63 74 6f 72 79 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 | e-directory.pathname)).........( |
| a6980 | 22 4e 61 6d 65 22 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 70 61 74 68 | "Name".......(pathname-name.path |
| a69a0 | 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 22 54 79 70 65 22 20 20 20 20 20 20 20 28 70 61 | name)).........("Type".......(pa |
| a69c0 | 74 68 6e 61 6d 65 2d 74 79 70 65 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 | thname-type.pathname)).........( |
| a69e0 | 22 56 65 72 73 69 6f 6e 22 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 76 65 72 73 69 6f 6e 20 70 | "Version"....(pathname-version.p |
| a6a00 | 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 2c 40 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 28 | athname)))......,@.(unless.(or.( |
| a6a20 | 77 69 6c 64 2d 70 61 74 68 6e 61 6d 65 2d 70 20 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 | wild-pathname-p.pathname)....... |
| a6a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 70 | ..............(not.(probe-file.p |
| a6a60 | 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 | athname)))...........(label-valu |
| a6a80 | 65 2d 6c 69 6e 65 20 22 54 72 75 65 6e 61 6d 65 22 20 28 74 72 75 65 6e 61 6d 65 20 70 61 74 68 | e-line."Truename".(truename.path |
| a6aa0 | 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 | name)))))..(defmethod.emacs-insp |
| a6ac0 | 65 63 74 20 28 28 70 61 74 68 6e 61 6d 65 20 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 29 | ect.((pathname.logical-pathname) |
| a6ae0 | 29 0a 20 20 28 61 70 70 65 6e 64 0a 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 | )...(append....(label-value-line |
| a6b00 | 2a 0a 20 20 20 20 28 22 4e 61 6d 65 73 74 72 69 6e 67 22 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 | *.....("Namestring".(namestring. |
| a6b20 | 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 28 22 50 68 79 73 69 63 61 6c 20 70 61 74 68 6e 61 | pathname)).....("Physical.pathna |
| a6b40 | 6d 65 3a 20 22 20 28 74 72 61 6e 73 6c 61 74 65 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d | me:.".(translate-logical-pathnam |
| a6b60 | 65 20 70 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 60 28 22 48 6f 73 74 3a 20 22 0a 20 20 20 20 | e.pathname)))....`("Host:."..... |
| a6b80 | 20 28 3a 76 61 6c 75 65 20 2c 28 70 61 74 68 6e 61 6d 65 2d 68 6f 73 74 20 70 61 74 68 6e 61 6d | .(:value.,(pathname-host.pathnam |
| a6ba0 | 65 29 29 0a 20 20 20 20 20 22 20 28 22 0a 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 6c 6f 67 | e))......".("......(:value.,(log |
| a6bc0 | 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 0a 20 20 20 20 20 | ical-pathname-translations...... |
| a6be0 | 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 68 6f 73 74 20 70 61 74 68 6e 61 6d | ..........(pathname-host.pathnam |
| a6c00 | 65 29 29 29 0a 20 20 20 20 20 22 20 6f 74 68 65 72 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 29 22 | e)))......".other.translations)" |
| a6c20 | 0a 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 | ......(:newline))....(label-valu |
| a6c40 | 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 28 22 44 69 72 65 63 74 6f 72 79 22 20 28 70 61 74 68 6e 61 | e-line*.....("Directory".(pathna |
| a6c60 | 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 28 22 4e 61 | me-directory.pathname)).....("Na |
| a6c80 | 6d 65 22 20 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 | me".(pathname-name.pathname))... |
| a6ca0 | 20 20 28 22 54 79 70 65 22 20 28 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 20 70 61 74 68 6e 61 6d | ..("Type".(pathname-type.pathnam |
| a6cc0 | 65 29 29 0a 20 20 20 20 28 22 56 65 72 73 69 6f 6e 22 20 28 70 61 74 68 6e 61 6d 65 2d 76 65 72 | e)).....("Version".(pathname-ver |
| a6ce0 | 73 69 6f 6e 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 28 22 54 72 75 65 6e 61 6d 65 22 20 | sion.pathname)).....("Truename". |
| a6d00 | 28 69 66 20 28 6e 6f 74 20 28 77 69 6c 64 2d 70 61 74 68 6e 61 6d 65 2d 70 20 70 61 74 68 6e 61 | (if.(not.(wild-pathname-p.pathna |
| a6d20 | 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 62 65 2d | me)).....................(probe- |
| a6d40 | 66 69 6c 65 20 70 61 74 68 6e 61 6d 65 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 | file.pathname))))))..(defmethod. |
| a6d60 | 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6e 20 6e 75 6d 62 65 72 29 29 0a 20 20 60 28 22 | emacs-inspect.((n.number))...`(" |
| a6d80 | 56 61 6c 75 65 3a 20 22 20 2c 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 6e 29 29 29 0a | Value:.".,(princ-to-string.n))). |
| a6da0 | 0a 28 64 65 66 75 6e 20 66 6f 72 6d 61 74 2d 69 73 6f 38 36 30 31 2d 74 69 6d 65 20 28 74 69 6d | .(defun.format-iso8601-time.(tim |
| a6dc0 | 65 2d 76 61 6c 75 65 20 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 63 6c 75 64 65 2d 74 69 6d 65 7a 6f | e-value.&optional.include-timezo |
| a6de0 | 6e 65 2d 70 29 0a 20 20 22 46 6f 72 6d 61 74 73 20 61 20 75 6e 69 76 65 72 73 61 6c 20 74 69 6d | ne-p)..."Formats.a.universal.tim |
| a6e00 | 65 20 54 49 4d 45 2d 56 41 4c 55 45 20 69 6e 20 49 53 4f 20 38 36 30 31 20 66 6f 72 6d 61 74 2c | e.TIME-VALUE.in.ISO.8601.format, |
| a6e20 | 20 77 69 74 68 0a 20 20 20 20 74 68 65 20 74 69 6d 65 20 7a 6f 6e 65 20 69 6e 63 6c 75 64 65 64 | .with.....the.time.zone.included |
| a6e40 | 20 69 66 20 49 4e 43 4c 55 44 45 2d 54 49 4d 45 5a 4f 4e 45 2d 50 20 69 73 20 6e 6f 6e 2d 4e 49 | .if.INCLUDE-TIMEZONE-P.is.non-NI |
| a6e60 | 4c 22 0a 20 20 3b 3b 20 54 61 6b 65 6e 20 66 72 6f 6d 20 68 74 74 70 3a 2f 2f 77 77 77 2e 70 76 | L"...;;.Taken.from.http://www.pv |
| a6e80 | 76 2e 6e 74 6e 75 2e 6e 6f 2f 7e 6e 73 61 61 2f 49 53 4f 38 36 30 31 2e 68 74 6d 6c 0a 20 20 3b | v.ntnu.no/~nsaa/ISO8601.html...; |
| a6ea0 | 3b 20 54 68 61 6e 6b 73 2c 20 4e 69 6b 6f 6c 61 69 20 53 61 6e 64 76 65 64 20 61 6e 64 20 54 68 | ;.Thanks,.Nikolai.Sandved.and.Th |
| a6ec0 | 6f 6d 61 73 20 52 75 73 73 21 0a 20 20 28 66 6c 65 74 20 28 28 66 6f 72 6d 61 74 2d 69 73 6f 38 | omas.Russ!...(flet.((format-iso8 |
| a6ee0 | 36 30 31 2d 74 69 6d 65 7a 6f 6e 65 20 28 7a 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | 601-timezone.(zone)............( |
| a6f00 | 69 66 20 28 7a 65 72 6f 70 20 7a 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | if.(zerop.zone)................" |
| a6f20 | 5a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | Z"................(multiple-valu |
| a6f40 | 65 2d 62 69 6e 64 20 28 68 20 6d 29 20 28 74 72 75 6e 63 61 74 65 20 28 61 62 73 20 7a 6f 6e 65 | e-bind.(h.m).(truncate.(abs.zone |
| a6f60 | 29 20 31 2e 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 72 69 63 6b | ).1.0)..................;;.Trick |
| a6f80 | 79 2e 20 20 53 69 67 6e 20 6f 66 20 74 69 6d 65 20 7a 6f 6e 65 20 69 73 20 72 65 76 65 72 73 65 | y...Sign.of.time.zone.is.reverse |
| a6fa0 | 64 20 69 6e 20 49 53 4f 20 38 36 30 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | d.in.ISO.8601..................; |
| a6fc0 | 3b 20 72 65 6c 61 74 69 76 65 20 74 6f 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 63 6f 6e 76 65 6e | ;.relative.to.Common.Lisp.conven |
| a6fe0 | 74 69 6f 6e 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e | tion!..................(format.n |
| a7000 | 69 6c 20 22 7e 3a 5b 2b 7e 3b 2d 7e 5d 7e 32 2c 27 30 44 3a 7e 32 2c 27 30 44 22 0a 20 20 20 20 | il."~:[+~;-~]~2,'0D:~2,'0D"..... |
| a7020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 20 7a 6f 6e 65 20 30 29 20 | .....................(>.zone.0). |
| a7040 | 68 20 28 72 6f 75 6e 64 20 28 2a 20 36 30 20 6d 29 29 29 29 29 29 29 0a 20 20 20 20 28 6d 75 6c | h.(round.(*.60.m))))))).....(mul |
| a7060 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 65 63 6f 6e 64 20 6d 69 6e 75 74 65 20 | tiple-value-bind.(second.minute. |
| a7080 | 68 6f 75 72 20 64 61 79 20 6d 6f 6e 74 68 20 79 65 61 72 20 64 6f 77 20 64 73 74 20 7a 6f 6e 65 | hour.day.month.year.dow.dst.zone |
| a70a0 | 29 0a 20 20 20 20 20 20 20 20 28 64 65 63 6f 64 65 2d 75 6e 69 76 65 72 73 61 6c 2d 74 69 6d 65 | ).........(decode-universal-time |
| a70c0 | 20 74 69 6d 65 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e | .time-value).......(declare.(ign |
| a70e0 | 6f 72 65 20 64 6f 77 29 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 34 2c | ore.dow)).......(format.nil."~4, |
| a7100 | 27 30 44 2d 7e 32 2c 27 30 44 2d 7e 32 2c 27 30 44 54 7e 32 2c 27 30 44 3a 7e 32 2c 27 30 44 3a | '0D-~2,'0D-~2,'0DT~2,'0D:~2,'0D: |
| a7120 | 7e 32 2c 27 30 44 7e 3a 5b 7e 2a 7e 3b 7e 41 7e 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ~2,'0D~:[~*~;~A~]".............. |
| a7140 | 20 79 65 61 72 20 6d 6f 6e 74 68 20 64 61 79 20 68 6f 75 72 20 6d 69 6e 75 74 65 20 73 65 63 6f | .year.month.day.hour.minute.seco |
| a7160 | 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 63 6c 75 64 65 2d 74 69 6d 65 7a 6f 6e | nd...............include-timezon |
| a7180 | 65 2d 70 20 28 66 6f 72 6d 61 74 2d 69 73 6f 38 36 30 31 2d 74 69 6d 65 7a 6f 6e 65 20 28 69 66 | e-p.(format-iso8601-timezone.(if |
| a71a0 | 20 64 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .dst............................ |
| a71c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a71e0 | 20 20 20 28 2b 20 7a 6f 6e 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(+.zone.1)................... |
| a7200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a7220 | 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 | ............zone))))))..(defmeth |
| a7240 | 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 69 20 69 6e 74 65 67 65 72 29 29 0a 20 | od.emacs-inspect.((i.integer)).. |
| a7260 | 20 28 61 70 70 65 6e 64 0a 20 20 20 60 28 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 56 61 6c 75 | .(append....`(,(format.nil."Valu |
| a7280 | 65 3a 20 7e 44 20 3d 20 23 78 7e 38 2c 27 30 58 20 3d 20 23 6f 7e 4f 20 3d 20 23 62 7e 2c 2c 27 | e:.~D.=.#x~8,'0X.=.#o~O.=.#b~,,' |
| a72a0 | 20 2c 38 3a 42 7e 40 5b 20 3d 20 7e 45 7e 5d 22 0a 09 20 20 20 20 20 20 69 20 69 20 69 20 69 20 | .,8:B~@[.=.~E~]"........i.i.i.i. |
| a72c0 | 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 63 6f 65 72 63 65 20 69 20 27 66 6c 6f 61 74 29 | (ignore-errors.(coerce.i.'float) |
| a72e0 | 29 29 0a 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 28 77 68 65 6e 20 28 3c 20 | ))......(:newline))....(when.(<. |
| a7300 | 2d 31 20 69 20 63 68 61 72 2d 63 6f 64 65 2d 6c 69 6d 69 74 29 0a 20 20 20 20 20 28 6c 61 62 65 | -1.i.char-code-limit)......(labe |
| a7320 | 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 22 43 6f 64 65 2d 63 68 61 72 22 20 28 63 6f 64 65 2d 63 | l-value-line."Code-char".(code-c |
| a7340 | 68 61 72 20 69 29 29 29 0a 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 22 49 | har.i)))....(label-value-line."I |
| a7360 | 6e 74 65 67 65 72 2d 6c 65 6e 67 74 68 22 20 28 69 6e 74 65 67 65 72 2d 6c 65 6e 67 74 68 20 69 | nteger-length".(integer-length.i |
| a7380 | 29 29 0a 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 28 6c 61 62 65 6c 2d | ))....(ignore-errors.....(label- |
| a73a0 | 76 61 6c 75 65 2d 6c 69 6e 65 20 22 55 6e 69 76 65 72 73 61 6c 2d 74 69 6d 65 22 20 28 66 6f 72 | value-line."Universal-time".(for |
| a73c0 | 6d 61 74 2d 69 73 6f 38 36 30 31 2d 74 69 6d 65 20 69 20 74 29 29 29 29 29 0a 0a 28 64 65 66 6d | mat-iso8601-time.i.t)))))..(defm |
| a73e0 | 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 63 20 63 6f 6d 70 6c 65 78 29 | ethod.emacs-inspect.((c.complex) |
| a7400 | 29 0a 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 28 22 52 65 61 6c | )...(label-value-line*....("Real |
| a7420 | 20 70 61 72 74 22 20 28 72 65 61 6c 70 61 72 74 20 63 29 29 0a 20 20 20 28 22 49 6d 61 67 69 6e | .part".(realpart.c))....("Imagin |
| a7440 | 61 72 79 20 70 61 72 74 22 20 28 69 6d 61 67 70 61 72 74 20 63 29 29 29 29 0a 0a 28 64 65 66 6d | ary.part".(imagpart.c))))..(defm |
| a7460 | 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 72 20 72 61 74 69 6f 29 29 0a | ethod.emacs-inspect.((r.ratio)). |
| a7480 | 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 28 22 4e 75 6d 65 72 61 | ..(label-value-line*....("Numera |
| a74a0 | 74 6f 72 22 20 28 6e 75 6d 65 72 61 74 6f 72 20 72 29 29 0a 20 20 20 28 22 44 65 6e 6f 6d 69 6e | tor".(numerator.r))....("Denomin |
| a74c0 | 61 74 6f 72 22 20 28 64 65 6e 6f 6d 69 6e 61 74 6f 72 20 72 29 29 0a 20 20 20 28 22 41 73 20 66 | ator".(denominator.r))....("As.f |
| a74e0 | 6c 6f 61 74 22 20 28 66 6c 6f 61 74 20 72 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 | loat".(float.r))))..(defmethod.e |
| a7500 | 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 66 20 66 6c 6f 61 74 29 29 0a 20 20 28 63 6f 6e 64 | macs-inspect.((f.float))...(cond |
| a7520 | 0a 20 20 20 20 28 28 66 6c 6f 61 74 2d 6e 61 6e 2d 70 20 66 29 0a 20 20 20 20 20 3b 3b 20 74 72 | .....((float-nan-p.f)......;;.tr |
| a7540 | 79 20 4e 61 4e 20 66 69 72 73 74 20 62 65 63 61 75 73 65 20 74 68 65 20 6e 65 78 74 20 74 65 73 | y.NaN.first.because.the.next.tes |
| a7560 | 74 73 20 6d 61 79 20 70 65 72 66 6f 72 6d 20 6f 70 65 72 61 74 69 6f 6e 73 0a 20 20 20 20 20 3b | ts.may.perform.operations......; |
| a7580 | 3b 20 74 68 61 74 20 61 72 65 20 75 6e 64 65 66 69 6e 65 64 20 66 6f 72 20 4e 61 4e 73 2e 0a 20 | ;.that.are.undefined.for.NaNs... |
| a75a0 | 20 20 20 20 28 6c 69 73 74 20 22 4e 6f 74 20 61 20 4e 75 6d 62 65 72 2e 22 29 29 0a 20 20 20 20 | ....(list."Not.a.Number."))..... |
| a75c0 | 28 28 6e 6f 74 20 28 66 6c 6f 61 74 2d 69 6e 66 69 6e 69 74 79 2d 70 20 66 29 29 0a 20 20 20 20 | ((not.(float-infinity-p.f))..... |
| a75e0 | 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 69 67 6e 69 66 69 63 61 | .(multiple-value-bind.(significa |
| a7600 | 6e 64 20 65 78 70 6f 6e 65 6e 74 20 73 69 67 6e 29 20 28 64 65 63 6f 64 65 2d 66 6c 6f 61 74 20 | nd.exponent.sign).(decode-float. |
| a7620 | 66 29 0a 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 09 60 28 22 53 63 69 65 6e 74 69 66 69 63 | f)........(append..`("Scientific |
| a7640 | 3a 20 22 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 45 22 20 66 29 20 28 3a 6e 65 77 6c 69 | :.".,(format.nil."~E".f).(:newli |
| a7660 | 6e 65 29 0a 09 09 09 20 22 44 65 63 6f 64 65 64 3a 20 22 0a 09 09 09 20 28 3a 76 61 6c 75 65 20 | ne)....."Decoded:.".....(:value. |
| a7680 | 2c 73 69 67 6e 29 20 22 20 2a 20 22 0a 09 09 09 20 28 3a 76 61 6c 75 65 20 2c 73 69 67 6e 69 66 | ,sign).".*.".....(:value.,signif |
| a76a0 | 69 63 61 6e 64 29 20 22 20 2a 20 22 0a 09 09 09 20 28 3a 76 61 6c 75 65 20 2c 28 66 6c 6f 61 74 | icand).".*.".....(:value.,(float |
| a76c0 | 2d 72 61 64 69 78 20 66 29 29 20 22 5e 22 0a 09 09 09 20 28 3a 76 61 6c 75 65 20 2c 65 78 70 6f | -radix.f))."^".....(:value.,expo |
| a76e0 | 6e 65 6e 74 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 09 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d | nent).(:newline))..(label-value- |
| a7700 | 6c 69 6e 65 20 22 44 69 67 69 74 73 22 20 28 66 6c 6f 61 74 2d 64 69 67 69 74 73 20 66 29 29 0a | line."Digits".(float-digits.f)). |
| a7720 | 09 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 22 50 72 65 63 69 73 69 6f 6e 22 20 28 | .(label-value-line."Precision".( |
| a7740 | 66 6c 6f 61 74 2d 70 72 65 63 69 73 69 6f 6e 20 66 29 29 29 29 29 0a 20 20 20 20 28 28 3e 20 66 | float-precision.f))))).....((>.f |
| a7760 | 20 30 29 0a 20 20 20 20 20 28 6c 69 73 74 20 22 50 6f 73 69 74 69 76 65 20 69 6e 66 69 6e 69 74 | .0)......(list."Positive.infinit |
| a7780 | 79 2e 22 29 29 0a 20 20 20 20 28 28 3c 20 66 20 30 29 0a 20 20 20 20 20 28 6c 69 73 74 20 22 4e | y.")).....((<.f.0)......(list."N |
| a77a0 | 65 67 61 74 69 76 65 20 69 6e 66 69 6e 69 74 79 2e 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d | egative.infinity."))))..(defun.m |
| a77c0 | 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d 69 73 70 65 63 20 28 70 61 74 68 6e 61 6d 65 20 70 6f 73 | ake-pathname-ispec.(pathname.pos |
| a77e0 | 69 74 69 6f 6e 29 0a 20 20 60 28 22 50 61 74 68 6e 61 6d 65 3a 20 22 0a 20 20 20 20 28 3a 76 61 | ition)...`("Pathname:.".....(:va |
| a7800 | 6c 75 65 20 2c 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 20 22 20 | lue.,pathname).....(:newline).". |
| a7820 | 20 22 0a 20 20 20 20 2c 40 28 77 68 65 6e 20 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | .".....,@(when.position......... |
| a7840 | 60 28 28 3a 61 63 74 69 6f 6e 20 22 5b 76 69 73 69 74 20 66 69 6c 65 20 61 6e 64 20 73 68 6f 77 | `((:action."[visit.file.and.show |
| a7860 | 20 63 75 72 72 65 6e 74 20 70 6f 73 69 74 69 6f 6e 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .current.position]"............. |
| a7880 | 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......,(lambda.().............. |
| a78a0 | 20 20 20 20 20 20 20 20 20 28 65 64 2d 69 6e 2d 65 6d 61 63 73 20 60 28 2c 70 61 74 68 6e 61 6d | .........(ed-in-emacs.`(,pathnam |
| a78c0 | 65 20 3a 70 6f 73 69 74 69 6f 6e 20 2c 70 6f 73 69 74 69 6f 6e 20 3a 62 79 74 65 70 20 74 29 29 | e.:position.,position.:bytep.t)) |
| a78e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 6e | )....................:refreshp.n |
| a7900 | 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 29 29 0a 0a 28 64 | il)...........(:newline)))))..(d |
| a7920 | 65 66 75 6e 20 6d 61 6b 65 2d 66 69 6c 65 2d 73 74 72 65 61 6d 2d 69 73 70 65 63 20 28 73 74 72 | efun.make-file-stream-ispec.(str |
| a7940 | 65 61 6d 29 0a 20 20 3b 3b 20 53 42 43 4c 27 73 20 73 6f 63 6b 65 74 20 73 74 72 65 61 6d 20 61 | eam)...;;.SBCL's.socket.stream.a |
| a7960 | 72 65 20 66 69 6c 65 2d 73 74 72 65 61 6d 20 62 75 74 20 61 72 65 20 6e 6f 74 20 61 73 73 6f 63 | re.file-stream.but.are.not.assoc |
| a7980 | 69 61 74 65 64 20 74 6f 0a 20 20 3b 3b 20 61 6e 79 20 70 61 74 68 6e 61 6d 65 2e 0a 20 20 28 6c | iated.to...;;.any.pathname....(l |
| a79a0 | 65 74 20 28 28 70 61 74 68 6e 61 6d 65 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 70 61 | et.((pathname.(ignore-errors.(pa |
| a79c0 | 74 68 6e 61 6d 65 20 73 74 72 65 61 6d 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 70 61 74 68 | thname.stream)))).....(when.path |
| a79e0 | 6e 61 6d 65 0a 20 20 20 20 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d 69 73 70 65 63 20 | name.......(make-pathname-ispec. |
| a7a00 | 70 61 74 68 6e 61 6d 65 20 28 61 6e 64 20 28 6f 70 65 6e 2d 73 74 72 65 61 6d 2d 70 20 73 74 72 | pathname.(and.(open-stream-p.str |
| a7a20 | 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eam)............................ |
| a7a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 | ..............(file-position.str |
| a7a60 | 65 61 6d 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 | eam))))))..(defmethod.emacs-insp |
| a7a80 | 65 63 74 20 28 28 73 74 72 65 61 6d 20 66 69 6c 65 2d 73 74 72 65 61 6d 29 29 0a 20 20 28 6d 75 | ect.((stream.file-stream))...(mu |
| a7aa0 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 63 6f 6e 74 65 6e 74 29 0a 20 20 20 20 | ltiple-value-bind.(content)..... |
| a7ac0 | 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 0a 20 20 20 20 28 61 70 70 65 6e 64 | ..(call-next-method).....(append |
| a7ae0 | 20 28 6d 61 6b 65 2d 66 69 6c 65 2d 73 74 72 65 61 6d 2d 69 73 70 65 63 20 73 74 72 65 61 6d 29 | .(make-file-stream-ispec.stream) |
| a7b00 | 20 63 6f 6e 74 65 6e 74 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e | .content)))..(defmethod.emacs-in |
| a7b20 | 73 70 65 63 74 20 28 28 63 6f 6e 64 69 74 69 6f 6e 20 73 74 72 65 61 6d 2d 65 72 72 6f 72 29 29 | spect.((condition.stream-error)) |
| a7b40 | 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 63 6f 6e 74 65 6e 74 | ...(multiple-value-bind.(content |
| a7b60 | 29 0a 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 0a 20 20 20 20 28 | ).......(call-next-method).....( |
| a7b80 | 6c 65 74 20 28 28 73 74 72 65 61 6d 20 28 73 74 72 65 61 6d 2d 65 72 72 6f 72 2d 73 74 72 65 61 | let.((stream.(stream-error-strea |
| a7ba0 | 6d 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 77 68 | m.condition))).......(append.(wh |
| a7bc0 | 65 6e 20 28 74 79 70 65 70 20 73 74 72 65 61 6d 20 27 66 69 6c 65 2d 73 74 72 65 61 6d 29 0a 20 | en.(typep.stream.'file-stream).. |
| a7be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 66 69 6c 65 2d 73 74 72 65 61 6d | ...............(make-file-stream |
| a7c00 | 2d 69 73 70 65 63 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f | -ispec.stream))...............co |
| a7c20 | 6e 74 65 6e 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 73 65 70 65 72 61 74 | ntent))))..(defun.common-seperat |
| a7c40 | 65 64 2d 73 70 65 63 20 28 6c 69 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 28 63 61 6c 6c 62 61 63 | ed-spec.(list.&optional.(callbac |
| a7c60 | 6b 20 28 6c 61 6d 62 64 61 20 28 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | k.(lambda.(v)................... |
| a7c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a7ca0 | 20 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 76 29 29 29 29 0a 20 20 28 62 75 74 6c 61 73 | .......`(:value.,v))))...(butlas |
| a7cc0 | 74 0a 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 66 6f 72 20 69 20 69 6e 20 6c 69 73 74 0a 20 | t....(loop.......for.i.in.list.. |
| a7ce0 | 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 66 75 6e 63 61 6c 6c 20 63 61 6c 6c 62 61 63 6b 20 69 | .....collect.(funcall.callback.i |
| a7d00 | 29 0a 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 22 2c 20 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ).......collect.",.")))..(defun. |
| a7d20 | 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 63 20 28 6c 69 73 74 29 0a 20 20 22 4c 69 6b 65 20 70 | inspector-princ.(list)..."Like.p |
| a7d40 | 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 2c 20 62 75 74 20 64 6f 6e 27 74 20 72 65 77 72 69 74 | rinc-to-string,.but.don't.rewrit |
| a7d60 | 65 20 28 66 75 6e 63 74 69 6f 6e 20 66 6f 6f 29 20 61 73 20 23 27 66 6f 6f 2e 0a 44 6f 20 4e 4f | e.(function.foo).as.#'foo..Do.NO |
| a7d80 | 54 20 70 61 73 73 20 63 69 72 63 75 6c 61 72 20 6c 69 73 74 73 20 74 6f 20 74 68 69 73 20 66 75 | T.pass.circular.lists.to.this.fu |
| a7da0 | 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 70 70 72 69 6e 74 2d | nction."...(let.((*print-pprint- |
| a7dc0 | 64 69 73 70 61 74 63 68 2a 20 28 63 6f 70 79 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 29 | dispatch*.(copy-pprint-dispatch) |
| a7de0 | 29 29 0a 20 20 20 20 28 73 65 74 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 20 27 28 63 6f | )).....(set-pprint-dispatch.'(co |
| a7e00 | 6e 73 20 28 6d 65 6d 62 65 72 20 66 75 6e 63 74 69 6f 6e 29 29 20 6e 69 6c 29 0a 20 20 20 20 28 | ns.(member.function)).nil).....( |
| a7e20 | 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 6c 69 73 74 29 29 29 0a 0a 28 70 72 6f 76 69 64 | princ-to-string.list)))..(provid |
| a7e40 | 65 20 3a 73 77 61 6e 6b 2d 66 61 6e 63 79 2d 69 6e 73 70 65 63 74 6f 72 29 0a 00 00 00 00 00 00 | e.:swank-fancy-inspector)....... |
| a7e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a7fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 6c 69 73 74 65 6e 65 | slime-2.31/contrib/swank-listene |
| a8020 | 72 2d 68 6f 6f 6b 73 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | r-hooks.lisp.................... |
| a8040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| a8080 | 30 30 30 36 34 31 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 36 33 32 00 20 30 00 00 00 | 0006412.00000000000.017632..0... |
| a80a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a80c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a80e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| a8120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| a8140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a81a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a81c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a81e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8200 | 3b 3b 3b 20 73 77 61 6e 6b 2d 6c 69 73 74 65 6e 65 72 2d 68 6f 6f 6b 73 2e 6c 69 73 70 20 2d 2d | ;;;.swank-listener-hooks.lisp.-- |
| a8220 | 2d 20 6c 69 73 74 65 6e 65 72 20 77 69 74 68 20 73 70 65 63 69 61 6c 20 68 6f 6f 6b 73 0a 3b 3b | -.listener.with.special.hooks.;; |
| a8240 | 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 41 6c 61 6e 20 52 75 74 74 65 6e 62 65 72 67 20 20 3c 61 6c | .;;.Author:.Alan.Ruttenberg..<al |
| a8260 | 61 6e 72 2d 6c 40 6d 75 6d 62 6c 65 2e 6e 65 74 3e 0a 0a 3b 3b 20 50 72 6f 76 69 64 65 73 20 2a | anr-l@mumble.net>..;;.Provides.* |
| a8280 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 73 2a 20 73 70 65 63 69 61 6c 20 76 | slime-repl-eval-hooks*.special.v |
| a82a0 | 61 72 69 61 62 6c 65 20 77 68 69 63 68 0a 3b 3b 20 63 61 6e 20 62 65 20 75 73 65 64 20 66 6f 72 | ariable.which.;;.can.be.used.for |
| a82c0 | 20 65 61 73 79 20 69 6e 74 65 72 63 65 70 74 69 6f 6e 20 6f 66 20 53 4c 49 4d 45 20 52 45 50 4c | .easy.interception.of.SLIME.REPL |
| a82e0 | 20 66 6f 72 6d 20 65 76 61 6c 75 61 74 69 6f 6e 0a 3b 3b 20 66 6f 72 20 70 75 72 70 6f 73 65 73 | .form.evaluation.;;.for.purposes |
| a8300 | 20 73 75 63 68 20 61 73 20 69 6e 74 65 67 72 61 74 69 6f 6e 20 77 69 74 68 20 61 70 70 6c 69 63 | .such.as.integration.with.applic |
| a8320 | 61 74 69 6f 6e 20 65 76 65 6e 74 20 6c 6f 6f 70 2e 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a | ation.event.loop...(in-package.: |
| a8340 | 73 77 61 6e 6b 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 | swank)..(eval-when.(:compile-top |
| a8360 | 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 | level.:load-toplevel.:execute).. |
| a8380 | 20 28 73 77 61 6e 6b 2d 72 65 71 75 69 72 65 20 3a 73 77 61 6e 6b 2d 72 65 70 6c 29 29 0a 0a 28 | .(swank-require.:swank-repl))..( |
| a83a0 | 64 65 66 76 61 72 20 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 64 76 61 6e 63 65 2d 68 69 73 74 6f | defvar.*slime-repl-advance-histo |
| a83c0 | 72 79 2a 20 6e 69 6c 0a 20 20 22 49 6e 20 74 68 65 20 64 79 6e 61 6d 69 63 20 73 63 6f 70 65 20 | ry*.nil..."In.the.dynamic.scope. |
| a83e0 | 6f 66 20 61 20 73 69 6e 67 6c 65 20 66 6f 72 6d 20 74 79 70 65 64 20 61 74 20 74 68 65 20 72 65 | of.a.single.form.typed.at.the.re |
| a8400 | 70 6c 2c 20 69 73 20 73 65 74 20 74 6f 20 6e 69 6c 20 74 6f 0a 20 20 20 70 72 65 76 65 6e 74 20 | pl,.is.set.to.nil.to....prevent. |
| a8420 | 74 68 65 20 72 65 70 6c 20 66 72 6f 6d 20 61 64 76 61 6e 63 69 6e 67 20 74 68 65 20 68 69 73 74 | the.repl.from.advancing.the.hist |
| a8440 | 6f 72 79 20 2d 20 2a 20 2a 2a 20 2a 2a 2a 20 65 74 63 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a | ory.-.*.**.***.etc.")..(defvar.* |
| a8460 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 75 70 70 72 65 73 73 2d 6f 75 74 70 75 74 2a 20 6e 69 6c 0a | slime-repl-suppress-output*.nil. |
| a8480 | 20 20 22 49 6e 20 74 68 65 20 64 79 6e 61 6d 69 63 20 73 63 6f 70 65 20 6f 66 20 61 20 73 69 6e | .."In.the.dynamic.scope.of.a.sin |
| a84a0 | 67 6c 65 20 66 6f 72 6d 20 74 79 70 65 64 20 61 74 20 74 68 65 20 72 65 70 6c 2c 20 69 73 20 73 | gle.form.typed.at.the.repl,.is.s |
| a84c0 | 65 74 20 74 6f 20 6e 69 6c 20 74 6f 0a 20 20 20 70 72 65 76 65 6e 74 20 74 68 65 20 72 65 70 6c | et.to.nil.to....prevent.the.repl |
| a84e0 | 20 66 72 6f 6d 20 70 72 69 6e 74 69 6e 67 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 68 65 | .from.printing.the.result.of.the |
| a8500 | 20 65 76 61 6c 61 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c 69 6d 65 2d 72 65 | .evalation.")..(defvar.*slime-re |
| a8520 | 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 2d 70 61 73 73 2a 20 28 67 65 6e 73 79 6d 20 22 50 41 53 53 | pl-eval-hook-pass*.(gensym."PASS |
| a8540 | 22 29 0a 20 20 22 54 6f 6b 65 6e 20 74 6f 20 69 6e 64 69 63 61 74 65 20 74 68 61 74 20 61 20 72 | ")..."Token.to.indicate.that.a.r |
| a8560 | 65 70 6c 20 68 6f 6f 6b 20 64 65 63 6c 69 6e 65 73 20 74 6f 20 65 76 61 6c 75 61 74 65 20 74 68 | epl.hook.declines.to.evaluate.th |
| a8580 | 65 20 66 6f 72 6d 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 76 | e.form")..(defvar.*slime-repl-ev |
| a85a0 | 61 6c 2d 68 6f 6f 6b 73 2a 20 6e 69 6c 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 66 75 6e 63 74 | al-hooks*.nil..."A.list.of.funct |
| a85c0 | 69 6f 6e 73 2e 20 57 68 65 6e 20 74 68 65 20 72 65 70 6c 20 69 73 20 61 62 6f 75 74 20 74 6f 20 | ions..When.the.repl.is.about.to. |
| a85e0 | 65 76 61 6c 20 61 20 66 6f 72 6d 2c 20 66 69 72 73 74 20 74 72 79 20 72 75 6e 6e 69 6e 67 20 65 | eval.a.form,.first.try.running.e |
| a8600 | 61 63 68 20 6f 66 0a 20 20 20 74 68 65 73 65 20 68 6f 6f 6b 73 2e 20 54 68 65 20 66 69 72 73 74 | ach.of....these.hooks..The.first |
| a8620 | 20 68 6f 6f 6b 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 20 61 20 76 61 6c 75 65 20 77 68 69 63 | .hook.which.returns.a.value.whic |
| a8640 | 68 20 69 73 20 6e 6f 74 20 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 2d 70 | h.is.not.*slime-repl-eval-hook-p |
| a8660 | 61 73 73 2a 0a 20 20 20 69 73 20 63 6f 6e 73 69 64 65 72 65 64 20 61 20 72 65 70 6c 61 63 65 6d | ass*....is.considered.a.replacem |
| a8680 | 65 6e 74 20 66 6f 72 20 63 61 6c 6c 69 6e 67 20 65 76 61 6c 2e 20 49 66 20 74 68 65 72 65 20 61 | ent.for.calling.eval..If.there.a |
| a86a0 | 72 65 20 6e 6f 20 68 6f 6f 6b 73 2c 20 6f 72 20 61 6c 6c 0a 20 20 20 70 61 73 73 2c 20 74 68 65 | re.no.hooks,.or.all....pass,.the |
| a86c0 | 6e 20 65 76 61 6c 20 69 73 20 75 73 65 64 2e 22 29 0a 0a 28 65 78 70 6f 72 74 20 27 2a 73 6c 69 | n.eval.is.used.")..(export.'*sli |
| a86e0 | 6d 65 2d 72 65 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 73 2a 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 | me-repl-eval-hooks*)..(defslimef |
| a8700 | 75 6e 20 72 65 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 2d 70 61 73 73 20 28 29 0a 20 20 22 63 61 6c | un.repl-eval-hook-pass.()..."cal |
| a8720 | 6c 20 77 68 65 6e 20 72 65 70 6c 20 68 6f 6f 6b 20 64 65 63 6c 69 6e 65 73 20 74 6f 20 65 76 61 | l.when.repl.hook.declines.to.eva |
| a8740 | 6c 75 61 74 65 20 74 68 65 20 66 6f 72 6d 22 0a 20 20 28 74 68 72 6f 77 20 2a 73 6c 69 6d 65 2d | luate.the.form"...(throw.*slime- |
| a8760 | 72 65 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 2d 70 61 73 73 2a 20 2a 73 6c 69 6d 65 2d 72 65 70 6c | repl-eval-hook-pass*.*slime-repl |
| a8780 | 2d 65 76 61 6c 2d 68 6f 6f 6b 2d 70 61 73 73 2a 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e | -eval-hook-pass*))..(defslimefun |
| a87a0 | 20 72 65 70 6c 2d 73 75 70 70 72 65 73 73 2d 6f 75 74 70 75 74 20 28 29 0a 20 20 22 49 6e 20 74 | .repl-suppress-output.()..."In.t |
| a87c0 | 68 65 20 64 79 6e 61 6d 69 63 20 73 63 6f 70 65 20 6f 66 20 61 20 73 69 6e 67 6c 65 20 66 6f 72 | he.dynamic.scope.of.a.single.for |
| a87e0 | 6d 20 74 79 70 65 64 20 61 74 20 74 68 65 20 72 65 70 6c 2c 20 63 61 6c 6c 20 74 6f 0a 20 20 20 | m.typed.at.the.repl,.call.to.... |
| a8800 | 70 72 65 76 65 6e 74 20 74 68 65 20 72 65 70 6c 20 66 72 6f 6d 20 70 72 69 6e 74 69 6e 67 20 74 | prevent.the.repl.from.printing.t |
| a8820 | 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 68 65 20 65 76 61 6c 61 74 69 6f 6e 2e 22 0a 20 20 28 | he.result.of.the.evalation."...( |
| a8840 | 73 65 74 71 20 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 75 70 70 72 65 73 73 2d 6f 75 74 70 75 74 | setq.*slime-repl-suppress-output |
| a8860 | 2a 20 74 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 72 65 70 6c 2d 73 75 70 70 72 65 73 | *.t))..(defslimefun.repl-suppres |
| a8880 | 73 2d 61 64 76 61 6e 63 65 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 22 49 6e 20 74 68 65 20 64 | s-advance-history.()..."In.the.d |
| a88a0 | 79 6e 61 6d 69 63 20 73 63 6f 70 65 20 6f 66 20 61 20 73 69 6e 67 6c 65 20 66 6f 72 6d 20 74 79 | ynamic.scope.of.a.single.form.ty |
| a88c0 | 70 65 64 20 61 74 20 74 68 65 20 72 65 70 6c 2c 20 63 61 6c 6c 20 74 6f 0a 20 20 20 70 72 65 76 | ped.at.the.repl,.call.to....prev |
| a88e0 | 65 6e 74 20 74 68 65 20 72 65 70 6c 20 66 72 6f 6d 20 61 64 76 61 6e 63 69 6e 67 20 74 68 65 20 | ent.the.repl.from.advancing.the. |
| a8900 | 68 69 73 74 6f 72 79 20 2d 20 2a 20 2a 2a 20 2a 2a 2a 20 65 74 63 2e 22 0a 20 20 28 73 65 74 71 | history.-.*.**.***.etc."...(setq |
| a8920 | 20 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 64 76 61 6e 63 65 2d 68 69 73 74 6f 72 79 2a 20 6e 69 | .*slime-repl-advance-history*.ni |
| a8940 | 6c 29 29 0a 0a 28 64 65 66 75 6e 20 25 65 76 61 6c 2d 72 65 67 69 6f 6e 20 28 73 74 72 69 6e 67 | l))..(defun.%eval-region.(string |
| a8960 | 29 0a 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 74 72 | )...(with-input-from-string.(str |
| a8980 | 65 61 6d 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 6c 65 74 20 28 2d 20 76 61 6c 75 65 73 29 0a | eam.string).....(let.(-.values). |
| a89a0 | 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 20 28 | ......(loop........(let.((form.( |
| a89c0 | 72 65 61 64 20 73 74 72 65 61 6d 20 6e 69 6c 20 73 74 72 65 61 6d 29 29 29 0a 09 20 28 77 68 65 | read.stream.nil.stream)))...(whe |
| a89e0 | 6e 20 28 65 71 20 66 6f 72 6d 20 73 74 72 65 61 6d 29 0a 09 20 20 20 28 66 72 65 73 68 2d 6c 69 | n.(eq.form.stream).....(fresh-li |
| a8a00 | 6e 65 29 0a 09 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 0a 09 20 20 20 28 72 65 74 | ne).....(finish-output).....(ret |
| a8a20 | 75 72 6e 20 28 76 61 6c 75 65 73 20 76 61 6c 75 65 73 20 2d 29 29 29 0a 09 20 28 73 65 74 71 20 | urn.(values.values.-)))...(setq. |
| a8a40 | 2d 20 66 6f 72 6d 29 0a 09 20 28 69 66 20 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 76 61 6c 2d 68 | -.form)...(if.*slime-repl-eval-h |
| a8a60 | 6f 6f 6b 73 2a 0a 09 20 20 20 20 20 28 73 65 74 71 20 76 61 6c 75 65 73 20 28 72 75 6e 2d 72 65 | ooks*.......(setq.values.(run-re |
| a8a80 | 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 73 20 66 6f 72 6d 29 29 0a 09 20 20 20 20 20 28 73 65 74 71 | pl-eval-hooks.form)).......(setq |
| a8aa0 | 20 76 61 6c 75 65 73 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 65 76 | .values.(multiple-value-list.(ev |
| a8ac0 | 61 6c 20 66 6f 72 6d 29 29 29 29 0a 09 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 29 29 29 | al.form))))...(finish-output)))) |
| a8ae0 | 29 29 0a 0a 28 64 65 66 75 6e 20 72 75 6e 2d 72 65 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 73 20 28 | ))..(defun.run-repl-eval-hooks.( |
| a8b00 | 66 6f 72 6d 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 68 6f 6f 6b 20 69 6e 20 2a 73 6c 69 6d 65 | form)...(loop.for.hook.in.*slime |
| a8b20 | 2d 72 65 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 73 2a 0a 09 66 6f 72 20 72 65 73 20 3d 20 20 28 63 | -repl-eval-hooks*..for.res.=..(c |
| a8b40 | 61 74 63 68 20 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 2d 70 61 73 73 2a | atch.*slime-repl-eval-hook-pass* |
| a8b60 | 0a 09 09 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 66 75 | ........(multiple-value-list.(fu |
| a8b80 | 6e 63 61 6c 6c 20 68 6f 6f 6b 20 66 6f 72 6d 29 29 29 0a 09 75 6e 74 69 6c 20 28 6e 6f 74 20 28 | ncall.hook.form)))..until.(not.( |
| a8ba0 | 65 71 20 72 65 73 20 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 2d 70 61 73 | eq.res.*slime-repl-eval-hook-pas |
| a8bc0 | 73 2a 29 29 0a 09 66 69 6e 61 6c 6c 79 20 28 72 65 74 75 72 6e 0a 09 09 20 20 28 69 66 20 28 65 | s*))..finally.(return.....(if.(e |
| a8be0 | 71 20 72 65 73 20 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 76 61 6c 2d 68 6f 6f 6b 2d 70 61 73 73 | q.res.*slime-repl-eval-hook-pass |
| a8c00 | 2a 29 0a 09 09 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 | *).........(multiple-value-list. |
| a8c20 | 28 65 76 61 6c 20 66 6f 72 6d 29 29 0a 09 09 20 20 20 20 20 20 72 65 73 29 29 29 29 0a 0a 28 64 | (eval.form)).........res))))..(d |
| a8c40 | 65 66 75 6e 20 25 6c 69 73 74 65 6e 65 72 2d 65 76 61 6c 20 28 73 74 72 69 6e 67 29 0a 20 20 28 | efun.%listener-eval.(string)...( |
| a8c60 | 63 6c 65 61 72 2d 75 73 65 72 2d 69 6e 70 75 74 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 | clear-user-input)...(with-buffer |
| a8c80 | 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 73 77 61 6e 6b 2d 72 65 70 6c 3a 3a 74 72 61 63 | -syntax.().....(swank-repl::trac |
| a8ca0 | 6b 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 | k-package......(lambda.()....... |
| a8cc0 | 20 28 6c 65 74 20 28 28 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 75 70 70 72 65 73 73 2d 6f 75 74 | .(let.((*slime-repl-suppress-out |
| a8ce0 | 70 75 74 2a 20 3a 75 6e 73 65 74 29 0a 09 20 20 20 20 20 28 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d | put*.:unset).......(*slime-repl- |
| a8d00 | 61 64 76 61 6e 63 65 2d 68 69 73 74 6f 72 79 2a 20 3a 75 6e 73 65 74 29 29 0a 09 20 28 6d 75 6c | advance-history*.:unset))...(mul |
| a8d20 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 76 61 6c 75 65 73 20 6c 61 73 74 2d 66 6f | tiple-value-bind.(values.last-fo |
| a8d40 | 72 6d 29 20 28 25 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73 74 72 69 6e 67 29 0a 09 20 20 20 28 75 | rm).(%eval-region.string).....(u |
| a8d60 | 6e 6c 65 73 73 20 28 6f 72 20 28 61 6e 64 20 28 65 71 20 76 61 6c 75 65 73 20 6e 69 6c 29 20 28 | nless.(or.(and.(eq.values.nil).( |
| a8d80 | 65 71 20 6c 61 73 74 2d 66 6f 72 6d 20 6e 69 6c 29 29 0a 09 09 20 20 20 20 20 20 20 28 65 71 20 | eq.last-form.nil))..........(eq. |
| a8da0 | 2a 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 64 76 61 6e 63 65 2d 68 69 73 74 6f 72 79 2a 20 6e 69 6c | *slime-repl-advance-history*.nil |
| a8dc0 | 29 29 0a 09 20 20 20 20 20 28 73 65 74 71 20 2a 2a 2a 20 2a 2a 20 20 2a 2a 20 2a 20 20 2a 20 28 | )).......(setq.***.**..**.*..*.( |
| a8de0 | 63 61 72 20 76 61 6c 75 65 73 29 0a 09 09 20 20 20 2f 2f 2f 20 2f 2f 20 20 2f 2f 20 2f 20 20 2f | car.values)......///.//..//./../ |
| a8e00 | 20 76 61 6c 75 65 73 29 29 0a 09 20 20 20 28 73 65 74 71 20 2b 2b 2b 20 2b 2b 20 20 2b 2b 20 2b | .values)).....(setq.+++.++..++.+ |
| a8e20 | 20 20 2b 20 6c 61 73 74 2d 66 6f 72 6d 29 0a 09 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 2a | ..+.last-form).....(unless.(eq.* |
| a8e40 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 75 70 70 72 65 73 73 2d 6f 75 74 70 75 74 2a 20 74 29 0a 09 | slime-repl-suppress-output*.t).. |
| a8e60 | 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 73 77 61 6e 6b 2d 72 65 70 6c 3a 3a 2a 73 65 6e 64 2d | .....(funcall.swank-repl::*send- |
| a8e80 | 72 65 70 6c 2d 72 65 73 75 6c 74 73 2d 66 75 6e 63 74 69 6f 6e 2a 20 76 61 6c 75 65 73 29 29 29 | repl-results-function*.values))) |
| a8ea0 | 29 29 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 73 65 74 71 20 73 77 61 6e 6b 2d 72 65 70 6c 3a 3a 2a | ))))...nil)..(setq.swank-repl::* |
| a8ec0 | 6c 69 73 74 65 6e 65 72 2d 65 76 61 6c 2d 66 75 6e 63 74 69 6f 6e 2a 20 27 25 6c 69 73 74 65 6e | listener-eval-function*.'%listen |
| a8ee0 | 65 72 2d 65 76 61 6c 29 0a 0a 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 6c 69 73 74 65 6e | er-eval)..(provide.:swank-listen |
| a8f00 | 65 72 2d 68 6f 6f 6b 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | er-hooks)....................... |
| a8f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a8fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a9000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 70 61 72 73 65 2e 65 | slime-2.31/contrib/slime-parse.e |
| a9020 | 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | l............................... |
| a9040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a9060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| a9080 | 30 30 34 30 31 33 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 31 37 00 20 30 00 00 00 | 0040137.00000000000.015417..0... |
| a90a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a90c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a90e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a9100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| a9120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| a9140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a9160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a9180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a91a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a91c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a91e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| a9200 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 | (require.'slime).(require.'cl-li |
| a9220 | 62 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d | b)..(define-slime-contrib.slime- |
| a9240 | 70 61 72 73 65 0a 20 20 22 55 74 69 6c 69 74 79 20 63 6f 6e 74 72 69 62 20 63 6f 6e 74 61 69 6e | parse..."Utility.contrib.contain |
| a9260 | 67 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 70 61 72 73 65 20 66 6f 72 6d 73 20 69 6e 20 61 20 | g.functions.to.parse.forms.in.a. |
| a9280 | 62 75 66 66 65 72 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 4d 61 74 74 68 69 61 73 20 4b | buffer."...(:authors."Matthias.K |
| a92a0 | 6f 65 70 70 65 20 20 3c 6d 6b 6f 65 70 70 65 40 6d 61 69 6c 2e 6d 61 74 68 2e 75 6e 69 2d 6d 61 | oeppe..<mkoeppe@mail.math.uni-ma |
| a92c0 | 67 64 65 62 75 72 67 2e 64 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 54 6f 62 69 61 73 | gdeburg.de>"............."Tobias |
| a92e0 | 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 73 2e 64 65 3e | .C..Rittweiler.<tcr@freebits.de> |
| a9300 | 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 29 0a 0a 28 64 65 66 75 6e 20 73 | ")...(:license."GPL"))..(defun.s |
| a9320 | 6c 69 6d 65 2d 70 61 72 73 65 2d 66 6f 72 6d 2d 75 6e 74 69 6c 20 28 6c 69 6d 69 74 20 66 6f 72 | lime-parse-form-until.(limit.for |
| a9340 | 6d 2d 73 75 66 66 69 78 29 0a 20 20 22 50 61 72 73 65 73 20 66 6f 72 6d 20 66 72 6f 6d 20 70 6f | m-suffix)..."Parses.form.from.po |
| a9360 | 69 6e 74 20 74 6f 20 60 6c 69 6d 69 74 27 2e 22 0a 20 20 3b 3b 20 46 6f 72 20 70 65 72 66 6f 72 | int.to.`limit'."...;;.For.perfor |
| a9380 | 6d 61 6e 63 65 20 72 65 61 73 6f 6e 73 2c 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 | mance.reasons,.this.function.doe |
| a93a0 | 73 20 6e 6f 74 20 75 73 65 20 72 65 63 75 72 73 69 6f 6e 2e 0a 20 20 28 6c 65 74 20 28 28 74 6f | s.not.use.recursion....(let.((to |
| a93c0 | 64 6f 20 28 6c 69 73 74 20 28 70 6f 69 6e 74 29 29 29 20 3b 20 73 74 61 63 6b 20 6f 66 20 70 6f | do.(list.(point))).;.stack.of.po |
| a93e0 | 73 69 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 28 73 65 78 70 73 29 20 20 20 20 20 20 20 20 20 | sitions.........(sexps)......... |
| a9400 | 20 20 20 20 20 20 3b 20 73 74 61 63 6b 20 6f 66 20 65 78 70 72 65 73 73 69 6f 6e 73 0a 20 20 20 | ......;.stack.of.expressions.... |
| a9420 | 20 20 20 20 20 28 63 75 72 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 28 63 75 72 70 6f 73 29 0a | .....(cursexp).........(curpos). |
| a9440 | 20 20 20 20 20 20 20 20 28 64 65 70 74 68 20 31 29 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 | ........(depth.1))............;. |
| a9460 | 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6d 75 73 74 20 62 65 20 63 61 6c 6c 65 64 20 66 72 6f | This.function.must.be.called.fro |
| a9480 | 6d 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m.the........................... |
| a94a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 73 65 78 | ..............;.start.of.the.sex |
| a94c0 | 70 20 74 6f 20 62 65 20 70 61 72 73 65 64 2e 0a 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 | p.to.be.parsed......(while.(and. |
| a94e0 | 28 73 65 74 71 20 63 75 72 70 6f 73 20 28 70 6f 70 20 74 6f 64 6f 29 29 0a 20 20 20 20 20 20 20 | (setq.curpos.(pop.todo))........ |
| a9500 | 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(progn................. |
| a9520 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 63 75 72 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..(goto-char.curpos)............ |
| a9540 | 20 20 20 20 20 20 20 3b 3b 20 28 48 65 72 65 20 77 65 20 61 6c 73 6f 20 6d 6f 76 65 20 6f 76 65 | .......;;.(Here.we.also.move.ove |
| a9560 | 72 20 73 75 70 70 72 65 73 73 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | r.suppressed...................; |
| a9580 | 3b 20 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 69 7a 65 64 20 63 6f 64 65 21 20 49 | ;.reader-conditionalized.code!.I |
| a95a0 | 6d 70 6f 72 74 61 6e 74 20 73 6f 20 43 4c 2d 73 69 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | mportant.so.CL-side............. |
| a95c0 | 20 20 20 20 20 20 3b 3b 20 6f 66 20 61 75 74 6f 64 6f 63 20 77 6f 6e 27 74 20 73 65 65 20 74 68 | ......;;.of.autodoc.won't.see.th |
| a95e0 | 61 74 20 67 61 72 62 61 67 65 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | at.garbage.)...................( |
| a9600 | 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 63 72 75 | ignore-errors.(slime-forward-cru |
| a9620 | 66 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 28 70 6f 69 6e 74 | ft))...................(<.(point |
| a9640 | 29 20 6c 69 6d 69 74 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 75 72 73 65 78 70 20 28 | ).limit))).......(setq.cursexp.( |
| a9660 | 70 6f 70 20 73 65 78 70 73 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 3b | pop.sexps)).......(cond........; |
| a9680 | 3b 20 45 6e 64 20 6f 66 20 61 6e 20 73 65 78 70 3f 0a 20 20 20 20 20 20 20 28 28 6f 72 20 28 6c | ;.End.of.an.sexp?........((or.(l |
| a96a0 | 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 29 22 29 20 28 65 6f 6c 70 29 29 0a 20 20 20 20 20 20 | ooking-at."\\s)").(eolp))....... |
| a96c0 | 20 20 28 63 6c 2d 64 65 63 66 20 64 65 70 74 68 29 0a 20 20 20 20 20 20 20 20 28 70 75 73 68 20 | ..(cl-decf.depth).........(push. |
| a96e0 | 28 6e 72 65 76 65 72 73 65 20 63 75 72 73 65 78 70 29 20 28 63 61 72 20 73 65 78 70 73 29 29 29 | (nreverse.cursexp).(car.sexps))) |
| a9700 | 0a 20 20 20 20 20 20 20 3b 3b 20 53 74 61 72 74 20 6f 66 20 61 20 6e 65 77 20 73 65 78 70 3f 0a | ........;;.Start.of.a.new.sexp?. |
| a9720 | 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 27 2a 40 2a 5c 5c 73 28 | .......((looking-at."\\s'*@*\\s( |
| a9740 | 22 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 75 62 70 74 20 28 6d 61 74 63 68 2d 65 | ").........(let.((subpt.(match-e |
| a9760 | 6e 64 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 | nd.0)))...........(ignore-errors |
| a9780 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 | .............(forward-sexp)..... |
| a97a0 | 20 20 20 20 20 20 20 20 3b 3b 20 28 49 6e 20 63 61 73 65 20 6f 66 20 65 72 72 6f 72 2c 20 77 65 | ........;;.(In.case.of.error,.we |
| a97c0 | 27 72 65 20 61 74 20 61 6e 20 69 6e 63 6f 6d 70 6c 65 74 65 20 73 65 78 70 2c 20 61 6e 64 0a 20 | 're.at.an.incomplete.sexp,.and.. |
| a97e0 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6e 6f 74 68 69 6e 67 27 73 20 6c 65 66 74 20 74 6f 64 | ...........;;.nothing's.left.tod |
| a9800 | 6f 20 61 66 74 65 72 20 69 74 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 | o.after.it.).............(push.( |
| a9820 | 70 6f 69 6e 74 29 20 74 6f 64 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 63 75 | point).todo))...........(push.cu |
| a9840 | 72 73 65 78 70 20 73 65 78 70 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 73 75 62 | rsexp.sexps)...........(push.sub |
| a9860 | 70 74 20 74 6f 64 6f 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 6f 20 64 65 73 63 65 6e 64 | pt.todo)............;.to.descend |
| a9880 | 20 69 6e 74 6f 20 6e 65 77 20 73 65 78 70 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6e | .into.new.sexp...........(push.n |
| a98a0 | 69 6c 20 73 65 78 70 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 64 65 70 | il.sexps)...........(cl-incf.dep |
| a98c0 | 74 68 29 29 29 0a 20 20 20 20 20 20 20 3b 3b 20 49 6e 20 6d 69 64 20 6f 66 20 61 6e 20 73 65 78 | th)))........;;.In.mid.of.an.sex |
| a98e0 | 70 2e 2e 0a 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 74 31 | p..........(t.........(let.((pt1 |
| a9900 | 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 74 32 20 28 63 6f | .(point))...............(pt2.(co |
| a9920 | 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ndition-case.e.................. |
| a9940 | 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 20 28 70 6f 69 | ......(progn.(forward-sexp).(poi |
| a9960 | 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 63 61 6e 2d | nt))......................(scan- |
| a9980 | 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d | error.......................(cl- |
| a99a0 | 66 6f 75 72 74 68 20 65 29 29 29 29 29 20 20 20 3b 20 65 6e 64 20 6f 66 20 73 65 78 70 0a 20 20 | fourth.e)))))...;.end.of.sexp... |
| a99c0 | 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d | ........(push.(buffer-substring- |
| a99e0 | 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 70 74 31 20 70 74 32 29 20 63 75 72 73 65 78 70 29 0a | no-properties.pt1.pt2).cursexp). |
| a9a00 | 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 70 74 32 20 74 6f 64 6f 29 0a 20 20 20 20 20 20 | ..........(push.pt2.todo)....... |
| a9a20 | 20 20 20 20 28 70 75 73 68 20 63 75 72 73 65 78 70 20 73 65 78 70 73 29 29 29 29 29 0a 20 20 20 | ....(push.cursexp.sexps))))).... |
| a9a40 | 20 28 77 68 65 6e 20 73 65 78 70 73 0a 20 20 20 20 20 20 28 69 66 20 28 63 61 72 20 73 65 78 70 | .(when.sexps.......(if.(car.sexp |
| a9a60 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 63 61 72 20 73 65 78 70 73 29 20 28 | s)...........(setf.(car.sexps).( |
| a9a80 | 63 6c 2d 6e 72 65 63 6f 6e 63 20 66 6f 72 6d 2d 73 75 66 66 69 78 20 28 63 61 72 20 73 65 78 70 | cl-nreconc.form-suffix.(car.sexp |
| a9aa0 | 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 63 61 72 20 73 65 78 70 73 29 | s)))...........(setf.(car.sexps) |
| a9ac0 | 20 28 6e 72 65 76 65 72 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(nreverse...................... |
| a9ae0 | 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 28 63 61 72 20 66 6f 72 6d 2d 73 75 66 | ........(if.(equal.(car.form-suf |
| a9b00 | 66 69 78 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fix)."")........................ |
| a9b20 | 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 2d 73 75 66 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 | ..........form-suffix........... |
| a9b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 22 22 20 | .......................(cons."". |
| a9b60 | 66 6f 72 6d 2d 73 75 66 66 69 78 29 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 3e | form-suffix))))).......(while.(> |
| a9b80 | 20 64 65 70 74 68 20 31 29 0a 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6e 72 65 76 65 72 73 | .depth.1).........(push.(nrevers |
| a9ba0 | 65 20 28 70 6f 70 20 73 65 78 70 73 29 29 20 28 63 61 72 20 73 65 78 70 73 29 29 0a 20 20 20 20 | e.(pop.sexps)).(car.sexps))..... |
| a9bc0 | 20 20 20 20 28 63 6c 2d 64 65 63 66 20 64 65 70 74 68 29 29 0a 20 20 20 20 20 20 28 6e 72 65 76 | ....(cl-decf.depth)).......(nrev |
| a9be0 | 65 72 73 65 20 28 63 61 72 20 73 65 78 70 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | erse.(car.sexps)))))..(defun.sli |
| a9c00 | 6d 65 2d 63 6f 6d 70 61 72 65 2d 63 68 61 72 2d 73 79 6e 74 61 78 20 28 67 65 74 2d 63 68 61 72 | me-compare-char-syntax.(get-char |
| a9c20 | 2d 66 6e 20 73 79 6e 74 61 78 20 26 6f 70 74 69 6f 6e 61 6c 20 75 6e 65 73 63 61 70 65 64 29 0a | -fn.syntax.&optional.unescaped). |
| a9c40 | 20 20 22 52 65 74 75 72 6e 73 20 74 20 69 66 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 74 68 | .."Returns.t.if.the.character.th |
| a9c60 | 61 74 20 60 67 65 74 2d 63 68 61 72 2d 66 6e 27 20 79 69 65 6c 64 73 20 68 61 73 0a 63 68 61 72 | at.`get-char-fn'.yields.has.char |
| a9c80 | 61 63 65 72 20 73 79 6e 74 61 78 20 6f 66 20 60 73 79 6e 74 61 78 27 2e 20 49 66 20 60 75 6e 65 | acer.syntax.of.`syntax'..If.`une |
| a9ca0 | 73 63 61 70 65 64 27 20 69 73 20 74 72 75 65 2c 20 69 74 27 73 20 65 6e 73 75 72 65 64 0a 74 68 | scaped'.is.true,.it's.ensured.th |
| a9cc0 | 61 74 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 69 73 20 6e 6f 74 20 65 73 63 61 70 65 64 2e | at.the.character.is.not.escaped. |
| a9ce0 | 22 0a 20 20 28 6c 65 74 20 28 28 63 68 61 72 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 | "...(let.((char........(funcall. |
| a9d00 | 67 65 74 2d 63 68 61 72 2d 66 6e 20 28 70 6f 69 6e 74 29 29 29 0a 09 28 63 68 61 72 2d 62 65 66 | get-char-fn.(point)))..(char-bef |
| a9d20 | 6f 72 65 20 28 66 75 6e 63 61 6c 6c 20 67 65 74 2d 63 68 61 72 2d 66 6e 20 28 31 2d 20 28 70 6f | ore.(funcall.get-char-fn.(1-.(po |
| a9d40 | 69 6e 74 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 63 68 61 72 20 28 65 71 20 28 | int))))).....(if.(and.char.(eq.( |
| a9d60 | 63 68 61 72 2d 73 79 6e 74 61 78 20 63 68 61 72 29 20 28 61 72 65 66 20 73 79 6e 74 61 78 20 30 | char-syntax.char).(aref.syntax.0 |
| a9d80 | 29 29 29 0a 09 28 69 66 20 75 6e 65 73 63 61 70 65 64 0a 09 20 20 20 20 28 6f 72 20 28 6e 75 6c | )))..(if.unescaped......(or.(nul |
| a9da0 | 6c 20 63 68 61 72 2d 62 65 66 6f 72 65 29 0a 09 09 28 6e 6f 74 20 28 65 71 20 28 63 68 61 72 2d | l.char-before)...(not.(eq.(char- |
| a9dc0 | 73 79 6e 74 61 78 20 63 68 61 72 2d 62 65 66 6f 72 65 29 20 3f 5c 5c 29 29 29 0a 20 20 20 20 20 | syntax.char-before).?\\)))...... |
| a9de0 | 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 | .....t).......nil)))..(defconst. |
| a9e00 | 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 20 27 73 77 61 6e 6b 3a 3a 25 63 75 72 | slime-cursor-marker.'swank::%cur |
| a9e20 | 73 6f 72 2d 6d 61 72 6b 65 72 25 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 61 72 73 65 | sor-marker%)..(defun.slime-parse |
| a9e40 | 2d 66 6f 72 6d 2d 75 70 74 6f 2d 70 6f 69 6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d 61 78 2d | -form-upto-point.(&optional.max- |
| a9e60 | 6c 65 76 65 6c 73 29 0a 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 | levels)...(save-restriction..... |
| a9e80 | 3b 3b 20 44 6f 6e 27 74 20 70 61 72 73 65 20 6d 6f 72 65 20 74 68 61 6e 20 35 30 30 20 6c 69 6e | ;;.Don't.parse.more.than.500.lin |
| a9ea0 | 65 73 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2c 20 73 6f 20 77 65 20 64 6f 6e 27 74 20 73 70 65 | es.before.point,.so.we.don't.spe |
| a9ec0 | 6e 64 0a 20 20 20 20 3b 3b 20 74 6f 6f 20 6d 75 63 68 20 74 69 6d 65 2e 20 4e 42 2e 20 4d 61 6b | nd.....;;.too.much.time..NB..Mak |
| a9ee0 | 65 20 73 75 72 65 20 74 6f 20 67 6f 20 74 6f 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 6c 69 6e | e.sure.to.go.to.beginning.of.lin |
| a9f00 | 65 2c 20 61 6e 64 0a 20 20 20 20 3b 3b 20 6e 6f 74 20 70 6f 73 73 69 62 6c 79 20 61 6e 79 77 68 | e,.and.....;;.not.possibly.anywh |
| a9f20 | 65 72 65 20 69 6e 73 69 64 65 20 63 6f 6d 6d 65 6e 74 73 20 6f 72 20 73 74 72 69 6e 67 73 2e 0a | ere.inside.comments.or.strings.. |
| a9f40 | 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 28 6c 69 6e 65 2d 62 65 67 69 | ....(narrow-to-region.(line-begi |
| a9f60 | 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 20 2d 35 30 30 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 | nning-position.-500).(point-max) |
| a9f80 | 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 6c 65 74 | ).....(save-excursion.......(let |
| a9fa0 | 20 28 28 73 75 66 66 69 78 20 28 6c 69 73 74 20 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 | .((suffix.(list.slime-cursor-mar |
| a9fc0 | 6b 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 6c 69 6d 65 2d 63 6f 6d | ker))).........(cond.((slime-com |
| a9fe0 | 70 61 72 65 2d 63 68 61 72 2d 73 79 6e 74 61 78 20 23 27 63 68 61 72 2d 61 66 74 65 72 20 22 28 | pare-char-syntax.#'char-after."( |
| aa000 | 22 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 27 72 65 20 61 74 20 | ".t)................;;.We're.at. |
| aa020 | 74 68 65 20 73 74 61 72 74 20 6f 66 20 73 6f 6d 65 20 65 78 70 72 65 73 73 69 6f 6e 2c 20 73 6f | the.start.of.some.expression,.so |
| aa040 | 20 6d 61 6b 65 20 73 75 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 61 | .make.sure................;;.tha |
| aa060 | 74 20 53 57 41 4e 4b 3a 3a 25 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 25 20 77 69 6c 6c 20 63 6f | t.SWANK::%CURSOR-MARKER%.will.co |
| aa080 | 6d 65 20 61 66 74 65 72 20 74 68 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | me.after.that................;;. |
| aa0a0 | 65 78 70 72 65 73 73 69 6f 6e 2e 20 49 66 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 69 73 | expression..If.the.expression.is |
| aa0c0 | 20 6e 6f 74 20 62 61 6c 61 6e 63 65 64 2c 20 6d 61 6b 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .not.balanced,.make............. |
| aa0e0 | 20 20 20 3b 3b 20 73 74 69 6c 6c 20 73 75 72 65 20 74 68 61 74 20 74 68 65 20 6d 61 72 6b 65 72 | ...;;.still.sure.that.the.marker |
| aa100 | 20 64 6f 65 73 20 2a 6e 6f 74 2a 20 63 6f 6d 65 20 64 69 72 65 63 74 6c 79 0a 20 20 20 20 20 20 | .does.*not*.come.directly....... |
| aa120 | 20 20 20 20 20 20 20 20 20 3b 3b 20 61 66 74 65 72 20 74 68 65 20 70 72 65 63 65 64 69 6e 67 20 | .........;;.after.the.preceding. |
| aa140 | 65 78 70 72 65 73 73 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 | expression.................(or.( |
| aa160 | 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 20 74 29 0a | ignore-errors.(forward-sexp).t). |
| aa180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 22 22 20 73 75 66 66 | ...................(push."".suff |
| aa1a0 | 69 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 28 62 6f 6c 70 29 20 | ix)))...............((or.(bolp). |
| aa1c0 | 28 73 6c 69 6d 65 2d 63 6f 6d 70 61 72 65 2d 63 68 61 72 2d 73 79 6e 74 61 78 20 23 27 63 68 61 | (slime-compare-char-syntax.#'cha |
| aa1e0 | 72 2d 62 65 66 6f 72 65 20 22 20 22 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-before.".".t))................ |
| aa200 | 3b 3b 20 57 65 27 72 65 20 61 66 74 65 72 20 73 6f 6d 65 20 65 78 70 72 65 73 73 69 6f 6e 2c 20 | ;;.We're.after.some.expression,. |
| aa220 | 73 6f 20 77 65 20 68 61 76 65 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 0a 20 20 20 20 20 20 20 20 | so.we.have.to.make.sure......... |
| aa240 | 20 20 20 20 20 20 20 3b 3b 20 74 68 61 74 20 25 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 25 20 64 | .......;;.that.%CURSOR-MARKER%.d |
| aa260 | 6f 65 73 20 2a 6e 6f 74 2a 20 63 6f 6d 65 20 64 69 72 65 63 74 6c 79 20 61 66 74 65 72 0a 20 20 | oes.*not*.come.directly.after... |
| aa280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 61 74 20 65 78 70 72 65 73 73 69 6f 6e 2e | .............;;.that.expression. |
| aa2a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 22 22 20 73 75 66 66 69 78 29 | ................(push."".suffix) |
| aa2c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 63 6f 6d 70 61 72 65 2d | )...............((slime-compare- |
| aa2e0 | 63 68 61 72 2d 73 79 6e 74 61 78 20 23 27 63 68 61 72 2d 62 65 66 6f 72 65 20 22 28 22 20 74 29 | char-syntax.#'char-before."(".t) |
| aa300 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 27 72 65 20 64 69 72 65 63 74 6c | ................;;.We're.directl |
| aa320 | 79 20 61 66 74 65 72 20 61 6e 20 6f 70 65 6e 69 6e 67 20 70 61 72 65 6e 74 68 65 73 69 73 2c 20 | y.after.an.opening.parenthesis,. |
| aa340 | 73 6f 20 77 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 68 61 76 65 20 74 6f 20 | so.we................;;.have.to. |
| aa360 | 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 73 6f 6d 65 74 68 69 6e 67 20 63 6f 6d 65 73 20 62 | make.sure.that.something.comes.b |
| aa380 | 65 66 6f 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 25 43 55 52 53 4f 52 2d | efore................;;.%CURSOR- |
| aa3a0 | 4d 41 52 4b 45 52 25 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 22 22 | MARKER%.................(push."" |
| aa3c0 | 20 73 75 66 66 69 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 | .suffix))...............(t...... |
| aa3e0 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 27 72 65 20 61 74 20 61 20 73 79 6d 62 6f 6c 2c 20 | ..........;;.We're.at.a.symbol,. |
| aa400 | 73 6f 20 6d 61 6b 65 20 73 75 72 65 20 77 65 20 67 65 74 20 74 68 65 20 77 68 6f 6c 65 20 73 79 | so.make.sure.we.get.the.whole.sy |
| aa420 | 6d 62 6f 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 6e 64 2d | mbol.................(slime-end- |
| aa440 | 6f 66 2d 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 74 20 28 | of-symbol))).........(let.((pt.( |
| aa460 | 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 | point)))...........(ignore-error |
| aa480 | 73 20 28 75 70 2d 6c 69 73 74 20 28 69 66 20 6d 61 78 2d 6c 65 76 65 6c 73 20 28 2d 20 6d 61 78 | s.(up-list.(if.max-levels.(-.max |
| aa4a0 | 2d 6c 65 76 65 6c 73 29 20 2d 35 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 | -levels).-5)))...........(ignore |
| aa4c0 | 2d 65 72 72 6f 72 73 20 28 64 6f 77 6e 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | -errors.(down-list))...........( |
| aa4e0 | 73 6c 69 6d 65 2d 70 61 72 73 65 2d 66 6f 72 6d 2d 75 6e 74 69 6c 20 70 74 20 73 75 66 66 69 78 | slime-parse-form-until.pt.suffix |
| aa500 | 29 29 29 29 29 29 0a 0a 28 72 65 71 75 69 72 65 20 27 62 79 74 65 63 6f 6d 70 29 0a 0a 28 6d 61 | ))))))..(require.'bytecomp)..(ma |
| aa520 | 70 63 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 | pc.(lambda.(sym).........(cond.( |
| aa540 | 28 66 62 6f 75 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e | (fboundp.sym)................(un |
| aa560 | 6c 65 73 73 20 28 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 28 | less.(or.(byte-code-function-p.( |
| aa580 | 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 | symbol-function.sym))........... |
| aa5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 72 70 20 28 73 79 6d 62 6f 6c 2d | .................(subrp.(symbol- |
| aa5c0 | 66 75 6e 63 74 69 6f 6e 20 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | function.sym)))................. |
| aa5e0 | 20 28 62 79 74 65 2d 63 6f 6d 70 69 6c 65 20 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .(byte-compile.sym)))........... |
| aa600 | 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 25 53 20 69 73 20 6e 6f 74 20 66 62 6f 75 6e 64 22 | ....(t.(error."%S.is.not.fbound" |
| aa620 | 20 73 79 6d 29 29 29 29 0a 20 20 20 20 20 20 27 28 73 6c 69 6d 65 2d 70 61 72 73 65 2d 66 6f 72 | .sym)))).......'(slime-parse-for |
| aa640 | 6d 2d 75 70 74 6f 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 70 61 72 73 65 | m-upto-point.........slime-parse |
| aa660 | 2d 66 6f 72 6d 2d 75 6e 74 69 6c 0a 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f 6d 70 61 72 | -form-until.........slime-compar |
| aa680 | 65 2d 63 68 61 72 2d 73 79 6e 74 61 78 29 29 0a 0a 3b 3b 3b 3b 20 54 65 73 74 20 63 61 73 65 73 | e-char-syntax))..;;;;.Test.cases |
| aa6a0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 78 74 72 61 63 74 2d 63 6f 6e 74 65 78 74 20 28 29 | .(defun.slime-extract-context.() |
| aa6c0 | 0a 20 20 22 50 61 72 73 65 20 74 68 65 20 63 6f 6e 74 65 78 74 20 66 6f 72 20 74 68 65 20 73 79 | ..."Parse.the.context.for.the.sy |
| aa6e0 | 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 0a 4e 69 6c 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 | mbol.at.point..Nil.is.returned.i |
| aa700 | 66 20 74 68 65 72 65 27 73 20 6e 6f 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 20 20 4f | f.there's.no.symbol.at.point...O |
| aa720 | 74 68 65 72 77 69 73 65 20 77 65 20 64 65 74 65 63 74 0a 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 | therwise.we.detect.the.following |
| aa740 | 20 63 61 73 65 73 20 28 74 68 65 20 2e 20 73 68 6f 77 73 20 74 68 65 20 70 6f 69 6e 74 20 70 6f | .cases.(the...shows.the.point.po |
| aa760 | 73 69 74 69 6f 6e 29 3a 0a 0a 20 28 64 65 66 75 6e 20 6e 2e 61 6d 65 20 28 2e 2e 2e 29 20 2e 2e | sition):...(defun.n.ame.(...)... |
| aa780 | 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 3e 20 28 3a 64 65 66 75 6e 20 6e 61 | .).................->.(:defun.na |
| aa7a0 | 6d 65 29 0a 20 28 64 65 66 75 6e 20 28 73 65 74 66 20 6e 2e 61 6d 65 29 20 28 2e 2e 2e 29 20 2e | me)..(defun.(setf.n.ame).(...).. |
| aa7c0 | 2e 2e 29 20 20 20 20 20 20 20 20 20 20 2d 3e 20 28 3a 64 65 66 75 6e 20 28 73 65 74 66 20 6e 61 | ..)..........->.(:defun.(setf.na |
| aa7e0 | 6d 65 29 29 0a 20 28 64 65 66 6d 65 74 68 6f 64 20 6e 2e 61 6d 65 20 28 2e 2e 2e 29 20 2e 2e 2e | me))..(defmethod.n.ame.(...).... |
| aa800 | 29 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 3e 20 28 3a 64 65 66 6d 65 74 68 6f 64 20 6e 61 6d | ).............->.(:defmethod.nam |
| aa820 | 65 20 28 2e 2e 2e 29 29 0a 20 28 64 65 66 75 6e 20 2e 2e 2e 20 28 2e 2e 2e 29 20 28 6c 61 62 65 | e.(...))..(defun.....(...).(labe |
| aa840 | 6c 73 20 28 28 6e 2e 61 6d 65 20 28 2e 2e 2e 29 20 20 2d 3e 20 28 3a 6c 61 62 65 6c 73 20 28 3a | ls.((n.ame.(...)..->.(:labels.(: |
| aa860 | 64 65 66 75 6e 20 2e 2e 2e 29 20 6e 61 6d 65 29 0a 20 28 64 65 66 75 6e 20 2e 2e 2e 20 28 2e 2e | defun....).name)..(defun.....(.. |
| aa880 | 2e 29 20 28 66 6c 65 74 20 28 28 6e 2e 61 6d 65 20 28 2e 2e 2e 29 20 20 20 20 2d 3e 20 28 3a 66 | .).(flet.((n.ame.(...)....->.(:f |
| aa8a0 | 6c 65 74 20 28 3a 64 65 66 75 6e 20 2e 2e 2e 29 20 6e 61 6d 65 29 0a 20 28 64 65 66 75 6e 20 2e | let.(:defun....).name)..(defun.. |
| aa8c0 | 2e 2e 20 28 2e 2e 2e 29 20 2e 2e 2e 20 28 6e 2e 61 6d 65 20 2e 2e 2e 29 20 2e 2e 2e 29 20 20 20 | ...(...).....(n.ame....)....)... |
| aa8e0 | 2d 3e 20 28 3a 63 61 6c 6c 20 28 3a 64 65 66 75 6e 20 2e 2e 2e 29 20 6e 61 6d 65 29 0a 20 28 64 | ->.(:call.(:defun....).name)..(d |
| aa900 | 65 66 75 6e 20 2e 2e 2e 20 28 2e 2e 2e 29 20 2e 2e 2e 20 28 73 65 74 66 20 28 6e 2e 61 6d 65 20 | efun.....(...).....(setf.(n.ame. |
| aa920 | 2e 2e 2e 29 20 20 2d 3e 20 28 3a 63 61 6c 6c 20 28 3a 64 65 66 75 6e 20 2e 2e 2e 29 20 28 73 65 | ...)..->.(:call.(:defun....).(se |
| aa940 | 74 66 20 6e 61 6d 65 29 29 0a 0a 20 28 64 65 66 6d 61 63 72 6f 20 6e 2e 61 6d 65 20 28 2e 2e 2e | tf.name))...(defmacro.n.ame.(... |
| aa960 | 29 20 2e 2e 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 3e 20 28 3a 64 65 66 6d 61 63 72 | )....)..............->.(:defmacr |
| aa980 | 6f 20 6e 61 6d 65 29 0a 20 28 64 65 66 73 65 74 66 20 6e 2e 61 6d 65 20 28 2e 2e 2e 29 20 2e 2e | o.name)..(defsetf.n.ame.(...)... |
| aa9a0 | 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 3e 20 28 3a 64 65 66 73 65 74 66 20 6e 61 | .)...............->.(:defsetf.na |
| aa9c0 | 6d 65 29 0a 20 28 64 65 66 69 6e 65 2d 73 65 74 66 2d 65 78 70 61 6e 64 65 72 20 6e 2e 61 6d 65 | me)..(define-setf-expander.n.ame |
| aa9e0 | 20 28 2e 2e 2e 29 20 2e 2e 2e 29 20 20 2d 3e 20 28 3a 64 65 66 69 6e 65 2d 73 65 74 66 2d 65 78 | .(...)....)..->.(:define-setf-ex |
| aaa00 | 70 61 6e 64 65 72 20 6e 61 6d 65 29 0a 20 28 64 65 66 69 6e 65 2d 6d 6f 64 69 66 79 2d 6d 61 63 | pander.name)..(define-modify-mac |
| aaa20 | 72 6f 20 6e 2e 61 6d 65 20 28 2e 2e 2e 29 20 2e 2e 2e 29 20 20 20 2d 3e 20 28 3a 64 65 66 69 6e | ro.n.ame.(...)....)...->.(:defin |
| aaa40 | 65 2d 6d 6f 64 69 66 79 2d 6d 61 63 72 6f 20 6e 61 6d 65 29 0a 20 28 64 65 66 69 6e 65 2d 63 6f | e-modify-macro.name)..(define-co |
| aaa60 | 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 6e 2e 61 6d 65 20 28 2e 2e 2e 29 20 2e 2e 2e 29 20 2d 3e | mpiler-macro.n.ame.(...)....).-> |
| aaa80 | 20 28 3a 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 6e 61 6d 65 29 0a 20 | .(:define-compiler-macro.name).. |
| aaaa0 | 28 64 65 66 76 61 72 20 6e 2e 61 6d 65 20 28 2e 2e 2e 29 20 2e 2e 2e 29 20 20 20 20 20 20 20 20 | (defvar.n.ame.(...)....)........ |
| aaac0 | 20 20 20 20 20 20 20 20 2d 3e 20 28 3a 64 65 66 76 61 72 20 6e 61 6d 65 29 0a 20 28 64 65 66 70 | ........->.(:defvar.name)..(defp |
| aaae0 | 61 72 61 6d 65 74 65 72 20 6e 2e 61 6d 65 20 2e 2e 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 | arameter.n.ame....)............. |
| aab00 | 20 20 20 2d 3e 20 28 3a 64 65 66 70 61 72 61 6d 65 74 65 72 20 6e 61 6d 65 29 0a 20 28 64 65 66 | ...->.(:defparameter.name)..(def |
| aab20 | 63 6f 6e 73 74 61 6e 74 20 6e 2e 61 6d 65 20 2e 2e 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 | constant.n.ame....)............. |
| aab40 | 20 20 20 20 2d 3e 20 28 3a 64 65 66 63 6f 6e 73 74 61 6e 74 20 6e 61 6d 65 29 0a 20 28 64 65 66 | ....->.(:defconstant.name)..(def |
| aab60 | 63 6c 61 73 73 20 6e 2e 61 6d 65 20 2e 2e 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | class.n.ame....)................ |
| aab80 | 20 20 20 20 2d 3e 20 28 3a 64 65 66 63 6c 61 73 73 20 6e 61 6d 65 29 0a 20 28 64 65 66 73 74 72 | ....->.(:defclass.name)..(defstr |
| aaba0 | 75 63 74 20 6e 2e 61 6d 65 20 2e 2e 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uct.n.ame....).................. |
| aabc0 | 20 2d 3e 20 28 3a 64 65 66 73 74 72 75 63 74 20 6e 61 6d 65 29 0a 20 28 64 65 66 70 61 63 6b 61 | .->.(:defstruct.name)..(defpacka |
| aabe0 | 67 65 20 6e 2e 61 6d 65 20 2e 2e 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d | ge.n.ame....)..................- |
| aac00 | 3e 20 28 3a 64 65 66 70 61 63 6b 61 67 65 20 6e 61 6d 65 29 0a 46 6f 72 20 6f 74 68 65 72 20 63 | >.(:defpackage.name).For.other.c |
| aac20 | 6f 6e 74 65 78 74 73 20 77 65 20 72 65 74 75 72 6e 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 | ontexts.we.return.the.symbol.at. |
| aac40 | 70 6f 69 6e 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 73 79 6d | point."...(let.((name.(slime-sym |
| aac60 | 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 69 66 20 6e 61 6d 65 0a 20 20 20 | bol-at-point))).....(if.name.... |
| aac80 | 20 20 20 20 20 28 6c 65 74 20 28 28 73 79 6d 62 6f 6c 20 28 72 65 61 64 20 6e 61 6d 65 29 29 29 | .....(let.((symbol.(read.name))) |
| aaca0 | 0a 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 70 72 6f 67 6e 20 3b 3b 69 67 6e 6f 72 65 2d 65 | ...........(or.(progn.;;ignore-e |
| aacc0 | 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 61 72 | rrors.................(slime-par |
| aace0 | 73 65 2d 63 6f 6e 74 65 78 74 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | se-context.symbol))............. |
| aad00 | 20 20 73 79 6d 62 6f 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 61 72 73 | ..symbol)))))..(defun.slime-pars |
| aad20 | 65 2d 63 6f 6e 74 65 78 74 20 28 6e 61 6d 65 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 | e-context.(name)...(save-excursi |
| aad40 | 6f 6e 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 | on.....(cond.((slime-in-expressi |
| aad60 | 6f 6e 2d 70 20 27 28 64 65 66 75 6e 20 2a 29 29 20 20 20 20 20 20 20 20 20 20 60 28 3a 64 65 66 | on-p.'(defun.*))..........`(:def |
| aad80 | 75 6e 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 69 6e 2d | un.,name))...........((slime-in- |
| aada0 | 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 27 28 64 65 66 6d 61 63 72 6f 20 2a 29 29 20 20 20 20 20 | expression-p.'(defmacro.*))..... |
| aadc0 | 20 20 60 28 3a 64 65 66 6d 61 63 72 6f 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ..`(:defmacro.,name))........... |
| aade0 | 28 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 27 28 64 65 66 67 65 6e | ((slime-in-expression-p.'(defgen |
| aae00 | 65 72 69 63 20 2a 29 29 20 20 20 20 20 60 28 3a 64 65 66 67 65 6e 65 72 69 63 20 2c 6e 61 6d 65 | eric.*)).....`(:defgeneric.,name |
| aae20 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 | ))...........((slime-in-expressi |
| aae40 | 6f 6e 2d 70 20 27 28 73 65 74 66 20 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 61 20 73 | on-p.'(setf.*))............;;a.s |
| aae60 | 65 74 66 2d 64 65 66 69 6e 69 74 69 6f 6e 2c 20 62 75 74 20 77 68 69 63 68 3f 0a 20 20 20 20 20 | etf-definition,.but.which?...... |
| aae80 | 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 20 31 29 0a 20 20 20 20 20 | ......(backward-up-list.1)...... |
| aaea0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 61 72 73 65 2d 63 6f 6e 74 65 78 74 20 60 28 73 65 74 | ......(slime-parse-context.`(set |
| aaec0 | 66 20 2c 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 69 6e 2d | f.,name)))...........((slime-in- |
| aaee0 | 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 27 28 64 65 66 6d 65 74 68 6f 64 20 2a 29 29 0a 20 20 20 | expression-p.'(defmethod.*)).... |
| aaf00 | 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 | ........(unless.(looking-at."\\s |
| aaf20 | 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 | .")..............(forward-sexp.1 |
| aaf40 | 29 29 20 3b 20 73 6b 69 70 20 6f 76 65 72 20 74 68 65 20 6d 65 74 68 6f 64 6e 61 6d 65 0a 20 20 | )).;.skip.over.the.methodname... |
| aaf60 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 71 75 61 6c 69 66 69 65 72 73 20 61 72 67 6c 69 73 | .........(let.(qualifiers.arglis |
| aaf80 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 65 20 3d | t)..............(cl-loop.for.e.= |
| aafa0 | 20 28 72 65 61 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 | .(read.(current-buffer))........ |
| aafc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 74 69 6c 20 28 6c 69 73 74 70 20 65 29 20 64 | ...............until.(listp.e).d |
| aafe0 | 6f 20 28 70 75 73 68 20 65 20 71 75 61 6c 69 66 69 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 | o.(push.e.qualifiers)........... |
| ab000 | 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 73 65 74 71 20 61 72 67 6c 69 73 | ............finally.(setq.arglis |
| ab020 | 74 20 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 64 65 66 6d 65 74 68 6f 64 20 | t.e))..............`(:defmethod. |
| ab040 | 2c 6e 61 6d 65 20 2c 40 71 75 61 6c 69 66 69 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ,name.,@qualifiers.............. |
| ab060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 73 6c 69 6d 65 2d 61 72 67 6c 69 73 74 2d 73 70 65 | .............,(slime-arglist-spe |
| ab080 | 63 69 61 6c 69 7a 65 72 73 20 61 72 67 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | cializers.arglist))))........... |
| ab0a0 | 28 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ((and.(symbolp.name)............ |
| ab0c0 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 60 28 2c 6e | .....(slime-in-expression-p.`(,n |
| ab0e0 | 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 | ame)))............;;.looks.like. |
| ab100 | 61 20 72 65 67 75 6c 61 72 20 63 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | a.regular.call............(let.( |
| ab120 | 28 74 6f 70 6c 65 76 65 6c 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 6c 69 6d 65 2d | (toplevel.(ignore-errors.(slime- |
| ab140 | 70 61 72 73 65 2d 74 6f 70 6c 65 76 65 6c 2d 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 | parse-toplevel-form))))......... |
| ab160 | 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e | .....(cond.((slime-in-expression |
| ab180 | 2d 70 20 60 28 73 65 74 66 20 28 2a 29 29 29 20 20 3b 61 20 73 65 74 66 2d 63 61 6c 6c 0a 20 20 | -p.`(setf.(*)))..;a.setf-call... |
| ab1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 74 6f 70 6c 65 76 65 6c 0a 20 | ..................(if.toplevel.. |
| ab1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 63 61 6c 6c 20 2c | .......................`(:call., |
| ab1e0 | 74 6f 70 6c 65 76 65 6c 20 28 73 65 74 66 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 | toplevel.(setf.,name)).......... |
| ab200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 65 74 66 20 2c 6e 61 6d 65 29 29 29 0a 20 20 20 | .............`(setf.,name))).... |
| ab220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 74 6f 70 6c 65 76 65 6c 29 0a | ................((not.toplevel). |
| ab240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 | ....................name)....... |
| ab260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 | .............((slime-in-expressi |
| ab280 | 6f 6e 2d 70 20 60 28 6c 61 62 65 6c 73 20 28 28 2a 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | on-p.`(labels.((*))))........... |
| ab2a0 | 20 20 20 20 20 20 20 20 20 20 60 28 3a 6c 61 62 65 6c 73 20 2c 74 6f 70 6c 65 76 65 6c 20 2c 6e | ..........`(:labels.,toplevel.,n |
| ab2c0 | 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 | ame))....................((slime |
| ab2e0 | 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 60 28 66 6c 65 74 20 28 28 2a 29 29 29 29 0a | -in-expression-p.`(flet.((*)))). |
| ab300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 66 6c 65 74 20 2c 74 6f 70 | ....................`(:flet.,top |
| ab320 | 6c 65 76 65 6c 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | level.,name))................... |
| ab340 | 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 63 61 6c 6c 20 | .(t.....................`(:call. |
| ab360 | 2c 74 6f 70 6c 65 76 65 6c 20 2c 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | ,toplevel.,name)))))...........( |
| ab380 | 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 27 28 64 65 66 69 6e 65 2d | (slime-in-expression-p.'(define- |
| ab3a0 | 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 | compiler-macro.*))............`( |
| ab3c0 | 3a 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 2c 6e 61 6d 65 29 29 0a 20 | :define-compiler-macro.,name)).. |
| ab3e0 | 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 | .........((slime-in-expression-p |
| ab400 | 20 27 28 64 65 66 69 6e 65 2d 6d 6f 64 69 66 79 2d 6d 61 63 72 6f 20 2a 29 29 0a 20 20 20 20 20 | .'(define-modify-macro.*))...... |
| ab420 | 20 20 20 20 20 20 60 28 3a 64 65 66 69 6e 65 2d 6d 6f 64 69 66 79 2d 6d 61 63 72 6f 20 2c 6e 61 | ......`(:define-modify-macro.,na |
| ab440 | 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 | me))...........((slime-in-expres |
| ab460 | 73 69 6f 6e 2d 70 20 27 28 64 65 66 69 6e 65 2d 73 65 74 66 2d 65 78 70 61 6e 64 65 72 20 2a 29 | sion-p.'(define-setf-expander.*) |
| ab480 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 64 65 66 69 6e 65 2d 73 65 74 66 2d 65 78 70 61 | )............`(:define-setf-expa |
| ab4a0 | 6e 64 65 72 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 69 | nder.,name))...........((slime-i |
| ab4c0 | 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 27 28 64 65 66 73 65 74 66 20 2a 29 29 0a 20 20 20 | n-expression-p.'(defsetf.*)).... |
| ab4e0 | 20 20 20 20 20 20 20 20 60 28 3a 64 65 66 73 65 74 66 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 | ........`(:defsetf.,name))...... |
| ab500 | 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 27 28 64 | .....((slime-in-expression-p.'(d |
| ab520 | 65 66 76 61 72 20 2a 29 29 20 20 20 20 20 20 20 60 28 3a 64 65 66 76 61 72 20 2c 6e 61 6d 65 29 | efvar.*)).......`(:defvar.,name) |
| ab540 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f | )...........((slime-in-expressio |
| ab560 | 6e 2d 70 20 27 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 29 29 20 60 28 3a 64 65 66 70 61 72 | n-p.'(defparameter.*)).`(:defpar |
| ab580 | 61 6d 65 74 65 72 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 | ameter.,name))...........((slime |
| ab5a0 | 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 27 28 64 65 66 63 6f 6e 73 74 61 6e 74 20 2a | -in-expression-p.'(defconstant.* |
| ab5c0 | 29 29 20 20 60 28 3a 64 65 66 63 6f 6e 73 74 61 6e 74 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 | ))..`(:defconstant.,name))...... |
| ab5e0 | 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 27 28 64 | .....((slime-in-expression-p.'(d |
| ab600 | 65 66 63 6c 61 73 73 20 2a 29 29 20 20 20 20 20 60 28 3a 64 65 66 63 6c 61 73 73 20 2c 6e 61 6d | efclass.*)).....`(:defclass.,nam |
| ab620 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 | e))...........((slime-in-express |
| ab640 | 69 6f 6e 2d 70 20 27 28 64 65 66 70 61 63 6b 61 67 65 20 2a 29 29 20 20 20 60 28 3a 64 65 66 70 | ion-p.'(defpackage.*))...`(:defp |
| ab660 | 61 63 6b 61 67 65 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 | ackage.,name))...........((slime |
| ab680 | 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 27 28 64 65 66 73 74 72 75 63 74 20 2a 29 29 | -in-expression-p.'(defstruct.*)) |
| ab6a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 64 65 66 73 74 72 75 63 74 20 2c 28 69 66 20 28 63 | ............`(:defstruct.,(if.(c |
| ab6c0 | 6f 6e 73 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | onsp.name)...................... |
| ab6e0 | 20 20 20 20 20 20 20 20 28 63 61 72 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(car.name).............. |
| ab700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ..............name)))........... |
| ab720 | 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | (t............name))))..(defun.s |
| ab740 | 6c 69 6d 65 2d 73 79 6d 62 6f 6c 73 2d 6d 61 74 63 68 2d 70 20 28 61 20 62 29 0a 20 20 28 61 6e | lime-symbols-match-p.(a.b)...(an |
| ab760 | 64 20 28 73 79 6d 62 6f 6c 70 20 61 29 0a 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 70 20 62 29 | d.(symbolp.a)........(symbolp.b) |
| ab780 | 0a 20 20 20 20 20 20 20 28 65 71 20 28 63 6f 6d 70 61 72 65 2d 73 74 72 69 6e 67 73 20 28 73 79 | ........(eq.(compare-strings.(sy |
| ab7a0 | 6d 62 6f 6c 2d 6e 61 6d 65 20 61 29 20 30 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | mbol-name.a).0.nil.............. |
| ab7c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 62 29 20 30 | ...............(symbol-name.b).0 |
| ab7e0 | 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 | .nil.t)............t)))..(defun. |
| ab800 | 73 6c 69 6d 65 2d 69 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 28 70 61 74 74 65 72 6e 29 0a | slime-in-expression-p.(pattern). |
| ab820 | 20 20 22 41 20 68 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 64 65 74 65 72 6d 69 6e | .."A.helper.function.to.determin |
| ab840 | 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 74 65 78 74 2e 0a 54 68 65 20 70 61 74 74 65 | e.the.current.context..The.patte |
| ab860 | 72 6e 20 63 61 6e 20 68 61 76 65 20 74 68 65 20 66 6f 72 6d 3a 0a 20 70 61 74 74 65 72 6e 20 3a | rn.can.have.the.form:..pattern.: |
| ab880 | 3a 3d 20 28 29 20 20 20 20 3b 6d 61 74 63 68 65 73 20 61 6c 77 61 79 73 0a 20 20 20 20 20 20 20 | :=.()....;matches.always........ |
| ab8a0 | 20 20 20 20 7c 20 28 2a 29 20 20 20 3b 6d 61 74 63 68 65 73 20 69 6e 73 69 64 65 20 61 20 6c 69 | ....|.(*)...;matches.inside.a.li |
| ab8c0 | 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 3c 73 79 6d 62 6f 6c 3e 20 3c 70 61 74 74 65 | st............|.(<symbol>.<patte |
| ab8e0 | 72 6e 3e 29 20 20 20 3b 6d 61 74 63 68 65 73 20 69 66 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 | rn>)...;matches.if.the.first.ele |
| ab900 | 6d 65 6e 74 20 69 6e 0a 09 09 09 09 20 20 20 20 3b 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 | ment.in.........;.the.current.li |
| ab920 | 73 74 20 69 73 20 3c 73 79 6d 62 6f 6c 3e 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | st.is.<symbol>.and.............. |
| ab940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 3c 70 61 74 | .......................;.if.<pat |
| ab960 | 74 65 72 6e 3e 20 6d 61 74 63 68 65 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 3c 70 | tern>.matches.............|.((<p |
| ab980 | 61 74 74 65 72 6e 3e 29 29 20 20 20 20 20 20 20 20 20 20 3b 6d 61 74 63 68 65 73 20 69 66 20 77 | attern>))..........;matches.if.w |
| ab9a0 | 65 20 61 72 65 20 69 6e 20 61 20 6e 65 73 74 65 64 20 6c 69 73 74 2e 22 0a 20 20 28 73 61 76 65 | e.are.in.a.nested.list."...(save |
| ab9c0 | 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 6c 65 74 20 28 28 70 61 74 68 20 28 72 65 76 65 | -excursion.....(let.((path.(reve |
| ab9e0 | 72 73 65 20 28 73 6c 69 6d 65 2d 70 61 74 74 65 72 6e 2d 70 61 74 68 20 70 61 74 74 65 72 6e 29 | rse.(slime-pattern-path.pattern) |
| aba00 | 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 70 20 69 6e 20 70 61 74 68 | ))).......(cl-loop.for.p.in.path |
| aba20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 77 61 79 73 20 28 69 67 6e 6f 72 65 2d 65 | ................always.(ignore-e |
| aba40 | 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | rrors.........................(c |
| aba60 | 6c 2d 65 74 79 70 65 63 61 73 65 20 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-etypecase.p................... |
| aba80 | 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 | ........(symbol.(slime-beginning |
| abaa0 | 2d 6f 66 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -of-list)....................... |
| abac0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 78 20 28 72 65 61 64 20 28 63 75 72 72 | ............(let.((x.(read.(curr |
| abae0 | 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ent-buffer)))).................. |
| abb00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c | ...................(slime-symbol |
| abb20 | 73 2d 6d 61 74 63 68 2d 70 20 78 20 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s-match-p.x.p)))................ |
| abb40 | 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d | ...........(number.(backward-up- |
| abb60 | 6c 69 73 74 20 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | list.p)......................... |
| abb80 | 20 20 20 20 20 20 20 20 20 20 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | ..........t)))))))..(defun.slime |
| abba0 | 2d 70 61 74 74 65 72 6e 2d 70 61 74 68 20 28 70 61 74 74 65 72 6e 29 0a 20 20 3b 3b 20 43 6f 6d | -pattern-path.(pattern)...;;.Com |
| abbc0 | 70 75 74 65 20 74 68 65 20 70 61 74 68 20 74 6f 20 74 68 65 20 2a 20 69 6e 20 74 68 65 20 70 61 | pute.the.path.to.the.*.in.the.pa |
| abbe0 | 74 74 65 72 6e 20 74 6f 20 6d 61 6b 65 20 6d 61 74 63 68 69 6e 67 0a 20 20 3b 3b 20 65 61 73 69 | ttern.to.make.matching...;;.easi |
| abc00 | 65 72 2e 20 54 68 65 20 70 61 74 68 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c | er..The.path.is.a.list.of.symbol |
| abc20 | 73 20 61 6e 64 20 6e 75 6d 62 65 72 73 2e 20 20 41 20 6e 75 6d 62 65 72 0a 20 20 3b 3b 20 6d 65 | s.and.numbers...A.number...;;.me |
| abc40 | 61 6e 73 20 22 28 64 6f 77 6e 2d 6c 69 73 74 20 3c 6e 3e 29 22 20 61 6e 64 20 61 20 73 79 6d 62 | ans."(down-list.<n>)".and.a.symb |
| abc60 | 6f 6c 20 22 28 6c 6f 6f 6b 2d 61 74 20 3c 73 79 6d 3e 29 22 29 0a 20 20 28 69 66 20 28 6e 75 6c | ol."(look-at.<sym>)")...(if.(nul |
| abc80 | 6c 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 27 28 29 0a 20 20 20 20 28 63 6c 2d 65 74 79 | l.pattern).......'().....(cl-ety |
| abca0 | 70 65 63 61 73 65 20 28 63 61 72 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 28 28 6d 65 6d | pecase.(car.pattern).......((mem |
| abcc0 | 62 65 72 20 2a 29 20 27 28 29 29 0a 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 63 6f 6e 73 20 | ber.*).'()).......(symbol.(cons. |
| abce0 | 28 63 61 72 20 70 61 74 74 65 72 6e 29 20 28 73 6c 69 6d 65 2d 70 61 74 74 65 72 6e 2d 70 61 74 | (car.pattern).(slime-pattern-pat |
| abd00 | 68 20 28 63 64 72 20 70 61 74 74 65 72 6e 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 73 20 28 | h.(cdr.pattern)))).......(cons.( |
| abd20 | 63 6f 6e 73 20 31 20 28 73 6c 69 6d 65 2d 70 61 74 74 65 72 6e 2d 70 61 74 68 20 28 63 61 72 20 | cons.1.(slime-pattern-path.(car. |
| abd40 | 70 61 74 74 65 72 6e 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 65 67 | pattern)))))))..(defun.slime-beg |
| abd60 | 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 73 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 75 70 29 0a 20 20 | inning-of-list.(&optional.up)... |
| abd80 | 22 4d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 | "Move.backward.to.the.beginning. |
| abda0 | 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 50 6f 69 6e 74 | of.the.current.expression..Point |
| abdc0 | 20 69 73 20 70 6c 61 63 65 64 20 62 65 66 6f 72 65 20 74 68 65 20 66 69 72 73 74 20 65 78 70 72 | .is.placed.before.the.first.expr |
| abde0 | 65 73 73 69 6f 6e 20 69 6e 20 74 68 65 20 6c 69 73 74 2e 22 0a 20 20 28 62 61 63 6b 77 61 72 64 | ession.in.the.list."...(backward |
| abe00 | 2d 75 70 2d 6c 69 73 74 20 28 6f 72 20 75 70 20 31 29 29 0a 20 20 28 64 6f 77 6e 2d 6c 69 73 74 | -up-list.(or.up.1))...(down-list |
| abe20 | 20 31 29 0a 20 20 28 73 6b 69 70 2d 73 79 6e 74 61 78 2d 66 6f 72 77 61 72 64 20 22 20 22 29 29 | .1)...(skip-syntax-forward.".")) |
| abe40 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 6c 69 73 74 20 28 26 6f 70 74 | ..(defun.slime-end-of-list.(&opt |
| abe60 | 69 6f 6e 61 6c 20 75 70 29 0a 20 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 20 28 6f | ional.up)...(backward-up-list.(o |
| abe80 | 72 20 75 70 20 31 29 29 0a 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 73 74 20 31 29 0a 20 20 28 64 | r.up.1))...(forward-list.1)...(d |
| abea0 | 6f 77 6e 2d 6c 69 73 74 20 2d 31 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 61 72 73 | own-list.-1))..(defun.slime-pars |
| abec0 | 65 2d 74 6f 70 6c 65 76 65 6c 2d 66 6f 72 6d 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d 61 74 63 68 | e-toplevel-form.(&optional.match |
| abee0 | 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 63 61 72 20 28 73 6c 69 6d 65 2d 72 65 67 | )...(let.((start.(car.(slime-reg |
| abf00 | 69 6f 6e 2d 66 6f 72 2d 64 65 66 75 6e 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 28 | ion-for-defun-at-point)))).....( |
| abf20 | 6f 72 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 28 73 61 76 65 | or.(ignore-errors..........(save |
| abf40 | 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | -excursion...........(goto-char. |
| abf60 | 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c 69 73 74 20 31 29 0a 20 | start)...........(down-list.1).. |
| abf80 | 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 29 0a 20 20 20 20 20 20 | .........(forward-sexp.1)....... |
| abfa0 | 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 78 74 20 28 73 6c 69 6d 65 2d 70 61 72 73 65 2d | ....(let.((context.(slime-parse- |
| abfc0 | 63 6f 6e 74 65 78 74 20 28 72 65 61 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 | context.(read.(current-buffer))) |
| abfe0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 6e 6f 74 20 6d 61 | )).............(when.(or.(not.ma |
| ac000 | 74 63 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 | tch).......................(memb |
| ac020 | 65 72 20 28 63 61 72 20 63 6f 6e 74 65 78 74 29 20 6d 61 74 63 68 29 29 0a 20 20 20 20 20 20 20 | er.(car.context).match))........ |
| ac040 | 20 20 20 20 20 20 20 63 6f 6e 74 65 78 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e | .......context)))).........(when |
| ac060 | 20 6d 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a | .match...........(ignore-errors. |
| ac080 | 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 | ...........(save-excursion...... |
| ac0a0 | 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 68 69 6c 65 20 28 3e 20 28 70 6f 69 6e 74 29 | .......(cl-loop.while.(>.(point) |
| ac0c0 | 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 | .start)......................the |
| ac0e0 | 72 65 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e | reis......................(progn |
| ac100 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 | ........................(backwar |
| ac120 | 64 2d 75 70 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-up-list)...................... |
| ac140 | 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(ignore-errors................ |
| ac160 | 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 | .........(save-excursion........ |
| ac180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c 69 73 74 20 31 29 0a | ..................(down-list.1). |
| ac1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 | .........................(forwar |
| ac1c0 | 64 2d 73 65 78 70 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-sexp.1)....................... |
| ac1e0 | 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 78 74 20 28 73 6c 69 6d 65 2d 70 61 72 73 65 2d 63 | ...(let.((context.(slime-parse-c |
| ac200 | 6f 6e 74 65 78 74 20 28 72 65 61 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 | ontext.(read.(current-buffer)))) |
| ac220 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | )............................(wh |
| ac240 | 65 6e 20 28 6d 65 6d 62 65 72 20 28 63 61 72 20 63 6f 6e 74 65 78 74 29 20 6d 61 74 63 68 29 0a | en.(member.(car.context).match). |
| ac260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e | .............................con |
| ac280 | 74 65 78 74 29 29 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 | text))))))))))))..(defun.slime-a |
| ac2a0 | 72 67 6c 69 73 74 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 20 28 61 72 67 6c 69 73 74 29 0a 20 20 | rglist-specializers.(arglist)... |
| ac2c0 | 28 63 6f 6e 64 20 28 28 6f 72 20 28 6e 75 6c 6c 20 61 72 67 6c 69 73 74 29 0a 09 20 20 20 20 20 | (cond.((or.(null.arglist)....... |
| ac2e0 | 28 63 6c 2d 6d 65 6d 62 65 72 20 28 63 6c 2d 66 69 72 73 74 20 61 72 67 6c 69 73 74 29 20 27 28 | (cl-member.(cl-first.arglist).'( |
| ac300 | 26 6f 70 74 69 6f 6e 61 6c 20 26 6b 65 79 20 26 72 65 73 74 20 26 61 75 78 29 20 0a 20 20 20 20 | &optional.&key.&rest.&aux)...... |
| ac320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 73 6c 69 6d | ....................:test.#'slim |
| ac340 | 65 2d 73 79 6d 62 6f 6c 73 2d 6d 61 74 63 68 2d 70 29 29 0a 09 20 28 6c 69 73 74 29 29 0a 09 28 | e-symbols-match-p))...(list))..( |
| ac360 | 28 63 6f 6e 73 70 20 28 63 6c 2d 66 69 72 73 74 20 61 72 67 6c 69 73 74 29 29 0a 09 20 28 63 6f | (consp.(cl-first.arglist))...(co |
| ac380 | 6e 73 20 28 63 6c 2d 73 65 63 6f 6e 64 20 28 63 6c 2d 66 69 72 73 74 20 61 72 67 6c 69 73 74 29 | ns.(cl-second.(cl-first.arglist) |
| ac3a0 | 29 0a 09 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 61 72 67 6c 69 73 74 2d 73 70 65 63 69 61 6c | ).........(slime-arglist-special |
| ac3c0 | 69 7a 65 72 73 20 28 63 6c 2d 72 65 73 74 20 61 72 67 6c 69 73 74 29 29 29 29 0a 09 28 74 0a 09 | izers.(cl-rest.arglist))))..(t.. |
| ac3e0 | 20 28 63 6f 6e 73 20 27 74 0a 09 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 61 72 67 6c 69 73 74 | .(cons.'t.........(slime-arglist |
| ac400 | 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 20 28 63 6c 2d 72 65 73 74 20 61 72 67 6c 69 73 74 29 29 | -specializers.(cl-rest.arglist)) |
| ac420 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 61 74 | ))))..(defun.slime-definition-at |
| ac440 | 2d 70 6f 69 6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6f 6e 6c 79 2d 66 75 6e 63 74 69 6f 6e 61 | -point.(&optional.only-functiona |
| ac460 | 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 6f 62 6a 65 63 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e | l)..."Return.object.correspondin |
| ac480 | 67 20 74 6f 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 | g.to.the.definition.at.point.".. |
| ac4a0 | 20 28 6c 65 74 2a 20 28 28 66 75 6e 63 74 69 6f 6e 61 6c 20 27 28 3a 64 65 66 75 6e 20 3a 64 65 | .(let*.((functional.'(:defun.:de |
| ac4c0 | 66 67 65 6e 65 72 69 63 20 3a 64 65 66 6d 65 74 68 6f 64 20 3a 64 65 66 6d 61 63 72 6f 20 3a 64 | fgeneric.:defmethod.:defmacro.:d |
| ac4e0 | 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 29 29 0a 20 20 20 20 20 20 20 20 20 | efine-compiler-macro)).......... |
| ac500 | 28 61 6c 6c 20 27 28 3a 64 65 66 75 6e 20 3a 64 65 66 67 65 6e 65 72 69 63 20 3a 64 65 66 6d 61 | (all.'(:defun.:defgeneric.:defma |
| ac520 | 63 72 6f 20 3a 64 65 66 69 6e 65 2d 6d 6f 64 69 66 79 2d 6d 61 63 72 6f 20 3a 64 65 66 69 6e 65 | cro.:define-modify-macro.:define |
| ac540 | 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -compiler-macro................. |
| ac560 | 20 3a 64 65 66 6d 65 74 68 6f 64 20 3a 64 65 66 70 61 72 61 6d 65 74 65 72 20 3a 64 65 66 76 61 | .:defmethod.:defparameter.:defva |
| ac580 | 72 20 3a 64 65 66 63 6f 6e 73 74 61 6e 74 20 3a 64 65 66 63 6c 61 73 73 20 3a 64 65 66 73 74 72 | r.:defconstant.:defclass.:defstr |
| ac5a0 | 75 63 74 20 3a 64 65 66 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 6f 70 6c | uct.:defpackage))..........(topl |
| ac5c0 | 65 76 65 6c 20 28 73 6c 69 6d 65 2d 70 61 72 73 65 2d 74 6f 70 6c 65 76 65 6c 2d 66 6f 72 6d 20 | evel.(slime-parse-toplevel-form. |
| ac5e0 | 28 69 66 20 6f 6e 6c 79 2d 66 75 6e 63 74 69 6f 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (if.only-functional............. |
| ac600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ac620 | 20 20 20 20 20 20 66 75 6e 63 74 69 6f 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......functional................ |
| ac640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ac660 | 20 20 20 61 6c 6c 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 6f 72 20 28 73 79 6d 62 6f 6c 70 20 | ...all)))).....(if.(or.(symbolp. |
| ac680 | 74 6f 70 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 6f 6e 6c 79 2d | toplevel).............(and.only- |
| ac6a0 | 66 75 6e 63 74 69 6f 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 | functional..................(not |
| ac6c0 | 20 28 6d 65 6d 62 65 72 20 28 63 61 72 20 74 6f 70 6c 65 76 65 6c 29 20 66 75 6e 63 74 69 6f 6e | .(member.(car.toplevel).function |
| ac6e0 | 61 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 74 20 69 6e 20 61 20 | al)))).........(error."Not.in.a. |
| ac700 | 64 65 66 69 6e 69 74 69 6f 6e 22 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 | definition").......(slime-dcase. |
| ac720 | 74 6f 70 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 28 28 28 3a 64 65 66 75 6e 20 3a 64 65 66 67 | toplevel.........(((:defun.:defg |
| ac740 | 65 6e 65 72 69 63 29 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | eneric).symbol)..........(format |
| ac760 | 20 22 23 27 25 73 22 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 28 28 28 3a 64 65 66 | ."#'%s".symbol)).........(((:def |
| ac780 | 6d 61 63 72 6f 20 3a 64 65 66 69 6e 65 2d 6d 6f 64 69 66 79 2d 6d 61 63 72 6f 29 20 73 79 6d 62 | macro.:define-modify-macro).symb |
| ac7a0 | 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 6d 61 63 72 6f 2d 66 75 6e | ol)..........(format."(macro-fun |
| ac7c0 | 63 74 69 6f 6e 20 27 25 73 29 22 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 28 28 3a | ction.'%s)".symbol)).........((: |
| ac7e0 | 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 73 79 6d 62 6f 6c 29 0a 20 20 | define-compiler-macro.symbol)... |
| ac800 | 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d | .......(format."(compiler-macro- |
| ac820 | 66 75 6e 63 74 69 6f 6e 20 27 25 73 29 22 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 | function.'%s)".symbol))......... |
| ac840 | 28 28 3a 64 65 66 6d 65 74 68 6f 64 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 | ((:defmethod.&rest.args)........ |
| ac860 | 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 | ..(declare.(ignore.args))....... |
| ac880 | 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 74 6f 70 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 | ...(format."%s".toplevel))...... |
| ac8a0 | 20 20 20 28 28 28 3a 64 65 66 70 61 72 61 6d 65 74 65 72 20 3a 64 65 66 76 61 72 20 3a 64 65 66 | ...(((:defparameter.:defvar.:def |
| ac8c0 | 63 6f 6e 73 74 61 6e 74 29 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d | constant).symbol)..........(form |
| ac8e0 | 61 74 20 22 27 25 73 22 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 28 28 28 3a 64 65 | at."'%s".symbol)).........(((:de |
| ac900 | 66 63 6c 61 73 73 20 3a 64 65 66 73 74 72 75 63 74 29 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 | fclass.:defstruct).symbol)...... |
| ac920 | 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 66 69 6e 64 2d 63 6c 61 73 73 20 27 25 73 29 22 20 73 | ....(format."(find-class.'%s)".s |
| ac940 | 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 28 28 3a 64 65 66 70 61 63 6b 61 67 65 20 73 79 | ymbol)).........((:defpackage.sy |
| ac960 | 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 6f 72 20 28 66 69 6e | mbol)..........(format."(or.(fin |
| ac980 | 64 2d 70 61 63 6b 61 67 65 20 27 25 73 29 20 28 65 72 72 6f 72 20 5c 22 50 61 63 6b 61 67 65 20 | d-package.'%s).(error.\"Package. |
| ac9a0 | 25 73 20 6e 6f 74 20 66 6f 75 6e 64 5c 22 29 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | %s.not.found\"))"............... |
| ac9c0 | 20 20 20 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 | ...symbol.symbol)).........(t... |
| ac9e0 | 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 74 20 69 6e 20 61 20 64 65 66 69 6e 69 74 69 | .......(error."Not.in.a.definiti |
| aca00 | 6f 6e 22 29 29 29 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 73 6c 69 6d 65 2d 63 75 72 72 65 | on"))))))..(defsubst.slime-curre |
| aca20 | 6e 74 2d 70 61 72 73 65 72 2d 73 74 61 74 65 20 28 29 0a 20 20 3b 3b 20 60 73 79 6e 74 61 78 2d | nt-parser-state.()...;;.`syntax- |
| aca40 | 70 70 73 73 27 20 64 6f 65 73 20 6e 6f 74 20 73 61 76 65 20 6d 61 74 63 68 20 64 61 74 61 20 61 | ppss'.does.not.save.match.data.a |
| aca60 | 73 20 69 74 20 69 6e 76 6f 6b 65 73 0a 20 20 3b 3b 20 60 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d | s.it.invokes...;;.`beginning-of- |
| aca80 | 64 65 66 75 6e 27 20 69 6d 70 6c 69 63 69 74 6c 79 20 77 68 69 63 68 20 64 6f 65 73 20 6e 6f 74 | defun'.implicitly.which.does.not |
| acaa0 | 20 73 61 76 65 20 6d 61 74 63 68 0a 20 20 3b 3b 20 64 61 74 61 2e 20 54 68 69 73 20 69 73 73 75 | .save.match...;;.data..This.issu |
| acac0 | 65 20 68 61 73 20 62 65 65 6e 20 72 65 70 6f 72 74 65 64 20 74 6f 20 74 68 65 20 45 6d 61 63 73 | e.has.been.reported.to.the.Emacs |
| acae0 | 20 6d 61 69 6e 74 61 69 6e 65 72 20 6f 6e 0a 20 20 3b 3b 20 46 65 62 32 37 2e 0a 20 20 28 73 79 | .maintainer.on...;;.Feb27....(sy |
| acb00 | 6e 74 61 78 2d 70 70 73 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 69 64 65 | ntax-ppss))..(defun.slime-inside |
| acb20 | 2d 73 74 72 69 6e 67 2d 70 20 28 29 0a 20 20 28 6e 74 68 20 33 20 28 73 6c 69 6d 65 2d 63 75 72 | -string-p.()...(nth.3.(slime-cur |
| acb40 | 72 65 6e 74 2d 70 61 72 73 65 72 2d 73 74 61 74 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | rent-parser-state)))..(defun.sli |
| acb60 | 6d 65 2d 69 6e 73 69 64 65 2d 63 6f 6d 6d 65 6e 74 2d 70 20 28 29 0a 20 20 28 6e 74 68 20 34 20 | me-inside-comment-p.()...(nth.4. |
| acb80 | 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 72 73 65 72 2d 73 74 61 74 65 29 29 29 0a 0a | (slime-current-parser-state))).. |
| acba0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 69 64 65 2d 73 74 72 69 6e 67 2d 6f 72 2d 63 6f | (defun.slime-inside-string-or-co |
| acbc0 | 6d 6d 65 6e 74 2d 70 20 28 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 74 65 20 28 73 6c 69 6d 65 | mment-p.()...(let.((state.(slime |
| acbe0 | 2d 63 75 72 72 65 6e 74 2d 70 61 72 73 65 72 2d 73 74 61 74 65 29 29 29 0a 20 20 20 20 28 6f 72 | -current-parser-state))).....(or |
| acc00 | 20 28 6e 74 68 20 33 20 73 74 61 74 65 29 20 28 6e 74 68 20 34 20 73 74 61 74 65 29 29 29 29 0a | .(nth.3.state).(nth.4.state)))). |
| acc20 | 0a 3b 3b 3b 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 77 6f 20 66 75 6e 63 74 69 6f 6e 73 | .;;;.The.following.two.functions |
| acc40 | 20 63 61 6e 20 62 65 20 68 61 6e 64 79 20 77 68 65 6e 20 69 6e 73 70 65 63 74 69 6e 67 0a 3b 3b | .can.be.handy.when.inspecting.;; |
| acc60 | 3b 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 77 68 69 6c 65 20 64 65 62 75 67 67 69 6e | ;.source-location.while.debuggin |
| acc80 | 67 20 60 4d 2d 2e 27 2e 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 75 72 72 65 6e | g.`M-.'..;;;.(defun.slime-curren |
| acca0 | 74 2d 74 6c 66 2d 6e 75 6d 62 65 72 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 75 | t-tlf-number.()..."Return.the.cu |
| accc0 | 72 72 65 6e 74 20 74 6f 70 6c 65 76 65 6c 20 6e 75 6d 62 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 | rrent.toplevel.number."...(inter |
| acce0 | 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 6f 72 69 67 69 6e 61 6c 2d 70 6f 73 20 28 63 | active)...(let.((original-pos.(c |
| acd00 | 61 72 20 28 73 6c 69 6d 65 2d 72 65 67 69 6f 6e 2d 66 6f 72 2d 64 65 66 75 6e 2d 61 74 2d 70 6f | ar.(slime-region-for-defun-at-po |
| acd20 | 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 6e 20 30 29 29 0a 20 20 20 20 28 73 61 76 65 2d | int))).........(n.0)).....(save- |
| acd40 | 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 3b 3b 20 57 65 20 75 73 65 20 74 68 69 73 20 61 | excursion.......;;.We.use.this.a |
| acd60 | 6e 64 20 6e 6f 20 72 65 70 65 61 74 65 64 20 60 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 | nd.no.repeated.`beginning-of-def |
| acd80 | 75 6e 27 73 20 74 6f 20 67 65 74 0a 20 20 20 20 20 20 3b 3b 20 72 65 61 64 65 72 20 63 6f 6e 64 | un's.to.get.......;;.reader.cond |
| acda0 | 69 74 69 6f 6e 61 6c 73 20 72 69 67 68 74 2e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 | itionals.right........(goto-char |
| acdc0 | 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 70 72 6f 67 | .(point-min)).......(while.(prog |
| acde0 | 6e 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 | n.(slime-forward-sexp).......... |
| ace00 | 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 28 70 6f 69 6e 74 29 20 6f 72 69 67 69 6e 61 6c 2d 70 | ...........(<.(point).original-p |
| ace20 | 6f 73 29 29 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 6e 29 29 29 0a 20 20 20 20 6e | os)).........(cl-incf.n))).....n |
| ace40 | 29 29 0a 0a 3b 3b 3b 20 54 68 69 73 20 69 73 20 73 69 6d 69 6c 69 61 72 20 74 6f 20 60 73 6c 69 | ))..;;;.This.is.similiar.to.`sli |
| ace60 | 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 66 6f 72 6d 2d 70 61 74 68 73 27 20 69 6e 20 74 68 65 0a | me-enclosing-form-paths'.in.the. |
| ace80 | 3b 3b 3b 20 60 73 6c 69 6d 65 2d 70 61 72 73 65 27 20 63 6f 6e 74 72 69 62 20 65 78 63 65 70 74 | ;;;.`slime-parse'.contrib.except |
| acea0 | 20 74 68 61 74 20 74 68 69 73 20 64 6f 65 73 20 6e 6f 74 20 64 6f 20 61 6e 79 20 64 75 63 6b 2d | .that.this.does.not.do.any.duck- |
| acec0 | 74 61 70 65 0a 3b 3b 3b 20 70 61 72 73 69 6e 67 2c 20 61 6e 64 20 67 65 74 73 20 72 65 61 64 65 | tape.;;;.parsing,.and.gets.reade |
| acee0 | 72 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 20 72 69 67 68 74 2e 0a 28 64 65 66 75 6e 20 73 6c 69 | r.conditionals.right..(defun.sli |
| acf00 | 6d 65 2d 63 75 72 72 65 6e 74 2d 66 6f 72 6d 2d 70 61 74 68 20 28 29 0a 20 20 22 52 65 74 75 72 | me-current-form-path.()..."Retur |
| acf20 | 6e 73 20 74 68 65 20 70 61 74 68 20 66 72 6f 6d 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f | ns.the.path.from.the.beginning.o |
| acf40 | 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 6f 70 6c 65 76 65 6c 0a 66 6f 72 6d 20 74 6f 20 74 | f.the.current.toplevel.form.to.t |
| acf60 | 68 65 20 61 74 6f 6d 20 61 74 20 70 6f 69 6e 74 2c 20 6f 72 20 6e 69 6c 20 69 66 20 77 65 27 72 | he.atom.at.point,.or.nil.if.we'r |
| acf80 | 65 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 61 20 74 6c 66 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | e.in.front.of.a.tlf."...(interac |
| acfa0 | 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 73 6f 75 72 63 65 2d 70 61 74 68 20 6e 69 6c 29 29 | tive)...(let.((source-path.nil)) |
| acfc0 | 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 3b 3b 20 4d 6f | .....(save-excursion.......;;.Mo |
| acfe0 | 76 69 6e 67 20 66 6f 72 77 61 72 64 20 74 6f 20 67 65 74 20 72 65 61 64 65 72 20 63 6f 6e 64 69 | ving.forward.to.get.reader.condi |
| ad000 | 74 69 6f 6e 61 6c 73 20 72 69 67 68 74 2e 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f | tionals.right........(cl-loop.fo |
| ad020 | 72 20 69 6e 6e 65 72 2d 70 6f 73 20 3d 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 | r.inner-pos.=.(point)........... |
| ad040 | 20 20 20 20 20 66 6f 72 20 6f 75 74 65 72 2d 70 6f 73 20 3d 20 28 63 6c 2d 6e 74 68 2d 76 61 6c | .....for.outer-pos.=.(cl-nth-val |
| ad060 | 75 65 20 31 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 72 73 65 72 2d 73 74 61 74 65 | ue.1.(slime-current-parser-state |
| ad080 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 6f 75 74 65 72 2d 70 6f | ))................while.outer-po |
| ad0a0 | 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6f | s.do................(goto-char.o |
| ad0c0 | 75 74 65 72 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 | uter-pos)................(unless |
| ad0e0 | 20 28 65 71 20 28 63 68 61 72 2d 62 65 66 6f 72 65 29 20 3f 23 29 20 3b 20 77 68 65 6e 20 61 74 | .(eq.(char-before).?#).;.when.at |
| ad100 | 20 23 28 2e 2e 2e 29 20 63 6f 6e 74 69 6e 75 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .#(...).continue................ |
| ad120 | 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(forward-char)............... |
| ad140 | 20 20 20 28 6c 65 74 20 28 28 6e 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(let.((n.0))................. |
| ad160 | 20 20 20 28 77 68 69 6c 65 20 28 70 72 6f 67 6e 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d | ...(while.(progn.(slime-forward- |
| ad180 | 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sexp)........................... |
| ad1a0 | 20 20 20 20 20 20 20 28 3c 20 28 70 6f 69 6e 74 29 20 69 6e 6e 65 72 2d 70 6f 73 29 29 0a 20 20 | .......(<.(point).inner-pos))... |
| ad1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 6e 29 29 0a | ...................(cl-incf.n)). |
| ad1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6e 20 73 6f 75 72 63 | ...................(push.n.sourc |
| ad200 | 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f | e-path)....................(goto |
| ad220 | 2d 63 68 61 72 20 6f 75 74 65 72 2d 70 6f 73 29 29 29 29 29 0a 20 20 20 20 73 6f 75 72 63 65 2d | -char.outer-pos))))).....source- |
| ad240 | 70 61 74 68 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 70 61 72 73 65 29 0a 00 | path))..(provide.'slime-parse).. |
| ad260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad2a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad2c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 6d 64 6f 74 2d 66 75 | slime-2.31/contrib/slime-mdot-fu |
| ad420 | 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .el............................. |
| ad440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| ad480 | 30 30 30 32 32 34 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 36 36 30 00 20 30 00 00 00 | 0002247.00000000000.015660..0... |
| ad4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| ad520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| ad540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ad600 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 | (require.'slime).(require.'cl-li |
| ad620 | 62 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d | b)..(define-slime-contrib.slime- |
| ad640 | 6d 64 6f 74 2d 66 75 0a 20 20 22 4d 61 6b 69 6e 67 20 4d 2d 2e 20 77 6f 72 6b 20 6f 6e 20 6c 6f | mdot-fu..."Making.M-..work.on.lo |
| ad660 | 63 61 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 54 6f 62 | cal.functions."...(:authors."Tob |
| ad680 | 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 73 2e | ias.C..Rittweiler.<tcr@freebits. |
| ad6a0 | 64 65 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 73 6c 69 | de>")...(:license."GPL")...(:sli |
| ad6c0 | 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d | me-dependencies.slime-enclosing- |
| ad6e0 | 63 6f 6e 74 65 78 74 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 61 64 64 2d 68 6f 6f | context)...(:on-load....(add-hoo |
| ad700 | 6b 20 27 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 68 6f 6f 6b 73 20 27 | k.'slime-edit-definition-hooks.' |
| ad720 | 73 6c 69 6d 65 2d 65 64 69 74 2d 6c 6f 63 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 29 29 0a 20 20 | slime-edit-local-definition))... |
| ad740 | 28 3a 6f 6e 2d 75 6e 6c 6f 61 64 0a 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 73 6c 69 | (:on-unload....(remove-hook.'sli |
| ad760 | 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d | me-edit-definition-hooks.'slime- |
| ad780 | 65 64 69 74 2d 6c 6f 63 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 29 29 29 0a 0a 0a 28 64 65 66 75 | edit-local-definition)))...(defu |
| ad7a0 | 6e 20 73 6c 69 6d 65 2d 65 64 69 74 2d 6c 6f 63 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 6e | n.slime-edit-local-definition.(n |
| ad7c0 | 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 77 68 65 72 65 29 0a 20 20 22 4c 69 6b 65 20 60 73 6c | ame.&optional.where)..."Like.`sl |
| ad7e0 | 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 27 2c 20 62 75 74 20 74 72 69 65 73 20 | ime-edit-definition',.but.tries. |
| ad800 | 74 6f 20 66 69 6e 64 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 0a 69 6e 20 61 20 6c 6f 63 61 | to.find.the.definition.in.a.loca |
| ad820 | 6c 20 66 75 6e 63 74 69 6f 6e 20 62 69 6e 64 69 6e 67 20 6e 65 61 72 20 70 6f 69 6e 74 2e 22 0a | l.function.binding.near.point.". |
| ad840 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 | ..(interactive.(list.(slime-read |
| ad860 | 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 4e 61 6d 65 3a 20 22 29 29 29 0a 20 20 28 63 6c 2d 6d | -symbol-name."Name:.")))...(cl-m |
| ad880 | 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 62 69 6e 64 69 6e 67 2d 6e 61 6d 65 | ultiple-value-bind.(binding-name |
| ad8a0 | 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | .point).......(cl-multiple-value |
| ad8c0 | 2d 63 61 6c 6c 20 23 27 63 6c 2d 73 6f 6d 65 20 23 27 28 6c 61 6d 62 64 61 20 28 62 69 6e 64 69 | -call.#'cl-some.#'(lambda.(bindi |
| ad8e0 | 6e 67 2d 6e 61 6d 65 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-name.point).................. |
| ad900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | ...........................(when |
| ad920 | 20 28 63 6c 2d 65 71 75 61 6c 70 20 62 69 6e 64 69 6e 67 2d 6e 61 6d 65 20 6e 61 6d 65 29 0a 20 | .(cl-equalp.binding-name.name).. |
| ad940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ad960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 62 69 6e 64 69 6e 67 2d | .............(cl-values.binding- |
| ad980 | 6e 61 6d 65 20 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name.point)))................... |
| ad9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 62 6f 75 | ............(slime-enclosing-bou |
| ad9c0 | 6e 64 2d 6e 61 6d 65 73 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 62 69 6e 64 69 6e | nd-names)).....(when.(and.bindin |
| ad9e0 | 67 2d 6e 61 6d 65 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 64 69 74 2d | g-name.point).......(slime-edit- |
| ada00 | 64 65 66 69 6e 69 74 69 6f 6e 2d 63 6f 6e 74 0a 20 20 20 20 20 20 20 60 28 28 2c 62 69 6e 64 69 | definition-cont........`((,bindi |
| ada20 | 6e 67 2d 6e 61 6d 65 0a 09 20 20 2c 28 6d 61 6b 65 2d 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6c | ng-name....,(make-slime-buffer-l |
| ada40 | 6f 63 61 74 69 6f 6e 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 63 75 72 72 65 6e 74 2d 62 75 | ocation.(buffer-name.(current-bu |
| ada60 | 66 66 65 72 29 29 20 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 6e 61 6d 65 0a 20 20 20 20 | ffer)).point)))........name..... |
| ada80 | 20 20 20 77 68 65 72 65 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 6d 64 | ...where))))..(provide.'slime-md |
| adaa0 | 6f 74 2d 66 75 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ot-fu).......................... |
| adac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adb00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adb20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adc00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 73 70 72 6f 66 2e 65 | slime-2.31/contrib/slime-sprof.e |
| adc20 | 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | l............................... |
| adc40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adc60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| adc80 | 30 30 32 30 30 34 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 33 34 00 20 30 00 00 00 | 0020047.00000000000.015434..0... |
| adca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adcc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| add00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| add20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| add40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| add60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| add80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| addc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| adde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ade00 | 3b 3b 3b 3b 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a | ;;;;.-*-.lexical-binding:.t.-*-. |
| ade20 | 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c | .(require.'slime).(require.'cl-l |
| ade40 | 69 62 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 | ib)..(define-slime-contrib.slime |
| ade60 | 2d 73 70 72 6f 66 0a 20 20 22 49 6e 74 65 67 72 61 74 69 6f 6e 20 77 69 74 68 20 53 42 43 4c 27 | -sprof..."Integration.with.SBCL' |
| ade80 | 73 20 73 62 2d 73 70 72 6f 66 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 4a 75 68 6f 20 53 | s.sb-sprof."...(:authors."Juho.S |
| adea0 | 6e 65 6c 6c 6d 61 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 53 74 61 73 20 42 6f 75 6b 61 | nellman"............."Stas.Bouka |
| adec0 | 72 65 76 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 4d 49 54 22 29 0a 20 20 28 3a 73 77 61 | rev")...(:license."MIT")...(:swa |
| adee0 | 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d 73 70 72 6f 66 29 0a 20 20 28 | nk-dependencies.swank-sprof)...( |
| adf00 | 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 6c 65 74 20 28 28 43 20 27 28 61 6e 64 20 28 73 6c 69 6d | :on-load....(let.((C.'(and.(slim |
| adf20 | 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 | e-connected-p)...............(eq |
| adf40 | 75 61 6c 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 | ual.(slime-lisp-implementation-t |
| adf60 | 79 70 65 29 20 22 53 42 43 4c 22 29 29 29 29 0a 20 20 20 20 20 28 73 65 74 66 20 28 63 64 72 20 | ype)."SBCL"))))......(setf.(cdr. |
| adf80 | 28 6c 61 73 74 20 28 61 73 73 6f 63 20 22 50 72 6f 66 69 6c 69 6e 67 22 20 73 6c 69 6d 65 2d 65 | (last.(assoc."Profiling".slime-e |
| adfa0 | 61 73 79 2d 6d 65 6e 75 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 22 2d 2d 22 0a 20 20 | asy-menu)))............`("--"... |
| adfc0 | 20 20 20 20 20 20 20 20 20 20 20 5b 20 22 53 74 61 72 74 20 73 62 2d 73 70 72 6f 66 22 20 20 73 | ...........[."Start.sb-sprof"..s |
| adfe0 | 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 74 61 72 74 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 20 20 20 | lime-sprof-start.,C.]........... |
| ae000 | 20 20 20 5b 20 22 53 74 6f 70 20 73 62 2d 73 70 72 6f 66 22 20 20 20 73 6c 69 6d 65 2d 73 70 72 | ...[."Stop.sb-sprof"...slime-spr |
| ae020 | 6f 66 2d 73 74 6f 70 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 20 22 52 65 70 | of-stop.,C.]..............[."Rep |
| ae040 | 6f 72 74 20 73 62 2d 73 70 72 6f 66 22 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 72 65 70 6f 72 74 | ort.sb-sprof".slime-sprof-report |
| ae060 | 20 2c 43 20 5d 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d | .,C.])))))..(defvar.slime-sprof- |
| ae080 | 65 78 63 6c 75 64 65 2d 73 77 61 6e 6b 20 6e 69 6c 0a 20 20 22 2a 44 69 73 70 6c 61 79 20 73 77 | exclude-swank.nil..."*Display.sw |
| ae0a0 | 61 6e 6b 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 72 65 70 6f 72 74 2e 22 29 0a 0a | ank.functions.in.the.report.").. |
| ae0c0 | 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 6f 72 74 20 27 63 75 6d 75 6c 29 | (defvar.slime-sprof-sort.'cumul) |
| ae0e0 | 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 73 70 72 | ..(define-derived-mode.slime-spr |
| ae100 | 6f 66 2d 62 72 6f 77 73 65 72 2d 6d 6f 64 65 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 | of-browser-mode.fundamental-mode |
| ae120 | 0a 20 20 22 73 6c 70 72 6f 66 22 0a 20 20 22 4d 6f 64 65 20 66 6f 72 20 62 72 6f 77 73 69 6e 67 | ..."slprof"..."Mode.for.browsing |
| ae140 | 20 70 72 6f 66 69 6c 65 72 20 64 61 74 61 5c 0a 5c 5c 3c 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 | .profiler.data\.\\<slime-sprof-b |
| ae160 | 72 6f 77 73 65 72 2d 6d 6f 64 65 2d 6d 61 70 3e 5c 0a 5c 5c 7b 73 6c 69 6d 65 2d 73 70 72 6f 66 | rowser-mode-map>\.\\{slime-sprof |
| ae180 | 2d 62 72 6f 77 73 65 72 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 3a 73 79 6e 74 61 78 2d 74 61 | -browser-mode-map}"...:syntax-ta |
| ae1a0 | 62 6c 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 0a 20 20 28 73 65 | ble.lisp-mode-syntax-table...(se |
| ae1c0 | 74 71 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 0a 28 73 65 74 2d 6b 65 | tq.buffer-read-only.t))..(set-ke |
| ae1e0 | 79 6d 61 70 2d 70 61 72 65 6e 74 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d | ymap-parent.slime-sprof-browser- |
| ae200 | 6d 6f 64 65 2d 6d 61 70 20 73 6c 69 6d 65 2d 70 61 72 65 6e 74 2d 6d 61 70 29 0a 0a 28 73 6c 69 | mode-map.slime-parent-map)..(sli |
| ae220 | 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 | me-define-keys.slime-sprof-brows |
| ae240 | 65 72 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 22 68 22 20 27 64 65 73 63 72 69 62 65 2d 6d 6f 64 | er-mode-map...("h".'describe-mod |
| ae260 | 65 29 0a 20 20 28 22 64 22 20 27 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 64 | e)...("d".'slime-sprof-browser-d |
| ae280 | 69 73 61 73 73 65 6d 62 6c 65 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 22 67 22 20 27 73 6c 69 | isassemble-function)...("g".'sli |
| ae2a0 | 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 67 6f 2d 74 6f 29 0a 20 20 28 22 76 22 20 27 | me-sprof-browser-go-to)...("v".' |
| ae2c0 | 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 76 69 65 77 2d 73 6f 75 72 63 65 29 | slime-sprof-browser-view-source) |
| ae2e0 | 0a 20 20 28 22 73 22 20 27 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 74 6f 67 67 6c 65 2d 73 77 61 6e | ...("s".'slime-sprof-toggle-swan |
| ae300 | 6b 2d 65 78 63 6c 75 73 69 6f 6e 29 0a 20 20 28 28 6b 62 64 20 22 52 45 54 22 29 20 27 73 6c 69 | k-exclusion)...((kbd."RET").'sli |
| ae320 | 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 74 6f 67 67 6c 65 29 29 0a 0a 3b 3b 20 53 74 | me-sprof-browser-toggle))..;;.St |
| ae340 | 61 72 74 20 2f 20 73 74 6f 70 20 70 72 6f 66 69 6c 69 6e 67 0a 0a 28 63 6c 2d 64 65 66 75 6e 20 | art./.stop.profiling..(cl-defun. |
| ae360 | 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 74 61 72 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 6d 6f | slime-sprof-start.(&optional.(mo |
| ae380 | 64 65 20 3a 63 70 75 29 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 | de.:cpu))...(interactive)...(sli |
| ae3a0 | 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 73 70 72 6f 66 2d 73 74 61 72 | me-eval.`(swank:swank-sprof-star |
| ae3c0 | 74 20 3a 6d 6f 64 65 20 2c 6d 6f 64 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 | t.:mode.,mode)))..(defun.slime-s |
| ae3e0 | 70 72 6f 66 2d 73 74 61 72 74 2d 61 6c 6c 6f 63 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | prof-start-alloc.()...(interacti |
| ae400 | 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 74 61 72 74 20 3a 61 6c 6c 6f 63 29 | ve)...(slime-sprof-start.:alloc) |
| ae420 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 74 61 72 74 2d 74 69 6d 65 | )..(defun.slime-sprof-start-time |
| ae440 | 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 73 70 72 | .()...(interactive)...(slime-spr |
| ae460 | 6f 66 2d 73 74 61 72 74 20 3a 74 69 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 | of-start.:time))..(defun.slime-s |
| ae480 | 70 72 6f 66 2d 73 74 6f 70 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | prof-stop.()...(interactive)...( |
| ae4a0 | 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 73 70 72 6f 66 2d 73 | slime-eval.`(swank:swank-sprof-s |
| ae4c0 | 74 6f 70 29 29 29 0a 0a 3b 3b 20 52 65 70 6f 72 74 69 6e 67 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | top)))..;;.Reporting..(defun.sli |
| ae4e0 | 6d 65 2d 73 70 72 6f 66 2d 66 6f 72 6d 61 74 20 28 67 72 61 70 68 29 0a 20 20 28 77 69 74 68 2d | me-sprof-format.(graph)...(with- |
| ae500 | 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d | current-buffer.(slime-buffer-nam |
| ae520 | 65 20 3a 73 70 72 6f 66 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 69 6e 65 20 28 6c 69 6e 65 2d | e.:sprof).....(let.((line.(line- |
| ae540 | 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 | number-at-pos))...........(point |
| ae560 | 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e | .(point))).......(save-excursion |
| ae580 | 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 | ........(let.((inhibit-read-only |
| ae5a0 | 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 | .t))..........(erase-buffer).... |
| ae5c0 | 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 25 34 73 20 25 2d 35 36 73 | ......(insert.(format."%4s.%-56s |
| ae5e0 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 52 61 6e 6b | ".........................."Rank |
| ae600 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4e 61 6d 65 | ".........................."Name |
| ae620 | 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 6c 61 62 65 6c 20 6e 61 | "))..........(loop.for.(label.na |
| ae640 | 6d 65 29 20 69 6e 20 27 28 28 22 53 65 6c 66 25 22 20 73 65 6c 66 29 20 28 22 43 75 6d 75 6c 25 | me).in.'(("Self%".self).("Cumul% |
| ae660 | 22 20 63 75 6d 75 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 | ".cumul))................do..... |
| ae680 | 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 74 65 78 74 2d 62 75 74 74 6f 6e 0a 20 | ...........(insert-text-button.. |
| ae6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 62 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 | ...............label............ |
| ae6c0 | 20 20 20 20 20 27 62 75 74 74 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | .....'button.t.................' |
| ae6e0 | 73 6f 72 74 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 61 63 74 69 6f | sort.name.................'actio |
| ae700 | 6e 20 27 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 6f 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | n.'slime-sprof-sort)............ |
| ae720 | 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 | ....(insert."."))..........(inse |
| ae740 | 72 74 20 22 54 6f 74 61 6c 25 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 | rt."Total%\n")..........(dolist. |
| ae760 | 28 64 61 74 61 20 67 72 61 70 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 | (data.graph)............(slime-s |
| ae780 | 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 69 6e 73 65 72 74 2d 6c 69 6e 65 20 64 61 74 61 20 35 34 | prof-browser-insert-line.data.54 |
| ae7a0 | 29 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 3d 20 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 | )))).......(if.(=.line.1)....... |
| ae7c0 | 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 | ....(goto-char.point)........... |
| ae7e0 | 28 67 6f 74 6f 2d 6c 69 6e 65 20 32 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | (goto-line.2)))))..(defun.slime- |
| ae800 | 73 70 72 6f 66 2d 73 6f 72 74 20 28 61 72 67 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 6f 73 20 28 | sprof-sort.(arg)...(let*.((pos.( |
| ae820 | 69 66 20 28 6d 61 72 6b 65 72 70 20 61 72 67 29 20 61 72 67 20 28 70 6f 69 6e 74 29 29 29 0a 20 | if.(markerp.arg).arg.(point))).. |
| ae840 | 20 20 20 20 20 20 20 20 28 73 6f 72 74 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 | ........(sort.(get-text-property |
| ae860 | 20 70 6f 73 20 27 73 6f 72 74 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 73 6c 69 6d 65 2d 73 70 | .pos.'sort))).....(setf.slime-sp |
| ae880 | 72 6f 66 2d 73 6f 72 74 20 73 6f 72 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 2d | rof-sort.sort).....(slime-sprof- |
| ae8a0 | 75 70 64 61 74 65 29 29 29 0a 0a 28 63 6c 2d 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 | update)))..(cl-defun.slime-sprof |
| ae8c0 | 2d 75 70 64 61 74 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 65 78 63 6c 75 64 65 2d 73 77 61 6e | -update.(&optional.(exclude-swan |
| ae8e0 | 6b 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 65 78 63 6c 75 64 65 2d 73 77 61 6e 6b 29 29 0a 20 20 | k.slime-sprof-exclude-swank))... |
| ae900 | 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d | (slime-eval-async.`(swank:swank- |
| ae920 | 73 70 72 6f 66 2d 67 65 74 2d 63 61 6c 6c 2d 67 72 61 70 68 0a 20 20 20 20 20 20 20 20 20 20 20 | sprof-get-call-graph............ |
| ae940 | 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 63 6c 75 64 65 2d 73 77 61 6e 6b 20 2c 65 78 63 6c 75 | ...........:exclude-swank.,exclu |
| ae960 | 64 65 2d 73 77 61 6e 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | de-swank.......................: |
| ae980 | 73 6f 72 74 20 27 2c 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 6f 72 74 29 0a 20 20 20 20 20 20 20 | sort.',slime-sprof-sort)........ |
| ae9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 66 6f 72 6d 61 74 | .............'slime-sprof-format |
| ae9c0 | 29 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 | ))..(defalias.'slime-sprof-brows |
| ae9e0 | 65 72 20 27 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 72 65 70 6f 72 74 29 0a 0a 28 64 65 66 75 6e 20 | er.'slime-sprof-report)..(defun. |
| aea00 | 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 72 65 70 6f 72 74 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 | slime-sprof-report.()...(interac |
| aea20 | 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 | tive)...(slime-with-popup-buffer |
| aea40 | 20 28 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 73 70 72 6f 66 29 0a 20 20 20 | .((slime-buffer-name.:sprof).... |
| aea60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6e 6e 65 63 | .........................:connec |
| aea80 | 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion.t.......................... |
| aeaa0 | 20 20 20 3a 73 65 6c 65 63 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...:select.t.................... |
| aeac0 | 20 20 20 20 20 20 20 20 20 3a 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 | .........:mode.'slime-sprof-brow |
| aeae0 | 73 65 72 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 75 70 64 61 74 | ser-mode).....(slime-sprof-updat |
| aeb00 | 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 74 6f 67 67 6c 65 2d | e)))..(defun.slime-sprof-toggle- |
| aeb20 | 73 77 61 6e 6b 2d 65 78 63 6c 75 73 69 6f 6e 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | swank-exclusion.()...(interactiv |
| aeb40 | 65 29 0a 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 65 78 63 6c 75 64 65 2d 73 | e)...(setq.slime-sprof-exclude-s |
| aeb60 | 77 61 6e 6b 0a 20 20 20 20 20 20 20 20 28 6e 6f 74 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 65 78 | wank.........(not.slime-sprof-ex |
| aeb80 | 63 6c 75 64 65 2d 73 77 61 6e 6b 29 29 0a 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 75 70 64 | clude-swank))...(slime-sprof-upd |
| aeba0 | 61 74 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 | ate))..(defun.slime-sprof-browse |
| aebc0 | 72 2d 69 6e 73 65 72 74 2d 6c 69 6e 65 20 28 64 61 74 61 20 6e 61 6d 65 2d 6c 65 6e 67 74 68 29 | r-insert-line.(data.name-length) |
| aebe0 | 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 69 6e 64 65 78 | ...(cl-destructuring-bind.(index |
| aec00 | 20 6e 61 6d 65 20 73 65 6c 66 20 63 75 6d 75 6c 20 74 6f 74 61 6c 29 0a 20 20 20 20 20 20 64 61 | .name.self.cumul.total).......da |
| aec20 | 74 61 0a 20 20 20 20 28 69 66 20 69 6e 64 65 78 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 | ta.....(if.index.........(insert |
| aec40 | 20 28 66 6f 72 6d 61 74 20 22 25 2d 34 64 20 22 20 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 28 | .(format."%-4d.".index)).......( |
| aec60 | 69 6e 73 65 72 74 20 22 20 20 20 20 20 22 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 | insert.".....")).....(slime-inse |
| aec80 | 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 64 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 | rt-propertized......(slime-sprof |
| aeca0 | 2d 62 72 6f 77 73 65 72 2d 6e 61 6d 65 2d 70 72 6f 70 65 72 74 69 65 73 29 0a 20 20 20 20 20 28 | -browser-name-properties)......( |
| aecc0 | 66 6f 72 6d 61 74 20 28 66 6f 72 6d 61 74 20 22 25 25 2d 25 64 73 20 22 20 6e 61 6d 65 2d 6c 65 | format.(format."%%-%ds.".name-le |
| aece0 | 6e 67 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 2d | ngth)..............(slime-sprof- |
| aed00 | 61 62 62 72 65 76 69 61 74 65 2d 6e 61 6d 65 20 6e 61 6d 65 20 6e 61 6d 65 2d 6c 65 6e 67 74 68 | abbreviate-name.name.name-length |
| aed20 | 29 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 25 36 2e 32 66 20 22 | ))).....(insert.(format."%6.2f." |
| aed40 | 20 73 65 6c 66 29 29 0a 20 20 20 20 28 77 68 65 6e 20 63 75 6d 75 6c 0a 20 20 20 20 20 20 28 69 | .self)).....(when.cumul.......(i |
| aed60 | 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 25 36 2e 32 66 20 22 20 63 75 6d 75 6c 29 29 0a 20 | nsert.(format."%6.2f.".cumul)).. |
| aed80 | 20 20 20 20 20 28 77 68 65 6e 20 74 6f 74 61 6c 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 | .....(when.total.........(insert |
| aeda0 | 20 28 66 6f 72 6d 61 74 20 22 25 36 2e 32 66 22 20 74 6f 74 61 6c 29 29 29 29 0a 20 20 20 20 28 | .(format."%6.2f".total)))).....( |
| aedc0 | 77 68 65 6e 20 69 6e 64 65 78 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 | when.index.......(slime-sprof-br |
| aede0 | 6f 77 73 65 72 2d 61 64 64 2d 6c 69 6e 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 | owser-add-line-text-properties.. |
| aee00 | 20 20 20 20 20 20 60 28 70 72 6f 66 69 6c 65 2d 69 6e 64 65 78 20 2c 69 6e 64 65 78 20 65 78 70 | ......`(profile-index.,index.exp |
| aee20 | 61 6e 64 65 64 20 6e 69 6c 29 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 29 29 | anded.nil))).....(insert."\n"))) |
| aee40 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 61 62 62 72 65 76 69 61 74 65 2d | ..(defun.slime-sprof-abbreviate- |
| aee60 | 6e 61 6d 65 20 28 6e 61 6d 65 20 6d 61 78 2d 6c 65 6e 67 74 68 29 0a 20 20 28 63 6c 2d 73 75 62 | name.(name.max-length)...(cl-sub |
| aee80 | 73 65 71 20 6e 61 6d 65 20 30 20 28 6d 69 6e 20 28 6c 65 6e 67 74 68 20 6e 61 6d 65 29 20 6d 61 | seq.name.0.(min.(length.name).ma |
| aeea0 | 78 2d 6c 65 6e 67 74 68 29 29 29 0a 0a 3b 3b 20 45 78 70 61 6e 64 69 6e 67 20 2f 20 63 6f 6c 6c | x-length)))..;;.Expanding./.coll |
| aeec0 | 61 70 73 69 6e 67 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 | apsing..(defun.slime-sprof-brows |
| aeee0 | 65 72 2d 74 6f 67 67 6c 65 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | er-toggle.()...(interactive)...( |
| aef00 | 6c 65 74 20 28 28 69 6e 64 65 78 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 | let.((index.(get-text-property.( |
| aef20 | 70 6f 69 6e 74 29 20 27 70 72 6f 66 69 6c 65 2d 69 6e 64 65 78 29 29 29 0a 20 20 20 20 28 77 68 | point).'profile-index))).....(wh |
| aef40 | 65 6e 20 69 6e 64 65 78 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 | en.index.......(save-excursion.. |
| aef60 | 20 20 20 20 20 20 20 28 69 66 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d | .......(if.(slime-sprof-browser- |
| aef80 | 6c 69 6e 65 2d 65 78 70 61 6e 64 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | line-expanded-p).............(sl |
| aefa0 | 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 63 6f 6c 6c 61 70 73 65 29 0a 20 20 20 20 | ime-sprof-browser-collapse)..... |
| aefc0 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 65 78 70 | ........(slime-sprof-browser-exp |
| aefe0 | 61 6e 64 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 | and))))))..(defun.slime-sprof-br |
| af000 | 6f 77 73 65 72 2d 63 6f 6c 6c 61 70 73 65 20 28 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 | owser-collapse.()...(let.((inhib |
| af020 | 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f | it-read-only.t)).....(slime-spro |
| af040 | 66 2d 62 72 6f 77 73 65 72 2d 61 64 64 2d 6c 69 6e 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 | f-browser-add-line-text-properti |
| af060 | 65 73 20 27 28 65 78 70 61 6e 64 65 64 20 6e 69 6c 29 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 | es.'(expanded.nil)).....(forward |
| af080 | 2d 6c 69 6e 65 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 75 6e 74 69 6c 20 28 6f 72 20 28 65 | -line).....(cl-loop.until.(or.(e |
| af0a0 | 6f 62 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 | obp)........................(get |
| af0c0 | 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 70 72 6f 66 69 6c 65 2d | -text-property.(point).'profile- |
| af0e0 | 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 | index))..............do......... |
| af100 | 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 61 74 2d 62 6f | .....(delete-region.(point-at-bo |
| af120 | 6c 29 20 28 70 6f 69 6e 74 2d 61 74 2d 65 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | l).(point-at-eol)).............. |
| af140 | 28 75 6e 6c 65 73 73 20 28 65 6f 62 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | (unless.(eobp)................(d |
| af160 | 65 6c 65 74 65 2d 63 68 61 72 20 31 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | elete-char.1)))))..(defun.slime- |
| af180 | 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 65 78 70 61 6e 64 20 28 29 0a 20 20 28 6c 65 74 2a 20 | sprof-browser-expand.()...(let*. |
| af1a0 | 28 28 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 | ((buffer.(current-buffer))...... |
| af1c0 | 20 20 20 20 28 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e | ....(point.(point))..........(in |
| af1e0 | 64 65 78 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 6f 69 6e 74 20 27 70 72 | dex.(get-text-property.point.'pr |
| af200 | 6f 66 69 6c 65 2d 69 6e 64 65 78 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 | ofile-index))).....(slime-eval-a |
| af220 | 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 73 70 72 6f 66 2d 65 78 70 61 6e 64 2d | sync.`(swank:swank-sprof-expand- |
| af240 | 6e 6f 64 65 20 2c 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | node.,index).................... |
| af260 | 20 20 20 28 6c 61 6d 62 64 61 20 28 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(lambda.(data)............... |
| af280 | 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 | ..........(with-current-buffer.b |
| af2a0 | 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uffer........................... |
| af2c0 | 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (save-excursion................. |
| af2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 | ............(cl-destructuring-bi |
| af300 | 6e 64 20 28 26 6b 65 79 20 63 61 6c 6c 65 72 73 20 63 61 6c 6c 73 29 0a 20 20 20 20 20 20 20 20 | nd.(&key.callers.calls)......... |
| af320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 74 61 0a 20 20 20 | ........................data.... |
| af340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | ...........................(slim |
| af360 | 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 61 64 64 2d 65 78 70 61 6e 73 69 6f 6e 20 63 61 | e-sprof-browser-add-expansion.ca |
| af380 | 6c 6c 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | llers........................... |
| af3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| af3c0 | 20 20 20 20 20 20 20 20 20 22 43 61 6c 6c 65 72 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........."Callers".............. |
| af3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| af400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 29 0a 20 20 20 20 20 20 20 | ......................0)........ |
| af420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 70 | .......................(slime-sp |
| af440 | 72 6f 66 2d 62 72 6f 77 73 65 72 2d 61 64 64 2d 65 78 70 61 6e 73 69 6f 6e 20 63 61 6c 6c 73 0a | rof-browser-add-expansion.calls. |
| af460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| af480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| af4a0 | 20 20 20 22 43 61 6c 6c 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..."Calls"...................... |
| af4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| af4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ..............0))))))))..(defun. |
| af500 | 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 61 64 64 2d 65 78 70 61 6e 73 69 6f | slime-sprof-browser-add-expansio |
| af520 | 6e 20 28 64 61 74 61 20 74 79 70 65 20 6e 65 73 74 69 6e 67 29 0a 20 20 28 77 68 65 6e 20 64 61 | n.(data.type.nesting)...(when.da |
| af540 | 74 61 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 | ta.....(let.((inhibit-read-only. |
| af560 | 74 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 61 | t)).......(slime-sprof-browser-a |
| af580 | 64 64 2d 6c 69 6e 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 27 28 65 78 70 61 6e 64 | dd-line-text-properties.'(expand |
| af5a0 | 65 64 20 74 29 29 0a 20 20 20 20 20 20 28 65 6e 64 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 20 | ed.t)).......(end-of-line)...... |
| af5c0 | 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 5c 6e 20 20 20 20 20 25 73 22 20 74 79 70 | .(insert.(format."\n.....%s".typ |
| af5e0 | 65 29 29 0a 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6e 6f 64 65 20 64 61 74 61 29 0a 20 20 | e)).......(dolist.(node.data)... |
| af600 | 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 69 6e | ......(cl-destructuring-bind.(in |
| af620 | 64 65 78 20 6e 61 6d 65 20 63 75 6d 75 6c 29 20 6e 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 28 | dex.name.cumul).node...........( |
| af640 | 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 28 66 6f 72 6d 61 74 20 22 5c 6e 25 25 25 64 73 22 | insert.(format.(format."\n%%%ds" |
| af660 | 20 28 2b 20 37 20 28 2a 20 32 20 6e 65 73 74 69 6e 67 29 29 29 20 22 22 29 29 0a 20 20 20 20 20 | .(+.7.(*.2.nesting))).""))...... |
| af680 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 64 0a 20 | .....(slime-insert-propertized.. |
| af6a0 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 6e | ..........(slime-sprof-browser-n |
| af6c0 | 61 6d 65 2d 70 72 6f 70 65 72 74 69 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | ame-properties)............(let. |
| af6e0 | 28 28 6c 65 6e 20 28 2d 20 35 39 20 28 2a 20 32 20 6e 65 73 74 69 6e 67 29 29 29 29 0a 20 20 20 | ((len.(-.59.(*.2.nesting)))).... |
| af700 | 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 28 66 6f 72 6d 61 74 20 22 25 25 2d 25 64 | ..........(format.(format."%%-%d |
| af720 | 73 20 22 20 6c 65 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | s.".len)......................(s |
| af740 | 6c 69 6d 65 2d 73 70 72 6f 66 2d 61 62 62 72 65 76 69 61 74 65 2d 6e 61 6d 65 20 6e 61 6d 65 20 | lime-sprof-abbreviate-name.name. |
| af760 | 6c 65 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 | len))))...........(slime-sprof-b |
| af780 | 72 6f 77 73 65 72 2d 61 64 64 2d 6c 69 6e 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 0a | rowser-add-line-text-properties. |
| af7a0 | 20 20 20 20 20 20 20 20 20 20 20 60 28 70 72 6f 66 69 6c 65 2d 73 75 62 2d 69 6e 64 65 78 20 2c | ...........`(profile-sub-index., |
| af7c0 | 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 | index))...........(insert.(forma |
| af7e0 | 74 20 22 25 36 2e 32 66 22 20 63 75 6d 75 6c 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | t."%6.2f".cumul)))))))..(defun.s |
| af800 | 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 6c 69 6e 65 2d 65 78 70 61 6e 64 65 64 | lime-sprof-browser-line-expanded |
| af820 | 2d 70 20 28 29 0a 20 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e | -p.()...(get-text-property.(poin |
| af840 | 74 29 20 27 65 78 70 61 6e 64 65 64 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 | t).'expanded))..(defun.slime-spr |
| af860 | 6f 66 2d 62 72 6f 77 73 65 72 2d 61 64 64 2d 6c 69 6e 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 | of-browser-add-line-text-propert |
| af880 | 69 65 73 20 28 70 72 6f 70 65 72 74 69 65 73 29 0a 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f | ies.(properties)...(add-text-pro |
| af8a0 | 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 | perties.(point-at-bol).......... |
| af8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 61 74 2d 65 6f 6c 29 0a 20 20 20 | ..............(point-at-eol).... |
| af8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 70 65 72 74 69 65 73 29 29 | ....................properties)) |
| af900 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 6e 61 6d | ..(defun.slime-sprof-browser-nam |
| af920 | 65 2d 70 72 6f 70 65 72 74 69 65 73 20 28 29 0a 20 20 27 28 66 61 63 65 20 73 6c 64 62 2d 72 65 | e-properties.()...'(face.sldb-re |
| af940 | 73 74 61 72 74 2d 6e 75 6d 62 65 72 2d 66 61 63 65 29 29 0a 0a 3b 3b 20 22 47 6f 20 74 6f 20 66 | start-number-face))..;;."Go.to.f |
| af960 | 75 6e 63 74 69 6f 6e 22 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f | unction"..(defun.slime-sprof-bro |
| af980 | 77 73 65 72 2d 67 6f 2d 74 6f 20 28 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | wser-go-to.()................... |
| af9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 28 69 6e 74 65 | ...........................(inte |
| af9c0 | 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 73 75 62 2d 69 6e 64 65 78 20 28 67 65 74 | ractive)...(let.((sub-index.(get |
| af9e0 | 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 70 72 6f 66 69 6c 65 2d | -text-property.(point).'profile- |
| afa00 | 73 75 62 2d 69 6e 64 65 78 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 73 75 62 2d 69 6e 64 65 78 | sub-index))).....(when.sub-index |
| afa20 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 74 65 78 74 2d 70 72 6f 70 65 72 74 79 | .......(let.((pos.(text-property |
| afa40 | 2d 61 6e 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 69 | -any...................(point-mi |
| afa60 | 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 27 70 72 6f 66 69 6c 65 2d 69 6e 64 65 78 20 73 75 | n).(point-max).'profile-index.su |
| afa80 | 62 2d 69 6e 64 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 6f 73 20 28 67 6f | b-index))).........(when.pos.(go |
| afaa0 | 74 6f 2d 63 68 61 72 20 70 6f 73 29 29 29 29 29 29 0a 0a 3b 3b 20 44 69 73 61 73 73 65 6d 62 6c | to-char.pos))))))..;;.Disassembl |
| afac0 | 79 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 64 69 | y..(defun.slime-sprof-browser-di |
| afae0 | 73 61 73 73 65 6d 62 6c 65 2d 66 75 6e 63 74 69 6f 6e 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 | sassemble-function.()...(interac |
| afb00 | 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 64 65 78 20 28 6f 72 20 28 67 65 74 2d 74 65 | tive)...(let.((index.(or.(get-te |
| afb20 | 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 70 72 6f 66 69 6c 65 2d 69 6e 64 | xt-property.(point).'profile-ind |
| afb40 | 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 | ex)....................(get-text |
| afb60 | 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 70 72 6f 66 69 6c 65 2d 73 75 62 2d 69 | -property.(point).'profile-sub-i |
| afb80 | 6e 64 65 78 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 69 6e 64 65 78 0a 20 20 20 20 20 20 28 | ndex)))).....(when.index.......( |
| afba0 | 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 20 60 28 73 77 61 6e 6b 3a 73 77 61 6e | slime-eval-describe.`(swank:swan |
| afbc0 | 6b 2d 73 70 72 6f 66 2d 64 69 73 61 73 73 65 6d 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | k-sprof-disassemble............. |
| afbe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 69 6e 64 65 78 29 29 29 29 29 0a 0a 3b 3b | .................,index)))))..;; |
| afc00 | 20 56 69 65 77 20 73 6f 75 72 63 65 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 | .View.source..(defun.slime-sprof |
| afc20 | 2d 62 72 6f 77 73 65 72 2d 76 69 65 77 2d 73 6f 75 72 63 65 20 28 29 0a 20 20 28 69 6e 74 65 72 | -browser-view-source.()...(inter |
| afc40 | 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 64 65 78 20 28 6f 72 20 28 67 65 74 2d | active)...(let.((index.(or.(get- |
| afc60 | 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 70 72 6f 66 69 6c 65 2d 69 | text-property.(point).'profile-i |
| afc80 | 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 | ndex)....................(get-te |
| afca0 | 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 70 72 6f 66 69 6c 65 2d 73 75 62 | xt-property.(point).'profile-sub |
| afcc0 | 2d 69 6e 64 65 78 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 69 6e 64 65 78 0a 20 20 20 20 20 | -index)))).....(when.index...... |
| afce0 | 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 20 60 28 73 77 61 6e | .(slime-eval-async........`(swan |
| afd00 | 6b 3a 73 77 61 6e 6b 2d 73 70 72 6f 66 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 2c 69 | k:swank-sprof-source-location.,i |
| afd20 | 6e 64 65 78 29 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 6f 75 72 63 65 2d 6c 6f 63 | ndex)........(lambda.(source-loc |
| afd40 | 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 73 6f 75 | ation)..........(slime-dcase.sou |
| afd60 | 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 65 72 72 6f 72 | rce-location............((:error |
| afd80 | 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 | .message).............(message." |
| afda0 | 25 73 22 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 6e 67 29 29 | %s".message).............(ding)) |
| afdc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | ............(t.............(slim |
| afde0 | 65 2d 73 68 6f 77 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 6f 75 72 63 65 2d 6c 6f | e-show-source-location.source-lo |
| afe00 | 63 61 74 69 6f 6e 29 29 29 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d | cation))))))))..(provide.'slime- |
| afe20 | 73 70 72 6f 66 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | sprof).......................... |
| afe40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| afe60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| afe80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| afea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| afec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| afee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| aff00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| aff20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| aff40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| aff60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| aff80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| affa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| affc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| affe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 73 62 63 6c 2d 65 78 | slime-2.31/contrib/swank-sbcl-ex |
| b0020 | 74 73 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ts.lisp......................... |
| b0040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| b0080 | 30 30 30 35 36 37 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 36 30 30 00 20 30 00 00 00 | 0005673.00000000000.016600..0... |
| b00a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b00c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b00e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| b0120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| b0140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b01a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b01c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b01e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0200 | 3b 3b 3b 20 73 77 61 6e 6b 2d 73 62 63 6c 2d 65 78 74 73 2e 6c 69 73 70 20 2d 2d 2d 20 4d 69 73 | ;;;.swank-sbcl-exts.lisp.---.Mis |
| b0220 | 63 20 65 78 74 65 6e 73 69 6f 6e 73 20 66 6f 72 20 53 42 43 4c 0a 3b 3b 0a 3b 3b 20 41 75 74 68 | c.extensions.for.SBCL.;;.;;.Auth |
| b0240 | 6f 72 73 3a 20 54 6f 62 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 | ors:.Tobias.C..Rittweiler.<tcr@f |
| b0260 | 72 65 65 62 69 74 73 2e 64 65 3e 0a 3b 3b 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 50 75 62 6c 69 | reebits.de>.;;.;;.License:.Publi |
| b0280 | 63 20 44 6f 6d 61 69 6e 0a 3b 3b 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 | c.Domain.;;..(in-package.:swank) |
| b02a0 | 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 | ..(eval-when.(:compile-toplevel. |
| b02c0 | 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 73 77 61 6e | :load-toplevel.:execute)...(swan |
| b02e0 | 6b 2d 72 65 71 75 69 72 65 20 3a 73 77 61 6e 6b 2d 61 72 67 6c 69 73 74 73 29 29 0a 0a 3b 3b 20 | k-require.:swank-arglists))..;;. |
| b0300 | 57 65 20 6e 65 65 64 20 74 6f 20 64 6f 20 74 68 69 73 20 73 6f 20 75 73 65 72 73 20 63 61 6e 20 | We.need.to.do.this.so.users.can. |
| b0320 | 70 6c 61 63 65 20 60 73 6c 69 6d 65 2d 73 62 63 6c 2d 65 78 74 73 27 20 69 6e 74 6f 20 74 68 65 | place.`slime-sbcl-exts'.into.the |
| b0340 | 69 72 0a 3b 3b 20 7e 2f 2e 65 6d 61 63 73 2c 20 61 6e 64 20 73 74 69 6c 6c 20 75 73 65 20 61 6e | ir.;;.~/.emacs,.and.still.use.an |
| b0360 | 79 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 65 79 20 77 61 6e 74 2e 0a 23 2b 73 62 | y.implementation.they.want..#+sb |
| b0380 | 63 6c 0a 28 70 72 6f 67 6e 0a 0c 20 20 0a 3b 3b 3b 20 44 69 73 70 6c 61 79 20 61 72 67 6c 69 73 | cl.(progn.....;;;.Display.arglis |
| b03a0 | 74 20 6f 66 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 2e 0a 3b 3b 3b 0a 28 64 65 66 6d 65 74 68 6f | t.of.instructions..;;;.(defmetho |
| b03c0 | 64 20 63 6f 6d 70 75 74 65 2d 65 6e 72 69 63 68 65 64 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 | d.compute-enriched-decoded-argli |
| b03e0 | 73 74 20 28 28 6f 70 65 72 61 74 6f 72 2d 66 6f 72 6d 20 28 65 71 6c 20 27 73 62 2d 61 73 73 65 | st.((operator-form.(eql.'sb-asse |
| b0400 | 6d 3a 69 6e 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m:inst))........................ |
| b0420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 75 6d 65 6e 74 2d 66 | ......................argument-f |
| b0440 | 6f 72 6d 73 29 0a 20 20 28 66 6c 65 74 20 28 28 64 65 63 6f 64 65 2d 69 6e 73 74 72 75 63 74 69 | orms)...(flet.((decode-instructi |
| b0460 | 6f 6e 2d 61 72 67 6c 69 73 74 20 28 69 6e 73 74 72 2d 6e 61 6d 65 20 69 6e 73 74 72 2d 61 72 67 | on-arglist.(instr-name.instr-arg |
| b0480 | 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 63 6f 64 65 64 2d | list)............(let.((decoded- |
| b04a0 | 61 72 67 6c 69 73 74 20 28 64 65 63 6f 64 65 2d 61 72 67 6c 69 73 74 20 69 6e 73 74 72 2d 61 72 | arglist.(decode-arglist.instr-ar |
| b04c0 | 67 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 61 72 67 | glist)))..............;;.The.arg |
| b04e0 | 6c 69 73 74 20 6f 66 20 49 4e 53 54 20 69 73 20 28 69 6e 73 74 72 75 63 74 69 6f 6e 20 2e 2e 2e | list.of.INST.is.(instruction.... |
| b0500 | 49 4e 53 54 52 2d 41 52 47 4c 49 53 54 2e 2e 2e 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | INSTR-ARGLIST...)............... |
| b0520 | 28 70 75 73 68 20 27 73 62 2d 61 73 73 65 6d 3a 3a 69 6e 73 74 72 75 63 74 69 6f 6e 20 28 61 72 | (push.'sb-assem::instruction.(ar |
| b0540 | 67 6c 69 73 74 2e 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c | glist.required-args.decoded-argl |
| b0560 | 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 64 65 63 6f 64 | ist))..............(values.decod |
| b0580 | 65 64 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-arglist...................... |
| b05a0 | 28 6c 69 73 74 20 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 69 6e 73 74 72 2d 6e 61 6d | (list.(string-downcase.instr-nam |
| b05c0 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 29 0a 20 | e))......................t)))).. |
| b05e0 | 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 61 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 73 29 0a 20 20 20 | ...(if.(null.argument-forms).... |
| b0600 | 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 | .....(call-next-method)......... |
| b0620 | 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 69 6e 73 74 72 75 63 74 69 6f 6e | (destructuring-bind.(instruction |
| b0640 | 20 26 72 65 73 74 20 61 72 67 73 29 20 61 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 73 0a 20 20 20 20 | .&rest.args).argument-forms..... |
| b0660 | 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 20 20 | ......(declare.(ignore.args))... |
| b0680 | 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 69 6e 73 74 72 2d 6e 61 6d 65 0a 20 20 20 20 20 | ........(let*.((instr-name...... |
| b06a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 69 6e 73 74 72 75 63 74 | ..............(typecase.instruct |
| b06c0 | 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 | ion......................(arglis |
| b06e0 | 74 2d 64 75 6d 6d 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | t-dummy.......................(s |
| b0700 | 74 72 69 6e 67 2d 75 70 63 61 73 65 20 28 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 2e 73 74 72 69 | tring-upcase.(arglist-dummy.stri |
| b0720 | 6e 67 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 69 6e 73 74 72 75 63 74 69 6f 6e 29 29 29 | ng-representation.instruction))) |
| b0740 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 0a 20 20 | ......................(symbol... |
| b0760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 75 70 63 61 | ....................(string-upca |
| b0780 | 73 65 20 69 6e 73 74 72 75 63 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | se.instruction)))).............. |
| b07a0 | 20 20 20 20 28 69 6e 73 74 72 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(instr-fn................... |
| b07c0 | 20 23 2b 28 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2e | .#+(and.......................#. |
| b07e0 | 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 2a 69 6e 73 | (swank/backend:with-symbol.'*ins |
| b0800 | 74 2d 65 6e 63 6f 64 65 72 2a 20 27 73 62 2d 61 73 73 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 | t-encoder*.'sb-assem)........... |
| b0820 | 20 20 20 20 20 20 20 20 20 20 20 20 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 | ............#.(swank/backend:wit |
| b0840 | 68 2d 73 79 6d 62 6f 6c 20 27 2a 62 61 63 6b 65 6e 64 2d 69 6e 73 74 72 75 63 74 69 6f 6e 2d 73 | h-symbol.'*backend-instruction-s |
| b0860 | 65 74 2d 70 61 63 6b 61 67 65 2a 20 27 73 62 2d 61 73 73 65 6d 29 29 0a 20 20 20 20 20 20 20 20 | et-package*.'sb-assem))......... |
| b0880 | 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 69 6e 73 74 72 2d 6e 61 6d 65 0a 20 20 20 20 20 | ...........(and.instr-name...... |
| b08a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 67 65 74 68 61 73 68 20 | ...................(or.(gethash. |
| b08c0 | 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 69 6e 73 74 72 2d 6e 61 6d 65 20 73 62 2d 61 73 73 65 6d | (find-symbol.instr-name.sb-assem |
| b08e0 | 3a 3a 2a 62 61 63 6b 65 6e 64 2d 69 6e 73 74 72 75 63 74 69 6f 6e 2d 73 65 74 2d 70 61 63 6b 61 | ::*backend-instruction-set-packa |
| b0900 | 67 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ge*)............................ |
| b0920 | 20 20 20 20 20 20 20 20 20 20 73 62 2d 61 73 73 65 6d 3a 3a 2a 69 6e 73 74 2d 65 6e 63 6f 64 65 | ..........sb-assem::*inst-encode |
| b0940 | 72 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r*)............................. |
| b0960 | 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4d 3a 7e 41 22 20 | (find-symbol.(format.nil."M:~A". |
| b0980 | 69 6e 73 74 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | instr-name)..................... |
| b09a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 62 2d 61 73 73 65 6d 3a 3a 2a | .....................sb-assem::* |
| b09c0 | 62 61 63 6b 65 6e 64 2d 69 6e 73 74 72 75 63 74 69 6f 6e 2d 73 65 74 2d 70 61 63 6b 61 67 65 2a | backend-instruction-set-package* |
| b09e0 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 6f 6e 73 70 20 69 | ))))).............(when.(consp.i |
| b0a00 | 6e 73 74 72 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 69 6e 73 | nstr-fn)...............(setf.ins |
| b0a20 | 74 72 2d 66 6e 20 28 63 61 72 20 69 6e 73 74 72 2d 66 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 | tr-fn.(car.instr-fn))).......... |
| b0a40 | 20 20 20 28 63 6f 6e 64 20 28 28 66 75 6e 63 74 69 6f 6e 70 20 69 6e 73 74 72 2d 66 6e 29 0a 20 | ...(cond.((functionp.instr-fn).. |
| b0a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 61 76 61 69 6c 61 62 6c | ..................(with-availabl |
| b0a80 | 65 2d 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 74 29 20 28 61 72 67 6c 69 73 74 20 69 6e 73 | e-arglist.(arglist).(arglist.ins |
| b0aa0 | 74 72 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 | tr-fn)......................(dec |
| b0ac0 | 6f 64 65 2d 69 6e 73 74 72 75 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 69 6e 73 74 72 2d 6e 61 | ode-instruction-arglist.instr-na |
| b0ae0 | 6d 65 20 28 63 64 72 20 61 72 67 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | me.(cdr.arglist))))............. |
| b0b00 | 20 20 20 20 20 20 28 28 66 62 6f 75 6e 64 70 20 69 6e 73 74 72 2d 66 6e 29 0a 20 20 20 20 20 20 | ......((fboundp.instr-fn)....... |
| b0b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 61 76 61 69 6c 61 62 6c 65 2d 61 72 67 | .............(with-available-arg |
| b0b40 | 6c 69 73 74 20 28 61 72 67 6c 69 73 74 29 20 28 61 72 67 6c 69 73 74 20 69 6e 73 74 72 2d 66 6e | list.(arglist).(arglist.instr-fn |
| b0b60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 42 2d 41 53 53 | )......................;;.SB-ASS |
| b0b80 | 45 4d 3a 49 4e 53 54 20 69 6e 76 6f 6b 65 73 20 61 20 73 79 6d 62 6f 6c 69 63 20 49 4e 53 54 52 | EM:INST.invokes.a.symbolic.INSTR |
| b0ba0 | 2d 46 4e 20 77 69 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | -FN.with......................;; |
| b0bc0 | 20 63 75 72 72 65 6e 74 20 73 65 67 6d 65 6e 74 20 61 6e 64 20 63 75 72 72 65 6e 74 20 76 6f 70 | .current.segment.and.current.vop |
| b0be0 | 20 69 6d 70 6c 69 63 69 74 6c 79 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .implicitly..................... |
| b0c00 | 20 20 28 64 65 63 6f 64 65 2d 69 6e 73 74 72 75 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 69 6e | ..(decode-instruction-arglist.in |
| b0c20 | 73 74 72 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | str-name........................ |
| b0c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f | ..........................(if.(o |
| b0c60 | 72 20 28 67 65 74 20 69 6e 73 74 72 2d 66 6e 20 3a 6d 61 63 72 6f 29 0a 20 20 20 20 20 20 20 20 | r.(get.instr-fn.:macro)......... |
| b0c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b0ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e | .................(macro-function |
| b0cc0 | 20 69 6e 73 74 72 2d 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .instr-fn))..................... |
| b0ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b0d00 | 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .arglist........................ |
| b0d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | ..............................(c |
| b0d40 | 64 72 20 61 72 67 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dr.arglist)))))................. |
| b0d60 | 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 | ..(t....................(call-ne |
| b0d80 | 78 74 2d 6d 65 74 68 6f 64 29 29 29 29 29 29 29 29 0a 0a 0c 0a 29 20 3b 20 50 52 4f 47 4e 0a 0a | xt-method))))))))....).;.PROGN.. |
| b0da0 | 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 73 62 63 6c 2d 65 78 74 73 29 0a 00 00 00 00 00 | (provide.:swank-sbcl-exts)...... |
| b0dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0e00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 69 6e 64 65 6e 74 61 | slime-2.31/contrib/swank-indenta |
| b0e20 | 74 69 6f 6e 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | tion.lisp....................... |
| b0e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0e60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| b0e80 | 30 30 31 33 35 34 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 32 30 35 00 20 30 00 00 00 | 0013545.00000000000.017205..0... |
| b0ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0f00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| b0f20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| b0f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b0fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b1000 | 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 28 64 65 66 76 61 72 20 2a 61 70 | (in-package.:swank)..(defvar.*ap |
| b1020 | 70 6c 69 63 61 74 69 6f 6e 2d 68 69 6e 74 73 2d 74 61 62 6c 65 73 2a 20 27 28 29 0a 20 20 22 41 | plication-hints-tables*.'()..."A |
| b1040 | 20 6c 69 73 74 20 6f 66 20 68 61 73 68 20 74 61 62 6c 65 73 20 6d 61 70 70 69 6e 67 20 73 79 6d | .list.of.hash.tables.mapping.sym |
| b1060 | 62 6f 6c 73 20 74 6f 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 68 69 6e 74 73 20 28 6c 69 73 74 73 | bols.to.indentation.hints.(lists |
| b1080 | 20 0a 6f 66 20 73 79 6d 62 6f 6c 73 20 61 6e 64 20 6e 75 6d 62 65 72 73 20 61 73 20 70 65 72 20 | ..of.symbols.and.numbers.as.per. |
| b10a0 | 63 6c 2d 69 6e 64 65 6e 74 2e 65 6c 29 2e 20 41 70 70 6c 69 63 61 74 69 6f 6e 73 20 63 61 6e 20 | cl-indent.el)..Applications.can. |
| b10c0 | 61 64 64 20 68 61 73 68 20 0a 74 61 62 6c 65 73 20 74 6f 20 74 68 65 20 6c 69 73 74 20 74 6f 20 | add.hash..tables.to.the.list.to. |
| b10e0 | 63 68 61 6e 67 65 20 74 68 65 20 61 75 74 6f 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 6c 69 6d | change.the.auto.indentation.slim |
| b1100 | 65 20 73 65 6e 64 73 20 74 6f 20 0a 65 6d 61 63 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 68 61 73 | e.sends.to..emacs.")..(defun.has |
| b1120 | 2d 61 70 70 6c 69 63 61 74 69 6f 6e 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 68 69 6e 74 2d 70 20 | -application-indentation-hint-p. |
| b1140 | 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 20 28 6c 6f 61 64 2d | (symbol)...(let.((default.(load- |
| b1160 | 74 69 6d 65 2d 76 61 6c 75 65 20 28 67 65 6e 73 79 6d 29 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 | time-value.(gensym)))).....(doli |
| b1180 | 73 74 20 28 74 61 62 6c 65 20 2a 61 70 70 6c 69 63 61 74 69 6f 6e 2d 68 69 6e 74 73 2d 74 61 62 | st.(table.*application-hints-tab |
| b11a0 | 6c 65 73 2a 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 | les*).......(let.((indentation.( |
| b11c0 | 67 65 74 68 61 73 68 20 73 79 6d 62 6f 6c 20 74 61 62 6c 65 20 64 65 66 61 75 6c 74 29 29 29 0a | gethash.symbol.table.default))). |
| b11e0 | 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 64 65 66 61 75 6c 74 20 69 6e 64 65 | ........(unless.(eq.default.inde |
| b1200 | 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 | ntation)...........(return-from. |
| b1220 | 68 61 73 2d 61 70 70 6c 69 63 61 74 69 6f 6e 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 68 69 6e 74 | has-application-indentation-hint |
| b1240 | 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 69 6e 64 65 6e 74 61 74 69 | -p.............(values.indentati |
| b1260 | 6f 6e 20 74 29 29 29 29 29 29 0a 20 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 6e 69 6c 29 29 0a 0a | on.t))))))...(values.nil.nil)).. |
| b1280 | 28 64 65 66 75 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 68 | (defun.application-indentation-h |
| b12a0 | 69 6e 74 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 64 65 6e 74 61 74 69 6f | int.(symbol)...(let.((indentatio |
| b12c0 | 6e 20 28 68 61 73 2d 61 70 70 6c 69 63 61 74 69 6f 6e 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 68 | n.(has-application-indentation-h |
| b12e0 | 69 6e 74 2d 70 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 6c 61 62 65 6c 73 20 28 28 77 61 | int-p.symbol))).....(labels.((wa |
| b1300 | 6c 6b 20 28 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 | lk.(indentation-spec)........... |
| b1320 | 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 | .....(etypecase.indentation-spec |
| b1340 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 6e 69 6c 29 0a 20 20 20 | ..................(null.nil).... |
| b1360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 20 69 6e 64 65 6e 74 61 74 69 6f | ..............(number.indentatio |
| b1380 | 6e 2d 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c | n-spec)..................(symbol |
| b13a0 | 20 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 73 70 | .(string-downcase.indentation-sp |
| b13c0 | 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 63 6f 6e | ec))..................(cons.(con |
| b13e0 | 73 20 28 77 61 6c 6b 20 28 63 61 72 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 29 29 0a | s.(walk.(car.indentation-spec)). |
| b1400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 | .............................(wa |
| b1420 | 6c 6b 20 28 63 64 72 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 29 29 29 29 29 29 29 0a | lk.(cdr.indentation-spec))))))). |
| b1440 | 20 20 20 20 20 20 28 77 61 6c 6b 20 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 29 29 0a 0a 3b 3b 3b | ......(walk.indentation))))..;;; |
| b1460 | 20 6f 76 65 72 72 69 64 65 20 73 77 61 6e 6b 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 69 73 20 | .override.swank.version.of.this. |
| b1480 | 66 75 6e 63 74 69 6f 6e 0a 28 73 65 74 66 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 27 73 79 6d | function.(setf.(fdefinition.'sym |
| b14a0 | 62 6f 6c 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 20 28 63 6f 6e 73 74 61 6e 74 6c 79 20 6e 69 6c | bol-indentation).(constantly.nil |
| b14c0 | 29 29 20 3b 3b 20 63 61 6e 20 62 65 20 63 61 6c 6c 65 64 20 61 74 20 61 6e 79 20 74 69 6d 65 0a | )).;;.can.be.called.at.any.time. |
| b14e0 | 28 64 65 66 75 6e 20 73 79 6d 62 6f 6c 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 73 79 6d 62 6f | (defun.symbol-indentation.(symbo |
| b1500 | 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 66 6f 72 6d 20 64 65 73 63 72 69 62 69 6e 67 20 74 | l)..."Return.a.form.describing.t |
| b1520 | 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 53 59 4d 42 4f 4c 2e 20 0a 0a 54 68 65 20 | he.indentation.of.SYMBOL....The. |
| b1540 | 66 6f 72 6d 20 69 73 20 74 6f 20 62 65 20 75 73 65 64 20 61 73 20 74 68 65 20 60 63 6f 6d 6d 6f | form.is.to.be.used.as.the.`commo |
| b1560 | 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 20 70 72 6f 70 65 72 74 79 | n-lisp-indent-function'.property |
| b1580 | 20 0a 69 6e 20 45 6d 61 63 73 2e 22 0a 20 20 28 63 6f 6e 64 0a 20 20 20 20 28 28 68 61 73 2d 61 | ..in.Emacs."...(cond.....((has-a |
| b15a0 | 70 70 6c 69 63 61 74 69 6f 6e 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 68 69 6e 74 2d 70 20 73 79 | pplication-indentation-hint-p.sy |
| b15c0 | 6d 62 6f 6c 29 0a 20 20 20 20 20 28 61 70 70 6c 69 63 61 74 69 6f 6e 2d 69 6e 64 65 6e 74 61 74 | mbol)......(application-indentat |
| b15e0 | 69 6f 6e 2d 68 69 6e 74 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 28 28 61 6e 64 20 28 6d 61 63 | ion-hint.symbol)).....((and.(mac |
| b1600 | 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ro-function.symbol)............. |
| b1620 | 20 28 6e 6f 74 20 28 6b 6e 6f 77 6e 2d 74 6f 2d 65 6d 61 63 73 2d 70 20 73 79 6d 62 6f 6c 29 29 | .(not.(known-to-emacs-p.symbol)) |
| b1640 | 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 74 20 73 | )......(let.((arglist.(arglist.s |
| b1660 | 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 61 72 67 6c 69 | ymbol)))........(etypecase.argli |
| b1680 | 73 74 0a 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 | st..........((member.:not-availa |
| b16a0 | 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 | ble)...........nil)..........(li |
| b16c0 | 73 74 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 | st...........(macro-indentation. |
| b16e0 | 61 72 67 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 28 74 20 6e 69 6c 29 29 29 0a 0a 28 73 65 74 | arglist))))).....(t.nil)))..(set |
| b1700 | 66 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 27 6d 61 63 72 6f 2d 69 6e 64 65 6e 74 61 74 69 6f | f.(fdefinition.'macro-indentatio |
| b1720 | 6e 29 20 28 63 6f 6e 73 74 61 6e 74 6c 79 20 6e 69 6c 29 29 0a 3b 3b 3b 20 4d 6f 72 65 20 63 6f | n).(constantly.nil)).;;;.More.co |
| b1740 | 6d 70 6c 65 78 20 76 65 72 73 69 6f 6e 2e 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 2d 69 6e 64 65 | mplex.version..(defun.macro-inde |
| b1760 | 6e 74 61 74 69 6f 6e 20 28 61 72 67 6c 69 73 74 29 0a 20 20 28 6c 61 62 65 6c 73 20 28 28 66 72 | ntation.(arglist)...(labels.((fr |
| b1780 | 6f 62 20 28 6c 69 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 62 61 73 65 29 0a 20 20 20 20 20 20 20 | ob.(list.&optional.base)........ |
| b17a0 | 20 20 20 20 20 20 28 69 66 20 28 65 76 65 72 79 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 | ......(if.(every.(lambda.(x).... |
| b17c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 78 | .......................(member.x |
| b17e0 | 20 27 28 6e 69 6c 20 22 26 72 65 73 74 22 29 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a | .'(nil."&rest").:test.#'equal)). |
| b1800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 74 29 0a 20 20 | ........................list)... |
| b1820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 74 68 65 72 65 20 77 61 73 20 6e | ...............;;.If.there.was.n |
| b1840 | 6f 74 68 69 6e 67 20 69 6e 74 65 72 65 73 74 69 6e 67 2c 20 64 6f 6e 27 74 20 72 65 74 75 72 6e | othing.interesting,.don't.return |
| b1860 | 20 61 6e 79 74 68 69 6e 67 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a | .anything...................nil. |
| b1880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4f 74 68 65 72 77 69 73 65 20 73 75 | .................;;.Otherwise.su |
| b18a0 | 62 73 74 69 74 75 74 65 20 6c 65 61 64 69 6e 67 20 4e 49 4c 27 73 20 77 69 74 68 20 34 20 6f 72 | bstitute.leading.NIL's.with.4.or |
| b18c0 | 20 31 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 6b 20 74 | .1...................(let.((ok.t |
| b18e0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 69 74 75 74 | ))....................(substitut |
| b1900 | 65 2d 69 66 20 28 69 66 20 62 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-if.(if.base................... |
| b1920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 0a 20 20 20 20 20 20 20 20 20 20 | ....................4........... |
| b1940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 29 0a 20 | ............................1).. |
| b1960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b1980 | 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(lambda.(x).................... |
| b19a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 6f 6b 20 28 6e 6f | .................(if.(and.ok.(no |
| b19c0 | 74 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.x))........................... |
| b19e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..............t................. |
| b1a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 6f 6b | ........................(setf.ok |
| b1a20 | 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .nil)))......................... |
| b1a40 | 20 20 20 20 20 20 20 20 20 20 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 | ..........list))))............(w |
| b1a60 | 61 6c 6b 20 28 6c 69 73 74 20 6c 65 76 65 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 66 69 72 73 74 70 | alk.(list.level.&optional.firstp |
| b1a80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 6f 6e 73 70 20 6c 69 73 74 | )..............(when.(consp.list |
| b1aa0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 68 65 61 64 20 28 63 61 | )................(let.((head.(ca |
| b1ac0 | 72 20 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | r.list)))..................(if.( |
| b1ae0 | 63 6f 6e 73 70 20 68 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | consp.head)..................... |
| b1b00 | 20 28 6c 65 74 20 28 28 69 6e 64 65 6e 74 20 28 66 72 6f 62 20 28 77 61 6c 6b 20 68 65 61 64 20 | .(let.((indent.(frob.(walk.head. |
| b1b20 | 28 2b 20 6c 65 76 65 6c 20 31 29 20 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (+.level.1).t))))............... |
| b1b40 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 6c 69 73 74 2a 20 22 26 77 68 6f 6c 65 22 20 28 | .........(cons.(list*."&whole".( |
| b1b60 | 69 66 20 28 7a 65 72 6f 70 20 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | if.(zerop.level)................ |
| b1b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b1ba0 | 20 20 34 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..4............................. |
| b1bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 29 0a 20 20 20 20 20 20 20 20 | .....................1)......... |
| b1be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 | ............................inde |
| b1c00 | 6e 74 29 20 28 77 61 6c 6b 20 28 63 64 72 20 6c 69 73 74 29 20 6c 65 76 65 6c 29 29 29 0a 20 20 | nt).(walk.(cdr.list).level)))... |
| b1c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 73 65 20 68 65 61 64 0a 20 20 | ...................(case.head... |
| b1c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 26 42 4f 44 59 20 69 73 | .....................;;.&BODY.is |
| b1c60 | 20 26 42 4f 44 59 2c 20 74 68 69 73 20 69 73 20 63 6c 65 61 72 2e 0a 20 20 20 20 20 20 20 20 20 | .&BODY,.this.is.clear........... |
| b1c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 26 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 | ..............(&body............ |
| b1ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 26 62 6f 64 79 22 29 29 0a 20 20 20 20 20 20 20 | .............'("&body"))........ |
| b1cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 26 4b 45 59 20 69 73 20 74 72 69 63 6b | ................;;.&KEY.is.trick |
| b1ce0 | 73 79 2e 20 49 66 20 69 74 27 73 20 61 74 20 74 68 65 20 62 61 73 65 20 6c 65 76 65 6c 2c 20 77 | sy..If.it's.at.the.base.level,.w |
| b1d00 | 65 20 77 61 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | e.want........................;; |
| b1d20 | 20 74 6f 20 69 6e 64 65 6e 74 20 74 68 65 6d 20 6e 6f 72 6d 61 6c 6c 79 3a 0a 20 20 20 20 20 20 | .to.indent.them.normally:....... |
| b1d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .................;;............. |
| b1d60 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 28 66 6f 6f 20 62 61 72 20 71 75 75 78 0a 20 20 20 | ...........;;..(foo.bar.quux.... |
| b1d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 3a 71 75 | ....................;;.......:qu |
| b1da0 | 75 78 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 | ux.t........................;;.. |
| b1dc0 | 20 20 20 20 20 3a 7a 6f 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....:zot.nil).................. |
| b1de0 | 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......;;........................ |
| b1e00 | 3b 3b 20 49 66 20 69 74 27 73 20 61 74 20 61 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 6c 65 | ;;.If.it's.at.a.destructuring.le |
| b1e20 | 76 65 6c 2c 20 77 65 20 77 61 6e 74 20 69 6e 64 65 6e 74 20 6f 66 20 31 3a 0a 20 20 20 20 20 20 | vel,.we.want.indent.of.1:....... |
| b1e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .................;;............. |
| b1e60 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 28 77 69 74 68 2d 66 6f 6f 20 28 76 61 72 20 61 72 | ...........;;..(with-foo.(var.ar |
| b1e80 | 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 | g........................;;..... |
| b1ea0 | 20 20 20 20 20 20 20 20 3a 66 6f 6f 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........:foo.t.................. |
| b1ec0 | 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 71 75 75 78 20 6e 69 6c 29 0a | ......;;.............:quux.nil). |
| b1ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 2e 2e | .......................;;....... |
| b1f00 | 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 26 6b 65 79 0a | .)........................(&key. |
| b1f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 7a 65 72 | ........................(if.(zer |
| b1f40 | 6f 70 20 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | op.level)....................... |
| b1f60 | 20 20 20 20 20 20 27 28 22 26 72 65 73 74 22 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ......'("&rest".nil)............ |
| b1f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 26 72 65 73 74 22 20 31 29 29 29 0a | .................'("&rest".1))). |
| b1fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 26 52 45 53 54 20 | .......................;;.&REST. |
| b1fc0 | 69 73 20 74 72 69 63 6b 73 79 2e 20 49 66 20 69 74 27 73 20 61 74 20 74 68 65 20 66 72 6f 6e 74 | is.tricksy..If.it's.at.the.front |
| b1fe0 | 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 65 | .of........................;;.de |
| b2000 | 73 74 72 75 63 74 75 72 69 6e 67 2c 20 77 65 20 77 61 6e 74 20 74 6f 20 69 6e 64 65 6e 74 20 62 | structuring,.we.want.to.indent.b |
| b2020 | 79 20 31 2c 20 6f 74 68 65 72 77 69 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | y.1,.otherwise.................. |
| b2040 | 20 20 20 20 20 20 3b 3b 20 6e 6f 72 6d 61 6c 6c 79 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......;;.normally:.............. |
| b2060 | 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........;;.................... |
| b2080 | 20 20 20 20 3b 3b 20 20 28 66 6f 6f 20 28 62 61 72 20 71 75 75 78 0a 20 20 20 20 20 20 20 20 20 | ....;;..(foo.(bar.quux.......... |
| b20a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 7a 6f 74 29 0a 20 20 20 | ..............;;........zot).... |
| b20c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 2e 2e 2e 29 0a 20 | ....................;;.......).. |
| b20e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 | ......................;;........ |
| b2100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 75 74 0a 20 20 20 20 20 20 20 20 20 | ................;;.but.......... |
| b2120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..............;;................ |
| b2140 | 20 20 20 20 20 20 20 20 3b 3b 20 20 28 66 6f 6f 20 62 61 72 20 71 75 75 78 0a 20 20 20 20 20 20 | ........;;..(foo.bar.quux....... |
| b2160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 7a 6f 74 29 0a 20 | .................;;.......zot).. |
| b2180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 26 72 65 73 74 0a 20 20 20 | ......................(&rest.... |
| b21a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 70 | .....................(if.(and.(p |
| b21c0 | 6c 75 73 70 20 6c 65 76 65 6c 29 20 66 69 72 73 74 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | lusp.level).firstp)............. |
| b21e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 26 72 65 73 74 22 20 31 29 0a 20 20 20 | ................'("&rest".1).... |
| b2200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 26 72 65 73 | .........................'("&res |
| b2220 | 74 22 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t".nil)))....................... |
| b2240 | 20 3b 3b 20 26 57 48 4f 4c 45 20 61 6e 64 20 26 45 4e 56 49 52 4f 4e 4d 45 4e 54 20 61 72 65 20 | .;;.&WHOLE.and.&ENVIRONMENT.are. |
| b2260 | 73 6b 69 70 70 65 64 20 61 73 20 69 66 20 74 68 65 79 20 77 65 72 65 6e 27 74 20 74 68 65 72 65 | skipped.as.if.they.weren't.there |
| b2280 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 74 20 61 6c | ........................;;.at.al |
| b22a0 | 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 26 77 68 6f | l.........................((&who |
| b22c0 | 6c 65 20 26 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le.&environment)................ |
| b22e0 | 20 20 20 20 20 20 20 20 20 28 77 61 6c 6b 20 28 63 64 64 72 20 6c 69 73 74 29 20 6c 65 76 65 6c | .........(walk.(cddr.list).level |
| b2300 | 20 66 69 72 73 74 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .firstp))....................... |
| b2320 | 20 3b 3b 20 26 4f 50 54 49 4f 4e 41 4c 20 69 73 20 69 6e 64 65 6e 74 65 64 20 6e 6f 72 6d 61 6c | .;;.&OPTIONAL.is.indented.normal |
| b2340 | 6c 79 20 2d 2d 20 61 6e 64 20 74 68 65 20 26 4f 50 54 49 4f 4e 41 4c 20 6d 61 72 6b 65 72 0a 20 | ly.--.and.the.&OPTIONAL.marker.. |
| b2360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 74 73 65 6c 66 20 | ......................;;.itself. |
| b2380 | 69 73 20 6e 6f 74 20 63 6f 75 6e 74 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | is.not.counted.................. |
| b23a0 | 20 20 20 20 20 20 20 28 26 6f 70 74 69 6f 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(&optional............... |
| b23c0 | 20 20 20 20 20 20 20 20 20 20 28 77 61 6c 6b 20 28 63 64 72 20 6c 69 73 74 29 20 6c 65 76 65 6c | ..........(walk.(cdr.list).level |
| b23e0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 6e 64 | ))........................;;.Ind |
| b2400 | 65 6e 74 20 6e 6f 72 6d 61 6c 6c 79 2c 20 77 61 6c 6b 20 74 68 65 20 74 61 69 6c 20 2d 2d 20 62 | ent.normally,.walk.the.tail.--.b |
| b2420 | 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 75 6e 6b | ut........................;;.unk |
| b2440 | 6e 6f 77 6e 20 6c 61 6d 62 64 61 2d 6c 69 73 74 20 6b 65 79 77 6f 72 64 73 20 74 65 72 6d 69 6e | nown.lambda-list.keywords.termin |
| b2460 | 61 74 65 20 74 68 65 20 77 61 6c 6b 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ate.the.walk.................... |
| b2480 | 20 20 20 20 20 28 6f 74 68 65 72 77 69 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(otherwise................. |
| b24a0 | 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 68 65 61 64 20 6c 61 6d | ........(unless.(member.head.lam |
| b24c0 | 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | bda-list-keywords).............. |
| b24e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 6e 69 6c 20 28 77 61 6c 6b 20 28 63 64 | .............(cons.nil.(walk.(cd |
| b2500 | 72 20 6c 69 73 74 29 20 6c 65 76 65 6c 29 29 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 66 72 6f | r.list).level)))))))))).....(fro |
| b2520 | 62 20 28 77 61 6c 6b 20 61 72 67 6c 69 73 74 20 30 20 74 29 20 74 29 29 29 0a 0a 23 2b 6e 69 6c | b.(walk.arglist.0.t).t)))..#+nil |
| b2540 | 0a 28 70 72 6f 67 6e 0a 20 20 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 20 27 28 34 20 34 20 28 | .(progn...(assert.(equal.'(4.4.( |
| b2560 | 22 26 77 68 6f 6c 65 22 20 34 20 22 26 72 65 73 74 22 20 31 29 20 22 26 62 6f 64 79 22 29 0a 20 | "&whole".4."&rest".1)."&body").. |
| b2580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 69 6e 64 65 6e 74 61 74 69 | ................(macro-indentati |
| b25a0 | 6f 6e 20 27 28 62 61 72 20 71 75 75 78 20 28 26 72 65 73 74 20 73 6c 6f 74 73 29 20 26 62 6f 64 | on.'(bar.quux.(&rest.slots).&bod |
| b25c0 | 79 20 62 6f 64 79 29 29 29 29 0a 20 20 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 20 6e 69 6c 0a | y.body))))...(assert.(equal.nil. |
| b25e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 69 6e 64 65 6e 74 61 74 | .................(macro-indentat |
| b2600 | 69 6f 6e 20 27 28 61 20 62 20 63 20 26 72 65 73 74 20 6d 6f 72 65 29 29 29 29 0a 20 20 28 61 73 | ion.'(a.b.c.&rest.more))))...(as |
| b2620 | 73 65 72 74 20 28 65 71 75 61 6c 20 27 28 34 20 34 20 34 20 22 26 62 6f 64 79 22 29 0a 20 20 20 | sert.(equal.'(4.4.4."&body").... |
| b2640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e | ..............(macro-indentation |
| b2660 | 20 27 28 61 20 62 20 63 20 26 62 6f 64 79 20 6d 6f 72 65 29 29 29 29 0a 20 20 28 61 73 73 65 72 | .'(a.b.c.&body.more))))...(asser |
| b2680 | 74 20 28 65 71 75 61 6c 20 27 28 28 22 26 77 68 6f 6c 65 22 20 34 20 31 20 31 20 22 26 72 65 73 | t.(equal.'(("&whole".4.1.1."&res |
| b26a0 | 74 22 20 31 29 20 22 26 62 6f 64 79 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t".1)."&body").................. |
| b26c0 | 28 6d 61 63 72 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 27 28 28 6e 61 6d 65 20 7a 6f 74 20 26 | (macro-indentation.'((name.zot.& |
| b26e0 | 6b 65 79 20 66 6f 6f 20 62 61 72 29 20 26 62 6f 64 79 20 62 6f 64 79 29 29 29 29 0a 20 20 28 61 | key.foo.bar).&body.body))))...(a |
| b2700 | 73 73 65 72 74 20 28 65 71 75 61 6c 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ssert.(equal.nil................ |
| b2720 | 20 20 28 6d 61 63 72 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 27 28 78 20 79 20 26 6b 65 79 20 | ..(macro-indentation.'(x.y.&key. |
| b2740 | 7a 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 69 6e 64 65 6e 74 61 74 | z)))))..(provide.:swank-indentat |
| b2760 | 69 6f 6e 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ion)............................ |
| b2780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b27a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b27c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b27e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b2800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 63 2d 70 2d 63 2e 6c | slime-2.31/contrib/swank-c-p-c.l |
| b2820 | 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | isp............................. |
| b2840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b2860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| b2880 | 30 30 32 37 36 35 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 36 30 31 00 20 30 00 00 00 | 0027657.00000000000.015601..0... |
| b28a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b28c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b28e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b2900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| b2920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| b2940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b2960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b2980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b29a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b29c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b29e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b2a00 | 3b 3b 3b 20 73 77 61 6e 6b 2d 63 2d 70 2d 63 2e 6c 69 73 70 20 2d 2d 20 49 4c 49 53 50 20 73 74 | ;;;.swank-c-p-c.lisp.--.ILISP.st |
| b2a20 | 79 6c 65 20 43 6f 6d 70 6f 75 6e 64 20 50 72 65 66 69 78 20 43 6f 6d 70 6c 65 74 69 6f 6e 0a 3b | yle.Compound.Prefix.Completion.; |
| b2a40 | 3b 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 4c 75 6b 65 20 47 6f 72 72 69 65 20 20 3c 6c 75 6b 65 40 | ;.;;.Author:.Luke.Gorrie..<luke@ |
| b2a60 | 73 79 6e 61 70 2e 73 65 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 45 64 69 20 57 65 69 74 7a 20 20 | synap.se>.;;.........Edi.Weitz.. |
| b2a80 | 3c 65 64 69 40 61 67 68 61 72 74 61 2e 64 65 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 4d 61 74 74 | <edi@agharta.de>.;;.........Matt |
| b2aa0 | 68 69 61 73 20 4b 6f 65 70 70 65 20 20 3c 6d 6b 6f 65 70 70 65 40 6d 61 69 6c 2e 6d 61 74 68 2e | hias.Koeppe..<mkoeppe@mail.math. |
| b2ac0 | 75 6e 69 2d 6d 61 67 64 65 62 75 72 67 2e 64 65 3e 20 0a 3b 3b 20 20 20 20 20 20 20 20 20 54 6f | uni-magdeburg.de>..;;.........To |
| b2ae0 | 62 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 73 | bias.C..Rittweiler.<tcr@freebits |
| b2b00 | 2e 64 65 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 61 6e 64 20 6f 74 68 65 72 73 0a 3b 3b 0a 3b 3b | .de>.;;.........and.others.;;.;; |
| b2b20 | 20 4c 69 63 65 6e 73 65 3a 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 0a 3b 3b 0a 0a 0c 0a 28 69 | .License:.Public.Domain.;;....(i |
| b2b40 | 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a | n-package.:swank)..(eval-when.(: |
| b2b60 | 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 | compile-toplevel.:load-toplevel. |
| b2b80 | 3a 65 78 65 63 75 74 65 29 0a 20 20 28 73 77 61 6e 6b 2d 72 65 71 75 69 72 65 20 3a 73 77 61 6e | :execute)...(swank-require.:swan |
| b2ba0 | 6b 2d 75 74 69 6c 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 6f 6d 70 6c 65 74 69 6f | k-util))..(defslimefun.completio |
| b2bc0 | 6e 73 20 28 73 74 72 69 6e 67 20 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 | ns.(string.default-package-name) |
| b2be0 | 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 | ..."Return.a.list.of.completions |
| b2c00 | 20 66 6f 72 20 61 20 73 79 6d 62 6f 6c 20 64 65 73 69 67 6e 61 74 6f 72 20 53 54 52 49 4e 47 2e | .for.a.symbol.designator.STRING. |
| b2c20 | 20 20 0a 0a 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 74 68 65 20 6c 69 73 74 20 28 43 4f 4d 50 | ....The.result.is.the.list.(COMP |
| b2c40 | 4c 45 54 49 4f 4e 2d 53 45 54 20 43 4f 4d 50 4c 45 54 45 44 2d 50 52 45 46 49 58 29 2c 20 77 68 | LETION-SET.COMPLETED-PREFIX),.wh |
| b2c60 | 65 72 65 0a 43 4f 4d 50 4c 45 54 49 4f 4e 2d 53 45 54 20 69 73 20 74 68 65 20 6c 69 73 74 20 6f | ere.COMPLETION-SET.is.the.list.o |
| b2c80 | 66 20 61 6c 6c 20 6d 61 74 63 68 69 6e 67 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 2c 20 61 6e 64 0a | f.all.matching.completions,.and. |
| b2ca0 | 43 4f 4d 50 4c 45 54 45 44 2d 50 52 45 46 49 58 20 69 73 20 74 68 65 20 62 65 73 74 20 28 70 61 | COMPLETED-PREFIX.is.the.best.(pa |
| b2cc0 | 72 74 69 61 6c 29 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f 66 20 74 68 65 20 69 6e 70 75 74 0a 73 | rtial).completion.of.the.input.s |
| b2ce0 | 74 72 69 6e 67 2e 0a 0a 53 69 6d 70 6c 65 20 63 6f 6d 70 6f 75 6e 64 20 6d 61 74 63 68 69 6e 67 | tring...Simple.compound.matching |
| b2d00 | 20 69 73 20 73 75 70 70 6f 72 74 65 64 20 6f 6e 20 61 20 70 65 72 2d 68 79 70 68 65 6e 20 62 61 | .is.supported.on.a.per-hyphen.ba |
| b2d20 | 73 69 73 3a 0a 0a 20 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 5c 22 6d 2d 76 2d 5c 22 20 5c 22 | sis:....(completions.\"m-v-\".\" |
| b2d40 | 43 4f 4d 4d 4f 4e 2d 4c 49 53 50 5c 22 29 0a 20 20 20 20 3d 3d 3e 20 28 28 5c 22 6d 75 6c 74 69 | COMMON-LISP\").....==>.((\"multi |
| b2d60 | 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 5c 22 20 5c 22 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | ple-value-bind\".\"multiple-valu |
| b2d80 | 65 2d 63 61 6c 6c 5c 22 20 0a 20 20 20 20 20 20 20 20 20 20 5c 22 6d 75 6c 74 69 70 6c 65 2d 76 | e-call\"............\"multiple-v |
| b2da0 | 61 6c 75 65 2d 6c 69 73 74 5c 22 20 5c 22 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 70 72 6f | alue-list\".\"multiple-value-pro |
| b2dc0 | 67 31 5c 22 20 0a 20 20 20 20 20 20 20 20 20 20 5c 22 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | g1\"............\"multiple-value |
| b2de0 | 2d 73 65 74 71 5c 22 20 5c 22 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 73 2d 6c 69 6d 69 74 5c | -setq\".\"multiple-values-limit\ |
| b2e00 | 22 29 0a 20 20 20 20 20 20 20 20 20 5c 22 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 5c 22 29 0a | ")..........\"multiple-value\"). |
| b2e20 | 0a 5c 28 46 6f 72 20 6d 6f 72 65 20 61 64 76 61 6e 63 65 64 20 63 6f 6d 70 6f 75 6e 64 20 6d 61 | .\(For.more.advanced.compound.ma |
| b2e40 | 74 63 68 69 6e 67 2c 20 73 65 65 20 46 55 5a 5a 59 2d 43 4f 4d 50 4c 45 54 49 4f 4e 53 2e 29 0a | tching,.see.FUZZY-COMPLETIONS.). |
| b2e60 | 0a 49 66 20 53 54 52 49 4e 47 20 69 73 20 70 61 63 6b 61 67 65 20 71 75 61 6c 69 66 69 65 64 20 | .If.STRING.is.package.qualified. |
| b2e80 | 74 68 65 20 72 65 73 75 6c 74 20 6c 69 73 74 20 77 69 6c 6c 20 61 6c 73 6f 20 62 65 0a 71 75 61 | the.result.list.will.also.be.qua |
| b2ea0 | 6c 69 66 69 65 64 2e 20 20 49 66 20 73 74 72 69 6e 67 20 69 73 20 6e 6f 6e 2d 71 75 61 6c 69 66 | lified...If.string.is.non-qualif |
| b2ec0 | 69 65 64 20 74 68 65 20 72 65 73 75 6c 74 20 73 74 72 69 6e 67 73 20 61 72 65 0a 61 6c 73 6f 20 | ied.the.result.strings.are.also. |
| b2ee0 | 6e 6f 74 20 71 75 61 6c 69 66 69 65 64 20 61 6e 64 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 | not.qualified.and.are.considered |
| b2f00 | 20 72 65 6c 61 74 69 76 65 20 74 6f 0a 44 45 46 41 55 4c 54 2d 50 41 43 4b 41 47 45 2d 4e 41 4d | .relative.to.DEFAULT-PACKAGE-NAM |
| b2f20 | 45 2e 0a 0a 54 68 65 20 77 61 79 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 6d 61 74 63 68 65 64 20 | E...The.way.symbols.are.matched. |
| b2f40 | 64 65 70 65 6e 64 73 20 6f 6e 20 74 68 65 20 73 79 6d 62 6f 6c 20 64 65 73 69 67 6e 61 74 6f 72 | depends.on.the.symbol.designator |
| b2f60 | 27 73 0a 66 6f 72 6d 61 74 2e 20 54 68 65 20 63 61 73 65 73 20 61 72 65 20 61 73 20 66 6f 6c 6c | 's.format..The.cases.are.as.foll |
| b2f80 | 6f 77 73 3a 0a 20 20 46 4f 4f 20 20 20 20 20 20 2d 20 53 79 6d 62 6f 6c 73 20 77 69 74 68 20 6d | ows:...FOO......-.Symbols.with.m |
| b2fa0 | 61 74 63 68 69 6e 67 20 70 72 65 66 69 78 20 61 6e 64 20 61 63 63 65 73 73 69 62 6c 65 20 69 6e | atching.prefix.and.accessible.in |
| b2fc0 | 20 74 68 65 20 62 75 66 66 65 72 20 70 61 63 6b 61 67 65 2e 0a 20 20 50 4b 47 3a 46 4f 4f 20 20 | .the.buffer.package....PKG:FOO.. |
| b2fe0 | 2d 20 53 79 6d 62 6f 6c 73 20 77 69 74 68 20 6d 61 74 63 68 69 6e 67 20 70 72 65 66 69 78 20 61 | -.Symbols.with.matching.prefix.a |
| b3000 | 6e 64 20 65 78 74 65 72 6e 61 6c 20 69 6e 20 70 61 63 6b 61 67 65 20 50 4b 47 2e 0a 20 20 50 4b | nd.external.in.package.PKG....PK |
| b3020 | 47 3a 3a 46 4f 4f 20 2d 20 53 79 6d 62 6f 6c 73 20 77 69 74 68 20 6d 61 74 63 68 69 6e 67 20 70 | G::FOO.-.Symbols.with.matching.p |
| b3040 | 72 65 66 69 78 20 61 6e 64 20 61 63 63 65 73 73 69 62 6c 65 20 69 6e 20 70 61 63 6b 61 67 65 20 | refix.and.accessible.in.package. |
| b3060 | 50 4b 47 2e 0a 22 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6e | PKG.."...(multiple-value-bind.(n |
| b3080 | 61 6d 65 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 20 69 6e 74 65 72 6e 61 | ame.package-name.package.interna |
| b30a0 | 6c 2d 70 29 0a 20 20 20 20 20 20 28 70 61 72 73 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 72 67 | l-p).......(parse-completion-arg |
| b30c0 | 75 6d 65 6e 74 73 20 73 74 72 69 6e 67 20 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 2d 6e 61 | uments.string.default-package-na |
| b30e0 | 6d 65 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 73 79 6d 62 6f 6c 2d 73 65 74 20 20 28 73 79 6d | me).....(let*.((symbol-set..(sym |
| b3100 | 62 6f 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 0a 09 09 09 20 6e 61 6d 65 20 70 61 63 | bol-completion-set......name.pac |
| b3120 | 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 20 69 6e 74 65 72 6e 61 6c 2d 70 0a 09 09 09 | kage-name.package.internal-p.... |
| b3140 | 20 28 6d 61 6b 65 2d 63 6f 6d 70 6f 75 6e 64 2d 70 72 65 66 69 78 2d 6d 61 74 63 68 65 72 20 23 | .(make-compound-prefix-matcher.# |
| b3160 | 5c 2d 29 29 29 0a 09 20 20 20 28 70 61 63 6b 61 67 65 2d 73 65 74 20 28 70 61 63 6b 61 67 65 2d | \-))).....(package-set.(package- |
| b3180 | 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 0a 09 09 09 20 6e 61 6d 65 20 70 61 63 6b 61 67 65 | completion-set......name.package |
| b31a0 | 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 20 69 6e 74 65 72 6e 61 6c 2d 70 0a 09 09 09 20 28 6d 61 | -name.package.internal-p.....(ma |
| b31c0 | 6b 65 2d 63 6f 6d 70 6f 75 6e 64 2d 70 72 65 66 69 78 2d 6d 61 74 63 68 65 72 20 27 28 23 5c 2e | ke-compound-prefix-matcher.'(#\. |
| b31e0 | 20 23 5c 2d 29 29 29 29 0a 09 20 20 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 0a 09 20 20 | .#\-)))).....(completion-set.... |
| b3200 | 20 20 28 66 6f 72 6d 61 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 28 6e 63 6f 6e 63 20 | ..(format-completion-set.(nconc. |
| b3220 | 73 79 6d 62 6f 6c 2d 73 65 74 20 70 61 63 6b 61 67 65 2d 73 65 74 29 20 0a 09 09 09 09 20 20 20 | symbol-set.package-set)......... |
| b3240 | 69 6e 74 65 72 6e 61 6c 2d 70 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 | internal-p.package-name)))...... |
| b3260 | 20 28 77 68 65 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 0a 09 28 6c 69 73 74 20 63 6f 6d | .(when.completion-set..(list.com |
| b3280 | 70 6c 65 74 69 6f 6e 2d 73 65 74 20 28 6c 6f 6e 67 65 73 74 2d 63 6f 6d 70 6f 75 6e 64 2d 70 72 | pletion-set.(longest-compound-pr |
| b32a0 | 65 66 69 78 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 29 29 29 29 29 29 0a 0a 0a 3b 3b 3b 3b | efix.completion-set))))))...;;;; |
| b32c0 | 3b 20 46 69 6e 64 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 65 74 0a 0a 28 64 65 66 75 6e 20 73 79 | ;.Find.completion.set..(defun.sy |
| b32e0 | 6d 62 6f 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 28 6e 61 6d 65 20 70 61 63 6b 61 67 | mbol-completion-set.(name.packag |
| b3300 | 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 20 69 6e 74 65 72 6e 61 6c 2d 70 20 6d 61 74 63 68 70 | e-name.package.internal-p.matchp |
| b3320 | 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 65 74 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6f | )..."Return.the.set.of.completio |
| b3340 | 6e 2d 63 61 6e 64 69 64 61 74 65 73 20 61 73 20 73 74 72 69 6e 67 73 2e 22 0a 20 20 28 6d 61 70 | n-candidates.as.strings."...(map |
| b3360 | 63 61 72 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 74 2d 73 79 6d 62 6f 6c 2d 63 6f | car.(completion-output-symbol-co |
| b3380 | 6e 76 65 72 74 65 72 20 6e 61 6d 65 29 0a 09 20 20 28 61 6e 64 20 70 61 63 6b 61 67 65 0a 09 20 | nverter.name)....(and.package... |
| b33a0 | 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 73 79 6d 62 6f 6c 2d 6e 61 6d 65 0a 09 09 20 20 | ......(mapcar.#'symbol-name..... |
| b33c0 | 20 20 20 20 20 28 66 69 6e 64 2d 6d 61 74 63 68 69 6e 67 2d 73 79 6d 62 6f 6c 73 20 6e 61 6d 65 | .....(find-matching-symbols.name |
| b33e0 | 0a 09 09 09 09 09 20 20 20 20 20 20 70 61 63 6b 61 67 65 0a 09 09 09 09 09 20 20 20 20 20 20 28 | ............package............( |
| b3400 | 61 6e 64 20 28 6e 6f 74 20 69 6e 74 65 72 6e 61 6c 2d 70 29 0a 09 09 09 09 09 09 20 20 20 70 61 | and.(not.internal-p)..........pa |
| b3420 | 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 09 09 09 09 09 20 20 20 20 20 20 6d 61 74 63 68 70 29 29 29 | ckage-name)............matchp))) |
| b3440 | 29 29 0a 0a 28 64 65 66 75 6e 20 70 61 63 6b 61 67 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 | ))..(defun.package-completion-se |
| b3460 | 74 20 28 6e 61 6d 65 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 20 69 6e 74 | t.(name.package-name.package.int |
| b3480 | 65 72 6e 61 6c 2d 70 20 6d 61 74 63 68 70 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f | ernal-p.matchp)...(declare.(igno |
| b34a0 | 72 65 20 70 61 63 6b 61 67 65 20 69 6e 74 65 72 6e 61 6c 2d 70 29 29 0a 20 20 28 6d 61 70 63 61 | re.package.internal-p))...(mapca |
| b34c0 | 72 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 74 2d 70 61 63 6b 61 67 65 2d 63 6f 6e | r.(completion-output-package-con |
| b34e0 | 76 65 72 74 65 72 20 6e 61 6d 65 29 0a 09 20 20 28 61 6e 64 20 28 6e 6f 74 20 70 61 63 6b 61 67 | verter.name)....(and.(not.packag |
| b3500 | 65 2d 6e 61 6d 65 29 0a 09 20 20 20 20 20 20 20 28 66 69 6e 64 2d 6d 61 74 63 68 69 6e 67 2d 70 | e-name).........(find-matching-p |
| b3520 | 61 63 6b 61 67 65 73 20 6e 61 6d 65 20 6d 61 74 63 68 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ackages.name.matchp))))..(defun. |
| b3540 | 66 69 6e 64 2d 6d 61 74 63 68 69 6e 67 2d 73 79 6d 62 6f 6c 73 20 28 73 74 72 69 6e 67 20 70 61 | find-matching-symbols.(string.pa |
| b3560 | 63 6b 61 67 65 20 65 78 74 65 72 6e 61 6c 20 74 65 73 74 29 0a 20 20 22 52 65 74 75 72 6e 20 61 | ckage.external.test)..."Return.a |
| b3580 | 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 69 6e 20 50 41 43 4b 41 47 45 20 6d 61 74 63 | .list.of.symbols.in.PACKAGE.matc |
| b35a0 | 68 69 6e 67 20 53 54 52 49 4e 47 2e 0a 54 45 53 54 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 | hing.STRING..TEST.is.called.with |
| b35c0 | 20 74 77 6f 20 73 74 72 69 6e 67 73 2e 20 20 49 66 20 45 58 54 45 52 4e 41 4c 20 69 73 20 74 72 | .two.strings...If.EXTERNAL.is.tr |
| b35e0 | 75 65 2c 20 6f 6e 6c 79 20 65 78 74 65 72 6e 61 6c 0a 73 79 6d 62 6f 6c 73 20 61 72 65 20 72 65 | ue,.only.external.symbols.are.re |
| b3600 | 74 75 72 6e 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 27 28 | turned."...(let.((completions.'( |
| b3620 | 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 76 65 72 74 65 72 20 28 63 6f 6d 70 6c 65 74 69 6f | )).........(converter.(completio |
| b3640 | 6e 2d 6f 75 74 70 75 74 2d 73 79 6d 62 6f 6c 2d 63 6f 6e 76 65 72 74 65 72 20 73 74 72 69 6e 67 | n-output-symbol-converter.string |
| b3660 | 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 73 79 6d 62 6f 6c 2d 6d 61 74 63 68 65 73 2d 70 | ))).....(flet.((symbol-matches-p |
| b3680 | 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6f 72 20 | .(symbol)..............(and.(or. |
| b36a0 | 28 6e 6f 74 20 65 78 74 65 72 6e 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (not.external).................. |
| b36c0 | 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 65 78 74 65 72 6e 61 6c 2d 70 20 73 79 6d 62 6f 6c 20 70 | .....(symbol-external-p.symbol.p |
| b36e0 | 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 | ackage))...................(func |
| b3700 | 61 6c 6c 20 74 65 73 74 20 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | all.test.string................. |
| b3720 | 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6e 76 65 72 74 65 72 20 28 73 | ...........(funcall.converter.(s |
| b3740 | 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 64 | ymbol-name.symbol)))))).......(d |
| b3760 | 6f 2d 73 79 6d 62 6f 6c 73 2a 20 28 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 20 0a 20 20 20 | o-symbols*.(symbol.package)..... |
| b3780 | 20 20 20 20 20 28 77 68 65 6e 20 28 73 79 6d 62 6f 6c 2d 6d 61 74 63 68 65 73 2d 70 20 73 79 6d | .....(when.(symbol-matches-p.sym |
| b37a0 | 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 73 79 6d 62 6f 6c 20 63 6f 6d 70 | bol)...........(push.symbol.comp |
| b37c0 | 6c 65 74 69 6f 6e 73 29 29 29 29 0a 20 20 20 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 0a 0a 28 | letions)))).....completions))..( |
| b37e0 | 64 65 66 75 6e 20 66 69 6e 64 2d 6d 61 74 63 68 69 6e 67 2d 73 79 6d 62 6f 6c 73 2d 69 6e 2d 6c | defun.find-matching-symbols-in-l |
| b3800 | 69 73 74 20 28 73 74 72 69 6e 67 20 6c 69 73 74 20 74 65 73 74 29 0a 20 20 22 52 65 74 75 72 6e | ist.(string.list.test)..."Return |
| b3820 | 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 69 6e 20 4c 49 53 54 20 6d 61 74 63 68 | .a.list.of.symbols.in.LIST.match |
| b3840 | 69 6e 67 20 53 54 52 49 4e 47 2e 0a 54 45 53 54 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 | ing.STRING..TEST.is.called.with. |
| b3860 | 74 77 6f 20 73 74 72 69 6e 67 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 6c 65 74 69 6f | two.strings."...(let.((completio |
| b3880 | 6e 73 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 76 65 72 74 65 72 20 28 63 6f 6d 70 | ns.'()).........(converter.(comp |
| b38a0 | 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 74 2d 73 79 6d 62 6f 6c 2d 63 6f 6e 76 65 72 74 65 72 20 73 | letion-output-symbol-converter.s |
| b38c0 | 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 73 79 6d 62 6f 6c 2d 6d 61 74 63 | tring))).....(flet.((symbol-matc |
| b38e0 | 68 65 73 2d 70 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e | hes-p.(symbol)..............(fun |
| b3900 | 63 61 6c 6c 20 74 65 73 74 20 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | call.test.string................ |
| b3920 | 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6e 76 65 72 74 65 72 20 28 73 79 6d 62 6f | .......(funcall.converter.(symbo |
| b3940 | 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 29 29 29 0a 20 20 20 20 20 20 28 64 6f 6c 69 73 74 | l-name.symbol))))).......(dolist |
| b3960 | 20 28 73 79 6d 62 6f 6c 20 6c 69 73 74 29 20 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 | .(symbol.list)..........(when.(s |
| b3980 | 79 6d 62 6f 6c 2d 6d 61 74 63 68 65 73 2d 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 | ymbol-matches-p.symbol)......... |
| b39a0 | 20 20 28 70 75 73 68 20 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 29 29 0a 20 | ..(push.symbol.completions)))).. |
| b39c0 | 20 20 20 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 20 63 6f 6d 70 6c 65 74 69 6f 6e | ...(remove-duplicates.completion |
| b39e0 | 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 6d 61 74 63 68 69 6e 67 2d 70 61 63 6b 61 | s)))..(defun.find-matching-packa |
| b3a00 | 67 65 73 20 28 6e 61 6d 65 20 6d 61 74 63 68 65 72 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c | ges.(name.matcher)..."Return.a.l |
| b3a20 | 69 73 74 20 6f 66 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 73 20 6d 61 74 63 68 69 6e 67 20 4e 41 | ist.of.package.names.matching.NA |
| b3a40 | 4d 45 20 77 69 74 68 20 4d 41 54 43 48 45 52 2e 0a 4d 41 54 43 48 45 52 20 69 73 20 61 20 74 77 | ME.with.MATCHER..MATCHER.is.a.tw |
| b3a60 | 6f 2d 61 72 67 75 6d 65 6e 74 20 70 72 65 64 69 63 61 74 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 | o-argument.predicate."...(let.(( |
| b3a80 | 63 6f 6e 76 65 72 74 65 72 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 74 2d 70 61 63 | converter.(completion-output-pac |
| b3aa0 | 6b 61 67 65 2d 63 6f 6e 76 65 72 74 65 72 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 72 65 6d 6f | kage-converter.name))).....(remo |
| b3ac0 | 76 65 2d 69 66 2d 6e 6f 74 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 | ve-if-not.(lambda.(x)........... |
| b3ae0 | 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6d 61 74 63 68 65 72 20 6e 61 6d 65 | ...........(funcall.matcher.name |
| b3b00 | 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6e 76 65 72 74 65 72 20 78 29 29 29 0a 20 20 20 20 20 20 20 | .(funcall.converter.x)))........ |
| b3b20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 70 6b 67 | ............(mapcar.(lambda.(pkg |
| b3b40 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name)........................... |
| b3b60 | 20 20 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 20 70 6b 67 6e 61 6d 65 20 | ...(concatenate.'string.pkgname. |
| b3b80 | 22 3a 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ":"))........................... |
| b3ba0 | 20 28 6c 6f 6f 70 20 66 6f 72 20 70 61 63 6b 61 67 65 20 69 6e 20 28 6c 69 73 74 2d 61 6c 6c 2d | .(loop.for.package.in.(list-all- |
| b3bc0 | 70 61 63 6b 61 67 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | packages)....................... |
| b3be0 | 20 20 20 20 20 20 20 20 20 20 20 6e 63 6f 6e 63 69 6e 67 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d | ...........nconcing.(package-nam |
| b3c00 | 65 73 20 70 61 63 6b 61 67 65 29 29 29 29 29 29 0a 0a 0a 3b 3b 20 50 41 52 53 45 2d 43 4f 4d 50 | es.package))))))...;;.PARSE-COMP |
| b3c20 | 4c 45 54 49 4f 4e 2d 41 52 47 55 4d 45 4e 54 53 20 72 65 74 75 72 6e 20 74 61 62 6c 65 3a 0a 3b | LETION-ARGUMENTS.return.table:.; |
| b3c40 | 3b 20 0a 3b 3b 20 20 75 73 65 72 20 62 65 68 61 76 69 6f 75 72 20 7c 20 20 4e 41 4d 45 20 20 7c | ;..;;..user.behaviour.|..NAME..| |
| b3c60 | 20 50 41 43 4b 41 47 45 2d 4e 41 4d 45 20 7c 20 50 41 43 4b 41 47 45 20 0a 3b 3b 20 2d 2d 2d 2d | .PACKAGE-NAME.|.PACKAGE..;;.---- |
| b3c80 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ------------+--------+---------- |
| b3ca0 | 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ----+--------------------------- |
| b3cc0 | 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 3b 20 61 73 64 66 20 20 20 20 20 5b 74 61 62 5d 20 20 7c 20 22 61 | --------.;;.asdf.....[tab]..|."a |
| b3ce0 | 73 64 66 22 20 7c 20 20 20 20 20 4e 49 4c 20 20 20 20 20 20 7c 20 23 3c 50 41 43 4b 41 47 45 20 | sdf".|.....NIL......|.#<PACKAGE. |
| b3d00 | 22 44 45 46 41 55 4c 54 2d 50 41 43 4b 41 47 45 2d 4e 41 4d 45 22 3e 0a 3b 3b 20 20 20 20 20 20 | "DEFAULT-PACKAGE-NAME">.;;...... |
| b3d20 | 20 20 20 20 20 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 20 20 20 | ...........|........|........... |
| b3d40 | 20 20 20 7c 20 20 20 20 20 20 6f 72 20 2a 42 55 46 46 45 52 2d 50 41 43 4b 41 47 45 2a 0a 3b 3b | ...|......or.*BUFFER-PACKAGE*.;; |
| b3d60 | 20 61 73 64 66 3a 20 20 20 20 5b 74 61 62 5d 20 20 7c 20 20 20 22 22 20 20 20 7c 20 20 20 20 22 | .asdf:....[tab]..|...""...|...." |
| b3d80 | 61 73 64 66 22 20 20 20 20 7c 20 23 3c 50 41 43 4b 41 47 45 20 22 41 53 44 46 22 3e 0a 3b 3b 20 | asdf"....|.#<PACKAGE."ASDF">.;;. |
| b3da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 7c 20 20 20 20 20 20 | ................|........|...... |
| b3dc0 | 20 20 20 20 20 20 20 20 7c 0a 3b 3b 20 61 73 64 66 3a 66 6f 6f 20 5b 74 61 62 5d 20 20 7c 20 22 | ........|.;;.asdf:foo.[tab]..|." |
| b3de0 | 66 6f 6f 22 20 20 7c 20 20 20 20 22 61 73 64 66 22 20 20 20 20 7c 20 23 3c 50 41 43 4b 41 47 45 | foo"..|...."asdf"....|.#<PACKAGE |
| b3e00 | 20 22 41 53 44 46 22 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 20 20 | ."ASDF">.;;.................|... |
| b3e20 | 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 0a 3b 3b 20 61 73 3a 66 6f 20 20 | .....|..............|.;;.as:fo.. |
| b3e40 | 20 20 5b 74 61 62 5d 20 20 7c 20 20 22 66 6f 22 20 20 7c 20 20 20 20 20 22 61 73 22 20 20 20 20 | ..[tab]..|.."fo"..|....."as".... |
| b3e60 | 20 7c 20 4e 49 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 3b 3b 20 20 20 20 20 20 20 20 20 | .|.NIL...............;;......... |
| b3e80 | 20 20 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........|........|.............. |
| b3ea0 | 7c 0a 3b 3b 20 3a 20 20 20 20 20 20 20 20 5b 74 61 62 5d 20 20 7c 20 20 20 22 22 20 20 20 7c 20 | |.;;.:........[tab]..|...""...|. |
| b3ec0 | 20 20 20 20 20 22 22 20 20 20 20 20 20 7c 20 23 3c 50 41 43 4b 41 47 45 20 22 4b 45 59 57 4f 52 | .....""......|.#<PACKAGE."KEYWOR |
| b3ee0 | 44 22 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 | D">.;;.................|........ |
| b3f00 | 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 0a 3b 3b 20 3a 66 6f 6f 20 20 20 20 20 5b 74 61 | |..............|.;;.:foo.....[ta |
| b3f20 | 62 5d 20 20 7c 20 22 66 6f 6f 22 20 20 7c 20 20 20 20 20 20 22 22 20 20 20 20 20 20 7c 20 23 3c | b]..|."foo"..|......""......|.#< |
| b3f40 | 50 41 43 4b 41 47 45 20 22 4b 45 59 57 4f 52 44 22 3e 0a 3b 3b 0a 28 64 65 66 75 6e 20 70 61 72 | PACKAGE."KEYWORD">.;;.(defun.par |
| b3f60 | 73 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 73 20 28 73 74 72 69 6e 67 20 | se-completion-arguments.(string. |
| b3f80 | 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 22 50 61 72 73 65 20 53 | default-package-name)..."Parse.S |
| b3fa0 | 54 52 49 4e 47 20 61 73 20 61 20 73 79 6d 62 6f 6c 20 64 65 73 69 67 6e 61 74 6f 72 2e 0a 52 65 | TRING.as.a.symbol.designator..Re |
| b3fc0 | 74 75 72 6e 20 74 68 65 73 65 20 76 61 6c 75 65 73 3a 0a 20 53 59 4d 42 4f 4c 2d 4e 41 4d 45 0a | turn.these.values:..SYMBOL-NAME. |
| b3fe0 | 20 50 41 43 4b 41 47 45 2d 4e 41 4d 45 2c 20 6f 72 20 6e 69 6c 20 69 66 20 74 68 65 20 64 65 73 | .PACKAGE-NAME,.or.nil.if.the.des |
| b4000 | 69 67 6e 61 74 6f 72 20 64 6f 65 73 20 6e 6f 74 20 69 6e 63 6c 75 64 65 20 61 6e 20 65 78 70 6c | ignator.does.not.include.an.expl |
| b4020 | 69 63 69 74 20 70 61 63 6b 61 67 65 2e 0a 20 50 41 43 4b 41 47 45 2c 20 67 65 6e 65 72 61 6c 6c | icit.package...PACKAGE,.generall |
| b4040 | 79 20 74 68 65 20 70 61 63 6b 61 67 65 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 69 6e 2e 20 28 48 | y.the.package.to.complete.in..(H |
| b4060 | 6f 77 65 76 65 72 2c 20 69 66 20 50 41 43 4b 41 47 45 2d 4e 41 4d 45 20 69 73 0a 20 20 20 20 20 | owever,.if.PACKAGE-NAME.is...... |
| b4080 | 20 20 20 20 20 4e 49 4c 2c 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 70 65 63 74 69 76 65 20 | .....NIL,.return.the.respective. |
| b40a0 | 70 61 63 6b 61 67 65 20 6f 66 20 44 45 46 41 55 4c 54 2d 50 41 43 4b 41 47 45 2d 4e 41 4d 45 20 | package.of.DEFAULT-PACKAGE-NAME. |
| b40c0 | 69 6e 73 74 65 61 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 50 41 43 4b 41 47 45 20 69 73 | instead;...........if.PACKAGE.is |
| b40e0 | 20 6e 6f 6e 2d 4e 49 4c 20 62 75 74 20 61 20 70 61 63 6b 61 67 65 20 63 61 6e 6e 6f 74 20 62 65 | .non-NIL.but.a.package.cannot.be |
| b4100 | 20 66 6f 75 6e 64 20 75 6e 64 65 72 20 74 68 61 74 20 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 | .found.under.that.name,......... |
| b4120 | 20 20 72 65 74 75 72 6e 20 4e 49 4c 2e 29 0a 20 49 4e 54 45 52 4e 41 4c 2d 50 2c 20 69 66 20 74 | ..return.NIL.)..INTERNAL-P,.if.t |
| b4140 | 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 71 75 61 6c 69 66 69 65 64 20 77 69 74 68 20 60 3a 3a 27 | he.symbol.is.qualified.with.`::' |
| b4160 | 2e 22 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6e 61 6d 65 20 | ."...(multiple-value-bind.(name. |
| b4180 | 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 69 6e 74 65 72 6e 61 6c 2d 70 29 0a 20 20 20 20 20 20 28 | package-name.internal-p).......( |
| b41a0 | 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 66 6c 65 | tokenize-symbol.string).....(fle |
| b41c0 | 74 20 28 28 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 20 28 29 0a 09 20 20 20 20 20 28 6f 72 | t.((default-package.().......(or |
| b41e0 | 20 28 67 75 65 73 73 2d 70 61 63 6b 61 67 65 20 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 2d | .(guess-package.default-package- |
| b4200 | 6e 61 6d 65 29 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 29 29 0a 20 20 20 20 20 20 | name).*buffer-package*)))....... |
| b4220 | 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 20 28 63 6f 6e 64 0a 09 09 20 20 20 20 20 20 20 28 28 | (let.((package.(cond..........(( |
| b4240 | 6e 6f 74 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 09 09 09 28 64 65 66 61 75 6c 74 2d 70 61 | not.package-name)....(default-pa |
| b4260 | 63 6b 61 67 65 29 29 0a 09 09 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 70 61 63 6b 61 67 65 | ckage))..........((equal.package |
| b4280 | 2d 6e 61 6d 65 20 22 22 29 0a 09 09 09 28 67 75 65 73 73 2d 70 61 63 6b 61 67 65 20 28 73 79 6d | -name."")....(guess-package.(sym |
| b42a0 | 62 6f 6c 2d 6e 61 6d 65 20 3a 6b 65 79 77 6f 72 64 29 29 29 0a 09 09 20 20 20 20 20 20 20 28 28 | bol-name.:keyword)))..........(( |
| b42c0 | 66 69 6e 64 2d 6c 6f 63 61 6c 6c 79 2d 6e 69 63 6b 6e 61 6d 65 64 2d 70 61 63 6b 61 67 65 0a 09 | find-locally-nicknamed-package.. |
| b42e0 | 09 09 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 | ...package-name.(default-package |
| b4300 | 29 29 29 0a 09 09 20 20 20 20 20 20 20 28 74 0a 09 09 09 28 67 75 65 73 73 2d 70 61 63 6b 61 67 | )))..........(t....(guess-packag |
| b4320 | 65 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 29 29 29 29 0a 09 28 76 61 6c 75 65 73 20 6e 61 6d | e.package-name)))))..(values.nam |
| b4340 | 65 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 20 69 6e 74 65 72 6e 61 6c 2d | e.package-name.package.internal- |
| b4360 | 70 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 74 | p)))))..(defun.completion-output |
| b4380 | 2d 63 61 73 65 2d 63 6f 6e 76 65 72 74 65 72 20 28 69 6e 70 75 74 20 26 6f 70 74 69 6f 6e 61 6c | -case-converter.(input.&optional |
| b43a0 | 20 77 69 74 68 2d 65 73 63 61 70 69 6e 67 2d 70 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 66 75 | .with-escaping-p)..."Return.a.fu |
| b43c0 | 6e 63 74 69 6f 6e 20 74 6f 20 63 6f 6e 76 65 72 74 20 73 74 72 69 6e 67 73 20 66 6f 72 20 74 68 | nction.to.convert.strings.for.th |
| b43e0 | 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f 75 74 70 75 74 2e 0a 49 4e 50 55 54 20 69 73 20 75 73 | e.completion.output..INPUT.is.us |
| b4400 | 65 64 20 74 6f 20 67 75 65 73 73 20 74 68 65 20 70 72 65 66 65 72 72 65 64 20 63 61 73 65 2e 22 | ed.to.guess.the.preferred.case." |
| b4420 | 0a 20 20 28 65 63 61 73 65 20 28 72 65 61 64 74 61 62 6c 65 2d 63 61 73 65 20 2a 72 65 61 64 74 | ...(ecase.(readtable-case.*readt |
| b4440 | 61 62 6c 65 2a 29 0a 20 20 20 20 28 3a 75 70 63 61 73 65 20 28 63 6f 6e 64 20 28 28 6f 72 20 77 | able*).....(:upcase.(cond.((or.w |
| b4460 | 69 74 68 2d 65 73 63 61 70 69 6e 67 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ith-escaping-p.................. |
| b4480 | 20 20 20 20 20 20 20 28 61 6e 64 20 28 70 6c 75 73 70 20 28 6c 65 6e 67 74 68 20 69 6e 70 75 74 | .......(and.(plusp.(length.input |
| b44a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )).............................. |
| b44c0 | 28 6e 6f 74 20 28 73 6f 6d 65 20 23 27 6c 6f 77 65 72 2d 63 61 73 65 2d 70 20 69 6e 70 75 74 29 | (not.(some.#'lower-case-p.input) |
| b44e0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 69 64 65 6e 74 69 | ))).....................#'identi |
| b4500 | 74 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 23 27 73 74 72 69 | ty)....................(t.#'stri |
| b4520 | 6e 67 2d 64 6f 77 6e 63 61 73 65 29 29 29 0a 20 20 20 20 28 3a 69 6e 76 65 72 74 20 28 6c 61 6d | ng-downcase))).....(:invert.(lam |
| b4540 | 62 64 61 20 28 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c | bda.(output)................(mul |
| b4560 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6c 6f 77 65 72 20 75 70 70 65 72 29 20 28 | tiple-value-bind.(lower.upper).( |
| b4580 | 64 65 74 65 72 6d 69 6e 65 2d 63 61 73 65 20 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 | determine-case.output).......... |
| b45a0 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 6c 6f 77 65 72 20 75 70 70 65 72 29 | ........(cond.((and.lower.upper) |
| b45c0 | 20 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .output)........................ |
| b45e0 | 28 6c 6f 77 65 72 20 28 73 74 72 69 6e 67 2d 75 70 63 61 73 65 20 6f 75 74 70 75 74 29 29 0a 20 | (lower.(string-upcase.output)).. |
| b4600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 70 70 65 72 20 28 73 74 | ......................(upper.(st |
| b4620 | 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 6f 75 74 70 75 74 29 29 0a 20 20 20 20 20 20 20 20 20 | ring-downcase.output)).......... |
| b4640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 6f 75 74 70 75 74 29 29 29 29 29 0a 20 20 20 | ..............(t.output))))).... |
| b4660 | 20 28 3a 64 6f 77 6e 63 61 73 65 20 28 63 6f 6e 64 20 28 28 6f 72 20 77 69 74 68 2d 65 73 63 61 | .(:downcase.(cond.((or.with-esca |
| b4680 | 70 69 6e 67 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ping-p.......................... |
| b46a0 | 20 28 61 6e 64 20 28 7a 65 72 6f 70 20 28 6c 65 6e 67 74 68 20 69 6e 70 75 74 29 29 0a 20 20 20 | .(and.(zerop.(length.input)).... |
| b46c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 | ............................(not |
| b46e0 | 20 28 73 6f 6d 65 20 23 27 75 70 70 65 72 2d 63 61 73 65 2d 70 20 69 6e 70 75 74 29 29 29 29 0a | .(some.#'upper-case-p.input)))). |
| b4700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 69 64 65 6e 74 69 74 79 | ......................#'identity |
| b4720 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 23 27 73 74 72 69 | )......................(t.#'stri |
| b4740 | 6e 67 2d 75 70 63 61 73 65 29 29 29 0a 20 20 20 20 28 3a 70 72 65 73 65 72 76 65 20 23 27 69 64 | ng-upcase))).....(:preserve.#'id |
| b4760 | 65 6e 74 69 74 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 | entity)))..(defun.completion-out |
| b4780 | 70 75 74 2d 70 61 63 6b 61 67 65 2d 63 6f 6e 76 65 72 74 65 72 20 28 69 6e 70 75 74 29 0a 20 20 | put-package-converter.(input)... |
| b47a0 | 22 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63 6f 6e 76 65 72 74 20 73 74 | "Return.a.function.to.convert.st |
| b47c0 | 72 69 6e 67 73 20 66 6f 72 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f 75 74 70 75 74 2e | rings.for.the.completion.output. |
| b47e0 | 0a 49 4e 50 55 54 20 69 73 20 75 73 65 64 20 74 6f 20 67 75 65 73 73 20 74 68 65 20 70 72 65 66 | .INPUT.is.used.to.guess.the.pref |
| b4800 | 65 72 72 65 64 20 63 61 73 65 2e 22 0a 20 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 | erred.case."...(completion-outpu |
| b4820 | 74 2d 63 61 73 65 2d 63 6f 6e 76 65 72 74 65 72 20 69 6e 70 75 74 29 29 0a 0a 28 64 65 66 75 6e | t-case-converter.input))..(defun |
| b4840 | 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 74 2d 73 79 6d 62 6f 6c 2d 63 6f 6e 76 65 72 | .completion-output-symbol-conver |
| b4860 | 74 65 72 20 28 69 6e 70 75 74 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e | ter.(input)..."Return.a.function |
| b4880 | 20 74 6f 20 63 6f 6e 76 65 72 74 20 73 74 72 69 6e 67 73 20 66 6f 72 20 74 68 65 20 63 6f 6d 70 | .to.convert.strings.for.the.comp |
| b48a0 | 6c 65 74 69 6f 6e 20 6f 75 74 70 75 74 2e 0a 49 4e 50 55 54 20 69 73 20 75 73 65 64 20 74 6f 20 | letion.output..INPUT.is.used.to. |
| b48c0 | 67 75 65 73 73 20 74 68 65 20 70 72 65 66 65 72 72 65 64 20 63 61 73 65 2e 20 45 73 63 61 70 65 | guess.the.preferred.case..Escape |
| b48e0 | 20 73 79 6d 62 6f 6c 73 20 77 68 65 6e 20 6e 65 65 64 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 | .symbols.when.needed."...(let.(( |
| b4900 | 63 61 73 65 2d 63 6f 6e 76 65 72 74 65 72 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 | case-converter.(completion-outpu |
| b4920 | 74 2d 63 61 73 65 2d 63 6f 6e 76 65 72 74 65 72 20 69 6e 70 75 74 29 29 0a 20 20 20 20 20 20 20 | t-case-converter.input))........ |
| b4940 | 20 28 63 61 73 65 2d 63 6f 6e 76 65 72 74 65 72 2d 77 69 74 68 2d 65 73 63 61 70 69 6e 67 20 28 | .(case-converter-with-escaping.( |
| b4960 | 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 74 2d 63 61 73 65 2d 63 6f 6e 76 65 72 74 65 72 | completion-output-case-converter |
| b4980 | 20 69 6e 70 75 74 20 74 29 29 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 74 72 29 0a 20 20 | .input.t))).....(lambda.(str)... |
| b49a0 | 20 20 20 20 28 69 66 20 28 6f 72 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 | ....(if.(or.(multiple-value-bind |
| b49c0 | 20 28 6c 6f 77 65 72 63 61 73 65 20 75 70 70 65 72 63 61 73 65 29 0a 20 20 20 20 20 20 20 20 20 | .(lowercase.uppercase).......... |
| b49e0 | 20 20 20 20 20 20 20 20 20 28 64 65 74 65 72 6d 69 6e 65 2d 63 61 73 65 20 73 74 72 29 0a 20 20 | .........(determine-case.str)... |
| b4a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 6e 20 74 68 65 73 65 20 72 65 61 64 74 61 | ..............;;.In.these.readta |
| b4a20 | 62 6c 65 20 63 61 73 65 73 2c 20 73 79 6d 62 6f 6c 73 20 77 69 74 68 20 6c 65 74 74 65 72 73 20 | ble.cases,.symbols.with.letters. |
| b4a40 | 66 72 6f 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 77 72 6f 6e | from.................;;.the.wron |
| b4a60 | 67 20 63 61 73 65 20 6e 65 65 64 20 65 73 63 61 70 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 | g.case.need.escaping............ |
| b4a80 | 20 20 20 20 20 28 63 61 73 65 20 28 72 65 61 64 74 61 62 6c 65 2d 63 61 73 65 20 2a 72 65 61 64 | .....(case.(readtable-case.*read |
| b4aa0 | 74 61 62 6c 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 75 70 63 61 | table*)...................(:upca |
| b4ac0 | 73 65 20 20 20 6c 6f 77 65 72 63 61 73 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | se...lowercase)................. |
| b4ae0 | 20 20 28 3a 64 6f 77 6e 63 61 73 65 20 75 70 70 65 72 63 61 73 65 29 0a 20 20 20 20 20 20 20 20 | ..(:downcase.uppercase)......... |
| b4b00 | 20 20 20 20 20 20 20 20 20 20 28 74 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 0a 20 20 20 20 | ..........(t.........nil)))..... |
| b4b20 | 20 20 20 20 20 20 20 20 20 20 28 73 6f 6d 65 20 28 6c 61 6d 62 64 61 20 28 65 6c 29 0a 20 20 20 | ..........(some.(lambda.(el).... |
| b4b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 6d 65 6d 62 65 72 20 65 | ...................(or.(member.e |
| b4b60 | 6c 20 27 28 23 5c 3a 20 23 5c 53 70 61 63 65 20 23 5c 4e 65 77 6c 69 6e 65 20 23 5c 54 61 62 29 | l.'(#\:.#\Space.#\Newline.#\Tab) |
| b4b80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c | )...........................(mul |
| b4ba0 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6d 61 63 72 6f 66 75 6e 20 6e 6f 6e 74 65 | tiple-value-bind.(macrofun.nonte |
| b4bc0 | 72 6d 69 6e 61 74 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rminating)...................... |
| b4be0 | 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 20 65 6c | .........(get-macro-character.el |
| b4c00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | ).............................(a |
| b4c20 | 6e 64 20 6d 61 63 72 6f 66 75 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd.macrofun..................... |
| b4c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 6e 6f 6e 74 65 72 6d 69 6e 61 74 69 6e 67 | .............(not.nonterminating |
| b4c60 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 29 29 0a | ))))).....................str)). |
| b4c80 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 20 22 | ..........(concatenate.'string." |
| b4ca0 | 7c 22 20 28 66 75 6e 63 61 6c 6c 20 63 61 73 65 2d 63 6f 6e 76 65 72 74 65 72 2d 77 69 74 68 2d | |".(funcall.case-converter-with- |
| b4cc0 | 65 73 63 61 70 69 6e 67 20 73 74 72 29 20 22 7c 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 | escaping.str)."|")...........(fu |
| b4ce0 | 6e 63 61 6c 6c 20 63 61 73 65 2d 63 6f 6e 76 65 72 74 65 72 20 73 74 72 29 29 29 29 29 0a 0a 0a | ncall.case-converter.str)))))... |
| b4d00 | 28 64 65 66 75 6e 20 64 65 74 65 72 6d 69 6e 65 2d 63 61 73 65 20 28 73 74 72 69 6e 67 29 0a 20 | (defun.determine-case.(string).. |
| b4d20 | 20 22 52 65 74 75 72 6e 20 74 77 6f 20 62 6f 6f 6c 65 61 6e 73 20 4c 4f 57 45 52 20 61 6e 64 20 | ."Return.two.booleans.LOWER.and. |
| b4d40 | 55 50 50 45 52 20 69 6e 64 69 63 61 74 69 6e 67 20 77 68 65 74 68 65 72 20 53 54 52 49 4e 47 0a | UPPER.indicating.whether.STRING. |
| b4d60 | 63 6f 6e 74 61 69 6e 73 20 6c 6f 77 65 72 20 6f 72 20 75 70 70 65 72 20 63 61 73 65 20 63 68 61 | contains.lower.or.upper.case.cha |
| b4d80 | 72 61 63 74 65 72 73 2e 22 0a 20 20 28 76 61 6c 75 65 73 20 28 73 6f 6d 65 20 23 27 6c 6f 77 65 | racters."...(values.(some.#'lowe |
| b4da0 | 72 2d 63 61 73 65 2d 70 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6f 6d 65 | r-case-p.string)...........(some |
| b4dc0 | 20 23 27 75 70 70 65 72 2d 63 61 73 65 2d 70 20 73 74 72 69 6e 67 29 29 29 0a 0a 0c 0a 3b 3b 3b | .#'upper-case-p.string)))....;;; |
| b4de0 | 3b 3b 20 43 6f 6d 70 6f 75 6e 64 2d 70 72 65 66 69 78 20 6d 61 74 63 68 69 6e 67 0a 0a 28 64 65 | ;;.Compound-prefix.matching..(de |
| b4e00 | 66 75 6e 20 6d 61 6b 65 2d 63 6f 6d 70 6f 75 6e 64 2d 70 72 65 66 69 78 2d 6d 61 74 63 68 65 72 | fun.make-compound-prefix-matcher |
| b4e20 | 20 28 64 65 6c 69 6d 69 74 65 72 20 26 6b 65 79 20 28 74 65 73 74 20 23 27 63 68 61 72 3d 29 29 | .(delimiter.&key.(test.#'char=)) |
| b4e40 | 0a 20 20 22 52 65 74 75 72 6e 73 20 61 20 6d 61 74 63 68 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 | ..."Returns.a.matching.function. |
| b4e60 | 74 68 61 74 20 74 61 6b 65 73 20 61 20 60 70 72 65 66 69 78 27 20 61 6e 64 20 61 0a 60 74 61 72 | that.takes.a.`prefix'.and.a.`tar |
| b4e80 | 67 65 74 27 20 73 74 72 69 6e 67 20 61 6e 64 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 20 54 20 | get'.string.and.which.returns.T. |
| b4ea0 | 69 66 20 60 70 72 65 66 69 78 27 20 69 73 20 61 0a 63 6f 6d 70 6f 75 6e 64 2d 70 72 65 66 69 78 | if.`prefix'.is.a.compound-prefix |
| b4ec0 | 20 6f 66 20 60 74 61 72 67 65 74 27 2c 20 61 6e 64 20 6f 74 68 65 72 77 69 73 65 20 4e 49 4c 2e | .of.`target',.and.otherwise.NIL. |
| b4ee0 | 0a 0a 56 69 65 77 69 6e 67 20 65 61 63 68 20 6f 66 20 60 70 72 65 66 69 78 27 20 61 6e 64 20 60 | ..Viewing.each.of.`prefix'.and.` |
| b4f00 | 74 61 72 67 65 74 27 20 61 73 20 61 20 73 65 72 69 65 73 20 6f 66 20 73 75 62 73 74 72 69 6e 67 | target'.as.a.series.of.substring |
| b4f20 | 73 0a 64 65 6c 69 6d 69 74 65 64 20 62 79 20 44 45 4c 49 4d 49 54 45 52 2c 20 69 66 20 65 61 63 | s.delimited.by.DELIMITER,.if.eac |
| b4f40 | 68 20 73 75 62 73 74 72 69 6e 67 20 6f 66 20 60 70 72 65 66 69 78 27 20 69 73 20 61 20 70 72 65 | h.substring.of.`prefix'.is.a.pre |
| b4f60 | 66 69 78 0a 6f 66 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 73 75 62 73 74 72 69 | fix.of.the.corresponding.substri |
| b4f80 | 6e 67 20 69 6e 20 60 74 61 72 67 65 74 27 20 74 68 65 6e 20 77 65 20 63 61 6c 6c 20 60 70 72 65 | ng.in.`target'.then.we.call.`pre |
| b4fa0 | 66 69 78 27 0a 61 20 63 6f 6d 70 6f 75 6e 64 2d 70 72 65 66 69 78 20 6f 66 20 60 74 61 72 67 65 | fix'.a.compound-prefix.of.`targe |
| b4fc0 | 74 27 2e 0a 0a 44 45 4c 49 4d 49 54 45 52 20 6d 61 79 20 62 65 20 61 20 63 68 61 72 61 63 74 65 | t'...DELIMITER.may.be.a.characte |
| b4fe0 | 72 2c 20 6f 72 20 61 20 6c 69 73 74 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 2e 22 0a 20 20 28 | r,.or.a.list.of.characters."...( |
| b5000 | 6c 65 74 20 28 28 64 65 6c 69 6d 69 74 65 72 73 20 28 65 74 79 70 65 63 61 73 65 20 64 65 6c 69 | let.((delimiters.(etypecase.deli |
| b5020 | 6d 69 74 65 72 0a 09 09 20 20 20 20 20 20 28 63 68 61 72 61 63 74 65 72 20 28 6c 69 73 74 20 64 | miter.........(character.(list.d |
| b5040 | 65 6c 69 6d 69 74 65 72 29 29 0a 09 09 20 20 20 20 20 20 28 63 6f 6e 73 20 20 20 20 20 20 28 61 | elimiter)).........(cons......(a |
| b5060 | 73 73 65 72 74 20 28 65 76 65 72 79 20 23 27 63 68 61 72 61 63 74 65 72 70 20 64 65 6c 69 6d 69 | ssert.(every.#'characterp.delimi |
| b5080 | 74 65 72 29 29 0a 09 09 09 20 20 20 20 20 20 20 20 20 64 65 6c 69 6d 69 74 65 72 29 29 29 29 0a | ter)).............delimiter)))). |
| b50a0 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 72 65 66 69 78 20 74 61 72 67 65 74 29 0a 20 20 20 20 | ....(lambda.(prefix.target)..... |
| b50c0 | 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 73 69 6d 70 6c 65 2d 73 74 72 69 6e 67 20 70 | ..(declare.(type.simple-string.p |
| b50e0 | 72 65 66 69 78 20 74 61 72 67 65 74 29 29 0a 20 20 20 20 20 20 28 6c 6f 6f 70 20 77 69 74 68 20 | refix.target)).......(loop.with. |
| b5100 | 74 70 6f 73 20 3d 20 30 0a 09 20 20 20 20 66 6f 72 20 63 68 20 61 63 72 6f 73 73 20 70 72 65 66 | tpos.=.0......for.ch.across.pref |
| b5120 | 69 78 0a 09 20 20 20 20 61 6c 77 61 79 73 20 28 61 6e 64 20 28 3c 20 74 70 6f 73 20 28 6c 65 6e | ix......always.(and.(<.tpos.(len |
| b5140 | 67 74 68 20 74 61 72 67 65 74 29 29 0a 09 09 09 28 6c 65 74 20 28 28 64 65 6c 69 6d 69 74 65 72 | gth.target))....(let.((delimiter |
| b5160 | 20 28 63 61 72 20 28 6d 65 6d 62 65 72 20 63 68 20 64 65 6c 69 6d 69 74 65 72 73 20 3a 74 65 73 | .(car.(member.ch.delimiters.:tes |
| b5180 | 74 20 74 65 73 74 29 29 29 29 0a 09 09 09 20 20 28 69 66 20 64 65 6c 69 6d 69 74 65 72 0a 09 09 | t.test))))......(if.delimiter... |
| b51a0 | 09 20 20 20 20 20 20 28 73 65 74 66 20 74 70 6f 73 20 28 70 6f 73 69 74 69 6f 6e 20 64 65 6c 69 | .......(setf.tpos.(position.deli |
| b51c0 | 6d 69 74 65 72 20 74 61 72 67 65 74 20 3a 73 74 61 72 74 20 74 70 6f 73 29 29 0a 09 09 09 20 20 | miter.target.:start.tpos))...... |
| b51e0 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 74 65 73 74 20 63 68 20 28 61 72 65 66 20 74 61 72 67 65 | ....(funcall.test.ch.(aref.targe |
| b5200 | 74 20 74 70 6f 73 29 29 29 29 29 0a 09 20 20 20 20 64 6f 20 28 69 6e 63 66 20 74 70 6f 73 29 29 | t.tpos)))))......do.(incf.tpos)) |
| b5220 | 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 45 78 74 65 6e 64 69 6e 67 20 74 68 65 20 69 6e 70 75 74 | )))....;;;;;.Extending.the.input |
| b5240 | 20 73 74 72 69 6e 67 20 62 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 6c 6f | .string.by.completion..(defun.lo |
| b5260 | 6e 67 65 73 74 2d 63 6f 6d 70 6f 75 6e 64 2d 70 72 65 66 69 78 20 28 63 6f 6d 70 6c 65 74 69 6f | ngest-compound-prefix.(completio |
| b5280 | 6e 73 20 26 6f 70 74 69 6f 6e 61 6c 20 28 64 65 6c 69 6d 69 74 65 72 20 23 5c 2d 29 29 0a 20 20 | ns.&optional.(delimiter.#\-))... |
| b52a0 | 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 63 6f 6d 70 6f 75 6e 64 20 5f 70 72 | "Return.the.longest.compound._pr |
| b52c0 | 65 66 69 78 5f 20 66 6f 72 20 61 6c 6c 20 43 4f 4d 50 4c 45 54 49 4f 4e 53 2e 22 0a 20 20 28 66 | efix_.for.all.COMPLETIONS."...(f |
| b52e0 | 6c 65 74 20 28 28 74 6f 6b 65 6e 69 7a 65 72 20 28 73 74 72 69 6e 67 29 20 28 74 6f 6b 65 6e 69 | let.((tokenizer.(string).(tokeni |
| b5300 | 7a 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 74 72 69 6e 67 20 64 65 6c 69 6d 69 74 65 72 29 29 | ze-completion.string.delimiter)) |
| b5320 | 29 0a 20 20 20 20 28 75 6e 74 6f 6b 65 6e 69 7a 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 | ).....(untokenize-completion.... |
| b5340 | 20 20 28 6c 6f 6f 70 20 66 6f 72 20 74 6f 6b 65 6e 2d 6c 69 73 74 20 69 6e 20 28 74 72 61 6e 73 | ..(loop.for.token-list.in.(trans |
| b5360 | 70 6f 73 65 2d 6c 69 73 74 73 20 28 6d 61 70 63 61 72 20 23 27 74 6f 6b 65 6e 69 7a 65 72 20 63 | pose-lists.(mapcar.#'tokenizer.c |
| b5380 | 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6e 6f 74 65 | ompletions))............if.(note |
| b53a0 | 76 65 72 79 20 23 27 73 74 72 69 6e 67 3d 20 74 6f 6b 65 6e 2d 6c 69 73 74 20 28 72 65 73 74 20 | very.#'string=.token-list.(rest. |
| b53c0 | 74 6f 6b 65 6e 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 74 65 20 | token-list))............;;.Note. |
| b53e0 | 74 68 61 74 20 77 65 20 70 6f 73 73 69 62 6c 79 20 63 6f 6c 6c 65 63 74 20 74 68 65 20 22 22 20 | that.we.possibly.collect.the."". |
| b5400 | 68 65 72 65 20 61 73 20 77 65 6c 6c 2c 20 73 6f 20 74 68 61 74 0a 20 20 20 20 20 20 20 20 20 20 | here.as.well,.so.that........... |
| b5420 | 20 3b 3b 20 55 4e 54 4f 4b 45 4e 49 5a 45 2d 43 4f 4d 50 4c 45 54 49 4f 4e 20 77 69 6c 6c 20 61 | .;;.UNTOKENIZE-COMPLETION.will.a |
| b5440 | 70 70 65 6e 64 20 61 20 64 65 6c 69 6d 69 74 65 72 20 66 6f 72 20 75 73 2e 0a 20 20 20 20 20 20 | ppend.a.delimiter.for.us........ |
| b5460 | 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 6f 6e 67 65 73 74 2d 63 6f 6d 6d 6f 6e 2d 70 | .......collect.(longest-common-p |
| b5480 | 72 65 66 69 78 20 74 6f 6b 65 6e 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 61 | refix.token-list)..............a |
| b54a0 | 6e 64 20 64 6f 20 28 6c 6f 6f 70 2d 66 69 6e 69 73 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 65 | nd.do.(loop-finish)............e |
| b54c0 | 6c 73 65 20 63 6f 6c 6c 65 63 74 20 28 66 69 72 73 74 20 74 6f 6b 65 6e 2d 6c 69 73 74 29 29 0a | lse.collect.(first.token-list)). |
| b54e0 | 20 20 20 20 20 64 65 6c 69 6d 69 74 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 6f 6b 65 6e 69 | .....delimiter)))..(defun.tokeni |
| b5500 | 7a 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 28 73 74 72 69 6e 67 20 64 65 6c 69 6d 69 74 65 72 29 | ze-completion.(string.delimiter) |
| b5520 | 0a 20 20 22 52 65 74 75 72 6e 20 61 6c 6c 20 73 75 62 73 74 72 69 6e 67 73 20 6f 66 20 53 54 52 | ..."Return.all.substrings.of.STR |
| b5540 | 49 4e 47 20 64 65 6c 69 6d 69 74 65 64 20 62 79 20 44 45 4c 49 4d 49 54 45 52 2e 22 0a 20 20 28 | ING.delimited.by.DELIMITER."...( |
| b5560 | 6c 6f 6f 70 20 77 69 74 68 20 65 6e 64 0a 20 20 20 20 20 20 20 20 66 6f 72 20 73 74 61 72 74 20 | loop.with.end.........for.start. |
| b5580 | 3d 20 30 20 74 68 65 6e 20 28 31 2b 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 75 6e 74 69 6c 20 | =.0.then.(1+.end).........until. |
| b55a0 | 28 3e 20 73 74 61 72 74 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 | (>.start.(length.string))....... |
| b55c0 | 20 20 64 6f 20 28 73 65 74 71 20 65 6e 64 20 28 6f 72 20 28 70 6f 73 69 74 69 6f 6e 20 64 65 6c | ..do.(setq.end.(or.(position.del |
| b55e0 | 69 6d 69 74 65 72 20 73 74 72 69 6e 67 20 3a 73 74 61 72 74 20 73 74 61 72 74 29 20 28 6c 65 6e | imiter.string.:start.start).(len |
| b5600 | 67 74 68 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 73 | gth.string))).........collect.(s |
| b5620 | 75 62 73 65 71 20 73 74 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 29 29 29 0a 0a 28 64 65 66 75 | ubseq.string.start.end)))..(defu |
| b5640 | 6e 20 75 6e 74 6f 6b 65 6e 69 7a 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 28 74 6f 6b 65 6e 73 20 | n.untokenize-completion.(tokens. |
| b5660 | 26 6f 70 74 69 6f 6e 61 6c 20 28 64 65 6c 69 6d 69 74 65 72 20 23 5c 2d 29 29 0a 20 20 28 66 6f | &optional.(delimiter.#\-))...(fo |
| b5680 | 72 6d 61 74 20 6e 69 6c 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 7e 7b 7e 7e 41 7e 7e 5e 7e | rmat.nil.(format.nil."~~{~~A~~^~ |
| b56a0 | 61 7e 7e 7d 22 20 64 65 6c 69 6d 69 74 65 72 29 20 74 6f 6b 65 6e 73 29 29 0a 0a 28 64 65 66 75 | a~~}".delimiter).tokens))..(defu |
| b56c0 | 6e 20 74 72 61 6e 73 70 6f 73 65 2d 6c 69 73 74 73 20 28 6c 69 73 74 73 29 0a 20 20 22 54 75 72 | n.transpose-lists.(lists)..."Tur |
| b56e0 | 6e 20 61 20 6c 69 73 74 2d 6f 66 2d 6c 69 73 74 73 20 6f 6e 20 69 74 73 20 73 69 64 65 2e 0a 49 | n.a.list-of-lists.on.its.side..I |
| b5700 | 66 20 74 68 65 20 72 6f 77 73 20 61 72 65 20 6f 66 20 75 6e 65 71 75 61 6c 20 6c 65 6e 67 74 68 | f.the.rows.are.of.unequal.length |
| b5720 | 2c 20 74 72 75 6e 63 61 74 65 20 75 6e 69 66 6f 72 6d 6c 79 20 74 6f 20 74 68 65 20 73 68 6f 72 | ,.truncate.uniformly.to.the.shor |
| b5740 | 74 65 73 74 2e 0a 0a 46 6f 72 20 65 78 61 6d 70 6c 65 3a 0a 5c 28 74 72 61 6e 73 70 6f 73 65 2d | test...For.example:.\(transpose- |
| b5760 | 6c 69 73 74 73 20 27 28 28 4f 4e 45 20 54 57 4f 20 54 48 52 45 45 29 20 28 31 20 32 29 29 29 0a | lists.'((ONE.TWO.THREE).(1.2))). |
| b5780 | 20 20 3d 3e 20 28 28 4f 4e 45 20 31 29 20 28 54 57 4f 20 32 29 29 22 0a 20 20 28 63 6f 6e 64 20 | ..=>.((ONE.1).(TWO.2))"...(cond. |
| b57a0 | 28 28 6e 75 6c 6c 20 6c 69 73 74 73 29 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 6f 6d | ((null.lists).'()).........((som |
| b57c0 | 65 20 23 27 6e 75 6c 6c 20 6c 69 73 74 73 29 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 | e.#'null.lists).'()).........(t. |
| b57e0 | 28 63 6f 6e 73 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 6c 69 73 74 73 29 0a 20 20 20 20 20 | (cons.(mapcar.#'car.lists)...... |
| b5800 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 61 6e 73 70 6f 73 65 2d 6c 69 73 74 73 20 28 6d 61 | ............(transpose-lists.(ma |
| b5820 | 70 63 61 72 20 23 27 63 64 72 20 6c 69 73 74 73 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 | pcar.#'cdr.lists))))))....;;;;.C |
| b5840 | 6f 6d 70 6c 65 74 69 6f 6e 20 66 6f 72 20 63 68 61 72 61 63 74 65 72 20 6e 61 6d 65 73 0a 0a 28 | ompletion.for.character.names..( |
| b5860 | 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 66 6f 72 2d 63 68 61 72 | defslimefun.completions-for-char |
| b5880 | 61 63 74 65 72 20 28 70 72 65 66 69 78 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 61 74 63 68 65 72 | acter.(prefix)...(let*.((matcher |
| b58a0 | 20 28 6d 61 6b 65 2d 63 6f 6d 70 6f 75 6e 64 2d 70 72 65 66 69 78 2d 6d 61 74 63 68 65 72 20 23 | .(make-compound-prefix-matcher.# |
| b58c0 | 5c 5f 20 3a 74 65 73 74 20 23 27 63 68 61 72 2d 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 | \_.:test.#'char-equal))......... |
| b58e0 | 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 28 63 68 61 72 61 63 74 65 72 2d 63 6f 6d 70 | .(completion-set.(character-comp |
| b5900 | 6c 65 74 69 6f 6e 2d 73 65 74 20 70 72 65 66 69 78 20 6d 61 74 63 68 65 72 29 29 0a 20 20 20 20 | letion-set.prefix.matcher))..... |
| b5920 | 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 73 6f 72 74 20 63 6f 6d 70 6c 65 74 69 | .....(completions.(sort.completi |
| b5940 | 6f 6e 2d 73 65 74 20 23 27 73 74 72 69 6e 67 3c 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 63 6f | on-set.#'string<))).....(list.co |
| b5960 | 6d 70 6c 65 74 69 6f 6e 73 20 28 6c 6f 6e 67 65 73 74 2d 63 6f 6d 70 6f 75 6e 64 2d 70 72 65 66 | mpletions.(longest-compound-pref |
| b5980 | 69 78 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 23 5c 5f 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 | ix.completions.#\_))))..(provide |
| b59a0 | 20 3a 73 77 61 6e 6b 2d 63 2d 70 2d 63 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .:swank-c-p-c).................. |
| b59c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b59e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b5a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 75 74 69 6c 2e 6c 69 | slime-2.31/contrib/swank-util.li |
| b5a20 | 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | sp.............................. |
| b5a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b5a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| b5a80 | 30 30 30 35 31 37 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 36 34 35 00 20 30 00 00 00 | 0005174.00000000000.015645..0... |
| b5aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b5ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b5ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b5b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| b5b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| b5b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b5b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b5b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b5ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b5bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b5be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b5c00 | 3b 3b 3b 20 73 77 61 6e 6b 2d 75 74 69 6c 2e 6c 69 73 70 20 2d 2d 2d 20 73 74 75 66 66 20 6f 66 | ;;;.swank-util.lisp.---.stuff.of |
| b5c20 | 20 71 75 65 73 74 69 6f 6e 61 62 6c 65 20 75 74 69 6c 69 74 79 0a 3b 3b 0a 3b 3b 20 4c 69 63 65 | .questionable.utility.;;.;;.Lice |
| b5c40 | 6e 73 65 3a 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 | nse:.public.domain..(in-package. |
| b5c60 | 3a 73 77 61 6e 6b 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 6f 2d 73 79 6d 62 6f 6c 73 2a 20 28 | :swank)..(defmacro.do-symbols*.( |
| b5c80 | 28 76 61 72 20 26 6f 70 74 69 6f 6e 61 6c 20 28 70 61 63 6b 61 67 65 20 27 2a 70 61 63 6b 61 67 | (var.&optional.(package.'*packag |
| b5ca0 | 65 2a 29 20 72 65 73 75 6c 74 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e*).result-form)................ |
| b5cc0 | 20 20 20 20 20 20 20 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 4a 75 73 74 20 6c 69 6b 65 | ........&body.body)..."Just.like |
| b5ce0 | 20 64 6f 2d 73 79 6d 62 6f 6c 73 2c 20 62 75 74 20 6d 61 6b 65 73 20 73 75 72 65 20 61 20 73 79 | .do-symbols,.but.makes.sure.a.sy |
| b5d00 | 6d 62 6f 6c 20 69 73 20 76 69 73 69 74 65 64 20 6f 6e 6c 79 20 6f 6e 63 65 2e 22 0a 20 20 28 6c | mbol.is.visited.only.once."...(l |
| b5d20 | 65 74 20 28 28 73 65 65 6e 2d 68 74 20 28 67 65 6e 73 79 6d 20 22 53 45 45 4e 2d 48 54 22 29 29 | et.((seen-ht.(gensym."SEEN-HT")) |
| b5d40 | 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 73 65 65 6e 2d 68 74 20 28 6d 61 6b 65 2d 68 61 73 | ).....`(let.((,seen-ht.(make-has |
| b5d60 | 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 29 29 29 0a 20 20 20 20 20 20 20 28 64 6f | h-table.:test.#'eq)))........(do |
| b5d80 | 2d 73 79 6d 62 6f 6c 73 20 28 2c 76 61 72 20 2c 70 61 63 6b 61 67 65 20 2c 72 65 73 75 6c 74 2d | -symbols.(,var.,package.,result- |
| b5da0 | 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 67 65 74 68 61 73 68 20 | form)..........(unless.(gethash. |
| b5dc0 | 2c 76 61 72 20 2c 73 65 65 6e 2d 68 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 | ,var.,seen-ht)............(setf. |
| b5de0 | 28 67 65 74 68 61 73 68 20 2c 76 61 72 20 2c 73 65 65 6e 2d 68 74 29 20 74 29 0a 20 20 20 20 20 | (gethash.,var.,seen-ht).t)...... |
| b5e00 | 20 20 20 20 20 20 28 74 61 67 62 6f 64 79 20 2c 40 62 6f 64 79 29 29 29 29 29 29 0a 0a 28 64 65 | ......(tagbody.,@body))))))..(de |
| b5e20 | 66 75 6e 20 63 6c 61 73 73 69 66 79 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 | fun.classify-symbol.(symbol)..." |
| b5e40 | 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 63 6c 61 73 73 69 66 69 65 72 73 20 74 68 | Returns.a.list.of.classifiers.th |
| b5e60 | 61 74 20 63 6c 61 73 73 69 66 79 20 53 59 4d 42 4f 4c 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 | at.classify.SYMBOL.according.to. |
| b5e80 | 69 74 73 0a 75 6e 64 65 72 6e 65 61 74 68 20 6f 62 6a 65 63 74 73 20 28 65 2e 67 2e 20 3a 42 4f | its.underneath.objects.(e.g..:BO |
| b5ea0 | 55 4e 44 50 20 69 66 20 53 59 4d 42 4f 4c 20 63 6f 6e 73 74 69 74 75 74 65 73 20 61 20 73 70 65 | UNDP.if.SYMBOL.constitutes.a.spe |
| b5ec0 | 63 69 61 6c 0a 76 61 72 69 61 62 6c 65 2e 29 20 54 68 65 20 6c 69 73 74 20 6d 61 79 20 63 6f 6e | cial.variable.).The.list.may.con |
| b5ee0 | 74 61 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f | tain.the.following.classificatio |
| b5f00 | 6e 0a 6b 65 79 77 6f 72 64 73 3a 20 3a 42 4f 55 4e 44 50 2c 20 3a 46 42 4f 55 4e 44 50 2c 20 3a | n.keywords:.:BOUNDP,.:FBOUNDP,.: |
| b5f20 | 43 4f 4e 53 54 41 4e 54 2c 20 3a 47 45 4e 45 52 49 43 2d 46 55 4e 43 54 49 4f 4e 2c 0a 3a 54 59 | CONSTANT,.:GENERIC-FUNCTION,.:TY |
| b5f40 | 50 45 53 50 45 43 2c 20 3a 43 4c 41 53 53 2c 20 3a 4d 41 43 52 4f 2c 20 3a 53 50 45 43 49 41 4c | PESPEC,.:CLASS,.:MACRO,.:SPECIAL |
| b5f60 | 2d 4f 50 45 52 41 54 4f 52 2c 20 61 6e 64 2f 6f 72 20 3a 50 41 43 4b 41 47 45 22 0a 20 20 28 63 | -OPERATOR,.and/or.:PACKAGE"...(c |
| b5f80 | 68 65 63 6b 2d 74 79 70 65 20 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 29 0a 20 20 28 66 6c 65 74 | heck-type.symbol.symbol)...(flet |
| b5fa0 | 20 28 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 28 73 29 0a 20 20 20 20 20 20 20 20 | .((type-specifier-p.(s)......... |
| b5fc0 | 20 20 20 28 6f 72 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 20 27 74 79 70 65 29 0a 20 | ...(or.(documentation.s.'type).. |
| b5fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 28 74 79 70 65 2d 73 70 65 | ..............(not.(eq.(type-spe |
| b6000 | 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 20 73 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 | cifier-arglist.s).:not-available |
| b6020 | 29 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 28 77 | ))))).....(let.(result).......(w |
| b6040 | 68 65 6e 20 28 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 | hen.(boundp.symbol)............. |
| b6060 | 28 70 75 73 68 20 28 69 66 20 28 63 6f 6e 73 74 61 6e 74 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 | (push.(if.(constantp.symbol).... |
| b6080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b60a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6e 73 74 61 6e 74 20 3a 62 6f 75 6e 64 70 | ...............:constant.:boundp |
| b60c0 | 29 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 | ).result)).......(when.(fboundp. |
| b60e0 | 73 79 6d 62 6f 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 3a 66 62 6f 75 6e 64 | symbol)............(push.:fbound |
| b6100 | 70 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 74 79 70 65 2d 73 70 65 | p.result)).......(when.(type-spe |
| b6120 | 63 69 66 69 65 72 2d 70 20 73 79 6d 62 6f 6c 29 20 20 20 28 70 75 73 68 20 3a 74 79 70 65 73 70 | cifier-p.symbol)...(push.:typesp |
| b6140 | 65 63 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 69 6e 64 2d 63 6c | ec.result)).......(when.(find-cl |
| b6160 | 61 73 73 20 73 79 6d 62 6f 6c 20 6e 69 6c 29 20 20 20 20 20 28 70 75 73 68 20 3a 63 6c 61 73 73 | ass.symbol.nil).....(push.:class |
| b6180 | 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 61 63 72 6f 2d 66 75 6e | .result)).......(when.(macro-fun |
| b61a0 | 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 20 20 20 20 20 28 70 75 73 68 20 3a 6d 61 63 72 6f 20 72 | ction.symbol).....(push.:macro.r |
| b61c0 | 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 70 65 63 69 61 6c 2d 6f 70 65 | esult)).......(when.(special-ope |
| b61e0 | 72 61 74 6f 72 2d 70 20 73 79 6d 62 6f 6c 29 20 28 70 75 73 68 20 3a 73 70 65 63 69 61 6c 2d 6f | rator-p.symbol).(push.:special-o |
| b6200 | 70 65 72 61 74 6f 72 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 69 | perator.result)).......(when.(fi |
| b6220 | 6e 64 2d 70 61 63 6b 61 67 65 20 73 79 6d 62 6f 6c 29 20 20 20 20 20 20 20 28 70 75 73 68 20 3a | nd-package.symbol).......(push.: |
| b6240 | 70 61 63 6b 61 67 65 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e | package.result)).......(when.(an |
| b6260 | 64 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.(fboundp.symbol).............. |
| b6280 | 20 20 20 20 28 74 79 70 65 70 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 64 65 66 69 | ....(typep.(ignore-errors.(fdefi |
| b62a0 | 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nition.symbol))................. |
| b62c0 | 20 20 20 20 20 20 20 20 27 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 | ........'generic-function))..... |
| b62e0 | 20 20 20 20 28 70 75 73 68 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 72 65 73 75 | ....(push.:generic-function.resu |
| b6300 | 6c 74 29 29 0a 20 20 20 20 20 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 79 6d | lt)).......result)))..(defun.sym |
| b6320 | 62 6f 6c 2d 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 28 73 79 6d 62 6f | bol-classification-string.(symbo |
| b6340 | 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 69 6e 20 74 68 65 20 66 6f 72 | l)..."Return.a.string.in.the.for |
| b6360 | 6d 20 2d 66 2d 63 2d 2d 2d 2d 20 77 68 65 72 65 20 65 61 63 68 20 6c 65 74 74 65 72 20 73 74 61 | m.-f-c----.where.each.letter.sta |
| b6380 | 6e 64 73 20 66 6f 72 0a 62 6f 75 6e 64 70 20 66 62 6f 75 6e 64 70 20 67 65 6e 65 72 69 63 2d 66 | nds.for.boundp.fboundp.generic-f |
| b63a0 | 75 6e 63 74 69 6f 6e 20 63 6c 61 73 73 20 6d 61 63 72 6f 20 73 70 65 63 69 61 6c 2d 6f 70 65 72 | unction.class.macro.special-oper |
| b63c0 | 61 74 6f 72 20 70 61 63 6b 61 67 65 22 0a 20 20 28 6c 65 74 20 28 28 6c 65 74 74 65 72 73 20 22 | ator.package"...(let.((letters." |
| b63e0 | 62 66 67 63 74 6d 73 70 22 29 0a 20 20 20 20 20 20 20 20 28 72 65 73 75 6c 74 20 28 63 6f 70 79 | bfgctmsp").........(result.(copy |
| b6400 | 2d 73 65 71 20 22 2d 2d 2d 2d 2d 2d 2d 2d 22 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 66 | -seq."--------"))).....(flet.((f |
| b6420 | 6c 69 70 20 28 6c 65 74 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 | lip.(letter)..............(setf. |
| b6440 | 28 63 68 61 72 20 72 65 73 75 6c 74 20 28 70 6f 73 69 74 69 6f 6e 20 6c 65 74 74 65 72 20 6c 65 | (char.result.(position.letter.le |
| b6460 | 74 74 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 74 74 65 | tters))....................lette |
| b6480 | 72 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 | r))).......(when.(boundp.symbol) |
| b64a0 | 20 28 66 6c 69 70 20 23 5c 62 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 | .(flip.#\b)).......(when.(fbound |
| b64c0 | 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 28 66 6c 69 70 20 23 5c 66 29 0a 20 20 20 | p.symbol).........(flip.#\f).... |
| b64e0 | 20 20 20 20 20 28 77 68 65 6e 20 28 74 79 70 65 70 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 | .....(when.(typep.(ignore-errors |
| b6500 | 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 | .(fdefinition.symbol)).......... |
| b6520 | 20 20 20 20 20 20 20 20 20 20 20 20 27 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 | ............'generic-function).. |
| b6540 | 20 20 20 20 20 20 20 20 20 28 66 6c 69 70 20 23 5c 67 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 | .........(flip.#\g))).......(whe |
| b6560 | 6e 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 73 79 6d 62 6f 6c 29 20 28 66 6c 69 | n.(type-specifier-p.symbol).(fli |
| b6580 | 70 20 23 5c 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 | p.#\t)).......(when.(find-class. |
| b65a0 | 73 79 6d 62 6f 6c 20 6e 69 6c 29 20 20 20 28 66 6c 69 70 20 23 5c 63 29 20 29 0a 20 20 20 20 20 | symbol.nil)...(flip.#\c).)...... |
| b65c0 | 20 28 77 68 65 6e 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 20 20 | .(when.(macro-function.symbol).. |
| b65e0 | 20 28 66 6c 69 70 20 23 5c 6d 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 70 65 63 69 61 | .(flip.#\m)).......(when.(specia |
| b6600 | 6c 2d 6f 70 65 72 61 74 6f 72 2d 70 20 73 79 6d 62 6f 6c 29 20 28 66 6c 69 70 20 23 5c 73 29 29 | l-operator-p.symbol).(flip.#\s)) |
| b6620 | 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 73 79 6d 62 6f | .......(when.(find-package.symbo |
| b6640 | 6c 29 20 20 20 20 20 20 20 28 66 6c 69 70 20 23 5c 70 29 29 0a 20 20 20 20 20 20 72 65 73 75 6c | l).......(flip.#\p)).......resul |
| b6660 | 74 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 75 74 69 6c 29 0a 00 00 00 00 | t)))..(provide.:swank-util)..... |
| b6680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b66a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b66c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b66e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b6700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b6720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b6740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b6760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b6780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b67a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b67c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b67e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b6800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 68 79 70 65 72 64 6f | slime-2.31/contrib/slime-hyperdo |
| b6820 | 63 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | c.el............................ |
| b6840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b6860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| b6880 | 30 30 30 33 33 36 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 32 31 00 20 30 00 00 00 | 0003362.00000000000.016121..0... |
| b68a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b68c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b68e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b6900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| b6920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| b6940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b6960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b6980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b69a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b69c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b69e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b6a00 | 3b 3b 3b 3b 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a | ;;;;.-*-.lexical-binding:.t.-*-. |
| b6a20 | 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 75 72 6c 2d | .(require.'slime).(require.'url- |
| b6a40 | 68 74 74 70 29 0a 28 72 65 71 75 69 72 65 20 27 62 72 6f 77 73 65 2d 75 72 6c 29 0a 0a 28 64 65 | http).(require.'browse-url)..(de |
| b6a60 | 66 76 61 72 20 73 6c 69 6d 65 2d 6f 6c 64 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 6c 6f 6f | fvar.slime-old-documentation-loo |
| b6a80 | 6b 75 70 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 73 6c 69 6d 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 | kup-function...slime-documentati |
| b6aa0 | 6f 6e 2d 6c 6f 6f 6b 75 70 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 | on-lookup-function)..(define-sli |
| b6ac0 | 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 68 79 70 65 72 64 6f 63 0a 20 20 22 45 78 74 | me-contrib.slime-hyperdoc..."Ext |
| b6ae0 | 65 6e 73 69 62 6c 65 20 43 2d 63 20 43 2d 64 20 68 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 | ensible.C-c.C-d.h."...(:authors. |
| b6b00 | 22 54 6f 62 69 61 73 20 43 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 | "Tobias.C.Rittweiler.<tcr@freebi |
| b6b20 | 74 73 2e 64 65 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a | ts.de>")...(:license."GPL")...(: |
| b6b40 | 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d 68 79 70 65 72 64 6f | swank-dependencies.swank-hyperdo |
| b6b60 | 63 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 64 6f | c)...(:on-load....(setq.slime-do |
| b6b80 | 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 6c 6f 6f 6b 75 70 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 | cumentation-lookup-function.'sli |
| b6ba0 | 6d 65 2d 68 79 70 65 72 64 6f 63 2d 6c 6f 6f 6b 75 70 29 29 0a 20 20 28 3a 6f 6e 2d 75 6e 6c 6f | me-hyperdoc-lookup))...(:on-unlo |
| b6bc0 | 61 64 0a 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d | ad....(setq.slime-documentation- |
| b6be0 | 6c 6f 6f 6b 75 70 2d 66 75 6e 63 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d | lookup-function...........slime- |
| b6c00 | 6f 6c 64 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 6c 6f 6f 6b 75 70 2d 66 75 6e 63 74 69 6f | old-documentation-lookup-functio |
| b6c20 | 6e 29 29 29 0a 0a 3b 3b 3b 20 54 4f 44 4f 3a 20 60 75 72 6c 2d 68 74 74 70 2d 66 69 6c 65 2d 65 | n)))..;;;.TODO:.`url-http-file-e |
| b6c40 | 78 69 73 74 73 2d 70 27 20 69 73 20 73 6c 6f 77 2c 20 6d 61 6b 65 20 69 74 20 6f 70 74 69 6f 6e | xists-p'.is.slow,.make.it.option |
| b6c60 | 61 6c 20 62 65 68 61 76 69 6f 75 72 2e 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 68 79 70 65 | al.behaviour...(defun.slime-hype |
| b6c80 | 72 64 6f 63 2d 6c 6f 6f 6b 75 70 2d 72 70 63 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 | rdoc-lookup-rpc.(symbol-name)... |
| b6ca0 | 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 68 79 70 65 72 64 | (slime-eval-async.`(swank:hyperd |
| b6cc0 | 6f 63 20 2c 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 79 6d 62 | oc.,symbol-name).....(let.((symb |
| b6ce0 | 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 23 27 28 6c | ol-name.symbol-name)).......#'(l |
| b6d00 | 61 6d 62 64 61 20 28 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | ambda.(result)...........(slime- |
| b6d20 | 6c 6f 67 2d 65 76 65 6e 74 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d | log-event.result)...........(cl- |
| b6d40 | 6c 6f 6f 70 20 77 69 74 68 20 66 6f 75 6e 64 70 20 3d 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 | loop.with.foundp.=.nil.......... |
| b6d60 | 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 64 6f 63 2d 74 79 70 65 20 2e 20 75 72 6c 29 20 69 | ..........for.(doc-type...url).i |
| b6d80 | 6e 20 72 65 73 75 6c 74 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | n.result.do....................( |
| b6da0 | 77 68 65 6e 20 28 61 6e 64 20 75 72 6c 20 28 73 74 72 69 6e 67 70 20 75 72 6c 29 0a 20 20 20 20 | when.(and.url.(stringp.url)..... |
| b6dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | ..........................(let.( |
| b6de0 | 28 75 72 6c 2d 73 68 6f 77 2d 73 74 61 74 75 73 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 | (url-show-status.nil)).......... |
| b6e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 72 6c 2d 68 74 74 70 | .......................(url-http |
| b6e20 | 2d 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 75 72 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -file-exists-p.url)))........... |
| b6e40 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 56 69 73 69 74 69 6e 67 20 64 6f | ...........(message."Visiting.do |
| b6e60 | 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 25 73 20 60 25 73 27 2e 2e 2e 22 0a 20 20 20 20 | cumentation.for.%s.`%s'..."..... |
| b6e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 | ..........................(subst |
| b6ea0 | 72 69 6e 67 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 64 6f 63 2d 74 79 70 65 29 20 31 29 0a 20 | ring.(symbol-name.doc-type).1).. |
| b6ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d | .............................sym |
| b6ee0 | 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | bol-name)......................( |
| b6f00 | 62 72 6f 77 73 65 2d 75 72 6c 20 75 72 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | browse-url.url)................. |
| b6f20 | 20 20 20 20 20 28 73 65 74 71 20 66 6f 75 6e 64 70 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .....(setq.foundp.t))........... |
| b6f40 | 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........finally................ |
| b6f60 | 20 20 20 20 28 75 6e 6c 65 73 73 20 66 6f 75 6e 64 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(unless.foundp.............. |
| b6f80 | 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 6f 75 6c 64 20 6e 6f 74 20 66 69 6e 64 20 64 | ........(error."Could.not.find.d |
| b6fa0 | 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 60 25 73 27 2e 22 20 0a 20 20 20 20 20 20 20 | ocumentation.for.`%s'."......... |
| b6fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | .....................symbol-name |
| b6fe0 | 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 68 79 70 65 72 64 6f 63 2d 6c | )))))))..(defun.slime-hyperdoc-l |
| b7000 | 6f 6f 6b 75 70 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | ookup.(symbol-name)...(interacti |
| b7020 | 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | ve.(list.(slime-read-symbol-name |
| b7040 | 20 22 53 79 6d 62 6f 6c 3a 20 22 29 29 29 0a 20 20 28 69 66 20 28 6d 65 6d 71 20 3a 68 79 70 65 | ."Symbol:.")))...(if.(memq.:hype |
| b7060 | 72 64 6f 63 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 66 65 61 74 75 72 65 73 29 29 0a 20 20 20 20 | rdoc.(slime-lisp-features))..... |
| b7080 | 20 20 28 73 6c 69 6d 65 2d 68 79 70 65 72 64 6f 63 2d 6c 6f 6f 6b 75 70 2d 72 70 63 20 73 79 6d | ..(slime-hyperdoc-lookup-rpc.sym |
| b70a0 | 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 68 79 70 65 72 73 70 65 63 | bol-name).......(slime-hyperspec |
| b70c0 | 2d 6c 6f 6f 6b 75 70 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 | -lookup.symbol-name)))..(provide |
| b70e0 | 20 27 73 6c 69 6d 65 2d 68 79 70 65 72 64 6f 63 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .'slime-hyperdoc)............... |
| b7100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b7120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b7140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b7160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b7180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b71a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b71c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b71e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b7200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 6d 69 74 2d 73 63 68 | slime-2.31/contrib/swank-mit-sch |
| b7220 | 65 6d 65 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | eme.scm......................... |
| b7240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b7260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| b7280 | 30 30 36 33 30 31 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 33 32 00 20 30 00 00 00 | 0063013.00000000000.016532..0... |
| b72a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b72c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b72e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b7300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| b7320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| b7340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b7360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b7380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b73a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b73c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b73e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b7400 | 3b 3b 3b 20 73 77 61 6e 6b 2d 6d 69 74 2d 73 63 68 65 6d 65 2e 73 63 6d 20 2d 2d 2d 20 53 4c 49 | ;;;.swank-mit-scheme.scm.---.SLI |
| b7420 | 4d 45 20 73 65 72 76 65 72 20 66 6f 72 20 4d 49 54 20 53 63 68 65 6d 65 0a 3b 3b 0a 3b 3b 20 43 | ME.server.for.MIT.Scheme.;;.;;.C |
| b7440 | 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 38 20 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 0a | opyright.(C).2008..Helmut.Eller. |
| b7460 | 3b 3b 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 6c 69 63 65 6e 73 65 64 20 75 6e 64 65 | ;;.;;.This.file.is.licensed.unde |
| b7480 | 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 | r.the.terms.of.the.GNU.General.P |
| b74a0 | 75 62 6c 69 63 0a 3b 3b 20 4c 69 63 65 6e 73 65 20 61 73 20 64 69 73 74 72 69 62 75 74 65 64 20 | ublic.;;.License.as.distributed. |
| b74c0 | 77 69 74 68 20 45 6d 61 63 73 20 28 70 72 65 73 73 20 43 2d 68 20 43 2d 63 20 66 6f 72 20 64 65 | with.Emacs.(press.C-h.C-c.for.de |
| b74e0 | 74 61 69 6c 73 29 2e 0a 0c 0a 3b 3b 3b 3b 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 3a 0a 23 7c 0a | tails)....;;;;.Installation:.#|. |
| b7500 | 0a 31 2e 20 59 6f 75 20 6e 65 65 64 20 4d 49 54 20 53 63 68 65 6d 65 20 39 2e 32 0a 0a 32 2e 20 | .1..You.need.MIT.Scheme.9.2..2.. |
| b7520 | 54 68 65 20 45 6d 61 63 73 20 73 69 64 65 20 6e 65 65 64 73 20 73 6f 6d 65 20 66 69 64 64 6c 69 | The.Emacs.side.needs.some.fiddli |
| b7540 | 6e 67 2e 20 20 49 20 68 61 76 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 6e 0a 20 20 20 | ng...I.have.the.following.in.... |
| b7560 | 6d 79 20 2e 65 6d 61 63 73 3a 0a 0a 28 73 65 74 71 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 | my..emacs:..(setq.slime-lisp-imp |
| b7580 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 27 28 28 6d 69 74 2d 73 63 68 65 6d 65 | lementations.......'((mit-scheme |
| b75a0 | 20 28 22 6d 69 74 2d 73 63 68 65 6d 65 22 29 20 3a 69 6e 69 74 20 6d 69 74 2d 73 63 68 65 6d 65 | .("mit-scheme").:init.mit-scheme |
| b75c0 | 2d 69 6e 69 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 69 74 2d 73 63 68 65 6d 65 2d 69 6e 69 74 | -init)))..(defun.mit-scheme-init |
| b75e0 | 20 28 66 69 6c 65 20 65 6e 63 6f 64 69 6e 67 29 0a 20 20 28 66 6f 72 6d 61 74 20 22 25 53 5c 6e | .(file.encoding)...(format."%S\n |
| b7600 | 5c 6e 22 0a 09 20 20 60 28 62 65 67 69 6e 0a 09 20 20 20 20 28 6c 6f 61 64 2d 6f 70 74 69 6f 6e | \n"....`(begin......(load-option |
| b7620 | 20 27 66 6f 72 6d 61 74 29 0a 09 20 20 20 20 28 6c 6f 61 64 2d 6f 70 74 69 6f 6e 20 27 73 6f 73 | .'format)......(load-option.'sos |
| b7640 | 29 0a 09 20 20 20 20 28 65 76 61 6c 20 0a 09 20 20 20 20 20 27 28 63 72 65 61 74 65 2d 70 61 63 | )......(eval........'(create-pac |
| b7660 | 6b 61 67 65 2d 66 72 6f 6d 2d 64 65 73 63 72 69 70 74 69 6f 6e 0a 09 20 20 20 20 20 20 20 28 6d | kage-from-description.........(m |
| b7680 | 61 6b 65 2d 70 61 63 6b 61 67 65 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 27 28 73 77 61 6e 6b 29 | ake-package-description.'(swank) |
| b76a0 | 20 28 6c 69 73 74 20 28 6c 69 73 74 29 29 0a 09 09 09 09 09 20 28 76 65 63 74 6f 72 29 20 28 76 | .(list.(list)).......(vector).(v |
| b76c0 | 65 63 74 6f 72 29 20 28 76 65 63 74 6f 72 29 20 66 61 6c 73 65 29 29 0a 09 20 20 20 20 20 28 2d | ector).(vector).false)).......(- |
| b76e0 | 3e 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 27 28 70 61 63 6b 61 67 65 29 29 29 0a 09 20 20 20 20 28 | >environment.'(package)))......( |
| b7700 | 6c 6f 61 64 20 2c 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 0a 09 09 20 20 20 20 22 | load.,(expand-file-name........" |
| b7720 | 2e 2e 2e 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 6d 69 74 2d 73 63 68 65 6d 65 2e 73 63 6d | .../contrib/swank-mit-scheme.scm |
| b7740 | 22 20 3b 20 3c 2d 2d 20 69 6e 73 65 72 74 20 79 6f 75 72 20 70 61 74 68 0a 09 09 20 20 20 20 73 | ".;.<--.insert.your.path.......s |
| b7760 | 6c 69 6d 65 2d 70 61 74 68 29 0a 09 09 20 20 28 2d 3e 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 27 28 | lime-path).....(->environment.'( |
| b7780 | 73 77 61 6e 6b 29 29 29 0a 09 20 20 20 20 28 65 76 61 6c 20 27 28 73 74 61 72 74 2d 73 77 61 6e | swank)))......(eval.'(start-swan |
| b77a0 | 6b 20 2c 66 69 6c 65 29 20 28 2d 3e 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 27 28 73 77 61 6e 6b 29 | k.,file).(->environment.'(swank) |
| b77c0 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 69 74 2d 73 63 68 65 6d 65 20 28 29 0a 20 20 28 69 | )))))..(defun.mit-scheme.()...(i |
| b77e0 | 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 20 27 6d 69 74 2d 73 63 68 65 6d 65 | nteractive)...(slime.'mit-scheme |
| b7800 | 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 6d 69 74 2d 73 63 68 65 6d 65 2d 70 61 63 6b 61 | ))..(defun.find-mit-scheme-packa |
| b7820 | 67 65 20 28 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 6c 65 74 | ge.()...(save-excursion.....(let |
| b7840 | 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 29 29 0a 20 20 20 20 20 20 28 61 | .((case-fold-search.t)).......(a |
| b7860 | 6e 64 20 28 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5e 5b 3b 5d 2b 20 70 61 | nd.(re-search-backward."^[;]+.pa |
| b7880 | 63 6b 61 67 65 3a 20 5c 5c 28 28 2e 2b 29 5c 5c 29 2e 2a 24 22 20 6e 69 6c 20 74 29 0a 09 20 20 | ckage:.\\((.+)\\).*$".nil.t).... |
| b78a0 | 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 29 29 | .(match-string-no-properties.1)) |
| b78c0 | 29 29 29 0a 0a 28 73 65 74 71 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 62 75 66 66 65 72 2d 70 61 63 | )))..(setq.slime-find-buffer-pac |
| b78e0 | 6b 61 67 65 2d 66 75 6e 63 74 69 6f 6e 20 27 66 69 6e 64 2d 6d 69 74 2d 73 63 68 65 6d 65 2d 70 | kage-function.'find-mit-scheme-p |
| b7900 | 61 63 6b 61 67 65 29 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 68 | ackage).(add-hook.'scheme-mode-h |
| b7920 | 6f 6f 6b 20 28 6c 61 6d 62 64 61 20 28 29 20 28 73 6c 69 6d 65 2d 6d 6f 64 65 20 31 29 29 29 0a | ook.(lambda.().(slime-mode.1))). |
| b7940 | 0a 20 20 20 54 68 65 20 60 6d 69 74 2d 73 63 68 65 6d 65 2d 69 6e 69 74 27 20 66 75 6e 63 74 69 | ....The.`mit-scheme-init'.functi |
| b7960 | 6f 6e 20 66 69 72 73 74 20 6c 6f 61 64 73 20 74 68 65 20 53 4f 53 20 61 6e 64 20 46 4f 52 4d 41 | on.first.loads.the.SOS.and.FORMA |
| b7980 | 54 0a 20 20 20 6c 69 62 72 61 72 69 65 73 2c 20 74 68 65 6e 20 63 72 65 61 74 65 73 20 61 20 70 | T....libraries,.then.creates.a.p |
| b79a0 | 61 63 6b 61 67 65 20 22 28 73 77 61 6e 6b 29 22 2c 20 61 6e 64 20 6c 6f 61 64 73 20 74 68 69 73 | ackage."(swank)",.and.loads.this |
| b79c0 | 20 66 69 6c 65 0a 20 20 20 69 6e 74 6f 20 74 68 61 74 20 70 61 63 6b 61 67 65 2e 20 20 46 69 6e | .file....into.that.package...Fin |
| b79e0 | 61 6c 6c 79 20 69 74 20 73 74 61 72 74 73 20 74 68 65 20 73 65 72 76 65 72 2e 20 20 0a 0a 20 20 | ally.it.starts.the.server....... |
| b7a00 | 20 60 66 69 6e 64 2d 6d 69 74 2d 73 63 68 65 6d 65 2d 70 61 63 6b 61 67 65 27 20 74 72 69 65 73 | .`find-mit-scheme-package'.tries |
| b7a20 | 20 74 6f 20 66 69 67 75 72 65 20 6f 75 74 20 77 68 69 63 68 20 70 61 63 6b 61 67 65 20 74 68 65 | .to.figure.out.which.package.the |
| b7a40 | 0a 20 20 20 62 75 66 66 65 72 20 62 65 6c 6f 6e 67 73 20 74 6f 2c 20 61 73 73 75 6d 69 6e 67 20 | ....buffer.belongs.to,.assuming. |
| b7a60 | 74 68 61 74 20 22 3b 3b 3b 20 70 61 63 6b 61 67 65 3a 20 28 46 4f 4f 29 22 20 61 70 70 65 61 72 | that.";;;.package:.(FOO)".appear |
| b7a80 | 73 0a 20 20 20 73 6f 6d 65 77 68 65 72 65 20 69 6e 20 74 68 65 20 66 69 6c 65 2e 20 20 4c 75 63 | s....somewhere.in.the.file...Luc |
| b7aa0 | 6b 69 6c 79 2c 20 74 68 69 73 20 61 73 73 75 6d 70 74 69 6f 6e 20 69 73 20 74 72 75 65 20 66 6f | kily,.this.assumption.is.true.fo |
| b7ac0 | 72 20 6d 61 6e 79 20 6f 66 0a 20 20 20 4d 49 54 20 53 63 68 65 6d 65 27 73 20 6f 77 6e 20 66 69 | r.many.of....MIT.Scheme's.own.fi |
| b7ae0 | 6c 65 73 2e 20 20 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 79 6f 75 20 63 6f 75 6c 64 20 61 | les...Alternatively,.you.could.a |
| b7b00 | 64 64 20 45 6d 61 63 73 20 73 74 79 6c 65 0a 20 20 20 2d 2a 2d 20 73 6c 69 6d 65 2d 62 75 66 66 | dd.Emacs.style....-*-.slime-buff |
| b7b20 | 65 72 2d 70 61 63 6b 61 67 65 3a 20 22 28 46 4f 4f 29 22 20 2d 2a 2d 20 66 69 6c 65 20 76 61 72 | er-package:."(FOO)".-*-.file.var |
| b7b40 | 69 61 62 6c 65 73 2e 0a 0a 34 2e 20 53 74 61 72 74 20 65 76 65 72 79 74 68 69 6e 67 20 77 69 74 | iables...4..Start.everything.wit |
| b7b60 | 68 20 60 4d 2d 78 20 6d 69 74 2d 73 63 68 65 6d 65 27 2e 0a 0a 7c 23 0a 0a 3b 3b 3b 20 70 61 63 | h.`M-x.mit-scheme'...|#..;;;.pac |
| b7b80 | 6b 61 67 65 3a 20 28 73 77 61 6e 6b 29 0a 0a 28 69 66 20 28 3c 20 28 63 61 72 20 28 67 65 74 2d | kage:.(swank)..(if.(<.(car.(get- |
| b7ba0 | 73 75 62 73 79 73 74 65 6d 2d 76 65 72 73 69 6f 6e 20 22 52 65 6c 65 61 73 65 22 29 29 0a 20 20 | subsystem-version."Release"))... |
| b7bc0 | 20 20 20 20 20 27 39 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 54 68 69 73 20 66 69 6c 65 20 72 | .....'9).....(error."This.file.r |
| b7be0 | 65 71 75 69 72 65 73 20 4d 49 54 20 53 63 68 65 6d 65 20 52 65 6c 65 61 73 65 20 39 22 29 29 0a | equires.MIT.Scheme.Release.9")). |
| b7c00 | 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 20 70 6f 72 74 29 0a 20 20 28 61 63 63 65 70 74 2d | .(define.(swank.port)...(accept- |
| b7c20 | 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 28 6f 72 20 70 6f 72 74 20 34 30 30 35 29 20 23 66 29 29 0a | connections.(or.port.4005).#f)). |
| b7c40 | 0a 3b 3b 20 23 23 23 20 68 61 72 64 63 6f 64 65 64 20 70 6f 72 74 20 6e 75 6d 62 65 72 20 66 6f | .;;.###.hardcoded.port.number.fo |
| b7c60 | 72 20 6e 6f 77 2e 20 20 6e 65 74 63 61 74 2d 6f 70 65 6e 62 73 64 20 64 6f 65 73 6e 27 74 20 70 | r.now...netcat-openbsd.doesn't.p |
| b7c80 | 72 69 6e 74 0a 3b 3b 20 74 68 65 20 6c 69 73 74 65 6e 65 72 20 70 6f 72 74 20 61 6e 79 6d 6f 72 | rint.;;.the.listener.port.anymor |
| b7ca0 | 65 2e 0a 28 64 65 66 69 6e 65 20 28 73 74 61 72 74 2d 73 77 61 6e 6b 20 70 6f 72 74 2d 66 69 6c | e..(define.(start-swank.port-fil |
| b7cc0 | 65 29 0a 20 20 28 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 34 30 35 35 20 70 6f | e)...(accept-connections.4055.po |
| b7ce0 | 72 74 2d 66 69 6c 65 29 20 0a 20 20 29 0a 0a 3b 3b 3b 3b 20 4e 65 74 77 6f 72 6b 69 6e 67 0a 0a | rt-file)....)..;;;;.Networking.. |
| b7d00 | 28 64 65 66 69 6e 65 20 28 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 70 6f 72 74 | (define.(accept-connections.port |
| b7d20 | 20 70 6f 72 74 2d 66 69 6c 65 29 0a 20 20 28 6c 65 74 20 28 28 73 6f 63 6b 20 28 6f 70 65 6e 2d | .port-file)...(let.((sock.(open- |
| b7d40 | 74 63 70 2d 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 20 70 6f 72 74 20 28 68 6f 73 74 2d 61 64 64 | tcp-server-socket.port.(host-add |
| b7d60 | 72 65 73 73 2d 6c 6f 6f 70 62 61 63 6b 29 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 23 74 | ress-loopback)))).....(format.#t |
| b7d80 | 20 22 4c 69 73 74 65 6e 69 6e 67 20 6f 6e 20 70 6f 72 74 3a 20 7e 73 7e 25 22 20 70 6f 72 74 29 | ."Listening.on.port:.~s~%".port) |
| b7da0 | 0a 20 20 20 20 28 69 66 20 70 6f 72 74 2d 66 69 6c 65 20 28 77 72 69 74 65 2d 70 6f 72 74 2d 66 | .....(if.port-file.(write-port-f |
| b7dc0 | 69 6c 65 20 70 6f 72 74 20 70 6f 72 74 2d 66 69 6c 65 29 29 0a 20 20 20 20 28 64 79 6e 61 6d 69 | ile.port.port-file)).....(dynami |
| b7de0 | 63 2d 77 69 6e 64 20 0a 09 28 6c 61 6d 62 64 61 20 28 29 20 23 66 29 0a 09 28 6c 61 6d 62 64 61 | c-wind...(lambda.().#f)..(lambda |
| b7e00 | 20 28 29 20 28 73 65 72 76 65 20 28 74 63 70 2d 73 65 72 76 65 72 2d 63 6f 6e 6e 65 63 74 69 6f | .().(serve.(tcp-server-connectio |
| b7e20 | 6e 2d 61 63 63 65 70 74 20 73 6f 63 6b 20 23 74 20 23 66 29 29 29 0a 09 28 6c 61 6d 62 64 61 20 | n-accept.sock.#t.#f)))..(lambda. |
| b7e40 | 28 29 20 28 63 6c 6f 73 65 2d 74 63 70 2d 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 20 73 6f 63 6b | ().(close-tcp-server-socket.sock |
| b7e60 | 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 77 72 69 74 65 2d 70 6f 72 74 2d 66 69 6c 65 20 | )))))..(define.(write-port-file. |
| b7e80 | 70 6f 72 74 6e 75 6d 62 65 72 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 28 63 61 6c 6c 2d 77 69 74 | portnumber.filename)...(call-wit |
| b7ea0 | 68 2d 6f 75 74 70 75 74 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 20 28 6c 61 6d 62 64 61 20 28 | h-output-file.filename.(lambda.( |
| b7ec0 | 70 29 20 28 77 72 69 74 65 20 70 6f 72 74 6e 75 6d 62 65 72 20 70 29 29 29 29 0a 0a 28 64 65 66 | p).(write.portnumber.p))))..(def |
| b7ee0 | 69 6e 65 20 2a 74 6f 70 2d 6c 65 76 65 6c 2d 72 65 73 74 61 72 74 2a 20 23 66 29 0a 28 64 65 66 | ine.*top-level-restart*.#f).(def |
| b7f00 | 69 6e 65 20 28 73 65 72 76 65 20 73 6f 63 6b 65 74 29 0a 20 20 28 77 69 74 68 2d 73 69 6d 70 6c | ine.(serve.socket)...(with-simpl |
| b7f20 | 65 2d 72 65 73 74 61 72 74 20 0a 20 20 20 20 20 20 27 64 69 73 63 6f 6e 6e 65 63 74 20 22 43 6c | e-restart........'disconnect."Cl |
| b7f40 | 6f 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 22 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | ose.connection.".......(lambda.( |
| b7f60 | 29 0a 09 28 77 69 74 68 2d 6b 65 79 62 6f 61 72 64 2d 69 6e 74 65 72 72 75 70 74 2d 68 61 6e 64 | )..(with-keyboard-interrupt-hand |
| b7f80 | 6c 65 72 20 0a 09 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 6d 61 69 6e 2d 6c 6f 6f 70 20 | ler.......(lambda.().(main-loop. |
| b7fa0 | 73 6f 63 6b 65 74 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 69 73 63 6f 6e 6e 65 63 | socket))))))..(define.(disconnec |
| b7fc0 | 74 29 20 0a 20 20 28 66 6f 72 6d 61 74 20 23 74 20 22 44 69 73 63 6f 6e 6e 65 63 74 69 6e 67 20 | t)....(format.#t."Disconnecting. |
| b7fe0 | 2e 2e 2e 7e 25 22 29 0a 20 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 28 66 69 6e 64 2d | ...~%")...(invoke-restart.(find- |
| b8000 | 72 65 73 74 61 72 74 20 27 64 69 73 63 6f 6e 6e 65 63 74 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 | restart.'disconnect)))..(define. |
| b8020 | 28 6d 61 69 6e 2d 6c 6f 6f 70 20 73 6f 63 6b 65 74 29 0a 20 20 28 64 6f 20 28 29 20 28 23 66 29 | (main-loop.socket)...(do.().(#f) |
| b8040 | 0a 20 20 20 20 28 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 20 0a 09 27 61 62 6f | .....(with-simple-restart...'abo |
| b8060 | 72 74 20 22 52 65 74 75 72 6e 20 74 6f 20 53 4c 49 4d 45 20 74 6f 70 2d 6c 65 76 65 6c 2e 22 0a | rt."Return.to.SLIME.top-level.". |
| b8080 | 09 28 6c 61 6d 62 64 61 20 28 29 20 0a 09 20 20 28 66 6c 75 69 64 2d 6c 65 74 20 28 28 2a 74 6f | .(lambda.().....(fluid-let.((*to |
| b80a0 | 70 2d 6c 65 76 65 6c 2d 72 65 73 74 61 72 74 2a 20 28 66 69 6e 64 2d 72 65 73 74 61 72 74 20 27 | p-level-restart*.(find-restart.' |
| b80c0 | 61 62 6f 72 74 29 29 29 0a 09 20 20 20 20 28 64 69 73 70 61 74 63 68 20 28 72 65 61 64 2d 70 61 | abort)))......(dispatch.(read-pa |
| b80e0 | 63 6b 65 74 20 73 6f 63 6b 65 74 29 20 73 6f 63 6b 65 74 20 30 29 29 29 29 29 29 0a 0a 28 64 65 | cket.socket).socket.0))))))..(de |
| b8100 | 66 69 6e 65 20 28 77 69 74 68 2d 6b 65 79 62 6f 61 72 64 2d 69 6e 74 65 72 72 75 70 74 2d 68 61 | fine.(with-keyboard-interrupt-ha |
| b8120 | 6e 64 6c 65 72 20 66 75 6e 29 0a 20 20 28 64 65 66 69 6e 65 20 28 73 65 74 2d 5e 47 2d 68 61 6e | ndler.fun)...(define.(set-^G-han |
| b8140 | 64 6c 65 72 20 65 78 70 29 0a 20 20 20 20 28 65 76 61 6c 20 60 28 76 65 63 74 6f 72 2d 73 65 74 | dler.exp).....(eval.`(vector-set |
| b8160 | 21 20 6b 65 79 62 6f 61 72 64 2d 69 6e 74 65 72 72 75 70 74 2d 76 65 63 74 6f 72 20 28 63 68 61 | !.keyboard-interrupt-vector.(cha |
| b8180 | 72 2d 3e 61 73 63 69 69 20 23 5c 47 29 20 2c 65 78 70 29 0a 09 20 20 28 2d 3e 65 6e 76 69 72 6f | r->ascii.#\G).,exp)....(->enviro |
| b81a0 | 6e 6d 65 6e 74 20 27 28 72 75 6e 74 69 6d 65 20 69 6e 74 65 72 72 75 70 74 2d 68 61 6e 64 6c 65 | nment.'(runtime.interrupt-handle |
| b81c0 | 72 29 29 29 29 0a 20 20 28 64 79 6e 61 6d 69 63 2d 77 69 6e 64 0a 20 20 20 20 20 20 28 6c 61 6d | r))))...(dynamic-wind.......(lam |
| b81e0 | 62 64 61 20 28 29 20 23 66 29 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 09 28 73 65 | bda.().#f).......(lambda.()..(se |
| b8200 | 74 2d 5e 47 2d 68 61 6e 64 6c 65 72 0a 09 20 60 28 6c 61 6d 62 64 61 20 28 63 68 61 72 29 20 28 | t-^G-handler...`(lambda.(char).( |
| b8220 | 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 0a 09 09 09 20 20 27 63 6f 6e 74 69 6e | with-simple-restart......'contin |
| b8240 | 75 65 20 22 43 6f 6e 74 69 6e 75 65 20 66 72 6f 6d 20 69 6e 74 65 72 72 75 70 74 2e 22 0a 09 09 | ue."Continue.from.interrupt."... |
| b8260 | 09 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 65 72 72 6f 72 20 22 4b 65 79 62 6f 61 72 64 20 49 | ...(lambda.().(error."Keyboard.I |
| b8280 | 6e 74 65 72 72 75 70 74 2e 22 29 29 29 29 29 0a 09 28 66 75 6e 29 29 0a 20 20 20 20 20 20 28 6c | nterrupt.")))))..(fun)).......(l |
| b82a0 | 61 6d 62 64 61 20 28 29 0a 09 28 73 65 74 2d 5e 47 2d 68 61 6e 64 6c 65 72 20 27 5e 47 2d 69 6e | ambda.()..(set-^G-handler.'^G-in |
| b82c0 | 74 65 72 72 75 70 74 2d 68 61 6e 64 6c 65 72 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 52 65 61 64 | terrupt-handler))))....;;;;.Read |
| b82e0 | 69 6e 67 2f 57 72 69 74 69 6e 67 20 6f 66 20 53 4c 49 4d 45 20 70 61 63 6b 65 74 73 0a 0a 28 64 | ing/Writing.of.SLIME.packets..(d |
| b8300 | 65 66 69 6e 65 20 28 72 65 61 64 2d 70 61 63 6b 65 74 20 69 6e 29 0a 20 20 22 52 65 61 64 20 61 | efine.(read-packet.in)..."Read.a |
| b8320 | 6e 20 53 2d 65 78 70 72 65 73 73 69 6f 6e 20 66 72 6f 6d 20 53 54 52 45 41 4d 20 75 73 69 6e 67 | n.S-expression.from.STREAM.using |
| b8340 | 20 74 68 65 20 53 4c 49 4d 45 20 70 72 6f 74 6f 63 6f 6c 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 | .the.SLIME.protocol."...(let*.(( |
| b8360 | 6c 65 6e 20 28 72 65 61 64 2d 6c 65 6e 67 74 68 20 69 6e 29 29 0a 09 20 28 62 75 66 66 65 72 20 | len.(read-length.in))...(buffer. |
| b8380 | 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 6c 65 6e 29 29 29 0a 20 20 20 20 28 66 69 6c 6c 2d 62 75 | (make-string.len))).....(fill-bu |
| b83a0 | 66 66 65 72 21 20 69 6e 20 62 75 66 66 65 72 29 0a 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d | ffer!.in.buffer).....(read-from- |
| b83c0 | 73 74 72 69 6e 67 20 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 77 72 69 74 65 | string.buffer)))..(define.(write |
| b83e0 | 2d 70 61 63 6b 65 74 20 6d 65 73 73 61 67 65 20 6f 75 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 | -packet.message.out)...(let*.((s |
| b8400 | 74 72 69 6e 67 20 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 6d 65 73 73 61 67 65 29 29 | tring.(write-to-string.message)) |
| b8420 | 29 0a 20 20 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 22 57 52 49 54 45 3a 20 5b 7e 61 5d 7e 73 7e | ).....(log-event."WRITE:.[~a]~s~ |
| b8440 | 25 22 20 28 73 74 72 69 6e 67 2d 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 20 73 74 72 69 6e 67 | %".(string-length.string).string |
| b8460 | 29 0a 20 20 20 20 28 77 72 69 74 65 2d 6c 65 6e 67 74 68 20 28 73 74 72 69 6e 67 2d 6c 65 6e 67 | ).....(write-length.(string-leng |
| b8480 | 74 68 20 73 74 72 69 6e 67 29 20 6f 75 74 29 0a 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e | th.string).out).....(write-strin |
| b84a0 | 67 20 73 74 72 69 6e 67 20 6f 75 74 29 0a 20 20 20 20 28 66 6c 75 73 68 2d 6f 75 74 70 75 74 20 | g.string.out).....(flush-output. |
| b84c0 | 6f 75 74 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 66 69 6c 6c 2d 62 75 66 66 65 72 21 20 69 6e | out)))..(define.(fill-buffer!.in |
| b84e0 | 20 62 75 66 66 65 72 29 0a 20 20 28 72 65 61 64 2d 73 74 72 69 6e 67 21 20 62 75 66 66 65 72 20 | .buffer)...(read-string!.buffer. |
| b8500 | 69 6e 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 72 65 61 64 2d 6c 65 6e 67 74 68 20 69 6e 29 0a 20 | in))..(define.(read-length.in).. |
| b8520 | 20 28 69 66 20 28 65 6f 66 2d 6f 62 6a 65 63 74 3f 20 28 70 65 65 6b 2d 63 68 61 72 20 69 6e 29 | .(if.(eof-object?.(peek-char.in) |
| b8540 | 29 20 28 64 69 73 63 6f 6e 6e 65 63 74 29 29 0a 20 20 28 64 6f 20 28 28 6c 65 6e 20 36 20 28 31 | ).(disconnect))...(do.((len.6.(1 |
| b8560 | 2d 20 6c 65 6e 29 29 0a 20 20 20 20 20 20 20 28 73 75 6d 20 30 20 28 2b 20 28 2a 20 73 75 6d 20 | -.len))........(sum.0.(+.(*.sum. |
| b8580 | 31 36 29 20 28 63 68 61 72 2d 3e 68 65 78 2d 64 69 67 69 74 20 28 72 65 61 64 2d 63 68 61 72 20 | 16).(char->hex-digit.(read-char. |
| b85a0 | 69 6e 29 29 29 29 29 0a 20 20 20 20 20 20 28 28 7a 65 72 6f 3f 20 6c 65 6e 29 20 73 75 6d 29 29 | in))))).......((zero?.len).sum)) |
| b85c0 | 29 0a 0a 28 64 65 66 69 6e 65 20 28 6c 64 62 20 73 69 7a 65 20 70 6f 73 69 74 69 6f 6e 20 69 6e | )..(define.(ldb.size.position.in |
| b85e0 | 74 65 67 65 72 29 0a 20 20 22 4c 6f 61 44 20 61 20 42 79 74 65 20 6f 66 20 53 49 5a 45 20 62 69 | teger)..."LoaD.a.Byte.of.SIZE.bi |
| b8600 | 74 73 20 61 74 20 62 69 74 20 70 6f 73 69 74 69 6f 6e 20 50 4f 53 49 54 49 4f 4e 20 66 72 6f 6d | ts.at.bit.position.POSITION.from |
| b8620 | 20 49 4e 54 45 47 45 52 2e 22 0a 20 20 28 66 69 78 3a 61 6e 64 20 28 66 69 78 3a 6c 73 68 20 69 | .INTEGER."...(fix:and.(fix:lsh.i |
| b8640 | 6e 74 65 67 65 72 20 28 2d 20 70 6f 73 69 74 69 6f 6e 29 29 0a 09 20 20 20 28 31 2d 20 28 66 69 | nteger.(-.position)).....(1-.(fi |
| b8660 | 78 3a 6c 73 68 20 31 20 73 69 7a 65 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 77 72 69 74 65 | x:lsh.1.size))))..(define.(write |
| b8680 | 2d 6c 65 6e 67 74 68 20 6c 65 6e 20 6f 75 74 29 0a 20 20 28 64 6f 20 28 28 70 6f 73 20 32 30 20 | -length.len.out)...(do.((pos.20. |
| b86a0 | 28 2d 20 70 6f 73 20 34 29 29 29 0a 20 20 20 20 20 20 28 28 3c 20 70 6f 73 20 30 29 29 0a 20 20 | (-.pos.4))).......((<.pos.0))... |
| b86c0 | 20 20 28 77 72 69 74 65 2d 68 65 78 2d 64 69 67 69 74 20 28 6c 64 62 20 34 20 70 6f 73 20 6c 65 | ..(write-hex-digit.(ldb.4.pos.le |
| b86e0 | 6e 29 20 6f 75 74 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 77 72 69 74 65 2d 68 65 78 2d 64 69 | n).out)))..(define.(write-hex-di |
| b8700 | 67 69 74 20 6e 20 6f 75 74 29 0a 20 20 28 77 72 69 74 65 2d 63 68 61 72 20 28 68 65 78 2d 64 69 | git.n.out)...(write-char.(hex-di |
| b8720 | 67 69 74 2d 3e 63 68 61 72 20 6e 29 20 6f 75 74 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 68 65 78 | git->char.n).out))..(define.(hex |
| b8740 | 2d 64 69 67 69 74 2d 3e 63 68 61 72 20 6e 29 0a 20 20 28 64 69 67 69 74 2d 3e 63 68 61 72 20 6e | -digit->char.n)...(digit->char.n |
| b8760 | 20 31 36 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 68 61 72 2d 3e 68 65 78 2d 64 69 67 69 74 20 | .16))..(define.(char->hex-digit. |
| b8780 | 63 29 0a 20 20 28 63 68 61 72 2d 3e 64 69 67 69 74 20 63 20 31 36 29 29 0a 0a 0c 0a 3b 3b 3b 3b | c)...(char->digit.c.16))....;;;; |
| b87a0 | 20 45 76 65 6e 74 20 64 69 73 70 61 74 63 68 69 6e 67 0a 0a 28 64 65 66 69 6e 65 20 28 64 69 73 | .Event.dispatching..(define.(dis |
| b87c0 | 70 61 74 63 68 20 72 65 71 75 65 73 74 20 73 6f 63 6b 65 74 20 6c 65 76 65 6c 29 0a 20 20 28 6c | patch.request.socket.level)...(l |
| b87e0 | 6f 67 2d 65 76 65 6e 74 20 22 52 45 41 44 3a 20 7e 73 7e 25 22 20 72 65 71 75 65 73 74 29 0a 20 | og-event."READ:.~s~%".request).. |
| b8800 | 20 28 63 61 73 65 20 28 63 61 72 20 72 65 71 75 65 73 74 29 0a 20 20 20 20 28 28 3a 65 6d 61 63 | .(case.(car.request).....((:emac |
| b8820 | 73 2d 72 65 78 29 20 28 61 70 70 6c 79 20 65 6d 61 63 73 2d 72 65 78 20 73 6f 63 6b 65 74 20 6c | s-rex).(apply.emacs-rex.socket.l |
| b8840 | 65 76 65 6c 20 28 63 64 72 20 72 65 71 75 65 73 74 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 | evel.(cdr.request)))))..(define. |
| b8860 | 28 73 77 61 6e 6b 2d 70 61 63 6b 61 67 65 29 0a 20 20 28 6f 72 20 28 6e 61 6d 65 2d 3e 70 61 63 | (swank-package)...(or.(name->pac |
| b8880 | 6b 61 67 65 20 27 28 73 77 61 6e 6b 29 29 0a 20 20 20 20 20 20 28 6e 61 6d 65 2d 3e 70 61 63 6b | kage.'(swank)).......(name->pack |
| b88a0 | 61 67 65 20 27 28 75 73 65 72 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 2a 62 75 66 66 65 72 2d | age.'(user))))..(define.*buffer- |
| b88c0 | 70 61 63 6b 61 67 65 2a 20 23 66 29 0a 28 64 65 66 69 6e 65 20 28 66 69 6e 64 2d 62 75 66 66 65 | package*.#f).(define.(find-buffe |
| b88e0 | 72 2d 70 61 63 6b 61 67 65 20 6e 61 6d 65 29 0a 20 20 28 69 66 20 28 65 6c 69 73 70 2d 66 61 6c | r-package.name)...(if.(elisp-fal |
| b8900 | 73 65 3f 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 23 66 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 | se?.name).......#f.......(let.(( |
| b8920 | 76 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 0a 09 09 28 6c 61 6d 62 64 61 20 28 29 20 28 | v.(ignore-errors....(lambda.().( |
| b8940 | 6e 61 6d 65 2d 3e 70 61 63 6b 61 67 65 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 | name->package.(read-from-string. |
| b8960 | 6e 61 6d 65 29 29 29 29 29 29 0a 09 28 61 6e 64 20 28 70 61 63 6b 61 67 65 3f 20 76 29 20 76 29 | name))))))..(and.(package?.v).v) |
| b8980 | 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 73 77 61 6e 6b 2d 65 6e 76 20 28 2d 3e 65 6e 76 69 72 6f | )))..(define.swank-env.(->enviro |
| b89a0 | 6e 6d 65 6e 74 20 28 73 77 61 6e 6b 2d 70 61 63 6b 61 67 65 29 29 29 0a 28 64 65 66 69 6e 65 20 | nment.(swank-package))).(define. |
| b89c0 | 28 75 73 65 72 2d 65 6e 76 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 29 0a 20 20 28 63 6f 6e | (user-env.buffer-package)...(con |
| b89e0 | 64 20 28 28 73 74 72 69 6e 67 3f 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 29 0a 09 20 28 6c | d.((string?.buffer-package)...(l |
| b8a00 | 65 74 20 28 28 70 20 28 66 69 6e 64 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 62 75 66 66 | et.((p.(find-buffer-package.buff |
| b8a20 | 65 72 2d 70 61 63 6b 61 67 65 29 29 29 0a 09 20 20 20 28 69 66 20 28 6e 6f 74 20 70 29 20 28 65 | er-package))).....(if.(not.p).(e |
| b8a40 | 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 3a 20 22 20 62 75 | rror."Invalid.package.name:.".bu |
| b8a60 | 66 66 65 72 2d 70 61 63 6b 61 67 65 29 29 0a 09 20 20 20 28 70 61 63 6b 61 67 65 2f 65 6e 76 69 | ffer-package)).....(package/envi |
| b8a80 | 72 6f 6e 6d 65 6e 74 20 70 29 29 29 0a 09 28 65 6c 73 65 20 28 6e 65 61 72 65 73 74 2d 72 65 70 | ronment.p)))..(else.(nearest-rep |
| b8aa0 | 6c 2f 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 29 0a 0a 3b 3b 20 71 75 6f 74 65 20 6b 65 79 77 | l/environment))))..;;.quote.keyw |
| b8ac0 | 6f 72 64 73 0a 28 64 65 66 69 6e 65 20 28 68 61 63 6b 2d 71 75 6f 74 65 73 20 6c 69 73 74 29 0a | ords.(define.(hack-quotes.list). |
| b8ae0 | 20 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 09 20 28 63 6f 6e 64 20 28 28 73 79 6d | ..(map.(lambda.(x)...(cond.((sym |
| b8b00 | 62 6f 6c 3f 20 78 29 20 60 28 71 75 6f 74 65 20 2c 78 29 29 0a 09 20 20 20 20 20 20 20 28 23 74 | bol?.x).`(quote.,x)).........(#t |
| b8b20 | 20 78 29 29 29 0a 20 20 20 20 20 20 20 6c 69 73 74 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 65 6d | .x)))........list))..(define.(em |
| b8b40 | 61 63 73 2d 72 65 78 20 73 6f 63 6b 65 74 20 6c 65 76 65 6c 20 73 65 78 70 20 70 61 63 6b 61 67 | acs-rex.socket.level.sexp.packag |
| b8b60 | 65 20 74 68 72 65 61 64 20 69 64 29 0a 20 20 28 6c 65 74 20 28 28 6f 6b 3f 20 23 66 29 20 28 72 | e.thread.id)...(let.((ok?.#f).(r |
| b8b80 | 65 73 75 6c 74 20 23 66 29 20 28 63 6f 6e 64 69 74 69 6f 6e 20 23 66 29 29 0a 20 20 20 20 28 64 | esult.#f).(condition.#f)).....(d |
| b8ba0 | 79 6e 61 6d 69 63 2d 77 69 6e 64 0a 09 28 6c 61 6d 62 64 61 20 28 29 20 23 66 29 0a 09 28 6c 61 | ynamic-wind..(lambda.().#f)..(la |
| b8bc0 | 6d 62 64 61 20 28 29 0a 09 20 20 28 62 69 6e 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d 68 61 6e 64 6c | mbda.()....(bind-condition-handl |
| b8be0 | 65 72 20 0a 09 20 20 20 28 6c 69 73 74 20 63 6f 6e 64 69 74 69 6f 6e 2d 74 79 70 65 3a 73 65 72 | er......(list.condition-type:ser |
| b8c00 | 69 6f 75 73 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 09 20 20 20 28 6c 61 6d 62 64 61 20 28 63 29 20 | ious-condition).....(lambda.(c). |
| b8c20 | 28 73 65 74 21 20 63 6f 6e 64 69 74 69 6f 6e 20 63 29 20 28 69 6e 76 6f 6b 65 2d 73 6c 64 62 20 | (set!.condition.c).(invoke-sldb. |
| b8c40 | 73 6f 63 6b 65 74 20 28 31 2b 20 6c 65 76 65 6c 29 20 63 29 29 0a 09 20 20 20 28 6c 61 6d 62 64 | socket.(1+.level).c)).....(lambd |
| b8c60 | 61 20 28 29 0a 09 20 20 20 20 20 28 66 6c 75 69 64 2d 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d | a.().......(fluid-let.((*buffer- |
| b8c80 | 70 61 63 6b 61 67 65 2a 20 70 61 63 6b 61 67 65 29 29 0a 09 20 20 20 20 20 20 20 28 73 65 74 21 | package*.package)).........(set! |
| b8ca0 | 20 72 65 73 75 6c 74 20 0a 09 09 20 20 20 20 20 28 65 76 61 6c 20 28 63 6f 6e 73 2a 20 28 63 61 | .result.........(eval.(cons*.(ca |
| b8cc0 | 72 20 73 65 78 70 29 20 73 6f 63 6b 65 74 20 28 68 61 63 6b 2d 71 75 6f 74 65 73 20 28 63 64 72 | r.sexp).socket.(hack-quotes.(cdr |
| b8ce0 | 20 73 65 78 70 29 29 29 0a 09 09 09 20 20 20 73 77 61 6e 6b 2d 65 6e 76 29 29 0a 09 20 20 20 20 | .sexp))).......swank-env))...... |
| b8d00 | 20 20 20 28 73 65 74 21 20 6f 6b 3f 20 23 74 29 29 29 29 29 0a 09 28 6c 61 6d 62 64 61 20 28 29 | ...(set!.ok?.#t)))))..(lambda.() |
| b8d20 | 0a 09 20 20 28 77 72 69 74 65 2d 70 61 63 6b 65 74 20 60 28 3a 72 65 74 75 72 6e 20 0a 09 09 09 | ....(write-packet.`(:return..... |
| b8d40 | 20 20 2c 28 69 66 20 6f 6b 3f 20 60 28 3a 6f 6b 20 2c 72 65 73 75 6c 74 29 0a 09 09 09 20 20 20 | ..,(if.ok?.`(:ok.,result)....... |
| b8d60 | 20 20 20 20 60 28 3a 61 62 6f 72 74 20 0a 09 09 09 09 20 2c 28 69 66 20 63 6f 6e 64 69 74 69 6f | ....`(:abort.......,(if.conditio |
| b8d80 | 6e 20 0a 09 09 09 09 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 23 66 20 22 7e 61 22 0a 09 09 09 | n............(format.#f."~a".... |
| b8da0 | 09 09 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2f 74 79 70 65 20 63 6f 6e 64 69 74 69 6f | ........(condition/type.conditio |
| b8dc0 | 6e 29 29 0a 09 09 09 09 20 20 20 20 20 20 22 3c 75 6e 6b 6e 6f 77 6e 20 72 65 61 73 6f 6e 3e 22 | n))..........."<unknown.reason>" |
| b8de0 | 29 29 29 0a 09 09 09 20 20 2c 69 64 29 0a 09 09 09 20 73 6f 63 6b 65 74 29 29 29 29 29 0a 0a 28 | )))......,id).....socket)))))..( |
| b8e00 | 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 69 6e 66 6f 20 5f 29 | define.(swank:connection-info._) |
| b8e20 | 0a 20 20 28 6c 65 74 20 28 28 70 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 3e 70 61 63 6b 61 67 | ...(let.((p.(environment->packag |
| b8e40 | 65 20 28 75 73 65 72 2d 65 6e 76 20 23 66 29 29 29 29 0a 20 20 20 20 60 28 3a 70 69 64 20 2c 28 | e.(user-env.#f)))).....`(:pid.,( |
| b8e60 | 75 6e 69 78 2f 63 75 72 72 65 6e 74 2d 70 69 64 29 0a 20 20 20 20 20 20 3a 70 61 63 6b 61 67 65 | unix/current-pid).......:package |
| b8e80 | 20 28 3a 6e 61 6d 65 20 2c 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 70 61 63 6b 61 | .(:name.,(write-to-string.(packa |
| b8ea0 | 67 65 2f 6e 61 6d 65 20 70 29 29 0a 09 09 20 20 20 20 20 20 3a 70 72 6f 6d 70 74 20 2c 28 77 72 | ge/name.p)).........:prompt.,(wr |
| b8ec0 | 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 70 61 63 6b 61 67 65 2f 6e 61 6d 65 20 70 29 29 29 | ite-to-string.(package/name.p))) |
| b8ee0 | 0a 20 20 20 20 20 20 3a 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 0a 20 20 20 | .......:lisp-implementation..... |
| b8f00 | 20 20 20 28 3a 74 79 70 65 20 22 4d 49 54 20 53 63 68 65 6d 65 22 20 3a 76 65 72 73 69 6f 6e 20 | ...(:type."MIT.Scheme".:version. |
| b8f20 | 2c 28 67 65 74 2d 73 75 62 73 79 73 74 65 6d 2d 76 65 72 73 69 6f 6e 2d 73 74 72 69 6e 67 20 22 | ,(get-subsystem-version-string." |
| b8f40 | 72 65 6c 65 61 73 65 22 29 29 0a 20 20 20 20 20 20 3a 65 6e 63 6f 64 69 6e 67 20 28 3a 63 6f 64 | release")).......:encoding.(:cod |
| b8f60 | 69 6e 67 2d 73 79 73 74 65 6d 73 20 28 22 69 73 6f 2d 38 38 35 39 2d 31 22 29 29 0a 20 20 20 20 | ing-systems.("iso-8859-1"))..... |
| b8f80 | 20 20 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 71 75 69 74 2d 6c 69 73 70 20 | ..)))..(define.(swank:quit-lisp. |
| b8fa0 | 5f 29 0a 20 20 28 25 65 78 69 74 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 45 76 61 6c 75 61 74 69 6f 6e | _)...(%exit))....;;;;.Evaluation |
| b8fc0 | 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 2d 72 65 70 6c 3a 6c 69 73 74 65 6e 65 72 2d 65 | ..(define.(swank-repl:listener-e |
| b8fe0 | 76 61 6c 20 73 6f 63 6b 65 74 20 73 74 72 69 6e 67 29 0a 20 20 3b 3b 28 63 61 6c 6c 2d 77 69 74 | val.socket.string)...;;(call-wit |
| b9000 | 68 2d 76 61 6c 75 65 73 20 28 6c 61 6d 62 64 61 20 28 29 20 28 65 76 61 6c 2d 72 65 67 69 6f 6e | h-values.(lambda.().(eval-region |
| b9020 | 20 73 74 72 69 6e 67 20 73 6f 63 6b 65 74 29 29 0a 20 20 3b 3b 20 20 28 6c 61 6d 62 64 61 20 76 | .string.socket))...;;..(lambda.v |
| b9040 | 61 6c 75 65 73 20 60 28 3a 76 61 6c 75 65 73 20 2e 20 2c 28 6d 61 70 20 77 72 69 74 65 2d 74 6f | alues.`(:values...,(map.write-to |
| b9060 | 2d 73 74 72 69 6e 67 20 76 61 6c 75 65 73 29 29 29 29 0a 20 20 60 28 3a 76 61 6c 75 65 73 20 2c | -string.values))))...`(:values., |
| b9080 | 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73 74 | (write-to-string.(eval-region.st |
| b90a0 | 72 69 6e 67 20 73 6f 63 6b 65 74 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 65 76 61 6c 2d 72 | ring.socket))))..(define.(eval-r |
| b90c0 | 65 67 69 6f 6e 20 73 74 72 69 6e 67 20 73 6f 63 6b 65 74 29 0a 20 20 28 6c 65 74 20 28 28 73 65 | egion.string.socket)...(let.((se |
| b90e0 | 78 70 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 0a 20 | xp.(read-from-string.string))).. |
| b9100 | 20 20 20 28 69 66 20 28 65 6f 66 2d 6f 62 6a 65 63 74 3f 20 65 78 70 29 0a 09 28 76 61 6c 75 65 | ...(if.(eof-object?.exp)..(value |
| b9120 | 73 29 0a 09 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 72 65 70 6c 20 73 6f 63 6b 65 74 0a | s)..(with-output-to-repl.socket. |
| b9140 | 09 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 65 76 61 6c 20 73 65 78 70 20 28 75 73 65 72 2d 65 | ...(lambda.().(eval.sexp.(user-e |
| b9160 | 6e 76 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 29 29 29 29 29 29 0a 0a 28 64 65 66 | nv.*buffer-package*)))))))..(def |
| b9180 | 69 6e 65 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 72 65 70 6c 20 73 6f 63 6b 65 74 20 | ine.(with-output-to-repl.socket. |
| b91a0 | 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 70 20 28 6d 61 6b 65 2d 70 6f 72 74 20 72 65 70 6c 2d | fun)...(let.((p.(make-port.repl- |
| b91c0 | 70 6f 72 74 2d 74 79 70 65 20 73 6f 63 6b 65 74 29 29 29 0a 20 20 20 20 28 64 79 6e 61 6d 69 63 | port-type.socket))).....(dynamic |
| b91e0 | 2d 77 69 6e 64 0a 09 28 6c 61 6d 62 64 61 20 28 29 20 23 66 29 0a 09 28 6c 61 6d 62 64 61 20 28 | -wind..(lambda.().#f)..(lambda.( |
| b9200 | 29 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 70 6f 72 74 20 70 20 66 75 6e 29 29 0a 09 | ).(with-output-to-port.p.fun)).. |
| b9220 | 28 6c 61 6d 62 64 61 20 28 29 20 28 66 6c 75 73 68 2d 6f 75 74 70 75 74 20 70 29 29 29 29 29 0a | (lambda.().(flush-output.p))))). |
| b9240 | 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c | .(define.(swank:interactive-eval |
| b9260 | 20 73 6f 63 6b 65 74 20 73 74 72 69 6e 67 29 0a 20 20 3b 3b 28 63 61 6c 6c 2d 77 69 74 68 2d 76 | .socket.string)...;;(call-with-v |
| b9280 | 61 6c 75 65 73 20 28 6c 61 6d 62 64 61 20 28 29 20 28 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73 74 | alues.(lambda.().(eval-region.st |
| b92a0 | 72 69 6e 67 29 29 20 66 6f 72 6d 61 74 2d 66 6f 72 2d 65 63 68 6f 2d 61 72 65 61 29 0a 20 20 28 | ring)).format-for-echo-area)...( |
| b92c0 | 66 6f 72 6d 61 74 2d 76 61 6c 75 65 73 20 28 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73 74 72 69 6e | format-values.(eval-region.strin |
| b92e0 | 67 20 73 6f 63 6b 65 74 29 29 0a 20 20 29 0a 0a 28 64 65 66 69 6e 65 20 28 66 6f 72 6d 61 74 2d | g.socket))...)..(define.(format- |
| b9300 | 76 61 6c 75 65 73 20 2e 20 76 61 6c 75 65 73 29 0a 20 20 28 69 66 20 28 6e 75 6c 6c 3f 20 76 61 | values...values)...(if.(null?.va |
| b9320 | 6c 75 65 73 29 20 0a 20 20 20 20 20 20 22 3b 20 4e 6f 20 76 61 6c 75 65 22 0a 20 20 20 20 20 20 | lues)........";.No.value"....... |
| b9340 | 28 77 69 74 68 2d 73 74 72 69 6e 67 2d 6f 75 74 70 75 74 2d 70 6f 72 74 0a 09 20 20 28 6c 61 6d | (with-string-output-port....(lam |
| b9360 | 62 64 61 20 28 6f 75 74 29 0a 09 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 22 3d 3e | bda.(out)......(write-string."=> |
| b9380 | 20 22 20 6f 75 74 29 0a 09 20 20 20 20 28 64 6f 20 28 28 76 73 20 76 61 6c 75 65 73 20 28 63 64 | .".out)......(do.((vs.values.(cd |
| b93a0 | 72 20 76 73 29 29 29 20 28 28 6e 75 6c 6c 3f 20 76 73 29 29 0a 09 20 20 20 20 20 20 28 77 72 69 | r.vs))).((null?.vs))........(wri |
| b93c0 | 74 65 20 28 63 61 72 20 76 73 29 20 6f 75 74 29 0a 09 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 | te.(car.vs).out)........(if.(not |
| b93e0 | 20 28 6e 75 6c 6c 3f 20 28 63 64 72 20 76 73 29 29 29 0a 09 09 20 20 28 77 72 69 74 65 2d 73 74 | .(null?.(cdr.vs))).....(write-st |
| b9400 | 72 69 6e 67 20 22 2c 20 22 20 6f 75 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 | ring.",.".out)))))))..(define.(s |
| b9420 | 77 61 6e 6b 3a 70 70 72 69 6e 74 2d 65 76 61 6c 20 5f 20 73 74 72 69 6e 67 29 0a 20 20 28 70 70 | wank:pprint-eval._.string)...(pp |
| b9440 | 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d | rint-to-string.(eval.(read-from- |
| b9460 | 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 20 0a 09 09 09 20 20 28 75 73 65 72 2d 65 6e 76 20 2a | string.string).......(user-env.* |
| b9480 | 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 | buffer-package*))))..(define.(sw |
| b94a0 | 61 6e 6b 3a 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73 6f 63 6b | ank:interactive-eval-region.sock |
| b94c0 | 65 74 20 73 74 72 69 6e 67 29 0a 20 20 28 66 6f 72 6d 61 74 2d 76 61 6c 75 65 73 20 28 65 76 61 | et.string)...(format-values.(eva |
| b94e0 | 6c 2d 72 65 67 69 6f 6e 20 73 74 72 69 6e 67 20 73 6f 63 6b 65 74 29 29 29 0a 0a 28 64 65 66 69 | l-region.string.socket)))..(defi |
| b9500 | 6e 65 20 28 73 77 61 6e 6b 3a 73 65 74 2d 70 61 63 6b 61 67 65 20 5f 20 70 61 63 6b 61 67 65 29 | ne.(swank:set-package._.package) |
| b9520 | 0a 20 20 28 73 65 74 2d 72 65 70 6c 2f 65 6e 76 69 72 6f 6e 6d 65 6e 74 21 20 28 6e 65 61 72 65 | ...(set-repl/environment!.(neare |
| b9540 | 73 74 2d 72 65 70 6c 29 20 0a 09 09 09 20 28 2d 3e 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 72 65 | st-repl)......(->environment.(re |
| b9560 | 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 29 29 29 0a 20 20 28 6c 65 74 | ad-from-string.package)))...(let |
| b9580 | 2a 20 28 28 70 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 3e 70 61 63 6b 61 67 65 20 28 75 73 65 | *.((p.(environment->package.(use |
| b95a0 | 72 2d 65 6e 76 20 23 66 29 29 29 0a 09 20 28 6e 20 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e | r-env.#f)))...(n.(write-to-strin |
| b95c0 | 67 20 28 70 61 63 6b 61 67 65 2f 6e 61 6d 65 20 70 29 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 | g.(package/name.p)))).....(list. |
| b95e0 | 6e 20 6e 29 29 29 0a 0a 20 0a 28 64 65 66 69 6e 65 20 28 72 65 70 6c 2d 77 72 69 74 65 2d 73 75 | n.n)))....(define.(repl-write-su |
| b9600 | 62 73 74 72 69 6e 67 20 70 6f 72 74 20 73 74 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 29 0a 20 | bstring.port.string.start.end).. |
| b9620 | 20 28 63 6f 6e 64 20 28 28 3c 20 73 74 61 72 74 20 65 6e 64 29 0a 09 20 28 77 72 69 74 65 2d 70 | .(cond.((<.start.end)...(write-p |
| b9640 | 61 63 6b 65 74 20 60 28 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 20 2c 28 73 75 62 73 74 72 69 6e | acket.`(:write-string.,(substrin |
| b9660 | 67 20 73 74 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 29 29 0a 09 09 20 20 20 20 20 20 20 28 70 | g.string.start.end))..........(p |
| b9680 | 6f 72 74 2f 73 74 61 74 65 20 70 6f 72 74 29 29 29 29 0a 20 20 28 2d 20 65 6e 64 20 73 74 61 72 | ort/state.port))))...(-.end.star |
| b96a0 | 74 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 72 65 70 6c 2d 77 72 69 74 65 2d 63 68 61 72 20 70 6f | t))..(define.(repl-write-char.po |
| b96c0 | 72 74 20 63 68 61 72 29 0a 20 20 28 77 72 69 74 65 2d 70 61 63 6b 65 74 20 60 28 3a 77 72 69 74 | rt.char)...(write-packet.`(:writ |
| b96e0 | 65 2d 73 74 72 69 6e 67 20 2c 28 73 74 72 69 6e 67 20 63 68 61 72 29 29 0a 20 20 20 20 20 20 20 | e-string.,(string.char))........ |
| b9700 | 20 20 20 20 20 20 20 20 20 28 70 6f 72 74 2f 73 74 61 74 65 20 70 6f 72 74 29 29 29 0a 0a 28 64 | .........(port/state.port)))..(d |
| b9720 | 65 66 69 6e 65 20 72 65 70 6c 2d 70 6f 72 74 2d 74 79 70 65 0a 20 20 28 6d 61 6b 65 2d 70 6f 72 | efine.repl-port-type...(make-por |
| b9740 | 74 2d 74 79 70 65 20 60 28 28 77 72 69 74 65 2d 73 75 62 73 74 72 69 6e 67 20 2c 72 65 70 6c 2d | t-type.`((write-substring.,repl- |
| b9760 | 77 72 69 74 65 2d 73 75 62 73 74 72 69 6e 67 29 0a 09 09 20 20 20 20 28 77 72 69 74 65 2d 63 68 | write-substring).......(write-ch |
| b9780 | 61 72 20 2c 72 65 70 6c 2d 77 72 69 74 65 2d 63 68 61 72 29 29 20 23 66 29 29 0a 0a 28 64 65 66 | ar.,repl-write-char)).#f))..(def |
| b97a0 | 69 6e 65 20 28 73 77 61 6e 6b 2d 72 65 70 6c 3a 63 72 65 61 74 65 2d 72 65 70 6c 20 73 6f 63 6b | ine.(swank-repl:create-repl.sock |
| b97c0 | 65 74 20 2e 20 5f 29 0a 20 20 28 6c 65 74 2a 20 28 28 65 6e 76 20 28 75 73 65 72 2d 65 6e 76 20 | et..._)...(let*.((env.(user-env. |
| b97e0 | 23 66 29 29 0a 09 20 28 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 23 66 20 22 7e 61 22 20 28 70 61 | #f))...(name.(format.#f."~a".(pa |
| b9800 | 63 6b 61 67 65 2f 6e 61 6d 65 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 3e 70 61 63 6b 61 67 65 | ckage/name.(environment->package |
| b9820 | 20 65 6e 76 29 29 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 6e 61 6d 65 20 6e 61 6d 65 29 29 29 | .env))))).....(list.name.name))) |
| b9840 | 0a 0a 0c 0a 3b 3b 3b 3b 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 0a 0a 28 64 65 66 69 6e 65 20 28 73 | ....;;;;.Compilation..(define.(s |
| b9860 | 77 61 6e 6b 3a 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 65 6d 61 63 73 20 5f 20 | wank:compile-string-for-emacs._. |
| b9880 | 73 74 72 69 6e 67 20 2e 20 78 29 0a 20 20 28 61 70 70 6c 79 20 0a 20 20 20 28 6c 61 6d 62 64 61 | string...x)...(apply.....(lambda |
| b98a0 | 20 28 65 72 72 6f 72 73 20 73 65 63 6f 6e 64 73 29 0a 20 20 20 20 20 60 28 3a 63 6f 6d 70 69 6c | .(errors.seconds)......`(:compil |
| b98c0 | 61 74 69 6f 6e 2d 72 65 73 75 6c 74 20 2c 65 72 72 6f 72 73 20 74 20 2c 73 65 63 6f 6e 64 73 20 | ation-result.,errors.t.,seconds. |
| b98e0 | 6e 69 6c 20 6e 69 6c 29 29 0a 20 20 20 28 63 61 6c 6c 2d 63 6f 6d 70 69 6c 65 72 0a 20 20 20 20 | nil.nil))....(call-compiler..... |
| b9900 | 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 65 78 70 73 20 28 | (lambda.().......(let*.((sexps.( |
| b9920 | 73 6e 61 72 66 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 0a 09 20 20 20 20 20 28 65 6e 76 | snarf-string.string)).......(env |
| b9940 | 20 28 75 73 65 72 2d 65 6e 76 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 29 0a 09 20 | .(user-env.*buffer-package*))... |
| b9960 | 20 20 20 20 28 73 63 6f 64 65 20 28 73 79 6e 74 61 78 20 60 28 62 65 67 69 6e 20 2c 40 73 65 78 | ....(scode.(syntax.`(begin.,@sex |
| b9980 | 70 73 29 20 65 6e 76 29 29 0a 09 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 64 2d 65 78 70 72 65 73 | ps).env)).......(compiled-expres |
| b99a0 | 73 69 6f 6e 20 28 63 6f 6d 70 69 6c 65 2d 73 63 6f 64 65 20 73 63 6f 64 65 20 23 74 29 29 29 0a | sion.(compile-scode.scode.#t))). |
| b99c0 | 09 28 73 63 6f 64 65 2d 65 76 61 6c 20 63 6f 6d 70 69 6c 65 64 2d 65 78 70 72 65 73 73 69 6f 6e | .(scode-eval.compiled-expression |
| b99e0 | 20 65 6e 76 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 6e 61 72 66 2d 73 74 72 69 6e | .env))))))..(define.(snarf-strin |
| b9a00 | 67 20 73 74 72 69 6e 67 29 0a 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 | g.string)...(with-input-from-str |
| b9a20 | 69 6e 67 20 73 74 72 69 6e 67 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 0a 20 20 20 20 20 | ing.string.....(lambda.()....... |
| b9a40 | 20 28 6c 65 74 20 6c 6f 6f 70 20 28 29 0a 09 28 6c 65 74 20 28 28 65 20 28 72 65 61 64 29 29 29 | .(let.loop.()..(let.((e.(read))) |
| b9a60 | 0a 09 20 20 28 69 66 20 28 65 6f 66 2d 6f 62 6a 65 63 74 3f 20 65 29 20 27 28 29 20 28 63 6f 6e | ....(if.(eof-object?.e).'().(con |
| b9a80 | 73 20 65 20 28 6c 6f 6f 70 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 61 6c 6c | s.e.(loop))))))))..(define.(call |
| b9aa0 | 2d 63 6f 6d 70 69 6c 65 72 20 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 74 69 6d 65 20 23 66 29 | -compiler.fun)...(let.((time.#f) |
| b9ac0 | 29 0a 20 20 20 20 28 77 69 74 68 2d 74 69 6d 69 6e 67 73 20 66 75 6e 0a 20 20 20 20 20 20 28 6c | ).....(with-timings.fun.......(l |
| b9ae0 | 61 6d 62 64 61 20 28 72 75 6e 2d 74 69 6d 65 20 67 63 2d 74 69 6d 65 20 72 65 61 6c 2d 74 69 6d | ambda.(run-time.gc-time.real-tim |
| b9b00 | 65 29 0a 09 28 73 65 74 21 20 74 69 6d 65 20 72 65 61 6c 2d 74 69 6d 65 29 29 29 0a 20 20 20 20 | e)..(set!.time.real-time)))..... |
| b9b20 | 28 6c 69 73 74 20 27 6e 69 6c 20 28 69 6e 74 65 72 6e 61 6c 2d 74 69 6d 65 2f 74 69 63 6b 73 2d | (list.'nil.(internal-time/ticks- |
| b9b40 | 3e 73 65 63 6f 6e 64 73 20 74 69 6d 65 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e | >seconds.time))))..(define.(swan |
| b9b60 | 6b 3a 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 66 6f 72 2d 65 6d 61 63 73 20 5f 29 20 6e 69 | k:compiler-notes-for-emacs._).ni |
| b9b80 | 6c 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d | l)..(define.(swank:compile-file- |
| b9ba0 | 66 6f 72 2d 65 6d 61 63 73 20 73 6f 63 6b 65 74 20 66 69 6c 65 20 6c 6f 61 64 3f 29 0a 20 20 28 | for-emacs.socket.file.load?)...( |
| b9bc0 | 61 70 70 6c 79 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 65 72 72 6f 72 73 20 73 65 63 6f 6e 64 73 | apply....(lambda.(errors.seconds |
| b9be0 | 29 0a 20 20 20 20 20 28 6c 69 73 74 20 27 3a 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c | )......(list.':compilation-resul |
| b9c00 | 74 20 65 72 72 6f 72 73 20 27 74 20 73 65 63 6f 6e 64 73 20 6c 6f 61 64 3f 20 0a 09 20 20 20 28 | t.errors.'t.seconds.load?......( |
| b9c20 | 2d 3e 6e 61 6d 65 73 74 72 69 6e 67 20 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 66 69 6c 65 | ->namestring.(pathname-name.file |
| b9c40 | 29 29 29 29 0a 20 20 20 28 63 61 6c 6c 2d 63 6f 6d 70 69 6c 65 72 0a 20 20 20 20 28 6c 61 6d 62 | ))))....(call-compiler.....(lamb |
| b9c60 | 64 61 20 28 29 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 72 65 70 6c 20 73 6f 63 6b 65 | da.().(with-output-to-repl.socke |
| b9c80 | 74 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 66 69 6c 65 29 | t.(lambda.().(compile-file.file) |
| b9ca0 | 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 6c 6f 61 64 2d 66 69 6c 65 | ))))))..(define.(swank:load-file |
| b9cc0 | 20 73 6f 63 6b 65 74 20 66 69 6c 65 29 0a 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d | .socket.file)...(with-output-to- |
| b9ce0 | 72 65 70 6c 20 73 6f 63 6b 65 74 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 0a 20 20 20 20 | repl.socket.....(lambda.()...... |
| b9d00 | 20 20 28 70 70 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 0a 20 20 20 20 20 20 20 28 6c 6f 61 | ..(pprint-to-string.........(loa |
| b9d20 | 64 20 66 69 6c 65 20 28 75 73 65 72 2d 65 6e 76 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 | d.file.(user-env.*buffer-package |
| b9d40 | 2a 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 64 69 73 61 73 73 65 6d | *))))))..(define.(swank:disassem |
| b9d60 | 62 6c 65 2d 66 6f 72 6d 20 5f 20 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 73 65 78 70 | ble-form._.string)...(let.((sexp |
| b9d80 | 20 28 6c 65 74 20 28 28 73 65 78 70 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 | .(let.((sexp.(read-from-string.s |
| b9da0 | 74 72 69 6e 67 29 29 29 0a 09 09 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 70 61 69 72 3f 20 73 65 | tring)))...(cond.((and.(pair?.se |
| b9dc0 | 78 70 29 20 28 65 71 3f 20 28 63 61 72 20 73 65 78 70 29 20 27 71 75 6f 74 65 29 29 0a 09 09 20 | xp).(eq?.(car.sexp).'quote)).... |
| b9de0 | 20 20 20 20 20 20 28 63 61 64 72 20 73 65 78 70 29 29 0a 09 09 20 20 20 20 20 20 28 23 74 20 73 | ......(cadr.sexp)).........(#t.s |
| b9e00 | 65 78 70 29 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 | exp))))).....(with-output-to-str |
| b9e20 | 69 6e 67 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 0a 09 28 63 6f 6d 70 69 6c 65 72 | ing.......(lambda.()...(compiler |
| b9e40 | 3a 64 69 73 61 73 73 65 6d 62 6c 65 0a 09 20 28 65 76 61 6c 20 73 65 78 70 20 28 75 73 65 72 2d | :disassemble...(eval.sexp.(user- |
| b9e60 | 65 6e 76 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 29 29 29 29 29 29 0a 0a 28 64 65 | env.*buffer-package*)))))))..(de |
| b9e80 | 66 69 6e 65 20 28 73 77 61 6e 6b 3a 64 69 73 61 73 73 65 6d 62 6c 65 2d 73 79 6d 62 6f 6c 20 5f | fine.(swank:disassemble-symbol._ |
| b9ea0 | 20 73 74 72 69 6e 67 29 0a 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e | .string)...(with-output-to-strin |
| b9ec0 | 67 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 0a 09 28 63 6f 6d 70 69 6c 65 72 3a 64 | g.......(lambda.()...(compiler:d |
| b9ee0 | 69 73 61 73 73 65 6d 62 6c 65 0a 09 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 | isassemble...(eval.(read-from-st |
| b9f00 | 72 69 6e 67 20 73 74 72 69 6e 67 29 20 0a 09 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 6e 76 20 | ring.string)..........(user-env. |
| b9f20 | 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d | *buffer-package*))))))....;;;;.M |
| b9f40 | 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 73 77 | acroexpansion..(define.(swank:sw |
| b9f60 | 61 6e 6b 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 5f 20 73 74 72 69 6e 67 29 20 0a 20 | ank-macroexpand-all._.string)... |
| b9f80 | 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 28 6c | .(with-output-to-string.......(l |
| b9fa0 | 61 6d 62 64 61 20 28 29 0a 09 28 70 70 20 28 73 79 6e 74 61 78 20 28 72 65 61 64 2d 66 72 6f 6d | ambda.()..(pp.(syntax.(read-from |
| b9fc0 | 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 0a 09 09 20 20 20 20 28 75 73 65 72 2d 65 6e 76 20 | -string.string).......(user-env. |
| b9fe0 | 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 29 29 29 29 29 0a 28 64 65 66 69 6e 65 20 73 | *buffer-package*)))))).(define.s |
| ba000 | 77 61 6e 6b 3a 73 77 61 6e 6b 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 73 77 61 6e 6b 3a 73 | wank:swank-macroexpand-1.swank:s |
| ba020 | 77 61 6e 6b 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 29 0a 28 64 65 66 69 6e 65 20 73 77 | wank-macroexpand-all).(define.sw |
| ba040 | 61 6e 6b 3a 73 77 61 6e 6b 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 73 77 61 6e 6b 3a 73 77 61 6e | ank:swank-macroexpand.swank:swan |
| ba060 | 6b 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 29 0a 0a 0c 0a 3b 3b 3b 20 41 72 67 6c 69 73 | k-macroexpand-all)....;;;.Arglis |
| ba080 | 74 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 6f 70 65 72 61 74 6f 72 2d 61 72 67 6c 69 | t..(define.(swank:operator-argli |
| ba0a0 | 73 74 20 73 6f 63 6b 65 74 20 6e 61 6d 65 20 70 61 63 6b 29 0a 20 20 28 6c 65 74 20 28 28 76 20 | st.socket.name.pack)...(let.((v. |
| ba0c0 | 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 09 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 | (ignore-errors......(lambda.().. |
| ba0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 74 72 69 6d 2d 72 69 67 68 74 0a | .............(string-trim-right. |
| ba100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 | ...............(with-output-to-s |
| ba120 | 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | tring..................(lambda.( |
| ba140 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 65 66 75 6c 6c 79 2d | )....................(carefully- |
| ba160 | 70 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 28 72 65 | pa.....................(eval.(re |
| ba180 | 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 6e 61 6d 65 29 20 28 75 73 65 72 2d 65 6e 76 20 70 | ad-from-string.name).(user-env.p |
| ba1a0 | 61 63 6b 29 29 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 63 6f 6e 64 69 74 69 6f 6e | ack)))))))))).....(if.(condition |
| ba1c0 | 3f 20 76 29 20 27 6e 69 6c 20 76 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 61 72 65 66 75 6c | ?.v).'nil.v)))..(define.(careful |
| ba1e0 | 6c 79 2d 70 61 20 6f 29 0a 20 20 28 63 6f 6e 64 20 28 28 61 72 69 74 79 2d 64 69 73 70 61 74 63 | ly-pa.o)...(cond.((arity-dispatc |
| ba200 | 68 65 64 2d 70 72 6f 63 65 64 75 72 65 3f 20 6f 29 20 0a 09 20 3b 3b 20 4d 49 54 20 53 63 68 65 | hed-procedure?.o)....;;.MIT.Sche |
| ba220 | 6d 65 20 63 72 61 73 68 65 73 20 66 6f 72 20 28 70 61 20 2f 29 0a 09 20 28 64 69 73 70 6c 61 79 | me.crashes.for.(pa./)...(display |
| ba240 | 20 22 61 72 69 74 79 2d 64 69 73 70 61 74 63 68 65 64 2d 70 72 6f 63 65 64 75 72 65 22 29 29 0a | ."arity-dispatched-procedure")). |
| ba260 | 09 28 28 70 72 6f 63 65 64 75 72 65 3f 20 6f 29 20 28 70 61 20 6f 29 29 0a 09 28 65 6c 73 65 20 | .((procedure?.o).(pa.o))..(else. |
| ba280 | 28 65 72 72 6f 72 20 22 4e 6f 74 20 61 20 70 72 6f 63 65 64 75 72 65 22 29 29 29 29 0a 0a 0c 0a | (error."Not.a.procedure")))).... |
| ba2a0 | 3b 3b 3b 20 53 6f 6d 65 20 75 6e 69 6d 70 6c 65 6d 65 6e 74 65 64 20 73 74 75 66 66 2e 0a 28 64 | ;;;.Some.unimplemented.stuff..(d |
| ba2c0 | 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 62 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 | efine.(swank:buffer-first-change |
| ba2e0 | 20 2e 20 5f 29 20 6e 69 6c 29 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 66 69 6c 65 6e 61 | ..._).nil).(define.(swank:filena |
| ba300 | 6d 65 2d 74 6f 2d 6d 6f 64 75 6c 65 6e 61 6d 65 20 2e 20 5f 29 20 6e 69 6c 29 0a 28 64 65 66 69 | me-to-modulename..._).nil).(defi |
| ba320 | 6e 65 20 28 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 72 65 71 75 69 72 65 20 2e 20 5f 29 20 6e 69 6c | ne.(swank:swank-require..._).nil |
| ba340 | 29 0a 0a 3b 3b 20 4d 2d 2e 20 69 73 20 62 65 79 6f 6e 64 20 6d 79 20 63 61 70 61 62 69 6c 69 74 | )..;;.M-..is.beyond.my.capabilit |
| ba360 | 69 65 73 2e 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 66 69 6e 64 2d 64 65 66 69 6e 69 74 | ies..(define.(swank:find-definit |
| ba380 | 69 6f 6e 73 2d 66 6f 72 2d 65 6d 61 63 73 20 2e 20 5f 29 20 6e 69 6c 29 0a 0a 0c 0a 3b 3b 3b 20 | ions-for-emacs..._).nil)....;;;. |
| ba3a0 | 44 65 62 75 67 67 65 72 0a 0a 28 64 65 66 69 6e 65 2d 73 74 72 75 63 74 75 72 65 20 28 73 6c 64 | Debugger..(define-structure.(sld |
| ba3c0 | 62 2d 73 74 61 74 65 20 28 63 6f 6e 63 2d 6e 61 6d 65 20 73 6c 64 62 2d 73 74 61 74 65 2e 29 29 | b-state.(conc-name.sldb-state.)) |
| ba3e0 | 20 63 6f 6e 64 69 74 69 6f 6e 20 72 65 73 74 61 72 74 73 29 0a 0a 28 64 65 66 69 6e 65 20 2a 73 | .condition.restarts)..(define.*s |
| ba400 | 6c 64 62 2d 73 74 61 74 65 2a 20 23 66 29 0a 28 64 65 66 69 6e 65 20 28 69 6e 76 6f 6b 65 2d 73 | ldb-state*.#f).(define.(invoke-s |
| ba420 | 6c 64 62 20 73 6f 63 6b 65 74 20 6c 65 76 65 6c 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 66 | ldb.socket.level.condition)...(f |
| ba440 | 6c 75 69 64 2d 6c 65 74 20 28 28 2a 73 6c 64 62 2d 73 74 61 74 65 2a 20 28 6d 61 6b 65 2d 73 6c | luid-let.((*sldb-state*.(make-sl |
| ba460 | 64 62 2d 73 74 61 74 65 20 63 6f 6e 64 69 74 69 6f 6e 20 28 62 6f 75 6e 64 2d 72 65 73 74 61 72 | db-state.condition.(bound-restar |
| ba480 | 74 73 29 29 29 29 0a 20 20 20 20 28 64 79 6e 61 6d 69 63 2d 77 69 6e 64 20 0a 09 28 6c 61 6d 62 | ts)))).....(dynamic-wind...(lamb |
| ba4a0 | 64 61 20 28 29 20 23 66 29 0a 09 28 6c 61 6d 62 64 61 20 28 29 0a 09 20 20 28 77 72 69 74 65 2d | da.().#f)..(lambda.()....(write- |
| ba4c0 | 70 61 63 6b 65 74 20 60 28 3a 64 65 62 75 67 20 30 20 2c 6c 65 76 65 6c 20 2c 40 28 73 6c 64 62 | packet.`(:debug.0.,level.,@(sldb |
| ba4e0 | 2d 69 6e 66 6f 20 2a 73 6c 64 62 2d 73 74 61 74 65 2a 20 30 20 32 30 29 29 0a 09 09 09 73 6f 63 | -info.*sldb-state*.0.20))....soc |
| ba500 | 6b 65 74 29 0a 09 20 20 28 73 6c 64 62 2d 6c 6f 6f 70 20 6c 65 76 65 6c 20 73 6f 63 6b 65 74 29 | ket)....(sldb-loop.level.socket) |
| ba520 | 29 0a 09 28 6c 61 6d 62 64 61 20 28 29 0a 09 20 20 28 77 72 69 74 65 2d 70 61 63 6b 65 74 20 60 | )..(lambda.()....(write-packet.` |
| ba540 | 28 3a 64 65 62 75 67 2d 72 65 74 75 72 6e 20 30 20 2c 6c 65 76 65 6c 20 6e 69 6c 29 20 73 6f 63 | (:debug-return.0.,level.nil).soc |
| ba560 | 6b 65 74 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 6c 64 62 2d 6c 6f 6f 70 20 6c 65 76 | ket)))))..(define.(sldb-loop.lev |
| ba580 | 65 6c 20 73 6f 63 6b 65 74 29 0a 20 20 28 77 72 69 74 65 2d 70 61 63 6b 65 74 20 60 28 3a 64 65 | el.socket)...(write-packet.`(:de |
| ba5a0 | 62 75 67 2d 61 63 74 69 76 61 74 65 20 30 20 2c 6c 65 76 65 6c 29 20 73 6f 63 6b 65 74 29 0a 20 | bug-activate.0.,level).socket).. |
| ba5c0 | 20 28 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 20 0a 20 20 20 20 20 20 27 61 62 | .(with-simple-restart........'ab |
| ba5e0 | 6f 72 74 20 28 66 6f 72 6d 61 74 20 23 66 20 22 52 65 74 75 72 6e 20 74 6f 20 53 4c 44 42 20 6c | ort.(format.#f."Return.to.SLDB.l |
| ba600 | 65 76 65 6c 20 7e 61 2e 22 20 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | evel.~a.".level).......(lambda.( |
| ba620 | 29 20 28 64 69 73 70 61 74 63 68 20 28 72 65 61 64 2d 70 61 63 6b 65 74 20 73 6f 63 6b 65 74 29 | ).(dispatch.(read-packet.socket) |
| ba640 | 20 73 6f 63 6b 65 74 20 6c 65 76 65 6c 29 29 29 0a 20 20 28 73 6c 64 62 2d 6c 6f 6f 70 20 6c 65 | .socket.level)))...(sldb-loop.le |
| ba660 | 76 65 6c 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 6c 64 62 2d 69 6e 66 6f | vel.socket))..(define.(sldb-info |
| ba680 | 20 73 74 61 74 65 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 6c 65 74 20 28 28 63 20 28 73 6c | .state.start.end)...(let.((c.(sl |
| ba6a0 | 64 62 2d 73 74 61 74 65 2e 63 6f 6e 64 69 74 69 6f 6e 20 73 74 61 74 65 29 29 0a 09 28 72 73 20 | db-state.condition.state))..(rs. |
| ba6c0 | 28 73 6c 64 62 2d 73 74 61 74 65 2e 72 65 73 74 61 72 74 73 20 73 74 61 74 65 29 29 29 0a 20 20 | (sldb-state.restarts.state)))... |
| ba6e0 | 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 28 63 6f 6e 64 69 74 69 6f 6e 2f 72 65 70 6f 72 74 2d | ..(list.(list.(condition/report- |
| ba700 | 73 74 72 69 6e 67 20 63 29 0a 09 09 28 66 6f 72 6d 61 74 20 23 66 20 22 20 20 5b 7e 61 5d 22 20 | string.c)...(format.#f."..[~a]". |
| ba720 | 28 25 63 6f 6e 64 69 74 69 6f 6e 2d 74 79 70 65 2f 6e 61 6d 65 20 28 63 6f 6e 64 69 74 69 6f 6e | (%condition-type/name.(condition |
| ba740 | 2f 74 79 70 65 20 63 29 29 29 0a 09 09 6e 69 6c 29 0a 09 20 20 28 73 6c 64 62 2d 72 65 73 74 61 | /type.c)))...nil)....(sldb-resta |
| ba760 | 72 74 73 20 72 73 29 0a 09 20 20 28 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 20 63 20 73 74 61 | rts.rs)....(sldb-backtrace.c.sta |
| ba780 | 72 74 20 65 6e 64 29 0a 09 20 20 3b 3b 27 28 28 30 20 22 64 75 6d 6d 79 20 66 72 61 6d 65 22 29 | rt.end)....;;'((0."dummy.frame") |
| ba7a0 | 29 0a 09 20 20 27 28 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 25 63 6f 6e 64 69 74 69 6f 6e 2d | )....'())))..(define.%condition- |
| ba7c0 | 74 79 70 65 2f 6e 61 6d 65 0a 20 20 28 65 76 61 6c 20 27 25 63 6f 6e 64 69 74 69 6f 6e 2d 74 79 | type/name...(eval.'%condition-ty |
| ba7e0 | 70 65 2f 6e 61 6d 65 20 28 2d 3e 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 27 28 72 75 6e 74 69 6d 65 | pe/name.(->environment.'(runtime |
| ba800 | 20 65 72 72 6f 72 2d 68 61 6e 64 6c 65 72 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 6c 64 | .error-handler))))..(define.(sld |
| ba820 | 62 2d 72 65 73 74 61 72 74 73 20 72 65 73 74 61 72 74 73 29 0a 20 20 28 6d 61 70 20 28 6c 61 6d | b-restarts.restarts)...(map.(lam |
| ba840 | 62 64 61 20 28 72 29 20 0a 09 20 28 6c 69 73 74 20 28 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 | bda.(r)....(list.(symbol->string |
| ba860 | 20 28 72 65 73 74 61 72 74 2f 6e 61 6d 65 20 72 29 29 0a 09 20 20 20 20 20 20 20 28 77 69 74 68 | .(restart/name.r)).........(with |
| ba880 | 2d 73 74 72 69 6e 67 2d 6f 75 74 70 75 74 2d 70 6f 72 74 20 0a 09 09 28 6c 61 6d 62 64 61 20 28 | -string-output-port....(lambda.( |
| ba8a0 | 70 29 20 28 77 72 69 74 65 2d 72 65 73 74 61 72 74 2d 72 65 70 6f 72 74 20 72 20 70 29 29 29 29 | p).(write-restart-report.r.p)))) |
| ba8c0 | 29 0a 20 20 20 20 20 20 20 72 65 73 74 61 72 74 73 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 | )........restarts))..(define.(sw |
| ba8e0 | 61 6e 6b 3a 74 68 72 6f 77 2d 74 6f 2d 74 6f 70 6c 65 76 65 6c 20 2e 20 5f 29 0a 20 20 28 69 6e | ank:throw-to-toplevel..._)...(in |
| ba900 | 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 2a 74 6f 70 2d 6c 65 76 65 6c 2d 72 65 73 74 61 72 74 2a | voke-restart.*top-level-restart* |
| ba920 | 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 73 6c 64 62 2d 61 62 6f 72 74 20 2e 20 | ))..(define.(swank:sldb-abort... |
| ba940 | 5f 29 0a 20 20 28 61 62 6f 72 74 20 28 73 6c 64 62 2d 73 74 61 74 65 2e 72 65 73 74 61 72 74 73 | _)...(abort.(sldb-state.restarts |
| ba960 | 20 2a 73 6c 64 62 2d 73 74 61 74 65 2a 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b | .*sldb-state*)))..(define.(swank |
| ba980 | 3a 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 20 2e 20 5f 29 0a 20 20 28 63 6f 6e 74 69 6e 75 65 20 | :sldb-continue..._)...(continue. |
| ba9a0 | 28 73 6c 64 62 2d 73 74 61 74 65 2e 72 65 73 74 61 72 74 73 20 2a 73 6c 64 62 2d 73 74 61 74 65 | (sldb-state.restarts.*sldb-state |
| ba9c0 | 2a 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 69 6e 76 6f 6b 65 2d 6e 74 68 2d | *)))..(define.(swank:invoke-nth- |
| ba9e0 | 72 65 73 74 61 72 74 2d 66 6f 72 2d 65 6d 61 63 73 20 5f 20 5f 73 6c 64 62 2d 6c 65 76 65 6c 20 | restart-for-emacs._._sldb-level. |
| baa00 | 6e 29 0a 20 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 28 6c 69 73 74 2d 72 65 66 20 28 | n)...(invoke-restart.(list-ref.( |
| baa20 | 73 6c 64 62 2d 73 74 61 74 65 2e 72 65 73 74 61 72 74 73 20 2a 73 6c 64 62 2d 73 74 61 74 65 2a | sldb-state.restarts.*sldb-state* |
| baa40 | 29 20 6e 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 64 65 62 75 67 67 65 72 2d | ).n)))..(define.(swank:debugger- |
| baa60 | 69 6e 66 6f 2d 66 6f 72 2d 65 6d 61 63 73 20 5f 20 66 72 6f 6d 20 74 6f 29 0a 20 20 28 73 6c 64 | info-for-emacs._.from.to)...(sld |
| baa80 | 62 2d 69 6e 66 6f 20 2a 73 6c 64 62 2d 73 74 61 74 65 2a 20 66 72 6f 6d 20 74 6f 29 29 0a 0a 28 | b-info.*sldb-state*.from.to))..( |
| baaa0 | 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 62 61 63 6b 74 72 61 63 65 20 5f 20 66 72 6f 6d 20 74 | define.(swank:backtrace._.from.t |
| baac0 | 6f 29 0a 20 20 28 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 20 28 73 6c 64 62 2d 73 74 61 74 65 | o)...(sldb-backtrace.(sldb-state |
| baae0 | 2e 63 6f 6e 64 69 74 69 6f 6e 20 2a 73 6c 64 62 2d 73 74 61 74 65 2a 29 20 66 72 6f 6d 20 74 6f | .condition.*sldb-state*).from.to |
| bab00 | 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 20 63 6f 6e 64 | ))..(define.(sldb-backtrace.cond |
| bab20 | 69 74 69 6f 6e 20 66 72 6f 6d 20 74 6f 29 0a 20 20 28 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 | ition.from.to)...(sldb-backtrace |
| bab40 | 2d 61 75 78 20 28 63 6f 6e 64 69 74 69 6f 6e 2f 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 63 6f 6e | -aux.(condition/continuation.con |
| bab60 | 64 69 74 69 6f 6e 29 20 66 72 6f 6d 20 74 6f 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 6c 64 62 | dition).from.to))..(define.(sldb |
| bab80 | 2d 62 61 63 6b 74 72 61 63 65 2d 61 75 78 20 6b 20 66 72 6f 6d 20 74 6f 29 0a 20 20 28 6c 65 74 | -backtrace-aux.k.from.to)...(let |
| baba0 | 20 28 28 6c 20 28 6d 61 70 20 66 72 61 6d 65 3e 73 74 72 69 6e 67 20 28 73 75 62 73 74 72 65 61 | .((l.(map.frame>string.(substrea |
| babc0 | 6d 20 28 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 3e 66 72 61 6d 65 73 20 6b 29 20 66 72 6f 6d 20 74 | m.(continuation>frames.k).from.t |
| babe0 | 6f 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 69 20 66 72 6f 6d 29 20 28 6c | o)))).....(let.loop.((i.from).(l |
| bac00 | 20 6c 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 3f 20 6c 29 0a 09 20 20 27 28 29 0a | .l)).......(if.(null?.l)....'(). |
| bac20 | 09 20 20 28 63 6f 6e 73 20 28 6c 69 73 74 20 69 20 28 63 61 72 20 6c 29 29 20 28 6c 6f 6f 70 20 | ...(cons.(list.i.(car.l)).(loop. |
| bac40 | 28 31 2b 20 69 29 20 28 63 64 72 20 6c 29 29 29 29 29 29 29 0a 0a 3b 3b 20 53 74 61 63 6b 20 70 | (1+.i).(cdr.l)))))))..;;.Stack.p |
| bac60 | 61 72 73 65 72 20 66 61 69 6c 73 20 66 6f 72 20 74 68 69 73 3a 0a 3b 3b 20 28 6d 61 70 20 28 6c | arser.fails.for.this:.;;.(map.(l |
| bac80 | 61 6d 62 64 61 20 28 78 29 20 78 29 20 22 2f 74 6d 70 2f 78 2e 78 22 29 0a 0a 28 64 65 66 69 6e | ambda.(x).x)."/tmp/x.x")..(defin |
| baca0 | 65 20 28 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 3e 66 72 61 6d 65 73 20 6b 29 0a 20 20 28 6c 65 74 | e.(continuation>frames.k)...(let |
| bacc0 | 20 6c 6f 6f 70 20 28 28 66 72 61 6d 65 20 28 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 3e 73 74 61 | .loop.((frame.(continuation->sta |
| bace0 | 63 6b 2d 66 72 61 6d 65 20 6b 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 66 72 | ck-frame.k))).....(cond.((not.fr |
| bad00 | 61 6d 65 29 09 28 73 74 72 65 61 6d 29 29 0a 09 20 20 28 65 6c 73 65 0a 09 20 20 20 28 6c 65 74 | ame).(stream))....(else.....(let |
| bad20 | 20 28 28 6e 65 78 74 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 09 09 09 28 6c 61 6d 62 64 | .((next.(ignore-errors....(lambd |
| bad40 | 61 20 28 29 20 28 73 74 61 63 6b 2d 66 72 61 6d 65 2f 6e 65 78 74 2d 73 75 62 70 72 6f 62 6c 65 | a.().(stack-frame/next-subproble |
| bad60 | 6d 20 66 72 61 6d 65 29 29 29 29 29 0a 09 20 20 20 20 20 28 63 6f 6e 73 2d 73 74 72 65 61 6d 20 | m.frame))))).......(cons-stream. |
| bad80 | 66 72 61 6d 65 0a 09 09 09 20 20 28 69 66 20 28 63 6f 6e 64 69 74 69 6f 6e 3f 20 6e 65 78 74 29 | frame......(if.(condition?.next) |
| bada0 | 20 0a 09 09 09 20 20 20 20 20 20 28 73 74 72 65 61 6d 20 6e 65 78 74 29 20 0a 09 09 09 20 20 20 | ...........(stream.next)........ |
| badc0 | 20 20 20 28 6c 6f 6f 70 20 6e 65 78 74 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 | ...(loop.next))))))))..(define.( |
| bade0 | 66 72 61 6d 65 3e 73 74 72 69 6e 67 20 66 72 61 6d 65 29 0a 20 20 28 69 66 20 28 63 6f 6e 64 69 | frame>string.frame)...(if.(condi |
| bae00 | 74 69 6f 6e 3f 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 23 66 20 22 42 | tion?.frame).......(format.#f."B |
| bae20 | 6f 67 75 73 20 66 72 61 6d 65 3a 20 7e 61 20 7e 61 22 20 66 72 61 6d 65 0a 09 20 20 20 20 20 20 | ogus.frame:.~a.~a".frame........ |
| bae40 | 28 63 6f 6e 64 69 74 69 6f 6e 2f 72 65 70 6f 72 74 2d 73 74 72 69 6e 67 20 66 72 61 6d 65 29 29 | (condition/report-string.frame)) |
| bae60 | 0a 20 20 20 20 20 20 28 77 69 74 68 2d 73 74 72 69 6e 67 2d 6f 75 74 70 75 74 2d 70 6f 72 74 20 | .......(with-string-output-port. |
| bae80 | 28 6c 61 6d 62 64 61 20 28 70 29 20 28 70 72 69 6e 74 2d 66 72 61 6d 65 20 66 72 61 6d 65 20 70 | (lambda.(p).(print-frame.frame.p |
| baea0 | 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 69 6e 74 2d 66 72 61 6d 65 20 66 72 61 6d | )))))..(define.(print-frame.fram |
| baec0 | 65 20 70 6f 72 74 29 0a 20 20 28 64 65 66 69 6e 65 20 28 69 6e 76 61 6c 69 64 2d 73 75 62 65 78 | e.port)...(define.(invalid-subex |
| baee0 | 70 72 65 73 73 69 6f 6e 3f 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e 29 0a 20 20 20 20 28 6f 72 | pression?.subexpression).....(or |
| baf00 | 20 28 64 65 62 75 67 67 69 6e 67 2d 69 6e 66 6f 2f 75 6e 64 65 66 69 6e 65 64 2d 65 78 70 72 65 | .(debugging-info/undefined-expre |
| baf20 | 73 73 69 6f 6e 3f 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e 29 0a 09 28 64 65 62 75 67 67 69 6e | ssion?.subexpression)..(debuggin |
| baf40 | 67 2d 69 6e 66 6f 2f 75 6e 6b 6e 6f 77 6e 2d 65 78 70 72 65 73 73 69 6f 6e 3f 20 73 75 62 65 78 | g-info/unknown-expression?.subex |
| baf60 | 70 72 65 73 73 69 6f 6e 29 29 29 0a 20 20 28 64 65 66 69 6e 65 20 28 69 6e 76 61 6c 69 64 2d 65 | pression)))...(define.(invalid-e |
| baf80 | 78 70 72 65 73 73 69 6f 6e 3f 20 65 78 70 72 65 73 73 69 6f 6e 29 0a 20 20 20 20 28 6f 72 20 28 | xpression?.expression).....(or.( |
| bafa0 | 64 65 62 75 67 67 69 6e 67 2d 69 6e 66 6f 2f 75 6e 64 65 66 69 6e 65 64 2d 65 78 70 72 65 73 73 | debugging-info/undefined-express |
| bafc0 | 69 6f 6e 3f 20 65 78 70 72 65 73 73 69 6f 6e 29 0a 09 28 64 65 62 75 67 67 69 6e 67 2d 69 6e 66 | ion?.expression)..(debugging-inf |
| bafe0 | 6f 2f 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 3f 20 65 78 70 72 65 73 73 69 6f 6e 29 29 29 0a 20 | o/compiled-code?.expression))).. |
| bb000 | 20 28 77 69 74 68 2d 76 61 6c 75 65 73 20 28 6c 61 6d 62 64 61 20 28 29 20 28 73 74 61 63 6b 2d | .(with-values.(lambda.().(stack- |
| bb020 | 66 72 61 6d 65 2f 64 65 62 75 67 67 69 6e 67 2d 69 6e 66 6f 20 66 72 61 6d 65 29 29 0a 20 20 20 | frame/debugging-info.frame)).... |
| bb040 | 20 28 6c 61 6d 62 64 61 20 28 65 78 70 72 65 73 73 69 6f 6e 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 | .(lambda.(expression.environment |
| bb060 | 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 64 65 | .subexpression).......(cond.((de |
| bb080 | 62 75 67 67 69 6e 67 2d 69 6e 66 6f 2f 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 3f 20 65 78 70 72 | bugging-info/compiled-code?.expr |
| bb0a0 | 65 73 73 69 6f 6e 29 0a 09 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 22 3b 75 6e | ession).......(write-string.";un |
| bb0c0 | 6b 6e 6f 77 6e 20 63 6f 6d 70 69 6c 65 64 20 63 6f 64 65 22 20 70 6f 72 74 29 29 0a 09 20 20 20 | known.compiled.code".port))..... |
| bb0e0 | 20 28 28 6e 6f 74 20 28 64 65 62 75 67 67 69 6e 67 2d 69 6e 66 6f 2f 75 6e 64 65 66 69 6e 65 64 | .((not.(debugging-info/undefined |
| bb100 | 2d 65 78 70 72 65 73 73 69 6f 6e 3f 20 65 78 70 72 65 73 73 69 6f 6e 29 29 0a 09 20 20 20 20 20 | -expression?.expression))....... |
| bb120 | 28 66 6c 75 69 64 2d 6c 65 74 20 28 28 2a 75 6e 70 61 72 73 65 2d 70 72 69 6d 69 74 69 76 65 73 | (fluid-let.((*unparse-primitives |
| bb140 | 2d 62 79 2d 6e 61 6d 65 3f 2a 20 23 74 29 29 0a 09 20 20 20 20 20 20 20 28 77 72 69 74 65 0a 09 | -by-name?*.#t)).........(write.. |
| bb160 | 09 28 75 6e 73 79 6e 74 61 78 20 28 69 66 20 28 69 6e 76 61 6c 69 64 2d 73 75 62 65 78 70 72 65 | .(unsyntax.(if.(invalid-subexpre |
| bb180 | 73 73 69 6f 6e 3f 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e 29 0a 09 09 09 20 20 20 20 20 20 65 | ssion?.subexpression)..........e |
| bb1a0 | 78 70 72 65 73 73 69 6f 6e 0a 09 09 09 20 20 20 20 20 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e | xpression..........subexpression |
| bb1c0 | 29 29 0a 09 09 70 6f 72 74 29 29 29 0a 09 20 20 20 20 28 28 64 65 62 75 67 67 69 6e 67 2d 69 6e | ))...port)))......((debugging-in |
| bb1e0 | 66 6f 2f 6e 6f 69 73 65 3f 20 65 78 70 72 65 73 73 69 6f 6e 29 0a 09 20 20 20 20 20 28 77 72 69 | fo/noise?.expression).......(wri |
| bb200 | 74 65 2d 73 74 72 69 6e 67 20 22 3b 22 20 70 6f 72 74 29 0a 09 20 20 20 20 20 28 77 72 69 74 65 | te-string.";".port).......(write |
| bb220 | 2d 73 74 72 69 6e 67 20 28 28 64 65 62 75 67 67 69 6e 67 2d 69 6e 66 6f 2f 6e 6f 69 73 65 20 65 | -string.((debugging-info/noise.e |
| bb240 | 78 70 72 65 73 73 69 6f 6e 29 20 23 66 29 0a 09 09 09 20 20 20 70 6f 72 74 29 29 0a 09 20 20 20 | xpression).#f).......port))..... |
| bb260 | 20 28 65 6c 73 65 0a 09 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 22 3b 75 6e 64 | .(else.......(write-string.";und |
| bb280 | 65 66 69 6e 65 64 20 65 78 70 72 65 73 73 69 6f 6e 22 20 70 6f 72 74 29 29 29 29 29 29 0a 0a 28 | efined.expression".port))))))..( |
| bb2a0 | 64 65 66 69 6e 65 20 28 73 75 62 73 74 72 65 61 6d 20 73 20 66 72 6f 6d 20 74 6f 29 0a 20 20 28 | define.(substream.s.from.to)...( |
| bb2c0 | 6c 65 74 20 6c 6f 6f 70 20 28 28 69 20 30 29 20 28 6c 20 27 28 29 29 20 28 73 20 73 29 29 0a 20 | let.loop.((i.0).(l.'()).(s.s)).. |
| bb2e0 | 20 20 20 28 63 6f 6e 64 20 28 28 6f 72 20 28 3d 20 69 20 74 6f 29 20 28 73 74 72 65 61 6d 2d 6e | ...(cond.((or.(=.i.to).(stream-n |
| bb300 | 75 6c 6c 3f 20 73 29 29 20 28 72 65 76 65 72 73 65 20 6c 29 29 0a 09 20 20 28 28 3c 20 69 20 66 | ull?.s)).(reverse.l))....((<.i.f |
| bb320 | 72 6f 6d 29 20 28 6c 6f 6f 70 20 28 31 2b 20 69 29 20 6c 20 28 73 74 72 65 61 6d 2d 63 64 72 20 | rom).(loop.(1+.i).l.(stream-cdr. |
| bb340 | 73 29 29 29 0a 09 20 20 28 65 6c 73 65 20 28 6c 6f 6f 70 20 28 31 2b 20 69 29 20 28 63 6f 6e 73 | s)))....(else.(loop.(1+.i).(cons |
| bb360 | 20 28 73 74 72 65 61 6d 2d 63 61 72 20 73 29 20 6c 29 20 28 73 74 72 65 61 6d 2d 63 64 72 20 73 | .(stream-car.s).l).(stream-cdr.s |
| bb380 | 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 66 72 61 6d 65 2d 6c 6f 63 | ))))))..(define.(swank:frame-loc |
| bb3a0 | 61 6c 73 2d 61 6e 64 2d 63 61 74 63 68 2d 74 61 67 73 20 5f 20 66 72 61 6d 65 29 0a 20 20 28 6c | als-and-catch-tags._.frame)...(l |
| bb3c0 | 69 73 74 20 28 6d 61 70 20 66 72 61 6d 65 2d 76 61 72 3e 65 6c 69 73 70 20 28 66 72 61 6d 65 2d | ist.(map.frame-var>elisp.(frame- |
| bb3e0 | 76 61 72 73 20 28 73 6c 64 62 2d 67 65 74 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 29 29 0a 09 27 | vars.(sldb-get-frame.frame)))..' |
| bb400 | 28 29 29 29 0a 20 20 0a 28 64 65 66 69 6e 65 20 28 66 72 61 6d 65 2d 76 61 72 73 20 66 72 61 6d | ()))....(define.(frame-vars.fram |
| bb420 | 65 29 0a 20 20 28 77 69 74 68 2d 76 61 6c 75 65 73 20 28 6c 61 6d 62 64 61 20 28 29 20 28 73 74 | e)...(with-values.(lambda.().(st |
| bb440 | 61 63 6b 2d 66 72 61 6d 65 2f 64 65 62 75 67 67 69 6e 67 2d 69 6e 66 6f 20 66 72 61 6d 65 29 29 | ack-frame/debugging-info.frame)) |
| bb460 | 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 65 78 70 72 65 73 73 69 6f 6e 20 65 6e 76 69 72 6f 6e | .....(lambda.(expression.environ |
| bb480 | 6d 65 6e 74 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 | ment.subexpression).......(cond. |
| bb4a0 | 28 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 3f 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 09 20 20 20 | ((environment?.environment)..... |
| bb4c0 | 20 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 3e 66 72 61 6d 65 2d 76 61 72 73 20 65 6e 76 69 72 6f | ..(environment>frame-vars.enviro |
| bb4e0 | 6e 6d 65 6e 74 29 29 0a 09 20 20 20 20 28 65 6c 73 65 20 27 28 29 29 29 29 29 29 0a 0a 28 64 65 | nment))......(else.'())))))..(de |
| bb500 | 66 69 6e 65 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 3e 66 72 61 6d 65 2d 76 61 72 73 20 65 6e 76 | fine.(environment>frame-vars.env |
| bb520 | 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 65 20 65 6e 76 69 72 6f | ironment)...(let.loop.((e.enviro |
| bb540 | 6e 6d 65 6e 74 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d | nment)).....(cond.((environment- |
| bb560 | 3e 70 61 63 6b 61 67 65 20 65 29 20 27 28 29 29 0a 09 20 20 28 65 6c 73 65 20 28 61 70 70 65 6e | >package.e).'())....(else.(appen |
| bb580 | 64 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 62 69 6e 64 69 6e 67 73 20 65 29 0a 09 09 09 28 69 | d.(environment-bindings.e)....(i |
| bb5a0 | 66 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 68 61 73 2d 70 61 72 65 6e 74 3f 20 65 29 0a 09 09 | f.(environment-has-parent?.e)... |
| bb5c0 | 09 20 20 20 20 28 6c 6f 6f 70 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 70 61 72 65 6e 74 20 65 | .....(loop.(environment-parent.e |
| bb5e0 | 29 29 0a 09 09 09 20 20 20 20 27 28 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 66 72 | ))........'()))))))..(define.(fr |
| bb600 | 61 6d 65 2d 76 61 72 3e 65 6c 69 73 70 20 62 29 0a 20 20 28 6c 69 73 74 20 27 3a 6e 61 6d 65 20 | ame-var>elisp.b)...(list.':name. |
| bb620 | 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 63 61 72 20 62 29 29 0a 09 27 3a 76 61 6c | (write-to-string.(car.b))..':val |
| bb640 | 75 65 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 28 63 64 72 20 62 29 29 20 22 7b 75 6e 61 76 | ue.(cond.((null?.(cdr.b))."{unav |
| bb660 | 61 69 6c 61 62 6c 65 7d 22 29 0a 09 09 20 20 20 20 20 20 28 65 6c 73 65 20 28 3e 6c 69 6e 65 20 | ailable}").........(else.(>line. |
| bb680 | 28 63 61 64 72 20 62 29 29 29 29 0a 09 27 3a 69 64 20 30 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 | (cadr.b))))..':id.0))..(define.( |
| bb6a0 | 73 6c 64 62 2d 67 65 74 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 0a 20 20 28 73 74 72 65 61 6d 2d | sldb-get-frame.index)...(stream- |
| bb6c0 | 72 65 66 20 28 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 3e 66 72 61 6d 65 73 20 0a 09 20 20 20 20 20 | ref.(continuation>frames........ |
| bb6e0 | 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2f 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 0a 09 09 28 73 6c | ..(condition/continuation....(sl |
| bb700 | 64 62 2d 73 74 61 74 65 2e 63 6f 6e 64 69 74 69 6f 6e 20 2a 73 6c 64 62 2d 73 74 61 74 65 2a 29 | db-state.condition.*sldb-state*) |
| bb720 | 29 29 0a 09 20 20 20 20 20 20 69 6e 64 65 78 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 66 72 61 6d | ))........index))..(define.(fram |
| bb740 | 65 2d 76 61 72 2d 76 61 6c 75 65 20 66 72 61 6d 65 20 76 61 72 29 0a 20 20 28 6c 65 74 20 28 28 | e-var-value.frame.var)...(let.(( |
| bb760 | 62 69 6e 64 69 6e 67 20 28 6c 69 73 74 2d 72 65 66 20 28 66 72 61 6d 65 2d 76 61 72 73 20 66 72 | binding.(list-ref.(frame-vars.fr |
| bb780 | 61 6d 65 29 20 76 61 72 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 63 64 72 20 62 69 6e 64 | ame).var))).....(cond.((cdr.bind |
| bb7a0 | 69 6e 67 29 20 28 63 61 64 72 20 62 69 6e 64 69 6e 67 29 29 0a 09 20 20 28 65 6c 73 65 20 75 6e | ing).(cadr.binding))....(else.un |
| bb7c0 | 73 70 65 63 69 66 69 63 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 69 6e 73 | specific))))..(define.(swank:ins |
| bb7e0 | 70 65 63 74 2d 66 72 61 6d 65 2d 76 61 72 20 5f 20 66 72 61 6d 65 20 76 61 72 29 0a 20 20 28 72 | pect-frame-var._.frame.var)...(r |
| bb800 | 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 | eset-inspector)...(inspect-objec |
| bb820 | 74 20 28 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 73 6c 64 62 2d 67 65 74 2d 66 72 61 | t.(frame-var-value.(sldb-get-fra |
| bb840 | 6d 65 20 66 72 61 6d 65 29 20 76 61 72 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 6f 6d 70 6c 65 74 | me.frame).var)))....;;;;.Complet |
| bb860 | 69 6f 6e 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c | ion..(define.(swank:simple-compl |
| bb880 | 65 74 69 6f 6e 73 20 5f 20 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 29 0a 20 20 28 6c 65 74 20 | etions._.string.package)...(let. |
| bb8a0 | 28 28 73 74 72 69 6e 67 73 20 28 61 6c 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 73 74 72 69 6e | ((strings.(all-completions.strin |
| bb8c0 | 67 20 28 75 73 65 72 2d 65 6e 76 20 70 61 63 6b 61 67 65 29 20 73 74 72 69 6e 67 2d 70 72 65 66 | g.(user-env.package).string-pref |
| bb8e0 | 69 78 3f 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 28 73 6f 72 74 20 73 74 72 69 6e 67 73 20 73 | ix?))).....(list.(sort.strings.s |
| bb900 | 74 72 69 6e 67 3c 3f 29 0a 09 20 20 28 6c 6f 6e 67 65 73 74 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 | tring<?)....(longest-common-pref |
| bb920 | 69 78 20 73 74 72 69 6e 67 73 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 61 6c 6c 2d 63 6f 6d | ix.strings))))..(define.(all-com |
| bb940 | 70 6c 65 74 69 6f 6e 73 20 70 61 74 74 65 72 6e 20 65 6e 76 20 6d 61 74 63 68 3f 29 0a 20 20 28 | pletions.pattern.env.match?)...( |
| bb960 | 6c 65 74 20 28 28 73 73 20 28 6d 61 70 20 25 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 20 28 65 | let.((ss.(map.%symbol->string.(e |
| bb980 | 6e 76 69 72 6f 6e 6d 65 6e 74 2d 6e 61 6d 65 73 20 65 6e 76 29 29 29 29 0a 20 20 20 20 28 6b 65 | nvironment-names.env)))).....(ke |
| bb9a0 | 65 70 2d 6d 61 74 63 68 69 6e 67 2d 69 74 65 6d 73 20 73 73 20 28 6c 61 6d 62 64 61 20 28 73 29 | ep-matching-items.ss.(lambda.(s) |
| bb9c0 | 20 28 6d 61 74 63 68 3f 20 70 61 74 74 65 72 6e 20 73 29 29 29 29 29 0a 0a 3b 3b 20 73 79 6d 62 | .(match?.pattern.s)))))..;;.symb |
| bb9e0 | 6f 6c 2d 3e 73 74 72 69 6e 67 20 69 73 20 74 6f 6f 20 73 6c 6f 77 0a 28 64 65 66 69 6e 65 20 25 | ol->string.is.too.slow.(define.% |
| bba00 | 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 0a 28 64 65 | symbol->string.symbol-name)..(de |
| bba20 | 66 69 6e 65 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 6e 61 6d 65 73 20 65 6e 76 29 0a 20 20 28 | fine.(environment-names.env)...( |
| bba40 | 61 70 70 65 6e 64 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 62 6f 75 6e 64 2d 6e 61 6d 65 73 20 | append.(environment-bound-names. |
| bba60 | 65 6e 76 29 0a 09 20 20 28 69 66 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 68 61 73 2d 70 61 72 | env)....(if.(environment-has-par |
| bba80 | 65 6e 74 3f 20 65 6e 76 29 0a 09 20 20 20 20 20 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 6e 61 | ent?.env)........(environment-na |
| bbaa0 | 6d 65 73 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 70 61 72 65 6e 74 20 65 6e 76 29 29 0a 09 20 | mes.(environment-parent.env))... |
| bbac0 | 20 20 20 20 20 27 28 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6c 6f 6e 67 65 73 74 2d 63 6f | .....'())))..(define.(longest-co |
| bbae0 | 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 73 74 72 69 6e 67 73 29 0a 20 20 28 64 65 66 69 6e 65 20 28 | mmon-prefix.strings)...(define.( |
| bbb00 | 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 73 31 20 73 32 29 0a 20 20 20 20 28 73 75 62 73 74 72 | common-prefix.s1.s2).....(substr |
| bbb20 | 69 6e 67 20 73 31 20 30 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 66 6f 72 77 61 72 64 20 73 | ing.s1.0.(string-match-forward.s |
| bbb40 | 31 20 73 32 29 29 29 0a 20 20 28 72 65 64 75 63 65 20 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 | 1.s2)))...(reduce.common-prefix. |
| bbb60 | 22 22 20 73 74 72 69 6e 67 73 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 41 70 72 6f 70 6f 73 0a 0a 28 64 | "".strings))....;;;;.Apropos..(d |
| bbb80 | 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 61 70 72 6f 70 6f 73 2d 6c 69 73 74 2d 66 6f 72 2d 65 6d | efine.(swank:apropos-list-for-em |
| bbba0 | 61 63 73 20 5f 20 6e 61 6d 65 20 23 21 6f 70 74 69 6f 6e 61 6c 20 0a 09 09 09 09 20 20 20 20 20 | acs._.name.#!optional........... |
| bbbc0 | 20 65 78 74 65 72 6e 61 6c 2d 6f 6e 6c 79 20 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 20 70 61 | .external-only.case-sensitive.pa |
| bbbe0 | 63 6b 61 67 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 6b 67 20 28 61 6e 64 20 28 73 74 72 69 6e | ckage)...(let*.((pkg.(and.(strin |
| bbc00 | 67 3f 20 70 61 63 6b 61 67 65 29 0a 09 09 20 20 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 28 | g?.package)......(find-package.( |
| bbc20 | 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 29 29 29 29 0a 09 20 28 | read-from-string.package))))...( |
| bbc40 | 70 61 72 65 6e 74 20 28 61 6e 64 20 28 6e 6f 74 20 28 64 65 66 61 75 6c 74 2d 6f 62 6a 65 63 74 | parent.(and.(not.(default-object |
| bbc60 | 3f 20 65 78 74 65 72 6e 61 6c 2d 6f 6e 6c 79 29 29 0a 09 09 20 20 20 20 20 20 28 65 6c 69 73 70 | ?.external-only)).........(elisp |
| bbc80 | 2d 66 61 6c 73 65 3f 20 65 78 74 65 72 6e 61 6c 2d 6f 6e 6c 79 29 29 29 0a 09 20 28 73 73 20 20 | -false?.external-only)))...(ss.. |
| bbca0 | 28 61 70 70 65 6e 64 2d 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 70 29 0a 09 09 09 20 20 20 20 28 | (append-map.(lambda.(p)........( |
| bbcc0 | 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 73 29 20 28 63 6f 6e 73 20 70 20 73 29 29 0a 09 09 09 09 | map.(lambda.(s).(cons.p.s))..... |
| bbce0 | 20 28 61 70 72 6f 70 6f 73 2d 6c 69 73 74 20 6e 61 6d 65 20 70 20 28 61 6e 64 20 70 6b 67 20 70 | .(apropos-list.name.p.(and.pkg.p |
| bbd00 | 61 72 65 6e 74 29 29 29 29 0a 09 09 09 20 20 28 69 66 20 70 6b 67 20 28 6c 69 73 74 20 70 6b 67 | arent))))......(if.pkg.(list.pkg |
| bbd20 | 29 20 28 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 29 29 29 0a 09 20 28 73 73 20 28 73 75 62 6c 69 | ).(all-packages))))...(ss.(subli |
| bbd40 | 73 74 20 73 73 20 30 20 28 6d 69 6e 20 28 6c 65 6e 67 74 68 20 73 73 29 20 32 30 30 29 29 29 29 | st.ss.0.(min.(length.ss).200)))) |
| bbd60 | 0a 20 20 20 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 65 29 0a 09 20 20 20 28 6c 65 74 20 28 | .....(map.(lambda.(e).....(let.( |
| bbd80 | 28 70 20 28 63 61 72 20 65 29 29 20 28 73 20 28 63 64 72 20 65 29 29 29 0a 09 20 20 20 20 20 28 | (p.(car.e)).(s.(cdr.e))).......( |
| bbda0 | 6c 69 73 74 20 27 3a 64 65 73 69 67 6e 61 74 6f 72 20 28 66 6f 72 6d 61 74 20 23 66 20 22 7e 61 | list.':designator.(format.#f."~a |
| bbdc0 | 20 7e 61 22 20 73 20 28 70 61 63 6b 61 67 65 2f 6e 61 6d 65 20 70 29 29 0a 09 09 20 20 20 27 3a | .~a".s.(package/name.p))......': |
| bbde0 | 76 61 72 69 61 62 6c 65 20 28 3e 6c 69 6e 65 0a 09 09 09 20 20 20 20 20 20 20 28 69 67 6e 6f 72 | variable.(>line...........(ignor |
| bbe00 | 65 2d 65 72 72 6f 72 73 0a 09 09 09 09 28 6c 61 6d 62 64 61 20 28 29 20 28 70 61 63 6b 61 67 65 | e-errors.....(lambda.().(package |
| bbe20 | 2d 6c 6f 6f 6b 75 70 20 70 20 73 29 29 29 29 29 29 29 0a 09 20 73 73 29 29 29 0a 0a 28 64 65 66 | -lookup.p.s)))))))...ss)))..(def |
| bbe40 | 69 6e 65 20 28 73 77 61 6e 6b 3a 6c 69 73 74 2d 61 6c 6c 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 | ine.(swank:list-all-package-name |
| bbe60 | 73 20 2e 20 5f 29 0a 20 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 70 29 20 28 77 72 69 74 65 | s..._)...(map.(lambda.(p).(write |
| bbe80 | 2d 74 6f 2d 73 74 72 69 6e 67 20 28 70 61 63 6b 61 67 65 2f 6e 61 6d 65 20 70 29 29 29 0a 20 20 | -to-string.(package/name.p)))... |
| bbea0 | 20 20 20 20 20 28 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 | .....(all-packages)))..(define.( |
| bbec0 | 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 0a 20 20 28 64 65 66 69 6e 65 20 28 70 61 63 6b 61 67 65 | all-packages)...(define.(package |
| bbee0 | 2d 61 6e 64 2d 63 68 69 6c 64 72 65 6e 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 28 61 70 70 65 | -and-children.package).....(appe |
| bbf00 | 6e 64 20 28 6c 69 73 74 20 70 61 63 6b 61 67 65 29 0a 09 20 20 20 20 28 61 70 70 65 6e 64 2d 6d | nd.(list.package)......(append-m |
| bbf20 | 61 70 20 70 61 63 6b 61 67 65 2d 61 6e 64 2d 63 68 69 6c 64 72 65 6e 20 28 70 61 63 6b 61 67 65 | ap.package-and-children.(package |
| bbf40 | 2f 63 68 69 6c 64 72 65 6e 20 70 61 63 6b 61 67 65 29 29 29 29 0a 20 20 28 70 61 63 6b 61 67 65 | /children.package))))...(package |
| bbf60 | 2d 61 6e 64 2d 63 68 69 6c 64 72 65 6e 20 73 79 73 74 65 6d 2d 67 6c 6f 62 61 6c 2d 70 61 63 6b | -and-children.system-global-pack |
| bbf80 | 61 67 65 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 74 6f 72 0a 0a 28 64 65 66 69 6e 65 | age))....;;;;.Inspector..(define |
| bbfa0 | 2d 73 74 72 75 63 74 75 72 65 20 28 69 6e 73 70 65 63 74 6f 72 2d 73 74 61 74 65 20 28 63 6f 6e | -structure.(inspector-state.(con |
| bbfc0 | 63 2d 6e 61 6d 65 20 69 73 74 61 74 65 2e 29 29 0a 20 20 6f 62 6a 65 63 74 20 70 61 72 74 73 20 | c-name.istate.))...object.parts. |
| bbfe0 | 6e 65 78 74 20 70 72 65 76 69 6f 75 73 20 63 6f 6e 74 65 6e 74 29 0a 0a 28 64 65 66 69 6e 65 20 | next.previous.content)..(define. |
| bc000 | 69 73 74 61 74 65 20 23 66 29 0a 0a 28 64 65 66 69 6e 65 20 28 72 65 73 65 74 2d 69 6e 73 70 65 | istate.#f)..(define.(reset-inspe |
| bc020 | 63 74 6f 72 29 0a 20 20 28 73 65 74 21 20 69 73 74 61 74 65 20 23 66 29 29 0a 0a 28 64 65 66 69 | ctor)...(set!.istate.#f))..(defi |
| bc040 | 6e 65 20 28 73 77 61 6e 6b 3a 69 6e 69 74 2d 69 6e 73 70 65 63 74 6f 72 20 5f 20 73 74 72 69 6e | ne.(swank:init-inspector._.strin |
| bc060 | 67 29 0a 20 20 28 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 28 69 6e 73 70 65 63 | g)...(reset-inspector)...(inspec |
| bc080 | 74 2d 6f 62 6a 65 63 74 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 | t-object.(eval.(read-from-string |
| bc0a0 | 20 73 74 72 69 6e 67 29 20 0a 09 09 09 28 75 73 65 72 2d 65 6e 76 20 2a 62 75 66 66 65 72 2d 70 | .string).....(user-env.*buffer-p |
| bc0c0 | 61 63 6b 61 67 65 2a 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 6e 73 70 65 63 74 2d 6f 62 | ackage*))))..(define.(inspect-ob |
| bc0e0 | 6a 65 63 74 20 6f 29 0a 20 20 28 6c 65 74 20 28 28 70 72 65 76 69 6f 75 73 20 69 73 74 61 74 65 | ject.o)...(let.((previous.istate |
| bc100 | 29 0a 09 28 63 6f 6e 74 65 6e 74 20 28 69 6e 73 70 65 63 74 20 6f 29 29 0a 09 28 70 61 72 74 73 | )..(content.(inspect.o))..(parts |
| bc120 | 20 28 6d 61 6b 65 2d 65 71 76 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 29 0a 20 20 20 20 28 73 65 | .(make-eqv-hash-table))).....(se |
| bc140 | 74 21 20 69 73 74 61 74 65 20 28 6d 61 6b 65 2d 69 6e 73 70 65 63 74 6f 72 2d 73 74 61 74 65 20 | t!.istate.(make-inspector-state. |
| bc160 | 6f 20 70 61 72 74 73 20 23 66 20 70 72 65 76 69 6f 75 73 20 63 6f 6e 74 65 6e 74 29 29 0a 20 20 | o.parts.#f.previous.content))... |
| bc180 | 20 20 28 69 66 20 70 72 65 76 69 6f 75 73 20 28 73 65 74 2d 69 73 74 61 74 65 2e 6e 65 78 74 21 | ..(if.previous.(set-istate.next! |
| bc1a0 | 20 70 72 65 76 69 6f 75 73 20 69 73 74 61 74 65 29 29 0a 20 20 20 20 28 69 73 74 61 74 65 3e 65 | .previous.istate)).....(istate>e |
| bc1c0 | 6c 69 73 70 20 69 73 74 61 74 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 73 74 61 74 65 3e | lisp.istate)))..(define.(istate> |
| bc1e0 | 65 6c 69 73 70 20 69 73 74 61 74 65 29 0a 20 20 28 6c 69 73 74 20 27 3a 74 69 74 6c 65 20 28 3e | elisp.istate)...(list.':title.(> |
| bc200 | 6c 69 6e 65 20 28 69 73 74 61 74 65 2e 6f 62 6a 65 63 74 20 69 73 74 61 74 65 29 29 0a 09 27 3a | line.(istate.object.istate))..': |
| bc220 | 69 64 20 28 61 73 73 69 67 6e 2d 69 6e 64 65 78 20 28 69 73 74 61 74 65 2e 6f 62 6a 65 63 74 20 | id.(assign-index.(istate.object. |
| bc240 | 69 73 74 61 74 65 29 20 28 69 73 74 61 74 65 2e 70 61 72 74 73 20 69 73 74 61 74 65 29 29 0a 09 | istate).(istate.parts.istate)).. |
| bc260 | 27 3a 63 6f 6e 74 65 6e 74 20 28 70 72 65 70 61 72 65 2d 72 61 6e 67 65 20 28 69 73 74 61 74 65 | ':content.(prepare-range.(istate |
| bc280 | 2e 70 61 72 74 73 20 69 73 74 61 74 65 29 0a 09 09 09 09 20 28 69 73 74 61 74 65 2e 63 6f 6e 74 | .parts.istate)......(istate.cont |
| bc2a0 | 65 6e 74 20 69 73 74 61 74 65 29 0a 09 09 09 09 20 30 20 35 30 30 29 29 29 0a 0a 28 64 65 66 69 | ent.istate)......0.500)))..(defi |
| bc2c0 | 6e 65 20 28 61 73 73 69 67 6e 2d 69 6e 64 65 78 20 6f 20 70 61 72 74 73 29 0a 20 20 28 6c 65 74 | ne.(assign-index.o.parts)...(let |
| bc2e0 | 20 28 28 69 20 28 68 61 73 68 2d 74 61 62 6c 65 2f 63 6f 75 6e 74 20 70 61 72 74 73 29 29 29 0a | .((i.(hash-table/count.parts))). |
| bc300 | 20 20 20 20 28 68 61 73 68 2d 74 61 62 6c 65 2f 70 75 74 21 20 70 61 72 74 73 20 69 20 6f 29 0a | ....(hash-table/put!.parts.i.o). |
| bc320 | 20 20 20 20 69 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 65 70 61 72 65 2d 72 61 6e 67 65 20 | ....i))..(define.(prepare-range. |
| bc340 | 70 61 72 74 73 20 63 6f 6e 74 65 6e 74 20 66 72 6f 6d 20 74 6f 29 0a 20 20 28 6c 65 74 2a 20 28 | parts.content.from.to)...(let*.( |
| bc360 | 28 63 73 20 28 73 75 62 73 74 72 65 61 6d 20 63 6f 6e 74 65 6e 74 20 66 72 6f 6d 20 74 6f 29 29 | (cs.(substream.content.from.to)) |
| bc380 | 0a 09 20 28 70 73 20 28 70 72 65 70 61 72 65 2d 70 61 72 74 73 20 63 73 20 70 61 72 74 73 29 29 | ...(ps.(prepare-parts.cs.parts)) |
| bc3a0 | 29 0a 20 20 20 20 28 6c 69 73 74 20 70 73 0a 09 20 20 28 69 66 20 28 3c 20 28 6c 65 6e 67 74 68 | ).....(list.ps....(if.(<.(length |
| bc3c0 | 20 63 73 29 20 28 2d 20 74 6f 20 66 72 6f 6d 29 29 0a 09 20 20 20 20 20 20 28 2b 20 66 72 6f 6d | .cs).(-.to.from))........(+.from |
| bc3e0 | 20 28 6c 65 6e 67 74 68 20 63 73 29 29 0a 09 20 20 20 20 20 20 28 2b 20 74 6f 20 31 30 30 30 29 | .(length.cs))........(+.to.1000) |
| bc400 | 29 0a 09 20 20 66 72 6f 6d 20 74 6f 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 65 70 61 72 | )....from.to)))..(define.(prepar |
| bc420 | 65 2d 70 61 72 74 73 20 70 73 20 70 61 72 74 73 29 0a 20 20 28 64 65 66 69 6e 65 20 28 6c 69 6e | e-parts.ps.parts)...(define.(lin |
| bc440 | 65 20 6c 61 62 65 6c 20 76 61 6c 75 65 29 0a 20 20 20 20 60 28 2c 28 66 6f 72 6d 61 74 20 23 66 | e.label.value).....`(,(format.#f |
| bc460 | 20 22 7e 61 3a 20 22 20 6c 61 62 65 6c 29 0a 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 3e | ."~a:.".label).......(:value.,(> |
| bc480 | 6c 69 6e 65 20 76 61 6c 75 65 29 20 2c 28 61 73 73 69 67 6e 2d 69 6e 64 65 78 20 76 61 6c 75 65 | line.value).,(assign-index.value |
| bc4a0 | 20 70 61 72 74 73 29 29 0a 20 20 20 20 20 20 22 5c 6e 22 29 29 0a 20 20 28 61 70 70 65 6e 64 2d | .parts))......."\n"))...(append- |
| bc4c0 | 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 70 29 0a 09 09 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 | map.(lambda.(p)...(cond.((string |
| bc4e0 | 3f 20 70 29 20 28 6c 69 73 74 20 70 29 29 0a 09 09 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 3f | ?.p).(list.p)).........((symbol? |
| bc500 | 20 70 29 20 28 6c 69 73 74 20 28 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 20 70 29 29 29 0a 09 | .p).(list.(symbol->string.p))).. |
| bc520 | 09 20 20 20 20 20 20 28 23 74 0a 09 09 20 20 20 20 20 20 20 28 63 61 73 65 20 28 63 61 72 20 70 | .......(#t..........(case.(car.p |
| bc540 | 29 0a 09 09 09 20 28 28 6c 69 6e 65 29 20 28 61 70 70 6c 79 20 6c 69 6e 65 20 28 63 64 72 20 70 | ).....((line).(apply.line.(cdr.p |
| bc560 | 29 29 29 0a 09 09 09 20 28 65 6c 73 65 20 28 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 70 61 | ))).....(else.(error."Invalid.pa |
| bc580 | 72 74 3a 22 20 70 29 29 29 29 29 29 0a 09 20 20 20 20 20 20 70 73 29 29 0a 0a 28 64 65 66 69 6e | rt:".p))))))........ps))..(defin |
| bc5a0 | 65 20 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 2d 6e 74 68 2d 70 61 72 74 20 5f 20 69 6e 64 65 | e.(swank:inspect-nth-part._.inde |
| bc5c0 | 78 29 0a 20 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 68 61 73 68 2d 74 61 62 6c 65 | x)...(inspect-object.(hash-table |
| bc5e0 | 2f 67 65 74 20 28 69 73 74 61 74 65 2e 70 61 72 74 73 20 69 73 74 61 74 65 29 20 69 6e 64 65 78 | /get.(istate.parts.istate).index |
| bc600 | 20 27 6e 6f 2d 73 75 63 68 2d 70 61 72 74 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e | .'no-such-part)))..(define.(swan |
| bc620 | 6b 3a 71 75 69 74 2d 69 6e 73 70 65 63 74 6f 72 20 5f 29 0a 20 20 28 72 65 73 65 74 2d 69 6e 73 | k:quit-inspector._)...(reset-ins |
| bc640 | 70 65 63 74 6f 72 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 | pector))..(define.(swank:inspect |
| bc660 | 6f 72 2d 70 6f 70 20 5f 29 0a 20 20 28 63 6f 6e 64 20 28 28 69 73 74 61 74 65 2e 70 72 65 76 69 | or-pop._)...(cond.((istate.previ |
| bc680 | 6f 75 73 20 69 73 74 61 74 65 29 0a 09 20 28 73 65 74 21 20 69 73 74 61 74 65 20 28 69 73 74 61 | ous.istate)...(set!.istate.(ista |
| bc6a0 | 74 65 2e 70 72 65 76 69 6f 75 73 20 69 73 74 61 74 65 29 29 0a 09 20 28 69 73 74 61 74 65 3e 65 | te.previous.istate))...(istate>e |
| bc6c0 | 6c 69 73 70 20 69 73 74 61 74 65 29 29 0a 09 28 65 6c 73 65 20 27 6e 69 6c 29 29 29 0a 0a 28 64 | lisp.istate))..(else.'nil)))..(d |
| bc6e0 | 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 20 5f 29 0a 20 | efine.(swank:inspector-next._).. |
| bc700 | 20 28 63 6f 6e 64 20 28 28 69 73 74 61 74 65 2e 6e 65 78 74 20 69 73 74 61 74 65 29 0a 09 20 28 | .(cond.((istate.next.istate)...( |
| bc720 | 73 65 74 21 20 69 73 74 61 74 65 20 28 69 73 74 61 74 65 2e 6e 65 78 74 20 69 73 74 61 74 65 29 | set!.istate.(istate.next.istate) |
| bc740 | 29 0a 09 20 28 69 73 74 61 74 65 3e 65 6c 69 73 70 20 69 73 74 61 74 65 29 29 0a 09 28 65 6c 73 | )...(istate>elisp.istate))..(els |
| bc760 | 65 20 27 6e 69 6c 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 | e.'nil)))..(define.(swank:inspec |
| bc780 | 74 6f 72 2d 72 61 6e 67 65 20 5f 20 66 72 6f 6d 20 74 6f 29 0a 20 20 28 70 72 65 70 61 72 65 2d | tor-range._.from.to)...(prepare- |
| bc7a0 | 72 61 6e 67 65 20 28 69 73 74 61 74 65 2e 70 61 72 74 73 20 69 73 74 61 74 65 29 0a 09 09 20 28 | range.(istate.parts.istate)....( |
| bc7c0 | 69 73 74 61 74 65 2e 63 6f 6e 74 65 6e 74 20 69 73 74 61 74 65 29 0a 09 09 20 66 72 6f 6d 20 74 | istate.content.istate)....from.t |
| bc7e0 | 6f 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 73 74 72 65 61 6d 2a 0a 20 20 28 73 | o))..(define-syntax.stream*...(s |
| bc800 | 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 20 20 28 28 73 74 72 65 61 6d 2a 20 74 61 69 | yntax-rules.().....((stream*.tai |
| bc820 | 6c 29 20 74 61 69 6c 29 0a 20 20 20 20 28 28 73 74 72 65 61 6d 2a 20 65 31 20 65 32 20 2e 2e 2e | l).tail).....((stream*.e1.e2.... |
| bc840 | 29 20 28 63 6f 6e 73 2d 73 74 72 65 61 6d 20 65 31 20 28 73 74 72 65 61 6d 2a 20 65 32 20 2e 2e | ).(cons-stream.e1.(stream*.e2... |
| bc860 | 2e 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 6c 69 6e 65 20 6c 61 62 65 6c 20 76 61 6c | .)))))..(define.(iline.label.val |
| bc880 | 75 65 29 20 60 28 6c 69 6e 65 20 2c 6c 61 62 65 6c 20 2c 76 61 6c 75 65 29 29 0a 0a 28 64 65 66 | ue).`(line.,label.,value))..(def |
| bc8a0 | 69 6e 65 2d 67 65 6e 65 72 69 63 20 69 6e 73 70 65 63 74 20 28 6f 29 29 0a 0a 28 64 65 66 69 6e | ine-generic.inspect.(o))..(defin |
| bc8c0 | 65 2d 6d 65 74 68 6f 64 20 69 6e 73 70 65 63 74 20 28 28 6f 20 3c 6f 62 6a 65 63 74 3e 29 29 0a | e-method.inspect.((o.<object>)). |
| bc8e0 | 20 20 28 63 6f 6e 64 20 28 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 3f 20 6f 29 20 28 69 6e 73 70 65 | ..(cond.((environment?.o).(inspe |
| bc900 | 63 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 6f 29 29 0a 09 28 28 76 65 63 74 6f 72 3f 20 6f 29 | ct-environment.o))..((vector?.o) |
| bc920 | 20 28 69 6e 73 70 65 63 74 2d 76 65 63 74 6f 72 20 6f 29 29 0a 09 28 28 70 72 6f 63 65 64 75 72 | .(inspect-vector.o))..((procedur |
| bc940 | 65 3f 20 6f 29 20 28 69 6e 73 70 65 63 74 2d 70 72 6f 63 65 64 75 72 65 20 6f 29 29 0a 09 28 28 | e?.o).(inspect-procedure.o))..(( |
| bc960 | 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 2d 62 6c 6f 63 6b 3f 20 6f 29 20 28 69 6e 73 70 65 63 74 | compiled-code-block?.o).(inspect |
| bc980 | 2d 63 6f 64 65 2d 62 6c 6f 63 6b 20 6f 29 29 0a 09 3b 3b 28 28 73 79 73 74 65 6d 2d 70 61 69 72 | -code-block.o))..;;((system-pair |
| bc9a0 | 3f 20 6f 29 20 28 69 6e 73 70 65 63 74 2d 73 79 73 74 65 6d 2d 70 61 69 72 20 6f 29 29 0a 09 28 | ?.o).(inspect-system-pair.o))..( |
| bc9c0 | 28 70 72 6f 62 61 62 6c 79 2d 73 63 6f 64 65 3f 20 6f 29 20 28 69 6e 73 70 65 63 74 2d 73 63 6f | (probably-scode?.o).(inspect-sco |
| bc9e0 | 64 65 20 6f 29 29 0a 09 28 65 6c 73 65 20 28 69 6e 73 70 65 63 74 2d 66 61 6c 6c 62 61 63 6b 20 | de.o))..(else.(inspect-fallback. |
| bca00 | 6f 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 6e 73 70 65 63 74 2d 66 61 6c 6c 62 61 63 6b | o))))..(define.(inspect-fallback |
| bca20 | 20 6f 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6c 61 73 73 20 28 6f 62 6a 65 63 74 2d 63 6c 61 73 | .o)...(let*.((class.(object-clas |
| bca40 | 73 20 6f 29 29 0a 09 20 28 73 6c 6f 74 73 20 28 63 6c 61 73 73 2d 73 6c 6f 74 73 20 63 6c 61 73 | s.o))...(slots.(class-slots.clas |
| bca60 | 73 29 29 29 0a 20 20 20 20 28 73 74 72 65 61 6d 2a 0a 20 20 20 20 20 28 69 6c 69 6e 65 20 22 43 | s))).....(stream*......(iline."C |
| bca80 | 6c 61 73 73 22 20 63 6c 61 73 73 29 0a 20 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 73 6c | lass".class)......(let.loop.((sl |
| bcaa0 | 6f 74 73 20 73 6c 6f 74 73 29 29 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f | ots.slots))........(cond.((null? |
| bcac0 | 20 73 6c 6f 74 73 29 20 28 73 74 72 65 61 6d 29 29 0a 09 20 20 20 20 20 28 65 6c 73 65 0a 09 20 | .slots).(stream)).......(else... |
| bcae0 | 20 20 20 20 20 28 6c 65 74 20 28 28 6e 20 28 73 6c 6f 74 2d 6e 61 6d 65 20 28 63 61 72 20 73 6c | .....(let.((n.(slot-name.(car.sl |
| bcb00 | 6f 74 73 29 29 29 29 0a 09 09 28 73 74 72 65 61 6d 2a 20 28 69 6c 69 6e 65 20 6e 20 28 73 6c 6f | ots))))...(stream*.(iline.n.(slo |
| bcb20 | 74 2d 76 61 6c 75 65 20 6f 20 6e 29 29 0a 09 09 09 20 28 6c 6f 6f 70 20 28 63 64 72 20 73 6c 6f | t-value.o.n)).....(loop.(cdr.slo |
| bcb40 | 74 73 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 65 74 68 6f 64 20 69 6e 73 | ts))))))))))..(define-method.ins |
| bcb60 | 70 65 63 74 20 28 28 6f 20 3c 70 61 69 72 3e 29 29 0a 20 20 28 69 66 20 28 6f 72 20 28 70 61 69 | pect.((o.<pair>))...(if.(or.(pai |
| bcb80 | 72 3f 20 28 63 64 72 20 6f 29 29 20 28 6e 75 6c 6c 3f 20 28 63 64 72 20 6f 29 29 29 0a 20 20 20 | r?.(cdr.o)).(null?.(cdr.o))).... |
| bcba0 | 20 20 20 28 69 6e 73 70 65 63 74 2d 6c 69 73 74 20 6f 29 0a 20 20 20 20 20 20 28 69 6e 73 70 65 | ...(inspect-list.o).......(inspe |
| bcbc0 | 63 74 2d 63 6f 6e 73 20 6f 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 6e 73 70 65 63 74 2d 63 | ct-cons.o)))..(define.(inspect-c |
| bcbe0 | 6f 6e 73 20 6f 29 0a 20 20 28 73 74 72 65 61 6d 20 28 69 6c 69 6e 65 20 22 63 61 72 22 20 28 63 | ons.o)...(stream.(iline."car".(c |
| bcc00 | 61 72 20 6f 29 29 0a 09 20 20 28 69 6c 69 6e 65 20 22 63 64 72 22 20 28 63 64 72 20 6f 29 29 29 | ar.o))....(iline."cdr".(cdr.o))) |
| bcc20 | 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 6e 73 70 65 63 74 2d 6c 69 73 74 20 6f 29 0a 20 20 28 6c | )..(define.(inspect-list.o)...(l |
| bcc40 | 65 74 20 6c 6f 6f 70 20 28 28 69 20 30 29 20 28 6f 20 6f 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | et.loop.((i.0).(o.o)).....(cond. |
| bcc60 | 28 28 6e 75 6c 6c 3f 20 6f 29 20 28 73 74 72 65 61 6d 29 29 0a 09 20 20 28 28 6f 72 20 28 70 61 | ((null?.o).(stream))....((or.(pa |
| bcc80 | 69 72 3f 20 28 63 64 72 20 6f 29 29 20 28 6e 75 6c 6c 3f 20 28 63 64 72 20 6f 29 29 29 0a 09 20 | ir?.(cdr.o)).(null?.(cdr.o)))... |
| bcca0 | 20 20 28 73 74 72 65 61 6d 2a 20 28 69 6c 69 6e 65 20 69 20 28 63 61 72 20 6f 29 29 0a 09 09 20 | ..(stream*.(iline.i.(car.o)).... |
| bccc0 | 20 20 20 28 6c 6f 6f 70 20 28 31 2b 20 69 29 20 28 63 64 72 20 6f 29 29 29 29 0a 09 20 20 28 65 | ...(loop.(1+.i).(cdr.o))))....(e |
| bcce0 | 6c 73 65 20 0a 09 20 20 20 28 73 74 72 65 61 6d 20 28 69 6c 69 6e 65 20 69 20 28 63 61 72 20 6f | lse......(stream.(iline.i.(car.o |
| bcd00 | 29 29 0a 09 09 20 20 20 28 69 6c 69 6e 65 20 22 74 61 69 6c 22 20 28 63 64 72 20 6f 29 29 29 29 | ))......(iline."tail".(cdr.o)))) |
| bcd20 | 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 6e 73 70 65 63 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e | )))..(define.(inspect-environmen |
| bcd40 | 74 20 6f 29 0a 20 20 28 73 74 72 65 61 6d 2a 0a 20 20 20 28 69 6c 69 6e 65 20 22 28 70 61 63 6b | t.o)...(stream*....(iline."(pack |
| bcd60 | 61 67 65 29 22 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 3e 70 61 63 6b 61 67 65 20 6f 29 29 0a | age)".(environment->package.o)). |
| bcd80 | 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 62 73 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 62 | ...(let.loop.((bs.(environment-b |
| bcda0 | 69 6e 64 69 6e 67 73 20 6f 29 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 | indings.o)))......(cond.((null?. |
| bcdc0 | 62 73 29 0a 09 20 20 20 20 28 69 66 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 68 61 73 2d 70 61 | bs)......(if.(environment-has-pa |
| bcde0 | 72 65 6e 74 3f 20 6f 29 20 0a 09 09 28 73 74 72 65 61 6d 20 28 69 6c 69 6e 65 20 22 28 3c 70 61 | rent?.o)....(stream.(iline."(<pa |
| bce00 | 72 65 6e 74 3e 29 22 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 70 61 72 65 6e 74 20 6f 29 29 29 | rent>)".(environment-parent.o))) |
| bce20 | 0a 09 09 28 73 74 72 65 61 6d 29 29 29 0a 09 20 20 20 28 65 6c 73 65 20 0a 09 20 20 20 20 28 6c | ...(stream))).....(else.......(l |
| bce40 | 65 74 2a 20 28 28 62 20 28 63 61 72 20 62 73 29 29 20 28 73 20 28 63 61 72 20 62 29 29 29 0a 09 | et*.((b.(car.bs)).(s.(car.b))).. |
| bce60 | 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 28 63 64 72 20 62 29 29 0a 09 09 20 | ......(cond.((null?.(cdr.b)).... |
| bce80 | 20 20 20 20 28 73 74 72 65 61 6d 2a 20 73 20 22 20 7b 22 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 | ....(stream*.s.".{".(environment |
| bcea0 | 2d 72 65 66 65 72 65 6e 63 65 2d 74 79 70 65 20 6f 20 73 29 20 22 7d 5c 6e 22 0a 09 09 09 20 20 | -reference-type.o.s)."}\n"...... |
| bcec0 | 20 20 20 20 28 6c 6f 6f 70 20 28 63 64 72 20 62 73 29 29 29 29 0a 09 09 20 20 20 20 28 65 6c 73 | ....(loop.(cdr.bs)))).......(els |
| bcee0 | 65 20 0a 09 09 20 20 20 20 20 28 73 74 72 65 61 6d 2a 20 28 69 6c 69 6e 65 20 73 20 28 63 61 64 | e.........(stream*.(iline.s.(cad |
| bcf00 | 72 20 62 29 29 0a 09 09 09 20 20 20 20 20 20 28 6c 6f 6f 70 20 28 63 64 72 20 62 73 29 29 29 29 | r.b))..........(loop.(cdr.bs)))) |
| bcf20 | 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 6e 73 70 65 63 74 2d 76 65 63 74 6f 72 | )))))))..(define.(inspect-vector |
| bcf40 | 20 6f 29 0a 20 20 28 6c 65 74 20 28 28 6c 65 6e 20 28 76 65 63 74 6f 72 2d 6c 65 6e 67 74 68 20 | .o)...(let.((len.(vector-length. |
| bcf60 | 6f 29 29 29 0a 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 69 20 30 29 29 0a 20 20 20 20 20 | o))).....(let.loop.((i.0))...... |
| bcf80 | 20 28 63 6f 6e 64 20 28 28 3d 20 69 20 6c 65 6e 29 20 28 73 74 72 65 61 6d 29 29 0a 09 20 20 20 | .(cond.((=.i.len).(stream))..... |
| bcfa0 | 20 28 65 6c 73 65 20 28 73 74 72 65 61 6d 2a 20 28 69 6c 69 6e 65 20 69 20 28 76 65 63 74 6f 72 | .(else.(stream*.(iline.i.(vector |
| bcfc0 | 2d 72 65 66 20 6f 20 69 29 29 0a 09 09 09 20 20 20 28 6c 6f 6f 70 20 28 31 2b 20 69 29 29 29 29 | -ref.o.i)).......(loop.(1+.i)))) |
| bcfe0 | 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 6e 73 70 65 63 74 2d 70 72 6f 63 65 64 75 72 65 | ))))..(define.(inspect-procedure |
| bd000 | 20 6f 29 0a 20 20 28 63 6f 6e 64 20 28 28 70 72 69 6d 69 74 69 76 65 2d 70 72 6f 63 65 64 75 72 | .o)...(cond.((primitive-procedur |
| bd020 | 65 3f 20 6f 29 0a 09 20 28 73 74 72 65 61 6d 20 28 69 6c 69 6e 65 20 22 6e 61 6d 65 22 20 28 70 | e?.o)...(stream.(iline."name".(p |
| bd040 | 72 69 6d 69 74 69 76 65 2d 70 72 6f 63 65 64 75 72 65 2d 6e 61 6d 65 20 6f 29 29 0a 09 09 20 28 | rimitive-procedure-name.o))....( |
| bd060 | 69 6c 69 6e 65 20 22 61 72 69 74 79 22 20 28 70 72 69 6d 69 74 69 76 65 2d 70 72 6f 63 65 64 75 | iline."arity".(primitive-procedu |
| bd080 | 72 65 2d 61 72 69 74 79 20 6f 29 29 0a 09 09 20 28 69 6c 69 6e 65 20 22 64 6f 63 22 20 28 70 72 | re-arity.o))....(iline."doc".(pr |
| bd0a0 | 69 6d 69 74 69 76 65 2d 70 72 6f 63 65 64 75 72 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 | imitive-procedure-documentation. |
| bd0c0 | 6f 29 29 29 29 0a 09 28 28 63 6f 6d 70 6f 75 6e 64 2d 70 72 6f 63 65 64 75 72 65 3f 20 6f 29 0a | o))))..((compound-procedure?.o). |
| bd0e0 | 09 20 28 73 74 72 65 61 6d 20 28 69 6c 69 6e 65 20 22 61 72 69 74 79 22 20 28 70 72 6f 63 65 64 | ..(stream.(iline."arity".(proced |
| bd100 | 75 72 65 2d 61 72 69 74 79 20 6f 29 29 0a 09 09 20 28 69 6c 69 6e 65 20 22 6c 61 6d 62 64 61 22 | ure-arity.o))....(iline."lambda" |
| bd120 | 20 28 70 72 6f 63 65 64 75 72 65 2d 6c 61 6d 62 64 61 20 6f 29 29 0a 09 09 20 28 69 6c 69 6e 65 | .(procedure-lambda.o))....(iline |
| bd140 | 20 22 65 6e 76 22 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 09 09 09 20 20 20 20 20 20 20 | ."env".(ignore-errors........... |
| bd160 | 28 6c 61 6d 62 64 61 20 28 29 20 28 70 72 6f 63 65 64 75 72 65 2d 65 6e 76 69 72 6f 6e 6d 65 6e | (lambda.().(procedure-environmen |
| bd180 | 74 20 6f 29 29 29 29 29 29 0a 09 28 65 6c 73 65 0a 09 20 28 73 74 72 65 61 6d 0a 09 20 20 28 69 | t.o))))))..(else...(stream....(i |
| bd1a0 | 6c 69 6e 65 20 22 62 6c 6f 63 6b 22 20 28 63 6f 6d 70 69 6c 65 64 2d 65 6e 74 72 79 2f 62 6c 6f | line."block".(compiled-entry/blo |
| bd1c0 | 63 6b 20 6f 29 29 0a 09 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 | ck.o))....(with-output-to-string |
| bd1e0 | 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 6f 6d 70 69 6c 65 72 3a 64 69 73 61 73 73 65 6d 62 6c | .(lambda.().(compiler:disassembl |
| bd200 | 65 20 6f 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 6e 73 70 65 63 74 2d 63 6f 64 | e.o)))))))..(define.(inspect-cod |
| bd220 | 65 2d 62 6c 6f 63 6b 20 6f 29 0a 20 20 28 73 74 72 65 61 6d 2d 61 70 70 65 6e 64 0a 20 20 20 28 | e-block.o)...(stream-append....( |
| bd240 | 6c 65 74 20 6c 6f 6f 70 20 28 28 69 20 28 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 2d 62 6c 6f 63 | let.loop.((i.(compiled-code-bloc |
| bd260 | 6b 2f 63 6f 6e 73 74 61 6e 74 73 2d 73 74 61 72 74 20 6f 29 29 29 0a 20 20 20 20 20 28 63 6f 6e | k/constants-start.o)))......(con |
| bd280 | 64 20 28 28 3e 3d 20 69 20 28 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 2d 62 6c 6f 63 6b 2f 63 6f | d.((>=.i.(compiled-code-block/co |
| bd2a0 | 6e 73 74 61 6e 74 73 2d 65 6e 64 20 6f 29 29 20 28 73 74 72 65 61 6d 29 29 0a 09 20 20 20 28 65 | nstants-end.o)).(stream)).....(e |
| bd2c0 | 6c 73 65 20 0a 09 20 20 20 20 28 73 74 72 65 61 6d 2a 20 0a 09 20 20 20 20 20 28 69 6c 69 6e 65 | lse.......(stream*........(iline |
| bd2e0 | 20 69 20 28 73 79 73 74 65 6d 2d 76 65 63 74 6f 72 2d 72 65 66 20 6f 20 69 29 29 0a 09 20 20 20 | .i.(system-vector-ref.o.i))..... |
| bd300 | 20 20 28 6c 6f 6f 70 20 28 2b 20 69 20 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 2d 62 6c 6f 63 6b | ..(loop.(+.i.compiled-code-block |
| bd320 | 2f 62 79 74 65 73 2d 70 65 72 2d 6f 62 6a 65 63 74 29 29 29 29 29 29 0a 20 20 20 28 73 74 72 65 | /bytes-per-object))))))....(stre |
| bd340 | 61 6d 20 28 69 6c 69 6e 65 20 22 64 65 62 75 67 69 6e 66 6f 22 20 28 63 6f 6d 70 69 6c 65 64 2d | am.(iline."debuginfo".(compiled- |
| bd360 | 63 6f 64 65 2d 62 6c 6f 63 6b 2f 64 65 62 75 67 67 69 6e 67 2d 69 6e 66 6f 20 6f 29 29 0a 09 20 | code-block/debugging-info.o))... |
| bd380 | 20 20 28 69 6c 69 6e 65 20 22 65 6e 76 22 20 28 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 2d 62 6c | ..(iline."env".(compiled-code-bl |
| bd3a0 | 6f 63 6b 2f 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 6f 29 29 0a 09 20 20 20 28 77 69 74 68 2d 6f 75 | ock/environment.o)).....(with-ou |
| bd3c0 | 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 6f 6d 70 69 | tput-to-string.(lambda.().(compi |
| bd3e0 | 6c 65 72 3a 64 69 73 61 73 73 65 6d 62 6c 65 20 6f 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 | ler:disassemble.o))))))..(define |
| bd400 | 20 28 69 6e 73 70 65 63 74 2d 73 63 6f 64 65 20 6f 29 0a 20 20 28 73 74 72 65 61 6d 20 28 70 70 | .(inspect-scode.o)...(stream.(pp |
| bd420 | 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 | rint-to-string.o)))..(define.(pr |
| bd440 | 6f 62 61 62 6c 79 2d 73 63 6f 64 65 3f 20 6f 29 0a 20 20 28 64 65 66 69 6e 65 20 74 65 73 74 73 | obably-scode?.o)...(define.tests |
| bd460 | 20 28 6c 69 73 74 20 61 63 63 65 73 73 3f 20 61 73 73 69 67 6e 6d 65 6e 74 3f 20 63 6f 6d 62 69 | .(list.access?.assignment?.combi |
| bd480 | 6e 61 74 69 6f 6e 3f 20 63 6f 6d 6d 65 6e 74 3f 0a 09 09 20 20 20 20 20 20 63 6f 6e 64 69 74 69 | nation?.comment?.........conditi |
| bd4a0 | 6f 6e 61 6c 3f 20 64 65 66 69 6e 69 74 69 6f 6e 3f 20 64 65 6c 61 79 3f 20 64 69 73 6a 75 6e 63 | onal?.definition?.delay?.disjunc |
| bd4c0 | 74 69 6f 6e 3f 20 6c 61 6d 62 64 61 3f 0a 09 09 20 20 20 20 20 20 71 75 6f 74 61 74 69 6f 6e 3f | tion?.lambda?.........quotation? |
| bd4e0 | 20 73 65 71 75 65 6e 63 65 3f 20 74 68 65 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 3f 20 76 61 72 69 | .sequence?.the-environment?.vari |
| bd500 | 61 62 6c 65 3f 29 29 0a 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 74 65 73 74 73 20 74 65 73 74 | able?))...(let.loop.((tests.test |
| bd520 | 73 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 74 65 73 74 73 29 20 23 66 29 | s)).....(cond.((null?.tests).#f) |
| bd540 | 0a 09 20 20 28 28 28 63 61 72 20 74 65 73 74 73 29 20 6f 29 29 0a 09 20 20 28 65 6c 73 65 20 28 | ....(((car.tests).o))....(else.( |
| bd560 | 6c 6f 6f 70 20 28 63 64 72 20 74 65 73 74 73 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 | loop.(cdr.tests))))))..(define.( |
| bd580 | 69 6e 73 70 65 63 74 2d 73 79 73 74 65 6d 2d 70 61 69 72 20 6f 29 0a 20 20 28 73 74 72 65 61 6d | inspect-system-pair.o)...(stream |
| bd5a0 | 20 28 69 6c 69 6e 65 20 22 63 61 72 22 20 28 73 79 73 74 65 6d 2d 70 61 69 72 2d 63 61 72 20 6f | .(iline."car".(system-pair-car.o |
| bd5c0 | 29 29 0a 09 20 20 28 69 6c 69 6e 65 20 22 63 64 72 22 20 28 73 79 73 74 65 6d 2d 70 61 69 72 2d | ))....(iline."cdr".(system-pair- |
| bd5e0 | 63 64 72 20 6f 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 41 75 78 69 6c 61 72 79 20 66 75 6e 63 74 | cdr.o))))....;;;;.Auxilary.funct |
| bd600 | 69 6f 6e 73 0a 0a 28 64 65 66 69 6e 65 20 6e 69 6c 20 27 28 29 29 0a 28 64 65 66 69 6e 65 20 74 | ions..(define.nil.'()).(define.t |
| bd620 | 20 27 74 29 0a 28 64 65 66 69 6e 65 20 28 65 6c 69 73 70 2d 66 61 6c 73 65 3f 20 6f 29 20 28 6d | .'t).(define.(elisp-false?.o).(m |
| bd640 | 65 6d 62 65 72 20 6f 20 27 28 6e 69 6c 20 28 29 29 29 29 0a 28 64 65 66 69 6e 65 20 28 65 6c 69 | ember.o.'(nil.()))).(define.(eli |
| bd660 | 73 70 2d 74 72 75 65 3f 20 6f 29 20 28 6e 6f 74 20 28 65 6c 69 73 70 2d 66 61 6c 73 65 3f 20 6f | sp-true?.o).(not.(elisp-false?.o |
| bd680 | 29 29 29 0a 28 64 65 66 69 6e 65 20 28 3e 6c 69 6e 65 20 6f 29 20 0a 20 20 28 6c 65 74 20 28 28 | ))).(define.(>line.o)....(let.(( |
| bd6a0 | 72 20 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 20 31 30 30 29 29 29 0a 20 20 20 20 | r.(write-to-string.o.100)))..... |
| bd6c0 | 28 63 6f 6e 64 20 28 28 6e 6f 74 20 28 63 61 72 20 72 29 29 20 28 63 64 72 20 72 29 29 0a 09 20 | (cond.((not.(car.r)).(cdr.r))... |
| bd6e0 | 20 28 65 6c 73 65 20 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 28 63 64 72 20 72 29 20 22 20 | .(else.(string-append.(cdr.r).". |
| bd700 | 2e 2e 22 29 29 29 29 29 0a 3b 3b 20 4d 75 73 74 20 63 6f 6d 70 69 6c 65 20 3e 6c 69 6e 65 20 6f | .."))))).;;.Must.compile.>line.o |
| bd720 | 74 68 65 72 77 69 73 65 20 77 65 20 63 61 6e 27 74 20 77 72 69 74 65 20 75 6e 61 73 73 69 67 65 | therwise.we.can't.write.unassige |
| bd740 | 6e 64 2d 72 65 66 65 72 65 6e 63 65 2d 74 72 61 70 73 2e 0a 28 73 65 74 21 20 3e 6c 69 6e 65 20 | nd-reference-traps..(set!.>line. |
| bd760 | 28 63 6f 6d 70 69 6c 65 2d 70 72 6f 63 65 64 75 72 65 20 3e 6c 69 6e 65 29 29 0a 28 64 65 66 69 | (compile-procedure.>line)).(defi |
| bd780 | 6e 65 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 29 20 28 77 69 74 68 2d 69 6e | ne.(read-from-string.s).(with-in |
| bd7a0 | 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 20 72 65 61 64 29 29 0a 28 64 65 66 69 6e 65 | put-from-string.s.read)).(define |
| bd7c0 | 20 28 70 70 72 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 29 20 0a 20 20 28 77 69 74 68 2d 73 | .(pprint-to-string.o)....(with-s |
| bd7e0 | 74 72 69 6e 67 2d 6f 75 74 70 75 74 2d 70 6f 72 74 20 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 | tring-output-port........(lambda |
| bd800 | 20 28 70 29 0a 09 28 66 6c 75 69 64 2d 6c 65 74 20 28 28 2a 75 6e 70 61 72 73 65 72 2d 6c 69 73 | .(p)..(fluid-let.((*unparser-lis |
| bd820 | 74 2d 62 72 65 61 64 74 68 2d 6c 69 6d 69 74 2a 20 31 30 29 0a 09 09 20 20 20 20 28 2a 75 6e 70 | t-breadth-limit*.10).......(*unp |
| bd840 | 61 72 73 65 72 2d 6c 69 73 74 2d 64 65 70 74 68 2d 6c 69 6d 69 74 2a 20 34 29 0a 09 09 20 20 20 | arser-list-depth-limit*.4)...... |
| bd860 | 20 28 2a 75 6e 70 61 72 73 65 72 2d 73 74 72 69 6e 67 2d 6c 65 6e 67 74 68 2d 6c 69 6d 69 74 2a | .(*unparser-string-length-limit* |
| bd880 | 20 31 30 30 29 29 0a 09 20 20 28 70 70 20 6f 20 70 29 29 29 29 29 0a 3b 28 64 65 66 69 6e 65 20 | .100))....(pp.o.p))))).;(define. |
| bd8a0 | 28 31 2b 20 6e 29 20 28 2b 20 6e 20 31 29 29 0a 28 64 65 66 69 6e 65 20 28 31 2d 20 6e 29 20 28 | (1+.n).(+.n.1)).(define.(1-.n).( |
| bd8c0 | 2d 20 6e 20 31 29 29 0a 28 64 65 66 69 6e 65 20 28 70 61 63 6b 61 67 65 2d 6c 6f 6f 6b 75 70 20 | -.n.1)).(define.(package-lookup. |
| bd8e0 | 70 61 63 6b 61 67 65 20 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 70 20 28 69 66 20 28 70 61 | package.name)...(let.((p.(if.(pa |
| bd900 | 63 6b 61 67 65 3f 20 70 61 63 6b 61 67 65 29 20 70 61 63 6b 61 67 65 20 28 66 69 6e 64 2d 70 61 | ckage?.package).package.(find-pa |
| bd920 | 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 29 29 0a 20 20 20 20 28 65 6e 76 69 72 6f 6e 6d 65 | ckage.package)))).....(environme |
| bd940 | 6e 74 2d 6c 6f 6f 6b 75 70 20 28 70 61 63 6b 61 67 65 2f 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 70 | nt-lookup.(package/environment.p |
| bd960 | 29 20 6e 61 6d 65 29 29 29 0a 28 64 65 66 69 6e 65 20 6c 6f 67 2d 70 6f 72 74 20 28 63 75 72 72 | ).name))).(define.log-port.(curr |
| bd980 | 65 6e 74 2d 6f 75 74 70 75 74 2d 70 6f 72 74 29 29 0a 28 64 65 66 69 6e 65 20 28 6c 6f 67 2d 65 | ent-output-port)).(define.(log-e |
| bd9a0 | 76 65 6e 74 20 66 73 74 72 69 6e 67 20 2e 20 61 72 67 73 29 0a 20 20 3b 3b 28 61 70 70 6c 79 20 | vent.fstring...args)...;;(apply. |
| bd9c0 | 66 6f 72 6d 61 74 20 6c 6f 67 2d 70 6f 72 74 20 66 73 74 72 69 6e 67 20 61 72 67 73 29 0a 20 20 | format.log-port.fstring.args)... |
| bd9e0 | 23 66 0a 20 20 29 0a 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 6d 69 74 2d 73 63 68 65 6d 65 2e 73 63 6d | #f...)..;;;.swank-mit-scheme.scm |
| bda00 | 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ends.here...................... |
| bda20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bda40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bda60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bda80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdaa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdb00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdb20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdc00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 | slime-2.31/contrib/slime-enclosi |
| bdc20 | 6e 67 2d 63 6f 6e 74 65 78 74 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ng-context.el................... |
| bdc40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdc60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| bdc80 | 30 30 32 33 31 36 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 37 35 34 00 20 30 00 00 00 | 0023167.00000000000.017754..0... |
| bdca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdcc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdd00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| bdd20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| bdd40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdd60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdd80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bddc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bde00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 | (require.'slime).(require.'slime |
| bde20 | 2d 70 61 72 73 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 69 | -parse).(require.'cl-lib)..(defi |
| bde40 | 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 | ne-slime-contrib.slime-enclosing |
| bde60 | 2d 63 6f 6e 74 65 78 74 0a 20 20 22 55 74 69 6c 69 74 69 65 73 20 6f 6e 20 74 6f 70 20 6f 66 20 | -context..."Utilities.on.top.of. |
| bde80 | 73 6c 69 6d 65 2d 70 61 72 73 65 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 54 6f 62 69 61 | slime-parse."...(:authors."Tobia |
| bdea0 | 73 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 73 2e 64 65 | s.C..Rittweiler.<tcr@freebits.de |
| bdec0 | 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 29 0a 0a 28 64 65 66 75 6e 20 | >")...(:license."GPL"))..(defun. |
| bdee0 | 73 6c 69 6d 65 2d 70 61 72 73 65 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 20 28 26 6f 70 74 69 | slime-parse-sexp-at-point.(&opti |
| bdf00 | 6f 6e 61 6c 20 6e 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 68 65 20 73 65 78 70 73 20 61 74 20 | onal.n)..."Returns.the.sexps.at. |
| bdf20 | 70 6f 69 6e 74 20 61 73 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 2c 20 6f 74 68 65 | point.as.a.list.of.strings,.othe |
| bdf40 | 72 77 69 73 65 20 6e 69 6c 2e 0a 5c 28 49 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 74 20 61 73 | rwise.nil..\(If.there.are.not.as |
| bdf60 | 20 6d 61 6e 79 20 73 65 78 70 73 20 61 73 20 4e 2c 20 61 20 6c 69 73 74 20 77 69 74 68 20 3c 20 | .many.sexps.as.N,.a.list.with.<. |
| bdf80 | 4e 20 73 65 78 70 73 20 69 73 0a 72 65 74 75 72 6e 65 64 2e 5c 29 0a 49 66 20 53 4b 49 50 2d 42 | N.sexps.is.returned.\).If.SKIP-B |
| bdfa0 | 4c 41 4e 4b 53 2d 50 20 69 73 20 74 72 75 65 2c 20 6c 65 61 64 69 6e 67 20 77 68 69 74 65 73 70 | LANKS-P.is.true,.leading.whitesp |
| bdfc0 | 61 63 65 73 20 26 63 20 61 72 65 20 73 6b 69 70 70 65 64 2e 0a 22 0a 20 20 28 69 6e 74 65 72 61 | aces.&c.are.skipped.."...(intera |
| bdfe0 | 63 74 69 76 65 20 22 70 22 29 20 28 6f 72 20 6e 20 28 73 65 74 71 20 6e 20 31 29 29 0a 20 20 28 | ctive."p").(or.n.(setq.n.1))...( |
| be000 | 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 | save-excursion.....(let.((result |
| be020 | 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 6e 29 0a 20 20 20 20 | .nil)).......(dotimes.(i.n)..... |
| be040 | 20 20 20 20 3b 3b 20 49 73 20 74 68 65 72 65 20 61 6e 20 61 64 64 69 74 69 6f 6e 61 6c 20 73 65 | ....;;.Is.there.an.additional.se |
| be060 | 78 70 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 75 73 3f 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 | xp.in.front.of.us?.........(save |
| be080 | 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 73 6c | -excursion...........(unless.(sl |
| be0a0 | 69 6d 65 2d 70 6f 69 6e 74 2d 6d 6f 76 65 73 2d 70 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 | ime-point-moves-p.(ignore-errors |
| be0c0 | 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | .(forward-sexp))).............(c |
| be0e0 | 6c 2d 72 65 74 75 72 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 73 6c 69 6d 65 | l-return))).........(push.(slime |
| be100 | 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 | -sexp-at-point).result)......... |
| be120 | 3b 3b 20 53 6b 69 70 20 63 75 72 72 65 6e 74 20 73 65 78 70 0a 20 20 20 20 20 20 20 20 28 69 67 | ;;.Skip.current.sexp.........(ig |
| be140 | 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 20 28 73 6b 69 70 | nore-errors.(forward-sexp).(skip |
| be160 | 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 5b 3a 73 70 61 63 65 3a 5d 22 29 29 29 0a 20 20 | -chars-forward."[:space:]")))... |
| be180 | 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 72 65 73 75 6c 74 29 29 29 29 0a 0a 28 64 65 66 75 6e | ....(nreverse.result))))..(defun |
| be1a0 | 20 73 6c 69 6d 65 2d 68 61 73 2d 73 79 6d 62 6f 6c 2d 73 79 6e 74 61 78 2d 70 20 28 73 74 72 69 | .slime-has-symbol-syntax-p.(stri |
| be1c0 | 6e 67 29 0a 20 20 28 69 66 20 28 61 6e 64 20 73 74 72 69 6e 67 20 28 6e 6f 74 20 28 7a 65 72 6f | ng)...(if.(and.string.(not.(zero |
| be1e0 | 70 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 28 6d 65 6d 62 | p.(length.string)))).......(memb |
| be200 | 65 72 20 28 63 68 61 72 2d 73 79 6e 74 61 78 20 28 61 72 65 66 20 73 74 72 69 6e 67 20 30 29 29 | er.(char-syntax.(aref.string.0)) |
| be220 | 0a 20 27 28 3f 77 20 3f 5f 20 3f 5c 27 20 3f 5c 5c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | ..'(?w.?_.?\'.?\\))))..(defun.sl |
| be240 | 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 73 74 72 69 6e 67 20 28 29 0a 20 20 28 6c 65 | ime-beginning-of-string.()...(le |
| be260 | 74 2a 20 28 28 70 61 72 73 65 72 2d 73 74 61 74 65 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 | t*.((parser-state.(slime-current |
| be280 | 2d 70 61 72 73 65 72 2d 73 74 61 74 65 29 29 0a 09 20 28 69 6e 73 69 64 65 2d 73 74 72 69 6e 67 | -parser-state))...(inside-string |
| be2a0 | 2d 70 20 20 28 6e 74 68 20 33 20 70 61 72 73 65 72 2d 73 74 61 74 65 29 29 0a 09 20 28 73 74 72 | -p..(nth.3.parser-state))...(str |
| be2c0 | 69 6e 67 2d 73 74 61 72 74 2d 70 6f 73 20 28 6e 74 68 20 38 20 70 61 72 73 65 72 2d 73 74 61 74 | ing-start-pos.(nth.8.parser-stat |
| be2e0 | 65 29 29 29 0a 20 20 20 20 28 69 66 20 69 6e 73 69 64 65 2d 73 74 72 69 6e 67 2d 70 0a 20 20 20 | e))).....(if.inside-string-p.... |
| be300 | 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 72 69 6e 67 2d 73 74 61 72 74 2d 70 6f 73 | .....(goto-char.string-start-pos |
| be320 | 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 57 65 27 72 65 20 6e 6f 74 20 77 69 74 68 69 6e | ).......(error."We're.not.within |
| be340 | 20 61 20 73 74 72 69 6e 67 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 6e 63 | .a.string"))))..(defun.slime-enc |
| be360 | 6c 6f 73 69 6e 67 2d 66 6f 72 6d 2d 73 70 65 63 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d 61 78 | losing-form-specs.(&optional.max |
| be380 | 2d 6c 65 76 65 6c 73 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 60 | -levels)..."Return.the.list.of.` |
| be3a0 | 60 72 61 77 20 66 6f 72 6d 20 73 70 65 63 73 27 27 20 6f 66 20 61 6c 6c 20 74 68 65 20 66 6f 72 | `raw.form.specs''.of.all.the.for |
| be3c0 | 6d 73 0a 63 6f 6e 74 61 69 6e 69 6e 67 20 70 6f 69 6e 74 20 66 72 6f 6d 20 72 69 67 68 74 20 74 | ms.containing.point.from.right.t |
| be3e0 | 6f 20 6c 65 66 74 2e 0a 0a 41 73 20 61 20 73 65 63 6f 6e 64 61 72 79 20 76 61 6c 75 65 2c 20 72 | o.left...As.a.secondary.value,.r |
| be400 | 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 69 6e 64 69 63 65 73 3a 20 45 61 63 68 20 69 6e | eturn.a.list.of.indices:.Each.in |
| be420 | 64 65 78 20 74 65 6c 6c 73 0a 66 6f 72 20 65 61 63 68 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 | dex.tells.for.each.corresponding |
| be440 | 20 66 6f 72 6d 20 73 70 65 63 20 69 6e 20 77 68 61 74 20 61 72 67 75 6d 65 6e 74 20 70 6f 73 69 | .form.spec.in.what.argument.posi |
| be460 | 74 69 6f 6e 20 74 68 65 0a 75 73 65 72 27 73 20 70 6f 69 6e 74 20 69 73 2e 0a 0a 41 73 20 74 65 | tion.the.user's.point.is...As.te |
| be480 | 72 74 69 61 72 79 20 76 61 6c 75 65 2c 20 72 65 74 75 72 6e 20 74 68 65 20 70 6f 73 69 74 69 6f | rtiary.value,.return.the.positio |
| be4a0 | 6e 73 20 6f 66 20 74 68 65 20 6f 70 65 72 61 74 6f 72 73 20 74 68 61 74 20 61 72 65 0a 63 6f 6e | ns.of.the.operators.that.are.con |
| be4c0 | 74 61 69 6e 65 64 20 69 6e 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 66 6f 72 6d 20 73 70 65 63 | tained.in.the.returned.form.spec |
| be4e0 | 73 2e 0a 0a 57 68 65 6e 20 4d 41 58 2d 4c 45 56 45 4c 53 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 | s...When.MAX-LEVELS.is.non-nil,. |
| be500 | 67 6f 20 75 70 20 61 74 20 6d 6f 73 74 20 74 68 69 73 20 6d 61 6e 79 20 6c 65 76 65 6c 73 20 6f | go.up.at.most.this.many.levels.o |
| be520 | 66 0a 70 61 72 65 6e 73 2e 0a 0a 5c 28 53 65 65 20 53 57 41 4e 4b 3a 3a 50 41 52 53 45 2d 46 4f | f.parens...\(See.SWANK::PARSE-FO |
| be540 | 52 4d 2d 53 50 45 43 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f | RM-SPEC.for.more.information.abo |
| be560 | 75 74 20 77 68 61 74 0a 65 78 61 63 74 6c 79 20 63 6f 6e 73 74 69 74 75 74 65 73 20 61 20 60 60 | ut.what.exactly.constitutes.a.`` |
| be580 | 72 61 77 20 66 6f 72 6d 20 73 70 65 63 73 27 27 29 0a 0a 45 78 61 6d 70 6c 65 73 3a 0a 0a 20 20 | raw.form.specs'')..Examples:.... |
| be5a0 | 41 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 6c 69 6b 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e | A.return.value.like.the.followin |
| be5c0 | 67 0a 0a 20 20 20 20 28 76 61 6c 75 65 73 20 20 28 28 5c 22 71 75 75 78 5c 22 29 20 28 5c 22 62 | g......(values..((\"quux\").(\"b |
| be5e0 | 61 72 5c 22 29 20 28 5c 22 66 6f 6f 5c 22 29 29 20 28 33 20 32 20 31 29 20 28 70 31 20 70 32 20 | ar\").(\"foo\")).(3.2.1).(p1.p2. |
| be600 | 70 33 29 29 0a 0a 20 20 63 61 6e 20 62 65 20 69 6e 74 65 72 70 72 65 74 65 64 20 61 73 20 66 6f | p3))....can.be.interpreted.as.fo |
| be620 | 6c 6c 6f 77 73 3a 0a 0a 20 20 20 20 54 68 65 20 75 73 65 72 20 70 6f 69 6e 74 20 69 73 20 6c 6f | llows:......The.user.point.is.lo |
| be640 | 63 61 74 65 64 20 69 6e 20 74 68 65 20 33 72 64 20 61 72 67 75 6d 65 6e 74 20 70 6f 73 69 74 69 | cated.in.the.3rd.argument.positi |
| be660 | 6f 6e 20 6f 66 20 61 0a 20 20 20 20 66 6f 72 6d 20 77 69 74 68 20 74 68 65 20 6f 70 65 72 61 74 | on.of.a.....form.with.the.operat |
| be680 | 6f 72 20 6e 61 6d 65 20 5c 22 71 75 75 78 5c 22 20 28 77 68 69 63 68 20 73 74 61 72 74 73 20 61 | or.name.\"quux\".(which.starts.a |
| be6a0 | 74 20 50 31 2e 29 0a 0a 20 20 20 20 54 68 69 73 20 66 6f 72 6d 20 69 73 20 6c 6f 63 61 74 65 64 | t.P1.)......This.form.is.located |
| be6c0 | 20 69 6e 20 74 68 65 20 32 6e 64 20 61 72 67 75 6d 65 6e 74 20 70 6f 73 69 74 69 6f 6e 20 6f 66 | .in.the.2nd.argument.position.of |
| be6e0 | 20 61 20 66 6f 72 6d 0a 20 20 20 20 77 69 74 68 20 74 68 65 20 6f 70 65 72 61 74 6f 72 20 6e 61 | .a.form.....with.the.operator.na |
| be700 | 6d 65 20 5c 22 62 61 72 5c 22 20 28 77 68 69 63 68 20 73 74 61 72 74 73 20 61 74 20 50 32 2e 29 | me.\"bar\".(which.starts.at.P2.) |
| be720 | 0a 0a 20 20 20 20 54 68 69 73 20 66 6f 72 6d 20 61 67 61 69 6e 20 69 73 20 69 6e 20 74 68 65 20 | ......This.form.again.is.in.the. |
| be740 | 31 73 74 20 61 72 67 75 6d 65 6e 74 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 61 20 66 6f 72 6d 0a | 1st.argument.position.of.a.form. |
| be760 | 20 20 20 20 77 69 74 68 20 74 68 65 20 6f 70 65 72 61 74 6f 72 20 6e 61 6d 65 20 5c 22 66 6f 6f | ....with.the.operator.name.\"foo |
| be780 | 5c 22 20 28 77 68 69 63 68 20 69 74 73 65 6c 66 20 62 65 67 69 6e 73 20 61 74 20 50 33 2e 29 0a | \".(which.itself.begins.at.P3.). |
| be7a0 | 0a 20 20 46 6f 72 20 69 6e 73 74 61 6e 63 65 2c 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 | ...For.instance,.the.correspondi |
| be7c0 | 6e 67 20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 20 63 6f 75 6c 64 20 68 61 76 65 20 6c 6f 6f | ng.buffer.content.could.have.loo |
| be7e0 | 6b 65 64 0a 20 20 6c 69 6b 65 20 60 28 66 6f 6f 20 28 62 61 72 20 61 72 67 31 20 28 71 75 75 78 | ked...like.`(foo.(bar.arg1.(quux |
| be800 | 20 31 20 32 20 7c 27 20 77 68 65 72 65 20 60 7c 27 20 64 65 6e 6f 74 65 73 20 70 6f 69 6e 74 2e | .1.2.|'.where.`|'.denotes.point. |
| be820 | 0a 22 0a 20 20 28 6c 65 74 20 28 28 6c 65 76 65 6c 20 31 29 0a 20 20 20 20 20 20 20 20 28 70 61 | ."...(let.((level.1).........(pa |
| be840 | 72 73 65 2d 73 65 78 70 2d 6c 6f 6f 6b 75 70 2d 70 72 6f 70 65 72 74 69 65 73 20 6e 69 6c 29 0a | rse-sexp-lookup-properties.nil). |
| be860 | 20 20 20 20 20 20 20 20 28 69 6e 69 74 69 61 6c 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 0a | ........(initial-point.(point)). |
| be880 | 20 20 20 20 20 20 20 20 28 72 65 73 75 6c 74 20 27 28 29 29 20 28 61 72 67 2d 69 6e 64 69 63 65 | ........(result.'()).(arg-indice |
| be8a0 | 73 20 27 28 29 29 20 28 70 6f 69 6e 74 73 20 27 28 29 29 29 0a 20 20 20 20 3b 3b 20 54 68 65 20 | s.'()).(points.'())).....;;.The. |
| be8c0 | 65 78 70 65 6e 73 69 76 65 20 6c 6f 6f 6b 75 70 20 6f 66 20 73 79 6e 74 61 78 2d 63 6c 61 73 73 | expensive.lookup.of.syntax-class |
| be8e0 | 20 74 65 78 74 20 70 72 6f 70 65 72 74 69 65 73 20 69 73 20 6f 6e 6c 79 0a 20 20 20 20 3b 3b 20 | .text.properties.is.only.....;;. |
| be900 | 75 73 65 64 20 66 6f 72 20 69 6e 74 65 72 61 63 74 69 76 65 20 62 61 6c 61 6e 63 69 6e 67 20 6f | used.for.interactive.balancing.o |
| be920 | 66 20 23 3c 2e 2e 2e 3e 20 69 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 3b 20 77 65 0a 20 20 | f.#<...>.in.presentations;.we... |
| be940 | 20 20 3b 3b 20 64 6f 20 6e 6f 74 20 6e 65 65 64 20 74 68 65 6d 20 69 6e 20 6e 61 76 69 67 61 74 | ..;;.do.not.need.them.in.navigat |
| be960 | 69 6e 67 20 74 68 72 6f 75 67 68 20 74 68 65 20 6e 65 73 74 65 64 20 6c 69 73 74 73 2e 0a 20 20 | ing.through.the.nested.lists.... |
| be980 | 20 20 3b 3b 20 54 68 69 73 20 73 70 65 65 64 73 20 75 70 20 74 68 69 73 20 66 75 6e 63 74 69 6f | ..;;.This.speeds.up.this.functio |
| be9a0 | 6e 20 73 69 67 6e 69 66 69 63 61 6e 74 6c 79 2e 0a 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 | n.significantly......(ignore-err |
| be9c0 | 6f 72 73 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 | ors.......(save-excursion....... |
| be9e0 | 20 20 3b 3b 20 4d 61 6b 65 20 73 75 72 65 20 77 65 20 67 65 74 20 74 68 65 20 77 68 6f 6c 65 20 | ..;;.Make.sure.we.get.the.whole. |
| bea00 | 74 68 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 | thing.at.point..........(if.(not |
| bea20 | 20 28 73 6c 69 6d 65 2d 69 6e 73 69 64 65 2d 73 74 72 69 6e 67 2d 70 29 29 0a 20 20 20 20 20 20 | .(slime-inside-string-p))....... |
| bea40 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 | ......(slime-end-of-symbol)..... |
| bea60 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 73 74 72 69 6e 67 | ......(slime-beginning-of-string |
| bea80 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 29 0a 20 20 20 20 | )...........(forward-sexp))..... |
| beaa0 | 20 20 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 | ....(save-restriction........... |
| beac0 | 3b 3b 20 44 6f 6e 27 74 20 70 61 72 73 65 20 6d 6f 72 65 20 74 68 61 6e 20 32 30 30 30 30 20 63 | ;;.Don't.parse.more.than.20000.c |
| beae0 | 68 61 72 61 63 74 65 72 73 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2c 20 73 6f 20 77 65 20 64 6f | haracters.before.point,.so.we.do |
| beb00 | 6e 27 74 20 73 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 6f 6f 20 6d 75 63 68 20 | n't.spend...........;;.too.much. |
| beb20 | 74 69 6d 65 2e 0a 20 20 20 20 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f | time............(narrow-to-regio |
| beb40 | 6e 20 28 6d 61 78 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 2d 20 28 70 6f 69 6e 74 29 20 32 30 | n.(max.(point-min).(-.(point).20 |
| beb60 | 30 30 30 29 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6e 61 | 000)).(point-max))...........(na |
| beb80 | 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 | rrow-to-region.(save-excursion.( |
| beba0 | 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 | beginning-of-defun).(point)).... |
| bebc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 69 6e 20 28 31 | .........................(min.(1 |
| bebe0 | 2b 20 28 70 6f 69 6e 74 29 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 20 20 20 20 20 20 20 | +.(point)).(point-max)))........ |
| bec00 | 20 20 20 28 77 68 69 6c 65 20 28 6f 72 20 28 6e 6f 74 20 6d 61 78 2d 6c 65 76 65 6c 73 29 0a 20 | ...(while.(or.(not.max-levels).. |
| bec20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 3d 20 6c 65 76 65 6c 20 6d 61 | ....................(<=.level.ma |
| bec40 | 78 2d 6c 65 76 65 6c 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 72 | x-levels)).............(let.((ar |
| bec60 | 67 2d 69 6e 64 65 78 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4d 6f 76 | g-index.0))...............;;.Mov |
| bec80 | 65 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e | e.to.the.beginning.of.the.curren |
| beca0 | 74 20 73 65 78 70 20 69 66 20 6e 6f 74 20 61 6c 72 65 61 64 79 20 74 68 65 72 65 2e 0a 20 20 20 | t.sexp.if.not.already.there..... |
| becc0 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 61 6e 64 20 28 63 68 61 72 2d 61 66 | ...........(if.(or.(and.(char-af |
| bece0 | 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ter)............................ |
| bed00 | 28 6d 65 6d 62 65 72 20 28 63 68 61 72 2d 73 79 6e 74 61 78 20 28 63 68 61 72 2d 61 66 74 65 72 | (member.(char-syntax.(char-after |
| bed20 | 29 29 20 27 28 3f 5c 28 20 3f 27 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )).'(?\(.?'))).................. |
| bed40 | 20 20 20 20 20 28 6d 65 6d 62 65 72 20 28 63 68 61 72 2d 73 79 6e 74 61 78 20 28 63 68 61 72 2d | .....(member.(char-syntax.(char- |
| bed60 | 62 65 66 6f 72 65 29 29 20 27 28 3f 5c 20 20 3f 3e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | before)).'(?\..?>)))............ |
| bed80 | 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 61 72 67 2d 69 6e 64 65 78 29 29 0a 20 20 20 20 | .......(cl-incf.arg-index))..... |
| beda0 | 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 62 61 63 6b 77 61 | ..........(ignore-errors.(backwa |
| bedc0 | 72 64 2d 73 65 78 70 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 | rd-sexp.1))...............(while |
| bede0 | 20 28 61 6e 64 20 28 3c 20 61 72 67 2d 69 6e 64 65 78 20 36 34 29 0a 20 20 20 20 20 20 20 20 20 | .(and.(<.arg-index.64).......... |
| bee00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 | .................(ignore-errors. |
| bee20 | 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (backward-sexp.1)............... |
| bee40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 20 28 70 | ...........................(>.(p |
| bee60 | 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | oint).(point-min))))............ |
| bee80 | 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 61 72 67 2d 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 | .....(cl-incf.arg-index))....... |
| beea0 | 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 20 31 29 0a 20 20 20 | ........(backward-up-list.1).... |
| beec0 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 65 6d 62 65 72 20 28 63 68 61 72 2d 73 | ...........(when.(member.(char-s |
| beee0 | 79 6e 74 61 78 20 28 63 68 61 72 2d 61 66 74 65 72 29 29 20 27 28 3f 5c 28 20 3f 27 29 29 0a 20 | yntax.(char-after)).'(?\(.?')).. |
| bef00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 6c 65 76 65 6c 29 0a 20 | ...............(cl-incf.level).. |
| bef20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 29 0a | ...............(forward-char.1). |
| bef40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 73 6c 69 | ................(let.((name.(sli |
| bef60 | 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | me-symbol-at-point)))........... |
| bef80 | 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 61 6e 64 20 6e 61 6d 65 20 60 28 2c 6e 61 6d 65 29 | ........(push.(and.name.`(,name) |
| befa0 | 29 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 | ).result)...................(pus |
| befc0 | 68 20 61 72 67 2d 69 6e 64 65 78 20 61 72 67 2d 69 6e 64 69 63 65 73 29 0a 20 20 20 20 20 20 20 | h.arg-index.arg-indices)........ |
| befe0 | 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 70 6f 69 6e 74 29 20 70 6f 69 6e 74 73 29 | ...........(push.(point).points) |
| bf000 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c | ).................(backward-up-l |
| bf020 | 69 73 74 20 31 29 29 29 29 29 29 29 0a 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 0a 20 20 20 20 | ist.1))))))).....(cl-values..... |
| bf040 | 20 28 6e 72 65 76 65 72 73 65 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 28 6e 72 65 76 65 72 73 | .(nreverse.result)......(nrevers |
| bf060 | 65 20 61 72 67 2d 69 6e 64 69 63 65 73 29 0a 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 70 6f | e.arg-indices)......(nreverse.po |
| bf080 | 69 6e 74 73 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 76 61 72 69 61 62 6c 65 | ints))))..(defvar.slime-variable |
| bf0a0 | 2d 62 69 6e 64 69 6e 67 2d 6f 70 73 2d 61 6c 69 73 74 0a 20 20 27 28 28 6c 65 74 20 26 62 69 6e | -binding-ops-alist...'((let.&bin |
| bf0c0 | 64 69 6e 67 73 20 26 62 6f 64 79 29 0a 20 20 20 20 28 6c 65 74 2a 20 26 62 69 6e 64 69 6e 67 73 | dings.&body).....(let*.&bindings |
| bf0e0 | 20 26 62 6f 64 79 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 75 6e 63 74 69 6f | .&body)))..(defvar.slime-functio |
| bf100 | 6e 2d 62 69 6e 64 69 6e 67 2d 6f 70 73 2d 61 6c 69 73 74 0a 20 20 27 28 28 66 6c 65 74 20 26 62 | n-binding-ops-alist...'((flet.&b |
| bf120 | 69 6e 64 69 6e 67 73 20 26 62 6f 64 79 29 0a 20 20 20 20 28 6c 61 62 65 6c 73 20 26 62 69 6e 64 | indings.&body).....(labels.&bind |
| bf140 | 69 6e 67 73 20 26 62 6f 64 79 29 0a 20 20 20 20 28 6d 61 63 72 6f 6c 65 74 20 26 62 69 6e 64 69 | ings.&body).....(macrolet.&bindi |
| bf160 | 6e 67 73 20 26 62 6f 64 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 | ngs.&body)))..(defun.slime-looku |
| bf180 | 70 2d 62 69 6e 64 69 6e 67 2d 6f 70 20 28 6f 70 20 26 6f 70 74 69 6f 6e 61 6c 20 62 69 6e 64 69 | p-binding-op.(op.&optional.bindi |
| bf1a0 | 6e 67 2d 74 79 70 65 29 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 6c 6f 6f 6b 75 70 2d 69 | ng-type)...(cl-labels.((lookup-i |
| bf1c0 | 6e 20 28 6c 69 73 74 29 20 28 63 6c 2d 61 73 73 6f 63 20 6f 70 20 6c 69 73 74 20 3a 74 65 73 74 | n.(list).(cl-assoc.op.list.:test |
| bf1e0 | 20 27 63 6c 2d 65 71 75 61 6c 70 20 3a 6b 65 79 20 27 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 | .'cl-equalp.:key.'symbol-name))) |
| bf200 | 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 62 69 6e 64 69 6e 67 2d 74 79 70 65 20 3a 76 61 | .....(cond.((eq.binding-type.:va |
| bf220 | 72 69 61 62 6c 65 29 20 28 6c 6f 6f 6b 75 70 2d 69 6e 20 73 6c 69 6d 65 2d 76 61 72 69 61 62 6c | riable).(lookup-in.slime-variabl |
| bf240 | 65 2d 62 69 6e 64 69 6e 67 2d 6f 70 73 2d 61 6c 69 73 74 29 29 0a 09 20 20 28 28 65 71 20 62 69 | e-binding-ops-alist))....((eq.bi |
| bf260 | 6e 64 69 6e 67 2d 74 79 70 65 20 3a 66 75 6e 63 74 69 6f 6e 29 20 28 6c 6f 6f 6b 75 70 2d 69 6e | nding-type.:function).(lookup-in |
| bf280 | 20 73 6c 69 6d 65 2d 66 75 6e 63 74 69 6f 6e 2d 62 69 6e 64 69 6e 67 2d 6f 70 73 2d 61 6c 69 73 | .slime-function-binding-ops-alis |
| bf2a0 | 74 29 29 0a 09 20 20 28 74 20 28 6f 72 20 28 6c 6f 6f 6b 75 70 2d 69 6e 20 73 6c 69 6d 65 2d 76 | t))....(t.(or.(lookup-in.slime-v |
| bf2c0 | 61 72 69 61 62 6c 65 2d 62 69 6e 64 69 6e 67 2d 6f 70 73 2d 61 6c 69 73 74 29 0a 09 09 20 28 6c | ariable-binding-ops-alist)....(l |
| bf2e0 | 6f 6f 6b 75 70 2d 69 6e 20 73 6c 69 6d 65 2d 66 75 6e 63 74 69 6f 6e 2d 62 69 6e 64 69 6e 67 2d | ookup-in.slime-function-binding- |
| bf300 | 6f 70 73 2d 61 6c 69 73 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 69 | ops-alist))))))..(defun.slime-bi |
| bf320 | 6e 64 69 6e 67 2d 6f 70 2d 70 20 28 6f 70 20 26 6f 70 74 69 6f 6e 61 6c 20 62 69 6e 64 69 6e 67 | nding-op-p.(op.&optional.binding |
| bf340 | 2d 74 79 70 65 29 0a 20 20 28 61 6e 64 20 28 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 70 2d 62 69 6e 64 | -type)...(and.(slime-lookup-bind |
| bf360 | 69 6e 67 2d 6f 70 20 6f 70 20 62 69 6e 64 69 6e 67 2d 74 79 70 65 29 20 74 29 29 0a 0a 28 64 65 | ing-op.op.binding-type).t))..(de |
| bf380 | 66 75 6e 20 73 6c 69 6d 65 2d 62 69 6e 64 69 6e 67 2d 6f 70 2d 62 6f 64 79 2d 70 6f 73 20 28 6f | fun.slime-binding-op-body-pos.(o |
| bf3a0 | 70 29 0a 20 20 28 6c 65 74 20 28 28 73 70 65 63 69 61 6c 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 | p)...(let.((special-lambda-list. |
| bf3c0 | 28 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 70 2d 62 69 6e 64 69 6e 67 2d 6f 70 20 6f 70 29 29 29 0a 20 | (slime-lookup-binding-op.op))).. |
| bf3e0 | 20 20 20 28 77 68 65 6e 20 73 70 65 63 69 61 6c 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 20 20 20 | ...(when.special-lambda-list.... |
| bf400 | 20 20 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 20 28 69 66 20 28 65 71 20 28 63 61 72 20 73 70 65 | ...(cl-position.(if.(eq.(car.spe |
| bf420 | 63 69 61 6c 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 29 20 27 6c 61 62 65 6c 73 29 0a 20 20 20 20 20 | cial-lambda-list).'labels)...... |
| bf440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 26 62 69 6e 64 69 6e 67 73 0a 20 20 20 | ..................'&bindings.... |
| bf460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 26 62 6f 64 79 29 0a 20 20 20 20 | ....................'&body)..... |
| bf480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 65 63 69 61 6c 2d 6c 61 6d 62 64 61 2d 6c 69 | ...............special-lambda-li |
| bf4a0 | 73 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 69 6e 64 69 6e 67 2d 6f 70 2d | st))))..(defun.slime-binding-op- |
| bf4c0 | 62 69 6e 64 69 6e 67 73 2d 70 6f 73 20 28 6f 70 29 0a 20 20 28 6c 65 74 20 28 28 73 70 65 63 69 | bindings-pos.(op)...(let.((speci |
| bf4e0 | 61 6c 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 28 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 70 2d 62 69 6e | al-lambda-list.(slime-lookup-bin |
| bf500 | 64 69 6e 67 2d 6f 70 20 6f 70 29 29 29 0a 20 20 20 20 28 69 66 20 73 70 65 63 69 61 6c 2d 6c 61 | ding-op.op))).....(if.special-la |
| bf520 | 6d 62 64 61 2d 6c 69 73 74 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 20 27 26 62 69 6e 64 69 6e 67 | mbda-list.(cl-position.'&binding |
| bf540 | 73 20 73 70 65 63 69 61 6c 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 29 29 29 29 0a 0a 28 64 65 66 75 | s.special-lambda-list))))..(defu |
| bf560 | 6e 20 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 62 6f 75 6e 64 2d 6e 61 6d 65 73 20 28 29 | n.slime-enclosing-bound-names.() |
| bf580 | 0a 20 20 22 52 65 74 75 72 6e 73 20 61 6c 6c 20 62 6f 75 6e 64 20 66 75 6e 63 74 69 6f 6e 20 6e | ..."Returns.all.bound.function.n |
| bf5a0 | 61 6d 65 73 20 61 73 20 66 69 72 73 74 20 76 61 6c 75 65 2c 20 61 6e 64 20 74 68 65 0a 70 6f 69 | ames.as.first.value,.and.the.poi |
| bf5c0 | 6e 74 73 20 77 68 65 72 65 20 74 68 65 69 72 20 62 69 6e 64 69 6e 67 73 20 61 72 65 20 65 73 74 | nts.where.their.bindings.are.est |
| bf5e0 | 61 62 6c 69 73 68 65 64 20 61 73 20 73 65 63 6f 6e 64 20 76 61 6c 75 65 2e 22 0a 20 20 28 63 6c | ablished.as.second.value."...(cl |
| bf600 | 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 20 23 27 73 6c 69 6d 65 2d 66 69 6e | -multiple-value-call.#'slime-fin |
| bf620 | 64 2d 62 6f 75 6e 64 2d 6e 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-bound-names................... |
| bf640 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 66 6f 72 6d 2d 73 70 | ........(slime-enclosing-form-sp |
| bf660 | 65 63 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 62 6f 75 6e 64 2d | ecs)))..(defun.slime-find-bound- |
| bf680 | 6e 61 6d 65 73 20 28 6f 70 73 20 69 6e 64 69 63 65 73 20 70 6f 69 6e 74 73 29 0a 20 20 28 6c 65 | names.(ops.indices.points)...(le |
| bf6a0 | 74 20 28 28 62 69 6e 64 69 6e 67 2d 6e 61 6d 65 73 29 20 28 62 69 6e 64 69 6e 67 2d 73 74 61 72 | t.((binding-names).(binding-star |
| bf6c0 | 74 2d 70 6f 69 6e 74 73 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 | t-points)).....(save-excursion.. |
| bf6e0 | 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6f 70 20 2e 20 6e 69 6c 29 20 69 6e 20 | .....(cl-loop.for.(op...nil).in. |
| bf700 | 6f 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 6e 64 65 78 20 69 6e 20 | ops................for.index.in. |
| bf720 | 69 6e 64 69 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 6f 69 6e 74 | indices................for.point |
| bf740 | 20 69 6e 20 70 6f 69 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 77 68 | .in.points................do.(wh |
| bf760 | 65 6e 20 28 61 6e 64 20 28 73 6c 69 6d 65 2d 62 69 6e 64 69 6e 67 2d 6f 70 2d 70 20 6f 70 29 0a | en.(and.(slime-binding-op-p.op). |
| bf780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | .............................;;. |
| bf7a0 | 41 72 65 20 74 68 65 20 62 69 6e 64 69 6e 67 73 20 6f 66 20 4f 50 20 69 6e 20 73 63 6f 70 65 3f | Are.the.bindings.of.OP.in.scope? |
| bf7c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e | ..............................(> |
| bf7e0 | 3d 20 69 6e 64 65 78 20 28 73 6c 69 6d 65 2d 62 69 6e 64 69 6e 67 2d 6f 70 2d 62 6f 64 79 2d 70 | =.index.(slime-binding-op-body-p |
| bf800 | 6f 73 20 6f 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f | os.op))).....................(go |
| bf820 | 74 6f 2d 63 68 61 72 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | to-char.point).................. |
| bf840 | 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 20 28 73 6c 69 6d 65 2d 62 69 6e 64 69 6e 67 2d | ...(forward-sexp.(slime-binding- |
| bf860 | 6f 70 2d 62 69 6e 64 69 6e 67 73 2d 70 6f 73 20 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | op-bindings-pos.op))............ |
| bf880 | 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .........(down-list)............ |
| bf8a0 | 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 | .........(ignore-errors......... |
| bf8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 | ..............(cl-loop.......... |
| bf8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 | ..............(down-list)....... |
| bf900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 73 6c 69 6d 65 2d 73 79 | .................(push.(slime-sy |
| bf920 | 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 20 62 69 6e 64 69 6e 67 2d 6e 61 6d 65 73 29 0a 20 20 | mbol-at-point).binding-names)... |
| bf940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 73 61 76 65 | .....................(push.(save |
| bf960 | 2d 65 78 63 75 72 73 69 6f 6e 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 29 20 28 70 | -excursion.(backward-up-list).(p |
| bf980 | 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | oint)).......................... |
| bf9a0 | 20 20 20 20 62 69 6e 64 69 6e 67 2d 73 74 61 72 74 2d 70 6f 69 6e 74 73 29 0a 20 20 20 20 20 20 | ....binding-start-points)....... |
| bf9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 70 2d 6c 69 73 74 29 29 29 29 29 0a 20 | .................(up-list))))).. |
| bf9e0 | 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 28 6e 72 65 76 65 72 73 65 20 62 69 6e 64 69 6e | .....(cl-values.(nreverse.bindin |
| bfa00 | 67 2d 6e 61 6d 65 73 29 20 28 6e 72 65 76 65 72 73 65 20 62 69 6e 64 69 6e 67 2d 73 74 61 72 74 | g-names).(nreverse.binding-start |
| bfa20 | 2d 70 6f 69 6e 74 73 29 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 6e 63 6c | -points)))))...(defun.slime-encl |
| bfa40 | 6f 73 69 6e 67 2d 62 6f 75 6e 64 2d 66 75 6e 63 74 69 6f 6e 73 20 28 29 0a 20 20 28 63 6c 2d 6d | osing-bound-functions.()...(cl-m |
| bfa60 | 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 20 23 27 73 6c 69 6d 65 2d 66 69 6e 64 2d | ultiple-value-call.#'slime-find- |
| bfa80 | 62 6f 75 6e 64 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bound-functions................. |
| bfaa0 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 66 6f 72 6d 2d | ..........(slime-enclosing-form- |
| bfac0 | 73 70 65 63 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 62 6f 75 6e | specs)))..(defun.slime-find-boun |
| bfae0 | 64 2d 66 75 6e 63 74 69 6f 6e 73 20 28 6f 70 73 20 69 6e 64 69 63 65 73 20 70 6f 69 6e 74 73 29 | d-functions.(ops.indices.points) |
| bfb00 | 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 73 29 20 28 61 72 67 6c 69 73 74 73 29 20 28 73 74 61 | ...(let.((names).(arglists).(sta |
| bfb20 | 72 74 2d 70 6f 69 6e 74 73 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a | rt-points)).....(save-excursion. |
| bfb40 | 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6f 70 20 2e 20 6e 69 6c 29 20 69 6e | ......(cl-loop.for.(op...nil).in |
| bfb60 | 20 6f 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 6e 64 65 78 20 69 6e | .ops................for.index.in |
| bfb80 | 20 69 6e 64 69 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 6f 69 6e | .indices................for.poin |
| bfba0 | 74 20 69 6e 20 70 6f 69 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 77 | t.in.points................do.(w |
| bfbc0 | 68 65 6e 20 28 61 6e 64 20 28 73 6c 69 6d 65 2d 62 69 6e 64 69 6e 67 2d 6f 70 2d 70 20 6f 70 20 | hen.(and.(slime-binding-op-p.op. |
| bfbe0 | 3a 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :function)...................... |
| bfc00 | 20 20 20 20 20 20 20 20 3b 3b 20 41 72 65 20 74 68 65 20 62 69 6e 64 69 6e 67 73 20 6f 66 20 4f | ........;;.Are.the.bindings.of.O |
| bfc20 | 50 20 69 6e 20 73 63 6f 70 65 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | P.in.scope?..................... |
| bfc40 | 20 20 20 20 20 20 20 20 20 28 3e 3d 20 69 6e 64 65 78 20 28 73 6c 69 6d 65 2d 62 69 6e 64 69 6e | .........(>=.index.(slime-bindin |
| bfc60 | 67 2d 6f 70 2d 62 6f 64 79 2d 70 6f 73 20 6f 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | g-op-body-pos.op)))............. |
| bfc80 | 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 | ........(goto-char.point)....... |
| bfca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 20 28 73 6c 69 | ..............(forward-sexp.(sli |
| bfcc0 | 6d 65 2d 62 69 6e 64 69 6e 67 2d 6f 70 2d 62 69 6e 64 69 6e 67 73 2d 70 6f 73 20 6f 70 29 29 0a | me-binding-op-bindings-pos.op)). |
| bfce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c 69 73 74 29 0a | ....................(down-list). |
| bfd00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 77 65 27 72 65 20 | ....................;;.If.we're. |
| bfd20 | 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 62 69 6e 64 69 6e 67 73 2c 20 61 6e 20 65 | at.the.end.of.the.bindings,.an.e |
| bfd40 | 72 72 6f 72 20 77 69 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | rror.will.....................;; |
| bfd60 | 20 62 65 20 73 69 67 6e 61 6c 6c 65 64 20 62 79 20 74 68 65 20 60 64 6f 77 6e 2d 6c 69 73 74 27 | .be.signalled.by.the.`down-list' |
| bfd80 | 20 62 65 6c 6f 77 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e | .below......................(ign |
| bfda0 | 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ore-errors...................... |
| bfdc0 | 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(cl-loop....................... |
| bfde0 | 20 28 64 6f 77 6e 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(down-list).................... |
| bfe00 | 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6e 61 6d 65 | ....(cl-destructuring-bind.(name |
| bfe20 | 20 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .arglist)....................... |
| bfe40 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 61 72 73 65 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 20 | .....(slime-parse-sexp-at-point. |
| bfe60 | 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d | 2)..........................(cl- |
| bfe80 | 61 73 73 65 72 74 20 28 73 6c 69 6d 65 2d 68 61 73 2d 73 79 6d 62 6f 6c 2d 73 79 6e 74 61 78 2d | assert.(slime-has-symbol-syntax- |
| bfea0 | 70 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p.name))........................ |
| bfec0 | 20 20 28 63 6c 2d 61 73 73 65 72 74 20 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 | ..(cl-assert.arglist)........... |
| bfee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6e 61 6d 65 20 6e 61 6d 65 73 29 | ...............(push.name.names) |
| bff00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 | ..........................(push. |
| bff20 | 61 72 67 6c 69 73 74 20 61 72 67 6c 69 73 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | arglist.arglists)............... |
| bff40 | 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e | ...........(push.(save-excursion |
| bff60 | 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 | .(backward-up-list).(point)).... |
| bff80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 | ............................star |
| bffa0 | 74 2d 70 6f 69 6e 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-points))...................... |
| bffc0 | 20 20 28 75 70 2d 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 | ..(up-list))))).......(cl-values |
| bffe0 | 20 28 6e 72 65 76 65 72 73 65 20 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(nreverse.names)............... |
| c0000 | 20 20 20 28 6e 72 65 76 65 72 73 65 20 61 72 67 6c 69 73 74 73 29 0a 20 20 20 20 20 20 20 20 20 | ...(nreverse.arglists).......... |
| c0020 | 20 20 20 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 73 74 61 72 74 2d 70 6f 69 6e 74 73 29 29 | ........(nreverse.start-points)) |
| c0040 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 65 6e 63 6c 6f 73 69 6e 67 | )))..(defun.slime-find-enclosing |
| c0060 | 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6f 70 73 20 69 6e 64 69 63 65 73 20 70 6f 69 6e 74 73 | -definitions.(ops.indices.points |
| c0080 | 29 0a 20 20 28 6c 65 74 20 28 6d 61 63 72 6f 6c 65 74 73 29 0a 20 20 20 20 28 73 61 76 65 2d 65 | )...(let.(macrolets).....(save-e |
| c00a0 | 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6f 70 20 | xcursion.......(cl-loop.for.(op. |
| c00c0 | 2e 20 6e 69 6c 29 20 69 6e 20 6f 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 | ..nil).in.ops................for |
| c00e0 | 20 69 6e 64 65 78 20 69 6e 20 69 6e 64 69 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .index.in.indices............... |
| c0100 | 20 66 6f 72 20 70 6f 69 6e 74 20 69 6e 20 70 6f 69 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 | .for.point.in.points............ |
| c0120 | 20 20 20 20 64 6f 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 6c 69 6d 65 2d 62 69 6e 64 69 6e 67 | ....do.(when.(and.(slime-binding |
| c0140 | 2d 6f 70 2d 70 20 6f 70 20 3a 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -op-p.op.:function)............. |
| c0160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 72 65 20 74 68 65 20 62 69 6e 64 | .................;;.Are.the.bind |
| c0180 | 69 6e 67 73 20 6f 66 20 4f 50 20 69 6e 20 73 63 6f 70 65 3f 0a 20 20 20 20 20 20 20 20 20 20 20 | ings.of.OP.in.scope?............ |
| c01a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 3d 20 69 6e 64 65 78 20 28 73 6c 69 | ..................(>=.index.(sli |
| c01c0 | 6d 65 2d 62 69 6e 64 69 6e 67 2d 6f 70 2d 62 6f 64 79 2d 70 6f 73 20 6f 70 29 29 29 0a 20 20 20 | me-binding-op-body-pos.op))).... |
| c01e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 69 6e | .................(goto-char.poin |
| c0200 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d | t).....................(forward- |
| c0220 | 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 | sexp).....................(ignor |
| c0240 | 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | e-errors......................(l |
| c0260 | 65 74 20 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | et.((start.(point)))............ |
| c0280 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 | ............(forward-sexp)...... |
| c02a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 62 75 66 66 65 72 2d | ..................(push.(buffer- |
| c02c0 | 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 73 74 61 72 74 0a 20 20 | substring-no-properties.start... |
| c02e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| c0300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 0a 20 | ......................(point)).. |
| c0320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 63 72 | ............................macr |
| c0340 | 6f 6c 65 74 73 29 29 29 29 29 0a 20 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 6d 61 63 72 6f | olets))))).......(nreverse.macro |
| c0360 | 6c 65 74 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 | lets))))..(defun.slime-enclosing |
| c0380 | 2d 6d 61 63 72 6f 6c 65 74 73 20 28 29 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 66 75 6e | -macrolets.()...(let.((slime-fun |
| c03a0 | 63 74 69 6f 6e 2d 62 69 6e 64 69 6e 67 2d 6f 70 73 2d 61 6c 69 73 74 20 27 28 28 6d 61 63 72 6f | ction-binding-ops-alist.'((macro |
| c03c0 | 6c 65 74 20 26 62 69 6e 64 69 6e 67 73 20 26 62 6f 64 79 29 29 29 29 0a 20 20 20 20 28 63 6c 2d | let.&bindings.&body)))).....(cl- |
| c03e0 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 20 23 27 73 6c 69 6d 65 2d 66 69 6e 64 | multiple-value-call.#'slime-find |
| c0400 | 2d 65 6e 63 6c 6f 73 69 6e 67 2d 64 65 66 69 6e 69 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 | -enclosing-definitions.......... |
| c0420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 | ...................(slime-enclos |
| c0440 | 69 6e 67 2d 66 6f 72 6d 2d 73 70 65 63 73 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c | ing-form-specs))))..(provide.'sl |
| c0460 | 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 63 6f 6e 74 65 78 74 29 0a 00 00 00 00 00 00 00 00 00 | ime-enclosing-context).......... |
| c0480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c04a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c04c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c04e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c05a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c05c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c05e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 | slime-2.31/contrib/slime-highlig |
| c0620 | 68 74 2d 65 64 69 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ht-edits.el..................... |
| c0640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| c0680 | 30 30 30 35 33 36 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 33 36 37 00 20 30 00 00 00 | 0005366.00000000000.017367..0... |
| c06a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c06c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c06e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| c0720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| c0740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c07a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c07c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c07e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0800 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 | (require.'slime).(require.'slime |
| c0820 | 2d 70 61 72 73 65 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 | -parse)..(define-slime-contrib.s |
| c0840 | 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 0a 20 20 22 48 69 67 68 6c 69 67 68 | lime-highlight-edits..."Highligh |
| c0860 | 74 20 65 64 69 74 65 64 2c 20 69 2e 65 2e 20 6e 6f 74 20 79 65 74 20 63 6f 6d 70 69 6c 65 64 2c | t.edited,.i.e..not.yet.compiled, |
| c0880 | 20 63 6f 64 65 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 57 69 6c 6c 69 61 6d 20 42 6c 61 | .code."...(:authors."William.Bla |
| c08a0 | 6e 64 20 3c 64 6f 63 74 6f 72 62 69 6c 6c 2e 6e 65 77 73 40 67 6d 61 69 6c 2e 63 6f 6d 3e 22 29 | nd.<doctorbill.news@gmail.com>") |
| c08c0 | 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 20 | ...(:license."GPL")...(:on-load. |
| c08e0 | 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 6c | ..(add-hook.'slime-mode-hook.'sl |
| c0900 | 69 6d 65 2d 61 63 74 69 76 61 74 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 29 29 0a 20 | ime-activate-highlight-edits)).. |
| c0920 | 20 28 3a 6f 6e 2d 75 6e 6c 6f 61 64 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 | .(:on-unload.(remove-hook.'slime |
| c0940 | 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 61 63 74 69 76 61 74 65 2d 68 69 67 68 6c | -mode-hook.'slime-activate-highl |
| c0960 | 69 67 68 74 2d 65 64 69 74 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 63 74 69 | ight-edits)))..(defun.slime-acti |
| c0980 | 76 61 74 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 20 28 29 0a 20 28 73 6c 69 6d 65 2d | vate-highlight-edits.()..(slime- |
| c09a0 | 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 6d 6f 64 65 20 31 29 29 0a 0a 28 64 65 66 66 61 | highlight-edits-mode.1))..(deffa |
| c09c0 | 63 65 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 66 61 63 65 0a 20 20 | ce.slime-highlight-edits-face... |
| c09e0 | 20 20 60 28 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 | ..`((((class.color).(background. |
| c0a00 | 6c 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 28 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 6c 69 67 | light))........(:background."lig |
| c0a20 | 68 74 67 72 61 79 22 29 29 0a 20 20 20 20 20 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 | htgray")).......(((class.color). |
| c0a40 | 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a 20 20 20 20 20 20 20 28 3a 62 61 63 6b | (background.dark))........(:back |
| c0a60 | 67 72 6f 75 6e 64 20 22 64 69 6d 67 72 61 79 22 29 29 0a 20 20 20 20 20 20 28 74 20 28 3a 62 61 | ground."dimgray")).......(t.(:ba |
| c0a80 | 63 6b 67 72 6f 75 6e 64 20 22 79 65 6c 6c 6f 77 22 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 | ckground."yellow")))..."Face.for |
| c0aa0 | 20 64 69 73 70 6c 61 79 69 6e 67 20 65 64 69 74 20 62 75 74 20 6e 6f 74 20 63 6f 6d 70 69 6c 65 | .displaying.edit.but.not.compile |
| c0ac0 | 64 20 63 6f 64 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d 66 61 | d.code."...:group.'slime-mode-fa |
| c0ae0 | 63 65 73 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 68 | ces)..(define-minor-mode.slime-h |
| c0b00 | 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 6d 6f 64 65 20 0a 20 20 22 4d 69 6e 6f 72 20 6d 6f | ighlight-edits-mode...."Minor.mo |
| c0b20 | 64 65 20 74 6f 20 68 69 67 68 6c 69 67 68 74 20 6e 6f 74 2d 79 65 74 2d 63 6f 6d 70 69 6c 65 64 | de.to.highlight.not-yet-compiled |
| c0b40 | 20 63 6f 64 65 2e 22 20 6e 69 6c 29 0a 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 68 | .code.".nil)..(add-hook.'slime-h |
| c0b60 | 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 6d 6f 64 65 2d 6f 6e 2d 68 6f 6f 6b 0a 20 20 20 20 | ighlight-edits-mode-on-hook..... |
| c0b80 | 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 69 6e 69 | ......'slime-highlight-edits-ini |
| c0ba0 | 74 2d 62 75 66 66 65 72 29 0a 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 68 69 67 68 | t-buffer)..(add-hook.'slime-high |
| c0bc0 | 6c 69 67 68 74 2d 65 64 69 74 73 2d 6d 6f 64 65 2d 6f 66 66 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 | light-edits-mode-off-hook....... |
| c0be0 | 20 20 20 20 27 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 72 65 73 65 74 | ....'slime-highlight-edits-reset |
| c0c00 | 2d 62 75 66 66 65 72 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 | -buffer)..(defun.slime-highlight |
| c0c20 | 2d 65 64 69 74 73 2d 69 6e 69 74 2d 62 75 66 66 65 72 20 28 29 0a 20 20 28 6d 61 6b 65 2d 6c 6f | -edits-init-buffer.()...(make-lo |
| c0c40 | 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 66 75 6e 63 74 | cal-variable.'after-change-funct |
| c0c60 | 69 6f 6e 73 29 0a 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 61 66 74 65 72 2d 63 68 61 6e | ions)...(add-to-list.'after-chan |
| c0c80 | 67 65 2d 66 75 6e 63 74 69 6f 6e 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c | ge-functions.................'sl |
| c0ca0 | 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 29 0a 20 20 28 61 64 64 2d 74 6f 2d 6c | ime-highlight-edits)...(add-to-l |
| c0cc0 | 69 73 74 20 27 73 6c 69 6d 65 2d 62 65 66 6f 72 65 2d 63 6f 6d 70 69 6c 65 2d 66 75 6e 63 74 69 | ist.'slime-before-compile-functi |
| c0ce0 | 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 68 69 67 68 6c 69 | ons................'slime-highli |
| c0d00 | 67 68 74 2d 65 64 69 74 73 2d 63 6f 6d 70 69 6c 65 2d 68 6f 6f 6b 29 29 0a 0a 28 64 65 66 75 6e | ght-edits-compile-hook))..(defun |
| c0d20 | 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 72 65 73 65 74 2d 62 75 66 | .slime-highlight-edits-reset-buf |
| c0d40 | 66 65 72 20 28 29 0a 20 20 28 73 65 74 71 20 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 66 75 6e 63 | fer.()...(setq.after-change-func |
| c0d60 | 74 69 6f 6e 73 20 20 0a 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 27 73 6c 69 6d 65 2d 68 | tions...........(remove.'slime-h |
| c0d80 | 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 20 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 66 75 6e 63 | ighlight-edits.after-change-func |
| c0da0 | 74 69 6f 6e 73 29 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 65 64 69 74 73 20 28 70 | tions))...(slime-remove-edits.(p |
| c0dc0 | 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 0a 3b 3b 20 46 49 58 4d | oint-min).(point-max)))..;;.FIXM |
| c0de0 | 45 3a 20 77 68 61 74 27 73 20 74 68 65 20 4c 45 4e 20 61 72 67 20 66 6f 72 3f 0a 28 64 65 66 75 | E:.what's.the.LEN.arg.for?.(defu |
| c0e00 | 6e 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 20 28 62 65 67 20 65 6e 64 | n.slime-highlight-edits.(beg.end |
| c0e20 | 20 26 6f 70 74 69 6f 6e 61 6c 20 6c 65 6e 29 20 0a 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 | .&optional.len)....(save-match-d |
| c0e40 | 61 74 61 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 | ata.....(when.(and.(slime-connec |
| c0e60 | 74 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 6c 69 6d | ted-p)................(not.(slim |
| c0e80 | 65 2d 69 6e 73 69 64 65 2d 63 6f 6d 6d 65 6e 74 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | e-inside-comment-p))............ |
| c0ea0 | 20 20 20 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 6f 6e 6c 79 2d 77 68 69 74 65 73 70 61 63 65 2d | ....(not.(slime-only-whitespace- |
| c0ec0 | 70 20 62 65 67 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 76 65 72 6c 61 | p.beg.end))).......(let.((overla |
| c0ee0 | 79 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 62 65 67 20 65 6e 64 29 29 29 0a 20 20 20 20 20 | y.(make-overlay.beg.end)))...... |
| c0f00 | 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 66 61 63 65 20 27 73 | ...(overlay-put.overlay.'face.'s |
| c0f20 | 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 66 61 63 65 29 0a 20 20 20 20 20 | lime-highlight-edits-face)...... |
| c0f40 | 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 73 6c 69 6d 65 2d 65 | ...(overlay-put.overlay.'slime-e |
| c0f60 | 64 69 74 20 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d | dit.t)))))..(defun.slime-remove- |
| c0f80 | 65 64 69 74 73 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 44 65 6c 65 74 65 20 74 68 65 20 | edits.(start.end)..."Delete.the. |
| c0fa0 | 65 78 69 73 74 69 6e 67 20 53 6c 69 6d 65 20 65 64 69 74 20 68 69 6c 69 67 68 74 73 20 69 6e 20 | existing.Slime.edit.hilights.in. |
| c0fc0 | 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 | the.current.buffer."...(save-exc |
| c0fe0 | 75 72 73 69 6f 6e 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 | ursion.....(goto-char.start).... |
| c1000 | 20 28 77 68 69 6c 65 20 28 3c 20 28 70 6f 69 6e 74 29 20 65 6e 64 29 0a 20 20 20 20 20 20 28 64 | .(while.(<.(point).end).......(d |
| c1020 | 6f 6c 69 73 74 20 28 6f 20 28 6f 76 65 72 6c 61 79 73 2d 61 74 20 28 70 6f 69 6e 74 29 29 29 0a | olist.(o.(overlays-at.(point))). |
| c1040 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 20 27 73 6c | ........(when.(overlay-get.o.'sl |
| c1060 | 69 6d 65 2d 65 64 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 6f 76 65 72 | ime-edit)...........(delete-over |
| c1080 | 6c 61 79 20 6f 29 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6e 65 78 74 2d | lay.o))).......(goto-char.(next- |
| c10a0 | 6f 76 65 72 6c 61 79 2d 63 68 61 6e 67 65 20 28 70 6f 69 6e 74 29 29 29 29 29 29 0a 0a 28 64 65 | overlay-change.(point))))))..(de |
| c10c0 | 66 75 6e 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 63 6f 6d 70 69 6c | fun.slime-highlight-edits-compil |
| c10e0 | 65 2d 68 6f 6f 6b 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 | e-hook.(start.end)...(when.slime |
| c1100 | 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 6d 6f 64 65 0a 20 20 20 20 28 6c 65 74 20 28 | -highlight-edits-mode.....(let.( |
| c1120 | 28 73 74 61 72 74 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 67 6f 74 6f 2d 63 68 61 | (start.(save-excursion.(goto-cha |
| c1140 | 72 20 73 74 61 72 74 29 20 0a 09 09 09 09 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 | r.start).......(skip-chars-backw |
| c1160 | 61 72 64 20 22 20 5c 74 5c 6e 5c 72 22 29 0a 09 09 09 09 20 28 70 6f 69 6e 74 29 29 29 0a 09 20 | ard.".\t\n\r")......(point)))... |
| c1180 | 20 28 65 6e 64 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 67 6f 74 6f 2d 63 68 61 72 | .(end.(save-excursion.(goto-char |
| c11a0 | 20 65 6e 64 29 20 0a 09 09 09 20 20 20 20 20 20 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 | .end)............(skip-chars-for |
| c11c0 | 77 61 72 64 20 22 20 5c 74 5c 6e 5c 72 22 29 0a 09 09 09 20 20 20 20 20 20 20 28 70 6f 69 6e 74 | ward.".\t\n\r")...........(point |
| c11e0 | 29 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 65 64 69 74 73 20 73 | )))).......(slime-remove-edits.s |
| c1200 | 74 61 72 74 20 65 6e 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6f 6e 6c 79 2d | tart.end))))..(defun.slime-only- |
| c1220 | 77 68 69 74 65 73 70 61 63 65 2d 70 20 28 62 65 67 20 65 6e 64 29 0a 20 20 22 43 6f 6e 74 61 69 | whitespace-p.(beg.end)..."Contai |
| c1240 | 6e 73 20 74 68 65 20 72 65 67 69 6f 6e 20 66 72 6f 6d 20 42 45 47 20 74 6f 20 45 4e 44 20 6f 6e | ns.the.region.from.BEG.to.END.on |
| c1260 | 6c 79 20 77 68 69 74 65 73 70 61 63 65 3f 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f | ly.whitespace?"...(save-excursio |
| c1280 | 6e 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 62 65 67 29 0a 20 20 20 20 28 73 6b 69 70 2d | n.....(goto-char.beg).....(skip- |
| c12a0 | 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 5c 6e 5c 74 5c 72 22 20 65 6e 64 29 0a 20 20 20 | chars-forward.".\n\t\r".end).... |
| c12c0 | 20 28 3c 3d 20 65 6e 64 20 28 70 6f 69 6e 74 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 | .(<=.end.(point))))..(provide.'s |
| c12e0 | 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 29 0a 00 00 00 00 00 00 00 00 00 00 | lime-highlight-edits)........... |
| c1300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c13a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c13c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c13e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 73 6e 61 70 73 68 6f | slime-2.31/contrib/slime-snapsho |
| c1420 | 74 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | t.el............................ |
| c1440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| c1480 | 30 30 30 32 32 30 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 33 32 00 20 30 00 00 00 | 0002201.00000000000.016132..0... |
| c14a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c14c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c14e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| c1520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| c1540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c15a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c15c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c15e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1600 | 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6c | (eval-and-compile...(require.'sl |
| c1620 | 69 6d 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 | ime))..(define-slime-contrib.sli |
| c1640 | 6d 65 2d 73 6e 61 70 73 68 6f 74 0a 20 20 22 53 61 76 65 26 72 65 73 74 6f 72 65 20 6d 65 6d 6f | me-snapshot..."Save&restore.memo |
| c1660 | 72 79 20 69 6d 61 67 65 73 20 77 69 74 68 6f 75 74 20 64 69 73 63 6f 6e 6e 65 63 74 69 6e 67 22 | ry.images.without.disconnecting" |
| c1680 | 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 48 65 6c 6d 75 74 20 45 6c 6c 65 72 20 3c 68 65 6c 6c | ...(:authors."Helmut.Eller.<hell |
| c16a0 | 65 72 40 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 | er@common-lisp.net>")...(:licens |
| c16c0 | 65 20 22 47 50 4c 20 76 33 22 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 | e."GPL.v3")...(:swank-dependenci |
| c16e0 | 65 73 20 73 77 61 6e 6b 2d 73 6e 61 70 73 68 6f 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | es.swank-snapshot))..(defun.slim |
| c1700 | 65 2d 73 6e 61 70 73 68 6f 74 20 28 66 69 6c 65 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 62 | e-snapshot.(filename.&optional.b |
| c1720 | 61 63 6b 67 72 6f 75 6e 64 29 0a 20 20 22 53 61 76 65 20 61 20 6d 65 6d 6f 72 79 20 69 6d 61 67 | ackground)..."Save.a.memory.imag |
| c1740 | 65 20 74 6f 20 74 68 65 20 66 69 6c 65 20 46 49 4c 45 4e 41 4d 45 2e 22 0a 20 20 28 69 6e 74 65 | e.to.the.file.FILENAME."...(inte |
| c1760 | 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 49 | ractive.(list.(read-file-name."I |
| c1780 | 6d 61 67 65 20 66 69 6c 65 3a 20 22 29 0a 09 09 20 20 20 20 20 63 75 72 72 65 6e 74 2d 70 72 65 | mage.file:.")........current-pre |
| c17a0 | 66 69 78 2d 61 72 67 29 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 65 78 70 61 6e 64 2d | fix-arg))...(let.((file.(expand- |
| c17c0 | 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 | file-name.filename))).....(when. |
| c17e0 | 28 61 6e 64 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6c 65 29 0a 09 20 20 20 20 20 | (and.(file-exists-p.file)....... |
| c1800 | 20 20 28 6e 6f 74 20 28 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 28 66 6f 72 6d 61 74 20 22 46 69 6c | ..(not.(yes-or-no-p.(format."Fil |
| c1820 | 65 20 65 78 69 73 74 73 20 25 73 2e 20 20 4f 76 65 72 77 72 69 74 65 20 69 74 3f 20 22 20 0a 09 | e.exists.%s...Overwrite.it?."... |
| c1840 | 09 09 09 09 20 66 69 6c 65 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 | .....filename)))).......(signal. |
| c1860 | 27 71 75 69 74 20 6e 69 6c 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 77 69 74 68 | 'quit.nil)).....(slime-eval-with |
| c1880 | 2d 74 72 61 6e 73 63 72 69 70 74 0a 20 20 20 20 20 60 28 2c 28 69 66 20 62 61 63 6b 67 72 6f 75 | -transcript......`(,(if.backgrou |
| c18a0 | 6e 64 0a 09 20 20 20 20 27 73 77 61 6e 6b 2d 73 6e 61 70 73 68 6f 74 3a 62 61 63 6b 67 72 6f 75 | nd......'swank-snapshot:backgrou |
| c18c0 | 6e 64 2d 73 61 76 65 2d 73 6e 61 70 73 68 6f 74 0a 09 20 20 27 73 77 61 6e 6b 2d 73 6e 61 70 73 | nd-save-snapshot....'swank-snaps |
| c18e0 | 68 6f 74 3a 73 61 76 65 2d 73 6e 61 70 73 68 6f 74 29 0a 20 20 20 20 20 20 20 2c 66 69 6c 65 29 | hot:save-snapshot)........,file) |
| c1900 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 73 74 6f 72 65 20 28 66 69 6c 65 6e | )))..(defun.slime-restore.(filen |
| c1920 | 61 6d 65 29 0a 20 20 22 52 65 73 74 6f 72 65 20 61 20 6d 65 6d 6f 72 79 20 69 6d 61 67 65 20 73 | ame)..."Restore.a.memory.image.s |
| c1940 | 74 6f 72 65 64 20 69 6e 20 66 69 6c 65 20 46 49 4c 45 4e 41 4d 45 2e 22 0a 20 20 28 69 6e 74 65 | tored.in.file.FILENAME."...(inte |
| c1960 | 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 49 | ractive.(list.(read-file-name."I |
| c1980 | 6d 61 67 65 20 66 69 6c 65 3a 20 22 29 29 29 0a 20 20 3b 3b 20 62 79 70 61 73 73 20 65 76 65 6e | mage.file:.")))...;;.bypass.even |
| c19a0 | 74 20 64 69 73 70 61 74 63 68 65 72 20 62 65 63 61 75 73 65 20 77 65 20 64 6f 6e 27 74 20 65 78 | t.dispatcher.because.we.don't.ex |
| c19c0 | 70 65 63 74 20 61 20 72 65 70 6c 79 2e 20 46 49 58 4d 45 2e 0a 20 20 28 73 6c 69 6d 65 2d 6e 65 | pect.a.reply..FIXME....(slime-ne |
| c19e0 | 74 2d 73 65 6e 64 20 60 28 3a 65 6d 61 63 73 2d 72 65 78 20 28 73 77 61 6e 6b 2d 73 6e 61 70 73 | t-send.`(:emacs-rex.(swank-snaps |
| c1a00 | 68 6f 74 3a 72 65 73 74 6f 72 65 2d 73 6e 61 70 73 68 6f 74 20 0a 09 09 09 09 2c 28 65 78 70 61 | hot:restore-snapshot......,(expa |
| c1a20 | 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 0a 09 09 09 20 20 20 20 20 | nd-file-name.filename))......... |
| c1a40 | 20 20 6e 69 6c 20 74 20 6e 69 6c 29 0a 09 09 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 | ..nil.t.nil).....(slime-connecti |
| c1a60 | 6f 6e 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 73 6e 61 70 73 68 6f 74 29 | on)))..(provide.'slime-snapshot) |
| c1a80 | 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1c00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 | slime-2.31/contrib/slime-compile |
| c1c20 | 72 2d 6e 6f 74 65 73 2d 74 72 65 65 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | r-notes-tree.el................. |
| c1c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1c60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| c1c80 | 30 30 31 34 36 36 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 32 30 32 31 31 00 20 30 00 00 00 | 0014665.00000000000.020211..0... |
| c1ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| c1d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| c1d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1e00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 | (require.'slime).(require.'cl-li |
| c1e20 | 62 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d | b)..(define-slime-contrib.slime- |
| c1e40 | 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 74 72 65 65 0a 20 20 22 44 69 73 70 6c 61 79 20 63 | compiler-notes-tree..."Display.c |
| c1e60 | 6f 6d 70 69 6c 65 72 20 6d 65 73 73 61 67 65 73 20 69 6e 20 74 72 65 65 20 6c 61 79 6f 75 74 2e | ompiler.messages.in.tree.layout. |
| c1e80 | 0a 0a 4d 2d 78 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 20 | ..M-x.slime-list-compiler-notes. |
| c1ea0 | 64 69 73 70 6c 61 79 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 20 69 6e 20 61 20 | display.the.compiler.notes.in.a. |
| c1ec0 | 74 72 65 65 0a 67 72 6f 75 70 65 64 20 62 79 20 73 65 76 65 72 69 74 79 2e 0a 0a 20 20 60 73 6c | tree.grouped.by.severity.....`sl |
| c1ee0 | 69 6d 65 2d 6d 61 79 62 65 2d 6c 69 73 74 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 27 20 63 | ime-maybe-list-compiler-notes'.c |
| c1f00 | 61 6e 20 62 65 20 75 73 65 64 20 61 73 0a 20 20 60 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 | an.be.used.as...`slime-compilati |
| c1f20 | 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 68 6f 6f 6b 27 2e 0a 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 | on-finished-hook'.."...(:authors |
| c1f40 | 20 22 48 65 6c 6d 75 74 20 45 6c 6c 65 72 20 3c 68 65 6c 6c 65 72 40 63 6f 6d 6d 6f 6e 2d 6c 69 | ."Helmut.Eller.<heller@common-li |
| c1f60 | 73 70 2e 6e 65 74 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 29 0a 0a 28 | sp.net>")...(:license."GPL"))..( |
| c1f80 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 79 62 65 2d 6c 69 73 74 2d 63 6f 6d 70 69 6c 65 72 2d | defun.slime-maybe-list-compiler- |
| c1fa0 | 6e 6f 74 65 73 20 28 6e 6f 74 65 73 29 0a 20 20 22 53 68 6f 77 20 74 68 65 20 63 6f 6d 70 69 6c | notes.(notes)..."Show.the.compil |
| c1fc0 | 65 72 20 6e 6f 74 65 73 20 69 66 20 61 70 70 72 6f 70 72 69 61 74 65 2e 22 0a 20 20 3b 3b 20 64 | er.notes.if.appropriate."...;;.d |
| c1fe0 | 6f 6e 27 74 20 70 6f 70 20 75 70 20 61 20 62 75 66 66 65 72 20 69 66 20 61 6c 6c 20 6e 6f 74 65 | on't.pop.up.a.buffer.if.all.note |
| c2000 | 73 20 61 72 65 20 61 6c 72 65 61 64 79 20 61 6e 6e 6f 74 61 74 65 64 20 69 6e 20 74 68 65 0a 20 | s.are.already.annotated.in.the.. |
| c2020 | 20 3b 3b 20 62 75 66 66 65 72 20 69 74 73 65 6c 66 0a 20 20 28 75 6e 6c 65 73 73 20 28 63 6c 2d | .;;.buffer.itself...(unless.(cl- |
| c2040 | 65 76 65 72 79 20 23 27 73 6c 69 6d 65 2d 6e 6f 74 65 2d 68 61 73 2d 6c 6f 63 61 74 69 6f 6e 2d | every.#'slime-note-has-location- |
| c2060 | 70 20 6e 6f 74 65 73 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 6f 6d 70 69 6c 65 | p.notes).....(slime-list-compile |
| c2080 | 72 2d 6e 6f 74 65 73 20 6e 6f 74 65 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c | r-notes.notes)))..(defun.slime-l |
| c20a0 | 69 73 74 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 20 28 6e 6f 74 65 73 29 0a 20 20 22 53 68 | ist-compiler-notes.(notes)..."Sh |
| c20c0 | 6f 77 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 20 4e 4f 54 45 53 20 69 6e 20 74 | ow.the.compiler.notes.NOTES.in.t |
| c20e0 | 72 65 65 20 76 69 65 77 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 | ree.view."...(interactive.(list. |
| c2100 | 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 29 29 29 0a 20 20 28 77 69 74 68 | (slime-compiler-notes)))...(with |
| c2120 | 2d 74 65 6d 70 2d 6d 65 73 73 61 67 65 20 22 50 72 65 70 61 72 69 6e 67 20 63 6f 6d 70 69 6c 65 | -temp-message."Preparing.compile |
| c2140 | 72 20 6e 6f 74 65 20 74 72 65 65 2e 2e 2e 22 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d | r.note.tree...".....(slime-with- |
| c2160 | 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 | popup-buffer.((slime-buffer-name |
| c2180 | 20 3a 6e 6f 74 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:notes)........................ |
| c21a0 | 20 20 20 20 20 20 20 3a 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 | .......:mode.'slime-compiler-not |
| c21c0 | 65 73 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e 75 6c 6c 20 6e 6f 74 65 73 | es-mode).......(when.(null.notes |
| c21e0 | 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5b 6e 6f 20 6e 6f 74 65 73 5d 22 29 29 | ).........(insert."[no.notes]")) |
| c2200 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6c 6c 61 70 73 65 64 2d 70 29 29 0a 20 20 20 20 | .......(let.((collapsed-p))..... |
| c2220 | 20 20 20 20 28 64 6f 6c 69 73 74 20 28 74 72 65 65 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 | ....(dolist.(tree.(slime-compile |
| c2240 | 72 2d 6e 6f 74 65 73 2d 74 6f 2d 74 72 65 65 20 6e 6f 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 | r-notes-to-tree.notes))......... |
| c2260 | 20 20 28 77 68 65 6e 20 28 73 6c 69 6d 65 2d 74 72 65 65 2e 63 6f 6c 6c 61 70 73 65 64 2d 70 20 | ..(when.(slime-tree.collapsed-p. |
| c2280 | 74 72 65 65 29 20 28 73 65 74 66 20 63 6f 6c 6c 61 70 73 65 64 2d 70 20 74 29 29 0a 20 20 20 20 | tree).(setf.collapsed-p.t))..... |
| c22a0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 65 65 2d 69 6e 73 65 72 74 20 74 72 65 65 20 22 22 | ......(slime-tree-insert.tree."" |
| c22c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 29 0a 20 20 20 20 20 | )...........(insert."\n"))...... |
| c22e0 | 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 29 29 0a 0a | ...(goto-char.(point-min)))))).. |
| c2300 | 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 72 65 65 2d 70 72 69 6e 74 65 72 20 27 73 6c 69 6d | (defvar.slime-tree-printer.'slim |
| c2320 | 65 2d 74 72 65 65 2d 64 65 66 61 75 6c 74 2d 70 72 69 6e 74 65 72 29 0a 0a 28 64 65 66 75 6e 20 | e-tree-default-printer)..(defun. |
| c2340 | 73 6c 69 6d 65 2d 74 72 65 65 2d 66 6f 72 2d 6e 6f 74 65 20 28 6e 6f 74 65 29 0a 20 20 28 6d 61 | slime-tree-for-note.(note)...(ma |
| c2360 | 6b 65 2d 73 6c 69 6d 65 2d 74 72 65 65 20 3a 69 74 65 6d 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 2e | ke-slime-tree.:item.(slime-note. |
| c2380 | 6d 65 73 73 61 67 65 20 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | message.note)................... |
| c23a0 | 20 3a 70 6c 69 73 74 20 28 6c 69 73 74 20 27 6e 6f 74 65 20 6e 6f 74 65 29 0a 20 20 20 20 20 20 | .:plist.(list.'note.note)....... |
| c23c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 69 6e 74 2d 66 6e 20 73 6c 69 6d 65 2d 74 72 65 | .............:print-fn.slime-tre |
| c23e0 | 65 2d 70 72 69 6e 74 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 65 65 2d 66 | e-printer))..(defun.slime-tree-f |
| c2400 | 6f 72 2d 73 65 76 65 72 69 74 79 20 28 73 65 76 65 72 69 74 79 20 6e 6f 74 65 73 20 63 6f 6c 6c | or-severity.(severity.notes.coll |
| c2420 | 61 70 73 65 64 2d 70 29 0a 20 20 28 6d 61 6b 65 2d 73 6c 69 6d 65 2d 74 72 65 65 20 3a 69 74 65 | apsed-p)...(make-slime-tree.:ite |
| c2440 | 6d 20 28 66 6f 72 6d 61 74 20 22 25 73 20 28 25 64 29 22 20 0a 20 20 20 20 20 20 20 20 20 20 20 | m.(format."%s.(%d)"............. |
| c2460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 76 | ......................(slime-sev |
| c2480 | 65 72 69 74 79 2d 6c 61 62 65 6c 20 73 65 76 65 72 69 74 79 29 0a 20 20 20 20 20 20 20 20 20 20 | erity-label.severity)........... |
| c24a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 6e | .......................(length.n |
| c24c0 | 6f 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 69 64 73 20 | otes))....................:kids. |
| c24e0 | 28 6d 61 70 63 61 72 20 23 27 73 6c 69 6d 65 2d 74 72 65 65 2d 66 6f 72 2d 6e 6f 74 65 20 6e 6f | (mapcar.#'slime-tree-for-note.no |
| c2500 | 74 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6c 6c 61 70 73 | tes)....................:collaps |
| c2520 | 65 64 2d 70 20 63 6f 6c 6c 61 70 73 65 64 2d 70 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | ed-p.collapsed-p))..(defun.slime |
| c2540 | 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 74 6f 2d 74 72 65 65 20 28 6e 6f 74 65 73 29 0a | -compiler-notes-to-tree.(notes). |
| c2560 | 20 20 28 6c 65 74 2a 20 28 28 61 6c 69 73 74 20 28 73 6c 69 6d 65 2d 61 6c 69 73 74 69 66 79 20 | ..(let*.((alist.(slime-alistify. |
| c2580 | 6e 6f 74 65 73 20 23 27 73 6c 69 6d 65 2d 6e 6f 74 65 2e 73 65 76 65 72 69 74 79 20 23 27 65 71 | notes.#'slime-note.severity.#'eq |
| c25a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 61 70 73 65 64 2d 70 20 28 73 6c 69 6d 65 2d | ))..........(collapsed-p.(slime- |
| c25c0 | 6c 65 6e 67 74 68 3e 20 61 6c 69 73 74 20 31 29 29 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 | length>.alist.1))).....(cl-loop. |
| c25e0 | 66 6f 72 20 28 73 65 76 65 72 69 74 79 20 2e 20 6e 6f 74 65 73 29 20 69 6e 20 61 6c 69 73 74 0a | for.(severity...notes).in.alist. |
| c2600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 73 6c 69 6d 65 2d 74 72 65 65 | .............collect.(slime-tree |
| c2620 | 2d 66 6f 72 2d 73 65 76 65 72 69 74 79 20 73 65 76 65 72 69 74 79 20 6e 6f 74 65 73 20 0a 20 20 | -for-severity.severity.notes.... |
| c2640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| c2660 | 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 61 70 73 65 64 2d 70 29 29 29 29 0a 0a 28 64 65 | ............collapsed-p))))..(de |
| c2680 | 66 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 6d 6f 64 65 2d 6d | fvar.slime-compiler-notes-mode-m |
| c26a0 | 61 70 29 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d | ap)..(define-derived-mode.slime- |
| c26c0 | 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 6d 6f 64 65 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d | compiler-notes-mode.fundamental- |
| c26e0 | 6d 6f 64 65 20 0a 20 20 22 43 6f 6d 70 69 6c 65 72 2d 4e 6f 74 65 73 22 0a 20 20 22 5c 5c 3c 73 | mode...."Compiler-Notes"..."\\<s |
| c2700 | 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 6d 6f 64 65 2d 6d 61 70 3e 5c 0a 5c | lime-compiler-notes-mode-map>\.\ |
| c2720 | 5c 7b 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 6d 6f 64 65 2d 6d 61 70 7d | \{slime-compiler-notes-mode-map} |
| c2740 | 0a 5c 5c 7b 73 6c 69 6d 65 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 2d 6d 6f 64 65 2d 6d 61 70 7d | .\\{slime-popup-buffer-mode-map} |
| c2760 | 0a 22 0a 20 20 28 73 6c 69 6d 65 2d 73 65 74 2d 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 29 29 | ."...(slime-set-truncate-lines)) |
| c2780 | 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 | ..(slime-define-keys.slime-compi |
| c27a0 | 6c 65 72 2d 6e 6f 74 65 73 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 28 6b 62 64 20 22 52 45 54 22 | ler-notes-mode-map...((kbd."RET" |
| c27c0 | 29 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 64 65 66 61 75 6c 74 2d | ).'slime-compiler-notes-default- |
| c27e0 | 61 63 74 69 6f 6e 2d 6f 72 2d 73 68 6f 77 2d 64 65 74 61 69 6c 73 29 0a 20 20 28 5b 72 65 74 75 | action-or-show-details)...([retu |
| c2800 | 72 6e 5d 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 64 65 66 61 75 6c | rn].'slime-compiler-notes-defaul |
| c2820 | 74 2d 61 63 74 69 6f 6e 2d 6f 72 2d 73 68 6f 77 2d 64 65 74 61 69 6c 73 29 0a 20 20 28 5b 6d 6f | t-action-or-show-details)...([mo |
| c2840 | 75 73 65 2d 32 5d 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 64 65 66 | use-2].'slime-compiler-notes-def |
| c2860 | 61 75 6c 74 2d 61 63 74 69 6f 6e 2d 6f 72 2d 73 68 6f 77 2d 64 65 74 61 69 6c 73 2f 6d 6f 75 73 | ault-action-or-show-details/mous |
| c2880 | 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 | e))..(defun.slime-compiler-notes |
| c28a0 | 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 2d 6f 72 2d 73 68 6f 77 2d 64 65 74 61 69 6c 73 2f | -default-action-or-show-details/ |
| c28c0 | 6d 6f 75 73 65 20 28 65 76 65 6e 74 29 0a 20 20 22 49 6e 76 6f 6b 65 20 74 68 65 20 61 63 74 69 | mouse.(event)..."Invoke.the.acti |
| c28e0 | 6f 6e 20 70 6f 69 6e 74 65 64 20 61 74 20 62 79 20 74 68 65 20 6d 6f 75 73 65 2c 20 6f 72 20 73 | on.pointed.at.by.the.mouse,.or.s |
| c2900 | 68 6f 77 20 64 65 74 61 69 6c 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 | how.details."...(interactive."e" |
| c2920 | 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6d 6f 75 73 | )...(cl-destructuring-bind.(mous |
| c2940 | 65 2d 32 20 28 77 20 70 6f 73 20 26 72 65 73 74 20 5f 29 20 26 72 65 73 74 20 5f 5f 29 20 65 76 | e-2.(w.pos.&rest._).&rest.__).ev |
| c2960 | 65 6e 74 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 | ent.....(save-excursion.......(g |
| c2980 | 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 6e 20 28 67 | oto-char.pos).......(let.((fn.(g |
| c29a0 | 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 0a 20 20 20 20 20 20 | et-text-property.(point)........ |
| c29c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c | .............................'sl |
| c29e0 | 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f | ime-compiler-notes-default-actio |
| c2a00 | 6e 29 29 29 0a 09 28 69 66 20 66 6e 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 20 28 73 6c 69 6d 65 | n)))..(if.fn.(funcall.fn).(slime |
| c2a20 | 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 73 68 6f 77 2d 64 65 74 61 69 6c 73 29 29 29 29 | -compiler-notes-show-details)))) |
| c2a40 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d | ))..(defun.slime-compiler-notes- |
| c2a60 | 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 2d 6f 72 2d 73 68 6f 77 2d 64 65 74 61 69 6c 73 20 28 | default-action-or-show-details.( |
| c2a80 | 29 0a 20 20 22 49 6e 76 6f 6b 65 20 74 68 65 20 61 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2c | )..."Invoke.the.action.at.point, |
| c2aa0 | 20 6f 72 20 73 68 6f 77 20 64 65 74 61 69 6c 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | .or.show.details."...(interactiv |
| c2ac0 | 65 29 0a 20 20 28 6c 65 74 20 28 28 66 6e 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 | e)...(let.((fn.(get-text-propert |
| c2ae0 | 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d | y.(point).'slime-compiler-notes- |
| c2b00 | 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 69 66 20 66 6e 20 28 66 75 | default-action))).....(if.fn.(fu |
| c2b20 | 6e 63 61 6c 6c 20 66 6e 29 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d | ncall.fn).(slime-compiler-notes- |
| c2b40 | 73 68 6f 77 2d 64 65 74 61 69 6c 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 | show-details))))..(defun.slime-c |
| c2b60 | 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 73 68 6f 77 2d 64 65 74 61 69 6c 73 20 28 29 0a 20 20 | ompiler-notes-show-details.()... |
| c2b80 | 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 72 65 65 20 28 73 6c | (interactive)...(let*.((tree.(sl |
| c2ba0 | 69 6d 65 2d 74 72 65 65 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f | ime-tree-at-point))..........(no |
| c2bc0 | 74 65 20 28 70 6c 69 73 74 2d 67 65 74 20 28 73 6c 69 6d 65 2d 74 72 65 65 2e 70 6c 69 73 74 20 | te.(plist-get.(slime-tree.plist. |
| c2be0 | 74 72 65 65 29 20 27 6e 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 74 2d | tree).'note))..........(inhibit- |
| c2c00 | 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 28 73 | read-only.t)).....(cond.((not.(s |
| c2c20 | 6c 69 6d 65 2d 74 72 65 65 2d 6c 65 61 66 2d 70 20 74 72 65 65 29 29 0a 20 20 20 20 20 20 20 20 | lime-tree-leaf-p.tree))......... |
| c2c40 | 20 20 20 28 73 6c 69 6d 65 2d 74 72 65 65 2d 74 6f 67 67 6c 65 20 74 72 65 65 29 29 0a 20 20 20 | ...(slime-tree-toggle.tree)).... |
| c2c60 | 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 | .......(t............(slime-show |
| c2c80 | 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6c 6f 63 | -source-location.(slime-note.loc |
| c2ca0 | 61 74 69 6f 6e 20 6e 6f 74 65 29 20 74 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 3b 20 54 72 65 | ation.note).t)))))....;;;;;;.Tre |
| c2cc0 | 65 20 57 69 64 67 65 74 0a 0a 28 63 6c 2d 64 65 66 73 74 72 75 63 74 20 28 73 6c 69 6d 65 2d 74 | e.Widget..(cl-defstruct.(slime-t |
| c2ce0 | 72 65 65 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 73 6c 69 6d 65 2d 74 72 65 65 2e 29 29 0a 20 20 | ree.(:conc-name.slime-tree.))... |
| c2d00 | 69 74 65 6d 0a 20 20 28 70 72 69 6e 74 2d 66 6e 20 23 27 73 6c 69 6d 65 2d 74 72 65 65 2d 64 65 | item...(print-fn.#'slime-tree-de |
| c2d20 | 66 61 75 6c 74 2d 70 72 69 6e 74 65 72 20 3a 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 | fault-printer.:type.function)... |
| c2d40 | 28 6b 69 64 73 20 27 28 29 20 3a 74 79 70 65 20 6c 69 73 74 29 0a 20 20 28 63 6f 6c 6c 61 70 73 | (kids.'().:type.list)...(collaps |
| c2d60 | 65 64 2d 70 20 74 20 3a 74 79 70 65 20 62 6f 6f 6c 65 61 6e 29 0a 20 20 28 70 72 65 66 69 78 20 | ed-p.t.:type.boolean)...(prefix. |
| c2d80 | 22 22 20 3a 74 79 70 65 20 73 74 72 69 6e 67 29 0a 20 20 28 73 74 61 72 74 2d 6d 61 72 6b 20 6e | "".:type.string)...(start-mark.n |
| c2da0 | 69 6c 29 0a 20 20 28 65 6e 64 2d 6d 61 72 6b 20 6e 69 6c 29 0a 20 20 28 70 6c 69 73 74 20 27 28 | il)...(end-mark.nil)...(plist.'( |
| c2dc0 | 29 20 3a 74 79 70 65 20 6c 69 73 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 65 | ).:type.list))..(defun.slime-tre |
| c2de0 | 65 2d 6c 65 61 66 2d 70 20 28 74 72 65 65 29 0a 20 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 74 72 | e-leaf-p.(tree)...(not.(slime-tr |
| c2e00 | 65 65 2e 6b 69 64 73 20 74 72 65 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 | ee.kids.tree)))..(defun.slime-tr |
| c2e20 | 65 65 2d 64 65 66 61 75 6c 74 2d 70 72 69 6e 74 65 72 20 28 74 72 65 65 29 0a 20 20 28 70 72 69 | ee-default-printer.(tree)...(pri |
| c2e40 | 6e 63 20 28 73 6c 69 6d 65 2d 74 72 65 65 2e 69 74 65 6d 20 74 72 65 65 29 20 28 63 75 72 72 65 | nc.(slime-tree.item.tree).(curre |
| c2e60 | 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 65 65 2d | nt-buffer)))..(defun.slime-tree- |
| c2e80 | 64 65 63 6f 72 61 74 69 6f 6e 20 28 74 72 65 65 29 0a 20 20 28 63 6f 6e 64 20 28 28 73 6c 69 6d | decoration.(tree)...(cond.((slim |
| c2ea0 | 65 2d 74 72 65 65 2d 6c 65 61 66 2d 70 20 74 72 65 65 29 20 22 2d 2d 20 22 29 0a 09 28 28 73 6c | e-tree-leaf-p.tree)."--.")..((sl |
| c2ec0 | 69 6d 65 2d 74 72 65 65 2e 63 6f 6c 6c 61 70 73 65 64 2d 70 20 74 72 65 65 29 20 22 5b 2b 5d 20 | ime-tree.collapsed-p.tree)."[+]. |
| c2ee0 | 22 29 0a 09 28 74 20 22 2d 2b 20 20 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 | ")..(t."-+..")))..(defun.slime-t |
| c2f00 | 72 65 65 2d 69 6e 73 65 72 74 2d 6c 69 73 74 20 28 6c 69 73 74 20 70 72 65 66 69 78 29 0a 20 20 | ree-insert-list.(list.prefix)... |
| c2f20 | 22 49 6e 73 65 72 74 20 61 20 6c 69 73 74 20 6f 66 20 74 72 65 65 73 2e 22 0a 20 20 28 63 6c 2d | "Insert.a.list.of.trees."...(cl- |
| c2f40 | 6c 6f 6f 70 20 66 6f 72 20 28 65 6c 74 20 2e 20 72 65 73 74 29 20 6f 6e 20 6c 69 73 74 20 0a 20 | loop.for.(elt...rest).on.list... |
| c2f60 | 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 63 6f 6e 64 20 28 72 65 73 74 0a 20 20 20 20 20 20 20 | ..........do.(cond.(rest........ |
| c2f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 70 72 65 66 69 78 20 22 20 7c | ..............(insert.prefix.".| |
| c2fa0 | 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 | ")......................(slime-t |
| c2fc0 | 72 65 65 2d 69 6e 73 65 72 74 20 65 6c 74 20 28 63 6f 6e 63 61 74 20 70 72 65 66 69 78 20 22 20 | ree-insert.elt.(concat.prefix.". |
| c2fe0 | 7c 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 | |"))......................(inser |
| c3000 | 74 20 22 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a | t."\n")).....................(t. |
| c3020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 70 72 65 | .....................(insert.pre |
| c3040 | 66 69 78 20 22 20 60 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | fix.".`")......................( |
| c3060 | 73 6c 69 6d 65 2d 74 72 65 65 2d 69 6e 73 65 72 74 20 65 6c 74 20 28 63 6f 6e 63 61 74 20 70 72 | slime-tree-insert.elt.(concat.pr |
| c3080 | 65 66 69 78 20 22 20 20 22 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 | efix.".."))))))..(defun.slime-tr |
| c30a0 | 65 65 2d 69 6e 73 65 72 74 2d 64 65 63 6f 72 61 74 69 6f 6e 20 28 74 72 65 65 29 0a 20 20 28 69 | ee-insert-decoration.(tree)...(i |
| c30c0 | 6e 73 65 72 74 20 28 73 6c 69 6d 65 2d 74 72 65 65 2d 64 65 63 6f 72 61 74 69 6f 6e 20 74 72 65 | nsert.(slime-tree-decoration.tre |
| c30e0 | 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 65 65 2d 69 6e 64 65 6e 74 2d 69 | e)))..(defun.slime-tree-indent-i |
| c3100 | 74 65 6d 20 28 73 74 61 72 74 20 65 6e 64 20 70 72 65 66 69 78 29 0a 20 20 22 49 6e 73 65 72 74 | tem.(start.end.prefix)..."Insert |
| c3120 | 20 50 52 45 46 49 58 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 65 61 63 68 | .PREFIX.at.the.beginning.of.each |
| c3140 | 20 62 75 74 20 74 68 65 20 66 69 72 73 74 20 6c 69 6e 65 2e 0a 54 68 69 73 20 69 73 20 75 73 65 | .but.the.first.line..This.is.use |
| c3160 | 64 20 66 6f 72 20 6c 61 62 65 6c 73 20 73 70 61 6e 6e 69 6e 67 20 6d 75 6c 74 69 70 6c 65 20 6c | d.for.labels.spanning.multiple.l |
| c3180 | 69 6e 65 73 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 67 6f | ines."...(save-excursion.....(go |
| c31a0 | 74 6f 2d 63 68 61 72 20 65 6e 64 29 0a 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c | to-char.end).....(beginning-of-l |
| c31c0 | 69 6e 65 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 3c 20 73 74 61 72 74 20 28 70 6f 69 6e 74 29 | ine).....(while.(<.start.(point) |
| c31e0 | 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 70 | ).......(insert-before-markers.p |
| c3200 | 72 65 66 69 78 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 29 29 | refix).......(forward-line.-1))) |
| c3220 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 65 65 2d 69 6e 73 65 72 74 20 28 74 72 65 | )..(defun.slime-tree-insert.(tre |
| c3240 | 65 20 70 72 65 66 69 78 29 0a 20 20 22 49 6e 73 65 72 74 20 54 52 45 45 20 70 72 65 66 69 78 65 | e.prefix)..."Insert.TREE.prefixe |
| c3260 | 64 20 77 69 74 68 20 50 52 45 46 49 58 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 77 69 74 68 | d.with.PREFIX.at.point."...(with |
| c3280 | 2d 73 74 72 75 63 74 20 28 73 6c 69 6d 65 2d 74 72 65 65 2e 20 70 72 69 6e 74 2d 66 6e 20 6b 69 | -struct.(slime-tree..print-fn.ki |
| c32a0 | 64 73 20 63 6f 6c 6c 61 70 73 65 64 2d 70 20 73 74 61 72 74 2d 6d 61 72 6b 20 65 6e 64 2d 6d 61 | ds.collapsed-p.start-mark.end-ma |
| c32c0 | 72 6b 29 20 74 72 65 65 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 69 6e 65 2d 73 74 61 72 74 20 28 | rk).tree.....(let.((line-start.( |
| c32e0 | 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 | line-beginning-position)))...... |
| c3300 | 20 28 73 65 74 66 20 73 74 61 72 74 2d 6d 61 72 6b 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 | .(setf.start-mark.(point-marker) |
| c3320 | 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 65 65 2d 69 6e 73 65 72 74 2d 64 65 63 6f 72 | ).......(slime-tree-insert-decor |
| c3340 | 61 74 69 6f 6e 20 74 72 65 65 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 70 72 69 6e 74 | ation.tree).......(funcall.print |
| c3360 | 2d 66 6e 20 74 72 65 65 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 65 65 2d 69 6e 64 65 | -fn.tree).......(slime-tree-inde |
| c3380 | 6e 74 2d 69 74 65 6d 20 73 74 61 72 74 2d 6d 61 72 6b 20 28 70 6f 69 6e 74 29 20 28 63 6f 6e 63 | nt-item.start-mark.(point).(conc |
| c33a0 | 61 74 20 70 72 65 66 69 78 20 22 20 20 20 22 29 29 0a 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 | at.prefix."...")).......(add-tex |
| c33c0 | 74 2d 70 72 6f 70 65 72 74 69 65 73 20 6c 69 6e 65 2d 73 74 61 72 74 20 28 70 6f 69 6e 74 29 20 | t-properties.line-start.(point). |
| c33e0 | 28 6c 69 73 74 20 27 73 6c 69 6d 65 2d 74 72 65 65 20 74 72 65 65 29 29 0a 20 20 20 20 20 20 28 | (list.'slime-tree.tree)).......( |
| c3400 | 73 65 74 2d 6d 61 72 6b 65 72 2d 69 6e 73 65 72 74 69 6f 6e 2d 74 79 70 65 20 73 74 61 72 74 2d | set-marker-insertion-type.start- |
| c3420 | 6d 61 72 6b 20 74 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6b 69 64 73 20 28 6e | mark.t).......(when.(and.kids.(n |
| c3440 | 6f 74 20 63 6f 6c 6c 61 70 73 65 64 2d 70 29 29 0a 20 20 20 20 20 20 20 20 28 74 65 72 70 72 69 | ot.collapsed-p)).........(terpri |
| c3460 | 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d | .(current-buffer)).........(slim |
| c3480 | 65 2d 74 72 65 65 2d 69 6e 73 65 72 74 2d 6c 69 73 74 20 6b 69 64 73 20 70 72 65 66 69 78 29 29 | e-tree-insert-list.kids.prefix)) |
| c34a0 | 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 74 72 65 65 2e 70 72 65 66 69 78 20 | .......(setf.(slime-tree.prefix. |
| c34c0 | 74 72 65 65 29 20 70 72 65 66 69 78 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 65 6e 64 2d 6d 61 | tree).prefix).......(setf.end-ma |
| c34e0 | 72 6b 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | rk.(point-marker)))))..(defun.sl |
| c3500 | 69 6d 65 2d 74 72 65 65 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 28 63 6f 6e 64 20 28 28 67 | ime-tree-at-point.()...(cond.((g |
| c3520 | 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d | et-text-property.(point).'slime- |
| c3540 | 74 72 65 65 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 4e 6f 20 74 72 65 | tree)).........(t.(error."No.tre |
| c3560 | 65 20 61 74 20 70 6f 69 6e 74 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 | e.at.point"))))..(defun.slime-tr |
| c3580 | 65 65 2d 64 65 6c 65 74 65 20 28 74 72 65 65 29 0a 20 20 22 44 65 6c 65 74 65 20 74 68 65 20 72 | ee-delete.(tree)..."Delete.the.r |
| c35a0 | 65 67 69 6f 6e 20 66 6f 72 20 54 52 45 45 2e 22 0a 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f | egion.for.TREE."...(delete-regio |
| c35c0 | 6e 20 28 73 6c 69 6d 65 2d 74 72 65 65 2e 73 74 61 72 74 2d 6d 61 72 6b 20 74 72 65 65 29 0a 20 | n.(slime-tree.start-mark.tree).. |
| c35e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 65 65 2e 65 6e 64 2d | ................(slime-tree.end- |
| c3600 | 6d 61 72 6b 20 74 72 65 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 65 65 2d | mark.tree)))..(defun.slime-tree- |
| c3620 | 74 6f 67 67 6c 65 20 28 74 72 65 65 29 0a 20 20 22 54 6f 67 67 6c 65 20 74 68 65 20 76 69 73 69 | toggle.(tree)..."Toggle.the.visi |
| c3640 | 62 69 6c 69 74 79 20 6f 66 20 54 52 45 45 27 73 20 63 68 69 6c 64 72 65 6e 2e 22 0a 20 20 28 77 | bility.of.TREE's.children."...(w |
| c3660 | 69 74 68 2d 73 74 72 75 63 74 20 28 73 6c 69 6d 65 2d 74 72 65 65 2e 20 63 6f 6c 6c 61 70 73 65 | ith-struct.(slime-tree..collapse |
| c3680 | 64 2d 70 20 73 74 61 72 74 2d 6d 61 72 6b 20 65 6e 64 2d 6d 61 72 6b 20 70 72 65 66 69 78 29 20 | d-p.start-mark.end-mark.prefix). |
| c36a0 | 74 72 65 65 0a 20 20 20 20 28 73 65 74 66 20 63 6f 6c 6c 61 70 73 65 64 2d 70 20 28 6e 6f 74 20 | tree.....(setf.collapsed-p.(not. |
| c36c0 | 63 6f 6c 6c 61 70 73 65 64 2d 70 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 72 65 65 2d 64 65 | collapsed-p)).....(slime-tree-de |
| c36e0 | 6c 65 74 65 20 74 72 65 65 29 0a 20 20 20 20 28 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 | lete.tree).....(insert-before-ma |
| c3700 | 72 6b 65 72 73 20 22 20 22 29 20 3b 20 6d 6f 76 65 20 70 61 72 65 6e 74 27 73 20 65 6e 64 2d 6d | rkers.".").;.move.parent's.end-m |
| c3720 | 61 72 6b 0a 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 31 29 0a 20 20 20 20 28 73 | ark.....(backward-char.1).....(s |
| c3740 | 6c 69 6d 65 2d 74 72 65 65 2d 69 6e 73 65 72 74 20 74 72 65 65 20 70 72 65 66 69 78 29 0a 20 20 | lime-tree-insert.tree.prefix)... |
| c3760 | 20 20 28 64 65 6c 65 74 65 2d 63 68 61 72 20 31 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 | ..(delete-char.1).....(goto-char |
| c3780 | 20 73 74 61 72 74 2d 6d 61 72 6b 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d | .start-mark)))..(provide.'slime- |
| c37a0 | 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 74 72 65 65 29 0a 00 00 00 00 00 00 00 00 00 00 00 | compiler-notes-tree)............ |
| c37c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c37e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 | slime-2.31/contrib/slime-autodoc |
| c3820 | 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .el............................. |
| c3840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| c3880 | 30 30 31 36 35 37 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 37 34 37 00 20 30 00 00 00 | 0016570.00000000000.015747..0... |
| c38a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c38c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c38e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| c3920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| c3940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c39a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c39c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c39e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3a00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 65 6c 64 6f 63 | (require.'slime).(require.'eldoc |
| c3a20 | 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c | ).(require.'cl-lib).(require.'sl |
| c3a40 | 69 6d 65 2d 70 61 72 73 65 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 | ime-parse)..(define-slime-contri |
| c3a60 | 62 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 0a 20 20 22 53 68 6f 77 20 66 61 6e 63 79 20 61 72 | b.slime-autodoc..."Show.fancy.ar |
| c3a80 | 67 6c 69 73 74 20 69 6e 20 65 63 68 6f 20 61 72 65 61 2e 22 0a 20 20 28 3a 6c 69 63 65 6e 73 65 | glist.in.echo.area."...(:license |
| c3aa0 | 20 22 47 50 4c 22 29 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 4c 75 6b 65 20 47 6f 72 72 69 65 | ."GPL")...(:authors."Luke.Gorrie |
| c3ac0 | 20 20 3c 6c 75 6b 65 40 62 6c 75 65 74 61 69 6c 2e 63 6f 6d 3e 22 0a 20 20 20 20 20 20 20 20 20 | ..<luke@bluetail.com>".......... |
| c3ae0 | 20 20 20 22 4c 61 77 72 65 6e 63 65 20 4d 69 74 63 68 65 6c 6c 20 20 3c 77 65 6e 63 65 40 67 6d | ..."Lawrence.Mitchell..<wence@gm |
| c3b00 | 78 2e 6c 69 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 4d 61 74 74 68 69 61 73 20 4b 6f 65 | x.li>"............."Matthias.Koe |
| c3b20 | 70 70 65 20 20 3c 6d 6b 6f 65 70 70 65 40 6d 61 69 6c 2e 6d 61 74 68 2e 75 6e 69 2d 6d 61 67 64 | ppe..<mkoeppe@mail.math.uni-magd |
| c3b40 | 65 62 75 72 67 2e 64 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 54 6f 62 69 61 73 20 43 | eburg.de>"............."Tobias.C |
| c3b60 | 2e 20 52 69 74 74 77 65 69 6c 65 72 20 20 3c 74 63 72 40 66 72 65 65 62 69 74 73 2e 64 65 3e 22 | ..Rittweiler..<tcr@freebits.de>" |
| c3b80 | 29 0a 20 20 28 3a 73 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 6c 69 6d 65 2d 70 | )...(:slime-dependencies.slime-p |
| c3ba0 | 61 72 73 65 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 | arse)...(:swank-dependencies.swa |
| c3bc0 | 6e 6b 2d 61 72 67 6c 69 73 74 73 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 20 28 73 6c 69 6d 65 2d | nk-arglists)...(:on-load.(slime- |
| c3be0 | 61 75 74 6f 64 6f 63 2d 2d 65 6e 61 62 6c 65 29 29 0a 20 20 28 3a 6f 6e 2d 75 6e 6c 6f 61 64 20 | autodoc--enable))...(:on-unload. |
| c3c00 | 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 64 69 73 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 | (slime-autodoc--disable)))..(def |
| c3c20 | 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 61 63 63 75 72 61 63 79 2d 64 65 | custom.slime-autodoc-accuracy-de |
| c3c40 | 70 74 68 20 31 30 0a 20 20 22 4e 75 6d 62 65 72 20 6f 66 20 70 61 72 65 6e 20 6c 65 76 65 6c 73 | pth.10..."Number.of.paren.levels |
| c3c60 | 20 74 68 61 74 20 61 75 74 6f 64 6f 63 20 74 61 6b 65 73 20 69 6e 74 6f 20 61 63 63 6f 75 6e 74 | .that.autodoc.takes.into.account |
| c3c80 | 20 66 6f 72 0a 20 20 63 6f 6e 74 65 78 74 2d 73 65 6e 73 69 74 69 76 65 20 61 72 67 6c 69 73 74 | .for...context-sensitive.arglist |
| c3ca0 | 20 64 69 73 70 6c 61 79 20 28 6c 6f 63 61 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 20 65 74 63 29 22 | .display.(local.functions..etc)" |
| c3cc0 | 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d | ...:type.'integer...:group.'slim |
| c3ce0 | 65 2d 75 69 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 63 75 73 74 6f 6d | e-ui)..;;;###autoload.(defcustom |
| c3d00 | 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2d 73 74 72 69 6e 67 20 28 70 75 72 65 | .slime-autodoc-mode-string.(pure |
| c3d20 | 63 6f 70 79 20 22 20 61 64 6f 63 22 29 0a 20 20 22 53 74 72 69 6e 67 20 74 6f 20 64 69 73 70 6c | copy.".adoc")..."String.to.displ |
| c3d40 | 61 79 20 69 6e 20 6d 6f 64 65 20 6c 69 6e 65 20 77 68 65 6e 20 41 75 74 6f 64 6f 63 20 4d 6f 64 | ay.in.mode.line.when.Autodoc.Mod |
| c3d60 | 65 20 69 73 20 65 6e 61 62 6c 65 64 3b 20 6e 69 6c 20 66 6f 72 20 6e 6f 6e 65 2e 22 0a 20 20 3a | e.is.enabled;.nil.for.none."...: |
| c3d80 | 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 73 74 72 69 6e 67 20 28 63 6f 6e 73 74 20 3a 74 61 67 | type.'(choice.string.(const.:tag |
| c3da0 | 20 22 4e 6f 6e 65 22 20 6e 69 6c 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 75 69 | ."None".nil))...:group.'slime-ui |
| c3dc0 | 29 0a 0a 0c 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 72 67 6c 69 73 74 20 28 6e 61 6d 65 | ).....(defun.slime-arglist.(name |
| c3de0 | 29 0a 20 20 22 53 68 6f 77 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 66 6f 72 20 | )..."Show.the.argument.list.for. |
| c3e00 | 4e 41 4d 45 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 | NAME."...(interactive.(list.(sli |
| c3e20 | 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 41 72 67 6c 69 73 74 20 6f 66 3a | me-read-symbol-name."Arglist.of: |
| c3e40 | 20 22 20 74 29 29 29 0a 20 20 28 6c 65 74 20 28 28 61 72 67 6c 69 73 74 20 28 73 6c 69 6d 65 2d | .".t)))...(let.((arglist.(slime- |
| c3e60 | 72 65 74 72 69 65 76 65 2d 61 72 67 6c 69 73 74 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 69 66 | retrieve-arglist.name))).....(if |
| c3e80 | 20 28 65 71 20 61 72 67 6c 69 73 74 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 0a 20 20 20 | .(eq.arglist.:not-available).... |
| c3ea0 | 20 20 20 20 20 28 65 72 72 6f 72 20 22 41 72 67 6c 69 73 74 20 6e 6f 74 20 61 76 61 69 6c 61 62 | .....(error."Arglist.not.availab |
| c3ec0 | 6c 65 22 29 0a 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 28 73 6c 69 6d | le").........(message."%s".(slim |
| c3ee0 | 65 2d 61 75 74 6f 64 6f 63 2d 2d 66 6f 6e 74 69 66 79 20 61 72 67 6c 69 73 74 29 29 29 29 29 0a | e-autodoc--fontify.arglist))))). |
| c3f00 | 0a 3b 3b 20 75 73 65 64 20 61 6c 73 6f 20 69 6e 20 73 6c 69 6d 65 2d 63 2d 70 2d 63 2e 65 6c 2e | .;;.used.also.in.slime-c-p-c.el. |
| c3f20 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 74 72 69 65 76 65 2d 61 72 67 6c 69 73 74 20 28 | .(defun.slime-retrieve-arglist.( |
| c3f40 | 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 63 6c 2d 65 74 79 70 65 63 61 73 | name)...(let.((name.(cl-etypecas |
| c3f60 | 65 20 6e 61 6d 65 0a 09 09 28 73 74 72 69 6e 67 20 6e 61 6d 65 29 0a 09 09 28 73 79 6d 62 6f 6c | e.name...(string.name)...(symbol |
| c3f80 | 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 28 63 61 72 | .(symbol-name.name))))).....(car |
| c3fa0 | 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 61 75 74 6f 64 6f 63 20 27 28 2c | .(slime-eval.`(swank:autodoc.'(, |
| c3fc0 | 6e 61 6d 65 20 2c 73 6c 69 6d 65 2d 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 29 29 29 29 29 29 0a | name.,slime-cursor-marker)))))). |
| c3fe0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 61 6e 75 61 6c 6c 79 20 28 | .(defun.slime-autodoc-manually.( |
| c4000 | 29 0a 20 20 22 4c 69 6b 65 20 61 75 74 6f 64 6f 63 20 69 6e 66 6f 72 6d 74 69 6f 6e 20 66 6f 72 | )..."Like.autodoc.informtion.for |
| c4020 | 63 69 6e 67 20 6d 75 6c 74 69 6c 69 6e 65 20 64 69 73 70 6c 61 79 2e 22 0a 20 20 28 69 6e 74 65 | cing.multiline.display."...(inte |
| c4040 | 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 64 6f 63 20 28 73 6c 69 6d 65 2d 61 75 74 | ractive)...(let.((doc.(slime-aut |
| c4060 | 6f 64 6f 63 20 74 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 64 6f 63 20 28 65 6c 64 6f 63 2d | odoc.t))).....(cond.(doc.(eldoc- |
| c4080 | 6d 65 73 73 61 67 65 20 64 6f 63 29 29 0a 09 20 20 28 74 20 28 65 6c 64 6f 63 2d 6d 65 73 73 61 | message.doc))....(t.(eldoc-messa |
| c40a0 | 67 65 20 6e 69 6c 29 29 29 29 29 0a 0a 3b 3b 20 4d 75 73 74 20 63 61 6c 6c 20 65 6c 64 6f 63 2d | ge.nil)))))..;;.Must.call.eldoc- |
| c40c0 | 61 64 64 2d 63 6f 6d 6d 61 6e 64 20 6f 74 68 65 72 77 69 73 65 20 28 65 6c 64 6f 63 2d 64 69 73 | add-command.otherwise.(eldoc-dis |
| c40e0 | 70 6c 61 79 2d 6d 65 73 73 61 67 65 2d 70 29 0a 3b 3b 20 72 65 74 75 72 6e 73 20 6e 69 6c 20 61 | play-message-p).;;.returns.nil.a |
| c4100 | 6e 64 20 65 6c 64 6f 63 20 63 6c 65 61 72 73 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 20 69 6e | nd.eldoc.clears.the.echo.area.in |
| c4120 | 73 74 65 61 64 2e 0a 28 65 6c 64 6f 63 2d 61 64 64 2d 63 6f 6d 6d 61 6e 64 20 27 73 6c 69 6d 65 | stead..(eldoc-add-command.'slime |
| c4140 | 2d 61 75 74 6f 64 6f 63 2d 6d 61 6e 75 61 6c 6c 79 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | -autodoc-manually)..(defun.slime |
| c4160 | 2d 61 75 74 6f 64 6f 63 2d 73 70 61 63 65 20 28 6e 29 0a 20 20 22 4c 69 6b 65 20 60 73 6c 69 6d | -autodoc-space.(n)..."Like.`slim |
| c4180 | 65 2d 73 70 61 63 65 27 20 62 75 74 20 6e 69 63 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | e-space'.but.nicer."...(interact |
| c41a0 | 69 76 65 20 22 70 22 29 0a 20 20 28 73 65 6c 66 2d 69 6e 73 65 72 74 2d 63 6f 6d 6d 61 6e 64 20 | ive."p")...(self-insert-command. |
| c41c0 | 6e 29 0a 20 20 28 6c 65 74 20 28 28 64 6f 63 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 29 29 | n)...(let.((doc.(slime-autodoc)) |
| c41e0 | 29 0a 20 20 20 20 28 77 68 65 6e 20 64 6f 63 0a 20 20 20 20 20 20 28 65 6c 64 6f 63 2d 6d 65 73 | ).....(when.doc.......(eldoc-mes |
| c4200 | 73 61 67 65 20 64 6f 63 29 29 29 29 0a 0a 28 65 6c 64 6f 63 2d 61 64 64 2d 63 6f 6d 6d 61 6e 64 | sage.doc))))..(eldoc-add-command |
| c4220 | 20 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 73 70 61 63 65 29 0a 0a 0c 0a 3b 3b 3b 3b 20 41 | .'slime-autodoc-space)....;;;;.A |
| c4240 | 75 74 6f 64 6f 63 20 63 61 63 68 65 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 61 75 74 6f | utodoc.cache..(defvar.slime-auto |
| c4260 | 64 6f 63 2d 2d 63 61 63 68 65 2d 6c 61 73 74 2d 63 6f 6e 74 65 78 74 20 6e 69 6c 29 0a 28 64 65 | doc--cache-last-context.nil).(de |
| c4280 | 66 76 61 72 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 63 61 63 68 65 2d 6c 61 73 74 2d 61 | fvar.slime-autodoc--cache-last-a |
| c42a0 | 75 74 6f 64 6f 63 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f | utodoc.nil)..(defun.slime-autodo |
| c42c0 | 63 2d 2d 63 61 63 68 65 2d 67 65 74 20 28 63 6f 6e 74 65 78 74 29 0a 20 20 22 52 65 74 75 72 6e | c--cache-get.(context)..."Return |
| c42e0 | 20 74 68 65 20 63 61 63 68 65 64 20 61 75 74 6f 64 6f 63 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f | .the.cached.autodoc.documentatio |
| c4300 | 6e 20 66 6f 72 20 60 63 6f 6e 74 65 78 74 27 2c 20 6f 72 20 6e 69 6c 2e 22 0a 20 20 28 61 6e 64 | n.for.`context',.or.nil."...(and |
| c4320 | 20 28 65 71 75 61 6c 20 63 6f 6e 74 65 78 74 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 63 | .(equal.context.slime-autodoc--c |
| c4340 | 61 63 68 65 2d 6c 61 73 74 2d 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 73 6c 69 6d 65 2d | ache-last-context)........slime- |
| c4360 | 61 75 74 6f 64 6f 63 2d 2d 63 61 63 68 65 2d 6c 61 73 74 2d 61 75 74 6f 64 6f 63 29 29 0a 0a 28 | autodoc--cache-last-autodoc))..( |
| c4380 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 63 61 63 68 65 2d 70 75 74 20 28 | defun.slime-autodoc--cache-put.( |
| c43a0 | 63 6f 6e 74 65 78 74 20 61 75 74 6f 64 6f 63 29 0a 20 20 22 55 70 64 61 74 65 20 74 68 65 20 61 | context.autodoc)..."Update.the.a |
| c43c0 | 75 74 6f 64 6f 63 20 63 61 63 68 65 20 66 6f 72 20 43 4f 4e 54 45 58 54 20 77 69 74 68 20 41 55 | utodoc.cache.for.CONTEXT.with.AU |
| c43e0 | 54 4f 44 4f 43 2e 22 0a 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 63 | TODOC."...(setq.slime-autodoc--c |
| c4400 | 61 63 68 65 2d 6c 61 73 74 2d 63 6f 6e 74 65 78 74 20 63 6f 6e 74 65 78 74 29 0a 20 20 28 73 65 | ache-last-context.context)...(se |
| c4420 | 74 71 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 63 61 63 68 65 2d 6c 61 73 74 2d 61 75 74 | tq.slime-autodoc--cache-last-aut |
| c4440 | 6f 64 6f 63 20 61 75 74 6f 64 6f 63 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 46 6f 72 6d 61 74 74 69 6e | odoc.autodoc))....;;;;.Formattin |
| c4460 | 67 20 61 75 74 6f 64 6f 63 0a 0a 28 64 65 66 73 75 62 73 74 20 73 6c 69 6d 65 2d 61 75 74 6f 64 | g.autodoc..(defsubst.slime-autod |
| c4480 | 6f 63 2d 2d 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 2d 77 68 69 74 65 73 70 61 63 65 20 28 73 74 72 | oc--canonicalize-whitespace.(str |
| c44a0 | 69 6e 67 29 0a 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 | ing)...(replace-regexp-in-string |
| c44c0 | 20 22 5b 20 5c 6e 5c 74 5d 2b 22 20 22 20 22 20 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 75 | ."[.\n\t]+"."."..string))..(defu |
| c44e0 | 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 66 6f 72 6d 61 74 20 28 64 6f 63 20 6d 75 6c | n.slime-autodoc--format.(doc.mul |
| c4500 | 74 69 6c 69 6e 65 70 29 0a 20 20 28 6c 65 74 20 28 28 64 6f 63 20 28 73 6c 69 6d 65 2d 61 75 74 | tilinep)...(let.((doc.(slime-aut |
| c4520 | 6f 64 6f 63 2d 2d 66 6f 6e 74 69 66 79 20 64 6f 63 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 | odoc--fontify.doc))).....(cond.( |
| c4540 | 6d 75 6c 74 69 6c 69 6e 65 70 20 64 6f 63 29 0a 09 20 20 28 74 20 28 73 6c 69 6d 65 2d 6f 6e 65 | multilinep.doc)....(t.(slime-one |
| c4560 | 6c 69 6e 65 72 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 63 61 6e 6f 6e 69 63 61 6c 69 | liner.(slime-autodoc--canonicali |
| c4580 | 7a 65 2d 77 68 69 74 65 73 70 61 63 65 20 64 6f 63 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ze-whitespace.doc))))))..(defun. |
| c45a0 | 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 66 6f 6e 74 69 66 79 20 28 73 74 72 69 6e 67 29 0a | slime-autodoc--fontify.(string). |
| c45c0 | 20 20 22 46 6f 6e 74 69 66 79 20 53 54 52 49 4e 47 20 61 73 20 60 66 6f 6e 74 2d 6c 6f 63 6b 2d | .."Fontify.STRING.as.`font-lock- |
| c45e0 | 6d 6f 64 65 27 20 64 6f 65 73 20 69 6e 20 4c 69 73 70 20 6d 6f 64 65 2e 22 0a 20 20 28 77 69 74 | mode'.does.in.Lisp.mode."...(wit |
| c4600 | 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 | h-current-buffer.(get-buffer-cre |
| c4620 | 61 74 65 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 66 6f 6e 74 69 66 79 20 | ate.(slime-buffer-name.:fontify. |
| c4640 | 27 68 69 64 64 65 6e 29 29 0a 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 | 'hidden)).....(erase-buffer).... |
| c4660 | 20 28 75 6e 6c 65 73 73 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 6c 69 73 70 2d 6d 6f | .(unless.(eq.major-mode.'lisp-mo |
| c4680 | 64 65 29 0a 20 20 20 20 20 20 3b 3b 20 4a 75 73 74 20 63 61 6c 6c 69 6e 67 20 28 6c 69 73 70 2d | de).......;;.Just.calling.(lisp- |
| c46a0 | 6d 6f 64 65 29 20 77 69 6c 6c 20 74 75 72 6e 20 73 6c 69 6d 65 2d 6d 6f 64 65 20 6f 6e 20 69 6e | mode).will.turn.slime-mode.on.in |
| c46c0 | 20 74 68 61 74 20 62 75 66 66 65 72 2c 0a 20 20 20 20 20 20 3b 3b 20 77 68 69 63 68 20 6d 61 79 | .that.buffer,.......;;.which.may |
| c46e0 | 20 69 6e 74 65 72 66 65 72 65 20 77 69 74 68 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 0a 20 20 | .interfere.with.this.function... |
| c4700 | 20 20 20 20 28 73 65 74 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 6c 69 73 70 2d 6d 6f 64 65 29 | ....(setq.major-mode.'lisp-mode) |
| c4720 | 0a 20 20 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 20 74 29 29 0a | .......(lisp-mode-variables.t)). |
| c4740 | 20 20 20 20 28 69 6e 73 65 72 74 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 | ....(insert.string).....(let.((f |
| c4760 | 6f 6e 74 2d 6c 6f 63 6b 2d 76 65 72 62 6f 73 65 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 66 6f | ont-lock-verbose.nil)).......(fo |
| c4780 | 6e 74 2d 6c 6f 63 6b 2d 66 6f 6e 74 69 66 79 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 67 6f | nt-lock-fontify-buffer)).....(go |
| c47a0 | 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 | to-char.(point-min)).....(when.( |
| c47c0 | 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 3d 3d 3d 3e 20 5c 5c 28 5c 5c 28 2e 5c | re-search-forward."===>.\\(\\(.\ |
| c47e0 | 5c 7c 5c 6e 5c 5c 29 2a 5c 5c 29 20 3c 3d 3d 3d 22 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 | \|\n\\)*\\).<===".nil.t).......( |
| c4800 | 6c 65 74 20 28 28 68 69 67 68 6c 69 67 68 74 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 29 | let.((highlight.(match-string.1) |
| c4820 | 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 43 61 6e 27 74 20 75 73 65 20 28 72 65 70 6c 61 63 65 | )).........;;.Can't.use.(replace |
| c4840 | 2d 6d 61 74 63 68 20 68 69 67 68 6c 69 67 68 74 29 20 68 65 72 65 20 2d 2d 20 62 72 6f 6b 65 6e | -match.highlight).here.--.broken |
| c4860 | 20 69 6e 20 45 6d 61 63 73 20 32 31 0a 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 | .in.Emacs.21.........(delete-reg |
| c4880 | 69 6f 6e 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 20 28 6d 61 74 63 68 2d 65 | ion.(match-beginning.0).(match-e |
| c48a0 | 6e 64 20 30 29 29 0a 09 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 | nd.0))..(slime-insert-propertize |
| c48c0 | 64 20 27 28 66 61 63 65 20 65 6c 64 6f 63 2d 68 69 67 68 6c 69 67 68 74 2d 66 75 6e 63 74 69 6f | d.'(face.eldoc-highlight-functio |
| c48e0 | 6e 2d 61 72 67 75 6d 65 6e 74 29 20 68 69 67 68 6c 69 67 68 74 29 29 29 0a 20 20 20 20 28 62 75 | n-argument).highlight))).....(bu |
| c4900 | 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e | ffer-substring.(point-min).(poin |
| c4920 | 74 2d 6d 61 78 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 66 75 6e 63 | t-max))))..(define-obsolete-func |
| c4940 | 74 69 6f 6e 2d 61 6c 69 61 73 20 27 73 6c 69 6d 65 2d 66 6f 6e 74 69 66 79 2d 73 74 72 69 6e 67 | tion-alias.'slime-fontify-string |
| c4960 | 0a 20 20 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 66 6f 6e 74 69 66 79 0a 20 20 22 53 4c | ...'slime-autodoc--fontify..."SL |
| c4980 | 49 4d 45 20 32 2e 31 30 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 41 75 74 6f 64 6f 63 73 20 28 61 75 74 | IME.2.10")....;;;;.Autodocs.(aut |
| c49a0 | 6f 6d 61 74 69 63 20 63 6f 6e 74 65 78 74 2d 73 65 6e 73 69 74 69 76 65 20 68 65 6c 70 29 0a 0a | omatic.context-sensitive.help).. |
| c49c0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 20 28 26 6f 70 74 69 6f 6e 61 6c 20 | (defun.slime-autodoc.(&optional. |
| c49e0 | 66 6f 72 63 65 2d 6d 75 6c 74 69 6c 69 6e 65 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 68 65 20 | force-multiline)..."Returns.the. |
| c4a00 | 63 61 63 68 65 64 20 61 72 67 6c 69 73 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 73 20 73 74 | cached.arglist.information.as.st |
| c4a20 | 72 69 6e 67 2c 20 6f 72 20 6e 69 6c 2e 0a 49 66 20 69 74 27 73 20 6e 6f 74 20 69 6e 20 74 68 65 | ring,.or.nil..If.it's.not.in.the |
| c4a40 | 20 63 61 63 68 65 2c 20 74 68 65 20 63 61 63 68 65 20 77 69 6c 6c 20 62 65 20 75 70 64 61 74 65 | .cache,.the.cache.will.be.update |
| c4a60 | 64 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 | d.asynchronously."...(save-excur |
| c4a80 | 73 69 6f 6e 0a 20 20 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 | sion.....(save-match-data....... |
| c4aa0 | 28 6c 65 74 20 28 28 63 6f 6e 74 65 78 74 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 70 | (let.((context.(slime-autodoc--p |
| c4ac0 | 61 72 73 65 2d 63 6f 6e 74 65 78 74 29 29 29 0a 09 28 77 68 65 6e 20 63 6f 6e 74 65 78 74 0a 09 | arse-context)))..(when.context.. |
| c4ae0 | 20 20 28 6c 65 74 2a 20 28 28 63 61 63 68 65 64 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d | ..(let*.((cached.(slime-autodoc- |
| c4b00 | 2d 63 61 63 68 65 2d 67 65 74 20 63 6f 6e 74 65 78 74 29 29 0a 09 09 20 28 6d 75 6c 74 69 6c 69 | -cache-get.context))....(multili |
| c4b20 | 6e 65 70 20 28 6f 72 20 66 6f 72 63 65 2d 6d 75 6c 74 69 6c 69 6e 65 0a 09 09 09 09 20 65 6c 64 | nep.(or.force-multiline......eld |
| c4b40 | 6f 63 2d 65 63 68 6f 2d 61 72 65 61 2d 75 73 65 2d 6d 75 6c 74 69 6c 69 6e 65 2d 70 29 29 29 0a | oc-echo-area-use-multiline-p))). |
| c4b60 | 09 20 20 20 20 28 63 6f 6e 64 20 28 63 61 63 68 65 64 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f | .....(cond.(cached.(slime-autodo |
| c4b80 | 63 2d 2d 66 6f 72 6d 61 74 20 63 61 63 68 65 64 20 6d 75 6c 74 69 6c 69 6e 65 70 29 29 0a 09 09 | c--format.cached.multilinep))... |
| c4ba0 | 20 20 28 74 0a 09 09 20 20 20 28 77 68 65 6e 20 28 73 6c 69 6d 65 2d 62 61 63 6b 67 72 6f 75 6e | ..(t......(when.(slime-backgroun |
| c4bc0 | 64 2d 61 63 74 69 76 69 74 69 65 73 2d 65 6e 61 62 6c 65 64 2d 70 29 0a 09 09 20 20 20 20 20 28 | d-activities-enabled-p)........( |
| c4be0 | 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 61 73 79 6e 63 20 63 6f 6e 74 65 78 74 20 6d 75 6c | slime-autodoc--async.context.mul |
| c4c00 | 74 69 6c 69 6e 65 70 29 29 0a 09 09 20 20 20 6e 69 6c 29 29 29 29 29 29 29 29 0a 0a 3b 3b 20 52 | tilinep))......nil))))))))..;;.R |
| c4c20 | 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 20 74 | eturn.the.context.around.point.t |
| c4c40 | 68 61 74 20 63 61 6e 20 62 65 20 70 61 73 73 65 64 20 74 6f 0a 3b 3b 20 73 77 61 6e 6b 3a 61 75 | hat.can.be.passed.to.;;.swank:au |
| c4c60 | 74 6f 64 6f 63 2e 20 20 6e 69 6c 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 66 20 6e 6f 74 68 69 | todoc...nil.is.returned.if.nothi |
| c4c80 | 6e 67 20 72 65 61 73 6f 6e 61 62 6c 65 20 63 6f 75 6c 64 20 62 65 0a 3b 3b 20 66 6f 75 6e 64 2e | ng.reasonable.could.be.;;.found. |
| c4ca0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 70 61 72 73 65 2d 63 6f 6e | .(defun.slime-autodoc--parse-con |
| c4cc0 | 74 65 78 74 20 28 29 0a 20 20 28 61 6e 64 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 70 | text.()...(and.(slime-autodoc--p |
| c4ce0 | 61 72 73 69 6e 67 2d 73 61 66 65 2d 70 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 65 76 | arsing-safe-p)........(let.((lev |
| c4d00 | 65 6c 73 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 61 63 63 75 72 61 63 79 2d 64 65 70 74 68 | els.slime-autodoc-accuracy-depth |
| c4d20 | 29 29 0a 09 20 28 73 6c 69 6d 65 2d 70 61 72 73 65 2d 66 6f 72 6d 2d 75 70 74 6f 2d 70 6f 69 6e | ))...(slime-parse-form-upto-poin |
| c4d40 | 74 20 6c 65 76 65 6c 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 | t.levels))))..(defun.slime-autod |
| c4d60 | 6f 63 2d 2d 70 61 72 73 69 6e 67 2d 73 61 66 65 2d 70 20 28 29 0a 20 20 28 63 6f 6e 64 20 28 28 | oc--parsing-safe-p.()...(cond.(( |
| c4d80 | 66 62 6f 75 6e 64 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 69 64 65 2d 73 74 72 69 6e | fboundp.'slime-repl-inside-strin |
| c4da0 | 67 2d 6f 72 2d 63 6f 6d 6d 65 6e 74 2d 70 29 0a 09 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 72 65 | g-or-comment-p)...(not.(slime-re |
| c4dc0 | 70 6c 2d 69 6e 73 69 64 65 2d 73 74 72 69 6e 67 2d 6f 72 2d 63 6f 6d 6d 65 6e 74 2d 70 29 29 29 | pl-inside-string-or-comment-p))) |
| c4de0 | 0a 09 28 74 0a 09 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 69 6e 73 69 64 65 2d 73 74 72 69 6e 67 | ..(t...(not.(slime-inside-string |
| c4e00 | 2d 6f 72 2d 63 6f 6d 6d 65 6e 74 2d 70 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | -or-comment-p)))))..(defun.slime |
| c4e20 | 2d 61 75 74 6f 64 6f 63 2d 2d 61 73 79 6e 63 20 28 63 6f 6e 74 65 78 74 20 6d 75 6c 74 69 6c 69 | -autodoc--async.(context.multili |
| c4e40 | 6e 65 70 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 60 | nep)...(slime-eval-async.......` |
| c4e60 | 28 73 77 61 6e 6b 3a 61 75 74 6f 64 6f 63 20 27 2c 63 6f 6e 74 65 78 74 0a 09 09 20 20 20 20 20 | (swank:autodoc.',context........ |
| c4e80 | 20 3a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 20 2c 28 77 69 6e 64 6f 77 2d 77 69 | .:print-right-margin.,(window-wi |
| c4ea0 | 64 74 68 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 28 73 | dth.(minibuffer-window))).....(s |
| c4ec0 | 6c 69 6d 65 2d 63 75 72 72 79 20 23 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 61 73 79 6e | lime-curry.#'slime-autodoc--asyn |
| c4ee0 | 63 25 20 63 6f 6e 74 65 78 74 20 6d 75 6c 74 69 6c 69 6e 65 70 29 29 29 0a 0a 28 64 65 66 75 6e | c%.context.multilinep)))..(defun |
| c4f00 | 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 61 73 79 6e 63 25 20 28 63 6f 6e 74 65 78 74 20 | .slime-autodoc--async%.(context. |
| c4f20 | 6d 75 6c 74 69 6c 69 6e 65 70 20 64 6f 63 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 | multilinep.doc)...(cl-destructur |
| c4f40 | 69 6e 67 2d 62 69 6e 64 20 28 64 6f 63 20 26 6f 70 74 69 6f 6e 61 6c 20 63 61 63 68 65 2d 70 29 | ing-bind.(doc.&optional.cache-p) |
| c4f60 | 20 64 6f 63 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 64 6f 63 20 3a 6e 6f 74 2d 61 76 | .doc.....(unless.(eq.doc.:not-av |
| c4f80 | 61 69 6c 61 62 6c 65 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 63 61 63 68 65 2d 70 0a 09 28 73 | ailable).......(when.cache-p..(s |
| c4fa0 | 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 63 61 63 68 65 2d 70 75 74 20 63 6f 6e 74 65 78 74 20 | lime-autodoc--cache-put.context. |
| c4fc0 | 64 6f 63 29 29 0a 20 20 20 20 20 20 3b 3b 20 4e 6f 77 20 74 68 61 74 20 77 65 27 76 65 20 67 6f | doc)).......;;.Now.that.we've.go |
| c4fe0 | 74 20 6f 75 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 0a 20 20 20 20 20 20 3b 3b 20 67 65 74 20 | t.our.information,.......;;.get. |
| c5000 | 69 74 20 74 6f 20 74 68 65 20 75 73 65 72 20 41 53 41 50 2e 0a 20 20 20 20 20 20 28 77 68 65 6e | it.to.the.user.ASAP........(when |
| c5020 | 20 28 65 6c 64 6f 63 2d 64 69 73 70 6c 61 79 2d 6d 65 73 73 61 67 65 2d 70 29 0a 09 28 65 6c 64 | .(eldoc-display-message-p)..(eld |
| c5040 | 6f 63 2d 6d 65 73 73 61 67 65 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 66 6f 72 6d 61 | oc-message.(slime-autodoc--forma |
| c5060 | 74 20 64 6f 63 20 6d 75 6c 74 69 6c 69 6e 65 70 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 4d 69 | t.doc.multilinep))))))....;;;.Mi |
| c5080 | 6e 6f 72 20 6d 6f 64 65 20 64 65 66 69 6e 69 74 69 6f 6e 0a 0a 3b 3b 20 43 6f 6d 70 75 74 65 20 | nor.mode.definition..;;.Compute. |
| c50a0 | 74 68 65 20 70 72 65 66 69 78 20 66 6f 72 20 73 6c 69 6d 65 2d 64 6f 63 2d 6d 61 70 2c 20 75 73 | the.prefix.for.slime-doc-map,.us |
| c50c0 | 75 61 6c 6c 79 20 74 68 69 73 20 69 73 20 43 2d 63 20 43 2d 64 2e 0a 28 64 65 66 75 6e 20 73 6c | ually.this.is.C-c.C-d..(defun.sl |
| c50e0 | 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 64 6f 63 2d 6d 61 70 2d 70 72 65 66 69 78 20 28 29 0a 20 | ime-autodoc--doc-map-prefix.().. |
| c5100 | 20 28 63 6f 6e 63 61 74 0a 20 20 20 28 63 61 72 20 28 72 61 73 73 6f 63 20 27 28 73 6c 69 6d 65 | .(concat....(car.(rassoc.'(slime |
| c5120 | 2d 70 72 65 66 69 78 2d 6d 61 70 29 20 73 6c 69 6d 65 2d 70 61 72 65 6e 74 2d 62 69 6e 64 69 6e | -prefix-map).slime-parent-bindin |
| c5140 | 67 73 29 29 0a 20 20 20 28 63 61 72 20 28 72 61 73 73 6f 63 20 27 28 73 6c 69 6d 65 2d 64 6f 63 | gs))....(car.(rassoc.'(slime-doc |
| c5160 | 2d 6d 61 70 29 20 73 6c 69 6d 65 2d 70 72 65 66 69 78 2d 62 69 6e 64 69 6e 67 73 29 29 29 29 0a | -map).slime-prefix-bindings)))). |
| c5180 | 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f | .(define-minor-mode.slime-autodo |
| c51a0 | 63 2d 6d 6f 64 65 0a 20 20 22 54 6f 67 67 6c 65 20 65 63 68 6f 20 61 72 65 61 20 64 69 73 70 6c | c-mode..."Toggle.echo.area.displ |
| c51c0 | 61 79 20 6f 66 20 4c 69 73 70 20 6f 62 6a 65 63 74 73 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 | ay.of.Lisp.objects.at.point."... |
| c51e0 | 3a 6c 69 67 68 74 65 72 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2d 73 74 72 69 | :lighter.slime-autodoc-mode-stri |
| c5200 | 6e 67 0a 20 20 3a 6b 65 79 6d 61 70 20 28 6c 65 74 20 28 28 70 72 65 66 69 78 20 28 73 6c 69 6d | ng...:keymap.(let.((prefix.(slim |
| c5220 | 65 2d 61 75 74 6f 64 6f 63 2d 2d 64 6f 63 2d 6d 61 70 2d 70 72 65 66 69 78 29 29 29 0a 09 20 20 | e-autodoc--doc-map-prefix))).... |
| c5240 | 20 20 60 28 28 2c 28 63 6f 6e 63 61 74 20 70 72 65 66 69 78 20 22 41 22 29 20 2e 20 73 6c 69 6d | ..`((,(concat.prefix."A")...slim |
| c5260 | 65 2d 61 75 74 6f 64 6f 63 2d 6d 61 6e 75 61 6c 6c 79 29 0a 09 20 20 20 20 20 20 28 2c 28 63 6f | e-autodoc-manually)........(,(co |
| c5280 | 6e 63 61 74 20 70 72 65 66 69 78 20 28 6b 62 64 20 22 43 2d 41 22 29 29 20 2e 20 73 6c 69 6d 65 | ncat.prefix.(kbd."C-A"))...slime |
| c52a0 | 2d 61 75 74 6f 64 6f 63 2d 6d 61 6e 75 61 6c 6c 79 29 0a 09 20 20 20 20 20 20 28 2c 28 6b 62 64 | -autodoc-manually)........(,(kbd |
| c52c0 | 20 22 53 50 43 22 29 20 2e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 73 70 61 63 65 29 29 29 | ."SPC")...slime-autodoc-space))) |
| c52e0 | 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 65 6c | ...(set.(make-local-variable.'el |
| c5300 | 64 6f 63 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 73 74 72 69 6e 67 29 20 6e 69 6c 29 0a 20 20 28 69 | doc-minor-mode-string).nil)...(i |
| c5320 | 66 20 28 62 6f 75 6e 64 70 20 27 65 6c 64 6f 63 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 66 | f.(boundp.'eldoc-documentation-f |
| c5340 | 75 6e 63 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 65 6c 64 6f 63 | unctions).......(add-hook.'eldoc |
| c5360 | 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 73 20 27 73 6c 69 6d 65 2d | -documentation-functions.'slime- |
| c5380 | 61 75 74 6f 64 6f 63 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d | autodoc.nil.t).......(set.(make- |
| c53a0 | 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 65 6c 64 6f 63 2d 64 6f 63 75 6d 65 6e 74 61 74 | local-variable.'eldoc-documentat |
| c53c0 | 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 20 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 29 29 0a 20 | ion-function).'slime-autodoc)).. |
| c53e0 | 20 28 65 6c 64 6f 63 2d 6d 6f 64 65 20 61 72 67 29 0a 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d | .(eldoc-mode.arg)...(setq.slime- |
| c5400 | 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 20 74 29 0a 20 20 28 77 68 65 6e 20 28 63 61 6c 6c 65 64 2d | autodoc-mode.t)...(when.(called- |
| c5420 | 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2d 70 20 27 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 | interactively-p.'interactive)... |
| c5440 | 20 20 28 6d 65 73 73 61 67 65 20 22 53 6c 69 6d 65 20 61 75 74 6f 64 6f 63 20 6d 6f 64 65 20 25 | ..(message."Slime.autodoc.mode.% |
| c5460 | 73 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 73 6c 69 6d 65 2d 61 75 74 6f 64 | s."..............(if.slime-autod |
| c5480 | 6f 63 2d 6d 6f 64 65 20 22 65 6e 61 62 6c 65 64 22 20 22 64 69 73 61 62 6c 65 64 22 29 29 29 29 | oc-mode."enabled"."disabled")))) |
| c54a0 | 0a 0a 0c 0a 3b 3b 3b 20 4e 6f 69 73 65 20 74 6f 20 65 6e 61 62 6c 65 2f 64 69 73 61 62 6c 65 20 | ....;;;.Noise.to.enable/disable. |
| c54c0 | 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | slime-autodoc-mode..(defun.slime |
| c54e0 | 2d 61 75 74 6f 64 6f 63 2d 2d 6f 6e 20 20 28 29 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d | -autodoc--on..().(slime-autodoc- |
| c5500 | 6d 6f 64 65 20 31 29 29 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 6f | mode.1)).(defun.slime-autodoc--o |
| c5520 | 66 66 20 28 29 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 20 30 29 29 0a 0a 28 | ff.().(slime-autodoc-mode.0))..( |
| c5540 | 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 72 65 6c 65 76 61 6e 74 2d 68 | defvar.slime-autodoc--relevant-h |
| c5560 | 6f 6f 6b 73 0a 20 20 27 28 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 73 6c 69 6d 65 2d 72 | ooks...'(slime-mode-hook.slime-r |
| c5580 | 65 70 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 73 6c 64 62 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 29 0a 0a | epl-mode-hook.sldb-mode-hook)).. |
| c55a0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 65 6e 61 62 6c 65 20 28 29 0a | (defun.slime-autodoc--enable.(). |
| c55c0 | 20 20 28 64 6f 6c 69 73 74 20 28 68 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 72 65 6c 65 | ..(dolist.(h.slime-autodoc--rele |
| c55e0 | 76 61 6e 74 2d 68 6f 6f 6b 73 29 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 68 20 27 73 6c 69 | vant-hooks).....(add-hook.h.'sli |
| c5600 | 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 6f 6e 29 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 62 20 28 62 | me-autodoc--on))...(dolist.(b.(b |
| c5620 | 75 66 66 65 72 2d 6c 69 73 74 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 | uffer-list)).....(with-current-b |
| c5640 | 75 66 66 65 72 20 62 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 6d 6f 64 65 0a 09 | uffer.b.......(when.slime-mode.. |
| c5660 | 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | (slime-autodoc--on)))))..(defun. |
| c5680 | 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 64 69 73 61 62 6c 65 20 28 29 0a 20 20 28 64 6f 6c | slime-autodoc--disable.()...(dol |
| c56a0 | 69 73 74 20 28 68 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 72 65 6c 65 76 61 6e 74 2d 68 | ist.(h.slime-autodoc--relevant-h |
| c56c0 | 6f 6f 6b 73 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 68 20 27 73 6c 69 6d 65 2d | ooks).....(remove-hook.h.'slime- |
| c56e0 | 61 75 74 6f 64 6f 63 2d 2d 6f 6e 29 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 62 20 28 62 75 66 66 | autodoc--on))...(dolist.(b.(buff |
| c5700 | 65 72 2d 6c 69 73 74 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 | er-list)).....(with-current-buff |
| c5720 | 65 72 20 62 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d | er.b.......(when.slime-autodoc-m |
| c5740 | 6f 64 65 0a 09 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 2d 6f 66 66 29 29 29 29 29 0a 0a 28 | ode..(slime-autodoc--off)))))..( |
| c5760 | 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 29 0a 00 00 00 00 00 00 00 00 | provide.'slime-autodoc)......... |
| c5780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c57a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c57c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c57e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 61 72 67 6c 69 73 74 | slime-2.31/contrib/swank-arglist |
| c5820 | 73 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | s.lisp.......................... |
| c5840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| c5880 | 30 32 30 36 31 37 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 32 36 00 20 30 00 00 00 | 0206177.00000000000.016526..0... |
| c58a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c58c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c58e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| c5920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| c5940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c59a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c59c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c59e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5a00 | 3b 3b 3b 20 73 77 61 6e 6b 2d 61 72 67 6c 69 73 74 73 2e 6c 69 73 70 20 2d 2d 2d 20 61 72 67 6c | ;;;.swank-arglists.lisp.---.argl |
| c5a20 | 69 73 74 20 72 65 6c 61 74 65 64 20 63 6f 64 65 20 3f 3f 0a 3b 3b 0a 3b 3b 20 41 75 74 68 6f 72 | ist.related.code.??.;;.;;.Author |
| c5a40 | 73 3a 20 4d 61 74 74 68 69 61 73 20 4b 6f 65 70 70 65 20 20 3c 6d 6b 6f 65 70 70 65 40 6d 61 69 | s:.Matthias.Koeppe..<mkoeppe@mai |
| c5a60 | 6c 2e 6d 61 74 68 2e 75 6e 69 2d 6d 61 67 64 65 62 75 72 67 2e 64 65 3e 0a 3b 3b 20 20 20 20 20 | l.math.uni-magdeburg.de>.;;..... |
| c5a80 | 20 20 20 20 20 54 6f 62 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 | .....Tobias.C..Rittweiler.<tcr@f |
| c5aa0 | 72 65 65 62 69 74 73 2e 64 65 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 6f 74 68 65 | reebits.de>.;;..........and.othe |
| c5ac0 | 72 73 0a 3b 3b 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 0a | rs.;;.;;.License:.Public.Domain. |
| c5ae0 | 3b 3b 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 28 65 76 61 6c 2d 77 | ;;..(in-package.:swank)..(eval-w |
| c5b00 | 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 | hen.(:compile-toplevel.:load-top |
| c5b20 | 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 73 77 61 6e 6b 2d 72 65 71 75 69 72 65 | level.:execute)...(swank-require |
| c5b40 | 20 3a 73 77 61 6e 6b 2d 63 2d 70 2d 63 29 29 0a 0a 3b 3b 3b 3b 20 55 74 69 6c 69 74 69 65 73 0a | .:swank-c-p-c))..;;;;.Utilities. |
| c5b60 | 0a 28 64 65 66 75 6e 20 63 6f 6d 70 6f 73 65 20 28 26 72 65 73 74 20 66 75 6e 63 74 69 6f 6e 73 | .(defun.compose.(&rest.functions |
| c5b80 | 29 0a 20 20 22 43 6f 6d 70 6f 73 65 20 46 55 4e 43 54 49 4f 4e 53 20 72 69 67 68 74 2d 61 73 73 | )..."Compose.FUNCTIONS.right-ass |
| c5ba0 | 6f 63 69 61 74 69 76 65 6c 79 2c 20 72 65 74 75 72 6e 69 6e 67 20 61 20 66 75 6e 63 74 69 6f 6e | ociatively,.returning.a.function |
| c5bc0 | 22 0a 20 20 23 27 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 28 72 65 64 75 63 65 20 | "...#'(lambda.(x).......(reduce. |
| c5be0 | 23 27 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 3a 69 6e 69 74 69 61 6c 2d 76 61 6c | #'funcall.functions.:initial-val |
| c5c00 | 75 65 20 78 20 3a 66 72 6f 6d 2d 65 6e 64 20 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 65 6e 67 | ue.x.:from-end.t)))..(defun.leng |
| c5c20 | 74 68 3d 20 28 73 65 71 20 6e 29 0a 20 20 22 54 65 73 74 20 66 6f 72 20 77 68 65 74 68 65 72 20 | th=.(seq.n)..."Test.for.whether. |
| c5c40 | 53 45 51 20 63 6f 6e 74 61 69 6e 73 20 4e 20 6e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 | SEQ.contains.N.number.of.element |
| c5c60 | 73 2e 20 49 2e 65 2e 20 69 74 27 73 20 65 71 75 69 76 61 6c 65 6e 74 0a 20 74 6f 20 28 3d 20 28 | s..I.e..it's.equivalent..to.(=.( |
| c5c80 | 4c 45 4e 47 54 48 20 53 45 51 29 20 4e 29 2c 20 62 75 74 20 62 65 73 69 64 65 73 20 62 65 69 6e | LENGTH.SEQ).N),.but.besides.bein |
| c5ca0 | 67 20 6d 6f 72 65 20 63 6f 6e 63 69 73 65 2c 20 69 74 20 6d 61 79 20 61 6c 73 6f 20 62 65 20 6d | g.more.concise,.it.may.also.be.m |
| c5cc0 | 6f 72 65 0a 20 65 66 66 69 63 69 65 6e 74 6c 79 20 69 6d 70 6c 65 6d 65 6e 74 65 64 2e 22 0a 20 | ore..efficiently.implemented.".. |
| c5ce0 | 20 28 65 74 79 70 65 63 61 73 65 20 73 65 71 0a 20 20 20 20 28 6c 69 73 74 20 28 64 6f 20 28 28 | .(etypecase.seq.....(list.(do.(( |
| c5d00 | 69 20 6e 20 28 31 2d 20 69 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 | i.n.(1-.i))................(list |
| c5d20 | 20 73 65 71 20 28 63 64 72 20 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .seq.(cdr.list)))............... |
| c5d40 | 28 28 6f 72 20 28 3c 3d 20 69 20 30 29 20 28 6e 75 6c 6c 20 6c 69 73 74 29 29 0a 20 20 20 20 20 | ((or.(<=.i.0).(null.list))...... |
| c5d60 | 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 7a 65 72 6f 70 20 69 29 20 28 6e 75 6c 6c 20 6c | ..........(and.(zerop.i).(null.l |
| c5d80 | 69 73 74 29 29 29 29 29 0a 20 20 20 20 28 73 65 71 75 65 6e 63 65 20 28 3d 20 28 6c 65 6e 67 74 | ist))))).....(sequence.(=.(lengt |
| c5da0 | 68 20 73 65 71 29 20 6e 29 29 29 29 0a 0a 28 64 65 63 6c 61 69 6d 20 28 69 6e 6c 69 6e 65 20 6d | h.seq).n))))..(declaim.(inline.m |
| c5dc0 | 65 6d 71 29 29 0a 28 64 65 66 75 6e 20 6d 65 6d 71 20 28 69 74 65 6d 20 6c 69 73 74 29 0a 20 20 | emq)).(defun.memq.(item.list)... |
| c5de0 | 28 6d 65 6d 62 65 72 20 69 74 65 6d 20 6c 69 73 74 20 3a 74 65 73 74 20 23 27 65 71 29 29 0a 0a | (member.item.list.:test.#'eq)).. |
| c5e00 | 28 64 65 66 75 6e 20 65 78 61 63 74 6c 79 2d 6f 6e 65 2d 70 20 28 26 72 65 73 74 20 76 61 6c 75 | (defun.exactly-one-p.(&rest.valu |
| c5e20 | 65 73 29 0a 20 20 22 49 66 20 65 78 61 63 74 6c 79 20 6f 6e 65 20 76 61 6c 75 65 20 69 6e 20 56 | es)..."If.exactly.one.value.in.V |
| c5e40 | 41 4c 55 45 53 20 69 73 20 6e 6f 6e 2d 4e 49 4c 2c 20 74 68 69 73 20 76 61 6c 75 65 20 69 73 20 | ALUES.is.non-NIL,.this.value.is. |
| c5e60 | 72 65 74 75 72 6e 65 64 2e 0a 4f 74 68 65 72 77 69 73 65 20 4e 49 4c 20 69 73 20 72 65 74 75 72 | returned..Otherwise.NIL.is.retur |
| c5e80 | 6e 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 6f 75 6e 64 20 6e 69 6c 29 29 0a 20 20 20 20 28 | ned."...(let.((found.nil)).....( |
| c5ea0 | 64 6f 6c 69 73 74 20 28 76 20 76 61 6c 75 65 73 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 76 20 | dolist.(v.values).......(when.v. |
| c5ec0 | 28 69 66 20 66 6f 75 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 | (if.found...................(ret |
| c5ee0 | 75 72 6e 2d 66 72 6f 6d 20 65 78 61 63 74 6c 79 2d 6f 6e 65 2d 70 20 6e 69 6c 29 0a 20 20 20 20 | urn-from.exactly-one-p.nil)..... |
| c5f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 6f 75 6e 64 20 76 29 29 29 29 0a | ..............(setq.found.v)))). |
| c5f20 | 20 20 20 20 66 6f 75 6e 64 29 29 0a 0a 28 64 65 66 75 6e 20 76 61 6c 69 64 2d 6f 70 65 72 61 74 | ....found))..(defun.valid-operat |
| c5f40 | 6f 72 2d 73 79 6d 62 6f 6c 2d 70 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 49 73 20 53 59 4d 42 4f | or-symbol-p.(symbol)..."Is.SYMBO |
| c5f60 | 4c 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 66 75 6e 63 74 69 6f 6e 2c 20 61 20 6d 61 63 72 | L.the.name.of.a.function,.a.macr |
| c5f80 | 6f 2c 20 6f 72 20 61 20 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 3f 22 0a 20 20 28 6f 72 | o,.or.a.special-operator?"...(or |
| c5fa0 | 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 66 | .(fboundp.symbol).......(macro-f |
| c5fc0 | 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 73 70 65 63 69 61 6c 2d 6f | unction.symbol).......(special-o |
| c5fe0 | 70 65 72 61 74 6f 72 2d 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 | perator-p.symbol).......(member. |
| c6000 | 73 79 6d 62 6f 6c 20 27 28 64 65 63 6c 61 72 65 20 64 65 63 6c 61 69 6d 29 29 29 29 0a 0a 28 64 | symbol.'(declare.declaim))))..(d |
| c6020 | 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 65 78 69 73 74 73 2d 70 20 28 66 6f 72 6d 29 0a 20 20 | efun.function-exists-p.(form)... |
| c6040 | 28 61 6e 64 20 28 76 61 6c 69 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 20 66 6f 72 6d | (and.(valid-function-name-p.form |
| c6060 | 29 0a 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 74 | )........(fboundp.form)........t |
| c6080 | 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6f 72 20 | ))..(defmacro.multiple-value-or. |
| c60a0 | 28 26 72 65 73 74 20 66 6f 72 6d 73 29 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 66 6f 72 6d 73 29 | (&rest.forms)...(if.(null.forms) |
| c60c0 | 0a 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 72 73 74 20 28 66 | .......nil.......(let.((first.(f |
| c60e0 | 69 72 73 74 20 66 6f 72 6d 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 74 20 28 | irst.forms)).............(rest.( |
| c6100 | 72 65 73 74 20 66 6f 72 6d 73 29 29 29 0a 20 20 20 20 20 20 20 20 60 28 6c 65 74 2a 20 28 28 76 | rest.forms))).........`(let*.((v |
| c6120 | 61 6c 75 65 73 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 2c 66 69 72 73 | alues.(multiple-value-list.,firs |
| c6140 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6d 61 72 79 2d 76 61 6c | t)).................(primary-val |
| c6160 | 75 65 20 28 66 69 72 73 74 20 76 61 6c 75 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 | ue.(first.values)))...........(i |
| c6180 | 66 20 70 72 69 6d 61 72 79 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 | f.primary-value...............(v |
| c61a0 | 61 6c 75 65 73 2d 6c 69 73 74 20 76 61 6c 75 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | alues-list.values).............. |
| c61c0 | 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6f 72 20 2c 40 72 65 73 74 29 29 29 29 29 29 | .(multiple-value-or.,@rest)))))) |
| c61e0 | 0a 0a 28 64 65 66 75 6e 20 61 72 67 6c 69 73 74 2d 61 76 61 69 6c 61 62 6c 65 2d 70 20 28 61 72 | ..(defun.arglist-available-p.(ar |
| c6200 | 67 6c 69 73 74 29 0a 20 20 28 6e 6f 74 20 28 65 71 6c 20 61 72 67 6c 69 73 74 20 3a 6e 6f 74 2d | glist)...(not.(eql.arglist.:not- |
| c6220 | 61 76 61 69 6c 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 61 76 61 | available)))..(defmacro.with-ava |
| c6240 | 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 74 20 28 28 76 61 72 20 26 72 65 73 74 20 6d 6f 72 65 2d | ilable-arglist.((var.&rest.more- |
| c6260 | 76 61 72 73 29 20 66 6f 72 6d 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 60 28 6d 75 6c 74 69 | vars).form.&body.body)...`(multi |
| c6280 | 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 2c 76 61 72 20 2c 40 6d 6f 72 65 2d 76 61 72 73 | ple-value-bind.(,var.,@more-vars |
| c62a0 | 29 20 2c 66 6f 72 6d 0a 20 20 20 20 20 28 69 66 20 28 65 71 6c 20 2c 76 61 72 20 3a 6e 6f 74 2d | ).,form......(if.(eql.,var.:not- |
| c62c0 | 61 76 61 69 6c 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 | available)..........:not-availab |
| c62e0 | 6c 65 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 29 29 29 0a 0a 0a | le..........(progn.,@body))))... |
| c6300 | 3b 3b 3b 3b 20 41 72 67 6c 69 73 74 20 44 65 66 69 6e 69 74 69 6f 6e 0a 0a 28 64 65 66 73 74 72 | ;;;;.Arglist.Definition..(defstr |
| c6320 | 75 63 74 20 28 61 72 67 6c 69 73 74 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 61 72 67 6c 69 73 74 | uct.(arglist.(:conc-name.arglist |
| c6340 | 2e 29 20 28 3a 70 72 65 64 69 63 61 74 65 20 61 72 67 6c 69 73 74 2d 70 29 29 0a 20 20 70 72 6f | .).(:predicate.arglist-p))...pro |
| c6360 | 76 69 64 65 64 2d 61 72 67 73 20 20 20 20 20 20 20 20 20 3b 20 6c 69 73 74 20 6f 66 20 74 68 65 | vided-args.........;.list.of.the |
| c6380 | 20 70 72 6f 76 69 64 65 64 20 61 63 74 75 61 6c 20 61 72 67 75 6d 65 6e 74 73 0a 20 20 72 65 71 | .provided.actual.arguments...req |
| c63a0 | 75 69 72 65 64 2d 61 72 67 73 20 20 20 20 20 20 20 20 20 3b 20 6c 69 73 74 20 6f 66 20 74 68 65 | uired-args.........;.list.of.the |
| c63c0 | 20 72 65 71 75 69 72 65 64 20 61 72 67 75 6d 65 6e 74 73 0a 20 20 6f 70 74 69 6f 6e 61 6c 2d 61 | .required.arguments...optional-a |
| c63e0 | 72 67 73 20 20 20 20 20 20 20 20 20 3b 20 6c 69 73 74 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e | rgs.........;.list.of.the.option |
| c6400 | 61 6c 20 61 72 67 75 6d 65 6e 74 73 0a 20 20 6b 65 79 2d 70 20 20 20 20 20 20 20 20 20 20 20 20 | al.arguments...key-p............ |
| c6420 | 20 20 20 20 20 3b 20 77 68 65 74 68 65 72 20 26 6b 65 79 20 61 70 70 65 61 72 65 64 0a 20 20 6b | .....;.whether.&key.appeared...k |
| c6440 | 65 79 77 6f 72 64 2d 61 72 67 73 20 20 20 20 20 20 20 20 20 20 3b 20 6c 69 73 74 20 6f 66 20 74 | eyword-args..........;.list.of.t |
| c6460 | 68 65 20 6b 65 79 77 6f 72 64 73 0a 20 20 72 65 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | he.keywords...rest.............. |
| c6480 | 20 20 20 20 3b 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 26 72 65 73 74 20 6f 72 20 26 62 6f 64 79 | ....;.name.of.the.&rest.or.&body |
| c64a0 | 20 61 72 67 75 6d 65 6e 74 20 28 69 66 20 61 6e 79 29 0a 20 20 62 6f 64 79 2d 70 20 20 20 20 20 | .argument.(if.any)...body-p..... |
| c64c0 | 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 68 65 74 68 65 72 20 74 68 65 20 72 65 73 74 20 61 72 | ...........;.whether.the.rest.ar |
| c64e0 | 67 75 6d 65 6e 74 20 69 73 20 61 20 26 62 6f 64 79 0a 20 20 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d | gument.is.a.&body...allow-other- |
| c6500 | 6b 65 79 73 2d 70 20 20 20 20 3b 20 77 68 65 74 68 65 72 20 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 | keys-p....;.whether.&allow-other |
| c6520 | 2d 6b 65 79 73 20 61 70 70 65 61 72 65 64 0a 20 20 61 75 78 2d 61 72 67 73 20 20 20 20 20 20 20 | -keys.appeared...aux-args....... |
| c6540 | 20 20 20 20 20 20 20 3b 20 6c 69 73 74 20 6f 66 20 26 61 75 78 20 76 61 72 69 61 62 6c 65 73 0a | .......;.list.of.&aux.variables. |
| c6560 | 20 20 61 6e 79 2d 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 68 65 74 68 65 | ..any-p.................;.whethe |
| c6580 | 72 20 26 61 6e 79 20 61 70 70 65 61 72 65 64 0a 20 20 61 6e 79 2d 61 72 67 73 20 20 20 20 20 20 | r.&any.appeared...any-args...... |
| c65a0 | 20 20 20 20 20 20 20 20 3b 20 6c 69 73 74 20 6f 66 20 26 61 6e 79 20 61 72 67 75 6d 65 6e 74 73 | ........;.list.of.&any.arguments |
| c65c0 | 20 20 5b 2a 5d 0a 20 20 6b 6e 6f 77 6e 2d 6a 75 6e 6b 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 | ..[*]...known-junk............;. |
| c65e0 | 26 77 68 6f 6c 65 2c 20 26 65 6e 76 69 72 6f 6e 6d 65 6e 74 0a 20 20 75 6e 6b 6e 6f 77 6e 2d 6a | &whole,.&environment...unknown-j |
| c6600 | 75 6e 6b 29 20 20 20 20 20 20 20 20 20 3b 20 75 6e 70 61 72 73 65 64 20 73 74 75 66 66 0a 0a 28 | unk).........;.unparsed.stuff..( |
| c6620 | 64 65 66 73 74 72 75 63 74 20 28 6b 65 79 77 6f 72 64 2d 61 72 67 0a 20 20 20 20 20 20 20 20 20 | defstruct.(keyword-arg.......... |
| c6640 | 20 20 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 6b 65 79 77 6f 72 64 2d 61 72 67 2e 29 0a 20 20 20 | ...(:conc-name.keyword-arg.).... |
| c6660 | 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 25 6d 61 6b 65 2d 6b 65 79 | .........(:constructor.%make-key |
| c6680 | 77 6f 72 64 2d 61 72 67 29 29 0a 20 20 6b 65 79 77 6f 72 64 0a 20 20 61 72 67 2d 6e 61 6d 65 0a | word-arg))...keyword...arg-name. |
| c66a0 | 20 20 64 65 66 61 75 6c 74 2d 61 72 67 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 6b 65 79 77 | ..default-arg)..(defun.make-keyw |
| c66c0 | 6f 72 64 2d 61 72 67 20 28 6b 65 79 77 6f 72 64 20 61 72 67 2d 6e 61 6d 65 20 64 65 66 61 75 6c | ord-arg.(keyword.arg-name.defaul |
| c66e0 | 74 2d 61 72 67 29 0a 20 20 28 25 6d 61 6b 65 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 3a 6b 65 79 | t-arg)...(%make-keyword-arg.:key |
| c6700 | 77 6f 72 64 20 6b 65 79 77 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | word.keyword.................... |
| c6720 | 20 20 3a 61 72 67 2d 6e 61 6d 65 20 61 72 67 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 | ..:arg-name.arg-name............ |
| c6740 | 20 20 20 20 20 20 20 20 20 20 3a 64 65 66 61 75 6c 74 2d 61 72 67 20 28 63 61 6e 6f 6e 69 63 61 | ..........:default-arg.(canonica |
| c6760 | 6c 69 7a 65 2d 64 65 66 61 75 6c 74 2d 61 72 67 20 64 65 66 61 75 6c 74 2d 61 72 67 29 29 29 0a | lize-default-arg.default-arg))). |
| c6780 | 0a 3b 3b 3b 20 46 49 58 4d 45 20 73 75 70 70 6c 69 65 64 70 3f 0a 28 64 65 66 73 74 72 75 63 74 | .;;;.FIXME.suppliedp?.(defstruct |
| c67a0 | 20 28 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e | .(optional-arg.............(:con |
| c67c0 | 63 2d 6e 61 6d 65 20 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 2e 29 0a 20 20 20 20 20 20 20 20 20 20 | c-name.optional-arg.)........... |
| c67e0 | 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 25 6d 61 6b 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 | ..(:constructor.%make-optional-a |
| c6800 | 72 67 29 29 0a 20 20 61 72 67 2d 6e 61 6d 65 0a 20 20 64 65 66 61 75 6c 74 2d 61 72 67 29 0a 0a | rg))...arg-name...default-arg).. |
| c6820 | 28 64 65 66 75 6e 20 6d 61 6b 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 20 28 61 72 67 2d 6e 61 | (defun.make-optional-arg.(arg-na |
| c6840 | 6d 65 20 64 65 66 61 75 6c 74 2d 61 72 67 29 0a 20 20 28 25 6d 61 6b 65 2d 6f 70 74 69 6f 6e 61 | me.default-arg)...(%make-optiona |
| c6860 | 6c 2d 61 72 67 20 3a 61 72 67 2d 6e 61 6d 65 20 61 72 67 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 | l-arg.:arg-name.arg-name........ |
| c6880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 66 61 75 6c 74 2d 61 72 67 20 28 63 61 6e | ...............:default-arg.(can |
| c68a0 | 6f 6e 69 63 61 6c 69 7a 65 2d 64 65 66 61 75 6c 74 2d 61 72 67 20 64 65 66 61 75 6c 74 2d 61 72 | onicalize-default-arg.default-ar |
| c68c0 | 67 29 29 29 0a 0a 3b 3b 3b 0a 3b 3b 3b 20 5b 2a 5d 20 54 68 65 20 26 41 4e 59 20 6c 61 6d 62 64 | g)))..;;;.;;;.[*].The.&ANY.lambd |
| c68e0 | 61 20 6b 65 79 77 6f 72 64 20 69 73 20 61 6e 20 65 78 74 65 6e 73 69 6f 6e 20 74 6f 20 41 4e 53 | a.keyword.is.an.extension.to.ANS |
| c6900 | 49 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2c 0a 3b 3b 3b 20 20 20 20 20 61 6e 64 20 69 73 20 6f 6e | I.Common.Lisp,.;;;.....and.is.on |
| c6920 | 6c 79 20 75 73 65 64 20 74 6f 20 64 65 73 63 72 69 62 65 20 63 65 72 74 61 69 6e 20 61 72 67 6c | ly.used.to.describe.certain.argl |
| c6940 | 69 73 74 73 20 74 68 61 74 20 63 61 6e 6e 6f 74 20 62 65 0a 3b 3b 3b 20 20 20 20 20 64 65 73 63 | ists.that.cannot.be.;;;.....desc |
| c6960 | 72 69 62 65 64 20 69 6e 20 61 6e 6f 74 68 65 72 20 77 61 79 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 | ribed.in.another.way..;;;.;;;... |
| c6980 | 20 20 26 41 4e 59 20 69 73 20 76 65 72 79 20 73 69 6d 69 6c 69 61 72 20 74 6f 20 26 4b 45 59 20 | ..&ANY.is.very.similiar.to.&KEY. |
| c69a0 | 62 75 74 20 77 68 69 6c 65 20 26 4b 45 59 20 69 73 20 62 61 73 65 64 20 75 70 6f 6e 0a 3b 3b 3b | but.while.&KEY.is.based.upon.;;; |
| c69c0 | 20 20 20 20 20 74 68 65 20 69 64 65 61 20 6f 66 20 61 20 70 6c 69 73 74 20 28 6b 65 79 31 20 76 | .....the.idea.of.a.plist.(key1.v |
| c69e0 | 61 6c 75 65 31 20 6b 65 79 32 20 76 61 6c 75 65 32 29 2c 20 26 41 4e 59 20 69 73 20 61 0a 3b 3b | alue1.key2.value2),.&ANY.is.a.;; |
| c6a00 | 3b 20 20 20 20 20 63 72 6f 73 73 20 62 65 74 77 65 65 6e 20 26 4f 50 54 49 4f 4e 41 4c 2c 20 26 | ;.....cross.between.&OPTIONAL,.& |
| c6a20 | 4b 45 59 20 61 6e 64 20 2a 46 45 41 54 55 52 45 53 2a 20 6c 69 73 74 73 3a 0a 3b 3b 3b 0a 3b 3b | KEY.and.*FEATURES*.lists:.;;;.;; |
| c6a40 | 3b 20 20 20 20 20 20 20 20 61 29 20 28 26 41 4e 59 20 3a 41 20 3a 42 20 3a 43 29 20 6d 65 61 6e | ;........a).(&ANY.:A.:B.:C).mean |
| c6a60 | 73 20 74 68 61 74 20 79 6f 75 20 63 61 6e 20 70 72 6f 76 69 64 65 20 61 6e 79 20 28 6e 6f 6e 2d | s.that.you.can.provide.any.(non- |
| c6a80 | 6e 75 6c 6c 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 63 6f 6e 73 69 | null).;;;..............set.consi |
| c6aa0 | 73 74 69 6e 67 20 6f 66 20 74 68 65 20 6b 65 79 77 6f 72 64 73 20 60 3a 41 27 2c 20 60 3a 42 27 | sting.of.the.keywords.`:A',.`:B' |
| c6ac0 | 2c 20 6f 72 20 60 3a 43 27 20 69 6e 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 | ,.or.`:C'.in.;;;..............th |
| c6ae0 | 65 20 61 72 67 6c 69 73 74 2e 20 45 2e 67 2e 20 28 3a 41 29 20 6f 72 20 28 3a 43 20 3a 42 20 3a | e.arglist..E.g..(:A).or.(:C.:B.: |
| c6b00 | 41 29 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 20 20 20 20 28 54 68 69 73 20 69 73 20 6e 6f 74 20 | A)..;;;.;;;........(This.is.not. |
| c6b20 | 72 65 73 74 72 69 63 74 65 64 20 74 6f 20 6b 65 79 77 6f 72 64 73 20 6f 6e 6c 79 2c 20 62 75 74 | restricted.to.keywords.only,.but |
| c6b40 | 20 61 6e 79 20 73 65 6c 66 2d 65 76 61 6c 75 61 74 69 6e 67 0a 3b 3b 3b 20 20 20 20 20 20 20 20 | .any.self-evaluating.;;;........ |
| c6b60 | 20 65 78 70 72 65 73 73 69 6f 6e 20 69 73 20 61 6c 6c 6f 77 65 64 2e 29 0a 3b 3b 3b 0a 3b 3b 3b | .expression.is.allowed.).;;;.;;; |
| c6b80 | 20 20 20 20 20 20 20 20 62 29 20 28 26 41 4e 59 20 28 6b 65 79 31 20 76 31 29 20 28 6b 65 79 32 | ........b).(&ANY.(key1.v1).(key2 |
| c6ba0 | 20 76 32 29 20 28 6b 65 79 33 20 76 33 29 29 20 6d 65 61 6e 73 20 74 68 61 74 20 79 6f 75 20 63 | .v2).(key3.v3)).means.that.you.c |
| c6bc0 | 61 6e 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 76 69 64 65 20 61 6e 79 20 | an.;;;..............provide.any. |
| c6be0 | 28 6e 6f 6e 2d 6e 75 6c 6c 29 20 73 65 74 20 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 6c 69 73 | (non-null).set.consisting.of.lis |
| c6c00 | 74 73 20 77 68 65 72 65 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 43 41 | ts.where.;;;..............the.CA |
| c6c20 | 52 20 6f 66 20 74 68 65 20 6c 69 73 74 20 69 73 20 6f 6e 65 20 6f 66 20 60 6b 65 79 31 27 2c 20 | R.of.the.list.is.one.of.`key1',. |
| c6c40 | 60 6b 65 79 32 27 2c 20 6f 72 20 60 6b 65 79 33 27 2e 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 | `key2',.or.`key3'..;;;.......... |
| c6c60 | 20 20 20 20 45 2e 67 2e 20 28 28 6b 65 79 31 20 31 30 30 29 20 28 6b 65 79 33 20 34 32 29 29 2c | ....E.g..((key1.100).(key3.42)), |
| c6c80 | 20 6f 72 20 28 28 6b 65 79 33 20 36 36 29 20 28 6b 65 79 32 20 32 33 29 29 0a 3b 3b 3b 0a 3b 3b | .or.((key3.66).(key2.23)).;;;.;; |
| c6ca0 | 3b 0a 3b 3b 3b 20 20 20 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 61 29 20 6c 65 74 20 75 73 | ;.;;;.....For.example,.a).let.us |
| c6cc0 | 20 64 65 73 63 72 69 62 65 20 74 68 65 20 73 69 74 75 61 74 69 6f 6e 73 20 6f 66 20 45 56 41 4c | .describe.the.situations.of.EVAL |
| c6ce0 | 2d 57 48 45 4e 20 61 73 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 20 28 45 56 41 4c 2d 57 48 45 4e 20 | -WHEN.as.;;;.;;;.....(EVAL-WHEN. |
| c6d00 | 28 26 41 4e 59 20 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f | (&ANY.:compile-toplevel.:load-to |
| c6d20 | 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 20 26 42 4f 44 59 20 62 6f 64 79 29 0a 3b 3b 3b | plevel.:execute).&BODY.body).;;; |
| c6d40 | 0a 3b 3b 3b 20 20 20 20 20 61 6e 64 20 62 29 20 6c 65 74 20 75 73 20 64 65 73 63 72 69 62 65 20 | .;;;.....and.b).let.us.describe. |
| c6d60 | 74 68 65 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 20 71 75 61 6c 69 66 69 65 72 73 20 74 68 61 74 | the.optimization.qualifiers.that |
| c6d80 | 20 61 72 65 20 76 61 6c 69 64 0a 3b 3b 3b 20 20 20 20 20 69 6e 20 74 68 65 20 64 65 63 6c 61 72 | .are.valid.;;;.....in.the.declar |
| c6da0 | 61 74 69 6f 6e 20 73 70 65 63 69 66 69 65 72 20 60 4f 50 54 49 4d 49 5a 45 27 3a 0a 3b 3b 3b 0a | ation.specifier.`OPTIMIZE':.;;;. |
| c6dc0 | 3b 3b 3b 20 20 20 20 20 20 20 28 44 45 43 4c 41 52 45 20 28 4f 50 54 49 4d 49 5a 45 20 26 41 4e | ;;;.......(DECLARE.(OPTIMIZE.&AN |
| c6de0 | 59 20 28 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 73 70 65 65 64 20 31 29 20 28 73 61 66 65 74 79 20 | Y.(compilation-speed.1).(safety. |
| c6e00 | 31 29 20 2e 2e 2e 29 29 0a 3b 3b 3b 0a 0a 3b 3b 20 54 68 69 73 20 69 73 20 61 20 77 72 61 70 70 | 1)....)).;;;..;;.This.is.a.wrapp |
| c6e20 | 65 72 20 6f 62 6a 65 63 74 20 61 72 6f 75 6e 64 20 61 6e 79 74 68 69 6e 67 20 74 68 61 74 20 63 | er.object.around.anything.that.c |
| c6e40 | 61 6d 65 20 66 72 6f 6d 20 53 6c 69 6d 65 20 61 6e 64 0a 3b 3b 20 63 6f 75 6c 64 20 6e 6f 74 20 | ame.from.Slime.and.;;.could.not. |
| c6e60 | 72 65 6c 69 61 62 6c 79 20 62 65 20 72 65 61 64 2e 0a 28 64 65 66 73 74 72 75 63 74 20 28 61 72 | reliably.be.read..(defstruct.(ar |
| c6e80 | 67 6c 69 73 74 2d 64 75 6d 6d 79 0a 09 20 20 20 20 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 23 3a | glist-dummy.......(:conc-name.#: |
| c6ea0 | 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 | arglist-dummy.)..............(:c |
| c6ec0 | 6f 6e 73 74 72 75 63 74 6f 72 20 6d 61 6b 65 2d 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 20 28 73 | onstructor.make-arglist-dummy.(s |
| c6ee0 | 74 72 69 6e 67 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 29 0a 20 20 73 74 72 69 6e 67 | tring-representation)))...string |
| c6f00 | 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 65 6d 70 74 79 2d 61 | -representation)..(defun.empty-a |
| c6f20 | 72 67 2d 70 20 28 64 75 6d 6d 79 29 0a 20 20 28 61 6e 64 20 28 61 72 67 6c 69 73 74 2d 64 75 6d | rg-p.(dummy)...(and.(arglist-dum |
| c6f40 | 6d 79 2d 70 20 64 75 6d 6d 79 29 0a 20 20 20 20 20 20 20 28 7a 65 72 6f 70 20 28 6c 65 6e 67 74 | my-p.dummy)........(zerop.(lengt |
| c6f60 | 68 20 28 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 2e 73 74 72 69 6e 67 2d 72 65 70 72 65 73 65 6e | h.(arglist-dummy.string-represen |
| c6f80 | 74 61 74 69 6f 6e 20 64 75 6d 6d 79 29 29 29 29 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a | tation.dummy)))))..(eval-when.(: |
| c6fa0 | 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 | compile-toplevel.:load-toplevel. |
| c6fc0 | 3a 65 78 65 63 75 74 65 29 0a 20 20 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2b 6c 61 6d 62 64 | :execute)...(defparameter.+lambd |
| c6fe0 | 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 2b 0a 20 20 20 20 27 28 26 70 72 6f 76 69 64 65 64 | a-list-keywords+.....'(&provided |
| c7000 | 20 26 72 65 71 75 69 72 65 64 20 26 6f 70 74 69 6f 6e 61 6c 20 26 72 65 73 74 20 26 6b 65 79 20 | .&required.&optional.&rest.&key. |
| c7020 | 26 61 6e 79 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 6f 2d 64 65 63 6f 64 65 64 2d 61 72 | &any)))..(defmacro.do-decoded-ar |
| c7040 | 67 6c 69 73 74 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 26 62 6f 64 79 20 63 6c 61 | glist.(decoded-arglist.&body.cla |
| c7060 | 75 73 65 73 29 0a 20 20 28 61 73 73 65 72 74 20 28 6c 6f 6f 70 20 66 6f 72 20 63 6c 61 75 73 65 | uses)...(assert.(loop.for.clause |
| c7080 | 20 69 6e 20 63 6c 61 75 73 65 73 0a 09 09 74 68 65 72 65 69 73 20 28 6d 65 6d 62 65 72 20 28 63 | .in.clauses...thereis.(member.(c |
| c70a0 | 61 72 20 63 6c 61 75 73 65 29 20 2b 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 | ar.clause).+lambda-list-keywords |
| c70c0 | 2b 29 29 29 0a 20 20 28 66 6c 65 74 20 28 28 70 61 72 73 65 2d 63 6c 61 75 73 65 73 20 28 63 6c | +)))...(flet.((parse-clauses.(cl |
| c70e0 | 61 75 73 65 73 29 0a 09 20 20 20 28 6c 65 74 2a 20 28 28 73 69 7a 65 20 20 20 20 28 6c 65 6e 67 | auses).....(let*.((size....(leng |
| c7100 | 74 68 20 2b 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 2b 29 29 0a 09 09 20 20 | th.+lambda-list-keywords+))..... |
| c7120 | 28 69 6e 69 74 69 61 6c 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 | (initial.(make-hash-table.:test. |
| c7140 | 23 27 65 71 20 3a 73 69 7a 65 20 73 69 7a 65 29 29 0a 09 09 20 20 28 6d 61 69 6e 20 20 20 20 28 | #'eq.:size.size)).....(main....( |
| c7160 | 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 20 3a 73 69 7a 65 | make-hash-table.:test.#'eq.:size |
| c7180 | 20 73 69 7a 65 29 29 0a 09 09 20 20 28 66 69 6e 61 6c 20 20 20 28 6d 61 6b 65 2d 68 61 73 68 2d | .size)).....(final...(make-hash- |
| c71a0 | 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 20 3a 73 69 7a 65 20 73 69 7a 65 29 29 29 0a 09 | table.:test.#'eq.:size.size))).. |
| c71c0 | 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 6c 61 75 73 65 20 69 6e 20 63 6c 61 75 73 65 73 | .....(loop.for.clause.in.clauses |
| c71e0 | 0a 09 09 20 20 20 66 6f 72 20 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 20 3d 20 | ......for.lambda-list-keyword.=. |
| c7200 | 28 66 69 72 73 74 20 63 6c 61 75 73 65 29 0a 09 09 20 20 20 66 6f 72 20 63 6c 61 75 73 65 2d 70 | (first.clause)......for.clause-p |
| c7220 | 61 72 61 6d 65 74 65 72 20 20 20 20 3d 20 28 73 65 63 6f 6e 64 20 63 6c 61 75 73 65 29 0a 09 09 | arameter....=.(second.clause)... |
| c7240 | 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 73 65 20 63 | ...do....................(case.c |
| c7260 | 6c 61 75 73 65 2d 70 61 72 61 6d 65 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lause-parameter................. |
| c7280 | 20 20 20 20 20 28 3a 69 6e 69 74 69 61 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(:initially................ |
| c72a0 | 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 6c 61 6d 62 64 61 2d 6c 69 73 | .......(setf.(gethash.lambda-lis |
| c72c0 | 74 2d 6b 65 79 77 6f 72 64 20 69 6e 69 74 69 61 6c 29 20 63 6c 61 75 73 65 29 29 0a 20 20 20 20 | t-keyword.initial).clause))..... |
| c72e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6e 61 6c 6c 79 0a 20 20 20 20 20 | .................(:finally...... |
| c7300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 | .................(setf.(gethash. |
| c7320 | 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 20 66 69 6e 61 6c 29 20 63 6c 61 75 73 | lambda-list-keyword.final).claus |
| c7340 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 | e))......................(t..... |
| c7360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 | ..................(setf.(gethash |
| c7380 | 20 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 20 6d 61 69 6e 29 20 63 6c 61 75 73 | .lambda-list-keyword.main).claus |
| c73a0 | 65 29 29 29 0a 09 09 20 20 20 66 69 6e 61 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e)))......finally............... |
| c73c0 | 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 69 6e 69 74 69 61 6c 20 6d 61 69 | .....(return.(values.initial.mai |
| c73e0 | 6e 20 66 69 6e 61 6c 29 29 29 29 29 0a 09 20 28 67 65 6e 65 72 61 74 65 2d 6d 61 69 6e 2d 63 6c | n.final)))))...(generate-main-cl |
| c7400 | 61 75 73 65 20 28 63 6c 61 75 73 65 20 61 72 67 6c 69 73 74 29 0a 09 20 20 20 28 64 63 61 73 65 | ause.(clause.arglist).....(dcase |
| c7420 | 20 63 6c 61 75 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 26 70 72 6f 76 69 64 65 64 | .clause..............((&provided |
| c7440 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 2e 20 62 6f 64 79 29 0a 20 20 20 20 20 20 20 | .(&optional.arg)...body)........ |
| c7460 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 67 65 6e 73 79 6d 20 28 67 65 6e 73 79 6d 20 22 50 52 | .......(let.((gensym.(gensym."PR |
| c7480 | 4f 56 49 44 45 44 2d 41 52 47 2b 22 29 29 29 0a 09 09 60 28 64 6f 6c 69 73 74 20 28 2c 67 65 6e | OVIDED-ARG+")))...`(dolist.(,gen |
| c74a0 | 73 79 6d 20 28 61 72 67 6c 69 73 74 2e 70 72 6f 76 69 64 65 64 2d 61 72 67 73 20 2c 61 72 67 6c | sym.(arglist.provided-args.,argl |
| c74c0 | 69 73 74 29 29 0a 09 09 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 61 62 6c 65 20 2c | ist))......(declare.(ignorable., |
| c74e0 | 67 65 6e 73 79 6d 29 29 0a 09 09 20 20 20 28 6c 65 74 20 28 2c 40 28 77 68 65 6e 20 61 72 67 20 | gensym))......(let.(,@(when.arg. |
| c7500 | 60 28 28 2c 61 72 67 20 2c 67 65 6e 73 79 6d 29 29 29 29 0a 09 09 20 20 20 20 20 2c 40 62 6f 64 | `((,arg.,gensym))))........,@bod |
| c7520 | 79 29 29 29 29 0a 09 20 20 20 20 20 28 28 26 72 65 71 75 69 72 65 64 20 28 26 6f 70 74 69 6f 6e | y)))).......((&required.(&option |
| c7540 | 61 6c 20 61 72 67 29 20 2e 20 62 6f 64 79 29 0a 09 20 20 20 20 20 20 28 6c 65 74 20 28 28 67 65 | al.arg)...body)........(let.((ge |
| c7560 | 6e 73 79 6d 20 28 67 65 6e 73 79 6d 20 22 52 45 51 55 49 52 45 44 2d 41 52 47 2b 22 29 29 29 0a | nsym.(gensym."REQUIRED-ARG+"))). |
| c7580 | 09 09 60 28 64 6f 6c 69 73 74 20 28 2c 67 65 6e 73 79 6d 20 28 61 72 67 6c 69 73 74 2e 72 65 71 | ..`(dolist.(,gensym.(arglist.req |
| c75a0 | 75 69 72 65 64 2d 61 72 67 73 20 2c 61 72 67 6c 69 73 74 29 29 0a 09 09 20 20 20 28 64 65 63 6c | uired-args.,arglist))......(decl |
| c75c0 | 61 72 65 20 28 69 67 6e 6f 72 61 62 6c 65 20 2c 67 65 6e 73 79 6d 29 29 0a 09 09 20 20 20 28 6c | are.(ignorable.,gensym))......(l |
| c75e0 | 65 74 20 28 2c 40 28 77 68 65 6e 20 61 72 67 20 60 28 28 2c 61 72 67 20 2c 67 65 6e 73 79 6d 29 | et.(,@(when.arg.`((,arg.,gensym) |
| c7600 | 29 29 29 0a 09 09 20 20 20 20 20 2c 40 62 6f 64 79 29 29 29 29 0a 09 20 20 20 20 20 28 28 26 6f | )))........,@body)))).......((&o |
| c7620 | 70 74 69 6f 6e 61 6c 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 20 69 6e 69 74 29 20 2e 20 62 | ptional.(&optional.arg.init)...b |
| c7640 | 6f 64 79 29 0a 09 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 70 74 61 72 67 20 28 67 65 6e 73 79 | ody)........(let.((optarg.(gensy |
| c7660 | 6d 20 22 4f 50 54 49 4f 4e 41 4c 2d 41 52 47 2b 22 29 29 29 0a 09 09 60 28 64 6f 6c 69 73 74 20 | m."OPTIONAL-ARG+")))...`(dolist. |
| c7680 | 28 2c 6f 70 74 61 72 67 20 28 61 72 67 6c 69 73 74 2e 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 73 20 | (,optarg.(arglist.optional-args. |
| c76a0 | 2c 61 72 67 6c 69 73 74 29 29 0a 09 09 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 61 | ,arglist))......(declare.(ignora |
| c76c0 | 62 6c 65 20 2c 6f 70 74 61 72 67 29 29 0a 09 09 20 20 20 28 6c 65 74 20 28 2c 40 28 77 68 65 6e | ble.,optarg))......(let.(,@(when |
| c76e0 | 20 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .arg............................ |
| c7700 | 20 20 60 28 28 2c 61 72 67 20 28 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 2e 61 72 67 2d 6e 61 6d 65 | ..`((,arg.(optional-arg.arg-name |
| c7720 | 20 2c 6f 70 74 61 72 67 29 29 29 29 0a 09 09 09 20 2c 40 28 77 68 65 6e 20 69 6e 69 74 0a 20 20 | .,optarg)))).....,@(when.init... |
| c7740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 2c 69 | ...........................`((,i |
| c7760 | 6e 69 74 20 28 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 2e 64 65 66 61 75 6c 74 2d 61 72 67 20 2c 6f | nit.(optional-arg.default-arg.,o |
| c7780 | 70 74 61 72 67 29 29 29 29 29 0a 09 09 20 20 20 20 20 2c 40 62 6f 64 79 29 29 29 29 0a 09 20 20 | ptarg)))))........,@body)))).... |
| c77a0 | 20 20 20 28 28 26 6b 65 79 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6b 65 79 77 6f 72 64 20 61 72 67 | ...((&key.(&optional.keyword.arg |
| c77c0 | 20 69 6e 69 74 29 20 2e 20 62 6f 64 79 29 0a 09 20 20 20 20 20 20 28 6c 65 74 20 28 28 6b 65 79 | .init)...body)........(let.((key |
| c77e0 | 61 72 67 20 28 67 65 6e 73 79 6d 20 22 4b 45 59 2d 41 52 47 2b 22 29 29 29 0a 09 09 60 28 64 6f | arg.(gensym."KEY-ARG+")))...`(do |
| c7800 | 6c 69 73 74 20 28 2c 6b 65 79 61 72 67 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 77 6f 72 64 2d 61 | list.(,keyarg.(arglist.keyword-a |
| c7820 | 72 67 73 20 2c 61 72 67 6c 69 73 74 29 29 0a 09 09 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 | rgs.,arglist))......(declare.(ig |
| c7840 | 6e 6f 72 61 62 6c 65 20 2c 6b 65 79 61 72 67 29 29 0a 09 09 20 20 20 28 6c 65 74 20 28 2c 40 28 | norable.,keyarg))......(let.(,@( |
| c7860 | 77 68 65 6e 20 6b 65 79 77 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | when.keyword.................... |
| c7880 | 20 20 20 20 20 20 20 20 20 20 60 28 28 2c 6b 65 79 77 6f 72 64 20 28 6b 65 79 77 6f 72 64 2d 61 | ..........`((,keyword.(keyword-a |
| c78a0 | 72 67 2e 6b 65 79 77 6f 72 64 20 2c 6b 65 79 61 72 67 29 29 29 29 0a 09 09 09 20 2c 40 28 77 68 | rg.keyword.,keyarg)))).....,@(wh |
| c78c0 | 65 6e 20 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | en.arg.......................... |
| c78e0 | 20 20 20 20 60 28 28 2c 61 72 67 20 28 6b 65 79 77 6f 72 64 2d 61 72 67 2e 61 72 67 2d 6e 61 6d | ....`((,arg.(keyword-arg.arg-nam |
| c7900 | 65 20 2c 6b 65 79 61 72 67 29 29 29 29 0a 09 09 09 20 2c 40 28 77 68 65 6e 20 69 6e 69 74 0a 20 | e.,keyarg)))).....,@(when.init.. |
| c7920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 2c | ............................`((, |
| c7940 | 69 6e 69 74 20 28 6b 65 79 77 6f 72 64 2d 61 72 67 2e 64 65 66 61 75 6c 74 2d 61 72 67 20 2c 6b | init.(keyword-arg.default-arg.,k |
| c7960 | 65 79 61 72 67 29 29 29 29 29 0a 09 09 20 20 20 20 20 2c 40 62 6f 64 79 29 29 29 29 0a 09 20 20 | eyarg)))))........,@body)))).... |
| c7980 | 20 20 20 28 28 26 72 65 73 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 20 62 6f 64 79 2d 70 | ...((&rest.(&optional.arg.body-p |
| c79a0 | 29 20 2e 20 62 6f 64 79 29 0a 09 20 20 20 20 20 20 60 28 77 68 65 6e 20 28 61 72 67 6c 69 73 74 | )...body)........`(when.(arglist |
| c79c0 | 2e 72 65 73 74 20 2c 61 72 67 6c 69 73 74 29 0a 09 09 20 28 6c 65 74 20 28 2c 40 28 77 68 65 6e | .rest.,arglist)....(let.(,@(when |
| c79e0 | 20 61 72 67 20 20 20 20 60 28 28 2c 61 72 67 20 28 61 72 67 6c 69 73 74 2e 72 65 73 74 20 2c 61 | .arg....`((,arg.(arglist.rest.,a |
| c7a00 | 72 67 6c 69 73 74 29 29 29 29 0a 09 09 20 20 20 20 20 20 20 2c 40 28 77 68 65 6e 20 62 6f 64 79 | rglist))))..........,@(when.body |
| c7a20 | 2d 70 20 60 28 28 2c 62 6f 64 79 2d 70 20 28 61 72 67 6c 69 73 74 2e 62 6f 64 79 2d 70 20 2c 61 | -p.`((,body-p.(arglist.body-p.,a |
| c7a40 | 72 67 6c 69 73 74 29 29 29 29 29 0a 09 09 20 20 20 2c 40 62 6f 64 79 29 29 29 0a 09 20 20 20 20 | rglist)))))......,@body)))...... |
| c7a60 | 20 28 28 26 61 6e 79 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 2e 20 62 6f 64 79 29 0a | .((&any.(&optional.arg)...body). |
| c7a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 67 65 6e 73 79 6d 20 28 67 65 6e | ..............(let.((gensym.(gen |
| c7aa0 | 73 79 6d 20 22 52 45 51 55 49 52 45 44 2d 41 52 47 2b 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 | sym."REQUIRED-ARG+"))).......... |
| c7ac0 | 20 20 20 20 20 20 20 60 28 64 6f 6c 69 73 74 20 28 2c 67 65 6e 73 79 6d 20 28 61 72 67 6c 69 73 | .......`(dolist.(,gensym.(arglis |
| c7ae0 | 74 2e 61 6e 79 2d 61 72 67 73 20 2c 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 | t.any-args.,arglist))........... |
| c7b00 | 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 61 62 6c 65 20 2c 67 | ..........(declare.(ignorable.,g |
| c7b20 | 65 6e 73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | ensym)).....................(let |
| c7b40 | 20 28 2c 40 28 77 68 65 6e 20 61 72 67 20 60 28 28 2c 61 72 67 20 2c 67 65 6e 73 79 6d 29 29 29 | .(,@(when.arg.`((,arg.,gensym))) |
| c7b60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 29 | ).......................,@body)) |
| c7b80 | 29 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 6c 69 73 74 20 28 67 65 6e 73 79 6d | ))))).....(let.((arglist.(gensym |
| c7ba0 | 20 22 44 45 43 4f 44 45 44 2d 41 52 47 4c 49 53 54 2b 22 29 29 29 0a 20 20 20 20 20 20 28 6d 75 | ."DECODED-ARGLIST+"))).......(mu |
| c7bc0 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 69 6e 69 74 69 61 6c 6c 79 2d 63 6c 61 | ltiple-value-bind.(initially-cla |
| c7be0 | 75 73 65 73 20 6d 61 69 6e 2d 63 6c 61 75 73 65 73 20 66 69 6e 61 6c 6c 79 2d 63 6c 61 75 73 65 | uses.main-clauses.finally-clause |
| c7c00 | 73 29 0a 09 20 20 28 70 61 72 73 65 2d 63 6c 61 75 73 65 73 20 63 6c 61 75 73 65 73 29 0a 09 60 | s)....(parse-clauses.clauses)..` |
| c7c20 | 28 6c 65 74 20 28 28 2c 61 72 67 6c 69 73 74 20 2c 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 | (let.((,arglist.,decoded-arglist |
| c7c40 | 29 29 0a 09 20 20 20 28 62 6c 6f 63 6b 20 64 6f 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 | )).....(block.do-decoded-arglist |
| c7c60 | 0a 09 20 20 20 20 20 2c 40 28 6c 6f 6f 70 20 66 6f 72 20 6b 65 79 77 6f 72 64 20 69 6e 20 27 28 | .......,@(loop.for.keyword.in.'( |
| c7c80 | 26 70 72 6f 76 69 64 65 64 20 26 72 65 71 75 69 72 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 | &provided.&required............. |
| c7ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6f 70 74 69 6f | ..........................&optio |
| c7cc0 | 6e 61 6c 20 26 72 65 73 74 20 26 6b 65 79 20 26 61 6e 79 29 0a 09 09 20 20 20 20 20 61 70 70 65 | nal.&rest.&key.&any)........appe |
| c7ce0 | 6e 64 20 28 63 64 64 72 20 28 67 65 74 68 61 73 68 20 6b 65 79 77 6f 72 64 20 69 6e 69 74 69 61 | nd.(cddr.(gethash.keyword.initia |
| c7d00 | 6c 6c 79 2d 63 6c 61 75 73 65 73 29 29 0a 09 09 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 65 | lly-clauses))........collect.(le |
| c7d20 | 74 20 28 28 63 6c 61 75 73 65 20 28 67 65 74 68 61 73 68 20 6b 65 79 77 6f 72 64 20 6d 61 69 6e | t.((clause.(gethash.keyword.main |
| c7d40 | 2d 63 6c 61 75 73 65 73 29 29 29 0a 09 09 09 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 6c 61 75 | -clauses)))...........(when.clau |
| c7d60 | 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | se.............................. |
| c7d80 | 20 20 20 20 28 67 65 6e 65 72 61 74 65 2d 6d 61 69 6e 2d 63 6c 61 75 73 65 20 63 6c 61 75 73 65 | ....(generate-main-clause.clause |
| c7da0 | 20 61 72 67 6c 69 73 74 29 29 29 0a 09 09 20 20 20 20 20 61 70 70 65 6e 64 20 28 63 64 64 72 20 | .arglist)))........append.(cddr. |
| c7dc0 | 28 67 65 74 68 61 73 68 20 6b 65 79 77 6f 72 64 20 66 69 6e 61 6c 6c 79 2d 63 6c 61 75 73 65 73 | (gethash.keyword.finally-clauses |
| c7de0 | 29 29 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 41 72 67 6c 69 73 74 20 50 72 69 6e 74 69 6e 67 | )))))))))..;;;;.Arglist.Printing |
| c7e00 | 0a 0a 28 64 65 66 75 6e 20 75 6e 64 75 6d 6d 79 20 28 78 29 0a 20 20 28 69 66 20 28 74 79 70 65 | ..(defun.undummy.(x)...(if.(type |
| c7e20 | 70 20 78 20 27 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 29 0a 20 20 20 20 20 20 28 61 72 67 6c 69 | p.x.'arglist-dummy).......(argli |
| c7e40 | 73 74 2d 64 75 6d 6d 79 2e 73 74 72 69 6e 67 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 78 | st-dummy.string-representation.x |
| c7e60 | 29 0a 20 20 20 20 20 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 78 29 29 29 0a 0a 28 | ).......(prin1-to-string.x)))..( |
| c7e80 | 64 65 66 75 6e 20 70 72 69 6e 74 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 28 61 72 67 | defun.print-decoded-arglist.(arg |
| c7ea0 | 6c 69 73 74 20 26 6b 65 79 20 6f 70 65 72 61 74 6f 72 20 70 72 6f 76 69 64 65 64 2d 61 72 67 73 | list.&key.operator.provided-args |
| c7ec0 | 20 68 69 67 68 6c 69 67 68 74 29 0a 20 20 28 6c 65 74 20 28 28 66 69 72 73 74 2d 73 70 61 63 65 | .highlight)...(let.((first-space |
| c7ee0 | 2d 61 66 74 65 72 2d 6f 70 65 72 61 74 6f 72 20 28 61 6e 64 20 6f 70 65 72 61 74 6f 72 20 74 29 | -after-operator.(and.operator.t) |
| c7f00 | 29 29 0a 20 20 20 20 28 6d 61 63 72 6f 6c 65 74 20 28 28 73 70 61 63 65 20 28 29 0a 20 20 20 20 | )).....(macrolet.((space.()..... |
| c7f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4b 6c 75 64 67 65 3a 20 57 68 65 6e 20 4f 50 45 | .............;;.Kludge:.When.OPE |
| c7f40 | 52 41 54 4f 52 20 69 73 20 6e 6f 74 20 67 69 76 65 6e 2c 20 77 65 20 64 6f 6e 27 74 20 77 61 6e | RATOR.is.not.given,.we.don't.wan |
| c7f60 | 74 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 72 69 6e 74 20 61 | t.to..................;;.print.a |
| c7f80 | 20 73 70 61 63 65 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 2e 0a 20 | .space.for.the.first.argument... |
| c7fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 69 66 20 28 6e 6f 74 20 6f 70 65 72 61 74 | ................`(if.(not.operat |
| c7fc0 | 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | or).......................(setq. |
| c7fe0 | 6f 70 65 72 61 74 6f 72 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | operator.t)..................... |
| c8000 | 20 20 28 70 72 6f 67 6e 20 28 77 72 69 74 65 2d 63 68 61 72 20 23 5c 73 70 61 63 65 29 0a 20 20 | ..(progn.(write-char.#\space)... |
| c8020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 66 | ...........................(if.f |
| c8040 | 69 72 73 74 2d 73 70 61 63 65 2d 61 66 74 65 72 2d 6f 70 65 72 61 74 6f 72 0a 20 20 20 20 20 20 | irst-space-after-operator....... |
| c8060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | ...........................(setq |
| c8080 | 20 66 69 72 73 74 2d 73 70 61 63 65 2d 61 66 74 65 72 2d 6f 70 65 72 61 74 6f 72 20 6e 69 6c 29 | .first-space-after-operator.nil) |
| c80a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| c80c0 | 20 20 28 70 70 72 69 6e 74 2d 6e 65 77 6c 69 6e 65 20 3a 66 69 6c 6c 29 29 29 29 29 0a 20 20 20 | ..(pprint-newline.:fill))))).... |
| c80e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 68 69 67 68 6c 69 67 68 74 69 6e 67 20 28 | ............(with-highlighting.( |
| c8100 | 28 26 6b 65 79 20 69 6e 64 65 78 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 20 20 20 20 20 | (&key.index).&body.body)........ |
| c8120 | 20 20 20 20 20 20 20 20 20 20 60 28 69 66 20 28 65 71 6c 20 2c 69 6e 64 65 78 20 28 63 61 72 20 | ..........`(if.(eql.,index.(car. |
| c8140 | 68 69 67 68 6c 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | highlight))..................... |
| c8160 | 20 20 28 70 72 6f 67 6e 20 28 70 72 69 6e 63 20 22 3d 3d 3d 3e 20 22 29 20 2c 40 62 6f 64 79 20 | ..(progn.(princ."===>.").,@body. |
| c8180 | 28 70 72 69 6e 63 20 22 20 3c 3d 3d 3d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (princ.".<==="))................ |
| c81a0 | 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 | .......(progn.,@body)))......... |
| c81c0 | 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 61 72 67 6c 69 73 74 2d 72 65 63 75 72 73 69 76 65 6c | .......(print-arglist-recursivel |
| c81e0 | 79 20 28 61 72 67 6c 20 26 6b 65 79 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | y.(argl.&key.index)............. |
| c8200 | 20 20 20 20 20 60 28 69 66 20 28 65 71 6c 20 2c 69 6e 64 65 78 20 28 63 61 72 20 68 69 67 68 6c | .....`(if.(eql.,index.(car.highl |
| c8220 | 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 | ight)).......................(pr |
| c8240 | 69 6e 74 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 2c 61 72 67 6c 20 3a 68 69 67 68 6c | int-decoded-arglist.,argl.:highl |
| c8260 | 69 67 68 74 20 28 63 64 72 20 68 69 67 68 6c 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ight.(cdr.highlight))........... |
| c8280 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 | ............(print-decoded-argli |
| c82a0 | 73 74 20 2c 61 72 67 6c 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 64 65 78 20 | st.,argl)))).......(let.((index. |
| c82c0 | 30 29 29 0a 20 20 20 20 20 20 20 20 28 70 70 72 69 6e 74 2d 6c 6f 67 69 63 61 6c 2d 62 6c 6f 63 | 0)).........(pprint-logical-bloc |
| c82e0 | 6b 20 28 6e 69 6c 20 6e 69 6c 20 3a 70 72 65 66 69 78 20 22 28 22 20 3a 73 75 66 66 69 78 20 22 | k.(nil.nil.:prefix."(".:suffix." |
| c8300 | 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6f 70 65 72 61 74 6f 72 0a 20 20 20 | )")...........(when.operator.... |
| c8320 | 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 61 72 67 20 6f 70 65 72 61 74 6f 72 29 0a 20 20 | .........(print-arg.operator)... |
| c8340 | 20 20 20 20 20 20 20 20 20 20 28 70 70 72 69 6e 74 2d 69 6e 64 65 6e 74 20 3a 63 75 72 72 65 6e | ..........(pprint-indent.:curren |
| c8360 | 74 20 31 29 29 20 3b 20 31 20 64 75 65 20 74 6f 20 70 6f 73 73 69 62 6c 79 20 61 64 64 65 64 20 | t.1)).;.1.due.to.possibly.added. |
| c8380 | 73 70 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 28 64 6f 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c | space...........(do-decoded-argl |
| c83a0 | 69 73 74 20 28 72 65 6d 6f 76 65 2d 67 69 76 65 6e 2d 61 72 67 73 20 61 72 67 6c 69 73 74 20 70 | ist.(remove-given-args.arglist.p |
| c83c0 | 72 6f 76 69 64 65 64 2d 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 26 70 72 6f 76 | rovided-args).............(&prov |
| c83e0 | 69 64 65 64 20 28 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ided.(arg)...................... |
| c8400 | 20 20 28 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(space)....................... |
| c8420 | 20 28 70 72 69 6e 74 2d 61 72 67 20 61 72 67 20 3a 6c 69 74 65 72 61 6c 2d 73 74 72 69 6e 67 73 | .(print-arg.arg.:literal-strings |
| c8440 | 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 | .t)........................(incf |
| c8460 | 20 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 26 72 65 71 75 69 72 65 64 20 | .index)).............(&required. |
| c8480 | 28 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 | (arg)........................(sp |
| c84a0 | 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | ace)........................(if. |
| c84c0 | 28 61 72 67 6c 69 73 74 2d 70 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (arglist-p.arg)................. |
| c84e0 | 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 61 72 67 6c 69 73 74 2d 72 65 63 75 72 73 | ...........(print-arglist-recurs |
| c8500 | 69 76 65 6c 79 20 61 72 67 20 3a 69 6e 64 65 78 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 | ively.arg.:index.index)......... |
| c8520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 68 69 67 68 6c 69 67 | ...................(with-highlig |
| c8540 | 68 74 69 6e 67 20 28 3a 69 6e 64 65 78 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 | hting.(:index.index)............ |
| c8560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 61 72 67 20 61 72 67 | ..................(print-arg.arg |
| c8580 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 | )))........................(incf |
| c85a0 | 20 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 26 6f 70 74 69 6f 6e 61 6c 20 | .index)).............(&optional. |
| c85c0 | 3a 69 6e 69 74 69 61 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :initially...................... |
| c85e0 | 20 20 28 77 68 65 6e 20 28 61 72 67 6c 69 73 74 2e 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 73 20 61 | ..(when.(arglist.optional-args.a |
| c8600 | 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rglist)......................... |
| c8620 | 20 28 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(space)........................ |
| c8640 | 20 20 28 70 72 69 6e 63 20 27 26 6f 70 74 69 6f 6e 61 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ..(princ.'&optional))).......... |
| c8660 | 20 20 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 61 72 67 20 69 6e 69 74 2d 76 61 6c 75 65 29 0a 20 | ...(&optional.(arg.init-value).. |
| c8680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 61 63 65 29 0a 20 20 | ......................(space)... |
| c86a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 72 67 6c 69 73 | .....................(if.(arglis |
| c86c0 | 74 2d 70 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-p.arg)........................ |
| c86e0 | 20 20 20 20 28 70 72 69 6e 74 2d 61 72 67 6c 69 73 74 2d 72 65 63 75 72 73 69 76 65 6c 79 20 61 | ....(print-arglist-recursively.a |
| c8700 | 72 67 20 3a 69 6e 64 65 78 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rg.:index.index)................ |
| c8720 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 68 69 67 68 6c 69 67 68 74 69 6e 67 20 28 | ............(with-highlighting.( |
| c8740 | 3a 69 6e 64 65 78 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :index.index)................... |
| c8760 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 69 6e 69 74 2d 76 61 6c 75 65 29 | ...........(if.(null.init-value) |
| c8780 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| c87a0 | 20 20 28 70 72 69 6e 74 2d 61 72 67 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(print-arg.arg)............... |
| c87c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 3a | ...................(format.t."~: |
| c87e0 | 40 3c 7e 41 20 7e 41 7e 40 3a 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | @<~A.~A~@:>".................... |
| c8800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 64 75 6d 6d 79 20 61 | ......................(undummy.a |
| c8820 | 72 67 29 20 28 75 6e 64 75 6d 6d 79 20 69 6e 69 74 2d 76 61 6c 75 65 29 29 29 29 29 0a 20 20 20 | rg).(undummy.init-value))))).... |
| c8840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 69 6e 64 65 78 29 | ....................(incf.index) |
| c8860 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 26 6b 65 79 20 3a 69 6e 69 74 69 61 6c 6c 79 0a 20 | ).............(&key.:initially.. |
| c8880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 72 67 6c 69 73 74 2e | .................(when.(arglist. |
| c88a0 | 6b 65 79 2d 70 20 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | key-p.arglist).................. |
| c88c0 | 20 20 20 28 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...(space).....................( |
| c88e0 | 70 72 69 6e 63 20 27 26 6b 65 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 26 6b 65 79 | princ.'&key))).............(&key |
| c8900 | 20 28 6b 65 79 77 6f 72 64 20 61 72 67 20 69 6e 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .(keyword.arg.init)............. |
| c8920 | 20 20 20 20 20 20 28 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(space)................... |
| c8940 | 28 69 66 20 28 61 72 67 6c 69 73 74 2d 70 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (if.(arglist-p.arg)............. |
| c8960 | 20 20 20 20 20 20 20 20 20 20 28 70 70 72 69 6e 74 2d 6c 6f 67 69 63 61 6c 2d 62 6c 6f 63 6b 20 | ..........(pprint-logical-block. |
| c8980 | 28 6e 69 6c 20 6e 69 6c 20 3a 70 72 65 66 69 78 20 22 28 22 20 3a 73 75 66 66 69 78 20 22 29 22 | (nil.nil.:prefix."(".:suffix.")" |
| c89a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 | ).........................(prin1 |
| c89c0 | 20 6b 65 79 77 6f 72 64 29 20 28 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .keyword).(space)............... |
| c89e0 | 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 61 72 67 6c 69 73 74 2d 72 65 63 75 72 73 69 | ..........(print-arglist-recursi |
| c8a00 | 76 65 6c 79 20 61 72 67 20 3a 69 6e 64 65 78 20 6b 65 79 77 6f 72 64 29 29 0a 20 20 20 20 20 20 | vely.arg.:index.keyword))....... |
| c8a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 68 69 67 68 6c 69 67 68 74 69 | ................(with-highlighti |
| c8a40 | 6e 67 20 28 3a 69 6e 64 65 78 20 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ng.(:index.keyword)............. |
| c8a60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 69 6e 69 74 20 28 6b 65 | ............(cond.((and.init.(ke |
| c8a80 | 79 77 6f 72 64 70 20 6b 65 79 77 6f 72 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ywordp.keyword))................ |
| c8aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 3a 40 3c 7e | ................(format.t."~:@<~ |
| c8ac0 | 41 20 7e 41 7e 40 3a 3e 22 20 6b 65 79 77 6f 72 64 20 28 75 6e 64 75 6d 6d 79 20 69 6e 69 74 29 | A.~A~@:>".keyword.(undummy.init) |
| c8ae0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )).............................. |
| c8b00 | 20 28 69 6e 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(init.......................... |
| c8b20 | 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 3a 40 3c 28 7e 41 20 2e 2e 29 20 7e 41 7e | ......(format.t."~:@<(~A...).~A~ |
| c8b40 | 40 3a 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | @:>"............................ |
| c8b60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 64 75 6d 6d 79 20 6b 65 79 77 6f 72 64 29 20 28 75 | ............(undummy.keyword).(u |
| c8b80 | 6e 64 75 6d 6d 79 20 69 6e 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ndummy.init))).................. |
| c8ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 6b 65 79 77 6f 72 64 70 20 6b 65 79 | .............((not.(keywordp.key |
| c8bc0 | 77 6f 72 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | word)).......................... |
| c8be0 | 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 3a 40 3c 28 7e 53 20 2e 2e 29 7e 40 3a 3e | ......(format.t."~:@<(~S...)~@:> |
| c8c00 | 22 20 6b 65 79 77 6f 72 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ".keyword))..................... |
| c8c20 | 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(t.................... |
| c8c40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 63 20 6b 65 79 77 6f 72 64 29 29 29 29 29 29 | ............(princ.keyword)))))) |
| c8c60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 26 6b 65 79 20 3a 66 69 6e 61 6c 6c 79 0a 20 20 20 20 | .............(&key.:finally..... |
| c8c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 72 67 6c 69 73 74 2e 61 6c 6c | ..............(when.(arglist.all |
| c8ca0 | 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 2d 70 20 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 | ow-other-keys-p.arglist)........ |
| c8cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .............(space)............ |
| c8ce0 | 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 63 20 27 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 | .........(princ.'&allow-other-ke |
| c8d00 | 79 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 26 61 6e 79 20 3a 69 6e 69 74 69 61 6c | ys))).............(&any.:initial |
| c8d20 | 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 72 67 6c | ly...................(when.(argl |
| c8d40 | 69 73 74 2e 61 6e 79 2d 70 20 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ist.any-p.arglist).............. |
| c8d60 | 20 20 20 20 20 20 20 28 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(space).................. |
| c8d80 | 20 20 20 28 70 72 69 6e 63 20 27 26 61 6e 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...(princ.'&any))).............( |
| c8da0 | 26 61 6e 79 20 28 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 | &any.(arg)...................(sp |
| c8dc0 | 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 61 72 | ace)...................(print-ar |
| c8de0 | 67 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 26 72 65 73 74 20 28 61 72 67 73 | g.arg)).............(&rest.(args |
| c8e00 | 20 62 6f 64 79 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 61 63 | .bodyp)....................(spac |
| c8e20 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 63 20 28 69 66 | e)....................(princ.(if |
| c8e40 | 20 62 6f 64 79 70 20 27 26 62 6f 64 79 20 27 26 72 65 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 | .bodyp.'&body.'&rest)).......... |
| c8e60 | 20 20 20 20 20 20 20 20 20 20 28 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(space)............... |
| c8e80 | 20 20 20 20 20 28 69 66 20 28 61 72 67 6c 69 73 74 2d 70 20 61 72 67 73 29 0a 20 20 20 20 20 20 | .....(if.(arglist-p.args)....... |
| c8ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 61 72 67 6c 69 73 74 2d | .................(print-arglist- |
| c8ec0 | 72 65 63 75 72 73 69 76 65 6c 79 20 61 72 67 73 20 3a 69 6e 64 65 78 20 69 6e 64 65 78 29 0a 20 | recursively.args.:index.index).. |
| c8ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 68 69 67 68 | ......................(with-high |
| c8f00 | 6c 69 67 68 74 69 6e 67 20 28 3a 69 6e 64 65 78 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 | lighting.(:index.index)......... |
| c8f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 61 72 67 20 61 72 67 73 | .................(print-arg.args |
| c8f40 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 49 58 4d 45 3a 20 61 64 64 20 26 | )))).............;;.FIXME:.add.& |
| c8f60 | 55 4e 4b 4e 4f 57 4e 2d 4a 55 4e 4b 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 29 29 29 | UNKNOWN-JUNK?.............)))))) |
| c8f80 | 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 61 72 67 20 28 61 72 67 20 26 6b 65 79 20 6c 69 74 | ..(defun.print-arg.(arg.&key.lit |
| c8fa0 | 65 72 61 6c 2d 73 74 72 69 6e 67 73 29 0a 20 20 28 6c 65 74 20 28 28 61 72 67 20 28 69 66 20 28 | eral-strings)...(let.((arg.(if.( |
| c8fc0 | 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 2d 70 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 | arglist-dummy-p.arg)............ |
| c8fe0 | 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 2e 73 74 72 69 6e 67 2d 72 65 70 72 | ......(arglist-dummy.string-repr |
| c9000 | 65 73 65 6e 74 61 74 69 6f 6e 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | esentation.arg)................. |
| c9020 | 20 61 72 67 29 29 29 0a 20 20 20 20 28 69 66 20 28 6f 72 0a 20 20 20 20 20 20 20 20 20 28 61 6e | .arg))).....(if.(or..........(an |
| c9040 | 64 20 6c 69 74 65 72 61 6c 2d 73 74 72 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.literal-strings............... |
| c9060 | 28 73 74 72 69 6e 67 70 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 6b 65 79 77 6f 72 64 | (stringp.arg))..........(keyword |
| c9080 | 70 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 20 61 72 67 29 0a 20 20 20 20 | p.arg)).........(prin1.arg)..... |
| c90a0 | 20 20 20 20 28 70 72 69 6e 63 20 61 72 67 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 | ....(princ.arg))))..(defun.print |
| c90c0 | 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 61 73 2d 74 65 6d 70 6c 61 74 65 20 28 64 65 | -decoded-arglist-as-template.(de |
| c90e0 | 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 26 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | coded-arglist.&key.............. |
| c9100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 | .............................(pr |
| c9120 | 65 66 69 78 20 22 28 22 29 20 28 73 75 66 66 69 78 20 22 29 22 29 29 0a 20 20 28 6c 65 74 20 28 | efix."(").(suffix.")"))...(let.( |
| c9140 | 28 66 69 72 73 74 2d 70 20 74 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 73 70 61 63 65 20 28 | (first-p.t)).....(flet.((space.( |
| c9160 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 66 69 72 73 74 2d 70 0a 20 | )..............(unless.first-p.. |
| c9180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 63 68 61 72 20 23 5c 73 70 61 63 | ..............(write-char.#\spac |
| c91a0 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 69 72 73 74 2d 70 20 6e | e))..............(setq.first-p.n |
| c91c0 | 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 61 72 67 2d 6f 72 2d 70 61 | il))............(print-arg-or-pa |
| c91e0 | 74 74 65 72 6e 20 28 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 | ttern.(arg)..............(etypec |
| c9200 | 61 73 65 20 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 20 | ase.arg................(symbol.. |
| c9220 | 20 20 20 20 20 20 28 69 66 20 28 6b 65 79 77 6f 72 64 70 20 61 72 67 29 20 28 70 72 69 6e 31 20 | ......(if.(keywordp.arg).(prin1. |
| c9240 | 61 72 67 29 20 28 70 72 69 6e 63 20 61 72 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | arg).(princ.arg))).............. |
| c9260 | 20 20 28 73 74 72 69 6e 67 20 20 20 20 20 20 20 20 28 70 72 69 6e 63 20 61 72 67 29 29 0a 20 20 | ..(string........(princ.arg))... |
| c9280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 20 20 20 20 20 20 20 20 20 28 70 72 69 | .............(list..........(pri |
| c92a0 | 6e 63 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 | nc.arg))................(arglist |
| c92c0 | 2d 64 75 6d 6d 79 20 28 70 72 69 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -dummy.(princ................... |
| c92e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 2e 73 74 72 69 | .............(arglist-dummy.stri |
| c9300 | 6e 67 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 61 72 67 29 29 29 0a 20 20 20 20 20 20 20 | ng-representation.arg)))........ |
| c9320 | 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 64 65 | ........(arglist.......(print-de |
| c9340 | 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 61 73 2d 74 65 6d 70 6c 61 74 65 20 61 72 67 29 29 29 | coded-arglist-as-template.arg))) |
| c9360 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 70 72 69 6e 74 2d 6e 65 77 6c 69 6e 65 20 3a 66 | ..............(pprint-newline.:f |
| c9380 | 69 6c 6c 29 29 29 0a 20 20 20 20 20 20 28 70 70 72 69 6e 74 2d 6c 6f 67 69 63 61 6c 2d 62 6c 6f | ill))).......(pprint-logical-blo |
| c93a0 | 63 6b 20 28 6e 69 6c 20 6e 69 6c 20 3a 70 72 65 66 69 78 20 70 72 65 66 69 78 20 3a 73 75 66 66 | ck.(nil.nil.:prefix.prefix.:suff |
| c93c0 | 69 78 20 73 75 66 66 69 78 29 0a 20 20 20 20 20 20 20 20 28 64 6f 2d 64 65 63 6f 64 65 64 2d 61 | ix.suffix).........(do-decoded-a |
| c93e0 | 72 67 6c 69 73 74 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 | rglist.decoded-arglist.......... |
| c9400 | 20 28 26 70 72 6f 76 69 64 65 64 20 28 29 29 20 3b 20 64 6f 20 6e 6f 74 68 69 6e 67 3b 20 70 72 | .(&provided.()).;.do.nothing;.pr |
| c9420 | 6f 76 69 64 65 64 20 61 72 67 73 20 61 72 65 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 61 6c | ovided.args.are.in.the.buffer.al |
| c9440 | 72 65 61 64 79 2e 0a 20 20 20 20 20 20 20 20 20 20 28 26 72 65 71 75 69 72 65 64 20 28 61 72 67 | ready............(&required.(arg |
| c9460 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 61 63 65 29 20 28 70 72 69 6e 74 2d 61 72 67 | ).............(space).(print-arg |
| c9480 | 2d 6f 72 2d 70 61 74 74 65 72 6e 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 26 6f 70 | -or-pattern.arg))...........(&op |
| c94a0 | 74 69 6f 6e 61 6c 20 28 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 61 63 65 29 | tional.(arg).............(space) |
| c94c0 | 20 28 70 72 69 6e 63 20 22 5b 22 29 20 28 70 72 69 6e 74 2d 61 72 67 2d 6f 72 2d 70 61 74 74 65 | .(princ."[").(print-arg-or-patte |
| c94e0 | 72 6e 20 61 72 67 29 20 28 70 72 69 6e 63 20 22 5d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | rn.arg).(princ."]"))...........( |
| c9500 | 26 6b 65 79 20 28 6b 65 79 77 6f 72 64 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | &key.(keyword.arg).............( |
| c9520 | 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 20 28 69 66 20 28 6b | space).............(prin1.(if.(k |
| c9540 | 65 79 77 6f 72 64 70 20 6b 65 79 77 6f 72 64 29 20 6b 65 79 77 6f 72 64 20 60 27 2c 6b 65 79 77 | eywordp.keyword).keyword.`',keyw |
| c9560 | 6f 72 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 61 63 65 29 0a 20 20 20 20 20 20 | ord)).............(space)....... |
| c9580 | 20 20 20 20 20 20 28 70 72 69 6e 74 2d 61 72 67 2d 6f 72 2d 70 61 74 74 65 72 6e 20 61 72 67 29 | ......(print-arg-or-pattern.arg) |
| c95a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 70 72 69 6e 74 2d 6e 65 77 6c 69 6e 65 20 3a 6c 69 | .............(pprint-newline.:li |
| c95c0 | 6e 65 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 26 61 6e 79 20 28 61 72 67 29 0a 20 20 20 | near))...........(&any.(arg).... |
| c95e0 | 20 20 20 20 20 20 20 20 20 28 73 70 61 63 65 29 20 28 70 72 69 6e 74 2d 61 72 67 2d 6f 72 2d 70 | .........(space).(print-arg-or-p |
| c9600 | 61 74 74 65 72 6e 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 26 72 65 73 74 20 28 61 | attern.arg))...........(&rest.(a |
| c9620 | 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 6e 6f 74 20 | rgs).............(when.(or.(not. |
| c9640 | 28 61 72 67 6c 69 73 74 2e 6b 65 79 77 6f 72 64 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 | (arglist.keyword-args.decoded-ar |
| c9660 | 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | glist)).......................(a |
| c9680 | 72 67 6c 69 73 74 2e 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 2d 70 20 64 65 63 6f 64 65 | rglist.allow-other-keys-p.decode |
| c96a0 | 64 2d 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 61 63 65 | d-arglist))...............(space |
| c96c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 41 2e 2e 2e | )...............(format.t."~A... |
| c96e0 | 22 20 61 72 67 73 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 61 72 67 6c 69 73 74 | ".args))))))))..(defvar.*arglist |
| c9700 | 2d 70 70 72 69 6e 74 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 27 28 28 2a 70 72 69 6e 74 2d 63 61 | -pprint-bindings*...'((*print-ca |
| c9720 | 73 65 2a 20 20 20 20 20 2e 20 3a 64 6f 77 6e 63 61 73 65 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 | se*.......:downcase).....(*print |
| c9740 | 2d 70 72 65 74 74 79 2a 20 20 20 2e 20 74 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 63 69 72 63 | -pretty*.....t).....(*print-circ |
| c9760 | 6c 65 2a 20 20 20 2e 20 6e 69 6c 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c | le*.....nil).....(*print-readabl |
| c9780 | 79 2a 20 2e 20 6e 69 6c 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 6c 65 76 65 6c 2a 20 20 20 20 | y*...nil).....(*print-level*.... |
| c97a0 | 2e 20 31 30 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 6c 65 6e 67 74 68 2a 20 20 20 2e 20 32 30 | ..10).....(*print-length*.....20 |
| c97c0 | 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 65 73 63 61 70 65 2a 20 20 20 2e 20 6e 69 6c 29 29 29 | ).....(*print-escape*.....nil))) |
| c97e0 | 0a 0a 28 64 65 66 76 61 72 20 2a 61 72 67 6c 69 73 74 2d 73 68 6f 77 2d 70 61 63 6b 61 67 65 73 | ..(defvar.*arglist-show-packages |
| c9800 | 2a 20 74 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 61 72 67 6c 69 73 74 2d 69 6f 2d | *.t)..(defmacro.with-arglist-io- |
| c9820 | 73 79 6e 74 61 78 20 28 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 28 6c 65 74 20 28 28 70 61 63 | syntax.(&body.body)...(let.((pac |
| c9840 | 6b 61 67 65 20 28 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 70 61 63 | kage.(gensym))).....`(let.((,pac |
| c9860 | 6b 61 67 65 20 2a 70 61 63 6b 61 67 65 2a 29 29 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 74 | kage.*package*))........(with-st |
| c9880 | 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | andard-io-syntax..........(let.( |
| c98a0 | 28 2a 70 61 63 6b 61 67 65 2a 20 28 69 66 20 2a 61 72 67 6c 69 73 74 2d 73 68 6f 77 2d 70 61 63 | (*package*.(if.*arglist-show-pac |
| c98c0 | 6b 61 67 65 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kages*.......................... |
| c98e0 | 20 20 20 20 20 2a 70 61 63 6b 61 67 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....*package*.................. |
| c9900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 | .............,package)))........ |
| c9920 | 20 20 20 20 28 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 20 2a 61 72 67 6c 69 73 74 2d 70 70 72 69 | ....(with-bindings.*arglist-ppri |
| c9940 | 6e 74 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 | nt-bindings*..............,@body |
| c9960 | 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 74 | ))))))..(defun.decoded-arglist-t |
| c9980 | 6f 2d 73 74 72 69 6e 67 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 | o-string.(decoded-arglist....... |
| c99a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 | ............................&key |
| c99c0 | 20 6f 70 65 72 61 74 6f 72 20 68 69 67 68 6c 69 67 68 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .operator.highlight............. |
| c99e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 2d 72 69 67 68 | ......................print-righ |
| c9a00 | 74 2d 6d 61 72 67 69 6e 29 0a 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 | t-margin)...(with-output-to-stri |
| c9a20 | 6e 67 20 28 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 28 77 69 74 68 | ng.(*standard-output*).....(with |
| c9a40 | 2d 61 72 67 6c 69 73 74 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 | -arglist-io-syntax.......(let.(( |
| c9a60 | 2a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 2a 20 70 72 69 6e 74 2d 72 69 67 68 74 | *print-right-margin*.print-right |
| c9a80 | 2d 6d 61 72 67 69 6e 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 64 65 63 6f 64 65 64 | -margin)).........(print-decoded |
| c9aa0 | 2d 61 72 67 6c 69 73 74 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 | -arglist.decoded-arglist........ |
| c9ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 70 65 72 61 74 6f | ........................:operato |
| c9ae0 | 72 20 6f 70 65 72 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.operator...................... |
| c9b00 | 20 20 20 20 20 20 20 20 20 20 3a 68 69 67 68 6c 69 67 68 74 20 68 69 67 68 6c 69 67 68 74 29 29 | ..........:highlight.highlight)) |
| c9b20 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 74 6f 2d 74 | )))..(defun.decoded-arglist-to-t |
| c9b40 | 65 6d 70 6c 61 74 65 2d 73 74 72 69 6e 67 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 0a | emplate-string.(decoded-arglist. |
| c9b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| c9b80 | 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 28 70 72 65 66 69 78 20 22 28 22 29 20 28 73 75 | ...........&key.(prefix."(").(su |
| c9ba0 | 66 66 69 78 20 22 29 22 29 29 0a 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 | ffix.")"))...(with-output-to-str |
| c9bc0 | 69 6e 67 20 28 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 28 77 69 74 | ing.(*standard-output*).....(wit |
| c9be0 | 68 2d 61 72 67 6c 69 73 74 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 20 20 20 28 70 72 69 6e 74 | h-arglist-io-syntax.......(print |
| c9c00 | 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 61 73 2d 74 65 6d 70 6c 61 74 65 20 64 65 63 | -decoded-arglist-as-template.dec |
| c9c20 | 6f 64 65 64 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | oded-arglist.................... |
| c9c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 66 69 78 20 70 72 | ......................:prefix.pr |
| c9c60 | 65 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | efix............................ |
| c9c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 75 66 66 69 78 20 73 75 66 66 69 78 29 29 29 29 | ..............:suffix.suffix)))) |
| c9ca0 | 0a 0a 3b 3b 3b 3b 20 41 72 67 6c 69 73 74 20 44 65 63 6f 64 69 6e 67 20 2f 20 45 6e 63 6f 64 69 | ..;;;;.Arglist.Decoding./.Encodi |
| c9cc0 | 6e 67 0a 0a 28 64 65 66 75 6e 20 64 65 63 6f 64 65 2d 72 65 71 75 69 72 65 64 2d 61 72 67 20 28 | ng..(defun.decode-required-arg.( |
| c9ce0 | 61 72 67 29 0a 20 20 22 41 52 47 20 63 61 6e 20 62 65 20 61 20 73 79 6d 62 6f 6c 20 6f 72 20 61 | arg)..."ARG.can.be.a.symbol.or.a |
| c9d00 | 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 70 61 74 74 65 72 6e 2e 22 0a 20 20 28 65 74 79 70 | .destructuring.pattern."...(etyp |
| c9d20 | 65 63 61 73 65 20 61 72 67 0a 20 20 20 20 28 73 79 6d 62 6f 6c 20 20 20 20 20 20 20 20 61 72 67 | ecase.arg.....(symbol........arg |
| c9d40 | 29 0a 20 20 20 20 28 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 20 61 72 67 29 0a 20 20 20 20 28 6c | ).....(arglist-dummy.arg).....(l |
| c9d60 | 69 73 74 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6f 64 65 2d 61 72 67 6c 69 73 74 20 61 72 67 | ist..........(decode-arglist.arg |
| c9d80 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 6e 63 6f 64 65 2d 72 65 71 75 69 72 65 64 2d 61 72 67 | ))))..(defun.encode-required-arg |
| c9da0 | 20 28 61 72 67 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 61 72 67 0a 20 20 20 20 28 73 79 6d | .(arg)...(etypecase.arg.....(sym |
| c9dc0 | 62 6f 6c 20 61 72 67 29 0a 20 20 20 20 28 61 72 67 6c 69 73 74 20 28 65 6e 63 6f 64 65 2d 61 72 | bol.arg).....(arglist.(encode-ar |
| c9de0 | 67 6c 69 73 74 20 61 72 67 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6e 6f 6e 69 63 61 6c 69 | glist.arg))))..(defun.canonicali |
| c9e00 | 7a 65 2d 64 65 66 61 75 6c 74 2d 61 72 67 20 28 66 6f 72 6d 29 0a 20 20 28 69 66 20 28 65 71 75 | ze-default-arg.(form)...(if.(equ |
| c9e20 | 61 6c 70 20 27 27 6e 69 6c 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 | alp.''nil.form).......nil....... |
| c9e40 | 66 6f 72 6d 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 63 6f 64 65 2d 6b 65 79 77 6f 72 64 2d 61 72 | form))..(defun.decode-keyword-ar |
| c9e60 | 67 20 28 61 72 67 29 0a 20 20 22 44 65 63 6f 64 65 20 61 20 6b 65 79 77 6f 72 64 20 69 74 65 6d | g.(arg)..."Decode.a.keyword.item |
| c9e80 | 20 6f 66 20 66 6f 72 6d 61 6c 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 2e 0a 52 65 74 75 72 6e | .of.formal.argument.list..Return |
| c9ea0 | 20 74 68 72 65 65 20 76 61 6c 75 65 73 3a 20 6b 65 79 77 6f 72 64 2c 20 61 72 67 75 6d 65 6e 74 | .three.values:.keyword,.argument |
| c9ec0 | 20 6e 61 6d 65 2c 20 64 65 66 61 75 6c 74 20 61 72 67 2e 22 0a 20 20 28 66 6c 65 74 20 28 28 69 | .name,.default.arg."...(flet.((i |
| c9ee0 | 6e 74 65 72 6e 2d 61 73 2d 6b 65 79 77 6f 72 64 20 28 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 | ntern-as-keyword.(arg).......... |
| c9f00 | 20 20 28 69 6e 74 65 72 6e 20 28 65 74 79 70 65 63 61 73 65 20 61 72 67 0a 20 20 20 20 20 20 20 | ..(intern.(etypecase.arg........ |
| c9f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e 61 | ..............(symbol.(symbol-na |
| c9f40 | 6d 65 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | me.arg))......................(a |
| c9f60 | 72 67 6c 69 73 74 2d 64 75 6d 6d 79 20 28 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 2e 73 74 72 69 | rglist-dummy.(arglist-dummy.stri |
| c9f80 | 6e 67 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 61 72 67 29 29 29 0a 20 20 20 20 20 20 20 | ng-representation.arg)))........ |
| c9fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 77 6f 72 64 2d 70 61 63 6b 61 67 65 29 29 29 0a 20 | ............keyword-package))).. |
| c9fc0 | 20 20 20 28 63 6f 6e 64 20 28 28 6f 72 20 28 73 79 6d 62 6f 6c 70 20 61 72 67 29 20 28 61 72 67 | ...(cond.((or.(symbolp.arg).(arg |
| c9fe0 | 6c 69 73 74 2d 64 75 6d 6d 79 2d 70 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d | list-dummy-p.arg))............(m |
| ca000 | 61 6b 65 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 28 69 6e 74 65 72 6e 2d 61 73 2d 6b 65 79 77 6f | ake-keyword-arg.(intern-as-keywo |
| ca020 | 72 64 20 61 72 67 29 20 61 72 67 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e | rd.arg).arg.nil))...........((an |
| ca040 | 64 20 28 63 6f 6e 73 70 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | d.(consp.arg).................(c |
| ca060 | 6f 6e 73 70 20 28 63 61 72 20 61 72 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b | onsp.(car.arg)))............(mak |
| ca080 | 65 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 28 63 61 61 72 20 61 72 67 29 0a 20 20 20 20 20 20 20 | e-keyword-arg.(caar.arg)........ |
| ca0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6f 64 65 2d 72 65 | ......................(decode-re |
| ca0c0 | 71 75 69 72 65 64 2d 61 72 67 20 28 63 61 64 61 72 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 | quired-arg.(cadar.arg))......... |
| ca0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 72 20 61 72 67 29 29 | .....................(cadr.arg)) |
| ca100 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 63 6f 6e 73 70 20 61 72 67 29 0a 20 20 20 20 20 20 20 | )...........((consp.arg)........ |
| ca120 | 20 20 20 20 28 6d 61 6b 65 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 28 69 6e 74 65 72 6e 2d 61 73 | ....(make-keyword-arg.(intern-as |
| ca140 | 2d 6b 65 79 77 6f 72 64 20 28 63 61 72 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -keyword.(car.arg))............. |
| ca160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 61 72 67 29 20 28 63 61 64 72 | .................(car.arg).(cadr |
| ca180 | 20 61 72 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 | .arg)))...........(t............ |
| ca1a0 | 28 65 72 72 6f 72 20 22 42 61 64 20 6b 65 79 77 6f 72 64 20 69 74 65 6d 20 6f 66 20 66 6f 72 6d | (error."Bad.keyword.item.of.form |
| ca1c0 | 61 6c 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 22 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 | al.argument.list")))))..(defun.e |
| ca1e0 | 6e 63 6f 64 65 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 28 61 72 67 29 0a 20 20 28 63 6f 6e 64 0a | ncode-keyword-arg.(arg)...(cond. |
| ca200 | 20 20 20 20 28 28 61 72 67 6c 69 73 74 2d 70 20 28 6b 65 79 77 6f 72 64 2d 61 72 67 2e 61 72 67 | ....((arglist-p.(keyword-arg.arg |
| ca220 | 2d 6e 61 6d 65 20 61 72 67 29 29 0a 20 20 20 20 20 3b 3b 20 44 65 73 74 72 75 63 74 75 72 69 6e | -name.arg))......;;.Destructurin |
| ca240 | 67 20 70 61 74 74 65 72 6e 0a 20 20 20 20 20 28 6c 65 74 20 28 28 6b 65 79 77 6f 72 64 2f 6e 61 | g.pattern......(let.((keyword/na |
| ca260 | 6d 65 20 28 6c 69 73 74 20 28 6b 65 79 77 6f 72 64 2d 61 72 67 2e 6b 65 79 77 6f 72 64 20 61 72 | me.(list.(keyword-arg.keyword.ar |
| ca280 | 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g).............................. |
| ca2a0 | 20 20 28 65 6e 63 6f 64 65 2d 72 65 71 75 69 72 65 64 2d 61 72 67 0a 20 20 20 20 20 20 20 20 20 | ..(encode-required-arg.......... |
| ca2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 77 6f 72 64 2d | .......................(keyword- |
| ca2e0 | 61 72 67 2e 61 72 67 2d 6e 61 6d 65 20 61 72 67 29 29 29 29 29 0a 20 20 20 20 20 20 20 28 69 66 | arg.arg-name.arg)))))........(if |
| ca300 | 20 28 6b 65 79 77 6f 72 64 2d 61 72 67 2e 64 65 66 61 75 6c 74 2d 61 72 67 20 61 72 67 29 0a 20 | .(keyword-arg.default-arg.arg).. |
| ca320 | 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6b 65 79 77 6f 72 64 2f 6e 61 6d 65 0a 20 20 20 | ..........(list.keyword/name.... |
| ca340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 77 6f 72 64 2d 61 72 67 2e 64 65 66 61 75 | ..............(keyword-arg.defau |
| ca360 | 6c 74 2d 61 72 67 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6b 65 | lt-arg.arg))............(list.ke |
| ca380 | 79 77 6f 72 64 2f 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 28 65 71 6c 20 28 69 6e 74 65 72 6e | yword/name)))).....((eql.(intern |
| ca3a0 | 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 6b 65 79 77 6f 72 64 2d 61 72 67 2e 61 72 67 2d 6e | .(symbol-name.(keyword-arg.arg-n |
| ca3c0 | 61 6d 65 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 77 | ame.arg))...................keyw |
| ca3e0 | 6f 72 64 2d 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 77 6f 72 64 2d | ord-package)...........(keyword- |
| ca400 | 61 72 67 2e 6b 65 79 77 6f 72 64 20 61 72 67 29 29 0a 20 20 20 20 20 28 69 66 20 28 6b 65 79 77 | arg.keyword.arg))......(if.(keyw |
| ca420 | 6f 72 64 2d 61 72 67 2e 64 65 66 61 75 6c 74 2d 61 72 67 20 61 72 67 29 0a 20 20 20 20 20 20 20 | ord-arg.default-arg.arg)........ |
| ca440 | 20 20 28 6c 69 73 74 20 28 6b 65 79 77 6f 72 64 2d 61 72 67 2e 61 72 67 2d 6e 61 6d 65 20 61 72 | ..(list.(keyword-arg.arg-name.ar |
| ca460 | 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 77 6f 72 64 2d 61 72 67 2e 64 | g)................(keyword-arg.d |
| ca480 | 65 66 61 75 6c 74 2d 61 72 67 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 6b 65 79 77 6f | efault-arg.arg))..........(keywo |
| ca4a0 | 72 64 2d 61 72 67 2e 61 72 67 2d 6e 61 6d 65 20 61 72 67 29 29 29 0a 20 20 20 20 28 74 0a 20 20 | rd-arg.arg-name.arg))).....(t... |
| ca4c0 | 20 20 20 28 6c 65 74 20 28 28 6b 65 79 77 6f 72 64 2f 6e 61 6d 65 20 28 6c 69 73 74 20 28 6b 65 | ...(let.((keyword/name.(list.(ke |
| ca4e0 | 79 77 6f 72 64 2d 61 72 67 2e 6b 65 79 77 6f 72 64 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 | yword-arg.keyword.arg).......... |
| ca500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 77 6f 72 64 2d 61 | ......................(keyword-a |
| ca520 | 72 67 2e 61 72 67 2d 6e 61 6d 65 20 61 72 67 29 29 29 29 0a 20 20 20 20 20 20 20 28 69 66 20 28 | rg.arg-name.arg))))........(if.( |
| ca540 | 6b 65 79 77 6f 72 64 2d 61 72 67 2e 64 65 66 61 75 6c 74 2d 61 72 67 20 61 72 67 29 0a 20 20 20 | keyword-arg.default-arg.arg).... |
| ca560 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6b 65 79 77 6f 72 64 2f 6e 61 6d 65 0a 20 20 20 20 20 | ........(list.keyword/name...... |
| ca580 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 77 6f 72 64 2d 61 72 67 2e 64 65 66 61 75 6c 74 | ............(keyword-arg.default |
| ca5a0 | 2d 61 72 67 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6b 65 79 77 | -arg.arg))............(list.keyw |
| ca5c0 | 6f 72 64 2f 6e 61 6d 65 29 29 29 29 29 29 0a 0a 28 70 72 6f 67 6e 0a 20 20 28 61 73 73 65 72 74 | ord/name))))))..(progn...(assert |
| ca5e0 | 20 28 65 71 75 61 6c 70 20 28 64 65 63 6f 64 65 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 27 78 29 | .(equalp.(decode-keyword-arg.'x) |
| ca600 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6b 65 79 77 6f 72 64 | ...................(make-keyword |
| ca620 | 2d 61 72 67 20 3a 78 20 27 78 20 6e 69 6c 29 29 29 0a 20 20 28 61 73 73 65 72 74 20 28 65 71 75 | -arg.:x.'x.nil)))...(assert.(equ |
| ca640 | 61 6c 70 20 28 64 65 63 6f 64 65 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 27 28 78 20 74 29 29 0a | alp.(decode-keyword-arg.'(x.t)). |
| ca660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6b 65 79 77 6f 72 64 2d | ..................(make-keyword- |
| ca680 | 61 72 67 20 3a 78 20 27 78 20 74 29 29 29 0a 20 20 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 70 | arg.:x.'x.t)))...(assert.(equalp |
| ca6a0 | 20 28 64 65 63 6f 64 65 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 27 28 28 3a 78 20 79 29 29 29 0a | .(decode-keyword-arg.'((:x.y))). |
| ca6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6b 65 79 77 6f 72 64 2d | ..................(make-keyword- |
| ca6e0 | 61 72 67 20 3a 78 20 27 79 20 6e 69 6c 29 29 29 0a 20 20 28 61 73 73 65 72 74 20 28 65 71 75 61 | arg.:x.'y.nil)))...(assert.(equa |
| ca700 | 6c 70 20 28 64 65 63 6f 64 65 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 27 28 28 3a 78 20 79 29 20 | lp.(decode-keyword-arg.'((:x.y). |
| ca720 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6b 65 79 77 | t))...................(make-keyw |
| ca740 | 6f 72 64 2d 61 72 67 20 3a 78 20 27 79 20 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 63 6f | ord-arg.:x.'y.t))))..(defun.deco |
| ca760 | 64 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 20 28 61 72 67 29 0a 20 20 22 44 65 63 6f 64 65 20 | de-optional-arg.(arg)..."Decode. |
| ca780 | 61 6e 20 6f 70 74 69 6f 6e 61 6c 20 69 74 65 6d 20 6f 66 20 61 20 66 6f 72 6d 61 6c 20 61 72 67 | an.optional.item.of.a.formal.arg |
| ca7a0 | 75 6d 65 6e 74 20 6c 69 73 74 2e 0a 52 65 74 75 72 6e 20 61 6e 20 4f 50 54 49 4f 4e 41 4c 2d 41 | ument.list..Return.an.OPTIONAL-A |
| ca7c0 | 52 47 20 73 74 72 75 63 74 75 72 65 2e 22 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 61 72 67 0a | RG.structure."...(etypecase.arg. |
| ca7e0 | 20 20 20 20 28 73 79 6d 62 6f 6c 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6f 70 74 69 6f 6e 61 | ....(symbol........(make-optiona |
| ca800 | 6c 2d 61 72 67 20 61 72 67 20 6e 69 6c 29 29 0a 20 20 20 20 28 61 72 67 6c 69 73 74 2d 64 75 6d | l-arg.arg.nil)).....(arglist-dum |
| ca820 | 6d 79 20 28 6d 61 6b 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 20 61 72 67 20 6e 69 6c 29 29 0a | my.(make-optional-arg.arg.nil)). |
| ca840 | 20 20 20 20 28 6c 69 73 74 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6f 70 74 69 6f 6e 61 | ....(list..........(make-optiona |
| ca860 | 6c 2d 61 72 67 20 28 64 65 63 6f 64 65 2d 72 65 71 75 69 72 65 64 2d 61 72 67 20 28 63 61 72 20 | l-arg.(decode-required-arg.(car. |
| ca880 | 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | arg))........................... |
| ca8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 72 20 61 72 67 29 29 29 29 29 0a 0a 28 64 65 66 | ............(cadr.arg)))))..(def |
| ca8c0 | 75 6e 20 65 6e 63 6f 64 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 20 28 6f 70 74 69 6f 6e 61 6c | un.encode-optional-arg.(optional |
| ca8e0 | 2d 61 72 67 29 0a 20 20 28 69 66 20 28 6f 72 20 28 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 2e 64 65 | -arg)...(if.(or.(optional-arg.de |
| ca900 | 66 61 75 6c 74 2d 61 72 67 20 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 29 0a 20 20 20 20 20 20 20 20 | fault-arg.optional-arg)......... |
| ca920 | 20 20 28 61 72 67 6c 69 73 74 2d 70 20 28 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 2e 61 72 67 2d 6e | ..(arglist-p.(optional-arg.arg-n |
| ca940 | 61 6d 65 20 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 29 29 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 | ame.optional-arg))).......(list. |
| ca960 | 28 65 6e 63 6f 64 65 2d 72 65 71 75 69 72 65 64 2d 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 | (encode-required-arg............ |
| ca980 | 20 20 28 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 2e 61 72 67 2d 6e 61 6d 65 20 6f 70 74 69 6f 6e 61 | ..(optional-arg.arg-name.optiona |
| ca9a0 | 6c 2d 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 70 74 69 6f 6e 61 6c 2d 61 72 | l-arg)).............(optional-ar |
| ca9c0 | 67 2e 64 65 66 61 75 6c 74 2d 61 72 67 20 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 29 29 0a 20 20 20 | g.default-arg.optional-arg)).... |
| ca9e0 | 20 20 20 28 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 2e 61 72 67 2d 6e 61 6d 65 20 6f 70 74 69 6f 6e | ...(optional-arg.arg-name.option |
| caa00 | 61 6c 2d 61 72 67 29 29 29 0a 0a 28 70 72 6f 67 6e 0a 20 20 28 61 73 73 65 72 74 20 28 65 71 75 | al-arg)))..(progn...(assert.(equ |
| caa20 | 61 6c 70 20 28 64 65 63 6f 64 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 20 27 78 29 0a 20 20 20 | alp.(decode-optional-arg.'x).... |
| caa40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 | ...............(make-optional-ar |
| caa60 | 67 20 27 78 20 6e 69 6c 29 29 29 0a 20 20 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 70 20 28 64 | g.'x.nil)))...(assert.(equalp.(d |
| caa80 | 65 63 6f 64 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 20 27 28 78 20 74 29 29 0a 20 20 20 20 20 | ecode-optional-arg.'(x.t))...... |
| caaa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 20 | .............(make-optional-arg. |
| caac0 | 27 78 20 74 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 6f 64 69 66 79 2d 6d 61 63 72 6f 20 6e | 'x.t))))..(define-modify-macro.n |
| caae0 | 72 65 76 65 72 73 65 66 20 28 29 20 6e 72 65 76 65 72 73 65 20 22 52 65 76 65 72 73 65 20 74 68 | reversef.().nreverse."Reverse.th |
| cab00 | 65 20 6c 69 73 74 20 69 6e 20 50 4c 41 43 45 2e 22 29 0a 0a 28 64 65 66 75 6e 20 64 65 63 6f 64 | e.list.in.PLACE.")..(defun.decod |
| cab20 | 65 2d 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 74 29 0a 20 20 22 50 61 72 73 65 20 74 68 65 | e-arglist.(arglist)..."Parse.the |
| cab40 | 20 6c 69 73 74 20 41 52 47 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 61 6e 20 41 52 47 4c | .list.ARGLIST.and.return.an.ARGL |
| cab60 | 49 53 54 20 73 74 72 75 63 74 75 72 65 2e 22 0a 20 20 28 69 66 20 28 65 71 20 61 72 67 6c 69 73 | IST.structure."...(if.(eq.arglis |
| cab80 | 74 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 0a 20 20 20 20 20 20 3a 6e 6f 74 2d 61 76 61 | t.:not-available).......:not-ava |
| caba0 | 69 6c 61 62 6c 65 0a 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 77 69 74 68 20 | ilable.......(loop.........with. |
| cabc0 | 6d 6f 64 65 20 3d 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 77 69 74 68 20 72 65 73 75 6c 74 20 3d | mode.=.nil.........with.result.= |
| cabe0 | 20 28 6d 61 6b 65 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 66 6f 72 20 61 72 67 20 | .(make-arglist).........for.arg. |
| cac00 | 3d 20 28 69 66 20 28 63 6f 6e 73 70 20 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 | =.(if.(consp.arglist)........... |
| cac20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 20 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 | ............(pop.arglist)....... |
| cac40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 | ................(progn.......... |
| cac60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 61 72 67 6c 69 73 74 0a 20 20 | ...............(prog1.arglist... |
| cac80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 6d 6f | ........................(setf.mo |
| caca0 | 64 65 20 27 26 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | de.'&rest....................... |
| cacc0 | 20 20 20 20 20 20 20 20 20 20 61 72 67 6c 69 73 74 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 | ..........arglist.nil))))....... |
| cace0 | 20 20 64 6f 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 6c 20 6d 6f | ..do.(cond..............((eql.mo |
| cad00 | 64 65 20 27 26 75 6e 6b 6e 6f 77 6e 2d 6a 75 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | de.'&unknown-junk).............. |
| cad20 | 20 3b 3b 20 64 6f 6e 27 74 20 6c 65 61 76 65 20 74 68 69 73 20 6d 6f 64 65 20 2d 2d 20 77 65 20 | .;;.don't.leave.this.mode.--.we. |
| cad40 | 64 6f 6e 27 74 20 6b 6e 6f 77 20 68 6f 77 20 74 68 65 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 | don't.know.how.the.arglist...... |
| cad60 | 20 20 20 20 20 20 20 20 20 3b 3b 20 61 66 74 65 72 20 75 6e 6b 6e 6f 77 6e 20 6c 61 6d 62 64 61 | .........;;.after.unknown.lambda |
| cad80 | 2d 6c 69 73 74 20 6b 65 79 77 6f 72 64 73 20 69 73 20 69 6e 74 65 72 70 72 65 74 65 64 0a 20 20 | -list.keywords.is.interpreted... |
| cada0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 61 72 67 20 28 61 72 67 6c 69 73 74 2e 75 | ............(push.arg.(arglist.u |
| cadc0 | 6e 6b 6e 6f 77 6e 2d 6a 75 6e 6b 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | nknown-junk.result)))........... |
| cade0 | 20 20 20 28 28 65 71 6c 20 61 72 67 20 27 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 | ...((eql.arg.'&allow-other-keys) |
| cae00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 61 72 67 6c 69 73 74 2e 61 6c | ...............(setf.(arglist.al |
| cae20 | 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 2d 70 20 72 65 73 75 6c 74 29 20 74 29 29 0a 20 20 20 | low-other-keys-p.result).t)).... |
| cae40 | 20 20 20 20 20 20 20 20 20 20 28 28 65 71 6c 20 61 72 67 20 27 26 6b 65 79 29 0a 20 20 20 20 20 | ..........((eql.arg.'&key)...... |
| cae60 | 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 2d 70 20 72 65 | .........(setf.(arglist.key-p.re |
| cae80 | 73 75 6c 74 29 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 | sult).t.....................mode |
| caea0 | 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 71 20 61 72 67 20 27 | .arg))..............((memq.arg.' |
| caec0 | 28 26 6f 70 74 69 6f 6e 61 6c 20 26 72 65 73 74 20 26 62 6f 64 79 20 26 61 75 78 29 29 0a 20 20 | (&optional.&rest.&body.&aux))... |
| caee0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 6f 64 65 20 61 72 67 29 29 0a 20 20 20 | ............(setq.mode.arg)).... |
| caf00 | 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 71 20 61 72 67 20 27 28 26 77 68 6f 6c 65 20 26 65 | ..........((memq.arg.'(&whole.&e |
| caf20 | 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | nvironment))...............(setq |
| caf40 | 20 6d 6f 64 65 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 61 | .mode.arg)...............(push.a |
| caf60 | 72 67 20 28 61 72 67 6c 69 73 74 2e 6b 6e 6f 77 6e 2d 6a 75 6e 6b 20 72 65 73 75 6c 74 29 29 29 | rg.(arglist.known-junk.result))) |
| caf80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 61 72 67 | ..............((and.(symbolp.arg |
| cafa0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3d 20 28 73 | )....................(string=.(s |
| cafc0 | 79 6d 62 6f 6c 2d 6e 61 6d 65 20 61 72 67 29 20 28 73 74 72 69 6e 67 20 27 23 3a 26 61 6e 79 29 | ymbol-name.arg).(string.'#:&any) |
| cafe0 | 29 29 20 3b 20 6d 61 79 20 62 65 20 69 6e 74 65 72 6e 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 | )).;.may.be.interned............ |
| cb000 | 20 20 20 28 73 65 74 66 20 28 61 72 67 6c 69 73 74 2e 61 6e 79 2d 70 20 72 65 73 75 6c 74 29 20 | ...(setf.(arglist.any-p.result). |
| cb020 | 74 29 20 3b 20 20 69 6e 20 61 6e 79 20 2a 70 61 63 6b 61 67 65 2a 2e 0a 20 20 20 20 20 20 20 20 | t).;..in.any.*package*.......... |
| cb040 | 20 20 20 20 20 20 28 73 65 74 71 20 6d 6f 64 65 20 27 26 61 6e 79 29 29 0a 20 20 20 20 20 20 20 | ......(setq.mode.'&any))........ |
| cb060 | 20 20 20 20 20 20 28 28 6d 65 6d 71 20 61 72 67 20 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 | ......((memq.arg.lambda-list-key |
| cb080 | 77 6f 72 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 6f 64 65 20 | words)...............(setq.mode. |
| cb0a0 | 27 26 75 6e 6b 6e 6f 77 6e 2d 6a 75 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | '&unknown-junk)...............(p |
| cb0c0 | 75 73 68 20 61 72 67 20 28 61 72 67 6c 69 73 74 2e 75 6e 6b 6e 6f 77 6e 2d 6a 75 6e 6b 20 72 65 | ush.arg.(arglist.unknown-junk.re |
| cb0e0 | 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 | sult)))..............(t......... |
| cb100 | 20 20 20 20 20 20 28 65 63 61 73 65 20 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(ecase.mode............... |
| cb120 | 20 20 28 26 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 | ..(&key..................(push.( |
| cb140 | 64 65 63 6f 64 65 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 | decode-keyword-arg.arg)......... |
| cb160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 77 6f 72 64 2d | ...............(arglist.keyword- |
| cb180 | 61 72 67 73 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | args.result))).................( |
| cb1a0 | 26 6f 70 74 69 6f 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 | &optional..................(push |
| cb1c0 | 20 28 64 65 63 6f 64 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 20 61 72 67 29 0a 20 20 20 20 20 | .(decode-optional-arg.arg)...... |
| cb1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 6f 70 74 69 6f | ..................(arglist.optio |
| cb200 | 6e 61 6c 2d 61 72 67 73 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | nal-args.result))).............. |
| cb220 | 20 20 20 28 26 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 | ...(&body..................(setf |
| cb240 | 20 28 61 72 67 6c 69 73 74 2e 62 6f 64 79 2d 70 20 72 65 73 75 6c 74 29 20 74 0a 20 20 20 20 20 | .(arglist.body-p.result).t...... |
| cb260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 72 65 73 74 20 | ..................(arglist.rest. |
| cb280 | 72 65 73 75 6c 74 29 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 26 | result).arg)).................(& |
| cb2a0 | 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 61 72 67 | rest..................(setf.(arg |
| cb2c0 | 6c 69 73 74 2e 72 65 73 74 20 72 65 73 75 6c 74 29 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 | list.rest.result).arg))......... |
| cb2e0 | 20 20 20 20 20 20 20 20 28 26 61 75 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ........(&aux..................( |
| cb300 | 70 75 73 68 20 28 64 65 63 6f 64 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 20 61 72 67 29 0a 20 | push.(decode-optional-arg.arg).. |
| cb320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 61 | ......................(arglist.a |
| cb340 | 75 78 2d 61 72 67 73 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ux-args.result)))............... |
| cb360 | 20 20 28 28 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 | ..((nil)..................(push. |
| cb380 | 28 64 65 63 6f 64 65 2d 72 65 71 75 69 72 65 64 2d 61 72 67 20 61 72 67 29 0a 20 20 20 20 20 20 | (decode-required-arg.arg)....... |
| cb3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 72 65 71 75 69 72 | .................(arglist.requir |
| cb3c0 | 65 64 2d 61 72 67 73 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-args.result)))............... |
| cb3e0 | 20 20 28 28 26 77 68 6f 6c 65 20 26 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 | ..((&whole.&environment)........ |
| cb400 | 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 6d 6f 64 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 | ..........(setf.mode.nil)....... |
| cb420 | 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 61 72 67 20 28 61 72 67 6c 69 73 74 2e 6b 6e | ...........(push.arg.(arglist.kn |
| cb440 | 6f 77 6e 2d 6a 75 6e 6b 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | own-junk.result))).............. |
| cb460 | 20 20 20 28 26 61 6e 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 | ...(&any..................(push. |
| cb480 | 61 72 67 20 28 61 72 67 6c 69 73 74 2e 61 6e 79 2d 61 72 67 73 20 72 65 73 75 6c 74 29 29 29 29 | arg.(arglist.any-args.result)))) |
| cb4a0 | 29 29 0a 20 20 20 20 20 20 20 20 75 6e 74 69 6c 20 28 6e 75 6c 6c 20 61 72 67 6c 69 73 74 29 0a | )).........until.(null.arglist). |
| cb4c0 | 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 6e 72 65 76 65 72 73 65 66 20 28 61 72 67 6c | ........finally.(nreversef.(argl |
| cb4e0 | 69 73 74 2e 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 | ist.required-args.result))...... |
| cb500 | 20 20 20 66 69 6e 61 6c 6c 79 20 28 6e 72 65 76 65 72 73 65 66 20 28 61 72 67 6c 69 73 74 2e 6f | ...finally.(nreversef.(arglist.o |
| cb520 | 70 74 69 6f 6e 61 6c 2d 61 72 67 73 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 66 69 | ptional-args.result)).........fi |
| cb540 | 6e 61 6c 6c 79 20 28 6e 72 65 76 65 72 73 65 66 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 77 6f 72 | nally.(nreversef.(arglist.keywor |
| cb560 | 64 2d 61 72 67 73 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 | d-args.result)).........finally. |
| cb580 | 28 6e 72 65 76 65 72 73 65 66 20 28 61 72 67 6c 69 73 74 2e 61 75 78 2d 61 72 67 73 20 72 65 73 | (nreversef.(arglist.aux-args.res |
| cb5a0 | 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 6e 72 65 76 65 72 73 65 66 | ult)).........finally.(nreversef |
| cb5c0 | 20 28 61 72 67 6c 69 73 74 2e 61 6e 79 2d 61 72 67 73 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 | .(arglist.any-args.result))..... |
| cb5e0 | 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 6e 72 65 76 65 72 73 65 66 20 28 61 72 67 6c 69 73 74 2e | ....finally.(nreversef.(arglist. |
| cb600 | 6b 6e 6f 77 6e 2d 6a 75 6e 6b 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 66 69 6e 61 | known-junk.result)).........fina |
| cb620 | 6c 6c 79 20 28 6e 72 65 76 65 72 73 65 66 20 28 61 72 67 6c 69 73 74 2e 75 6e 6b 6e 6f 77 6e 2d | lly.(nreversef.(arglist.unknown- |
| cb640 | 6a 75 6e 6b 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 61 | junk.result)).........finally.(a |
| cb660 | 73 73 65 72 74 20 28 6f 72 20 28 61 6e 64 20 28 6e 6f 74 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 | ssert.(or.(and.(not.(arglist.key |
| cb680 | 2d 70 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -p.result))..................... |
| cb6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 61 72 67 6c 69 73 74 2e 61 6e 79 2d 70 | .............(not.(arglist.any-p |
| cb6c0 | 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .result)))...................... |
| cb6e0 | 20 20 20 20 20 20 20 28 65 78 61 63 74 6c 79 2d 6f 6e 65 2d 70 20 28 61 72 67 6c 69 73 74 2e 6b | .......(exactly-one-p.(arglist.k |
| cb700 | 65 79 2d 70 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ey-p.result).................... |
| cb720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 | ........................(arglist |
| cb740 | 2e 61 6e 79 2d 70 20 72 65 73 75 6c 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c | .any-p.result)))).........finall |
| cb760 | 79 20 28 72 65 74 75 72 6e 20 72 65 73 75 6c 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 6e 63 | y.(return.result))))..(defun.enc |
| cb780 | 6f 64 65 2d 61 72 67 6c 69 73 74 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 0a 20 20 | ode-arglist.(decoded-arglist)... |
| cb7a0 | 28 61 70 70 65 6e 64 20 28 6d 61 70 63 61 72 20 23 27 65 6e 63 6f 64 65 2d 72 65 71 75 69 72 65 | (append.(mapcar.#'encode-require |
| cb7c0 | 64 2d 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 | d-arg...................(arglist |
| cb7e0 | 2e 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 29 | .required-args.decoded-arglist)) |
| cb800 | 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 72 67 6c 69 73 74 2e 6f 70 74 69 6f 6e | ...........(when.(arglist.option |
| cb820 | 61 6c 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 | al-args.decoded-arglist)........ |
| cb840 | 20 20 20 20 20 27 28 26 6f 70 74 69 6f 6e 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 | .....'(&optional))...........(ma |
| cb860 | 70 63 61 72 20 23 27 65 6e 63 6f 64 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 0a 20 20 20 20 20 | pcar.#'encode-optional-arg...... |
| cb880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 6f 70 74 69 6f 6e 61 6c 2d 61 | .............(arglist.optional-a |
| cb8a0 | 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 | rgs.decoded-arglist))........... |
| cb8c0 | 28 77 68 65 6e 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 2d 70 20 64 65 63 6f 64 65 64 2d 61 72 67 | (when.(arglist.key-p.decoded-arg |
| cb8e0 | 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 28 26 6b 65 79 29 29 0a 20 20 20 20 20 | list).............'(&key))...... |
| cb900 | 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 65 6e 63 6f 64 65 2d 6b 65 79 77 6f 72 64 2d 61 72 | .....(mapcar.#'encode-keyword-ar |
| cb920 | 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 | g...................(arglist.key |
| cb940 | 77 6f 72 64 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 | word-args.decoded-arglist))..... |
| cb960 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 72 67 6c 69 73 74 2e 61 6c 6c 6f 77 2d 6f 74 68 65 72 | ......(when.(arglist.allow-other |
| cb980 | 2d 6b 65 79 73 2d 70 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 | -keys-p.decoded-arglist)........ |
| cb9a0 | 20 20 20 20 20 27 28 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 29 0a 20 20 20 20 20 | .....'(&allow-other-keys))...... |
| cb9c0 | 20 20 20 20 20 28 77 68 65 6e 20 28 61 72 67 6c 69 73 74 2e 61 6e 79 2d 61 72 67 73 20 64 65 63 | .....(when.(arglist.any-args.dec |
| cb9e0 | 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 26 61 6e 79 | oded-arglist).............`(&any |
| cba00 | 20 2c 40 28 61 72 67 6c 69 73 74 2e 61 6e 79 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 | .,@(arglist.any-args.decoded-arg |
| cba20 | 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 28 61 | list)))...........(cond.((not.(a |
| cba40 | 72 67 6c 69 73 74 2e 72 65 73 74 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 29 0a 20 20 | rglist.rest.decoded-arglist))... |
| cba60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...............'())............. |
| cba80 | 20 20 20 20 28 28 61 72 67 6c 69 73 74 2e 62 6f 64 79 2d 70 20 64 65 63 6f 64 65 64 2d 61 72 67 | ....((arglist.body-p.decoded-arg |
| cbaa0 | 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 26 62 6f 64 79 20 2c | list)..................`(&body., |
| cbac0 | 28 61 72 67 6c 69 73 74 2e 72 65 73 74 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 29 29 | (arglist.rest.decoded-arglist))) |
| cbae0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .................(t............. |
| cbb00 | 20 20 20 20 20 60 28 26 72 65 73 74 20 2c 28 61 72 67 6c 69 73 74 2e 72 65 73 74 20 64 65 63 6f | .....`(&rest.,(arglist.rest.deco |
| cbb20 | 64 65 64 2d 61 72 67 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | ded-arglist))))...........(when. |
| cbb40 | 28 61 72 67 6c 69 73 74 2e 61 75 78 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 | (arglist.aux-args.decoded-arglis |
| cbb60 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 26 61 75 78 20 2c 28 61 72 67 6c 69 73 74 2e | t).............`(&aux.,(arglist. |
| cbb80 | 61 75 78 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 20 | aux-args.decoded-arglist)))..... |
| cbba0 | 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 6b 6e 6f 77 6e 2d 6a 75 6e 6b 20 64 65 63 6f 64 65 | ......(arglist.known-junk.decode |
| cbbc0 | 64 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 75 6e | d-arglist)...........(arglist.un |
| cbbe0 | 6b 6e 6f 77 6e 2d 6a 75 6e 6b 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 29 29 0a 0a 3b | known-junk.decoded-arglist)))..; |
| cbc00 | 3b 3b 3b 20 41 72 67 6c 69 73 74 20 45 6e 72 69 63 68 6d 65 6e 74 0a 0a 28 64 65 66 75 6e 20 61 | ;;;.Arglist.Enrichment..(defun.a |
| cbc20 | 72 67 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 20 28 6c 61 6d 62 64 61 2d 6c 69 73 74 29 0a 20 20 | rglist-keywords.(lambda-list)... |
| cbc40 | 22 52 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 6b 65 79 77 6f 72 64 73 20 69 6e 20 | "Return.the.list.of.keywords.in. |
| cbc60 | 41 52 47 4c 49 53 54 2e 0a 41 73 20 61 20 73 65 63 6f 6e 64 61 72 79 20 76 61 6c 75 65 2c 20 72 | ARGLIST..As.a.secondary.value,.r |
| cbc80 | 65 74 75 72 6e 20 77 68 65 74 68 65 72 20 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 | eturn.whether.&allow-other-keys. |
| cbca0 | 61 70 70 65 61 72 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 | appears."...(let.((decoded-argli |
| cbcc0 | 73 74 20 28 64 65 63 6f 64 65 2d 61 72 67 6c 69 73 74 20 6c 61 6d 62 64 61 2d 6c 69 73 74 29 29 | st.(decode-arglist.lambda-list)) |
| cbce0 | 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 77 6f 72 64 2d 61 | ).....(values.(arglist.keyword-a |
| cbd00 | 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 0a 09 20 20 20 20 28 61 72 67 6c 69 | rgs.decoded-arglist)......(argli |
| cbd20 | 73 74 2e 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 2d 70 20 64 65 63 6f 64 65 64 2d 61 72 | st.allow-other-keys-p.decoded-ar |
| cbd40 | 67 6c 69 73 74 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 6d 65 74 68 6f 64 73 2d 6b 65 79 77 6f | glist))))...(defun.methods-keywo |
| cbd60 | 72 64 73 20 28 6d 65 74 68 6f 64 73 29 0a 20 20 22 43 6f 6c 6c 65 63 74 20 61 6c 6c 20 6b 65 79 | rds.(methods)..."Collect.all.key |
| cbd80 | 77 6f 72 64 73 20 69 6e 20 74 68 65 20 61 72 67 6c 69 73 74 73 20 6f 66 20 4d 45 54 48 4f 44 53 | words.in.the.arglists.of.METHODS |
| cbda0 | 2e 0a 41 73 20 61 20 73 65 63 6f 6e 64 61 72 79 20 76 61 6c 75 65 2c 20 72 65 74 75 72 6e 20 77 | ..As.a.secondary.value,.return.w |
| cbdc0 | 68 65 74 68 65 72 20 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 61 70 70 65 61 72 73 | hether.&allow-other-keys.appears |
| cbde0 | 20 73 6f 6d 65 77 68 65 72 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 6b 65 79 77 6f 72 64 73 20 27 | .somewhere."...(let.((keywords.' |
| cbe00 | 28 29 29 0a 09 28 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 6e 69 6c 29 29 0a 20 20 20 | ())..(allow-other-keys.nil)).... |
| cbe20 | 20 28 64 6f 6c 69 73 74 20 28 6d 65 74 68 6f 64 20 6d 65 74 68 6f 64 73 29 0a 20 20 20 20 20 20 | .(dolist.(method.methods)....... |
| cbe40 | 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6b 77 20 61 6f 6b 29 0a 09 20 | (multiple-value-bind.(kw.aok)... |
| cbe60 | 20 28 61 72 67 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 0a 09 20 20 20 28 73 77 61 6e 6b 2d 6d 6f | .(arglist-keywords.....(swank-mo |
| cbe80 | 70 3a 6d 65 74 68 6f 64 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 6d 65 74 68 6f 64 29 29 0a 09 28 | p:method-lambda-list.method))..( |
| cbea0 | 73 65 74 71 20 6b 65 79 77 6f 72 64 73 20 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 | setq.keywords.(remove-duplicates |
| cbec0 | 20 28 61 70 70 65 6e 64 20 6b 65 79 77 6f 72 64 73 20 6b 77 29 0a 20 20 20 20 20 20 20 20 20 20 | .(append.keywords.kw)........... |
| cbee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| cbf00 | 3a 6b 65 79 20 23 27 6b 65 79 77 6f 72 64 2d 61 72 67 2e 6b 65 79 77 6f 72 64 29 0a 09 20 20 20 | :key.#'keyword-arg.keyword)..... |
| cbf20 | 20 20 20 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 28 6f 72 20 61 6c 6c 6f 77 2d 6f 74 | ...allow-other-keys.(or.allow-ot |
| cbf40 | 68 65 72 2d 6b 65 79 73 20 61 6f 6b 29 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 6b 65 79 | her-keys.aok)))).....(values.key |
| cbf60 | 77 6f 72 64 73 20 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 29 29 0a 0a 28 64 65 66 75 | words.allow-other-keys)))..(defu |
| cbf80 | 6e 20 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 77 6f 72 64 73 20 28 67 65 6e | n.generic-function-keywords.(gen |
| cbfa0 | 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 43 6f 6c 6c 65 63 74 20 61 6c 6c 20 6b 65 | eric-function)..."Collect.all.ke |
| cbfc0 | 79 77 6f 72 64 73 20 69 6e 20 74 68 65 20 6d 65 74 68 6f 64 73 20 6f 66 20 47 45 4e 45 52 49 43 | ywords.in.the.methods.of.GENERIC |
| cbfe0 | 2d 46 55 4e 43 54 49 4f 4e 2e 0a 41 73 20 61 20 73 65 63 6f 6e 64 61 72 79 20 76 61 6c 75 65 2c | -FUNCTION..As.a.secondary.value, |
| cc000 | 20 72 65 74 75 72 6e 20 77 68 65 74 68 65 72 20 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 | .return.whether.&allow-other-key |
| cc020 | 73 20 61 70 70 65 61 72 73 20 73 6f 6d 65 77 68 65 72 65 2e 22 0a 20 20 28 6d 65 74 68 6f 64 73 | s.appears.somewhere."...(methods |
| cc040 | 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d | -keywords....(swank-mop:generic- |
| cc060 | 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 73 20 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f | function-methods.generic-functio |
| cc080 | 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d | n)))..(defun.applicable-methods- |
| cc0a0 | 6b 65 79 77 6f 72 64 73 20 28 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 6d | keywords.(generic-function.argum |
| cc0c0 | 65 6e 74 73 29 0a 20 20 22 43 6f 6c 6c 65 63 74 20 61 6c 6c 20 6b 65 79 77 6f 72 64 73 20 69 6e | ents)..."Collect.all.keywords.in |
| cc0e0 | 20 74 68 65 20 6d 65 74 68 6f 64 73 20 6f 66 20 47 45 4e 45 52 49 43 2d 46 55 4e 43 54 49 4f 4e | .the.methods.of.GENERIC-FUNCTION |
| cc100 | 20 74 68 61 74 20 61 72 65 0a 61 70 70 6c 69 63 61 62 6c 65 20 66 6f 72 20 61 72 67 75 6d 65 6e | .that.are.applicable.for.argumen |
| cc120 | 74 20 6f 66 20 43 4c 41 53 53 45 53 2e 20 20 41 73 20 61 20 73 65 63 6f 6e 64 61 72 79 20 76 61 | t.of.CLASSES...As.a.secondary.va |
| cc140 | 6c 75 65 2c 20 72 65 74 75 72 6e 0a 77 68 65 74 68 65 72 20 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 | lue,.return.whether.&allow-other |
| cc160 | 2d 6b 65 79 73 20 61 70 70 65 61 72 73 20 73 6f 6d 65 77 68 65 72 65 2e 22 0a 20 20 28 6d 65 74 | -keys.appears.somewhere."...(met |
| cc180 | 68 6f 64 73 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | hods-keywords....(multiple-value |
| cc1a0 | 2d 62 69 6e 64 20 28 61 6d 75 63 20 6f 6b 70 29 0a 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d | -bind.(amuc.okp)........(swank-m |
| cc1c0 | 6f 70 3a 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 75 73 | op:compute-applicable-methods-us |
| cc1e0 | 69 6e 67 2d 63 6c 61 73 73 65 73 0a 20 20 20 20 20 20 20 20 67 65 6e 65 72 69 63 2d 66 75 6e 63 | ing-classes.........generic-func |
| cc200 | 74 69 6f 6e 20 28 6d 61 70 63 61 72 20 23 27 63 6c 61 73 73 2d 6f 66 20 61 72 67 75 6d 65 6e 74 | tion.(mapcar.#'class-of.argument |
| cc220 | 73 29 29 0a 20 20 20 20 20 28 69 66 20 6f 6b 70 0a 20 20 20 20 20 20 20 20 20 61 6d 75 63 0a 20 | s))......(if.okp..........amuc.. |
| cc240 | 20 20 20 20 20 20 20 20 28 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 | ........(compute-applicable-meth |
| cc260 | 6f 64 73 20 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 6d 65 6e 74 73 29 29 | ods.generic-function.arguments)) |
| cc280 | 29 29 29 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 | )))..(defgeneric.extra-keywords. |
| cc2a0 | 28 6f 70 65 72 61 74 6f 72 20 61 72 67 73 29 0a 20 20 20 28 3a 64 6f 63 75 6d 65 6e 74 61 74 69 | (operator.args)....(:documentati |
| cc2c0 | 6f 6e 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 65 78 74 72 61 20 6b 65 79 77 6f | on."Return.a.list.of.extra.keywo |
| cc2e0 | 72 64 73 20 6f 66 20 4f 50 45 52 41 54 4f 52 20 28 61 0a 73 79 6d 62 6f 6c 29 20 77 68 65 6e 20 | rds.of.OPERATOR.(a.symbol).when. |
| cc300 | 61 70 70 6c 69 65 64 20 74 6f 20 74 68 65 20 28 75 6e 65 76 61 6c 75 61 74 65 64 29 20 41 52 47 | applied.to.the.(unevaluated).ARG |
| cc320 | 53 2e 0a 41 73 20 61 20 73 65 63 6f 6e 64 61 72 79 20 76 61 6c 75 65 2c 20 72 65 74 75 72 6e 20 | S..As.a.secondary.value,.return. |
| cc340 | 77 68 65 74 68 65 72 20 6f 74 68 65 72 20 6b 65 79 73 20 61 72 65 20 61 6c 6c 6f 77 65 64 2e 0a | whether.other.keys.are.allowed.. |
| cc360 | 41 73 20 61 20 74 65 72 74 69 61 72 79 20 76 61 6c 75 65 2c 20 72 65 74 75 72 6e 20 74 68 65 20 | As.a.tertiary.value,.return.the. |
| cc380 | 69 6e 69 74 69 61 6c 20 73 75 62 6c 69 73 74 20 6f 66 20 41 52 47 53 20 74 68 61 74 20 77 61 73 | initial.sublist.of.ARGS.that.was |
| cc3a0 | 20 6e 65 65 64 65 64 0a 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 65 78 74 72 61 20 6b | .needed.to.determine.the.extra.k |
| cc3c0 | 65 79 77 6f 72 64 73 2e 22 29 29 0a 0a 3b 3b 3b 20 57 65 20 6d 61 6b 65 20 73 75 72 65 20 74 68 | eywords."))..;;;.We.make.sure.th |
| cc3e0 | 61 74 20 73 79 6d 62 6f 6c 2d 66 72 6f 6d 2d 4b 45 59 57 4f 52 44 2d 75 73 69 6e 67 20 6b 65 79 | at.symbol-from-KEYWORD-using.key |
| cc400 | 77 6f 72 64 73 20 63 6f 6d 65 20 62 65 66 6f 72 65 0a 3b 3b 3b 20 73 79 6d 62 6f 6c 2d 66 72 6f | words.come.before.;;;.symbol-fro |
| cc420 | 6d 2d 61 72 62 69 74 72 61 72 79 2d 70 61 63 6b 61 67 65 2d 75 73 69 6e 67 20 6b 65 79 77 6f 72 | m-arbitrary-package-using.keywor |
| cc440 | 64 73 2e 20 41 6e 64 20 77 65 20 73 6f 72 74 20 74 68 65 0a 3b 3b 3b 20 6c 61 74 74 65 72 20 61 | ds..And.we.sort.the.;;;.latter.a |
| cc460 | 63 63 6f 72 64 69 6e 67 20 74 6f 20 68 6f 77 20 74 68 65 69 72 20 68 6f 6d 65 2d 70 61 63 6b 61 | ccording.to.how.their.home-packa |
| cc480 | 67 65 73 20 72 65 6c 61 74 65 20 74 6f 20 2a 50 41 43 4b 41 47 45 2a 2e 0a 3b 3b 3b 0a 3b 3b 3b | ges.relate.to.*PACKAGE*..;;;.;;; |
| cc4a0 | 20 52 61 74 69 6f 6e 61 6c 65 20 69 73 20 74 6f 20 73 68 6f 77 20 74 68 6f 73 65 20 6b 65 79 20 | .Rationale.is.to.show.those.key. |
| cc4c0 | 70 61 72 61 6d 65 74 65 72 73 20 66 69 72 73 74 20 77 68 69 63 68 20 6d 61 6b 65 20 6d 6f 73 74 | parameters.first.which.make.most |
| cc4e0 | 0a 3b 3b 3b 20 73 65 6e 73 65 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 74 65 78 | .;;;.sense.in.the.current.contex |
| cc500 | 74 2e 20 41 6e 64 20 69 6e 20 70 61 72 74 69 63 75 6c 61 72 3a 20 74 6f 20 70 75 74 0a 3b 3b 3b | t..And.in.particular:.to.put.;;; |
| cc520 | 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 69 6e 74 65 72 6e 61 6c 20 73 74 75 66 66 20 6c | .implementation-internal.stuff.l |
| cc540 | 61 73 74 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 6d 61 74 74 65 72 73 20 74 72 65 6d 65 6e | ast..;;;.;;;.This.matters.tremen |
| cc560 | 64 65 6f 75 73 6c 79 20 6f 6e 20 41 6c 6c 65 67 72 6f 20 69 6e 20 63 6f 6d 62 69 6e 61 74 69 6f | deously.on.Allegro.in.combinatio |
| cc580 | 6e 20 77 69 74 68 0a 3b 3b 3b 20 41 6c 6c 65 67 72 6f 43 61 63 68 65 20 61 73 20 74 68 61 74 20 | n.with.;;;.AllegroCache.as.that. |
| cc5a0 | 64 6f 65 73 20 73 6f 6d 65 20 65 76 69 6c 20 74 69 6e 6b 65 72 69 6e 67 20 77 69 74 68 20 69 6e | does.some.evil.tinkering.with.in |
| cc5c0 | 69 74 61 72 67 73 2c 0a 3b 3b 3b 20 6f 62 66 75 73 63 61 74 69 6e 67 20 74 68 65 20 61 72 67 6c | itargs,.;;;.obfuscating.the.argl |
| cc5e0 | 69 73 74 20 6f 66 20 4d 41 4b 45 2d 49 4e 53 54 41 4e 43 45 2e 0a 3b 3b 3b 0a 0a 28 64 65 66 6d | ist.of.MAKE-INSTANCE..;;;..(defm |
| cc600 | 65 74 68 6f 64 20 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 3a 61 72 6f 75 6e 64 20 28 6f 70 | ethod.extra-keywords.:around.(op |
| cc620 | 20 61 72 67 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 61 62 6c 65 20 6f 70 20 | .args)...(declare.(ignorable.op. |
| cc640 | 61 72 67 73 29 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6b | args))...(multiple-value-bind.(k |
| cc660 | 65 79 77 6f 72 64 73 20 61 6f 6b 20 65 6e 72 69 63 68 6d 65 6e 74 73 29 20 28 63 61 6c 6c 2d 6e | eywords.aok.enrichments).(call-n |
| cc680 | 65 78 74 2d 6d 65 74 68 6f 64 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 28 73 6f 72 74 2d 65 78 | ext-method).....(values.(sort-ex |
| cc6a0 | 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 6b 65 79 77 6f 72 64 73 29 20 61 6f 6b 20 65 6e 72 69 63 | tra-keywords.keywords).aok.enric |
| cc6c0 | 68 6d 65 6e 74 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 70 61 63 6b 61 67 65 2d 63 | hments)))..(defun.make-package-c |
| cc6e0 | 6f 6d 70 61 72 61 74 6f 72 20 28 72 65 66 65 72 65 6e 63 65 2d 70 61 63 6b 61 67 65 73 29 0a 20 | omparator.(reference-packages).. |
| cc700 | 20 22 52 65 74 75 72 6e 73 20 61 20 74 77 6f 2d 61 72 67 75 6d 65 6e 74 20 74 65 73 74 20 66 75 | ."Returns.a.two-argument.test.fu |
| cc720 | 6e 63 74 69 6f 6e 20 77 68 69 63 68 20 63 6f 6d 70 61 72 65 73 20 70 61 63 6b 61 67 65 73 0a 61 | nction.which.compares.packages.a |
| cc740 | 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 69 72 20 75 73 65 64 2d 62 79 20 72 65 6c 61 74 69 | ccording.to.their.used-by.relati |
| cc760 | 6f 6e 20 77 69 74 68 20 52 45 46 45 52 45 4e 43 45 2d 50 41 43 4b 41 47 45 53 2e 20 50 61 63 6b | on.with.REFERENCE-PACKAGES..Pack |
| cc780 | 61 67 65 73 0a 77 69 6c 6c 20 62 65 20 73 6f 72 74 65 64 20 66 69 72 73 74 20 77 68 69 63 68 20 | ages.will.be.sorted.first.which. |
| cc7a0 | 61 70 70 65 61 72 20 66 69 72 73 74 20 69 6e 20 74 68 65 20 50 41 43 4b 41 47 45 2d 55 53 45 2d | appear.first.in.the.PACKAGE-USE- |
| cc7c0 | 4c 49 53 54 20 6f 66 20 74 68 65 0a 72 65 66 65 72 65 6e 63 65 20 70 61 63 6b 61 67 65 73 2e 22 | LIST.of.the.reference.packages." |
| cc7e0 | 0a 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 2d 75 73 65 2d 74 61 62 6c 65 20 28 6d 61 6b | ...(let.((package-use-table.(mak |
| cc800 | 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 27 65 71 29 29 29 0a 20 20 20 20 3b 3b | e-hash-table.:test.'eq))).....;; |
| cc820 | 20 57 61 6c 6b 20 74 68 65 20 70 61 63 6b 61 67 65 20 64 65 70 65 6e 64 65 6e 63 79 20 67 72 61 | .Walk.the.package.dependency.gra |
| cc840 | 70 68 20 62 72 65 61 64 74 68 2d 66 69 73 74 2c 20 61 6e 64 20 66 69 6c 6c 0a 20 20 20 20 3b 3b | ph.breadth-fist,.and.fill.....;; |
| cc860 | 20 50 41 43 4b 41 47 45 2d 55 53 45 2d 54 41 42 4c 45 20 61 63 63 6f 72 64 69 6e 67 6c 79 2e 0a | .PACKAGE-USE-TABLE.accordingly.. |
| cc880 | 20 20 20 20 28 6c 6f 6f 70 20 77 69 74 68 20 71 75 65 75 65 20 3d 20 28 63 6f 70 79 2d 6c 69 73 | ....(loop.with.queue.=.(copy-lis |
| cc8a0 | 74 20 72 65 66 65 72 65 6e 63 65 2d 70 61 63 6b 61 67 65 73 29 0a 09 20 20 77 69 74 68 20 62 66 | t.reference-packages)....with.bf |
| cc8c0 | 6e 20 20 20 3d 20 30 09 09 3b 20 42 72 65 61 64 74 68 2d 46 69 72 73 74 20 4e 75 6d 62 65 72 0a | n...=.0..;.Breadth-First.Number. |
| cc8e0 | 09 20 20 66 6f 72 20 70 20 20 20 20 20 20 3d 20 28 70 6f 70 20 71 75 65 75 65 29 0a 09 20 20 75 | ...for.p......=.(pop.queue)....u |
| cc900 | 6e 6c 65 73 73 20 28 67 65 74 68 61 73 68 20 70 20 70 61 63 6b 61 67 65 2d 75 73 65 2d 74 61 62 | nless.(gethash.p.package-use-tab |
| cc920 | 6c 65 29 0a 09 20 20 20 20 64 6f 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 | le)......do......(setf.(gethash. |
| cc940 | 70 20 70 61 63 6b 61 67 65 2d 75 73 65 2d 74 61 62 6c 65 29 20 28 73 68 69 66 74 66 20 62 66 6e | p.package-use-table).(shiftf.bfn |
| cc960 | 20 28 31 2b 20 62 66 6e 29 29 29 0a 09 20 20 20 20 61 6e 64 20 64 6f 20 20 28 73 65 74 66 20 71 | .(1+.bfn)))......and.do..(setf.q |
| cc980 | 75 65 75 65 20 28 6e 63 6f 6e 63 20 71 75 65 75 65 20 28 63 6f 70 79 2d 6c 69 73 74 20 28 70 61 | ueue.(nconc.queue.(copy-list.(pa |
| cc9a0 | 63 6b 61 67 65 2d 75 73 65 2d 6c 69 73 74 20 70 29 29 29 29 0a 09 20 20 77 68 69 6c 65 20 71 75 | ckage-use-list.p))))....while.qu |
| cc9c0 | 65 75 65 29 0a 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 70 31 20 70 32 29 0a 09 28 6c 65 74 | eue).....#'(lambda.(p1.p2)..(let |
| cc9e0 | 20 28 28 62 66 6e 31 20 28 67 65 74 68 61 73 68 20 70 31 20 70 61 63 6b 61 67 65 2d 75 73 65 2d | .((bfn1.(gethash.p1.package-use- |
| cca00 | 74 61 62 6c 65 29 29 0a 09 20 20 20 20 20 20 28 62 66 6e 32 20 28 67 65 74 68 61 73 68 20 70 32 | table))........(bfn2.(gethash.p2 |
| cca20 | 20 70 61 63 6b 61 67 65 2d 75 73 65 2d 74 61 62 6c 65 29 29 29 0a 09 20 20 28 63 6f 6e 64 20 28 | .package-use-table)))....(cond.( |
| cca40 | 28 61 6e 64 20 62 66 6e 31 20 62 66 6e 32 29 20 28 3c 3d 20 62 66 6e 31 20 62 66 6e 32 29 29 0a | (and.bfn1.bfn2).(<=.bfn1.bfn2)). |
| cca60 | 09 09 28 62 66 6e 31 20 20 20 20 20 20 20 20 20 20 20 20 62 66 6e 31 29 0a 09 09 28 62 66 6e 32 | ..(bfn1............bfn1)...(bfn2 |
| cca80 | 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 09 3b 20 70 32 20 69 73 20 75 73 65 64 2c 20 70 | ............nil).;.p2.is.used,.p |
| ccaa0 | 31 20 6e 6f 74 0a 09 09 28 74 20 28 73 74 72 69 6e 67 3c 3d 20 28 70 61 63 6b 61 67 65 2d 6e 61 | 1.not...(t.(string<=.(package-na |
| ccac0 | 6d 65 20 70 31 29 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 32 29 29 29 29 29 29 29 29 0a | me.p1).(package-name.p2)))))))). |
| ccae0 | 0a 28 64 65 66 75 6e 20 73 6f 72 74 2d 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 28 6b 77 64 | .(defun.sort-extra-keywords.(kwd |
| ccb00 | 73 29 0a 20 20 28 73 74 61 62 6c 65 2d 73 6f 72 74 20 6b 77 64 73 20 28 6d 61 6b 65 2d 70 61 63 | s)...(stable-sort.kwds.(make-pac |
| ccb20 | 6b 61 67 65 2d 63 6f 6d 70 61 72 61 74 6f 72 20 28 6c 69 73 74 20 6b 65 79 77 6f 72 64 2d 70 61 | kage-comparator.(list.keyword-pa |
| ccb40 | 63 6b 61 67 65 20 2a 70 61 63 6b 61 67 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ckage.*package*))............... |
| ccb60 | 20 3a 6b 65 79 20 28 63 6f 6d 70 6f 73 65 20 23 27 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 | .:key.(compose.#'symbol-package. |
| ccb80 | 23 27 6b 65 79 77 6f 72 64 2d 61 72 67 2e 6b 65 79 77 6f 72 64 29 29 29 0a 0a 28 64 65 66 75 6e | #'keyword-arg.keyword)))..(defun |
| ccba0 | 20 6b 65 79 77 6f 72 64 73 2d 6f 66 2d 6f 70 65 72 61 74 6f 72 20 28 6f 70 65 72 61 74 6f 72 29 | .keywords-of-operator.(operator) |
| ccbc0 | 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 4b 45 59 57 4f 52 44 2d 41 52 47 | ..."Return.a.list.of.KEYWORD-ARG |
| ccbe0 | 73 20 74 68 61 74 20 4f 50 45 52 41 54 4f 52 20 61 63 63 65 70 74 73 2e 0a 54 68 69 73 20 66 75 | s.that.OPERATOR.accepts..This.fu |
| ccc00 | 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 66 75 6c 20 66 6f 72 20 77 72 69 74 69 6e 67 20 45 58 54 | nction.is.useful.for.writing.EXT |
| ccc20 | 52 41 2d 4b 45 59 57 4f 52 44 53 20 6d 65 74 68 6f 64 73 20 66 6f 72 0a 75 73 65 72 2d 64 65 66 | RA-KEYWORDS.methods.for.user-def |
| ccc40 | 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 61 72 65 20 64 65 63 6c 61 72 65 | ined.functions.which.are.declare |
| ccc60 | 64 20 26 41 4c 4c 4f 57 2d 4f 54 48 45 52 2d 4b 45 59 53 20 61 6e 64 20 77 68 69 63 68 0a 66 6f | d.&ALLOW-OTHER-KEYS.and.which.fo |
| ccc80 | 72 77 61 72 64 20 6b 65 79 77 6f 72 64 73 20 74 6f 20 4f 50 45 52 41 54 4f 52 2e 22 0a 20 20 28 | rward.keywords.to.OPERATOR."...( |
| ccca0 | 77 69 74 68 2d 61 76 61 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 74 29 | with-available-arglist.(arglist) |
| cccc0 | 20 28 61 72 67 6c 69 73 74 2d 66 72 6f 6d 2d 66 6f 72 6d 20 28 65 6e 73 75 72 65 2d 6c 69 73 74 | .(arglist-from-form.(ensure-list |
| ccce0 | 20 6f 70 65 72 61 74 6f 72 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 28 61 72 67 6c 69 73 74 | .operator)).....(values.(arglist |
| ccd00 | 2e 6b 65 79 77 6f 72 64 2d 61 72 67 73 20 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 | .keyword-args.arglist).......... |
| ccd20 | 20 20 20 28 61 72 67 6c 69 73 74 2e 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 2d 70 20 61 | ...(arglist.allow-other-keys-p.a |
| ccd40 | 72 67 6c 69 73 74 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 78 74 72 61 2d 6b 65 79 | rglist))))..(defmethod.extra-key |
| ccd60 | 77 6f 72 64 73 20 28 6f 70 65 72 61 74 6f 72 20 61 72 67 73 29 0a 20 20 3b 3b 20 64 65 66 61 75 | words.(operator.args)...;;.defau |
| ccd80 | 6c 74 20 6d 65 74 68 6f 64 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 | lt.method...(declare.(ignore.arg |
| ccda0 | 73 29 29 0a 20 20 28 6c 65 74 20 28 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 28 73 79 | s))...(let.((symbol-function.(sy |
| ccdc0 | 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 6f 70 65 72 61 74 6f 72 29 29 29 0a 20 20 20 20 28 69 | mbol-function.operator))).....(i |
| ccde0 | 66 20 28 74 79 70 65 70 20 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 67 65 6e 65 72 69 | f.(typep.symbol-function.'generi |
| cce00 | 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 67 65 6e 65 72 69 63 2d 66 75 6e | c-function).........(generic-fun |
| cce20 | 63 74 69 6f 6e 2d 6b 65 79 77 6f 72 64 73 20 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 29 0a | ction-keywords.symbol-function). |
| cce40 | 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 61 73 73 2d 66 72 6f | ........nil)))..(defun.class-fro |
| cce60 | 6d 2d 63 6c 61 73 73 2d 6e 61 6d 65 2d 66 6f 72 6d 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 66 6f | m-class-name-form.(class-name-fo |
| cce80 | 72 6d 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6c 69 73 74 70 20 63 6c 61 73 73 2d 6e 61 | rm)...(when.(and.(listp.class-na |
| ccea0 | 6d 65 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6c 65 6e 67 74 68 | me-form)..............(=.(length |
| ccec0 | 20 63 6c 61 73 73 2d 6e 61 6d 65 2d 66 6f 72 6d 29 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .class-name-form).2)............ |
| ccee0 | 20 20 28 65 71 20 28 63 61 72 20 63 6c 61 73 73 2d 6e 61 6d 65 2d 66 6f 72 6d 29 20 27 71 75 6f | ..(eq.(car.class-name-form).'quo |
| ccf00 | 74 65 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6c 61 73 73 2d 6e 61 6d 65 20 28 63 61 64 | te)).....(let*.((class-name.(cad |
| ccf20 | 72 20 63 6c 61 73 73 2d 6e 61 6d 65 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | r.class-name-form))............( |
| ccf40 | 63 6c 61 73 73 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 63 6c 61 73 73 2d 6e 61 6d 65 20 6e 69 6c | class.(find-class.class-name.nil |
| ccf60 | 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 63 6c 61 73 73 0a 20 20 20 20 20 | ))).......(when.(and.class...... |
| ccf80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 | ............(not.(swank-mop:clas |
| ccfa0 | 73 2d 66 69 6e 61 6c 69 7a 65 64 2d 70 20 63 6c 61 73 73 29 29 29 0a 20 20 20 20 20 20 20 20 3b | s-finalized-p.class))).........; |
| ccfc0 | 3b 20 54 72 79 20 74 6f 20 66 69 6e 61 6c 69 7a 65 20 74 68 65 20 63 6c 61 73 73 2c 20 77 68 69 | ;.Try.to.finalize.the.class,.whi |
| ccfe0 | 63 68 20 63 61 6e 20 66 61 69 6c 20 69 66 0a 20 20 20 20 20 20 20 20 3b 3b 20 73 75 70 65 72 63 | ch.can.fail.if.........;;.superc |
| cd000 | 6c 61 73 73 65 73 20 61 72 65 20 6e 6f 74 20 64 65 66 69 6e 65 64 20 79 65 74 0a 20 20 20 20 20 | lasses.are.not.defined.yet...... |
| cd020 | 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 66 69 6e | ...(ignore-errors.(swank-mop:fin |
| cd040 | 61 6c 69 7a 65 2d 69 6e 68 65 72 69 74 61 6e 63 65 20 63 6c 61 73 73 29 29 29 0a 20 20 20 20 20 | alize-inheritance.class)))...... |
| cd060 | 20 63 6c 61 73 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 | .class)))..(defun.extra-keywords |
| cd080 | 2f 73 6c 6f 74 73 20 28 63 6c 61 73 73 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | /slots.(class)...(multiple-value |
| cd0a0 | 2d 62 69 6e 64 20 28 73 6c 6f 74 73 20 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 2d 70 29 | -bind.(slots.allow-other-keys-p) |
| cd0c0 | 0a 20 20 20 20 20 20 28 69 66 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 66 69 6e 61 | .......(if.(swank-mop:class-fina |
| cd0e0 | 6c 69 7a 65 64 2d 70 20 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 | lized-p.class)...........(values |
| cd100 | 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 73 6c 6f 74 73 20 63 6c 61 73 73 29 20 6e | .(swank-mop:class-slots.class).n |
| cd120 | 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 73 77 61 6e 6b 2d 6d 6f 70 | il)...........(values.(swank-mop |
| cd140 | 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 6c 6f 74 73 20 63 6c 61 73 73 29 20 74 29 29 0a 20 | :class-direct-slots.class).t)).. |
| cd160 | 20 20 20 28 6c 65 74 20 28 28 73 6c 6f 74 2d 69 6e 69 74 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 | ...(let.((slot-init-keywords.... |
| cd180 | 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 6c 6f 74 20 69 6e 20 73 6c 6f 74 73 | .........(loop.for.slot.in.slots |
| cd1a0 | 20 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 | .append...................(mapca |
| cd1c0 | 72 20 28 6c 61 6d 62 64 61 20 28 69 6e 69 74 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | r.(lambda.(initarg)............. |
| cd1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6b 65 79 77 6f 72 64 2d 61 72 | ................(make-keyword-ar |
| cd200 | 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 | g..............................i |
| cd220 | 6e 69 74 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nitarg.......................... |
| cd240 | 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e | ....(swank-mop:slot-definition-n |
| cd260 | 61 6d 65 20 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame.slot)....................... |
| cd280 | 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 | .......(and.(swank-mop:slot-defi |
| cd2a0 | 6e 69 74 69 6f 6e 2d 69 6e 69 74 66 75 6e 63 74 69 6f 6e 20 73 6c 6f 74 29 0a 20 20 20 20 20 20 | nition-initfunction.slot)....... |
| cd2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 | ............................(swa |
| cd2e0 | 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 74 66 6f 72 6d 20 | nk-mop:slot-definition-initform. |
| cd300 | 73 6c 6f 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | slot))))........................ |
| cd320 | 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e | ...(swank-mop:slot-definition-in |
| cd340 | 69 74 61 72 67 73 20 73 6c 6f 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 73 | itargs.slot))))).......(values.s |
| cd360 | 6c 6f 74 2d 69 6e 69 74 2d 6b 65 79 77 6f 72 64 73 20 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 | lot-init-keywords.allow-other-ke |
| cd380 | 79 73 2d 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 2f | ys-p))))..(defun.extra-keywords/ |
| cd3a0 | 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 28 6f 70 65 72 61 74 6f 72 20 61 72 67 73 29 0a 20 20 | make-instance.(operator.args)... |
| cd3c0 | 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6f 70 65 72 61 74 6f 72 29 29 0a 20 20 28 75 | (declare.(ignore.operator))...(u |
| cd3e0 | 6e 6c 65 73 73 20 28 6e 75 6c 6c 20 61 72 67 73 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6c | nless.(null.args).....(let*.((cl |
| cd400 | 61 73 73 2d 6e 61 6d 65 2d 66 6f 72 6d 20 28 63 61 72 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 | ass-name-form.(car.args))....... |
| cd420 | 20 20 20 20 20 28 63 6c 61 73 73 20 28 63 6c 61 73 73 2d 66 72 6f 6d 2d 63 6c 61 73 73 2d 6e 61 | .....(class.(class-from-class-na |
| cd440 | 6d 65 2d 66 6f 72 6d 20 63 6c 61 73 73 2d 6e 61 6d 65 2d 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 | me-form.class-name-form)))...... |
| cd460 | 20 28 77 68 65 6e 20 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 | .(when.class.........(multiple-v |
| cd480 | 61 6c 75 65 2d 62 69 6e 64 20 28 73 6c 6f 74 2d 69 6e 69 74 2d 6b 65 79 77 6f 72 64 73 20 63 6c | alue-bind.(slot-init-keywords.cl |
| cd4a0 | 61 73 73 2d 61 6f 6b 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 72 61 2d 6b 65 79 | ass-aokp).............(extra-key |
| cd4c0 | 77 6f 72 64 73 2f 73 6c 6f 74 73 20 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 75 | words/slots.class)...........(mu |
| cd4e0 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 61 6c 6c 6f 63 61 74 65 2d 69 6e 73 74 | ltiple-value-bind.(allocate-inst |
| cd500 | 61 6e 63 65 2d 6b 65 79 77 6f 72 64 73 20 61 69 2d 61 6f 6b 70 29 0a 20 20 20 20 20 20 20 20 20 | ance-keywords.ai-aokp).......... |
| cd520 | 20 20 20 20 20 28 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 6b 65 79 77 6f 72 64 | .....(applicable-methods-keyword |
| cd540 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 61 6c 6c 6f 63 61 74 65 2d 69 6e 73 74 | s................#'allocate-inst |
| cd560 | 61 6e 63 65 20 28 6c 69 73 74 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | ance.(list.class)).............( |
| cd580 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 69 6e 69 74 69 61 6c 69 7a 65 2d | multiple-value-bind.(initialize- |
| cd5a0 | 69 6e 73 74 61 6e 63 65 2d 6b 65 79 77 6f 72 64 73 20 69 69 2d 61 6f 6b 70 29 0a 20 20 20 20 20 | instance-keywords.ii-aokp)...... |
| cd5c0 | 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 | ...........(ignore-errors....... |
| cd5e0 | 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 6b | ...........(applicable-methods-k |
| cd600 | 65 79 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 69 6e 69 74 | eywords...................#'init |
| cd620 | 69 61 6c 69 7a 65 2d 69 6e 73 74 61 6e 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ialize-instance................. |
| cd640 | 20 20 28 6c 69 73 74 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 70 72 6f 74 6f 74 79 | ..(list.(swank-mop:class-prototy |
| cd660 | 70 65 20 63 6c 61 73 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 | pe.class))))...............(mult |
| cd680 | 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 68 61 72 65 64 2d 69 6e 69 74 69 61 6c 69 | iple-value-bind.(shared-initiali |
| cd6a0 | 7a 65 2d 6b 65 79 77 6f 72 64 73 20 73 69 2d 61 6f 6b 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ze-keywords.si-aokp)............ |
| cd6c0 | 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 | .......(ignore-errors........... |
| cd6e0 | 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 6b 65 79 | .........(applicable-methods-key |
| cd700 | 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 68 61 72 | words.....................#'shar |
| cd720 | 65 64 2d 69 6e 69 74 69 61 6c 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-initialize................... |
| cd740 | 20 20 28 6c 69 73 74 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 70 72 6f 74 6f 74 79 | ..(list.(swank-mop:class-prototy |
| cd760 | 70 65 20 63 6c 61 73 73 29 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | pe.class).t))).................( |
| cd780 | 76 61 6c 75 65 73 20 28 61 70 70 65 6e 64 20 73 6c 6f 74 2d 69 6e 69 74 2d 6b 65 79 77 6f 72 64 | values.(append.slot-init-keyword |
| cd7a0 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s............................... |
| cd7c0 | 20 20 61 6c 6c 6f 63 61 74 65 2d 69 6e 73 74 61 6e 63 65 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 | ..allocate-instance-keywords.... |
| cd7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 | .............................ini |
| cd800 | 74 69 61 6c 69 7a 65 2d 69 6e 73 74 61 6e 63 65 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 20 | tialize-instance-keywords....... |
| cd820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68 61 72 65 64 | ..........................shared |
| cd840 | 2d 69 6e 69 74 69 61 6c 69 7a 65 2d 6b 65 79 77 6f 72 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 | -initialize-keywords)........... |
| cd860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 63 6c 61 73 73 2d 61 6f 6b 70 20 61 69 2d | ..............(or.class-aokp.ai- |
| cd880 | 61 6f 6b 70 20 69 69 2d 61 6f 6b 70 20 73 69 2d 61 6f 6b 70 29 0a 20 20 20 20 20 20 20 20 20 20 | aokp.ii-aokp.si-aokp)........... |
| cd8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 63 6c 61 73 73 2d 6e 61 6d 65 2d 66 | ..............(list.class-name-f |
| cd8c0 | 6f 72 6d 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 72 61 2d 6b 65 79 77 | orm))))))))))..(defun.extra-keyw |
| cd8e0 | 6f 72 64 73 2f 63 68 61 6e 67 65 2d 63 6c 61 73 73 20 28 6f 70 65 72 61 74 6f 72 20 61 72 67 73 | ords/change-class.(operator.args |
| cd900 | 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6f 70 65 72 61 74 6f 72 29 29 0a | )...(declare.(ignore.operator)). |
| cd920 | 20 20 28 75 6e 6c 65 73 73 20 28 6e 75 6c 6c 20 61 72 67 73 29 0a 20 20 20 20 28 6c 65 74 2a 20 | ..(unless.(null.args).....(let*. |
| cd940 | 28 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 66 6f 72 6d 20 28 63 61 72 20 61 72 67 73 29 29 0a 20 20 | ((class-name-form.(car.args))... |
| cd960 | 20 20 20 20 20 20 20 20 20 28 63 6c 61 73 73 20 28 63 6c 61 73 73 2d 66 72 6f 6d 2d 63 6c 61 73 | .........(class.(class-from-clas |
| cd980 | 73 2d 6e 61 6d 65 2d 66 6f 72 6d 20 63 6c 61 73 73 2d 6e 61 6d 65 2d 66 6f 72 6d 29 29 29 0a 20 | s-name-form.class-name-form))).. |
| cd9a0 | 20 20 20 20 20 28 77 68 65 6e 20 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 | .....(when.class.........(multip |
| cd9c0 | 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 6c 6f 74 2d 69 6e 69 74 2d 6b 65 79 77 6f 72 64 | le-value-bind.(slot-init-keyword |
| cd9e0 | 73 20 63 6c 61 73 73 2d 61 6f 6b 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 72 61 | s.class-aokp).............(extra |
| cda00 | 2d 6b 65 79 77 6f 72 64 73 2f 73 6c 6f 74 73 20 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 | -keywords/slots.class).......... |
| cda20 | 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 6c 61 73 73 2d 61 6f 6b 70 29 29 0a 20 | .(declare.(ignore.class-aokp)).. |
| cda40 | 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 | .........(multiple-value-bind.(s |
| cda60 | 68 61 72 65 64 2d 69 6e 69 74 69 61 6c 69 7a 65 2d 6b 65 79 77 6f 72 64 73 20 73 69 2d 61 6f 6b | hared-initialize-keywords.si-aok |
| cda80 | 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a | p)...............(ignore-errors. |
| cdaa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 | ................(applicable-meth |
| cdac0 | 6f 64 73 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 | ods-keywords..................#' |
| cdae0 | 73 68 61 72 65 64 2d 69 6e 69 74 69 61 6c 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | shared-initialize............... |
| cdb00 | 20 20 20 28 6c 69 73 74 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 70 72 6f 74 6f 74 | ...(list.(swank-mop:class-protot |
| cdb20 | 79 70 65 20 63 6c 61 73 73 29 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 | ype.class).t))).............;;.F |
| cdb40 | 49 58 4d 45 3a 20 6d 75 63 68 20 61 73 20 69 74 20 77 6f 75 6c 64 20 62 65 20 6e 69 63 65 20 74 | IXME:.much.as.it.would.be.nice.t |
| cdb60 | 6f 20 69 6e 63 6c 75 64 65 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 70 70 | o.include.the.............;;.app |
| cdb80 | 6c 69 63 61 62 6c 65 20 6b 65 79 77 6f 72 64 73 20 66 72 6f 6d 0a 20 20 20 20 20 20 20 20 20 20 | licable.keywords.from........... |
| cdba0 | 20 20 3b 3b 20 55 50 44 41 54 45 2d 49 4e 53 54 41 4e 43 45 2d 46 4f 52 2d 44 49 46 46 45 52 45 | ..;;.UPDATE-INSTANCE-FOR-DIFFERE |
| cdbc0 | 4e 54 2d 43 4c 41 53 53 2c 20 49 20 64 6f 6e 27 74 20 72 65 61 6c 6c 79 20 73 65 65 0a 20 20 20 | NT-CLASS,.I.don't.really.see.... |
| cdbe0 | 20 20 20 20 20 20 20 20 20 3b 3b 20 68 6f 77 20 74 6f 20 64 6f 20 69 74 3a 20 73 6f 20 77 65 20 | .........;;.how.to.do.it:.so.we. |
| cdc00 | 70 75 6e 74 2c 20 61 6c 77 61 79 73 20 64 65 63 6c 61 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 | punt,.always.declaring.......... |
| cdc20 | 20 20 20 3b 3b 20 26 41 4c 4c 4f 57 2d 4f 54 48 45 52 2d 4b 45 59 53 2e 0a 20 20 20 20 20 20 20 | ...;;.&ALLOW-OTHER-KEYS......... |
| cdc40 | 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 73 69 2d 61 6f 6b 70 29 29 0a | .....(declare.(ignore.si-aokp)). |
| cdc60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 61 70 70 65 6e 64 20 73 6c 6f 74 | ............(values.(append.slot |
| cdc80 | 2d 69 6e 69 74 2d 6b 65 79 77 6f 72 64 73 20 73 68 61 72 65 64 2d 69 6e 69 74 69 61 6c 69 7a 65 | -init-keywords.shared-initialize |
| cdca0 | 2d 6b 65 79 77 6f 72 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 | -keywords).....................t |
| cdcc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 63 6c 61 73 73 | .....................(list.class |
| cdce0 | 2d 6e 61 6d 65 2d 66 6f 72 6d 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 | -name-form))))))))..(defmethod.e |
| cdd00 | 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 6d | xtra-keywords.((operator.(eql.'m |
| cdd20 | 61 6b 65 2d 69 6e 73 74 61 6e 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ake-instance)).................. |
| cdd40 | 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | ..........args)...(multiple-valu |
| cdd60 | 65 2d 6f 72 20 28 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 2f 6d 61 6b 65 2d 69 6e 73 74 61 6e | e-or.(extra-keywords/make-instan |
| cdd80 | 63 65 20 6f 70 65 72 61 74 6f 72 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ce.operator.args)............... |
| cdda0 | 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 29 0a 0a 28 64 65 | .......(call-next-method)))..(de |
| cddc0 | 66 6d 65 74 68 6f 64 20 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 28 28 6f 70 65 72 61 74 6f | fmethod.extra-keywords.((operato |
| cdde0 | 72 20 28 65 71 6c 20 27 6d 61 6b 65 2d 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 | r.(eql.'make-condition))........ |
| cde00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 0a 20 20 28 6d 75 6c | ....................args)...(mul |
| cde20 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6f 72 20 28 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 2f 6d | tiple-value-or.(extra-keywords/m |
| cde40 | 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 6f 70 65 72 61 74 6f 72 20 61 72 67 73 29 0a 20 20 20 20 | ake-instance.operator.args)..... |
| cde60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 | .................(call-next-meth |
| cde80 | 6f 64 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 | od)))..(defmethod.extra-keywords |
| cdea0 | 20 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 | .((operator.(eql.'error))....... |
| cdec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 0a 20 20 28 6d 75 | .....................args)...(mu |
| cdee0 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6f 72 20 28 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 2f | ltiple-value-or.(extra-keywords/ |
| cdf00 | 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 6f 70 65 72 61 74 6f 72 20 61 72 67 73 29 0a 20 20 20 | make-instance.operator.args).... |
| cdf20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 | ..................(call-next-met |
| cdf40 | 68 6f 64 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 | hod)))..(defmethod.extra-keyword |
| cdf60 | 73 20 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 73 69 67 6e 61 6c 29 29 0a 20 20 20 20 | s.((operator.(eql.'signal))..... |
| cdf80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 0a 20 20 28 | .......................args)...( |
| cdfa0 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6f 72 20 28 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 | multiple-value-or.(extra-keyword |
| cdfc0 | 73 2f 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 6f 70 65 72 61 74 6f 72 20 61 72 67 73 29 0a 20 | s/make-instance.operator.args).. |
| cdfe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d | ....................(call-next-m |
| ce000 | 65 74 68 6f 64 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 78 74 72 61 2d 6b 65 79 77 6f | ethod)))..(defmethod.extra-keywo |
| ce020 | 72 64 73 20 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 77 61 72 6e 29 29 0a 20 20 20 20 | rds.((operator.(eql.'warn))..... |
| ce040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 0a 20 20 28 | .......................args)...( |
| ce060 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6f 72 20 28 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 | multiple-value-or.(extra-keyword |
| ce080 | 73 2f 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 6f 70 65 72 61 74 6f 72 20 61 72 67 73 29 0a 20 | s/make-instance.operator.args).. |
| ce0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d | ....................(call-next-m |
| ce0c0 | 65 74 68 6f 64 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 78 74 72 61 2d 6b 65 79 77 6f | ethod)))..(defmethod.extra-keywo |
| ce0e0 | 72 64 73 20 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 63 65 72 72 6f 72 29 29 0a 20 20 | rds.((operator.(eql.'cerror))... |
| ce100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 0a 20 | .........................args).. |
| ce120 | 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6b 65 79 77 6f 72 64 73 20 | .(multiple-value-bind.(keywords. |
| ce140 | 61 6f 6b 20 64 65 74 65 72 6d 69 6e 65 72 73 29 0a 20 20 20 20 20 20 28 65 78 74 72 61 2d 6b 65 | aok.determiners).......(extra-ke |
| ce160 | 79 77 6f 72 64 73 2f 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 6f 70 65 72 61 74 6f 72 20 28 63 | ywords/make-instance.operator.(c |
| ce180 | 64 72 20 61 72 67 73 29 29 0a 20 20 20 20 28 69 66 20 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 | dr.args)).....(if.keywords...... |
| ce1a0 | 20 20 20 28 76 61 6c 75 65 73 20 6b 65 79 77 6f 72 64 73 20 61 6f 6b 0a 20 20 20 20 20 20 20 20 | ...(values.keywords.aok......... |
| ce1c0 | 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 63 61 72 20 61 72 67 73 29 20 64 65 74 65 72 6d 69 | ........(cons.(car.args).determi |
| ce1e0 | 6e 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 | ners)).........(call-next-method |
| ce200 | 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 | ))))..(defmethod.extra-keywords. |
| ce220 | 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 63 68 61 6e 67 65 2d 63 6c 61 73 73 29 29 0a | ((operator.(eql.'change-class)). |
| ce240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 | ...........................args) |
| ce260 | 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6b 65 79 77 6f 72 64 | ...(multiple-value-bind.(keyword |
| ce280 | 73 20 61 6f 6b 20 64 65 74 65 72 6d 69 6e 65 72 73 29 0a 20 20 20 20 20 20 28 65 78 74 72 61 2d | s.aok.determiners).......(extra- |
| ce2a0 | 6b 65 79 77 6f 72 64 73 2f 63 68 61 6e 67 65 2d 63 6c 61 73 73 20 6f 70 65 72 61 74 6f 72 20 28 | keywords/change-class.operator.( |
| ce2c0 | 63 64 72 20 61 72 67 73 29 29 0a 20 20 20 20 28 69 66 20 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 | cdr.args)).....(if.keywords..... |
| ce2e0 | 20 20 20 20 28 76 61 6c 75 65 73 20 6b 65 79 77 6f 72 64 73 20 61 6f 6b 0a 20 20 20 20 20 20 20 | ....(values.keywords.aok........ |
| ce300 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 63 61 72 20 61 72 67 73 29 20 64 65 74 65 72 6d | .........(cons.(car.args).determ |
| ce320 | 69 6e 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f | iners)).........(call-next-metho |
| ce340 | 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 6e 72 69 63 68 2d 64 65 63 6f 64 65 64 2d 61 72 67 | d))))..(defun.enrich-decoded-arg |
| ce360 | 6c 69 73 74 2d 77 69 74 68 2d 6b 65 79 77 6f 72 64 73 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c | list-with-keywords.(decoded-argl |
| ce380 | 69 73 74 20 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ist.keywords.................... |
| ce3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 6c 6f 77 2d | ..........................allow- |
| ce3c0 | 6f 74 68 65 72 2d 6b 65 79 73 2d 70 29 0a 20 20 22 4d 6f 64 69 66 79 20 44 45 43 4f 44 45 44 2d | other-keys-p)..."Modify.DECODED- |
| ce3e0 | 41 52 47 4c 49 53 54 20 75 73 69 6e 67 20 4b 45 59 57 4f 52 44 53 20 61 6e 64 20 41 4c 4c 4f 57 | ARGLIST.using.KEYWORDS.and.ALLOW |
| ce400 | 2d 4f 54 48 45 52 2d 4b 45 59 53 2d 50 2e 22 0a 20 20 28 77 68 65 6e 20 6b 65 79 77 6f 72 64 73 | -OTHER-KEYS-P."...(when.keywords |
| ce420 | 0a 20 20 20 20 28 73 65 74 66 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 2d 70 20 64 65 63 6f 64 65 | .....(setf.(arglist.key-p.decode |
| ce440 | 64 2d 61 72 67 6c 69 73 74 29 20 74 29 0a 20 20 20 20 28 73 65 74 66 20 28 61 72 67 6c 69 73 74 | d-arglist).t).....(setf.(arglist |
| ce460 | 2e 6b 65 79 77 6f 72 64 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 0a 20 | .keyword-args.decoded-arglist).. |
| ce480 | 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 0a 20 20 20 20 | .........(remove-duplicates..... |
| ce4a0 | 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 77 6f 72 64 2d | .......(append.(arglist.keyword- |
| ce4c0 | 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 | args.decoded-arglist)........... |
| ce4e0 | 20 20 20 20 20 20 20 20 20 6b 65 79 77 6f 72 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 6b | .........keywords)............:k |
| ce500 | 65 79 20 23 27 6b 65 79 77 6f 72 64 2d 61 72 67 2e 6b 65 79 77 6f 72 64 29 29 29 0a 20 20 28 73 | ey.#'keyword-arg.keyword)))...(s |
| ce520 | 65 74 66 20 28 61 72 67 6c 69 73 74 2e 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 2d 70 20 | etf.(arglist.allow-other-keys-p. |
| ce540 | 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 28 6f 72 20 28 61 72 | decoded-arglist).........(or.(ar |
| ce560 | 67 6c 69 73 74 2e 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 2d 70 20 64 65 63 6f 64 65 64 | glist.allow-other-keys-p.decoded |
| ce580 | 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 6c 6f 77 2d 6f 74 68 65 | -arglist).............allow-othe |
| ce5a0 | 72 2d 6b 65 79 73 2d 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 6e 72 69 63 68 2d 64 65 63 6f 64 | r-keys-p)))..(defun.enrich-decod |
| ce5c0 | 65 64 2d 61 72 67 6c 69 73 74 2d 77 69 74 68 2d 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 28 | ed-arglist-with-extra-keywords.( |
| ce5e0 | 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 66 6f 72 6d 29 0a 20 20 22 44 65 74 65 72 6d 69 | decoded-arglist.form)..."Determi |
| ce600 | 6e 65 20 65 78 74 72 61 20 6b 65 79 77 6f 72 64 73 20 66 72 6f 6d 20 74 68 65 20 66 75 6e 63 74 | ne.extra.keywords.from.the.funct |
| ce620 | 69 6f 6e 20 63 61 6c 6c 20 46 4f 52 4d 2c 20 61 6e 64 20 6d 6f 64 69 66 79 0a 44 45 43 4f 44 45 | ion.call.FORM,.and.modify.DECODE |
| ce640 | 44 2d 41 52 47 4c 49 53 54 20 74 6f 20 69 6e 63 6c 75 64 65 20 74 68 65 6d 2e 20 20 41 73 20 61 | D-ARGLIST.to.include.them...As.a |
| ce660 | 20 73 65 63 6f 6e 64 61 72 79 20 72 65 74 75 72 6e 20 76 61 6c 75 65 2c 20 72 65 74 75 72 6e 0a | .secondary.return.value,.return. |
| ce680 | 74 68 65 20 69 6e 69 74 69 61 6c 20 73 75 62 6c 69 73 74 20 6f 66 20 41 52 47 53 20 74 68 61 74 | the.initial.sublist.of.ARGS.that |
| ce6a0 | 20 77 61 73 20 6e 65 65 64 65 64 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 65 78 74 | .was.needed.to.determine.the.ext |
| ce6c0 | 72 61 0a 6b 65 79 77 6f 72 64 73 2e 20 20 41 73 20 61 20 74 65 72 74 69 61 72 79 20 72 65 74 75 | ra.keywords...As.a.tertiary.retu |
| ce6e0 | 72 6e 20 76 61 6c 75 65 2c 20 72 65 74 75 72 6e 20 77 68 65 74 68 65 72 20 61 6e 79 20 65 6e 72 | rn.value,.return.whether.any.enr |
| ce700 | 69 63 68 6d 65 6e 74 0a 77 61 73 20 64 6f 6e 65 2e 22 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 | ichment.was.done."...(multiple-v |
| ce720 | 61 6c 75 65 2d 62 69 6e 64 20 28 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 65 78 74 72 61 2d | alue-bind.(extra-keywords.extra- |
| ce740 | 61 6f 6b 20 64 65 74 65 72 6d 69 6e 69 6e 67 2d 61 72 67 73 29 0a 20 20 20 20 20 20 28 65 78 74 | aok.determining-args).......(ext |
| ce760 | 72 61 2d 6b 65 79 77 6f 72 64 73 20 28 63 61 72 20 66 6f 72 6d 29 20 28 63 64 72 20 66 6f 72 6d | ra-keywords.(car.form).(cdr.form |
| ce780 | 29 29 0a 20 20 20 20 3b 3b 20 65 6e 72 69 63 68 20 74 68 65 20 6c 69 73 74 20 6f 66 20 6b 65 79 | )).....;;.enrich.the.list.of.key |
| ce7a0 | 77 6f 72 64 73 20 77 69 74 68 20 74 68 65 20 65 78 74 72 61 20 6b 65 79 77 6f 72 64 73 0a 20 20 | words.with.the.extra.keywords... |
| ce7c0 | 20 20 28 65 6e 72 69 63 68 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 77 69 74 68 2d 6b | ..(enrich-decoded-arglist-with-k |
| ce7e0 | 65 79 77 6f 72 64 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 | eywords.decoded-arglist......... |
| ce800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ce820 | 20 20 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 65 78 74 72 61 2d 61 6f 6b 29 0a 20 20 20 20 | ..extra-keywords.extra-aok)..... |
| ce840 | 28 76 61 6c 75 65 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 | (values.decoded-arglist......... |
| ce860 | 20 20 20 20 64 65 74 65 72 6d 69 6e 69 6e 67 2d 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 | ....determining-args............ |
| ce880 | 20 28 6f 72 20 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 65 78 74 72 61 2d 61 6f 6b 29 29 29 | .(or.extra-keywords.extra-aok))) |
| ce8a0 | 29 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 63 6f 6d 70 75 74 65 2d 65 6e 72 69 63 68 65 64 2d | )..(defgeneric.compute-enriched- |
| ce8c0 | 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 28 6f 70 65 72 61 74 6f 72 2d 66 6f 72 6d 20 61 | decoded-arglist.(operator-form.a |
| ce8e0 | 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 73 29 0a 20 20 28 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | rgument-forms)...(:documentation |
| ce900 | 0a 20 20 20 22 52 65 74 75 72 6e 20 74 68 72 65 65 20 76 61 6c 75 65 73 3a 20 44 45 43 4f 44 45 | ...."Return.three.values:.DECODE |
| ce920 | 44 2d 41 52 47 4c 49 53 54 2c 20 44 45 54 45 52 4d 49 4e 49 4e 47 2d 41 52 47 53 2c 20 61 6e 64 | D-ARGLIST,.DETERMINING-ARGS,.and |
| ce940 | 0a 41 4e 59 2d 45 4e 52 49 43 48 4d 45 4e 54 2c 20 6a 75 73 74 20 6c 69 6b 65 20 65 6e 72 69 63 | .ANY-ENRICHMENT,.just.like.enric |
| ce960 | 68 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 77 69 74 68 2d 65 78 74 72 61 2d 6b 65 79 | h-decoded-arglist-with-extra-key |
| ce980 | 77 6f 72 64 73 2e 0a 49 66 20 74 68 65 20 61 72 67 6c 69 73 74 20 69 73 20 6e 6f 74 20 61 76 61 | words..If.the.arglist.is.not.ava |
| ce9a0 | 69 6c 61 62 6c 65 2c 20 72 65 74 75 72 6e 20 3a 4e 4f 54 2d 41 56 41 49 4c 41 42 4c 45 2e 22 29 | ilable,.return.:NOT-AVAILABLE.") |
| ce9c0 | 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 63 6f 6d 70 75 74 65 2d 65 6e 72 69 63 68 65 64 2d 64 | )..(defmethod.compute-enriched-d |
| ce9e0 | 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 28 6f 70 65 72 61 74 6f 72 2d 66 6f 72 6d 20 61 72 | ecoded-arglist.(operator-form.ar |
| cea00 | 67 75 6d 65 6e 74 2d 66 6f 72 6d 73 29 0a 20 20 28 77 69 74 68 2d 61 76 61 69 6c 61 62 6c 65 2d | gument-forms)...(with-available- |
| cea20 | 61 72 67 6c 69 73 74 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 | arglist.(decoded-arglist)....... |
| cea40 | 28 64 65 63 6f 64 65 2d 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 74 20 6f 70 65 72 61 74 6f | (decode-arglist.(arglist.operato |
| cea60 | 72 2d 66 6f 72 6d 29 29 0a 20 20 20 20 28 65 6e 72 69 63 68 2d 64 65 63 6f 64 65 64 2d 61 72 67 | r-form)).....(enrich-decoded-arg |
| cea80 | 6c 69 73 74 2d 77 69 74 68 2d 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 64 65 63 6f 64 65 64 | list-with-extra-keywords.decoded |
| ceaa0 | 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -arglist........................ |
| ceac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 6f | .........................(cons.o |
| ceae0 | 70 65 72 61 74 6f 72 2d 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | perator-form.................... |
| ceb00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ceb20 | 20 20 20 61 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 73 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f | ...argument-forms))))..(defmetho |
| ceb40 | 64 20 63 6f 6d 70 75 74 65 2d 65 6e 72 69 63 68 65 64 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 | d.compute-enriched-decoded-argli |
| ceb60 | 73 74 0a 20 20 20 20 28 28 6f 70 65 72 61 74 6f 72 2d 66 6f 72 6d 20 28 65 71 6c 20 27 77 69 74 | st.....((operator-form.(eql.'wit |
| ceb80 | 68 2d 6f 70 65 6e 2d 66 69 6c 65 29 29 20 61 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 73 29 0a 20 20 | h-open-file)).argument-forms)... |
| ceba0 | 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 73 29 | (declare.(ignore.argument-forms) |
| cebc0 | 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 64 65 63 6f 64 65 | )...(multiple-value-bind.(decode |
| cebe0 | 64 2d 61 72 67 6c 69 73 74 20 64 65 74 65 72 6d 69 6e 69 6e 67 2d 61 72 67 73 29 0a 20 20 20 20 | d-arglist.determining-args)..... |
| cec00 | 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 0a 20 20 20 20 28 6c 65 74 20 28 28 | ..(call-next-method).....(let.(( |
| cec20 | 66 69 72 73 74 2d 61 72 67 20 28 66 69 72 73 74 20 28 61 72 67 6c 69 73 74 2e 72 65 71 75 69 72 | first-arg.(first.(arglist.requir |
| cec40 | 65 64 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 20 20 | ed-args.decoded-arglist)))...... |
| cec60 | 20 20 20 20 20 28 6f 70 65 6e 2d 61 72 67 6c 69 73 74 20 28 63 6f 6d 70 75 74 65 2d 65 6e 72 69 | .....(open-arglist.(compute-enri |
| cec80 | 63 68 65 64 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 27 6f 70 65 6e 20 6e 69 6c 29 29 | ched-decoded-arglist.'open.nil)) |
| ceca0 | 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 61 72 67 6c 69 73 74 2d 70 20 66 69 | ).......(when.(and.(arglist-p.fi |
| cecc0 | 72 73 74 2d 61 72 67 29 20 28 61 72 67 6c 69 73 74 2d 70 20 6f 70 65 6e 2d 61 72 67 6c 69 73 74 | rst-arg).(arglist-p.open-arglist |
| cece0 | 29 29 0a 20 20 20 20 20 20 20 20 28 65 6e 72 69 63 68 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 | )).........(enrich-decoded-argli |
| ced00 | 73 74 2d 77 69 74 68 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 66 69 72 73 74 2d | st-with-keywords..........first- |
| ced20 | 61 72 67 0a 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 77 6f 72 64 2d 61 72 | arg..........(arglist.keyword-ar |
| ced40 | 67 73 20 6f 70 65 6e 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 | gs.open-arglist)..........nil))) |
| ced60 | 0a 20 20 20 20 28 76 61 6c 75 65 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 64 65 74 | .....(values.decoded-arglist.det |
| ced80 | 65 72 6d 69 6e 69 6e 67 2d 61 72 67 73 20 74 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 63 | ermining-args.t)))..(defmethod.c |
| ceda0 | 6f 6d 70 75 74 65 2d 65 6e 72 69 63 68 65 64 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 | ompute-enriched-decoded-arglist. |
| cedc0 | 28 28 6f 70 65 72 61 74 6f 72 2d 66 6f 72 6d 20 28 65 71 6c 20 27 61 70 70 6c 79 29 29 0a 20 20 | ((operator-form.(eql.'apply))... |
| cede0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| cee00 | 20 20 20 20 20 20 20 20 20 20 20 61 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 73 29 0a 20 20 28 6c 65 | ...........argument-forms)...(le |
| cee20 | 74 20 28 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 6f 72 6d 20 28 63 61 72 20 61 72 67 75 | t.((function-name-form.(car.argu |
| cee40 | 6d 65 6e 74 2d 66 6f 72 6d 73 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6c 69 | ment-forms))).....(when.(and.(li |
| cee60 | 73 74 70 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 | stp.function-name-form)......... |
| cee80 | 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 3d 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 6f | .......(length=.function-name-fo |
| ceea0 | 72 6d 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 71 20 28 63 61 72 20 | rm.2)................(memq.(car. |
| ceec0 | 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 6f 72 6d 29 20 27 28 71 75 6f 74 65 20 66 75 6e 63 | function-name-form).'(quote.func |
| ceee0 | 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 | tion))).......(let.((function-na |
| cef00 | 6d 65 20 28 63 61 64 72 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 6f 72 6d 29 29 29 0a 20 | me.(cadr.function-name-form))).. |
| cef20 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 76 61 6c 69 64 2d 6f 70 65 72 61 74 6f 72 2d 73 79 6d | .......(when.(valid-operator-sym |
| cef40 | 62 6f 6c 2d 70 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 | bol-p.function-name)...........( |
| cef60 | 6c 65 74 20 28 28 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 | let.((function-arglist.......... |
| cef80 | 20 20 20 20 20 20 20 20 28 63 6f 6d 70 75 74 65 2d 65 6e 72 69 63 68 65 64 2d 64 65 63 6f 64 65 | ........(compute-enriched-decode |
| cefa0 | 64 2d 61 72 67 6c 69 73 74 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 | d-arglist.function-name......... |
| cefc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| cefe0 | 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 61 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 73 29 29 | ...........(cdr.argument-forms)) |
| cf000 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 63 6f 6d 70 | )).............(return-from.comp |
| cf020 | 75 74 65 2d 65 6e 72 69 63 68 65 64 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 0a 20 20 20 | ute-enriched-decoded-arglist.... |
| cf040 | 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........(values.............. |
| cf060 | 20 20 28 6d 61 6b 65 2d 61 72 67 6c 69 73 74 20 3a 72 65 71 75 69 72 65 64 2d 61 72 67 73 0a 20 | ..(make-arglist.:required-args.. |
| cf080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | ............................(lis |
| cf0a0 | 74 20 27 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.'function).................... |
| cf0c0 | 20 20 20 20 20 20 20 20 20 20 3a 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 73 0a 20 20 20 20 20 20 20 | ..........:optional-args........ |
| cf0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 | ......................(append... |
| cf100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 | ............................(map |
| cf120 | 63 61 72 20 23 27 28 6c 61 6d 62 64 61 20 28 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | car.#'(lambda.(arg)............. |
| cf140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | ..............................(m |
| cf160 | 61 6b 65 2d 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 20 61 72 67 20 6e 69 6c 29 29 0a 20 20 20 20 20 | ake-optional-arg.arg.nil))...... |
| cf180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| cf1a0 | 20 28 61 72 67 6c 69 73 74 2e 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 66 75 6e 63 74 69 6f 6e | .(arglist.required-args.function |
| cf1c0 | 2d 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -arglist))...................... |
| cf1e0 | 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 73 20 | .........(arglist.optional-args. |
| cf200 | 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | function-arglist)).............. |
| cf220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 2d 70 0a 20 20 20 20 20 20 20 20 20 | ................:key-p.......... |
| cf240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 | ....................(arglist.key |
| cf260 | 2d 70 20 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -p.function-arglist)............ |
| cf280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 77 6f 72 64 2d 61 72 67 73 0a | ..................:keyword-args. |
| cf2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 | .............................(ar |
| cf2c0 | 67 6c 69 73 74 2e 6b 65 79 77 6f 72 64 2d 61 72 67 73 20 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c | glist.keyword-args.function-argl |
| cf2e0 | 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ist)............................ |
| cf300 | 20 20 3a 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..:rest......................... |
| cf320 | 20 20 20 20 20 27 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....'args...................... |
| cf340 | 20 20 20 20 20 20 20 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 2d 70 0a 20 20 20 20 | ........:allow-other-keys-p..... |
| cf360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 | .........................(arglis |
| cf380 | 74 2e 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 2d 70 20 66 75 6e 63 74 69 6f 6e 2d 61 72 | t.allow-other-keys-p.function-ar |
| cf3a0 | 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 66 75 6e | glist))................(list.fun |
| cf3c0 | 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ction-name-form)................ |
| cf3e0 | 74 29 29 29 29 29 29 29 0a 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 0a 0a | t)))))))...(call-next-method)).. |
| cf400 | 28 64 65 66 6d 65 74 68 6f 64 20 63 6f 6d 70 75 74 65 2d 65 6e 72 69 63 68 65 64 2d 64 65 63 6f | (defmethod.compute-enriched-deco |
| cf420 | 64 65 64 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 28 28 6f 70 65 72 61 74 6f 72 2d 66 6f 72 6d 20 | ded-arglist.....((operator-form. |
| cf440 | 28 65 71 6c 20 27 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 29 29 20 61 72 67 75 | (eql.'multiple-value-call)).argu |
| cf460 | 6d 65 6e 74 2d 66 6f 72 6d 73 29 0a 20 20 28 63 6f 6d 70 75 74 65 2d 65 6e 72 69 63 68 65 64 2d | ment-forms)...(compute-enriched- |
| cf480 | 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 27 61 70 70 6c 79 20 61 72 67 75 6d 65 6e 74 2d | decoded-arglist.'apply.argument- |
| cf4a0 | 66 6f 72 6d 73 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 67 69 76 65 6e 2d 61 72 67 | forms))..(defun.delete-given-arg |
| cf4c0 | 73 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 61 72 67 73 29 0a 20 20 22 44 65 6c 65 | s.(decoded-arglist.args)..."Dele |
| cf4e0 | 74 65 20 67 69 76 65 6e 20 41 52 47 53 20 66 72 6f 6d 20 44 45 43 4f 44 45 44 2d 41 52 47 4c 49 | te.given.ARGS.from.DECODED-ARGLI |
| cf500 | 53 54 2e 22 0a 20 20 28 6d 61 63 72 6f 6c 65 74 20 28 28 70 6f 70 2d 6f 72 2d 72 65 74 75 72 6e | ST."...(macrolet.((pop-or-return |
| cf520 | 20 28 6c 69 73 74 29 0a 09 20 20 20 20 20 20 20 60 28 69 66 20 28 6e 75 6c 6c 20 2c 6c 69 73 74 | .(list).........`(if.(null.,list |
| cf540 | 29 0a 09 09 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 64 6f 2d 64 65 63 6f 64 65 64 2d | ).......(return-from.do-decoded- |
| cf560 | 61 72 67 6c 69 73 74 29 0a 09 09 20 20 20 20 28 70 6f 70 20 2c 6c 69 73 74 29 29 29 29 0a 20 20 | arglist).......(pop.,list))))... |
| cf580 | 20 20 28 64 6f 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 64 65 63 6f 64 65 64 2d 61 72 | ..(do-decoded-arglist.decoded-ar |
| cf5a0 | 67 6c 69 73 74 0a 20 20 20 20 20 20 28 26 70 72 6f 76 69 64 65 64 20 28 29 0a 20 20 20 20 20 20 | glist.......(&provided.()....... |
| cf5c0 | 20 28 61 73 73 65 72 74 20 28 65 71 20 28 70 6f 70 2d 6f 72 2d 72 65 74 75 72 6e 20 61 72 67 73 | .(assert.(eq.(pop-or-return.args |
| cf5e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 20 28 61 72 67 6c 69 | )....................(pop.(argli |
| cf600 | 73 74 2e 70 72 6f 76 69 64 65 64 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 | st.provided-args.decoded-arglist |
| cf620 | 29 29 29 29 29 0a 20 20 20 20 20 20 28 26 72 65 71 75 69 72 65 64 20 28 29 0a 20 20 20 20 20 20 | ))))).......(&required.()....... |
| cf640 | 20 28 70 6f 70 2d 6f 72 2d 72 65 74 75 72 6e 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 28 70 6f | .(pop-or-return.args)........(po |
| cf660 | 70 20 28 61 72 67 6c 69 73 74 2e 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 64 65 63 6f 64 65 64 | p.(arglist.required-args.decoded |
| cf680 | 2d 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 29 0a | -arglist))).......(&optional.(). |
| cf6a0 | 20 20 20 20 20 20 20 28 70 6f 70 2d 6f 72 2d 72 65 74 75 72 6e 20 61 72 67 73 29 0a 20 20 20 20 | .......(pop-or-return.args)..... |
| cf6c0 | 20 20 20 28 70 6f 70 20 28 61 72 67 6c 69 73 74 2e 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 73 20 64 | ...(pop.(arglist.optional-args.d |
| cf6e0 | 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 28 26 6b 65 79 20 28 6b | ecoded-arglist))).......(&key.(k |
| cf700 | 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 3b 3b 20 4e 2e 62 2e 20 77 65 20 63 6f 6e 73 69 64 | eyword)........;;.N.b..we.consid |
| cf720 | 65 72 20 61 20 6b 65 79 77 6f 72 64 20 74 6f 20 62 65 20 67 69 76 65 6e 20 6f 6e 6c 79 20 77 68 | er.a.keyword.to.be.given.only.wh |
| cf740 | 65 6e 20 74 68 65 20 6b 65 79 77 6f 72 64 0a 20 20 20 20 20 20 20 3b 3b 20 5f 61 6e 64 5f 20 61 | en.the.keyword........;;._and_.a |
| cf760 | 20 76 61 6c 75 65 20 68 61 73 20 62 65 65 6e 20 67 69 76 65 6e 20 66 6f 72 20 69 74 2e 0a 20 20 | .value.has.been.given.for.it.... |
| cf780 | 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 6b 65 79 20 76 61 6c 75 65 29 20 6f 6e 20 61 72 | .....(loop.for.(key.value).on.ar |
| cf7a0 | 67 73 20 62 79 20 23 27 63 64 64 72 0a 09 20 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 28 65 71 | gs.by.#'cddr.......when.(and.(eq |
| cf7c0 | 20 6b 65 79 77 6f 72 64 20 6b 65 79 29 20 76 61 6c 75 65 29 0a 09 20 20 20 20 20 20 20 64 6f 20 | .keyword.key).value).........do. |
| cf7e0 | 28 73 65 74 66 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 77 6f 72 64 2d 61 72 67 73 20 64 65 63 6f | (setf.(arglist.keyword-args.deco |
| cf800 | 64 65 64 2d 61 72 67 6c 69 73 74 29 0a 09 09 09 28 72 65 6d 6f 76 65 20 6b 65 79 77 6f 72 64 20 | ded-arglist)....(remove.keyword. |
| cf820 | 28 61 72 67 6c 69 73 74 2e 6b 65 79 77 6f 72 64 2d 61 72 67 73 20 64 65 63 6f 64 65 64 2d 61 72 | (arglist.keyword-args.decoded-ar |
| cf840 | 67 6c 69 73 74 29 0a 09 09 09 09 3a 6b 65 79 20 23 27 6b 65 79 77 6f 72 64 2d 61 72 67 2e 6b 65 | glist).....:key.#'keyword-arg.ke |
| cf860 | 79 77 6f 72 64 29 29 29 29 29 29 0a 20 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 0a 0a | yword))))))...decoded-arglist).. |
| cf880 | 28 64 65 66 75 6e 20 72 65 6d 6f 76 65 2d 67 69 76 65 6e 2d 61 72 67 73 20 28 64 65 63 6f 64 65 | (defun.remove-given-args.(decode |
| cf8a0 | 64 2d 61 72 67 6c 69 73 74 20 61 72 67 73 29 0a 20 20 3b 3b 20 46 49 58 4d 45 3a 20 57 65 20 61 | d-arglist.args)...;;.FIXME:.We.a |
| cf8c0 | 63 74 75 61 6c 6c 79 20 6e 65 65 64 61 20 64 65 65 70 20 63 6f 70 79 20 68 65 72 65 2e 0a 20 20 | ctually.needa.deep.copy.here.... |
| cf8e0 | 28 64 65 6c 65 74 65 2d 67 69 76 65 6e 2d 61 72 67 73 20 28 63 6f 70 79 2d 61 72 67 6c 69 73 74 | (delete-given-args.(copy-arglist |
| cf900 | 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 29 20 61 72 67 73 29 29 0a 0a 3b 3b 3b 3b 20 41 | .decoded-arglist).args))..;;;;.A |
| cf920 | 72 67 6c 69 73 74 20 52 65 74 72 69 65 76 61 6c 0a 0a 28 64 65 66 75 6e 20 61 72 67 6c 69 73 74 | rglist.Retrieval..(defun.arglist |
| cf940 | 2d 66 72 6f 6d 2d 66 6f 72 6d 20 28 66 6f 72 6d 29 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 66 6f | -from-form.(form)...(if.(null.fo |
| cf960 | 72 6d 29 0a 20 20 20 20 20 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 0a 20 20 20 20 20 20 28 | rm).......:not-available.......( |
| cf980 | 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 63 68 20 28 63 61 72 20 66 6f 72 6d 29 20 28 63 64 72 | arglist-dispatch.(car.form).(cdr |
| cf9a0 | 20 66 6f 72 6d 29 29 29 29 0a 0a 28 65 78 70 6f 72 74 20 27 61 72 67 6c 69 73 74 2d 64 69 73 70 | .form))))..(export.'arglist-disp |
| cf9c0 | 61 74 63 68 29 0a 28 64 65 66 67 65 6e 65 72 69 63 20 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 | atch).(defgeneric.arglist-dispat |
| cf9e0 | 63 68 20 28 6f 70 65 72 61 74 6f 72 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 3b 3b 20 44 65 66 | ch.(operator.arguments)...;;.Def |
| cfa00 | 61 75 6c 74 20 6d 65 74 68 6f 64 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 6f 70 65 72 61 74 6f 72 | ault.method...(:method.(operator |
| cfa20 | 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 28 73 79 | .arguments).....(unless.(and.(sy |
| cfa40 | 6d 62 6f 6c 70 20 6f 70 65 72 61 74 6f 72 29 20 28 76 61 6c 69 64 2d 6f 70 65 72 61 74 6f 72 2d | mbolp.operator).(valid-operator- |
| cfa60 | 73 79 6d 62 6f 6c 2d 70 20 6f 70 65 72 61 74 6f 72 29 29 0a 20 20 20 20 20 20 28 72 65 74 75 72 | symbol-p.operator)).......(retur |
| cfa80 | 6e 2d 66 72 6f 6d 20 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 63 68 20 3a 6e 6f 74 2d 61 76 61 | n-from.arglist-dispatch.:not-ava |
| cfaa0 | 69 6c 61 62 6c 65 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 70 20 28 70 61 63 6b | ilable)).....(when.(equalp.(pack |
| cfac0 | 61 67 65 2d 6e 61 6d 65 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 6f 70 65 72 61 74 6f | age-name.(symbol-package.operato |
| cfae0 | 72 29 29 20 22 63 6c 6f 73 65 72 2d 6d 6f 70 22 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 | r))."closer-mop").......(let.((s |
| cfb00 | 74 61 6e 64 61 72 64 2d 73 79 6d 62 6f 6c 20 28 6f 72 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 | tandard-symbol.(or.(find-symbol. |
| cfb20 | 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6f 70 65 72 61 74 6f 72 29 20 3a 63 6c 29 0a 20 20 20 20 | (symbol-name.operator).:cl)..... |
| cfb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 | .............................(fi |
| cfb60 | 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6f 70 65 72 61 74 6f 72 29 | nd-symbol.(symbol-name.operator) |
| cfb80 | 20 3a 73 77 61 6e 6b 2d 6d 6f 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 74 | .:swank-mop)))).........(when.st |
| cfba0 | 61 6e 64 61 72 64 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d | andard-symbol...........(return- |
| cfbc0 | 66 72 6f 6d 20 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 | from.arglist-dispatch........... |
| cfbe0 | 20 20 28 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 63 68 20 73 74 61 6e 64 61 72 64 2d 73 79 6d | ..(arglist-dispatch.standard-sym |
| cfc00 | 62 6f 6c 20 61 72 67 75 6d 65 6e 74 73 29 29 29 29 29 0a 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c | bol.arguments)))))......(multipl |
| cfc20 | 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 64 65 | e-value-bind.(decoded-arglist.de |
| cfc40 | 74 65 72 6d 69 6e 69 6e 67 2d 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6d 70 75 74 65 | termining-args).........(compute |
| cfc60 | 2d 65 6e 72 69 63 68 65 64 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 6f 70 65 72 61 74 | -enriched-decoded-arglist.operat |
| cfc80 | 6f 72 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 61 76 61 69 6c 61 | or.arguments).......(with-availa |
| cfca0 | 62 6c 65 2d 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 74 29 20 64 65 63 6f 64 65 64 2d 61 72 | ble-arglist.(arglist).decoded-ar |
| cfcc0 | 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 3b 3b 20 72 65 70 6c 61 63 65 20 73 6f 6d 65 20 66 6f | glist.........;;.replace.some.fo |
| cfce0 | 72 6d 61 6c 20 61 72 67 73 20 62 79 20 64 65 74 65 72 6d 69 6e 69 6e 67 20 61 63 74 75 61 6c 20 | rmal.args.by.determining.actual. |
| cfd00 | 61 72 67 73 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 61 72 67 6c 69 73 74 20 28 64 65 6c 65 | args.........(setf.arglist.(dele |
| cfd20 | 74 65 2d 67 69 76 65 6e 2d 61 72 67 73 20 61 72 67 6c 69 73 74 20 64 65 74 65 72 6d 69 6e 69 6e | te-given-args.arglist.determinin |
| cfd40 | 67 2d 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 61 72 67 6c 69 73 74 2e | g-args)).........(setf.(arglist. |
| cfd60 | 70 72 6f 76 69 64 65 64 2d 61 72 67 73 20 61 72 67 6c 69 73 74 29 20 64 65 74 65 72 6d 69 6e 69 | provided-args.arglist).determini |
| cfd80 | 6e 67 2d 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 61 72 67 6c 69 73 74 29 29 29 29 0a 0a 28 64 | ng-args).........arglist))))..(d |
| cfda0 | 65 66 6d 65 74 68 6f 64 20 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 63 68 20 28 28 6f 70 65 72 | efmethod.arglist-dispatch.((oper |
| cfdc0 | 61 74 6f 72 20 28 65 71 6c 20 27 64 65 66 6d 65 74 68 6f 64 29 29 20 61 72 67 75 6d 65 6e 74 73 | ator.(eql.'defmethod)).arguments |
| cfde0 | 29 0a 20 20 28 6d 61 74 63 68 20 28 63 6f 6e 73 20 6f 70 65 72 61 74 6f 72 20 61 72 67 75 6d 65 | )...(match.(cons.operator.argume |
| cfe00 | 6e 74 73 29 0a 20 20 20 20 28 28 27 64 65 66 6d 65 74 68 6f 64 20 28 23 27 66 75 6e 63 74 69 6f | nts).....(('defmethod.(#'functio |
| cfe20 | 6e 2d 65 78 69 73 74 73 2d 70 20 67 66 2d 6e 61 6d 65 29 20 2e 20 72 65 73 74 29 0a 20 20 20 20 | n-exists-p.gf-name)...rest)..... |
| cfe40 | 20 28 6c 65 74 20 28 28 67 66 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 67 66 2d 6e 61 6d 65 29 | .(let.((gf.(fdefinition.gf-name) |
| cfe60 | 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 74 79 70 65 70 20 67 66 20 27 67 65 6e 65 72 | ))........(when.(typep.gf.'gener |
| cfe80 | 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 61 6d | ic-function)..........(let.((lam |
| cfea0 | 62 64 61 2d 6c 69 73 74 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 | bda-list.(swank-mop:generic-func |
| cfec0 | 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 67 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 | tion-lambda-list.gf))).......... |
| cfee0 | 20 20 28 77 69 74 68 2d 61 76 61 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 | ..(with-available-arglist.(argli |
| cff00 | 73 74 29 20 28 64 65 63 6f 64 65 2d 61 72 67 6c 69 73 74 20 6c 61 6d 62 64 61 2d 6c 69 73 74 29 | st).(decode-arglist.lambda-list) |
| cff20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 71 75 61 6c 69 66 69 65 72 73 20 | ..............(let.((qualifiers. |
| cff40 | 28 6c 6f 6f 70 20 66 6f 72 20 78 20 69 6e 20 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (loop.for.x.in.rest............. |
| cff60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 74 69 6c 20 28 | .........................until.( |
| cff80 | 6f 72 20 28 6c 69 73 74 70 20 78 29 20 28 65 6d 70 74 79 2d 61 72 67 2d 70 20 78 29 29 0a 20 20 | or.(listp.x).(empty-arg-p.x))... |
| cffa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| cffc0 | 20 20 20 63 6f 6c 6c 65 63 74 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...collect.x)))................( |
| cffe0 | 72 65 74 75 72 6e 2d 66 72 6f 6d 20 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 63 68 0a 20 20 20 | return-from.arglist-dispatch.... |
| d0000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 61 72 67 6c 69 73 74 20 3a 70 72 6f | ..............(make-arglist.:pro |
| d0020 | 76 69 64 65 64 2d 61 72 67 73 20 28 63 6f 6e 73 20 67 66 2d 6e 61 6d 65 20 71 75 61 6c 69 66 69 | vided-args.(cons.gf-name.qualifi |
| d0040 | 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ers)............................ |
| d0060 | 20 20 20 20 3a 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 28 6c 69 73 74 20 61 72 67 6c 69 73 74 | ....:required-args.(list.arglist |
| d0080 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| d00a0 | 20 3a 72 65 73 74 20 22 62 6f 64 79 22 20 3a 62 6f 64 79 2d 70 20 74 29 29 29 29 29 29 29 29 0a | .:rest."body".:body-p.t)))))))). |
| d00c0 | 20 20 20 20 28 5f 29 29 20 3b 20 46 61 6c 6c 20 74 68 72 6f 75 67 68 0a 20 20 28 63 61 6c 6c 2d | ....(_)).;.Fall.through...(call- |
| d00e0 | 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 61 72 67 6c 69 73 | next-method))..(defmethod.arglis |
| d0100 | 74 2d 64 69 73 70 61 74 63 68 20 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 64 65 66 69 | t-dispatch.((operator.(eql.'defi |
| d0120 | 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 29 29 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 | ne-compiler-macro)).arguments).. |
| d0140 | 20 28 6d 61 74 63 68 20 28 63 6f 6e 73 20 6f 70 65 72 61 74 6f 72 20 61 72 67 75 6d 65 6e 74 73 | .(match.(cons.operator.arguments |
| d0160 | 29 0a 20 20 20 20 28 28 27 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 28 | ).....(('define-compiler-macro.( |
| d0180 | 23 27 66 75 6e 63 74 69 6f 6e 2d 65 78 69 73 74 73 2d 70 20 66 75 6e 2d 6e 61 6d 65 29 20 2e 20 | #'function-exists-p.fun-name)... |
| d01a0 | 5f 29 0a 20 20 20 20 20 28 77 69 74 68 2d 61 76 61 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 74 20 | _)......(with-available-arglist. |
| d01c0 | 28 61 72 67 6c 69 73 74 29 20 28 64 65 63 6f 64 65 2d 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 | (arglist).(decode-arglist.(argli |
| d01e0 | 73 74 20 66 75 6e 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f | st.fun-name))........(return-fro |
| d0200 | 6d 20 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b | m.arglist-dispatch..........(mak |
| d0220 | 65 2d 61 72 67 6c 69 73 74 20 3a 70 72 6f 76 69 64 65 64 2d 61 72 67 73 20 28 6c 69 73 74 20 66 | e-arglist.:provided-args.(list.f |
| d0240 | 75 6e 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | un-name)........................ |
| d0260 | 3a 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 28 6c 69 73 74 20 61 72 67 6c 69 73 74 29 0a 20 20 | :required-args.(list.arglist)... |
| d0280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 73 74 20 22 62 6f 64 79 | .....................:rest."body |
| d02a0 | 22 20 3a 62 6f 64 79 2d 70 20 74 29 29 29 29 0a 20 20 20 20 28 5f 29 29 20 3b 20 46 61 6c 6c 20 | ".:body-p.t)))).....(_)).;.Fall. |
| d02c0 | 74 68 72 6f 75 67 68 0a 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 0a 0a 0a | through...(call-next-method))... |
| d02e0 | 28 64 65 66 6d 65 74 68 6f 64 20 61 72 67 6c 69 73 74 2d 64 69 73 70 61 74 63 68 20 28 28 6f 70 | (defmethod.arglist-dispatch.((op |
| d0300 | 65 72 61 74 6f 72 20 28 65 71 6c 20 27 65 76 61 6c 2d 77 68 65 6e 29 29 20 61 72 67 75 6d 65 6e | erator.(eql.'eval-when)).argumen |
| d0320 | 74 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 75 6d 65 6e 74 73 | ts)...(declare.(ignore.arguments |
| d0340 | 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 65 76 61 6c 2d 77 68 65 6e 2d 61 72 67 73 20 27 28 3a | )).....(let.((eval-when-args.'(: |
| d0360 | 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 | compile-toplevel.:load-toplevel. |
| d0380 | 3a 65 78 65 63 75 74 65 29 29 29 0a 20 20 20 20 28 6d 61 6b 65 2d 61 72 67 6c 69 73 74 0a 20 20 | :execute))).....(make-arglist... |
| d03a0 | 20 20 20 3a 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 28 6c 69 73 74 20 28 6d 61 6b 65 2d 61 72 | ...:required-args.(list.(make-ar |
| d03c0 | 67 6c 69 73 74 20 3a 61 6e 79 2d 70 20 74 20 3a 61 6e 79 2d 61 72 67 73 20 65 76 61 6c 2d 77 68 | glist.:any-p.t.:any-args.eval-wh |
| d03e0 | 65 6e 2d 61 72 67 73 29 29 0a 20 20 20 20 20 3a 72 65 73 74 20 27 23 3a 62 6f 64 79 20 3a 62 6f | en-args))......:rest.'#:body.:bo |
| d0400 | 64 79 2d 70 20 74 29 29 29 0a 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 61 72 67 6c 69 73 74 2d 64 | dy-p.t)))...(defmethod.arglist-d |
| d0420 | 69 73 70 61 74 63 68 20 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 64 65 63 6c 61 72 65 | ispatch.((operator.(eql.'declare |
| d0440 | 29 29 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 65 63 6c 61 72 61 74 | )).arguments)...(let*.((declarat |
| d0460 | 69 6f 6e 20 20 20 20 20 20 28 63 6f 6e 73 20 6f 70 65 72 61 74 6f 72 20 28 6c 61 73 74 20 61 72 | ion......(cons.operator.(last.ar |
| d0480 | 67 75 6d 65 6e 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 79 70 65 64 65 63 6c 2d 61 72 | guments)))..........(typedecl-ar |
| d04a0 | 67 6c 69 73 74 20 28 61 72 67 6c 69 73 74 2d 66 6f 72 2d 74 79 70 65 2d 64 65 63 6c 61 72 61 74 | glist.(arglist-for-type-declarat |
| d04c0 | 69 6f 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 72 67 6c | ion.declaration))).....(if.(argl |
| d04e0 | 69 73 74 2d 61 76 61 69 6c 61 62 6c 65 2d 70 20 74 79 70 65 64 65 63 6c 2d 61 72 67 6c 69 73 74 | ist-available-p.typedecl-arglist |
| d0500 | 29 0a 20 20 20 20 20 20 20 20 74 79 70 65 64 65 63 6c 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 | ).........typedecl-arglist...... |
| d0520 | 20 20 20 28 6d 61 74 63 68 20 64 65 63 6c 61 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 | ...(match.declaration........... |
| d0540 | 28 28 27 64 65 63 6c 61 72 65 20 28 28 23 27 63 6f 6e 73 70 20 74 79 70 65 73 70 65 63 29 20 2e | (('declare.((#'consp.typespec).. |
| d0560 | 20 64 65 63 6c 2d 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 61 76 | .decl-args))............(with-av |
| d0580 | 61 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 74 20 28 74 79 70 65 73 70 65 63 2d 61 72 67 6c 69 73 | ailable-arglist.(typespec-arglis |
| d05a0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 | t)................(decoded-argli |
| d05c0 | 73 74 2d 66 6f 72 2d 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 20 74 79 70 65 73 70 65 63 29 0a | st-for-type-specifier.typespec). |
| d05e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 | .............(make-arglist...... |
| d0600 | 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 28 6c 69 73 74 20 28 6d | .........:required-args.(list.(m |
| d0620 | 61 6b 65 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ake-arglist..................... |
| d0640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 28 | ................:required-args.( |
| d0660 | 6c 69 73 74 20 74 79 70 65 73 70 65 63 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 | list.typespec-arglist).......... |
| d0680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 73 74 | ...........................:rest |
| d06a0 | 20 27 23 3a 76 61 72 69 61 62 6c 65 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 27 | .'#:variables)))))...........((' |
| d06c0 | 64 65 63 6c 61 72 65 20 28 64 65 63 6c 2d 69 64 65 6e 74 69 66 69 65 72 20 2e 20 64 65 63 6c 2d | declare.(decl-identifier...decl- |
| d06e0 | 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 | args))............(decoded-argli |
| d0700 | 73 74 2d 66 6f 72 2d 64 65 63 6c 61 72 61 74 69 6f 6e 20 64 65 63 6c 2d 69 64 65 6e 74 69 66 69 | st-for-declaration.decl-identifi |
| d0720 | 65 72 20 64 65 63 6c 2d 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 5f 20 28 6d 61 6b | er.decl-args))...........(_.(mak |
| d0740 | 65 2d 61 72 67 6c 69 73 74 20 3a 72 65 73 74 20 27 23 3a 64 65 63 6c 61 72 61 74 69 6f 6e 2d 73 | e-arglist.:rest.'#:declaration-s |
| d0760 | 70 65 63 69 66 69 65 72 73 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 61 72 67 6c | pecifiers))))))..(defmethod.argl |
| d0780 | 69 73 74 2d 64 69 73 70 61 74 63 68 20 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 64 65 | ist-dispatch.((operator.(eql.'de |
| d07a0 | 63 6c 61 69 6d 29 29 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 28 61 72 67 6c 69 73 74 2d 64 69 | claim)).arguments)...(arglist-di |
| d07c0 | 73 70 61 74 63 68 20 27 64 65 63 6c 61 72 65 20 61 72 67 75 6d 65 6e 74 73 29 29 0a 0a 0a 28 64 | spatch.'declare.arguments))...(d |
| d07e0 | 65 66 75 6e 20 61 72 67 6c 69 73 74 2d 66 6f 72 2d 74 79 70 65 2d 64 65 63 6c 61 72 61 74 69 6f | efun.arglist-for-type-declaratio |
| d0800 | 6e 20 28 64 65 63 6c 61 72 61 74 69 6f 6e 29 0a 20 20 28 66 6c 65 74 20 28 28 25 61 72 67 6c 69 | n.(declaration)...(flet.((%argli |
| d0820 | 73 74 2d 66 6f 72 2d 74 79 70 65 2d 64 65 63 6c 61 72 61 74 69 6f 6e 20 28 69 64 65 6e 74 69 66 | st-for-type-declaration.(identif |
| d0840 | 69 65 72 20 74 79 70 65 73 70 65 63 20 72 65 73 74 2d 76 61 72 2d 6e 61 6d 65 29 0a 20 20 20 20 | ier.typespec.rest-var-name)..... |
| d0860 | 20 20 20 20 20 20 20 28 77 69 74 68 2d 61 76 61 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 74 20 28 | .......(with-available-arglist.( |
| d0880 | 74 79 70 65 73 70 65 63 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | typespec-arglist)............... |
| d08a0 | 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 66 6f 72 2d 74 79 70 65 2d 73 70 65 63 69 | .(decoded-arglist-for-type-speci |
| d08c0 | 66 69 65 72 20 74 79 70 65 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b | fier.typespec)..............(mak |
| d08e0 | 65 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 | e-arglist...............:require |
| d0900 | 64 2d 61 72 67 73 20 28 6c 69 73 74 20 28 6d 61 6b 65 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 | d-args.(list.(make-arglist...... |
| d0920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ...............................: |
| d0940 | 70 72 6f 76 69 64 65 64 2d 61 72 67 73 20 28 6c 69 73 74 20 69 64 65 6e 74 69 66 69 65 72 29 0a | provided-args.(list.identifier). |
| d0960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d0980 | 20 20 20 20 3a 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 28 6c 69 73 74 20 74 79 70 65 73 70 65 | ....:required-args.(list.typespe |
| d09a0 | 63 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | c-arglist)...................... |
| d09c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 73 74 20 72 65 73 74 2d 76 61 72 2d 6e 61 | ...............:rest.rest-var-na |
| d09e0 | 6d 65 29 29 29 29 29 29 0a 20 20 20 20 28 6d 61 74 63 68 20 64 65 63 6c 61 72 61 74 69 6f 6e 0a | me)))))).....(match.declaration. |
| d0a00 | 20 20 20 20 20 20 28 28 27 64 65 63 6c 61 72 65 20 28 27 74 79 70 65 20 28 23 27 63 6f 6e 73 70 | ......(('declare.('type.(#'consp |
| d0a20 | 20 74 79 70 65 73 70 65 63 29 20 2e 20 64 65 63 6c 2d 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 | .typespec)...decl-args))........ |
| d0a40 | 28 25 61 72 67 6c 69 73 74 2d 66 6f 72 2d 74 79 70 65 2d 64 65 63 6c 61 72 61 74 69 6f 6e 20 27 | (%arglist-for-type-declaration.' |
| d0a60 | 74 79 70 65 20 74 79 70 65 73 70 65 63 20 27 23 3a 76 61 72 69 61 62 6c 65 73 29 29 0a 20 20 20 | type.typespec.'#:variables)).... |
| d0a80 | 20 20 20 28 28 27 64 65 63 6c 61 72 65 20 28 27 66 74 79 70 65 20 28 23 27 63 6f 6e 73 70 20 74 | ...(('declare.('ftype.(#'consp.t |
| d0aa0 | 79 70 65 73 70 65 63 29 20 2e 20 64 65 63 6c 2d 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 28 25 | ypespec)...decl-args))........(% |
| d0ac0 | 61 72 67 6c 69 73 74 2d 66 6f 72 2d 74 79 70 65 2d 64 65 63 6c 61 72 61 74 69 6f 6e 20 27 66 74 | arglist-for-type-declaration.'ft |
| d0ae0 | 79 70 65 20 74 79 70 65 73 70 65 63 20 27 23 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 73 29 29 | ype.typespec.'#:function-names)) |
| d0b00 | 0a 20 20 20 20 20 20 28 28 27 64 65 63 6c 61 72 65 20 28 28 23 27 63 6f 6e 73 70 20 74 79 70 65 | .......(('declare.((#'consp.type |
| d0b20 | 73 70 65 63 29 20 2e 20 64 65 63 6c 2d 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 28 77 69 74 68 | spec)...decl-args))........(with |
| d0b40 | 2d 61 76 61 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 74 20 28 74 79 70 65 73 70 65 63 2d 61 72 67 | -available-arglist.(typespec-arg |
| d0b60 | 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 | list)............(decoded-arglis |
| d0b80 | 74 2d 66 6f 72 2d 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 20 74 79 70 65 73 70 65 63 29 0a 20 | t-for-type-specifier.typespec).. |
| d0ba0 | 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 | ........(make-arglist........... |
| d0bc0 | 3a 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 28 6c 69 73 74 20 28 6d 61 6b 65 2d 61 72 67 6c 69 | :required-args.(list.(make-argli |
| d0be0 | 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | st.............................. |
| d0c00 | 20 20 20 3a 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 28 6c 69 73 74 20 74 79 70 65 73 70 65 63 | ...:required-args.(list.typespec |
| d0c20 | 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -arglist)....................... |
| d0c40 | 20 20 20 20 20 20 20 20 20 20 3a 72 65 73 74 20 27 23 3a 76 61 72 69 61 62 6c 65 73 29 29 29 29 | ..........:rest.'#:variables)))) |
| d0c60 | 29 0a 20 20 20 20 20 20 28 5f 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 29 0a 0a 28 | ).......(_.:not-available))))..( |
| d0c80 | 64 65 66 75 6e 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 66 6f 72 2d 64 65 63 6c 61 72 | defun.decoded-arglist-for-declar |
| d0ca0 | 61 74 69 6f 6e 20 28 64 65 63 6c 2d 69 64 65 6e 74 69 66 69 65 72 20 64 65 63 6c 2d 61 72 67 73 | ation.(decl-identifier.decl-args |
| d0cc0 | 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 64 65 63 6c 2d 61 72 67 73 29 29 | )...(declare.(ignore.decl-args)) |
| d0ce0 | 0a 20 20 20 20 28 77 69 74 68 2d 61 76 61 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 74 20 28 61 72 | .....(with-available-arglist.(ar |
| d0d00 | 67 6c 69 73 74 29 0a 20 20 20 20 20 20 28 64 65 63 6f 64 65 2d 61 72 67 6c 69 73 74 20 28 64 65 | glist).......(decode-arglist.(de |
| d0d20 | 63 6c 61 72 61 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 64 65 63 6c 2d 69 64 65 6e 74 69 66 69 65 | claration-arglist.decl-identifie |
| d0d40 | 72 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 61 72 67 6c 69 73 74 2e 70 72 6f 76 69 64 65 64 2d | r)).....(setf.(arglist.provided- |
| d0d60 | 61 72 67 73 20 61 72 67 6c 69 73 74 29 20 28 6c 69 73 74 20 64 65 63 6c 2d 69 64 65 6e 74 69 66 | args.arglist).(list.decl-identif |
| d0d80 | 69 65 72 29 29 0a 20 20 20 20 28 6d 61 6b 65 2d 61 72 67 6c 69 73 74 20 3a 72 65 71 75 69 72 65 | ier)).....(make-arglist.:require |
| d0da0 | 64 2d 61 72 67 73 20 28 6c 69 73 74 20 61 72 67 6c 69 73 74 29 29 29 29 0a 0a 28 64 65 66 75 6e | d-args.(list.arglist))))..(defun |
| d0dc0 | 20 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 66 6f 72 2d 74 79 70 65 2d 73 70 65 63 69 66 | .decoded-arglist-for-type-specif |
| d0de0 | 69 65 72 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 29 0a 20 20 28 65 74 79 70 65 63 61 73 | ier.(type-specifier)...(etypecas |
| d0e00 | 65 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 0a 20 20 20 20 28 61 72 67 6c 69 73 74 2d 64 75 | e.type-specifier.....(arglist-du |
| d0e20 | 6d 6d 79 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 0a 20 20 20 20 28 63 6f 6e 73 20 28 64 | mmy.:not-available).....(cons.(d |
| d0e40 | 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 66 6f 72 2d 74 79 70 65 2d 73 70 65 63 69 66 69 65 | ecoded-arglist-for-type-specifie |
| d0e60 | 72 20 28 63 61 72 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 29 29 29 0a 20 20 20 20 28 73 79 | r.(car.type-specifier))).....(sy |
| d0e80 | 6d 62 6f 6c 0a 20 20 20 20 20 28 77 69 74 68 2d 61 76 61 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 | mbol......(with-available-arglis |
| d0ea0 | 74 20 28 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 63 6f 64 65 2d 61 72 67 | t.(arglist)..........(decode-arg |
| d0ec0 | 6c 69 73 74 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 20 74 79 70 | list.(type-specifier-arglist.typ |
| d0ee0 | 65 2d 73 70 65 63 69 66 69 65 72 29 29 0a 20 20 20 20 20 20 20 28 73 65 74 66 20 28 61 72 67 6c | e-specifier))........(setf.(argl |
| d0f00 | 69 73 74 2e 70 72 6f 76 69 64 65 64 2d 61 72 67 73 20 61 72 67 6c 69 73 74 29 20 28 6c 69 73 74 | ist.provided-args.arglist).(list |
| d0f20 | 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 29 29 0a 20 20 20 20 20 20 20 61 72 67 6c 69 73 74 | .type-specifier))........arglist |
| d0f40 | 29 29 29 29 0a 0a 3b 3b 3b 20 53 6c 69 6d 65 66 75 6e 73 0a 0a 3b 3b 3b 20 57 65 20 77 6f 72 6b | ))))..;;;.Slimefuns..;;;.We.work |
| d0f60 | 20 6f 6e 20 61 20 52 41 57 2d 46 4f 52 4d 2c 20 6f 72 20 42 55 46 46 45 52 2d 46 4f 52 4d 2c 20 | .on.a.RAW-FORM,.or.BUFFER-FORM,. |
| d0f80 | 77 68 69 63 68 20 72 65 70 72 65 73 65 6e 74 20 74 68 65 20 66 6f 72 6d 20 61 74 0a 3b 3b 3b 20 | which.represent.the.form.at.;;;. |
| d0fa0 | 75 73 65 72 27 73 20 70 6f 69 6e 74 20 69 6e 20 45 6d 61 63 73 2e 20 41 20 52 41 57 2d 46 4f 52 | user's.point.in.Emacs..A.RAW-FOR |
| d0fc0 | 4d 20 6c 6f 6f 6b 73 20 6c 69 6b 65 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 20 20 20 28 22 46 4f 4f | M.looks.like.;;;.;;;.......("FOO |
| d0fe0 | 22 20 28 22 42 41 52 22 20 2e 2e 2e 29 20 22 51 55 55 58 22 20 28 22 5a 55 52 50 22 20 53 57 41 | ".("BAR"....)."QUUX".("ZURP".SWA |
| d1000 | 4e 4b 3a 3a 25 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 25 29 29 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 | NK::%CURSOR-MARKER%)).;;;.;;;.Th |
| d1020 | 65 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 66 6f 72 65 20 74 68 65 20 63 75 72 73 6f 72 20 6d | e.expression.before.the.cursor.m |
| d1040 | 61 72 6b 65 72 20 69 73 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 77 68 65 72 65 0a 3b 3b | arker.is.the.expression.where.;; |
| d1060 | 3b 20 75 73 65 72 27 73 20 63 75 72 73 6f 72 20 70 6f 69 6e 74 73 20 61 74 2e 20 41 6e 20 65 78 | ;.user's.cursor.points.at..An.ex |
| d1080 | 70 6c 69 63 69 74 20 6d 61 72 6b 65 72 20 69 73 20 6e 65 63 65 73 73 61 72 79 20 74 6f 0a 3b 3b | plicit.marker.is.necessary.to.;; |
| d10a0 | 3b 20 64 69 73 61 6d 62 69 67 75 61 74 65 20 62 65 74 77 65 65 6e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 | ;.disambiguate.between.;;;.;;;.. |
| d10c0 | 20 20 20 20 20 28 22 49 46 22 20 28 22 50 52 45 44 22 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 | .....("IF".("PRED").;;;......... |
| d10e0 | 20 20 20 20 28 22 46 22 20 22 58 22 20 22 59 22 20 25 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 25 | ....("F"."X"."Y".%CURSOR-MARKER% |
| d1100 | 29 29 0a 3b 3b 3b 0a 3b 3b 3b 20 61 6e 64 0a 3b 3b 3b 20 20 20 20 20 20 20 28 22 49 46 22 20 28 | )).;;;.;;;.and.;;;.......("IF".( |
| d1120 | 22 50 52 45 44 22 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 46 22 20 22 58 22 | "PRED").;;;.............("F"."X" |
| d1140 | 20 22 59 22 29 20 25 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 25 29 0a 0a 3b 3b 3b 20 4e 6f 74 69 | ."Y").%CURSOR-MARKER%)..;;;.Noti |
| d1160 | 63 65 20 74 68 61 74 20 66 6f 72 20 61 20 66 6f 72 6d 20 6c 69 6b 65 20 28 46 4f 4f 20 28 42 41 | ce.that.for.a.form.like.(FOO.(BA |
| d1180 | 52 20 7c 29 20 51 55 55 58 29 2c 20 77 68 65 72 65 20 7c 20 64 65 6e 6f 74 65 73 0a 3b 3b 3b 20 | R.|).QUUX),.where.|.denotes.;;;. |
| d11a0 | 75 73 65 72 27 73 20 70 6f 69 6e 74 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 68 6f 75 | user's.point,.the.following.shou |
| d11c0 | 6c 64 20 62 65 20 73 65 6e 74 20 28 22 46 4f 4f 22 20 28 22 42 41 52 22 20 22 22 0a 3b 3b 3b 20 | ld.be.sent.("FOO".("BAR"."".;;;. |
| d11e0 | 25 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 25 29 29 2e 20 4f 6e 6c 79 20 74 68 65 20 66 6f 72 6d | %CURSOR-MARKER%))..Only.the.form |
| d1200 | 73 20 75 70 20 74 6f 20 70 6f 69 6e 74 20 73 68 6f 75 6c 64 20 62 65 0a 3b 3b 3b 20 63 6f 6e 73 | s.up.to.point.should.be.;;;.cons |
| d1220 | 69 64 65 72 65 64 2e 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 61 75 74 6f 64 6f 63 20 28 72 | idered...(defslimefun.autodoc.(r |
| d1240 | 61 77 2d 66 6f 72 6d 20 26 6b 65 79 20 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 29 | aw-form.&key.print-right-margin) |
| d1260 | 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 65 6c 65 6d 65 6e 74 | ..."Return.a.list.of.two.element |
| d1280 | 73 2e 0a 46 69 72 73 74 2c 20 61 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 69 6e 67 20 | s..First,.a.string.representing. |
| d12a0 | 74 68 65 20 61 72 67 6c 69 73 74 20 66 6f 72 20 74 68 65 20 64 65 65 70 65 73 74 20 73 75 62 66 | the.arglist.for.the.deepest.subf |
| d12c0 | 6f 72 6d 20 69 6e 0a 52 41 57 2d 46 4f 52 4d 20 74 68 61 74 20 64 6f 65 73 20 68 61 76 65 20 61 | orm.in.RAW-FORM.that.does.have.a |
| d12e0 | 6e 20 61 72 67 6c 69 73 74 2e 20 54 68 65 20 68 69 67 68 6c 69 67 68 74 65 64 20 70 61 72 61 6d | n.arglist..The.highlighted.param |
| d1300 | 65 74 65 72 20 69 73 0a 77 72 61 70 70 65 64 20 69 6e 20 3d 3d 3d 3e 20 58 20 3c 3d 3d 3d 2e 0a | eter.is.wrapped.in.===>.X.<===.. |
| d1320 | 0a 53 65 63 6f 6e 64 2c 20 61 20 62 6f 6f 6c 65 61 6e 20 76 61 6c 75 65 20 74 65 6c 6c 69 6e 67 | .Second,.a.boolean.value.telling |
| d1340 | 20 77 68 65 74 68 65 72 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 73 74 72 69 6e 67 20 63 61 6e | .whether.the.returned.string.can |
| d1360 | 20 62 65 20 63 61 63 68 65 64 2e 22 0a 20 20 28 73 65 74 66 20 2a 70 72 65 2d 72 65 70 6c 79 2d | .be.cached."...(setf.*pre-reply- |
| d1380 | 68 6f 6f 6b 2a 20 6e 69 6c 29 20 3b 3b 20 72 65 64 75 63 65 20 6c 61 74 65 6e 63 79 0a 20 20 28 | hook*.nil).;;.reduce.latency...( |
| d13a0 | 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 73 65 72 69 6f 75 73 2d 63 6f 6e 64 69 74 69 6f 6e | handler-bind.((serious-condition |
| d13c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 63 29 | ...................#'(lambda.(c) |
| d13e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 | .......................(unless.( |
| d1400 | 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 | debug-on-swank-error)........... |
| d1420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 72 69 67 68 | ..............(let.((*print-righ |
| d1440 | 74 2d 6d 61 72 67 69 6e 2a 20 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 29 29 0a 20 | t-margin*.print-right-margin)).. |
| d1460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e | .........................(return |
| d1480 | 2d 66 72 6f 6d 20 61 75 74 6f 64 6f 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -from.autodoc................... |
| d14a0 | 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 41 72 67 6c 69 73 74 20 45 | ..........(format.nil."Arglist.E |
| d14c0 | 72 72 6f 72 3a 20 5c 22 7e 41 5c 22 22 20 63 29 29 29 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 | rror:.\"~A\"".c))))))).....(with |
| d14e0 | 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c | -buffer-syntax.().......(multipl |
| d1500 | 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 6f 72 6d 20 61 72 67 6c 69 73 74 20 6f 62 6a 2d 61 | e-value-bind.(form.arglist.obj-a |
| d1520 | 74 2d 63 75 72 73 6f 72 20 66 6f 72 6d 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 | t-cursor.form-path)...........(f |
| d1540 | 69 6e 64 2d 73 75 62 66 6f 72 6d 2d 77 69 74 68 2d 61 72 67 6c 69 73 74 20 28 70 61 72 73 65 2d | ind-subform-with-arglist.(parse- |
| d1560 | 72 61 77 2d 66 6f 72 6d 20 72 61 77 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e | raw-form.raw-form)).........(con |
| d1580 | 64 20 28 28 62 6f 75 6e 64 70 2d 61 6e 64 2d 69 6e 74 65 72 65 73 74 69 6e 67 20 6f 62 6a 2d 61 | d.((boundp-and-interesting.obj-a |
| d15a0 | 74 2d 63 75 72 73 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 | t-cursor)................(list.( |
| d15c0 | 70 72 69 6e 74 2d 76 61 72 69 61 62 6c 65 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 62 6a 2d 61 74 2d | print-variable-to-string.obj-at- |
| d15e0 | 63 75 72 73 6f 72 29 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 | cursor).nil))...............(t.. |
| d1600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..............(list............. |
| d1620 | 20 20 20 20 28 77 69 74 68 2d 61 76 61 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 74 20 28 61 72 67 | ....(with-available-arglist.(arg |
| d1640 | 6c 69 73 74 29 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | list).arglist................... |
| d1660 | 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 | (decoded-arglist-to-string...... |
| d1680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 | ..............arglist........... |
| d16a0 | 20 20 20 20 20 20 20 20 20 3a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 20 70 72 69 | .........:print-right-margin.pri |
| d16c0 | 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt-right-margin................. |
| d16e0 | 20 20 20 3a 6f 70 65 72 61 74 6f 72 20 28 63 61 72 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 | ...:operator.(car.form)......... |
| d1700 | 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 67 68 6c 69 67 68 74 20 28 66 6f 72 6d 2d 70 61 74 68 | ...........:highlight.(form-path |
| d1720 | 2d 74 6f 2d 61 72 67 6c 69 73 74 2d 70 61 74 68 20 66 6f 72 6d 2d 70 61 74 68 0a 20 20 20 20 20 | -to-arglist-path.form-path...... |
| d1740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d1760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 | ....................form........ |
| d1780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d17a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 | ..................arglist))).... |
| d17c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 62 6f | .............t)))))))..(defun.bo |
| d17e0 | 75 6e 64 70 2d 61 6e 64 2d 69 6e 74 65 72 65 73 74 69 6e 67 20 28 73 79 6d 62 6f 6c 29 0a 20 20 | undp-and-interesting.(symbol)... |
| d1800 | 28 61 6e 64 20 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 70 20 73 79 6d 62 | (and.symbol........(symbolp.symb |
| d1820 | 6f 6c 29 0a 20 20 20 20 20 20 20 28 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 | ol)........(boundp.symbol)...... |
| d1840 | 20 20 28 6e 6f 74 20 28 6d 65 6d 71 20 73 79 6d 62 6f 6c 20 27 28 63 6c 3a 74 20 63 6c 3a 6e 69 | ..(not.(memq.symbol.'(cl:t.cl:ni |
| d1860 | 6c 29 29 29 0a 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6b 65 79 77 6f 72 64 70 20 73 79 6d 62 6f | l)))........(not.(keywordp.symbo |
| d1880 | 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 76 61 72 69 61 62 6c 65 2d 74 6f 2d | l))))..(defun.print-variable-to- |
| d18a0 | 73 74 72 69 6e 67 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 68 6f 72 | string.(symbol)..."Return.a.shor |
| d18c0 | 74 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 56 41 52 49 41 42 4c 45 2d 4e 41 4d 45 2c 20 | t.description.of.VARIABLE-NAME,. |
| d18e0 | 6f 72 20 4e 49 4c 2e 22 0a 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a | or.NIL."...(let.((*print-pretty* |
| d1900 | 20 74 29 20 28 2a 70 72 69 6e 74 2d 6c 65 76 65 6c 2a 20 34 29 0a 20 20 20 20 20 20 20 20 28 2a | .t).(*print-level*.4).........(* |
| d1920 | 70 72 69 6e 74 2d 6c 65 6e 67 74 68 2a 20 31 30 29 20 28 2a 70 72 69 6e 74 2d 6c 69 6e 65 73 2a | print-length*.10).(*print-lines* |
| d1940 | 20 31 29 0a 20 20 20 20 20 20 20 20 28 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 20 6e 69 | .1).........(*print-readably*.ni |
| d1960 | 6c 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 | l).........(value.(symbol-value. |
| d1980 | 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 63 61 6c 6c 2f 74 72 75 6e 63 61 74 65 64 2d 6f 75 | symbol))).....(call/truncated-ou |
| d19a0 | 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 37 35 20 28 6c 61 6d 62 64 61 20 28 | tput-to-string......75.(lambda.( |
| d19c0 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 6f 75 74 2d 70 72 69 6e 74 69 6e 67 2d 65 | s)...........(without-printing-e |
| d19e0 | 72 72 6f 72 73 20 28 3a 6f 62 6a 65 63 74 20 76 61 6c 75 65 20 3a 73 74 72 65 61 6d 20 73 29 0a | rrors.(:object.value.:stream.s). |
| d1a00 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 20 22 7e 41 20 7e 41 7e 53 22 20 | ............(format.s."~A.~A~S". |
| d1a20 | 73 79 6d 62 6f 6c 20 2a 65 63 68 6f 2d 61 72 65 61 2d 70 72 65 66 69 78 2a 20 76 61 6c 75 65 29 | symbol.*echo-area-prefix*.value) |
| d1a40 | 29 29 29 29 29 0a 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 6f 6d 70 6c 65 74 65 2d 66 6f | )))))...(defslimefun.complete-fo |
| d1a60 | 72 6d 20 28 72 61 77 2d 66 6f 72 6d 29 0a 20 20 22 52 65 61 64 20 46 4f 52 4d 2d 53 54 52 49 4e | rm.(raw-form)..."Read.FORM-STRIN |
| d1a80 | 47 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 70 61 63 6b 61 67 65 2c | G.in.the.current.buffer.package, |
| d1aa0 | 20 74 68 65 6e 20 63 6f 6d 70 6c 65 74 65 20 69 74 0a 20 20 62 79 20 61 64 64 69 6e 67 20 61 20 | .then.complete.it...by.adding.a. |
| d1ac0 | 74 65 6d 70 6c 61 74 65 20 66 6f 72 20 74 68 65 20 6d 69 73 73 69 6e 67 20 61 72 67 75 6d 65 6e | template.for.the.missing.argumen |
| d1ae0 | 74 73 2e 22 0a 20 20 3b 3b 20 57 65 20 64 6f 20 6e 6f 74 20 63 61 74 63 68 20 65 72 72 6f 72 73 | ts."...;;.We.do.not.catch.errors |
| d1b00 | 20 68 65 72 65 20 62 65 63 61 75 73 65 20 43 4f 4d 50 4c 45 54 45 2d 46 4f 52 4d 20 69 73 20 61 | .here.because.COMPLETE-FORM.is.a |
| d1b20 | 6e 0a 20 20 3b 3b 20 69 6e 74 65 72 61 63 74 69 76 65 20 63 6f 6d 6d 61 6e 64 2c 20 6e 6f 74 20 | n...;;.interactive.command,.not. |
| d1b40 | 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 72 75 6e 20 69 6e 20 74 68 65 20 62 61 63 6b 67 72 6f | automatically.run.in.the.backgro |
| d1b60 | 75 6e 64 20 6c 69 6b 65 0a 20 20 3b 3b 20 41 52 47 4c 49 53 54 2d 46 4f 52 2d 45 43 48 4f 2d 41 | und.like...;;.ARGLIST-FOR-ECHO-A |
| d1b80 | 52 45 41 2e 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 | REA....(with-buffer-syntax.()... |
| d1ba0 | 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 61 72 67 6c 69 73 74 20 | ..(multiple-value-bind.(arglist. |
| d1bc0 | 70 72 6f 76 69 64 65 64 2d 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 69 6d 6d | provided-args).........(find-imm |
| d1be0 | 65 64 69 61 74 65 6c 79 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 61 72 67 6c 69 73 74 20 28 70 61 72 | ediately-containing-arglist.(par |
| d1c00 | 73 65 2d 72 61 77 2d 66 6f 72 6d 20 72 61 77 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 28 77 69 | se-raw-form.raw-form)).......(wi |
| d1c20 | 74 68 2d 61 76 61 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 74 29 20 61 | th-available-arglist.(arglist).a |
| d1c40 | 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 28 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 2d | rglist.........(decoded-arglist- |
| d1c60 | 74 6f 2d 74 65 6d 70 6c 61 74 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 28 64 65 6c | to-template-string..........(del |
| d1c80 | 65 74 65 2d 67 69 76 65 6e 2d 61 72 67 73 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 | ete-given-args.arglist.......... |
| d1ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 69 66 20 23 27 | ...................(remove-if.#' |
| d1cc0 | 65 6d 70 74 79 2d 61 72 67 2d 70 20 70 72 6f 76 69 64 65 64 2d 61 72 67 73 0a 20 20 20 20 20 20 | empty-arg-p.provided-args....... |
| d1ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d1d00 | 20 3a 66 72 6f 6d 2d 65 6e 64 20 74 20 3a 63 6f 75 6e 74 20 31 29 29 0a 20 20 20 20 20 20 20 20 | .:from-end.t.:count.1))......... |
| d1d20 | 20 3a 70 72 65 66 69 78 20 22 22 20 3a 73 75 66 66 69 78 20 22 22 29 29 29 29 29 0a 0a 28 64 65 | .:prefix."".:suffix."")))))..(de |
| d1d40 | 66 73 6c 69 6d 65 66 75 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 66 6f 72 2d 6b 65 79 77 6f 72 | fslimefun.completions-for-keywor |
| d1d60 | 64 20 28 6b 65 79 77 6f 72 64 2d 73 74 72 69 6e 67 20 72 61 77 2d 66 6f 72 6d 29 0a 20 20 22 52 | d.(keyword-string.raw-form)..."R |
| d1d80 | 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 6f 73 73 69 62 6c 65 20 63 6f 6d 70 6c 65 74 | eturn.a.list.of.possible.complet |
| d1da0 | 69 6f 6e 73 20 66 6f 72 20 4b 45 59 57 4f 52 44 2d 53 54 52 49 4e 47 20 72 65 6c 61 74 69 76 65 | ions.for.KEYWORD-STRING.relative |
| d1dc0 | 0a 74 6f 20 74 68 65 20 63 6f 6e 74 65 78 74 20 70 72 6f 76 69 64 65 64 20 62 79 20 52 41 57 2d | .to.the.context.provided.by.RAW- |
| d1de0 | 46 4f 52 4d 2e 22 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a | FORM."...(with-buffer-syntax.(). |
| d1e00 | 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 6c 69 73 74 20 28 66 69 6e 64 2d 69 6d 6d 65 64 69 61 | ....(let.((arglist.(find-immedia |
| d1e20 | 74 65 6c 79 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 | tely-containing-arglist......... |
| d1e40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 2d 72 61 77 2d 66 6f 72 6d 20 72 61 77 2d | ............(parse-raw-form.raw- |
| d1e60 | 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 72 67 6c 69 73 74 2d 61 76 | form)))).......(when.(arglist-av |
| d1e80 | 61 69 6c 61 62 6c 65 2d 70 20 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 49 74 | ailable-p.arglist).........;;.It |
| d1ea0 | 20 77 6f 75 6c 64 20 62 65 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 6b | .would.be.possible.to.complete.k |
| d1ec0 | 65 79 77 6f 72 64 73 20 6f 6e 6c 79 20 69 66 20 77 65 20 61 72 65 20 69 6e 0a 20 20 20 20 20 20 | eywords.only.if.we.are.in....... |
| d1ee0 | 20 20 3b 3b 20 61 20 6b 65 79 77 6f 72 64 20 70 6f 73 69 74 69 6f 6e 2c 20 62 75 74 20 69 74 20 | ..;;.a.keyword.position,.but.it. |
| d1f00 | 69 73 20 6e 6f 74 20 63 6c 65 61 72 20 69 66 20 77 65 20 77 61 6e 74 20 74 68 61 74 2e 0a 20 20 | is.not.clear.if.we.want.that.... |
| d1f20 | 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 | ......(let*.((keywords.......... |
| d1f40 | 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 6d 61 70 63 61 72 20 23 27 6b 65 79 77 6f 72 64 | .......(append.(mapcar.#'keyword |
| d1f60 | 2d 61 72 67 2e 6b 65 79 77 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -arg.keyword.................... |
| d1f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2e 6b 65 79 77 6f 72 64 2d 61 72 | .............(arglist.keyword-ar |
| d1fa0 | 67 73 20 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gs.arglist)).................... |
| d1fc0 | 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 27 6b 65 79 77 6f 72 64 70 20 28 | .....(remove-if-not.#'keywordp.( |
| d1fe0 | 61 72 67 6c 69 73 74 2e 61 6e 79 2d 61 72 67 73 20 61 72 67 6c 69 73 74 29 29 29 29 0a 20 20 20 | arglist.any-args.arglist)))).... |
| d2000 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 77 6f 72 64 2d 6e 61 6d 65 0a 20 20 20 20 20 20 | ............(keyword-name....... |
| d2020 | 20 20 20 20 20 20 20 20 20 20 28 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c 20 6b 65 79 77 6f | ..........(tokenize-symbol.keywo |
| d2040 | 72 64 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 | rd-string))................(matc |
| d2060 | 68 69 6e 67 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | hing-keywords.................(f |
| d2080 | 69 6e 64 2d 6d 61 74 63 68 69 6e 67 2d 73 79 6d 62 6f 6c 73 2d 69 6e 2d 6c 69 73 74 0a 20 20 20 | ind-matching-symbols-in-list.... |
| d20a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 77 6f 72 64 2d 6e 61 6d 65 20 6b 65 79 77 6f | ..............keyword-name.keywo |
| d20c0 | 72 64 73 20 28 6d 61 6b 65 2d 63 6f 6d 70 6f 75 6e 64 2d 70 72 65 66 69 78 2d 6d 61 74 63 68 65 | rds.(make-compound-prefix-matche |
| d20e0 | 72 20 23 5c 2d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 76 65 72 74 | r.#\-)))................(convert |
| d2100 | 65 72 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 75 74 70 75 74 2d 73 79 6d 62 6f 6c 2d 63 6f 6e | er.(completion-output-symbol-con |
| d2120 | 76 65 72 74 65 72 20 6b 65 79 77 6f 72 64 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 | verter.keyword-string))......... |
| d2140 | 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(strings................. |
| d2160 | 28 6d 61 70 63 61 72 20 63 6f 6e 76 65 72 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (mapcar.converter............... |
| d2180 | 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 | ..........(mapcar.#'symbol-name. |
| d21a0 | 6d 61 74 63 68 69 6e 67 2d 6b 65 79 77 6f 72 64 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | matching-keywords)))............ |
| d21c0 | 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ....(completion-set............. |
| d21e0 | 20 20 20 20 28 66 6f 72 6d 61 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 73 74 72 69 6e | ....(format-completion-set.strin |
| d2200 | 67 73 20 6e 69 6c 20 22 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 63 6f 6d | gs.nil."")))...........(list.com |
| d2220 | 70 6c 65 74 69 6f 6e 2d 73 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6e | pletion-set.................(lon |
| d2240 | 67 65 73 74 2d 63 6f 6d 70 6f 75 6e 64 2d 70 72 65 66 69 78 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d | gest-compound-prefix.completion- |
| d2260 | 73 65 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2b 63 75 72 73 6f | set)))))))..(defparameter.+curso |
| d2280 | 72 2d 6d 61 72 6b 65 72 2b 20 27 25 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 25 29 0a 0a 28 64 65 | r-marker+.'%cursor-marker%)..(de |
| d22a0 | 66 75 6e 20 66 69 6e 64 2d 73 75 62 66 6f 72 6d 2d 77 69 74 68 2d 61 72 67 6c 69 73 74 20 28 66 | fun.find-subform-with-arglist.(f |
| d22c0 | 6f 72 6d 29 0a 20 20 22 52 65 74 75 72 6e 73 20 66 6f 75 72 20 76 61 6c 75 65 73 3a 0a 0a 20 20 | orm)..."Returns.four.values:.... |
| d22e0 | 20 20 20 54 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 73 75 62 66 6f 72 6d 20 6f 66 20 60 66 | ...The.appropriate.subform.of.`f |
| d2300 | 6f 72 6d 27 20 77 68 69 63 68 20 69 73 20 63 6c 6f 73 65 73 74 20 74 6f 20 74 68 65 0a 20 20 20 | orm'.which.is.closest.to.the.... |
| d2320 | 20 20 2b 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 2b 20 61 6e 64 20 77 68 6f 73 65 20 6f 70 65 72 | ..+CURSOR-MARKER+.and.whose.oper |
| d2340 | 61 74 6f 72 20 69 73 20 76 61 6c 69 64 20 61 6e 64 20 68 61 73 20 61 6e 0a 20 20 20 20 20 61 72 | ator.is.valid.and.has.an......ar |
| d2360 | 67 6c 69 73 74 2e 20 54 68 65 20 2b 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 2b 20 69 73 20 72 65 | glist..The.+CURSOR-MARKER+.is.re |
| d2380 | 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 61 74 20 73 75 62 66 6f 72 6d 2e 0a 0a 20 20 20 20 20 53 | moved.from.that.subform........S |
| d23a0 | 65 63 6f 6e 64 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 61 72 67 6c 69 73 74 2e 20 4c 6f 63 61 | econd.value.is.the.arglist..Loca |
| d23c0 | 6c 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 6d 61 63 72 6f 20 64 65 66 69 6e 69 74 69 6f 6e 73 | l.function.and.macro.definitions |
| d23e0 | 0a 20 20 20 20 20 61 70 70 65 61 72 69 6e 67 20 69 6e 20 60 66 6f 72 6d 27 20 69 6e 74 6f 20 61 | ......appearing.in.`form'.into.a |
| d2400 | 63 63 6f 75 6e 74 2e 0a 0a 20 20 20 20 20 54 68 69 72 64 20 76 61 6c 75 65 20 69 73 20 74 68 65 | ccount........Third.value.is.the |
| d2420 | 20 6f 62 6a 65 63 74 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 2b 43 55 52 53 4f 52 2d 4d 41 52 4b | .object.in.front.of.+CURSOR-MARK |
| d2440 | 45 52 2b 2e 0a 0a 20 20 20 20 20 46 6f 75 72 74 68 20 76 61 6c 75 65 20 69 73 20 61 20 66 6f 72 | ER+........Fourth.value.is.a.for |
| d2460 | 6d 20 70 61 74 68 20 74 6f 20 74 68 61 74 20 6f 62 6a 65 63 74 2e 22 0a 20 20 28 6c 61 62 65 6c | m.path.to.that.object."...(label |
| d2480 | 73 0a 20 20 20 20 20 20 28 28 79 69 65 6c 64 2d 73 75 63 63 65 73 73 20 28 66 6f 72 6d 20 6c 6f | s.......((yield-success.(form.lo |
| d24a0 | 63 61 6c 2d 6f 70 73 29 0a 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | cal-ops)..........(multiple-valu |
| d24c0 | 65 2d 62 69 6e 64 20 28 66 6f 72 6d 20 6f 62 6a 2d 61 74 2d 63 75 72 73 6f 72 20 66 6f 72 6d 2d | e-bind.(form.obj-at-cursor.form- |
| d24e0 | 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 72 61 63 74 2d 63 75 72 73 | path)..............(extract-curs |
| d2500 | 6f 72 2d 6d 61 72 6b 65 72 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 | or-marker.form)............(valu |
| d2520 | 65 73 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | es.form....................(let. |
| d2540 | 28 28 65 6e 74 72 79 20 28 61 73 73 6f 63 20 28 63 61 72 20 66 6f 72 6d 29 20 6c 6f 63 61 6c 2d | ((entry.(assoc.(car.form).local- |
| d2560 | 6f 70 73 20 3a 74 65 73 74 20 23 27 6f 70 3d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ops.:test.#'op=))).............. |
| d2580 | 20 20 20 20 20 20 20 20 28 69 66 20 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(if.entry............... |
| d25a0 | 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6f 64 65 2d 61 72 67 6c 69 73 74 20 28 63 64 72 20 | ...........(decode-arglist.(cdr. |
| d25c0 | 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | entry))......................... |
| d25e0 | 20 28 61 72 67 6c 69 73 74 2d 66 72 6f 6d 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 | .(arglist-from-form.form)))..... |
| d2600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 2d 61 74 2d 63 75 72 73 6f 72 0a 20 20 20 | ...............obj-at-cursor.... |
| d2620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 2d 70 61 74 68 29 29 29 0a 20 20 20 | ................form-path))).... |
| d2640 | 20 20 20 20 28 79 69 65 6c 64 2d 66 61 69 6c 75 72 65 20 28 29 0a 20 20 20 20 20 20 20 20 20 28 | ....(yield-failure.()..........( |
| d2660 | 76 61 6c 75 65 73 20 6e 69 6c 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 0a 20 20 20 20 | values.nil.:not-available))..... |
| d2680 | 20 20 20 28 6f 70 65 72 61 74 6f 72 2d 70 20 28 6f 70 65 72 61 74 6f 72 20 6c 6f 63 61 6c 2d 6f | ...(operator-p.(operator.local-o |
| d26a0 | 70 73 29 0a 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6f | ps)..........(or.(and.(symbolp.o |
| d26c0 | 70 65 72 61 74 6f 72 29 20 28 76 61 6c 69 64 2d 6f 70 65 72 61 74 6f 72 2d 73 79 6d 62 6f 6c 2d | perator).(valid-operator-symbol- |
| d26e0 | 70 20 6f 70 65 72 61 74 6f 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 6f 63 | p.operator))..............(assoc |
| d2700 | 20 6f 70 65 72 61 74 6f 72 20 6c 6f 63 61 6c 2d 6f 70 73 20 3a 74 65 73 74 20 23 27 6f 70 3d 29 | .operator.local-ops.:test.#'op=) |
| d2720 | 29 29 0a 20 20 20 20 20 20 20 28 6f 70 3d 20 28 6f 70 31 20 6f 70 32 29 0a 20 20 20 20 20 20 20 | ))........(op=.(op1.op2)........ |
| d2740 | 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6f 70 31 29 20 28 73 79 6d | ..(cond.((and.(symbolp.op1).(sym |
| d2760 | 62 6f 6c 70 20 6f 70 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 6f | bolp.op2)).................(eq.o |
| d2780 | 70 31 20 6f 70 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 61 | p1.op2))................((and.(a |
| d27a0 | 72 67 6c 69 73 74 2d 64 75 6d 6d 79 2d 70 20 6f 70 31 29 20 28 61 72 67 6c 69 73 74 2d 64 75 6d | rglist-dummy-p.op1).(arglist-dum |
| d27c0 | 6d 79 2d 70 20 6f 70 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 | my-p.op2)).................(stri |
| d27e0 | 6e 67 3d 20 28 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 2e 73 74 72 69 6e 67 2d 72 65 70 72 65 73 | ng=.(arglist-dummy.string-repres |
| d2800 | 65 6e 74 61 74 69 6f 6e 20 6f 70 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | entation.op1)................... |
| d2820 | 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 2e 73 74 72 69 6e 67 2d 72 65 70 | .......(arglist-dummy.string-rep |
| d2840 | 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 70 32 29 29 29 29 29 0a 20 20 20 20 20 20 20 28 67 72 6f | resentation.op2)))))........(gro |
| d2860 | 76 65 6c 2d 66 6f 72 6d 20 28 66 6f 72 6d 20 6c 6f 63 61 6c 2d 6f 70 73 29 0a 20 20 20 20 20 20 | vel-form.(form.local-ops)....... |
| d2880 | 20 20 20 22 44 65 73 63 65 6e 64 20 46 4f 52 4d 20 74 6f 70 2d 64 6f 77 6e 2c 20 61 6c 77 61 79 | ..."Descend.FORM.top-down,.alway |
| d28a0 | 73 20 74 61 6b 69 6e 67 20 74 68 65 20 72 69 67 68 74 65 73 74 20 62 72 61 6e 63 68 2c 0a 20 20 | s.taking.the.rightest.branch,... |
| d28c0 | 20 20 20 20 20 20 20 20 75 6e 74 69 6c 20 2b 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 2b 2e 22 0a | ........until.+CURSOR-MARKER+.". |
| d28e0 | 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 6c 69 73 74 70 20 66 6f 72 6d 29 29 0a 20 | .........(assert.(listp.form)).. |
| d2900 | 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6f 70 65 | ........(destructuring-bind.(ope |
| d2920 | 72 61 74 6f 72 20 2e 20 61 72 67 73 29 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b | rator...args).form............;; |
| d2940 | 20 4e 2e 62 2e 20 74 68 65 20 75 73 65 72 27 73 20 63 75 72 73 6f 72 20 69 73 20 61 74 20 74 68 | .N.b..the.user's.cursor.is.at.th |
| d2960 | 65 20 72 69 67 68 74 6d 6f 73 74 2c 20 64 65 65 70 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 | e.rightmost,.deepest............ |
| d2980 | 3b 3b 20 73 75 62 66 6f 72 6d 20 72 69 67 68 74 20 62 65 66 6f 72 65 20 2b 43 55 52 53 4f 52 2d | ;;.subform.right.before.+CURSOR- |
| d29a0 | 4d 41 52 4b 45 52 2b 2e 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 61 73 74 2d | MARKER+.............(let.((last- |
| d29c0 | 73 75 62 66 6f 72 6d 20 28 63 61 72 20 28 6c 61 73 74 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 | subform.(car.(last.form)))...... |
| d29e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 6f 70 73 29 29 0a 20 20 20 20 20 20 20 20 20 | ............(new-ops)).......... |
| d2a00 | 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 6c 61 | ....(cond................((eq.la |
| d2a20 | 73 74 2d 73 75 62 66 6f 72 6d 20 2b 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 2b 29 0a 20 20 20 20 | st-subform.+cursor-marker+)..... |
| d2a40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 70 65 72 61 74 6f 72 2d 70 20 6f 70 65 72 | ............(if.(operator-p.oper |
| d2a60 | 61 74 6f 72 20 6c 6f 63 61 6c 2d 6f 70 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ator.local-ops)................. |
| d2a80 | 20 20 20 20 28 79 69 65 6c 64 2d 73 75 63 63 65 73 73 20 66 6f 72 6d 20 6c 6f 63 61 6c 2d 6f 70 | ....(yield-success.form.local-op |
| d2aa0 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 69 65 6c 64 2d 66 61 | s).....................(yield-fa |
| d2ac0 | 69 6c 75 72 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 6f | ilure)))................((not.(o |
| d2ae0 | 70 65 72 61 74 6f 72 2d 70 20 6f 70 65 72 61 74 6f 72 20 6c 6f 63 61 6c 2d 6f 70 73 29 29 0a 20 | perator-p.operator.local-ops)).. |
| d2b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 72 6f 76 65 6c 2d 66 6f 72 6d 20 6c 61 73 74 | ...............(grovel-form.last |
| d2b20 | 2d 73 75 62 66 6f 72 6d 20 6c 6f 63 61 6c 2d 6f 70 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -subform.local-ops))............ |
| d2b40 | 20 20 20 20 3b 3b 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 70 69 63 6b 20 75 70 20 74 68 65 20 | ....;;.Make.sure.to.pick.up.the. |
| d2b60 | 61 72 67 6c 69 73 74 73 20 6f 66 20 6c 6f 63 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | arglists.of.local............... |
| d2b80 | 20 3b 3b 20 66 75 6e 63 74 69 6f 6e 2f 6d 61 63 72 6f 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a | .;;.function/macro.definitions.. |
| d2ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 65 74 71 20 6e 65 77 2d 6f 70 73 20 28 65 | ...............((setq.new-ops.(e |
| d2bc0 | 78 74 72 61 63 74 2d 6c 6f 63 61 6c 2d 6f 70 2d 61 72 67 6c 69 73 74 73 20 6f 70 65 72 61 74 6f | xtract-local-op-arglists.operato |
| d2be0 | 72 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 | r.args)).................(multip |
| d2c00 | 6c 65 2d 76 61 6c 75 65 2d 6f 72 20 28 67 72 6f 76 65 6c 2d 66 6f 72 6d 20 6c 61 73 74 2d 73 75 | le-value-or.(grovel-form.last-su |
| d2c20 | 62 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bform........................... |
| d2c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 63 6f 6e 63 20 6e 65 77 | ......................(nconc.new |
| d2c60 | 2d 6f 70 73 20 6c 6f 63 61 6c 2d 6f 70 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -ops.local-ops))................ |
| d2c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 69 65 6c 64 2d 73 75 63 63 65 | ....................(yield-succe |
| d2ca0 | 73 73 20 66 6f 72 6d 20 6c 6f 63 61 6c 2d 6f 70 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ss.form.local-ops)))............ |
| d2cc0 | 20 20 20 20 3b 3b 20 53 6f 6d 65 20 74 79 70 65 73 70 65 63 73 20 63 6c 61 73 68 20 77 69 74 68 | ....;;.Some.typespecs.clash.with |
| d2ce0 | 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 2c 20 73 6f 20 77 65 20 6d 61 6b 65 0a 20 20 20 20 | .function.names,.so.we.make..... |
| d2d00 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 75 72 65 20 74 6f 20 62 61 69 6c 20 6f 75 74 20 65 | ...........;;.sure.to.bail.out.e |
| d2d20 | 61 72 6c 79 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 6f 70 | arly.................((member.op |
| d2d40 | 65 72 61 74 6f 72 20 27 28 63 6c 3a 64 65 63 6c 61 72 65 20 63 6c 3a 64 65 63 6c 61 69 6d 29 29 | erator.'(cl:declare.cl:declaim)) |
| d2d60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 69 65 6c 64 2d 73 75 63 63 65 73 73 20 | .................(yield-success. |
| d2d80 | 66 6f 72 6d 20 6c 6f 63 61 6c 2d 6f 70 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | form.local-ops))................ |
| d2da0 | 3b 3b 20 4d 6f 73 74 6c 79 20 75 6e 69 6e 74 65 72 65 73 74 69 6e 67 2c 20 68 65 6e 63 65 20 73 | ;;.Mostly.uninteresting,.hence.s |
| d2dc0 | 6b 69 70 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 71 20 6f 70 65 72 61 | kip.................((memq.opera |
| d2de0 | 74 6f 72 20 27 28 63 6c 3a 71 75 6f 74 65 20 63 6c 3a 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 | tor.'(cl:quote.cl:function)).... |
| d2e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 69 65 6c 64 2d 66 61 69 6c 75 72 65 29 29 0a 20 20 | .............(yield-failure))... |
| d2e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............(t................. |
| d2e40 | 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6f 72 20 28 67 72 6f 76 65 6c 2d 66 6f 72 6d 20 | (multiple-value-or.(grovel-form. |
| d2e60 | 6c 61 73 74 2d 73 75 62 66 6f 72 6d 20 6c 6f 63 61 6c 2d 6f 70 73 29 0a 20 20 20 20 20 20 20 20 | last-subform.local-ops)......... |
| d2e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 69 65 6c | ...........................(yiel |
| d2ea0 | 64 2d 73 75 63 63 65 73 73 20 66 6f 72 6d 20 6c 6f 63 61 6c 2d 6f 70 73 29 29 29 29 29 29 29 29 | d-success.form.local-ops)))))))) |
| d2ec0 | 0a 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 28 79 69 | .....(if.(null.form).........(yi |
| d2ee0 | 65 6c 64 2d 66 61 69 6c 75 72 65 29 0a 20 20 20 20 20 20 20 20 28 67 72 6f 76 65 6c 2d 66 6f 72 | eld-failure).........(grovel-for |
| d2f00 | 6d 20 66 6f 72 6d 20 27 28 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 72 61 63 74 2d 63 | m.form.'()))))..(defun.extract-c |
| d2f20 | 75 72 73 6f 72 2d 6d 61 72 6b 65 72 20 28 66 6f 72 6d 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 | ursor-marker.(form)..."Returns.t |
| d2f40 | 68 72 65 65 20 76 61 6c 75 65 73 3a 20 6e 6f 72 6d 61 6c 69 7a 65 64 20 60 66 6f 72 6d 27 20 77 | hree.values:.normalized.`form'.w |
| d2f60 | 69 74 68 6f 75 74 20 2b 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 2b 2c 0a 74 68 65 20 6f 62 6a 65 | ithout.+CURSOR-MARKER+,.the.obje |
| d2f80 | 63 74 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 2b 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 2b 2c 20 | ct.in.front.of.+CURSOR-MARKER+,. |
| d2fa0 | 61 6e 64 20 61 20 66 6f 72 6d 20 70 61 74 68 20 74 6f 20 74 68 61 74 0a 6f 62 6a 65 63 74 2e 22 | and.a.form.path.to.that.object." |
| d2fc0 | 0a 20 20 28 6c 61 62 65 6c 73 20 28 28 67 72 6f 76 65 6c 20 28 66 6f 72 6d 20 6c 61 73 74 20 70 | ...(labels.((grovel.(form.last.p |
| d2fe0 | 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 2d | ath)..............(let.((result- |
| d3000 | 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 | form))................(loop.for. |
| d3020 | 28 63 61 72 20 2e 20 63 64 72 29 20 6f 6e 20 66 6f 72 6d 20 64 6f 0a 20 20 20 20 20 20 20 20 20 | (car...cdr).on.form.do.......... |
| d3040 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 6c 20 63 61 72 20 2b 63 75 72 | ............(cond.((eql.car.+cur |
| d3060 | 73 6f 72 2d 6d 61 72 6b 65 72 2b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sor-marker+).................... |
| d3080 | 20 20 20 20 20 20 20 20 20 28 64 65 63 66 20 28 66 69 72 73 74 20 70 61 74 68 29 29 0a 20 20 20 | .........(decf.(first.path)).... |
| d30a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e | .........................(return |
| d30c0 | 2d 66 72 6f 6d 20 67 72 6f 76 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -from.grovel.................... |
| d30e0 | 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 6e 72 65 63 6f 6e 63 20 72 65 73 75 | ...........(values.(nreconc.resu |
| d3100 | 6c 74 2d 66 6f 72 6d 20 63 64 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lt-form.cdr).................... |
| d3120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 0a 20 20 20 20 20 20 20 20 | ...................last......... |
| d3140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e | ..............................(n |
| d3160 | 72 65 76 65 72 73 65 20 70 61 74 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | reverse.path))))................ |
| d3180 | 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 6f 6e 73 70 20 63 61 72 29 0a 20 20 20 20 20 20 20 | ............((consp.car)........ |
| d31a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 | .....................(multiple-v |
| d31c0 | 61 6c 75 65 2d 62 69 6e 64 20 28 6e 65 77 2d 63 61 72 20 6e 65 77 2d 6c 61 73 74 20 6e 65 77 2d | alue-bind.(new-car.new-last.new- |
| d31e0 | 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | path)........................... |
| d3200 | 20 20 20 20 20 20 28 67 72 6f 76 65 6c 20 63 61 72 20 6c 61 73 74 20 28 63 6f 6e 73 20 30 20 70 | ......(grovel.car.last.(cons.0.p |
| d3220 | 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ath))........................... |
| d3240 | 20 20 20 20 28 77 68 65 6e 20 6e 65 77 2d 70 61 74 68 20 3b 20 43 41 52 20 63 6f 6e 74 61 69 6e | ....(when.new-path.;.CAR.contain |
| d3260 | 65 64 20 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed.cursor-marker?............... |
| d3280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 67 | ..................(return-from.g |
| d32a0 | 72 6f 76 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rovel........................... |
| d32c0 | 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 6e 72 65 63 6f 6e 63 0a 20 20 20 20 20 20 20 | ........(values.(nreconc........ |
| d32e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d3300 | 20 20 20 20 28 63 6f 6e 73 20 6e 65 77 2d 63 61 72 20 72 65 73 75 6c 74 2d 66 6f 72 6d 29 20 63 | ....(cons.new-car.result-form).c |
| d3320 | 64 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dr)............................. |
| d3340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 2d 6c 61 73 74 0a 20 20 20 20 20 20 20 20 20 | ..............new-last.......... |
| d3360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d3380 | 20 6e 65 77 2d 70 61 74 68 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .new-path))))))................. |
| d33a0 | 20 20 20 20 20 28 70 75 73 68 20 63 61 72 20 72 65 73 75 6c 74 2d 66 6f 72 6d 29 0a 20 20 20 20 | .....(push.car.result-form)..... |
| d33c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 61 73 74 20 63 61 72 29 | .................(setq.last.car) |
| d33e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 28 66 69 72 | ......................(incf.(fir |
| d3400 | 73 74 20 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 | st.path))......................f |
| d3420 | 69 6e 61 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 | inally........................(r |
| d3440 | 65 74 75 72 6e 2d 66 72 6f 6d 20 67 72 6f 76 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eturn-from.grovel............... |
| d3460 | 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 6e 72 65 76 65 72 73 65 20 72 65 73 | ...........(values.(nreverse.res |
| d3480 | 75 6c 74 2d 66 6f 72 6d 29 20 6e 69 6c 20 6e 69 6c 29 29 29 29 29 29 0a 20 20 20 20 28 67 72 6f | ult-form).nil.nil)))))).....(gro |
| d34a0 | 76 65 6c 20 66 6f 72 6d 20 6e 69 6c 20 28 6c 69 73 74 20 30 29 29 29 29 0a 0a 28 64 65 66 67 65 | vel.form.nil.(list.0))))..(defge |
| d34c0 | 6e 65 72 69 63 20 65 78 74 72 61 63 74 2d 6c 6f 63 61 6c 2d 6f 70 2d 61 72 67 6c 69 73 74 73 20 | neric.extract-local-op-arglists. |
| d34e0 | 28 6f 70 65 72 61 74 6f 72 20 61 72 67 73 29 0a 20 20 28 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f | (operator.args)...(:documentatio |
| d3500 | 6e 0a 20 20 20 22 49 66 20 74 68 65 20 66 6f 72 6d 20 60 28 4f 50 45 52 41 54 4f 52 20 2c 40 41 | n...."If.the.form.`(OPERATOR.,@A |
| d3520 | 52 47 53 29 20 69 73 20 61 20 6c 6f 63 61 6c 20 6f 70 65 72 61 74 6f 72 20 62 69 6e 64 69 6e 67 | RGS).is.a.local.operator.binding |
| d3540 | 20 66 6f 72 6d 2c 0a 20 20 20 20 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 61 69 | .form,......return.a.list.of.pai |
| d3560 | 72 73 20 28 4f 50 20 2e 20 41 52 47 4c 49 53 54 29 20 66 6f 72 20 65 61 63 68 20 6c 6f 63 61 6c | rs.(OP...ARGLIST).for.each.local |
| d3580 | 6c 79 20 62 6f 75 6e 64 20 6f 70 2e 22 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 6f 70 65 72 61 | ly.bound.op.")...(:method.(opera |
| d35a0 | 74 6f 72 20 61 72 67 73 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6f | tor.args).....(declare.(ignore.o |
| d35c0 | 70 65 72 61 74 6f 72 20 61 72 67 73 29 29 0a 20 20 20 20 6e 69 6c 29 0a 20 20 3b 3b 20 46 4c 45 | perator.args)).....nil)...;;.FLE |
| d35e0 | 54 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 63 6c | T...(:method.((operator.(eql.'cl |
| d3600 | 3a 66 6c 65 74 29 29 20 61 72 67 73 29 0a 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 73 20 28 66 | :flet)).args).....(let.((defs.(f |
| d3620 | 69 72 73 74 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 62 6f 64 79 20 28 72 65 73 | irst.args))...........(body.(res |
| d3640 | 74 20 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 62 6f 64 | t.args))).......(cond.((null.bod |
| d3660 | 79 29 20 6e 69 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 60 28 66 6c 65 74 20 28 28 66 6f | y).nil)............;.`(flet.((fo |
| d3680 | 6f 20 28 78 29 20 7c 27 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 74 6f 6d 20 64 65 66 73 | o.(x).|'.............((atom.defs |
| d36a0 | 29 20 6e 69 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 60 28 66 6c 65 74 20 2c 66 6f 6f 20 | ).nil)............;.`(flet.,foo. |
| d36c0 | 28 7c 27 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 25 63 6f 6c 6c 65 63 74 2d 6f 70 2f | (|'.............(t.(%collect-op/ |
| d36e0 | 61 72 67 6c 2d 61 6c 69 73 74 20 64 65 66 73 29 29 29 29 29 0a 20 20 3b 3b 20 4c 41 42 45 4c 53 | argl-alist.defs)))))...;;.LABELS |
| d3700 | 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 63 6c 3a | ...(:method.((operator.(eql.'cl: |
| d3720 | 6c 61 62 65 6c 73 29 29 20 61 72 67 73 29 0a 20 20 20 20 3b 3b 20 4e 6f 74 69 63 65 20 74 68 61 | labels)).args).....;;.Notice.tha |
| d3740 | 74 20 77 65 20 6f 6e 6c 79 20 68 61 76 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 20 22 6c | t.we.only.have.information.to."l |
| d3760 | 6f 6f 6b 20 62 61 63 6b 77 61 72 64 22 20 61 6e 64 0a 20 20 20 20 3b 3b 20 73 68 6f 77 20 61 72 | ook.backward".and.....;;.show.ar |
| d3780 | 67 6c 69 73 74 73 20 6f 66 20 70 72 65 76 69 6f 75 73 6c 79 20 6f 63 63 75 72 69 6e 67 20 6c 6f | glists.of.previously.occuring.lo |
| d37a0 | 63 61 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e | cal.functions......(destructurin |
| d37c0 | 67 2d 62 69 6e 64 20 28 64 65 66 73 20 2e 20 62 6f 64 79 29 20 61 72 67 73 0a 20 20 20 20 20 20 | g-bind.(defs...body).args....... |
| d37e0 | 28 77 68 65 6e 20 28 63 6f 6e 73 70 20 64 65 66 73 29 20 20 20 3b 20 60 28 6c 61 62 65 6c 73 20 | (when.(consp.defs)...;.`(labels. |
| d3800 | 2c 66 6f 6f 20 28 7c 27 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d | ,foo.(|'.........(let.((current- |
| d3820 | 64 65 66 20 28 63 61 72 20 28 6c 61 73 74 20 64 65 66 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 | def.(car.(last.defs))))......... |
| d3840 | 20 20 28 63 6f 6e 64 20 28 28 61 74 6f 6d 20 63 75 72 72 65 6e 74 2d 64 65 66 29 20 6e 69 6c 29 | ..(cond.((atom.current-def).nil) |
| d3860 | 20 3b 20 60 28 6c 61 62 65 6c 73 20 28 28 66 6f 6f 20 28 78 29 20 2e 2e 2e 29 7c 27 0a 20 20 20 | .;.`(labels.((foo.(x)....)|'.... |
| d3880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............(body.............. |
| d38a0 | 20 20 20 20 28 65 78 74 72 61 63 74 2d 6c 6f 63 61 6c 2d 6f 70 2d 61 72 67 6c 69 73 74 73 20 27 | ....(extract-local-op-arglists.' |
| d38c0 | 63 6c 3a 66 6c 65 74 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | cl:flet.args)).................( |
| d38e0 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 2e 62 6f | t..................(let.((def.bo |
| d3900 | 64 79 20 28 63 64 64 72 20 63 75 72 72 65 6e 74 2d 64 65 66 29 29 29 0a 20 20 20 20 20 20 20 20 | dy.(cddr.current-def)))......... |
| d3920 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 64 65 66 2e 62 6f 64 79 0a 20 20 20 20 20 20 | ...........(when.def.body....... |
| d3940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 25 63 6f 6c 6c 65 63 74 2d 6f 70 2f 61 72 67 6c | ...............(%collect-op/argl |
| d3960 | 2d 61 6c 69 73 74 20 64 65 66 73 29 29 29 29 29 29 29 29 29 0a 20 20 3b 3b 20 4d 41 43 52 4f 4c | -alist.defs)))))))))...;;.MACROL |
| d3980 | 45 54 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 28 6f 70 65 72 61 74 6f 72 20 28 65 71 6c 20 27 63 | ET...(:method.((operator.(eql.'c |
| d39a0 | 6c 3a 6d 61 63 72 6f 6c 65 74 29 29 20 61 72 67 73 29 0a 20 20 20 20 28 65 78 74 72 61 63 74 2d | l:macrolet)).args).....(extract- |
| d39c0 | 6c 6f 63 61 6c 2d 6f 70 2d 61 72 67 6c 69 73 74 73 20 27 63 6c 3a 6c 61 62 65 6c 73 20 61 72 67 | local-op-arglists.'cl:labels.arg |
| d39e0 | 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 25 63 6f 6c 6c 65 63 74 2d 6f 70 2f 61 72 67 6c 2d 61 6c | s)))..(defun.%collect-op/argl-al |
| d3a00 | 69 73 74 20 28 64 65 66 73 29 0a 20 20 28 73 65 74 71 20 64 65 66 73 20 28 72 65 6d 6f 76 65 2d | ist.(defs)...(setq.defs.(remove- |
| d3a20 | 69 66 2d 6e 6f 74 20 23 27 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 | if-not.#'(lambda.(x)............ |
| d3a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 6c 6c 2d 66 6f 72 | .....................;;.Well-for |
| d3a60 | 6d 65 64 20 46 4c 45 54 2f 4c 41 42 45 4c 53 20 64 65 66 3f 0a 20 20 20 20 20 20 20 20 20 20 20 | med.FLET/LABELS.def?............ |
| d3a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 | .....................(and.(consp |
| d3aa0 | 20 78 29 20 28 73 65 63 6f 6e 64 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .x).(second.x)))................ |
| d3ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 73 29 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 | .............defs))...(loop.for. |
| d3ae0 | 28 6e 61 6d 65 20 61 72 67 6c 69 73 74 20 2e 20 6e 69 6c 29 20 69 6e 20 64 65 66 73 0a 20 20 20 | (name.arglist...nil).in.defs.... |
| d3b00 | 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 63 6f 6e 73 20 6e 61 6d 65 20 61 72 67 6c 69 73 74 29 | .....collect.(cons.name.arglist) |
| d3b20 | 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 69 6d 6d 65 64 69 61 74 65 6c 79 2d 63 6f 6e 74 | ))..(defun.find-immediately-cont |
| d3b40 | 61 69 6e 69 6e 67 2d 61 72 67 6c 69 73 74 20 28 66 6f 72 6d 29 0a 20 20 22 52 65 74 75 72 6e 73 | aining-arglist.(form)..."Returns |
| d3b60 | 20 74 68 65 20 61 72 67 6c 69 73 74 20 6f 66 20 74 68 65 20 73 75 62 66 6f 72 6d 20 5f 69 6d 6d | .the.arglist.of.the.subform._imm |
| d3b80 | 65 64 69 61 74 65 6c 79 5f 20 63 6f 6e 74 61 69 6e 69 6e 67 0a 2b 43 55 52 53 4f 52 2d 4d 41 52 | ediately_.containing.+CURSOR-MAR |
| d3ba0 | 4b 45 52 2b 20 69 6e 20 60 66 6f 72 6d 27 2e 20 4e 6f 74 69 63 65 2c 20 68 6f 77 65 76 65 72 2c | KER+.in.`form'..Notice,.however, |
| d3bc0 | 20 74 68 61 74 20 2b 43 55 52 53 4f 52 2d 4d 41 52 4b 45 52 2b 20 6d 61 79 0a 62 65 20 69 6e 20 | .that.+CURSOR-MARKER+.may.be.in. |
| d3be0 | 61 20 6e 65 73 74 65 64 20 61 72 67 6c 69 73 74 20 5c 28 65 2e 67 2e 20 60 28 57 49 54 48 2d 4f | a.nested.arglist.\(e.g..`(WITH-O |
| d3c00 | 50 45 4e 2d 46 49 4c 45 20 28 3c 68 65 72 65 3e 27 5c 29 2c 20 61 6e 64 20 74 68 65 0a 61 72 67 | PEN-FILE.(<here>'\),.and.the.arg |
| d3c20 | 6c 69 73 74 20 6f 66 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 70 61 72 65 6e 74 20 66 | list.of.the.appropriate.parent.f |
| d3c40 | 6f 72 6d 20 5c 28 57 49 54 48 2d 4f 50 45 4e 2d 46 49 4c 45 5c 29 20 77 69 6c 6c 20 62 65 0a 72 | orm.\(WITH-OPEN-FILE\).will.be.r |
| d3c60 | 65 74 75 72 6e 65 64 20 69 6e 20 74 68 61 74 20 63 61 73 65 2e 22 0a 20 20 28 66 6c 65 74 20 28 | eturned.in.that.case."...(flet.( |
| d3c80 | 28 74 72 79 20 28 66 6f 72 6d 2d 70 61 74 68 20 66 6f 72 6d 20 61 72 67 6c 69 73 74 29 0a 20 20 | (try.(form-path.form.arglist)... |
| d3ca0 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 61 72 67 6c 69 73 74 2d 70 61 74 68 20 28 66 | .........(let*.((arglist-path.(f |
| d3cc0 | 6f 72 6d 2d 70 61 74 68 2d 74 6f 2d 61 72 67 6c 69 73 74 2d 70 61 74 68 20 66 6f 72 6d 2d 70 61 | orm-path-to-arglist-path.form-pa |
| d3ce0 | 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | th.............................. |
| d3d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f | ..............................fo |
| d3d20 | 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rm.............................. |
| d3d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 | ..............................ar |
| d3d60 | 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 20 | glist))...................(argl. |
| d3d80 | 28 61 70 70 6c 79 20 23 27 61 72 67 6c 69 73 74 2d 72 65 66 0a 20 20 20 20 20 20 20 20 20 20 20 | (apply.#'arglist-ref............ |
| d3da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 6c 69 73 74 0a 20 20 20 20 | ....................arglist..... |
| d3dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 6c 69 | ...........................argli |
| d3de0 | 73 74 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 | st-path))...................(arg |
| d3e00 | 73 20 28 61 70 70 6c 79 20 23 27 70 72 6f 76 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 73 2d 72 65 | s.(apply.#'provided-arguments-re |
| d3e20 | 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | f............................... |
| d3e40 | 20 28 63 64 72 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(cdr.form)..................... |
| d3e60 | 20 20 20 20 20 20 20 20 20 20 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........arglist.............. |
| d3e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 6c 69 73 74 2d 70 61 74 68 29 29 | ..................arglist-path)) |
| d3ea0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 61 72 67 6c 69 | )..............(when.(and.(argli |
| d3ec0 | 73 74 2d 70 20 61 72 67 6c 29 20 28 6c 69 73 74 70 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 | st-p.argl).(listp.args))........ |
| d3ee0 | 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 61 72 67 6c 20 61 72 67 73 29 29 29 29 29 0a 20 | ........(values.argl.args))))).. |
| d3f00 | 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 6f 72 6d 20 61 72 | ...(multiple-value-bind.(form.ar |
| d3f20 | 67 6c 69 73 74 20 6f 62 6a 20 66 6f 72 6d 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 28 66 69 | glist.obj.form-path).........(fi |
| d3f40 | 6e 64 2d 73 75 62 66 6f 72 6d 2d 77 69 74 68 2d 61 72 67 6c 69 73 74 20 66 6f 72 6d 29 0a 20 20 | nd-subform-with-arglist.form)... |
| d3f60 | 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6f 62 6a 29 29 0a 20 20 20 20 20 | ....(declare.(ignore.obj))...... |
| d3f80 | 20 28 77 69 74 68 2d 61 76 61 69 6c 61 62 6c 65 2d 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 | .(with-available-arglist.(arglis |
| d3fa0 | 74 29 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 3b 3b 20 46 69 72 73 74 20 74 72 79 20 | t).arglist.........;;.First.try. |
| d3fc0 | 74 68 65 20 66 6f 72 6d 20 74 68 65 20 63 75 72 73 6f 72 20 69 73 20 69 6e 20 28 69 6e 20 63 61 | the.form.the.cursor.is.in.(in.ca |
| d3fe0 | 73 65 20 6f 66 20 61 20 6e 6f 72 6d 61 6c 0a 20 20 20 20 20 20 20 20 3b 3b 20 66 6f 72 6d 29 2c | se.of.a.normal.........;;.form), |
| d4000 | 20 74 68 65 6e 20 74 72 79 20 74 68 65 20 73 75 72 72 6f 75 6e 64 69 6e 67 20 66 6f 72 6d 20 28 | .then.try.the.surrounding.form.( |
| d4020 | 69 6e 20 63 61 73 65 20 6f 66 20 61 20 6e 65 73 74 65 64 0a 20 20 20 20 20 20 20 20 3b 3b 20 6d | in.case.of.a.nested.........;;.m |
| d4040 | 61 63 72 6f 20 66 6f 72 6d 29 2e 0a 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 | acro.form)..........(multiple-va |
| d4060 | 6c 75 65 2d 6f 72 20 28 74 72 79 20 66 6f 72 6d 2d 70 61 74 68 20 66 6f 72 6d 20 61 72 67 6c 69 | lue-or.(try.form-path.form.argli |
| d4080 | 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | st)............................( |
| d40a0 | 74 72 79 20 28 62 75 74 6c 61 73 74 20 66 6f 72 6d 2d 70 61 74 68 29 20 66 6f 72 6d 20 61 72 67 | try.(butlast.form-path).form.arg |
| d40c0 | 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | list)........................... |
| d40e0 | 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 | .:not-available)))))..(defun.for |
| d4100 | 6d 2d 70 61 74 68 2d 74 6f 2d 61 72 67 6c 69 73 74 2d 70 61 74 68 20 28 66 6f 72 6d 2d 70 61 74 | m-path-to-arglist-path.(form-pat |
| d4120 | 68 20 66 6f 72 6d 20 61 72 67 6c 69 73 74 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 61 20 66 6f 72 | h.form.arglist)..."Convert.a.for |
| d4140 | 6d 20 70 61 74 68 20 74 6f 20 61 6e 20 61 72 67 6c 69 73 74 20 70 61 74 68 20 63 6f 6e 73 69 73 | m.path.to.an.arglist.path.consis |
| d4160 | 74 69 6e 67 20 6f 66 20 61 72 67 6c 69 73 74 0a 69 6e 64 69 63 65 73 2e 22 0a 20 20 28 6c 61 62 | ting.of.arglist.indices."...(lab |
| d4180 | 65 6c 73 20 28 28 63 6f 6e 76 65 72 74 20 28 70 61 74 68 20 61 72 67 73 20 61 72 67 6c 69 73 74 | els.((convert.(path.args.arglist |
| d41a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 70 61 74 68 29 0a 20 | )..............(if.(null.path).. |
| d41c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ................nil............. |
| d41e0 | 20 20 20 20 20 28 6c 65 74 2a 20 28 28 69 64 78 20 20 20 20 20 20 28 63 61 72 20 70 61 74 68 29 | .....(let*.((idx......(car.path) |
| d4200 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 64 78 2a 20 | ).........................(idx*. |
| d4220 | 20 20 20 20 28 61 72 67 6c 69 73 74 2d 69 6e 64 65 78 20 69 64 78 20 61 72 67 73 20 61 72 67 6c | ....(arglist-index.idx.args.argl |
| d4240 | 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | ist)).........................(a |
| d4260 | 72 67 6c 69 73 74 2a 20 28 61 6e 64 20 69 64 78 2a 20 28 61 72 67 6c 69 73 74 2d 72 65 66 20 61 | rglist*.(and.idx*.(arglist-ref.a |
| d4280 | 72 67 6c 69 73 74 20 69 64 78 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rglist.idx*))).................. |
| d42a0 | 20 20 20 20 20 20 20 28 61 72 67 73 2a 20 20 20 20 28 61 6e 64 20 69 64 78 2a 20 28 70 72 6f 76 | .......(args*....(and.idx*.(prov |
| d42c0 | 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 73 2d 72 65 66 20 61 72 67 73 0a 20 20 20 20 20 20 20 20 | ided-arguments-ref.args......... |
| d42e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d4300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 6c | ............................argl |
| d4320 | 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ist............................. |
| d4340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d4360 | 20 20 20 20 20 20 20 20 69 64 78 2a 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........idx*))))................ |
| d4380 | 20 20 20 20 3b 3b 20 54 68 65 20 46 4f 52 4d 2d 50 41 54 48 20 6d 61 79 20 62 65 20 6d 6f 72 65 | ....;;.The.FORM-PATH.may.be.more |
| d43a0 | 20 64 65 74 61 69 6c 65 64 20 74 68 61 6e 20 41 52 47 4c 49 53 54 3b 0a 20 20 20 20 20 20 20 20 | .detailed.than.ARGLIST;......... |
| d43c0 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6e 73 69 64 65 72 20 28 64 65 66 75 6e 20 66 6f | ...........;;.consider.(defun.fo |
| d43e0 | 6f 20 28 78 20 79 29 20 2e 2e 2e 29 2c 20 61 20 66 6f 72 6d 20 70 61 74 68 20 6d 61 79 0a 20 20 | o.(x.y)....),.a.form.path.may... |
| d4400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 6f 69 6e 74 20 69 6e 74 6f 20 74 | .................;;.point.into.t |
| d4420 | 68 65 20 66 75 6e 63 74 69 6f 6e 27 73 20 6c 61 6d 62 64 61 2d 6c 69 73 74 2c 20 62 75 74 20 74 | he.function's.lambda-list,.but.t |
| d4440 | 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 72 67 6c 69 73 74 | he....................;;.arglist |
| d4460 | 20 6f 66 20 44 45 46 55 4e 20 77 6f 6e 27 74 20 63 6f 6e 74 61 69 6e 20 61 73 20 6d 75 63 68 20 | .of.DEFUN.won't.contain.as.much. |
| d4480 | 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | information..................... |
| d44a0 | 3b 3b 20 53 6f 20 77 65 20 6f 6e 6c 79 20 72 65 63 75 72 73 65 20 69 66 20 70 6f 73 73 69 62 6c | ;;.So.we.only.recurse.if.possibl |
| d44c0 | 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 | e.....................(cond.((nu |
| d44e0 | 6c 6c 20 69 64 78 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ll.idx*)........................ |
| d4500 | 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...nil)......................... |
| d4520 | 20 28 28 61 72 67 6c 69 73 74 2d 70 20 61 72 67 6c 69 73 74 2a 29 0a 20 20 20 20 20 20 20 20 20 | .((arglist-p.arglist*).......... |
| d4540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 69 64 78 2a 20 28 63 6f 6e | .................(cons.idx*.(con |
| d4560 | 76 65 72 74 20 28 63 64 72 20 70 61 74 68 29 20 61 72 67 73 2a 20 61 72 67 6c 69 73 74 2a 29 29 | vert.(cdr.path).args*.arglist*)) |
| d4580 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 | )..........................(t... |
| d45a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 69 64 | ........................(list.id |
| d45c0 | 78 2a 29 29 29 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 76 65 72 74 0a 20 20 20 20 20 3b 3b 20 46 | x*))))))).....(convert......;;.F |
| d45e0 | 4f 52 4d 20 63 6f 6e 74 61 69 6e 73 20 69 72 72 65 6c 65 76 61 6e 74 20 6f 70 65 72 61 74 6f 72 | ORM.contains.irrelevant.operator |
| d4600 | 2e 20 41 64 6a 75 73 74 20 46 4f 52 4d 2d 50 41 54 48 2e 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 | ..Adjust.FORM-PATH.......(cond.( |
| d4620 | 28 6e 75 6c 6c 20 66 6f 72 6d 2d 70 61 74 68 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | (null.form-path).nil)........... |
| d4640 | 20 28 28 65 71 75 61 6c 20 66 6f 72 6d 2d 70 61 74 68 20 27 28 30 29 29 20 6e 69 6c 29 0a 20 20 | .((equal.form-path.'(0)).nil)... |
| d4660 | 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 | .........(t.............(destruc |
| d4680 | 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 63 61 72 20 2e 20 63 64 72 29 20 66 6f 72 6d 2d 70 61 74 | turing-bind.(car...cdr).form-pat |
| d46a0 | 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 31 2d 20 63 61 72 29 20 63 | h...............(cons.(1-.car).c |
| d46c0 | 64 72 29 29 29 29 0a 20 20 20 20 20 28 63 64 72 20 66 6f 72 6d 29 0a 20 20 20 20 20 61 72 67 6c | dr))))......(cdr.form)......argl |
| d46e0 | 69 73 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 72 67 6c 69 73 74 2d 69 6e 64 65 78 20 28 70 72 | ist)))..(defun.arglist-index.(pr |
| d4700 | 6f 76 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 2d 69 6e 64 65 78 20 70 72 6f 76 69 64 65 64 2d 61 | ovided-argument-index.provided-a |
| d4720 | 72 67 75 6d 65 6e 74 73 20 61 72 67 6c 69 73 74 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 | rguments.arglist)..."Return.the. |
| d4740 | 61 72 67 6c 69 73 74 20 69 6e 64 65 78 20 69 6e 74 6f 20 60 61 72 67 6c 69 73 74 27 20 66 6f 72 | arglist.index.into.`arglist'.for |
| d4760 | 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 62 65 6c 6f 6e 67 69 6e 67 0a 74 6f 20 74 68 65 20 | .the.parameter.belonging.to.the. |
| d4780 | 61 72 67 75 6d 65 6e 74 20 28 4e 54 48 20 60 70 72 6f 76 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 | argument.(NTH.`provided-argument |
| d47a0 | 2d 69 6e 64 65 78 27 20 60 70 72 6f 76 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 73 27 29 2e 22 0a | -index'.`provided-arguments').". |
| d47c0 | 20 20 28 6c 65 74 20 28 28 70 6f 73 69 74 69 6f 6e 61 6c 2d 61 72 67 73 23 20 28 70 6f 73 69 74 | ..(let.((positional-args#.(posit |
| d47e0 | 69 6f 6e 61 6c 2d 61 72 67 73 2d 6e 75 6d 62 65 72 20 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 | ional-args-number.arglist))..... |
| d4800 | 20 20 20 20 28 61 72 67 2d 69 6e 64 65 78 20 70 72 6f 76 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 | ....(arg-index.provided-argument |
| d4820 | 2d 69 6e 64 65 78 29 29 0a 20 20 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 61 72 67 6c 69 | -index)).....(with-struct.(argli |
| d4840 | 73 74 2e 20 6b 65 79 2d 70 20 72 65 73 74 29 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 28 63 | st..key-p.rest).arglist.......(c |
| d4860 | 6f 6e 64 0a 20 20 20 20 20 20 20 20 28 28 3c 20 61 72 67 2d 69 6e 64 65 78 20 70 6f 73 69 74 69 | ond.........((<.arg-index.positi |
| d4880 | 6f 6e 61 6c 2d 61 72 67 73 23 29 20 3b 20 72 65 71 75 69 72 65 64 20 2b 20 6f 70 74 69 6f 6e 61 | onal-args#).;.required.+.optiona |
| d48a0 | 6c 0a 20 20 20 20 20 20 20 20 20 61 72 67 2d 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 28 28 | l..........arg-index).........(( |
| d48c0 | 61 6e 64 20 28 6e 6f 74 20 6b 65 79 2d 70 29 20 28 6e 6f 74 20 72 65 73 74 29 29 20 20 20 3b 20 | and.(not.key-p).(not.rest))...;. |
| d48e0 | 6d 6f 72 65 20 70 72 6f 76 69 64 65 64 20 74 68 61 6e 20 61 6c 6c 6f 77 65 64 0a 20 20 20 20 20 | more.provided.than.allowed...... |
| d4900 | 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 6b 65 79 2d 70 29 20 20 20 | ....nil).........((not.key-p)... |
| d4920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 73 74 20 2b 20 62 6f 64 79 0a 20 | .................;.rest.+.body.. |
| d4940 | 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 61 72 67 6c 69 73 74 2e 72 65 73 74 20 61 72 | ........(assert.(arglist.rest.ar |
| d4960 | 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 61 6c 2d 61 72 67 73 | glist))..........positional-args |
| d4980 | 23 29 0a 20 20 20 20 20 20 20 20 28 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | #).........(t................... |
| d49a0 | 20 20 20 20 20 20 20 20 20 20 20 3b 20 6b 65 79 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 46 69 6e | ...........;.key..........;;.Fin |
| d49c0 | 64 20 6c 61 73 74 20 70 72 6f 76 69 64 65 64 20 26 6b 65 79 20 70 61 72 61 6d 65 74 65 72 0a 20 | d.last.provided.&key.parameter.. |
| d49e0 | 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 61 72 67 75 6d 65 6e 74 20 20 20 20 20 20 28 6e | ........(let*.((argument......(n |
| d4a00 | 74 68 20 61 72 67 2d 69 6e 64 65 78 20 70 72 6f 76 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 73 29 | th.arg-index.provided-arguments) |
| d4a20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 76 69 64 65 64 2d 6b 65 79 73 | ).................(provided-keys |
| d4a40 | 20 28 73 75 62 73 65 71 20 70 72 6f 76 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 73 20 70 6f 73 69 | .(subseq.provided-arguments.posi |
| d4a60 | 74 69 6f 6e 61 6c 2d 61 72 67 73 23 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 | tional-args#)))............(loop |
| d4a80 | 20 66 6f 72 20 28 6b 65 79 20 76 61 6c 75 65 29 20 6f 6e 20 70 72 6f 76 69 64 65 64 2d 6b 65 79 | .for.(key.value).on.provided-key |
| d4aa0 | 73 20 62 79 20 23 27 63 64 64 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 | s.by.#'cddr..................whe |
| d4ac0 | 6e 20 28 65 71 20 76 61 6c 75 65 20 61 72 67 75 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 | n.(eq.value.argument)........... |
| d4ae0 | 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 6d 61 74 63 68 20 6b 65 79 0a 20 20 20 20 20 20 20 | .......return.(match.key........ |
| d4b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 27 71 75 6f 74 65 20 73 79 | .....................(('quote.sy |
| d4b20 | 6d 62 6f 6c 29 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mbol).symbol)................... |
| d4b40 | 20 20 20 20 20 20 20 20 20 20 28 5f 20 6b 65 79 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 | ..........(_.key)))))))))..(defu |
| d4b60 | 6e 20 61 72 67 6c 69 73 74 2d 72 65 66 20 28 61 72 67 6c 69 73 74 20 26 72 65 73 74 20 69 6e 64 | n.arglist-ref.(arglist.&rest.ind |
| d4b80 | 69 63 65 73 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 69 | ices)..."Returns.the.parameter.i |
| d4ba0 | 6e 20 41 52 47 4c 49 53 54 20 61 6c 6f 6e 67 20 74 68 65 20 49 4e 44 49 43 49 45 53 20 70 61 74 | n.ARGLIST.along.the.INDICIES.pat |
| d4bc0 | 68 2e 20 4e 75 6d 62 65 72 73 0a 72 65 70 72 65 73 65 6e 74 20 70 6f 73 69 74 69 6f 6e 61 6c 20 | h..Numbers.represent.positional. |
| d4be0 | 70 61 72 61 6d 65 74 65 72 73 20 28 72 65 71 75 69 72 65 64 2c 20 6f 70 74 69 6f 6e 61 6c 29 2c | parameters.(required,.optional), |
| d4c00 | 20 6b 65 79 77 6f 72 64 73 0a 72 65 70 72 65 73 65 6e 74 20 6b 65 79 20 70 61 72 61 6d 65 74 65 | .keywords.represent.key.paramete |
| d4c20 | 72 73 2e 22 0a 20 20 28 66 6c 65 74 20 28 28 72 65 66 2d 70 6f 73 69 74 69 6f 6e 61 6c 2d 61 72 | rs."...(flet.((ref-positional-ar |
| d4c40 | 67 20 28 61 72 67 6c 69 73 74 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 68 | g.(arglist.index)............(ch |
| d4c60 | 65 63 6b 2d 74 79 70 65 20 69 6e 64 65 78 20 28 69 6e 74 65 67 65 72 20 30 20 2a 29 29 0a 20 20 | eck-type.index.(integer.0.*))... |
| d4c80 | 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 61 72 67 6c 69 73 74 2e 20 | .........(with-struct.(arglist.. |
| d4ca0 | 70 72 6f 76 69 64 65 64 2d 61 72 67 73 20 72 65 71 75 69 72 65 64 2d 61 72 67 73 0a 20 20 20 20 | provided-args.required-args..... |
| d4cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 | ..............................op |
| d4ce0 | 74 69 6f 6e 61 6c 2d 61 72 67 73 20 72 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tional-args.rest)............... |
| d4d00 | 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 | .arglist..............(loop.for. |
| d4d20 | 61 72 67 73 20 69 6e 20 28 6c 69 73 74 20 70 72 6f 76 69 64 65 64 2d 61 72 67 73 20 72 65 71 75 | args.in.(list.provided-args.requ |
| d4d40 | 69 72 65 64 2d 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ired-args....................... |
| d4d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 6f 70 74 69 6f 6e 61 | ...............(mapcar.#'optiona |
| d4d80 | 6c 2d 61 72 67 2e 61 72 67 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-arg.arg-name.................. |
| d4da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 69 | ............................opti |
| d4dc0 | 6f 6e 61 6c 2d 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 | onal-args))....................f |
| d4de0 | 6f 72 20 61 72 67 73 23 20 3d 20 28 6c 65 6e 67 74 68 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 | or.args#.=.(length.args)........ |
| d4e00 | 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 3c 20 69 6e 64 65 78 20 61 72 67 73 23 29 0a 20 | ............if.(<.index.args#).. |
| d4e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 6e 74 68 20 | ....................return.(nth. |
| d4e40 | 69 6e 64 65 78 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 | index.args)....................e |
| d4e60 | 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 64 65 63 | lse......................do.(dec |
| d4e80 | 66 20 69 6e 64 65 78 20 61 72 67 73 23 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | f.index.args#).................. |
| d4ea0 | 20 20 66 69 6e 61 6c 6c 79 20 28 72 65 74 75 72 6e 20 28 6f 72 20 72 65 73 74 20 6e 69 6c 29 29 | ..finally.(return.(or.rest.nil)) |
| d4ec0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 66 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 28 61 | )))..........(ref-keyword-arg.(a |
| d4ee0 | 72 67 6c 69 73 74 20 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6b 65 | rglist.keyword)............;;.ke |
| d4f00 | 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 6d 61 79 20 62 65 20 61 6e 79 20 73 79 6d 62 6f 6c | yword.argument.may.be.any.symbol |
| d4f20 | 2c 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6e 6f 74 20 6f 6e 6c 79 20 66 72 6f 6d 20 74 68 | ,............;;.not.only.from.th |
| d4f40 | 65 20 4b 45 59 57 4f 52 44 20 70 61 63 6b 61 67 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c | e.KEYWORD.package.............(l |
| d4f60 | 65 74 20 28 28 6b 65 79 77 6f 72 64 20 28 6d 61 74 63 68 20 6b 65 79 77 6f 72 64 0a 20 20 20 20 | et.((keyword.(match.keyword..... |
| d4f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 27 71 75 6f 74 65 | ........................(('quote |
| d4fa0 | 20 73 79 6d 62 6f 6c 29 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .symbol).symbol)................ |
| d4fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 5f 20 6b 65 79 77 6f 72 64 29 29 29 29 0a 20 20 20 20 | .............(_.keyword))))..... |
| d4fe0 | 20 20 20 20 20 20 20 20 20 28 64 6f 2d 64 65 63 6f 64 65 64 2d 61 72 67 6c 69 73 74 20 61 72 67 | .........(do-decoded-arglist.arg |
| d5000 | 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 26 6b 65 79 20 28 6b 77 20 61 72 | list................(&key.(kw.ar |
| d5020 | 67 29 20 28 77 68 65 6e 20 28 65 71 20 6b 77 20 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 | g).(when.(eq.kw.keyword)........ |
| d5040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e | .........................(return |
| d5060 | 2d 66 72 6f 6d 20 72 65 66 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 61 72 67 29 29 29 29 29 0a 20 | -from.ref-keyword-arg.arg))))).. |
| d5080 | 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 69 6e 64 | ..........nil)).....(dolist.(ind |
| d50a0 | 65 78 20 69 6e 64 69 63 65 73 29 0a 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 61 72 67 6c 69 | ex.indices).......(assert.(argli |
| d50c0 | 73 74 2d 70 20 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 61 72 67 6c 69 | st-p.arglist)).......(setq.argli |
| d50e0 | 73 74 20 28 69 66 20 28 6e 75 6d 62 65 72 70 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 | st.(if.(numberp.index).......... |
| d5100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 66 2d 70 6f 73 69 74 69 6f 6e 61 6c 2d 61 | ...............(ref-positional-a |
| d5120 | 72 67 20 61 72 67 6c 69 73 74 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rg.arglist.index)............... |
| d5140 | 20 20 20 20 20 20 20 20 20 20 28 72 65 66 2d 6b 65 79 77 6f 72 64 2d 61 72 67 20 61 72 67 6c 69 | ..........(ref-keyword-arg.argli |
| d5160 | 73 74 20 69 6e 64 65 78 29 29 29 29 0a 20 20 20 20 61 72 67 6c 69 73 74 29 29 0a 0a 28 64 65 66 | st.index)))).....arglist))..(def |
| d5180 | 75 6e 20 70 72 6f 76 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 73 2d 72 65 66 20 28 70 72 6f 76 69 | un.provided-arguments-ref.(provi |
| d51a0 | 64 65 64 2d 61 72 67 73 20 61 72 67 6c 69 73 74 20 26 72 65 73 74 20 69 6e 64 69 63 65 73 29 0a | ded-args.arglist.&rest.indices). |
| d51c0 | 20 20 22 52 65 74 75 72 6e 73 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 69 6e 20 50 52 4f 56 49 | .."Returns.the.argument.in.PROVI |
| d51e0 | 44 45 44 2d 41 52 47 55 4d 45 4e 54 20 61 6c 6f 6e 67 20 74 68 65 20 49 4e 44 49 43 45 53 20 70 | DED-ARGUMENT.along.the.INDICES.p |
| d5200 | 61 74 68 0a 72 65 6c 61 74 69 76 65 20 74 6f 20 41 52 47 4c 49 53 54 2e 22 0a 20 20 28 63 68 65 | ath.relative.to.ARGLIST."...(che |
| d5220 | 63 6b 2d 74 79 70 65 20 61 72 67 6c 69 73 74 20 61 72 67 6c 69 73 74 29 0a 20 20 28 66 6c 65 74 | ck-type.arglist.arglist)...(flet |
| d5240 | 20 28 28 72 65 66 20 28 70 72 6f 76 69 64 65 64 2d 61 72 67 73 20 61 72 67 6c 69 73 74 20 69 6e | .((ref.(provided-args.arglist.in |
| d5260 | 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 75 6d 62 65 72 70 20 69 6e 64 | dex)............(if.(numberp.ind |
| d5280 | 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 69 6e 64 65 78 20 70 72 | ex)................(nth.index.pr |
| d52a0 | 6f 76 69 64 65 64 2d 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | ovided-args)................(let |
| d52c0 | 20 28 28 70 72 6f 76 69 64 65 64 2d 6b 65 79 73 20 28 73 75 62 73 65 71 20 70 72 6f 76 69 64 65 | .((provided-keys.(subseq.provide |
| d52e0 | 64 2d 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-args.......................... |
| d5300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 73 69 74 69 6f 6e 61 6c 2d 61 | ...................(positional-a |
| d5320 | 72 67 73 2d 6e 75 6d 62 65 72 20 61 72 67 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | rgs-number.arglist)))).......... |
| d5340 | 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 6b 65 79 20 76 61 6c 75 65 29 20 6f 6e | ........(loop.for.(key.value).on |
| d5360 | 20 70 72 6f 76 69 64 65 64 2d 6b 65 79 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .provided-keys.................. |
| d5380 | 20 20 20 20 20 20 77 68 65 6e 20 28 65 71 20 6b 65 79 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 | ......when.(eq.key.index)....... |
| d53a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 76 61 6c 75 65 29 | ...................return.value) |
| d53c0 | 29 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 69 64 78 20 69 6e 64 69 63 65 73 29 0a 20 | )))).....(dolist.(idx.indices).. |
| d53e0 | 20 20 20 20 20 28 73 65 74 71 20 70 72 6f 76 69 64 65 64 2d 61 72 67 73 20 28 72 65 66 20 70 72 | .....(setq.provided-args.(ref.pr |
| d5400 | 6f 76 69 64 65 64 2d 61 72 67 73 20 61 72 67 6c 69 73 74 20 69 64 78 29 29 0a 20 20 20 20 20 20 | ovided-args.arglist.idx))....... |
| d5420 | 28 73 65 74 71 20 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 74 2d 72 65 66 20 61 72 67 6c 69 | (setq.arglist.(arglist-ref.argli |
| d5440 | 73 74 20 69 64 78 29 29 29 0a 20 20 20 20 70 72 6f 76 69 64 65 64 2d 61 72 67 73 29 29 0a 0a 28 | st.idx))).....provided-args))..( |
| d5460 | 64 65 66 75 6e 20 70 6f 73 69 74 69 6f 6e 61 6c 2d 61 72 67 73 2d 6e 75 6d 62 65 72 20 28 61 72 | defun.positional-args-number.(ar |
| d5480 | 67 6c 69 73 74 29 0a 20 20 28 2b 20 28 6c 65 6e 67 74 68 20 28 61 72 67 6c 69 73 74 2e 70 72 6f | glist)...(+.(length.(arglist.pro |
| d54a0 | 76 69 64 65 64 2d 61 72 67 73 20 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 28 6c 65 6e 67 74 | vided-args.arglist))......(lengt |
| d54c0 | 68 20 28 61 72 67 6c 69 73 74 2e 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 61 72 67 6c 69 73 74 | h.(arglist.required-args.arglist |
| d54e0 | 29 29 0a 20 20 20 20 20 28 6c 65 6e 67 74 68 20 28 61 72 67 6c 69 73 74 2e 6f 70 74 69 6f 6e 61 | ))......(length.(arglist.optiona |
| d5500 | 6c 2d 61 72 67 73 20 61 72 67 6c 69 73 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 61 72 73 65 | l-args.arglist))))..(defun.parse |
| d5520 | 2d 72 61 77 2d 66 6f 72 6d 20 28 72 61 77 2d 66 6f 72 6d 29 0a 20 20 22 50 61 72 73 65 20 61 20 | -raw-form.(raw-form)..."Parse.a. |
| d5540 | 52 41 57 2d 46 4f 52 4d 20 69 6e 74 6f 20 61 20 4c 69 73 70 20 66 6f 72 6d 2e 20 49 2e 65 2e 20 | RAW-FORM.into.a.Lisp.form..I.e.. |
| d5560 | 73 75 62 73 74 69 74 75 74 65 20 73 74 72 69 6e 67 73 20 62 79 0a 73 79 6d 62 6f 6c 73 20 69 66 | substitute.strings.by.symbols.if |
| d5580 | 20 61 6c 72 65 61 64 79 20 69 6e 74 65 72 6e 65 64 2e 20 46 6f 72 20 73 74 72 69 6e 67 73 20 6e | .already.interned..For.strings.n |
| d55a0 | 6f 74 20 61 6c 72 65 61 64 79 20 69 6e 74 65 72 6e 65 64 2c 20 75 73 65 0a 41 52 47 4c 49 53 54 | ot.already.interned,.use.ARGLIST |
| d55c0 | 2d 44 55 4d 4d 59 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 6e 75 6c 6c 20 72 61 77 2d 66 6f 72 | -DUMMY."...(unless.(null.raw-for |
| d55e0 | 6d 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 65 6c 65 6d 65 6e 74 20 69 6e 20 72 61 77 2d | m).....(loop.for.element.in.raw- |
| d5600 | 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 65 74 79 70 65 63 61 73 | form...........collect.(etypecas |
| d5620 | 65 20 65 6c 65 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | e.element.....................(s |
| d5640 | 74 72 69 6e 67 20 28 72 65 61 64 2d 63 6f 6e 76 65 72 73 61 74 69 76 65 6c 79 20 65 6c 65 6d 65 | tring.(read-conversatively.eleme |
| d5660 | 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 20 | nt)).....................(list.. |
| d5680 | 20 28 70 61 72 73 65 2d 72 61 77 2d 66 6f 72 6d 20 65 6c 65 6d 65 6e 74 29 29 0a 20 20 20 20 20 | .(parse-raw-form.element))...... |
| d56a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 70 72 6f 67 31 20 65 6c | ...............(symbol.(prog1.el |
| d56c0 | 65 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ement........................... |
| d56e0 | 20 20 20 20 3b 3b 20 43 6f 6d 65 73 20 61 66 74 65 72 20 6c 69 73 74 2c 20 73 6f 20 45 4c 45 4d | ....;;.Comes.after.list,.so.ELEM |
| d5700 | 45 4e 54 20 63 61 6e 27 74 20 62 65 20 4e 49 4c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ENT.can't.be.NIL................ |
| d5720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 65 71 20 65 6c 65 6d | ................(assert.(eq.elem |
| d5740 | 65 6e 74 20 2b 63 75 72 73 6f 72 2d 6d 61 72 6b 65 72 2b 29 29 29 29 29 29 29 29 0a 0a 28 64 65 | ent.+cursor-marker+))))))))..(de |
| d5760 | 66 75 6e 20 72 65 61 64 2d 63 6f 6e 76 65 72 73 61 74 69 76 65 6c 79 20 28 73 74 72 69 6e 67 29 | fun.read-conversatively.(string) |
| d5780 | 0a 20 20 22 54 72 69 65 73 20 74 6f 20 66 69 6e 64 20 74 68 65 20 73 79 6d 62 6f 6c 20 74 68 61 | ..."Tries.to.find.the.symbol.tha |
| d57a0 | 74 27 73 20 72 65 70 72 65 73 65 6e 74 65 64 20 62 79 20 53 54 52 49 4e 47 2e 0a 0a 49 66 20 69 | t's.represented.by.STRING...If.i |
| d57c0 | 74 20 63 61 6e 27 74 2c 20 74 68 69 73 20 65 69 74 68 65 72 20 6d 65 61 6e 73 20 74 68 61 74 20 | t.can't,.this.either.means.that. |
| d57e0 | 53 54 52 49 4e 47 20 64 6f 65 73 20 6e 6f 74 20 72 65 70 72 65 73 65 6e 74 20 61 0a 73 79 6d 62 | STRING.does.not.represent.a.symb |
| d5800 | 6f 6c 2c 20 6f 72 20 74 68 61 74 20 74 68 65 20 73 79 6d 62 6f 6c 20 62 65 68 69 6e 64 20 53 54 | ol,.or.that.the.symbol.behind.ST |
| d5820 | 52 49 4e 47 20 77 6f 75 6c 64 20 68 61 76 65 20 74 6f 20 62 65 20 66 72 65 73 68 6c 79 0a 69 6e | RING.would.have.to.be.freshly.in |
| d5840 | 74 65 72 6e 65 64 2e 20 42 65 63 61 75 73 65 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 | terned..Because.this.function.is |
| d5860 | 20 73 75 70 70 6f 73 65 64 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 74 68 65 0a | .supposed.to.be.called.from.the. |
| d5880 | 61 75 74 6f 6d 61 74 69 63 20 61 72 67 6c 69 73 74 20 64 69 73 70 6c 61 79 20 73 74 75 66 66 20 | automatic.arglist.display.stuff. |
| d58a0 | 66 72 6f 6d 20 53 6c 69 6d 65 2c 20 69 6e 74 65 72 6e 69 6e 67 20 66 72 65 73 68 6c 79 0a 73 79 | from.Slime,.interning.freshly.sy |
| d58c0 | 6d 62 6f 6c 73 20 69 73 20 61 20 62 69 67 20 6e 6f 2d 6e 6f 2e 0a 0a 49 6e 20 73 75 63 68 20 61 | mbols.is.a.big.no-no...In.such.a |
| d58e0 | 20 63 61 73 65 20 28 74 68 61 74 20 6e 6f 20 73 79 6d 62 6f 6c 20 63 6f 75 6c 64 20 62 65 20 66 | .case.(that.no.symbol.could.be.f |
| d5900 | 6f 75 6e 64 29 2c 20 61 6e 20 6f 62 6a 65 63 74 20 6f 66 20 74 79 70 65 0a 41 52 47 4c 49 53 54 | ound),.an.object.of.type.ARGLIST |
| d5920 | 2d 44 55 4d 4d 59 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 6e 73 74 65 61 64 2c 20 77 68 69 63 | -DUMMY.is.returned.instead,.whic |
| d5940 | 68 20 77 6f 72 6b 73 20 61 73 20 61 20 70 6c 61 63 65 68 6f 6c 64 65 72 0a 64 61 74 75 6d 20 66 | h.works.as.a.placeholder.datum.f |
| d5960 | 6f 72 20 73 75 62 73 65 71 75 65 6e 74 20 6c 6f 67 69 63 73 20 74 6f 20 72 65 6c 79 20 6f 6e 2e | or.subsequent.logics.to.rely.on. |
| d5980 | 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 74 72 69 6e 67 20 20 28 73 74 72 69 6e 67 2d 6c 65 66 74 | "...(let*.((string..(string-left |
| d59a0 | 2d 74 72 69 6d 20 27 28 23 5c 53 70 61 63 65 20 23 5c 54 61 62 20 23 5c 4e 65 77 6c 69 6e 65 29 | -trim.'(#\Space.#\Tab.#\Newline) |
| d59c0 | 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 20 28 6c 65 6e | .string))..........(length..(len |
| d59e0 | 67 74 68 20 73 74 72 69 6e 67 29 29 0a 09 20 28 74 79 70 65 20 20 20 20 28 63 6f 6e 64 20 28 28 | gth.string))...(type....(cond.(( |
| d5a00 | 7a 65 72 6f 70 20 6c 65 6e 67 74 68 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | zerop.length).nil).............. |
| d5a20 | 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 6c 20 28 61 72 65 66 20 73 74 72 69 6e 67 20 30 29 | ...........((eql.(aref.string.0) |
| d5a40 | 20 23 5c 27 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | .#\')..........................: |
| d5a60 | 71 75 6f 74 65 64 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | quoted-symbol).................. |
| d5a80 | 20 20 20 20 20 20 20 28 28 73 65 61 72 63 68 20 22 23 27 22 20 73 74 72 69 6e 67 20 3a 65 6e 64 | .......((search."#'".string.:end |
| d5aa0 | 32 20 28 6d 69 6e 20 6c 65 6e 67 74 68 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 2.(min.length.2))............... |
| d5ac0 | 20 20 20 20 20 20 20 20 20 20 20 3a 73 68 61 72 70 71 75 6f 74 65 64 2d 73 79 6d 62 6f 6c 29 0a | ...........:sharpquoted-symbol). |
| d5ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 68 61 72 3d 20 | ........................((char=. |
| d5b00 | 28 63 68 61 72 20 73 74 72 69 6e 67 20 30 29 20 28 63 68 61 72 20 73 74 72 69 6e 67 20 28 31 2d | (char.string.0).(char.string.(1- |
| d5b20 | 20 6c 65 6e 67 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .length))....................... |
| d5b40 | 20 20 20 20 20 20 20 20 20 20 23 5c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........#\").................. |
| d5b60 | 20 20 20 20 20 20 20 20 3a 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........:string)................ |
| d5b80 | 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(t..................... |
| d5ba0 | 20 20 20 20 20 3a 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 | .....:symbol)))).....(multiple-v |
| d5bc0 | 61 6c 75 65 2d 62 69 6e 64 20 28 73 79 6d 62 6f 6c 20 66 6f 75 6e 64 3f 29 0a 09 28 63 61 73 65 | alue-bind.(symbol.found?)..(case |
| d5be0 | 20 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 28 3a 73 79 6d 62 6f 6c 20 20 20 20 20 20 20 20 | .type...........(:symbol........ |
| d5c00 | 20 20 20 20 20 28 70 61 72 73 65 2d 73 79 6d 62 6f 6c 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 | .....(parse-symbol.string))..... |
| d5c20 | 20 20 20 20 20 20 28 3a 71 75 6f 74 65 64 2d 73 79 6d 62 6f 6c 20 20 20 20 20 20 28 70 61 72 73 | ......(:quoted-symbol......(pars |
| d5c40 | 65 2d 73 79 6d 62 6f 6c 20 28 73 75 62 73 65 71 20 73 74 72 69 6e 67 20 31 29 29 29 0a 20 20 20 | e-symbol.(subseq.string.1))).... |
| d5c60 | 20 20 20 20 20 20 20 28 3a 73 68 61 72 70 71 75 6f 74 65 64 2d 73 79 6d 62 6f 6c 20 28 70 61 72 | .......(:sharpquoted-symbol.(par |
| d5c80 | 73 65 2d 73 79 6d 62 6f 6c 20 28 73 75 62 73 65 71 20 73 74 72 69 6e 67 20 32 29 29 29 0a 20 20 | se-symbol.(subseq.string.2)))... |
| d5ca0 | 20 20 20 20 20 20 20 20 28 3a 73 74 72 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 | ........(:string.............(va |
| d5cc0 | 6c 75 65 73 20 73 74 72 69 6e 67 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 20 20 20 | lues.string.t))...........(t.... |
| d5ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 73 74 72 69 6e 67 20 6e 69 | ...............(values.string.ni |
| d5d00 | 6c 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 66 6f 75 6e 64 3f 0a 20 20 20 20 20 20 20 20 20 20 | l))).......(if.found?........... |
| d5d20 | 28 65 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 79 6d 62 6f 6c | (ecase.type.............(:symbol |
| d5d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .............symbol)............ |
| d5d60 | 20 28 3a 71 75 6f 74 65 64 2d 73 79 6d 62 6f 6c 20 20 20 20 20 20 60 28 71 75 6f 74 65 20 2c 73 | .(:quoted-symbol......`(quote.,s |
| d5d80 | 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 68 61 72 70 71 75 6f 74 65 | ymbol)).............(:sharpquote |
| d5da0 | 64 2d 73 79 6d 62 6f 6c 20 60 28 66 75 6e 63 74 69 6f 6e 20 2c 73 79 6d 62 6f 6c 29 29 0a 20 20 | d-symbol.`(function.,symbol))... |
| d5dc0 | 20 20 20 20 20 20 20 20 20 20 28 3a 73 74 72 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ..........(:string.............( |
| d5de0 | 69 66 20 28 3e 20 6c 65 6e 67 74 68 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | if.(>.length.1)................. |
| d5e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 65 71 20 73 74 72 | .....................(subseq.str |
| d5e20 | 69 6e 67 20 31 20 28 31 2d 20 6c 65 6e 67 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing.1.(1-.length)).............. |
| d5e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 29 29 | ........................string)) |
| d5e60 | 29 0a 09 20 20 28 6d 61 6b 65 2d 61 72 67 6c 69 73 74 2d 64 75 6d 6d 79 20 73 74 72 69 6e 67 29 | )....(make-arglist-dummy.string) |
| d5e80 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 73 74 2d 70 72 69 6e 74 2d 61 72 67 6c 69 73 74 20 | ))))..(defun.test-print-arglist. |
| d5ea0 | 28 29 0a 20 20 28 66 6c 65 74 20 28 28 74 65 73 74 20 28 61 72 67 6c 69 73 74 20 26 72 65 73 74 | ()...(flet.((test.(arglist.&rest |
| d5ec0 | 20 73 74 72 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 2a 70 61 | .strings)............(let*.((*pa |
| d5ee0 | 63 6b 61 67 65 2a 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 29 0a 20 20 | ckage*.(find-package.:swank))... |
| d5f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 63 74 75 61 6c 20 28 64 65 63 6f 64 65 64 | ................(actual.(decoded |
| d5f20 | 2d 61 72 67 6c 69 73 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -arglist-to-string.............. |
| d5f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6f 64 65 2d 61 72 67 6c 69 73 74 20 61 72 | ..............(decode-arglist.ar |
| d5f60 | 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | glist).......................... |
| d5f80 | 20 20 3a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 20 31 30 30 30 29 29 29 0a 20 20 | ..:print-right-margin.1000)))... |
| d5fa0 | 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6c 6f 6f 70 20 66 6f 72 20 73 74 72 | ...........(unless.(loop.for.str |
| d5fc0 | 69 6e 67 20 69 6e 20 73 74 72 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing.in.strings.................. |
| d5fe0 | 20 20 20 20 20 20 20 20 20 20 74 68 65 72 65 69 73 20 28 73 74 72 69 6e 67 3d 20 61 63 74 75 61 | ..........thereis.(string=.actua |
| d6000 | 6c 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 20 | l.string))................(warn. |
| d6020 | 22 54 65 73 74 20 66 61 69 6c 65 64 3a 20 7e 53 20 3d 3e 20 7e 53 7e 25 20 20 45 78 70 65 63 74 | "Test.failed:.~S.=>.~S~%..Expect |
| d6040 | 65 64 3a 20 7e 41 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 | ed:.~A"......................arg |
| d6060 | 6c 69 73 74 20 61 63 74 75 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | list.actual..................... |
| d6080 | 20 28 69 66 20 28 63 64 72 20 73 74 72 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(if.(cdr.strings).............. |
| d60a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4f 6e 65 20 6f 66 3a | ............(format.nil."One.of: |
| d60c0 | 20 7e 7b 7e 53 7e 5e 2c 20 7e 7d 22 20 73 74 72 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 | .~{~S~^,.~}".strings)........... |
| d60e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 22 20 | ...............(format.nil."~S". |
| d6100 | 28 66 69 72 73 74 20 73 74 72 69 6e 67 73 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 74 65 73 74 | (first.strings)))))))).....(test |
| d6120 | 20 27 28 66 75 6e 63 74 69 6f 6e 20 63 6f 6e 73 29 20 22 28 66 75 6e 63 74 69 6f 6e 20 63 6f 6e | .'(function.cons)."(function.con |
| d6140 | 73 29 22 29 0a 20 20 20 20 28 74 65 73 74 20 27 28 71 75 6f 74 65 20 63 6f 6e 73 29 20 22 28 71 | s)").....(test.'(quote.cons)."(q |
| d6160 | 75 6f 74 65 20 63 6f 6e 73 29 22 29 0a 20 20 20 20 28 74 65 73 74 20 27 28 26 6b 65 79 20 28 66 | uote.cons)").....(test.'(&key.(f |
| d6180 | 75 6e 63 74 69 6f 6e 20 23 27 2b 29 29 0a 20 20 20 20 20 20 20 20 20 20 22 28 26 6b 65 79 20 28 | unction.#'+))..........."(&key.( |
| d61a0 | 66 75 6e 63 74 69 6f 6e 20 23 27 2b 29 29 22 20 22 28 26 6b 65 79 20 28 66 75 6e 63 74 69 6f 6e | function.#'+))"."(&key.(function |
| d61c0 | 20 28 66 75 6e 63 74 69 6f 6e 20 2b 29 29 29 22 29 0a 20 20 20 20 28 74 65 73 74 20 27 28 26 77 | .(function.+)))").....(test.'(&w |
| d61e0 | 68 6f 6c 65 20 78 20 79 20 7a 29 20 22 28 79 20 7a 29 22 29 0a 20 20 20 20 28 74 65 73 74 20 27 | hole.x.y.z)."(y.z)").....(test.' |
| d6200 | 28 78 20 26 61 75 78 20 79 20 7a 29 20 22 28 78 29 22 29 0a 20 20 20 20 28 74 65 73 74 20 27 28 | (x.&aux.y.z)."(x)").....(test.'( |
| d6220 | 78 20 26 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 65 6e 76 20 79 29 20 22 28 78 20 79 29 22 29 0a 20 | x.&environment.env.y)."(x.y)").. |
| d6240 | 20 20 20 28 74 65 73 74 20 27 28 26 6b 65 79 20 28 28 66 75 6e 63 74 69 6f 6e 20 66 29 29 29 20 | ...(test.'(&key.((function.f))). |
| d6260 | 22 28 26 6b 65 79 20 28 28 66 75 6e 63 74 69 6f 6e 20 2e 2e 29 29 29 22 29 0a 20 20 20 20 28 74 | "(&key.((function...)))").....(t |
| d6280 | 65 73 74 0a 20 20 20 20 20 27 28 65 76 61 6c 2d 77 68 65 6e 20 28 26 61 6e 79 20 3a 63 6f 6d 70 | est......'(eval-when.(&any.:comp |
| d62a0 | 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 | ile-toplevel.:load-toplevel.:exe |
| d62c0 | 63 75 74 65 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 20 20 20 22 28 65 76 61 6c 2d 77 68 | cute).&body.body)......"(eval-wh |
| d62e0 | 65 6e 20 28 26 61 6e 79 20 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 | en.(&any.:compile-toplevel.:load |
| d6300 | 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 20 26 62 6f 64 79 20 62 6f 64 79 29 22 | -toplevel.:execute).&body.body)" |
| d6320 | 29 0a 20 20 20 20 28 74 65 73 74 20 27 28 64 65 63 6c 61 72 65 20 28 6f 70 74 69 6d 69 7a 65 20 | ).....(test.'(declare.(optimize. |
| d6340 | 26 61 6e 79 20 28 73 70 65 65 64 20 31 29 20 28 73 61 66 65 74 79 20 31 29 29 29 0a 09 20 20 22 | &any.(speed.1).(safety.1)))...." |
| d6360 | 28 64 65 63 6c 61 72 65 20 28 6f 70 74 69 6d 69 7a 65 20 26 61 6e 79 20 28 73 70 65 65 64 20 31 | (declare.(optimize.&any.(speed.1 |
| d6380 | 29 20 28 73 61 66 65 74 79 20 31 29 29 29 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 73 74 2d | ).(safety.1)))")))..(defun.test- |
| d63a0 | 61 72 67 6c 69 73 74 2d 72 65 66 20 28 29 0a 20 20 28 6d 61 63 72 6f 6c 65 74 20 28 28 73 6f 66 | arglist-ref.()...(macrolet.((sof |
| d63c0 | 74 2d 61 73 73 65 72 74 20 28 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 | t-assert.(form)................` |
| d63e0 | 28 75 6e 6c 65 73 73 20 2c 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (unless.,form................... |
| d6400 | 28 77 61 72 6e 20 22 41 73 73 65 72 74 69 6f 6e 20 66 61 69 6c 65 64 3a 20 7e 53 7e 25 22 20 27 | (warn."Assertion.failed:.~S~%".' |
| d6420 | 2c 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 61 6d 70 6c 65 20 28 64 65 63 | ,form)))).....(let.((sample.(dec |
| d6440 | 6f 64 65 2d 61 72 67 6c 69 73 74 20 27 28 78 20 26 6b 65 79 20 28 28 3a 6b 20 28 79 20 7a 29 29 | ode-arglist.'(x.&key.((:k.(y.z)) |
| d6460 | 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 6f 66 74 2d 61 73 73 65 72 74 20 28 65 71 20 28 61 72 | ))))).......(soft-assert.(eq.(ar |
| d6480 | 67 6c 69 73 74 2d 72 65 66 20 73 61 6d 70 6c 65 20 30 29 20 20 20 20 27 78 29 29 0a 20 20 20 20 | glist-ref.sample.0)....'x))..... |
| d64a0 | 20 20 28 73 6f 66 74 2d 61 73 73 65 72 74 20 28 65 71 20 28 61 72 67 6c 69 73 74 2d 72 65 66 20 | ..(soft-assert.(eq.(arglist-ref. |
| d64c0 | 73 61 6d 70 6c 65 20 3a 6b 20 30 29 20 27 79 29 29 0a 20 20 20 20 20 20 28 73 6f 66 74 2d 61 73 | sample.:k.0).'y)).......(soft-as |
| d64e0 | 73 65 72 74 20 28 65 71 20 28 61 72 67 6c 69 73 74 2d 72 65 66 20 73 61 6d 70 6c 65 20 3a 6b 20 | sert.(eq.(arglist-ref.sample.:k. |
| d6500 | 31 29 20 27 7a 29 29 0a 0a 20 20 20 20 20 20 28 73 6f 66 74 2d 61 73 73 65 72 74 20 28 65 71 20 | 1).'z))........(soft-assert.(eq. |
| d6520 | 28 70 72 6f 76 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 73 2d 72 65 66 20 27 28 61 20 3a 6b 20 28 | (provided-arguments-ref.'(a.:k.( |
| d6540 | 62 20 63 29 29 20 73 61 6d 70 6c 65 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | b.c)).sample.0)................. |
| d6560 | 20 20 20 20 20 20 20 27 61 29 29 0a 20 20 20 20 20 20 28 73 6f 66 74 2d 61 73 73 65 72 74 20 28 | .......'a)).......(soft-assert.( |
| d6580 | 65 71 20 28 70 72 6f 76 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 73 2d 72 65 66 20 27 28 61 20 3a | eq.(provided-arguments-ref.'(a.: |
| d65a0 | 6b 20 28 62 20 63 29 29 20 73 61 6d 70 6c 65 20 3a 6b 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 | k.(b.c)).sample.:k.0)........... |
| d65c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 27 62 29 29 0a 20 20 20 20 20 20 28 73 6f 66 74 2d 61 73 | .............'b)).......(soft-as |
| d65e0 | 73 65 72 74 20 28 65 71 20 28 70 72 6f 76 69 64 65 64 2d 61 72 67 75 6d 65 6e 74 73 2d 72 65 66 | sert.(eq.(provided-arguments-ref |
| d6600 | 20 27 28 61 20 3a 6b 20 28 62 20 63 29 29 20 73 61 6d 70 6c 65 20 3a 6b 20 31 29 0a 20 20 20 20 | .'(a.:k.(b.c)).sample.:k.1)..... |
| d6620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 29 29 29 29 29 0a 0a 28 74 65 73 | ...................'c)))))..(tes |
| d6640 | 74 2d 70 72 69 6e 74 2d 61 72 67 6c 69 73 74 29 0a 28 74 65 73 74 2d 61 72 67 6c 69 73 74 2d 72 | t-print-arglist).(test-arglist-r |
| d6660 | 65 66 29 0a 0a 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 61 72 67 6c 69 73 74 73 29 0a 00 | ef)..(provide.:swank-arglists).. |
| d6680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d66a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d66c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d66e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d67a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d67c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d67e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 | slime-2.31/contrib/slime-scratch |
| d6820 | 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .el............................. |
| d6840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| d6880 | 30 30 30 32 34 32 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 37 33 31 00 20 30 00 00 00 | 0002424.00000000000.015731..0... |
| d68a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d68c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d68e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| d6920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| d6940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d69a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d69c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d69e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6a00 | 3b 3b 3b 20 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 2e 65 6c 0a 0a 28 72 65 71 75 69 72 65 20 27 | ;;;.slime-scratch.el..(require.' |
| d6a20 | 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 69 6e | slime).(require.'cl-lib)..(defin |
| d6a40 | 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 0a 20 20 | e-slime-contrib.slime-scratch... |
| d6a60 | 22 49 6d 69 74 61 74 65 20 45 6d 61 63 73 27 20 2a 73 63 72 61 74 63 68 2a 20 62 75 66 66 65 72 | "Imitate.Emacs'.*scratch*.buffer |
| d6a80 | 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 48 65 6c 6d 75 74 20 45 6c 6c 65 72 20 20 3c 68 65 | "...(:authors."Helmut.Eller..<he |
| d6aa0 | 6c 6c 65 72 40 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 3e 22 29 0a 20 20 28 3a 6c 69 63 65 | ller@common-lisp.net>")...(:lice |
| d6ac0 | 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 64 65 66 2d 73 | nse."GPL")...(:on-load....(def-s |
| d6ae0 | 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 20 3f 73 20 22 2a 73 6c 69 6d 65 2d | lime-selector-method.?s."*slime- |
| d6b00 | 73 63 72 61 74 63 68 2a 20 62 75 66 66 65 72 2e 22 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 63 | scratch*.buffer."......(slime-sc |
| d6b20 | 72 61 74 63 68 2d 62 75 66 66 65 72 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 43 6f 64 65 0a 0a 28 64 | ratch-buffer))))....;;;.Code..(d |
| d6b40 | 65 66 76 61 72 20 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 | efvar.slime-scratch-mode-map...( |
| d6b60 | 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 | let.((map.(make-sparse-keymap))) |
| d6b80 | 0a 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 6d 61 70 20 6c 69 73 70 | .....(set-keymap-parent.map.lisp |
| d6ba0 | 2d 6d 6f 64 65 2d 6d 61 70 29 0a 20 20 20 20 6d 61 70 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | -mode-map).....map))..(defun.sli |
| d6bc0 | 6d 65 2d 73 63 72 61 74 63 68 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 | me-scratch.()...(interactive)... |
| d6be0 | 28 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f 2d 73 63 72 61 74 63 68 2d 62 75 66 66 65 72 29 | (slime-switch-to-scratch-buffer) |
| d6c00 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f 2d 73 63 72 61 74 63 | )..(defun.slime-switch-to-scratc |
| d6c20 | 68 2d 62 75 66 66 65 72 20 28 29 0a 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 | h-buffer.()...(set-buffer.(slime |
| d6c40 | 2d 73 63 72 61 74 63 68 2d 62 75 66 66 65 72 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 | -scratch-buffer))...(unless.(eq. |
| d6c60 | 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 29 | (current-buffer).(window-buffer) |
| d6c80 | 29 0a 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 | ).....(pop-to-buffer.(current-bu |
| d6ca0 | 66 66 65 72 29 20 74 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 73 63 72 61 74 63 | ffer).t)))..(defvar.slime-scratc |
| d6cc0 | 68 2d 66 69 6c 65 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 63 72 61 74 63 | h-file.nil)..(defun.slime-scratc |
| d6ce0 | 68 2d 62 75 66 66 65 72 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 63 72 61 74 63 | h-buffer.()..."Return.the.scratc |
| d6d00 | 68 20 62 75 66 66 65 72 2c 20 63 72 65 61 74 65 20 69 74 20 69 66 20 6e 65 63 65 73 73 61 72 79 | h.buffer,.create.it.if.necessary |
| d6d20 | 2e 22 0a 20 20 28 6f 72 20 28 67 65 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 62 75 66 66 | ."...(or.(get-buffer.(slime-buff |
| d6d40 | 65 72 2d 6e 61 6d 65 20 3a 73 63 72 61 74 63 68 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 | er-name.:scratch)).......(with-c |
| d6d60 | 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 69 66 20 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 2d | urrent-buffer.(if.slime-scratch- |
| d6d80 | 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | file............................ |
| d6da0 | 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 2d 66 69 6c | ....(find-file.slime-scratch-fil |
| d6dc0 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e).............................. |
| d6de0 | 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 | (get-buffer-create.(slime-buffer |
| d6e00 | 2d 6e 61 6d 65 20 3a 73 63 72 61 74 63 68 29 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 6e 61 6d | -name.:scratch))).........(renam |
| d6e20 | 65 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 73 63 72 | e-buffer.(slime-buffer-name.:scr |
| d6e40 | 61 74 63 68 29 29 0a 09 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 09 28 75 73 65 2d 6c 6f 63 61 6c 2d | atch))..(lisp-mode)..(use-local- |
| d6e60 | 6d 61 70 20 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 2d 6d 6f 64 65 2d 6d 61 70 29 0a 09 28 73 6c | map.slime-scratch-mode-map)..(sl |
| d6e80 | 69 6d 65 2d 6d 6f 64 65 20 74 29 0a 09 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 | ime-mode.t)..(current-buffer)))) |
| d6ea0 | 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 69 6d 65 2d 73 63 72 61 74 | ..(slime-define-keys.slime-scrat |
| d6ec0 | 63 68 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 22 5c 43 2d 6a 22 20 27 73 6c 69 6d 65 2d 65 76 61 | ch-mode-map...("\C-j".'slime-eva |
| d6ee0 | 6c 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 29 29 0a 0a 28 70 72 6f 76 | l-print-last-expression))..(prov |
| d6f00 | 69 64 65 20 27 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 | ide.'slime-scratch)............. |
| d6f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d6fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d7000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 66 6f 6e 74 69 66 79 | slime-2.31/contrib/slime-fontify |
| d7020 | 69 6e 67 2d 66 75 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ing-fu.el....................... |
| d7040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d7060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| d7080 | 30 30 32 33 30 36 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 30 36 35 00 20 30 00 00 00 | 0023060.00000000000.017065..0... |
| d70a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d70c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d70e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d7100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| d7120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| d7140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d7160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d7180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d71a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d71c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d71e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d7200 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 | (require.'slime).(require.'slime |
| d7220 | 2d 70 61 72 73 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 29 | -parse).(require.'slime-autodoc) |
| d7240 | 0a 28 72 65 71 75 69 72 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 29 0a 28 72 65 71 75 69 72 65 20 27 | .(require.'font-lock).(require.' |
| d7260 | 63 6c 2d 6c 69 62 29 0a 0a 3b 3b 3b 20 46 6f 6e 74 69 66 79 20 57 49 54 48 2d 46 4f 4f 2c 20 44 | cl-lib)..;;;.Fontify.WITH-FOO,.D |
| d7280 | 4f 2d 46 4f 4f 2c 20 61 6e 64 20 44 45 46 49 4e 45 2d 46 4f 4f 20 6c 69 6b 65 20 73 74 61 6e 64 | O-FOO,.and.DEFINE-FOO.like.stand |
| d72a0 | 61 72 64 20 6d 61 63 72 6f 73 2e 0a 3b 3b 3b 20 46 6f 6e 74 69 66 79 20 43 48 45 43 4b 2d 46 4f | ard.macros..;;;.Fontify.CHECK-FO |
| d72c0 | 4f 20 6c 69 6b 65 20 43 48 45 43 4b 2d 54 59 50 45 2e 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 | O.like.CHECK-TYPE..(defvar.slime |
| d72e0 | 2d 61 64 64 69 74 69 6f 6e 61 6c 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 0a 20 | -additional-font-lock-keywords.. |
| d7300 | 27 28 28 22 28 5c 5c 28 5c 5c 28 5c 5c 73 5f 5c 5c 7c 5c 5c 77 5c 5c 29 2a 3a 5c 5c 28 64 65 66 | '(("(\\(\\(\\s_\\|\\w\\)*:\\(def |
| d7320 | 69 6e 65 2d 5c 5c 7c 64 6f 2d 5c 5c 7c 77 69 74 68 2d 5c 5c 7c 77 69 74 68 6f 75 74 2d 5c 5c 29 | ine-\\|do-\\|with-\\|without-\\) |
| d7340 | 5c 5c 28 5c 5c 73 5f 5c 5c 7c 5c 5c 77 5c 5c 29 2a 5c 5c 29 22 20 31 20 66 6f 6e 74 2d 6c 6f 63 | \\(\\s_\\|\\w\\)*\\)".1.font-loc |
| d7360 | 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 0a 20 20 20 28 22 28 5c 5c 28 5c 5c 28 64 65 66 69 | k-keyword-face)....("(\\(\\(defi |
| d7380 | 6e 65 2d 5c 5c 7c 64 6f 2d 5c 5c 7c 77 69 74 68 2d 5c 5c 29 5c 5c 28 5c 5c 73 5f 5c 5c 7c 5c 5c | ne-\\|do-\\|with-\\)\\(\\s_\\|\\ |
| d73a0 | 77 5c 5c 29 2a 5c 5c 29 22 20 31 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 | w\\)*\\)".1.font-lock-keyword-fa |
| d73c0 | 63 65 29 0a 20 20 20 28 22 28 5c 5c 28 63 68 65 63 6b 2d 5c 5c 28 5c 5c 73 5f 5c 5c 7c 5c 5c 77 | ce)....("(\\(check-\\(\\s_\\|\\w |
| d73e0 | 5c 5c 29 2a 5c 5c 29 22 20 31 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 77 61 72 6e 69 6e 67 2d 66 61 63 | \\)*\\)".1.font-lock-warning-fac |
| d7400 | 65 29 0a 20 20 20 28 22 28 5c 5c 28 61 73 73 65 72 74 2d 5c 5c 28 5c 5c 73 5f 5c 5c 7c 5c 5c 77 | e)....("(\\(assert-\\(\\s_\\|\\w |
| d7420 | 5c 5c 29 2a 5c 5c 29 22 20 31 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 77 61 72 6e 69 6e 67 2d 66 61 63 | \\)*\\)".1.font-lock-warning-fac |
| d7440 | 65 29 29 29 0a 0a 3b 3b 3b 3b 20 53 70 65 63 69 61 6c 6c 79 20 66 6f 6e 74 69 66 79 20 66 6f 72 | e)))..;;;;.Specially.fontify.for |
| d7460 | 6d 73 20 73 75 70 70 72 65 73 73 65 64 20 62 79 20 61 20 72 65 61 64 65 72 20 63 6f 6e 64 69 74 | ms.suppressed.by.a.reader.condit |
| d7480 | 69 6f 6e 61 6c 2e 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 | ional..(defcustom.slime-highligh |
| d74a0 | 74 2d 73 75 70 70 72 65 73 73 65 64 2d 66 6f 72 6d 73 20 74 0a 20 20 22 44 69 73 70 6c 61 79 20 | t-suppressed-forms.t..."Display. |
| d74c0 | 66 6f 72 6d 73 20 64 69 73 61 62 6c 65 64 20 62 79 20 72 65 61 64 65 72 20 63 6f 6e 64 69 74 69 | forms.disabled.by.reader.conditi |
| d74e0 | 6f 6e 61 6c 73 20 61 73 20 63 6f 6d 6d 65 6e 74 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 | onals.as.comments."...:type.'(ch |
| d7500 | 6f 69 63 65 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 45 6e 61 62 6c 65 22 20 74 29 20 28 63 6f | oice.(const.:tag."Enable".t).(co |
| d7520 | 6e 73 74 20 3a 74 61 67 20 22 44 69 73 61 62 6c 65 22 20 6e 69 6c 29 29 0a 20 20 3a 67 72 6f 75 | nst.:tag."Disable".nil))...:grou |
| d7540 | 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f | p.'slime-mode)..(define-slime-co |
| d7560 | 6e 74 72 69 62 20 73 6c 69 6d 65 2d 66 6f 6e 74 69 66 79 69 6e 67 2d 66 75 0a 20 20 22 41 64 64 | ntrib.slime-fontifying-fu..."Add |
| d7580 | 69 74 69 6f 6e 61 6c 20 66 6f 6e 74 69 66 69 63 61 74 69 6f 6e 20 74 77 65 61 6b 73 3a 0a 46 6f | itional.fontification.tweaks:.Fo |
| d75a0 | 6e 74 69 66 79 20 57 49 54 48 2d 46 4f 4f 2c 20 44 4f 2d 46 4f 4f 2c 20 44 45 46 49 4e 45 2d 46 | ntify.WITH-FOO,.DO-FOO,.DEFINE-F |
| d75c0 | 4f 4f 20 6c 69 6b 65 20 73 74 61 6e 64 61 72 64 20 6d 61 63 72 6f 73 2e 0a 46 6f 6e 74 69 66 79 | OO.like.standard.macros..Fontify |
| d75e0 | 20 43 48 45 43 4b 2d 46 4f 4f 20 6c 69 6b 65 20 43 48 45 43 4b 2d 54 59 50 45 2e 22 0a 20 20 28 | .CHECK-FOO.like.CHECK-TYPE."...( |
| d7600 | 3a 61 75 74 68 6f 72 73 20 22 54 6f 62 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 3c | :authors."Tobias.C..Rittweiler.< |
| d7620 | 74 63 72 40 66 72 65 65 62 69 74 73 2e 64 65 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 | tcr@freebits.de>")...(:license." |
| d7640 | 47 50 4c 22 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d | GPL")...(:on-load....(font-lock- |
| d7660 | 61 64 64 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 27 6c 69 73 70 2d 6d 6f 64 65 20 73 6c 69 6d | add-keywords.....'lisp-mode.slim |
| d7680 | 65 2d 61 64 64 69 74 69 6f 6e 61 6c 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 29 | e-additional-font-lock-keywords) |
| d76a0 | 0a 20 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 73 75 70 70 72 65 | ....(when.slime-highlight-suppre |
| d76c0 | 73 73 65 64 2d 66 6f 72 6d 73 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 61 63 74 69 76 61 74 65 2d | ssed-forms......(slime-activate- |
| d76e0 | 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 61 67 69 63 29 29 29 0a 20 20 28 3a 6f 6e 2d 75 6e 6c 6f 61 64 | font-lock-magic)))...(:on-unload |
| d7700 | 0a 20 20 20 3b 3b 20 46 49 58 4d 45 3a 20 72 65 6d 6f 76 65 20 60 73 6c 69 6d 65 2d 73 65 61 72 | ....;;.FIXME:.remove.`slime-sear |
| d7720 | 63 68 2d 73 75 70 70 72 65 73 73 65 64 2d 66 6f 72 6d 73 27 2c 20 61 6e 64 20 72 65 6d 6f 76 65 | ch-suppressed-forms',.and.remove |
| d7740 | 20 74 68 65 0a 20 20 20 3b 3b 20 65 78 74 65 6e 64 2d 72 65 67 69 6f 6e 20 68 6f 6f 6b 2e 0a 20 | .the....;;.extend-region.hook... |
| d7760 | 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 72 65 6d 6f 76 65 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 | ..(font-lock-remove-keywords.... |
| d7780 | 20 27 6c 69 73 70 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 61 64 64 69 74 69 6f 6e 61 6c 2d 66 6f 6e | .'lisp-mode.slime-additional-fon |
| d77a0 | 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 29 29 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 | t-lock-keywords)))..(defface.sli |
| d77c0 | 6d 65 2d 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 2d 66 61 63 65 0a 20 20 20 20 27 | me-reader-conditional-face.....' |
| d77e0 | 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d | ((t.(:inherit.font-lock-comment- |
| d7800 | 66 61 63 65 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 | face)))..."Face.for.compiler.not |
| d7820 | 65 73 20 77 68 69 6c 65 20 73 65 6c 65 63 74 65 64 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c | es.while.selected."...:group.'sl |
| d7840 | 69 6d 65 2d 6d 6f 64 65 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 73 | ime-mode-faces)..(defvar.slime-s |
| d7860 | 65 61 72 63 68 2d 73 75 70 70 72 65 73 73 65 64 2d 66 6f 72 6d 73 2d 6d 61 74 63 68 2d 64 61 74 | earch-suppressed-forms-match-dat |
| d7880 | 61 20 28 6c 69 73 74 20 6e 69 6c 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | a.(list.nil.nil))..(defun.slime- |
| d78a0 | 73 65 61 72 63 68 2d 73 75 70 70 72 65 73 73 65 64 2d 66 6f 72 6d 73 2d 69 6e 74 65 72 6e 61 6c | search-suppressed-forms-internal |
| d78c0 | 20 28 6c 69 6d 69 74 29 0a 20 20 28 77 68 65 6e 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 | .(limit)...(when.(search-forward |
| d78e0 | 2d 72 65 67 65 78 70 20 73 6c 69 6d 65 2d 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c | -regexp.slime-reader-conditional |
| d7900 | 73 2d 72 65 67 65 78 70 20 6c 69 6d 69 74 20 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 | s-regexp.limit.t).....(let.((sta |
| d7920 | 72 74 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 20 20 20 3b 20 73 61 76 65 | rt.(match-beginning.0))...;.save |
| d7940 | 20 6d 61 74 63 68 20 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 28 73 74 61 74 65 20 28 73 6c | .match.data...........(state.(sl |
| d7960 | 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 72 73 65 72 2d 73 74 61 74 65 29 29 29 0a 20 20 20 20 | ime-current-parser-state)))..... |
| d7980 | 20 20 28 69 66 20 28 6f 72 20 28 6e 74 68 20 33 20 73 74 61 74 65 29 20 28 6e 74 68 20 34 20 73 | ..(if.(or.(nth.3.state).(nth.4.s |
| d79a0 | 74 61 74 65 29 29 20 3b 20 69 6e 73 69 64 65 20 73 74 72 69 6e 67 20 6f 72 20 63 6f 6d 6d 65 6e | tate)).;.inside.string.or.commen |
| d79c0 | 74 3f 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 73 75 70 70 72 | t?...........(slime-search-suppr |
| d79e0 | 65 73 73 65 64 2d 66 6f 72 6d 73 2d 69 6e 74 65 72 6e 61 6c 20 6c 69 6d 69 74 29 0a 20 20 20 20 | essed-forms-internal.limit)..... |
| d7a00 | 20 20 20 20 28 6c 65 74 2a 20 28 28 63 68 61 72 20 28 63 68 61 72 2d 62 65 66 6f 72 65 29 29 0a | ....(let*.((char.(char-before)). |
| d7a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 72 20 28 72 65 61 64 20 28 63 75 72 72 | ...............(expr.(read.(curr |
| d7a40 | 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 | ent-buffer)))................(va |
| d7a60 | 6c 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f | l..(slime-eval-feature-expressio |
| d7a80 | 6e 20 65 78 70 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3c 3d 20 28 70 | n.expr)))...........(when.(<=.(p |
| d7aa0 | 6f 69 6e 74 29 20 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 | oint).limit).............(if.(or |
| d7ac0 | 20 28 61 6e 64 20 28 65 71 20 63 68 61 72 20 3f 2b 29 20 28 6e 6f 74 20 76 61 6c 29 29 0a 20 20 | .(and.(eq.char.?+).(not.val))... |
| d7ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 63 68 61 72 20 | ..................(and.(eq.char. |
| d7b00 | 3f 2d 29 20 76 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 | ?-).val)).................;;.If. |
| d7b20 | 60 73 6c 69 6d 65 2d 65 78 74 65 6e 64 2d 72 65 67 69 6f 6e 2d 66 6f 72 2d 66 6f 6e 74 2d 6c 6f | `slime-extend-region-for-font-lo |
| d7b40 | 63 6b 27 20 64 69 64 20 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 66 | ck'.did.not.................;;.f |
| d7b60 | 75 6c 6c 79 20 65 78 74 65 6e 64 20 74 68 65 20 72 65 67 69 6f 6e 2c 20 74 68 65 20 61 73 73 65 | ully.extend.the.region,.the.asse |
| d7b80 | 72 74 69 6f 6e 20 62 65 6c 6f 77 20 6d 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rtion.below.may................. |
| d7ba0 | 3b 3b 20 66 61 69 6c 2e 20 54 68 69 73 20 73 68 6f 75 6c 64 20 6f 6e 6c 79 20 68 61 70 70 65 6e | ;;.fail..This.should.only.happen |
| d7bc0 | 20 6f 6e 20 58 45 6d 61 63 73 20 61 6e 64 20 6f 6c 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 | .on.XEmacs.and.older............ |
| d7be0 | 20 20 20 20 20 3b 3b 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 20 | .....;;.versions.of.GNU.Emacs... |
| d7c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 | ...............(ignore-errors... |
| d7c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 20 28 | ................(forward-sexp).( |
| d7c40 | 62 61 63 6b 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | backward-sexp).................. |
| d7c60 | 20 3b 3b 20 54 72 79 20 74 6f 20 73 75 70 70 72 65 73 73 20 61 73 20 66 61 72 20 61 73 20 70 6f | .;;.Try.to.suppress.as.far.as.po |
| d7c80 | 73 73 69 62 6c 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | ssible....................(slime |
| d7ca0 | 2d 66 6f 72 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -forward-sexp).................. |
| d7cc0 | 20 28 63 6c 2d 61 73 73 65 72 74 20 28 3c 3d 20 28 70 6f 69 6e 74 29 20 6c 69 6d 69 74 29 29 0a | .(cl-assert.(<=.(point).limit)). |
| d7ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 64 20 28 6d 61 74 | ..................(let.((md.(mat |
| d7d00 | 63 68 2d 64 61 74 61 20 6e 69 6c 20 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 73 75 70 70 72 65 73 | ch-data.nil.slime-search-suppres |
| d7d20 | 73 65 64 2d 66 6f 72 6d 73 2d 6d 61 74 63 68 2d 64 61 74 61 29 29 29 0a 20 20 20 20 20 20 20 20 | sed-forms-match-data)))......... |
| d7d40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 63 6c 2d 66 69 72 73 74 20 6d 64 29 20 | ............(setf.(cl-first.md). |
| d7d60 | 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 | start).....................(setf |
| d7d80 | 20 28 63 6c 2d 73 65 63 6f 6e 64 20 6d 64 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 | .(cl-second.md).(point))........ |
| d7da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 6d 64 29 | .............(set-match-data.md) |
| d7dc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 0a 20 20 20 20 20 20 20 | .....................t))........ |
| d7de0 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 73 75 70 70 72 65 73 73 65 64 2d | .......(slime-search-suppressed- |
| d7e00 | 66 6f 72 6d 73 2d 69 6e 74 65 72 6e 61 6c 20 6c 69 6d 69 74 29 29 29 29 29 29 29 29 0a 0a 28 64 | forms-internal.limit))))))))..(d |
| d7e20 | 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 73 75 70 70 72 65 73 73 65 64 2d 66 6f 72 | efun.slime-search-suppressed-for |
| d7e40 | 6d 73 20 28 6c 69 6d 69 74 29 0a 20 20 22 46 69 6e 64 20 72 65 61 64 65 72 20 63 6f 6e 64 69 74 | ms.(limit)..."Find.reader.condit |
| d7e60 | 69 6f 6e 61 6c 69 7a 65 64 20 66 6f 72 6d 73 20 77 68 65 72 65 20 74 68 65 20 74 65 73 74 20 69 | ionalized.forms.where.the.test.i |
| d7e80 | 73 20 66 61 6c 73 65 2e 22 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 73 6c 69 6d 65 2d 68 69 67 | s.false."...(when.(and.slime-hig |
| d7ea0 | 68 6c 69 67 68 74 2d 73 75 70 70 72 65 73 73 65 64 2d 66 6f 72 6d 73 0a 20 20 20 20 20 20 20 20 | hlight-suppressed-forms......... |
| d7ec0 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 29 0a 20 20 20 20 28 6c | .....(slime-connected-p)).....(l |
| d7ee0 | 65 74 20 28 28 72 65 73 75 6c 74 20 27 72 65 74 72 79 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c | et.((result.'retry)).......(whil |
| d7f00 | 65 20 28 61 6e 64 20 28 65 71 20 72 65 73 75 6c 74 20 27 72 65 74 72 79 29 20 28 3c 3d 20 28 70 | e.(and.(eq.result.'retry).(<=.(p |
| d7f20 | 6f 69 6e 74 29 20 6c 69 6d 69 74 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e | oint).limit)).........(condition |
| d7f40 | 2d 63 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | -case.condition.............(set |
| d7f60 | 71 20 72 65 73 75 6c 74 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 73 75 70 70 72 65 73 73 65 | q.result.(slime-search-suppresse |
| d7f80 | 64 2d 66 6f 72 6d 73 2d 69 6e 74 65 72 6e 61 6c 20 6c 69 6d 69 74 29 29 0a 20 20 20 20 20 20 20 | d-forms-internal.limit))........ |
| d7fa0 | 20 20 20 28 65 6e 64 2d 6f 66 2d 66 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(end-of-file................. |
| d7fc0 | 20 20 20 20 20 20 20 3b 20 65 2e 67 2e 20 23 2b 28 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | .......;.e.g..#+(............(se |
| d7fe0 | 74 71 20 72 65 73 75 6c 74 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 | tq.result.nil))...........;;.We. |
| d8000 | 66 6f 75 6e 64 20 61 20 72 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 77 65 20 63 6f | found.a.reader.conditional.we.co |
| d8020 | 75 6c 64 6e 27 74 20 70 72 6f 63 65 73 73 20 66 6f 72 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | uldn't.process.for...........;;. |
| d8040 | 73 6f 6d 65 20 72 65 61 73 6f 6e 3b 20 68 6f 77 65 76 65 72 2c 20 74 68 65 72 65 20 6d 61 79 20 | some.reason;.however,.there.may. |
| d8060 | 73 74 69 6c 6c 20 62 65 20 6f 74 68 65 72 20 72 65 61 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 | still.be.other.reader........... |
| d8080 | 3b 3b 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 20 62 65 66 6f 72 65 20 60 6c 69 6d 69 74 27 2e 0a | ;;.conditionals.before.`limit'.. |
| d80a0 | 20 20 20 20 20 20 20 20 20 20 28 69 6e 76 61 6c 69 64 2d 72 65 61 64 2d 73 79 6e 74 61 78 20 20 | ..........(invalid-read-syntax.. |
| d80c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 2e 67 2e 20 23 2b 23 2e 66 6f 6f 0a 20 20 20 | ..............;.e.g..#+#.foo.... |
| d80e0 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 75 6c 74 20 27 72 65 74 72 79 29 29 0a 20 20 | ........(setq.result.'retry))... |
| d8100 | 20 20 20 20 20 20 20 20 28 73 63 61 6e 2d 65 72 72 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(scan-error............. |
| d8120 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 2e 67 2e 20 23 2b 6e 69 6c 20 28 66 6f 6f 20 2e 2e | ............;.e.g..#+nil.(foo... |
| d8140 | 2e 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 75 6c 74 20 27 72 65 74 72 79 | .............(setq.result.'retry |
| d8160 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 63 6f 72 72 65 63 74 2d 66 65 | ))...........(slime-incorrect-fe |
| d8180 | 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 20 3b 20 65 2e 67 2e 20 23 2b 28 6e 6f 74 20 66 | ature-expression.;.e.g..#+(not.f |
| d81a0 | 6f 6f 20 62 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 75 6c 74 20 | oo.bar)............(setq.result. |
| d81c0 | 27 72 65 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 75 6e 6b 6e 6f 77 | 'retry))...........(slime-unknow |
| d81e0 | 6e 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 20 20 20 3b 20 65 2e 67 2e 20 23 2b | n-feature-expression...;.e.g..#+ |
| d8200 | 28 66 6f 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 75 6c 74 20 27 72 | (foo)............(setq.result.'r |
| d8220 | 65 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 | etry))...........(error......... |
| d8240 | 20 20 20 28 73 65 74 71 20 72 65 73 75 6c 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ...(setq.result.nil)............ |
| d8260 | 28 73 6c 69 6d 65 2d 64 69 73 70 6c 61 79 2d 77 61 72 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 20 | (slime-display-warning.......... |
| d8280 | 20 20 20 28 63 6f 6e 63 61 74 20 22 43 61 75 67 68 74 20 65 72 72 6f 72 20 64 75 72 69 6e 67 20 | ...(concat."Caught.error.during. |
| d82a0 | 66 6f 6e 74 69 66 69 63 61 74 69 6f 6e 20 77 68 69 6c 65 20 73 65 61 72 63 68 69 6e 67 20 66 6f | fontification.while.searching.fo |
| d82c0 | 72 20 66 6f 72 6d 73 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | r.forms\n"....................." |
| d82e0 | 74 68 61 74 20 61 72 65 20 73 75 70 70 72 65 73 73 65 64 20 62 79 20 72 65 61 64 65 72 2d 63 6f | that.are.suppressed.by.reader-co |
| d8300 | 6e 64 69 74 69 6f 6e 61 6c 73 2e 20 54 68 65 20 65 72 72 6f 72 20 77 61 73 3a 20 25 53 2e 22 29 | nditionals..The.error.was:.%S.") |
| d8320 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 | .............condition))))...... |
| d8340 | 20 72 65 73 75 6c 74 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 61 72 63 68 | .result)))...(defun.slime-search |
| d8360 | 2d 64 69 72 65 63 74 6c 79 2d 70 72 65 63 65 64 69 6e 67 2d 72 65 61 64 65 72 2d 63 6f 6e 64 69 | -directly-preceding-reader-condi |
| d8380 | 74 69 6f 6e 61 6c 20 28 29 0a 20 20 22 53 65 61 72 63 68 20 66 6f 72 20 61 20 64 69 72 65 63 74 | tional.()..."Search.for.a.direct |
| d83a0 | 6c 79 20 70 72 65 63 65 64 69 6e 67 20 72 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 2e | ly.preceding.reader.conditional. |
| d83c0 | 20 52 65 74 75 72 6e 20 69 74 73 0a 70 6f 73 69 74 69 6f 6e 2c 20 6f 72 20 6e 69 6c 2e 22 0a 20 | .Return.its.position,.or.nil.".. |
| d83e0 | 20 3b 3b 3b 20 57 65 20 73 65 61 72 63 68 20 66 6f 72 20 61 20 70 72 65 63 65 64 69 6e 67 20 72 | .;;;.We.search.for.a.preceding.r |
| d8400 | 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 2e 20 54 68 65 6e 20 77 65 20 63 68 65 63 6b | eader.conditional..Then.we.check |
| d8420 | 20 74 68 61 74 0a 20 20 3b 3b 3b 20 62 65 74 77 65 65 6e 20 74 68 65 20 72 65 61 64 65 72 20 63 | .that...;;;.between.the.reader.c |
| d8440 | 6f 6e 64 69 74 69 6f 6e 61 6c 20 61 6e 64 20 74 68 65 20 70 6f 69 6e 74 20 77 68 65 72 65 20 77 | onditional.and.the.point.where.w |
| d8460 | 65 20 73 74 61 72 74 65 64 20 69 73 0a 20 20 3b 3b 3b 20 6e 6f 20 6f 74 68 65 72 20 69 6e 74 65 | e.started.is...;;;.no.other.inte |
| d8480 | 72 76 65 6e 69 6e 67 20 73 65 78 70 2c 20 61 6e 64 20 77 65 20 63 68 65 63 6b 20 74 68 61 74 20 | rvening.sexp,.and.we.check.that. |
| d84a0 | 74 68 65 20 72 65 61 64 65 72 0a 20 20 3b 3b 3b 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 69 73 20 | the.reader...;;;.conditional.is. |
| d84c0 | 61 74 20 74 68 65 20 73 61 6d 65 20 6e 65 73 74 69 6e 67 20 6c 65 76 65 6c 2e 0a 20 20 28 63 6f | at.the.same.nesting.level....(co |
| d84e0 | 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6f | ndition-case.nil.......(let*.((o |
| d8500 | 72 69 67 2d 70 74 20 28 70 6f 69 6e 74 29 29 0a 09 20 20 20 20 20 28 72 65 61 64 65 72 2d 63 6f | rig-pt.(point)).......(reader-co |
| d8520 | 6e 64 69 74 69 6f 6e 61 6c 2d 70 74 0a 09 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 62 61 63 6b | nditional-pt........(search-back |
| d8540 | 77 61 72 64 2d 72 65 67 65 78 70 20 73 6c 69 6d 65 2d 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 | ward-regexp.slime-reader-conditi |
| d8560 | 6f 6e 61 6c 73 2d 72 65 67 65 78 70 0a 09 09 09 09 20 20 20 20 20 20 3b 3b 20 57 65 20 72 65 73 | onals-regexp...........;;.We.res |
| d8580 | 74 72 69 63 74 20 74 68 65 20 73 65 61 72 63 68 20 74 6f 20 74 68 65 0a 09 09 09 09 20 20 20 20 | trict.the.search.to.the......... |
| d85a0 | 20 20 3b 3b 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 2f 70 72 65 76 69 6f 75 73 2f | ..;;.beginning.of.the./previous/ |
| d85c0 | 20 64 65 66 75 6e 2e 0a 09 09 09 09 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f | .defun............(save-excursio |
| d85e0 | 6e 0a 09 09 09 09 09 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 29 0a 09 09 09 09 | n......(beginning-of-defun)..... |
| d8600 | 09 28 70 6f 69 6e 74 29 29 0a 09 09 09 09 20 20 20 20 20 20 74 29 29 29 0a 09 28 77 68 65 6e 20 | .(point))...........t)))..(when. |
| d8620 | 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 2d 70 74 0a 20 20 20 20 20 20 20 20 20 20 | reader-conditional-pt........... |
| d8640 | 28 6c 65 74 20 28 28 63 6f 6e 64 69 74 69 6f 6e 2d 65 6e 64 20 28 70 72 6f 67 6e 20 28 67 6f 74 | (let.((condition-end.(progn.(got |
| d8660 | 6f 2d 63 68 61 72 20 28 2b 20 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 2d 70 74 20 | o-char.(+.reader-conditional-pt. |
| d8680 | 32 29 29 0a 09 09 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 | 2))..................(forward-se |
| d86a0 | 78 70 29 20 3b 20 73 6b 69 70 20 66 65 61 74 75 72 65 20 65 78 70 72 2e 0a 09 09 09 20 20 20 20 | xp).;.skip.feature.expr......... |
| d86c0 | 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..........(point))))............ |
| d86e0 | 20 28 75 6e 6c 65 73 73 20 28 3e 3d 20 63 6f 6e 64 69 74 69 6f 6e 2d 65 6e 64 20 6f 72 69 67 2d | .(unless.(>=.condition-end.orig- |
| d8700 | 70 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 72 73 65 72 | pt)...............(let*.((parser |
| d8720 | 2d 73 74 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | -state........................(p |
| d8740 | 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 20 63 6f 6e 64 69 74 69 6f 6e 2d 65 6e 64 20 | arse-partial-sexp.condition-end. |
| d8760 | 6f 72 69 67 2d 70 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | orig-pt))......................( |
| d8780 | 70 61 72 65 6e 2d 64 65 70 74 68 20 20 28 63 61 72 20 20 70 61 72 73 65 72 2d 73 74 61 74 65 29 | paren-depth..(car..parser-state) |
| d87a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 73 74 2d 73 65 78 | )......................(last-sex |
| d87c0 | 70 2d 70 74 20 28 63 6c 2d 63 61 64 64 72 20 20 70 61 72 73 65 72 2d 73 74 61 74 65 29 29 29 0a | p-pt.(cl-caddr..parser-state))). |
| d87e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 70 61 72 65 6e 2d 64 | ................(if.(and.paren-d |
| d8800 | 65 70 74 68 0a 09 09 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 63 6c 2d 70 6c 75 73 70 20 70 | epth............(not.(cl-plusp.p |
| d8820 | 61 72 65 6e 2d 64 65 70 74 68 29 29 20 3b 20 6e 6f 20 27 28 27 20 69 6e 20 62 65 74 77 65 65 6e | aren-depth)).;.no.'('.in.between |
| d8840 | 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 | ?..........................(not. |
| d8860 | 6c 61 73 74 2d 73 65 78 70 2d 70 74 29 29 20 3b 20 6e 6f 20 63 6f 6d 70 6c 65 74 65 20 73 65 78 | last-sexp-pt)).;.no.complete.sex |
| d8880 | 70 20 69 6e 20 62 65 74 77 65 65 6e 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p.in.between?................... |
| d88a0 | 20 20 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 2d 70 74 0a 20 20 20 20 20 20 20 20 | ..reader-conditional-pt......... |
| d88c0 | 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 29 29 0a 20 20 20 20 28 73 63 61 6e 2d | ............nil)))))).....(scan- |
| d88e0 | 65 72 72 6f 72 20 6e 69 6c 29 29 29 09 09 09 3b 20 69 6d 70 72 6f 70 65 72 20 66 65 61 74 75 72 | error.nil)))...;.improper.featur |
| d8900 | 65 20 65 78 70 72 65 73 73 69 6f 6e 0a 0a 0a 3b 3b 3b 20 57 65 27 6c 6c 20 70 75 73 68 20 74 68 | e.expression...;;;.We'll.push.th |
| d8920 | 69 73 20 6f 6e 74 6f 20 60 66 6f 6e 74 2d 6c 6f 63 6b 2d 65 78 74 65 6e 64 2d 72 65 67 69 6f 6e | is.onto.`font-lock-extend-region |
| d8940 | 2d 66 75 6e 63 74 69 6f 6e 73 27 2e 20 49 6e 20 70 61 73 74 2c 0a 3b 3b 3b 20 77 65 20 64 69 64 | -functions'..In.past,.;;;.we.did |
| d8960 | 6e 27 74 20 64 6f 20 73 6f 20 77 68 69 63 68 20 6d 61 64 65 20 6f 75 72 20 72 65 61 64 65 72 2d | n't.do.so.which.made.our.reader- |
| d8980 | 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 66 6f 6e 74 2d 6c 6f 63 6b 20 6d 61 67 69 63 0a 3b 3b 3b 20 | conditional.font-lock.magic.;;;. |
| d89a0 | 70 72 65 74 74 79 20 75 6e 72 65 6c 69 61 62 6c 65 20 28 69 74 20 77 6f 75 6c 64 6e 27 74 20 68 | pretty.unreliable.(it.wouldn't.h |
| d89c0 | 69 67 68 6c 69 67 68 74 20 61 6c 6c 20 73 75 70 70 72 65 73 73 65 64 20 66 6f 72 6d 73 2c 20 61 | ighlight.all.suppressed.forms,.a |
| d89e0 | 6e 64 0a 3b 3b 3b 20 77 6f 72 6b 65 64 20 71 75 69 74 65 20 6e 6f 6e 2d 64 65 74 65 72 6d 69 6e | nd.;;;.worked.quite.non-determin |
| d8a00 | 69 73 74 69 63 20 69 6e 20 67 65 6e 65 72 61 6c 2e 29 0a 3b 3b 3b 0a 3b 3b 3b 20 43 66 2e 20 5f | istic.in.general.).;;;.;;;.Cf.._ |
| d8a20 | 45 6c 69 73 70 20 4d 61 6e 75 61 6c 5f 2c 20 32 33 2e 36 2e 31 30 20 4d 75 6c 74 69 6c 69 6e 65 | Elisp.Manual_,.23.6.10.Multiline |
| d8a40 | 20 46 6f 6e 74 20 4c 6f 63 6b 20 43 6f 6e 73 74 72 75 63 74 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 57 | .Font.Lock.Constructs..;;;.;;;.W |
| d8a60 | 65 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 60 66 6f 6e 74 2d 6c 6f 63 6b 2d 62 65 67 27 | e.make.sure.that.`font-lock-beg' |
| d8a80 | 20 61 6e 64 20 60 66 6f 6e 74 2d 6c 6f 63 6b 2d 65 6e 64 27 20 61 6c 77 61 79 73 20 70 6f 69 6e | .and.`font-lock-end'.always.poin |
| d8aa0 | 74 0a 3b 3b 3b 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 72 20 65 6e 64 20 6f 66 | t.;;;.to.the.beginning.or.end.of |
| d8ac0 | 20 61 20 74 6f 70 6c 65 76 65 6c 20 66 6f 72 6d 2e 20 53 6f 20 77 65 20 6e 65 76 65 72 20 6d 69 | .a.toplevel.form..So.we.never.mi |
| d8ae0 | 73 73 20 61 0a 3b 3b 3b 20 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 2c 20 6f 72 20 | ss.a.;;;.reader-conditional,.or. |
| d8b00 | 70 6f 69 6e 74 20 69 6e 20 6d 69 64 20 6f 66 20 6f 6e 65 2e 0a 28 64 65 66 76 61 72 20 66 6f 6e | point.in.mid.of.one..(defvar.fon |
| d8b20 | 74 2d 6c 6f 63 6b 2d 62 65 67 29 20 3b 20 73 68 6f 6f 73 68 20 63 6f 6d 70 69 6c 65 72 0a 28 64 | t-lock-beg).;.shoosh.compiler.(d |
| d8b40 | 65 66 76 61 72 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 65 6e 64 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | efvar.font-lock-end)..(defun.sli |
| d8b60 | 6d 65 2d 65 78 74 65 6e 64 2d 72 65 67 69 6f 6e 2d 66 6f 72 2d 66 6f 6e 74 2d 6c 6f 63 6b 20 28 | me-extend-region-for-font-lock.( |
| d8b80 | 29 0a 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 73 75 70 70 72 65 | )...(when.slime-highlight-suppre |
| d8ba0 | 73 73 65 64 2d 66 6f 72 6d 73 0a 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 63 | ssed-forms.....(condition-case.c |
| d8bc0 | 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 63 68 61 6e 67 65 64 70 29 0a 20 20 20 20 20 20 20 | .........(let.(changedp)........ |
| d8be0 | 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 63 68 61 6e | ...(cl-multiple-value-setq.(chan |
| d8c00 | 67 65 64 70 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 62 65 67 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 65 6e 64 | gedp.font-lock-beg.font-lock-end |
| d8c20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 75 74 65 2d 72 65 67 | ).............(slime-compute-reg |
| d8c40 | 69 6f 6e 2d 66 6f 72 2d 66 6f 6e 74 2d 6c 6f 63 6b 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 62 65 67 20 | ion-for-font-lock.font-lock-beg. |
| d8c60 | 66 6f 6e 74 2d 6c 6f 63 6b 2d 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 63 68 61 6e 67 65 | font-lock-end))...........change |
| d8c80 | 64 70 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 | dp).......(error........(slime-d |
| d8ca0 | 69 73 70 6c 61 79 2d 77 61 72 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 | isplay-warning.........(concat." |
| d8cc0 | 43 61 75 67 68 74 20 65 72 72 6f 72 20 77 68 65 6e 20 74 72 79 69 6e 67 20 74 6f 20 65 78 74 65 | Caught.error.when.trying.to.exte |
| d8ce0 | 6e 64 20 74 68 65 20 72 65 67 69 6f 6e 20 66 6f 72 20 66 6f 6e 74 69 66 69 63 61 74 69 6f 6e 2e | nd.the.region.for.fontification. |
| d8d00 | 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 54 68 65 20 65 72 72 6f 72 20 77 | \n"................."The.error.w |
| d8d20 | 61 73 3a 20 25 53 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 46 75 72 74 68 | as:.%S\n"................."Furth |
| d8d40 | 65 72 3a 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 62 65 67 3d 25 64 2c 20 66 6f 6e 74 2d 6c 6f 63 6b 2d | er:.font-lock-beg=%d,.font-lock- |
| d8d60 | 65 6e 64 3d 25 64 2e 22 29 0a 20 20 20 20 20 20 20 20 63 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 62 65 | end=%d.").........c.font-lock-be |
| d8d80 | 67 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 65 6e 64 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | g.font-lock-end)))))..(defun.sli |
| d8da0 | 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 74 6c 66 20 28 29 0a 20 20 28 6c 65 74 20 28 28 | me-beginning-of-tlf.()...(let.(( |
| d8dc0 | 70 6f 73 20 28 73 79 6e 74 61 78 2d 70 70 73 73 2d 74 6f 70 6c 65 76 65 6c 2d 70 6f 73 20 28 73 | pos.(syntax-ppss-toplevel-pos.(s |
| d8de0 | 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 72 73 65 72 2d 73 74 61 74 65 29 29 29 29 0a 20 20 | lime-current-parser-state))))... |
| d8e00 | 20 20 28 69 66 20 70 6f 73 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 29 29 29 0a 0a 28 64 | ..(if.pos.(goto-char.pos))))..(d |
| d8e20 | 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 75 74 65 2d 72 65 67 69 6f 6e 2d 66 6f 72 2d 66 6f | efun.slime-compute-region-for-fo |
| d8e40 | 6e 74 2d 6c 6f 63 6b 20 28 6f 72 69 67 2d 62 65 67 20 6f 72 69 67 2d 65 6e 64 29 0a 20 20 28 6c | nt-lock.(orig-beg.orig-end)...(l |
| d8e60 | 65 74 20 28 28 62 65 67 20 6f 72 69 67 2d 62 65 67 29 0a 20 20 20 20 20 20 20 20 28 65 6e 64 20 | et.((beg.orig-beg).........(end. |
| d8e80 | 6f 72 69 67 2d 65 6e 64 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 62 65 67 29 0a 20 | orig-end)).....(goto-char.beg).. |
| d8ea0 | 20 20 20 28 69 6e 6c 69 6e 65 20 28 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 74 | ...(inline.(slime-beginning-of-t |
| d8ec0 | 6c 66 29 29 0a 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 6e 6f 74 20 28 63 6c 2d 70 6c 75 | lf)).....(cl-assert.(not.(cl-plu |
| d8ee0 | 73 70 20 28 6e 74 68 20 30 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 72 73 65 72 2d | sp.(nth.0.(slime-current-parser- |
| d8f00 | 73 74 61 74 65 29 29 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 6c 65 74 20 28 28 | state))))).....(setq.beg.(let.(( |
| d8f20 | 70 74 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | pt.(point))).................(co |
| d8f40 | 6e 64 20 28 28 3e 20 28 2d 20 62 65 67 20 70 74 29 20 32 30 30 30 30 29 20 62 65 67 29 0a 20 20 | nd.((>.(-.beg.pt).20000).beg)... |
| d8f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 73 65 61 72 | ....................((slime-sear |
| d8f80 | 63 68 2d 64 69 72 65 63 74 6c 79 2d 70 72 65 63 65 64 69 6e 67 2d 72 65 61 64 65 72 2d 63 6f 6e | ch-directly-preceding-reader-con |
| d8fa0 | 64 69 74 69 6f 6e 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ditional))...................... |
| d8fc0 | 20 28 74 20 70 74 29 29 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 65 6e 64 29 0a 20 | .(t.pt)))).....(goto-char.end).. |
| d8fe0 | 20 20 20 28 77 68 69 6c 65 20 28 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 2d 72 65 67 65 78 | ...(while.(search-backward-regex |
| d9000 | 70 20 73 6c 69 6d 65 2d 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 2d 72 65 67 65 | p.slime-reader-conditionals-rege |
| d9020 | 78 70 20 62 65 67 20 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 65 6e 64 20 28 6d 61 78 20 65 | xp.beg.t).......(setq.end.(max.e |
| d9040 | 6e 64 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd.(save-excursion.............. |
| d9060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 6c | ..............(ignore-errors.(sl |
| d9080 | 69 6d 65 2d 66 6f 72 77 61 72 64 2d 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 29 29 | ime-forward-reader-conditional)) |
| d90a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 | ............................(poi |
| d90c0 | 6e 74 29 29 29 29 29 0a 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 28 6f 72 20 28 2f 3d 20 62 | nt))))).....(cl-values.(or.(/=.b |
| d90e0 | 65 67 20 6f 72 69 67 2d 62 65 67 29 20 28 2f 3d 20 65 6e 64 20 6f 72 69 67 2d 65 6e 64 29 29 20 | eg.orig-beg).(/=.end.orig-end)). |
| d9100 | 62 65 67 20 65 6e 64 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 63 74 69 76 61 | beg.end)))...(defun.slime-activa |
| d9120 | 74 65 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 61 67 69 63 20 28 29 0a 20 20 28 69 66 20 28 66 65 61 | te-font-lock-magic.()...(if.(fea |
| d9140 | 74 75 72 65 70 20 27 78 65 6d 61 63 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 61 74 74 | turep.'xemacs).......(let.((patt |
| d9160 | 65 72 6e 20 60 28 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 73 75 70 70 72 65 73 73 65 64 2d 66 | ern.`((slime-search-suppressed-f |
| d9180 | 6f 72 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 30 20 | orms.........................(0. |
| d91a0 | 73 6c 69 6d 65 2d 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 2d 66 61 63 65 20 74 29 | slime-reader-conditional-face.t) |
| d91c0 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 73 79 6d 20 27 28 6c 69 73 70 | )))).........(dolist.(sym.'(lisp |
| d91e0 | 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -font-lock-keywords............. |
| d9200 | 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 70 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 | ...........lisp-font-lock-keywor |
| d9220 | 64 73 2d 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 70 | ds-1........................lisp |
| d9240 | 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 2d 32 29 29 0a 20 20 20 20 20 20 20 20 | -font-lock-keywords-2))......... |
| d9260 | 20 20 28 73 65 74 20 73 79 6d 20 28 61 70 70 65 6e 64 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 | ..(set.sym.(append.(symbol-value |
| d9280 | 20 73 79 6d 29 20 70 61 74 74 65 72 6e 29 29 29 29 0a 20 20 20 20 20 20 28 66 6f 6e 74 2d 6c 6f | .sym).pattern)))).......(font-lo |
| d92a0 | 63 6b 2d 61 64 64 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 20 20 27 6c 69 73 70 2d 6d 6f 64 | ck-add-keywords........'lisp-mod |
| d92c0 | 65 0a 20 20 20 20 20 20 20 60 28 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 73 75 70 70 72 65 73 | e........`((slime-search-suppres |
| d92e0 | 73 65 64 2d 66 6f 72 6d 73 20 30 20 2c 27 27 73 6c 69 6d 65 2d 72 65 61 64 65 72 2d 63 6f 6e 64 | sed-forms.0.,''slime-reader-cond |
| d9300 | 69 74 69 6f 6e 61 6c 2d 66 61 63 65 20 74 29 29 29 0a 0a 20 20 20 20 20 20 28 61 64 64 2d 68 6f | itional-face.t)))........(add-ho |
| d9320 | 6f 6b 20 27 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ok.'lisp-mode-hook.............. |
| d9340 | 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...#'(lambda.()................. |
| d9360 | 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 65 78 74 65 6e 64 2d | ....(add-hook.'font-lock-extend- |
| d9380 | 72 65 67 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | region-functions................ |
| d93a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 65 78 74 65 6e 64 2d 72 65 67 | ...............'slime-extend-reg |
| d93c0 | 69 6f 6e 2d 66 6f 72 2d 66 6f 6e 74 2d 6c 6f 63 6b 20 74 20 74 29 29 29 29 29 0a 0a 28 6c 65 74 | ion-for-font-lock.t.t)))))..(let |
| d93e0 | 20 28 28 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 77 61 72 6e 69 6e 67 73 20 27 28 29 29 29 0a 20 | .((byte-compile-warnings.'())).. |
| d9400 | 20 28 6d 61 70 63 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 28 | .(mapc.(lambda.(sym)...........( |
| d9420 | 63 6f 6e 64 20 28 28 66 62 6f 75 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | cond.((fboundp.sym)............. |
| d9440 | 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 2d 66 75 6e 63 | .....(unless.(or.(byte-code-func |
| d9460 | 74 69 6f 6e 2d 70 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 29 29 0a 20 20 | tion-p.(symbol-function.sym))... |
| d9480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 72 | ...........................(subr |
| d94a0 | 70 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 29 29 29 0a 20 20 20 20 20 20 | p.(symbol-function.sym)))....... |
| d94c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 79 74 65 2d 63 6f 6d 70 69 6c 65 20 73 79 6d 29 29 | .............(byte-compile.sym)) |
| d94e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 25 53 20 | ).................(t.(error."%S. |
| d9500 | 69 73 20 6e 6f 74 20 66 62 6f 75 6e 64 22 20 73 79 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 27 | is.not.fbound".sym)))).........' |
| d9520 | 28 73 6c 69 6d 65 2d 65 78 74 65 6e 64 2d 72 65 67 69 6f 6e 2d 66 6f 72 2d 66 6f 6e 74 2d 6c 6f | (slime-extend-region-for-font-lo |
| d9540 | 63 6b 0a 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f 6d 70 75 74 65 2d 72 65 67 69 6f | ck...........slime-compute-regio |
| d9560 | 6e 2d 66 6f 72 2d 66 6f 6e 74 2d 6c 6f 63 6b 0a 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d | n-for-font-lock...........slime- |
| d9580 | 73 65 61 72 63 68 2d 64 69 72 65 63 74 6c 79 2d 70 72 65 63 65 64 69 6e 67 2d 72 65 61 64 65 72 | search-directly-preceding-reader |
| d95a0 | 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 73 65 61 | -conditional...........slime-sea |
| d95c0 | 72 63 68 2d 73 75 70 70 72 65 73 73 65 64 2d 66 6f 72 6d 73 0a 20 20 20 20 20 20 20 20 20 20 73 | rch-suppressed-forms...........s |
| d95e0 | 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 74 6c 66 29 29 29 0a 0a 28 63 6c 2d 64 65 | lime-beginning-of-tlf)))..(cl-de |
| d9600 | 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 69 74 69 61 6c 69 7a 65 2d 6c 69 73 70 2d 62 75 66 66 65 72 | fun.slime-initialize-lisp-buffer |
| d9620 | 2d 66 6f 72 2d 74 65 73 74 2d 73 75 69 74 65 0a 20 20 20 20 28 26 6b 65 79 20 28 66 6f 6e 74 2d | -for-test-suite.....(&key.(font- |
| d9640 | 6c 6f 63 6b 2d 6d 61 67 69 63 20 74 29 20 28 61 75 74 6f 64 6f 63 20 74 29 29 0a 20 20 28 6c 65 | lock-magic.t).(autodoc.t))...(le |
| d9660 | 74 20 28 28 68 6f 6f 6b 20 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 29 0a 20 20 20 20 28 75 | t.((hook.lisp-mode-hook)).....(u |
| d9680 | 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 | nwind-protect.........(progn.... |
| d96a0 | 20 20 20 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 | .......(set.(make-local-variable |
| d96c0 | 20 27 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 73 75 70 70 72 65 73 73 65 64 2d 66 6f 72 | .'slime-highlight-suppressed-for |
| d96e0 | 6d 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 61 67 | ms)................font-lock-mag |
| d9700 | 69 63 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f | ic)...........(setq.lisp-mode-ho |
| d9720 | 6f 6b 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 | ok.nil)...........(lisp-mode)... |
| d9740 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 6f 64 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 | ........(slime-mode.1).......... |
| d9760 | 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f | .(when.(boundp.'slime-autodoc-mo |
| d9780 | 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 61 75 74 6f 64 6f 63 0a 20 20 20 20 | de).............(if.autodoc..... |
| d97a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 20 | ............(slime-autodoc-mode. |
| d97c0 | 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d | 1)...............(slime-autodoc- |
| d97e0 | 6d 6f 64 65 20 2d 31 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 6c 69 73 70 2d 6d 6f 64 | mode.-1)))).......(setq.lisp-mod |
| d9800 | 65 2d 68 6f 6f 6b 20 68 6f 6f 6b 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 | e-hook.hook))))..(provide.'slime |
| d9820 | 2d 66 6f 6e 74 69 66 79 69 6e 67 2d 66 75 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | -fontifying-fu)................. |
| d9840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d98a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d98c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d98e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d99a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d99c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d99e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 52 45 41 44 4d 45 2e 6d 64 00 00 00 00 | slime-2.31/contrib/README.md.... |
| d9a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| d9a80 | 30 30 30 31 33 32 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 31 32 34 00 20 30 00 00 00 | 0001322.00000000000.014124..0... |
| d9aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| d9b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| d9b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9c00 | 54 68 69 73 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e 73 20 73 6f 75 72 63 65 20 63 | This.directory.contains.source.c |
| d9c20 | 6f 64 65 20 77 68 69 63 68 20 6d 61 79 20 62 65 20 75 73 65 66 75 6c 20 74 6f 20 73 6f 6d 65 20 | ode.which.may.be.useful.to.some. |
| d9c40 | 53 6c 69 6d 65 0a 75 73 65 72 73 2e 20 20 60 2a 2e 65 6c 60 20 66 69 6c 65 73 20 61 72 65 20 45 | Slime.users...`*.el`.files.are.E |
| d9c60 | 6d 61 63 73 20 4c 69 73 70 20 73 6f 75 72 63 65 20 61 6e 64 20 60 2a 2e 6c 69 73 70 60 20 66 69 | macs.Lisp.source.and.`*.lisp`.fi |
| d9c80 | 6c 65 73 20 63 6f 6e 74 61 69 6e 0a 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 73 6f 75 72 63 65 20 63 | les.contain.Common.Lisp.source.c |
| d9ca0 | 6f 64 65 2e 20 20 49 66 20 6e 6f 74 20 6f 74 68 65 72 77 69 73 65 20 73 74 61 74 65 64 20 69 6e | ode...If.not.otherwise.stated.in |
| d9cc0 | 20 74 68 65 20 66 69 6c 65 20 69 74 73 65 6c 66 2c 0a 74 68 65 20 66 69 6c 65 73 20 61 72 65 20 | .the.file.itself,.the.files.are. |
| d9ce0 | 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 0a 0a 54 68 | placed.in.the.Public.Domain...Th |
| d9d00 | 65 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 69 6e 20 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 20 61 | e.components.in.this.directory.a |
| d9d20 | 72 65 20 6d 6f 72 65 20 6f 72 20 6c 65 73 73 20 64 65 74 61 63 68 65 64 20 66 72 6f 6d 20 74 68 | re.more.or.less.detached.from.th |
| d9d40 | 65 0a 72 65 73 74 20 6f 66 20 53 6c 69 6d 65 2e 20 20 54 68 65 79 20 61 72 65 20 65 73 73 65 6e | e.rest.of.Slime...They.are.essen |
| d9d60 | 74 69 61 6c 6c 79 20 22 61 64 64 2d 6f 6e 73 22 2e 20 20 42 75 74 20 53 6c 69 6d 65 20 63 61 6e | tially."add-ons"...But.Slime.can |
| d9d80 | 20 61 6c 73 6f 20 62 65 0a 75 73 65 64 20 77 69 74 68 6f 75 74 20 74 68 65 6d 2e 20 20 54 68 65 | .also.be.used.without.them...The |
| d9da0 | 20 63 6f 64 65 20 69 73 20 6d 61 69 6e 74 61 69 6e 65 64 20 62 79 20 74 68 65 20 72 65 73 70 65 | .code.is.maintained.by.the.respe |
| d9dc0 | 63 74 69 76 65 20 61 75 74 68 6f 72 73 2e 0a 0a 53 65 65 20 74 68 65 20 74 6f 70 20 6c 65 76 65 | ctive.authors...See.the.top.leve |
| d9de0 | 6c 20 52 45 41 44 4d 45 2e 6d 64 20 66 6f 72 20 68 6f 77 20 74 6f 20 75 73 65 20 70 61 63 6b 61 | l.README.md.for.how.to.use.packa |
| d9e00 | 67 65 73 20 69 6e 20 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 46 69 6e 61 6c 6c 79 2c | ges.in.this.directory...Finally, |
| d9e20 | 20 74 68 65 20 63 6f 6e 74 72 69 62 20 60 73 6c 69 6d 65 2d 66 61 6e 63 79 60 20 69 73 20 73 70 | .the.contrib.`slime-fancy`.is.sp |
| d9e40 | 65 63 69 61 6c 6c 79 20 6e 6f 74 65 77 6f 72 74 68 79 2c 20 61 73 20 69 74 0a 72 65 70 72 65 73 | ecially.noteworthy,.as.it.repres |
| d9e60 | 65 6e 74 73 20 61 20 6d 65 74 61 2d 63 6f 6e 74 72 69 62 20 74 68 61 74 27 6c 6c 20 6c 6f 61 64 | ents.a.meta-contrib.that'll.load |
| d9e80 | 20 61 20 62 75 6e 63 68 20 6f 66 20 63 6f 6d 6d 6f 6e 6c 79 20 75 73 65 64 0a 63 6f 6e 74 72 69 | .a.bunch.of.commonly.used.contri |
| d9ea0 | 62 73 2e 20 4c 6f 6f 6b 20 69 6e 74 6f 20 60 73 6c 69 6d 65 2d 66 61 6e 63 79 2e 65 6c 60 20 74 | bs..Look.into.`slime-fancy.el`.t |
| d9ec0 | 6f 20 66 69 6e 64 20 6f 75 74 20 77 68 69 63 68 2e 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | o.find.out.which................ |
| d9ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| d9fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 72 65 70 6c 2e 65 6c | slime-2.31/contrib/slime-repl.el |
| da020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| da080 | 30 32 30 32 37 37 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 32 35 33 00 20 30 00 00 00 | 0202771.00000000000.015253..0... |
| da0a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da0c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da0e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| da120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| da140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| da200 | 3b 3b 3b 20 73 6c 69 6d 65 2d 72 65 70 6c 2e 65 6c 20 2d 2d 2d 0a 3b 3b 0a 3b 3b 20 4f 72 69 67 | ;;;.slime-repl.el.---.;;.;;.Orig |
| da220 | 69 6e 61 6c 20 41 75 74 68 6f 72 3a 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 0a 3b 3b 20 43 6f 6e | inal.Author:.Helmut.Eller.;;.Con |
| da240 | 74 72 69 62 75 74 6f 72 73 3a 20 74 6f 6f 20 6d 61 6e 79 20 74 6f 20 6d 65 6e 74 69 6f 6e 0a 3b | tributors:.too.many.to.mention.; |
| da260 | 3b 20 4c 69 63 65 6e 73 65 3a 20 47 4e 55 20 47 50 4c 20 28 73 61 6d 65 20 6c 69 63 65 6e 73 65 | ;.License:.GNU.GPL.(same.license |
| da280 | 20 61 73 20 45 6d 61 63 73 29 0a 3b 3b 0a 3b 3b 3b 20 44 65 73 63 72 69 70 74 69 6f 6e 3a 0a 3b | .as.Emacs).;;.;;;.Description:.; |
| da2a0 | 3b 0a 0a 3b 3b 0a 3b 3b 3b 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 3a 0a 3b 3b 0a 3b 3b 20 43 61 | ;..;;.;;;.Installation:.;;.;;.Ca |
| da2c0 | 6c 6c 20 73 6c 69 6d 65 2d 73 65 74 75 70 20 61 6e 64 20 69 6e 63 6c 75 64 65 20 27 73 6c 69 6d | ll.slime-setup.and.include.'slim |
| da2e0 | 65 2d 72 65 70 6c 20 61 73 20 61 72 67 75 6d 65 6e 74 3a 0a 3b 3b 0a 3b 3b 20 20 28 73 6c 69 6d | e-repl.as.argument:.;;.;;..(slim |
| da300 | 65 2d 73 65 74 75 70 20 27 28 73 6c 69 6d 65 2d 72 65 70 6c 20 5b 6f 74 68 65 72 73 20 63 6f 6e | e-setup.'(slime-repl.[others.con |
| da320 | 72 69 62 73 20 2e 2e 2e 5d 29 29 0a 3b 3b 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a | ribs....])).;;.(require.'slime). |
| da340 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 70 61 72 73 65 29 0a 28 72 65 71 75 69 72 65 20 | (require.'slime-parse).(require. |
| da360 | 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 | 'cl-lib)..(define-slime-contrib. |
| da380 | 73 6c 69 6d 65 2d 72 65 70 6c 0a 20 20 22 52 65 61 64 2d 45 76 61 6c 2d 50 72 69 6e 74 20 4c 6f | slime-repl..."Read-Eval-Print.Lo |
| da3a0 | 6f 70 20 77 72 69 74 74 65 6e 20 69 6e 20 45 6d 61 63 73 20 4c 69 73 70 2e 0a 0a 54 68 69 73 20 | op.written.in.Emacs.Lisp...This. |
| da3c0 | 63 6f 6e 74 72 69 62 20 69 6d 70 6c 65 6d 65 6e 74 73 20 61 20 4c 69 73 70 20 4c 69 73 74 65 6e | contrib.implements.a.Lisp.Listen |
| da3e0 | 65 72 20 61 6c 6f 6e 67 20 77 69 74 68 20 73 6f 6d 65 20 6e 69 63 65 74 69 65 73 20 6c 69 6b 65 | er.along.with.some.niceties.like |
| da400 | 0a 61 20 70 65 72 73 69 73 74 65 6e 74 20 68 69 73 74 6f 72 79 20 61 6e 64 20 76 61 72 69 6f 75 | .a.persistent.history.and.variou |
| da420 | 73 20 5c 22 73 68 6f 72 74 63 75 74 5c 22 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 4e 6f 74 68 69 6e | s.\"shortcut\".commands...Nothin |
| da440 | 67 20 68 65 72 65 0a 64 65 70 65 6e 64 73 20 6f 6e 20 63 6f 6d 69 6e 74 2e 65 6c 3b 20 49 2f 4f | g.here.depends.on.comint.el;.I/O |
| da460 | 20 69 73 20 6d 75 6c 74 69 70 6c 65 78 65 64 20 6f 76 65 72 20 53 4c 49 4d 45 27 73 20 73 6f 63 | .is.multiplexed.over.SLIME's.soc |
| da480 | 6b 65 74 2e 0a 0a 54 68 69 73 20 75 73 65 64 20 74 6f 20 62 65 20 74 68 65 20 64 65 66 61 75 6c | ket...This.used.to.be.the.defaul |
| da4a0 | 74 20 52 45 50 4c 20 66 6f 72 20 53 4c 49 4d 45 2c 20 62 75 74 20 69 74 20 77 61 73 20 68 61 72 | t.REPL.for.SLIME,.but.it.was.har |
| da4c0 | 64 20 74 6f 0a 6d 61 69 6e 74 61 69 6e 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 74 6f 6f | d.to.maintain."...(:authors."too |
| da4e0 | 20 6d 61 6e 79 20 74 6f 20 6d 65 6e 74 69 6f 6e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 | .many.to.mention")...(:license." |
| da500 | 47 50 4c 22 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c | GPL")...(:on-load....(slime-repl |
| da520 | 2d 61 64 64 2d 68 6f 6f 6b 73 29 0a 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 66 69 6e 64 2d | -add-hooks)....(setq.slime-find- |
| da540 | 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 72 | buffer-package-function.'slime-r |
| da560 | 65 70 6c 2d 66 69 6e 64 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 28 3a 6f 6e | epl-find-buffer-package))...(:on |
| da580 | 2d 75 6e 6c 6f 61 64 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 6d 6f 76 65 2d 68 6f 6f 6b 73 | -unload.(slime-repl-remove-hooks |
| da5a0 | 29 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d | ))...(:swank-dependencies.swank- |
| da5c0 | 72 65 70 6c 29 29 0a 0a 3b 3b 3b 3b 3b 20 73 6c 69 6d 65 2d 72 65 70 6c 0a 0a 28 64 65 66 67 72 | repl))..;;;;;.slime-repl..(defgr |
| da5e0 | 6f 75 70 20 73 6c 69 6d 65 2d 72 65 70 6c 20 6e 69 6c 0a 20 20 22 54 68 65 20 52 65 61 64 2d 45 | oup.slime-repl.nil..."The.Read-E |
| da600 | 76 61 6c 2d 50 72 69 6e 74 20 4c 6f 6f 70 20 28 2a 73 6c 69 6d 65 2d 72 65 70 6c 2a 20 62 75 66 | val-Print.Loop.(*slime-repl*.buf |
| da620 | 66 65 72 29 2e 22 0a 20 20 3a 70 72 65 66 69 78 20 22 73 6c 69 6d 65 2d 72 65 70 6c 2d 22 0a 20 | fer)."...:prefix."slime-repl-".. |
| da640 | 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d | .:group.'slime)..(defcustom.slim |
| da660 | 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 64 69 73 70 61 74 63 68 2d 63 68 61 72 20 3f 5c | e-repl-shortcut-dispatch-char.?\ |
| da680 | 2c 0a 20 20 22 43 68 61 72 61 63 74 65 72 20 75 73 65 64 20 74 6f 20 64 69 73 74 69 6e 67 75 69 | ,..."Character.used.to.distingui |
| da6a0 | 73 68 20 72 65 70 6c 20 63 6f 6d 6d 61 6e 64 73 20 66 72 6f 6d 20 6c 69 73 70 20 66 6f 72 6d 73 | sh.repl.commands.from.lisp.forms |
| da6c0 | 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 61 72 61 63 74 65 72 29 0a 20 20 3a 67 72 6f 75 70 | ."...:type.'(character)...:group |
| da6e0 | 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d | .'slime-repl)..(defcustom.slime- |
| da700 | 72 65 70 6c 2d 6f 6e 6c 79 2d 73 61 76 65 2d 6c 69 73 70 2d 62 75 66 66 65 72 73 20 74 0a 20 20 | repl-only-save-lisp-buffers.t... |
| da720 | 22 57 68 65 6e 20 54 20 77 65 20 6f 6e 6c 79 20 61 74 74 65 6d 70 74 20 74 6f 20 73 61 76 65 20 | "When.T.we.only.attempt.to.save. |
| da740 | 6c 69 73 70 2d 6d 6f 64 65 20 66 69 6c 65 20 62 75 66 66 65 72 73 2e 20 57 68 65 6e 0a 20 20 4e | lisp-mode.file.buffers..When...N |
| da760 | 49 4c 20 73 6c 69 6d 65 20 77 69 6c 6c 20 61 74 74 65 6d 70 74 20 74 6f 20 73 61 76 65 20 61 6c | IL.slime.will.attempt.to.save.al |
| da780 | 6c 20 62 75 66 66 65 72 73 20 28 61 73 20 70 65 72 0a 20 20 73 61 76 65 2d 73 6f 6d 65 2d 62 75 | l.buffers.(as.per...save-some-bu |
| da7a0 | 66 66 65 72 73 29 2e 20 54 68 69 73 20 61 70 70 6c 69 65 73 20 74 6f 20 61 6c 6c 20 41 53 44 46 | ffers)..This.applies.to.all.ASDF |
| da7c0 | 20 72 65 6c 61 74 65 64 20 72 65 70 6c 0a 20 20 73 68 6f 72 74 63 75 74 73 2e 22 0a 20 20 3a 74 | .related.repl...shortcuts."...:t |
| da7e0 | 79 70 65 20 27 28 62 6f 6f 6c 65 61 6e 29 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 72 | ype.'(boolean)...:group.'slime-r |
| da800 | 65 70 6c 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 75 74 6f | epl)..(defcustom.slime-repl-auto |
| da820 | 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 20 6e 69 6c 0a 20 20 22 57 68 65 6e 20 54 20 77 65 20 62 | -right-margin.nil..."When.T.we.b |
| da840 | 69 6e 64 20 43 4c 3a 2a 50 52 49 4e 54 2d 52 49 47 48 54 2d 4d 41 52 47 49 4e 2a 20 74 6f 20 74 | ind.CL:*PRINT-RIGHT-MARGIN*.to.t |
| da860 | 68 65 20 77 69 64 74 68 20 6f 66 20 74 68 65 0a 63 75 72 72 65 6e 74 20 72 65 70 6c 27 73 20 28 | he.width.of.the.current.repl's.( |
| da880 | 61 73 20 70 65 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 20 77 69 6e 64 | as.per.slime-output-buffer).wind |
| da8a0 | 6f 77 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 62 6f 6f 6c 65 61 6e 29 0a 20 20 3a 67 72 6f 75 70 | ow."...:type.'(boolean)...:group |
| da8c0 | 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 72 65 | .'slime-repl)..(defface.slime-re |
| da8e0 | 70 6c 2d 70 72 6f 6d 70 74 2d 66 61 63 65 0a 20 20 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 | pl-prompt-face.....'((t.(:inheri |
| da900 | 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 29 29 0a 20 20 22 46 | t.font-lock-keyword-face)))..."F |
| da920 | 61 63 65 20 66 6f 72 20 74 68 65 20 70 72 6f 6d 70 74 20 69 6e 20 74 68 65 20 53 4c 49 4d 45 20 | ace.for.the.prompt.in.the.SLIME. |
| da940 | 52 45 50 4c 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 0a 28 64 | REPL."...:group.'slime-repl)..(d |
| da960 | 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 75 74 70 75 74 2d 66 61 63 65 0a 20 20 | efface.slime-repl-output-face... |
| da980 | 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 73 74 72 69 6e | ..'((t.(:inherit.font-lock-strin |
| da9a0 | 67 2d 66 61 63 65 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 4c 69 73 70 20 6f 75 74 70 75 | g-face)))..."Face.for.Lisp.outpu |
| da9c0 | 74 20 69 6e 20 74 68 65 20 53 4c 49 4d 45 20 52 45 50 4c 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 | t.in.the.SLIME.REPL."...:group.' |
| da9e0 | 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 72 65 70 6c | slime-repl)..(defface.slime-repl |
| daa00 | 2d 69 6e 70 75 74 2d 66 61 63 65 0a 20 20 27 28 28 74 20 28 3a 62 6f 6c 64 20 74 29 29 29 0a 20 | -input-face...'((t.(:bold.t))).. |
| daa20 | 20 22 46 61 63 65 20 66 6f 72 20 70 72 65 76 69 6f 75 73 20 69 6e 70 75 74 20 69 6e 20 74 68 65 | ."Face.for.previous.input.in.the |
| daa40 | 20 53 4c 49 4d 45 20 52 45 50 4c 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 72 65 | .SLIME.REPL."...:group.'slime-re |
| daa60 | 70 6c 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 73 75 6c 74 2d | pl)..(defface.slime-repl-result- |
| daa80 | 66 61 63 65 0a 20 20 27 28 28 74 20 28 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 74 68 65 | face...'((t.()))..."Face.for.the |
| daaa0 | 20 72 65 73 75 6c 74 20 6f 66 20 61 6e 20 65 76 61 6c 75 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 | .result.of.an.evaluation.in.the. |
| daac0 | 53 4c 49 4d 45 20 52 45 50 4c 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 72 65 70 | SLIME.REPL."...:group.'slime-rep |
| daae0 | 6c 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 | l)..(defcustom.slime-repl-histor |
| dab00 | 79 2d 66 69 6c 65 20 22 7e 2f 2e 73 6c 69 6d 65 2d 68 69 73 74 6f 72 79 2e 65 6c 64 22 0a 20 20 | y-file."~/.slime-history.eld"... |
| dab20 | 22 46 69 6c 65 20 74 6f 20 73 61 76 65 20 74 68 65 20 70 65 72 73 69 73 74 65 6e 74 20 52 45 50 | "File.to.save.the.persistent.REP |
| dab40 | 4c 20 68 69 73 74 6f 72 79 20 74 6f 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 0a 20 | L.history.to."...:type.'string.. |
| dab60 | 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d | .:group.'slime-repl)..(defcustom |
| dab80 | 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 73 69 7a 65 20 32 30 30 0a 20 20 22 | .slime-repl-history-size.200..." |
| daba0 | 2a 4d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 66 6f 72 20 70 65 72 | *Maximum.number.of.lines.for.per |
| dabc0 | 73 69 73 74 65 6e 74 20 52 45 50 4c 20 68 69 73 74 6f 72 79 2e 22 0a 20 20 3a 74 79 70 65 20 27 | sistent.REPL.history."...:type.' |
| dabe0 | 69 6e 74 65 67 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 0a 28 | integer...:group.'slime-repl)..( |
| dac00 | 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 66 69 6c | defcustom.slime-repl-history-fil |
| dac20 | 65 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 0a 20 20 28 63 6f 6e 64 20 28 28 73 6c 69 6d 65 2d | e-coding-system...(cond.((slime- |
| dac40 | 66 69 6e 64 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 27 75 74 66 2d 38 2d 75 6e 69 78 29 20 | find-coding-system.'utf-8-unix). |
| dac60 | 27 75 74 66 2d 38 2d 75 6e 69 78 29 0a 20 20 20 20 20 20 20 20 28 74 20 73 6c 69 6d 65 2d 6e 65 | 'utf-8-unix).........(t.slime-ne |
| dac80 | 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 29 0a 20 20 22 2a 54 68 65 20 63 6f 64 69 6e 67 | t-coding-system))..."*The.coding |
| daca0 | 20 73 79 73 74 65 6d 20 66 6f 72 20 74 68 65 20 68 69 73 74 6f 72 79 20 66 69 6c 65 2e 22 0a 20 | .system.for.the.history.file.".. |
| dacc0 | 20 3a 74 79 70 65 20 27 73 79 6d 62 6f 6c 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 72 | .:type.'symbol...:group.'slime-r |
| dace0 | 65 70 6c 29 0a 0a 0a 3b 3b 20 64 75 6d 6d 79 20 64 65 66 76 61 72 20 66 6f 72 20 63 6f 6d 70 69 | epl)...;;.dummy.defvar.for.compi |
| dad00 | 6c 65 72 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 6d 6f 64 65 | ler.(defvar.slime-repl-read-mode |
| dad20 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 61 64 69 6e 67 2d 70 20 28 29 0a 20 20 22 | )..(defun.slime-reading-p.()..." |
| dad40 | 54 72 75 65 20 69 66 20 4c 69 73 70 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 72 65 61 64 69 6e | True.if.Lisp.is.currently.readin |
| dad60 | 67 20 69 6e 70 75 74 20 66 72 6f 6d 20 74 68 65 20 52 45 50 4c 2e 22 0a 20 20 28 77 69 74 68 2d | g.input.from.the.REPL."...(with- |
| dad80 | 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 | current-buffer.(slime-output-buf |
| dada0 | 66 65 72 29 0a 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 6d 6f 64 65 29 29 0a | fer).....slime-repl-read-mode)). |
| dadc0 | 0a 0c 0a 3b 3b 3b 3b 20 53 74 72 65 61 6d 20 6f 75 74 70 75 74 0a 0a 28 73 6c 69 6d 65 2d 64 65 | ...;;;;.Stream.output..(slime-de |
| dade0 | 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f | f-connection-var.slime-connectio |
| dae00 | 6e 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 20 6e 69 6c 0a 20 20 22 54 68 65 20 62 75 66 66 65 | n-output-buffer.nil..."The.buffe |
| dae20 | 72 20 66 6f 72 20 74 68 65 20 52 45 50 4c 2e 20 20 4d 61 79 20 62 65 20 6e 69 6c 20 6f 72 20 61 | r.for.the.REPL...May.be.nil.or.a |
| dae40 | 20 64 65 61 64 20 62 75 66 66 65 72 2e 22 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d | .dead.buffer.")..(make-variable- |
| dae60 | 62 75 66 66 65 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6f 75 74 70 | buffer-local..(defvar.slime-outp |
| dae80 | 75 74 2d 73 74 61 72 74 20 6e 69 6c 0a 20 20 20 22 4d 61 72 6b 65 72 20 66 6f 72 20 74 68 65 20 | ut-start.nil...."Marker.for.the. |
| daea0 | 73 74 61 72 74 20 6f 66 20 74 68 65 20 6f 75 74 70 75 74 20 66 6f 72 20 74 68 65 20 65 76 61 6c | start.of.the.output.for.the.eval |
| daec0 | 75 61 74 69 6f 6e 2e 22 29 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 | uation."))..(make-variable-buffe |
| daee0 | 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 65 6e | r-local..(defvar.slime-output-en |
| daf00 | 64 20 6e 69 6c 0a 20 20 20 22 4d 61 72 6b 65 72 20 66 6f 72 20 65 6e 64 20 6f 66 20 6f 75 74 70 | d.nil...."Marker.for.end.of.outp |
| daf20 | 75 74 2e 20 4e 65 77 20 6f 75 74 70 75 74 20 69 73 20 69 6e 73 65 72 74 65 64 20 61 74 20 74 68 | ut..New.output.is.inserted.at.th |
| daf40 | 69 73 20 6d 61 72 6b 2e 22 29 29 0a 0a 3b 3b 20 64 75 6d 6d 79 20 64 65 66 69 6e 69 74 69 6f 6e | is.mark."))..;;.dummy.definition |
| daf60 | 73 20 66 6f 72 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 | s.for.the.compiler.(defvar.slime |
| daf80 | 2d 72 65 70 6c 2d 70 61 63 6b 61 67 65 2d 73 74 61 63 6b 29 0a 28 64 65 66 76 61 72 20 73 6c 69 | -repl-package-stack).(defvar.sli |
| dafa0 | 6d 65 2d 72 65 70 6c 2d 64 69 72 65 63 74 6f 72 79 2d 73 74 61 63 6b 29 0a 28 64 65 66 76 61 72 | me-repl-directory-stack).(defvar |
| dafc0 | 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 28 64 | .slime-repl-input-start-mark).(d |
| dafe0 | 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 6f 6d 70 74 2d 73 74 61 72 74 2d 6d 61 | efvar.slime-repl-prompt-start-ma |
| db000 | 72 6b 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d | rk)..(defvar.slime-repl-history- |
| db020 | 75 73 65 2d 6d 61 72 6b 20 6e 69 6c 0a 20 20 22 41 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 20 | use-mark.nil..."A.non-nil.value. |
| db040 | 6d 65 61 6e 73 20 74 68 61 74 20 68 69 73 74 6f 72 79 20 77 69 6c 6c 20 62 65 20 72 65 70 6c 61 | means.that.history.will.be.repla |
| db060 | 63 65 64 20 66 72 6f 6d 20 74 68 65 20 6d 61 72 6b 2e 0a 0a 49 6e 73 74 65 61 64 20 6f 66 20 72 | ced.from.the.mark...Instead.of.r |
| db080 | 65 70 6c 61 63 69 6e 67 20 66 6f 72 6d 20 69 6e 70 75 74 2d 73 74 61 72 74 2c 20 6c 6f 6f 6b 20 | eplacing.form.input-start,.look. |
| db0a0 | 75 70 20 68 69 73 74 6f 72 79 20 61 6e 64 20 72 65 70 6c 61 63 65 20 69 6e 70 75 74 0a 66 72 6f | up.history.and.replace.input.fro |
| db0c0 | 6d 20 74 68 65 20 6d 61 72 6b 2e 20 43 61 6c 6c 69 6e 67 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d | m.the.mark..Calling.'slime-repl- |
| db0e0 | 70 72 65 76 69 6f 75 73 2d 69 6e 70 75 74 27 2c 0a 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 | previous-input',..'slime-repl-pr |
| db100 | 65 76 69 6f 75 73 2d 6d 61 74 63 68 69 6e 67 2d 69 6e 70 75 74 27 20 6f 72 20 74 68 65 69 72 20 | evious-matching-input'.or.their. |
| db120 | 2d 6e 65 78 74 20 63 6f 75 6e 74 65 72 70 61 72 74 73 20 77 69 74 68 20 61 20 70 72 65 66 69 78 | -next.counterparts.with.a.prefix |
| db140 | 0a 20 61 72 67 75 6d 65 6e 74 20 73 65 74 73 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 66 6f | ..argument.sets.this.variable.fo |
| db160 | 72 20 74 68 65 20 64 75 72 61 74 69 6f 6e 20 6f 66 20 6f 6e 65 20 68 69 73 74 6f 72 79 20 6c 6f | r.the.duration.of.one.history.lo |
| db180 | 6f 6b 75 70 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f | okup.")..(defun.slime-repl-histo |
| db1a0 | 72 79 2d 79 61 6e 6b 2d 73 74 61 72 74 20 28 29 0a 20 20 22 54 68 65 20 70 6f 73 69 74 69 6f 6e | ry-yank-start.()..."The.position |
| db1c0 | 20 77 68 69 63 68 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 69 6e 70 75 | .which.'slime-repl-previous-inpu |
| db1e0 | 74 27 20 77 69 6c 6c 20 72 65 70 6c 61 63 65 20 66 72 6f 6d 2e 0a 0a 57 68 65 6e 20 27 73 6c 69 | t'.will.replace.from...When.'sli |
| db200 | 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 75 73 65 2d 6d 61 72 6b 27 20 69 73 20 6e 6f 6e | me-repl-history-use-mark'.is.non |
| db220 | 2d 6e 69 6c 2c 20 61 6e 64 20 28 6d 61 72 6b 29 20 69 73 20 61 66 74 65 72 20 74 68 65 20 63 75 | -nil,.and.(mark).is.after.the.cu |
| db240 | 72 72 65 6e 74 0a 69 6e 70 75 74 20 73 74 61 72 74 2c 20 72 65 74 75 72 6e 20 69 74 2e 20 20 4f | rrent.input.start,.return.it...O |
| db260 | 74 68 65 72 77 69 73 65 2c 20 72 65 74 75 72 6e 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 | therwise,.return.'slime-repl-inp |
| db280 | 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 27 2e 22 0a 20 20 28 69 66 20 28 61 6e 64 20 73 6c 69 6d | ut-start-mark'."...(if.(and.slim |
| db2a0 | 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 75 73 65 2d 6d 61 72 6b 20 28 6d 61 72 6b 29 29 0a | e-repl-history-use-mark.(mark)). |
| db2c0 | 20 20 20 20 20 20 28 6d 61 78 20 28 6d 61 72 6b 29 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 | ......(max.(mark).slime-repl-inp |
| db2e0 | 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | ut-start-mark).......slime-repl- |
| db300 | 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | input-start-mark))..(defun.slime |
| db320 | 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 70 72 6f 6d | -output-buffer.(&optional.noprom |
| db340 | 70 74 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 2c | pt)..."Return.the.output.buffer, |
| db360 | 20 63 72 65 61 74 65 20 69 74 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 22 0a 20 20 28 6c 65 74 | .create.it.if.necessary."...(let |
| db380 | 20 28 28 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6f 75 74 70 | .((buffer.(slime-connection-outp |
| db3a0 | 75 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 28 6f 72 20 28 69 66 20 28 62 75 66 66 65 72 | ut-buffer))).....(or.(if.(buffer |
| db3c0 | 2d 6c 69 76 65 2d 70 20 62 75 66 66 65 72 29 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 | -live-p.buffer).buffer)......... |
| db3e0 | 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6f 75 74 70 75 74 2d 62 | (setf.(slime-connection-output-b |
| db400 | 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 6e | uffer)...............(let.((conn |
| db420 | 65 63 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 | ection.(slime-connection)))..... |
| db440 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 | ............(with-current-buffer |
| db460 | 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 75 66 66 65 72 20 74 20 63 6f 6e 6e 65 63 74 69 6f 6e | .(slime-repl-buffer.t.connection |
| db480 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 | )...................(unless.(eq. |
| db4a0 | 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 29 0a 20 20 20 | major-mode.'slime-repl-mode).... |
| db4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 | .................(slime-repl-mod |
| db4e0 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d | e))...................(setq.slim |
| db500 | 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a | e-buffer-connection.connection). |
| db520 | 09 09 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 28 | ....(setq.slime-buffer-package.( |
| db540 | 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a | slime-lisp-package.connection)). |
| db560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 73 65 74 2d 72 | ..................(slime-reset-r |
| db580 | 65 70 6c 2d 6d 61 72 6b 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | epl-markers)...................( |
| db5a0 | 75 6e 6c 65 73 73 20 6e 6f 70 72 6f 6d 70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | unless.noprompt................. |
| db5c0 | 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 65 72 74 2d 70 72 6f 6d 70 74 29 29 0a | ....(slime-repl-insert-prompt)). |
| db5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | ..................(current-buffe |
| db600 | 72 29 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 61 6e | r)))))))..(defvar.slime-repl-ban |
| db620 | 6e 65 72 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 65 72 74 2d | ner-function.'slime-repl-insert- |
| db640 | 62 61 6e 6e 65 72 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 75 70 64 61 74 | banner)..(defun.slime-repl-updat |
| db660 | 65 2d 62 61 6e 6e 65 72 20 28 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 73 6c 69 6d 65 2d 72 65 70 | e-banner.()...(funcall.slime-rep |
| db680 | 6c 2d 62 61 6e 6e 65 72 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 6f 76 65 | l-banner-function)...(slime-move |
| db6a0 | 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 61 72 | -point.(point-max))...(slime-mar |
| db6c0 | 6b 2d 6f 75 74 70 75 74 2d 73 74 61 72 74 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 61 72 6b 2d 69 6e | k-output-start)...(slime-mark-in |
| db6e0 | 70 75 74 2d 73 74 61 72 74 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 65 72 74 2d | put-start)...(slime-repl-insert- |
| db700 | 70 72 6f 6d 70 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 65 | prompt))..(defun.slime-repl-inse |
| db720 | 72 74 2d 62 61 6e 6e 65 72 20 28 29 0a 20 20 28 77 68 65 6e 20 28 7a 65 72 6f 70 20 28 62 75 66 | rt-banner.()...(when.(zerop.(buf |
| db740 | 66 65 72 2d 73 69 7a 65 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 77 65 6c 63 6f 6d 65 20 28 63 | fer-size)).....(let.((welcome.(c |
| db760 | 6f 6e 63 61 74 20 22 3b 20 53 4c 49 4d 45 20 22 20 73 6c 69 6d 65 2d 76 65 72 73 69 6f 6e 29 29 | oncat.";.SLIME.".slime-version)) |
| db780 | 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 77 65 6c 63 6f 6d 65 29 29 29 29 0a 0a 28 64 65 | ).......(insert.welcome))))..(de |
| db7a0 | 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 69 74 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 20 28 63 6f | fun.slime-init-output-buffer.(co |
| db7c0 | 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 | nnection)...(with-current-buffer |
| db7e0 | 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 20 74 29 0a 20 20 20 20 28 73 65 | .(slime-output-buffer.t).....(se |
| db800 | 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 | tq.slime-buffer-connection.conne |
| db820 | 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 64 69 72 65 63 | ction...........slime-repl-direc |
| db840 | 74 6f 72 79 2d 73 74 61 63 6b 20 27 28 29 0a 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 | tory-stack.'()...........slime-r |
| db860 | 65 70 6c 2d 70 61 63 6b 61 67 65 2d 73 74 61 63 6b 20 27 28 29 29 0a 20 20 20 20 28 73 6c 69 6d | epl-package-stack.'()).....(slim |
| db880 | 65 2d 72 65 70 6c 2d 75 70 64 61 74 65 2d 62 61 6e 6e 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 | e-repl-update-banner)))..(defun. |
| db8a0 | 73 6c 69 6d 65 2d 64 69 73 70 6c 61 79 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 20 28 29 0a 20 | slime-display-output-buffer.().. |
| db8c0 | 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 20 61 6e 64 20 | ."Display.the.output.buffer.and. |
| db8e0 | 73 63 72 6f 6c 6c 20 74 6f 20 62 6f 74 74 6f 6d 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 | scroll.to.bottom."...(with-curre |
| db900 | 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a | nt-buffer.(slime-output-buffer). |
| db920 | 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 | ....(goto-char.(point-max))..... |
| db940 | 28 75 6e 6c 65 73 73 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 63 75 72 72 | (unless.(get-buffer-window.(curr |
| db960 | 65 6e 74 2d 62 75 66 66 65 72 29 20 74 29 0a 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 62 75 | ent-buffer).t).......(display-bu |
| db980 | 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 29 29 0a 20 20 20 20 28 73 | ffer.(current-buffer).t)).....(s |
| db9a0 | 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 77 2d 6d 61 78 69 6d 75 6d 2d 6f 75 74 70 75 74 29 29 29 | lime-repl-show-maximum-output))) |
| db9c0 | 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 77 72 69 74 65 2d 73 74 72 69 6e 67 2d 66 75 6e | ..(defvar.slime-write-string-fun |
| db9e0 | 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 77 72 69 74 65 2d 73 74 72 69 6e 67 29 0a | ction.'slime-repl-write-string). |
| dba00 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 77 72 69 74 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 | .(defun.slime-write-string.(stri |
| dba20 | 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 74 61 72 67 65 74 29 0a 20 20 22 49 6e 73 65 72 74 20 53 | ng.&optional.target)..."Insert.S |
| dba40 | 54 52 49 4e 47 20 69 6e 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 20 6f 72 20 73 6f 6d 65 | TRING.in.the.REPL.buffer.or.some |
| dba60 | 20 6f 74 68 65 72 20 54 41 52 47 45 54 2e 0a 49 66 20 54 41 52 47 45 54 20 69 73 20 6e 69 6c 2c | .other.TARGET..If.TARGET.is.nil, |
| dba80 | 20 69 6e 73 65 72 74 20 53 54 52 49 4e 47 20 61 73 20 72 65 67 75 6c 61 72 20 70 72 6f 63 65 73 | .insert.STRING.as.regular.proces |
| dbaa0 | 73 0a 6f 75 74 70 75 74 2e 20 20 49 66 20 54 41 52 47 45 54 20 69 73 20 3a 72 65 70 6c 2d 72 65 | s.output...If.TARGET.is.:repl-re |
| dbac0 | 73 75 6c 74 2c 20 69 6e 73 65 72 74 20 53 54 52 49 4e 47 20 61 73 20 74 68 65 20 72 65 73 75 6c | sult,.insert.STRING.as.the.resul |
| dbae0 | 74 20 6f 66 20 74 68 65 0a 65 76 61 6c 75 61 74 69 6f 6e 2e 20 20 4f 74 68 65 72 20 76 61 6c 75 | t.of.the.evaluation...Other.valu |
| dbb00 | 65 73 20 6f 66 20 54 41 52 47 45 54 20 6d 61 70 20 74 6f 20 61 6e 20 45 6d 61 63 73 20 6d 61 72 | es.of.TARGET.map.to.an.Emacs.mar |
| dbb20 | 6b 65 72 20 76 69 61 20 74 68 65 0a 68 61 73 68 74 61 62 6c 65 20 60 73 6c 69 6d 65 2d 6f 75 74 | ker.via.the.hashtable.`slime-out |
| dbb40 | 70 75 74 2d 74 61 72 67 65 74 2d 74 6f 2d 6d 61 72 6b 65 72 27 3b 20 6f 75 74 70 75 74 20 69 73 | put-target-to-marker';.output.is |
| dbb60 | 20 69 6e 73 65 72 74 65 64 20 61 74 20 74 68 69 73 20 6d 61 72 6b 65 72 2e 22 0a 20 20 28 66 75 | .inserted.at.this.marker."...(fu |
| dbb80 | 6e 63 61 6c 6c 20 73 6c 69 6d 65 2d 77 72 69 74 65 2d 73 74 72 69 6e 67 2d 66 75 6e 63 74 69 6f | ncall.slime-write-string-functio |
| dbba0 | 6e 20 73 74 72 69 6e 67 20 74 61 72 67 65 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | n.string.target))..(defun.slime- |
| dbbc0 | 72 65 70 6c 2d 77 72 69 74 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f | repl-write-string.(string.&optio |
| dbbe0 | 6e 61 6c 20 74 61 72 67 65 74 29 0a 20 20 28 63 6c 2d 63 61 73 65 20 74 61 72 67 65 74 0a 20 20 | nal.target)...(cl-case.target... |
| dbc00 | 20 20 28 28 6e 69 6c 29 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 6d 69 74 20 73 74 72 69 6e 67 | ..((nil).(slime-repl-emit.string |
| dbc20 | 29 29 0a 20 20 20 20 28 3a 72 65 70 6c 2d 72 65 73 75 6c 74 20 28 73 6c 69 6d 65 2d 72 65 70 6c | )).....(:repl-result.(slime-repl |
| dbc40 | 2d 65 6d 69 74 2d 72 65 73 75 6c 74 20 73 74 72 69 6e 67 20 74 29 29 0a 20 20 20 20 28 74 20 28 | -emit-result.string.t)).....(t.( |
| dbc60 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 6d 69 74 2d 74 6f 2d 74 61 72 67 65 74 20 73 74 72 69 6e 67 | slime-repl-emit-to-target.string |
| dbc80 | 20 74 61 72 67 65 74 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | .target))))..(defvar.slime-repl- |
| dbca0 | 70 6f 70 75 70 2d 6f 6e 2d 6f 75 74 70 75 74 20 6e 69 6c 0a 20 20 22 44 69 73 70 6c 61 79 20 74 | popup-on-output.nil..."Display.t |
| dbcc0 | 68 65 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 20 77 68 65 6e 20 73 6f 6d 65 20 6f 75 74 70 75 | he.output.buffer.when.some.outpu |
| dbce0 | 74 20 69 73 20 77 72 69 74 74 65 6e 2e 0a 54 68 69 73 20 69 73 20 73 65 74 20 74 6f 20 6e 69 6c | t.is.written..This.is.set.to.nil |
| dbd00 | 20 61 66 74 65 72 20 64 69 73 70 6c 61 79 69 6e 67 20 74 68 65 20 62 75 66 66 65 72 2e 22 29 0a | .after.displaying.the.buffer."). |
| dbd20 | 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 73 61 76 65 2d 6d 61 72 6b 65 72 20 28 6d 61 | .(defmacro.slime-save-marker.(ma |
| dbd40 | 72 6b 65 72 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 | rker.&rest.body)...(declare.(deb |
| dbd60 | 75 67 20 28 73 65 78 70 20 26 72 65 73 74 20 66 6f 72 6d 29 29 29 0a 20 20 28 6c 65 74 20 28 28 | ug.(sexp.&rest.form)))...(let.(( |
| dbd80 | 70 6f 73 20 28 63 6c 2d 67 65 6e 73 79 6d 20 22 70 6f 73 22 29 29 29 0a 20 20 20 20 60 28 6c 65 | pos.(cl-gensym."pos"))).....`(le |
| dbda0 | 74 20 28 28 2c 70 6f 73 20 28 6d 61 72 6b 65 72 2d 70 6f 73 69 74 69 6f 6e 20 2c 6d 61 72 6b 65 | t.((,pos.(marker-position.,marke |
| dbdc0 | 72 29 29 29 0a 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 28 70 72 6f 67 6e 20 2e 20 2c 62 6f 64 | r)))........(prog1.(progn...,bod |
| dbde0 | 79 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 20 2c 6d 61 72 6b 65 72 20 | y)..........(set-marker.,marker. |
| dbe00 | 2c 70 6f 73 29 29 29 29 29 0a 0a 28 70 75 74 20 27 73 6c 69 6d 65 2d 73 61 76 65 2d 6d 61 72 6b | ,pos)))))..(put.'slime-save-mark |
| dbe20 | 65 72 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 29 0a 0a 28 64 65 | er.'lisp-indent-function.1)..(de |
| dbe40 | 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 6d 69 74 20 28 73 74 72 69 6e 67 29 0a 20 20 3b | fun.slime-repl-emit.(string)...; |
| dbe60 | 3b 20 69 6e 73 65 72 74 20 74 68 65 20 73 74 72 69 6e 67 20 53 54 52 49 4e 47 20 69 6e 20 74 68 | ;.insert.the.string.STRING.in.th |
| dbe80 | 65 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d | e.output.buffer...(with-current- |
| dbea0 | 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 | buffer.(slime-output-buffer).... |
| dbec0 | 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 | .(save-excursion.......(goto-cha |
| dbee0 | 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 65 6e 64 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 | r.slime-output-end).......(slime |
| dbf00 | 2d 73 61 76 65 2d 6d 61 72 6b 65 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 61 72 74 0a | -save-marker.slime-output-start. |
| dbf20 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e | ........(slime-propertize-region |
| dbf40 | 20 27 28 66 61 63 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 75 74 70 75 74 2d 66 61 63 65 0a 20 | .'(face.slime-repl-output-face.. |
| dbf60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| dbf80 | 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 75 74 70 75 74 20 74 0a 20 20 20 20 20 | .......slime-repl-output.t...... |
| dbfa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| dbfc0 | 20 20 20 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 28 66 61 63 65 29 29 0a 20 20 20 20 20 20 | ...rear-nonsticky.(face))....... |
| dbfe0 | 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 | ....(let.((inhibit-read-only.t)) |
| dc000 | 0a 09 20 20 20 20 28 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 73 74 72 | ......(insert-before-markers.str |
| dc020 | 69 6e 67 29 0a 09 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 3d 20 28 70 6f 69 6e 74 29 20 | ing)......(when.(and.(=.(point). |
| dc040 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 6f 6d 70 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 09 09 | slime-repl-prompt-start-mark)... |
| dc060 | 20 20 20 20 20 20 20 28 6e 6f 74 20 28 62 6f 6c 70 29 29 29 0a 09 20 20 20 20 20 20 28 69 6e 73 | .......(not.(bolp)))........(ins |
| dc080 | 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 22 5c 6e 22 29 0a 09 20 20 20 20 20 20 | ert-before-markers."\n")........ |
| dc0a0 | 28 73 65 74 2d 6d 61 72 6b 65 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 65 6e 64 20 28 31 2d | (set-marker.slime-output-end.(1- |
| dc0c0 | 20 28 70 6f 69 6e 74 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d | .(point)))))))).....(when.slime- |
| dc0e0 | 72 65 70 6c 2d 70 6f 70 75 70 2d 6f 6e 2d 6f 75 74 70 75 74 0a 20 20 20 20 20 20 28 73 65 74 71 | repl-popup-on-output.......(setq |
| dc100 | 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 6f 70 75 70 2d 6f 6e 2d 6f 75 74 70 75 74 20 6e 69 6c 29 | .slime-repl-popup-on-output.nil) |
| dc120 | 0a 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d | .......(display-buffer.(current- |
| dc140 | 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 77 2d 6d | buffer))).....(slime-repl-show-m |
| dc160 | 61 78 69 6d 75 6d 2d 6f 75 74 70 75 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 | aximum-output)))..(defun.slime-r |
| dc180 | 65 70 6c 2d 65 6d 69 74 2d 72 65 73 75 6c 74 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 | epl-emit-result.(string.&optiona |
| dc1a0 | 6c 20 62 6f 6c 29 0a 20 20 3b 3b 20 69 6e 73 65 72 74 20 53 54 52 49 4e 47 20 61 6e 64 20 6d 61 | l.bol)...;;.insert.STRING.and.ma |
| dc1c0 | 72 6b 20 69 74 20 61 73 20 65 76 61 6c 75 61 74 69 6f 6e 20 72 65 73 75 6c 74 0a 20 20 28 77 69 | rk.it.as.evaluation.result...(wi |
| dc1e0 | 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d | th-current-buffer.(slime-output- |
| dc200 | 62 75 66 66 65 72 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 | buffer).....(save-excursion..... |
| dc220 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 | ..(goto-char.slime-repl-input-st |
| dc240 | 61 72 74 2d 6d 61 72 6b 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 61 76 65 2d 6d 61 72 6b | art-mark).......(slime-save-mark |
| dc260 | 65 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 61 72 74 0a 09 28 67 6f 74 6f 2d 63 68 61 | er.slime-output-start..(goto-cha |
| dc280 | 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 09 | r.slime-repl-input-start-mark).. |
| dc2a0 | 28 77 68 65 6e 20 28 61 6e 64 20 62 6f 6c 20 28 6e 6f 74 20 28 62 6f 6c 70 29 29 29 20 28 69 6e | (when.(and.bol.(not.(bolp))).(in |
| dc2c0 | 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 2d 61 6e 64 2d 69 6e 68 65 72 69 74 20 | sert-before-markers-and-inherit. |
| dc2e0 | 22 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 61 76 65 2d 6d 61 72 6b 65 | "\n")).........(slime-save-marke |
| dc300 | 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c | r.slime-output-end...........(sl |
| dc320 | 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 20 60 28 66 61 63 65 20 73 6c 69 | ime-propertize-region.`(face.sli |
| dc340 | 6d 65 2d 72 65 70 6c 2d 72 65 73 75 6c 74 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | me-repl-result-face............. |
| dc360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 | ..............................re |
| dc380 | 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 28 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ar-nonsticky.(face))............ |
| dc3a0 | 20 28 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 73 74 72 69 6e 67 29 29 | .(insert-before-markers.string)) |
| dc3c0 | 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 20 73 6c 69 6d 65 2d 6f 75 74 70 | ).........(set-marker.slime-outp |
| dc3e0 | 75 74 2d 65 6e 64 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 | ut-end.(point)))).....(slime-rep |
| dc400 | 6c 2d 73 68 6f 77 2d 6d 61 78 69 6d 75 6d 2d 6f 75 74 70 75 74 29 29 29 0a 0a 28 64 65 66 76 61 | l-show-maximum-output)))..(defva |
| dc420 | 72 20 73 6c 69 6d 65 2d 6c 61 73 74 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 69 64 20 30 0a | r.slime-last-output-target-id.0. |
| dc440 | 20 20 22 54 68 65 20 6c 61 73 74 20 69 6e 74 65 67 65 72 20 77 65 20 75 73 65 64 20 61 73 20 61 | .."The.last.integer.we.used.as.a |
| dc460 | 20 54 41 52 47 45 54 20 69 64 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c | .TARGET.id.")..(defun.slime-repl |
| dc480 | 2d 65 6d 69 74 2d 74 6f 2d 74 61 72 67 65 74 20 28 73 74 72 69 6e 67 20 74 61 72 67 65 74 29 0a | -emit-to-target.(string.target). |
| dc4a0 | 20 20 22 49 6e 73 65 72 74 20 53 54 52 49 4e 47 20 61 74 20 74 61 72 67 65 74 20 54 41 52 47 45 | .."Insert.STRING.at.target.TARGE |
| dc4c0 | 54 2e 0a 53 65 65 20 60 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 74 6f 2d 6d | T..See.`slime-output-target-to-m |
| dc4e0 | 61 72 6b 65 72 27 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6d 61 72 6b 65 72 20 28 73 6c 69 6d 65 | arker'."...(let*.((marker.(slime |
| dc500 | 2d 72 65 70 6c 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 6d 61 72 6b 65 72 20 74 61 72 67 65 | -repl-output-target-marker.targe |
| dc520 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 61 6e 64 20 6d 61 72 6b 65 72 | t))..........(buffer.(and.marker |
| dc540 | 20 28 6d 61 72 6b 65 72 2d 62 75 66 66 65 72 20 6d 61 72 6b 65 72 29 29 29 29 0a 20 20 20 20 28 | .(marker-buffer.marker)))).....( |
| dc560 | 77 68 65 6e 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d | when.buffer.......(with-current- |
| dc580 | 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 | buffer.buffer.........(save-excu |
| dc5a0 | 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 6e 73 65 72 74 20 53 54 52 49 4e 47 | rsion...........;;.Insert.STRING |
| dc5c0 | 20 61 74 20 4d 41 52 4b 45 52 2c 20 74 68 65 6e 20 6d 6f 76 65 20 4d 41 52 4b 45 52 20 62 65 68 | .at.MARKER,.then.move.MARKER.beh |
| dc5e0 | 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 69 6e 73 65 72 74 69 6f 6e 2e 0a | ind...........;;.the.insertion.. |
| dc600 | 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6d 61 72 6b 65 72 29 0a 20 20 20 | ..........(goto-char.marker).... |
| dc620 | 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 73 74 | .......(insert-before-markers.st |
| dc640 | 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 20 6d 61 72 6b | ring)...........(set-marker.mark |
| dc660 | 65 72 20 28 70 6f 69 6e 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 | er.(point)))))))..(defun.slime-r |
| dc680 | 65 70 6c 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 6d 61 72 6b 65 72 20 28 74 61 72 67 65 74 | epl-output-target-marker.(target |
| dc6a0 | 29 0a 20 20 28 63 6c 2d 63 61 73 65 20 74 61 72 67 65 74 0a 20 20 20 20 28 28 6e 69 6c 29 0a 20 | )...(cl-case.target.....((nil).. |
| dc6c0 | 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d | ....(with-current-buffer.(slime- |
| dc6e0 | 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6f 75 74 70 | output-buffer)........slime-outp |
| dc700 | 75 74 2d 65 6e 64 29 29 0a 20 20 20 20 28 3a 72 65 70 6c 2d 72 65 73 75 6c 74 0a 20 20 20 20 20 | ut-end)).....(:repl-result...... |
| dc720 | 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 | (with-current-buffer.(slime-outp |
| dc740 | 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 | ut-buffer)........slime-repl-inp |
| dc760 | 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 29 0a 20 20 20 20 28 74 0a 20 20 20 20 20 28 73 6c 69 | ut-start-mark)).....(t......(sli |
| dc780 | 6d 65 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 6d 61 72 6b 65 72 20 74 61 72 67 65 74 29 29 | me-output-target-marker.target)) |
| dc7a0 | 29 29 0a 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f 2d 6f 75 74 70 | ))...(defun.slime-switch-to-outp |
| dc7c0 | 75 74 2d 62 75 66 66 65 72 20 28 29 0a 20 20 22 53 65 6c 65 63 74 20 74 68 65 20 6f 75 74 70 75 | ut-buffer.()..."Select.the.outpu |
| dc7e0 | 74 20 62 75 66 66 65 72 2c 20 77 68 65 6e 20 70 6f 73 73 69 62 6c 65 20 69 6e 20 61 6e 20 65 78 | t.buffer,.when.possible.in.an.ex |
| dc800 | 69 73 74 69 6e 67 20 77 69 6e 64 6f 77 2e 0a 0a 48 69 6e 74 3a 20 59 6f 75 20 63 61 6e 20 75 73 | isting.window...Hint:.You.can.us |
| dc820 | 65 20 60 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 72 65 75 73 65 2d 66 72 61 6d 65 73 27 20 | e.`display-buffer-reuse-frames'. |
| dc840 | 61 6e 64 0a 60 73 70 65 63 69 61 6c 2d 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 6e 61 6d 65 | and.`special-display-buffer-name |
| dc860 | 73 27 20 74 6f 20 63 75 73 74 6f 6d 69 7a 65 20 74 68 65 20 66 72 61 6d 65 20 69 6e 20 77 68 69 | s'.to.customize.the.frame.in.whi |
| dc880 | 63 68 0a 74 68 65 20 62 75 66 66 65 72 20 73 68 6f 75 6c 64 20 61 70 70 65 61 72 2e 22 0a 20 20 | ch.the.buffer.should.appear."... |
| dc8a0 | 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 | (interactive)...(pop-to-buffer.( |
| dc8c0 | 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 29 0a 20 20 28 67 6f 74 6f 2d 63 68 | slime-output-buffer))...(goto-ch |
| dc8e0 | 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 52 45 50 4c 0a 3b 3b | ar.(point-max)))....;;;;.REPL.;; |
| dc900 | 0a 3b 3b 20 54 68 65 20 52 45 50 4c 20 75 73 65 73 20 73 6f 6d 65 20 6d 61 72 6b 65 72 73 20 74 | .;;.The.REPL.uses.some.markers.t |
| dc920 | 6f 20 73 65 70 61 72 61 74 65 20 69 6e 70 75 74 20 66 72 6f 6d 20 6f 75 74 70 75 74 2e 20 20 54 | o.separate.input.from.output...T |
| dc940 | 68 65 0a 3b 3b 20 75 73 75 61 6c 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 69 73 20 61 73 20 | he.;;.usual.configuration.is.as. |
| dc960 | 66 6f 6c 6c 6f 77 73 3a 0a 3b 3b 0a 3b 3b 20 20 20 20 2e 2e 2e 20 6f 75 74 70 75 74 20 2e 2e 2e | follows:.;;.;;........output.... |
| dc980 | 20 20 20 20 2e 2e 2e 20 72 65 73 75 6c 74 20 2e 2e 2e 20 20 20 20 70 72 6f 6d 70 74 3e 20 2e 2e | ........result........prompt>... |
| dc9a0 | 2e 20 69 6e 70 75 74 20 2e 2e 2e 0a 3b 3b 20 20 20 20 5e 20 20 20 20 20 20 20 20 20 20 20 20 5e | ..input.....;;....^............^ |
| dc9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5e 20 20 20 20 20 20 20 5e 20 | ......................^.......^. |
| dc9e0 | 20 20 20 20 20 20 20 20 20 20 5e 0a 3b 3b 20 20 20 20 6f 75 74 70 75 74 2d 73 74 61 72 74 20 6f | ..........^.;;....output-start.o |
| dca00 | 75 74 70 75 74 2d 65 6e 64 20 20 70 72 6f 6d 70 74 2d 73 74 61 72 74 20 20 20 20 20 20 20 69 6e | utput-end..prompt-start.......in |
| dca20 | 70 75 74 2d 73 74 61 72 74 20 70 6f 69 6e 74 2d 6d 61 78 0a 3b 3b 0a 3b 3b 20 69 6e 70 75 74 2d | put-start.point-max.;;.;;.input- |
| dca40 | 73 74 61 72 74 20 69 73 20 61 20 72 69 67 68 74 20 69 6e 73 65 72 74 69 6e 67 20 6d 61 72 6b 65 | start.is.a.right.inserting.marke |
| dca60 | 72 2c 20 62 65 63 61 75 73 65 0a 3b 3b 20 77 65 20 77 61 6e 74 20 69 74 20 74 6f 20 73 74 61 79 | r,.because.;;.we.want.it.to.stay |
| dca80 | 20 62 65 68 69 6e 64 20 77 68 65 6e 20 74 68 65 20 75 73 65 72 20 69 6e 73 65 72 74 73 20 74 65 | .behind.when.the.user.inserts.te |
| dcaa0 | 78 74 2e 0a 3b 3b 0a 3b 3b 20 57 65 20 6d 61 69 6e 74 61 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 | xt..;;.;;.We.maintain.the.follow |
| dcac0 | 69 6e 67 20 69 6e 76 61 72 69 61 6e 74 3a 0a 3b 3b 0a 3b 3b 20 20 6f 75 74 70 75 74 2d 73 74 61 | ing.invariant:.;;.;;..output-sta |
| dcae0 | 72 74 20 3c 3d 20 6f 75 74 70 75 74 2d 65 6e 64 20 3c 3d 20 69 6e 70 75 74 2d 73 74 61 72 74 2e | rt.<=.output-end.<=.input-start. |
| dcb00 | 0a 3b 3b 0a 3b 3b 20 54 68 69 73 20 69 6e 76 61 72 69 61 6e 74 20 69 73 20 69 6d 70 6f 72 74 61 | .;;.;;.This.invariant.is.importa |
| dcb20 | 6e 74 2c 20 62 65 63 61 75 73 65 20 77 65 20 6d 75 73 74 20 62 65 20 70 72 65 70 61 72 65 64 20 | nt,.because.we.must.be.prepared. |
| dcb40 | 66 6f 72 0a 3b 3b 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 20 6f 75 74 70 75 74 20 61 6e 64 20 61 | for.;;.asynchronous.output.and.a |
| dcb60 | 73 79 6e 63 68 72 6f 6e 6f 75 73 20 72 65 61 64 73 2e 20 20 28 22 41 73 79 6e 63 68 72 6f 6e 6f | synchronous.reads...("Asynchrono |
| dcb80 | 75 73 22 20 6d 65 61 6e 73 2c 0a 3b 3b 20 74 72 69 67 67 65 72 65 64 20 62 79 20 4c 69 73 70 20 | us".means,.;;.triggered.by.Lisp. |
| dcba0 | 61 6e 64 20 6e 6f 74 20 62 79 20 45 6d 61 63 73 2e 29 0a 3b 3b 0a 3b 3b 20 41 6c 6c 20 6f 75 74 | and.not.by.Emacs.).;;.;;.All.out |
| dcbc0 | 70 75 74 20 69 73 20 69 6e 73 65 72 74 65 64 20 61 74 20 74 68 65 20 6f 75 74 70 75 74 2d 65 6e | put.is.inserted.at.the.output-en |
| dcbe0 | 64 20 6d 61 72 6b 65 72 2e 20 20 53 6f 6d 65 20 63 61 72 65 20 6d 75 73 74 20 62 65 0a 3b 3b 20 | d.marker...Some.care.must.be.;;. |
| dcc00 | 74 61 6b 65 6e 20 77 68 65 6e 20 6f 75 74 70 75 74 2d 65 6e 64 20 61 6e 64 20 69 6e 70 75 74 2d | taken.when.output-end.and.input- |
| dcc20 | 73 74 61 72 74 20 61 72 65 20 61 74 20 74 68 65 20 73 61 6d 65 20 70 6f 73 69 74 69 6f 6e 3a 20 | start.are.at.the.same.position:. |
| dcc40 | 69 66 0a 3b 3b 20 77 65 20 69 6e 73 65 72 74 20 61 74 20 74 68 61 74 20 70 6f 69 6e 74 2c 20 77 | if.;;.we.insert.at.that.point,.w |
| dcc60 | 65 20 6d 75 73 74 20 6d 6f 76 65 20 74 68 65 20 72 69 67 68 74 20 6d 61 72 6b 65 72 73 2e 20 20 | e.must.move.the.right.markers... |
| dcc80 | 57 65 20 73 68 6f 75 6c 64 0a 3b 3b 20 61 6c 73 6f 20 6e 6f 74 20 6c 65 61 76 65 20 28 77 69 6e | We.should.;;.also.not.leave.(win |
| dcca0 | 64 6f 77 2d 29 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 6d 69 64 64 6c 65 20 6f 66 20 74 68 65 20 | dow-)point.in.the.middle.of.the. |
| dccc0 | 6e 65 77 20 6f 75 74 70 75 74 2e 20 20 54 68 65 0a 3b 3b 20 69 64 69 6f 6d 20 77 65 20 75 73 65 | new.output...The.;;.idiom.we.use |
| dcce0 | 20 69 73 20 61 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 74 6f 20 73 6c 69 6d 65 2d 73 61 76 65 2d | .is.a.combination.to.slime-save- |
| dcd00 | 6d 61 72 6b 65 72 2c 0a 3b 3b 20 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 | marker,.;;.insert-before-markers |
| dcd20 | 2c 20 61 6e 64 20 6d 61 6e 75 61 6c 6c 79 20 75 70 64 61 74 69 6e 67 20 77 69 6e 64 6f 77 2d 70 | ,.and.manually.updating.window-p |
| dcd40 | 6f 69 6e 74 0a 3b 3b 20 61 66 74 65 72 77 61 72 64 73 2e 0a 3b 3b 0a 3b 3b 20 41 20 22 73 79 6e | oint.;;.afterwards..;;.;;.A."syn |
| dcd60 | 63 68 72 6f 6e 6f 75 73 22 20 65 76 61 6c 75 61 74 69 6f 6e 20 72 65 71 75 65 73 74 20 70 72 6f | chronous".evaluation.request.pro |
| dcd80 | 63 65 65 64 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 20 74 68 65 20 75 73 65 72 0a 3b 3b 20 69 6e | ceeds.as.follows:.the.user.;;.in |
| dcda0 | 73 65 72 74 73 20 73 6f 6d 65 20 74 65 78 74 20 62 65 74 77 65 65 6e 20 69 6e 70 75 74 2d 73 74 | serts.some.text.between.input-st |
| dcdc0 | 61 72 74 20 61 6e 64 20 70 6f 69 6e 74 2d 6d 61 78 20 61 6e 64 20 74 68 65 6e 20 68 69 74 73 0a | art.and.point-max.and.then.hits. |
| dcde0 | 3b 3b 20 72 65 74 75 72 6e 2e 20 20 57 65 20 73 65 6e 64 20 74 68 61 74 20 72 65 67 69 6f 6e 20 | ;;.return...We.send.that.region. |
| dce00 | 74 6f 20 4c 69 73 70 2c 20 6d 6f 76 65 20 74 68 65 20 6f 75 74 70 75 74 20 61 6e 64 20 69 6e 70 | to.Lisp,.move.the.output.and.inp |
| dce20 | 75 74 0a 3b 3b 20 6d 61 6b 65 72 73 20 74 6f 20 74 68 65 20 6c 69 6e 65 20 61 66 74 65 72 20 74 | ut.;;.makers.to.the.line.after.t |
| dce40 | 68 65 20 69 6e 70 75 74 20 61 6e 64 20 77 61 69 74 2e 20 20 57 68 65 6e 20 77 65 20 72 65 63 65 | he.input.and.wait...When.we.rece |
| dce60 | 69 76 65 20 74 68 65 0a 3b 3b 20 72 65 73 75 6c 74 2c 20 77 65 20 69 6e 73 65 72 74 20 69 74 20 | ive.the.;;.result,.we.insert.it. |
| dce80 | 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 61 20 70 72 6f 6d 70 74 20 62 65 74 77 65 65 6e 20 74 | together.with.a.prompt.between.t |
| dcea0 | 68 65 20 6f 75 74 70 75 74 2d 65 6e 64 0a 3b 3b 20 61 6e 64 20 69 6e 70 75 74 2d 73 74 61 72 74 | he.output-end.;;.and.input-start |
| dcec0 | 20 6d 61 72 6b 2e 20 20 53 65 65 20 60 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 65 72 74 2d 70 | .mark...See.`slime-repl-insert-p |
| dcee0 | 72 6f 6d 70 74 27 2e 0a 3b 3b 0a 3b 3b 20 49 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 74 68 61 | rompt'..;;.;;.It.is.possible.tha |
| dcf00 | 74 20 73 6f 6d 65 20 6f 75 74 70 75 74 20 66 6f 72 20 73 75 63 68 20 61 6e 20 65 76 61 6c 75 61 | t.some.output.for.such.an.evalua |
| dcf20 | 74 69 6f 6e 20 72 65 71 75 65 73 74 0a 3b 3b 20 61 72 72 69 76 65 73 20 61 66 74 65 72 20 74 68 | tion.request.;;.arrives.after.th |
| dcf40 | 65 20 72 65 73 75 6c 74 2e 20 20 54 68 69 73 20 6f 75 74 70 75 74 20 69 73 20 69 6e 73 65 72 74 | e.result...This.output.is.insert |
| dcf60 | 65 64 20 62 65 66 6f 72 65 20 74 68 65 0a 3b 3b 20 72 65 73 75 6c 74 20 28 61 6e 64 20 62 65 66 | ed.before.the.;;.result.(and.bef |
| dcf80 | 6f 72 65 20 74 68 65 20 70 72 6f 6d 70 74 29 2e 0a 3b 3b 0a 3b 3b 20 49 66 20 77 65 20 61 72 65 | ore.the.prompt)..;;.;;.If.we.are |
| dcfa0 | 20 69 6e 20 22 72 65 61 64 69 6e 67 22 20 73 74 61 74 65 2c 20 65 2e 67 2e 2c 20 64 75 72 69 6e | .in."reading".state,.e.g.,.durin |
| dcfc0 | 67 20 61 20 63 61 6c 6c 20 74 6f 20 59 2d 4f 52 2d 4e 2d 50 2c 0a 3b 3b 20 74 68 65 72 65 20 69 | g.a.call.to.Y-OR-N-P,.;;.there.i |
| dcfe0 | 73 20 6e 6f 20 70 72 6f 6d 70 74 20 62 65 74 77 65 65 6e 20 6f 75 74 70 75 74 2d 65 6e 64 20 61 | s.no.prompt.between.output-end.a |
| dd000 | 6e 64 20 69 6e 70 75 74 2d 73 74 61 72 74 2e 0a 3b 3b 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 73 6c | nd.input-start..;;..;;.FIXME:.sl |
| dd020 | 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 20 73 68 6f 75 6c 64 20 62 65 20 6c 6f 63 61 6c | ime-lisp-package.should.be.local |
| dd040 | 20 69 6e 20 61 20 52 45 50 4c 20 62 75 66 66 65 72 0a 28 73 6c 69 6d 65 2d 64 65 66 2d 63 6f 6e | .in.a.REPL.buffer.(slime-def-con |
| dd060 | 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 0a 20 | nection-var.slime-lisp-package.. |
| dd080 | 20 20 20 22 43 4f 4d 4d 4f 4e 2d 4c 49 53 50 2d 55 53 45 52 22 0a 20 20 22 54 68 65 20 63 75 72 | ..."COMMON-LISP-USER"..."The.cur |
| dd0a0 | 72 65 6e 74 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 53 75 70 65 72 69 6f | rent.package.name.of.the.Superio |
| dd0c0 | 72 20 6c 69 73 70 2e 0a 54 68 69 73 20 69 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 79 | r.lisp..This.is.automatically.sy |
| dd0e0 | 6e 63 68 72 6f 6e 69 7a 65 64 20 66 72 6f 6d 20 4c 69 73 70 2e 22 29 0a 0a 28 73 6c 69 6d 65 2d | nchronized.from.Lisp.")..(slime- |
| dd100 | 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 | def-connection-var.slime-lisp-pa |
| dd120 | 63 6b 61 67 65 2d 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 0a 20 20 20 20 22 43 4c 2d 55 53 45 52 | ckage-prompt-string....."CL-USER |
| dd140 | 22 0a 20 20 22 54 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 20 6f 66 | "..."The.current.package.name.of |
| dd160 | 20 74 68 65 20 53 75 70 65 72 69 6f 72 20 6c 69 73 70 2e 0a 54 68 69 73 20 69 73 20 61 75 74 6f | .the.Superior.lisp..This.is.auto |
| dd180 | 6d 61 74 69 63 61 6c 6c 79 20 73 79 6e 63 68 72 6f 6e 69 7a 65 64 20 66 72 6f 6d 20 4c 69 73 70 | matically.synchronized.from.Lisp |
| dd1a0 | 2e 22 29 0a 0a 28 73 6c 69 6d 65 2d 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 73 2d 62 75 66 66 65 | .")..(slime-make-variables-buffe |
| dd1c0 | 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 61 63 6b | r-local..(defvar.slime-repl-pack |
| dd1e0 | 61 67 65 2d 73 74 61 63 6b 20 6e 69 6c 0a 20 20 20 22 54 68 65 20 73 74 61 63 6b 20 6f 66 20 70 | age-stack.nil...."The.stack.of.p |
| dd200 | 61 63 6b 61 67 65 73 20 76 69 73 69 74 65 64 20 69 6e 20 74 68 69 73 20 72 65 70 6c 2e 22 29 0a | ackages.visited.in.this.repl."). |
| dd220 | 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 64 69 72 65 63 74 6f 72 79 2d 73 | ..(defvar.slime-repl-directory-s |
| dd240 | 74 61 63 6b 20 6e 69 6c 0a 20 20 20 22 54 68 65 20 73 74 61 63 6b 20 6f 66 20 64 65 66 61 75 6c | tack.nil...."The.stack.of.defaul |
| dd260 | 74 20 64 69 72 65 63 74 6f 72 69 65 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 | t.directories.associated.with.th |
| dd280 | 69 73 20 72 65 70 6c 2e 22 29 0a 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | is.repl.")...(defvar.slime-repl- |
| dd2a0 | 70 72 6f 6d 70 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d | prompt-start-mark)..(defvar.slim |
| dd2c0 | 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 28 64 65 66 76 61 | e-repl-input-start-mark)..(defva |
| dd2e0 | 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 6c 64 2d 69 6e 70 75 74 2d 63 6f 75 6e 74 65 72 20 30 | r.slime-repl-old-input-counter.0 |
| dd300 | 0a 20 20 20 22 43 6f 75 6e 74 65 72 20 75 73 65 64 20 74 6f 20 67 65 6e 65 72 61 74 65 20 75 6e | ...."Counter.used.to.generate.un |
| dd320 | 69 71 75 65 20 60 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 6c 64 2d 69 6e 70 75 74 27 20 70 72 6f 70 | ique.`slime-repl-old-input'.prop |
| dd340 | 65 72 74 69 65 73 2e 0a 54 68 69 73 20 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 20 6d 75 73 74 | erties..This.property.value.must |
| dd360 | 20 62 65 20 75 6e 69 71 75 65 20 74 6f 20 61 76 6f 69 64 20 68 61 76 69 6e 67 20 61 64 6a 61 63 | .be.unique.to.avoid.having.adjac |
| dd380 | 65 6e 74 20 69 6e 70 75 74 73 20 62 65 0a 6a 6f 69 6e 65 64 20 74 6f 67 65 74 68 65 72 2e 22 29 | ent.inputs.be.joined.together.") |
| dd3a0 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 73 65 74 2d 72 65 70 6c 2d 6d 61 72 6b 65 | )..(defun.slime-reset-repl-marke |
| dd3c0 | 72 73 20 28 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 6d 61 72 6b 6e 61 6d 65 20 27 28 73 6c 69 6d | rs.()...(dolist.(markname.'(slim |
| dd3e0 | 65 2d 6f 75 74 70 75 74 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-output-start.................. |
| dd400 | 20 20 20 20 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 | .....slime-output-end........... |
| dd420 | 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 6f 6d 70 74 2d 73 74 | ............slime-repl-prompt-st |
| dd440 | 61 72 74 2d 6d 61 72 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 | art-mark.......................s |
| dd460 | 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 29 0a 20 20 20 | lime-repl-input-start-mark)).... |
| dd480 | 20 28 73 65 74 20 6d 61 72 6b 6e 61 6d 65 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 29 0a 20 20 | .(set.markname.(make-marker))... |
| dd4a0 | 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 6d 61 72 6b | ..(set-marker.(symbol-value.mark |
| dd4c0 | 6e 61 6d 65 29 20 28 70 6f 69 6e 74 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 52 45 50 4c 20 6d 6f 64 | name).(point))))..;;;;;.REPL.mod |
| dd4e0 | 65 20 73 65 74 75 70 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 | e.setup..(defvar.slime-repl-mode |
| dd500 | 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b | -map...(let.((map.(make-sparse-k |
| dd520 | 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 | eymap))).....(set-keymap-parent. |
| dd540 | 6d 61 70 20 28 63 6f 70 79 2d 6b 65 79 6d 61 70 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 29 29 | map.(copy-keymap.lisp-mode-map)) |
| dd560 | 0a 20 20 20 20 6d 61 70 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 | .....map))..(slime-define-keys.s |
| dd580 | 6c 69 6d 65 2d 70 72 65 66 69 78 2d 6d 61 70 0a 20 20 28 22 5c 43 2d 7a 22 20 27 73 6c 69 6d 65 | lime-prefix-map...("\C-z".'slime |
| dd5a0 | 2d 73 77 69 74 63 68 2d 74 6f 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 28 22 5c 4d | -switch-to-output-buffer)...("\M |
| dd5c0 | 2d 70 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 74 2d 70 61 63 6b 61 67 65 29 29 0a 0a 28 | -p".'slime-repl-set-package))..( |
| dd5e0 | 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 | slime-define-keys.slime-mode-map |
| dd600 | 0a 20 20 28 22 5c 43 2d 63 7e 22 20 27 73 6c 69 6d 65 2d 73 79 6e 63 2d 70 61 63 6b 61 67 65 2d | ...("\C-c~".'slime-sync-package- |
| dd620 | 61 6e 64 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 22 5c 43 2d 63 5c | and-default-directory)...("\C-c\ |
| dd640 | 43 2d 79 22 20 27 73 6c 69 6d 65 2d 63 61 6c 6c 2d 64 65 66 75 6e 29 0a 20 20 28 22 5c 43 2d 63 | C-y".'slime-call-defun)...("\C-c |
| dd660 | 5c 43 2d 6a 22 20 27 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f | \C-j".'slime-eval-last-expressio |
| dd680 | 6e 2d 69 6e 2d 72 65 70 6c 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 | n-in-repl))..(slime-define-keys. |
| dd6a0 | 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 2d 6d 6f 64 65 2d 6d 61 70 0a 20 | slime-connection-list-mode-map.. |
| dd6c0 | 20 28 28 6b 62 64 20 22 52 45 54 22 29 20 27 73 6c 69 6d 65 2d 67 6f 74 6f 2d 63 6f 6e 6e 65 63 | .((kbd."RET").'slime-goto-connec |
| dd6e0 | 74 69 6f 6e 29 0a 20 20 28 5b 72 65 74 75 72 6e 5d 20 27 73 6c 69 6d 65 2d 67 6f 74 6f 2d 63 6f | tion)...([return].'slime-goto-co |
| dd700 | 6e 6e 65 63 74 69 6f 6e 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 | nnection))..(slime-define-keys.s |
| dd720 | 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 22 5c 43 2d 6d 22 20 27 73 6c | lime-repl-mode-map...("\C-m".'sl |
| dd740 | 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 29 0a 20 20 28 5b 72 65 74 75 72 6e 5d 20 27 73 6c | ime-repl-return)...([return].'sl |
| dd760 | 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 29 0a 20 20 28 22 5c 43 2d 6a 22 20 27 73 6c 69 6d | ime-repl-return)...("\C-j".'slim |
| dd780 | 65 2d 72 65 70 6c 2d 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 69 6e 64 65 6e 74 29 0a 20 20 28 22 5c | e-repl-newline-and-indent)...("\ |
| dd7a0 | 43 2d 5c 4d 2d 6d 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 6f 73 69 6e 67 2d 72 65 74 75 | C-\M-m".'slime-repl-closing-retu |
| dd7c0 | 72 6e 29 0a 20 20 28 5b 28 63 6f 6e 74 72 6f 6c 20 72 65 74 75 72 6e 29 5d 20 27 73 6c 69 6d 65 | rn)...([(control.return)].'slime |
| dd7e0 | 2d 72 65 70 6c 2d 63 6c 6f 73 69 6e 67 2d 72 65 74 75 72 6e 29 0a 20 20 28 22 5c 4d 2d 70 22 20 | -repl-closing-return)...("\M-p". |
| dd800 | 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 69 6e 70 75 74 29 0a 20 20 28 28 | 'slime-repl-previous-input)...(( |
| dd820 | 6b 62 64 20 22 43 2d 3c 75 70 3e 22 29 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 61 63 6b 77 61 | kbd."C-<up>").'slime-repl-backwa |
| dd840 | 72 64 2d 69 6e 70 75 74 29 0a 20 20 28 22 5c 4d 2d 6e 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d | rd-input)...("\M-n".'slime-repl- |
| dd860 | 6e 65 78 74 2d 69 6e 70 75 74 29 0a 20 20 28 28 6b 62 64 20 22 43 2d 3c 64 6f 77 6e 3e 22 29 20 | next-input)...((kbd."C-<down>"). |
| dd880 | 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 66 6f 72 77 61 72 64 2d 69 6e 70 75 74 29 0a 20 20 28 22 5c | 'slime-repl-forward-input)...("\ |
| dd8a0 | 4d 2d 72 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 6d 61 74 63 68 69 | M-r".'slime-repl-previous-matchi |
| dd8c0 | 6e 67 2d 69 6e 70 75 74 29 0a 20 20 28 22 5c 4d 2d 73 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d | ng-input)...("\M-s".'slime-repl- |
| dd8e0 | 6e 65 78 74 2d 6d 61 74 63 68 69 6e 67 2d 69 6e 70 75 74 29 0a 20 20 28 22 5c 43 2d 63 5c 43 2d | next-matching-input)...("\C-c\C- |
| dd900 | 63 22 20 27 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 29 0a 20 20 28 22 20 22 20 27 73 6c 69 | c".'slime-interrupt)...(".".'sli |
| dd920 | 6d 65 2d 73 70 61 63 65 29 0a 20 20 28 28 73 74 72 69 6e 67 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | me-space)...((string.slime-repl- |
| dd940 | 73 68 6f 72 74 63 75 74 2d 64 69 73 70 61 74 63 68 2d 63 68 61 72 29 20 27 73 6c 69 6d 65 2d 68 | shortcut-dispatch-char).'slime-h |
| dd960 | 61 6e 64 6c 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 29 0a 20 20 28 22 5c 43 2d 63 5c 43 2d | andle-repl-shortcut)...("\C-c\C- |
| dd980 | 6f 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 6f 75 74 70 75 74 29 0a 20 20 28 | o".'slime-repl-clear-output)...( |
| dd9a0 | 22 5c 43 2d 63 5c 4d 2d 6f 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 62 75 66 | "\C-c\M-o".'slime-repl-clear-buf |
| dd9c0 | 66 65 72 29 0a 20 20 28 22 5c 43 2d 63 5c 43 2d 75 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6b | fer)...("\C-c\C-u".'slime-repl-k |
| dd9e0 | 69 6c 6c 2d 69 6e 70 75 74 29 0a 20 20 28 22 5c 43 2d 63 5c 43 2d 6e 22 20 27 73 6c 69 6d 65 2d | ill-input)...("\C-c\C-n".'slime- |
| dda00 | 72 65 70 6c 2d 6e 65 78 74 2d 70 72 6f 6d 70 74 29 0a 20 20 28 22 5c 43 2d 63 5c 43 2d 70 22 20 | repl-next-prompt)...("\C-c\C-p". |
| dda20 | 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 70 72 6f 6d 70 74 29 0a 20 20 28 | 'slime-repl-previous-prompt)...( |
| dda40 | 22 5c 43 2d 63 5c 43 2d 7a 22 20 27 73 6c 69 6d 65 2d 6e 6f 70 29 0a 20 20 28 22 5c 43 2d 63 49 | "\C-c\C-z".'slime-nop)...("\C-cI |
| dda60 | 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 70 65 63 74 29 0a 20 20 28 22 5c 43 2d 78 5c | ".'slime-repl-inspect)...("\C-x\ |
| dda80 | 43 2d 65 22 20 27 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e | C-e".'slime-eval-last-expression |
| ddaa0 | 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 69 6d 65 2d 69 6e 73 | ))..(slime-define-keys.slime-ins |
| ddac0 | 70 65 63 74 6f 72 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 28 6b 62 64 20 22 4d 2d 52 45 54 22 29 | pector-mode-map...((kbd."M-RET") |
| ddae0 | 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 63 6f 70 79 2d 64 6f 77 6e 2d 74 6f 2d 72 | .'slime-inspector-copy-down-to-r |
| ddb00 | 65 70 6c 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 64 62 2d 6d | epl))..(slime-define-keys.sldb-m |
| ddb20 | 6f 64 65 2d 6d 61 70 0a 20 20 28 22 5c 43 2d 79 22 20 27 73 6c 64 62 2d 69 6e 73 65 72 74 2d 66 | ode-map...("\C-y".'sldb-insert-f |
| ddb40 | 72 61 6d 65 2d 63 61 6c 6c 2d 74 6f 2d 72 65 70 6c 29 0a 20 20 28 28 6b 62 64 20 22 4d 2d 52 45 | rame-call-to-repl)...((kbd."M-RE |
| ddb60 | 54 22 29 20 27 73 6c 64 62 2d 63 6f 70 79 2d 64 6f 77 6e 2d 74 6f 2d 72 65 70 6c 29 29 0a 0a 28 | T").'sldb-copy-down-to-repl))..( |
| ddb80 | 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 20 3f 72 0a 20 20 22 | def-slime-selector-method.?r..." |
| ddba0 | 53 4c 49 4d 45 20 52 65 61 64 2d 45 76 61 6c 2d 50 72 69 6e 74 2d 4c 6f 6f 70 2e 22 0a 20 20 28 | SLIME.Read-Eval-Print-Loop."...( |
| ddbc0 | 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d | slime-output-buffer))..(define-m |
| ddbe0 | 69 6e 6f 72 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 61 70 2d 6d 6f 64 65 0a 20 20 | inor-mode.slime-repl-map-mode... |
| ddc00 | 22 4d 69 6e 6f 72 20 6d 6f 64 65 20 77 68 69 63 68 20 6d 61 6b 65 73 20 73 6c 69 6d 65 2d 72 65 | "Minor.mode.which.makes.slime-re |
| ddc20 | 70 6c 2d 6d 6f 64 65 2d 6d 61 70 20 61 76 61 69 6c 61 62 6c 65 2e 0a 5c 5c 7b 73 6c 69 6d 65 2d | pl-mode-map.available..\\{slime- |
| ddc40 | 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 3a 69 6e 69 74 2d 76 61 6c 75 65 20 6e 69 | repl-mode-map}"...:init-value.ni |
| ddc60 | 6c 0a 20 20 3a 6c 69 67 68 74 65 72 20 6e 69 6c 0a 20 20 3a 6b 65 79 6d 61 70 20 73 6c 69 6d 65 | l...:lighter.nil...:keymap.slime |
| ddc80 | 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 | -repl-mode-map)..(defun.slime-re |
| ddca0 | 70 6c 2d 6d 6f 64 65 20 28 29 0a 20 20 22 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 69 6e 74 | pl-mode.()..."Major.mode.for.int |
| ddcc0 | 65 72 61 63 74 69 6e 67 20 77 69 74 68 20 61 20 73 75 70 65 72 69 6f 72 20 4c 69 73 70 2e 0a 5c | eracting.with.a.superior.Lisp..\ |
| ddce0 | 5c 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 28 69 6e 74 65 72 | \{slime-repl-mode-map}"...(inter |
| ddd00 | 61 63 74 69 76 65 29 0a 20 20 28 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 | active)...(kill-all-local-variab |
| ddd20 | 6c 65 73 29 0a 20 20 28 73 65 74 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 72 | les)...(setq.major-mode.'slime-r |
| ddd40 | 65 70 6c 2d 6d 6f 64 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 6d 6f 64 65 20 | epl-mode)...(slime-editing-mode. |
| ddd60 | 31 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 61 70 2d 6d 6f 64 65 20 31 29 0a 20 20 28 | 1)...(slime-repl-map-mode.1)...( |
| ddd80 | 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 20 74 29 0a 20 20 28 73 65 74 20 28 6d | lisp-mode-variables.t)...(set.(m |
| ddda0 | 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 2d | ake-local-variable.'lisp-indent- |
| dddc0 | 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e | function)........'common-lisp-in |
| ddde0 | 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 73 6c 69 6d 65 2d 73 65 74 75 70 2d 63 6f | dent-function)...(slime-setup-co |
| dde00 | 6d 70 6c 65 74 69 6f 6e 29 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 | mpletion)...(set.(make-local-var |
| dde20 | 69 61 62 6c 65 20 27 74 61 62 2d 61 6c 77 61 79 73 2d 69 6e 64 65 6e 74 29 20 27 63 6f 6d 70 6c | iable.'tab-always-indent).'compl |
| dde40 | 65 74 65 29 0a 20 20 28 73 65 74 71 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 65 66 61 75 6c 74 73 20 | ete)...(setq.font-lock-defaults. |
| dde60 | 6e 69 6c 29 0a 20 20 28 73 65 74 71 20 6d 6f 64 65 2d 6e 61 6d 65 20 22 52 45 50 4c 22 29 0a 20 | nil)...(setq.mode-name."REPL").. |
| dde80 | 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 3a 72 65 70 | .(setq.slime-current-thread.:rep |
| ddea0 | 6c 2d 74 68 72 65 61 64 29 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 | l-thread)...(set.(make-local-var |
| ddec0 | 69 61 62 6c 65 20 27 73 63 72 6f 6c 6c 2d 63 6f 6e 73 65 72 76 61 74 69 76 65 6c 79 29 20 32 30 | iable.'scroll-conservatively).20 |
| ddee0 | 29 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 73 | )...(set.(make-local-variable.'s |
| ddf00 | 63 72 6f 6c 6c 2d 6d 61 72 67 69 6e 29 20 30 29 0a 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 72 | croll-margin).0)...(when.slime-r |
| ddf20 | 65 70 6c 2d 68 69 73 74 6f 72 79 2d 66 69 6c 65 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c | epl-history-file.....(slime-repl |
| ddf40 | 2d 73 61 66 65 2d 6c 6f 61 64 2d 68 69 73 74 6f 72 79 29 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f | -safe-load-history).....(add-hoo |
| ddf60 | 6b 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 | k.'kill-buffer-hook............. |
| ddf80 | 20 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 61 66 65 2d 73 61 76 65 2d 6d 65 72 67 65 64 2d 68 | ..'slime-repl-safe-save-merged-h |
| ddfa0 | 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 61 70 70 65 6e 64 20 74 29 29 | istory...............'append.t)) |
| ddfc0 | 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6b 69 6c 6c 2d 65 6d 61 63 73 2d 68 6f 6f 6b 20 27 73 | ...(add-hook.'kill-emacs-hook.'s |
| ddfe0 | 6c 69 6d 65 2d 72 65 70 6c 2d 73 61 76 65 2d 61 6c 6c 2d 68 69 73 74 6f 72 69 65 73 29 0a 20 20 | lime-repl-save-all-histories)... |
| de000 | 3b 3b 20 41 74 20 74 68 65 20 52 45 50 4c 2c 20 77 65 20 64 65 66 69 6e 65 20 62 65 67 69 6e 6e | ;;.At.the.REPL,.we.define.beginn |
| de020 | 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 20 61 6e 64 20 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 20 74 6f | ing-of-defun.and.end-of-defun.to |
| de040 | 20 62 65 0a 20 20 3b 3b 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f | .be...;;.the.start.of.the.previo |
| de060 | 75 73 20 70 72 6f 6d 70 74 20 6f 72 20 6e 65 78 74 20 70 72 6f 6d 70 74 20 72 65 73 70 65 63 74 | us.prompt.or.next.prompt.respect |
| de080 | 69 76 65 6c 79 2e 0a 20 20 3b 3b 20 4e 6f 74 69 63 65 20 74 68 65 20 69 6e 74 65 72 70 6c 61 79 | ively....;;.Notice.the.interplay |
| de0a0 | 20 77 69 74 68 20 53 4c 49 4d 45 2d 52 45 50 4c 2d 42 45 47 49 4e 4e 49 4e 47 2d 4f 46 2d 44 45 | .with.SLIME-REPL-BEGINNING-OF-DE |
| de0c0 | 46 55 4e 2e 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 | FUN....(set.(make-local-variable |
| de0e0 | 20 27 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 | .'beginning-of-defun-function).. |
| de100 | 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 62 65 67 69 6e 6e 69 6e 67 | ......'slime-repl-mode-beginning |
| de120 | 2d 6f 66 2d 64 65 66 75 6e 29 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 | -of-defun)...(set.(make-local-va |
| de140 | 72 69 61 62 6c 65 20 27 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 | riable.'end-of-defun-function).. |
| de160 | 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 65 6e 64 2d 6f 66 2d 64 65 | ......'slime-repl-mode-end-of-de |
| de180 | 66 75 6e 29 0a 20 20 28 72 75 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 72 65 | fun)...(run-mode-hooks.'slime-re |
| de1a0 | 70 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 | pl-mode-hook))..(defun.slime-rep |
| de1c0 | 6c 2d 62 75 66 66 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 72 65 61 74 65 20 63 6f 6e 6e 65 | l-buffer.(&optional.create.conne |
| de1e0 | 63 74 69 6f 6e 29 0a 20 20 22 47 65 74 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 20 66 6f | ction)..."Get.the.REPL.buffer.fo |
| de200 | 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 3b 20 6f 70 74 69 6f 6e | r.the.current.connection;.option |
| de220 | 61 6c 6c 79 20 63 72 65 61 74 65 2e 22 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 69 66 20 63 72 65 | ally.create."...(funcall.(if.cre |
| de240 | 61 74 65 20 23 27 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 23 27 67 65 74 2d 62 75 | ate.#'get-buffer-create.#'get-bu |
| de260 | 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 2a 73 6c 69 6d 65 | ffer)............(format."*slime |
| de280 | 2d 72 65 70 6c 20 25 73 2a 22 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d | -repl.%s*".(slime-connection-nam |
| de2a0 | 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 | e.connection))))..(defun.slime-r |
| de2c0 | 65 70 6c 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d | epl.()...(interactive)...(slime- |
| de2e0 | 73 77 69 74 63 68 2d 74 6f 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 28 63 75 72 72 | switch-to-output-buffer)...(curr |
| de300 | 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | ent-buffer))..(defun.slime-repl- |
| de320 | 6d 6f 64 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 20 28 26 6f 70 74 69 6f 6e | mode-beginning-of-defun.(&option |
| de340 | 61 6c 20 61 72 67 29 0a 20 20 28 69 66 20 28 61 6e 64 20 61 72 67 20 28 3c 20 61 72 67 20 30 29 | al.arg)...(if.(and.arg.(<.arg.0) |
| de360 | 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 65 6e 64 2d 6f 66 2d | ).......(slime-repl-mode-end-of- |
| de380 | 64 65 66 75 6e 20 28 2d 20 61 72 67 29 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 28 | defun.(-.arg)).....(dotimes.(i.( |
| de3a0 | 6f 72 20 61 72 67 20 31 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 | or.arg.1)).......(slime-repl-pre |
| de3c0 | 76 69 6f 75 73 2d 70 72 6f 6d 70 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 | vious-prompt))))..(defun.slime-r |
| de3e0 | 65 70 6c 2d 6d 6f 64 65 2d 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 20 28 26 6f 70 74 69 6f 6e 61 6c | epl-mode-end-of-defun.(&optional |
| de400 | 20 61 72 67 29 0a 20 20 28 69 66 20 28 61 6e 64 20 61 72 67 20 28 3c 20 61 72 67 20 30 29 29 0a | .arg)...(if.(and.arg.(<.arg.0)). |
| de420 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 62 65 67 69 6e 6e 69 6e 67 | ......(slime-repl-mode-beginning |
| de440 | 2d 6f 66 2d 64 65 66 75 6e 20 28 2d 20 61 72 67 29 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 | -of-defun.(-.arg)).....(dotimes. |
| de460 | 28 69 20 28 6f 72 20 61 72 67 20 31 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c | (i.(or.arg.1)).......(slime-repl |
| de480 | 2d 6e 65 78 74 2d 70 72 6f 6d 70 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 | -next-prompt))))..(defun.slime-r |
| de4a0 | 65 70 6c 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 | epl-send-string.(string.&optiona |
| de4c0 | 6c 20 63 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 29 0a 20 20 28 63 6f 6e 64 20 28 73 6c 69 6d 65 | l.command-string)...(cond.(slime |
| de4e0 | 2d 72 65 70 6c 2d 72 65 61 64 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | -repl-read-mode..........(slime- |
| de500 | 72 65 70 6c 2d 72 65 74 75 72 6e 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 | repl-return-string.string))..... |
| de520 | 20 20 20 20 28 74 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 76 61 6c 2d 73 74 72 69 6e 67 20 73 | ....(t.(slime-repl-eval-string.s |
| de540 | 74 72 69 6e 67 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 76 61 | tring))))..(defun.slime-repl-eva |
| de560 | 6c 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 78 20 28 | l-string.(string)...(slime-rex.( |
| de580 | 29 0a 20 20 20 20 20 20 28 28 69 66 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 75 74 6f 2d 72 69 67 | ).......((if.slime-repl-auto-rig |
| de5a0 | 68 74 2d 6d 61 72 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b 2d 72 65 70 | ht-margin............`(swank-rep |
| de5c0 | 6c 3a 6c 69 73 74 65 6e 65 72 2d 65 76 61 6c 0a 09 20 20 20 20 20 2c 73 74 72 69 6e 67 0a 09 20 | l:listener-eval.......,string... |
| de5e0 | 20 20 20 20 3a 77 69 6e 64 6f 77 2d 77 69 64 74 68 0a 09 20 20 20 20 20 2c 28 77 69 74 68 2d 63 | ....:window-width.......,(with-c |
| de600 | 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 | urrent-buffer.(slime-output-buff |
| de620 | 65 72 29 0a 09 09 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 | er)...(window-width))).......... |
| de640 | 60 28 73 77 61 6e 6b 2d 72 65 70 6c 3a 6c 69 73 74 65 6e 65 72 2d 65 76 61 6c 20 2c 73 74 72 69 | `(swank-repl:listener-eval.,stri |
| de660 | 6e 67 29 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 29 | ng))........(slime-lisp-package) |
| de680 | 29 0a 20 20 20 20 28 28 3a 6f 6b 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d | ).....((:ok.result)......(slime- |
| de6a0 | 72 65 70 6c 2d 69 6e 73 65 72 74 2d 72 65 73 75 6c 74 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 | repl-insert-result.result))..... |
| de6c0 | 28 28 3a 61 62 6f 72 74 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d | ((:abort.condition)......(slime- |
| de6e0 | 72 65 70 6c 2d 73 68 6f 77 2d 61 62 6f 72 74 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 0a 0a 28 | repl-show-abort.condition))))..( |
| de700 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 65 72 74 2d 72 65 73 75 6c 74 20 28 | defun.slime-repl-insert-result.( |
| de720 | 72 65 73 75 6c 74 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 | result)...(with-current-buffer.( |
| de740 | 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 73 61 76 65 2d 65 | slime-output-buffer).....(save-e |
| de760 | 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 73 75 6c 74 0a 20 20 20 20 | xcursion.......(when.result..... |
| de780 | 20 20 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 | ....(slime-dcase.result......... |
| de7a0 | 20 20 28 28 3a 76 61 6c 75 65 73 20 26 72 65 73 74 20 73 74 72 69 6e 67 73 29 0a 20 20 20 20 20 | ..((:values.&rest.strings)...... |
| de7c0 | 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 73 74 72 69 6e 67 73 29 0a 20 20 20 20 | ......(cond.((null.strings)..... |
| de7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 6d 69 74 2d 72 | ..............(slime-repl-emit-r |
| de800 | 65 73 75 6c 74 20 22 3b 20 4e 6f 20 76 61 6c 75 65 5c 6e 22 20 74 29 29 0a 20 20 20 20 20 20 20 | esult.";.No.value\n".t))........ |
| de820 | 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ..........(t...................( |
| de840 | 64 6f 6c 69 73 74 20 28 73 20 73 74 72 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | dolist.(s.strings).............. |
| de860 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 6d 69 74 2d 72 65 73 75 6c 74 20 73 | .......(slime-repl-emit-result.s |
| de880 | 20 74 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 65 | .t))))))).......(slime-repl-inse |
| de8a0 | 72 74 2d 70 72 6f 6d 70 74 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 77 | rt-prompt)).....(slime-repl-show |
| de8c0 | 2d 6d 61 78 69 6d 75 6d 2d 6f 75 74 70 75 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | -maximum-output)))..(defun.slime |
| de8e0 | 2d 72 65 70 6c 2d 73 68 6f 77 2d 61 62 6f 72 74 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 | -repl-show-abort.(condition)...( |
| de900 | 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 | with-current-buffer.(slime-outpu |
| de920 | 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 | t-buffer).....(save-excursion... |
| de940 | 20 20 20 20 28 73 6c 69 6d 65 2d 73 61 76 65 2d 6d 61 72 6b 65 72 20 73 6c 69 6d 65 2d 6f 75 74 | ....(slime-save-marker.slime-out |
| de960 | 70 75 74 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 61 76 65 2d 6d 61 | put-start.........(slime-save-ma |
| de980 | 72 6b 65 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 | rker.slime-output-end........... |
| de9a0 | 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 65 6e 64 29 0a 20 20 20 | (goto-char.slime-output-end).... |
| de9c0 | 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 0a 20 20 | .......(insert-before-markers... |
| de9e0 | 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6f 6d 6d 65 6e 74 2d 6f 75 74 20 6d 75 6c 74 69 2d 6c 69 | .........;;.Comment-out.multi-li |
| dea00 | 6e 65 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 | ne.error.messages.............(f |
| dea20 | 6f 72 6d 61 74 20 22 3b 20 45 76 61 6c 75 61 74 69 6f 6e 20 61 62 6f 72 74 65 64 20 6f 6e 20 25 | ormat.";.Evaluation.aborted.on.% |
| dea40 | 73 2e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 | s.\n"....................(replac |
| dea60 | 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 6e 22 20 22 5c 6e 3b 20 22 20 63 | e-regexp-in-string."\n"."\n;.".c |
| dea80 | 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 | ondition)))...........(slime-rep |
| deaa0 | 6c 2d 69 6e 73 65 72 74 2d 70 72 6f 6d 70 74 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 | l-insert-prompt)))).....(slime-r |
| deac0 | 65 70 6c 2d 73 68 6f 77 2d 6d 61 78 69 6d 75 6d 2d 6f 75 74 70 75 74 29 29 29 0a 0a 28 64 65 66 | epl-show-maximum-output)))..(def |
| deae0 | 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 75 70 70 72 65 73 73 2d 70 72 6f 6d 70 74 20 6e | var.slime-repl-suppress-prompt.n |
| deb00 | 69 6c 0a 20 20 22 53 75 70 72 65 73 73 65 73 20 53 6c 69 6d 65 20 52 45 50 4c 20 70 72 6f 6d 70 | il..."Supresses.Slime.REPL.promp |
| deb20 | 74 20 77 68 65 6e 20 62 6f 75 6e 64 20 74 6f 20 54 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | t.when.bound.to.T.")..(defun.sli |
| deb40 | 6d 65 2d 72 65 70 6c 2d 69 6e 73 65 72 74 2d 70 72 6f 6d 70 74 20 28 29 0a 20 20 22 49 6e 73 65 | me-repl-insert-prompt.()..."Inse |
| deb60 | 72 74 20 74 68 65 20 70 72 6f 6d 70 74 20 28 62 65 66 6f 72 65 20 6d 61 72 6b 65 72 73 21 29 2e | rt.the.prompt.(before.markers!). |
| deb80 | 0a 53 65 74 20 70 6f 69 6e 74 20 61 66 74 65 72 20 74 68 65 20 70 72 6f 6d 70 74 2e 0a 52 65 74 | .Set.point.after.the.prompt..Ret |
| deba0 | 75 72 6e 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 72 6f 6d 70 74 20 62 | urn.the.position.of.the.prompt.b |
| debc0 | 65 67 69 6e 6e 69 6e 67 2e 0a 0a 49 66 20 60 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 75 70 70 72 65 | eginning...If.`slime-repl-suppre |
| debe0 | 73 73 2d 70 72 6f 6d 70 74 27 20 69 73 20 74 72 75 65 2c 20 64 6f 65 73 20 6e 6f 74 68 69 6e 67 | ss-prompt'.is.true,.does.nothing |
| dec00 | 20 61 6e 64 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 22 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | .and.returns.nil."...(goto-char. |
| dec20 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 20 28 | slime-repl-input-start-mark)...( |
| dec40 | 75 6e 6c 65 73 73 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 75 70 70 72 65 73 73 2d 70 72 6f 6d 70 | unless.slime-repl-suppress-promp |
| dec60 | 74 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 61 76 65 2d 6d 61 72 6b 65 72 20 73 6c 69 6d 65 2d 6f | t.....(slime-save-marker.slime-o |
| dec80 | 75 74 70 75 74 2d 73 74 61 72 74 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 61 76 65 2d 6d 61 | utput-start.......(slime-save-ma |
| deca0 | 72 6b 65 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 65 6e 64 0a 20 20 20 20 20 20 20 20 28 75 | rker.slime-output-end.........(u |
| decc0 | 6e 6c 65 73 73 20 28 62 6f 6c 70 29 20 28 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b | nless.(bolp).(insert-before-mark |
| dece0 | 65 72 73 20 22 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 6d 70 74 | ers."\n")).........(let.((prompt |
| ded00 | 2d 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | -start.(point))...............(p |
| ded20 | 72 6f 6d 70 74 20 28 66 6f 72 6d 61 74 20 22 25 73 3e 20 22 20 28 73 6c 69 6d 65 2d 6c 69 73 70 | rompt.(format."%s>.".(slime-lisp |
| ded40 | 2d 70 61 63 6b 61 67 65 2d 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 | -package-prompt-string))))...... |
| ded60 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 0a 20 20 | .....(slime-propertize-region... |
| ded80 | 20 20 20 20 20 20 20 20 20 20 20 20 27 28 66 61 63 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 | ............'(face.slime-repl-pr |
| deda0 | 6f 6d 70 74 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 | ompt-face......................r |
| dedc0 | 65 61 64 2d 6f 6e 6c 79 20 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 6f 6d 70 74 20 74 0a 20 | ead-only.t.slime-repl-prompt.t.. |
| dede0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 61 72 2d 6e 6f 6e 73 74 69 63 | ....................rear-nonstic |
| dee00 | 6b 79 20 74 20 66 72 6f 6e 74 2d 73 74 69 63 6b 79 20 28 72 65 61 64 2d 6f 6e 6c 79 29 0a 20 20 | ky.t.front-sticky.(read-only)... |
| dee20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 68 69 62 69 74 2d 6c 69 6e 65 2d | ...................inhibit-line- |
| dee40 | 6d 6f 76 65 2d 66 69 65 6c 64 2d 63 61 70 74 75 72 65 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 | move-field-capture.t............ |
| dee60 | 20 20 20 20 20 20 20 20 20 20 66 69 65 6c 64 20 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 | ..........field.output)......... |
| dee80 | 20 20 20 20 28 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 70 72 6f 6d 70 | ....(insert-before-markers.promp |
| deea0 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 20 73 6c 69 6d 65 2d | t))...........(set-marker.slime- |
| deec0 | 72 65 70 6c 2d 70 72 6f 6d 70 74 2d 73 74 61 72 74 2d 6d 61 72 6b 20 70 72 6f 6d 70 74 2d 73 74 | repl-prompt-start-mark.prompt-st |
| deee0 | 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 75 6e 64 6f | art)...........(setq.buffer-undo |
| def00 | 2d 6c 69 73 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 70 72 6f 6d 70 74 2d 73 74 61 72 | -list.nil)...........prompt-star |
| def20 | 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 77 2d 6d | t)))))..(defun.slime-repl-show-m |
| def40 | 61 78 69 6d 75 6d 2d 6f 75 74 70 75 74 20 28 29 0a 20 20 22 50 75 74 20 74 68 65 20 65 6e 64 20 | aximum-output.()..."Put.the.end. |
| def60 | 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 61 74 20 74 68 65 20 62 6f 74 74 6f 6d 20 6f 66 20 74 | of.the.buffer.at.the.bottom.of.t |
| def80 | 68 65 20 77 69 6e 64 6f 77 2e 22 0a 20 20 28 77 68 65 6e 20 28 65 6f 62 70 29 0a 20 20 20 20 28 | he.window."...(when.(eobp).....( |
| defa0 | 6c 65 74 20 28 28 77 69 6e 20 28 69 66 20 28 65 71 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 | let.((win.(if.(eq.(window-buffer |
| defc0 | 29 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ).(current-buffer))............. |
| defe0 | 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 | .......(selected-window)........ |
| df000 | 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 63 75 | ..........(get-buffer-window.(cu |
| df020 | 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 | rrent-buffer).t)))).......(when. |
| df040 | 77 69 6e 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f | win.........(with-selected-windo |
| df060 | 77 20 77 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 70 6f 69 6e | w.win...........(set-window-poin |
| df080 | 74 20 77 69 6e 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 | t.win.(point-max))...........(re |
| df0a0 | 63 65 6e 74 65 72 20 2d 31 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 | center.-1))))))..(defvar.slime-r |
| df0c0 | 65 70 6c 2d 63 75 72 72 65 6e 74 2d 69 6e 70 75 74 2d 68 6f 6f 6b 73 29 0a 0a 28 64 65 66 75 6e | epl-current-input-hooks)..(defun |
| df0e0 | 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 75 72 72 65 6e 74 2d 69 6e 70 75 74 20 28 26 6f 70 74 69 | .slime-repl-current-input.(&opti |
| df100 | 6f 6e 61 6c 20 75 6e 74 69 6c 2d 70 6f 69 6e 74 2d 70 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 | onal.until-point-p)..."Return.th |
| df120 | 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 61 73 20 73 74 72 69 6e 67 2e 0a 54 68 65 20 69 | e.current.input.as.string..The.i |
| df140 | 6e 70 75 74 20 69 73 20 74 68 65 20 72 65 67 69 6f 6e 20 66 72 6f 6d 20 61 66 74 65 72 20 74 68 | nput.is.the.region.from.after.th |
| df160 | 65 20 6c 61 73 74 20 70 72 6f 6d 70 74 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 0a 62 75 66 66 | e.last.prompt.to.the.end.of.buff |
| df180 | 65 72 2e 22 0a 20 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 | er."...(or.(run-hook-with-args-u |
| df1a0 | 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 75 72 72 65 6e 74 | ntil-success.'slime-repl-current |
| df1c0 | 2d 69 6e 70 75 74 2d 68 6f 6f 6b 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -input-hooks.................... |
| df1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 74 69 6c 2d 70 6f 69 6e 74 | .....................until-point |
| df200 | 2d 70 29 0a 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 | -p).......(buffer-substring-no-p |
| df220 | 72 6f 70 65 72 74 69 65 73 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 79 61 | roperties.(slime-repl-history-ya |
| df240 | 6e 6b 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nk-start)....................... |
| df260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 75 6e 74 69 6c 2d 70 6f 69 6e 74 2d | ................(if.until-point- |
| df280 | 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p............................... |
| df2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ............(point)............. |
| df2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 | ............................(poi |
| df2e0 | 6e 74 2d 6d 61 78 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 6f 70 65 72 | nt-max)))))..(defun.slime-proper |
| df300 | 74 79 2d 70 6f 73 69 74 69 6f 6e 20 28 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 26 6f 70 74 69 | ty-position.(text-property.&opti |
| df320 | 6f 6e 61 6c 20 6f 62 6a 65 63 74 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 | onal.object)..."Return.the.first |
| df340 | 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 54 45 58 54 2d 50 52 4f 50 45 52 54 59 2c 20 6f 72 20 6e | .position.of.TEXT-PROPERTY,.or.n |
| df360 | 69 6c 2e 22 0a 20 20 28 69 66 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 | il."...(if.(get-text-property.0. |
| df380 | 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 30 0a 20 20 | text-property.object).......0... |
| df3a0 | 20 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 30 | ..(next-single-property-change.0 |
| df3c0 | 20 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 6f 62 6a 65 63 74 29 29 29 0a 0a 28 64 65 66 75 6e | .text-property.object)))..(defun |
| df3e0 | 20 73 6c 69 6d 65 2d 6d 61 72 6b 2d 69 6e 70 75 74 2d 73 74 61 72 74 20 28 29 0a 20 20 28 73 65 | .slime-mark-input-start.()...(se |
| df400 | 74 2d 6d 61 72 6b 65 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d | t-marker.slime-repl-input-start- |
| df420 | 6d 61 72 6b 20 28 70 6f 69 6e 74 29 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a | mark.(point).(current-buffer))). |
| df440 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 72 6b 2d 6f 75 74 70 75 74 2d 73 74 61 72 74 20 | .(defun.slime-mark-output-start. |
| df460 | 28 29 0a 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 | ()...(set-marker.slime-output-st |
| df480 | 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 20 73 6c 69 6d 65 | art.(point))...(set-marker.slime |
| df4a0 | 2d 6f 75 74 70 75 74 2d 65 6e 64 20 28 70 6f 69 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | -output-end.(point)))..(defun.sl |
| df4c0 | 69 6d 65 2d 6d 61 72 6b 2d 6f 75 74 70 75 74 2d 65 6e 64 20 28 29 0a 20 20 3b 3b 20 44 6f 6e 27 | ime-mark-output-end.()...;;.Don' |
| df4e0 | 74 20 70 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 75 74 70 75 74 2d 66 61 63 65 20 61 67 61 | t.put.slime-repl-output-face.aga |
| df500 | 69 6e 3b 20 69 74 20 77 6f 75 6c 64 20 72 65 6d 6f 76 65 20 74 68 65 0a 20 20 3b 3b 20 73 70 65 | in;.it.would.remove.the...;;.spe |
| df520 | 63 69 61 6c 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 66 61 63 65 2c 20 66 6f 72 20 69 6e 73 74 | cial.presentation.face,.for.inst |
| df540 | 61 6e 63 65 20 69 6e 20 74 68 65 20 53 42 43 4c 20 69 6e 73 70 65 63 74 6f 72 2e 0a 20 20 28 61 | ance.in.the.SBCL.inspector....(a |
| df560 | 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d | dd-text-properties.slime-output- |
| df580 | 73 74 61 72 74 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 65 6e 64 0a 20 20 20 20 20 20 20 20 20 | start.slime-output-end.......... |
| df5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3b 3b 66 61 63 65 20 73 6c 69 6d 65 2d 72 65 70 | ..............'(;;face.slime-rep |
| df5c0 | 6c 2d 6f 75 74 70 75 74 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-output-face................... |
| df5e0 | 20 20 20 20 20 20 20 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 28 66 61 63 65 29 29 29 29 0a | .......rear-nonsticky.(face)))). |
| df600 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 72 76 65 2d 7a 6d 61 63 73 2d 72 65 67 | .(defun.slime-preserve-zmacs-reg |
| df620 | 69 6f 6e 20 28 29 0a 20 20 22 49 6e 20 58 45 6d 61 63 73 2c 20 65 6e 73 75 72 65 20 74 68 61 74 | ion.()..."In.XEmacs,.ensure.that |
| df640 | 20 74 68 65 20 7a 6d 61 63 73 2d 72 65 67 69 6f 6e 20 73 74 61 79 73 20 61 63 74 69 76 65 20 61 | .the.zmacs-region.stays.active.a |
| df660 | 66 74 65 72 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 2e 22 0a 20 20 28 77 68 65 6e 20 28 62 6f 75 | fter.this.command."...(when.(bou |
| df680 | 6e 64 70 20 27 7a 6d 61 63 73 2d 72 65 67 69 6f 6e 2d 73 74 61 79 73 29 0a 20 20 20 20 28 73 65 | ndp.'zmacs-region-stays).....(se |
| df6a0 | 74 20 27 7a 6d 61 63 73 2d 72 65 67 69 6f 6e 2d 73 74 61 79 73 20 74 29 29 29 0a 0a 28 64 65 66 | t.'zmacs-region-stays.t)))..(def |
| df6c0 | 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 2d 69 6e 70 75 74 2d 61 72 65 61 2d 70 20 28 29 | un.slime-repl-in-input-area-p.() |
| df6e0 | 0a 20 20 28 3c 3d 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 | ...(<=.slime-repl-input-start-ma |
| df700 | 72 6b 20 28 70 6f 69 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | rk.(point)))..(defun.slime-repl- |
| df720 | 61 74 2d 70 72 6f 6d 70 74 2d 73 74 61 72 74 2d 70 20 28 29 0a 20 20 3b 3b 20 54 68 69 73 20 77 | at-prompt-start-p.()...;;.This.w |
| df740 | 69 6c 6c 20 6e 6f 74 20 77 6f 72 6b 20 6f 6e 20 6e 6f 6e 2d 63 75 72 72 65 6e 74 20 70 72 6f 6d | ill.not.work.on.non-current.prom |
| df760 | 70 74 73 2e 0a 20 20 28 3d 20 28 70 6f 69 6e 74 29 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 | pts....(=.(point).slime-repl-inp |
| df780 | 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 | ut-start-mark))..(defun.slime-re |
| df7a0 | 70 6c 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 20 28 29 0a 20 20 22 4d 6f 76 65 | pl-beginning-of-defun.()..."Move |
| df7c0 | 20 74 6f 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 64 65 66 75 6e 2e 22 0a 20 20 28 69 6e 74 65 | .to.beginning.of.defun."...(inte |
| df7e0 | 72 61 63 74 69 76 65 29 0a 20 20 3b 3b 20 57 65 20 63 61 6c 6c 20 42 45 47 49 4e 4e 49 4e 47 2d | ractive)...;;.We.call.BEGINNING- |
| df800 | 4f 46 2d 44 45 46 55 4e 20 69 66 20 77 65 27 72 65 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f | OF-DEFUN.if.we're.at.the.start.o |
| df820 | 66 20 61 20 70 72 6f 6d 70 74 0a 20 20 3b 3b 20 61 6c 72 65 61 64 79 2c 20 74 6f 20 74 72 69 67 | f.a.prompt...;;.already,.to.trig |
| df840 | 67 65 72 20 53 4c 49 4d 45 2d 52 45 50 4c 2d 4d 4f 44 45 2d 42 45 47 49 4e 4e 49 4e 47 2d 4f 46 | ger.SLIME-REPL-MODE-BEGINNING-OF |
| df860 | 2d 44 45 46 55 4e 20 62 79 20 6d 65 61 6e 73 0a 20 20 3b 3b 20 6f 66 20 74 68 65 20 6c 6f 63 61 | -DEFUN.by.means...;;.of.the.loca |
| df880 | 6c 6c 79 20 62 6f 75 6e 64 20 42 45 47 49 4e 4e 49 4e 47 2d 4f 46 2d 44 45 46 55 4e 2d 46 55 4e | lly.bound.BEGINNING-OF-DEFUN-FUN |
| df8a0 | 43 54 49 4f 4e 2c 20 69 6e 20 6f 72 64 65 72 20 74 6f 0a 20 20 3b 3b 20 6a 75 6d 70 20 74 6f 20 | CTION,.in.order.to...;;.jump.to. |
| df8c0 | 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 70 72 6f 6d 70 74 | the.start.of.the.previous.prompt |
| df8e0 | 2e 0a 20 20 28 69 66 20 28 61 6e 64 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 74 | ....(if.(and.(not.(slime-repl-at |
| df900 | 2d 70 72 6f 6d 70 74 2d 73 74 61 72 74 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | -prompt-start-p))............(sl |
| df920 | 69 6d 65 2d 72 65 70 6c 2d 69 6e 2d 69 6e 70 75 74 2d 61 72 65 61 2d 70 29 29 0a 20 20 20 20 20 | ime-repl-in-input-area-p))...... |
| df940 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 | .(goto-char.slime-repl-input-sta |
| df960 | 72 74 2d 6d 61 72 6b 29 0a 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e | rt-mark).....(beginning-of-defun |
| df980 | 29 29 0a 20 20 74 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 74 68 69 73 20 6c 6f 6f 6b 73 20 76 65 | ))...t)..;;.FIXME:.this.looks.ve |
| df9a0 | 72 79 20 73 74 72 61 6e 67 65 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 6e 64 | ry.strange.(defun.slime-repl-end |
| df9c0 | 2d 6f 66 2d 64 65 66 75 6e 20 28 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 6e 65 78 74 20 6f 66 20 | -of-defun.()..."Move.to.next.of. |
| df9e0 | 64 65 66 75 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 3b 3b 20 43 2e 66 | defun."...(interactive)...;;.C.f |
| dfa00 | 2e 20 53 4c 49 4d 45 2d 52 45 50 4c 2d 42 45 47 49 4e 4e 49 4e 47 2d 4f 46 2d 44 45 46 55 4e 2e | ..SLIME-REPL-BEGINNING-OF-DEFUN. |
| dfa20 | 0a 20 20 28 69 66 20 28 61 6e 64 20 28 6e 6f 74 20 28 3d 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 | ...(if.(and.(not.(=.(point).(poi |
| dfa40 | 6e 74 2d 6d 61 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c | nt-max)))............(slime-repl |
| dfa60 | 2d 69 6e 2d 69 6e 70 75 74 2d 61 72 65 61 2d 70 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | -in-input-area-p)).......(goto-c |
| dfa80 | 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 28 65 6e 64 2d 6f 66 2d 64 65 66 | har.(point-max)).....(end-of-def |
| dfaa0 | 75 6e 29 29 0a 20 20 74 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 | un))...t)..(defun.slime-repl-pre |
| dfac0 | 76 69 6f 75 73 2d 70 72 6f 6d 70 74 20 28 29 0a 20 20 22 4d 6f 76 65 20 62 61 63 6b 77 61 72 64 | vious-prompt.()..."Move.backward |
| dfae0 | 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 70 72 6f 6d 70 74 2e 22 0a 20 20 28 69 6e 74 | .to.the.previous.prompt."...(int |
| dfb00 | 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 66 69 6e 64 2d 70 72 6f | eractive)...(slime-repl-find-pro |
| dfb20 | 6d 70 74 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d | mpt.t))..(defun.slime-repl-next- |
| dfb40 | 70 72 6f 6d 70 74 20 28 29 0a 20 20 22 4d 6f 76 65 20 66 6f 72 77 61 72 64 20 74 6f 20 74 68 65 | prompt.()..."Move.forward.to.the |
| dfb60 | 20 6e 65 78 74 20 70 72 6f 6d 70 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | .next.prompt."...(interactive).. |
| dfb80 | 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 66 69 6e 64 2d 70 72 6f 6d 70 74 29 29 0a 0a 28 64 65 66 | .(slime-repl-find-prompt))..(def |
| dfba0 | 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 66 69 6e 64 2d 70 72 6f 6d 70 74 20 28 26 6f 70 74 69 | un.slime-repl-find-prompt.(&opti |
| dfbc0 | 6f 6e 61 6c 20 62 61 63 6b 77 61 72 64 29 0a 20 20 28 6c 65 74 20 28 28 6f 72 69 67 69 6e 20 28 | onal.backward)...(let.((origin.( |
| dfbe0 | 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 70 20 27 73 6c 69 6d 65 2d 72 65 70 | point)).........(prop.'slime-rep |
| dfc00 | 6c 2d 70 72 6f 6d 70 74 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 70 72 6f 67 6e 0a 20 20 20 | l-prompt)).....(while.(progn.... |
| dfc20 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 70 72 6f 70 65 72 74 79 | ..........(slime-search-property |
| dfc40 | 2d 63 68 61 6e 67 65 20 70 72 6f 70 20 62 61 63 6b 77 61 72 64 29 0a 20 20 20 20 20 20 20 20 20 | -change.prop.backward).......... |
| dfc60 | 20 20 20 20 28 6e 6f 74 20 28 6f 72 20 28 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 70 72 6f 70 72 | ....(not.(or.(slime-end-of-propr |
| dfc80 | 61 6e 67 65 2d 70 20 70 72 6f 70 29 20 28 62 6f 62 70 29 20 28 65 6f 62 70 29 29 29 29 29 0a 20 | ange-p.prop).(bobp).(eobp))))).. |
| dfca0 | 20 20 20 28 75 6e 6c 65 73 73 20 28 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 70 72 6f 70 72 61 6e | ...(unless.(slime-end-of-propran |
| dfcc0 | 67 65 2d 70 20 70 72 6f 70 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6f 72 69 67 | ge-p.prop).......(goto-char.orig |
| dfce0 | 69 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 70 72 6f 70 | in))))..(defun.slime-search-prop |
| dfd00 | 65 72 74 79 2d 63 68 61 6e 67 65 20 28 70 72 6f 70 20 26 6f 70 74 69 6f 6e 61 6c 20 62 61 63 6b | erty-change.(prop.&optional.back |
| dfd20 | 77 61 72 64 29 0a 20 20 28 63 6f 6e 64 20 28 62 61 63 6b 77 61 72 64 0a 20 20 20 20 20 20 20 20 | ward)...(cond.(backward......... |
| dfd40 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 20 28 70 72 65 76 69 6f 75 73 2d 73 69 6e 67 6c 65 | .(goto-char.(or.(previous-single |
| dfd60 | 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 28 70 6f 69 6e 74 29 20 70 72 | -char-property-change.(point).pr |
| dfd80 | 6f 70 29 0a 09 09 09 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 | op)....(point-min)))).........(t |
| dfda0 | 0a 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 20 28 6e 65 78 74 2d 73 | ..........(goto-char.(or.(next-s |
| dfdc0 | 69 6e 67 6c 65 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 28 70 6f 69 6e | ingle-char-property-change.(poin |
| dfde0 | 74 29 20 70 72 6f 70 29 0a 09 09 09 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 29 0a 0a 28 64 | t).prop)....(point-max))))))..(d |
| dfe00 | 65 66 75 6e 20 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 70 72 6f 70 72 61 6e 67 65 2d 70 20 28 70 | efun.slime-end-of-proprange-p.(p |
| dfe20 | 72 6f 70 65 72 74 79 29 0a 20 20 28 61 6e 64 20 28 67 65 74 2d 63 68 61 72 2d 70 72 6f 70 65 72 | roperty)...(and.(get-char-proper |
| dfe40 | 74 79 20 28 6d 61 78 20 31 20 28 31 2d 20 28 70 6f 69 6e 74 29 29 29 20 70 72 6f 70 65 72 74 79 | ty.(max.1.(1-.(point))).property |
| dfe60 | 29 0a 20 20 20 20 20 20 20 28 6e 6f 74 20 28 67 65 74 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 | )........(not.(get-char-property |
| dfe80 | 20 28 70 6f 69 6e 74 29 20 70 72 6f 70 65 72 74 79 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 | .(point).property))))..(defvar.s |
| dfea0 | 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 2d 68 6f 6f 6b 73 29 0a 0a 28 64 65 66 75 6e 20 | lime-repl-return-hooks)..(defun. |
| dfec0 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 64 | slime-repl-return.(&optional.end |
| dfee0 | 2d 6f 66 2d 69 6e 70 75 74 29 0a 20 20 22 45 76 61 6c 75 61 74 65 20 74 68 65 20 63 75 72 72 65 | -of-input)..."Evaluate.the.curre |
| dff00 | 6e 74 20 69 6e 70 75 74 20 73 74 72 69 6e 67 2c 20 6f 72 20 69 6e 73 65 72 74 20 61 20 6e 65 77 | nt.input.string,.or.insert.a.new |
| dff20 | 6c 69 6e 65 2e 0a 53 65 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 6f 6e 6c | line..Send.the.current.input.onl |
| dff40 | 79 20 69 66 20 61 20 77 68 6f 6c 65 20 65 78 70 72 65 73 73 69 6f 6e 20 68 61 73 20 62 65 65 6e | y.if.a.whole.expression.has.been |
| dff60 | 20 65 6e 74 65 72 65 64 2c 0a 69 2e 65 2e 20 74 68 65 20 70 61 72 65 6e 74 68 65 73 69 73 20 61 | .entered,.i.e..the.parenthesis.a |
| dff80 | 72 65 20 6d 61 74 63 68 65 64 2e 0a 0a 57 69 74 68 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e | re.matched...With.prefix.argumen |
| dffa0 | 74 20 73 65 6e 64 20 74 68 65 20 69 6e 70 75 74 20 65 76 65 6e 20 69 66 20 74 68 65 20 70 61 72 | t.send.the.input.even.if.the.par |
| dffc0 | 65 6e 74 68 65 73 69 73 20 61 72 65 20 6e 6f 74 0a 62 61 6c 61 6e 63 65 64 2e 22 0a 20 20 28 69 | enthesis.are.not.balanced."...(i |
| dffe0 | 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 63 | nteractive."P")...(slime-check-c |
| e0000 | 6f 6e 6e 65 63 74 65 64 29 0a 20 20 28 63 6f 6e 64 20 28 65 6e 64 2d 6f 66 2d 69 6e 70 75 74 0a | onnected)...(cond.(end-of-input. |
| e0020 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 6e 64 2d 69 6e 70 75 74 29 | .........(slime-repl-send-input) |
| e0040 | 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 6d 6f 64 65 20 | ).........(slime-repl-read-mode. |
| e0060 | 3b 20 62 61 64 20 73 74 79 6c 65 3f 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 | ;.bad.style?..........(slime-rep |
| e0080 | 6c 2d 73 65 6e 64 2d 69 6e 70 75 74 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 | l-send-input.t)).........((and.( |
| e00a0 | 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 | get-text-property.(point).'slime |
| e00c0 | 2d 72 65 70 6c 2d 6f 6c 64 2d 69 6e 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -repl-old-input)...............( |
| e00e0 | 3c 20 28 70 6f 69 6e 74 29 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 | <.(point).slime-repl-input-start |
| e0100 | 2d 6d 61 72 6b 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 67 72 61 | -mark))..........(slime-repl-gra |
| e0120 | 62 2d 6f 6c 64 2d 69 6e 70 75 74 20 65 6e 64 2d 6f 66 2d 69 6e 70 75 74 29 0a 20 20 20 20 20 20 | b-old-input.end-of-input)....... |
| e0140 | 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 63 65 6e 74 65 72 2d 69 66 2d 6e 65 65 64 65 | ...(slime-repl-recenter-if-neede |
| e0160 | 64 29 29 0a 20 20 20 20 20 20 20 20 28 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 | d)).........((run-hook-with-args |
| e0180 | 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 | -until-success.'slime-repl-retur |
| e01a0 | 6e 2d 68 6f 6f 6b 73 20 65 6e 64 2d 6f 66 2d 69 6e 70 75 74 29 29 0a 20 20 20 20 20 20 20 20 28 | n-hooks.end-of-input)).........( |
| e01c0 | 28 73 6c 69 6d 65 2d 69 6e 70 75 74 2d 63 6f 6d 70 6c 65 74 65 2d 70 20 73 6c 69 6d 65 2d 72 65 | (slime-input-complete-p.slime-re |
| e01e0 | 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 | pl-input-start-mark.(point-max)) |
| e0200 | 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 6e 64 2d 69 6e 70 75 74 | ..........(slime-repl-send-input |
| e0220 | 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | .t)).........(t..........(slime- |
| e0240 | 72 65 70 6c 2d 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 69 6e 64 65 6e 74 29 0a 20 20 20 20 20 20 20 | repl-newline-and-indent)........ |
| e0260 | 20 20 28 6d 65 73 73 61 67 65 20 22 5b 69 6e 70 75 74 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 5d | ..(message."[input.not.complete] |
| e0280 | 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 63 65 6e 74 65 | "))))..(defun.slime-repl-recente |
| e02a0 | 72 2d 69 66 2d 6e 65 65 64 65 64 20 28 29 0a 20 20 22 4d 61 6b 65 20 73 75 72 65 20 74 68 61 74 | r-if-needed.()..."Make.sure.that |
| e02c0 | 20 28 70 6f 69 6e 74 29 20 69 73 20 76 69 73 69 62 6c 65 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 | .(point).is.visible."...(unless. |
| e02e0 | 28 70 6f 73 2d 76 69 73 69 62 6c 65 2d 69 6e 2d 77 69 6e 64 6f 77 2d 70 20 28 70 6f 69 6e 74 2d | (pos-visible-in-window-p.(point- |
| e0300 | 6d 61 78 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 | max)).....(save-excursion....... |
| e0320 | 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 28 72 | (goto-char.(point-max)).......(r |
| e0340 | 65 63 65 6e 74 65 72 20 2d 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 | ecenter.-1))))..(defun.slime-rep |
| e0360 | 6c 2d 73 65 6e 64 2d 69 6e 70 75 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 65 77 6c 69 6e 65 29 | l-send-input.(&optional.newline) |
| e0380 | 0a 20 20 22 47 6f 74 6f 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 69 6e 70 75 74 | ..."Goto.to.the.end.of.the.input |
| e03a0 | 20 61 6e 64 20 73 65 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 2e 0a 49 66 20 | .and.send.the.current.input..If. |
| e03c0 | 4e 45 57 4c 49 4e 45 20 69 73 20 74 72 75 65 20 74 68 65 6e 20 61 64 64 20 61 20 6e 65 77 6c 69 | NEWLINE.is.true.then.add.a.newli |
| e03e0 | 6e 65 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 69 6e 70 75 74 2e 22 0a 20 20 28 | ne.at.the.end.of.the.input."...( |
| e0400 | 75 6e 6c 65 73 73 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 2d 69 6e 70 75 74 2d 61 72 65 61 | unless.(slime-repl-in-input-area |
| e0420 | 2d 70 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 69 6e 70 75 74 20 61 74 20 70 6f 69 6e | -p).....(error."No.input.at.poin |
| e0440 | 74 2e 22 29 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a | t."))...(goto-char.(point-max)). |
| e0460 | 20 20 28 6c 65 74 20 28 28 65 6e 64 20 28 70 6f 69 6e 74 29 29 29 20 3b 20 65 6e 64 20 6f 66 20 | ..(let.((end.(point))).;.end.of. |
| e0480 | 69 6e 70 75 74 2c 20 77 69 74 68 6f 75 74 20 74 68 65 20 6e 65 77 6c 69 6e 65 0a 20 20 20 20 28 | input,.without.the.newline.....( |
| e04a0 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 64 64 2d 74 6f 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 0a | slime-repl-add-to-input-history. |
| e04c0 | 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 73 6c 69 6d 65 2d 72 65 70 | .....(buffer-substring.slime-rep |
| e04e0 | 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 20 65 6e 64 29 29 0a 20 20 20 20 28 77 68 | l-input-start-mark.end)).....(wh |
| e0500 | 65 6e 20 6e 65 77 6c 69 6e 65 0a 20 20 20 20 20 20 3b 3b 20 52 65 73 65 74 20 74 68 65 20 6f 75 | en.newline.......;;.Reset.the.ou |
| e0520 | 74 70 75 74 20 63 6f 6c 75 6d 6e 73 20 69 6e 64 65 70 65 6e 64 65 6e 74 6c 79 20 69 6e 20 63 61 | tput.columns.independently.in.ca |
| e0540 | 73 65 20 74 68 65 79 20 61 72 65 20 6f 75 74 20 6f 66 20 73 79 6e 63 2e 0a 20 20 20 20 20 20 28 | se.they.are.out.of.sync........( |
| e0560 | 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 | insert."\n").......(slime-repl-s |
| e0580 | 68 6f 77 2d 6d 61 78 69 6d 75 6d 2d 6f 75 74 70 75 74 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 | how-maximum-output)).....(let.(( |
| e05a0 | 69 6e 68 69 62 69 74 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 74 29 29 0a 20 | inhibit-modification-hooks.t)).. |
| e05c0 | 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 73 6c 69 6d 65 2d | .....(add-text-properties.slime- |
| e05e0 | 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 0a 20 20 20 20 20 20 20 20 20 20 | repl-input-start-mark........... |
| e0600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 | .................(point)........ |
| e0620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 6c 69 6d 65 2d 72 65 70 6c | ....................`(slime-repl |
| e0640 | 2d 6f 6c 64 2d 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -old-input...................... |
| e0660 | 20 20 20 20 20 20 20 20 2c 28 63 6c 2d 69 6e 63 66 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 6c 64 | ........,(cl-incf.slime-repl-old |
| e0680 | 2d 69 6e 70 75 74 2d 63 6f 75 6e 74 65 72 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6f 76 | -input-counter)))).....(let.((ov |
| e06a0 | 65 72 6c 61 79 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 | erlay.(make-overlay.slime-repl-i |
| e06c0 | 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 | nput-start-mark.end))).......;;. |
| e06e0 | 54 68 65 73 65 20 70 72 6f 70 65 72 74 69 65 73 20 61 72 65 20 6f 6e 20 61 6e 20 6f 76 65 72 6c | These.properties.are.on.an.overl |
| e0700 | 61 79 20 73 6f 20 74 68 61 74 20 74 68 65 79 20 77 6f 6e 27 74 20 62 65 20 74 61 6b 65 6e 0a 20 | ay.so.that.they.won't.be.taken.. |
| e0720 | 20 20 20 20 20 3b 3b 20 62 79 20 6b 69 6c 6c 2f 79 61 6e 6b 2e 0a 20 20 20 20 20 20 28 6f 76 65 | .....;;.by.kill/yank........(ove |
| e0740 | 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 66 61 63 65 20 27 73 6c 69 6d 65 2d 72 65 | rlay-put.overlay.'face.'slime-re |
| e0760 | 70 6c 2d 69 6e 70 75 74 2d 66 61 63 65 29 29 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 70 75 74 20 | pl-input-face)))...(let.((input. |
| e0780 | 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 75 72 72 65 6e 74 2d 69 6e 70 75 74 29 29 29 0a 20 20 20 | (slime-repl-current-input))).... |
| e07a0 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 28 73 6c | .(goto-char.(point-max)).....(sl |
| e07c0 | 69 6d 65 2d 6d 61 72 6b 2d 69 6e 70 75 74 2d 73 74 61 72 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 | ime-mark-input-start).....(slime |
| e07e0 | 2d 6d 61 72 6b 2d 6f 75 74 70 75 74 2d 73 74 61 72 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 | -mark-output-start).....(slime-r |
| e0800 | 65 70 6c 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 69 6e 70 75 74 29 29 29 0a 0a 28 64 65 66 75 6e | epl-send-string.input)))..(defun |
| e0820 | 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 67 72 61 62 2d 6f 6c 64 2d 69 6e 70 75 74 20 28 72 65 70 6c | .slime-repl-grab-old-input.(repl |
| e0840 | 61 63 65 29 0a 20 20 22 52 65 73 65 6e 64 20 74 68 65 20 6f 6c 64 20 52 45 50 4c 20 69 6e 70 75 | ace)..."Resend.the.old.REPL.inpu |
| e0860 | 74 20 61 74 20 70 6f 69 6e 74 2e 0a 49 66 20 72 65 70 6c 61 63 65 20 69 73 20 6e 6f 6e 2d 6e 69 | t.at.point..If.replace.is.non-ni |
| e0880 | 6c 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 69 73 20 72 65 70 6c 61 63 65 64 20 | l.the.current.input.is.replaced. |
| e08a0 | 77 69 74 68 20 74 68 65 20 6f 6c 64 0a 69 6e 70 75 74 3b 20 6f 74 68 65 72 77 69 73 65 20 74 68 | with.the.old.input;.otherwise.th |
| e08c0 | 65 20 6e 65 77 20 69 6e 70 75 74 20 69 73 20 61 70 70 65 6e 64 65 64 2e 20 20 54 68 65 20 6f 6c | e.new.input.is.appended...The.ol |
| e08e0 | 64 20 69 6e 70 75 74 20 68 61 73 20 74 68 65 0a 74 65 78 74 20 70 72 6f 70 65 72 74 79 20 60 73 | d.input.has.the.text.property.`s |
| e0900 | 6c 69 6d 65 2d 72 65 70 6c 2d 6f 6c 64 2d 69 6e 70 75 74 27 2e 22 0a 20 20 28 63 6c 2d 6d 75 6c | lime-repl-old-input'."...(cl-mul |
| e0920 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 62 65 67 20 65 6e 64 29 20 28 73 6c 69 6d | tiple-value-bind.(beg.end).(slim |
| e0940 | 65 2d 70 72 6f 70 65 72 74 79 2d 62 6f 75 6e 64 73 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 6c | e-property-bounds.'slime-repl-ol |
| e0960 | 64 2d 69 6e 70 75 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d 69 6e 70 75 74 20 28 62 | d-input).....(let.((old-input.(b |
| e0980 | 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 62 65 67 20 65 6e 64 29 29 20 3b 3b 70 72 65 73 | uffer-substring.beg.end)).;;pres |
| e09a0 | 65 72 76 65 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 70 72 6f 70 65 72 74 69 65 73 2c 20 74 68 65 | erve...........;;properties,.the |
| e09c0 | 79 20 77 69 6c 6c 20 62 65 20 72 65 6d 6f 76 65 64 20 6c 61 74 65 72 0a 20 20 20 20 20 20 20 20 | y.will.be.removed.later......... |
| e09e0 | 20 20 28 6f 66 66 73 65 74 20 28 2d 20 28 70 6f 69 6e 74 29 20 62 65 67 29 29 29 0a 20 20 20 20 | ..(offset.(-.(point).beg)))..... |
| e0a00 | 20 20 3b 3b 20 41 70 70 65 6e 64 20 74 68 65 20 6f 6c 64 20 69 6e 70 75 74 20 6f 72 20 72 65 70 | ..;;.Append.the.old.input.or.rep |
| e0a20 | 6c 61 63 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 0a 20 20 20 20 20 20 28 63 6f | lace.the.current.input.......(co |
| e0a40 | 6e 64 20 28 72 65 70 6c 61 63 65 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 69 6d 65 2d 72 65 70 | nd.(replace.(goto-char.slime-rep |
| e0a60 | 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | l-input-start-mark))............ |
| e0a80 | 20 28 74 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 | .(t.(goto-char.(point-max))..... |
| e0aa0 | 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 28 63 68 61 72 2d 62 65 66 | ...........(unless.(eq.(char-bef |
| e0ac0 | 6f 72 65 29 20 3f 5c 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 | ore).?\.)..................(inse |
| e0ae0 | 72 74 20 22 20 22 29 29 29 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 | rt.".")))).......(delete-region. |
| e0b00 | 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 | (point).(point-max)).......(save |
| e0b20 | 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 6f 6c 64 2d 69 | -excursion.........(insert.old-i |
| e0b40 | 6e 70 75 74 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 28 63 68 61 72 | nput).........(when.(equal.(char |
| e0b60 | 2d 62 65 66 6f 72 65 29 20 3f 5c 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d | -before).?\n)...........(delete- |
| e0b80 | 63 68 61 72 20 2d 31 29 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 6f | char.-1))).......(forward-char.o |
| e0ba0 | 66 66 73 65 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 6f | ffset))))..(defun.slime-repl-clo |
| e0bc0 | 73 69 6e 67 2d 72 65 74 75 72 6e 20 28 29 0a 20 20 22 45 76 61 6c 75 61 74 65 20 74 68 65 20 63 | sing-return.()..."Evaluate.the.c |
| e0be0 | 75 72 72 65 6e 74 20 69 6e 70 75 74 20 73 74 72 69 6e 67 20 61 66 74 65 72 20 63 6c 6f 73 69 6e | urrent.input.string.after.closin |
| e0c00 | 67 20 61 6c 6c 20 6f 70 65 6e 20 6c 69 73 74 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | g.all.open.lists."...(interactiv |
| e0c20 | 65 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 28 | e)...(goto-char.(point-max))...( |
| e0c40 | 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d | save-restriction.....(narrow-to- |
| e0c60 | 72 65 67 69 6f 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 | region.slime-repl-input-start-ma |
| e0c80 | 72 6b 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 69 67 6e 6f 72 65 2d 65 | rk.(point)).....(while.(ignore-e |
| e0ca0 | 72 72 6f 72 73 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 62 61 63 6b 77 61 72 64 2d | rrors.(save-excursion.(backward- |
| e0cc0 | 75 70 2d 6c 69 73 74 20 31 29 29 20 74 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 29 22 | up-list.1)).t).......(insert.")" |
| e0ce0 | 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 29 29 0a 0a 28 64 65 66 | )))...(slime-repl-return))..(def |
| e0d00 | 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 69 6e 64 65 6e 74 | un.slime-repl-newline-and-indent |
| e0d20 | 20 28 29 0a 20 20 22 49 6e 73 65 72 74 20 61 20 6e 65 77 6c 69 6e 65 2c 20 74 68 65 6e 20 69 6e | .()..."Insert.a.newline,.then.in |
| e0d40 | 64 65 6e 74 20 74 68 65 20 6e 65 78 74 20 6c 69 6e 65 2e 0a 52 65 73 74 72 69 63 74 20 74 68 65 | dent.the.next.line..Restrict.the |
| e0d60 | 20 62 75 66 66 65 72 20 66 72 6f 6d 20 74 68 65 20 70 72 6f 6d 70 74 20 66 6f 72 20 69 6e 64 65 | .buffer.from.the.prompt.for.inde |
| e0d80 | 6e 74 61 74 69 6f 6e 2c 20 74 6f 20 61 76 6f 69 64 20 62 65 69 6e 67 0a 63 6f 6e 66 75 73 65 64 | ntation,.to.avoid.being.confused |
| e0da0 | 20 62 79 20 73 74 72 61 6e 67 65 20 63 68 61 72 61 63 74 65 72 73 20 28 6c 69 6b 65 20 75 6e 6d | .by.strange.characters.(like.unm |
| e0dc0 | 61 74 63 68 65 64 20 71 75 6f 74 65 73 29 20 61 70 70 65 61 72 69 6e 67 0a 65 61 72 6c 69 65 72 | atched.quotes).appearing.earlier |
| e0de0 | 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | .in.the.buffer."...(interactive) |
| e0e00 | 0a 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 28 6e 61 72 72 6f 77 | ...(save-restriction.....(narrow |
| e0e20 | 2d 74 6f 2d 72 65 67 69 6f 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 6f 6d 70 74 2d 73 74 61 | -to-region.slime-repl-prompt-sta |
| e0e40 | 72 74 2d 6d 61 72 6b 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 | rt-mark.(point-max)).....(insert |
| e0e60 | 20 22 5c 6e 22 29 0a 20 20 20 20 28 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 29 29 29 0a | ."\n").....(lisp-indent-line))). |
| e0e80 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 64 65 6c 65 74 65 2d 63 75 72 72 65 6e | .(defun.slime-repl-delete-curren |
| e0ea0 | 74 2d 69 6e 70 75 74 20 28 29 0a 20 20 22 44 65 6c 65 74 65 20 61 6c 6c 20 74 65 78 74 20 66 72 | t-input.()..."Delete.all.text.fr |
| e0ec0 | 6f 6d 20 74 68 65 20 70 72 6f 6d 70 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a | om.the.prompt."...(interactive). |
| e0ee0 | 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 | ..(delete-region.(slime-repl-his |
| e0f00 | 74 6f 72 79 2d 79 61 6e 6b 2d 73 74 61 72 74 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 0a | tory-yank-start).(point-max))).. |
| e0f20 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f | (defun.slime-eval-last-expressio |
| e0f40 | 6e 2d 69 6e 2d 72 65 70 6c 20 28 70 72 65 66 69 78 29 0a 20 20 22 45 76 61 6c 75 61 74 65 73 20 | n-in-repl.(prefix)..."Evaluates. |
| e0f60 | 6c 61 73 74 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 20 74 68 65 20 53 6c 69 6d 65 20 52 45 50 | last.expression.in.the.Slime.REP |
| e0f80 | 4c 2e 0a 0a 53 77 69 74 63 68 65 73 20 52 45 50 4c 20 74 6f 20 63 75 72 72 65 6e 74 20 70 61 63 | L...Switches.REPL.to.current.pac |
| e0fa0 | 6b 61 67 65 20 6f 66 20 74 68 65 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 20 66 6f 72 20 74 68 | kage.of.the.source.buffer.for.th |
| e0fc0 | 65 20 64 75 72 61 74 69 6f 6e 2e 20 49 66 0a 75 73 65 64 20 77 69 74 68 20 61 20 70 72 65 66 69 | e.duration..If.used.with.a.prefi |
| e0fe0 | 78 20 61 72 67 75 6d 65 6e 74 20 28 43 2d 75 29 2c 20 64 6f 65 73 6e 27 74 20 73 77 69 74 63 68 | x.argument.(C-u),.doesn't.switch |
| e1000 | 20 62 61 63 6b 20 61 66 74 65 72 77 61 72 64 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | .back.afterwards."...(interactiv |
| e1020 | 65 20 22 50 22 29 0a 20 20 28 6c 65 74 20 28 28 65 78 70 72 20 28 73 6c 69 6d 65 2d 6c 61 73 74 | e."P")...(let.((expr.(slime-last |
| e1040 | 2d 65 78 70 72 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 6e 61 | -expression)).........(buffer-na |
| e1060 | 6d 65 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 | me.(buffer-name.(current-buffer) |
| e1080 | 29 29 0a 20 20 20 20 20 20 20 20 28 6e 65 77 2d 70 61 63 6b 61 67 65 20 28 73 6c 69 6d 65 2d 63 | )).........(new-package.(slime-c |
| e10a0 | 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 6f 6c 64 2d 70 61 | urrent-package)).........(old-pa |
| e10c0 | 63 6b 61 67 65 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 | ckage.(slime-lisp-package))..... |
| e10e0 | 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 75 70 70 72 65 73 73 2d 70 72 6f 6d 70 74 20 | ....(slime-repl-suppress-prompt. |
| e1100 | 74 29 0a 20 20 20 20 20 20 20 20 28 79 61 6e 6b 2d 62 61 63 6b 20 6e 69 6c 29 29 0a 20 20 20 20 | t).........(yank-back.nil))..... |
| e1120 | 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 | (with-current-buffer.(slime-outp |
| e1140 | 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 28 63 75 | ut-buffer).......(unless.(eq.(cu |
| e1160 | 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 29 29 0a 20 | rrent-buffer).(window-buffer)).. |
| e1180 | 20 20 20 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 | .......(pop-to-buffer.(current-b |
| e11a0 | 75 66 66 65 72 29 20 74 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 | uffer).t)).......(goto-char.(poi |
| e11c0 | 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 3b 3b 20 4b 69 6c 6c 20 70 65 6e 64 69 6e 67 20 69 | nt-max)).......;;.Kill.pending.i |
| e11e0 | 6e 70 75 74 20 69 6e 20 74 68 65 20 52 45 50 4c 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 3c 20 | nput.in.the.REPL.......(when.(<. |
| e1200 | 28 6d 61 72 6b 65 72 2d 70 6f 73 69 74 69 6f 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 | (marker-position.slime-repl-inpu |
| e1220 | 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 | t-start-mark).(point)).........( |
| e1240 | 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 | kill-region.slime-repl-input-sta |
| e1260 | 72 74 2d 6d 61 72 6b 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 79 | rt-mark.(point)).........(setq.y |
| e1280 | 61 6e 6b 2d 62 61 63 6b 20 74 29 29 0a 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 | ank-back.t)).......(unwind-prote |
| e12a0 | 63 74 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ct...........(progn............. |
| e12c0 | 28 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 28 66 6f 72 6d 61 74 20 22 | (insert-before-markers.(format." |
| e12e0 | 5c 6e 3b 3b 3b 20 66 72 6f 6d 20 25 73 5c 6e 22 20 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 0a 20 | \n;;;.from.%s\n".buffer-name)).. |
| e1300 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6e 65 77 2d 70 61 63 6b 61 67 65 0a 20 20 20 | ...........(when.new-package.... |
| e1320 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 74 2d 70 61 63 6b 61 | ...........(slime-repl-set-packa |
| e1340 | 67 65 20 6e 65 77 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | ge.new-package)).............(le |
| e1360 | 74 20 28 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 75 70 70 72 65 73 73 2d 70 72 6f 6d 70 74 20 6e | t.((slime-repl-suppress-prompt.n |
| e1380 | 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 | il))...............(slime-repl-i |
| e13a0 | 6e 73 65 72 74 2d 70 72 6f 6d 70 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 | nsert-prompt)).............(inse |
| e13c0 | 72 74 20 65 78 70 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c | rt.expr).............(slime-repl |
| e13e0 | 2d 72 65 74 75 72 6e 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 70 72 | -return)).........(unless.(or.pr |
| e1400 | 65 66 69 78 20 28 65 71 75 61 6c 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 29 | efix.(equal.(slime-lisp-package) |
| e1420 | 20 6f 6c 64 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 77 69 74 | .old-package))...........;;.Swit |
| e1440 | 63 68 20 62 61 63 6b 2e 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 | ch.back............(slime-repl-s |
| e1460 | 65 74 2d 70 61 63 6b 61 67 65 20 6f 6c 64 2d 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 | et-package.old-package)......... |
| e1480 | 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 75 70 70 72 65 73 73 2d 70 72 6f | ..(let.((slime-repl-suppress-pro |
| e14a0 | 6d 70 74 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 | mpt.nil)).............(slime-rep |
| e14c0 | 6c 2d 69 6e 73 65 72 74 2d 70 72 6f 6d 70 74 29 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 50 75 74 | l-insert-prompt)))).......;;.Put |
| e14e0 | 20 70 65 6e 64 69 6e 67 20 69 6e 70 75 74 20 62 61 63 6b 2e 0a 20 20 20 20 20 20 28 77 68 65 6e | .pending.input.back........(when |
| e1500 | 20 79 61 6e 6b 2d 62 61 63 6b 0a 20 20 20 20 20 20 20 20 28 79 61 6e 6b 29 29 29 29 29 0a 0a 28 | .yank-back.........(yank)))))..( |
| e1520 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6b 69 6c 6c 2d 69 6e 70 75 74 20 28 29 0a 20 | defun.slime-repl-kill-input.().. |
| e1540 | 20 22 4b 69 6c 6c 20 61 6c 6c 20 74 65 78 74 20 66 72 6f 6d 20 74 68 65 20 70 72 6f 6d 70 74 20 | ."Kill.all.text.from.the.prompt. |
| e1560 | 74 6f 20 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6f | to.point."...(interactive)...(co |
| e1580 | 6e 64 20 28 28 3c 20 28 6d 61 72 6b 65 72 2d 70 6f 73 69 74 69 6f 6e 20 73 6c 69 6d 65 2d 72 65 | nd.((<.(marker-position.slime-re |
| e15a0 | 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 | pl-input-start-mark).(point))... |
| e15c0 | 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 | .......(kill-region.slime-repl-i |
| e15e0 | 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 | nput-start-mark.(point)))....... |
| e1600 | 20 20 28 28 3d 20 28 70 6f 69 6e 74 29 20 28 6d 61 72 6b 65 72 2d 70 6f 73 69 74 69 6f 6e 20 73 | ..((=.(point).(marker-position.s |
| e1620 | 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 29 0a 20 20 20 | lime-repl-input-start-mark)).... |
| e1640 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 64 65 6c 65 74 65 2d 63 75 72 72 65 6e 74 | ......(slime-repl-delete-current |
| e1660 | 2d 69 6e 70 75 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 | -input))))..(defun.slime-repl-re |
| e1680 | 70 6c 61 63 65 2d 69 6e 70 75 74 20 28 73 74 72 69 6e 67 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 | place-input.(string)...(slime-re |
| e16a0 | 70 6c 2d 64 65 6c 65 74 65 2d 63 75 72 72 65 6e 74 2d 69 6e 70 75 74 29 0a 20 20 28 69 6e 73 65 | pl-delete-current-input)...(inse |
| e16c0 | 72 74 2d 61 6e 64 2d 69 6e 68 65 72 69 74 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 75 6e 20 | rt-and-inherit.string))..(defun. |
| e16e0 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d | slime-repl-input-line-beginning- |
| e1700 | 70 6f 73 69 74 69 6f 6e 20 28 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 | position.()...(save-excursion... |
| e1720 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 | ..(goto-char.slime-repl-input-st |
| e1740 | 61 72 74 2d 6d 61 72 6b 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 66 69 65 | art-mark).....(let.((inhibit-fie |
| e1760 | 6c 64 2d 74 65 78 74 2d 6d 6f 74 69 6f 6e 20 74 29 29 0a 20 20 20 20 20 20 28 6c 69 6e 65 2d 62 | ld-text-motion.t)).......(line-b |
| e1780 | 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | eginning-position))))..(defun.sl |
| e17a0 | 69 6d 65 2d 63 6c 65 61 72 2d 72 65 70 6c 2d 76 61 72 69 61 62 6c 65 73 20 28 29 0a 20 20 28 69 | ime-clear-repl-variables.()...(i |
| e17c0 | 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 | nteractive)...(slime-eval-async. |
| e17e0 | 60 28 73 77 61 6e 6b 2d 72 65 70 6c 3a 63 6c 65 61 72 2d 72 65 70 6c 2d 76 61 72 69 61 62 6c 65 | `(swank-repl:clear-repl-variable |
| e1800 | 73 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 62 | s)))..(defvar.slime-repl-clear-b |
| e1820 | 75 66 66 65 72 2d 68 6f 6f 6b 29 0a 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 72 65 | uffer-hook)..(add-hook.'slime-re |
| e1840 | 70 6c 2d 63 6c 65 61 72 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 63 6c 65 61 | pl-clear-buffer-hook.'slime-clea |
| e1860 | 72 2d 72 65 70 6c 2d 76 61 72 69 61 62 6c 65 73 29 0a 28 73 65 74 71 20 73 6c 69 6d 65 2d 74 65 | r-repl-variables).(setq.slime-te |
| e1880 | 72 6d 69 6e 61 6c 2d 6f 75 74 70 75 74 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 77 72 | rminal-output-function.'slime-wr |
| e18a0 | 69 74 65 2d 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 | ite-string)..(defun.slime-repl-c |
| e18c0 | 6c 65 61 72 2d 62 75 66 66 65 72 20 28 29 0a 20 20 22 44 65 6c 65 74 65 20 74 68 65 20 6f 75 74 | lear-buffer.()..."Delete.the.out |
| e18e0 | 70 75 74 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 | put.generated.by.the.Lisp.proces |
| e1900 | 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 | s."...(interactive)...(let.((inh |
| e1920 | 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 72 | ibit-read-only.t)).....(delete-r |
| e1940 | 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 6f | egion.(point-min).slime-repl-pro |
| e1960 | 6d 70 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 | mpt-start-mark).....(delete-regi |
| e1980 | 6f 6e 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 61 72 74 20 73 6c 69 6d 65 2d 6f 75 74 70 | on.slime-output-start.slime-outp |
| e19a0 | 75 74 2d 65 6e 64 29 0a 20 20 20 20 28 77 68 65 6e 20 28 3c 20 28 70 6f 69 6e 74 29 20 73 6c 69 | ut-end).....(when.(<.(point).sli |
| e19c0 | 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 20 20 20 20 20 | me-repl-input-start-mark)....... |
| e19e0 | 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 | (goto-char.slime-repl-input-star |
| e1a00 | 74 2d 6d 61 72 6b 29 29 0a 20 20 20 20 28 72 65 63 65 6e 74 65 72 20 74 29 29 0a 20 20 28 72 75 | t-mark)).....(recenter.t))...(ru |
| e1a20 | 6e 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 62 75 66 66 65 72 | n-hooks.'slime-repl-clear-buffer |
| e1a40 | 2d 68 6f 6f 6b 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 | -hook))..(defun.slime-repl-clear |
| e1a60 | 2d 6f 75 74 70 75 74 20 28 29 0a 20 20 22 44 65 6c 65 74 65 20 74 68 65 20 6f 75 74 70 75 74 20 | -output.()..."Delete.the.output. |
| e1a80 | 69 6e 73 65 72 74 65 64 20 73 69 6e 63 65 20 74 68 65 20 6c 61 73 74 20 69 6e 70 75 74 2e 22 0a | inserted.since.the.last.input.". |
| e1aa0 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 | ..(interactive)...(let.((start.( |
| e1ac0 | 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | save-excursion.................. |
| e1ae0 | 28 77 68 65 6e 20 28 3e 3d 20 28 70 6f 69 6e 74 29 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 | (when.(>=.(point).slime-repl-inp |
| e1b00 | 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ut-start-mark).................. |
| e1b20 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 | ..(goto-char.slime-repl-input-st |
| e1b40 | 61 72 74 2d 6d 61 72 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | art-mark))..................(sli |
| e1b60 | 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 70 72 6f 6d 70 74 29 0a 20 20 20 20 20 20 20 | me-repl-previous-prompt)........ |
| e1b80 | 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 6f 72 77 61 72 | ..........(ignore-errors.(forwar |
| e1ba0 | 64 2d 73 65 78 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 | d-sexp))..................(forwa |
| e1bc0 | 72 64 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 | rd-line)..................(point |
| e1be0 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 31 2d 20 28 73 6c 69 6d 65 2d 72 65 70 6c | ))).........(end.(1-.(slime-repl |
| e1c00 | 2d 69 6e 70 75 74 2d 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 | -input-line-beginning-position)) |
| e1c20 | 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 3c 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 | )).....(when.(<.start.end)...... |
| e1c40 | 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 | .(let.((inhibit-read-only.t))... |
| e1c60 | 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 0a | ......(delete-region.start.end). |
| e1c80 | 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 | ........(save-excursion......... |
| e1ca0 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 | ..(goto-char.start)...........(i |
| e1cc0 | 6e 73 65 72 74 20 22 3b 3b 3b 20 6f 75 74 70 75 74 20 66 6c 75 73 68 65 64 22 29 29 29 29 29 29 | nsert.";;;.output.flushed")))))) |
| e1ce0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 74 2d 70 61 63 6b 61 67 65 20 | ..(defun.slime-repl-set-package. |
| e1d00 | 28 70 61 63 6b 61 67 65 29 0a 20 20 22 53 65 74 20 74 68 65 20 70 61 63 6b 61 67 65 20 6f 66 20 | (package)..."Set.the.package.of. |
| e1d20 | 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 20 74 6f 20 50 41 43 4b 41 47 45 2e 22 0a 20 20 28 | the.REPL.buffer.to.PACKAGE."...( |
| e1d40 | 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 6c 65 74 2a 20 28 28 70 20 28 73 6c 69 | interactive.(list.(let*.((p.(sli |
| e1d60 | 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | me-current-package))............ |
| e1d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 20 28 61 6e 64 20 70 20 28 73 6c 69 6d | .................(p.(and.p.(slim |
| e1da0 | 65 2d 70 72 65 74 74 79 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 29 29 29 0a 20 20 20 20 20 | e-pretty-package-name.p)))...... |
| e1dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 20 28 61 6e 64 20 28 | .......................(p.(and.( |
| e1de0 | 6e 6f 74 20 28 65 71 75 61 6c 20 70 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 | not.(equal.p.(slime-lisp-package |
| e1e00 | 29 29 29 20 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ))).p)))........................ |
| e1e20 | 28 73 6c 69 6d 65 2d 72 65 61 64 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 22 50 61 63 6b 61 67 | (slime-read-package-name."Packag |
| e1e40 | 65 3a 20 22 20 70 29 29 29 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | e:.".p))))...(with-current-buffe |
| e1e60 | 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 6c 65 74 | r.(slime-output-buffer).....(let |
| e1e80 | 20 28 28 70 72 65 76 69 6f 75 73 65 2d 70 6f 69 6e 74 20 28 2d 20 28 70 6f 69 6e 74 29 20 73 6c | .((previouse-point.(-.(point).sl |
| e1ea0 | 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 29 0a 20 20 20 20 | ime-repl-input-start-mark))..... |
| e1ec0 | 20 20 20 20 20 20 28 70 72 65 76 69 6f 75 73 2d 70 72 6f 6d 70 74 20 28 73 6c 69 6d 65 2d 6c 69 | ......(previous-prompt.(slime-li |
| e1ee0 | 73 70 2d 70 61 63 6b 61 67 65 2d 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 | sp-package-prompt-string)))..... |
| e1f00 | 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6e 61 6d 65 20 70 | ..(cl-destructuring-bind.(name.p |
| e1f20 | 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 | rompt-string)...........(slime-r |
| e1f40 | 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 73 65 74 2d 70 61 | epl-shortcut-eval.`(swank:set-pa |
| e1f60 | 63 6b 61 67 65 20 2c 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 | ckage.,package)).........(setf.( |
| e1f80 | 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 29 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 | slime-lisp-package).name)....... |
| e1fa0 | 20 20 28 73 65 74 66 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 6e 61 6d | ..(setf.slime-buffer-package.nam |
| e1fc0 | 65 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 70 72 65 76 69 6f | e).........(unless.(equal.previo |
| e1fe0 | 75 73 2d 70 72 6f 6d 70 74 20 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 | us-prompt.prompt-string)........ |
| e2000 | 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 2d 70 72 6f | ...(setf.(slime-lisp-package-pro |
| e2020 | 6d 70 74 2d 73 74 72 69 6e 67 29 20 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 | mpt-string).prompt-string)...... |
| e2040 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 65 72 74 2d 70 72 6f 6d 70 74 29 29 | .....(slime-repl-insert-prompt)) |
| e2060 | 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 6c 2d 70 6c 75 73 70 20 70 72 65 76 69 6f 75 | .........(when.(cl-plusp.previou |
| e2080 | 73 65 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | se-point)...........(goto-char.( |
| e20a0 | 2b 20 70 72 65 76 69 6f 75 73 65 2d 70 6f 69 6e 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 | +.previouse-point.slime-repl-inp |
| e20c0 | 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 48 69 | ut-start-mark)))))))....;;;;;.Hi |
| e20e0 | 73 74 6f 72 79 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 77 72 61 | story..(defcustom.slime-repl-wra |
| e2100 | 70 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 2a 54 20 74 6f 20 77 72 61 70 20 68 69 73 74 | p-history.nil..."*T.to.wrap.hist |
| e2120 | 6f 72 79 20 61 72 6f 75 6e 64 20 77 68 65 6e 20 74 68 65 20 65 6e 64 20 69 73 20 72 65 61 63 68 | ory.around.when.the.end.is.reach |
| e2140 | 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 | ed."...:type.'boolean...:group.' |
| e2160 | 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 | slime-repl)..(make-variable-buff |
| e2180 | 65 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 | er-local..(defvar.slime-repl-inp |
| e21a0 | 75 74 2d 68 69 73 74 6f 72 79 20 27 28 29 0a 20 20 20 22 48 69 73 74 6f 72 79 20 6c 69 73 74 20 | ut-history.'()...."History.list. |
| e21c0 | 6f 66 20 73 74 72 69 6e 67 73 20 72 65 61 64 20 66 72 6f 6d 20 74 68 65 20 52 45 50 4c 20 62 75 | of.strings.read.from.the.REPL.bu |
| e21e0 | 66 66 65 72 2e 22 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 64 64 2d | ffer."))..(defun.slime-repl-add- |
| e2200 | 74 6f 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 20 28 73 74 72 69 6e 67 29 0a 20 20 22 41 64 64 | to-input-history.(string)..."Add |
| e2220 | 20 53 54 52 49 4e 47 20 74 6f 20 74 68 65 20 69 6e 70 75 74 20 68 69 73 74 6f 72 79 2e 0a 45 6d | .STRING.to.the.input.history..Em |
| e2240 | 70 74 79 20 73 74 72 69 6e 67 73 20 61 6e 64 20 64 75 70 6c 69 63 61 74 65 73 20 61 72 65 20 69 | pty.strings.and.duplicates.are.i |
| e2260 | 67 6e 6f 72 65 64 2e 22 0a 20 20 28 73 65 74 71 20 73 74 72 69 6e 67 20 28 73 6c 69 6d 65 2d 74 | gnored."...(setq.string.(slime-t |
| e2280 | 72 69 6d 2d 77 68 69 74 65 73 70 61 63 65 20 73 74 72 69 6e 67 29 29 0a 20 20 28 75 6e 6c 65 73 | rim-whitespace.string))...(unles |
| e22a0 | 73 20 28 65 71 75 61 6c 20 73 74 72 69 6e 67 20 22 22 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c | s.(equal.string."").....(setq.sl |
| e22c0 | 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 | ime-repl-input-history.......... |
| e22e0 | 20 28 72 65 6d 6f 76 65 20 73 74 72 69 6e 67 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 | .(remove.string.slime-repl-input |
| e2300 | 2d 68 69 73 74 6f 72 79 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 73 74 | -history)).....(unless.(equal.st |
| e2320 | 72 69 6e 67 20 28 63 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f | ring.(car.slime-repl-input-histo |
| e2340 | 72 79 29 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 73 74 72 69 6e 67 20 73 6c 69 6d 65 2d 72 65 | ry)).......(push.string.slime-re |
| e2360 | 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 29 29 29 29 0a 0a 3b 3b 20 54 68 65 73 65 20 74 | pl-input-history))))..;;.These.t |
| e2380 | 77 6f 20 76 61 72 73 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 74 68 65 | wo.vars.contain.the.state.of.the |
| e23a0 | 20 6c 61 73 74 20 68 69 73 74 6f 72 79 20 73 65 61 72 63 68 2e 20 20 57 65 0a 3b 3b 20 6f 6e 6c | .last.history.search...We.;;.onl |
| e23c0 | 79 20 75 73 65 20 74 68 65 6d 20 69 66 20 60 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 27 20 77 61 73 | y.use.them.if.`last-command'.was |
| e23e0 | 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 72 65 70 6c 61 63 65 2c 0a 3b 3b | .'slime-repl-history-replace,.;; |
| e2400 | 20 6f 74 68 65 72 77 69 73 65 20 77 65 20 72 65 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 6d 2e | .otherwise.we.reinitialize.them. |
| e2420 | 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f | ..(defvar.slime-repl-input-histo |
| e2440 | 72 79 2d 70 6f 73 69 74 69 6f 6e 20 2d 31 0a 20 20 22 4e 65 77 65 72 20 69 74 65 6d 73 20 68 61 | ry-position.-1..."Newer.items.ha |
| e2460 | 76 65 20 73 6d 61 6c 6c 65 72 20 69 6e 64 69 63 65 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 | ve.smaller.indices.")..(defvar.s |
| e2480 | 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 70 61 74 74 65 72 6e 20 6e 69 6c 0a 20 20 | lime-repl-history-pattern.nil... |
| e24a0 | 22 54 68 65 20 72 65 67 65 78 70 20 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 20 75 73 65 64 20 66 | "The.regexp.most.recently.used.f |
| e24c0 | 6f 72 20 66 69 6e 64 69 6e 67 20 69 6e 70 75 74 20 68 69 73 74 6f 72 79 2e 22 29 0a 0a 28 64 65 | or.finding.input.history.")..(de |
| e24e0 | 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 72 65 70 6c 61 63 65 20 28 | fun.slime-repl-history-replace.( |
| e2500 | 64 69 72 65 63 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 67 65 78 70 29 0a 20 20 22 52 | direction.&optional.regexp)..."R |
| e2520 | 65 70 6c 61 63 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 77 69 74 68 20 74 68 | eplace.the.current.input.with.th |
| e2540 | 65 20 6e 65 78 74 20 6c 69 6e 65 20 69 6e 20 44 49 52 45 43 54 49 4f 4e 2e 0a 44 49 52 45 43 54 | e.next.line.in.DIRECTION..DIRECT |
| e2560 | 49 4f 4e 20 69 73 20 27 66 6f 72 77 61 72 64 27 20 6f 72 20 27 62 61 63 6b 77 61 72 64 27 20 28 | ION.is.'forward'.or.'backward'.( |
| e2580 | 69 6e 20 74 68 65 20 68 69 73 74 6f 72 79 20 6c 69 73 74 29 2e 0a 49 66 20 52 45 47 45 58 50 20 | in.the.history.list)..If.REGEXP. |
| e25a0 | 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 6f 6e 6c 79 20 6c 69 6e 65 73 20 6d 61 74 63 68 69 6e 67 20 | is.non-nil,.only.lines.matching. |
| e25c0 | 52 45 47 45 58 50 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 2e 22 0a 20 20 28 73 65 74 71 20 | REGEXP.are.considered."...(setq. |
| e25e0 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 70 61 74 74 65 72 6e 20 72 65 67 65 78 | slime-repl-history-pattern.regex |
| e2600 | 70 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 69 6e 2d 70 6f 73 20 2d 31 29 0a 20 20 20 20 20 20 20 | p)...(let*.((min-pos.-1)........ |
| e2620 | 20 20 28 6d 61 78 2d 70 6f 73 20 28 6c 65 6e 67 74 68 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e | ..(max-pos.(length.slime-repl-in |
| e2640 | 70 75 74 2d 68 69 73 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 6f 73 30 20 28 63 6f | put-history))..........(pos0.(co |
| e2660 | 6e 64 20 28 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 73 65 61 72 63 68 2d 69 | nd.((slime-repl-history-search-i |
| e2680 | 6e 2d 70 72 6f 67 72 65 73 73 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n-progress-p)................... |
| e26a0 | 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 2d 70 6f 73 | ....slime-repl-input-history-pos |
| e26c0 | 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 6d | ition)......................(t.m |
| e26e0 | 69 6e 2d 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 73 6c 69 6d 65 2d 72 | in-pos)))..........(pos.(slime-r |
| e2700 | 65 70 6c 2d 70 6f 73 69 74 69 6f 6e 2d 69 6e 2d 68 69 73 74 6f 72 79 20 70 6f 73 30 20 64 69 72 | epl-position-in-history.pos0.dir |
| e2720 | 65 63 74 69 6f 6e 20 28 6f 72 20 72 65 67 65 78 70 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 | ection.(or.regexp."")........... |
| e2740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| e2760 | 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 75 72 72 65 6e 74 2d 69 6e 70 75 74 29 29 29 | ....(slime-repl-current-input))) |
| e2780 | 0a 20 20 20 20 20 20 20 20 20 28 6d 73 67 20 6e 69 6c 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 | ..........(msg.nil)).....(cond.( |
| e27a0 | 28 61 6e 64 20 28 3c 20 6d 69 6e 2d 70 6f 73 20 70 6f 73 29 20 28 3c 20 70 6f 73 20 6d 61 78 2d | (and.(<.min-pos.pos).(<.pos.max- |
| e27c0 | 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 70 | pos))............(slime-repl-rep |
| e27e0 | 6c 61 63 65 2d 69 6e 70 75 74 20 28 6e 74 68 20 70 6f 73 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 | lace-input.(nth.pos.slime-repl-i |
| e2800 | 6e 70 75 74 2d 68 69 73 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | nput-history))............(setq. |
| e2820 | 6d 73 67 20 28 66 6f 72 6d 61 74 20 22 48 69 73 74 6f 72 79 20 69 74 65 6d 3a 20 25 64 22 20 70 | msg.(format."History.item:.%d".p |
| e2840 | 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 73 6c 69 6d 65 2d 72 65 70 6c | os)))...........((not.slime-repl |
| e2860 | 2d 77 72 61 70 2d 68 69 73 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | -wrap-history)............(setq. |
| e2880 | 6d 73 67 20 28 63 6f 6e 64 20 28 28 3d 20 70 6f 73 20 6d 69 6e 2d 70 6f 73 29 20 22 45 6e 64 20 | msg.(cond.((=.pos.min-pos)."End. |
| e28a0 | 6f 66 20 68 69 73 74 6f 72 79 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | of.history").................... |
| e28c0 | 20 20 20 20 20 20 20 20 28 28 3d 20 70 6f 73 20 6d 61 78 2d 70 6f 73 29 20 22 42 65 67 69 6e 6e | ........((=.pos.max-pos)."Beginn |
| e28e0 | 69 6e 67 20 6f 66 20 68 69 73 74 6f 72 79 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 | ing.of.history"))))...........(s |
| e2900 | 6c 69 6d 65 2d 72 65 70 6c 2d 77 72 61 70 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 | lime-repl-wrap-history.......... |
| e2920 | 20 20 28 73 65 74 71 20 70 6f 73 20 28 69 66 20 28 3d 20 70 6f 73 20 6d 69 6e 2d 70 6f 73 29 20 | ..(setq.pos.(if.(=.pos.min-pos). |
| e2940 | 6d 61 78 2d 70 6f 73 20 6d 69 6e 2d 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | max-pos.min-pos))............(se |
| e2960 | 74 71 20 6d 73 67 20 22 57 72 61 70 70 65 64 20 68 69 73 74 6f 72 79 22 29 29 29 0a 20 20 20 20 | tq.msg."Wrapped.history")))..... |
| e2980 | 28 77 68 65 6e 20 28 6f 72 20 28 3c 3d 20 70 6f 73 20 6d 69 6e 2d 70 6f 73 29 20 28 3c 3d 20 6d | (when.(or.(<=.pos.min-pos).(<=.m |
| e29a0 | 61 78 2d 70 6f 73 20 70 6f 73 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 67 65 78 70 0a | ax-pos.pos)).......(when.regexp. |
| e29c0 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 73 67 20 28 63 6f 6e 63 61 74 20 6d 73 67 20 22 3b | ........(setq.msg.(concat.msg."; |
| e29e0 | 20 6e 6f 20 6d 61 74 63 68 69 6e 67 20 69 74 65 6d 22 29 29 29 29 0a 20 20 20 20 3b 3b 28 6d 65 | .no.matching.item")))).....;;(me |
| e2a00 | 73 73 61 67 65 20 22 25 73 20 5b 25 64 20 25 64 20 25 73 5d 22 20 6d 73 67 20 73 74 61 72 74 2d | ssage."%s.[%d.%d.%s]".msg.start- |
| e2a20 | 70 6f 73 20 70 6f 73 20 72 65 67 65 78 70 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 25 73 | pos.pos.regexp).....(message."%s |
| e2a40 | 25 73 22 20 6d 73 67 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 72 65 67 65 78 70 29 20 22 22 29 0a | %s".msg.(cond.((not.regexp).""). |
| e2a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 | ..............................(t |
| e2a80 | 20 28 66 6f 72 6d 61 74 20 22 3b 20 63 75 72 72 65 6e 74 20 72 65 67 65 78 70 3a 20 25 73 22 20 | .(format.";.current.regexp:.%s". |
| e2aa0 | 72 65 67 65 78 70 29 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | regexp)))).....(setq.slime-repl- |
| e2ac0 | 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 2d 70 6f 73 69 74 69 6f 6e 20 70 6f 73 29 0a 20 20 20 20 | input-history-position.pos)..... |
| e2ae0 | 28 73 65 74 71 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 | (setq.this-command.'slime-repl-h |
| e2b00 | 69 73 74 6f 72 79 2d 72 65 70 6c 61 63 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | istory-replace)))..(defun.slime- |
| e2b20 | 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 73 65 61 72 63 68 2d 69 6e 2d 70 72 6f 67 72 65 73 73 2d | repl-history-search-in-progress- |
| e2b40 | 70 20 28 29 0a 20 20 28 65 71 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 27 73 6c 69 6d 65 2d 72 | p.()...(eq.last-command.'slime-r |
| e2b60 | 65 70 6c 2d 68 69 73 74 6f 72 79 2d 72 65 70 6c 61 63 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | epl-history-replace))..(defun.sl |
| e2b80 | 69 6d 65 2d 72 65 70 6c 2d 74 65 72 6d 69 6e 61 74 65 2d 68 69 73 74 6f 72 79 2d 73 65 61 72 63 | ime-repl-terminate-history-searc |
| e2ba0 | 68 20 28 29 0a 20 20 28 73 65 74 71 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 74 68 69 73 2d 63 | h.()...(setq.last-command.this-c |
| e2bc0 | 6f 6d 6d 61 6e 64 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 6f 73 69 | ommand))..(defun.slime-repl-posi |
| e2be0 | 74 69 6f 6e 2d 69 6e 2d 68 69 73 74 6f 72 79 20 28 73 74 61 72 74 2d 70 6f 73 20 64 69 72 65 63 | tion-in-history.(start-pos.direc |
| e2c00 | 74 69 6f 6e 20 72 65 67 65 78 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion.regexp..................... |
| e2c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6f 70 | .............................&op |
| e2c40 | 74 69 6f 6e 61 6c 20 65 78 63 6c 75 64 65 2d 73 74 72 69 6e 67 29 0a 20 20 22 52 65 74 75 72 6e | tional.exclude-string)..."Return |
| e2c60 | 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 68 69 73 74 6f 72 79 20 69 74 65 | .the.position.of.the.history.ite |
| e2c80 | 6d 20 6d 61 74 63 68 69 6e 67 20 52 45 47 45 58 50 2e 0a 52 65 74 75 72 6e 20 2d 31 20 72 65 73 | m.matching.REGEXP..Return.-1.res |
| e2ca0 | 70 2e 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 68 69 73 74 6f 72 79 20 69 66 20 | p..the.length.of.the.history.if. |
| e2cc0 | 6e 6f 20 69 74 65 6d 20 6d 61 74 63 68 65 73 2e 0a 49 66 20 45 58 43 4c 55 44 45 2d 53 54 52 49 | no.item.matches..If.EXCLUDE-STRI |
| e2ce0 | 4e 47 20 69 73 20 73 70 65 63 69 66 69 65 64 20 74 68 65 6e 20 69 74 27 73 20 65 78 63 6c 75 64 | NG.is.specified.then.it's.exclud |
| e2d00 | 65 64 20 66 72 6f 6d 20 74 68 65 20 73 65 61 72 63 68 2e 22 0a 20 20 3b 3b 20 4c 6f 6f 70 20 74 | ed.from.the.search."...;;.Loop.t |
| e2d20 | 68 72 6f 75 67 68 20 74 68 65 20 68 69 73 74 6f 72 79 20 6c 69 73 74 20 6c 6f 6f 6b 69 6e 67 20 | hrough.the.history.list.looking. |
| e2d40 | 66 6f 72 20 61 20 6d 61 74 63 68 69 6e 67 20 6c 69 6e 65 0a 20 20 28 6c 65 74 2a 20 28 28 73 74 | for.a.matching.line...(let*.((st |
| e2d60 | 65 70 20 28 63 6c 2d 65 63 61 73 65 20 64 69 72 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | ep.(cl-ecase.direction.......... |
| e2d80 | 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 20 2d 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ........(forward.-1)............ |
| e2da0 | 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 | ......(backward.1)))..........(h |
| e2dc0 | 69 73 74 6f 72 79 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 29 | istory.slime-repl-input-history) |
| e2de0 | 0a 20 20 20 20 20 20 20 20 20 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 68 69 73 74 6f 72 79 29 29 | ..........(len.(length.history)) |
| e2e00 | 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 70 6f 73 20 3d 20 28 2b 20 73 74 61 72 | ).....(cl-loop.for.pos.=.(+.star |
| e2e20 | 74 2d 70 6f 73 20 73 74 65 70 29 20 74 68 65 6e 20 28 2b 20 70 6f 73 20 73 74 65 70 29 0a 20 20 | t-pos.step).then.(+.pos.step)... |
| e2e40 | 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 3c 20 70 6f 73 20 30 29 20 72 65 74 75 72 6e 20 2d | ...........if.(<.pos.0).return.- |
| e2e60 | 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 3c 3d 20 6c 65 6e 20 70 6f 73 29 20 72 | 1..............if.(<=.len.pos).r |
| e2e80 | 65 74 75 72 6e 20 6c 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 68 69 73 74 6f | eturn.len..............for.histo |
| e2ea0 | 72 79 2d 69 74 65 6d 20 3d 20 28 6e 74 68 20 70 6f 73 20 68 69 73 74 6f 72 79 29 0a 20 20 20 20 | ry-item.=.(nth.pos.history)..... |
| e2ec0 | 20 20 20 20 20 20 20 20 20 69 66 20 28 61 6e 64 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 | .........if.(and.(string-match.r |
| e2ee0 | 65 67 65 78 70 20 68 69 73 74 6f 72 79 2d 69 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | egexp.history-item)............. |
| e2f00 | 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 68 69 73 74 6f 72 79 2d 69 74 65 | .........(not.(equal.history-ite |
| e2f20 | 6d 20 65 78 63 6c 75 64 65 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | m.exclude-string)))............. |
| e2f40 | 20 72 65 74 75 72 6e 20 70 6f 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 | .return.pos)))..(defun.slime-rep |
| e2f60 | 6c 2d 70 72 65 76 69 6f 75 73 2d 69 6e 70 75 74 20 28 29 0a 20 20 22 43 79 63 6c 65 20 62 61 63 | l-previous-input.()..."Cycle.bac |
| e2f80 | 6b 77 61 72 64 73 20 74 68 72 6f 75 67 68 20 69 6e 70 75 74 20 68 69 73 74 6f 72 79 2e 0a 49 66 | kwards.through.input.history..If |
| e2fa0 | 20 74 68 65 20 60 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 27 20 77 61 73 20 61 20 68 69 73 74 6f 72 | .the.`last-command'.was.a.histor |
| e2fc0 | 79 20 6e 61 76 69 67 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 20 75 73 65 20 74 68 65 0a 73 61 6d | y.navigation.command.use.the.sam |
| e2fe0 | 65 20 73 65 61 72 63 68 20 70 61 74 74 65 72 6e 20 66 6f 72 20 74 68 69 73 20 63 6f 6d 6d 61 6e | e.search.pattern.for.this.comman |
| e3000 | 64 2e 0a 4f 74 68 65 72 77 69 73 65 20 75 73 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 | d..Otherwise.use.the.current.inp |
| e3020 | 75 74 20 61 73 20 73 65 61 72 63 68 20 70 61 74 74 65 72 6e 2e 0a 0a 57 69 74 68 20 61 20 70 72 | ut.as.search.pattern...With.a.pr |
| e3040 | 65 66 69 78 2d 61 72 67 2c 20 64 6f 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 66 72 6f 6d 20 74 68 | efix-arg,.do.replacement.from.th |
| e3060 | 65 20 6d 61 72 6b 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 | e.mark."...(interactive)...(let. |
| e3080 | 28 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 75 73 65 2d 6d 61 72 6b 20 28 6f | ((slime-repl-history-use-mark.(o |
| e30a0 | 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 75 73 65 2d 6d 61 72 6b 0a 20 20 | r.slime-repl-history-use-mark... |
| e30c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| e30e0 | 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a 20 20 20 | .......current-prefix-arg))).... |
| e3100 | 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 72 65 70 6c 61 63 65 20 27 62 61 | .(slime-repl-history-replace.'ba |
| e3120 | 63 6b 77 61 72 64 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 70 61 74 74 65 | ckward.(slime-repl-history-patte |
| e3140 | 72 6e 20 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 | rn.t))))..(defun.slime-repl-next |
| e3160 | 2d 69 6e 70 75 74 20 28 29 0a 20 20 22 43 79 63 6c 65 20 66 6f 72 77 61 72 64 73 20 74 68 72 6f | -input.()..."Cycle.forwards.thro |
| e3180 | 75 67 68 20 69 6e 70 75 74 20 68 69 73 74 6f 72 79 2e 0a 53 65 65 20 60 73 6c 69 6d 65 2d 72 65 | ugh.input.history..See.`slime-re |
| e31a0 | 70 6c 2d 70 72 65 76 69 6f 75 73 2d 69 6e 70 75 74 27 2e 0a 0a 57 69 74 68 20 61 20 70 72 65 66 | pl-previous-input'...With.a.pref |
| e31c0 | 69 78 2d 61 72 67 2c 20 64 6f 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 | ix-arg,.do.replacement.from.the. |
| e31e0 | 6d 61 72 6b 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 | mark."...(interactive)...(let.(( |
| e3200 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 75 73 65 2d 6d 61 72 6b 20 28 6f 72 20 | slime-repl-history-use-mark.(or. |
| e3220 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 75 73 65 2d 6d 61 72 6b 0a 20 20 20 20 | slime-repl-history-use-mark..... |
| e3240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| e3260 | 20 20 20 20 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a 20 20 20 20 28 | .....current-prefix-arg))).....( |
| e3280 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 72 65 70 6c 61 63 65 20 27 66 6f 72 77 | slime-repl-history-replace.'forw |
| e32a0 | 61 72 64 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 70 61 74 74 65 72 6e 20 | ard.(slime-repl-history-pattern. |
| e32c0 | 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 66 6f 72 77 61 72 64 | t))))..(defun.slime-repl-forward |
| e32e0 | 2d 69 6e 70 75 74 20 28 29 0a 20 20 22 43 79 63 6c 65 20 66 6f 72 77 61 72 64 73 20 74 68 72 6f | -input.()..."Cycle.forwards.thro |
| e3300 | 75 67 68 20 69 6e 70 75 74 20 68 69 73 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | ugh.input.history."...(interacti |
| e3320 | 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 72 65 70 6c 61 63 | ve)...(slime-repl-history-replac |
| e3340 | 65 20 27 66 6f 72 77 61 72 64 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 70 | e.'forward.(slime-repl-history-p |
| e3360 | 61 74 74 65 72 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 61 63 | attern)))..(defun.slime-repl-bac |
| e3380 | 6b 77 61 72 64 2d 69 6e 70 75 74 20 28 29 0a 20 20 22 43 79 63 6c 65 20 62 61 63 6b 77 61 72 64 | kward-input.()..."Cycle.backward |
| e33a0 | 73 20 74 68 72 6f 75 67 68 20 69 6e 70 75 74 20 68 69 73 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 | s.through.input.history."...(int |
| e33c0 | 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d | eractive)...(slime-repl-history- |
| e33e0 | 72 65 70 6c 61 63 65 20 27 62 61 63 6b 77 61 72 64 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 | replace.'backward.(slime-repl-hi |
| e3400 | 73 74 6f 72 79 2d 70 61 74 74 65 72 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 | story-pattern)))..(defun.slime-r |
| e3420 | 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 6d 61 74 63 68 69 6e 67 2d 69 6e 70 75 74 20 28 72 65 67 | epl-previous-matching-input.(reg |
| e3440 | 65 78 70 29 0a 20 20 22 49 6e 73 65 72 74 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6d 61 74 63 | exp)..."Insert.the.previous.matc |
| e3460 | 68 69 6e 67 20 69 6e 70 75 74 2e 0a 0a 57 69 74 68 20 61 20 70 72 65 66 69 78 2d 61 72 67 2c 20 | hing.input...With.a.prefix-arg,. |
| e3480 | 64 6f 20 74 68 65 20 69 6e 73 65 72 74 69 6f 6e 20 61 74 20 74 68 65 20 6d 61 72 6b 2e 22 0a 20 | do.the.insertion.at.the.mark.".. |
| e34a0 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d | .(interactive.(list.(slime-read- |
| e34c0 | 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 0a 09 09 20 20 20 20 20 20 22 50 72 65 76 69 6f 75 | from-minibuffer........."Previou |
| e34e0 | 73 20 65 6c 65 6d 65 6e 74 20 6d 61 74 63 68 69 6e 67 20 28 72 65 67 65 78 70 29 3a 20 22 29 29 | s.element.matching.(regexp):.")) |
| e3500 | 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 74 65 72 6d 69 6e 61 74 65 2d 68 69 73 74 6f 72 | )...(slime-repl-terminate-histor |
| e3520 | 79 2d 73 65 61 72 63 68 29 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 | y-search)...(let.((slime-repl-hi |
| e3540 | 73 74 6f 72 79 2d 75 73 65 2d 6d 61 72 6b 20 28 6f 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 | story-use-mark.(or.slime-repl-hi |
| e3560 | 73 74 6f 72 79 2d 75 73 65 2d 6d 61 72 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | story-use-mark.................. |
| e3580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d | ........................current- |
| e35a0 | 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 | prefix-arg))).....(slime-repl-hi |
| e35c0 | 73 74 6f 72 79 2d 72 65 70 6c 61 63 65 20 27 62 61 63 6b 77 61 72 64 20 72 65 67 65 78 70 29 29 | story-replace.'backward.regexp)) |
| e35e0 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d 6d 61 74 63 68 69 | )..(defun.slime-repl-next-matchi |
| e3600 | 6e 67 2d 69 6e 70 75 74 20 28 72 65 67 65 78 70 29 0a 20 20 22 49 6e 73 65 72 74 20 74 68 65 20 | ng-input.(regexp)..."Insert.the. |
| e3620 | 6e 65 78 74 20 6d 61 74 63 68 69 6e 67 20 69 6e 70 75 74 2e 0a 0a 57 69 74 68 20 61 20 70 72 65 | next.matching.input...With.a.pre |
| e3640 | 66 69 78 2d 61 72 67 2c 20 64 6f 20 74 68 65 20 69 6e 73 65 72 74 69 6f 6e 20 61 74 20 74 68 65 | fix-arg,.do.the.insertion.at.the |
| e3660 | 20 6d 61 72 6b 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c | .mark."...(interactive.(list.(sl |
| e3680 | 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 0a 09 09 20 20 20 20 20 | ime-read-from-minibuffer........ |
| e36a0 | 20 22 4e 65 78 74 20 65 6c 65 6d 65 6e 74 20 6d 61 74 63 68 69 6e 67 20 28 72 65 67 65 78 70 29 | ."Next.element.matching.(regexp) |
| e36c0 | 3a 20 22 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 74 65 72 6d 69 6e 61 74 65 2d 68 | :.")))...(slime-repl-terminate-h |
| e36e0 | 69 73 74 6f 72 79 2d 73 65 61 72 63 68 29 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 72 65 | istory-search)...(let.((slime-re |
| e3700 | 70 6c 2d 68 69 73 74 6f 72 79 2d 75 73 65 2d 6d 61 72 6b 20 28 6f 72 20 73 6c 69 6d 65 2d 72 65 | pl-history-use-mark.(or.slime-re |
| e3720 | 70 6c 2d 68 69 73 74 6f 72 79 2d 75 73 65 2d 6d 61 72 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 | pl-history-use-mark............. |
| e3740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 | .............................cur |
| e3760 | 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 | rent-prefix-arg)))....(slime-rep |
| e3780 | 6c 2d 68 69 73 74 6f 72 79 2d 72 65 70 6c 61 63 65 20 27 66 6f 72 77 61 72 64 20 72 65 67 65 78 | l-history-replace.'forward.regex |
| e37a0 | 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d | p)))..(defun.slime-repl-history- |
| e37c0 | 70 61 74 74 65 72 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 75 73 65 2d 63 75 72 72 65 6e 74 2d 69 | pattern.(&optional.use-current-i |
| e37e0 | 6e 70 75 74 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 72 65 67 65 78 70 20 66 6f 72 20 74 | nput)..."Return.the.regexp.for.t |
| e3800 | 68 65 20 6e 61 76 69 67 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 2e 22 0a 20 20 28 63 6f 6e 64 | he.navigation.commands."...(cond |
| e3820 | 20 28 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 73 65 61 72 63 68 2d 69 6e 2d | .((slime-repl-history-search-in- |
| e3840 | 70 72 6f 67 72 65 73 73 2d 70 29 0a 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | progress-p)..........slime-repl- |
| e3860 | 68 69 73 74 6f 72 79 2d 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 28 75 73 65 2d 63 75 | history-pattern).........(use-cu |
| e3880 | 72 72 65 6e 74 2d 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | rrent-input..........(goto-char. |
| e38a0 | 28 6d 61 78 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 79 61 6e 6b 2d 73 74 | (max.(slime-repl-history-yank-st |
| e38c0 | 61 72 74 29 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 | art).(point)))..........(let.((s |
| e38e0 | 74 72 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 75 72 72 65 6e 74 2d 69 6e 70 75 74 20 74 29 29 | tr.(slime-repl-current-input.t)) |
| e3900 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 | )............(cond.((string-matc |
| e3920 | 68 20 22 5e 5b 20 5c 74 5c 6e 5d 2a 24 22 20 73 74 72 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 | h."^[.\t\n]*$".str).nil)........ |
| e3940 | 20 20 20 20 20 20 20 20 20 20 28 74 20 28 63 6f 6e 63 61 74 20 22 5e 22 20 28 72 65 67 65 78 70 | ..........(t.(concat."^".(regexp |
| e3960 | 2d 71 75 6f 74 65 20 73 74 72 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 6e 69 6c 29 | -quote.str)))))).........(t.nil) |
| e3980 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 64 65 6c 65 74 65 2d 66 72 6f | ))..(defun.slime-repl-delete-fro |
| e39a0 | 6d 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 20 28 73 74 72 69 6e 67 29 0a 20 20 22 44 65 6c 65 | m-input-history.(string)..."Dele |
| e39c0 | 74 65 20 53 54 52 49 4e 47 20 66 72 6f 6d 20 74 68 65 20 72 65 70 6c 20 69 6e 70 75 74 20 68 69 | te.STRING.from.the.repl.input.hi |
| e39e0 | 73 74 6f 72 79 2e 0a 0a 57 68 65 6e 20 73 74 72 69 6e 67 20 69 73 20 6e 6f 74 20 70 72 6f 76 69 | story...When.string.is.not.provi |
| e3a00 | 64 65 64 20 74 68 65 6e 20 63 6c 65 61 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 65 70 6c 20 | ded.then.clear.the.current.repl. |
| e3a20 | 69 6e 70 75 74 20 61 6e 64 0a 75 73 65 20 69 74 20 61 73 20 61 6e 20 69 6e 70 75 74 2e 20 20 54 | input.and.use.it.as.an.input...T |
| e3a40 | 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 74 6f 20 67 65 74 20 72 69 64 20 6f 66 20 75 6e 77 61 | his.is.useful.to.get.rid.of.unwa |
| e3a60 | 6e 74 65 64 20 72 65 70 6c 0a 68 69 73 74 6f 72 79 20 65 6e 74 72 69 65 73 20 77 68 69 6c 65 20 | nted.repl.history.entries.while. |
| e3a80 | 6e 61 76 69 67 61 74 69 6e 67 20 74 68 65 20 72 65 70 6c 20 68 69 73 74 6f 72 79 2e 22 0a 20 20 | navigating.the.repl.history."... |
| e3aa0 | 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 | (interactive.(list.(slime-repl-c |
| e3ac0 | 75 72 72 65 6e 74 2d 69 6e 70 75 74 29 29 29 0a 20 20 28 6c 65 74 20 28 28 6d 65 72 67 65 64 2d | urrent-input)))...(let.((merged- |
| e3ae0 | 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 65 72 | history..........(slime-repl-mer |
| e3b00 | 67 65 2d 68 69 73 74 6f 72 69 65 73 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 68 69 | ge-histories.(slime-repl-read-hi |
| e3b20 | 73 74 6f 72 79 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | story.nil.t).................... |
| e3b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 | ..................slime-repl-inp |
| e3b60 | 75 74 2d 68 69 73 74 6f 72 79 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 72 65 | ut-history))).....(setq.slime-re |
| e3b80 | 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 64 | pl-input-history...........(cl-d |
| e3ba0 | 65 6c 65 74 65 20 73 74 72 69 6e 67 20 6d 65 72 67 65 64 2d 68 69 73 74 6f 72 79 20 3a 74 65 73 | elete.string.merged-history.:tes |
| e3bc0 | 74 20 23 27 73 74 72 69 6e 67 3d 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 61 | t.#'string=)).....(slime-repl-sa |
| e3be0 | 76 65 2d 68 69 73 74 6f 72 79 29 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 64 65 6c 65 74 | ve-history))...(slime-repl-delet |
| e3c00 | 65 2d 63 75 72 72 65 6e 74 2d 69 6e 70 75 74 29 29 0a 0a 3b 3b 3b 3b 3b 20 50 65 72 73 69 73 74 | e-current-input))..;;;;;.Persist |
| e3c20 | 65 6e 74 20 48 69 73 74 6f 72 79 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d | ent.History..(defun.slime-repl-m |
| e3c40 | 65 72 67 65 2d 68 69 73 74 6f 72 69 65 73 20 28 6f 6c 64 2d 68 69 73 74 20 6e 65 77 2d 68 69 73 | erge-histories.(old-hist.new-his |
| e3c60 | 74 29 0a 20 20 22 4d 65 72 67 65 20 65 6e 74 72 69 65 73 20 66 72 6f 6d 20 4f 4c 44 2d 48 49 53 | t)..."Merge.entries.from.OLD-HIS |
| e3c80 | 54 20 61 6e 64 20 4e 45 57 2d 48 49 53 54 2e 22 0a 20 20 3b 3b 20 4e 65 77 65 72 20 69 74 65 6d | T.and.NEW-HIST."...;;.Newer.item |
| e3ca0 | 73 20 69 6e 20 65 61 63 68 20 6c 69 73 74 20 61 72 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e | s.in.each.list.are.at.the.beginn |
| e3cc0 | 69 6e 67 2e 0a 20 20 28 6c 65 74 2a 20 28 28 68 74 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 | ing....(let*.((ht.(make-hash-tab |
| e3ce0 | 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 65 73 | le.:test.#'equal))..........(tes |
| e3d00 | 74 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.(lambda.(entry)............... |
| e3d20 | 20 20 20 28 6f 72 20 28 67 65 74 68 61 73 68 20 65 6e 74 72 79 20 68 74 29 0a 20 20 20 20 20 20 | ...(or.(gethash.entry.ht)....... |
| e3d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 73 65 74 66 20 28 67 65 74 | ...............(progn.(setf.(get |
| e3d60 | 68 61 73 68 20 65 6e 74 72 79 20 68 74 29 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hash.entry.ht).t)............... |
| e3d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 29 0a 20 20 20 20 28 61 70 70 65 | ..............nil))))).....(appe |
| e3da0 | 6e 64 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 74 65 73 74 20 6e 65 77 2d 68 69 73 74 29 0a | nd.(cl-remove-if.test.new-hist). |
| e3dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 74 65 73 74 20 6f | ............(cl-remove-if.test.o |
| e3de0 | 6c 64 2d 68 69 73 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6c | ld-hist))))..(defun.slime-repl-l |
| e3e00 | 6f 61 64 2d 68 69 73 74 6f 72 79 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c 65 6e 61 6d 65 29 | oad-history.(&optional.filename) |
| e3e20 | 0a 20 20 22 53 65 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 53 4c 49 4d 45 20 52 45 50 4c 20 68 | ..."Set.the.current.SLIME.REPL.h |
| e3e40 | 69 73 74 6f 72 79 2e 0a 49 74 20 63 61 6e 20 62 65 20 72 65 61 64 20 65 69 74 68 65 72 20 66 72 | istory..It.can.be.read.either.fr |
| e3e60 | 6f 6d 20 46 49 4c 45 4e 41 4d 45 20 6f 72 20 60 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f | om.FILENAME.or.`slime-repl-histo |
| e3e80 | 72 79 2d 66 69 6c 65 27 20 6f 72 0a 66 72 6f 6d 20 61 20 75 73 65 72 20 64 65 66 69 6e 65 64 20 | ry-file'.or.from.a.user.defined. |
| e3ea0 | 66 69 6c 65 6e 61 6d 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 | filename."...(interactive.(list. |
| e3ec0 | 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 68 69 73 74 6f 72 79 2d 66 69 6c 65 6e 61 6d | (slime-repl-read-history-filenam |
| e3ee0 | 65 29 29 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 6f 72 20 66 69 6c 65 6e 61 6d 65 20 | e)))...(let.((file.(or.filename. |
| e3f00 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 66 69 6c 65 29 29 29 0a 20 20 20 20 28 | slime-repl-history-file))).....( |
| e3f20 | 73 65 74 71 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 20 28 73 | setq.slime-repl-input-history.(s |
| e3f40 | 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 68 69 73 74 6f 72 79 20 66 69 6c 65 20 74 29 29 29 | lime-repl-read-history.file.t))) |
| e3f60 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 68 69 73 74 6f 72 | )..(defun.slime-repl-read-histor |
| e3f80 | 79 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c 65 6e 61 6d 65 20 6e 6f 65 72 72 65 72 29 0a 20 | y.(&optional.filename.noerrer).. |
| e3fa0 | 20 22 52 65 61 64 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 68 69 73 74 6f 72 79 20 66 72 | ."Read.and.return.the.history.fr |
| e3fc0 | 6f 6d 20 46 49 4c 45 4e 41 4d 45 2e 0a 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 66 | om.FILENAME..The.default.value.f |
| e3fe0 | 6f 72 20 46 49 4c 45 4e 41 4d 45 20 69 73 20 60 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f | or.FILENAME.is.`slime-repl-histo |
| e4000 | 72 79 2d 66 69 6c 65 27 2e 0a 49 66 20 4e 4f 45 52 52 4f 52 20 69 73 20 74 72 75 65 20 72 65 74 | ry-file'..If.NOERROR.is.true.ret |
| e4020 | 75 72 6e 20 61 6e 64 20 74 68 65 20 66 69 6c 65 20 64 6f 65 73 6e 27 74 20 65 78 69 74 73 20 72 | urn.and.the.file.doesn't.exits.r |
| e4040 | 65 74 75 72 6e 20 6e 69 6c 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 6f 72 20 66 69 | eturn.nil."...(let.((file.(or.fi |
| e4060 | 6c 65 6e 61 6d 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 66 69 6c 65 29 29 | lename.slime-repl-history-file)) |
| e4080 | 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 28 66 69 6c 65 2d 72 65 61 64 61 62 6c 65 | ).....(cond.((not.(file-readable |
| e40a0 | 2d 70 20 66 69 6c 65 29 29 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 77 69 74 | -p.file)).'())...........(t.(wit |
| e40c0 | 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e | h-temp-buffer................(in |
| e40e0 | 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 | sert-file-contents.file)........ |
| e4100 | 20 20 20 20 20 20 20 20 28 72 65 61 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 | ........(read.(current-buffer))) |
| e4120 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 68 69 73 | ))))..(defun.slime-repl-read-his |
| e4140 | 74 6f 72 79 2d 66 69 6c 65 6e 61 6d 65 20 28 29 0a 20 20 28 72 65 61 64 2d 66 69 6c 65 2d 6e 61 | tory-filename.()...(read-file-na |
| e4160 | 6d 65 20 22 55 73 65 20 53 4c 49 4d 45 20 52 45 50 4c 20 68 69 73 74 6f 72 79 20 66 72 6f 6d 20 | me."Use.SLIME.REPL.history.from. |
| e4180 | 66 69 6c 65 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d | file:."...................slime- |
| e41a0 | 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 66 69 6c 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | repl-history-file))..(defun.slim |
| e41c0 | 65 2d 72 65 70 6c 2d 73 61 76 65 2d 6d 65 72 67 65 64 2d 68 69 73 74 6f 72 79 20 28 26 6f 70 74 | e-repl-save-merged-history.(&opt |
| e41e0 | 69 6f 6e 61 6c 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 22 52 65 61 64 20 74 68 65 20 68 69 73 74 | ional.filename)..."Read.the.hist |
| e4200 | 6f 72 79 20 66 69 6c 65 2c 20 6d 65 72 67 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 52 45 50 4c | ory.file,.merge.the.current.REPL |
| e4220 | 20 68 69 73 74 6f 72 79 20 61 6e 64 20 73 61 76 65 20 69 74 2e 0a 54 68 69 73 20 74 72 69 65 73 | .history.and.save.it..This.tries |
| e4240 | 20 74 6f 20 62 65 20 73 6d 61 72 74 20 69 6e 20 6d 65 72 67 69 6e 67 20 74 68 65 20 68 69 73 74 | .to.be.smart.in.merging.the.hist |
| e4260 | 6f 72 79 20 66 72 6f 6d 20 74 68 65 20 66 69 6c 65 20 61 6e 64 20 74 68 65 0a 63 75 72 72 65 6e | ory.from.the.file.and.the.curren |
| e4280 | 74 20 68 69 73 74 6f 72 79 20 69 6e 20 74 68 61 74 20 69 74 20 74 72 69 65 73 20 74 6f 20 64 65 | t.history.in.that.it.tries.to.de |
| e42a0 | 74 65 63 74 20 74 68 65 20 75 6e 69 71 75 65 20 65 6e 74 72 69 65 73 20 75 73 69 6e 67 0a 60 73 | tect.the.unique.entries.using.`s |
| e42c0 | 6c 69 6d 65 2d 72 65 70 6c 2d 6d 65 72 67 65 2d 68 69 73 74 6f 72 69 65 73 27 2e 22 0a 20 20 28 | lime-repl-merge-histories'."...( |
| e42e0 | 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 | interactive.(list.(slime-repl-re |
| e4300 | 61 64 2d 68 69 73 74 6f 72 79 2d 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 28 6c 65 74 20 28 28 | ad-history-filename)))...(let.(( |
| e4320 | 66 69 6c 65 20 28 6f 72 20 66 69 6c 65 6e 61 6d 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 | file.(or.filename.slime-repl-his |
| e4340 | 74 6f 72 79 2d 66 69 6c 65 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 6d 65 73 73 | tory-file))).....(with-temp-mess |
| e4360 | 61 67 65 20 22 73 61 76 69 6e 67 20 68 69 73 74 6f 72 79 2e 2e 2e 22 0a 20 20 20 20 20 20 28 6c | age."saving.history...".......(l |
| e4380 | 65 74 20 28 28 68 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 65 72 67 65 2d 68 69 73 74 | et.((hist.(slime-repl-merge-hist |
| e43a0 | 6f 72 69 65 73 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 68 69 73 74 6f 72 79 20 66 | ories.(slime-repl-read-history.f |
| e43c0 | 69 6c 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile.t).......................... |
| e43e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | .....................slime-repl- |
| e4400 | 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | input-history))).........(slime- |
| e4420 | 72 65 70 6c 2d 73 61 76 65 2d 68 69 73 74 6f 72 79 20 66 69 6c 65 20 68 69 73 74 29 29 29 29 29 | repl-save-history.file.hist))))) |
| e4440 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 61 76 65 2d 68 69 73 74 6f 72 79 | ..(defun.slime-repl-save-history |
| e4460 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c 65 6e 61 6d 65 20 68 69 73 74 6f 72 79 29 0a 20 20 | .(&optional.filename.history)... |
| e4480 | 22 53 69 6d 70 6c 79 20 73 61 76 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 53 4c 49 4d 45 20 52 | "Simply.save.the.current.SLIME.R |
| e44a0 | 45 50 4c 20 68 69 73 74 6f 72 79 20 74 6f 20 61 20 66 69 6c 65 2e 0a 57 68 65 6e 20 53 4c 49 4d | EPL.history.to.a.file..When.SLIM |
| e44c0 | 45 20 69 73 20 73 65 74 75 70 20 74 6f 20 61 6c 77 61 79 73 20 6c 6f 61 64 20 74 68 65 20 6f 6c | E.is.setup.to.always.load.the.ol |
| e44e0 | 64 20 68 69 73 74 6f 72 79 20 61 6e 64 20 6f 6e 65 20 75 73 65 73 20 6f 6e 6c 79 0a 6f 6e 65 20 | d.history.and.one.uses.only.one. |
| e4500 | 69 6e 73 74 61 6e 63 65 20 6f 66 20 73 6c 69 6d 65 20 61 6c 6c 20 74 68 65 20 74 69 6d 65 2c 20 | instance.of.slime.all.the.time,. |
| e4520 | 74 68 65 72 65 20 69 73 20 6e 6f 20 6e 65 65 64 20 74 6f 20 6d 65 72 67 65 20 74 68 65 0a 66 69 | there.is.no.need.to.merge.the.fi |
| e4540 | 6c 65 73 20 61 6e 64 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 73 75 66 66 69 63 69 | les.and.this.function.is.suffici |
| e4560 | 65 6e 74 2e 0a 0a 57 68 65 6e 20 74 68 65 20 6c 69 73 74 20 69 73 20 6c 6f 6e 67 65 72 20 74 68 | ent...When.the.list.is.longer.th |
| e4580 | 61 6e 20 60 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 73 69 7a 65 27 20 69 74 20 | an.`slime-repl-history-size'.it. |
| e45a0 | 77 69 6c 6c 20 62 65 0a 74 72 75 6e 63 61 74 65 64 2e 20 20 54 68 61 74 20 70 61 72 74 20 69 73 | will.be.truncated...That.part.is |
| e45c0 | 20 75 6e 74 65 73 74 65 64 2c 20 74 68 6f 75 67 68 21 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | .untested,.though!"...(interacti |
| e45e0 | 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 68 69 73 74 6f 72 | ve.(list.(slime-repl-read-histor |
| e4600 | 79 2d 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 6f 72 20 | y-filename)))...(let.((file.(or. |
| e4620 | 66 69 6c 65 6e 61 6d 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 66 69 6c 65 | filename.slime-repl-history-file |
| e4640 | 29 29 0a 20 20 20 20 20 20 20 20 28 68 69 73 74 20 28 6f 72 20 68 69 73 74 6f 72 79 20 73 6c 69 | )).........(hist.(or.history.sli |
| e4660 | 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 29 29 29 0a 20 20 20 20 28 75 6e | me-repl-input-history))).....(un |
| e4680 | 6c 65 73 73 20 28 66 69 6c 65 2d 77 72 69 74 61 62 6c 65 2d 70 20 66 69 6c 65 29 0a 20 20 20 20 | less.(file-writable-p.file)..... |
| e46a0 | 20 20 28 65 72 72 6f 72 20 28 66 6f 72 6d 61 74 20 22 48 69 73 74 6f 72 79 20 66 69 6c 65 20 6e | ..(error.(format."History.file.n |
| e46c0 | 6f 74 20 77 72 69 74 61 62 6c 65 3a 20 25 73 22 20 66 69 6c 65 29 29 29 0a 20 20 20 20 28 6c 65 | ot.writable:.%s".file))).....(le |
| e46e0 | 74 20 28 28 68 69 73 74 20 28 63 6c 2d 73 75 62 73 65 71 20 68 69 73 74 20 30 20 28 6d 69 6e 20 | t.((hist.(cl-subseq.hist.0.(min. |
| e4700 | 28 6c 65 6e 67 74 68 20 68 69 73 74 29 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 | (length.hist).slime-repl-history |
| e4720 | 2d 73 69 7a 65 29 29 29 29 0a 20 20 20 20 20 20 3b 3b 28 6d 65 73 73 61 67 65 20 22 73 61 76 69 | -size)))).......;;(message."savi |
| e4740 | 6e 67 20 25 73 20 74 6f 20 25 73 5c 6e 22 20 68 69 73 74 20 66 69 6c 65 29 0a 20 20 20 20 20 20 | ng.%s.to.%s\n".hist.file)....... |
| e4760 | 28 77 69 74 68 2d 74 65 6d 70 2d 66 69 6c 65 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 28 6c 65 | (with-temp-file.file.........(le |
| e4780 | 74 20 28 28 63 73 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 66 69 6c 65 2d 63 | t.((cs.slime-repl-history-file-c |
| e47a0 | 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 | oding-system)...............(pri |
| e47c0 | 6e 74 2d 6c 65 6e 67 74 68 20 6e 69 6c 29 20 28 70 72 69 6e 74 2d 6c 65 76 65 6c 20 6e 69 6c 29 | nt-length.nil).(print-level.nil) |
| e47e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 63 6f | )...........(setq.buffer-file-co |
| e4800 | 64 69 6e 67 2d 73 79 73 74 65 6d 20 63 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 | ding-system.cs)...........(inser |
| e4820 | 74 20 28 66 6f 72 6d 61 74 20 22 3b 3b 20 2d 2a 2d 20 63 6f 64 69 6e 67 3a 20 25 73 20 2d 2a 2d | t.(format.";;.-*-.coding:.%s.-*- |
| e4840 | 5c 6e 22 20 63 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 3b 3b 20 48 | \n".cs))...........(insert.";;.H |
| e4860 | 69 73 74 6f 72 79 20 66 6f 72 20 53 4c 49 4d 45 20 52 45 50 4c 2e 20 41 75 74 6f 6d 61 74 69 63 | istory.for.SLIME.REPL..Automatic |
| e4880 | 61 6c 6c 79 20 77 72 69 74 74 65 6e 2e 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ally.written.\n"................ |
| e48a0 | 20 20 20 22 3b 3b 20 45 64 69 74 20 6f 6e 6c 79 20 69 66 20 79 6f 75 20 6b 6e 6f 77 20 77 68 61 | ...";;.Edit.only.if.you.know.wha |
| e48c0 | 74 20 79 6f 75 27 72 65 20 64 6f 69 6e 67 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 | t.you're.doing\n")...........(pr |
| e48e0 | 69 6e 31 20 28 6d 61 70 63 61 72 20 23 27 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 | in1.(mapcar.#'substring-no-prope |
| e4900 | 72 74 69 65 73 20 68 69 73 74 29 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 29 | rties.hist).(current-buffer))))) |
| e4920 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 61 76 65 2d 61 6c 6c 2d 68 | ))..(defun.slime-repl-save-all-h |
| e4940 | 69 73 74 6f 72 69 65 73 20 28 29 0a 20 20 22 53 61 76 65 20 74 68 65 20 68 69 73 74 6f 72 79 20 | istories.()..."Save.the.history. |
| e4960 | 69 6e 20 65 61 63 68 20 72 65 70 6c 20 62 75 66 66 65 72 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 | in.each.repl.buffer."...(dolist. |
| e4980 | 28 62 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 | (b.(buffer-list)).....(with-curr |
| e49a0 | 65 6e 74 2d 62 75 66 66 65 72 20 62 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 6d 61 6a | ent-buffer.b.......(when.(eq.maj |
| e49c0 | 6f 72 2d 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 | or-mode.'slime-repl-mode)....... |
| e49e0 | 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 61 66 65 2d 73 61 76 65 2d 6d 65 72 67 65 64 2d 68 | ..(slime-repl-safe-save-merged-h |
| e4a00 | 69 73 74 6f 72 79 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 | istory)))))..(defun.slime-repl-s |
| e4a20 | 61 66 65 2d 73 61 76 65 2d 6d 65 72 67 65 64 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 28 73 6c | afe-save-merged-history.()...(sl |
| e4a40 | 69 6d 65 2d 72 65 70 6c 2d 63 61 6c 6c 2d 77 69 74 68 2d 68 61 6e 64 6c 65 72 0a 20 20 20 23 27 | ime-repl-call-with-handler....#' |
| e4a60 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 61 76 65 2d 6d 65 72 67 65 64 2d 68 69 73 74 6f 72 79 0a 20 | slime-repl-save-merged-history.. |
| e4a80 | 20 20 22 25 53 20 77 68 69 6c 65 20 73 61 76 69 6e 67 20 74 68 65 20 68 69 73 74 6f 72 79 2e 20 | .."%S.while.saving.the.history.. |
| e4aa0 | 43 6f 6e 74 69 6e 75 65 3f 20 22 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c | Continue?."))..(defun.slime-repl |
| e4ac0 | 2d 73 61 66 65 2d 6c 6f 61 64 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 28 73 6c 69 6d 65 2d 72 | -safe-load-history.()...(slime-r |
| e4ae0 | 65 70 6c 2d 63 61 6c 6c 2d 77 69 74 68 2d 68 61 6e 64 6c 65 72 0a 20 20 20 23 27 73 6c 69 6d 65 | epl-call-with-handler....#'slime |
| e4b00 | 2d 72 65 70 6c 2d 6c 6f 61 64 2d 68 69 73 74 6f 72 79 0a 20 20 20 22 25 53 20 77 68 69 6c 65 20 | -repl-load-history...."%S.while. |
| e4b20 | 6c 6f 61 64 69 6e 67 20 74 68 65 20 68 69 73 74 6f 72 79 2e 20 43 6f 6e 74 69 6e 75 65 3f 20 22 | loading.the.history..Continue?." |
| e4b40 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 61 6c 6c 2d 77 69 74 68 2d | ))..(defun.slime-repl-call-with- |
| e4b60 | 68 61 6e 64 6c 65 72 20 28 66 75 6e 20 71 75 65 72 79 29 0a 20 20 22 43 61 6c 6c 20 46 55 4e 20 | handler.(fun.query)..."Call.FUN. |
| e4b80 | 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 61 6e 20 65 72 72 6f 72 20 68 61 6e 64 6c | in.the.context.of.an.error.handl |
| e4ba0 | 65 72 2e 0a 54 68 65 20 68 61 6e 64 6c 65 72 20 77 69 6c 6c 20 75 73 65 20 71 65 75 65 72 79 20 | er..The.handler.will.use.qeuery. |
| e4bc0 | 74 6f 20 61 73 6b 20 74 68 65 20 75 73 65 20 69 66 20 74 68 65 20 65 72 72 6f 72 20 73 68 6f 75 | to.ask.the.use.if.the.error.shou |
| e4be0 | 6c 64 20 62 65 20 69 6e 67 6f 72 65 64 2e 22 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 | ld.be.ingored."...(condition-cas |
| e4c00 | 65 20 65 72 72 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 29 0a 20 20 20 20 28 65 | e.err.......(funcall.fun).....(e |
| e4c20 | 72 72 6f 72 0a 20 20 20 20 20 28 69 66 20 28 79 2d 6f 72 2d 6e 2d 70 20 28 66 6f 72 6d 61 74 20 | rror......(if.(y-or-n-p.(format. |
| e4c40 | 71 75 65 72 79 20 28 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 2d 73 74 72 69 6e 67 20 65 72 72 29 | query.(error-message-string.err) |
| e4c60 | 29 29 0a 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 28 | ))..........nil........(signal.( |
| e4c80 | 63 61 72 20 65 72 72 29 20 28 63 64 72 20 65 72 72 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b | car.err).(cdr.err))))))....;;;;; |
| e4ca0 | 20 52 45 50 4c 20 52 65 61 64 20 4d 6f 64 65 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 | .REPL.Read.Mode..(defvar.slime-r |
| e4cc0 | 65 70 6c 2d 72 65 61 64 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 | epl-read-mode-map...(let.((map.( |
| e4ce0 | 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e | make-sparse-keymap))).....(defin |
| e4d00 | 65 2d 6b 65 79 20 6d 61 70 20 22 5c 43 2d 6d 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 | e-key.map."\C-m".'slime-repl-ret |
| e4d20 | 75 72 6e 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 5b 72 65 74 75 72 6e | urn).....(define-key.map.[return |
| e4d40 | 5d 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 28 64 65 66 69 6e | ].'slime-repl-return).....(defin |
| e4d60 | 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 54 41 42 22 29 20 27 73 65 6c 66 2d 69 6e 73 65 | e-key.map.(kbd."TAB").'self-inse |
| e4d80 | 72 74 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 | rt-command).....(define-key.map. |
| e4da0 | 22 5c 43 2d 63 5c 43 2d 62 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 62 72 65 61 | "\C-c\C-b".'slime-repl-read-brea |
| e4dc0 | 6b 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 43 2d 63 5c 43 2d 63 | k).....(define-key.map."\C-c\C-c |
| e4de0 | 22 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 62 72 65 61 6b 29 0a 20 20 20 20 28 64 | ".'slime-repl-read-break).....(d |
| e4e00 | 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 5b 72 65 6d 61 70 20 73 6c 69 6d 65 2d 69 6e 64 65 6e | efine-key.map.[remap.slime-inden |
| e4e20 | 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 5d 20 27 69 67 6e 6f 72 65 29 0a | t-and-complete-symbol].'ignore). |
| e4e40 | 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 5b 72 65 6d 61 70 20 73 6c 69 6d 65 | ....(define-key.map.[remap.slime |
| e4e60 | 2d 68 61 6e 64 6c 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 5d 20 27 73 65 6c 66 2d 69 6e 73 | -handle-repl-shortcut].'self-ins |
| e4e80 | 65 72 74 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 6d 61 70 29 29 0a 0a 28 64 65 66 69 6e 65 2d | ert-command).....map))..(define- |
| e4ea0 | 6d 69 6e 6f 72 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 6d 6f 64 65 0a | minor-mode.slime-repl-read-mode. |
| e4ec0 | 20 20 22 4d 6f 64 65 20 74 6f 20 72 65 61 64 20 69 6e 70 75 74 20 66 72 6f 6d 20 45 6d 61 63 73 | .."Mode.to.read.input.from.Emacs |
| e4ee0 | 0a 5c 5c 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 | .\\{slime-repl-read-mode-map}".. |
| e4f00 | 20 3a 69 6e 69 74 2d 76 61 6c 75 65 20 6e 69 6c 0a 20 20 3a 6c 69 67 68 74 65 72 20 22 5b 72 65 | .:init-value.nil...:lighter."[re |
| e4f20 | 61 64 5d 22 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 | ad]")..(make-variable-buffer-loc |
| e4f40 | 61 6c 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 61 64 2d 73 74 72 69 6e 67 2d 74 68 | al..(defvar.slime-read-string-th |
| e4f60 | 72 65 61 64 73 20 6e 69 6c 29 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 | reads.nil))..(make-variable-buff |
| e4f80 | 65 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 61 64 2d 73 74 72 | er-local..(defvar.slime-read-str |
| e4fa0 | 69 6e 67 2d 74 61 67 73 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 | ing-tags.nil))..(defun.slime-rep |
| e4fc0 | 6c 2d 72 65 61 64 2d 73 74 72 69 6e 67 20 28 74 68 72 65 61 64 20 74 61 67 29 0a 20 20 28 73 6c | l-read-string.(thread.tag)...(sl |
| e4fe0 | 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 28 | ime-switch-to-output-buffer)...( |
| e5000 | 70 75 73 68 20 74 68 72 65 61 64 20 73 6c 69 6d 65 2d 72 65 61 64 2d 73 74 72 69 6e 67 2d 74 68 | push.thread.slime-read-string-th |
| e5020 | 72 65 61 64 73 29 0a 20 20 28 70 75 73 68 20 74 61 67 20 73 6c 69 6d 65 2d 72 65 61 64 2d 73 74 | reads)...(push.tag.slime-read-st |
| e5040 | 72 69 6e 67 2d 74 61 67 73 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d | ring-tags)...(goto-char.(point-m |
| e5060 | 61 78 29 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 61 72 6b 2d 6f 75 74 70 75 74 2d 65 6e 64 29 0a 20 | ax))...(slime-mark-output-end).. |
| e5080 | 20 28 73 6c 69 6d 65 2d 6d 61 72 6b 2d 69 6e 70 75 74 2d 73 74 61 72 74 29 0a 20 20 28 73 6c 69 | .(slime-mark-input-start)...(sli |
| e50a0 | 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 6d 6f 64 65 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | me-repl-read-mode.1))..(defun.sl |
| e50c0 | 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 29 0a | ime-repl-return-string.(string). |
| e50e0 | 20 20 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 60 28 3a 65 6d 61 63 73 | ..(slime-dispatch-event.`(:emacs |
| e5100 | 2d 72 65 74 75 72 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -return-string.................. |
| e5120 | 20 20 20 20 20 20 20 20 20 2c 28 70 6f 70 20 73 6c 69 6d 65 2d 72 65 61 64 2d 73 74 72 69 6e 67 | .........,(pop.slime-read-string |
| e5140 | 2d 74 68 72 65 61 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -threads)....................... |
| e5160 | 20 20 20 20 2c 28 70 6f 70 20 73 6c 69 6d 65 2d 72 65 61 64 2d 73 74 72 69 6e 67 2d 74 61 67 73 | ....,(pop.slime-read-string-tags |
| e5180 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 73 74 72 | )...........................,str |
| e51a0 | 69 6e 67 29 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 6d 6f 64 65 20 2d 31 | ing))...(slime-repl-read-mode.-1 |
| e51c0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 62 72 65 61 6b | ))..(defun.slime-repl-read-break |
| e51e0 | 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 64 69 73 | .()...(interactive)...(slime-dis |
| e5200 | 70 61 74 63 68 2d 65 76 65 6e 74 20 60 28 3a 65 6d 61 63 73 2d 69 6e 74 65 72 72 75 70 74 20 2c | patch-event.`(:emacs-interrupt., |
| e5220 | 28 63 61 72 20 73 6c 69 6d 65 2d 72 65 61 64 2d 73 74 72 69 6e 67 2d 74 68 72 65 61 64 73 29 29 | (car.slime-read-string-threads)) |
| e5240 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 62 6f 72 74 2d 72 65 61 64 | ))..(defun.slime-repl-abort-read |
| e5260 | 20 28 74 68 72 65 61 64 20 74 61 67 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 | .(thread.tag)...(with-current-bu |
| e5280 | 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 | ffer.(slime-output-buffer).....( |
| e52a0 | 70 6f 70 20 73 6c 69 6d 65 2d 72 65 61 64 2d 73 74 72 69 6e 67 2d 74 68 72 65 61 64 73 29 0a 20 | pop.slime-read-string-threads).. |
| e52c0 | 20 20 20 28 70 6f 70 20 73 6c 69 6d 65 2d 72 65 61 64 2d 73 74 72 69 6e 67 2d 74 61 67 73 29 0a | ...(pop.slime-read-string-tags). |
| e52e0 | 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 64 2d 6d 6f 64 65 20 2d 31 29 0a 20 20 | ....(slime-repl-read-mode.-1)... |
| e5300 | 20 20 28 6d 65 73 73 61 67 65 20 22 52 65 61 64 20 61 62 6f 72 74 65 64 22 29 29 29 0a 0a 0c 0a | ..(message."Read.aborted"))).... |
| e5320 | 3b 3b 3b 3b 3b 20 52 45 50 4c 20 68 61 6e 64 6c 65 72 73 0a 0a 28 63 6c 2d 64 65 66 73 74 72 75 | ;;;;;.REPL.handlers..(cl-defstru |
| e5340 | 63 74 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 28 3a 63 6f 6e 63 2d 6e | ct.(slime-repl-shortcut.(:conc-n |
| e5360 | 61 6d 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2e 29 29 0a 20 20 73 79 6d | ame.slime-repl-shortcut.))...sym |
| e5380 | 62 6f 6c 20 6e 61 6d 65 73 20 68 61 6e 64 6c 65 72 20 6f 6e 65 2d 6c 69 6e 65 72 29 0a 0a 28 64 | bol.names.handler.one-liner)..(d |
| e53a0 | 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 74 61 62 6c 65 20 | efvar.slime-repl-shortcut-table. |
| e53c0 | 6e 69 6c 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 | nil..."A.list.of.slime-repl-shor |
| e53e0 | 74 63 75 74 73 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 | tcuts")..(defvar.slime-repl-shor |
| e5400 | 74 63 75 74 2d 68 69 73 74 6f 72 79 20 27 28 29 0a 20 20 22 48 69 73 74 6f 72 79 20 6c 69 73 74 | tcut-history.'()..."History.list |
| e5420 | 20 6f 66 20 73 68 6f 72 74 63 75 74 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 73 2e 22 29 0a 0a 28 | .of.shortcut.command.names.")..( |
| e5440 | 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 77 69 74 68 69 6e 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 | defvar.slime-within-repl-shortcu |
| e5460 | 74 2d 68 61 6e 64 6c 65 72 2d 70 20 6e 69 6c 0a 20 20 22 42 6f 75 6e 64 20 74 6f 20 54 20 69 66 | t-handler-p.nil..."Bound.to.T.if |
| e5480 | 20 77 65 27 72 65 20 69 6e 20 61 20 52 45 50 4c 20 73 68 6f 72 74 63 75 74 20 68 61 6e 64 6c 65 | .we're.in.a.REPL.shortcut.handle |
| e54a0 | 72 20 69 6e 76 6f 6b 65 64 20 66 72 6f 6d 20 74 68 65 20 52 45 50 4c 2e 22 29 0a 0a 28 64 65 66 | r.invoked.from.the.REPL.")..(def |
| e54c0 | 75 6e 20 73 6c 69 6d 65 2d 68 61 6e 64 6c 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 28 29 | un.slime-handle-repl-shortcut.() |
| e54e0 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 3e 20 28 70 6f 69 6e 74 | ...(interactive)...(if.(>.(point |
| e5500 | 29 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 | ).slime-repl-input-start-mark).. |
| e5520 | 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 73 74 72 69 6e 67 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | .....(insert.(string.slime-repl- |
| e5540 | 73 68 6f 72 74 63 75 74 2d 64 69 73 70 61 74 63 68 2d 63 68 61 72 29 29 0a 20 20 20 20 28 6c 65 | shortcut-dispatch-char)).....(le |
| e5560 | 74 20 28 28 73 68 6f 72 74 63 75 74 20 28 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 70 2d 73 68 6f 72 74 | t.((shortcut.(slime-lookup-short |
| e5580 | 63 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 | cut......................(comple |
| e55a0 | 74 69 6e 67 2d 72 65 61 64 20 22 43 6f 6d 6d 61 6e 64 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 | ting-read."Command:."........... |
| e55c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | ............................(sli |
| e55e0 | 6d 65 2d 62 6f 67 75 73 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 | me-bogus-completion-alist....... |
| e5600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| e5620 | 20 28 73 6c 69 6d 65 2d 6c 69 73 74 2d 61 6c 6c 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 73 29 | .(slime-list-all-repl-shortcuts) |
| e5640 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| e5660 | 20 20 20 20 20 20 20 20 6e 69 6c 20 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........nil.t.nil............... |
| e5680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 72 | ........................'slime-r |
| e56a0 | 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 68 69 73 74 6f 72 79 29 29 29 29 0a 20 20 20 20 20 20 28 | epl-shortcut-history)))).......( |
| e56c0 | 77 69 74 68 2d 73 74 72 75 63 74 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 | with-struct.(slime-repl-shortcut |
| e56e0 | 2e 20 68 61 6e 64 6c 65 72 29 20 73 68 6f 72 74 63 75 74 0a 20 20 20 20 20 20 20 20 28 6c 65 74 | ..handler).shortcut.........(let |
| e5700 | 20 28 28 73 6c 69 6d 65 2d 77 69 74 68 69 6e 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 68 61 | .((slime-within-repl-shortcut-ha |
| e5720 | 6e 64 6c 65 72 2d 70 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 | ndler-p.t))...........(call-inte |
| e5740 | 72 61 63 74 69 76 65 6c 79 20 68 61 6e 64 6c 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ractively.handler))))))..(defun. |
| e5760 | 73 6c 69 6d 65 2d 6c 69 73 74 2d 61 6c 6c 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 73 20 28 29 | slime-list-all-repl-shortcuts.() |
| e5780 | 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 73 68 6f 72 74 63 75 74 20 69 6e 20 73 6c 69 6d | ...(cl-loop.for.shortcut.in.slim |
| e57a0 | 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 | e-repl-shortcut-table........... |
| e57c0 | 20 61 70 70 65 6e 64 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2e 6e 61 6d | .append.(slime-repl-shortcut.nam |
| e57e0 | 65 73 20 73 68 6f 72 74 63 75 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c 6f 6f | es.shortcut)))..(defun.slime-loo |
| e5800 | 6b 75 70 2d 73 68 6f 72 74 63 75 74 20 28 6e 61 6d 65 29 0a 20 20 28 63 6c 2d 66 69 6e 64 2d 69 | kup-shortcut.(name)...(cl-find-i |
| e5820 | 66 20 28 6c 61 6d 62 64 61 20 28 73 29 20 28 6d 65 6d 62 65 72 20 6e 61 6d 65 20 28 73 6c 69 6d | f.(lambda.(s).(member.name.(slim |
| e5840 | 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2e 6e 61 6d 65 73 20 73 29 29 29 0a 20 20 20 20 20 | e-repl-shortcut.names.s)))...... |
| e5860 | 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 74 61 62 | .........slime-repl-shortcut-tab |
| e5880 | 6c 65 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 | le))..(defmacro.defslime-repl-sh |
| e58a0 | 6f 72 74 63 75 74 20 28 65 6c 69 73 70 2d 6e 61 6d 65 20 6e 61 6d 65 73 20 26 72 65 73 74 20 6f | ortcut.(elisp-name.names.&rest.o |
| e58c0 | 70 74 69 6f 6e 73 29 0a 20 20 22 44 65 66 69 6e 65 20 61 20 6e 65 77 20 72 65 70 6c 20 73 68 6f | ptions)..."Define.a.new.repl.sho |
| e58e0 | 72 74 63 75 74 2e 20 45 4c 49 53 50 2d 4e 41 4d 45 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 73 70 | rtcut..ELISP-NAME.is.a.symbol.sp |
| e5900 | 65 63 69 66 79 69 6e 67 0a 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 69 6e 74 65 72 61 63 | ecifying.the.name.of.the.interac |
| e5920 | 74 69 76 65 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63 72 65 61 74 65 2c 20 6f 72 20 4e 49 4c 20 | tive.function.to.create,.or.NIL. |
| e5940 | 69 66 20 6e 6f 0a 66 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 20 62 65 20 63 72 65 61 74 65 64 | if.no.function.should.be.created |
| e5960 | 2e 0a 0a 4e 41 4d 45 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 5c 28 66 75 6c 6c 2d 6e 61 6d | ...NAMES.is.a.list.of.\(full-nam |
| e5980 | 65 20 2e 20 61 6c 69 61 73 65 73 5c 29 2e 0a 0a 4f 50 54 49 4f 4e 53 20 69 73 20 61 6e 20 70 6c | e...aliases\)...OPTIONS.is.an.pl |
| e59a0 | 69 73 74 20 73 70 65 63 69 66 79 69 6e 67 20 74 68 65 20 68 61 6e 64 6c 65 72 20 64 6f 69 6e 67 | ist.specifying.the.handler.doing |
| e59c0 | 20 74 68 65 20 61 63 74 75 61 6c 20 77 6f 72 6b 0a 6f 66 20 74 68 65 20 73 68 6f 72 74 63 75 74 | .the.actual.work.of.the.shortcut |
| e59e0 | 20 5c 28 60 3a 68 61 6e 64 6c 65 72 27 5c 29 2c 20 61 6e 64 20 61 20 68 65 6c 70 20 74 65 78 74 | .\(`:handler'\),.and.a.help.text |
| e5a00 | 20 5c 28 60 3a 6f 6e 65 2d 6c 69 6e 65 72 27 5c 29 2e 22 0a 20 20 60 28 70 72 6f 67 6e 0a 20 20 | .\(`:one-liner'\)."...`(progn... |
| e5a20 | 20 20 20 2c 28 77 68 65 6e 20 65 6c 69 73 70 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 60 28 64 | ...,(when.elisp-name.........`(d |
| e5a40 | 65 66 75 6e 20 2c 65 6c 69 73 70 2d 6e 61 6d 65 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | efun.,elisp-name.()............( |
| e5a60 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 69 6e | interactive)............(call-in |
| e5a80 | 74 65 72 61 63 74 69 76 65 6c 79 20 2c 28 63 6c 2d 73 65 63 6f 6e 64 20 28 61 73 73 6f 63 20 3a | teractively.,(cl-second.(assoc.: |
| e5aa0 | 68 61 6e 64 6c 65 72 20 6f 70 74 69 6f 6e 73 29 29 29 29 29 0a 20 20 20 20 20 28 6c 65 74 20 28 | handler.options)))))......(let.( |
| e5ac0 | 28 6e 65 77 2d 73 68 6f 72 74 63 75 74 20 28 6d 61 6b 65 2d 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 | (new-shortcut.(make-slime-repl-s |
| e5ae0 | 68 6f 72 74 63 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hortcut......................... |
| e5b00 | 20 20 3a 73 79 6d 62 6f 6c 20 27 2c 65 6c 69 73 70 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 | ..:symbol.',elisp-name.......... |
| e5b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 61 6d 65 73 20 28 6c 69 73 74 20 2c 40 | .................:names.(list.,@ |
| e5b40 | 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | names).......................... |
| e5b60 | 20 2c 40 28 61 70 70 6c 79 20 23 27 61 70 70 65 6e 64 20 6f 70 74 69 6f 6e 73 29 29 29 29 0a 20 | .,@(apply.#'append.options)))).. |
| e5b80 | 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d | ......(setq.slime-repl-shortcut- |
| e5ba0 | 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 | table..............(cl-remove-if |
| e5bc0 | 20 28 6c 61 6d 62 64 61 20 28 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(lambda.(s).................... |
| e5be0 | 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 27 2c 28 63 61 72 20 6e 61 6d 65 73 29 20 | ..........(member.',(car.names). |
| e5c00 | 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2e 6e 61 6d 65 73 20 73 29 29 29 0a | (slime-repl-shortcut.names.s))). |
| e5c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 | ...........................slime |
| e5c40 | 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 74 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 28 70 | -repl-shortcut-table))........(p |
| e5c60 | 75 73 68 20 6e 65 77 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 | ush.new-shortcut.slime-repl-shor |
| e5c80 | 74 63 75 74 2d 74 61 62 6c 65 29 0a 20 20 20 20 20 20 20 27 2c 65 6c 69 73 70 2d 6e 61 6d 65 29 | tcut-table)........',elisp-name) |
| e5ca0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 65 | ))..(defun.slime-repl-shortcut-e |
| e5cc0 | 76 61 6c 20 28 73 65 78 70 20 26 6f 70 74 69 6f 6e 61 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 22 | val.(sexp.&optional.package)..." |
| e5ce0 | 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 20 62 65 20 75 73 65 64 20 62 79 20 | This.function.should.be.used.by. |
| e5d00 | 52 45 50 4c 20 73 68 6f 72 74 63 75 74 20 68 61 6e 64 6c 65 72 73 20 69 6e 73 74 65 61 64 0a 6f | REPL.shortcut.handlers.instead.o |
| e5d20 | 66 20 60 73 6c 69 6d 65 2d 65 76 61 6c 27 20 74 6f 20 65 76 61 6c 75 61 74 65 20 74 68 65 69 72 | f.`slime-eval'.to.evaluate.their |
| e5d40 | 20 66 69 6e 61 6c 20 65 78 70 61 6e 73 69 6f 6e 2e 20 28 54 68 69 73 0a 65 78 70 61 6e 73 69 6f | .final.expansion..(This.expansio |
| e5d60 | 6e 20 77 69 6c 6c 20 62 65 20 61 64 64 65 64 20 74 6f 20 74 68 65 20 52 45 50 4c 27 73 20 68 69 | n.will.be.added.to.the.REPL's.hi |
| e5d80 | 73 74 6f 72 79 2e 29 22 0a 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 77 69 74 68 69 6e 2d 72 65 | story.)"...(when.slime-within-re |
| e5da0 | 70 6c 2d 73 68 6f 72 74 63 75 74 2d 68 61 6e 64 6c 65 72 2d 70 20 3b 20 77 65 72 65 20 77 65 20 | pl-shortcut-handler-p.;.were.we. |
| e5dc0 | 69 6e 76 6f 6b 65 64 20 76 69 61 20 2c 66 6f 6f 3f 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 | invoked.via.,foo?.....(slime-rep |
| e5de0 | 6c 2d 61 64 64 2d 74 6f 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 20 28 70 72 69 6e 31 2d 74 6f | l-add-to-input-history.(prin1-to |
| e5e00 | 2d 73 74 72 69 6e 67 20 73 65 78 70 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 73 65 | -string.sexp)))...(slime-eval.se |
| e5e20 | 78 70 20 70 61 63 6b 61 67 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | xp.package))..(defun.slime-repl- |
| e5e40 | 73 68 6f 72 74 63 75 74 2d 65 76 61 6c 2d 61 73 79 6e 63 20 28 73 65 78 70 20 26 6f 70 74 69 6f | shortcut-eval-async.(sexp.&optio |
| e5e60 | 6e 61 6c 20 63 6f 6e 74 20 70 61 63 6b 61 67 65 29 0a 20 20 22 54 68 69 73 20 66 75 6e 63 74 69 | nal.cont.package)..."This.functi |
| e5e80 | 6f 6e 20 73 68 6f 75 6c 64 20 62 65 20 75 73 65 64 20 62 79 20 52 45 50 4c 20 73 68 6f 72 74 63 | on.should.be.used.by.REPL.shortc |
| e5ea0 | 75 74 20 68 61 6e 64 6c 65 72 73 20 69 6e 73 74 65 61 64 0a 6f 66 20 60 73 6c 69 6d 65 2d 65 76 | ut.handlers.instead.of.`slime-ev |
| e5ec0 | 61 6c 2d 61 73 79 6e 63 27 20 74 6f 20 65 76 61 6c 75 61 74 65 20 74 68 65 69 72 20 66 69 6e 61 | al-async'.to.evaluate.their.fina |
| e5ee0 | 6c 20 65 78 70 61 6e 73 69 6f 6e 2e 20 28 54 68 69 73 0a 65 78 70 61 6e 73 69 6f 6e 20 77 69 6c | l.expansion..(This.expansion.wil |
| e5f00 | 6c 20 62 65 20 61 64 64 65 64 20 74 6f 20 74 68 65 20 52 45 50 4c 27 73 20 68 69 73 74 6f 72 79 | l.be.added.to.the.REPL's.history |
| e5f20 | 2e 29 22 0a 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 77 69 74 68 69 6e 2d 72 65 70 6c 2d 73 68 | .)"...(when.slime-within-repl-sh |
| e5f40 | 6f 72 74 63 75 74 2d 68 61 6e 64 6c 65 72 2d 70 20 3b 20 77 65 72 65 20 77 65 20 69 6e 76 6f 6b | ortcut-handler-p.;.were.we.invok |
| e5f60 | 65 64 20 76 69 61 20 2c 66 6f 6f 3f 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 64 64 | ed.via.,foo?.....(slime-repl-add |
| e5f80 | 2d 74 6f 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 | -to-input-history.(prin1-to-stri |
| e5fa0 | 6e 67 20 73 65 78 70 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 73 | ng.sexp)))...(slime-eval-async.s |
| e5fc0 | 65 78 70 20 63 6f 6e 74 20 70 61 63 6b 61 67 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | exp.cont.package))..(defun.slime |
| e5fe0 | 2d 6c 69 73 74 2d 72 65 70 6c 2d 73 68 6f 72 74 2d 63 75 74 73 20 28 29 0a 20 20 28 69 6e 74 65 | -list-repl-short-cuts.()...(inte |
| e6000 | 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 | ractive)...(slime-with-popup-buf |
| e6020 | 66 65 72 20 28 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 72 65 70 6c 2d 68 65 | fer.((slime-buffer-name.:repl-he |
| e6040 | 6c 70 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 74 61 62 6c 65 20 28 63 6c 2d 73 6f 72 74 20 28 | lp)).....(let.((table.(cl-sort.( |
| e6060 | 63 6c 2d 63 6f 70 79 2d 6c 69 73 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 | cl-copy-list.slime-repl-shortcut |
| e6080 | 2d 74 61 62 6c 65 29 20 23 27 73 74 72 69 6e 67 3c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -table).#'string<............... |
| e60a0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 | ............:key.(lambda.(x).... |
| e60c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | ..............................(c |
| e60e0 | 61 72 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2e 6e 61 6d 65 73 20 78 29 | ar.(slime-repl-shortcut.names.x) |
| e6100 | 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 | ))))).......(save-excursion..... |
| e6120 | 20 20 20 20 28 64 6f 6c 69 73 74 20 28 73 68 6f 72 74 63 75 74 20 74 61 62 6c 65 29 0a 20 20 20 | ....(dolist.(shortcut.table).... |
| e6140 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 73 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d | .......(let.((names.(slime-repl- |
| e6160 | 73 68 6f 72 74 63 75 74 2e 6e 61 6d 65 73 20 73 68 6f 72 74 63 75 74 29 29 29 0a 20 20 20 20 20 | shortcut.names.shortcut)))...... |
| e6180 | 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 70 6f 70 20 6e 61 6d 65 73 29 29 20 3b 3b 20 66 | .......(insert.(pop.names)).;;.f |
| e61a0 | 69 72 73 74 20 70 72 69 6e 74 20 74 68 65 20 22 66 75 6c 6c 22 20 6e 61 6d 65 0a 20 20 20 20 20 | irst.print.the."full".name...... |
| e61c0 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 6e 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(when.names.............. |
| e61e0 | 20 3b 3b 20 77 65 20 61 6c 73 6f 20 68 61 76 65 20 61 6c 69 61 73 65 73 0a 20 20 20 20 20 20 20 | .;;.we.also.have.aliases........ |
| e6200 | 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 28 61 6b 61 20 22 29 0a 20 20 20 20 20 20 20 | .......(insert.".(aka.")........ |
| e6220 | 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 63 64 72 20 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 | .......(while.(cdr.names)....... |
| e6240 | 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 70 6f 70 20 6e 61 6d 65 73 29 20 22 2c | ..........(insert.(pop.names).", |
| e6260 | 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 61 72 20 | ."))...............(insert.(car. |
| e6280 | 6e 61 6d 65 73 29 20 22 29 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 | names).")")).............(when.( |
| e62a0 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2e 6f 6e 65 2d 6c 69 6e 65 72 20 73 68 | slime-repl-shortcut.one-liner.sh |
| e62c0 | 6f 72 74 63 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c | ortcut)...............(insert."\ |
| e62e0 | 6e 20 20 20 20 20 22 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2e 6f 6e 65 | n.....".(slime-repl-shortcut.one |
| e6300 | 2d 6c 69 6e 65 72 20 73 68 6f 72 74 63 75 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | -liner.shortcut))).............( |
| e6320 | 69 6e 73 65 72 74 20 22 5c 6e 22 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | insert."\n")))))))..(defun.slime |
| e6340 | 2d 73 61 76 65 2d 73 6f 6d 65 2d 6c 69 73 70 2d 62 75 66 66 65 72 73 20 28 29 0a 20 20 28 69 66 | -save-some-lisp-buffers.()...(if |
| e6360 | 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 6e 6c 79 2d 73 61 76 65 2d 6c 69 73 70 2d 62 75 66 66 65 | .slime-repl-only-save-lisp-buffe |
| e6380 | 72 73 0a 20 20 20 20 20 20 28 73 61 76 65 2d 73 6f 6d 65 2d 62 75 66 66 65 72 73 20 6e 69 6c 20 | rs.......(save-some-buffers.nil. |
| e63a0 | 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (lambda.()...................... |
| e63c0 | 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6d 65 6d 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 | ..........(and.(memq.major-mode. |
| e63e0 | 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | slime-lisp-modes)............... |
| e6400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6e 75 6c 6c | ......................(not.(null |
| e6420 | 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 28 73 61 76 65 | .buffer-file-name))))).....(save |
| e6440 | 2d 73 6f 6d 65 2d 62 75 66 66 65 72 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6b | -some-buffers)))..(defun.slime-k |
| e6460 | 69 6c 6c 2d 61 6c 6c 2d 62 75 66 66 65 72 73 20 28 29 0a 20 20 22 4b 69 6c 6c 20 61 6c 6c 20 74 | ill-all-buffers.()..."Kill.all.t |
| e6480 | 68 65 20 53 4c 49 4d 45 2d 72 65 6c 61 74 65 64 20 62 75 66 66 65 72 73 2e 22 0a 20 20 28 64 6f | he.SLIME-related.buffers."...(do |
| e64a0 | 6c 69 73 74 20 28 62 75 66 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 29 0a 20 20 20 20 28 77 68 | list.(buf.(buffer-list)).....(wh |
| e64c0 | 65 6e 20 28 6f 72 20 28 73 74 72 69 6e 67 3d 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 20 62 75 66 | en.(or.(string=.(buffer-name.buf |
| e64e0 | 29 20 73 6c 69 6d 65 2d 65 76 65 6e 74 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 | ).slime-event-buffer-name)...... |
| e6500 | 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5c 5c 2a 69 6e 66 65 | .........(string-match."^\\*infe |
| e6520 | 72 69 6f 72 2d 6c 69 73 70 2a 22 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 20 62 75 66 29 29 0a 20 | rior-lisp*".(buffer-name.buf)).. |
| e6540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5c 5c 2a | .............(string-match."^\\* |
| e6560 | 73 6c 69 6d 65 2d 72 65 70 6c 20 2e 2a 5c 5c 2a 24 22 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 20 | slime-repl..*\\*$".(buffer-name. |
| e6580 | 62 75 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 | buf))...............(string-matc |
| e65a0 | 68 20 22 5e 5c 5c 2a 73 6c 64 62 20 2e 2a 5c 5c 2a 24 22 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 | h."^\\*sldb..*\\*$".(buffer-name |
| e65c0 | 20 62 75 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 | .buf))...............(string-mat |
| e65e0 | 63 68 20 22 5e 5c 5c 2a 53 4c 49 4d 45 2e 2a 5c 5c 2a 24 22 20 28 62 75 66 66 65 72 2d 6e 61 6d | ch."^\\*SLIME.*\\*$".(buffer-nam |
| e6600 | 65 20 62 75 66 29 29 29 0a 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 62 75 66 29 | e.buf))).......(kill-buffer.buf) |
| e6620 | 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 | )))..(defslime-repl-shortcut.sli |
| e6640 | 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 68 65 6c 70 20 28 22 68 65 6c 70 22 29 0a 20 | me-repl-shortcut-help.("help").. |
| e6660 | 20 28 3a 68 61 6e 64 6c 65 72 20 27 73 6c 69 6d 65 2d 6c 69 73 74 2d 72 65 70 6c 2d 73 68 6f 72 | .(:handler.'slime-list-repl-shor |
| e6680 | 74 2d 63 75 74 73 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 44 69 73 70 6c 61 79 20 74 | t-cuts)...(:one-liner."Display.t |
| e66a0 | 68 65 20 68 65 6c 70 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 | he.help."))..(defslime-repl-shor |
| e66c0 | 74 63 75 74 20 6e 69 6c 20 28 22 63 68 61 6e 67 65 2d 64 69 72 65 63 74 6f 72 79 22 20 22 21 64 | tcut.nil.("change-directory"."!d |
| e66e0 | 22 20 22 63 64 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 27 73 6c 69 6d 65 2d 73 65 74 2d 64 | "."cd")...(:handler.'slime-set-d |
| e6700 | 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 | efault-directory)...(:one-liner. |
| e6720 | 22 43 68 61 6e 67 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 22 29 | "Change.the.current.directory.") |
| e6740 | 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 6e 69 6c 20 28 | )..(defslime-repl-shortcut.nil.( |
| e6760 | 22 70 77 64 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 | "pwd")...(:handler.(lambda.()... |
| e6780 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 | ............(interactive)....... |
| e67a0 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 | ........(let.((dir.(slime-eval.` |
| e67c0 | 28 73 77 61 6e 6b 3a 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 29 0a 20 20 20 | (swank:default-directory)))).... |
| e67e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 44 69 72 65 63 74 6f 72 79 | .............(message."Directory |
| e6800 | 20 25 73 22 20 64 69 72 29 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 53 68 6f 77 | .%s".dir))))...(:one-liner."Show |
| e6820 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 22 29 29 0a 0a 28 64 65 66 | .the.current.directory."))..(def |
| e6840 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 | slime-repl-shortcut.slime-repl-p |
| e6860 | 75 73 68 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 28 22 70 75 73 68 2d 64 69 72 65 63 74 6f 72 79 | ush-directory...("push-directory |
| e6880 | 22 20 22 2b 64 22 20 22 70 75 73 68 64 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 28 6c 61 6d | "."+d"."pushd")...(:handler.(lam |
| e68a0 | 62 64 61 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | bda.(directory)...............(i |
| e68c0 | 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | nteractive................(list. |
| e68e0 | 28 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 | (read-directory-name............ |
| e6900 | 20 20 20 20 20 20 20 20 20 20 20 22 50 75 73 68 20 64 69 72 65 63 74 6f 72 79 3a 20 22 0a 20 20 | ..........."Push.directory:."... |
| e6920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 | ....................(slime-eval. |
| e6940 | 27 28 73 77 61 6e 6b 3a 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 | '(swank:default-directory))..... |
| e6960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 6e 69 6c 20 22 22 29 29 29 0a | ..................nil.nil.""))). |
| e6980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 | ..............(push.(slime-eval. |
| e69a0 | 27 28 73 77 61 6e 6b 3a 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 | '(swank:default-directory))..... |
| e69c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 64 69 72 65 63 | ................slime-repl-direc |
| e69e0 | 74 6f 72 79 2d 73 74 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | tory-stack)...............(slime |
| e6a00 | 2d 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 | -set-default-directory.directory |
| e6a20 | 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 53 61 76 65 20 74 68 65 20 63 75 72 72 | )))...(:one-liner."Save.the.curr |
| e6a40 | 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 61 6e 64 20 73 65 74 20 69 74 20 74 6f 20 61 20 6e 65 | ent.directory.and.set.it.to.a.ne |
| e6a60 | 77 20 6f 6e 65 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 | w.one."))..(defslime-repl-shortc |
| e6a80 | 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 6f 70 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 28 22 | ut.slime-repl-pop-directory...(" |
| e6aa0 | 70 6f 70 2d 64 69 72 65 63 74 6f 72 79 22 20 22 2d 64 22 20 22 70 6f 70 64 22 29 0a 20 20 28 3a | pop-directory"."-d"."popd")...(: |
| e6ac0 | 68 61 6e 64 6c 65 72 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | handler.(lambda.().............. |
| e6ae0 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 | .(interactive)...............(if |
| e6b00 | 20 28 6e 75 6c 6c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 64 69 72 65 63 74 6f 72 79 2d 73 74 61 63 | .(null.slime-repl-directory-stac |
| e6b20 | 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 44 | k)...................(message."D |
| e6b40 | 69 72 65 63 74 6f 72 79 20 73 74 61 63 6b 20 69 73 20 65 6d 70 74 79 2e 22 29 0a 20 20 20 20 20 | irectory.stack.is.empty.")...... |
| e6b60 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 | ...........(slime-set-default-di |
| e6b80 | 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 20 73 6c | rectory..................(pop.sl |
| e6ba0 | 69 6d 65 2d 72 65 70 6c 2d 64 69 72 65 63 74 6f 72 79 2d 73 74 61 63 6b 29 29 29 29 29 0a 20 20 | ime-repl-directory-stack)))))... |
| e6bc0 | 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 52 65 73 74 6f 72 65 20 74 68 65 20 6c 61 73 74 20 73 61 | (:one-liner."Restore.the.last.sa |
| e6be0 | 76 65 64 20 64 69 72 65 63 74 6f 72 79 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 | ved.directory."))..(defslime-rep |
| e6c00 | 6c 2d 73 68 6f 72 74 63 75 74 20 6e 69 6c 20 28 22 63 68 61 6e 67 65 2d 70 61 63 6b 61 67 65 22 | l-shortcut.nil.("change-package" |
| e6c20 | 20 22 21 70 22 20 22 69 6e 2d 70 61 63 6b 61 67 65 22 20 22 69 6e 22 29 0a 20 20 28 3a 68 61 6e | ."!p"."in-package"."in")...(:han |
| e6c40 | 64 6c 65 72 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 74 2d 70 61 63 6b 61 67 65 29 0a 20 20 | dler.'slime-repl-set-package)... |
| e6c60 | 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 43 68 61 6e 67 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 | (:one-liner."Change.the.current. |
| e6c80 | 70 61 63 6b 61 67 65 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 | package."))..(defslime-repl-shor |
| e6ca0 | 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 75 73 68 2d 70 61 63 6b 61 67 65 20 28 22 70 | tcut.slime-repl-push-package.("p |
| e6cc0 | 75 73 68 2d 70 61 63 6b 61 67 65 22 20 22 2b 70 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 28 | ush-package"."+p")...(:handler.( |
| e6ce0 | 6c 61 6d 62 64 61 20 28 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | lambda.(package)...............( |
| e6d00 | 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 70 61 | interactive.(list.(slime-read-pa |
| e6d20 | 63 6b 61 67 65 2d 6e 61 6d 65 20 22 50 61 63 6b 61 67 65 3a 20 22 29 29 29 0a 20 20 20 20 20 20 | ckage-name."Package:.")))....... |
| e6d40 | 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 | ........(push.(slime-lisp-packag |
| e6d60 | 65 29 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 61 63 6b 61 67 65 2d 73 74 61 63 6b 29 0a 20 20 20 | e).slime-repl-package-stack).... |
| e6d80 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 74 2d 70 61 63 6b 61 | ...........(slime-repl-set-packa |
| e6da0 | 67 65 20 70 61 63 6b 61 67 65 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 53 61 76 | ge.package)))...(:one-liner."Sav |
| e6dc0 | 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 61 6e 64 20 73 65 74 20 69 74 | e.the.current.package.and.set.it |
| e6de0 | 20 74 6f 20 61 20 6e 65 77 20 6f 6e 65 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 | .to.a.new.one."))..(defslime-rep |
| e6e00 | 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 6f 70 2d 70 61 63 6b 61 67 | l-shortcut.slime-repl-pop-packag |
| e6e20 | 65 20 28 22 70 6f 70 2d 70 61 63 6b 61 67 65 22 20 22 2d 70 22 29 0a 20 20 28 3a 68 61 6e 64 6c | e.("pop-package"."-p")...(:handl |
| e6e40 | 65 72 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 | er.(lambda.()...............(int |
| e6e60 | 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c | eractive)...............(if.(nul |
| e6e80 | 6c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 61 63 6b 61 67 65 2d 73 74 61 63 6b 29 0a 20 20 20 20 | l.slime-repl-package-stack)..... |
| e6ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 50 61 63 6b 61 67 65 20 | ..............(message."Package. |
| e6ec0 | 73 74 61 63 6b 20 69 73 20 65 6d 70 74 79 2e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | stack.is.empty.")............... |
| e6ee0 | 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 74 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 | ..(slime-repl-set-package....... |
| e6f00 | 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 61 63 6b 61 | ...........(pop.slime-repl-packa |
| e6f20 | 67 65 2d 73 74 61 63 6b 29 29 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 52 65 73 | ge-stack)))))...(:one-liner."Res |
| e6f40 | 74 6f 72 65 20 74 68 65 20 6c 61 73 74 20 73 61 76 65 64 20 70 61 63 6b 61 67 65 2e 22 29 29 0a | tore.the.last.saved.package.")). |
| e6f60 | 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 | .(defslime-repl-shortcut.slime-r |
| e6f80 | 65 70 6c 2d 72 65 73 65 6e 64 20 28 22 72 65 73 65 6e 64 2d 66 6f 72 6d 22 29 0a 20 20 28 3a 68 | epl-resend.("resend-form")...(:h |
| e6fa0 | 61 6e 64 6c 65 72 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | andler.(lambda.()............... |
| e6fc0 | 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 | (interactive)...............(ins |
| e6fe0 | 65 72 74 20 28 63 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 | ert.(car.slime-repl-input-histor |
| e7000 | 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a | y))...............(insert."\n"). |
| e7020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 6e 64 2d 69 | ..............(slime-repl-send-i |
| e7040 | 6e 70 75 74 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 52 65 73 65 6e 64 20 74 68 | nput)))...(:one-liner."Resend.th |
| e7060 | 65 20 6c 61 73 74 20 66 6f 72 6d 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d | e.last.form."))..(defslime-repl- |
| e7080 | 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 64 69 73 63 6f 6e 6e 65 63 74 20 28 | shortcut.slime-repl-disconnect.( |
| e70a0 | 22 64 69 73 63 6f 6e 6e 65 63 74 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 27 73 6c 69 6d 65 | "disconnect")...(:handler.'slime |
| e70c0 | 2d 64 69 73 63 6f 6e 6e 65 63 74 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 44 69 73 63 | -disconnect)...(:one-liner."Disc |
| e70e0 | 6f 6e 6e 65 63 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 22 29 | onnect.the.current.connection.") |
| e7100 | 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 | )..(defslime-repl-shortcut.slime |
| e7120 | 2d 72 65 70 6c 2d 64 69 73 63 6f 6e 6e 65 63 74 2d 61 6c 6c 20 28 22 64 69 73 63 6f 6e 6e 65 63 | -repl-disconnect-all.("disconnec |
| e7140 | 74 2d 61 6c 6c 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 27 73 6c 69 6d 65 2d 64 69 73 63 6f | t-all")...(:handler.'slime-disco |
| e7160 | 6e 6e 65 63 74 2d 61 6c 6c 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 44 69 73 63 6f 6e | nnect-all)...(:one-liner."Discon |
| e7180 | 6e 65 63 74 20 61 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 22 29 29 0a 0a 28 64 65 66 73 6c | nect.all.connections."))..(defsl |
| e71a0 | 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 61 79 | ime-repl-shortcut.slime-repl-say |
| e71c0 | 6f 6f 6e 61 72 61 20 28 22 73 61 79 6f 6f 6e 61 72 61 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 | oonara.("sayoonara")...(:handler |
| e71e0 | 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 | .(lambda.()...............(inter |
| e7200 | 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 6c 69 | active)...............(when.(sli |
| e7220 | 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me-connected-p)................. |
| e7240 | 28 73 6c 69 6d 65 2d 71 75 69 74 2d 6c 69 73 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (slime-quit-lisp)).............. |
| e7260 | 20 28 73 6c 69 6d 65 2d 6b 69 6c 6c 2d 61 6c 6c 2d 62 75 66 66 65 72 73 29 29 29 0a 20 20 28 3a | .(slime-kill-all-buffers)))...(: |
| e7280 | 6f 6e 65 2d 6c 69 6e 65 72 20 22 51 75 69 74 20 61 6c 6c 20 4c 69 73 70 73 20 61 6e 64 20 63 6c | one-liner."Quit.all.Lisps.and.cl |
| e72a0 | 6f 73 65 20 61 6c 6c 20 53 4c 49 4d 45 20 62 75 66 66 65 72 73 2e 22 29 29 0a 0a 28 64 65 66 73 | ose.all.SLIME.buffers."))..(defs |
| e72c0 | 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 71 75 | lime-repl-shortcut.slime-repl-qu |
| e72e0 | 69 74 20 28 22 71 75 69 74 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 28 6c 61 6d 62 64 61 20 | it.("quit")...(:handler.(lambda. |
| e7300 | 28 29 0a 09 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 | ()........(interactive)......... |
| e7320 | 20 20 20 20 20 20 3b 3b 20 60 73 6c 69 6d 65 2d 71 75 69 74 2d 6c 69 73 70 27 20 64 65 74 65 72 | ......;;.`slime-quit-lisp'.deter |
| e7340 | 6d 69 6e 65 73 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 71 75 69 74 0a 20 20 20 | mines.the.connection.to.quit.... |
| e7360 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6f 6e 20 62 65 68 61 6c 66 20 6f 66 20 74 68 65 20 52 | ...........;;.on.behalf.of.the.R |
| e7380 | 45 50 4c 27 73 20 60 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 27 2e | EPL's.`slime-buffer-connection'. |
| e73a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 70 6c 2d 62 75 66 66 65 | ...............(let.((repl-buffe |
| e73c0 | 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 | r.(slime-output-buffer)))....... |
| e73e0 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 71 75 69 74 2d 6c 69 73 70 29 0a 20 20 20 20 | ..........(slime-quit-lisp)..... |
| e7400 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 72 65 70 6c 2d 62 75 | ............(kill-buffer.repl-bu |
| e7420 | 66 66 65 72 29 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 51 75 69 74 20 74 68 65 | ffer))))...(:one-liner."Quit.the |
| e7440 | 20 63 75 72 72 65 6e 74 20 4c 69 73 70 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 | .current.Lisp."))..(defslime-rep |
| e7460 | 6c 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 64 65 66 70 61 72 61 6d 65 74 | l-shortcut.slime-repl-defparamet |
| e7480 | 65 72 20 28 22 64 65 66 70 61 72 61 6d 65 74 65 72 22 20 22 21 22 29 0a 20 20 28 3a 68 61 6e 64 | er.("defparameter"."!")...(:hand |
| e74a0 | 6c 65 72 20 28 6c 61 6d 62 64 61 20 28 6e 61 6d 65 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 | ler.(lambda.(name.value)........ |
| e74c0 | 20 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 | .......(interactive.(list.(slime |
| e74e0 | 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 4e 61 6d 65 20 28 73 79 6d 62 6f 6c 29 | -read-symbol-name."Name.(symbol) |
| e7500 | 3a 20 22 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :.".t).......................... |
| e7520 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 | ........(slime-read-from-minibuf |
| e7540 | 66 65 72 20 22 56 61 6c 75 65 3a 20 22 20 22 2a 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | fer."Value:."."*")))............ |
| e7560 | 20 20 20 28 69 6e 73 65 72 74 20 22 28 63 6c 3a 64 65 66 70 61 72 61 6d 65 74 65 72 20 22 20 6e | ...(insert."(cl:defparameter.".n |
| e7580 | 61 6d 65 20 22 20 22 20 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame.".".value................... |
| e75a0 | 20 20 20 20 22 20 5c 22 52 45 50 4c 20 67 65 6e 65 72 61 74 65 64 20 67 6c 6f 62 61 6c 20 76 61 | ....".\"REPL.generated.global.va |
| e75c0 | 72 69 61 62 6c 65 2e 5c 22 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | riable.\")")...............(slim |
| e75e0 | 65 2d 72 65 70 6c 2d 73 65 6e 64 2d 69 6e 70 75 74 20 74 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c | e-repl-send-input.t)))...(:one-l |
| e7600 | 69 6e 65 72 20 22 44 65 66 69 6e 65 20 61 20 6e 65 77 20 67 6c 6f 62 61 6c 2c 20 73 70 65 63 69 | iner."Define.a.new.global,.speci |
| e7620 | 61 6c 2c 20 76 61 72 69 61 62 6c 65 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c | al,.variable."))..(defslime-repl |
| e7640 | 2d 73 68 6f 72 74 63 75 74 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6f 6d 70 69 6c 65 2d 61 6e 64 | -shortcut.slime-repl-compile-and |
| e7660 | 2d 6c 6f 61 64 20 28 22 63 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 22 20 22 63 6c 22 29 0a | -load.("compile-and-load"."cl"). |
| e7680 | 20 20 28 3a 68 61 6e 64 6c 65 72 20 28 6c 61 6d 62 64 61 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 | ..(:handler.(lambda.(filename).. |
| e76a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 | .............(interactive.(list. |
| e76c0 | 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (expand-file-name............... |
| e76e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 69 6c 65 2d 6e | ....................(read-file-n |
| e7700 | 61 6d 65 20 22 46 69 6c 65 3a 20 22 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 29 29 29 29 | ame."File:.".nil.nil.nil.nil)))) |
| e7720 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 61 76 65 2d 73 6f 6d 65 2d | ...............(slime-save-some- |
| e7740 | 6c 69 73 70 2d 62 75 66 66 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | lisp-buffers)...............(sli |
| e7760 | 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 | me-repl-shortcut-eval-async..... |
| e7780 | 20 20 20 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d | ...........`(swank:compile-file- |
| e77a0 | 69 66 2d 6e 65 65 64 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 73 6c 69 | if-needed..................,(sli |
| e77c0 | 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 20 74 29 | me-to-lisp-filename.filename).t) |
| e77e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 | ................#'slime-compilat |
| e7800 | 69 6f 6e 2d 66 69 6e 69 73 68 65 64 29 29 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 22 43 | ion-finished)))...(:one-liner."C |
| e7820 | 6f 6d 70 69 6c 65 20 28 69 66 20 6e 65 63 63 65 73 73 61 72 79 29 20 61 6e 64 20 6c 6f 61 64 20 | ompile.(if.neccessary).and.load. |
| e7840 | 61 20 6c 69 73 70 20 66 69 6c 65 2e 22 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 2d 72 65 70 6c 2d | a.lisp.file."))..(defslime-repl- |
| e7860 | 73 68 6f 72 74 63 75 74 20 6e 69 6c 20 20 28 22 72 65 73 74 61 72 74 2d 69 6e 66 65 72 69 6f 72 | shortcut.nil..("restart-inferior |
| e7880 | 2d 6c 69 73 70 22 29 0a 20 20 28 3a 68 61 6e 64 6c 65 72 20 27 73 6c 69 6d 65 2d 72 65 73 74 61 | -lisp")...(:handler.'slime-resta |
| e78a0 | 72 74 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 29 0a 20 20 28 3a 6f 6e 65 2d 6c 69 6e 65 72 20 | rt-inferior-lisp)...(:one-liner. |
| e78c0 | 22 52 65 73 74 61 72 74 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 20 61 6e 64 20 72 65 63 | "Restart.*inferior-lisp*.and.rec |
| e78e0 | 6f 6e 6e 65 63 74 20 53 4c 49 4d 45 2e 22 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 | onnect.SLIME."))..(defun.slime-r |
| e7900 | 65 64 69 72 65 63 74 2d 74 72 61 63 65 2d 6f 75 74 70 75 74 20 28 29 0a 20 20 22 52 65 64 69 72 | edirect-trace-output.()..."Redir |
| e7920 | 65 63 74 20 74 68 65 20 74 72 61 63 65 20 6f 75 74 70 75 74 20 74 6f 20 61 20 73 65 70 61 72 61 | ect.the.trace.output.to.a.separa |
| e7940 | 74 65 20 45 6d 61 63 73 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | te.Emacs.buffer."...(interactive |
| e7960 | 29 0a 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 | )...(let.((buffer.(get-buffer-cr |
| e7980 | 65 61 74 65 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 74 72 61 63 65 29 29 | eate.(slime-buffer-name.:trace)) |
| e79a0 | 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 | )).....(with-current-buffer.buff |
| e79c0 | 65 72 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 72 6b 65 72 20 28 63 6f 70 79 2d 6d 61 72 | er.......(let.((marker.(copy-mar |
| e79e0 | 6b 65 72 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ker.(buffer-size)))............. |
| e7a00 | 28 74 61 72 67 65 74 20 28 63 6c 2d 69 6e 63 66 20 73 6c 69 6d 65 2d 6c 61 73 74 2d 6f 75 74 70 | (target.(cl-incf.slime-last-outp |
| e7a20 | 75 74 2d 74 61 72 67 65 74 2d 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 75 74 68 61 73 68 | ut-target-id))).........(puthash |
| e7a40 | 20 74 61 72 67 65 74 20 6d 61 72 6b 65 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 74 61 72 67 | .target.marker.slime-output-targ |
| e7a60 | 65 74 2d 74 6f 2d 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 | et-to-marker).........(slime-eva |
| e7a80 | 6c 20 60 28 73 77 61 6e 6b 2d 72 65 70 6c 3a 72 65 64 69 72 65 63 74 2d 74 72 61 63 65 2d 6f 75 | l.`(swank-repl:redirect-trace-ou |
| e7aa0 | 74 70 75 74 20 2c 74 61 72 67 65 74 29 29 29 29 0a 20 20 20 20 3b 3b 20 4e 6f 74 65 3a 20 57 65 | tput.,target)))).....;;.Note:.We |
| e7ac0 | 20 77 6f 75 6c 64 20 6c 69 6b 65 20 74 68 65 20 65 6e 74 72 69 65 73 20 69 6e 0a 20 20 20 20 3b | .would.like.the.entries.in.....; |
| e7ae0 | 3b 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 74 6f 2d 6d 61 72 6b 65 72 20 | ;.slime-output-target-to-marker. |
| e7b00 | 74 6f 20 64 69 73 61 70 70 65 61 72 20 77 68 65 6e 20 74 68 65 20 62 75 66 66 65 72 73 20 61 72 | to.disappear.when.the.buffers.ar |
| e7b20 | 65 0a 20 20 20 20 3b 3b 20 6b 69 6c 6c 65 64 2e 20 20 57 65 20 63 61 6e 6e 6f 74 20 6a 75 73 74 | e.....;;.killed...We.cannot.just |
| e7b40 | 20 6d 61 6b 65 20 74 68 65 20 68 61 73 68 2d 74 61 62 6c 65 20 22 3a 77 65 61 6b 6e 65 73 73 20 | .make.the.hash-table.":weakness. |
| e7b60 | 27 76 61 6c 75 65 22 0a 20 20 20 20 3b 3b 20 2d 2d 20 74 68 65 72 65 20 69 73 20 6e 6f 20 72 65 | 'value".....;;.--.there.is.no.re |
| e7b80 | 66 65 72 65 6e 63 65 20 66 72 6f 6d 20 74 68 65 20 62 75 66 66 65 72 73 20 74 6f 20 74 68 65 20 | ference.from.the.buffers.to.the. |
| e7ba0 | 6d 61 72 6b 65 72 73 20 69 6e 20 74 68 65 0a 20 20 20 20 3b 3b 20 62 75 66 66 65 72 2c 20 73 6f | markers.in.the.....;;.buffer,.so |
| e7bc0 | 20 65 6e 74 72 69 65 73 20 77 6f 75 6c 64 20 64 69 73 61 70 70 65 61 72 20 65 76 65 6e 20 74 68 | .entries.would.disappear.even.th |
| e7be0 | 6f 75 67 68 20 74 68 65 20 62 75 66 66 65 72 73 20 61 72 65 0a 20 20 20 20 3b 3b 20 61 6c 69 76 | ough.the.buffers.are.....;;.aliv |
| e7c00 | 65 2e 20 20 42 65 73 74 20 73 6f 6c 75 74 69 6f 6e 20 6d 69 67 68 74 20 62 65 20 74 6f 20 6d 61 | e...Best.solution.might.be.to.ma |
| e7c20 | 6b 65 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 0a 20 20 20 20 3b 3b | ke.buffer-local.variables.....;; |
| e7c40 | 20 74 68 61 74 20 6b 65 65 70 20 74 68 65 20 6d 61 72 6b 65 72 73 2e 20 2d 2d 6d 6b 6f 65 70 70 | .that.keep.the.markers..--mkoepp |
| e7c60 | 65 0a 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 29 29 0a 0a | e.....(pop-to-buffer.buffer))).. |
| e7c80 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 61 6c 6c 2d 64 65 66 75 6e 20 28 29 0a 20 20 22 49 6e | (defun.slime-call-defun.()..."In |
| e7ca0 | 73 65 72 74 20 61 20 63 61 6c 6c 20 74 6f 20 74 68 65 20 74 6f 70 6c 65 76 65 6c 20 66 6f 72 6d | sert.a.call.to.the.toplevel.form |
| e7cc0 | 20 64 65 66 69 6e 65 64 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 20 69 6e 74 6f 20 74 68 65 20 52 | .defined.around.point.into.the.R |
| e7ce0 | 45 50 4c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6c 2d 6c 61 62 65 | EPL."...(interactive)...(cl-labe |
| e7d00 | 6c 73 20 28 28 69 6e 73 65 72 74 2d 63 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ls.((insert-call................ |
| e7d20 | 28 6e 61 6d 65 20 26 6b 65 79 20 28 66 75 6e 63 74 69 6f 6e 20 74 29 0a 20 20 20 20 20 20 20 20 | (name.&key.(function.t)......... |
| e7d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 | .............defclass).......... |
| e7d60 | 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 65 74 66 20 28 61 6e 64 20 66 75 6e 63 74 69 6f 6e | ......(let*.((setf.(and.function |
| e7d80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| e7da0 | 20 20 28 63 6f 6e 73 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(consp.name).................. |
| e7dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6c 65 6e 67 74 68 20 6e 61 6d 65 29 | ................(=.(length.name) |
| e7de0 | 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .2)............................. |
| e7e00 | 20 20 20 20 20 28 65 71 6c 20 28 63 61 72 20 6e 61 6d 65 29 20 27 73 65 74 66 29 29 29 0a 20 20 | .....(eql.(car.name).'setf)))... |
| e7e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 69 66 20 | ....................(symbol.(if. |
| e7e40 | 73 65 74 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | setf............................ |
| e7e60 | 20 20 20 20 20 20 20 28 63 61 64 72 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(cadr.name).............. |
| e7e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 | ...................name))....... |
| e7ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 71 75 61 6c 69 66 69 65 64 2d 73 79 6d 62 6f | ................(qualified-symbo |
| e7ec0 | 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | l-name........................(s |
| e7ee0 | 6c 69 6d 65 2d 71 75 61 6c 69 66 79 2d 63 6c 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 | lime-qualify-cl-symbol-name.symb |
| e7f00 | 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 | ol)).......................(symb |
| e7f20 | 6f 6c 2d 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 63 6c 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 71 75 | ol-name.(slime-cl-symbol-name.qu |
| e7f40 | 61 6c 69 66 69 65 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 | alified-symbol-name))........... |
| e7f60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 28 73 6c 69 | ............(symbol-package.(sli |
| e7f80 | 6d 65 2d 63 6c 2d 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 | me-cl-symbol-package............ |
| e7fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 61 6c | ............................qual |
| e7fc0 | 69 66 69 65 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ified-symbol-name))............. |
| e7fe0 | 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 20 28 69 66 20 28 63 6c 2d 65 71 75 61 6c 70 20 28 | ..........(call.(if.(cl-equalp.( |
| e8000 | 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 29 20 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 | slime-lisp-package).symbol-packa |
| e8020 | 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ge)............................. |
| e8040 | 20 20 20 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....symbol-name................. |
| e8060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 61 6c 69 66 69 65 64 2d 73 79 6d 62 6f 6c 2d 6e | ..............qualified-symbol-n |
| e8080 | 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 | ame)))..................(slime-s |
| e80a0 | 77 69 74 63 68 2d 74 6f 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 | witch-to-output-buffer)......... |
| e80c0 | 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 | .........(goto-char.slime-repl-i |
| e80e0 | 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nput-start-mark)................ |
| e8100 | 20 20 28 69 6e 73 65 72 74 20 28 69 66 20 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | ..(insert.(if.function.......... |
| e8120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 22 0a 20 20 20 20 20 20 20 20 | ...................."("......... |
| e8140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 22 29 29 0a 20 20 20 20 20 20 20 | ..................."."))........ |
| e8160 | 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 65 74 66 0a 20 20 20 20 20 20 20 20 20 20 20 | ..........(when.setf............ |
| e8180 | 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 73 65 74 66 20 28 22 29 29 0a 20 20 20 20 20 | ........(insert."setf.("))...... |
| e81a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 64 65 66 63 6c 61 73 73 0a 20 20 20 20 20 20 20 | ............(if.defclass........ |
| e81c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 6d 61 6b 65 2d 69 6e 73 74 | ..............(insert."make-inst |
| e81e0 | 61 6e 63 65 20 27 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 | ance.'"))..................(inse |
| e8200 | 72 74 20 63 61 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 | rt.call)..................(cond. |
| e8220 | 28 73 65 74 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | (setf.........................(i |
| e8240 | 6e 73 65 72 74 20 22 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nsert.".")...................... |
| e8260 | 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 69 6e 73 65 72 74 20 22 29 20 29 22 | ...(save-excursion.(insert.").)" |
| e8280 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 | )))........................(func |
| e82a0 | 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e | tion.........................(in |
| e82c0 | 73 65 72 74 20 22 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sert.".")....................... |
| e82e0 | 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 69 6e 73 65 72 74 20 22 29 22 29 29 29 | ..(save-excursion.(insert.")"))) |
| e8300 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 66 75 6e 63 74 | )..................(unless.funct |
| e8320 | 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 | ion....................(goto-cha |
| e8340 | 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 29 29 | r.slime-repl-input-start-mark))) |
| e8360 | 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 74 6f 70 6c 65 76 65 6c 20 28 73 6c 69 6d 65 2d 70 61 | )).....(let.((toplevel.(slime-pa |
| e8380 | 72 73 65 2d 74 6f 70 6c 65 76 65 6c 2d 66 6f 72 6d 20 27 28 3a 64 65 66 75 6e 20 3a 64 65 66 67 | rse-toplevel-form.'(:defun.:defg |
| e83a0 | 65 6e 65 72 69 63 20 3a 64 65 66 6d 61 63 72 6f 20 3a 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 | eneric.:defmacro.:define-compile |
| e83c0 | 72 2d 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-macro......................... |
| e83e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 66 6d 65 74 | .........................:defmet |
| e8400 | 68 6f 64 20 3a 64 65 66 70 61 72 61 6d 65 74 65 72 20 3a 64 65 66 76 61 72 20 3a 64 65 66 63 6f | hod.:defparameter.:defvar.:defco |
| e8420 | 6e 73 74 61 6e 74 20 3a 64 65 66 63 6c 61 73 73 29 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 | nstant.:defclass)))).......(if.( |
| e8440 | 73 79 6d 62 6f 6c 70 20 74 6f 70 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 | symbolp.toplevel)...........(err |
| e8460 | 6f 72 20 22 4e 6f 74 20 69 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e | or."Not.in.a.function.definition |
| e8480 | 22 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 74 6f 70 6c 65 76 65 6c | ").........(slime-dcase.toplevel |
| e84a0 | 0a 20 20 20 20 20 20 20 20 20 20 28 28 28 3a 64 65 66 75 6e 20 3a 64 65 66 67 65 6e 65 72 69 63 | ...........(((:defun.:defgeneric |
| e84c0 | 20 3a 64 65 66 6d 61 63 72 6f 20 3a 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 | .:defmacro.:define-compiler-macr |
| e84e0 | 6f 29 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 63 61 | o).symbol)............(insert-ca |
| e8500 | 6c 6c 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 66 6d 65 74 68 | ll.symbol))...........((:defmeth |
| e8520 | 6f 64 20 73 79 6d 62 6f 6c 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 | od.symbol.&rest.args)........... |
| e8540 | 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 | .(declare.(ignore.args))........ |
| e8560 | 20 20 20 20 28 69 6e 73 65 72 74 2d 63 61 6c 6c 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 | ....(insert-call.symbol))....... |
| e8580 | 20 20 20 20 28 28 28 3a 64 65 66 70 61 72 61 6d 65 74 65 72 20 3a 64 65 66 76 61 72 20 3a 64 65 | ....(((:defparameter.:defvar.:de |
| e85a0 | 66 63 6f 6e 73 74 61 6e 74 29 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 | fconstant).symbol)............(i |
| e85c0 | 6e 73 65 72 74 2d 63 61 6c 6c 20 73 79 6d 62 6f 6c 20 3a 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 29 | nsert-call.symbol.:function.nil) |
| e85e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 28 3a 64 65 66 63 6c 61 73 73 29 20 73 79 6d 62 6f 6c | )...........(((:defclass).symbol |
| e8600 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 63 61 6c 6c 20 73 79 6d 62 6f 6c | )............(insert-call.symbol |
| e8620 | 20 3a 64 65 66 63 6c 61 73 73 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 | .:defclass.t))...........(t..... |
| e8640 | 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 74 20 69 6e 20 61 20 66 75 6e 63 74 69 6f 6e | .......(error."Not.in.a.function |
| e8660 | 20 64 65 66 69 6e 69 74 69 6f 6e 22 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | .definition")))))))..(defun.slim |
| e8680 | 65 2d 72 65 70 6c 2d 63 6f 70 79 2d 64 6f 77 6e 2d 74 6f 2d 72 65 70 6c 20 28 73 6c 69 6d 65 66 | e-repl-copy-down-to-repl.(slimef |
| e86a0 | 75 6e 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 | un.&rest.args)...(slime-eval-asy |
| e86c0 | 6e 63 20 60 28 73 77 61 6e 6b 2d 72 65 70 6c 3a 6c 69 73 74 65 6e 65 72 2d 73 61 76 65 2d 76 61 | nc.`(swank-repl:listener-save-va |
| e86e0 | 6c 75 65 20 27 2c 73 6c 69 6d 65 66 75 6e 20 2c 40 61 72 67 73 29 0a 20 20 20 20 23 27 28 6c 61 | lue.',slimefun.,@args).....#'(la |
| e8700 | 6d 62 64 61 20 28 5f 69 67 6e 6f 72 65 64 29 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 | mbda.(_ignored).........(with-cu |
| e8720 | 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 20 20 20 20 20 20 | rrent-buffer.(slime-repl)....... |
| e8740 | 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 27 28 73 77 61 6e 6b 2d 72 65 | ....(slime-eval-async.'(swank-re |
| e8760 | 70 6c 3a 6c 69 73 74 65 6e 65 72 2d 67 65 74 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 | pl:listener-get-value).......... |
| e8780 | 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 5f 69 67 6e 6f 72 65 64 29 0a 20 20 20 20 20 20 20 20 | ...#'(lambda.(_ignored)......... |
| e87a0 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 65 72 74 2d 70 72 6f 6d 70 | ........(slime-repl-insert-promp |
| e87c0 | 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 | t)))))))..(defun.slime-inspector |
| e87e0 | 2d 63 6f 70 79 2d 64 6f 77 6e 2d 74 6f 2d 72 65 70 6c 20 28 6e 75 6d 62 65 72 29 0a 20 20 22 45 | -copy-down-to-repl.(number)..."E |
| e8800 | 76 61 6c 75 61 74 65 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 73 6c 6f 74 20 61 74 20 70 6f | valuate.the.inspector.slot.at.po |
| e8820 | 69 6e 74 20 76 69 61 20 74 68 65 20 52 45 50 4c 20 28 74 6f 20 73 65 74 20 60 2a 27 29 2e 22 0a | int.via.the.REPL.(to.set.`*').". |
| e8840 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 6f 72 20 28 67 65 74 2d 74 65 | ..(interactive.(list.(or.(get-te |
| e8860 | 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 70 61 72 74 2d | xt-property.(point).'slime-part- |
| e8880 | 6e 75 6d 62 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | number)......................... |
| e88a0 | 20 28 65 72 72 6f 72 20 22 4e 6f 20 70 61 72 74 20 61 74 20 70 6f 69 6e 74 22 29 29 29 29 0a 20 | .(error."No.part.at.point")))).. |
| e88c0 | 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6f 70 79 2d 64 6f 77 6e 2d 74 6f 2d 72 65 70 6c 20 27 | .(slime-repl-copy-down-to-repl.' |
| e88e0 | 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 6f 72 2d 6e 74 68 2d 70 61 72 74 20 6e 75 6d 62 65 72 29 | swank:inspector-nth-part.number) |
| e8900 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 63 6f 70 79 2d 64 6f 77 6e 2d 74 6f 2d 72 65 70 6c | )..(defun.sldb-copy-down-to-repl |
| e8920 | 20 28 66 72 61 6d 65 2d 69 64 20 76 61 72 2d 69 64 29 0a 20 20 22 45 76 61 6c 75 61 74 65 20 74 | .(frame-id.var-id)..."Evaluate.t |
| e8940 | 68 65 20 66 72 61 6d 65 20 76 61 72 20 61 74 20 70 6f 69 6e 74 20 76 69 61 20 74 68 65 20 52 45 | he.frame.var.at.point.via.the.RE |
| e8960 | 50 4c 20 28 74 6f 20 73 65 74 20 60 2a 27 29 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | PL.(to.set.`*')."...(interactive |
| e8980 | 20 28 6c 69 73 74 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 | .(list.(sldb-frame-number-at-poi |
| e89a0 | 6e 74 29 20 28 73 6c 64 62 2d 76 61 72 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 29 | nt).(sldb-var-number-at-point))) |
| e89c0 | 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6f 70 79 2d 64 6f 77 6e 2d 74 6f 2d 72 65 70 6c | ...(slime-repl-copy-down-to-repl |
| e89e0 | 20 27 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 | .'swank/backend:frame-var-value. |
| e8a00 | 66 72 61 6d 65 2d 69 64 20 76 61 72 2d 69 64 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 69 | frame-id.var-id))..(defun.sldb-i |
| e8a20 | 6e 73 65 72 74 2d 66 72 61 6d 65 2d 63 61 6c 6c 2d 74 6f 2d 72 65 70 6c 20 28 29 0a 20 20 22 49 | nsert-frame-call-to-repl.()..."I |
| e8a40 | 6e 73 65 72 74 20 61 20 63 61 6c 6c 20 74 6f 20 61 20 66 72 61 6d 65 20 61 74 20 70 6f 69 6e 74 | nsert.a.call.to.a.frame.at.point |
| e8a60 | 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 61 6c 6c | ."...(interactive)...(let.((call |
| e8a80 | 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 3a 66 72 | .(slime-eval.`(swank/backend::fr |
| e8aa0 | 61 6d 65 2d 63 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame-call........................ |
| e8ac0 | 20 20 20 20 20 2c 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e | .....,(sldb-frame-number-at-poin |
| e8ae0 | 74 29 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f 2d 6f 75 74 70 | t))))).....(slime-switch-to-outp |
| e8b00 | 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 69 66 20 28 3e 3d 20 28 70 6f 69 6e 74 29 20 73 | ut-buffer).....(if.(>=.(point).s |
| e8b20 | 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 6f 6d 70 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 0a 20 20 20 | lime-repl-prompt-start-mark).... |
| e8b40 | 20 20 20 20 20 28 69 6e 73 65 72 74 20 63 61 6c 6c 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 | .....(insert.call).......(save-e |
| e8b60 | 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 | xcursion.........(goto-char.(poi |
| e8b80 | 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 63 61 6c 6c 29 29 29 | nt-max)).........(insert.call))) |
| e8ba0 | 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | )...(slime-repl))..(defun.slime- |
| e8bc0 | 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 | set-default-directory.(directory |
| e8be0 | 29 0a 20 20 22 4d 61 6b 65 20 44 49 52 45 43 54 4f 52 59 20 62 65 63 6f 6d 65 20 4c 69 73 70 27 | )..."Make.DIRECTORY.become.Lisp' |
| e8c00 | 73 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | s.current.directory."...(interac |
| e8c20 | 74 69 76 65 20 28 6c 69 73 74 20 28 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 | tive.(list.(read-directory-name. |
| e8c40 | 22 44 69 72 65 63 74 6f 72 79 3a 20 22 20 6e 69 6c 20 6e 69 6c 20 74 29 29 29 0a 20 20 28 6c 65 | "Directory:.".nil.nil.t)))...(le |
| e8c60 | 74 20 28 28 64 69 72 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 69 72 65 63 74 | t.((dir.(expand-file-name.direct |
| e8c80 | 6f 72 79 29 29 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 64 65 66 61 75 6c 74 2d 64 69 72 | ory))).....(message."default-dir |
| e8ca0 | 65 63 74 6f 72 79 3a 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | ectory:.%s"..............(slime- |
| e8cc0 | 66 72 6f 6d 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | from-lisp-filename.............. |
| e8ce0 | 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 2d 65 76 61 6c 20 60 28 73 77 61 | .(slime-repl-shortcut-eval.`(swa |
| e8d00 | 6e 6b 3a 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 | nk:set-default-directory........ |
| e8d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| e8d40 | 20 20 20 2c 28 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 64 69 72 29 | ...,(slime-to-lisp-filename.dir) |
| e8d60 | 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 | )))).....(with-current-buffer.(s |
| e8d80 | 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 | lime-output-buffer).......(setq. |
| e8da0 | 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 29 29 29 29 0a 0a 28 64 65 66 75 | default-directory.dir))))..(defu |
| e8dc0 | 6e 20 73 6c 69 6d 65 2d 73 79 6e 63 2d 70 61 63 6b 61 67 65 2d 61 6e 64 2d 64 65 66 61 75 6c 74 | n.slime-sync-package-and-default |
| e8de0 | 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 22 53 65 74 20 4c 69 73 70 27 73 20 70 61 63 6b | -directory.()..."Set.Lisp's.pack |
| e8e00 | 61 67 65 20 61 6e 64 20 64 69 72 65 63 74 6f 72 79 20 74 6f 20 74 68 65 20 76 61 6c 75 65 73 20 | age.and.directory.to.the.values. |
| e8e20 | 69 6e 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | in.current.buffer."...(interacti |
| e8e40 | 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 61 63 6b 61 67 65 20 28 73 6c 69 6d 65 2d 63 75 72 | ve)...(let*.((package.(slime-cur |
| e8e60 | 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 78 69 73 74 73 2d | rent-package))..........(exists- |
| e8e80 | 70 20 28 6f 72 20 28 6e 75 6c 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | p.(or.(null.package)............ |
| e8ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 63 6c 3a 70 61 63 | ............(slime-eval.`(cl:pac |
| e8ec0 | 6b 61 67 65 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kagep........................... |
| e8ee0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 3a 3a 67 75 65 73 73 2d 70 61 63 6b 61 67 65 | ...........(swank::guess-package |
| e8f00 | 20 2c 70 61 63 6b 61 67 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 72 65 63 74 6f | .,package)))))..........(directo |
| e8f20 | 72 79 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 28 77 68 65 6e | ry.default-directory)).....(when |
| e8f40 | 20 28 61 6e 64 20 70 61 63 6b 61 67 65 20 65 78 69 73 74 73 2d 70 29 0a 20 20 20 20 20 20 28 73 | .(and.package.exists-p).......(s |
| e8f60 | 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 74 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 0a | lime-repl-set-package.package)). |
| e8f80 | 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 | ....(slime-set-default-directory |
| e8fa0 | 20 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 3b 3b 20 53 79 6e 63 20 2a 69 6e 66 65 72 69 6f | .directory).....;;.Sync.*inferio |
| e8fc0 | 72 2d 6c 69 73 70 2a 20 64 69 72 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 70 72 6f 63 20 28 73 6c | r-lisp*.dir.....(let*.((proc.(sl |
| e8fe0 | 69 6d 65 2d 70 72 6f 63 65 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 | ime-process))............(buffer |
| e9000 | 20 28 61 6e 64 20 70 72 6f 63 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 29 | .(and.proc.(process-buffer.proc) |
| e9020 | 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 62 | ))).......(when.(buffer-live-p.b |
| e9040 | 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 | uffer).........(with-current-buf |
| e9060 | 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 65 66 61 75 | fer.buffer...........(setq.defau |
| e9080 | 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 29 29 29 29 0a 20 20 20 20 28 | lt-directory.directory)))).....( |
| e90a0 | 6d 65 73 73 61 67 65 20 22 70 61 63 6b 61 67 65 3a 20 25 73 25 73 20 20 64 69 72 65 63 74 6f 72 | message."package:.%s%s..director |
| e90c0 | 79 3a 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e | y:.%s"..............(with-curren |
| e90e0 | 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 | t-buffer.(slime-output-buffer).. |
| e9100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 | ..............(slime-lisp-packag |
| e9120 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 65 78 69 73 74 73 2d 70 20 22 22 | e))..............(if.exists-p."" |
| e9140 | 20 28 66 6f 72 6d 61 74 20 22 20 28 70 61 63 6b 61 67 65 20 25 73 20 64 6f 65 73 6e 27 74 20 65 | .(format.".(package.%s.doesn't.e |
| e9160 | 78 69 73 74 29 22 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 | xist)".package))..............di |
| e9180 | 72 65 63 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 63 6f | rectory)))..(defun.slime-goto-co |
| e91a0 | 6e 6e 65 63 74 69 6f 6e 20 28 29 0a 20 20 22 53 77 69 74 63 68 20 74 6f 20 74 68 65 20 52 45 50 | nnection.()..."Switch.to.the.REP |
| e91c0 | 4c 20 62 75 66 66 65 72 20 66 6f 72 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 61 74 20 70 | L.buffer.for.the.connection.at.p |
| e91e0 | 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 | oint."...(interactive)...(let.(( |
| e9200 | 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6c | slime-dispatching-connection.(sl |
| e9220 | 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 | ime-connection-at-point))).....( |
| e9240 | 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 | switch-to-buffer.(slime-output-b |
| e9260 | 75 66 66 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 | uffer))))..(defun.slime-repl-ins |
| e9280 | 69 64 65 2d 73 74 72 69 6e 67 2d 6f 72 2d 63 6f 6d 6d 65 6e 74 2d 70 20 28 29 0a 20 20 28 73 61 | ide-string-or-comment-p.()...(sa |
| e92a0 | 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 62 | ve-restriction.....(when.(and.(b |
| e92c0 | 6f 75 6e 64 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 | oundp.'slime-repl-input-start-ma |
| e92e0 | 72 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e | rk)................slime-repl-in |
| e9300 | 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e | put-start-mark................(> |
| e9320 | 3d 20 28 70 6f 69 6e 74 29 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 | =.(point).slime-repl-input-start |
| e9340 | 2d 6d 61 72 6b 29 29 0a 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 | -mark)).......(narrow-to-region. |
| e9360 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 6b 20 28 70 6f 69 | slime-repl-input-start-mark.(poi |
| e9380 | 6e 74 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 69 64 65 2d 73 74 72 69 6e 67 2d 6f | nt))).....(slime-inside-string-o |
| e93a0 | 72 2d 63 6f 6d 6d 65 6e 74 2d 70 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 | r-comment-p)))..(defvar.slime-re |
| e93c0 | 70 6c 2d 65 61 73 79 2d 6d 65 6e 75 0a 20 20 28 6c 65 74 20 28 28 43 20 27 28 73 6c 69 6d 65 2d | pl-easy-menu...(let.((C.'(slime- |
| e93e0 | 63 6f 6e 6e 65 63 74 65 64 2d 70 29 29 29 0a 20 20 20 20 60 28 22 52 45 50 4c 22 0a 20 20 20 20 | connected-p))).....`("REPL"..... |
| e9400 | 20 20 5b 20 22 53 65 6e 64 20 49 6e 70 75 74 22 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 | ..[."Send.Input".............sli |
| e9420 | 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 20 2c 43 20 5d 0a 20 20 20 20 20 20 5b 20 22 43 6c 6f | me-repl-return.,C.].......[."Clo |
| e9440 | 73 65 20 61 6e 64 20 53 65 6e 64 20 49 6e 70 75 74 20 22 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | se.and.Send.Input."..slime-repl- |
| e9460 | 63 6c 6f 73 69 6e 67 2d 72 65 74 75 72 6e 20 2c 43 20 5d 0a 20 20 20 20 20 20 5b 20 22 49 6e 74 | closing-return.,C.].......[."Int |
| e9480 | 65 72 72 75 70 74 20 4c 69 73 70 20 70 72 6f 63 65 73 73 22 20 73 6c 69 6d 65 2d 69 6e 74 65 72 | errupt.Lisp.process".slime-inter |
| e94a0 | 72 75 70 74 20 2c 43 20 5d 0a 20 20 20 20 20 20 22 2d 2d 22 0a 20 20 20 20 20 20 5b 20 22 50 72 | rupt.,C.]......."--".......[."Pr |
| e94c0 | 65 76 69 6f 75 73 20 49 6e 70 75 74 22 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c | evious.Input".........slime-repl |
| e94e0 | 2d 70 72 65 76 69 6f 75 73 2d 69 6e 70 75 74 20 74 20 5d 0a 20 20 20 20 20 20 5b 20 22 4e 65 78 | -previous-input.t.].......[."Nex |
| e9500 | 74 20 49 6e 70 75 74 22 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | t.Input".............slime-repl- |
| e9520 | 6e 65 78 74 2d 69 6e 70 75 74 20 74 20 5d 0a 20 20 20 20 20 20 5b 20 22 47 6f 74 6f 20 50 72 65 | next-input.t.].......[."Goto.Pre |
| e9540 | 76 69 6f 75 73 20 50 72 6f 6d 70 74 20 22 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 | vious.Prompt."..slime-repl-previ |
| e9560 | 6f 75 73 2d 70 72 6f 6d 70 74 20 74 20 5d 0a 20 20 20 20 20 20 5b 20 22 47 6f 74 6f 20 4e 65 78 | ous-prompt.t.].......[."Goto.Nex |
| e9580 | 74 20 50 72 6f 6d 70 74 20 22 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d | t.Prompt."......slime-repl-next- |
| e95a0 | 70 72 6f 6d 70 74 20 74 20 5d 0a 20 20 20 20 20 20 5b 20 22 43 6c 65 61 72 20 4c 61 73 74 20 4f | prompt.t.].......[."Clear.Last.O |
| e95c0 | 75 74 70 75 74 22 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 6f 75 74 | utput"......slime-repl-clear-out |
| e95e0 | 70 75 74 20 74 20 5d 0a 20 20 20 20 20 20 5b 20 22 43 6c 65 61 72 20 42 75 66 66 65 72 20 22 20 | put.t.].......[."Clear.Buffer.". |
| e9600 | 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 62 75 66 66 65 72 | .........slime-repl-clear-buffer |
| e9620 | 20 74 20 5d 0a 20 20 20 20 20 20 5b 20 22 4b 69 6c 6c 20 43 75 72 72 65 6e 74 20 49 6e 70 75 74 | .t.].......[."Kill.Current.Input |
| e9640 | 22 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6b 69 6c 6c 2d 69 6e 70 75 74 20 74 20 5d 29 | ".....slime-repl-kill-input.t.]) |
| e9660 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 64 64 2d 65 61 73 79 2d 6d | ))..(defun.slime-repl-add-easy-m |
| e9680 | 65 6e 75 20 28 29 0a 20 20 28 65 61 73 79 2d 6d 65 6e 75 2d 64 65 66 69 6e 65 20 6d 65 6e 75 62 | enu.()...(easy-menu-define.menub |
| e96a0 | 61 72 2d 73 6c 69 6d 65 2d 72 65 70 6c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 | ar-slime-repl.slime-repl-mode-ma |
| e96c0 | 70 0a 20 20 20 20 22 52 45 50 4c 22 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 61 73 79 2d 6d 65 6e | p....."REPL".slime-repl-easy-men |
| e96e0 | 75 29 0a 20 20 28 65 61 73 79 2d 6d 65 6e 75 2d 64 65 66 69 6e 65 20 6d 65 6e 75 62 61 72 2d 73 | u)...(easy-menu-define.menubar-s |
| e9700 | 6c 69 6d 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 20 20 22 53 4c | lime.slime-repl-mode-map....."SL |
| e9720 | 49 4d 45 22 20 73 6c 69 6d 65 2d 65 61 73 79 2d 6d 65 6e 75 29 0a 20 20 28 65 61 73 79 2d 6d 65 | IME".slime-easy-menu)...(easy-me |
| e9740 | 6e 75 2d 61 64 64 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 61 73 79 2d 6d 65 6e 75 20 27 73 6c 69 | nu-add.slime-repl-easy-menu.'sli |
| e9760 | 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 29 29 0a 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 | me-repl-mode-map))..(add-hook.'s |
| e9780 | 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d | lime-repl-mode-hook.'slime-repl- |
| e97a0 | 61 64 64 2d 65 61 73 79 2d 6d 65 6e 75 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 68 69 64 | add-easy-menu)..(defun.slime-hid |
| e97c0 | 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 62 75 66 66 65 72 20 28 29 0a 20 20 22 44 69 73 | e-inferior-lisp-buffer.()..."Dis |
| e97e0 | 70 6c 61 79 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 20 69 6e 73 74 65 61 64 20 6f 66 20 | play.the.REPL.buffer.instead.of. |
| e9800 | 74 68 65 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 20 62 75 66 66 65 72 2e 22 0a 20 20 28 | the.*inferior-lisp*.buffer."...( |
| e9820 | 6c 65 74 2a 20 28 28 62 75 66 66 65 72 20 28 69 66 20 28 73 6c 69 6d 65 2d 70 72 6f 63 65 73 73 | let*.((buffer.(if.(slime-process |
| e9840 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d | )......................(process- |
| e9860 | 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 70 72 6f 63 65 73 73 29 29 29 29 0a 20 20 20 20 20 20 | buffer.(slime-process))))....... |
| e9880 | 20 20 20 28 77 69 6e 64 6f 77 20 28 69 66 20 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 | ...(window.(if.buffer.(get-buffe |
| e98a0 | 72 2d 77 69 6e 64 6f 77 20 62 75 66 66 65 72 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 | r-window.buffer.t)))..........(r |
| e98c0 | 65 70 6c 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 20 | epl-buffer.(slime-output-buffer. |
| e98e0 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 2d 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 | t))..........(repl-window.(get-b |
| e9900 | 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 72 65 70 6c 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 | uffer-window.repl-buffer)))..... |
| e9920 | 28 77 68 65 6e 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 62 75 72 79 2d 62 75 66 66 65 72 20 | (when.buffer.......(bury-buffer. |
| e9940 | 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 72 65 70 6c 2d 77 69 6e 64 6f 77 0a | buffer)).....(cond.(repl-window. |
| e9960 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 | ...........(when.window......... |
| e9980 | 20 20 20 20 20 28 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 29 29 29 0a 20 20 | .....(delete-window.window)))... |
| e99a0 | 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d | ........(window............(set- |
| e99c0 | 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 20 72 65 70 6c 2d 62 75 66 66 65 72 | window-buffer.window.repl-buffer |
| e99e0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 2d | ))...........(t............(pop- |
| e9a00 | 74 6f 2d 62 75 66 66 65 72 20 72 65 70 6c 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 | to-buffer.repl-buffer).......... |
| e9a20 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 29 0a 0a 28 | ..(goto-char.(point-max))))))..( |
| e9a40 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 68 6f 6f 73 65 2d 63 6f 64 69 6e 67 2d 73 | defun.slime-repl-choose-coding-s |
| e9a60 | 79 73 74 65 6d 20 28 29 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 69 64 61 74 65 73 20 28 73 6c | ystem.()...(let.((candidates.(sl |
| e9a80 | 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 73 29 29 29 | ime-connection-coding-systems))) |
| e9aa0 | 0a 20 20 20 20 28 6f 72 20 28 63 6c 2d 66 69 6e 64 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 | .....(or.(cl-find.(symbol-name.( |
| e9ac0 | 63 61 72 20 64 65 66 61 75 6c 74 2d 70 72 6f 63 65 73 73 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 | car.default-process-coding-syste |
| e9ae0 | 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6e 64 69 64 61 74 65 73 0a | m))..................candidates. |
| e9b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 28 6c 61 6d 62 64 61 20 28 | .................:test.(lambda.( |
| e9b20 | 73 31 20 73 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s1.s2).......................... |
| e9b40 | 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2d 65 71 75 61 | (if.(fboundp.'coding-system-equa |
| e9b60 | 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l).............................. |
| e9b80 | 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2d 65 71 75 61 6c 20 28 69 6e 74 65 72 6e 20 73 31 29 | (coding-system-equal.(intern.s1) |
| e9ba0 | 20 28 69 6e 74 65 72 6e 20 73 32 29 29 29 29 29 0a 09 28 63 61 72 20 63 61 6e 64 69 64 61 74 65 | .(intern.s2)))))..(car.candidate |
| e9bc0 | 73 29 0a 09 28 65 72 72 6f 72 20 22 43 61 6e 27 74 20 66 69 6e 64 20 73 75 69 74 61 62 6c 65 20 | s)..(error."Can't.find.suitable. |
| e9be0 | 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | coding-system"))))..(defun.slime |
| e9c00 | 2d 72 65 70 6c 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 2d 66 75 6e 63 74 69 6f 6e 20 28 29 | -repl-connected-hook-function.() |
| e9c20 | 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 70 61 63 6b 61 | ...(cl-destructuring-bind.(packa |
| e9c40 | 67 65 20 70 72 6f 6d 70 74 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 63 75 | ge.prompt).......(let.((slime-cu |
| e9c60 | 72 72 65 6e 74 2d 74 68 72 65 61 64 20 74 29 29 0a 09 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 | rrent-thread.t))..(slime-eval.`( |
| e9c80 | 73 77 61 6e 6b 2d 72 65 70 6c 3a 63 72 65 61 74 65 2d 72 65 70 6c 20 6e 69 6c 29 29 29 0a 20 20 | swank-repl:create-repl.nil)))... |
| e9ca0 | 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 29 20 70 61 63 | ..(setf.(slime-lisp-package).pac |
| e9cc0 | 6b 61 67 65 29 0a 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b | kage).....(setf.(slime-lisp-pack |
| e9ce0 | 61 67 65 2d 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 20 70 72 6f 6d 70 74 29 29 0a 20 20 28 73 | age-prompt-string).prompt))...(s |
| e9d00 | 6c 69 6d 65 2d 68 69 64 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 62 75 66 66 65 72 29 0a | lime-hide-inferior-lisp-buffer). |
| e9d20 | 20 20 28 73 6c 69 6d 65 2d 69 6e 69 74 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 20 28 73 6c 69 | ..(slime-init-output-buffer.(sli |
| e9d40 | 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 | me-connection)))..(defun.slime-r |
| e9d60 | 65 70 6c 2d 65 76 65 6e 74 2d 68 6f 6f 6b 2d 66 75 6e 63 74 69 6f 6e 20 28 65 76 65 6e 74 29 0a | epl-event-hook-function.(event). |
| e9d80 | 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 65 76 65 6e 74 0a 20 20 20 20 28 28 3a 77 72 69 74 | ..(slime-dcase.event.....((:writ |
| e9da0 | 65 2d 73 74 72 69 6e 67 20 6f 75 74 70 75 74 20 26 6f 70 74 69 6f 6e 61 6c 20 74 61 72 67 65 74 | e-string.output.&optional.target |
| e9dc0 | 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 77 72 69 74 65 2d 73 74 72 69 6e | .thread)......(slime-write-strin |
| e9de0 | 67 20 6f 75 74 70 75 74 20 74 61 72 67 65 74 29 0a 20 20 20 20 20 28 77 68 65 6e 20 74 68 72 65 | g.output.target)......(when.thre |
| e9e00 | 61 64 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 6e 64 20 60 28 3a 77 72 69 74 65 2d 64 | ad........(slime-send.`(:write-d |
| e9e20 | 6f 6e 65 20 2c 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 74 29 0a 20 20 20 20 28 28 3a 72 65 | one.,thread)))......t).....((:re |
| e9e40 | 61 64 2d 73 74 72 69 6e 67 20 74 68 72 65 61 64 20 74 61 67 29 0a 20 20 20 20 20 28 63 6c 2d 61 | ad-string.thread.tag)......(cl-a |
| e9e60 | 73 73 65 72 74 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 | ssert.thread)......(slime-repl-r |
| e9e80 | 65 61 64 2d 73 74 72 69 6e 67 20 74 68 72 65 61 64 20 74 61 67 29 0a 20 20 20 20 20 74 29 0a 20 | ead-string.thread.tag)......t).. |
| e9ea0 | 20 20 20 28 28 3a 72 65 61 64 2d 61 62 6f 72 74 65 64 20 74 68 72 65 61 64 20 74 61 67 29 0a 20 | ...((:read-aborted.thread.tag).. |
| e9ec0 | 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 62 6f 72 74 2d 72 65 61 64 20 74 68 72 65 61 | ....(slime-repl-abort-read.threa |
| e9ee0 | 64 20 74 61 67 29 0a 20 20 20 20 20 74 29 0a 20 20 20 20 28 28 3a 6e 65 77 2d 70 61 63 6b 61 67 | d.tag)......t).....((:new-packag |
| e9f00 | 65 20 70 61 63 6b 61 67 65 20 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 28 73 | e.package.prompt-string)......(s |
| e9f20 | 65 74 66 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 29 20 70 61 63 6b 61 67 65 | etf.(slime-lisp-package).package |
| e9f40 | 29 0a 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 | )......(setf.(slime-lisp-package |
| e9f60 | 2d 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 20 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 0a 20 | -prompt-string).prompt-string).. |
| e9f80 | 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 | ....(let.((buffer.(slime-connect |
| e9fa0 | 69 6f 6e 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 | ion-output-buffer)))........(whe |
| e9fc0 | 6e 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 62 75 66 66 65 72 29 0a 09 20 28 77 69 74 68 | n.(buffer-live-p.buffer)...(with |
| e9fe0 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 09 20 20 20 28 73 65 74 71 | -current-buffer.buffer.....(setq |
| ea000 | 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 29 | .slime-buffer-package.package))) |
| ea020 | 29 0a 20 20 20 20 20 74 29 0a 20 20 20 20 28 74 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 | )......t).....(t.nil)))..(defun. |
| ea040 | 73 6c 69 6d 65 2d 63 68 61 6e 67 65 2d 72 65 70 6c 2d 74 6f 2d 64 65 66 61 75 6c 74 2d 63 6f 6e | slime-change-repl-to-default-con |
| ea060 | 6e 65 63 74 69 6f 6e 20 28 29 0a 20 20 22 43 68 61 6e 67 65 20 63 75 72 72 65 6e 74 20 52 45 50 | nection.()..."Change.current.REP |
| ea080 | 4c 20 74 6f 20 74 68 65 20 52 45 50 4c 20 6f 66 20 74 68 65 20 64 65 66 61 75 6c 74 20 63 6f 6e | L.to.the.REPL.of.the.default.con |
| ea0a0 | 6e 65 63 74 69 6f 6e 2e 0a 49 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 69 | nection..If.the.current.buffer.i |
| ea0c0 | 73 20 6e 6f 74 20 61 20 52 45 50 4c 2c 20 64 6f 6e 27 74 20 64 6f 20 61 6e 79 74 68 69 6e 67 2e | s.not.a.REPL,.don't.do.anything. |
| ea0e0 | 22 0a 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 73 6c 69 | "...(when.(equal.major-mode.'sli |
| ea100 | 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 62 | me-repl-mode).....(let.((slime-b |
| ea120 | 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 63 | uffer-connection.slime-default-c |
| ea140 | 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 | onnection)).......(pop-to-buffer |
| ea160 | 2d 73 61 6d 65 2d 77 69 6e 64 6f 77 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6f | -same-window.(slime-connection-o |
| ea180 | 75 74 70 75 74 2d 62 75 66 66 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | utput-buffer)))))..(defun.slime- |
| ea1a0 | 72 65 70 6c 2d 66 69 6e 64 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 28 29 0a 20 20 28 6f | repl-find-buffer-package.()...(o |
| ea1c0 | 72 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 29 0a | r.(slime-search-buffer-package). |
| ea1e0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 70 61 63 6b 61 67 65 29 29 29 0a 0a 28 64 | ......(slime-lisp-package)))..(d |
| ea200 | 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 61 64 64 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 28 | efun.slime-repl-add-hooks.()...( |
| ea220 | 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 65 76 65 6e 74 2d 68 6f 6f 6b 73 20 27 73 6c 69 | add-hook.'slime-event-hooks.'sli |
| ea240 | 6d 65 2d 72 65 70 6c 2d 65 76 65 6e 74 2d 68 6f 6f 6b 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 | me-repl-event-hook-function)...( |
| ea260 | 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 20 27 | add-hook.'slime-connected-hook.' |
| ea280 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 2d 66 75 6e 63 74 69 | slime-repl-connected-hook-functi |
| ea2a0 | 6f 6e 29 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 63 79 63 6c 65 2d 63 6f 6e | on)...(add-hook.'slime-cycle-con |
| ea2c0 | 6e 65 63 74 69 6f 6e 73 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 | nections-hook.............'slime |
| ea2e0 | 2d 63 68 61 6e 67 65 2d 72 65 70 6c 2d 74 6f 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 | -change-repl-to-default-connecti |
| ea300 | 6f 6e 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 6d 6f 76 65 2d 68 | on))..(defun.slime-repl-remove-h |
| ea320 | 6f 6f 6b 73 20 28 29 0a 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 65 76 | ooks.()...(remove-hook.'slime-ev |
| ea340 | 65 6e 74 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 76 65 6e 74 2d 68 6f 6f 6b | ent-hooks.'slime-repl-event-hook |
| ea360 | 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 | -function)...(remove-hook.'slime |
| ea380 | 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6f 6e 6e | -connected-hook.'slime-repl-conn |
| ea3a0 | 65 63 74 65 64 2d 68 6f 6f 6b 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 72 65 6d 6f 76 65 2d 68 | ected-hook-function)...(remove-h |
| ea3c0 | 6f 6f 6b 20 27 73 6c 69 6d 65 2d 63 79 63 6c 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 2d 68 6f 6f | ook.'slime-cycle-connections-hoo |
| ea3e0 | 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 63 68 61 6e 67 65 2d 72 | k................'slime-change-r |
| ea400 | 65 70 6c 2d 74 6f 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 0a 28 64 65 | epl-to-default-connection))..(de |
| ea420 | 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a | fun.slime-repl-sexp-at-point.(). |
| ea440 | 20 20 22 52 65 74 75 72 6e 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 65 78 70 20 61 74 20 70 | .."Returns.the.current.sexp.at.p |
| ea460 | 6f 69 6e 74 20 28 6f 72 20 4e 49 4c 20 69 66 20 6e 6f 6e 65 20 69 73 20 66 6f 75 6e 64 29 0a 77 | oint.(or.NIL.if.none.is.found).w |
| ea480 | 68 69 6c 65 20 69 67 6e 6f 72 69 6e 67 20 74 68 65 20 72 65 70 6c 20 70 72 6f 6d 70 74 20 74 65 | hile.ignoring.the.repl.prompt.te |
| ea4a0 | 78 74 2e 22 0a 20 20 28 69 66 20 28 3c 3d 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d | xt."...(if.(<=.slime-repl-input- |
| ea4c0 | 73 74 61 72 74 2d 6d 61 72 6b 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d | start-mark.(point)).......(save- |
| ea4e0 | 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 | restriction.........(narrow-to-r |
| ea500 | 65 67 69 6f 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 61 72 74 2d 6d 61 72 | egion.slime-repl-input-start-mar |
| ea520 | 6b 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 | k.(point-max)).........(slime-se |
| ea540 | 78 70 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 78 70 2d 61 74 | xp-at-point)).....(slime-sexp-at |
| ea560 | 2d 70 6f 69 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 73 | -point)))..(defun.slime-repl-ins |
| ea580 | 70 65 63 74 20 28 73 74 72 69 6e 67 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 | pect.(string)...(interactive.... |
| ea5a0 | 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 | (list.(slime-read-from-minibuffe |
| ea5c0 | 72 20 22 49 6e 73 70 65 63 74 20 76 61 6c 75 65 20 28 65 76 61 6c 75 61 74 65 64 29 3a 20 22 0a | r."Inspect.value.(evaluated):.". |
| ea5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ea600 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 29 | .....(slime-repl-sexp-at-point)) |
| ea620 | 29 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 20 73 74 72 69 6e 67 29 29 0a 0a 28 72 | ))...(slime-inspect.string))..(r |
| ea640 | 65 71 75 69 72 65 20 27 62 79 74 65 63 6f 6d 70 29 0a 0a 3b 3b 20 28 6d 61 70 63 20 28 6c 61 6d | equire.'bytecomp)..;;.(mapc.(lam |
| ea660 | 62 64 61 20 28 73 79 6d 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 66 62 6f | bda.(sym).;;.........(cond.((fbo |
| ea680 | 75 6e 64 70 20 73 79 6d 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c | undp.sym).;;................(unl |
| ea6a0 | 65 73 73 20 28 62 79 74 65 2d 63 6f 64 65 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 28 73 79 6d 62 6f | ess.(byte-code-function-p.(symbo |
| ea6c0 | 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-function.sym)).;;............. |
| ea6e0 | 20 20 20 20 20 28 62 79 74 65 2d 63 6f 6d 70 69 6c 65 20 73 79 6d 29 29 29 0a 3b 3b 20 20 20 20 | .....(byte-compile.sym))).;;.... |
| ea700 | 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 25 53 20 69 73 20 6e 6f 74 20 | ...........(t.(error."%S.is.not. |
| ea720 | 66 62 6f 75 6e 64 22 20 73 79 6d 29 29 29 29 0a 3b 3b 20 20 20 20 20 20 20 27 28 73 6c 69 6d 65 | fbound".sym)))).;;.......'(slime |
| ea740 | 2d 72 65 70 6c 2d 65 76 65 6e 74 2d 68 6f 6f 6b 2d 66 75 6e 63 74 69 6f 6e 0a 3b 3b 20 20 20 20 | -repl-event-hook-function.;;.... |
| ea760 | 20 20 20 20 20 73 6c 69 6d 65 2d 77 72 69 74 65 2d 73 74 72 69 6e 67 0a 3b 3b 20 20 20 20 20 20 | .....slime-write-string.;;...... |
| ea780 | 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 77 72 69 74 65 2d 73 74 72 69 6e 67 0a 3b 3b 20 20 20 | ...slime-repl-write-string.;;... |
| ea7a0 | 20 20 20 20 20 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 65 6d 69 74 0a 3b 3b 20 20 20 20 20 20 20 20 | ......slime-repl-emit.;;........ |
| ea7c0 | 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 77 2d 6d 61 78 69 6d 75 6d 2d 6f 75 74 70 75 74 29 | .slime-repl-show-maximum-output) |
| ea7e0 | 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 00 00 00 00 00 00 00 | )..(provide.'slime-repl)........ |
| ea800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 70 72 65 73 65 6e 74 | slime-2.31/contrib/swank-present |
| ea820 | 61 74 69 6f 6e 73 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ations.lisp..................... |
| ea840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| ea880 | 30 30 32 31 32 37 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 35 37 30 00 20 30 00 00 00 | 0021277.00000000000.017570..0... |
| ea8a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| ea920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| ea940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eaa00 | 3b 3b 3b 20 73 77 61 6e 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 6c 69 73 70 20 2d 2d 2d | ;;;.swank-presentations.lisp.--- |
| eaa20 | 20 69 6d 69 74 61 74 65 20 4c 69 73 70 4d 27 73 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 0a 3b | .imitate.LispM's.presentations.; |
| eaa40 | 3b 0a 3b 3b 20 41 75 74 68 6f 72 73 3a 20 41 6c 61 6e 20 52 75 74 74 65 6e 62 65 72 67 20 20 3c | ;.;;.Authors:.Alan.Ruttenberg..< |
| eaa60 | 61 6c 61 6e 72 2d 6c 40 6d 75 6d 62 6c 65 2e 6e 65 74 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 | alanr-l@mumble.net>.;;.......... |
| eaa80 | 4c 75 6b 65 20 47 6f 72 72 69 65 20 20 3c 6c 75 6b 65 40 73 79 6e 61 70 2e 73 65 3e 0a 3b 3b 20 | Luke.Gorrie..<luke@synap.se>.;;. |
| eaaa0 | 20 20 20 20 20 20 20 20 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 20 20 3c 68 65 6c 6c 65 72 40 63 | .........Helmut.Eller..<heller@c |
| eaac0 | 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 4d 61 74 74 | ommon-lisp.net>.;;..........Matt |
| eaae0 | 68 69 61 73 20 4b 6f 65 70 70 65 20 20 3c 6d 6b 6f 65 70 70 65 40 6d 61 69 6c 2e 6d 61 74 68 2e | hias.Koeppe..<mkoeppe@mail.math. |
| eab00 | 75 6e 69 2d 6d 61 67 64 65 62 75 72 67 2e 64 65 3e 0a 3b 3b 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a | uni-magdeburg.de>.;;.;;.License: |
| eab20 | 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 | .This.code.has.been.placed.in.th |
| eab40 | 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 | e.Public.Domain...All.warranties |
| eab60 | 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 61 72 65 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 3b 3b 0a | .;;..........are.disclaimed..;;. |
| eab80 | 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e | .(in-package.:swank)..(eval-when |
| eaba0 | 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 | .(:compile-toplevel.:load-toplev |
| eabc0 | 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 73 77 61 6e 6b 2d 72 65 71 75 69 72 65 20 3a 73 | el.:execute)...(swank-require.:s |
| eabe0 | 77 61 6e 6b 2d 72 65 70 6c 29 29 0a 0a 3b 3b 3b 3b 20 52 65 63 6f 72 64 69 6e 67 20 61 6e 64 20 | wank-repl))..;;;;.Recording.and. |
| eac00 | 61 63 63 65 73 73 69 6e 67 20 72 65 73 75 6c 74 73 20 6f 66 20 63 6f 6d 70 75 74 61 74 69 6f 6e | accessing.results.of.computation |
| eac20 | 73 0a 0a 28 64 65 66 76 61 72 20 2a 72 65 63 6f 72 64 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2a | s..(defvar.*record-repl-results* |
| eac40 | 20 74 0a 20 20 22 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 74 68 61 74 20 52 45 50 4c 20 72 65 | .t..."Non-nil.means.that.REPL.re |
| eac60 | 73 75 6c 74 73 20 61 72 65 20 73 61 76 65 64 20 66 6f 72 20 6c 61 74 65 72 20 6c 6f 6f 6b 75 70 | sults.are.saved.for.later.lookup |
| eac80 | 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 6f 62 6a 65 63 74 2d 74 6f 2d 70 72 65 73 65 6e 74 61 | .")..(defvar.*object-to-presenta |
| eaca0 | 74 69 6f 6e 2d 69 64 2a 0a 20 20 28 6d 61 6b 65 2d 77 65 61 6b 2d 6b 65 79 2d 68 61 73 68 2d 74 | tion-id*...(make-weak-key-hash-t |
| eacc0 | 61 62 6c 65 20 3a 74 65 73 74 20 27 65 71 29 0a 20 20 22 53 74 6f 72 65 20 74 68 65 20 6d 61 70 | able.:test.'eq)..."Store.the.map |
| eace0 | 70 69 6e 67 20 6f 66 20 6f 62 6a 65 63 74 73 20 74 6f 20 6e 75 6d 65 72 69 63 20 69 64 65 6e 74 | ping.of.objects.to.numeric.ident |
| ead00 | 69 66 69 65 72 73 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d | ifiers")..(defvar.*presentation- |
| ead20 | 69 64 2d 74 6f 2d 6f 62 6a 65 63 74 2a 0a 20 20 28 6d 61 6b 65 2d 77 65 61 6b 2d 76 61 6c 75 65 | id-to-object*...(make-weak-value |
| ead40 | 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 27 65 71 6c 29 0a 20 20 22 53 74 6f 72 65 | -hash-table.:test.'eql)..."Store |
| ead60 | 20 74 68 65 20 6d 61 70 70 69 6e 67 20 6f 66 20 6e 75 6d 65 72 69 63 20 69 64 65 6e 74 69 66 69 | .the.mapping.of.numeric.identifi |
| ead80 | 65 72 73 20 74 6f 20 6f 62 6a 65 63 74 73 22 29 0a 0a 28 64 65 66 75 6e 20 63 6c 65 61 72 2d 70 | ers.to.objects")..(defun.clear-p |
| eada0 | 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 61 62 6c 65 73 20 28 29 0a 20 20 28 63 6c 72 68 61 73 68 | resentation-tables.()...(clrhash |
| eadc0 | 20 2a 6f 62 6a 65 63 74 2d 74 6f 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 2a 29 0a 20 20 | .*object-to-presentation-id*)... |
| eade0 | 28 63 6c 72 68 61 73 68 20 2a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 2d 74 6f 2d 6f 62 6a | (clrhash.*presentation-id-to-obj |
| eae00 | 65 63 74 2a 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 63 6f | ect*))..(defvar.*presentation-co |
| eae20 | 75 6e 74 65 72 2a 20 30 20 22 69 64 65 6e 74 69 66 69 65 72 20 63 6f 75 6e 74 65 72 22 29 0a 0a | unter*.0."identifier.counter").. |
| eae40 | 28 64 65 66 76 61 72 20 2a 6e 69 6c 2d 73 75 72 72 6f 67 61 74 65 2a 20 28 6d 61 6b 65 2d 73 79 | (defvar.*nil-surrogate*.(make-sy |
| eae60 | 6d 62 6f 6c 20 22 6e 69 6c 2d 73 75 72 72 6f 67 61 74 65 22 29 29 0a 0a 3b 3b 20 58 58 58 20 74 | mbol."nil-surrogate"))..;;.XXX.t |
| eae80 | 68 72 65 61 64 20 73 61 66 65 74 79 3f 20 5b 32 30 30 36 2d 30 39 2d 31 33 5d 20 6d 62 3a 20 6e | hread.safety?.[2006-09-13].mb:.n |
| eaea0 | 6f 74 20 69 6e 20 74 68 65 20 73 6c 69 67 68 74 65 73 74 20 28 66 77 69 77 20 74 68 65 0a 3b 3b | ot.in.the.slightest.(fwiw.the.;; |
| eaec0 | 20 72 65 73 74 20 6f 66 20 73 6c 69 6d 65 20 69 73 6e 27 74 20 74 68 72 65 61 64 20 73 61 66 65 | .rest.of.slime.isn't.thread.safe |
| eaee0 | 20 65 69 74 68 65 72 29 2c 20 64 6f 20 77 65 20 72 65 61 6c 6c 79 20 63 61 72 65 3f 0a 28 64 65 | .either),.do.we.really.care?.(de |
| eaf00 | 66 75 6e 20 73 61 76 65 2d 70 72 65 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 20 28 6f 62 6a 65 63 | fun.save-presented-object.(objec |
| eaf20 | 74 29 0a 20 20 22 53 61 76 65 20 4f 42 4a 45 43 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 | t)..."Save.OBJECT.and.return.the |
| eaf40 | 20 61 73 73 69 67 6e 65 64 20 69 64 2e 0a 49 66 20 4f 42 4a 45 43 54 20 77 61 73 20 73 61 76 65 | .assigned.id..If.OBJECT.was.save |
| eaf60 | 64 20 70 72 65 76 69 6f 75 73 6c 79 20 72 65 74 75 72 6e 20 74 68 65 20 6f 6c 64 20 69 64 2e 22 | d.previously.return.the.old.id." |
| eaf80 | 0a 20 20 28 6c 65 74 20 28 28 6f 62 6a 65 63 74 20 28 69 66 20 28 6e 75 6c 6c 20 6f 62 6a 65 63 | ...(let.((object.(if.(null.objec |
| eafa0 | 74 29 20 2a 6e 69 6c 2d 73 75 72 72 6f 67 61 74 65 2a 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 | t).*nil-surrogate*.object))).... |
| eafc0 | 20 3b 3b 20 57 65 20 73 74 6f 72 65 20 2a 6e 69 6c 2d 73 75 72 72 6f 67 61 74 65 2a 20 69 6e 73 | .;;.We.store.*nil-surrogate*.ins |
| eafe0 | 74 65 61 64 20 6f 66 20 6e 69 6c 2c 20 74 6f 20 64 69 73 74 69 6e 67 75 69 73 68 20 69 74 20 66 | tead.of.nil,.to.distinguish.it.f |
| eb000 | 72 6f 6d 0a 20 20 20 20 3b 3b 20 61 6e 20 6f 62 6a 65 63 74 20 74 68 61 74 20 77 61 73 20 67 61 | rom.....;;.an.object.that.was.ga |
| eb020 | 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 65 64 2e 0a 20 20 20 20 28 6f 72 20 28 67 65 74 68 61 73 | rbage.collected......(or.(gethas |
| eb040 | 68 20 6f 62 6a 65 63 74 20 2a 6f 62 6a 65 63 74 2d 74 6f 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e | h.object.*object-to-presentation |
| eb060 | 2d 69 64 2a 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 64 20 28 69 6e 63 66 20 2a 70 | -id*).........(let.((id.(incf.*p |
| eb080 | 72 65 73 65 6e 74 61 74 69 6f 6e 2d 63 6f 75 6e 74 65 72 2a 29 29 29 0a 20 20 20 20 20 20 20 20 | resentation-counter*)))......... |
| eb0a0 | 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 69 64 20 2a 70 72 65 73 65 6e 74 61 74 69 6f | ..(setf.(gethash.id.*presentatio |
| eb0c0 | 6e 2d 69 64 2d 74 6f 2d 6f 62 6a 65 63 74 2a 29 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 | n-id-to-object*).object)........ |
| eb0e0 | 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 6f 62 6a 65 63 74 20 2a 6f 62 6a 65 63 74 | ...(setf.(gethash.object.*object |
| eb100 | 2d 74 6f 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 2a 29 20 69 64 29 0a 20 20 20 20 20 20 | -to-presentation-id*).id)....... |
| eb120 | 20 20 20 20 69 64 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6c 6f 6f 6b 75 70 2d | ....id))))..(defslimefun.lookup- |
| eb140 | 70 72 65 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 20 28 69 64 29 0a 20 20 22 52 65 74 72 69 65 76 | presented-object.(id)..."Retriev |
| eb160 | 65 20 74 68 65 20 6f 62 6a 65 63 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 49 44 | e.the.object.corresponding.to.ID |
| eb180 | 2e 0a 54 68 65 20 73 65 63 6f 6e 64 61 72 79 20 76 61 6c 75 65 20 69 6e 64 69 63 61 74 65 73 20 | ..The.secondary.value.indicates. |
| eb1a0 | 74 68 65 20 61 62 73 65 6e 63 65 20 6f 66 20 61 6e 20 65 6e 74 72 79 2e 22 0a 20 20 28 65 74 79 | the.absence.of.an.entry."...(ety |
| eb1c0 | 70 65 63 61 73 65 20 69 64 0a 20 20 20 20 28 69 6e 74 65 67 65 72 0a 20 20 20 20 20 3b 3b 0a 20 | pecase.id.....(integer......;;.. |
| eb1e0 | 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6f 62 6a 65 63 74 | ....(multiple-value-bind.(object |
| eb200 | 20 66 6f 75 6e 64 70 29 0a 20 20 20 20 20 20 20 20 20 28 67 65 74 68 61 73 68 20 69 64 20 2a 70 | .foundp)..........(gethash.id.*p |
| eb220 | 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 2d 74 6f 2d 6f 62 6a 65 63 74 2a 29 0a 20 20 20 20 20 | resentation-id-to-object*)...... |
| eb240 | 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 28 28 65 71 6c 20 6f 62 6a 65 63 74 20 2a 6e | ..(cond..........((eql.object.*n |
| eb260 | 69 6c 2d 73 75 72 72 6f 67 61 74 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 20 73 74 | il-surrogate*)...........;;.A.st |
| eb280 | 6f 72 65 64 20 6e 69 6c 20 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 | ored.nil.object...........(value |
| eb2a0 | 73 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 28 6e 75 6c 6c 20 6f 62 6a 65 63 74 | s.nil.t))..........((null.object |
| eb2c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4f 62 6a 65 63 74 20 74 68 61 74 20 77 61 73 20 72 | )...........;;.Object.that.was.r |
| eb2e0 | 65 70 6c 61 63 65 64 20 62 79 20 6e 69 6c 20 69 6e 20 74 68 65 20 77 65 61 6b 20 68 61 73 68 20 | eplaced.by.nil.in.the.weak.hash. |
| eb300 | 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 68 65 6e 20 74 68 65 20 6f 62 6a 65 | table...........;;.when.the.obje |
| eb320 | 63 74 20 77 61 73 20 67 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 65 64 2e 0a 20 20 20 20 20 20 | ct.was.garbage.collected........ |
| eb340 | 20 20 20 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 | ....(values.nil.nil))..........( |
| eb360 | 74 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 6f 62 6a 65 63 74 20 66 6f 75 6e 64 | t...........(values.object.found |
| eb380 | 70 29 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 28 64 63 61 73 65 20 69 64 0a | p))))).....(cons......(dcase.id. |
| eb3a0 | 20 20 20 20 20 20 20 28 28 3a 66 72 61 6d 65 2d 76 61 72 20 74 68 72 65 61 64 2d 69 64 20 66 72 | .......((:frame-var.thread-id.fr |
| eb3c0 | 61 6d 65 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e | ame.index).........(declare.(ign |
| eb3e0 | 6f 72 65 20 74 68 72 65 61 64 2d 69 64 29 29 20 3b 20 6c 61 74 65 72 0a 20 20 20 20 20 20 20 20 | ore.thread-id)).;.later......... |
| eb400 | 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 | (handler-case.............(frame |
| eb420 | 2d 76 61 72 2d 76 61 6c 75 65 20 66 72 61 6d 65 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 | -var-value.frame.index)......... |
| eb440 | 20 20 28 74 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 | ..(t.(condition).............(de |
| eb460 | 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 | clare.(ignore.condition))....... |
| eb480 | 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 | ......(values.nil.nil))......... |
| eb4a0 | 20 20 28 3a 6e 6f 2d 65 72 72 6f 72 20 28 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..(:no-error.(value)............ |
| eb4c0 | 20 28 76 61 6c 75 65 73 20 76 61 6c 75 65 20 74 29 29 29 29 0a 20 20 20 20 20 20 20 28 28 3a 69 | .(values.value.t))))........((:i |
| eb4e0 | 6e 73 70 65 63 74 65 64 2d 70 61 72 74 20 70 61 72 74 2d 69 6e 64 65 78 29 0a 20 20 20 20 20 20 | nspected-part.part-index)....... |
| eb500 | 20 20 28 69 6e 73 70 65 63 74 6f 72 2d 6e 74 68 2d 70 61 72 74 20 70 61 72 74 2d 69 6e 64 65 78 | ..(inspector-nth-part.part-index |
| eb520 | 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6c 6f 6f 6b 75 70 2d 70 72 65 73 | ))))))..(defslimefun.lookup-pres |
| eb540 | 65 6e 74 65 64 2d 6f 62 6a 65 63 74 2d 6f 72 2d 6c 6f 73 65 20 28 69 64 29 0a 20 20 22 47 65 74 | ented-object-or-lose.(id)..."Get |
| eb560 | 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 52 45 50 4c | .the.result.of.the.previous.REPL |
| eb580 | 20 65 76 61 6c 75 61 74 69 6f 6e 20 77 69 74 68 20 49 44 2e 22 0a 20 20 28 6d 75 6c 74 69 70 6c | .evaluation.with.ID."...(multipl |
| eb5a0 | 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6f 62 6a 65 63 74 20 66 6f 75 6e 64 70 29 20 28 6c 6f | e-value-bind.(object.foundp).(lo |
| eb5c0 | 6f 6b 75 70 2d 70 72 65 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 20 69 64 29 0a 20 20 20 20 28 63 | okup-presented-object.id).....(c |
| eb5e0 | 6f 6e 64 20 28 66 6f 75 6e 64 70 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 | ond.(foundp.object)...........(t |
| eb600 | 20 28 65 72 72 6f 72 20 22 41 74 74 65 6d 70 74 20 74 6f 20 61 63 63 65 73 73 20 75 6e 72 65 63 | .(error."Attempt.to.access.unrec |
| eb620 | 6f 72 64 65 64 20 6f 62 6a 65 63 74 20 28 69 64 20 7e 44 29 2e 22 20 69 64 29 29 29 29 29 0a 0a | orded.object.(id.~D).".id))))).. |
| eb640 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6c 6f 6f 6b 75 70 2d 61 6e 64 2d 73 61 76 65 2d 70 72 65 | (defslimefun.lookup-and-save-pre |
| eb660 | 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 2d 6f 72 2d 6c 6f 73 65 20 28 69 64 29 0a 20 20 22 47 65 | sented-object-or-lose.(id)..."Ge |
| eb680 | 74 20 74 68 65 20 6f 62 6a 65 63 74 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 49 44 20 | t.the.object.associated.with.ID. |
| eb6a0 | 61 6e 64 20 73 61 76 65 20 69 74 20 69 6e 20 74 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 | and.save.it.in.the.presentation. |
| eb6c0 | 74 61 62 6c 65 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 6f 62 6a 20 28 6c 6f 6f 6b 75 70 2d 70 72 | tables."...(let.((obj.(lookup-pr |
| eb6e0 | 65 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 2d 6f 72 2d 6c 6f 73 65 20 69 64 29 29 29 0a 20 20 20 | esented-object-or-lose.id))).... |
| eb700 | 20 28 73 61 76 65 2d 70 72 65 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 20 6f 62 6a 29 29 29 0a 0a | .(save-presented-object.obj))).. |
| eb720 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 6c 65 61 72 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 20 | (defslimefun.clear-repl-results. |
| eb740 | 28 29 0a 20 20 22 46 6f 72 67 65 74 20 74 68 65 20 72 65 73 75 6c 74 73 20 6f 66 20 61 6c 6c 20 | ()..."Forget.the.results.of.all. |
| eb760 | 70 72 65 76 69 6f 75 73 20 52 45 50 4c 20 65 76 61 6c 75 61 74 69 6f 6e 73 2e 22 0a 20 20 28 63 | previous.REPL.evaluations."...(c |
| eb780 | 6c 65 61 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 61 62 6c 65 73 29 0a 20 20 74 29 0a 0a | lear-presentation-tables)...t).. |
| eb7a0 | 28 64 65 66 75 6e 20 70 72 65 73 65 6e 74 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 20 28 76 61 6c | (defun.present-repl-results.(val |
| eb7c0 | 75 65 73 29 0a 20 20 3b 3b 20 4f 76 65 72 72 69 64 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 69 6e | ues)...;;.Override.a.function.in |
| eb7e0 | 20 73 77 61 6e 6b 2e 6c 69 73 70 2c 20 73 6f 20 74 68 61 74 0a 20 20 3b 3b 20 70 72 65 73 65 6e | .swank.lisp,.so.that...;;.presen |
| eb800 | 74 61 74 69 6f 6e 73 20 61 72 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 65 76 65 72 | tations.are.associated.with.ever |
| eb820 | 79 20 52 45 50 4c 20 72 65 73 75 6c 74 2e 0a 20 20 28 66 6c 65 74 20 28 28 73 65 6e 64 20 28 76 | y.REPL.result....(flet.((send.(v |
| eb840 | 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 64 20 28 61 6e 64 20 | alue)............(let.((id.(and. |
| eb860 | 2a 72 65 63 6f 72 64 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2a 0a 20 20 20 20 20 20 20 20 20 20 | *record-repl-results*........... |
| eb880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 70 72 65 73 65 6e 74 65 64 2d | ................(save-presented- |
| eb8a0 | 6f 62 6a 65 63 74 20 76 61 6c 75 65 29 29 29 29 0a 09 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d | object.value)))).......(send-to- |
| eb8c0 | 65 6d 61 63 73 20 60 28 3a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 20 2c 69 64 20 | emacs.`(:presentation-start.,id. |
| eb8e0 | 3a 72 65 70 6c 2d 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | :repl-result))..............(let |
| eb900 | 20 28 28 73 74 72 69 6e 67 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 76 61 6c 75 65 | .((string.(prin1-to-string.value |
| eb920 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3e 20 28 6c 65 6e 67 74 | )))................(if.(>.(lengt |
| eb940 | 68 20 73 74 72 69 6e 67 29 20 31 30 30 30 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h.string).10000)................ |
| eb960 | 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 62 65 6c 6f 77 20 28 6c 65 6e 67 74 68 20 73 74 | ....(loop.for.i.below.(length.st |
| eb980 | 72 69 6e 67 29 20 62 79 20 31 30 30 30 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ring).by.10000.................. |
| eb9a0 | 20 20 20 20 20 20 20 20 64 6f 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 77 72 69 | ........do.(send-to-emacs.`(:wri |
| eb9c0 | 74 65 2d 73 74 72 69 6e 67 20 2c 28 73 75 62 73 65 71 20 73 74 72 69 6e 67 20 69 20 28 6d 69 6e | te-string.,(subseq.string.i.(min |
| eb9e0 | 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(length.string)................ |
| eba00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| eba20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| eba40 | 20 20 20 28 2b 20 69 20 31 30 30 30 30 29 29 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(+.i.10000)))................ |
| eba60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ...............................: |
| eba80 | 72 65 70 6c 2d 72 65 73 75 6c 74 29 29 29 0a 09 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 | repl-result))).............(send |
| ebaa0 | 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 20 2c 73 74 72 69 6e | -to-emacs.`(:write-string.,strin |
| ebac0 | 67 20 3a 72 65 70 6c 2d 72 65 73 75 6c 74 29 29 29 29 0a 09 20 20 20 20 20 28 73 65 6e 64 2d 74 | g.:repl-result)))).......(send-t |
| ebae0 | 6f 2d 65 6d 61 63 73 20 60 28 3a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 20 2c 69 64 20 | o-emacs.`(:presentation-end.,id. |
| ebb00 | 3a 72 65 70 6c 2d 72 65 73 75 6c 74 29 29 0a 09 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d | :repl-result)).......(send-to-em |
| ebb20 | 61 63 73 20 60 28 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 20 2c 28 73 74 72 69 6e 67 20 23 5c 4e | acs.`(:write-string.,(string.#\N |
| ebb40 | 65 77 6c 69 6e 65 29 0a 09 09 09 20 20 20 20 20 20 3a 72 65 70 6c 2d 72 65 73 75 6c 74 29 29 29 | ewline)..........:repl-result))) |
| ebb60 | 29 29 0a 20 20 20 20 28 66 72 65 73 68 2d 6c 69 6e 65 29 0a 20 20 20 20 28 72 65 61 6c 6c 79 2d | )).....(fresh-line).....(really- |
| ebb80 | 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 | finish-output.*standard-output*) |
| ebba0 | 0a 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 76 61 6c 75 65 73 29 0a 20 20 20 20 20 20 20 20 28 | .....(if.(null.values).........( |
| ebbc0 | 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 20 22 3b | send-to-emacs.`(:write-string."; |
| ebbe0 | 20 4e 6f 20 76 61 6c 75 65 22 20 3a 72 65 70 6c 2d 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 | .No.value".:repl-result))....... |
| ebc00 | 20 20 28 6d 61 70 63 20 23 27 73 65 6e 64 20 76 61 6c 75 65 73 29 29 29 29 0a 0a 0c 0a 3b 3b 3b | ..(mapc.#'send.values))))....;;; |
| ebc20 | 3b 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 20 6d 65 6e 75 20 70 72 6f 74 6f 63 6f 6c 0a 3b 3b 0a | ;.Presentation.menu.protocol.;;. |
| ebc40 | 3b 3b 20 54 6f 20 64 65 66 69 6e 65 20 61 20 6d 65 6e 75 20 66 6f 72 20 61 20 74 79 70 65 20 6f | ;;.To.define.a.menu.for.a.type.o |
| ebc60 | 66 20 6f 62 6a 65 63 74 2c 20 64 65 66 69 6e 65 20 61 20 6d 65 74 68 6f 64 0a 3b 3b 20 6d 65 6e | f.object,.define.a.method.;;.men |
| ebc80 | 75 2d 63 68 6f 69 63 65 73 2d 66 6f 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 6e 20 74 68 | u-choices-for-presentation.on.th |
| ebca0 | 61 74 20 6f 62 6a 65 63 74 20 74 79 70 65 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 0a 3b | at.object.type...This.function.; |
| ebcc0 | 3b 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 65 6c | ;.should.return.a.list.of.two.el |
| ebce0 | 65 6d 65 6e 74 20 6c 69 73 74 73 20 77 68 65 72 65 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d | ement.lists.where.the.first.elem |
| ebd00 | 65 6e 74 20 69 73 0a 3b 3b 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 6d 65 6e 75 20 61 | ent.is.;;.the.name.of.the.menu.a |
| ebd20 | 63 74 69 6f 6e 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 69 73 20 61 20 66 75 6e 63 74 69 | ction.and.the.second.is.a.functi |
| ebd40 | 6f 6e 20 74 68 61 74 20 77 69 6c 6c 20 62 65 0a 3b 3b 20 63 61 6c 6c 65 64 20 69 66 20 74 68 65 | on.that.will.be.;;.called.if.the |
| ebd60 | 20 6d 65 6e 75 20 69 73 20 63 68 6f 73 65 6e 2e 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 77 69 | .menu.is.chosen..The.function.wi |
| ebd80 | 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 77 69 74 68 20 33 0a 3b 3b 20 61 72 67 75 6d 65 6e 74 73 | ll.be.called.with.3.;;.arguments |
| ebda0 | 3a 0a 3b 3b 0a 3b 3b 20 63 68 6f 69 63 65 3a 20 54 68 65 20 73 74 72 69 6e 67 20 6e 61 6d 69 6e | :.;;.;;.choice:.The.string.namin |
| ebdc0 | 67 20 74 68 65 20 61 63 74 69 6f 6e 20 66 72 6f 6d 20 61 62 6f 76 65 0a 3b 3b 0a 3b 3b 20 6f 62 | g.the.action.from.above.;;.;;.ob |
| ebde0 | 6a 65 63 74 3a 20 54 68 65 20 6f 62 6a 65 63 74 0a 3b 3b 0a 3b 3b 20 69 64 3a 20 54 68 65 20 70 | ject:.The.object.;;.;;.id:.The.p |
| ebe00 | 72 65 73 65 6e 74 61 74 69 6f 6e 20 69 64 20 6f 66 20 74 68 65 20 6f 62 6a 65 63 74 0a 3b 3b 0a | resentation.id.of.the.object.;;. |
| ebe20 | 3b 3b 20 59 6f 75 20 6d 69 67 68 74 20 77 61 6e 74 20 61 70 70 65 6e 64 20 28 77 68 65 6e 20 28 | ;;.You.might.want.append.(when.( |
| ebe40 | 6e 65 78 74 2d 6d 65 74 68 6f 64 2d 70 29 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 | next-method-p).(call-next-method |
| ebe60 | 29 29 20 74 6f 0a 3b 3b 20 70 69 63 6b 20 75 70 20 74 68 65 20 4d 65 6e 75 20 61 63 74 69 6f 6e | )).to.;;.pick.up.the.Menu.action |
| ebe80 | 73 20 6f 66 20 73 75 70 65 72 63 6c 61 73 73 65 73 2e 0a 3b 3b 0a 0a 28 64 65 66 76 61 72 20 2a | s.of.superclasses..;;..(defvar.* |
| ebea0 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 63 74 69 76 65 2d 6d 65 6e 75 2a 20 6e 69 6c 29 0a 0a | presentation-active-menu*.nil).. |
| ebec0 | 28 64 65 66 75 6e 20 6d 65 6e 75 2d 63 68 6f 69 63 65 73 2d 66 6f 72 2d 70 72 65 73 65 6e 74 61 | (defun.menu-choices-for-presenta |
| ebee0 | 74 69 6f 6e 2d 69 64 20 28 69 64 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 | tion-id.(id)...(multiple-value-b |
| ebf00 | 69 6e 64 20 28 6f 62 20 70 72 65 73 65 6e 74 70 29 20 28 6c 6f 6f 6b 75 70 2d 70 72 65 73 65 6e | ind.(ob.presentp).(lookup-presen |
| ebf20 | 74 65 64 2d 6f 62 6a 65 63 74 20 69 64 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 70 | ted-object.id).....(cond.((not.p |
| ebf40 | 72 65 73 65 6e 74 70 29 20 27 6e 6f 74 2d 70 72 65 73 65 6e 74 29 0a 09 20 20 28 74 0a 09 20 20 | resentp).'not-present)....(t.... |
| ebf60 | 20 28 6c 65 74 20 28 28 6d 65 6e 75 2d 61 6e 64 2d 61 63 74 69 6f 6e 73 20 28 6d 65 6e 75 2d 63 | .(let.((menu-and-actions.(menu-c |
| ebf80 | 68 6f 69 63 65 73 2d 66 6f 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 62 29 29 29 0a 09 20 | hoices-for-presentation.ob)))... |
| ebfa0 | 20 20 20 20 28 73 65 74 71 20 2a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 63 74 69 76 65 2d 6d | ....(setq.*presentation-active-m |
| ebfc0 | 65 6e 75 2a 20 28 63 6f 6e 73 20 69 64 20 6d 65 6e 75 2d 61 6e 64 2d 61 63 74 69 6f 6e 73 29 29 | enu*.(cons.id.menu-and-actions)) |
| ebfe0 | 0a 09 20 20 20 20 20 28 6d 61 70 63 61 72 20 27 63 61 72 20 6d 65 6e 75 2d 61 6e 64 2d 61 63 74 | .......(mapcar.'car.menu-and-act |
| ec000 | 69 6f 6e 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 69 6f 69 66 79 20 28 | ions))))))..(defun.swank-ioify.( |
| ec020 | 74 68 69 6e 67 29 0a 20 20 28 63 6f 6e 64 20 28 28 6b 65 79 77 6f 72 64 70 20 74 68 69 6e 67 29 | thing)...(cond.((keywordp.thing) |
| ec040 | 20 74 68 69 6e 67 29 0a 09 28 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 74 68 69 6e 67 29 28 6e | .thing)..((and.(symbolp.thing)(n |
| ec060 | 6f 74 20 28 66 69 6e 64 20 23 5c 3a 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 74 68 69 6e 67 29 | ot.(find.#\:.(symbol-name.thing) |
| ec080 | 29 29 29 0a 09 20 28 69 6e 74 65 72 6e 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 74 68 69 6e 67 | )))...(intern.(symbol-name.thing |
| ec0a0 | 29 20 27 73 77 61 6e 6b 2d 69 6f 2d 70 61 63 6b 61 67 65 29 29 0a 09 28 28 63 6f 6e 73 70 20 74 | ).'swank-io-package))..((consp.t |
| ec0c0 | 68 69 6e 67 29 20 28 63 6f 6e 73 20 28 73 77 61 6e 6b 2d 69 6f 69 66 79 20 28 63 61 72 20 74 68 | hing).(cons.(swank-ioify.(car.th |
| ec0e0 | 69 6e 67 29 29 0a 09 09 09 20 20 20 20 20 28 73 77 61 6e 6b 2d 69 6f 69 66 79 20 28 63 64 72 20 | ing)).........(swank-ioify.(cdr. |
| ec100 | 74 68 69 6e 67 29 29 29 29 0a 09 28 74 20 74 68 69 6e 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 | thing))))..(t.thing)))..(defun.e |
| ec120 | 78 65 63 75 74 65 2d 6d 65 6e 75 2d 63 68 6f 69 63 65 2d 66 6f 72 2d 70 72 65 73 65 6e 74 61 74 | xecute-menu-choice-for-presentat |
| ec140 | 69 6f 6e 2d 69 64 20 28 69 64 20 63 6f 75 6e 74 20 69 74 65 6d 29 0a 20 20 28 6c 65 74 20 28 28 | ion-id.(id.count.item)...(let.(( |
| ec160 | 6f 62 20 28 6c 6f 6f 6b 75 70 2d 70 72 65 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 20 69 64 29 29 | ob.(lookup-presented-object.id)) |
| ec180 | 29 0a 20 20 20 20 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 20 69 64 20 28 63 61 72 20 2a 70 72 | ).....(assert.(equal.id.(car.*pr |
| ec1a0 | 65 73 65 6e 74 61 74 69 6f 6e 2d 61 63 74 69 76 65 2d 6d 65 6e 75 2a 29 29 20 28 29 0a 09 20 20 | esentation-active-menu*)).().... |
| ec1c0 | 20 20 22 42 75 67 3a 20 45 78 65 63 75 74 65 20 6d 65 6e 75 20 63 61 6c 6c 20 66 6f 72 20 69 64 | .."Bug:.Execute.menu.call.for.id |
| ec1e0 | 20 7e 61 20 20 62 75 74 20 6d 65 6e 75 20 68 61 73 20 69 64 20 7e 61 22 0a 09 20 20 20 20 69 64 | .~a..but.menu.has.id.~a"......id |
| ec200 | 20 28 63 61 72 20 2a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 63 74 69 76 65 2d 6d 65 6e 75 2a | .(car.*presentation-active-menu* |
| ec220 | 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 61 63 74 69 6f 6e 20 28 73 65 63 6f 6e 64 20 28 6e 74 | )).....(let.((action.(second.(nt |
| ec240 | 68 20 28 31 2d 20 63 6f 75 6e 74 29 20 28 63 64 72 20 2a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d | h.(1-.count).(cdr.*presentation- |
| ec260 | 61 63 74 69 76 65 2d 6d 65 6e 75 2a 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 69 | active-menu*))))).......(swank-i |
| ec280 | 6f 69 66 79 20 28 66 75 6e 63 61 6c 6c 20 61 63 74 69 6f 6e 20 69 74 65 6d 20 6f 62 20 69 64 29 | oify.(funcall.action.item.ob.id) |
| ec2a0 | 29 29 29 29 0a 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 6d 65 6e 75 2d 63 68 6f 69 63 65 73 2d | ))))...(defgeneric.menu-choices- |
| ec2c0 | 66 6f 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 3a 6d 65 | for-presentation.(object)...(:me |
| ec2e0 | 74 68 6f 64 20 28 6f 62 29 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6f 62 29 29 20 | thod.(ob).(declare.(ignore.ob)). |
| ec300 | 6e 69 6c 29 29 20 3b 20 64 65 66 61 75 6c 74 20 6d 65 74 68 6f 64 0a 0a 3b 3b 20 50 61 74 68 6e | nil)).;.default.method..;;.Pathn |
| ec320 | 61 6d 65 0a 28 64 65 66 6d 65 74 68 6f 64 20 6d 65 6e 75 2d 63 68 6f 69 63 65 73 2d 66 6f 72 2d | ame.(defmethod.menu-choices-for- |
| ec340 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 28 6f 62 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 28 | presentation.((ob.pathname))...( |
| ec360 | 6c 65 74 2a 20 28 28 66 69 6c 65 2d 65 78 69 73 74 73 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 | let*.((file-exists.(ignore-error |
| ec380 | 73 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 6f 62 29 29 29 0a 09 20 28 6c 69 73 70 2d 74 79 70 65 | s.(probe-file.ob)))...(lisp-type |
| ec3a0 | 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 74 79 70 65 20 22 6c 69 73 70 22 29 29 0a 09 | .(make-pathname.:type."lisp")).. |
| ec3c0 | 20 28 73 6f 75 72 63 65 2d 66 69 6c 65 20 28 61 6e 64 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 | .(source-file.(and.(not.(member. |
| ec3e0 | 28 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 20 6f 62 29 20 27 28 22 6c 69 73 70 22 20 22 63 6c 22 | (pathname-type.ob).'("lisp"."cl" |
| ec400 | 29 0a 09 09 09 09 09 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 09 09 09 20 20 20 28 6c 65 74 | )......:test.'equal)).......(let |
| ec420 | 20 28 28 73 6f 75 72 63 65 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 6c 69 73 70 2d | .((source.(merge-pathnames.lisp- |
| ec440 | 74 79 70 65 20 6f 62 29 29 29 0a 09 09 09 20 20 20 20 20 28 61 6e 64 20 28 69 67 6e 6f 72 65 2d | type.ob))).........(and.(ignore- |
| ec460 | 65 72 72 6f 72 73 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 73 6f 75 72 63 65 29 29 0a 09 09 09 09 | errors.(probe-file.source))..... |
| ec480 | 20 20 73 6f 75 72 63 65 29 29 29 29 0a 09 20 28 66 61 73 6c 2d 66 69 6c 65 20 28 61 6e 64 20 66 | ..source))))...(fasl-file.(and.f |
| ec4a0 | 69 6c 65 2d 65 78 69 73 74 73 0a 09 09 09 20 28 65 71 75 61 6c 20 28 69 67 6e 6f 72 65 2d 65 72 | ile-exists.....(equal.(ignore-er |
| ec4c0 | 72 6f 72 73 0a 09 09 09 09 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 0a 09 09 09 09 20 20 20 28 74 | rors.......(namestring........(t |
| ec4e0 | 72 75 65 6e 61 6d 65 0a 09 09 09 09 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 | ruename.........(compile-file-pa |
| ec500 | 74 68 6e 61 6d 65 0a 09 09 09 09 20 20 20 20 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 | thname..........(merge-pathnames |
| ec520 | 20 6c 69 73 70 2d 74 79 70 65 20 6f 62 29 29 29 29 29 0a 09 09 09 09 28 6e 61 6d 65 73 74 72 69 | .lisp-type.ob))))).....(namestri |
| ec540 | 6e 67 20 28 74 72 75 65 6e 61 6d 65 20 6f 62 29 29 29 29 29 29 0a 20 20 20 20 28 72 65 6d 6f 76 | ng.(truename.ob)))))).....(remov |
| ec560 | 65 20 6e 69 6c 0a 09 20 20 20 20 28 6c 69 73 74 2a 0a 09 20 20 20 20 20 28 61 6e 64 20 28 61 6e | e.nil......(list*.......(and.(an |
| ec580 | 64 20 66 69 6c 65 2d 65 78 69 73 74 73 20 28 6e 6f 74 20 66 61 73 6c 2d 66 69 6c 65 29 29 0a 09 | d.file-exists.(not.fasl-file)).. |
| ec5a0 | 09 20 20 28 6c 69 73 74 20 22 45 64 69 74 20 74 68 69 73 20 66 69 6c 65 22 0a 09 09 09 28 6c 61 | ...(list."Edit.this.file"....(la |
| ec5c0 | 6d 62 64 61 28 63 68 6f 69 63 65 20 6f 62 6a 65 63 74 20 69 64 29 0a 09 09 09 20 20 28 64 65 63 | mbda(choice.object.id)......(dec |
| ec5e0 | 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 68 6f 69 63 65 20 69 64 29 29 0a 09 09 09 20 20 28 65 | lare.(ignore.choice.id))......(e |
| ec600 | 64 2d 69 6e 2d 65 6d 61 63 73 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 | d-in-emacs.(namestring.(truename |
| ec620 | 20 6f 62 6a 65 63 74 29 29 29 0a 09 09 09 20 20 6e 69 6c 29 29 29 0a 09 20 20 20 20 20 28 61 6e | .object)))......nil))).......(an |
| ec640 | 64 20 66 69 6c 65 2d 65 78 69 73 74 73 0a 09 09 20 20 28 6c 69 73 74 20 22 44 69 72 65 64 20 63 | d.file-exists.....(list."Dired.c |
| ec660 | 6f 6e 74 61 69 6e 69 6e 67 20 64 69 72 65 63 74 6f 72 79 22 0a 09 09 09 28 6c 61 6d 62 64 61 20 | ontaining.directory"....(lambda. |
| ec680 | 28 63 68 6f 69 63 65 20 6f 62 6a 65 63 74 20 69 64 29 0a 09 09 09 20 20 28 64 65 63 6c 61 72 65 | (choice.object.id)......(declare |
| ec6a0 | 20 28 69 67 6e 6f 72 65 20 63 68 6f 69 63 65 20 69 64 29 29 0a 09 09 09 20 20 28 65 64 2d 69 6e | .(ignore.choice.id))......(ed-in |
| ec6c0 | 2d 65 6d 61 63 73 20 28 6e 61 6d 65 73 74 72 69 6e 67 0a 09 09 09 09 09 28 74 72 75 65 6e 61 6d | -emacs.(namestring......(truenam |
| ec6e0 | 65 0a 09 09 09 09 09 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 0a 09 09 09 09 09 20 20 | e.......(merge-pathnames........ |
| ec700 | 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 6e 61 6d 65 20 22 22 20 3a 74 79 70 65 20 22 22 | (make-pathname.:name."".:type."" |
| ec720 | 29 0a 09 09 09 09 09 20 20 6f 62 6a 65 63 74 29 29 29 29 0a 09 09 09 20 20 6e 69 6c 29 29 29 0a | )........object))))......nil))). |
| ec740 | 09 20 20 20 20 20 28 61 6e 64 20 66 61 73 6c 2d 66 69 6c 65 0a 09 09 20 20 28 6c 69 73 74 20 22 | ......(and.fasl-file.....(list." |
| ec760 | 4c 6f 61 64 20 74 68 69 73 20 66 61 73 6c 20 66 69 6c 65 22 0a 09 09 09 28 6c 61 6d 62 64 61 20 | Load.this.fasl.file"....(lambda. |
| ec780 | 28 63 68 6f 69 63 65 20 6f 62 6a 65 63 74 20 69 64 29 0a 09 09 09 20 20 28 64 65 63 6c 61 72 65 | (choice.object.id)......(declare |
| ec7a0 | 20 28 69 67 6e 6f 72 65 20 63 68 6f 69 63 65 20 69 64 20 6f 62 6a 65 63 74 29 29 0a 09 09 09 20 | .(ignore.choice.id.object))..... |
| ec7c0 | 20 28 6c 6f 61 64 20 6f 62 29 0a 09 09 09 20 20 6e 69 6c 29 29 29 0a 09 20 20 20 20 20 28 61 6e | .(load.ob)......nil))).......(an |
| ec7e0 | 64 20 66 61 73 6c 2d 66 69 6c 65 0a 09 09 20 20 28 6c 69 73 74 20 22 44 65 6c 65 74 65 20 74 68 | d.fasl-file.....(list."Delete.th |
| ec800 | 69 73 20 66 61 73 6c 20 66 69 6c 65 22 0a 09 09 09 28 6c 61 6d 62 64 61 20 28 63 68 6f 69 63 65 | is.fasl.file"....(lambda.(choice |
| ec820 | 20 6f 62 6a 65 63 74 20 69 64 29 0a 09 09 09 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 | .object.id)......(declare.(ignor |
| ec840 | 65 20 63 68 6f 69 63 65 20 69 64 20 6f 62 6a 65 63 74 29 29 0a 09 09 09 20 20 28 6c 65 74 20 28 | e.choice.id.object))......(let.( |
| ec860 | 28 6e 74 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 20 6f 62 29 29 29 29 | (nt.(namestring.(truename.ob)))) |
| ec880 | 0a 09 09 09 20 20 20 20 28 77 68 65 6e 20 28 79 2d 6f 72 2d 6e 2d 70 2d 69 6e 2d 65 6d 61 63 73 | ........(when.(y-or-n-p-in-emacs |
| ec8a0 | 20 22 44 65 6c 65 74 65 20 7e 61 3f 20 22 20 6e 74 29 0a 09 09 09 20 20 20 20 20 20 28 64 65 6c | ."Delete.~a?.".nt)..........(del |
| ec8c0 | 65 74 65 2d 66 69 6c 65 20 6e 74 29 29 29 0a 09 09 09 20 20 6e 69 6c 29 29 29 0a 09 20 20 20 20 | ete-file.nt)))......nil)))...... |
| ec8e0 | 20 28 61 6e 64 20 73 6f 75 72 63 65 2d 66 69 6c 65 0a 09 09 20 20 28 6c 69 73 74 20 22 45 64 69 | .(and.source-file.....(list."Edi |
| ec900 | 74 20 6c 69 73 70 20 73 6f 75 72 63 65 20 66 69 6c 65 22 0a 09 09 09 28 6c 61 6d 62 64 61 20 28 | t.lisp.source.file"....(lambda.( |
| ec920 | 63 68 6f 69 63 65 20 6f 62 6a 65 63 74 20 69 64 29 0a 09 09 09 20 20 28 64 65 63 6c 61 72 65 20 | choice.object.id)......(declare. |
| ec940 | 28 69 67 6e 6f 72 65 20 63 68 6f 69 63 65 20 69 64 20 6f 62 6a 65 63 74 29 29 0a 09 09 09 20 20 | (ignore.choice.id.object))...... |
| ec960 | 28 65 64 2d 69 6e 2d 65 6d 61 63 73 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e 61 | (ed-in-emacs.(namestring.(truena |
| ec980 | 6d 65 20 73 6f 75 72 63 65 2d 66 69 6c 65 29 29 29 0a 09 09 09 20 20 6e 69 6c 29 29 29 0a 09 20 | me.source-file)))......nil)))... |
| ec9a0 | 20 20 20 20 28 61 6e 64 20 73 6f 75 72 63 65 2d 66 69 6c 65 0a 09 09 20 20 28 6c 69 73 74 20 22 | ....(and.source-file.....(list." |
| ec9c0 | 4c 6f 61 64 20 6c 69 73 70 20 73 6f 75 72 63 65 20 66 69 6c 65 22 0a 09 09 09 28 6c 61 6d 62 64 | Load.lisp.source.file"....(lambd |
| ec9e0 | 61 28 63 68 6f 69 63 65 20 6f 62 6a 65 63 74 20 69 64 29 0a 09 09 09 20 20 28 64 65 63 6c 61 72 | a(choice.object.id)......(declar |
| eca00 | 65 20 28 69 67 6e 6f 72 65 20 63 68 6f 69 63 65 20 69 64 20 6f 62 6a 65 63 74 29 29 0a 09 09 09 | e.(ignore.choice.id.object)).... |
| eca20 | 20 20 28 6c 6f 61 64 20 73 6f 75 72 63 65 2d 66 69 6c 65 29 0a 09 09 09 20 20 6e 69 6c 29 29 29 | ..(load.source-file)......nil))) |
| eca40 | 0a 09 20 20 20 20 20 28 61 6e 64 20 28 6e 65 78 74 2d 6d 65 74 68 6f 64 2d 70 29 20 28 63 61 6c | .......(and.(next-method-p).(cal |
| eca60 | 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 | l-next-method))))))..(defmethod. |
| eca80 | 6d 65 6e 75 2d 63 68 6f 69 63 65 73 2d 66 6f 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 28 | menu-choices-for-presentation.(( |
| ecaa0 | 6f 62 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 22 44 69 73 | ob.function))...(list.(list."Dis |
| ecac0 | 61 73 73 65 6d 62 6c 65 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 | assemble"...............(lambda. |
| ecae0 | 28 63 68 6f 69 63 65 20 6f 62 6a 65 63 74 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (choice.object.id).............. |
| ecb00 | 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 68 6f 69 63 65 20 69 64 29 29 0a | ...(declare.(ignore.choice.id)). |
| ecb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 62 6c 65 20 6f 62 6a | ................(disassemble.obj |
| ecb40 | 65 63 74 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 70 | ect)))))..(defslimefun.inspect-p |
| ecb60 | 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 69 64 20 72 65 73 65 74 2d 70 29 0a 20 20 28 6c 65 74 20 | resentation.(id.reset-p)...(let. |
| ecb80 | 28 28 77 68 61 74 20 28 6c 6f 6f 6b 75 70 2d 70 72 65 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 2d | ((what.(lookup-presented-object- |
| ecba0 | 6f 72 2d 6c 6f 73 65 20 69 64 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 72 65 73 65 74 2d 70 0a | or-lose.id))).....(when.reset-p. |
| ecbc0 | 20 20 20 20 20 20 28 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 29 0a 20 20 20 20 28 69 6e | ......(reset-inspector)).....(in |
| ecbe0 | 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 77 68 61 74 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 | spect-object.what)))..(defslimef |
| ecc00 | 75 6e 20 69 6e 69 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 28 29 0a 20 20 3b 3b 20 46 49 | un.init-presentations.()...;;.FI |
| ecc20 | 58 4d 45 3a 20 69 6d 70 6f 72 74 2f 75 73 65 20 73 77 61 6e 6b 2d 72 65 70 6c 20 74 6f 20 61 76 | XME:.import/use.swank-repl.to.av |
| ecc40 | 6f 69 64 20 70 61 63 6b 61 67 65 20 71 75 61 6c 69 66 69 65 72 2e 0a 20 20 28 73 65 74 71 20 73 | oid.package.qualifier....(setq.s |
| ecc60 | 77 61 6e 6b 2d 72 65 70 6c 3a 2a 73 65 6e 64 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2d 66 75 6e | wank-repl:*send-repl-results-fun |
| ecc80 | 63 74 69 6f 6e 2a 20 27 70 72 65 73 65 6e 74 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 29 29 0a 0a | ction*.'present-repl-results)).. |
| ecca0 | 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 29 0a 00 | (provide.:swank-presentations).. |
| eccc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecd00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecd20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecd40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecd60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecd80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecdc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ece00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 70 61 63 6b 61 67 65 | slime-2.31/contrib/swank-package |
| ece20 | 2d 66 75 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | -fu.lisp........................ |
| ece40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ece60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| ece80 | 30 30 30 34 34 30 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 36 37 31 00 20 30 00 00 00 | 0004407.00000000000.016671..0... |
| ecea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecf00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| ecf20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| ecf40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecf60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecf80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecfa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecfc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecfe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed000 | 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 | .(in-package.:swank)..(defslimef |
| ed020 | 75 6e 20 70 61 63 6b 61 67 65 3d 20 28 73 74 72 69 6e 67 31 20 73 74 72 69 6e 67 32 29 0a 20 20 | un.package=.(string1.string2)... |
| ed040 | 28 6c 65 74 2a 20 28 28 70 6b 67 31 20 28 67 75 65 73 73 2d 70 61 63 6b 61 67 65 20 73 74 72 69 | (let*.((pkg1.(guess-package.stri |
| ed060 | 6e 67 31 29 29 0a 09 20 28 70 6b 67 32 20 28 67 75 65 73 73 2d 70 61 63 6b 61 67 65 20 73 74 72 | ng1))...(pkg2.(guess-package.str |
| ed080 | 69 6e 67 32 29 29 29 0a 20 20 20 20 28 61 6e 64 20 70 6b 67 31 20 70 6b 67 32 20 28 65 71 20 70 | ing2))).....(and.pkg1.pkg2.(eq.p |
| ed0a0 | 6b 67 31 20 70 6b 67 32 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 65 78 70 6f 72 | kg1.pkg2))))..(defslimefun.expor |
| ed0c0 | 74 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 2d 73 74 72 20 70 | t-symbol-for-emacs.(symbol-str.p |
| ed0e0 | 61 63 6b 61 67 65 2d 73 74 72 29 0a 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 20 28 67 75 | ackage-str)...(let.((package.(gu |
| ed100 | 65 73 73 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 2d 73 74 72 29 29 29 0a 20 20 20 20 28 | ess-package.package-str))).....( |
| ed120 | 77 68 65 6e 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 | when.package.......(let.((*buffe |
| ed140 | 72 2d 70 61 63 6b 61 67 65 2a 20 70 61 63 6b 61 67 65 29 29 0a 09 28 65 78 70 6f 72 74 20 60 28 | r-package*.package))..(export.`( |
| ed160 | 2c 28 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 2d 73 74 72 29 29 20 70 61 63 6b 61 | ,(from-string.symbol-str)).packa |
| ed180 | 67 65 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 75 6e 65 78 70 6f 72 74 2d 73 | ge)))))..(defslimefun.unexport-s |
| ed1a0 | 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 2d 73 74 72 20 70 61 63 6b | ymbol-for-emacs.(symbol-str.pack |
| ed1c0 | 61 67 65 2d 73 74 72 29 0a 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 20 28 67 75 65 73 73 | age-str)...(let.((package.(guess |
| ed1e0 | 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 2d 73 74 72 29 29 29 0a 20 20 20 20 28 77 68 65 | -package.package-str))).....(whe |
| ed200 | 6e 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d 70 | n.package.......(let.((*buffer-p |
| ed220 | 61 63 6b 61 67 65 2a 20 70 61 63 6b 61 67 65 29 29 0a 09 28 75 6e 65 78 70 6f 72 74 20 60 28 2c | ackage*.package))..(unexport.`(, |
| ed240 | 28 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 2d 73 74 72 29 29 20 70 61 63 6b 61 67 | (from-string.symbol-str)).packag |
| ed260 | 65 29 29 29 29 29 0a 0a 23 2b 73 62 63 6c 0a 28 64 65 66 75 6e 20 6c 69 73 74 2d 73 74 72 75 63 | e)))))..#+sbcl.(defun.list-struc |
| ed280 | 74 75 72 65 2d 73 79 6d 62 6f 6c 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 64 64 20 | ture-symbols.(name)...(let.((dd. |
| ed2a0 | 28 73 62 2d 6b 65 72 6e 65 6c 3a 66 69 6e 64 2d 64 65 66 73 74 72 75 63 74 2d 64 65 73 63 72 69 | (sb-kernel:find-defstruct-descri |
| ed2c0 | 70 74 69 6f 6e 20 6e 61 6d 65 20 29 29 29 0a 20 20 20 20 28 6c 69 73 74 2a 20 6e 61 6d 65 0a 20 | ption.name.))).....(list*.name.. |
| ed2e0 | 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 6b 65 72 6e 65 6c 3a 64 64 2d 64 65 66 61 75 6c 74 2d | ..........(sb-kernel:dd-default- |
| ed300 | 63 6f 6e 73 74 72 75 63 74 6f 72 20 64 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 6b | constructor.dd)............(sb-k |
| ed320 | 65 72 6e 65 6c 3a 64 64 2d 70 72 65 64 69 63 61 74 65 2d 6e 61 6d 65 20 64 64 29 0a 20 20 20 20 | ernel:dd-predicate-name.dd)..... |
| ed340 | 20 20 20 20 20 20 20 28 73 62 2d 6b 65 72 6e 65 6c 3a 3a 64 64 2d 63 6f 70 69 65 72 2d 6e 61 6d | .......(sb-kernel::dd-copier-nam |
| ed360 | 65 20 64 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 73 62 2d 6b 65 | e.dd)............(mapcar.#'sb-ke |
| ed380 | 72 6e 65 6c 3a 64 73 64 2d 61 63 63 65 73 73 6f 72 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 | rnel:dsd-accessor-name.......... |
| ed3a0 | 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 6b 65 72 6e 65 6c 3a 64 64 2d 73 6c 6f 74 73 20 64 64 | ..........(sb-kernel:dd-slots.dd |
| ed3c0 | 29 29 29 29 29 0a 0a 23 2b 63 63 6c 0a 28 64 65 66 75 6e 20 6c 69 73 74 2d 73 74 72 75 63 74 75 | )))))..#+ccl.(defun.list-structu |
| ed3e0 | 72 65 2d 73 79 6d 62 6f 6c 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 64 65 66 69 6e | re-symbols.(name)...(let.((defin |
| ed400 | 69 74 69 6f 6e 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 63 63 6c 3a 3a 25 64 65 66 73 74 72 | ition.(gethash.name.ccl::%defstr |
| ed420 | 75 63 74 73 25 29 29 29 0a 20 20 20 20 28 6c 69 73 74 2a 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 | ucts%))).....(list*.name........ |
| ed440 | 20 20 20 20 28 63 63 6c 3a 3a 73 64 2d 63 6f 6e 73 74 72 75 63 74 6f 72 20 64 65 66 69 6e 69 74 | ....(ccl::sd-constructor.definit |
| ed460 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 3a 73 64 2d 72 65 66 6e 61 6d 65 | ion)............(ccl::sd-refname |
| ed480 | 73 20 64 65 66 69 6e 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 74 2d 63 6c | s.definition))))..(defun.list-cl |
| ed4a0 | 61 73 73 2d 73 79 6d 62 6f 6c 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6c 61 | ass-symbols.(name)...(let*.((cla |
| ed4c0 | 73 73 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 | ss.(find-class.name))..........( |
| ed4e0 | 73 6c 6f 74 73 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 6c | slots.(swank-mop:class-direct-sl |
| ed500 | 6f 74 73 20 63 6c 61 73 73 29 29 29 0a 20 20 20 20 28 6c 61 62 65 6c 73 20 28 28 65 78 74 72 61 | ots.class))).....(labels.((extra |
| ed520 | 63 74 2d 73 79 6d 62 6f 6c 20 28 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ct-symbol.(name)................ |
| ed540 | 28 69 66 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 6e 61 6d 65 29 20 28 65 71 6c 20 28 63 61 72 20 | (if.(and.(consp.name).(eql.(car. |
| ed560 | 6e 61 6d 65 29 20 27 73 65 74 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name).'setf))................... |
| ed580 | 20 28 63 61 64 72 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(cadr.name).................... |
| ed5a0 | 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 6f 74 2d 61 63 63 65 73 73 | name))..............(slot-access |
| ed5c0 | 6f 72 73 20 28 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 69 6e 74 65 | ors.(slot)................(ninte |
| ed5e0 | 72 73 65 63 74 69 6f 6e 20 28 63 6f 70 79 2d 6c 69 73 74 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 | rsection.(copy-list.(swank-mop:s |
| ed600 | 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 72 65 61 64 65 72 73 20 73 6c 6f 74 29 29 0a 20 20 | lot-definition-readers.slot))... |
| ed620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 70 | ............................(cop |
| ed640 | 79 2d 6c 69 73 74 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f | y-list.(swank-mop:slot-definitio |
| ed660 | 6e 2d 72 65 61 64 65 72 73 20 73 6c 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n-readers.slot))................ |
| ed680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 65 78 74 72 61 63 74 2d 73 79 | ...............:key.#'extract-sy |
| ed6a0 | 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 28 6c 69 73 74 2a 20 28 63 6c 61 73 73 2d 6e 61 6d 65 | mbol))).......(list*.(class-name |
| ed6c0 | 20 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 6e 20 23 27 73 | .class)..............(mapcan.#'s |
| ed6e0 | 6c 6f 74 2d 61 63 63 65 73 73 6f 72 73 20 73 6c 6f 74 73 29 29 29 29 29 0a 0a 28 64 65 66 73 6c | lot-accessors.slots)))))..(defsl |
| ed700 | 69 6d 65 66 75 6e 20 65 78 70 6f 72 74 2d 73 74 72 75 63 74 75 72 65 20 28 6e 61 6d 65 20 70 61 | imefun.export-structure.(name.pa |
| ed720 | 63 6b 61 67 65 29 0a 20 20 28 6c 65 74 20 28 28 2a 70 61 63 6b 61 67 65 2a 20 28 67 75 65 73 73 | ckage)...(let.((*package*.(guess |
| ed740 | 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 2a 70 | -package.package))).....(when.*p |
| ed760 | 61 63 6b 61 67 65 2a 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6e 61 6d 65 20 28 66 72 6f 6d | ackage*.......(let*.((name.(from |
| ed780 | 2d 73 74 72 69 6e 67 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d | -string.name))..............(sym |
| ed7a0 | 62 6f 6c 73 20 28 63 6f 6e 64 20 23 2b 28 6f 72 20 73 62 63 6c 20 63 63 6c 29 0a 09 09 09 20 20 | bols.(cond.#+(or.sbcl.ccl)...... |
| ed7c0 | 20 20 28 28 6f 72 20 28 6e 6f 74 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 6e 61 6d 65 20 6e 69 6c | ..((or.(not.(find-class.name.nil |
| ed7e0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )).............................. |
| ed800 | 20 20 20 20 28 73 75 62 74 79 70 65 70 20 6e 61 6d 65 20 27 73 74 72 75 63 74 75 72 65 2d 6f 62 | ....(subtypep.name.'structure-ob |
| ed820 | 6a 65 63 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ject)).......................... |
| ed840 | 20 20 20 20 28 6c 69 73 74 2d 73 74 72 75 63 74 75 72 65 2d 73 79 6d 62 6f 6c 73 20 6e 61 6d 65 | ....(list-structure-symbols.name |
| ed860 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | )).............................( |
| ed880 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | t..............................( |
| ed8a0 | 6c 69 73 74 2d 63 6c 61 73 73 2d 73 79 6d 62 6f 6c 73 20 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 | list-class-symbols.name))))).... |
| ed8c0 | 20 20 20 20 20 28 65 78 70 6f 72 74 20 73 79 6d 62 6f 6c 73 29 0a 20 20 20 20 20 20 20 20 73 79 | .....(export.symbols).........sy |
| ed8e0 | 6d 62 6f 6c 73 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 70 61 63 6b 61 | mbols))))..(provide.:swank-packa |
| ed900 | 67 65 2d 66 75 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ge-fu).......................... |
| ed920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eda00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 69 6b 61 72 75 73 2e | slime-2.31/contrib/swank-ikarus. |
| eda20 | 73 73 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ss.............................. |
| eda40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eda60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| eda80 | 30 30 30 34 36 34 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 36 34 36 00 20 30 00 00 00 | 0004645.00000000000.015646..0... |
| edaa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| edac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| edae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| edb00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| edb20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| edb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| edb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| edb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| edba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| edbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| edbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| edc00 | 3b 3b 20 73 77 61 6e 6b 2d 6c 61 72 63 65 6e 79 2e 73 63 6d 20 2d 2d 2d 20 53 77 61 6e 6b 20 73 | ;;.swank-larceny.scm.---.Swank.s |
| edc20 | 65 72 76 65 72 20 66 6f 72 20 49 6b 61 72 75 73 0a 3b 3b 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 | erver.for.Ikarus.;;.;;.License:. |
| edc40 | 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 48 65 6c 6d 75 74 20 | Public.Domain.;;.Author:.Helmut. |
| edc60 | 45 6c 6c 65 72 0a 3b 3b 0a 3b 3b 20 49 6e 20 61 20 73 68 65 6c 6c 20 65 78 65 63 75 74 65 3a 0a | Eller.;;.;;.In.a.shell.execute:. |
| edc80 | 3b 3b 20 20 20 69 6b 61 72 75 73 20 73 77 61 6e 6b 2d 69 6b 61 72 75 73 2e 73 73 0a 3b 3b 20 61 | ;;...ikarus.swank-ikarus.ss.;;.a |
| edca0 | 6e 64 20 74 68 65 6e 20 60 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 27 20 69 6e 20 45 | nd.then.`M-x.slime-connect'.in.E |
| edcc0 | 6d 61 63 73 2e 0a 3b 3b 0a 0a 28 6c 69 62 72 61 72 79 20 28 73 77 61 6e 6b 20 6f 73 29 0a 20 20 | macs..;;..(library.(swank.os)... |
| edce0 | 20 20 28 65 78 70 6f 72 74 20 67 65 74 70 69 64 20 6d 61 6b 65 2d 73 65 72 76 65 72 2d 73 6f 63 | ..(export.getpid.make-server-soc |
| edd00 | 6b 65 74 20 61 63 63 65 70 74 20 6c 6f 63 61 6c 2d 70 6f 72 74 20 63 6c 6f 73 65 2d 73 6f 63 6b | ket.accept.local-port.close-sock |
| edd20 | 65 74 29 0a 20 20 20 20 28 69 6d 70 6f 72 74 20 28 72 6e 72 73 29 0a 09 20 20 20 20 28 6f 6e 6c | et).....(import.(rnrs)......(onl |
| edd40 | 79 20 28 69 6b 61 72 75 73 20 66 6f 72 65 69 67 6e 29 20 6d 61 6b 65 2d 63 2d 63 61 6c 6c 6f 75 | y.(ikarus.foreign).make-c-callou |
| edd60 | 74 20 64 6c 73 79 6d 20 64 6c 6f 70 65 6e 0a 09 09 20 20 70 6f 69 6e 74 65 72 2d 73 65 74 2d 63 | t.dlsym.dlopen.....pointer-set-c |
| edd80 | 2d 6c 6f 6e 67 21 20 70 6f 69 6e 74 65 72 2d 72 65 66 2d 63 2d 75 6e 73 69 67 6e 65 64 2d 73 68 | -long!.pointer-ref-c-unsigned-sh |
| edda0 | 6f 72 74 0a 09 09 20 20 6d 61 6c 6c 6f 63 20 66 72 65 65 20 70 6f 69 6e 74 65 72 2d 73 69 7a 65 | ort.....malloc.free.pointer-size |
| eddc0 | 29 0a 09 20 20 20 20 28 72 65 6e 61 6d 65 20 28 6f 6e 6c 79 20 28 69 6b 61 72 75 73 20 69 70 63 | )......(rename.(only.(ikarus.ipc |
| edde0 | 29 20 74 63 70 2d 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 20 61 63 63 65 70 74 2d 63 6f 6e 6e 65 | ).tcp-server-socket.accept-conne |
| ede00 | 63 74 69 6f 6e 0a 09 09 09 20 20 63 6c 6f 73 65 2d 74 63 70 2d 73 65 72 76 65 72 2d 73 6f 63 6b | ction......close-tcp-server-sock |
| ede20 | 65 74 29 0a 09 09 20 20 20 20 28 74 63 70 2d 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 20 6d 61 6b | et).......(tcp-server-socket.mak |
| ede40 | 65 2d 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 29 0a 09 09 20 20 20 20 28 63 6c 6f 73 65 2d 74 63 | e-server-socket).......(close-tc |
| ede60 | 70 2d 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 20 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 29 29 0a 09 | p-server-socket.close-socket)).. |
| ede80 | 20 20 20 20 28 6f 6e 6c 79 20 28 69 6b 61 72 75 73 29 0a 09 09 20 20 73 74 72 75 63 74 2d 74 79 | ....(only.(ikarus).....struct-ty |
| edea0 | 70 65 2d 64 65 73 63 72 69 70 74 6f 72 0a 09 09 20 20 73 74 72 75 63 74 2d 74 79 70 65 2d 66 69 | pe-descriptor.....struct-type-fi |
| edec0 | 65 6c 64 2d 6e 61 6d 65 73 0a 09 09 20 20 73 74 72 75 63 74 2d 66 69 65 6c 64 2d 61 63 63 65 73 | eld-names.....struct-field-acces |
| edee0 | 73 6f 72 29 0a 09 20 20 20 20 29 0a 0a 20 28 64 65 66 69 6e 65 20 6c 69 62 63 20 28 64 6c 6f 70 | sor)......)...(define.libc.(dlop |
| edf00 | 65 6e 29 29 0a 20 28 64 65 66 69 6e 65 20 28 63 66 75 6e 20 6e 61 6d 65 20 72 65 74 75 72 6e 2d | en))..(define.(cfun.name.return- |
| edf20 | 74 79 70 65 20 61 72 67 2d 74 79 70 65 73 29 0a 20 20 20 28 28 6d 61 6b 65 2d 63 2d 63 61 6c 6c | type.arg-types)....((make-c-call |
| edf40 | 6f 75 74 20 72 65 74 75 72 6e 2d 74 79 70 65 20 61 72 67 2d 74 79 70 65 73 29 20 28 64 6c 73 79 | out.return-type.arg-types).(dlsy |
| edf60 | 6d 20 6c 69 62 63 20 6e 61 6d 65 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 67 65 74 70 69 64 20 | m.libc.name)))...(define.getpid. |
| edf80 | 28 63 66 75 6e 20 22 67 65 74 70 69 64 22 20 27 73 69 67 6e 65 64 2d 69 6e 74 20 27 28 29 29 29 | (cfun."getpid".'signed-int.'())) |
| edfa0 | 0a 0a 20 28 64 65 66 69 6e 65 20 28 61 63 63 65 70 74 20 73 6f 63 6b 65 74 20 63 6f 64 65 63 29 | ...(define.(accept.socket.codec) |
| edfc0 | 0a 20 20 20 28 6c 65 74 2d 76 61 6c 75 65 73 20 28 28 28 69 6e 20 6f 75 74 29 20 28 61 63 63 65 | ....(let-values.(((in.out).(acce |
| edfe0 | 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 6f 63 6b 65 74 29 29 29 0a 20 20 20 20 20 28 76 61 | pt-connection.socket)))......(va |
| ee000 | 6c 75 65 73 20 28 74 72 61 6e 73 63 6f 64 65 64 2d 70 6f 72 74 20 69 6e 20 28 6d 61 6b 65 2d 74 | lues.(transcoded-port.in.(make-t |
| ee020 | 72 61 6e 73 63 6f 64 65 72 20 63 6f 64 65 63 29 29 0a 09 20 20 20 20 20 28 74 72 61 6e 73 63 6f | ranscoder.codec)).......(transco |
| ee040 | 64 65 64 2d 70 6f 72 74 20 6f 75 74 20 28 6d 61 6b 65 2d 74 72 61 6e 73 63 6f 64 65 72 20 63 6f | ded-port.out.(make-transcoder.co |
| ee060 | 64 65 63 29 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 73 6f 63 6b 65 74 2d 66 64 20 73 6f | dec)))))...(define.(socket-fd.so |
| ee080 | 63 6b 65 74 29 0a 20 20 20 28 6c 65 74 20 28 28 72 74 64 20 28 73 74 72 75 63 74 2d 74 79 70 65 | cket)....(let.((rtd.(struct-type |
| ee0a0 | 2d 64 65 73 63 72 69 70 74 6f 72 20 73 6f 63 6b 65 74 29 29 29 0a 20 20 20 20 20 28 64 6f 20 28 | -descriptor.socket)))......(do.( |
| ee0c0 | 28 69 20 30 20 28 2b 20 69 20 31 29 29 0a 09 20 20 28 6e 61 6d 65 73 20 28 73 74 72 75 63 74 2d | (i.0.(+.i.1))....(names.(struct- |
| ee0e0 | 74 79 70 65 2d 66 69 65 6c 64 2d 6e 61 6d 65 73 20 72 74 64 29 20 28 63 64 72 20 6e 61 6d 65 73 | type-field-names.rtd).(cdr.names |
| ee100 | 29 29 29 0a 09 20 28 28 65 71 3f 20 28 63 61 72 20 6e 61 6d 65 73 29 20 27 66 64 29 20 28 28 73 | )))...((eq?.(car.names).'fd).((s |
| ee120 | 74 72 75 63 74 2d 66 69 65 6c 64 2d 61 63 63 65 73 73 6f 72 20 72 74 64 20 69 29 20 73 6f 63 6b | truct-field-accessor.rtd.i).sock |
| ee140 | 65 74 29 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 | et)))))...(define.sockaddr_in/si |
| ee160 | 7a 65 20 31 36 29 0a 20 28 64 65 66 69 6e 65 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 6e 5f | ze.16)..(define.sockaddr_in/sin_ |
| ee180 | 66 61 6d 69 6c 79 20 30 29 0a 20 28 64 65 66 69 6e 65 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 | family.0)..(define.sockaddr_in/s |
| ee1a0 | 69 6e 5f 70 6f 72 74 20 32 29 0a 20 28 64 65 66 69 6e 65 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f | in_port.2)..(define.sockaddr_in/ |
| ee1c0 | 73 69 6e 5f 61 64 64 72 20 34 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 6c 6f 63 61 6c 2d 70 6f 72 | sin_addr.4)...(define.(local-por |
| ee1e0 | 74 20 73 6f 63 6b 65 74 29 0a 20 20 20 28 6c 65 74 2a 20 28 28 66 64 20 28 73 6f 63 6b 65 74 2d | t.socket)....(let*.((fd.(socket- |
| ee200 | 66 64 20 73 6f 63 6b 65 74 29 29 0a 09 20 20 28 61 64 64 72 20 28 6d 61 6c 6c 6f 63 20 73 6f 63 | fd.socket))....(addr.(malloc.soc |
| ee220 | 6b 61 64 64 72 5f 69 6e 2f 73 69 7a 65 29 29 0a 09 20 20 28 73 69 7a 65 20 28 6d 61 6c 6c 6f 63 | kaddr_in/size))....(size.(malloc |
| ee240 | 20 28 70 6f 69 6e 74 65 72 2d 73 69 7a 65 29 29 29 29 0a 20 20 20 20 20 28 70 6f 69 6e 74 65 72 | .(pointer-size))))......(pointer |
| ee260 | 2d 73 65 74 2d 63 2d 6c 6f 6e 67 21 20 73 69 7a 65 20 30 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f | -set-c-long!.size.0.sockaddr_in/ |
| ee280 | 73 69 7a 65 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 64 65 20 28 67 65 74 73 6f 63 6b 6e | size)......(let.((code.(getsockn |
| ee2a0 | 61 6d 65 20 66 64 20 61 64 64 72 20 73 69 7a 65 29 29 0a 09 20 20 20 28 70 6f 72 74 20 28 6e 74 | ame.fd.addr.size)).....(port.(nt |
| ee2c0 | 6f 68 73 20 28 70 6f 69 6e 74 65 72 2d 72 65 66 2d 63 2d 75 6e 73 69 67 6e 65 64 2d 73 68 6f 72 | ohs.(pointer-ref-c-unsigned-shor |
| ee2e0 | 74 20 0a 09 09 09 20 61 64 64 72 20 73 6f 63 6b 61 64 64 72 5f 69 6e 2f 73 69 6e 5f 70 6f 72 74 | t......addr.sockaddr_in/sin_port |
| ee300 | 29 29 29 29 0a 20 20 20 20 20 20 20 28 66 72 65 65 20 61 64 64 72 29 0a 20 20 20 20 20 20 20 28 | ))))........(free.addr)........( |
| ee320 | 66 72 65 65 20 73 69 7a 65 29 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 63 6f 64 65 | free.size)........(cond.((=.code |
| ee340 | 20 2d 31 29 20 28 65 72 72 6f 72 20 22 67 65 74 73 6f 63 6b 6e 61 6d 65 20 66 61 69 6c 65 64 22 | .-1).(error."getsockname.failed" |
| ee360 | 29 29 0a 09 20 20 20 20 20 28 23 74 20 70 6f 72 74 29 29 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 | )).......(#t.port)))))...(define |
| ee380 | 20 67 65 74 73 6f 63 6b 6e 61 6d 65 20 0a 20 20 20 28 63 66 75 6e 20 22 67 65 74 73 6f 63 6b 6e | .getsockname.....(cfun."getsockn |
| ee3a0 | 61 6d 65 22 20 27 73 69 67 6e 65 64 2d 69 6e 74 20 27 28 73 69 67 6e 65 64 2d 69 6e 74 20 70 6f | ame".'signed-int.'(signed-int.po |
| ee3c0 | 69 6e 74 65 72 20 70 6f 69 6e 74 65 72 29 29 29 0a 0a 20 28 64 65 66 69 6e 65 20 6e 74 6f 68 73 | inter.pointer)))...(define.ntohs |
| ee3e0 | 20 28 63 66 75 6e 20 22 6e 74 6f 68 73 22 20 27 75 6e 73 69 67 6e 65 64 2d 73 68 6f 72 74 20 27 | .(cfun."ntohs".'unsigned-short.' |
| ee400 | 28 75 6e 73 69 67 6e 65 64 2d 73 68 6f 72 74 29 29 29 0a 0a 20 29 0a 0a 0a 28 6c 69 62 72 61 72 | (unsigned-short)))...)...(librar |
| ee420 | 79 20 28 73 77 61 6e 6b 20 73 79 73 29 0a 20 20 20 20 28 65 78 70 6f 72 74 20 69 6d 70 6c 65 6d | y.(swank.sys).....(export.implem |
| ee440 | 65 6e 74 61 74 69 6f 6e 2d 6e 61 6d 65 20 65 76 61 6c 2d 69 6e 2d 69 6e 74 65 72 61 63 74 69 6f | entation-name.eval-in-interactio |
| ee460 | 6e 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 28 69 6d 70 6f 72 74 20 28 72 6e 72 73 | n-environment).....(import.(rnrs |
| ee480 | 29 20 0a 09 20 20 20 20 28 72 6e 72 73 20 65 76 61 6c 29 0a 09 20 20 20 20 28 6f 6e 6c 79 20 28 | ).......(rnrs.eval)......(only.( |
| ee4a0 | 69 6b 61 72 75 73 29 20 69 6e 74 65 72 61 63 74 69 6f 6e 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 | ikarus).interaction-environment) |
| ee4c0 | 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 6e 61 6d 65 | )...(define.(implementation-name |
| ee4e0 | 29 20 22 69 6b 61 72 75 73 22 29 0a 0a 20 28 64 65 66 69 6e 65 20 28 65 76 61 6c 2d 69 6e 2d 69 | )."ikarus")...(define.(eval-in-i |
| ee500 | 6e 74 65 72 61 63 74 69 6f 6e 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 66 6f 72 6d 29 0a 20 20 20 | nteraction-environment.form).... |
| ee520 | 28 65 76 61 6c 20 66 6f 72 6d 20 28 69 6e 74 65 72 61 63 74 69 6f 6e 2d 65 6e 76 69 72 6f 6e 6d | (eval.form.(interaction-environm |
| ee540 | 65 6e 74 29 29 29 0a 0a 20 29 0a 0a 28 69 6d 70 6f 72 74 20 28 6f 6e 6c 79 20 28 69 6b 61 72 75 | ent)))...)..(import.(only.(ikaru |
| ee560 | 73 29 20 6c 6f 61 64 29 29 0a 28 6c 6f 61 64 20 22 73 77 61 6e 6b 2d 72 36 72 73 2e 73 63 6d 22 | s).load)).(load."swank-r6rs.scm" |
| ee580 | 29 0a 28 69 6d 70 6f 72 74 20 28 73 77 61 6e 6b 29 29 0a 28 73 74 61 72 74 2d 73 65 72 76 65 72 | ).(import.(swank)).(start-server |
| ee5a0 | 20 23 66 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .#f)............................ |
| ee5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 73 70 72 6f 66 2e 6c | slime-2.31/contrib/swank-sprof.l |
| ee620 | 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | isp............................. |
| ee640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| ee680 | 30 30 31 34 36 36 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 30 33 30 00 20 30 00 00 00 | 0014667.00000000000.016030..0... |
| ee6a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee6c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee6e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| ee720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| ee740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee7a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee800 | 3b 3b 3b 20 73 77 61 6e 6b 2d 73 70 72 6f 66 2e 6c 69 73 70 0a 3b 3b 0a 3b 3b 20 41 75 74 68 6f | ;;;.swank-sprof.lisp.;;.;;.Autho |
| ee820 | 72 73 3a 20 4a 75 68 6f 20 53 6e 65 6c 6c 6d 61 6e 0a 3b 3b 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a | rs:.Juho.Snellman.;;.;;.License: |
| ee840 | 20 4d 49 54 0a 3b 3b 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 23 2b | .MIT.;;..(in-package.:swank)..#+ |
| ee860 | 73 62 63 6c 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 | sbcl.(eval-when.(:compile-toplev |
| ee880 | 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 72 | el.:load-toplevel.:execute)...(r |
| ee8a0 | 65 71 75 69 72 65 20 3a 73 62 2d 73 70 72 6f 66 29 29 0a 0a 23 2b 73 62 63 6c 28 70 72 6f 67 6e | equire.:sb-sprof))..#+sbcl(progn |
| ee8c0 | 0a 0a 28 64 65 66 76 61 72 20 2a 63 61 6c 6c 2d 67 72 61 70 68 2a 20 6e 69 6c 29 0a 28 64 65 66 | ..(defvar.*call-graph*.nil).(def |
| ee8e0 | 76 61 72 20 2a 6e 6f 64 65 2d 6e 75 6d 62 65 72 73 2a 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 | var.*node-numbers*.nil).(defvar. |
| ee900 | 2a 6e 75 6d 62 65 72 2d 6e 6f 64 65 73 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d | *number-nodes*.nil)..(defun.fram |
| ee920 | 65 2d 6e 61 6d 65 20 28 6e 61 6d 65 29 0a 20 20 28 69 66 20 28 63 6f 6e 73 70 20 6e 61 6d 65 29 | e-name.(name)...(if.(consp.name) |
| ee940 | 0a 20 20 20 20 20 20 28 63 61 73 65 20 28 66 69 72 73 74 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 | .......(case.(first.name)....... |
| ee960 | 20 20 28 28 73 62 2d 63 3a 3a 78 65 70 20 73 62 2d 63 3a 3a 74 6c 2d 78 65 70 0a 20 20 20 20 20 | ..((sb-c::xep.sb-c::tl-xep...... |
| ee980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 62 2d 63 3a 3a 26 6d 6f 72 65 2d 70 72 6f 63 65 | ...............sb-c::&more-proce |
| ee9a0 | 73 73 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 62 2d 63 3a 3a 74 | ssor.....................sb-c::t |
| ee9c0 | 6f 70 2d 6c 65 76 65 6c 2d 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | op-level-form................... |
| ee9e0 | 20 20 73 62 2d 63 3a 3a 26 6f 70 74 69 6f 6e 61 6c 2d 70 72 6f 63 65 73 73 6f 72 29 0a 20 20 20 | ..sb-c::&optional-processor).... |
| eea00 | 20 20 20 20 20 20 28 73 65 63 6f 6e 64 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 73 62 | ......(second.name)).........(sb |
| eea20 | 2d 70 63 6c 3a 3a 66 61 73 74 2d 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 28 63 64 72 20 | -pcl::fast-method..........(cdr. |
| eea40 | 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 28 66 6c 65 74 20 6c 61 62 65 6c 73 20 6c 61 6d | name)).........((flet.labels.lam |
| eea60 | 62 64 61 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 69 6e 20 28 6d 65 6d 62 65 72 | bda)..........(let*.((in.(member |
| eea80 | 20 3a 69 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 | .:in.name)))............(if.(str |
| eeaa0 | 69 6e 67 70 20 28 63 61 64 72 20 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ingp.(cadr.in))................( |
| eeac0 | 61 70 70 65 6e 64 20 28 6c 64 69 66 66 20 6e 61 6d 65 20 69 6e 29 20 28 63 64 64 72 20 69 6e 29 | append.(ldiff.name.in).(cddr.in) |
| eeae0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 | )................name)))........ |
| eeb00 | 20 28 74 0a 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 6e 61 6d 65 29 29 | .(t..........name)).......name)) |
| eeb20 | 0a 0a 28 64 65 66 75 6e 20 70 72 65 74 74 79 2d 6e 61 6d 65 20 28 6e 61 6d 65 29 0a 20 20 28 6c | ..(defun.pretty-name.(name)...(l |
| eeb40 | 65 74 20 28 28 2a 70 61 63 6b 61 67 65 2a 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 63 6f | et.((*package*.(find-package.:co |
| eeb60 | 6d 6d 6f 6e 2d 6c 69 73 70 2d 75 73 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 2a 70 72 69 6e 74 | mmon-lisp-user)).........(*print |
| eeb80 | 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 2a 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 | -right-margin*.most-positive-fix |
| eeba0 | 6e 75 6d 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 22 20 28 66 72 61 6d | num)).....(format.nil."~S".(fram |
| eebc0 | 65 2d 6e 61 6d 65 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 61 6d 70 6c 65 73 2d | e-name.name))))..(defun.samples- |
| eebe0 | 70 65 72 63 65 6e 74 20 28 63 6f 75 6e 74 29 0a 20 20 28 73 62 2d 73 70 72 6f 66 3a 3a 73 61 6d | percent.(count)...(sb-sprof::sam |
| eec00 | 70 6c 65 73 2d 70 65 72 63 65 6e 74 20 2a 63 61 6c 6c 2d 67 72 61 70 68 2a 20 63 6f 75 6e 74 29 | ples-percent.*call-graph*.count) |
| eec20 | 29 0a 0a 28 64 65 66 75 6e 20 6e 6f 64 65 2d 76 61 6c 75 65 73 20 28 6e 6f 64 65 29 0a 20 20 28 | )..(defun.node-values.(node)...( |
| eec40 | 76 61 6c 75 65 73 20 28 70 72 65 74 74 79 2d 6e 61 6d 65 20 28 73 62 2d 73 70 72 6f 66 3a 3a 6e | values.(pretty-name.(sb-sprof::n |
| eec60 | 6f 64 65 2d 6e 61 6d 65 20 6e 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 61 6d 70 6c | ode-name.node))...........(sampl |
| eec80 | 65 73 2d 70 65 72 63 65 6e 74 20 28 73 62 2d 73 70 72 6f 66 3a 3a 6e 6f 64 65 2d 63 6f 75 6e 74 | es-percent.(sb-sprof::node-count |
| eeca0 | 20 6e 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 61 6d 70 6c 65 73 2d 70 65 72 63 65 | .node))...........(samples-perce |
| eecc0 | 6e 74 20 28 73 62 2d 73 70 72 6f 66 3a 3a 6e 6f 64 65 2d 61 63 63 72 75 65 64 2d 63 6f 75 6e 74 | nt.(sb-sprof::node-accrued-count |
| eece0 | 20 6e 6f 64 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6c 74 65 72 2d 73 77 61 6e 6b 2d 6e | .node))))..(defun.filter-swank-n |
| eed00 | 6f 64 65 73 20 28 6e 6f 64 65 73 29 0a 20 20 28 6c 65 74 20 28 28 73 77 61 6e 6b 2d 70 61 63 6b | odes.(nodes)...(let.((swank-pack |
| eed20 | 61 67 65 73 20 28 6c 6f 6f 70 20 66 6f 72 20 70 61 63 6b 61 67 65 20 69 6e 20 28 6c 69 73 74 2d | ages.(loop.for.package.in.(list- |
| eed40 | 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | all-packages)................... |
| eed60 | 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 73 65 61 72 63 68 20 22 53 57 41 4e 4b 22 | ............when.(search."SWANK" |
| eed80 | 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 20 3a 74 65 73 74 20 23 27 | .(package-name.package).:test.#' |
| eeda0 | 63 68 61 72 2d 65 71 75 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | char-equal)..................... |
| eedc0 | 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 | ..........collect.package))).... |
| eede0 | 20 28 72 65 6d 6f 76 65 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 6e 6f 64 65 29 0a 20 20 20 20 20 | .(remove-if.(lambda.(node)...... |
| eee00 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 73 62 2d 73 70 72 6f | ............(let.((name.(sb-spro |
| eee20 | 66 3a 3a 6e 6f 64 65 2d 6e 61 6d 65 20 6e 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | f::node-name.node)))............ |
| eee40 | 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 | ........(typecase.name.......... |
| eee60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ............(symbol............. |
| eee80 | 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 | ..........(member.(symbol-packag |
| eeea0 | 65 20 6e 61 6d 65 29 20 73 77 61 6e 6b 2d 70 61 63 6b 61 67 65 73 0a 20 20 20 20 20 20 20 20 20 | e.name).swank-packages.......... |
| eeec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 65 71 29 | .....................:test.#'eq) |
| eeee0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 6e 61 6d | )......................(cons.nam |
| eef00 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 69 66 | e.......................(find-if |
| eef20 | 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(lambda.(x).................... |
| eef40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 78 29 0a 20 | ..............(and.(symbolp.x).. |
| eef60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| eef80 | 20 20 20 20 20 28 6d 65 6d 62 65 72 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 78 29 20 | .....(member.(symbol-package.x). |
| eefa0 | 73 77 61 6e 6b 2d 70 61 63 6b 61 67 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | swank-packages.................. |
| eefc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 | .............................:te |
| eefe0 | 73 74 20 23 27 65 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | st.#'eq)))...................... |
| ef000 | 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..........name)))))............. |
| ef020 | 20 20 20 6e 6f 64 65 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 72 69 61 6c 69 7a 65 2d 63 61 | ...nodes)))..(defun.serialize-ca |
| ef040 | 6c 6c 2d 67 72 61 70 68 20 28 26 6b 65 79 20 65 78 63 6c 75 64 65 2d 73 77 61 6e 6b 20 28 73 6f | ll-graph.(&key.exclude-swank.(so |
| ef060 | 72 74 20 27 63 75 6d 75 6c 29 29 0a 20 20 28 6c 65 74 20 28 28 6e 6f 64 65 73 20 28 73 62 2d 73 | rt.'cumul))...(let.((nodes.(sb-s |
| ef080 | 70 72 6f 66 3a 3a 63 61 6c 6c 2d 67 72 61 70 68 2d 66 6c 61 74 2d 6e 6f 64 65 73 20 2a 63 61 6c | prof::call-graph-flat-nodes.*cal |
| ef0a0 | 6c 2d 67 72 61 70 68 2a 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 65 78 63 6c 75 64 65 2d 73 77 | l-graph*))).....(when.exclude-sw |
| ef0c0 | 61 6e 6b 0a 20 20 20 20 20 20 28 73 65 74 66 20 6e 6f 64 65 73 20 28 66 69 6c 74 65 72 2d 73 77 | ank.......(setf.nodes.(filter-sw |
| ef0e0 | 61 6e 6b 2d 6e 6f 64 65 73 20 6e 6f 64 65 73 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 6e 6f 64 | ank-nodes.nodes))).....(setf.nod |
| ef100 | 65 73 20 28 73 6f 72 74 20 28 63 6f 70 79 2d 6c 69 73 74 20 6e 6f 64 65 73 29 20 23 27 3e 0a 20 | es.(sort.(copy-list.nodes).#'>.. |
| ef120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 28 65 63 61 73 65 | .....................:key.(ecase |
| ef140 | 20 73 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .sort........................... |
| ef160 | 20 20 20 28 73 77 61 6e 6b 2d 69 6f 2d 70 61 63 6b 61 67 65 3a 3a 73 65 6c 66 20 23 27 73 62 2d | ...(swank-io-package::self.#'sb- |
| ef180 | 73 70 72 6f 66 3a 3a 6e 6f 64 65 2d 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | sprof::node-count).............. |
| ef1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 69 6f 2d 70 61 63 6b 61 67 | ................(swank-io-packag |
| ef1c0 | 65 3a 3a 63 75 6d 75 6c 20 23 27 73 62 2d 73 70 72 6f 66 3a 3a 6e 6f 64 65 2d 61 63 63 72 75 65 | e::cumul.#'sb-sprof::node-accrue |
| ef1e0 | 64 2d 63 6f 75 6e 74 29 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 2a 6e 75 6d 62 65 72 2d 6e 6f | d-count)))).....(setf.*number-no |
| ef200 | 64 65 73 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 20 20 20 20 28 73 65 74 | des*.(make-hash-table)).....(set |
| ef220 | 66 20 2a 6e 6f 64 65 2d 6e 75 6d 62 65 72 73 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c | f.*node-numbers*.(make-hash-tabl |
| ef240 | 65 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6e 6f 64 65 20 69 6e 20 6e 6f 64 65 73 0a | e)).....(loop.for.node.in.nodes. |
| ef260 | 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 31 0a 20 20 20 20 20 20 20 20 20 | ..........for.i.from.1.......... |
| ef280 | 20 77 69 74 68 20 74 6f 74 61 6c 20 3d 20 30 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 | .with.total.=.0...........collec |
| ef2a0 | 74 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6e 61 6d 65 20 73 65 6c | t.(multiple-value-bind.(name.sel |
| ef2c0 | 66 20 63 75 6d 75 6c 61 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | f.cumulative)................... |
| ef2e0 | 20 20 20 20 28 6e 6f 64 65 2d 76 61 6c 75 65 73 20 6e 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 | ....(node-values.node).......... |
| ef300 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 6e 6f 64 65 20 2a | ...........(setf.(gethash.node.* |
| ef320 | 6e 6f 64 65 2d 6e 75 6d 62 65 72 73 2a 29 20 69 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | node-numbers*).i................ |
| ef340 | 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 68 61 73 68 20 69 20 2a 6e 75 6d 62 65 72 2d 6e 6f | ...........(gethash.i.*number-no |
| ef360 | 64 65 73 2a 29 20 6e 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | des*).node)..................... |
| ef380 | 28 69 6e 63 66 20 74 6f 74 61 6c 20 73 65 6c 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (incf.total.self)............... |
| ef3a0 | 20 20 20 20 20 20 28 6c 69 73 74 20 69 20 6e 61 6d 65 20 73 65 6c 66 20 63 75 6d 75 6c 61 74 69 | ......(list.i.name.self.cumulati |
| ef3c0 | 76 65 20 74 6f 74 61 6c 29 29 20 69 6e 74 6f 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 66 | ve.total)).into.list...........f |
| ef3e0 | 69 6e 61 6c 6c 79 20 28 72 65 74 75 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | inally.(return.................. |
| ef400 | 20 20 20 28 6c 65 74 20 28 28 72 65 73 74 20 28 2d 20 31 30 30 20 74 6f 74 61 6c 29 29 29 0a 20 | ...(let.((rest.(-.100.total))).. |
| ef420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 61 70 | .....................(return.(ap |
| ef440 | 70 65 6e 64 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pend.list....................... |
| ef460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 6e 69 6c 20 22 45 6c 73 65 77 68 65 72 | ................`((nil."Elsewher |
| ef480 | 65 22 20 2c 72 65 73 74 20 6e 69 6c 20 6e 69 6c 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 73 | e".,rest.nil.nil)))))))))..(defs |
| ef4a0 | 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 73 70 72 6f 66 2d 67 65 74 2d 63 61 6c 6c 2d 67 72 61 | limefun.swank-sprof-get-call-gra |
| ef4c0 | 70 68 20 28 26 6b 65 79 20 65 78 63 6c 75 64 65 2d 73 77 61 6e 6b 20 73 6f 72 74 29 0a 20 20 28 | ph.(&key.exclude-swank.sort)...( |
| ef4e0 | 77 68 65 6e 20 28 73 65 74 66 20 2a 63 61 6c 6c 2d 67 72 61 70 68 2a 20 28 73 62 2d 73 70 72 6f | when.(setf.*call-graph*.(sb-spro |
| ef500 | 66 3a 72 65 70 6f 72 74 20 3a 74 79 70 65 20 6e 69 6c 29 29 0a 20 20 20 20 28 73 65 72 69 61 6c | f:report.:type.nil)).....(serial |
| ef520 | 69 7a 65 2d 63 61 6c 6c 2d 67 72 61 70 68 20 3a 65 78 63 6c 75 64 65 2d 73 77 61 6e 6b 20 65 78 | ize-call-graph.:exclude-swank.ex |
| ef540 | 63 6c 75 64 65 2d 73 77 61 6e 6b 20 3a 73 6f 72 74 20 73 6f 72 74 29 29 29 0a 0a 28 64 65 66 73 | clude-swank.:sort.sort)))..(defs |
| ef560 | 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 73 70 72 6f 66 2d 65 78 70 61 6e 64 2d 6e 6f 64 65 20 | limefun.swank-sprof-expand-node. |
| ef580 | 28 69 6e 64 65 78 29 0a 20 20 28 6c 65 74 2a 20 28 28 6e 6f 64 65 20 28 67 65 74 68 61 73 68 20 | (index)...(let*.((node.(gethash. |
| ef5a0 | 69 6e 64 65 78 20 2a 6e 75 6d 62 65 72 2d 6e 6f 64 65 73 2a 29 29 29 0a 20 20 20 20 28 6c 61 62 | index.*number-nodes*))).....(lab |
| ef5c0 | 65 6c 73 20 28 28 63 61 6c 6c 65 72 2d 63 6f 75 6e 74 20 28 76 29 0a 20 20 20 20 20 20 20 20 20 | els.((caller-count.(v).......... |
| ef5e0 | 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 65 20 69 6e 20 28 73 62 2d 73 70 72 6f 66 3a 3a | ......(loop.for.e.in.(sb-sprof:: |
| ef600 | 76 65 72 74 65 78 2d 65 64 67 65 73 20 76 29 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | vertex-edges.v).do.............. |
| ef620 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 73 62 2d 73 70 72 6f 66 3a 3a 65 64 67 | ........(when.(eq.(sb-sprof::edg |
| ef640 | 65 2d 76 65 72 74 65 78 20 65 29 20 6e 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-vertex.e).node)............... |
| ef660 | 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 63 61 6c 6c 65 72 2d 63 6f 75 | .........(return-from.caller-cou |
| ef680 | 6e 74 20 28 73 62 2d 73 70 72 6f 66 3a 3a 63 61 6c 6c 2d 63 6f 75 6e 74 20 65 29 29 29 29 0a 20 | nt.(sb-sprof::call-count.e)))).. |
| ef6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ..............0)..............(s |
| ef6c0 | 65 72 69 61 6c 69 7a 65 2d 6e 6f 64 65 20 28 6e 6f 64 65 20 63 6f 75 6e 74 29 0a 20 20 20 20 20 | erialize-node.(node.count)...... |
| ef6e0 | 20 20 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 6e 6f 64 65 0a 20 20 20 20 20 20 | ..........(etypecase.node....... |
| ef700 | 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 73 70 72 6f 66 3a 3a 63 79 63 6c 65 0a 20 20 20 20 | ...........(sb-sprof::cycle..... |
| ef720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 73 62 2d 73 70 72 6f 66 3a 3a 63 | ..............(list.(sb-sprof::c |
| ef740 | 79 63 6c 65 2d 69 6e 64 65 78 20 6e 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ycle-index.node)................ |
| ef760 | 20 20 20 20 20 20 20 20 20 28 73 62 2d 73 70 72 6f 66 3a 3a 63 79 63 6c 65 2d 6e 61 6d 65 20 6e | .........(sb-sprof::cycle-name.n |
| ef780 | 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 | ode).........................(sa |
| ef7a0 | 6d 70 6c 65 73 2d 70 65 72 63 65 6e 74 20 63 6f 75 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 | mples-percent.count))).......... |
| ef7c0 | 20 20 20 20 20 20 20 20 28 73 62 2d 73 70 72 6f 66 3a 3a 6e 6f 64 65 0a 20 20 20 20 20 20 20 20 | ........(sb-sprof::node......... |
| ef7e0 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 6e 6f 64 65 2d 76 61 6c 75 | ..........(let.((name.(node-valu |
| ef800 | 65 73 20 6e 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | es.node))).....................( |
| ef820 | 6c 69 73 74 20 28 67 65 74 68 61 73 68 20 6e 6f 64 65 20 2a 6e 6f 64 65 2d 6e 75 6d 62 65 72 73 | list.(gethash.node.*node-numbers |
| ef840 | 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d | *)...........................nam |
| ef860 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 6d | e...........................(sam |
| ef880 | 70 6c 65 73 2d 70 65 72 63 65 6e 74 20 63 6f 75 6e 74 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 | ples-percent.count)))))))....... |
| ef8a0 | 28 6c 69 73 74 20 3a 63 61 6c 6c 65 72 73 20 28 6c 6f 6f 70 20 66 6f 72 20 6e 6f 64 65 20 69 6e | (list.:callers.(loop.for.node.in |
| ef8c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 72 | ............................(sor |
| ef8e0 | 74 20 28 63 6f 70 79 2d 6c 69 73 74 20 28 73 62 2d 73 70 72 6f 66 3a 3a 6e 6f 64 65 2d 63 61 6c | t.(copy-list.(sb-sprof::node-cal |
| ef900 | 6c 65 72 73 20 6e 6f 64 65 29 29 20 23 27 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lers.node)).#'>................. |
| ef920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 63 61 6c 6c 65 72 2d 63 | .................:key.#'caller-c |
| ef940 | 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ount)........................... |
| ef960 | 20 63 6f 6c 6c 65 63 74 20 28 73 65 72 69 61 6c 69 7a 65 2d 6e 6f 64 65 20 6e 6f 64 65 0a 20 20 | .collect.(serialize-node.node... |
| ef980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ef9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 65 72 2d 63 6f 75 6e 74 20 6e | .................(caller-count.n |
| ef9c0 | 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 73 20 28 6c 65 74 20 28 | ode))).............:calls.(let.( |
| ef9e0 | 28 65 64 67 65 73 20 28 73 6f 72 74 20 28 63 6f 70 79 2d 6c 69 73 74 20 28 73 62 2d 73 70 72 6f | (edges.(sort.(copy-list.(sb-spro |
| efa00 | 66 3a 3a 76 65 72 74 65 78 2d 65 64 67 65 73 20 6e 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 | f::vertex-edges.node)).......... |
| efa20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 3e | .............................#'> |
| efa40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| efa60 | 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 73 62 2d 73 70 72 6f 66 3a 3a 63 61 6c 6c 2d 63 6f 75 | .......:key.#'sb-sprof::call-cou |
| efa80 | 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 | nt)))......................(loop |
| efaa0 | 20 66 6f 72 20 65 64 67 65 20 69 6e 20 65 64 67 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .for.edge.in.edges.............. |
| efac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 | ..............collect........... |
| efae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 72 69 61 6c 69 7a 65 2d 6e 6f 64 65 | .................(serialize-node |
| efb00 | 20 28 73 62 2d 73 70 72 6f 66 3a 3a 65 64 67 65 2d 76 65 72 74 65 78 20 65 64 67 65 29 0a 20 20 | .(sb-sprof::edge-vertex.edge)... |
| efb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| efb40 | 20 20 20 20 20 20 20 20 20 28 73 62 2d 73 70 72 6f 66 3a 3a 63 61 6c 6c 2d 63 6f 75 6e 74 20 65 | .........(sb-sprof::call-count.e |
| efb60 | 64 67 65 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d | dge))))))))..(defslimefun.swank- |
| efb80 | 73 70 72 6f 66 2d 64 69 73 61 73 73 65 6d 62 6c 65 20 28 69 6e 64 65 78 29 0a 20 20 28 6c 65 74 | sprof-disassemble.(index)...(let |
| efba0 | 2a 20 28 28 6e 6f 64 65 20 28 67 65 74 68 61 73 68 20 69 6e 64 65 78 20 2a 6e 75 6d 62 65 72 2d | *.((node.(gethash.index.*number- |
| efbc0 | 6e 6f 64 65 73 2a 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 2d 69 6e 66 6f 20 28 73 | nodes*))..........(debug-info.(s |
| efbe0 | 62 2d 73 70 72 6f 66 3a 3a 6e 6f 64 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 6e 6f 64 65 29 29 29 | b-sprof::node-debug-info.node))) |
| efc00 | 0a 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 29 0a | .....(with-output-to-string.(s). |
| efc20 | 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 64 65 62 75 67 2d 69 6e 66 6f 0a 20 20 20 20 20 | ......(typecase.debug-info...... |
| efc40 | 20 20 20 28 73 62 2d 69 6d 70 6c 3a 3a 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 0a 20 20 20 20 | ...(sb-impl::code-component..... |
| efc60 | 20 20 20 20 20 28 73 62 2d 64 69 73 61 73 73 65 6d 3a 3a 64 69 73 61 73 73 65 6d 62 6c 65 2d 6d | .....(sb-disassem::disassemble-m |
| efc80 | 65 6d 6f 72 79 20 28 73 62 2d 76 6d 3a 3a 63 6f 64 65 2d 69 6e 73 74 72 75 63 74 69 6f 6e 73 20 | emory.(sb-vm::code-instructions. |
| efca0 | 64 65 62 75 67 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | debug-info)..................... |
| efcc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 76 6d 3a 3a 25 63 | ......................(sb-vm::%c |
| efce0 | 6f 64 65 2d 63 6f 64 65 2d 73 69 7a 65 20 64 65 62 75 67 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 | ode-code-size.debug-info)....... |
| efd00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| efd20 | 20 20 20 20 3a 73 74 72 65 61 6d 20 73 29 29 0a 20 20 20 20 20 20 20 20 28 73 62 2d 64 69 3a 3a | ....:stream.s)).........(sb-di:: |
| efd40 | 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d 66 75 6e 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 | compiled-debug-fun..........(let |
| efd60 | 20 28 28 63 6f 6d 70 6f 6e 65 6e 74 20 28 73 62 2d 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 | .((component.(sb-di::compiled-de |
| efd80 | 62 75 67 2d 66 75 6e 2d 63 6f 6d 70 6f 6e 65 6e 74 20 64 65 62 75 67 2d 69 6e 66 6f 29 29 29 0a | bug-fun-component.debug-info))). |
| efda0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 69 73 61 73 73 65 6d 3a 3a 64 69 73 61 73 73 65 | ...........(sb-disassem::disasse |
| efdc0 | 6d 62 6c 65 2d 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 20 63 6f 6d 70 6f 6e 65 6e 74 20 3a 73 | mble-code-component.component.:s |
| efde0 | 74 72 65 61 6d 20 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 60 28 3a 65 72 72 6f 72 20 22 | tream.s))).........(t.`(:error." |
| efe00 | 4e 6f 20 64 69 73 61 73 73 65 6d 62 6c 79 20 61 76 61 69 6c 61 62 6c 65 22 29 29 29 29 29 29 0a | No.disassembly.available")))))). |
| efe20 | 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 73 70 72 6f 66 2d 73 6f 75 72 63 65 | .(defslimefun.swank-sprof-source |
| efe40 | 2d 6c 6f 63 61 74 69 6f 6e 20 28 69 6e 64 65 78 29 0a 20 20 28 6c 65 74 2a 20 28 28 6e 6f 64 65 | -location.(index)...(let*.((node |
| efe60 | 20 28 67 65 74 68 61 73 68 20 69 6e 64 65 78 20 2a 6e 75 6d 62 65 72 2d 6e 6f 64 65 73 2a 29 29 | .(gethash.index.*number-nodes*)) |
| efe80 | 0a 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 2d 69 6e 66 6f 20 28 73 62 2d 73 70 72 6f 66 3a | ..........(debug-info.(sb-sprof: |
| efea0 | 3a 6e 6f 64 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 6e 6f 64 65 29 29 29 0a 20 20 20 20 28 6f 72 | :node-debug-info.node))).....(or |
| efec0 | 20 28 77 68 65 6e 20 28 74 79 70 65 70 20 64 65 62 75 67 2d 69 6e 66 6f 20 27 73 62 2d 64 69 3a | .(when.(typep.debug-info.'sb-di: |
| efee0 | 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 | :compiled-debug-fun)...........( |
| eff00 | 6c 65 74 2a 20 28 28 63 6f 6d 70 6f 6e 65 6e 74 20 28 73 62 2d 64 69 3a 3a 63 6f 6d 70 69 6c 65 | let*.((component.(sb-di::compile |
| eff20 | 64 2d 64 65 62 75 67 2d 66 75 6e 2d 63 6f 6d 70 6f 6e 65 6e 74 20 64 65 62 75 67 2d 69 6e 66 6f | d-debug-fun-component.debug-info |
| eff40 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 23 2d | ))..................(function.#- |
| eff60 | 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 25 63 | #.(swank/backend:with-symbol.'%c |
| eff80 | 6f 64 65 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 20 27 73 62 2d 6b 65 72 6e 65 6c 29 0a 20 20 20 20 | ode-entry-point.'sb-kernel)..... |
| effa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 6b 65 72 6e 65 | .......................(sb-kerne |
| effc0 | 6c 3a 3a 25 63 6f 64 65 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 73 20 63 6f 6d 70 6f 6e 65 6e 74 29 | l::%code-entry-points.component) |
| effe0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e | ............................#+#. |
| f0000 | 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 25 63 6f 64 | (swank/backend:with-symbol.'%cod |
| f0020 | 65 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 20 27 73 62 2d 6b 65 72 6e 65 6c 29 0a 20 20 20 20 20 20 | e-entry-point.'sb-kernel)....... |
| f0040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 6b 65 72 6e 65 6c 3a | .....................(sb-kernel: |
| f0060 | 25 63 6f 64 65 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 20 63 6f 6d 70 6f 6e 65 6e 74 20 30 29 29 29 | %code-entry-point.component.0))) |
| f0080 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 | .............(when.function..... |
| f00a0 | 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 | ..........(find-source-location. |
| f00c0 | 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 60 28 3a 65 72 72 6f 72 20 22 4e | function)))).........`(:error."N |
| f00e0 | 6f 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 61 76 61 69 6c 61 62 6c 65 22 29 29 29 29 | o.source.location.available")))) |
| f0100 | 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 73 70 72 6f 66 2d 73 74 61 72 74 | ..(defslimefun.swank-sprof-start |
| f0120 | 20 28 26 6b 65 79 20 28 6d 6f 64 65 20 3a 63 70 75 29 29 0a 20 20 28 73 62 2d 73 70 72 6f 66 3a | .(&key.(mode.:cpu))...(sb-sprof: |
| f0140 | 73 74 61 72 74 2d 70 72 6f 66 69 6c 69 6e 67 20 3a 6d 6f 64 65 20 6d 6f 64 65 29 29 0a 0a 28 64 | start-profiling.:mode.mode))..(d |
| f0160 | 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 73 70 72 6f 66 2d 73 74 6f 70 20 28 29 0a 20 | efslimefun.swank-sprof-stop.().. |
| f0180 | 20 28 73 62 2d 73 70 72 6f 66 3a 73 74 6f 70 2d 70 72 6f 66 69 6c 69 6e 67 29 29 0a 0a 29 0a 0a | .(sb-sprof:stop-profiling))..).. |
| f01a0 | 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 73 70 72 6f 66 29 0a 00 00 00 00 00 00 00 00 00 | (provide.:swank-sprof).......... |
| f01c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f01e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f0200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 63 2d 70 2d 63 2e 65 | slime-2.31/contrib/slime-c-p-c.e |
| f0220 | 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | l............................... |
| f0240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f0260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| f0280 | 30 30 33 30 35 35 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 32 30 34 00 20 30 00 00 00 | 0030552.00000000000.015204..0... |
| f02a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f02c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f02e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f0300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| f0320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| f0340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f0360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f0380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f03a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f03c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f03e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f0400 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 | (require.'slime).(require.'cl-li |
| f0420 | 62 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 69 6e 69 74 2d 75 6e 64 | b)..(defvar.slime-c-p-c-init-und |
| f0440 | 6f 2d 73 74 61 63 6b 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 | o-stack.nil)..(define-slime-cont |
| f0460 | 72 69 62 20 73 6c 69 6d 65 2d 63 2d 70 2d 63 0a 20 20 22 49 4c 49 53 50 20 73 74 79 6c 65 20 43 | rib.slime-c-p-c..."ILISP.style.C |
| f0480 | 6f 6d 70 6f 75 6e 64 20 50 72 65 66 69 78 20 43 6f 6d 70 6c 65 74 69 6f 6e 2e 22 0a 20 20 28 3a | ompound.Prefix.Completion."...(: |
| f04a0 | 61 75 74 68 6f 72 73 20 22 4c 75 6b 65 20 47 6f 72 72 69 65 20 20 3c 6c 75 6b 65 40 73 79 6e 61 | authors."Luke.Gorrie..<luke@syna |
| f04c0 | 70 2e 73 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 45 64 69 20 57 65 69 74 7a 20 20 3c | p.se>"............."Edi.Weitz..< |
| f04e0 | 65 64 69 40 61 67 68 61 72 74 61 2e 64 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 4d 61 | edi@agharta.de>"............."Ma |
| f0500 | 74 74 68 69 61 73 20 4b 6f 65 70 70 65 20 20 3c 6d 6b 6f 65 70 70 65 40 6d 61 69 6c 2e 6d 61 74 | tthias.Koeppe..<mkoeppe@mail.mat |
| f0520 | 68 2e 75 6e 69 2d 6d 61 67 64 65 62 75 72 67 2e 64 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 | h.uni-magdeburg.de>"............ |
| f0540 | 20 22 54 6f 62 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 | ."Tobias.C..Rittweiler.<tcr@free |
| f0560 | 62 69 74 73 2e 64 65 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 | bits.de>")...(:license."GPL")... |
| f0580 | 28 3a 73 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 6c 69 6d 65 2d 70 61 72 73 65 | (:slime-dependencies.slime-parse |
| f05a0 | 20 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 63 6f 6d 6d 61 6e 64 73 20 73 6c 69 6d 65 2d 61 75 | .slime-editing-commands.slime-au |
| f05c0 | 74 6f 64 6f 63 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 | todoc)...(:swank-dependencies.sw |
| f05e0 | 61 6e 6b 2d 63 2d 70 2d 63 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 70 75 73 68 0a | ank-c-p-c)...(:on-load....(push. |
| f0600 | 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 | ....`(progn........(remove-hook. |
| f0620 | 27 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 | 'slime-completion-at-point-funct |
| f0640 | 69 6f 6e 73 0a 09 09 20 20 20 20 23 27 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 63 6f 6d 70 6c 65 74 | ions.......#'slime-c-p-c-complet |
| f0660 | 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f | ion-at-point)........(remove-hoo |
| f0680 | 6b 20 27 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 63 | k.'slime-connected-hook.'slime-c |
| f06a0 | 2d 70 2d 63 2d 6f 6e 2d 63 6f 6e 6e 65 63 74 29 0a 20 20 20 20 20 20 20 2c 40 28 77 68 65 6e 20 | -p-c-on-connect)........,@(when. |
| f06c0 | 28 66 65 61 74 75 72 65 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 20 20 20 20 20 20 20 20 20 | (featurep.'slime-repl).......... |
| f06e0 | 20 20 20 20 20 20 60 28 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d | ......`((define-key.slime-mode-m |
| f0700 | 61 70 20 22 5c 43 2d 63 5c 43 2d 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ap."\C-c\C-s"................... |
| f0720 | 20 27 2c 28 6c 6f 6f 6b 75 70 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 5c | .',(lookup-key.slime-mode-map."\ |
| f0740 | 43 2d 63 5c 43 2d 73 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 | C-c\C-s"))..................(def |
| f0760 | 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 5c 43 2d | ine-key.slime-repl-mode-map."\C- |
| f0780 | 63 5c 43 2d 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 28 6c 6f 6f | c\C-s"....................',(loo |
| f07a0 | 6b 75 70 2d 6b 65 79 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 5c 43 2d | kup-key.slime-repl-mode-map."\C- |
| f07c0 | 63 5c 43 2d 73 22 29 29 29 29 29 0a 20 20 20 20 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 69 6e 69 74 | c\C-s"))))).....slime-c-p-c-init |
| f07e0 | 2d 75 6e 64 6f 2d 73 74 61 63 6b 29 0a 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 | -undo-stack)....(add-hook.'slime |
| f0800 | 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 0a 09 | -completion-at-point-functions.. |
| f0820 | 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 | .....#'slime-c-p-c-completion-at |
| f0840 | 2d 70 6f 69 6e 74 29 0a 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 6f 64 | -point)....(define-key.slime-mod |
| f0860 | 65 2d 6d 61 70 20 22 5c 43 2d 63 5c 43 2d 73 22 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 | e-map."\C-c\C-s".'slime-complete |
| f0880 | 2d 66 6f 72 6d 29 0a 20 20 20 28 77 68 65 6e 20 28 66 65 61 74 75 72 65 70 20 27 73 6c 69 6d 65 | -form)....(when.(featurep.'slime |
| f08a0 | 2d 72 65 70 6c 29 0a 20 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 72 65 | -repl)......(define-key.slime-re |
| f08c0 | 70 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 5c 43 2d 63 5c 43 2d 73 22 20 27 73 6c 69 6d 65 2d 63 6f | pl-mode-map."\C-c\C-s".'slime-co |
| f08e0 | 6d 70 6c 65 74 65 2d 66 6f 72 6d 29 29 29 0a 20 20 28 3a 6f 6e 2d 75 6e 6c 6f 61 64 0a 20 20 20 | mplete-form)))...(:on-unload.... |
| f0900 | 28 77 68 69 6c 65 20 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 69 6e 69 74 2d 75 6e 64 6f 2d 73 74 61 | (while.slime-c-p-c-init-undo-sta |
| f0920 | 63 6b 0a 20 20 20 20 20 28 65 76 61 6c 20 28 70 6f 70 20 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 69 | ck......(eval.(pop.slime-c-p-c-i |
| f0940 | 6e 69 74 2d 75 6e 64 6f 2d 73 74 61 63 6b 29 29 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 | nit-undo-stack)))))..(defcustom. |
| f0960 | 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 75 6e 61 6d 62 69 67 75 6f 75 73 2d 70 72 65 66 69 78 2d 70 | slime-c-p-c-unambiguous-prefix-p |
| f0980 | 20 74 0a 20 20 22 49 66 20 74 72 75 65 2c 20 73 65 74 20 70 6f 69 6e 74 20 61 66 74 65 72 20 74 | .t..."If.true,.set.point.after.t |
| f09a0 | 68 65 20 75 6e 61 6d 62 69 67 6f 75 73 20 70 72 65 66 69 78 2e 0a 49 66 20 66 61 6c 73 65 2c 20 | he.unambigous.prefix..If.false,. |
| f09c0 | 6d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 69 6e 73 | move.point.to.the.end.of.the.ins |
| f09e0 | 65 72 74 65 64 20 74 65 78 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 | erted.text."...:type.'boolean... |
| f0a00 | 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 75 69 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c | :group.'slime-ui)..(defcustom.sl |
| f0a20 | 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2a 2d 66 61 6e 63 79 20 6e 69 6c 0a 20 | ime-complete-symbol*-fancy.nil.. |
| f0a40 | 20 22 55 73 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 72 6f 6d 20 61 72 67 75 6d 65 6e 74 20 | ."Use.information.from.argument. |
| f0a60 | 6c 69 73 74 73 20 66 6f 72 20 44 57 49 4d 27 69 73 68 20 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 | lists.for.DWIM'ish.symbol.comple |
| f0a80 | 74 69 6f 6e 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 0a 20 20 3a 74 | tion."...:group.'slime-mode...:t |
| f0aa0 | 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 0c 0a 3b 3b 20 46 49 58 4d 45 3a 20 74 68 69 73 20 | ype.'boolean)....;;.FIXME:.this. |
| f0ac0 | 69 73 20 74 68 65 20 6f 6c 64 20 63 6f 64 65 20 74 6f 20 64 69 73 70 6c 61 79 20 63 6f 6d 70 6c | is.the.old.code.to.display.compl |
| f0ae0 | 65 74 69 6f 6e 73 2e 20 20 52 65 6d 6f 76 65 20 69 74 20 6f 6e 63 65 0a 3b 3b 20 60 73 6c 69 6d | etions...Remove.it.once.;;.`slim |
| f0b00 | 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2a 27 20 61 6e 64 20 60 73 6c 69 6d 65 2d 66 | e-complete-symbol*'.and.`slime-f |
| f0b20 | 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 27 20 63 61 6e 20 62 65 0a 3b 3b 20 | uzzy-complete-symbol'.can.be.;;. |
| f0b40 | 75 73 65 64 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 60 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 | used.together.with.`completion-a |
| f0b60 | 74 2d 70 6f 69 6e 74 27 2e 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 | t-point'...(defvar.slime-complet |
| f0b80 | 69 6f 6e 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 22 2a 43 6f 6d 70 6c 65 74 69 6f 6e 73 2a 22 | ions-buffer-name."*Completions*" |
| f0ba0 | 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 63 61 6e 20 70 72 6f 62 61 62 6c 79 20 75 73 65 20 71 75 | )..;;.FIXME:.can.probably.use.qu |
| f0bc0 | 69 74 2d 77 69 6e 64 6f 77 20 69 6e 73 74 65 61 64 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 | it-window.instead.(make-variable |
| f0be0 | 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6d | -buffer-local..(defvar.slime-com |
| f0c00 | 70 6c 65 74 65 2d 73 61 76 65 64 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e | plete-saved-window-configuration |
| f0c20 | 20 6e 69 6c 0a 20 20 20 22 57 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 62 65 | .nil...."Window.configuration.be |
| f0c40 | 66 6f 72 65 20 77 65 20 73 68 6f 77 20 74 68 65 20 2a 43 6f 6d 70 6c 65 74 69 6f 6e 73 2a 20 62 | fore.we.show.the.*Completions*.b |
| f0c60 | 75 66 66 65 72 2e 0a 54 68 69 73 20 69 73 20 62 75 66 66 65 72 20 6c 6f 63 61 6c 20 69 6e 20 74 | uffer..This.is.buffer.local.in.t |
| f0c80 | 68 65 20 62 75 66 66 65 72 20 77 68 65 72 65 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 69 | he.buffer.where.the.completion.i |
| f0ca0 | 73 0a 70 65 72 66 6f 72 6d 65 64 2e 22 29 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d | s.performed."))..(make-variable- |
| f0cc0 | 62 75 66 66 65 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6d 70 | buffer-local..(defvar.slime-comp |
| f0ce0 | 6c 65 74 69 6f 6e 73 2d 77 69 6e 64 6f 77 20 6e 69 6c 0a 20 20 20 22 54 68 65 20 77 69 6e 64 6f | letions-window.nil...."The.windo |
| f0d00 | 77 20 64 69 73 70 6c 61 79 69 6e 67 20 2a 43 6f 6d 70 6c 65 74 69 6f 6e 73 2a 20 61 66 74 65 72 | w.displaying.*Completions*.after |
| f0d20 | 20 73 61 76 69 6e 67 20 77 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 0a 49 66 | .saving.window.configuration..If |
| f0d40 | 20 74 68 69 73 20 77 69 6e 64 6f 77 20 69 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 61 63 74 69 76 65 | .this.window.is.no.longer.active |
| f0d60 | 20 6f 72 20 64 69 73 70 6c 61 79 69 6e 67 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 0a 62 | .or.displaying.the.completions.b |
| f0d80 | 75 66 66 65 72 20 74 68 65 6e 20 77 65 20 63 61 6e 20 69 67 6e 6f 72 65 20 60 73 6c 69 6d 65 2d | uffer.then.we.can.ignore.`slime- |
| f0da0 | 63 6f 6d 70 6c 65 74 65 2d 73 61 76 65 64 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 | complete-saved-window-configurat |
| f0dc0 | 69 6f 6e 27 2e 22 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d | ion'."))..(defun.slime-complete- |
| f0de0 | 6d 61 79 62 65 2d 73 61 76 65 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 | maybe-save-window-configuration. |
| f0e00 | 28 29 0a 20 20 22 4d 61 79 62 65 20 73 61 76 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 77 69 6e | ()..."Maybe.save.the.current.win |
| f0e20 | 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 0a 52 65 74 75 72 6e 20 74 72 75 65 20 69 | dow.configuration..Return.true.i |
| f0e40 | 66 20 74 68 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 77 61 73 20 73 61 76 65 64 2e 22 0a | f.the.configuration.was.saved.". |
| f0e60 | 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 61 76 | ..(unless.(or.slime-complete-sav |
| f0e80 | 65 64 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | ed-window-configuration......... |
| f0ea0 | 20 20 20 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 73 6c 69 6d 65 2d 63 | ......(get-buffer-window.slime-c |
| f0ec0 | 6f 6d 70 6c 65 74 69 6f 6e 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 0a 20 20 20 20 28 73 65 | ompletions-buffer-name)).....(se |
| f0ee0 | 74 71 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 61 76 65 64 2d 77 69 6e 64 6f 77 2d 63 | tq.slime-complete-saved-window-c |
| f0f00 | 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d | onfiguration...........(current- |
| f0f20 | 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 29 0a 20 20 20 20 74 29 29 0a 0a | window-configuration)).....t)).. |
| f0f40 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 64 65 6c 61 79 2d 72 65 73 74 | (defun.slime-complete-delay-rest |
| f0f60 | 6f 72 61 74 69 6f 6e 20 28 29 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 70 72 65 2d 63 6f 6d 6d | oration.()...(add-hook.'pre-comm |
| f0f80 | 61 6e 64 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 | and-hook.............'slime-comp |
| f0fa0 | 6c 65 74 65 2d 6d 61 79 62 65 2d 72 65 73 74 6f 72 65 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 | lete-maybe-restore-window-config |
| f0fc0 | 75 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 61 70 70 65 6e 64 0a 20 20 20 20 | uration.............'append..... |
| f0fe0 | 20 20 20 20 20 20 20 20 27 6c 6f 63 61 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 | ........'local))..(defun.slime-c |
| f1000 | 6f 6d 70 6c 65 74 65 2d 66 6f 72 67 65 74 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 | omplete-forget-window-configurat |
| f1020 | 69 6f 6e 20 28 29 0a 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 61 | ion.()...(setq.slime-complete-sa |
| f1040 | 76 65 64 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6e 69 6c 29 0a 20 20 | ved-window-configuration.nil)... |
| f1060 | 28 73 65 74 71 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 77 69 6e 64 6f 77 20 6e | (setq.slime-completions-window.n |
| f1080 | 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 72 65 73 74 | il))..(defun.slime-complete-rest |
| f10a0 | 6f 72 65 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 28 29 0a 20 20 22 52 | ore-window-configuration.()..."R |
| f10c0 | 65 73 74 6f 72 65 20 74 68 65 20 77 69 6e 64 6f 77 20 63 6f 6e 66 69 67 20 69 66 20 61 76 61 69 | estore.the.window.config.if.avai |
| f10e0 | 6c 61 62 6c 65 2e 22 0a 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 70 72 65 2d 63 6f 6d 6d | lable."...(remove-hook.'pre-comm |
| f1100 | 61 6e 64 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 63 | and-hook................'slime-c |
| f1120 | 6f 6d 70 6c 65 74 65 2d 6d 61 79 62 65 2d 72 65 73 74 6f 72 65 2d 77 69 6e 64 6f 77 2d 63 6f 6e | omplete-maybe-restore-window-con |
| f1140 | 66 69 67 75 72 61 74 69 6f 6e 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 73 6c 69 6d 65 2d 63 | figuration)...(when.(and.slime-c |
| f1160 | 6f 6d 70 6c 65 74 65 2d 73 61 76 65 64 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 | omplete-saved-window-configurati |
| f1180 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f | on..............(slime-completio |
| f11a0 | 6e 2d 77 69 6e 64 6f 77 2d 61 63 74 69 76 65 2d 70 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 | n-window-active-p)).....(save-ex |
| f11c0 | 63 75 72 73 69 6f 6e 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f | cursion.(set-window-configuratio |
| f11e0 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f 6d | n......................slime-com |
| f1200 | 70 6c 65 74 65 2d 73 61 76 65 64 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e | plete-saved-window-configuration |
| f1220 | 29 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 61 76 65 | )).....(setq.slime-complete-save |
| f1240 | 64 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6e 69 6c 29 0a 20 20 20 20 | d-window-configuration.nil)..... |
| f1260 | 28 77 68 65 6e 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c | (when.(buffer-live-p.slime-compl |
| f1280 | 65 74 69 6f 6e 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 6b 69 6c 6c 2d | etions-buffer-name).......(kill- |
| f12a0 | 62 75 66 66 65 72 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 62 75 66 66 65 72 2d | buffer.slime-completions-buffer- |
| f12c0 | 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d | name))))..(defun.slime-complete- |
| f12e0 | 6d 61 79 62 65 2d 72 65 73 74 6f 72 65 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 | maybe-restore-window-configurati |
| f1300 | 6f 6e 20 28 29 0a 20 20 22 52 65 73 74 6f 72 65 20 74 68 65 20 77 69 6e 64 6f 77 20 63 6f 6e 66 | on.()..."Restore.the.window.conf |
| f1320 | 69 67 75 72 61 74 69 6f 6e 2c 20 69 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d | iguration,.if.the.following.comm |
| f1340 | 61 6e 64 0a 74 65 72 6d 69 6e 61 74 65 73 20 61 20 63 75 72 72 65 6e 74 20 63 6f 6d 70 6c 65 74 | and.terminates.a.current.complet |
| f1360 | 69 6f 6e 2e 22 0a 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 70 72 65 2d 63 6f 6d 6d 61 6e | ion."...(remove-hook.'pre-comman |
| f1380 | 64 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 63 6f 6d | d-hook................'slime-com |
| f13a0 | 70 6c 65 74 65 2d 6d 61 79 62 65 2d 72 65 73 74 6f 72 65 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 | plete-maybe-restore-window-confi |
| f13c0 | 67 75 72 61 74 69 6f 6e 29 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 65 72 72 0a | guration)...(condition-case.err. |
| f13e0 | 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 63 6c 2d 66 69 6e 64 20 6c 61 73 74 2d 63 6f 6d 6d 61 | ......(cond.((cl-find.last-comma |
| f1400 | 6e 64 2d 65 76 65 6e 74 20 22 28 29 5c 22 27 60 2c 23 20 5c 72 5c 6e 3a 22 29 0a 20 20 20 20 20 | nd-event."()\"'`,#.\r\n:")...... |
| f1420 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 72 65 73 74 6f 72 65 2d | ........(slime-complete-restore- |
| f1440 | 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 | window-configuration)).......... |
| f1460 | 20 20 20 28 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 77 69 6e 64 6f | ...((not.(slime-completion-windo |
| f1480 | 77 2d 61 63 74 69 76 65 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | w-active-p))..............(slime |
| f14a0 | 2d 63 6f 6d 70 6c 65 74 65 2d 66 6f 72 67 65 74 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 | -complete-forget-window-configur |
| f14c0 | 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 | ation)).............(t.......... |
| f14e0 | 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 64 65 6c 61 79 2d 72 65 73 74 6f 72 | ....(slime-complete-delay-restor |
| f1500 | 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 65 72 72 6f 72 0a 20 20 20 20 20 3b 3b 20 42 65 63 61 | ation))).....(error......;;.Beca |
| f1520 | 75 73 65 20 74 68 69 73 20 69 73 20 63 61 6c 6c 65 64 20 6f 6e 20 74 68 65 20 70 72 65 2d 63 6f | use.this.is.called.on.the.pre-co |
| f1540 | 6d 6d 61 6e 64 2d 68 6f 6f 6b 2c 20 77 65 20 6d 75 73 74 6e 27 74 20 6c 65 74 0a 20 20 20 20 20 | mmand-hook,.we.mustn't.let...... |
| f1560 | 3b 3b 20 65 72 72 6f 72 73 20 70 72 6f 70 61 67 61 74 65 2e 0a 20 20 20 20 20 28 6d 65 73 73 61 | ;;.errors.propagate.......(messa |
| f1580 | 67 65 20 22 45 72 72 6f 72 20 69 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 72 65 73 74 | ge."Error.in.slime-complete-rest |
| f15a0 | 6f 72 65 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 3a 20 25 53 22 0a 20 20 | ore-window-configuration:.%S"... |
| f15c0 | 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | ............err))))..(defun.slim |
| f15e0 | 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 77 69 6e 64 6f 77 2d 61 63 74 69 76 65 2d 70 20 28 29 0a | e-completion-window-active-p.(). |
| f1600 | 20 20 22 49 73 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 77 69 6e 64 6f 77 20 63 75 72 72 | .."Is.the.completion.window.curr |
| f1620 | 65 6e 74 6c 79 20 61 63 74 69 76 65 3f 22 0a 20 20 28 61 6e 64 20 28 77 69 6e 64 6f 77 2d 6c 69 | ently.active?"...(and.(window-li |
| f1640 | 76 65 2d 70 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 77 69 6e 64 6f 77 29 0a 20 | ve-p.slime-completions-window).. |
| f1660 | 20 20 20 20 20 20 28 65 71 75 61 6c 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 77 69 6e 64 6f | ......(equal.(buffer-name.(windo |
| f1680 | 77 2d 62 75 66 66 65 72 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 77 69 6e 64 6f | w-buffer.slime-completions-windo |
| f16a0 | 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 | w))...............slime-completi |
| f16c0 | 6f 6e 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | ons-buffer-name)))..(defun.slime |
| f16e0 | 2d 64 69 73 70 6c 61 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6c 69 73 74 20 28 63 6f 6d 70 6c 65 | -display-completion-list.(comple |
| f1700 | 74 69 6f 6e 73 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 6c 65 74 20 28 28 73 61 76 65 64 70 | tions.start.end)...(let.((savedp |
| f1720 | 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 6d 61 79 62 65 2d 73 61 76 65 2d 77 69 6e 64 | .(slime-complete-maybe-save-wind |
| f1740 | 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 6f 75 | ow-configuration))).....(with-ou |
| f1760 | 74 70 75 74 2d 74 6f 2d 74 65 6d 70 2d 62 75 66 66 65 72 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 | tput-to-temp-buffer.slime-comple |
| f1780 | 74 69 6f 6e 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 0a 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 | tions-buffer-name.......(display |
| f17a0 | 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6c 69 73 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 0a 20 20 | -completion-list.completions)... |
| f17c0 | 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 73 74 61 6e 64 61 72 | ....(with-current-buffer.standar |
| f17e0 | 64 2d 6f 75 74 70 75 74 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6d 70 6c 65 74 69 6f | d-output.........(setq.completio |
| f1800 | 6e 2d 62 61 73 65 2d 70 6f 73 69 74 69 6f 6e 20 28 6c 69 73 74 20 73 74 61 72 74 20 65 6e 64 29 | n-base-position.(list.start.end) |
| f1820 | 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 69 73 70 | ).........(set-syntax-table.lisp |
| f1840 | 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 | -mode-syntax-table))).....(when. |
| f1860 | 73 61 76 65 64 70 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 | savedp.......(setq.slime-complet |
| f1880 | 69 6f 6e 73 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 62 75 66 | ions-window.............(get-buf |
| f18a0 | 66 65 72 2d 77 69 6e 64 6f 77 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 62 75 66 | fer-window.slime-completions-buf |
| f18c0 | 66 65 72 2d 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 69 73 70 | fer-name)))))..(defun.slime-disp |
| f18e0 | 6c 61 79 2d 6f 72 2d 73 63 72 6f 6c 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 63 6f 6d 70 6c | lay-or-scroll-completions.(compl |
| f1900 | 65 74 69 6f 6e 73 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 | etions.start.end)...(cond.((and. |
| f1920 | 28 65 71 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 29 0a 20 | (eq.last-command.this-command).. |
| f1940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 77 | .............(slime-completion-w |
| f1960 | 69 6e 64 6f 77 2d 61 63 74 69 76 65 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | indow-active-p))..........(slime |
| f1980 | 2d 73 63 72 6f 6c 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 28 74 | -scroll-completions)).........(t |
| f19a0 | 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 69 73 70 6c 61 79 2d 63 6f 6d 70 6c 65 74 | ..........(slime-display-complet |
| f19c0 | 69 6f 6e 2d 6c 69 73 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 73 74 61 72 74 20 65 6e 64 29 29 | ion-list.completions.start.end)) |
| f19e0 | 29 0a 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 64 65 6c 61 79 2d 72 65 73 74 6f 72 | )...(slime-complete-delay-restor |
| f1a00 | 61 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 63 72 6f 6c 6c 2d 63 6f 6d | ation))..(defun.slime-scroll-com |
| f1a20 | 70 6c 65 74 69 6f 6e 73 20 28 29 0a 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 73 6c 69 6d | pletions.()...(let.((window.slim |
| f1a40 | 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 28 77 69 74 68 | e-completions-window)).....(with |
| f1a60 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 | -current-buffer.(window-buffer.w |
| f1a80 | 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 28 69 66 20 28 70 6f 73 2d 76 69 73 69 62 6c 65 2d 69 6e | indow).......(if.(pos-visible-in |
| f1aa0 | 2d 77 69 6e 64 6f 77 2d 70 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 77 69 6e 64 6f 77 29 0a 20 20 | -window-p.(point-max).window)... |
| f1ac0 | 20 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 77 69 6e 64 6f 77 | ........(set-window-start.window |
| f1ae0 | 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 73 65 6c 65 | .(point-min)).........(save-sele |
| f1b00 | 63 74 65 64 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 | cted-window...........(select-wi |
| f1b20 | 6e 64 6f 77 20 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 63 72 6f 6c 6c 2d 75 | ndow.window)...........(scroll-u |
| f1b40 | 70 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 69 6e 69 62 75 66 66 65 72 | p))))))..(defun.slime-minibuffer |
| f1b60 | 2d 72 65 73 70 65 63 74 69 6e 67 2d 6d 65 73 73 61 67 65 20 28 66 6f 72 6d 61 74 20 26 72 65 73 | -respecting-message.(format.&res |
| f1b80 | 74 20 66 6f 72 6d 61 74 2d 61 72 67 73 29 0a 20 20 22 44 69 73 70 6c 61 79 20 54 45 58 54 20 61 | t.format-args)..."Display.TEXT.a |
| f1ba0 | 73 20 61 20 6d 65 73 73 61 67 65 2c 20 77 69 74 68 6f 75 74 20 68 69 64 69 6e 67 20 61 6e 79 20 | s.a.message,.without.hiding.any. |
| f1bc0 | 6d 69 6e 69 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 74 | minibuffer.contents."...(let.((t |
| f1be0 | 65 78 74 20 28 66 6f 72 6d 61 74 20 22 20 5b 25 73 5d 22 20 28 61 70 70 6c 79 20 23 27 66 6f 72 | ext.(format.".[%s]".(apply.#'for |
| f1c00 | 6d 61 74 20 66 6f 72 6d 61 74 20 66 6f 72 6d 61 74 2d 61 72 67 73 29 29 29 29 0a 20 20 20 20 28 | mat.format.format-args)))).....( |
| f1c20 | 69 66 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 2d 61 63 74 69 76 65 2d 70 20 28 | if.(minibuffer-window-active-p.( |
| f1c40 | 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 28 6d 69 6e | minibuffer-window)).........(min |
| f1c60 | 69 62 75 66 66 65 72 2d 6d 65 73 73 61 67 65 20 74 65 78 74 29 0a 20 20 20 20 20 20 28 6d 65 73 | ibuffer-message.text).......(mes |
| f1c80 | 73 61 67 65 20 22 25 73 22 20 74 65 78 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | sage."%s".text))))..(defun.slime |
| f1ca0 | 2d 6d 61 79 62 65 2d 63 6f 6d 70 6c 65 74 65 2d 61 73 2d 66 69 6c 65 6e 61 6d 65 20 28 29 0a 20 | -maybe-complete-as-filename.().. |
| f1cc0 | 20 20 22 49 66 20 70 6f 69 6e 74 20 69 73 20 61 74 20 61 20 73 74 72 69 6e 67 20 73 74 61 72 74 | .."If.point.is.at.a.string.start |
| f1ce0 | 69 6e 67 20 77 69 74 68 20 5c 22 2c 20 63 6f 6d 70 6c 65 74 65 20 69 74 20 61 73 20 66 69 6c 65 | ing.with.\",.complete.it.as.file |
| f1d00 | 6e 61 6d 65 2e 0a 20 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 70 6f 69 6e 74 20 69 73 20 6e 6f | name...Return.nil.if.point.is.no |
| f1d20 | 74 20 61 74 20 66 69 6c 65 6e 61 6d 65 2e 22 0a 20 20 20 28 77 68 65 6e 20 28 73 61 76 65 2d 65 | t.at.filename."....(when.(save-e |
| f1d40 | 78 63 75 72 73 69 6f 6e 20 28 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5c 22 | xcursion.(re-search-backward."\" |
| f1d60 | 5b 5e 20 5c 74 5c 6e 5d 2b 5c 5c 3d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | [^.\t\n]+\\="................... |
| f1d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 78 20 28 | ..........................(max.( |
| f1da0 | 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | point-min)...................... |
| f1dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 | ............................(-.( |
| f1de0 | 70 6f 69 6e 74 29 20 31 30 30 30 29 29 20 74 29 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f | point).1000)).t))......(let.((co |
| f1e00 | 6d 69 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 64 64 73 75 66 66 69 78 20 27 28 22 2f 22 20 | mint-completion-addsuffix.'("/". |
| f1e20 | 2e 20 22 5c 22 22 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6d 69 6e 74 2d 72 65 70 6c 61 63 65 2d | .."\""))).......(comint-replace- |
| f1e40 | 62 79 2d 65 78 70 61 6e 64 65 64 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 74 29 29 29 | by-expanded-filename).......t))) |
| f1e60 | 0a 0a 0c 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c | ....(defun.slime-complete-symbol |
| f1e80 | 2a 20 28 29 0a 20 20 22 45 78 70 61 6e 64 20 61 62 62 72 65 76 69 61 74 69 6f 6e 73 20 61 6e 64 | *.()..."Expand.abbreviations.and |
| f1ea0 | 20 63 6f 6d 70 6c 65 74 65 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 22 0a | .complete.the.symbol.at.point.". |
| f1ec0 | 20 20 3b 3b 20 4e 42 3a 20 49 74 20 69 73 20 6f 6e 6c 79 20 74 68 65 20 6e 61 6d 65 20 70 61 72 | ..;;.NB:.It.is.only.the.name.par |
| f1ee0 | 74 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 74 68 61 74 20 77 65 20 61 63 74 75 61 6c 6c 79 | t.of.the.symbol.that.we.actually |
| f1f00 | 20 77 61 6e 74 0a 20 20 3b 3b 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 2d 2d 20 74 68 65 20 70 61 | .want...;;.to.complete.--.the.pa |
| f1f20 | 63 6b 61 67 65 20 70 72 65 66 69 78 2c 20 69 66 20 67 69 76 65 6e 2c 20 69 73 20 6a 75 73 74 20 | ckage.prefix,.if.given,.is.just. |
| f1f40 | 63 6f 6e 74 65 78 74 2e 0a 20 20 28 6f 72 20 28 73 6c 69 6d 65 2d 6d 61 79 62 65 2d 63 6f 6d 70 | context....(or.(slime-maybe-comp |
| f1f60 | 6c 65 74 65 2d 61 73 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 | lete-as-filename).......(slime-e |
| f1f80 | 78 70 61 6e 64 2d 61 62 62 72 65 76 69 61 74 69 6f 6e 73 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 | xpand-abbreviations-and-complete |
| f1fa0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 63 6f 6d 70 6c 65 74 69 | )))..(defun.slime-c-p-c-completi |
| f1fc0 | 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 23 27 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 | on-at-point.()...#'slime-complet |
| f1fe0 | 65 2d 73 79 6d 62 6f 6c 2a 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 66 61 63 74 6f 72 69 7a 65 0a | e-symbol*)..;;.FIXME:.factorize. |
| f2000 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 61 62 62 72 65 76 69 61 74 69 6f 6e | (defun.slime-expand-abbreviation |
| f2020 | 73 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 20 28 29 0a 20 20 28 6c 65 74 2a 20 28 28 65 6e 64 20 | s-and-complete.()...(let*.((end. |
| f2040 | 28 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 20 28 73 6c 69 6d | (move-marker.(make-marker).(slim |
| f2060 | 65 2d 73 79 6d 62 6f 6c 2d 65 6e 64 2d 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 65 | e-symbol-end-pos)))..........(be |
| f2080 | 67 20 28 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 20 28 73 6c | g.(move-marker.(make-marker).(sl |
| f20a0 | 69 6d 65 2d 73 79 6d 62 6f 6c 2d 73 74 61 72 74 2d 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 | ime-symbol-start-pos)))......... |
| f20c0 | 20 28 70 72 65 66 69 78 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 | .(prefix.(buffer-substring-no-pr |
| f20e0 | 6f 70 65 72 74 69 65 73 20 62 65 67 20 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6d | operties.beg.end))..........(com |
| f2100 | 70 6c 65 74 69 6f 6e 2d 72 65 73 75 6c 74 20 28 73 6c 69 6d 65 2d 63 6f 6e 74 65 78 74 75 61 6c | pletion-result.(slime-contextual |
| f2120 | 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 62 65 67 20 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 | -completions.beg.end)).......... |
| f2140 | 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 28 63 6c 2d 66 69 72 73 74 20 63 6f 6d 70 6c 65 | (completion-set.(cl-first.comple |
| f2160 | 74 69 6f 6e 2d 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 65 | tion-result))..........(complete |
| f2180 | 64 2d 70 72 65 66 69 78 20 28 63 6c 2d 73 65 63 6f 6e 64 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 72 | d-prefix.(cl-second.completion-r |
| f21a0 | 65 73 75 6c 74 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 63 6f 6d 70 6c 65 74 69 6f | esult))).....(if.(null.completio |
| f21c0 | 6e 2d 73 65 74 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 73 6c 69 6d 65 2d 6d 69 6e | n-set).........(progn.(slime-min |
| f21e0 | 69 62 75 66 66 65 72 2d 72 65 73 70 65 63 74 69 6e 67 2d 6d 65 73 73 61 67 65 0a 20 20 20 20 20 | ibuffer-respecting-message...... |
| f2200 | 20 20 20 20 20 20 20 20 20 20 20 22 43 61 6e 27 74 20 66 69 6e 64 20 63 6f 6d 70 6c 65 74 69 6f | ..........."Can't.find.completio |
| f2220 | 6e 20 66 6f 72 20 5c 22 25 73 5c 22 22 20 70 72 65 66 69 78 29 0a 20 20 20 20 20 20 20 20 20 20 | n.for.\"%s\"".prefix)........... |
| f2240 | 20 20 20 20 20 28 64 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | .....(ding)................(slim |
| f2260 | 65 2d 63 6f 6d 70 6c 65 74 65 2d 72 65 73 74 6f 72 65 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 | e-complete-restore-window-config |
| f2280 | 75 72 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 3b 3b 20 73 6f 6d 65 20 58 45 6d 61 63 73 20 69 | uration)).......;;.some.XEmacs.i |
| f22a0 | 73 73 75 65 20 6d 61 6b 65 73 20 74 68 69 73 20 64 69 73 74 69 6e 63 74 69 6f 6e 20 6e 65 63 65 | ssue.makes.this.distinction.nece |
| f22c0 | 73 73 61 72 79 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3e 20 28 6c 65 6e 67 74 68 20 63 6f | ssary.......(cond.((>.(length.co |
| f22e0 | 6d 70 6c 65 74 65 64 2d 70 72 65 66 69 78 29 20 28 2d 20 65 6e 64 20 62 65 67 29 29 0a 09 20 20 | mpleted-prefix).(-.end.beg)).... |
| f2300 | 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 65 6e 64 29 0a 09 20 20 20 20 20 28 69 6e 73 65 72 74 | ...(goto-char.end).......(insert |
| f2320 | 2d 61 6e 64 2d 69 6e 68 65 72 69 74 20 63 6f 6d 70 6c 65 74 65 64 2d 70 72 65 66 69 78 29 0a 09 | -and-inherit.completed-prefix).. |
| f2340 | 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 62 65 67 20 65 6e 64 29 0a 09 20 20 | .....(delete-region.beg.end).... |
| f2360 | 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 2b 20 62 65 67 20 28 6c 65 6e 67 74 68 20 63 6f 6d | ...(goto-char.(+.beg.(length.com |
| f2380 | 70 6c 65 74 65 64 2d 70 72 65 66 69 78 29 29 29 29 0a 09 20 20 20 20 28 74 20 6e 69 6c 29 29 0a | pleted-prefix))))......(t.nil)). |
| f23a0 | 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 6d 65 6d 62 65 72 20 63 6f 6d 70 6c 65 | ......(cond.((and.(member.comple |
| f23c0 | 74 65 64 2d 70 72 65 66 69 78 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 29 0a 20 20 20 20 20 | ted-prefix.completion-set)...... |
| f23e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 65 6e 67 74 68 3d 20 63 6f 6d 70 | .............(slime-length=.comp |
| f2400 | 6c 65 74 69 6f 6e 2d 73 65 74 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | letion-set.1))..............(sli |
| f2420 | 6d 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 72 65 73 70 65 63 74 69 6e 67 2d 6d 65 73 73 61 67 65 | me-minibuffer-respecting-message |
| f2440 | 20 22 53 6f 6c 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ."Sole.completion")............. |
| f2460 | 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2a 2d 66 61 | .(when.slime-complete-symbol*-fa |
| f2480 | 6e 63 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 | ncy................(slime-comple |
| f24a0 | 74 65 2d 73 79 6d 62 6f 6c 2a 2d 66 61 6e 63 79 2d 62 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 | te-symbol*-fancy-bit)).......... |
| f24c0 | 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 72 65 73 74 6f 72 65 2d 77 69 6e 64 | ....(slime-complete-restore-wind |
| f24e0 | 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b | ow-configuration)).............; |
| f2500 | 3b 20 49 6e 63 6f 6d 70 6c 65 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 | ;.Incomplete.............(t..... |
| f2520 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 65 6d 62 65 72 20 63 6f 6d 70 6c 65 74 65 64 | .........(when.(member.completed |
| f2540 | 2d 70 72 65 66 69 78 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 29 0a 20 20 20 20 20 20 20 20 | -prefix.completion-set)......... |
| f2560 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 72 65 73 70 65 63 74 | .......(slime-minibuffer-respect |
| f2580 | 69 6e 67 2d 6d 65 73 73 61 67 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 43 6f | ing-message.................."Co |
| f25a0 | 6d 70 6c 65 74 65 20 62 75 74 20 6e 6f 74 20 75 6e 69 71 75 65 22 29 29 0a 09 20 20 20 20 20 28 | mplete.but.not.unique")).......( |
| f25c0 | 77 68 65 6e 20 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 75 6e 61 6d 62 69 67 75 6f 75 73 2d 70 72 65 | when.slime-c-p-c-unambiguous-pre |
| f25e0 | 66 69 78 2d 70 0a 09 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 75 6e 61 6d 62 69 67 75 6f 75 73 | fix-p.........(let.((unambiguous |
| f2600 | 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6c 65 6e 67 74 68 0a 09 09 20 20 20 20 20 20 28 63 6c 2d 6c | -completion-length.........(cl-l |
| f2620 | 6f 6f 70 20 66 6f 72 20 63 20 69 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 0a 09 09 09 20 | oop.for.c.in.completion-set..... |
| f2640 | 20 20 20 20 20 20 6d 69 6e 69 6d 69 7a 69 6e 67 20 28 6f 72 20 28 63 6c 2d 6d 69 73 6d 61 74 63 | ......minimizing.(or.(cl-mismatc |
| f2660 | 68 20 63 6f 6d 70 6c 65 74 65 64 2d 70 72 65 66 69 78 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 | h.completed-prefix.c)........... |
| f2680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| f26a0 | 20 20 20 20 28 6c 65 6e 67 74 68 20 63 6f 6d 70 6c 65 74 65 64 2d 70 72 65 66 69 78 29 29 29 29 | ....(length.completed-prefix)))) |
| f26c0 | 29 0a 09 09 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 2b 20 62 65 67 20 75 6e 61 6d 62 69 67 75 6f | )....(goto-char.(+.beg.unambiguo |
| f26e0 | 75 73 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6c 65 6e 67 74 68 29 29 29 29 0a 20 20 20 20 20 20 20 | us-completion-length))))........ |
| f2700 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 69 73 70 6c 61 79 2d 6f 72 2d 73 63 72 6f 6c 6c 2d 63 | ......(slime-display-or-scroll-c |
| f2720 | 6f 6d 70 6c 65 74 69 6f 6e 73 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 0a 20 20 20 20 20 20 | ompletions.completion-set....... |
| f2740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| f2760 | 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............beg................. |
| f2780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| f27a0 | 20 20 28 6d 61 78 20 28 70 6f 69 6e 74 29 20 65 6e 64 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 | ..(max.(point).end)))))))..(defu |
| f27c0 | 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2a 2d 66 61 6e 63 79 2d 62 | n.slime-complete-symbol*-fancy-b |
| f27e0 | 69 74 20 28 29 0a 20 20 22 44 6f 20 66 61 6e 63 79 20 74 72 69 63 6b 73 20 61 66 74 65 72 20 63 | it.()..."Do.fancy.tricks.after.c |
| f2800 | 6f 6d 70 6c 65 74 69 6e 67 20 61 20 73 79 6d 62 6f 6c 2e 0a 5c 28 49 6e 73 65 72 74 20 61 20 73 | ompleting.a.symbol..\(Insert.a.s |
| f2820 | 70 61 63 65 20 6f 72 20 63 6c 6f 73 65 2d 70 61 72 65 6e 20 62 61 73 65 64 20 6f 6e 20 61 72 67 | pace.or.close-paren.based.on.arg |
| f2840 | 6c 69 73 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 29 22 0a 20 20 28 6c 65 74 20 28 28 61 72 67 | list.information.)"...(let.((arg |
| f2860 | 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 74 72 69 65 76 65 2d 61 72 67 6c 69 73 74 20 28 73 6c | list.(slime-retrieve-arglist.(sl |
| f2880 | 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 28 75 6e 6c | ime-symbol-at-point)))).....(unl |
| f28a0 | 65 73 73 20 28 65 71 20 61 72 67 6c 69 73 74 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 0a | ess.(eq.arglist.:not-available). |
| f28c0 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | ......(let.((args..............; |
| f28e0 | 3b 20 44 6f 6e 27 74 20 69 6e 74 65 72 6e 20 74 68 65 73 65 20 73 79 6d 62 6f 6c 73 0a 20 20 20 | ;.Don't.intern.these.symbols.... |
| f2900 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 62 61 72 72 61 79 20 28 6d 61 6b 65 2d 76 | ..........(let.((obarray.(make-v |
| f2920 | 65 63 74 6f 72 20 31 30 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 | ector.10.0)))................(cd |
| f2940 | 72 20 28 72 65 61 64 20 61 72 67 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | r.(read.arglist))))............. |
| f2960 | 28 66 75 6e 63 74 69 6f 6e 2d 63 61 6c 6c 2d 70 6f 73 69 74 69 6f 6e 2d 70 0a 20 20 20 20 20 20 | (function-call-position-p....... |
| f2980 | 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | .......(save-excursion.......... |
| f29a0 | 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 | ......(backward-sexp)........... |
| f29c0 | 20 20 20 20 20 28 65 71 75 61 6c 20 28 63 68 61 72 2d 62 65 66 6f 72 65 29 20 3f 5c 28 29 29 29 | .....(equal.(char-before).?\())) |
| f29e0 | 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 66 75 6e 63 74 69 6f 6e 2d 63 61 6c 6c 2d 70 6f | ).........(when.function-call-po |
| f2a00 | 73 69 74 69 6f 6e 2d 70 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 61 72 67 | sition-p...........(if.(null.arg |
| f2a20 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 65 63 75 74 65 2d 6b 62 64 2d 6d 61 | s)...............(execute-kbd-ma |
| f2a40 | 63 72 6f 20 22 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 65 63 75 74 65 2d | cro.")")...............(execute- |
| f2a60 | 6b 62 64 2d 6d 61 63 72 6f 20 22 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | kbd-macro.".")...............(wh |
| f2a80 | 65 6e 20 28 61 6e 64 20 28 73 6c 69 6d 65 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 61 63 74 69 76 69 | en.(and.(slime-background-activi |
| f2aa0 | 74 69 65 73 2d 65 6e 61 62 6c 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ties-enabled-p)................. |
| f2ac0 | 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 | .........(not.(minibuffer-window |
| f2ae0 | 2d 61 63 74 69 76 65 2d 70 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 29 29 | -active-p.(minibuffer-window)))) |
| f2b00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 63 68 6f 2d 61 72 67 | .................(slime-echo-arg |
| f2b20 | 6c 69 73 74 29 29 29 29 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f | list))))))))..(cl-defun.slime-co |
| f2b40 | 6e 74 65 78 74 75 61 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 62 65 67 20 65 6e 64 29 0a 20 | ntextual-completions.(beg.end).. |
| f2b60 | 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 6f | ."Return.a.list.of.completions.o |
| f2b80 | 66 20 74 68 65 20 74 6f 6b 65 6e 20 66 72 6f 6d 20 42 45 47 20 74 6f 20 45 4e 44 20 69 6e 20 74 | f.the.token.from.BEG.to.END.in.t |
| f2ba0 | 68 65 0a 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 74 6f 6b | he.current.buffer."...(let.((tok |
| f2bc0 | 65 6e 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 | en.(buffer-substring-no-properti |
| f2be0 | 65 73 20 62 65 67 20 65 6e 64 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 28 28 61 | es.beg.end))).....(cond......((a |
| f2c00 | 6e 64 20 28 3c 20 62 65 67 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 | nd.(<.beg.(point-max)).......... |
| f2c20 | 20 20 28 73 74 72 69 6e 67 3d 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d | ..(string=.(buffer-substring-no- |
| f2c40 | 70 72 6f 70 65 72 74 69 65 73 20 62 65 67 20 28 31 2b 20 62 65 67 29 29 20 22 3a 22 29 29 0a 20 | properties.beg.(1+.beg)).":")).. |
| f2c60 | 20 20 20 20 20 3b 3b 20 43 6f 6e 74 65 78 74 75 61 6c 20 6b 65 79 77 6f 72 64 20 63 6f 6d 70 6c | .....;;.Contextual.keyword.compl |
| f2c80 | 65 74 69 6f 6e 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 0a | etion.......(let.((completions.. |
| f2ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d | .............(slime-completions- |
| f2cc0 | 66 6f 72 2d 6b 65 79 77 6f 72 64 20 74 6f 6b 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | for-keyword.token............... |
| f2ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ..............................(s |
| f2d00 | 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ave-excursion................... |
| f2d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f | .............................(go |
| f2d40 | 74 6f 2d 63 68 61 72 20 62 65 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | to-char.beg).................... |
| f2d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | ...........................(slim |
| f2d80 | 65 2d 70 61 72 73 65 2d 66 6f 72 6d 2d 75 70 74 6f 2d 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 20 | e-parse-form-upto-point))))).... |
| f2da0 | 20 20 20 20 20 28 77 68 65 6e 20 28 63 6c 2d 66 69 72 73 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 | .....(when.(cl-first.completions |
| f2dc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 20 73 6c 69 6d | )...........(cl-return-from.slim |
| f2de0 | 65 2d 63 6f 6e 74 65 78 74 75 61 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 63 6f 6d 70 6c 65 74 | e-contextual-completions.complet |
| f2e00 | 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 6e 6f 20 6d 61 74 63 68 69 6e 67 | ions)).........;;.If.no.matching |
| f2e20 | 20 6b 65 79 77 6f 72 64 20 77 61 73 20 66 6f 75 6e 64 2c 20 64 6f 20 72 65 67 75 6c 61 72 20 73 | .keyword.was.found,.do.regular.s |
| f2e40 | 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 0a 20 20 20 | ymbol.........;;.completion..... |
| f2e60 | 20 20 20 20 20 29 29 0a 20 20 20 20 20 28 28 61 6e 64 20 28 3e 3d 20 28 6c 65 6e 67 74 68 20 74 | .....))......((and.(>=.(length.t |
| f2e80 | 6f 6b 65 6e 29 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3d 20 28 63 6c | oken).2)............(string=.(cl |
| f2ea0 | 2d 73 75 62 73 65 71 20 74 6f 6b 65 6e 20 30 20 32 29 20 22 23 5c 5c 22 29 29 0a 20 20 20 20 20 | -subseq.token.0.2)."#\\"))...... |
| f2ec0 | 20 3b 3b 20 43 68 61 72 61 63 74 65 72 20 6e 61 6d 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 | .;;.Character.name.completion... |
| f2ee0 | 20 20 20 20 28 63 6c 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 20 73 6c 69 6d 65 2d 63 6f 6e 74 65 78 | ....(cl-return-from.slime-contex |
| f2f00 | 74 75 61 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | tual-completions.........(slime- |
| f2f20 | 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 66 6f 72 2d 63 68 61 72 61 63 74 65 72 20 74 6f 6b 65 6e 29 | completions-for-character.token) |
| f2f40 | 29 29 29 0a 20 20 20 20 3b 3b 20 52 65 67 75 6c 61 72 20 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 | ))).....;;.Regular.symbol.comple |
| f2f60 | 74 69 6f 6e 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 74 6f 6b 65 | tion.....(slime-completions.toke |
| f2f80 | 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 | n)))..(defun.slime-completions.( |
| f2fa0 | 70 72 65 66 69 78 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 63 6f | prefix)...(slime-eval.`(swank:co |
| f2fc0 | 6d 70 6c 65 74 69 6f 6e 73 20 2c 70 72 65 66 69 78 20 27 2c 28 73 6c 69 6d 65 2d 63 75 72 72 65 | mpletions.,prefix.',(slime-curre |
| f2fe0 | 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d | nt-package))))..(defun.slime-com |
| f3000 | 70 6c 65 74 69 6f 6e 73 2d 66 6f 72 2d 6b 65 79 77 6f 72 64 20 28 70 72 65 66 69 78 20 62 75 66 | pletions-for-keyword.(prefix.buf |
| f3020 | 66 65 72 2d 66 6f 72 6d 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a | fer-form)...(slime-eval.`(swank: |
| f3040 | 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 66 6f 72 2d 6b 65 79 77 6f 72 64 20 2c 70 72 65 66 69 78 20 | completions-for-keyword.,prefix. |
| f3060 | 27 2c 62 75 66 66 65 72 2d 66 6f 72 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 | ',buffer-form)))..(defun.slime-c |
| f3080 | 6f 6d 70 6c 65 74 69 6f 6e 73 2d 66 6f 72 2d 63 68 61 72 61 63 74 65 72 20 28 70 72 65 66 69 78 | ompletions-for-character.(prefix |
| f30a0 | 29 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 61 70 70 65 6e 64 2d 63 68 61 72 2d 73 79 6e | )...(cl-labels.((append-char-syn |
| f30c0 | 74 61 78 20 28 73 74 72 69 6e 67 29 20 28 63 6f 6e 63 61 74 20 22 23 5c 5c 22 20 73 74 72 69 6e | tax.(string).(concat."#\\".strin |
| f30e0 | 67 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 73 6c 69 6d 65 2d 65 76 | g))).....(let.((result.(slime-ev |
| f3100 | 61 6c 20 60 28 73 77 61 6e 6b 3a 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 66 6f 72 2d 63 68 61 72 61 | al.`(swank:completions-for-chara |
| f3120 | 63 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cter............................ |
| f3140 | 20 20 20 20 20 2c 28 63 6c 2d 73 75 62 73 65 71 20 70 72 65 66 69 78 20 32 29 29 29 29 29 0a 20 | .....,(cl-subseq.prefix.2))))).. |
| f3160 | 20 20 20 20 20 28 77 68 65 6e 20 28 63 61 72 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 | .....(when.(car.result)......... |
| f3180 | 28 6c 69 73 74 20 28 6d 61 70 63 61 72 20 23 27 61 70 70 65 6e 64 2d 63 68 61 72 2d 73 79 6e 74 | (list.(mapcar.#'append-char-synt |
| f31a0 | 61 78 20 28 63 61 72 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ax.(car.result))...............( |
| f31c0 | 61 70 70 65 6e 64 2d 63 68 61 72 2d 73 79 6e 74 61 78 20 28 63 61 64 72 20 72 65 73 75 6c 74 29 | append-char-syntax.(cadr.result) |
| f31e0 | 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 43 6f 6d 70 6c 65 74 65 20 66 6f 72 6d 0a 0a 28 64 65 | ))))))....;;;.Complete.form..(de |
| f3200 | 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 66 6f 72 6d 20 28 29 0a 20 20 22 43 6f | fun.slime-complete-form.()..."Co |
| f3220 | 6d 70 6c 65 74 65 20 74 68 65 20 66 6f 72 6d 20 61 74 20 70 6f 69 6e 74 2e 20 20 0a 54 68 69 73 | mplete.the.form.at.point....This |
| f3240 | 20 69 73 20 61 20 73 75 70 65 72 73 65 74 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 61 6c | .is.a.superset.of.the.functional |
| f3260 | 69 74 79 20 6f 66 20 60 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 61 72 67 6c 69 73 74 27 2e 22 0a | ity.of.`slime-insert-arglist'.". |
| f3280 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 3b 3b 20 46 69 6e 64 20 74 68 65 20 28 70 | ..(interactive)...;;.Find.the.(p |
| f32a0 | 6f 73 73 69 62 6c 79 20 69 6e 63 6f 6d 70 6c 65 74 65 29 20 66 6f 72 6d 20 61 72 6f 75 6e 64 20 | ossibly.incomplete).form.around. |
| f32c0 | 70 6f 69 6e 74 2e 0a 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 2d 66 6f 72 6d 20 28 73 6c 69 | point....(let.((buffer-form.(sli |
| f32e0 | 6d 65 2d 70 61 72 73 65 2d 66 6f 72 6d 2d 75 70 74 6f 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 | me-parse-form-upto-point)))..... |
| f3300 | 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e | (let.((result.(slime-eval.`(swan |
| f3320 | 6b 3a 63 6f 6d 70 6c 65 74 65 2d 66 6f 72 6d 20 27 2c 62 75 66 66 65 72 2d 66 6f 72 6d 29 29 29 | k:complete-form.',buffer-form))) |
| f3340 | 29 0a 20 20 20 20 20 20 28 69 66 20 28 65 71 20 72 65 73 75 6c 74 20 3a 6e 6f 74 2d 61 76 61 69 | ).......(if.(eq.result.:not-avai |
| f3360 | 6c 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 6f 75 6c 64 20 6e | lable)...........(error."Could.n |
| f3380 | 6f 74 20 67 65 6e 65 72 61 74 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 66 | ot.generate.completion.for.the.f |
| f33a0 | 6f 72 6d 20 60 25 73 27 22 20 62 75 66 66 65 72 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 | orm.`%s'".buffer-form).......... |
| f33c0 | 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 75 73 74 2d 6f 6e 65 2d 73 70 | .(progn.............(just-one-sp |
| f33e0 | 61 63 65 20 28 69 66 20 28 6c 6f 6f 6b 69 6e 67 2d 62 61 63 6b 20 22 5c 5c 73 28 22 20 28 31 2d | ace.(if.(looking-back."\\s(".(1- |
| f3400 | 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(point)))...................... |
| f3420 | 20 20 20 20 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........0.................... |
| f3440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 | .............1)).............(sa |
| f3460 | 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 | ve-excursion...............(inse |
| f3480 | 72 74 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | rt.result)...............(let.(( |
| f34a0 | 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 70 61 72 65 6e 73 2d 6c 69 6d 69 74 20 31 29 29 0a 20 20 20 | slime-close-parens-limit.1)).... |
| f34c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 61 6c 6c 2d 70 61 | .............(slime-close-all-pa |
| f34e0 | 72 65 6e 73 2d 69 6e 2d 73 65 78 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 | rens-in-sexp))).............(sav |
| f3500 | 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 | e-excursion...............(backw |
| f3520 | 61 72 64 2d 75 70 2d 6c 69 73 74 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e | ard-up-list.1)...............(in |
| f3540 | 64 65 6e 74 2d 73 65 78 70 29 29 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d | dent-sexp)))))))..(provide.'slim |
| f3560 | 65 2d 63 2d 70 2d 63 29 0a 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | e-c-p-c)........................ |
| f3580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f35a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f35c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f35e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 | slime-2.31/contrib/slime-indenta |
| f3620 | 74 69 6f 6e 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | tion.el......................... |
| f3640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| f3680 | 30 30 30 32 30 37 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 36 32 30 00 20 30 00 00 00 | 0002075.00000000000.016620..0... |
| f36a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f36c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f36e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| f3720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| f3740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f37a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f37c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f37e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3800 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 | (require.'slime).(require.'slime |
| f3820 | 2d 63 6c 2d 69 6e 64 65 6e 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 | -cl-indent).(require.'cl-lib)..( |
| f3840 | 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 69 6e 64 65 6e | define-slime-contrib.slime-inden |
| f3860 | 74 61 74 69 6f 6e 0a 20 20 22 43 6f 6e 74 72 69 62 20 69 6e 74 65 72 66 61 63 69 6e 67 20 60 73 | tation..."Contrib.interfacing.`s |
| f3880 | 6c 69 6d 65 2d 63 6c 2d 69 6e 64 65 6e 74 27 20 61 6e 64 20 53 4c 49 4d 45 2e 22 0a 20 20 28 3a | lime-cl-indent'.and.SLIME."...(: |
| f38a0 | 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d 69 6e 64 65 6e 74 61 | swank-dependencies.swank-indenta |
| f38c0 | 74 69 6f 6e 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 73 65 74 71 20 63 6f 6d 6d 6f | tion)...(:on-load....(setq.commo |
| f38e0 | 6e 2d 6c 69 73 70 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 2d 66 75 6e 63 74 69 6f 6e 20 | n-lisp-current-package-function. |
| f3900 | 27 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 0a 0a 28 64 65 66 75 | 'slime-current-package)))..(defu |
| f3920 | 6e 20 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 73 79 73 74 65 6d 2d 69 6e 64 65 6e 74 61 74 69 6f | n.slime-update-system-indentatio |
| f3940 | 6e 20 28 73 79 6d 62 6f 6c 20 69 6e 64 65 6e 74 20 70 61 63 6b 61 67 65 73 29 0a 20 20 28 6c 65 | n.(symbol.indent.packages)...(le |
| f3960 | 74 20 28 28 6c 69 73 74 20 28 67 65 74 68 61 73 68 20 73 79 6d 62 6f 6c 20 63 6f 6d 6d 6f 6e 2d | t.((list.(gethash.symbol.common- |
| f3980 | 6c 69 73 70 2d 73 79 73 74 65 6d 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 | lisp-system-indentation))....... |
| f39a0 | 20 20 28 6f 6b 20 6e 69 6c 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 6c 69 73 74 29 0a 20 | ..(ok.nil)).....(if.(not.list).. |
| f39c0 | 20 20 20 20 20 20 20 28 70 75 74 68 61 73 68 20 73 79 6d 62 6f 6c 20 28 6c 69 73 74 20 28 63 6f | .......(puthash.symbol.(list.(co |
| f39e0 | 6e 73 20 69 6e 64 65 6e 74 20 70 61 63 6b 61 67 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ns.indent.packages))............ |
| f3a00 | 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 79 73 74 65 6d 2d 69 6e 64 65 6e 74 61 | ......common-lisp-system-indenta |
| f3a20 | 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 73 70 65 63 20 6c 69 73 74 29 0a | tion).......(dolist.(spec.list). |
| f3a40 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 28 63 61 72 20 73 70 65 63 29 | ........(cond.((equal.(car.spec) |
| f3a60 | 20 69 6e 64 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 | .indent)................(dolist. |
| f3a80 | 28 70 20 70 61 63 6b 61 67 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 | (p.packages)..................(u |
| f3aa0 | 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 70 20 28 63 64 72 20 73 70 65 63 29 29 0a 20 20 20 20 | nless.(member.p.(cdr.spec))..... |
| f3ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 70 20 28 63 64 72 20 73 70 65 63 | ...............(push.p.(cdr.spec |
| f3ae0 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 6f 6b 20 74 29 29 | ))))................(setf.ok.t)) |
| f3b00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............(t............... |
| f3b20 | 20 28 73 65 74 66 20 28 63 64 72 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(setf.(cdr.spec)............... |
| f3b40 | 20 20 20 20 20 20 20 28 63 6c 2d 73 65 74 2d 64 69 66 66 65 72 65 6e 63 65 20 28 63 64 72 20 73 | .......(cl-set-difference.(cdr.s |
| f3b60 | 70 65 63 29 20 70 61 63 6b 61 67 65 73 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 29 29 29 0a | pec).packages.:test.'equal))))). |
| f3b80 | 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 6f 6b 0a 20 20 20 20 20 20 20 20 28 70 75 74 68 61 73 | ......(unless.ok.........(puthas |
| f3ba0 | 68 20 73 79 6d 62 6f 6c 20 28 63 6f 6e 73 20 28 63 6f 6e 73 20 69 6e 64 65 6e 74 20 70 61 63 6b | h.symbol.(cons.(cons.indent.pack |
| f3bc0 | 61 67 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ages)........................... |
| f3be0 | 20 20 20 20 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 6f | ....list)..................commo |
| f3c00 | 6e 2d 6c 69 73 70 2d 73 79 73 74 65 6d 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 29 29 29 0a 0a | n-lisp-system-indentation))))).. |
| f3c20 | 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 00 00 00 | (provide.'slime-indentation).... |
| f3c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3e00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 74 72 61 6d 70 2e 65 | slime-2.31/contrib/slime-tramp.e |
| f3e20 | 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | l............................... |
| f3e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3e60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| f3e80 | 30 30 31 31 33 34 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 33 30 00 20 30 00 00 00 | 0011346.00000000000.015430..0... |
| f3ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3f00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| f3f20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| f3f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f3fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f4000 | 3b 3b 3b 3b 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a | ;;;;.-*-.lexical-binding:.t.-*-. |
| f4020 | 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 74 72 61 6d | .(require.'slime).(require.'tram |
| f4040 | 70 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d | p)..(define-slime-contrib.slime- |
| f4060 | 74 72 61 6d 70 0a 20 20 22 46 69 6c 65 6e 61 6d 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 66 | tramp..."Filename.translations.f |
| f4080 | 6f 72 20 74 72 61 6d 70 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 4d 61 72 63 6f 20 42 61 72 | or.tramp"...(:authors."Marco.Bar |
| f40a0 | 69 6e 67 65 72 20 3c 6d 62 40 62 65 73 65 2e 69 74 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 | inger.<mb@bese.it>")...(:license |
| f40c0 | 20 22 47 50 4c 22 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 20 0a 20 20 20 28 73 65 74 71 20 73 6c | ."GPL")...(:on-load.....(setq.sl |
| f40e0 | 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 23 27 | ime-to-lisp-filename-function.#' |
| f4100 | 73 6c 69 6d 65 2d 74 72 61 6d 70 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 | slime-tramp-to-lisp-filename)... |
| f4120 | 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 66 72 6f 6d 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 2d | .(setq.slime-from-lisp-filename- |
| f4140 | 66 75 6e 63 74 69 6f 6e 20 23 27 73 6c 69 6d 65 2d 74 72 61 6d 70 2d 66 72 6f 6d 2d 6c 69 73 70 | function.#'slime-tramp-from-lisp |
| f4160 | 2d 66 69 6c 65 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 66 | -filename)))..(defcustom.slime-f |
| f4180 | 69 6c 65 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 6e 69 6c 0a 20 20 22 41 73 73 6f | ilename-translations.nil..."Asso |
| f41a0 | 63 20 6c 69 73 74 20 6f 66 20 68 6f 73 74 6e 61 6d 65 73 20 61 6e 64 20 66 69 6c 65 6e 61 6d 65 | c.list.of.hostnames.and.filename |
| f41c0 | 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 0a 45 61 63 68 20 65 | .translation.functions....Each.e |
| f41e0 | 6c 65 6d 65 6e 74 20 69 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 48 4f 53 54 4e 41 4d 45 2d | lement.is.of.the.form.(HOSTNAME- |
| f4200 | 52 45 47 45 58 50 20 54 4f 2d 4c 49 53 50 20 46 52 4f 4d 2d 4c 49 53 50 29 2e 0a 0a 48 4f 53 54 | REGEXP.TO-LISP.FROM-LISP)...HOST |
| f4220 | 4e 41 4d 45 2d 52 45 47 45 58 50 20 69 73 20 61 20 72 65 67 65 78 70 20 77 68 69 63 68 20 69 73 | NAME-REGEXP.is.a.regexp.which.is |
| f4240 | 20 61 70 70 6c 69 65 64 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 27 73 0a 73 6c 69 | .applied.to.the.connection's.sli |
| f4260 | 6d 65 2d 6d 61 63 68 69 6e 65 2d 69 6e 73 74 61 6e 63 65 2e 20 49 66 20 48 4f 53 54 4e 41 4d 45 | me-machine-instance..If.HOSTNAME |
| f4280 | 2d 52 45 47 45 58 50 20 6d 61 63 68 65 73 20 74 68 65 6e 20 74 68 65 0a 63 6f 72 72 65 73 70 6f | -REGEXP.maches.then.the.correspo |
| f42a0 | 6e 64 69 6e 67 20 54 4f 2d 4c 49 53 50 20 61 6e 64 20 46 52 4f 4d 2d 4c 49 53 50 20 66 75 6e 63 | nding.TO-LISP.and.FROM-LISP.func |
| f42c0 | 74 69 6f 6e 73 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20 74 6f 0a 74 72 61 6e 73 6c 61 74 65 20 | tions.will.be.used.to.translate. |
| f42e0 | 65 6d 61 63 73 20 66 69 6c 65 6e 61 6d 65 73 20 61 6e 64 20 6c 69 73 70 20 66 69 6c 65 6e 61 6d | emacs.filenames.and.lisp.filenam |
| f4300 | 65 73 2e 0a 0a 54 4f 2d 4c 49 53 50 20 77 69 6c 6c 20 62 65 20 70 61 73 73 65 64 20 74 68 65 20 | es...TO-LISP.will.be.passed.the. |
| f4320 | 66 69 6c 65 6e 61 6d 65 20 6f 66 20 61 6e 20 65 6d 61 63 73 20 62 75 66 66 65 72 20 61 6e 64 20 | filename.of.an.emacs.buffer.and. |
| f4340 | 6d 75 73 74 0a 72 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 77 68 69 63 68 20 74 68 65 20 75 | must.return.a.string.which.the.u |
| f4360 | 6e 64 65 72 6c 79 69 6e 67 20 6c 69 73 70 20 75 6e 64 65 72 73 74 61 6e 64 61 73 20 61 73 20 61 | nderlying.lisp.understandas.as.a |
| f4380 | 0a 70 61 74 68 6e 61 6d 65 2e 20 46 52 4f 4d 2d 4c 49 53 50 20 77 69 6c 6c 20 62 65 20 70 61 73 | .pathname..FROM-LISP.will.be.pas |
| f43a0 | 73 65 64 20 61 20 70 61 74 68 6e 61 6d 65 20 61 73 20 72 65 74 75 72 6e 65 64 20 62 79 20 74 68 | sed.a.pathname.as.returned.by.th |
| f43c0 | 65 0a 75 6e 64 65 72 6c 79 69 6e 67 20 6c 69 73 70 20 61 6e 64 20 6d 75 73 74 20 72 65 74 75 72 | e.underlying.lisp.and.must.retur |
| f43e0 | 6e 20 73 6f 6d 65 74 68 69 6e 67 20 74 68 61 74 20 65 6d 61 63 73 20 77 69 6c 6c 0a 75 6e 64 65 | n.something.that.emacs.will.unde |
| f4400 | 72 73 74 61 6e 64 20 61 73 20 61 20 66 69 6c 65 6e 61 6d 65 20 28 74 68 69 73 20 73 74 72 69 6e | rstand.as.a.filename.(this.strin |
| f4420 | 67 20 77 69 6c 6c 20 62 65 20 70 61 73 73 65 64 20 74 6f 0a 66 69 6e 64 2d 66 69 6c 65 29 2e 0a | g.will.be.passed.to.find-file).. |
| f4440 | 0a 54 68 69 73 20 6c 69 73 74 20 77 69 6c 6c 20 62 65 20 74 72 61 76 65 72 73 65 64 20 69 6e 20 | .This.list.will.be.traversed.in. |
| f4460 | 6f 72 64 65 72 2c 20 73 6f 20 6d 75 6c 74 69 70 6c 65 20 6d 61 74 63 68 69 6e 67 0a 72 65 67 65 | order,.so.multiple.matching.rege |
| f4480 | 78 70 73 20 61 72 65 20 70 6f 73 73 69 62 6c 65 2e 0a 0a 45 78 61 6d 70 6c 65 3a 0a 0a 41 73 73 | xps.are.possible...Example:..Ass |
| f44a0 | 75 6d 69 6e 67 20 79 6f 75 20 72 75 6e 20 65 6d 61 63 73 20 6c 6f 63 61 6c 6c 79 20 61 6e 64 20 | uming.you.run.emacs.locally.and. |
| f44c0 | 63 6f 6e 6e 65 63 74 20 74 6f 20 73 6c 69 6d 65 20 72 75 6e 6e 69 6e 67 20 6f 6e 0a 74 68 65 20 | connect.to.slime.running.on.the. |
| f44e0 | 6d 61 63 68 69 6e 65 20 27 73 6f 72 65 6e 27 20 61 6e 64 20 79 6f 75 20 63 61 6e 20 63 6f 6e 6e | machine.'soren'.and.you.can.conn |
| f4500 | 65 63 74 20 77 69 74 68 20 74 68 65 20 75 73 65 72 6e 61 6d 65 0a 27 61 6e 69 6d 61 6c 69 74 65 | ect.with.the.username.'animalite |
| f4520 | 72 27 3a 0a 0a 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 5c 22 5e 73 6f 72 65 6e 24 5c 22 0a 20 | r':....(push.(list.\"^soren$\".. |
| f4540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 65 6d 61 63 73 2d 66 69 6c 65 | .............(lambda.(emacs-file |
| f4560 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 65 71 20 65 6d | name).................(subseq.em |
| f4580 | 61 63 73 2d 66 69 6c 65 6e 61 6d 65 20 28 6c 65 6e 67 74 68 20 5c 22 2f 73 73 68 3a 61 6e 69 6d | acs-filename.(length.\"/ssh:anim |
| f45a0 | 61 6c 69 74 65 72 40 73 6f 72 65 6e 3a 5c 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | aliter@soren:\"))).............. |
| f45c0 | 20 28 6c 61 6d 62 64 61 20 28 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | .(lambda.(lisp-filename)........ |
| f45e0 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 5c 22 2f 73 73 68 3a 61 6e 69 6d 61 6c 69 74 | .........(concat.\"/ssh:animalit |
| f4600 | 65 72 40 73 6f 72 65 6e 3a 5c 22 20 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 | er@soren:\".lisp-filename))).... |
| f4620 | 20 20 20 20 20 73 6c 69 6d 65 2d 66 69 6c 65 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 | .....slime-filename-translations |
| f4640 | 29 0a 0a 53 65 65 20 61 6c 73 6f 20 60 73 6c 69 6d 65 2d 63 72 65 61 74 65 2d 66 69 6c 65 6e 61 | )..See.also.`slime-create-filena |
| f4660 | 6d 65 2d 74 72 61 6e 73 6c 61 74 6f 72 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 | me-translator'."...:type.'(repea |
| f4680 | 74 20 28 6c 69 73 74 20 3a 74 61 67 20 22 48 6f 73 74 20 64 65 73 63 72 69 70 74 69 6f 6e 22 0a | t.(list.:tag."Host.description". |
| f46a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 67 65 78 70 20 3a | .......................(regexp.: |
| f46c0 | 74 61 67 20 22 48 6f 73 74 6e 61 6d 65 20 72 65 67 65 78 70 22 29 0a 20 20 20 20 20 20 20 20 20 | tag."Hostname.regexp").......... |
| f46e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 54 6f | ..............(function.:tag."To |
| f4700 | 20 20 20 6c 69 73 70 20 66 75 6e 63 74 69 6f 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...lisp.function").............. |
| f4720 | 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 46 72 6f 6d 20 6c | ..........(function.:tag."From.l |
| f4740 | 69 73 70 20 66 75 6e 63 74 69 6f 6e 22 29 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 | isp.function")))...:group.'slime |
| f4760 | 2d 6c 69 73 70 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 66 69 6c 65 6e 61 | -lisp)..(defun.slime-find-filena |
| f4780 | 6d 65 2d 74 72 61 6e 73 6c 61 74 6f 72 73 20 28 68 6f 73 74 6e 61 6d 65 29 0a 20 20 28 63 6f 6e | me-translators.(hostname)...(con |
| f47a0 | 64 20 28 28 63 64 72 20 28 63 6c 2d 61 73 73 6f 63 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 72 65 | d.((cdr.(cl-assoc-if.(lambda.(re |
| f47c0 | 67 65 78 70 29 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 65 67 65 78 70 20 68 6f 73 74 6e | gexp).(string-match.regexp.hostn |
| f47e0 | 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame))........................... |
| f4800 | 20 73 6c 69 6d 65 2d 66 69 6c 65 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 29 29 29 0a | .slime-filename-translations))). |
| f4820 | 20 20 20 20 20 20 20 20 28 74 20 28 6c 69 73 74 20 23 27 69 64 65 6e 74 69 74 79 20 23 27 69 64 | ........(t.(list.#'identity.#'id |
| f4840 | 65 6e 74 69 74 79 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 6b 65 2d 74 72 | entity))))..(defun.slime-make-tr |
| f4860 | 61 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 75 73 65 72 6e 61 6d 65 20 72 65 6d 6f 74 65 2d 68 | amp-file-name.(username.remote-h |
| f4880 | 6f 73 74 20 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 22 54 72 61 6d 70 20 63 6f 6d 70 | ost.lisp-filename)..."Tramp.comp |
| f48a0 | 61 74 61 62 69 6c 69 74 79 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 48 61 6e 64 6c 65 73 20 74 68 65 | atability.function...Handles.the |
| f48c0 | 20 73 69 67 6e 61 74 75 72 65 20 6f 66 20 60 74 72 61 6d 70 2d 6d 61 6b 65 2d 74 72 61 6d 70 2d | .signature.of.`tramp-make-tramp- |
| f48e0 | 66 69 6c 65 2d 6e 61 6d 65 27 20 63 68 61 6e 67 69 6e 67 0a 6f 76 65 72 20 74 69 6d 65 2e 22 0a | file-name'.changing.over.time.". |
| f4900 | 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 3e 3d 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 72 73 | ..(cond....((>=.emacs-major-vers |
| f4920 | 69 6f 6e 20 32 36 29 0a 20 20 20 20 3b 3b 20 45 6d 61 63 73 20 32 36 20 72 65 71 75 69 72 65 73 | ion.26).....;;.Emacs.26.requires |
| f4940 | 20 74 68 65 20 6d 65 74 68 6f 64 20 74 6f 20 62 65 20 70 72 6f 76 69 64 65 64 20 61 6e 64 20 74 | .the.method.to.be.provided.and.t |
| f4960 | 68 65 20 73 69 67 6e 61 74 75 72 65 20 6f 66 0a 20 20 20 20 3b 3b 20 60 74 72 61 6d 70 2d 6d 61 | he.signature.of.....;;.`tramp-ma |
| f4980 | 6b 65 2d 74 72 61 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 27 20 68 61 73 20 63 68 61 6e 67 65 64 2e | ke-tramp-file-name'.has.changed. |
| f49a0 | 0a 20 20 20 20 28 74 72 61 6d 70 2d 6d 61 6b 65 2d 74 72 61 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 | .....(tramp-make-tramp-file-name |
| f49c0 | 20 28 74 72 61 6d 70 2d 66 69 6e 64 2d 6d 65 74 68 6f 64 20 6e 69 6c 20 75 73 65 72 6e 61 6d 65 | .(tramp-find-method.nil.username |
| f49e0 | 20 72 65 6d 6f 74 65 2d 68 6f 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .remote-host)................... |
| f4a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 65 72 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 | ..............username.......... |
| f4a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 | .......................nil...... |
| f4a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 74 | ...........................remot |
| f4a60 | 65 2d 68 6f 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-host.......................... |
| f4a80 | 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......nil...................... |
| f4aa0 | 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 28 28 | ...........lisp-filename))....(( |
| f4ac0 | 62 6f 75 6e 64 70 20 27 74 72 61 6d 70 2d 6d 75 6c 74 69 2d 6d 65 74 68 6f 64 73 29 0a 20 20 20 | boundp.'tramp-multi-methods).... |
| f4ae0 | 20 28 74 72 61 6d 70 2d 6d 61 6b 65 2d 74 72 61 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 69 6c | .(tramp-make-tramp-file-name.nil |
| f4b00 | 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .nil............................ |
| f4b20 | 20 20 20 20 20 75 73 65 72 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....username................... |
| f4b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 74 65 2d 68 6f 73 74 0a 20 20 20 20 20 20 | ..............remote-host....... |
| f4b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 70 2d 66 | ..........................lisp-f |
| f4b80 | 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 28 74 0a 20 20 20 20 28 74 72 61 6d 70 2d 6d 61 6b 65 2d | ilename))....(t.....(tramp-make- |
| f4ba0 | 74 72 61 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 | tramp-file-name.nil............. |
| f4bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 65 72 6e 61 6d 65 0a 20 20 20 | ....................username.... |
| f4be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d | .............................rem |
| f4c00 | 6f 74 65 2d 68 6f 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ote-host........................ |
| f4c20 | 20 20 20 20 20 20 20 20 20 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 29 29 29 29 0a 0a 28 63 6c 2d | .........lisp-filename))))..(cl- |
| f4c40 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 72 65 61 74 65 2d 66 69 6c 65 6e 61 6d 65 2d 74 72 61 6e | defun.slime-create-filename-tran |
| f4c60 | 73 6c 61 74 6f 72 20 28 26 6b 65 79 20 6d 61 63 68 69 6e 65 2d 69 6e 73 74 61 6e 63 65 0a 20 20 | slator.(&key.machine-instance... |
| f4c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| f4ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 74 65 2d 68 6f 73 74 0a 20 20 20 20 20 | ...............remote-host...... |
| f4cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| f4ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 75 73 65 72 6e 61 6d 65 29 0a 20 20 22 43 72 65 61 74 65 73 | ............username)..."Creates |
| f4d00 | 20 61 20 74 68 72 65 65 20 65 6c 65 6d 65 6e 74 20 6c 69 73 74 20 73 75 69 74 61 62 6c 65 20 66 | .a.three.element.list.suitable.f |
| f4d20 | 6f 72 20 70 75 73 68 27 69 6e 67 20 6f 6e 74 6f 0a 73 6c 69 6d 65 2d 66 69 6c 65 6e 61 6d 65 2d | or.push'ing.onto.slime-filename- |
| f4d40 | 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 77 68 69 63 68 20 75 73 65 73 20 54 72 61 6d 70 20 74 6f | translations.which.uses.Tramp.to |
| f4d60 | 20 6c 6f 61 64 20 66 69 6c 65 73 20 6f 6e 0a 68 6f 73 74 6e 61 6d 65 20 75 73 69 6e 67 20 75 73 | .load.files.on.hostname.using.us |
| f4d80 | 65 72 6e 61 6d 65 2e 20 4d 41 43 48 49 4e 45 2d 49 4e 53 54 41 4e 43 45 20 69 73 20 61 20 72 65 | ername..MACHINE-INSTANCE.is.a.re |
| f4da0 | 71 75 69 72 65 64 0a 70 61 72 61 6d 65 74 65 72 2c 20 52 45 4d 4f 54 45 2d 48 4f 53 54 20 64 65 | quired.parameter,.REMOTE-HOST.de |
| f4dc0 | 66 61 75 6c 74 73 20 74 6f 20 4d 41 43 48 49 4e 45 2d 49 4e 53 54 41 4e 43 45 20 61 6e 64 20 55 | faults.to.MACHINE-INSTANCE.and.U |
| f4de0 | 53 45 52 4e 41 4d 45 0a 64 65 66 61 75 6c 74 73 20 74 6f 20 28 75 73 65 72 2d 6c 6f 67 69 6e 2d | SERNAME.defaults.to.(user-login- |
| f4e00 | 6e 61 6d 65 29 2e 0a 0a 4d 41 43 48 49 4e 45 2d 49 4e 53 54 41 4e 43 45 20 69 73 20 74 68 65 20 | name)...MACHINE-INSTANCE.is.the. |
| f4e20 | 76 61 6c 75 65 20 72 65 74 75 72 6e 65 64 20 62 79 20 73 6c 69 6d 65 2d 6d 61 63 68 69 6e 65 2d | value.returned.by.slime-machine- |
| f4e40 | 69 6e 73 74 61 6e 63 65 2c 0a 77 68 69 63 68 20 69 73 20 6a 75 73 74 20 74 68 65 20 76 61 6c 75 | instance,.which.is.just.the.valu |
| f4e60 | 65 20 72 65 74 75 72 6e 65 64 20 62 79 20 63 6c 3a 6d 61 63 68 69 6e 65 2d 69 6e 73 74 61 6e 63 | e.returned.by.cl:machine-instanc |
| f4e80 | 65 20 6f 6e 20 74 68 65 0a 72 65 6d 6f 74 65 20 6c 69 73 70 2e 20 52 45 4d 4f 54 45 2d 48 4f 53 | e.on.the.remote.lisp..REMOTE-HOS |
| f4ea0 | 54 20 69 73 20 74 68 65 20 66 75 6c 6c 79 20 71 75 61 6c 69 66 69 65 64 20 64 6f 6d 61 69 6e 20 | T.is.the.fully.qualified.domain. |
| f4ec0 | 6e 61 6d 65 20 28 6f 72 0a 6a 75 73 74 20 74 68 65 20 49 50 29 20 6f 66 20 74 68 65 20 72 65 6d | name.(or.just.the.IP).of.the.rem |
| f4ee0 | 6f 74 65 20 6d 61 63 68 69 6e 65 2e 20 55 53 45 52 4e 41 4d 45 20 69 73 20 74 68 65 20 75 73 65 | ote.machine..USERNAME.is.the.use |
| f4f00 | 72 6e 61 6d 65 20 77 65 0a 73 68 6f 75 6c 64 20 6c 6f 67 69 6e 20 77 69 74 68 2e 0a 54 68 65 20 | rname.we.should.login.with..The. |
| f4f20 | 66 75 6e 63 74 69 6f 6e 73 20 63 72 65 61 74 65 64 20 68 65 72 65 20 65 78 70 65 63 74 20 79 6f | functions.created.here.expect.yo |
| f4f40 | 75 72 20 74 72 61 6d 70 2d 64 65 66 61 75 6c 74 2d 6d 65 74 68 6f 64 20 6f 72 0a 20 74 72 61 6d | ur.tramp-default-method.or..tram |
| f4f60 | 70 2d 64 65 66 61 75 6c 74 2d 6d 65 74 68 6f 64 2d 61 6c 69 73 74 20 74 6f 20 62 65 20 73 65 74 | p-default-method-alist.to.be.set |
| f4f80 | 75 70 20 63 6f 72 72 65 63 74 6c 79 2e 22 0a 20 20 28 6c 65 74 20 28 28 72 65 6d 6f 74 65 2d 68 | up.correctly."...(let.((remote-h |
| f4fa0 | 6f 73 74 20 28 6f 72 20 72 65 6d 6f 74 65 2d 68 6f 73 74 20 6d 61 63 68 69 6e 65 2d 69 6e 73 74 | ost.(or.remote-host.machine-inst |
| f4fc0 | 61 6e 63 65 29 29 0a 20 20 20 20 20 20 20 20 28 75 73 65 72 6e 61 6d 65 20 28 6f 72 20 75 73 65 | ance)).........(username.(or.use |
| f4fe0 | 72 6e 61 6d 65 20 28 75 73 65 72 2d 6c 6f 67 69 6e 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 | rname.(user-login-name)))).....( |
| f5000 | 6c 69 73 74 20 28 63 6f 6e 63 61 74 20 22 5e 22 20 6d 61 63 68 69 6e 65 2d 69 6e 73 74 61 6e 63 | list.(concat."^".machine-instanc |
| f5020 | 65 20 22 24 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 65 6d 61 63 73 2d | e."$")...........(lambda.(emacs- |
| f5040 | 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 61 6d 70 2d 66 69 6c | filename).............(tramp-fil |
| f5060 | 65 2d 6e 61 6d 65 2d 6c 6f 63 61 6c 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 | e-name-localname..............(t |
| f5080 | 72 61 6d 70 2d 64 69 73 73 65 63 74 2d 66 69 6c 65 2d 6e 61 6d 65 20 65 6d 61 63 73 2d 66 69 6c | ramp-dissect-file-name.emacs-fil |
| f50a0 | 65 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 60 28 6c 61 6d 62 64 61 20 28 6c 69 73 | ename)))...........`(lambda.(lis |
| f50c0 | 70 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | p-filename)..............(slime- |
| f50e0 | 6d 61 6b 65 2d 74 72 61 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 | make-tramp-file-name............ |
| f5100 | 20 20 20 2c 75 73 65 72 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 72 65 6d 6f | ...,username...............,remo |
| f5120 | 74 65 2d 68 6f 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 70 2d 66 69 6c 65 6e | te-host...............lisp-filen |
| f5140 | 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 6d 70 2d 74 6f 2d | ame)))))..(defun.slime-tramp-to- |
| f5160 | 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 28 66 75 6e 63 | lisp-filename.(filename)...(func |
| f5180 | 61 6c 6c 20 28 69 66 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 0a 20 20 20 20 | all.(if.(slime-connected-p)..... |
| f51a0 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 66 69 72 73 74 20 28 73 6c 69 6d 65 2d 66 69 6e 64 | ...........(cl-first.(slime-find |
| f51c0 | 2d 66 69 6c 65 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 6f 72 73 20 28 73 6c 69 6d 65 2d 6d 61 63 | -filename-translators.(slime-mac |
| f51e0 | 68 69 6e 65 2d 69 6e 73 74 61 6e 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hine-instance)))................ |
| f5200 | 27 69 64 65 6e 74 69 74 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 | 'identity)............(expand-fi |
| f5220 | 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | le-name.filename)))..(defun.slim |
| f5240 | 65 2d 74 72 61 6d 70 2d 66 72 6f 6d 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 28 66 69 6c 65 | e-tramp-from-lisp-filename.(file |
| f5260 | 6e 61 6d 65 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 63 6c 2d 73 65 63 6f 6e 64 20 28 73 6c 69 | name)...(funcall.(cl-second.(sli |
| f5280 | 6d 65 2d 66 69 6e 64 2d 66 69 6c 65 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 6f 72 73 20 28 73 6c | me-find-filename-translators.(sl |
| f52a0 | 69 6d 65 2d 6d 61 63 68 69 6e 65 2d 69 6e 73 74 61 6e 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 | ime-machine-instance)))......... |
| f52c0 | 20 20 20 66 69 6c 65 6e 61 6d 65 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 74 | ...filename))..(provide.'slime-t |
| f52e0 | 72 61 6d 70 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ramp)........................... |
| f5300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f5320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f5340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f5360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f5380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f53a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f53c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f53e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f5400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 | slime-2.31/contrib/slime-present |
| f5420 | 61 74 69 6f 6e 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ations.el....................... |
| f5440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f5460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| f5480 | 30 31 31 33 37 37 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 32 31 30 00 20 30 00 00 00 | 0113771.00000000000.017210..0... |
| f54a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f54c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f54e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f5500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| f5520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| f5540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f5560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f5580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f55a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f55c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f55e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f5600 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 | (require.'slime).(require.'cl-li |
| f5620 | 62 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d | b)..(define-slime-contrib.slime- |
| f5640 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 0a 20 20 22 49 6d 69 74 61 74 65 20 4c 69 73 70 4d 20 70 | presentations..."Imitate.LispM.p |
| f5660 | 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 41 6c 61 6e | resentations."...(:authors."Alan |
| f5680 | 20 52 75 74 74 65 6e 62 65 72 67 20 20 3c 61 6c 61 6e 72 2d 6c 40 6d 75 6d 62 6c 65 2e 6e 65 74 | .Ruttenberg..<alanr-l@mumble.net |
| f56a0 | 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 4d 61 74 74 68 69 61 73 20 4b 6f 65 70 70 65 20 | >"............."Matthias.Koeppe. |
| f56c0 | 20 3c 6d 6b 6f 65 70 70 65 40 6d 61 69 6c 2e 6d 61 74 68 2e 75 6e 69 2d 6d 61 67 64 65 62 75 72 | .<mkoeppe@mail.math.uni-magdebur |
| f56e0 | 67 2e 64 65 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 73 | g.de>")...(:license."GPL")...(:s |
| f5700 | 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 20 20 | lime-dependencies.slime-repl)... |
| f5720 | 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d 70 72 65 73 65 | (:swank-dependencies.swank-prese |
| f5740 | 6e 74 61 74 69 6f 6e 73 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 61 64 64 2d 68 6f | ntations)...(:on-load....(add-ho |
| f5760 | 6f 6b 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 | ok.'slime-repl-mode-hook........ |
| f5780 | 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(lambda.()................ |
| f57a0 | 3b 3b 20 52 65 73 70 65 63 74 20 74 68 65 20 73 79 6e 74 61 78 20 74 65 78 74 20 70 72 6f 70 65 | ;;.Respect.the.syntax.text.prope |
| f57c0 | 72 74 69 65 73 20 6f 66 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 | rties.of.presentation........... |
| f57e0 | 20 20 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 | ......(set.(make-local-variable. |
| f5800 | 27 70 61 72 73 65 2d 73 65 78 70 2d 6c 6f 6f 6b 75 70 2d 70 72 6f 70 65 72 74 69 65 73 29 20 74 | 'parse-sexp-lookup-properties).t |
| f5820 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 61 66 74 65 | )................(add-hook.'afte |
| f5840 | 72 2d 63 68 61 6e 67 65 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-change-functions.............. |
| f5860 | 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 61 66 74 65 72 2d 63 68 61 6e 67 65 2d | ............'slime-after-change- |
| f5880 | 66 75 6e 63 74 69 6f 6e 20 27 61 70 70 65 6e 64 20 74 29 29 29 0a 20 20 20 28 61 64 64 2d 68 6f | function.'append.t)))....(add-ho |
| f58a0 | 6f 6b 20 27 73 6c 69 6d 65 2d 65 76 65 6e 74 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 64 69 73 | ok.'slime-event-hooks.'slime-dis |
| f58c0 | 70 61 74 63 68 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 76 65 6e 74 29 0a 20 20 20 28 73 65 | patch-presentation-event)....(se |
| f58e0 | 74 71 20 73 6c 69 6d 65 2d 77 72 69 74 65 2d 73 74 72 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 20 27 | tq.slime-write-string-function.' |
| f5900 | 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 77 72 69 74 65 29 0a 20 20 20 28 61 64 | slime-presentation-write)....(ad |
| f5920 | 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 20 27 73 6c | d-hook.'slime-connected-hook.'sl |
| f5940 | 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2d 6f 6e 2d 63 6f 6e 6e 65 63 74 65 64 29 0a | ime-presentations-on-connected). |
| f5960 | 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 2d | ...(add-hook.'slime-repl-return- |
| f5980 | 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6f 6e 2d 72 65 74 | hooks.'slime-presentation-on-ret |
| f59a0 | 75 72 6e 2d 70 72 65 73 73 65 64 29 0a 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 | urn-pressed)....(add-hook.'slime |
| f59c0 | 2d 72 65 70 6c 2d 63 75 72 72 65 6e 74 2d 69 6e 70 75 74 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 | -repl-current-input-hooks.'slime |
| f59e0 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 63 75 72 72 65 6e 74 2d 69 6e 70 75 74 29 0a 20 20 20 | -presentation-current-input).... |
| f5a00 | 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 62 75 66 66 | (add-hook.'slime-repl-clear-buff |
| f5a20 | 65 72 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 63 6c 65 61 72 2d 70 72 65 73 65 6e 74 61 74 69 6f | er-hook.'slime-clear-presentatio |
| f5a40 | 6e 73 29 0a 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 | ns)....(add-hook.'slime-edit-def |
| f5a60 | 69 6e 69 74 69 6f 6e 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 65 64 69 74 2d 70 72 65 73 65 6e | inition-hooks.'slime-edit-presen |
| f5a80 | 74 61 74 69 6f 6e 29 0a 20 20 20 28 73 65 74 71 20 73 6c 64 62 2d 69 6e 73 65 72 74 2d 66 72 61 | tation)....(setq.sldb-insert-fra |
| f5aa0 | 6d 65 2d 76 61 72 69 61 62 6c 65 2d 76 61 6c 75 65 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 | me-variable-value-function...... |
| f5ac0 | 20 20 20 20 27 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 6c 64 62 2d 69 6e 73 | ....'slime-presentation-sldb-ins |
| f5ae0 | 65 72 74 2d 66 72 61 6d 65 2d 76 61 72 69 61 62 6c 65 2d 76 61 6c 75 65 29 0a 20 20 20 28 73 6c | ert-frame-variable-value)....(sl |
| f5b00 | 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 6e 69 74 2d 6b 65 79 6d 61 70 73 29 0a 20 | ime-presentation-init-keymaps).. |
| f5b20 | 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 64 64 2d 65 61 73 79 2d 6d | ..(slime-presentation-add-easy-m |
| f5b40 | 65 6e 75 29 29 29 0a 0a 3b 3b 20 54 6f 20 67 65 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 | enu)))..;;.To.get.presentations. |
| f5b60 | 69 6e 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 61 73 20 77 65 6c 6c 2c 20 61 64 64 20 74 68 | in.the.inspector.as.well,.add.th |
| f5b80 | 69 73 20 74 6f 20 79 6f 75 72 0a 3b 3b 20 69 6e 69 74 20 66 69 6c 65 2e 0a 3b 3b 0a 3b 3b 20 28 | is.to.your.;;.init.file..;;.;;.( |
| f5ba0 | 65 76 61 6c 2d 61 66 74 65 72 2d 6c 6f 61 64 20 27 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 | eval-after-load.'slime-presentat |
| f5bc0 | 69 6f 6e 73 0a 3b 3b 20 20 20 20 27 28 73 65 74 71 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f | ions.;;....'(setq.slime-inspecto |
| f5be0 | 72 2d 69 6e 73 65 72 74 2d 69 73 70 65 63 2d 66 75 6e 63 74 69 6f 6e 0a 3b 3b 20 20 20 20 20 20 | r-insert-ispec-function.;;...... |
| f5c00 | 20 20 20 20 20 27 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 6e 73 70 65 63 74 | .....'slime-presentation-inspect |
| f5c20 | 6f 72 2d 69 6e 73 65 72 74 2d 69 73 70 65 63 29 29 0a 3b 3b 0a 28 64 65 66 66 61 63 65 20 73 6c | or-insert-ispec)).;;.(defface.sl |
| f5c40 | 69 6d 65 2d 72 65 70 6c 2d 6f 75 74 70 75 74 2d 6d 6f 75 73 65 6f 76 65 72 2d 66 61 63 65 0a 20 | ime-repl-output-mouseover-face.. |
| f5c60 | 20 20 20 27 28 28 74 20 28 3a 62 6f 78 20 28 3a 6c 69 6e 65 2d 77 69 64 74 68 20 31 20 3a 63 6f | ...'((t.(:box.(:line-width.1.:co |
| f5c80 | 6c 6f 72 20 22 62 6c 61 63 6b 22 20 3a 73 74 79 6c 65 20 72 65 6c 65 61 73 65 64 2d 62 75 74 74 | lor."black".:style.released-butt |
| f5ca0 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 3a 69 6e 68 65 72 69 74 20 73 6c 69 6d 65 2d 72 65 70 | on)...........:inherit.slime-rep |
| f5cc0 | 6c 2d 69 6e 70 75 74 65 64 2d 6f 75 74 70 75 74 2d 66 61 63 65 29 29 29 0a 20 20 22 46 61 63 65 | l-inputed-output-face)))..."Face |
| f5ce0 | 20 66 6f 72 20 4c 69 73 70 20 6f 75 74 70 75 74 20 69 6e 20 74 68 65 20 53 4c 49 4d 45 20 52 45 | .for.Lisp.output.in.the.SLIME.RE |
| f5d00 | 50 4c 2c 20 77 68 65 6e 20 74 68 65 20 6d 6f 75 73 65 20 68 6f 76 65 72 73 20 6f 76 65 72 20 69 | PL,.when.the.mouse.hovers.over.i |
| f5d20 | 74 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 0a 28 64 65 66 66 61 | t"...:group.'slime-repl)..(deffa |
| f5d40 | 63 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 65 64 2d 6f 75 74 70 75 74 2d 66 61 63 | ce.slime-repl-inputed-output-fac |
| f5d60 | 65 0a 20 20 27 28 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e | e...'((((class.color).(backgroun |
| f5d80 | 64 20 6c 69 67 68 74 29 29 20 28 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 52 65 64 22 29 29 0a 20 | d.light)).(:foreground."Red")).. |
| f5da0 | 20 20 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 | ...(((class.color).(background.d |
| f5dc0 | 61 72 6b 29 29 20 28 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 6c 69 67 68 74 20 73 61 6c 6d 6f 6e | ark)).(:foreground."light.salmon |
| f5de0 | 22 29 29 0a 20 20 20 20 28 74 20 28 3a 73 6c 61 6e 74 20 69 74 61 6c 69 63 29 29 29 0a 20 20 22 | ")).....(t.(:slant.italic)))..." |
| f5e00 | 46 61 63 65 20 66 6f 72 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 6e 20 65 76 61 6c 75 61 | Face.for.the.result.of.an.evalua |
| f5e20 | 74 69 6f 6e 20 69 6e 20 74 68 65 20 53 4c 49 4d 45 20 52 45 50 4c 2e 22 0a 20 20 3a 67 72 6f 75 | tion.in.the.SLIME.REPL."...:grou |
| f5e40 | 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 54 68 69 73 20 63 | p.'slime-repl)..;;.FIXME:.This.c |
| f5e60 | 6f 6e 64 69 74 69 6f 6e 61 6c 20 69 73 20 6e 6f 74 20 72 69 67 68 74 20 2d 20 6a 75 73 74 20 75 | onditional.is.not.right.-.just.u |
| f5e80 | 73 65 64 20 62 65 63 61 75 73 65 20 74 68 65 20 63 6f 64 65 0a 3b 3b 20 68 65 72 65 20 64 6f 65 | sed.because.the.code.;;.here.doe |
| f5ea0 | 73 20 6e 6f 74 20 77 6f 72 6b 20 69 6e 20 58 45 6d 61 63 73 2e 0a 28 77 68 65 6e 20 28 62 6f 75 | s.not.work.in.XEmacs..(when.(bou |
| f5ec0 | 6e 64 70 20 27 74 65 78 74 2d 70 72 6f 70 65 72 74 79 2d 64 65 66 61 75 6c 74 2d 6e 6f 6e 73 74 | ndp.'text-property-default-nonst |
| f5ee0 | 69 63 6b 79 29 0a 20 20 28 63 6c 2d 70 75 73 68 6e 65 77 20 27 28 73 6c 69 6d 65 2d 72 65 70 6c | icky)...(cl-pushnew.'(slime-repl |
| f5f00 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 2e 20 74 29 20 74 65 78 74 2d 70 72 6f 70 65 72 74 79 | -presentation...t).text-property |
| f5f20 | 2d 64 65 66 61 75 6c 74 2d 6e 6f 6e 73 74 69 63 6b 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -default-nonsticky.............. |
| f5f40 | 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 0a 20 20 28 63 6c 2d 70 75 73 68 6e 65 77 20 27 28 73 | .:test.'equal)...(cl-pushnew.'(s |
| f5f60 | 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 73 75 6c 74 2d 66 61 63 65 20 2e 20 74 29 20 74 65 78 74 2d | lime-repl-result-face...t).text- |
| f5f80 | 70 72 6f 70 65 72 74 79 2d 64 65 66 61 75 6c 74 2d 6e 6f 6e 73 74 69 63 6b 79 0a 20 20 20 20 20 | property-default-nonsticky...... |
| f5fa0 | 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 0a 28 6d 61 6b 65 2d 76 | .........:test.'equal))..(make-v |
| f5fc0 | 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 20 73 6c | ariable-buffer-local..(defvar.sl |
| f5fe0 | 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 2d 74 6f 2d 70 6f 69 6e 74 20 | ime-presentation-start-to-point. |
| f6000 | 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | (make-hash-table)))..(defun.slim |
| f6020 | 65 2d 6d 61 72 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 20 28 69 64 20 26 6f | e-mark-presentation-start.(id.&o |
| f6040 | 70 74 69 6f 6e 61 6c 20 74 61 72 67 65 74 29 0a 20 20 22 4d 61 72 6b 20 74 68 65 20 62 65 67 69 | ptional.target)..."Mark.the.begi |
| f6060 | 6e 6e 69 6e 67 20 6f 66 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 77 69 74 68 20 74 68 65 | nning.of.a.presentation.with.the |
| f6080 | 20 67 69 76 65 6e 20 49 44 2e 0a 54 41 52 47 45 54 20 63 61 6e 20 62 65 20 6e 69 6c 20 28 72 65 | .given.ID..TARGET.can.be.nil.(re |
| f60a0 | 67 75 6c 61 72 20 70 72 6f 63 65 73 73 20 6f 75 74 70 75 74 29 20 6f 72 20 3a 72 65 70 6c 2d 72 | gular.process.output).or.:repl-r |
| f60c0 | 65 73 75 6c 74 2e 22 0a 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 69 64 20 73 6c 69 6d | esult."...(setf.(gethash.id.slim |
| f60e0 | 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 2d 74 6f 2d 70 6f 69 6e 74 29 0a 20 | e-presentation-start-to-point).. |
| f6100 | 20 20 20 20 20 20 20 3b 3b 20 57 65 20 75 73 65 20 6d 61 72 6b 65 72 73 20 62 65 63 61 75 73 65 | .......;;.We.use.markers.because |
| f6120 | 20 74 65 78 74 20 63 61 6e 20 61 6c 73 6f 20 62 65 20 69 6e 73 65 72 74 65 64 20 62 65 66 6f 72 | .text.can.also.be.inserted.befor |
| f6140 | 65 20 74 68 69 73 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 3b 3b 20 | e.this.presentation..........;;. |
| f6160 | 28 4f 75 74 70 75 74 20 61 72 72 69 76 65 73 20 77 68 69 6c 65 20 77 65 20 61 72 65 20 77 72 69 | (Output.arrives.while.we.are.wri |
| f6180 | 74 69 6e 67 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 77 69 74 68 69 6e 20 52 45 50 4c 20 72 | ting.presentations.within.REPL.r |
| f61a0 | 65 73 75 6c 74 73 2e 29 0a 20 20 20 20 20 20 20 20 28 63 6f 70 79 2d 6d 61 72 6b 65 72 20 28 73 | esults.).........(copy-marker.(s |
| f61c0 | 6c 69 6d 65 2d 72 65 70 6c 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 6d 61 72 6b 65 72 20 74 | lime-repl-output-target-marker.t |
| f61e0 | 61 72 67 65 74 29 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 72 6b | arget).nil)))..(defun.slime-mark |
| f6200 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 2d 68 61 6e 64 6c 65 72 20 28 70 72 6f | -presentation-start-handler.(pro |
| f6220 | 63 65 73 73 20 73 74 72 69 6e 67 29 0a 20 20 28 69 66 20 28 61 6e 64 20 73 74 72 69 6e 67 20 28 | cess.string)...(if.(and.string.( |
| f6240 | 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 3c 5c 5c 28 5b 2d 30 2d 39 5d 2b 5c 5c 29 22 20 73 74 | string-match."<\\([-0-9]+\\)".st |
| f6260 | 72 69 6e 67 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 61 74 63 68 20 28 73 75 62 73 | ring)).......(let*.((match.(subs |
| f6280 | 74 72 69 6e 67 20 73 74 72 69 6e 67 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 31 29 | tring.string.(match-beginning.1) |
| f62a0 | 20 28 6d 61 74 63 68 2d 65 6e 64 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | .(match-end.1)))..............(i |
| f62c0 | 64 20 28 63 61 72 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 6d 61 74 63 68 29 29 | d.(car.(read-from-string.match)) |
| f62e0 | 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 61 72 6b 2d 70 72 65 73 65 6e 74 61 74 | )).........(slime-mark-presentat |
| f6300 | 69 6f 6e 2d 73 74 61 72 74 20 69 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d | ion-start.id))))..(defun.slime-m |
| f6320 | 61 72 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 20 28 69 64 20 26 6f 70 74 69 6f 6e | ark-presentation-end.(id.&option |
| f6340 | 61 6c 20 74 61 72 67 65 74 29 0a 20 20 22 4d 61 72 6b 20 74 68 65 20 65 6e 64 20 6f 66 20 61 20 | al.target)..."Mark.the.end.of.a. |
| f6360 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 67 69 76 65 6e 20 49 44 2e 0a | presentation.with.the.given.ID.. |
| f6380 | 54 41 52 47 45 54 20 63 61 6e 20 62 65 20 6e 69 6c 20 28 72 65 67 75 6c 61 72 20 70 72 6f 63 65 | TARGET.can.be.nil.(regular.proce |
| f63a0 | 73 73 20 6f 75 74 70 75 74 29 20 6f 72 20 3a 72 65 70 6c 2d 72 65 73 75 6c 74 2e 22 0a 20 20 28 | ss.output).or.:repl-result."...( |
| f63c0 | 6c 65 74 20 28 28 73 74 61 72 74 20 28 67 65 74 68 61 73 68 20 69 64 20 73 6c 69 6d 65 2d 70 72 | let.((start.(gethash.id.slime-pr |
| f63e0 | 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 2d 74 6f 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 | esentation-start-to-point))).... |
| f6400 | 20 28 72 65 6d 68 61 73 68 20 69 64 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d | .(remhash.id.slime-presentation- |
| f6420 | 73 74 61 72 74 2d 74 6f 2d 70 6f 69 6e 74 29 0a 20 20 20 20 28 77 68 65 6e 20 73 74 61 72 74 0a | start-to-point).....(when.start. |
| f6440 | 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 61 72 6b 65 72 20 28 73 6c 69 6d 65 2d 72 65 70 6c | ......(let*.((marker.(slime-repl |
| f6460 | 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 6d 61 72 6b 65 72 20 74 61 72 67 65 74 29 29 0a 20 | -output-target-marker.target)).. |
| f6480 | 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 61 6e 64 20 6d 61 72 6b 65 72 20 | ............(buffer.(and.marker. |
| f64a0 | 28 6d 61 72 6b 65 72 2d 62 75 66 66 65 72 20 6d 61 72 6b 65 72 29 29 29 29 0a 20 20 20 20 20 20 | (marker-buffer.marker))))....... |
| f64c0 | 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 | ..(with-current-buffer.buffer... |
| f64e0 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 6e 64 20 28 6d 61 72 6b 65 72 2d 70 6f 73 69 74 | ........(let.((end.(marker-posit |
| f6500 | 69 6f 6e 20 6d 61 72 6b 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | ion.marker))).............(slime |
| f6520 | 2d 61 64 64 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 69 65 73 20 73 74 61 | -add-presentation-properties.sta |
| f6540 | 72 74 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rt.end.......................... |
| f6560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 64 20 6e 69 6c 29 29 29 29 | ......................id.nil)))) |
| f6580 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 72 6b 2d 70 72 65 73 65 6e 74 61 74 | )))..(defun.slime-mark-presentat |
| f65a0 | 69 6f 6e 2d 65 6e 64 2d 68 61 6e 64 6c 65 72 20 28 70 72 6f 63 65 73 73 20 73 74 72 69 6e 67 29 | ion-end-handler.(process.string) |
| f65c0 | 0a 20 20 28 69 66 20 28 61 6e 64 20 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 | ...(if.(and.string.(string-match |
| f65e0 | 20 22 3e 5c 5c 28 5b 2d 30 2d 39 5d 2b 5c 5c 29 22 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 | .">\\([-0-9]+\\)".string))...... |
| f6600 | 20 28 6c 65 74 2a 20 28 28 6d 61 74 63 68 20 28 73 75 62 73 74 72 69 6e 67 20 73 74 72 69 6e 67 | .(let*.((match.(substring.string |
| f6620 | 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 31 29 20 28 6d 61 74 63 68 2d 65 6e 64 20 | .(match-beginning.1).(match-end. |
| f6640 | 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 64 20 28 63 61 72 20 28 72 65 61 64 | 1)))..............(id.(car.(read |
| f6660 | 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 6d 61 74 63 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 | -from-string.match)))).........( |
| f6680 | 73 6c 69 6d 65 2d 6d 61 72 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 20 69 64 29 29 | slime-mark-presentation-end.id)) |
| f66a0 | 29 29 0a 0a 28 63 6c 2d 64 65 66 73 74 72 75 63 74 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 | ))..(cl-defstruct.slime-presenta |
| f66c0 | 74 69 6f 6e 20 74 65 78 74 20 69 64 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 70 72 65 | tion.text.id)..(defvar.slime-pre |
| f66e0 | 73 65 6e 74 61 74 69 6f 6e 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 0a 20 20 28 6c 65 74 20 28 28 | sentation-syntax-table...(let.(( |
| f6700 | 74 61 62 6c 65 20 28 63 6f 70 79 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 69 73 70 2d 6d 6f | table.(copy-syntax-table.lisp-mo |
| f6720 | 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 29 0a 20 20 20 20 3b 3b 20 57 65 20 67 69 76 | de-syntax-table))).....;;.We.giv |
| f6740 | 65 20 3c 20 61 6e 64 20 3e 20 70 61 72 65 6e 74 68 65 73 69 73 20 73 79 6e 74 61 78 2c 20 73 6f | e.<.and.>.parenthesis.syntax,.so |
| f6760 | 20 74 68 61 74 20 23 3c 20 2e 2e 2e 20 3e 20 69 73 20 74 72 65 61 74 65 64 0a 20 20 20 20 3b 3b | .that.#<.....>.is.treated.....;; |
| f6780 | 20 61 73 20 61 20 62 61 6c 61 6e 63 65 64 20 65 78 70 72 65 73 73 69 6f 6e 2e 20 20 54 68 69 73 | .as.a.balanced.expression...This |
| f67a0 | 20 61 6c 6c 6f 77 73 20 74 6f 20 75 73 65 20 43 2d 4d 2d 6b 2c 20 43 2d 4d 2d 53 50 43 2c 0a 20 | .allows.to.use.C-M-k,.C-M-SPC,.. |
| f67c0 | 20 20 20 3b 3b 20 65 74 63 2e 20 74 6f 20 64 65 61 6c 20 77 69 74 68 20 61 20 77 68 6f 6c 65 20 | ...;;.etc..to.deal.with.a.whole. |
| f67e0 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 20 20 28 46 6f 72 20 4c 69 73 70 20 6d 6f 64 65 2c 20 74 | presentation...(For.Lisp.mode,.t |
| f6800 | 68 69 73 0a 20 20 20 20 3b 3b 20 69 73 20 6e 6f 74 20 64 65 73 69 72 61 62 6c 65 2c 20 73 69 6e | his.....;;.is.not.desirable,.sin |
| f6820 | 63 65 20 77 65 20 64 6f 20 6e 6f 74 20 77 69 73 68 20 74 6f 20 67 65 74 20 61 20 6d 69 73 6d 61 | ce.we.do.not.wish.to.get.a.misma |
| f6840 | 74 63 68 65 64 0a 20 20 20 20 3b 3b 20 70 61 72 65 6e 20 68 69 67 68 6c 69 67 68 74 65 64 20 65 | tched.....;;.paren.highlighted.e |
| f6860 | 76 65 72 79 74 69 6d 65 20 77 65 20 74 79 70 65 20 3c 20 6f 72 20 3e 2e 29 0a 20 20 20 20 28 6d | verytime.we.type.<.or.>.).....(m |
| f6880 | 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 3f 3c 20 22 28 3e 22 20 74 61 62 6c 65 | odify-syntax-entry.?<."(>".table |
| f68a0 | 29 0a 20 20 20 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 3f 3e 20 22 29 | ).....(modify-syntax-entry.?>.") |
| f68c0 | 3c 22 20 74 61 62 6c 65 29 0a 20 20 20 20 74 61 62 6c 65 29 0a 20 20 22 53 79 6e 74 61 78 20 74 | <".table).....table)..."Syntax.t |
| f68e0 | 61 62 6c 65 20 66 6f 72 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 22 29 0a 0a 28 64 65 66 75 | able.for.presentations.")..(defu |
| f6900 | 6e 20 73 6c 69 6d 65 2d 61 64 64 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 | n.slime-add-presentation-propert |
| f6920 | 69 65 73 20 28 73 74 61 72 74 20 65 6e 64 20 69 64 20 72 65 73 75 6c 74 2d 70 29 0a 20 20 22 4d | ies.(start.end.id.result-p)..."M |
| f6940 | 61 6b 65 20 74 68 65 20 74 65 78 74 20 62 65 74 77 65 65 6e 20 53 54 41 52 54 20 61 6e 64 20 45 | ake.the.text.between.START.and.E |
| f6960 | 4e 44 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 77 69 74 68 20 49 44 2e 0a 52 45 53 55 4c | ND.a.presentation.with.ID..RESUL |
| f6980 | 54 2d 50 20 64 65 63 69 64 65 73 20 77 68 65 74 68 65 72 20 61 20 66 61 63 65 20 66 6f 72 20 61 | T-P.decides.whether.a.face.for.a |
| f69a0 | 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 6f 72 20 6f 75 74 70 75 74 20 74 65 78 74 20 69 73 20 | .return.value.or.output.text.is. |
| f69c0 | 75 73 65 64 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 74 65 78 74 20 28 62 75 66 66 65 72 2d 73 75 | used."...(let*.((text.(buffer-su |
| f69e0 | 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 73 74 61 72 74 20 65 6e 64 29 | bstring-no-properties.start.end) |
| f6a00 | 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 6d 61 6b 65 2d 73 | )..........(presentation.(make-s |
| f6a20 | 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 3a 74 65 78 74 20 74 65 78 74 20 3a 69 64 | lime-presentation.:text.text.:id |
| f6a40 | 20 69 64 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 6d 6f 64 69 66 69 | .id))).....(let.((inhibit-modifi |
| f6a60 | 63 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 74 29 29 0a 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 | cation-hooks.t)).......(add-text |
| f6a80 | 2d 70 72 6f 70 65 72 74 69 65 73 20 73 74 61 72 74 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 | -properties.start.end........... |
| f6aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d | .................`(modification- |
| f6ac0 | 68 6f 6f 6b 73 20 28 73 6c 69 6d 65 2d 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 66 75 6e 63 74 69 | hooks.(slime-after-change-functi |
| f6ae0 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on)............................. |
| f6b00 | 20 69 6e 73 65 72 74 2d 69 6e 2d 66 72 6f 6e 74 2d 68 6f 6f 6b 73 20 28 73 6c 69 6d 65 2d 61 66 | .insert-in-front-hooks.(slime-af |
| f6b20 | 74 65 72 2d 63 68 61 6e 67 65 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ter-change-function)............ |
| f6b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 73 65 72 74 2d 62 65 68 69 6e 64 2d | ..................insert-behind- |
| f6b60 | 68 6f 6f 6b 73 20 28 73 6c 69 6d 65 2d 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 66 75 6e 63 74 69 | hooks.(slime-after-change-functi |
| f6b80 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on)............................. |
| f6ba0 | 20 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 2c 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f | .syntax-table.,slime-presentatio |
| f6bc0 | 6e 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n-syntax-table.................. |
| f6be0 | 20 20 20 20 20 20 20 20 20 20 20 20 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 74 29 29 0a 20 | ............rear-nonsticky.t)).. |
| f6c00 | 20 20 20 20 20 3b 3b 20 55 73 65 20 74 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 61 73 20 | .....;;.Use.the.presentation.as. |
| f6c20 | 74 68 65 20 6b 65 79 20 6f 66 20 61 20 74 65 78 74 20 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 | the.key.of.a.text.property...... |
| f6c40 | 20 28 63 6c 2d 63 61 73 65 20 28 2d 20 65 6e 64 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 | .(cl-case.(-.end.start)......... |
| f6c60 | 28 30 29 0a 20 20 20 20 20 20 20 20 28 31 0a 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 | (0).........(1..........(add-tex |
| f6c80 | 74 2d 70 72 6f 70 65 72 74 69 65 73 20 73 74 61 72 74 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 | t-properties.start.end.......... |
| f6ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 6c 69 6d 65 2d 72 65 70 | .....................`(slime-rep |
| f6cc0 | 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 2c 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 | l-presentation.,presentation.... |
| f6ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 70 72 | .............................,pr |
| f6d00 | 65 73 65 6e 74 61 74 69 6f 6e 20 3a 73 74 61 72 74 2d 61 6e 64 2d 65 6e 64 29 29 29 0a 20 20 20 | esentation.:start-and-end))).... |
| f6d20 | 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 | .....(t..........(add-text-prope |
| f6d40 | 72 74 69 65 73 20 73 74 61 72 74 20 28 31 2b 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 | rties.start.(1+.start).......... |
| f6d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 6c 69 6d 65 2d 72 65 70 | .....................`(slime-rep |
| f6d80 | 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 2c 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 | l-presentation.,presentation.... |
| f6da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 70 72 | .............................,pr |
| f6dc0 | 65 73 65 6e 74 61 74 69 6f 6e 20 3a 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 | esentation.:start))..........(wh |
| f6de0 | 65 6e 20 28 3e 20 28 2d 20 65 6e 64 20 73 74 61 72 74 29 20 32 29 0a 20 20 20 20 20 20 20 20 20 | en.(>.(-.end.start).2).......... |
| f6e00 | 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 31 2b 20 73 74 61 72 74 | ..(add-text-properties.(1+.start |
| f6e20 | 29 20 28 31 2d 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).(1-.end)...................... |
| f6e40 | 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 3a 69 6e 74 65 | ...........`(,presentation.:inte |
| f6e60 | 72 69 6f 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 | rior)))..........(add-text-prope |
| f6e80 | 72 74 69 65 73 20 28 31 2d 20 65 6e 64 29 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | rties.(1-.end).end.............. |
| f6ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 | .................`(slime-repl-pr |
| f6ec0 | 65 73 65 6e 74 61 74 69 6f 6e 20 2c 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 | esentation.,presentation........ |
| f6ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 70 72 65 73 65 6e | .........................,presen |
| f6f00 | 74 61 74 69 6f 6e 20 3a 65 6e 64 29 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 41 6c 73 6f 20 70 75 | tation.:end)))).......;;.Also.pu |
| f6f20 | 74 20 61 6e 20 6f 76 65 72 6c 61 79 20 66 6f 72 20 74 68 65 20 66 61 63 65 20 61 6e 64 20 74 68 | t.an.overlay.for.the.face.and.th |
| f6f40 | 65 20 6d 6f 75 73 65 2d 66 61 63 65 2e 20 20 54 68 69 73 20 65 6e 61 62 6c 65 73 0a 20 20 20 20 | e.mouse-face...This.enables..... |
| f6f60 | 20 20 3b 3b 20 68 69 67 68 6c 69 67 68 74 69 6e 67 20 6f 66 20 6e 65 73 74 65 64 20 70 72 65 73 | ..;;.highlighting.of.nested.pres |
| f6f80 | 65 6e 74 61 74 69 6f 6e 73 2e 20 20 48 6f 77 65 76 65 72 2c 20 6f 76 65 72 6c 61 79 73 20 67 65 | entations...However,.overlays.ge |
| f6fa0 | 74 20 6c 6f 73 74 0a 20 20 20 20 20 20 3b 3b 20 77 68 65 6e 20 77 65 20 63 6f 70 79 20 61 20 70 | t.lost.......;;.when.we.copy.a.p |
| f6fc0 | 72 65 73 65 6e 74 61 74 69 6f 6e 3b 20 74 68 65 69 72 20 72 65 6d 6f 76 61 6c 20 69 73 20 61 6c | resentation;.their.removal.is.al |
| f6fe0 | 73 6f 20 6e 6f 74 20 75 6e 64 6f 61 62 6c 65 2e 0a 20 20 20 20 20 20 3b 3b 20 49 6e 20 74 68 65 | so.not.undoable........;;.In.the |
| f7000 | 73 65 20 63 61 73 65 73 20 74 68 65 20 6d 6f 75 73 65 2d 66 61 63 65 20 74 65 78 74 20 70 72 6f | se.cases.the.mouse-face.text.pro |
| f7020 | 70 65 72 74 69 65 73 20 6e 65 65 64 20 74 6f 20 74 61 6b 65 20 6f 76 65 72 20 2d 2d 2d 0a 20 20 | perties.need.to.take.over.---... |
| f7040 | 20 20 20 20 3b 3b 20 62 75 74 20 74 68 65 79 20 64 6f 20 6e 6f 74 20 67 69 76 65 20 6e 65 73 74 | ....;;.but.they.do.not.give.nest |
| f7060 | 65 64 20 68 69 67 68 6c 69 67 68 74 69 6e 67 2e 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 6e | ed.highlighting........(slime-en |
| f7080 | 73 75 72 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6f 76 65 72 6c 61 79 20 73 74 61 72 74 20 | sure-presentation-overlay.start. |
| f70a0 | 65 6e 64 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c | end.presentation))))..(defvar.sl |
| f70c0 | 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 | ime-presentation-map.(make-spars |
| f70e0 | 65 2d 6b 65 79 6d 61 70 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 6e 73 75 72 65 2d | e-keymap))..(defun.slime-ensure- |
| f7100 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6f 76 65 72 6c 61 79 20 28 73 74 61 72 74 20 65 6e 64 20 | presentation-overlay.(start.end. |
| f7120 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 63 6c 2d 66 69 6e 64 | presentation)...(unless.(cl-find |
| f7140 | 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 6f 76 65 72 6c 61 79 73 2d 61 74 20 73 74 61 72 74 | .presentation.(overlays-at.start |
| f7160 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 28 6c 61 6d 62 64 | )....................:key.(lambd |
| f7180 | 61 20 28 6f 76 65 72 6c 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | a.(overlay)..................... |
| f71a0 | 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 65 72 6c 61 79 20 27 73 6c 69 6d | ......(overlay-get.overlay.'slim |
| f71c0 | 65 2d 72 65 70 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 6c 65 74 20 | e-repl-presentation))).....(let. |
| f71e0 | 28 28 6f 76 65 72 6c 61 79 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 73 74 61 72 74 20 65 6e | ((overlay.(make-overlay.start.en |
| f7200 | 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 20 6e 69 6c 29 29 29 0a 20 20 20 20 | d.(current-buffer).t.nil)))..... |
| f7220 | 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 73 6c 69 6d 65 2d 72 65 | ..(overlay-put.overlay.'slime-re |
| f7240 | 70 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 | pl-presentation.presentation)... |
| f7260 | 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 6d 6f 75 73 65 2d | ....(overlay-put.overlay.'mouse- |
| f7280 | 66 61 63 65 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 75 74 70 75 74 2d 6d 6f 75 73 65 6f 76 65 | face.'slime-repl-output-mouseove |
| f72a0 | 72 2d 66 61 63 65 29 0a 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c | r-face).......(overlay-put.overl |
| f72c0 | 61 79 20 27 68 65 6c 70 2d 65 63 68 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ay.'help-echo................... |
| f72e0 | 20 28 69 66 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d | .(if.(eq.major-mode.'slime-repl- |
| f7300 | 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6d 6f | mode)........................"mo |
| f7320 | 75 73 65 2d 32 3a 20 63 6f 70 79 20 74 6f 20 69 6e 70 75 74 3b 20 6d 6f 75 73 65 2d 33 3a 20 6d | use-2:.copy.to.input;.mouse-3:.m |
| f7340 | 65 6e 75 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6d 6f 75 73 65 | enu"......................"mouse |
| f7360 | 2d 32 3a 20 69 6e 73 70 65 63 74 3b 20 6d 6f 75 73 65 2d 33 3a 20 6d 65 6e 75 22 29 29 0a 20 20 | -2:.inspect;.mouse-3:.menu"))... |
| f7380 | 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 66 61 63 65 20 27 | ....(overlay-put.overlay.'face.' |
| f73a0 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 65 64 2d 6f 75 74 70 75 74 2d 66 61 63 65 29 0a | slime-repl-inputed-output-face). |
| f73c0 | 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 6b 65 79 6d | ......(overlay-put.overlay.'keym |
| f73e0 | 61 70 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 61 70 29 29 29 29 0a 0a 28 | ap.slime-presentation-map))))..( |
| f7400 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d | defun.slime-remove-presentation- |
| f7420 | 70 72 6f 70 65 72 74 69 65 73 20 28 66 72 6f 6d 20 74 6f 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | properties.(from.to.presentation |
| f7440 | 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 | )...(let.((inhibit-read-only.t)) |
| f7460 | 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 66 72 6f | .....(remove-text-properties.fro |
| f7480 | 6d 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m.to............................ |
| f74a0 | 20 60 28 2c 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 74 20 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 | .`(,presentation.t.syntax-table. |
| f74c0 | 74 20 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 74 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 | t.rear-nonsticky.t)).....(when.( |
| f74e0 | 65 71 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 66 72 6f 6d 20 27 73 6c 69 6d | eq.(get-text-property.from.'slim |
| f7500 | 65 2d 72 65 70 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 20 70 72 65 73 65 6e 74 61 74 69 6f | e-repl-presentation).presentatio |
| f7520 | 6e 29 0a 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 | n).......(remove-text-properties |
| f7540 | 20 66 72 6f 6d 20 28 31 2b 20 66 72 6f 6d 29 20 60 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 | .from.(1+.from).`(slime-repl-pre |
| f7560 | 73 65 6e 74 61 74 69 6f 6e 20 74 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 67 65 | sentation.t))).....(when.(eq.(ge |
| f7580 | 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 31 2d 20 74 6f 29 20 27 73 6c 69 6d 65 2d 72 | t-text-property.(1-.to).'slime-r |
| f75a0 | 65 70 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a | epl-presentation).presentation). |
| f75c0 | 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 31 | ......(remove-text-properties.(1 |
| f75e0 | 2d 20 74 6f 29 20 74 6f 20 60 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 73 65 6e 74 61 74 69 | -.to).to.`(slime-repl-presentati |
| f7600 | 6f 6e 20 74 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6f 76 65 72 6c 61 79 20 28 6f 76 | on.t))).....(dolist.(overlay.(ov |
| f7620 | 65 72 6c 61 79 73 2d 61 74 20 66 72 6f 6d 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 | erlays-at.from)).......(when.(eq |
| f7640 | 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 65 72 6c 61 79 20 27 73 6c 69 6d 65 2d 72 65 70 | .(overlay-get.overlay.'slime-rep |
| f7660 | 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 | l-presentation).presentation)... |
| f7680 | 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 6f 76 65 72 6c 61 79 20 6f 76 65 72 6c 61 79 29 29 29 | ......(delete-overlay.overlay))) |
| f76a0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 65 73 65 6e 74 61 | ))..(defun.slime-insert-presenta |
| f76c0 | 74 69 6f 6e 20 28 73 74 72 69 6e 67 20 6f 75 74 70 75 74 2d 69 64 20 26 6f 70 74 69 6f 6e 61 6c | tion.(string.output-id.&optional |
| f76e0 | 20 72 65 63 74 61 6e 67 6c 65 29 0a 20 20 22 49 6e 73 65 72 74 20 53 54 52 49 4e 47 20 69 6e 20 | .rectangle)..."Insert.STRING.in. |
| f7700 | 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 61 6e 64 20 6d 61 72 6b 20 69 74 20 61 73 20 61 20 | current.buffer.and.mark.it.as.a. |
| f7720 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 4f 55 | presentation.corresponding.to.OU |
| f7740 | 54 50 55 54 2d 49 44 2e 20 20 49 66 20 52 45 43 54 41 4e 47 4c 45 20 69 73 20 74 72 75 65 2c 20 | TPUT-ID...If.RECTANGLE.is.true,. |
| f7760 | 69 6e 64 65 6e 74 20 6d 75 6c 74 69 2d 6c 69 6e 65 0a 73 74 72 69 6e 67 73 20 74 6f 20 6c 69 6e | indent.multi-line.strings.to.lin |
| f7780 | 65 20 75 70 20 62 65 6c 6f 77 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 6f 69 6e 74 2e 22 0a 20 | e.up.below.the.current.point.".. |
| f77a0 | 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 69 6e 73 65 72 74 2d 69 74 20 28 29 0a 20 20 20 20 20 | .(cl-labels.((insert-it.()...... |
| f77c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 72 65 63 74 61 6e 67 6c 65 0a | ..................(if.rectangle. |
| f77e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | ...........................(slim |
| f7800 | 65 2d 69 6e 73 65 72 74 2d 69 6e 64 65 6e 74 65 64 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 | e-insert-indented.string)....... |
| f7820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 73 74 72 69 6e | ...................(insert.strin |
| f7840 | 67 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 29 | g)))).....(let.((start.(point))) |
| f7860 | 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 69 74 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | .......(insert-it).......(slime- |
| f7880 | 61 64 64 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 69 65 73 20 73 74 61 72 | add-presentation-properties.star |
| f78a0 | 74 20 28 70 6f 69 6e 74 29 20 6f 75 74 70 75 74 2d 69 64 20 74 29 29 29 29 0a 0a 28 64 65 66 75 | t.(point).output-id.t))))..(defu |
| f78c0 | 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 77 68 6f 6c 65 2d 70 20 28 70 72 | n.slime-presentation-whole-p.(pr |
| f78e0 | 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 6f | esentation.start.end.&optional.o |
| f7900 | 62 6a 65 63 74 29 0a 20 20 28 6c 65 74 20 28 28 6f 62 6a 65 63 74 20 28 6f 72 20 6f 62 6a 65 63 | bject)...(let.((object.(or.objec |
| f7920 | 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 28 73 74 72 69 6e | t.(current-buffer)))).....(strin |
| f7940 | 67 3d 20 28 63 6c 2d 65 74 79 70 65 63 61 73 65 20 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 | g=.(cl-etypecase.object......... |
| f7960 | 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 | .......(buffer.(with-current-buf |
| f7980 | 66 65 72 20 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fer.object...................... |
| f79a0 | 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 | ....(buffer-substring-no-propert |
| f79c0 | 69 65 73 20 73 74 61 72 74 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ies.start.end)))................ |
| f79e0 | 28 73 74 72 69 6e 67 20 28 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 | (string.(substring-no-properties |
| f7a00 | 20 6f 62 6a 65 63 74 20 73 74 61 72 74 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .object.start.end)))............ |
| f7a20 | 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 65 78 74 20 70 72 65 73 65 | ..(slime-presentation-text.prese |
| f7a40 | 6e 74 61 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e | ntation))))..(defun.slime-presen |
| f7a60 | 74 61 74 69 6f 6e 73 2d 61 72 6f 75 6e 64 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 20 26 6f 70 74 | tations-around-point.(point.&opt |
| f7a80 | 69 6f 6e 61 6c 20 6f 62 6a 65 63 74 29 0a 20 20 28 6c 65 74 20 28 28 6f 62 6a 65 63 74 20 28 6f | ional.object)...(let.((object.(o |
| f7aa0 | 72 20 6f 62 6a 65 63 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 | r.object.(current-buffer)))).... |
| f7ac0 | 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6b 65 79 20 76 61 6c 75 65 20 2e 20 72 65 73 74 29 | .(cl-loop.for.(key.value...rest) |
| f7ae0 | 20 6f 6e 20 28 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 2d 61 74 20 70 6f 69 6e 74 20 6f 62 | .on.(text-properties-at.point.ob |
| f7b00 | 6a 65 63 74 29 20 62 79 20 27 63 64 64 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e | ject).by.'cddr..............when |
| f7b20 | 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 70 20 6b 65 79 29 0a 20 20 20 20 | .(slime-presentation-p.key)..... |
| f7b40 | 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 6b 65 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 | .........collect.key)))..(defun. |
| f7b60 | 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 2d 70 20 28 74 61 67 29 | slime-presentation-start-p.(tag) |
| f7b80 | 0a 20 20 28 6d 65 6d 71 20 74 61 67 20 27 28 3a 73 74 61 72 74 20 3a 73 74 61 72 74 2d 61 6e 64 | ...(memq.tag.'(:start.:start-and |
| f7ba0 | 2d 65 6e 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 | -end)))..(defun.slime-presentati |
| f7bc0 | 6f 6e 2d 73 74 6f 70 2d 70 20 28 74 61 67 29 0a 20 20 28 6d 65 6d 71 20 74 61 67 20 27 28 3a 65 | on-stop-p.(tag)...(memq.tag.'(:e |
| f7be0 | 6e 64 20 3a 73 74 61 72 74 2d 61 6e 64 2d 65 6e 64 29 29 29 0a 0a 28 63 6c 2d 64 65 66 75 6e 20 | nd.:start-and-end)))..(cl-defun. |
| f7c00 | 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 20 28 70 6f 69 6e 74 20 | slime-presentation-start.(point. |
| f7c20 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | presentation.................... |
| f7c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6f 70 74 69 6f 6e 61 6c | .......................&optional |
| f7c60 | 20 28 6f 62 6a 65 63 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 22 46 | .(object.(current-buffer)))..."F |
| f7c80 | 69 6e 64 20 73 74 61 72 74 20 6f 66 20 60 70 72 65 73 65 6e 74 61 74 69 6f 6e 27 20 61 74 20 60 | ind.start.of.`presentation'.at.` |
| f7ca0 | 70 6f 69 6e 74 27 20 69 6e 20 60 6f 62 6a 65 63 74 27 2e 0a 52 65 74 75 72 6e 20 62 75 66 66 65 | point'.in.`object'..Return.buffe |
| f7cc0 | 72 20 69 6e 64 65 78 20 61 6e 64 20 77 68 65 74 68 65 72 20 61 20 73 74 61 72 74 2d 74 61 67 20 | r.index.and.whether.a.start-tag. |
| f7ce0 | 77 61 73 20 66 6f 75 6e 64 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 74 68 69 73 2d 70 72 65 73 65 | was.found."...(let*.((this-prese |
| f7d00 | 6e 74 61 74 69 6f 6e 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 6f 69 6e 74 | ntation.(get-text-property.point |
| f7d20 | 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 28 77 68 69 | .presentation.object))).....(whi |
| f7d40 | 6c 65 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 | le.(not.(slime-presentation-star |
| f7d60 | 74 2d 70 20 74 68 69 73 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 28 6c | t-p.this-presentation)).......(l |
| f7d80 | 65 74 20 28 28 63 68 61 6e 67 65 2d 70 6f 69 6e 74 20 28 70 72 65 76 69 6f 75 73 2d 73 69 6e 67 | et.((change-point.(previous-sing |
| f7da0 | 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-property-change.............. |
| f7dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 69 6e 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | ..............point.presentation |
| f7de0 | 20 6f 62 6a 65 63 74 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 | .object.(point-min)))).........( |
| f7e00 | 75 6e 6c 65 73 73 20 63 68 61 6e 67 65 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 28 63 | unless.change-point...........(c |
| f7e20 | 6c 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e | l-return-from.slime-presentation |
| f7e40 | 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 28 63 | -start.............(cl-values.(c |
| f7e60 | 6c 2d 65 74 79 70 65 63 61 73 65 20 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-etypecase.object.............. |
| f7e80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 77 69 74 68 2d 63 75 72 72 65 6e | ............(buffer.(with-curren |
| f7ea0 | 74 2d 62 75 66 66 65 72 20 6f 62 6a 65 63 74 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | t-buffer.object.1))............. |
| f7ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 30 29 29 0a 20 20 20 20 20 20 20 | .............(string.0))........ |
| f7ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 | ................nil))).........( |
| f7f00 | 73 65 74 71 20 74 68 69 73 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 67 65 74 2d 74 65 78 74 | setq.this-presentation.(get-text |
| f7f20 | 2d 70 72 6f 70 65 72 74 79 20 63 68 61 6e 67 65 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 | -property.change-point.......... |
| f7f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| f7f60 | 20 20 20 20 20 20 20 20 20 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 62 6a 65 63 74 29 29 0a | ..........presentation.object)). |
| f7f80 | 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 74 68 69 73 2d 70 72 65 73 65 6e 74 61 74 69 6f | ........(unless.this-presentatio |
| f7fa0 | 6e 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 20 73 6c 69 6d | n...........(cl-return-from.slim |
| f7fc0 | 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 | e-presentation-start............ |
| f7fe0 | 20 28 63 6c 2d 76 61 6c 75 65 73 20 70 6f 69 6e 74 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 | .(cl-values.point.nil)))........ |
| f8000 | 20 28 73 65 74 71 20 70 6f 69 6e 74 20 63 68 61 6e 67 65 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 | .(setq.point.change-point))).... |
| f8020 | 20 28 63 6c 2d 76 61 6c 75 65 73 20 70 6f 69 6e 74 20 74 29 29 29 0a 0a 28 63 6c 2d 64 65 66 75 | .(cl-values.point.t)))..(cl-defu |
| f8040 | 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 20 28 70 6f 69 6e 74 20 | n.slime-presentation-end.(point. |
| f8060 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | presentation.................... |
| f8080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6f 70 74 69 6f 6e 61 6c 20 28 | .....................&optional.( |
| f80a0 | 6f 62 6a 65 63 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 22 46 69 6e | object.(current-buffer)))..."Fin |
| f80c0 | 64 20 65 6e 64 20 6f 66 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 61 74 20 60 70 6f 69 6e 74 27 | d.end.of.presentation.at.`point' |
| f80e0 | 20 69 6e 20 60 6f 62 6a 65 63 74 27 2e 20 20 52 65 74 75 72 6e 20 62 75 66 66 65 72 0a 69 6e 64 | .in.`object'...Return.buffer.ind |
| f8100 | 65 78 20 28 61 66 74 65 72 20 6c 61 73 74 20 63 68 61 72 61 63 74 65 72 20 6f 66 20 74 68 65 20 | ex.(after.last.character.of.the. |
| f8120 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 20 61 6e 64 20 77 68 65 74 68 65 72 20 61 6e 0a 65 6e 64 | presentation).and.whether.an.end |
| f8140 | 2d 74 61 67 20 77 61 73 20 66 6f 75 6e 64 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 74 68 69 73 2d | -tag.was.found."...(let*.((this- |
| f8160 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 | presentation.(get-text-property. |
| f8180 | 70 6f 69 6e 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 | point.presentation.object))).... |
| f81a0 | 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e | .(while.(not.(slime-presentation |
| f81c0 | 2d 73 74 6f 70 2d 70 20 74 68 69 73 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 0a 20 20 20 20 | -stop-p.this-presentation))..... |
| f81e0 | 20 20 28 6c 65 74 20 28 28 63 68 61 6e 67 65 2d 70 6f 69 6e 74 20 28 6e 65 78 74 2d 73 69 6e 67 | ..(let.((change-point.(next-sing |
| f8200 | 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-property-change.............. |
| f8220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 69 6e 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | ..............point.presentation |
| f8240 | 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 63 68 61 6e 67 | .object))).........(unless.chang |
| f8260 | 65 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 74 75 72 6e 2d 66 72 6f | e-point...........(cl-return-fro |
| f8280 | 6d 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 0a 20 20 20 20 20 20 20 | m.slime-presentation-end........ |
| f82a0 | 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 28 63 6c 2d 65 74 79 70 65 63 61 73 65 20 6f 62 | .....(cl-values.(cl-etypecase.ob |
| f82c0 | 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 | ject..........................(b |
| f82e0 | 75 66 66 65 72 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 6f 62 6a 65 63 | uffer.(with-current-buffer.objec |
| f8300 | 74 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.(point-max)))................. |
| f8320 | 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 28 6c 65 6e 67 74 68 20 6f 62 6a 65 63 74 29 | .........(string.(length.object) |
| f8340 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 | ))........................nil))) |
| f8360 | 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 6f 69 6e 74 20 63 68 61 6e 67 65 2d 70 6f 69 6e | .........(setq.point.change-poin |
| f8380 | 74 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 68 69 73 2d 70 72 65 73 65 6e 74 61 74 69 | t).........(setq.this-presentati |
| f83a0 | 6f 6e 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 6f 69 6e 74 0a 20 20 20 20 | on.(get-text-property.point..... |
| f83c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| f83e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 62 6a 65 | ...............presentation.obje |
| f8400 | 63 74 29 29 29 29 0a 20 20 20 20 28 69 66 20 74 68 69 73 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e | ct)))).....(if.this-presentation |
| f8420 | 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 66 74 65 72 2d 65 6e 64 20 28 6e 65 78 74 2d | .........(let.((after-end.(next- |
| f8440 | 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 70 6f 69 6e 74 0a 20 20 20 | single-property-change.point.... |
| f8460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| f8480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 | ...................presentation. |
| f84a0 | 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 61 66 74 | object)))...........(if.(not.aft |
| f84c0 | 65 72 2d 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 | er-end)...............(cl-values |
| f84e0 | 20 28 63 6c 2d 65 74 79 70 65 63 61 73 65 20 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 | .(cl-etypecase.object........... |
| f8500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 77 69 74 68 2d 63 | .................(buffer.(with-c |
| f8520 | 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 6f 62 6a 65 63 74 20 28 70 6f 69 6e 74 2d 6d 61 78 29 | urrent-buffer.object.(point-max) |
| f8540 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ))............................(s |
| f8560 | 74 72 69 6e 67 20 28 6c 65 6e 67 74 68 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 20 20 20 20 | tring.(length.object)))......... |
| f8580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .................t)............. |
| f85a0 | 28 63 6c 2d 76 61 6c 75 65 73 20 61 66 74 65 72 2d 65 6e 64 20 74 29 29 29 0a 20 20 20 20 20 20 | (cl-values.after-end.t)))....... |
| f85c0 | 28 63 6c 2d 76 61 6c 75 65 73 20 70 6f 69 6e 74 20 6e 69 6c 29 29 29 29 0a 0a 28 63 6c 2d 64 65 | (cl-values.point.nil))))..(cl-de |
| f85e0 | 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 62 6f 75 6e 64 73 20 28 70 | fun.slime-presentation-bounds.(p |
| f8600 | 6f 69 6e 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | oint.presentation............... |
| f8620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6f 70 | .............................&op |
| f8640 | 74 69 6f 6e 61 6c 20 28 6f 62 6a 65 63 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 | tional.(object.(current-buffer)) |
| f8660 | 29 0a 20 20 22 52 65 74 75 72 6e 20 73 74 61 72 74 20 69 6e 64 65 78 20 61 6e 64 20 65 6e 64 20 | )..."Return.start.index.and.end. |
| f8680 | 69 6e 64 65 78 20 6f 66 20 60 70 72 65 73 65 6e 74 61 74 69 6f 6e 27 20 61 72 6f 75 6e 64 20 60 | index.of.`presentation'.around.` |
| f86a0 | 70 6f 69 6e 74 27 0a 69 6e 20 60 6f 62 6a 65 63 74 27 2c 20 61 6e 64 20 77 68 65 74 68 65 72 20 | point'.in.`object',.and.whether. |
| f86c0 | 74 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 69 73 20 63 6f 6d 70 6c 65 74 65 2e 22 0a 20 | the.presentation.is.complete.".. |
| f86e0 | 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 74 61 72 74 20 | .(cl-multiple-value-bind.(start. |
| f8700 | 67 6f 6f 64 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 | good-start).......(slime-present |
| f8720 | 61 74 69 6f 6e 2d 73 74 61 72 74 20 70 6f 69 6e 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f | ation-start.point.presentation.o |
| f8740 | 62 6a 65 63 74 29 0a 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 | bject).....(cl-multiple-value-bi |
| f8760 | 6e 64 20 28 65 6e 64 20 67 6f 6f 64 2d 65 6e 64 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | nd.(end.good-end).........(slime |
| f8780 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 20 70 6f 69 6e 74 20 70 72 65 73 65 6e 74 61 | -presentation-end.point.presenta |
| f87a0 | 74 69 6f 6e 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 73 74 | tion.object).......(cl-values.st |
| f87c0 | 61 72 74 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 67 6f | art.end..................(and.go |
| f87e0 | 6f 64 2d 73 74 61 72 74 20 67 6f 6f 64 2d 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | od-start.good-end............... |
| f8800 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 77 68 6f 6c | ........(slime-presentation-whol |
| f8820 | 65 2d 70 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-p.presentation................ |
| f8840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| f8860 | 20 20 20 73 74 61 72 74 20 65 6e 64 20 6f 62 6a 65 63 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 | ...start.end.object))))))..(defu |
| f8880 | 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 70 6f 69 6e | n.slime-presentation-around-poin |
| f88a0 | 74 20 28 70 6f 69 6e 74 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 62 6a 65 63 74 29 0a 20 20 22 52 65 | t.(point.&optional.object)..."Re |
| f88c0 | 74 75 72 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 73 74 61 72 74 20 69 6e 64 65 78 2c 20 | turn.presentation,.start.index,. |
| f88e0 | 65 6e 64 20 69 6e 64 65 78 2c 20 61 6e 64 20 77 68 65 74 68 65 72 20 74 68 65 0a 70 72 65 73 65 | end.index,.and.whether.the.prese |
| f8900 | 6e 74 61 74 69 6f 6e 20 69 73 20 63 6f 6d 70 6c 65 74 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 6f | ntation.is.complete."...(let.((o |
| f8920 | 62 6a 65 63 74 20 28 6f 72 20 6f 62 6a 65 63 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 | bject.(or.object.(current-buffer |
| f8940 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 6e 65 72 6d 6f 73 74 2d 70 72 65 73 65 6e 74 61 74 | ))).........(innermost-presentat |
| f8960 | 69 6f 6e 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 69 6e 6e 65 72 6d 6f 73 74 2d 73 74 61 72 | ion.nil).........(innermost-star |
| f8980 | 74 20 30 29 0a 20 20 20 20 20 20 20 20 28 69 6e 6e 65 72 6d 6f 73 74 2d 65 6e 64 20 6d 6f 73 74 | t.0).........(innermost-end.most |
| f89a0 | 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 | -positive-fixnum)).....(dolist.( |
| f89c0 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e | presentation.(slime-presentation |
| f89e0 | 73 2d 61 72 6f 75 6e 64 2d 70 6f 69 6e 74 20 70 6f 69 6e 74 20 6f 62 6a 65 63 74 29 29 0a 20 20 | s-around-point.point.object))... |
| f8a00 | 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 74 61 | ....(cl-multiple-value-bind.(sta |
| f8a20 | 72 74 20 65 6e 64 20 77 68 6f 6c 65 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | rt.end.whole-p)...........(slime |
| f8a40 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 62 6f 75 6e 64 73 20 70 6f 69 6e 74 20 70 72 65 73 65 | -presentation-bounds.point.prese |
| f8a60 | 6e 74 61 74 69 6f 6e 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 77 68 | ntation.object).........(when.wh |
| f8a80 | 6f 6c 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3c 20 28 2d 20 65 6e 64 20 | ole-p...........(when.(<.(-.end. |
| f8aa0 | 73 74 61 72 74 29 20 28 2d 20 69 6e 6e 65 72 6d 6f 73 74 2d 65 6e 64 20 69 6e 6e 65 72 6d 6f 73 | start).(-.innermost-end.innermos |
| f8ac0 | 74 2d 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 6e 6e 65 | t-start)).............(setq.inne |
| f8ae0 | 72 6d 6f 73 74 2d 73 74 61 72 74 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rmost-start.start............... |
| f8b00 | 20 20 20 20 69 6e 6e 65 72 6d 6f 73 74 2d 65 6e 64 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 | ....innermost-end.end........... |
| f8b20 | 20 20 20 20 20 20 20 20 69 6e 6e 65 72 6d 6f 73 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 | ........innermost-presentation.p |
| f8b40 | 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 | resentation))))).....(cl-values. |
| f8b60 | 69 6e 6e 65 72 6d 6f 73 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | innermost-presentation.......... |
| f8b80 | 20 20 20 20 20 20 69 6e 6e 65 72 6d 6f 73 74 2d 73 74 61 72 74 20 69 6e 6e 65 72 6d 6f 73 74 2d | ......innermost-start.innermost- |
| f8ba0 | 65 6e 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f | end)))..(defun.slime-presentatio |
| f8bc0 | 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 20 | n-around-or-before-point.(point. |
| f8be0 | 26 6f 70 74 69 6f 6e 61 6c 20 6f 62 6a 65 63 74 29 0a 20 20 28 6c 65 74 20 28 28 6f 62 6a 65 63 | &optional.object)...(let.((objec |
| f8c00 | 74 20 28 6f 72 20 6f 62 6a 65 63 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 | t.(or.object.(current-buffer)))) |
| f8c20 | 0a 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 | .....(cl-multiple-value-bind.(pr |
| f8c40 | 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 77 68 6f 6c 65 2d 70 29 0a 20 20 | esentation.start.end.whole-p)... |
| f8c60 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 | ......(slime-presentation-around |
| f8c80 | 2d 70 6f 69 6e 74 20 70 6f 69 6e 74 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 28 69 66 20 28 | -point.point.object).......(if.( |
| f8ca0 | 6f 72 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 3d 20 70 6f 69 6e 74 20 28 70 6f 69 6e 74 2d | or.presentation.(=.point.(point- |
| f8cc0 | 6d 69 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 70 72 65 73 | min)))...........(cl-values.pres |
| f8ce0 | 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 77 68 6f 6c 65 2d 70 29 0a 20 20 20 20 | entation.start.end.whole-p)..... |
| f8d00 | 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 70 | ....(slime-presentation-around-p |
| f8d20 | 6f 69 6e 74 20 28 31 2d 20 70 6f 69 6e 74 29 20 6f 62 6a 65 63 74 29 29 29 29 29 0a 0a 28 64 65 | oint.(1-.point).object)))))..(de |
| f8d40 | 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 | fun.slime-presentation-around-or |
| f8d60 | 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 20 28 70 6f 69 6e 74 29 0a 20 | -before-point-or-error.(point).. |
| f8d80 | 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e | .(cl-multiple-value-bind.(presen |
| f8da0 | 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 77 68 6f 6c 65 2d 70 29 0a 20 20 20 20 20 20 | tation.start.end.whole-p)....... |
| f8dc0 | 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 | (slime-presentation-around-or-be |
| f8de0 | 66 6f 72 65 2d 70 6f 69 6e 74 20 70 6f 69 6e 74 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 70 72 | fore-point.point).....(unless.pr |
| f8e00 | 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 70 72 65 73 | esentation.......(error."No.pres |
| f8e20 | 65 6e 74 61 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 22 29 29 0a 20 20 20 20 28 63 6c 2d 76 61 6c | entation.at.point")).....(cl-val |
| f8e40 | 75 65 73 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 77 68 6f 6c 65 | ues.presentation.start.end.whole |
| f8e60 | 2d 70 29 29 29 0a 0a 28 63 6c 2d 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 6f 72 2d 65 61 63 68 2d | -p)))..(cl-defun.slime-for-each- |
| f8e80 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 6e 2d 72 65 67 69 6f 6e 20 28 66 72 6f 6d 20 74 6f 20 | presentation-in-region.(from.to. |
| f8ea0 | 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | function........................ |
| f8ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 | ...............................& |
| f8ee0 | 6f 70 74 69 6f 6e 61 6c 20 28 6f 62 6a 65 63 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 | optional.(object.(current-buffer |
| f8f00 | 29 29 29 0a 20 20 22 43 61 6c 6c 20 60 66 75 6e 63 74 69 6f 6e 27 20 77 69 74 68 20 61 72 67 75 | )))..."Call.`function'.with.argu |
| f8f20 | 6d 65 6e 74 73 20 60 70 72 65 73 65 6e 74 61 74 69 6f 6e 27 2c 20 60 73 74 61 72 74 27 2c 20 60 | ments.`presentation',.`start',.` |
| f8f40 | 65 6e 64 27 2c 0a 60 77 68 6f 6c 65 2d 70 27 20 66 6f 72 20 65 76 65 72 79 20 70 72 65 73 65 6e | end',.`whole-p'.for.every.presen |
| f8f60 | 74 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 72 65 67 69 6f 6e 20 60 66 72 6f 6d 27 2d 2d 60 74 6f | tation.in.the.region.`from'--`to |
| f8f80 | 27 20 69 6e 20 74 68 65 0a 73 74 72 69 6e 67 20 6f 72 20 62 75 66 66 65 72 20 60 6f 62 6a 65 63 | '.in.the.string.or.buffer.`objec |
| f8fa0 | 74 27 2e 22 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 68 61 6e 64 6c 65 2d 70 72 65 73 65 | t'."...(cl-labels.((handle-prese |
| f8fc0 | 6e 74 61 74 69 6f 6e 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 6f 69 6e 74 29 0a 20 20 20 | ntation.(presentation.point).... |
| f8fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| f9000 | 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 74 61 72 74 20 65 | (cl-multiple-value-bind.(start.e |
| f9020 | 6e 64 20 77 68 6f 6c 65 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd.whole-p)..................... |
| f9040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e | ...................(slime-presen |
| f9060 | 74 61 74 69 6f 6e 2d 62 6f 75 6e 64 73 20 70 6f 69 6e 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | tation-bounds.point.presentation |
| f9080 | 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .object)........................ |
| f90a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 | ..............(funcall.function. |
| f90c0 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 77 68 6f 6c 65 2d 70 29 29 | presentation.start.end.whole-p)) |
| f90e0 | 29 29 0a 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 61 | )).....;;.Handle.presentations.a |
| f9100 | 63 74 69 76 65 20 61 74 20 60 66 72 6f 6d 27 2e 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 70 72 | ctive.at.`from'......(dolist.(pr |
| f9120 | 65 73 65 6e 74 61 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2d | esentation.(slime-presentations- |
| f9140 | 61 72 6f 75 6e 64 2d 70 6f 69 6e 74 20 66 72 6f 6d 20 6f 62 6a 65 63 74 29 29 0a 20 20 20 20 20 | around-point.from.object))...... |
| f9160 | 20 28 68 61 6e 64 6c 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 72 65 73 65 6e 74 61 74 69 | .(handle-presentation.presentati |
| f9180 | 6f 6e 20 66 72 6f 6d 29 29 0a 20 20 20 20 3b 3b 20 55 73 65 20 74 68 65 20 60 73 6c 69 6d 65 2d | on.from)).....;;.Use.the.`slime- |
| f91a0 | 72 65 70 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 27 20 70 72 6f 70 65 72 74 79 20 74 6f 20 73 | repl-presentation'.property.to.s |
| f91c0 | 65 61 72 63 68 20 66 6f 72 20 6e 65 77 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 0a 20 20 20 | earch.for.new.presentations..... |
| f91e0 | 20 28 6c 65 74 20 28 28 70 6f 69 6e 74 20 66 72 6f 6d 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c | .(let.((point.from)).......(whil |
| f9200 | 65 20 28 3c 20 70 6f 69 6e 74 20 74 6f 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 6f 69 | e.(<.point.to).........(setq.poi |
| f9220 | 6e 74 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 | nt.(next-single-property-change. |
| f9240 | 70 6f 69 6e 74 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 | point.'slime-repl-presentation.. |
| f9260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| f9280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 74 6f 29 29 0a 20 20 20 20 | ................object.to))..... |
| f92a0 | 20 20 20 20 28 6c 65 74 2a 20 28 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 67 65 74 2d 74 65 | ....(let*.((presentation.(get-te |
| f92c0 | 78 74 2d 70 72 6f 70 65 72 74 79 20 70 6f 69 6e 74 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 | xt-property.point.'slime-repl-pr |
| f92e0 | 65 73 65 6e 74 61 74 69 6f 6e 20 6f 62 6a 65 63 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | esentation.object))............. |
| f9300 | 20 20 20 28 73 74 61 74 75 73 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 6f | ...(status.(get-text-property.po |
| f9320 | 69 6e 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 20 | int.presentation.object)))...... |
| f9340 | 20 20 20 20 20 28 77 68 65 6e 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 | .....(when.(slime-presentation-s |
| f9360 | 74 61 72 74 2d 70 20 73 74 61 74 75 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 | tart-p.status).............(hand |
| f9380 | 6c 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 6f 69 | le-presentation.presentation.poi |
| f93a0 | 6e 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 66 74 65 72 2d 63 68 | nt)))))))..(defun.slime-after-ch |
| f93c0 | 61 6e 67 65 2d 66 75 6e 63 74 69 6f 6e 20 28 73 74 61 72 74 20 65 6e 64 20 26 72 65 73 74 20 69 | ange-function.(start.end.&rest.i |
| f93e0 | 67 6e 6f 72 65 29 0a 20 20 22 43 68 65 63 6b 20 61 6c 6c 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | gnore)..."Check.all.presentation |
| f9400 | 73 20 77 69 74 68 69 6e 20 61 6e 64 20 61 64 6a 61 63 65 6e 74 20 74 6f 20 74 68 65 20 63 68 61 | s.within.and.adjacent.to.the.cha |
| f9420 | 6e 67 65 2e 0a 57 68 65 6e 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 68 61 73 20 62 65 65 | nge..When.a.presentation.has.bee |
| f9440 | 6e 20 61 6c 74 65 72 65 64 2c 20 63 68 61 6e 67 65 20 69 74 20 74 6f 20 70 6c 61 69 6e 20 74 65 | n.altered,.change.it.to.plain.te |
| f9460 | 78 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 6d 6f 64 69 66 69 63 61 74 69 | xt."...(let.((inhibit-modificati |
| f9480 | 6f 6e 2d 68 6f 6f 6b 73 20 74 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 72 65 61 6c 2d 73 74 61 | on-hooks.t)).....(let.((real-sta |
| f94a0 | 72 74 20 28 6d 61 78 20 31 20 28 31 2d 20 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 | rt.(max.1.(1-.start))).......... |
| f94c0 | 20 28 72 65 61 6c 2d 65 6e 64 20 20 20 28 6d 69 6e 20 28 31 2b 20 28 62 75 66 66 65 72 2d 73 69 | .(real-end...(min.(1+.(buffer-si |
| f94e0 | 7a 65 29 29 20 28 31 2b 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 6e 79 2d 63 | ze)).(1+.end)))...........(any-c |
| f9500 | 68 61 6e 67 65 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 3b 3b 20 70 6f 73 69 74 69 6f 6e 73 20 61 | hange.nil)).......;;.positions.a |
| f9520 | 72 6f 75 6e 64 20 74 68 65 20 63 68 61 6e 67 65 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 6f | round.the.change.......(slime-fo |
| f9540 | 72 2d 65 61 63 68 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 6e 2d 72 65 67 69 6f 6e 0a 20 20 | r-each-presentation-in-region... |
| f9560 | 20 20 20 20 20 72 65 61 6c 2d 73 74 61 72 74 20 72 65 61 6c 2d 65 6e 64 0a 20 20 20 20 20 20 20 | .....real-start.real-end........ |
| f9580 | 28 6c 61 6d 62 64 61 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 66 72 6f 6d 20 74 6f 20 77 68 | (lambda.(presentation.from.to.wh |
| f95a0 | 6f 6c 65 2d 70 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 | ole-p)..........(cond........... |
| f95c0 | 28 77 68 6f 6c 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 6e 73 75 72 | (whole-p............(slime-ensur |
| f95e0 | 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6f 76 65 72 6c 61 79 20 66 72 6f 6d 20 74 6f 20 70 | e-presentation-overlay.from.to.p |
| f9600 | 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 75 6e | resentation))...........((not.un |
| f9620 | 64 6f 2d 69 6e 2d 70 72 6f 67 72 65 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | do-in-progress)............(slim |
| f9640 | 65 2d 72 65 6d 6f 76 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 69 65 73 | e-remove-presentation-properties |
| f9660 | 20 66 72 6f 6d 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .from.to........................ |
| f9680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 73 65 6e | ..........................presen |
| f96a0 | 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 6e 79 2d 63 68 61 | tation)............(setq.any-cha |
| f96c0 | 6e 67 65 20 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 61 6e 79 2d 63 68 61 6e 67 | nge.t))))).......(when.any-chang |
| f96e0 | 65 0a 20 20 20 20 20 20 20 20 28 75 6e 64 6f 2d 62 6f 75 6e 64 61 72 79 29 29 29 29 29 0a 0a 28 | e.........(undo-boundary)))))..( |
| f9700 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d | defun.slime-presentation-around- |
| f9720 | 63 6c 69 63 6b 20 28 65 76 65 6e 74 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 70 72 65 73 | click.(event)..."Return.the.pres |
| f9740 | 65 6e 74 61 74 69 6f 6e 20 61 72 6f 75 6e 64 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 | entation.around.the.position.of. |
| f9760 | 74 68 65 20 6d 6f 75 73 65 2d 63 6c 69 63 6b 20 45 56 45 4e 54 2e 0a 49 66 20 74 68 65 72 65 20 | the.mouse-click.EVENT..If.there. |
| f9780 | 69 73 20 6e 6f 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 73 69 67 6e 61 6c 20 61 6e 20 65 72 | is.no.presentation,.signal.an.er |
| f97a0 | 72 6f 72 2e 0a 41 6c 73 6f 20 72 65 74 75 72 6e 20 74 68 65 20 73 74 61 72 74 20 70 6f 73 69 74 | ror..Also.return.the.start.posit |
| f97c0 | 69 6f 6e 2c 20 65 6e 64 20 70 6f 73 69 74 69 6f 6e 2c 20 61 6e 64 20 62 75 66 66 65 72 20 6f 66 | ion,.end.position,.and.buffer.of |
| f97e0 | 20 74 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 22 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 | .the.presentation."...(when.(and |
| f9800 | 20 28 66 65 61 74 75 72 65 70 20 27 78 65 6d 61 63 73 29 20 28 6e 6f 74 20 28 62 75 74 74 6f 6e | .(featurep.'xemacs).(not.(button |
| f9820 | 2d 70 72 65 73 73 2d 65 76 65 6e 74 2d 70 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 28 65 72 72 | -press-event-p.event))).....(err |
| f9840 | 6f 72 20 22 43 6f 6d 6d 61 6e 64 20 6d 75 73 74 20 62 65 20 62 6f 75 6e 64 20 74 6f 20 61 20 62 | or."Command.must.be.bound.to.a.b |
| f9860 | 75 74 74 6f 6e 2d 70 72 65 73 73 2d 65 76 65 6e 74 22 29 29 0a 20 20 28 6c 65 74 20 28 28 70 6f | utton-press-event"))...(let.((po |
| f9880 | 69 6e 74 20 28 69 66 20 28 66 65 61 74 75 72 65 70 20 27 78 65 6d 61 63 73 29 20 28 65 76 65 6e | int.(if.(featurep.'xemacs).(even |
| f98a0 | 74 2d 70 6f 69 6e 74 20 65 76 65 6e 74 29 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e | t-point.event).(posn-point.(even |
| f98c0 | 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 20 | t-end.event)))).........(window. |
| f98e0 | 28 69 66 20 28 66 65 61 74 75 72 65 70 20 27 78 65 6d 61 63 73 29 20 28 65 76 65 6e 74 2d 77 69 | (if.(featurep.'xemacs).(event-wi |
| f9900 | 6e 64 6f 77 20 65 76 65 6e 74 29 20 28 63 61 61 64 72 20 65 76 65 6e 74 29 29 29 29 0a 20 20 20 | ndow.event).(caadr.event)))).... |
| f9920 | 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 | .(with-current-buffer.(window-bu |
| f9940 | 66 66 65 72 20 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d | ffer.window).......(cl-multiple- |
| f9960 | 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 | value-bind.(presentation.start.e |
| f9980 | 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f | nd)...........(slime-presentatio |
| f99a0 | 6e 2d 61 72 6f 75 6e 64 2d 70 6f 69 6e 74 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 28 75 | n-around-point.point).........(u |
| f99c0 | 6e 6c 65 73 73 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 | nless.presentation...........(er |
| f99e0 | 72 6f 72 20 22 4e 6f 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 61 74 20 63 6c 69 63 6b 22 29 29 | ror."No.presentation.at.click")) |
| f9a00 | 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | .........(cl-values.presentation |
| f9a20 | 20 73 74 61 72 74 20 65 6e 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 29 29 | .start.end.(current-buffer)))))) |
| f9a40 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f | ..(defun.slime-check-presentatio |
| f9a60 | 6e 20 28 66 72 6f 6d 20 74 6f 20 62 75 66 66 65 72 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a | n.(from.to.buffer.presentation). |
| f9a80 | 20 20 28 75 6e 6c 65 73 73 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 63 6c 3a 6e 74 68 2d 76 | ..(unless.(slime-eval.`(cl:nth-v |
| f9aa0 | 61 6c 75 65 20 31 20 28 73 77 61 6e 6b 3a 6c 6f 6f 6b 75 70 2d 70 72 65 73 65 6e 74 65 64 2d 6f | alue.1.(swank:lookup-presented-o |
| f9ac0 | 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bject........................... |
| f9ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 | ..............',(slime-presentat |
| f9b00 | 69 6f 6e 2d 69 64 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 28 77 69 74 | ion-id.presentation)))).....(wit |
| f9b20 | 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 73 | h-current-buffer.buffer.......(s |
| f9b40 | 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 | lime-remove-presentation-propert |
| f9b60 | 69 65 73 20 66 72 6f 6d 20 74 6f 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 29 29 0a 0a 28 64 | ies.from.to.presentation))))..(d |
| f9b80 | 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 6f 72 2d 69 6e 73 70 65 63 74 2d 70 72 65 73 65 | efun.slime-copy-or-inspect-prese |
| f9ba0 | 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d 6f 75 73 65 20 28 65 76 65 6e 74 29 0a 20 20 28 69 6e 74 65 | ntation-at-mouse.(event)...(inte |
| f9bc0 | 72 61 63 74 69 76 65 20 22 65 22 29 20 3b 20 6e 6f 20 22 40 22 20 2d 2d 20 77 65 20 64 6f 6e 27 | ractive."e").;.no."@".--.we.don' |
| f9be0 | 74 20 77 61 6e 74 20 74 6f 20 73 65 6c 65 63 74 20 74 68 65 20 63 6c 69 63 6b 65 64 2d 61 74 20 | t.want.to.select.the.clicked-at. |
| f9c00 | 77 69 6e 64 6f 77 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 | window...(cl-multiple-value-bind |
| f9c20 | 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 62 75 66 66 65 72 29 | .(presentation.start.end.buffer) |
| f9c40 | 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e | .......(slime-presentation-aroun |
| f9c60 | 64 2d 63 6c 69 63 6b 20 65 76 65 6e 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d | d-click.event).....(slime-check- |
| f9c80 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 62 75 66 66 65 72 20 70 72 | presentation.start.end.buffer.pr |
| f9ca0 | 65 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 28 69 66 20 28 77 69 74 68 2d 63 75 72 72 65 6e | esentation).....(if.(with-curren |
| f9cc0 | 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 65 71 20 6d 61 | t-buffer.buffer...........(eq.ma |
| f9ce0 | 6a 6f 72 2d 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 29 29 0a 20 20 20 20 | jor-mode.'slime-repl-mode))..... |
| f9d00 | 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d | ....(slime-copy-presentation-at- |
| f9d20 | 6d 6f 75 73 65 2d 74 6f 2d 72 65 70 6c 20 65 76 65 6e 74 29 0a 20 20 20 20 20 20 28 73 6c 69 6d | mouse-to-repl.event).......(slim |
| f9d40 | 65 2d 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d 6f 75 73 65 20 | e-inspect-presentation-at-mouse. |
| f9d60 | 65 76 65 6e 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 2d | event))))..(defun.slime-inspect- |
| f9d80 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 | presentation.(presentation.start |
| f9da0 | 20 65 6e 64 20 62 75 66 66 65 72 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 65 74 2d 70 0a 09 20 | .end.buffer)...(let.((reset-p... |
| f9dc0 | 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 09 20 20 20 | (with-current-buffer.buffer..... |
| f9de0 | 28 6e 6f 74 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 | (not.(eq.major-mode.'slime-inspe |
| f9e00 | 63 74 6f 72 2d 6d 6f 64 65 29 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 | ctor-mode))))).....(slime-eval-a |
| f9e20 | 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e 74 61 74 69 6f | sync.`(swank:inspect-presentatio |
| f9e40 | 6e 20 27 2c 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 20 70 72 65 73 65 | n.',(slime-presentation-id.prese |
| f9e60 | 6e 74 61 74 69 6f 6e 29 20 2c 72 65 73 65 74 2d 70 29 0a 20 20 20 20 20 20 27 73 6c 69 6d 65 2d | ntation).,reset-p).......'slime- |
| f9e80 | 6f 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | open-inspector)))..(defun.slime- |
| f9ea0 | 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d 6f 75 73 65 20 28 65 | inspect-presentation-at-mouse.(e |
| f9ec0 | 76 65 6e 74 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 63 6c 2d | vent)...(interactive."e")...(cl- |
| f9ee0 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f | multiple-value-bind.(presentatio |
| f9f00 | 6e 20 73 74 61 72 74 20 65 6e 64 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 | n.start.end.buffer).......(slime |
| f9f20 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 63 6c 69 63 6b 20 65 76 65 6e 74 | -presentation-around-click.event |
| f9f40 | 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e 74 61 74 69 6f | ).....(slime-inspect-presentatio |
| f9f60 | 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 62 75 66 66 65 72 29 | n.presentation.start.end.buffer) |
| f9f80 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e 74 | ))..(defun.slime-inspect-present |
| f9fa0 | 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 0a 20 20 28 69 6e 74 65 72 61 | ation-at-point.(point)...(intera |
| f9fc0 | 63 74 69 76 65 20 22 64 22 29 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d | ctive."d")...(cl-multiple-value- |
| f9fe0 | 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 | bind.(presentation.start.end)... |
| fa000 | 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f | ....(slime-presentation-around-o |
| fa020 | 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 20 70 6f 69 6e 74 29 0a 20 | r-before-point-or-error.point).. |
| fa040 | 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 | ...(slime-inspect-presentation.p |
| fa060 | 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 28 63 75 72 72 65 6e 74 2d 62 | resentation.start.end.(current-b |
| fa080 | 75 66 66 65 72 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 4d 2d 2e 2d 70 72 65 | uffer))))...(defun.slime-M-.-pre |
| fa0a0 | 73 65 6e 74 61 74 69 6f 6e 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e | sentation.(presentation.start.en |
| fa0c0 | 64 20 62 75 66 66 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 77 68 65 72 65 29 0a 20 20 28 6c 65 74 | d.buffer.&optional.where)...(let |
| fa0e0 | 2a 20 28 28 69 64 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 20 70 72 | *.((id.(slime-presentation-id.pr |
| fa100 | 65 73 65 6e 74 61 74 69 6f 6e 29 29 0a 09 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 | esentation))...(presentation-str |
| fa120 | 69 6e 67 20 28 66 6f 72 6d 61 74 20 22 50 72 65 73 65 6e 74 61 74 69 6f 6e 20 25 73 22 20 69 64 | ing.(format."Presentation.%s".id |
| fa140 | 29 29 0a 09 20 28 6c 6f 63 61 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 | ))...(location.(slime-eval.`(swa |
| fa160 | 6e 6b 3a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 6f 72 2d 74 68 69 6e 67 0a 09 09 09 | nk:find-definition-for-thing.... |
| fa180 | 09 20 28 73 77 61 6e 6b 3a 6c 6f 6f 6b 75 70 2d 70 72 65 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 | ..(swank:lookup-presented-object |
| fa1a0 | 0a 09 09 09 09 20 20 27 2c 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 20 | .......',(slime-presentation-id. |
| fa1c0 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 29 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 | presentation)))))).....(unless.( |
| fa1e0 | 65 71 20 28 63 61 72 20 6c 6f 63 61 74 69 6f 6e 29 20 3a 65 72 72 6f 72 29 0a 20 20 20 20 20 20 | eq.(car.location).:error)....... |
| fa200 | 28 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 63 6f 6e 74 0a 20 20 20 20 | (slime-edit-definition-cont..... |
| fa220 | 20 20 20 28 61 6e 64 20 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 28 6d 61 6b 65 2d 73 6c 69 | ...(and.location.(list.(make-sli |
| fa240 | 6d 65 2d 78 72 65 66 20 3a 64 73 70 65 63 20 60 28 2c 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 | me-xref.:dspec.`(,presentation-s |
| fa260 | 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tring).......................... |
| fa280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 | ...................:location.loc |
| fa2a0 | 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 | ation)))........presentation-str |
| fa2c0 | 69 6e 67 0a 20 20 20 20 20 20 20 77 68 65 72 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | ing........where))))..(defun.sli |
| fa2e0 | 6d 65 2d 4d 2d 2e 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d 6f 75 73 65 20 28 65 76 | me-M-.-presentation-at-mouse.(ev |
| fa300 | 65 6e 74 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 63 6c 2d 6d | ent)...(interactive."e")...(cl-m |
| fa320 | 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e | ultiple-value-bind.(presentation |
| fa340 | 20 73 74 61 72 74 20 65 6e 64 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | .start.end.buffer).......(slime- |
| fa360 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 63 6c 69 63 6b 20 65 76 65 6e 74 29 | presentation-around-click.event) |
| fa380 | 0a 20 20 20 20 28 73 6c 69 6d 65 2d 4d 2d 2e 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 72 65 | .....(slime-M-.-presentation.pre |
| fa3a0 | 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 62 75 66 66 65 72 29 29 29 0a 0a 28 | sentation.start.end.buffer)))..( |
| fa3c0 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 4d 2d 2e 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d | defun.slime-M-.-presentation-at- |
| fa3e0 | 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 64 22 | point.(point)...(interactive."d" |
| fa400 | 29 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 | )...(cl-multiple-value-bind.(pre |
| fa420 | 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 28 73 6c 69 6d | sentation.start.end).......(slim |
| fa440 | 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 2d | e-presentation-around-or-before- |
| fa460 | 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 20 70 6f 69 6e 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 | point-or-error.point).....(slime |
| fa480 | 2d 4d 2d 2e 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 | -M-.-presentation.presentation.s |
| fa4a0 | 74 61 72 74 20 65 6e 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 0a 28 64 | tart.end.(current-buffer))))..(d |
| fa4c0 | 65 66 75 6e 20 73 6c 69 6d 65 2d 65 64 69 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 6e 61 | efun.slime-edit-presentation.(na |
| fa4e0 | 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 77 68 65 72 65 29 0a 20 20 28 69 66 20 28 6f 72 20 63 75 | me.&optional.where)...(if.(or.cu |
| fa500 | 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 28 73 6c | rrent-prefix-arg.(not.(equal.(sl |
| fa520 | 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 20 6e 61 6d 65 29 29 29 0a 20 20 20 | ime-symbol-at-point).name))).... |
| fa540 | 20 20 20 6e 69 6c 20 3b 20 4e 41 4d 45 20 63 61 6d 65 20 66 72 6f 6d 20 75 73 65 72 20 65 78 70 | ...nil.;.NAME.came.from.user.exp |
| fa560 | 6c 69 63 69 74 6c 79 2c 20 73 6f 20 64 65 63 6c 69 6e 65 2e 0a 20 20 20 20 28 63 6c 2d 6d 75 6c | licitly,.so.decline......(cl-mul |
| fa580 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 | tiple-value-bind.(presentation.s |
| fa5a0 | 74 61 72 74 20 65 6e 64 20 77 68 6f 6c 65 2d 70 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | tart.end.whole-p).........(slime |
| fa5c0 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 2d 70 | -presentation-around-or-before-p |
| fa5e0 | 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 70 72 65 73 65 6e | oint.(point)).......(when.presen |
| fa600 | 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 4d 2d 2e 2d 70 72 65 73 65 6e | tation.........(slime-M-.-presen |
| fa620 | 74 61 74 69 6f 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 28 63 | tation.presentation.start.end.(c |
| fa640 | 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 77 68 65 72 65 29 29 29 29 29 0a 0a 28 64 65 66 75 | urrent-buffer).where)))))..(defu |
| fa660 | 6e 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 6f 2d 72 65 70 | n.slime-copy-presentation-to-rep |
| fa680 | 6c 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 62 75 66 66 65 72 | l.(presentation.start.end.buffer |
| fa6a0 | 29 0a 20 20 28 6c 65 74 20 28 28 74 65 78 74 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 | )...(let.((text.(with-current-bu |
| fa6c0 | 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 | ffer.buffer.................;;.w |
| fa6e0 | 65 20 75 73 65 20 74 68 65 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 72 61 74 68 65 | e.use.the.buffer-substring.rathe |
| fa700 | 72 20 74 68 61 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 72 | r.than.the.................;;.pr |
| fa720 | 65 73 65 6e 74 61 74 69 6f 6e 20 74 65 78 74 20 74 6f 20 63 61 70 74 75 72 65 20 61 6e 79 20 6f | esentation.text.to.capture.any.o |
| fa740 | 76 65 72 6c 61 79 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d | verlays.................(buffer- |
| fa760 | 73 75 62 73 74 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 28 | substring.start.end))).........( |
| fa780 | 69 64 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 20 70 72 65 73 65 6e | id.(slime-presentation-id.presen |
| fa7a0 | 74 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 69 6e 74 65 67 65 72 70 20 | tation))).....(unless.(integerp. |
| fa7c0 | 69 64 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 69 64 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 | id).......(setq.id.(slime-eval.` |
| fa7e0 | 28 73 77 61 6e 6b 3a 6c 6f 6f 6b 75 70 2d 61 6e 64 2d 73 61 76 65 2d 70 72 65 73 65 6e 74 65 64 | (swank:lookup-and-save-presented |
| fa800 | 2d 6f 62 6a 65 63 74 2d 6f 72 2d 6c 6f 73 65 20 27 2c 69 64 29 29 29 29 0a 20 20 20 20 28 75 6e | -object-or-lose.',id)))).....(un |
| fa820 | 6c 65 73 73 20 28 65 71 6c 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 72 65 70 6c | less.(eql.major-mode.'slime-repl |
| fa840 | 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f 2d 6f 75 | -mode).......(slime-switch-to-ou |
| fa860 | 74 70 75 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 63 6c 2d 66 6c 65 74 20 28 28 64 6f 2d | tput-buffer)).....(cl-flet.((do- |
| fa880 | 69 6e 73 65 72 74 69 6f 6e 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e | insertion.().................(un |
| fa8a0 | 6c 65 73 73 20 28 6c 6f 6f 6b 69 6e 67 2d 62 61 63 6b 20 22 5c 5c 73 2d 22 20 28 2d 20 28 70 6f | less.(looking-back."\\s-".(-.(po |
| fa8c0 | 69 6e 74 29 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 | int).1))...................(inse |
| fa8e0 | 72 74 20 22 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | rt.".")).................(slime- |
| fa900 | 69 6e 73 65 72 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 74 65 78 74 20 69 64 29 0a 20 20 20 | insert-presentation.text.id).... |
| fa920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 28 65 6f 6c 70 29 20 | .............(unless.(or.(eolp). |
| fa940 | 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 2d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (looking-at."\\s-"))............ |
| fa960 | 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 22 29 29 29 29 0a 20 20 20 20 20 20 28 69 66 | .......(insert.".")))).......(if |
| fa980 | 20 28 3e 3d 20 28 70 6f 69 6e 74 29 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 6f 6d 70 74 2d 73 | .(>=.(point).slime-repl-prompt-s |
| fa9a0 | 74 61 72 74 2d 6d 61 72 6b 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 6f 2d 69 6e 73 65 72 74 69 | tart-mark)...........(do-inserti |
| fa9c0 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 | on).........(save-excursion..... |
| fa9e0 | 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 | ......(goto-char.(point-max))... |
| faa00 | 20 20 20 20 20 20 20 20 28 64 6f 2d 69 6e 73 65 72 74 69 6f 6e 29 29 29 29 29 29 0a 0a 28 64 65 | ........(do-insertion))))))..(de |
| faa20 | 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d | fun.slime-copy-presentation-at-m |
| faa40 | 6f 75 73 65 2d 74 6f 2d 72 65 70 6c 20 28 65 76 65 6e 74 29 0a 20 20 28 69 6e 74 65 72 61 63 74 | ouse-to-repl.(event)...(interact |
| faa60 | 69 76 65 20 22 65 22 29 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 | ive."e")...(cl-multiple-value-bi |
| faa80 | 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 62 75 66 66 65 | nd.(presentation.start.end.buffe |
| faaa0 | 72 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f | r).......(slime-presentation-aro |
| faac0 | 75 6e 64 2d 63 6c 69 63 6b 20 65 76 65 6e 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 70 79 | und-click.event).....(slime-copy |
| faae0 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 6f 2d 72 65 70 6c 20 70 72 65 73 65 6e 74 61 74 69 | -presentation-to-repl.presentati |
| fab00 | 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | on.start.end.buffer)))..(defun.s |
| fab20 | 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d | lime-copy-presentation-at-point- |
| fab40 | 74 6f 2d 72 65 70 6c 20 28 70 6f 69 6e 74 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 | to-repl.(point)...(interactive." |
| fab60 | 64 22 29 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 | d")...(cl-multiple-value-bind.(p |
| fab80 | 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 28 73 6c | resentation.start.end).......(sl |
| faba0 | 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 | ime-presentation-around-or-befor |
| fabc0 | 65 2d 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 20 70 6f 69 6e 74 29 0a 20 20 20 20 28 73 6c 69 | e-point-or-error.point).....(sli |
| fabe0 | 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 6f 2d 72 65 70 6c 20 70 72 65 | me-copy-presentation-to-repl.pre |
| fac00 | 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 | sentation.start.end.(current-buf |
| fac20 | 66 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 | fer))))..(defun.slime-copy-prese |
| fac40 | 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d 6f 75 73 65 2d 74 6f 2d 70 6f 69 6e 74 20 28 65 76 65 6e 74 | ntation-at-mouse-to-point.(event |
| fac60 | 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 63 6c 2d 6d 75 6c 74 | )...(interactive."e")...(cl-mult |
| fac80 | 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 | iple-value-bind.(presentation.st |
| faca0 | 61 72 74 20 65 6e 64 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 | art.end.buffer).......(slime-pre |
| facc0 | 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 63 6c 69 63 6b 20 65 76 65 6e 74 29 0a 20 20 | sentation-around-click.event)... |
| face0 | 20 20 28 6c 65 74 20 28 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 65 78 74 0a 20 20 20 20 20 | ..(let.((presentation-text...... |
| fad00 | 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 | ......(with-current-buffer.buffe |
| fad20 | 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 | r..............(buffer-substring |
| fad40 | 20 73 74 61 72 74 20 65 6e 64 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 | .start.end)))).......(when.(not. |
| fad60 | 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 73 2d 22 0a 20 20 20 20 20 20 20 20 20 20 20 | (string-match."\\s-"............ |
| fad80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 | ....................(buffer-subs |
| fada0 | 74 72 69 6e 67 20 28 31 2d 20 28 70 6f 69 6e 74 29 29 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 | tring.(1-.(point)).(point))))... |
| fadc0 | 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 22 29 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 | ......(insert.".")).......(inser |
| fade0 | 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 65 78 74 29 0a 20 20 20 20 20 20 28 73 6c 69 6d | t.presentation-text).......(slim |
| fae00 | 65 2d 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 66 75 6e 63 74 69 6f 6e 20 28 70 6f 69 6e 74 29 20 | e-after-change-function.(point). |
| fae20 | 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6e 6f 74 20 28 | (point)).......(when.(and.(not.( |
| fae40 | 65 6f 6c 70 29 29 20 28 6e 6f 74 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 2d 22 29 29 | eolp)).(not.(looking-at."\\s-")) |
| fae60 | 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 22 29 29 29 29 29 0a 0a 28 64 65 66 | ).........(insert.".")))))..(def |
| fae80 | 75 6e 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 6f 2d 6b 69 | un.slime-copy-presentation-to-ki |
| faea0 | 6c 6c 2d 72 69 6e 67 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 | ll-ring.(presentation.start.end. |
| faec0 | 62 75 66 66 65 72 29 0a 20 20 28 6c 65 74 20 28 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 65 | buffer)...(let.((presentation-te |
| faee0 | 78 74 0a 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 | xt..........(with-current-buffer |
| faf00 | 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 | .buffer............(buffer-subst |
| faf20 | 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 29 29 29 29 0a 20 20 20 20 28 6b 69 6c 6c 2d 6e 65 77 | ring.start.end)))).....(kill-new |
| faf40 | 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 65 78 74 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 | .presentation-text).....(message |
| faf60 | 20 22 53 61 76 65 64 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 5c 22 25 73 5c 22 20 74 6f 20 6b | ."Saved.presentation.\"%s\".to.k |
| faf80 | 69 6c 6c 20 72 69 6e 67 22 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 65 78 74 29 29 29 0a 0a | ill.ring".presentation-text))).. |
| fafa0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 | (defun.slime-copy-presentation-a |
| fafc0 | 74 2d 6d 6f 75 73 65 2d 74 6f 2d 6b 69 6c 6c 2d 72 69 6e 67 20 28 65 76 65 6e 74 29 0a 20 20 28 | t-mouse-to-kill-ring.(event)...( |
| fafe0 | 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d | interactive."e")...(cl-multiple- |
| fb000 | 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 | value-bind.(presentation.start.e |
| fb020 | 6e 64 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 | nd.buffer).......(slime-presenta |
| fb040 | 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 63 6c 69 63 6b 20 65 76 65 6e 74 29 0a 20 20 20 20 28 73 6c | tion-around-click.event).....(sl |
| fb060 | 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 6f 2d 6b 69 6c 6c 2d 72 69 | ime-copy-presentation-to-kill-ri |
| fb080 | 6e 67 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 62 75 66 66 65 72 | ng.presentation.start.end.buffer |
| fb0a0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 | )))..(defun.slime-copy-presentat |
| fb0c0 | 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 74 6f 2d 6b 69 6c 6c 2d 72 69 6e 67 20 28 70 6f 69 6e 74 | ion-at-point-to-kill-ring.(point |
| fb0e0 | 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 64 22 29 0a 20 20 28 63 6c 2d 6d 75 6c 74 | )...(interactive."d")...(cl-mult |
| fb100 | 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 | iple-value-bind.(presentation.st |
| fb120 | 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 | art.end).......(slime-presentati |
| fb140 | 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 | on-around-or-before-point-or-err |
| fb160 | 6f 72 20 70 6f 69 6e 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e | or.point).....(slime-copy-presen |
| fb180 | 74 61 74 69 6f 6e 2d 74 6f 2d 6b 69 6c 6c 2d 72 69 6e 67 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | tation-to-kill-ring.presentation |
| fb1a0 | 20 73 74 61 72 74 20 65 6e 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 0a | .start.end.(current-buffer)))).. |
| fb1c0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 70 72 65 73 65 6e 74 61 74 69 | (defun.slime-describe-presentati |
| fb1e0 | 6f 6e 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d | on.(presentation)...(slime-eval- |
| fb200 | 64 65 73 63 72 69 62 65 0a 20 20 20 60 28 73 77 61 6e 6b 3a 3a 64 65 73 63 72 69 62 65 2d 74 6f | describe....`(swank::describe-to |
| fb220 | 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 28 73 77 61 6e 6b 3a 6c 6f 6f 6b 75 70 2d 70 72 65 73 65 | -string......(swank:lookup-prese |
| fb240 | 6e 74 65 64 2d 6f 62 6a 65 63 74 20 27 2c 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f | nted-object.',(slime-presentatio |
| fb260 | 6e 2d 69 64 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | n-id.presentation)))))..(defun.s |
| fb280 | 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d 6f | lime-describe-presentation-at-mo |
| fb2a0 | 75 73 65 20 28 65 76 65 6e 74 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 40 65 22 29 | use.(event)...(interactive."@e") |
| fb2c0 | 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 | ...(cl-multiple-value-bind.(pres |
| fb2e0 | 65 6e 74 61 74 69 6f 6e 29 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 | entation).(slime-presentation-ar |
| fb300 | 6f 75 6e 64 2d 63 6c 69 63 6b 20 65 76 65 6e 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 64 65 73 | ound-click.event).....(slime-des |
| fb320 | 63 72 69 62 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 | cribe-presentation.presentation) |
| fb340 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 70 72 65 73 65 6e | ))..(defun.slime-describe-presen |
| fb360 | 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 0a 20 20 28 69 6e 74 65 72 | tation-at-point.(point)...(inter |
| fb380 | 61 63 74 69 76 65 20 22 64 22 29 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | active."d")...(cl-multiple-value |
| fb3a0 | 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 6c 69 6d | -bind.(presentation).......(slim |
| fb3c0 | 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 2d | e-presentation-around-or-before- |
| fb3e0 | 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 20 70 6f 69 6e 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 | point-or-error.point).....(slime |
| fb400 | 2d 64 65 73 63 72 69 62 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 72 65 73 65 6e 74 61 74 | -describe-presentation.presentat |
| fb420 | 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 74 74 79 2d 70 72 69 6e | ion)))..(defun.slime-pretty-prin |
| fb440 | 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 | t-presentation.(presentation)... |
| fb460 | 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 0a 20 20 20 60 28 73 77 61 6e 6b 3a | (slime-eval-describe....`(swank: |
| fb480 | 3a 73 77 61 6e 6b 2d 70 70 72 69 6e 74 0a 20 20 20 20 20 28 63 6c 3a 6c 69 73 74 0a 20 20 20 20 | :swank-pprint......(cl:list..... |
| fb4a0 | 20 20 28 73 77 61 6e 6b 3a 6c 6f 6f 6b 75 70 2d 70 72 65 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 | ..(swank:lookup-presented-object |
| fb4c0 | 20 27 2c 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 20 70 72 65 73 65 6e | .',(slime-presentation-id.presen |
| fb4e0 | 74 61 74 69 6f 6e 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 74 74 | tation))))))..(defun.slime-prett |
| fb500 | 79 2d 70 72 69 6e 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d 6f 75 73 65 20 28 65 | y-print-presentation-at-mouse.(e |
| fb520 | 76 65 6e 74 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 40 65 22 29 0a 20 20 28 63 6c | vent)...(interactive."@e")...(cl |
| fb540 | 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 | -multiple-value-bind.(presentati |
| fb560 | 6f 6e 29 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 63 | on).(slime-presentation-around-c |
| fb580 | 6c 69 63 6b 20 65 76 65 6e 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 74 74 79 2d 70 72 | lick.event).....(slime-pretty-pr |
| fb5a0 | 69 6e 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 29 | int-presentation.presentation))) |
| fb5c0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 70 72 65 73 | ..(defun.slime-pretty-print-pres |
| fb5e0 | 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 0a 20 20 28 69 6e 74 | entation-at-point.(point)...(int |
| fb600 | 65 72 61 63 74 69 76 65 20 22 64 22 29 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c | eractive."d")...(cl-multiple-val |
| fb620 | 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 6c | ue-bind.(presentation).......(sl |
| fb640 | 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 | ime-presentation-around-or-befor |
| fb660 | 65 2d 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 20 70 6f 69 6e 74 29 0a 20 20 20 20 28 73 6c 69 | e-point-or-error.point).....(sli |
| fb680 | 6d 65 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 70 72 65 | me-pretty-print-presentation.pre |
| fb6a0 | 73 65 6e 74 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 72 6b 2d | sentation)))..(defun.slime-mark- |
| fb6c0 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 70 6f 69 6e 74 29 0a 20 20 28 69 6e 74 65 72 61 63 74 | presentation.(point)...(interact |
| fb6e0 | 69 76 65 20 22 64 22 29 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 | ive."d")...(cl-multiple-value-bi |
| fb700 | 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 | nd.(presentation.start.end)..... |
| fb720 | 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d | ..(slime-presentation-around-or- |
| fb740 | 62 65 66 6f 72 65 2d 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 20 70 6f 69 6e 74 29 0a 20 20 20 | before-point-or-error.point).... |
| fb760 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 20 28 70 75 73 68 2d 6d 61 72 | .(goto-char.start).....(push-mar |
| fb780 | 6b 20 65 6e 64 20 6e 69 6c 20 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 | k.end.nil.t)))..(defun.slime-pre |
| fb7a0 | 76 69 6f 75 73 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 | vious-presentation.(&optional.ar |
| fb7c0 | 67 29 0a 20 20 22 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e | g)..."Move.point.to.the.beginnin |
| fb7e0 | 67 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 62 65 66 6f | g.of.the.first.presentation.befo |
| fb800 | 72 65 20 70 6f 69 6e 74 2e 0a 57 69 74 68 20 41 52 47 2c 20 64 6f 20 74 68 69 73 20 74 68 61 74 | re.point..With.ARG,.do.this.that |
| fb820 | 20 6d 61 6e 79 20 74 69 6d 65 73 2e 0a 41 20 6e 65 67 61 74 69 76 65 20 61 72 67 75 6d 65 6e 74 | .many.times..A.negative.argument |
| fb840 | 20 6d 65 61 6e 73 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 20 69 6e 73 74 65 61 64 2e 22 0a 20 20 | .means.move.forward.instead."... |
| fb860 | 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 75 6e 6c 65 73 73 20 61 72 67 20 | (interactive."p")...(unless.arg. |
| fb880 | 28 73 65 74 71 20 61 72 67 20 31 29 29 0a 20 20 28 73 6c 69 6d 65 2d 6e 65 78 74 2d 70 72 65 73 | (setq.arg.1))...(slime-next-pres |
| fb8a0 | 65 6e 74 61 74 69 6f 6e 20 28 2d 20 61 72 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | entation.(-.arg)))..(defun.slime |
| fb8c0 | 2d 6e 65 78 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 | -next-presentation.(&optional.ar |
| fb8e0 | 67 29 0a 20 20 22 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e | g)..."Move.point.to.the.beginnin |
| fb900 | 67 20 6f 66 20 74 68 65 20 6e 65 78 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 61 66 74 65 72 | g.of.the.next.presentation.after |
| fb920 | 20 70 6f 69 6e 74 2e 0a 57 69 74 68 20 41 52 47 2c 20 64 6f 20 74 68 69 73 20 74 68 61 74 20 6d | .point..With.ARG,.do.this.that.m |
| fb940 | 61 6e 79 20 74 69 6d 65 73 2e 0a 41 20 6e 65 67 61 74 69 76 65 20 61 72 67 75 6d 65 6e 74 20 6d | any.times..A.negative.argument.m |
| fb960 | 65 61 6e 73 20 6d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 69 6e 73 74 65 61 64 2e 22 0a 20 20 28 | eans.move.backward.instead."...( |
| fb980 | 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 75 6e 6c 65 73 73 20 61 72 67 20 28 | interactive."p")...(unless.arg.( |
| fb9a0 | 73 65 74 71 20 61 72 67 20 31 29 29 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 63 6c 2d 70 6c 75 | setq.arg.1))...(cond....((cl-plu |
| fb9c0 | 73 70 20 61 72 67 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 61 72 67 29 0a 20 20 20 | sp.arg).....(dotimes.(i.arg).... |
| fb9e0 | 20 20 20 3b 3b 20 46 69 72 73 74 20 73 6b 69 70 20 6f 75 74 73 69 64 65 20 74 68 65 20 63 75 72 | ...;;.First.skip.outside.the.cur |
| fba00 | 72 65 6e 74 20 73 75 72 72 6f 75 6e 64 69 6e 67 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 28 69 | rent.surrounding.presentation.(i |
| fba20 | 66 20 61 6e 79 29 0a 20 20 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d | f.any).......(cl-multiple-value- |
| fba40 | 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 0a 09 20 | bind.(presentation.start.end)... |
| fba60 | 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 70 6f 69 6e | .(slime-presentation-around-poin |
| fba80 | 74 20 28 70 6f 69 6e 74 29 29 0a 09 28 77 68 65 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 09 | t.(point))..(when.presentation.. |
| fbaa0 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 | ..(goto-char.end))).......(let.( |
| fbac0 | 28 70 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 | (p.(next-single-property-change. |
| fbae0 | 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e | (point).'slime-repl-presentation |
| fbb00 | 29 29 29 0a 09 28 75 6e 6c 65 73 73 20 70 0a 09 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 6e 65 78 | )))..(unless.p....(error."No.nex |
| fbb20 | 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 22 29 29 0a 09 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d | t.presentation"))..(cl-multiple- |
| fbb40 | 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 | value-bind.(presentation.start.e |
| fbb60 | 6e 64 29 0a 09 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f | nd)......(slime-presentation-aro |
| fbb80 | 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 20 70 29 0a | und-or-before-point-or-error.p). |
| fbba0 | 09 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 29 29 29 29 0a 20 20 20 28 28 63 6c | ...(goto-char.start)))))....((cl |
| fbbc0 | 2d 6d 69 6e 75 73 70 20 61 72 67 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 28 2d 20 | -minusp.arg).....(dotimes.(i.(-. |
| fbbe0 | 61 72 67 29 29 0a 20 20 20 20 20 20 3b 3b 20 46 69 72 73 74 20 73 6b 69 70 20 6f 75 74 73 69 64 | arg)).......;;.First.skip.outsid |
| fbc00 | 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 75 72 72 6f 75 6e 64 69 6e 67 20 70 72 65 73 65 6e | e.the.current.surrounding.presen |
| fbc20 | 74 61 74 69 6f 6e 20 28 69 66 20 61 6e 79 29 0a 20 20 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 | tation.(if.any).......(cl-multip |
| fbc40 | 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 | le-value-bind.(presentation.star |
| fbc60 | 74 20 65 6e 64 29 0a 09 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 | t.end)....(slime-presentation-ar |
| fbc80 | 6f 75 6e 64 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 0a 09 28 77 68 65 6e 20 70 72 65 73 65 | ound-point.(point))..(when.prese |
| fbca0 | 6e 74 61 74 69 6f 6e 0a 09 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 29 29 0a 20 | ntation....(goto-char.start))).. |
| fbcc0 | 20 20 20 20 20 28 6c 65 74 20 28 28 70 20 28 70 72 65 76 69 6f 75 73 2d 73 69 6e 67 6c 65 2d 70 | .....(let.((p.(previous-single-p |
| fbce0 | 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 72 65 | roperty-change.(point).'slime-re |
| fbd00 | 70 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 29 0a 09 28 75 6e 6c 65 73 73 20 70 0a 09 20 | pl-presentation)))..(unless.p... |
| fbd20 | 20 28 65 72 72 6f 72 20 22 4e 6f 20 70 72 65 76 69 6f 75 73 20 70 72 65 73 65 6e 74 61 74 69 6f | .(error."No.previous.presentatio |
| fbd40 | 6e 22 29 29 0a 09 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 | n"))..(cl-multiple-value-bind.(p |
| fbd60 | 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 0a 09 20 20 20 20 28 73 6c 69 | resentation.start.end)......(sli |
| fbd80 | 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 | me-presentation-around-or-before |
| fbda0 | 2d 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 20 70 29 0a 09 20 20 28 67 6f 74 6f 2d 63 68 61 72 | -point-or-error.p)....(goto-char |
| fbdc0 | 20 73 74 61 72 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 20 73 6c 69 6d | .start)))))))..(define-key..slim |
| fbde0 | 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 61 70 20 5b 6d 6f 75 73 65 2d 32 5d 20 27 73 6c | e-presentation-map.[mouse-2].'sl |
| fbe00 | 69 6d 65 2d 63 6f 70 79 2d 6f 72 2d 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e | ime-copy-or-inspect-presentation |
| fbe20 | 2d 61 74 2d 6d 6f 75 73 65 29 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 20 73 6c 69 6d 65 2d 70 72 | -at-mouse).(define-key..slime-pr |
| fbe40 | 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 61 70 20 5b 6d 6f 75 73 65 2d 33 5d 20 27 73 6c 69 6d 65 2d | esentation-map.[mouse-3].'slime- |
| fbe60 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 65 6e 75 29 0a 0a 28 77 68 65 6e 20 28 66 65 61 74 75 | presentation-menu)..(when.(featu |
| fbe80 | 72 65 70 20 27 78 65 6d 61 63 73 29 0a 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 20 73 6c 69 6d | rep.'xemacs)...(define-key..slim |
| fbea0 | 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 61 70 20 5b 62 75 74 74 6f 6e 32 5d 20 27 73 6c | e-presentation-map.[button2].'sl |
| fbec0 | 69 6d 65 2d 63 6f 70 79 2d 6f 72 2d 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e | ime-copy-or-inspect-presentation |
| fbee0 | 2d 61 74 2d 6d 6f 75 73 65 29 0a 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 20 73 6c 69 6d 65 2d | -at-mouse)...(define-key..slime- |
| fbf00 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 61 70 20 5b 62 75 74 74 6f 6e 33 5d 20 27 73 6c 69 6d | presentation-map.[button3].'slim |
| fbf20 | 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 65 6e 75 29 29 0a 0a 3b 3b 20 70 72 6f 74 6f 63 | e-presentation-menu))..;;.protoc |
| fbf40 | 6f 6c 20 66 6f 72 20 68 61 6e 64 6c 69 6e 67 20 75 70 20 61 20 6d 65 6e 75 2e 0a 3b 3b 20 31 2e | ol.for.handling.up.a.menu..;;.1. |
| fbf60 | 20 53 65 6e 64 20 6c 69 73 70 20 6d 65 73 73 61 67 65 20 61 73 6b 69 6e 67 20 66 6f 72 20 6d 65 | .Send.lisp.message.asking.for.me |
| fbf80 | 6e 75 20 63 68 6f 69 63 65 73 20 66 6f 72 20 74 68 69 73 20 6f 62 6a 65 63 74 2e 0a 3b 3b 20 20 | nu.choices.for.this.object..;;.. |
| fbfa0 | 20 20 47 65 74 20 62 61 63 6b 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 2e 0a 3b 3b 20 32 | ..Get.back.list.of.strings..;;.2 |
| fbfc0 | 2e 20 4c 65 74 20 75 73 65 64 20 63 68 6f 6f 73 65 0a 3b 3b 20 33 2e 20 43 61 6c 6c 20 62 61 63 | ..Let.used.choose.;;.3..Call.bac |
| fbfe0 | 6b 20 74 6f 20 65 78 65 63 75 74 65 20 6d 65 6e 75 20 63 68 6f 69 63 65 2c 20 70 61 73 73 69 6e | k.to.execute.menu.choice,.passin |
| fc000 | 67 20 6e 74 68 20 61 6e 64 20 73 74 72 69 6e 67 20 6f 66 20 63 68 6f 69 63 65 0a 0a 28 64 65 66 | g.nth.and.string.of.choice..(def |
| fc020 | 75 6e 20 73 6c 69 6d 65 2d 6d 65 6e 75 2d 63 68 6f 69 63 65 73 2d 66 6f 72 2d 70 72 65 73 65 6e | un.slime-menu-choices-for-presen |
| fc040 | 74 61 74 69 6f 6e 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 62 75 66 66 65 72 20 66 72 6f 6d | tation.(presentation.buffer.from |
| fc060 | 20 74 6f 20 63 68 6f 69 63 65 2d 74 6f 2d 6c 61 6d 62 64 61 29 0a 20 20 22 52 65 74 75 72 6e 20 | .to.choice-to-lambda)..."Return. |
| fc080 | 61 20 6d 65 6e 75 20 66 6f 72 20 60 70 72 65 73 65 6e 74 61 74 69 6f 6e 27 20 61 74 20 60 66 72 | a.menu.for.`presentation'.at.`fr |
| fc0a0 | 6f 6d 27 2d 2d 60 74 6f 27 20 69 6e 20 60 62 75 66 66 65 72 27 2c 20 73 75 69 74 61 62 6c 65 20 | om'--`to'.in.`buffer',.suitable. |
| fc0c0 | 66 6f 72 20 60 78 2d 70 6f 70 75 70 2d 6d 65 6e 75 27 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 77 | for.`x-popup-menu'."...(let*.((w |
| fc0e0 | 68 61 74 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 20 70 72 65 73 65 | hat.(slime-presentation-id.prese |
| fc100 | 6e 74 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 68 6f 69 63 65 73 20 28 77 69 74 | ntation))..........(choices.(wit |
| fc120 | 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 | h-current-buffer.buffer......... |
| fc140 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 0a 20 20 20 20 20 20 20 20 | ............(slime-eval......... |
| fc160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b 3a 3a 6d 65 6e 75 2d 63 68 6f 69 63 | .............`(swank::menu-choic |
| fc180 | 65 73 2d 66 6f 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 20 27 2c 77 68 61 74 29 29 29 | es-for-presentation-id.',what))) |
| fc1a0 | 29 29 0a 20 20 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 73 61 76 65 6c 20 28 66 29 20 3b 3b | )).....(cl-labels.((savel.(f).;; |
| fc1c0 | 20 49 4d 50 4f 52 54 41 4e 54 20 2d 20 78 65 6d 61 63 73 20 63 61 6e 27 74 20 68 61 6e 64 6c 65 | .IMPORTANT.-.xemacs.can't.handle |
| fc1e0 | 20 6c 61 6d 62 64 61 73 20 69 6e 20 78 2d 70 6f 70 75 70 2d 6d 65 6e 75 2e 20 53 6f 20 67 69 76 | .lambdas.in.x-popup-menu..So.giv |
| fc200 | 65 20 74 68 65 6d 20 61 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.them.a.name................... |
| fc220 | 20 20 20 28 6c 65 74 20 28 28 73 79 6d 20 28 63 6c 2d 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 | ...(let.((sym.(cl-gensym)))..... |
| fc240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 | ...................(setf.(gethas |
| fc260 | 68 20 73 79 6d 20 63 68 6f 69 63 65 2d 74 6f 2d 6c 61 6d 62 64 61 29 20 66 29 0a 20 20 20 20 20 | h.sym.choice-to-lambda).f)...... |
| fc280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 29 29 29 0a 20 20 20 20 20 20 28 | ..................sym))).......( |
| fc2a0 | 63 6c 2d 65 74 79 70 65 63 61 73 65 20 63 68 6f 69 63 65 73 0a 20 20 20 20 20 20 20 20 28 6c 69 | cl-etypecase.choices.........(li |
| fc2c0 | 73 74 0a 20 20 20 20 20 20 20 20 20 60 28 2c 28 66 6f 72 6d 61 74 20 22 50 72 65 73 65 6e 74 61 | st..........`(,(format."Presenta |
| fc2e0 | 74 69 6f 6e 20 25 73 22 20 28 74 72 75 6e 63 61 74 65 2d 73 74 72 69 6e 67 2d 74 6f 2d 77 69 64 | tion.%s".(truncate-string-to-wid |
| fc300 | 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | th.............................. |
| fc320 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 74 65 | ..........(slime-presentation-te |
| fc340 | 78 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | xt.presentation)................ |
| fc360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 30 20 6e 69 6c 20 6e | ........................30.nil.n |
| fc380 | 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 22 22 0a 20 20 20 20 20 20 20 20 20 20 | il.t))............(""........... |
| fc3a0 | 20 20 28 22 46 69 6e 64 20 44 65 66 69 6e 69 74 69 6f 6e 22 20 2e 20 2c 28 73 61 76 65 6c 20 27 | ..("Find.Definition"...,(savel.' |
| fc3c0 | 73 6c 69 6d 65 2d 4d 2d 2e 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d 6f 75 73 65 29 | slime-M-.-presentation-at-mouse) |
| fc3e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 22 49 6e 73 70 65 63 74 22 20 2e 20 2c 28 73 61 76 | ).............("Inspect"...,(sav |
| fc400 | 65 6c 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 | el.'slime-inspect-presentation-a |
| fc420 | 74 2d 6d 6f 75 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 22 44 65 73 63 72 69 62 65 | t-mouse)).............("Describe |
| fc440 | 22 20 2e 20 2c 28 73 61 76 65 6c 20 27 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 70 72 65 73 | "...,(savel.'slime-describe-pres |
| fc460 | 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d 6f 75 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | entation-at-mouse))............. |
| fc480 | 28 22 50 72 65 74 74 79 2d 70 72 69 6e 74 22 20 2e 20 2c 28 73 61 76 65 6c 20 27 73 6c 69 6d 65 | ("Pretty-print"...,(savel.'slime |
| fc4a0 | 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d 6f | -pretty-print-presentation-at-mo |
| fc4c0 | 75 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 22 43 6f 70 79 20 74 6f 20 52 45 50 4c | use)).............("Copy.to.REPL |
| fc4e0 | 22 20 2e 20 2c 28 73 61 76 65 6c 20 27 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 | "...,(savel.'slime-copy-presenta |
| fc500 | 74 69 6f 6e 2d 61 74 2d 6d 6f 75 73 65 2d 74 6f 2d 72 65 70 6c 29 29 0a 20 20 20 20 20 20 20 20 | tion-at-mouse-to-repl))......... |
| fc520 | 20 20 20 20 28 22 43 6f 70 79 20 74 6f 20 6b 69 6c 6c 20 72 69 6e 67 22 20 2e 20 2c 28 73 61 76 | ....("Copy.to.kill.ring"...,(sav |
| fc540 | 65 6c 20 27 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 6d | el.'slime-copy-presentation-at-m |
| fc560 | 6f 75 73 65 2d 74 6f 2d 6b 69 6c 6c 2d 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ouse-to-kill-ring))............. |
| fc580 | 2c 40 28 75 6e 6c 65 73 73 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 0a 20 20 20 20 20 | ,@(unless.buffer-read-only...... |
| fc5a0 | 20 20 20 20 20 20 20 20 20 20 20 60 28 28 22 43 6f 70 79 20 74 6f 20 70 6f 69 6e 74 22 20 2e 20 | ...........`(("Copy.to.point"... |
| fc5c0 | 2c 28 73 61 76 65 6c 20 27 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e | ,(savel.'slime-copy-presentation |
| fc5e0 | 2d 61 74 2d 6d 6f 75 73 65 2d 74 6f 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | -at-mouse-to-point)))).......... |
| fc600 | 20 20 20 2c 40 28 6c 65 74 20 28 28 6e 63 68 6f 69 63 65 20 30 29 29 0a 20 20 20 20 20 20 20 20 | ...,@(let.((nchoice.0))......... |
| fc620 | 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(mapcar................. |
| fc640 | 20 28 6c 61 6d 62 64 61 20 28 63 68 6f 69 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(lambda.(choice)............... |
| fc660 | 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 6e 63 68 6f 69 63 65 29 0a 20 20 20 20 20 20 20 20 20 | .....(cl-incf.nchoice).......... |
| fc680 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 63 68 6f 69 63 65 0a 20 20 20 20 20 20 20 20 20 | ..........(cons.choice.......... |
| fc6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 6c 20 60 28 6c 61 6d 62 64 61 20 | ................(savel.`(lambda. |
| fc6c0 | 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ().............................. |
| fc6e0 | 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(interactive)............. |
| fc700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 | .......................(slime-ev |
| fc720 | 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | al.............................. |
| fc740 | 20 20 20 20 20 20 20 27 28 73 77 61 6e 6b 3a 3a 65 78 65 63 75 74 65 2d 6d 65 6e 75 2d 63 68 6f | .......'(swank::execute-menu-cho |
| fc760 | 69 63 65 2d 66 6f 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 0a 20 20 20 20 20 20 20 20 | ice-for-presentation-id......... |
| fc780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c | ..............................', |
| fc7a0 | 77 68 61 74 20 2c 6e 63 68 6f 69 63 65 20 2c 28 6e 74 68 20 28 31 2d 20 6e 63 68 6f 69 63 65 29 | what.,nchoice.,(nth.(1-.nchoice) |
| fc7c0 | 20 63 68 6f 69 63 65 73 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .choices)))))))................. |
| fc7e0 | 20 63 68 6f 69 63 65 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 20 20 | .choices))))).........(symbol... |
| fc800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 6f 74 2d 70 72 | ........................;.not-pr |
| fc820 | 65 73 65 6e 74 0a 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 | esent..........(with-current-buf |
| fc840 | 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 6d | fer.buffer............(slime-rem |
| fc860 | 6f 76 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 70 72 6f 70 65 72 74 69 65 73 20 66 72 6f 6d | ove-presentation-properties.from |
| fc880 | 20 74 6f 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 69 74 | .to.presentation))..........(sit |
| fc8a0 | 2d 66 6f 72 20 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 | -for.0)......................;.a |
| fc8c0 | 6c 6c 6f 77 20 72 65 64 69 73 70 6c 61 79 0a 20 20 20 20 20 20 20 20 20 60 28 22 4f 62 6a 65 63 | llow.redisplay..........`("Objec |
| fc8e0 | 74 20 6e 6f 20 6c 6f 6e 67 65 72 20 72 65 63 6f 72 64 65 64 22 0a 20 20 20 20 20 20 20 20 20 20 | t.no.longer.recorded"........... |
| fc900 | 20 28 22 73 6f 72 72 79 22 20 2e 20 2c 28 69 66 20 28 66 65 61 74 75 72 65 70 20 27 78 65 6d 61 | .("sorry"...,(if.(featurep.'xema |
| fc920 | 63 73 29 20 6e 69 6c 20 27 28 6e 69 6c 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | cs).nil.'(nil)))))))))..(defun.s |
| fc940 | 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 65 6e 75 20 28 65 76 65 6e 74 29 0a 20 | lime-presentation-menu.(event).. |
| fc960 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 6f 69 | .(interactive."e")...(let*.((poi |
| fc980 | 6e 74 20 28 69 66 20 28 66 65 61 74 75 72 65 70 20 27 78 65 6d 61 63 73 29 20 28 65 76 65 6e 74 | nt.(if.(featurep.'xemacs).(event |
| fc9a0 | 2d 70 6f 69 6e 74 20 65 76 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -point.event)................... |
| fc9c0 | 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 29 | (posn-point.(event-end.event)))) |
| fc9e0 | 0a 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 20 28 69 66 20 28 66 65 61 74 75 72 65 70 20 | ..........(window.(if.(featurep. |
| fca00 | 27 78 65 6d 61 63 73 29 20 28 65 76 65 6e 74 2d 77 69 6e 64 6f 77 20 65 76 65 6e 74 29 20 28 63 | 'xemacs).(event-window.event).(c |
| fca20 | 61 61 64 72 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 | aadr.event)))..........(buffer.( |
| fca40 | 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 | window-buffer.window)).......... |
| fca60 | 28 63 68 6f 69 63 65 2d 74 6f 2d 6c 61 6d 62 64 61 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 | (choice-to-lambda.(make-hash-tab |
| fca80 | 6c 65 29 29 29 0a 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e | le))).....(cl-multiple-value-bin |
| fcaa0 | 64 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 66 72 6f 6d 20 74 6f 29 0a 20 20 20 20 20 20 20 | d.(presentation.from.to)........ |
| fcac0 | 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 | .(with-current-buffer.buffer.... |
| fcae0 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e | .......(slime-presentation-aroun |
| fcb00 | 64 2d 70 6f 69 6e 74 20 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 70 72 | d-point.point)).......(unless.pr |
| fcb20 | 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 70 72 | esentation.........(error."No.pr |
| fcb40 | 65 73 65 6e 74 61 74 69 6f 6e 20 61 74 20 65 76 65 6e 74 20 70 6f 73 69 74 69 6f 6e 22 29 29 0a | esentation.at.event.position")). |
| fcb60 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 65 6e 75 20 28 73 6c 69 6d 65 2d 6d 65 6e 75 2d 63 68 | ......(let.((menu.(slime-menu-ch |
| fcb80 | 6f 69 63 65 73 2d 66 6f 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | oices-for-presentation.......... |
| fcba0 | 20 20 20 20 20 20 20 20 20 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 62 75 66 66 65 72 20 66 72 | ..........presentation.buffer.fr |
| fcbc0 | 6f 6d 20 74 6f 20 63 68 6f 69 63 65 2d 74 6f 2d 6c 61 6d 62 64 61 29 29 29 0a 20 20 20 20 20 20 | om.to.choice-to-lambda)))....... |
| fcbe0 | 20 20 28 6c 65 74 20 28 28 63 68 6f 69 63 65 20 28 78 2d 70 6f 70 75 70 2d 6d 65 6e 75 20 65 76 | ..(let.((choice.(x-popup-menu.ev |
| fcc00 | 65 6e 74 20 6d 65 6e 75 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 68 6f 69 | ent.menu)))...........(when.choi |
| fcc20 | 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 | ce.............(call-interactive |
| fcc40 | 6c 79 20 28 67 65 74 68 61 73 68 20 63 68 6f 69 63 65 20 63 68 6f 69 63 65 2d 74 6f 2d 6c 61 6d | ly.(gethash.choice.choice-to-lam |
| fcc60 | 62 64 61 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e | bda))))))))..(defun.slime-presen |
| fcc80 | 74 61 74 69 6f 6e 2d 65 78 70 72 65 73 73 69 6f 6e 20 28 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 | tation-expression.(presentation) |
| fcca0 | 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 74 68 61 74 20 63 6f 6e 74 61 69 6e | ..."Return.a.string.that.contain |
| fccc0 | 73 20 61 20 43 4c 20 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 61 63 63 65 73 73 69 6e 67 0a 74 68 | s.a.CL.s-expression.accessing.th |
| fcce0 | 65 20 70 72 65 73 65 6e 74 65 64 20 6f 62 6a 65 63 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 64 | e.presented.object."...(let.((id |
| fcd00 | 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 64 20 70 72 65 73 65 6e 74 61 | .(slime-presentation-id.presenta |
| fcd20 | 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 63 6c 2d 65 74 79 70 65 63 61 73 65 20 69 64 0a 20 20 20 | tion))).....(cl-etypecase.id.... |
| fcd40 | 20 20 20 28 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 3b 3b 20 4d 61 6b 65 20 73 75 72 65 20 69 | ...(number........;;.Make.sure.i |
| fcd60 | 74 20 77 6f 72 6b 73 20 65 76 65 6e 20 69 66 20 2a 72 65 61 64 2d 62 61 73 65 2a 20 69 73 20 6e | t.works.even.if.*read-base*.is.n |
| fcd80 | 6f 74 20 31 30 2e 0a 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 73 77 61 6e 6b 3a 6c 6f | ot.10.........(format."(swank:lo |
| fcda0 | 6f 6b 75 70 2d 70 72 65 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 2d 6f 72 2d 6c 6f 73 65 20 25 64 | okup-presented-object-or-lose.%d |
| fcdc0 | 2e 29 22 20 69 64 29 29 0a 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 3b 3b 20 66 | .)".id)).......(list........;;.f |
| fcde0 | 6f 72 20 66 72 61 6d 65 20 76 61 72 69 61 62 6c 65 73 20 61 6e 64 20 69 6e 73 70 65 63 74 6f 72 | or.frame.variables.and.inspector |
| fce00 | 20 70 61 72 74 73 0a 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 73 77 61 6e 6b 3a 6c 6f | .parts........(format."(swank:lo |
| fce20 | 6f 6b 75 70 2d 70 72 65 73 65 6e 74 65 64 2d 6f 62 6a 65 63 74 2d 6f 72 2d 6c 6f 73 65 20 27 25 | okup-presented-object-or-lose.'% |
| fce40 | 73 29 22 20 69 64 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 | s)".id)))))..(defun.slime-buffer |
| fce60 | 2d 73 75 62 73 74 72 69 6e 67 2d 77 69 74 68 2d 72 65 69 66 69 65 64 2d 6f 75 74 70 75 74 20 28 | -substring-with-reified-output.( |
| fce80 | 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 2d 70 72 6f 70 73 20 28 62 | start.end)...(let.((str-props.(b |
| fcea0 | 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 29 29 0a 20 20 20 20 | uffer-substring.start.end))..... |
| fcec0 | 20 20 20 20 28 73 74 72 2d 6e 6f 2d 70 72 6f 70 73 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 | ....(str-no-props.(buffer-substr |
| fcee0 | 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 73 74 61 72 74 20 65 6e 64 29 29 29 0a 20 | ing-no-properties.start.end))).. |
| fcf00 | 20 20 20 28 73 6c 69 6d 65 2d 72 65 69 66 79 2d 6f 6c 64 2d 6f 75 74 70 75 74 20 73 74 72 2d 70 | ...(slime-reify-old-output.str-p |
| fcf20 | 72 6f 70 73 20 73 74 72 2d 6e 6f 2d 70 72 6f 70 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | rops.str-no-props)))..(defun.sli |
| fcf40 | 6d 65 2d 72 65 69 66 79 2d 6f 6c 64 2d 6f 75 74 70 75 74 20 28 73 74 72 2d 70 72 6f 70 73 20 73 | me-reify-old-output.(str-props.s |
| fcf60 | 74 72 2d 6e 6f 2d 70 72 6f 70 73 29 0a 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 73 6c 69 6d 65 | tr-no-props)...(let.((pos.(slime |
| fcf80 | 2d 70 72 6f 70 65 72 74 79 2d 70 6f 73 69 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 | -property-position.'slime-repl-p |
| fcfa0 | 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 72 2d 70 72 6f 70 73 29 29 29 0a 20 20 20 20 28 69 66 | resentation.str-props))).....(if |
| fcfc0 | 20 28 6e 75 6c 6c 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 73 74 72 2d 6e 6f 2d 70 72 6f 70 73 | .(null.pos).........str-no-props |
| fcfe0 | 0a 20 20 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 | .......(cl-multiple-value-bind.( |
| fd000 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 74 61 72 74 2d 70 6f 73 20 65 6e 64 2d 70 6f 73 20 77 | presentation.start-pos.end-pos.w |
| fd020 | 68 6f 6c 65 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 | hole-p)...........(slime-present |
| fd040 | 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 70 6f 69 6e 74 20 70 6f 73 20 73 74 72 2d 70 72 6f 70 73 | ation-around-point.pos.str-props |
| fd060 | 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 | ).........(if.(not.presentation) |
| fd080 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 2d 6e 6f 2d 70 72 6f 70 73 0a 20 20 20 20 20 20 | .............str-no-props....... |
| fd0a0 | 20 20 20 20 28 63 6f 6e 63 61 74 20 28 73 75 62 73 74 72 69 6e 67 20 73 74 72 2d 6e 6f 2d 70 72 | ....(concat.(substring.str-no-pr |
| fd0c0 | 6f 70 73 20 30 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | ops.0.pos)...................;;. |
| fd0e0 | 45 76 61 6c 20 69 6e 20 74 68 65 20 72 65 61 64 65 72 20 73 6f 20 74 68 61 74 20 77 65 20 70 6c | Eval.in.the.reader.so.that.we.pl |
| fd100 | 61 79 20 6e 69 63 65 20 77 69 74 68 20 71 75 6f 74 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ay.nice.with.quote.............. |
| fd120 | 20 20 20 20 20 20 3b 3b 20 2d 6c 75 6b 65 20 28 31 39 2f 4d 61 79 2f 32 30 30 35 29 0a 20 20 20 | ......;;.-luke.(19/May/2005).... |
| fd140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 23 2e 22 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 | ..............."#.".(slime-prese |
| fd160 | 6e 74 61 74 69 6f 6e 2d 65 78 70 72 65 73 73 69 6f 6e 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 | ntation-expression.presentation) |
| fd180 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 69 66 79 2d | ...................(slime-reify- |
| fd1a0 | 6f 6c 64 2d 6f 75 74 70 75 74 20 28 73 75 62 73 74 72 69 6e 67 20 73 74 72 2d 70 72 6f 70 73 20 | old-output.(substring.str-props. |
| fd1c0 | 65 6e 64 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | end-pos)........................ |
| fd1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 73 74 | ...................(substring.st |
| fd200 | 72 2d 6e 6f 2d 70 72 6f 70 73 20 65 6e 64 2d 70 6f 73 29 29 29 29 29 29 29 29 0a 0a 0a 0a 28 64 | r-no-props.end-pos))))))))....(d |
| fd220 | 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 67 72 61 62 2d 6f 6c 64 2d 6f 75 74 70 75 74 20 | efun.slime-repl-grab-old-output. |
| fd240 | 28 72 65 70 6c 61 63 65 29 0a 20 20 22 52 65 73 65 6e 64 20 74 68 65 20 6f 6c 64 20 52 45 50 4c | (replace)..."Resend.the.old.REPL |
| fd260 | 20 6f 75 74 70 75 74 20 61 74 20 70 6f 69 6e 74 2e 0a 49 66 20 72 65 70 6c 61 63 65 20 69 74 20 | .output.at.point..If.replace.it. |
| fd280 | 6e 6f 6e 2d 6e 69 6c 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 69 73 20 72 65 70 | non-nil.the.current.input.is.rep |
| fd2a0 | 6c 61 63 65 64 20 77 69 74 68 20 74 68 65 20 6f 6c 64 0a 6f 75 74 70 75 74 3b 20 6f 74 68 65 72 | laced.with.the.old.output;.other |
| fd2c0 | 77 69 73 65 20 74 68 65 20 6e 65 77 20 69 6e 70 75 74 20 69 73 20 61 70 70 65 6e 64 65 64 2e 22 | wise.the.new.input.is.appended." |
| fd2e0 | 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 | ...(cl-multiple-value-bind.(pres |
| fd300 | 65 6e 74 61 74 69 6f 6e 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 | entation.beg.end).......(slime-p |
| fd320 | 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 | resentation-around-or-before-poi |
| fd340 | 6e 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 70 72 65 | nt.(point)).....(slime-check-pre |
| fd360 | 73 65 6e 74 61 74 69 6f 6e 20 62 65 67 20 65 6e 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | sentation.beg.end.(current-buffe |
| fd380 | 72 29 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d | r).presentation).....(let.((old- |
| fd3a0 | 6f 75 74 70 75 74 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 62 65 67 20 65 6e 64 | output.(buffer-substring.beg.end |
| fd3c0 | 29 29 29 20 3b 3b 6b 65 65 70 20 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 3b 3b 20 41 | ))).;;keep.properties.......;;.A |
| fd3e0 | 70 70 65 6e 64 20 74 68 65 20 6f 6c 64 20 69 6e 70 75 74 20 6f 72 20 72 65 70 6c 61 63 65 20 74 | ppend.the.old.input.or.replace.t |
| fd400 | 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 72 65 | he.current.input.......(cond.(re |
| fd420 | 70 6c 61 63 65 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 | place.(goto-char.slime-repl-inpu |
| fd440 | 74 2d 73 74 61 72 74 2d 6d 61 72 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 67 | t-start-mark)).............(t.(g |
| fd460 | 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 | oto-char.(point-max))........... |
| fd480 | 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 28 63 68 61 72 2d 62 65 66 6f 72 65 29 20 3f | .....(unless.(eq.(char-before).? |
| fd4a0 | 5c 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 22 | \.)..................(insert."." |
| fd4c0 | 29 29 29 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 | )))).......(delete-region.(point |
| fd4e0 | 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 | ).(point-max)).......(let.((inhi |
| fd500 | 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 | bit-read-only.t)).........(inser |
| fd520 | 74 20 6f 6c 64 2d 6f 75 74 70 75 74 29 29 29 29 29 0a 0a 3b 3b 3b 20 50 72 65 73 65 6e 74 61 74 | t.old-output)))))..;;;.Presentat |
| fd540 | 69 6f 6e 2d 72 65 6c 61 74 65 64 20 6b 65 79 20 62 69 6e 64 69 6e 67 73 2c 20 6e 6f 6e 2d 63 6f | ion-related.key.bindings,.non-co |
| fd560 | 6e 74 65 78 74 20 6d 65 6e 75 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e | ntext.menu..(defvar.slime-presen |
| fd580 | 74 61 74 69 6f 6e 2d 63 6f 6d 6d 61 6e 64 2d 6d 61 70 20 6e 69 6c 0a 20 20 22 4b 65 79 6d 61 70 | tation-command-map.nil..."Keymap |
| fd5a0 | 20 66 6f 72 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 72 65 6c 61 74 65 64 20 63 6f 6d 6d 61 6e | .for.presentation-related.comman |
| fd5c0 | 64 73 2e 20 42 6f 75 6e 64 20 74 6f 20 61 20 70 72 65 66 69 78 20 6b 65 79 2e 22 29 0a 0a 28 64 | ds..Bound.to.a.prefix.key.")..(d |
| fd5e0 | 65 66 76 61 72 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 62 69 6e 64 69 6e 67 | efvar.slime-presentation-binding |
| fd600 | 73 0a 20 20 27 28 28 3f 69 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e 74 61 | s...'((?i.slime-inspect-presenta |
| fd620 | 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 28 3f 64 20 73 6c 69 6d 65 2d 64 65 73 | tion-at-point).....(?d.slime-des |
| fd640 | 63 72 69 62 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 | cribe-presentation-at-point).... |
| fd660 | 20 28 3f 77 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d | .(?w.slime-copy-presentation-at- |
| fd680 | 70 6f 69 6e 74 2d 74 6f 2d 6b 69 6c 6c 2d 72 69 6e 67 29 0a 20 20 20 20 28 3f 72 20 73 6c 69 6d | point-to-kill-ring).....(?r.slim |
| fd6a0 | 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 74 6f 2d | e-copy-presentation-at-point-to- |
| fd6c0 | 72 65 70 6c 29 0a 20 20 20 20 28 3f 70 20 73 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 70 72 65 | repl).....(?p.slime-previous-pre |
| fd6e0 | 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 28 3f 6e 20 73 6c 69 6d 65 2d 6e 65 78 74 2d 70 72 | sentation).....(?n.slime-next-pr |
| fd700 | 65 73 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 28 3f 5c 20 20 73 6c 69 6d 65 2d 6d 61 72 6b 2d | esentation).....(?\..slime-mark- |
| fd720 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 | presentation)))..(defun.slime-pr |
| fd740 | 65 73 65 6e 74 61 74 69 6f 6e 2d 69 6e 69 74 2d 6b 65 79 6d 61 70 73 20 28 29 0a 20 20 28 73 6c | esentation-init-keymaps.()...(sl |
| fd760 | 69 6d 65 2d 69 6e 69 74 2d 6b 65 79 6d 61 70 20 27 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 | ime-init-keymap.'slime-presentat |
| fd780 | 69 6f 6e 2d 63 6f 6d 6d 61 6e 64 2d 6d 61 70 20 6e 69 6c 20 74 0a 09 09 20 20 20 20 20 73 6c 69 | ion-command-map.nil.t........sli |
| fd7a0 | 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 28 64 65 66 | me-presentation-bindings)...(def |
| fd7c0 | 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 63 6f 6d 6d 61 | ine-key.slime-presentation-comma |
| fd7e0 | 6e 64 2d 6d 61 70 20 22 5c 4d 2d 6f 22 20 27 73 6c 69 6d 65 2d 63 6c 65 61 72 2d 70 72 65 73 65 | nd-map."\M-o".'slime-clear-prese |
| fd800 | 6e 74 61 74 69 6f 6e 73 29 0a 20 20 3b 3b 20 43 2d 63 20 43 2d 76 20 69 73 20 74 68 65 20 70 72 | ntations)...;;.C-c.C-v.is.the.pr |
| fd820 | 65 66 69 78 20 66 6f 72 20 74 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 63 6f 6d 6d 61 6e | efix.for.the.presentation-comman |
| fd840 | 64 20 6d 61 70 2e 0a 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 70 72 65 66 69 | d.map....(define-key.slime-prefi |
| fd860 | 78 2d 6d 61 70 20 22 5c 43 2d 76 22 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d | x-map."\C-v".slime-presentation- |
| fd880 | 63 6f 6d 6d 61 6e 64 2d 6d 61 70 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 | command-map))..(defun.slime-pres |
| fd8a0 | 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 2d | entation-around-or-before-point- |
| fd8c0 | 70 20 28 29 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 | p.()...(cl-multiple-value-bind.( |
| fd8e0 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 28 73 6c 69 | presentation.beg.end).......(sli |
| fd900 | 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 | me-presentation-around-or-before |
| fd920 | 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | -point.(point)).....presentation |
| fd940 | 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 | ))..(defvar.slime-presentation-e |
| fd960 | 61 73 79 2d 6d 65 6e 75 0a 20 20 28 6c 65 74 20 28 28 50 20 27 28 73 6c 69 6d 65 2d 70 72 65 73 | asy-menu...(let.((P.'(slime-pres |
| fd980 | 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 2d | entation-around-or-before-point- |
| fd9a0 | 70 29 29 29 0a 20 20 20 20 60 28 22 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 22 0a 20 20 20 20 20 | p))).....`("Presentations"...... |
| fd9c0 | 20 5b 20 22 46 69 6e 64 20 44 65 66 69 6e 69 74 69 6f 6e 22 20 73 6c 69 6d 65 2d 4d 2d 2e 2d 70 | .[."Find.Definition".slime-M-.-p |
| fd9e0 | 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 2c 50 20 5d 0a 20 20 20 20 20 20 | resentation-at-point.,P.]....... |
| fda00 | 5b 20 22 49 6e 73 70 65 63 74 22 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e | [."Inspect".slime-inspect-presen |
| fda20 | 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 2c 50 20 5d 0a 20 20 20 20 20 20 5b 20 22 44 65 | tation-at-point.,P.].......[."De |
| fda40 | 73 63 72 69 62 65 22 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 70 72 65 73 65 6e 74 61 74 | scribe".slime-describe-presentat |
| fda60 | 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 2c 50 20 5d 0a 20 20 20 20 20 20 5b 20 22 50 72 65 74 74 | ion-at-point.,P.].......[."Prett |
| fda80 | 79 2d 70 72 69 6e 74 22 20 73 6c 69 6d 65 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d 70 72 65 73 | y-print".slime-pretty-print-pres |
| fdaa0 | 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 2c 50 20 5d 0a 20 20 20 20 20 20 5b 20 22 | entation-at-point.,P.].......[." |
| fdac0 | 43 6f 70 79 20 74 6f 20 52 45 50 4c 22 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 | Copy.to.REPL".slime-copy-present |
| fdae0 | 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 74 6f 2d 72 65 70 6c 20 2c 50 20 5d 0a 20 20 20 20 | ation-at-point-to-repl.,P.]..... |
| fdb00 | 20 20 5b 20 22 43 6f 70 79 20 74 6f 20 6b 69 6c 6c 20 72 69 6e 67 22 20 73 6c 69 6d 65 2d 63 6f | ..[."Copy.to.kill.ring".slime-co |
| fdb20 | 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 74 6f 2d 6b 69 6c 6c | py-presentation-at-point-to-kill |
| fdb40 | 2d 72 69 6e 67 20 2c 50 20 5d 0a 20 20 20 20 20 20 5b 20 22 4d 61 72 6b 22 20 73 6c 69 6d 65 2d | -ring.,P.].......[."Mark".slime- |
| fdb60 | 6d 61 72 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 2c 50 20 5d 0a 20 20 20 20 20 20 22 2d 2d | mark-presentation.,P.]......."-- |
| fdb80 | 22 0a 20 20 20 20 20 20 5b 20 22 50 72 65 76 69 6f 75 73 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | ".......[."Previous.presentation |
| fdba0 | 22 20 73 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 5d 0a | ".slime-previous-presentation.]. |
| fdbc0 | 20 20 20 20 20 20 5b 20 22 4e 65 78 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 22 20 73 6c 69 6d | ......[."Next.presentation".slim |
| fdbe0 | 65 2d 6e 65 78 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 5d 0a 20 20 20 20 20 20 22 2d 2d 22 | e-next-presentation.]......."--" |
| fdc00 | 0a 20 20 20 20 20 20 5b 20 22 43 6c 65 61 72 20 61 6c 6c 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | .......[."Clear.all.presentation |
| fdc20 | 73 22 20 73 6c 69 6d 65 2d 63 6c 65 61 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 5d 29 29 | s".slime-clear-presentations.])) |
| fdc40 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 64 64 | )..(defun.slime-presentation-add |
| fdc60 | 2d 65 61 73 79 2d 6d 65 6e 75 20 28 29 0a 20 20 28 65 61 73 79 2d 6d 65 6e 75 2d 64 65 66 69 6e | -easy-menu.()...(easy-menu-defin |
| fdc80 | 65 20 6d 65 6e 75 62 61 72 2d 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 6c 69 | e.menubar-slime-presentation.sli |
| fdca0 | 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 22 20 73 6c 69 6d | me-mode-map."Presentations".slim |
| fdcc0 | 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 61 73 79 2d 6d 65 6e 75 29 0a 20 20 28 65 61 73 | e-presentation-easy-menu)...(eas |
| fdce0 | 79 2d 6d 65 6e 75 2d 64 65 66 69 6e 65 20 6d 65 6e 75 62 61 72 2d 73 6c 69 6d 65 2d 70 72 65 73 | y-menu-define.menubar-slime-pres |
| fdd00 | 65 6e 74 61 74 69 6f 6e 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 50 72 | entation.slime-repl-mode-map."Pr |
| fdd20 | 65 73 65 6e 74 61 74 69 6f 6e 73 22 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d | esentations".slime-presentation- |
| fdd40 | 65 61 73 79 2d 6d 65 6e 75 29 0a 20 20 28 65 61 73 79 2d 6d 65 6e 75 2d 64 65 66 69 6e 65 20 6d | easy-menu)...(easy-menu-define.m |
| fdd60 | 65 6e 75 62 61 72 2d 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 73 6c 64 62 2d 6d | enubar-slime-presentation.sldb-m |
| fdd80 | 6f 64 65 2d 6d 61 70 20 22 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 22 20 73 6c 69 6d 65 2d 70 72 | ode-map."Presentations".slime-pr |
| fdda0 | 65 73 65 6e 74 61 74 69 6f 6e 2d 65 61 73 79 2d 6d 65 6e 75 29 0a 20 20 28 65 61 73 79 2d 6d 65 | esentation-easy-menu)...(easy-me |
| fddc0 | 6e 75 2d 64 65 66 69 6e 65 20 6d 65 6e 75 62 61 72 2d 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 | nu-define.menubar-slime-presenta |
| fdde0 | 74 69 6f 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 6f 64 65 2d 6d 61 70 20 22 50 | tion.slime-inspector-mode-map."P |
| fde00 | 72 65 73 65 6e 74 61 74 69 6f 6e 73 22 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e | resentations".slime-presentation |
| fde20 | 2d 65 61 73 79 2d 6d 65 6e 75 29 0a 20 20 28 65 61 73 79 2d 6d 65 6e 75 2d 61 64 64 20 73 6c 69 | -easy-menu)...(easy-menu-add.sli |
| fde40 | 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 61 73 79 2d 6d 65 6e 75 20 27 73 6c 69 6d 65 | me-presentation-easy-menu.'slime |
| fde60 | 2d 6d 6f 64 65 2d 6d 61 70 29 0a 20 20 28 65 61 73 79 2d 6d 65 6e 75 2d 61 64 64 20 73 6c 69 6d | -mode-map)...(easy-menu-add.slim |
| fde80 | 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 61 73 79 2d 6d 65 6e 75 20 27 73 6c 69 6d 65 2d | e-presentation-easy-menu.'slime- |
| fdea0 | 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 29 0a 20 20 28 65 61 73 79 2d 6d 65 6e 75 2d 61 64 64 20 | repl-mode-map)...(easy-menu-add. |
| fdec0 | 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 61 73 79 2d 6d 65 6e 75 20 27 73 6c | slime-presentation-easy-menu.'sl |
| fdee0 | 64 62 2d 6d 6f 64 65 2d 6d 61 70 29 0a 20 20 28 65 61 73 79 2d 6d 65 6e 75 2d 61 64 64 20 73 6c | db-mode-map)...(easy-menu-add.sl |
| fdf00 | 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 61 73 79 2d 6d 65 6e 75 20 27 73 6c 69 6d | ime-presentation-easy-menu.'slim |
| fdf20 | 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 6f 64 65 2d 6d 61 70 29 29 0a 0a 3b 3b 3b 20 68 6f 6f 6b | e-inspector-mode-map))..;;;.hook |
| fdf40 | 20 66 75 6e 63 74 69 6f 6e 73 20 28 68 61 72 64 20 74 6f 20 69 73 6f 6c 61 74 65 20 73 74 75 66 | .functions.(hard.to.isolate.stuf |
| fdf60 | 66 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 2d 70 72 65 73 65 6e | f)..(defun.slime-dispatch-presen |
| fdf80 | 74 61 74 69 6f 6e 2d 65 76 65 6e 74 20 28 65 76 65 6e 74 29 0a 20 20 28 73 6c 69 6d 65 2d 64 63 | tation-event.(event)...(slime-dc |
| fdfa0 | 61 73 65 20 65 76 65 6e 74 0a 20 20 20 20 28 28 3a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 | ase.event.....((:presentation-st |
| fdfc0 | 61 72 74 20 69 64 20 26 6f 70 74 69 6f 6e 61 6c 20 74 61 72 67 65 74 29 0a 20 20 20 20 20 28 73 | art.id.&optional.target)......(s |
| fdfe0 | 6c 69 6d 65 2d 6d 61 72 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 20 69 64 20 | lime-mark-presentation-start.id. |
| fe000 | 74 61 72 67 65 74 29 0a 20 20 20 20 20 74 29 0a 20 20 20 20 28 28 3a 70 72 65 73 65 6e 74 61 74 | target)......t).....((:presentat |
| fe020 | 69 6f 6e 2d 65 6e 64 20 69 64 20 26 6f 70 74 69 6f 6e 61 6c 20 74 61 72 67 65 74 29 0a 20 20 20 | ion-end.id.&optional.target).... |
| fe040 | 20 20 28 73 6c 69 6d 65 2d 6d 61 72 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 20 69 | ..(slime-mark-presentation-end.i |
| fe060 | 64 20 74 61 72 67 65 74 29 0a 20 20 20 20 20 74 29 0a 20 20 20 20 28 74 20 6e 69 6c 29 29 29 0a | d.target)......t).....(t.nil))). |
| fe080 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 77 72 69 74 65 | .(defun.slime-presentation-write |
| fe0a0 | 2d 72 65 73 75 6c 74 20 28 73 74 72 69 6e 67 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 | -result.(string)...(with-current |
| fe0c0 | 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 | -buffer.(slime-output-buffer)... |
| fe0e0 | 20 20 28 6c 65 74 20 28 28 6d 61 72 6b 65 72 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 6f 75 74 70 | ..(let.((marker.(slime-repl-outp |
| fe100 | 75 74 2d 74 61 72 67 65 74 2d 6d 61 72 6b 65 72 20 3a 72 65 70 6c 2d 72 65 73 75 6c 74 29 29 0a | ut-target-marker.:repl-result)). |
| fe120 | 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 64 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 2d 6d 61 | ..........(saved-point.(point-ma |
| fe140 | 72 6b 65 72 29 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6d 61 72 6b 65 72 29 | rker))).......(goto-char.marker) |
| fe160 | 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 20 | .......(slime-propertize-region. |
| fe180 | 60 28 66 61 63 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 73 75 6c 74 2d 66 61 63 65 0a 20 20 | `(face.slime-repl-result-face... |
| fe1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| fe1c0 | 20 20 20 20 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 28 66 61 63 65 29 29 0a 20 20 20 20 20 | ....rear-nonsticky.(face))...... |
| fe1e0 | 20 20 20 28 69 6e 73 65 72 74 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 3b 3b 20 4d 6f 76 | ...(insert.string)).......;;.Mov |
| fe200 | 65 20 74 68 65 20 69 6e 70 75 74 2d 73 74 61 72 74 20 6d 61 72 6b 65 72 20 61 66 74 65 72 20 74 | e.the.input-start.marker.after.t |
| fe220 | 68 65 20 52 45 50 4c 20 72 65 73 75 6c 74 2e 0a 20 20 20 20 20 20 28 73 65 74 2d 6d 61 72 6b 65 | he.REPL.result........(set-marke |
| fe240 | 72 20 6d 61 72 6b 65 72 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 73 65 74 2d 6d 61 72 | r.marker.(point)).......(set-mar |
| fe260 | 6b 65 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 | ker.slime-output-end.(point))... |
| fe280 | 20 20 20 20 3b 3b 20 52 65 73 74 6f 72 65 20 70 6f 69 6e 74 20 62 65 66 6f 72 65 20 69 6e 73 65 | ....;;.Restore.point.before.inse |
| fe2a0 | 72 74 69 6f 6e 20 62 75 74 20 6f 6e 6c 79 20 69 74 20 69 66 20 77 61 73 20 66 61 72 74 68 65 72 | rtion.but.only.it.if.was.farther |
| fe2c0 | 0a 20 20 20 20 20 20 3b 3b 20 74 68 61 6e 20 60 6d 61 72 6b 65 72 27 2e 20 4f 6d 69 74 74 69 6e | .......;;.than.`marker'..Omittin |
| fe2e0 | 67 20 74 68 69 73 20 62 72 65 61 6b 73 20 52 45 50 4c 20 74 65 73 74 0a 20 20 20 20 20 20 3b 3b | g.this.breaks.REPL.test.......;; |
| fe300 | 20 60 72 65 70 6c 2d 74 79 70 65 2d 61 68 65 61 64 27 2e 0a 20 20 20 20 20 20 28 77 68 65 6e 20 | .`repl-type-ahead'........(when. |
| fe320 | 28 3e 20 73 61 76 65 64 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 | (>.saved-point.(point))......... |
| fe340 | 28 67 6f 74 6f 2d 63 68 61 72 20 73 61 76 65 64 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 | (goto-char.saved-point))).....(s |
| fe360 | 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 77 2d 6d 61 78 69 6d 75 6d 2d 6f 75 74 70 75 74 29 29 29 | lime-repl-show-maximum-output))) |
| fe380 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 77 72 69 74 | ..(defun.slime-presentation-writ |
| fe3a0 | 65 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 74 61 72 67 65 74 29 0a 20 20 28 63 | e.(string.&optional.target)...(c |
| fe3c0 | 6c 2d 63 61 73 65 20 74 61 72 67 65 74 0a 20 20 20 20 28 28 6e 69 6c 29 20 20 20 20 20 20 20 20 | l-case.target.....((nil)........ |
| fe3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 65 67 75 6c 61 72 20 | ......................;.Regular. |
| fe400 | 70 72 6f 63 65 73 73 20 6f 75 74 70 75 74 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d | process.output......(slime-repl- |
| fe420 | 65 6d 69 74 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 28 3a 72 65 70 6c 2d 72 65 73 75 6c 74 0a | emit.string)).....(:repl-result. |
| fe440 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 77 72 69 74 65 2d 72 | .....(slime-presentation-write-r |
| fe460 | 65 73 75 6c 74 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 28 74 20 28 73 6c 69 6d 65 2d 72 65 70 | esult.string)).....(t.(slime-rep |
| fe480 | 6c 2d 65 6d 69 74 2d 74 6f 2d 74 61 72 67 65 74 20 73 74 72 69 6e 67 20 74 61 72 67 65 74 29 29 | l-emit-to-target.string.target)) |
| fe4a0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 63 75 | ))..(defun.slime-presentation-cu |
| fe4c0 | 72 72 65 6e 74 2d 69 6e 70 75 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 75 6e 74 69 6c 2d 70 6f 69 | rrent-input.(&optional.until-poi |
| fe4e0 | 6e 74 2d 70 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 | nt-p)..."Return.the.current.inpu |
| fe500 | 74 20 61 73 20 73 74 72 69 6e 67 2e 0a 54 68 65 20 69 6e 70 75 74 20 69 73 20 74 68 65 20 72 65 | t.as.string..The.input.is.the.re |
| fe520 | 67 69 6f 6e 20 66 72 6f 6d 20 61 66 74 65 72 20 74 68 65 20 6c 61 73 74 20 70 72 6f 6d 70 74 20 | gion.from.after.the.last.prompt. |
| fe540 | 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 0a 62 75 66 66 65 72 2e 20 50 72 65 73 65 6e 74 61 74 69 | to.the.end.of.buffer..Presentati |
| fe560 | 6f 6e 73 20 6f 66 20 6f 6c 64 20 72 65 73 75 6c 74 73 20 61 72 65 20 65 78 70 61 6e 64 65 64 20 | ons.of.old.results.are.expanded. |
| fe580 | 69 6e 74 6f 20 63 6f 64 65 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 73 75 62 73 | into.code."...(slime-buffer-subs |
| fe5a0 | 74 72 69 6e 67 2d 77 69 74 68 2d 72 65 69 66 69 65 64 2d 6f 75 74 70 75 74 20 28 73 6c 69 6d 65 | tring-with-reified-output.(slime |
| fe5c0 | 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 79 61 6e 6b 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 | -repl-history-yank-start)....... |
| fe5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| fe600 | 20 20 20 20 20 20 20 20 28 69 66 20 75 6e 74 69 6c 2d 70 6f 69 6e 74 2d 70 0a 20 20 20 20 20 20 | ........(if.until-point-p....... |
| fe620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| fe640 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ............(point)............. |
| fe660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| fe680 | 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | ....(point-max))))..(defun.slime |
| fe6a0 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6f 6e 2d 72 65 74 75 72 6e 2d 70 72 65 73 73 65 64 20 | -presentation-on-return-pressed. |
| fe6c0 | 28 65 6e 64 2d 6f 66 2d 69 6e 70 75 74 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 63 61 72 | (end-of-input)...(when.(and.(car |
| fe6e0 | 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6f 72 2d 62 | .(slime-presentation-around-or-b |
| fe700 | 65 66 6f 72 65 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | efore-point.(point)))........... |
| fe720 | 20 20 20 28 3c 20 28 70 6f 69 6e 74 29 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 | ...(<.(point).slime-repl-input-s |
| fe740 | 74 61 72 74 2d 6d 61 72 6b 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 67 72 61 62 | tart-mark)).....(slime-repl-grab |
| fe760 | 2d 6f 6c 64 2d 6f 75 74 70 75 74 20 65 6e 64 2d 6f 66 2d 69 6e 70 75 74 29 0a 20 20 20 20 28 73 | -old-output.end-of-input).....(s |
| fe780 | 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 63 65 6e 74 65 72 2d 69 66 2d 6e 65 65 64 65 64 29 0a 20 20 | lime-repl-recenter-if-needed)... |
| fe7a0 | 20 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 65 61 72 2d 70 72 65 73 65 6e | ..t))..(defun.slime-clear-presen |
| fe7c0 | 74 61 74 69 6f 6e 73 20 28 29 0a 20 20 22 46 6f 72 67 65 74 20 61 6c 6c 20 6f 62 6a 65 63 74 73 | tations.()..."Forget.all.objects |
| fe7e0 | 20 61 73 73 6f 63 69 61 74 65 64 20 74 6f 20 53 4c 49 4d 45 20 70 72 65 73 65 6e 74 61 74 69 6f | .associated.to.SLIME.presentatio |
| fe800 | 6e 73 2e 0a 54 68 69 73 20 61 6c 6c 6f 77 73 20 74 68 65 20 67 61 72 62 61 67 65 20 63 6f 6c 6c | ns..This.allows.the.garbage.coll |
| fe820 | 65 63 74 6f 72 20 74 6f 20 72 65 6d 6f 76 65 20 74 68 65 73 65 20 6f 62 6a 65 63 74 73 0a 65 76 | ector.to.remove.these.objects.ev |
| fe840 | 65 6e 20 6f 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | en.on.Common.Lisp.implementation |
| fe860 | 73 20 77 69 74 68 6f 75 74 20 77 65 61 6b 20 68 61 73 68 20 74 61 62 6c 65 73 2e 22 0a 20 20 28 | s.without.weak.hash.tables."...( |
| fe880 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 | interactive)...(slime-eval-async |
| fe8a0 | 20 60 28 73 77 61 6e 6b 3a 63 6c 65 61 72 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 29 29 0a 20 20 | .`(swank:clear-repl-results))... |
| fe8c0 | 28 75 6e 6c 65 73 73 20 28 65 71 6c 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 72 | (unless.(eql.major-mode.'slime-r |
| fe8e0 | 65 70 6c 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f 2d 6f | epl-mode).....(slime-switch-to-o |
| fe900 | 75 74 70 75 74 2d 62 75 66 66 65 72 29 29 0a 20 20 28 73 6c 69 6d 65 2d 66 6f 72 2d 65 61 63 68 | utput-buffer))...(slime-for-each |
| fe920 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 6e 2d 72 65 67 69 6f 6e 20 31 20 28 31 2b 20 28 62 | -presentation-in-region.1.(1+.(b |
| fe940 | 75 66 66 65 72 2d 73 69 7a 65 29 29 0a 09 09 09 09 09 20 28 6c 61 6d 62 64 61 20 28 70 72 65 73 | uffer-size)).......(lambda.(pres |
| fe960 | 65 6e 74 61 74 69 6f 6e 20 66 72 6f 6d 20 74 6f 20 77 68 6f 6c 65 2d 70 29 0a 09 09 09 09 09 20 | entation.from.to.whole-p)....... |
| fe980 | 20 20 28 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 70 72 6f | ..(slime-remove-presentation-pro |
| fe9a0 | 70 65 72 74 69 65 73 20 66 72 6f 6d 20 74 6f 0a 09 09 09 09 09 09 09 09 09 09 20 70 72 65 73 65 | perties.from.to............prese |
| fe9c0 | 6e 74 61 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e | ntation))))..(defun.slime-presen |
| fe9e0 | 74 61 74 69 6f 6e 2d 69 6e 73 70 65 63 74 6f 72 2d 69 6e 73 65 72 74 2d 69 73 70 65 63 20 28 69 | tation-inspector-insert-ispec.(i |
| fea00 | 73 70 65 63 29 0a 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 69 73 70 65 63 29 0a 20 20 20 20 | spec)...(if.(stringp.ispec)..... |
| fea20 | 20 20 28 69 6e 73 65 72 74 20 69 73 70 65 63 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 | ..(insert.ispec).....(slime-dcas |
| fea40 | 65 20 69 73 70 65 63 0a 20 20 20 20 20 20 28 28 3a 76 61 6c 75 65 20 73 74 72 69 6e 67 20 69 64 | e.ispec.......((:value.string.id |
| fea60 | 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f | )........(slime-propertize-regio |
| fea80 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 73 6c 69 6d 65 2d 70 61 72 74 2d 6e | n............(list.'slime-part-n |
| feaa0 | 75 6d 62 65 72 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 6f 75 73 65 | umber.id..................'mouse |
| feac0 | 2d 66 61 63 65 20 27 68 69 67 68 6c 69 67 68 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -face.'highlight................ |
| feae0 | 20 20 27 66 61 63 65 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 76 61 6c 75 65 2d 66 | ..'face.'slime-inspector-value-f |
| feb00 | 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 65 73 | ace)..........(slime-insert-pres |
| feb20 | 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 20 60 28 3a 69 6e 73 70 65 63 74 65 64 2d 70 61 72 | entation.string.`(:inspected-par |
| feb40 | 74 20 2c 69 64 29 20 74 29 29 29 0a 20 20 20 20 20 20 28 28 3a 6c 61 62 65 6c 20 73 74 72 69 6e | t.,id).t))).......((:label.strin |
| feb60 | 67 29 0a 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 | g)........(insert.(slime-inspect |
| feb80 | 6f 72 2d 66 6f 6e 74 69 66 79 20 6c 61 62 65 6c 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 | or-fontify.label.string)))...... |
| feba0 | 20 28 28 3a 61 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 69 64 29 0a 20 20 20 20 20 20 20 28 73 6c | .((:action.string.id)........(sl |
| febc0 | 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 64 20 28 6c 69 73 74 20 27 73 6c | ime-insert-propertized.(list.'sl |
| febe0 | 69 6d 65 2d 61 63 74 69 6f 6e 2d 6e 75 6d 62 65 72 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 | ime-action-number.id............ |
| fec00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 6f 75 | ............................'mou |
| fec20 | 73 65 2d 66 61 63 65 20 27 68 69 67 68 6c 69 67 68 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | se-face.'highlight.............. |
| fec40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 | ..........................'face. |
| fec60 | 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 61 63 74 69 6f 6e 2d 66 61 63 65 29 0a 20 20 | 'slime-inspector-action-face)... |
| fec80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 | ...............................s |
| feca0 | 74 72 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 | tring)))))..(defun.slime-present |
| fecc0 | 61 74 69 6f 6e 2d 73 6c 64 62 2d 69 6e 73 65 72 74 2d 66 72 61 6d 65 2d 76 61 72 69 61 62 6c 65 | ation-sldb-insert-frame-variable |
| fece0 | 2d 76 61 6c 75 65 20 28 76 61 6c 75 65 20 66 72 61 6d 65 20 69 6e 64 65 78 29 0a 20 20 28 73 6c | -value.(value.frame.index)...(sl |
| fed00 | 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 20 20 20 28 73 6c 64 62 | ime-insert-presentation....(sldb |
| fed20 | 2d 69 6e 2d 66 61 63 65 20 6c 6f 63 61 6c 2d 76 61 6c 75 65 20 76 61 6c 75 65 29 0a 20 20 20 60 | -in-face.local-value.value)....` |
| fed40 | 28 3a 66 72 61 6d 65 2d 76 61 72 20 2c 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 | (:frame-var.,slime-current-threa |
| fed60 | 64 20 2c 28 63 61 72 20 66 72 61 6d 65 29 20 2c 69 6e 64 65 78 29 20 74 29 29 0a 0a 28 64 65 66 | d.,(car.frame).,index).t))..(def |
| fed80 | 75 6e 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2d 6f 6e 2d 63 6f 6e 6e 65 63 | un.slime-presentations-on-connec |
| feda0 | 74 65 64 20 28 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 | ted.()...(slime-eval-async.`(swa |
| fedc0 | 6e 6b 3a 69 6e 69 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 29 29 29 0a 0a 28 70 72 6f 76 69 | nk:init-presentations)))..(provi |
| fede0 | 64 65 20 27 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 29 0a 00 00 00 00 00 00 00 | de.'slime-presentations)........ |
| fee00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2e 72 62 00 00 00 00 00 | slime-2.31/contrib/swank.rb..... |
| fee20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fee40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fee60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| fee80 | 30 30 31 36 37 34 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 33 33 33 00 20 30 00 00 00 | 0016744.00000000000.014333..0... |
| feea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| feec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| feee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fef00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| fef20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| fef40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fef60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fef80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fefa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fefc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fefe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ff000 | 23 20 73 77 61 6e 6b 2e 72 62 20 2d 2d 2d 20 73 77 61 6e 6b 20 73 65 72 76 65 72 20 66 6f 72 20 | #.swank.rb.---.swank.server.for. |
| ff020 | 52 75 62 79 2e 0a 23 0a 23 20 54 68 69 73 20 69 73 20 6d 79 20 66 69 72 73 74 20 52 75 62 79 20 | Ruby..#.#.This.is.my.first.Ruby. |
| ff040 | 70 72 6f 67 72 61 6d 20 61 6e 64 20 6c 6f 6f 6b 73 20 70 72 6f 62 61 62 6c 79 20 72 61 74 68 65 | program.and.looks.probably.rathe |
| ff060 | 72 20 73 74 72 61 6e 67 65 2e 20 20 53 6f 6d 65 0a 23 20 70 65 6f 70 6c 65 20 77 72 69 74 65 20 | r.strange...Some.#.people.write. |
| ff080 | 53 63 68 65 6d 65 20 69 6e 74 65 72 70 72 65 74 65 72 73 20 77 68 65 6e 20 6c 65 61 72 6e 69 6e | Scheme.interpreters.when.learnin |
| ff0a0 | 67 20 6e 65 77 20 6c 61 6e 67 75 61 67 65 73 2c 20 49 0a 23 20 77 72 69 74 65 20 73 77 61 6e 6b | g.new.languages,.I.#.write.swank |
| ff0c0 | 20 62 61 63 6b 65 6e 64 73 2e 20 20 0a 23 0a 23 20 4f 6e 6c 79 20 61 20 66 65 77 20 74 68 69 6e | .backends....#.#.Only.a.few.thin |
| ff0e0 | 67 73 20 77 6f 72 6b 2e 20 20 0a 23 20 31 2e 20 53 74 61 72 74 20 74 68 65 20 73 65 72 76 65 72 | gs.work....#.1..Start.the.server |
| ff100 | 20 77 69 74 68 20 73 6f 6d 65 74 68 69 6e 67 20 6c 69 6b 65 3a 20 72 75 62 79 20 2d 72 20 73 77 | .with.something.like:.ruby.-r.sw |
| ff120 | 61 6e 6b 20 2d 65 20 73 77 61 6e 6b 0a 23 20 32 2e 20 55 73 65 20 4d 2d 78 20 73 6c 69 6d 65 2d | ank.-e.swank.#.2..Use.M-x.slime- |
| ff140 | 63 6f 6e 6e 65 63 74 20 74 6f 20 65 73 74 61 62 6c 69 73 68 20 61 20 63 6f 6e 6e 65 63 74 69 6f | connect.to.establish.a.connectio |
| ff160 | 6e 0a 0a 72 65 71 75 69 72 65 20 22 73 6f 63 6b 65 74 22 0a 0a 64 65 66 20 73 77 61 6e 6b 28 70 | n..require."socket"..def.swank(p |
| ff180 | 6f 72 74 3d 34 30 30 35 29 20 0a 20 20 61 63 63 65 70 74 5f 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 | ort=4005)....accept_connections. |
| ff1a0 | 70 6f 72 74 2c 20 66 61 6c 73 65 0a 65 6e 64 0a 0a 64 65 66 20 73 74 61 72 74 5f 73 77 61 6e 6b | port,.false.end..def.start_swank |
| ff1c0 | 28 70 6f 72 74 5f 66 69 6c 65 29 0a 20 20 61 63 63 65 70 74 5f 63 6f 6e 6e 65 63 74 69 6f 6e 73 | (port_file)...accept_connections |
| ff1e0 | 20 66 61 6c 73 65 2c 20 70 6f 72 74 5f 66 69 6c 65 0a 65 6e 64 0a 0a 64 65 66 20 61 63 63 65 70 | .false,.port_file.end..def.accep |
| ff200 | 74 5f 63 6f 6e 6e 65 63 74 69 6f 6e 73 28 70 6f 72 74 2c 20 70 6f 72 74 5f 66 69 6c 65 29 0a 20 | t_connections(port,.port_file).. |
| ff220 | 20 73 65 72 76 65 72 20 3d 20 54 43 50 53 65 72 76 65 72 2e 6e 65 77 28 22 6c 6f 63 61 6c 68 6f | .server.=.TCPServer.new("localho |
| ff240 | 73 74 22 2c 20 70 6f 72 74 20 7c 7c 20 30 29 0a 20 20 70 75 74 73 20 22 4c 69 73 74 65 6e 69 6e | st",.port.||.0)...puts."Listenin |
| ff260 | 67 20 6f 6e 20 23 7b 73 65 72 76 65 72 2e 61 64 64 72 2e 69 6e 73 70 65 63 74 7d 5c 6e 22 0a 20 | g.on.#{server.addr.inspect}\n".. |
| ff280 | 20 69 66 20 70 6f 72 74 5f 66 69 6c 65 0a 20 20 20 20 77 72 69 74 65 5f 70 6f 72 74 5f 66 69 6c | .if.port_file.....write_port_fil |
| ff2a0 | 65 20 73 65 72 76 65 72 2e 61 64 64 72 5b 31 5d 2c 20 70 6f 72 74 5f 66 69 6c 65 0a 20 20 65 6e | e.server.addr[1],.port_file...en |
| ff2c0 | 64 0a 20 20 73 6f 63 6b 65 74 20 3d 20 62 65 67 69 6e 20 73 65 72 76 65 72 2e 61 63 63 65 70 74 | d...socket.=.begin.server.accept |
| ff2e0 | 20 65 6e 73 75 72 65 20 73 65 72 76 65 72 2e 63 6c 6f 73 65 20 65 6e 64 0a 20 20 62 65 67 69 6e | .ensure.server.close.end...begin |
| ff300 | 0a 20 20 20 20 73 65 72 76 65 20 73 6f 63 6b 65 74 2e 74 6f 5f 69 6f 0a 20 20 65 6e 73 75 72 65 | .....serve.socket.to_io...ensure |
| ff320 | 0a 20 20 20 20 73 6f 63 6b 65 74 2e 63 6c 6f 73 65 0a 20 20 65 6e 64 0a 65 6e 64 0a 0a 64 65 66 | .....socket.close...end.end..def |
| ff340 | 20 77 72 69 74 65 5f 70 6f 72 74 5f 66 69 6c 65 28 70 6f 72 74 2c 20 66 69 6c 65 6e 61 6d 65 29 | .write_port_file(port,.filename) |
| ff360 | 0a 20 20 46 69 6c 65 2e 6f 70 65 6e 28 66 69 6c 65 6e 61 6d 65 2c 20 46 69 6c 65 3a 3a 43 52 45 | ...File.open(filename,.File::CRE |
| ff380 | 41 54 7c 46 69 6c 65 3a 3a 45 58 43 4c 7c 46 69 6c 65 3a 3a 57 52 4f 4e 4c 59 29 20 64 6f 20 7c | AT|File::EXCL|File::WRONLY).do.| |
| ff3a0 | 66 7c 0a 20 20 20 20 66 2e 70 75 74 73 20 70 6f 72 74 20 0a 20 20 65 6e 64 0a 65 6e 64 0a 0a 64 | f|.....f.puts.port....end.end..d |
| ff3c0 | 65 66 20 73 65 72 76 65 28 69 6f 29 0a 20 20 6d 61 69 6e 5f 6c 6f 6f 70 28 69 6f 29 0a 65 6e 64 | ef.serve(io)...main_loop(io).end |
| ff3e0 | 0a 0a 64 65 66 20 6d 61 69 6e 5f 6c 6f 6f 70 28 69 6f 29 0a 20 20 63 20 3d 20 43 6f 6e 6e 65 63 | ..def.main_loop(io)...c.=.Connec |
| ff400 | 74 69 6f 6e 2e 6e 65 77 28 69 6f 29 0a 20 20 77 68 69 6c 65 20 74 72 75 65 0a 20 20 20 20 63 61 | tion.new(io)...while.true.....ca |
| ff420 | 74 63 68 20 3a 73 77 61 6e 6b 5f 74 6f 70 5f 6c 65 76 65 6c 20 64 6f 0a 20 20 20 20 20 20 63 2e | tch.:swank_top_level.do.......c. |
| ff440 | 64 69 73 70 61 74 63 68 28 72 65 61 64 5f 70 61 63 6b 65 74 28 69 6f 29 29 0a 20 20 20 20 65 6e | dispatch(read_packet(io)).....en |
| ff460 | 64 0a 20 20 65 6e 64 0a 65 6e 64 0a 0a 63 6c 61 73 73 20 43 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 | d...end.end..class.Connection... |
| ff480 | 0a 20 20 64 65 66 20 69 6e 69 74 69 61 6c 69 7a 65 28 69 6f 29 0a 20 20 20 20 40 69 6f 20 3d 20 | ...def.initialize(io).....@io.=. |
| ff4a0 | 69 6f 0a 20 20 65 6e 64 0a 0a 20 20 64 65 66 20 64 69 73 70 61 74 63 68 28 65 76 65 6e 74 29 0a | io...end....def.dispatch(event). |
| ff4c0 | 20 20 20 20 70 75 74 73 20 22 64 69 73 70 61 74 63 68 3a 20 25 73 5c 6e 22 20 25 20 65 76 65 6e | ....puts."dispatch:.%s\n".%.even |
| ff4e0 | 74 2e 69 6e 73 70 65 63 74 0a 20 20 20 20 63 61 73 65 20 65 76 65 6e 74 5b 30 5d 0a 20 20 20 20 | t.inspect.....case.event[0]..... |
| ff500 | 77 68 65 6e 20 3a 22 3a 65 6d 61 63 73 2d 72 65 78 22 0a 20 20 20 20 20 20 65 6d 61 63 73 5f 72 | when.:":emacs-rex".......emacs_r |
| ff520 | 65 78 20 2a 65 76 65 6e 74 5b 31 2e 2e 34 5d 0a 20 20 20 20 65 6c 73 65 20 72 61 69 73 65 20 22 | ex.*event[1..4].....else.raise." |
| ff540 | 55 6e 68 61 6e 64 6c 65 64 20 65 76 65 6e 74 3a 20 23 7b 65 76 65 6e 74 2e 69 6e 73 70 65 63 74 | Unhandled.event:.#{event.inspect |
| ff560 | 7d 22 0a 20 20 20 20 65 6e 64 0a 20 20 65 6e 64 0a 0a 20 20 64 65 66 20 73 65 6e 64 5f 74 6f 5f | }".....end...end....def.send_to_ |
| ff580 | 65 6d 61 63 73 28 6f 62 6a 29 0a 20 20 20 20 70 61 79 6c 6f 61 64 20 3d 20 77 72 69 74 65 5f 73 | emacs(obj).....payload.=.write_s |
| ff5a0 | 65 78 70 5f 74 6f 5f 73 74 72 69 6e 67 28 6f 62 6a 29 0a 20 20 20 20 40 69 6f 2e 77 72 69 74 65 | exp_to_string(obj).....@io.write |
| ff5c0 | 28 22 25 30 36 78 22 20 25 20 70 61 79 6c 6f 61 64 2e 6c 65 6e 67 74 68 29 0a 20 20 20 20 40 69 | ("%06x".%.payload.length).....@i |
| ff5e0 | 6f 2e 77 72 69 74 65 20 70 61 79 6c 6f 61 64 0a 20 20 20 20 40 69 6f 2e 66 6c 75 73 68 0a 20 20 | o.write.payload.....@io.flush... |
| ff600 | 65 6e 64 0a 0a 20 20 64 65 66 20 65 6d 61 63 73 5f 72 65 78 28 66 6f 72 6d 2c 20 70 6b 67 2c 20 | end....def.emacs_rex(form,.pkg,. |
| ff620 | 74 68 72 65 61 64 2c 20 69 64 29 0a 20 20 20 20 70 72 6f 63 20 3d 20 24 72 70 63 5f 65 6e 74 72 | thread,.id).....proc.=.$rpc_entr |
| ff640 | 69 65 73 5b 66 6f 72 6d 5b 30 5d 5d 0a 20 20 20 20 61 72 67 73 20 3d 20 66 6f 72 6d 5b 31 2e 2e | ies[form[0]].....args.=.form[1.. |
| ff660 | 2d 31 5d 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 61 69 73 65 20 22 55 6e 64 65 | -1];.....begin.......raise."Unde |
| ff680 | 66 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 3a 20 23 7b 66 6f 72 6d 5b 30 5d 7d 22 20 75 6e 6c 65 | fined.function:.#{form[0]}".unle |
| ff6a0 | 73 73 20 70 72 6f 63 0a 20 20 20 20 20 20 76 61 6c 75 65 20 3d 20 70 72 6f 63 5b 2a 61 72 67 73 | ss.proc.......value.=.proc[*args |
| ff6c0 | 5d 0a 20 20 20 20 72 65 73 63 75 65 20 45 78 63 65 70 74 69 6f 6e 20 3d 3e 20 65 78 63 0a 20 20 | ].....rescue.Exception.=>.exc... |
| ff6e0 | 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 70 73 65 75 64 6f 5f 64 65 62 75 67 20 65 | ....begin.........pseudo_debug.e |
| ff700 | 78 63 0a 20 20 20 20 20 20 65 6e 73 75 72 65 0a 20 20 20 20 20 20 20 20 73 65 6e 64 5f 74 6f 5f | xc.......ensure.........send_to_ |
| ff720 | 65 6d 61 63 73 20 5b 3a 22 3a 72 65 74 75 72 6e 22 2c 20 5b 3a 22 3a 61 62 6f 72 74 22 5d 2c 20 | emacs.[:":return",.[:":abort"],. |
| ff740 | 69 64 5d 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 73 65 6e | id].......end.....else.......sen |
| ff760 | 64 5f 74 6f 5f 65 6d 61 63 73 20 5b 3a 22 3a 72 65 74 75 72 6e 22 2c 20 5b 3a 22 3a 6f 6b 22 2c | d_to_emacs.[:":return",.[:":ok", |
| ff780 | 20 76 61 6c 75 65 5d 2c 20 69 64 5d 0a 20 20 20 20 65 6e 64 0a 20 20 65 6e 64 0a 0a 20 20 64 65 | .value],.id].....end...end....de |
| ff7a0 | 66 20 70 73 65 75 64 6f 5f 64 65 62 75 67 28 65 78 63 29 0a 20 20 20 20 6c 65 76 65 6c 20 3d 20 | f.pseudo_debug(exc).....level.=. |
| ff7c0 | 31 0a 20 20 20 20 73 65 6e 64 5f 74 6f 5f 65 6d 61 63 73 20 5b 3a 22 3a 64 65 62 75 67 22 2c 20 | 1.....send_to_emacs.[:":debug",. |
| ff7e0 | 30 2c 20 6c 65 76 65 6c 5d 20 2b 20 73 6c 64 62 5f 69 6e 66 6f 28 65 78 63 2c 20 30 2c 20 32 30 | 0,.level].+.sldb_info(exc,.0,.20 |
| ff800 | 29 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 6c 64 62 5f 6c 6f 6f 70 20 65 78 63 0a | ).....begin.......sldb_loop.exc. |
| ff820 | 20 20 20 20 65 6e 73 75 72 65 0a 20 20 20 20 20 20 73 65 6e 64 5f 74 6f 5f 65 6d 61 63 73 20 5b | ....ensure.......send_to_emacs.[ |
| ff840 | 3a 22 3a 64 65 62 75 67 2d 72 65 74 75 72 6e 22 2c 20 30 2c 20 6c 65 76 65 6c 2c 20 3a 6e 69 6c | :":debug-return",.0,.level,.:nil |
| ff860 | 5d 0a 20 20 20 20 65 6e 64 0a 20 20 65 6e 64 0a 0a 20 20 64 65 66 20 73 6c 64 62 5f 6c 6f 6f 70 | ].....end...end....def.sldb_loop |
| ff880 | 28 65 78 63 29 0a 20 20 20 20 24 73 6c 64 62 5f 63 6f 6e 74 65 78 74 20 3d 20 5b 73 65 6c 66 2c | (exc).....$sldb_context.=.[self, |
| ff8a0 | 65 78 63 5d 0a 20 20 20 20 77 68 69 6c 65 20 74 72 75 65 0a 20 20 20 20 20 20 64 69 73 70 61 74 | exc].....while.true.......dispat |
| ff8c0 | 63 68 28 72 65 61 64 5f 70 61 63 6b 65 74 28 40 69 6f 29 29 0a 20 20 20 20 65 6e 64 0a 20 20 65 | ch(read_packet(@io)).....end...e |
| ff8e0 | 6e 64 0a 0a 20 20 64 65 66 20 73 6c 64 62 5f 69 6e 66 6f 28 65 78 63 2c 20 73 74 61 72 74 2c 20 | nd....def.sldb_info(exc,.start,. |
| ff900 | 5f 65 6e 64 29 0a 20 20 20 20 5b 5b 65 78 63 2e 74 6f 5f 73 2c 0a 20 20 20 20 20 20 22 20 20 5b | _end).....[[exc.to_s,......."..[ |
| ff920 | 25 73 5d 22 20 25 20 65 78 63 2e 63 6c 61 73 73 2e 6e 61 6d 65 2c 0a 20 20 20 20 20 20 3a 6e 69 | %s]".%.exc.class.name,.......:ni |
| ff940 | 6c 5d 2c 0a 20 20 20 20 20 73 6c 64 62 5f 72 65 73 74 61 72 74 73 28 65 78 63 29 2c 0a 20 20 20 | l],......sldb_restarts(exc),.... |
| ff960 | 20 20 73 6c 64 62 5f 62 61 63 6b 74 72 61 63 65 28 65 78 63 2c 20 73 74 61 72 74 2c 20 5f 65 6e | ..sldb_backtrace(exc,.start,._en |
| ff980 | 64 29 2c 0a 20 20 20 20 20 5b 5d 5d 0a 20 20 65 6e 64 0a 0a 20 20 64 65 66 20 73 6c 64 62 5f 72 | d),......[]]...end....def.sldb_r |
| ff9a0 | 65 73 74 61 72 74 73 28 65 78 63 29 20 0a 20 20 20 20 5b 5b 22 51 75 69 74 22 2c 20 22 53 4c 49 | estarts(exc)......[["Quit",."SLI |
| ff9c0 | 4d 45 20 74 6f 70 2d 6c 65 76 65 6c 2e 22 5d 5d 0a 20 20 65 6e 64 0a 0a 20 20 64 65 66 20 73 6c | ME.top-level."]]...end....def.sl |
| ff9e0 | 64 62 5f 62 61 63 6b 74 72 61 63 65 28 65 78 63 2c 20 73 74 61 72 74 2c 20 5f 65 6e 64 29 0a 20 | db_backtrace(exc,.start,._end).. |
| ffa00 | 20 20 20 62 74 20 3d 20 5b 5d 0a 20 20 20 20 65 78 63 2e 62 61 63 6b 74 72 61 63 65 5b 73 74 61 | ...bt.=.[].....exc.backtrace[sta |
| ffa20 | 72 74 2e 2e 5f 65 6e 64 5d 2e 65 61 63 68 5f 77 69 74 68 5f 69 6e 64 65 78 20 64 6f 20 7c 66 72 | rt.._end].each_with_index.do.|fr |
| ffa40 | 61 6d 65 2c 20 69 7c 0a 20 20 20 20 20 20 62 74 20 3c 3c 20 5b 69 2c 20 66 72 61 6d 65 5d 0a 20 | ame,.i|.......bt.<<.[i,.frame].. |
| ffa60 | 20 20 20 65 6e 64 0a 20 20 20 20 62 74 0a 20 20 65 6e 64 0a 0a 20 20 64 65 66 20 66 72 61 6d 65 | ...end.....bt...end....def.frame |
| ffa80 | 5f 73 72 63 5f 6c 6f 63 28 65 78 63 2c 20 66 72 61 6d 65 29 0a 20 20 20 20 73 74 72 69 6e 67 20 | _src_loc(exc,.frame).....string. |
| ffaa0 | 3d 20 65 78 63 2e 62 61 63 6b 74 72 61 63 65 5b 66 72 61 6d 65 5d 0a 20 20 20 20 6d 61 74 63 68 | =.exc.backtrace[frame].....match |
| ffac0 | 20 3d 20 2f 28 5b 5e 3a 5d 2b 29 3a 28 5b 30 2d 39 5d 2b 29 2f 2e 6d 61 74 63 68 28 73 74 72 69 | .=./([^:]+):([0-9]+)/.match(stri |
| ffae0 | 6e 67 29 0a 20 20 20 20 69 66 20 6d 61 74 63 68 0a 20 20 20 20 20 20 66 69 6c 65 2c 6c 69 6e 65 | ng).....if.match.......file,line |
| ffb00 | 20 3d 20 6d 61 74 63 68 5b 31 2e 2e 32 5d 0a 20 20 20 20 20 20 5b 3a 22 3a 6c 6f 63 61 74 69 6f | .=.match[1..2].......[:":locatio |
| ffb20 | 6e 22 2c 20 5b 3a 22 3a 66 69 6c 65 22 2c 20 66 69 6c 65 5d 2c 20 5b 3a 22 3a 6c 69 6e 65 22 2c | n",.[:":file",.file],.[:":line", |
| ffb40 | 20 6c 69 6e 65 2e 74 6f 5f 69 5d 2c 20 3a 6e 69 6c 5d 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 | .line.to_i],.:nil].....else..... |
| ffb60 | 20 20 5b 3a 22 3a 65 72 72 6f 72 22 2c 20 22 6e 6f 20 73 72 63 2d 6c 6f 63 20 66 6f 72 20 66 72 | ..[:":error",."no.src-loc.for.fr |
| ffb80 | 61 6d 65 3a 20 23 7b 73 74 72 69 6e 67 7d 22 5d 0a 20 20 20 20 65 6e 64 0a 20 20 65 6e 64 0a 20 | ame:.#{string}"].....end...end.. |
| ffba0 | 20 0a 65 6e 64 0a 0a 24 72 70 63 5f 65 6e 74 72 69 65 73 20 3d 20 48 61 73 68 2e 6e 65 77 0a 0a | ..end..$rpc_entries.=.Hash.new.. |
| ffbc0 | 24 72 70 63 5f 65 6e 74 72 69 65 73 5b 3a 22 73 77 61 6e 6b 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2d | $rpc_entries[:"swank:connection- |
| ffbe0 | 69 6e 66 6f 22 5d 20 3d 20 6c 61 6d 62 64 61 20 64 6f 20 7c 7c 0a 20 20 20 20 5b 3a 22 3a 70 69 | info"].=.lambda.do.||.....[:":pi |
| ffc00 | 64 22 2c 20 24 24 2c 0a 20 20 20 20 20 3a 22 3a 70 61 63 6b 61 67 65 22 2c 20 5b 3a 22 3a 6e 61 | d",.$$,......:":package",.[:":na |
| ffc20 | 6d 65 22 2c 20 22 72 75 62 79 22 2c 20 3a 22 3a 70 72 6f 6d 70 74 22 2c 20 22 72 75 62 79 3e 20 | me",."ruby",.:":prompt",."ruby>. |
| ffc40 | 22 5d 2c 0a 20 20 20 20 20 3a 22 3a 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 22 | "],......:":lisp-implementation" |
| ffc60 | 2c 20 5b 3a 22 3a 74 79 70 65 22 2c 20 22 52 75 62 79 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 | ,.[:":type",."Ruby",............ |
| ffc80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 22 3a 6e 61 6d 65 22 2c 20 22 72 | ....................:":name",."r |
| ffca0 | 75 62 79 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uby",........................... |
| ffcc0 | 20 20 20 20 20 3a 22 3a 76 65 72 73 69 6f 6e 22 2c 20 52 55 42 59 5f 56 45 52 53 49 4f 4e 5d 5d | .....:":version",.RUBY_VERSION]] |
| ffce0 | 0a 65 6e 64 0a 0a 64 65 66 20 73 77 61 6e 6b 5f 69 6e 74 65 72 61 63 74 69 76 65 5f 65 76 61 6c | .end..def.swank_interactive_eval |
| ffd00 | 28 73 74 72 69 6e 67 29 0a 20 20 65 76 61 6c 28 73 74 72 69 6e 67 2c 54 4f 50 4c 45 56 45 4c 5f | (string)...eval(string,TOPLEVEL_ |
| ffd20 | 42 49 4e 44 49 4e 47 29 2e 69 6e 73 70 65 63 74 0a 65 6e 64 0a 0a 24 72 70 63 5f 65 6e 74 72 69 | BINDING).inspect.end..$rpc_entri |
| ffd40 | 65 73 5b 3a 22 73 77 61 6e 6b 3a 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 22 5d 20 3d 20 | es[:"swank:interactive-eval"].=. |
| ffd60 | 5c 0a 24 72 70 63 5f 65 6e 74 72 69 65 73 5b 3a 22 73 77 61 6e 6b 3a 69 6e 74 65 72 61 63 74 69 | \.$rpc_entries[:"swank:interacti |
| ffd80 | 76 65 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 22 5d 20 3d 20 5c 0a 24 72 70 63 5f 65 6e 74 72 69 65 | ve-eval-region"].=.\.$rpc_entrie |
| ffda0 | 73 5b 3a 22 73 77 61 6e 6b 3a 70 70 72 69 6e 74 2d 65 76 61 6c 22 5d 20 3d 20 6c 61 6d 62 64 61 | s[:"swank:pprint-eval"].=.lambda |
| ffdc0 | 20 7b 20 7c 73 74 72 69 6e 67 7c 0a 20 20 73 77 61 6e 6b 5f 69 6e 74 65 72 61 63 74 69 76 65 5f | .{.|string|...swank_interactive_ |
| ffde0 | 65 76 61 6c 20 73 74 72 69 6e 67 0a 7d 0a 0a 24 72 70 63 5f 65 6e 74 72 69 65 73 5b 3a 22 73 77 | eval.string.}..$rpc_entries[:"sw |
| ffe00 | 61 6e 6b 3a 74 68 72 6f 77 2d 74 6f 2d 74 6f 70 6c 65 76 65 6c 22 5d 20 3d 20 6c 61 6d 62 64 61 | ank:throw-to-toplevel"].=.lambda |
| ffe20 | 20 7b 20 0a 20 20 74 68 72 6f 77 20 3a 73 77 61 6e 6b 5f 74 6f 70 5f 6c 65 76 65 6c 0a 7d 0a 0a | .{....throw.:swank_top_level.}.. |
| ffe40 | 24 72 70 63 5f 65 6e 74 72 69 65 73 5b 3a 22 73 77 61 6e 6b 3a 62 61 63 6b 74 72 61 63 65 22 5d | $rpc_entries[:"swank:backtrace"] |
| ffe60 | 20 3d 20 6c 61 6d 62 64 61 20 64 6f 20 7c 66 72 6f 6d 2c 20 74 6f 7c 0a 20 20 63 6f 6e 6e 2c 20 | .=.lambda.do.|from,.to|...conn,. |
| ffe80 | 65 78 63 20 3d 20 24 73 6c 64 62 5f 63 6f 6e 74 65 78 74 0a 20 20 63 6f 6e 6e 2e 73 6c 64 62 5f | exc.=.$sldb_context...conn.sldb_ |
| ffea0 | 62 61 63 6b 74 72 61 63 65 28 65 78 63 2c 20 66 72 6f 6d 2c 20 74 6f 29 0a 65 6e 64 0a 0a 24 72 | backtrace(exc,.from,.to).end..$r |
| ffec0 | 70 63 5f 65 6e 74 72 69 65 73 5b 3a 22 73 77 61 6e 6b 3a 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d | pc_entries[:"swank:frame-source- |
| ffee0 | 6c 6f 63 61 74 69 6f 6e 22 5d 20 3d 20 6c 61 6d 62 64 61 20 64 6f 20 7c 66 72 61 6d 65 7c 0a 20 | location"].=.lambda.do.|frame|.. |
| fff00 | 20 63 6f 6e 6e 2c 20 65 78 63 20 3d 20 24 73 6c 64 62 5f 63 6f 6e 74 65 78 74 0a 20 20 63 6f 6e | .conn,.exc.=.$sldb_context...con |
| fff20 | 6e 2e 66 72 61 6d 65 5f 73 72 63 5f 6c 6f 63 28 65 78 63 2c 20 66 72 61 6d 65 29 0a 65 6e 64 0a | n.frame_src_loc(exc,.frame).end. |
| fff40 | 0a 23 69 67 6e 6f 72 65 64 0a 24 72 70 63 5f 65 6e 74 72 69 65 73 5b 3a 22 73 77 61 6e 6b 3a 62 | .#ignored.$rpc_entries[:"swank:b |
| fff60 | 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 22 5d 20 3d 20 5c 0a 24 72 70 63 5f 65 6e | uffer-first-change"].=.\.$rpc_en |
| fff80 | 74 72 69 65 73 5b 3a 22 73 77 61 6e 6b 3a 6f 70 65 72 61 74 6f 72 2d 61 72 67 6c 69 73 74 22 5d | tries[:"swank:operator-arglist"] |
| fffa0 | 20 3d 20 6c 61 6d 62 64 61 20 64 6f 20 0a 20 20 3a 6e 69 6c 0a 65 6e 64 0a 0a 24 72 70 63 5f 65 | .=.lambda.do....:nil.end..$rpc_e |
| fffc0 | 6e 74 72 69 65 73 5b 3a 22 73 77 61 6e 6b 3a 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e | ntries[:"swank:simple-completion |
| fffe0 | 73 22 5d 20 3d 20 6c 61 6d 62 64 61 20 64 6f 20 7c 70 72 65 66 69 78 2c 20 70 6b 67 7c 0a 20 20 | s"].=.lambda.do.|prefix,.pkg|... |
| 100000 | 73 77 61 6e 6b 5f 73 69 6d 70 6c 65 5f 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 70 72 65 66 69 78 2c | swank_simple_completions.prefix, |
| 100020 | 20 70 6b 67 0a 65 6e 64 0a 0a 23 20 64 65 66 20 73 77 61 6e 6b 5f 73 69 6d 70 6c 65 5f 63 6f 6d | .pkg.end..#.def.swank_simple_com |
| 100040 | 70 6c 65 74 69 6f 6e 73 28 70 72 65 66 69 78 2c 20 70 6b 67 29 0a 0a 64 65 66 20 72 65 61 64 5f | pletions(prefix,.pkg)..def.read_ |
| 100060 | 70 61 63 6b 65 74 28 69 6f 29 0a 20 20 68 65 61 64 65 72 20 3d 20 72 65 61 64 5f 63 68 75 6e 6b | packet(io)...header.=.read_chunk |
| 100080 | 28 69 6f 2c 20 36 29 0a 20 20 6c 65 6e 20 3d 20 68 65 61 64 65 72 2e 68 65 78 0a 20 20 70 61 79 | (io,.6)...len.=.header.hex...pay |
| 1000a0 | 6c 6f 61 64 20 3d 20 72 65 61 64 5f 63 68 75 6e 6b 28 69 6f 2c 20 6c 65 6e 29 0a 20 20 23 24 64 | load.=.read_chunk(io,.len)...#$d |
| 1000c0 | 65 66 65 72 72 2e 70 75 74 73 20 70 61 79 6c 6f 61 64 2e 69 6e 73 70 65 63 74 0a 20 20 72 65 61 | eferr.puts.payload.inspect...rea |
| 1000e0 | 64 5f 73 65 78 70 5f 66 72 6f 6d 5f 73 74 72 69 6e 67 28 70 61 79 6c 6f 61 64 29 0a 65 6e 64 0a | d_sexp_from_string(payload).end. |
| 100100 | 0a 64 65 66 20 72 65 61 64 5f 63 68 75 6e 6b 28 69 6f 2c 20 6c 65 6e 29 0a 20 20 62 75 66 66 65 | .def.read_chunk(io,.len)...buffe |
| 100120 | 72 20 3d 20 69 6f 2e 72 65 61 64 28 6c 65 6e 29 0a 20 20 72 61 69 73 65 20 22 73 68 6f 72 74 20 | r.=.io.read(len)...raise."short. |
| 100140 | 72 65 61 64 22 20 69 66 20 62 75 66 66 65 72 2e 6c 65 6e 67 74 68 20 21 3d 20 6c 65 6e 0a 20 20 | read".if.buffer.length.!=.len... |
| 100160 | 62 75 66 66 65 72 0a 65 6e 64 0a 0a 64 65 66 20 77 72 69 74 65 5f 73 65 78 70 5f 74 6f 5f 73 74 | buffer.end..def.write_sexp_to_st |
| 100180 | 72 69 6e 67 28 6f 62 6a 29 0a 20 20 73 74 72 69 6e 67 20 3d 20 22 22 0a 20 20 77 72 69 74 65 5f | ring(obj)...string.=.""...write_ |
| 1001a0 | 73 65 78 70 5f 74 6f 5f 73 74 72 69 6e 67 5f 6c 6f 6f 70 20 6f 62 6a 2c 20 73 74 72 69 6e 67 0a | sexp_to_string_loop.obj,.string. |
| 1001c0 | 20 20 73 74 72 69 6e 67 0a 65 6e 64 0a 0a 64 65 66 20 77 72 69 74 65 5f 73 65 78 70 5f 74 6f 5f | ..string.end..def.write_sexp_to_ |
| 1001e0 | 73 74 72 69 6e 67 5f 6c 6f 6f 70 28 6f 62 6a 2c 20 73 74 72 69 6e 67 29 0a 20 20 69 66 20 6f 62 | string_loop(obj,.string)...if.ob |
| 100200 | 6a 2e 69 73 5f 61 3f 20 53 74 72 69 6e 67 0a 20 20 20 20 73 74 72 69 6e 67 20 3c 3c 20 22 5c 22 | j.is_a?.String.....string.<<."\" |
| 100220 | 22 0a 20 20 20 20 73 74 72 69 6e 67 20 3c 3c 20 6f 62 6a 2e 67 73 75 62 28 2f 28 5b 22 5c 5c 5d | ".....string.<<.obj.gsub(/(["\\] |
| 100240 | 29 2f 2c 27 5c 5c 5c 5c 5c 31 27 29 0a 20 20 20 20 73 74 72 69 6e 67 20 3c 3c 20 22 5c 22 22 0a | )/,'\\\\\1').....string.<<."\"". |
| 100260 | 20 20 65 6c 73 69 66 20 6f 62 6a 2e 69 73 5f 61 3f 20 41 72 72 61 79 0a 20 20 20 20 73 74 72 69 | ..elsif.obj.is_a?.Array.....stri |
| 100280 | 6e 67 20 3c 3c 20 22 28 22 0a 20 20 20 20 6d 61 78 20 3d 20 6f 62 6a 2e 6c 65 6e 67 74 68 2d 31 | ng.<<."(".....max.=.obj.length-1 |
| 1002a0 | 0a 20 20 20 20 6f 62 6a 2e 65 61 63 68 5f 77 69 74 68 5f 69 6e 64 65 78 20 64 6f 20 7c 65 2c 69 | .....obj.each_with_index.do.|e,i |
| 1002c0 | 7c 0a 20 20 20 20 20 20 77 72 69 74 65 5f 73 65 78 70 5f 74 6f 5f 73 74 72 69 6e 67 5f 6c 6f 6f | |.......write_sexp_to_string_loo |
| 1002e0 | 70 20 65 2c 20 73 74 72 69 6e 67 0a 20 20 20 20 20 20 73 74 72 69 6e 67 20 3c 3c 20 22 20 22 20 | p.e,.string.......string.<<.".". |
| 100300 | 75 6e 6c 65 73 73 20 69 20 3d 3d 20 6d 61 78 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 73 74 72 69 | unless.i.==.max.....end.....stri |
| 100320 | 6e 67 20 3c 3c 20 22 29 22 0a 20 20 65 6c 73 69 66 20 6f 62 6a 2e 69 73 5f 61 3f 20 53 79 6d 62 | ng.<<.")"...elsif.obj.is_a?.Symb |
| 100340 | 6f 6c 20 6f 72 20 6f 62 6a 2e 69 73 5f 61 3f 20 4e 75 6d 65 72 69 63 0a 20 20 20 20 73 74 72 69 | ol.or.obj.is_a?.Numeric.....stri |
| 100360 | 6e 67 20 3c 3c 20 6f 62 6a 2e 74 6f 5f 73 0a 20 20 65 6c 73 69 66 20 6f 62 6a 20 3d 3d 20 66 61 | ng.<<.obj.to_s...elsif.obj.==.fa |
| 100380 | 6c 73 65 0a 20 20 20 20 73 74 72 69 6e 67 20 3c 3c 20 22 6e 69 6c 22 0a 20 20 65 6c 73 69 66 20 | lse.....string.<<."nil"...elsif. |
| 1003a0 | 6f 62 6a 20 3d 3d 20 74 72 75 65 0a 20 20 20 20 73 74 72 69 6e 67 20 3c 3c 20 22 74 22 0a 20 20 | obj.==.true.....string.<<."t"... |
| 1003c0 | 65 6c 73 65 20 72 61 69 73 65 20 22 43 61 6e 27 74 20 77 72 69 74 65 3a 20 23 7b 6f 62 6a 2e 69 | else.raise."Can't.write:.#{obj.i |
| 1003e0 | 6e 73 70 65 63 74 7d 22 0a 20 20 65 6e 64 0a 65 6e 64 0a 0a 64 65 66 20 72 65 61 64 5f 73 65 78 | nspect}"...end.end..def.read_sex |
| 100400 | 70 5f 66 72 6f 6d 5f 73 74 72 69 6e 67 28 73 74 72 69 6e 67 29 0a 20 20 73 74 72 65 61 6d 20 3d | p_from_string(string)...stream.= |
| 100420 | 20 53 74 72 69 6e 67 49 6e 70 75 74 53 74 72 65 61 6d 2e 6e 65 77 28 73 74 72 69 6e 67 29 0a 20 | .StringInputStream.new(string).. |
| 100440 | 20 72 65 61 64 65 72 20 3d 20 4c 69 73 70 52 65 61 64 65 72 2e 6e 65 77 28 73 74 72 65 61 6d 29 | .reader.=.LispReader.new(stream) |
| 100460 | 0a 20 20 72 65 61 64 65 72 2e 72 65 61 64 0a 65 6e 64 0a 0a 63 6c 61 73 73 20 4c 69 73 70 52 65 | ...reader.read.end..class.LispRe |
| 100480 | 61 64 65 72 0a 20 20 64 65 66 20 69 6e 69 74 69 61 6c 69 7a 65 28 69 6f 29 0a 20 20 20 20 40 69 | ader...def.initialize(io).....@i |
| 1004a0 | 6f 20 3d 20 69 6f 0a 20 20 65 6e 64 0a 20 20 0a 20 20 64 65 66 20 72 65 61 64 28 61 6c 6c 6f 77 | o.=.io...end......def.read(allow |
| 1004c0 | 5f 63 6f 6e 73 69 6e 67 5f 64 6f 74 3d 66 61 6c 73 65 29 0a 20 20 20 20 73 6b 69 70 5f 77 68 69 | _consing_dot=false).....skip_whi |
| 1004e0 | 74 65 73 70 61 63 65 0a 20 20 20 20 63 20 3d 20 40 69 6f 2e 67 65 74 63 0a 20 20 20 20 63 61 73 | tespace.....c.=.@io.getc.....cas |
| 100500 | 65 20 63 0a 20 20 20 20 77 68 65 6e 20 3f 28 20 74 68 65 6e 20 72 65 61 64 5f 6c 69 73 74 28 74 | e.c.....when.?(.then.read_list(t |
| 100520 | 72 75 65 29 0a 20 20 20 20 77 68 65 6e 20 3f 22 20 74 68 65 6e 20 72 65 61 64 5f 73 74 72 69 6e | rue).....when.?".then.read_strin |
| 100540 | 67 0a 20 20 20 20 77 68 65 6e 20 3f 27 20 74 68 65 6e 20 72 65 61 64 5f 71 75 6f 74 65 0a 20 20 | g.....when.?'.then.read_quote... |
| 100560 | 20 20 77 68 65 6e 20 6e 69 6c 20 74 68 65 6e 20 72 61 69 73 65 20 45 4f 46 45 72 72 6f 72 2e 6e | ..when.nil.then.raise.EOFError.n |
| 100580 | 65 77 28 22 45 4f 46 20 64 75 72 69 6e 67 20 72 65 61 64 22 29 0a 20 20 20 20 65 6c 73 65 0a 20 | ew("EOF.during.read").....else.. |
| 1005a0 | 20 20 20 20 20 40 69 6f 2e 75 6e 67 65 74 63 28 63 29 0a 20 20 20 20 20 20 6f 62 6a 20 3d 20 72 | .....@io.ungetc(c).......obj.=.r |
| 1005c0 | 65 61 64 5f 6e 75 6d 62 65 72 5f 6f 72 5f 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 69 66 20 6f 62 | ead_number_or_symbol.......if.ob |
| 1005e0 | 6a 20 3d 3d 20 3a 22 2e 22 20 61 6e 64 20 6e 6f 74 20 61 6c 6c 6f 77 5f 63 6f 6e 73 69 6e 67 5f | j.==.:".".and.not.allow_consing_ |
| 100600 | 64 6f 74 0a 20 20 20 20 20 20 20 20 72 61 69 73 65 20 22 43 6f 6e 73 69 6e 67 2d 64 6f 74 20 69 | dot.........raise."Consing-dot.i |
| 100620 | 6e 20 69 6e 76 61 6c 69 64 20 63 6f 6e 74 65 78 74 22 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 | n.invalid.context".......end.... |
| 100640 | 20 20 20 6f 62 6a 0a 20 20 20 20 65 6e 64 0a 20 20 65 6e 64 0a 0a 20 20 64 65 66 20 72 65 61 64 | ...obj.....end...end....def.read |
| 100660 | 5f 6c 69 73 74 28 68 65 61 64 29 0a 20 20 20 20 6c 69 73 74 20 3d 20 5b 5d 0a 20 20 20 20 6c 6f | _list(head).....list.=.[].....lo |
| 100680 | 6f 70 20 64 6f 0a 20 20 20 20 20 20 73 6b 69 70 5f 77 68 69 74 65 73 70 61 63 65 0a 20 20 20 20 | op.do.......skip_whitespace..... |
| 1006a0 | 20 20 63 20 3d 20 40 69 6f 2e 72 65 61 64 63 68 61 72 0a 20 20 20 20 20 20 69 66 20 63 20 3d 3d | ..c.=.@io.readchar.......if.c.== |
| 1006c0 | 20 3f 29 20 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 | .?)..........break.......else... |
| 1006e0 | 20 20 20 20 20 20 40 69 6f 2e 75 6e 67 65 74 63 28 63 29 0a 20 20 20 20 20 20 20 20 6f 62 6a 20 | ......@io.ungetc(c).........obj. |
| 100700 | 3d 20 72 65 61 64 28 21 68 65 61 64 29 0a 20 20 20 20 20 20 20 20 69 66 20 6f 62 6a 20 3d 3d 20 | =.read(!head).........if.obj.==. |
| 100720 | 3a 22 2e 22 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 22 43 6f 6e 73 69 6e 67 2d 64 6f | :"."...........error."Consing-do |
| 100740 | 74 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 22 20 23 20 77 6f 75 6c 64 20 6e 65 65 64 20 | t.not.implemented".#.would.need. |
| 100760 | 72 65 61 6c 20 63 6f 6e 73 65 73 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 | real.conses.........end......... |
| 100780 | 68 65 61 64 20 3d 20 66 61 6c 73 65 0a 20 20 20 20 20 20 20 20 6c 69 73 74 20 3c 3c 20 6f 62 6a | head.=.false.........list.<<.obj |
| 1007a0 | 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 6c 69 73 74 0a 20 20 65 6e | .......end.....end.....list...en |
| 1007c0 | 64 0a 0a 20 20 64 65 66 20 72 65 61 64 5f 73 74 72 69 6e 67 0a 20 20 20 20 73 74 72 69 6e 67 20 | d....def.read_string.....string. |
| 1007e0 | 3d 20 22 22 0a 20 20 20 20 6c 6f 6f 70 20 64 6f 20 0a 20 20 20 20 20 20 63 20 3d 20 40 69 6f 2e | =."".....loop.do........c.=.@io. |
| 100800 | 67 65 74 63 0a 20 20 20 20 20 20 63 61 73 65 20 63 20 0a 20 20 20 20 20 20 77 68 65 6e 20 3f 22 | getc.......case.c........when.?" |
| 100820 | 20 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 20 0a 20 20 20 20 20 20 77 68 65 6e 20 3f 5c 5c 20 | ..........break........when.?\\. |
| 100840 | 0a 20 20 20 20 20 20 20 20 63 20 3d 20 40 69 6f 2e 67 65 74 63 0a 20 20 20 20 20 20 20 20 63 61 | .........c.=.@io.getc.........ca |
| 100860 | 73 65 20 63 0a 20 20 20 20 20 20 20 20 77 68 65 6e 20 3f 5c 5c 2c 20 3f 22 20 74 68 65 6e 20 73 | se.c.........when.?\\,.?".then.s |
| 100880 | 74 72 69 6e 67 20 3c 3c 20 63 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 72 61 69 73 65 20 22 49 | tring.<<.c.........else.raise."I |
| 1008a0 | 6e 76 61 6c 69 64 20 65 73 63 61 70 65 20 63 68 61 72 3a 20 5c 5c 25 63 22 20 25 20 63 0a 20 20 | nvalid.escape.char:.\\%c".%.c... |
| 1008c0 | 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 73 74 72 | ......end.......else.........str |
| 1008e0 | 69 6e 67 20 3c 3c 20 63 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 73 | ing.<<.c.......end.....end.....s |
| 100900 | 74 72 69 6e 67 0a 20 20 65 6e 64 0a 0a 20 20 64 65 66 20 72 65 61 64 5f 71 75 6f 74 65 0a 20 20 | tring...end....def.read_quote... |
| 100920 | 20 20 5b 3a 71 75 6f 74 65 2c 20 72 65 61 64 5d 0a 20 20 65 6e 64 0a 0a 20 20 64 65 66 20 72 65 | ..[:quote,.read]...end....def.re |
| 100940 | 61 64 5f 6e 75 6d 62 65 72 5f 6f 72 5f 73 79 6d 62 6f 6c 0a 20 20 20 20 74 6f 6b 65 6e 20 3d 20 | ad_number_or_symbol.....token.=. |
| 100960 | 72 65 61 64 5f 74 6f 6b 65 6e 0a 20 20 20 20 69 66 20 74 6f 6b 65 6e 2e 65 6d 70 74 79 3f 0a 20 | read_token.....if.token.empty?.. |
| 100980 | 20 20 20 20 20 72 61 69 73 65 20 45 4f 46 45 72 72 6f 72 2e 6e 65 77 0a 20 20 20 20 65 6c 73 69 | .....raise.EOFError.new.....elsi |
| 1009a0 | 66 20 2f 5e 5b 30 2d 39 5d 2b 24 2f 2e 6d 61 74 63 68 28 74 6f 6b 65 6e 29 0a 20 20 20 20 20 20 | f./^[0-9]+$/.match(token)....... |
| 1009c0 | 74 6f 6b 65 6e 2e 74 6f 5f 69 0a 20 20 20 20 65 6c 73 69 66 20 2f 5e 5b 30 2d 39 5d 2b 5c 2e 5b | token.to_i.....elsif./^[0-9]+\.[ |
| 1009e0 | 30 2d 39 5d 2b 24 2f 2e 6d 61 74 63 68 28 74 6f 6b 65 6e 29 0a 20 20 20 20 20 20 74 6f 6b 65 6e | 0-9]+$/.match(token).......token |
| 100a00 | 2e 74 6f 5f 66 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 74 6f 6b 65 6e 2e 69 6e 74 65 72 | .to_f.....else.......token.inter |
| 100a20 | 6e 0a 20 20 20 20 65 6e 64 0a 20 20 65 6e 64 0a 0a 20 20 64 65 66 20 72 65 61 64 5f 74 6f 6b 65 | n.....end...end....def.read_toke |
| 100a40 | 6e 0a 20 20 20 20 74 6f 6b 65 6e 20 3d 20 22 22 0a 20 20 20 20 6c 6f 6f 70 20 64 6f 0a 20 20 20 | n.....token.=."".....loop.do.... |
| 100a60 | 20 20 20 63 20 3d 20 40 69 6f 2e 67 65 74 63 0a 20 20 20 20 20 20 69 66 20 63 2e 6e 69 6c 3f 20 | ...c.=.@io.getc.......if.c.nil?. |
| 100a80 | 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 0a 20 20 20 20 20 20 65 6c 73 69 66 20 74 65 72 6d 69 | .........break.......elsif.termi |
| 100aa0 | 6e 61 74 69 6e 67 3f 28 63 29 0a 20 20 20 20 20 20 20 20 40 69 6f 2e 75 6e 67 65 74 63 28 63 29 | nating?(c).........@io.ungetc(c) |
| 100ac0 | 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 | .........break.......else....... |
| 100ae0 | 20 20 74 6f 6b 65 6e 20 3c 3c 20 63 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6e 64 0a 20 | ..token.<<.c.......end.....end.. |
| 100b00 | 20 20 20 74 6f 6b 65 6e 0a 20 20 65 6e 64 0a 0a 20 20 64 65 66 20 73 6b 69 70 5f 77 68 69 74 65 | ...token...end....def.skip_white |
| 100b20 | 73 70 61 63 65 0a 20 20 20 20 6c 6f 6f 70 20 64 6f 0a 20 20 20 20 20 20 63 20 3d 20 40 69 6f 2e | space.....loop.do.......c.=.@io. |
| 100b40 | 67 65 74 63 0a 20 20 20 20 20 20 63 61 73 65 20 63 20 0a 20 20 20 20 20 20 77 68 65 6e 20 3f 5c | getc.......case.c........when.?\ |
| 100b60 | 73 2c 20 3f 5c 6e 2c 20 3f 5c 74 20 74 68 65 6e 20 6e 65 78 74 0a 20 20 20 20 20 20 77 68 65 6e | s,.?\n,.?\t.then.next.......when |
| 100b80 | 20 6e 69 6c 20 74 68 65 6e 20 62 72 65 61 6b 0a 20 20 20 20 20 20 65 6c 73 65 20 40 69 6f 2e 75 | .nil.then.break.......else.@io.u |
| 100ba0 | 6e 67 65 74 63 28 63 29 3b 20 62 72 65 61 6b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6e | ngetc(c);.break.......end.....en |
| 100bc0 | 64 0a 20 20 65 6e 64 0a 20 20 0a 20 20 64 65 66 20 74 65 72 6d 69 6e 61 74 69 6e 67 3f 28 63 68 | d...end......def.terminating?(ch |
| 100be0 | 61 72 29 20 0a 20 20 20 20 22 20 5c 6e 5c 74 28 29 5c 22 27 22 2e 69 6e 63 6c 75 64 65 3f 28 63 | ar)......".\n\t()\"'".include?(c |
| 100c00 | 68 61 72 29 0a 20 20 65 6e 64 0a 0a 65 6e 64 0a 0a 0a 63 6c 61 73 73 20 53 74 72 69 6e 67 49 6e | har)...end..end...class.StringIn |
| 100c20 | 70 75 74 53 74 72 65 61 6d 0a 20 20 64 65 66 20 69 6e 69 74 69 61 6c 69 7a 65 28 73 74 72 69 6e | putStream...def.initialize(strin |
| 100c40 | 67 29 0a 20 20 20 20 40 73 74 72 69 6e 67 20 3d 20 73 74 72 69 6e 67 0a 20 20 20 20 40 70 6f 73 | g).....@string.=.string.....@pos |
| 100c60 | 20 3d 20 30 0a 20 20 20 20 40 6d 61 78 20 3d 20 73 74 72 69 6e 67 2e 6c 65 6e 67 74 68 0a 20 20 | .=.0.....@max.=.string.length... |
| 100c80 | 65 6e 64 0a 0a 20 20 64 65 66 20 70 6f 73 28 29 20 40 70 6f 73 20 65 6e 64 0a 20 20 0a 20 20 64 | end....def.pos().@pos.end......d |
| 100ca0 | 65 66 20 67 65 74 63 0a 20 20 20 20 69 66 20 40 70 6f 73 20 3d 3d 20 40 6d 61 78 0a 20 20 20 20 | ef.getc.....if.@pos.==.@max..... |
| 100cc0 | 20 20 6e 69 6c 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 63 20 3d 20 40 73 74 72 69 6e 67 | ..nil.....else.......c.=.@string |
| 100ce0 | 5b 40 70 6f 73 5d 0a 20 20 20 20 20 20 40 70 6f 73 20 2b 3d 20 31 0a 20 20 20 20 20 20 63 0a 20 | [@pos].......@pos.+=.1.......c.. |
| 100d00 | 20 20 20 65 6e 64 0a 20 20 65 6e 64 0a 20 20 0a 20 20 64 65 66 20 72 65 61 64 63 68 61 72 0a 20 | ...end...end......def.readchar.. |
| 100d20 | 20 20 20 67 65 74 63 20 6f 72 20 72 61 69 73 65 20 45 4f 46 45 72 72 6f 72 2e 6e 65 77 0a 20 20 | ...getc.or.raise.EOFError.new... |
| 100d40 | 65 6e 64 0a 0a 20 20 64 65 66 20 75 6e 67 65 74 63 28 63 29 0a 20 20 20 20 69 66 20 40 70 6f 73 | end....def.ungetc(c).....if.@pos |
| 100d60 | 20 3e 20 30 20 26 26 20 40 73 74 72 69 6e 67 5b 40 70 6f 73 2d 31 5d 20 3d 3d 20 63 20 0a 20 20 | .>.0.&&.@string[@pos-1].==.c.... |
| 100d80 | 20 20 20 20 40 70 6f 73 20 2d 3d 20 31 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 72 61 69 | ....@pos.-=.1.....else.......rai |
| 100da0 | 73 65 20 22 49 6e 76 61 6c 69 64 20 61 72 67 75 6d 65 6e 74 3a 20 25 63 20 5b 61 74 20 25 64 5d | se."Invalid.argument:.%c.[at.%d] |
| 100dc0 | 22 20 25 20 5b 63 2c 20 40 70 6f 73 5d 0a 20 20 20 20 65 6e 64 0a 20 20 65 6e 64 0a 20 20 0a 65 | ".%.[c,.@pos].....end...end....e |
| 100de0 | 6e 64 0a 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | nd.............................. |
| 100e00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 | slime-2.31/contrib/slime-macrost |
| 100e20 | 65 70 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ep.el........................... |
| 100e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100e60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 100e80 | 30 30 31 31 35 33 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 32 37 37 00 20 30 00 00 00 | 0011532.00000000000.016277..0... |
| 100ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100f00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 100f20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 100f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 101000 | 3b 3b 3b 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 2e 65 6c 20 2d 2d 20 66 61 6e 63 79 20 | ;;;.slime-macrostep.el.--.fancy. |
| 101020 | 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 20 76 69 61 20 6d 61 63 72 6f 73 74 65 70 2e 65 6c | macro-expansion.via.macrostep.el |
| 101040 | 0a 0a 3b 3b 20 41 75 74 68 6f 72 73 3a 20 4c 75 c3 ad 73 20 4f 6c 69 76 65 69 72 61 20 3c 6c 75 | ..;;.Authors:.Lu..s.Oliveira.<lu |
| 101060 | 69 73 6d 62 6f 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 4a 6f 6e | ismbo@gmail.com>.;;..........Jon |
| 101080 | 20 4f 64 64 69 65 20 3c 6a 2e 6a 2e 6f 64 64 69 65 40 67 6d 61 69 6c 2e 63 6f 6d 0a 3b 3b 0a 3b | .Oddie.<j.j.oddie@gmail.com.;;.; |
| 1010a0 | 3b 20 4c 69 63 65 6e 73 65 3a 20 47 4e 55 20 47 50 4c 20 28 73 61 6d 65 20 6c 69 63 65 6e 73 65 | ;.License:.GNU.GPL.(same.license |
| 1010c0 | 20 61 73 20 45 6d 61 63 73 29 0a 0a 3b 3b 3b 20 44 65 73 63 72 69 70 74 69 6f 6e 3a 0a 0a 3b 3b | .as.Emacs)..;;;.Description:..;; |
| 1010e0 | 20 46 61 6e 63 69 65 72 20 69 6e 2d 70 6c 61 63 65 20 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f | .Fancier.in-place.macro-expansio |
| 101100 | 6e 20 75 73 69 6e 67 20 6d 61 63 72 6f 73 74 65 70 2e 65 6c 20 28 6f 72 69 67 69 6e 61 6c 6c 79 | n.using.macrostep.el.(originally |
| 101120 | 0a 3b 3b 20 77 72 69 74 74 65 6e 20 66 6f 72 20 45 6d 61 63 73 20 4c 69 73 70 29 2e 20 20 54 6f | .;;.written.for.Emacs.Lisp)...To |
| 101140 | 20 75 73 65 2c 20 70 6f 73 69 74 69 6f 6e 20 70 6f 69 6e 74 20 62 65 66 6f 72 65 20 74 68 65 0a | .use,.position.point.before.the. |
| 101160 | 3b 3b 20 6f 70 65 6e 2d 70 61 72 65 6e 20 6f 66 20 74 68 65 20 6d 61 63 72 6f 20 63 61 6c 6c 20 | ;;.open-paren.of.the.macro.call. |
| 101180 | 69 6e 20 61 20 53 4c 49 4d 45 20 73 6f 75 72 63 65 20 6f 72 20 52 45 50 4c 20 62 75 66 66 65 72 | in.a.SLIME.source.or.REPL.buffer |
| 1011a0 | 2c 20 61 6e 64 0a 3b 3b 20 74 79 70 65 20 60 43 2d 63 20 4d 2d 65 27 20 6f 72 20 60 4d 2d 78 20 | ,.and.;;.type.`C-c.M-e'.or.`M-x. |
| 1011c0 | 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 27 2e 20 20 54 68 65 20 70 72 65 74 74 79 2d 70 | macrostep-expand'...The.pretty-p |
| 1011e0 | 72 69 6e 74 65 64 0a 3b 3b 20 72 65 73 75 6c 74 20 6f 66 20 60 6d 61 63 72 6f 65 78 70 61 6e 64 | rinted.;;.result.of.`macroexpand |
| 101200 | 2d 31 27 20 77 69 6c 6c 20 62 65 20 69 6e 73 65 72 74 65 64 20 69 6e 6c 69 6e 65 20 69 6e 20 74 | -1'.will.be.inserted.inline.in.t |
| 101220 | 68 65 20 63 75 72 72 65 6e 74 0a 3b 3b 20 62 75 66 66 65 72 2c 20 77 68 69 63 68 20 69 73 20 74 | he.current.;;.buffer,.which.is.t |
| 101240 | 65 6d 70 6f 72 61 72 69 6c 79 20 72 65 61 64 2d 6f 6e 6c 79 20 77 68 69 6c 65 20 6d 61 63 72 6f | emporarily.read-only.while.macro |
| 101260 | 20 65 78 70 61 6e 73 69 6f 6e 73 20 61 72 65 0a 3b 3b 20 76 69 73 69 62 6c 65 2e 20 20 49 66 20 | .expansions.are.;;.visible...If. |
| 101280 | 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 20 69 73 20 69 74 73 65 6c 66 20 61 20 6d 61 63 72 6f 20 | the.expansion.is.itself.a.macro. |
| 1012a0 | 63 61 6c 6c 2c 20 65 78 70 61 6e 73 69 6f 6e 20 63 61 6e 20 62 65 0a 3b 3b 20 63 6f 6e 74 69 6e | call,.expansion.can.be.;;.contin |
| 1012c0 | 75 65 64 20 62 79 20 74 79 70 69 6e 67 20 60 65 27 2e 20 20 45 78 70 61 6e 73 69 6f 6e 73 20 61 | ued.by.typing.`e'...Expansions.a |
| 1012e0 | 72 65 20 63 6f 6c 6c 61 70 73 65 64 20 74 6f 20 74 68 65 69 72 0a 3b 3b 20 6f 72 69 67 69 6e 61 | re.collapsed.to.their.;;.origina |
| 101300 | 6c 20 6d 61 63 72 6f 20 66 6f 72 6d 73 20 62 79 20 74 79 70 69 6e 67 20 60 63 27 20 6f 72 20 60 | l.macro.forms.by.typing.`c'.or.` |
| 101320 | 71 27 2e 20 20 4f 74 68 65 72 20 6d 61 63 72 6f 2d 20 61 6e 64 0a 3b 3b 20 63 6f 6d 70 69 6c 65 | q'...Other.macro-.and.;;.compile |
| 101340 | 72 2d 6d 61 63 72 6f 20 63 61 6c 6c 73 20 69 6e 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 20 77 | r-macro.calls.in.the.expansion.w |
| 101360 | 69 6c 6c 20 62 65 20 66 6f 6e 74 2d 6c 6f 63 6b 65 64 0a 3b 3b 20 64 69 66 66 65 72 65 6e 74 6c | ill.be.font-locked.;;.differentl |
| 101380 | 79 2c 20 61 6e 64 20 70 6f 69 6e 74 20 63 61 6e 20 62 65 20 6d 6f 76 65 64 20 74 68 65 72 65 20 | y,.and.point.can.be.moved.there. |
| 1013a0 | 71 75 69 63 6b 6c 79 20 62 79 20 74 79 70 69 6e 67 20 60 6e 27 20 6f 72 0a 3b 3b 20 60 70 27 2e | quickly.by.typing.`n'.or.;;.`p'. |
| 1013c0 | 20 20 46 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2c 20 73 65 65 20 74 68 65 20 64 6f 63 75 | ..For.more.details,.see.the.docu |
| 1013e0 | 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 0a 3b 3b 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e | mentation.of.;;.`macrostep-expan |
| 101400 | 64 27 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 | d'...;;;.Code:..(require.'slime) |
| 101420 | 0a 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 6d | .(eval-and-compile...(require.'m |
| 101440 | 61 63 72 6f 73 74 65 70 20 6e 69 6c 20 74 29 0a 20 20 3b 3b 20 55 73 65 20 62 75 6e 64 6c 65 64 | acrostep.nil.t)...;;.Use.bundled |
| 101460 | 20 76 65 72 73 69 6f 6e 20 69 66 20 6e 6f 74 20 73 65 70 61 72 61 74 65 6c 79 20 69 6e 73 74 61 | .version.if.not.separately.insta |
| 101480 | 6c 6c 65 64 0a 20 20 28 72 65 71 75 69 72 65 20 27 6d 61 63 72 6f 73 74 65 70 20 22 2e 2e 2f 6c | lled...(require.'macrostep."../l |
| 1014a0 | 69 62 2f 6d 61 63 72 6f 73 74 65 70 22 29 29 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 | ib/macrostep")).(eval-when-compi |
| 1014c0 | 6c 65 20 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 29 0a 0a 28 64 65 66 76 61 72 20 73 | le.(require.'cl-lib))..(defvar.s |
| 1014e0 | 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 0a 28 64 65 66 76 61 72 20 73 6c 69 | lime-repl-mode-hook).(defvar.sli |
| 101500 | 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 | me-repl-mode-map)..(define-slime |
| 101520 | 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 0a 20 20 22 49 6e 74 65 | -contrib.slime-macrostep..."Inte |
| 101540 | 72 61 63 74 69 76 65 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 20 76 69 61 20 6d 61 63 72 | ractive.macro.expansion.via.macr |
| 101560 | 6f 73 74 65 70 2e 65 6c 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 4c 75 c3 ad 73 20 4f 6c | ostep.el."...(:authors."Lu..s.Ol |
| 101580 | 69 76 65 69 72 61 20 20 20 20 20 20 20 3c 6c 75 69 73 6d 62 6f 40 67 6d 61 69 6c 2e 63 6f 6d 3e | iveira.......<luismbo@gmail.com> |
| 1015a0 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 4a 6f 6e 20 4f 64 64 69 65 20 20 20 20 20 20 20 20 | "............."Jon.Oddie........ |
| 1015c0 | 20 20 20 3c 6a 2e 6a 2e 6f 64 64 69 65 40 67 6d 61 69 6c 2e 63 6f 6d 3e 22 29 0a 20 20 28 3a 6c | ...<j.j.oddie@gmail.com>")...(:l |
| 1015e0 | 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e | icense."GPL")...(:swank-dependen |
| 101600 | 63 69 65 73 20 73 77 61 6e 6b 2d 6d 61 63 72 6f 73 74 65 70 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 | cies.swank-macrostep)...(:on-loa |
| 101620 | 64 0a 20 20 20 28 65 61 73 79 2d 6d 65 6e 75 2d 61 64 64 2d 69 74 65 6d 20 73 6c 69 6d 65 2d 6d | d....(easy-menu-add-item.slime-m |
| 101640 | 6f 64 65 2d 6d 61 70 20 27 28 6d 65 6e 75 2d 62 61 72 20 53 4c 49 4d 45 20 44 65 62 75 67 67 69 | ode-map.'(menu-bar.SLIME.Debuggi |
| 101660 | 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 22 4d 61 63 | ng)........................["Mac |
| 101680 | 72 6f 20 73 74 65 70 70 65 72 2e 2e 2e 22 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 20 | ro.stepper...".macrostep-expand. |
| 1016a0 | 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 5d 0a 20 20 20 20 20 20 20 20 20 20 20 | (slime-connected-p)]............ |
| 1016c0 | 20 20 20 20 20 20 20 20 20 20 20 20 22 43 72 65 61 74 65 20 54 72 61 63 65 20 42 75 66 66 65 72 | ............"Create.Trace.Buffer |
| 1016e0 | 22 29 0a 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b | ")....(add-hook.'slime-mode-hook |
| 101700 | 20 23 27 6d 61 63 72 6f 73 74 65 70 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 0a 20 20 | .#'macrostep-slime-mode-hook)... |
| 101720 | 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 28 6b 62 64 | .(define-key.slime-mode-map.(kbd |
| 101740 | 20 22 43 2d 63 20 4d 2d 65 22 29 20 23 27 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 29 0a | ."C-c.M-e").#'macrostep-expand). |
| 101760 | 20 20 20 28 65 76 61 6c 2d 61 66 74 65 72 2d 6c 6f 61 64 20 27 73 6c 69 6d 65 2d 72 65 70 6c 0a | ...(eval-after-load.'slime-repl. |
| 101780 | 20 20 20 20 20 27 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 | .....'(progn........(add-hook.'s |
| 1017a0 | 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 23 27 6d 61 63 72 6f 73 74 65 70 2d | lime-repl-mode-hook.#'macrostep- |
| 1017c0 | 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d | slime-mode-hook)........(define- |
| 1017e0 | 6b 65 79 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 20 28 6b 62 64 20 22 43 2d | key.slime-repl-mode-map.(kbd."C- |
| 101800 | 63 20 4d 2d 65 22 29 20 23 27 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 29 29 29 29 29 0a | c.M-e").#'macrostep-expand))))). |
| 101820 | 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 6f 6f | .(defun.macrostep-slime-mode-hoo |
| 101840 | 6b 20 28 29 0a 20 20 28 73 65 74 71 20 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 61 74 2d 70 | k.()...(setq.macrostep-sexp-at-p |
| 101860 | 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 23 27 6d 61 63 72 6f 73 74 65 70 2d 73 6c 69 6d 65 2d | oint-function.#'macrostep-slime- |
| 101880 | 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 28 73 65 74 71 20 6d 61 63 72 6f 73 74 65 70 | sexp-at-point)...(setq.macrostep |
| 1018a0 | 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 23 | -environment-at-point-function.# |
| 1018c0 | 27 6d 61 63 72 6f 73 74 65 70 2d 73 6c 69 6d 65 2d 63 6f 6e 74 65 78 74 29 0a 20 20 28 73 65 74 | 'macrostep-slime-context)...(set |
| 1018e0 | 71 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 31 2d 66 75 6e 63 74 69 6f 6e 20 23 27 | q.macrostep-expand-1-function.#' |
| 101900 | 6d 61 63 72 6f 73 74 65 70 2d 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 31 29 0a 20 20 28 73 65 74 | macrostep-slime-expand-1)...(set |
| 101920 | 71 20 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 23 27 6d 61 63 | q.macrostep-print-function.#'mac |
| 101940 | 72 6f 73 74 65 70 2d 73 6c 69 6d 65 2d 69 6e 73 65 72 74 29 0a 20 20 28 73 65 74 71 20 6d 61 63 | rostep-slime-insert)...(setq.mac |
| 101960 | 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 70 2d 66 75 6e 63 74 69 6f 6e 20 23 27 6d | rostep-macro-form-p-function.#'m |
| 101980 | 61 63 72 6f 73 74 65 70 2d 73 6c 69 6d 65 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 70 29 29 0a 0a 28 | acrostep-slime-macro-form-p))..( |
| 1019a0 | 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 73 6c 69 6d 65 2d 73 65 78 70 2d 61 74 2d 70 6f | defun.macrostep-slime-sexp-at-po |
| 1019c0 | 69 6e 74 20 28 26 72 65 73 74 20 5f 69 67 6e 6f 72 65 29 0a 20 20 28 73 6c 69 6d 65 2d 73 65 78 | int.(&rest._ignore)...(slime-sex |
| 1019e0 | 70 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 73 | p-at-point))..(defun.macrostep-s |
| 101a00 | 6c 69 6d 65 2d 63 6f 6e 74 65 78 74 20 28 29 0a 20 20 28 6c 65 74 20 28 64 65 66 75 6e 2d 73 74 | lime-context.()...(let.(defun-st |
| 101a20 | 61 72 74 20 64 65 66 75 6e 2d 65 6e 64 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 | art.defun-end).....(save-excursi |
| 101a40 | 6f 6e 0a 20 20 20 20 20 20 28 77 68 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 | on.......(while...........(condi |
| 101a60 | 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f | tion-case.nil...............(pro |
| 101a80 | 67 6e 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 29 20 74 29 0a 20 20 20 20 20 20 20 | gn.(backward-up-list).t)........ |
| 101aa0 | 20 20 20 20 20 28 73 63 61 6e 2d 65 72 72 6f 72 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 28 73 | .....(scan-error.nil))).......(s |
| 101ac0 | 65 74 71 20 64 65 66 75 6e 2d 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 | etq.defun-start.(point)).......( |
| 101ae0 | 73 65 74 71 20 64 65 66 75 6e 2d 65 6e 64 20 28 73 63 61 6e 2d 73 65 78 70 73 20 28 70 6f 69 6e | setq.defun-end.(scan-sexps.(poin |
| 101b00 | 74 29 20 31 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 | t).1))).....(list.(buffer-substr |
| 101b20 | 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 64 65 66 | ing-no-properties............def |
| 101b40 | 75 6e 2d 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 62 75 66 | un-start.(point))...........(buf |
| 101b60 | 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 | fer-substring-no-properties..... |
| 101b80 | 20 20 20 20 20 20 20 28 73 63 61 6e 2d 73 65 78 70 73 20 28 70 6f 69 6e 74 29 20 31 29 20 64 65 | .......(scan-sexps.(point).1).de |
| 101ba0 | 66 75 6e 2d 65 6e 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 73 6c | fun-end))))..(defun.macrostep-sl |
| 101bc0 | 69 6d 65 2d 65 78 70 61 6e 64 2d 31 20 28 73 74 72 69 6e 67 20 63 6f 6e 74 65 78 74 29 0a 20 20 | ime-expand-1.(string.context)... |
| 101be0 | 28 73 6c 69 6d 65 2d 64 63 61 73 65 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 0a 20 | (slime-dcase.......(slime-eval.. |
| 101c00 | 20 20 20 20 20 20 60 28 73 77 61 6e 6b 2d 6d 61 63 72 6f 73 74 65 70 3a 6d 61 63 72 6f 73 74 65 | ......`(swank-macrostep:macroste |
| 101c20 | 70 2d 65 78 70 61 6e 64 2d 31 0a 20 20 20 20 20 20 20 20 20 2c 73 74 72 69 6e 67 20 2c 6d 61 63 | p-expand-1..........,string.,mac |
| 101c40 | 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 20 27 2c | rostep-expand-compiler-macros.', |
| 101c60 | 63 6f 6e 74 65 78 74 29 29 0a 20 20 20 20 28 28 3a 65 72 72 6f 72 20 65 72 72 6f 72 2d 6d 65 73 | context)).....((:error.error-mes |
| 101c80 | 73 61 67 65 29 0a 20 20 20 20 20 28 65 72 72 6f 72 20 22 25 73 22 20 65 72 72 6f 72 2d 6d 65 73 | sage)......(error."%s".error-mes |
| 101ca0 | 73 61 67 65 29 29 0a 20 20 20 20 28 28 3a 6f 6b 20 65 78 70 61 6e 73 69 6f 6e 20 70 6f 73 69 74 | sage)).....((:ok.expansion.posit |
| 101cc0 | 69 6f 6e 73 29 0a 20 20 20 20 20 28 6c 69 73 74 20 65 78 70 61 6e 73 69 6f 6e 20 70 6f 73 69 74 | ions)......(list.expansion.posit |
| 101ce0 | 69 6f 6e 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 73 6c 69 6d 65 | ions))))..(defun.macrostep-slime |
| 101d00 | 2d 69 6e 73 65 72 74 20 28 72 65 73 75 6c 74 20 5f 69 67 6e 6f 72 65 29 0a 20 20 22 49 6e 73 65 | -insert.(result._ignore)..."Inse |
| 101d20 | 72 74 20 52 45 53 55 4c 54 20 61 74 20 70 6f 69 6e 74 2c 20 69 6e 64 65 6e 74 69 6e 67 20 74 6f | rt.RESULT.at.point,.indenting.to |
| 101d40 | 20 6d 61 74 63 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6c 75 6d 6e 2e 22 0a 20 20 28 63 | .match.the.current.column."...(c |
| 101d60 | 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 65 78 70 61 6e 73 69 6f 6e 20 | l-destructuring-bind.(expansion. |
| 101d80 | 70 6f 73 69 74 69 6f 6e 73 29 20 72 65 73 75 6c 74 0a 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 | positions).result.....(let.((sta |
| 101da0 | 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 75 6d 6e 2d 6f 66 | rt.(point))...........(column-of |
| 101dc0 | 66 73 65 74 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 28 69 | fset.(current-column))).......(i |
| 101de0 | 6e 73 65 72 74 20 65 78 70 61 6e 73 69 6f 6e 29 0a 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 | nsert.expansion).......(macroste |
| 101e00 | 70 2d 73 6c 69 6d 65 2d 2d 70 72 6f 70 65 72 74 69 7a 65 2d 6d 61 63 72 6f 73 20 73 74 61 72 74 | p-slime--propertize-macros.start |
| 101e20 | 20 70 6f 73 69 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 28 69 6e 64 65 6e 74 2d 72 69 67 69 64 6c | .positions).......(indent-rigidl |
| 101e40 | 79 20 73 74 61 72 74 20 28 70 6f 69 6e 74 29 20 63 6f 6c 75 6d 6e 2d 6f 66 66 73 65 74 29 29 29 | y.start.(point).column-offset))) |
| 101e60 | 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 73 6c 69 6d 65 2d 2d 70 72 6f 70 65 | )..(defun.macrostep-slime--prope |
| 101e80 | 72 74 69 7a 65 2d 6d 61 63 72 6f 73 20 28 73 74 61 72 74 2d 6f 66 66 73 65 74 20 70 6f 73 69 74 | rtize-macros.(start-offset.posit |
| 101ea0 | 69 6f 6e 73 29 0a 20 20 22 50 75 74 20 74 65 78 74 20 70 72 6f 70 65 72 74 69 65 73 20 6f 6e 20 | ions)..."Put.text.properties.on. |
| 101ec0 | 6d 61 63 72 6f 20 66 6f 72 6d 73 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 70 6f 73 69 74 69 6f | macro.forms."...(dolist.(positio |
| 101ee0 | 6e 20 70 6f 73 69 74 69 6f 6e 73 29 0a 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 | n.positions).....(cl-destructuri |
| 101f00 | 6e 67 2d 62 69 6e 64 20 28 6f 70 65 72 61 74 6f 72 20 74 79 70 65 20 73 74 61 72 74 29 0a 20 20 | ng-bind.(operator.type.start)... |
| 101f20 | 20 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 70 65 6e | ......position.......(let.((open |
| 101f40 | 2d 70 61 72 65 6e 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b | -paren-position...............(+ |
| 101f60 | 20 73 74 61 72 74 2d 6f 66 66 73 65 74 20 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 | .start-offset.start))).........( |
| 101f80 | 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 6f 70 65 6e 2d 70 61 72 65 6e 2d 70 6f 73 | put-text-property.open-paren-pos |
| 101fa0 | 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ition........................... |
| 101fc0 | 20 28 31 2b 20 6f 70 65 6e 2d 70 61 72 65 6e 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 | .(1+.open-paren-position)....... |
| 101fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 61 63 72 6f 73 74 65 70 2d | .....................'macrostep- |
| 102000 | 6d 61 63 72 6f 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | macro-start..................... |
| 102020 | 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 74 68 69 73 20 61 73 73 75 6d 65 | .......t).........;;.this.assume |
| 102040 | 73 20 74 68 61 74 20 74 68 65 20 6f 70 65 72 61 74 6f 72 20 73 74 61 72 74 73 20 72 69 67 68 74 | s.that.the.operator.starts.right |
| 102060 | 20 6e 65 78 74 20 74 6f 20 74 68 65 0a 20 20 20 20 20 20 20 20 3b 3b 20 6f 70 65 6e 69 6e 67 20 | .next.to.the.........;;.opening. |
| 102080 | 70 61 72 65 6e 74 68 65 73 69 73 2e 20 57 65 20 63 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 62 | parenthesis..We.could.probably.b |
| 1020a0 | 65 20 6d 6f 72 65 20 72 6f 62 75 73 74 2e 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 70 | e.more.robust..........(let.((op |
| 1020c0 | 2d 73 74 61 72 74 20 28 31 2b 20 6f 70 65 6e 2d 70 61 72 65 6e 2d 70 6f 73 69 74 69 6f 6e 29 29 | -start.(1+.open-paren-position)) |
| 1020e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 6f | )...........(put-text-property.o |
| 102100 | 70 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p-start......................... |
| 102120 | 20 20 20 20 20 28 2b 20 6f 70 2d 73 74 61 72 74 20 28 6c 65 6e 67 74 68 20 6f 70 65 72 61 74 6f | .....(+.op-start.(length.operato |
| 102140 | 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r))............................. |
| 102160 | 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .'font-lock-face................ |
| 102180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 74 79 70 65 20 3a 6d 61 63 72 | ..............(if.(eq.type.:macr |
| 1021a0 | 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o).............................. |
| 1021c0 | 20 20 20 20 27 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 61 63 65 0a 20 20 20 20 20 20 | ....'macrostep-macro-face....... |
| 1021e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 61 63 72 | ...........................'macr |
| 102200 | 6f 73 74 65 70 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 61 63 65 29 29 29 29 29 29 29 | ostep-compiler-macro-face))))))) |
| 102220 | 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 73 6c 69 6d 65 2d 6d 61 63 72 6f 2d 66 | ..(defun.macrostep-slime-macro-f |
| 102240 | 6f 72 6d 2d 70 20 28 73 74 72 69 6e 67 20 63 6f 6e 74 65 78 74 29 0a 20 20 28 73 6c 69 6d 65 2d | orm-p.(string.context)...(slime- |
| 102260 | 64 63 61 73 65 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 0a 20 20 20 20 20 20 20 60 | dcase.......(slime-eval........` |
| 102280 | 28 73 77 61 6e 6b 2d 6d 61 63 72 6f 73 74 65 70 3a 6d 61 63 72 6f 2d 66 6f 72 6d 2d 70 0a 20 20 | (swank-macrostep:macro-form-p... |
| 1022a0 | 20 20 20 20 20 20 20 2c 73 74 72 69 6e 67 20 2c 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 | .......,string.,macrostep-expand |
| 1022c0 | 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 20 27 2c 63 6f 6e 74 65 78 74 29 29 0a 20 20 20 | -compiler-macros.',context)).... |
| 1022e0 | 20 28 28 3a 65 72 72 6f 72 20 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 28 65 | .((:error.error-message)......(e |
| 102300 | 72 72 6f 72 20 22 25 73 22 20 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 29 29 0a 20 20 20 20 28 28 | rror."%s".error-message)).....(( |
| 102320 | 3a 6f 6b 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 72 65 73 75 6c 74 29 29 29 0a 0a 0c 0a 0a 28 | :ok.result)......result))).....( |
| 102340 | 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 29 0a 00 00 00 00 00 00 | provide.'slime-macrostep)....... |
| 102360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1023a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1023c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1023e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 6d 65 64 69 61 2e 65 | slime-2.31/contrib/slime-media.e |
| 102420 | 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | l............................... |
| 102440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 102480 | 30 30 30 32 37 37 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 33 37 33 00 20 30 00 00 00 | 0002776.00000000000.015373..0... |
| 1024a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1024c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1024e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 102520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 102540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1025a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1025c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1025e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102600 | 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6c | (eval-and-compile...(require.'sl |
| 102620 | 69 6d 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 | ime))..(define-slime-contrib.sli |
| 102640 | 6d 65 2d 6d 65 64 69 61 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 69 6e 67 73 20 6f 74 68 65 72 | me-media..."Display.things.other |
| 102660 | 20 74 68 61 6e 20 74 65 78 74 20 69 6e 20 53 4c 49 4d 45 20 62 75 66 66 65 72 73 22 0a 20 20 28 | .than.text.in.SLIME.buffers"...( |
| 102680 | 3a 61 75 74 68 6f 72 73 20 22 43 68 72 69 73 74 6f 70 68 65 20 52 68 6f 64 65 73 20 3c 63 73 72 | :authors."Christophe.Rhodes.<csr |
| 1026a0 | 32 31 40 63 61 6e 74 61 62 2e 6e 65 74 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 | 21@cantab.net>")...(:license."GP |
| 1026c0 | 4c 22 29 0a 20 20 28 3a 73 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 6c 69 6d 65 | L")...(:slime-dependencies.slime |
| 1026e0 | 2d 72 65 70 6c 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 | -repl)...(:swank-dependencies.sw |
| 102700 | 61 6e 6b 2d 6d 65 64 69 61 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 61 64 64 2d 68 | ank-media)...(:on-load....(add-h |
| 102720 | 6f 6f 6b 20 27 73 6c 69 6d 65 2d 65 76 65 6e 74 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 64 69 | ook.'slime-event-hooks.'slime-di |
| 102740 | 73 70 61 74 63 68 2d 6d 65 64 69 61 2d 65 76 65 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | spatch-media-event)))..(defun.sl |
| 102760 | 69 6d 65 2d 6d 65 64 69 61 2d 64 65 63 6f 64 65 2d 69 6d 61 67 65 20 28 69 6d 61 67 65 29 0a 20 | ime-media-decode-image.(image).. |
| 102780 | 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 69 6d 61 67 65 29 0a 09 20 20 20 20 28 69 | .(mapcar.(lambda.(image)......(i |
| 1027a0 | 66 20 28 70 6c 69 73 74 2d 67 65 74 20 69 6d 61 67 65 20 3a 64 61 74 61 29 0a 09 09 28 70 6c 69 | f.(plist-get.image.:data)...(pli |
| 1027c0 | 73 74 2d 70 75 74 20 69 6d 61 67 65 20 3a 64 61 74 61 20 28 62 61 73 65 36 34 2d 64 65 63 6f 64 | st-put.image.:data.(base64-decod |
| 1027e0 | 65 2d 73 74 72 69 6e 67 20 28 70 6c 69 73 74 2d 67 65 74 20 69 6d 61 67 65 20 3a 64 61 74 61 29 | e-string.(plist-get.image.:data) |
| 102800 | 29 29 0a 09 20 20 20 20 20 20 69 6d 61 67 65 29 29 0a 09 20 20 69 6d 61 67 65 29 29 0a 0a 28 64 | ))........image))....image))..(d |
| 102820 | 65 66 75 6e 20 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 2d 6d 65 64 69 61 2d 65 76 65 6e 74 20 | efun.slime-dispatch-media-event. |
| 102840 | 28 65 76 65 6e 74 29 0a 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 65 76 65 6e 74 0a 20 20 20 | (event)...(slime-dcase.event.... |
| 102860 | 20 28 28 3a 77 72 69 74 65 2d 69 6d 61 67 65 20 69 6d 61 67 65 20 73 74 72 69 6e 67 29 0a 20 20 | .((:write-image.image.string)... |
| 102880 | 20 20 20 28 6c 65 74 20 28 28 69 6d 67 20 28 6f 72 20 28 66 69 6e 64 2d 69 6d 61 67 65 20 28 73 | ...(let.((img.(or.(find-image.(s |
| 1028a0 | 6c 69 6d 65 2d 6d 65 64 69 61 2d 64 65 63 6f 64 65 2d 69 6d 61 67 65 20 69 6d 61 67 65 29 29 0a | lime-media-decode-image.image)). |
| 1028c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 72 65 61 74 65 2d 69 6d 61 67 | ....................(create-imag |
| 1028e0 | 65 20 69 6d 61 67 65 29 29 29 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 65 64 69 61 2d | e.image))))........(slime-media- |
| 102900 | 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 69 6d 67 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 74 | insert-image.img.string))......t |
| 102920 | 29 0a 20 20 20 20 28 28 3a 70 6f 70 75 70 2d 62 75 66 66 65 72 20 62 75 66 6e 61 6d 65 20 73 74 | ).....((:popup-buffer.bufname.st |
| 102940 | 72 69 6e 67 20 6d 6f 64 65 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 70 6f 70 75 | ring.mode)......(slime-with-popu |
| 102960 | 70 2d 62 75 66 66 65 72 20 28 62 75 66 6e 61 6d 65 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 20 | p-buffer.(bufname.:connection.t. |
| 102980 | 3a 70 61 63 6b 61 67 65 20 74 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 6d 6f 64 65 20 28 66 | :package.t)........(when.mode.(f |
| 1029a0 | 75 6e 63 61 6c 6c 20 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 28 70 72 69 6e 63 20 73 74 72 69 | uncall.mode))........(princ.stri |
| 1029c0 | 6e 67 29 0a 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e | ng)........(goto-char.(point-min |
| 1029e0 | 29 29 29 0a 20 20 20 20 20 74 29 0a 20 20 20 20 28 74 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 | )))......t).....(t.nil)))..(defu |
| 102a00 | 6e 20 73 6c 69 6d 65 2d 6d 65 64 69 61 2d 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 28 69 6d 61 67 | n.slime-media-insert-image.(imag |
| 102a20 | 65 20 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 62 6f 6c 29 0a 20 20 28 77 69 74 68 2d | e.string.&optional.bol)...(with- |
| 102a40 | 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 62 75 66 | current-buffer.(slime-output-buf |
| 102a60 | 66 65 72 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6d 61 72 6b 65 72 20 28 73 6c 69 6d 65 2d 72 65 | fer).....(let.((marker.(slime-re |
| 102a80 | 70 6c 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 6d 61 72 6b 65 72 20 3a 72 65 70 6c 2d 72 65 | pl-output-target-marker.:repl-re |
| 102aa0 | 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6d 61 72 6b 65 72 29 | sult))).......(goto-char.marker) |
| 102ac0 | 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 20 | .......(slime-propertize-region. |
| 102ae0 | 60 28 66 61 63 65 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 73 75 6c 74 2d 66 61 63 65 0a 20 20 | `(face.slime-repl-result-face... |
| 102b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 102b20 | 20 20 20 20 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 28 66 61 63 65 29 29 0a 20 20 20 20 20 | ....rear-nonsticky.(face))...... |
| 102b40 | 20 20 20 28 69 6e 73 65 72 74 2d 69 6d 61 67 65 20 69 6d 61 67 65 20 73 74 72 69 6e 67 29 29 0a | ...(insert-image.image.string)). |
| 102b60 | 20 20 20 20 20 20 3b 3b 20 4d 6f 76 65 20 74 68 65 20 69 6e 70 75 74 2d 73 74 61 72 74 20 6d 61 | ......;;.Move.the.input-start.ma |
| 102b80 | 72 6b 65 72 20 61 66 74 65 72 20 74 68 65 20 52 45 50 4c 20 72 65 73 75 6c 74 2e 0a 20 20 20 20 | rker.after.the.REPL.result...... |
| 102ba0 | 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 20 6d 61 72 6b 65 72 20 28 70 6f 69 6e 74 29 29 29 0a 20 | ..(set-marker.marker.(point))).. |
| 102bc0 | 20 20 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 68 6f 77 2d 6d 61 78 69 6d 75 6d 2d 6f 75 74 70 | ...(slime-repl-show-maximum-outp |
| 102be0 | 75 74 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 6d 65 64 69 61 29 0a 00 00 | ut)))..(provide.'slime-media)... |
| 102c00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d | slime-2.31/contrib/slime-buffer- |
| 102c20 | 73 74 72 65 61 6d 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | streams.el...................... |
| 102c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102c60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 102c80 | 30 30 30 32 35 31 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 32 32 35 00 20 30 00 00 00 | 0002512.00000000000.017225..0... |
| 102ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 102d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 102d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102e00 | 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6c | (eval-and-compile...(require.'sl |
| 102e20 | 69 6d 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 | ime))..(define-slime-contrib.sli |
| 102e40 | 6d 65 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 0a 20 20 22 4c 69 73 70 20 73 74 72 65 61 6d | me-buffer-streams..."Lisp.stream |
| 102e60 | 73 20 74 68 61 74 20 6f 75 74 70 75 74 20 74 6f 20 61 6e 20 65 6d 61 63 73 20 62 75 66 66 65 72 | s.that.output.to.an.emacs.buffer |
| 102e80 | 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 45 64 20 4c 61 6e 67 6c 65 79 20 3c 65 6c 2d 67 69 | "...(:authors."Ed.Langley.<el-gi |
| 102ea0 | 74 68 75 62 40 65 6c 61 6e 67 6c 65 79 2e 6f 72 67 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 | thub@elangley.org>")...(:license |
| 102ec0 | 20 22 47 50 4c 22 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 | ."GPL")...(:swank-dependencies.s |
| 102ee0 | 77 61 6e 6b 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 | wank-buffer-streams))..(defslime |
| 102f00 | 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 6b 65 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 2d 74 61 72 | fun.slime-make-buffer-stream-tar |
| 102f20 | 67 65 74 20 28 74 68 72 65 61 64 20 6e 61 6d 65 29 0a 20 20 28 6d 65 73 73 61 67 65 20 22 6d 61 | get.(thread.name)...(message."ma |
| 102f40 | 6b 69 6e 67 20 74 61 72 67 65 74 20 25 73 22 20 6e 61 6d 65 29 0a 20 20 28 73 6c 69 6d 65 2d 62 | king.target.%s".name)...(slime-b |
| 102f60 | 75 66 66 65 72 2d 73 74 72 65 61 6d 73 2d 2d 67 65 74 2d 74 61 72 67 65 74 2d 6d 61 72 6b 65 72 | uffer-streams--get-target-marker |
| 102f80 | 20 6e 61 6d 65 29 0a 20 20 60 28 3a 73 74 72 65 61 6d 2d 74 61 72 67 65 74 2d 63 72 65 61 74 65 | .name)...`(:stream-target-create |
| 102fa0 | 64 20 2c 74 68 72 65 61 64 20 2c 6e 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | d.,thread.,name))..(defun.slime- |
| 102fc0 | 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 2d 2d 67 65 74 2d 74 61 72 67 65 74 2d 6e 61 6d 65 20 | buffer-streams--get-target-name. |
| 102fe0 | 28 74 61 72 67 65 74 29 0a 20 20 28 66 6f 72 6d 61 74 20 22 2a 73 6c 69 6d 65 2d 74 61 72 67 65 | (target)...(format."*slime-targe |
| 103000 | 74 20 25 73 2a 22 20 74 61 72 67 65 74 29 29 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 73 | t.%s*".target))..(defvar-local.s |
| 103020 | 6c 69 6d 65 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 2d 74 61 72 67 65 74 20 6e 69 6c 29 0a 0a | lime-buffer-stream-target.nil).. |
| 103040 | 3b 3b 20 54 4f 44 4f 3a 20 74 65 6c 6c 20 62 61 63 6b 65 6e 64 20 74 68 61 74 20 74 68 65 20 62 | ;;.TODO:.tell.backend.that.the.b |
| 103060 | 75 66 66 65 72 20 68 61 73 20 62 65 65 6e 20 63 6c 6f 73 65 64 2c 20 73 6f 20 69 74 20 63 61 6e | uffer.has.been.closed,.so.it.can |
| 103080 | 20 63 6c 6f 73 65 0a 3b 3b 20 20 20 20 20 20 20 74 68 65 20 73 74 72 65 61 6d 0a 28 64 65 66 75 | .close.;;.......the.stream.(defu |
| 1030a0 | 6e 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 2d 2d 63 6c 65 61 6e 75 70 2d | n.slime-buffer-streams--cleanup- |
| 1030c0 | 6d 61 72 6b 65 72 73 20 28 29 0a 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d | markers.()...(when.slime-buffer- |
| 1030e0 | 73 74 72 65 61 6d 2d 74 61 72 67 65 74 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 52 65 6d 6f | stream-target.....(message."Remo |
| 103100 | 76 69 6e 67 20 74 61 72 67 65 74 3a 20 25 73 22 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 73 74 | ving.target:.%s".slime-buffer-st |
| 103120 | 72 65 61 6d 2d 74 61 72 67 65 74 29 0a 20 20 20 20 28 72 65 6d 68 61 73 68 20 73 6c 69 6d 65 2d | ream-target).....(remhash.slime- |
| 103140 | 62 75 66 66 65 72 2d 73 74 72 65 61 6d 2d 74 61 72 67 65 74 20 73 6c 69 6d 65 2d 6f 75 74 70 75 | buffer-stream-target.slime-outpu |
| 103160 | 74 2d 74 61 72 67 65 74 2d 74 6f 2d 6d 61 72 6b 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | t-target-to-marker)))..(defun.sl |
| 103180 | 69 6d 65 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 2d 2d 67 65 74 2d 74 61 72 67 65 74 2d 6d | ime-buffer-streams--get-target-m |
| 1031a0 | 61 72 6b 65 72 20 28 74 61 72 67 65 74 29 0a 20 20 28 6f 72 20 28 67 65 74 68 61 73 68 20 74 61 | arker.(target)...(or.(gethash.ta |
| 1031c0 | 72 67 65 74 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 74 6f 2d 6d 61 72 6b | rget.slime-output-target-to-mark |
| 1031e0 | 65 72 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 0a 20 | er).......(with-current-buffer.. |
| 103200 | 20 20 20 20 20 20 20 20 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 28 73 | .........(generate-new-buffer.(s |
| 103220 | 6c 69 6d 65 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 2d 2d 67 65 74 2d 74 61 72 67 65 74 2d | lime-buffer-streams--get-target- |
| 103240 | 6e 61 6d 65 20 74 61 72 67 65 74 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d | name.target)).........(setq.slim |
| 103260 | 65 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 2d 74 61 72 67 65 74 20 74 61 72 67 65 74 29 0a 20 | e-buffer-stream-target.target).. |
| 103280 | 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f | .......(add-hook.'kill-buffer-ho |
| 1032a0 | 6f 6b 20 27 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 2d 2d 63 6c 65 61 6e 75 | ok.'slime-buffer-streams--cleanu |
| 1032c0 | 70 2d 6d 61 72 6b 65 72 73 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 | p-markers).........(setf.(gethas |
| 1032e0 | 68 20 74 61 72 67 65 74 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 74 6f 2d | h.target.slime-output-target-to- |
| 103300 | 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 72 | marker)...............(point-mar |
| 103320 | 6b 65 72 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 62 75 66 66 65 72 | ker)))))..(provide.'slime-buffer |
| 103340 | 2d 73 74 72 65 61 6d 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | -streams)....................... |
| 103360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 103380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1033a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1033c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1033e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 103400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 61 73 64 66 2e 6c 69 | slime-2.31/contrib/swank-asdf.li |
| 103420 | 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | sp.............................. |
| 103440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 103460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 103480 | 30 30 35 31 33 31 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 36 30 30 00 20 30 00 00 00 | 0051312.00000000000.015600..0... |
| 1034a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1034c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1034e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 103500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 103520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 103540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 103560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 103580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1035a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1035c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1035e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 103600 | 3b 3b 3b 20 73 77 61 6e 6b 2d 61 73 64 66 2e 6c 69 73 70 20 2d 2d 20 41 53 44 46 20 73 75 70 70 | ;;;.swank-asdf.lisp.--.ASDF.supp |
| 103620 | 6f 72 74 0a 3b 3b 0a 3b 3b 20 41 75 74 68 6f 72 73 3a 20 44 61 6e 69 65 6c 20 42 61 72 6c 6f 77 | ort.;;.;;.Authors:.Daniel.Barlow |
| 103640 | 20 3c 64 61 6e 40 74 65 6c 65 6e 74 2e 6e 65 74 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 4d 61 | .<dan@telent.net>.;;..........Ma |
| 103660 | 72 63 6f 20 42 61 72 69 6e 67 65 72 20 3c 6d 62 40 62 65 73 65 2e 69 74 3e 0a 3b 3b 20 20 20 20 | rco.Baringer.<mb@bese.it>.;;.... |
| 103680 | 20 20 20 20 20 20 45 64 69 20 57 65 69 74 7a 20 3c 65 64 69 40 61 67 68 61 72 74 61 2e 64 65 3e | ......Edi.Weitz.<edi@agharta.de> |
| 1036a0 | 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 46 72 61 6e 63 6f 69 73 2d 52 65 6e 65 20 52 69 64 65 61 | .;;..........Francois-Rene.Ridea |
| 1036c0 | 75 20 3c 74 75 6e 65 73 40 67 6f 6f 67 6c 65 2e 63 6f 6d 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 | u.<tunes@google.com>.;;......... |
| 1036e0 | 20 61 6e 64 20 6f 74 68 65 72 73 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 50 75 62 6c 69 63 20 44 | .and.others.;;.License:.Public.D |
| 103700 | 6f 6d 61 69 6e 0a 3b 3b 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 23 2b | omain.;;..(in-package.:swank).#+ |
| 103720 | 73 62 63 6c 28 64 65 63 6c 61 69 6d 20 28 73 62 2d 65 78 74 3a 6d 75 66 66 6c 65 2d 63 6f 6e 64 | sbcl(declaim.(sb-ext:muffle-cond |
| 103740 | 69 74 69 6f 6e 73 20 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 29 29 0a 0a 28 65 76 61 6c 2d 77 68 | itions.style-warning))..(eval-wh |
| 103760 | 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c | en.(:compile-toplevel.:load-topl |
| 103780 | 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 3b 3b 3b 20 54 68 65 20 62 65 73 74 20 77 61 79 20 | evel.:execute).;;;.The.best.way. |
| 1037a0 | 74 6f 20 6c 6f 61 64 20 41 53 44 46 20 69 73 20 66 72 6f 6d 20 61 6e 20 69 6e 69 74 20 66 69 6c | to.load.ASDF.is.from.an.init.fil |
| 1037c0 | 65 20 6f 66 20 61 6e 0a 3b 3b 3b 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 49 66 20 | e.of.an.;;;.implementation...If. |
| 1037e0 | 41 53 44 46 20 69 73 20 6e 6f 74 20 6c 6f 61 64 65 64 20 61 74 20 74 68 65 20 74 69 6d 65 20 73 | ASDF.is.not.loaded.at.the.time.s |
| 103800 | 77 61 6e 6b 2d 61 73 64 66 20 69 73 0a 3b 3b 3b 20 6c 6f 61 64 65 64 2c 20 69 74 20 77 69 6c 6c | wank-asdf.is.;;;.loaded,.it.will |
| 103820 | 20 62 65 20 74 72 69 65 64 20 66 69 72 73 74 20 77 69 74 68 20 28 72 65 71 75 69 72 65 20 22 61 | .be.tried.first.with.(require."a |
| 103840 | 73 64 66 22 29 2c 20 69 66 20 74 68 61 74 0a 3b 3b 3b 20 64 6f 65 73 6e 27 74 20 68 65 6c 70 20 | sdf"),.if.that.;;;.doesn't.help. |
| 103860 | 61 6e 64 20 2a 61 73 64 66 2d 70 61 74 68 2a 20 69 73 20 73 65 74 2c 20 69 74 20 77 69 6c 6c 20 | and.*asdf-path*.is.set,.it.will. |
| 103880 | 62 65 20 6c 6f 61 64 65 64 20 66 72 6f 6d 20 74 68 61 74 0a 3b 3b 3b 20 66 69 6c 65 2e 0a 3b 3b | be.loaded.from.that.;;;.file..;; |
| 1038a0 | 3b 20 54 6f 20 73 65 74 20 2a 61 73 64 66 2d 70 61 74 68 2a 20 70 75 74 20 74 68 65 20 66 6f 6c | ;.To.set.*asdf-path*.put.the.fol |
| 1038c0 | 6c 6f 77 69 6e 67 20 69 6e 74 6f 20 7e 2f 2e 73 77 61 6e 6b 2e 6c 69 73 70 3a 0a 3b 3b 3b 20 28 | lowing.into.~/.swank.lisp:.;;;.( |
| 1038e0 | 64 65 66 70 61 72 61 6d 65 74 65 72 20 73 77 61 6e 6b 3a 3a 2a 61 73 64 66 2d 70 61 74 68 2a 20 | defparameter.swank::*asdf-path*. |
| 103900 | 23 70 22 2f 70 61 74 68 2f 74 6f 2f 61 73 64 66 2f 61 73 64 66 2e 6c 69 73 70 22 29 0a 20 20 28 | #p"/path/to/asdf/asdf.lisp")...( |
| 103920 | 64 65 66 76 61 72 20 2a 61 73 64 66 2d 70 61 74 68 2a 20 6e 69 6c 0a 20 20 20 20 22 50 61 74 68 | defvar.*asdf-path*.nil....."Path |
| 103940 | 20 74 6f 20 61 73 64 66 2e 6c 69 73 70 20 66 69 6c 65 2c 20 74 6f 20 62 65 20 6c 6f 61 64 65 64 | .to.asdf.lisp.file,.to.be.loaded |
| 103960 | 20 69 6e 20 63 61 73 65 20 28 72 65 71 75 69 72 65 20 5c 22 61 73 64 66 5c 22 29 20 66 61 69 6c | .in.case.(require.\"asdf\").fail |
| 103980 | 73 2e 22 29 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c | s."))..(eval-when.(:compile-topl |
| 1039a0 | 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 | evel.:load-toplevel.:execute)... |
| 1039c0 | 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 3a 61 73 64 66 20 2a 66 65 61 74 75 72 65 73 2a | (unless.(member.:asdf.*features* |
| 1039e0 | 29 0a 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 75 6e 63 61 6c 6c 20 27 72 | ).....(ignore-errors.(funcall.'r |
| 103a00 | 65 71 75 69 72 65 20 22 61 73 64 66 22 29 29 29 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a | equire."asdf"))))..(eval-when.(: |
| 103a20 | 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 | compile-toplevel.:load-toplevel. |
| 103a40 | 3a 65 78 65 63 75 74 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 3a 61 73 64 | :execute)...(unless.(member.:asd |
| 103a60 | 66 20 2a 66 65 61 74 75 72 65 73 2a 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 | f.*features*).....(handler-bind. |
| 103a80 | 28 28 77 61 72 6e 69 6e 67 20 23 27 6d 75 66 66 6c 65 2d 77 61 72 6e 69 6e 67 29 29 0a 20 20 20 | ((warning.#'muffle-warning)).... |
| 103aa0 | 20 20 20 28 77 68 65 6e 20 2a 61 73 64 66 2d 70 61 74 68 2a 0a 20 20 20 20 20 20 20 20 28 6c 6f | ...(when.*asdf-path*.........(lo |
| 103ac0 | 61 64 20 2a 61 73 64 66 2d 70 61 74 68 2a 20 3a 69 66 2d 64 6f 65 73 2d 6e 6f 74 2d 65 78 69 73 | ad.*asdf-path*.:if-does-not-exis |
| 103ae0 | 74 20 6e 69 6c 29 29 29 29 29 0a 0a 3b 3b 20 49 66 20 73 74 69 6c 6c 20 6e 6f 74 20 66 6f 75 6e | t.nil)))))..;;.If.still.not.foun |
| 103b00 | 64 2c 20 65 72 72 6f 72 20 6f 75 74 2e 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 | d,.error.out..(eval-when.(:compi |
| 103b20 | 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 | le-toplevel.:load-toplevel.:exec |
| 103b40 | 75 74 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 3a 61 73 64 66 20 2a 66 65 | ute)...(unless.(member.:asdf.*fe |
| 103b60 | 61 74 75 72 65 73 2a 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 43 6f 75 6c 64 20 6e 6f 74 20 6c | atures*).....(error."Could.not.l |
| 103b80 | 6f 61 64 20 41 53 44 46 2e 0a 50 6c 65 61 73 65 20 75 70 64 61 74 65 20 79 6f 75 72 20 69 6d 70 | oad.ASDF..Please.update.your.imp |
| 103ba0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 72 0a 69 6e 73 74 61 6c 6c 20 61 20 72 65 63 65 6e 74 20 | lementation.or.install.a.recent. |
| 103bc0 | 72 65 6c 65 61 73 65 20 6f 66 20 41 53 44 46 20 61 6e 64 20 69 6e 20 79 6f 75 72 20 7e 7e 2f 2e | release.of.ASDF.and.in.your.~~/. |
| 103be0 | 73 77 61 6e 6b 2e 6c 69 73 70 20 73 70 65 63 69 66 79 3a 0a 20 28 64 65 66 70 61 72 61 6d 65 74 | swank.lisp.specify:..(defparamet |
| 103c00 | 65 72 20 73 77 61 6e 6b 3a 3a 2a 61 73 64 66 2d 70 61 74 68 2a 20 23 70 5c 22 2f 70 61 74 68 2f | er.swank::*asdf-path*.#p\"/path/ |
| 103c20 | 63 6f 6e 74 61 69 6e 69 6e 67 2f 61 73 64 66 2f 61 73 64 66 2e 6c 69 73 70 5c 22 29 22 29 29 29 | containing/asdf/asdf.lisp\")"))) |
| 103c40 | 0a 0a 3b 3b 3b 20 49 66 20 41 53 44 46 20 69 73 20 74 6f 6f 20 6f 6c 64 2c 20 70 75 6e 74 2e 0a | ..;;;.If.ASDF.is.too.old,.punt.. |
| 103c60 | 3b 3b 20 41 73 20 6f 66 20 4a 61 6e 75 61 72 79 20 32 30 31 34 2c 20 51 75 69 63 6b 6c 69 73 70 | ;;.As.of.January.2014,.Quicklisp |
| 103c80 | 20 68 61 73 20 62 65 65 6e 20 70 72 6f 76 69 64 69 6e 67 20 32 2e 32 36 20 66 6f 72 20 61 20 79 | .has.been.providing.2.26.for.a.y |
| 103ca0 | 65 61 72 0a 3b 3b 20 28 61 6e 64 20 70 72 65 76 69 6f 75 73 6c 79 20 68 61 64 20 32 2e 30 31 34 | ear.;;.(and.previously.had.2.014 |
| 103cc0 | 2e 36 20 66 6f 72 20 6f 76 65 72 20 61 20 79 65 61 72 29 2c 20 77 68 65 72 65 61 73 0a 3b 3b 20 | .6.for.over.a.year),.whereas.;;. |
| 103ce0 | 61 6c 6c 20 53 4c 49 4d 45 2d 73 75 70 70 6f 72 74 65 64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | all.SLIME-supported.implementati |
| 103d00 | 6f 6e 73 20 70 72 6f 76 69 64 65 20 41 53 44 46 33 20 28 69 2e 65 2e 20 32 2e 32 37 20 6f 72 20 | ons.provide.ASDF3.(i.e..2.27.or. |
| 103d20 | 6c 61 74 65 72 29 0a 3b 3b 20 65 78 63 65 70 74 20 4c 69 73 70 57 6f 72 6b 73 20 28 73 74 75 63 | later).;;.except.LispWorks.(stuc |
| 103d40 | 6b 20 77 69 74 68 20 32 2e 30 31 39 29 20 61 6e 64 20 53 43 4c 20 28 77 68 69 63 68 20 68 61 73 | k.with.2.019).and.SCL.(which.has |
| 103d60 | 6e 27 74 20 62 65 65 6e 20 72 65 6c 65 61 73 65 64 0a 3b 3b 20 69 6e 20 79 65 61 72 73 20 61 6e | n't.been.released.;;.in.years.an |
| 103d80 | 64 20 64 6f 65 73 6e 27 74 20 70 72 6f 76 69 64 65 20 41 53 44 46 20 61 74 20 61 6c 6c 2c 20 62 | d.doesn't.provide.ASDF.at.all,.b |
| 103da0 | 75 74 20 69 73 20 66 75 6c 6c 79 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 41 53 44 46 29 2e 0a | ut.is.fully.supported.by.ASDF).. |
| 103dc0 | 3b 3b 20 49 66 20 79 6f 75 72 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 6f 65 73 6e 27 | ;;.If.your.implementation.doesn' |
| 103de0 | 74 20 70 72 6f 76 69 64 65 20 41 53 44 46 2c 20 6f 72 20 70 72 6f 76 69 64 65 73 20 61 6e 20 6f | t.provide.ASDF,.or.provides.an.o |
| 103e00 | 6c 64 20 6f 6e 65 2c 0a 3b 3b 20 69 6e 73 74 61 6c 6c 20 61 6e 20 75 70 67 72 61 64 65 20 79 6f | ld.one,.;;.install.an.upgrade.yo |
| 103e20 | 75 72 73 65 6c 66 20 61 6e 64 20 63 6f 6e 66 69 67 75 72 65 20 2a 61 73 64 66 2d 70 61 74 68 2a | urself.and.configure.*asdf-path* |
| 103e40 | 2e 0a 3b 3b 20 49 74 27 73 20 6a 75 73 74 20 6e 6f 74 20 77 6f 72 74 68 20 74 68 65 20 68 61 73 | ..;;.It's.just.not.worth.the.has |
| 103e60 | 73 6c 65 20 73 75 70 70 6f 72 74 69 6e 67 20 73 6f 6d 65 74 68 69 6e 67 0a 3b 3b 20 74 68 61 74 | sle.supporting.something.;;.that |
| 103e80 | 20 64 6f 65 73 6e 27 74 20 65 76 65 6e 20 68 61 76 65 20 43 4f 45 52 43 45 2d 50 41 54 48 4e 41 | .doesn't.even.have.COERCE-PATHNA |
| 103ea0 | 4d 45 2e 0a 3b 3b 0a 3b 3b 20 4e 42 3a 20 74 68 69 73 20 76 65 72 73 69 6f 6e 20 63 68 65 63 6b | ME..;;.;;.NB:.this.version.check |
| 103ec0 | 20 69 73 20 64 75 70 6c 69 63 61 74 65 64 20 69 6e 20 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 2e 6c | .is.duplicated.in.swank-loader.l |
| 103ee0 | 69 73 70 20 73 6f 20 74 68 61 74 20 77 65 20 64 6f 6e 27 74 0a 3b 3b 20 74 72 79 20 74 6f 20 6c | isp.so.that.we.don't.;;.try.to.l |
| 103f00 | 6f 61 64 20 74 68 69 73 20 63 6f 6e 74 72 69 62 20 77 68 65 6e 20 41 53 44 46 20 69 73 20 74 6f | oad.this.contrib.when.ASDF.is.to |
| 103f20 | 6f 20 6f 6c 64 20 73 69 6e 63 65 20 74 68 61 74 20 77 69 6c 6c 20 61 62 6f 72 74 20 74 68 65 20 | o.old.since.that.will.abort.the. |
| 103f40 | 53 4c 49 4d 45 0a 3b 3b 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 23 2d 61 73 64 66 33 0a 28 65 76 | SLIME.;;.connection..#-asdf3.(ev |
| 103f60 | 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 | al-when.(:compile-toplevel.:load |
| 103f80 | 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 61 | -toplevel.:execute)...(unless.(a |
| 103fa0 | 6e 64 20 23 2b 61 73 64 66 32 20 28 61 73 64 66 3a 76 65 72 73 69 6f 6e 2d 73 61 74 69 73 66 69 | nd.#+asdf2.(asdf:version-satisfi |
| 103fc0 | 65 73 20 28 61 73 64 66 3a 61 73 64 66 2d 76 65 72 73 69 6f 6e 29 20 22 32 2e 31 34 2e 36 22 29 | es.(asdf:asdf-version)."2.14.6") |
| 103fe0 | 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 59 6f 75 72 20 41 53 44 46 20 69 73 20 74 6f 6f 20 6f | ).....(error."Your.ASDF.is.too.o |
| 104000 | 6c 64 2e 20 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65 20 6f 6c 64 65 73 74 20 76 65 72 | ld..~.............The.oldest.ver |
| 104020 | 73 69 6f 6e 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 73 77 61 6e 6b 2d 61 73 64 66 20 69 73 20 | sion.supported.by.swank-asdf.is. |
| 104040 | 32 2e 30 31 34 2e 36 2e 22 29 29 29 0a 3b 3b 3b 20 49 6d 70 6f 72 74 20 66 75 6e 63 74 69 6f 6e | 2.014.6."))).;;;.Import.function |
| 104060 | 61 6c 69 74 79 20 66 72 6f 6d 20 41 53 44 46 20 74 68 61 74 20 69 73 6e 27 74 20 61 76 61 69 6c | ality.from.ASDF.that.isn't.avail |
| 104080 | 61 62 6c 65 20 69 6e 20 61 6c 6c 20 41 53 44 46 20 76 65 72 73 69 6f 6e 73 2e 0a 3b 3b 3b 20 50 | able.in.all.ASDF.versions..;;;.P |
| 1040a0 | 6c 65 61 73 65 20 64 6f 20 4e 4f 54 20 64 65 70 65 6e 64 20 6f 6e 20 61 6e 79 20 6f 66 20 74 68 | lease.do.NOT.depend.on.any.of.th |
| 1040c0 | 65 20 62 65 6c 6f 77 20 61 73 20 72 65 66 65 72 65 6e 63 65 3a 0a 3b 3b 3b 20 74 68 65 79 20 61 | e.below.as.reference:.;;;.they.a |
| 1040e0 | 72 65 20 73 6f 6d 65 74 69 6d 65 73 20 73 74 72 69 70 70 65 64 20 64 6f 77 6e 20 76 65 72 73 69 | re.sometimes.stripped.down.versi |
| 104100 | 6f 6e 73 2c 20 66 6f 72 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 6f 6e 6c 79 2e 0a 3b 3b 3b | ons,.for.compatibility.only..;;; |
| 104120 | 20 49 6e 64 65 65 64 2c 20 74 68 65 79 20 61 72 65 20 73 75 70 70 6f 73 65 64 20 74 6f 20 77 6f | .Indeed,.they.are.supposed.to.wo |
| 104140 | 72 6b 20 6f 6e 20 2a 4f 4c 44 45 52 2a 2c 20 6e 6f 74 20 2a 4e 45 57 45 52 2a 20 76 65 72 73 69 | rk.on.*OLDER*,.not.*NEWER*.versi |
| 104160 | 6f 6e 73 20 6f 66 20 41 53 44 46 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 77 61 79 20 49 20 67 | ons.of.ASDF..;;;.;;;.The.way.I.g |
| 104180 | 6f 74 20 74 68 65 73 65 20 69 73 20 75 73 75 61 6c 6c 79 20 62 79 20 6c 6f 6f 6b 69 6e 67 20 61 | ot.these.is.usually.by.looking.a |
| 1041a0 | 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 69 6e 69 74 69 6f 6e 2c 0a 3b 3b 3b 20 75 73 | t.the.current.definition,.;;;.us |
| 1041c0 | 69 6e 67 20 67 69 74 20 62 6c 61 6d 65 20 69 6e 20 6f 6e 65 20 73 63 72 65 65 6e 20 74 6f 20 6c | ing.git.blame.in.one.screen.to.l |
| 1041e0 | 6f 63 61 74 65 20 77 68 69 63 68 20 63 6f 6d 6d 69 74 20 6c 61 73 74 20 6d 6f 64 69 66 69 65 64 | ocate.which.commit.last.modified |
| 104200 | 20 69 74 2c 0a 3b 3b 3b 20 61 6e 64 20 67 69 74 20 6c 6f 67 20 69 6e 20 61 6e 6f 74 68 65 72 20 | .it,.;;;.and.git.log.in.another. |
| 104220 | 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 77 68 69 63 68 20 72 65 6c 65 61 73 65 20 74 68 61 74 20 | to.determine.which.release.that. |
| 104240 | 6d 61 64 65 20 69 74 20 69 6e 2e 0a 3b 3b 3b 20 49 74 20 69 73 20 4f 4b 20 66 6f 72 20 73 6f 6d | made.it.in..;;;.It.is.OK.for.som |
| 104260 | 65 20 6f 66 20 74 68 65 20 62 65 6c 6f 77 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 74 6f 20 62 65 | e.of.the.below.definitions.to.be |
| 104280 | 20 6f 72 20 62 65 63 6f 6d 65 20 6f 62 73 6f 6c 65 74 65 2c 0a 3b 3b 3b 20 61 73 20 6c 6f 6e 67 | .or.become.obsolete,.;;;.as.long |
| 1042a0 | 20 61 73 20 69 74 20 77 69 6c 6c 20 6d 61 6b 65 20 64 6f 20 77 69 74 68 20 76 65 72 73 69 6f 6e | .as.it.will.make.do.with.version |
| 1042c0 | 73 20 6f 6c 64 65 72 20 74 68 61 6e 20 74 68 65 20 74 61 67 67 65 64 20 76 65 72 73 69 6f 6e 3a | s.older.than.the.tagged.version: |
| 1042e0 | 0a 3b 3b 3b 20 69 66 20 41 53 44 46 20 69 73 20 6d 6f 72 65 20 72 65 63 65 6e 74 2c 20 69 74 73 | .;;;.if.ASDF.is.more.recent,.its |
| 104300 | 20 6d 6f 72 65 20 72 65 63 65 6e 74 20 76 65 72 73 69 6f 6e 20 77 69 6c 6c 20 77 69 6e 2e 0a 3b | .more.recent.version.will.win..; |
| 104320 | 3b 3b 0a 3b 3b 3b 20 49 66 20 79 6f 75 72 20 73 6f 66 74 77 61 72 65 20 69 73 20 68 61 63 6b 69 | ;;.;;;.If.your.software.is.hacki |
| 104340 | 6e 67 20 41 53 44 46 2c 20 75 73 65 20 69 74 73 20 69 6e 74 65 72 6e 61 6c 73 2e 0a 3b 3b 3b 20 | ng.ASDF,.use.its.internals..;;;. |
| 104360 | 49 66 20 79 6f 75 20 77 61 6e 74 20 41 53 44 46 20 75 74 69 6c 69 74 69 65 73 20 69 6e 20 75 73 | If.you.want.ASDF.utilities.in.us |
| 104380 | 65 72 20 73 6f 66 74 77 61 72 65 2c 20 70 6c 65 61 73 65 20 75 73 65 20 41 53 44 46 2d 55 54 49 | er.software,.please.use.ASDF-UTI |
| 1043a0 | 4c 53 2e 0a 0a 28 64 65 66 75 6e 20 61 73 64 66 2d 61 74 2d 6c 65 61 73 74 20 28 76 65 72 73 69 | LS...(defun.asdf-at-least.(versi |
| 1043c0 | 6f 6e 29 0a 20 20 28 61 73 64 66 3a 76 65 72 73 69 6f 6e 2d 73 61 74 69 73 66 69 65 73 20 28 61 | on)...(asdf:version-satisfies.(a |
| 1043e0 | 73 64 66 3a 61 73 64 66 2d 76 65 72 73 69 6f 6e 29 20 76 65 72 73 69 6f 6e 29 29 0a 0a 28 64 65 | sdf:asdf-version).version))..(de |
| 104400 | 66 6d 61 63 72 6f 20 61 73 64 65 66 73 20 28 76 65 72 73 69 6f 6e 20 26 72 65 73 74 20 64 65 66 | fmacro.asdefs.(version.&rest.def |
| 104420 | 73 29 0a 20 20 28 66 6c 65 74 20 28 28 64 65 66 75 6e 2a 20 28 76 65 72 73 69 6f 6e 20 6e 61 6d | s)...(flet.((defun*.(version.nam |
| 104440 | 65 20 61 6e 61 6d 65 20 72 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 70 72 6f 67 6e | e.aname.rest)............`(progn |
| 104460 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 75 6e 20 2c 6e 61 6d 65 20 2c 40 72 65 | ...............(defun.,name.,@re |
| 104480 | 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 69 6d 20 28 6e 6f 74 69 | st)...............(declaim.(noti |
| 1044a0 | 6e 6c 69 6e 65 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 | nline.,name))...............(whe |
| 1044c0 | 6e 20 28 61 73 64 66 2d 61 74 2d 6c 65 61 73 74 20 2c 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 | n.(asdf-at-least.,version)...... |
| 1044e0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 27 2c | ...........(setf.(fdefinition.', |
| 104500 | 6e 61 6d 65 29 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 27 2c 61 6e 61 6d 65 29 29 29 29 29 0a | name).(fdefinition.',aname))))). |
| 104520 | 20 20 20 20 20 20 20 20 20 28 64 65 66 6d 65 74 68 6f 64 2a 20 28 76 65 72 73 69 6f 6e 20 61 6e | .........(defmethod*.(version.an |
| 104540 | 61 6d 65 20 72 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 75 6e 6c 65 73 73 20 28 61 | ame.rest)............`(unless.(a |
| 104560 | 73 64 66 2d 61 74 2d 6c 65 61 73 74 20 2c 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | sdf-at-least.,version).......... |
| 104580 | 20 20 20 20 20 28 64 65 66 6d 65 74 68 6f 64 20 2c 61 6e 61 6d 65 20 2c 40 72 65 73 74 29 29 29 | .....(defmethod.,aname.,@rest))) |
| 1045a0 | 0a 20 20 20 20 20 20 20 20 20 28 64 65 66 76 61 72 2a 20 28 6e 61 6d 65 20 61 6e 61 6d 65 20 72 | ..........(defvar*.(name.aname.r |
| 1045c0 | 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 | est)............`(progn......... |
| 1045e0 | 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 73 79 6d 62 6f 6c 2d 6d 61 63 72 6f 20 2c 6e 61 6d 65 | ......(define-symbol-macro.,name |
| 104600 | 20 2c 61 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 76 61 72 20 2c | .,aname)...............(defvar., |
| 104620 | 61 6e 61 6d 65 20 2c 40 72 65 73 74 29 29 29 29 0a 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 | aname.,@rest)))).....`(progn.... |
| 104640 | 20 20 20 20 2c 40 28 6c 6f 6f 70 20 3a 66 6f 72 20 28 64 65 66 20 6e 61 6d 65 20 2e 20 61 72 67 | ....,@(loop.:for.(def.name...arg |
| 104660 | 73 29 20 3a 69 6e 20 64 65 66 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 6f 72 20 | s).:in.defs................:for. |
| 104680 | 61 6e 61 6d 65 20 3d 20 28 69 6e 74 65 72 6e 20 28 73 74 72 69 6e 67 20 6e 61 6d 65 29 20 3a 61 | aname.=.(intern.(string.name).:a |
| 1046a0 | 73 64 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6c 6c 65 63 74 0a 20 20 20 | sdf)................:collect.... |
| 1046c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 64 65 66 0a 20 20 20 20 20 20 20 20 20 | ............(ecase.def.......... |
| 1046e0 | 20 20 20 20 20 20 20 20 28 28 64 65 66 75 6e 29 20 28 64 65 66 75 6e 2a 20 76 65 72 73 69 6f 6e | ........((defun).(defun*.version |
| 104700 | 20 6e 61 6d 65 20 61 6e 61 6d 65 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .name.aname.args)).............. |
| 104720 | 20 20 20 20 28 28 64 65 66 6d 65 74 68 6f 64 29 20 28 64 65 66 6d 65 74 68 6f 64 2a 20 76 65 72 | ....((defmethod).(defmethod*.ver |
| 104740 | 73 69 6f 6e 20 61 6e 61 6d 65 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sion.aname.args))............... |
| 104760 | 20 20 20 28 28 64 65 66 76 61 72 29 20 28 64 65 66 76 61 72 2a 20 6e 61 6d 65 20 61 6e 61 6d 65 | ...((defvar).(defvar*.name.aname |
| 104780 | 20 61 72 67 73 29 29 29 29 29 29 29 0a 0a 28 61 73 64 65 66 73 20 22 32 2e 31 35 22 0a 20 28 64 | .args)))))))..(asdefs."2.15"..(d |
| 1047a0 | 65 66 76 61 72 20 2a 77 69 6c 64 2a 20 23 2d 63 6f 72 6d 61 6e 6c 69 73 70 20 3a 77 69 6c 64 20 | efvar.*wild*.#-cormanlisp.:wild. |
| 1047c0 | 23 2b 63 6f 72 6d 61 6e 6c 69 73 70 20 22 2a 22 29 0a 0a 20 28 64 65 66 75 6e 20 63 6f 6c 6c 65 | #+cormanlisp."*")...(defun.colle |
| 1047e0 | 63 74 2d 61 73 64 73 2d 69 6e 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 20 | ct-asds-in-directory.(directory. |
| 104800 | 63 6f 6c 6c 65 63 74 29 0a 20 20 20 28 6d 61 70 20 28 29 20 63 6f 6c 6c 65 63 74 20 28 64 69 72 | collect)....(map.().collect.(dir |
| 104820 | 65 63 74 6f 72 79 2d 61 73 64 2d 66 69 6c 65 73 20 64 69 72 65 63 74 6f 72 79 29 29 29 0a 0a 20 | ectory-asd-files.directory)))... |
| 104840 | 28 64 65 66 75 6e 20 72 65 67 69 73 74 65 72 2d 61 73 64 2d 64 69 72 65 63 74 6f 72 79 20 28 64 | (defun.register-asd-directory.(d |
| 104860 | 69 72 65 63 74 6f 72 79 20 26 6b 65 79 20 72 65 63 75 72 73 65 20 65 78 63 6c 75 64 65 20 63 6f | irectory.&key.recurse.exclude.co |
| 104880 | 6c 6c 65 63 74 29 0a 20 20 20 28 69 66 20 28 6e 6f 74 20 72 65 63 75 72 73 65 29 0a 20 20 20 20 | llect)....(if.(not.recurse)..... |
| 1048a0 | 20 20 20 28 63 6f 6c 6c 65 63 74 2d 61 73 64 73 2d 69 6e 2d 64 69 72 65 63 74 6f 72 79 20 64 69 | ...(collect-asds-in-directory.di |
| 1048c0 | 72 65 63 74 6f 72 79 20 63 6f 6c 6c 65 63 74 29 0a 20 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 74 | rectory.collect)........(collect |
| 1048e0 | 2d 73 75 62 2a 64 69 72 65 63 74 6f 72 69 65 73 2d 61 73 64 2d 66 69 6c 65 73 0a 20 20 20 20 20 | -sub*directories-asd-files...... |
| 104900 | 20 20 20 64 69 72 65 63 74 6f 72 79 20 3a 65 78 63 6c 75 64 65 20 65 78 63 6c 75 64 65 20 3a 63 | ...directory.:exclude.exclude.:c |
| 104920 | 6f 6c 6c 65 63 74 20 63 6f 6c 6c 65 63 74 29 29 29 29 0a 0a 28 61 73 64 65 66 73 20 22 32 2e 31 | ollect.collect))))..(asdefs."2.1 |
| 104940 | 36 22 0a 20 28 64 65 66 75 6e 20 6c 6f 61 64 2d 73 79 73 64 65 66 20 28 6e 61 6d 65 20 70 61 74 | 6"..(defun.load-sysdef.(name.pat |
| 104960 | 68 6e 61 6d 65 29 0a 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6e 61 6d 65 29 | hname)....(declare.(ignore.name) |
| 104980 | 29 0a 20 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 20 28 61 73 64 66 3a 3a 6d 61 6b 65 2d | )....(let.((package.(asdf::make- |
| 1049a0 | 74 65 6d 70 6f 72 61 72 79 2d 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 20 20 28 75 6e 77 69 6e | temporary-package)))......(unwin |
| 1049c0 | 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 70 61 63 6b | d-protect...........(let.((*pack |
| 1049e0 | 61 67 65 2a 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a | age*.package).................(* |
| 104a00 | 64 65 66 61 75 6c 74 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 0a 20 20 20 20 20 | default-pathname-defaults*...... |
| 104a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 3a 70 61 74 68 6e 61 6d 65 2d 64 69 72 | .............(asdf::pathname-dir |
| 104a40 | 65 63 74 6f 72 79 2d 70 61 74 68 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ectory-pathname................. |
| 104a60 | 20 20 20 28 74 72 61 6e 73 6c 61 74 65 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 20 70 | ...(translate-logical-pathname.p |
| 104a80 | 61 74 68 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 3a 61 | athname)))).............(asdf::a |
| 104aa0 | 73 64 66 2d 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 7e 26 3b 20 4c 6f | sdf-message.............."~&;.Lo |
| 104ac0 | 61 64 69 6e 67 20 73 79 73 74 65 6d 20 64 65 66 69 6e 69 74 69 6f 6e 20 66 72 6f 6d 20 7e 41 20 | ading.system.definition.from.~A. |
| 104ae0 | 69 6e 74 6f 20 7e 41 7e 25 22 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 6e 61 | into.~A~%".;..............pathna |
| 104b00 | 6d 65 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 61 64 20 70 61 | me.package).............(load.pa |
| 104b20 | 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 20 28 64 65 6c 65 74 65 2d 70 61 63 6b 61 67 65 20 70 61 | thname))......(delete-package.pa |
| 104b40 | 63 6b 61 67 65 29 29 29 29 0a 0a 20 28 64 65 66 75 6e 20 64 69 72 65 63 74 6f 72 79 2a 20 28 70 | ckage))))...(defun.directory*.(p |
| 104b60 | 61 74 68 6e 61 6d 65 2d 73 70 65 63 20 26 72 65 73 74 20 6b 65 79 73 20 26 6b 65 79 20 26 61 6c | athname-spec.&rest.keys.&key.&al |
| 104b80 | 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 0a 20 20 20 28 61 70 70 6c 79 20 27 64 69 72 65 63 | low-other-keys)....(apply.'direc |
| 104ba0 | 74 6f 72 79 20 70 61 74 68 6e 61 6d 65 2d 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 28 61 70 | tory.pathname-spec...........(ap |
| 104bc0 | 70 65 6e 64 20 6b 65 79 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 23 2e 28 | pend.keys...................'#.( |
| 104be0 | 6f 72 20 23 2b 61 6c 6c 65 67 72 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | or.#+allegro.................... |
| 104c00 | 20 20 20 20 20 20 27 28 3a 64 69 72 65 63 74 6f 72 69 65 73 2d 61 72 65 2d 66 69 6c 65 73 20 6e | ......'(:directories-are-files.n |
| 104c20 | 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 | il............................:f |
| 104c40 | 6f 6c 6c 6f 77 2d 73 79 6d 62 6f 6c 69 63 2d 6c 69 6e 6b 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 | ollow-symbolic-links.nil)....... |
| 104c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 63 6c 6f 7a 75 72 65 0a 20 20 20 | ...................#+clozure.... |
| 104c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 66 6f 6c 6c 6f 77 2d | ......................'(:follow- |
| 104ca0 | 6c 69 6e 6b 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | links.nil)...................... |
| 104cc0 | 20 20 20 20 23 2b 63 6c 69 73 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....#+clisp..................... |
| 104ce0 | 20 20 20 20 20 27 28 3a 63 69 72 63 6c 65 20 74 20 3a 69 66 2d 64 6f 65 73 2d 6e 6f 74 2d 65 78 | .....'(:circle.t.:if-does-not-ex |
| 104d00 | 69 73 74 20 3a 69 67 6e 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ist.:ignore).................... |
| 104d20 | 20 20 20 20 20 20 23 2b 28 6f 72 20 63 6d 75 20 73 63 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ......#+(or.cmu.scl)............ |
| 104d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 66 6f 6c 6c 6f 77 2d 6c 69 6e 6b 73 20 6e 69 | ..............'(:follow-links.ni |
| 104d60 | 6c 20 3a 74 72 75 65 6e 61 6d 65 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l.:truenamep.nil)............... |
| 104d80 | 20 20 20 20 20 20 20 20 20 20 20 23 2b 73 62 63 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........#+sbcl............... |
| 104da0 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 52 | ...........(when.(find-symbol."R |
| 104dc0 | 45 53 4f 4c 56 45 2d 53 59 4d 4c 49 4e 4b 53 22 20 27 23 3a 73 62 2d 69 6d 70 6c 29 0a 20 20 20 | ESOLVE-SYMLINKS".'#:sb-impl).... |
| 104de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 72 65 73 6f 6c | ........................'(:resol |
| 104e00 | 76 65 2d 73 79 6d 6c 69 6e 6b 73 20 6e 69 6c 29 29 29 29 29 29 29 0a 28 61 73 64 65 66 73 20 22 | ve-symlinks.nil))))))).(asdefs." |
| 104e20 | 32 2e 31 37 22 0a 20 28 64 65 66 75 6e 20 63 6f 6c 6c 65 63 74 2d 73 75 62 2a 64 69 72 65 63 74 | 2.17"..(defun.collect-sub*direct |
| 104e40 | 6f 72 69 65 73 2d 61 73 64 2d 66 69 6c 65 73 0a 20 20 20 20 20 28 64 69 72 65 63 74 6f 72 79 20 | ories-asd-files......(directory. |
| 104e60 | 26 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 63 6c 75 64 65 20 61 73 | &key.................(exclude.as |
| 104e80 | 64 66 3a 3a 2a 64 65 66 61 75 6c 74 2d 73 6f 75 72 63 65 2d 72 65 67 69 73 74 72 79 2d 65 78 63 | df::*default-source-registry-exc |
| 104ea0 | 6c 75 73 69 6f 6e 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 | lusions*).................collec |
| 104ec0 | 74 29 0a 20 20 20 28 61 73 64 66 3a 3a 63 6f 6c 6c 65 63 74 2d 73 75 62 2a 64 69 72 65 63 74 6f | t)....(asdf::collect-sub*directo |
| 104ee0 | 72 69 65 73 0a 20 20 20 20 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 28 63 6f 6e 73 74 61 6e 74 | ries.....directory.....(constant |
| 104f00 | 6c 79 20 74 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 6e 6f 74 20 28 6d 65 6d 62 | ly.t).....(lambda.(x).(not.(memb |
| 104f20 | 65 72 20 28 63 61 72 20 28 6c 61 73 74 20 28 70 61 74 68 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 | er.(car.(last.(pathname-director |
| 104f40 | 79 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | y.x))).......................... |
| 104f60 | 20 20 20 20 65 78 63 6c 75 64 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 29 0a 20 20 20 | ....exclude.:test.#'equal))).... |
| 104f80 | 20 28 6c 61 6d 62 64 61 20 28 64 69 72 29 20 28 63 6f 6c 6c 65 63 74 2d 61 73 64 73 2d 69 6e 2d | .(lambda.(dir).(collect-asds-in- |
| 104fa0 | 64 69 72 65 63 74 6f 72 79 20 64 69 72 20 63 6f 6c 6c 65 63 74 29 29 29 29 0a 0a 20 28 64 65 66 | directory.dir.collect))))...(def |
| 104fc0 | 75 6e 20 73 79 73 74 65 6d 2d 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 20 28 73 79 73 74 | un.system-source-directory.(syst |
| 104fe0 | 65 6d 2d 64 65 73 69 67 6e 61 74 6f 72 29 0a 20 20 20 28 61 73 64 66 3a 3a 70 61 74 68 6e 61 6d | em-designator)....(asdf::pathnam |
| 105000 | 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 61 74 68 6e 61 6d 65 0a 20 20 20 20 28 61 73 64 66 3a 3a | e-directory-pathname.....(asdf:: |
| 105020 | 73 79 73 74 65 6d 2d 73 6f 75 72 63 65 2d 66 69 6c 65 20 73 79 73 74 65 6d 2d 64 65 73 69 67 6e | system-source-file.system-design |
| 105040 | 61 74 6f 72 29 29 29 0a 0a 20 28 64 65 66 75 6e 20 66 69 6c 74 65 72 2d 6c 6f 67 69 63 61 6c 2d | ator)))...(defun.filter-logical- |
| 105060 | 64 69 72 65 63 74 6f 72 79 2d 72 65 73 75 6c 74 73 20 28 64 69 72 65 63 74 6f 72 79 20 65 6e 74 | directory-results.(directory.ent |
| 105080 | 72 69 65 73 20 6d 65 72 67 65 72 29 0a 20 20 20 28 69 66 20 28 74 79 70 65 70 20 64 69 72 65 63 | ries.merger)....(if.(typep.direc |
| 1050a0 | 74 6f 72 79 20 27 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 | tory.'logical-pathname)........( |
| 1050c0 | 6c 6f 6f 70 20 66 6f 72 20 66 20 69 6e 20 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 | loop.for.f.in.entries........... |
| 1050e0 | 20 20 20 77 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 74 79 70 65 70 20 | ...when..............(if.(typep. |
| 105100 | 66 20 27 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | f.'logical-pathname)............ |
| 105120 | 20 20 20 20 20 20 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | ......f..................(let.(( |
| 105140 | 75 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 75 6e 63 61 6c 6c 20 6d 65 72 67 65 72 | u.(ignore-errors.(funcall.merger |
| 105160 | 20 66 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 75 | .f))))....................(and.u |
| 105180 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 | .........................(equal. |
| 1051a0 | 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 74 72 75 65 6e 61 6d 65 20 75 29 29 0a 20 20 20 | (ignore-errors.(truename.u)).... |
| 1051c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 75 | ............................(tru |
| 1051e0 | 65 6e 61 6d 65 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ename.f))....................... |
| 105200 | 20 20 75 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 69 74 29 0a | ..u)))..............collect.it). |
| 105220 | 20 20 20 20 20 20 20 65 6e 74 72 69 65 73 29 29 0a 0a 20 28 64 65 66 75 6e 20 64 69 72 65 63 74 | .......entries))...(defun.direct |
| 105240 | 6f 72 79 2d 61 73 64 2d 66 69 6c 65 73 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 28 64 69 | ory-asd-files.(directory)....(di |
| 105260 | 72 65 63 74 6f 72 79 2d 66 69 6c 65 73 20 64 69 72 65 63 74 6f 72 79 20 61 73 64 66 3a 3a 2a 77 | rectory-files.directory.asdf::*w |
| 105280 | 69 6c 64 2d 61 73 64 2a 29 29 29 0a 0a 28 61 73 64 65 66 73 20 22 32 2e 31 39 22 0a 20 20 20 20 | ild-asd*)))..(asdefs."2.19"..... |
| 1052a0 | 28 64 65 66 75 6e 20 73 75 62 64 69 72 65 63 74 6f 72 69 65 73 20 28 64 69 72 65 63 74 6f 72 79 | (defun.subdirectories.(directory |
| 1052c0 | 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 64 69 72 65 63 74 6f 72 79 20 28 61 73 64 66 3a | ).......(let*.((directory.(asdf: |
| 1052e0 | 3a 65 6e 73 75 72 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 61 74 68 6e 61 6d 65 20 64 69 72 65 63 | :ensure-directory-pathname.direc |
| 105300 | 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2d 28 6f 72 20 61 62 63 6c 20 63 | tory))..............#-(or.abcl.c |
| 105320 | 6f 72 6d 61 6e 6c 69 73 70 20 78 63 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6c | ormanlisp.xcl)..............(wil |
| 105340 | 64 20 28 61 73 64 66 3a 3a 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 2a 0a 20 20 20 20 20 20 | d.(asdf::merge-pathnames*....... |
| 105360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2d 28 6f 72 20 61 62 63 6c 20 61 6c 6c 65 67 72 6f | ..............#-(or.abcl.allegro |
| 105380 | 20 63 6d 75 20 6c 69 73 70 77 6f 72 6b 73 20 73 62 63 6c 20 73 63 6c 20 78 63 6c 29 0a 20 20 20 | .cmu.lispworks.sbcl.scl.xcl).... |
| 1053a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 73 64 66 3a 3a 2a 77 69 6c 64 2d 64 69 72 | .................asdf::*wild-dir |
| 1053c0 | 65 63 74 6f 72 79 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 28 6f 72 20 61 62 | ectory*.................#+(or.ab |
| 1053e0 | 63 6c 20 61 6c 6c 65 67 72 6f 20 63 6d 75 20 6c 69 73 70 77 6f 72 6b 73 20 73 62 63 6c 20 73 63 | cl.allegro.cmu.lispworks.sbcl.sc |
| 105400 | 6c 20 78 63 6c 29 20 22 2a 2e 2a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 | l.xcl)."*.*".................dir |
| 105420 | 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 73 0a 20 20 20 20 | ectory))..............(dirs..... |
| 105440 | 20 20 20 20 20 20 20 20 20 20 20 23 2d 28 6f 72 20 61 62 63 6c 20 63 6f 72 6d 61 6e 6c 69 73 70 | ...........#-(or.abcl.cormanlisp |
| 105460 | 20 78 63 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 | .xcl)................(ignore-err |
| 105480 | 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 63 74 6f 72 79 2a 20 | ors.................(directory*. |
| 1054a0 | 77 69 6c 64 20 2e 20 23 2e 28 6f 72 20 23 2b 63 6c 6f 7a 75 72 65 20 27 28 3a 64 69 72 65 63 74 | wild...#.(or.#+clozure.'(:direct |
| 1054c0 | 6f 72 69 65 73 20 74 20 3a 66 69 6c 65 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ories.t.:files.nil)............. |
| 1054e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 6d | .............................#+m |
| 105500 | 63 6c 20 27 28 3a 64 69 72 65 63 74 6f 72 69 65 73 20 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 | cl.'(:directories.t))))......... |
| 105520 | 20 20 20 20 20 20 20 23 2b 28 6f 72 20 61 62 63 6c 20 78 63 6c 29 20 28 73 79 73 74 65 6d 3a 6c | .......#+(or.abcl.xcl).(system:l |
| 105540 | 69 73 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 | ist-directory.directory)........ |
| 105560 | 20 20 20 20 20 20 20 20 23 2b 63 6f 72 6d 61 6e 6c 69 73 70 20 28 63 6c 3a 3a 64 69 72 65 63 74 | ........#+cormanlisp.(cl::direct |
| 105580 | 6f 72 79 2d 73 75 62 64 69 72 73 20 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 | ory-subdirs.directory))......... |
| 1055a0 | 20 20 20 20 20 23 2b 28 6f 72 20 61 62 63 6c 20 61 6c 6c 65 67 72 6f 20 63 6d 75 20 6c 69 73 70 | .....#+(or.abcl.allegro.cmu.lisp |
| 1055c0 | 77 6f 72 6b 73 20 73 62 63 6c 20 73 63 6c 20 78 63 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | works.sbcl.scl.xcl)............. |
| 1055e0 | 20 28 64 69 72 73 20 28 6c 6f 6f 70 20 66 6f 72 20 78 20 69 6e 20 64 69 72 73 0a 20 20 20 20 20 | .(dirs.(loop.for.x.in.dirs...... |
| 105600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 64 20 3d 20 23 2b 28 6f | ....................for.d.=.#+(o |
| 105620 | 72 20 61 62 63 6c 20 78 63 6c 29 20 28 65 78 74 65 6e 73 69 6f 6e 73 3a 70 72 6f 62 65 2d 64 69 | r.abcl.xcl).(extensions:probe-di |
| 105640 | 72 65 63 74 6f 72 79 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rectory.x)...................... |
| 105660 | 20 20 20 20 23 2b 61 6c 6c 65 67 72 6f 20 28 65 78 63 6c 3a 70 72 6f 62 65 2d 64 69 72 65 63 74 | ....#+allegro.(excl:probe-direct |
| 105680 | 6f 72 79 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ory.x).......................... |
| 1056a0 | 23 2b 28 6f 72 20 63 6d 75 20 73 62 63 6c 20 73 63 6c 29 20 28 61 73 64 66 3a 3a 64 69 72 65 63 | #+(or.cmu.sbcl.scl).(asdf::direc |
| 1056c0 | 74 6f 72 79 2d 70 61 74 68 6e 61 6d 65 2d 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | tory-pathname-p.x).............. |
| 1056e0 | 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 6c 69 73 70 77 6f 72 6b 73 20 28 6c 77 3a 66 69 6c 65 | ............#+lispworks.(lw:file |
| 105700 | 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -directory-p.x)................. |
| 105720 | 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 64 20 63 6f 6c 6c 65 63 74 20 23 2b 28 6f 72 20 61 62 | .........when.d.collect.#+(or.ab |
| 105740 | 63 6c 20 61 6c 6c 65 67 72 6f 20 78 63 6c 29 20 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cl.allegro.xcl).d............... |
| 105760 | 20 20 20 20 20 20 20 20 20 20 20 23 2b 28 6f 72 20 63 6d 75 20 6c 69 73 70 77 6f 72 6b 73 20 73 | ...........#+(or.cmu.lispworks.s |
| 105780 | 62 63 6c 20 73 63 6c 29 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 69 6c 74 65 72 2d 6c 6f | bcl.scl).x))).........(filter-lo |
| 1057a0 | 67 69 63 61 6c 2d 64 69 72 65 63 74 6f 72 79 2d 72 65 73 75 6c 74 73 0a 20 20 20 20 20 20 20 20 | gical-directory-results......... |
| 1057c0 | 20 64 69 72 65 63 74 6f 72 79 20 64 69 72 73 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | .directory.dirs..........(let.(( |
| 1057e0 | 70 72 65 66 69 78 20 28 6f 72 20 28 6e 6f 72 6d 61 6c 69 7a 65 2d 70 61 74 68 6e 61 6d 65 2d 64 | prefix.(or.(normalize-pathname-d |
| 105800 | 69 72 65 63 74 6f 72 79 2d 63 6f 6d 70 6f 6e 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | irectory-component.............. |
| 105820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 64 69 72 65 63 74 6f | ...............(pathname-directo |
| 105840 | 72 79 20 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ry.directory)).................. |
| 105860 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 65 63 61 75 73 65 20 61 6c 6c 65 67 72 6f 20 38 2e 78 | ..........;;.because.allegro.8.x |
| 105880 | 20 72 65 74 75 72 6e 73 20 4e 49 4c 20 66 6f 72 20 23 70 22 46 4f 4f 3a 22 0a 20 20 20 20 20 20 | .returns.NIL.for.#p"FOO:"....... |
| 1058a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 61 62 73 6f 6c 75 74 65 | .....................'(:absolute |
| 1058c0 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 64 29 0a 20 20 20 20 | ))))............(lambda.(d)..... |
| 1058e0 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 6e 6f 72 6d 61 6c 69 7a 65 2d 70 | .........(let.((dir.(normalize-p |
| 105900 | 61 74 68 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 2d 63 6f 6d 70 6f 6e 65 6e 74 0a 20 20 20 20 | athname-directory-component..... |
| 105920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 64 | .....................(pathname-d |
| 105940 | 69 72 65 63 74 6f 72 79 20 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | irectory.d))))................(a |
| 105960 | 6e 64 20 28 63 6f 6e 73 70 20 64 69 72 29 20 28 63 6f 6e 73 70 20 28 63 64 72 20 64 69 72 29 29 | nd.(consp.dir).(consp.(cdr.dir)) |
| 105980 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e | .....................(make-pathn |
| 1059a0 | 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 66 61 75 6c | ame......................:defaul |
| 1059c0 | 74 73 20 64 69 72 65 63 74 6f 72 79 20 3a 6e 61 6d 65 20 6e 69 6c 20 3a 74 79 70 65 20 6e 69 6c | ts.directory.:name.nil.:type.nil |
| 1059e0 | 20 3a 76 65 72 73 69 6f 6e 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:version.nil................... |
| 105a00 | 20 20 20 3a 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...:directory................... |
| 105a20 | 20 20 20 28 61 70 70 65 6e 64 20 70 72 65 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(append.prefix............... |
| 105a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d 63 6f | ...............(make-pathname-co |
| 105a60 | 6d 70 6f 6e 65 6e 74 2d 6c 6f 67 69 63 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mponent-logical................. |
| 105a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 73 74 20 64 69 72 29 29 29 29 29 29 29 29 29 | ..............(last.dir))))))))) |
| 105aa0 | 29 29 29 0a 0a 28 61 73 64 65 66 73 20 22 32 2e 32 31 22 0a 20 28 64 65 66 75 6e 20 63 6f 6d 70 | )))..(asdefs."2.21"..(defun.comp |
| 105ac0 | 6f 6e 65 6e 74 2d 6c 6f 61 64 65 64 2d 70 20 28 63 29 0a 20 20 20 28 61 6e 64 20 28 67 65 74 68 | onent-loaded-p.(c)....(and.(geth |
| 105ae0 | 61 73 68 20 27 6c 6f 61 64 2d 6f 70 20 28 61 73 64 66 3a 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 6f 70 | ash.'load-op.(asdf::component-op |
| 105b00 | 65 72 61 74 69 6f 6e 2d 74 69 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eration-times................... |
| 105b20 | 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 3a 66 69 6e 64 2d 63 6f 6d 70 6f 6e 65 6e 74 20 63 | .........(asdf::find-component.c |
| 105b40 | 20 6e 69 6c 29 29 29 20 74 29 29 0a 0a 20 28 64 65 66 75 6e 20 6e 6f 72 6d 61 6c 69 7a 65 2d 70 | .nil))).t))...(defun.normalize-p |
| 105b60 | 61 74 68 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 2d 63 6f 6d 70 6f 6e 65 6e 74 20 28 64 69 72 | athname-directory-component.(dir |
| 105b80 | 65 63 74 6f 72 79 29 0a 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 23 2d 28 6f 72 20 63 6d 75 20 | ectory)....(cond......#-(or.cmu. |
| 105ba0 | 73 62 63 6c 20 73 63 6c 29 0a 20 20 20 20 20 28 28 73 74 72 69 6e 67 70 20 64 69 72 65 63 74 6f | sbcl.scl)......((stringp.directo |
| 105bc0 | 72 79 29 20 60 28 3a 61 62 73 6f 6c 75 74 65 20 2c 64 69 72 65 63 74 6f 72 79 29 20 64 69 72 65 | ry).`(:absolute.,directory).dire |
| 105be0 | 63 74 6f 72 79 29 0a 20 20 20 20 20 28 28 6f 72 20 28 6e 75 6c 6c 20 64 69 72 65 63 74 6f 72 79 | ctory)......((or.(null.directory |
| 105c00 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 64 69 72 65 63 74 6f 72 | )...........(and.(consp.director |
| 105c20 | 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 28 66 69 72 73 74 | y)................(member.(first |
| 105c40 | 20 64 69 72 65 63 74 6f 72 79 29 20 27 28 3a 61 62 73 6f 6c 75 74 65 20 3a 72 65 6c 61 74 69 76 | .directory).'(:absolute.:relativ |
| 105c60 | 65 29 29 29 29 0a 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 28 74 0a 20 | e)))).......directory)......(t.. |
| 105c80 | 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 72 65 63 6f 67 6e 69 7a 65 64 20 70 61 74 68 6e 61 | .....(error."Unrecognized.pathna |
| 105ca0 | 6d 65 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6d 70 6f 6e 65 6e 74 20 7e 53 22 20 64 69 72 65 63 | me.directory.component.~S".direc |
| 105cc0 | 74 6f 72 79 29 29 29 29 0a 0a 20 28 64 65 66 75 6e 20 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d | tory))))...(defun.make-pathname- |
| 105ce0 | 63 6f 6d 70 6f 6e 65 6e 74 2d 6c 6f 67 69 63 61 6c 20 28 78 29 0a 20 20 20 28 74 79 70 65 63 61 | component-logical.(x)....(typeca |
| 105d00 | 73 65 20 78 0a 20 20 20 20 20 28 28 65 71 6c 20 3a 75 6e 73 70 65 63 69 66 69 63 29 20 6e 69 6c | se.x......((eql.:unspecific).nil |
| 105d20 | 29 0a 20 20 20 20 20 23 2b 63 6c 69 73 70 20 28 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 2d 75 | )......#+clisp.(string.(string-u |
| 105d40 | 70 63 61 73 65 20 78 29 29 0a 20 20 20 20 20 23 2b 63 6c 69 73 70 20 28 63 6f 6e 73 20 28 6d 61 | pcase.x))......#+clisp.(cons.(ma |
| 105d60 | 70 63 61 72 20 27 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 6c 6f | pcar.'make-pathname-component-lo |
| 105d80 | 67 69 63 61 6c 20 78 29 29 0a 20 20 20 20 20 28 74 20 78 29 29 29 0a 0a 20 28 64 65 66 75 6e 20 | gical.x))......(t.x)))...(defun. |
| 105da0 | 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d 6c 6f 67 69 63 61 6c 20 28 70 61 74 68 6e 61 6d 65 20 | make-pathname-logical.(pathname. |
| 105dc0 | 68 6f 73 74 29 0a 20 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 0a 20 20 20 20 3a 68 6f 73 | host)....(make-pathname.....:hos |
| 105de0 | 74 20 68 6f 73 74 0a 20 20 20 20 3a 64 69 72 65 63 74 6f 72 79 20 28 6d 61 6b 65 2d 70 61 74 68 | t.host.....:directory.(make-path |
| 105e00 | 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 6c 6f 67 69 63 61 6c 20 28 70 61 74 68 6e 61 6d 65 | name-component-logical.(pathname |
| 105e20 | 2d 64 69 72 65 63 74 6f 72 79 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 3a 6e 61 6d 65 20 | -directory.pathname)).....:name. |
| 105e40 | 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 6c 6f 67 69 63 61 6c | (make-pathname-component-logical |
| 105e60 | 20 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 3a | .(pathname-name.pathname)).....: |
| 105e80 | 74 79 70 65 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 6c 6f | type.(make-pathname-component-lo |
| 105ea0 | 67 69 63 61 6c 20 28 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 20 70 61 74 68 6e 61 6d 65 29 29 0a | gical.(pathname-type.pathname)). |
| 105ec0 | 20 20 20 20 3a 76 65 72 73 69 6f 6e 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 | ....:version.(make-pathname-comp |
| 105ee0 | 6f 6e 65 6e 74 2d 6c 6f 67 69 63 61 6c 20 28 70 61 74 68 6e 61 6d 65 2d 76 65 72 73 69 6f 6e 20 | onent-logical.(pathname-version. |
| 105f00 | 70 61 74 68 6e 61 6d 65 29 29 29 29 29 0a 0a 28 61 73 64 65 66 73 20 22 32 2e 32 32 22 0a 20 28 | pathname)))))..(asdefs."2.22"..( |
| 105f20 | 64 65 66 75 6e 20 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 73 20 28 64 69 72 65 63 74 6f 72 79 | defun.directory-files.(directory |
| 105f40 | 20 26 6f 70 74 69 6f 6e 61 6c 20 28 70 61 74 74 65 72 6e 20 61 73 64 66 3a 3a 2a 77 69 6c 64 2d | .&optional.(pattern.asdf::*wild- |
| 105f60 | 66 69 6c 65 2a 29 29 0a 20 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 70 61 74 68 6e 61 6d 65 20 | file*))....(let.((dir.(pathname. |
| 105f80 | 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 20 28 77 68 65 6e 20 28 74 79 70 65 70 20 64 | directory)))......(when.(typep.d |
| 105fa0 | 69 72 20 27 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 77 68 | ir.'logical-pathname)........(wh |
| 105fc0 | 65 6e 20 28 77 69 6c 64 2d 70 61 74 68 6e 61 6d 65 2d 70 20 64 69 72 29 0a 20 20 20 20 20 20 20 | en.(wild-pathname-p.dir)........ |
| 105fe0 | 20 20 28 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 77 69 6c 64 20 70 61 74 74 65 72 6e 20 69 | ..(error."Invalid.wild.pattern.i |
| 106000 | 6e 20 6c 6f 67 69 63 61 6c 20 64 69 72 65 63 74 6f 72 79 20 7e 53 22 20 64 69 72 65 63 74 6f 72 | n.logical.directory.~S".director |
| 106020 | 79 29 29 0a 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 28 70 61 74 68 | y))........(unless.(member.(path |
| 106040 | 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 | name-directory.pattern)......... |
| 106060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 28 29 20 28 3a 72 65 6c 61 74 69 76 65 29 29 | ...............'(().(:relative)) |
| 106080 | 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 0a 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 | .:test.'equal)..........(error." |
| 1060a0 | 49 6e 76 61 6c 69 64 20 66 69 6c 65 20 70 61 74 74 65 72 6e 20 7e 53 20 66 6f 72 20 6c 6f 67 69 | Invalid.file.pattern.~S.for.logi |
| 1060c0 | 63 61 6c 20 64 69 72 65 63 74 6f 72 79 20 7e 53 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cal.directory.~S"............... |
| 1060e0 | 20 20 70 61 74 74 65 72 6e 20 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 28 73 65 | ..pattern.directory))........(se |
| 106100 | 74 66 20 70 61 74 74 65 72 6e 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d 6c 6f 67 69 63 61 | tf.pattern.(make-pathname-logica |
| 106120 | 6c 20 70 61 74 74 65 72 6e 20 28 70 61 74 68 6e 61 6d 65 2d 68 6f 73 74 20 64 69 72 29 29 29 29 | l.pattern.(pathname-host.dir)))) |
| 106140 | 0a 20 20 20 20 20 28 6c 65 74 20 28 28 65 6e 74 72 69 65 73 20 28 69 67 6e 6f 72 65 2d 65 72 72 | ......(let.((entries.(ignore-err |
| 106160 | 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 63 74 | ors......................(direct |
| 106180 | 6f 72 79 2a 20 28 61 73 64 66 3a 3a 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 2a 20 70 61 74 | ory*.(asdf::merge-pathnames*.pat |
| 1061a0 | 74 65 72 6e 20 64 69 72 29 29 29 29 29 0a 20 20 20 20 20 20 20 28 66 69 6c 74 65 72 2d 6c 6f 67 | tern.dir)))))........(filter-log |
| 1061c0 | 69 63 61 6c 2d 64 69 72 65 63 74 6f 72 79 2d 72 65 73 75 6c 74 73 0a 20 20 20 20 20 20 20 20 64 | ical-directory-results.........d |
| 1061e0 | 69 72 65 63 74 6f 72 79 20 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 | irectory.entries.........(lambda |
| 106200 | 20 28 66 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 64 | .(f)...........(make-pathname.:d |
| 106220 | 65 66 61 75 6c 74 73 20 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | efaults.dir..................... |
| 106240 | 20 20 20 20 20 3a 6e 61 6d 65 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e | .....:name.(make-pathname-compon |
| 106260 | 65 6e 74 2d 6c 6f 67 69 63 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ent-logical..................... |
| 106280 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 66 29 29 0a 20 | ............(pathname-name.f)).. |
| 1062a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 79 70 65 20 28 6d | ........................:type.(m |
| 1062c0 | 61 6b 65 2d 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 6c 6f 67 69 63 61 6c 0a 20 | ake-pathname-component-logical.. |
| 1062e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 106300 | 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pathname-type.f))............... |
| 106320 | 20 20 20 20 20 20 20 20 20 20 20 3a 76 65 72 73 69 6f 6e 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 | ...........:version.(make-pathna |
| 106340 | 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 6c 6f 67 69 63 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 | me-component-logical............ |
| 106360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d | ........................(pathnam |
| 106380 | 65 2d 76 65 72 73 69 6f 6e 20 66 29 29 29 29 29 29 29 29 29 0a 0a 28 61 73 64 65 66 73 20 22 32 | e-version.f)))))))))..(asdefs."2 |
| 1063a0 | 2e 32 36 2e 31 34 39 22 0a 20 28 64 65 66 6d 65 74 68 6f 64 20 63 6f 6d 70 6f 6e 65 6e 74 2d 72 | .26.149"..(defmethod.component-r |
| 1063c0 | 65 6c 61 74 69 76 65 2d 70 61 74 68 6e 61 6d 65 20 28 28 73 79 73 74 65 6d 20 61 73 64 66 3a 73 | elative-pathname.((system.asdf:s |
| 1063e0 | 79 73 74 65 6d 29 29 0a 20 20 20 28 61 73 64 66 3a 3a 63 6f 65 72 63 65 2d 70 61 74 68 6e 61 6d | ystem))....(asdf::coerce-pathnam |
| 106400 | 65 0a 20 20 20 20 28 61 6e 64 20 28 73 6c 6f 74 2d 62 6f 75 6e 64 70 20 73 79 73 74 65 6d 20 27 | e.....(and.(slot-boundp.system.' |
| 106420 | 61 73 64 66 3a 3a 72 65 6c 61 74 69 76 65 2d 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | asdf::relative-pathname)........ |
| 106440 | 20 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 73 79 73 74 65 6d 20 27 61 73 64 66 3a 3a 72 65 6c 61 | ..(slot-value.system.'asdf::rela |
| 106460 | 74 69 76 65 2d 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 3a 74 79 70 65 20 3a 64 69 72 65 63 | tive-pathname)).....:type.:direc |
| 106480 | 74 6f 72 79 0a 20 20 20 20 3a 64 65 66 61 75 6c 74 73 20 28 73 79 73 74 65 6d 2d 73 6f 75 72 63 | tory.....:defaults.(system-sourc |
| 1064a0 | 65 2d 64 69 72 65 63 74 6f 72 79 20 73 79 73 74 65 6d 29 29 29 0a 20 28 64 65 66 75 6e 20 6c 6f | e-directory.system)))..(defun.lo |
| 1064c0 | 61 64 2d 61 73 64 20 28 70 61 74 68 6e 61 6d 65 20 26 6b 65 79 20 6e 61 6d 65 20 26 61 6c 6c 6f | ad-asd.(pathname.&key.name.&allo |
| 1064e0 | 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 0a 20 20 20 28 61 73 64 66 3a 3a 6c 6f 61 64 2d 73 79 73 | w-other-keys)....(asdf::load-sys |
| 106500 | 64 65 66 20 28 6f 72 20 6e 61 6d 65 20 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 28 70 | def.(or.name.(string-downcase.(p |
| 106520 | 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 | athname-name.pathname)))........ |
| 106540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 6e 61 6d 65 29 29 29 0a 0a 0a 3b 3b 3b | ...............pathname)))...;;; |
| 106560 | 20 54 61 6b 65 6e 20 66 72 6f 6d 20 41 53 44 46 20 31 2e 36 32 38 0a 28 64 65 66 6d 61 63 72 6f | .Taken.from.ASDF.1.628.(defmacro |
| 106580 | 20 77 68 69 6c 65 2d 63 6f 6c 6c 65 63 74 69 6e 67 20 28 28 26 72 65 73 74 20 63 6f 6c 6c 65 63 | .while-collecting.((&rest.collec |
| 1065a0 | 74 6f 72 73 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 60 28 61 73 64 66 3a 3a 77 68 69 6c | tors).&body.body)...`(asdf::whil |
| 1065c0 | 65 2d 63 6f 6c 6c 65 63 74 69 6e 67 20 2c 63 6f 6c 6c 65 63 74 6f 72 73 20 2c 40 62 6f 64 79 29 | e-collecting.,collectors.,@body) |
| 1065e0 | 29 0a 0a 3b 3b 3b 20 4e 6f 77 20 66 6f 72 20 53 4c 49 4d 45 2d 73 70 65 63 69 66 69 63 20 73 74 | )..;;;.Now.for.SLIME-specific.st |
| 106600 | 75 66 66 0a 0a 28 64 65 66 75 6e 20 61 73 64 66 2d 6f 70 65 72 61 74 69 6f 6e 20 28 6f 70 65 72 | uff..(defun.asdf-operation.(oper |
| 106620 | 61 74 69 6f 6e 29 0a 20 20 28 6f 72 20 28 61 73 64 66 3a 3a 66 69 6e 64 2d 73 79 6d 62 6f 6c 2a | ation)...(or.(asdf::find-symbol* |
| 106640 | 20 6f 70 65 72 61 74 69 6f 6e 20 3a 61 73 64 66 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 | .operation.:asdf).......(error." |
| 106660 | 43 6f 75 6c 64 6e 27 74 20 66 69 6e 64 20 41 53 44 46 20 6f 70 65 72 61 74 69 6f 6e 20 7e 53 22 | Couldn't.find.ASDF.operation.~S" |
| 106680 | 20 6f 70 65 72 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 70 2d 73 79 73 74 65 6d | .operation)))..(defun.map-system |
| 1066a0 | 2d 63 6f 6d 70 6f 6e 65 6e 74 73 20 28 66 6e 20 73 79 73 74 65 6d 29 0a 20 20 28 6d 61 70 2d 63 | -components.(fn.system)...(map-c |
| 1066c0 | 6f 6d 70 6f 6e 65 6e 74 2d 73 75 62 63 6f 6d 70 6f 6e 65 6e 74 73 20 66 6e 20 28 61 73 64 66 3a | omponent-subcomponents.fn.(asdf: |
| 1066e0 | 66 69 6e 64 2d 73 79 73 74 65 6d 20 73 79 73 74 65 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 | find-system.system)))..(defun.ma |
| 106700 | 70 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 73 75 62 63 6f 6d 70 6f 6e 65 6e 74 73 20 28 66 6e 20 63 6f | p-component-subcomponents.(fn.co |
| 106720 | 6d 70 6f 6e 65 6e 74 29 0a 20 20 28 77 68 65 6e 20 63 6f 6d 70 6f 6e 65 6e 74 0a 20 20 20 20 28 | mponent)...(when.component.....( |
| 106740 | 66 75 6e 63 61 6c 6c 20 66 6e 20 63 6f 6d 70 6f 6e 65 6e 74 29 0a 20 20 20 20 28 77 68 65 6e 20 | funcall.fn.component).....(when. |
| 106760 | 28 74 79 70 65 70 20 63 6f 6d 70 6f 6e 65 6e 74 20 27 61 73 64 66 3a 6d 6f 64 75 6c 65 29 0a 20 | (typep.component.'asdf:module).. |
| 106780 | 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 63 20 28 61 73 64 66 3a 6d 6f 64 75 6c 65 2d 63 6f 6d | .....(dolist.(c.(asdf:module-com |
| 1067a0 | 70 6f 6e 65 6e 74 73 20 63 6f 6d 70 6f 6e 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 6d 61 70 | ponents.component)).........(map |
| 1067c0 | 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 73 75 62 63 6f 6d 70 6f 6e 65 6e 74 73 20 66 6e 20 63 29 29 29 | -component-subcomponents.fn.c))) |
| 1067e0 | 29 29 0a 0a 3b 3b 3b 20 4d 61 69 6e 74 61 69 6e 69 6e 67 20 61 20 70 61 74 68 6e 61 6d 65 20 74 | ))..;;;.Maintaining.a.pathname.t |
| 106800 | 6f 20 63 6f 6d 70 6f 6e 65 6e 74 20 74 61 62 6c 65 0a 0a 28 64 65 66 76 61 72 20 2a 70 61 74 68 | o.component.table..(defvar.*path |
| 106820 | 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 | name-component*.(make-hash-table |
| 106840 | 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 65 61 72 2d 70 61 | .:test.'equal))..(defun.clear-pa |
| 106860 | 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 74 61 62 6c 65 20 28 29 0a 20 20 28 63 6c 72 | thname-component-table.()...(clr |
| 106880 | 68 61 73 68 20 2a 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2a 29 29 0a 0a 28 64 65 | hash.*pathname-component*))..(de |
| 1068a0 | 66 75 6e 20 72 65 67 69 73 74 65 72 2d 73 79 73 74 65 6d 2d 70 61 74 68 6e 61 6d 65 73 20 28 73 | fun.register-system-pathnames.(s |
| 1068c0 | 79 73 74 65 6d 29 0a 20 20 28 6d 61 70 2d 73 79 73 74 65 6d 2d 63 6f 6d 70 6f 6e 65 6e 74 73 20 | ystem)...(map-system-components. |
| 1068e0 | 27 72 65 67 69 73 74 65 72 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 70 61 74 68 6e 61 6d 65 20 73 79 73 | 'register-component-pathname.sys |
| 106900 | 74 65 6d 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 63 6f 6d 70 75 74 65 2d 70 61 74 68 6e 61 6d 65 | tem))..(defun.recompute-pathname |
| 106920 | 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 74 61 62 6c 65 20 28 29 0a 20 20 28 63 6c 65 61 72 2d 70 61 74 | -component-table.()...(clear-pat |
| 106940 | 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 74 61 62 6c 65 29 0a 20 20 28 61 73 64 66 3a 3a | hname-component-table)...(asdf:: |
| 106960 | 6d 61 70 2d 73 79 73 74 65 6d 73 20 27 72 65 67 69 73 74 65 72 2d 73 79 73 74 65 6d 2d 70 61 74 | map-systems.'register-system-pat |
| 106980 | 68 6e 61 6d 65 73 29 29 0a 0a 28 64 65 66 75 6e 20 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e | hnames))..(defun.pathname-compon |
| 1069a0 | 65 6e 74 20 28 78 29 0a 20 20 28 67 65 74 68 61 73 68 20 28 70 61 74 68 6e 61 6d 65 20 78 29 20 | ent.(x)...(gethash.(pathname.x). |
| 1069c0 | 2a 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2a 29 29 0a 0a 28 64 65 66 6d 65 74 68 | *pathname-component*))..(defmeth |
| 1069e0 | 6f 64 20 61 73 64 66 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 70 61 74 68 6e 61 6d 65 20 3a 61 72 6f 75 | od.asdf:component-pathname.:arou |
| 106a00 | 6e 64 20 28 28 63 6f 6d 70 6f 6e 65 6e 74 20 61 73 64 66 3a 63 6f 6d 70 6f 6e 65 6e 74 29 29 0a | nd.((component.asdf:component)). |
| 106a20 | 20 20 28 6c 65 74 20 28 28 70 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 29 0a | ..(let.((p.(call-next-method))). |
| 106a40 | 20 20 20 20 28 77 68 65 6e 20 28 70 61 74 68 6e 61 6d 65 70 20 70 29 0a 20 20 20 20 20 20 28 73 | ....(when.(pathnamep.p).......(s |
| 106a60 | 65 74 66 20 28 67 65 74 68 61 73 68 20 70 20 2a 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 | etf.(gethash.p.*pathname-compone |
| 106a80 | 6e 74 2a 29 20 63 6f 6d 70 6f 6e 65 6e 74 29 29 0a 20 20 20 20 70 29 29 0a 0a 28 64 65 66 75 6e | nt*).component)).....p))..(defun |
| 106aa0 | 20 72 65 67 69 73 74 65 72 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 70 61 74 68 6e 61 6d 65 20 28 63 6f | .register-component-pathname.(co |
| 106ac0 | 6d 70 6f 6e 65 6e 74 29 0a 20 20 28 61 73 64 66 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 70 61 74 68 6e | mponent)...(asdf:component-pathn |
| 106ae0 | 61 6d 65 20 63 6f 6d 70 6f 6e 65 6e 74 29 29 0a 0a 28 72 65 63 6f 6d 70 75 74 65 2d 70 61 74 68 | ame.component))..(recompute-path |
| 106b00 | 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 74 61 62 6c 65 29 0a 0a 3b 3b 3b 20 54 68 69 73 20 | name-component-table)..;;;.This. |
| 106b20 | 69 73 20 61 20 63 72 75 64 65 20 68 61 63 6b 2c 20 73 65 65 20 41 53 44 46 27 73 20 4c 50 20 23 | is.a.crude.hack,.see.ASDF's.LP.# |
| 106b40 | 34 38 31 31 38 37 2e 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 77 68 6f 2d 64 65 70 65 6e 64 73 | 481187..(defslimefun.who-depends |
| 106b60 | 2d 6f 6e 20 28 73 79 73 74 65 6d 29 0a 20 20 28 66 6c 65 74 20 28 28 73 79 73 74 65 6d 2d 64 65 | -on.(system)...(flet.((system-de |
| 106b80 | 70 65 6e 64 65 6e 63 69 65 73 20 28 6f 70 20 73 79 73 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 | pendencies.(op.system).......... |
| 106ba0 | 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 64 65 70 29 0a 20 20 20 20 20 20 20 20 | ..(mapcar.(lambda.(dep)......... |
| 106bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 3a 63 6f 65 72 63 65 2d 6e 61 6d 65 20 | .............(asdf::coerce-name. |
| 106be0 | 28 69 66 20 28 63 6f 6e 73 70 20 64 65 70 29 20 28 73 65 63 6f 6e 64 20 64 65 70 29 20 64 65 70 | (if.(consp.dep).(second.dep).dep |
| 106c00 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 61 73 73 | )))....................(cdr.(ass |
| 106c20 | 6f 63 20 6f 70 20 28 61 73 64 66 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 64 65 70 65 6e 64 73 2d 6f 6e | oc.op.(asdf:component-depends-on |
| 106c40 | 20 6f 70 20 73 79 73 74 65 6d 29 29 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 79 73 74 | .op.system)))))).....(let.((syst |
| 106c60 | 65 6d 2d 6e 61 6d 65 20 28 61 73 64 66 3a 3a 63 6f 65 72 63 65 2d 6e 61 6d 65 20 73 79 73 74 65 | em-name.(asdf::coerce-name.syste |
| 106c80 | 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 28 61 | m))...........(result)).......(a |
| 106ca0 | 73 64 66 3a 3a 6d 61 70 2d 73 79 73 74 65 6d 73 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 | sdf::map-systems........(lambda. |
| 106cc0 | 28 73 79 73 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 65 6d 62 65 72 20 | (system)..........(when.(member. |
| 106ce0 | 73 79 73 74 65 6d 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | system-name..................... |
| 106d00 | 20 20 20 28 73 79 73 74 65 6d 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 27 61 73 64 66 3a 6c 6f | ...(system-dependencies.'asdf:lo |
| 106d20 | 61 64 2d 6f 70 20 73 79 73 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ad-op.system)................... |
| 106d40 | 20 20 20 20 20 3a 74 65 73 74 20 23 27 73 74 72 69 6e 67 3d 29 0a 20 20 20 20 20 20 20 20 20 20 | .....:test.#'string=)........... |
| 106d60 | 20 28 70 75 73 68 20 28 61 73 64 66 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 6e 61 6d 65 20 73 79 73 74 | .(push.(asdf:component-name.syst |
| 106d80 | 65 6d 29 20 72 65 73 75 6c 74 29 29 29 29 0a 20 20 20 20 20 20 72 65 73 75 6c 74 29 29 29 0a 0a | em).result)))).......result))).. |
| 106da0 | 28 64 65 66 6d 65 74 68 6f 64 20 78 72 65 66 2d 64 6f 69 74 20 28 28 74 79 70 65 20 28 65 71 6c | (defmethod.xref-doit.((type.(eql |
| 106dc0 | 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 29 29 20 74 68 69 6e 67 29 0a 20 20 28 77 68 65 6e 20 28 74 | .:depends-on)).thing)...(when.(t |
| 106de0 | 79 70 65 70 20 74 68 69 6e 67 20 27 28 6f 72 20 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 29 0a | ypep.thing.'(or.string.symbol)). |
| 106e00 | 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 64 65 70 65 6e 64 65 6e 63 79 20 69 6e 20 28 77 68 6f | ....(loop.for.dependency.in.(who |
| 106e20 | 2d 64 65 70 65 6e 64 73 2d 6f 6e 20 74 68 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 | -depends-on.thing)...........for |
| 106e40 | 20 61 73 64 2d 66 69 6c 65 20 3d 20 28 61 73 64 66 3a 73 79 73 74 65 6d 2d 64 65 66 69 6e 69 74 | .asd-file.=.(asdf:system-definit |
| 106e60 | 69 6f 6e 2d 70 61 74 68 6e 61 6d 65 20 64 65 70 65 6e 64 65 6e 63 79 29 0a 20 20 20 20 20 20 20 | ion-pathname.dependency)........ |
| 106e80 | 20 20 20 77 68 65 6e 20 61 73 64 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 | ...when.asd-file...........colle |
| 106ea0 | 63 74 20 28 6c 69 73 74 20 64 65 70 65 6e 64 65 6e 63 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ct.(list.dependency............. |
| 106ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 6d 61 6b 65 2d | ............(swank/backend:make- |
| 106ee0 | 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | location........................ |
| 106f00 | 20 20 60 28 3a 66 69 6c 65 20 2c 28 6e 61 6d 65 73 74 72 69 6e 67 20 61 73 64 2d 66 69 6c 65 29 | ..`(:file.,(namestring.asd-file) |
| 106f20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 70 6f | )..........................`(:po |
| 106f40 | 73 69 74 69 6f 6e 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sition.1)....................... |
| 106f60 | 20 20 20 60 28 3a 73 6e 69 70 70 65 74 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 28 64 65 66 | ...`(:snippet.,(format.nil."(def |
| 106f80 | 73 79 73 74 65 6d 20 3a 7e 41 22 20 64 65 70 65 6e 64 65 6e 63 79 29 0a 20 20 20 20 20 20 20 20 | system.:~A".dependency)......... |
| 106fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 6c 69 67 6e 20 74 29 29 29 29 29 | ...................:align.t))))) |
| 106fc0 | 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6f 70 65 72 61 74 65 2d 6f 6e 2d 73 79 73 74 65 | )..(defslimefun.operate-on-syste |
| 106fe0 | 6d 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 73 74 65 6d 2d 6e 61 6d 65 20 6f 70 65 72 61 74 69 | m-for-emacs.(system-name.operati |
| 107000 | 6f 6e 20 26 72 65 73 74 20 6b 65 79 77 6f 72 64 73 29 0a 20 20 22 43 6f 6d 70 69 6c 65 20 61 6e | on.&rest.keywords)..."Compile.an |
| 107020 | 64 20 6c 6f 61 64 20 53 59 53 54 45 4d 20 75 73 69 6e 67 20 41 53 44 46 2e 0a 52 65 63 6f 72 64 | d.load.SYSTEM.using.ASDF..Record |
| 107040 | 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 20 73 69 67 6e 61 6c 6c 65 64 20 61 73 20 60 63 6f | .compiler.notes.signalled.as.`co |
| 107060 | 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 27 73 2e 22 0a 20 20 28 63 6f 6c 6c 65 63 74 2d | mpiler-condition's."...(collect- |
| 107080 | 6e 6f 74 65 73 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 61 70 70 6c 79 20 | notes....(lambda.()......(apply. |
| 1070a0 | 23 27 6f 70 65 72 61 74 65 2d 6f 6e 2d 73 79 73 74 65 6d 20 73 79 73 74 65 6d 2d 6e 61 6d 65 20 | #'operate-on-system.system-name. |
| 1070c0 | 6f 70 65 72 61 74 69 6f 6e 20 6b 65 79 77 6f 72 64 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f | operation.keywords))))..(defun.o |
| 1070e0 | 70 65 72 61 74 65 2d 6f 6e 2d 73 79 73 74 65 6d 20 28 73 79 73 74 65 6d 2d 6e 61 6d 65 20 6f 70 | perate-on-system.(system-name.op |
| 107100 | 65 72 61 74 69 6f 6e 2d 6e 61 6d 65 20 26 72 65 73 74 20 6b 65 79 77 6f 72 64 2d 61 72 67 73 29 | eration-name.&rest.keyword-args) |
| 107120 | 0a 20 20 22 50 65 72 66 6f 72 6d 20 4f 50 45 52 41 54 49 4f 4e 2d 4e 41 4d 45 20 6f 6e 20 53 59 | ..."Perform.OPERATION-NAME.on.SY |
| 107140 | 53 54 45 4d 2d 4e 41 4d 45 20 75 73 69 6e 67 20 41 53 44 46 2e 0a 54 68 65 20 4b 45 59 57 4f 52 | STEM-NAME.using.ASDF..The.KEYWOR |
| 107160 | 44 2d 41 52 47 53 20 61 72 65 20 70 61 73 73 65 64 20 6f 6e 20 74 6f 20 74 68 65 20 6f 70 65 72 | D-ARGS.are.passed.on.to.the.oper |
| 107180 | 61 74 69 6f 6e 2e 0a 45 78 61 6d 70 6c 65 3a 0a 5c 28 6f 70 65 72 61 74 65 2d 6f 6e 2d 73 79 73 | ation..Example:.\(operate-on-sys |
| 1071a0 | 74 65 6d 20 5c 22 63 6c 2d 70 70 63 72 65 5c 22 20 27 63 6f 6d 70 69 6c 65 2d 6f 70 20 3a 66 6f | tem.\"cl-ppcre\".'compile-op.:fo |
| 1071c0 | 72 63 65 20 74 29 22 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 28 77 | rce.t)"...(handler-case.......(w |
| 1071e0 | 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 20 20 20 | ith-compilation-hooks.()........ |
| 107200 | 20 28 61 70 70 6c 79 20 23 27 61 73 64 66 3a 6f 70 65 72 61 74 65 20 28 61 73 64 66 2d 6f 70 65 | .(apply.#'asdf:operate.(asdf-ope |
| 107220 | 72 61 74 69 6f 6e 20 6f 70 65 72 61 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 | ration.operation-name).......... |
| 107240 | 20 20 20 20 20 20 73 79 73 74 65 6d 2d 6e 61 6d 65 20 6b 65 79 77 6f 72 64 2d 61 72 67 73 29 0a | ......system-name.keyword-args). |
| 107260 | 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 28 28 6f 72 20 61 73 64 66 3a 63 6f 6d 70 69 6c 65 | ........t).....((or.asdf:compile |
| 107280 | 2d 65 72 72 6f 72 20 23 2b 61 73 64 66 33 20 61 73 64 66 2f 6c 69 73 70 2d 62 75 69 6c 64 3a 63 | -error.#+asdf3.asdf/lisp-build:c |
| 1072a0 | 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 65 72 72 6f 72 29 0a 20 20 20 20 20 20 28 29 20 6e 69 6c 29 | ompile-file-error).......().nil) |
| 1072c0 | 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 69 71 75 65 2d 73 74 72 69 6e 67 2d 6c 69 73 74 20 28 26 | ))..(defun.unique-string-list.(& |
| 1072e0 | 72 65 73 74 20 6c 69 73 74 73 29 0a 20 20 28 73 6f 72 74 20 28 64 65 6c 65 74 65 2d 64 75 70 6c | rest.lists)...(sort.(delete-dupl |
| 107300 | 69 63 61 74 65 73 20 28 61 70 70 6c 79 20 23 27 61 70 70 65 6e 64 20 6c 69 73 74 73 29 20 3a 74 | icates.(apply.#'append.lists).:t |
| 107320 | 65 73 74 20 23 27 73 74 72 69 6e 67 3d 29 20 23 27 73 74 72 69 6e 67 3c 29 29 0a 0a 28 64 65 66 | est.#'string=).#'string<))..(def |
| 107340 | 73 6c 69 6d 65 66 75 6e 20 6c 69 73 74 2d 61 6c 6c 2d 73 79 73 74 65 6d 73 2d 69 6e 2d 63 65 6e | slimefun.list-all-systems-in-cen |
| 107360 | 74 72 61 6c 2d 72 65 67 69 73 74 72 79 20 28 29 0a 20 20 22 52 65 74 75 72 6e 73 20 61 20 6c 69 | tral-registry.()..."Returns.a.li |
| 107380 | 73 74 20 6f 66 20 61 6c 6c 20 73 79 73 74 65 6d 73 20 69 6e 20 41 53 44 46 27 73 20 63 65 6e 74 | st.of.all.systems.in.ASDF's.cent |
| 1073a0 | 72 61 6c 20 72 65 67 69 73 74 72 79 0a 41 4e 44 20 69 6e 20 69 74 73 20 73 6f 75 72 63 65 2d 72 | ral.registry.AND.in.its.source-r |
| 1073c0 | 65 67 69 73 74 72 79 2e 20 28 6c 65 67 61 63 79 20 6e 61 6d 65 29 22 0a 20 20 28 75 6e 69 71 75 | egistry..(legacy.name)"...(uniqu |
| 1073e0 | 65 2d 73 74 72 69 6e 67 2d 6c 69 73 74 0a 20 20 20 28 77 68 69 6c 65 2d 63 6f 6c 6c 65 63 74 69 | e-string-list....(while-collecti |
| 107400 | 6e 67 20 28 63 29 0a 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 64 69 72 20 69 6e 20 61 73 64 | ng.(c)......(loop.for.dir.in.asd |
| 107420 | 66 3a 2a 63 65 6e 74 72 61 6c 2d 72 65 67 69 73 74 72 79 2a 0a 20 20 20 20 20 20 20 20 20 20 20 | f:*central-registry*............ |
| 107440 | 66 6f 72 20 64 65 66 61 75 6c 74 73 20 3d 20 28 65 76 61 6c 20 64 69 72 29 0a 20 20 20 20 20 20 | for.defaults.=.(eval.dir)....... |
| 107460 | 20 20 20 20 20 77 68 65 6e 20 64 65 66 61 75 6c 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 64 6f | .....when.defaults............do |
| 107480 | 20 28 63 6f 6c 6c 65 63 74 2d 61 73 64 73 2d 69 6e 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 | .(collect-asds-in-directory..... |
| 1074a0 | 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...........defaults............. |
| 1074c0 | 20 20 20 28 6c 61 6d 62 64 61 20 28 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ...(lambda.(pathname)........... |
| 1074e0 | 20 20 20 20 20 20 20 28 63 20 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 70 61 74 68 6e 61 6d | .......(c.(pathname-name.pathnam |
| 107500 | 65 29 29 29 29 29 0a 20 20 20 20 20 28 61 73 64 66 3a 65 6e 73 75 72 65 2d 73 6f 75 72 63 65 2d | e)))))......(asdf:ensure-source- |
| 107520 | 72 65 67 69 73 74 72 79 29 0a 20 20 20 20 20 28 69 66 20 28 6f 72 20 23 2b 61 73 64 66 33 20 74 | registry)......(if.(or.#+asdf3.t |
| 107540 | 0a 09 20 20 20 20 20 20 20 20 20 20 20 23 2d 61 73 64 66 33 20 28 61 73 64 66 3a 76 65 72 73 69 | .............#-asdf3.(asdf:versi |
| 107560 | 6f 6e 2d 73 61 74 69 73 66 69 65 73 20 28 61 73 64 66 3a 61 73 64 66 2d 76 65 72 73 69 6f 6e 29 | on-satisfies.(asdf:asdf-version) |
| 107580 | 20 22 32 2e 31 35 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 3a 66 6f 72 20 6b 20 | ."2.15"))..........(loop.:for.k. |
| 1075a0 | 3a 62 65 69 6e 67 20 3a 74 68 65 20 3a 68 61 73 68 2d 6b 65 79 73 20 3a 6f 66 20 61 73 64 66 3a | :being.:the.:hash-keys.:of.asdf: |
| 1075c0 | 3a 2a 73 6f 75 72 63 65 2d 72 65 67 69 73 74 72 79 2a 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 | :*source-registry*.............. |
| 1075e0 | 3a 64 6f 20 28 63 20 6b 29 29 0a 09 20 20 20 20 20 20 20 23 2d 61 73 64 66 33 0a 20 20 20 20 20 | :do.(c.k)).........#-asdf3...... |
| 107600 | 20 20 20 20 28 64 6f 6c 69 73 74 20 28 65 6e 74 72 79 20 28 61 73 64 66 3a 3a 66 6c 61 74 74 65 | ....(dolist.(entry.(asdf::flatte |
| 107620 | 6e 2d 73 6f 75 72 63 65 2d 72 65 67 69 73 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | n-source-registry))............( |
| 107640 | 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 64 69 72 65 63 74 6f 72 79 20 26 6b | destructuring-bind.(directory.&k |
| 107660 | 65 79 20 72 65 63 75 72 73 65 20 65 78 63 6c 75 64 65 29 20 65 6e 74 72 79 0a 20 20 20 20 20 20 | ey.recurse.exclude).entry....... |
| 107680 | 20 20 20 20 20 20 20 28 72 65 67 69 73 74 65 72 2d 61 73 64 2d 64 69 72 65 63 74 6f 72 79 0a 20 | .......(register-asd-directory.. |
| 1076a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 | .............directory.......... |
| 1076c0 | 20 20 20 20 20 3a 72 65 63 75 72 73 65 20 72 65 63 75 72 73 65 20 3a 65 78 63 6c 75 64 65 20 65 | .....:recurse.recurse.:exclude.e |
| 1076e0 | 78 63 6c 75 64 65 20 3a 63 6f 6c 6c 65 63 74 20 23 27 63 29 29 29 29 29 29 29 0a 0a 28 64 65 66 | xclude.:collect.#'c)))))))..(def |
| 107700 | 73 6c 69 6d 65 66 75 6e 20 6c 69 73 74 2d 61 6c 6c 2d 73 79 73 74 65 6d 73 2d 6b 6e 6f 77 6e 2d | slimefun.list-all-systems-known- |
| 107720 | 74 6f 2d 61 73 64 66 20 28 29 0a 20 20 22 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 | to-asdf.()..."Returns.a.list.of. |
| 107740 | 61 6c 6c 20 73 79 73 74 65 6d 73 20 41 53 44 46 20 6b 6e 6f 77 73 20 61 6c 72 65 61 64 79 2e 22 | all.systems.ASDF.knows.already." |
| 107760 | 0a 20 20 28 77 68 69 6c 65 2d 63 6f 6c 6c 65 63 74 69 6e 67 20 28 63 29 0a 20 20 20 20 28 61 73 | ...(while-collecting.(c).....(as |
| 107780 | 64 66 3a 3a 6d 61 70 2d 73 79 73 74 65 6d 73 20 28 6c 61 6d 62 64 61 20 28 73 79 73 74 65 6d 29 | df::map-systems.(lambda.(system) |
| 1077a0 | 20 28 63 20 28 61 73 64 66 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 6e 61 6d 65 20 73 79 73 74 65 6d 29 | .(c.(asdf:component-name.system) |
| 1077c0 | 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6c 69 73 74 2d 61 73 64 66 2d 73 79 | )))))..(defslimefun.list-asdf-sy |
| 1077e0 | 73 74 65 6d 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 68 65 20 73 79 73 74 65 6d 73 20 | stems.()..."Returns.the.systems. |
| 107800 | 69 6e 20 41 53 44 46 27 73 20 63 65 6e 74 72 61 6c 20 72 65 67 69 73 74 72 79 20 61 6e 64 20 74 | in.ASDF's.central.registry.and.t |
| 107820 | 68 6f 73 65 20 77 68 69 63 68 20 41 53 44 46 0a 61 6c 72 65 61 64 79 20 6b 6e 6f 77 73 2e 22 0a | hose.which.ASDF.already.knows.". |
| 107840 | 20 20 28 75 6e 69 71 75 65 2d 73 74 72 69 6e 67 2d 6c 69 73 74 0a 20 20 20 28 6c 69 73 74 2d 61 | ..(unique-string-list....(list-a |
| 107860 | 6c 6c 2d 73 79 73 74 65 6d 73 2d 6b 6e 6f 77 6e 2d 74 6f 2d 61 73 64 66 29 0a 20 20 20 28 6c 69 | ll-systems-known-to-asdf)....(li |
| 107880 | 73 74 2d 61 6c 6c 2d 73 79 73 74 65 6d 73 2d 69 6e 2d 63 65 6e 74 72 61 6c 2d 72 65 67 69 73 74 | st-all-systems-in-central-regist |
| 1078a0 | 72 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 73 64 66 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 73 6f 75 | ry)))..(defun.asdf-component-sou |
| 1078c0 | 72 63 65 2d 66 69 6c 65 73 20 28 63 6f 6d 70 6f 6e 65 6e 74 29 0a 20 20 28 77 68 69 6c 65 2d 63 | rce-files.(component)...(while-c |
| 1078e0 | 6f 6c 6c 65 63 74 69 6e 67 20 28 63 29 0a 20 20 20 20 28 6c 61 62 65 6c 73 20 28 28 66 20 28 78 | ollecting.(c).....(labels.((f.(x |
| 107900 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 78 0a 20 20 20 | )................(typecase.x.... |
| 107920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 73 6f 75 72 63 65 2d 66 69 6c 65 20 | ..............(asdf:source-file. |
| 107940 | 28 63 20 28 61 73 64 66 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 70 61 74 68 6e 61 6d 65 20 78 29 29 29 | (c.(asdf:component-pathname.x))) |
| 107960 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 6d 6f 64 75 6c 65 20 28 | ..................(asdf:module.( |
| 107980 | 6d 61 70 20 28 29 20 23 27 66 20 28 61 73 64 66 3a 6d 6f 64 75 6c 65 2d 63 6f 6d 70 6f 6e 65 6e | map.().#'f.(asdf:module-componen |
| 1079a0 | 74 73 20 78 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 66 20 63 6f 6d 70 6f 6e 65 6e 74 29 29 29 | ts.x)))))).......(f.component))) |
| 1079c0 | 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 6f 70 65 72 61 74 69 6f 6e 20 28 78 29 0a 20 20 23 | )..(defun.make-operation.(x)...# |
| 1079e0 | 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 6d | +#.(swank/backend:with-symbol.'m |
| 107a00 | 61 6b 65 2d 6f 70 65 72 61 74 69 6f 6e 20 27 61 73 64 66 29 0a 20 20 28 61 73 64 66 3a 6d 61 6b | ake-operation.'asdf)...(asdf:mak |
| 107a20 | 65 2d 6f 70 65 72 61 74 69 6f 6e 20 78 29 0a 20 20 23 2d 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b | e-operation.x)...#-#.(swank/back |
| 107a40 | 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 6d 61 6b 65 2d 6f 70 65 72 61 74 69 6f 6e 20 | end:with-symbol.'make-operation. |
| 107a60 | 27 61 73 64 66 29 0a 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 78 29 29 0a 0a 28 64 65 | 'asdf)...(make-instance.x))..(de |
| 107a80 | 66 75 6e 20 61 73 64 66 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 6f 75 74 70 75 74 2d 66 69 6c 65 73 20 | fun.asdf-component-output-files. |
| 107aa0 | 28 63 6f 6d 70 6f 6e 65 6e 74 29 0a 20 20 28 77 68 69 6c 65 2d 63 6f 6c 6c 65 63 74 69 6e 67 20 | (component)...(while-collecting. |
| 107ac0 | 28 63 29 0a 20 20 20 20 28 6c 61 62 65 6c 73 20 28 28 66 20 28 78 29 0a 20 20 20 20 20 20 20 20 | (c).....(labels.((f.(x)......... |
| 107ae0 | 20 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(typecase.x.............. |
| 107b00 | 20 20 20 20 28 61 73 64 66 3a 73 6f 75 72 63 65 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 | ....(asdf:source-file........... |
| 107b20 | 20 20 20 20 20 20 20 20 28 6d 61 70 20 28 29 20 23 27 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ........(map.().#'c............. |
| 107b40 | 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 6f 75 74 70 75 74 2d 66 69 6c 65 73 20 28 6d | ...........(asdf:output-files.(m |
| 107b60 | 61 6b 65 2d 6f 70 65 72 61 74 69 6f 6e 20 27 61 73 64 66 3a 63 6f 6d 70 69 6c 65 2d 6f 70 29 20 | ake-operation.'asdf:compile-op). |
| 107b80 | 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 6d 6f 64 75 | x)))..................(asdf:modu |
| 107ba0 | 6c 65 20 28 6d 61 70 20 28 29 20 23 27 66 20 28 61 73 64 66 3a 6d 6f 64 75 6c 65 2d 63 6f 6d 70 | le.(map.().#'f.(asdf:module-comp |
| 107bc0 | 6f 6e 65 6e 74 73 20 78 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 66 20 63 6f 6d 70 6f 6e 65 6e | onents.x)))))).......(f.componen |
| 107be0 | 74 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 61 73 64 66 2d 73 79 73 74 65 6d 2d | t))))..(defslimefun.asdf-system- |
| 107c00 | 66 69 6c 65 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 79 73 74 65 6d 20 28 61 | files.(name)...(let*.((system.(a |
| 107c20 | 73 64 66 3a 66 69 6e 64 2d 73 79 73 74 65 6d 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 | sdf:find-system.name)).......... |
| 107c40 | 28 66 69 6c 65 73 20 28 6d 61 70 63 61 72 20 23 27 6e 61 6d 65 73 74 72 69 6e 67 0a 20 20 20 20 | (files.(mapcar.#'namestring..... |
| 107c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 | ....................(cons....... |
| 107c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 73 79 73 74 65 6d 2d | ...................(asdf:system- |
| 107ca0 | 64 65 66 69 6e 69 74 69 6f 6e 2d 70 61 74 68 6e 61 6d 65 20 73 79 73 74 65 6d 29 0a 20 20 20 20 | definition-pathname.system)..... |
| 107cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 2d 63 6f 6d 70 6f | .....................(asdf-compo |
| 107ce0 | 6e 65 6e 74 2d 73 6f 75 72 63 65 2d 66 69 6c 65 73 20 73 79 73 74 65 6d 29 29 29 29 0a 20 20 20 | nent-source-files.system)))).... |
| 107d00 | 20 20 20 20 20 20 28 6d 61 69 6e 2d 66 69 6c 65 20 28 66 69 6e 64 20 6e 61 6d 65 20 66 69 6c 65 | ......(main-file.(find.name.file |
| 107d20 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 | s...........................:tes |
| 107d40 | 74 20 23 27 65 71 75 61 6c 70 20 3a 6b 65 79 20 23 27 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 | t.#'equalp.:key.#'pathname-name. |
| 107d60 | 3a 73 74 61 72 74 20 31 29 29 29 0a 20 20 20 20 28 69 66 20 6d 61 69 6e 2d 66 69 6c 65 0a 20 20 | :start.1))).....(if.main-file... |
| 107d80 | 20 20 20 20 20 20 28 63 6f 6e 73 20 6d 61 69 6e 2d 66 69 6c 65 20 28 72 65 6d 6f 76 65 20 6d 61 | ......(cons.main-file.(remove.ma |
| 107da0 | 69 6e 2d 66 69 6c 65 20 66 69 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | in-file.files................... |
| 107dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 20 3a 63 6f 75 | ..............:test.#'equal.:cou |
| 107de0 | 6e 74 20 31 29 29 0a 20 20 20 20 20 20 20 20 66 69 6c 65 73 29 29 29 0a 0a 28 64 65 66 73 6c 69 | nt.1)).........files)))..(defsli |
| 107e00 | 6d 65 66 75 6e 20 61 73 64 66 2d 73 79 73 74 65 6d 2d 6c 6f 61 64 65 64 2d 70 20 28 6e 61 6d 65 | mefun.asdf-system-loaded-p.(name |
| 107e20 | 29 0a 20 20 28 63 6f 6d 70 6f 6e 65 6e 74 2d 6c 6f 61 64 65 64 2d 70 20 6e 61 6d 65 29 29 0a 0a | )...(component-loaded-p.name)).. |
| 107e40 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 61 73 64 66 2d 73 79 73 74 65 6d 2d 64 69 72 65 63 74 6f | (defslimefun.asdf-system-directo |
| 107e60 | 72 79 20 28 6e 61 6d 65 29 0a 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 61 6e 73 6c 61 | ry.(name)...(namestring.(transla |
| 107e80 | 74 65 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 20 28 61 73 64 66 3a 73 79 73 74 65 6d | te-logical-pathname.(asdf:system |
| 107ea0 | 2d 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 | -source-directory.name))))..(def |
| 107ec0 | 75 6e 20 70 61 74 68 6e 61 6d 65 2d 73 79 73 74 65 6d 20 28 70 61 74 68 6e 61 6d 65 29 0a 20 20 | un.pathname-system.(pathname)... |
| 107ee0 | 28 6c 65 74 20 28 28 63 6f 6d 70 6f 6e 65 6e 74 20 28 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f | (let.((component.(pathname-compo |
| 107f00 | 6e 65 6e 74 20 70 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 63 6f 6d 70 6f | nent.pathname))).....(when.compo |
| 107f20 | 6e 65 6e 74 0a 20 20 20 20 20 20 28 61 73 64 66 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 6e 61 6d 65 20 | nent.......(asdf:component-name. |
| 107f40 | 28 61 73 64 66 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 73 79 73 74 65 6d 20 63 6f 6d 70 6f 6e 65 6e 74 | (asdf:component-system.component |
| 107f60 | 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 61 73 64 66 2d 64 65 74 65 72 6d 69 | )))))..(defslimefun.asdf-determi |
| 107f80 | 6e 65 2d 73 79 73 74 65 6d 20 28 66 69 6c 65 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2d 6e | ne-system.(file.buffer-package-n |
| 107fa0 | 61 6d 65 29 0a 20 20 28 6f 72 0a 20 20 20 28 61 6e 64 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 | ame)...(or....(and.file......... |
| 107fc0 | 28 70 61 74 68 6e 61 6d 65 2d 73 79 73 74 65 6d 20 66 69 6c 65 29 29 0a 20 20 20 28 61 6e 64 20 | (pathname-system.file))....(and. |
| 107fe0 | 66 69 6c 65 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | file.........(progn...........;; |
| 108000 | 20 49 66 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 6c 65 74 27 73 20 72 65 62 75 69 6c 64 20 74 68 65 | .If.not.found,.let's.rebuild.the |
| 108020 | 20 74 61 62 6c 65 20 66 69 72 73 74 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 63 6f 6d 70 75 74 | .table.first...........(recomput |
| 108040 | 65 2d 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 74 61 62 6c 65 29 0a 20 20 20 20 | e-pathname-component-table)..... |
| 108060 | 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 73 79 73 74 65 6d 20 66 69 6c 65 29 29 29 0a 20 | ......(pathname-system.file))).. |
| 108080 | 20 20 3b 3b 20 49 66 20 77 65 20 63 6f 75 6c 64 6e 27 74 20 66 69 6e 64 20 61 6e 20 61 6c 72 65 | ..;;.If.we.couldn't.find.an.alre |
| 1080a0 | 61 64 79 20 64 65 66 69 6e 65 64 20 73 79 73 74 65 6d 2c 0a 20 20 20 3b 3b 20 74 72 79 20 66 69 | ady.defined.system,....;;.try.fi |
| 1080c0 | 6e 64 69 6e 67 20 61 20 73 79 73 74 65 6d 20 74 68 61 74 27 73 20 6e 61 6d 65 64 20 6c 69 6b 65 | nding.a.system.that's.named.like |
| 1080e0 | 20 42 55 46 46 45 52 2d 50 41 43 4b 41 47 45 2d 4e 41 4d 45 2e 0a 20 20 20 28 6c 6f 6f 70 20 77 | .BUFFER-PACKAGE-NAME.....(loop.w |
| 108100 | 69 74 68 20 70 61 63 6b 61 67 65 20 3d 20 28 67 75 65 73 73 2d 62 75 66 66 65 72 2d 70 61 63 6b | ith.package.=.(guess-buffer-pack |
| 108120 | 61 67 65 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | age.buffer-package-name)........ |
| 108140 | 20 20 66 6f 72 20 6e 61 6d 65 20 69 6e 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 73 20 70 61 63 | ..for.name.in.(package-names.pac |
| 108160 | 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 73 79 73 74 65 6d 20 3d 20 28 61 73 64 | kage)..........for.system.=.(asd |
| 108180 | 66 3a 66 69 6e 64 2d 73 79 73 74 65 6d 20 28 61 73 64 66 3a 3a 63 6f 65 72 63 65 2d 6e 61 6d 65 | f:find-system.(asdf::coerce-name |
| 1081a0 | 20 6e 61 6d 65 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 73 | .name).nil)..........when.(and.s |
| 1081c0 | 79 73 74 65 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 6e 6f | ystem....................(or.(no |
| 1081e0 | 74 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | t.file)........................( |
| 108200 | 70 61 74 68 6e 61 6d 65 2d 73 79 73 74 65 6d 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 | pathname-system.file)))......... |
| 108220 | 20 72 65 74 75 72 6e 20 28 61 73 64 66 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 6e 61 6d 65 20 73 79 73 | .return.(asdf:component-name.sys |
| 108240 | 74 65 6d 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 65 6c 65 74 65 2d 73 79 73 | tem))))..(defslimefun.delete-sys |
| 108260 | 74 65 6d 2d 66 61 73 6c 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 72 65 6d 6f 76 65 | tem-fasls.(name)...(let.((remove |
| 108280 | 64 2d 63 6f 75 6e 74 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 69 6c 65 20 | d-count..........(loop.for.file. |
| 1082a0 | 69 6e 20 28 61 73 64 66 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 6f 75 74 70 75 74 2d 66 69 6c 65 73 0a | in.(asdf-component-output-files. |
| 1082c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 | ............................(asd |
| 1082e0 | 66 3a 66 69 6e 64 2d 73 79 73 74 65 6d 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | f:find-system.name))............ |
| 108300 | 20 20 20 20 77 68 65 6e 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 66 69 6c 65 29 0a 20 20 20 20 20 | ....when.(probe-file.file)...... |
| 108320 | 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 74 20 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........count.it.............. |
| 108340 | 20 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 64 65 6c 65 74 65 2d | ..and................do.(delete- |
| 108360 | 66 69 6c 65 20 66 69 6c 65 29 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e | file.file)))).....(format.nil."~ |
| 108380 | 64 20 66 69 6c 65 7e 3a 70 20 7e 3a 2a 7e 5b 77 65 72 65 7e 3b 77 61 73 7e 3a 3b 77 65 72 65 7e | d.file~:p.~:*~[were~;was~:;were~ |
| 1083a0 | 5d 20 72 65 6d 6f 76 65 64 22 20 72 65 6d 6f 76 65 64 2d 63 6f 75 6e 74 29 29 29 0a 0a 28 64 65 | ].removed".removed-count)))..(de |
| 1083c0 | 66 76 61 72 20 2a 72 65 63 6f 6d 70 69 6c 65 2d 73 79 73 74 65 6d 2a 20 6e 69 6c 29 0a 0a 28 64 | fvar.*recompile-system*.nil)..(d |
| 1083e0 | 65 66 6d 65 74 68 6f 64 20 61 73 64 66 3a 6f 70 65 72 61 74 69 6f 6e 2d 64 6f 6e 65 2d 70 20 3a | efmethod.asdf:operation-done-p.: |
| 108400 | 61 72 6f 75 6e 64 0a 20 20 20 20 28 28 6f 70 65 72 61 74 69 6f 6e 20 61 73 64 66 3a 63 6f 6d 70 | around.....((operation.asdf:comp |
| 108420 | 69 6c 65 2d 6f 70 29 0a 20 20 20 20 20 63 6f 6d 70 6f 6e 65 6e 74 29 0a 20 20 20 20 28 75 6e 6c | ile-op)......component).....(unl |
| 108440 | 65 73 73 20 28 65 71 6c 20 2a 72 65 63 6f 6d 70 69 6c 65 2d 73 79 73 74 65 6d 2a 0a 20 20 20 20 | ess.(eql.*recompile-system*..... |
| 108460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 73 79 73 | .............(asdf:component-sys |
| 108480 | 74 65 6d 20 63 6f 6d 70 6f 6e 65 6e 74 29 29 0a 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 | tem.component)).......(call-next |
| 1084a0 | 2d 6d 65 74 68 6f 64 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 72 65 6c 6f 61 64 2d | -method)))..(defslimefun.reload- |
| 1084c0 | 73 79 73 74 65 6d 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 2a 72 65 63 6f 6d 70 69 6c | system.(name)...(let.((*recompil |
| 1084e0 | 65 2d 73 79 73 74 65 6d 2a 20 28 61 73 64 66 3a 66 69 6e 64 2d 73 79 73 74 65 6d 20 6e 61 6d 65 | e-system*.(asdf:find-system.name |
| 108500 | 29 29 29 0a 20 20 20 20 28 6f 70 65 72 61 74 65 2d 6f 6e 2d 73 79 73 74 65 6d 2d 66 6f 72 2d 65 | ))).....(operate-on-system-for-e |
| 108520 | 6d 61 63 73 20 6e 61 6d 65 20 27 61 73 64 66 3a 6c 6f 61 64 2d 6f 70 29 29 29 0a 0a 3b 3b 3b 20 | macs.name.'asdf:load-op)))..;;;. |
| 108540 | 48 6f 6f 6b 20 66 6f 72 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 66 6f 72 2d 65 6d 61 63 73 0a | Hook.for.compile-file-for-emacs. |
| 108560 | 0a 28 64 65 66 75 6e 20 74 72 79 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 77 69 74 68 2d 61 73 | .(defun.try-compile-file-with-as |
| 108580 | 64 66 20 28 70 61 74 68 6e 61 6d 65 20 6c 6f 61 64 2d 70 20 26 72 65 73 74 20 6f 70 74 69 6f 6e | df.(pathname.load-p.&rest.option |
| 1085a0 | 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6f 70 74 69 6f 6e 73 29 29 0a | s)...(declare.(ignore.options)). |
| 1085c0 | 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 6f 6e 65 6e 74 20 28 70 61 74 68 6e 61 6d 65 2d 63 6f 6d | ..(let.((component.(pathname-com |
| 1085e0 | 70 6f 6e 65 6e 74 20 70 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 63 6f 6d | ponent.pathname))).....(when.com |
| 108600 | 70 6f 6e 65 6e 74 0a 20 20 20 20 20 20 3b 3b 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 43 6f 6d 70 | ponent.......;;(format.t."~&Comp |
| 108620 | 69 6c 69 6e 67 20 41 53 44 46 20 63 6f 6d 70 6f 6e 65 6e 74 20 7e 53 7e 25 22 20 63 6f 6d 70 6f | iling.ASDF.component.~S~%".compo |
| 108640 | 6e 65 6e 74 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 70 20 28 6d 61 6b 65 2d 6f 70 65 72 | nent).......(let.((op.(make-oper |
| 108660 | 61 74 69 6f 6e 20 27 61 73 64 66 3a 63 6f 6d 70 69 6c 65 2d 6f 70 29 29 29 0a 20 20 20 20 20 20 | ation.'asdf:compile-op)))....... |
| 108680 | 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 | ..(with-compilation-hooks.().... |
| 1086a0 | 20 20 20 20 20 20 20 28 61 73 64 66 3a 70 65 72 66 6f 72 6d 20 6f 70 20 63 6f 6d 70 6f 6e 65 6e | .......(asdf:perform.op.componen |
| 1086c0 | 74 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6c 6f 61 64 2d 70 0a 20 20 20 20 20 20 20 | t)).........(when.load-p........ |
| 1086e0 | 20 20 20 28 61 73 64 66 3a 70 65 72 66 6f 72 6d 20 28 6d 61 6b 65 2d 6f 70 65 72 61 74 69 6f 6e | ...(asdf:perform.(make-operation |
| 108700 | 20 27 61 73 64 66 3a 6c 6f 61 64 2d 6f 70 29 20 63 6f 6d 70 6f 6e 65 6e 74 29 29 0a 20 20 20 20 | .'asdf:load-op).component))..... |
| 108720 | 20 20 20 20 28 76 61 6c 75 65 73 20 74 20 74 20 6e 69 6c 20 28 66 69 72 73 74 20 28 61 73 64 66 | ....(values.t.t.nil.(first.(asdf |
| 108740 | 3a 6f 75 74 70 75 74 2d 66 69 6c 65 73 20 6f 70 20 63 6f 6d 70 6f 6e 65 6e 74 29 29 29 29 29 29 | :output-files.op.component)))))) |
| 108760 | 29 0a 0a 28 64 65 66 75 6e 20 74 72 79 2d 63 6f 6d 70 69 6c 65 2d 61 73 64 2d 66 69 6c 65 20 28 | )..(defun.try-compile-asd-file.( |
| 108780 | 70 61 74 68 6e 61 6d 65 20 6c 6f 61 64 2d 70 20 26 72 65 73 74 20 6f 70 74 69 6f 6e 73 29 0a 20 | pathname.load-p.&rest.options).. |
| 1087a0 | 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6c 6f 61 64 2d 70 20 6f 70 74 69 6f 6e 73 | .(declare.(ignore.load-p.options |
| 1087c0 | 29 29 0a 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 70 20 28 70 61 74 68 6e 61 6d 65 2d 74 79 70 | ))...(when.(equalp.(pathname-typ |
| 1087e0 | 65 20 70 61 74 68 6e 61 6d 65 29 20 22 61 73 64 22 29 0a 20 20 20 20 28 6c 6f 61 64 2d 61 73 64 | e.pathname)."asd").....(load-asd |
| 108800 | 20 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 74 20 74 20 6e 69 6c 20 70 | .pathname).....(values.t.t.nil.p |
| 108820 | 61 74 68 6e 61 6d 65 29 29 29 0a 0a 28 70 75 73 68 6e 65 77 20 27 74 72 79 2d 63 6f 6d 70 69 6c | athname)))..(pushnew.'try-compil |
| 108840 | 65 2d 61 73 64 2d 66 69 6c 65 20 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 66 6f 72 2d 65 6d 61 | e-asd-file.*compile-file-for-ema |
| 108860 | 63 73 2d 68 6f 6f 6b 2a 29 0a 0a 3b 3b 3b 20 28 70 75 73 68 6e 65 77 20 27 74 72 79 2d 63 6f 6d | cs-hook*)..;;;.(pushnew.'try-com |
| 108880 | 70 69 6c 65 2d 66 69 6c 65 2d 77 69 74 68 2d 61 73 64 66 20 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c | pile-file-with-asdf.*compile-fil |
| 1088a0 | 65 2d 66 6f 72 2d 65 6d 61 63 73 2d 68 6f 6f 6b 2a 29 0a 0a 28 70 72 6f 76 69 64 65 20 3a 73 77 | e-for-emacs-hook*)..(provide.:sw |
| 1088c0 | 61 6e 6b 2d 61 73 64 66 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ank-asdf)....................... |
| 1088e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1089a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1089c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1089e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 | slime-2.31/contrib/slime-clipboa |
| 108a20 | 72 64 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | rd.el........................... |
| 108a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 108a80 | 30 30 31 33 36 30 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 32 34 31 00 20 30 00 00 00 | 0013602.00000000000.016241..0... |
| 108aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 108b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 108b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108c00 | 3b 3b 3b 3b 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a | ;;;;.-*-.lexical-binding:.t.-*-. |
| 108c20 | 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d | .(require.'slime).(require.'slim |
| 108c40 | 65 2d 72 65 70 6c 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 69 | e-repl).(require.'cl-lib)..(defi |
| 108c60 | 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 | ne-slime-contrib.slime-clipboard |
| 108c80 | 0a 20 20 22 54 68 69 73 20 61 64 64 20 61 20 66 65 77 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 70 | ..."This.add.a.few.commands.to.p |
| 108ca0 | 75 74 20 6f 62 6a 65 63 74 73 20 69 6e 74 6f 20 61 20 63 6c 69 70 62 6f 61 72 64 20 61 6e 64 20 | ut.objects.into.a.clipboard.and. |
| 108cc0 | 74 6f 0a 69 6e 73 65 72 74 20 74 65 78 74 75 61 6c 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 | to.insert.textual.references.to. |
| 108ce0 | 74 68 6f 73 65 20 6f 62 6a 65 63 74 73 2e 0a 0a 54 68 65 20 63 6c 69 70 62 6f 61 72 64 20 63 6f | those.objects...The.clipboard.co |
| 108d00 | 6d 6d 61 6e 64 20 70 72 65 66 69 78 20 69 73 20 43 2d 63 20 40 2e 0a 0a 20 43 2d 63 20 40 20 2b | mmand.prefix.is.C-c.@....C-c.@.+ |
| 108d20 | 20 20 20 61 64 64 73 20 61 6e 20 6f 62 6a 65 63 74 20 74 6f 20 74 68 65 20 63 6c 69 70 62 6f 61 | ...adds.an.object.to.the.clipboa |
| 108d40 | 72 64 0a 20 43 2d 63 20 40 20 40 20 20 20 69 6e 73 65 72 74 73 20 61 20 72 65 66 65 72 65 6e 63 | rd..C-c.@.@...inserts.a.referenc |
| 108d60 | 65 20 74 6f 20 61 6e 20 6f 62 6a 65 63 74 20 69 6e 20 74 68 65 20 63 6c 69 70 62 6f 61 72 64 0a | e.to.an.object.in.the.clipboard. |
| 108d80 | 20 43 2d 63 20 40 20 3f 20 20 20 64 69 73 70 6c 61 79 73 20 74 68 65 20 63 6c 69 70 62 6f 61 72 | .C-c.@.?...displays.the.clipboar |
| 108da0 | 64 0a 0a 54 68 69 73 20 70 61 63 6b 61 67 65 20 61 6c 73 6f 20 61 6c 73 6f 20 62 69 6e 64 73 20 | d..This.package.also.also.binds. |
| 108dc0 | 74 68 65 20 2b 20 6b 65 79 20 69 6e 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 61 6e 64 0a 64 | the.+.key.in.the.inspector.and.d |
| 108de0 | 65 62 75 67 67 65 72 20 74 6f 20 61 64 64 20 74 68 65 20 6f 62 6a 65 63 74 20 61 74 20 70 6f 69 | ebugger.to.add.the.object.at.poi |
| 108e00 | 6e 74 20 74 6f 20 74 68 65 20 63 6c 69 70 62 6f 61 72 64 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 | nt.to.the.clipboard."...(:author |
| 108e20 | 73 20 22 48 65 6c 6d 75 74 20 45 6c 6c 65 72 20 20 3c 68 65 6c 6c 65 72 40 63 6f 6d 6d 6f 6e 2d | s."Helmut.Eller..<heller@common- |
| 108e40 | 6c 69 73 70 2e 6e 65 74 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 | lisp.net>")...(:license."GPL").. |
| 108e60 | 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d 63 6c 69 70 | .(:swank-dependencies.swank-clip |
| 108e80 | 62 6f 61 72 64 29 29 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 73 6c | board))..(define-derived-mode.sl |
| 108ea0 | 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 6d 6f 64 65 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d | ime-clipboard-mode.fundamental-m |
| 108ec0 | 6f 64 65 0a 20 20 22 53 6c 69 6d 65 2d 43 6c 69 70 62 6f 61 72 64 22 0a 20 20 22 53 4c 49 4d 45 | ode..."Slime-Clipboard"..."SLIME |
| 108ee0 | 20 43 6c 69 70 62 6f 61 64 20 4d 6f 64 65 2e 0a 0a 5c 5c 7b 73 6c 69 6d 65 2d 63 6c 69 70 62 6f | .Clipboad.Mode...\\{slime-clipbo |
| 108f00 | 61 72 64 2d 6d 6f 64 65 2d 6d 61 70 7d 22 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b | ard-mode-map}")..(slime-define-k |
| 108f20 | 65 79 73 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 | eys.slime-clipboard-mode-map...( |
| 108f40 | 22 67 22 20 27 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 72 65 64 69 73 70 6c 61 79 29 0a | "g".'slime-clipboard-redisplay). |
| 108f60 | 20 20 28 28 6b 62 64 20 22 43 2d 6b 22 29 20 27 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d | ..((kbd."C-k").'slime-clipboard- |
| 108f80 | 64 65 6c 65 74 65 2d 65 6e 74 72 79 29 0a 20 20 28 22 69 22 20 27 73 6c 69 6d 65 2d 63 6c 69 70 | delete-entry)...("i".'slime-clip |
| 108fa0 | 62 6f 61 72 64 2d 69 6e 73 70 65 63 74 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 | board-inspect))..(defvar.slime-c |
| 108fc0 | 6c 69 70 62 6f 61 72 64 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 | lipboard-map.(make-sparse-keymap |
| 108fe0 | 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 69 6d 65 2d 63 6c 69 | ))..(slime-define-keys.slime-cli |
| 109000 | 70 62 6f 61 72 64 2d 6d 61 70 0a 20 20 28 22 3f 22 20 27 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 | pboard-map...("?".'slime-clipboa |
| 109020 | 72 64 2d 64 69 73 70 6c 61 79 29 0a 20 20 28 22 2b 22 20 27 73 6c 69 6d 65 2d 63 6c 69 70 62 6f | rd-display)...("+".'slime-clipbo |
| 109040 | 61 72 64 2d 61 64 64 29 0a 20 20 28 22 40 22 20 27 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 | ard-add)...("@".'slime-clipboard |
| 109060 | 2d 72 65 66 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d | -ref))..(define-key.slime-mode-m |
| 109080 | 61 70 20 28 6b 62 64 20 22 43 2d 63 20 40 22 29 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 | ap.(kbd."C-c.@").slime-clipboard |
| 1090a0 | 2d 6d 61 70 29 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 | -map).(define-key.slime-repl-mod |
| 1090c0 | 65 2d 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 40 22 29 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f | e-map.(kbd."C-c.@").slime-clipbo |
| 1090e0 | 61 72 64 2d 6d 61 70 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 69 | ard-map)..(slime-define-keys.sli |
| 109100 | 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 22 2b 22 20 27 73 6c | me-inspector-mode-map...("+".'sl |
| 109120 | 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 61 64 64 2d 66 72 6f 6d 2d 69 6e 73 70 65 63 74 6f 72 | ime-clipboard-add-from-inspector |
| 109140 | 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 64 62 2d 6d 6f 64 65 | ))..(slime-define-keys.sldb-mode |
| 109160 | 2d 6d 61 70 0a 20 20 28 22 2b 22 20 27 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 61 64 64 | -map...("+".'slime-clipboard-add |
| 109180 | 2d 66 72 6f 6d 2d 73 6c 64 62 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 | -from-sldb))..(defun.slime-clipb |
| 1091a0 | 6f 61 72 64 2d 61 64 64 20 28 65 78 70 20 70 61 63 6b 61 67 65 29 0a 20 20 22 41 64 64 20 61 6e | oard-add.(exp.package)..."Add.an |
| 1091c0 | 20 6f 62 6a 65 63 74 20 74 6f 20 74 68 65 20 63 6c 69 70 62 6f 61 72 64 2e 22 0a 20 20 28 69 6e | .object.to.the.clipboard."...(in |
| 1091e0 | 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d | teractive.(list.(slime-read-from |
| 109200 | 2d 6d 69 6e 69 62 75 66 66 65 72 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -minibuffer..................... |
| 109220 | 20 20 20 22 41 64 64 20 74 6f 20 63 6c 69 70 62 6f 61 72 64 20 28 65 76 61 6c 75 61 74 65 64 29 | ..."Add.to.clipboard.(evaluated) |
| 109240 | 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | :.".......................(slime |
| 109260 | 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 09 09 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 | -sexp-at-point))........(slime-c |
| 109280 | 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 63 6c 69 70 62 | urrent-package)))...(slime-clipb |
| 1092a0 | 6f 61 72 64 2d 61 64 64 2d 69 6e 74 65 72 6e 61 6c 20 60 28 3a 73 74 72 69 6e 67 20 2c 65 78 70 | oard-add-internal.`(:string.,exp |
| 1092c0 | 20 2c 70 61 63 6b 61 67 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 | .,package)))..(defun.slime-clipb |
| 1092e0 | 6f 61 72 64 2d 61 64 64 2d 69 6e 74 65 72 6e 61 6c 20 28 64 61 74 75 6d 29 0a 20 20 28 73 6c 69 | oard-add-internal.(datum)...(sli |
| 109300 | 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 3a | me-eval-async.`(swank-clipboard: |
| 109320 | 61 64 64 20 27 2c 64 61 74 75 6d 29 20 0a 09 09 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 65 73 | add.',datum)........(lambda.(res |
| 109340 | 75 6c 74 29 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 72 65 73 75 6c 74 29 29 29 29 0a 0a 28 | ult).(message."%s".result))))..( |
| 109360 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 64 69 73 70 6c 61 79 20 28 29 | defun.slime-clipboard-display.() |
| 109380 | 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 74 68 65 20 63 | ..."Display.the.content.of.the.c |
| 1093a0 | 6c 69 70 62 6f 61 72 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c | lipboard."...(interactive)...(sl |
| 1093c0 | 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 | ime-eval-async.`(swank-clipboard |
| 1093e0 | 3a 65 6e 74 72 69 65 73 29 20 0a 09 09 20 20 20 20 23 27 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 | :entries)........#'slime-clipboa |
| 109400 | 72 64 2d 64 69 73 70 6c 61 79 2d 65 6e 74 72 69 65 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | rd-display-entries))..(defun.sli |
| 109420 | 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 64 69 73 70 6c 61 79 2d 65 6e 74 72 69 65 73 20 28 65 6e | me-clipboard-display-entries.(en |
| 109440 | 74 72 69 65 73 29 0a 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 | tries)...(slime-with-popup-buffe |
| 109460 | 72 20 28 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 63 6c 69 70 62 6f 61 72 64 | r.((slime-buffer-name.:clipboard |
| 109480 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d | ).............................:m |
| 1094a0 | 6f 64 65 20 27 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 6d 6f 64 65 29 0a 20 20 20 20 28 | ode.'slime-clipboard-mode).....( |
| 1094c0 | 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 69 6e 73 65 72 74 2d 65 6e 74 72 69 65 73 20 65 | slime-clipboard-insert-entries.e |
| 1094e0 | 6e 74 72 69 65 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 | ntries)))..(defun.slime-clipboar |
| 109500 | 64 2d 69 6e 73 65 72 74 2d 65 6e 74 72 69 65 73 20 28 65 6e 74 72 69 65 73 29 0a 20 20 28 6c 65 | d-insert-entries.(entries)...(le |
| 109520 | 74 20 28 28 66 73 74 72 69 6e 67 20 22 25 32 73 20 25 33 73 20 25 73 5c 6e 22 29 29 0a 20 20 20 | t.((fstring."%2s.%3s.%s\n")).... |
| 109540 | 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 66 73 74 72 69 6e 67 20 22 4e 72 22 20 22 49 | .(insert.(format.fstring."Nr"."I |
| 109560 | 64 22 20 22 56 61 6c 75 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 | d"."Value").............(format. |
| 109580 | 66 73 74 72 69 6e 67 20 22 2d 2d 22 20 22 2d 2d 22 20 22 2d 2d 2d 2d 2d 22 20 29 29 0a 20 20 20 | fstring."--"."--"."-----".)).... |
| 1095a0 | 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 | .(save-excursion.......(cl-loop. |
| 1095c0 | 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 66 6f 72 20 28 72 65 66 20 2e 20 76 61 6c 75 65 29 20 69 | for.i.from.0.for.(ref...value).i |
| 1095e0 | 6e 20 65 6e 74 72 69 65 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | n.entries.do................(sli |
| 109600 | 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 64 20 60 28 73 6c 69 6d 65 2d 63 6c | me-insert-propertized.`(slime-cl |
| 109620 | 69 70 62 6f 61 72 64 2d 65 6e 74 72 79 20 2c 69 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ipboard-entry.,i................ |
| 109640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d | ............................slim |
| 109660 | 65 2d 63 6c 69 70 62 6f 61 72 64 2d 72 65 66 20 2c 72 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 | e-clipboard-ref.,ref)........... |
| 109680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1096a0 | 66 6f 72 6d 61 74 20 66 73 74 72 69 6e 67 20 69 20 72 65 66 20 76 61 6c 75 65 29 29 29 29 29 29 | format.fstring.i.ref.value)))))) |
| 1096c0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 72 65 64 69 73 70 6c | ..(defun.slime-clipboard-redispl |
| 1096e0 | 61 79 20 28 29 0a 20 20 22 55 70 64 61 74 65 20 74 68 65 20 63 6c 69 70 62 6f 61 72 64 20 62 75 | ay.()..."Update.the.clipboard.bu |
| 109700 | 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 | ffer."...(interactive)...(let.(( |
| 109720 | 73 61 76 65 64 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d | saved.(point))).....(slime-eval- |
| 109740 | 61 73 79 6e 63 0a 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 3a | async.........`(swank-clipboard: |
| 109760 | 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 69 65 73 29 | entries).......(lambda.(entries) |
| 109780 | 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c | .........(let.((inhibit-read-onl |
| 1097a0 | 79 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 | y.t))...........(erase-buffer).. |
| 1097c0 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 69 6e 73 65 72 74 | .........(slime-clipboard-insert |
| 1097e0 | 2d 65 6e 74 72 69 65 73 20 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 | -entries.entries)...........(whe |
| 109800 | 6e 20 28 3c 20 73 61 76 65 64 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 | n.(<.saved.(point-max))......... |
| 109820 | 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 61 76 65 64 29 29 29 29 29 29 29 0a 0a 28 64 65 | ....(goto-char.saved)))))))..(de |
| 109840 | 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 65 6e 74 72 79 2d 61 74 2d 70 6f 69 | fun.slime-clipboard-entry-at-poi |
| 109860 | 6e 74 20 28 29 0a 20 20 28 6f 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 | nt.()...(or.(get-text-property.( |
| 109880 | 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 65 6e 74 72 79 29 0a 20 | point).'slime-clipboard-entry).. |
| 1098a0 | 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 63 6c 69 70 62 6f 61 72 64 20 65 6e 74 72 79 20 | .....(error."No.clipboard.entry. |
| 1098c0 | 61 74 20 70 6f 69 6e 74 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 | at.point")))..(defun.slime-clipb |
| 1098e0 | 6f 61 72 64 2d 72 65 66 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 28 6f 72 20 28 67 65 74 2d | oard-ref-at-point.()...(or.(get- |
| 109900 | 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 63 6c 69 | text-property.(point).'slime-cli |
| 109920 | 70 62 6f 61 72 64 2d 72 65 66 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 63 6c 69 | pboard-ref).......(error."No.cli |
| 109940 | 70 62 6f 61 72 64 20 72 65 66 20 61 74 20 70 6f 69 6e 74 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 | pboard.ref.at.point")))..(defun. |
| 109960 | 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 69 6e 73 70 65 63 74 20 28 26 6f 70 74 69 6f 6e | slime-clipboard-inspect.(&option |
| 109980 | 61 6c 20 65 6e 74 72 79 29 0a 20 20 22 49 6e 73 70 65 63 74 20 74 68 65 20 63 75 72 72 65 6e 74 | al.entry)..."Inspect.the.current |
| 1099a0 | 20 63 6c 69 70 62 6f 61 72 64 20 65 6e 74 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | .clipboard.entry."...(interactiv |
| 1099c0 | 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 72 65 66 2d 61 74 2d | e.(list.(slime-clipboard-ref-at- |
| 1099e0 | 70 6f 69 6e 74 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 20 28 70 72 69 6e 31 | point)))...(slime-inspect.(prin1 |
| 109a00 | 2d 74 6f 2d 73 74 72 69 6e 67 20 60 28 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 3a 3a 63 6c | -to-string.`(swank-clipboard::cl |
| 109a20 | 69 70 62 6f 61 72 64 2d 72 65 66 20 2c 65 6e 74 72 79 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | ipboard-ref.,entry))))..(defun.s |
| 109a40 | 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 64 65 6c 65 74 65 2d 65 6e 74 72 79 20 28 26 6f 70 | lime-clipboard-delete-entry.(&op |
| 109a60 | 74 69 6f 6e 61 6c 20 65 6e 74 72 79 29 0a 20 20 22 44 65 6c 65 74 65 20 74 68 65 20 63 75 72 72 | tional.entry)..."Delete.the.curr |
| 109a80 | 65 6e 74 20 65 6e 74 72 79 20 66 72 6f 6d 20 74 68 65 20 63 6c 69 70 62 6f 61 72 64 2e 22 0a 20 | ent.entry.from.the.clipboard.".. |
| 109aa0 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 63 6c 69 70 62 | .(interactive.(list.(slime-clipb |
| 109ac0 | 6f 61 72 64 2d 65 6e 74 72 79 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d | oard-entry-at-point)))...(slime- |
| 109ae0 | 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 3a 64 65 6c | eval-async.`(swank-clipboard:del |
| 109b00 | 65 74 65 2d 65 6e 74 72 79 20 2c 65 6e 74 72 79 29 0a 09 09 20 20 20 20 28 6c 61 6d 62 64 61 20 | ete-entry.,entry).......(lambda. |
| 109b20 | 28 72 65 73 75 6c 74 29 20 0a 09 09 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 | (result)..........(slime-clipboa |
| 109b40 | 72 64 2d 72 65 64 69 73 70 6c 61 79 29 0a 09 09 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 | rd-redisplay).........(message." |
| 109b60 | 25 73 22 20 72 65 73 75 6c 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 | %s".result))))..(defun.slime-cli |
| 109b80 | 70 62 6f 61 72 64 2d 72 65 66 20 28 29 0a 20 20 22 41 73 6b 20 66 6f 72 20 61 20 63 6c 69 70 62 | pboard-ref.()..."Ask.for.a.clipb |
| 109ba0 | 6f 61 72 64 20 65 6e 74 72 79 20 6e 75 6d 62 65 72 20 61 6e 64 20 69 6e 73 65 72 74 20 61 20 72 | oard.entry.number.and.insert.a.r |
| 109bc0 | 65 66 65 72 65 6e 63 65 20 74 6f 20 69 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | eference.to.it."...(interactive) |
| 109be0 | 0a 20 20 28 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 72 65 61 64 2d 65 6e 74 72 79 2d 6e | ...(slime-clipboard-read-entry-n |
| 109c00 | 75 6d 62 65 72 20 23 27 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 69 6e 73 65 72 74 2d 72 | umber.#'slime-clipboard-insert-r |
| 109c20 | 65 66 29 29 0a 20 20 0a 3b 3b 20 69 6e 73 65 72 74 20 61 20 72 65 66 65 72 65 6e 63 65 20 74 6f | ef))....;;.insert.a.reference.to |
| 109c40 | 20 63 6c 69 70 62 6f 61 72 64 20 65 6e 74 72 79 20 45 4e 54 52 59 20 61 74 20 70 6f 69 6e 74 2e | .clipboard.entry.ENTRY.at.point. |
| 109c60 | 20 20 54 68 65 20 74 65 78 74 0a 3b 3b 20 72 65 63 65 69 76 65 73 20 61 20 73 70 65 63 69 61 6c | ..The.text.;;.receives.a.special |
| 109c80 | 20 27 64 69 73 70 6c 61 79 20 70 72 6f 70 65 72 74 79 20 74 6f 20 6d 61 6b 65 20 69 74 20 6c 6f | .'display.property.to.make.it.lo |
| 109ca0 | 6f 6b 20 6e 69 63 65 72 2e 20 20 57 65 0a 3b 3b 20 72 65 6d 6f 76 65 20 74 68 69 73 20 70 72 6f | ok.nicer...We.;;.remove.this.pro |
| 109cc0 | 70 65 72 74 79 20 69 6e 20 61 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 77 68 65 6e 20 61 20 75 | perty.in.a.modification.when.a.u |
| 109ce0 | 73 65 72 20 74 72 69 65 73 20 74 6f 20 6d 6f 64 69 66 79 0a 3b 3b 20 68 65 20 72 65 61 6c 20 74 | ser.tries.to.modify.;;.he.real.t |
| 109d00 | 65 78 74 2e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 69 6e 73 65 | ext..(defun.slime-clipboard-inse |
| 109d20 | 72 74 2d 72 65 66 20 28 65 6e 74 72 79 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 | rt-ref.(entry)...(cl-destructuri |
| 109d40 | 6e 67 2d 62 69 6e 64 20 28 72 65 66 20 2e 20 73 74 72 69 6e 67 29 20 0a 20 20 20 20 20 20 28 73 | ng-bind.(ref...string)........(s |
| 109d60 | 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 3a 65 6e 74 72 | lime-eval.`(swank-clipboard:entr |
| 109d80 | 79 2d 74 6f 2d 72 65 66 20 2c 65 6e 74 72 79 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 | y-to-ref.,entry)).....(slime-ins |
| 109da0 | 65 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 64 0a 20 20 20 20 20 60 28 64 69 73 70 6c 61 79 20 2c | ert-propertized......`(display., |
| 109dc0 | 28 66 6f 72 6d 61 74 20 22 23 40 25 64 25 73 22 20 72 65 66 20 73 74 72 69 6e 67 29 0a 09 20 20 | (format."#@%d%s".ref.string).... |
| 109de0 | 20 20 20 20 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 73 6c 69 6d 65 2d 63 | .....modification-hooks.(slime-c |
| 109e00 | 6c 69 70 62 6f 61 72 64 2d 72 65 66 2d 6d 6f 64 69 66 69 65 64 29 0a 09 20 20 20 20 20 20 20 72 | lipboard-ref-modified).........r |
| 109e20 | 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 74 29 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 | ear-nonsticky.t)......(format."( |
| 109e40 | 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 3a 3a 63 6c 69 70 62 6f 61 72 64 2d 72 65 66 20 25 | swank-clipboard::clipboard-ref.% |
| 109e60 | 64 29 22 20 72 65 66 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f | d)".ref))))..(defun.slime-clipbo |
| 109e80 | 61 72 64 2d 72 65 66 2d 6d 6f 64 69 66 69 65 64 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 | ard-ref-modified.(start.end)...( |
| 109ea0 | 77 68 65 6e 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 73 74 61 72 74 20 27 64 | when.(get-text-property.start.'d |
| 109ec0 | 69 73 70 6c 61 79 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 6d 6f 64 69 66 | isplay).....(let.((inhibit-modif |
| 109ee0 | 69 63 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 74 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 | ication-hooks.t)).......(save-ex |
| 109f00 | 63 75 72 73 69 6f 6e 0a 09 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 09 28 63 6c 2d | cursion..(goto-char.start)..(cl- |
| 109f20 | 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 64 73 74 61 72 74 20 64 65 6e 64 29 | destructuring-bind.(dstart.dend) |
| 109f40 | 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 79 2d 62 6f 75 6e 64 73 20 27 64 69 73 70 6c 61 79 | .(slime-property-bounds.'display |
| 109f60 | 29 0a 09 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 28 3d 20 73 74 61 72 74 20 64 73 74 61 72 | )....(unless.(and.(=.start.dstar |
| 109f80 | 74 29 20 28 3d 20 65 6e 64 20 64 65 6e 64 29 29 0a 09 20 20 20 20 28 72 65 6d 6f 76 65 2d 6c 69 | t).(=.end.dend))......(remove-li |
| 109fa0 | 73 74 2d 6f 66 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 0a 09 20 20 20 20 20 64 73 74 | st-of-text-properties........dst |
| 109fc0 | 61 72 74 20 64 65 6e 64 20 27 28 64 69 73 70 6c 61 79 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d | art.dend.'(display.modification- |
| 109fe0 | 68 6f 6f 6b 73 29 29 29 29 29 29 29 29 0a 0a 3b 3b 20 52 65 61 64 20 61 20 65 6e 74 72 79 20 6e | hooks))))))))..;;.Read.a.entry.n |
| 10a000 | 75 6d 62 65 72 2e 0a 3b 3b 20 57 72 69 74 74 65 6e 20 69 6e 20 43 50 53 20 62 65 63 61 75 73 65 | umber..;;.Written.in.CPS.because |
| 10a020 | 20 74 68 65 20 64 69 73 70 6c 61 79 20 74 68 65 20 63 6c 69 70 62 6f 61 72 64 20 62 65 66 6f 72 | .the.display.the.clipboard.befor |
| 10a040 | 65 20 72 65 61 64 69 6e 67 2e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 | e.reading..(defun.slime-clipboar |
| 10a060 | 64 2d 72 65 61 64 2d 65 6e 74 72 79 2d 6e 75 6d 62 65 72 20 28 6b 29 0a 20 20 28 73 6c 69 6d 65 | d-read-entry-number.(k)...(slime |
| 10a080 | 2d 65 76 61 6c 2d 61 73 79 6e 63 20 0a 20 20 20 60 28 73 77 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 | -eval-async.....`(swank-clipboar |
| 10a0a0 | 64 3a 65 6e 74 72 69 65 73 29 20 0a 20 20 20 28 73 6c 69 6d 65 2d 72 63 75 72 72 79 0a 20 20 20 | d:entries).....(slime-rcurry.... |
| 10a0c0 | 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 69 65 73 20 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 20 | .(lambda.(entries.window-config. |
| 10a0e0 | 6b 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 64 69 73 70 6c 61 | k).......(slime-clipboard-displa |
| 10a100 | 79 2d 65 6e 74 72 69 65 73 20 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 | y-entries.entries).......(let.(( |
| 10a120 | 65 6e 74 72 79 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 09 09 20 20 20 20 20 20 20 28 | entry.(unwind-protect..........( |
| 10a140 | 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 45 6e 74 72 79 20 6e 75 6d 62 | read-from-minibuffer."Entry.numb |
| 10a160 | 65 72 3a 20 22 20 6e 69 6c 20 6e 69 6c 20 74 29 0a 09 09 20 20 20 20 20 28 73 65 74 2d 77 69 6e | er:.".nil.nil.t)........(set-win |
| 10a180 | 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 29 | dow-configuration.window-config) |
| 10a1a0 | 29 29 29 0a 09 28 66 75 6e 63 61 6c 6c 20 6b 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 28 63 75 | )))..(funcall.k.entry))).....(cu |
| 10a1c0 | 72 72 65 6e 74 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 0a 20 20 20 20 | rrent-window-configuration)..... |
| 10a1e0 | 6b 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 61 64 64 | k)))..(defun.slime-clipboard-add |
| 10a200 | 2d 66 72 6f 6d 2d 69 6e 73 70 65 63 74 6f 72 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | -from-inspector.()...(interactiv |
| 10a220 | 65 29 0a 20 20 28 6c 65 74 20 28 28 70 61 72 74 20 28 6f 72 20 28 67 65 74 2d 74 65 78 74 2d 70 | e)...(let.((part.(or.(get-text-p |
| 10a240 | 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 70 61 72 74 2d 6e 75 6d 62 | roperty.(point).'slime-part-numb |
| 10a260 | 65 72 29 0a 09 09 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 70 61 72 74 20 61 74 20 70 6f 69 6e 74 | er).....(error."No.part.at.point |
| 10a280 | 22 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 61 64 64 2d 69 | ")))).....(slime-clipboard-add-i |
| 10a2a0 | 6e 74 65 72 6e 61 6c 20 60 28 3a 69 6e 73 70 65 63 74 6f 72 20 2c 70 61 72 74 29 29 29 29 0a 0a | nternal.`(:inspector.,part)))).. |
| 10a2c0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 2d 61 64 64 2d 66 72 6f 6d 2d | (defun.slime-clipboard-add-from- |
| 10a2e0 | 73 6c 64 62 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 | sldb.()...(interactive)...(slime |
| 10a300 | 2d 63 6c 69 70 62 6f 61 72 64 2d 61 64 64 2d 69 6e 74 65 72 6e 61 6c 20 0a 20 20 20 60 28 3a 73 | -clipboard-add-internal.....`(:s |
| 10a320 | 6c 64 62 20 2c 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 | ldb.,(sldb-frame-number-at-point |
| 10a340 | 29 20 0a 09 20 20 20 2c 28 73 6c 64 62 2d 76 61 72 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e | )......,(sldb-var-number-at-poin |
| 10a360 | 74 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 63 6c 69 70 62 6f 61 72 64 | t))))..(provide.'slime-clipboard |
| 10a380 | 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | )............................... |
| 10a3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 6d 65 64 69 61 2e 6c | slime-2.31/contrib/swank-media.l |
| 10a420 | 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | isp............................. |
| 10a440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 10a480 | 30 30 30 32 31 31 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 37 33 36 00 20 30 00 00 00 | 0002114.00000000000.015736..0... |
| 10a4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 10a520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 10a540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a600 | 3b 3b 3b 20 73 77 61 6e 6b 2d 6d 65 64 69 61 2e 6c 69 73 70 20 2d 2d 2d 20 69 6e 73 65 72 74 20 | ;;;.swank-media.lisp.---.insert. |
| 10a620 | 6f 74 68 65 72 20 6d 65 64 69 61 20 28 69 6d 61 67 65 73 29 0a 3b 3b 0a 3b 3b 20 41 75 74 68 6f | other.media.(images).;;.;;.Autho |
| 10a640 | 72 73 3a 20 43 68 72 69 73 74 6f 70 68 65 20 52 68 6f 64 65 73 20 3c 63 73 72 32 31 40 63 61 6e | rs:.Christophe.Rhodes.<csr21@can |
| 10a660 | 74 61 62 2e 6e 65 74 3e 0a 3b 3b 0a 3b 3b 20 4c 69 63 65 6e 63 65 3a 20 47 50 4c 76 32 20 6f 72 | tab.net>.;;.;;.Licence:.GPLv2.or |
| 10a680 | 20 6c 61 74 65 72 0a 3b 3b 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a | .later.;;..(in-package.:swank).. |
| 10a6a0 | 3b 3b 20 74 68 69 73 20 66 69 6c 65 20 69 73 20 65 6d 70 74 79 20 6f 66 20 66 75 6e 63 74 69 6f | ;;.this.file.is.empty.of.functio |
| 10a6c0 | 6e 61 6c 69 74 79 2e 20 20 54 68 65 20 73 6c 69 6d 65 2d 6d 65 64 69 61 20 63 6f 6e 74 72 69 62 | nality...The.slime-media.contrib |
| 10a6e0 | 0a 3b 3b 20 61 6c 6c 6f 77 73 20 73 77 61 6e 6b 20 74 6f 20 72 65 74 75 72 6e 20 6d 65 73 73 61 | .;;.allows.swank.to.return.messa |
| 10a700 | 67 65 73 20 6f 74 68 65 72 20 74 68 61 6e 20 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 20 61 73 20 | ges.other.than.:write-string.as. |
| 10a720 | 72 65 70 6c 0a 3b 3b 20 72 65 73 75 6c 74 73 3b 20 74 68 69 73 20 69 73 20 75 73 65 64 20 69 6e | repl.;;.results;.this.is.used.in |
| 10a740 | 20 74 68 65 20 52 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 73 77 61 6e 6b 20 74 | .the.R.implementation.of.swank.t |
| 10a760 | 6f 20 64 69 73 70 6c 61 79 20 52 0a 3b 3b 20 6f 62 6a 65 63 74 73 20 77 69 74 68 20 67 72 61 70 | o.display.R.;;.objects.with.grap |
| 10a780 | 68 69 63 61 6c 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 28 73 75 63 68 20 61 73 20 74 | hical.representations.(such.as.t |
| 10a7a0 | 72 65 6c 6c 69 73 20 6f 62 6a 65 63 74 73 29 20 61 73 0a 3b 3b 20 69 6d 61 67 65 20 70 72 65 73 | rellis.objects).as.;;.image.pres |
| 10a7c0 | 65 6e 74 61 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 73 77 61 6e 6b 20 72 65 70 6c 2e 20 20 49 6e | entations.in.the.swank.repl...In |
| 10a7e0 | 20 52 2c 20 74 68 69 73 20 69 73 20 64 6f 6e 65 20 62 79 0a 3b 3b 20 68 61 76 69 6e 67 20 61 20 | .R,.this.is.done.by.;;.having.a. |
| 10a800 | 68 6f 6f 6b 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 70 72 65 70 61 72 61 74 69 6f | hook.function.for.the.preparatio |
| 10a820 | 6e 20 6f 66 20 74 68 65 20 72 65 70 6c 20 72 65 73 75 6c 74 73 2c 20 69 6e 0a 3b 3b 20 61 64 64 | n.of.the.repl.results,.in.;;.add |
| 10a840 | 69 74 69 6f 6e 20 74 6f 20 74 68 65 20 61 6c 72 65 61 64 79 2d 65 78 69 73 74 69 6e 67 20 68 6f | ition.to.the.already-existing.ho |
| 10a860 | 6f 6b 20 66 6f 72 20 73 65 6e 64 69 6e 67 20 74 68 65 20 72 65 70 6c 20 72 65 73 75 6c 74 73 0a | ok.for.sending.the.repl.results. |
| 10a880 | 3b 3b 20 28 2a 73 65 6e 64 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2d 66 75 6e 63 74 69 6f 6e 2a | ;;.(*send-repl-results-function* |
| 10a8a0 | 2c 20 75 73 65 64 20 62 79 20 73 77 61 6e 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 6c 69 | ,.used.by.swank-presentations.li |
| 10a8c0 | 73 70 29 2e 0a 3b 3b 20 54 68 65 20 73 77 61 6e 6b 2d 6d 65 64 69 61 2e 52 20 63 6f 6e 74 72 69 | sp)..;;.The.swank-media.R.contri |
| 10a8e0 | 62 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 66 69 6e 65 73 20 61 20 67 65 6e 65 72 | b.implementation.defines.a.gener |
| 10a900 | 69 63 20 66 75 6e 63 74 69 6f 6e 0a 3b 3b 20 66 6f 72 20 75 73 65 20 61 73 20 74 68 69 73 20 68 | ic.function.;;.for.use.as.this.h |
| 10a920 | 6f 6f 6b 2c 20 61 6c 6f 6e 67 20 77 69 74 68 20 6d 65 74 68 6f 64 73 20 66 6f 72 20 63 6f 6d 6d | ook,.along.with.methods.for.comm |
| 10a940 | 6f 6e 6c 79 2d 65 6e 63 6f 75 6e 74 65 72 65 64 0a 3b 3b 20 67 72 61 70 68 69 63 61 6c 20 52 20 | only-encountered.;;.graphical.R. |
| 10a960 | 6f 62 6a 65 63 74 73 2e 20 20 28 54 68 69 73 20 73 74 72 61 74 65 67 79 20 69 73 20 68 61 72 64 | objects...(This.strategy.is.hard |
| 10a980 | 65 72 20 69 6e 20 43 4c 2c 20 77 68 65 72 65 20 6d 65 74 68 6f 64 73 0a 3b 3b 20 63 61 6e 20 6f | er.in.CL,.where.methods.;;.can.o |
| 10a9a0 | 6e 6c 79 20 62 65 20 64 65 66 69 6e 65 64 20 69 66 20 74 68 65 69 72 20 73 70 65 63 69 61 6c 69 | nly.be.defined.if.their.speciali |
| 10a9c0 | 7a 65 72 73 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 3b 20 69 6e 20 52 27 73 20 53 33 0a 3b 3b | zers.already.exist;.in.R's.S3.;; |
| 10a9e0 | 20 6f 62 6a 65 63 74 20 73 79 73 74 65 6d 2c 20 6d 65 74 68 6f 64 73 20 61 72 65 20 6f 72 64 69 | .object.system,.methods.are.ordi |
| 10aa00 | 6e 61 72 79 20 66 75 6e 63 74 69 6f 6e 73 20 77 69 74 68 20 61 20 73 70 65 63 69 61 6c 20 6e 61 | nary.functions.with.a.special.na |
| 10aa20 | 6d 69 6e 67 0a 3b 3b 20 63 6f 6e 76 65 6e 74 69 6f 6e 29 0a 0a 28 70 72 6f 76 69 64 65 20 3a 73 | ming.;;.convention)..(provide.:s |
| 10aa40 | 77 61 6e 6b 2d 6d 65 64 69 61 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | wank-media)..................... |
| 10aa60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10aa80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10aaa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10aac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10aae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ab00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ab20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ab40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ab60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ab80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10aba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10abc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10abe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ac00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 66 61 6e 63 79 2d 69 | slime-2.31/contrib/slime-fancy-i |
| 10ac20 | 6e 73 70 65 63 74 6f 72 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | nspector.el..................... |
| 10ac40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ac60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 10ac80 | 30 30 30 33 30 36 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 34 30 37 00 20 30 00 00 00 | 0003064.00000000000.017407..0... |
| 10aca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10acc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ace0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ad00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 10ad20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 10ad40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ad60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ad80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ada0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10adc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ade0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ae00 | 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6c | (eval-and-compile...(require.'sl |
| 10ae20 | 69 6d 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 | ime))..(define-slime-contrib.sli |
| 10ae40 | 6d 65 2d 66 61 6e 63 79 2d 69 6e 73 70 65 63 74 6f 72 0a 20 20 22 46 61 6e 63 79 20 69 6e 73 70 | me-fancy-inspector..."Fancy.insp |
| 10ae60 | 65 63 74 6f 72 20 66 6f 72 20 43 4c 4f 53 20 6f 62 6a 65 63 74 73 2e 22 0a 20 20 28 3a 61 75 74 | ector.for.CLOS.objects."...(:aut |
| 10ae80 | 68 6f 72 73 20 22 4d 61 72 63 6f 20 42 61 72 69 6e 67 65 72 20 3c 6d 62 40 62 65 73 65 2e 69 74 | hors."Marco.Baringer.<mb@bese.it |
| 10aea0 | 3e 20 61 6e 64 20 6f 74 68 65 72 73 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 | >.and.others")...(:license."GPL" |
| 10aec0 | 29 0a 20 20 28 3a 73 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 6c 69 6d 65 2d 70 | )...(:slime-dependencies.slime-p |
| 10aee0 | 61 72 73 65 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 | arse)...(:swank-dependencies.swa |
| 10af00 | 6e 6b 2d 66 61 6e 63 79 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a | nk-fancy-inspector)...(:on-load. |
| 10af20 | 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 | ...(add-hook.'slime-edit-definit |
| 10af40 | 69 6f 6e 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 65 64 69 74 2d 69 6e 73 70 65 63 74 6f 72 2d | ion-hooks.'slime-edit-inspector- |
| 10af60 | 70 61 72 74 29 29 0a 20 20 28 3a 6f 6e 2d 75 6e 6c 6f 61 64 0a 20 20 20 28 72 65 6d 6f 76 65 2d | part))...(:on-unload....(remove- |
| 10af80 | 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 68 6f 6f 6b | hook.'slime-edit-definition-hook |
| 10afa0 | 73 20 27 73 6c 69 6d 65 2d 65 64 69 74 2d 69 6e 73 70 65 63 74 6f 72 2d 70 61 72 74 29 29 29 0a | s.'slime-edit-inspector-part))). |
| 10afc0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 2d 64 65 66 69 6e 69 74 69 6f 6e | .(defun.slime-inspect-definition |
| 10afe0 | 20 28 29 0a 20 20 22 49 6e 73 70 65 63 74 20 64 65 66 69 6e 69 74 69 6f 6e 20 61 74 20 70 6f 69 | .()..."Inspect.definition.at.poi |
| 10b000 | 6e 74 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 73 | nt"...(interactive)...(slime-ins |
| 10b020 | 70 65 63 74 20 6e 69 6c 20 28 73 6c 69 6d 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 61 74 2d 70 6f | pect.nil.(slime-definition-at-po |
| 10b040 | 69 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 69 73 61 73 73 65 6d 62 6c 65 | int)))..(defun.slime-disassemble |
| 10b060 | 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 29 0a 20 20 22 44 69 73 61 73 73 65 6d 62 6c 65 20 64 65 | -definition.()..."Disassemble.de |
| 10b080 | 66 69 6e 69 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | finition.at.point"...(interactiv |
| 10b0a0 | 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 20 60 28 73 77 61 6e | e)...(slime-eval-describe.`(swan |
| 10b0c0 | 6b 3a 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | k:disassemble-form.............. |
| 10b0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 73 6c 69 6d 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 61 | ............,(slime-definition-a |
| 10b100 | 74 2d 70 6f 69 6e 74 20 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 64 69 74 | t-point.t))))..(defun.slime-edit |
| 10b120 | 2d 69 6e 73 70 65 63 74 6f 72 2d 70 61 72 74 20 28 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 | -inspector-part.(name.&optional. |
| 10b140 | 77 68 65 72 65 29 0a 20 20 28 61 6e 64 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 73 6c | where)...(and.(eq.major-mode.'sl |
| 10b160 | 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 28 63 6c 2d 64 | ime-inspector-mode)........(cl-d |
| 10b180 | 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 72 6f | estructuring-bind.(&optional.pro |
| 10b1a0 | 70 65 72 74 79 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 | perty.value)............(slime-i |
| 10b1c0 | 6e 73 70 65 63 74 6f 72 2d 70 72 6f 70 65 72 74 79 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 | nspector-property-at-point)..... |
| 10b1e0 | 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 70 72 6f 70 65 72 74 79 20 27 73 6c 69 6d 65 2d 70 | .....(when.(eq.property.'slime-p |
| 10b200 | 61 72 74 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 6f | art-number)............(let.((lo |
| 10b220 | 63 61 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 66 69 6e 64 2d | cation.(slime-eval.`(swank:find- |
| 10b240 | 64 65 66 69 6e 69 74 69 6f 6e 2d 66 6f 72 2d 74 68 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 | definition-for-thing............ |
| 10b260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ..............................(s |
| 10b280 | 77 61 6e 6b 3a 69 6e 73 70 65 63 74 6f 72 2d 6e 74 68 2d 70 61 72 74 20 2c 76 61 6c 75 65 29 29 | wank:inspector-nth-part.,value)) |
| 10b2a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 66 6f 72 6d 61 | ))..................(name.(forma |
| 10b2c0 | 74 20 22 49 6e 73 70 65 63 74 6f 72 20 70 61 72 74 20 25 73 22 20 76 61 6c 75 65 29 29 29 0a 20 | t."Inspector.part.%s".value))).. |
| 10b2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 6c 6f | ............(when.(and.(consp.lo |
| 10b300 | 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cation)......................... |
| 10b320 | 28 6e 6f 74 20 28 65 71 20 28 63 61 72 20 6c 6f 63 61 74 69 6f 6e 29 20 3a 65 72 72 6f 72 29 29 | (not.(eq.(car.location).:error)) |
| 10b340 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 | )................(slime-edit-def |
| 10b360 | 69 6e 69 74 69 6f 6e 2d 63 6f 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | inition-cont.................(li |
| 10b380 | 73 74 20 28 6d 61 6b 65 2d 73 6c 69 6d 65 2d 78 72 65 66 20 3a 64 73 70 65 63 20 60 28 2c 6e 61 | st.(make-slime-xref.:dspec.`(,na |
| 10b3a0 | 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me)............................. |
| 10b3c0 | 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 0a | ...........:location.location)). |
| 10b3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 | ................name............ |
| 10b400 | 20 20 20 20 20 77 68 65 72 65 29 29 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 | .....where)))))))..(provide.'sli |
| 10b420 | 6d 65 2d 66 61 6e 63 79 2d 69 6e 73 70 65 63 74 6f 72 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 | me-fancy-inspector)............. |
| 10b440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 67 6f 6f 2e 67 6f 6f | slime-2.31/contrib/swank-goo.goo |
| 10b620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 10b680 | 30 30 37 34 36 36 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 33 30 36 00 20 30 00 00 00 | 0074667.00000000000.015306..0... |
| 10b6a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b6c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b6e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 10b720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 10b740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b7a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b800 | 3b 3b 3b 3b 20 73 77 61 6e 6b 2d 67 6f 6f 2e 67 6f 6f 20 2d 2d 2d 20 53 77 61 6e 6b 20 73 65 72 | ;;;;.swank-goo.goo.---.Swank.ser |
| 10b820 | 76 65 72 20 66 6f 72 20 47 4f 4f 0a 3b 3b 3b 0a 3b 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 | ver.for.GOO.;;;.;;;.Copyright.(C |
| 10b840 | 29 20 32 30 30 35 20 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 | ).2005..Helmut.Eller.;;;.;;;.Thi |
| 10b860 | 73 20 66 69 6c 65 20 69 73 20 6c 69 63 65 6e 73 65 64 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 | s.file.is.licensed.under.the.ter |
| 10b880 | 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 0a 3b 3b 3b | ms.of.the.GNU.General.Public.;;; |
| 10b8a0 | 20 4c 69 63 65 6e 73 65 20 61 73 20 64 69 73 74 72 69 62 75 74 65 64 20 77 69 74 68 20 45 6d 61 | .License.as.distributed.with.Ema |
| 10b8c0 | 63 73 20 28 70 72 65 73 73 20 43 2d 68 20 43 2d 63 20 74 6f 20 76 69 65 77 20 69 74 29 2e 0a 0a | cs.(press.C-h.C-c.to.view.it)... |
| 10b8e0 | 3b 3b 3b 3b 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 0a 3b 3b 0a 3b 3b 20 31 2e 20 41 64 64 20 73 | ;;;;.Installation.;;.;;.1..Add.s |
| 10b900 | 6f 6d 65 74 68 69 6e 67 20 6c 69 6b 65 20 74 68 69 73 20 74 6f 20 79 6f 75 72 20 2e 65 6d 61 63 | omething.like.this.to.your..emac |
| 10b920 | 73 3a 0a 3b 3b 0a 3b 3b 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d | s:.;;.;;.(setq.slime-lisp-implem |
| 10b940 | 65 6e 74 61 74 69 6f 6e 73 0a 3b 3b 20 20 20 20 20 20 20 27 28 28 67 6f 6f 20 28 22 67 32 63 22 | entations.;;.......'((goo.("g2c" |
| 10b960 | 29 20 3a 69 6e 69 74 20 67 6f 6f 2d 73 6c 69 6d 65 2d 69 6e 69 74 29 29 29 0a 3b 3b 20 0a 3b 3b | ).:init.goo-slime-init))).;;..;; |
| 10b980 | 20 28 64 65 66 75 6e 20 67 6f 6f 2d 73 6c 69 6d 65 2d 69 6e 69 74 20 28 66 69 6c 65 20 5f 29 0a | .(defun.goo-slime-init.(file._). |
| 10b9a0 | 3b 3b 20 20 20 28 66 6f 72 6d 61 74 20 22 25 53 5c 6e 25 53 5c 6e 22 0a 3b 3b 20 09 20 20 60 28 | ;;...(format."%S\n%S\n".;;....`( |
| 10b9c0 | 73 65 74 20 67 6f 6f 2f 73 79 73 74 65 6d 3a 2a 6d 6f 64 75 6c 65 2d 73 65 61 72 63 68 2d 70 61 | set.goo/system:*module-search-pa |
| 10b9e0 | 74 68 2a 0a 3b 3b 20 09 09 28 63 61 74 20 27 28 22 2e 2e 2e 2f 73 6c 69 6d 65 2f 63 6f 6e 74 72 | th*.;;...(cat.'(".../slime/contr |
| 10ba00 | 69 62 2f 22 29 0a 3b 3b 20 09 09 20 20 20 20 20 67 6f 6f 2f 73 79 73 74 65 6d 3a 2a 6d 6f 64 75 | ib/").;;........goo/system:*modu |
| 10ba20 | 6c 65 2d 73 65 61 72 63 68 2d 70 61 74 68 2a 29 29 0a 3b 3b 20 09 20 20 60 28 73 77 61 6e 6b 2d | le-search-path*)).;;....`(swank- |
| 10ba40 | 67 6f 6f 3a 73 74 61 72 74 2d 73 77 61 6e 6b 20 2c 66 69 6c 65 29 29 29 0a 3b 3b 0a 3b 3b 20 32 | goo:start-swank.,file))).;;.;;.2 |
| 10ba60 | 2e 20 53 74 61 72 74 20 65 76 65 72 79 74 68 69 6e 67 20 77 69 74 68 20 20 4d 2d 2d 20 4d 2d 78 | ..Start.everything.with..M--.M-x |
| 10ba80 | 20 73 6c 69 6d 65 20 67 6f 6f 0a 3b 3b 0a 0a 3b 3b 3b 3b 20 43 6f 64 65 0a 0a 28 75 73 65 20 67 | .slime.goo.;;..;;;;.Code..(use.g |
| 10baa0 | 6f 6f 29 0a 28 75 73 65 20 67 6f 6f 2f 62 6f 6f 74 29 0a 28 75 73 65 20 67 6f 6f 2f 78 29 0a 28 | oo).(use.goo/boot).(use.goo/x).( |
| 10bac0 | 75 73 65 20 67 6f 6f 2f 69 6f 2f 70 6f 72 74 29 0a 28 75 73 65 20 67 6f 6f 2f 69 6f 2f 77 72 69 | use.goo/io/port).(use.goo/io/wri |
| 10bae0 | 74 65 29 0a 28 75 73 65 20 67 6f 6f 2f 65 76 61 6c 29 0a 28 75 73 65 20 67 6f 6f 2f 73 79 73 74 | te).(use.goo/eval).(use.goo/syst |
| 10bb00 | 65 6d 29 0a 28 75 73 65 20 67 6f 6f 2f 63 6f 6e 64 69 74 69 6f 6e 73 29 0a 28 75 73 65 20 67 6f | em).(use.goo/conditions).(use.go |
| 10bb20 | 6f 2f 66 75 6e 29 0a 28 75 73 65 20 67 6f 6f 2f 6c 6f 63 29 0a 28 75 73 65 20 67 6f 6f 2f 63 68 | o/fun).(use.goo/loc).(use.goo/ch |
| 10bb40 | 72 29 0a 28 75 73 65 20 65 76 61 6c 2f 6d 6f 64 75 6c 65 29 0a 28 75 73 65 20 65 76 61 6c 2f 61 | r).(use.eval/module).(use.eval/a |
| 10bb60 | 73 74 29 0a 28 75 73 65 20 65 76 61 6c 2f 67 32 63 29 0a 0a 0c 0a 3b 3b 3b 3b 20 73 65 72 76 65 | st).(use.eval/g2c)....;;;;.serve |
| 10bb80 | 72 20 73 65 74 75 70 0a 0a 28 64 66 20 63 72 65 61 74 65 2d 73 65 72 76 65 72 20 28 70 6f 72 74 | r.setup..(df.create-server.(port |
| 10bba0 | 2d 6e 75 6d 62 65 72 29 20 28 73 65 74 75 70 2d 73 65 72 76 65 72 20 70 6f 72 74 2d 6e 75 6d 62 | -number).(setup-server.port-numb |
| 10bbc0 | 65 72 20 61 6e 6e 6f 75 6e 63 65 2d 70 6f 72 74 29 29 0a 0a 28 64 66 20 73 74 61 72 74 2d 73 77 | er.announce-port))..(df.start-sw |
| 10bbe0 | 61 6e 6b 20 28 70 6f 72 74 2d 66 69 6c 65 29 0a 20 20 28 73 65 74 75 70 2d 73 65 72 76 65 72 20 | ank.(port-file)...(setup-server. |
| 10bc00 | 30 20 28 66 75 6e 20 28 73 29 20 28 77 72 69 74 65 2d 70 6f 72 74 2d 66 69 6c 65 20 28 25 6c 6f | 0.(fun.(s).(write-port-file.(%lo |
| 10bc20 | 63 61 6c 2d 70 6f 72 74 20 73 29 20 70 6f 72 74 2d 66 69 6c 65 29 29 29 29 0a 0a 28 64 66 20 73 | cal-port.s).port-file))))..(df.s |
| 10bc40 | 65 74 75 70 2d 73 65 72 76 65 72 20 28 70 6f 72 74 2d 6e 75 6d 62 65 72 20 61 6e 6e 6f 75 6e 63 | etup-server.(port-number.announc |
| 10bc60 | 65 29 0a 20 20 28 6c 65 74 20 28 28 73 20 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 70 6f 72 | e)...(let.((s.(create-socket.por |
| 10bc80 | 74 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 28 66 69 6e 20 28 73 65 71 0a 20 20 20 20 20 20 | t-number))).....(fin.(seq....... |
| 10bca0 | 20 20 20 20 20 28 61 6e 6e 6f 75 6e 63 65 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | .....(announce.s)............(le |
| 10bcc0 | 74 20 28 28 63 20 28 61 63 63 65 70 74 20 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.((c.(accept.s))).............. |
| 10bce0 | 3b 3b 28 70 6f 73 74 20 22 63 6f 6e 6e 65 63 74 69 6f 6e 3a 20 25 73 22 20 20 63 29 0a 20 20 20 | ;;(post."connection:.%s"..c).... |
| 10bd00 | 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 20 28 73 65 72 76 65 2d 72 65 71 75 65 73 74 73 20 63 | ..........(fin.(serve-requests.c |
| 10bd20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 25 63 6c 6f 73 65 20 28 40 66 64 20 63 29 | )................(%close.(@fd.c) |
| 10bd40 | 29 29 29 29 0a 20 20 20 20 20 20 28 70 6f 73 74 20 22 63 6c 6f 73 69 6e 67 20 73 6f 63 6b 65 74 | )))).......(post."closing.socket |
| 10bd60 | 3a 20 25 73 22 20 73 29 0a 20 20 20 20 20 20 28 25 63 6c 6f 73 65 20 73 29 29 29 29 0a 0a 28 64 | :.%s".s).......(%close.s))))..(d |
| 10bd80 | 66 20 61 6e 6e 6f 75 6e 63 65 2d 70 6f 72 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 70 6f 73 74 | f.announce-port.(socket)...(post |
| 10bda0 | 20 22 4c 69 73 74 65 6e 69 6e 67 20 6f 6e 20 70 6f 72 74 3a 20 25 64 5c 6e 22 20 28 25 6c 6f 63 | ."Listening.on.port:.%d\n".(%loc |
| 10bdc0 | 61 6c 2d 70 6f 72 74 20 73 6f 63 6b 65 74 29 29 29 0a 0a 28 64 66 20 77 72 69 74 65 2d 70 6f 72 | al-port.socket)))..(df.write-por |
| 10bde0 | 74 2d 66 69 6c 65 20 28 70 6f 72 74 2d 6e 75 6d 62 65 72 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 | t-file.(port-number.filename)... |
| 10be00 | 28 77 69 74 68 2d 70 6f 72 74 20 28 66 69 6c 65 20 28 6f 70 65 6e 20 3c 66 69 6c 65 2d 6f 75 74 | (with-port.(file.(open.<file-out |
| 10be20 | 2d 70 6f 72 74 3e 20 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 28 6d 73 67 20 66 69 6c 65 20 | -port>.filename)).....(msg.file. |
| 10be40 | 22 25 64 5c 6e 22 20 70 6f 72 74 2d 6e 75 6d 62 65 72 29 29 29 0a 0a 28 64 63 20 3c 73 6c 69 6d | "%d\n".port-number)))..(dc.<slim |
| 10be60 | 65 2d 74 6f 70 6c 65 76 65 6c 3e 20 28 3c 72 65 73 74 61 72 74 3e 29 29 0a 0a 28 64 63 20 3c 63 | e-toplevel>.(<restart>))..(dc.<c |
| 10be80 | 6f 6e 6e 65 63 74 69 6f 6e 3e 20 28 3c 61 6e 79 3e 29 29 0a 28 64 70 20 40 73 6f 63 6b 65 74 20 | onnection>.(<any>)).(dp.@socket. |
| 10bea0 | 28 3c 63 6f 6e 6e 65 63 74 69 6f 6e 3e 20 3d 3e 20 3c 70 6f 72 74 3e 29 29 0a 28 64 70 20 40 69 | (<connection>.=>.<port>)).(dp.@i |
| 10bec0 | 6e 20 28 3c 63 6f 6e 6e 65 63 74 69 6f 6e 3e 20 3d 3e 20 3c 69 6e 2d 70 6f 72 74 3e 29 29 0a 28 | n.(<connection>.=>.<in-port>)).( |
| 10bee0 | 64 70 20 40 6f 75 74 20 28 3c 63 6f 6e 6e 65 63 74 69 6f 6e 3e 20 3d 3e 20 3c 6f 75 74 2d 70 6f | dp.@out.(<connection>.=>.<out-po |
| 10bf00 | 72 74 3e 29 29 0a 0a 28 64 76 20 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 7c 28 74 3f 20 | rt>))..(dv.emacs-connection|(t?. |
| 10bf20 | 3c 63 6f 6e 6e 65 63 74 69 6f 6e 3e 29 20 23 66 29 0a 0a 28 64 66 20 73 65 72 76 65 2d 72 65 71 | <connection>).#f)..(df.serve-req |
| 10bf40 | 75 65 73 74 73 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 64 6c 65 74 20 28 28 65 6d 61 63 73 2d 63 | uests.(socket)...(dlet.((emacs-c |
| 10bf60 | 6f 6e 6e 65 63 74 69 6f 6e 20 28 6e 65 77 20 3c 63 6f 6e 6e 65 63 74 69 6f 6e 3e 20 0a 20 20 20 | onnection.(new.<connection>..... |
| 10bf80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 73 6f 63 6b 65 | ..........................@socke |
| 10bfa0 | 74 20 73 6f 63 6b 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.socket........................ |
| 10bfc0 | 20 20 20 20 20 20 40 6f 75 74 20 28 6e 65 77 20 3c 73 6c 69 6d 65 2d 6f 75 74 2d 70 6f 72 74 3e | ......@out.(new.<slime-out-port> |
| 10bfe0 | 20 40 73 6f 63 6b 65 74 20 73 6f 63 6b 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .@socket.socket)................ |
| 10c000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 69 6e 20 28 6e 65 77 20 3c 73 6c 69 6d 65 2d 69 6e | ..............@in.(new.<slime-in |
| 10c020 | 2d 70 6f 72 74 3e 20 40 73 6f 63 6b 65 74 20 73 6f 63 6b 65 74 29 29 29 29 0a 20 20 20 20 28 64 | -port>.@socket.socket)))).....(d |
| 10c040 | 6c 65 74 20 28 28 6f 75 74 20 28 40 6f 75 74 20 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e | let.((out.(@out.emacs-connection |
| 10c060 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 20 28 40 69 6e 20 65 6d 61 63 73 2d 63 6f 6e | ))............(in.(@in.emacs-con |
| 10c080 | 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 23 74 0a 20 20 20 20 20 | nection))).......(while.#t...... |
| 10c0a0 | 20 20 20 28 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 20 0a 20 20 20 20 20 20 20 20 20 3c 73 6c | ...(simple-restart...........<sl |
| 10c0c0 | 69 6d 65 2d 74 6f 70 6c 65 76 65 6c 3e 20 22 53 4c 49 4d 45 20 74 6f 70 2d 6c 65 76 65 6c 22 0a | ime-toplevel>."SLIME.top-level". |
| 10c0e0 | 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 29 20 28 70 72 6f 63 65 73 73 2d 6e 65 78 74 2d 65 | .........(fun.().(process-next-e |
| 10c100 | 76 65 6e 74 20 73 6f 63 6b 65 74 29 29 29 29 29 29 29 0a 0a 28 64 2e 20 3c 6e 69 6c 3e 20 28 74 | vent.socket)))))))..(d..<nil>.(t |
| 10c120 | 3d 20 27 6e 69 6c 29 29 0a 28 64 2e 20 74 20 23 74 29 0a 28 64 2e 20 63 6f 6e 73 20 70 61 69 72 | =.'nil)).(d..t.#t).(d..cons.pair |
| 10c140 | 29 0a 0a 28 64 76 20 74 61 67 2d 63 6f 75 6e 74 65 72 7c 3c 69 6e 74 3e 20 30 29 0a 0a 28 64 66 | )..(dv.tag-counter|<int>.0)..(df |
| 10c160 | 20 70 72 6f 63 65 73 73 2d 6e 65 78 74 2d 65 76 65 6e 74 20 28 70 6f 72 74 29 20 28 64 69 73 70 | .process-next-event.(port).(disp |
| 10c180 | 61 74 63 68 2d 65 76 65 6e 74 20 28 64 65 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 70 6f 72 74 29 | atch-event.(decode-message.port) |
| 10c1a0 | 20 70 6f 72 74 29 29 0a 20 20 0a 28 64 66 20 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 28 65 | .port))....(df.dispatch-event.(e |
| 10c1c0 | 76 65 6e 74 20 70 6f 72 74 29 0a 20 20 3b 3b 20 28 70 6f 73 74 20 22 25 3d 5c 6e 22 20 65 76 65 | vent.port)...;;.(post."%=\n".eve |
| 10c1e0 | 6e 74 29 0a 20 20 28 6d 61 74 63 68 20 65 76 65 6e 74 0a 20 20 20 20 28 28 3a 65 6d 61 63 73 2d | nt)...(match.event.....((:emacs- |
| 10c200 | 72 65 78 20 2c 66 6f 72 6d 20 2c 70 61 63 6b 61 67 65 20 2c 5f 74 68 72 65 61 64 2d 69 64 20 2c | rex.,form.,package.,_thread-id., |
| 10c220 | 69 64 29 0a 20 20 20 20 20 28 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 66 6f 72 6d 20 70 61 | id)......(eval-for-emacs.form.pa |
| 10c240 | 63 6b 61 67 65 20 70 6f 72 74 20 69 64 29 29 0a 20 20 20 20 28 28 3a 72 65 61 64 2d 73 74 72 69 | ckage.port.id)).....((:read-stri |
| 10c260 | 6e 67 20 2c 5f 29 0a 20 20 20 20 20 28 64 65 66 20 74 61 67 20 28 69 6e 63 66 20 74 61 67 2d 63 | ng.,_)......(def.tag.(incf.tag-c |
| 10c280 | 6f 75 6e 74 65 72 29 29 0a 20 20 20 20 20 28 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 60 28 | ounter))......(encode-message.`( |
| 10c2a0 | 3a 72 65 61 64 2d 73 74 72 69 6e 67 20 2c 5f 20 2c 74 61 67 29 20 70 6f 72 74 29 0a 20 20 20 20 | :read-string.,_.,tag).port)..... |
| 10c2c0 | 20 28 72 65 70 20 6c 6f 6f 70 20 28 29 0a 20 20 20 20 20 20 20 28 6d 61 74 63 68 20 28 64 65 63 | .(rep.loop.()........(match.(dec |
| 10c2e0 | 6f 64 65 2d 6d 65 73 73 61 67 65 20 70 6f 72 74 29 0a 20 20 20 20 20 20 20 20 20 28 28 3a 65 6d | ode-message.port)..........((:em |
| 10c300 | 61 63 73 2d 72 65 74 75 72 6e 2d 73 74 72 69 6e 67 20 2c 5f 20 2c 72 74 61 67 20 2c 73 74 72 29 | acs-return-string.,_.,rtag.,str) |
| 10c320 | 0a 20 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 3d 20 74 61 67 20 72 74 61 67 29 20 | ...........(assert.(=.tag.rtag). |
| 10c340 | 22 55 6e 65 78 70 65 63 74 65 64 20 72 65 70 6c 79 20 74 61 67 3a 20 25 64 22 20 72 74 61 67 29 | "Unexpected.reply.tag:.%d".rtag) |
| 10c360 | 0a 20 20 20 20 20 20 20 20 20 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 28 28 2c 40 65 76 74 | ...........str)..........((,@evt |
| 10c380 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 72 79 2d 72 65 63 6f 76 65 72 0a 20 20 20 20 20 20 20 | )...........(try-recover........ |
| 10c3a0 | 20 20 20 20 28 66 75 6e 20 28 29 20 28 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 65 76 74 20 | ....(fun.().(dispatch-event.evt. |
| 10c3c0 | 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 29 20 28 65 6e 63 6f 64 | port))............(fun.().(encod |
| 10c3e0 | 65 2d 6d 65 73 73 61 67 65 20 60 28 3a 72 65 61 64 2d 61 62 6f 72 74 65 64 20 2c 5f 20 2c 74 61 | e-message.`(:read-aborted.,_.,ta |
| 10c400 | 67 29 20 70 6f 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 29 29 29 29 29 0a | g).port)))...........(loop))))). |
| 10c420 | 20 20 20 20 28 28 3a 65 6d 61 63 73 2d 72 65 74 75 72 6e 2d 73 74 72 69 6e 67 20 2c 5f 20 2c 72 | ....((:emacs-return-string.,_.,r |
| 10c440 | 74 61 67 20 2c 73 74 72 29 0a 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 65 78 70 65 63 74 65 | tag.,str)......(error."Unexpecte |
| 10c460 | 64 20 65 76 65 6e 74 3a 20 25 3d 22 20 65 76 65 6e 74 29 29 0a 20 20 20 20 28 28 2c 40 5f 29 20 | d.event:.%=".event)).....((,@_). |
| 10c480 | 28 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 65 76 65 6e 74 20 70 6f 72 74 29 29 29 29 0a 0a | (encode-message.event.port)))).. |
| 10c4a0 | 28 64 63 20 3c 65 76 61 6c 2d 63 6f 6e 74 65 78 74 3e 20 28 3c 61 6e 79 3e 29 29 0a 28 64 70 20 | (dc.<eval-context>.(<any>)).(dp. |
| 10c4c0 | 40 6d 6f 64 75 6c 65 20 28 3c 65 76 61 6c 2d 63 6f 6e 74 65 78 74 3e 20 3d 3e 20 3c 6d 6f 64 75 | @module.(<eval-context>.=>.<modu |
| 10c4e0 | 6c 65 3e 29 29 0a 28 64 70 20 40 69 64 20 28 3c 65 76 61 6c 2d 63 6f 6e 74 65 78 74 3e 20 3d 3e | le>)).(dp.@id.(<eval-context>.=> |
| 10c500 | 20 3c 69 6e 74 3e 29 29 0a 28 64 70 20 40 70 6f 72 74 20 28 3c 65 76 61 6c 2d 63 6f 6e 74 65 78 | .<int>)).(dp.@port.(<eval-contex |
| 10c520 | 74 3e 20 3d 3e 20 3c 70 6f 72 74 3e 29 29 0a 28 64 70 20 40 70 72 65 76 20 28 3c 65 76 61 6c 2d | t>.=>.<port>)).(dp.@prev.(<eval- |
| 10c540 | 63 6f 6e 74 65 78 74 3e 20 3d 3e 20 28 74 3f 20 3c 65 76 61 6c 2d 63 6f 6e 74 65 78 74 3e 29 29 | context>.=>.(t?.<eval-context>)) |
| 10c560 | 29 0a 0a 3b 3b 20 73 68 6f 75 6c 64 20 62 65 20 64 64 76 0a 28 64 76 20 65 76 61 6c 2d 63 6f 6e | )..;;.should.be.ddv.(dv.eval-con |
| 10c580 | 74 65 78 74 7c 28 74 3f 20 3c 65 76 61 6c 2d 63 6f 6e 74 65 78 74 3e 29 20 23 66 29 0a 0a 28 64 | text|(t?.<eval-context>).#f)..(d |
| 10c5a0 | 66 20 62 75 66 66 65 72 2d 6d 6f 64 75 6c 65 20 28 29 20 28 40 6d 6f 64 75 6c 65 20 65 76 61 6c | f.buffer-module.().(@module.eval |
| 10c5c0 | 2d 63 6f 6e 74 65 78 74 29 29 0a 0a 28 64 66 20 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 | -context))..(df.eval-for-emacs.( |
| 10c5e0 | 66 6f 72 6d 7c 3c 6c 73 74 3e 20 70 61 63 6b 61 67 65 7c 28 74 2b 20 3c 73 74 72 3e 20 3c 6e 69 | form|<lst>.package|(t+.<str>.<ni |
| 10c600 | 6c 3e 29 20 70 6f 72 74 20 69 64 7c 3c 69 6e 74 3e 29 0a 20 20 28 74 72 79 2d 72 65 63 6f 76 65 | l>).port.id|<int>)...(try-recove |
| 10c620 | 72 0a 20 20 20 28 66 75 6e 20 28 29 20 0a 20 20 20 20 20 28 74 72 79 20 3c 63 6f 6e 64 69 74 69 | r....(fun.().......(try.<conditi |
| 10c640 | 6f 6e 3e 20 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 0a 20 20 20 20 20 20 20 28 64 6c 65 74 20 | on>.debugger-hook.........(dlet. |
| 10c660 | 28 28 65 76 61 6c 2d 63 6f 6e 74 65 78 74 20 28 6e 65 77 20 3c 65 76 61 6c 2d 63 6f 6e 74 65 78 | ((eval-context.(new.<eval-contex |
| 10c680 | 74 3e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t>.............................. |
| 10c6a0 | 20 20 40 6d 6f 64 75 6c 65 20 28 66 69 6e 64 2d 62 75 66 66 65 72 2d 6d 6f 64 75 6c 65 20 70 61 | ..@module.(find-buffer-module.pa |
| 10c6c0 | 63 6b 61 67 65 29 20 40 69 64 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ckage).@id.id................... |
| 10c6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 40 70 6f 72 74 20 70 6f 72 74 20 40 70 72 65 76 20 65 76 61 | ............@port.port.@prev.eva |
| 10c700 | 6c 2d 63 6f 6e 74 65 78 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 66 20 72 65 73 75 6c | l-context)))..........(def.resul |
| 10c720 | 74 20 28 65 76 61 6c 20 28 66 72 6f 62 2d 66 6f 72 6d 2d 66 6f 72 2d 65 76 61 6c 20 66 6f 72 6d | t.(eval.(frob-form-for-eval.form |
| 10c740 | 29 20 27 73 77 61 6e 6b 2d 67 6f 6f 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 63 65 2d 6f | ).'swank-goo))..........(force-o |
| 10c760 | 75 74 20 6f 75 74 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 | ut.out)..........(dispatch-event |
| 10c780 | 20 60 28 3a 72 65 74 75 72 6e 20 28 3a 6f 6b 20 2c 72 65 73 75 6c 74 29 20 2c 69 64 29 20 70 6f | .`(:return.(:ok.,result).,id).po |
| 10c7a0 | 72 74 29 29 29 29 0a 20 20 20 28 66 75 6e 20 28 29 20 28 64 69 73 70 61 74 63 68 2d 65 76 65 6e | rt))))....(fun.().(dispatch-even |
| 10c7c0 | 74 20 60 28 3a 72 65 74 75 72 6e 20 28 3a 61 62 6f 72 74 29 20 2c 69 64 29 20 70 6f 72 74 29 29 | t.`(:return.(:abort).,id).port)) |
| 10c7e0 | 29 29 0a 0a 28 64 6d 20 66 69 6e 64 2d 62 75 66 66 65 72 2d 6d 6f 64 75 6c 65 20 28 6e 61 6d 65 | ))..(dm.find-buffer-module.(name |
| 10c800 | 7c 3c 73 74 72 3e 20 3d 3e 20 3c 6d 6f 64 75 6c 65 3e 29 0a 20 20 28 6f 72 20 28 65 6c 74 2d 6f | |<str>.=>.<module>)...(or.(elt-o |
| 10c820 | 72 20 28 61 6c 6c 2d 6d 6f 64 75 6c 65 73 29 20 28 61 73 2d 73 79 6d 20 6e 61 6d 65 29 20 23 66 | r.(all-modules).(as-sym.name).#f |
| 10c840 | 29 0a 20 20 20 20 20 20 28 66 69 6e 64 2d 62 75 66 66 65 72 2d 6d 6f 64 75 6c 65 20 27 6e 69 6c | ).......(find-buffer-module.'nil |
| 10c860 | 29 29 29 0a 0a 28 64 6d 20 66 69 6e 64 2d 62 75 66 66 65 72 2d 6d 6f 64 75 6c 65 20 28 6e 61 6d | )))..(dm.find-buffer-module.(nam |
| 10c880 | 65 7c 3c 6e 69 6c 3e 20 3d 3e 20 3c 6d 6f 64 75 6c 65 3e 29 20 64 65 66 61 75 6c 74 2d 6d 6f 64 | e|<nil>.=>.<module>).default-mod |
| 10c8a0 | 75 6c 65 29 0a 0a 28 64 76 20 64 65 66 61 75 6c 74 2d 6d 6f 64 75 6c 65 7c 3c 6d 6f 64 75 6c 65 | ule)..(dv.default-module|<module |
| 10c8c0 | 3e 20 28 72 75 6e 74 69 6d 65 2d 6d 6f 64 75 6c 65 20 27 67 6f 6f 2f 75 73 65 72 29 29 0a 0a 28 | >.(runtime-module.'goo/user))..( |
| 10c8e0 | 64 2e 20 73 6c 69 6d 65 66 75 6e 73 20 28 66 61 62 20 3c 74 61 62 3e 20 31 30 30 29 29 0a 0a 28 | d..slimefuns.(fab.<tab>.100))..( |
| 10c900 | 64 73 20 64 65 66 73 6c 69 6d 65 66 75 6e 20 28 2c 6e 61 6d 65 20 2c 61 72 67 73 20 2c 40 62 6f | ds.defslimefun.(,name.,args.,@bo |
| 10c920 | 64 79 29 0a 20 20 60 28 73 65 74 20 28 65 6c 74 20 73 6c 69 6d 65 66 75 6e 73 20 27 2c 6e 61 6d | dy)...`(set.(elt.slimefuns.',nam |
| 10c940 | 65 29 20 0a 20 20 20 20 20 20 20 20 28 64 66 20 2c 28 63 61 74 2d 73 79 6d 20 27 73 77 61 6e 6b | e)..........(df.,(cat-sym.'swank |
| 10c960 | 40 20 6e 61 6d 65 29 20 2c 61 72 67 73 20 2c 40 62 6f 64 79 29 29 29 0a 0a 28 64 66 20 73 6c 69 | @.name).,args.,@body)))..(df.sli |
| 10c980 | 6d 65 66 75 6e 20 28 6e 61 6d 65 29 20 0a 20 20 28 6f 72 20 28 65 6c 74 2d 6f 72 20 73 6c 69 6d | mefun.(name)....(or.(elt-or.slim |
| 10c9a0 | 65 66 75 6e 73 20 6e 61 6d 65 20 23 66 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 64 | efuns.name.#f).......(error."Und |
| 10c9c0 | 65 66 69 6e 65 64 20 73 6c 69 6d 65 66 75 6e 3a 20 25 3d 22 20 6e 61 6d 65 29 29 29 0a 0a 3b 3b | efined.slimefun:.%=".name)))..;; |
| 10c9e0 | 20 72 65 77 72 69 74 65 20 28 73 77 61 6e 6b 3a 66 6f 6f 20 2e 2e 2e 29 20 74 6f 20 28 28 73 6c | .rewrite.(swank:foo....).to.((sl |
| 10ca00 | 69 6d 65 66 75 6e 20 27 66 6f 6f 29 20 2e 2e 2e 29 0a 28 64 66 20 66 72 6f 62 2d 66 6f 72 6d 2d | imefun.'foo)....).(df.frob-form- |
| 10ca20 | 66 6f 72 2d 65 76 61 6c 20 28 66 6f 72 6d 29 0a 20 20 28 6d 61 74 63 68 20 66 6f 72 6d 0a 20 20 | for-eval.(form)...(match.form... |
| 10ca40 | 20 20 28 28 2c 6f 70 20 2c 40 61 72 67 73 29 0a 20 20 20 20 20 28 6d 61 74 63 68 20 28 6d 61 70 | ..((,op.,@args)......(match.(map |
| 10ca60 | 20 61 73 2d 73 79 6d 20 28 73 70 6c 69 74 20 28 73 79 6d 2d 6e 61 6d 65 20 6f 70 29 20 23 5c 3a | .as-sym.(split.(sym-name.op).#\: |
| 10ca80 | 29 29 0a 20 20 20 20 20 20 20 28 28 73 77 61 6e 6b 20 2c 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | ))........((swank.,name)........ |
| 10caa0 | 20 60 28 28 73 6c 69 6d 65 66 75 6e 20 27 2c 6e 61 6d 65 29 20 2c 40 61 72 67 73 29 29 29 29 29 | .`((slimefun.',name).,@args))))) |
| 10cac0 | 29 0a 0a 0c 0a 3b 3b 3b 3b 20 64 65 62 75 67 67 65 72 20 0a 0a 28 64 63 20 3c 73 6c 64 62 2d 63 | )....;;;;.debugger...(dc.<sldb-c |
| 10cae0 | 6f 6e 74 65 78 74 3e 20 28 3c 61 6e 79 3e 29 29 0a 28 64 70 20 40 6c 65 76 65 6c 20 28 3c 73 6c | ontext>.(<any>)).(dp.@level.(<sl |
| 10cb00 | 64 62 2d 63 6f 6e 74 65 78 74 3e 20 3d 3e 20 3c 69 6e 74 3e 29 29 0a 28 64 70 20 40 74 6f 70 2d | db-context>.=>.<int>)).(dp.@top- |
| 10cb20 | 66 72 61 6d 65 20 28 3c 73 6c 64 62 2d 63 6f 6e 74 65 78 74 3e 20 3d 3e 20 3c 6c 73 74 3e 29 29 | frame.(<sldb-context>.=>.<lst>)) |
| 10cb40 | 0a 28 64 70 20 40 72 65 73 74 61 72 74 73 20 28 3c 73 6c 64 62 2d 63 6f 6e 74 65 78 74 3e 20 3d | .(dp.@restarts.(<sldb-context>.= |
| 10cb60 | 3e 20 3c 6c 73 74 3e 29 29 0a 28 64 70 20 40 63 6f 6e 64 69 74 69 6f 6e 20 28 3c 73 6c 64 62 2d | >.<lst>)).(dp.@condition.(<sldb- |
| 10cb80 | 63 6f 6e 74 65 78 74 3e 20 3d 3e 20 3c 63 6f 6e 64 69 74 69 6f 6e 3e 29 29 0a 28 64 70 20 40 65 | context>.=>.<condition>)).(dp.@e |
| 10cba0 | 76 61 6c 2d 63 6f 6e 74 65 78 74 20 28 3c 73 6c 64 62 2d 63 6f 6e 74 65 78 74 3e 20 3d 3e 20 28 | val-context.(<sldb-context>.=>.( |
| 10cbc0 | 74 3f 20 3c 65 76 61 6c 2d 63 6f 6e 74 65 78 74 3e 29 29 29 0a 0a 28 64 76 20 73 6c 64 62 2d 63 | t?.<eval-context>)))..(dv.sldb-c |
| 10cbe0 | 6f 6e 74 65 78 74 7c 28 74 3f 20 3c 73 6c 64 62 2d 63 6f 6e 74 65 78 74 3e 29 20 23 66 29 0a 0a | ontext|(t?.<sldb-context>).#f).. |
| 10cc00 | 28 64 66 20 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 28 63 7c 3c 63 6f 6e 64 69 74 69 6f 6e 3e | (df.debugger-hook.(c|<condition> |
| 10cc20 | 20 72 65 73 75 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 74 66 20 28 66 69 6e 64 2d 74 6f 70 2d 66 | .resume)...(let.((tf.(find-top-f |
| 10cc40 | 72 61 6d 65 20 27 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 32 29 29 0a 20 20 20 20 20 20 20 20 | rame.'debugger-hook.2))......... |
| 10cc60 | 28 72 73 20 28 63 6f 6d 70 75 74 65 2d 72 65 73 74 61 72 74 73 20 63 29 29 0a 20 20 20 20 20 20 | (rs.(compute-restarts.c))....... |
| 10cc80 | 20 20 28 6c 20 28 69 66 20 73 6c 64 62 2d 63 6f 6e 74 65 78 74 20 28 31 2b 20 28 40 6c 65 76 65 | ..(l.(if.sldb-context.(1+.(@leve |
| 10cca0 | 6c 20 73 6c 64 62 2d 63 6f 6e 74 65 78 74 29 29 20 31 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | l.sldb-context)).1))).....(cond. |
| 10ccc0 | 28 28 3e 20 6c 20 31 30 29 20 28 65 6d 65 72 67 65 6e 63 79 2d 61 62 6f 72 74 20 63 29 29 0a 20 | ((>.l.10).(emergency-abort.c)).. |
| 10cce0 | 20 20 20 20 20 20 20 20 20 28 23 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 6c 65 74 20 28 28 | .........(#t............(dlet.(( |
| 10cd00 | 73 6c 64 62 2d 63 6f 6e 74 65 78 74 20 28 6e 65 77 20 3c 73 6c 64 62 2d 63 6f 6e 74 65 78 74 3e | sldb-context.(new.<sldb-context> |
| 10cd20 | 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 10cd40 | 20 20 20 20 40 6c 65 76 65 6c 20 6c 20 40 74 6f 70 2d 66 72 61 6d 65 20 74 66 20 0a 20 20 20 20 | ....@level.l.@top-frame.tf...... |
| 10cd60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 72 | ..............................@r |
| 10cd80 | 65 73 74 61 72 74 73 20 72 73 20 40 63 6f 6e 64 69 74 69 6f 6e 20 63 0a 20 20 20 20 20 20 20 20 | estarts.rs.@condition.c......... |
| 10cda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 65 76 61 6c 2d | ..........................@eval- |
| 10cdc0 | 63 6f 6e 74 65 78 74 20 65 76 61 6c 2d 63 6f 6e 74 65 78 74 29 29 29 0a 20 20 20 20 20 20 20 20 | context.eval-context)))......... |
| 10cde0 | 20 20 20 20 20 28 6c 65 74 20 28 28 62 74 20 28 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 | .....(let.((bt.(compute-backtrac |
| 10ce00 | 65 20 74 66 20 30 20 31 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 | e.tf.0.10)))................(for |
| 10ce20 | 63 65 2d 6f 75 74 20 6f 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 | ce-out.out)................(disp |
| 10ce40 | 61 74 63 68 2d 65 76 65 6e 74 20 60 28 3a 64 65 62 75 67 20 30 20 2c 6c 20 0a 20 20 20 20 20 20 | atch-event.`(:debug.0.,l........ |
| 10ce60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 10ce80 | 20 20 2c 40 28 64 65 62 75 67 67 65 72 2d 69 6e 66 6f 20 63 20 72 73 20 62 74 20 65 76 61 6c 2d | ..,@(debugger-info.c.rs.bt.eval- |
| 10cea0 | 63 6f 6e 74 65 78 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | context))....................... |
| 10cec0 | 20 20 20 20 20 20 20 20 20 28 40 70 6f 72 74 20 65 76 61 6c 2d 63 6f 6e 74 65 78 74 29 29 0a 20 | .........(@port.eval-context)).. |
| 10cee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 6c 6f 6f 70 20 6c 20 28 40 70 6f 72 | ..............(sldb-loop.l.(@por |
| 10cf00 | 74 20 65 76 61 6c 2d 63 6f 6e 74 65 78 74 29 29 29 29 29 29 29 29 0a 0a 28 64 66 20 65 6d 65 72 | t.eval-context))))))))..(df.emer |
| 10cf20 | 67 65 6e 63 79 2d 61 62 6f 72 74 20 28 63 29 0a 20 20 28 70 6f 73 74 20 22 4d 61 78 69 6d 75 6d | gency-abort.(c)...(post."Maximum |
| 10cf40 | 20 64 65 62 75 67 20 6c 65 76 65 6c 20 72 65 61 63 68 65 64 20 61 62 6f 72 74 69 6e 67 2e 2e 2e | .debug.level.reached.aborting... |
| 10cf60 | 5c 6e 22 29 0a 20 20 28 70 6f 73 74 20 22 25 73 5c 6e 22 20 28 64 65 73 63 72 69 62 65 2d 63 6f | \n")...(post."%s\n".(describe-co |
| 10cf80 | 6e 64 69 74 69 6f 6e 20 63 29 29 0a 20 20 28 64 6f 2d 73 74 61 63 6b 2d 66 72 61 6d 65 73 20 28 | ndition.c))...(do-stack-frames.( |
| 10cfa0 | 66 75 6e 20 28 66 20 61 72 67 73 29 20 28 6d 73 67 20 6f 75 74 20 22 20 25 3d 20 25 3d 5c 6e 22 | fun.(f.args).(msg.out.".%=.%=\n" |
| 10cfc0 | 20 66 20 61 72 67 73 29 29 29 0a 20 20 28 69 6e 76 6f 6b 65 2d 68 61 6e 64 6c 65 72 2d 69 6e 74 | .f.args)))...(invoke-handler-int |
| 10cfe0 | 65 72 61 63 74 69 76 65 6c 79 20 28 66 69 6e 64 2d 72 65 73 74 61 72 74 20 3c 73 6c 69 6d 65 2d | eractively.(find-restart.<slime- |
| 10d000 | 74 6f 70 6c 65 76 65 6c 3e 29 20 69 6e 20 6f 75 74 29 29 0a 0a 28 64 66 20 73 6c 64 62 2d 6c 6f | toplevel>).in.out))..(df.sldb-lo |
| 10d020 | 6f 70 20 28 6c 65 76 65 6c 20 70 6f 72 74 29 0a 20 20 28 66 69 6e 20 28 77 68 69 6c 65 20 23 74 | op.(level.port)...(fin.(while.#t |
| 10d040 | 0a 20 20 20 20 20 20 20 20 20 28 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 60 28 3a 64 65 62 | ..........(dispatch-event.`(:deb |
| 10d060 | 75 67 2d 61 63 74 69 76 61 74 65 20 30 20 2c 6c 65 76 65 6c 29 20 70 6f 72 74 29 0a 20 20 20 20 | ug-activate.0.,level).port)..... |
| 10d080 | 20 20 20 20 20 28 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 3c | .....(simple-restart...........< |
| 10d0a0 | 72 65 73 74 61 72 74 3e 20 28 6d 73 67 2d 74 6f 2d 73 74 72 20 22 52 65 74 75 72 6e 20 74 6f 20 | restart>.(msg-to-str."Return.to. |
| 10d0c0 | 53 4c 44 42 20 6c 65 76 65 6c 20 25 73 22 20 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | SLDB.level.%s".level)........... |
| 10d0e0 | 28 66 75 6e 20 28 29 20 28 70 72 6f 63 65 73 73 2d 6e 65 78 74 2d 65 76 65 6e 74 20 70 6f 72 74 | (fun.().(process-next-event.port |
| 10d100 | 29 29 29 29 0a 20 20 20 20 28 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 60 28 3a 64 65 62 75 | )))).....(dispatch-event.`(:debu |
| 10d120 | 67 2d 72 65 74 75 72 6e 20 30 20 2c 6c 65 76 65 6c 20 6e 69 6c 29 20 70 6f 72 74 29 29 29 0a 0a | g-return.0.,level.nil).port))).. |
| 10d140 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 62 61 63 6b 74 72 61 63 65 20 28 73 74 61 72 74 7c 3c 69 | (defslimefun.backtrace.(start|<i |
| 10d160 | 6e 74 3e 20 65 6e 64 7c 28 74 2b 20 3c 69 6e 74 3e 20 3c 6e 69 6c 3e 29 29 20 0a 20 20 28 62 61 | nt>.end|(t+.<int>.<nil>))....(ba |
| 10d180 | 63 6b 74 72 61 63 65 2d 66 6f 72 2d 65 6d 61 63 73 20 0a 20 20 20 28 63 6f 6d 70 75 74 65 2d 62 | cktrace-for-emacs.....(compute-b |
| 10d1a0 | 61 63 6b 74 72 61 63 65 20 28 40 74 6f 70 2d 66 72 61 6d 65 20 73 6c 64 62 2d 63 6f 6e 74 65 78 | acktrace.(@top-frame.sldb-contex |
| 10d1c0 | 74 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 20 | t)........................start. |
| 10d1e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 69 73 61 3f | .......................(if.(isa? |
| 10d200 | 20 65 6e 64 20 3c 69 6e 74 3e 29 20 65 6e 64 20 23 66 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d | .end.<int>).end.#f))))..(defslim |
| 10d220 | 65 66 75 6e 20 74 68 72 6f 77 2d 74 6f 2d 74 6f 70 6c 65 76 65 6c 20 28 29 0a 20 20 28 69 6e 76 | efun.throw-to-toplevel.()...(inv |
| 10d240 | 6f 6b 65 2d 68 61 6e 64 6c 65 72 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 28 66 69 6e 64 2d | oke-handler-interactively.(find- |
| 10d260 | 72 65 73 74 61 72 74 20 3c 73 6c 69 6d 65 2d 74 6f 70 6c 65 76 65 6c 3e 29 20 69 6e 20 6f 75 74 | restart.<slime-toplevel>).in.out |
| 10d280 | 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 76 6f 6b 65 2d 6e 74 68 2d 72 65 73 74 | ))..(defslimefun.invoke-nth-rest |
| 10d2a0 | 61 72 74 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 6c 64 62 2d 6c 65 76 65 6c 7c 3c 69 6e 74 3e 20 | art-for-emacs.(sldb-level|<int>. |
| 10d2c0 | 6e 7c 3c 69 6e 74 3e 29 0a 20 20 28 77 68 65 6e 20 28 3d 20 28 40 6c 65 76 65 6c 20 73 6c 64 62 | n|<int>)...(when.(=.(@level.sldb |
| 10d2e0 | 2d 63 6f 6e 74 65 78 74 29 20 73 6c 64 62 2d 6c 65 76 65 6c 29 0a 20 20 20 20 28 69 6e 76 6f 6b | -context).sldb-level).....(invok |
| 10d300 | 65 2d 68 61 6e 64 6c 65 72 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 28 65 6c 74 20 28 40 72 | e-handler-interactively.(elt.(@r |
| 10d320 | 65 73 74 61 72 74 73 20 73 6c 64 62 2d 63 6f 6e 74 65 78 74 29 20 6e 29 20 69 6e 20 6f 75 74 29 | estarts.sldb-context).n).in.out) |
| 10d340 | 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 65 62 75 67 67 65 72 2d 69 6e 66 6f 2d 66 | ))..(defslimefun.debugger-info-f |
| 10d360 | 6f 72 2d 65 6d 61 63 73 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 64 65 62 75 67 67 65 72 | or-emacs.(start.end)...(debugger |
| 10d380 | 2d 69 6e 66 6f 20 28 40 63 6f 6e 64 69 74 69 6f 6e 20 73 6c 64 62 2d 63 6f 6e 74 65 78 74 29 20 | -info.(@condition.sldb-context). |
| 10d3a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 40 72 65 73 74 61 72 74 73 20 73 6c 64 | ..................(@restarts.sld |
| 10d3c0 | 62 2d 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d | b-context)..................(com |
| 10d3e0 | 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 28 40 74 6f 70 2d 66 72 61 6d 65 20 73 6c 64 62 2d | pute-backtrace.(@top-frame.sldb- |
| 10d400 | 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | context)........................ |
| 10d420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............start.............. |
| 10d440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 69 73 61 3f | .......................(if.(isa? |
| 10d460 | 20 65 6e 64 20 3c 69 6e 74 3e 29 20 65 6e 64 20 23 66 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d | .end.<int>).end.#f))))..(defslim |
| 10d480 | 65 66 75 6e 20 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 2d 61 6e 64 2d 63 61 74 63 68 2d 74 61 67 73 | efun.frame-locals-and-catch-tags |
| 10d4a0 | 20 28 66 72 61 6d 65 2d 69 64 78 29 0a 20 20 28 64 65 66 20 66 72 61 6d 65 20 28 6e 74 68 2d 66 | .(frame-idx)...(def.frame.(nth-f |
| 10d4c0 | 72 61 6d 65 20 66 72 61 6d 65 2d 69 64 78 29 29 0a 20 20 28 6c 69 73 74 0a 20 20 20 28 6d 61 70 | rame.frame-idx))...(list....(map |
| 10d4e0 | 2d 6b 65 79 65 64 20 28 66 75 6e 20 28 69 20 6e 61 6d 65 29 20 0a 20 20 20 20 20 20 20 20 20 20 | -keyed.(fun.(i.name)............ |
| 10d500 | 20 20 20 20 20 20 28 6c 73 74 20 27 3a 6e 61 6d 65 20 28 73 79 6d 2d 6e 61 6d 65 20 6e 61 6d 65 | ......(lst.':name.(sym-name.name |
| 10d520 | 29 20 27 3a 69 64 20 30 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | ).':id.0.......................' |
| 10d540 | 3a 76 61 6c 75 65 20 28 73 61 66 65 2d 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 66 72 | :value.(safe-write-to-string.(fr |
| 10d560 | 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 66 72 61 6d 65 20 69 29 29 29 29 0a 20 20 20 20 20 20 | ame-var-value.frame.i))))....... |
| 10d580 | 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 2d 76 61 72 2d 6e 61 6d 65 73 20 66 72 61 6d 65 29 29 | ........(frame-var-names.frame)) |
| 10d5a0 | 0a 20 20 20 27 28 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 2d | ....'()))..(defslimefun.inspect- |
| 10d5c0 | 66 72 61 6d 65 2d 76 61 72 20 28 66 72 61 6d 65 2d 69 64 78 20 76 61 72 2d 69 64 78 29 0a 20 20 | frame-var.(frame-idx.var-idx)... |
| 10d5e0 | 28 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a | (reset-inspector)...(inspect-obj |
| 10d600 | 65 63 74 20 28 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 | ect.(frame-var-value.(nth-frame. |
| 10d620 | 66 72 61 6d 65 2d 69 64 78 29 20 76 61 72 2d 69 64 78 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 | frame-idx).var-idx)))..(defslime |
| 10d640 | 66 75 6e 20 69 6e 73 70 65 63 74 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 29 | fun.inspect-current-condition.() |
| 10d660 | 0a 20 20 28 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 28 69 6e 73 70 65 63 74 2d | ...(reset-inspector)...(inspect- |
| 10d680 | 6f 62 6a 65 63 74 20 28 40 63 6f 6e 64 69 74 69 6f 6e 20 73 6c 64 62 2d 63 6f 6e 74 65 78 74 29 | object.(@condition.sldb-context) |
| 10d6a0 | 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f | ))..(defslimefun.frame-source-lo |
| 10d6c0 | 63 61 74 69 6f 6e 20 28 66 72 61 6d 65 2d 69 64 78 29 0a 20 20 28 6d 61 74 63 68 20 28 6e 74 68 | cation.(frame-idx)...(match.(nth |
| 10d6e0 | 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 69 64 78 29 0a 20 20 20 20 28 28 2c 66 20 2c 40 5f 29 0a | -frame.frame-idx).....((,f.,@_). |
| 10d700 | 20 20 20 20 20 28 6f 72 20 28 65 6d 61 63 73 2d 73 72 63 2d 6c 6f 63 20 66 29 0a 20 20 20 20 20 | .....(or.(emacs-src-loc.f)...... |
| 10d720 | 20 20 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 6d 73 67 2d 74 6f 2d 73 74 72 20 22 4e 6f 20 73 72 | ....`(:error.,(msg-to-str."No.sr |
| 10d740 | 63 2d 6c 6f 63 20 61 76 61 69 6c 61 62 6c 65 20 66 6f 72 3a 20 25 73 22 20 66 29 29 29 29 29 29 | c-loc.available.for:.%s".f)))))) |
| 10d760 | 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 65 76 61 6c 2d 73 74 72 69 6e 67 2d 69 6e 2d 66 72 | ..(defslimefun.eval-string-in-fr |
| 10d780 | 61 6d 65 20 28 73 74 72 69 6e 67 20 66 72 61 6d 65 2d 69 64 78 29 0a 20 20 28 64 65 66 20 66 72 | ame.(string.frame-idx)...(def.fr |
| 10d7a0 | 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 69 64 78 29 29 0a 20 20 28 6c 65 | ame.(nth-frame.frame-idx))...(le |
| 10d7c0 | 74 20 28 28 6e 61 6d 65 73 20 28 66 72 61 6d 65 2d 76 61 72 2d 6e 61 6d 65 73 20 66 72 61 6d 65 | t.((names.(frame-var-names.frame |
| 10d7e0 | 29 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 66 72 61 6d 65 2d 76 61 72 2d 76 61 | )).........(values.(frame-var-va |
| 10d800 | 6c 75 65 73 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 | lues.frame))).....(write-to-stri |
| 10d820 | 6e 67 20 0a 20 20 20 20 20 28 61 70 70 20 28 65 76 61 6c 20 60 28 66 75 6e 20 2c 6e 61 6d 65 73 | ng.......(app.(eval.`(fun.,names |
| 10d840 | 20 2c 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 20 0a 20 20 | .,(read-from-string.string)).... |
| 10d860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 28 62 75 66 66 | ..............(module-name.(buff |
| 10d880 | 65 72 2d 6d 6f 64 75 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 73 29 29 29 | er-module)))...........values))) |
| 10d8a0 | 29 0a 0a 28 64 66 20 64 65 62 75 67 67 65 72 2d 69 6e 66 6f 20 28 63 6f 6e 64 69 74 69 6f 6e 20 | )..(df.debugger-info.(condition. |
| 10d8c0 | 72 65 73 74 61 72 74 73 20 62 61 63 6b 74 72 61 63 65 20 65 76 61 6c 2d 63 6f 6e 74 65 78 74 29 | restarts.backtrace.eval-context) |
| 10d8e0 | 0a 20 20 28 6c 73 74 20 60 28 2c 28 74 72 79 2d 6f 72 20 28 66 75 6e 20 28 29 20 28 64 65 73 63 | ...(lst.`(,(try-or.(fun.().(desc |
| 10d900 | 72 69 62 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 20 22 3c 2e 2e 2e | ribe-condition.condition))."<... |
| 10d920 | 3e 22 29 0a 20 20 20 20 20 20 20 20 20 2c 28 63 61 74 20 22 20 20 5b 63 6c 61 73 73 3a 20 22 20 | >")..........,(cat."..[class:.". |
| 10d940 | 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 74 72 20 63 6f 6e 64 69 74 69 6f 6e 29 20 22 5d 22 29 0a | (class-name-str.condition)."]"). |
| 10d960 | 20 20 20 20 20 20 20 20 20 28 29 29 0a 20 20 20 20 20 20 20 28 72 65 73 74 61 72 74 73 2d 66 6f | .........())........(restarts-fo |
| 10d980 | 72 2d 65 6d 61 63 73 20 72 65 73 74 61 72 74 73 29 0a 20 20 20 20 20 20 20 28 62 61 63 6b 74 72 | r-emacs.restarts)........(backtr |
| 10d9a0 | 61 63 65 2d 66 6f 72 2d 65 6d 61 63 73 20 62 61 63 6b 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 | ace-for-emacs.backtrace)........ |
| 10d9c0 | 28 70 65 6e 64 69 6e 67 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 65 76 61 6c 2d 63 6f 6e 74 | (pending-continuations.eval-cont |
| 10d9e0 | 65 78 74 29 29 29 0a 0a 28 64 66 20 62 61 63 6b 74 72 61 63 65 2d 66 6f 72 2d 65 6d 61 63 73 20 | ext)))..(df.backtrace-for-emacs. |
| 10da00 | 28 62 61 63 6b 74 72 61 63 65 29 0a 20 20 28 6d 61 70 20 28 66 75 6e 20 28 66 29 20 0a 20 20 20 | (backtrace)...(map.(fun.(f)..... |
| 10da20 | 20 20 20 20 20 20 28 6d 61 74 63 68 20 66 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 2c 69 64 78 | ......(match.f............((,idx |
| 10da40 | 20 28 2c 66 20 2c 40 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 73 74 20 69 | .(,f.,@args)).............(lst.i |
| 10da60 | 64 78 20 28 63 61 74 20 28 69 66 20 28 66 75 6e 2d 6e 61 6d 65 20 66 29 20 0a 20 20 20 20 20 20 | dx.(cat.(if.(fun-name.f)........ |
| 10da80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 2d 6e 61 6d | ........................(sym-nam |
| 10daa0 | 65 20 28 66 75 6e 2d 6e 61 6d 65 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.(fun-name.f))................. |
| 10dac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 66 65 2d 77 72 69 74 65 2d 74 6f 2d 73 74 72 | ..............(safe-write-to-str |
| 10dae0 | 69 6e 67 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing.f))......................... |
| 10db00 | 20 20 28 73 61 66 65 2d 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 61 72 67 73 29 29 29 29 | ..(safe-write-to-string.args)))) |
| 10db20 | 29 29 0a 20 20 20 20 20 20 20 62 61 63 6b 74 72 61 63 65 29 29 0a 0a 28 64 66 20 72 65 73 74 61 | ))........backtrace))..(df.resta |
| 10db40 | 72 74 73 2d 66 6f 72 2d 65 6d 61 63 73 20 28 72 65 73 74 61 72 74 73 29 0a 20 20 28 6d 61 70 20 | rts-for-emacs.(restarts)...(map. |
| 10db60 | 28 66 75 6e 20 28 78 29 20 60 28 2c 28 73 79 6d 2d 6e 61 6d 65 20 28 63 6c 61 73 73 2d 6e 61 6d | (fun.(x).`(,(sym-name.(class-nam |
| 10db80 | 65 20 28 25 68 61 6e 64 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 74 79 70 65 20 78 29 29 29 0a | e.(%handler-condition-type.x))). |
| 10dba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 64 65 73 63 72 69 62 65 2d 72 65 73 | ..................,(describe-res |
| 10dbc0 | 74 61 72 74 20 78 29 29 29 0a 20 20 20 20 20 20 20 72 65 73 74 61 72 74 73 29 29 0a 0a 28 64 66 | tart.x)))........restarts))..(df |
| 10dbe0 | 20 64 65 73 63 72 69 62 65 2d 72 65 73 74 61 72 74 20 28 72 65 73 74 61 72 74 29 0a 20 20 28 64 | .describe-restart.(restart)...(d |
| 10dc00 | 65 73 63 72 69 62 65 2d 68 61 6e 64 6c 65 72 20 28 25 68 61 6e 64 6c 65 72 2d 69 6e 66 6f 20 72 | escribe-handler.(%handler-info.r |
| 10dc20 | 65 73 74 61 72 74 29 20 28 25 68 61 6e 64 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 74 79 70 65 | estart).(%handler-condition-type |
| 10dc40 | 20 72 65 73 74 61 72 74 29 29 29 0a 0a 28 64 66 20 63 6f 6d 70 75 74 65 2d 72 65 73 74 61 72 74 | .restart)))..(df.compute-restart |
| 10dc60 | 73 20 28 63 6f 6e 64 69 74 69 6f 6e 29 20 0a 20 20 28 70 61 63 6b 69 6e 67 20 28 25 64 6f 2d 68 | s.(condition)....(packing.(%do-h |
| 10dc80 | 61 6e 64 6c 65 72 73 2d 6f 66 2d 74 79 70 65 20 3c 72 65 73 74 61 72 74 3e 20 28 66 75 6e 20 28 | andlers-of-type.<restart>.(fun.( |
| 10dca0 | 63 29 20 28 70 61 63 6b 20 63 29 29 29 29 29 0a 0a 28 64 66 20 66 69 6e 64 2d 72 65 73 74 61 72 | c).(pack.c)))))..(df.find-restar |
| 10dcc0 | 74 20 28 74 79 70 65 29 0a 20 20 28 65 73 63 20 72 65 74 20 0a 20 20 20 20 28 25 64 6f 2d 68 61 | t.(type)...(esc.ret......(%do-ha |
| 10dce0 | 6e 64 6c 65 72 73 2d 6f 66 2d 74 79 70 65 20 74 79 70 65 20 72 65 74 29 0a 20 20 20 20 23 66 29 | ndlers-of-type.type.ret).....#f) |
| 10dd00 | 29 0a 0a 28 64 66 20 70 65 6e 64 69 6e 67 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 28 63 6f | )..(df.pending-continuations.(co |
| 10dd20 | 6e 74 65 78 74 7c 28 74 3f 20 3c 65 76 61 6c 2d 63 6f 6e 74 65 78 74 3e 29 29 0a 20 20 28 69 66 | ntext|(t?.<eval-context>))...(if |
| 10dd40 | 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 28 70 61 69 72 20 28 40 69 64 20 63 6f 6e 74 65 78 | .context.......(pair.(@id.contex |
| 10dd60 | 74 29 20 28 70 65 6e 64 69 6e 67 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 28 40 70 72 65 76 | t).(pending-continuations.(@prev |
| 10dd80 | 20 63 6f 6e 74 65 78 74 29 29 29 0a 20 20 20 20 20 20 27 28 29 29 29 0a 0a 28 64 66 20 66 69 6e | .context))).......'()))..(df.fin |
| 10dda0 | 64 2d 74 6f 70 2d 66 72 61 6d 65 20 28 66 6e 61 6d 65 7c 3c 73 79 6d 3e 20 6f 66 66 73 65 74 7c | d-top-frame.(fname|<sym>.offset| |
| 10ddc0 | 3c 69 6e 74 3e 29 0a 20 20 28 65 73 63 20 72 65 74 20 0a 20 20 20 20 28 6c 65 74 20 28 28 74 6f | <int>)...(esc.ret......(let.((to |
| 10dde0 | 70 2d 73 65 65 6e 3f 20 23 66 29 29 0a 20 20 20 20 20 20 28 64 6f 2d 73 74 61 63 6b 2d 66 72 61 | p-seen?.#f)).......(do-stack-fra |
| 10de00 | 6d 65 73 20 28 66 75 6e 20 28 66 20 61 72 67 73 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | mes.(fun.(f.args)............... |
| 10de20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 74 6f 70 2d 73 65 65 6e 3f 0a 20 20 20 | ............(cond.(top-seen?.... |
| 10de40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | .............................(co |
| 10de60 | 6e 64 20 28 28 3d 3d 20 6f 66 66 73 65 74 20 30 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd.((==.offset.0)............... |
| 10de80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 20 28 | ..........................(ret.( |
| 10dea0 | 70 61 69 72 20 66 20 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pair.f.args))).................. |
| 10dec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 64 65 63 66 20 6f | .....................(#t.(decf.o |
| 10dee0 | 66 66 73 65 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ffset))))....................... |
| 10df00 | 20 20 20 20 20 20 20 20 20 28 28 3d 3d 20 28 66 75 6e 2d 6e 61 6d 65 20 66 29 20 66 6e 61 6d 65 | .........((==.(fun-name.f).fname |
| 10df20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 10df40 | 20 20 28 73 65 74 20 74 6f 70 2d 73 65 65 6e 3f 20 23 74 29 29 29 29 29 29 29 29 0a 0a 28 64 66 | ..(set.top-seen?.#t))))))))..(df |
| 10df60 | 20 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 28 74 6f 70 2d 66 72 61 6d 65 20 73 74 | .compute-backtrace.(top-frame.st |
| 10df80 | 61 72 74 7c 3c 69 6e 74 3e 20 65 6e 64 29 0a 20 20 28 70 61 63 6b 69 6e 67 0a 20 20 20 20 20 20 | art|<int>.end)...(packing....... |
| 10dfa0 | 28 65 73 63 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 28 64 6f 2d 75 73 65 72 2d 66 72 61 6d | (esc.break.........(do-user-fram |
| 10dfc0 | 65 73 20 28 66 75 6e 20 28 69 64 78 20 66 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | es.(fun.(idx.f.args)............ |
| 10dfe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 65 6e 64 20 28 3c | ...............(when.(and.end.(< |
| 10e000 | 3d 20 65 6e 64 20 69 64 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | =.end.idx))..................... |
| 10e020 | 20 20 20 20 20 20 20 20 28 62 72 65 61 6b 20 23 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ........(break.#f))............. |
| 10e040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3c 3d 20 73 74 61 72 74 20 69 64 | ..............(when.(<=.start.id |
| 10e060 | 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | x).............................( |
| 10e080 | 70 61 63 6b 20 28 6c 73 74 20 69 64 78 20 28 70 61 69 72 20 66 20 61 72 67 73 29 29 29 29 29 0a | pack.(lst.idx.(pair.f.args))))). |
| 10e0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 70 2d 66 72 61 6d | ........................top-fram |
| 10e0c0 | 65 29 29 29 29 0a 0a 28 64 66 20 6e 74 68 2d 66 72 61 6d 65 20 28 6e 7c 3c 69 6e 74 3e 29 0a 20 | e))))..(df.nth-frame.(n|<int>).. |
| 10e0e0 | 20 28 65 73 63 20 72 65 74 20 0a 20 20 20 20 28 64 6f 2d 75 73 65 72 2d 66 72 61 6d 65 73 20 0a | .(esc.ret......(do-user-frames.. |
| 10e100 | 20 20 20 20 20 28 66 75 6e 20 28 69 64 78 20 66 20 61 72 67 73 29 20 0a 20 20 20 20 20 20 20 28 | .....(fun.(idx.f.args).........( |
| 10e120 | 77 68 65 6e 20 28 3d 20 69 64 78 20 6e 29 20 0a 20 20 20 20 20 20 20 20 20 28 72 65 74 20 28 70 | when.(=.idx.n)...........(ret.(p |
| 10e140 | 61 69 72 20 66 20 61 72 67 73 29 29 29 29 0a 20 20 20 20 20 28 40 74 6f 70 2d 66 72 61 6d 65 20 | air.f.args))))......(@top-frame. |
| 10e160 | 73 6c 64 62 2d 63 6f 6e 74 65 78 74 29 29 29 29 0a 0a 28 64 66 20 66 72 61 6d 65 2d 76 61 72 2d | sldb-context))))..(df.frame-var- |
| 10e180 | 76 61 6c 75 65 20 28 66 72 61 6d 65 20 76 61 72 2d 69 64 78 29 0a 20 20 28 6d 61 74 63 68 20 66 | value.(frame.var-idx)...(match.f |
| 10e1a0 | 72 61 6d 65 0a 20 20 20 20 28 28 2c 66 20 2c 40 61 72 67 73 29 0a 20 20 20 20 20 28 64 65 66 20 | rame.....((,f.,@args)......(def. |
| 10e1c0 | 73 69 67 20 28 66 75 6e 2d 73 69 67 20 66 29 29 0a 20 20 20 20 20 28 64 65 66 20 61 72 69 74 79 | sig.(fun-sig.f))......(def.arity |
| 10e1e0 | 20 28 73 69 67 2d 61 72 69 74 79 20 73 69 67 29 29 0a 20 20 20 20 20 28 64 65 66 20 6e 61 72 79 | .(sig-arity.sig))......(def.nary |
| 10e200 | 3f 20 28 73 69 67 2d 6e 61 72 79 3f 20 73 69 67 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 | ?.(sig-nary?.sig))......(cond.(( |
| 10e220 | 3c 20 76 61 72 2d 69 64 78 20 61 72 69 74 79 29 20 28 65 6c 74 20 61 72 67 73 20 76 61 72 2d 69 | <.var-idx.arity).(elt.args.var-i |
| 10e240 | 64 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 72 79 3f 20 28 73 75 62 2a 20 61 72 67 | dx))............(nary?.(sub*.arg |
| 10e260 | 73 20 61 72 69 74 79 29 29 29 29 29 29 0a 0a 28 64 66 20 66 72 61 6d 65 2d 76 61 72 2d 6e 61 6d | s.arity))))))..(df.frame-var-nam |
| 10e280 | 65 73 20 28 66 72 61 6d 65 29 0a 20 20 28 6d 61 74 63 68 20 66 72 61 6d 65 0a 20 20 20 20 28 28 | es.(frame)...(match.frame.....(( |
| 10e2a0 | 2c 66 20 2c 40 5f 29 20 28 66 75 6e 2d 69 6e 66 6f 2d 6e 61 6d 65 73 20 28 66 75 6e 2d 69 6e 66 | ,f.,@_).(fun-info-names.(fun-inf |
| 10e2c0 | 6f 20 66 29 29 29 29 29 0a 0a 28 64 66 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 73 20 28 | o.f)))))..(df.frame-var-values.( |
| 10e2e0 | 66 72 61 6d 65 29 0a 20 20 28 6d 61 70 20 28 63 75 72 72 79 20 66 72 61 6d 65 2d 76 61 72 2d 76 | frame)...(map.(curry.frame-var-v |
| 10e300 | 61 6c 75 65 20 66 72 61 6d 65 29 20 28 6b 65 79 73 20 28 66 72 61 6d 65 2d 76 61 72 2d 6e 61 6d | alue.frame).(keys.(frame-var-nam |
| 10e320 | 65 73 20 66 72 61 6d 65 29 29 29 29 0a 0a 28 64 66 20 64 6f 2d 75 73 65 72 2d 66 72 61 6d 65 73 | es.frame))))..(df.do-user-frames |
| 10e340 | 20 28 66 7c 3c 66 75 6e 3e 20 74 6f 70 2d 66 72 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 69 64 | .(f|<fun>.top-frame)...(let.((id |
| 10e360 | 78 20 2d 31 29 0a 20 20 20 20 20 20 20 20 28 74 6f 70 2d 73 65 65 6e 3f 20 23 66 29 29 0a 20 20 | x.-1).........(top-seen?.#f))... |
| 10e380 | 20 20 28 64 6f 2d 73 74 61 63 6b 2d 66 72 61 6d 65 73 0a 20 20 20 20 20 28 66 75 6e 20 28 66 66 | ..(do-stack-frames......(fun.(ff |
| 10e3a0 | 75 6e 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 74 6f 70 2d 73 65 65 6e 3f | un.args)........(cond.(top-seen? |
| 10e3c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 69 64 78 29 0a 20 20 20 20 20 20 | ...............(incf.idx)....... |
| 10e3e0 | 20 20 20 20 20 20 20 20 28 66 20 69 64 78 20 66 66 75 6e 20 28 72 65 76 20 61 72 67 73 29 29 29 | ........(f.idx.ffun.(rev.args))) |
| 10e400 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 28 70 61 69 72 20 66 66 75 6e 20 61 72 67 | ..............((=.(pair.ffun.arg |
| 10e420 | 73 29 20 74 6f 70 2d 66 72 61 6d 65 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | s).top-frame)................(se |
| 10e440 | 74 20 74 6f 70 2d 73 65 65 6e 3f 20 23 74 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 57 72 | t.top-seen?.#t)))))))....;;;;.Wr |
| 10e460 | 69 74 65 20 73 6f 6d 65 20 63 6c 61 73 73 65 73 20 61 20 6c 69 74 74 6c 65 20 6c 65 73 73 20 76 | ite.some.classes.a.little.less.v |
| 10e480 | 65 72 62 6f 73 65 0a 0a 3b 3b 20 28 64 6d 20 72 65 63 75 72 72 69 6e 67 2d 77 72 69 74 65 20 28 | erbose..;;.(dm.recurring-write.( |
| 10e4a0 | 70 6f 72 74 7c 3c 6f 75 74 2d 70 6f 72 74 3e 20 78 20 64 7c 3c 69 6e 74 3e 20 72 65 63 75 72 7c | port|<out-port>.x.d|<int>.recur| |
| 10e4c0 | 3c 66 75 6e 3e 29 0a 3b 3b 20 20 20 28 6d 73 67 20 70 6f 72 74 20 22 23 7b 25 73 20 26 25 73 7d | <fun>).;;...(msg.port."#{%s.&%s} |
| 10e4e0 | 22 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 74 72 20 78 29 20 0a 3b 3b 20 20 20 20 20 20 20 20 | ".(class-name-str.x)..;;........ |
| 10e500 | 28 6e 75 6d 2d 74 6f 2d 73 74 72 2d 62 61 73 65 20 28 61 64 64 72 65 73 73 2d 6f 66 20 78 29 20 | (num-to-str-base.(address-of.x). |
| 10e520 | 31 36 29 29 29 0a 0a 28 64 6d 20 72 65 63 75 72 72 69 6e 67 2d 77 72 69 74 65 20 28 70 6f 72 74 | 16)))..(dm.recurring-write.(port |
| 10e540 | 7c 3c 6f 75 74 2d 70 6f 72 74 3e 20 78 7c 3c 6d 6f 64 75 6c 65 3e 20 64 7c 3c 69 6e 74 3e 20 72 | |<out-port>.x|<module>.d|<int>.r |
| 10e560 | 65 63 75 72 7c 3c 66 75 6e 3e 29 0a 20 20 28 6d 73 67 20 70 6f 72 74 20 22 23 7b 25 73 20 25 73 | ecur|<fun>)...(msg.port."#{%s.%s |
| 10e580 | 7d 22 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 74 72 20 78 29 20 28 6d 6f 64 75 6c 65 2d 6e 61 | }".(class-name-str.x).(module-na |
| 10e5a0 | 6d 65 20 78 29 29 29 0a 0a 28 64 6d 20 72 65 63 75 72 72 69 6e 67 2d 77 72 69 74 65 20 28 70 6f | me.x)))..(dm.recurring-write.(po |
| 10e5c0 | 72 74 7c 3c 6f 75 74 2d 70 6f 72 74 3e 20 78 7c 3c 6d 6f 64 75 6c 65 2d 62 69 6e 64 69 6e 67 3e | rt|<out-port>.x|<module-binding> |
| 10e5e0 | 20 64 7c 3c 69 6e 74 3e 20 72 65 63 75 72 7c 3c 66 75 6e 3e 29 0a 20 20 28 6d 73 67 20 70 6f 72 | .d|<int>.recur|<fun>)...(msg.por |
| 10e600 | 74 20 22 23 7b 25 73 20 25 73 7d 22 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 74 72 20 78 29 20 | t."#{%s.%s}".(class-name-str.x). |
| 10e620 | 28 62 69 6e 64 69 6e 67 2d 6e 61 6d 65 20 78 29 29 29 0a 0a 28 64 6d 20 72 65 63 75 72 72 69 6e | (binding-name.x)))..(dm.recurrin |
| 10e640 | 67 2d 77 72 69 74 65 20 28 70 6f 72 74 7c 3c 6f 75 74 2d 70 6f 72 74 3e 20 78 7c 3c 74 61 62 3e | g-write.(port|<out-port>.x|<tab> |
| 10e660 | 20 64 7c 3c 69 6e 74 3e 20 72 65 63 75 72 7c 3c 66 75 6e 3e 29 0a 20 20 28 6d 73 67 20 70 6f 72 | .d|<int>.recur|<fun>)...(msg.por |
| 10e680 | 74 20 22 23 7b 25 73 20 25 73 7d 22 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 74 72 20 78 29 20 | t."#{%s.%s}".(class-name-str.x). |
| 10e6a0 | 28 6c 65 6e 20 78 29 29 29 0a 0a 28 64 6d 20 72 65 63 75 72 72 69 6e 67 2d 77 72 69 74 65 20 28 | (len.x)))..(dm.recurring-write.( |
| 10e6c0 | 70 6f 72 74 7c 3c 6f 75 74 2d 70 6f 72 74 3e 20 78 7c 3c 73 74 61 74 69 63 2d 67 6c 6f 62 61 6c | port|<out-port>.x|<static-global |
| 10e6e0 | 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 3e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -environment>................... |
| 10e700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 7c 3c 69 6e 74 3e 20 72 65 63 75 | ....................d|<int>.recu |
| 10e720 | 72 7c 3c 66 75 6e 3e 29 0a 20 20 28 6d 73 67 20 70 6f 72 74 20 22 23 7b 25 73 7d 22 20 28 63 6c | r|<fun>)...(msg.port."#{%s}".(cl |
| 10e740 | 61 73 73 2d 6e 61 6d 65 2d 73 74 72 20 78 29 29 29 0a 0a 28 64 6d 20 72 65 63 75 72 72 69 6e 67 | ass-name-str.x)))..(dm.recurring |
| 10e760 | 2d 77 72 69 74 65 20 28 70 6f 72 74 7c 3c 6f 75 74 2d 70 6f 72 74 3e 20 78 7c 3c 72 65 67 75 6c | -write.(port|<out-port>.x|<regul |
| 10e780 | 61 72 2d 61 70 70 6c 69 63 61 74 69 6f 6e 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ar-application>................. |
| 10e7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 7c 3c 69 6e 74 3e 20 72 65 63 | .....................d|<int>.rec |
| 10e7c0 | 75 72 7c 3c 66 75 6e 3e 29 0a 20 20 28 6d 73 67 20 70 6f 72 74 20 22 23 7b 25 73 7d 22 20 28 63 | ur|<fun>)...(msg.port."#{%s}".(c |
| 10e7e0 | 6c 61 73 73 2d 6e 61 6d 65 2d 73 74 72 20 78 29 29 29 0a 0a 28 64 6d 20 72 65 63 75 72 72 69 6e | lass-name-str.x)))..(dm.recurrin |
| 10e800 | 67 2d 77 72 69 74 65 20 28 70 6f 72 74 7c 3c 6f 75 74 2d 70 6f 72 74 3e 20 78 7c 3c 73 72 63 2d | g-write.(port|<out-port>.x|<src- |
| 10e820 | 6c 6f 63 3e 20 64 7c 3c 69 6e 74 3e 20 72 65 63 75 72 7c 3c 66 75 6e 3e 29 0a 20 20 28 6d 73 67 | loc>.d|<int>.recur|<fun>)...(msg |
| 10e840 | 20 70 6f 72 74 20 22 23 7b 25 73 20 25 73 3a 25 3d 7d 22 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d | .port."#{%s.%s:%=}".(class-name- |
| 10e860 | 73 74 72 20 78 29 0a 20 20 20 20 20 20 20 28 73 72 63 2d 6c 6f 63 2d 66 69 6c 65 20 78 29 20 28 | str.x)........(src-loc-file.x).( |
| 10e880 | 73 72 63 2d 6c 6f 63 2d 6c 69 6e 65 20 78 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 | src-loc-line.x)))....;;;;.Inspec |
| 10e8a0 | 74 6f 72 0a 0a 28 64 63 20 3c 69 6e 73 70 65 63 74 6f 72 3e 20 28 3c 61 6e 79 3e 29 29 0a 28 64 | tor..(dc.<inspector>.(<any>)).(d |
| 10e8c0 | 70 21 20 40 6f 62 6a 65 63 74 20 28 3c 69 6e 73 70 65 63 74 6f 72 3e 20 3d 3e 20 3c 61 6e 79 3e | p!.@object.(<inspector>.=>.<any> |
| 10e8e0 | 29 29 0a 28 64 70 21 20 40 70 61 72 74 73 20 28 3c 69 6e 73 70 65 63 74 6f 72 3e 20 3d 3e 20 3c | )).(dp!.@parts.(<inspector>.=>.< |
| 10e900 | 76 65 63 3e 29 20 28 6e 65 77 20 3c 76 65 63 3e 29 29 0a 28 64 70 21 20 40 73 74 61 63 6b 20 28 | vec>).(new.<vec>)).(dp!.@stack.( |
| 10e920 | 3c 69 6e 73 70 65 63 74 6f 72 3e 20 3d 3e 20 3c 6c 73 74 3e 29 20 27 28 29 29 0a 0a 28 64 76 20 | <inspector>.=>.<lst>).'())..(dv. |
| 10e940 | 69 6e 73 70 65 63 74 6f 72 20 23 66 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 69 74 | inspector.#f)..(defslimefun.init |
| 10e960 | 2d 69 6e 73 70 65 63 74 6f 72 20 28 66 6f 72 6d 7c 3c 73 74 72 3e 29 0a 20 20 28 72 65 73 65 74 | -inspector.(form|<str>)...(reset |
| 10e980 | 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 73 | -inspector)...(inspect-object.(s |
| 10e9a0 | 74 72 2d 65 76 61 6c 20 66 6f 72 6d 20 28 62 75 66 66 65 72 2d 6d 6f 64 75 6c 65 29 29 29 29 0a | tr-eval.form.(buffer-module)))). |
| 10e9c0 | 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 71 75 69 74 2d 69 6e 73 70 65 63 74 6f 72 20 28 29 20 | .(defslimefun.quit-inspector.(). |
| 10e9e0 | 28 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 20 27 6e 69 6c 29 0a 0a 28 64 65 66 73 6c 69 | (reset-inspector).'nil)..(defsli |
| 10ea00 | 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 6e 74 68 2d 70 61 72 74 20 28 6e 7c 3c 69 6e 74 3e 29 | mefun.inspect-nth-part.(n|<int>) |
| 10ea20 | 0a 20 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 65 6c 74 20 28 40 70 61 72 74 73 20 | ...(inspect-object.(elt.(@parts. |
| 10ea40 | 69 6e 73 70 65 63 74 6f 72 29 20 6e 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e | inspector).n)))..(defslimefun.in |
| 10ea60 | 73 70 65 63 74 6f 72 2d 70 6f 70 20 28 29 0a 20 20 28 63 6f 6e 64 20 28 28 3c 3d 20 32 20 28 6c | spector-pop.()...(cond.((<=.2.(l |
| 10ea80 | 65 6e 20 28 40 73 74 61 63 6b 20 69 6e 73 70 65 63 74 6f 72 29 29 29 0a 20 20 20 20 20 20 20 20 | en.(@stack.inspector)))......... |
| 10eaa0 | 20 28 70 6f 70 66 20 28 40 73 74 61 63 6b 20 69 6e 73 70 65 63 74 6f 72 29 29 0a 20 20 20 20 20 | .(popf.(@stack.inspector))...... |
| 10eac0 | 20 20 20 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 70 6f 70 66 20 28 40 73 74 61 63 | ....(inspect-object.(popf.(@stac |
| 10eae0 | 6b 20 69 6e 73 70 65 63 74 6f 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 23 74 20 27 6e 69 6c | k.inspector)))).........(#t.'nil |
| 10eb00 | 29 29 29 0a 0a 28 64 66 20 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 20 28 29 20 28 73 65 74 | )))..(df.reset-inspector.().(set |
| 10eb20 | 20 69 6e 73 70 65 63 74 6f 72 20 28 6e 65 77 20 3c 69 6e 73 70 65 63 74 6f 72 3e 29 29 29 0a 0a | .inspector.(new.<inspector>))).. |
| 10eb40 | 28 64 66 20 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 6f 29 0a 20 20 28 73 65 74 20 28 40 | (df.inspect-object.(o)...(set.(@ |
| 10eb60 | 6f 62 6a 65 63 74 20 69 6e 73 70 65 63 74 6f 72 29 20 6f 29 0a 20 20 28 73 65 74 20 28 40 70 61 | object.inspector).o)...(set.(@pa |
| 10eb80 | 72 74 73 20 69 6e 73 70 65 63 74 6f 72 29 20 28 6e 65 77 20 3c 76 65 63 3e 29 29 0a 20 20 28 70 | rts.inspector).(new.<vec>))...(p |
| 10eba0 | 75 73 68 66 20 28 40 73 74 61 63 6b 20 69 6e 73 70 65 63 74 6f 72 29 20 6f 29 0a 20 20 28 6c 73 | ushf.(@stack.inspector).o)...(ls |
| 10ebc0 | 74 20 27 3a 74 69 74 6c 65 20 28 73 61 66 65 2d 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 | t.':title.(safe-write-to-string. |
| 10ebe0 | 6f 29 20 3b 20 27 3a 74 79 70 65 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 74 72 20 6f 29 0a 20 | o).;.':type.(class-name-str.o).. |
| 10ec00 | 20 20 20 20 20 20 27 3a 63 6f 6e 74 65 6e 74 20 28 69 6e 73 70 65 63 74 6f 72 2d 63 6f 6e 74 65 | ......':content.(inspector-conte |
| 10ec20 | 6e 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 63 6c 61 73 73 3a 20 | nt....................`("class:. |
| 10ec40 | 22 20 28 3a 76 61 6c 75 65 20 2c 28 63 6c 61 73 73 2d 6f 66 20 6f 29 29 20 22 5c 6e 22 20 0a 20 | ".(:value.,(class-of.o))."\n"... |
| 10ec60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 69 6e 73 70 65 63 74 20 6f 29 | ...................,@(inspect.o) |
| 10ec80 | 29 29 29 29 0a 0a 28 64 66 20 69 6e 73 70 65 63 74 6f 72 2d 63 6f 6e 74 65 6e 74 20 28 63 6f 6e | ))))..(df.inspector-content.(con |
| 10eca0 | 74 65 6e 74 29 20 0a 20 20 28 6d 61 70 20 28 66 75 6e 20 28 70 61 72 74 29 0a 20 20 20 20 20 20 | tent)....(map.(fun.(part)....... |
| 10ecc0 | 20 20 20 28 63 61 73 65 2d 62 79 20 70 61 72 74 20 69 73 61 3f 0a 20 20 20 20 20 20 20 20 20 20 | ...(case-by.part.isa?........... |
| 10ece0 | 20 28 28 3c 73 74 72 3e 29 20 70 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3c 6c 73 | .((<str>).part)............((<ls |
| 10ed00 | 74 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 20 70 61 72 74 0a 20 20 20 20 | t>).............(match.part..... |
| 10ed20 | 20 20 20 20 20 20 20 20 20 20 28 28 3a 76 61 6c 75 65 20 2c 6f 20 2c 40 73 74 72 29 0a 20 20 20 | ..........((:value.,o.,@str).... |
| 10ed40 | 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 40 28 69 66 20 28 6e 75 6c 3f | ............`(:value.,@(if.(nul? |
| 10ed60 | 20 73 74 72 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .str)........................... |
| 10ed80 | 20 20 20 20 20 28 6c 73 74 20 28 73 61 66 65 2d 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 | .....(lst.(safe-write-to-string. |
| 10eda0 | 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o))............................. |
| 10edc0 | 20 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c | ..str)........................., |
| 10ede0 | 28 61 73 73 69 67 6e 2d 69 6e 64 65 78 20 6f 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (assign-index.o)))))............ |
| 10ee00 | 28 23 74 20 28 65 72 72 6f 72 20 22 42 61 64 20 69 6e 73 70 65 63 74 6f 72 20 63 6f 6e 74 65 6e | (#t.(error."Bad.inspector.conten |
| 10ee20 | 74 3a 20 25 3d 22 20 70 61 72 74 29 29 29 29 0a 20 20 20 20 20 20 20 63 6f 6e 74 65 6e 74 29 29 | t:.%=".part))))........content)) |
| 10ee40 | 0a 0a 28 64 66 20 61 73 73 69 67 6e 2d 69 6e 64 65 78 20 28 6f 29 0a 20 20 28 70 75 73 68 66 20 | ..(df.assign-index.(o)...(pushf. |
| 10ee60 | 28 40 70 61 72 74 73 20 69 6e 73 70 65 63 74 6f 72 29 20 6f 29 0a 20 20 28 31 2d 20 28 6c 65 6e | (@parts.inspector).o)...(1-.(len |
| 10ee80 | 20 28 40 70 61 72 74 73 20 69 6e 73 70 65 63 74 6f 72 29 29 29 29 0a 0a 28 64 67 20 69 6e 73 70 | .(@parts.inspector))))..(dg.insp |
| 10eea0 | 65 63 74 20 28 6f 29 29 0a 0a 3b 3b 20 61 20 6c 69 73 74 20 6f 66 20 64 61 6e 67 65 72 6f 75 73 | ect.(o))..;;.a.list.of.dangerous |
| 10eec0 | 20 66 75 6e 63 74 69 6f 6e 73 20 0a 28 64 2e 20 67 65 74 74 65 72 2d 62 6c 61 63 6b 6c 69 73 74 | .functions..(d..getter-blacklist |
| 10eee0 | 20 28 6c 73 74 20 66 75 6e 2d 63 6f 64 65 20 66 75 6e 2d 65 6e 76 20 63 6c 61 73 73 2d 72 6f 77 | .(lst.fun-code.fun-env.class-row |
| 10ef00 | 29 29 0a 0a 28 64 6d 20 69 6e 73 70 65 63 74 20 28 6f 29 0a 20 20 28 6a 6f 69 6e 20 28 6d 61 70 | ))..(dm.inspect.(o)...(join.(map |
| 10ef20 | 20 28 66 75 6e 20 28 70 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | .(fun.(p).................(let.( |
| 10ef40 | 28 67 65 74 74 65 72 20 28 70 72 6f 70 2d 67 65 74 74 65 72 20 70 29 29 29 0a 20 20 20 20 20 20 | (getter.(prop-getter.p)))....... |
| 10ef60 | 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 28 73 79 6d 2d 6e 61 6d 65 20 28 66 75 6e 2d 6e 61 6d | ...........`(,(sym-name.(fun-nam |
| 10ef80 | 65 20 67 65 74 74 65 72 29 29 20 22 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.getter)).":."................. |
| 10efa0 | 20 20 20 2c 28 63 6f 6e 64 20 28 28 6d 65 6d 3f 20 67 65 74 74 65 72 2d 62 6c 61 63 6b 6c 69 73 | ...,(cond.((mem?.getter-blacklis |
| 10efc0 | 74 20 67 65 74 74 65 72 29 20 22 3c 2e 2e 2e 3e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.getter)."<...>").............. |
| 10efe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 70 72 6f 70 2d 62 6f 75 6e 64 3f 20 | .............((not.(prop-bound?. |
| 10f000 | 6f 20 67 65 74 74 65 72 29 29 20 22 3c 75 6e 62 6f 75 6e 64 3e 22 29 0a 20 20 20 20 20 20 20 20 | o.getter))."<unbound>")......... |
| 10f020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 74 72 79 2d 6f 72 20 28 66 | ..................(#t.(try-or.(f |
| 10f040 | 75 6e 20 28 29 20 60 28 3a 76 61 6c 75 65 20 2c 28 67 65 74 74 65 72 20 6f 29 29 29 0a 20 20 20 | un.().`(:value.,(getter.o))).... |
| 10f060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 10f080 | 20 20 20 22 3c 2e 2e 2e 3e 22 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | ..."<...>"))))))..............(c |
| 10f0a0 | 6c 61 73 73 2d 70 72 6f 70 73 20 28 63 6c 61 73 73 2d 6f 66 20 6f 29 29 29 0a 20 20 20 20 20 20 | lass-props.(class-of.o)))....... |
| 10f0c0 | 20 20 27 28 22 5c 6e 22 29 29 29 0a 0a 28 64 6d 20 69 6e 73 70 65 63 74 20 28 6f 7c 3c 73 65 71 | ..'("\n")))..(dm.inspect.(o|<seq |
| 10f0e0 | 3e 29 0a 20 20 28 6a 6f 69 6e 20 28 70 61 63 6b 69 6e 67 20 28 64 6f 2d 6b 65 79 65 64 20 28 66 | >)...(join.(packing.(do-keyed.(f |
| 10f100 | 75 6e 20 28 70 6f 73 20 76 61 6c 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | un.(pos.val).................... |
| 10f120 | 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 60 28 2c 28 6e 75 6d 2d 74 6f 2d 73 74 72 20 | ...........(pack.`(,(num-to-str. |
| 10f140 | 70 6f 73 29 20 22 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 76 61 6c 29 29 29 29 0a 20 20 20 20 20 | pos).":.".(:value.,val))))...... |
| 10f160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 29 29 0a 20 20 20 20 20 20 | ......................o))....... |
| 10f180 | 20 20 27 28 22 5c 6e 22 29 29 29 0a 0a 28 64 6d 20 69 6e 73 70 65 63 74 20 28 6f 7c 3c 74 61 62 | ..'("\n")))..(dm.inspect.(o|<tab |
| 10f1a0 | 3e 29 0a 20 20 28 6a 6f 69 6e 20 28 70 61 63 6b 69 6e 67 20 28 64 6f 2d 6b 65 79 65 64 20 28 66 | >)...(join.(packing.(do-keyed.(f |
| 10f1c0 | 75 6e 20 28 6b 65 79 20 76 61 6c 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | un.(key.val).................... |
| 10f1e0 | 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 60 28 28 3a 76 61 6c 75 65 20 2c 6b 65 79 29 | ...........(pack.`((:value.,key) |
| 10f200 | 20 22 5c 74 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 76 61 6c 29 29 29 29 0a 20 20 20 20 20 20 20 | ."\t:.".(:value.,val))))........ |
| 10f220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 29 29 0a 20 20 20 20 20 20 20 20 | ....................o))......... |
| 10f240 | 27 28 22 5c 6e 22 29 29 29 0a 0a 3b 3b 20 69 6e 73 70 65 63 74 69 6e 67 20 74 68 65 20 65 6e 76 | '("\n")))..;;.inspecting.the.env |
| 10f260 | 20 6f 66 20 63 6c 6f 73 75 72 65 73 20 69 73 20 62 72 6f 6b 65 6e 0a 3b 3b 20 28 64 6d 20 69 6e | .of.closures.is.broken.;;.(dm.in |
| 10f280 | 73 70 65 63 74 20 28 6f 7c 3c 6d 65 74 3e 29 0a 3b 3b 20 20 20 28 63 61 74 20 28 73 75 70 20 6f | spect.(o|<met>).;;...(cat.(sup.o |
| 10f2a0 | 29 0a 3b 3b 20 20 20 20 20 20 20 20 27 28 22 5c 6e 22 29 0a 3b 3b 20 20 20 20 20 20 20 20 28 69 | ).;;........'("\n").;;........(i |
| 10f2c0 | 66 20 28 25 66 75 6e 2d 65 6e 76 3f 20 6f 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | f.(%fun-env?.o).;;............(i |
| 10f2e0 | 6e 73 70 65 63 74 20 28 70 61 63 6b 69 6e 67 20 28 66 6f 72 20 28 28 69 20 28 62 65 6c 6f 77 20 | nspect.(packing.(for.((i.(below. |
| 10f300 | 28 25 66 75 6e 2d 65 6e 76 2d 6c 65 6e 20 6f 29 29 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 | (%fun-env-len.o)))).;;.......... |
| 10f320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 20 28 25 66 75 | ......................(pack.(%fu |
| 10f340 | 6e 2d 65 6e 76 2d 65 6c 74 20 6f 20 69 29 29 29 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 | n-env-elt.o.i))))).;;........... |
| 10f360 | 20 27 28 29 29 29 29 0a 3b 3b 20 0a 3b 3b 20 28 64 66 20 25 66 75 6e 2d 65 6e 76 3f 20 20 20 20 | .'()))).;;..;;.(df.%fun-env?.... |
| 10f380 | 28 66 7c 3c 6d 65 74 3e 20 3d 3e 20 3c 6c 6f 67 3e 29 20 20 20 20 20 20 20 20 20 23 65 62 7b 20 | (f|<met>.=>.<log>).........#eb{. |
| 10f3a0 | 46 55 4e 45 4e 56 28 24 66 29 20 21 3d 20 24 23 66 20 7d 29 0a 3b 3b 20 28 64 66 20 25 66 75 6e | FUNENV($f).!=.$#f.}).;;.(df.%fun |
| 10f3c0 | 2d 65 6e 76 2d 6c 65 6e 20 28 66 7c 3c 6d 65 74 3e 20 3d 3e 20 3c 69 6e 74 3e 29 20 20 20 20 20 | -env-len.(f|<met>.=>.<int>)..... |
| 10f3e0 | 20 20 20 20 23 65 69 7b 20 28 28 45 4e 56 29 46 55 4e 45 4e 56 20 28 24 66 29 29 2d 3e 73 69 7a | ....#ei{.((ENV)FUNENV.($f))->siz |
| 10f400 | 65 20 7d 29 0a 3b 3b 20 28 64 66 20 25 66 75 6e 2d 65 6e 76 2d 65 6c 74 20 28 66 7c 3c 6d 65 74 | e.}).;;.(df.%fun-env-elt.(f|<met |
| 10f420 | 3e 20 69 7c 3c 69 6e 74 3e 20 3d 3e 20 3c 61 6e 79 3e 29 20 23 65 67 7b 20 46 55 4e 45 4e 56 47 | >.i|<int>.=>.<any>).#eg{.FUNENVG |
| 10f440 | 45 54 28 24 66 2c 20 40 69 29 20 7d 29 0a 0a 0c 0a 3b 3b 3b 3b 20 69 6e 69 74 20 0a 0a 28 64 65 | ET($f,.@i).})....;;;;.init...(de |
| 10f460 | 66 73 6c 69 6d 65 66 75 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 2d 69 6e 66 6f 20 28 29 0a 20 20 60 | fslimefun.connection-info.()...` |
| 10f480 | 28 3a 70 69 64 20 0a 20 20 20 20 2c 28 70 72 6f 63 65 73 73 2d 69 64 29 20 3a 73 74 79 6c 65 20 | (:pid......,(process-id).:style. |
| 10f4a0 | 6e 69 6c 0a 20 20 20 20 3a 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 28 3a 74 | nil.....:lisp-implementation.(:t |
| 10f4c0 | 79 70 65 20 22 47 4f 4f 22 20 3a 6e 61 6d 65 20 22 67 6f 6f 22 20 0a 20 20 20 20 20 20 20 20 20 | ype."GOO".:name."goo"........... |
| 10f4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 65 72 73 69 6f 6e 20 | .......................:version. |
| 10f500 | 2c 28 25 6c 6f 6f 6b 75 70 20 27 2a 67 6f 6f 2d 76 65 72 73 69 6f 6e 2a 20 27 65 76 61 6c 2f 6d | ,(%lookup.'*goo-version*.'eval/m |
| 10f520 | 61 69 6e 29 29 0a 20 20 20 20 3a 6d 61 63 68 69 6e 65 20 28 3a 69 6e 73 74 61 6e 63 65 20 22 22 | ain)).....:machine.(:instance."" |
| 10f540 | 20 3a 74 79 70 65 20 22 22 20 3a 76 65 72 73 69 6f 6e 20 22 22 29 0a 20 20 20 20 3a 66 65 61 74 | .:type."".:version."").....:feat |
| 10f560 | 75 72 65 73 20 28 29 20 0a 20 20 20 20 3a 70 61 63 6b 61 67 65 20 28 3a 6e 61 6d 65 20 22 67 6f | ures.()......:package.(:name."go |
| 10f580 | 6f 2f 75 73 65 72 22 20 3a 70 72 6f 6d 70 74 20 22 67 6f 6f 2f 75 73 65 72 22 29 29 29 0a 0a 28 | o/user".:prompt."goo/user")))..( |
| 10f5a0 | 64 65 66 73 6c 69 6d 65 66 75 6e 20 71 75 69 74 2d 6c 69 73 70 20 28 29 20 23 65 69 7b 20 65 78 | defslimefun.quit-lisp.().#ei{.ex |
| 10f5c0 | 69 74 20 28 30 29 2c 30 20 7d 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 65 74 2d 64 65 | it.(0),0.})..(defslimefun.set-de |
| 10f5e0 | 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 7c 3c 73 74 72 3e 29 20 23 65 69 7b | fault-directory.(dir|<str>).#ei{ |
| 10f600 | 20 63 68 64 69 72 28 40 64 69 72 29 20 7d 20 64 69 72 29 0a 0a 0c 0a 3b 3b 3b 3b 20 65 76 61 6c | .chdir(@dir).}.dir)....;;;;.eval |
| 10f620 | 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 70 69 6e 67 20 28 29 20 22 50 4f 4e 47 22 29 0a 0a | ..(defslimefun.ping.()."PONG").. |
| 10f640 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 72 65 61 74 65 2d 72 65 70 6c 20 28 5f 29 0a 20 20 28 | (defslimefun.create-repl.(_)...( |
| 10f660 | 6c 65 74 20 28 28 6e 61 6d 65 20 28 73 79 6d 2d 6e 61 6d 65 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d | let.((name.(sym-name.(module-nam |
| 10f680 | 65 20 28 62 75 66 66 65 72 2d 6d 6f 64 75 6c 65 29 29 29 29 29 0a 20 20 20 20 60 28 2c 6e 61 6d | e.(buffer-module))))).....`(,nam |
| 10f6a0 | 65 20 2c 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6c 69 73 74 65 6e 65 | e.,name)))..(defslimefun.listene |
| 10f6c0 | 72 2d 65 76 61 6c 20 28 73 74 72 69 6e 67 29 0a 20 20 28 63 6c 65 61 72 2d 69 6e 70 75 74 20 69 | r-eval.(string)...(clear-input.i |
| 10f6e0 | 6e 29 0a 20 20 60 28 3a 76 61 6c 75 65 73 20 2c 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 | n)...`(:values.,(write-to-string |
| 10f700 | 20 28 73 74 72 2d 65 76 61 6c 20 73 74 72 69 6e 67 20 28 62 75 66 66 65 72 2d 6d 6f 64 75 6c 65 | .(str-eval.string.(buffer-module |
| 10f720 | 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 74 65 72 61 63 74 69 76 65 2d | )))))..(defslimefun.interactive- |
| 10f740 | 65 76 61 6c 20 28 73 74 72 69 6e 67 29 0a 20 20 28 63 61 74 20 22 3d 3e 20 22 20 28 77 72 69 74 | eval.(string)...(cat."=>.".(writ |
| 10f760 | 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 74 72 2d 65 76 61 6c 20 73 74 72 69 6e 67 20 28 62 75 | e-to-string.(str-eval.string.(bu |
| 10f780 | 66 66 65 72 2d 6d 6f 64 75 6c 65 29 29 29 29 29 0a 0a 28 64 66 20 73 74 72 2d 65 76 61 6c 20 28 | ffer-module)))))..(df.str-eval.( |
| 10f7a0 | 73 7c 3c 73 74 72 3e 20 6d 7c 3c 6d 6f 64 75 6c 65 3e 29 20 0a 20 20 28 65 76 61 6c 20 28 72 65 | s|<str>.m|<module>)....(eval.(re |
| 10f7c0 | 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 29 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 6d | ad-from-string.s).(module-name.m |
| 10f7e0 | 29 29 29 0a 0a 28 64 66 20 63 6c 65 61 72 2d 69 6e 70 75 74 20 28 69 6e 7c 3c 69 6e 2d 70 6f 72 | )))..(df.clear-input.(in|<in-por |
| 10f800 | 74 3e 29 20 28 77 68 69 6c 65 20 28 72 65 61 64 79 3f 20 69 6e 29 20 28 67 65 74 20 69 6e 29 29 | t>).(while.(ready?.in).(get.in)) |
| 10f820 | 29 0a 0a 28 64 63 20 3c 62 72 65 61 6b 3e 20 28 3c 72 65 73 74 61 72 74 3e 29 29 0a 0a 28 64 65 | )..(dc.<break>.(<restart>))..(de |
| 10f840 | 66 73 6c 69 6d 65 66 75 6e 20 73 69 6d 70 6c 65 2d 62 72 65 61 6b 20 28 29 0a 20 20 28 73 69 6d | fslimefun.simple-break.()...(sim |
| 10f860 | 70 6c 65 2d 72 65 73 74 61 72 74 20 0a 20 20 20 3c 62 72 65 61 6b 3e 20 22 43 6f 6e 74 69 6e 75 | ple-restart.....<break>."Continu |
| 10f880 | 65 20 66 72 6f 6d 20 62 72 65 61 6b 22 0a 20 20 20 28 66 75 6e 20 28 29 20 28 73 69 67 20 28 6e | e.from.break"....(fun.().(sig.(n |
| 10f8a0 | 65 77 20 3c 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 3e 20 0a 20 20 20 20 20 20 20 20 20 | ew.<simple-condition>........... |
| 10f8c0 | 20 20 20 20 20 20 20 20 20 63 6f 6e 64 69 74 69 6f 6e 2d 6d 65 73 73 61 67 65 20 22 49 6e 74 65 | .........condition-message."Inte |
| 10f8e0 | 72 72 75 70 74 20 66 72 6f 6d 20 45 6d 61 63 73 22 29 29 29 29 0a 20 20 27 6e 69 6c 29 0a 0a 28 | rrupt.from.Emacs"))))...'nil)..( |
| 10f900 | 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 6c 65 61 72 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 20 28 | defslimefun.clear-repl-results.( |
| 10f920 | 29 20 27 6e 69 6c 29 0a 0a 0c 0a 3b 3b 3b 3b 20 63 6f 6d 70 69 6c 65 0a 0a 28 64 65 66 73 6c 69 | ).'nil)....;;;;.compile..(defsli |
| 10f940 | 6d 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 65 6d 61 63 73 20 28 | mefun.compile-string-for-emacs.( |
| 10f960 | 73 74 72 69 6e 67 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 20 64 69 72 65 63 74 6f 72 79 | string.buffer.position.directory |
| 10f980 | 29 0a 20 20 28 64 65 66 20 73 74 61 72 74 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 29 0a 20 | )...(def.start.(current-time)).. |
| 10f9a0 | 20 28 64 65 66 20 72 20 28 67 32 63 2d 65 76 61 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 | .(def.r.(g2c-eval.(read-from-str |
| 10f9c0 | 69 6e 67 20 73 74 72 69 6e 67 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing.string)..................... |
| 10f9e0 | 28 6d 6f 64 75 6c 65 2d 74 61 72 67 65 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 62 75 66 66 | (module-target-environment.(buff |
| 10fa00 | 65 72 2d 6d 6f 64 75 6c 65 29 29 29 29 0a 20 20 28 6c 73 74 20 28 77 72 69 74 65 2d 74 6f 2d 73 | er-module))))...(lst.(write-to-s |
| 10fa20 | 74 72 69 6e 67 20 72 29 0a 20 20 20 20 20 20 20 28 2f 20 28 61 73 20 3c 66 6c 6f 3e 20 28 2d 20 | tring.r)........(/.(as.<flo>.(-. |
| 10fa40 | 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 20 73 74 61 72 74 29 29 20 31 30 30 30 30 30 30 2e 30 | (current-time).start)).1000000.0 |
| 10fa60 | 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 | )))..(defslimefun.compiler-notes |
| 10fa80 | 2d 66 6f 72 2d 65 6d 61 63 73 20 28 29 20 27 6e 69 6c 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 | -for-emacs.().'nil)..(defslimefu |
| 10faa0 | 6e 20 66 69 6c 65 6e 61 6d 65 2d 74 6f 2d 6d 6f 64 75 6c 65 6e 61 6d 65 20 28 66 69 6c 65 6e 61 | n.filename-to-modulename.(filena |
| 10fac0 | 6d 65 7c 3c 73 74 72 3e 20 3d 3e 20 28 74 2b 20 3c 73 74 72 3e 20 3c 6e 69 6c 3e 29 29 0a 20 20 | me|<str>.=>.(t+.<str>.<nil>))... |
| 10fae0 | 28 74 72 79 2d 6f 72 20 28 66 75 6e 20 28 29 20 28 73 79 6d 2d 6e 61 6d 65 20 28 66 69 6c 65 6e | (try-or.(fun.().(sym-name.(filen |
| 10fb00 | 61 6d 65 2d 74 6f 2d 6d 6f 64 75 6c 65 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 29 20 27 6e | ame-to-modulename.filename))).'n |
| 10fb20 | 69 6c 29 29 0a 0a 28 64 66 20 66 69 6c 65 6e 61 6d 65 2d 74 6f 2d 6d 6f 64 75 6c 65 6e 61 6d 65 | il))..(df.filename-to-modulename |
| 10fb40 | 20 28 66 69 6c 65 6e 61 6d 65 7c 3c 73 74 72 3e 20 3d 3e 20 3c 73 79 6d 3e 29 0a 20 20 28 64 65 | .(filename|<str>.=>.<sym>)...(de |
| 10fb60 | 66 20 70 61 74 68 73 20 28 6d 61 70 20 70 61 74 68 6e 61 6d 65 2d 74 6f 2d 63 6f 6d 70 6f 6e 65 | f.paths.(map.pathname-to-compone |
| 10fb80 | 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 73 69 6d 70 6c | nts...................(map.simpl |
| 10fba0 | 69 66 79 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ify-filename.................... |
| 10fbc0 | 20 20 20 20 28 70 69 63 6b 20 66 69 6c 65 2d 65 78 69 73 74 73 3f 20 2a 6d 6f 64 75 6c 65 2d 73 | ....(pick.file-exists?.*module-s |
| 10fbe0 | 65 61 72 63 68 2d 70 61 74 68 2a 29 29 29 29 0a 20 20 28 64 65 66 20 66 69 6c 65 6e 61 6d 65 20 | earch-path*))))...(def.filename. |
| 10fc00 | 28 70 61 74 68 6e 61 6d 65 2d 74 6f 2d 63 6f 6d 70 6f 6e 65 6e 74 73 20 66 69 6c 65 6e 61 6d 65 | (pathname-to-components.filename |
| 10fc20 | 29 29 0a 20 20 28 64 65 66 20 6d 6f 64 64 69 72 20 28 72 65 70 20 70 61 72 65 6e 74 20 28 28 6d | ))...(def.moddir.(rep.parent.((m |
| 10fc40 | 6f 64 70 61 74 68 20 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | odpath.filename))............... |
| 10fc60 | 20 20 28 63 6f 6e 64 20 28 28 61 6e 79 3f 20 28 63 75 72 72 79 20 3d 20 6d 6f 64 70 61 74 68 29 | ..(cond.((any?.(curry.=.modpath) |
| 10fc80 | 20 70 61 74 68 73 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .paths)......................... |
| 10fca0 | 6d 6f 64 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | modpath).......................( |
| 10fcc0 | 23 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 65 | #t.........................(pare |
| 10fce0 | 6e 74 20 28 63 6f 6d 70 6f 6e 65 6e 74 73 2d 70 61 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 20 | nt.(components-parent-directory. |
| 10fd00 | 6d 6f 64 70 61 74 68 29 29 29 29 29 29 0a 20 20 28 64 65 66 20 6d 6f 64 66 69 6c 65 20 28 63 6f | modpath))))))...(def.modfile.(co |
| 10fd20 | 6d 70 6f 6e 65 6e 74 73 2d 74 6f 2d 70 61 74 68 6e 61 6d 65 20 28 73 75 62 2a 20 66 69 6c 65 6e | mponents-to-pathname.(sub*.filen |
| 10fd40 | 61 6d 65 20 28 6c 65 6e 20 6d 6f 64 64 69 72 29 29 29 29 0a 20 20 28 61 73 2d 73 79 6d 20 28 73 | ame.(len.moddir))))...(as-sym.(s |
| 10fd60 | 75 62 20 6d 6f 64 66 69 6c 65 20 30 20 28 2d 20 28 6c 65 6e 20 6d 6f 64 66 69 6c 65 29 20 28 6c | ub.modfile.0.(-.(len.modfile).(l |
| 10fd80 | 65 6e 20 2a 67 6f 6f 2d 65 78 74 65 6e 73 69 6f 6e 2a 29 29 29 29 29 0a 0a 0a 0c 0a 3b 3b 3b 3b | en.*goo-extension*))))).....;;;; |
| 10fda0 | 20 4c 6f 61 64 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6c 6f 61 64 2d 66 69 6c 65 20 28 66 | .Load..(defslimefun.load-file.(f |
| 10fdc0 | 69 6c 65 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 63 6f 6e 64 20 28 28 3d | ilename)...(let.((file.(cond.((= |
| 10fde0 | 20 28 73 75 62 20 28 72 65 76 20 66 69 6c 65 6e 61 6d 65 29 20 30 20 34 29 20 22 6f 6f 67 2e 22 | .(sub.(rev.filename).0.4)."oog." |
| 10fe00 | 29 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).filename)..................... |
| 10fe20 | 28 23 74 20 28 63 61 74 20 66 69 6c 65 6e 61 6d 65 20 22 2e 67 6f 6f 22 29 29 29 29 29 0a 20 20 | (#t.(cat.filename.".goo")))))... |
| 10fe40 | 20 20 28 73 61 66 65 2d 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6c 6f 61 64 2d 66 69 | ..(safe-write-to-string.(load-fi |
| 10fe60 | 6c 65 20 66 69 6c 65 20 28 66 69 6c 65 6e 61 6d 65 2d 74 6f 2d 6d 6f 64 75 6c 65 6e 61 6d 65 20 | le.file.(filename-to-modulename. |
| 10fe80 | 66 69 6c 65 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 62 61 63 6b 67 72 6f 75 6e 64 20 61 63 74 | file)))))....;;;;.background.act |
| 10fea0 | 69 76 69 74 69 65 73 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6f 70 65 72 61 74 6f 72 2d 61 | ivities..(defslimefun.operator-a |
| 10fec0 | 72 67 6c 69 73 74 20 28 6f 70 20 5f 29 0a 20 20 28 74 72 79 2d 6f 72 20 28 66 75 6e 20 28 29 0a | rglist.(op._)...(try-or.(fun.(). |
| 10fee0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 20 28 73 74 72 2d 65 76 | ............(let.((value.(str-ev |
| 10ff00 | 61 6c 20 6f 70 20 28 62 75 66 66 65 72 2d 6d 6f 64 75 6c 65 29 29 29 29 0a 20 20 20 20 20 20 20 | al.op.(buffer-module))))........ |
| 10ff20 | 20 20 20 20 20 20 20 28 69 66 20 28 69 73 61 3f 20 76 61 6c 75 65 20 3c 66 75 6e 3e 29 0a 20 20 | .......(if.(isa?.value.<fun>)... |
| 10ff40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 | ................(write-to-string |
| 10ff60 | 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6e 69 6c 29 29 | .value)...................'nil)) |
| 10ff80 | 29 0a 20 20 20 20 20 20 20 20 20 20 27 6e 69 6c 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 2d 2e 0a 0a | )...........'nil))....;;;;.M-... |
| 10ffa0 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 66 6f | (defslimefun.find-definitions-fo |
| 10ffc0 | 72 2d 65 6d 61 63 73 20 28 6e 61 6d 65 7c 3c 73 74 72 3e 29 0a 20 20 28 6d 61 74 63 68 20 28 70 | r-emacs.(name|<str>)...(match.(p |
| 10ffe0 | 61 72 73 65 2d 73 79 6d 62 6f 6c 20 6e 61 6d 65 29 0a 20 20 20 20 28 28 2c 73 79 6d 20 2c 6d 6f | arse-symbol.name).....((,sym.,mo |
| 110000 | 64 6e 61 6d 65 29 0a 20 20 20 20 20 28 64 65 66 20 65 6e 76 20 28 6d 6f 64 75 6c 65 2d 74 61 72 | dname)......(def.env.(module-tar |
| 110020 | 67 65 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 72 75 6e 74 69 6d 65 2d 6d 6f 64 75 6c 65 20 | get-environment.(runtime-module. |
| 110040 | 6d 6f 64 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 28 64 65 66 20 62 20 28 66 69 6e 64 2d 62 69 6e | modname)))......(def.b.(find-bin |
| 110060 | 64 69 6e 67 20 73 79 6d 20 65 6e 76 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 62 20 28 66 69 | ding.sym.env))......(cond.(b.(fi |
| 110080 | 6e 64 2d 62 69 6e 64 69 6e 67 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 62 29 29 0a 20 20 20 20 20 | nd-binding-definitions.b))...... |
| 1100a0 | 20 20 20 20 20 20 28 23 74 20 27 6e 69 6c 29 29 29 29 29 0a 0a 28 64 66 20 70 61 72 73 65 2d 73 | ......(#t.'nil)))))..(df.parse-s |
| 1100c0 | 79 6d 62 6f 6c 20 28 6e 61 6d 65 7c 3c 73 74 72 3e 20 3d 3e 20 3c 6c 73 74 3e 29 0a 20 20 28 69 | ymbol.(name|<str>.=>.<lst>)...(i |
| 1100e0 | 66 20 28 6d 65 6d 3f 20 6e 61 6d 65 20 23 5c 3a 29 0a 20 20 20 20 20 20 28 6d 61 74 63 68 20 28 | f.(mem?.name.#\:).......(match.( |
| 110100 | 73 70 6c 69 74 20 6e 61 6d 65 20 23 5c 3a 29 0a 20 20 20 20 20 20 20 20 28 28 2c 6d 6f 64 75 6c | split.name.#\:).........((,modul |
| 110120 | 65 20 2c 6e 61 6d 65 29 20 28 6c 73 74 20 28 61 73 2d 73 79 6d 20 6e 61 6d 65 29 20 28 61 73 2d | e.,name).(lst.(as-sym.name).(as- |
| 110140 | 73 79 6d 20 6d 6f 64 75 6c 65 29 29 29 29 0a 20 20 20 20 20 20 28 6c 73 74 20 28 61 73 2d 73 79 | sym.module)))).......(lst.(as-sy |
| 110160 | 6d 20 6e 61 6d 65 29 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 28 62 75 66 66 65 72 2d 6d 6f 64 | m.name).(module-name.(buffer-mod |
| 110180 | 75 6c 65 29 29 29 29 29 0a 0a 28 64 66 20 66 69 6e 64 2d 62 69 6e 64 69 6e 67 2d 64 65 66 69 6e | ule)))))..(df.find-binding-defin |
| 1101a0 | 69 74 69 6f 6e 73 20 28 62 7c 3c 62 69 6e 64 69 6e 67 3e 29 0a 20 20 28 64 65 66 20 76 61 6c 75 | itions.(b|<binding>)...(def.valu |
| 1101c0 | 65 20 28 63 61 73 65 20 28 62 69 6e 64 69 6e 67 2d 6b 69 6e 64 20 62 29 0a 20 20 20 20 20 20 20 | e.(case.(binding-kind.b)........ |
| 1101e0 | 20 20 20 20 20 20 20 20 28 28 27 72 75 6e 74 69 6d 65 29 20 28 6c 6f 63 2d 76 61 6c 20 28 62 69 | ........(('runtime).(loc-val.(bi |
| 110200 | 6e 64 69 6e 67 2d 6c 6f 63 61 74 69 76 65 20 62 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nding-locative.b)))............. |
| 110220 | 20 20 20 28 28 27 67 6c 6f 62 61 6c 29 20 28 6c 65 74 20 28 28 62 6f 78 20 28 62 69 6e 64 69 6e | ...(('global).(let.((box.(bindin |
| 110240 | 67 2d 67 6c 6f 62 61 6c 2d 62 6f 78 20 62 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g-global-box.b)))............... |
| 110260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 62 6f 78 20 28 67 6c 6f 62 61 6c 2d 62 | ..............(and.box.(global-b |
| 110280 | 6f 78 2d 76 61 6c 75 65 20 62 6f 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ox-value.box))))................ |
| 1102a0 | 28 28 27 6d 61 63 72 6f 29 20 28 62 69 6e 64 69 6e 67 2d 69 6e 66 6f 20 62 29 29 0a 20 20 20 20 | (('macro).(binding-info.b))..... |
| 1102c0 | 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 65 72 72 6f 72 20 22 75 6e 6b 6e 6f 77 6e 20 62 | ...........(#t.(error."unknown.b |
| 1102e0 | 69 6e 64 69 6e 67 20 6b 69 6e 64 20 25 3d 22 20 28 62 69 6e 64 69 6e 67 2d 6b 69 6e 64 20 62 29 | inding.kind.%=".(binding-kind.b) |
| 110300 | 29 29 29 29 0a 20 20 28 6d 61 70 20 28 66 75 6e 20 28 6f 29 20 0a 20 20 20 20 20 20 20 20 20 28 | ))))...(map.(fun.(o)...........( |
| 110320 | 64 65 66 20 6c 6f 63 20 28 65 6d 61 63 73 2d 73 72 63 2d 6c 6f 63 20 6f 29 29 0a 20 20 20 20 20 | def.loc.(emacs-src-loc.o))...... |
| 110340 | 20 20 20 20 60 28 2c 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 64 73 70 65 63 20 6f | ....`(,(write-to-string.(dspec.o |
| 110360 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 2c 28 6f 72 20 6c 6f 63 20 60 28 3a 65 72 72 6f 72 20 | ))............,(or.loc.`(:error. |
| 110380 | 22 6e 6f 20 73 72 63 2d 6c 6f 63 20 61 76 61 69 6c 61 62 6c 65 22 29 29 29 29 0a 20 20 20 20 20 | "no.src-loc.available"))))...... |
| 1103a0 | 20 20 28 64 65 66 69 6e 69 6e 67 2d 6f 62 6a 65 63 74 73 20 76 61 6c 75 65 29 29 29 0a 0a 28 64 | ..(defining-objects.value)))..(d |
| 1103c0 | 6d 20 64 65 66 69 6e 69 6e 67 2d 6f 62 6a 65 63 74 73 20 28 6f 20 3d 3e 20 3c 6c 73 74 3e 29 20 | m.defining-objects.(o.=>.<lst>). |
| 1103e0 | 27 28 29 29 0a 28 64 6d 20 64 65 66 69 6e 69 6e 67 2d 6f 62 6a 65 63 74 73 20 28 6f 7c 3c 66 75 | '()).(dm.defining-objects.(o|<fu |
| 110400 | 6e 3e 20 3d 3e 20 3c 6c 73 74 3e 29 20 28 6c 73 74 20 6f 29 29 0a 28 64 6d 20 64 65 66 69 6e 69 | n>.=>.<lst>).(lst.o)).(dm.defini |
| 110420 | 6e 67 2d 6f 62 6a 65 63 74 73 20 28 6f 7c 3c 67 65 6e 3e 20 3d 3e 20 3c 6c 73 74 3e 29 20 28 70 | ng-objects.(o|<gen>.=>.<lst>).(p |
| 110440 | 61 69 72 20 6f 20 28 66 75 6e 2d 6d 65 74 73 20 6f 29 29 29 0a 0a 28 64 6d 20 65 6d 61 63 73 2d | air.o.(fun-mets.o)))..(dm.emacs- |
| 110460 | 73 72 63 2d 6c 6f 63 20 28 6f 7c 3c 66 75 6e 3e 29 20 0a 20 20 28 64 65 66 20 6c 6f 63 20 28 66 | src-loc.(o|<fun>)....(def.loc.(f |
| 110480 | 75 6e 2d 73 72 63 2d 6c 6f 63 20 6f 29 29 0a 20 20 28 61 6e 64 20 6c 6f 63 20 60 28 3a 6c 6f 63 | un-src-loc.o))...(and.loc.`(:loc |
| 1104a0 | 61 74 69 6f 6e 20 28 3a 66 69 6c 65 20 2c 28 73 69 6d 70 6c 69 66 79 2d 66 69 6c 65 6e 61 6d 65 | ation.(:file.,(simplify-filename |
| 1104c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1104e0 | 20 28 66 69 6e 64 2d 67 6f 6f 2d 66 69 6c 65 2d 69 6e 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 | .(find-goo-file-in-path......... |
| 110500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 | .........................(module |
| 110520 | 2d 6e 61 6d 65 2d 74 6f 2d 72 65 6c 70 61 74 68 20 28 73 72 63 2d 6c 6f 63 2d 66 69 6c 65 20 6c | -name-to-relpath.(src-loc-file.l |
| 110540 | 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | oc))............................ |
| 110560 | 20 20 20 20 20 20 2a 6d 6f 64 75 6c 65 2d 73 65 61 72 63 68 2d 70 61 74 68 2a 29 29 29 0a 20 20 | ......*module-search-path*)))... |
| 110580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 69 6e 65 20 2c 28 73 72 | .....................(:line.,(sr |
| 1105a0 | 63 2d 6c 6f 63 2d 6c 69 6e 65 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | c-loc-line.loc))................ |
| 1105c0 | 20 20 20 20 20 20 20 20 28 29 29 29 29 0a 0a 28 64 6d 20 64 73 70 65 63 20 28 66 7c 3c 66 75 6e | ........())))..(dm.dspec.(f|<fun |
| 1105e0 | 3e 29 0a 20 20 28 63 6f 6e 64 20 28 28 66 75 6e 2d 6e 61 6d 65 20 66 29 20 0a 20 20 20 20 20 20 | >)...(cond.((fun-name.f)........ |
| 110600 | 20 20 20 60 28 2c 28 69 66 20 28 69 73 61 3f 20 66 20 3c 67 65 6e 3e 29 20 27 64 67 20 27 64 6d | ...`(,(if.(isa?.f.<gen>).'dg.'dm |
| 110620 | 29 20 2c 28 66 75 6e 2d 6e 61 6d 65 20 66 29 20 2c 40 28 64 73 70 65 63 2d 61 72 67 6c 69 73 74 | ).,(fun-name.f).,@(dspec-arglist |
| 110640 | 20 66 29 29 29 0a 20 20 20 20 20 20 20 20 28 23 74 20 66 29 29 29 0a 0a 28 64 66 20 64 73 70 65 | .f))).........(#t.f)))..(df.dspe |
| 110660 | 63 2d 61 72 67 6c 69 73 74 20 28 66 7c 3c 66 75 6e 3e 29 0a 20 20 28 6d 61 70 32 20 28 66 75 6e | c-arglist.(f|<fun>)...(map2.(fun |
| 110680 | 20 28 6e 61 6d 65 20 63 6c 61 73 73 29 20 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 | .(name.class)............(cond.( |
| 1106a0 | 28 3d 20 63 6c 61 73 73 20 3c 61 6e 79 3e 29 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | (=.class.<any>).name)........... |
| 1106c0 | 20 20 20 20 20 20 28 28 69 73 61 3f 20 63 6c 61 73 73 20 3c 63 6c 61 73 73 3e 29 0a 20 20 20 20 | ......((isa?.class.<class>)..... |
| 1106e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 6e 61 6d 65 20 2c 28 63 6c 61 73 73 2d 6e 61 6d | .............`(,name.,(class-nam |
| 110700 | 65 20 63 6c 61 73 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 60 | e.class))).................(#t.` |
| 110720 | 28 2c 6e 61 6d 65 20 2c 63 6c 61 73 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 2d 69 | (,name.,class)))).........(fun-i |
| 110740 | 6e 66 6f 2d 6e 61 6d 65 73 20 28 66 75 6e 2d 69 6e 66 6f 20 66 29 29 0a 20 20 20 20 20 20 20 20 | nfo-names.(fun-info.f))......... |
| 110760 | 28 73 69 67 2d 73 70 65 63 73 20 28 66 75 6e 2d 73 69 67 20 66 29 29 29 29 0a 0a 28 64 65 66 73 | (sig-specs.(fun-sig.f))))..(defs |
| 110780 | 6c 69 6d 65 66 75 6e 20 62 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 20 28 66 69 6c | limefun.buffer-first-change.(fil |
| 1107a0 | 65 6e 61 6d 65 29 20 27 6e 69 6c 29 0a 0a 0c 0a 3b 3b 3b 3b 20 61 70 72 6f 70 6f 73 0a 0a 28 64 | ename).'nil)....;;;;.apropos..(d |
| 1107c0 | 65 66 73 6c 69 6d 65 66 75 6e 20 61 70 72 6f 70 6f 73 2d 6c 69 73 74 2d 66 6f 72 2d 65 6d 61 63 | efslimefun.apropos-list-for-emac |
| 1107e0 | 73 20 0a 20 20 20 20 28 70 61 74 74 65 72 6e 20 6f 6e 6c 79 2d 65 78 74 65 72 6e 61 6c 3f 20 63 | s......(pattern.only-external?.c |
| 110800 | 61 73 65 2d 73 65 6e 73 69 74 69 76 65 3f 20 70 61 63 6b 61 67 65 29 0a 20 20 28 64 65 66 20 6d | ase-sensitive?.package)...(def.m |
| 110820 | 61 74 63 68 65 73 20 28 66 61 62 20 3c 74 61 62 3e 20 31 30 30 29 29 0a 20 20 28 64 6f 2d 61 6c | atches.(fab.<tab>.100))...(do-al |
| 110840 | 6c 2d 62 69 6e 64 69 6e 67 73 20 0a 20 20 20 28 66 75 6e 20 28 62 29 20 0a 20 20 20 20 20 28 77 | l-bindings.....(fun.(b).......(w |
| 110860 | 68 65 6e 20 28 66 69 6e 64 73 20 28 62 69 6e 64 69 6e 67 2d 6e 61 6d 65 2d 73 74 72 20 62 29 20 | hen.(finds.(binding-name-str.b). |
| 110880 | 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 28 73 65 74 20 28 65 6c 74 20 6d 61 74 63 68 65 | pattern)........(set.(elt.matche |
| 1108a0 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 74 2d 73 79 6d 20 28 62 69 6e | s..................(cat-sym.(bin |
| 1108c0 | 64 69 6e 67 2d 6e 61 6d 65 20 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ding-name.b).................... |
| 1108e0 | 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 28 62 69 6e 64 69 6e 67 2d 6d 6f 64 | .......(module-name.(binding-mod |
| 110900 | 75 6c 65 20 62 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 29 29 29 29 0a 20 20 28 73 | ule.b)))).............b))))...(s |
| 110920 | 65 74 20 6d 61 74 63 68 65 73 20 28 73 6f 72 74 2d 62 79 20 28 70 61 63 6b 69 6e 67 2d 61 73 20 | et.matches.(sort-by.(packing-as. |
| 110940 | 3c 76 65 63 3e 20 28 66 6f 72 20 28 28 62 20 6d 61 74 63 68 65 73 29 29 20 28 70 61 63 6b 20 62 | <vec>.(for.((b.matches)).(pack.b |
| 110960 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e | ))).........................(fun |
| 110980 | 20 28 78 20 79 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(x.y).......................... |
| 1109a0 | 20 20 28 3c 20 28 62 69 6e 64 69 6e 67 2d 6e 61 6d 65 20 78 29 20 0a 20 20 20 20 20 20 20 20 20 | ..(<.(binding-name.x)........... |
| 1109c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 69 6e 64 69 6e 67 2d 6e 61 6d | ....................(binding-nam |
| 1109e0 | 65 20 79 29 29 29 29 29 0a 20 20 28 6d 61 70 20 28 66 75 6e 20 28 62 29 20 0a 20 20 20 20 20 20 | e.y)))))...(map.(fun.(b)........ |
| 110a00 | 20 20 20 60 28 3a 64 65 73 69 67 6e 61 74 6f 72 20 0a 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 | ...`(:designator.............,(c |
| 110a20 | 61 74 20 28 73 79 6d 2d 6e 61 6d 65 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 28 62 69 6e 64 69 | at.(sym-name.(module-name.(bindi |
| 110a40 | 6e 67 2d 6d 6f 64 75 6c 65 20 62 29 29 29 20 22 3a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-module.b))).":".............. |
| 110a60 | 20 20 20 20 28 62 69 6e 64 69 6e 67 2d 6e 61 6d 65 2d 73 74 72 20 62 29 0a 20 20 20 20 20 20 20 | ....(binding-name-str.b)........ |
| 110a80 | 20 20 20 20 20 20 20 20 20 20 22 5c 74 6b 69 6e 64 3a 20 22 20 28 73 79 6d 2d 6e 61 6d 65 20 28 | .........."\tkind:.".(sym-name.( |
| 110aa0 | 62 69 6e 64 69 6e 67 2d 6b 69 6e 64 20 62 29 29 29 29 29 0a 20 20 20 20 20 20 20 28 61 73 20 3c | binding-kind.b)))))........(as.< |
| 110ac0 | 6c 73 74 3e 20 6d 61 74 63 68 65 73 29 29 29 0a 0a 28 64 66 20 64 6f 2d 61 6c 6c 2d 62 69 6e 64 | lst>.matches)))..(df.do-all-bind |
| 110ae0 | 69 6e 67 73 20 28 66 7c 3c 66 75 6e 3e 29 0a 20 20 28 66 6f 72 20 28 28 6d 6f 64 75 6c 65 20 28 | ings.(f|<fun>)...(for.((module.( |
| 110b00 | 25 6d 6f 64 75 6c 65 2d 6c 6f 61 64 65 72 2d 6d 6f 64 75 6c 65 73 20 28 72 75 6e 74 69 6d 65 2d | %module-loader-modules.(runtime- |
| 110b20 | 6d 6f 64 75 6c 65 2d 6c 6f 61 64 65 72 29 29 29 29 0a 20 20 20 20 28 64 6f 20 66 20 28 65 6e 76 | module-loader)))).....(do.f.(env |
| 110b40 | 69 72 6f 6e 6d 65 6e 74 2d 62 69 6e 64 69 6e 67 73 20 28 6d 6f 64 75 6c 65 2d 74 61 72 67 65 74 | ironment-bindings.(module-target |
| 110b60 | 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 6d 6f 64 75 6c 65 29 29 29 29 29 0a 0a 28 64 6d 20 3c 20 | -environment.module)))))..(dm.<. |
| 110b80 | 28 73 31 7c 3c 73 74 72 3e 20 73 32 7c 3c 73 74 72 3e 20 3d 3e 20 3c 6c 6f 67 3e 29 0a 20 20 28 | (s1|<str>.s2|<str>.=>.<log>)...( |
| 110ba0 | 6c 65 74 20 28 28 6c 31 20 28 6c 65 6e 20 73 31 29 29 20 28 6c 32 20 28 6c 65 6e 20 73 32 29 29 | let.((l1.(len.s1)).(l2.(len.s2)) |
| 110bc0 | 29 0a 20 20 20 20 28 72 65 70 20 6c 6f 6f 70 20 28 28 69 20 30 29 29 0a 20 20 20 20 20 20 28 63 | ).....(rep.loop.((i.0)).......(c |
| 110be0 | 6f 6e 64 20 28 28 3d 20 69 20 6c 31 29 20 28 7e 3d 20 6c 31 20 6c 32 29 29 0a 20 20 20 20 20 20 | ond.((=.i.l1).(~=.l1.l2))....... |
| 110c00 | 20 20 20 20 20 20 28 28 3d 20 69 20 6c 32 29 20 23 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......((=.i.l2).#f)............. |
| 110c20 | 28 28 3c 20 28 65 6c 74 20 73 31 20 69 29 20 28 65 6c 74 20 73 32 20 69 29 29 20 23 74 29 0a 20 | ((<.(elt.s1.i).(elt.s2.i)).#t).. |
| 110c40 | 20 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 28 65 6c 74 20 73 31 20 69 29 20 28 65 6c 74 20 73 | ...........((=.(elt.s1.i).(elt.s |
| 110c60 | 32 20 69 29 29 20 28 6c 6f 6f 70 20 28 31 2b 20 69 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | 2.i)).(loop.(1+.i)))............ |
| 110c80 | 20 28 23 74 20 23 66 29 29 29 29 29 0a 0a 28 64 66 20 25 62 69 6e 64 69 6e 67 2d 69 6e 66 6f 20 | .(#t.#f)))))..(df.%binding-info. |
| 110ca0 | 28 6e 61 6d 65 7c 3c 73 79 6d 3e 20 6d 6f 64 75 6c 65 7c 3c 73 79 6d 3e 29 0a 20 20 28 62 69 6e | (name|<sym>.module|<sym>)...(bin |
| 110cc0 | 64 69 6e 67 2d 69 6e 66 6f 0a 20 20 20 28 66 69 6e 64 2d 62 69 6e 64 69 6e 67 20 0a 20 20 20 20 | ding-info....(find-binding...... |
| 110ce0 | 6e 61 6d 65 20 28 6d 6f 64 75 6c 65 2d 74 61 72 67 65 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 | name.(module-target-environment. |
| 110d00 | 28 72 75 6e 74 69 6d 65 2d 6d 6f 64 75 6c 65 20 6d 6f 64 75 6c 65 29 29 29 29 29 0a 0a 0c 0a 3b | (runtime-module.module)))))....; |
| 110d20 | 3b 3b 3b 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 69 6d | ;;;.completion..(defslimefun.sim |
| 110d40 | 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 70 61 74 74 65 72 6e 7c 3c 73 74 72 3e 20 70 | ple-completions.(pattern|<str>.p |
| 110d60 | 61 63 6b 61 67 65 29 0a 20 20 28 64 65 66 20 6d 61 74 63 68 65 73 20 28 6c 73 74 29 29 0a 20 20 | ackage)...(def.matches.(lst))... |
| 110d80 | 28 66 6f 72 20 28 28 62 20 28 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 62 69 6e 64 69 6e 67 73 20 28 | (for.((b.(environment-bindings.( |
| 110da0 | 6d 6f 64 75 6c 65 2d 74 61 72 67 65 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 62 75 66 66 65 | module-target-environment.(buffe |
| 110dc0 | 72 2d 6d 6f 64 75 6c 65 29 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 70 72 65 66 69 78 3f | r-module))))).....(when.(prefix? |
| 110de0 | 20 28 62 69 6e 64 69 6e 67 2d 6e 61 6d 65 2d 73 74 72 20 62 29 20 70 61 74 74 65 72 6e 29 0a 20 | .(binding-name-str.b).pattern).. |
| 110e00 | 20 20 20 20 20 28 70 75 73 68 66 20 6d 61 74 63 68 65 73 20 62 29 29 29 0a 20 20 28 64 65 66 20 | .....(pushf.matches.b)))...(def. |
| 110e20 | 73 74 72 69 6e 67 73 20 28 6d 61 70 20 62 69 6e 64 69 6e 67 2d 6e 61 6d 65 2d 73 74 72 20 6d 61 | strings.(map.binding-name-str.ma |
| 110e40 | 74 63 68 65 73 29 29 0a 20 20 60 28 2c 73 74 72 69 6e 67 73 20 2c 28 63 6f 6e 64 20 28 28 6e 75 | tches))...`(,strings.,(cond.((nu |
| 110e60 | 6c 3f 20 73 74 72 69 6e 67 73 29 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | l?.strings).pattern)............ |
| 110e80 | 20 20 20 20 20 20 20 20 20 28 23 74 20 28 66 6f 6c 64 2b 20 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 | .........(#t.(fold+.common-prefi |
| 110ea0 | 78 20 73 74 72 69 6e 67 73 29 29 29 29 29 0a 0a 28 64 66 20 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 | x.strings)))))..(df.common-prefi |
| 110ec0 | 78 20 28 73 31 7c 3c 73 65 71 3e 20 73 32 7c 3c 73 65 71 3e 29 0a 20 20 28 6c 65 74 20 28 28 6c | x.(s1|<seq>.s2|<seq>)...(let.((l |
| 110ee0 | 69 6d 69 74 20 28 6d 69 6e 20 28 6c 65 6e 20 73 31 29 20 28 6c 65 6e 20 73 32 29 29 29 29 0a 20 | imit.(min.(len.s1).(len.s2)))).. |
| 110f00 | 20 20 20 28 72 65 70 20 6c 6f 6f 70 20 28 28 69 20 30 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 | ...(rep.loop.((i.0)).......(cond |
| 110f20 | 20 28 28 6f 72 20 28 3d 20 69 20 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .((or.(=.i.limit)............... |
| 110f40 | 20 20 20 28 7e 3d 20 28 65 6c 74 20 73 31 20 69 29 20 28 65 6c 74 20 73 32 20 69 29 29 29 0a 20 | ...(~=.(elt.s1.i).(elt.s2.i))).. |
| 110f60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 20 73 31 20 30 20 69 29 29 0a 20 20 20 20 20 20 | ............(sub.s1.0.i))....... |
| 110f80 | 20 20 20 20 20 20 28 23 74 20 28 6c 6f 6f 70 20 28 31 2b 20 69 29 29 29 29 29 29 29 0a 0a 28 64 | ......(#t.(loop.(1+.i)))))))..(d |
| 110fa0 | 65 66 73 6c 69 6d 65 66 75 6e 20 6c 69 73 74 2d 61 6c 6c 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 | efslimefun.list-all-package-name |
| 110fc0 | 73 20 28 5f 7c 2e 2e 2e 29 0a 20 20 28 6d 61 70 20 73 79 6d 2d 6e 61 6d 65 20 28 6b 65 79 73 20 | s.(_|...)...(map.sym-name.(keys. |
| 110fe0 | 28 61 6c 6c 2d 6d 6f 64 75 6c 65 73 29 29 29 29 0a 0a 28 64 66 20 61 6c 6c 2d 6d 6f 64 75 6c 65 | (all-modules))))..(df.all-module |
| 111000 | 73 20 28 29 20 28 25 6d 6f 64 75 6c 65 2d 6c 6f 61 64 65 72 2d 6d 6f 64 75 6c 65 73 20 28 72 75 | s.().(%module-loader-modules.(ru |
| 111020 | 6e 74 69 6d 65 2d 6d 6f 64 75 6c 65 2d 6c 6f 61 64 65 72 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d | ntime-module-loader)))....;;;;.M |
| 111040 | 61 63 72 6f 65 78 70 61 6e 64 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 6d | acroexpand..(defslimefun.swank-m |
| 111060 | 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 28 73 74 72 7c 3c 73 74 72 3e 29 0a 20 20 28 77 72 69 74 | acroexpand-1.(str|<str>)...(writ |
| 111080 | 65 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 28 25 61 73 74 2d 6d 61 63 72 6f 2d 65 78 70 61 6e | e-to-string....(%ast-macro-expan |
| 1110a0 | 64 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 29 20 0a 20 20 20 20 20 20 | d.(read-from-string.str)........ |
| 1110c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 74 61 72 67 65 74 2d 65 | ................(module-target-e |
| 1110e0 | 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 62 75 66 66 65 72 2d 6d 6f 64 75 6c 65 29 29 0a 20 20 20 20 | nvironment.(buffer-module))..... |
| 111100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 66 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 | ..................#f)))....;;;;. |
| 111120 | 73 74 72 65 61 6d 73 0a 0a 28 64 63 20 3c 73 6c 69 6d 65 2d 6f 75 74 2d 70 6f 72 74 3e 20 28 3c | streams..(dc.<slime-out-port>.(< |
| 111140 | 6f 75 74 2d 70 6f 72 74 3e 29 29 0a 28 64 70 20 40 73 6f 63 6b 65 74 20 28 3c 73 6c 69 6d 65 2d | out-port>)).(dp.@socket.(<slime- |
| 111160 | 6f 75 74 2d 70 6f 72 74 3e 20 3d 3e 20 3c 70 6f 72 74 3e 29 29 0a 28 64 70 21 20 40 62 75 66 2d | out-port>.=>.<port>)).(dp!.@buf- |
| 111180 | 6c 65 6e 20 28 3c 73 6c 69 6d 65 2d 6f 75 74 2d 70 6f 72 74 3e 20 3d 3e 20 3c 69 6e 74 3e 29 20 | len.(<slime-out-port>.=>.<int>). |
| 1111a0 | 30 29 0a 28 64 70 20 40 62 75 66 20 28 3c 73 6c 69 6d 65 2d 6f 75 74 2d 70 6f 72 74 3e 20 3d 3e | 0).(dp.@buf.(<slime-out-port>.=> |
| 1111c0 | 20 3c 76 65 63 3e 29 20 28 6e 65 77 20 3c 76 65 63 3e 29 29 0a 28 64 70 21 20 40 74 69 6d 65 73 | .<vec>).(new.<vec>)).(dp!.@times |
| 1111e0 | 74 61 6d 70 20 28 3c 73 6c 69 6d 65 2d 6f 75 74 2d 70 6f 72 74 3e 20 3d 3e 20 3c 69 6e 74 3e 29 | tamp.(<slime-out-port>.=>.<int>) |
| 111200 | 20 30 29 0a 0a 28 64 6d 20 72 65 63 75 72 72 69 6e 67 2d 77 72 69 74 65 20 28 70 6f 72 74 7c 3c | .0)..(dm.recurring-write.(port|< |
| 111220 | 6f 75 74 2d 70 6f 72 74 3e 20 78 7c 3c 73 6c 69 6d 65 2d 6f 75 74 2d 70 6f 72 74 3e 20 64 7c 3c | out-port>.x|<slime-out-port>.d|< |
| 111240 | 69 6e 74 3e 20 72 65 63 75 72 7c 3c 66 75 6e 3e 29 0a 20 20 28 6d 73 67 20 70 6f 72 74 20 22 23 | int>.recur|<fun>)...(msg.port."# |
| 111260 | 7b 25 73 20 62 75 66 2d 6c 65 6e 3a 20 25 73 7d 22 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 74 | {%s.buf-len:.%s}".(class-name-st |
| 111280 | 72 20 78 29 20 28 40 62 75 66 2d 6c 65 6e 20 78 29 29 29 0a 0a 28 64 6d 20 70 75 74 20 28 70 7c | r.x).(@buf-len.x)))..(dm.put.(p| |
| 1112a0 | 3c 73 6c 69 6d 65 2d 6f 75 74 2d 70 6f 72 74 3e 20 63 7c 3c 63 68 72 3e 29 0a 20 20 28 61 64 64 | <slime-out-port>.c|<chr>)...(add |
| 1112c0 | 21 20 28 40 62 75 66 20 70 29 20 63 29 0a 20 20 28 69 6e 63 66 20 28 40 62 75 66 2d 6c 65 6e 20 | !.(@buf.p).c)...(incf.(@buf-len. |
| 1112e0 | 70 29 29 0a 20 20 28 6d 61 79 62 65 2d 66 6c 75 73 68 20 70 20 28 3d 20 63 20 23 5c 6e 65 77 6c | p))...(maybe-flush.p.(=.c.#\newl |
| 111300 | 69 6e 65 29 29 29 0a 0a 28 64 6d 20 70 75 74 73 20 28 70 7c 3c 73 6c 69 6d 65 2d 6f 75 74 2d 70 | ine)))..(dm.puts.(p|<slime-out-p |
| 111320 | 6f 72 74 3e 20 73 7c 3c 73 74 72 3e 29 0a 20 20 28 61 64 64 21 20 28 40 62 75 66 20 70 29 20 73 | ort>.s|<str>)...(add!.(@buf.p).s |
| 111340 | 29 0a 20 20 28 69 6e 63 66 20 28 40 62 75 66 2d 6c 65 6e 20 70 29 20 28 6c 65 6e 20 73 29 29 0a | )...(incf.(@buf-len.p).(len.s)). |
| 111360 | 20 20 28 6d 61 79 62 65 2d 66 6c 75 73 68 20 70 20 28 6d 65 6d 3f 20 73 20 23 5c 6e 65 77 6c 69 | ..(maybe-flush.p.(mem?.s.#\newli |
| 111380 | 6e 65 29 29 29 0a 0a 28 64 66 20 6d 61 79 62 65 2d 66 6c 75 73 68 20 28 70 7c 3c 73 6c 69 6d 65 | ne)))..(df.maybe-flush.(p|<slime |
| 1113a0 | 2d 6f 75 74 2d 70 6f 72 74 3e 20 6e 65 77 6c 69 6e 65 3f 7c 3c 6c 6f 67 3e 29 0a 20 20 28 61 6e | -out-port>.newline?|<log>)...(an |
| 1113c0 | 64 20 28 6f 72 20 28 3e 20 28 40 62 75 66 2d 6c 65 6e 20 70 29 20 34 30 30 30 29 20 6e 65 77 6c | d.(or.(>.(@buf-len.p).4000).newl |
| 1113e0 | 69 6e 65 3f 29 0a 20 20 20 20 20 20 20 28 3e 20 28 2d 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 | ine?)........(>.(-.(current-time |
| 111400 | 29 20 28 40 74 69 6d 65 73 74 61 6d 70 20 70 29 29 20 31 30 30 30 30 30 29 0a 20 20 20 20 20 20 | ).(@timestamp.p)).100000)....... |
| 111420 | 20 28 66 6f 72 63 65 2d 6f 75 74 20 70 29 29 29 0a 0a 28 64 6d 20 66 6f 72 63 65 2d 6f 75 74 20 | .(force-out.p)))..(dm.force-out. |
| 111440 | 28 70 7c 3c 73 6c 69 6d 65 2d 6f 75 74 2d 70 6f 72 74 3e 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 | (p|<slime-out-port>)...(unless.( |
| 111460 | 7a 65 72 6f 3f 20 28 40 62 75 66 2d 6c 65 6e 20 70 29 29 0a 20 20 20 20 28 64 69 73 70 61 74 63 | zero?.(@buf-len.p)).....(dispatc |
| 111480 | 68 2d 65 76 65 6e 74 20 60 28 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 20 2c 28 25 62 75 66 2d 74 | h-event.`(:write-string.,(%buf-t |
| 1114a0 | 6f 2d 73 74 72 20 28 40 62 75 66 20 70 29 29 29 20 28 40 73 6f 63 6b 65 74 20 70 29 29 0a 20 20 | o-str.(@buf.p))).(@socket.p))... |
| 1114c0 | 20 20 28 73 65 74 20 28 40 62 75 66 2d 6c 65 6e 20 70 29 20 30 29 0a 20 20 20 20 28 7a 61 70 21 | ..(set.(@buf-len.p).0).....(zap! |
| 1114e0 | 20 28 40 62 75 66 20 70 29 29 29 0a 20 20 28 73 65 74 20 28 40 74 69 6d 65 73 74 61 6d 70 20 70 | .(@buf.p)))...(set.(@timestamp.p |
| 111500 | 29 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 29 29 0a 0a 28 64 66 20 25 62 75 66 2d 74 6f 2d | ).(current-time)))..(df.%buf-to- |
| 111520 | 73 74 72 20 28 62 75 66 7c 3c 76 65 63 3e 29 0a 20 20 28 70 61 63 6b 69 6e 67 2d 61 73 20 3c 73 | str.(buf|<vec>)...(packing-as.<s |
| 111540 | 74 72 3e 0a 20 20 20 20 28 66 6f 72 20 28 28 69 20 62 75 66 29 29 0a 20 20 20 20 20 20 28 63 6f | tr>.....(for.((i.buf)).......(co |
| 111560 | 6e 64 20 28 28 69 73 61 3f 20 69 20 3c 73 74 72 3e 29 20 28 66 6f 72 20 28 28 63 20 69 29 29 20 | nd.((isa?.i.<str>).(for.((c.i)). |
| 111580 | 28 70 61 63 6b 20 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 70 61 63 6b | (pack.c))).............(#t.(pack |
| 1115a0 | 20 69 29 29 29 29 29 29 0a 0a 28 64 63 20 3c 73 6c 69 6d 65 2d 69 6e 2d 70 6f 72 74 3e 20 28 3c | .i))))))..(dc.<slime-in-port>.(< |
| 1115c0 | 69 6e 2d 70 6f 72 74 3e 29 29 0a 28 64 70 20 40 73 6f 63 6b 65 74 20 28 3c 73 6c 69 6d 65 2d 69 | in-port>)).(dp.@socket.(<slime-i |
| 1115e0 | 6e 2d 70 6f 72 74 3e 20 3d 3e 20 3c 70 6f 72 74 3e 29 29 0a 28 64 70 21 20 40 69 64 78 20 28 3c | n-port>.=>.<port>)).(dp!.@idx.(< |
| 111600 | 73 6c 69 6d 65 2d 69 6e 2d 70 6f 72 74 3e 20 3d 3e 20 3c 69 6e 74 3e 29 20 30 29 0a 28 64 70 21 | slime-in-port>.=>.<int>).0).(dp! |
| 111620 | 20 40 62 75 66 20 28 3c 73 6c 69 6d 65 2d 69 6e 2d 70 6f 72 74 3e 20 3d 3e 20 3c 73 74 72 3e 29 | .@buf.(<slime-in-port>.=>.<str>) |
| 111640 | 20 22 22 29 0a 0a 28 64 66 20 72 65 63 65 69 76 65 2d 69 6e 70 75 74 20 28 70 7c 3c 73 6c 69 6d | ."")..(df.receive-input.(p|<slim |
| 111660 | 65 2d 69 6e 2d 70 6f 72 74 3e 29 0a 20 20 28 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 60 28 | e-in-port>)...(dispatch-event.`( |
| 111680 | 3a 72 65 61 64 2d 73 74 72 69 6e 67 20 2c 30 29 20 28 40 73 6f 63 6b 65 74 20 70 29 29 29 0a 0a | :read-string.,0).(@socket.p))).. |
| 1116a0 | 28 64 6d 20 67 65 74 20 28 70 7c 3c 73 6c 69 6d 65 2d 69 6e 2d 70 6f 72 74 3e 20 3d 3e 20 3c 63 | (dm.get.(p|<slime-in-port>.=>.<c |
| 1116c0 | 68 72 3e 29 0a 20 20 28 63 6f 6e 64 20 28 28 3c 20 28 40 69 64 78 20 70 29 20 28 6c 65 6e 20 28 | hr>)...(cond.((<.(@idx.p).(len.( |
| 1116e0 | 40 62 75 66 20 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 66 20 63 20 28 65 6c 74 20 28 | @buf.p)))..........(def.c.(elt.( |
| 111700 | 40 62 75 66 20 70 29 20 28 40 69 64 78 20 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 63 | @buf.p).(@idx.p)))..........(inc |
| 111720 | 66 20 28 40 69 64 78 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 63 29 0a 20 20 20 20 20 20 20 20 | f.(@idx.p))..........c)......... |
| 111740 | 28 23 74 20 0a 20 20 20 20 20 20 20 20 20 28 64 65 66 20 69 6e 70 75 74 20 28 72 65 63 65 69 76 | (#t...........(def.input.(receiv |
| 111760 | 65 2d 69 6e 70 75 74 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 7a 65 72 | e-input.p))..........(cond.((zer |
| 111780 | 6f 3f 20 28 6c 65 6e 20 69 6e 70 75 74 29 29 20 28 65 6f 66 2d 6f 62 6a 65 63 74 29 29 0a 20 20 | o?.(len.input)).(eof-object))... |
| 1117a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 73 65 74 20 28 40 62 75 66 20 70 29 20 69 | .............(#t.(set.(@buf.p).i |
| 1117c0 | 6e 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 28 40 | nput)....................(set.(@ |
| 1117e0 | 69 64 78 20 70 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 | idx.p).0)....................(ge |
| 111800 | 74 20 70 29 29 29 29 29 29 0a 0a 28 64 6d 20 72 65 61 64 79 3f 20 28 70 7c 3c 73 6c 69 6d 65 2d | t.p))))))..(dm.ready?.(p|<slime- |
| 111820 | 69 6e 2d 70 6f 72 74 3e 20 3d 3e 20 3c 6c 6f 67 3e 29 20 28 3c 20 28 40 69 64 78 20 70 29 20 28 | in-port>.=>.<log>).(<.(@idx.p).( |
| 111840 | 6c 65 6e 20 28 40 62 75 66 20 70 29 29 29 29 0a 0a 28 64 6d 20 70 65 65 6b 20 28 70 7c 3c 73 6c | len.(@buf.p))))..(dm.peek.(p|<sl |
| 111860 | 69 6d 65 2d 69 6e 2d 70 6f 72 74 3e 20 3d 3e 20 3c 63 68 72 3e 29 0a 20 20 28 6c 65 74 20 28 28 | ime-in-port>.=>.<chr>)...(let.(( |
| 111880 | 63 20 28 67 65 74 20 70 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 6f 66 2d 6f 62 6a | c.(get.p))).....(unless.(eof-obj |
| 1118a0 | 65 63 74 3f 20 63 29 0a 20 20 20 20 20 20 28 64 65 63 66 20 28 40 69 64 78 20 70 29 29 29 0a 20 | ect?.c).......(decf.(@idx.p))).. |
| 1118c0 | 20 20 20 63 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 65 73 73 61 67 65 20 65 6e 63 6f 64 69 6e 67 0a | ...c))....;;;;.Message.encoding. |
| 1118e0 | 0a 28 64 66 20 64 65 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 28 70 6f 72 74 7c 3c 69 6e 2d 70 6f | .(df.decode-message.(port|<in-po |
| 111900 | 72 74 3e 29 0a 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 67 65 74 2d 62 6c | rt>)...(read-from-string.(get-bl |
| 111920 | 6f 63 6b 20 70 6f 72 74 20 28 72 65 61 64 2d 6d 65 73 73 61 67 65 2d 6c 65 6e 67 74 68 20 70 6f | ock.port.(read-message-length.po |
| 111940 | 72 74 29 29 29 29 0a 0a 28 64 66 20 72 65 61 64 2d 6d 65 73 73 61 67 65 2d 6c 65 6e 67 74 68 20 | rt))))..(df.read-message-length. |
| 111960 | 28 70 6f 72 74 29 20 0a 20 20 28 6f 72 20 28 73 74 72 2d 74 6f 2d 6e 75 6d 20 28 63 61 74 20 22 | (port)....(or.(str-to-num.(cat." |
| 111980 | 23 78 22 20 28 67 65 74 2d 62 6c 6f 63 6b 20 70 6f 72 74 20 36 29 29 29 0a 20 20 20 20 20 20 28 | #x".(get-block.port.6))).......( |
| 1119a0 | 65 72 72 6f 72 20 22 63 61 6e 27 74 20 70 61 72 73 65 20 6d 65 73 73 61 67 65 20 6c 65 6e 67 74 | error."can't.parse.message.lengt |
| 1119c0 | 68 22 29 29 29 0a 0a 28 64 66 20 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 28 6d 65 73 73 61 | h")))..(df.encode-message.(messa |
| 1119e0 | 67 65 20 70 6f 72 74 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 20 28 64 6c 65 74 20 28 | ge.port)...(let.((string.(dlet.( |
| 111a00 | 28 2a 6d 61 78 2d 70 72 69 6e 74 2d 6c 65 6e 67 74 68 2a 20 31 30 30 30 30 30 30 29 0a 20 20 20 | (*max-print-length*.1000000).... |
| 111a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 6d 61 78 2d 70 72 69 6e 74 2d | ....................(*max-print- |
| 111a40 | 64 65 70 74 68 2a 20 31 30 30 30 30 30 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | depth*.1000000))................ |
| 111a60 | 20 20 20 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 6d 65 73 73 61 67 65 29 29 29 29 0a | ...(write-to-string.message)))). |
| 111a80 | 20 20 20 20 28 70 75 74 73 20 70 6f 72 74 20 28 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 2d 6c | ....(puts.port.(encode-message-l |
| 111aa0 | 65 6e 67 74 68 20 28 6c 65 6e 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 70 75 74 73 20 70 | ength.(len.string))).....(puts.p |
| 111ac0 | 6f 72 74 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 20 70 6f 72 74 29 | ort.string).....(force-out.port) |
| 111ae0 | 29 29 0a 0a 28 64 66 20 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 2d 6c 65 6e 67 74 68 20 28 6e | ))..(df.encode-message-length.(n |
| 111b00 | 29 0a 20 20 28 6c 6f 63 20 28 28 68 65 78 20 28 62 79 74 65 29 20 0a 20 20 20 20 20 20 20 20 20 | )...(loc.((hex.(byte)........... |
| 111b20 | 20 20 20 20 28 69 66 20 28 3c 20 62 79 74 65 20 23 78 31 30 29 20 0a 20 20 20 20 20 20 20 20 20 | ....(if.(<.byte.#x10)........... |
| 111b40 | 20 20 20 20 20 20 20 20 28 63 61 74 20 22 30 22 20 28 6e 75 6d 2d 74 6f 2d 73 74 72 2d 62 61 73 | ........(cat."0".(num-to-str-bas |
| 111b60 | 65 20 62 79 74 65 20 31 36 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 | e.byte.16))..................(nu |
| 111b80 | 6d 2d 74 6f 2d 73 74 72 2d 62 61 73 65 20 62 79 74 65 20 31 36 29 29 29 0a 20 20 20 20 20 20 20 | m-to-str-base.byte.16)))........ |
| 111ba0 | 20 28 62 79 74 65 20 28 69 29 20 28 68 65 78 20 28 26 20 28 3e 3e 20 6e 20 28 2a 20 69 20 38 29 | .(byte.(i).(hex.(&.(>>.n.(*.i.8) |
| 111bc0 | 29 20 32 35 35 29 29 29 29 0a 20 20 20 20 28 63 61 74 20 28 62 79 74 65 20 32 29 20 28 62 79 74 | ).255)))).....(cat.(byte.2).(byt |
| 111be0 | 65 20 31 29 20 28 62 79 74 65 20 30 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 73 65 6d 69 20 67 65 | e.1).(byte.0))))....;;;;.semi.ge |
| 111c00 | 6e 65 72 61 6c 20 75 74 69 6c 69 74 69 65 73 0a 0a 3b 3b 20 52 65 74 75 72 6e 20 74 68 65 20 6e | neral.utilities..;;.Return.the.n |
| 111c20 | 61 6d 65 20 6f 66 20 4f 27 73 20 63 6c 61 73 73 20 61 73 20 73 74 72 69 6e 67 2e 0a 28 64 66 20 | ame.of.O's.class.as.string..(df. |
| 111c40 | 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 74 72 20 28 6f 20 3d 3e 20 3c 73 74 72 3e 29 20 28 73 79 6d | class-name-str.(o.=>.<str>).(sym |
| 111c60 | 2d 6e 61 6d 65 20 28 63 6c 61 73 73 2d 6e 61 6d 65 20 28 63 6c 61 73 73 2d 6f 66 20 6f 29 29 29 | -name.(class-name.(class-of.o))) |
| 111c80 | 29 0a 0a 28 64 66 20 62 69 6e 64 69 6e 67 2d 6e 61 6d 65 2d 73 74 72 20 28 62 7c 3c 62 69 6e 64 | )..(df.binding-name-str.(b|<bind |
| 111ca0 | 69 6e 67 3e 20 3d 3e 20 3c 73 74 72 3e 29 20 28 73 79 6d 2d 6e 61 6d 65 20 28 62 69 6e 64 69 6e | ing>.=>.<str>).(sym-name.(bindin |
| 111cc0 | 67 2d 6e 61 6d 65 20 62 29 29 29 0a 0a 28 64 66 20 61 73 2d 73 79 6d 20 28 73 74 72 7c 3c 73 74 | g-name.b)))..(df.as-sym.(str|<st |
| 111ce0 | 72 3e 29 20 28 61 73 20 3c 73 79 6d 3e 20 73 74 72 29 29 0a 0a 3b 3b 20 52 65 70 6c 61 63 65 20 | r>).(as.<sym>.str))..;;.Replace. |
| 111d00 | 27 2f 2f 27 20 69 6e 20 74 68 65 20 6d 69 64 64 6c 65 20 6f 66 20 61 20 66 69 6c 65 6e 61 6d 65 | '//'.in.the.middle.of.a.filename |
| 111d20 | 20 77 69 74 68 20 77 69 74 68 20 61 20 27 2f 27 0a 28 64 66 20 73 69 6d 70 6c 69 66 79 2d 66 69 | .with.with.a.'/'.(df.simplify-fi |
| 111d40 | 6c 65 6e 61 6d 65 20 28 73 74 72 7c 3c 73 74 72 3e 20 3d 3e 20 3c 73 74 72 3e 29 0a 20 20 28 6d | lename.(str|<str>.=>.<str>)...(m |
| 111d60 | 61 74 63 68 20 28 70 61 74 68 6e 61 6d 65 2d 74 6f 2d 63 6f 6d 70 6f 6e 65 6e 74 73 20 73 74 72 | atch.(pathname-to-components.str |
| 111d80 | 29 0a 20 20 20 20 28 28 2c 68 64 20 2c 40 74 6c 29 20 0a 20 20 20 20 20 28 63 6f 6d 70 6f 6e 65 | ).....((,hd.,@tl).......(compone |
| 111da0 | 6e 74 73 2d 74 6f 2d 70 61 74 68 6e 61 6d 65 20 28 63 6f 6e 73 20 68 64 20 28 64 65 6c 2d 76 61 | nts-to-pathname.(cons.hd.(del-va |
| 111dc0 | 6c 73 20 74 6c 20 27 72 6f 6f 74 29 29 29 29 29 29 0a 0a 3b 3b 20 45 78 65 63 75 74 65 20 42 4f | ls.tl.'root))))))..;;.Execute.BO |
| 111de0 | 44 59 20 61 6e 64 20 6f 6e 6c 79 20 69 66 20 42 4f 44 59 20 65 78 69 74 73 20 61 62 6e 6f 72 6d | DY.and.only.if.BODY.exits.abnorm |
| 111e00 | 61 6c 6c 79 20 65 78 65 63 75 74 65 20 52 45 43 4f 56 45 52 2e 0a 28 64 66 20 74 72 79 2d 72 65 | ally.execute.RECOVER..(df.try-re |
| 111e20 | 63 6f 76 65 72 20 28 62 6f 64 79 20 72 65 63 6f 76 65 72 29 0a 20 20 28 6c 65 74 20 28 28 6f 6b | cover.(body.recover)...(let.((ok |
| 111e40 | 20 23 66 29 29 0a 20 20 20 20 28 66 69 6e 20 28 6c 65 74 20 28 28 76 61 6c 20 28 62 6f 64 79 29 | .#f)).....(fin.(let.((val.(body) |
| 111e60 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 6f 6b 20 23 74 29 0a 20 20 20 20 20 20 | ))............(set.ok.#t)....... |
| 111e80 | 20 20 20 20 20 76 61 6c 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 6f 6b 20 0a 20 20 20 20 | .....val).......(unless.ok...... |
| 111ea0 | 20 20 20 20 28 72 65 63 6f 76 65 72 29 29 29 29 29 0a 0a 3b 3b 20 6c 69 6b 65 20 43 4c 27 73 20 | ....(recover)))))..;;.like.CL's. |
| 111ec0 | 49 47 4e 4f 52 45 2d 45 52 52 4f 52 53 20 62 75 74 20 72 65 74 75 72 6e 20 56 41 4c 55 45 20 69 | IGNORE-ERRORS.but.return.VALUE.i |
| 111ee0 | 6e 20 63 61 73 65 20 6f 66 20 61 6e 20 65 72 72 6f 72 2e 20 0a 28 64 66 20 74 72 79 2d 6f 72 20 | n.case.of.an.error...(df.try-or. |
| 111f00 | 28 62 6f 64 79 7c 3c 66 75 6e 3e 20 76 61 6c 75 65 29 0a 20 20 28 65 73 63 20 72 65 74 20 20 0a | (body|<fun>.value)...(esc.ret... |
| 111f20 | 20 20 20 20 28 74 72 79 20 3c 65 72 72 6f 72 3e 20 28 66 75 6e 20 28 63 6f 6e 64 69 74 69 6f 6e | ....(try.<error>.(fun.(condition |
| 111f40 | 20 72 65 73 75 6d 65 29 20 28 72 65 74 20 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 28 62 6f 64 | .resume).(ret.value)).......(bod |
| 111f60 | 79 29 29 29 29 0a 0a 28 64 66 20 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 20 28 74 79 70 65 20 | y))))..(df.simple-restart.(type. |
| 111f80 | 6d 73 67 20 62 6f 64 79 29 0a 20 20 28 65 73 63 20 72 65 73 74 61 72 74 0a 20 20 20 20 28 74 72 | msg.body)...(esc.restart.....(tr |
| 111fa0 | 79 20 28 28 74 79 70 65 20 74 79 70 65 29 20 28 64 65 73 63 72 69 70 74 69 6f 6e 20 6d 73 67 29 | y.((type.type).(description.msg) |
| 111fc0 | 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 63 20 72 29 20 28 72 65 73 74 61 72 74 20 23 66 | ).........(fun.(c.r).(restart.#f |
| 111fe0 | 29 29 0a 20 20 20 20 20 20 28 62 6f 64 79 29 29 29 29 0a 0a 28 64 66 20 73 61 66 65 2d 77 72 69 | )).......(body))))..(df.safe-wri |
| 112000 | 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 29 0a 20 20 28 65 73 63 20 72 65 74 20 20 0a 20 20 | te-to-string.(o)...(esc.ret..... |
| 112020 | 20 20 28 74 72 79 20 3c 65 72 72 6f 72 3e 20 28 66 75 6e 20 28 63 20 72 29 20 0a 20 20 20 20 20 | ..(try.<error>.(fun.(c.r)....... |
| 112040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 20 28 63 61 74 20 22 23 3c 65 72 72 6f 72 | ..............(ret.(cat."#<error |
| 112060 | 20 64 75 72 69 6e 67 20 77 72 69 74 65 20 22 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 74 72 20 | .during.write.".(class-name-str. |
| 112080 | 6f 29 20 22 3e 22 29 29 29 0a 20 20 20 20 20 20 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 | o).">"))).......(write-to-string |
| 1120a0 | 20 6f 29 29 29 29 0a 0a 3b 3b 20 52 65 61 64 20 61 20 73 74 72 69 6e 67 20 6f 66 20 6c 65 6e 67 | .o))))..;;.Read.a.string.of.leng |
| 1120c0 | 74 68 20 43 4f 55 4e 54 2e 0a 28 64 66 20 67 65 74 2d 62 6c 6f 63 6b 20 28 70 6f 72 74 7c 3c 69 | th.COUNT..(df.get-block.(port|<i |
| 1120e0 | 6e 2d 70 6f 72 74 3e 20 63 6f 75 6e 74 7c 3c 69 6e 74 3e 20 3d 3e 20 3c 73 74 72 3e 29 0a 20 20 | n-port>.count|<int>.=>.<str>)... |
| 112100 | 28 70 61 63 6b 69 6e 67 2d 61 73 20 3c 73 74 72 3e 20 0a 20 20 20 20 28 66 6f 72 20 28 28 69 20 | (packing-as.<str>......(for.((i. |
| 112120 | 28 62 65 6c 6f 77 20 63 6f 75 6e 74 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 20 28 | (below.count))).......(let.((c.( |
| 112140 | 67 65 74 20 70 6f 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 6f 66 2d | get.port))).........(cond.((eof- |
| 112160 | 6f 62 6a 65 63 74 3f 20 63 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f | object?.c).................(erro |
| 112180 | 72 20 22 50 72 65 6d 61 74 75 72 65 20 45 4f 46 20 28 72 65 61 64 20 25 64 20 6f 66 20 25 64 29 | r."Premature.EOF.(read.%d.of.%d) |
| 1121a0 | 22 20 69 20 63 6f 75 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 74 20 28 70 | ".i.count))...............(#t.(p |
| 1121c0 | 61 63 6b 20 63 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 69 6d 70 6f 72 74 20 73 6f 6d 65 | ack.c)))))))....;;;;.import.some |
| 1121e0 | 20 69 6e 74 65 72 6e 61 6c 20 62 69 6e 64 69 6e 67 73 0a 0a 28 64 66 20 25 6c 6f 6f 6b 75 70 20 | .internal.bindings..(df.%lookup. |
| 112200 | 28 6e 61 6d 65 7c 3c 73 79 6d 3e 20 6d 6f 64 75 6c 65 7c 3c 73 79 6d 3e 29 0a 20 20 28 6c 6f 63 | (name|<sym>.module|<sym>)...(loc |
| 112220 | 2d 76 61 6c 20 0a 20 20 20 28 62 69 6e 64 69 6e 67 2d 6c 6f 63 61 74 69 76 65 20 0a 20 20 20 20 | -val.....(binding-locative...... |
| 112240 | 28 66 69 6e 64 2d 62 69 6e 64 69 6e 67 20 0a 20 20 20 20 20 6e 61 6d 65 20 28 6d 6f 64 75 6c 65 | (find-binding.......name.(module |
| 112260 | 2d 74 61 72 67 65 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 72 75 6e 74 69 6d 65 2d 6d 6f 64 | -target-environment.(runtime-mod |
| 112280 | 75 6c 65 20 6d 6f 64 75 6c 65 29 29 29 29 29 29 0a 0a 28 64 2e 20 25 68 61 6e 64 6c 65 72 2d 69 | ule.module))))))..(d..%handler-i |
| 1122a0 | 6e 66 6f 20 20 20 20 20 20 20 20 20 20 20 28 25 6c 6f 6f 6b 75 70 20 27 68 61 6e 64 6c 65 72 2d | nfo...........(%lookup.'handler- |
| 1122c0 | 69 6e 66 6f 20 27 67 6f 6f 2f 63 6f 6e 64 69 74 69 6f 6e 73 29 29 0a 28 64 2e 20 25 68 61 6e 64 | info.'goo/conditions)).(d..%hand |
| 1122e0 | 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 74 79 70 65 20 28 25 6c 6f 6f 6b 75 70 20 27 68 61 6e | ler-condition-type.(%lookup.'han |
| 112300 | 64 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 74 79 70 65 20 27 67 6f 6f 2f 63 6f 6e 64 69 74 69 | dler-condition-type.'goo/conditi |
| 112320 | 6f 6e 73 29 29 0a 28 64 2e 20 25 64 6f 2d 68 61 6e 64 6c 65 72 73 2d 6f 66 2d 74 79 70 65 20 20 | ons)).(d..%do-handlers-of-type.. |
| 112340 | 20 20 28 25 6c 6f 6f 6b 75 70 20 27 64 6f 2d 68 61 6e 64 6c 65 72 73 2d 6f 66 2d 74 79 70 65 20 | ..(%lookup.'do-handlers-of-type. |
| 112360 | 27 67 6f 6f 2f 63 6f 6e 64 69 74 69 6f 6e 73 29 29 0a 28 64 2e 20 25 6d 6f 64 75 6c 65 2d 6c 6f | 'goo/conditions)).(d..%module-lo |
| 112380 | 61 64 65 72 2d 6d 6f 64 75 6c 65 73 20 20 28 25 6c 6f 6f 6b 75 70 20 27 6d 6f 64 75 6c 65 2d 6c | ader-modules..(%lookup.'module-l |
| 1123a0 | 6f 61 64 65 72 2d 6d 6f 64 75 6c 65 73 20 27 65 76 61 6c 2f 6d 6f 64 75 6c 65 29 29 0a 28 64 2e | oader-modules.'eval/module)).(d. |
| 1123c0 | 20 25 61 73 74 2d 6d 61 63 72 6f 2d 65 78 70 61 6e 64 20 20 20 20 20 20 20 28 25 6c 6f 6f 6b 75 | .%ast-macro-expand.......(%looku |
| 1123e0 | 70 20 27 61 73 74 2d 6d 61 63 72 6f 2d 65 78 70 61 6e 64 20 27 65 76 61 6c 2f 61 73 74 29 29 0a | p.'ast-macro-expand.'eval/ast)). |
| 112400 | 0a 0c 0a 3b 3b 3b 3b 20 6c 6f 77 20 6c 65 76 65 6c 20 73 6f 63 6b 65 74 20 73 74 75 66 66 0a 3b | ...;;;;.low.level.socket.stuff.; |
| 112420 | 3b 3b 20 74 68 69 73 20 73 68 6f 75 6c 64 6e 27 74 20 62 65 20 68 65 72 65 0a 0a 23 7b 20 0a 23 | ;;.this.shouldn't.be.here..#{..# |
| 112440 | 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 74 79 70 65 73 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c | include.<sys/types.h>.#include.< |
| 112460 | 73 79 73 2f 73 6f 63 6b 65 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6e 65 74 69 6e 65 74 2f | sys/socket.h>.#include.<netinet/ |
| 112480 | 69 6e 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 65 72 72 6e 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 | in.h>.#include.<errno.h>.#includ |
| 1124a0 | 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e | e.<string.h>.#include.<stdlib.h> |
| 1124c0 | 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 74 69 6d 65 2e 68 3e 0a 0a 2f 2a 20 63 6f 6e 76 65 | .#include.<sys/time.h>../*.conve |
| 1124e0 | 72 74 20 61 20 67 6f 6f 20 6e 75 6d 62 65 72 20 74 6f 20 61 20 43 20 6c 6f 6e 67 20 2a 2f 0a 73 | rt.a.goo.number.to.a.C.long.*/.s |
| 112500 | 74 61 74 69 63 20 6c 6f 6e 67 20 67 32 69 20 28 50 20 6f 29 20 7b 20 72 65 74 75 72 6e 20 75 6e | tatic.long.g2i.(P.o).{.return.un |
| 112520 | 74 61 67 20 28 6f 29 3b 20 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 73 65 74 5f 72 65 75 73 65 | tag.(o);.}..static.int.set_reuse |
| 112540 | 5f 61 64 64 72 65 73 73 20 28 69 6e 74 20 73 6f 63 6b 65 74 2c 20 69 6e 74 20 76 61 6c 75 65 29 | _address.(int.socket,.int.value) |
| 112560 | 20 7b 0a 20 20 72 65 74 75 72 6e 20 73 65 74 73 6f 63 6b 6f 70 74 20 28 73 6f 63 6b 65 74 2c 20 | .{...return.setsockopt.(socket,. |
| 112580 | 53 4f 4c 5f 53 4f 43 4b 45 54 2c 20 53 4f 5f 52 45 55 53 45 41 44 44 52 2c 20 26 76 61 6c 75 65 | SOL_SOCKET,.SO_REUSEADDR,.&value |
| 1125a0 | 2c 20 73 69 7a 65 6f 66 20 76 61 6c 75 65 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 62 | ,.sizeof.value);.}..static.int.b |
| 1125c0 | 69 6e 64 5f 73 6f 63 6b 65 74 20 28 69 6e 74 20 73 6f 63 6b 65 74 2c 20 69 6e 74 20 70 6f 72 74 | ind_socket.(int.socket,.int.port |
| 1125e0 | 29 20 7b 0a 20 20 73 74 72 75 63 74 20 73 6f 63 6b 61 64 64 72 5f 69 6e 20 61 64 64 72 3b 0a 20 | ).{...struct.sockaddr_in.addr;.. |
| 112600 | 20 61 64 64 72 2e 73 69 6e 5f 66 61 6d 69 6c 79 20 3d 20 41 46 5f 49 4e 45 54 3b 0a 20 20 61 64 | .addr.sin_family.=.AF_INET;...ad |
| 112620 | 64 72 2e 73 69 6e 5f 70 6f 72 74 20 3d 20 68 74 6f 6e 73 20 28 70 6f 72 74 29 3b 0a 20 20 61 64 | dr.sin_port.=.htons.(port);...ad |
| 112640 | 64 72 2e 73 69 6e 5f 61 64 64 72 2e 73 5f 61 64 64 72 20 3d 20 68 74 6f 6e 6c 20 28 49 4e 41 44 | dr.sin_addr.s_addr.=.htonl.(INAD |
| 112660 | 44 52 5f 41 4e 59 29 3b 0a 20 20 72 65 74 75 72 6e 20 62 69 6e 64 20 28 73 6f 63 6b 65 74 2c 20 | DR_ANY);...return.bind.(socket,. |
| 112680 | 28 73 74 72 75 63 74 20 73 6f 63 6b 61 64 64 72 20 2a 29 26 61 64 64 72 2c 20 73 69 7a 65 6f 66 | (struct.sockaddr.*)&addr,.sizeof |
| 1126a0 | 20 61 64 64 72 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 6c 6f 63 61 6c 5f 70 6f 72 74 | .addr);.}..static.int.local_port |
| 1126c0 | 20 28 69 6e 74 20 73 6f 63 6b 65 74 29 20 7b 0a 20 20 73 74 72 75 63 74 20 73 6f 63 6b 61 64 64 | .(int.socket).{...struct.sockadd |
| 1126e0 | 72 5f 69 6e 20 61 64 64 72 3b 0a 20 20 73 6f 63 6b 6c 65 6e 5f 74 20 6c 65 6e 20 3d 20 73 69 7a | r_in.addr;...socklen_t.len.=.siz |
| 112700 | 65 6f 66 20 61 64 64 72 3b 0a 20 20 69 6e 74 20 63 6f 64 65 20 3d 20 67 65 74 73 6f 63 6b 6e 61 | eof.addr;...int.code.=.getsockna |
| 112720 | 6d 65 20 28 73 6f 63 6b 65 74 2c 20 28 73 74 72 75 63 74 20 73 6f 63 6b 61 64 64 72 20 2a 29 26 | me.(socket,.(struct.sockaddr.*)& |
| 112740 | 61 64 64 72 2c 20 26 6c 65 6e 29 3b 0a 20 20 72 65 74 75 72 6e 20 28 63 6f 64 65 20 3d 3d 20 2d | addr,.&len);...return.(code.==.- |
| 112760 | 31 29 20 3f 20 2d 31 20 3a 20 6e 74 6f 68 73 20 28 61 64 64 72 2e 73 69 6e 5f 70 6f 72 74 29 3b | 1).?.-1.:.ntohs.(addr.sin_port); |
| 112780 | 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 63 5f 61 63 63 65 70 74 20 28 69 6e 74 20 73 6f 63 | .}..static.int.c_accept.(int.soc |
| 1127a0 | 6b 65 74 29 20 7b 0a 20 20 73 74 72 75 63 74 20 73 6f 63 6b 61 64 64 72 5f 69 6e 20 61 64 64 72 | ket).{...struct.sockaddr_in.addr |
| 1127c0 | 3b 0a 20 20 73 6f 63 6b 6c 65 6e 5f 74 20 6c 65 6e 20 3d 20 73 69 7a 65 6f 66 20 61 64 64 72 3b | ;...socklen_t.len.=.sizeof.addr; |
| 1127e0 | 0a 20 20 72 65 74 75 72 6e 20 61 63 63 65 70 74 20 28 73 6f 63 6b 65 74 2c 20 28 73 74 72 75 63 | ...return.accept.(socket,.(struc |
| 112800 | 74 20 73 6f 63 6b 61 64 64 72 20 2a 29 26 61 64 64 72 2c 20 26 6c 65 6e 29 3b 0a 7d 0a 0a 73 74 | t.sockaddr.*)&addr,.&len);.}..st |
| 112820 | 61 74 69 63 20 50 20 74 75 70 33 20 28 50 20 65 30 2c 20 50 20 65 31 2c 20 50 20 65 32 29 20 7b | atic.P.tup3.(P.e0,.P.e1,.P.e2).{ |
| 112840 | 0a 20 20 50 20 74 75 70 20 3d 20 59 50 50 74 66 61 62 20 28 28 50 29 33 2c 20 59 50 66 61 6c 73 | ...P.tup.=.YPPtfab.((P)3,.YPfals |
| 112860 | 65 29 3b 0a 20 20 59 50 74 65 6c 74 5f 73 65 74 74 65 72 20 28 65 30 2c 20 74 75 70 2c 20 28 50 | e);...YPtelt_setter.(e0,.tup,.(P |
| 112880 | 29 30 29 3b 0a 20 20 59 50 74 65 6c 74 5f 73 65 74 74 65 72 20 28 65 31 2c 20 74 75 70 2c 20 28 | )0);...YPtelt_setter.(e1,.tup,.( |
| 1128a0 | 50 29 31 29 3b 0a 20 20 59 50 74 65 6c 74 5f 73 65 74 74 65 72 20 28 65 32 2c 20 74 75 70 2c 20 | P)1);...YPtelt_setter.(e2,.tup,. |
| 1128c0 | 28 50 29 32 29 3b 0a 20 20 72 65 74 75 72 6e 20 74 75 70 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 50 | (P)2);...return.tup;.}..static.P |
| 1128e0 | 0a 63 75 72 72 65 6e 74 5f 74 69 6d 65 20 28 76 6f 69 64 29 20 7b 0a 20 20 73 74 72 75 63 74 20 | .current_time.(void).{...struct. |
| 112900 | 74 69 6d 65 76 61 6c 20 74 69 6d 65 76 61 6c 3b 0a 20 20 69 6e 74 20 63 6f 64 65 20 3d 20 67 65 | timeval.timeval;...int.code.=.ge |
| 112920 | 74 74 69 6d 65 6f 66 64 61 79 20 28 26 74 69 6d 65 76 61 6c 2c 20 4e 55 4c 4c 29 3b 0a 20 20 69 | ttimeofday.(&timeval,.NULL);...i |
| 112940 | 66 20 28 63 6f 64 65 20 3d 3d 20 30 29 20 7b 0a 20 20 20 20 20 72 65 74 75 72 6e 20 74 75 70 33 | f.(code.==.0).{......return.tup3 |
| 112960 | 20 28 59 50 69 62 20 28 28 50 29 28 74 69 6d 65 76 61 6c 2e 74 76 5f 73 65 63 20 3e 3e 20 32 34 | .(YPib.((P)(timeval.tv_sec.>>.24 |
| 112980 | 29 29 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 59 50 69 62 20 28 28 50 29 | )),....................YPib.((P) |
| 1129a0 | 28 74 69 6d 65 76 61 6c 2e 74 76 5f 73 65 63 20 26 20 30 78 66 66 66 66 66 66 29 29 2c 0a 20 20 | (timeval.tv_sec.&.0xffffff)),... |
| 1129c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 59 50 69 62 20 28 28 50 29 28 74 69 6d 65 76 61 | ................YPib.((P)(timeva |
| 1129e0 | 6c 2e 74 76 5f 75 73 65 63 29 29 29 3b 20 20 20 20 20 0a 20 20 7d 20 65 6c 73 65 20 72 65 74 75 | l.tv_usec)));........}.else.retu |
| 112a00 | 72 6e 20 59 50 69 62 20 28 28 50 29 65 72 72 6e 6f 29 3b 0a 7d 0a 7d 0a 0a 3b 3b 20 52 65 74 75 | rn.YPib.((P)errno);.}.}..;;.Retu |
| 112a20 | 72 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65 20 69 6e 20 6d 69 63 72 6f 73 65 63 73 | rn.the.current.time.in.microsecs |
| 112a40 | 0a 28 64 66 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 20 28 3d 3e 20 3c 69 6e 74 3e 29 0a 20 20 28 | .(df.current-time.(=>.<int>)...( |
| 112a60 | 64 65 66 20 74 20 23 65 67 7b 20 63 75 72 72 65 6e 74 5f 74 69 6d 65 20 28 29 20 7d 29 0a 20 20 | def.t.#eg{.current_time.().})... |
| 112a80 | 28 63 6f 6e 64 20 28 28 69 73 61 3f 20 74 20 3c 69 6e 74 3e 29 20 28 65 72 72 6f 72 20 22 25 73 | (cond.((isa?.t.<int>).(error."%s |
| 112aa0 | 22 20 28 73 74 72 65 72 72 6f 72 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 23 74 20 28 2b 20 | ".(strerror.t))).........(#t.(+. |
| 112ac0 | 28 2a 20 28 2b 20 28 3c 3c 20 28 31 73 74 20 74 29 20 32 34 29 20 0a 20 20 20 20 20 20 20 20 20 | (*.(+.(<<.(1st.t).24)........... |
| 112ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 32 6e 64 20 74 29 29 20 0a 20 20 20 20 20 20 20 20 20 20 | ............(2nd.t))............ |
| 112b00 | 20 20 20 20 20 20 20 20 31 30 30 30 30 30 30 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........1000000)................ |
| 112b20 | 20 28 33 72 64 20 74 29 29 29 29 29 0a 0a 28 64 6d 20 73 74 72 65 72 72 6f 72 20 28 65 7c 3c 69 | .(3rd.t)))))..(dm.strerror.(e|<i |
| 112b40 | 6e 74 3e 20 3d 3e 20 3c 73 74 72 3e 29 20 20 20 23 65 73 7b 20 73 74 72 65 72 72 6f 72 20 28 67 | nt>.=>.<str>)...#es{.strerror.(g |
| 112b60 | 32 69 20 28 24 65 29 29 20 7d 29 0a 28 64 6d 20 73 74 72 65 72 72 6f 72 20 28 65 7c 28 74 3d 20 | 2i.($e)).}).(dm.strerror.(e|(t=. |
| 112b80 | 23 66 29 20 3d 3e 20 3c 73 74 72 3e 29 20 23 65 73 7b 20 73 74 72 65 72 72 6f 72 20 28 65 72 72 | #f).=>.<str>).#es{.strerror.(err |
| 112ba0 | 6e 6f 29 20 7d 29 0a 0a 28 64 66 20 63 68 65 63 6b 72 20 28 76 61 6c 75 65 7c 3c 69 6e 74 3e 29 | no).})..(df.checkr.(value|<int>) |
| 112bc0 | 0a 20 20 28 63 6f 6e 64 20 28 28 7e 3d 3d 20 76 61 6c 75 65 20 2d 31 29 20 76 61 6c 75 65 29 0a | ...(cond.((~==.value.-1).value). |
| 112be0 | 20 20 20 20 20 20 20 20 28 23 74 20 28 65 72 72 6f 72 20 22 25 73 22 20 28 73 74 72 65 72 72 6f | ........(#t.(error."%s".(strerro |
| 112c00 | 72 20 23 66 29 29 29 29 29 0a 0a 28 64 66 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 28 70 6f | r.#f)))))..(df.create-socket.(po |
| 112c20 | 72 74 7c 3c 69 6e 74 3e 20 3d 3e 20 3c 69 6e 74 3e 29 0a 20 20 28 6c 65 74 20 28 28 73 6f 63 6b | rt|<int>.=>.<int>)...(let.((sock |
| 112c40 | 65 74 20 28 63 68 65 63 6b 72 20 23 65 69 7b 20 73 6f 63 6b 65 74 20 28 50 46 5f 49 4e 45 54 2c | et.(checkr.#ei{.socket.(PF_INET, |
| 112c60 | 20 53 4f 43 4b 5f 53 54 52 45 41 4d 2c 20 30 29 20 7d 29 29 29 0a 20 20 20 20 28 63 68 65 63 6b | .SOCK_STREAM,.0).}))).....(check |
| 112c80 | 72 20 23 65 69 7b 20 73 65 74 5f 72 65 75 73 65 5f 61 64 64 72 65 73 73 20 28 67 32 69 20 28 24 | r.#ei{.set_reuse_address.(g2i.($ |
| 112ca0 | 73 6f 63 6b 65 74 29 2c 20 31 29 20 7d 29 0a 20 20 20 20 28 63 68 65 63 6b 72 20 23 65 69 7b 20 | socket),.1).}).....(checkr.#ei{. |
| 112cc0 | 62 69 6e 64 5f 73 6f 63 6b 65 74 20 28 67 32 69 20 28 24 73 6f 63 6b 65 74 29 2c 20 67 32 69 20 | bind_socket.(g2i.($socket),.g2i. |
| 112ce0 | 28 24 70 6f 72 74 29 29 20 7d 29 0a 20 20 20 20 28 63 68 65 63 6b 72 20 23 65 69 7b 20 6c 69 73 | ($port)).}).....(checkr.#ei{.lis |
| 112d00 | 74 65 6e 20 28 67 32 69 20 28 24 73 6f 63 6b 65 74 29 2c 20 31 29 7d 29 0a 20 20 20 20 73 6f 63 | ten.(g2i.($socket),.1)}).....soc |
| 112d20 | 6b 65 74 29 29 0a 0a 28 64 66 20 25 6c 6f 63 61 6c 2d 70 6f 72 74 20 28 66 64 7c 3c 69 6e 74 3e | ket))..(df.%local-port.(fd|<int> |
| 112d40 | 29 20 28 63 68 65 63 6b 72 20 23 65 69 7b 20 6c 6f 63 61 6c 5f 70 6f 72 74 20 28 67 32 69 20 28 | ).(checkr.#ei{.local_port.(g2i.( |
| 112d60 | 24 66 64 29 29 20 7d 29 29 0a 28 64 66 20 25 63 6c 6f 73 65 20 28 66 64 7c 3c 69 6e 74 3e 29 20 | $fd)).})).(df.%close.(fd|<int>). |
| 112d80 | 28 63 68 65 63 6b 72 20 23 65 69 7b 20 63 6c 6f 73 65 20 28 67 32 69 20 28 24 66 64 29 29 20 7d | (checkr.#ei{.close.(g2i.($fd)).} |
| 112da0 | 29 29 0a 0a 28 64 63 20 3c 66 64 2d 69 6f 2d 70 6f 72 74 3e 20 28 3c 69 6e 2d 70 6f 72 74 3e 20 | ))..(dc.<fd-io-port>.(<in-port>. |
| 112dc0 | 3c 6f 75 74 2d 70 6f 72 74 3e 29 29 0a 28 64 70 20 40 66 64 20 28 3c 66 64 2d 69 6f 2d 70 6f 72 | <out-port>)).(dp.@fd.(<fd-io-por |
| 112de0 | 74 3e 20 3d 3e 20 3c 69 6e 74 3e 29 29 0a 28 64 70 20 40 69 6e 20 28 3c 66 64 2d 69 6f 2d 70 6f | t>.=>.<int>)).(dp.@in.(<fd-io-po |
| 112e00 | 72 74 3e 20 3d 3e 20 3c 66 69 6c 65 2d 69 6e 2d 70 6f 72 74 3e 29 29 0a 28 64 70 20 40 6f 75 74 | rt>.=>.<file-in-port>)).(dp.@out |
| 112e20 | 20 28 3c 66 64 2d 69 6f 2d 70 6f 72 74 3e 20 3d 3e 20 3c 66 69 6c 65 2d 6f 75 74 2d 70 6f 72 74 | .(<fd-io-port>.=>.<file-out-port |
| 112e40 | 3e 29 29 0a 0a 28 64 6d 20 72 65 63 75 72 72 69 6e 67 2d 77 72 69 74 65 20 28 70 6f 72 74 7c 3c | >))..(dm.recurring-write.(port|< |
| 112e60 | 6f 75 74 2d 70 6f 72 74 3e 20 78 7c 3c 66 64 2d 69 6f 2d 70 6f 72 74 3e 20 64 7c 3c 69 6e 74 3e | out-port>.x|<fd-io-port>.d|<int> |
| 112e80 | 20 72 65 63 75 72 7c 3c 66 75 6e 3e 29 0a 20 20 28 6d 73 67 20 70 6f 72 74 20 22 23 7b 25 73 20 | .recur|<fun>)...(msg.port."#{%s. |
| 112ea0 | 66 64 3a 20 25 73 7d 22 20 28 63 6c 61 73 73 2d 6e 61 6d 65 2d 73 74 72 20 78 29 20 28 40 66 64 | fd:.%s}".(class-name-str.x).(@fd |
| 112ec0 | 20 78 29 29 29 0a 0a 28 64 6d 20 67 65 74 20 20 28 70 6f 72 74 7c 3c 66 64 2d 69 6f 2d 70 6f 72 | .x)))..(dm.get..(port|<fd-io-por |
| 112ee0 | 74 3e 20 3d 3e 20 3c 63 68 72 3e 29 20 28 67 65 74 20 28 40 69 6e 20 70 6f 72 74 29 29 29 0a 0a | t>.=>.<chr>).(get.(@in.port))).. |
| 112f00 | 28 64 6d 20 70 75 74 73 20 20 20 20 20 20 28 70 6f 72 74 7c 3c 66 64 2d 69 6f 2d 70 6f 72 74 3e | (dm.puts......(port|<fd-io-port> |
| 112f20 | 20 73 7c 3c 73 74 72 3e 29 20 28 70 75 74 73 20 28 40 6f 75 74 20 70 6f 72 74 29 20 73 29 29 0a | .s|<str>).(puts.(@out.port).s)). |
| 112f40 | 28 64 6d 20 66 6f 72 63 65 2d 6f 75 74 20 28 70 6f 72 74 7c 3c 66 64 2d 69 6f 2d 70 6f 72 74 3e | (dm.force-out.(port|<fd-io-port> |
| 112f60 | 29 20 20 20 20 20 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 20 28 40 6f 75 74 20 70 6f 72 74 29 | ).........(force-out.(@out.port) |
| 112f80 | 29 29 0a 0a 28 64 6d 20 66 64 6f 70 65 6e 20 28 66 64 7c 3c 69 6e 74 3e 20 74 79 70 65 7c 28 74 | ))..(dm.fdopen.(fd|<int>.type|(t |
| 112fa0 | 3d 20 3c 66 64 2d 69 6f 2d 70 6f 72 74 3e 29 20 3d 3e 20 3c 66 64 2d 69 6f 2d 70 6f 72 74 3e 29 | =.<fd-io-port>).=>.<fd-io-port>) |
| 112fc0 | 0a 20 20 28 6e 65 77 20 3c 66 64 2d 69 6f 2d 70 6f 72 74 3e 20 40 66 64 20 66 64 0a 20 20 20 20 | ...(new.<fd-io-port>.@fd.fd..... |
| 112fe0 | 40 69 6e 20 28 6e 65 77 20 3c 66 69 6c 65 2d 69 6e 2d 70 6f 72 74 3e 20 70 6f 72 74 2d 68 61 6e | @in.(new.<file-in-port>.port-han |
| 113000 | 64 6c 65 20 28 25 66 64 6f 70 65 6e 20 66 64 20 22 72 22 29 29 0a 20 20 20 20 40 6f 75 74 20 28 | dle.(%fdopen.fd."r")).....@out.( |
| 113020 | 6e 65 77 20 3c 66 69 6c 65 2d 6f 75 74 2d 70 6f 72 74 3e 20 70 6f 72 74 2d 68 61 6e 64 6c 65 20 | new.<file-out-port>.port-handle. |
| 113040 | 28 25 66 64 6f 70 65 6e 20 66 64 20 22 77 22 29 29 29 29 0a 0a 28 64 66 20 25 66 64 6f 70 65 6e | (%fdopen.fd."w"))))..(df.%fdopen |
| 113060 | 20 28 66 64 7c 3c 69 6e 74 3e 20 6d 6f 64 65 7c 3c 73 74 72 3e 20 3d 3e 20 3c 6c 6f 63 3e 29 0a | .(fd|<int>.mode|<str>.=>.<loc>). |
| 113080 | 20 20 28 64 65 66 20 61 64 64 72 20 23 65 69 7b 20 66 64 6f 70 65 6e 20 28 67 32 69 20 28 24 66 | ..(def.addr.#ei{.fdopen.(g2i.($f |
| 1130a0 | 64 29 2c 20 40 6d 6f 64 65 29 20 7d 29 0a 20 20 28 77 68 65 6e 20 28 7a 65 72 6f 3f 20 61 64 64 | d),.@mode).})...(when.(zero?.add |
| 1130c0 | 72 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 66 64 6f 70 65 6e 20 66 61 69 6c 65 64 3a 20 25 73 | r).....(error."fdopen.failed:.%s |
| 1130e0 | 22 20 28 73 74 72 65 72 72 6f 72 20 23 66 29 29 29 0a 20 20 28 25 6c 62 20 28 25 69 75 20 61 64 | ".(strerror.#f)))...(%lb.(%iu.ad |
| 113100 | 64 72 29 29 29 0a 0a 28 64 66 20 61 63 63 65 70 74 20 28 73 6f 63 6b 65 74 7c 3c 69 6e 74 3e 20 | dr)))..(df.accept.(socket|<int>. |
| 113120 | 3d 3e 20 3c 66 64 2d 69 6f 2d 70 6f 72 74 3e 29 0a 20 20 28 66 64 6f 70 65 6e 20 28 63 68 65 63 | =>.<fd-io-port>)...(fdopen.(chec |
| 113140 | 6b 72 20 23 65 69 7b 20 63 5f 61 63 63 65 70 74 20 28 67 32 69 20 28 24 73 6f 63 6b 65 74 29 29 | kr.#ei{.c_accept.(g2i.($socket)) |
| 113160 | 20 7d 29 20 3c 66 64 2d 69 6f 2d 70 6f 72 74 3e 29 29 0a 0a 28 65 78 70 6f 72 74 0a 20 20 73 74 | .}).<fd-io-port>))..(export...st |
| 113180 | 61 72 74 2d 73 77 61 6e 6b 0a 20 20 63 72 65 61 74 65 2d 73 65 72 76 65 72 29 0a 0a 3b 3b 3b 20 | art-swank...create-server)..;;;. |
| 1131a0 | 73 77 61 6e 6b 2d 67 6f 6f 2e 67 6f 6f 20 65 6e 64 73 20 68 65 72 65 00 00 00 00 00 00 00 00 00 | swank-goo.goo.ends.here......... |
| 1131c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1131e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 6c 69 73 74 65 6e 65 | slime-2.31/contrib/slime-listene |
| 113220 | 72 2d 68 6f 6f 6b 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | r-hooks.el...................... |
| 113240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 113280 | 30 30 30 30 35 34 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 32 35 31 00 20 30 00 00 00 | 0000544.00000000000.017251..0... |
| 1132a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1132c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1132e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 113320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 113340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1133a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1133c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1133e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113400 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 | (require.'slime).(require.'cl-li |
| 113420 | 62 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d | b)..(define-slime-contrib.slime- |
| 113440 | 6c 69 73 74 65 6e 65 72 2d 68 6f 6f 6b 73 0a 20 20 22 45 6e 61 62 6c 65 20 73 6c 69 6d 65 20 69 | listener-hooks..."Enable.slime.i |
| 113460 | 6e 74 65 67 72 61 74 69 6f 6e 20 69 6e 20 61 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e 27 77 20 65 | ntegration.in.an.application'w.e |
| 113480 | 76 65 6e 74 20 6c 6f 6f 70 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 41 6c 61 6e 20 52 75 74 | vent.loop"...(:authors."Alan.Rut |
| 1134a0 | 74 65 6e 62 65 72 67 20 20 3c 61 6c 61 6e 72 2d 6c 40 6d 75 6d 62 6c 65 2e 6e 65 74 3e 2c 20 52 | tenberg..<alanr-l@mumble.net>,.R |
| 1134c0 | 2e 20 4d 61 74 74 65 73 20 3c 72 6d 40 73 65 69 64 2d 6f 6e 6c 69 6e 65 2e 64 65 3e 22 29 0a 20 | ..Mattes.<rm@seid-online.de>").. |
| 1134e0 | 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 73 6c 69 6d 65 2d 64 65 70 65 | .(:license."GPL")...(:slime-depe |
| 113500 | 6e 64 65 6e 63 69 65 73 20 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 | ndencies.slime-repl)...(:swank-d |
| 113520 | 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d 6c 69 73 74 65 6e 65 72 2d 68 6f 6f 6b 73 | ependencies.swank-listener-hooks |
| 113540 | 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 6c 69 73 74 65 6e 65 72 2d 68 6f 6f | ))..(provide.'slime-listener-hoo |
| 113560 | 6b 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ks)............................. |
| 113580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1135a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1135c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1135e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d | slime-2.31/contrib/inferior-slim |
| 113620 | 65 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | e.el............................ |
| 113640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 113680 | 30 30 31 31 30 37 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 32 30 00 20 30 00 00 00 | 0011074.00000000000.016120..0... |
| 1136a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1136c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1136e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 113720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 113740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1137a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1137c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1137e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113800 | 3b 3b 3b 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2e 65 6c 20 2d 2d 2d 20 4d 69 6e 6f 72 20 | ;;;.inferior-slime.el.---.Minor. |
| 113820 | 6d 6f 64 65 20 77 69 74 68 20 53 6c 69 6d 65 20 6b 65 79 73 20 66 6f 72 20 63 6f 6d 69 6e 74 20 | mode.with.Slime.keys.for.comint. |
| 113840 | 62 75 66 66 65 72 73 0a 3b 3b 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 4c 75 6b 65 20 47 6f 72 72 69 | buffers.;;.;;.Author:.Luke.Gorri |
| 113860 | 65 20 20 3c 6c 75 6b 65 40 73 79 6e 61 70 2e 73 65 3e 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 47 | e..<luke@synap.se>.;;.License:.G |
| 113880 | 4e 55 20 47 50 4c 20 28 73 61 6d 65 20 6c 69 63 65 6e 73 65 20 61 73 20 45 6d 61 63 73 29 0a 3b | NU.GPL.(same.license.as.Emacs).; |
| 1138a0 | 3b 0a 3b 3b 3b 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 3a 0a 3b 3b 0a 3b 3b 20 41 64 64 20 73 6f | ;.;;;.Installation:.;;.;;.Add.so |
| 1138c0 | 6d 65 74 68 69 6e 67 20 6c 69 6b 65 20 74 68 69 73 20 74 6f 20 79 6f 75 72 20 2e 65 6d 61 63 73 | mething.like.this.to.your..emacs |
| 1138e0 | 3a 20 0a 3b 3b 0a 3b 3b 20 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f 61 64 2d 70 61 | :..;;.;;...(add-to-list.'load-pa |
| 113900 | 74 68 20 22 3c 64 69 72 65 63 74 6f 72 79 2d 6f 66 2d 74 68 69 73 2d 66 69 6c 65 3e 22 29 0a 3b | th."<directory-of-this-file>").; |
| 113920 | 3b 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 6c 6f 61 64 2d 68 6f 6f 6b 20 28 | ;...(add-hook.'slime-load-hook.( |
| 113940 | 6c 61 6d 62 64 61 20 28 29 20 28 72 65 71 75 69 72 65 20 27 69 6e 66 65 72 69 6f 72 2d 73 6c 69 | lambda.().(require.'inferior-sli |
| 113960 | 6d 65 29 29 29 0a 3b 3b 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 69 6e 66 65 72 69 6f 72 2d 6c | me))).;;...(add-hook.'inferior-l |
| 113980 | 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 28 6c 61 6d 62 64 61 20 28 29 20 28 69 6e 66 65 72 69 | isp-mode-hook.(lambda.().(inferi |
| 1139a0 | 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 20 31 29 29 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 | or-slime-mode.1))).(require.'sli |
| 1139c0 | 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 69 6e 65 2d 6d | me).(require.'cl-lib)..(define-m |
| 1139e0 | 69 6e 6f 72 2d 6d 6f 64 65 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 0a 20 20 | inor-mode.inferior-slime-mode... |
| 113a00 | 22 5c 5c 3c 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 3e 5c 0a 49 6e 66 65 72 69 6f 72 20 53 4c | "\\<slime-mode-map>\.Inferior.SL |
| 113a20 | 49 4d 45 20 6d 6f 64 65 3a 20 54 68 65 20 49 6e 66 65 72 69 6f 72 20 53 75 70 65 72 69 6f 72 20 | IME.mode:.The.Inferior.Superior. |
| 113a40 | 4c 69 73 70 20 4d 6f 64 65 20 66 6f 72 20 45 6d 61 63 73 2e 0a 0a 54 68 69 73 20 6d 6f 64 65 20 | Lisp.Mode.for.Emacs...This.mode. |
| 113a60 | 69 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 75 73 65 20 77 69 74 68 20 60 69 6e 66 65 72 69 | is.intended.for.use.with.`inferi |
| 113a80 | 6f 72 2d 6c 69 73 70 2d 6d 6f 64 65 27 2e 20 49 74 20 70 72 6f 76 69 64 65 73 20 61 0a 73 75 62 | or-lisp-mode'..It.provides.a.sub |
| 113aa0 | 73 65 74 20 6f 66 20 74 68 65 20 62 69 6e 64 69 6e 67 73 20 66 72 6f 6d 20 60 73 6c 69 6d 65 2d | set.of.the.bindings.from.`slime- |
| 113ac0 | 6d 6f 64 65 27 2e 0a 0a 5c 5c 7b 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d | mode'...\\{inferior-slime-mode-m |
| 113ae0 | 61 70 7d 22 0a 20 20 3a 6b 65 79 6d 61 70 0a 20 20 3b 3b 20 46 61 6b 65 20 62 69 6e 64 69 6e 67 | ap}"...:keymap...;;.Fake.binding |
| 113b00 | 20 74 6f 20 63 6f 61 78 20 60 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 27 20 74 6f 20 | .to.coax.`define-minor-mode'.to. |
| 113b20 | 63 72 65 61 74 65 20 74 68 65 20 6b 65 79 6d 61 70 0a 20 20 27 28 28 22 20 22 20 27 75 6e 64 65 | create.the.keymap...'((".".'unde |
| 113b40 | 66 69 6e 65 64 29 29 0a 0a 20 20 28 73 6c 69 6d 65 2d 73 65 74 75 70 2d 63 6f 6d 70 6c 65 74 69 | fined))....(slime-setup-completi |
| 113b60 | 6f 6e 29 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 74 61 62 2d 61 6c 77 61 79 73 2d 69 6e 64 | on)...(setq-local.tab-always-ind |
| 113b80 | 65 6e 74 20 27 63 6f 6d 70 6c 65 74 65 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 66 65 72 69 6f 72 | ent.'complete))..(defun.inferior |
| 113ba0 | 2d 73 6c 69 6d 65 2d 72 65 74 75 72 6e 20 28 29 0a 20 20 22 48 61 6e 64 6c 65 20 74 68 65 20 72 | -slime-return.()..."Handle.the.r |
| 113bc0 | 65 74 75 72 6e 20 6b 65 79 20 69 6e 20 74 68 65 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 20 62 | eturn.key.in.the.inferior-lisp.b |
| 113be0 | 75 66 66 65 72 2e 0a 54 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 73 68 6f 75 6c 64 20 | uffer..The.current.input.should. |
| 113c00 | 6f 6e 6c 79 20 62 65 20 73 65 6e 74 20 69 66 20 61 20 77 68 6f 6c 65 20 65 78 70 72 65 73 73 69 | only.be.sent.if.a.whole.expressi |
| 113c20 | 6f 6e 20 68 61 73 20 62 65 65 6e 0a 65 6e 74 65 72 65 64 2c 20 69 2e 65 2e 20 74 68 65 20 70 61 | on.has.been.entered,.i.e..the.pa |
| 113c40 | 72 65 6e 74 68 65 73 69 73 20 61 72 65 20 6d 61 74 63 68 65 64 2e 0a 0a 41 20 70 72 65 66 69 78 | renthesis.are.matched...A.prefix |
| 113c60 | 20 61 72 67 75 6d 65 6e 74 20 64 69 73 61 62 6c 65 73 20 74 68 69 73 20 62 65 68 61 76 69 6f 75 | .argument.disables.this.behaviou |
| 113c80 | 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 6f 72 20 63 75 | r."...(interactive)...(if.(or.cu |
| 113ca0 | 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 28 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 | rrent-prefix-arg.(inferior-slime |
| 113cc0 | 2d 69 6e 70 75 74 2d 63 6f 6d 70 6c 65 74 65 2d 70 29 29 0a 20 20 20 20 20 20 28 63 6f 6d 69 6e | -input-complete-p)).......(comin |
| 113ce0 | 74 2d 73 65 6e 64 2d 69 6e 70 75 74 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a | t-send-input).....(insert."\n"). |
| 113d00 | 20 20 20 20 28 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 29 | ....(inferior-slime-indent-line) |
| 113d20 | 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 | ))..(defun.inferior-slime-indent |
| 113d40 | 2d 6c 69 6e 65 20 28 29 0a 20 20 22 49 6e 64 65 6e 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c | -line.()..."Indent.the.current.l |
| 113d60 | 69 6e 65 2c 20 69 67 6e 6f 72 69 6e 67 20 65 76 65 72 79 74 68 69 6e 67 20 62 65 66 6f 72 65 20 | ine,.ignoring.everything.before. |
| 113d80 | 74 68 65 20 70 72 6f 6d 70 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | the.prompt."...(interactive)...( |
| 113da0 | 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 64 65 | save-restriction.....(let.((inde |
| 113dc0 | 6e 74 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 | nt-start............(save-excurs |
| 113de0 | 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 72 6f | ion..............(goto-char.(pro |
| 113e00 | 63 65 73 73 2d 6d 61 72 6b 20 28 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 28 63 | cess-mark.(get-buffer-process.(c |
| 113e20 | 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | urrent-buffer))))..............( |
| 113e40 | 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 66 69 65 6c 64 2d 74 65 78 74 2d 6d 6f 74 69 6f 6e 20 | let.((inhibit-field-text-motion. |
| 113e60 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 | t))................(beginning-of |
| 113e80 | 2d 6c 69 6e 65 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 | -line.1))..............(point))) |
| 113ea0 | 29 0a 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 69 6e 64 65 6e 74 | ).......(narrow-to-region.indent |
| 113ec0 | 2d 73 74 61 72 74 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 20 20 20 20 28 6c 69 73 70 2d 69 | -start.(point-max))).....(lisp-i |
| 113ee0 | 6e 64 65 6e 74 2d 6c 69 6e 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 66 65 72 69 6f 72 2d 73 | ndent-line)))..(defun.inferior-s |
| 113f00 | 6c 69 6d 65 2d 69 6e 70 75 74 2d 63 6f 6d 70 6c 65 74 65 2d 70 20 28 29 0a 20 20 22 52 65 74 75 | lime-input-complete-p.()..."Retu |
| 113f20 | 72 6e 20 74 72 75 65 20 69 66 20 74 68 65 20 69 6e 70 75 74 20 69 73 20 63 6f 6d 70 6c 65 74 65 | rn.true.if.the.input.is.complete |
| 113f40 | 20 69 6e 20 74 68 65 20 69 6e 66 65 72 69 6f 72 20 6c 69 73 70 20 62 75 66 66 65 72 2e 22 0a 20 | .in.the.inferior.lisp.buffer.".. |
| 113f60 | 20 28 73 6c 69 6d 65 2d 69 6e 70 75 74 2d 63 6f 6d 70 6c 65 74 65 2d 70 20 28 70 72 6f 63 65 73 | .(slime-input-complete-p.(proces |
| 113f80 | 73 2d 6d 61 72 6b 20 28 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 28 63 75 72 72 | s-mark.(get-buffer-process.(curr |
| 113fa0 | 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ent-buffer)))................... |
| 113fc0 | 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e | ........(point-max)))..(defun.in |
| 113fe0 | 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 63 6c 6f 73 69 6e 67 2d 72 65 74 75 72 6e 20 28 29 0a 20 | ferior-slime-closing-return.().. |
| 114000 | 20 22 53 65 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 78 70 72 65 73 73 69 6f 6e 20 74 6f | ."Send.the.current.expression.to |
| 114020 | 20 4c 69 73 70 20 61 66 74 65 72 20 63 6c 6f 73 69 6e 67 20 61 6e 79 20 6f 70 65 6e 20 6c 69 73 | .Lisp.after.closing.any.open.lis |
| 114040 | 74 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 | ts."...(interactive)...(goto-cha |
| 114060 | 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 | r.(point-max))...(save-restricti |
| 114080 | 6f 6e 0a 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 28 70 72 6f 63 65 73 | on.....(narrow-to-region.(proces |
| 1140a0 | 73 2d 6d 61 72 6b 20 28 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 28 63 75 72 72 | s-mark.(get-buffer-process.(curr |
| 1140c0 | 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ent-buffer)))................... |
| 1140e0 | 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 69 67 6e | ....(point-max)).....(while.(ign |
| 114100 | 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 62 61 63 6b | ore-errors.(save-excursion.(back |
| 114120 | 77 61 72 64 2d 75 70 2d 6c 69 73 74 20 31 29 20 74 29 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 | ward-up-list.1).t)).......(inser |
| 114140 | 74 20 22 29 22 29 29 29 0a 20 20 28 63 6f 6d 69 6e 74 2d 73 65 6e 64 2d 69 6e 70 75 74 29 29 0a | t.")")))...(comint-send-input)). |
| 114160 | 0a 28 64 65 66 75 6e 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 63 68 61 6e 67 65 2d 64 69 | .(defun.inferior-slime-change-di |
| 114180 | 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 22 53 65 74 20 64 65 66 61 75 | rectory.(directory)..."Set.defau |
| 1141a0 | 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 69 6e 20 74 68 65 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 | lt-directory.in.the.*inferior-li |
| 1141c0 | 73 70 2a 20 62 75 66 66 65 72 20 74 6f 20 44 49 52 45 43 54 4f 52 59 2e 22 0a 20 20 28 6c 65 74 | sp*.buffer.to.DIRECTORY."...(let |
| 1141e0 | 2a 20 28 28 70 72 6f 63 20 28 73 6c 69 6d 65 2d 70 72 6f 63 65 73 73 29 29 0a 09 20 28 62 75 66 | *.((proc.(slime-process))...(buf |
| 114200 | 66 65 72 20 28 61 6e 64 20 70 72 6f 63 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 | fer.(and.proc.(process-buffer.pr |
| 114220 | 6f 63 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 62 75 66 66 65 72 20 0a 20 20 20 20 20 20 28 | oc)))).....(when.buffer........( |
| 114240 | 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 09 28 63 64 2d | with-current-buffer.buffer..(cd- |
| 114260 | 61 62 73 6f 6c 75 74 65 20 64 69 72 65 63 74 6f 72 79 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | absolute.directory)))))..(defun. |
| 114280 | 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 69 6e 69 74 2d 6b 65 79 6d 61 70 20 28 29 0a 20 20 | inferior-slime-init-keymap.()... |
| 1142a0 | 28 6c 65 74 20 28 28 6d 61 70 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d | (let.((map.inferior-slime-mode-m |
| 1142c0 | 61 70 29 29 0a 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 6d 61 70 20 | ap)).....(set-keymap-parent.map. |
| 1142e0 | 73 6c 69 6d 65 2d 70 61 72 65 6e 74 2d 6d 61 70 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 64 65 66 | slime-parent-map).....(slime-def |
| 114300 | 69 6e 65 2d 6b 65 79 73 20 6d 61 70 0a 20 20 20 20 20 20 28 5b 72 65 74 75 72 6e 5d 09 09 09 27 | ine-keys.map.......([return]...' |
| 114320 | 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 20 20 28 5b 28 | inferior-slime-return).......([( |
| 114340 | 63 6f 6e 74 72 6f 6c 20 72 65 74 75 72 6e 29 5d 09 27 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 | control.return)].'inferior-slime |
| 114360 | 2d 63 6c 6f 73 69 6e 67 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 20 20 28 5b 28 6d 65 74 61 20 63 | -closing-return).......([(meta.c |
| 114380 | 6f 6e 74 72 6f 6c 20 3f 6d 29 5d 09 27 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 63 6c 6f 73 | ontrol.?m)].'inferior-slime-clos |
| 1143a0 | 69 6e 67 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 20 20 3b 3b 28 22 5c 74 22 09 09 09 27 73 6c 69 | ing-return).......;;("\t"...'sli |
| 1143c0 | 6d 65 2d 69 6e 64 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 29 0a 20 | me-indent-and-complete-symbol).. |
| 1143e0 | 20 20 20 20 20 28 22 20 22 09 09 09 27 73 6c 69 6d 65 2d 73 70 61 63 65 29 29 29 29 0a 0a 28 69 | .....("."...'slime-space))))..(i |
| 114400 | 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 69 6e 69 74 2d 6b 65 79 6d 61 70 29 0a 0a 28 64 65 66 | nferior-slime-init-keymap)..(def |
| 114420 | 75 6e 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 68 6f 6f 6b 2d 66 75 6e 63 74 69 6f 6e 20 | un.inferior-slime-hook-function. |
| 114440 | 28 29 0a 20 20 28 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 20 31 29 29 0a 0a 28 | ()...(inferior-slime-mode.1))..( |
| 114460 | 64 65 66 75 6e 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f 2d 72 | defun.inferior-slime-switch-to-r |
| 114480 | 65 70 6c 2d 62 75 66 66 65 72 20 28 29 0a 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 | epl-buffer.()...(switch-to-buffe |
| 1144a0 | 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f | r.(process-buffer.(slime-inferio |
| 1144c0 | 72 2d 70 72 6f 63 65 73 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 66 65 72 69 6f 72 2d 73 | r-process))))..(defun.inferior-s |
| 1144e0 | 6c 69 6d 65 2d 73 68 6f 77 2d 74 72 61 6e 73 63 72 69 70 74 20 28 73 74 72 69 6e 67 29 0a 20 20 | lime-show-transcript.(string)... |
| 114500 | 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 63 6f 6d 69 6e 74 2d 6f 75 74 70 75 74 2d 66 69 6c 74 | (remove-hook.'comint-output-filt |
| 114520 | 65 72 2d 66 75 6e 63 74 69 6f 6e 73 0a 09 20 20 20 20 20 20 20 27 69 6e 66 65 72 69 6f 72 2d 73 | er-functions.........'inferior-s |
| 114540 | 6c 69 6d 65 2d 73 68 6f 77 2d 74 72 61 6e 73 63 72 69 70 74 20 74 29 0a 20 20 28 77 69 74 68 2d | lime-show-transcript.t)...(with- |
| 114560 | 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 28 | current-buffer.(process-buffer.( |
| 114580 | 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 29 29 0a 20 20 20 20 28 6c 65 | slime-inferior-process)).....(le |
| 1145a0 | 74 20 28 28 77 69 6e 64 6f 77 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 63 75 72 72 | t.((window.(display-buffer.(curr |
| 1145c0 | 65 6e 74 2d 62 75 66 66 65 72 29 20 74 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 | ent-buffer).t))).......(set-wind |
| 1145e0 | 6f 77 2d 70 6f 69 6e 74 20 77 69 6e 64 6f 77 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 0a | ow-point.window.(point-max))))). |
| 114600 | 0a 28 64 65 66 75 6e 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 73 74 61 72 74 2d 74 72 61 | .(defun.inferior-slime-start-tra |
| 114620 | 6e 73 63 72 69 70 74 20 28 29 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 63 20 28 73 6c 69 6d 65 2d | nscript.()...(let.((proc.(slime- |
| 114640 | 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 70 72 | inferior-process))).....(when.pr |
| 114660 | 6f 63 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 70 | oc.......(with-current-buffer.(p |
| 114680 | 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 29 0a 09 28 61 64 64 2d 68 6f 6f 6b 20 27 | rocess-buffer.proc)..(add-hook.' |
| 1146a0 | 63 6f 6d 69 6e 74 2d 6f 75 74 70 75 74 2d 66 69 6c 74 65 72 2d 66 75 6e 63 74 69 6f 6e 73 20 0a | comint-output-filter-functions.. |
| 1146c0 | 09 09 20 20 27 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 73 68 6f 77 2d 74 72 61 6e 73 63 72 | ....'inferior-slime-show-transcr |
| 1146e0 | 69 70 74 0a 09 09 20 20 6e 69 6c 20 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 66 65 72 | ipt.....nil.t)))))..(defun.infer |
| 114700 | 69 6f 72 2d 73 6c 69 6d 65 2d 73 74 6f 70 2d 74 72 61 6e 73 63 72 69 70 74 20 28 29 0a 20 20 28 | ior-slime-stop-transcript.()...( |
| 114720 | 6c 65 74 20 28 28 70 72 6f 63 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 | let.((proc.(slime-inferior-proce |
| 114740 | 73 73 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 70 72 6f 63 0a 20 20 20 20 20 20 28 77 69 74 68 | ss))).....(when.proc.......(with |
| 114760 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 | -current-buffer.(process-buffer. |
| 114780 | 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 29 29 0a 09 28 72 75 6e 2d | (slime-inferior-process))..(run- |
| 1147a0 | 77 69 74 68 2d 74 69 6d 65 72 20 30 2e 32 20 6e 69 6c 20 0a 09 09 09 28 6c 61 6d 62 64 61 20 28 | with-timer.0.2.nil.....(lambda.( |
| 1147c0 | 62 75 66 66 65 72 29 20 0a 09 09 09 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 | buffer).......(with-current-buff |
| 1147e0 | 65 72 20 62 75 66 66 65 72 0a 09 09 09 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 63 | er.buffer........(remove-hook.'c |
| 114800 | 6f 6d 69 6e 74 2d 6f 75 74 70 75 74 2d 66 69 6c 74 65 72 2d 66 75 6e 63 74 69 6f 6e 73 0a 09 09 | omint-output-filter-functions... |
| 114820 | 09 09 09 20 27 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 73 68 6f 77 2d 74 72 61 6e 73 63 72 | ....'inferior-slime-show-transcr |
| 114840 | 69 70 74 20 74 29 29 29 0a 09 09 09 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 29 | ipt.t)))....(current-buffer))))) |
| 114860 | 29 0a 0a 28 64 65 66 75 6e 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 69 6e 69 74 20 28 29 | )..(defun.inferior-slime-init.() |
| 114880 | 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f | ...(add-hook.'slime-inferior-pro |
| 1148a0 | 63 65 73 73 2d 73 74 61 72 74 2d 68 6f 6f 6b 20 27 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d | cess-start-hook.'inferior-slime- |
| 1148c0 | 68 6f 6f 6b 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d | hook-function)...(add-hook.'slim |
| 1148e0 | 65 2d 63 68 61 6e 67 65 2d 64 69 72 65 63 74 6f 72 79 2d 68 6f 6f 6b 73 20 27 69 6e 66 65 72 69 | e-change-directory-hooks.'inferi |
| 114900 | 6f 72 2d 73 6c 69 6d 65 2d 63 68 61 6e 67 65 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 61 64 | or-slime-change-directory)...(ad |
| 114920 | 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 74 72 61 6e 73 63 72 69 70 74 2d 73 74 61 72 74 2d 68 | d-hook.'slime-transcript-start-h |
| 114940 | 6f 6f 6b 20 27 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 73 74 61 72 74 2d 74 72 61 6e 73 63 | ook.'inferior-slime-start-transc |
| 114960 | 72 69 70 74 29 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 74 72 61 6e 73 63 72 | ript)...(add-hook.'slime-transcr |
| 114980 | 69 70 74 2d 73 74 6f 70 2d 68 6f 6f 6b 20 27 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 73 74 | ipt-stop-hook.'inferior-slime-st |
| 1149a0 | 6f 70 2d 74 72 61 6e 73 63 72 69 70 74 29 0a 20 20 28 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 | op-transcript)...(def-slime-sele |
| 1149c0 | 63 74 6f 72 2d 6d 65 74 68 6f 64 20 3f 72 0a 20 20 20 20 22 53 4c 49 4d 45 20 52 65 61 64 2d 45 | ctor-method.?r....."SLIME.Read-E |
| 1149e0 | 76 61 6c 2d 50 72 69 6e 74 2d 4c 6f 6f 70 2e 22 0a 20 20 20 20 28 70 72 6f 63 65 73 73 2d 62 75 | val-Print-Loop.".....(process-bu |
| 114a00 | 66 66 65 72 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 29 29 29 29 | ffer.(slime-inferior-process)))) |
| 114a20 | 0a 0a 28 70 72 6f 76 69 64 65 20 27 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 29 0a 00 00 00 00 | ..(provide.'inferior-slime)..... |
| 114a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114a60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114c00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 72 65 66 65 72 65 6e | slime-2.31/contrib/slime-referen |
| 114c20 | 63 65 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ces.el.......................... |
| 114c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114c60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 114c80 | 30 30 31 33 32 32 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 34 32 30 00 20 30 00 00 00 | 0013221.00000000000.016420..0... |
| 114ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 114d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 114d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114e00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 61 64 76 69 63 | (require.'slime).(require.'advic |
| 114e20 | 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 | e).(require.'slime-compiler-note |
| 114e40 | 73 2d 74 72 65 65 29 20 3b 20 46 49 58 4d 45 3a 20 61 63 74 75 61 6c 6c 79 20 6f 6e 6c 79 20 75 | s-tree).;.FIXME:.actually.only.u |
| 114e60 | 73 65 73 20 74 68 65 20 74 72 65 65 20 62 69 74 73 2c 20 73 6f 20 74 68 61 74 20 73 68 6f 75 6c | ses.the.tree.bits,.so.that.shoul |
| 114e80 | 64 20 62 65 20 61 20 6c 69 62 72 61 72 79 2e 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 | d.be.a.library...(define-slime-c |
| 114ea0 | 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 72 65 66 65 72 65 6e 63 65 73 0a 20 20 22 43 6c 69 63 6b | ontrib.slime-references..."Click |
| 114ec0 | 61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | able.references.to.documentation |
| 114ee0 | 20 28 53 42 43 4c 20 6f 6e 6c 79 29 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 43 68 72 69 | .(SBCL.only)."...(:authors."Chri |
| 114f00 | 73 74 6f 70 68 65 20 52 68 6f 64 65 73 20 20 3c 63 73 72 32 31 40 63 61 6e 74 61 62 2e 6e 65 74 | stophe.Rhodes..<csr21@cantab.net |
| 114f20 | 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 4c 75 6b 65 20 47 6f 72 72 69 65 20 20 3c 6c 75 | >"............."Luke.Gorrie..<lu |
| 114f40 | 6b 65 40 62 6c 75 65 74 61 69 6c 2e 63 6f 6d 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 54 | ke@bluetail.com>"............."T |
| 114f60 | 6f 62 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 | obias.C..Rittweiler.<tcr@freebit |
| 114f80 | 73 2e 64 65 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 6f | s.de>")...(:license."GPL")...(:o |
| 114fa0 | 6e 2d 6c 6f 61 64 0a 20 20 20 28 61 64 2d 65 6e 61 62 6c 65 2d 61 64 76 69 63 65 20 27 73 6c 69 | n-load....(ad-enable-advice.'sli |
| 114fc0 | 6d 65 2d 6e 6f 74 65 2e 6d 65 73 73 61 67 65 20 27 61 66 74 65 72 20 27 73 6c 69 6d 65 2d 6e 6f | me-note.message.'after.'slime-no |
| 114fe0 | 74 65 2e 6d 65 73 73 61 67 65 2b 72 65 66 65 72 65 6e 63 65 73 29 0a 20 20 20 28 61 64 2d 61 63 | te.message+references)....(ad-ac |
| 115000 | 74 69 76 61 74 65 20 27 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6d 65 73 73 61 67 65 29 0a 20 20 20 28 | tivate.'slime-note.message)....( |
| 115020 | 73 65 74 71 20 73 6c 69 6d 65 2d 74 72 65 65 2d 70 72 69 6e 74 65 72 20 27 73 6c 69 6d 65 2d 74 | setq.slime-tree-printer.'slime-t |
| 115040 | 72 65 65 2d 70 72 69 6e 74 2d 77 69 74 68 2d 72 65 66 65 72 65 6e 63 65 73 29 0a 20 20 20 28 61 | ree-print-with-references)....(a |
| 115060 | 64 64 2d 68 6f 6f 6b 20 27 73 6c 64 62 2d 65 78 74 72 61 73 2d 68 6f 6f 6b 73 20 27 73 6c 64 62 | dd-hook.'sldb-extras-hooks.'sldb |
| 115080 | 2d 6d 61 79 62 65 2d 69 6e 73 65 72 74 2d 72 65 66 65 72 65 6e 63 65 73 29 29 0a 20 20 28 3a 6f | -maybe-insert-references))...(:o |
| 1150a0 | 6e 2d 75 6e 6c 6f 61 64 0a 20 20 20 28 61 64 2d 64 69 73 61 62 6c 65 2d 61 64 76 69 63 65 20 27 | n-unload....(ad-disable-advice.' |
| 1150c0 | 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6d 65 73 73 61 67 65 20 27 61 66 74 65 72 20 27 73 6c 69 6d 65 | slime-note.message.'after.'slime |
| 1150e0 | 2d 6e 6f 74 65 2e 6d 65 73 73 61 67 65 2b 72 65 66 65 72 65 6e 63 65 73 29 0a 20 20 20 28 61 64 | -note.message+references)....(ad |
| 115100 | 2d 64 65 61 63 74 69 76 61 74 65 20 27 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6d 65 73 73 61 67 65 29 | -deactivate.'slime-note.message) |
| 115120 | 0a 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 74 72 65 65 2d 70 72 69 6e 74 65 72 20 27 73 6c | ....(setq.slime-tree-printer.'sl |
| 115140 | 69 6d 65 2d 74 72 65 65 2d 64 65 66 61 75 6c 74 2d 70 72 69 6e 74 65 72 29 0a 20 20 20 28 72 65 | ime-tree-default-printer)....(re |
| 115160 | 6d 6f 76 65 2d 68 6f 6f 6b 20 27 73 6c 64 62 2d 65 78 74 72 61 73 2d 68 6f 6f 6b 73 20 27 73 6c | move-hook.'sldb-extras-hooks.'sl |
| 115180 | 64 62 2d 6d 61 79 62 65 2d 69 6e 73 65 72 74 2d 72 65 66 65 72 65 6e 63 65 73 29 29 29 0a 0a 28 | db-maybe-insert-references)))..( |
| 1151a0 | 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 73 62 63 6c 2d 6d 61 6e 75 61 6c 2d 72 6f 6f 74 | defcustom.slime-sbcl-manual-root |
| 1151c0 | 20 22 68 74 74 70 3a 2f 2f 77 77 77 2e 73 62 63 6c 2e 6f 72 67 2f 6d 61 6e 75 61 6c 2f 22 0a 20 | ."http://www.sbcl.org/manual/".. |
| 1151e0 | 20 22 2a 54 68 65 20 62 61 73 65 20 55 52 4c 20 6f 66 20 74 68 65 20 53 42 43 4c 20 6d 61 6e 75 | ."*The.base.URL.of.the.SBCL.manu |
| 115200 | 61 6c 2c 20 66 6f 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 6f 6b 75 70 2e 22 0a 20 | al,.for.documentation.lookup.".. |
| 115220 | 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 73 74 72 69 6e 67 20 3a 74 61 67 20 22 48 54 | .:type.'(choice.(string.:tag."HT |
| 115240 | 4d 4c 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ML.Documentation").............. |
| 115260 | 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 49 6e 66 6f 20 44 6f 63 75 6d 65 6e 74 61 74 | ....(const.:tag."Info.Documentat |
| 115280 | 69 6f 6e 22 20 3a 69 6e 66 6f 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 | ion".:info))...:group.'slime-mod |
| 1152a0 | 65 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 64 62 2d 72 65 66 65 72 65 6e 63 65 2d 66 61 63 65 | e)..(defface.sldb-reference-face |
| 1152c0 | 0a 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 74 20 27 28 3a 75 6e 64 65 72 6c 69 6e 65 20 74 29 | ...(list.(list.t.'(:underline.t) |
| 1152e0 | 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 72 65 66 65 72 65 6e 63 65 73 2e 22 0a 20 20 3a 67 | ))..."Face.for.references."...:g |
| 115300 | 72 6f 75 70 20 27 73 6c 69 6d 65 2d 64 65 62 75 67 67 65 72 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 53 | roup.'slime-debugger)....;;;;;.S |
| 115320 | 42 43 4c 2d 73 74 79 6c 65 20 72 65 66 65 72 65 6e 63 65 73 0a 0a 28 64 65 66 76 61 72 20 73 6c | BCL-style.references..(defvar.sl |
| 115340 | 69 6d 65 2d 72 65 66 65 72 65 6e 63 65 73 2d 6c 6f 63 61 6c 2d 6b 65 79 6d 61 70 0a 20 20 28 6c | ime-references-local-keymap...(l |
| 115360 | 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 20 22 6c 6f | et.((map.(make-sparse-keymap."lo |
| 115380 | 63 61 6c 20 6b 65 79 6d 61 70 20 66 6f 72 20 73 6c 69 6d 65 20 72 65 66 65 72 65 6e 63 65 73 22 | cal.keymap.for.slime.references" |
| 1153a0 | 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 5b 6d 6f 75 73 65 2d 32 | ))).....(define-key.map.[mouse-2 |
| 1153c0 | 5d 20 27 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 70 2d 72 65 66 65 72 65 6e 63 65 2d 61 74 2d 6d 6f 75 | ].'slime-lookup-reference-at-mou |
| 1153e0 | 73 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 5b 72 65 74 75 72 6e 5d | se).....(define-key.map.[return] |
| 115400 | 20 27 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 70 2d 72 65 66 65 72 65 6e 63 65 2d 61 74 2d 70 6f 69 6e | .'slime-lookup-reference-at-poin |
| 115420 | 74 29 0a 20 20 20 20 6d 61 70 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 66 65 72 | t).....map))..(defun.slime-refer |
| 115440 | 65 6e 63 65 2d 70 72 6f 70 65 72 74 69 65 73 20 28 72 65 66 65 72 65 6e 63 65 29 0a 20 20 22 52 | ence-properties.(reference)..."R |
| 115460 | 65 74 75 72 6e 20 74 68 65 20 70 72 6f 70 65 72 74 69 65 73 20 66 6f 72 20 61 20 72 65 66 65 72 | eturn.the.properties.for.a.refer |
| 115480 | 65 6e 63 65 2e 0a 4f 6e 6c 79 20 61 64 64 20 63 6c 69 63 6b 61 62 69 6c 69 74 79 20 74 6f 20 70 | ence..Only.add.clickability.to.p |
| 1154a0 | 72 6f 70 65 72 74 69 65 73 20 77 65 20 61 63 74 75 61 6c 6c 79 20 6b 6e 6f 77 20 68 6f 77 20 74 | roperties.we.actually.know.how.t |
| 1154c0 | 6f 20 6c 6f 6f 6b 75 70 2e 22 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 | o.lookup."...(cl-destructuring-b |
| 1154e0 | 69 6e 64 20 28 77 68 65 72 65 20 74 79 70 65 20 77 68 61 74 29 20 72 65 66 65 72 65 6e 63 65 0a | ind.(where.type.what).reference. |
| 115500 | 20 20 20 20 28 69 66 20 28 6f 72 20 28 61 6e 64 20 28 65 71 20 77 68 65 72 65 20 3a 73 62 63 6c | ....(if.(or.(and.(eq.where.:sbcl |
| 115520 | 29 20 28 65 71 20 74 79 70 65 20 3a 6e 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | ).(eq.type.:node)).............( |
| 115540 | 61 6e 64 20 28 65 71 20 77 68 65 72 65 20 3a 61 6e 73 69 2d 63 6c 29 0a 20 20 20 20 20 20 20 20 | and.(eq.where.:ansi-cl)......... |
| 115560 | 20 20 20 20 20 20 20 20 20 28 6d 65 6d 71 20 74 79 70 65 20 27 28 3a 66 75 6e 63 74 69 6f 6e 20 | .........(memq.type.'(:function. |
| 115580 | 3a 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 20 3a 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 | :special-operator.:macro........ |
| 1155a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1155c0 | 20 3a 74 79 70 65 20 3a 73 79 73 74 65 6d 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 | .:type.:system-class............ |
| 1155e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 65 | .............................:se |
| 115600 | 63 74 69 6f 6e 20 3a 67 6c 6f 73 73 61 72 79 20 3a 69 73 73 75 65 29 29 29 29 0a 20 20 20 20 20 | ction.:glossary.:issue))))...... |
| 115620 | 20 20 20 60 28 73 6c 69 6d 65 2d 72 65 66 65 72 65 6e 63 65 20 2c 72 65 66 65 72 65 6e 63 65 0a | ...`(slime-reference.,reference. |
| 115640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 6e 74 2d 6c | ..........................font-l |
| 115660 | 6f 63 6b 2d 66 61 63 65 20 73 6c 64 62 2d 72 65 66 65 72 65 6e 63 65 2d 66 61 63 65 0a 20 20 20 | ock-face.sldb-reference-face.... |
| 115680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 6c 6c 6f 77 2d 6c 69 | .......................follow-li |
| 1156a0 | 6e 6b 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d | nk.t...........................m |
| 1156c0 | 6f 75 73 65 2d 66 61 63 65 20 68 69 67 68 6c 69 67 68 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ouse-face.highlight............. |
| 1156e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 65 6c 70 2d 65 63 68 6f 20 22 6d 6f 75 73 65 2d 32 | ..............help-echo."mouse-2 |
| 115700 | 3a 20 76 69 73 69 74 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 22 0a 20 20 20 20 20 20 20 20 | :.visit.documentation."......... |
| 115720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 6d 61 70 20 2c 73 6c 69 6d 65 2d | ..................keymap.,slime- |
| 115740 | 72 65 66 65 72 65 6e 63 65 73 2d 6c 6f 63 61 6c 2d 6b 65 79 6d 61 70 29 29 29 29 0a 0a 28 64 65 | references-local-keymap))))..(de |
| 115760 | 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 72 65 66 65 72 65 6e 63 65 20 28 72 65 66 65 | fun.slime-insert-reference.(refe |
| 115780 | 72 65 6e 63 65 29 0a 20 20 22 49 6e 73 65 72 74 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 72 | rence)..."Insert.documentation.r |
| 1157a0 | 65 66 65 72 65 6e 63 65 20 66 72 6f 6d 20 61 20 63 6f 6e 64 69 74 69 6f 6e 2e 0a 53 65 65 20 53 | eference.from.a.condition..See.S |
| 1157c0 | 57 41 4e 4b 2d 42 41 43 4b 45 4e 44 3a 43 4f 4e 44 49 54 49 4f 4e 2d 52 45 46 45 52 45 4e 43 45 | WANK-BACKEND:CONDITION-REFERENCE |
| 1157e0 | 53 20 66 6f 72 20 74 68 65 20 64 61 74 61 74 79 70 65 2e 22 0a 20 20 28 63 6c 2d 64 65 73 74 72 | S.for.the.datatype."...(cl-destr |
| 115800 | 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 77 68 65 72 65 20 74 79 70 65 20 77 68 61 74 29 20 | ucturing-bind.(where.type.what). |
| 115820 | 72 65 66 65 72 65 6e 63 65 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 20 28 73 6c 69 6d | reference.....(insert."\n".(slim |
| 115840 | 65 2d 66 6f 72 6d 61 74 2d 72 65 66 65 72 65 6e 63 65 2d 73 6f 75 72 63 65 20 77 68 65 72 65 29 | e-format-reference-source.where) |
| 115860 | 20 22 2c 20 22 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 | .",.").....(slime-insert-propert |
| 115880 | 69 7a 65 64 20 28 73 6c 69 6d 65 2d 72 65 66 65 72 65 6e 63 65 2d 70 72 6f 70 65 72 74 69 65 73 | ized.(slime-reference-properties |
| 1158a0 | 20 72 65 66 65 72 65 6e 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .reference)..................... |
| 1158c0 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 6f 72 6d 61 74 2d 72 65 66 65 72 65 6e 63 | ..........(slime-format-referenc |
| 1158e0 | 65 2d 6e 6f 64 65 20 77 68 61 74 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 | e-node.what)).....(insert.(forma |
| 115900 | 74 20 22 20 5b 25 73 5d 22 20 74 79 70 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | t.".[%s]".type))))..(defun.slime |
| 115920 | 2d 69 6e 73 65 72 74 2d 72 65 66 65 72 65 6e 63 65 73 20 28 72 65 66 65 72 65 6e 63 65 73 29 0a | -insert-references.(references). |
| 115940 | 20 20 28 77 68 65 6e 20 72 65 66 65 72 65 6e 63 65 73 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 | ..(when.references.....(insert." |
| 115960 | 5c 6e 53 65 65 20 61 6c 73 6f 3a 22 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 72 69 | \nSee.also:").....(slime-with-ri |
| 115980 | 67 69 64 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 32 0a 20 20 20 20 20 20 28 6d 61 70 63 20 23 27 | gid-indentation.2.......(mapc.#' |
| 1159a0 | 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 72 65 66 65 72 65 6e 63 65 20 72 65 66 65 72 65 6e 63 65 | slime-insert-reference.reference |
| 1159c0 | 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 6f 72 6d 61 74 2d 72 65 66 65 72 | s))))..(defun.slime-format-refer |
| 1159e0 | 65 6e 63 65 2d 73 6f 75 72 63 65 20 28 77 68 65 72 65 29 0a 20 20 28 63 6c 2d 63 61 73 65 20 77 | ence-source.(where)...(cl-case.w |
| 115a00 | 68 65 72 65 0a 20 20 20 20 28 3a 61 6d 6f 70 20 20 20 20 22 54 68 65 20 41 72 74 20 6f 66 20 74 | here.....(:amop...."The.Art.of.t |
| 115a20 | 68 65 20 4d 65 74 61 6f 62 6a 65 63 74 20 50 72 6f 74 6f 63 6f 6c 22 29 0a 20 20 20 20 28 3a 61 | he.Metaobject.Protocol").....(:a |
| 115a40 | 6e 73 69 2d 63 6c 20 22 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 48 79 70 65 72 73 70 65 63 22 29 0a | nsi-cl."Common.Lisp.Hyperspec"). |
| 115a60 | 20 20 20 20 28 3a 73 62 63 6c 20 20 20 20 22 53 42 43 4c 20 4d 61 6e 75 61 6c 22 29 0a 20 20 20 | ....(:sbcl...."SBCL.Manual").... |
| 115a80 | 20 28 74 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 53 22 20 77 68 65 72 65 29 29 29 | .(t........(format."%S".where))) |
| 115aa0 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 6f 72 6d 61 74 2d 72 65 66 65 72 65 6e 63 65 | )..(defun.slime-format-reference |
| 115ac0 | 2d 6e 6f 64 65 20 28 77 68 61 74 29 0a 20 20 28 69 66 20 28 6c 69 73 74 70 20 77 68 61 74 29 0a | -node.(what)...(if.(listp.what). |
| 115ae0 | 20 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 | ......(mapconcat.#'prin1-to-stri |
| 115b00 | 6e 67 20 77 68 61 74 20 22 2e 22 29 0a 20 20 20 20 77 68 61 74 29 29 0a 0a 28 64 65 66 75 6e 20 | ng.what.".").....what))..(defun. |
| 115b20 | 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 70 2d 72 65 66 65 72 65 6e 63 65 2d 61 74 2d 70 6f 69 6e 74 20 | slime-lookup-reference-at-point. |
| 115b40 | 28 29 0a 20 20 22 42 72 6f 77 73 65 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 72 | ()..."Browse.the.documentation.r |
| 115b60 | 65 66 65 72 65 6e 63 65 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | eference.at.point."...(interacti |
| 115b80 | 76 65 29 0a 20 20 28 6c 65 74 20 28 28 72 65 66 73 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 | ve)...(let.((refs.(get-text-prop |
| 115ba0 | 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 72 65 66 65 72 65 6e 63 65 29 29 29 | erty.(point).'slime-reference))) |
| 115bc0 | 0a 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 72 65 66 73 29 0a 20 20 20 20 20 20 20 20 28 65 72 | .....(if.(null.refs).........(er |
| 115be0 | 72 6f 72 20 22 4e 6f 20 72 65 66 65 72 65 6e 63 65 73 20 61 74 20 70 6f 69 6e 74 22 29 0a 20 20 | ror."No.references.at.point")... |
| 115c00 | 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 77 68 65 72 | ....(cl-destructuring-bind.(wher |
| 115c20 | 65 20 74 79 70 65 20 77 68 61 74 29 20 72 65 66 73 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 63 61 | e.type.what).refs.........(cl-ca |
| 115c40 | 73 65 20 77 68 65 72 65 0a 20 20 20 20 20 20 20 20 20 20 28 3a 61 6e 73 69 2d 63 6c 0a 20 20 20 | se.where...........(:ansi-cl.... |
| 115c60 | 20 20 20 20 20 20 20 20 28 63 6c 2d 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 | ........(cl-case.type........... |
| 115c80 | 20 20 20 28 3a 73 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 72 6f 77 | ...(:section...............(brow |
| 115ca0 | 73 65 2d 75 72 6c 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 | se-url.(funcall.common-lisp-hype |
| 115cc0 | 72 73 70 65 63 2d 73 65 63 74 69 6f 6e 2d 66 75 6e 20 77 68 61 74 29 29 29 0a 20 20 20 20 20 20 | rspec-section-fun.what)))....... |
| 115ce0 | 20 20 20 20 20 20 20 28 3a 67 6c 6f 73 73 61 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(:glossary............... |
| 115d00 | 28 62 72 6f 77 73 65 2d 75 72 6c 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | (browse-url.(funcall.common-lisp |
| 115d20 | 2d 68 79 70 65 72 73 70 65 63 2d 67 6c 6f 73 73 61 72 79 2d 66 75 6e 63 74 69 6f 6e 20 77 68 61 | -hyperspec-glossary-function.wha |
| 115d40 | 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 69 73 73 75 65 0a 20 20 20 20 20 20 | t)))..............(:issue....... |
| 115d60 | 20 20 20 20 20 20 20 20 28 62 72 6f 77 73 65 2d 75 72 6c 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | ........(browse-url.(common-lisp |
| 115d80 | 2d 69 73 73 75 65 78 20 77 68 61 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 | -issuex.what)))..............(:s |
| 115da0 | 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 | pecial-operator...............(b |
| 115dc0 | 72 6f 77 73 65 2d 75 72 6c 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 70 65 63 69 61 6c 2d 6f | rowse-url.(common-lisp-special-o |
| 115de0 | 70 65 72 61 74 6f 72 20 28 64 6f 77 6e 63 61 73 65 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 | perator.(downcase.name))))...... |
| 115e00 | 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 79 70 65 72 73 | ........(t...............(hypers |
| 115e20 | 70 65 63 2d 6c 6f 6f 6b 75 70 20 77 68 61 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 | pec-lookup.what))))...........(t |
| 115e40 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 73 65 20 73 6c 69 6d 65 2d 73 62 63 6c 2d 6d 61 6e | ............(case.slime-sbcl-man |
| 115e60 | 75 61 6c 2d 72 6f 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 69 6e 66 6f 0a 20 20 20 | ual-root..............(:info.... |
| 115e80 | 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 66 6f 20 28 66 6f 72 6d 61 74 20 22 28 73 62 63 6c 29 | ...........(info.(format."(sbcl) |
| 115ea0 | 25 73 22 20 77 68 61 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 | %s".what)))..............(t..... |
| 115ec0 | 20 20 20 20 20 20 20 20 20 20 28 62 72 6f 77 73 65 2d 75 72 6c 0a 20 20 20 20 20 20 20 20 20 20 | ..........(browse-url........... |
| 115ee0 | 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 23 25 73 22 20 73 6c 69 6d 65 2d 73 62 63 6c 2d | .....(format."%s#%s".slime-sbcl- |
| 115f00 | 6d 61 6e 75 61 6c 2d 72 6f 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | manual-root..................... |
| 115f20 | 20 20 20 28 73 75 62 73 74 2d 63 68 61 72 2d 69 6e 2d 73 74 72 69 6e 67 20 3f 5c 20 20 3f 5c 2d | ...(subst-char-in-string.?\..?\- |
| 115f40 | 20 77 68 61 74 29 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c | .what)))))))))))..(defun.slime-l |
| 115f60 | 6f 6f 6b 75 70 2d 72 65 66 65 72 65 6e 63 65 2d 61 74 2d 6d 6f 75 73 65 20 28 65 76 65 6e 74 29 | ookup-reference-at-mouse.(event) |
| 115f80 | 0a 20 20 22 49 6e 76 6f 6b 65 20 74 68 65 20 61 63 74 69 6f 6e 20 70 6f 69 6e 74 65 64 20 61 74 | ..."Invoke.the.action.pointed.at |
| 115fa0 | 20 62 79 20 74 68 65 20 6d 6f 75 73 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 | .by.the.mouse."...(interactive." |
| 115fc0 | 65 22 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6d 6f | e")...(cl-destructuring-bind.(mo |
| 115fe0 | 75 73 65 2d 31 20 28 77 20 70 6f 73 20 2e 20 5f 29 20 2e 20 5f 29 20 65 76 65 6e 74 0a 20 20 20 | use-1.(w.pos..._)..._).event.... |
| 116000 | 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 | .(save-excursion.......(goto-cha |
| 116020 | 72 20 70 6f 73 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 70 2d 72 65 66 65 72 | r.pos).......(slime-lookup-refer |
| 116040 | 65 6e 63 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 0c 0a 3b 3b 3b 3b 3b 20 48 6f 6f 6b 20 69 | ence-at-point))))...;;;;;.Hook.i |
| 116060 | 6e 74 6f 20 2a 53 4c 49 4d 45 20 43 4f 4d 50 49 4c 41 54 49 4f 4e 2a 0a 0a 28 64 65 66 75 6e 20 | nto.*SLIME.COMPILATION*..(defun. |
| 116080 | 73 6c 69 6d 65 2d 6e 6f 74 65 2e 72 65 66 65 72 65 6e 63 65 73 20 28 6e 6f 74 65 29 0a 20 20 28 | slime-note.references.(note)...( |
| 1160a0 | 70 6c 69 73 74 2d 67 65 74 20 6e 6f 74 65 20 3a 72 65 66 65 72 65 6e 63 65 73 29 29 0a 0a 3b 3b | plist-get.note.:references))..;; |
| 1160c0 | 3b 20 46 49 58 4d 45 3a 20 60 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6d 6f 64 65 27 20 77 69 6c 6c | ;.FIXME:.`compilation-mode'.will |
| 1160e0 | 20 73 77 61 6c 6c 6f 77 20 74 68 65 20 60 6d 6f 75 73 65 2d 66 61 63 65 27 0a 3b 3b 3b 20 65 74 | .swallow.the.`mouse-face'.;;;.et |
| 116100 | 63 2e 20 70 72 6f 70 65 72 74 69 65 73 2e 0a 28 64 65 66 61 64 76 69 63 65 20 73 6c 69 6d 65 2d | c..properties..(defadvice.slime- |
| 116120 | 6e 6f 74 65 2e 6d 65 73 73 61 67 65 20 28 61 66 74 65 72 20 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6d | note.message.(after.slime-note.m |
| 116140 | 65 73 73 61 67 65 2b 72 65 66 65 72 65 6e 63 65 73 29 0a 20 20 28 73 65 74 71 20 61 64 2d 72 65 | essage+references)...(setq.ad-re |
| 116160 | 74 75 72 6e 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 61 64 2d 72 65 | turn-value.........(concat.ad-re |
| 116180 | 74 75 72 6e 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 | turn-value.................(with |
| 1161a0 | 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -temp-buffer...................( |
| 1161c0 | 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 72 65 66 65 72 65 6e 63 65 73 0a 20 20 20 20 20 20 20 20 | slime-insert-references......... |
| 1161e0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 2e 72 65 66 65 72 65 6e 63 65 | ...........(slime-note.reference |
| 116200 | 73 20 28 61 64 2d 67 65 74 2d 61 72 67 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.(ad-get-arg.0))).............. |
| 116220 | 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 | .....(buffer-string)))))..;;;;;. |
| 116240 | 48 6f 6f 6b 20 69 6e 74 6f 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 74 | Hook.into.slime-compiler-notes-t |
| 116260 | 72 65 65 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 65 65 2d 70 72 69 6e 74 2d 77 69 74 | ree..(defun.slime-tree-print-wit |
| 116280 | 68 2d 72 65 66 65 72 65 6e 63 65 73 20 28 74 72 65 65 29 0a 20 20 3b 3b 20 66 6f 72 20 53 42 43 | h-references.(tree)...;;.for.SBC |
| 1162a0 | 4c 2d 73 74 79 6c 65 20 72 65 66 65 72 65 6e 63 65 73 0a 20 20 28 73 6c 69 6d 65 2d 74 72 65 65 | L-style.references...(slime-tree |
| 1162c0 | 2d 64 65 66 61 75 6c 74 2d 70 72 69 6e 74 65 72 20 74 72 65 65 29 0a 20 20 28 6c 65 74 20 28 28 | -default-printer.tree)...(let.(( |
| 1162e0 | 6e 6f 74 65 20 28 70 6c 69 73 74 2d 67 65 74 20 28 73 6c 69 6d 65 2d 74 72 65 65 2e 70 6c 69 73 | note.(plist-get.(slime-tree.plis |
| 116300 | 74 20 74 72 65 65 29 20 27 6e 6f 74 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 6e 6f 74 65 0a | t.tree).'note))).....(when.note. |
| 116320 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 66 65 72 65 6e 63 65 73 20 28 73 6c 69 6d 65 2d 6e | ......(let.((references.(slime-n |
| 116340 | 6f 74 65 2e 72 65 66 65 72 65 6e 63 65 73 20 6e 6f 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 | ote.references.note))).........( |
| 116360 | 77 68 65 6e 20 72 65 66 65 72 65 6e 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 28 74 65 72 70 72 | when.references...........(terpr |
| 116380 | 69 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 | i.(current-buffer))...........(s |
| 1163a0 | 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 72 65 66 65 72 65 6e 63 65 73 20 72 65 66 65 72 65 6e 63 65 | lime-insert-references.reference |
| 1163c0 | 73 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 48 6f 6f 6b 20 69 6e 74 6f 20 53 4c 44 42 0a 0a 28 | s))))))..;;;;;.Hook.into.SLDB..( |
| 1163e0 | 64 65 66 75 6e 20 73 6c 64 62 2d 6d 61 79 62 65 2d 69 6e 73 65 72 74 2d 72 65 66 65 72 65 6e 63 | defun.sldb-maybe-insert-referenc |
| 116400 | 65 73 20 28 65 78 74 72 61 29 0a 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 65 78 74 72 61 0a | es.(extra)...(slime-dcase.extra. |
| 116420 | 20 20 20 20 28 28 3a 72 65 66 65 72 65 6e 63 65 73 20 72 65 66 65 72 65 6e 63 65 73 29 20 28 73 | ....((:references.references).(s |
| 116440 | 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 72 65 66 65 72 65 6e 63 65 73 20 72 65 66 65 72 65 6e 63 65 | lime-insert-references.reference |
| 116460 | 73 29 20 74 29 0a 20 20 20 20 28 74 20 6e 69 6c 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 | s).t).....(t.nil)))..(provide.'s |
| 116480 | 6c 69 6d 65 2d 72 65 66 65 72 65 6e 63 65 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | lime-references)................ |
| 1164a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1164c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1164e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1165a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1165c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1165e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 71 75 69 63 6b 6c 69 | slime-2.31/contrib/swank-quickli |
| 116620 | 73 70 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | sp.lisp......................... |
| 116640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 116680 | 30 30 30 31 31 37 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 36 36 35 00 20 30 00 00 00 | 0001171.00000000000.016665..0... |
| 1166a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1166c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1166e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 116720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 116740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1167a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1167c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1167e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116800 | 3b 3b 3b 20 73 77 61 6e 6b 2d 71 75 69 63 6b 6c 69 73 70 2e 6c 69 73 70 20 2d 2d 20 51 75 69 63 | ;;;.swank-quicklisp.lisp.--.Quic |
| 116820 | 6b 6c 69 73 70 20 73 75 70 70 6f 72 74 0a 3b 3b 0a 3b 3b 20 41 75 74 68 6f 72 73 3a 20 4d 61 74 | klisp.support.;;.;;.Authors:.Mat |
| 116840 | 74 68 65 77 20 4b 65 6e 6e 65 64 79 20 3c 62 75 72 6e 73 69 64 65 6d 6b 40 67 6d 61 69 6c 2e 63 | thew.Kennedy.<burnsidemk@gmail.c |
| 116860 | 6f 6d 3e 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 0a 3b 3b | om>.;;.License:.Public.Domain.;; |
| 116880 | 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 28 64 65 66 73 6c 69 6d 65 | ..(in-package.:swank)..(defslime |
| 1168a0 | 66 75 6e 20 6c 69 73 74 2d 71 75 69 63 6b 6c 69 73 70 2d 73 79 73 74 65 6d 73 20 28 29 0a 20 20 | fun.list-quicklisp-systems.()... |
| 1168c0 | 22 52 65 74 75 72 6e 73 20 74 68 65 20 51 75 69 63 6b 6c 69 73 70 20 73 79 73 74 65 6d 73 20 6c | "Returns.the.Quicklisp.systems.l |
| 1168e0 | 69 73 74 2e 22 0a 20 20 28 69 66 20 28 6d 65 6d 62 65 72 20 3a 71 75 69 63 6b 6c 69 73 70 20 2a | ist."...(if.(member.:quicklisp.* |
| 116900 | 66 65 61 74 75 72 65 73 2a 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 71 6c 2d 64 69 73 74 2d | features*).......(let.((ql-dist- |
| 116920 | 6e 61 6d 65 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 4e 41 4d 45 22 20 22 51 4c 2d 44 49 53 | name.(find-symbol."NAME"."QL-DIS |
| 116940 | 54 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 71 6c 2d 73 79 73 74 65 6d 2d 6c 69 73 74 | T")).............(ql-system-list |
| 116960 | 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 53 59 53 54 45 4d 2d 4c 49 53 54 22 20 22 51 4c 22 | .(find-symbol."SYSTEM-LIST"."QL" |
| 116980 | 29 29 0a 09 20 20 20 20 28 71 6c 2d 6c 6f 63 61 6c 2d 73 79 73 74 65 6d 73 20 28 66 69 6e 64 2d | ))......(ql-local-systems.(find- |
| 1169a0 | 73 79 6d 62 6f 6c 20 22 4c 49 53 54 2d 4c 4f 43 41 4c 2d 53 59 53 54 45 4d 53 22 20 22 51 4c 22 | symbol."LIST-LOCAL-SYSTEMS"."QL" |
| 1169c0 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 6d 61 70 63 61 72 20 71 6c 2d 64 | ))).........(append.(mapcar.ql-d |
| 1169e0 | 69 73 74 2d 6e 61 6d 65 20 28 66 75 6e 63 61 6c 6c 20 71 6c 2d 73 79 73 74 65 6d 2d 6c 69 73 74 | ist-name.(funcall.ql-system-list |
| 116a00 | 29 29 0a 09 09 28 66 75 6e 63 61 6c 6c 20 71 6c 2d 6c 6f 63 61 6c 2d 73 79 73 74 65 6d 73 29 29 | ))...(funcall.ql-local-systems)) |
| 116a20 | 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 6f 75 6c 64 20 6e 6f 74 20 66 69 6e 64 20 51 | ).......(error."Could.not.find.Q |
| 116a40 | 75 69 63 6b 6c 69 73 70 20 61 6c 72 65 61 64 79 20 6c 6f 61 64 65 64 2e 22 29 29 29 0a 0a 28 70 | uicklisp.already.loaded.")))..(p |
| 116a60 | 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 71 75 69 63 6b 6c 69 73 70 29 0a 00 00 00 00 00 00 00 | rovide.:swank-quicklisp)........ |
| 116a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116c00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 66 61 6e 63 79 2e 65 | slime-2.31/contrib/slime-fancy.e |
| 116c20 | 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | l............................... |
| 116c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116c60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 116c80 | 30 30 30 32 33 36 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 30 32 00 20 30 00 00 00 | 0002361.00000000000.015402..0... |
| 116ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 116d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 116d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116e00 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d | (require.'slime)..(define-slime- |
| 116e20 | 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 66 61 6e 63 79 0a 20 20 22 4d 61 6b 65 20 53 4c 49 4d | contrib.slime-fancy..."Make.SLIM |
| 116e40 | 45 20 66 61 6e 63 79 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 4d 61 74 74 68 69 61 73 20 | E.fancy."...(:authors."Matthias. |
| 116e60 | 4b 6f 65 70 70 65 20 20 3c 6d 6b 6f 65 70 70 65 40 6d 61 69 6c 2e 6d 61 74 68 2e 75 6e 69 2d 6d | Koeppe..<mkoeppe@mail.math.uni-m |
| 116e80 | 61 67 64 65 62 75 72 67 2e 64 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 54 6f 62 69 61 | agdeburg.de>"............."Tobia |
| 116ea0 | 73 20 43 20 52 69 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 73 2e 64 65 3e | s.C.Rittweiler.<tcr@freebits.de> |
| 116ec0 | 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 73 6c 69 6d 65 2d | ")...(:license."GPL")...(:slime- |
| 116ee0 | 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 6c 69 6d 65 2d 72 65 70 6c 0a 20 20 20 20 20 20 20 20 | dependencies.slime-repl......... |
| 116f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 0a 20 20 20 | ...............slime-autodoc.... |
| 116f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 2d 70 2d 63 0a | ....................slime-c-p-c. |
| 116f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 65 64 69 | .......................slime-edi |
| 116f60 | 74 69 6e 67 2d 63 6f 6d 6d 61 6e 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ting-commands................... |
| 116f80 | 20 20 20 20 20 73 6c 69 6d 65 2d 66 61 6e 63 79 2d 69 6e 73 70 65 63 74 6f 72 0a 20 20 20 20 20 | .....slime-fancy-inspector...... |
| 116fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 66 61 6e 63 79 2d 74 72 | ..................slime-fancy-tr |
| 116fc0 | 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 | ace........................slime |
| 116fe0 | 2d 66 75 7a 7a 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c | -fuzzy........................sl |
| 117000 | 69 6d 65 2d 6d 64 6f 74 2d 66 75 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ime-mdot-fu..................... |
| 117020 | 20 20 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 73 74 65 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...slime-macrostep.............. |
| 117040 | 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 0a 20 20 | ..........slime-presentations... |
| 117060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 73 63 72 61 74 | .....................slime-scrat |
| 117080 | 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d | ch........................slime- |
| 1170a0 | 72 65 66 65 72 65 6e 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | references...................... |
| 1170c0 | 20 20 73 6c 69 6d 65 2d 70 61 63 6b 61 67 65 2d 66 75 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..slime-package-fu.............. |
| 1170e0 | 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 66 6f 6e 74 69 66 79 69 6e 67 2d 66 75 0a 20 20 | ..........slime-fontifying-fu... |
| 117100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 74 72 61 63 65 | .....................slime-trace |
| 117120 | 2d 64 69 61 6c 6f 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 | -dialog........................s |
| 117140 | 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 | lime-indentation)...(:on-load... |
| 117160 | 20 28 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 69 6e 69 74 29 0a 20 20 20 28 73 | .(slime-trace-dialog-init)....(s |
| 117180 | 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 69 74 29 0a 20 20 20 28 73 6c 69 6d 65 2d 61 75 74 6f 64 6f | lime-repl-init)....(slime-autodo |
| 1171a0 | 63 2d 69 6e 69 74 29 0a 20 20 20 28 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 69 6e 69 74 29 0a 20 20 | c-init)....(slime-c-p-c-init)... |
| 1171c0 | 20 28 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 63 6f 6d 6d 61 6e 64 73 2d 69 6e 69 74 29 0a 20 | .(slime-editing-commands-init).. |
| 1171e0 | 20 20 28 73 6c 69 6d 65 2d 66 61 6e 63 79 2d 69 6e 73 70 65 63 74 6f 72 2d 69 6e 69 74 29 0a 20 | ..(slime-fancy-inspector-init).. |
| 117200 | 20 20 28 73 6c 69 6d 65 2d 66 61 6e 63 79 2d 74 72 61 63 65 2d 69 6e 69 74 29 0a 20 20 20 28 73 | ..(slime-fancy-trace-init)....(s |
| 117220 | 6c 69 6d 65 2d 66 75 7a 7a 79 2d 69 6e 69 74 29 0a 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 73 65 | lime-fuzzy-init)....(slime-prese |
| 117240 | 6e 74 61 74 69 6f 6e 73 2d 69 6e 69 74 29 0a 20 20 20 28 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 | ntations-init)....(slime-scratch |
| 117260 | 2d 69 6e 69 74 29 0a 20 20 20 28 73 6c 69 6d 65 2d 72 65 66 65 72 65 6e 63 65 73 2d 69 6e 69 74 | -init)....(slime-references-init |
| 117280 | 29 0a 20 20 20 28 73 6c 69 6d 65 2d 70 61 63 6b 61 67 65 2d 66 75 2d 69 6e 69 74 29 0a 20 20 20 | )....(slime-package-fu-init).... |
| 1172a0 | 28 73 6c 69 6d 65 2d 66 6f 6e 74 69 66 79 69 6e 67 2d 66 75 2d 69 6e 69 74 29 0a 20 20 20 28 73 | (slime-fontifying-fu-init)....(s |
| 1172c0 | 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 69 6e 69 74 29 29 29 0a 0a 28 70 72 6f 76 69 | lime-indentation-init)))..(provi |
| 1172e0 | 64 65 20 27 73 6c 69 6d 65 2d 66 61 6e 63 79 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | de.'slime-fancy)................ |
| 117300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1173a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1173c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1173e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 66 75 7a 7a 79 2e 65 | slime-2.31/contrib/slime-fuzzy.e |
| 117420 | 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | l............................... |
| 117440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 117480 | 30 30 35 36 31 35 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 35 30 35 00 20 30 00 00 00 | 0056157.00000000000.015505..0... |
| 1174a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1174c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1174e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 117520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 117540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1175a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1175c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1175e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117600 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 | (require.'slime).(require.'slime |
| 117620 | 2d 72 65 70 6c 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 63 2d 70 2d 63 29 0a 28 72 | -repl).(require.'slime-c-p-c).(r |
| 117640 | 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 | equire.'cl-lib)..(define-slime-c |
| 117660 | 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 0a 20 20 22 46 75 7a 7a 79 20 73 79 6d 62 | ontrib.slime-fuzzy..."Fuzzy.symb |
| 117680 | 6f 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 42 72 69 | ol.completion."...(:authors."Bri |
| 1176a0 | 61 6e 20 44 6f 77 6e 69 6e 67 20 3c 62 64 6f 77 6e 69 6e 67 40 6c 61 76 6f 73 2e 6e 65 74 3e 22 | an.Downing.<bdowning@lavos.net>" |
| 1176c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 54 6f 62 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 6c | ............."Tobias.C..Rittweil |
| 1176e0 | 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 73 2e 64 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 | er.<tcr@freebits.de>"........... |
| 117700 | 20 20 22 41 74 74 69 6c 61 20 4c 65 6e 64 76 61 69 20 3c 61 74 74 69 6c 61 2e 6c 65 6e 64 76 61 | .."Attila.Lendvai.<attila.lendva |
| 117720 | 69 40 67 6d 61 69 6c 2e 63 6f 6d 3e 22 29 0a 20 20 28 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 | i@gmail.com>")...(:license."GPL" |
| 117740 | 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d 66 | )...(:swank-dependencies.swank-f |
| 117760 | 75 7a 7a 79 29 0a 20 20 28 3a 6f 6e 2d 6c 6f 61 64 0a 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | uzzy)...(:on-load....(define-key |
| 117780 | 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 5c 43 2d 63 5c 4d 2d 69 22 20 27 73 6c 69 6d | .slime-mode-map."\C-c\M-i".'slim |
| 1177a0 | 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 28 77 68 65 | e-fuzzy-complete-symbol)....(whe |
| 1177c0 | 6e 20 28 66 65 61 74 75 72 65 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 20 20 20 20 20 28 64 | n.(featurep.'slime-repl)......(d |
| 1177e0 | 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 5c | efine-key.slime-repl-mode-map."\ |
| 117800 | 43 2d 63 5c 4d 2d 69 22 0a 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d | C-c\M-i"........'slime-fuzzy-com |
| 117820 | 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 29 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 | plete-symbol))))..(defcustom.sli |
| 117840 | 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 69 6e 2d 70 6c 61 63 65 20 74 0a 20 | me-fuzzy-completion-in-place.t.. |
| 117860 | 20 22 57 68 65 6e 20 6e 6f 6e 2d 4e 49 4c 20 74 68 65 20 66 75 7a 7a 79 20 73 79 6d 62 6f 6c 20 | ."When.non-NIL.the.fuzzy.symbol. |
| 117880 | 63 6f 6d 70 6c 65 74 69 6f 6e 20 69 73 20 64 6f 6e 65 20 69 6e 20 70 6c 61 63 65 20 61 73 0a 6f | completion.is.done.in.place.as.o |
| 1178a0 | 70 70 6f 73 65 64 20 74 6f 20 6d 6f 76 69 6e 67 20 74 68 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 | pposed.to.moving.the.point.to.th |
| 1178c0 | 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 62 75 66 66 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 | e.completion.buffer."...:group.' |
| 1178e0 | 73 6c 69 6d 65 2d 6d 6f 64 65 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 | slime-mode...:type.'boolean)..(d |
| 117900 | 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d | efcustom.slime-fuzzy-completion- |
| 117920 | 6c 69 6d 69 74 20 33 30 30 0a 20 20 22 4f 6e 6c 79 20 72 65 74 75 72 6e 20 61 6e 64 20 70 72 65 | limit.300..."Only.return.and.pre |
| 117940 | 73 65 6e 74 20 74 68 69 73 20 6d 61 6e 79 20 73 79 6d 62 6f 6c 73 20 66 72 6f 6d 20 73 77 61 6e | sent.this.many.symbols.from.swan |
| 117960 | 6b 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 0a 20 20 3a 74 79 70 65 | k."...:group.'slime-mode...:type |
| 117980 | 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 66 75 7a | .'integer)..(defcustom.slime-fuz |
| 1179a0 | 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 | zy-completion-time-limit-in-msec |
| 1179c0 | 20 31 35 30 30 0a 20 20 22 4c 69 6d 69 74 20 74 68 65 20 74 69 6d 65 20 73 70 65 6e 74 20 28 67 | .1500..."Limit.the.time.spent.(g |
| 1179e0 | 69 76 65 6e 20 69 6e 20 6d 73 65 63 29 20 69 6e 20 73 77 61 6e 6b 20 77 68 69 6c 65 20 67 61 74 | iven.in.msec).in.swank.while.gat |
| 117a00 | 68 65 72 69 6e 67 0a 63 6f 6d 70 6c 65 74 69 6f 6e 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 | hering.completions."...:group.'s |
| 117a20 | 6c 69 6d 65 2d 6d 6f 64 65 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 | lime-mode...:type.'integer)..(de |
| 117a40 | 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 77 68 65 6e 2d 63 6f 6d 70 6c 65 74 65 2d 66 69 6c 65 | fcustom.slime-when-complete-file |
| 117a60 | 6e 61 6d 65 2d 65 78 70 61 6e 64 20 6e 69 6c 0a 20 20 22 55 73 65 20 63 6f 6d 69 6e 74 2d 72 65 | name-expand.nil..."Use.comint-re |
| 117a80 | 70 6c 61 63 65 2d 62 79 2d 65 78 70 61 6e 64 65 64 2d 66 69 6c 65 6e 61 6d 65 20 69 6e 73 74 65 | place-by-expanded-filename.inste |
| 117aa0 | 61 64 20 6f 66 0a 63 6f 6d 69 6e 74 2d 66 69 6c 65 6e 61 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e | ad.of.comint-filename-completion |
| 117ac0 | 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 66 69 6c 65 20 6e 61 6d 65 73 22 0a 20 20 3a 67 72 6f 75 | .to.complete.file.names"...:grou |
| 117ae0 | 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a | p.'slime-mode...:type.'boolean). |
| 117b00 | 0a 0c 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 | ...(defvar.slime-fuzzy-target-bu |
| 117b20 | 66 66 65 72 20 6e 69 6c 0a 20 20 22 54 68 65 20 62 75 66 66 65 72 20 74 68 61 74 20 69 73 20 74 | ffer.nil..."The.buffer.that.is.t |
| 117b40 | 68 65 20 74 61 72 67 65 74 20 6f 66 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 63 74 69 | he.target.of.the.completion.acti |
| 117b60 | 76 69 74 69 65 73 2e 22 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 74 | vities.").(defvar.slime-fuzzy-st |
| 117b80 | 61 72 74 20 6e 69 6c 0a 20 20 22 54 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 | art.nil..."The.beginning.of.the. |
| 117ba0 | 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 6c 6f 74 20 69 6e 20 74 68 65 20 74 61 72 67 65 74 20 62 75 | completion.slot.in.the.target.bu |
| 117bc0 | 66 66 65 72 2e 0a 54 68 69 73 20 69 73 20 61 20 6e 6f 6e 2d 61 64 76 61 6e 63 69 6e 67 20 6d 61 | ffer..This.is.a.non-advancing.ma |
| 117be0 | 72 6b 65 72 2e 22 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 65 6e 64 20 | rker.").(defvar.slime-fuzzy-end. |
| 117c00 | 6e 69 6c 0a 20 20 22 54 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e | nil..."The.end.of.the.completion |
| 117c20 | 20 73 6c 6f 74 20 69 6e 20 74 68 65 20 74 61 72 67 65 74 20 62 75 66 66 65 72 2e 0a 54 68 69 73 | .slot.in.the.target.buffer..This |
| 117c40 | 20 69 73 20 61 6e 20 61 64 76 61 6e 63 69 6e 67 20 6d 61 72 6b 65 72 2e 22 29 0a 28 64 65 66 76 | .is.an.advancing.marker.").(defv |
| 117c60 | 61 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 6f 72 69 67 69 6e 61 6c 2d 74 65 78 74 20 6e 69 6c | ar.slime-fuzzy-original-text.nil |
| 117c80 | 0a 20 20 22 54 68 65 20 6f 72 69 67 69 6e 61 6c 20 74 65 78 74 20 74 68 61 74 20 77 61 73 20 69 | ..."The.original.text.that.was.i |
| 117ca0 | 6e 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 6c 6f 74 20 69 6e 20 74 68 65 0a 74 61 72 | n.the.completion.slot.in.the.tar |
| 117cc0 | 67 65 74 20 62 75 66 66 65 72 2e 20 20 54 68 69 73 20 69 73 20 77 68 61 74 20 69 73 20 70 75 74 | get.buffer...This.is.what.is.put |
| 117ce0 | 20 62 61 63 6b 20 69 66 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 69 73 0a 61 62 6f 72 74 65 64 2e 22 | .back.if.completion.is.aborted." |
| 117d00 | 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 65 78 74 20 6e 69 6c 0a 20 | ).(defvar.slime-fuzzy-text.nil.. |
| 117d20 | 20 22 54 68 65 20 74 65 78 74 20 74 68 61 74 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 69 6e 20 | ."The.text.that.is.currently.in. |
| 117d40 | 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 6c 6f 74 20 69 6e 20 74 68 65 0a 74 61 72 67 65 | the.completion.slot.in.the.targe |
| 117d60 | 74 20 62 75 66 66 65 72 2e 20 20 49 66 20 74 68 69 73 20 65 76 65 72 20 64 6f 65 73 6e 27 74 20 | t.buffer...If.this.ever.doesn't. |
| 117d80 | 6d 61 74 63 68 2c 20 74 68 65 20 74 61 72 67 65 74 20 62 75 66 66 65 72 20 68 61 73 0a 62 65 65 | match,.the.target.buffer.has.bee |
| 117da0 | 6e 20 6d 6f 64 69 66 69 65 64 20 61 6e 64 20 77 65 20 61 62 6f 72 74 20 77 69 74 68 6f 75 74 20 | n.modified.and.we.abort.without. |
| 117dc0 | 74 6f 75 63 68 69 6e 67 20 69 74 2e 22 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 75 7a | touching.it.").(defvar.slime-fuz |
| 117de0 | 7a 79 2d 66 69 72 73 74 20 6e 69 6c 0a 20 20 22 54 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 | zy-first.nil..."The.position.of. |
| 117e00 | 74 68 65 20 66 69 72 73 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 6f 6d 70 | the.first.completion.in.the.comp |
| 117e20 | 6c 65 74 69 6f 6e 73 20 62 75 66 66 65 72 2e 0a 54 68 65 20 64 65 73 63 72 69 70 74 69 76 65 20 | letions.buffer..The.descriptive. |
| 117e40 | 74 65 78 74 20 61 6e 64 20 68 65 61 64 65 72 73 20 61 72 65 20 61 62 6f 76 65 20 74 68 69 73 2e | text.and.headers.are.above.this. |
| 117e60 | 22 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 6c 61 73 74 20 6e 69 6c 0a | ").(defvar.slime-fuzzy-last.nil. |
| 117e80 | 20 20 20 20 22 54 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c 61 73 74 20 63 6f | ...."The.position.of.the.last.co |
| 117ea0 | 6d 70 6c 65 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 62 75 66 66 | mpletion.in.the.completions.buff |
| 117ec0 | 65 72 2e 0a 49 66 20 74 68 65 20 74 69 6d 65 20 6c 69 6d 69 74 20 68 61 73 20 65 78 68 61 75 73 | er..If.the.time.limit.has.exhaus |
| 117ee0 | 74 65 64 20 64 75 72 69 6e 67 20 67 65 6e 65 72 61 74 69 6f 6e 20 70 6f 73 73 69 62 6c 65 20 63 | ted.during.generation.possible.c |
| 117f00 | 6f 6d 70 6c 65 74 69 6f 6e 0a 63 68 6f 69 63 65 73 20 69 6e 73 69 64 65 20 53 57 41 4e 4b 2c 20 | ompletion.choices.inside.SWANK,. |
| 117f20 | 61 6e 20 69 6e 64 69 63 61 74 69 6f 6e 20 69 73 20 70 72 69 6e 74 65 64 20 62 65 6c 6f 77 20 74 | an.indication.is.printed.below.t |
| 117f40 | 68 69 73 2e 22 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 75 72 72 65 | his.").(defvar.slime-fuzzy-curre |
| 117f60 | 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 6e 69 6c 0a 20 20 22 54 68 65 20 63 75 72 72 65 6e 74 | nt-completion.nil..."The.current |
| 117f80 | 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f 62 6a 65 63 74 2e 20 20 49 66 20 74 68 69 73 20 69 73 20 | .completion.object...If.this.is. |
| 117fa0 | 74 68 65 20 73 61 6d 65 20 62 65 66 6f 72 65 20 61 6e 64 0a 61 66 74 65 72 20 70 6f 69 6e 74 20 | the.same.before.and.after.point. |
| 117fc0 | 6d 6f 76 65 73 20 69 6e 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 62 75 66 66 65 72 2c | moves.in.the.completions.buffer, |
| 117fe0 | 20 74 68 65 20 74 65 78 74 20 69 73 20 6e 6f 74 0a 72 65 70 6c 61 63 65 64 20 69 6e 20 74 68 65 | .the.text.is.not.replaced.in.the |
| 118000 | 20 74 61 72 67 65 74 20 66 6f 72 20 65 66 66 69 63 69 65 6e 63 79 2e 22 29 0a 28 64 65 66 76 61 | .target.for.efficiency.").(defva |
| 118020 | 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 75 72 72 65 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e | r.slime-fuzzy-current-completion |
| 118040 | 2d 6f 76 65 72 6c 61 79 20 6e 69 6c 0a 20 20 22 54 68 65 20 6f 76 65 72 6c 61 79 20 72 65 70 72 | -overlay.nil..."The.overlay.repr |
| 118060 | 65 73 65 6e 74 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 | esenting.the.current.completion. |
| 118080 | 69 6e 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 62 75 66 66 65 72 2e 20 54 68 69 73 20 69 | in.the.completion.buffer..This.i |
| 1180a0 | 73 20 75 73 65 64 20 74 6f 20 68 69 67 68 74 6c 69 67 68 74 20 74 68 65 20 74 65 78 74 2e 22 29 | s.used.to.hightlight.the.text.") |
| 1180c0 | 0a 0a 3b 3b 3b 3b 3b 3b 3b 20 73 6c 69 6d 65 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 2d 66 75 | ..;;;;;;;.slime-target-buffer-fu |
| 1180e0 | 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 0a 3b 3b 20 4e 4f 54 45 3a 20 74 68 | zzy-completions-mode.;;.NOTE:.th |
| 118100 | 69 73 20 6d 6f 64 65 20 68 61 73 20 74 6f 20 62 65 20 61 62 6c 65 20 74 6f 20 6f 76 65 72 72 69 | is.mode.has.to.be.able.to.overri |
| 118120 | 64 65 20 6b 65 79 20 6d 61 70 70 69 6e 67 73 20 69 6e 20 73 6c 69 6d 65 2d 6d 6f 64 65 0a 0a 28 | de.key.mappings.in.slime-mode..( |
| 118140 | 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 2d 66 75 7a 7a 79 | defvar.slime-target-buffer-fuzzy |
| 118160 | 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d | -completions-map...(let.((map.(m |
| 118180 | 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 63 6c 2d 6c 61 62 | ake-sparse-keymap))).....(cl-lab |
| 1181a0 | 65 6c 73 20 28 28 64 65 66 20 28 6b 65 79 73 20 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 20 20 | els.((def.(keys.command)........ |
| 1181c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6c 69 73 74 70 20 6b 65 79 73 29 | ............(unless.(listp.keys) |
| 1181e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6b 65 79 73 | ......................(setq.keys |
| 118200 | 20 28 6c 69 73 74 20 6b 65 79 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(list.keys))).................. |
| 118220 | 20 20 28 64 6f 6c 69 73 74 20 28 6b 65 79 20 6b 65 79 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..(dolist.(key.keys)............ |
| 118240 | 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 6b 65 79 20 63 6f | ..........(define-key.map.key.co |
| 118260 | 6d 6d 61 6e 64 29 29 29 29 0a 20 20 20 20 20 20 28 64 65 66 20 60 28 5b 72 65 6d 61 70 20 6b 65 | mmand)))).......(def.`([remap.ke |
| 118280 | 79 62 6f 61 72 64 2d 71 75 69 74 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6b 62 64 20 | yboard-quit]..............,(kbd. |
| 1182a0 | 22 43 2d 67 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d | "C-g"))............'slime-fuzzy- |
| 1182c0 | 61 62 6f 72 74 29 0a 20 20 20 20 20 20 28 64 65 66 20 60 28 5b 72 65 6d 61 70 20 73 6c 69 6d 65 | abort).......(def.`([remap.slime |
| 1182e0 | 2d 66 75 7a 7a 79 2d 69 6e 64 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f | -fuzzy-indent-and-complete-symbo |
| 118300 | 6c 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 72 65 6d 61 70 20 73 6c 69 6d 65 2d 69 6e 64 | l]..............[remap.slime-ind |
| 118320 | 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 5d 0a 20 20 20 20 20 20 20 | ent-and-complete-symbol]........ |
| 118340 | 20 20 20 20 20 20 2c 28 6b 62 64 20 22 3c 74 61 62 3e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ......,(kbd."<tab>"))........... |
| 118360 | 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 2d 6f 72 2d 75 70 64 61 74 65 2d 63 | .'slime-fuzzy-select-or-update-c |
| 118380 | 6f 6d 70 6c 65 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 28 64 65 66 20 60 28 5b 72 65 6d 61 70 20 | ompletions).......(def.`([remap. |
| 1183a0 | 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6b 62 | previous-line]..............,(kb |
| 1183c0 | 64 20 22 3c 75 70 3e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 66 75 7a | d."<up>"))............'slime-fuz |
| 1183e0 | 7a 79 2d 70 72 65 76 29 0a 20 20 20 20 20 20 28 64 65 66 20 60 28 5b 72 65 6d 61 70 20 6e 65 78 | zy-prev).......(def.`([remap.nex |
| 118400 | 74 2d 6c 69 6e 65 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6b 62 64 20 22 3c 64 6f 77 | t-line]..............,(kbd."<dow |
| 118420 | 6e 3e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 6e 65 | n>"))............'slime-fuzzy-ne |
| 118440 | 78 74 29 0a 20 20 20 20 20 20 28 64 65 66 20 60 28 5b 72 65 6d 61 70 20 69 73 65 61 72 63 68 2d | xt).......(def.`([remap.isearch- |
| 118460 | 66 6f 72 77 61 72 64 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6b 62 64 20 22 43 2d 73 | forward]..............,(kbd."C-s |
| 118480 | 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6e 74 | "))............'slime-fuzzy-cont |
| 1184a0 | 69 6e 75 65 2d 69 73 65 61 72 63 68 2d 69 6e 2d 66 75 7a 7a 79 2d 62 75 66 66 65 72 29 0a 20 20 | inue-isearch-in-fuzzy-buffer)... |
| 1184c0 | 20 20 20 20 3b 3b 20 73 6f 6d 65 20 75 6e 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 64 69 72 65 63 74 | ....;;.some.unconditional.direct |
| 1184e0 | 20 62 69 6e 64 69 6e 67 73 0a 20 20 20 20 20 20 28 64 65 66 20 28 6c 69 73 74 20 28 6b 62 64 20 | .bindings.......(def.(list.(kbd. |
| 118500 | 22 3c 72 65 74 75 72 6e 3e 22 29 20 28 6b 62 64 20 22 52 45 54 22 29 20 28 6b 62 64 20 22 3c 53 | "<return>").(kbd."RET").(kbd."<S |
| 118520 | 50 43 3e 22 29 20 22 28 22 20 22 29 22 20 22 5b 22 20 22 5d 22 29 0a 20 20 20 20 20 20 20 20 20 | PC>")."(".")"."["."]").......... |
| 118540 | 20 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 2d 61 6e 64 2d 70 72 6f 63 65 73 | ..'slime-fuzzy-select-and-proces |
| 118560 | 73 2d 65 76 65 6e 74 2d 69 6e 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 6d | s-event-in-target-buffer)).....m |
| 118580 | 61 70 29 0a 20 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 73 6c 69 6d 65 2d 74 61 72 67 65 74 2d 62 | ap)..."Keymap.for.slime-target-b |
| 1185a0 | 75 66 66 65 72 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 2e 0a 54 68 | uffer-fuzzy-completions-mode..Th |
| 1185c0 | 69 73 20 77 69 6c 6c 20 6f 76 65 72 72 69 64 65 20 74 68 65 20 6b 65 79 20 62 69 6e 64 69 6e 67 | is.will.override.the.key.binding |
| 1185e0 | 73 20 69 6e 20 74 68 65 20 74 61 72 67 65 74 20 62 75 66 66 65 72 0a 74 65 6d 70 6f 72 61 72 69 | s.in.the.target.buffer.temporari |
| 118600 | 6c 79 20 64 75 72 69 6e 67 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 22 29 0a 0a 3b 3b 20 4d 61 6b 65 | ly.during.completion.")..;;.Make |
| 118620 | 20 73 75 72 65 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 2d | .sure.slime-fuzzy-target-buffer- |
| 118640 | 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 27 73 20 6d 61 70 20 69 73 0a 3b 3b 20 62 65 66 | completions-mode's.map.is.;;.bef |
| 118660 | 6f 72 65 20 65 76 65 72 79 74 68 69 6e 67 20 65 6c 73 65 2e 0a 28 73 65 74 66 20 6d 69 6e 6f 72 | ore.everything.else..(setf.minor |
| 118680 | 2d 6d 6f 64 65 2d 6d 61 70 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 28 63 6c 2d 73 74 61 62 6c 65 | -mode-map-alist.......(cl-stable |
| 1186a0 | 2d 73 6f 72 74 20 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 6d 61 70 2d 61 6c 69 73 74 0a 20 20 20 20 20 | -sort.minor-mode-map-alist...... |
| 1186c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 0a 20 | .................(lambda.(a.b).. |
| 1186e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 61 20 27 73 6c | .......................(eq.a.'sl |
| 118700 | 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 2d 63 6f 6d 70 6c 65 74 69 | ime-fuzzy-target-buffer-completi |
| 118720 | 6f 6e 73 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ons-mode))...................... |
| 118740 | 20 3a 6b 65 79 20 23 27 63 61 72 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a | .:key.#'car))..(defun.slime-fuzz |
| 118760 | 79 2d 63 6f 6e 74 69 6e 75 65 2d 69 73 65 61 72 63 68 2d 69 6e 2d 66 75 7a 7a 79 2d 62 75 66 66 | y-continue-isearch-in-fuzzy-buff |
| 118780 | 65 72 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 65 6c 65 63 74 2d | er.()...(interactive)...(select- |
| 1187a0 | 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 73 6c 69 6d 65 | window.(get-buffer-window.(slime |
| 1187c0 | 2d 67 65 74 2d 66 75 7a 7a 79 2d 62 75 66 66 65 72 29 29 29 0a 20 20 28 63 61 6c 6c 2d 69 6e 74 | -get-fuzzy-buffer)))...(call-int |
| 1187e0 | 65 72 61 63 74 69 76 65 6c 79 20 27 69 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 29 29 0a 0a 28 | eractively.'isearch-forward))..( |
| 118800 | 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 | define-minor-mode.slime-fuzzy-ta |
| 118820 | 72 67 65 74 2d 62 75 66 66 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 0a 20 20 22 | rget-buffer-completions-mode..." |
| 118840 | 54 68 69 73 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 69 73 20 69 6e 74 65 6e 74 65 64 20 74 6f 20 6f | This.minor.mode.is.intented.to.o |
| 118860 | 76 65 72 72 69 64 65 20 6b 65 79 20 62 69 6e 64 69 6e 67 73 20 64 75 72 69 6e 67 0a 66 75 7a 7a | verride.key.bindings.during.fuzz |
| 118880 | 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 74 61 72 67 65 74 20 62 75 66 66 | y.completions.in.the.target.buff |
| 1188a0 | 65 72 2e 20 4d 6f 73 74 20 6f 66 20 74 68 65 20 62 69 6e 64 69 6e 67 73 20 77 69 6c 6c 0a 64 6f | er..Most.of.the.bindings.will.do |
| 1188c0 | 20 61 6e 20 69 6d 70 6c 69 63 69 74 20 73 65 6c 65 63 74 20 69 6e 20 74 68 65 20 63 6f 6d 70 6c | .an.implicit.select.in.the.compl |
| 1188e0 | 65 74 69 6f 6e 20 77 69 6e 64 6f 77 20 61 6e 64 20 6c 65 74 20 74 68 65 0a 6b 65 79 70 72 65 73 | etion.window.and.let.the.keypres |
| 118900 | 73 20 62 65 20 70 72 6f 63 65 73 73 65 64 20 69 6e 20 74 68 65 20 74 61 72 67 65 74 20 62 75 66 | s.be.processed.in.the.target.buf |
| 118920 | 66 65 72 2e 22 0a 20 20 3a 69 6e 69 74 2d 76 61 6c 75 65 20 6e 69 6c 0a 20 20 3a 6c 69 67 68 74 | fer."...:init-value.nil...:light |
| 118940 | 65 72 20 6e 69 6c 0a 20 20 3a 6b 65 79 6d 61 70 20 73 6c 69 6d 65 2d 74 61 72 67 65 74 2d 62 75 | er.nil...:keymap.slime-target-bu |
| 118960 | 66 66 65 72 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 61 70 29 0a 0a 28 61 64 | ffer-fuzzy-completions-map)..(ad |
| 118980 | 64 2d 74 6f 2d 6c 69 73 74 20 27 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 61 6c 69 73 74 0a 20 20 20 20 | d-to-list.'minor-mode-alist..... |
| 1189a0 | 20 20 20 20 20 20 20 20 20 27 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 | .........'(slime-fuzzy-target-bu |
| 1189c0 | 66 66 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 | ffer-completions-mode........... |
| 1189e0 | 20 20 20 20 20 22 20 46 75 7a 7a 79 20 54 61 72 67 65 74 20 42 75 66 66 65 72 20 43 6f 6d 70 6c | .....".Fuzzy.Target.Buffer.Compl |
| 118a00 | 65 74 69 6f 6e 73 22 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 | etions"))..(defvar.slime-fuzzy-c |
| 118a20 | 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b | ompletions-map...(let.((map.(mak |
| 118a40 | 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 63 6c 2d 6c 61 62 65 6c | e-sparse-keymap))).....(cl-label |
| 118a60 | 73 20 28 28 64 65 66 20 28 6b 65 79 73 20 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 | s.((def.(keys.command).......... |
| 118a80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6c 69 73 74 70 20 6b 65 79 73 29 | ............(unless.(listp.keys) |
| 118aa0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6b 65 | ........................(setq.ke |
| 118ac0 | 79 73 20 28 6c 69 73 74 20 6b 65 79 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ys.(list.keys)))................ |
| 118ae0 | 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6b 65 79 20 6b 65 79 73 29 0a 20 20 20 20 20 20 20 | ......(dolist.(key.keys)........ |
| 118b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 | ................(define-key.map. |
| 118b20 | 6b 65 79 20 63 6f 6d 6d 61 6e 64 29 29 29 29 0a 20 20 20 20 20 20 28 64 65 66 20 60 28 5b 72 65 | key.command)))).......(def.`([re |
| 118b40 | 6d 61 70 20 6b 65 79 62 6f 61 72 64 2d 71 75 69 74 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | map.keyboard-quit].............. |
| 118b60 | 22 71 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6b 62 64 20 22 43 2d 67 22 29 29 0a 20 | "q"..............,(kbd."C-g")).. |
| 118b80 | 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 61 62 6f 72 74 29 0a 20 20 | ..........'slime-fuzzy-abort)... |
| 118ba0 | 20 20 20 20 28 64 65 66 20 60 28 5b 72 65 6d 61 70 20 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 5d | ....(def.`([remap.previous-line] |
| 118bc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | .............."p".............." |
| 118be0 | 5c 4d 2d 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6b 62 64 20 22 3c 75 70 3e 22 29 | \M-p"..............,(kbd."<up>") |
| 118c00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 70 72 65 76 29 0a | )............'slime-fuzzy-prev). |
| 118c20 | 20 20 20 20 20 20 28 64 65 66 20 60 28 5b 72 65 6d 61 70 20 6e 65 78 74 2d 6c 69 6e 65 5d 0a 20 | ......(def.`([remap.next-line].. |
| 118c40 | 20 20 20 20 20 20 20 20 20 20 20 20 22 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 4d | ............"n".............."\M |
| 118c60 | 2d 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6b 62 64 20 22 3c 64 6f 77 6e 3e 22 29 | -n"..............,(kbd."<down>") |
| 118c80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 6e 65 78 74 29 0a | )............'slime-fuzzy-next). |
| 118ca0 | 20 20 20 20 20 20 28 64 65 66 20 22 5c 64 22 20 27 73 63 72 6f 6c 6c 2d 64 6f 77 6e 29 0a 20 20 | ......(def."\d".'scroll-down)... |
| 118cc0 | 20 20 20 20 28 64 65 66 20 60 28 5b 72 65 6d 61 70 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 69 6e | ....(def.`([remap.slime-fuzzy-in |
| 118ce0 | 64 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 5d 0a 20 20 20 20 20 20 | dent-and-complete-symbol]....... |
| 118d00 | 20 20 20 20 20 20 20 5b 72 65 6d 61 70 20 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 61 6e 64 2d 63 | .......[remap.slime-indent-and-c |
| 118d20 | 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6b | omplete-symbol]..............,(k |
| 118d40 | 62 64 20 22 3c 74 61 62 3e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 66 | bd."<tab>"))............'slime-f |
| 118d60 | 75 7a 7a 79 2d 73 65 6c 65 63 74 29 0a 20 20 20 20 20 20 28 64 65 66 20 28 6b 62 64 20 22 3c 6d | uzzy-select).......(def.(kbd."<m |
| 118d80 | 6f 75 73 65 2d 31 3e 22 29 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 2f 6d 6f | ouse-1>").'slime-fuzzy-select/mo |
| 118da0 | 75 73 65 29 0a 20 20 20 20 20 20 28 64 65 66 20 28 6b 62 64 20 22 3c 6d 6f 75 73 65 2d 32 3e 22 | use).......(def.(kbd."<mouse-2>" |
| 118dc0 | 29 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 2f 6d 6f 75 73 65 29 0a 20 20 20 | ).'slime-fuzzy-select/mouse).... |
| 118de0 | 20 20 20 28 64 65 66 20 60 28 2c 28 6b 62 64 20 22 52 45 54 22 29 0a 20 20 20 20 20 20 20 20 20 | ...(def.`(,(kbd."RET").......... |
| 118e00 | 20 20 20 20 2c 28 6b 62 64 20 22 3c 53 50 43 3e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 27 | ....,(kbd."<SPC>"))............' |
| 118e20 | 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 29 29 0a 20 20 20 20 6d 61 70 29 0a 20 20 | slime-fuzzy-select)).....map)... |
| 118e40 | 22 4b 65 79 6d 61 70 20 66 6f 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 | "Keymap.for.slime-fuzzy-completi |
| 118e60 | 6f 6e 73 2d 6d 6f 64 65 20 77 68 65 6e 20 69 6e 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 | ons-mode.when.in.the.completion. |
| 118e80 | 62 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 | buffer.")..(define-derived-mode. |
| 118ea0 | 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 0a 20 20 66 | slime-fuzzy-completions-mode...f |
| 118ec0 | 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 20 22 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f | undamental-mode."Fuzzy.Completio |
| 118ee0 | 6e 73 22 0a 20 20 22 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 70 72 65 73 65 6e 74 69 6e 67 | ns"..."Major.mode.for.presenting |
| 118f00 | 20 66 75 7a 7a 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 72 65 73 75 6c 74 73 2e 0a 0a 57 68 65 6e | .fuzzy.completion.results...When |
| 118f20 | 20 79 6f 75 20 72 75 6e 20 60 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 | .you.run.`slime-fuzzy-complete-s |
| 118f40 | 79 6d 62 6f 6c 27 2c 20 74 68 65 20 73 79 6d 62 6f 6c 20 74 6f 6b 65 6e 20 61 74 0a 70 6f 69 6e | ymbol',.the.symbol.token.at.poin |
| 118f60 | 74 20 69 73 20 63 6f 6d 70 6c 65 74 65 64 20 75 73 69 6e 67 20 74 68 65 20 46 75 7a 7a 79 20 43 | t.is.completed.using.the.Fuzzy.C |
| 118f80 | 6f 6d 70 6c 65 74 69 6f 6e 20 61 6c 67 6f 72 69 74 68 6d 3b 20 74 68 69 73 0a 6d 65 61 6e 73 20 | ompletion.algorithm;.this.means. |
| 118fa0 | 74 68 61 74 20 74 68 65 20 74 6f 6b 65 6e 20 69 73 20 74 61 6b 65 6e 20 61 73 20 61 20 73 65 71 | that.the.token.is.taken.as.a.seq |
| 118fc0 | 75 65 6e 63 65 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 61 6e 64 20 61 6c 6c 0a 74 68 65 20 | uence.of.characters.and.all.the. |
| 118fe0 | 76 61 72 69 6f 75 73 20 70 6f 73 73 69 62 69 6c 69 74 69 65 73 20 74 68 61 74 20 74 68 69 73 20 | various.possibilities.that.this. |
| 119000 | 73 65 71 75 65 6e 63 65 20 63 6f 75 6c 64 20 6d 65 61 6e 69 6e 67 66 75 6c 6c 79 0a 72 65 70 72 | sequence.could.meaningfully.repr |
| 119020 | 65 73 65 6e 74 20 61 72 65 20 6f 66 66 65 72 65 64 20 61 73 20 73 65 6c 65 63 74 61 62 6c 65 20 | esent.are.offered.as.selectable. |
| 119040 | 63 68 6f 69 63 65 73 2c 20 73 6f 72 74 65 64 20 62 79 20 68 6f 77 20 77 65 6c 6c 0a 74 68 65 79 | choices,.sorted.by.how.well.they |
| 119060 | 20 64 65 65 6d 20 74 6f 20 62 65 20 61 20 6d 61 74 63 68 20 66 6f 72 20 74 68 65 20 74 6f 6b 65 | .deem.to.be.a.match.for.the.toke |
| 119080 | 6e 2e 20 28 46 6f 72 20 69 6e 73 74 61 6e 63 65 2c 20 74 68 65 20 66 69 72 73 74 0a 63 68 6f 69 | n..(For.instance,.the.first.choi |
| 1190a0 | 63 65 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6e 67 20 6f 6e 20 5c 22 6d 76 62 5c 22 20 77 6f 75 6c | ce.of.completing.on.\"mvb\".woul |
| 1190c0 | 64 20 62 65 20 5c 22 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 5c 22 2e 29 0a 0a | d.be.\"multiple-value-bind\".).. |
| 1190e0 | 54 68 65 72 65 66 6f 72 65 2c 20 61 20 6e 65 77 20 62 75 66 66 65 72 20 28 2a 46 75 7a 7a 79 20 | Therefore,.a.new.buffer.(*Fuzzy. |
| 119100 | 43 6f 6d 70 6c 65 74 69 6f 6e 73 2a 29 20 77 69 6c 6c 20 70 6f 70 20 75 70 20 74 68 61 74 0a 63 | Completions*).will.pop.up.that.c |
| 119120 | 6f 6e 74 61 69 6e 73 20 74 68 65 20 64 69 66 66 65 72 65 6e 74 20 63 6f 6d 70 6c 65 74 69 6f 6e | ontains.the.different.completion |
| 119140 | 20 63 68 6f 69 63 65 73 2e 20 53 69 6d 75 6c 74 61 6e 65 6f 75 73 6c 79 2c 20 61 0a 73 70 65 63 | .choices..Simultaneously,.a.spec |
| 119160 | 69 61 6c 20 6d 69 6e 6f 72 2d 6d 6f 64 65 20 77 69 6c 6c 20 62 65 20 74 65 6d 70 6f 72 61 72 69 | ial.minor-mode.will.be.temporari |
| 119180 | 6c 79 20 65 6e 61 62 6c 65 64 20 69 6e 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 0a 62 75 66 66 65 | ly.enabled.in.the.original.buffe |
| 1191a0 | 72 20 77 68 65 72 65 20 79 6f 75 20 69 6e 69 74 69 61 74 65 64 20 66 75 7a 7a 79 20 63 6f 6d 70 | r.where.you.initiated.fuzzy.comp |
| 1191c0 | 6c 65 74 69 6f 6e 20 28 61 6c 73 6f 20 63 61 6c 6c 65 64 20 74 68 65 0a 60 60 74 61 72 67 65 74 | letion.(also.called.the.``target |
| 1191e0 | 20 62 75 66 66 65 72 27 27 29 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 6e 61 76 69 67 61 74 65 20 | .buffer'').in.order.to.navigate. |
| 119200 | 74 68 72 6f 75 67 68 20 74 68 65 20 2a 46 75 7a 7a 79 0a 43 6f 6d 70 6c 65 74 69 6f 6e 73 2a 20 | through.the.*Fuzzy.Completions*. |
| 119220 | 62 75 66 66 65 72 20 77 69 74 68 6f 75 74 20 6c 65 61 76 69 6e 67 2e 0a 0a 57 69 74 68 20 66 6f | buffer.without.leaving...With.fo |
| 119240 | 63 75 73 20 69 6e 20 2a 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 73 2a 3a 0a 20 20 54 79 | cus.in.*Fuzzy.Completions*:...Ty |
| 119260 | 70 65 20 60 6e 27 20 61 6e 64 20 60 70 27 20 28 60 55 50 27 2c 20 60 44 4f 57 4e 27 29 20 74 6f | pe.`n'.and.`p'.(`UP',.`DOWN').to |
| 119280 | 20 6e 61 76 69 67 61 74 65 20 62 65 74 77 65 65 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 2e 0a 20 | .navigate.between.completions... |
| 1192a0 | 20 54 79 70 65 20 60 52 45 54 27 20 6f 72 20 60 54 41 42 27 20 74 6f 20 73 65 6c 65 63 74 20 74 | .Type.`RET'.or.`TAB'.to.select.t |
| 1192c0 | 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6e 65 61 72 20 70 6f 69 6e 74 2e 0a 20 20 54 79 70 65 | he.completion.near.point....Type |
| 1192e0 | 20 60 71 27 20 74 6f 20 61 62 6f 72 74 2e 0a 0a 57 69 74 68 20 66 6f 63 75 73 20 69 6e 20 74 68 | .`q'.to.abort...With.focus.in.th |
| 119300 | 65 20 74 61 72 67 65 74 20 62 75 66 66 65 72 3a 0a 20 20 54 79 70 65 20 60 55 50 27 20 61 6e 64 | e.target.buffer:...Type.`UP'.and |
| 119320 | 20 60 44 4f 57 4e 27 20 74 6f 20 6e 61 76 69 67 61 74 65 20 62 65 74 77 65 65 6e 20 63 6f 6d 70 | .`DOWN'.to.navigate.between.comp |
| 119340 | 6c 65 74 69 6f 6e 73 2e 0a 20 20 54 79 70 65 20 61 20 63 68 61 72 61 63 74 65 72 20 74 68 61 74 | letions....Type.a.character.that |
| 119360 | 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 73 74 69 74 75 74 65 20 61 20 73 79 6d 62 6f 6c 20 6e 61 | .does.not.constitute.a.symbol.na |
| 119380 | 6d 65 0a 20 20 74 6f 20 69 6e 73 65 72 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 68 6f 69 63 | me...to.insert.the.current.choic |
| 1193a0 | 65 20 61 6e 64 20 74 68 65 6e 20 74 68 61 74 20 63 68 61 72 61 63 74 65 72 20 28 60 28 27 2c 20 | e.and.then.that.character.(`(',. |
| 1193c0 | 60 29 27 2c 0a 20 20 60 53 50 41 43 45 27 2c 20 60 52 45 54 27 2e 29 20 55 73 65 20 60 54 41 42 | `)',...`SPACE',.`RET'.).Use.`TAB |
| 1193e0 | 27 20 74 6f 20 73 69 6d 70 6c 79 20 69 6e 73 65 72 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 | '.to.simply.insert.the.current.c |
| 119400 | 68 6f 69 63 65 2e 0a 20 20 55 73 65 20 43 2d 67 20 74 6f 20 61 62 6f 72 74 2e 0a 0a 41 6c 74 65 | hoice....Use.C-g.to.abort...Alte |
| 119420 | 72 6e 61 74 69 76 65 6c 79 2c 20 79 6f 75 20 63 61 6e 20 63 6c 69 63 6b 20 3c 6d 6f 75 73 65 2d | rnatively,.you.can.click.<mouse- |
| 119440 | 32 3e 20 6f 6e 20 61 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 74 6f 20 73 65 6c 65 63 74 20 69 74 2e | 2>.on.a.completion.to.select.it. |
| 119460 | 0a 0a 0a 43 6f 6d 70 6c 65 74 65 20 6c 69 73 74 69 6e 67 20 6f 66 20 6b 65 79 62 69 6e 64 69 6e | ...Complete.listing.of.keybindin |
| 119480 | 67 73 20 77 69 74 68 69 6e 20 74 68 65 20 74 61 72 67 65 74 20 62 75 66 66 65 72 3a 0a 0a 5c 5c | gs.within.the.target.buffer:..\\ |
| 1194a0 | 3c 73 6c 69 6d 65 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c | <slime-target-buffer-fuzzy-compl |
| 1194c0 | 65 74 69 6f 6e 73 2d 6d 61 70 3e 5c 0a 5c 5c 7b 73 6c 69 6d 65 2d 74 61 72 67 65 74 2d 62 75 66 | etions-map>\.\\{slime-target-buf |
| 1194e0 | 66 65 72 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 61 70 7d 0a 0a 43 6f 6d 70 | fer-fuzzy-completions-map}..Comp |
| 119500 | 6c 65 74 65 20 6c 69 73 74 69 6e 67 20 6f 66 20 6b 65 79 62 69 6e 64 69 6e 67 73 20 77 69 74 68 | lete.listing.of.keybindings.with |
| 119520 | 20 2a 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 73 2a 3a 0a 0a 5c 5c 3c 73 6c 69 6d 65 2d | .*Fuzzy.Completions*:..\\<slime- |
| 119540 | 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 61 70 3e 5c 0a 5c 5c 7b 73 6c 69 6d 65 | fuzzy-completions-map>\.\\{slime |
| 119560 | 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 61 70 7d 22 0a 20 20 28 75 73 65 2d | -fuzzy-completions-map}"...(use- |
| 119580 | 6c 6f 63 61 6c 2d 6d 61 70 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e | local-map.slime-fuzzy-completion |
| 1195a0 | 73 2d 6d 61 70 29 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 | s-map)...(set.(make-local-variab |
| 1195c0 | 6c 65 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 75 72 72 65 6e 74 2d 63 6f 6d 70 6c 65 74 69 | le.'slime-fuzzy-current-completi |
| 1195e0 | 6f 6e 2d 6f 76 65 72 6c 61 79 29 0a 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 | on-overlay)........(make-overlay |
| 119600 | 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 29 20 6e 69 6c 20 74 20 6e 69 6c 29 29 29 0a 0a 28 | .(point).(point).nil.t.nil)))..( |
| 119620 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 70 | defun.slime-fuzzy-completions.(p |
| 119640 | 72 65 66 69 78 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 29 | refix.&optional.default-package) |
| 119660 | 0a 20 20 22 47 65 74 20 74 68 65 20 6c 69 73 74 20 6f 66 20 73 6f 72 74 65 64 20 63 6f 6d 70 6c | ..."Get.the.list.of.sorted.compl |
| 119680 | 65 74 69 6f 6e 20 6f 62 6a 65 63 74 73 20 66 72 6f 6d 20 63 6f 6d 70 6c 65 74 69 6e 67 0a 60 70 | etion.objects.from.completing.`p |
| 1196a0 | 72 65 66 69 78 27 20 69 6e 20 60 70 61 63 6b 61 67 65 27 20 66 72 6f 6d 20 74 68 65 20 63 6f 6e | refix'.in.`package'.from.the.con |
| 1196c0 | 6e 65 63 74 65 64 20 4c 69 73 70 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 72 65 66 69 78 20 28 63 | nected.Lisp."...(let.((prefix.(c |
| 1196e0 | 6c 2d 65 74 79 70 65 63 61 73 65 20 70 72 65 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-etypecase.prefix.............. |
| 119700 | 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 70 72 65 66 69 78 | .....(symbol.(symbol-name.prefix |
| 119720 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 70 72 65 | ))...................(string.pre |
| 119740 | 66 69 78 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a | fix)))).....(slime-eval.`(swank: |
| 119760 | 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 2c 70 72 65 66 69 78 0a 20 20 20 20 20 20 | fuzzy-completions.,prefix....... |
| 119780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1197a0 | 20 20 20 20 2c 28 6f 72 20 64 65 66 61 75 6c 74 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 | ....,(or.default-package........ |
| 1197c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1197e0 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 | ........(slime-current-package)) |
| 119800 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 6d 69 74 20 2c 73 6c 69 6d 65 | ...................:limit.,slime |
| 119820 | 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6c 69 6d 69 74 0a 20 20 20 20 20 20 20 20 | -fuzzy-completion-limit......... |
| 119840 | 20 20 20 20 20 20 20 20 20 20 3a 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 0a 20 20 | ..........:time-limit-in-msec... |
| 119860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d | ................,slime-fuzzy-com |
| 119880 | 70 6c 65 74 69 6f 6e 2d 74 69 6d 65 2d 6c 69 6d 69 74 2d 69 6e 2d 6d 73 65 63 29 29 29 29 0a 0a | pletion-time-limit-in-msec)))).. |
| 1198a0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 65 64 20 28 70 72 65 | (defun.slime-fuzzy-selected.(pre |
| 1198c0 | 66 69 78 20 63 6f 6d 70 6c 65 74 69 6f 6e 29 0a 20 20 22 54 65 6c 6c 20 74 68 65 20 63 6f 6e 6e | fix.completion)..."Tell.the.conn |
| 1198e0 | 65 63 74 65 64 20 4c 69 73 70 20 74 68 61 74 20 74 68 65 20 75 73 65 72 20 73 65 6c 65 63 74 65 | ected.Lisp.that.the.user.selecte |
| 119900 | 64 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 60 63 6f 6d 70 6c 65 74 69 6f 6e 27 20 61 73 20 74 68 65 | d.completion.`completion'.as.the |
| 119920 | 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 6f 72 20 60 70 72 65 66 69 78 27 2e 22 0a 20 20 28 6c 65 | .completion.for.`prefix'."...(le |
| 119940 | 74 20 28 28 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 | t.((no-properties.(copy-sequence |
| 119960 | 20 70 72 65 66 69 78 29 29 29 0a 20 20 20 20 28 73 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 | .prefix))).....(set-text-propert |
| 119980 | 69 65 73 20 30 20 28 6c 65 6e 67 74 68 20 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 29 20 6e 69 6c | ies.0.(length.no-properties).nil |
| 1199a0 | 20 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 | .no-properties).....(slime-eval. |
| 1199c0 | 60 28 73 77 61 6e 6b 3a 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 6c 65 63 74 65 | `(swank:fuzzy-completion-selecte |
| 1199e0 | 64 20 2c 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.,no-properties................ |
| 119a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 119a20 | 20 20 20 27 2c 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | ...',completion))))..(defun.slim |
| 119a40 | 65 2d 66 75 7a 7a 79 2d 69 6e 64 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 | e-fuzzy-indent-and-complete-symb |
| 119a60 | 6f 6c 20 28 29 0a 20 20 22 49 6e 64 65 6e 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 | ol.()..."Indent.the.current.line |
| 119a80 | 20 61 6e 64 20 70 65 72 66 6f 72 6d 20 66 75 7a 7a 79 20 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 | .and.perform.fuzzy.symbol.comple |
| 119aa0 | 74 69 6f 6e 2e 20 20 46 69 72 73 74 0a 69 6e 64 65 6e 74 20 74 68 65 20 6c 69 6e 65 2e 20 49 66 | tion...First.indent.the.line..If |
| 119ac0 | 20 69 6e 64 65 6e 74 69 6e 67 20 64 6f 65 73 6e 27 74 20 6d 6f 76 65 20 70 6f 69 6e 74 2c 20 63 | .indenting.doesn't.move.point,.c |
| 119ae0 | 6f 6d 70 6c 65 74 65 20 74 68 65 0a 73 79 6d 62 6f 6c 2e 20 49 66 20 74 68 65 72 65 27 73 20 6e | omplete.the.symbol..If.there's.n |
| 119b00 | 6f 20 73 79 6d 62 6f 6c 20 61 74 20 74 68 65 20 70 6f 69 6e 74 2c 20 73 68 6f 77 20 74 68 65 20 | o.symbol.at.the.point,.show.the. |
| 119b20 | 61 72 67 6c 69 73 74 20 66 6f 72 20 74 68 65 0a 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 20 65 6e | arglist.for.the.most.recently.en |
| 119b40 | 63 6c 6f 73 65 64 20 6d 61 63 72 6f 20 6f 72 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 69 6e | closed.macro.or.function."...(in |
| 119b60 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 70 6f 69 6e 74 29 29 | teractive)...(let.((pos.(point)) |
| 119b80 | 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 | ).....(unless.(get-text-property |
| 119ba0 | 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 27 73 6c 69 6d | .(line-beginning-position).'slim |
| 119bc0 | 65 2d 72 65 70 6c 2d 70 72 6f 6d 70 74 29 0a 20 20 20 20 20 20 28 6c 69 73 70 2d 69 6e 64 65 6e | e-repl-prompt).......(lisp-inden |
| 119be0 | 74 2d 6c 69 6e 65 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 3d 20 70 6f 73 20 28 70 6f 69 6e 74 | t-line)).....(when.(=.pos.(point |
| 119c00 | 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 | )).......(cond.((save-excursion. |
| 119c20 | 28 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5b 5e 28 29 20 5c 6e 5c 74 5c 72 | (re-search-backward."[^().\n\t\r |
| 119c40 | 5d 2b 5c 5c 3d 22 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | ]+\\=".nil.t))..............(sli |
| 119c60 | 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 | me-fuzzy-complete-symbol))...... |
| 119c80 | 20 20 20 20 20 20 20 28 28 6d 65 6d 71 20 28 63 68 61 72 2d 62 65 66 6f 72 65 29 20 27 28 3f 5c | .......((memq.(char-before).'(?\ |
| 119ca0 | 74 20 3f 5c 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 63 68 6f | t.?\.))..............(slime-echo |
| 119cc0 | 2d 61 72 67 6c 69 73 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a | -arglist))))))..(defun.slime-fuz |
| 119ce0 | 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 20 28 29 0a 20 20 22 46 75 7a 7a 69 6c 79 | zy-complete-symbol.()..."Fuzzily |
| 119d00 | 20 63 6f 6d 70 6c 65 74 65 73 20 74 68 65 20 61 62 62 72 65 76 69 61 74 69 6f 6e 20 61 74 20 70 | .completes.the.abbreviation.at.p |
| 119d20 | 6f 69 6e 74 20 69 6e 74 6f 20 61 20 73 79 6d 62 6f 6c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | oint.into.a.symbol."...(interact |
| 119d40 | 69 76 65 29 0a 20 20 28 69 66 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 72 65 2d 73 | ive)...(if.(save-excursion.(re-s |
| 119d60 | 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5c 22 5b 5e 20 5c 74 5c 6e 5d 2b 5c 5c 3d 22 20 | earch-backward."\"[^.\t\n]+\\=". |
| 119d80 | 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 3b 3b 20 64 6f 6e 27 74 20 61 64 64 20 73 70 61 63 65 | nil.t)).......;;.don't.add.space |
| 119da0 | 20 61 66 74 65 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 | .after.completion.......(let.((c |
| 119dc0 | 6f 6d 69 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 64 64 73 75 66 66 69 78 20 27 28 22 2f 22 | omint-completion-addsuffix.'("/" |
| 119de0 | 20 2e 20 22 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 73 6c 69 6d 65 2d 77 68 65 6e 2d | ...""))).........(if.slime-when- |
| 119e00 | 63 6f 6d 70 6c 65 74 65 2d 66 69 6c 65 6e 61 6d 65 2d 65 78 70 61 6e 64 0a 20 20 20 20 20 20 20 | complete-filename-expand........ |
| 119e20 | 20 20 20 20 20 28 63 6f 6d 69 6e 74 2d 72 65 70 6c 61 63 65 2d 62 79 2d 65 78 70 61 6e 64 65 64 | .....(comint-replace-by-expanded |
| 119e40 | 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 49 58 4d 45 3a | -filename).............;;.FIXME: |
| 119e60 | 20 75 73 65 20 60 63 6f 6d 69 6e 74 2d 66 69 6c 65 6e 61 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e | .use.`comint-filename-completion |
| 119e80 | 27 20 77 68 65 6e 20 64 72 6f 70 70 69 6e 67 20 65 6d 61 63 73 32 33 0a 20 20 20 20 20 20 20 20 | '.when.dropping.emacs23......... |
| 119ea0 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 69 66 20 28 3e 3d 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 | ....(funcall.(if.(>=.emacs-major |
| 119ec0 | 2d 76 65 72 73 69 6f 6e 20 32 34 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -version.24).................... |
| 119ee0 | 20 20 20 20 20 20 27 63 6f 6d 69 6e 74 2d 66 69 6c 65 6e 61 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f | ......'comint-filename-completio |
| 119f00 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 6f 6d 69 | n..........................'comi |
| 119f20 | 6e 74 2d 64 79 6e 61 6d 69 63 2d 63 6f 6d 70 6c 65 74 65 2d 61 73 2d 66 69 6c 65 6e 61 6d 65 29 | nt-dynamic-complete-as-filename) |
| 119f40 | 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 65 6e 64 20 28 6d 6f 76 65 2d 6d 61 72 6b | ))).......(let*.((end.(move-mark |
| 119f60 | 65 72 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 20 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 65 | er.(make-marker).(slime-symbol-e |
| 119f80 | 6e 64 2d 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 20 28 6d 6f 76 | nd-pos)))..............(beg.(mov |
| 119fa0 | 65 2d 6d 61 72 6b 65 72 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 20 28 73 6c 69 6d 65 2d 73 79 | e-marker.(make-marker).(slime-sy |
| 119fc0 | 6d 62 6f 6c 2d 73 74 61 72 74 2d 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | mbol-start-pos)))..............( |
| 119fe0 | 70 72 65 66 69 78 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 | prefix.(buffer-substring-no-prop |
| 11a000 | 65 72 74 69 65 73 20 62 65 67 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 64 65 | erties.beg.end))).........(cl-de |
| 11a020 | 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 | structuring-bind.(completion-set |
| 11a040 | 20 69 6e 74 65 72 72 75 70 74 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .interrupted-p)................. |
| 11a060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 | ...............(slime-fuzzy-comp |
| 11a080 | 6c 65 74 69 6f 6e 73 20 70 72 65 66 69 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | letions.prefix)................. |
| 11a0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 63 6f 6d 70 6c 65 74 | ...............(if.(null.complet |
| 11a0c0 | 69 6f 6e 2d 73 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion-set)........................ |
| 11a0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 73 6c 69 6d 65 2d 6d 69 6e 69 62 75 | ............(progn.(slime-minibu |
| 11a100 | 66 66 65 72 2d 72 65 73 70 65 63 74 69 6e 67 2d 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 | ffer-respecting-message......... |
| 11a120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11a140 | 20 20 20 22 43 61 6e 27 74 20 66 69 6e 64 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 6f 72 20 5c 22 | ..."Can't.find.completion.for.\" |
| 11a160 | 25 73 5c 22 22 20 70 72 65 66 69 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | %s\"".prefix)................... |
| 11a180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 6e 67 29 0a 20 | ........................(ding).. |
| 11a1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11a1c0 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 64 6f 6e 65 29 29 0a 20 20 20 | .........(slime-fuzzy-done)).... |
| 11a1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11a200 | 28 67 6f 74 6f 2d 63 68 61 72 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (goto-char.end)................. |
| 11a220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 6c 69 6d 65 | ...................(cond.((slime |
| 11a240 | 2d 6c 65 6e 67 74 68 3d 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 31 29 0a 20 20 20 20 20 | -length=.completion-set.1)...... |
| 11a260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11a280 | 20 20 20 20 20 3b 3b 20 69 6e 73 65 72 74 20 63 6f 6d 70 6c 65 74 65 64 20 73 74 72 69 6e 67 0a | .....;;.insert.completed.string. |
| 11a2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11a2c0 | 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 61 6e 64 2d 69 6e 68 65 72 69 74 20 28 63 | ..........(insert-and-inherit.(c |
| 11a2e0 | 61 61 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | aar.completion-set))............ |
| 11a300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 11a320 | 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 | delete-region.beg.end).......... |
| 11a340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11a360 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 2b 20 62 65 67 20 28 6c 65 6e 67 74 68 20 28 63 61 61 72 | .(goto-char.(+.beg.(length.(caar |
| 11a380 | 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .completion-set))))............. |
| 11a3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ..............................(s |
| 11a3c0 | 6c 69 6d 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 72 65 73 70 65 63 74 69 6e 67 2d 6d 65 73 73 61 | lime-minibuffer-respecting-messa |
| 11a3e0 | 67 65 20 22 53 6f 6c 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 | ge."Sole.completion")........... |
| 11a400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11a420 | 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 64 6f 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (slime-fuzzy-done))............. |
| 11a440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | .............................;;. |
| 11a460 | 49 6e 63 6f 6d 70 6c 65 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | Incomplete...................... |
| 11a480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 | ....................(t.......... |
| 11a4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11a4c0 | 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 68 6f 69 63 65 73 2d 62 75 66 66 65 72 20 63 6f 6d | .(slime-fuzzy-choices-buffer.com |
| 11a4e0 | 70 6c 65 74 69 6f 6e 2d 73 65 74 20 69 6e 74 65 72 72 75 70 74 65 64 2d 70 0a 20 20 20 20 20 20 | pletion-set.interrupted-p....... |
| 11a500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11a520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11a540 | 62 65 67 20 65 6e 64 29 29 29 29 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 | beg.end))))))))...(defun.slime-g |
| 11a560 | 65 74 2d 66 75 7a 7a 79 2d 62 75 66 66 65 72 20 28 29 0a 20 20 28 67 65 74 2d 62 75 66 66 65 72 | et-fuzzy-buffer.()...(get-buffer |
| 11a580 | 2d 63 72 65 61 74 65 20 22 2a 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 73 2a 22 29 29 0a | -create."*Fuzzy.Completions*")). |
| 11a5a0 | 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 65 78 70 6c 61 6e 61 74 69 6f 6e | .(defvar.slime-fuzzy-explanation |
| 11a5c0 | 0a 20 20 22 46 6f 72 20 68 65 6c 70 20 6f 6e 20 68 6f 77 20 74 68 65 20 75 73 65 20 74 68 69 73 | ..."For.help.on.how.the.use.this |
| 11a5e0 | 20 62 75 66 66 65 72 2c 20 73 65 65 20 60 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 | .buffer,.see.`slime-fuzzy-comple |
| 11a600 | 74 69 6f 6e 73 2d 6d 6f 64 65 27 2e 0a 0a 46 6c 61 67 73 3a 20 62 6f 75 6e 64 70 20 66 62 6f 75 | tions-mode'...Flags:.boundp.fbou |
| 11a620 | 6e 64 70 20 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 63 6c 61 73 73 20 6d 61 63 72 6f | ndp.generic-function.class.macro |
| 11a640 | 20 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 20 70 61 63 6b 61 67 65 0a 5c 6e 22 0a 20 20 | .special-operator.package.\n"... |
| 11a660 | 22 54 68 65 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 74 68 61 74 20 67 65 74 73 20 69 6e 73 65 72 | "The.explanation.that.gets.inser |
| 11a680 | 74 65 64 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 0a 2a 46 75 7a | ted.at.the.beginning.of.the.*Fuz |
| 11a6a0 | 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 73 2a 20 62 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 75 | zy.Completions*.buffer.")..(defu |
| 11a6c0 | 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 69 6e 73 65 72 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d | n.slime-fuzzy-insert-completion- |
| 11a6e0 | 63 68 6f 69 63 65 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 20 6d 61 78 2d 6c 65 6e 67 74 68 29 0a 20 | choice.(completion.max-length).. |
| 11a700 | 20 22 49 6e 73 65 72 74 73 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f 62 6a 65 63 74 20 | ."Inserts.the.completion.object. |
| 11a720 | 60 63 6f 6d 70 6c 65 74 69 6f 6e 27 20 61 73 20 61 20 66 6f 72 6d 61 74 74 65 64 0a 63 6f 6d 70 | `completion'.as.a.formatted.comp |
| 11a740 | 6c 65 74 69 6f 6e 20 63 68 6f 69 63 65 20 69 6e 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 | letion.choice.into.the.current.b |
| 11a760 | 75 66 66 65 72 2c 20 61 6e 64 20 6d 61 72 6b 20 69 74 20 77 69 74 68 20 74 68 65 0a 70 72 6f 70 | uffer,.and.mark.it.with.the.prop |
| 11a780 | 65 72 20 74 65 78 74 20 70 72 6f 70 65 72 74 69 65 73 2e 22 0a 20 20 28 63 6c 2d 64 65 73 74 72 | er.text.properties."...(cl-destr |
| 11a7a0 | 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 63 6f 72 65 | ucturing-bind.(symbol-name.score |
| 11a7c0 | 20 63 68 75 6e 6b 73 20 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 0a 20 | .chunks.classification-string).. |
| 11a7e0 | 20 20 20 20 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 | .....completion.....(let.((start |
| 11a800 | 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 29 29 0a 20 20 20 20 20 | .(point))...........(end))...... |
| 11a820 | 20 28 69 6e 73 65 72 74 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 73 65 74 | .(insert.symbol-name).......(set |
| 11a840 | 71 20 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 63 68 | q.end.(point)).......(dolist.(ch |
| 11a860 | 75 6e 6b 20 63 68 75 6e 6b 73 29 0a 20 20 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 | unk.chunks).........(put-text-pr |
| 11a880 | 6f 70 65 72 74 79 20 28 2b 20 73 74 61 72 74 20 28 63 6c 2d 66 69 72 73 74 20 63 68 75 6e 6b 29 | operty.(+.start.(cl-first.chunk) |
| 11a8a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 | )............................(+. |
| 11a8c0 | 73 74 61 72 74 20 28 63 6c 2d 66 69 72 73 74 20 63 68 75 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 | start.(cl-first.chunk).......... |
| 11a8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 28 63 6c | .....................(length.(cl |
| 11a900 | 2d 73 65 63 6f 6e 64 20 63 68 75 6e 6b 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -second.chunk)))................ |
| 11a920 | 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 62 6f 6c 64 29 29 0a 20 20 20 20 20 20 | ............'face.'bold))....... |
| 11a940 | 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 73 74 61 72 74 20 28 70 6f 69 6e 74 29 | (put-text-property.start.(point) |
| 11a960 | 20 27 6d 6f 75 73 65 2d 66 61 63 65 20 27 68 69 67 68 6c 69 67 68 74 29 0a 20 20 20 20 20 20 28 | .'mouse-face.'highlight).......( |
| 11a980 | 64 6f 74 69 6d 65 73 20 28 69 20 28 2d 20 6d 61 78 2d 6c 65 6e 67 74 68 20 28 2d 20 65 6e 64 20 | dotimes.(i.(-.max-length.(-.end. |
| 11a9a0 | 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 22 29 29 0a 20 | start))).........(insert.".")).. |
| 11a9c0 | 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 20 25 73 20 25 73 5c 6e 22 0a | .....(insert.(format.".%s.%s\n". |
| 11a9e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 61 73 73 69 66 69 63 61 | ......................classifica |
| 11aa00 | 74 69 6f 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion-string..................... |
| 11aa20 | 20 20 73 63 6f 72 65 29 29 0a 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 | ..score)).......(put-text-proper |
| 11aa40 | 74 79 20 73 74 61 72 74 20 28 70 6f 69 6e 74 29 20 27 63 6f 6d 70 6c 65 74 69 6f 6e 20 63 6f 6d | ty.start.(point).'completion.com |
| 11aa60 | 70 6c 65 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d | pletion))))..(defun.slime-fuzzy- |
| 11aa80 | 69 6e 73 65 72 74 20 28 74 65 78 74 29 0a 20 20 22 49 6e 73 65 72 74 73 20 60 74 65 78 74 27 20 | insert.(text)..."Inserts.`text'. |
| 11aaa0 | 69 6e 74 6f 20 74 68 65 20 74 61 72 67 65 74 20 62 75 66 66 65 72 20 69 6e 20 74 68 65 20 63 6f | into.the.target.buffer.in.the.co |
| 11aac0 | 6d 70 6c 65 74 69 6f 6e 20 73 6c 6f 74 2e 0a 49 66 20 74 68 65 20 62 75 66 66 65 72 20 68 61 73 | mpletion.slot..If.the.buffer.has |
| 11aae0 | 20 62 65 65 6e 20 6d 6f 64 69 66 69 65 64 20 69 6e 20 74 68 65 20 6d 65 61 6e 74 69 6d 65 2c 20 | .been.modified.in.the.meantime,. |
| 11ab00 | 61 62 6f 72 74 20 74 68 65 0a 63 6f 6d 70 6c 65 74 69 6f 6e 20 70 72 6f 63 65 73 73 2e 20 20 4f | abort.the.completion.process...O |
| 11ab20 | 74 68 65 72 77 69 73 65 2c 20 75 70 64 61 74 65 20 61 6c 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 | therwise,.update.all.completion. |
| 11ab40 | 76 61 72 69 61 62 6c 65 73 0a 73 6f 20 74 68 61 74 20 74 68 65 20 6e 65 77 20 74 65 78 74 20 69 | variables.so.that.the.new.text.i |
| 11ab60 | 73 20 70 72 65 73 65 6e 74 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 | s.present."...(with-current-buff |
| 11ab80 | 65 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 0a 20 20 20 | er.slime-fuzzy-target-buffer.... |
| 11aba0 | 20 28 63 6f 6e 64 0a 20 20 20 20 20 28 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 | .(cond......((not.(string-equal. |
| 11abc0 | 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | slime-fuzzy-text................ |
| 11abe0 | 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 73 6c 69 6d | ..........(buffer-substring.slim |
| 11ac00 | 65 2d 66 75 7a 7a 79 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-fuzzy-start................... |
| 11ac20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 66 | .........................slime-f |
| 11ac40 | 75 7a 7a 79 2d 65 6e 64 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 64 | uzzy-end))).......(slime-fuzzy-d |
| 11ac60 | 6f 6e 65 29 0a 20 20 20 20 20 20 28 62 65 65 70 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 | one).......(beep).......(message |
| 11ac80 | 20 22 54 61 72 67 65 74 20 62 75 66 66 65 72 20 68 61 73 20 62 65 65 6e 20 6d 6f 64 69 66 69 65 | ."Target.buffer.has.been.modifie |
| 11aca0 | 64 21 22 29 29 0a 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 | d!"))......(t.......(goto-char.s |
| 11acc0 | 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 74 61 72 74 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d | lime-fuzzy-start).......(delete- |
| 11ace0 | 72 65 67 69 6f 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 74 61 72 74 20 73 6c 69 6d 65 2d 66 | region.slime-fuzzy-start.slime-f |
| 11ad00 | 75 7a 7a 79 2d 65 6e 64 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 61 6e 64 2d 69 6e 68 65 | uzzy-end).......(insert-and-inhe |
| 11ad20 | 72 69 74 20 74 65 78 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 66 75 7a 7a | rit.text).......(setq.slime-fuzz |
| 11ad40 | 79 2d 74 65 78 74 20 74 65 78 74 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c | y-text.text).......(goto-char.sl |
| 11ad60 | 69 6d 65 2d 66 75 7a 7a 79 2d 65 6e 64 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | ime-fuzzy-end)))))..(defun.slime |
| 11ad80 | 2d 6d 69 6e 69 62 75 66 66 65 72 2d 70 20 28 62 75 66 66 65 72 29 0a 20 20 28 69 66 20 28 66 65 | -minibuffer-p.(buffer)...(if.(fe |
| 11ada0 | 61 74 75 72 65 70 20 27 78 65 6d 61 63 73 29 0a 20 20 20 20 20 20 28 65 71 20 62 75 66 66 65 72 | aturep.'xemacs).......(eq.buffer |
| 11adc0 | 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 | .(window-buffer.(minibuffer-wind |
| 11ade0 | 6f 77 29 29 29 0a 20 20 20 20 20 20 28 6d 69 6e 69 62 75 66 66 65 72 70 20 62 75 66 66 65 72 29 | ow))).......(minibufferp.buffer) |
| 11ae00 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 68 6f 69 63 65 73 2d 62 | ))..(defun.slime-fuzzy-choices-b |
| 11ae20 | 75 66 66 65 72 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 69 6e 74 65 72 72 75 70 74 65 64 2d 70 | uffer.(completions.interrupted-p |
| 11ae40 | 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 43 72 65 61 74 65 73 20 28 69 66 20 6e 65 63 63 65 | .start.end)..."Creates.(if.necce |
| 11ae60 | 73 73 61 72 79 29 2c 20 70 6f 70 75 6c 61 74 65 73 2c 20 61 6e 64 20 70 6f 70 73 20 75 70 20 74 | ssary),.populates,.and.pops.up.t |
| 11ae80 | 68 65 20 2a 46 75 7a 7a 79 0a 43 6f 6d 70 6c 65 74 69 6f 6e 73 2a 20 62 75 66 66 65 72 20 77 69 | he.*Fuzzy.Completions*.buffer.wi |
| 11aea0 | 74 68 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 66 72 6f 6d 20 60 63 6f 6d 70 6c 65 74 | th.the.completions.from.`complet |
| 11aec0 | 69 6f 6e 73 27 20 61 6e 64 0a 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 6c 6f 74 20 69 6e | ions'.and.the.completion.slot.in |
| 11aee0 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 62 6f 75 6e 64 65 64 20 62 79 20 60 | .the.current.buffer.bounded.by.` |
| 11af00 | 73 74 61 72 74 27 20 61 6e 64 0a 60 65 6e 64 27 2e 20 20 54 68 69 73 20 73 61 76 65 73 20 74 68 | start'.and.`end'...This.saves.th |
| 11af20 | 65 20 77 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 62 65 66 6f 72 65 20 70 6f | e.window.configuration.before.po |
| 11af40 | 70 70 69 6e 67 20 74 68 65 0a 62 75 66 66 65 72 20 73 6f 20 74 68 61 74 20 69 74 20 63 61 6e 20 | pping.the.buffer.so.that.it.can. |
| 11af60 | 70 6f 73 73 69 62 6c 79 20 62 65 20 72 65 73 74 6f 72 65 64 20 77 68 65 6e 20 74 68 65 20 75 73 | possibly.be.restored.when.the.us |
| 11af80 | 65 72 20 69 73 0a 64 6f 6e 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 6e 65 77 2d 63 6f 6d 70 6c 65 | er.is.done."...(let.((new-comple |
| 11afa0 | 74 69 6f 6e 2d 62 75 66 66 65 72 20 28 6e 6f 74 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 | tion-buffer.(not.slime-fuzzy-tar |
| 11afc0 | 67 65 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 6e 65 63 74 69 6f 6e | get-buffer)).........(connection |
| 11afe0 | 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 | .(slime-connection))).....(slime |
| 11b000 | 2d 66 75 7a 7a 79 2d 65 6e 61 62 6c 65 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 2d 63 6f 6d 70 | -fuzzy-enable-target-buffer-comp |
| 11b020 | 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 66 75 | letions-mode).....(setq.slime-fu |
| 11b040 | 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | zzy-target-buffer.(current-buffe |
| 11b060 | 72 29 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 74 61 72 74 20 | r)).....(setq.slime-fuzzy-start. |
| 11b080 | 28 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 20 73 74 61 72 74 | (move-marker.(make-marker).start |
| 11b0a0 | 29 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 65 6e 64 20 28 6d 6f | )).....(setq.slime-fuzzy-end.(mo |
| 11b0c0 | 76 65 2d 6d 61 72 6b 65 72 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 20 65 6e 64 29 29 0a 20 20 | ve-marker.(make-marker).end))... |
| 11b0e0 | 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 2d 69 6e 73 65 72 74 69 6f 6e 2d 74 79 70 65 20 73 6c 69 | ..(set-marker-insertion-type.sli |
| 11b100 | 6d 65 2d 66 75 7a 7a 79 2d 65 6e 64 20 74 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d | me-fuzzy-end.t).....(setq.slime- |
| 11b120 | 66 75 7a 7a 79 2d 6f 72 69 67 69 6e 61 6c 2d 74 65 78 74 20 28 62 75 66 66 65 72 2d 73 75 62 73 | fuzzy-original-text.(buffer-subs |
| 11b140 | 74 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 29 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d | tring.start.end)).....(setq.slim |
| 11b160 | 65 2d 66 75 7a 7a 79 2d 74 65 78 74 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 6f 72 69 67 69 6e 61 | e-fuzzy-text.slime-fuzzy-origina |
| 11b180 | 6c 2d 74 65 78 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 66 69 6c 6c 2d 63 6f | l-text).....(slime-fuzzy-fill-co |
| 11b1a0 | 6d 70 6c 65 74 69 6f 6e 73 2d 62 75 66 66 65 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 69 6e 74 | mpletions-buffer.completions.int |
| 11b1c0 | 65 72 72 75 70 74 65 64 2d 70 29 0a 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 | errupted-p).....(pop-to-buffer.( |
| 11b1e0 | 73 6c 69 6d 65 2d 67 65 74 2d 66 75 7a 7a 79 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 73 6c | slime-get-fuzzy-buffer)).....(sl |
| 11b200 | 69 6d 65 2d 66 75 7a 7a 79 2d 6e 65 78 74 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d | ime-fuzzy-next).....(setq.slime- |
| 11b220 | 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 | buffer-connection.connection)... |
| 11b240 | 20 20 28 77 68 65 6e 20 6e 65 77 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 62 75 66 66 65 72 0a 20 20 | ..(when.new-completion-buffer... |
| 11b260 | 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 | ....(add-hook.'kill-buffer-hook. |
| 11b280 | 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 61 62 6f 72 74 20 27 61 70 70 65 6e 64 20 74 29 0a 20 20 | 'slime-fuzzy-abort.'append.t)... |
| 11b2a0 | 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 63 | ....(set.(make-local-variable.'c |
| 11b2c0 | 75 72 73 6f 72 2d 74 79 70 65 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 62 75 66 | ursor-type).nil).......(setq.buf |
| 11b2e0 | 66 65 72 2d 71 75 69 74 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 61 | fer-quit-function.'slime-fuzzy-a |
| 11b300 | 62 6f 72 74 29 29 20 3b 20 4d 2d 45 73 63 20 45 73 63 0a 20 20 20 20 28 77 68 65 6e 20 73 6c 69 | bort)).;.M-Esc.Esc.....(when.sli |
| 11b320 | 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 69 6e 2d 70 6c 61 63 65 0a 20 20 20 | me-fuzzy-completion-in-place.... |
| 11b340 | 20 20 20 3b 3b 20 73 77 69 74 63 68 20 62 61 63 6b 20 74 6f 20 74 68 65 20 6f 72 69 67 69 6e 61 | ...;;.switch.back.to.the.origina |
| 11b360 | 6c 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 69 66 20 28 73 6c 69 6d 65 2d 6d 69 6e 69 62 75 | l.buffer.......(if.(slime-minibu |
| 11b380 | 66 66 65 72 2d 70 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 | ffer-p.slime-fuzzy-target-buffer |
| 11b3a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 6d 69 6e 69 | )...........(select-window.(mini |
| 11b3c0 | 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 77 69 74 63 | buffer-window))...........(switc |
| 11b3e0 | 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 73 6c 69 6d 65 2d 66 | h-to-buffer-other-window.slime-f |
| 11b400 | 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | uzzy-target-buffer)))))..(defun. |
| 11b420 | 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 66 69 6c 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 62 75 66 | slime-fuzzy-fill-completions-buf |
| 11b440 | 66 65 72 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 69 6e 74 65 72 72 75 70 74 65 64 2d 70 29 0a | fer.(completions.interrupted-p). |
| 11b460 | 20 20 22 45 72 61 73 65 73 20 61 6e 64 20 66 69 6c 6c 73 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 | .."Erases.and.fills.the.completi |
| 11b480 | 6f 6e 20 62 75 66 66 65 72 20 77 69 74 68 20 74 68 65 20 67 69 76 65 6e 20 63 6f 6d 70 6c 65 74 | on.buffer.with.the.given.complet |
| 11b4a0 | 69 6f 6e 73 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 | ions."...(with-current-buffer.(s |
| 11b4c0 | 6c 69 6d 65 2d 67 65 74 2d 66 75 7a 7a 79 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 73 65 74 71 | lime-get-fuzzy-buffer).....(setq |
| 11b4e0 | 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 29 0a 20 20 20 20 28 65 72 61 73 | .buffer-read-only.nil).....(eras |
| 11b500 | 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c | e-buffer).....(slime-fuzzy-compl |
| 11b520 | 65 74 69 6f 6e 73 2d 6d 6f 64 65 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 73 6c 69 6d 65 2d 66 | etions-mode).....(insert.slime-f |
| 11b540 | 75 7a 7a 79 2d 65 78 70 6c 61 6e 61 74 69 6f 6e 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6d 61 78 | uzzy-explanation).....(let.((max |
| 11b560 | 2d 6c 65 6e 67 74 68 20 31 32 29 29 0a 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 63 6f 6d 70 | -length.12)).......(dolist.(comp |
| 11b580 | 6c 65 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 | letion.completions).........(set |
| 11b5a0 | 66 20 6d 61 78 2d 6c 65 6e 67 74 68 20 28 6d 61 78 20 6d 61 78 2d 6c 65 6e 67 74 68 20 28 6c 65 | f.max-length.(max.max-length.(le |
| 11b5c0 | 6e 67 74 68 20 28 63 6c 2d 66 69 72 73 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 29 29 0a 0a | ngth.(cl-first.completion))))).. |
| 11b5e0 | 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 43 6f 6d 70 6c 65 74 69 6f 6e 3a 22 29 0a 20 20 20 | ......(insert."Completion:").... |
| 11b600 | 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 28 2d 20 6d 61 78 2d 6c 65 6e 67 74 68 20 31 30 29 | ...(dotimes.(i.(-.max-length.10) |
| 11b620 | 29 20 28 69 6e 73 65 72 74 20 22 20 22 29 29 0a 20 20 20 20 20 20 3b 3b 20 20 20 20 20 46 6c 61 | ).(insert.".")).......;;.....Fla |
| 11b640 | 67 73 3a 20 20 20 53 63 6f 72 65 3a 0a 20 20 20 20 20 20 3b 3b 20 2e 2e 2e 20 2d 2d 2d 2d 2d 2d | gs:...Score:.......;;.....------ |
| 11b660 | 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 20 20 20 3b 3b 20 20 20 20 20 62 66 67 63 74 6d 73 | -..--------.......;;.....bfgctms |
| 11b680 | 70 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 65 78 61 6d 70 6c 65 2d 63 6c 61 73 73 69 66 69 | p.......(let*.((example-classifi |
| 11b6a0 | 63 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 28 63 6c 2d 66 6f 75 72 74 68 20 28 63 6c 2d 66 69 72 | cation-string.(cl-fourth.(cl-fir |
| 11b6c0 | 73 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | st.completions)))..............( |
| 11b6e0 | 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 2d 6c 65 6e 67 74 68 20 28 6c 65 6e 67 74 68 20 65 78 | classification-length.(length.ex |
| 11b700 | 61 6d 70 6c 65 2d 63 6c 61 73 73 69 66 69 63 61 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 0a 20 20 | ample-classification-string))... |
| 11b720 | 20 20 20 20 20 20 20 20 20 20 20 28 73 70 61 63 65 73 20 28 2d 20 63 6c 61 73 73 69 66 69 63 61 | ...........(spaces.(-.classifica |
| 11b740 | 74 69 6f 6e 2d 6c 65 6e 67 74 68 20 28 6c 65 6e 67 74 68 20 22 46 6c 61 67 73 3a 22 29 29 29 29 | tion-length.(length."Flags:")))) |
| 11b760 | 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 46 6c 61 67 73 3a 22 29 0a 20 20 20 20 20 | .........(insert."Flags:")...... |
| 11b780 | 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 73 70 61 63 65 73 29 20 28 69 6e 73 65 72 74 20 22 | ...(dotimes.(i.spaces).(insert." |
| 11b7a0 | 20 22 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 53 63 6f 72 65 3a 5c 6e 22 | .")).........(insert.".Score:\n" |
| 11b7c0 | 29 0a 20 20 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 6d 61 78 2d 6c 65 6e 67 74 68 | ).........(dotimes.(i.max-length |
| 11b7e0 | 29 20 28 69 6e 73 65 72 74 20 22 2d 22 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 | ).(insert."-")).........(insert. |
| 11b800 | 22 20 22 29 0a 20 20 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 63 6c 61 73 73 69 66 | ".").........(dotimes.(i.classif |
| 11b820 | 69 63 61 74 69 6f 6e 2d 6c 65 6e 67 74 68 29 20 28 69 6e 73 65 72 74 20 22 2d 22 29 29 0a 20 20 | ication-length).(insert."-"))... |
| 11b840 | 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 2d 2d 2d 2d 2d 2d 2d 2d 5c 6e 22 29 0a 20 20 20 | ......(insert.".--------\n").... |
| 11b860 | 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 66 69 72 73 74 20 28 70 6f | .....(setq.slime-fuzzy-first.(po |
| 11b880 | 69 6e 74 29 29 29 0a 0a 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 63 6f 6d 70 6c 65 74 69 6f | int)))........(dolist.(completio |
| 11b8a0 | 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 | n.completions).........(setq.sli |
| 11b8c0 | 6d 65 2d 66 75 7a 7a 79 2d 6c 61 73 74 20 28 70 6f 69 6e 74 29 29 20 3b 20 77 69 6c 6c 20 65 76 | me-fuzzy-last.(point)).;.will.ev |
| 11b8e0 | 65 6e 74 75 61 6c 6c 79 20 62 65 63 6f 6d 65 20 74 68 65 20 6c 61 73 74 20 65 6e 74 72 79 0a 20 | entually.become.the.last.entry.. |
| 11b900 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 69 6e 73 65 72 74 2d 63 6f 6d 70 6c | .......(slime-fuzzy-insert-compl |
| 11b920 | 65 74 69 6f 6e 2d 63 68 6f 69 63 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6d 61 78 2d 6c 65 6e 67 | etion-choice.completion.max-leng |
| 11b940 | 74 68 29 29 0a 0a 20 20 20 20 20 20 28 77 68 65 6e 20 69 6e 74 65 72 72 75 70 74 65 64 2d 70 0a | th))........(when.interrupted-p. |
| 11b960 | 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 2e 2e 2e 5c 6e 22 29 0a 20 20 20 20 20 20 20 | ........(insert."...\n")........ |
| 11b980 | 20 28 69 6e 73 65 72 74 20 22 5b 49 6e 74 65 72 72 75 70 74 65 64 3a 20 74 69 6d 65 20 6c 69 6d | .(insert."[Interrupted:.time.lim |
| 11b9a0 | 69 74 20 65 78 68 61 75 73 74 65 64 5d 22 29 29 0a 0a 20 20 20 20 20 20 28 73 65 74 71 20 62 75 | it.exhausted]"))........(setq.bu |
| 11b9c0 | 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 | ffer-read-only.t)).....(setq.sli |
| 11b9e0 | 6d 65 2d 66 75 7a 7a 79 2d 63 75 72 72 65 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 | me-fuzzy-current-completion..... |
| 11ba00 | 20 20 20 20 20 20 28 63 61 61 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 0a 20 20 20 20 28 67 | ......(caar.completions)).....(g |
| 11ba20 | 6f 74 6f 2d 63 68 61 72 20 30 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a | oto-char.0)))..(defun.slime-fuzz |
| 11ba40 | 79 2d 65 6e 61 62 6c 65 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 2d 63 6f 6d 70 6c 65 74 69 6f | y-enable-target-buffer-completio |
| 11ba60 | 6e 73 2d 6d 6f 64 65 20 28 29 0a 20 20 22 53 74 6f 72 65 20 74 68 65 20 74 61 72 67 65 74 20 62 | ns-mode.()..."Store.the.target.b |
| 11ba80 | 75 66 66 65 72 27 73 20 6c 6f 63 61 6c 20 6d 61 70 2c 20 73 6f 20 74 68 61 74 20 77 65 20 63 61 | uffer's.local.map,.so.that.we.ca |
| 11baa0 | 6e 20 72 65 73 74 6f 72 65 20 69 74 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 73 6c 69 6d 65 2d 66 | n.restore.it."...(unless.slime-f |
| 11bac0 | 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d | uzzy-target-buffer-completions-m |
| 11bae0 | 6f 64 65 0a 3b 20 20 20 20 28 73 6c 69 6d 65 2d 6c 6f 67 2d 65 76 65 6e 74 20 22 45 6e 61 62 6c | ode.;....(slime-log-event."Enabl |
| 11bb00 | 69 6e 67 20 74 61 72 67 65 74 20 62 75 66 66 65 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 6d 6f | ing.target.buffer.completions.mo |
| 11bb20 | 64 65 22 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 | de").....(slime-fuzzy-target-buf |
| 11bb40 | 66 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 20 31 29 29 29 0a 0a 28 64 65 66 75 | fer-completions-mode.1)))..(defu |
| 11bb60 | 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 64 69 73 61 62 6c 65 2d 74 61 72 67 65 74 2d 62 75 66 | n.slime-fuzzy-disable-target-buf |
| 11bb80 | 66 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 20 28 29 0a 20 20 22 52 65 73 74 6f | fer-completions-mode.()..."Resto |
| 11bba0 | 72 65 73 20 74 68 65 20 74 61 72 67 65 74 20 62 75 66 66 65 72 27 73 20 6c 6f 63 61 6c 20 6d 61 | res.the.target.buffer's.local.ma |
| 11bbc0 | 70 20 77 68 65 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 69 73 20 66 69 6e 69 73 68 65 64 2e 22 0a | p.when.completion.is.finished.". |
| 11bbe0 | 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 | ..(when.slime-fuzzy-target-buffe |
| 11bc00 | 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 0a 3b 20 20 20 20 28 73 6c 69 6d 65 2d 6c | r-completions-mode.;....(slime-l |
| 11bc20 | 6f 67 2d 65 76 65 6e 74 20 22 44 69 73 61 62 6c 69 6e 67 20 74 61 72 67 65 74 20 62 75 66 66 65 | og-event."Disabling.target.buffe |
| 11bc40 | 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 6d 6f 64 65 22 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d | r.completions.mode").....(slime- |
| 11bc60 | 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d | fuzzy-target-buffer-completions- |
| 11bc80 | 6d 6f 64 65 20 30 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 69 6e | mode.0)))..(defun.slime-fuzzy-in |
| 11bca0 | 73 65 72 74 2d 66 72 6f 6d 2d 70 6f 69 6e 74 20 28 29 0a 20 20 22 49 6e 73 65 72 74 73 20 74 68 | sert-from-point.()..."Inserts.th |
| 11bcc0 | 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 74 68 61 74 20 69 73 20 75 6e 64 65 72 20 70 6f 69 6e 74 | e.completion.that.is.under.point |
| 11bce0 | 20 69 6e 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 0a 62 75 66 66 65 72 20 69 6e 74 6f 20 | .in.the.completions.buffer.into. |
| 11bd00 | 74 68 65 20 74 61 72 67 65 74 20 62 75 66 66 65 72 2e 20 20 49 66 20 74 68 65 20 63 6f 6d 70 6c | the.target.buffer...If.the.compl |
| 11bd20 | 65 74 69 6f 6e 20 69 6e 20 71 75 65 73 74 69 6f 6e 20 68 61 64 0a 61 6c 72 65 61 64 79 20 62 65 | etion.in.question.had.already.be |
| 11bd40 | 65 6e 20 69 6e 73 65 72 74 65 64 2c 20 69 74 20 64 6f 65 73 20 6e 6f 74 68 69 6e 67 2e 22 0a 20 | en.inserted,.it.does.nothing.".. |
| 11bd60 | 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 67 65 74 | .(with-current-buffer.(slime-get |
| 11bd80 | 2d 66 75 7a 7a 79 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e | -fuzzy-buffer).....(let.((curren |
| 11bda0 | 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 | t-completion.(get-text-property. |
| 11bdc0 | 28 70 6f 69 6e 74 29 20 27 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 77 68 | (point).'completion))).......(wh |
| 11bde0 | 65 6e 20 28 61 6e 64 20 63 75 72 72 65 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 20 | en.(and.current-completion...... |
| 11be00 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 | ............(not.(eq.slime-fuzzy |
| 11be20 | 2d 63 75 72 72 65 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -current-completion............. |
| 11be40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e | ..............current-completion |
| 11be60 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 69 6e 73 65 72 74 0a | ))).........(slime-fuzzy-insert. |
| 11be80 | 20 20 20 20 20 20 20 20 20 28 63 6c 2d 66 69 72 73 74 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f | .........(cl-first.(get-text-pro |
| 11bea0 | 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 0a 20 20 20 | perty.(point).'completion))).... |
| 11bec0 | 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 75 72 72 65 6e 74 2d 63 | .....(setq.slime-fuzzy-current-c |
| 11bee0 | 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d | ompletion...............current- |
| 11bf00 | 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 | completion)))))..(defun.slime-fu |
| 11bf20 | 7a 7a 79 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 28 29 0a 20 20 22 54 68 65 20 | zzy-post-command-hook.()..."The. |
| 11bf40 | 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 66 6f 72 20 74 68 65 20 2a 46 75 7a 7a 79 | post-command-hook.for.the.*Fuzzy |
| 11bf60 | 20 43 6f 6d 70 6c 65 74 69 6f 6e 73 2a 20 62 75 66 66 65 72 2e 0a 54 68 69 73 20 6d 61 6b 65 73 | .Completions*.buffer..This.makes |
| 11bf80 | 20 73 75 72 65 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 6c 6f 74 20 69 6e 20 74 68 65 | .sure.the.completion.slot.in.the |
| 11bfa0 | 20 74 61 72 67 65 74 20 62 75 66 66 65 72 20 6d 61 74 63 68 65 73 0a 74 68 65 20 63 6f 6d 70 6c | .target.buffer.matches.the.compl |
| 11bfc0 | 65 74 69 6f 6e 20 74 68 61 74 20 70 6f 69 6e 74 20 69 73 20 6f 6e 20 69 6e 20 74 68 65 20 63 6f | etion.that.point.is.on.in.the.co |
| 11bfe0 | 6d 70 6c 65 74 69 6f 6e 73 20 62 75 66 66 65 72 2e 22 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d | mpletions.buffer."...(condition- |
| 11c000 | 63 61 73 65 20 65 72 72 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 | case.err.......(when.slime-fuzzy |
| 11c020 | 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 | -target-buffer.........(slime-fu |
| 11c040 | 7a 7a 79 2d 69 6e 73 65 72 74 2d 66 72 6f 6d 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 28 65 72 72 | zzy-insert-from-point)).....(err |
| 11c060 | 6f 72 0a 20 20 20 20 20 3b 3b 20 42 65 63 61 75 73 65 20 74 68 69 73 20 69 73 20 63 61 6c 6c 65 | or......;;.Because.this.is.calle |
| 11c080 | 64 20 6f 6e 20 74 68 65 20 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 2c 20 77 65 20 6d | d.on.the.post-command-hook,.we.m |
| 11c0a0 | 75 73 74 6e 27 74 20 6c 65 74 0a 20 20 20 20 20 3b 3b 20 65 72 72 6f 72 73 20 70 72 6f 70 61 67 | ustn't.let......;;.errors.propag |
| 11c0c0 | 61 74 65 2e 0a 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 45 72 72 6f 72 20 69 6e 20 73 6c 69 | ate.......(message."Error.in.sli |
| 11c0e0 | 6d 65 2d 66 75 7a 7a 79 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 3a 20 25 53 22 20 | me-fuzzy-post-command-hook:.%S". |
| 11c100 | 65 72 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 6e 65 78 74 | err))))..(defun.slime-fuzzy-next |
| 11c120 | 20 28 29 0a 20 20 22 4d 6f 76 65 73 20 70 6f 69 6e 74 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 | .()..."Moves.point.directly.to.t |
| 11c140 | 68 65 20 6e 65 78 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 6f 6d 70 6c 65 | he.next.completion.in.the.comple |
| 11c160 | 74 69 6f 6e 73 0a 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | tions.buffer."...(interactive).. |
| 11c180 | 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 67 65 74 | .(with-current-buffer.(slime-get |
| 11c1a0 | 2d 66 75 7a 7a 79 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 6f 69 6e 74 20 | -fuzzy-buffer).....(let.((point. |
| 11c1c0 | 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 | (next-single-char-property-chang |
| 11c1e0 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 20 27 63 6f 6d | e...................(point).'com |
| 11c200 | 70 6c 65 74 69 6f 6e 20 6e 69 6c 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 6c 61 73 74 29 29 29 0a | pletion.nil.slime-fuzzy-last))). |
| 11c220 | 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 70 6f 69 6e 74 20 28 67 65 74 2d 62 75 66 | ......(set-window-point.(get-buf |
| 11c240 | 66 65 72 2d 77 69 6e 64 6f 77 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 20 70 6f 69 | fer-window.(current-buffer)).poi |
| 11c260 | 6e 74 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 69 6e 74 29 29 0a 20 20 20 | nt).......(goto-char.point)).... |
| 11c280 | 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 68 69 67 68 6c 69 67 68 74 2d 63 75 72 72 65 6e 74 2d | .(slime-fuzzy-highlight-current- |
| 11c2a0 | 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a | completion)))..(defun.slime-fuzz |
| 11c2c0 | 79 2d 70 72 65 76 20 28 29 0a 20 20 22 4d 6f 76 65 73 20 70 6f 69 6e 74 20 64 69 72 65 63 74 6c | y-prev.()..."Moves.point.directl |
| 11c2e0 | 79 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 69 6e 20 | y.to.the.previous.completion.in. |
| 11c300 | 74 68 65 0a 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 | the.completions.buffer."...(inte |
| 11c320 | 72 61 63 74 69 76 65 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 | ractive)...(with-current-buffer. |
| 11c340 | 28 73 6c 69 6d 65 2d 67 65 74 2d 66 75 7a 7a 79 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 6c 65 | (slime-get-fuzzy-buffer).....(le |
| 11c360 | 74 20 28 28 70 6f 69 6e 74 20 28 70 72 65 76 69 6f 75 73 2d 73 69 6e 67 6c 65 2d 63 68 61 72 2d | t.((point.(previous-single-char- |
| 11c380 | 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | property-change................. |
| 11c3a0 | 20 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 6f 6d | ..(point)...................'com |
| 11c3c0 | 70 6c 65 74 69 6f 6e 20 6e 69 6c 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 66 69 72 73 74 29 29 29 | pletion.nil.slime-fuzzy-first))) |
| 11c3e0 | 0a 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 70 6f 69 6e 74 20 28 67 65 74 2d 62 75 | .......(set-window-point.(get-bu |
| 11c400 | 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 20 70 6f | ffer-window.(current-buffer)).po |
| 11c420 | 69 6e 74 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 69 6e 74 29 29 0a 20 20 | int).......(goto-char.point))... |
| 11c440 | 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 68 69 67 68 6c 69 67 68 74 2d 63 75 72 72 65 6e 74 | ..(slime-fuzzy-highlight-current |
| 11c460 | 2d 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a | -completion)))..(defun.slime-fuz |
| 11c480 | 7a 79 2d 68 69 67 68 6c 69 67 68 74 2d 63 75 72 72 65 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 | zy-highlight-current-completion. |
| 11c4a0 | 28 29 0a 20 20 22 48 69 67 68 6c 69 67 68 74 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6d | ()..."Highlights.the.current.com |
| 11c4c0 | 70 6c 65 74 69 6f 6e 2c 0a 73 6f 20 74 68 61 74 20 74 68 65 20 75 73 65 72 20 63 61 6e 20 73 65 | pletion,.so.that.the.user.can.se |
| 11c4e0 | 65 20 69 74 20 6f 6e 20 74 68 65 20 73 63 72 65 65 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 6f | e.it.on.the.screen."...(let.((po |
| 11c500 | 73 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6f 76 65 72 6c 61 79 70 20 | s.(point))).....(when.(overlayp. |
| 11c520 | 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 75 72 72 65 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f | slime-fuzzy-current-completion-o |
| 11c540 | 76 65 72 6c 61 79 29 0a 20 20 20 20 20 20 28 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 20 73 6c 69 6d | verlay).......(move-overlay.slim |
| 11c560 | 65 2d 66 75 7a 7a 79 2d 63 75 72 72 65 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 76 65 72 6c | e-fuzzy-current-completion-overl |
| 11c580 | 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 20 28 | ay.....................(point).( |
| 11c5a0 | 31 2d 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 20 22 29 29 29 0a 20 20 20 20 20 20 | 1-.(search-forward.".")))....... |
| 11c5c0 | 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 75 72 72 65 6e 74 | (overlay-put.slime-fuzzy-current |
| 11c5e0 | 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6f 76 65 72 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -completion-overlay............. |
| 11c600 | 20 20 20 20 20 20 20 27 66 61 63 65 20 27 73 65 63 6f 6e 64 61 72 79 2d 73 65 6c 65 63 74 69 6f | .......'face.'secondary-selectio |
| 11c620 | 6e 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 29 29 0a 0a 28 64 65 66 75 | n)).....(goto-char.pos)))..(defu |
| 11c640 | 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 61 62 6f 72 74 20 28 29 0a 20 20 22 41 62 6f 72 74 73 | n.slime-fuzzy-abort.()..."Aborts |
| 11c660 | 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 70 72 6f 63 65 73 73 2c 20 73 65 74 74 69 6e 67 | .the.completion.process,.setting |
| 11c680 | 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 73 6c 6f 74 20 69 6e 0a 74 68 65 20 74 61 72 | .the.completions.slot.in.the.tar |
| 11c6a0 | 67 65 74 20 62 75 66 66 65 72 20 62 61 63 6b 20 74 6f 20 69 74 73 20 6f 72 69 67 69 6e 61 6c 20 | get.buffer.back.to.its.original. |
| 11c6c0 | 63 6f 6e 74 65 6e 74 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 | contents."...(interactive)...(wh |
| 11c6e0 | 65 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 0a 20 20 20 | en.slime-fuzzy-target-buffer.... |
| 11c700 | 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 64 6f 6e 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | .(slime-fuzzy-done)))..(defun.sl |
| 11c720 | 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 20 28 29 0a 20 20 22 53 65 6c 65 63 74 73 20 74 | ime-fuzzy-select.()..."Selects.t |
| 11c740 | 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 2c 20 6d 61 6b 69 6e 67 20 73 75 | he.current.completion,.making.su |
| 11c760 | 72 65 20 74 68 61 74 20 69 74 20 69 73 20 69 6e 73 65 72 74 65 64 0a 69 6e 74 6f 20 74 68 65 20 | re.that.it.is.inserted.into.the. |
| 11c780 | 74 61 72 67 65 74 20 62 75 66 66 65 72 2e 20 20 54 68 69 73 20 74 65 6c 6c 73 20 74 68 65 20 63 | target.buffer...This.tells.the.c |
| 11c7a0 | 6f 6e 6e 65 63 74 65 64 20 4c 69 73 70 20 77 68 61 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 77 61 | onnected.Lisp.what.completion.wa |
| 11c7c0 | 73 20 73 65 6c 65 63 74 65 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | s.selected."...(interactive)...( |
| 11c7e0 | 77 68 65 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 0a 20 | when.slime-fuzzy-target-buffer.. |
| 11c800 | 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 67 | ...(with-current-buffer.(slime-g |
| 11c820 | 65 74 2d 66 75 7a 7a 79 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f | et-fuzzy-buffer).......(let.((co |
| 11c840 | 6d 70 6c 65 74 69 6f 6e 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 | mpletion.(get-text-property.(poi |
| 11c860 | 6e 74 29 20 27 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e | nt).'completion))).........(when |
| 11c880 | 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a | .completion...........(slime-fuz |
| 11c8a0 | 7a 79 2d 69 6e 73 65 72 74 20 28 63 6c 2d 66 69 72 73 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 | zy-insert.(cl-first.completion)) |
| 11c8c0 | 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 65 64 | ...........(slime-fuzzy-selected |
| 11c8e0 | 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 6f 72 69 67 69 6e 61 6c 2d 74 65 78 74 0a 20 20 20 20 20 | .slime-fuzzy-original-text...... |
| 11c900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 6c | ...........................compl |
| 11c920 | 65 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 64 6f | etion)...........(slime-fuzzy-do |
| 11c940 | 6e 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c | ne))))))..(defun.slime-fuzzy-sel |
| 11c960 | 65 63 74 2d 6f 72 2d 75 70 64 61 74 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 29 0a 20 20 22 | ect-or-update-completions.()..." |
| 11c980 | 49 66 20 74 68 65 72 65 20 77 65 72 65 20 6e 6f 20 63 68 61 6e 67 65 73 20 73 69 6e 63 65 20 74 | If.there.were.no.changes.since.t |
| 11c9a0 | 68 65 20 6c 61 73 74 20 74 69 6d 65 20 66 75 7a 7a 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 77 61 | he.last.time.fuzzy.completion.wa |
| 11c9c0 | 73 20 73 74 61 72 74 65 64 0a 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 73 65 6c | s.started.this.function.will.sel |
| 11c9e0 | 65 63 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 0a 4f 74 68 65 | ect.the.current.completion..Othe |
| 11ca00 | 72 77 69 73 65 20 72 65 66 72 65 73 68 65 73 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6c | rwise.refreshes.the.completion.l |
| 11ca20 | 69 73 74 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 63 68 61 6e 67 65 73 20 6d 61 64 65 2e 22 0a | ist.based.on.the.changes.made.". |
| 11ca40 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 3b 20 20 28 73 6c 69 6d 65 2d 6c 6f 67 2d 65 76 | ..(interactive).;..(slime-log-ev |
| 11ca60 | 65 6e 74 20 22 53 65 6c 65 63 74 69 6e 67 20 6f 72 20 75 70 64 61 74 69 6e 67 20 63 6f 6d 70 6c | ent."Selecting.or.updating.compl |
| 11ca80 | 65 74 69 6f 6e 73 22 29 0a 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 73 6c 69 | etions")...(if.(string-equal.sli |
| 11caa0 | 6d 65 2d 66 75 7a 7a 79 2d 6f 72 69 67 69 6e 61 6c 2d 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 | me-fuzzy-original-text.......... |
| 11cac0 | 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 73 6c 69 | ...........(buffer-substring.sli |
| 11cae0 | 6d 65 2d 66 75 7a 7a 79 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me-fuzzy-start.................. |
| 11cb00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 | .....................slime-fuzzy |
| 11cb20 | 2d 65 6e 64 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 | -end)).......(slime-fuzzy-select |
| 11cb40 | 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 | ).......(slime-fuzzy-complete-sy |
| 11cb60 | 6d 62 6f 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 70 72 6f 63 | mbol)))..(defun.slime-fuzzy-proc |
| 11cb80 | 65 73 73 2d 65 76 65 6e 74 2d 69 6e 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 62 75 66 66 65 72 20 | ess-event-in-completions-buffer. |
| 11cba0 | 28 29 0a 20 20 22 53 69 6d 70 6c 79 20 70 72 6f 63 65 73 73 65 73 20 74 68 65 20 65 76 65 6e 74 | ()..."Simply.processes.the.event |
| 11cbc0 | 20 69 6e 20 74 68 65 20 74 61 72 67 65 74 20 62 75 66 66 65 72 22 0a 20 20 28 69 6e 74 65 72 61 | .in.the.target.buffer"...(intera |
| 11cbe0 | 63 74 69 76 65 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 | ctive)...(with-current-buffer.(s |
| 11cc00 | 6c 69 6d 65 2d 67 65 74 2d 66 75 7a 7a 79 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 70 75 73 68 | lime-get-fuzzy-buffer).....(push |
| 11cc20 | 20 6c 61 73 74 2d 69 6e 70 75 74 2d 65 76 65 6e 74 20 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 | .last-input-event.unread-command |
| 11cc40 | 2d 65 76 65 6e 74 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 | -events)))..(defun.slime-fuzzy-s |
| 11cc60 | 65 6c 65 63 74 2d 61 6e 64 2d 70 72 6f 63 65 73 73 2d 65 76 65 6e 74 2d 69 6e 2d 74 61 72 67 65 | elect-and-process-event-in-targe |
| 11cc80 | 74 2d 62 75 66 66 65 72 20 28 29 0a 20 22 53 65 6c 65 63 74 73 20 74 68 65 20 63 75 72 72 65 6e | t-buffer.().."Selects.the.curren |
| 11cca0 | 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 2c 20 6d 61 6b 69 6e 67 20 73 75 72 65 20 74 68 61 74 20 69 | t.completion,.making.sure.that.i |
| 11ccc0 | 74 20 69 73 20 69 6e 73 65 72 74 65 64 0a 69 6e 74 6f 20 74 68 65 20 74 61 72 67 65 74 20 62 75 | t.is.inserted.into.the.target.bu |
| 11cce0 | 66 66 65 72 20 61 6e 64 20 70 72 6f 63 65 73 73 65 73 20 74 68 65 20 65 76 65 6e 74 20 69 6e 20 | ffer.and.processes.the.event.in. |
| 11cd00 | 74 68 65 20 74 61 72 67 65 74 20 62 75 66 66 65 72 2e 22 0a 20 28 69 6e 74 65 72 61 63 74 69 76 | the.target.buffer."..(interactiv |
| 11cd20 | 65 29 0a 3b 20 28 73 6c 69 6d 65 2d 6c 6f 67 2d 65 76 65 6e 74 20 22 53 65 6c 65 63 74 69 6e 67 | e).;.(slime-log-event."Selecting |
| 11cd40 | 20 61 6e 64 20 70 72 6f 63 65 73 73 69 6e 67 20 65 76 65 6e 74 20 69 6e 20 74 61 72 67 65 74 20 | .and.processing.event.in.target. |
| 11cd60 | 62 75 66 66 65 72 22 29 0a 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 | buffer")..(when.slime-fuzzy-targ |
| 11cd80 | 65 74 2d 62 75 66 66 65 72 0a 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 20 73 6c 69 6d 65 2d 66 | et-buffer....(let.((buff.slime-f |
| 11cda0 | 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 | uzzy-target-buffer))......(slime |
| 11cdc0 | 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 29 0a 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e | -fuzzy-select)......(with-curren |
| 11cde0 | 74 2d 62 75 66 66 65 72 20 62 75 66 66 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a | t-buffer.buff........(slime-fuzz |
| 11ce00 | 79 2d 64 69 73 61 62 6c 65 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 2d 63 6f 6d 70 6c 65 74 69 | y-disable-target-buffer-completi |
| 11ce20 | 6f 6e 73 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 28 70 75 73 68 20 6c 61 73 74 2d 69 6e 70 75 | ons-mode)........(push.last-inpu |
| 11ce40 | 74 2d 65 76 65 6e 74 20 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 65 76 65 6e 74 73 29 29 29 | t-event.unread-command-events))) |
| 11ce60 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 2f 6d 6f | ))..(defun.slime-fuzzy-select/mo |
| 11ce80 | 75 73 65 20 28 65 76 65 6e 74 29 0a 20 20 22 48 61 6e 64 6c 65 20 61 20 6d 6f 75 73 65 2d 32 20 | use.(event)..."Handle.a.mouse-2. |
| 11cea0 | 63 6c 69 63 6b 20 6f 6e 20 61 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 63 68 6f 69 63 65 20 61 73 20 | click.on.a.completion.choice.as. |
| 11cec0 | 69 66 20 70 6f 69 6e 74 20 77 65 72 65 0a 6f 6e 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 | if.point.were.on.the.completion. |
| 11cee0 | 63 68 6f 69 63 65 20 61 6e 64 20 74 68 65 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 | choice.and.the.slime-fuzzy-selec |
| 11cf00 | 74 20 63 6f 6d 6d 61 6e 64 20 77 61 73 0a 72 75 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | t.command.was.run."...(interacti |
| 11cf20 | 76 65 20 22 65 22 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 | ve."e")...(with-current-buffer.( |
| 11cf40 | 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e | window-buffer.(posn-window.(even |
| 11cf60 | 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 | t-end.event))).....(save-excursi |
| 11cf80 | 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 | on.......(goto-char.(posn-point. |
| 11cfa0 | 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 | (event-end.event))).......(when. |
| 11cfc0 | 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 6d 6f 75 73 | (get-text-property.(point).'mous |
| 11cfe0 | 65 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 69 6e 73 | e-face).........(slime-fuzzy-ins |
| 11d000 | 65 72 74 2d 66 72 6f 6d 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 | ert-from-point).........(slime-f |
| 11d020 | 75 7a 7a 79 2d 73 65 6c 65 63 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 | uzzy-select)))))..(defun.slime-f |
| 11d040 | 75 7a 7a 79 2d 64 6f 6e 65 20 28 29 0a 20 20 22 43 6c 65 61 6e 73 20 75 70 20 61 66 74 65 72 20 | uzzy-done.()..."Cleans.up.after. |
| 11d060 | 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 70 72 6f 63 65 73 73 2e 22 0a 20 20 28 77 68 65 6e | the.completion.process."...(when |
| 11d080 | 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 0a 20 20 20 20 28 | .slime-fuzzy-target-buffer.....( |
| 11d0a0 | 73 65 74 2d 62 75 66 66 65 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 65 74 2d 62 75 | set-buffer.slime-fuzzy-target-bu |
| 11d0c0 | 66 66 65 72 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 64 69 73 61 62 6c 65 2d 74 | ffer).....(slime-fuzzy-disable-t |
| 11d0e0 | 61 72 67 65 74 2d 62 75 66 66 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 29 0a 20 | arget-buffer-completions-mode).. |
| 11d100 | 20 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e | ...(let.((window.(get-buffer-win |
| 11d120 | 64 6f 77 20 28 73 6c 69 6d 65 2d 67 65 74 2d 66 75 7a 7a 79 2d 62 75 66 66 65 72 29 29 29 29 0a | dow.(slime-get-fuzzy-buffer)))). |
| 11d140 | 20 20 20 20 20 20 28 77 68 65 6e 20 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 28 71 75 69 74 | ......(when.window.........(quit |
| 11d160 | 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 28 69 66 20 28 73 | -window.nil.window))).....(if.(s |
| 11d180 | 6c 69 6d 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 70 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 | lime-minibuffer-p.slime-fuzzy-ta |
| 11d1a0 | 72 67 65 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e | rget-buffer).........(select-win |
| 11d1c0 | 64 6f 77 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 | dow.(minibuffer-window))........ |
| 11d1e0 | 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 74 61 72 67 | .(pop-to-buffer.slime-fuzzy-targ |
| 11d200 | 65 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 69 6d 65 | et-buffer)).....(goto-char.slime |
| 11d220 | 2d 66 75 7a 7a 79 2d 65 6e 64 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 66 75 7a 7a | -fuzzy-end).....(setq.slime-fuzz |
| 11d240 | 79 2d 74 61 72 67 65 74 2d 62 75 66 66 65 72 20 6e 69 6c 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 | y-target-buffer.nil)))..(provide |
| 11d260 | 20 27 73 6c 69 6d 65 2d 66 75 7a 7a 79 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .'slime-fuzzy).................. |
| 11d280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d2a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d2c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 73 62 63 6c 2d 65 78 | slime-2.31/contrib/slime-sbcl-ex |
| 11d420 | 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ts.el........................... |
| 11d440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 11d480 | 30 30 30 33 32 30 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 32 30 34 00 20 30 00 00 00 | 0003205.00000000000.016204..0... |
| 11d4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 11d520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 11d540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11d600 | 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 | (require.'slime).(require.'cl-li |
| 11d620 | 62 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 20 73 6c 69 6d 65 2d | b)..(define-slime-contrib.slime- |
| 11d640 | 73 62 63 6c 2d 65 78 74 73 0a 20 20 22 4d 69 73 63 20 65 78 74 65 6e 73 69 6f 6e 73 20 66 6f 72 | sbcl-exts..."Misc.extensions.for |
| 11d660 | 20 53 42 43 4c 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 54 6f 62 69 61 73 20 43 2e 20 52 69 | .SBCL"...(:authors."Tobias.C..Ri |
| 11d680 | 74 74 77 65 69 6c 65 72 20 3c 74 63 72 40 66 72 65 65 62 69 74 73 2e 64 65 3e 22 29 0a 20 20 28 | ttweiler.<tcr@freebits.de>")...( |
| 11d6a0 | 3a 6c 69 63 65 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 73 6c 69 6d 65 2d 64 65 70 65 6e 64 | :license."GPL")...(:slime-depend |
| 11d6c0 | 65 6e 63 69 65 73 20 73 6c 69 6d 65 2d 72 65 66 65 72 65 6e 63 65 73 29 0a 20 20 28 3a 73 77 61 | encies.slime-references)...(:swa |
| 11d6e0 | 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 73 77 61 6e 6b 2d 73 62 63 6c 2d 65 78 74 73 29 | nk-dependencies.swank-sbcl-exts) |
| 11d700 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 62 63 6c 2d 62 75 67 2d 61 74 2d 70 6f 69 6e | )..(defun.slime-sbcl-bug-at-poin |
| 11d720 | 74 20 28 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 73 61 76 65 | t.()...(save-excursion.....(save |
| 11d740 | 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6c 6f 6f 6b 69 | -match-data.......(unless.(looki |
| 11d760 | 6e 67 2d 61 74 20 22 23 5b 30 2d 39 5d 5c 5c 7b 36 5c 5c 7d 22 29 0a 20 20 20 20 20 20 20 20 28 | ng-at."#[0-9]\\{6\\}").........( |
| 11d780 | 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 2d 72 65 67 65 78 70 20 22 23 5c 5c 3c 22 20 28 6c | search-backward-regexp."#\\<".(l |
| 11d7a0 | 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 74 29 29 0a 20 20 20 20 | ine-beginning-position).t))..... |
| 11d7c0 | 20 20 28 77 68 65 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 23 5b 30 2d 39 5d 5c 5c 7b 36 5c | ..(when.(looking-at."#[0-9]\\{6\ |
| 11d7e0 | 5c 7d 22 29 0a 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e | \}").........(buffer-substring-n |
| 11d800 | 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 | o-properties.(match-beginning.0) |
| 11d820 | 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | .(match-end.0))))))..(defun.slim |
| 11d840 | 65 2d 72 65 61 64 2d 73 62 63 6c 2d 62 75 67 20 28 70 72 6f 6d 70 74 20 26 6f 70 74 69 6f 6e 61 | e-read-sbcl-bug.(prompt.&optiona |
| 11d860 | 6c 20 71 75 65 72 79 29 0a 20 20 22 45 69 74 68 65 72 20 72 65 61 64 20 61 20 73 62 63 6c 20 62 | l.query)..."Either.read.a.sbcl.b |
| 11d880 | 75 67 20 6f 72 20 63 68 6f 6f 73 65 20 74 68 65 20 6f 6e 65 20 61 74 20 70 6f 69 6e 74 2e 0a 54 | ug.or.choose.the.one.at.point..T |
| 11d8a0 | 68 65 20 75 73 65 72 20 69 73 20 70 72 6f 6d 70 74 65 64 20 69 66 20 61 20 70 72 65 66 69 78 20 | he.user.is.prompted.if.a.prefix. |
| 11d8c0 | 61 72 67 75 6d 65 6e 74 20 69 73 20 69 6e 20 65 66 66 65 63 74 2c 20 69 66 20 74 68 65 72 65 20 | argument.is.in.effect,.if.there. |
| 11d8e0 | 69 73 20 6e 6f 0a 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2c 20 6f 72 20 69 66 20 51 55 45 | is.no.symbol.at.point,.or.if.QUE |
| 11d900 | 52 59 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 75 67 20 28 73 6c | RY.is.non-nil."...(let.((bug.(sl |
| 11d920 | 69 6d 65 2d 73 62 63 6c 2d 62 75 67 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 63 6f | ime-sbcl-bug-at-point))).....(co |
| 11d940 | 6e 64 20 28 28 6f 72 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 71 75 65 72 79 | nd.((or.current-prefix-arg.query |
| 11d960 | 20 28 6e 6f 74 20 62 75 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 | .(not.bug))............(slime-re |
| 11d980 | 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 70 72 6f 6d 70 74 20 62 75 67 29 29 0a | ad-from-minibuffer.prompt.bug)). |
| 11d9a0 | 20 20 20 20 20 20 20 20 20 20 28 74 20 62 75 67 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | ..........(t.bug))))..(defun.sli |
| 11d9c0 | 6d 65 2d 76 69 73 69 74 2d 73 62 63 6c 2d 62 75 67 20 28 62 75 67 29 0a 20 20 22 56 69 73 69 74 | me-visit-sbcl-bug.(bug)..."Visit |
| 11d9e0 | 20 74 68 65 20 4c 61 75 6e 63 68 70 61 64 20 73 69 74 65 20 74 68 61 74 20 64 65 73 63 72 69 62 | .the.Launchpad.site.that.describ |
| 11da00 | 65 73 20 60 62 75 67 27 20 28 23 6e 6e 6e 6e 6e 6e 29 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | es.`bug'.(#nnnnnn)."...(interact |
| 11da20 | 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 62 63 6c 2d 62 75 67 20 22 | ive.(list.(slime-read-sbcl-bug." |
| 11da40 | 42 75 67 20 6e 75 6d 62 65 72 20 28 23 6e 6e 6e 6e 6e 6e 29 3a 20 22 29 29 29 0a 20 20 28 62 72 | Bug.number.(#nnnnnn):.")))...(br |
| 11da60 | 6f 77 73 65 2d 75 72 6c 20 28 66 6f 72 6d 61 74 20 22 68 74 74 70 3a 2f 2f 62 75 67 73 2e 6c 61 | owse-url.(format."http://bugs.la |
| 11da80 | 75 6e 63 68 70 61 64 2e 6e 65 74 2f 73 62 63 6c 2f 2b 62 75 67 2f 25 73 22 20 0a 20 20 20 20 20 | unchpad.net/sbcl/+bug/%s"....... |
| 11daa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 62 75 67 20 | .................(substring.bug. |
| 11dac0 | 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 64 65 66 69 6e | 1))))..(defun.slime-indent-defin |
| 11dae0 | 65 2d 76 6f 70 20 28 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 | e-vop.(path.state.indent-point.s |
| 11db00 | 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 0a 20 20 28 69 66 20 | exp-column.normal-indent)...(if. |
| 11db20 | 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 | (save-excursion........(backward |
| 11db40 | 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 64 6f | -sexp)........(ignore-errors.(do |
| 11db60 | 77 6e 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3a 67 | wn-list))........(looking-at.":g |
| 11db80 | 65 6e 65 72 61 74 6f 72 22 29 29 0a 20 20 20 20 20 20 28 2b 20 73 65 78 70 2d 63 6f 6c 75 6d 6e | enerator")).......(+.sexp-column |
| 11dba0 | 20 32 29 0a 20 20 20 20 20 20 28 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 32 35 39 20 27 28 28 26 77 | .2).......(lisp-indent-259.'((&w |
| 11dbc0 | 68 6f 6c 65 20 34 29 20 26 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hole.4).&body).................. |
| 11dbe0 | 20 20 20 20 20 20 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 | ......path.state.indent-point.se |
| 11dc00 | 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 29 29 0a 0a 28 70 75 74 | xp-column.normal-indent)))..(put |
| 11dc20 | 20 27 64 65 66 69 6e 65 2d 76 6f 70 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 | .'define-vop.'common-lisp-indent |
| 11dc40 | 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 27 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 64 65 66 | -function......'slime-indent-def |
| 11dc60 | 69 6e 65 2d 76 6f 70 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 73 62 63 6c 2d 65 | ine-vop)..(provide.'slime-sbcl-e |
| 11dc80 | 78 74 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | xts)............................ |
| 11dca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dcc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dd00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dd20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dd40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dd60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dd80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11ddc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11de00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 68 79 70 65 72 64 6f | slime-2.31/contrib/swank-hyperdo |
| 11de20 | 63 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | c.lisp.......................... |
| 11de40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11de60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 11de80 | 30 30 30 31 33 37 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 30 33 00 20 30 00 00 00 | 0001374.00000000000.016503..0... |
| 11dea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11df00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 11df20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 11df40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11df60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11df80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dfa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dfc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11dfe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e000 | 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 | (in-package.:swank)..(defslimefu |
| 11e020 | 6e 20 68 79 70 65 72 64 6f 63 20 28 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 68 79 70 | n.hyperdoc.(string)...(let.((hyp |
| 11e040 | 65 72 64 6f 63 2d 70 61 63 6b 61 67 65 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 68 79 70 | erdoc-package.(find-package.:hyp |
| 11e060 | 65 72 64 6f 63 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 68 79 70 65 72 64 6f 63 2d 70 61 63 6b | erdoc))).....(when.hyperdoc-pack |
| 11e080 | 61 67 65 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 | age.......(multiple-value-bind.( |
| 11e0a0 | 73 79 6d 62 6f 6c 20 66 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 70 61 63 6b 61 67 | symbol.foundp.symbol-name.packag |
| 11e0c0 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 2d 73 79 6d 62 6f 6c 20 73 74 72 69 6e | e)...........(parse-symbol.strin |
| 11e0e0 | 67 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 0a 20 20 20 20 20 20 20 20 28 64 65 63 | g.*buffer-package*).........(dec |
| 11e100 | 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 28 77 | lare.(ignore.symbol)).........(w |
| 11e120 | 68 65 6e 20 66 6f 75 6e 64 70 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 66 | hen.foundp...........(funcall.(f |
| 11e140 | 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 3a 6c 6f 6f 6b 75 70 29 20 68 79 70 65 | ind-symbol.(string.:lookup).hype |
| 11e160 | 72 64 6f 63 2d 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rdoc-package)................... |
| 11e180 | 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 69 66 20 28 6d 65 6d 62 65 72 20 70 61 63 6b 61 | .(package-name.(if.(member.packa |
| 11e1a0 | 67 65 20 28 63 6f 6e 73 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 0a 20 20 20 20 20 20 | ge.(cons.*buffer-package*....... |
| 11e1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11e1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 61 67 65 2d 75 73 | .....................(package-us |
| 11e200 | 65 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-list.......................... |
| 11e220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 11e240 | 20 20 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ...*buffer-package*))).......... |
| 11e260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 62 75 66 | ............................*buf |
| 11e280 | 66 65 72 2d 70 61 63 6b 61 67 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fer-package*.................... |
| 11e2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 | ..................package))..... |
| 11e2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 29 29 29 | ...............symbol-name)))))) |
| 11e2e0 | 0a 0a 28 70 72 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 68 79 70 65 72 64 6f 63 29 0a 00 00 00 00 | ..(provide.:swank-hyperdoc)..... |
| 11e300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 2d 6d 72 65 70 6c 2e 65 | slime-2.31/contrib/slime-mrepl.e |
| 11e420 | 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | l............................... |
| 11e440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 11e480 | 30 30 31 32 31 31 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 31 33 00 20 30 00 00 00 | 0012111.00000000000.015413..0... |
| 11e4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 11e520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 11e540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11e600 | 3b 3b 20 41 6e 20 65 78 70 65 72 69 6d 65 6e 74 61 6c 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | ;;.An.experimental.implementatio |
| 11e620 | 6e 20 6f 66 20 6d 75 6c 74 69 70 6c 65 20 52 45 50 4c 73 20 6d 75 6c 74 69 70 6c 65 78 65 64 20 | n.of.multiple.REPLs.multiplexed. |
| 11e640 | 6f 76 65 72 20 61 0a 3b 3b 20 73 69 6e 67 6c 65 20 53 6c 69 6d 65 20 73 6f 63 6b 65 74 2e 20 20 | over.a.;;.single.Slime.socket... |
| 11e660 | 4d 2d 78 20 73 6c 69 6d 65 2d 6e 65 77 2d 6d 72 65 70 6c 20 63 72 65 61 74 65 73 20 61 20 6e 65 | M-x.slime-new-mrepl.creates.a.ne |
| 11e680 | 77 20 52 45 50 4c 20 62 75 66 66 65 72 2e 0a 3b 3b 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d | w.REPL.buffer..;;.(require.'slim |
| 11e6a0 | 65 29 0a 28 72 65 71 75 69 72 65 20 27 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 29 20 3b 20 69 | e).(require.'inferior-slime).;.i |
| 11e6c0 | 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6d 65 0a 28 72 65 71 75 69 | nferior-slime-indent-lime.(requi |
| 11e6e0 | 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 | re.'cl-lib)..(define-slime-contr |
| 11e700 | 69 62 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 0a 20 20 22 4d 75 6c 74 69 70 6c 65 20 52 45 50 4c 73 | ib.slime-mrepl..."Multiple.REPLs |
| 11e720 | 2e 22 0a 20 20 28 3a 61 75 74 68 6f 72 73 20 22 48 65 6c 6d 75 74 20 45 6c 6c 65 72 20 3c 68 65 | ."...(:authors."Helmut.Eller.<he |
| 11e740 | 6c 6c 65 72 40 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 3e 22 29 0a 20 20 28 3a 6c 69 63 65 | ller@common-lisp.net>")...(:lice |
| 11e760 | 6e 73 65 20 22 47 50 4c 22 29 0a 20 20 28 3a 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 | nse."GPL")...(:swank-dependencie |
| 11e780 | 73 20 73 77 61 6e 6b 2d 6d 72 65 70 6c 29 29 0a 0a 28 72 65 71 75 69 72 65 20 27 63 6f 6d 69 6e | s.swank-mrepl))..(require.'comin |
| 11e7a0 | 74 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 72 65 6d 6f 74 65 2d 63 | t)..(defvar.slime-mrepl-remote-c |
| 11e7c0 | 68 61 6e 6e 65 6c 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d | hannel.nil).(defvar.slime-mrepl- |
| 11e7e0 | 65 78 70 65 63 74 2d 73 65 78 70 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 | expect-sexp.nil)..(define-derive |
| 11e800 | 64 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 6d 6f 64 65 20 63 6f 6d 69 6e 74 2d 6d | d-mode.slime-mrepl-mode.comint-m |
| 11e820 | 6f 64 65 20 22 6d 72 65 70 6c 22 0a 20 20 3b 3b 20 69 64 65 61 20 6c 69 66 74 65 64 20 66 72 6f | ode."mrepl"...;;.idea.lifted.fro |
| 11e840 | 6d 20 69 65 6c 6d 0a 20 20 28 75 6e 6c 65 73 73 20 28 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f | m.ielm...(unless.(get-buffer-pro |
| 11e860 | 63 65 73 73 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 6c 65 74 2a | cess.(current-buffer)).....(let* |
| 11e880 | 20 28 28 70 72 6f 63 65 73 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 74 79 70 65 20 6e 69 6c 29 0a | .((process-connection-type.nil). |
| 11e8a0 | 09 20 20 20 28 70 72 6f 63 20 28 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20 22 6d 72 65 70 6c 20 | ....(proc.(start-process."mrepl. |
| 11e8c0 | 28 64 75 6d 6d 79 29 22 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 22 68 65 78 6c 22 | (dummy)".(current-buffer)."hexl" |
| 11e8e0 | 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 71 75 65 72 79 2d 6f 6e 2d | ))).......(set-process-query-on- |
| 11e900 | 65 78 69 74 2d 66 6c 61 67 20 70 72 6f 63 20 6e 69 6c 29 29 29 0a 20 20 28 73 65 74 20 28 6d 61 | exit-flag.proc.nil)))...(set.(ma |
| 11e920 | 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 63 6f 6d 69 6e 74 2d 75 73 65 2d 70 72 | ke-local-variable.'comint-use-pr |
| 11e940 | 6f 6d 70 74 2d 72 65 67 65 78 70 29 20 6e 69 6c 29 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c | ompt-regexp).nil)...(set.(make-l |
| 11e960 | 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 63 6f 6d 69 6e 74 2d 69 6e 68 69 62 69 74 2d 63 61 | ocal-variable.'comint-inhibit-ca |
| 11e980 | 72 72 69 61 67 65 2d 6d 6f 74 69 6f 6e 29 20 74 29 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c | rriage-motion).t)...(set.(make-l |
| 11e9a0 | 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 63 6f 6d 69 6e 74 2d 69 6e 70 75 74 2d 73 65 6e 64 | ocal-variable.'comint-input-send |
| 11e9c0 | 65 72 29 20 27 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 65 6e 64 65 72 29 0a 20 | er).'slime-mrepl-input-sender).. |
| 11e9e0 | 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 63 6f 6d 69 | .(set.(make-local-variable.'comi |
| 11ea00 | 6e 74 2d 6f 75 74 70 75 74 2d 66 69 6c 74 65 72 2d 66 75 6e 63 74 69 6f 6e 73 29 20 6e 69 6c 29 | nt-output-filter-functions).nil) |
| 11ea20 | 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 73 6c | ...(set.(make-local-variable.'sl |
| 11ea40 | 69 6d 65 2d 6d 72 65 70 6c 2d 65 78 70 65 63 74 2d 73 65 78 70 29 20 74 29 0a 20 20 3b 3b 28 73 | ime-mrepl-expect-sexp).t)...;;(s |
| 11ea60 | 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 63 6f 6d 69 6e 74 2d | et.(make-local-variable.'comint- |
| 11ea80 | 67 65 74 2d 6f 6c 64 2d 69 6e 70 75 74 29 20 27 69 65 6c 6d 2d 67 65 74 2d 6f 6c 64 2d 69 6e 70 | get-old-input).'ielm-get-old-inp |
| 11eaa0 | 75 74 29 0a 20 20 28 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 69 73 70 2d 6d 6f 64 | ut)...(set-syntax-table.lisp-mod |
| 11eac0 | 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 0a 20 20 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 | e-syntax-table)...)..(slime-defi |
| 11eae0 | 6e 65 2d 6b 65 79 73 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 | ne-keys.slime-mrepl-mode-map...( |
| 11eb00 | 28 6b 62 64 20 22 52 45 54 22 29 20 27 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 72 65 74 75 72 6e 29 | (kbd."RET").'slime-mrepl-return) |
| 11eb20 | 0a 20 20 28 5b 72 65 74 75 72 6e 5d 20 27 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 72 65 74 75 72 6e | ...([return].'slime-mrepl-return |
| 11eb40 | 29 0a 20 20 3b 3b 28 28 6b 62 64 20 22 54 41 42 22 29 20 27 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 | )...;;((kbd."TAB").'slime-indent |
| 11eb60 | 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 29 0a 20 20 28 28 6b 62 64 20 22 43 | -and-complete-symbol)...((kbd."C |
| 11eb80 | 2d 63 20 43 2d 62 22 29 20 27 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 29 0a 20 20 28 28 6b | -c.C-b").'slime-interrupt)...((k |
| 11eba0 | 62 64 20 22 43 2d 63 20 43 2d 63 22 29 20 27 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 29 29 | bd."C-c.C-c").'slime-interrupt)) |
| 11ebc0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 70 72 6f 63 65 73 73 25 20 28 29 | ..(defun.slime-mrepl-process%.() |
| 11ebe0 | 20 28 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 28 63 75 72 72 65 6e 74 2d 62 75 | .(get-buffer-process.(current-bu |
| 11ec00 | 66 66 65 72 29 29 29 20 3b 73 74 75 70 69 64 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 72 65 | ffer))).;stupid.(defun.slime-mre |
| 11ec20 | 70 6c 2d 6d 61 72 6b 20 28 29 20 28 70 72 6f 63 65 73 73 2d 6d 61 72 6b 20 28 73 6c 69 6d 65 2d | pl-mark.().(process-mark.(slime- |
| 11ec40 | 6d 72 65 70 6c 2d 70 72 6f 63 65 73 73 25 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | mrepl-process%)))..(defun.slime- |
| 11ec60 | 6d 72 65 70 6c 2d 69 6e 73 65 72 74 20 28 73 74 72 69 6e 67 29 0a 20 20 28 63 6f 6d 69 6e 74 2d | mrepl-insert.(string)...(comint- |
| 11ec80 | 6f 75 74 70 75 74 2d 66 69 6c 74 65 72 20 28 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 70 72 6f 63 65 | output-filter.(slime-mrepl-proce |
| 11eca0 | 73 73 25 29 20 73 74 72 69 6e 67 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 63 68 61 | ss%).string))..(slime-define-cha |
| 11ecc0 | 6e 6e 65 6c 2d 74 79 70 65 20 6c 69 73 74 65 6e 65 72 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 | nnel-type.listener)..(slime-defi |
| 11ece0 | 6e 65 2d 63 68 61 6e 6e 65 6c 2d 6d 65 74 68 6f 64 20 6c 69 73 74 65 6e 65 72 20 3a 70 72 6f 6d | ne-channel-method.listener.:prom |
| 11ed00 | 70 74 20 28 70 61 63 6b 61 67 65 20 70 72 6f 6d 70 74 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 | pt.(package.prompt)...(with-curr |
| 11ed20 | 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2d 67 65 74 20 73 65 | ent-buffer.(slime-channel-get.se |
| 11ed40 | 6c 66 20 27 62 75 66 66 65 72 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 70 72 6f | lf.'buffer).....(slime-mrepl-pro |
| 11ed60 | 6d 70 74 20 70 61 63 6b 61 67 65 20 70 72 6f 6d 70 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | mpt.package.prompt)))..(defun.sl |
| 11ed80 | 69 6d 65 2d 6d 72 65 70 6c 2d 70 72 6f 6d 70 74 20 28 70 61 63 6b 61 67 65 20 70 72 6f 6d 70 74 | ime-mrepl-prompt.(package.prompt |
| 11eda0 | 29 0a 20 20 28 73 65 74 66 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 70 | )...(setf.slime-buffer-package.p |
| 11edc0 | 61 63 6b 61 67 65 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 69 6e 73 65 72 74 20 28 66 | ackage)...(slime-mrepl-insert.(f |
| 11ede0 | 6f 72 6d 61 74 20 22 25 73 25 73 3e 20 22 0a 09 09 09 20 20 20 20 20 20 28 63 6c 2d 63 61 73 65 | ormat."%s%s>."..........(cl-case |
| 11ee00 | 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 0a 09 09 09 09 28 30 20 22 22 29 0a 09 09 09 | .(current-column).....(0."").... |
| 11ee20 | 09 28 74 20 22 5c 6e 22 29 29 0a 09 09 09 20 20 20 20 20 20 70 72 6f 6d 70 74 29 29 0a 20 20 28 | .(t."\n"))..........prompt))...( |
| 11ee40 | 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 72 65 63 65 6e 74 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 73 | slime-mrepl-recenter))..(defun.s |
| 11ee60 | 6c 69 6d 65 2d 6d 72 65 70 6c 2d 72 65 63 65 6e 74 65 72 20 28 29 0a 20 20 28 77 68 65 6e 20 28 | lime-mrepl-recenter.()...(when.( |
| 11ee80 | 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 28 72 65 63 65 6e 74 65 72 | get-buffer-window).....(recenter |
| 11eea0 | 20 2d 31 29 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 63 68 61 6e 6e 65 6c 2d 6d 65 | .-1)))..(slime-define-channel-me |
| 11eec0 | 74 68 6f 64 20 6c 69 73 74 65 6e 65 72 20 3a 77 72 69 74 65 2d 72 65 73 75 6c 74 20 28 72 65 73 | thod.listener.:write-result.(res |
| 11eee0 | 75 6c 74 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 | ult)...(with-current-buffer.(sli |
| 11ef00 | 6d 65 2d 63 68 61 6e 6e 65 6c 2d 67 65 74 20 73 65 6c 66 20 27 62 75 66 66 65 72 29 0a 20 20 20 | me-channel-get.self.'buffer).... |
| 11ef20 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 28 73 6c | .(goto-char.(point-max)).....(sl |
| 11ef40 | 69 6d 65 2d 6d 72 65 70 6c 2d 69 6e 73 65 72 74 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 73 6c 69 | ime-mrepl-insert.result)))..(sli |
| 11ef60 | 6d 65 2d 64 65 66 69 6e 65 2d 63 68 61 6e 6e 65 6c 2d 6d 65 74 68 6f 64 20 6c 69 73 74 65 6e 65 | me-define-channel-method.listene |
| 11ef80 | 72 20 3a 65 76 61 6c 75 61 74 69 6f 6e 2d 61 62 6f 72 74 65 64 20 28 29 0a 20 20 28 77 69 74 68 | r.:evaluation-aborted.()...(with |
| 11efa0 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2d 67 | -current-buffer.(slime-channel-g |
| 11efc0 | 65 74 20 73 65 6c 66 20 27 62 75 66 66 65 72 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | et.self.'buffer).....(goto-char. |
| 11efe0 | 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 69 6e | (point-max)).....(slime-mrepl-in |
| 11f000 | 73 65 72 74 20 22 3b 20 45 76 61 6c 75 61 74 69 6f 6e 20 61 62 6f 72 74 65 64 5c 6e 22 29 29 29 | sert.";.Evaluation.aborted\n"))) |
| 11f020 | 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 63 68 61 6e 6e 65 6c 2d 6d 65 74 68 6f 64 20 6c | ..(slime-define-channel-method.l |
| 11f040 | 69 73 74 65 6e 65 72 20 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 29 0a 20 | istener.:write-string.(string).. |
| 11f060 | 20 28 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 77 72 69 74 65 2d 73 74 72 69 6e 67 20 73 65 6c 66 20 | .(slime-mrepl-write-string.self. |
| 11f080 | 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 77 72 69 | string))..(defun.slime-mrepl-wri |
| 11f0a0 | 74 65 2d 73 74 72 69 6e 67 20 28 73 65 6c 66 20 73 74 72 69 6e 67 29 0a 20 20 28 77 69 74 68 2d | te-string.(self.string)...(with- |
| 11f0c0 | 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2d 67 65 | current-buffer.(slime-channel-ge |
| 11f0e0 | 74 20 73 65 6c 66 20 27 62 75 66 66 65 72 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | t.self.'buffer).....(goto-char.( |
| 11f100 | 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 6d 61 72 6b 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6d 72 | slime-mrepl-mark)).....(slime-mr |
| 11f120 | 65 70 6c 2d 69 6e 73 65 72 74 20 73 74 72 69 6e 67 29 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 | epl-insert.string)))..(slime-def |
| 11f140 | 69 6e 65 2d 63 68 61 6e 6e 65 6c 2d 6d 65 74 68 6f 64 20 6c 69 73 74 65 6e 65 72 20 3a 73 65 74 | ine-channel-method.listener.:set |
| 11f160 | 2d 72 65 61 64 2d 6d 6f 64 65 20 28 6d 6f 64 65 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e | -read-mode.(mode)...(with-curren |
| 11f180 | 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2d 67 65 74 20 73 65 6c 66 | t-buffer.(slime-channel-get.self |
| 11f1a0 | 20 27 62 75 66 66 65 72 29 0a 20 20 20 20 28 63 6c 2d 65 63 61 73 65 20 6d 6f 64 65 0a 20 20 20 | .'buffer).....(cl-ecase.mode.... |
| 11f1c0 | 20 20 20 28 3a 72 65 61 64 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 65 78 70 65 | ...(:read.(setq.slime-mrepl-expe |
| 11f1e0 | 63 74 2d 73 65 78 70 20 6e 69 6c 29 0a 09 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 5b 4c 69 | ct-sexp.nil).......(message."[Li |
| 11f200 | 73 74 65 6e 65 72 20 69 73 20 77 61 69 74 69 6e 67 20 66 6f 72 20 69 6e 70 75 74 5d 22 29 29 0a | stener.is.waiting.for.input]")). |
| 11f220 | 20 20 20 20 20 20 28 3a 65 76 61 6c 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 65 | ......(:eval.(setq.slime-mrepl-e |
| 11f240 | 78 70 65 63 74 2d 73 65 78 70 20 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | xpect-sexp.t)))))..(defun.slime- |
| 11f260 | 6d 72 65 70 6c 2d 72 65 74 75 72 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 64 2d 6f 66 2d 69 | mrepl-return.(&optional.end-of-i |
| 11f280 | 6e 70 75 74 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 73 6c 69 | nput)...(interactive."P")...(sli |
| 11f2a0 | 6d 65 2d 63 68 65 63 6b 2d 63 6f 6e 6e 65 63 74 65 64 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 | me-check-connected)...(goto-char |
| 11f2c0 | 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 73 6c 69 6d | .(point-max))...(cond.((and.slim |
| 11f2e0 | 65 2d 6d 72 65 70 6c 2d 65 78 70 65 63 74 2d 73 65 78 70 0a 09 20 20 20 20 20 20 28 6f 72 20 28 | e-mrepl-expect-sexp........(or.( |
| 11f300 | 73 6c 69 6d 65 2d 69 6e 70 75 74 2d 63 6f 6d 70 6c 65 74 65 2d 70 20 28 73 6c 69 6d 65 2d 6d 72 | slime-input-complete-p.(slime-mr |
| 11f320 | 65 70 6c 2d 6d 61 72 6b 29 20 28 70 6f 69 6e 74 29 29 0a 09 09 20 20 65 6e 64 2d 6f 66 2d 69 6e | epl-mark).(point)).....end-of-in |
| 11f340 | 70 75 74 29 29 0a 09 20 28 63 6f 6d 69 6e 74 2d 73 65 6e 64 2d 69 6e 70 75 74 29 29 0a 09 28 28 | put))...(comint-send-input))..(( |
| 11f360 | 6e 6f 74 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 65 78 70 65 63 74 2d 73 65 78 70 29 0a 09 20 28 | not.slime-mrepl-expect-sexp)...( |
| 11f380 | 75 6e 6c 65 73 73 20 65 6e 64 2d 6f 66 2d 69 6e 70 75 74 0a 09 20 20 20 28 69 6e 73 65 72 74 20 | unless.end-of-input.....(insert. |
| 11f3a0 | 22 5c 6e 22 29 29 0a 09 20 28 63 6f 6d 69 6e 74 2d 73 65 6e 64 2d 69 6e 70 75 74 20 74 29 29 0a | "\n"))...(comint-send-input.t)). |
| 11f3c0 | 20 20 20 20 20 20 20 20 28 74 0a 09 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a 09 20 28 69 6e | ........(t...(insert."\n")...(in |
| 11f3e0 | 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 | ferior-slime-indent-line)....... |
| 11f400 | 20 20 20 28 6d 65 73 73 61 67 65 20 22 5b 69 6e 70 75 74 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 | ...(message."[input.not.complete |
| 11f420 | 5d 22 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 72 65 63 65 6e 74 65 72 29 29 0a | ]")))...(slime-mrepl-recenter)). |
| 11f440 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 69 6e 70 75 74 2d 73 65 6e 64 65 72 | .(defun.slime-mrepl-input-sender |
| 11f460 | 20 28 70 72 6f 63 20 73 74 72 69 6e 67 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 73 65 | .(proc.string)...(slime-mrepl-se |
| 11f480 | 6e 64 2d 73 74 72 69 6e 67 20 28 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 | nd-string.(substring-no-properti |
| 11f4a0 | 65 73 20 73 74 72 69 6e 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 72 65 70 6c | es.string)))..(defun.slime-mrepl |
| 11f4c0 | 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 63 | -send-string.(string.&optional.c |
| 11f4e0 | 6f 6d 6d 61 6e 64 2d 73 74 72 69 6e 67 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 73 65 | ommand-string)...(slime-mrepl-se |
| 11f500 | 6e 64 20 60 28 3a 70 72 6f 63 65 73 73 20 2c 73 74 72 69 6e 67 29 29 29 0a 0a 28 64 65 66 75 6e | nd.`(:process.,string)))..(defun |
| 11f520 | 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 73 65 6e 64 20 28 6d 73 67 29 0a 20 20 22 53 65 6e 64 20 | .slime-mrepl-send.(msg)..."Send. |
| 11f540 | 4d 53 47 20 74 6f 20 74 68 65 20 72 65 6d 6f 74 65 20 63 68 61 6e 6e 65 6c 2e 22 0a 20 20 28 73 | MSG.to.the.remote.channel."...(s |
| 11f560 | 6c 69 6d 65 2d 73 65 6e 64 2d 74 6f 2d 72 65 6d 6f 74 65 2d 63 68 61 6e 6e 65 6c 20 73 6c 69 6d | lime-send-to-remote-channel.slim |
| 11f580 | 65 2d 6d 72 65 70 6c 2d 72 65 6d 6f 74 65 2d 63 68 61 6e 6e 65 6c 20 6d 73 67 29 29 0a 0a 28 64 | e-mrepl-remote-channel.msg))..(d |
| 11f5a0 | 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 65 77 2d 6d 72 65 70 6c 20 28 29 0a 20 20 22 43 72 65 61 74 | efun.slime-new-mrepl.()..."Creat |
| 11f5c0 | 65 20 61 20 6e 65 77 20 6c 69 73 74 65 6e 65 72 20 77 69 6e 64 6f 77 2e 22 0a 20 20 28 69 6e 74 | e.a.new.listener.window."...(int |
| 11f5e0 | 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 68 61 6e 6e 65 6c 20 28 73 6c 69 6d | eractive)...(let.((channel.(slim |
| 11f600 | 65 2d 6d 61 6b 65 2d 63 68 61 6e 6e 65 6c 20 73 6c 69 6d 65 2d 6c 69 73 74 65 6e 65 72 2d 63 68 | e-make-channel.slime-listener-ch |
| 11f620 | 61 6e 6e 65 6c 2d 6d 65 74 68 6f 64 73 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c | annel-methods))).....(slime-eval |
| 11f640 | 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b 2d 6d 72 65 70 6c 3a 63 72 65 | -async.........`(swank-mrepl:cre |
| 11f660 | 61 74 65 2d 6d 72 65 70 6c 20 2c 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2e 69 64 20 63 68 61 | ate-mrepl.,(slime-channel.id.cha |
| 11f680 | 6e 6e 65 6c 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 63 75 72 72 79 20 0a 20 20 20 20 | nnel)).......(slime-rcurry...... |
| 11f6a0 | 20 20 20 28 6c 61 6d 62 64 61 20 28 72 65 73 75 6c 74 20 63 68 61 6e 6e 65 6c 29 0a 20 20 20 20 | ...(lambda.(result.channel)..... |
| 11f6c0 | 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 72 65 6d | .....(cl-destructuring-bind.(rem |
| 11f6e0 | 6f 74 65 20 74 68 72 65 61 64 2d 69 64 20 70 61 63 6b 61 67 65 20 70 72 6f 6d 70 74 29 20 72 65 | ote.thread-id.package.prompt).re |
| 11f700 | 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 | sult............(pop-to-buffer.( |
| 11f720 | 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 | generate-new-buffer.(slime-buffe |
| 11f740 | 72 2d 6e 61 6d 65 20 3a 6d 72 65 70 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | r-name.:mrepl)))............(sli |
| 11f760 | 6d 65 2d 6d 72 65 70 6c 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | me-mrepl-mode)............(setq. |
| 11f780 | 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 2d 69 64 29 0a | slime-current-thread.thread-id). |
| 11f7a0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f | ...........(setq.slime-buffer-co |
| 11f7c0 | 6e 6e 65 63 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 | nnection.(slime-connection)).... |
| 11f7e0 | 20 20 20 20 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c | ........(set.(make-local-variabl |
| 11f800 | 65 20 27 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 72 65 6d 6f 74 65 2d 63 68 61 6e 6e 65 6c 29 20 72 | e.'slime-mrepl-remote-channel).r |
| 11f820 | 65 6d 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c | emote)............(slime-channel |
| 11f840 | 2d 70 75 74 20 63 68 61 6e 6e 65 6c 20 27 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 | -put.channel.'buffer.(current-bu |
| 11f860 | 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c | ffer))............(slime-channel |
| 11f880 | 2d 73 65 6e 64 20 63 68 61 6e 6e 65 6c 20 60 28 3a 70 72 6f 6d 70 74 20 2c 70 61 63 6b 61 67 65 | -send.channel.`(:prompt.,package |
| 11f8a0 | 20 2c 70 72 6f 6d 70 74 29 29 29 29 0a 20 20 20 20 20 20 20 63 68 61 6e 6e 65 6c 29 29 29 29 0a | .,prompt))))........channel)))). |
| 11f8c0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 20 28 29 0a 20 20 28 6c 65 74 20 28 28 | .(defun.slime-mrepl.()...(let.(( |
| 11f8e0 | 63 6f 6e 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 63 | conn.(slime-connection))).....(c |
| 11f900 | 6c 2d 66 69 6e 64 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 78 29 20 0a 09 20 20 20 20 20 20 20 28 | l-find-if.(lambda.(x)..........( |
| 11f920 | 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 78 20 0a 09 09 20 28 61 6e 64 20 28 | with-current-buffer.x.....(and.( |
| 11f940 | 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 6d 72 65 70 6c 2d 6d 6f 64 65 29 | eq.major-mode.'slime-mrepl-mode) |
| 11f960 | 0a 09 09 20 20 20 20 20 20 28 65 71 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 6e | .........(eq.(slime-current-conn |
| 11f980 | 65 63 74 69 6f 6e 29 20 63 6f 6e 6e 29 29 29 29 0a 09 20 20 20 20 20 28 62 75 66 66 65 72 2d 6c | ection).conn)))).......(buffer-l |
| 11f9a0 | 69 73 74 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 | ist))))..(def-slime-selector-met |
| 11f9c0 | 68 6f 64 20 3f 6d 0a 20 20 22 46 69 72 73 74 20 6d 72 65 70 6c 2d 62 75 66 66 65 72 22 0a 20 20 | hod.?m..."First.mrepl-buffer"... |
| 11f9e0 | 28 6f 72 20 28 73 6c 69 6d 65 2d 6d 72 65 70 6c 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 | (or.(slime-mrepl).......(error." |
| 11fa00 | 4e 6f 20 6d 72 65 70 6c 20 62 75 66 66 65 72 20 28 25 73 29 22 20 28 73 6c 69 6d 65 2d 63 6f 6e | No.mrepl.buffer.(%s)".(slime-con |
| 11fa20 | 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d | nection-name))))..(provide.'slim |
| 11fa40 | 65 2d 6d 72 65 70 6c 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | e-mrepl)........................ |
| 11fa60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fa80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11faa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fb00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fb20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fc00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 63 6f 6e 74 72 69 62 2f 73 77 61 6e 6b 2d 72 65 70 6c 2e 6c 69 | slime-2.31/contrib/swank-repl.li |
| 11fc20 | 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | sp.............................. |
| 11fc40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fc60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 11fc80 | 30 30 33 36 31 36 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 36 33 34 00 20 30 00 00 00 | 0036163.00000000000.015634..0... |
| 11fca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fcc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fd00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 11fd20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 11fd40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fd60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fd80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fdc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11fe00 | 3b 3b 3b 20 73 77 61 6e 6b 2d 72 65 70 6c 2e 6c 69 73 70 20 2d 2d 2d 20 53 65 72 76 65 72 20 73 | ;;;.swank-repl.lisp.---.Server.s |
| 11fe20 | 69 64 65 20 70 61 72 74 20 6f 66 20 74 68 65 20 4c 69 73 70 20 6c 69 73 74 65 6e 65 72 2e 0a 3b | ide.part.of.the.Lisp.listener..; |
| 11fe40 | 3b 0a 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 0a 28 69 6e 2d | ;.;;.License:.public.domain.(in- |
| 11fe60 | 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 29 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e | package.swank)..(defpackage.swan |
| 11fe80 | 6b 2d 72 65 70 6c 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 | k-repl...(:use.cl.swank/backend) |
| 11fea0 | 0a 20 20 28 3a 65 78 70 6f 72 74 20 2a 73 65 6e 64 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2d 66 | ...(:export.*send-repl-results-f |
| 11fec0 | 75 6e 63 74 69 6f 6e 2a 0a 20 20 20 20 20 20 20 20 20 20 20 63 6c 65 61 72 2d 72 65 70 6c 2d 76 | unction*............clear-repl-v |
| 11fee0 | 61 72 69 61 62 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 74 65 6e 65 72 2d 65 76 61 | ariables............listener-eva |
| 11ff00 | 6c 0a 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 74 65 6e 65 72 2d 67 65 74 2d 76 61 6c 75 65 0a | l............listener-get-value. |
| 11ff20 | 20 20 20 20 20 20 20 20 20 20 20 63 72 65 61 74 65 2d 72 65 70 6c 0a 20 20 20 20 20 20 20 20 20 | ...........create-repl.......... |
| 11ff40 | 20 20 6c 69 73 74 65 6e 65 72 2d 73 61 76 65 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 | ..listener-save-value........... |
| 11ff60 | 20 72 65 64 69 72 65 63 74 2d 74 72 61 63 65 2d 6f 75 74 70 75 74 29 0a 20 20 28 3a 69 6d 70 6f | .redirect-trace-output)...(:impo |
| 11ff80 | 72 74 2d 66 72 6f 6d 0a 20 20 20 73 77 61 6e 6b 0a 0a 20 20 20 2a 64 65 66 61 75 6c 74 2d 77 6f | rt-from....swank.....*default-wo |
| 11ffa0 | 72 6b 65 72 2d 74 68 72 65 61 64 2d 62 69 6e 64 69 6e 67 73 2a 0a 0a 20 20 20 2a 6c 6f 6f 70 62 | rker-thread-bindings*.....*loopb |
| 11ffc0 | 61 63 6b 2d 69 6e 74 65 72 66 61 63 65 2a 0a 0a 20 20 20 61 64 64 2d 68 6f 6f 6b 0a 20 20 20 2a | ack-interface*.....add-hook....* |
| 11ffe0 | 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6c 6f 73 65 64 2d 68 6f 6f 6b 2a 0a 0a 20 20 20 65 76 61 6c | connection-closed-hook*.....eval |
| 120000 | 2d 72 65 67 69 6f 6e 0a 20 20 20 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 0a 0a 20 | -region....with-buffer-syntax... |
| 120020 | 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 73 6f 63 6b 65 | ..connection....connection.socke |
| 120040 | 74 2d 69 6f 0a 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 72 65 70 6c 2d 72 65 73 75 6c 74 73 0a | t-io....connection.repl-results. |
| 120060 | 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 69 6e 70 75 74 0a 20 20 20 63 6f 6e 6e | ...connection.user-input....conn |
| 120080 | 65 63 74 69 6f 6e 2e 75 73 65 72 2d 6f 75 74 70 75 74 0a 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e | ection.user-output....connection |
| 1200a0 | 2e 75 73 65 72 2d 69 6f 0a 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 74 72 61 63 65 2d 6f 75 74 | .user-io....connection.trace-out |
| 1200c0 | 70 75 74 0a 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 65 6e 76 0a 0a 20 20 20 6d 75 6c 74 69 74 | put....connection.env.....multit |
| 1200e0 | 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 6d 63 6f 6e 6e 2e 61 63 74 69 | hreaded-connection....mconn.acti |
| 120100 | 76 65 2d 74 68 72 65 61 64 73 0a 20 20 20 6d 63 6f 6e 6e 2e 72 65 70 6c 2d 74 68 72 65 61 64 0a | ve-threads....mconn.repl-thread. |
| 120120 | 20 20 20 6d 63 6f 6e 6e 2e 61 75 74 6f 2d 66 6c 75 73 68 2d 74 68 72 65 61 64 0a 20 20 20 75 73 | ...mconn.auto-flush-thread....us |
| 120140 | 65 2d 74 68 72 65 61 64 73 2d 70 0a 0a 20 20 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f | e-threads-p.....*emacs-connectio |
| 120160 | 6e 2a 0a 20 20 20 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 77 69 74 68 | n*....default-connection....with |
| 120180 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 0a 20 20 20 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 0a 20 20 | -connection.....send-to-emacs... |
| 1201a0 | 20 2a 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 2a 0a 20 20 20 68 61 6e 64 6c 65 | .*communication-style*....handle |
| 1201c0 | 2d 72 65 71 75 65 73 74 73 0a 20 20 20 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 0a 20 20 20 6d | -requests....wait-for-event....m |
| 1201e0 | 61 6b 65 2d 74 61 67 0a 20 20 20 74 68 72 65 61 64 2d 66 6f 72 2d 65 76 61 6c 75 61 74 69 6f 6e | ake-tag....thread-for-evaluation |
| 120200 | 0a 20 20 20 73 6f 63 6b 65 74 2d 71 75 65 73 74 0a 0a 20 20 20 61 75 74 68 65 6e 74 69 63 61 74 | ....socket-quest.....authenticat |
| 120220 | 65 2d 63 6c 69 65 6e 74 0a 20 20 20 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 0a 0a 20 20 20 61 | e-client....encode-message.....a |
| 120240 | 75 74 6f 2d 66 6c 75 73 68 2d 6c 6f 6f 70 0a 20 20 20 63 6c 65 61 72 2d 75 73 65 72 2d 69 6e 70 | uto-flush-loop....clear-user-inp |
| 120260 | 75 74 0a 0a 20 20 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 0a 20 20 20 63 61 74 0a | ut.....current-thread-id....cat. |
| 120280 | 20 20 20 77 69 74 68 2d 73 74 72 75 63 74 2a 0a 20 20 20 77 69 74 68 2d 72 65 74 72 79 2d 72 65 | ...with-struct*....with-retry-re |
| 1202a0 | 73 74 61 72 74 0a 20 20 20 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 0a 0a 20 20 20 70 61 63 6b 61 | start....with-bindings.....packa |
| 1202c0 | 67 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 70 72 6f 6d 70 74 0a 20 20 20 66 69 6e 64 2d 65 78 74 | ge-string-for-prompt....find-ext |
| 1202e0 | 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 6f 72 2d 6c 6f 73 65 0a 0a 20 20 20 64 65 66 73 6c 69 6d | ernal-format-or-lose.....defslim |
| 120300 | 65 66 75 6e 0a 0a 20 20 20 3b 3b 20 46 49 58 4d 45 3a 20 74 68 6f 73 65 20 73 68 6f 75 6c 64 20 | efun.....;;.FIXME:.those.should. |
| 120320 | 62 65 20 65 78 70 6f 72 74 65 64 20 66 72 6f 6d 20 73 77 61 6e 6b 2d 72 65 70 6c 20 6f 6e 6c 79 | be.exported.from.swank-repl.only |
| 120340 | 2c 20 62 75 74 20 68 6f 77 20 74 6f 0a 20 20 20 3b 3b 20 64 6f 20 74 68 61 74 20 77 68 69 74 68 | ,.but.how.to....;;.do.that.whith |
| 120360 | 6f 75 74 20 62 72 65 61 6b 69 6e 67 20 69 6e 69 74 20 66 69 6c 65 73 3f 0a 20 20 20 2a 67 6c 6f | out.breaking.init.files?....*glo |
| 120380 | 62 61 6c 6c 79 2d 72 65 64 69 72 65 63 74 2d 69 6f 2a 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 | bally-redirect-io*))..(in-packag |
| 1203a0 | 65 20 73 77 61 6e 6b 2d 72 65 70 6c 29 0a 0a 28 64 65 66 76 61 72 20 2a 67 6c 6f 62 61 6c 6c 79 | e.swank-repl)..(defvar.*globally |
| 1203c0 | 2d 72 65 64 69 72 65 63 74 2d 69 6f 2a 20 3a 73 74 61 72 74 65 64 2d 66 72 6f 6d 2d 65 6d 61 63 | -redirect-io*.:started-from-emac |
| 1203e0 | 73 0a 20 20 22 57 68 65 6e 20 54 20 67 6c 6f 62 61 6c 6c 79 20 72 65 64 69 72 65 63 74 20 61 6c | s..."When.T.globally.redirect.al |
| 120400 | 6c 20 73 74 61 6e 64 61 72 64 20 73 74 72 65 61 6d 73 20 74 6f 20 45 6d 61 63 73 2e 0a 57 68 65 | l.standard.streams.to.Emacs..Whe |
| 120420 | 6e 20 3a 53 54 41 52 54 45 44 2d 46 52 4f 4d 2d 45 4d 41 43 53 20 72 65 64 69 72 65 63 74 20 77 | n.:STARTED-FROM-EMACS.redirect.w |
| 120440 | 68 65 6e 20 6c 61 75 6e 63 68 65 64 20 62 79 20 4d 2d 78 20 73 6c 69 6d 65 22 29 0a 0a 28 64 65 | hen.launched.by.M-x.slime")..(de |
| 120460 | 66 75 6e 20 67 6c 6f 62 61 6c 6c 79 2d 72 65 64 69 72 65 63 74 2d 69 6f 2d 70 20 28 29 0a 20 20 | fun.globally-redirect-io-p.()... |
| 120480 | 28 63 61 73 65 20 2a 67 6c 6f 62 61 6c 6c 79 2d 72 65 64 69 72 65 63 74 2d 69 6f 2a 0a 20 20 20 | (case.*globally-redirect-io*.... |
| 1204a0 | 20 28 28 74 29 20 74 29 0a 20 20 20 20 28 3a 73 74 61 72 74 65 64 2d 66 72 6f 6d 2d 65 6d 61 63 | .((t).t).....(:started-from-emac |
| 1204c0 | 73 20 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 2a 73 74 61 72 74 65 64 2d 66 72 6f 6d 2d 65 6d 61 | s.swank-loader:*started-from-ema |
| 1204e0 | 63 73 2a 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 70 65 6e 2d 73 74 72 65 61 6d 73 20 28 63 6f 6e | cs*)))..(defun.open-streams.(con |
| 120500 | 6e 65 63 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 34 20 73 74 72 65 61 6d 73 | nection)..."Return.the.4.streams |
| 120520 | 20 66 6f 72 20 49 4f 20 72 65 64 69 72 65 63 74 69 6f 6e 3a 0a 49 4e 50 55 54 20 4f 55 54 50 55 | .for.IO.redirection:.INPUT.OUTPU |
| 120540 | 54 20 49 4f 20 52 45 50 4c 2d 52 45 53 55 4c 54 53 22 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e 70 | T.IO.REPL-RESULTS"...(let*.((inp |
| 120560 | 75 74 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 | ut-fn............(lambda.()..... |
| 120580 | 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 63 6f 6e 6e 65 | .........(with-connection.(conne |
| 1205a0 | 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 69 6d 70 | ction)................(with-simp |
| 1205c0 | 6c 65 2d 72 65 73 74 61 72 74 20 28 61 62 6f 72 74 2d 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 | le-restart.(abort-read.......... |
| 1205e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 41 62 6f | ............................"Abo |
| 120600 | 72 74 20 72 65 61 64 69 6e 67 20 69 6e 70 75 74 20 66 72 6f 6d 20 45 6d 61 63 73 2e 22 29 0a 20 | rt.reading.input.from.Emacs.").. |
| 120620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 75 73 65 72 2d 69 6e 70 75 74 | ................(read-user-input |
| 120640 | 2d 66 72 6f 6d 2d 65 6d 61 63 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 20 28 6d | -from-emacs)))))..........(in.(m |
| 120660 | 61 6b 65 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 69 6e 70 75 74 2d 66 6e 29 29 0a 20 20 20 20 | ake-input-stream.input-fn))..... |
| 120680 | 20 20 20 20 20 28 6f 75 74 20 28 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 28 6d | .....(out.(make-output-stream.(m |
| 1206a0 | 61 6b 65 2d 6f 75 74 70 75 74 2d 66 75 6e 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 | ake-output-function.connection)) |
| 1206c0 | 29 0a 20 20 20 20 20 20 20 20 20 28 69 6f 20 28 6d 61 6b 65 2d 74 77 6f 2d 77 61 79 2d 73 74 72 | )..........(io.(make-two-way-str |
| 1206e0 | 65 61 6d 20 69 6e 20 6f 75 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 2d 72 65 73 75 | eam.in.out))..........(repl-resu |
| 120700 | 6c 74 73 20 28 73 77 61 6e 6b 3a 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 66 6f | lts.(swank:make-output-stream-fo |
| 120720 | 72 2d 74 61 72 67 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | r-target.connection............. |
| 120740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 120760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 70 6c 2d 72 65 73 75 6c 74 29 29 29 0a | ................:repl-result))). |
| 120780 | 20 20 20 20 28 74 79 70 65 63 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 28 | ....(typecase.connection.......( |
| 1207a0 | 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 | multithreaded-connection........ |
| 1207c0 | 28 73 65 74 66 20 28 6d 63 6f 6e 6e 2e 61 75 74 6f 2d 66 6c 75 73 68 2d 74 68 72 65 61 64 20 63 | (setf.(mconn.auto-flush-thread.c |
| 1207e0 | 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 61 75 | onnection)..............(make-au |
| 120800 | 74 6f 2d 66 6c 75 73 68 2d 74 68 72 65 61 64 20 6f 75 74 29 29 29 29 0a 20 20 20 20 28 76 61 6c | to-flush-thread.out)))).....(val |
| 120820 | 75 65 73 20 69 6e 20 6f 75 74 20 69 6f 20 72 65 70 6c 2d 72 65 73 75 6c 74 73 29 29 29 0a 0a 28 | ues.in.out.io.repl-results)))..( |
| 120840 | 64 65 66 75 6e 20 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 66 75 6e 63 74 69 6f 6e 20 28 63 6f 6e 6e | defun.make-output-function.(conn |
| 120860 | 65 63 74 69 6f 6e 29 0a 20 20 22 43 72 65 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 73 65 | ection)..."Create.function.to.se |
| 120880 | 6e 64 20 75 73 65 72 20 6f 75 74 70 75 74 20 74 6f 20 45 6d 61 63 73 2e 22 0a 20 20 28 6c 61 6d | nd.user.output.to.Emacs."...(lam |
| 1208a0 | 62 64 61 20 28 73 74 72 69 6e 67 29 0a 20 20 20 20 28 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f | bda.(string).....(with-connectio |
| 1208c0 | 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d | n.(connection).......(send-to-em |
| 1208e0 | 61 63 73 20 60 28 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 20 2c 73 74 72 69 6e 67 20 6e 69 6c 20 | acs.`(:write-string.,string.nil. |
| 120900 | 2c 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 | ,(current-thread-id))).......;;. |
| 120920 | 57 61 69 74 20 66 6f 72 20 45 6d 61 63 73 20 74 6f 20 66 69 6e 69 73 68 20 77 72 69 74 69 6e 67 | Wait.for.Emacs.to.finish.writing |
| 120940 | 2c 20 6f 74 68 65 72 77 69 73 65 20 6f 6e 20 63 6f 6e 74 69 6e 75 6f 75 73 0a 20 20 20 20 20 20 | ,.otherwise.on.continuous....... |
| 120960 | 3b 3b 20 6f 75 74 70 75 74 20 69 74 73 20 69 6e 70 75 74 20 62 75 66 66 65 72 20 77 69 6c 6c 20 | ;;.output.its.input.buffer.will. |
| 120980 | 66 69 6c 6c 20 75 70 20 61 6e 64 20 6e 6f 74 68 69 6e 67 20 65 6c 73 65 20 77 69 6c 6c 20 62 65 | fill.up.and.nothing.else.will.be |
| 1209a0 | 0a 20 20 20 20 20 20 3b 3b 20 70 72 6f 63 65 73 73 65 64 2c 20 6d 6f 73 74 20 69 6d 70 6f 72 74 | .......;;.processed,.most.import |
| 1209c0 | 61 6e 74 6c 79 20 61 6e 20 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 72 65 71 75 65 73 | antly.an.interrupt-thread.reques |
| 1209e0 | 74 2e 0a 20 20 20 20 20 20 28 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 20 60 28 3a 77 72 69 74 | t........(wait-for-event.`(:writ |
| 120a00 | 65 2d 64 6f 6e 65 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 74 68 72 65 61 64 2d 66 | e-done)))))..(defmethod.thread-f |
| 120a20 | 6f 72 2d 65 76 61 6c 75 61 74 69 6f 6e 20 3a 61 72 6f 75 6e 64 20 28 28 63 6f 6e 6e 65 63 74 69 | or-evaluation.:around.((connecti |
| 120a40 | 6f 6e 20 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 09 09 09 | on.multithreaded-connection).... |
| 120a60 | 09 20 20 20 20 20 20 20 20 20 20 28 69 64 20 28 65 71 6c 20 3a 66 69 6e 64 2d 65 78 69 73 74 69 | ...........(id.(eql.:find-existi |
| 120a80 | 6e 67 29 29 29 0a 20 20 28 6f 72 20 28 63 61 72 20 28 6d 63 6f 6e 6e 2e 61 63 74 69 76 65 2d 74 | ng)))...(or.(car.(mconn.active-t |
| 120aa0 | 68 72 65 61 64 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 28 66 69 6e 64 2d | hreads.connection)).......(find- |
| 120ac0 | 72 65 70 6c 2d 74 68 72 65 61 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 6d | repl-thread.connection)))..(defm |
| 120ae0 | 65 74 68 6f 64 20 74 68 72 65 61 64 2d 66 6f 72 2d 65 76 61 6c 75 61 74 69 6f 6e 20 28 28 63 6f | ethod.thread-for-evaluation.((co |
| 120b00 | 6e 6e 65 63 74 69 6f 6e 20 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f | nnection.multithreaded-connectio |
| 120b20 | 6e 29 0a 09 09 09 09 20 20 28 69 64 20 28 65 71 6c 20 3a 72 65 70 6c 2d 74 68 72 65 61 64 29 29 | n).......(id.(eql.:repl-thread)) |
| 120b40 | 29 0a 20 20 28 66 69 6e 64 2d 72 65 70 6c 2d 74 68 72 65 61 64 20 63 6f 6e 6e 65 63 74 69 6f 6e | )...(find-repl-thread.connection |
| 120b60 | 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 72 65 70 6c 2d 74 68 72 65 61 64 20 28 63 6f 6e | ))..(defun.find-repl-thread.(con |
| 120b80 | 6e 65 63 74 69 6f 6e 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 28 75 73 65 2d 74 68 72 65 | nection)...(cond.((not.(use-thre |
| 120ba0 | 61 64 73 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 | ads-p))..........(current-thread |
| 120bc0 | 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 68 | )).........(t..........(let.((th |
| 120be0 | 72 65 61 64 20 28 6d 63 6f 6e 6e 2e 72 65 70 6c 2d 74 68 72 65 61 64 20 63 6f 6e 6e 65 63 74 69 | read.(mconn.repl-thread.connecti |
| 120c00 | 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 74 68 72 | on)))............(cond.((not.thr |
| 120c20 | 65 61 64 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 | ead).nil)..................((and |
| 120c40 | 20 28 6e 6f 74 20 28 65 71 20 74 68 72 65 61 64 20 27 61 62 6f 72 74 65 64 29 29 0a 20 20 20 20 | .(not.(eq.thread.'aborted))..... |
| 120c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 2d 61 6c 69 76 65 | ...................(thread-alive |
| 120c80 | 2d 70 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 | -p.thread))...................th |
| 120ca0 | 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 | read)..................(t....... |
| 120cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 63 6f 6e 6e 2e 72 65 70 6c 2d 74 68 | ............(setf.(mconn.repl-th |
| 120ce0 | 72 65 61 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | read.connection)................ |
| 120d00 | 20 20 20 20 20 20 20 20 20 28 73 70 61 77 6e 2d 72 65 70 6c 2d 74 68 72 65 61 64 20 63 6f 6e 6e | .........(spawn-repl-thread.conn |
| 120d20 | 65 63 74 69 6f 6e 20 22 6e 65 77 2d 72 65 70 6c 2d 74 68 72 65 61 64 22 29 29 29 29 29 29 29 29 | ection."new-repl-thread")))))))) |
| 120d40 | 0a 0a 28 64 65 66 75 6e 20 73 70 61 77 6e 2d 72 65 70 6c 2d 74 68 72 65 61 64 20 28 63 6f 6e 6e | ..(defun.spawn-repl-thread.(conn |
| 120d60 | 65 63 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 28 73 70 61 77 6e 20 28 6c 61 6d 62 64 61 20 28 29 | ection.name)...(spawn.(lambda.() |
| 120d80 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 20 2a 64 65 66 61 | ............(with-bindings.*defa |
| 120da0 | 75 6c 74 2d 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 20 20 | ult-worker-thread-bindings*..... |
| 120dc0 | 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 2d 6c 6f 6f 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 | .........(repl-loop.connection)) |
| 120de0 | 29 0a 20 20 20 20 20 20 20 20 20 3a 6e 61 6d 65 20 6e 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 | )..........:name.name))..(defun. |
| 120e00 | 72 65 70 6c 2d 6c 6f 6f 70 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 75 6e 77 69 6e 64 | repl-loop.(connection)...(unwind |
| 120e20 | 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 2d 72 65 71 75 65 73 74 73 | -protect........(handle-requests |
| 120e40 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 77 68 65 6e 20 28 74 79 70 65 70 20 63 6f | .connection).....(when.(typep.co |
| 120e60 | 6e 6e 65 63 74 69 6f 6e 20 27 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 | nnection.'multithreaded-connecti |
| 120e80 | 6f 6e 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 63 6f 6e 6e 2e 72 65 70 6c 2d 74 68 72 65 | on).......(setf.(mconn.repl-thre |
| 120ea0 | 61 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 61 62 6f 72 | ad.connection).............'abor |
| 120ec0 | 74 65 64 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 52 65 64 69 72 65 63 74 69 6f 6e 20 64 75 72 69 6e | ted))))..;;;;;.Redirection.durin |
| 120ee0 | 67 20 72 65 71 75 65 73 74 73 0a 3b 3b 3b 0a 3b 3b 3b 20 57 65 20 61 6c 77 61 79 73 20 72 65 64 | g.requests.;;;.;;;.We.always.red |
| 120f00 | 69 72 65 63 74 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 73 74 72 65 61 6d 73 20 74 6f 20 45 6d | irect.the.standard.streams.to.Em |
| 120f20 | 61 63 73 20 77 68 69 6c 65 20 65 76 61 6c 75 61 74 69 6e 67 0a 3b 3b 3b 20 61 6e 20 52 50 43 2e | acs.while.evaluating.;;;.an.RPC. |
| 120f40 | 20 54 68 69 73 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 73 69 6d 70 6c 65 20 64 79 6e 61 6d 69 | .This.is.done.with.simple.dynami |
| 120f60 | 63 20 62 69 6e 64 69 6e 67 73 2e 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 72 65 61 74 65 | c.bindings...(defslimefun.create |
| 120f80 | 2d 72 65 70 6c 20 28 74 61 72 67 65 74 29 0a 20 20 28 61 73 73 65 72 74 20 28 65 71 20 74 61 72 | -repl.(target)...(assert.(eq.tar |
| 120fa0 | 67 65 74 20 6e 69 6c 29 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 6e 20 2a 65 6d 61 63 73 2d 63 | get.nil))...(let.((conn.*emacs-c |
| 120fc0 | 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 0a 20 20 20 20 28 69 6e 69 74 69 61 6c 69 7a 65 2d 73 74 72 | onnection*)).....(initialize-str |
| 120fe0 | 65 61 6d 73 2d 66 6f 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 29 0a 20 20 20 20 28 77 | eams-for-connection.conn).....(w |
| 121000 | 69 74 68 2d 73 74 72 75 63 74 2a 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 40 20 63 6f 6e 6e 29 | ith-struct*.(connection..@.conn) |
| 121020 | 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 40 20 65 6e 76 29 0a 09 20 20 20 20 60 28 28 2a 73 74 | .......(setf.(@.env)......`((*st |
| 121040 | 61 6e 64 61 72 64 2d 69 6e 70 75 74 2a 20 20 2e 20 2c 28 40 20 75 73 65 72 2d 69 6e 70 75 74 29 | andard-input*....,(@.user-input) |
| 121060 | 29 0a 09 20 20 20 20 20 20 2c 40 28 75 6e 6c 65 73 73 20 28 67 6c 6f 62 61 6c 6c 79 2d 72 65 64 | )........,@(unless.(globally-red |
| 121080 | 69 72 65 63 74 2d 69 6f 2d 70 29 0a 09 09 20 20 60 28 28 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 | irect-io-p).....`((*standard-out |
| 1210a0 | 70 75 74 2a 20 2e 20 2c 28 40 20 75 73 65 72 2d 6f 75 74 70 75 74 29 29 0a 09 09 20 20 20 20 28 | put*...,(@.user-output)).......( |
| 1210c0 | 2a 74 72 61 63 65 2d 6f 75 74 70 75 74 2a 20 20 20 20 2e 20 2c 28 6f 72 20 28 40 20 74 72 61 63 | *trace-output*......,(or.(@.trac |
| 1210e0 | 65 2d 6f 75 74 70 75 74 29 20 28 40 20 75 73 65 72 2d 6f 75 74 70 75 74 29 29 29 0a 09 09 20 20 | e-output).(@.user-output)))..... |
| 121100 | 20 20 28 2a 65 72 72 6f 72 2d 6f 75 74 70 75 74 2a 20 20 20 20 2e 20 2c 28 40 20 75 73 65 72 2d | ..(*error-output*......,(@.user- |
| 121120 | 6f 75 74 70 75 74 29 29 0a 09 09 20 20 20 20 28 2a 64 65 62 75 67 2d 69 6f 2a 20 20 20 20 20 20 | output)).......(*debug-io*...... |
| 121140 | 20 20 2e 20 2c 28 40 20 75 73 65 72 2d 69 6f 29 29 0a 09 09 20 20 20 20 28 2a 71 75 65 72 79 2d | ....,(@.user-io)).......(*query- |
| 121160 | 69 6f 2a 20 20 20 20 20 20 20 20 2e 20 2c 28 40 20 75 73 65 72 2d 69 6f 29 29 0a 09 09 20 20 20 | io*..........,(@.user-io))...... |
| 121180 | 20 28 2a 74 65 72 6d 69 6e 61 6c 2d 69 6f 2a 20 20 20 20 20 2e 20 2c 28 40 20 75 73 65 72 2d 69 | .(*terminal-io*.......,(@.user-i |
| 1211a0 | 6f 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 2a 63 6f 6e 6e 65 63 74 | o)))))).......(add-hook.*connect |
| 1211c0 | 69 6f 6e 2d 63 6c 6f 73 65 64 2d 68 6f 6f 6b 2a 20 27 75 70 64 61 74 65 2d 72 65 64 69 72 65 63 | ion-closed-hook*.'update-redirec |
| 1211e0 | 74 69 6f 6e 2d 61 66 74 65 72 2d 63 6c 6f 73 65 29 0a 20 20 20 20 20 20 28 74 79 70 65 63 61 73 | tion-after-close).......(typecas |
| 121200 | 65 20 63 6f 6e 6e 0a 09 28 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f | e.conn..(multithreaded-connectio |
| 121220 | 6e 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 73 77 61 6e 6b 3a 3a 2a 6d 61 69 6e 2d 74 | n..........(cond.(swank::*main-t |
| 121240 | 68 72 65 61 64 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 73 77 61 | hread*.................(send.swa |
| 121260 | 6e 6b 3a 3a 2a 6d 61 69 6e 2d 74 68 72 65 61 64 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nk::*main-thread*............... |
| 121280 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 72 75 6e 2d 6f 6e 2d 6d 61 69 6e 2d 74 68 72 65 61 | ........(list.:run-on-main-threa |
| 1212a0 | 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | d.............................(l |
| 1212c0 | 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ambda.()........................ |
| 1212e0 | 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 72 65 64 69 72 65 63 74 2d 67 6c 6f 62 61 6c 2d 69 6f | .......(maybe-redirect-global-io |
| 121300 | 20 63 6f 6e 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .conn).......................... |
| 121320 | 20 20 20 20 20 28 73 68 69 66 74 66 20 28 6d 63 6f 6e 6e 2e 72 65 70 6c 2d 74 68 72 65 61 64 20 | .....(shiftf.(mconn.repl-thread. |
| 121340 | 63 6f 6e 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | conn)........................... |
| 121360 | 20 20 20 20 20 20 20 20 20 20 20 20 73 77 61 6e 6b 3a 3a 2a 6d 61 69 6e 2d 74 68 72 65 61 64 2a | ............swank::*main-thread* |
| 121380 | 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .nil)........................... |
| 1213a0 | 20 20 20 20 28 73 77 61 6e 6b 3a 3a 77 69 74 68 2d 69 6f 2d 72 65 64 69 72 65 63 74 69 6f 6e 20 | ....(swank::with-io-redirection. |
| 1213c0 | 28 63 6f 6e 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (conn).......................... |
| 1213e0 | 20 20 20 20 20 20 20 28 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 20 2a 64 65 66 61 75 6c 74 2d 77 | .......(with-bindings.*default-w |
| 121400 | 6f 72 6b 65 72 2d 74 68 72 65 61 64 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 20 20 20 20 20 20 20 | orker-thread-bindings*.......... |
| 121420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 2d 6c | .........................(repl-l |
| 121440 | 6f 6f 70 20 63 6f 6e 6e 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | oop.conn)))))))................( |
| 121460 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 72 65 64 69 72 65 63 | t.................(maybe-redirec |
| 121480 | 74 2d 67 6c 6f 62 61 6c 2d 69 6f 20 63 6f 6e 6e 29 0a 09 20 20 20 20 20 20 20 20 28 73 65 74 66 | t-global-io.conn)..........(setf |
| 1214a0 | 20 28 6d 63 6f 6e 6e 2e 72 65 70 6c 2d 74 68 72 65 61 64 20 63 6f 6e 6e 29 0a 09 20 20 20 20 20 | .(mconn.repl-thread.conn)....... |
| 1214c0 | 20 20 20 20 20 20 20 20 20 28 73 70 61 77 6e 2d 72 65 70 6c 2d 74 68 72 65 61 64 20 63 6f 6e 6e | .........(spawn-repl-thread.conn |
| 1214e0 | 20 22 72 65 70 6c 2d 74 68 72 65 61 64 22 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 | ."repl-thread"))))).........(t.. |
| 121500 | 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 72 65 64 69 72 65 63 74 2d 67 6c 6f 62 61 6c 2d 69 | ........(maybe-redirect-global-i |
| 121520 | 6f 20 63 6f 6e 6e 29 29 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 28 70 61 63 6b 61 67 65 2d 6e | o.conn))).......(list.(package-n |
| 121540 | 61 6d 65 20 2a 70 61 63 6b 61 67 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b | ame.*package*).............(pack |
| 121560 | 61 67 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 70 72 6f 6d 70 74 20 2a 70 61 63 6b 61 67 65 2a 29 | age-string-for-prompt.*package*) |
| 121580 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 69 74 69 61 6c 69 7a 65 2d 73 74 72 65 61 6d 73 2d | ))))..(defun.initialize-streams- |
| 1215a0 | 66 6f 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 6d | for-connection.(connection)...(m |
| 1215c0 | 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 69 6e 20 6f 75 74 20 69 6f 20 72 65 | ultiple-value-bind.(in.out.io.re |
| 1215e0 | 70 6c 2d 72 65 73 75 6c 74 73 29 0a 20 20 20 20 20 20 28 6f 70 65 6e 2d 73 74 72 65 61 6d 73 20 | pl-results).......(open-streams. |
| 121600 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 73 65 74 66 20 28 63 6f 6e 6e 65 63 74 69 6f | connection).....(setf.(connectio |
| 121620 | 6e 2e 75 73 65 72 2d 69 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 20 20 20 20 20 20 20 20 20 69 | n.user-io.connection)..........i |
| 121640 | 6f 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 6f 75 74 | o...........(connection.user-out |
| 121660 | 70 75 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 20 20 20 20 20 6f 75 74 0a 20 20 20 20 20 20 20 | put.connection)......out........ |
| 121680 | 20 20 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 69 6e 70 75 74 20 63 6f 6e 6e 65 63 | ...(connection.user-input.connec |
| 1216a0 | 74 69 6f 6e 29 20 20 20 20 20 20 20 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 6e 65 63 | tion).......in...........(connec |
| 1216c0 | 74 69 6f 6e 2e 72 65 70 6c 2d 72 65 73 75 6c 74 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 20 20 | tion.repl-results.connection)... |
| 1216e0 | 20 20 72 65 70 6c 2d 72 65 73 75 6c 74 73 29 0a 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 | ..repl-results).....connection)) |
| 121700 | 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 75 73 65 72 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 65 6d | ..(defun.read-user-input-from-em |
| 121720 | 61 63 73 20 28 29 0a 20 20 28 6c 65 74 20 28 28 74 61 67 20 28 6d 61 6b 65 2d 74 61 67 29 29 29 | acs.()...(let.((tag.(make-tag))) |
| 121740 | 0a 20 20 20 20 28 72 65 61 6c 6c 79 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 2a 73 74 61 6e | .....(really-finish-output.*stan |
| 121760 | 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 | dard-output*).....(send-to-emacs |
| 121780 | 20 60 28 3a 72 65 61 64 2d 73 74 72 69 6e 67 20 2c 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 | .`(:read-string.,(current-thread |
| 1217a0 | 2d 69 64 29 20 2c 74 61 67 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6f 6b 20 6e 69 6c 29 29 0a | -id).,tag)).....(let.((ok.nil)). |
| 1217c0 | 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 | ......(unwind-protect........... |
| 1217e0 | 20 28 70 72 6f 67 31 20 28 63 61 64 64 72 20 28 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 20 60 | .(prog1.(caddr.(wait-for-event.` |
| 121800 | 28 3a 65 6d 61 63 73 2d 72 65 74 75 72 6e 2d 73 74 72 69 6e 67 20 2c 74 61 67 20 76 61 6c 75 65 | (:emacs-return-string.,tag.value |
| 121820 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2f 67 72 61 79 3a 3a 72 65 | )))..............(swank/gray::re |
| 121840 | 73 65 74 2d 73 74 72 65 61 6d 2d 6c 69 6e 65 2d 63 6f 6c 75 6d 6e 20 28 63 6f 6e 6e 65 63 74 69 | set-stream-line-column.(connecti |
| 121860 | 6f 6e 2e 75 73 65 72 2d 6f 75 74 70 75 74 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e | on.user-output.*emacs-connection |
| 121880 | 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6f 6b 20 74 29 29 0a 20 20 | *))..............(setq.ok.t))... |
| 1218a0 | 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 | ......(unless.ok...........(send |
| 1218c0 | 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 72 65 61 64 2d 61 62 6f 72 74 65 64 20 2c 28 63 75 72 72 | -to-emacs.`(:read-aborted.,(curr |
| 1218e0 | 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 29 20 2c 74 61 67 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b | ent-thread-id).,tag)))))))..;;;; |
| 121900 | 3b 20 4c 69 73 74 65 6e 65 72 20 65 76 61 6c 0a 0a 28 64 65 66 76 61 72 20 2a 6c 69 73 74 65 6e | ;.Listener.eval..(defvar.*listen |
| 121920 | 65 72 2d 65 76 61 6c 2d 66 75 6e 63 74 69 6f 6e 2a 20 27 72 65 70 6c 2d 65 76 61 6c 29 0a 0a 28 | er-eval-function*.'repl-eval)..( |
| 121940 | 64 65 66 76 61 72 20 2a 6c 69 73 74 65 6e 65 72 2d 73 61 76 65 64 2d 76 61 6c 75 65 2a 20 6e 69 | defvar.*listener-saved-value*.ni |
| 121960 | 6c 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6c 69 73 74 65 6e 65 72 2d 73 61 76 65 2d 76 | l)..(defslimefun.listener-save-v |
| 121980 | 61 6c 75 65 20 28 73 6c 69 6d 65 66 75 6e 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 41 70 | alue.(slimefun.&rest.args)..."Ap |
| 1219a0 | 70 6c 79 20 53 4c 49 4d 45 46 55 4e 20 74 6f 20 41 52 47 53 20 61 6e 64 20 73 61 76 65 20 74 68 | ply.SLIMEFUN.to.ARGS.and.save.th |
| 1219c0 | 65 20 76 61 6c 75 65 2e 0a 54 68 65 20 73 61 76 65 64 20 76 61 6c 75 65 20 73 68 6f 75 6c 64 20 | e.value..The.saved.value.should. |
| 1219e0 | 62 65 20 76 69 73 69 62 6c 65 20 74 6f 20 61 6c 6c 20 74 68 72 65 61 64 73 20 61 6e 64 20 72 65 | be.visible.to.all.threads.and.re |
| 121a00 | 74 72 69 65 76 65 64 20 76 69 61 0a 4c 49 53 54 45 4e 45 52 2d 47 45 54 2d 56 41 4c 55 45 2e 22 | trieved.via.LISTENER-GET-VALUE." |
| 121a20 | 0a 20 20 28 73 65 74 71 20 2a 6c 69 73 74 65 6e 65 72 2d 73 61 76 65 64 2d 76 61 6c 75 65 2a 20 | ...(setq.*listener-saved-value*. |
| 121a40 | 28 61 70 70 6c 79 20 73 6c 69 6d 65 66 75 6e 20 61 72 67 73 29 29 0a 20 20 74 29 0a 0a 28 64 65 | (apply.slimefun.args))...t)..(de |
| 121a60 | 66 73 6c 69 6d 65 66 75 6e 20 6c 69 73 74 65 6e 65 72 2d 67 65 74 2d 76 61 6c 75 65 20 28 29 0a | fslimefun.listener-get-value.(). |
| 121a80 | 20 20 22 47 65 74 20 74 68 65 20 6c 61 73 74 20 76 61 6c 75 65 20 73 61 76 65 64 20 62 79 20 4c | .."Get.the.last.value.saved.by.L |
| 121aa0 | 49 53 54 45 4e 45 52 2d 53 41 56 45 2d 56 41 4c 55 45 2e 0a 54 68 65 20 76 61 6c 75 65 20 73 68 | ISTENER-SAVE-VALUE..The.value.sh |
| 121ac0 | 6f 75 6c 64 20 62 65 20 70 72 6f 64 75 63 65 64 20 61 73 20 69 66 20 69 74 20 77 65 72 65 20 72 | ould.be.produced.as.if.it.were.r |
| 121ae0 | 65 71 75 65 73 74 65 64 20 74 68 72 6f 75 67 68 0a 4c 49 53 54 45 4e 45 52 2d 45 56 41 4c 20 64 | equested.through.LISTENER-EVAL.d |
| 121b00 | 69 72 65 63 74 6c 79 2c 20 73 6f 20 74 68 61 74 20 73 70 61 63 69 61 6c 20 76 61 72 69 61 62 6c | irectly,.so.that.spacial.variabl |
| 121b20 | 65 73 20 2a 2c 20 65 74 63 20 61 72 65 20 73 65 74 2e 22 0a 20 20 28 6c 69 73 74 65 6e 65 72 2d | es.*,.etc.are.set."...(listener- |
| 121b40 | 65 76 61 6c 20 28 6c 65 74 20 28 28 2a 70 61 63 6b 61 67 65 2a 20 28 66 69 6e 64 2d 70 61 63 6b | eval.(let.((*package*.(find-pack |
| 121b60 | 61 67 65 20 3a 6b 65 79 77 6f 72 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | age.:keyword)))................. |
| 121b80 | 20 20 20 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 27 2a 6c 69 73 74 65 6e 65 72 2d 73 | ...(write-to-string.'*listener-s |
| 121ba0 | 61 76 65 64 2d 76 61 6c 75 65 2a 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6c 69 | aved-value*))))..(defslimefun.li |
| 121bc0 | 73 74 65 6e 65 72 2d 65 76 61 6c 20 28 73 74 72 69 6e 67 20 26 6b 65 79 20 28 77 69 6e 64 6f 77 | stener-eval.(string.&key.(window |
| 121be0 | 2d 77 69 64 74 68 20 6e 69 6c 20 77 69 6e 64 6f 77 2d 77 69 64 74 68 2d 70 29 29 0a 20 20 28 73 | -width.nil.window-width-p))...(s |
| 121c00 | 77 61 6e 6b 2f 67 72 61 79 3a 3a 72 65 73 65 74 2d 73 74 72 65 61 6d 2d 6c 69 6e 65 2d 63 6f 6c | wank/gray::reset-stream-line-col |
| 121c20 | 75 6d 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 6f 75 74 70 75 74 20 2a 65 6d 61 | umn.(connection.user-output.*ema |
| 121c40 | 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 0a 20 20 28 69 66 20 77 69 6e 64 6f 77 2d 77 69 | cs-connection*))...(if.window-wi |
| 121c60 | 64 74 68 2d 70 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 72 69 67 68 74 2d | dth-p.......(let.((*print-right- |
| 121c80 | 6d 61 72 67 69 6e 2a 20 77 69 6e 64 6f 77 2d 77 69 64 74 68 29 29 0a 20 20 20 20 20 20 20 20 28 | margin*.window-width)).........( |
| 121ca0 | 66 75 6e 63 61 6c 6c 20 2a 6c 69 73 74 65 6e 65 72 2d 65 76 61 6c 2d 66 75 6e 63 74 69 6f 6e 2a | funcall.*listener-eval-function* |
| 121cc0 | 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 2a 6c 69 73 74 65 6e | .string)).......(funcall.*listen |
| 121ce0 | 65 72 2d 65 76 61 6c 2d 66 75 6e 63 74 69 6f 6e 2a 20 73 74 72 69 6e 67 29 29 29 0a 0a 28 64 65 | er-eval-function*.string)))..(de |
| 121d00 | 66 73 6c 69 6d 65 66 75 6e 20 63 6c 65 61 72 2d 72 65 70 6c 2d 76 61 72 69 61 62 6c 65 73 20 28 | fslimefun.clear-repl-variables.( |
| 121d20 | 29 0a 20 20 28 6c 65 74 20 28 28 76 61 72 69 61 62 6c 65 73 20 27 28 2a 2a 2a 20 2a 2a 20 2a 20 | )...(let.((variables.'(***.**.*. |
| 121d40 | 2f 2f 2f 20 2f 2f 20 2f 20 2b 2b 2b 20 2b 2b 20 2b 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 | ///.//./.+++.++.+))).....(loop.f |
| 121d60 | 6f 72 20 76 61 72 69 61 62 6c 65 20 69 6e 20 76 61 72 69 61 62 6c 65 73 0a 20 20 20 20 20 20 20 | or.variable.in.variables........ |
| 121d80 | 64 6f 20 28 73 65 74 66 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 76 61 72 69 61 62 6c 65 29 | do.(setf.(symbol-value.variable) |
| 121da0 | 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 65 6e 64 2d 72 65 70 6c 2d 72 65 73 | .nil))))..(defvar.*send-repl-res |
| 121dc0 | 75 6c 74 73 2d 66 75 6e 63 74 69 6f 6e 2a 20 27 73 65 6e 64 2d 72 65 70 6c 2d 72 65 73 75 6c 74 | ults-function*.'send-repl-result |
| 121de0 | 73 2d 74 6f 2d 65 6d 61 63 73 29 0a 0a 28 64 65 66 75 6e 20 72 65 70 6c 2d 65 76 61 6c 20 28 73 | s-to-emacs)..(defun.repl-eval.(s |
| 121e00 | 74 72 69 6e 67 29 0a 20 20 28 63 6c 65 61 72 2d 75 73 65 72 2d 69 6e 70 75 74 29 0a 20 20 28 77 | tring)...(clear-user-input)...(w |
| 121e20 | 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 77 69 74 68 2d 72 | ith-buffer-syntax.().....(with-r |
| 121e40 | 65 74 72 79 2d 72 65 73 74 61 72 74 20 28 3a 6d 73 67 20 22 52 65 74 72 79 20 53 4c 49 4d 45 20 | etry-restart.(:msg."Retry.SLIME. |
| 121e60 | 52 45 50 4c 20 65 76 61 6c 75 61 74 69 6f 6e 20 72 65 71 75 65 73 74 2e 22 29 0a 20 20 20 20 20 | REPL.evaluation.request.")...... |
| 121e80 | 20 28 74 72 61 63 6b 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | .(track-package........(lambda.( |
| 121ea0 | 29 0a 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 | )..........(multiple-value-bind. |
| 121ec0 | 28 76 61 6c 75 65 73 20 6c 61 73 74 2d 66 6f 72 6d 29 20 28 65 76 61 6c 2d 72 65 67 69 6f 6e 20 | (values.last-form).(eval-region. |
| 121ee0 | 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2a 2a 2a 20 2a 2a 20 | string)............(setq.***.**. |
| 121f00 | 20 2a 2a 20 2a 20 20 2a 20 28 63 61 72 20 76 61 6c 75 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 | .**.*..*.(car.values)........... |
| 121f20 | 20 20 20 20 20 20 20 2f 2f 2f 20 2f 2f 20 20 2f 2f 20 2f 20 20 2f 20 76 61 6c 75 65 73 0a 20 20 | .......///.//..//./../.values... |
| 121f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 2b 2b 20 2b 2b 20 20 2b 2b 20 2b 20 20 2b 20 6c | ...............+++.++..++.+..+.l |
| 121f60 | 61 73 74 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 2a 73 | ast-form)............(funcall.*s |
| 121f80 | 65 6e 64 2d 72 65 70 6c 2d 72 65 73 75 6c 74 73 2d 66 75 6e 63 74 69 6f 6e 2a 20 76 61 6c 75 65 | end-repl-results-function*.value |
| 121fa0 | 73 29 29 29 29 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 74 72 61 63 6b 2d 70 61 63 | s))))))...nil)..(defun.track-pac |
| 121fc0 | 6b 61 67 65 20 28 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 70 20 2a 70 61 63 6b 61 67 65 2a 29 | kage.(fun)...(let.((p.*package*) |
| 121fe0 | 29 0a 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 28 66 75 6e 63 61 6c 6c 20 66 | ).....(unwind-protect.(funcall.f |
| 122000 | 75 6e 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 2a 70 61 63 6b 61 67 65 2a 20 | un).......(unless.(eq.*package*. |
| 122020 | 70 29 0a 20 20 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 28 6c 69 73 74 20 | p).........(send-to-emacs.(list. |
| 122040 | 3a 6e 65 77 2d 70 61 63 6b 61 67 65 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 2a 70 61 63 6b | :new-package.(package-name.*pack |
| 122060 | 61 67 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | age*)........................... |
| 122080 | 20 20 20 28 70 61 63 6b 61 67 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 70 72 6f 6d 70 74 20 2a 70 | ...(package-string-for-prompt.*p |
| 1220a0 | 61 63 6b 61 67 65 2a 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 6e 64 2d 72 65 70 6c | ackage*)))))))..(defun.send-repl |
| 1220c0 | 2d 72 65 73 75 6c 74 73 2d 74 6f 2d 65 6d 61 63 73 20 28 76 61 6c 75 65 73 29 0a 20 20 28 72 65 | -results-to-emacs.(values)...(re |
| 1220e0 | 61 6c 6c 79 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 | ally-finish-output.*standard-out |
| 122100 | 70 75 74 2a 29 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 76 61 6c 75 65 73 29 0a 20 20 20 20 20 20 | put*)...(if.(null.values)....... |
| 122120 | 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 20 22 | (send-to-emacs.`(:write-string." |
| 122140 | 3b 20 4e 6f 20 76 61 6c 75 65 22 20 3a 72 65 70 6c 2d 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 | ;.No.value".:repl-result))...... |
| 122160 | 20 28 64 6f 6c 69 73 74 20 28 76 20 76 61 6c 75 65 73 29 0a 20 20 20 20 20 20 20 20 28 73 65 6e | .(dolist.(v.values).........(sen |
| 122180 | 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 20 2c 28 63 61 74 | d-to-emacs.`(:write-string.,(cat |
| 1221a0 | 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 76 29 20 23 5c 6e 65 77 6c 69 6e 65 29 0a | .(prin1-to-string.v).#\newline). |
| 1221c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1221e0 | 20 20 20 20 20 20 20 3a 72 65 70 6c 2d 72 65 73 75 6c 74 29 29 29 29 29 0a 0a 28 64 65 66 73 6c | .......:repl-result)))))..(defsl |
| 122200 | 69 6d 65 66 75 6e 20 72 65 64 69 72 65 63 74 2d 74 72 61 63 65 2d 6f 75 74 70 75 74 20 28 74 61 | imefun.redirect-trace-output.(ta |
| 122220 | 72 67 65 74 29 0a 20 20 28 73 65 74 66 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 74 72 61 63 65 2d | rget)...(setf.(connection.trace- |
| 122240 | 6f 75 74 70 75 74 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 0a 20 20 20 20 20 | output.*emacs-connection*)...... |
| 122260 | 20 20 20 28 73 77 61 6e 6b 3a 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 66 6f 72 | ...(swank:make-output-stream-for |
| 122280 | 2d 74 61 72 67 65 74 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 20 74 61 72 67 65 | -target.*emacs-connection*.targe |
| 1222a0 | 74 29 29 0a 20 20 6e 69 6c 29 0a 0a 0a 0c 0a 3b 3b 3b 3b 20 49 4f 20 74 6f 20 45 6d 61 63 73 0a | t))...nil).....;;;;.IO.to.Emacs. |
| 1222c0 | 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 68 61 6e 64 6c 65 73 20 72 65 64 69 72 65 | ;;;.;;;.This.code.handles.redire |
| 1222e0 | 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 49 2f 4f 20 73 74 72 65 61 6d | ction.of.the.standard.I/O.stream |
| 122300 | 73 0a 3b 3b 3b 20 28 60 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 27 2c 20 65 74 63 29 | s.;;;.(`*standard-output*',.etc) |
| 122320 | 20 69 6e 74 6f 20 45 6d 61 63 73 2e 20 54 68 65 20 60 63 6f 6e 6e 65 63 74 69 6f 6e 27 20 73 74 | .into.Emacs..The.`connection'.st |
| 122340 | 72 75 63 74 75 72 65 0a 3b 3b 3b 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 61 70 70 72 6f 70 72 | ructure.;;;.contains.the.appropr |
| 122360 | 69 61 74 65 20 73 74 72 65 61 6d 73 2c 20 73 6f 20 61 6c 6c 20 77 65 20 68 61 76 65 20 74 6f 20 | iate.streams,.so.all.we.have.to. |
| 122380 | 64 6f 20 69 73 20 6d 61 6b 65 20 74 68 65 0a 3b 3b 3b 20 72 69 67 68 74 20 62 69 6e 64 69 6e 67 | do.is.make.the.;;;.right.binding |
| 1223a0 | 73 2e 0a 0a 3b 3b 3b 3b 3b 20 47 6c 6f 62 61 6c 20 49 2f 4f 20 72 65 64 69 72 65 63 74 69 6f 6e | s...;;;;;.Global.I/O.redirection |
| 1223c0 | 20 66 72 61 6d 65 77 6f 72 6b 0a 3b 3b 3b 0a 3b 3b 3b 20 4f 70 74 69 6f 6e 61 6c 6c 79 2c 20 74 | .framework.;;;.;;;.Optionally,.t |
| 1223e0 | 68 65 20 74 6f 70 2d 6c 65 76 65 6c 20 67 6c 6f 62 61 6c 20 62 69 6e 64 69 6e 67 73 20 6f 66 20 | he.top-level.global.bindings.of. |
| 122400 | 74 68 65 20 73 74 61 6e 64 61 72 64 20 73 74 72 65 61 6d 73 0a 3b 3b 3b 20 63 61 6e 20 62 65 20 | the.standard.streams.;;;.can.be. |
| 122420 | 61 73 73 69 67 6e 65 64 20 74 6f 20 62 65 20 72 65 64 69 72 65 63 74 65 64 20 74 6f 20 45 6d 61 | assigned.to.be.redirected.to.Ema |
| 122440 | 63 73 2e 20 57 68 65 6e 20 45 6d 61 63 73 20 63 6f 6e 6e 65 63 74 73 20 77 65 0a 3b 3b 3b 20 72 | cs..When.Emacs.connects.we.;;;.r |
| 122460 | 65 64 69 72 65 63 74 20 74 68 65 20 73 74 72 65 61 6d 73 20 69 6e 74 6f 20 74 68 65 20 63 6f 6e | edirect.the.streams.into.the.con |
| 122480 | 6e 65 63 74 69 6f 6e 2c 20 61 6e 64 20 74 68 65 79 20 6b 65 65 70 20 67 6f 69 6e 67 20 69 6e 74 | nection,.and.they.keep.going.int |
| 1224a0 | 6f 0a 3b 3b 3b 20 74 68 61 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 76 65 6e 20 69 66 20 6d 6f | o.;;;.that.connection.even.if.mo |
| 1224c0 | 72 65 20 61 72 65 20 65 73 74 61 62 6c 69 73 68 65 64 2e 20 49 66 20 74 68 65 20 63 6f 6e 6e 65 | re.are.established..If.the.conne |
| 1224e0 | 63 74 69 6f 6e 0a 3b 3b 3b 20 68 61 6e 64 6c 69 6e 67 20 74 68 65 20 73 74 72 65 61 6d 73 20 63 | ction.;;;.handling.the.streams.c |
| 122500 | 6c 6f 73 65 73 20 74 68 65 6e 20 61 6e 6f 74 68 65 72 20 69 73 20 63 68 6f 73 65 6e 2c 20 6f 72 | loses.then.another.is.chosen,.or |
| 122520 | 20 69 66 20 74 68 65 72 65 0a 3b 3b 3b 20 61 72 65 20 6e 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 | .if.there.;;;.are.no.connections |
| 122540 | 20 74 68 65 6e 20 77 65 20 72 65 76 65 72 74 20 74 6f 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 | .then.we.revert.to.the.original. |
| 122560 | 28 72 65 61 6c 29 20 73 74 72 65 61 6d 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 49 74 20 69 73 20 73 6c | (real).streams..;;;.;;;.It.is.sl |
| 122580 | 69 67 68 74 6c 79 20 74 72 69 63 6b 79 20 74 6f 20 61 73 73 69 67 6e 20 74 68 65 20 67 6c 6f 62 | ightly.tricky.to.assign.the.glob |
| 1225a0 | 61 6c 20 76 61 6c 75 65 73 20 6f 66 20 73 74 61 6e 64 61 72 64 0a 3b 3b 3b 20 73 74 72 65 61 6d | al.values.of.standard.;;;.stream |
| 1225c0 | 73 20 62 65 63 61 75 73 65 20 74 68 65 79 20 61 72 65 20 6f 66 74 65 6e 20 73 68 61 64 6f 77 65 | s.because.they.are.often.shadowe |
| 1225e0 | 64 20 62 79 20 64 79 6e 61 6d 69 63 20 62 69 6e 64 69 6e 67 73 2e 20 57 65 0a 3b 3b 3b 20 73 6f | d.by.dynamic.bindings..We.;;;.so |
| 122600 | 6c 76 65 20 74 68 69 73 20 70 72 6f 62 6c 65 6d 20 62 79 20 69 6e 74 72 6f 64 75 63 69 6e 67 20 | lve.this.problem.by.introducing. |
| 122620 | 61 6e 20 65 78 74 72 61 20 69 6e 64 69 72 65 63 74 69 6f 6e 20 76 69 61 20 73 79 6e 6f 6e 79 6d | an.extra.indirection.via.synonym |
| 122640 | 0a 3b 3b 3b 20 73 74 72 65 61 6d 73 2c 20 73 6f 20 74 68 61 74 20 2a 53 54 41 4e 44 41 52 44 2d | .;;;.streams,.so.that.*STANDARD- |
| 122660 | 49 4e 50 55 54 2a 20 69 73 20 61 20 73 79 6e 6f 6e 79 6d 20 73 74 72 65 61 6d 20 74 6f 0a 3b 3b | INPUT*.is.a.synonym.stream.to.;; |
| 122680 | 3b 20 2a 43 55 52 52 45 4e 54 2d 53 54 41 4e 44 41 52 44 2d 49 4e 50 55 54 2a 2c 20 65 74 63 2e | ;.*CURRENT-STANDARD-INPUT*,.etc. |
| 1226a0 | 20 57 65 20 6e 65 76 65 72 20 73 68 61 64 6f 77 20 74 68 65 20 22 63 75 72 72 65 6e 74 22 0a 3b | .We.never.shadow.the."current".; |
| 1226c0 | 3b 3b 20 76 61 72 69 61 62 6c 65 73 2c 20 73 6f 20 74 68 65 79 20 63 61 6e 20 61 6c 77 61 79 73 | ;;.variables,.so.they.can.always |
| 1226e0 | 20 62 65 20 61 73 73 69 67 6e 65 64 20 74 6f 20 61 66 66 65 63 74 20 61 20 67 6c 6f 62 61 6c 0a | .be.assigned.to.affect.a.global. |
| 122700 | 3b 3b 3b 20 63 68 61 6e 67 65 2e 0a 0a 3b 3b 3b 3b 3b 20 47 6c 6f 62 61 6c 20 72 65 64 69 72 65 | ;;;.change...;;;;;.Global.redire |
| 122720 | 63 74 69 6f 6e 20 73 65 74 75 70 0a 0a 28 64 65 66 76 61 72 20 2a 73 61 76 65 64 2d 67 6c 6f 62 | ction.setup..(defvar.*saved-glob |
| 122740 | 61 6c 2d 73 74 72 65 61 6d 73 2a 20 27 28 29 0a 20 20 22 41 20 70 6c 69 73 74 20 74 6f 20 73 61 | al-streams*.'()..."A.plist.to.sa |
| 122760 | 76 65 20 61 6e 64 20 72 65 73 74 6f 72 65 20 72 65 64 69 72 65 63 74 65 64 20 73 74 72 65 61 6d | ve.and.restore.redirected.stream |
| 122780 | 20 6f 62 6a 65 63 74 73 2e 0a 45 2e 67 2e 20 74 68 65 20 76 61 6c 75 65 20 66 6f 72 20 27 2a 73 | .objects..E.g..the.value.for.'*s |
| 1227a0 | 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 20 68 6f 6c 64 73 20 74 68 65 20 73 74 72 65 61 6d | tandard-output*.holds.the.stream |
| 1227c0 | 20 6f 62 6a 65 63 74 0a 66 6f 72 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 20 62 65 | .object.for.*standard-output*.be |
| 1227e0 | 66 6f 72 65 20 77 65 20 69 6e 73 74 61 6c 6c 20 6f 75 72 20 72 65 64 69 72 65 63 74 69 6f 6e 2e | fore.we.install.our.redirection. |
| 122800 | 22 29 0a 0a 28 64 65 66 75 6e 20 73 65 74 75 70 2d 73 74 72 65 61 6d 2d 69 6e 64 69 72 65 63 74 | ")..(defun.setup-stream-indirect |
| 122820 | 69 6f 6e 20 28 73 74 72 65 61 6d 2d 76 61 72 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 65 61 6d | ion.(stream-var.&optional.stream |
| 122840 | 29 0a 20 20 22 53 65 74 75 70 20 72 65 64 69 72 65 63 74 69 6f 6e 20 73 63 61 66 66 6f 6c 64 69 | )..."Setup.redirection.scaffoldi |
| 122860 | 6e 67 20 66 6f 72 20 61 20 67 6c 6f 62 61 6c 20 73 74 72 65 61 6d 20 76 61 72 69 61 62 6c 65 2e | ng.for.a.global.stream.variable. |
| 122880 | 0a 53 75 70 70 6f 73 69 6e 67 20 28 66 6f 72 20 65 78 61 6d 70 6c 65 29 20 53 54 52 45 41 4d 2d | .Supposing.(for.example).STREAM- |
| 1228a0 | 56 41 52 20 69 73 20 2a 53 54 41 4e 44 41 52 44 2d 49 4e 50 55 54 2a 2c 20 74 68 69 73 20 6d 61 | VAR.is.*STANDARD-INPUT*,.this.ma |
| 1228c0 | 63 72 6f 3a 0a 0a 31 2e 20 53 61 76 65 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 2a 53 54 41 | cro:..1..Saves.the.value.of.*STA |
| 1228e0 | 4e 44 41 52 44 2d 49 4e 50 55 54 2a 20 69 6e 20 60 2a 53 41 56 45 44 2d 47 4c 4f 42 41 4c 2d 53 | NDARD-INPUT*.in.`*SAVED-GLOBAL-S |
| 122900 | 54 52 45 41 4d 53 2a 27 2e 0a 0a 32 2e 20 43 72 65 61 74 65 73 20 2a 43 55 52 52 45 4e 54 2d 53 | TREAMS*'...2..Creates.*CURRENT-S |
| 122920 | 54 41 4e 44 41 52 44 2d 49 4e 50 55 54 2a 2c 20 69 6e 69 74 69 61 6c 6c 79 20 77 69 74 68 20 74 | TANDARD-INPUT*,.initially.with.t |
| 122940 | 68 65 20 73 61 6d 65 20 76 61 6c 75 65 20 61 73 0a 2a 53 54 41 4e 44 41 52 44 2d 49 4e 50 55 54 | he.same.value.as.*STANDARD-INPUT |
| 122960 | 2a 2e 0a 0a 33 2e 20 41 73 73 69 67 6e 73 20 2a 53 54 41 4e 44 41 52 44 2d 49 4e 50 55 54 2a 20 | *...3..Assigns.*STANDARD-INPUT*. |
| 122980 | 74 6f 20 61 20 73 79 6e 6f 6e 79 6d 20 73 74 72 65 61 6d 20 70 6f 69 6e 74 69 6e 67 20 74 6f 0a | to.a.synonym.stream.pointing.to. |
| 1229a0 | 2a 43 55 52 52 45 4e 54 2d 53 54 41 4e 44 41 52 44 2d 49 4e 50 55 54 2a 2e 0a 0a 54 68 69 73 20 | *CURRENT-STANDARD-INPUT*...This. |
| 1229c0 | 68 61 73 20 74 68 65 20 65 66 66 65 63 74 20 6f 66 20 6d 61 6b 69 6e 67 20 2a 43 55 52 52 45 4e | has.the.effect.of.making.*CURREN |
| 1229e0 | 54 2d 53 54 41 4e 44 41 52 44 2d 49 4e 50 55 54 2a 20 63 6f 6e 74 61 69 6e 20 74 68 65 0a 65 66 | T-STANDARD-INPUT*.contain.the.ef |
| 122a00 | 66 65 63 74 69 76 65 20 67 6c 6f 62 61 6c 20 76 61 6c 75 65 20 66 6f 72 20 2a 53 54 41 4e 44 41 | fective.global.value.for.*STANDA |
| 122a20 | 52 44 2d 49 4e 50 55 54 2a 2e 20 54 68 69 73 20 77 61 79 20 77 65 20 63 61 6e 20 61 73 73 69 67 | RD-INPUT*..This.way.we.can.assig |
| 122a40 | 6e 0a 74 68 65 20 65 66 66 65 63 74 69 76 65 20 67 6c 6f 62 61 6c 20 76 61 6c 75 65 20 65 76 65 | n.the.effective.global.value.eve |
| 122a60 | 6e 20 77 68 65 6e 20 2a 53 54 41 4e 44 41 52 44 2d 49 4e 50 55 54 2a 20 69 73 20 73 68 61 64 6f | n.when.*STANDARD-INPUT*.is.shado |
| 122a80 | 77 65 64 20 62 79 20 61 0a 64 79 6e 61 6d 69 63 20 62 69 6e 64 69 6e 67 2e 22 0a 20 20 28 6c 65 | wed.by.a.dynamic.binding."...(le |
| 122aa0 | 74 20 28 28 63 75 72 72 65 6e 74 2d 73 74 72 65 61 6d 2d 76 61 72 20 28 70 72 65 66 69 78 65 64 | t.((current-stream-var.(prefixed |
| 122ac0 | 2d 76 61 72 20 27 23 3a 63 75 72 72 65 6e 74 20 73 74 72 65 61 6d 2d 76 61 72 29 29 0a 20 20 20 | -var.'#:current.stream-var)).... |
| 122ae0 | 20 20 20 20 20 28 73 74 72 65 61 6d 20 28 6f 72 20 73 74 72 65 61 6d 20 28 73 79 6d 62 6f 6c 2d | .....(stream.(or.stream.(symbol- |
| 122b00 | 76 61 6c 75 65 20 73 74 72 65 61 6d 2d 76 61 72 29 29 29 29 0a 20 20 20 20 3b 3b 20 53 61 76 65 | value.stream-var)))).....;;.Save |
| 122b20 | 20 74 68 65 20 72 65 61 6c 20 73 74 72 65 61 6d 20 76 61 6c 75 65 20 66 6f 72 20 74 68 65 20 66 | .the.real.stream.value.for.the.f |
| 122b40 | 75 74 75 72 65 2e 0a 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 2a 73 61 76 65 64 2d 67 6c | uture......(setf.(getf.*saved-gl |
| 122b60 | 6f 62 61 6c 2d 73 74 72 65 61 6d 73 2a 20 73 74 72 65 61 6d 2d 76 61 72 29 20 73 74 72 65 61 6d | obal-streams*.stream-var).stream |
| 122b80 | 29 0a 20 20 20 20 3b 3b 20 44 65 66 69 6e 65 20 61 20 6e 65 77 20 76 61 72 69 61 62 6c 65 20 66 | ).....;;.Define.a.new.variable.f |
| 122ba0 | 6f 72 20 74 68 65 20 65 66 66 65 63 74 69 76 65 20 73 74 72 65 61 6d 2e 0a 20 20 20 20 3b 3b 20 | or.the.effective.stream......;;. |
| 122bc0 | 54 68 69 73 20 63 61 6e 20 62 65 20 72 65 61 73 73 69 67 6e 65 64 2e 0a 20 20 20 20 28 70 72 6f | This.can.be.reassigned......(pro |
| 122be0 | 63 6c 61 69 6d 20 60 28 73 70 65 63 69 61 6c 20 2c 63 75 72 72 65 6e 74 2d 73 74 72 65 61 6d 2d | claim.`(special.,current-stream- |
| 122c00 | 76 61 72 29 29 0a 20 20 20 20 28 73 65 74 20 63 75 72 72 65 6e 74 2d 73 74 72 65 61 6d 2d 76 61 | var)).....(set.current-stream-va |
| 122c20 | 72 20 73 74 72 65 61 6d 29 0a 20 20 20 20 3b 3b 20 41 73 73 69 67 6e 20 74 68 65 20 72 65 61 6c | r.stream).....;;.Assign.the.real |
| 122c40 | 20 62 69 6e 64 69 6e 67 20 61 73 20 61 20 73 79 6e 6f 6e 79 6d 20 66 6f 72 20 74 68 65 20 63 75 | .binding.as.a.synonym.for.the.cu |
| 122c60 | 72 72 65 6e 74 20 6f 6e 65 2e 0a 20 20 20 20 28 6c 65 74 20 28 28 73 74 72 65 61 6d 20 28 6d 61 | rrent.one......(let.((stream.(ma |
| 122c80 | 6b 65 2d 73 79 6e 6f 6e 79 6d 2d 73 74 72 65 61 6d 20 63 75 72 72 65 6e 74 2d 73 74 72 65 61 6d | ke-synonym-stream.current-stream |
| 122ca0 | 2d 76 61 72 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 20 73 74 72 65 61 6d 2d 76 61 72 20 73 74 | -var))).......(set.stream-var.st |
| 122cc0 | 72 65 61 6d 29 0a 20 20 20 20 20 20 28 73 65 74 2d 64 65 66 61 75 6c 74 2d 69 6e 69 74 69 61 6c | ream).......(set-default-initial |
| 122ce0 | 2d 62 69 6e 64 69 6e 67 20 73 74 72 65 61 6d 2d 76 61 72 20 60 28 71 75 6f 74 65 20 2c 73 74 72 | -binding.stream-var.`(quote.,str |
| 122d00 | 65 61 6d 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 66 69 78 65 64 2d 76 61 72 20 28 70 | eam)))))..(defun.prefixed-var.(p |
| 122d20 | 72 65 66 69 78 20 76 61 72 69 61 62 6c 65 2d 73 79 6d 62 6f 6c 29 0a 20 20 22 28 50 52 45 46 49 | refix.variable-symbol)..."(PREFI |
| 122d40 | 58 45 44 2d 56 41 52 20 5c 22 46 4f 4f 5c 22 20 27 2a 42 41 52 2a 29 20 3d 3e 20 53 57 41 4e 4b | XED-VAR.\"FOO\".'*BAR*).=>.SWANK |
| 122d60 | 3a 3a 2a 46 4f 4f 2d 42 41 52 2a 22 0a 20 20 28 6c 65 74 20 28 28 62 61 73 65 6e 61 6d 65 20 28 | ::*FOO-BAR*"...(let.((basename.( |
| 122d80 | 73 75 62 73 65 71 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 76 61 72 69 61 62 6c 65 2d 73 79 6d | subseq.(symbol-name.variable-sym |
| 122da0 | 62 6f 6c 29 20 31 29 29 29 0a 20 20 20 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 6e 69 | bol).1))).....(intern.(format.ni |
| 122dc0 | 6c 20 22 2a 7e 41 2d 7e 41 22 20 28 73 74 72 69 6e 67 20 70 72 65 66 69 78 29 20 62 61 73 65 6e | l."*~A-~A".(string.prefix).basen |
| 122de0 | 61 6d 65 29 20 3a 73 77 61 6e 6b 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 74 61 6e 64 61 72 | ame).:swank)))..(defvar.*standar |
| 122e00 | 64 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 73 2a 0a 20 20 27 28 2a 73 74 61 6e 64 61 72 64 2d | d-output-streams*...'(*standard- |
| 122e20 | 6f 75 74 70 75 74 2a 20 2a 65 72 72 6f 72 2d 6f 75 74 70 75 74 2a 20 2a 74 72 61 63 65 2d 6f 75 | output*.*error-output*.*trace-ou |
| 122e40 | 74 70 75 74 2a 29 0a 20 20 22 54 68 65 20 73 79 6d 62 6f 6c 73 20 6e 61 6d 69 6e 67 20 73 74 61 | tput*)..."The.symbols.naming.sta |
| 122e60 | 6e 64 61 72 64 20 6f 75 74 70 75 74 20 73 74 72 65 61 6d 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 | ndard.output.streams.")..(defvar |
| 122e80 | 20 2a 73 74 61 6e 64 61 72 64 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 73 2a 0a 20 20 27 28 2a 73 | .*standard-input-streams*...'(*s |
| 122ea0 | 74 61 6e 64 61 72 64 2d 69 6e 70 75 74 2a 29 0a 20 20 22 54 68 65 20 73 79 6d 62 6f 6c 73 20 6e | tandard-input*)..."The.symbols.n |
| 122ec0 | 61 6d 69 6e 67 20 73 74 61 6e 64 61 72 64 20 69 6e 70 75 74 20 73 74 72 65 61 6d 73 2e 22 29 0a | aming.standard.input.streams."). |
| 122ee0 | 0a 28 64 65 66 76 61 72 20 2a 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 74 72 65 61 6d 73 2a 0a 20 | .(defvar.*standard-io-streams*.. |
| 122f00 | 20 27 28 2a 64 65 62 75 67 2d 69 6f 2a 20 2a 71 75 65 72 79 2d 69 6f 2a 20 2a 74 65 72 6d 69 6e | .'(*debug-io*.*query-io*.*termin |
| 122f20 | 61 6c 2d 69 6f 2a 29 0a 20 20 22 54 68 65 20 73 79 6d 62 6f 6c 73 20 6e 61 6d 69 6e 67 20 73 74 | al-io*)..."The.symbols.naming.st |
| 122f40 | 61 6e 64 61 72 64 20 69 6f 20 73 74 72 65 61 6d 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 69 6e 69 | andard.io.streams.")..(defun.ini |
| 122f60 | 74 2d 67 6c 6f 62 61 6c 2d 73 74 72 65 61 6d 2d 72 65 64 69 72 65 63 74 69 6f 6e 20 28 29 0a 20 | t-global-stream-redirection.().. |
| 122f80 | 20 28 77 68 65 6e 20 28 67 6c 6f 62 61 6c 6c 79 2d 72 65 64 69 72 65 63 74 2d 69 6f 2d 70 29 0a | .(when.(globally-redirect-io-p). |
| 122fa0 | 20 20 20 20 28 63 6f 6e 64 20 28 2a 73 61 76 65 64 2d 67 6c 6f 62 61 6c 2d 73 74 72 65 61 6d 73 | ....(cond.(*saved-global-streams |
| 122fc0 | 2a 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 20 22 53 74 72 65 61 6d 73 20 61 6c 72 65 | *............(warn."Streams.alre |
| 122fe0 | 61 64 79 20 72 65 64 69 72 65 63 74 65 64 2e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a | ady.redirected."))...........(t. |
| 123000 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 20 23 27 73 65 74 75 70 2d 73 74 72 65 61 6d 2d | ...........(mapc.#'setup-stream- |
| 123020 | 69 6e 64 69 72 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 | indirection..................(ap |
| 123040 | 70 65 6e 64 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 73 2a 0a 20 | pend.*standard-output-streams*.. |
| 123060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 73 74 61 6e 64 61 72 | ........................*standar |
| 123080 | 64 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-input-streams*................ |
| 1230a0 | 20 20 20 20 20 20 20 20 20 20 2a 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 74 72 65 61 6d 73 2a 29 | ..........*standard-io-streams*) |
| 1230c0 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 6c 6f 62 61 6c 6c 79 2d 72 65 64 69 72 65 63 74 2d | )))))..(defun.globally-redirect- |
| 1230e0 | 69 6f 2d 74 6f 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 | io-to-connection.(connection)... |
| 123100 | 22 53 65 74 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 49 2f 4f 20 73 74 72 65 61 6d 73 20 74 6f | "Set.the.standard.I/O.streams.to |
| 123120 | 20 72 65 64 69 72 65 63 74 20 74 6f 20 43 4f 4e 4e 45 43 54 49 4f 4e 2e 0a 41 73 73 69 67 6e 73 | .redirect.to.CONNECTION..Assigns |
| 123140 | 20 2a 43 55 52 52 45 4e 54 2d 3c 53 54 52 45 41 4d 3e 2a 20 66 6f 72 20 61 6c 6c 20 73 74 61 6e | .*CURRENT-<STREAM>*.for.all.stan |
| 123160 | 64 61 72 64 20 73 74 72 65 61 6d 73 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 6f 20 2a 73 74 61 | dard.streams."...(dolist.(o.*sta |
| 123180 | 6e 64 61 72 64 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 73 2a 29 0a 20 20 20 20 28 73 65 74 20 | ndard-output-streams*).....(set. |
| 1231a0 | 28 70 72 65 66 69 78 65 64 2d 76 61 72 20 27 23 3a 63 75 72 72 65 6e 74 20 6f 29 0a 20 20 20 20 | (prefixed-var.'#:current.o)..... |
| 1231c0 | 20 20 20 20 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 6f 75 74 70 75 74 20 63 6f 6e | .....(connection.user-output.con |
| 1231e0 | 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 3b 3b 20 46 49 58 4d 45 3a 20 49 66 20 77 65 20 72 65 64 | nection)))...;;.FIXME:.If.we.red |
| 123200 | 69 72 65 63 74 20 73 74 61 6e 64 61 72 64 20 69 6e 70 75 74 20 74 6f 20 45 6d 61 63 73 20 74 68 | irect.standard.input.to.Emacs.th |
| 123220 | 65 6e 20 77 65 20 67 65 74 20 74 68 65 0a 20 20 3b 3b 20 72 65 67 75 6c 61 72 20 4c 69 73 70 20 | en.we.get.the...;;.regular.Lisp. |
| 123240 | 74 6f 70 2d 6c 65 76 65 6c 20 74 72 79 69 6e 67 20 74 6f 20 72 65 61 64 20 66 72 6f 6d 20 6f 75 | top-level.trying.to.read.from.ou |
| 123260 | 72 20 52 45 50 4c 2e 0a 20 20 3b 3b 0a 20 20 3b 3b 20 50 65 72 68 61 70 73 20 74 68 65 20 69 64 | r.REPL....;;...;;.Perhaps.the.id |
| 123280 | 65 61 6c 20 77 6f 75 6c 64 20 62 65 20 66 6f 72 20 74 68 65 20 72 65 61 6c 20 74 6f 70 2d 6c 65 | eal.would.be.for.the.real.top-le |
| 1232a0 | 76 65 6c 20 74 6f 20 72 75 6e 20 69 6e 20 61 0a 20 20 3b 3b 20 74 68 72 65 61 64 20 77 69 74 68 | vel.to.run.in.a...;;.thread.with |
| 1232c0 | 20 6c 6f 63 61 6c 20 62 69 6e 64 69 6e 67 73 20 66 6f 72 20 61 6c 6c 20 74 68 65 20 73 74 61 6e | .local.bindings.for.all.the.stan |
| 1232e0 | 64 61 72 64 20 73 74 72 65 61 6d 73 2e 20 46 61 69 6c 69 6e 67 0a 20 20 3b 3b 20 74 68 61 74 20 | dard.streams..Failing...;;.that. |
| 123300 | 77 65 20 70 72 6f 62 61 62 6c 79 20 77 6f 75 6c 64 20 6c 69 6b 65 20 74 6f 20 69 6e 68 69 62 69 | we.probably.would.like.to.inhibi |
| 123320 | 74 20 69 74 20 66 72 6f 6d 20 72 65 61 64 69 6e 67 20 77 68 69 6c 65 0a 20 20 3b 3b 20 45 6d 61 | t.it.from.reading.while...;;.Ema |
| 123340 | 63 73 20 69 73 20 63 6f 6e 6e 65 63 74 65 64 2e 0a 20 20 3b 3b 0a 20 20 3b 3b 20 4d 65 61 6e 77 | cs.is.connected....;;...;;.Meanw |
| 123360 | 68 69 6c 65 20 77 65 20 6a 75 73 74 20 6c 65 61 76 65 20 2a 73 74 61 6e 64 61 72 64 2d 69 6e 70 | hile.we.just.leave.*standard-inp |
| 123380 | 75 74 2a 20 61 6c 6f 6e 65 2e 0a 20 20 23 2b 4e 49 4c 0a 20 20 28 64 6f 6c 69 73 74 20 28 69 20 | ut*.alone....#+NIL...(dolist.(i. |
| 1233a0 | 2a 73 74 61 6e 64 61 72 64 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 73 2a 29 0a 20 20 20 20 28 73 | *standard-input-streams*).....(s |
| 1233c0 | 65 74 20 28 70 72 65 66 69 78 65 64 2d 76 61 72 20 27 23 3a 63 75 72 72 65 6e 74 20 69 29 0a 20 | et.(prefixed-var.'#:current.i).. |
| 1233e0 | 20 20 20 20 20 20 20 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 69 6e 70 75 74 20 63 | ........(connection.user-input.c |
| 123400 | 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 69 6f 20 2a 73 74 61 6e | onnection)))...(dolist.(io.*stan |
| 123420 | 64 61 72 64 2d 69 6f 2d 73 74 72 65 61 6d 73 2a 29 0a 20 20 20 20 28 73 65 74 20 28 70 72 65 66 | dard-io-streams*).....(set.(pref |
| 123440 | 69 78 65 64 2d 76 61 72 20 27 23 3a 63 75 72 72 65 6e 74 20 69 6f 29 0a 20 20 20 20 20 20 20 20 | ixed-var.'#:current.io)......... |
| 123460 | 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 69 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 | .(connection.user-io.connection) |
| 123480 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 76 65 72 74 2d 67 6c 6f 62 61 6c 2d 69 6f 2d 72 65 64 | )))..(defun.revert-global-io-red |
| 1234a0 | 69 72 65 63 74 69 6f 6e 20 28 29 0a 20 20 22 53 65 74 20 2a 43 55 52 52 45 4e 54 2d 3c 53 54 52 | irection.()..."Set.*CURRENT-<STR |
| 1234c0 | 45 41 4d 3e 2a 20 74 6f 20 2a 52 45 41 4c 2d 3c 53 54 52 45 41 4d 3e 2a 20 66 6f 72 20 61 6c 6c | EAM>*.to.*REAL-<STREAM>*.for.all |
| 1234e0 | 20 73 74 61 6e 64 61 72 64 20 73 74 72 65 61 6d 73 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 73 | .standard.streams."...(dolist.(s |
| 123500 | 74 72 65 61 6d 2d 76 61 72 20 28 61 70 70 65 6e 64 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 | tream-var.(append.*standard-outp |
| 123520 | 75 74 2d 73 74 72 65 61 6d 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ut-streams*..................... |
| 123540 | 20 20 20 20 20 20 20 20 20 20 2a 73 74 61 6e 64 61 72 64 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d | ..........*standard-input-stream |
| 123560 | 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s*.............................. |
| 123580 | 20 2a 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 74 72 65 61 6d 73 2a 29 29 0a 20 20 20 20 28 73 65 | .*standard-io-streams*)).....(se |
| 1235a0 | 74 20 28 70 72 65 66 69 78 65 64 2d 76 61 72 20 27 23 3a 63 75 72 72 65 6e 74 20 73 74 72 65 61 | t.(prefixed-var.'#:current.strea |
| 1235c0 | 6d 2d 76 61 72 29 0a 20 20 20 20 20 20 20 20 20 28 67 65 74 66 20 2a 73 61 76 65 64 2d 67 6c 6f | m-var)..........(getf.*saved-glo |
| 1235e0 | 62 61 6c 2d 73 74 72 65 61 6d 73 2a 20 73 74 72 65 61 6d 2d 76 61 72 29 29 29 29 0a 0a 3b 3b 3b | bal-streams*.stream-var))))..;;; |
| 123600 | 3b 3b 20 47 6c 6f 62 61 6c 20 72 65 64 69 72 65 63 74 69 6f 6e 20 68 6f 6f 6b 73 0a 0a 28 64 65 | ;;.Global.redirection.hooks..(de |
| 123620 | 66 76 61 72 20 2a 67 6c 6f 62 61 6c 2d 73 74 64 69 6f 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 20 6e | fvar.*global-stdio-connection*.n |
| 123640 | 69 6c 0a 20 20 22 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 77 68 69 63 68 20 73 74 | il..."The.connection.to.which.st |
| 123660 | 61 6e 64 61 72 64 20 49 2f 4f 20 73 74 72 65 61 6d 73 20 61 72 65 20 67 6c 6f 62 61 6c 6c 79 20 | andard.I/O.streams.are.globally. |
| 123680 | 72 65 64 69 72 65 63 74 65 64 2e 0a 4e 49 4c 20 69 66 20 73 74 72 65 61 6d 73 20 61 72 65 20 6e | redirected..NIL.if.streams.are.n |
| 1236a0 | 6f 74 20 67 6c 6f 62 61 6c 6c 79 20 72 65 64 69 72 65 63 74 65 64 2e 22 29 0a 0a 28 64 65 66 75 | ot.globally.redirected.")..(defu |
| 1236c0 | 6e 20 6d 61 79 62 65 2d 72 65 64 69 72 65 63 74 2d 67 6c 6f 62 61 6c 2d 69 6f 20 28 63 6f 6e 6e | n.maybe-redirect-global-io.(conn |
| 1236e0 | 65 63 74 69 6f 6e 29 0a 20 20 22 43 6f 6e 73 69 64 65 72 20 67 6c 6f 62 61 6c 6c 79 20 72 65 64 | ection)..."Consider.globally.red |
| 123700 | 69 72 65 63 74 69 6e 67 20 74 6f 20 43 4f 4e 4e 45 43 54 49 4f 4e 2e 22 0a 20 20 28 77 68 65 6e | irecting.to.CONNECTION."...(when |
| 123720 | 20 28 61 6e 64 20 28 67 6c 6f 62 61 6c 6c 79 2d 72 65 64 69 72 65 63 74 2d 69 6f 2d 70 29 20 28 | .(and.(globally-redirect-io-p).( |
| 123740 | 6e 75 6c 6c 20 2a 67 6c 6f 62 61 6c 2d 73 74 64 69 6f 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 0a | null.*global-stdio-connection*). |
| 123760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 69 6f | .............(connection.user-io |
| 123780 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 2a 73 61 76 65 64 | .connection)).....(unless.*saved |
| 1237a0 | 2d 67 6c 6f 62 61 6c 2d 73 74 72 65 61 6d 73 2a 0a 20 20 20 20 20 20 28 69 6e 69 74 2d 67 6c 6f | -global-streams*.......(init-glo |
| 1237c0 | 62 61 6c 2d 73 74 72 65 61 6d 2d 72 65 64 69 72 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 28 73 65 | bal-stream-redirection)).....(se |
| 1237e0 | 74 71 20 2a 67 6c 6f 62 61 6c 2d 73 74 64 69 6f 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 20 63 6f 6e | tq.*global-stdio-connection*.con |
| 123800 | 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 67 6c 6f 62 61 6c 6c 79 2d 72 65 64 69 72 65 63 74 2d | nection).....(globally-redirect- |
| 123820 | 69 6f 2d 74 6f 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 0a | io-to-connection.connection))).. |
| 123840 | 28 64 65 66 75 6e 20 75 70 64 61 74 65 2d 72 65 64 69 72 65 63 74 69 6f 6e 2d 61 66 74 65 72 2d | (defun.update-redirection-after- |
| 123860 | 63 6c 6f 73 65 20 28 63 6c 6f 73 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 22 55 70 64 | close.(closed-connection)..."Upd |
| 123880 | 61 74 65 20 72 65 64 69 72 65 63 74 69 6f 6e 20 61 66 74 65 72 20 61 20 63 6f 6e 6e 65 63 74 69 | ate.redirection.after.a.connecti |
| 1238a0 | 6f 6e 20 63 6c 6f 73 65 73 2e 22 0a 20 20 28 63 68 65 63 6b 2d 74 79 70 65 20 63 6c 6f 73 65 64 | on.closes."...(check-type.closed |
| 1238c0 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 77 68 65 6e 20 | -connection.connection)...(when. |
| 1238e0 | 28 65 71 20 2a 67 6c 6f 62 61 6c 2d 73 74 64 69 6f 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 20 63 6c | (eq.*global-stdio-connection*.cl |
| 123900 | 6f 73 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 64 | osed-connection).....(if.(and.(d |
| 123920 | 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 28 67 6c 6f 62 61 6c 6c 79 2d 72 65 64 | efault-connection).(globally-red |
| 123940 | 69 72 65 63 74 2d 69 6f 2d 70 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 52 65 64 69 72 65 63 74 | irect-io-p)).........;;.Redirect |
| 123960 | 20 74 6f 20 61 6e 6f 74 68 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 | .to.another.connection.......... |
| 123980 | 28 67 6c 6f 62 61 6c 6c 79 2d 72 65 64 69 72 65 63 74 2d 69 6f 2d 74 6f 2d 63 6f 6e 6e 65 63 74 | (globally-redirect-io-to-connect |
| 1239a0 | 69 6f 6e 20 28 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 | ion.(default-connection))....... |
| 1239c0 | 20 20 3b 3b 20 4e 6f 20 6d 6f 72 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2c 20 72 65 76 65 72 74 | ..;;.No.more.connections,.revert |
| 1239e0 | 20 74 6f 20 74 68 65 20 72 65 61 6c 20 73 74 72 65 61 6d 73 2e 0a 20 20 20 20 20 20 20 20 28 70 | .to.the.real.streams..........(p |
| 123a00 | 72 6f 67 6e 20 28 72 65 76 65 72 74 2d 67 6c 6f 62 61 6c 2d 69 6f 2d 72 65 64 69 72 65 63 74 69 | rogn.(revert-global-io-redirecti |
| 123a20 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2a 67 6c 6f 62 61 6c | on)................(setq.*global |
| 123a40 | 2d 73 74 64 69 6f 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 20 6e 69 6c 29 29 29 29 29 0a 0a 28 70 72 | -stdio-connection*.nil)))))..(pr |
| 123a60 | 6f 76 69 64 65 20 3a 73 77 61 6e 6b 2d 72 65 70 6c 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 | ovide.:swank-repl).............. |
| 123a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123c00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 64 69 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/dir.................. |
| 123c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123c60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 123c80 | 30 30 30 31 31 35 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 31 37 31 33 00 20 30 00 00 00 | 0001156.00000000000.011713..0... |
| 123ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 123d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 123d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 123e00 | 54 68 69 73 20 69 73 20 74 68 65 20 66 69 6c 65 20 2e 2e 2e 2f 69 6e 66 6f 2f 64 69 72 2c 20 77 | This.is.the.file..../info/dir,.w |
| 123e20 | 68 69 63 68 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 0a 74 6f 70 6d 6f 73 74 20 6e 6f 64 65 20 6f | hich.contains.the.topmost.node.o |
| 123e40 | 66 20 74 68 65 20 49 6e 66 6f 20 68 69 65 72 61 72 63 68 79 2c 20 63 61 6c 6c 65 64 20 28 64 69 | f.the.Info.hierarchy,.called.(di |
| 123e60 | 72 29 54 6f 70 2e 0a 54 68 65 20 66 69 72 73 74 20 74 69 6d 65 20 79 6f 75 20 69 6e 76 6f 6b 65 | r)Top..The.first.time.you.invoke |
| 123e80 | 20 49 6e 66 6f 20 79 6f 75 20 73 74 61 72 74 20 6f 66 66 20 6c 6f 6f 6b 69 6e 67 20 61 74 20 74 | .Info.you.start.off.looking.at.t |
| 123ea0 | 68 69 73 20 6e 6f 64 65 2e 0a 1f 0a 46 69 6c 65 3a 20 64 69 72 2c 09 4e 6f 64 65 3a 20 54 6f 70 | his.node....File:.dir,.Node:.Top |
| 123ec0 | 09 54 68 69 73 20 69 73 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 20 49 4e 46 4f 20 74 72 65 | .This.is.the.top.of.the.INFO.tre |
| 123ee0 | 65 0a 0a 20 20 54 68 69 73 20 28 74 68 65 20 44 69 72 65 63 74 6f 72 79 20 6e 6f 64 65 29 20 67 | e....This.(the.Directory.node).g |
| 123f00 | 69 76 65 73 20 61 20 6d 65 6e 75 20 6f 66 20 6d 61 6a 6f 72 20 74 6f 70 69 63 73 2e 0a 20 20 54 | ives.a.menu.of.major.topics....T |
| 123f20 | 79 70 69 6e 67 20 22 71 22 20 65 78 69 74 73 2c 20 22 48 22 20 6c 69 73 74 73 20 61 6c 6c 20 49 | yping."q".exits,."H".lists.all.I |
| 123f40 | 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 2c 20 22 64 22 20 72 65 74 75 72 6e 73 20 68 65 72 65 2c 0a | nfo.commands,."d".returns.here,. |
| 123f60 | 20 20 22 68 22 20 67 69 76 65 73 20 61 20 70 72 69 6d 65 72 20 66 6f 72 20 66 69 72 73 74 2d 74 | .."h".gives.a.primer.for.first-t |
| 123f80 | 69 6d 65 72 73 2c 0a 20 20 22 6d 45 6d 61 63 73 3c 52 65 74 75 72 6e 3e 22 20 76 69 73 69 74 73 | imers,..."mEmacs<Return>".visits |
| 123fa0 | 20 74 68 65 20 45 6d 61 63 73 20 6d 61 6e 75 61 6c 2c 20 65 74 63 2e 0a 0a 20 20 49 6e 20 45 6d | .the.Emacs.manual,.etc.....In.Em |
| 123fc0 | 61 63 73 2c 20 79 6f 75 20 63 61 6e 20 63 6c 69 63 6b 20 6d 6f 75 73 65 20 62 75 74 74 6f 6e 20 | acs,.you.can.click.mouse.button. |
| 123fe0 | 32 20 6f 6e 20 61 20 6d 65 6e 75 20 69 74 65 6d 20 6f 72 20 63 72 6f 73 73 20 72 65 66 65 72 65 | 2.on.a.menu.item.or.cross.refere |
| 124000 | 6e 63 65 0a 20 20 74 6f 20 73 65 6c 65 63 74 20 69 74 2e 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 45 6d | nce...to.select.it...*.Menu:..Em |
| 124020 | 61 63 73 0a 2a 20 53 4c 49 4d 45 3a 20 28 73 6c 69 6d 65 29 2e 20 20 20 20 20 20 20 20 20 20 20 | acs.*.SLIME:.(slime)............ |
| 124040 | 20 20 20 20 53 75 70 65 72 69 6f 72 20 4c 69 73 70 20 49 6e 74 65 72 61 63 74 69 6f 6e 20 4d 6f | ....Superior.Lisp.Interaction.Mo |
| 124060 | 64 65 20 66 6f 72 20 45 6d 61 63 73 2e 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | de.for.Emacs.................... |
| 124080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1240a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1240c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1240e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1241a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1241c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1241e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 2e 6c 69 73 70 00 00 00 00 | slime-2.31/swank-loader.lisp.... |
| 124220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 124280 | 30 30 33 36 31 30 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 34 37 30 00 20 30 00 00 00 | 0036101.00000000000.014470..0... |
| 1242a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1242c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1242e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 124320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 124340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1243a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1243c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1243e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 124400 | 3b 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 20 2d | ;;;;.-*-.indent-tabs-mode:.nil.- |
| 124420 | 2a 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 2e 6c 69 73 70 20 2d 2d 2d | *-.;;;.;;;.swank-loader.lisp.--- |
| 124440 | 20 43 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 74 68 65 20 53 6c 69 6d 65 20 62 61 63 6b | .Compile.and.load.the.Slime.back |
| 124460 | 65 6e 64 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 43 72 65 61 74 65 64 20 32 30 30 33 2c 20 4a 61 6d 65 73 | end..;;;.;;;.Created.2003,.James |
| 124480 | 20 42 69 65 6c 6d 61 6e 20 3c 6a 61 6d 65 73 6a 62 40 6a 61 6d 65 73 6a 62 2e 63 6f 6d 3e 0a 3b | .Bielman.<jamesjb@jamesjb.com>.; |
| 1244a0 | 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 | ;;.;;;.This.code.has.been.placed |
| 1244c0 | 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 | .in.the.Public.Domain...All.warr |
| 1244e0 | 61 6e 74 69 65 73 0a 3b 3b 3b 20 61 72 65 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 3b 3b 3b 0a 0a | anties.;;;.are.disclaimed..;;;.. |
| 124500 | 3b 3b 20 49 66 20 79 6f 75 20 77 61 6e 74 20 63 75 73 74 6f 6d 69 7a 65 20 74 68 65 20 73 6f 75 | ;;.If.you.want.customize.the.sou |
| 124520 | 72 63 65 2d 20 6f 72 20 66 61 73 6c 2d 64 69 72 65 63 74 6f 72 79 20 79 6f 75 20 63 61 6e 20 73 | rce-.or.fasl-directory.you.can.s |
| 124540 | 65 74 0a 3b 3b 20 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 2a 73 6f 75 72 63 65 2d 64 69 72 65 63 | et.;;.swank-loader:*source-direc |
| 124560 | 74 6f 72 79 2a 20 72 65 73 70 2e 20 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 2a 66 61 73 6c 2d 64 | tory*.resp..swank-loader:*fasl-d |
| 124580 | 69 72 65 63 74 6f 72 79 2a 0a 3b 3b 20 62 65 66 6f 72 65 20 6c 6f 61 64 69 6e 67 20 74 68 69 73 | irectory*.;;.before.loading.this |
| 1245a0 | 20 66 69 6c 65 73 2e 0a 3b 3b 20 45 2e 67 2e 3a 0a 3b 3b 0a 3b 3b 20 20 20 28 6c 6f 61 64 20 22 | .files..;;.E.g.:.;;.;;...(load." |
| 1245c0 | 2e 2e 2e 2f 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 2e 6c 69 73 70 22 29 0a 3b 3b 20 20 20 28 73 65 | .../swank-loader.lisp").;;...(se |
| 1245e0 | 74 71 20 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 3a 2a 66 61 73 6c 2d 64 69 72 65 63 74 6f 72 79 | tq.swank-loader::*fasl-directory |
| 124600 | 2a 20 22 2f 74 6d 70 2f 66 61 73 6c 2f 22 29 0a 3b 3b 20 20 20 28 73 77 61 6e 6b 2d 6c 6f 61 64 | *."/tmp/fasl/").;;...(swank-load |
| 124620 | 65 72 3a 69 6e 69 74 29 0a 0a 28 63 6c 3a 64 65 66 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2d | er:init)..(cl:defpackage.:swank- |
| 124640 | 6c 6f 61 64 65 72 0a 20 20 28 3a 75 73 65 20 3a 63 6c 29 0a 20 20 28 3a 65 78 70 6f 72 74 20 3a | loader...(:use.:cl)...(:export.: |
| 124660 | 69 6e 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 3a 64 75 6d 70 2d 69 6d 61 67 65 0a 20 20 20 20 | init............:dump-image..... |
| 124680 | 20 20 20 20 20 20 20 3a 6c 69 73 74 2d 66 61 73 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 3a 2a | .......:list-fasls............:* |
| 1246a0 | 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 2a 0a 20 20 20 20 20 20 20 20 20 20 20 3a 2a 66 | source-directory*............:*f |
| 1246c0 | 61 73 6c 2d 64 69 72 65 63 74 6f 72 79 2a 0a 20 20 20 20 20 20 20 20 20 20 20 3a 2a 73 74 61 72 | asl-directory*............:*star |
| 1246e0 | 74 65 64 2d 66 72 6f 6d 2d 65 6d 61 63 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 66 69 | ted-from-emacs*............:defi |
| 124700 | 6e 65 2d 70 61 63 6b 61 67 65 29 29 0a 0a 28 63 6c 3a 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 | ne-package))..(cl:in-package.:sw |
| 124720 | 61 6e 6b 2d 6c 6f 61 64 65 72 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 74 61 72 74 65 64 2d 66 72 | ank-loader)..(defvar.*started-fr |
| 124740 | 6f 6d 2d 65 6d 61 63 73 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 6f 75 72 63 65 2d | om-emacs*.nil)..(defvar.*source- |
| 124760 | 64 69 72 65 63 74 6f 72 79 2a 0a 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 6e 61 6d | directory*...(make-pathname.:nam |
| 124780 | 65 20 6e 69 6c 20 3a 74 79 70 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.nil.:type.nil................. |
| 1247a0 | 20 3a 64 65 66 61 75 6c 74 73 20 28 6f 72 20 2a 6c 6f 61 64 2d 70 61 74 68 6e 61 6d 65 2a 20 2a | .:defaults.(or.*load-pathname*.* |
| 1247c0 | 64 65 66 61 75 6c 74 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 29 29 0a 20 20 22 | default-pathname-defaults*))..." |
| 1247e0 | 54 68 65 20 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 20 74 6f 20 6c 6f 6f 6b 20 66 6f 72 20 | The.directory.where.to.look.for. |
| 124800 | 74 68 65 20 73 6f 75 72 63 65 2e 22 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 73 79 | the.source.")..(defparameter.*sy |
| 124820 | 73 64 65 70 2d 66 69 6c 65 73 2a 0a 20 20 23 2b 63 6d 75 20 27 28 28 73 77 61 6e 6b 20 73 6f 75 | sdep-files*...#+cmu.'((swank.sou |
| 124840 | 72 63 65 2d 70 61 74 68 2d 70 61 72 73 65 72 29 20 28 73 77 61 6e 6b 20 73 6f 75 72 63 65 2d 66 | rce-path-parser).(swank.source-f |
| 124860 | 69 6c 65 2d 63 61 63 68 65 29 20 28 73 77 61 6e 6b 20 63 6d 75 63 6c 29 0a 20 20 20 20 20 20 20 | ile-cache).(swank.cmucl)........ |
| 124880 | 20 20 20 28 73 77 61 6e 6b 20 67 72 61 79 29 29 0a 20 20 23 2b 73 63 6c 20 27 28 28 73 77 61 6e | ...(swank.gray))...#+scl.'((swan |
| 1248a0 | 6b 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 70 61 72 73 65 72 29 20 28 73 77 61 6e 6b 20 73 6f 75 | k.source-path-parser).(swank.sou |
| 1248c0 | 72 63 65 2d 66 69 6c 65 2d 63 61 63 68 65 29 20 28 73 77 61 6e 6b 20 73 63 6c 29 0a 20 20 20 20 | rce-file-cache).(swank.scl)..... |
| 1248e0 | 20 20 20 20 20 20 28 73 77 61 6e 6b 20 67 72 61 79 29 29 0a 20 20 23 2b 73 62 63 6c 20 27 28 28 | ......(swank.gray))...#+sbcl.'(( |
| 124900 | 73 77 61 6e 6b 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 70 61 72 73 65 72 29 20 28 73 77 61 6e 6b | swank.source-path-parser).(swank |
| 124920 | 20 73 6f 75 72 63 65 2d 66 69 6c 65 2d 63 61 63 68 65 29 20 28 73 77 61 6e 6b 20 73 62 63 6c 29 | .source-file-cache).(swank.sbcl) |
| 124940 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 20 67 72 61 79 29 29 0a 20 20 23 2b 63 6c | ............(swank.gray))...#+cl |
| 124960 | 6f 7a 75 72 65 20 27 28 6d 65 74 65 72 69 6e 67 20 28 73 77 61 6e 6b 20 63 63 6c 29 20 28 73 77 | ozure.'(metering.(swank.ccl).(sw |
| 124980 | 61 6e 6b 20 67 72 61 79 29 29 0a 20 20 23 2b 6c 69 73 70 77 6f 72 6b 73 20 27 28 28 73 77 61 6e | ank.gray))...#+lispworks.'((swan |
| 1249a0 | 6b 20 6c 69 73 70 77 6f 72 6b 73 29 20 28 73 77 61 6e 6b 20 67 72 61 79 29 29 0a 20 20 23 2b 61 | k.lispworks).(swank.gray))...#+a |
| 1249c0 | 6c 6c 65 67 72 6f 20 27 28 28 73 77 61 6e 6b 20 61 6c 6c 65 67 72 6f 29 20 28 73 77 61 6e 6b 20 | llegro.'((swank.allegro).(swank. |
| 1249e0 | 67 72 61 79 29 29 0a 20 20 23 2b 63 6c 69 73 70 20 27 28 78 72 65 66 20 6d 65 74 65 72 69 6e 67 | gray))...#+clisp.'(xref.metering |
| 124a00 | 20 28 73 77 61 6e 6b 20 63 6c 69 73 70 29 20 28 73 77 61 6e 6b 20 67 72 61 79 29 29 0a 20 20 23 | .(swank.clisp).(swank.gray))...# |
| 124a20 | 2b 61 72 6d 65 64 62 65 61 72 20 27 28 28 73 77 61 6e 6b 20 61 62 63 6c 29 20 28 73 77 61 6e 6b | +armedbear.'((swank.abcl).(swank |
| 124a40 | 20 67 72 61 79 29 29 0a 20 20 23 2b 63 6f 72 6d 61 6e 6c 69 73 70 20 27 28 28 73 77 61 6e 6b 20 | .gray))...#+cormanlisp.'((swank. |
| 124a60 | 63 6f 72 6d 61 6e 29 20 28 73 77 61 6e 6b 20 67 72 61 79 29 29 0a 20 20 23 2b 65 63 6c 20 27 28 | corman).(swank.gray))...#+ecl.'( |
| 124a80 | 28 73 77 61 6e 6b 20 65 63 6c 29 20 28 73 77 61 6e 6b 20 67 72 61 79 29 29 0a 20 20 23 2b 63 6c | (swank.ecl).(swank.gray))...#+cl |
| 124aa0 | 61 73 70 20 27 28 6d 65 74 65 72 69 6e 67 20 28 73 77 61 6e 6b 20 63 6c 61 73 70 29 20 28 73 77 | asp.'(metering.(swank.clasp).(sw |
| 124ac0 | 61 6e 6b 20 67 72 61 79 29 29 0a 20 20 23 2b 6d 6b 63 6c 20 27 28 28 73 77 61 6e 6b 20 6d 6b 63 | ank.gray))...#+mkcl.'((swank.mkc |
| 124ae0 | 6c 29 20 28 73 77 61 6e 6b 20 67 72 61 79 29 29 0a 20 20 23 2b 6d 65 7a 7a 61 6e 6f 20 27 28 28 | l).(swank.gray))...#+mezzano.'(( |
| 124b00 | 73 77 61 6e 6b 20 6d 65 7a 7a 61 6e 6f 29 20 28 73 77 61 6e 6b 20 67 72 61 79 29 29 0a 20 20 29 | swank.mezzano).(swank.gray))...) |
| 124b20 | 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d | ..(defparameter.*implementation- |
| 124b40 | 66 65 61 74 75 72 65 73 2a 0a 20 20 27 28 3a 61 6c 6c 65 67 72 6f 20 3a 6c 69 73 70 77 6f 72 6b | features*...'(:allegro.:lispwork |
| 124b60 | 73 20 3a 73 62 63 6c 20 3a 63 6c 6f 7a 75 72 65 20 3a 63 6d 75 20 3a 63 6c 69 73 70 20 3a 63 63 | s.:sbcl.:clozure.:cmu.:clisp.:cc |
| 124b80 | 6c 20 3a 63 6f 72 6d 61 6e 20 3a 63 6f 72 6d 61 6e 6c 69 73 70 0a 20 20 20 20 3a 61 72 6d 65 64 | l.:corman.:cormanlisp.....:armed |
| 124ba0 | 62 65 61 72 20 3a 67 63 6c 20 3a 65 63 6c 20 3a 73 63 6c 20 3a 6d 6b 63 6c 20 3a 63 6c 61 73 70 | bear.:gcl.:ecl.:scl.:mkcl.:clasp |
| 124bc0 | 20 3a 6d 65 7a 7a 61 6e 6f 29 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 6f 73 2d 66 | .:mezzano))..(defparameter.*os-f |
| 124be0 | 65 61 74 75 72 65 73 2a 0a 20 20 27 28 3a 6d 61 63 6f 73 78 20 3a 6c 69 6e 75 78 20 3a 77 69 6e | eatures*...'(:macosx.:linux.:win |
| 124c00 | 64 6f 77 73 20 3a 6d 73 77 69 6e 64 6f 77 73 20 3a 77 69 6e 33 32 20 3a 73 6f 6c 61 72 69 73 20 | dows.:mswindows.:win32.:solaris. |
| 124c20 | 3a 64 61 72 77 69 6e 20 3a 73 75 6e 6f 73 20 3a 68 70 75 78 0a 20 20 20 20 3a 75 6e 69 78 20 3a | :darwin.:sunos.:hpux.....:unix.: |
| 124c40 | 6d 65 7a 7a 61 6e 6f 29 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 61 72 63 68 69 74 | mezzano))..(defparameter.*archit |
| 124c60 | 65 63 74 75 72 65 2d 66 65 61 74 75 72 65 73 2a 0a 20 20 27 28 3a 70 6f 77 65 72 70 63 20 3a 70 | ecture-features*...'(:powerpc.:p |
| 124c80 | 70 63 20 3a 70 70 63 36 34 20 3a 78 38 36 20 3a 78 38 36 2d 36 34 20 3a 78 38 36 5f 36 34 20 3a | pc.:ppc64.:x86.:x86-64.:x86_64.: |
| 124ca0 | 61 6d 64 36 34 20 3a 69 36 38 36 20 3a 69 35 38 36 20 3a 69 34 38 36 20 3a 70 63 33 38 36 20 3a | amd64.:i686.:i586.:i486.:pc386.: |
| 124cc0 | 69 61 70 78 33 38 36 0a 20 20 20 20 3a 73 70 61 72 63 36 34 20 3a 73 70 61 72 63 20 3a 68 70 70 | iapx386.....:sparc64.:sparc.:hpp |
| 124ce0 | 61 36 34 20 3a 68 70 70 61 20 3a 61 72 6d 20 3a 61 72 6d 76 35 6c 20 3a 61 72 6d 76 36 6c 20 3a | a64.:hppa.:arm.:armv5l.:armv6l.: |
| 124d00 | 61 72 6d 76 37 6c 20 3a 61 72 6d 36 34 20 3a 61 61 72 63 68 36 34 0a 20 20 20 20 3a 70 65 6e 74 | armv7l.:arm64.:aarch64.....:pent |
| 124d20 | 69 75 6d 33 20 3a 70 65 6e 74 69 75 6d 34 0a 20 20 20 20 3a 6d 69 70 73 20 3a 6d 69 70 73 65 6c | ium3.:pentium4.....:mips.:mipsel |
| 124d40 | 0a 20 20 20 20 3a 6a 61 76 61 2d 31 2e 34 20 3a 6a 61 76 61 2d 31 2e 35 20 3a 6a 61 76 61 2d 31 | .....:java-1.4.:java-1.5.:java-1 |
| 124d60 | 2e 36 20 3a 6a 61 76 61 2d 31 2e 37 29 29 0a 0a 28 64 65 66 75 6e 20 71 20 28 73 29 20 28 72 65 | .6.:java-1.7))..(defun.q.(s).(re |
| 124d80 | 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 29 29 0a 0a 23 2b 65 63 6c 0a 28 64 65 66 75 6e | ad-from-string.s))..#+ecl.(defun |
| 124da0 | 20 65 63 6c 2d 76 65 72 73 69 6f 6e 2d 73 74 72 69 6e 67 20 28 29 0a 20 20 28 66 6f 72 6d 61 74 | .ecl-version-string.()...(format |
| 124dc0 | 20 6e 69 6c 20 22 7e 41 7e 40 5b 2d 7e 41 7e 5d 22 0a 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | .nil."~A~@[-~A~]"...........(lis |
| 124de0 | 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 20 | p-implementation-version)....... |
| 124e00 | 20 20 20 20 28 77 68 65 6e 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 4c 49 53 50 2d 49 4d 50 | ....(when.(find-symbol."LISP-IMP |
| 124e20 | 4c 45 4d 45 4e 54 41 54 49 4f 4e 2d 56 43 53 2d 49 44 22 20 3a 65 78 74 29 0a 20 20 20 20 20 20 | LEMENTATION-VCS-ID".:ext)....... |
| 124e40 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 63 73 2d 69 64 20 28 66 75 6e 63 61 6c 6c 20 28 71 20 | ......(let.((vcs-id.(funcall.(q. |
| 124e60 | 22 65 78 74 3a 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 63 73 2d 69 64 22 | "ext:lisp-implementation-vcs-id" |
| 124e80 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 3d 20 28 6c 65 | ))))...............(when.(>=.(le |
| 124ea0 | 6e 67 74 68 20 76 63 73 2d 69 64 29 20 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ngth.vcs-id).8)................. |
| 124ec0 | 28 73 75 62 73 65 71 20 76 63 73 2d 69 64 20 30 20 38 29 29 29 29 29 29 0a 0a 23 2b 63 6c 61 73 | (subseq.vcs-id.0.8))))))..#+clas |
| 124ee0 | 70 0a 28 64 65 66 75 6e 20 63 6c 61 73 70 2d 76 65 72 73 69 6f 6e 2d 73 74 72 69 6e 67 20 28 29 | p.(defun.clasp-version-string.() |
| 124f00 | 0a 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 7e 40 5b 2d 7e 41 7e 5d 22 0a 20 20 20 20 | ...(format.nil."~A~@[-~A~]"..... |
| 124f20 | 20 20 20 20 20 20 28 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 | ......(lisp-implementation-versi |
| 124f40 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 72 65 3a 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 | on)...........(core:lisp-impleme |
| 124f60 | 6e 74 61 74 69 6f 6e 2d 69 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 76 65 72 73 69 | ntation-id)))..(defun.lisp-versi |
| 124f80 | 6f 6e 2d 73 74 72 69 6e 67 20 28 29 0a 20 20 23 2b 28 6f 72 20 63 6c 6f 7a 75 72 65 20 63 6d 75 | on-string.()...#+(or.clozure.cmu |
| 124fa0 | 29 20 28 73 75 62 73 74 69 74 75 74 65 2d 69 66 20 23 5c 5f 20 28 6c 61 6d 62 64 61 20 28 78 29 | ).(substitute-if.#\_.(lambda.(x) |
| 124fc0 | 20 28 66 69 6e 64 20 78 20 22 20 2f 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(find.x."./"))................. |
| 124fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 70 2d 69 6d 70 6c 65 6d | ....................(lisp-implem |
| 125000 | 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 6f 6e 29 29 0a 20 20 23 2b 28 6f 72 20 63 6f 72 6d 61 | entation-version))...#+(or.corma |
| 125020 | 6e 6c 69 73 70 20 73 63 6c 20 6d 6b 63 6c 29 20 28 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 | nlisp.scl.mkcl).(lisp-implementa |
| 125040 | 74 69 6f 6e 2d 76 65 72 73 69 6f 6e 29 0a 20 20 23 2b 73 62 63 6c 20 28 66 6f 72 6d 61 74 20 6e | tion-version)...#+sbcl.(format.n |
| 125060 | 69 6c 20 22 7e 61 7e 3a 5b 7e 3b 2d 6e 6f 2d 74 68 72 65 61 64 73 7e 5d 22 0a 20 20 20 20 20 20 | il."~a~:[~;-no-threads~]"....... |
| 125080 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d | ...........(lisp-implementation- |
| 1250a0 | 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 73 62 2d 74 | version)..................#+sb-t |
| 1250c0 | 68 72 65 61 64 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2d 73 62 2d | hread.nil..................#-sb- |
| 1250e0 | 74 68 72 65 61 64 20 74 29 0a 20 20 23 2b 6c 69 73 70 77 6f 72 6b 73 20 28 6c 69 73 70 2d 69 6d | thread.t)...#+lispworks.(lisp-im |
| 125100 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 6f 6e 29 0a 20 20 23 2b 61 6c 6c 65 67 72 | plementation-version)...#+allegr |
| 125120 | 6f 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 40 7b 7e 61 7e 7d 22 0a 20 20 20 20 20 20 | o...(format.nil."~@{~a~}"....... |
| 125140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 63 6c 3a 3a 2a 63 6f 6d 6d 6f 6e 2d 6c 69 | ................excl::*common-li |
| 125160 | 73 70 2d 76 65 72 73 69 6f 6e 2d 6e 75 6d 62 65 72 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | sp-version-number*.............. |
| 125180 | 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 3d 20 27 6c 69 73 70 20 22 4c 49 53 | .........(if.(string=.'lisp."LIS |
| 1251a0 | 50 22 29 20 22 41 22 20 22 4d 22 29 20 20 20 20 20 3b 20 41 4e 53 49 20 76 73 20 4d 6f 44 65 52 | P")."A"."M").....;.ANSI.vs.MoDeR |
| 1251c0 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6d 65 6d | n.......................(if.(mem |
| 1251e0 | 62 65 72 20 3a 73 6d 70 20 2a 66 65 61 74 75 72 65 73 2a 29 20 22 73 22 20 22 22 29 0a 20 20 20 | ber.:smp.*features*)."s"."").... |
| 125200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6d 65 6d 62 65 72 20 3a | ...................(if.(member.: |
| 125220 | 36 34 62 69 74 20 2a 66 65 61 74 75 72 65 73 2a 29 20 22 2d 36 34 62 69 74 22 20 22 22 29 0a 20 | 64bit.*features*)."-64bit"."").. |
| 125240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 63 6c 3a 69 63 73 2d 74 | .....................(excl:ics-t |
| 125260 | 61 72 67 65 74 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | arget-case...................... |
| 125280 | 20 20 28 3a 2d 69 63 73 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(:-ics."").................... |
| 1252a0 | 20 20 20 20 28 3a 2b 69 63 73 20 22 2d 69 63 73 22 29 29 29 0a 20 20 23 2b 63 6c 69 73 70 20 20 | ....(:+ics."-ics")))...#+clisp.. |
| 1252c0 | 20 20 20 28 6c 65 74 20 28 28 73 20 28 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ...(let.((s.(lisp-implementation |
| 1252e0 | 2d 76 65 72 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 | -version))).................(sub |
| 125300 | 73 65 71 20 73 20 30 20 28 70 6f 73 69 74 69 6f 6e 20 23 5c 73 70 61 63 65 20 73 29 29 29 0a 20 | seq.s.0.(position.#\space.s))).. |
| 125320 | 20 23 2b 61 72 6d 65 64 62 65 61 72 20 28 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | .#+armedbear.(lisp-implementatio |
| 125340 | 6e 2d 76 65 72 73 69 6f 6e 29 0a 20 20 23 2b 65 63 6c 20 28 65 63 6c 2d 76 65 72 73 69 6f 6e 2d | n-version)...#+ecl.(ecl-version- |
| 125360 | 73 74 72 69 6e 67 29 0a 20 20 23 2b 63 6c 61 73 70 20 28 63 6c 61 73 70 2d 76 65 72 73 69 6f 6e | string)...#+clasp.(clasp-version |
| 125380 | 2d 73 74 72 69 6e 67 29 0a 20 20 23 2b 6d 65 7a 7a 61 6e 6f 20 28 6c 65 74 20 28 28 73 20 28 6c | -string)...#+mezzano.(let.((s.(l |
| 1253a0 | 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 6f 6e 29 29 29 0a 20 20 | isp-implementation-version)))... |
| 1253c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 65 71 20 73 20 30 20 28 70 6f 73 69 74 69 6f | ............(subseq.s.0.(positio |
| 1253e0 | 6e 20 23 5c 73 70 61 63 65 20 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 69 71 75 65 2d 64 | n.#\space.s))))..(defun.unique-d |
| 125400 | 69 72 2d 6e 61 6d 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6e 61 6d 65 20 74 68 61 74 | ir-name.()..."Return.a.name.that |
| 125420 | 20 63 61 6e 20 62 65 20 75 73 65 64 20 61 73 20 61 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 | .can.be.used.as.a.directory.name |
| 125440 | 20 74 68 61 74 20 69 73 0a 75 6e 69 71 75 65 20 74 6f 20 61 20 4c 69 73 70 20 69 6d 70 6c 65 6d | .that.is.unique.to.a.Lisp.implem |
| 125460 | 65 6e 74 61 74 69 6f 6e 2c 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 76 65 | entation,.Lisp.implementation.ve |
| 125480 | 72 73 69 6f 6e 2c 0a 6f 70 65 72 61 74 69 6e 67 20 73 79 73 74 65 6d 2c 20 61 6e 64 20 68 61 72 | rsion,.operating.system,.and.har |
| 1254a0 | 64 77 61 72 65 20 61 72 63 68 69 74 65 63 74 75 72 65 2e 22 0a 20 20 28 66 6c 65 74 20 28 28 66 | dware.architecture."...(flet.((f |
| 1254c0 | 69 72 73 74 2d 6f 66 20 28 66 65 61 74 75 72 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c | irst-of.(features)............(l |
| 1254e0 | 6f 6f 70 20 66 6f 72 20 66 20 69 6e 20 66 65 61 74 75 72 65 73 0a 20 20 20 20 20 20 20 20 20 20 | oop.for.f.in.features........... |
| 125500 | 20 20 20 20 20 20 20 77 68 65 6e 20 28 66 69 6e 64 20 66 20 2a 66 65 61 74 75 72 65 73 2a 29 20 | .......when.(find.f.*features*). |
| 125520 | 72 65 74 75 72 6e 20 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 77 61 72 6e | return.it))..........(maybe-warn |
| 125540 | 20 28 76 61 6c 75 65 20 66 73 74 72 69 6e 67 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 | .(value.fstring.&rest.args)..... |
| 125560 | 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .......(cond.(value)............ |
| 125580 | 20 20 20 20 20 20 28 74 20 28 61 70 70 6c 79 20 23 27 77 61 72 6e 20 66 73 74 72 69 6e 67 20 61 | ......(t.(apply.#'warn.fstring.a |
| 1255a0 | 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 6e 6b 6e 6f 77 | rgs)....................."unknow |
| 1255c0 | 6e 22 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 69 73 70 20 28 6d 61 79 62 65 2d 77 61 | n")))).....(let.((lisp.(maybe-wa |
| 1255e0 | 72 6e 20 28 66 69 72 73 74 2d 6f 66 20 2a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 66 65 61 | rn.(first-of.*implementation-fea |
| 125600 | 74 75 72 65 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tures*)......................... |
| 125620 | 20 20 20 20 22 4e 6f 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 65 61 74 75 72 65 20 66 | ...."No.implementation.feature.f |
| 125640 | 6f 75 6e 64 20 69 6e 20 7e 61 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ound.in.~a.".................... |
| 125660 | 20 20 20 20 20 20 20 20 20 2a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 66 65 61 74 75 72 65 | .........*implementation-feature |
| 125680 | 73 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6f 73 20 20 20 28 6d 61 79 62 65 2d 77 61 72 6e | s*))...........(os...(maybe-warn |
| 1256a0 | 20 28 66 69 72 73 74 2d 6f 66 20 2a 6f 73 2d 66 65 61 74 75 72 65 73 2a 29 0a 20 20 20 20 20 20 | .(first-of.*os-features*)....... |
| 1256c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4e 6f 20 6f 73 20 66 65 61 | ......................"No.os.fea |
| 1256e0 | 74 75 72 65 20 66 6f 75 6e 64 20 69 6e 20 7e 61 2e 22 20 2a 6f 73 2d 66 65 61 74 75 72 65 73 2a | ture.found.in.~a.".*os-features* |
| 125700 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 72 63 68 20 28 6d 61 79 62 65 2d 77 61 72 6e 20 28 | ))...........(arch.(maybe-warn.( |
| 125720 | 66 69 72 73 74 2d 6f 66 20 2a 61 72 63 68 69 74 65 63 74 75 72 65 2d 66 65 61 74 75 72 65 73 2a | first-of.*architecture-features* |
| 125740 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4e | )............................."N |
| 125760 | 6f 20 61 72 63 68 69 74 65 63 74 75 72 65 20 66 65 61 74 75 72 65 20 66 6f 75 6e 64 20 69 6e 20 | o.architecture.feature.found.in. |
| 125780 | 7e 61 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ~a."............................ |
| 1257a0 | 20 2a 61 72 63 68 69 74 65 63 74 75 72 65 2d 66 65 61 74 75 72 65 73 2a 29 29 0a 20 20 20 20 20 | .*architecture-features*))...... |
| 1257c0 | 20 20 20 20 20 28 76 65 72 73 69 6f 6e 20 28 6d 61 79 62 65 2d 77 61 72 6e 20 28 6c 69 73 70 2d | .....(version.(maybe-warn.(lisp- |
| 1257e0 | 76 65 72 73 69 6f 6e 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | version-string)................. |
| 125800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 44 6f 6e 27 74 20 6b 6e 6f 77 20 68 6f 77 20 74 | ..............."Don't.know.how.t |
| 125820 | 6f 20 67 65 74 20 4c 69 73 70 20 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o.get.Lisp.~.................... |
| 125840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 76 65 72 73 | .............implementation.vers |
| 125860 | 69 6f 6e 2e 22 29 29 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 28 7e 40 | ion."))).......(format.nil."~(~@ |
| 125880 | 7b 7e 61 7e 5e 2d 7e 7d 7e 29 22 20 6c 69 73 70 20 76 65 72 73 69 6f 6e 20 6f 73 20 61 72 63 68 | {~a~^-~}~)".lisp.version.os.arch |
| 1258a0 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6c 65 2d 6e 65 77 65 72 2d 70 20 28 6e 65 77 2d 66 | ))))..(defun.file-newer-p.(new-f |
| 1258c0 | 69 6c 65 20 6f 6c 64 2d 66 69 6c 65 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 72 75 65 20 69 66 | ile.old-file)..."Returns.true.if |
| 1258e0 | 20 4e 45 57 2d 46 49 4c 45 20 69 73 20 6e 65 77 65 72 20 74 68 61 6e 20 4f 4c 44 2d 46 49 4c 45 | .NEW-FILE.is.newer.than.OLD-FILE |
| 125900 | 2e 22 0a 20 20 28 3e 20 28 66 69 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 20 6e 65 77 2d 66 69 6c | ."...(>.(file-write-date.new-fil |
| 125920 | 65 29 20 28 66 69 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 20 6f 6c 64 2d 66 69 6c 65 29 29 29 0a | e).(file-write-date.old-file))). |
| 125940 | 0a 28 64 65 66 75 6e 20 73 74 72 69 6e 67 2d 73 74 61 72 74 73 2d 77 69 74 68 20 28 73 74 72 69 | .(defun.string-starts-with.(stri |
| 125960 | 6e 67 20 70 72 65 66 69 78 29 0a 20 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 73 74 72 69 6e | ng.prefix)...(string-equal.strin |
| 125980 | 67 20 70 72 65 66 69 78 20 3a 65 6e 64 31 20 28 6d 69 6e 20 28 6c 65 6e 67 74 68 20 73 74 72 69 | g.prefix.:end1.(min.(length.stri |
| 1259a0 | 6e 67 29 20 28 6c 65 6e 67 74 68 20 70 72 65 66 69 78 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | ng).(length.prefix))))..(defun.s |
| 1259c0 | 6c 69 6d 65 2d 76 65 72 73 69 6f 6e 2d 73 74 72 69 6e 67 20 28 29 0a 20 20 22 52 65 74 75 72 6e | lime-version-string.()..."Return |
| 1259e0 | 20 61 20 73 74 72 69 6e 67 20 69 64 65 6e 74 69 66 79 69 6e 67 20 74 68 65 20 53 4c 49 4d 45 20 | .a.string.identifying.the.SLIME. |
| 125a00 | 76 65 72 73 69 6f 6e 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 6e 6f 74 68 69 6e 67 20 61 | version..Return.nil.if.nothing.a |
| 125a20 | 70 70 72 6f 70 72 69 61 74 65 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e 22 0a 20 20 28 77 69 74 | ppropriate.is.available."...(wit |
| 125a40 | 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 73 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 | h-open-file.(s.(merge-pathnames. |
| 125a60 | 22 73 6c 69 6d 65 2e 65 6c 22 20 2a 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 2a 29 0a 20 | "slime.el".*source-directory*).. |
| 125a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 66 2d 64 6f 65 73 2d 6e 6f 74 | ....................:if-does-not |
| 125aa0 | 2d 65 78 69 73 74 20 6e 69 6c 29 0a 20 20 20 20 28 77 68 65 6e 20 73 0a 20 20 20 20 20 20 28 6c | -exist.nil).....(when.s.......(l |
| 125ac0 | 6f 6f 70 20 77 69 74 68 20 70 72 65 66 69 78 20 3d 20 22 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 22 | oop.with.prefix.=.";;.Version:." |
| 125ae0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6c 69 6e 65 20 3d 20 28 72 65 61 64 2d 6c 69 | .............for.line.=.(read-li |
| 125b00 | 6e 65 20 73 20 6e 69 6c 20 3a 65 6f 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 74 69 6c | ne.s.nil.:eof).............until |
| 125b20 | 20 28 65 71 20 6c 69 6e 65 20 3a 65 6f 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e | .(eq.line.:eof).............when |
| 125b40 | 20 28 73 74 72 69 6e 67 2d 73 74 61 72 74 73 2d 77 69 74 68 20 6c 69 6e 65 20 70 72 65 66 69 78 | .(string-starts-with.line.prefix |
| 125b60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 73 75 62 73 65 71 20 6c | )...............return.(subseq.l |
| 125b80 | 69 6e 65 20 28 6c 65 6e 67 74 68 20 70 72 65 66 69 78 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | ine.(length.prefix))))))..(defun |
| 125ba0 | 20 64 65 66 61 75 6c 74 2d 66 61 73 6c 2d 64 69 72 20 28 29 0a 20 20 28 6d 65 72 67 65 2d 70 61 | .default-fasl-dir.()...(merge-pa |
| 125bc0 | 74 68 6e 61 6d 65 73 0a 20 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 0a 20 20 20 20 3a 64 | thnames....(make-pathname.....:d |
| 125be0 | 69 72 65 63 74 6f 72 79 20 60 28 3a 72 65 6c 61 74 69 76 65 20 22 2e 73 6c 69 6d 65 22 20 22 66 | irectory.`(:relative.".slime"."f |
| 125c00 | 61 73 6c 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 69 66 20 28 73 6c 69 | asl"..................,@(if.(sli |
| 125c20 | 6d 65 2d 76 65 72 73 69 6f 6e 2d 73 74 72 69 6e 67 29 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d | me-version-string).(list.(slime- |
| 125c40 | 76 65 72 73 69 6f 6e 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | version-string)))............... |
| 125c60 | 20 20 20 2c 28 75 6e 69 71 75 65 2d 64 69 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ...,(unique-dir-name)........... |
| 125c80 | 20 20 20 20 20 20 20 2c 40 28 69 66 20 2a 6c 6f 61 64 2d 74 72 75 65 6e 61 6d 65 2a 20 28 63 64 | .......,@(if.*load-truename*.(cd |
| 125ca0 | 72 20 28 70 61 74 68 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 2a 6c 6f 61 64 2d 74 72 75 65 | r.(pathname-directory.*load-true |
| 125cc0 | 6e 61 6d 65 2a 29 29 29 29 29 0a 20 20 20 28 75 73 65 72 2d 68 6f 6d 65 64 69 72 2d 70 61 74 68 | name*)))))....(user-homedir-path |
| 125ce0 | 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 66 61 73 6c 2d 64 69 72 65 63 74 6f 72 79 | name)))..(defvar.*fasl-directory |
| 125d00 | 2a 20 28 64 65 66 61 75 6c 74 2d 66 61 73 6c 2d 64 69 72 29 0a 20 20 22 54 68 65 20 64 69 72 65 | *.(default-fasl-dir)..."The.dire |
| 125d20 | 63 74 6f 72 79 20 77 68 65 72 65 20 66 61 73 6c 20 66 69 6c 65 73 20 73 68 6f 75 6c 64 20 62 65 | ctory.where.fasl.files.should.be |
| 125d40 | 20 70 6c 61 63 65 64 2e 22 29 0a 0a 28 64 65 66 75 6e 20 62 69 6e 61 72 79 2d 70 61 74 68 6e 61 | .placed.")..(defun.binary-pathna |
| 125d60 | 6d 65 20 28 73 72 63 2d 70 61 74 68 6e 61 6d 65 20 62 69 6e 61 72 79 2d 64 69 72 29 0a 20 20 22 | me.(src-pathname.binary-dir)..." |
| 125d80 | 52 65 74 75 72 6e 20 74 68 65 20 70 61 74 68 6e 61 6d 65 20 77 68 65 72 65 20 53 52 43 2d 50 41 | Return.the.pathname.where.SRC-PA |
| 125da0 | 54 48 4e 41 4d 45 27 73 20 62 69 6e 61 72 79 20 73 68 6f 75 6c 64 20 62 65 20 63 6f 6d 70 69 6c | THNAME's.binary.should.be.compil |
| 125dc0 | 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 66 70 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d | ed."...(let.((cfp.(compile-file- |
| 125de0 | 70 61 74 68 6e 61 6d 65 20 73 72 63 2d 70 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 6d 65 | pathname.src-pathname))).....(me |
| 125e00 | 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 6e 61 | rge-pathnames.(make-pathname.:na |
| 125e20 | 6d 65 20 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 63 66 70 29 0a 20 20 20 20 20 20 20 20 20 | me.(pathname-name.cfp).......... |
| 125e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 79 70 65 | ...........................:type |
| 125e60 | 20 28 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 20 63 66 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .(pathname-type.cfp))........... |
| 125e80 | 20 20 20 20 20 20 20 20 20 20 20 62 69 6e 61 72 79 2d 64 69 72 29 29 29 0a 0a 28 64 65 66 75 6e | ...........binary-dir)))..(defun |
| 125ea0 | 20 68 61 6e 64 6c 65 2d 73 77 61 6e 6b 2d 6c 6f 61 64 2d 65 72 72 6f 72 20 28 63 6f 6e 64 69 74 | .handle-swank-load-error.(condit |
| 125ec0 | 69 6f 6e 20 63 6f 6e 74 65 78 74 20 70 61 74 68 6e 61 6d 65 29 0a 20 20 28 66 72 65 73 68 2d 6c | ion.context.pathname)...(fresh-l |
| 125ee0 | 69 6e 65 20 2a 65 72 72 6f 72 2d 6f 75 74 70 75 74 2a 29 0a 20 20 28 70 70 72 69 6e 74 2d 6c 6f | ine.*error-output*)...(pprint-lo |
| 125f00 | 67 69 63 61 6c 2d 62 6c 6f 63 6b 20 28 2a 65 72 72 6f 72 2d 6f 75 74 70 75 74 2a 20 28 29 20 3a | gical-block.(*error-output*.().: |
| 125f20 | 70 65 72 2d 6c 69 6e 65 2d 70 72 65 66 69 78 20 22 3b 3b 20 22 29 0a 20 20 20 20 28 66 6f 72 6d | per-line-prefix.";;.").....(form |
| 125f40 | 61 74 20 2a 65 72 72 6f 72 2d 6f 75 74 70 75 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 7e | at.*error-output*............."~ |
| 125f60 | 25 45 72 72 6f 72 20 7e 41 20 7e 41 3a 7e 25 20 20 7e 41 7e 25 22 0a 20 20 20 20 20 20 20 20 20 | %Error.~A.~A:~%..~A~%".......... |
| 125f80 | 20 20 20 63 6f 6e 74 65 78 74 20 70 61 74 68 6e 61 6d 65 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 | ...context.pathname.condition))) |
| 125fa0 | 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 73 20 28 66 69 6c 65 73 20 66 61 | ..(defun.compile-files.(files.fa |
| 125fc0 | 73 6c 2d 64 69 72 20 6c 6f 61 64 20 71 75 69 65 74 29 0a 20 20 22 43 6f 6d 70 69 6c 65 20 65 61 | sl-dir.load.quiet)..."Compile.ea |
| 125fe0 | 63 68 20 66 69 6c 65 20 69 6e 20 46 49 4c 45 53 20 69 66 20 74 68 65 20 73 6f 75 72 63 65 20 69 | ch.file.in.FILES.if.the.source.i |
| 126000 | 73 20 6e 65 77 65 72 20 74 68 61 6e 20 69 74 73 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 62 | s.newer.than.its.corresponding.b |
| 126020 | 69 6e 61 72 79 2c 20 6f 72 20 74 68 65 20 66 69 6c 65 20 70 72 65 63 65 64 69 6e 67 20 69 74 20 | inary,.or.the.file.preceding.it. |
| 126040 | 77 61 73 20 72 65 63 6f 6d 70 69 6c 65 64 2e 0a 49 66 20 4c 4f 41 44 20 69 73 20 74 72 75 65 2c | was.recompiled..If.LOAD.is.true, |
| 126060 | 20 6c 6f 61 64 20 74 68 65 20 66 61 73 6c 20 66 69 6c 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 6e | .load.the.fasl.file."...(let.((n |
| 126080 | 65 65 64 73 2d 72 65 63 6f 6d 70 69 6c 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 73 74 61 | eeds-recompile.nil).........(sta |
| 1260a0 | 74 65 20 3a 75 6e 6b 6e 6f 77 6e 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 73 72 63 20 66 | te.:unknown)).....(dolist.(src.f |
| 1260c0 | 69 6c 65 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 73 74 20 28 62 69 6e 61 72 79 2d | iles).......(let.((dest.(binary- |
| 1260e0 | 70 61 74 68 6e 61 6d 65 20 73 72 63 20 66 61 73 6c 2d 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 | pathname.src.fasl-dir)))........ |
| 126100 | 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 72 72 | .(handler-bind.............((err |
| 126120 | 6f 72 20 28 6c 61 6d 62 64 61 20 28 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | or.(lambda.(c).................. |
| 126140 | 20 20 20 20 20 28 65 63 61 73 65 20 73 74 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(ecase.state............... |
| 126160 | 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6d 70 69 6c 65 20 28 68 61 6e 64 6c 65 2d 73 77 61 6e | ..........(:compile.(handle-swan |
| 126180 | 6b 2d 6c 6f 61 64 2d 65 72 72 6f 72 20 63 20 22 63 6f 6d 70 69 6c 69 6e 67 22 20 73 72 63 29 29 | k-load-error.c."compiling".src)) |
| 1261a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 6f 61 64 20 | .........................(:load. |
| 1261c0 | 20 20 20 28 68 61 6e 64 6c 65 2d 73 77 61 6e 6b 2d 6c 6f 61 64 2d 65 72 72 6f 72 20 63 20 22 6c | ...(handle-swank-load-error.c."l |
| 1261e0 | 6f 61 64 69 6e 67 22 20 64 65 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | oading".dest)).................. |
| 126200 | 20 20 20 20 20 20 20 28 3a 75 6e 6b 6e 6f 77 6e 20 28 68 61 6e 64 6c 65 2d 73 77 61 6e 6b 2d 6c | .......(:unknown.(handle-swank-l |
| 126220 | 6f 61 64 2d 65 72 72 6f 72 20 63 20 22 3f 3f 3f 69 6e 67 22 20 73 72 63 29 29 29 29 29 29 0a 20 | oad-error.c."???ing".src)))))).. |
| 126240 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 6e 65 65 64 73 2d 72 65 63 6f 6d 70 69 | .........(when.(or.needs-recompi |
| 126260 | 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 70 72 6f | le.....................(not.(pro |
| 126280 | 62 65 2d 66 69 6c 65 20 64 65 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | be-file.dest)).................. |
| 1262a0 | 20 20 20 28 66 69 6c 65 2d 6e 65 77 65 72 2d 70 20 73 72 63 20 64 65 73 74 29 29 0a 20 20 20 20 | ...(file-newer-p.src.dest))..... |
| 1262c0 | 20 20 20 20 20 20 20 20 28 65 6e 73 75 72 65 2d 64 69 72 65 63 74 6f 72 69 65 73 2d 65 78 69 73 | ........(ensure-directories-exis |
| 1262e0 | 74 20 64 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6e 65 65 64 20 74 6f 20 72 | t.dest).............;;.need.to.r |
| 126300 | 65 63 6f 6d 70 69 6c 65 20 53 52 43 2c 20 73 6f 20 77 65 27 6c 6c 20 6e 65 65 64 20 74 6f 20 72 | ecompile.SRC,.so.we'll.need.to.r |
| 126320 | 65 63 6f 6d 70 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 65 76 65 72 79 74 68 69 | ecompile.............;;.everythi |
| 126340 | 6e 67 20 61 66 74 65 72 20 74 68 69 73 20 74 6f 6f 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | ng.after.this.too..............( |
| 126360 | 73 65 74 66 20 6e 65 65 64 73 2d 72 65 63 6f 6d 70 69 6c 65 20 74 0a 20 20 20 20 20 20 20 20 20 | setf.needs-recompile.t.......... |
| 126380 | 20 20 20 20 20 20 20 20 20 73 74 61 74 65 20 3a 63 6f 6d 70 69 6c 65 29 0a 20 20 20 20 20 20 20 | .........state.:compile)........ |
| 1263a0 | 20 20 20 20 20 28 6f 72 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 73 72 63 20 3a 6f 75 74 70 | .....(or.(compile-file.src.:outp |
| 1263c0 | 75 74 2d 66 69 6c 65 20 64 65 73 74 20 3a 70 72 69 6e 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 | ut-file.dest.:print.nil......... |
| 1263e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 65 72 62 6f | ..........................:verbo |
| 126400 | 73 65 20 28 6e 6f 74 20 71 75 69 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | se.(not.quiet))................. |
| 126420 | 3b 3b 20 41 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 79 20 6e 6f 74 20 6e 65 63 | ;;.An.implementation.may.not.nec |
| 126440 | 65 73 73 61 72 69 6c 79 20 73 69 67 6e 61 6c 20 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | essarily.signal.a............... |
| 126460 | 20 20 3b 3b 20 63 6f 6e 64 69 74 69 6f 6e 20 69 74 73 65 6c 66 20 77 68 65 6e 20 43 4f 4d 50 49 | ..;;.condition.itself.when.COMPI |
| 126480 | 4c 45 2d 46 49 4c 45 20 66 61 69 6c 73 20 28 65 2e 67 2e 20 45 43 4c 29 0a 20 20 20 20 20 20 20 | LE-FILE.fails.(e.g..ECL)........ |
| 1264a0 | 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 4f 4d 50 49 4c 45 2d 46 49 4c 45 20 72 65 | .........(error."COMPILE-FILE.re |
| 1264c0 | 74 75 72 6e 65 64 20 4e 49 4c 2e 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | turned.NIL.")))...........(when. |
| 1264e0 | 6c 6f 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 73 74 61 74 65 20 3a 6c 6f | load.............(setf.state.:lo |
| 126500 | 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 61 64 20 64 65 73 74 20 3a 76 65 72 62 | ad).............(load.dest.:verb |
| 126520 | 6f 73 65 20 28 6e 6f 74 20 71 75 69 65 74 29 29 29 29 29 29 29 29 0a 0a 23 2b 63 6f 72 6d 61 6e | ose.(not.quiet))))))))..#+corman |
| 126540 | 6c 69 73 70 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 73 20 28 66 69 6c 65 73 | lisp.(defun.compile-files.(files |
| 126560 | 20 66 61 73 6c 2d 64 69 72 20 6c 6f 61 64 20 71 75 69 65 74 29 0a 20 20 22 43 6f 72 6d 61 6e 20 | .fasl-dir.load.quiet)..."Corman. |
| 126580 | 4c 69 73 70 20 68 61 73 20 74 72 6f 75 62 6c 65 20 77 69 74 68 20 63 6f 6d 70 69 6c 65 64 20 66 | Lisp.has.trouble.with.compiled.f |
| 1265a0 | 69 6c 65 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 61 73 6c 2d 64 | iles."...(declare.(ignore.fasl-d |
| 1265c0 | 69 72 29 29 0a 20 20 28 77 68 65 6e 20 6c 6f 61 64 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 66 | ir))...(when.load.....(dolist.(f |
| 1265e0 | 69 6c 65 20 66 69 6c 65 73 29 0a 20 20 20 20 20 20 28 6c 6f 61 64 20 66 69 6c 65 20 3a 76 65 72 | ile.files).......(load.file.:ver |
| 126600 | 62 6f 73 65 20 28 6e 6f 74 20 71 75 69 65 74 29 0a 20 20 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 | bose.(not.quiet).......(force-ou |
| 126620 | 74 70 75 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6f 61 64 2d 75 73 65 72 2d 69 6e 69 74 | tput)))))..(defun.load-user-init |
| 126640 | 2d 66 69 6c 65 20 28 29 0a 20 20 22 4c 6f 61 64 20 74 68 65 20 75 73 65 72 20 69 6e 69 74 20 66 | -file.()..."Load.the.user.init.f |
| 126660 | 69 6c 65 2c 20 72 65 74 75 72 6e 20 4e 49 4c 20 69 66 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 | ile,.return.NIL.if.it.does.not.e |
| 126680 | 78 69 73 74 2e 22 0a 20 20 28 6c 6f 61 64 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 | xist."...(load.(merge-pathnames. |
| 1266a0 | 28 75 73 65 72 2d 68 6f 6d 65 64 69 72 2d 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 | (user-homedir-pathname)......... |
| 1266c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 | .................(make-pathname. |
| 1266e0 | 3a 6e 61 6d 65 20 22 2e 73 77 61 6e 6b 22 20 3a 74 79 70 65 20 22 6c 69 73 70 22 29 29 0a 20 20 | :name.".swank".:type."lisp"))... |
| 126700 | 20 20 20 20 20 20 3a 69 66 2d 64 6f 65 73 2d 6e 6f 74 2d 65 78 69 73 74 20 6e 69 6c 29 29 0a 0a | ......:if-does-not-exist.nil)).. |
| 126720 | 28 64 65 66 75 6e 20 6c 6f 61 64 2d 73 69 74 65 2d 69 6e 69 74 2d 66 69 6c 65 20 28 64 69 72 29 | (defun.load-site-init-file.(dir) |
| 126740 | 0a 20 20 28 6c 6f 61 64 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 6e 61 6d 65 20 22 73 | ...(load.(make-pathname.:name."s |
| 126760 | 69 74 65 2d 69 6e 69 74 22 20 3a 74 79 70 65 20 22 6c 69 73 70 22 0a 20 20 20 20 20 20 20 20 20 | ite-init".:type."lisp".......... |
| 126780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 66 61 75 6c 74 73 20 64 69 72 29 0a 20 20 20 | ..............:defaults.dir).... |
| 1267a0 | 20 20 20 20 20 3a 69 66 2d 64 6f 65 73 2d 6e 6f 74 2d 65 78 69 73 74 20 6e 69 6c 29 29 0a 0a 28 | .....:if-does-not-exist.nil))..( |
| 1267c0 | 64 65 66 75 6e 20 73 72 63 2d 66 69 6c 65 73 20 28 6e 61 6d 65 73 20 73 72 63 2d 64 69 72 29 0a | defun.src-files.(names.src-dir). |
| 1267e0 | 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | ..(mapcar.(lambda.(name)........ |
| 126800 | 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 64 69 72 73 20 | .....(multiple-value-bind.(dirs. |
| 126820 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 | name).................(etypecase |
| 126840 | 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 | .name...................(symbol. |
| 126860 | 28 76 61 6c 75 65 73 20 27 28 29 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (values.'().name)).............. |
| 126880 | 20 20 20 20 20 28 63 6f 6e 73 20 28 76 61 6c 75 65 73 20 28 62 75 74 6c 61 73 74 20 6e 61 6d 65 | .....(cons.(values.(butlast.name |
| 1268a0 | 29 20 28 63 61 72 20 28 6c 61 73 74 20 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ).(car.(last.name))))).......... |
| 1268c0 | 20 20 20 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .....(make-pathname............. |
| 1268e0 | 20 20 20 3a 64 69 72 65 63 74 6f 72 79 20 28 61 70 70 65 6e 64 20 28 6f 72 20 28 70 61 74 68 6e | ...:directory.(append.(or.(pathn |
| 126900 | 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 73 72 63 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 | ame-directory.src-dir).......... |
| 126920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a | .............................'(: |
| 126940 | 72 65 6c 61 74 69 76 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | relative))...................... |
| 126960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 73 74 72 69 6e 67 2d 64 6f | .............(mapcar.#'string-do |
| 126980 | 77 6e 63 61 73 65 20 64 69 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 61 | wncase.dirs))................:na |
| 1269a0 | 6d 65 20 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 | me.(string-downcase.name)....... |
| 1269c0 | 20 20 20 20 20 20 20 20 20 3a 74 79 70 65 20 22 6c 69 73 70 22 0a 20 20 20 20 20 20 20 20 20 20 | .........:type."lisp"........... |
| 1269e0 | 20 20 20 20 20 3a 64 65 66 61 75 6c 74 73 20 73 72 63 2d 64 69 72 29 29 29 0a 20 20 20 20 20 20 | .....:defaults.src-dir)))....... |
| 126a00 | 20 20 20 20 6e 61 6d 65 73 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 77 61 6e 6b 2d 66 69 6c 65 | ....names))..(defvar.*swank-file |
| 126a20 | 73 2a 0a 20 20 60 28 70 61 63 6b 61 67 65 73 0a 20 20 20 20 28 73 77 61 6e 6b 20 62 61 63 6b 65 | s*...`(packages.....(swank.backe |
| 126a40 | 6e 64 29 20 2c 40 2a 73 79 73 64 65 70 2d 66 69 6c 65 73 2a 20 28 73 77 61 6e 6b 20 6d 61 74 63 | nd).,@*sysdep-files*.(swank.matc |
| 126a60 | 68 29 20 28 73 77 61 6e 6b 20 72 70 63 29 0a 20 20 20 20 73 77 61 6e 6b 29 29 0a 0a 28 64 65 66 | h).(swank.rpc).....swank))..(def |
| 126a80 | 76 61 72 20 2a 63 6f 6e 74 72 69 62 73 2a 0a 20 20 27 28 73 77 61 6e 6b 2d 75 74 69 6c 20 73 77 | var.*contribs*...'(swank-util.sw |
| 126aa0 | 61 6e 6b 2d 72 65 70 6c 0a 20 20 20 20 73 77 61 6e 6b 2d 63 2d 70 2d 63 20 73 77 61 6e 6b 2d 61 | ank-repl.....swank-c-p-c.swank-a |
| 126ac0 | 72 67 6c 69 73 74 73 20 73 77 61 6e 6b 2d 66 75 7a 7a 79 0a 20 20 20 20 73 77 61 6e 6b 2d 66 61 | rglists.swank-fuzzy.....swank-fa |
| 126ae0 | 6e 63 79 2d 69 6e 73 70 65 63 74 6f 72 0a 20 20 20 20 73 77 61 6e 6b 2d 70 72 65 73 65 6e 74 61 | ncy-inspector.....swank-presenta |
| 126b00 | 74 69 6f 6e 73 0a 20 20 20 20 23 2b 28 6f 72 20 61 73 64 66 32 20 61 73 64 66 33 20 73 62 63 6c | tions.....#+(or.asdf2.asdf3.sbcl |
| 126b20 | 20 65 63 6c 29 20 73 77 61 6e 6b 2d 61 73 64 66 0a 20 20 20 20 73 77 61 6e 6b 2d 70 61 63 6b 61 | .ecl).swank-asdf.....swank-packa |
| 126b40 | 67 65 2d 66 75 0a 20 20 20 20 73 77 61 6e 6b 2d 68 79 70 65 72 64 6f 63 0a 20 20 20 20 23 2b 73 | ge-fu.....swank-hyperdoc.....#+s |
| 126b60 | 62 63 6c 20 73 77 61 6e 6b 2d 73 62 63 6c 2d 65 78 74 73 0a 20 20 20 20 73 77 61 6e 6b 2d 6d 72 | bcl.swank-sbcl-exts.....swank-mr |
| 126b80 | 65 70 6c 0a 20 20 20 20 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 0a 20 20 20 20 73 | epl.....swank-trace-dialog.....s |
| 126ba0 | 77 61 6e 6b 2d 6d 61 63 72 6f 73 74 65 70 0a 20 20 20 20 73 77 61 6e 6b 2d 71 75 69 63 6b 6c 69 | wank-macrostep.....swank-quickli |
| 126bc0 | 73 70 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 6e 61 6d 65 73 20 66 6f 72 20 63 6f 6e 74 72 69 62 | sp)..."List.of.names.for.contrib |
| 126be0 | 20 6d 6f 64 75 6c 65 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 61 70 70 65 6e 64 2d 64 69 72 20 28 | .modules.")..(defun.append-dir.( |
| 126c00 | 61 62 73 6f 6c 75 74 65 20 6e 61 6d 65 29 0a 20 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 | absolute.name)...(merge-pathname |
| 126c20 | 73 0a 20 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 64 69 72 65 63 74 6f 72 79 20 60 | s....(make-pathname.:directory.` |
| 126c40 | 28 3a 72 65 6c 61 74 69 76 65 20 2c 6e 61 6d 65 29 20 3a 64 65 66 61 75 6c 74 73 20 61 62 73 6f | (:relative.,name).:defaults.abso |
| 126c60 | 6c 75 74 65 29 0a 20 20 20 61 62 73 6f 6c 75 74 65 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 74 | lute)....absolute))..(defun.cont |
| 126c80 | 72 69 62 2d 64 69 72 20 28 62 61 73 65 2d 64 69 72 29 0a 20 20 28 61 70 70 65 6e 64 2d 64 69 72 | rib-dir.(base-dir)...(append-dir |
| 126ca0 | 20 62 61 73 65 2d 64 69 72 20 22 63 6f 6e 74 72 69 62 22 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6f | .base-dir."contrib"))..(defun.lo |
| 126cc0 | 61 64 2d 73 77 61 6e 6b 20 28 26 6b 65 79 20 28 73 72 63 2d 64 69 72 20 2a 73 6f 75 72 63 65 2d | ad-swank.(&key.(src-dir.*source- |
| 126ce0 | 64 69 72 65 63 74 6f 72 79 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | directory*)..................... |
| 126d00 | 20 28 66 61 73 6c 2d 64 69 72 20 2a 66 61 73 6c 2d 64 69 72 65 63 74 6f 72 79 2a 29 0a 20 20 20 | .(fasl-dir.*fasl-directory*).... |
| 126d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 69 65 74 29 0a 20 20 28 77 | .....................quiet)...(w |
| 126d40 | 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 75 6e 69 74 20 28 29 0a 20 20 20 20 28 63 6f 6d | ith-compilation-unit.().....(com |
| 126d60 | 70 69 6c 65 2d 66 69 6c 65 73 20 28 73 72 63 2d 66 69 6c 65 73 20 2a 73 77 61 6e 6b 2d 66 69 6c | pile-files.(src-files.*swank-fil |
| 126d80 | 65 73 2a 20 73 72 63 2d 64 69 72 29 20 66 61 73 6c 2d 64 69 72 20 74 20 71 75 69 65 74 29 29 0a | es*.src-dir).fasl-dir.t.quiet)). |
| 126da0 | 20 20 28 66 75 6e 63 61 6c 6c 20 28 71 20 22 73 77 61 6e 6b 3a 3a 62 65 66 6f 72 65 2d 69 6e 69 | ..(funcall.(q."swank::before-ini |
| 126dc0 | 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 76 65 72 73 69 6f 6e 2d 73 74 | t")............(slime-version-st |
| 126de0 | 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 74 72 69 62 2d | ring)............(list.(contrib- |
| 126e00 | 64 69 72 20 66 61 73 6c 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | dir.fasl-dir)..................( |
| 126e20 | 63 6f 6e 74 72 69 62 2d 64 69 72 20 73 72 63 2d 64 69 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | contrib-dir.src-dir))))..(defun. |
| 126e40 | 64 65 6c 65 74 65 2d 73 74 61 6c 65 2d 63 6f 6e 74 72 69 62 2d 66 61 73 6c 2d 66 69 6c 65 73 20 | delete-stale-contrib-fasl-files. |
| 126e60 | 28 73 77 61 6e 6b 2d 66 69 6c 65 73 20 63 6f 6e 74 72 69 62 2d 66 69 6c 65 73 20 66 61 73 6c 2d | (swank-files.contrib-files.fasl- |
| 126e80 | 64 69 72 29 0a 20 20 28 6c 65 74 20 28 28 6e 65 77 65 73 74 20 28 72 65 64 75 63 65 20 23 27 6d | dir)...(let.((newest.(reduce.#'m |
| 126ea0 | 61 78 20 28 6d 61 70 63 61 72 20 23 27 66 69 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 20 73 77 61 | ax.(mapcar.#'file-write-date.swa |
| 126ec0 | 6e 6b 2d 66 69 6c 65 73 29 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 73 72 63 20 63 6f | nk-files)))).....(dolist.(src.co |
| 126ee0 | 6e 74 72 69 62 2d 66 69 6c 65 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 61 73 6c 20 28 | ntrib-files).......(let.((fasl.( |
| 126f00 | 62 69 6e 61 72 79 2d 70 61 74 68 6e 61 6d 65 20 73 72 63 20 66 61 73 6c 2d 64 69 72 29 29 29 0a | binary-pathname.src.fasl-dir))). |
| 126f20 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 66 | ........(when.(and.(probe-file.f |
| 126f40 | 61 73 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 3d 20 28 66 69 6c | asl)....................(<=.(fil |
| 126f60 | 65 2d 77 72 69 74 65 2d 64 61 74 65 20 66 61 73 6c 29 20 6e 65 77 65 73 74 29 29 0a 20 20 20 20 | e-write-date.fasl).newest))..... |
| 126f80 | 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 66 61 73 6c 29 29 29 29 29 29 0a 0a 28 | ......(delete-file.fasl))))))..( |
| 126fa0 | 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 63 6f 6e 74 72 69 62 73 20 28 26 6b 65 79 20 28 73 72 | defun.compile-contribs.(&key.(sr |
| 126fc0 | 63 2d 64 69 72 20 28 63 6f 6e 74 72 69 62 2d 64 69 72 20 2a 73 6f 75 72 63 65 2d 64 69 72 65 63 | c-dir.(contrib-dir.*source-direc |
| 126fe0 | 74 6f 72 79 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tory*))......................... |
| 127000 | 20 20 20 28 66 61 73 6c 2d 64 69 72 20 28 63 6f 6e 74 72 69 62 2d 64 69 72 20 2a 66 61 73 6c 2d | ...(fasl-dir.(contrib-dir.*fasl- |
| 127020 | 64 69 72 65 63 74 6f 72 79 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | directory*)).................... |
| 127040 | 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 73 72 63 2d 64 69 72 20 2a 73 6f 75 72 63 65 2d 64 | ........(swank-src-dir.*source-d |
| 127060 | 69 72 65 63 74 6f 72 79 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | irectory*)...................... |
| 127080 | 20 20 20 20 20 20 6c 6f 61 64 20 71 75 69 65 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 77 61 6e | ......load.quiet)...(let*.((swan |
| 1270a0 | 6b 2d 73 72 63 2d 66 69 6c 65 73 20 28 73 72 63 2d 66 69 6c 65 73 20 2a 73 77 61 6e 6b 2d 66 69 | k-src-files.(src-files.*swank-fi |
| 1270c0 | 6c 65 73 2a 20 73 77 61 6e 6b 2d 73 72 63 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 | les*.swank-src-dir))..........(c |
| 1270e0 | 6f 6e 74 72 69 62 2d 73 72 63 2d 66 69 6c 65 73 20 28 73 72 63 2d 66 69 6c 65 73 20 2a 63 6f 6e | ontrib-src-files.(src-files.*con |
| 127100 | 74 72 69 62 73 2a 20 73 72 63 2d 64 69 72 29 29 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 73 74 | tribs*.src-dir))).....(delete-st |
| 127120 | 61 6c 65 2d 63 6f 6e 74 72 69 62 2d 66 61 73 6c 2d 66 69 6c 65 73 20 73 77 61 6e 6b 2d 73 72 63 | ale-contrib-fasl-files.swank-src |
| 127140 | 2d 66 69 6c 65 73 20 63 6f 6e 74 72 69 62 2d 73 72 63 2d 66 69 6c 65 73 0a 20 20 20 20 20 20 20 | -files.contrib-src-files........ |
| 127160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 | ..............................fa |
| 127180 | 73 6c 2d 64 69 72 29 0a 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 73 20 63 6f 6e 74 72 | sl-dir).....(compile-files.contr |
| 1271a0 | 69 62 2d 73 72 63 2d 66 69 6c 65 73 20 66 61 73 6c 2d 64 69 72 20 6c 6f 61 64 20 71 75 69 65 74 | ib-src-files.fasl-dir.load.quiet |
| 1271c0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6f 61 64 75 70 20 28 29 0a 20 20 28 6c 6f 61 64 2d 73 77 | )))..(defun.loadup.()...(load-sw |
| 1271e0 | 61 6e 6b 29 0a 20 20 28 63 6f 6d 70 69 6c 65 2d 63 6f 6e 74 72 69 62 73 20 3a 6c 6f 61 64 20 74 | ank)...(compile-contribs.:load.t |
| 127200 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 74 75 70 20 28 29 0a 20 20 28 6c 6f 61 64 2d 73 69 74 65 | ))..(defun.setup.()...(load-site |
| 127220 | 2d 69 6e 69 74 2d 66 69 6c 65 20 2a 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 2a 29 0a 20 | -init-file.*source-directory*).. |
| 127240 | 20 28 6c 6f 61 64 2d 75 73 65 72 2d 69 6e 69 74 2d 66 69 6c 65 29 0a 20 20 28 77 68 65 6e 20 28 | .(load-user-init-file)...(when.( |
| 127260 | 23 2d 63 6c 69 73 70 20 70 72 6f 62 65 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 23 2b 63 6c | #-clisp.probe-file..........#+cl |
| 127280 | 69 73 70 20 65 78 74 3a 70 72 6f 62 65 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 | isp.ext:probe-directory......... |
| 1272a0 | 20 28 63 6f 6e 74 72 69 62 2d 64 69 72 20 2a 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 2a | .(contrib-dir.*source-directory* |
| 1272c0 | 29 29 0a 20 20 20 20 28 65 76 61 6c 20 60 28 70 75 73 68 6e 65 77 20 27 63 6f 6d 70 69 6c 65 2d | )).....(eval.`(pushnew.'compile- |
| 1272e0 | 63 6f 6e 74 72 69 62 73 20 2c 28 71 20 22 73 77 61 6e 6b 3a 3a 2a 61 66 74 65 72 2d 69 6e 69 74 | contribs.,(q."swank::*after-init |
| 127300 | 2d 68 6f 6f 6b 2a 22 29 29 29 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 71 20 22 73 77 61 6e 6b | -hook*"))))...(funcall.(q."swank |
| 127320 | 3a 3a 69 6e 69 74 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 74 2d 73 77 61 6e 6b 2d 70 61 | ::init")))..(defun.list-swank-pa |
| 127340 | 63 6b 61 67 65 73 20 28 29 0a 20 20 28 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 28 6c 61 6d 62 | ckages.()...(remove-if-not.(lamb |
| 127360 | 64 61 20 28 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | da.(package).................... |
| 127380 | 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 | (let.((name.(package-name.packag |
| 1273a0 | 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 | e)))......................(and.( |
| 1273c0 | 73 74 72 69 6e 67 2d 6e 6f 74 2d 65 71 75 61 6c 20 6e 61 6d 65 20 22 73 77 61 6e 6b 2d 6c 6f 61 | string-not-equal.name."swank-loa |
| 1273e0 | 64 65 72 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | der")........................... |
| 127400 | 28 73 74 72 69 6e 67 2d 73 74 61 72 74 73 2d 77 69 74 68 20 6e 61 6d 65 20 22 73 77 61 6e 6b 22 | (string-starts-with.name."swank" |
| 127420 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2d 61 6c 6c 2d | ))))..................(list-all- |
| 127440 | 70 61 63 6b 61 67 65 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 70 61 63 6b 61 | packages)))..(defun.delete-packa |
| 127460 | 67 65 73 20 28 70 61 63 6b 61 67 65 73 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 70 61 63 6b 61 67 | ges.(packages)...(dolist.(packag |
| 127480 | 65 20 70 61 63 6b 61 67 65 73 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 68 61 6e 64 6c 65 2d 70 | e.packages).....(flet.((handle-p |
| 1274a0 | 61 63 6b 61 67 65 2d 65 72 72 6f 72 20 28 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ackage-error.(c)..............(l |
| 1274c0 | 65 74 20 28 28 70 6b 67 73 20 28 73 65 74 2d 64 69 66 66 65 72 65 6e 63 65 20 28 70 61 63 6b 61 | et.((pkgs.(set-difference.(packa |
| 1274e0 | 67 65 2d 75 73 65 64 2d 62 79 2d 6c 69 73 74 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 | ge-used-by-list.package)........ |
| 127500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 127520 | 20 20 70 61 63 6b 61 67 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | ..packages)))................(wh |
| 127540 | 65 6e 20 70 6b 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 20 22 | en.pkgs..................(warn." |
| 127560 | 64 65 6c 65 74 69 6e 67 20 7e 61 20 77 68 69 63 68 20 69 73 20 75 73 65 64 20 62 79 20 7e 7b 7e | deleting.~a.which.is.used.by.~{~ |
| 127580 | 61 7e 5e 2c 20 7e 7d 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | a~^,.~}."....................... |
| 1275a0 | 20 70 61 63 6b 61 67 65 20 70 6b 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .package.pkgs))................( |
| 1275c0 | 63 6f 6e 74 69 6e 75 65 20 63 29 29 29 29 0a 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 | continue.c)))).......(handler-bi |
| 1275e0 | 6e 64 20 28 28 70 61 63 6b 61 67 65 2d 65 72 72 6f 72 20 23 27 68 61 6e 64 6c 65 2d 70 61 63 6b | nd.((package-error.#'handle-pack |
| 127600 | 61 67 65 2d 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 70 61 63 6b | age-error)).........(delete-pack |
| 127620 | 61 67 65 20 70 61 63 6b 61 67 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 69 74 20 28 26 | age.package)))))..(defun.init.(& |
| 127640 | 6b 65 79 20 64 65 6c 65 74 65 20 72 65 6c 6f 61 64 20 6c 6f 61 64 2d 63 6f 6e 74 72 69 62 73 20 | key.delete.reload.load-contribs. |
| 127660 | 28 73 65 74 75 70 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 71 75 69 | (setup.t)...................(qui |
| 127680 | 65 74 20 28 6e 6f 74 20 2a 6c 6f 61 64 2d 76 65 72 62 6f 73 65 2a 29 29 0a 20 20 20 20 20 20 20 | et.(not.*load-verbose*))........ |
| 1276a0 | 20 20 20 20 20 20 20 20 20 20 20 66 72 6f 6d 2d 65 6d 61 63 73 29 0a 20 20 22 4c 6f 61 64 20 53 | ...........from-emacs)..."Load.S |
| 1276c0 | 57 41 4e 4b 20 61 6e 64 20 69 6e 69 74 69 61 6c 69 7a 65 20 73 6f 6d 65 20 67 6c 6f 62 61 6c 20 | WANK.and.initialize.some.global. |
| 1276e0 | 76 61 72 69 61 62 6c 65 73 2e 0a 49 66 20 44 45 4c 45 54 45 20 69 73 20 74 72 75 65 2c 20 64 65 | variables..If.DELETE.is.true,.de |
| 127700 | 6c 65 74 65 20 61 6e 79 20 65 78 69 73 74 69 6e 67 20 53 57 41 4e 4b 20 70 61 63 6b 61 67 65 73 | lete.any.existing.SWANK.packages |
| 127720 | 2e 0a 49 66 20 52 45 4c 4f 41 44 20 69 73 20 74 72 75 65 2c 20 72 65 6c 6f 61 64 20 53 57 41 4e | ..If.RELOAD.is.true,.reload.SWAN |
| 127740 | 4b 2c 20 65 76 65 6e 20 69 66 20 74 68 65 20 53 57 41 4e 4b 20 70 61 63 6b 61 67 65 20 61 6c 72 | K,.even.if.the.SWANK.package.alr |
| 127760 | 65 61 64 79 20 65 78 69 73 74 73 2e 0a 49 66 20 4c 4f 41 44 2d 43 4f 4e 54 52 49 42 53 20 69 73 | eady.exists..If.LOAD-CONTRIBS.is |
| 127780 | 20 74 72 75 65 2c 20 6c 6f 61 64 20 61 6c 6c 20 63 6f 6e 74 72 69 62 73 0a 49 66 20 53 45 54 55 | .true,.load.all.contribs.If.SETU |
| 1277a0 | 50 20 69 73 20 74 72 75 65 2c 20 6c 6f 61 64 20 75 73 65 72 20 69 6e 69 74 20 66 69 6c 65 73 20 | P.is.true,.load.user.init.files. |
| 1277c0 | 61 6e 64 20 69 6e 69 74 69 61 6c 69 7a 65 20 73 6f 6d 65 0a 67 6c 6f 62 61 6c 20 76 61 72 69 61 | and.initialize.some.global.varia |
| 1277e0 | 62 65 73 20 69 6e 20 53 57 41 4e 4b 2e 22 0a 20 20 28 77 68 65 6e 20 66 72 6f 6d 2d 65 6d 61 63 | bes.in.SWANK."...(when.from-emac |
| 127800 | 73 0a 20 20 20 20 28 73 65 74 66 20 2a 73 74 61 72 74 65 64 2d 66 72 6f 6d 2d 65 6d 61 63 73 2a | s.....(setf.*started-from-emacs* |
| 127820 | 20 74 29 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 64 65 6c 65 74 65 20 28 66 69 6e 64 2d 70 | .t))...(when.(and.delete.(find-p |
| 127840 | 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 70 61 63 6b | ackage.:swank)).....(delete-pack |
| 127860 | 61 67 65 73 20 28 6c 69 73 74 2d 73 77 61 6e 6b 2d 70 61 63 6b 61 67 65 73 29 29 29 0a 20 20 28 | ages.(list-swank-packages)))...( |
| 127880 | 63 6f 6e 64 20 28 28 6f 72 20 28 6e 6f 74 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 73 77 | cond.((or.(not.(find-package.:sw |
| 1278a0 | 61 6e 6b 29 29 20 72 65 6c 6f 61 64 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 61 64 2d 73 77 61 | ank)).reload)..........(load-swa |
| 1278c0 | 6e 6b 20 3a 71 75 69 65 74 20 71 75 69 65 74 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 | nk.:quiet.quiet)).........(t.... |
| 1278e0 | 20 20 20 20 20 20 28 77 61 72 6e 20 22 4e 6f 74 20 72 65 6c 6f 61 64 69 6e 67 20 53 57 41 4e 4b | ......(warn."Not.reloading.SWANK |
| 127900 | 2e 20 20 50 61 63 6b 61 67 65 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 2e 22 29 29 29 0a 20 | ...Package.already.exists."))).. |
| 127920 | 20 28 77 68 65 6e 20 6c 6f 61 64 2d 63 6f 6e 74 72 69 62 73 0a 20 20 20 20 28 63 6f 6d 70 69 6c | .(when.load-contribs.....(compil |
| 127940 | 65 2d 63 6f 6e 74 72 69 62 73 20 3a 6c 6f 61 64 20 74 20 3a 71 75 69 65 74 20 71 75 69 65 74 29 | e-contribs.:load.t.:quiet.quiet) |
| 127960 | 29 0a 20 20 28 77 68 65 6e 20 73 65 74 75 70 0a 20 20 20 20 28 73 65 74 75 70 29 29 29 0a 0a 28 | )...(when.setup.....(setup)))..( |
| 127980 | 64 65 66 75 6e 20 64 75 6d 70 2d 69 6d 61 67 65 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 28 69 | defun.dump-image.(filename)...(i |
| 1279a0 | 6e 69 74 20 3a 73 65 74 75 70 20 6e 69 6c 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 71 20 22 73 | nit.:setup.nil)...(funcall.(q."s |
| 1279c0 | 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 73 61 76 65 2d 69 6d 61 67 65 22 29 20 66 69 6c 65 6e 61 | wank/backend:save-image").filena |
| 1279e0 | 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 74 2d 66 61 73 6c 73 20 28 26 6b 65 79 20 28 69 | me))..(defun.list-fasls.(&key.(i |
| 127a00 | 6e 63 6c 75 64 65 2d 63 6f 6e 74 72 69 62 73 20 74 29 20 28 63 6f 6d 70 69 6c 65 20 74 29 0a 20 | nclude-contribs.t).(compile.t).. |
| 127a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 71 75 69 65 74 20 28 6e | .......................(quiet.(n |
| 127a40 | 6f 74 20 2a 63 6f 6d 70 69 6c 65 2d 76 65 72 62 6f 73 65 2a 29 29 29 0a 20 20 22 4c 69 73 74 20 | ot.*compile-verbose*)))..."List. |
| 127a60 | 75 70 20 53 57 41 4e 4b 27 73 20 66 61 73 6c 73 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 65 69 | up.SWANK's.fasls.along.with.thei |
| 127a80 | 72 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 22 0a 20 20 28 66 6c 65 74 20 28 28 63 6f 6c 6c 65 | r.dependencies."...(flet.((colle |
| 127aa0 | 63 74 2d 66 61 73 6c 73 20 28 66 69 6c 65 73 20 66 61 73 6c 2d 64 69 72 29 0a 20 20 20 20 20 20 | ct-fasls.(files.fasl-dir)....... |
| 127ac0 | 20 20 20 20 20 28 77 68 65 6e 20 63 6f 6d 70 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(when.compile.............. |
| 127ae0 | 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 73 20 66 69 6c 65 73 20 66 61 73 6c 2d 64 69 72 20 6e 69 | (compile-files.files.fasl-dir.ni |
| 127b00 | 6c 20 71 75 69 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 | l.quiet))............(loop.for.s |
| 127b20 | 72 63 20 69 6e 20 66 69 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 | rc.in.files..................whe |
| 127b40 | 6e 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 28 62 69 6e 61 72 79 2d 70 61 74 68 6e 61 6d 65 20 73 | n.(probe-file.(binary-pathname.s |
| 127b60 | 72 63 20 66 61 73 6c 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rc.fasl-dir))................... |
| 127b80 | 20 63 6f 6c 6c 65 63 74 20 69 74 29 29 29 0a 20 20 20 20 28 61 70 70 65 6e 64 20 28 63 6f 6c 6c | .collect.it))).....(append.(coll |
| 127ba0 | 65 63 74 2d 66 61 73 6c 73 20 28 73 72 63 2d 66 69 6c 65 73 20 2a 73 77 61 6e 6b 2d 66 69 6c 65 | ect-fasls.(src-files.*swank-file |
| 127bc0 | 73 2a 20 2a 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 2a 29 0a 20 20 20 20 20 20 20 20 20 | s*.*source-directory*).......... |
| 127be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 66 61 73 6c 2d 64 69 72 65 63 74 6f 72 | ..................*fasl-director |
| 127c00 | 79 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 69 6e 63 6c 75 64 65 2d 63 6f | y*).............(when.include-co |
| 127c20 | 6e 74 72 69 62 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 74 2d 66 61 | ntribs...............(collect-fa |
| 127c40 | 73 6c 73 20 28 73 72 63 2d 66 69 6c 65 73 20 2a 63 6f 6e 74 72 69 62 73 2a 0a 20 20 20 20 20 20 | sls.(src-files.*contribs*....... |
| 127c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 127c80 | 20 20 28 63 6f 6e 74 72 69 62 2d 64 69 72 20 2a 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 | ..(contrib-dir.*source-directory |
| 127ca0 | 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *))............................. |
| 127cc0 | 20 28 63 6f 6e 74 72 69 62 2d 64 69 72 20 2a 66 61 73 6c 2d 64 69 72 65 63 74 6f 72 79 2a 29 29 | .(contrib-dir.*fasl-directory*)) |
| 127ce0 | 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 28 | ))))..(defmacro.define-package.( |
| 127d00 | 70 61 63 6b 61 67 65 20 26 72 65 73 74 20 6f 70 74 69 6f 6e 73 29 0a 20 20 22 54 68 69 73 20 69 | package.&rest.options)..."This.i |
| 127d20 | 73 20 6c 69 6b 65 20 43 4c 3a 44 45 46 50 41 43 4b 41 47 45 20 62 75 74 20 73 69 6c 65 6e 63 65 | s.like.CL:DEFPACKAGE.but.silence |
| 127d40 | 73 20 77 61 72 6e 69 6e 67 73 20 61 6e 64 20 65 72 72 6f 72 73 0a 20 20 73 69 67 6e 61 6c 6c 65 | s.warnings.and.errors...signalle |
| 127d60 | 64 20 77 68 65 6e 20 74 68 65 20 72 65 64 65 66 69 6e 65 64 20 70 61 63 6b 61 67 65 20 69 73 20 | d.when.the.redefined.package.is. |
| 127d80 | 61 74 20 76 61 72 69 61 6e 63 65 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 0a 20 20 73 | at.variance.with.the.current...s |
| 127da0 | 74 61 74 65 20 6f 66 20 74 68 65 20 70 61 63 6b 61 67 65 2e 20 54 79 70 69 63 61 6c 6c 79 20 74 | tate.of.the.package..Typically.t |
| 127dc0 | 68 69 73 20 73 69 74 75 61 74 69 6f 6e 20 6f 63 63 75 72 73 20 77 68 65 6e 20 73 79 6d 62 6f 6c | his.situation.occurs.when.symbol |
| 127de0 | 73 0a 20 20 61 72 65 20 65 78 70 6f 72 74 65 64 20 62 79 20 63 61 6c 6c 69 6e 67 20 45 58 50 4f | s...are.exported.by.calling.EXPO |
| 127e00 | 52 54 20 28 61 73 20 69 73 20 74 68 65 20 63 61 73 65 20 77 69 74 68 20 44 45 46 53 45 43 54 49 | RT.(as.is.the.case.with.DEFSECTI |
| 127e20 | 4f 4e 29 20 61 73 0a 20 20 6f 70 70 6f 73 65 64 20 74 6f 20 61 64 64 69 6e 67 20 3a 45 58 50 4f | ON).as...opposed.to.adding.:EXPO |
| 127e40 | 52 54 20 66 6f 72 6d 73 20 74 6f 20 74 68 65 20 44 45 46 50 41 43 4b 41 47 45 20 66 6f 72 6d 20 | RT.forms.to.the.DEFPACKAGE.form. |
| 127e60 | 61 6e 64 20 74 68 65 0a 20 20 70 61 63 6b 61 67 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 69 73 20 | and.the...package.definition.is. |
| 127e80 | 73 75 62 73 65 71 75 65 6e 74 6c 79 20 72 65 65 76 61 6c 75 61 74 65 64 2e 20 53 65 65 20 74 68 | subsequently.reevaluated..See.th |
| 127ea0 | 65 20 73 65 63 74 69 6f 6e 20 6f 6e 0a 20 20 5b 70 61 63 6b 61 67 65 20 76 61 72 69 61 6e 63 65 | e.section.on...[package.variance |
| 127ec0 | 5d 28 68 74 74 70 3a 2f 2f 77 77 77 2e 73 62 63 6c 2e 6f 72 67 2f 6d 61 6e 75 61 6c 2f 23 50 61 | ](http://www.sbcl.org/manual/#Pa |
| 127ee0 | 63 6b 61 67 65 2d 56 61 72 69 61 6e 63 65 29 20 69 6e 0a 20 20 74 68 65 20 53 42 43 4c 20 6d 61 | ckage-Variance).in...the.SBCL.ma |
| 127f00 | 6e 75 61 6c 2e 22 0a 20 20 60 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 | nual."...`(eval-when.(:compile-t |
| 127f20 | 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 2c 20 3a 65 78 65 63 75 74 65 | oplevel.:load-toplevel,.:execute |
| 127f40 | 29 0a 20 20 20 20 20 28 6c 6f 63 61 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 | )......(locally..........(declar |
| 127f60 | 65 20 23 2b 73 62 63 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 65 | e.#+sbcl...................(sb-e |
| 127f80 | 78 74 3a 6d 75 66 66 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 73 62 2d 6b 65 72 6e 65 6c 3a 3a | xt:muffle-conditions.sb-kernel:: |
| 127fa0 | 70 61 63 6b 61 67 65 2d 61 74 2d 76 61 72 69 61 6e 63 65 29 29 0a 20 20 20 20 20 20 20 28 68 61 | package-at-variance))........(ha |
| 127fc0 | 6e 64 6c 65 72 2d 62 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 23 2b 73 62 63 6c 20 28 73 | ndler-bind............(#+sbcl.(s |
| 127fe0 | 62 2d 6b 65 72 6e 65 6c 3a 3a 70 61 63 6b 61 67 65 2d 61 74 2d 76 61 72 69 61 6e 63 65 20 23 27 | b-kernel::package-at-variance.#' |
| 128000 | 6d 75 66 66 6c 65 2d 77 61 72 6e 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6c 3a 64 65 | muffle-warning))..........(cl:de |
| 128020 | 66 70 61 63 6b 61 67 65 20 2c 70 61 63 6b 61 67 65 20 2c 40 6f 70 74 69 6f 6e 73 29 29 29 29 29 | fpackage.,package.,@options))))) |
| 128040 | 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1280a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1280c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1280e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1281a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1281c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1281e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 6e 72 65 67 65 78 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 | slime-2.31/nregex.lisp.......... |
| 128220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 128280 | 30 30 34 37 33 36 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 34 30 32 00 20 30 00 00 00 | 0047360.00000000000.013402..0... |
| 1282a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1282c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1282e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 128320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 128340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1283a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1283c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1283e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 128400 | 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 77 61 73 20 77 72 69 74 74 65 6e 20 62 79 | ;;;.;;;.This.code.was.written.by |
| 128420 | 3a 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 4c 61 77 72 65 6e 63 65 20 45 2e 20 46 72 65 69 6c 20 3c | :.;;;.;;;....Lawrence.E..Freil.< |
| 128440 | 6c 65 66 40 66 72 65 69 6c 2e 63 6f 6d 3e 0a 3b 3b 3b 20 20 20 20 4e 61 74 69 6f 6e 61 6c 20 53 | lef@freil.com>.;;;....National.S |
| 128460 | 63 69 65 6e 63 65 20 43 65 6e 74 65 72 20 46 6f 75 6e 64 61 74 69 6f 6e 0a 3b 3b 3b 20 20 20 20 | cience.Center.Foundation.;;;.... |
| 128480 | 41 75 67 75 73 74 61 2c 20 47 65 6f 72 67 69 61 20 33 30 39 30 39 0a 3b 3b 3b 0a 3b 3b 3b 20 54 | Augusta,.Georgia.30909.;;;.;;;.T |
| 1284a0 | 68 69 73 20 70 72 6f 67 72 61 6d 20 77 61 73 20 72 65 6c 65 61 73 65 64 20 69 6e 74 6f 20 74 68 | his.program.was.released.into.th |
| 1284c0 | 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 20 6f 6e 20 32 30 30 35 2d 30 38 2d 33 31 2e 0a 3b | e.public.domain.on.2005-08-31..; |
| 1284e0 | 3b 3b 20 28 53 65 65 20 74 68 65 20 73 6c 69 6d 65 2d 64 65 76 65 6c 20 6d 61 69 6c 69 6e 67 20 | ;;.(See.the.slime-devel.mailing. |
| 128500 | 6c 69 73 74 20 61 72 63 68 69 76 65 20 66 6f 72 20 64 65 74 61 69 6c 73 2e 29 0a 3b 3b 3b 0a 3b | list.archive.for.details.).;;;.; |
| 128520 | 3b 3b 20 6e 72 65 67 65 78 2e 6c 69 73 70 20 2d 20 4d 79 20 34 2f 38 2f 39 32 20 61 74 74 65 6d | ;;.nregex.lisp.-.My.4/8/92.attem |
| 128540 | 70 74 20 61 74 20 61 20 4c 69 73 70 20 62 61 73 65 64 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 | pt.at.a.Lisp.based.regular.expre |
| 128560 | 73 73 69 6f 6e 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 73 65 72 2e 20 | ssion.;;;...............parser.. |
| 128580 | 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 69 73 20 72 65 67 75 | .;;;.;;;...............This.regu |
| 1285a0 | 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 70 61 72 73 65 72 20 6f 70 65 72 61 74 65 73 20 62 | lar.expression.parser.operates.b |
| 1285c0 | 79 20 74 61 6b 69 6e 67 20 61 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 67 | y.taking.a.;;;...............reg |
| 1285e0 | 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 61 6e 64 20 62 72 65 61 6b 69 6e 67 20 69 74 20 | ular.expression.and.breaking.it. |
| 128600 | 64 6f 77 6e 20 69 6e 74 6f 20 61 20 6c 69 73 74 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 | down.into.a.list.;;;............ |
| 128620 | 20 20 20 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 6c 69 73 70 20 65 78 70 72 65 73 73 69 6f 6e | ...consisting.of.lisp.expression |
| 128640 | 73 20 61 6e 64 20 66 6c 61 67 73 2e 20 20 54 68 65 20 6c 69 73 74 0a 3b 3b 3b 20 20 20 20 20 20 | s.and.flags...The.list.;;;...... |
| 128660 | 20 20 20 20 20 20 20 20 20 6f 66 20 6c 69 73 70 20 65 78 70 72 65 73 73 69 6f 6e 73 20 69 73 20 | .........of.lisp.expressions.is. |
| 128680 | 74 68 65 6e 20 74 61 6b 65 6e 20 69 6e 20 74 75 72 6e 65 64 20 69 6e 74 6f 20 61 0a 3b 3b 3b 20 | then.taken.in.turned.into.a.;;;. |
| 1286a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 6d 62 64 61 20 65 78 70 72 65 73 73 69 6f 6e 20 | ..............lambda.expression. |
| 1286c0 | 74 68 61 74 20 63 61 6e 20 62 65 20 6c 61 74 65 72 20 61 70 70 6c 69 65 64 20 74 6f 20 61 0a 3b | that.can.be.later.applied.to.a.; |
| 1286e0 | 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 20 61 72 67 75 6d 65 6e 74 | ;;...............string.argument |
| 128700 | 20 66 6f 72 20 70 61 72 73 69 6e 67 2e 0a 3b 3b 3b 3b 0a 3b 3b 3b 3b 20 4d 6f 64 69 66 69 63 61 | .for.parsing..;;;;.;;;;.Modifica |
| 128720 | 74 69 6f 6e 73 20 6d 61 64 65 20 36 20 4d 61 72 63 68 20 32 30 30 31 20 42 79 20 43 68 72 69 73 | tions.made.6.March.2001.By.Chris |
| 128740 | 20 44 6f 75 62 6c 65 20 28 63 68 72 69 73 40 64 6f 75 62 6c 65 2e 63 6f 2e 6e 7a 29 0a 3b 3b 3b | .Double.(chris@double.co.nz).;;; |
| 128760 | 3b 20 74 6f 20 67 65 74 20 77 6f 72 6b 69 6e 67 20 77 69 74 68 20 43 6f 72 6d 61 6e 20 4c 69 73 | ;.to.get.working.with.Corman.Lis |
| 128780 | 70 20 31 2e 34 32 2c 20 61 64 64 20 70 61 63 6b 61 67 65 20 73 74 61 74 65 6d 65 6e 74 20 61 6e | p.1.42,.add.package.statement.an |
| 1287a0 | 64 20 65 78 70 6f 72 74 0a 3b 3b 3b 3b 20 72 65 6c 65 76 61 6e 74 20 66 75 6e 63 74 69 6f 6e 73 | d.export.;;;;.relevant.functions |
| 1287c0 | 2e 0a 3b 3b 3b 3b 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 63 6c 2d 75 73 65 72 29 0a 0a 3b | ..;;;;..(in-package.:cl-user)..; |
| 1287e0 | 3b 20 52 65 6e 61 6d 65 64 20 74 6f 20 73 6c 69 6d 65 2d 6e 72 65 67 65 78 20 61 76 6f 69 64 20 | ;.Renamed.to.slime-nregex.avoid. |
| 128800 | 6e 61 6d 65 20 63 6c 61 73 68 65 73 20 77 69 74 68 20 6f 74 68 65 72 20 76 65 72 73 69 6f 6e 73 | name.clashes.with.other.versions |
| 128820 | 20 6f 66 0a 3b 3b 20 74 68 69 73 20 66 69 6c 65 2e 20 2d 2d 20 68 65 0a 0a 3b 3b 3b 3b 20 43 4e | .of.;;.this.file..--.he..;;;;.CN |
| 128840 | 44 20 2d 20 36 2f 33 2f 32 30 30 31 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 6c 69 6d 65 2d 6e | D.-.6/3/2001.(defpackage.slime-n |
| 128860 | 72 65 67 65 78 0a 20 20 28 3a 75 73 65 20 23 3a 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 29 0a 20 20 28 | regex...(:use.#:common-lisp)...( |
| 128880 | 3a 65 78 70 6f 72 74 20 0a 20 20 20 23 3a 72 65 67 65 78 0a 20 20 20 23 3a 72 65 67 65 78 2d 63 | :export.....#:regex....#:regex-c |
| 1288a0 | 6f 6d 70 69 6c 65 0a 20 20 29 29 0a 0a 3b 3b 3b 3b 20 43 4e 44 20 2d 20 36 2f 33 2f 32 30 30 31 | ompile...))..;;;;.CND.-.6/3/2001 |
| 1288c0 | 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 6c 69 6d 65 2d 6e 72 65 67 65 78 29 0a 0a 3b 3b 3b | .(in-package.:slime-nregex)..;;; |
| 1288e0 | 0a 3b 3b 3b 20 46 69 72 73 74 20 77 65 20 63 72 65 61 74 65 20 61 20 63 6f 70 79 20 6f 66 20 6d | .;;;.First.we.create.a.copy.of.m |
| 128900 | 61 63 72 6f 73 20 74 6f 20 68 65 6c 70 20 64 65 62 75 67 20 74 68 65 20 62 65 61 73 74 0a 28 65 | acros.to.help.debug.the.beast.(e |
| 128920 | 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 | val-when.(:compile-toplevel.:loa |
| 128940 | 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 28 64 65 66 76 61 72 20 2a 72 65 | d-toplevel.:execute).(defvar.*re |
| 128960 | 67 65 78 2d 64 65 62 75 67 2a 20 6e 69 6c 29 09 09 3b 20 53 65 74 20 74 6f 20 6e 69 6c 20 66 6f | gex-debug*.nil)..;.Set.to.nil.fo |
| 128980 | 72 20 6e 6f 20 64 65 62 75 67 67 69 6e 67 20 63 6f 64 65 0a 29 0a 0a 28 64 65 66 6d 61 63 72 6f | r.no.debugging.code.)..(defmacro |
| 1289a0 | 20 69 6e 66 6f 20 28 6d 65 73 73 61 67 65 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 69 66 | .info.(message.&rest.args)...(if |
| 1289c0 | 20 2a 72 65 67 65 78 2d 64 65 62 75 67 2a 0a 20 20 20 20 20 20 60 28 66 6f 72 6d 61 74 20 2a 73 | .*regex-debug*.......`(format.*s |
| 1289e0 | 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 20 2c 6d 65 73 73 61 67 65 20 2c 40 61 72 67 73 29 | tandard-output*.,message.,@args) |
| 128a00 | 29 29 0a 0a 3b 3b 3b 0a 3b 3b 3b 20 44 65 63 6c 61 72 65 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 | ))..;;;.;;;.Declare.the.global.v |
| 128a20 | 61 72 69 61 62 6c 65 73 20 66 6f 72 20 73 74 6f 72 69 6e 67 20 74 68 65 20 70 61 72 65 6e 20 69 | ariables.for.storing.the.paren.i |
| 128a40 | 6e 64 65 78 20 6c 69 73 74 2e 0a 3b 3b 3b 0a 28 64 65 66 76 61 72 20 2a 72 65 67 65 78 2d 67 72 | ndex.list..;;;.(defvar.*regex-gr |
| 128a60 | 6f 75 70 73 2a 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 31 30 29 29 0a 28 64 65 66 76 61 72 20 2a | oups*.(make-array.10)).(defvar.* |
| 128a80 | 72 65 67 65 78 2d 67 72 6f 75 70 69 6e 67 73 2a 20 30 29 0a 0a 3b 3b 3b 0a 3b 3b 3b 20 44 65 63 | regex-groupings*.0)..;;;.;;;.Dec |
| 128aa0 | 6c 61 72 65 20 61 20 73 69 6d 70 6c 65 20 69 6e 74 65 72 66 61 63 65 20 66 6f 72 20 74 65 73 74 | lare.a.simple.interface.for.test |
| 128ac0 | 69 6e 67 2e 20 20 59 6f 75 20 70 72 6f 62 61 62 6c 79 20 77 6f 75 6c 64 6e 27 74 20 77 61 6e 74 | ing...You.probably.wouldn't.want |
| 128ae0 | 0a 3b 3b 3b 20 74 6f 20 75 73 65 20 74 68 69 73 20 69 6e 74 65 72 66 61 63 65 20 75 6e 6c 65 73 | .;;;.to.use.this.interface.unles |
| 128b00 | 73 20 79 6f 75 20 77 65 72 65 20 6a 75 73 74 20 63 61 6c 6c 69 6e 67 20 74 68 69 73 20 6f 6e 63 | s.you.were.just.calling.this.onc |
| 128b20 | 65 2e 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 72 65 67 65 78 20 28 65 78 70 72 65 73 73 69 6f 6e 20 | e..;;;.(defun.regex.(expression. |
| 128b40 | 73 74 72 69 6e 67 29 0a 20 20 22 55 73 61 67 65 3a 20 28 72 65 67 65 78 20 3c 65 78 70 72 65 73 | string)..."Usage:.(regex.<expres |
| 128b60 | 73 69 6f 6e 3e 20 3c 73 74 72 69 6e 67 29 0a 20 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 | sion>.<string)....This.function. |
| 128b80 | 77 69 6c 6c 20 63 61 6c 6c 20 72 65 67 65 78 2d 63 6f 6d 70 69 6c 65 20 6f 6e 20 74 68 65 20 65 | will.call.regex-compile.on.the.e |
| 128ba0 | 78 70 72 65 73 73 69 6f 6e 20 61 6e 64 20 74 68 65 6e 20 61 70 70 6c 79 0a 20 20 20 74 68 65 20 | xpression.and.then.apply....the. |
| 128bc0 | 73 74 72 69 6e 67 20 74 6f 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 6c 61 6d 62 64 61 20 6c 69 | string.to.the.returned.lambda.li |
| 128be0 | 73 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6e 64 69 74 20 28 63 6f 6e 64 20 28 28 73 74 72 | st."...(let.((findit.(cond.((str |
| 128c00 | 69 6e 67 70 20 65 78 70 72 65 73 73 69 6f 6e 29 0a 09 09 20 20 20 20 20 20 20 28 72 65 67 65 78 | ingp.expression)..........(regex |
| 128c20 | 2d 63 6f 6d 70 69 6c 65 20 65 78 70 72 65 73 73 69 6f 6e 29 29 0a 09 09 20 20 20 20 20 20 28 28 | -compile.expression)).........(( |
| 128c40 | 6c 69 73 74 70 20 65 78 70 72 65 73 73 69 6f 6e 29 0a 09 09 20 20 20 20 20 20 20 65 78 70 72 65 | listp.expression)..........expre |
| 128c60 | 73 73 69 6f 6e 29 29 29 0a 09 28 72 65 73 75 6c 74 20 6e 69 6c 29 29 0a 20 20 20 20 28 69 66 20 | ssion)))..(result.nil)).....(if. |
| 128c80 | 28 6e 6f 74 20 28 66 75 6e 63 61 6c 6c 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 66 69 6e | (not.(funcall.(if.(functionp.fin |
| 128ca0 | 64 69 74 29 0a 09 09 09 20 20 66 69 6e 64 69 74 0a 09 09 09 28 65 76 61 6c 20 60 28 66 75 6e 63 | dit)......findit....(eval.`(func |
| 128cc0 | 74 69 6f 6e 20 2c 66 69 6e 64 69 74 29 29 29 20 73 74 72 69 6e 67 29 29 0a 09 28 72 65 74 75 72 | tion.,findit))).string))..(retur |
| 128ce0 | 6e 2d 66 72 6f 6d 20 72 65 67 65 78 20 6e 69 6c 29 29 0a 20 20 20 20 28 69 66 20 28 3d 20 2a 72 | n-from.regex.nil)).....(if.(=.*r |
| 128d00 | 65 67 65 78 2d 67 72 6f 75 70 69 6e 67 73 2a 20 30 29 0a 09 28 72 65 74 75 72 6e 2d 66 72 6f 6d | egex-groupings*.0)..(return-from |
| 128d20 | 20 72 65 67 65 78 20 74 29 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 2a 72 65 67 65 | .regex.t)).....(dotimes.(i.*rege |
| 128d40 | 78 2d 67 72 6f 75 70 69 6e 67 73 2a 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 28 66 75 6e 63 61 | x-groupings*).......(push.(funca |
| 128d60 | 6c 6c 20 27 73 75 62 73 65 71 20 0a 09 09 20 20 20 20 20 73 74 72 69 6e 67 20 0a 09 09 20 20 20 | ll.'subseq.........string....... |
| 128d80 | 20 20 28 63 61 72 20 28 61 72 65 66 20 2a 72 65 67 65 78 2d 67 72 6f 75 70 73 2a 20 69 29 29 0a | ..(car.(aref.*regex-groups*.i)). |
| 128da0 | 09 09 20 20 20 20 20 28 63 61 64 72 20 28 61 72 65 66 20 2a 72 65 67 65 78 2d 67 72 6f 75 70 73 | .......(cadr.(aref.*regex-groups |
| 128dc0 | 2a 20 69 29 29 29 0a 09 20 20 20 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 28 72 65 76 65 72 73 | *.i)))......result)).....(revers |
| 128de0 | 65 20 72 65 73 75 6c 74 29 29 29 0a 0a 3b 3b 3b 0a 3b 3b 3b 20 44 65 63 6c 61 72 65 20 73 6f 6d | e.result)))..;;;.;;;.Declare.som |
| 128e00 | 65 20 73 69 6d 70 6c 65 20 6d 61 63 72 6f 73 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 63 6f 64 65 | e.simple.macros.to.make.the.code |
| 128e20 | 20 6d 6f 72 65 20 72 65 61 64 61 62 6c 65 2e 0a 3b 3b 3b 0a 28 64 65 66 76 61 72 20 2a 72 65 67 | .more.readable..;;;.(defvar.*reg |
| 128e40 | 65 78 2d 73 70 65 63 69 61 6c 2d 63 68 61 72 73 2a 20 22 3f 2a 2b 2e 28 29 5b 5d 5c 5c 24 7b 7d | ex-special-chars*."?*+.()[]\\${} |
| 128e60 | 22 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 61 64 64 2d 65 78 70 20 28 6c 69 73 74 29 0a 20 20 22 | ")..(defmacro.add-exp.(list)..." |
| 128e80 | 41 64 64 20 61 6e 20 69 74 65 6d 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 65 78 70 72 65 73 | Add.an.item.to.the.end.of.expres |
| 128ea0 | 73 69 6f 6e 22 0a 20 20 60 28 73 65 74 66 20 65 78 70 72 65 73 73 69 6f 6e 20 28 61 70 70 65 6e | sion"...`(setf.expression.(appen |
| 128ec0 | 64 20 65 78 70 72 65 73 73 69 6f 6e 20 2c 6c 69 73 74 29 29 29 0a 0a 3b 3b 3b 0a 3b 3b 3b 20 44 | d.expression.,list)))..;;;.;;;.D |
| 128ee0 | 65 66 69 6e 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 77 69 6c 6c 20 74 61 6b 65 20 | efine.a.function.that.will.take. |
| 128f00 | 61 20 71 75 6f 74 65 64 20 63 68 61 72 61 63 74 65 72 20 61 6e 64 20 72 65 74 75 72 6e 0a 3b 3b | a.quoted.character.and.return.;; |
| 128f20 | 3b 20 77 68 61 74 20 74 68 65 20 72 65 61 6c 20 63 68 61 72 61 63 74 65 72 20 73 68 6f 75 6c 64 | ;.what.the.real.character.should |
| 128f40 | 20 62 65 20 70 6c 75 73 20 68 6f 77 20 6d 75 63 68 20 6f 66 20 74 68 65 20 73 6f 75 72 63 65 0a | .be.plus.how.much.of.the.source. |
| 128f60 | 3b 3b 3b 20 73 74 72 69 6e 67 20 77 61 73 20 75 73 65 64 2e 20 20 49 66 20 74 68 65 20 72 65 73 | ;;;.string.was.used...If.the.res |
| 128f80 | 75 6c 74 20 69 73 20 61 20 73 65 74 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 2c 20 72 65 74 75 | ult.is.a.set.of.characters,.retu |
| 128fa0 | 72 6e 20 61 6e 0a 3b 3b 3b 20 61 72 72 61 79 20 6f 66 20 62 69 74 73 20 69 6e 64 69 63 61 74 69 | rn.an.;;;.array.of.bits.indicati |
| 128fc0 | 6e 67 20 77 68 69 63 68 20 63 68 61 72 61 63 74 65 72 73 20 73 68 6f 75 6c 64 20 62 65 20 73 65 | ng.which.characters.should.be.se |
| 128fe0 | 74 2e 20 20 49 66 20 74 68 65 0a 3b 3b 3b 20 65 78 70 72 65 73 73 69 6f 6e 20 69 73 20 6f 6e 65 | t...If.the.;;;.expression.is.one |
| 129000 | 20 6f 66 20 74 68 65 20 73 75 62 2d 67 72 6f 75 70 20 6d 61 74 63 68 65 73 20 72 65 74 75 72 6e | .of.the.sub-group.matches.return |
| 129020 | 20 61 0a 3b 3b 3b 20 6c 69 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 20 74 68 61 74 20 77 69 6c 6c | .a.;;;.list-expression.that.will |
| 129040 | 20 70 72 6f 76 69 64 65 20 74 68 65 20 6d 61 74 63 68 2e 20 20 0a 3b 3b 3b 0a 28 64 65 66 75 6e | .provide.the.match....;;;.(defun |
| 129060 | 20 72 65 67 65 78 2d 71 75 6f 74 65 64 20 28 63 68 61 72 2d 73 74 72 69 6e 67 20 26 6f 70 74 69 | .regex-quoted.(char-string.&opti |
| 129080 | 6f 6e 61 6c 20 28 69 6e 76 65 72 74 20 6e 69 6c 29 29 0a 20 20 22 55 73 61 67 65 3a 20 28 72 65 | onal.(invert.nil))..."Usage:.(re |
| 1290a0 | 67 65 78 2d 71 75 6f 74 65 64 20 3c 63 68 61 72 2d 73 74 72 69 6e 67 3e 20 26 6f 70 74 69 6f 6e | gex-quoted.<char-string>.&option |
| 1290c0 | 61 6c 20 69 6e 76 65 72 74 29 0a 20 20 20 20 20 20 20 52 65 74 75 72 6e 73 20 65 69 74 68 65 72 | al.invert)........Returns.either |
| 1290e0 | 20 74 68 65 20 71 75 6f 74 65 64 20 63 68 61 72 61 63 74 65 72 20 6f 72 20 61 20 73 69 6d 70 6c | .the.quoted.character.or.a.simpl |
| 129100 | 65 20 62 69 74 20 76 65 63 74 6f 72 20 6f 66 20 62 69 74 73 20 73 65 74 20 66 6f 72 0a 20 20 20 | e.bit.vector.of.bits.set.for.... |
| 129120 | 20 20 20 20 74 68 65 20 6d 61 74 63 68 69 6e 67 20 76 61 6c 75 65 73 22 0a 20 20 28 6c 65 74 20 | ....the.matching.values"...(let. |
| 129140 | 28 28 66 69 72 73 74 20 28 63 68 61 72 20 63 68 61 72 2d 73 74 72 69 6e 67 20 30 29 29 0a 09 28 | ((first.(char.char-string.0))..( |
| 129160 | 72 65 73 75 6c 74 20 28 63 68 61 72 20 63 68 61 72 2d 73 74 72 69 6e 67 20 30 29 29 0a 09 28 75 | result.(char.char-string.0))..(u |
| 129180 | 73 65 64 2d 6c 65 6e 67 74 68 20 31 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 6c 20 66 | sed-length.1)).....(cond.((eql.f |
| 1291a0 | 69 72 73 74 20 23 5c 6e 29 0a 09 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 23 5c 4e 65 77 | irst.#\n).....(setf.result.#\New |
| 1291c0 | 4c 69 6e 65 29 29 0a 09 20 20 28 28 65 71 6c 20 66 69 72 73 74 20 23 5c 63 29 0a 09 20 20 20 28 | Line))....((eql.first.#\c).....( |
| 1291e0 | 73 65 74 66 20 72 65 73 75 6c 74 20 23 5c 52 65 74 75 72 6e 29 29 0a 09 20 20 28 28 65 71 6c 20 | setf.result.#\Return))....((eql. |
| 129200 | 66 69 72 73 74 20 23 5c 74 29 0a 09 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 23 5c 54 61 | first.#\t).....(setf.result.#\Ta |
| 129220 | 62 29 29 0a 09 20 20 28 28 65 71 6c 20 66 69 72 73 74 20 23 5c 64 29 0a 09 20 20 20 28 73 65 74 | b))....((eql.first.#\d).....(set |
| 129240 | 66 20 72 65 73 75 6c 74 20 23 2a 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | f.result.#*000000000000000000000 |
| 129260 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 31 31 31 31 31 | 00000000000000000000000000011111 |
| 129280 | 31 31 31 31 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 11111000000000000000000000000000 |
| 1292a0 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 1292c0 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 1292e0 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 129300 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 129320 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 129340 | 30 30 30 30 30 30 30 30 30 30 30 29 29 0a 09 20 20 28 28 65 71 6c 20 66 69 72 73 74 20 23 5c 44 | 00000000000))....((eql.first.#\D |
| 129360 | 29 0a 09 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 23 2a 31 31 31 31 31 31 31 31 31 31 31 | ).....(setf.result.#*11111111111 |
| 129380 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 1293a0 | 31 31 31 31 31 30 30 30 30 30 30 30 30 30 30 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111000000000011111111111111111 |
| 1293c0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 1293e0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129400 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129420 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129440 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129460 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 29 29 0a 09 20 20 28 28 65 71 6c | 111111111111111111111))....((eql |
| 129480 | 20 66 69 72 73 74 20 23 5c 77 29 0a 09 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 23 2a 30 | .first.#\w).....(setf.result.#*0 |
| 1294a0 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 1294c0 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 31 31 31 31 31 31 31 31 31 31 30 30 30 30 30 30 30 | 00000000000000011111111110000000 |
| 1294e0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 30 30 30 30 31 30 | 11111111111111111111111111000010 |
| 129500 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 30 30 30 30 30 30 | 11111111111111111111111111000000 |
| 129520 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 129540 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 129560 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 129580 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 29 | 0000000000000000000000000000000) |
| 1295a0 | 29 0a 09 20 20 28 28 65 71 6c 20 66 69 72 73 74 20 23 5c 57 29 0a 09 20 20 20 28 73 65 74 66 20 | )....((eql.first.#\W).....(setf. |
| 1295c0 | 72 65 73 75 6c 74 20 23 2a 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | result.#*11111111111111111111111 |
| 1295e0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 30 30 30 30 30 30 30 | 11111111111111111111111110000000 |
| 129600 | 30 30 30 31 31 31 31 31 31 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00011111110000000000000000000000 |
| 129620 | 30 30 30 30 31 31 31 31 30 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00001111010000000000000000000000 |
| 129640 | 30 30 30 30 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 00001111111111111111111111111111 |
| 129660 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129680 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 1296a0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 1296c0 | 31 31 31 31 31 31 31 31 31 29 29 0a 09 20 20 28 28 65 71 6c 20 66 69 72 73 74 20 23 5c 62 29 0a | 111111111))....((eql.first.#\b). |
| 1296e0 | 09 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 23 2a 30 30 30 30 30 30 30 30 30 31 30 30 30 | ....(setf.result.#*0000000001000 |
| 129700 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 31 31 30 30 30 30 30 30 30 30 30 30 31 | 00000000000000000001100000000001 |
| 129720 | 30 31 30 30 30 30 30 30 30 30 30 30 30 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 01000000000001000000000000000000 |
| 129740 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 129760 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 129780 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 1297a0 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 1297c0 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 1297e0 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 29 29 0a 09 20 20 28 28 65 71 6c 20 66 | 0000000000000000000))....((eql.f |
| 129800 | 69 72 73 74 20 23 5c 42 29 0a 09 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 23 2a 31 31 31 | irst.#\B).....(setf.result.#*111 |
| 129820 | 31 31 31 31 31 31 30 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 30 30 31 | 11111101111111111111111111111001 |
| 129840 | 31 31 31 31 31 31 31 31 31 30 31 30 31 31 31 31 31 31 31 31 31 31 31 30 31 31 31 31 31 31 31 31 | 11111111101011111111111011111111 |
| 129860 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129880 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 1298a0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 1298c0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 1298e0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129900 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 29 29 0a | 11111111111111111111111111111)). |
| 129920 | 09 20 20 28 28 65 71 6c 20 66 69 72 73 74 20 23 5c 73 29 0a 09 20 20 20 28 73 65 74 66 20 72 65 | ...((eql.first.#\s).....(setf.re |
| 129940 | 73 75 6c 74 20 23 2a 30 30 30 30 30 30 30 30 30 31 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | sult.#*0000000001100000000000000 |
| 129960 | 30 30 30 30 30 30 30 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000001000000000000000000000000 |
| 129980 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 1299a0 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 1299c0 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 1299e0 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 129a00 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 129a20 | 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 | 00000000000000000000000000000000 |
| 129a40 | 30 30 30 30 30 30 30 29 29 0a 09 20 20 28 28 65 71 6c 20 66 69 72 73 74 20 23 5c 53 29 0a 09 20 | 0000000))....((eql.first.#\S)... |
| 129a60 | 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 23 2a 31 31 31 31 31 31 31 31 31 30 30 31 31 31 31 | ..(setf.result.#*111111111001111 |
| 129a80 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 30 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111011111111111111 |
| 129aa0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129ac0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129ae0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129b00 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129b20 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129b40 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 129b60 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 29 29 0a 09 20 20 28 28 61 6e 64 20 28 3e 3d | 11111111111111111))....((and.(>= |
| 129b80 | 20 28 63 68 61 72 2d 63 6f 64 65 20 66 69 72 73 74 29 20 28 63 68 61 72 2d 63 6f 64 65 20 23 5c | .(char-code.first).(char-code.#\ |
| 129ba0 | 30 29 29 0a 09 09 28 3c 3d 20 28 63 68 61 72 2d 63 6f 64 65 20 66 69 72 73 74 29 20 28 63 68 61 | 0))...(<=.(char-code.first).(cha |
| 129bc0 | 72 2d 63 6f 64 65 20 23 5c 39 29 29 29 0a 09 20 20 20 28 69 66 20 28 61 6e 64 20 28 3e 20 28 6c | r-code.#\9))).....(if.(and.(>.(l |
| 129be0 | 65 6e 67 74 68 20 63 68 61 72 2d 73 74 72 69 6e 67 29 20 32 29 0a 09 09 20 20 20 20 28 61 6e 64 | ength.char-string).2).......(and |
| 129c00 | 20 28 3e 3d 20 28 63 68 61 72 2d 63 6f 64 65 20 28 63 68 61 72 20 63 68 61 72 2d 73 74 72 69 6e | .(>=.(char-code.(char.char-strin |
| 129c20 | 67 20 31 29 29 20 28 63 68 61 72 2d 63 6f 64 65 20 23 5c 30 29 29 0a 09 09 09 20 28 3c 3d 20 28 | g.1)).(char-code.#\0)).....(<=.( |
| 129c40 | 63 68 61 72 2d 63 6f 64 65 20 28 63 68 61 72 20 63 68 61 72 2d 73 74 72 69 6e 67 20 31 29 29 20 | char-code.(char.char-string.1)). |
| 129c60 | 28 63 68 61 72 2d 63 6f 64 65 20 23 5c 39 29 29 0a 09 09 09 20 28 3e 3d 20 28 63 68 61 72 2d 63 | (char-code.#\9)).....(>=.(char-c |
| 129c80 | 6f 64 65 20 28 63 68 61 72 20 63 68 61 72 2d 73 74 72 69 6e 67 20 32 29 29 20 28 63 68 61 72 2d | ode.(char.char-string.2)).(char- |
| 129ca0 | 63 6f 64 65 20 23 5c 30 29 29 0a 09 09 09 20 28 3c 3d 20 28 63 68 61 72 2d 63 6f 64 65 20 28 63 | code.#\0)).....(<=.(char-code.(c |
| 129cc0 | 68 61 72 20 63 68 61 72 2d 73 74 72 69 6e 67 20 32 29 29 20 28 63 68 61 72 2d 63 6f 64 65 20 23 | har.char-string.2)).(char-code.# |
| 129ce0 | 5c 39 29 29 29 29 0a 09 20 20 20 20 20 20 20 3b 3b 0a 09 20 20 20 20 20 20 20 3b 3b 20 49 74 20 | \9)))).........;;.........;;.It. |
| 129d00 | 69 73 20 61 20 73 69 6e 67 6c 65 20 63 68 61 72 61 63 74 65 72 20 73 70 65 63 69 66 69 65 64 20 | is.a.single.character.specified. |
| 129d20 | 69 6e 20 6f 63 74 61 6c 0a 09 20 20 20 20 20 20 20 3b 3b 0a 09 20 20 20 20 20 20 20 28 70 72 6f | in.octal.........;;.........(pro |
| 129d40 | 67 6e 20 0a 09 09 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 28 64 6f 20 28 28 78 20 30 20 28 31 | gn.....(setf.result.(do.((x.0.(1 |
| 129d60 | 2b 20 78 29 29 0a 09 09 09 09 20 20 20 28 72 65 74 75 72 6e 20 30 29 29 0a 09 09 09 09 20 20 28 | +.x))........(return.0)).......( |
| 129d80 | 28 3d 20 78 20 32 29 20 72 65 74 75 72 6e 29 0a 09 09 09 09 28 73 65 74 66 20 72 65 74 75 72 6e | (=.x.2).return).....(setf.return |
| 129da0 | 20 28 2b 20 28 2a 20 72 65 74 75 72 6e 20 38 29 0a 09 09 09 09 09 09 28 2d 20 28 63 68 61 72 2d | .(+.(*.return.8).......(-.(char- |
| 129dc0 | 63 6f 64 65 20 28 63 68 61 72 20 63 68 61 72 2d 73 74 72 69 6e 67 20 78 29 29 0a 09 09 09 09 09 | code.(char.char-string.x))...... |
| 129de0 | 09 20 20 20 28 63 68 61 72 2d 63 6f 64 65 20 23 5c 30 29 29 29 29 29 29 0a 09 09 20 28 73 65 74 | ....(char-code.#\0))))))....(set |
| 129e00 | 66 20 75 73 65 64 2d 6c 65 6e 67 74 68 20 33 29 29 0a 09 20 20 20 20 20 3b 3b 0a 09 20 20 20 20 | f.used-length.3)).......;;...... |
| 129e20 | 20 3b 3b 20 57 65 20 68 61 76 65 20 61 20 67 72 6f 75 70 20 6e 75 6d 62 65 72 20 72 65 70 6c 61 | .;;.We.have.a.group.number.repla |
| 129e40 | 63 65 6d 65 6e 74 2e 0a 09 20 20 20 20 20 3b 3b 0a 09 20 20 20 20 20 28 6c 65 74 20 28 28 67 72 | cement........;;.......(let.((gr |
| 129e60 | 6f 75 70 20 28 2d 20 28 63 68 61 72 2d 63 6f 64 65 20 66 69 72 73 74 29 20 28 63 68 61 72 2d 63 | oup.(-.(char-code.first).(char-c |
| 129e80 | 6f 64 65 20 23 5c 30 29 29 29 29 0a 09 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 | ode.#\0)))).........(setf.result |
| 129ea0 | 20 60 28 28 6c 65 74 20 28 28 6e 73 74 72 69 6e 67 20 28 73 75 62 73 65 71 20 73 74 72 69 6e 67 | .`((let.((nstring.(subseq.string |
| 129ec0 | 20 28 63 61 72 20 28 61 72 65 66 20 2a 72 65 67 65 78 2d 67 72 6f 75 70 73 2a 20 2c 67 72 6f 75 | .(car.(aref.*regex-groups*.,grou |
| 129ee0 | 70 29 29 0a 09 09 09 09 09 09 20 20 20 20 20 28 63 61 64 72 20 28 61 72 65 66 20 2a 72 65 67 65 | p))............(cadr.(aref.*rege |
| 129f00 | 78 2d 67 72 6f 75 70 73 2a 20 2c 67 72 6f 75 70 29 29 29 29 29 0a 09 09 09 09 28 69 66 20 28 3c | x-groups*.,group))))).....(if.(< |
| 129f20 | 20 6c 65 6e 67 74 68 20 28 2b 20 69 6e 64 65 78 20 28 6c 65 6e 67 74 68 20 6e 73 74 72 69 6e 67 | .length.(+.index.(length.nstring |
| 129f40 | 29 29 29 0a 09 09 09 09 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 63 6f 6d 70 61 72 65 | ))).........(return-from.compare |
| 129f60 | 20 6e 69 6c 29 29 0a 09 09 09 09 28 69 66 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 73 74 72 | .nil)).....(if.(not.(string=.str |
| 129f80 | 69 6e 67 20 6e 73 74 72 69 6e 67 0a 09 09 09 09 09 09 20 20 3a 73 74 61 72 74 31 20 69 6e 64 65 | ing.nstring.........:start1.inde |
| 129fa0 | 78 0a 09 09 09 09 09 09 20 20 3a 65 6e 64 31 20 28 2b 20 69 6e 64 65 78 20 28 6c 65 6e 67 74 68 | x.........:end1.(+.index.(length |
| 129fc0 | 20 6e 73 74 72 69 6e 67 29 29 29 29 0a 09 09 09 09 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f | .nstring)))).........(return-fro |
| 129fe0 | 6d 20 63 6f 6d 70 61 72 65 20 6e 69 6c 29 0a 09 09 09 09 20 20 28 69 6e 63 66 20 69 6e 64 65 78 | m.compare.nil).......(incf.index |
| 12a000 | 20 28 6c 65 6e 67 74 68 20 6e 73 74 72 69 6e 67 29 29 29 29 29 29 29 29 29 0a 09 20 20 28 74 20 | .(length.nstring)))))))))....(t. |
| 12a020 | 0a 09 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 66 69 72 73 74 29 29 29 0a 20 20 20 20 28 | .....(setf.result.first))).....( |
| 12a040 | 69 66 20 28 61 6e 64 20 28 76 65 63 74 6f 72 70 20 72 65 73 75 6c 74 29 20 69 6e 76 65 72 74 29 | if.(and.(vectorp.result).invert) |
| 12a060 | 0a 09 28 62 69 74 2d 78 6f 72 20 72 65 73 75 6c 74 20 23 2a 31 31 31 31 31 31 31 31 31 30 30 31 | ..(bit-xor.result.#*111111111001 |
| 12a080 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 30 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111011111111111 |
| 12a0a0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 12a0c0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 12a0e0 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 12a100 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 12a120 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 12a140 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111111111111111111111 |
| 12a160 | 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 20 74 29 29 0a 20 20 20 20 28 76 61 | 11111111111111111111.t)).....(va |
| 12a180 | 6c 75 65 73 20 72 65 73 75 6c 74 20 75 73 65 64 2d 6c 65 6e 67 74 68 29 29 29 0a 0a 3b 3b 3b 0a | lues.result.used-length)))..;;;. |
| 12a1a0 | 3b 3b 3b 20 4e 6f 77 20 66 6f 72 20 74 68 65 20 6d 61 69 6e 20 72 65 67 65 78 20 63 6f 6d 70 69 | ;;;.Now.for.the.main.regex.compi |
| 12a1c0 | 6c 65 72 20 72 6f 75 74 69 6e 65 2e 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 72 65 67 65 78 2d 63 6f | ler.routine..;;;.(defun.regex-co |
| 12a1e0 | 6d 70 69 6c 65 20 28 73 6f 75 72 63 65 20 26 6b 65 79 20 28 61 6e 63 68 6f 72 65 64 20 6e 69 6c | mpile.(source.&key.(anchored.nil |
| 12a200 | 29 29 0a 20 20 22 55 73 61 67 65 3a 20 28 72 65 67 65 78 2d 63 6f 6d 70 69 6c 65 20 3c 65 78 70 | ))..."Usage:.(regex-compile.<exp |
| 12a220 | 72 65 73 73 69 6f 6e 3e 20 5b 20 3a 61 6e 63 68 6f 72 65 64 20 28 74 2f 6e 69 6c 29 20 5d 29 0a | ression>.[.:anchored.(t/nil).]). |
| 12a240 | 20 20 20 20 20 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 20 61 20 72 65 67 75 | .......This.function.take.a.regu |
| 12a260 | 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 28 73 75 70 70 6c 69 65 64 20 61 73 20 73 6f 75 72 | lar.expression.(supplied.as.sour |
| 12a280 | 63 65 29 20 61 6e 64 0a 20 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 73 20 74 68 69 73 20 69 6e 74 | ce).and........compiles.this.int |
| 12a2a0 | 6f 20 61 20 6c 61 6d 62 64 61 20 6c 69 73 74 20 74 68 61 74 20 61 20 73 74 72 69 6e 67 20 61 72 | o.a.lambda.list.that.a.string.ar |
| 12a2c0 | 67 75 6d 65 6e 74 20 63 61 6e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 62 65 20 61 70 70 6c 69 65 | gument.can.then........be.applie |
| 12a2e0 | 64 20 74 6f 2e 20 20 49 74 20 69 73 20 61 6c 73 6f 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 63 6f | d.to...It.is.also.possible.to.co |
| 12a300 | 6d 70 69 6c 65 20 74 68 69 73 20 6c 61 6d 62 64 61 20 6c 69 73 74 0a 20 20 20 20 20 20 20 66 6f | mpile.this.lambda.list........fo |
| 12a320 | 72 20 62 65 74 74 65 72 20 70 65 72 66 6f 72 6d 61 6e 63 65 20 6f 72 20 74 6f 20 73 61 76 65 20 | r.better.performance.or.to.save. |
| 12a340 | 69 74 20 61 73 20 61 20 6e 61 6d 65 64 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 6c 61 74 65 72 | it.as.a.named.function.for.later |
| 12a360 | 0a 20 20 20 20 20 20 20 75 73 65 22 0a 20 20 28 69 6e 66 6f 20 22 4e 6f 77 20 65 6e 74 65 72 69 | ........use"...(info."Now.enteri |
| 12a380 | 6e 67 20 72 65 67 65 78 2d 63 6f 6d 70 69 6c 65 20 77 69 74 68 20 5c 22 7e 41 5c 22 7e 25 22 20 | ng.regex-compile.with.\"~A\"~%". |
| 12a3a0 | 73 6f 75 72 63 65 29 0a 20 20 3b 3b 0a 20 20 3b 3b 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 77 | source)...;;...;;.This.routine.w |
| 12a3c0 | 6f 72 6b 73 20 69 6e 20 74 77 6f 20 70 61 72 74 73 2e 0a 20 20 3b 3b 20 54 68 65 20 66 69 72 73 | orks.in.two.parts....;;.The.firs |
| 12a3e0 | 74 20 70 61 73 73 20 74 61 6b 65 20 74 68 65 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 | t.pass.take.the.regular.expressi |
| 12a400 | 6f 6e 20 61 6e 64 20 70 72 6f 64 75 63 65 73 20 61 20 6c 69 73 74 20 6f 66 20 0a 20 20 3b 3b 20 | on.and.produces.a.list.of....;;. |
| 12a420 | 6f 70 65 72 61 74 6f 72 73 20 61 6e 64 20 6c 69 73 70 20 65 78 70 72 65 73 73 69 6f 6e 73 20 66 | operators.and.lisp.expressions.f |
| 12a440 | 6f 72 20 74 68 65 20 65 6e 74 69 72 65 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e | or.the.entire.regular.expression |
| 12a460 | 2e 20 20 0a 20 20 3b 3b 20 54 68 65 20 73 65 63 6f 6e 64 20 70 61 73 73 20 74 61 6b 65 73 20 74 | ......;;.The.second.pass.takes.t |
| 12a480 | 68 69 73 20 6c 69 73 74 20 61 6e 64 20 70 72 6f 64 75 63 65 73 20 74 68 65 20 6c 61 6d 62 64 61 | his.list.and.produces.the.lambda |
| 12a4a0 | 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 20 20 28 6c 65 74 20 28 28 65 78 70 72 65 73 73 69 6f 6e | .expression....(let.((expression |
| 12a4c0 | 20 27 28 29 29 09 09 3b 20 68 6f 6c 64 65 72 20 66 6f 72 20 65 78 70 72 65 73 73 69 6f 6e 73 0a | .'())..;.holder.for.expressions. |
| 12a4e0 | 09 28 67 72 6f 75 70 20 31 29 09 09 09 3b 20 43 75 72 72 65 6e 74 20 67 72 6f 75 70 20 69 6e 64 | .(group.1)...;.Current.group.ind |
| 12a500 | 65 78 0a 09 28 67 72 6f 75 70 2d 73 74 61 63 6b 20 6e 69 6c 29 09 09 3b 20 53 74 61 63 6b 20 6f | ex..(group-stack.nil)..;.Stack.o |
| 12a520 | 66 20 63 75 72 72 65 6e 74 20 67 72 6f 75 70 20 65 6e 64 69 6e 67 73 0a 09 28 72 65 73 75 6c 74 | f.current.group.endings..(result |
| 12a540 | 20 6e 69 6c 29 09 09 09 3b 20 68 6f 6c 64 65 72 20 66 6f 72 20 62 75 69 6c 74 20 65 78 70 72 65 | .nil)...;.holder.for.built.expre |
| 12a560 | 73 73 69 6f 6e 2e 0a 09 28 66 61 73 74 2d 66 69 72 73 74 20 6e 69 6c 29 29 09 09 3b 20 68 6f 6c | ssion...(fast-first.nil))..;.hol |
| 12a580 | 64 65 72 20 66 6f 72 20 71 75 69 63 6b 20 75 6e 61 6e 63 68 6f 72 65 64 20 73 63 61 6e 0a 20 20 | der.for.quick.unanchored.scan... |
| 12a5a0 | 20 20 3b 3b 0a 20 20 20 20 3b 3b 20 49 66 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 77 61 | ..;;.....;;.If.the.expression.wa |
| 12a5c0 | 73 20 61 6e 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20 74 68 65 6e 20 69 74 20 61 6c 77 61 79 0a | s.an.empty.string.then.it.alway. |
| 12a5e0 | 20 20 20 20 3b 3b 20 6d 61 74 63 68 65 73 20 28 73 6f 20 6c 65 74 73 20 6c 65 61 76 65 20 65 61 | ....;;.matches.(so.lets.leave.ea |
| 12a600 | 72 6c 79 29 0a 20 20 20 20 3b 3b 0a 20 20 20 20 28 69 66 20 28 3d 20 28 6c 65 6e 67 74 68 20 73 | rly).....;;.....(if.(=.(length.s |
| 12a620 | 6f 75 72 63 65 29 20 30 29 0a 09 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 72 65 67 65 78 2d 63 6f | ource).0)..(return-from.regex-co |
| 12a640 | 6d 70 69 6c 65 0a 09 09 20 20 20 20 20 27 28 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 61 72 67 | mpile........'(lambda.(&rest.arg |
| 12a660 | 73 29 0a 09 09 09 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 09 09 | s)....(declare.(ignore.args))... |
| 12a680 | 09 74 29 29 29 0a 20 20 20 20 3b 3b 0a 20 20 20 20 3b 3b 20 49 66 20 74 68 65 20 66 69 72 73 74 | .t))).....;;.....;;.If.the.first |
| 12a6a0 | 20 63 68 61 72 61 63 74 65 72 20 69 73 20 61 20 63 61 72 65 74 20 74 68 65 6e 20 73 65 74 20 74 | .character.is.a.caret.then.set.t |
| 12a6c0 | 68 65 20 61 6e 63 68 6f 72 65 64 0a 20 20 20 20 3b 3b 20 66 6c 61 67 73 20 61 6e 64 20 72 65 6d | he.anchored.....;;.flags.and.rem |
| 12a6e0 | 6f 76 65 20 69 66 20 66 72 6f 6d 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 73 74 72 69 6e | ove.if.from.the.expression.strin |
| 12a700 | 67 2e 0a 20 20 20 20 3b 3b 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 6c 20 28 63 68 61 72 20 | g......;;.....(cond.((eql.(char. |
| 12a720 | 73 6f 75 72 63 65 20 30 29 20 23 5c 5e 29 0a 09 20 20 20 28 73 65 74 66 20 73 6f 75 72 63 65 20 | source.0).#\^).....(setf.source. |
| 12a740 | 28 73 75 62 73 65 71 20 73 6f 75 72 63 65 20 31 29 29 0a 09 20 20 20 28 73 65 74 66 20 61 6e 63 | (subseq.source.1)).....(setf.anc |
| 12a760 | 68 6f 72 65 64 20 74 29 29 29 0a 20 20 20 20 3b 3b 0a 20 20 20 20 3b 3b 20 49 66 20 74 68 65 20 | hored.t))).....;;.....;;.If.the. |
| 12a780 | 66 69 72 73 74 20 73 65 71 75 65 6e 63 65 20 69 73 20 2e 2a 20 74 68 65 6e 20 61 6c 73 6f 20 73 | first.sequence.is..*.then.also.s |
| 12a7a0 | 65 74 20 74 68 65 20 61 6e 63 68 6f 72 65 64 20 66 6c 61 67 73 2e 0a 20 20 20 20 3b 3b 20 28 54 | et.the.anchored.flags......;;.(T |
| 12a7c0 | 68 69 73 20 69 73 20 70 75 72 65 6c 79 20 66 6f 72 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 2c 20 | his.is.purely.for.optimization,. |
| 12a7e0 | 69 74 20 77 69 6c 6c 20 77 6f 72 6b 20 77 69 74 68 6f 75 74 20 74 68 69 73 29 2e 0a 20 20 20 20 | it.will.work.without.this)...... |
| 12a800 | 3b 3b 0a 20 20 20 20 28 69 66 20 28 3e 3d 20 28 6c 65 6e 67 74 68 20 73 6f 75 72 63 65 29 20 32 | ;;.....(if.(>=.(length.source).2 |
| 12a820 | 29 0a 09 28 69 66 20 28 73 74 72 69 6e 67 3d 20 73 6f 75 72 63 65 20 22 2e 2a 22 20 3a 73 74 61 | )..(if.(string=.source.".*".:sta |
| 12a840 | 72 74 31 20 30 20 3a 65 6e 64 31 20 32 29 0a 09 20 20 20 20 28 73 65 74 66 20 61 6e 63 68 6f 72 | rt1.0.:end1.2)......(setf.anchor |
| 12a860 | 65 64 20 74 29 29 29 0a 20 20 20 20 3b 3b 0a 20 20 20 20 3b 3b 20 41 6c 73 6f 2c 20 49 66 20 74 | ed.t))).....;;.....;;.Also,.If.t |
| 12a880 | 68 69 73 20 69 73 20 6e 6f 74 20 61 6e 20 61 6e 63 68 6f 72 65 64 20 73 65 61 72 63 68 20 61 6e | his.is.not.an.anchored.search.an |
| 12a8a0 | 64 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20 69 73 0a 20 20 20 20 3b 3b 20 | d.the.first.character.is.....;;. |
| 12a8c0 | 61 20 6c 69 74 65 72 61 6c 2c 20 74 68 65 6e 20 64 6f 20 61 20 71 75 69 63 6b 20 73 63 61 6e 20 | a.literal,.then.do.a.quick.scan. |
| 12a8e0 | 74 6f 20 73 65 65 20 69 66 20 69 74 20 69 73 20 65 76 65 6e 20 69 6e 20 74 68 65 20 73 74 72 69 | to.see.if.it.is.even.in.the.stri |
| 12a900 | 6e 67 2e 0a 20 20 20 20 3b 3b 20 49 66 20 6e 6f 74 20 74 68 65 6e 20 77 65 20 63 61 6e 20 69 73 | ng......;;.If.not.then.we.can.is |
| 12a920 | 73 75 65 20 61 20 71 75 69 63 6b 20 6e 69 6c 2c 20 0a 20 20 20 20 3b 3b 20 6f 74 68 65 72 77 69 | sue.a.quick.nil,......;;.otherwi |
| 12a940 | 73 65 20 77 65 20 63 61 6e 20 73 74 61 72 74 20 74 68 65 20 73 65 61 72 63 68 20 61 74 20 74 68 | se.we.can.start.the.search.at.th |
| 12a960 | 65 20 6d 61 74 63 68 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 74 6f 20 73 6b 69 70 0a 20 20 20 | e.matching.character.to.skip.... |
| 12a980 | 20 3b 3b 20 74 68 65 20 63 68 65 63 6b 73 20 6f 66 20 74 68 65 20 6e 6f 6e 2d 6d 61 74 63 68 69 | .;;.the.checks.of.the.non-matchi |
| 12a9a0 | 6e 67 20 63 68 61 72 61 63 74 65 72 73 20 61 6e 79 77 61 79 2e 0a 20 20 20 20 3b 3b 0a 20 20 20 | ng.characters.anyway......;;.... |
| 12a9c0 | 20 3b 3b 20 49 66 20 49 20 72 65 61 6c 6c 79 20 77 61 6e 74 65 64 20 74 6f 20 73 70 65 65 64 20 | .;;.If.I.really.wanted.to.speed. |
| 12a9e0 | 75 70 20 74 68 69 73 20 73 65 63 74 69 6f 6e 20 6f 66 20 63 6f 64 65 20 69 74 20 77 6f 75 6c 64 | up.this.section.of.code.it.would |
| 12aa00 | 20 62 65 20 0a 20 20 20 20 3b 3b 20 65 61 73 79 20 74 6f 20 72 65 63 6f 67 6e 69 7a 65 20 74 68 | .be......;;.easy.to.recognize.th |
| 12aa20 | 65 20 63 61 73 65 20 6f 66 20 61 20 66 61 69 72 6c 79 20 6c 6f 6e 67 20 6d 75 6c 74 69 2d 63 68 | e.case.of.a.fairly.long.multi-ch |
| 12aa40 | 61 72 61 63 74 65 72 20 6c 69 74 65 72 61 6c 0a 20 20 20 20 3b 3b 20 61 6e 64 20 67 65 6e 65 72 | aracter.literal.....;;.and.gener |
| 12aa60 | 61 74 65 20 61 20 42 6f 79 65 72 2d 4d 6f 6f 72 65 20 73 65 61 72 63 68 20 66 6f 72 20 74 68 65 | ate.a.Boyer-Moore.search.for.the |
| 12aa80 | 20 65 6e 74 69 72 65 20 6c 69 74 65 72 61 6c 2e 20 0a 20 20 20 20 3b 3b 0a 20 20 20 20 3b 3b 20 | .entire.literal.......;;.....;;. |
| 12aaa0 | 49 20 67 65 6e 65 72 61 74 65 20 74 68 65 20 63 6f 64 65 20 74 6f 20 64 6f 20 61 20 6c 6f 6f 70 | I.generate.the.code.to.do.a.loop |
| 12aac0 | 20 62 65 63 61 75 73 65 20 6f 6e 20 43 4d 55 20 4c 69 73 70 20 74 68 69 73 20 69 73 20 61 62 6f | .because.on.CMU.Lisp.this.is.abo |
| 12aae0 | 75 74 0a 20 20 20 20 3b 3b 20 74 77 69 63 65 20 61 73 20 66 61 73 74 20 61 20 63 61 6c 6c 69 6e | ut.....;;.twice.as.fast.a.callin |
| 12ab00 | 67 20 70 6f 73 69 74 69 6f 6e 2e 0a 20 20 20 20 3b 3b 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 | g.position......;;.....(if.(and. |
| 12ab20 | 28 6e 6f 74 20 61 6e 63 68 6f 72 65 64 29 0a 09 20 20 20 20 20 28 6e 6f 74 20 28 70 6f 73 69 74 | (not.anchored).......(not.(posit |
| 12ab40 | 69 6f 6e 20 28 63 68 61 72 20 73 6f 75 72 63 65 20 30 29 20 2a 72 65 67 65 78 2d 73 70 65 63 69 | ion.(char.source.0).*regex-speci |
| 12ab60 | 61 6c 2d 63 68 61 72 73 2a 29 29 0a 09 20 20 20 20 20 28 6e 6f 74 20 28 61 6e 64 20 28 3e 20 28 | al-chars*)).......(not.(and.(>.( |
| 12ab80 | 6c 65 6e 67 74 68 20 73 6f 75 72 63 65 29 20 31 29 0a 09 09 20 20 20 20 20 20 20 28 70 6f 73 69 | length.source).1)..........(posi |
| 12aba0 | 74 69 6f 6e 20 28 63 68 61 72 20 73 6f 75 72 63 65 20 31 29 20 2a 72 65 67 65 78 2d 73 70 65 63 | tion.(char.source.1).*regex-spec |
| 12abc0 | 69 61 6c 2d 63 68 61 72 73 2a 29 29 29 29 0a 09 28 73 65 74 66 20 66 61 73 74 2d 66 69 72 73 74 | ial-chars*))))..(setf.fast-first |
| 12abe0 | 20 60 28 28 69 66 20 28 6e 6f 74 20 28 64 6f 74 69 6d 65 73 20 28 69 20 6c 65 6e 67 74 68 20 6e | .`((if.(not.(dotimes.(i.length.n |
| 12ac00 | 69 6c 29 0a 09 09 09 09 20 20 20 20 20 28 69 66 20 28 65 71 6c 20 28 63 68 61 72 20 73 74 72 69 | il)..........(if.(eql.(char.stri |
| 12ac20 | 6e 67 20 69 29 0a 09 09 09 09 09 20 20 20 20 20 20 2c 28 63 68 61 72 20 73 6f 75 72 63 65 20 30 | ng.i)............,(char.source.0 |
| 12ac40 | 29 29 0a 09 09 09 09 09 20 28 72 65 74 75 72 6e 20 28 73 65 74 66 20 73 74 61 72 74 20 69 29 29 | )).......(return.(setf.start.i)) |
| 12ac60 | 29 29 29 0a 09 09 09 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 66 69 6e 61 6c 2d | )))..........(return-from.final- |
| 12ac80 | 72 65 74 75 72 6e 20 6e 69 6c 29 29 29 29 29 0a 20 20 20 20 3b 3b 0a 20 20 20 20 3b 3b 20 47 65 | return.nil))))).....;;.....;;.Ge |
| 12aca0 | 6e 65 72 61 74 65 20 74 68 65 20 76 65 72 79 20 66 69 72 73 74 20 65 78 70 72 65 73 73 69 6f 6e | nerate.the.very.first.expression |
| 12acc0 | 20 74 6f 20 73 61 76 65 20 74 68 65 20 73 74 61 72 74 69 6e 67 20 69 6e 64 65 78 0a 20 20 20 20 | .to.save.the.starting.index..... |
| 12ace0 | 3b 3b 20 73 6f 20 74 68 61 74 20 67 72 6f 75 70 20 30 20 77 69 6c 6c 20 62 65 20 74 68 65 20 65 | ;;.so.that.group.0.will.be.the.e |
| 12ad00 | 6e 74 69 72 65 20 73 74 72 69 6e 67 20 6d 61 74 63 68 65 64 20 61 6c 77 61 79 73 0a 20 20 20 20 | ntire.string.matched.always..... |
| 12ad20 | 3b 3b 0a 20 20 20 20 28 61 64 64 2d 65 78 70 20 27 28 28 73 65 74 66 20 28 61 72 65 66 20 2a 72 | ;;.....(add-exp.'((setf.(aref.*r |
| 12ad40 | 65 67 65 78 2d 67 72 6f 75 70 73 2a 20 30 29 0a 09 09 20 20 20 20 20 28 6c 69 73 74 20 69 6e 64 | egex-groups*.0)........(list.ind |
| 12ad60 | 65 78 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 3b 3b 0a 20 20 20 20 3b 3b 20 4c 6f 6f 70 20 6f 76 | ex.nil)))).....;;.....;;.Loop.ov |
| 12ad80 | 65 72 20 65 61 63 68 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 74 68 65 20 72 65 67 75 6c 61 72 | er.each.character.in.the.regular |
| 12ada0 | 20 65 78 70 72 65 73 73 69 6f 6e 20 62 75 69 6c 64 69 6e 67 20 74 68 65 0a 20 20 20 20 3b 3b 20 | .expression.building.the.....;;. |
| 12adc0 | 65 78 70 72 65 73 73 69 6f 6e 20 6c 69 73 74 20 61 73 20 77 65 20 67 6f 2e 0a 20 20 20 20 3b 3b | expression.list.as.we.go......;; |
| 12ade0 | 0a 20 20 20 20 28 64 6f 20 28 28 65 69 6e 64 65 78 20 30 20 28 31 2b 20 65 69 6e 64 65 78 29 29 | .....(do.((eindex.0.(1+.eindex)) |
| 12ae00 | 29 0a 09 28 28 3d 20 65 69 6e 64 65 78 20 28 6c 65 6e 67 74 68 20 73 6f 75 72 63 65 29 29 29 0a | )..((=.eindex.(length.source))). |
| 12ae20 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 20 28 63 68 61 72 20 73 6f 75 72 63 | ......(let.((current.(char.sourc |
| 12ae40 | 65 20 65 69 6e 64 65 78 29 29 29 0a 09 28 69 6e 66 6f 20 22 4e 6f 77 20 70 72 6f 63 65 73 73 69 | e.eindex)))..(info."Now.processi |
| 12ae60 | 6e 67 20 63 68 61 72 61 63 74 65 72 20 7e 41 20 69 6e 64 65 78 20 3d 20 7e 41 7e 25 22 20 63 75 | ng.character.~A.index.=.~A~%".cu |
| 12ae80 | 72 72 65 6e 74 20 65 69 6e 64 65 78 29 0a 09 28 63 61 73 65 20 63 75 72 72 65 6e 74 0a 09 20 20 | rrent.eindex)..(case.current.... |
| 12aea0 | 28 28 23 5c 2e 29 0a 09 20 20 20 3b 3b 0a 09 20 20 20 3b 3b 20 47 65 6e 65 72 61 74 65 20 63 6f | ((#\.).....;;.....;;.Generate.co |
| 12aec0 | 64 65 20 66 6f 72 20 61 20 73 69 6e 67 6c 65 20 77 69 6c 64 20 63 68 61 72 61 63 74 65 72 0a 09 | de.for.a.single.wild.character.. |
| 12aee0 | 20 20 20 3b 3b 0a 09 20 20 20 28 61 64 64 2d 65 78 70 20 27 28 28 69 66 20 28 3e 3d 20 69 6e 64 | ...;;.....(add-exp.'((if.(>=.ind |
| 12af00 | 65 78 20 6c 65 6e 67 74 68 29 0a 09 09 09 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 63 6f 6d | ex.length)......(return-from.com |
| 12af20 | 70 61 72 65 20 6e 69 6c 29 0a 09 09 09 28 69 6e 63 66 20 69 6e 64 65 78 29 29 29 29 29 0a 09 20 | pare.nil)....(incf.index)))))... |
| 12af40 | 20 28 28 23 5c 24 29 0a 09 20 20 20 3b 3b 0a 09 20 20 20 3b 3b 20 49 66 20 74 68 69 73 20 69 73 | .((#\$).....;;.....;;.If.this.is |
| 12af60 | 20 74 68 65 20 6c 61 73 74 20 63 68 61 72 61 63 74 65 72 20 6f 66 20 74 68 65 20 65 78 70 72 65 | .the.last.character.of.the.expre |
| 12af80 | 73 73 69 6f 6e 20 74 68 65 6e 0a 09 20 20 20 3b 3b 20 61 6e 63 68 6f 72 20 74 68 65 20 65 6e 64 | ssion.then.....;;.anchor.the.end |
| 12afa0 | 20 6f 66 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 2c 20 6f 74 68 65 72 77 69 73 65 20 6c 65 | .of.the.expression,.otherwise.le |
| 12afc0 | 74 20 69 74 20 73 6c 69 64 65 0a 09 20 20 20 3b 3b 20 61 73 20 61 20 73 74 61 6e 64 61 72 64 20 | t.it.slide.....;;.as.a.standard. |
| 12afe0 | 63 68 61 72 61 63 74 65 72 20 28 65 76 65 6e 20 74 68 6f 75 67 68 20 69 74 20 73 68 6f 75 6c 64 | character.(even.though.it.should |
| 12b000 | 20 62 65 20 71 75 6f 74 65 64 29 2e 0a 09 20 20 20 3b 3b 0a 09 20 20 20 28 69 66 20 28 3d 20 65 | .be.quoted)......;;.....(if.(=.e |
| 12b020 | 69 6e 64 65 78 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 73 6f 75 72 63 65 29 29 29 0a 09 20 20 20 | index.(1-.(length.source)))..... |
| 12b040 | 20 20 20 20 28 61 64 64 2d 65 78 70 20 27 28 28 69 66 20 28 6e 6f 74 20 28 3d 20 69 6e 64 65 78 | ....(add-exp.'((if.(not.(=.index |
| 12b060 | 20 6c 65 6e 67 74 68 29 29 0a 09 09 09 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 | .length))..........(return-from. |
| 12b080 | 63 6f 6d 70 61 72 65 20 6e 69 6c 29 29 29 29 0a 09 20 20 20 20 20 28 61 64 64 2d 65 78 70 20 27 | compare.nil)))).......(add-exp.' |
| 12b0a0 | 28 28 69 66 20 28 6e 6f 74 20 28 61 6e 64 20 28 3c 20 69 6e 64 65 78 20 6c 65 6e 67 74 68 29 0a | ((if.(not.(and.(<.index.length). |
| 12b0c0 | 09 09 09 09 20 20 20 20 20 20 28 65 71 6c 20 28 63 68 61 72 20 73 74 72 69 6e 67 20 69 6e 64 65 | ..........(eql.(char.string.inde |
| 12b0e0 | 78 29 20 23 5c 24 29 29 29 0a 09 09 09 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 63 6f | x).#\$)))........(return-from.co |
| 12b100 | 6d 70 61 72 65 20 6e 69 6c 29 0a 09 09 09 20 20 28 69 6e 63 66 20 69 6e 64 65 78 29 29 29 29 29 | mpare.nil)......(incf.index))))) |
| 12b120 | 29 0a 09 20 20 28 28 23 5c 2a 29 0a 09 20 20 20 28 61 64 64 2d 65 78 70 20 27 28 41 53 54 52 49 | )....((#\*).....(add-exp.'(ASTRI |
| 12b140 | 53 4b 29 29 29 0a 0a 09 20 20 28 28 23 5c 2b 29 0a 09 20 20 20 28 61 64 64 2d 65 78 70 20 27 28 | SK))).....((#\+).....(add-exp.'( |
| 12b160 | 50 4c 55 53 29 29 29 0a 0a 09 20 20 28 28 23 5c 3f 29 0a 09 20 20 20 28 61 64 64 2d 65 78 70 20 | PLUS))).....((#\?).....(add-exp. |
| 12b180 | 27 28 51 55 45 53 54 49 4f 4e 29 29 29 0a 0a 09 20 20 28 28 23 5c 28 29 0a 09 20 20 20 3b 3b 0a | '(QUESTION))).....((#\().....;;. |
| 12b1a0 | 09 20 20 20 3b 3b 20 53 74 61 72 74 20 61 20 67 72 6f 75 70 69 6e 67 2e 0a 09 20 20 20 3b 3b 0a | ....;;.Start.a.grouping......;;. |
| 12b1c0 | 09 20 20 20 28 69 6e 63 66 20 67 72 6f 75 70 29 0a 09 20 20 20 28 70 75 73 68 20 67 72 6f 75 70 | ....(incf.group).....(push.group |
| 12b1e0 | 20 67 72 6f 75 70 2d 73 74 61 63 6b 29 0a 09 20 20 20 28 61 64 64 2d 65 78 70 20 60 28 28 73 65 | .group-stack).....(add-exp.`((se |
| 12b200 | 74 66 20 28 61 72 65 66 20 2a 72 65 67 65 78 2d 67 72 6f 75 70 73 2a 20 2c 28 31 2d 20 67 72 6f | tf.(aref.*regex-groups*.,(1-.gro |
| 12b220 | 75 70 29 29 20 0a 09 09 09 20 20 20 20 28 6c 69 73 74 20 69 6e 64 65 78 20 6e 69 6c 29 29 29 29 | up)).........(list.index.nil)))) |
| 12b240 | 0a 09 20 20 20 28 61 64 64 2d 65 78 70 20 60 28 2c 67 72 6f 75 70 29 29 29 0a 09 20 20 28 28 23 | .....(add-exp.`(,group)))....((# |
| 12b260 | 5c 29 29 0a 09 20 20 20 3b 3b 0a 09 20 20 20 3b 3b 20 45 6e 64 20 61 20 67 72 6f 75 70 69 6e 67 | \)).....;;.....;;.End.a.grouping |
| 12b280 | 0a 09 20 20 20 3b 3b 0a 09 20 20 20 28 6c 65 74 20 28 28 67 72 6f 75 70 20 28 70 6f 70 20 67 72 | .....;;.....(let.((group.(pop.gr |
| 12b2a0 | 6f 75 70 2d 73 74 61 63 6b 29 29 29 0a 09 20 20 20 20 20 28 61 64 64 2d 65 78 70 20 60 28 28 73 | oup-stack))).......(add-exp.`((s |
| 12b2c0 | 65 74 66 20 28 63 61 64 72 20 28 61 72 65 66 20 2a 72 65 67 65 78 2d 67 72 6f 75 70 73 2a 20 2c | etf.(cadr.(aref.*regex-groups*., |
| 12b2e0 | 28 31 2d 20 67 72 6f 75 70 29 29 29 0a 09 09 09 20 20 20 20 20 20 69 6e 64 65 78 29 29 29 0a 09 | (1-.group)))..........index))).. |
| 12b300 | 20 20 20 20 20 28 61 64 64 2d 65 78 70 20 60 28 2c 28 2d 20 67 72 6f 75 70 29 29 29 29 29 0a 09 | .....(add-exp.`(,(-.group))))).. |
| 12b320 | 20 20 28 28 23 5c 5b 29 0a 09 20 20 20 3b 3b 0a 09 20 20 20 3b 3b 20 53 74 61 72 74 20 6f 66 20 | ..((#\[).....;;.....;;.Start.of. |
| 12b340 | 61 20 72 61 6e 67 65 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 09 20 20 20 3b 3b 20 47 65 6e 65 72 61 | a.range.operation......;;.Genera |
| 12b360 | 74 65 20 61 20 62 69 74 2d 76 65 63 74 6f 72 20 74 68 61 74 20 68 61 73 20 6f 6e 65 20 62 69 74 | te.a.bit-vector.that.has.one.bit |
| 12b380 | 20 70 65 72 20 70 6f 73 73 69 62 6c 65 20 63 68 61 72 61 63 74 65 72 0a 09 20 20 20 3b 3b 20 61 | .per.possible.character.....;;.a |
| 12b3a0 | 6e 64 20 74 68 65 6e 20 6f 6e 20 65 61 63 68 20 63 68 61 72 61 63 74 65 72 20 6f 72 20 72 61 6e | nd.then.on.each.character.or.ran |
| 12b3c0 | 67 65 2c 20 73 65 74 20 74 68 65 20 70 6f 73 73 69 62 6c 65 20 62 69 74 73 2e 0a 09 20 20 20 3b | ge,.set.the.possible.bits......; |
| 12b3e0 | 3b 0a 09 20 20 20 3b 3b 20 49 66 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20 | ;.....;;.If.the.first.character. |
| 12b400 | 69 73 20 63 61 72 61 74 20 74 68 65 6e 20 69 6e 76 65 72 74 20 74 68 65 20 73 65 74 2e 0a 09 20 | is.carat.then.invert.the.set.... |
| 12b420 | 20 20 28 6c 65 74 2a 20 28 28 69 6e 76 65 72 74 20 28 65 71 6c 20 28 63 68 61 72 20 73 6f 75 72 | ..(let*.((invert.(eql.(char.sour |
| 12b440 | 63 65 20 28 31 2b 20 65 69 6e 64 65 78 29 29 20 23 5c 5e 29 29 0a 09 09 20 20 28 62 69 74 73 74 | ce.(1+.eindex)).#\^)).....(bitst |
| 12b460 | 72 69 6e 67 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 32 35 36 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 | ring.(make-array.256.:element-ty |
| 12b480 | 70 65 20 27 62 69 74 0a 09 09 09 09 09 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 6d 65 | pe.'bit...........:initial-eleme |
| 12b4a0 | 6e 74 0a 09 09 09 09 09 20 20 20 20 20 20 20 20 28 69 66 20 69 6e 76 65 72 74 20 31 20 30 29 29 | nt..............(if.invert.1.0)) |
| 12b4c0 | 29 0a 09 09 20 20 28 73 65 74 2d 63 68 61 72 20 28 69 66 20 69 6e 76 65 72 74 20 30 20 31 29 29 | ).....(set-char.(if.invert.0.1)) |
| 12b4e0 | 29 0a 09 20 20 20 20 20 28 69 66 20 69 6e 76 65 72 74 20 28 69 6e 63 66 20 65 69 6e 64 65 78 29 | ).......(if.invert.(incf.eindex) |
| 12b500 | 29 0a 09 20 20 20 20 20 28 64 6f 20 28 28 78 20 28 31 2b 20 65 69 6e 64 65 78 29 20 28 31 2b 20 | ).......(do.((x.(1+.eindex).(1+. |
| 12b520 | 78 29 29 29 0a 09 09 20 28 28 65 71 6c 20 28 63 68 61 72 20 73 6f 75 72 63 65 20 78 29 20 23 5c | x)))....((eql.(char.source.x).#\ |
| 12b540 | 5d 29 20 28 73 65 74 66 20 65 69 6e 64 65 78 20 78 29 29 0a 09 20 20 20 20 20 20 20 28 69 6e 66 | ]).(setf.eindex.x)).........(inf |
| 12b560 | 6f 20 22 42 75 69 6c 64 69 6e 67 20 72 61 6e 67 65 20 77 69 74 68 20 63 68 61 72 61 63 74 65 72 | o."Building.range.with.character |
| 12b580 | 20 7e 41 7e 25 22 20 28 63 68 61 72 20 73 6f 75 72 63 65 20 78 29 29 0a 09 20 20 20 20 20 20 20 | .~A~%".(char.source.x))......... |
| 12b5a0 | 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 65 71 6c 20 28 63 68 61 72 20 73 6f 75 72 63 65 20 28 31 | (cond.((and.(eql.(char.source.(1 |
| 12b5c0 | 2b 20 78 29 29 20 23 5c 2d 29 0a 09 09 09 20 20 20 28 6e 6f 74 20 28 65 71 6c 20 28 63 68 61 72 | +.x)).#\-).......(not.(eql.(char |
| 12b5e0 | 20 73 6f 75 72 63 65 20 28 2b 20 78 20 32 29 29 20 23 5c 5d 29 29 29 0a 09 09 20 20 20 20 20 20 | .source.(+.x.2)).#\])))......... |
| 12b600 | 28 69 66 20 28 3e 3d 20 28 63 68 61 72 2d 63 6f 64 65 20 28 63 68 61 72 20 73 6f 75 72 63 65 20 | (if.(>=.(char-code.(char.source. |
| 12b620 | 78 29 29 0a 09 09 09 20 20 20 20 20 28 63 68 61 72 2d 63 6f 64 65 20 28 63 68 61 72 20 73 6f 75 | x)).........(char-code.(char.sou |
| 12b640 | 72 63 65 20 28 2b 20 32 20 78 29 29 29 29 0a 09 09 09 20 20 28 65 72 72 6f 72 20 22 49 6e 76 61 | rce.(+.2.x))))......(error."Inva |
| 12b660 | 6c 69 64 20 72 61 6e 67 65 20 5c 22 7e 41 2d 7e 41 5c 22 2e 20 20 52 61 6e 67 65 73 20 6d 75 73 | lid.range.\"~A-~A\"...Ranges.mus |
| 12b680 | 74 20 62 65 20 69 6e 20 61 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 22 0a 09 09 09 09 20 28 63 68 | t.be.in.acending.order"......(ch |
| 12b6a0 | 61 72 20 73 6f 75 72 63 65 20 78 29 20 28 63 68 61 72 20 73 6f 75 72 63 65 20 28 2b 20 32 20 78 | ar.source.x).(char.source.(+.2.x |
| 12b6c0 | 29 29 29 29 0a 09 09 20 20 20 20 20 20 28 64 6f 20 28 28 6a 20 28 63 68 61 72 2d 63 6f 64 65 20 | )))).........(do.((j.(char-code. |
| 12b6e0 | 28 63 68 61 72 20 73 6f 75 72 63 65 20 78 29 29 20 28 31 2b 20 6a 29 29 29 0a 09 09 20 20 20 20 | (char.source.x)).(1+.j)))....... |
| 12b700 | 20 20 20 28 28 3e 20 6a 20 28 63 68 61 72 2d 63 6f 64 65 20 28 63 68 61 72 20 73 6f 75 72 63 65 | ...((>.j.(char-code.(char.source |
| 12b720 | 20 28 2b 20 32 20 78 29 29 29 29 0a 09 09 09 28 69 6e 63 66 20 78 20 32 29 29 0a 09 09 20 20 20 | .(+.2.x))))....(incf.x.2))...... |
| 12b740 | 20 20 28 69 6e 66 6f 20 22 53 65 74 74 69 6e 67 20 62 69 74 20 66 6f 72 20 63 68 61 72 20 7e 41 | ..(info."Setting.bit.for.char.~A |
| 12b760 | 20 63 6f 64 65 20 7e 41 7e 25 22 20 28 63 6f 64 65 2d 63 68 61 72 20 6a 29 20 6a 29 0a 09 09 20 | .code.~A~%".(code-char.j).j).... |
| 12b780 | 20 20 20 20 28 73 65 74 66 20 28 73 62 69 74 20 62 69 74 73 74 72 69 6e 67 20 6a 29 20 73 65 74 | ....(setf.(sbit.bitstring.j).set |
| 12b7a0 | 2d 63 68 61 72 29 29 29 0a 09 09 20 20 20 20 20 28 74 0a 09 09 20 20 20 20 20 20 28 63 6f 6e 64 | -char)))........(t.........(cond |
| 12b7c0 | 20 28 28 6e 6f 74 20 28 65 71 6c 20 28 63 68 61 72 20 73 6f 75 72 63 65 20 78 29 20 23 5c 5d 29 | .((not.(eql.(char.source.x).#\]) |
| 12b7e0 | 29 0a 09 09 09 20 20 20 20 20 28 6c 65 74 20 28 28 63 68 61 72 20 28 63 68 61 72 20 73 6f 75 72 | ).........(let.((char.(char.sour |
| 12b800 | 63 65 20 78 29 29 29 0a 09 09 09 20 20 20 20 20 20 20 3b 3b 0a 09 09 09 20 20 20 20 20 20 20 3b | ce.x)))...........;;...........; |
| 12b820 | 3b 20 49 66 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 69 73 20 71 75 6f 74 65 64 20 74 68 65 | ;.If.the.character.is.quoted.the |
| 12b840 | 6e 20 66 69 6e 64 20 6f 75 74 20 77 68 61 74 0a 09 09 09 20 20 20 20 20 20 20 3b 3b 20 69 74 20 | n.find.out.what...........;;.it. |
| 12b860 | 73 68 6f 75 6c 64 20 68 61 76 65 20 62 65 65 6e 0a 09 09 09 20 20 20 20 20 20 20 3b 3b 0a 09 09 | should.have.been...........;;... |
| 12b880 | 09 20 20 20 20 20 20 20 28 69 66 20 28 65 71 6c 20 28 63 68 61 72 20 73 6f 75 72 63 65 20 78 29 | ........(if.(eql.(char.source.x) |
| 12b8a0 | 20 23 5c 5c 20 29 0a 09 09 09 09 20 20 20 28 6c 65 74 20 28 28 6c 65 6e 67 74 68 29 29 0a 09 09 | .#\\.)........(let.((length))... |
| 12b8c0 | 09 09 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 63 68 61 | .......(multiple-value-setq.(cha |
| 12b8e0 | 72 20 6c 65 6e 67 74 68 29 0a 09 09 09 09 09 20 28 72 65 67 65 78 2d 71 75 6f 74 65 64 20 28 73 | r.length).......(regex-quoted.(s |
| 12b900 | 75 62 73 65 71 20 73 6f 75 72 63 65 20 78 29 20 69 6e 76 65 72 74 29 29 0a 09 09 09 09 20 20 20 | ubseq.source.x).invert))........ |
| 12b920 | 20 20 28 69 6e 63 66 20 78 20 6c 65 6e 67 74 68 29 29 29 0a 09 09 09 20 20 20 20 20 20 20 28 69 | ..(incf.x.length)))...........(i |
| 12b940 | 6e 66 6f 20 22 53 65 74 74 69 6e 67 20 62 69 74 20 66 6f 72 20 63 68 61 72 20 7e 41 20 63 6f 64 | nfo."Setting.bit.for.char.~A.cod |
| 12b960 | 65 20 7e 41 7e 25 22 20 63 68 61 72 20 28 63 68 61 72 2d 63 6f 64 65 20 63 68 61 72 29 29 0a 09 | e.~A~%".char.(char-code.char)).. |
| 12b980 | 09 09 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 76 65 63 74 6f 72 70 20 63 68 61 72 29 | .........(if.(not.(vectorp.char) |
| 12b9a0 | 29 0a 09 09 09 09 20 20 20 28 73 65 74 66 20 28 73 62 69 74 20 62 69 74 73 74 72 69 6e 67 20 28 | )........(setf.(sbit.bitstring.( |
| 12b9c0 | 63 68 61 72 2d 63 6f 64 65 20 28 63 68 61 72 20 73 6f 75 72 63 65 20 78 29 29 29 20 73 65 74 2d | char-code.(char.source.x))).set- |
| 12b9e0 | 63 68 61 72 29 0a 09 09 09 09 20 28 62 69 74 2d 69 6f 72 20 62 69 74 73 74 72 69 6e 67 20 63 68 | char)......(bit-ior.bitstring.ch |
| 12ba00 | 61 72 20 74 29 29 29 29 29 29 29 29 0a 09 20 20 20 20 20 28 61 64 64 2d 65 78 70 20 60 28 28 6c | ar.t)))))))).......(add-exp.`((l |
| 12ba20 | 65 74 20 28 28 72 61 6e 67 65 20 2c 62 69 74 73 74 72 69 6e 67 29 29 0a 09 09 09 20 20 28 69 66 | et.((range.,bitstring))......(if |
| 12ba40 | 20 28 3e 3d 20 69 6e 64 65 78 20 6c 65 6e 67 74 68 29 0a 09 09 09 20 20 20 20 20 20 28 72 65 74 | .(>=.index.length)..........(ret |
| 12ba60 | 75 72 6e 2d 66 72 6f 6d 20 63 6f 6d 70 61 72 65 20 6e 69 6c 29 29 0a 09 09 09 20 20 28 69 66 20 | urn-from.compare.nil))......(if. |
| 12ba80 | 28 3d 20 31 20 28 73 62 69 74 20 72 61 6e 67 65 20 28 63 68 61 72 2d 63 6f 64 65 20 28 63 68 61 | (=.1.(sbit.range.(char-code.(cha |
| 12baa0 | 72 20 73 74 72 69 6e 67 20 69 6e 64 65 78 29 29 29 29 0a 09 09 09 20 20 20 20 20 20 28 69 6e 63 | r.string.index))))..........(inc |
| 12bac0 | 66 20 69 6e 64 65 78 29 0a 09 09 09 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 63 6f 6d | f.index)........(return-from.com |
| 12bae0 | 70 61 72 65 20 6e 69 6c 29 29 29 29 29 29 29 0a 09 20 20 28 28 23 5c 5c 20 29 0a 09 20 20 20 3b | pare.nil)))))))....((#\\.).....; |
| 12bb00 | 3b 0a 09 20 20 20 3b 3b 20 49 6e 74 72 65 70 72 65 74 65 20 74 68 65 20 6e 65 78 74 20 63 68 61 | ;.....;;.Intreprete.the.next.cha |
| 12bb20 | 72 61 63 74 65 72 20 61 73 20 61 20 73 70 65 63 69 61 6c 2c 20 72 61 6e 67 65 2c 20 6f 63 74 61 | racter.as.a.special,.range,.octa |
| 12bb40 | 6c 2c 20 67 72 6f 75 70 20 6f 72 20 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6a 75 73 74 20 | l,.group.or.............;;.just. |
| 12bb60 | 74 68 65 20 63 68 61 72 61 63 74 65 72 20 69 74 73 65 6c 66 2e 0a 09 20 20 20 3b 3b 0a 09 20 20 | the.character.itself......;;.... |
| 12bb80 | 20 28 6c 65 74 20 28 28 6c 65 6e 67 74 68 29 0a 09 09 20 28 76 61 6c 75 65 29 29 0a 09 20 20 20 | .(let.((length)....(value))..... |
| 12bba0 | 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 76 61 6c 75 65 20 6c 65 | ..(multiple-value-setq.(value.le |
| 12bbc0 | 6e 67 74 68 29 0a 09 09 20 28 72 65 67 65 78 2d 71 75 6f 74 65 64 20 28 73 75 62 73 65 71 20 73 | ngth)....(regex-quoted.(subseq.s |
| 12bbe0 | 6f 75 72 63 65 20 28 31 2b 20 65 69 6e 64 65 78 29 29 20 6e 69 6c 29 29 0a 09 20 20 20 20 20 28 | ource.(1+.eindex)).nil)).......( |
| 12bc00 | 63 6f 6e 64 20 28 28 6c 69 73 74 70 20 76 61 6c 75 65 29 0a 09 09 20 20 20 20 28 61 64 64 2d 65 | cond.((listp.value).......(add-e |
| 12bc20 | 78 70 20 76 61 6c 75 65 29 29 0a 09 09 20 20 20 28 28 63 68 61 72 61 63 74 65 72 70 20 76 61 6c | xp.value))......((characterp.val |
| 12bc40 | 75 65 29 0a 09 09 20 20 20 20 28 61 64 64 2d 65 78 70 20 60 28 28 69 66 20 28 6e 6f 74 20 28 61 | ue).......(add-exp.`((if.(not.(a |
| 12bc60 | 6e 64 20 28 3c 20 69 6e 64 65 78 20 6c 65 6e 67 74 68 29 0a 09 09 09 09 09 20 20 20 20 20 28 65 | nd.(<.index.length)...........(e |
| 12bc80 | 71 6c 20 28 63 68 61 72 20 73 74 72 69 6e 67 20 69 6e 64 65 78 29 20 0a 09 09 09 09 09 09 20 20 | ql.(char.string.index).......... |
| 12bca0 | 2c 76 61 6c 75 65 29 29 29 0a 09 09 09 09 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 63 6f | ,value)))........(return-from.co |
| 12bcc0 | 6d 70 61 72 65 20 6e 69 6c 29 0a 09 09 09 09 20 28 69 6e 63 66 20 69 6e 64 65 78 29 29 29 29 29 | mpare.nil)......(incf.index))))) |
| 12bce0 | 0a 09 09 20 20 20 28 28 76 65 63 74 6f 72 70 20 76 61 6c 75 65 29 0a 09 09 20 20 20 20 28 61 64 | ......((vectorp.value).......(ad |
| 12bd00 | 64 2d 65 78 70 20 60 28 28 6c 65 74 20 28 28 72 61 6e 67 65 20 2c 76 61 6c 75 65 29 29 0a 09 09 | d-exp.`((let.((range.,value))... |
| 12bd20 | 09 09 20 28 69 66 20 28 3e 3d 20 69 6e 64 65 78 20 6c 65 6e 67 74 68 29 0a 09 09 09 09 20 20 20 | ...(if.(>=.index.length)........ |
| 12bd40 | 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 63 6f 6d 70 61 72 65 20 6e 69 6c 29 29 0a 09 09 09 | ..(return-from.compare.nil)).... |
| 12bd60 | 09 20 28 69 66 20 28 3d 20 31 20 28 73 62 69 74 20 72 61 6e 67 65 20 28 63 68 61 72 2d 63 6f 64 | ..(if.(=.1.(sbit.range.(char-cod |
| 12bd80 | 65 20 28 63 68 61 72 20 73 74 72 69 6e 67 20 69 6e 64 65 78 29 29 29 29 0a 09 09 09 09 20 20 20 | e.(char.string.index))))........ |
| 12bda0 | 20 20 28 69 6e 63 66 20 69 6e 64 65 78 29 0a 09 09 09 09 20 20 20 28 72 65 74 75 72 6e 2d 66 72 | ..(incf.index)........(return-fr |
| 12bdc0 | 6f 6d 20 63 6f 6d 70 61 72 65 20 6e 69 6c 29 29 29 29 29 29 29 0a 09 20 20 20 20 20 28 69 6e 63 | om.compare.nil))))))).......(inc |
| 12bde0 | 66 20 65 69 6e 64 65 78 20 6c 65 6e 67 74 68 29 29 29 0a 09 20 20 28 74 0a 09 20 20 20 3b 3b 0a | f.eindex.length)))....(t.....;;. |
| 12be00 | 09 20 20 20 3b 3b 20 57 65 20 68 61 76 65 20 61 20 6c 69 74 65 72 61 6c 20 63 68 61 72 61 63 74 | ....;;.We.have.a.literal.charact |
| 12be20 | 65 72 2e 20 20 0a 09 20 20 20 3b 3b 20 53 63 61 6e 20 74 6f 20 73 65 65 20 68 6f 77 20 6d 61 6e | er........;;.Scan.to.see.how.man |
| 12be40 | 79 20 77 65 20 68 61 76 65 20 61 6e 64 20 69 66 20 69 74 20 69 73 20 6d 6f 72 65 20 74 68 61 6e | y.we.have.and.if.it.is.more.than |
| 12be60 | 20 6f 6e 65 0a 09 20 20 20 3b 3b 20 67 65 6e 65 72 61 74 65 20 61 20 73 74 72 69 6e 67 3d 20 76 | .one.....;;.generate.a.string=.v |
| 12be80 | 65 72 73 65 73 20 61 73 20 73 69 6e 67 6c 65 20 65 71 6c 2e 0a 09 20 20 20 3b 3b 0a 09 20 20 20 | erses.as.single.eql......;;..... |
| 12bea0 | 28 6c 65 74 2a 20 28 28 6c 69 74 20 22 22 29 0a 09 09 20 20 28 74 65 72 6d 20 28 64 6f 74 69 6d | (let*.((lit."").....(term.(dotim |
| 12bec0 | 65 73 20 28 6c 69 74 69 6e 64 65 78 20 28 2d 20 28 6c 65 6e 67 74 68 20 73 6f 75 72 63 65 29 20 | es.(litindex.(-.(length.source). |
| 12bee0 | 65 69 6e 64 65 78 29 20 6e 69 6c 29 0a 09 09 09 20 20 28 6c 65 74 20 28 28 6c 69 74 63 68 61 72 | eindex).nil)......(let.((litchar |
| 12bf00 | 20 28 63 68 61 72 20 73 6f 75 72 63 65 20 28 2b 20 65 69 6e 64 65 78 20 6c 69 74 69 6e 64 65 78 | .(char.source.(+.eindex.litindex |
| 12bf20 | 29 29 29 29 0a 09 09 09 20 20 20 20 28 69 66 20 28 70 6f 73 69 74 69 6f 6e 20 6c 69 74 63 68 61 | ))))........(if.(position.litcha |
| 12bf40 | 72 20 2a 72 65 67 65 78 2d 73 70 65 63 69 61 6c 2d 63 68 61 72 73 2a 29 0a 09 09 09 09 28 72 65 | r.*regex-special-chars*).....(re |
| 12bf60 | 74 75 72 6e 20 6c 69 74 63 68 61 72 29 0a 09 09 09 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 09 09 | turn.litchar)..........(progn... |
| 12bf80 | 09 09 28 69 6e 66 6f 20 22 4e 6f 77 20 61 64 64 69 6e 67 20 7e 41 20 69 6e 64 65 78 20 7e 41 20 | ..(info."Now.adding.~A.index.~A. |
| 12bfa0 | 74 6f 20 6c 69 74 7e 25 22 20 6c 69 74 63 68 61 72 20 0a 09 09 09 09 20 20 20 20 20 20 6c 69 74 | to.lit~%".litchar............lit |
| 12bfc0 | 69 6e 64 65 78 29 0a 09 09 09 09 28 73 65 74 66 20 6c 69 74 20 28 63 6f 6e 63 61 74 65 6e 61 74 | index).....(setf.lit.(concatenat |
| 12bfe0 | 65 20 27 73 74 72 69 6e 67 20 6c 69 74 20 0a 09 09 09 09 09 09 20 20 20 20 20 20 20 28 73 74 72 | e.'string.lit...............(str |
| 12c000 | 69 6e 67 20 6c 69 74 63 68 61 72 29 29 29 29 29 29 29 29 29 0a 09 20 20 20 20 20 28 69 66 20 28 | ing.litchar))))))))).......(if.( |
| 12c020 | 3d 20 28 6c 65 6e 67 74 68 20 6c 69 74 29 20 31 29 0a 09 09 20 28 61 64 64 2d 65 78 70 20 60 28 | =.(length.lit).1)....(add-exp.`( |
| 12c040 | 28 69 66 20 28 6e 6f 74 20 28 61 6e 64 20 28 3c 20 69 6e 64 65 78 20 6c 65 6e 67 74 68 29 0a 09 | (if.(not.(and.(<.index.length).. |
| 12c060 | 09 09 09 09 20 20 28 65 71 6c 20 28 63 68 61 72 20 73 74 72 69 6e 67 20 69 6e 64 65 78 29 20 2c | ......(eql.(char.string.index)., |
| 12c080 | 63 75 72 72 65 6e 74 29 29 29 0a 09 09 09 09 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 63 6f 6d 70 | current))).....(return-from.comp |
| 12c0a0 | 61 72 65 20 6e 69 6c 29 0a 09 09 09 20 20 20 20 20 20 28 69 6e 63 66 20 69 6e 64 65 78 29 29 29 | are.nil)..........(incf.index))) |
| 12c0c0 | 29 0a 09 20 20 20 20 20 20 20 3b 3b 0a 09 20 20 20 20 20 20 20 3b 3b 20 49 66 20 77 65 20 68 61 | ).........;;.........;;.If.we.ha |
| 12c0e0 | 76 65 20 61 20 6d 75 6c 74 69 2d 63 68 61 72 61 63 74 65 72 20 6c 69 74 65 72 61 6c 20 74 68 65 | ve.a.multi-character.literal.the |
| 12c100 | 6e 20 77 65 20 6d 75 73 74 0a 09 20 20 20 20 20 20 20 3b 3b 20 63 68 65 63 6b 20 74 6f 20 73 65 | n.we.must.........;;.check.to.se |
| 12c120 | 65 20 69 66 20 74 68 65 20 6e 65 78 74 20 63 68 61 72 61 63 74 65 72 20 28 69 66 20 74 68 65 72 | e.if.the.next.character.(if.ther |
| 12c140 | 65 20 69 73 20 6f 6e 65 29 0a 09 20 20 20 20 20 20 20 3b 3b 20 69 73 20 61 6e 20 61 73 74 72 69 | e.is.one).........;;.is.an.astri |
| 12c160 | 73 6b 20 6f 72 20 61 20 70 6c 75 73 20 6f 72 20 61 20 71 75 65 73 74 69 6f 6e 20 6d 61 72 6b 2e | sk.or.a.plus.or.a.question.mark. |
| 12c180 | 20 20 49 66 20 73 6f 20 74 68 65 6e 20 77 65 20 6d 75 73 74 20 6e 6f 74 20 75 73 65 20 74 68 69 | ..If.so.then.we.must.not.use.thi |
| 12c1a0 | 73 0a 09 20 20 20 20 20 20 20 3b 3b 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 74 68 65 20 62 69 | s.........;;.character.in.the.bi |
| 12c1c0 | 67 20 6c 69 74 65 72 61 6c 2e 0a 09 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 0a 09 09 20 28 69 | g.literal..........(progn.....(i |
| 12c1e0 | 66 20 28 6f 72 20 28 65 71 6c 20 74 65 72 6d 20 23 5c 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 | f.(or.(eql.term.#\*)............ |
| 12c200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 6c 20 74 65 72 6d 20 23 5c 2b 29 0a 20 20 20 | ..............(eql.term.#\+).... |
| 12c220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 6c 20 74 65 72 6d 20 | ......................(eql.term. |
| 12c240 | 23 5c 3f 29 29 0a 09 09 20 20 20 20 20 28 73 65 74 66 20 6c 69 74 20 28 73 75 62 73 65 71 20 6c | #\?))........(setf.lit.(subseq.l |
| 12c260 | 69 74 20 30 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 6c 69 74 29 29 29 29 29 0a 09 09 20 28 61 64 | it.0.(1-.(length.lit)))))....(ad |
| 12c280 | 64 2d 65 78 70 20 60 28 28 69 66 20 28 3c 20 6c 65 6e 67 74 68 20 28 2b 20 69 6e 64 65 78 20 2c | d-exp.`((if.(<.length.(+.index., |
| 12c2a0 | 28 6c 65 6e 67 74 68 20 6c 69 74 29 29 29 0a 09 09 09 09 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 | (length.lit))).....(return-from. |
| 12c2c0 | 63 6f 6d 70 61 72 65 20 6e 69 6c 29 29 0a 09 09 09 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 73 | compare.nil))........(if.(not.(s |
| 12c2e0 | 74 72 69 6e 67 3d 20 73 74 72 69 6e 67 20 2c 6c 69 74 20 3a 73 74 61 72 74 31 20 69 6e 64 65 78 | tring=.string.,lit.:start1.index |
| 12c300 | 0a 09 09 09 09 09 20 20 20 20 20 20 3a 65 6e 64 31 20 28 2b 20 69 6e 64 65 78 20 2c 28 6c 65 6e | ............:end1.(+.index.,(len |
| 12c320 | 67 74 68 20 6c 69 74 29 29 29 29 0a 09 09 09 09 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 63 6f 6d | gth.lit)))).....(return-from.com |
| 12c340 | 70 61 72 65 20 6e 69 6c 29 0a 09 09 09 20 20 20 20 20 20 28 69 6e 63 66 20 69 6e 64 65 78 20 2c | pare.nil)..........(incf.index., |
| 12c360 | 28 6c 65 6e 67 74 68 20 6c 69 74 29 29 29 29 29 29 29 0a 09 20 20 20 20 20 28 69 6e 63 66 20 65 | (length.lit))))))).......(incf.e |
| 12c380 | 69 6e 64 65 78 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 6c 69 74 29 29 29 29 29 29 29 29 0a 20 20 | index.(1-.(length.lit))))))))... |
| 12c3a0 | 20 20 3b 3b 0a 20 20 20 20 3b 3b 20 50 6c 75 67 20 65 6e 64 20 6f 66 20 6c 69 73 74 20 74 6f 20 | ..;;.....;;.Plug.end.of.list.to. |
| 12c3c0 | 72 65 74 75 72 6e 20 74 2e 20 20 49 66 20 77 65 20 6d 61 64 65 20 69 74 20 74 68 69 73 20 66 61 | return.t...If.we.made.it.this.fa |
| 12c3e0 | 72 20 74 68 65 6e 0a 20 20 20 20 3b 3b 20 57 65 20 68 61 76 65 20 6d 61 74 63 68 65 64 21 0a 20 | r.then.....;;.We.have.matched!.. |
| 12c400 | 20 20 20 28 61 64 64 2d 65 78 70 20 27 28 28 73 65 74 66 20 28 63 61 64 72 20 28 61 72 65 66 20 | ...(add-exp.'((setf.(cadr.(aref. |
| 12c420 | 2a 72 65 67 65 78 2d 67 72 6f 75 70 73 2a 20 30 29 29 0a 09 09 20 20 20 20 20 69 6e 64 65 78 29 | *regex-groups*.0))........index) |
| 12c440 | 29 29 0a 20 20 20 20 28 61 64 64 2d 65 78 70 20 27 28 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 66 | )).....(add-exp.'((return-from.f |
| 12c460 | 69 6e 61 6c 2d 72 65 74 75 72 6e 20 74 29 29 29 0a 20 20 20 20 3b 3b 0a 3b 3b 3b 20 20 20 20 28 | inal-return.t))).....;;.;;;....( |
| 12c480 | 70 72 69 6e 74 20 65 78 70 72 65 73 73 69 6f 6e 29 0a 20 20 20 20 3b 3b 0a 20 20 20 20 3b 3b 20 | print.expression).....;;.....;;. |
| 12c4a0 | 4e 6f 77 20 74 61 6b 65 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 6c 69 73 74 20 61 6e 64 | Now.take.the.expression.list.and |
| 12c4c0 | 20 74 75 72 6e 20 69 74 20 69 6e 74 6f 20 61 20 6c 61 6d 62 64 61 20 65 78 70 72 65 73 73 69 6f | .turn.it.into.a.lambda.expressio |
| 12c4e0 | 6e 0a 20 20 20 20 3b 3b 20 72 65 70 6c 61 63 69 6e 67 20 74 68 65 20 73 70 65 63 69 61 6c 20 66 | n.....;;.replacing.the.special.f |
| 12c500 | 6c 61 67 73 20 77 69 74 68 20 6c 69 73 70 20 63 6f 64 65 2e 0a 20 20 20 20 3b 3b 20 46 6f 72 20 | lags.with.lisp.code......;;.For. |
| 12c520 | 65 78 61 6d 70 6c 65 3a 20 20 41 20 42 45 47 49 4e 20 6e 65 65 64 73 20 74 6f 20 62 65 20 72 65 | example:..A.BEGIN.needs.to.be.re |
| 12c540 | 70 6c 61 63 65 20 62 79 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 74 68 61 74 0a 20 20 20 20 | place.by.an.expression.that..... |
| 12c560 | 3b 3b 20 73 61 76 65 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 64 65 78 2c 20 74 68 65 6e | ;;.saves.the.current.index,.then |
| 12c580 | 20 65 76 61 6c 75 61 74 65 73 20 65 76 65 72 79 74 68 69 6e 67 20 74 69 6c 6c 20 69 74 20 67 65 | .evaluates.everything.till.it.ge |
| 12c5a0 | 74 73 20 74 6f 0a 20 20 20 20 3b 3b 20 74 68 65 20 45 4e 44 20 74 68 65 6e 20 73 61 76 65 20 74 | ts.to.....;;.the.END.then.save.t |
| 12c5c0 | 68 65 20 6e 65 77 20 69 6e 64 65 78 20 69 66 20 69 74 20 64 69 64 6e 27 74 20 66 61 69 6c 2e 0a | he.new.index.if.it.didn't.fail.. |
| 12c5e0 | 20 20 20 20 3b 3b 20 4f 6e 20 61 6e 20 41 53 54 52 49 53 4b 20 49 20 6e 65 65 64 20 74 6f 20 74 | ....;;.On.an.ASTRISK.I.need.to.t |
| 12c600 | 61 6b 65 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 65 78 70 72 65 73 73 69 6f 6e 20 61 6e 64 20 | ake.the.previous.expression.and. |
| 12c620 | 77 72 61 70 0a 20 20 20 20 3b 3b 20 69 74 20 69 6e 20 61 20 64 6f 20 74 68 61 74 20 77 69 6c 6c | wrap.....;;.it.in.a.do.that.will |
| 12c640 | 20 65 76 61 6c 75 61 74 65 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 74 69 6c 6c 20 61 6e | .evaluate.the.expression.till.an |
| 12c660 | 20 65 72 72 6f 72 0a 20 20 20 20 3b 3b 20 6f 63 63 75 72 73 20 61 6e 64 20 74 68 65 6e 20 61 6e | .error.....;;.occurs.and.then.an |
| 12c680 | 6f 74 68 65 72 20 64 6f 20 74 68 61 74 20 65 6e 63 6f 6d 70 61 73 65 73 20 74 68 65 20 72 65 6d | other.do.that.encompases.the.rem |
| 12c6a0 | 61 69 6e 64 65 72 20 6f 66 20 74 68 65 0a 20 20 20 20 3b 3b 20 72 65 67 75 6c 61 72 20 65 78 70 | ainder.of.the.....;;.regular.exp |
| 12c6c0 | 72 65 73 73 69 6f 6e 20 61 6e 64 20 69 74 65 72 61 74 65 73 20 64 65 63 72 65 6d 65 6e 74 69 6e | ression.and.iterates.decrementin |
| 12c6e0 | 67 20 74 68 65 20 69 6e 64 65 78 20 62 79 20 6f 6e 65 0a 20 20 20 20 3b 3b 20 6f 66 20 74 68 65 | g.the.index.by.one.....;;.of.the |
| 12c700 | 20 6d 61 74 63 68 65 64 20 65 78 70 72 65 73 73 69 6f 6e 20 73 69 7a 65 73 20 61 6e 64 20 74 68 | .matched.expression.sizes.and.th |
| 12c720 | 65 6e 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 20 20 41 66 74 65 72 0a 20 20 20 20 3b 3b 20 74 68 | en.returns.nil...After.....;;.th |
| 12c740 | 65 20 6c 61 73 74 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 73 65 72 74 20 61 20 66 6f 72 6d 20 | e.last.expression.insert.a.form. |
| 12c760 | 74 68 61 74 20 64 6f 65 73 20 61 20 72 65 74 75 72 6e 20 74 20 73 6f 20 74 68 61 74 0a 20 20 20 | that.does.a.return.t.so.that.... |
| 12c780 | 20 3b 3b 20 69 66 20 74 68 65 20 65 6e 74 69 72 65 20 6e 65 73 74 65 64 20 73 75 62 2d 65 78 70 | .;;.if.the.entire.nested.sub-exp |
| 12c7a0 | 72 65 73 73 69 6f 6e 20 73 75 63 63 65 65 64 73 20 74 68 65 6e 20 74 68 65 20 6c 6f 6f 70 0a 20 | ression.succeeds.then.the.loop.. |
| 12c7c0 | 20 20 20 3b 3b 20 69 73 20 62 72 6f 6b 65 6e 20 6d 61 6e 75 61 6c 6c 79 2e 0a 20 20 20 20 3b 3b | ...;;.is.broken.manually......;; |
| 12c7e0 | 20 0a 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 28 63 6f 70 79 2d 74 72 65 65 20 6e 69 | ......(setf.result.(copy-tree.ni |
| 12c800 | 6c 29 29 0a 20 20 20 20 3b 3b 0a 20 20 20 20 3b 3b 20 52 65 76 65 72 73 69 6e 67 20 74 68 65 20 | l)).....;;.....;;.Reversing.the. |
| 12c820 | 63 75 72 72 65 6e 74 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 6b 65 73 20 62 75 69 6c 64 69 6e | current.expression.makes.buildin |
| 12c840 | 67 20 75 70 20 74 68 65 20 0a 20 20 20 20 3b 3b 20 6c 61 6d 62 64 61 20 6c 69 73 74 20 65 61 73 | g.up.the......;;.lambda.list.eas |
| 12c860 | 69 65 72 20 64 75 65 20 74 6f 20 74 68 65 20 6e 65 78 74 69 6e 67 20 6f 66 20 65 78 70 72 65 73 | ier.due.to.the.nexting.of.expres |
| 12c880 | 73 69 6f 6e 73 20 77 68 65 6e 20 0a 20 20 20 20 3b 3b 20 61 6e 64 20 61 73 74 72 69 73 6b 20 68 | sions.when......;;.and.astrisk.h |
| 12c8a0 | 61 73 20 62 65 65 6e 20 65 6e 63 6f 75 6e 74 65 72 65 64 2e 0a 20 20 20 20 28 73 65 74 66 20 65 | as.been.encountered......(setf.e |
| 12c8c0 | 78 70 72 65 73 73 69 6f 6e 20 28 72 65 76 65 72 73 65 20 65 78 70 72 65 73 73 69 6f 6e 29 29 0a | xpression.(reverse.expression)). |
| 12c8e0 | 20 20 20 20 28 64 6f 20 28 28 65 6c 74 20 30 20 28 31 2b 20 65 6c 74 29 29 29 0a 09 28 28 3e 3d | ....(do.((elt.0.(1+.elt)))..((>= |
| 12c900 | 20 65 6c 74 20 28 6c 65 6e 67 74 68 20 65 78 70 72 65 73 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 | .elt.(length.expression)))...... |
| 12c920 | 20 28 6c 65 74 20 28 28 70 69 65 63 65 20 28 6e 74 68 20 65 6c 74 20 65 78 70 72 65 73 73 69 6f | .(let.((piece.(nth.elt.expressio |
| 12c940 | 6e 29 29 29 0a 09 3b 3b 0a 09 3b 3b 20 4e 6f 77 20 63 68 65 63 6b 20 66 6f 72 20 50 4c 55 53 2c | n)))..;;..;;.Now.check.for.PLUS, |
| 12c960 | 20 69 66 20 73 6f 20 74 68 65 6e 20 64 69 74 74 6f 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e | .if.so.then.ditto.the.expression |
| 12c980 | 20 61 6e 64 20 74 68 65 6e 20 6c 65 74 20 74 68 65 0a 09 3b 3b 20 41 53 54 52 49 53 4b 20 62 65 | .and.then.let.the..;;.ASTRISK.be |
| 12c9a0 | 6c 6f 77 20 68 61 6e 64 6c 65 20 74 68 65 20 72 65 73 74 2e 0a 09 3b 3b 0a 09 28 63 6f 6e 64 20 | low.handle.the.rest...;;..(cond. |
| 12c9c0 | 28 28 65 71 6c 20 70 69 65 63 65 20 27 50 4c 55 53 29 0a 09 20 20 20 20 20 20 20 28 63 6f 6e 64 | ((eql.piece.'PLUS).........(cond |
| 12c9e0 | 20 28 28 6c 69 73 74 70 20 28 6e 74 68 20 28 31 2b 20 65 6c 74 29 20 65 78 70 72 65 73 73 69 6f | .((listp.(nth.(1+.elt).expressio |
| 12ca00 | 6e 29 29 0a 09 09 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 28 61 70 70 65 6e 64 | n)).........(setf.result.(append |
| 12ca20 | 20 28 6c 69 73 74 20 28 6e 74 68 20 28 31 2b 20 65 6c 74 29 20 65 78 70 72 65 73 73 69 6f 6e 29 | .(list.(nth.(1+.elt).expression) |
| 12ca40 | 29 0a 09 09 09 09 09 20 20 20 72 65 73 75 6c 74 29 29 29 0a 09 09 20 20 20 20 20 3b 3b 0a 09 09 | ).........result)))........;;... |
| 12ca60 | 20 20 20 20 20 3b 3b 20 64 75 70 6c 69 63 61 74 65 20 74 68 65 20 65 6e 74 69 72 65 20 67 72 6f | .....;;.duplicate.the.entire.gro |
| 12ca80 | 75 70 0a 09 09 20 20 20 20 20 3b 3b 20 4e 4f 54 45 3a 20 54 68 69 73 20 68 61 73 6e 27 74 20 62 | up........;;.NOTE:.This.hasn't.b |
| 12caa0 | 65 65 6e 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 79 65 74 21 21 0a 09 09 20 20 20 20 20 28 74 0a | een.implemented.yet!!........(t. |
| 12cac0 | 09 09 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 47 52 4f 55 50 20 72 65 70 65 61 74 20 68 61 73 | ........(error."GROUP.repeat.has |
| 12cae0 | 6e 27 74 20 62 65 65 6e 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 79 65 74 7e 25 22 29 29 29 29 29 | n't.been.implemented.yet~%"))))) |
| 12cb00 | 0a 09 28 63 6f 6e 64 20 28 28 6c 69 73 74 70 20 70 69 65 63 65 29 09 09 3b 4a 75 73 74 20 61 70 | ..(cond.((listp.piece)..;Just.ap |
| 12cb20 | 70 65 6e 64 20 74 68 65 20 6c 69 73 74 0a 09 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 | pend.the.list.........(setf.resu |
| 12cb40 | 6c 74 20 28 61 70 70 65 6e 64 20 28 6c 69 73 74 20 70 69 65 63 65 29 20 72 65 73 75 6c 74 29 29 | lt.(append.(list.piece).result)) |
| 12cb60 | 29 0a 09 20 20 20 20 20 20 28 28 65 71 6c 20 70 69 65 63 65 20 27 51 55 45 53 54 49 4f 4e 29 09 | )........((eql.piece.'QUESTION). |
| 12cb80 | 3b 20 57 72 61 70 20 69 74 20 69 6e 20 61 20 62 6c 6f 63 6b 20 74 68 61 74 20 77 6f 6e 27 74 20 | ;.Wrap.it.in.a.block.that.won't. |
| 12cba0 | 66 61 69 6c 0a 09 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6c 69 73 74 70 20 28 6e 74 68 20 | fail.........(cond.((listp.(nth. |
| 12cbc0 | 28 31 2b 20 65 6c 74 29 20 65 78 70 72 65 73 73 69 6f 6e 29 29 0a 09 09 20 20 20 20 20 20 28 73 | (1+.elt).expression)).........(s |
| 12cbe0 | 65 74 66 20 72 65 73 75 6c 74 20 0a 09 09 09 20 20 20 20 28 61 70 70 65 6e 64 20 60 28 28 70 72 | etf.result.........(append.`((pr |
| 12cc00 | 6f 67 6e 20 28 62 6c 6f 63 6b 20 63 6f 6d 70 61 72 65 0a 09 09 09 09 09 09 20 20 20 20 2c 28 6e | ogn.(block.compare...........,(n |
| 12cc20 | 74 68 20 28 31 2b 20 65 6c 74 29 20 0a 09 09 09 09 09 09 09 20 20 65 78 70 72 65 73 73 69 6f 6e | th.(1+.elt)...........expression |
| 12cc40 | 29 29 0a 09 09 09 09 09 20 20 20 20 20 74 29 29 0a 09 09 09 09 20 20 20 20 72 65 73 75 6c 74 29 | ))...........t)).........result) |
| 12cc60 | 29 0a 09 09 20 20 20 20 20 20 28 69 6e 63 66 20 65 6c 74 29 29 0a 09 09 20 20 20 20 20 3b 3b 0a | ).........(incf.elt))........;;. |
| 12cc80 | 09 09 20 20 20 20 20 3b 3b 20 54 68 69 73 20 69 73 20 61 20 51 55 45 53 54 49 4f 4e 20 6f 6e 20 | .......;;.This.is.a.QUESTION.on. |
| 12cca0 | 61 6e 20 65 6e 74 69 72 65 20 67 72 6f 75 70 20 77 68 69 63 68 0a 09 09 20 20 20 20 20 3b 3b 20 | an.entire.group.which........;;. |
| 12ccc0 | 68 61 73 6e 27 74 20 62 65 65 6e 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 79 65 74 21 21 21 0a 09 | hasn't.been.implemented.yet!!!.. |
| 12cce0 | 09 20 20 20 20 20 3b 3b 0a 09 09 20 20 20 20 20 28 74 0a 09 09 20 20 20 20 20 20 28 65 72 72 6f | ......;;........(t.........(erro |
| 12cd00 | 72 20 22 4f 70 74 69 6f 6e 61 6c 20 67 72 6f 75 70 73 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 | r."Optional.groups.not.implement |
| 12cd20 | 65 64 20 79 65 74 7e 25 22 29 29 29 29 0a 09 20 20 20 20 20 20 28 28 6f 72 20 28 65 71 6c 20 70 | ed.yet~%"))))........((or.(eql.p |
| 12cd40 | 69 65 63 65 20 27 41 53 54 52 49 53 4b 29 20 3b 20 44 6f 20 74 68 65 20 77 69 6c 64 20 74 68 69 | iece.'ASTRISK).;.Do.the.wild.thi |
| 12cd60 | 6e 67 21 0a 09 09 20 20 20 28 65 71 6c 20 70 69 65 63 65 20 27 50 4c 55 53 29 29 0a 09 20 20 20 | ng!......(eql.piece.'PLUS))..... |
| 12cd80 | 20 20 20 20 28 63 6f 6e 64 20 28 28 6c 69 73 74 70 20 28 6e 74 68 20 28 31 2b 20 65 6c 74 29 20 | ....(cond.((listp.(nth.(1+.elt). |
| 12cda0 | 65 78 70 72 65 73 73 69 6f 6e 29 29 0a 09 09 20 20 20 20 20 20 3b 3b 0a 09 09 20 20 20 20 20 20 | expression)).........;;......... |
| 12cdc0 | 3b 3b 20 54 68 69 73 20 69 73 20 61 20 73 69 6e 67 6c 65 20 63 68 61 72 61 63 74 65 72 20 77 69 | ;;.This.is.a.single.character.wi |
| 12cde0 | 6c 64 20 63 61 72 64 20 73 6f 0a 09 09 20 20 20 20 20 20 3b 3b 20 64 6f 20 74 68 65 20 73 69 6d | ld.card.so.........;;.do.the.sim |
| 12ce00 | 70 6c 65 20 66 6f 72 6d 2e 0a 09 09 20 20 20 20 20 20 3b 3b 0a 09 09 20 20 20 20 20 20 28 73 65 | ple.form..........;;.........(se |
| 12ce20 | 74 66 20 72 65 73 75 6c 74 20 0a 09 09 09 20 20 20 20 60 28 28 6c 65 74 20 28 28 6f 69 6e 64 65 | tf.result.........`((let.((oinde |
| 12ce40 | 78 20 69 6e 64 65 78 29 29 0a 09 09 09 09 28 62 6c 6f 63 6b 20 63 6f 6d 70 61 72 65 0a 09 09 09 | x.index)).....(block.compare.... |
| 12ce60 | 09 20 20 20 20 20 20 20 28 64 6f 20 28 29 0a 09 09 09 09 09 20 20 20 28 6e 69 6c 29 0a 09 09 09 | ........(do.().........(nil).... |
| 12ce80 | 09 09 20 2c 28 6e 74 68 20 28 31 2b 20 65 6c 74 29 20 65 78 70 72 65 73 73 69 6f 6e 29 29 29 0a | ...,(nth.(1+.elt).expression))). |
| 12cea0 | 09 09 09 09 28 64 6f 20 28 28 73 74 61 72 74 20 69 6e 64 65 78 20 28 31 2d 20 73 74 61 72 74 29 | ....(do.((start.index.(1-.start) |
| 12cec0 | 29 29 0a 09 09 09 09 20 20 20 20 28 28 3c 20 73 74 61 72 74 20 6f 69 6e 64 65 78 29 20 6e 69 6c | )).........((<.start.oindex).nil |
| 12cee0 | 29 0a 09 09 09 09 20 20 28 6c 65 74 20 28 28 69 6e 64 65 78 20 73 74 61 72 74 29 29 0a 09 09 09 | ).......(let.((index.start)).... |
| 12cf00 | 09 20 20 20 20 28 62 6c 6f 63 6b 20 63 6f 6d 70 61 72 65 0a 09 09 09 09 09 20 20 20 2c 40 72 65 | .....(block.compare.........,@re |
| 12cf20 | 73 75 6c 74 29 29 29 29 29 29 0a 09 09 20 20 20 20 20 20 28 69 6e 63 66 20 65 6c 74 29 29 0a 09 | sult)))))).........(incf.elt)).. |
| 12cf40 | 09 20 20 20 20 20 28 74 0a 09 09 20 20 20 20 20 20 3b 3b 0a 09 09 20 20 20 20 20 20 3b 3b 20 54 | ......(t.........;;.........;;.T |
| 12cf60 | 68 69 73 20 69 73 20 61 20 73 75 62 67 72 6f 75 70 20 72 65 70 65 61 74 65 64 20 73 6f 20 49 20 | his.is.a.subgroup.repeated.so.I. |
| 12cf80 | 6d 75 73 74 20 62 75 69 6c 64 0a 09 09 20 20 20 20 20 20 3b 3b 20 74 68 65 20 6c 6f 6f 70 20 75 | must.build.........;;.the.loop.u |
| 12cfa0 | 73 69 6e 67 20 73 65 76 65 72 61 6c 20 76 61 6c 75 65 73 2e 0a 09 09 20 20 20 20 20 20 3b 3b 0a | sing.several.values..........;;. |
| 12cfc0 | 09 09 20 20 20 20 20 20 29 29 0a 09 20 20 20 20 20 20 20 29 0a 09 20 20 20 20 20 20 28 74 20 74 | ........)).........)........(t.t |
| 12cfe0 | 29 29 29 29 09 09 09 3b 20 4a 75 73 74 20 69 67 6e 6f 72 65 20 65 76 65 72 79 74 68 69 6e 67 20 | ))))...;.Just.ignore.everything. |
| 12d000 | 65 6c 73 65 2e 0a 20 20 20 20 3b 3b 0a 20 20 20 20 3b 3b 20 4e 6f 77 20 77 72 61 70 20 74 68 65 | else......;;.....;;.Now.wrap.the |
| 12d020 | 20 72 65 73 75 6c 74 20 69 6e 20 61 20 6c 61 6d 62 64 61 20 6c 69 73 74 20 74 68 61 74 20 63 61 | .result.in.a.lambda.list.that.ca |
| 12d040 | 6e 20 74 68 65 6e 20 62 65 20 0a 20 20 20 20 3b 3b 20 69 6e 76 6f 6b 65 64 20 6f 72 20 63 6f 6d | n.then.be......;;.invoked.or.com |
| 12d060 | 70 69 6c 65 64 2c 20 68 6f 77 65 76 65 72 20 74 68 65 20 75 73 65 72 20 77 69 73 68 65 73 2e 0a | piled,.however.the.user.wishes.. |
| 12d080 | 20 20 20 20 3b 3b 0a 20 20 20 20 28 69 66 20 61 6e 63 68 6f 72 65 64 0a 09 28 73 65 74 66 20 72 | ....;;.....(if.anchored..(setf.r |
| 12d0a0 | 65 73 75 6c 74 0a 09 20 20 20 20 20 20 60 28 6c 61 6d 62 64 61 20 28 73 74 72 69 6e 67 20 26 6b | esult........`(lambda.(string.&k |
| 12d0c0 | 65 79 20 28 73 74 61 72 74 20 30 29 20 28 65 6e 64 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 | ey.(start.0).(end.(length.string |
| 12d0e0 | 29 29 29 0a 09 09 20 28 73 65 74 66 20 2a 72 65 67 65 78 2d 67 72 6f 75 70 69 6e 67 73 2a 20 2c | )))....(setf.*regex-groupings*., |
| 12d100 | 67 72 6f 75 70 29 0a 09 09 20 28 62 6c 6f 63 6b 20 66 69 6e 61 6c 2d 72 65 74 75 72 6e 0a 09 09 | group)....(block.final-return... |
| 12d120 | 09 28 62 6c 6f 63 6b 20 63 6f 6d 70 61 72 65 0a 09 09 09 20 20 20 20 20 20 20 28 6c 65 74 20 28 | .(block.compare...........(let.( |
| 12d140 | 28 69 6e 64 65 78 20 73 74 61 72 74 29 0a 09 09 09 09 20 20 20 20 20 28 6c 65 6e 67 74 68 20 65 | (index.start)..........(length.e |
| 12d160 | 6e 64 29 29 0a 09 09 09 09 20 2c 40 72 65 73 75 6c 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 | nd))......,@result))))).......(s |
| 12d180 | 65 74 66 20 72 65 73 75 6c 74 0a 09 20 20 20 20 60 28 6c 61 6d 62 64 61 20 28 73 74 72 69 6e 67 | etf.result......`(lambda.(string |
| 12d1a0 | 20 26 6b 65 79 20 28 73 74 61 72 74 20 30 29 20 28 65 6e 64 20 28 6c 65 6e 67 74 68 20 73 74 72 | .&key.(start.0).(end.(length.str |
| 12d1c0 | 69 6e 67 29 29 29 0a 09 20 20 20 20 20 20 20 28 73 65 74 66 20 2a 72 65 67 65 78 2d 67 72 6f 75 | ing))).........(setf.*regex-grou |
| 12d1e0 | 70 69 6e 67 73 2a 20 2c 67 72 6f 75 70 29 0a 09 20 20 20 20 20 20 20 28 62 6c 6f 63 6b 20 66 69 | pings*.,group).........(block.fi |
| 12d200 | 6e 61 6c 2d 72 65 74 75 72 6e 0a 09 09 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 65 6e 67 74 68 | nal-return.........(let.((length |
| 12d220 | 20 65 6e 64 29 29 0a 09 09 09 2c 40 66 61 73 74 2d 66 69 72 73 74 0a 09 09 09 28 64 6f 20 28 28 | .end))....,@fast-first....(do.(( |
| 12d240 | 6d 61 72 6b 65 72 20 73 74 61 72 74 20 28 31 2b 20 6d 61 72 6b 65 72 29 29 29 0a 09 09 09 20 20 | marker.start.(1+.marker)))...... |
| 12d260 | 20 20 28 28 3e 20 6d 61 72 6b 65 72 20 65 6e 64 29 20 6e 69 6c 29 0a 09 09 09 20 20 28 6c 65 74 | ..((>.marker.end).nil)......(let |
| 12d280 | 20 28 28 69 6e 64 65 78 20 6d 61 72 6b 65 72 29 29 0a 09 09 09 20 20 20 20 28 69 66 20 28 62 6c | .((index.marker))........(if.(bl |
| 12d2a0 | 6f 63 6b 20 63 6f 6d 70 61 72 65 0a 09 09 09 09 20 20 20 20 20 20 20 2c 40 72 65 73 75 6c 74 29 | ock.compare............,@result) |
| 12d2c0 | 0a 09 09 09 09 28 72 65 74 75 72 6e 20 74 29 29 29 29 29 29 29 29 29 29 29 0a 0a 3b 3b 20 28 70 | .....(return.t)))))))))))..;;.(p |
| 12d2e0 | 72 6f 76 69 64 65 20 27 6e 72 65 67 65 78 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | rovide.'nregex)................. |
| 12d300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 6c 69 6d 65 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/slime.el............. |
| 12d420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 12d480 | 31 31 30 31 33 36 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 36 35 31 00 20 30 00 00 00 | 1101365.00000000000.012651..0... |
| 12d4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 12d520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 12d540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 12d600 | 3b 3b 3b 20 73 6c 69 6d 65 2e 65 6c 20 2d 2d 2d 20 53 75 70 65 72 69 6f 72 20 4c 69 73 70 20 49 | ;;;.slime.el.---.Superior.Lisp.I |
| 12d620 | 6e 74 65 72 61 63 74 69 6f 6e 20 4d 6f 64 65 20 66 6f 72 20 45 6d 61 63 73 20 2d 2a 2d 6c 65 78 | nteraction.Mode.for.Emacs.-*-lex |
| 12d640 | 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 74 2d 2a 2d 0a 0a 3b 3b 20 55 52 4c 3a 20 68 74 74 70 73 | ical-binding:t-*-..;;.URL:.https |
| 12d660 | 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 73 6c 69 6d 65 2f 73 6c 69 6d 65 0a 3b 3b 20 50 61 63 | ://github.com/slime/slime.;;.Pac |
| 12d680 | 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 65 6d 61 63 73 20 22 32 34 2e 33 22 29 20 28 | kage-Requires:.((emacs."24.3").( |
| 12d6a0 | 6d 61 63 72 6f 73 74 65 70 20 22 30 2e 39 22 29 29 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 6c | macrostep."0.9")).;;.Keywords:.l |
| 12d6c0 | 61 6e 67 75 61 67 65 73 2c 20 6c 69 73 70 2c 20 73 6c 69 6d 65 0a 3b 3b 20 56 65 72 73 69 6f 6e | anguages,.lisp,.slime.;;.Version |
| 12d6e0 | 3a 20 32 2e 33 31 0a 0a 3b 3b 3b 3b 20 4c 69 63 65 6e 73 65 20 61 6e 64 20 43 6f 6d 6d 65 6e 74 | :.2.31..;;;;.License.and.Comment |
| 12d700 | 61 72 79 0a 0a 3b 3b 20 20 20 20 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 33 20 20 | ary..;;.....Copyright.(C).2003.. |
| 12d720 | 45 72 69 63 20 4d 61 72 73 64 65 6e 2c 20 4c 75 6b 65 20 47 6f 72 72 69 65 2c 20 48 65 6c 6d 75 | Eric.Marsden,.Luke.Gorrie,.Helmu |
| 12d740 | 74 20 45 6c 6c 65 72 0a 3b 3b 20 20 20 20 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 | t.Eller.;;.....Copyright.(C).200 |
| 12d760 | 34 2c 32 30 30 35 2c 32 30 30 36 20 20 4c 75 6b 65 20 47 6f 72 72 69 65 2c 20 48 65 6c 6d 75 74 | 4,2005,2006..Luke.Gorrie,.Helmut |
| 12d780 | 20 45 6c 6c 65 72 0a 3b 3b 20 20 20 20 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 37 | .Eller.;;.....Copyright.(C).2007 |
| 12d7a0 | 2c 32 30 30 38 2c 32 30 30 39 20 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 2c 20 54 6f 62 69 61 73 | ,2008,2009..Helmut.Eller,.Tobias |
| 12d7c0 | 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 0a 3b 3b 0a 3b 3b 20 20 20 20 20 46 6f 72 20 61 20 64 | .C..Rittweiler.;;.;;.....For.a.d |
| 12d7e0 | 65 74 61 69 6c 65 64 20 6c 69 73 74 20 6f 66 20 63 6f 6e 74 72 69 62 75 74 6f 72 73 2c 20 73 65 | etailed.list.of.contributors,.se |
| 12d800 | 65 20 74 68 65 20 6d 61 6e 75 61 6c 2e 0a 3b 3b 0a 3b 3b 20 20 20 20 20 54 68 69 73 20 70 72 6f | e.the.manual..;;.;;.....This.pro |
| 12d820 | 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 | gram.is.free.software;.you.can.r |
| 12d840 | 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 3b 3b 20 20 20 20 20 6d 6f 64 | edistribute.it.and/or.;;.....mod |
| 12d860 | 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e | ify.it.under.the.terms.of.the.GN |
| 12d880 | 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 0a 3b 3b 20 20 | U.General.Public.License.as.;;.. |
| 12d8a0 | 20 20 20 70 75 62 6c 69 73 68 65 64 20 62 79 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 | ...published.by.the.Free.Softwar |
| 12d8c0 | 65 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 32 20 6f | e.Foundation;.either.version.2.o |
| 12d8e0 | 66 0a 3b 3b 20 20 20 20 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 20 28 61 74 20 79 6f 75 | f.;;.....the.License,.or.(at.you |
| 12d900 | 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 3b 3b 0a | r.option).any.later.version..;;. |
| 12d920 | 3b 3b 20 20 20 20 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 | ;;.....This.program.is.distribut |
| 12d940 | 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 | ed.in.the.hope.that.it.will.be.u |
| 12d960 | 73 65 66 75 6c 2c 0a 3b 3b 20 20 20 20 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 | seful,.;;.....but.WITHOUT.ANY.WA |
| 12d980 | 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 | RRANTY;.without.even.the.implied |
| 12d9a0 | 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 20 20 20 20 4d 45 52 43 48 41 4e 54 41 42 49 4c | .warranty.of.;;.....MERCHANTABIL |
| 12d9c0 | 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 | ITY.or.FITNESS.FOR.A.PARTICULAR. |
| 12d9e0 | 50 55 52 50 4f 53 45 2e 20 53 65 65 20 74 68 65 0a 3b 3b 20 20 20 20 20 47 4e 55 20 47 65 6e 65 | PURPOSE..See.the.;;.....GNU.Gene |
| 12da00 | 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 | ral.Public.License.for.more.deta |
| 12da20 | 69 6c 73 2e 0a 3b 3b 0a 3b 3b 20 20 20 20 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 | ils..;;.;;.....You.should.have.r |
| 12da40 | 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 | eceived.a.copy.of.the.GNU.Genera |
| 12da60 | 6c 20 50 75 62 6c 69 63 0a 3b 3b 20 20 20 20 20 4c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 | l.Public.;;.....License.along.wi |
| 12da80 | 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69 74 65 20 74 | th.this.program;.if.not,.write.t |
| 12daa0 | 6f 20 74 68 65 20 46 72 65 65 0a 3b 3b 20 20 20 20 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 | o.the.Free.;;.....Software.Found |
| 12dac0 | 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 | ation,.Inc.,.59.Temple.Place.-.S |
| 12dae0 | 75 69 74 65 20 33 33 30 2c 20 42 6f 73 74 6f 6e 2c 0a 3b 3b 20 20 20 20 20 4d 41 20 30 32 31 31 | uite.330,.Boston,.;;.....MA.0211 |
| 12db00 | 31 2d 31 33 30 37 2c 20 55 53 41 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b | 1-1307,.USA...;;;.Commentary:..; |
| 12db20 | 3b 20 53 4c 49 4d 45 20 69 73 20 74 68 65 20 60 60 53 75 70 65 72 69 6f 72 20 4c 69 73 70 20 49 | ;.SLIME.is.the.``Superior.Lisp.I |
| 12db40 | 6e 74 65 72 61 63 74 69 6f 6e 20 4d 6f 64 65 20 66 6f 72 20 45 6d 61 63 73 2e 27 27 0a 3b 3b 0a | nteraction.Mode.for.Emacs.''.;;. |
| 12db60 | 3b 3b 20 53 4c 49 4d 45 20 65 78 74 65 6e 64 73 20 45 6d 61 63 73 20 77 69 74 68 20 73 75 70 70 | ;;.SLIME.extends.Emacs.with.supp |
| 12db80 | 6f 72 74 20 66 6f 72 20 69 6e 74 65 72 61 63 74 69 76 65 20 70 72 6f 67 72 61 6d 6d 69 6e 67 20 | ort.for.interactive.programming. |
| 12dba0 | 69 6e 0a 3b 3b 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2e 20 54 68 65 20 66 65 61 74 75 72 65 73 20 | in.;;.Common.Lisp..The.features. |
| 12dbc0 | 61 72 65 20 63 65 6e 74 65 72 65 64 20 61 72 6f 75 6e 64 20 73 6c 69 6d 65 2d 6d 6f 64 65 2c 20 | are.centered.around.slime-mode,. |
| 12dbe0 | 61 6e 20 45 6d 61 63 73 0a 3b 3b 20 6d 69 6e 6f 72 2d 6d 6f 64 65 20 74 68 61 74 20 63 6f 6d 70 | an.Emacs.;;.minor-mode.that.comp |
| 12dc00 | 6c 65 6d 65 6e 74 73 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 6c 69 73 70 2d 6d 6f 64 65 2e 20 | lements.the.standard.lisp-mode.. |
| 12dc20 | 57 68 69 6c 65 20 6c 69 73 70 2d 6d 6f 64 65 0a 3b 3b 20 73 75 70 70 6f 72 74 73 20 65 64 69 74 | While.lisp-mode.;;.supports.edit |
| 12dc40 | 69 6e 67 20 4c 69 73 70 20 73 6f 75 72 63 65 20 66 69 6c 65 73 2c 20 73 6c 69 6d 65 2d 6d 6f 64 | ing.Lisp.source.files,.slime-mod |
| 12dc60 | 65 20 61 64 64 73 20 73 75 70 70 6f 72 74 20 66 6f 72 0a 3b 3b 20 69 6e 74 65 72 61 63 74 69 6e | e.adds.support.for.;;.interactin |
| 12dc80 | 67 20 77 69 74 68 20 61 20 72 75 6e 6e 69 6e 67 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 70 72 6f | g.with.a.running.Common.Lisp.pro |
| 12dca0 | 63 65 73 73 20 66 6f 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2c 0a 3b 3b 20 64 65 62 75 67 67 69 | cess.for.compilation,.;;.debuggi |
| 12dcc0 | 6e 67 2c 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 6f 6b 75 70 2c 20 61 6e 64 20 73 6f | ng,.documentation.lookup,.and.so |
| 12dce0 | 20 6f 6e 2e 0a 3b 3b 0a 3b 3b 20 54 68 65 20 73 6c 69 6d 65 2d 6d 6f 64 65 20 70 72 6f 67 72 61 | .on..;;.;;.The.slime-mode.progra |
| 12dd00 | 6d 6d 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 65 78 | mming.environment.follows.the.ex |
| 12dd20 | 61 6d 70 6c 65 20 6f 66 0a 3b 3b 20 45 6d 61 63 73 27 73 20 6e 61 74 69 76 65 20 45 6d 61 63 73 | ample.of.;;.Emacs's.native.Emacs |
| 12dd40 | 20 4c 69 73 70 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 2e 20 57 65 20 68 61 76 65 20 61 6c 73 6f 20 | .Lisp.environment..We.have.also. |
| 12dd60 | 69 6e 63 6c 75 64 65 64 20 67 6f 6f 64 0a 3b 3b 20 69 64 65 61 73 20 66 72 6f 6d 20 73 69 6d 69 | included.good.;;.ideas.from.simi |
| 12dd80 | 6c 61 72 20 73 79 73 74 65 6d 73 20 28 73 75 63 68 20 61 73 20 49 4c 49 53 50 29 20 61 6e 64 20 | lar.systems.(such.as.ILISP).and. |
| 12dda0 | 73 6f 6d 65 20 6e 65 77 20 69 64 65 61 73 20 6f 66 0a 3b 3b 20 6f 75 72 20 6f 77 6e 2e 0a 3b 3b | some.new.ideas.of.;;.our.own..;; |
| 12ddc0 | 0a 3b 3b 20 53 4c 49 4d 45 20 69 73 20 63 6f 6e 73 74 72 75 63 74 65 64 20 66 72 6f 6d 20 74 77 | .;;.SLIME.is.constructed.from.tw |
| 12dde0 | 6f 20 70 61 72 74 73 3a 20 61 20 75 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 77 72 69 74 74 65 | o.parts:.a.user-interface.writte |
| 12de00 | 6e 20 69 6e 0a 3b 3b 20 45 6d 61 63 73 20 4c 69 73 70 2c 20 61 6e 64 20 61 20 73 75 70 70 6f 72 | n.in.;;.Emacs.Lisp,.and.a.suppor |
| 12de20 | 74 69 6e 67 20 73 65 72 76 65 72 20 70 72 6f 67 72 61 6d 20 77 72 69 74 74 65 6e 20 69 6e 20 43 | ting.server.program.written.in.C |
| 12de40 | 6f 6d 6d 6f 6e 0a 3b 3b 20 4c 69 73 70 2e 20 54 68 65 20 74 77 6f 20 73 69 64 65 73 20 61 72 65 | ommon.;;.Lisp..The.two.sides.are |
| 12de60 | 20 63 6f 6e 6e 65 63 74 65 64 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 61 20 73 6f 63 6b 65 | .connected.together.with.a.socke |
| 12de80 | 74 20 61 6e 64 0a 3b 3b 20 63 6f 6d 6d 75 6e 69 63 61 74 65 20 75 73 69 6e 67 20 61 6e 20 52 50 | t.and.;;.communicate.using.an.RP |
| 12dea0 | 43 2d 6c 69 6b 65 20 70 72 6f 74 6f 63 6f 6c 2e 0a 3b 3b 0a 3b 3b 20 54 68 65 20 4c 69 73 70 20 | C-like.protocol..;;.;;.The.Lisp. |
| 12dec0 | 73 65 72 76 65 72 20 69 73 20 70 72 69 6d 61 72 69 6c 79 20 77 72 69 74 74 65 6e 20 69 6e 20 70 | server.is.primarily.written.in.p |
| 12dee0 | 6f 72 74 61 62 6c 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2e 20 54 68 65 0a 3b 3b 20 72 65 71 75 | ortable.Common.Lisp..The.;;.requ |
| 12df00 | 69 72 65 64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 69 66 69 63 20 66 75 6e | ired.implementation-specific.fun |
| 12df20 | 63 74 69 6f 6e 61 6c 69 74 79 20 69 73 20 73 70 65 63 69 66 69 65 64 20 62 79 20 61 0a 3b 3b 20 | ctionality.is.specified.by.a.;;. |
| 12df40 | 77 65 6c 6c 2d 64 65 66 69 6e 65 64 20 69 6e 74 65 72 66 61 63 65 20 61 6e 64 20 69 6d 70 6c 65 | well-defined.interface.and.imple |
| 12df60 | 6d 65 6e 74 65 64 20 73 65 70 61 72 61 74 65 6c 79 20 66 6f 72 20 65 61 63 68 20 4c 69 73 70 0a | mented.separately.for.each.Lisp. |
| 12df80 | 3b 3b 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 20 54 68 69 73 20 6d 61 6b 65 73 20 53 4c | ;;.implementation..This.makes.SL |
| 12dfa0 | 49 4d 45 20 72 65 61 64 69 6c 79 20 70 6f 72 74 61 62 6c 65 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a | IME.readily.portable...;;;.Code: |
| 12dfc0 | 0a 0a 0c 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 65 76 61 6c 2d 61 6e 64 | ....(require.'cl-lib)..(eval-and |
| 12dfe0 | 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 69 66 20 28 3c 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 | -compile...(if.(<.emacs-major-ve |
| 12e000 | 72 73 69 6f 6e 20 32 33 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 53 6c 69 6d 65 20 72 65 | rsion.23).......(error."Slime.re |
| 12e020 | 71 75 69 72 65 73 20 61 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 20 6f 66 20 32 33 2c 20 6f | quires.an.Emacs.version.of.23,.o |
| 12e040 | 72 20 61 62 6f 76 65 22 29 29 29 0a 0a 28 72 65 71 75 69 72 65 20 27 68 79 70 65 72 73 70 65 63 | r.above")))..(require.'hyperspec |
| 12e060 | 20 22 6c 69 62 2f 68 79 70 65 72 73 70 65 63 22 29 0a 28 72 65 71 75 69 72 65 20 27 74 68 69 6e | ."lib/hyperspec").(require.'thin |
| 12e080 | 67 61 74 70 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 6f 6d 69 6e 74 29 0a 28 72 65 71 75 69 72 | gatpt).(require.'comint).(requir |
| 12e0a0 | 65 20 27 70 70 29 0a 28 72 65 71 75 69 72 65 20 27 65 61 73 79 6d 65 6e 75 29 0a 28 72 65 71 75 | e.'pp).(require.'easymenu).(requ |
| 12e0c0 | 69 72 65 20 27 6f 75 74 6c 69 6e 65 29 0a 28 72 65 71 75 69 72 65 20 27 61 72 63 2d 6d 6f 64 65 | ire.'outline).(require.'arc-mode |
| 12e0e0 | 29 0a 28 72 65 71 75 69 72 65 20 27 65 74 61 67 73 29 0a 28 72 65 71 75 69 72 65 20 27 78 72 65 | ).(require.'etags).(require.'xre |
| 12e100 | 66 20 6e 69 6c 20 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 6f 6d 70 69 6c 65 29 0a 28 72 65 71 | f.nil.t).(require.'compile).(req |
| 12e120 | 75 69 72 65 20 27 67 76 29 0a 0a 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c 65 0a 20 28 72 | uire.'gv)..(eval-and-compile..(r |
| 12e140 | 65 71 75 69 72 65 20 27 61 70 72 6f 70 6f 73 29 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f | equire.'apropos))..(eval-when-co |
| 12e160 | 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 67 75 64 29 0a 20 20 28 72 65 71 75 69 72 | mpile...(require.'gud)...(requir |
| 12e180 | 65 20 27 6c 69 73 70 2d 6d 6e 74 29 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e | e.'lisp-mnt))..(declare-function |
| 12e1a0 | 20 6c 6d 2d 76 65 72 73 69 6f 6e 20 22 6c 69 73 70 2d 6d 6e 74 22 29 0a 0a 28 64 65 66 76 61 72 | .lm-version."lisp-mnt")..(defvar |
| 12e1c0 | 20 73 6c 69 6d 65 2d 70 61 74 68 20 6e 69 6c 0a 20 20 22 44 69 72 65 63 74 6f 72 79 20 63 6f 6e | .slime-path.nil..."Directory.con |
| 12e1e0 | 74 61 69 6e 69 6e 67 20 74 68 65 20 53 6c 69 6d 65 20 70 61 63 6b 61 67 65 2e 0a 54 68 69 73 20 | taining.the.Slime.package..This. |
| 12e200 | 69 73 20 75 73 65 64 20 74 6f 20 6c 6f 61 64 20 74 68 65 20 73 75 70 70 6f 72 74 69 6e 67 20 43 | is.used.to.load.the.supporting.C |
| 12e220 | 6f 6d 6d 6f 6e 20 4c 69 73 70 20 6c 69 62 72 61 72 79 2c 20 53 77 61 6e 6b 2e 0a 54 68 65 20 64 | ommon.Lisp.library,.Swank..The.d |
| 12e240 | 65 66 61 75 6c 74 20 76 61 6c 75 65 20 69 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 6f | efault.value.is.automatically.co |
| 12e260 | 6d 70 75 74 65 64 20 66 72 6f 6d 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 0a 74 68 65 20 | mputed.from.the.location.of.the. |
| 12e280 | 45 6d 61 63 73 20 4c 69 73 70 20 70 61 63 6b 61 67 65 2e 22 29 0a 28 73 65 74 71 20 73 6c 69 6d | Emacs.Lisp.package.").(setq.slim |
| 12e2a0 | 65 2d 70 61 74 68 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 6c 6f 61 64 | e-path.(file-name-directory.load |
| 12e2c0 | 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 76 65 72 73 | -file-name))..(defvar.slime-vers |
| 12e2e0 | 69 6f 6e 20 6e 69 6c 0a 20 20 22 54 68 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 53 4c 49 4d 45 20 | ion.nil..."The.version.of.SLIME. |
| 12e300 | 74 68 61 74 20 79 6f 75 27 72 65 20 75 73 69 6e 67 2e 22 29 0a 28 73 65 74 71 20 73 6c 69 6d 65 | that.you're.using.").(setq.slime |
| 12e320 | 2d 76 65 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c | -version.......(eval-when-compil |
| 12e340 | 65 0a 20 20 20 20 20 20 20 28 6c 6d 2d 76 65 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 63 6c | e........(lm-version.........(cl |
| 12e360 | 2d 66 69 6e 64 20 22 73 6c 69 6d 65 2e 65 6c 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -find."slime.el"................ |
| 12e380 | 20 20 28 72 65 6d 6f 76 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(remove.nil................... |
| 12e3a0 | 20 20 20 20 20 20 20 28 6c 69 73 74 20 6c 6f 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 | .......(list.load-file-name..... |
| 12e3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | ...........................(when |
| 12e3e0 | 20 28 62 6f 75 6e 64 70 20 27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 63 75 72 72 65 6e 74 2d 66 | .(boundp.'byte-compile-current-f |
| 12e400 | 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile)............................ |
| 12e420 | 20 20 20 20 20 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 63 75 72 72 65 6e 74 2d 66 69 6c 65 29 | ......byte-compile-current-file) |
| 12e440 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 66 69 6c 65 2d | ))..................:key.#'file- |
| 12e460 | 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name-nondirectory............... |
| 12e480 | 20 20 20 3a 74 65 73 74 20 23 27 73 74 72 69 6e 67 2d 65 71 75 61 6c 29 29 29 29 0a 0a 28 64 65 | ...:test.#'string-equal))))..(de |
| 12e4a0 | 66 76 61 72 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 65 73 20 27 28 6c 69 73 70 2d 6d 6f 64 | fvar.slime-lisp-modes.'(lisp-mod |
| 12e4c0 | 65 29 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 20 27 28 73 6c 69 | e)).(defvar.slime-contribs.'(sli |
| 12e4e0 | 6d 65 2d 66 61 6e 63 79 29 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 63 6f 6e 74 72 69 62 20 70 | me-fancy)..."A.list.of.contrib.p |
| 12e500 | 61 63 6b 61 67 65 73 20 74 6f 20 6c 6f 61 64 20 77 69 74 68 20 53 4c 49 4d 45 2e 22 29 0a 28 64 | ackages.to.load.with.SLIME.").(d |
| 12e520 | 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 20 27 73 | efine-obsolete-variable-alias.'s |
| 12e540 | 6c 69 6d 65 2d 73 65 74 75 70 2d 63 6f 6e 74 72 69 62 73 0a 27 73 6c 69 6d 65 2d 63 6f 6e 74 72 | lime-setup-contribs.'slime-contr |
| 12e560 | 69 62 73 20 22 32 2e 33 2e 32 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 63 6c | ibs."2.3.2")..;;;###autoload.(cl |
| 12e580 | 2d 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 74 75 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 63 | -defun.slime-setup.(&optional.(c |
| 12e5a0 | 6f 6e 74 72 69 62 73 20 6e 69 6c 20 63 6f 6e 74 72 69 62 73 2d 70 29 29 0a 20 20 22 53 65 74 75 | ontribs.nil.contribs-p))..."Setu |
| 12e5c0 | 70 20 45 6d 61 63 73 20 73 6f 20 74 68 61 74 20 6c 69 73 70 2d 6d 6f 64 65 20 62 75 66 66 65 72 | p.Emacs.so.that.lisp-mode.buffer |
| 12e5e0 | 73 20 61 6c 77 61 79 73 20 75 73 65 20 53 4c 49 4d 45 2e 0a 43 4f 4e 54 52 49 42 53 20 69 73 20 | s.always.use.SLIME..CONTRIBS.is. |
| 12e600 | 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 74 72 69 62 20 70 61 63 6b 61 67 65 73 20 74 6f 20 6c 6f | a.list.of.contrib.packages.to.lo |
| 12e620 | 61 64 2e 20 49 66 20 60 6e 69 6c 27 2c 20 75 73 65 0a 60 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 | ad..If.`nil',.use.`slime-contrib |
| 12e640 | 73 27 2e 20 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 20 28 6d | s'.."...(interactive)...(when.(m |
| 12e660 | 65 6d 62 65 72 20 27 6c 69 73 70 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 65 | ember.'lisp-mode.slime-lisp-mode |
| 12e680 | 73 29 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b | s).....(add-hook.'lisp-mode-hook |
| 12e6a0 | 20 27 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 29 0a 20 20 28 77 68 65 6e | .'slime-lisp-mode-hook))...(when |
| 12e6c0 | 20 63 6f 6e 74 72 69 62 73 2d 70 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 63 6f 6e 74 | .contribs-p.....(setq.slime-cont |
| 12e6e0 | 72 69 62 73 20 63 6f 6e 74 72 69 62 73 29 29 0a 20 20 28 73 6c 69 6d 65 2d 2d 73 65 74 75 70 2d | ribs.contribs))...(slime--setup- |
| 12e700 | 63 6f 6e 74 72 69 62 73 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 71 75 69 72 | contribs))..(defvar.slime-requir |
| 12e720 | 65 64 2d 6d 6f 64 75 6c 65 73 20 27 28 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 2d 73 | ed-modules.'())..(defun.slime--s |
| 12e740 | 65 74 75 70 2d 63 6f 6e 74 72 69 62 73 20 28 29 0a 20 20 22 4c 6f 61 64 20 61 6e 64 20 69 6e 69 | etup-contribs.()..."Load.and.ini |
| 12e760 | 74 69 61 6c 69 7a 65 20 63 6f 6e 74 72 69 62 73 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 63 20 | tialize.contribs."...(dolist.(c. |
| 12e780 | 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 65 61 | slime-contribs).....(unless.(fea |
| 12e7a0 | 74 75 72 65 70 20 63 29 0a 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 63 29 0a 20 20 20 20 20 | turep.c).......(require.c)...... |
| 12e7c0 | 20 28 6c 65 74 20 28 28 69 6e 69 74 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 | .(let.((init.(intern.(format."%s |
| 12e7e0 | 2d 69 6e 69 74 22 20 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 | -init".c)))).........(when.(fbou |
| 12e800 | 6e 64 70 20 69 6e 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 69 6e 69 | ndp.init)...........(funcall.ini |
| 12e820 | 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 65 2d | t))))))..(defun.slime-lisp-mode- |
| 12e840 | 68 6f 6f 6b 20 28 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 6f 64 65 20 31 29 0a 20 20 28 73 65 74 20 | hook.()...(slime-mode.1)...(set. |
| 12e860 | 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 6c 69 73 70 2d 69 6e 64 65 6e | (make-local-variable.'lisp-inden |
| 12e880 | 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d | t-function)........'common-lisp- |
| 12e8a0 | 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 | indent-function))..(defvar.slime |
| 12e8c0 | 2d 70 72 6f 74 6f 63 6f 6c 2d 76 65 72 73 69 6f 6e 20 6e 69 6c 29 0a 28 73 65 74 71 20 73 6c 69 | -protocol-version.nil).(setq.sli |
| 12e8e0 | 6d 65 2d 70 72 6f 74 6f 63 6f 6c 2d 76 65 72 73 69 6f 6e 20 73 6c 69 6d 65 2d 76 65 72 73 69 6f | me-protocol-version.slime-versio |
| 12e900 | 6e 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 75 73 74 6f 6d 69 7a 65 20 67 72 6f 75 70 73 0a 3b 3b 0a 3b | n)....;;;;.Customize.groups.;;.; |
| 12e920 | 3b 3b 3b 3b 20 73 6c 69 6d 65 0a 0a 28 64 65 66 67 72 6f 75 70 20 73 6c 69 6d 65 20 6e 69 6c 0a | ;;;;.slime..(defgroup.slime.nil. |
| 12e940 | 20 20 22 49 6e 74 65 72 61 63 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 53 75 70 65 72 69 6f 72 | .."Interaction.with.the.Superior |
| 12e960 | 20 4c 69 73 70 20 45 6e 76 69 72 6f 6e 6d 65 6e 74 2e 22 0a 20 20 3a 70 72 65 66 69 78 20 22 73 | .Lisp.Environment."...:prefix."s |
| 12e980 | 6c 69 6d 65 2d 22 0a 20 20 3a 67 72 6f 75 70 20 27 61 70 70 6c 69 63 61 74 69 6f 6e 73 29 0a 0a | lime-"...:group.'applications).. |
| 12e9a0 | 3b 3b 3b 3b 3b 20 73 6c 69 6d 65 2d 75 69 0a 0a 28 64 65 66 67 72 6f 75 70 20 73 6c 69 6d 65 2d | ;;;;;.slime-ui..(defgroup.slime- |
| 12e9c0 | 75 69 20 6e 69 6c 0a 20 20 22 49 6e 74 65 72 61 63 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 53 | ui.nil..."Interaction.with.the.S |
| 12e9e0 | 75 70 65 72 69 6f 72 20 4c 69 73 70 20 45 6e 76 69 72 6f 6e 6d 65 6e 74 2e 22 0a 20 20 3a 70 72 | uperior.Lisp.Environment."...:pr |
| 12ea00 | 65 66 69 78 20 22 73 6c 69 6d 65 2d 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 29 0a 0a | efix."slime-"...:group.'slime).. |
| 12ea20 | 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 20 | (defcustom.slime-truncate-lines. |
| 12ea40 | 74 0a 20 20 22 53 65 74 20 60 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 27 20 69 6e 20 70 6f 70 | t..."Set.`truncate-lines'.in.pop |
| 12ea60 | 75 70 20 62 75 66 66 65 72 73 2e 0a 54 68 69 73 20 61 70 70 6c 69 65 73 20 74 6f 20 62 75 66 66 | up.buffers..This.applies.to.buff |
| 12ea80 | 65 72 73 20 74 68 61 74 20 70 72 65 73 65 6e 74 20 6c 69 6e 65 73 20 61 73 20 72 6f 77 73 20 6f | ers.that.present.lines.as.rows.o |
| 12eaa0 | 66 20 64 61 74 61 2c 20 73 75 63 68 20 61 73 0a 64 65 62 75 67 67 65 72 20 62 61 63 6b 74 72 61 | f.data,.such.as.debugger.backtra |
| 12eac0 | 63 65 73 20 61 6e 64 20 61 70 72 6f 70 6f 73 20 6c 69 73 74 69 6e 67 73 2e 22 0a 20 20 3a 74 79 | ces.and.apropos.listings."...:ty |
| 12eae0 | 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 75 69 29 0a | pe.'boolean...:group.'slime-ui). |
| 12eb00 | 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 6b 69 6c 6c 2d 77 69 74 68 6f 75 74 2d 71 | .(defcustom.slime-kill-without-q |
| 12eb20 | 75 65 72 79 2d 70 20 6e 69 6c 0a 20 20 22 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 6b 69 6c 6c 20 53 | uery-p.nil..."If.non-nil,.kill.S |
| 12eb40 | 4c 49 4d 45 20 70 72 6f 63 65 73 73 65 73 20 77 69 74 68 6f 75 74 20 71 75 65 72 79 20 77 68 65 | LIME.processes.without.query.whe |
| 12eb60 | 6e 20 71 75 69 74 74 69 6e 67 20 45 6d 61 63 73 2e 0a 54 68 69 73 20 61 70 70 6c 69 65 73 20 74 | n.quitting.Emacs..This.applies.t |
| 12eb80 | 6f 20 74 68 65 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 20 62 75 66 66 65 72 20 61 6e 64 | o.the.*inferior-lisp*.buffer.and |
| 12eba0 | 20 74 68 65 20 6e 65 74 77 6f 72 6b 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 22 0a 20 20 3a 74 79 | .the.network.connections."...:ty |
| 12ebc0 | 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 75 69 29 0a | pe.'boolean...:group.'slime-ui). |
| 12ebe0 | 0a 3b 3b 3b 3b 3b 20 73 6c 69 6d 65 2d 6c 69 73 70 0a 0a 28 64 65 66 67 72 6f 75 70 20 73 6c 69 | .;;;;;.slime-lisp..(defgroup.sli |
| 12ec00 | 6d 65 2d 6c 69 73 70 20 6e 69 6c 0a 20 20 22 4c 69 73 70 20 73 65 72 76 65 72 20 63 6f 6e 66 69 | me-lisp.nil..."Lisp.server.confi |
| 12ec20 | 67 75 72 61 74 69 6f 6e 2e 22 0a 20 20 3a 70 72 65 66 69 78 20 22 73 6c 69 6d 65 2d 22 0a 20 20 | guration."...:prefix."slime-"... |
| 12ec40 | 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 | :group.'slime)..(defcustom.slime |
| 12ec60 | 2d 62 61 63 6b 65 6e 64 20 22 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 2e 6c 69 73 70 22 0a 20 20 22 | -backend."swank-loader.lisp"..." |
| 12ec80 | 54 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 4c 69 73 70 20 66 69 6c 65 20 74 68 61 74 20 6c | The.name.of.the.Lisp.file.that.l |
| 12eca0 | 6f 61 64 73 20 74 68 65 20 53 77 61 6e 6b 20 73 65 72 76 65 72 2e 0a 54 68 69 73 20 6e 61 6d 65 | oads.the.Swank.server..This.name |
| 12ecc0 | 20 69 73 20 69 6e 74 65 72 70 72 65 74 65 64 20 72 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 | .is.interpreted.relative.to.the. |
| 12ece0 | 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 0a 73 6c 69 6d 65 2e 65 6c 2c 20 62 | directory.containing.slime.el,.b |
| 12ed00 | 75 74 20 63 6f 75 6c 64 20 61 6c 73 6f 20 62 65 20 73 65 74 20 74 6f 20 61 6e 20 61 62 73 6f 6c | ut.could.also.be.set.to.an.absol |
| 12ed20 | 75 74 65 20 66 69 6c 65 6e 61 6d 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 0a 20 | ute.filename."...:type.'string.. |
| 12ed40 | 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6c 69 73 70 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d | .:group.'slime-lisp)..(defcustom |
| 12ed60 | 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 4c 69 73 | .slime-connected-hook.nil..."Lis |
| 12ed80 | 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 63 61 6c 6c 20 77 68 65 6e 20 53 4c 49 4d | t.of.functions.to.call.when.SLIM |
| 12eda0 | 45 20 63 6f 6e 6e 65 63 74 73 20 74 6f 20 4c 69 73 70 2e 22 0a 20 20 3a 74 79 70 65 20 27 68 6f | E.connects.to.Lisp."...:type.'ho |
| 12edc0 | 6f 6b 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6c 69 73 70 29 0a 0a 28 64 65 66 63 75 | ok...:group.'slime-lisp)..(defcu |
| 12ede0 | 73 74 6f 6d 20 73 6c 69 6d 65 2d 65 6e 61 62 6c 65 2d 65 76 61 6c 75 61 74 65 2d 69 6e 2d 65 6d | stom.slime-enable-evaluate-in-em |
| 12ee00 | 61 63 73 20 6e 69 6c 0a 20 20 22 2a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 69 6e 66 65 | acs.nil..."*If.non-nil,.the.infe |
| 12ee20 | 72 69 6f 72 20 4c 69 73 70 20 63 61 6e 20 65 76 61 6c 75 61 74 65 20 61 72 62 69 74 72 61 72 79 | rior.Lisp.can.evaluate.arbitrary |
| 12ee40 | 20 66 6f 72 6d 73 20 69 6e 20 45 6d 61 63 73 2e 0a 54 68 65 20 64 65 66 61 75 6c 74 20 69 73 20 | .forms.in.Emacs..The.default.is. |
| 12ee60 | 6e 69 6c 2c 20 61 73 20 74 68 69 73 20 66 65 61 74 75 72 65 20 63 61 6e 20 62 65 20 61 20 73 65 | nil,.as.this.feature.can.be.a.se |
| 12ee80 | 63 75 72 69 74 79 20 72 69 73 6b 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 62 6f 6f 6c 65 61 6e 29 | curity.risk."...:type.'(boolean) |
| 12eea0 | 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6c 69 73 70 29 0a 0a 28 64 65 66 63 75 73 74 | ...:group.'slime-lisp)..(defcust |
| 12eec0 | 6f 6d 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 68 6f 73 74 20 22 6c 6f 63 61 6c 68 6f 73 74 22 0a 20 | om.slime-lisp-host."localhost".. |
| 12eee0 | 20 22 54 68 65 20 64 65 66 61 75 6c 74 20 68 6f 73 74 6e 61 6d 65 20 28 6f 72 20 49 50 20 61 64 | ."The.default.hostname.(or.IP.ad |
| 12ef00 | 64 72 65 73 73 29 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 2e 22 0a 20 20 3a 74 79 70 65 20 27 | dress).to.connect.to."...:type.' |
| 12ef20 | 73 74 72 69 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6c 69 73 70 29 0a 0a 28 64 | string...:group.'slime-lisp)..(d |
| 12ef40 | 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 70 6f 72 74 20 34 30 30 35 0a 20 20 22 50 6f 72 74 | efcustom.slime-port.4005..."Port |
| 12ef60 | 20 74 6f 20 75 73 65 20 61 73 20 74 68 65 20 64 65 66 61 75 6c 74 20 66 6f 72 20 60 73 6c 69 6d | .to.use.as.the.default.for.`slim |
| 12ef80 | 65 2d 63 6f 6e 6e 65 63 74 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 0a 20 20 | e-connect'."...:type.'integer... |
| 12efa0 | 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6c 69 73 70 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 | :group.'slime-lisp)..(defvar.sli |
| 12efc0 | 6d 65 2d 63 6f 6e 6e 65 63 74 2d 68 6f 73 74 2d 68 69 73 74 6f 72 79 20 28 6c 69 73 74 20 73 6c | me-connect-host-history.(list.sl |
| 12efe0 | 69 6d 65 2d 6c 69 73 70 2d 68 6f 73 74 29 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 6f | ime-lisp-host)).(defvar.slime-co |
| 12f000 | 6e 6e 65 63 74 2d 70 6f 72 74 2d 68 69 73 74 6f 72 79 20 28 6c 69 73 74 20 28 70 72 69 6e 31 2d | nnect-port-history.(list.(prin1- |
| 12f020 | 74 6f 2d 73 74 72 69 6e 67 20 73 6c 69 6d 65 2d 70 6f 72 74 29 29 29 0a 0a 28 64 65 66 76 61 72 | to-string.slime-port)))..(defvar |
| 12f040 | 20 73 6c 69 6d 65 2d 6e 65 74 2d 76 61 6c 69 64 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 73 0a | .slime-net-valid-coding-systems. |
| 12f060 | 20 20 27 28 28 69 73 6f 2d 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 20 6e 69 6c 20 22 69 73 6f 2d 6c | ..'((iso-latin-1-unix.nil."iso-l |
| 12f080 | 61 74 69 6e 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 69 73 6f 2d 38 38 35 39 2d 31 2d 75 6e | atin-1-unix").....(iso-8859-1-un |
| 12f0a0 | 69 78 20 20 6e 69 6c 20 22 69 73 6f 2d 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 | ix..nil."iso-latin-1-unix")..... |
| 12f0c0 | 28 62 69 6e 61 72 79 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 22 69 73 6f 2d 6c 61 74 69 6e | (binary...........nil."iso-latin |
| 12f0e0 | 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 75 74 66 2d 38 2d 75 6e 69 78 20 20 20 20 20 20 20 | -1-unix").....(utf-8-unix....... |
| 12f100 | 74 20 20 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 65 6d 61 63 73 2d 6d 75 6c | t..."utf-8-unix").....(emacs-mul |
| 12f120 | 65 2d 75 6e 69 78 20 20 74 20 20 20 22 65 6d 61 63 73 2d 6d 75 6c 65 2d 75 6e 69 78 22 29 0a 20 | e-unix..t..."emacs-mule-unix").. |
| 12f140 | 20 20 20 28 65 75 63 2d 6a 70 2d 75 6e 69 78 20 20 20 20 20 20 74 20 20 20 22 65 75 63 2d 6a 70 | ...(euc-jp-unix......t..."euc-jp |
| 12f160 | 2d 75 6e 69 78 22 29 29 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 76 61 6c 69 64 20 63 6f 64 69 | -unix"))..."A.list.of.valid.codi |
| 12f180 | 6e 67 20 73 79 73 74 65 6d 73 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 69 73 20 6f 66 20 74 | ng.systems..Each.element.is.of.t |
| 12f1a0 | 68 65 20 66 6f 72 6d 3a 20 28 4e 41 4d 45 20 4d 55 4c 54 49 42 59 54 45 50 20 43 4c 2d 4e 41 4d | he.form:.(NAME.MULTIBYTEP.CL-NAM |
| 12f1c0 | 45 29 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 63 6f 64 69 6e 67 2d 73 | E)")..(defun.slime-find-coding-s |
| 12f1e0 | 79 73 74 65 6d 20 28 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 6f 64 69 6e | ystem.(name)..."Return.the.codin |
| 12f200 | 67 20 73 79 73 74 65 6d 20 66 6f 72 20 74 68 65 20 73 79 6d 62 6f 6c 20 4e 41 4d 45 2e 0a 54 68 | g.system.for.the.symbol.NAME..Th |
| 12f220 | 65 20 72 65 73 75 6c 74 20 69 73 20 65 69 74 68 65 72 20 61 6e 20 65 6c 65 6d 65 6e 74 20 69 6e | e.result.is.either.an.element.in |
| 12f240 | 20 60 73 6c 69 6d 65 2d 6e 65 74 2d 76 61 6c 69 64 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 73 | .`slime-net-valid-coding-systems |
| 12f260 | 27 0a 6f 66 20 6e 69 6c 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 62 65 20 28 61 73 73 71 20 | '.of.nil."...(let.((probe.(assq. |
| 12f280 | 6e 61 6d 65 20 73 6c 69 6d 65 2d 6e 65 74 2d 76 61 6c 69 64 2d 63 6f 64 69 6e 67 2d 73 79 73 74 | name.slime-net-valid-coding-syst |
| 12f2a0 | 65 6d 73 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 70 72 6f 62 65 20 28 69 66 20 | ems))).....(when.(and.probe.(if. |
| 12f2c0 | 28 66 62 6f 75 6e 64 70 20 27 63 68 65 63 6b 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 | (fboundp.'check-coding-system).. |
| 12f2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d | ........................(ignore- |
| 12f300 | 65 72 72 6f 72 73 20 28 63 68 65 63 6b 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 28 63 61 72 | errors.(check-coding-system.(car |
| 12f320 | 20 70 72 6f 62 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .probe)))....................... |
| 12f340 | 20 28 65 71 20 28 63 61 72 20 70 72 6f 62 65 29 20 27 62 69 6e 61 72 79 29 29 29 0a 20 20 20 20 | .(eq.(car.probe).'binary)))..... |
| 12f360 | 20 20 70 72 6f 62 65 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 6e 65 74 | ..probe)))..(defcustom.slime-net |
| 12f380 | 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 0a 20 20 28 63 61 72 20 28 63 6c 2d 66 69 6e 64 2d 69 | -coding-system...(car.(cl-find-i |
| 12f3a0 | 66 20 27 73 6c 69 6d 65 2d 66 69 6e 64 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 0a 20 20 20 20 | f.'slime-find-coding-system..... |
| 12f3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 76 61 6c 69 64 2d 63 | ...............slime-net-valid-c |
| 12f3e0 | 6f 64 69 6e 67 2d 73 79 73 74 65 6d 73 20 3a 6b 65 79 20 27 63 61 72 29 29 0a 20 20 22 43 6f 64 | oding-systems.:key.'car))..."Cod |
| 12f400 | 69 6e 67 20 73 79 73 74 65 6d 20 75 73 65 64 20 66 6f 72 20 6e 65 74 77 6f 72 6b 20 63 6f 6e 6e | ing.system.used.for.network.conn |
| 12f420 | 65 63 74 69 6f 6e 73 2e 0a 53 65 65 20 61 6c 73 6f 20 60 73 6c 69 6d 65 2d 6e 65 74 2d 76 61 6c | ections..See.also.`slime-net-val |
| 12f440 | 69 64 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 73 27 2e 22 0a 20 20 3a 74 79 70 65 20 28 63 6f | id-coding-systems'."...:type.(co |
| 12f460 | 6e 73 20 27 63 68 6f 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 | ns.'choice...............(mapcar |
| 12f480 | 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(lambda.(x).................... |
| 12f4a0 | 20 20 20 20 20 28 6c 69 73 74 20 27 63 6f 6e 73 74 20 28 63 61 72 20 78 29 29 29 0a 20 20 20 20 | .....(list.'const.(car.x)))..... |
| 12f4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 76 61 6c 69 | ..................slime-net-vali |
| 12f4e0 | 64 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 73 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 | d-coding-systems))...:group.'sli |
| 12f500 | 6d 65 2d 6c 69 73 70 29 0a 0a 3b 3b 3b 3b 3b 20 73 6c 69 6d 65 2d 6d 6f 64 65 0a 0a 28 64 65 66 | me-lisp)..;;;;;.slime-mode..(def |
| 12f520 | 67 72 6f 75 70 20 73 6c 69 6d 65 2d 6d 6f 64 65 20 6e 69 6c 0a 20 20 22 53 65 74 74 69 6e 67 73 | group.slime-mode.nil..."Settings |
| 12f540 | 20 66 6f 72 20 73 6c 69 6d 65 2d 6d 6f 64 65 20 4c 69 73 70 20 73 6f 75 72 63 65 20 62 75 66 66 | .for.slime-mode.Lisp.source.buff |
| 12f560 | 65 72 73 2e 22 0a 20 20 3a 70 72 65 66 69 78 20 22 73 6c 69 6d 65 2d 22 0a 20 20 3a 67 72 6f 75 | ers."...:prefix."slime-"...:grou |
| 12f580 | 70 20 27 73 6c 69 6d 65 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 66 69 6e 64 | p.'slime)..(defcustom.slime-find |
| 12f5a0 | 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 66 69 6e | -definitions-function.'slime-fin |
| 12f5c0 | 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 72 70 63 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f | d-definitions-rpc..."Function.to |
| 12f5e0 | 20 66 69 6e 64 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 6f 72 20 61 20 6e 61 6d 65 2e 0a 54 68 | .find.definitions.for.a.name..Th |
| 12f600 | 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 64 65 | e.function.is.called.with.the.de |
| 12f620 | 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 2c 20 61 20 73 74 72 69 6e 67 2c 20 61 73 20 69 74 73 0a | finition.name,.a.string,.as.its. |
| 12f640 | 61 72 67 75 6d 65 6e 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 66 75 6e 63 74 69 6f 6e 0a 20 20 3a | argument."...:type.'function...: |
| 12f660 | 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 0a 20 20 3a 6f 70 74 69 6f 6e 73 20 27 28 73 | group.'slime-mode...:options.'(s |
| 12f680 | 6c 69 6d 65 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 72 70 63 0a 20 20 20 20 20 20 | lime-find-definitions-rpc....... |
| 12f6a0 | 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 65 74 61 67 73 2d 64 65 66 69 6e 69 74 69 6f 6e 73 0a 20 | .......slime-etags-definitions.. |
| 12f6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6e 61 6d 65 29 0a 20 20 20 20 20 | ............(lambda.(name)...... |
| 12f6e0 | 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 64 65 | ..........(append.(slime-find-de |
| 12f700 | 66 69 6e 69 74 69 6f 6e 73 2d 72 70 63 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | finitions-rpc.name)............. |
| 12f720 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 74 61 67 73 2d 64 65 66 69 6e 69 74 69 | ...........(slime-etags-definiti |
| 12f740 | 6f 6e 73 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 | ons.name)))..............(lambda |
| 12f760 | 20 28 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 73 6c 69 6d | .(name)................(or.(slim |
| 12f780 | 65 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 72 70 63 20 6e 61 6d 65 29 0a 20 20 20 | e-find-definitions-rpc.name).... |
| 12f7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 74 61 67 73 2d 74 61 62 6c 65 2d | ................(and.tags-table- |
| 12f7c0 | 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | list.........................(sl |
| 12f7e0 | 69 6d 65 2d 65 74 61 67 73 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 29 29 29 29 29 | ime-etags-definitions.name)))))) |
| 12f800 | 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 72 65 6d 6f 76 65 20 6f 6e 65 20 64 61 79 0a 28 64 65 66 63 | ..;;.FIXME:.remove.one.day.(defc |
| 12f820 | 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2d 66 75 6e 63 | ustom.slime-complete-symbol-func |
| 12f840 | 74 69 6f 6e 20 27 6e 69 6c 0a 20 20 22 4f 62 73 6f 6c 65 74 65 2e 20 55 73 65 20 60 73 6c 69 6d | tion.'nil..."Obsolete..Use.`slim |
| 12f860 | 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 27 | e-completion-at-point-functions' |
| 12f880 | 20 69 6e 73 74 65 61 64 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 0a | .instead."...:group.'slime-mode. |
| 12f8a0 | 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 43 6f | ..:type.'(choice.(const.:tag."Co |
| 12f8c0 | 6d 70 6f 75 6e 64 22 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2a 29 0a | mpound".slime-complete-symbol*). |
| 12f8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 46 75 | .................(const.:tag."Fu |
| 12f900 | 7a 7a 79 22 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c | zzy".slime-fuzzy-complete-symbol |
| 12f920 | 29 29 29 0a 0a 28 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 20 27 73 6c | )))..(make-obsolete-variable.'sl |
| 12f940 | 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 | ime-complete-symbol-function.... |
| 12f960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 | .....................'slime-comp |
| 12f980 | 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 | letion-at-point-functions....... |
| 12f9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 32 30 31 35 2d 31 30 2d 31 38 22 29 0a | .................."2015-10-18"). |
| 12f9c0 | 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d | .(defcustom.slime-completion-at- |
| 12f9e0 | 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 27 28 73 6c 69 6d 65 2d 66 69 6c 65 6e 61 | point-functions...'(slime-filena |
| 12fa00 | 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 73 6c 69 6d 65 2d 73 69 6d 70 6c 65 2d 63 | me-completion.....slime-simple-c |
| 12fa20 | 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 66 | ompletion-at-point)..."List.of.f |
| 12fa40 | 75 6e 63 74 69 6f 6e 73 20 74 6f 20 70 65 72 66 6f 72 6d 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 0a | unctions.to.perform.completion.. |
| 12fa60 | 57 6f 72 6b 73 20 6c 69 6b 65 20 60 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d | Works.like.`completion-at-point- |
| 12fa80 | 66 75 6e 63 74 69 6f 6e 73 27 2e 0a 60 73 6c 69 6d 65 2d 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 | functions'..`slime--completion-a |
| 12faa0 | 74 2d 70 6f 69 6e 74 27 20 75 73 65 73 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 2e 22 0a 20 20 | t-point'.uses.this.variable."... |
| 12fac0 | 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 29 0a 0a 3b 3b 3b 3b 3b 20 73 6c 69 6d 65 | :group.'slime-mode)..;;;;;.slime |
| 12fae0 | 2d 6d 6f 64 65 2d 66 61 63 65 73 0a 0a 28 64 65 66 67 72 6f 75 70 20 73 6c 69 6d 65 2d 6d 6f 64 | -mode-faces..(defgroup.slime-mod |
| 12fb00 | 65 2d 66 61 63 65 73 20 6e 69 6c 0a 20 20 22 46 61 63 65 73 20 69 6e 20 73 6c 69 6d 65 2d 6d 6f | e-faces.nil..."Faces.in.slime-mo |
| 12fb20 | 64 65 20 73 6f 75 72 63 65 20 63 6f 64 65 20 62 75 66 66 65 72 73 2e 22 0a 20 20 3a 70 72 65 66 | de.source.code.buffers."...:pref |
| 12fb40 | 69 78 20 22 73 6c 69 6d 65 2d 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 | ix."slime-"...:group.'slime-mode |
| 12fb60 | 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 65 72 72 6f 72 2d 66 61 63 65 0a 20 20 60 | )..(defface.slime-error-face...` |
| 12fb80 | 28 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 | ((((class.color).(background.lig |
| 12fba0 | 68 74 29 29 0a 20 20 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 72 65 64 22 29 29 0a 20 20 | ht))......(:underline."red"))... |
| 12fbc0 | 20 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 | ..(((class.color).(background.da |
| 12fbe0 | 72 6b 29 29 0a 20 20 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 72 65 64 22 29 29 0a 20 20 | rk))......(:underline."red"))... |
| 12fc00 | 20 20 28 74 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 74 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f | ..(t.(:underline.t)))..."Face.fo |
| 12fc20 | 72 20 65 72 72 6f 72 73 20 66 72 6f 6d 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 2e 22 0a 20 20 3a | r.errors.from.the.compiler."...: |
| 12fc40 | 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 | group.'slime-mode-faces)..(deffa |
| 12fc60 | 63 65 20 73 6c 69 6d 65 2d 77 61 72 6e 69 6e 67 2d 66 61 63 65 0a 20 20 60 28 28 28 28 63 6c 61 | ce.slime-warning-face...`((((cla |
| 12fc80 | 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 | ss.color).(background.light))... |
| 12fca0 | 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 6f 72 61 6e 67 65 22 29 29 0a 20 20 20 20 28 28 | ...(:underline."orange")).....(( |
| 12fcc0 | 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 | (class.color).(background.dark)) |
| 12fce0 | 0a 20 20 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 63 6f 72 61 6c 22 29 29 0a 20 20 20 20 | ......(:underline."coral"))..... |
| 12fd00 | 28 74 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 74 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 | (t.(:underline.t)))..."Face.for. |
| 12fd20 | 77 61 72 6e 69 6e 67 73 20 66 72 6f 6d 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 2e 22 0a 20 20 3a | warnings.from.the.compiler."...: |
| 12fd40 | 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 | group.'slime-mode-faces)..(deffa |
| 12fd60 | 63 65 20 73 6c 69 6d 65 2d 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 2d 66 61 63 65 0a 20 20 60 28 | ce.slime-style-warning-face...`( |
| 12fd80 | 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 | (((class.color).(background.ligh |
| 12fda0 | 74 29 29 0a 20 20 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 62 72 6f 77 6e 22 29 29 0a 20 | t))......(:underline."brown")).. |
| 12fdc0 | 20 20 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 | ...(((class.color).(background.d |
| 12fde0 | 61 72 6b 29 29 0a 20 20 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 67 6f 6c 64 22 29 29 0a | ark))......(:underline."gold")). |
| 12fe00 | 20 20 20 20 28 74 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 74 29 29 29 0a 20 20 22 46 61 63 65 20 | ....(t.(:underline.t)))..."Face. |
| 12fe20 | 66 6f 72 20 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 73 20 66 72 6f 6d 20 74 68 65 20 63 6f 6d 70 | for.style-warnings.from.the.comp |
| 12fe40 | 69 6c 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d 66 61 63 65 | iler."...:group.'slime-mode-face |
| 12fe60 | 73 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 6e 6f 74 65 2d 66 61 63 65 0a 20 20 60 | s)..(defface.slime-note-face...` |
| 12fe80 | 28 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 | ((((class.color).(background.lig |
| 12fea0 | 68 74 29 29 0a 20 20 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 62 72 6f 77 6e 34 22 29 29 | ht))......(:underline."brown4")) |
| 12fec0 | 0a 20 20 20 20 28 28 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 | .....(((class.color).(background |
| 12fee0 | 20 64 61 72 6b 29 29 0a 20 20 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 6c 69 67 68 74 20 | .dark))......(:underline."light. |
| 12ff00 | 67 6f 6c 64 65 6e 72 6f 64 22 29 29 0a 20 20 20 20 28 74 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 | goldenrod")).....(t.(:underline. |
| 12ff20 | 74 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 6e 6f 74 65 73 20 66 72 6f 6d 20 74 68 65 20 | t)))..."Face.for.notes.from.the. |
| 12ff40 | 63 6f 6d 70 69 6c 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d | compiler."...:group.'slime-mode- |
| 12ff60 | 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 65 61 72 6c 79 2d 64 65 70 | faces)..(defface.slime-early-dep |
| 12ff80 | 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 2d 66 61 63 65 0a 20 20 60 28 28 28 28 74 79 70 | recation-warning-face...`((((typ |
| 12ffa0 | 65 20 67 72 61 70 68 69 63 29 20 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 | e.graphic).(class.color).(backgr |
| 12ffc0 | 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 28 3a 73 74 72 69 6b 65 2d 74 68 72 6f 75 | ound.light))......(:strike-throu |
| 12ffe0 | 67 68 20 22 62 72 6f 77 6e 22 29 29 0a 20 20 20 20 28 28 28 74 79 70 65 20 67 72 61 70 68 69 63 | gh."brown")).....(((type.graphic |
| 130000 | 29 20 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b | ).(class.color).(background.dark |
| 130020 | 29 29 0a 20 20 20 20 20 28 3a 73 74 72 69 6b 65 2d 74 68 72 6f 75 67 68 20 22 67 6f 6c 64 22 29 | ))......(:strike-through."gold") |
| 130040 | 29 0a 20 20 20 20 28 28 28 74 79 70 65 20 67 72 61 70 68 69 63 29 29 0a 20 20 20 20 20 28 3a 73 | ).....(((type.graphic))......(:s |
| 130060 | 74 72 69 6b 65 2d 74 68 72 6f 75 67 68 20 74 29 29 0a 20 20 20 20 28 28 28 63 6c 61 73 73 20 63 | trike-through.t)).....(((class.c |
| 130080 | 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 28 | olor).(background.light))......( |
| 1300a0 | 3a 75 6e 64 65 72 6c 69 6e 65 20 22 62 72 6f 77 6e 22 29 29 0a 20 20 20 20 28 28 28 63 6c 61 73 | :underline."brown")).....(((clas |
| 1300c0 | 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a 20 20 20 20 | s.color).(background.dark))..... |
| 1300e0 | 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 67 6f 6c 64 22 29 29 0a 20 20 20 20 28 74 0a 20 20 20 | .(:underline."gold")).....(t.... |
| 130100 | 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 74 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 65 | ..(:underline.t)))..."Face.for.e |
| 130120 | 61 72 6c 79 20 64 65 70 72 65 63 61 74 69 6f 6e 20 77 61 72 6e 69 6e 67 73 20 66 72 6f 6d 20 74 | arly.deprecation.warnings.from.t |
| 130140 | 68 65 20 63 6f 6d 70 69 6c 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f | he.compiler."...:group.'slime-mo |
| 130160 | 64 65 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 6c 61 74 65 2d 64 | de-faces)..(defface.slime-late-d |
| 130180 | 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 2d 66 61 63 65 0a 20 20 60 28 28 28 28 74 | eprecation-warning-face...`((((t |
| 1301a0 | 79 70 65 20 67 72 61 70 68 69 63 29 20 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b | ype.graphic).(class.color).(back |
| 1301c0 | 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 28 3a 73 74 72 69 6b 65 2d 74 68 72 | ground.light))......(:strike-thr |
| 1301e0 | 6f 75 67 68 20 22 6f 72 61 6e 67 65 22 29 29 0a 20 20 20 20 28 28 28 74 79 70 65 20 67 72 61 70 | ough."orange")).....(((type.grap |
| 130200 | 68 69 63 29 20 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 | hic).(class.color).(background.d |
| 130220 | 61 72 6b 29 29 0a 20 20 20 20 20 28 3a 73 74 72 69 6b 65 2d 74 68 72 6f 75 67 68 20 22 63 6f 72 | ark))......(:strike-through."cor |
| 130240 | 61 6c 22 29 29 0a 20 20 20 20 28 28 28 74 79 70 65 20 67 72 61 70 68 69 63 29 29 0a 20 20 20 20 | al")).....(((type.graphic))..... |
| 130260 | 20 28 3a 73 74 72 69 6b 65 2d 74 68 72 6f 75 67 68 20 74 29 29 0a 20 20 20 20 28 28 28 63 6c 61 | .(:strike-through.t)).....(((cla |
| 130280 | 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 | ss.color).(background.light))... |
| 1302a0 | 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 6f 72 61 6e 67 65 22 29 29 0a 20 20 20 20 28 28 | ...(:underline."orange")).....(( |
| 1302c0 | 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 | (class.color).(background.dark)) |
| 1302e0 | 0a 20 20 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 63 6f 72 61 6c 22 29 29 0a 20 20 20 20 | ......(:underline."coral"))..... |
| 130300 | 28 74 0a 20 20 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 74 29 29 29 0a 20 20 22 46 61 63 65 | (t......(:underline.t)))..."Face |
| 130320 | 20 66 6f 72 20 6c 61 74 65 20 64 65 70 72 65 63 61 74 69 6f 6e 20 77 61 72 6e 69 6e 67 73 20 66 | .for.late.deprecation.warnings.f |
| 130340 | 72 6f 6d 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 | rom.the.compiler."...:group.'sli |
| 130360 | 6d 65 2d 6d 6f 64 65 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 66 | me-mode-faces)..(defface.slime-f |
| 130380 | 69 6e 61 6c 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 2d 66 61 63 65 0a 20 20 | inal-deprecation-warning-face... |
| 1303a0 | 60 28 28 28 28 74 79 70 65 20 67 72 61 70 68 69 63 29 20 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 | `((((type.graphic).(class.color) |
| 1303c0 | 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 20 20 20 20 28 3a 73 74 72 69 | .(background.light))......(:stri |
| 1303e0 | 6b 65 2d 74 68 72 6f 75 67 68 20 22 72 65 64 22 29 29 0a 20 20 20 20 28 28 28 74 79 70 65 20 67 | ke-through."red")).....(((type.g |
| 130400 | 72 61 70 68 69 63 29 20 28 63 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e | raphic).(class.color).(backgroun |
| 130420 | 64 20 64 61 72 6b 29 29 0a 20 20 20 20 20 28 3a 73 74 72 69 6b 65 2d 74 68 72 6f 75 67 68 20 22 | d.dark))......(:strike-through." |
| 130440 | 72 65 64 22 29 29 0a 20 20 20 20 28 28 28 74 79 70 65 20 67 72 61 70 68 69 63 29 29 0a 20 20 20 | red")).....(((type.graphic)).... |
| 130460 | 20 20 28 3a 73 74 72 69 6b 65 2d 74 68 72 6f 75 67 68 20 74 29 29 0a 20 20 20 20 28 28 28 63 6c | ..(:strike-through.t)).....(((cl |
| 130480 | 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 0a 20 | ass.color).(background.light)).. |
| 1304a0 | 20 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 72 65 64 22 29 29 0a 20 20 20 20 28 28 28 63 | ....(:underline."red")).....(((c |
| 1304c0 | 6c 61 73 73 20 63 6f 6c 6f 72 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 0a 20 | lass.color).(background.dark)).. |
| 1304e0 | 20 20 20 20 28 3a 75 6e 64 65 72 6c 69 6e 65 20 22 72 65 64 22 29 29 0a 20 20 20 20 28 74 0a 20 | ....(:underline."red")).....(t.. |
| 130500 | 20 20 20 20 28 3a 73 74 72 69 6b 65 2d 74 68 72 6f 75 67 68 20 74 29 29 29 0a 20 20 22 46 61 63 | ....(:strike-through.t)))..."Fac |
| 130520 | 65 20 66 6f 72 20 66 69 6e 61 6c 20 64 65 70 72 65 63 61 74 69 6f 6e 20 77 61 72 6e 69 6e 67 73 | e.for.final.deprecation.warnings |
| 130540 | 20 66 72 6f 6d 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 | .from.the.compiler."...:group.'s |
| 130560 | 6c 69 6d 65 2d 6d 6f 64 65 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 | lime-mode-faces)..(defface.slime |
| 130580 | 2d 68 69 67 68 6c 69 67 68 74 2d 66 61 63 65 0a 20 20 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 | -highlight-face.....'((t.(:inher |
| 1305a0 | 69 74 20 68 69 67 68 6c 69 67 68 74 20 3a 75 6e 64 65 72 6c 69 6e 65 20 6e 69 6c 29 29 29 0a 20 | it.highlight.:underline.nil))).. |
| 1305c0 | 20 22 46 61 63 65 20 66 6f 72 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 20 77 68 69 6c 65 20 | ."Face.for.compiler.notes.while. |
| 1305e0 | 73 65 6c 65 63 74 65 64 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d | selected."...:group.'slime-mode- |
| 130600 | 66 61 63 65 73 29 0a 0a 3b 3b 3b 3b 3b 20 73 6c 64 62 0a 0a 28 64 65 66 67 72 6f 75 70 20 73 6c | faces)..;;;;;.sldb..(defgroup.sl |
| 130620 | 69 6d 65 2d 64 65 62 75 67 67 65 72 20 6e 69 6c 0a 20 20 22 42 61 63 6b 74 72 61 63 65 20 6f 70 | ime-debugger.nil..."Backtrace.op |
| 130640 | 74 69 6f 6e 73 20 61 6e 64 20 66 6f 6e 74 69 66 69 63 61 74 69 6f 6e 2e 22 0a 20 20 3a 70 72 65 | tions.and.fontification."...:pre |
| 130660 | 66 69 78 20 22 73 6c 64 62 2d 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 29 0a 0a 28 64 | fix."sldb-"...:group.'slime)..(d |
| 130680 | 65 66 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 73 6c 64 62 2d 66 61 63 65 73 20 28 26 72 65 73 74 | efmacro.define-sldb-faces.(&rest |
| 1306a0 | 20 66 61 63 65 73 29 0a 20 20 22 44 65 66 69 6e 65 20 74 68 65 20 73 65 74 20 6f 66 20 53 4c 44 | .faces)..."Define.the.set.of.SLD |
| 1306c0 | 42 20 66 61 63 65 73 2e 0a 45 61 63 68 20 66 61 63 65 20 73 70 65 63 69 66 69 61 74 69 6f 6e 20 | B.faces..Each.face.specifiation. |
| 1306e0 | 69 73 20 28 4e 41 4d 45 20 44 45 53 43 52 49 50 54 49 4f 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 50 | is.(NAME.DESCRIPTION.&optional.P |
| 130700 | 52 4f 50 45 52 54 49 45 53 29 2e 0a 4e 41 4d 45 20 69 73 20 61 20 73 79 6d 62 6f 6c 3b 20 74 68 | ROPERTIES)..NAME.is.a.symbol;.th |
| 130720 | 65 20 66 61 63 65 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 73 6c 64 62 2d 4e 41 4d 45 2d | e.face.will.be.called.sldb-NAME- |
| 130740 | 66 61 63 65 2e 0a 44 45 53 43 52 49 50 54 49 4f 4e 20 69 73 20 61 20 6f 6e 65 2d 6c 69 6e 65 72 | face..DESCRIPTION.is.a.one-liner |
| 130760 | 20 66 6f 72 20 74 68 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 20 62 75 66 66 65 72 2e 0a 50 | .for.the.customization.buffer..P |
| 130780 | 52 4f 50 45 52 54 49 45 53 20 73 70 65 63 69 66 69 65 73 20 61 6e 79 20 64 65 66 61 75 6c 74 20 | ROPERTIES.specifies.any.default. |
| 1307a0 | 66 61 63 65 20 70 72 6f 70 65 72 74 69 65 73 2e 22 0a 20 20 60 28 70 72 6f 67 6e 20 2c 40 28 63 | face.properties."...`(progn.,@(c |
| 1307c0 | 6c 2d 6c 6f 6f 70 20 66 6f 72 20 66 61 63 65 20 69 6e 20 66 61 63 65 73 0a 20 20 20 20 20 20 20 | l-loop.for.face.in.faces........ |
| 1307e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 64 65 66 69 6e 65 2d 73 | ..............collect.`(define-s |
| 130800 | 6c 64 62 2d 66 61 63 65 20 2c 40 66 61 63 65 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 | ldb-face.,@face))))..(defmacro.d |
| 130820 | 65 66 69 6e 65 2d 73 6c 64 62 2d 66 61 63 65 20 28 6e 61 6d 65 20 64 65 73 63 72 69 70 74 69 6f | efine-sldb-face.(name.descriptio |
| 130840 | 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 66 61 75 6c 74 29 0a 20 20 28 6c 65 74 20 28 28 66 61 | n.&optional.default)...(let.((fa |
| 130860 | 63 65 6e 61 6d 65 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 73 6c 64 62 2d 25 73 2d | cename.(intern.(format."sldb-%s- |
| 130880 | 66 61 63 65 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 | face".(symbol-name.name))))).... |
| 1308a0 | 20 60 28 64 65 66 66 61 63 65 20 2c 66 61 63 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 28 6c 69 73 | .`(defface.,facename........(lis |
| 1308c0 | 74 20 28 6c 69 73 74 20 74 20 2c 64 65 66 61 75 6c 74 29 29 0a 20 20 20 20 20 20 20 2c 28 66 6f | t.(list.t.,default))........,(fo |
| 1308e0 | 72 6d 61 74 20 22 46 61 63 65 20 66 6f 72 20 25 73 2e 22 20 64 65 73 63 72 69 70 74 69 6f 6e 29 | rmat."Face.for.%s.".description) |
| 130900 | 0a 20 20 20 20 20 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 64 65 62 75 67 67 65 72 29 29 | ........:group.'slime-debugger)) |
| 130920 | 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 64 62 2d 66 61 63 65 73 0a 20 20 28 74 6f 70 6c 69 6e 65 | )..(define-sldb-faces...(topline |
| 130940 | 20 20 20 20 20 20 20 20 22 74 68 65 20 74 6f 70 20 6c 69 6e 65 20 64 65 73 63 72 69 62 69 6e 67 | ........"the.top.line.describing |
| 130960 | 20 74 68 65 20 65 72 72 6f 72 22 29 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 20 20 20 20 20 20 22 | .the.error")...(condition......" |
| 130980 | 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 20 63 6c 61 73 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 | the.condition.class"............ |
| 1309a0 | 20 20 20 20 20 20 20 27 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 77 61 72 6e | .......'(:inherit.font-lock-warn |
| 1309c0 | 69 6e 67 2d 66 61 63 65 29 29 0a 20 20 28 73 65 63 74 69 6f 6e 20 20 20 20 20 20 20 20 22 74 68 | ing-face))...(section........"th |
| 1309e0 | 65 20 6c 61 62 65 6c 73 20 6f 66 20 6d 61 6a 6f 72 20 73 65 63 74 69 6f 6e 73 20 69 6e 20 74 68 | e.labels.of.major.sections.in.th |
| 130a00 | 65 20 64 65 62 75 67 67 65 72 20 62 75 66 66 65 72 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.debugger.buffer".............. |
| 130a20 | 20 20 20 20 20 27 28 3a 69 6e 68 65 72 69 74 20 68 65 61 64 65 72 2d 6c 69 6e 65 29 29 0a 20 20 | .....'(:inherit.header-line))... |
| 130a40 | 28 66 72 61 6d 65 2d 6c 61 62 65 6c 20 20 20 20 22 62 61 63 6b 74 72 61 63 65 20 66 72 61 6d 65 | (frame-label...."backtrace.frame |
| 130a60 | 20 6e 75 6d 62 65 72 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 69 | .numbers"...................'(:i |
| 130a80 | 6e 68 65 72 69 74 20 73 68 61 64 6f 77 29 29 0a 20 20 28 72 65 73 74 61 72 74 2d 74 79 70 65 20 | nherit.shadow))...(restart-type. |
| 130aa0 | 20 20 22 72 65 73 74 61 72 74 20 6e 61 6d 65 73 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .."restart.names.".............. |
| 130ac0 | 20 20 20 20 20 27 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 | .....'(:inherit.font-lock-keywor |
| 130ae0 | 64 2d 66 61 63 65 29 29 0a 20 20 28 72 65 73 74 61 72 74 20 20 20 20 20 20 20 20 22 72 65 73 74 | d-face))...(restart........"rest |
| 130b00 | 61 72 74 20 64 65 73 63 72 69 70 74 69 6f 6e 73 22 29 0a 20 20 28 72 65 73 74 61 72 74 2d 6e 75 | art.descriptions")...(restart-nu |
| 130b20 | 6d 62 65 72 20 22 72 65 73 74 61 72 74 20 6e 75 6d 62 65 72 73 20 28 63 6f 72 72 65 73 70 6f 6e | mber."restart.numbers.(correspon |
| 130b40 | 64 20 74 6f 20 6b 65 79 73 74 72 6f 6b 65 73 20 74 6f 20 69 6e 76 6f 6b 65 29 22 0a 20 20 20 20 | d.to.keystrokes.to.invoke)"..... |
| 130b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 62 6f 6c 64 20 74 29 29 0a 20 20 28 66 72 61 | ..............'(:bold.t))...(fra |
| 130b80 | 6d 65 2d 6c 69 6e 65 20 20 20 20 20 22 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 20 61 6e 64 20 | me-line....."function.names.and. |
| 130ba0 | 61 72 67 75 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 62 61 63 6b 74 72 61 63 65 22 29 0a 20 20 28 | arguments.in.the.backtrace")...( |
| 130bc0 | 72 65 73 74 61 72 74 61 62 6c 65 2d 66 72 61 6d 65 2d 6c 69 6e 65 0a 20 20 20 22 66 72 61 6d 65 | restartable-frame-line...."frame |
| 130be0 | 73 20 77 68 69 63 68 20 61 72 65 20 73 75 72 65 6c 79 20 72 65 73 74 61 72 74 61 62 6c 65 22 0a | s.which.are.surely.restartable". |
| 130c00 | 20 20 20 27 28 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 6c 69 6d 65 20 67 72 65 65 6e 22 29 29 0a | ...'(:foreground."lime.green")). |
| 130c20 | 20 20 28 6e 6f 6e 2d 72 65 73 74 61 72 74 61 62 6c 65 2d 66 72 61 6d 65 2d 6c 69 6e 65 0a 20 20 | ..(non-restartable-frame-line... |
| 130c40 | 20 22 66 72 61 6d 65 73 20 77 68 69 63 68 20 61 72 65 20 73 75 72 65 6c 79 20 6e 6f 74 20 72 65 | ."frames.which.are.surely.not.re |
| 130c60 | 73 74 61 72 74 61 62 6c 65 22 29 0a 20 20 28 64 65 74 61 69 6c 65 64 2d 66 72 61 6d 65 2d 6c 69 | startable")...(detailed-frame-li |
| 130c80 | 6e 65 0a 20 20 20 22 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 20 61 6e 64 20 61 72 67 75 6d 65 | ne...."function.names.and.argume |
| 130ca0 | 6e 74 73 20 69 6e 20 61 20 64 65 74 61 69 6c 65 64 20 28 65 78 70 61 6e 64 65 64 29 20 66 72 61 | nts.in.a.detailed.(expanded).fra |
| 130cc0 | 6d 65 22 29 0a 20 20 28 6c 6f 63 61 6c 2d 6e 61 6d 65 20 20 20 20 20 22 6c 6f 63 61 6c 20 76 61 | me")...(local-name....."local.va |
| 130ce0 | 72 69 61 62 6c 65 20 6e 61 6d 65 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | riable.names"................... |
| 130d00 | 27 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d 6e 61 | '(:inherit.font-lock-variable-na |
| 130d20 | 6d 65 2d 66 61 63 65 29 29 0a 20 20 28 6c 6f 63 61 6c 2d 76 61 6c 75 65 20 20 20 20 22 6c 6f 63 | me-face))...(local-value...."loc |
| 130d40 | 61 6c 20 76 61 72 69 61 62 6c 65 20 76 61 6c 75 65 73 22 29 0a 20 20 28 63 61 74 63 68 2d 74 61 | al.variable.values")...(catch-ta |
| 130d60 | 67 20 20 20 20 20 20 22 63 61 74 63 68 20 74 61 67 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | g......"catch.tags"............. |
| 130d80 | 20 20 20 20 20 20 27 28 3a 69 6e 68 65 72 69 74 20 68 69 67 68 6c 69 67 68 74 29 29 29 0a 0a 0c | ......'(:inherit.highlight)))... |
| 130da0 | 0a 3b 3b 3b 3b 20 4d 69 6e 6f 72 20 6d 6f 64 65 73 0a 0a 3b 3b 3b 3b 3b 20 73 6c 69 6d 65 2d 6d | .;;;;.Minor.modes..;;;;;.slime-m |
| 130dc0 | 6f 64 65 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 69 6e 64 69 72 65 63 74 | ode..(defvar.slime-mode-indirect |
| 130de0 | 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 0a 20 20 22 45 6d 70 | -map.(make-sparse-keymap)..."Emp |
| 130e00 | 74 79 20 6b 65 79 6d 61 70 20 77 68 69 63 68 20 68 61 73 20 60 73 6c 69 6d 65 2d 6d 6f 64 65 2d | ty.keymap.which.has.`slime-mode- |
| 130e20 | 6d 61 70 27 20 61 73 20 69 74 27 73 20 70 61 72 65 6e 74 2e 0a 54 68 69 73 20 69 73 20 61 20 68 | map'.as.it's.parent..This.is.a.h |
| 130e40 | 61 63 6b 20 73 6f 20 74 68 61 74 20 77 65 20 63 61 6e 20 72 65 69 6e 69 74 69 6c 69 7a 65 20 74 | ack.so.that.we.can.reinitilize.t |
| 130e60 | 68 65 20 72 65 61 6c 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 0a 6d 6f 72 65 20 65 61 73 69 | he.real.slime-mode-map.more.easi |
| 130e80 | 6c 79 2e 20 53 65 65 20 60 73 6c 69 6d 65 2d 69 6e 69 74 2d 6b 65 79 6d 61 70 73 27 2e 22 29 0a | ly..See.`slime-init-keymaps'."). |
| 130ea0 | 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e | .(defvar.slime-buffer-connection |
| 130ec0 | 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 0a | ).(defvar.slime-current-thread). |
| 130ee0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 2d 6f 6e 20 28 29 0a 20 20 28 73 6c 69 6d 65 2d 73 65 | .(defun.slime--on.()...(slime-se |
| 130f00 | 74 75 70 2d 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 2d | tup-completion))..(defun.slime-- |
| 130f20 | 6f 66 66 20 28 29 0a 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 63 6f 6d 70 6c 65 74 69 6f | off.()...(remove-hook.'completio |
| 130f40 | 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 20 23 27 73 6c 69 6d 65 2d 2d 63 6f | n-at-point-functions.#'slime--co |
| 130f60 | 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 74 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 | mpletion-at-point.t))..;;;###aut |
| 130f80 | 6f 6c 6f 61 64 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 6d | oload.(define-minor-mode.slime-m |
| 130fa0 | 6f 64 65 0a 20 20 22 5c 5c 3c 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 3e 5c 0a 53 4c 49 4d 45 | ode..."\\<slime-mode-map>\.SLIME |
| 130fc0 | 3a 20 54 68 65 20 53 75 70 65 72 69 6f 72 20 4c 69 73 70 20 49 6e 74 65 72 61 63 74 69 6f 6e 20 | :.The.Superior.Lisp.Interaction. |
| 130fe0 | 4d 6f 64 65 20 66 6f 72 20 45 6d 61 63 73 20 28 6d 69 6e 6f 72 2d 6d 6f 64 65 29 2e 0a 0a 43 6f | Mode.for.Emacs.(minor-mode)...Co |
| 131000 | 6d 6d 61 6e 64 73 20 74 6f 20 63 6f 6d 70 69 6c 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 | mmands.to.compile.the.current.bu |
| 131020 | 66 66 65 72 27 73 20 73 6f 75 72 63 65 20 66 69 6c 65 20 61 6e 64 20 76 69 73 75 61 6c 6c 79 0a | ffer's.source.file.and.visually. |
| 131040 | 68 69 67 68 6c 69 67 68 74 20 61 6e 79 20 72 65 73 75 6c 74 69 6e 67 20 63 6f 6d 70 69 6c 65 72 | highlight.any.resulting.compiler |
| 131060 | 20 6e 6f 74 65 73 20 61 6e 64 20 77 61 72 6e 69 6e 67 73 3a 0a 5c 5c 5b 73 6c 69 6d 65 2d 63 6f | .notes.and.warnings:.\\[slime-co |
| 131080 | 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 2d 66 69 6c 65 5d 09 2d 20 43 6f 6d 70 69 6c 65 20 61 | mpile-and-load-file].-.Compile.a |
| 1310a0 | 6e 64 20 6c 6f 61 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 20 66 69 6c | nd.load.the.current.buffer's.fil |
| 1310c0 | 65 2e 0a 5c 5c 5b 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 5d 09 2d 20 43 6f 6d 70 | e..\\[slime-compile-file].-.Comp |
| 1310e0 | 69 6c 65 20 28 62 75 74 20 6e 6f 74 20 6c 6f 61 64 29 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 | ile.(but.not.load).the.current.b |
| 131100 | 75 66 66 65 72 27 73 20 66 69 6c 65 2e 0a 5c 5c 5b 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 64 | uffer's.file..\\[slime-compile-d |
| 131120 | 65 66 75 6e 5d 09 2d 20 43 6f 6d 70 69 6c 65 20 74 68 65 20 74 6f 70 2d 6c 65 76 65 6c 20 66 6f | efun].-.Compile.the.top-level.fo |
| 131140 | 72 6d 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 43 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 76 69 73 69 74 | rm.at.point...Commands.for.visit |
| 131160 | 69 6e 67 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 3a 0a 5c 5c 5b 73 6c 69 6d 65 2d 6e 65 78 | ing.compiler.notes:.\\[slime-nex |
| 131180 | 74 2d 6e 6f 74 65 5d 09 2d 20 47 6f 74 6f 20 74 68 65 20 6e 65 78 74 20 66 6f 72 6d 20 77 69 74 | t-note].-.Goto.the.next.form.wit |
| 1311a0 | 68 20 61 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 2e 0a 5c 5c 5b 73 6c 69 6d 65 2d 70 72 65 76 | h.a.compiler.note..\\[slime-prev |
| 1311c0 | 69 6f 75 73 2d 6e 6f 74 65 5d 09 2d 20 47 6f 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 66 | ious-note].-.Goto.the.previous.f |
| 1311e0 | 6f 72 6d 20 77 69 74 68 20 61 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 2e 0a 5c 5c 5b 73 6c 69 | orm.with.a.compiler.note..\\[sli |
| 131200 | 6d 65 2d 72 65 6d 6f 76 65 2d 6e 6f 74 65 73 5d 09 2d 20 52 65 6d 6f 76 65 20 63 6f 6d 70 69 6c | me-remove-notes].-.Remove.compil |
| 131220 | 65 72 2d 6e 6f 74 65 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 69 6e 20 62 75 66 66 65 72 2e 0a 0a | er-note.annotations.in.buffer... |
| 131240 | 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 3a 0a 5c 5c 5b 73 6c 69 6d 65 2d 65 64 | Finding.definitions:.\\[slime-ed |
| 131260 | 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 5d 0a 2d 20 45 64 69 74 20 74 68 65 20 64 65 66 69 6e 69 | it-definition].-.Edit.the.defini |
| 131280 | 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 65 64 20 61 74 20 70 | tion.of.the.function.called.at.p |
| 1312a0 | 6f 69 6e 74 2e 0a 5c 5c 5b 73 6c 69 6d 65 2d 70 6f 70 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 | oint..\\[slime-pop-find-definiti |
| 1312c0 | 6f 6e 2d 73 74 61 63 6b 5d 0a 2d 20 50 6f 70 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 73 | on-stack].-.Pop.the.definition.s |
| 1312e0 | 74 61 63 6b 20 74 6f 20 67 6f 20 62 61 63 6b 20 66 72 6f 6d 20 61 20 64 65 66 69 6e 69 74 69 6f | tack.to.go.back.from.a.definitio |
| 131300 | 6e 2e 0a 0a 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 3a 0a 5c 5c 5b 73 | n...Documentation.commands:.\\[s |
| 131320 | 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 5d 09 2d 20 44 65 73 63 72 69 62 65 | lime-describe-symbol].-.Describe |
| 131340 | 20 73 79 6d 62 6f 6c 2e 0a 5c 5c 5b 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 5d 09 2d 20 41 70 72 | .symbol..\\[slime-apropos].-.Apr |
| 131360 | 6f 70 6f 73 20 73 65 61 72 63 68 2e 0a 5c 5c 5b 73 6c 69 6d 65 2d 64 69 73 61 73 73 65 6d 62 6c | opos.search..\\[slime-disassembl |
| 131380 | 65 2d 73 79 6d 62 6f 6c 5d 09 2d 20 44 69 73 61 73 73 65 6d 62 6c 65 20 61 20 66 75 6e 63 74 69 | e-symbol].-.Disassemble.a.functi |
| 1313a0 | 6f 6e 2e 0a 0a 45 76 61 6c 75 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 3a 0a 5c 5c 5b 73 6c 69 | on...Evaluation.commands:.\\[sli |
| 1313c0 | 6d 65 2d 65 76 61 6c 2d 64 65 66 75 6e 5d 09 2d 20 45 76 61 6c 75 61 74 65 20 74 6f 70 2d 6c 65 | me-eval-defun].-.Evaluate.top-le |
| 1313e0 | 76 65 6c 20 66 72 6f 6d 20 63 6f 6e 74 61 69 6e 69 6e 67 20 70 6f 69 6e 74 2e 0a 5c 5c 5b 73 6c | vel.from.containing.point..\\[sl |
| 131400 | 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 5d 09 2d 20 45 76 61 6c | ime-eval-last-expression].-.Eval |
| 131420 | 75 61 74 65 20 73 65 78 70 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 5c 5c 5b 73 6c 69 6d 65 | uate.sexp.before.point..\\[slime |
| 131440 | 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 5d 09 5c 0a | -pprint-eval-last-expression].\. |
| 131460 | 2d 20 45 76 61 6c 75 61 74 65 20 73 65 78 70 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2c 20 70 72 | -.Evaluate.sexp.before.point,.pr |
| 131480 | 65 74 74 79 2d 70 72 69 6e 74 20 72 65 73 75 6c 74 2e 0a 0a 46 75 6c 6c 20 73 65 74 20 6f 66 20 | etty-print.result...Full.set.of. |
| 1314a0 | 63 6f 6d 6d 61 6e 64 73 3a 0a 5c 5c 7b 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 | commands:.\\{slime-mode-map}"... |
| 1314c0 | 3a 6b 65 79 6d 61 70 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 69 6e 64 69 72 65 63 74 2d 6d 61 70 0a | :keymap.slime-mode-indirect-map. |
| 1314e0 | 20 20 3a 6c 69 67 68 74 65 72 20 28 3a 65 76 61 6c 20 28 73 6c 69 6d 65 2d 6d 6f 64 65 6c 69 6e | ..:lighter.(:eval.(slime-modelin |
| 131500 | 65 2d 73 74 72 69 6e 67 29 29 0a 20 20 28 63 6f 6e 64 20 28 73 6c 69 6d 65 2d 6d 6f 64 65 20 28 | e-string))...(cond.(slime-mode.( |
| 131520 | 73 6c 69 6d 65 2d 2d 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 73 6c 69 6d 65 2d 2d 6f | slime--on)).........(t.(slime--o |
| 131540 | 66 66 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 3b 20 4d 6f 64 65 6c 69 6e 65 0a 0a 28 64 65 66 75 | ff))))....;;;;;;.Modeline..(defu |
| 131560 | 6e 20 73 6c 69 6d 65 2d 6d 6f 64 65 6c 69 6e 65 2d 73 74 72 69 6e 67 20 28 29 0a 20 20 22 52 65 | n.slime-modeline-string.()..."Re |
| 131580 | 74 75 72 6e 20 74 68 65 20 73 74 72 69 6e 67 20 74 6f 20 64 69 73 70 6c 61 79 20 69 6e 20 74 68 | turn.the.string.to.display.in.th |
| 1315a0 | 65 20 6d 6f 64 65 6c 69 6e 65 2e 0a 5c 22 53 6c 69 6d 65 5c 22 20 6f 6e 6c 79 20 61 70 70 65 61 | e.modeline..\"Slime\".only.appea |
| 1315c0 | 72 73 20 69 66 20 77 65 20 61 72 65 6e 27 74 20 63 6f 6e 6e 65 63 74 65 64 2e 20 20 49 66 20 63 | rs.if.we.aren't.connected...If.c |
| 1315e0 | 6f 6e 6e 65 63 74 65 64 2c 0a 69 6e 63 6c 75 64 65 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 2c 20 | onnected,.include.package-name,. |
| 131600 | 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 2c 20 61 6e 64 20 70 6f 73 73 69 62 6c 79 20 73 6f | connection-name,.and.possibly.so |
| 131620 | 6d 65 20 73 74 61 74 65 0a 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 | me.state.information."...(let.(( |
| 131640 | 63 6f 6e 6e 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 | conn.(slime-current-connection)) |
| 131660 | 29 0a 20 20 20 20 3b 3b 20 42 61 69 6c 20 6f 75 74 20 65 61 72 6c 79 20 69 6e 20 63 61 73 65 20 | ).....;;.Bail.out.early.in.case. |
| 131680 | 74 68 65 72 65 27 73 20 6e 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 2c 20 73 6f 20 77 65 20 77 6f 6e | there's.no.connection,.so.we.won |
| 1316a0 | 27 74 0a 20 20 20 20 3b 3b 20 69 6d 70 6c 69 63 69 74 6c 79 20 69 6e 76 6f 6b 65 20 60 73 6c 69 | 't.....;;.implicitly.invoke.`sli |
| 1316c0 | 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 27 20 77 68 69 63 68 20 6d 61 79 20 71 75 65 72 79 20 74 | me-connection'.which.may.query.t |
| 1316e0 | 68 65 20 75 73 65 72 2e 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 63 6f 6e 6e 29 0a 20 20 20 20 | he.user......(if.(not.conn)..... |
| 131700 | 20 20 20 20 28 61 6e 64 20 73 6c 69 6d 65 2d 6d 6f 64 65 20 22 20 53 6c 69 6d 65 22 29 0a 20 20 | ....(and.slime-mode.".Slime")... |
| 131720 | 20 20 20 20 28 6c 65 74 20 28 28 6c 6f 63 61 6c 20 28 65 71 20 63 6f 6e 6e 20 73 6c 69 6d 65 2d | ....(let.((local.(eq.conn.slime- |
| 131740 | 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | buffer-connection))............. |
| 131760 | 28 70 6b 67 20 20 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 | (pkg...(slime-current-package))) |
| 131780 | 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 | .........(concat."."............ |
| 1317a0 | 20 20 20 20 20 28 69 66 20 6c 6f 63 61 6c 20 22 7b 22 20 22 5b 22 29 0a 20 20 20 20 20 20 20 20 | .....(if.local."{"."[")......... |
| 1317c0 | 20 20 20 20 20 20 20 20 28 69 66 20 70 6b 67 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d | ........(if.pkg.(replace-regexp- |
| 1317e0 | 69 6e 2d 73 74 72 69 6e 67 20 22 25 22 20 22 25 25 22 20 28 73 6c 69 6d 65 2d 70 72 65 74 74 79 | in-string."%"."%%".(slime-pretty |
| 131800 | 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 6b 67 29 29 20 22 3f 22 29 0a 20 20 20 20 20 20 20 | -package-name.pkg))."?")........ |
| 131820 | 20 20 20 20 20 20 20 20 20 22 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | .........".".................;;. |
| 131840 | 69 67 6e 6f 72 65 20 65 72 72 6f 72 73 20 66 6f 72 20 63 6c 6f 73 65 64 20 63 6f 6e 6e 65 63 74 | ignore.errors.for.closed.connect |
| 131860 | 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 | ions.................(ignore-err |
| 131880 | 6f 72 73 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 20 63 6f 6e 6e 29 | ors.(slime-connection-name.conn) |
| 1318a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 6f 64 65 6c 69 6e | ).................(slime-modelin |
| 1318c0 | 65 2d 73 74 61 74 65 2d 73 74 72 69 6e 67 20 63 6f 6e 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | e-state-string.conn)............ |
| 1318e0 | 20 20 20 20 20 28 69 66 20 6c 6f 63 61 6c 20 22 7d 22 20 22 5d 22 29 29 29 29 29 29 0a 0a 28 64 | .....(if.local."}"."]"))))))..(d |
| 131900 | 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 74 74 79 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 | efun.slime-pretty-package-name.( |
| 131920 | 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 70 72 65 74 74 79 20 76 65 72 73 69 6f 6e | name)..."Return.a.pretty.version |
| 131940 | 20 6f 66 20 61 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 20 4e 41 4d 45 2e 22 0a 20 20 28 63 6f 6e | .of.a.package.name.NAME."...(con |
| 131960 | 64 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 23 3f 3a 5c 5c 28 2e 2a 5c 5c 29 24 22 | d.((string-match."^#?:\\(.*\\)$" |
| 131980 | 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 | .name)..........(match-string.1. |
| 1319a0 | 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e | name)).........((string-match."^ |
| 1319c0 | 5c 22 5c 5c 28 2e 2a 5c 5c 29 5c 22 24 22 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 28 6d | \"\\(.*\\)\"$".name)..........(m |
| 1319e0 | 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 | atch-string.1.name)).........(t. |
| 131a00 | 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 6f 64 65 6c 69 6e 65 2d 73 | name)))..(defun.slime-modeline-s |
| 131a20 | 74 61 74 65 2d 73 74 72 69 6e 67 20 28 63 6f 6e 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 | tate-string.(conn)..."Return.a.s |
| 131a40 | 74 72 69 6e 67 20 70 6f 73 73 69 62 6c 79 20 64 65 73 63 72 69 62 69 6e 67 20 43 4f 4e 4e 27 73 | tring.possibly.describing.CONN's |
| 131a60 | 20 73 74 61 74 65 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 28 65 71 20 28 70 72 6f 63 | .state."...(cond.((not.(eq.(proc |
| 131a80 | 65 73 73 2d 73 74 61 74 75 73 20 63 6f 6e 6e 29 20 27 6f 70 65 6e 29 29 0a 20 20 20 20 20 20 20 | ess-status.conn).'open))........ |
| 131aa0 | 20 20 28 66 6f 72 6d 61 74 20 22 20 25 73 22 20 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 | ..(format.".%s".(process-status. |
| 131ac0 | 63 6f 6e 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 6c 65 74 20 28 28 70 65 6e 64 69 6e 67 20 | conn))).........((let.((pending. |
| 131ae0 | 28 6c 65 6e 67 74 68 20 28 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 | (length.(slime-rex-continuations |
| 131b00 | 20 63 6f 6e 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 73 20 28 | .conn)))................(sldbs.( |
| 131b20 | 6c 65 6e 67 74 68 20 28 73 6c 64 62 2d 62 75 66 66 65 72 73 20 63 6f 6e 6e 29 29 29 29 0a 20 20 | length.(sldb-buffers.conn))))... |
| 131b40 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 7a 65 72 6f 70 20 73 6c 64 62 | .........(cond.((and.(zerop.sldb |
| 131b60 | 73 29 20 28 7a 65 72 6f 70 20 70 65 6e 64 69 6e 67 29 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 | s).(zerop.pending)).nil)........ |
| 131b80 | 20 20 20 20 20 20 20 20 20 20 28 28 7a 65 72 6f 70 20 73 6c 64 62 73 29 20 28 66 6f 72 6d 61 74 | ..........((zerop.sldbs).(format |
| 131ba0 | 20 22 20 25 73 22 20 70 65 6e 64 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .".%s".pending))................ |
| 131bc0 | 20 20 28 74 20 28 66 6f 72 6d 61 74 20 22 20 25 73 2f 25 73 22 20 70 65 6e 64 69 6e 67 20 73 6c | ..(t.(format.".%s/%s".pending.sl |
| 131be0 | 64 62 73 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 2d 72 65 63 6f 6d 70 | dbs)))))))..(defun.slime--recomp |
| 131c00 | 75 74 65 2d 6d 6f 64 65 6c 69 6e 65 73 20 28 29 0a 20 20 28 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c | ute-modelines.()...(force-mode-l |
| 131c20 | 69 6e 65 2d 75 70 64 61 74 65 20 74 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 4b 65 79 20 62 69 6e 64 | ine-update.t))....;;;;;.Key.bind |
| 131c40 | 69 6e 67 73 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 70 61 72 65 6e 74 2d 6d 61 70 20 6e | ings..(defvar.slime-parent-map.n |
| 131c60 | 69 6c 0a 20 20 22 50 61 72 65 6e 74 20 6b 65 79 6d 61 70 20 66 6f 72 20 73 68 61 72 65 64 20 62 | il..."Parent.keymap.for.shared.b |
| 131c80 | 65 74 77 65 65 6e 20 61 6c 6c 20 53 6c 69 6d 65 20 72 65 6c 61 74 65 64 20 6d 6f 64 65 73 2e 22 | etween.all.Slime.related.modes." |
| 131ca0 | 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 70 61 72 65 6e 74 2d 62 69 6e 64 69 6e 67 73 | )..(defvar.slime-parent-bindings |
| 131cc0 | 0a 20 20 27 28 28 22 5c 4d 2d 2e 22 20 20 20 20 20 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 | ...'(("\M-."......slime-edit-def |
| 131ce0 | 69 6e 69 74 69 6f 6e 29 0a 20 20 20 20 28 22 5c 4d 2d 2c 22 20 20 20 20 20 20 73 6c 69 6d 65 2d | inition).....("\M-,"......slime- |
| 131d00 | 70 6f 70 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 63 6b 29 0a 20 20 20 20 28 | pop-find-definition-stack).....( |
| 131d20 | 22 5c 4d 2d 5f 22 20 20 20 20 20 20 73 6c 69 6d 65 2d 65 64 69 74 2d 75 73 65 73 29 20 20 20 20 | "\M-_"......slime-edit-uses).... |
| 131d40 | 3b 20 66 6f 72 20 47 65 72 6d 61 6e 20 6c 61 79 6f 75 74 0a 20 20 20 20 28 22 5c 4d 2d 3f 22 20 | ;.for.German.layout.....("\M-?". |
| 131d60 | 20 20 20 20 20 73 6c 69 6d 65 2d 65 64 69 74 2d 75 73 65 73 29 20 20 20 20 3b 20 66 6f 72 20 55 | .....slime-edit-uses)....;.for.U |
| 131d80 | 53 69 61 6e 20 6c 61 79 6f 75 74 0a 20 20 20 20 28 22 5c 43 2d 78 34 2e 22 20 20 20 20 73 6c 69 | Sian.layout.....("\C-x4."....sli |
| 131da0 | 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 | me-edit-definition-other-window) |
| 131dc0 | 0a 20 20 20 20 28 22 5c 43 2d 78 35 2e 22 20 20 20 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 | .....("\C-x5."....slime-edit-def |
| 131de0 | 69 6e 69 74 69 6f 6e 2d 6f 74 68 65 72 2d 66 72 61 6d 65 29 0a 20 20 20 20 28 22 5c 43 2d 78 5c | inition-other-frame).....("\C-x\ |
| 131e00 | 43 2d 65 22 20 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e | C-e"..slime-eval-last-expression |
| 131e20 | 29 0a 20 20 20 20 28 22 5c 43 2d 5c 4d 2d 78 22 20 20 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 | ).....("\C-\M-x"...slime-eval-de |
| 131e40 | 66 75 6e 29 0a 20 20 20 20 3b 3b 20 49 6e 63 6c 75 64 65 20 50 52 45 46 49 58 20 6b 65 79 73 2e | fun).....;;.Include.PREFIX.keys. |
| 131e60 | 2e 2e 0a 20 20 20 20 28 22 5c 43 2d 63 22 09 20 73 6c 69 6d 65 2d 70 72 65 66 69 78 2d 6d 61 70 | .......("\C-c"..slime-prefix-map |
| 131e80 | 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 70 72 65 66 69 78 2d 6d 61 70 20 6e 69 | )))..(defvar.slime-prefix-map.ni |
| 131ea0 | 6c 0a 20 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 73 20 70 72 65 66 69 78 65 | l..."Keymap.for.commands.prefixe |
| 131ec0 | 64 20 77 69 74 68 20 60 73 6c 69 6d 65 2d 70 72 65 66 69 78 2d 6b 65 79 27 2e 22 29 0a 0a 28 64 | d.with.`slime-prefix-key'.")..(d |
| 131ee0 | 65 66 76 61 72 20 73 6c 69 6d 65 2d 70 72 65 66 69 78 2d 62 69 6e 64 69 6e 67 73 0a 20 20 27 28 | efvar.slime-prefix-bindings...'( |
| 131f00 | 28 22 5c 43 2d 72 22 20 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 29 0a 20 20 20 20 | ("\C-r"..slime-eval-region)..... |
| 131f20 | 28 22 3a 22 20 20 20 20 20 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 29 | (":".....slime-interactive-eval) |
| 131f40 | 0a 20 20 20 20 28 22 5c 43 2d 65 22 20 20 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d | .....("\C-e"..slime-interactive- |
| 131f60 | 65 76 61 6c 29 0a 20 20 20 20 28 22 45 22 20 20 20 20 20 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 | eval).....("E".....slime-edit-va |
| 131f80 | 6c 75 65 29 0a 20 20 20 20 28 22 5c 43 2d 6c 22 20 20 73 6c 69 6d 65 2d 6c 6f 61 64 2d 66 69 6c | lue).....("\C-l"..slime-load-fil |
| 131fa0 | 65 29 0a 20 20 20 20 28 22 5c 43 2d 62 22 20 20 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 29 | e).....("\C-b"..slime-interrupt) |
| 131fc0 | 0a 20 20 20 20 28 22 5c 4d 2d 64 22 20 20 73 6c 69 6d 65 2d 64 69 73 61 73 73 65 6d 62 6c 65 2d | .....("\M-d"..slime-disassemble- |
| 131fe0 | 73 79 6d 62 6f 6c 29 0a 20 20 20 20 28 22 5c 43 2d 74 22 20 20 73 6c 69 6d 65 2d 74 6f 67 67 6c | symbol).....("\C-t"..slime-toggl |
| 132000 | 65 2d 74 72 61 63 65 2d 66 64 65 66 69 6e 69 74 69 6f 6e 29 0a 20 20 20 20 28 22 49 22 20 20 20 | e-trace-fdefinition).....("I"... |
| 132020 | 20 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 29 0a 20 20 20 20 28 22 5c 43 2d 78 74 22 20 73 6c | ..slime-inspect).....("\C-xt".sl |
| 132040 | 69 6d 65 2d 6c 69 73 74 2d 74 68 72 65 61 64 73 29 0a 20 20 20 20 28 22 5c 43 2d 78 6e 22 20 73 | ime-list-threads).....("\C-xn".s |
| 132060 | 6c 69 6d 65 2d 6e 65 78 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 22 5c 43 2d 78 | lime-next-connection).....("\C-x |
| 132080 | 70 22 20 73 6c 69 6d 65 2d 70 72 65 76 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 22 | p".slime-prev-connection).....(" |
| 1320a0 | 5c 43 2d 78 63 22 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 29 0a 20 | \C-xc".slime-list-connections).. |
| 1320c0 | 20 20 20 28 22 3c 22 20 20 20 20 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 61 6c 6c 65 72 73 29 0a | ...("<".....slime-list-callers). |
| 1320e0 | 20 20 20 20 28 22 3e 22 20 20 20 20 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 61 6c 6c 65 65 73 29 | ....(">".....slime-list-callees) |
| 132100 | 0a 20 20 20 20 3b 3b 20 49 6e 63 6c 75 64 65 20 44 4f 43 20 6b 65 79 73 2e 2e 2e 0a 20 20 20 20 | .....;;.Include.DOC.keys........ |
| 132120 | 28 22 5c 43 2d 64 22 20 20 73 6c 69 6d 65 2d 64 6f 63 2d 6d 61 70 29 0a 20 20 20 20 3b 3b 20 49 | ("\C-d"..slime-doc-map).....;;.I |
| 132140 | 6e 63 6c 75 64 65 20 58 52 45 46 20 57 48 4f 2d 46 4f 4f 20 6b 65 79 73 2e 2e 2e 0a 20 20 20 20 | nclude.XREF.WHO-FOO.keys........ |
| 132160 | 28 22 5c 43 2d 77 22 20 20 73 6c 69 6d 65 2d 77 68 6f 2d 6d 61 70 29 0a 20 20 20 20 29 29 0a 0a | ("\C-w"..slime-who-map).....)).. |
| 132180 | 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 6d 61 70 20 6e 69 6c 0a 20 20 | (defvar.slime-editing-map.nil... |
| 1321a0 | 22 54 68 65 73 65 20 6b 65 79 73 20 61 72 65 20 75 73 65 66 75 6c 20 66 6f 72 20 62 75 66 66 65 | "These.keys.are.useful.for.buffe |
| 1321c0 | 72 73 20 77 68 65 72 65 20 74 68 65 20 75 73 65 72 20 63 61 6e 20 69 6e 73 65 72 74 20 61 6e 64 | rs.where.the.user.can.insert.and |
| 1321e0 | 0a 65 64 69 74 20 73 2d 65 78 70 72 73 2c 20 65 2e 67 2e 20 66 6f 72 20 73 6f 75 72 63 65 20 62 | .edit.s-exprs,.e.g..for.source.b |
| 132200 | 75 66 66 65 72 73 20 61 6e 64 20 74 68 65 20 52 45 50 4c 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 | uffers.and.the.REPL.")..(defvar. |
| 132220 | 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 6b 65 79 73 0a 20 20 60 28 3b 3b 20 41 72 67 6c 69 73 | slime-editing-keys...`(;;.Arglis |
| 132240 | 74 20 64 69 73 70 6c 61 79 20 26 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 28 22 20 22 20 | t.display.&.completion.....(".". |
| 132260 | 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 73 70 61 63 65 29 0a 20 20 20 20 3b 3b 20 45 76 61 | .........slime-space).....;;.Eva |
| 132280 | 6c 75 61 74 69 6e 67 0a 20 20 20 20 3b 3b 28 22 5c 43 2d 78 5c 4d 2d 65 22 20 73 6c 69 6d 65 2d | luating.....;;("\C-x\M-e".slime- |
| 1322a0 | 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 2d 64 69 73 70 6c 61 79 2d 6f 75 74 | eval-last-expression-display-out |
| 1322c0 | 70 75 74 20 3a 69 6e 66 65 72 69 6f 72 20 74 29 0a 20 20 20 20 28 22 5c 43 2d 63 5c 43 2d 70 22 | put.:inferior.t).....("\C-c\C-p" |
| 1322e0 | 20 20 20 73 6c 69 6d 65 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 | ...slime-pprint-eval-last-expres |
| 132300 | 73 69 6f 6e 29 0a 20 20 20 20 3b 3b 20 4d 61 63 72 6f 65 78 70 61 6e 64 0a 20 20 20 20 28 22 5c | sion).....;;.Macroexpand.....("\ |
| 132320 | 43 2d 63 5c 43 2d 6d 22 20 20 20 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 31 29 0a 20 20 20 20 28 | C-c\C-m"...slime-expand-1).....( |
| 132340 | 22 5c 43 2d 63 5c 4d 2d 6d 22 20 20 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 | "\C-c\M-m"...slime-macroexpand-a |
| 132360 | 6c 6c 29 0a 20 20 20 20 3b 3b 20 4d 69 73 63 0a 20 20 20 20 28 22 5c 43 2d 63 5c 43 2d 75 22 20 | ll).....;;.Misc.....("\C-c\C-u". |
| 132380 | 20 20 73 6c 69 6d 65 2d 75 6e 64 65 66 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 28 | ..slime-undefine-function).....( |
| 1323a0 | 2c 28 6b 62 64 20 22 43 2d 4d 2d 2e 22 29 20 20 20 73 6c 69 6d 65 2d 6e 65 78 74 2d 6c 6f 63 61 | ,(kbd."C-M-.")...slime-next-loca |
| 1323c0 | 74 69 6f 6e 29 0a 20 20 20 20 28 2c 28 6b 62 64 20 22 43 2d 4d 2d 2c 22 29 20 20 20 73 6c 69 6d | tion).....(,(kbd."C-M-,")...slim |
| 1323e0 | 65 2d 70 72 65 76 69 6f 75 73 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 3b 3b 20 4f 62 73 6f | e-previous-location).....;;.Obso |
| 132400 | 6c 65 74 65 2c 20 72 65 64 75 6e 64 61 6e 74 20 62 69 6e 64 69 6e 67 73 0a 20 20 20 20 28 22 5c | lete,.redundant.bindings.....("\ |
| 132420 | 43 2d 63 5c 43 2d 69 22 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 | C-c\C-i".completion-at-point)... |
| 132440 | 20 20 3b 3b 28 22 5c 4d 2d 2a 22 20 70 6f 70 2d 74 61 67 2d 6d 61 72 6b 29 20 3b 20 61 6c 6d 6f | ..;;("\M-*".pop-tag-mark).;.almo |
| 132460 | 73 74 20 74 6f 20 63 6c 65 76 65 72 0a 20 20 20 20 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 | st.to.clever.....))..(defvar.sli |
| 132480 | 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 0a 20 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 73 6c | me-mode-map.nil..."Keymap.for.sl |
| 1324a0 | 69 6d 65 2d 6d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6b 65 79 73 0a | ime-mode.")..(defvar.slime-keys. |
| 1324c0 | 20 20 27 28 20 3b 3b 20 43 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 0a 20 20 20 20 28 22 5c 4d 2d | ..'(.;;.Compiler.notes.....("\M- |
| 1324e0 | 70 22 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 6e 6f 74 65 29 0a 20 20 | p".......slime-previous-note)... |
| 132500 | 20 20 28 22 5c 4d 2d 6e 22 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 78 74 2d 6e 6f 74 65 29 | ..("\M-n".......slime-next-note) |
| 132520 | 0a 20 20 20 20 28 22 5c 43 2d 63 5c 4d 2d 63 22 20 20 20 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d | .....("\C-c\M-c"...slime-remove- |
| 132540 | 6e 6f 74 65 73 29 0a 20 20 20 20 28 22 5c 43 2d 63 5c 43 2d 6b 22 20 20 20 73 6c 69 6d 65 2d 63 | notes).....("\C-c\C-k"...slime-c |
| 132560 | 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 2d 66 69 6c 65 29 0a 20 20 20 20 28 22 5c 43 2d 63 | ompile-and-load-file).....("\C-c |
| 132580 | 5c 4d 2d 6b 22 20 20 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 29 0a 20 20 20 20 | \M-k"...slime-compile-file)..... |
| 1325a0 | 28 22 5c 43 2d 63 5c 43 2d 63 22 20 20 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 64 65 66 75 | ("\C-c\C-c"...slime-compile-defu |
| 1325c0 | 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 6f 70 20 28 29 0a 20 20 22 54 68 65 | n)))..(defun.slime-nop.()..."The |
| 1325e0 | 20 6e 75 6c 6c 20 63 6f 6d 6d 61 6e 64 2e 20 55 73 65 64 20 74 6f 20 73 68 61 64 6f 77 20 63 75 | .null.command..Used.to.shadow.cu |
| 132600 | 72 72 65 6e 74 6c 79 2d 75 6e 75 73 65 64 20 6b 65 79 62 69 6e 64 69 6e 67 73 2e 22 0a 20 20 28 | rrently-unused.keybindings."...( |
| 132620 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 | interactive)...(call-interactive |
| 132640 | 6c 79 20 27 75 6e 64 65 66 69 6e 65 64 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 64 | ly.'undefined))..(defvar.slime-d |
| 132660 | 6f 63 2d 6d 61 70 20 6e 69 6c 0a 20 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 64 6f 63 75 6d 65 6e | oc-map.nil..."Keymap.for.documen |
| 132680 | 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 2e 20 42 6f 75 6e 64 20 74 6f 20 61 20 70 72 65 66 | tation.commands..Bound.to.a.pref |
| 1326a0 | 69 78 20 6b 65 79 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 64 6f 63 2d 62 69 6e | ix.key.")..(defvar.slime-doc-bin |
| 1326c0 | 64 69 6e 67 73 0a 20 20 27 28 28 3f 61 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 29 0a 20 20 20 | dings...'((?a.slime-apropos).... |
| 1326e0 | 20 28 3f 7a 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 61 6c 6c 29 0a 20 20 20 20 28 3f 70 20 | .(?z.slime-apropos-all).....(?p. |
| 132700 | 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 70 61 63 6b 61 67 65 29 0a 20 20 20 20 28 3f 64 20 73 | slime-apropos-package).....(?d.s |
| 132720 | 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 28 3f 66 20 73 6c | lime-describe-symbol).....(?f.sl |
| 132740 | 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 28 3f 68 20 73 | ime-describe-function).....(?h.s |
| 132760 | 6c 69 6d 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 6c 6f 6f 6b 75 70 29 0a 20 20 20 20 28 | lime-documentation-lookup).....( |
| 132780 | 3f 7e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 66 6f 72 6d 61 74 29 | ?~.common-lisp-hyperspec-format) |
| 1327a0 | 0a 20 20 20 20 28 3f 67 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 67 | .....(?g.common-lisp-hyperspec-g |
| 1327c0 | 6c 6f 73 73 61 72 79 2d 74 65 72 6d 29 0a 20 20 20 20 28 3f 23 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 | lossary-term).....(?#.common-lis |
| 1327e0 | 70 2d 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 2d 72 65 61 64 65 72 2d 6d 61 63 72 6f 29 | p-hyperspec-lookup-reader-macro) |
| 132800 | 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 77 68 6f 2d 6d 61 70 20 6e 69 6c 0a 20 20 | ))..(defvar.slime-who-map.nil... |
| 132820 | 22 4b 65 79 6d 61 70 20 66 6f 72 20 77 68 6f 2d 78 72 65 66 20 63 6f 6d 6d 61 6e 64 73 2e 20 42 | "Keymap.for.who-xref.commands..B |
| 132840 | 6f 75 6e 64 20 74 6f 20 61 20 70 72 65 66 69 78 20 6b 65 79 2e 22 29 0a 0a 28 64 65 66 76 61 72 | ound.to.a.prefix.key.")..(defvar |
| 132860 | 20 73 6c 69 6d 65 2d 77 68 6f 2d 62 69 6e 64 69 6e 67 73 0a 20 20 27 28 28 3f 63 20 73 6c 69 6d | .slime-who-bindings...'((?c.slim |
| 132880 | 65 2d 77 68 6f 2d 63 61 6c 6c 73 29 0a 20 20 20 20 28 3f 77 20 73 6c 69 6d 65 2d 63 61 6c 6c 73 | e-who-calls).....(?w.slime-calls |
| 1328a0 | 2d 77 68 6f 29 0a 20 20 20 20 28 3f 72 20 73 6c 69 6d 65 2d 77 68 6f 2d 72 65 66 65 72 65 6e 63 | -who).....(?r.slime-who-referenc |
| 1328c0 | 65 73 29 0a 20 20 20 20 28 3f 62 20 73 6c 69 6d 65 2d 77 68 6f 2d 62 69 6e 64 73 29 0a 20 20 20 | es).....(?b.slime-who-binds).... |
| 1328e0 | 20 28 3f 73 20 73 6c 69 6d 65 2d 77 68 6f 2d 73 65 74 73 29 0a 20 20 20 20 28 3f 6d 20 73 6c 69 | .(?s.slime-who-sets).....(?m.sli |
| 132900 | 6d 65 2d 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 29 0a 20 20 20 20 28 3f 61 20 73 6c 69 | me-who-macroexpands).....(?a.sli |
| 132920 | 6d 65 2d 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | me-who-specializes)))..(defun.sl |
| 132940 | 69 6d 65 2d 69 6e 69 74 2d 6b 65 79 6d 61 70 73 20 28 29 0a 20 20 22 28 52 65 29 69 6e 69 74 69 | ime-init-keymaps.()..."(Re)initi |
| 132960 | 61 6c 69 7a 65 20 74 68 65 20 6b 65 79 6d 61 70 73 20 66 6f 72 20 60 73 6c 69 6d 65 2d 6d 6f 64 | alize.the.keymaps.for.`slime-mod |
| 132980 | 65 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e | e'."...(interactive)...(slime-in |
| 1329a0 | 69 74 2d 6b 65 79 6d 61 70 20 27 73 6c 69 6d 65 2d 64 6f 63 2d 6d 61 70 20 74 20 74 20 73 6c 69 | it-keymap.'slime-doc-map.t.t.sli |
| 1329c0 | 6d 65 2d 64 6f 63 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 69 74 2d 6b | me-doc-bindings)...(slime-init-k |
| 1329e0 | 65 79 6d 61 70 20 27 73 6c 69 6d 65 2d 77 68 6f 2d 6d 61 70 20 74 20 74 20 73 6c 69 6d 65 2d 77 | eymap.'slime-who-map.t.t.slime-w |
| 132a00 | 68 6f 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 69 74 2d 6b 65 79 6d 61 | ho-bindings)...(slime-init-keyma |
| 132a20 | 70 20 27 73 6c 69 6d 65 2d 70 72 65 66 69 78 2d 6d 61 70 20 74 20 6e 69 6c 20 73 6c 69 6d 65 2d | p.'slime-prefix-map.t.nil.slime- |
| 132a40 | 70 72 65 66 69 78 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 69 74 2d 6b | prefix-bindings)...(slime-init-k |
| 132a60 | 65 79 6d 61 70 20 27 73 6c 69 6d 65 2d 70 61 72 65 6e 74 2d 6d 61 70 20 6e 69 6c 20 6e 69 6c 20 | eymap.'slime-parent-map.nil.nil. |
| 132a80 | 73 6c 69 6d 65 2d 70 61 72 65 6e 74 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 28 73 6c 69 6d 65 2d | slime-parent-bindings)...(slime- |
| 132aa0 | 69 6e 69 74 2d 6b 65 79 6d 61 70 20 27 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 6d 61 70 20 6e | init-keymap.'slime-editing-map.n |
| 132ac0 | 69 6c 20 6e 69 6c 20 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 6b 65 79 73 29 0a 20 20 28 73 65 | il.nil.slime-editing-keys)...(se |
| 132ae0 | 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 6d 61 | t-keymap-parent.slime-editing-ma |
| 132b00 | 70 20 73 6c 69 6d 65 2d 70 61 72 65 6e 74 2d 6d 61 70 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 69 | p.slime-parent-map)...(slime-ini |
| 132b20 | 74 2d 6b 65 79 6d 61 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 6e 69 6c | t-keymap.'slime-mode-map.nil.nil |
| 132b40 | 20 73 6c 69 6d 65 2d 6b 65 79 73 29 0a 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e | .slime-keys)...(set-keymap-paren |
| 132b60 | 74 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 6d | t.slime-mode-map.slime-editing-m |
| 132b80 | 61 70 29 0a 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 73 6c 69 6d 65 2d 6d | ap)...(set-keymap-parent.slime-m |
| 132ba0 | 6f 64 65 2d 69 6e 64 69 72 65 63 74 2d 6d 61 70 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 29 | ode-indirect-map.slime-mode-map) |
| 132bc0 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 69 74 2d 6b 65 79 6d 61 70 20 28 6b 65 79 | )..(defun.slime-init-keymap.(key |
| 132be0 | 6d 61 70 2d 6e 61 6d 65 20 70 72 65 66 69 78 70 20 62 6f 74 68 70 20 62 69 6e 64 69 6e 67 73 29 | map-name.prefixp.bothp.bindings) |
| 132c00 | 0a 20 20 28 73 65 74 20 6b 65 79 6d 61 70 2d 6e 61 6d 65 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 | ...(set.keymap-name.(make-sparse |
| 132c20 | 2d 6b 65 79 6d 61 70 29 29 0a 20 20 28 77 68 65 6e 20 70 72 65 66 69 78 70 20 28 64 65 66 69 6e | -keymap))...(when.prefixp.(defin |
| 132c40 | 65 2d 70 72 65 66 69 78 2d 63 6f 6d 6d 61 6e 64 20 6b 65 79 6d 61 70 2d 6e 61 6d 65 29 29 0a 20 | e-prefix-command.keymap-name)).. |
| 132c60 | 20 28 73 6c 69 6d 65 2d 62 69 6e 64 2d 6b 65 79 73 20 28 65 76 61 6c 20 6b 65 79 6d 61 70 2d 6e | .(slime-bind-keys.(eval.keymap-n |
| 132c80 | 61 6d 65 29 20 62 6f 74 68 70 20 62 69 6e 64 69 6e 67 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | ame).bothp.bindings))..(defun.sl |
| 132ca0 | 69 6d 65 2d 62 69 6e 64 2d 6b 65 79 73 20 28 6b 65 79 6d 61 70 20 62 6f 74 68 70 20 62 69 6e 64 | ime-bind-keys.(keymap.bothp.bind |
| 132cc0 | 69 6e 67 73 29 0a 20 20 22 41 64 64 20 42 49 4e 44 49 4e 47 53 20 74 6f 20 4b 45 59 4d 41 50 2e | ings)..."Add.BINDINGS.to.KEYMAP. |
| 132ce0 | 0a 49 66 20 42 4f 54 48 50 20 69 73 20 74 72 75 65 20 61 6c 73 6f 20 61 64 64 20 62 69 6e 64 69 | .If.BOTHP.is.true.also.add.bindi |
| 132d00 | 6e 67 73 20 77 69 74 68 20 63 6f 6e 74 72 6f 6c 20 6d 6f 64 69 66 69 65 72 2e 22 0a 20 20 28 63 | ngs.with.control.modifier."...(c |
| 132d20 | 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6b 65 79 20 63 6f 6d 6d 61 6e 64 29 20 69 6e 20 62 69 6e 64 | l-loop.for.(key.command).in.bind |
| 132d40 | 69 6e 67 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 62 6f 74 68 70 0a | ings.do............(cond.(bothp. |
| 132d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 65 | ..................(define-key.ke |
| 132d80 | 79 6d 61 70 20 60 5b 2c 6b 65 79 5d 20 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 | ymap.`[,key].command)........... |
| 132da0 | 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 6b 65 79 20 3f 68 29 20 20 | ........(unless.(equal.key.?h).. |
| 132dc0 | 20 20 20 3b 20 42 75 74 20 64 6f 6e 27 74 20 62 69 6e 64 20 43 2d 68 0a 20 20 20 20 20 20 20 20 | ...;.But.don't.bind.C-h......... |
| 132de0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 65 79 6d 61 70 20 60 | ............(define-key.keymap.` |
| 132e00 | 5b 28 63 6f 6e 74 72 6f 6c 20 2c 6b 65 79 29 5d 20 63 6f 6d 6d 61 6e 64 29 29 29 0a 20 20 20 20 | [(control.,key)].command)))..... |
| 132e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 65 79 6d | .............(t.(define-key.keym |
| 132e40 | 61 70 20 6b 65 79 20 63 6f 6d 6d 61 6e 64 29 29 29 29 29 0a 0a 28 73 6c 69 6d 65 2d 69 6e 69 74 | ap.key.command)))))..(slime-init |
| 132e60 | 2d 6b 65 79 6d 61 70 73 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 73 6c | -keymaps)..(define-minor-mode.sl |
| 132e80 | 69 6d 65 2d 65 64 69 74 69 6e 67 2d 6d 6f 64 65 0a 20 20 22 4d 69 6e 6f 72 20 6d 6f 64 65 20 77 | ime-editing-mode..."Minor.mode.w |
| 132ea0 | 68 69 63 68 20 6d 61 6b 65 73 20 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 6d 61 70 20 61 76 61 | hich.makes.slime-editing-map.ava |
| 132ec0 | 69 6c 61 62 6c 65 2e 0a 5c 5c 7b 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 6d 61 70 7d 22 0a 20 | ilable..\\{slime-editing-map}".. |
| 132ee0 | 20 3a 69 6e 69 74 2d 76 61 6c 75 65 20 6e 69 6c 0a 20 20 3a 6c 69 67 68 74 65 72 20 6e 69 6c 0a | .:init-value.nil...:lighter.nil. |
| 132f00 | 20 20 3a 6b 65 79 6d 61 70 20 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 6d 61 70 29 0a 0a 0c 0a | ..:keymap.slime-editing-map).... |
| 132f20 | 3b 3b 3b 3b 20 46 72 61 6d 65 77 6f 72 6b 27 65 79 20 62 69 74 73 0a 3b 3b 3b 0a 3b 3b 3b 20 54 | ;;;;.Framework'ey.bits.;;;.;;;.T |
| 132f40 | 68 69 73 20 73 65 63 74 69 6f 6e 20 63 6f 6e 74 61 69 6e 73 20 73 6f 6d 65 20 73 74 61 6e 64 61 | his.section.contains.some.standa |
| 132f60 | 72 64 20 53 4c 49 4d 45 20 69 64 69 6f 6d 73 3a 20 62 61 73 69 63 20 6d 61 63 72 6f 73 2c 0a 3b | rd.SLIME.idioms:.basic.macros,.; |
| 132f80 | 3b 3b 20 77 61 79 73 20 6f 66 20 73 68 6f 77 69 6e 67 20 6d 65 73 73 61 67 65 73 20 74 6f 20 74 | ;;.ways.of.showing.messages.to.t |
| 132fa0 | 68 65 20 75 73 65 72 2c 20 65 74 63 2e 20 41 6c 6c 20 74 68 65 20 63 6f 64 65 20 69 6e 20 74 68 | he.user,.etc..All.the.code.in.th |
| 132fc0 | 69 73 0a 3b 3b 3b 20 66 69 6c 65 20 73 68 6f 75 6c 64 20 75 73 65 20 74 68 65 73 65 20 66 75 6e | is.;;;.file.should.use.these.fun |
| 132fe0 | 63 74 69 6f 6e 73 20 77 68 65 6e 20 61 70 70 6c 69 63 61 62 6c 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 3b | ctions.when.applicable..;;;.;;;; |
| 133000 | 3b 20 53 79 6e 74 61 63 74 69 63 20 73 75 67 61 72 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c 69 | ;.Syntactic.sugar..(defmacro.sli |
| 133020 | 6d 65 2d 64 63 61 73 65 20 28 76 61 6c 75 65 20 26 72 65 73 74 20 70 61 74 74 65 72 6e 73 29 0a | me-dcase.(value.&rest.patterns). |
| 133040 | 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 29 0a 20 20 22 44 69 73 70 61 74 | ..(declare.(indent.1))..."Dispat |
| 133060 | 63 68 20 56 41 4c 55 45 20 74 6f 20 6f 6e 65 20 6f 66 20 50 41 54 54 45 52 4e 53 2e 0a 41 20 63 | ch.VALUE.to.one.of.PATTERNS..A.c |
| 133080 | 72 6f 73 73 20 62 65 74 77 65 65 6e 20 60 63 61 73 65 27 20 61 6e 64 20 60 64 65 73 74 72 75 63 | ross.between.`case'.and.`destruc |
| 1330a0 | 74 75 72 69 6e 67 2d 62 69 6e 64 27 2e 0a 54 68 65 20 70 61 74 74 65 72 6e 20 73 79 6e 74 61 78 | turing-bind'..The.pattern.syntax |
| 1330c0 | 20 69 73 3a 0a 20 20 28 28 48 45 41 44 20 2e 20 41 52 47 53 29 20 2e 20 42 4f 44 59 29 0a 54 68 | .is:...((HEAD...ARGS)...BODY).Th |
| 1330e0 | 65 20 6c 69 73 74 20 6f 66 20 70 61 74 74 65 72 6e 73 20 69 73 20 73 65 61 72 63 68 65 64 20 66 | e.list.of.patterns.is.searched.f |
| 133100 | 6f 72 20 61 20 48 45 41 44 20 60 65 71 27 20 74 6f 20 74 68 65 20 63 61 72 20 6f 66 0a 56 41 4c | or.a.HEAD.`eq'.to.the.car.of.VAL |
| 133120 | 55 45 2e 20 49 66 20 6f 6e 65 20 69 73 20 66 6f 75 6e 64 2c 20 74 68 65 20 42 4f 44 59 20 69 73 | UE..If.one.is.found,.the.BODY.is |
| 133140 | 20 65 78 65 63 75 74 65 64 20 77 69 74 68 20 41 52 47 53 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 | .executed.with.ARGS.bound.to.the |
| 133160 | 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 76 61 6c 75 65 73 20 69 6e 20 74 68 65 20 43 44 52 | .corresponding.values.in.the.CDR |
| 133180 | 20 6f 66 20 56 41 4c 55 45 2e 22 0a 20 20 28 6c 65 74 20 28 28 6f 70 65 72 61 74 6f 72 20 28 63 | .of.VALUE."...(let.((operator.(c |
| 1331a0 | 6c 2d 67 65 6e 73 79 6d 20 22 6f 70 2d 22 29 29 0a 09 28 6f 70 65 72 61 6e 64 73 20 28 63 6c 2d | l-gensym."op-"))..(operands.(cl- |
| 1331c0 | 67 65 6e 73 79 6d 20 22 72 61 6e 64 2d 22 29 29 0a 09 28 74 6d 70 20 28 63 6c 2d 67 65 6e 73 79 | gensym."rand-"))..(tmp.(cl-gensy |
| 1331e0 | 6d 20 22 74 6d 70 2d 22 29 29 29 0a 20 20 20 20 60 28 6c 65 74 2a 20 28 28 2c 74 6d 70 20 2c 76 | m."tmp-"))).....`(let*.((,tmp.,v |
| 133200 | 61 6c 75 65 29 0a 09 20 20 20 20 28 2c 6f 70 65 72 61 74 6f 72 20 28 63 61 72 20 2c 74 6d 70 29 | alue)......(,operator.(car.,tmp) |
| 133220 | 29 0a 09 20 20 20 20 28 2c 6f 70 65 72 61 6e 64 73 20 28 63 64 72 20 2c 74 6d 70 29 29 29 0a 20 | )......(,operands.(cdr.,tmp))).. |
| 133240 | 20 20 20 20 20 20 28 63 6c 2d 63 61 73 65 20 2c 6f 70 65 72 61 74 6f 72 0a 09 20 2c 40 28 6d 61 | ......(cl-case.,operator...,@(ma |
| 133260 | 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 63 6c 61 75 73 65 29 0a 20 20 20 20 20 20 20 20 20 20 | pcar.(lambda.(clause)........... |
| 133280 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 28 63 61 72 20 63 6c 61 75 73 65 29 20 | ...........(if.(eq.(car.clause). |
| 1332a0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 74 20 | t)..........................`(t. |
| 1332c0 | 2c 40 28 63 64 72 20 63 6c 61 75 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ,@(cdr.clause))................. |
| 1332e0 | 20 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 28 | .......(cl-destructuring-bind.(( |
| 133300 | 6f 70 20 26 72 65 73 74 20 72 61 6e 64 73 29 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 20 20 | op.&rest.rands).&rest.body)..... |
| 133320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 61 75 73 65 0a 20 20 | .......................clause... |
| 133340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 6f 70 20 28 63 6c | .......................`(,op.(cl |
| 133360 | 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 2c 72 61 6e 64 73 20 2c 6f 70 65 72 | -destructuring-bind.,rands.,oper |
| 133380 | 61 6e 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ands............................ |
| 1333a0 | 20 20 20 20 20 20 2e 20 2c 28 6f 72 20 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........,(or.body............... |
| 1333c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 28 69 67 6e | ..........................'((ign |
| 1333e0 | 6f 72 65 29 29 20 3b 20 73 75 70 70 72 65 73 73 20 73 6f 6d 65 20 77 61 72 6e 69 6e 67 73 0a 20 | ore)).;.suppress.some.warnings.. |
| 133400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 133420 | 20 20 20 20 20 20 20 29 29 29 29 29 29 0a 09 09 20 20 20 70 61 74 74 65 72 6e 73 29 0a 09 20 2c | .......))))))......patterns)..., |
| 133440 | 40 28 69 66 20 28 65 71 20 28 63 61 61 72 20 28 6c 61 73 74 20 70 61 74 74 65 72 6e 73 29 29 20 | @(if.(eq.(caar.(last.patterns)). |
| 133460 | 74 29 0a 09 20 20 20 20 20 20 20 27 28 29 0a 09 20 20 20 20 20 60 28 28 74 20 28 65 72 72 6f 72 | t).........'().......`((t.(error |
| 133480 | 20 22 73 6c 69 6d 65 2d 64 63 61 73 65 20 66 61 69 6c 65 64 3a 20 25 53 22 20 2c 74 6d 70 29 29 | ."slime-dcase.failed:.%S".,tmp)) |
| 1334a0 | 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b | ))))))..(defmacro.slime-define-k |
| 1334c0 | 65 79 73 20 28 6b 65 79 6d 61 70 20 26 72 65 73 74 20 6b 65 79 2d 63 6f 6d 6d 61 6e 64 29 0a 20 | eys.(keymap.&rest.key-command).. |
| 1334e0 | 20 22 44 65 66 69 6e 65 20 6b 65 79 73 20 69 6e 20 4b 45 59 4d 41 50 2e 20 45 61 63 68 20 4b 45 | ."Define.keys.in.KEYMAP..Each.KE |
| 133500 | 59 2d 43 4f 4d 4d 41 4e 44 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 28 4b 45 59 20 43 4f 4d 4d | Y-COMMAND.is.a.list.of.(KEY.COMM |
| 133520 | 41 4e 44 29 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 29 0a 20 20 | AND)."...(declare.(indent.1))... |
| 133540 | 60 28 70 72 6f 67 6e 20 2e 20 2c 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 6b 2d 63 29 | `(progn...,(mapcar.(lambda.(k-c) |
| 133560 | 20 60 28 64 65 66 69 6e 65 2d 6b 65 79 20 2c 6b 65 79 6d 61 70 20 2e 20 2c 6b 2d 63 29 29 0a 09 | .`(define-key.,keymap...,k-c)).. |
| 133580 | 09 20 20 20 20 20 6b 65 79 2d 63 6f 6d 6d 61 6e 64 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 61 63 | ......key-command)))..(cl-defmac |
| 1335a0 | 72 6f 20 77 69 74 68 2d 73 74 72 75 63 74 20 28 28 63 6f 6e 63 2d 6e 61 6d 65 20 26 72 65 73 74 | ro.with-struct.((conc-name.&rest |
| 1335c0 | 20 73 6c 6f 74 73 29 20 73 74 72 75 63 74 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 4c 69 | .slots).struct.&body.body)..."Li |
| 1335e0 | 6b 65 20 77 69 74 68 2d 73 6c 6f 74 73 20 62 75 74 20 77 6f 72 6b 73 20 6f 6e 6c 79 20 66 6f 72 | ke.with-slots.but.works.only.for |
| 133600 | 20 73 74 72 75 63 74 73 2e 0a 5c 28 66 6e 20 28 43 4f 4e 43 2d 4e 41 4d 45 20 26 72 65 73 74 20 | .structs..\(fn.(CONC-NAME.&rest. |
| 133620 | 53 4c 4f 54 53 29 20 53 54 52 55 43 54 20 26 62 6f 64 79 20 42 4f 44 59 29 22 0a 20 20 28 64 65 | SLOTS).STRUCT.&body.BODY)"...(de |
| 133640 | 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 32 29 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 75 63 | clare.(indent.2))...(let.((struc |
| 133660 | 74 2d 76 61 72 20 28 63 6c 2d 67 65 6e 73 79 6d 20 22 73 74 72 75 63 74 22 29 29 0a 20 20 20 20 | t-var.(cl-gensym."struct"))..... |
| 133680 | 20 20 20 20 28 72 65 61 64 65 72 20 28 6c 61 6d 62 64 61 20 28 73 6c 6f 74 29 0a 20 20 20 20 20 | ....(reader.(lambda.(slot)...... |
| 1336a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 74 20 28 73 79 | .............(intern.(concat.(sy |
| 1336c0 | 6d 62 6f 6c 2d 6e 61 6d 65 20 63 6f 6e 63 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | mbol-name.conc-name)............ |
| 1336e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e | .......................(symbol-n |
| 133700 | 61 6d 65 20 73 6c 6f 74 29 29 29 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 73 74 72 75 | ame.slot)))))).....`(let.((,stru |
| 133720 | 63 74 2d 76 61 72 20 2c 73 74 72 75 63 74 29 29 0a 20 20 20 20 20 20 20 28 63 6c 2d 73 79 6d 62 | ct-var.,struct))........(cl-symb |
| 133740 | 6f 6c 2d 6d 61 63 72 6f 6c 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 2c 28 6d 61 70 63 61 72 20 | ol-macrolet............,(mapcar. |
| 133760 | 28 6c 61 6d 62 64 61 20 28 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (lambda.(slot).................. |
| 133780 | 20 20 20 20 20 28 63 6c 2d 65 74 79 70 65 63 61 73 65 20 73 6c 6f 74 0a 20 20 20 20 20 20 20 20 | .....(cl-etypecase.slot......... |
| 1337a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 60 28 2c 73 6c 6f 74 20 | ................(symbol.`(,slot. |
| 1337c0 | 28 2c 28 66 75 6e 63 61 6c 6c 20 72 65 61 64 65 72 20 73 6c 6f 74 29 20 2c 73 74 72 75 63 74 2d | (,(funcall.reader.slot).,struct- |
| 1337e0 | 76 61 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | var))).........................( |
| 133800 | 63 6f 6e 73 20 60 28 2c 28 63 6c 2d 66 69 72 73 74 20 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 | cons.`(,(cl-first.slot)......... |
| 133820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 66 75 6e 63 61 | ........................(,(funca |
| 133840 | 6c 6c 20 72 65 61 64 65 72 20 28 63 6c 2d 73 65 63 6f 6e 64 20 73 6c 6f 74 29 29 0a 20 20 20 20 | ll.reader.(cl-second.slot))..... |
| 133860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 73 74 | .............................,st |
| 133880 | 72 75 63 74 2d 76 61 72 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ruct-var)))))................... |
| 1338a0 | 20 20 73 6c 6f 74 73 29 0a 20 20 20 20 20 20 20 20 20 2e 20 2c 62 6f 64 79 29 29 29 29 0a 0a 3b | ..slots)............,body))))..; |
| 1338c0 | 3b 3b 3b 3b 20 56 65 72 79 2d 63 6f 6d 6d 6f 6e 6c 79 2d 75 73 65 64 20 66 75 6e 63 74 69 6f 6e | ;;;;.Very-commonly-used.function |
| 1338e0 | 73 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6d 65 73 73 61 67 65 2d 66 75 6e 63 74 69 6f | s..(defvar.slime-message-functio |
| 133900 | 6e 20 27 6d 65 73 73 61 67 65 29 0a 0a 3b 3b 20 49 6e 74 65 72 66 61 63 65 0a 28 64 65 66 75 6e | n.'message)..;;.Interface.(defun |
| 133920 | 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 74 79 70 65 20 26 6f 70 74 69 6f 6e | .slime-buffer-name.(type.&option |
| 133940 | 61 6c 20 68 69 64 64 65 6e 29 0a 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 6b 65 79 77 6f 72 64 | al.hidden)...(cl-assert.(keyword |
| 133960 | 70 20 74 79 70 65 29 29 0a 20 20 28 63 6f 6e 63 61 74 20 28 69 66 20 68 69 64 64 65 6e 20 22 20 | p.type))...(concat.(if.hidden.". |
| 133980 | 22 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 2a 73 6c 69 6d 65 2d | "."")...........(format."*slime- |
| 1339a0 | 25 73 2a 22 20 28 73 75 62 73 74 72 69 6e 67 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 74 79 70 | %s*".(substring.(symbol-name.typ |
| 1339c0 | 65 29 20 31 29 29 29 29 0a 0a 3b 3b 20 49 6e 74 65 72 66 61 63 65 0a 28 64 65 66 75 6e 20 73 6c | e).1))))..;;.Interface.(defun.sl |
| 1339e0 | 69 6d 65 2d 6d 65 73 73 61 67 65 20 28 66 6f 72 6d 61 74 20 26 72 65 73 74 20 61 72 67 73 29 0a | ime-message.(format.&rest.args). |
| 133a00 | 20 20 22 4c 69 6b 65 20 60 6d 65 73 73 61 67 65 27 20 62 75 74 20 77 69 74 68 20 73 70 65 63 69 | .."Like.`message'.but.with.speci |
| 133a20 | 61 6c 20 73 75 70 70 6f 72 74 20 66 6f 72 20 6d 75 6c 74 69 2d 6c 69 6e 65 20 6d 65 73 73 61 67 | al.support.for.multi-line.messag |
| 133a40 | 65 73 2e 0a 53 69 6e 67 6c 65 2d 6c 69 6e 65 20 6d 65 73 73 61 67 65 73 20 75 73 65 20 74 68 65 | es..Single-line.messages.use.the |
| 133a60 | 20 65 63 68 6f 20 61 72 65 61 2e 22 0a 20 20 28 61 70 70 6c 79 20 73 6c 69 6d 65 2d 6d 65 73 73 | .echo.area."...(apply.slime-mess |
| 133a80 | 61 67 65 2d 66 75 6e 63 74 69 6f 6e 20 66 6f 72 6d 61 74 20 61 72 67 73 29 29 0a 0a 28 64 65 66 | age-function.format.args))..(def |
| 133aa0 | 75 6e 20 73 6c 69 6d 65 2d 64 69 73 70 6c 61 79 2d 77 61 72 6e 69 6e 67 20 28 6d 65 73 73 61 67 | un.slime-display-warning.(messag |
| 133ac0 | 65 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 64 69 73 70 6c 61 79 2d 77 61 72 6e 69 6e 67 | e.&rest.args)...(display-warning |
| 133ae0 | 20 27 28 73 6c 69 6d 65 20 77 61 72 6e 69 6e 67 29 20 28 61 70 70 6c 79 20 23 27 66 6f 72 6d 61 | .'(slime.warning).(apply.#'forma |
| 133b00 | 74 20 6d 65 73 73 61 67 65 20 61 72 67 73 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 | t.message.args)))..(defvar.slime |
| 133b20 | 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 73 73 61 67 65 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c | -background-message-function.'sl |
| 133b40 | 69 6d 65 2d 64 69 73 70 6c 61 79 2d 6f 6e 65 6c 69 6e 65 72 29 0a 0a 3b 3b 20 49 6e 74 65 72 66 | ime-display-oneliner)..;;.Interf |
| 133b60 | 61 63 65 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 73 73 | ace.(defun.slime-background-mess |
| 133b80 | 61 67 65 20 28 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 26 72 65 73 74 20 66 6f 72 6d 61 74 2d | age.(format-string.&rest.format- |
| 133ba0 | 61 72 67 73 29 0a 20 20 22 44 69 73 70 6c 61 79 20 61 20 6d 65 73 73 61 67 65 20 69 6e 20 70 61 | args)..."Display.a.message.in.pa |
| 133bc0 | 73 73 69 6e 67 2e 0a 54 68 69 73 20 69 73 20 6c 69 6b 65 20 60 73 6c 69 6d 65 2d 6d 65 73 73 61 | ssing..This.is.like.`slime-messa |
| 133be0 | 67 65 27 2c 20 62 75 74 20 6c 65 73 73 20 64 69 73 74 72 61 63 74 69 6e 67 20 62 65 63 61 75 73 | ge',.but.less.distracting.becaus |
| 133c00 | 65 20 69 74 0a 77 69 6c 6c 20 6e 65 76 65 72 20 70 6f 70 20 75 70 20 61 20 62 75 66 66 65 72 20 | e.it.will.never.pop.up.a.buffer. |
| 133c20 | 6f 72 20 64 69 73 70 6c 61 79 20 6d 75 6c 74 69 2d 6c 69 6e 65 20 6d 65 73 73 61 67 65 73 2e 0a | or.display.multi-line.messages.. |
| 133c40 | 49 74 20 73 68 6f 75 6c 64 20 62 65 20 75 73 65 64 20 66 6f 72 20 5c 22 62 61 63 6b 67 72 6f 75 | It.should.be.used.for.\"backgrou |
| 133c60 | 6e 64 5c 22 20 6d 65 73 73 61 67 65 73 20 73 75 63 68 20 61 73 20 61 72 67 75 6d 65 6e 74 20 6c | nd\".messages.such.as.argument.l |
| 133c80 | 69 73 74 73 2e 22 0a 20 20 28 61 70 70 6c 79 20 73 6c 69 6d 65 2d 62 61 63 6b 67 72 6f 75 6e 64 | ists."...(apply.slime-background |
| 133ca0 | 2d 6d 65 73 73 61 67 65 2d 66 75 6e 63 74 69 6f 6e 20 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 | -message-function.format-string. |
| 133cc0 | 66 6f 72 6d 61 74 2d 61 72 67 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 69 73 70 | format-args))..(defun.slime-disp |
| 133ce0 | 6c 61 79 2d 6f 6e 65 6c 69 6e 65 72 20 28 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 26 72 65 73 | lay-oneliner.(format-string.&res |
| 133d00 | 74 20 66 6f 72 6d 61 74 2d 61 72 67 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 73 67 20 28 61 70 | t.format-args)...(let*.((msg.(ap |
| 133d20 | 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 66 6f 72 6d 61 | ply.#'format.format-string.forma |
| 133d40 | 74 2d 61 72 67 73 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6d 69 6e 69 62 75 66 66 65 | t-args))).....(unless.(minibuffe |
| 133d60 | 72 2d 77 69 6e 64 6f 77 2d 61 63 74 69 76 65 2d 70 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 | r-window-active-p.(minibuffer-wi |
| 133d80 | 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 20 22 25 73 22 20 28 73 6c 69 | ndow)).......(message.."%s".(sli |
| 133da0 | 6d 65 2d 6f 6e 65 6c 69 6e 65 72 20 6d 73 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | me-oneliner.msg)))))..(defun.sli |
| 133dc0 | 6d 65 2d 6f 6e 65 6c 69 6e 65 72 20 28 73 74 72 69 6e 67 29 0a 20 20 22 52 65 74 75 72 6e 20 53 | me-oneliner.(string)..."Return.S |
| 133de0 | 54 52 49 4e 47 20 74 72 75 6e 63 61 74 65 64 20 74 6f 20 66 69 74 20 69 6e 20 61 20 73 69 6e 67 | TRING.truncated.to.fit.in.a.sing |
| 133e00 | 6c 65 20 65 63 68 6f 2d 61 72 65 61 20 6c 69 6e 65 2e 22 0a 20 20 28 73 75 62 73 74 72 69 6e 67 | le.echo-area.line."...(substring |
| 133e20 | 20 73 74 72 69 6e 67 20 30 20 28 6d 69 6e 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 0a 20 | .string.0.(min.(length.string).. |
| 133e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 63 | ..........................(or.(c |
| 133e60 | 6c 2d 70 6f 73 69 74 69 6f 6e 20 3f 5c 6e 20 73 74 72 69 6e 67 29 20 6d 6f 73 74 2d 70 6f 73 69 | l-position.?\n.string).most-posi |
| 133e80 | 74 69 76 65 2d 66 69 78 6e 75 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tive-fixnum).................... |
| 133ea0 | 20 20 20 20 20 20 20 20 28 31 2d 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 20 28 6d 69 6e 69 62 | ........(1-.(window-width.(minib |
| 133ec0 | 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 29 29 29 29 0a 0a 3b 3b 20 49 6e 74 65 72 66 61 63 65 | uffer-window))))))..;;.Interface |
| 133ee0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 74 2d 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 | .(defun.slime-set-truncate-lines |
| 133f00 | 20 28 29 0a 20 20 22 41 70 70 6c 79 20 60 73 6c 69 6d 65 2d 74 72 75 6e 63 61 74 65 2d 6c 69 6e | .()..."Apply.`slime-truncate-lin |
| 133f20 | 65 73 27 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 77 | es'.to.the.current.buffer."...(w |
| 133f40 | 68 65 6e 20 73 6c 69 6d 65 2d 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 0a 20 20 20 20 28 73 65 | hen.slime-truncate-lines.....(se |
| 133f60 | 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 74 72 75 6e 63 61 74 65 | t.(make-local-variable.'truncate |
| 133f80 | 2d 6c 69 6e 65 73 29 20 74 29 29 29 0a 0a 3b 3b 20 49 6e 74 65 72 66 61 63 65 0a 28 64 65 66 75 | -lines).t)))..;;.Interface.(defu |
| 133fa0 | 6e 20 73 6c 69 6d 65 2d 72 65 61 64 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 70 72 6f 6d 70 | n.slime-read-package-name.(promp |
| 133fc0 | 74 20 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 29 0a 20 20 22 52 65 | t.&optional.initial-value)..."Re |
| 133fe0 | 61 64 20 61 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 | ad.a.package.name.from.the.minib |
| 134000 | 75 66 66 65 72 2c 20 70 72 6f 6d 70 74 69 6e 67 20 77 69 74 68 20 50 52 4f 4d 50 54 2e 22 0a 20 | uffer,.prompting.with.PROMPT.".. |
| 134020 | 20 28 6c 65 74 20 28 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 69 67 6e 6f 72 65 2d 63 61 73 65 20 74 | .(let.((completion-ignore-case.t |
| 134040 | 29 29 0a 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 70 72 6f 6d 70 74 20 28 | )).....(completing-read.prompt.( |
| 134060 | 73 6c 69 6d 65 2d 62 6f 67 75 73 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 6c 69 73 74 0a 20 20 20 | slime-bogus-completion-alist.... |
| 134080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | ..........................(slime |
| 1340a0 | 2d 65 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -eval........................... |
| 1340c0 | 20 20 20 20 60 28 73 77 61 6e 6b 3a 6c 69 73 74 2d 61 6c 6c 2d 70 61 63 6b 61 67 65 2d 6e 61 6d | ....`(swank:list-all-package-nam |
| 1340e0 | 65 73 20 74 29 29 29 0a 09 09 20 20 20 20 20 6e 69 6c 20 74 20 69 6e 69 74 69 61 6c 2d 76 61 6c | es.t)))........nil.t.initial-val |
| 134100 | 75 65 29 29 29 0a 0a 3b 3b 20 49 6e 74 65 72 66 61 63 65 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | ue)))..;;.Interface.(defun.slime |
| 134120 | 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 70 72 6f 6d 70 74 20 26 6f 70 74 69 6f | -read-symbol-name.(prompt.&optio |
| 134140 | 6e 61 6c 20 71 75 65 72 79 29 0a 20 20 22 45 69 74 68 65 72 20 72 65 61 64 20 61 20 73 79 6d 62 | nal.query)..."Either.read.a.symb |
| 134160 | 6f 6c 20 6e 61 6d 65 20 6f 72 20 63 68 6f 6f 73 65 20 74 68 65 20 6f 6e 65 20 61 74 20 70 6f 69 | ol.name.or.choose.the.one.at.poi |
| 134180 | 6e 74 2e 0a 54 68 65 20 75 73 65 72 20 69 73 20 70 72 6f 6d 70 74 65 64 20 69 66 20 61 20 70 72 | nt..The.user.is.prompted.if.a.pr |
| 1341a0 | 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 73 20 69 6e 20 65 66 66 65 63 74 2c 20 69 66 20 74 | efix.argument.is.in.effect,.if.t |
| 1341c0 | 68 65 72 65 20 69 73 20 6e 6f 0a 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2c 20 6f 72 20 69 | here.is.no.symbol.at.point,.or.i |
| 1341e0 | 66 20 51 55 45 52 59 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 6f | f.QUERY.is.non-nil."...(cond.((o |
| 134200 | 72 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 71 75 65 72 79 20 28 6e 6f 74 20 | r.current-prefix-arg.query.(not. |
| 134220 | 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 | (slime-symbol-at-point)))....... |
| 134240 | 20 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 70 | ...(slime-read-from-minibuffer.p |
| 134260 | 72 6f 6d 70 74 20 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a | rompt.(slime-symbol-at-point))). |
| 134280 | 20 20 20 20 20 20 20 20 28 74 20 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e | ........(t.(slime-symbol-at-poin |
| 1342a0 | 74 29 29 29 29 0a 0a 3b 3b 20 49 6e 74 65 72 66 61 63 65 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c | t))))..;;.Interface.(defmacro.sl |
| 1342c0 | 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 20 28 70 72 6f 70 73 20 26 72 65 | ime-propertize-region.(props.&re |
| 1342e0 | 73 74 20 62 6f 64 79 29 0a 20 20 22 45 78 65 63 75 74 65 20 42 4f 44 59 20 61 6e 64 20 61 64 64 | st.body)..."Execute.BODY.and.add |
| 134300 | 20 50 52 4f 50 53 20 74 6f 20 61 6c 6c 20 74 68 65 20 74 65 78 74 20 69 74 20 69 6e 73 65 72 74 | .PROPS.to.all.the.text.it.insert |
| 134320 | 73 2e 0a 4d 6f 72 65 20 70 72 65 63 69 73 65 6c 79 2c 20 50 52 4f 50 53 20 61 72 65 20 61 64 64 | s..More.precisely,.PROPS.are.add |
| 134340 | 65 64 20 74 6f 20 74 68 65 20 72 65 67 69 6f 6e 20 62 65 74 77 65 65 6e 20 74 68 65 20 70 6f 69 | ed.to.the.region.between.the.poi |
| 134360 | 6e 74 27 73 0a 70 6f 73 69 74 69 6f 6e 73 20 62 65 66 6f 72 65 20 61 6e 64 20 61 66 74 65 72 20 | nt's.positions.before.and.after. |
| 134380 | 65 78 65 63 75 74 69 6e 67 20 42 4f 44 59 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 | executing.BODY."...(declare.(ind |
| 1343a0 | 65 6e 74 20 31 29 20 28 64 65 62 75 67 20 28 73 65 78 70 20 26 72 65 73 74 20 66 6f 72 6d 29 29 | ent.1).(debug.(sexp.&rest.form)) |
| 1343c0 | 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 63 6c 2d 67 65 6e 73 79 6d 29 29 29 0a 20 | )...(let.((start.(cl-gensym))).. |
| 1343e0 | 20 20 20 60 28 6c 65 74 20 28 28 2c 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 | ...`(let.((,start.(point)))..... |
| 134400 | 20 20 20 28 70 72 6f 67 31 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 0a 09 20 28 61 64 64 2d | ...(prog1.(progn.,@body)...(add- |
| 134420 | 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 2c 73 74 61 72 74 20 28 70 6f 69 6e 74 29 20 2c | text-properties.,start.(point)., |
| 134440 | 70 72 6f 70 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 64 64 2d 66 61 63 | props)))))..(defun.slime-add-fac |
| 134460 | 65 20 28 66 61 63 65 20 73 74 72 69 6e 67 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 | e.(face.string)...(declare.(inde |
| 134480 | 6e 74 20 31 29 29 0a 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 30 20 | nt.1))...(add-text-properties.0. |
| 1344a0 | 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 20 28 6c 69 73 74 20 27 66 61 63 65 20 66 61 63 65 | (length.string).(list.'face.face |
| 1344c0 | 29 20 73 74 72 69 6e 67 29 0a 20 20 73 74 72 69 6e 67 29 0a 0a 3b 3b 20 49 6e 74 65 72 66 61 63 | ).string)...string)..;;.Interfac |
| 1344e0 | 65 0a 28 64 65 66 73 75 62 73 74 20 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 | e.(defsubst.slime-insert-propert |
| 134500 | 69 7a 65 64 20 28 70 72 6f 70 73 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 49 6e 73 65 72 | ized.(props.&rest.args)..."Inser |
| 134520 | 74 20 61 6c 6c 20 41 52 47 53 20 61 6e 64 20 74 68 65 6e 20 61 64 64 20 74 65 78 74 2d 50 52 4f | t.all.ARGS.and.then.add.text-PRO |
| 134540 | 50 53 20 74 6f 20 74 68 65 20 69 6e 73 65 72 74 65 64 20 74 65 78 74 2e 22 0a 20 20 28 73 6c 69 | PS.to.the.inserted.text."...(sli |
| 134560 | 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 20 70 72 6f 70 73 20 28 61 70 70 6c | me-propertize-region.props.(appl |
| 134580 | 79 20 23 27 69 6e 73 65 72 74 20 61 72 67 73 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c | y.#'insert.args)))..(defmacro.sl |
| 1345a0 | 69 6d 65 2d 77 69 74 68 2d 72 69 67 69 64 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 6c 65 76 65 | ime-with-rigid-indentation.(leve |
| 1345c0 | 6c 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 45 78 65 63 75 74 65 20 42 4f 44 59 20 61 6e | l.&rest.body)..."Execute.BODY.an |
| 1345e0 | 64 20 74 68 65 6e 20 72 69 67 69 64 6c 79 20 69 6e 64 65 6e 74 20 69 74 73 20 74 65 78 74 20 69 | d.then.rigidly.indent.its.text.i |
| 134600 | 6e 73 65 72 74 69 6f 6e 73 2e 0a 41 73 73 75 6d 65 73 20 61 6c 6c 20 69 6e 73 65 72 74 69 6f 6e | nsertions..Assumes.all.insertion |
| 134620 | 73 20 61 72 65 20 6d 61 64 65 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 | s.are.made.at.point."...(declare |
| 134640 | 20 28 69 6e 64 65 6e 74 20 31 29 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 63 6c 2d | .(indent.1))...(let.((start.(cl- |
| 134660 | 67 65 6e 73 79 6d 29 29 20 28 6c 20 28 63 6c 2d 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 60 28 | gensym)).(l.(cl-gensym))).....`( |
| 134680 | 6c 65 74 20 28 28 2c 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 20 28 2c 6c 20 2c 28 6f 72 20 6c | let.((,start.(point)).(,l.,(or.l |
| 1346a0 | 65 76 65 6c 20 27 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 29 0a 20 20 20 20 20 20 | evel.'(current-column))))....... |
| 1346c0 | 20 28 70 72 6f 67 31 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 | .(prog1.(progn.,@body).......... |
| 1346e0 | 28 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 72 69 67 69 64 6c 79 20 2c 73 74 61 72 74 20 28 70 6f | (slime-indent-rigidly.,start.(po |
| 134700 | 69 6e 74 29 20 2c 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 64 65 6e | int).,l)))))..(defun.slime-inden |
| 134720 | 74 2d 72 69 67 69 64 6c 79 20 28 73 74 61 72 74 20 65 6e 64 20 63 6f 6c 75 6d 6e 29 0a 20 20 3b | t-rigidly.(start.end.column)...; |
| 134740 | 3b 20 53 69 6d 69 6c 61 72 20 74 6f 20 60 69 6e 64 65 6e 74 2d 72 69 67 69 64 6c 79 27 20 62 75 | ;.Similar.to.`indent-rigidly'.bu |
| 134760 | 74 20 64 6f 65 73 6e 27 74 20 69 6e 68 65 72 69 74 20 74 65 78 74 20 70 72 6f 70 73 2e 0a 20 20 | t.doesn't.inherit.text.props.... |
| 134780 | 28 6c 65 74 20 28 28 69 6e 64 65 6e 74 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 63 6f 6c 75 6d | (let.((indent.(make-string.colum |
| 1347a0 | 6e 20 3f 5c 20 29 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 | n.?\.))).....(save-excursion.... |
| 1347c0 | 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 65 6e 64 29 0a 20 20 20 20 20 20 28 62 65 67 69 6e 6e | ...(goto-char.end).......(beginn |
| 1347e0 | 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 | ing-of-line).......(while.(and.( |
| 134800 | 3c 3d 20 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | <=.start.(point))............... |
| 134820 | 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ....(progn.....................( |
| 134840 | 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 69 6e 64 65 6e 74 29 0a 20 20 | insert-before-markers.indent)... |
| 134860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 7a 65 72 6f 70 20 28 66 6f 72 77 61 72 | ..................(zerop.(forwar |
| 134880 | 64 2d 6c 69 6e 65 20 2d 31 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | d-line.-1))))))))..(defun.slime- |
| 1348a0 | 69 6e 73 65 72 74 2d 69 6e 64 65 6e 74 65 64 20 28 26 72 65 73 74 20 73 74 72 69 6e 67 73 29 0a | insert-indented.(&rest.strings). |
| 1348c0 | 20 20 22 49 6e 73 65 72 74 20 61 6c 6c 20 61 72 67 75 6d 65 6e 74 73 20 72 69 67 69 64 6c 79 20 | .."Insert.all.arguments.rigidly. |
| 1348e0 | 69 6e 64 65 6e 74 65 64 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 72 69 67 69 64 2d 69 | indented."...(slime-with-rigid-i |
| 134900 | 6e 64 65 6e 74 61 74 69 6f 6e 20 6e 69 6c 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 69 6e 73 65 | ndentation.nil.....(apply.#'inse |
| 134920 | 72 74 20 73 74 72 69 6e 67 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 6f 70 | rt.strings)))..(defun.slime-prop |
| 134940 | 65 72 74 79 2d 62 6f 75 6e 64 73 20 28 70 72 6f 70 29 0a 20 20 22 52 65 74 75 72 6e 20 74 77 6f | erty-bounds.(prop)..."Return.two |
| 134960 | 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 73 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 61 | .the.positions.of.the.previous.a |
| 134980 | 6e 64 20 6e 65 78 74 20 63 68 61 6e 67 65 73 20 74 6f 20 50 52 4f 50 2e 0a 50 52 4f 50 20 69 73 | nd.next.changes.to.PROP..PROP.is |
| 1349a0 | 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 74 65 78 74 20 70 72 6f 70 65 72 74 79 2e 22 0a 20 | .the.name.of.a.text.property.".. |
| 1349c0 | 20 28 63 6c 2d 61 73 73 65 72 74 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 | .(cl-assert.(get-text-property.( |
| 1349e0 | 70 6f 69 6e 74 29 20 70 72 6f 70 29 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 64 20 28 6e 65 78 74 | point).prop))...(let.((end.(next |
| 134a00 | 2d 73 69 6e 67 6c 65 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 28 70 6f | -single-char-property-change.(po |
| 134a20 | 69 6e 74 29 20 70 72 6f 70 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 28 70 72 65 76 69 6f 75 73 | int).prop))).....(list.(previous |
| 134a40 | 2d 73 69 6e 67 6c 65 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 65 6e 64 | -single-char-property-change.end |
| 134a60 | 20 70 72 6f 70 29 20 65 6e 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 75 72 72 | .prop).end)))..(defun.slime-curr |
| 134a80 | 79 20 28 66 75 6e 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 50 61 72 74 69 61 6c 6c 79 20 | y.(fun.&rest.args)..."Partially. |
| 134aa0 | 61 70 70 6c 79 20 46 55 4e 20 74 6f 20 41 52 47 53 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 | apply.FUN.to.ARGS...The.result.i |
| 134ac0 | 73 20 61 20 6e 65 77 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 60 28 6c 61 6d 62 64 61 20 28 26 | s.a.new.function."...`(lambda.(& |
| 134ae0 | 72 65 73 74 20 6d 6f 72 65 29 20 28 61 70 70 6c 79 20 27 2c 66 75 6e 20 28 61 70 70 65 6e 64 20 | rest.more).(apply.',fun.(append. |
| 134b00 | 27 2c 61 72 67 73 20 6d 6f 72 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 63 | ',args.more))))..(defun.slime-rc |
| 134b20 | 75 72 72 79 20 28 66 75 6e 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 4c 69 6b 65 20 60 73 | urry.(fun.&rest.args)..."Like.`s |
| 134b40 | 6c 69 6d 65 2d 63 75 72 72 79 27 20 62 75 74 20 41 52 47 53 20 6f 6e 20 74 68 65 20 72 69 67 68 | lime-curry'.but.ARGS.on.the.righ |
| 134b60 | 74 20 61 72 65 20 61 70 70 6c 69 65 64 2e 22 0a 20 20 60 28 6c 61 6d 62 64 61 20 28 26 72 65 73 | t.are.applied."...`(lambda.(&res |
| 134b80 | 74 20 6d 6f 72 65 29 20 28 61 70 70 6c 79 20 27 2c 66 75 6e 20 28 61 70 70 65 6e 64 20 6d 6f 72 | t.more).(apply.',fun.(append.mor |
| 134ba0 | 65 20 27 2c 61 72 67 73 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 54 65 6d 70 6f 72 61 72 79 20 | e.',args))))....;;;;;.Temporary. |
| 134bc0 | 70 6f 70 75 70 20 62 75 66 66 65 72 73 0a 0a 3b 3b 20 6b 65 65 70 20 63 6f 6d 70 69 6c 65 72 20 | popup.buffers..;;.keep.compiler. |
| 134be0 | 71 75 69 65 74 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 | quiet.(defvar.slime-buffer-packa |
| 134c00 | 67 65 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 | ge).(defvar.slime-buffer-connect |
| 134c20 | 69 6f 6e 29 0a 0a 3b 3b 20 49 6e 74 65 72 66 61 63 65 0a 28 63 6c 2d 64 65 66 6d 61 63 72 6f 20 | ion)..;;.Interface.(cl-defmacro. |
| 134c40 | 73 6c 69 6d 65 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 28 6e 61 6d 65 20 26 | slime-with-popup-buffer.((name.& |
| 134c60 | 6b 65 79 20 70 61 63 6b 61 67 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 65 6c 65 63 74 0a 20 20 | key.package.connection.select... |
| 134c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 134ca0 | 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........mode)................. |
| 134cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 62 6f 64 79 20 62 6f 64 79 | ......................&body.body |
| 134ce0 | 29 0a 20 20 22 53 69 6d 69 6c 61 72 20 74 6f 20 60 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d | )..."Similar.to.`with-output-to- |
| 134d00 | 74 65 6d 70 2d 62 75 66 66 65 72 27 2e 0a 42 69 6e 64 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 | temp-buffer'..Bind.standard-outp |
| 134d20 | 75 74 20 61 6e 64 20 69 6e 69 74 69 61 6c 69 7a 65 20 73 6f 6d 65 20 62 75 66 66 65 72 2d 6c 6f | ut.and.initialize.some.buffer-lo |
| 134d40 | 63 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 0a 52 65 73 74 6f 72 65 20 77 69 6e 64 6f 77 20 63 6f | cal.variables..Restore.window.co |
| 134d60 | 6e 66 69 67 75 72 61 74 69 6f 6e 20 77 68 65 6e 20 63 6c 6f 73 65 64 2e 0a 0a 4e 41 4d 45 20 69 | nfiguration.when.closed...NAME.i |
| 134d80 | 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 74 6f 20 62 65 20 63 | s.the.name.of.the.buffer.to.be.c |
| 134da0 | 72 65 61 74 65 64 2e 0a 50 41 43 4b 41 47 45 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 60 73 6c | reated..PACKAGE.is.the.value.`sl |
| 134dc0 | 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 27 2e 0a 43 4f 4e 4e 45 43 54 49 4f 4e 20 | ime-buffer-package'..CONNECTION. |
| 134de0 | 69 73 20 74 68 65 20 76 61 6c 75 65 20 66 6f 72 20 60 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 | is.the.value.for.`slime-buffer-c |
| 134e00 | 6f 6e 6e 65 63 74 69 6f 6e 27 2c 0a 20 69 66 20 6e 69 6c 2c 20 6e 6f 20 65 78 70 6c 69 63 69 74 | onnection',..if.nil,.no.explicit |
| 134e20 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 0a 20 | .connection.is.associated.with.. |
| 134e40 | 74 68 65 20 62 75 66 66 65 72 2e 20 20 49 66 20 74 2c 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 | the.buffer...If.t,.the.current.c |
| 134e60 | 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 74 61 6b 65 6e 2e 0a 4d 4f 44 45 20 69 73 20 74 68 65 20 | onnection.is.taken..MODE.is.the. |
| 134e80 | 6e 61 6d 65 20 6f 66 20 61 20 6d 61 6a 6f 72 20 6d 6f 64 65 20 77 68 69 63 68 20 77 69 6c 6c 20 | name.of.a.major.mode.which.will. |
| 134ea0 | 62 65 20 65 6e 61 62 6c 65 64 2e 0a 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 | be.enabled.."...(declare.(indent |
| 134ec0 | 20 31 29 29 0a 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 2d 73 79 6d 20 28 63 6c 2d 67 65 | .1))...(let.((package-sym.(cl-ge |
| 134ee0 | 6e 73 79 6d 20 22 70 61 63 6b 61 67 65 2d 22 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 6e 65 | nsym."package-")).........(conne |
| 134f00 | 63 74 69 6f 6e 2d 73 79 6d 20 28 63 6c 2d 67 65 6e 73 79 6d 20 22 63 6f 6e 6e 65 63 74 69 6f 6e | ction-sym.(cl-gensym."connection |
| 134f20 | 2d 22 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 70 61 63 6b 61 67 65 2d 73 79 6d 20 2c | -"))).....`(let.((,package-sym., |
| 134f40 | 28 69 66 20 28 65 71 20 70 61 63 6b 61 67 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (if.(eq.package.t).............. |
| 134f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 | .................`(slime-current |
| 134f80 | 2d 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -package)....................... |
| 134fa0 | 20 20 20 20 20 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 2c 63 6f 6e | ......package))............(,con |
| 134fc0 | 6e 65 63 74 69 6f 6e 2d 73 79 6d 20 2c 28 69 66 20 28 65 71 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 | nection-sym.,(if.(eq.connection. |
| 134fe0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t).............................. |
| 135000 | 20 20 20 20 60 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a | ....`(slime-current-connection). |
| 135020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 | ...............................c |
| 135040 | 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e | onnection)))........(with-curren |
| 135060 | 74 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 2c 6e 61 6d | t-buffer.(get-buffer-create.,nam |
| 135080 | 65 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d | e)..........(let.((inhibit-read- |
| 1350a0 | 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 61 6e 64 61 72 64 | only.t)................(standard |
| 1350c0 | 2d 6f 75 74 70 75 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 | -output.(current-buffer)))...... |
| 1350e0 | 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ......(erase-buffer)............ |
| 135100 | 28 66 75 6e 63 61 6c 6c 20 28 6f 72 20 2c 6d 6f 64 65 20 27 66 75 6e 64 61 6d 65 6e 74 61 6c 2d | (funcall.(or.,mode.'fundamental- |
| 135120 | 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 | mode))............(setq.slime-bu |
| 135140 | 66 66 65 72 2d 70 61 63 6b 61 67 65 20 2c 70 61 63 6b 61 67 65 2d 73 79 6d 0a 20 20 20 20 20 20 | ffer-package.,package-sym....... |
| 135160 | 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 | ...........slime-buffer-connecti |
| 135180 | 6f 6e 20 2c 63 6f 6e 6e 65 63 74 69 6f 6e 2d 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | on.,connection-sym)............( |
| 1351a0 | 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 | set-syntax-table.lisp-mode-synta |
| 1351c0 | 78 2d 74 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 0a 20 20 20 20 20 | x-table)............,@body...... |
| 1351e0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 2d 6d 6f 64 65 20 31 | ......(slime-popup-buffer-mode.1 |
| 135200 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 69 66 20 2c 73 65 6c 65 63 | )............(funcall.(if.,selec |
| 135220 | 74 20 27 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 27 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 | t.'pop-to-buffer.'display-buffer |
| 135240 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 | ).....................(current-b |
| 135260 | 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 | uffer))............(current-buff |
| 135280 | 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 70 6f 70 75 70 2d 62 75 | er))))))..(defvar.slime-popup-bu |
| 1352a0 | 66 66 65 72 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 | ffer-mode-map...(let.((map.(make |
| 1352c0 | 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 | -sparse-keymap))).....(define-ke |
| 1352e0 | 79 20 6d 61 70 20 28 6b 62 64 20 22 71 22 29 20 27 71 75 69 74 2d 77 69 6e 64 6f 77 29 0a 20 20 | y.map.(kbd."q").'quit-window)... |
| 135300 | 20 20 3b 3b 28 22 5c 43 2d 63 5c 43 2d 7a 22 20 2e 20 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 | ..;;("\C-c\C-z"...slime-switch-t |
| 135320 | 6f 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | o-output-buffer).....(define-key |
| 135340 | 20 6d 61 70 20 28 6b 62 64 20 22 4d 2d 2e 22 29 20 27 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 | .map.(kbd."M-.").'slime-edit-def |
| 135360 | 69 6e 69 74 69 6f 6e 29 0a 20 20 20 20 6d 61 70 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f | inition).....map))..(define-mino |
| 135380 | 72 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 2d 6d 6f 64 65 0a 20 | r-mode.slime-popup-buffer-mode.. |
| 1353a0 | 20 22 4d 6f 64 65 20 66 6f 72 20 64 69 73 70 6c 61 79 69 6e 67 20 72 65 61 64 20 6f 6e 6c 79 20 | ."Mode.for.displaying.read.only. |
| 1353c0 | 73 74 75 66 66 22 0a 20 20 3a 69 6e 69 74 2d 76 61 6c 75 65 20 6e 69 6c 0a 20 20 3a 6c 69 67 68 | stuff"...:init-value.nil...:ligh |
| 1353e0 | 74 65 72 20 6e 69 6c 0a 20 20 3a 6b 65 79 6d 61 70 20 6e 69 6c 0a 20 20 28 73 65 74 71 20 62 75 | ter.nil...:keymap.nil...(setq.bu |
| 135400 | 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 | ffer-read-only.t))..(add-to-list |
| 135420 | 20 27 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .'minor-mode-alist.............. |
| 135440 | 60 28 73 6c 69 6d 65 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 2d 6d 6f 64 65 0a 20 20 20 20 20 20 | `(slime-popup-buffer-mode....... |
| 135460 | 20 20 20 20 20 20 20 20 20 28 3a 65 76 61 6c 20 28 75 6e 6c 65 73 73 20 73 6c 69 6d 65 2d 6d 6f | .........(:eval.(unless.slime-mo |
| 135480 | 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | de.........................(slim |
| 1354a0 | 65 2d 6d 6f 64 65 6c 69 6e 65 2d 73 74 72 69 6e 67 29 29 29 29 29 0a 0a 28 73 65 74 2d 6b 65 79 | e-modeline-string)))))..(set-key |
| 1354c0 | 6d 61 70 2d 70 61 72 65 6e 74 20 73 6c 69 6d 65 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 2d 6d 6f | map-parent.slime-popup-buffer-mo |
| 1354e0 | 64 65 2d 6d 61 70 20 73 6c 69 6d 65 2d 70 61 72 65 6e 74 2d 6d 61 70 29 0a 0a 3b 3b 3b 3b 3b 20 | de-map.slime-parent-map)..;;;;;. |
| 135500 | 46 69 6c 65 6e 61 6d 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 0a 3b 3b 3b 0a 3b 3b 3b 20 46 69 6c | Filename.translation.;;;.;;;.Fil |
| 135520 | 65 6e 61 6d 65 73 20 70 61 73 73 65 64 20 62 65 74 77 65 65 6e 20 45 6d 61 63 73 20 61 6e 64 20 | enames.passed.between.Emacs.and. |
| 135540 | 4c 69 73 70 20 73 68 6f 75 6c 64 20 62 65 20 74 72 61 6e 73 6c 61 74 65 64 20 75 73 69 6e 67 0a | Lisp.should.be.translated.using. |
| 135560 | 3b 3b 3b 20 74 68 65 73 65 20 66 75 6e 63 74 69 6f 6e 73 2e 20 54 68 69 73 20 77 61 79 20 75 73 | ;;;.these.functions..This.way.us |
| 135580 | 65 72 73 20 77 68 6f 20 72 75 6e 20 45 6d 61 63 73 20 61 6e 64 20 4c 69 73 70 20 6f 6e 20 73 65 | ers.who.run.Emacs.and.Lisp.on.se |
| 1355a0 | 70 61 72 61 74 65 0a 3b 3b 3b 20 6d 61 63 68 69 6e 65 73 20 68 61 76 65 20 61 20 63 68 61 6e 63 | parate.;;;.machines.have.a.chanc |
| 1355c0 | 65 20 74 6f 20 69 6e 74 65 67 72 61 74 65 20 66 69 6c 65 20 6f 70 65 72 61 74 69 6f 6e 73 20 73 | e.to.integrate.file.operations.s |
| 1355e0 | 6f 6d 65 68 6f 77 2e 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 | omehow...(defvar.slime-to-lisp-f |
| 135600 | 69 6c 65 6e 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 23 27 63 6f 6e 76 65 72 74 2d 73 74 61 6e 64 | ilename-function.#'convert-stand |
| 135620 | 61 72 64 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 74 72 61 6e | ard-filename..."Function.to.tran |
| 135640 | 73 6c 61 74 65 20 45 6d 61 63 73 20 66 69 6c 65 6e 61 6d 65 73 20 74 6f 20 43 4c 20 6e 61 6d 65 | slate.Emacs.filenames.to.CL.name |
| 135660 | 73 74 72 69 6e 67 73 2e 22 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 72 6f 6d 2d 6c 69 | strings.").(defvar.slime-from-li |
| 135680 | 73 70 2d 66 69 6c 65 6e 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 23 27 69 64 65 6e 74 69 74 79 0a | sp-filename-function.#'identity. |
| 1356a0 | 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 74 72 61 6e 73 6c 61 74 65 20 43 4c 20 6e 61 6d 65 | .."Function.to.translate.CL.name |
| 1356c0 | 73 74 72 69 6e 67 73 20 74 6f 20 45 6d 61 63 73 20 66 69 6c 65 6e 61 6d 65 73 2e 22 29 0a 0a 28 | strings.to.Emacs.filenames.")..( |
| 1356e0 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 28 66 69 | defun.slime-to-lisp-filename.(fi |
| 135700 | 6c 65 6e 61 6d 65 29 0a 20 20 22 54 72 61 6e 73 6c 61 74 65 20 74 68 65 20 73 74 72 69 6e 67 20 | lename)..."Translate.the.string. |
| 135720 | 46 49 4c 45 4e 41 4d 45 20 74 6f 20 61 20 4c 69 73 70 20 66 69 6c 65 6e 61 6d 65 2e 22 0a 20 20 | FILENAME.to.a.Lisp.filename."... |
| 135740 | 28 66 75 6e 63 61 6c 6c 20 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 2d | (funcall.slime-to-lisp-filename- |
| 135760 | 66 75 6e 63 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | function.filename))..(defun.slim |
| 135780 | 65 2d 66 72 6f 6d 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 28 66 69 6c 65 6e 61 6d 65 29 0a | e-from-lisp-filename.(filename). |
| 1357a0 | 20 20 22 54 72 61 6e 73 6c 61 74 65 20 74 68 65 20 4c 69 73 70 20 66 69 6c 65 6e 61 6d 65 20 46 | .."Translate.the.Lisp.filename.F |
| 1357c0 | 49 4c 45 4e 41 4d 45 20 74 6f 20 61 6e 20 45 6d 61 63 73 20 66 69 6c 65 6e 61 6d 65 2e 22 0a 20 | ILENAME.to.an.Emacs.filename.".. |
| 1357e0 | 20 28 66 75 6e 63 61 6c 6c 20 73 6c 69 6d 65 2d 66 72 6f 6d 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 | .(funcall.slime-from-lisp-filena |
| 135800 | 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 53 | me-function.filename))....;;;;.S |
| 135820 | 74 61 72 74 69 6e 67 20 53 4c 49 4d 45 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 73 65 63 74 69 | tarting.SLIME.;;;.;;;.This.secti |
| 135840 | 6f 6e 20 63 6f 76 65 72 73 20 73 74 61 72 74 69 6e 67 20 61 6e 20 69 6e 66 65 72 69 6f 72 2d 6c | on.covers.starting.an.inferior-l |
| 135860 | 69 73 70 2c 20 63 6f 6d 70 69 6c 69 6e 67 20 61 6e 64 0a 3b 3b 3b 20 73 74 61 72 74 69 6e 67 20 | isp,.compiling.and.;;;.starting. |
| 135880 | 74 68 65 20 73 65 72 76 65 72 2c 20 69 6e 69 74 69 61 74 69 6e 67 20 61 20 6e 65 74 77 6f 72 6b | the.server,.initiating.a.network |
| 1358a0 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 0a 3b 3b 3b 3b 3b 20 45 6e 74 72 79 20 70 6f 69 6e 74 73 | .connection...;;;;;.Entry.points |
| 1358c0 | 0a 0a 3b 3b 20 57 65 20 6e 6f 20 6c 6f 6e 67 65 72 20 6c 6f 61 64 20 69 6e 66 2d 6c 69 73 70 2c | ..;;.We.no.longer.load.inf-lisp, |
| 1358e0 | 20 62 75 74 20 77 65 20 75 73 65 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 66 6f 72 20 62 61 | .but.we.use.this.variable.for.ba |
| 135900 | 63 6b 77 61 72 64 0a 3b 3b 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 2e 0a 28 64 65 66 76 61 72 | ckward.;;.compatibility..(defvar |
| 135920 | 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 20 22 6c 69 73 70 22 0a 20 20 | .inferior-lisp-program."lisp"... |
| 135940 | 22 2a 50 72 6f 67 72 61 6d 20 6e 61 6d 65 20 66 6f 72 20 69 6e 76 6f 6b 69 6e 67 20 61 6e 20 69 | "*Program.name.for.invoking.an.i |
| 135960 | 6e 66 65 72 69 6f 72 20 4c 69 73 70 20 77 69 74 68 20 66 6f 72 20 49 6e 66 65 72 69 6f 72 20 4c | nferior.Lisp.with.for.Inferior.L |
| 135980 | 69 73 70 20 6d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6c 69 73 70 2d | isp.mode.")..(defvar.slime-lisp- |
| 1359a0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 6e 69 6c 0a 20 20 22 2a 41 20 6c 69 73 74 20 6f | implementations.nil..."*A.list.o |
| 1359c0 | 66 20 6b 6e 6f 77 6e 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 0a 54 68 | f.known.Lisp.implementations..Th |
| 1359e0 | 65 20 6c 69 73 74 20 73 68 6f 75 6c 64 20 68 61 76 65 20 74 68 65 20 66 6f 72 6d 3a 0a 20 20 28 | e.list.should.have.the.form:...( |
| 135a00 | 28 4e 41 4d 45 20 28 50 52 4f 47 52 41 4d 20 50 52 4f 47 52 41 4d 2d 41 52 47 53 2e 2e 2e 29 20 | (NAME.(PROGRAM.PROGRAM-ARGS...). |
| 135a20 | 26 6b 65 79 20 4b 45 59 57 4f 52 44 2d 41 52 47 53 29 20 2e 2e 2e 29 0a 0a 4e 41 4d 45 20 69 73 | &key.KEYWORD-ARGS)....)..NAME.is |
| 135a40 | 20 61 20 73 79 6d 62 6f 6c 20 66 6f 72 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | .a.symbol.for.the.implementation |
| 135a60 | 2e 0a 50 52 4f 47 52 41 4d 20 61 6e 64 20 50 52 4f 47 52 41 4d 2d 41 52 47 53 20 61 72 65 20 73 | ..PROGRAM.and.PROGRAM-ARGS.are.s |
| 135a80 | 74 72 69 6e 67 73 20 75 73 65 64 20 74 6f 20 73 74 61 72 74 20 74 68 65 20 4c 69 73 70 20 70 72 | trings.used.to.start.the.Lisp.pr |
| 135aa0 | 6f 63 65 73 73 2e 0a 46 6f 72 20 4b 45 59 57 4f 52 44 2d 41 52 47 53 20 73 65 65 20 60 73 6c 69 | ocess..For.KEYWORD-ARGS.see.`sli |
| 135ac0 | 6d 65 2d 73 74 61 72 74 27 2e 0a 0a 48 65 72 65 27 73 20 61 6e 20 65 78 61 6d 70 6c 65 3a 0a 20 | me-start'...Here's.an.example:.. |
| 135ae0 | 28 28 63 6d 75 63 6c 20 28 5c 22 2f 6f 70 74 2f 63 6d 75 63 6c 2f 62 69 6e 2f 6c 69 73 70 5c 22 | ((cmucl.(\"/opt/cmucl/bin/lisp\" |
| 135b00 | 20 5c 22 2d 71 75 69 65 74 5c 22 29 20 3a 69 6e 69 74 20 73 6c 69 6d 65 2d 69 6e 69 74 2d 63 6f | .\"-quiet\").:init.slime-init-co |
| 135b20 | 6d 6d 61 6e 64 29 0a 20 20 28 61 63 6c 20 28 5c 22 61 63 6c 37 5c 22 29 20 3a 63 6f 64 69 6e 67 | mmand)...(acl.(\"acl7\").:coding |
| 135b40 | 2d 73 79 73 74 65 6d 20 65 6d 61 63 73 2d 6d 75 6c 65 29 29 22 29 0a 0a 28 64 65 66 76 61 72 20 | -system.emacs-mule))")..(defvar. |
| 135b60 | 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 6c 69 73 70 20 6e 69 6c 0a 20 20 22 2a 54 68 65 20 6e | slime-default-lisp.nil..."*The.n |
| 135b80 | 61 6d 65 20 6f 66 20 74 68 65 20 64 65 66 61 75 6c 74 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e | ame.of.the.default.Lisp.implemen |
| 135ba0 | 74 61 74 69 6f 6e 2e 0a 53 65 65 20 60 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e | tation..See.`slime-lisp-implemen |
| 135bc0 | 74 61 74 69 6f 6e 73 27 22 29 0a 0a 3b 3b 20 64 75 6d 6d 79 20 64 65 66 69 6e 69 74 69 6f 6e 73 | tations'")..;;.dummy.definitions |
| 135be0 | 20 66 6f 72 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d | .for.the.compiler.(defvar.slime- |
| 135c00 | 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 64 65 66 | net-processes).(defvar.slime-def |
| 135c20 | 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 | ault-connection)..;;;###autoload |
| 135c40 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6d 6d 61 6e 64 | .(defun.slime.(&optional.command |
| 135c60 | 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 22 53 74 61 72 74 20 61 6e 20 69 6e 66 65 | .coding-system)..."Start.an.infe |
| 135c80 | 72 69 6f 72 5e 5f 73 75 70 65 72 69 6f 72 20 4c 69 73 70 20 61 6e 64 20 63 6f 6e 6e 65 63 74 20 | rior^_superior.Lisp.and.connect. |
| 135ca0 | 74 6f 20 69 74 73 20 53 77 61 6e 6b 20 73 65 72 76 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | to.its.Swank.server."...(interac |
| 135cc0 | 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 73 65 74 75 70 29 0a 20 20 28 6c 65 74 20 28 28 69 | tive)...(slime-setup)...(let.((i |
| 135ce0 | 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 20 28 6f 72 20 63 6f 6d 6d 61 6e 64 | nferior-lisp-program.(or.command |
| 135d00 | 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 29 29 0a 20 20 20 20 20 20 20 | .inferior-lisp-program))........ |
| 135d20 | 20 28 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 28 6f 72 20 63 6f | .(slime-net-coding-system.(or.co |
| 135d40 | 64 69 6e 67 2d 73 79 73 74 65 6d 20 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 | ding-system.slime-net-coding-sys |
| 135d60 | 74 65 6d 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 74 61 72 74 2a 20 28 63 6f 6e 64 20 28 | tem))).....(slime-start*.(cond.( |
| 135d80 | 28 61 6e 64 20 63 6f 6d 6d 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 63 6f 6d 6d 61 6e 64 29 29 0a | (and.command.(symbolp.command)). |
| 135da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | .........................(slime- |
| 135dc0 | 6c 69 73 70 2d 6f 70 74 69 6f 6e 73 20 63 6f 6d 6d 61 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 | lisp-options.command)).......... |
| 135de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 69 6e | ...............(t.(slime-read-in |
| 135e00 | 74 65 72 61 63 74 69 76 65 2d 61 72 67 73 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c | teractive-args))))))..(defvar.sl |
| 135e20 | 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 2d 68 69 73 74 6f 72 | ime-inferior-lisp-program-histor |
| 135e40 | 79 20 27 28 29 0a 20 20 22 48 69 73 74 6f 72 79 20 6c 69 73 74 20 6f 66 20 63 6f 6d 6d 61 6e 64 | y.'()..."History.list.of.command |
| 135e60 | 20 73 74 72 69 6e 67 73 2e 20 20 55 73 65 64 20 62 79 20 60 73 6c 69 6d 65 27 2e 22 29 0a 0a 28 | .strings...Used.by.`slime'.")..( |
| 135e80 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 61 64 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 61 72 67 | defun.slime-read-interactive-arg |
| 135ea0 | 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 61 72 67 73 20 | s.()..."Return.the.list.of.args. |
| 135ec0 | 77 68 69 63 68 20 73 68 6f 75 6c 64 20 62 65 20 70 61 73 73 65 64 20 74 6f 20 60 73 6c 69 6d 65 | which.should.be.passed.to.`slime |
| 135ee0 | 2d 73 74 61 72 74 27 2e 0a 0a 54 68 65 20 72 75 6c 65 73 20 66 6f 72 20 73 65 6c 65 63 74 69 6e | -start'...The.rules.for.selectin |
| 135f00 | 67 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 72 61 74 68 65 72 20 63 6f 6d 70 6c | g.the.arguments.are.rather.compl |
| 135f20 | 69 63 61 74 65 64 3a 0a 0a 2d 20 49 6e 20 74 68 65 20 6d 6f 73 74 20 63 6f 6d 6d 6f 6e 20 63 61 | icated:..-.In.the.most.common.ca |
| 135f40 | 73 65 2c 20 69 2e 65 2e 20 69 66 20 74 68 65 72 65 27 73 20 6e 6f 20 70 72 65 66 69 78 2d 61 72 | se,.i.e..if.there's.no.prefix-ar |
| 135f60 | 67 20 69 6e 0a 20 20 65 66 66 65 63 74 20 61 6e 64 20 69 66 20 60 73 6c 69 6d 65 2d 6c 69 73 70 | g.in...effect.and.if.`slime-lisp |
| 135f80 | 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 27 20 69 73 20 6e 69 6c 2c 20 75 73 65 0a 20 20 | -implementations'.is.nil,.use... |
| 135fa0 | 60 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 27 20 61 73 20 66 61 6c 6c 62 | `inferior-lisp-program'.as.fallb |
| 135fc0 | 61 63 6b 2e 0a 0a 2d 20 49 66 20 74 68 65 20 74 61 62 6c 65 20 60 73 6c 69 6d 65 2d 6c 69 73 70 | ack...-.If.the.table.`slime-lisp |
| 135fe0 | 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 27 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 75 73 65 | -implementations'.is.non-nil.use |
| 136000 | 20 74 68 65 0a 20 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 69 74 68 20 6e 61 6d 65 20 | .the...implementation.with.name. |
| 136020 | 60 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 6c 69 73 70 27 20 6f 72 20 69 66 20 74 68 61 74 27 | `slime-default-lisp'.or.if.that' |
| 136040 | 73 20 6e 69 6c 0a 20 20 74 68 65 20 66 69 72 73 74 20 65 6e 74 72 79 20 69 6e 20 74 68 65 20 74 | s.nil...the.first.entry.in.the.t |
| 136060 | 61 62 6c 65 2e 0a 0a 2d 20 49 66 20 74 68 65 20 70 72 65 66 69 78 2d 61 72 67 20 69 73 20 60 2d | able...-.If.the.prefix-arg.is.`- |
| 136080 | 27 2c 20 70 72 6f 6d 70 74 20 66 6f 72 20 6f 6e 65 20 6f 66 20 74 68 65 20 72 65 67 69 73 74 65 | ',.prompt.for.one.of.the.registe |
| 1360a0 | 72 65 64 0a 20 20 6c 69 73 70 73 2e 0a 0a 2d 20 49 66 20 74 68 65 20 70 72 65 66 69 78 2d 61 72 | red...lisps...-.If.the.prefix-ar |
| 1360c0 | 67 20 69 73 20 70 6f 73 69 74 69 76 65 2c 20 72 65 61 64 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 | g.is.positive,.read.the.command. |
| 1360e0 | 74 6f 20 73 74 61 72 74 20 74 68 65 0a 20 20 70 72 6f 63 65 73 73 2e 22 0a 20 20 28 6c 65 74 20 | to.start.the...process."...(let. |
| 136100 | 28 28 74 61 62 6c 65 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | ((table.slime-lisp-implementatio |
| 136120 | 6e 73 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 63 75 72 72 65 6e 74 2d 70 72 65 | ns)).....(cond.((not.current-pre |
| 136140 | 66 69 78 2d 61 72 67 29 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 6f 70 74 69 6f 6e 73 29 29 0a 20 | fix-arg).(slime-lisp-options)).. |
| 136160 | 20 20 20 20 20 20 20 20 20 28 28 65 71 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 | .........((eq.current-prefix-arg |
| 136180 | 20 27 2d 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6b 65 79 20 28 63 6f 6d 70 | .'-)............(let.((key.(comp |
| 1361a0 | 6c 65 74 69 6e 67 2d 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | leting-read..................... |
| 1361c0 | 20 20 20 22 4c 69 73 70 20 6e 61 6d 65 3a 20 22 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 | ..."Lisp.name:.".(mapcar.(lambda |
| 1361e0 | 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(x)............................ |
| 136200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 73 79 6d 62 6f | ....................(list.(symbo |
| 136220 | 6c 2d 6e 61 6d 65 20 28 63 61 72 20 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-name.(car.x))))............... |
| 136240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 | ...............................t |
| 136260 | 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c | able)........................nil |
| 136280 | 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 70 | .t)))..............(slime-lookup |
| 1362a0 | 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 61 62 6c 65 20 28 69 6e 74 65 | -lisp-implementation.table.(inte |
| 1362c0 | 72 6e 20 6b 65 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 | rn.key))))...........(t......... |
| 1362e0 | 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 70 72 6f 67 72 | ...(cl-destructuring-bind.(progr |
| 136300 | 61 6d 20 26 72 65 73 74 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 | am.&rest.program-args).......... |
| 136320 | 20 20 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 2d 61 6e 64 2d 75 6e 71 75 6f 74 65 0a | ......(split-string-and-unquote. |
| 136340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 73 68 65 6c 6c 2d 63 6f 6d 6d | ................(read-shell-comm |
| 136360 | 61 6e 64 20 22 52 75 6e 20 6c 69 73 70 3a 20 22 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 | and."Run.lisp:.".inferior-lisp-p |
| 136380 | 72 6f 67 72 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rogram.......................... |
| 1363a0 | 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d | ...........'slime-inferior-lisp- |
| 1363c0 | 70 72 6f 67 72 61 6d 2d 68 69 73 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | program-history))..............( |
| 1363e0 | 6c 65 74 20 28 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 | let.((coding-system............. |
| 136400 | 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 31 36 20 28 70 72 65 66 69 78 2d 6e 75 6d 65 72 | ........(if.(eq.16.(prefix-numer |
| 136420 | 69 63 2d 76 61 6c 75 65 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 0a 20 20 | ic-value.current-prefix-arg))... |
| 136440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 63 6f 64 69 | ......................(read-codi |
| 136460 | 6e 67 2d 73 79 73 74 65 6d 20 22 73 65 74 20 73 6c 69 6d 65 2d 63 6f 64 69 6e 67 2d 73 79 73 74 | ng-system."set.slime-coding-syst |
| 136480 | 65 6d 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | em:."........................... |
| 1364a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 | ..................slime-net-codi |
| 1364c0 | 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-system)...................... |
| 1364e0 | 20 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 29 29 0a 20 20 20 20 | .slime-net-coding-system)))..... |
| 136500 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 72 6f 67 72 61 6d 20 70 72 6f 67 72 61 | ...........(list.:program.progra |
| 136520 | 6d 20 3a 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 0a 20 20 20 | m.:program-args.program-args.... |
| 136540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d | ..................:coding-system |
| 136560 | 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | .coding-system)))))))..(defun.sl |
| 136580 | 69 6d 65 2d 6c 69 73 70 2d 6f 70 74 69 6f 6e 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 61 6d 65 | ime-lisp-options.(&optional.name |
| 1365a0 | 29 0a 20 20 28 6c 65 74 20 28 28 74 61 62 6c 65 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c | )...(let.((table.slime-lisp-impl |
| 1365c0 | 65 6d 65 6e 74 61 74 69 6f 6e 73 29 29 0a 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 6f 72 | ementations)).....(cl-assert.(or |
| 1365e0 | 20 28 6e 6f 74 20 6e 61 6d 65 29 20 74 61 62 6c 65 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 74 | .(not.name).table)).....(cond.(t |
| 136600 | 61 62 6c 65 20 28 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 70 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e | able.(slime-lookup-lisp-implemen |
| 136620 | 74 61 74 69 6f 6e 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | tation.slime-lisp-implementation |
| 136640 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s............................... |
| 136660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 6e 61 6d 65 20 73 6c | .....................(or.name.sl |
| 136680 | 69 6d 65 2d 64 65 66 61 75 6c 74 2d 6c 69 73 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ime-default-lisp................ |
| 1366a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1366c0 | 20 20 20 20 20 20 20 20 28 63 61 72 20 28 63 61 72 20 74 61 62 6c 65 29 29 29 29 29 0a 20 20 20 | ........(car.(car.table))))).... |
| 1366e0 | 20 20 20 20 20 20 20 28 74 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 | .......(t.(cl-destructuring-bind |
| 136700 | 20 28 70 72 6f 67 72 61 6d 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 | .(program.&rest.args)........... |
| 136720 | 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 69 6e 66 65 72 69 6f 72 2d 6c 69 | .......(split-string.inferior-li |
| 136740 | 73 70 2d 70 72 6f 67 72 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 | sp-program)................(list |
| 136760 | 20 3a 70 72 6f 67 72 61 6d 20 70 72 6f 67 72 61 6d 20 3a 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 | .:program.program.:program-args. |
| 136780 | 61 72 67 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c 6f 6f 6b 75 70 2d | args))))))..(defun.slime-lookup- |
| 1367a0 | 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 28 74 61 62 6c 65 20 6e 61 6d 65 29 | lisp-implementation.(table.name) |
| 1367c0 | 0a 20 20 28 6c 65 74 20 28 28 61 72 67 75 6d 65 6e 74 73 20 28 63 6c 2d 72 65 73 74 20 28 61 73 | ...(let.((arguments.(cl-rest.(as |
| 1367e0 | 73 6f 63 20 6e 61 6d 65 20 74 61 62 6c 65 29 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 61 | soc.name.table)))).....(unless.a |
| 136800 | 72 67 75 6d 65 6e 74 73 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 6f 75 6c 64 20 6e 6f 74 | rguments.......(error."Could.not |
| 136820 | 20 66 69 6e 64 20 6c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 69 74 68 20 74 | .find.lisp.implementation.with.t |
| 136840 | 68 65 20 6e 61 6d 65 20 27 25 53 27 22 20 6e 61 6d 65 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 | he.name.'%S'".name)).....(when.( |
| 136860 | 61 6e 64 20 28 3d 20 28 6c 65 6e 67 74 68 20 61 72 67 75 6d 65 6e 74 73 29 20 31 29 0a 20 20 20 | and.(=.(length.arguments).1).... |
| 136880 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 70 20 28 63 6c 2d 66 69 72 73 74 | ............(functionp.(cl-first |
| 1368a0 | 20 61 72 67 75 6d 65 6e 74 73 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 61 72 67 75 6d 65 | .arguments))).......(setf.argume |
| 1368c0 | 6e 74 73 20 28 66 75 6e 63 61 6c 6c 20 28 63 6c 2d 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 73 | nts.(funcall.(cl-first.arguments |
| 1368e0 | 29 29 29 29 0a 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 | )))).....(cl-destructuring-bind. |
| 136900 | 28 28 70 72 6f 67 20 26 72 65 73 74 20 61 72 67 73 29 20 26 72 65 73 74 20 6b 65 79 73 29 20 61 | ((prog.&rest.args).&rest.keys).a |
| 136920 | 72 67 75 6d 65 6e 74 73 0a 20 20 20 20 20 20 28 63 6c 2d 6c 69 73 74 2a 20 3a 6e 61 6d 65 20 6e | rguments.......(cl-list*.:name.n |
| 136940 | 61 6d 65 20 3a 70 72 6f 67 72 61 6d 20 70 72 6f 67 20 3a 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 | ame.:program.prog.:program-args. |
| 136960 | 61 72 67 73 20 6b 65 79 73 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 | args.keys))))..(cl-defun.slime-s |
| 136980 | 74 61 72 74 20 28 26 6b 65 79 20 28 70 72 6f 67 72 61 6d 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 | tart.(&key.(program.inferior-lis |
| 1369a0 | 70 2d 70 72 6f 67 72 61 6d 29 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 0a 20 20 20 20 20 20 20 20 | p-program).program-args......... |
| 1369c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 0a 20 20 | ....................directory... |
| 1369e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 64 69 6e | ..........................(codin |
| 136a00 | 67 2d 73 79 73 74 65 6d 20 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d | g-system.slime-net-coding-system |
| 136a20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | ).............................(i |
| 136a40 | 6e 69 74 20 27 73 6c 69 6d 65 2d 69 6e 69 74 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 20 20 | nit.'slime-init-command)........ |
| 136a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 0a 20 20 20 20 20 20 | .....................name....... |
| 136a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 22 2a | ......................(buffer."* |
| 136aa0 | 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | inferior-lisp*")................ |
| 136ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 | .............init-function...... |
| 136ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 76 29 0a 20 20 22 53 | .......................env)..."S |
| 136b00 | 74 61 72 74 20 61 20 4c 69 73 70 20 70 72 6f 63 65 73 73 20 61 6e 64 20 63 6f 6e 6e 65 63 74 20 | tart.a.Lisp.process.and.connect. |
| 136b20 | 74 6f 20 69 74 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 69 6e 74 65 6e 64 65 64 | to.it..This.function.is.intended |
| 136b40 | 20 66 6f 72 20 70 72 6f 67 72 61 6d 6d 61 74 69 63 20 75 73 65 20 69 66 20 60 73 6c 69 6d 65 27 | .for.programmatic.use.if.`slime' |
| 136b60 | 20 69 73 20 6e 6f 74 0a 66 6c 65 78 69 62 6c 65 20 65 6e 6f 75 67 68 2e 0a 0a 50 52 4f 47 52 41 | .is.not.flexible.enough...PROGRA |
| 136b80 | 4d 20 61 6e 64 20 50 52 4f 47 52 41 4d 2d 41 52 47 53 20 61 72 65 20 74 68 65 20 66 69 6c 65 6e | M.and.PROGRAM-ARGS.are.the.filen |
| 136ba0 | 61 6d 65 20 61 6e 64 20 61 72 67 75 6d 65 6e 74 20 73 74 72 69 6e 67 73 0a 20 20 66 6f 72 20 74 | ame.and.argument.strings...for.t |
| 136bc0 | 68 65 20 73 75 62 70 72 6f 63 65 73 73 2e 0a 49 4e 49 54 20 69 73 20 61 20 66 75 6e 63 74 69 6f | he.subprocess..INIT.is.a.functio |
| 136be0 | 6e 20 74 68 61 74 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 74 6f | n.that.should.return.a.string.to |
| 136c00 | 20 6c 6f 61 64 20 61 6e 64 20 73 74 61 72 74 0a 20 20 53 77 61 6e 6b 2e 20 54 68 65 20 66 75 6e | .load.and.start...Swank..The.fun |
| 136c20 | 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 50 4f | ction.will.be.called.with.the.PO |
| 136c40 | 52 54 2d 46 49 4c 45 4e 41 4d 45 20 61 6e 64 20 45 4e 43 4f 44 49 4e 47 20 61 73 0a 20 20 61 72 | RT-FILENAME.and.ENCODING.as...ar |
| 136c60 | 67 75 6d 65 6e 74 73 2e 20 20 49 4e 49 54 20 64 65 66 61 75 6c 74 73 20 74 6f 20 60 73 6c 69 6d | guments...INIT.defaults.to.`slim |
| 136c80 | 65 2d 69 6e 69 74 2d 63 6f 6d 6d 61 6e 64 27 2e 0a 43 4f 44 49 4e 47 2d 53 59 53 54 45 4d 20 61 | e-init-command'..CODING-SYSTEM.a |
| 136ca0 | 20 73 79 6d 62 6f 6c 20 66 6f 72 20 74 68 65 20 63 6f 64 69 6e 67 20 73 79 73 74 65 6d 2e 20 54 | .symbol.for.the.coding.system..T |
| 136cc0 | 68 65 20 64 65 66 61 75 6c 74 20 69 73 0a 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 | he.default.is...slime-net-coding |
| 136ce0 | 2d 73 79 73 74 65 6d 0a 45 4e 56 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 | -system.ENV.environment.variable |
| 136d00 | 73 20 66 6f 72 20 74 68 65 20 73 75 62 70 72 6f 63 65 73 73 20 28 73 65 65 20 60 70 72 6f 63 65 | s.for.the.subprocess.(see.`proce |
| 136d20 | 73 73 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 27 29 2e 0a 49 4e 49 54 2d 46 55 4e 43 54 49 4f 4e 20 | ss-environment')..INIT-FUNCTION. |
| 136d40 | 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c 20 72 69 67 68 74 20 61 66 74 65 72 20 74 68 65 | function.to.call.right.after.the |
| 136d60 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 65 73 74 61 62 6c 69 73 68 65 64 2e 0a 42 55 46 46 | .connection.is.established..BUFF |
| 136d80 | 45 52 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 74 6f 20 75 73 65 | ER.the.name.of.the.buffer.to.use |
| 136da0 | 20 66 6f 72 20 74 68 65 20 73 75 62 70 72 6f 63 65 73 73 2e 0a 4e 41 4d 45 20 61 20 73 79 6d 62 | .for.the.subprocess..NAME.a.symb |
| 136dc0 | 6f 6c 20 74 6f 20 64 65 73 63 72 69 62 65 20 74 68 65 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e | ol.to.describe.the.Lisp.implemen |
| 136de0 | 74 61 74 69 6f 6e 0a 44 49 52 45 43 54 4f 52 59 20 63 68 61 6e 67 65 20 74 6f 20 74 68 69 73 20 | tation.DIRECTORY.change.to.this. |
| 136e00 | 64 69 72 65 63 74 6f 72 79 20 62 65 66 6f 72 65 20 73 74 61 72 74 69 6e 67 20 74 68 65 20 70 72 | directory.before.starting.the.pr |
| 136e20 | 6f 63 65 73 73 2e 0a 22 0a 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 28 6c 69 73 74 20 3a 70 72 | ocess.."...(let.((args.(list.:pr |
| 136e40 | 6f 67 72 61 6d 20 70 72 6f 67 72 61 6d 20 3a 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 70 72 6f 67 | ogram.program.:program-args.prog |
| 136e60 | 72 61 6d 2d 61 72 67 73 20 3a 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 | ram-args.:buffer.buffer......... |
| 136e80 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 63 6f 64 69 6e | ............:coding-system.codin |
| 136ea0 | 67 2d 73 79 73 74 65 6d 20 3a 69 6e 69 74 20 69 6e 69 74 20 3a 6e 61 6d 65 20 6e 61 6d 65 0a 20 | g-system.:init.init.:name.name.. |
| 136ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 2d 66 75 6e 63 74 69 6f | ...................:init-functio |
| 136ee0 | 6e 20 69 6e 69 74 2d 66 75 6e 63 74 69 6f 6e 20 3a 65 6e 76 20 65 6e 76 29 29 29 0a 20 20 20 20 | n.init-function.:env.env)))..... |
| 136f00 | 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 63 6f 64 69 6e | (slime-check-coding-system.codin |
| 136f20 | 67 2d 73 79 73 74 65 6d 29 0a 20 20 20 20 28 77 68 65 6e 20 28 73 6c 69 6d 65 2d 62 79 74 65 63 | g-system).....(when.(slime-bytec |
| 136f40 | 6f 64 65 2d 73 74 61 6c 65 2d 70 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 75 72 67 65 2d 62 | ode-stale-p).......(slime-urge-b |
| 136f60 | 79 74 65 63 6f 64 65 2d 72 65 63 6f 6d 70 69 6c 65 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 | ytecode-recompile)).....(let.((p |
| 136f80 | 72 6f 63 20 28 73 6c 69 6d 65 2d 6d 61 79 62 65 2d 73 74 61 72 74 2d 6c 69 73 70 20 70 72 6f 67 | roc.(slime-maybe-start-lisp.prog |
| 136fa0 | 72 61 6d 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 65 6e 76 0a 20 20 20 20 20 20 20 20 20 20 20 | ram.program-args.env............ |
| 136fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 | .............................dir |
| 136fe0 | 65 63 74 6f 72 79 20 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e | ectory.buffer))).......(slime-in |
| 137000 | 66 65 72 69 6f 72 2d 63 6f 6e 6e 65 63 74 20 70 72 6f 63 20 61 72 67 73 29 0a 20 20 20 20 20 20 | ferior-connect.proc.args)....... |
| 137020 | 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 | (pop-to-buffer.(process-buffer.p |
| 137040 | 72 6f 63 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 74 61 72 74 2a 20 28 6f | roc)))))..(defun.slime-start*.(o |
| 137060 | 70 74 69 6f 6e 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 73 6c 69 6d 65 2d 73 74 61 72 74 20 6f | ptions)...(apply.#'slime-start.o |
| 137080 | 70 74 69 6f 6e 73 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 | ptions))..;;;###autoload.(defun. |
| 1370a0 | 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 20 28 68 6f 73 74 20 70 6f 72 74 20 26 6f 70 74 69 6f 6e | slime-connect.(host.port.&option |
| 1370c0 | 61 6c 20 5f 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 69 6e 74 65 72 61 63 74 69 76 65 2d 70 20 | al._coding-system.interactive-p. |
| 1370e0 | 26 72 65 73 74 20 70 61 72 61 6d 65 74 65 72 73 29 0a 20 20 22 43 6f 6e 6e 65 63 74 20 74 6f 20 | &rest.parameters)..."Connect.to. |
| 137100 | 61 20 72 75 6e 6e 69 6e 67 20 53 77 61 6e 6b 20 73 65 72 76 65 72 2e 20 52 65 74 75 72 6e 20 74 | a.running.Swank.server..Return.t |
| 137120 | 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 | he.connection."...(interactive.( |
| 137140 | 6c 69 73 74 20 28 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 20 20 20 | list.(read-from-minibuffer...... |
| 137160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 48 6f 73 74 3a 20 22 20 28 63 6c 2d 66 69 | ................."Host:.".(cl-fi |
| 137180 | 72 73 74 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 2d 68 6f 73 74 2d 68 69 73 74 6f 72 79 29 0a | rst.slime-connect-host-history). |
| 1371a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 6e 69 6c 20 27 28 | ......................nil.nil.'( |
| 1371c0 | 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 2d 68 6f 73 74 2d 68 69 73 74 6f 72 79 20 2e 20 31 29 29 | slime-connect-host-history...1)) |
| 1371e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 74 6f | ......................(string-to |
| 137200 | 2d 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 | -number.......................(r |
| 137220 | 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ead-from-minibuffer............. |
| 137240 | 20 20 20 20 20 20 20 20 20 20 20 22 50 6f 72 74 3a 20 22 20 28 63 6c 2d 66 69 72 73 74 20 73 6c | ..........."Port:.".(cl-first.sl |
| 137260 | 69 6d 65 2d 63 6f 6e 6e 65 63 74 2d 70 6f 72 74 2d 68 69 73 74 6f 72 79 29 0a 20 20 20 20 20 20 | ime-connect-port-history)....... |
| 137280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 6e 69 6c 20 27 28 73 6c 69 6d 65 | .................nil.nil.'(slime |
| 1372a0 | 2d 63 6f 6e 6e 65 63 74 2d 70 6f 72 74 2d 68 69 73 74 6f 72 79 20 2e 20 31 29 29 29 0a 20 20 20 | -connect-port-history...1))).... |
| 1372c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 29 29 0a 20 20 28 73 6c 69 | ..................nil.t))...(sli |
| 1372e0 | 6d 65 2d 73 65 74 75 70 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 69 6e 74 65 72 61 63 74 69 | me-setup)...(when.(and.interacti |
| 137300 | 76 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 | ve-p..............slime-net-proc |
| 137320 | 65 73 73 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 43 6c | esses..............(y-or-n-p."Cl |
| 137340 | 6f 73 65 20 6f 6c 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 66 69 72 73 74 3f 20 22 29 29 0a 20 | ose.old.connections.first?.")).. |
| 137360 | 20 20 20 28 73 6c 69 6d 65 2d 64 69 73 63 6f 6e 6e 65 63 74 2d 61 6c 6c 29 29 0a 20 20 28 6d 65 | ...(slime-disconnect-all))...(me |
| 137380 | 73 73 61 67 65 20 22 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 53 77 61 6e 6b 20 6f 6e 20 70 6f | ssage."Connecting.to.Swank.on.po |
| 1373a0 | 72 74 20 25 53 2e 2e 22 20 70 6f 72 74 29 0a 20 20 28 73 6c 69 6d 65 2d 73 65 74 75 70 2d 63 6f | rt.%S..".port)...(slime-setup-co |
| 1373c0 | 6e 6e 65 63 74 69 6f 6e 20 28 61 70 70 6c 79 20 27 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 6e 6e 65 | nnection.(apply.'slime-net-conne |
| 1373e0 | 63 74 20 68 6f 73 74 20 70 6f 72 74 20 70 61 72 61 6d 65 74 65 72 73 29 29 29 0a 0a 3b 3b 20 46 | ct.host.port.parameters)))..;;.F |
| 137400 | 49 58 4d 45 3a 20 73 65 65 6d 73 20 72 65 64 75 6e 64 61 6e 74 0a 28 64 65 66 75 6e 20 73 6c 69 | IXME:.seems.redundant.(defun.sli |
| 137420 | 6d 65 2d 73 74 61 72 74 2d 61 6e 64 2d 69 6e 69 74 20 28 6f 70 74 69 6f 6e 73 20 66 75 6e 29 0a | me-start-and-init.(options.fun). |
| 137440 | 20 20 28 6c 65 74 2a 20 28 28 72 65 73 74 20 28 70 6c 69 73 74 2d 67 65 74 20 6f 70 74 69 6f 6e | ..(let*.((rest.(plist-get.option |
| 137460 | 73 20 3a 69 6e 69 74 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 69 | s.:init-function))..........(ini |
| 137480 | 74 20 28 63 6f 6e 64 20 28 72 65 73 74 20 60 28 6c 61 6d 62 64 61 20 28 29 20 28 66 75 6e 63 61 | t.(cond.(rest.`(lambda.().(funca |
| 1374a0 | 6c 6c 20 27 2c 72 65 73 74 29 20 28 66 75 6e 63 61 6c 6c 20 27 2c 66 75 6e 29 29 29 0a 20 20 20 | ll.',rest).(funcall.',fun))).... |
| 1374c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 66 75 6e 29 29 29 29 0a 20 20 20 | ..................(t.fun)))).... |
| 1374e0 | 20 28 73 6c 69 6d 65 2d 73 74 61 72 74 2a 20 28 70 6c 69 73 74 2d 70 75 74 20 28 63 6c 2d 63 6f | .(slime-start*.(plist-put.(cl-co |
| 137500 | 70 79 2d 6c 69 73 74 20 6f 70 74 69 6f 6e 73 29 20 3a 69 6e 69 74 2d 66 75 6e 63 74 69 6f 6e 20 | py-list.options).:init-function. |
| 137520 | 69 6e 69 74 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 53 74 61 72 74 20 69 6e 66 65 72 69 6f 72 20 6c | init))))..;;;;;.Start.inferior.l |
| 137540 | 69 73 70 0a 3b 3b 3b 0a 3b 3b 3b 20 48 65 72 65 20 69 73 20 74 68 65 20 70 72 6f 74 6f 63 6f 6c | isp.;;;.;;;.Here.is.the.protocol |
| 137560 | 20 66 6f 72 20 73 74 61 72 74 69 6e 67 20 53 4c 49 4d 45 3a 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 30 | .for.starting.SLIME:.;;;.;;;...0 |
| 137580 | 2e 20 45 6d 61 63 73 20 72 65 63 6f 6d 70 69 6c 65 73 2f 72 65 6c 6f 61 64 73 20 73 6c 69 6d 65 | ..Emacs.recompiles/reloads.slime |
| 1375a0 | 2e 65 6c 63 20 69 66 20 69 74 20 65 78 69 73 74 73 20 61 6e 64 20 69 73 20 73 74 61 6c 65 2e 0a | .elc.if.it.exists.and.is.stale.. |
| 1375c0 | 3b 3b 3b 20 20 20 31 2e 20 45 6d 61 63 73 20 73 74 61 72 74 73 20 61 6e 20 69 6e 66 65 72 69 6f | ;;;...1..Emacs.starts.an.inferio |
| 1375e0 | 72 20 4c 69 73 70 20 70 72 6f 63 65 73 73 2e 0a 3b 3b 3b 20 20 20 32 2e 20 45 6d 61 63 73 20 74 | r.Lisp.process..;;;...2..Emacs.t |
| 137600 | 65 6c 6c 73 20 4c 69 73 70 20 28 76 69 61 20 73 74 64 69 6f 29 20 74 6f 20 6c 6f 61 64 20 61 6e | ells.Lisp.(via.stdio).to.load.an |
| 137620 | 64 20 73 74 61 72 74 20 53 77 61 6e 6b 2e 0a 3b 3b 3b 20 20 20 33 2e 20 4c 69 73 70 20 72 65 63 | d.start.Swank..;;;...3..Lisp.rec |
| 137640 | 6f 6d 70 69 6c 65 73 20 74 68 65 20 53 77 61 6e 6b 20 69 66 20 6e 65 65 64 65 64 2e 0a 3b 3b 3b | ompiles.the.Swank.if.needed..;;; |
| 137660 | 20 20 20 34 2e 20 4c 69 73 70 20 73 74 61 72 74 73 20 74 68 65 20 53 77 61 6e 6b 20 73 65 72 76 | ...4..Lisp.starts.the.Swank.serv |
| 137680 | 65 72 20 61 6e 64 20 77 72 69 74 65 73 20 69 74 73 20 54 43 50 20 70 6f 72 74 20 74 6f 20 61 20 | er.and.writes.its.TCP.port.to.a. |
| 1376a0 | 74 65 6d 70 20 66 69 6c 65 2e 0a 3b 3b 3b 20 20 20 35 2e 20 45 6d 61 63 73 20 72 65 61 64 73 20 | temp.file..;;;...5..Emacs.reads. |
| 1376c0 | 74 68 65 20 74 65 6d 70 20 66 69 6c 65 20 74 6f 20 67 65 74 20 74 68 65 20 70 6f 72 74 20 61 6e | the.temp.file.to.get.the.port.an |
| 1376e0 | 64 20 74 68 65 6e 20 63 6f 6e 6e 65 63 74 73 2e 0a 3b 3b 3b 20 20 20 36 2e 20 45 6d 61 63 73 20 | d.then.connects..;;;...6..Emacs. |
| 137700 | 70 72 69 6e 74 73 20 61 20 6d 65 73 73 61 67 65 20 6f 66 20 77 61 72 6d 20 65 6e 63 6f 75 72 61 | prints.a.message.of.warm.encoura |
| 137720 | 67 65 6d 65 6e 74 20 66 6f 72 20 74 68 65 20 68 61 63 6b 69 6e 67 20 61 68 65 61 64 2e 0a 3b 3b | gement.for.the.hacking.ahead..;; |
| 137740 | 3b 0a 3b 3b 3b 20 42 65 74 77 65 65 6e 20 73 74 65 70 73 20 32 2d 35 20 45 6d 61 63 73 20 70 6f | ;.;;;.Between.steps.2-5.Emacs.po |
| 137760 | 6c 6c 73 20 66 6f 72 20 74 68 65 20 63 72 65 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 65 6d 70 | lls.for.the.creation.of.the.temp |
| 137780 | 20 66 69 6c 65 20 73 6f 0a 3b 3b 3b 20 74 68 61 74 20 69 74 20 63 61 6e 20 6d 61 6b 65 20 74 68 | .file.so.;;;.that.it.can.make.th |
| 1377a0 | 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 54 68 69 73 20 70 6f 6c 6c 69 6e 67 20 6d 61 79 20 63 | e.connection..This.polling.may.c |
| 1377c0 | 6f 6e 74 69 6e 75 65 20 66 6f 72 20 61 0a 3b 3b 3b 20 66 61 69 72 20 77 68 69 6c 65 20 69 66 20 | ontinue.for.a.;;;.fair.while.if. |
| 1377e0 | 53 77 61 6e 6b 20 6e 65 65 64 73 20 72 65 63 6f 6d 70 69 6c 61 74 69 6f 6e 2e 0a 0a 28 64 65 66 | Swank.needs.recompilation...(def |
| 137800 | 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 2d 72 65 74 72 79 2d 74 69 6d 65 72 20 6e 69 | var.slime-connect-retry-timer.ni |
| 137820 | 6c 0a 20 20 22 54 69 6d 65 72 20 6f 62 6a 65 63 74 20 77 68 69 6c 65 20 77 61 69 74 69 6e 67 20 | l..."Timer.object.while.waiting. |
| 137840 | 66 6f 72 20 61 6e 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 20 74 6f 20 73 74 61 72 74 2e 22 29 | for.an.inferior-lisp.to.start.") |
| 137860 | 0a 0a 3b 3b 3b 20 52 65 63 6f 6d 70 69 6c 69 6e 67 20 62 79 74 65 63 6f 64 65 3a 0a 0a 28 64 65 | ..;;;.Recompiling.bytecode:..(de |
| 137880 | 66 75 6e 20 73 6c 69 6d 65 2d 62 79 74 65 63 6f 64 65 2d 73 74 61 6c 65 2d 70 20 28 29 0a 20 20 | fun.slime-bytecode-stale-p.()... |
| 1378a0 | 22 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 73 6c 69 6d 65 2e 65 6c 63 20 69 73 20 6f 6c 64 | "Return.true.if.slime.elc.is.old |
| 1378c0 | 65 72 20 74 68 61 6e 20 73 6c 69 6d 65 2e 65 6c 2e 22 0a 20 20 28 6c 65 74 20 28 28 6c 69 62 66 | er.than.slime.el."...(let.((libf |
| 1378e0 | 69 6c 65 20 28 6c 6f 63 61 74 65 2d 6c 69 62 72 61 72 79 20 22 73 6c 69 6d 65 22 29 29 29 0a 20 | ile.(locate-library."slime"))).. |
| 137900 | 20 20 20 28 77 68 65 6e 20 6c 69 62 66 69 6c 65 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 62 | ...(when.libfile.......(let*.((b |
| 137920 | 61 73 65 6e 61 6d 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 73 61 6e 73 2d 65 78 74 65 6e 73 69 6f | asename.(file-name-sans-extensio |
| 137940 | 6e 20 6c 69 62 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 | n.libfile))..............(source |
| 137960 | 66 69 6c 65 20 28 63 6f 6e 63 61 74 20 62 61 73 65 6e 61 6d 65 20 22 2e 65 6c 22 29 29 0a 20 20 | file.(concat.basename.".el"))... |
| 137980 | 20 20 20 20 20 20 20 20 20 20 20 28 62 79 74 65 66 69 6c 65 20 28 63 6f 6e 63 61 74 20 62 61 73 | ...........(bytefile.(concat.bas |
| 1379a0 | 65 6e 61 6d 65 20 22 2e 65 6c 63 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 66 69 | ename.".elc"))).........(and.(fi |
| 1379c0 | 6c 65 2d 65 78 69 73 74 73 2d 70 20 62 79 74 65 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 | le-exists-p.bytefile)........... |
| 1379e0 | 20 20 20 28 66 69 6c 65 2d 6e 65 77 65 72 2d 74 68 61 6e 2d 66 69 6c 65 2d 70 20 73 6f 75 72 63 | ...(file-newer-than-file-p.sourc |
| 137a00 | 65 66 69 6c 65 20 62 79 74 65 66 69 6c 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | efile.bytefile))))))..(defun.sli |
| 137a20 | 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 62 79 74 65 63 6f 64 65 20 28 29 0a 20 20 22 52 65 63 6f | me-recompile-bytecode.()..."Reco |
| 137a40 | 6d 70 69 6c 65 20 61 6e 64 20 72 65 6c 6f 61 64 20 73 6c 69 6d 65 2e 22 0a 20 20 28 69 6e 74 65 | mpile.and.reload.slime."...(inte |
| 137a60 | 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 73 6f 75 72 63 65 66 69 6c 65 20 28 63 6f | ractive)...(let.((sourcefile.(co |
| 137a80 | 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 73 61 6e 73 2d 65 78 74 65 6e 73 69 6f 6e 20 28 | ncat.(file-name-sans-extension.( |
| 137aa0 | 6c 6f 63 61 74 65 2d 6c 69 62 72 61 72 79 20 22 73 6c 69 6d 65 22 29 29 0a 20 20 20 20 20 20 20 | locate-library."slime"))........ |
| 137ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2e 65 6c 22 29 29 29 0a 20 20 | .....................".el")))... |
| 137ae0 | 20 20 28 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 73 6f 75 72 63 65 66 69 6c 65 20 | ..(byte-compile-file.sourcefile. |
| 137b00 | 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 75 72 67 65 2d 62 79 74 65 63 6f 64 65 | t)))..(defun.slime-urge-bytecode |
| 137b20 | 2d 72 65 63 6f 6d 70 69 6c 65 20 28 29 0a 20 20 22 55 72 67 65 20 74 68 65 20 75 73 65 72 20 74 | -recompile.()..."Urge.the.user.t |
| 137b40 | 6f 20 72 65 63 6f 6d 70 69 6c 65 20 73 6c 69 6d 65 2e 65 6c 63 2e 0a 52 65 74 75 72 6e 20 74 72 | o.recompile.slime.elc..Return.tr |
| 137b60 | 75 65 20 69 66 20 77 65 20 68 61 76 65 20 62 65 65 6e 20 67 69 76 65 6e 20 70 65 72 6d 69 73 73 | ue.if.we.have.been.given.permiss |
| 137b80 | 69 6f 6e 20 74 6f 20 63 6f 6e 74 69 6e 75 65 2e 22 0a 20 20 28 77 68 65 6e 20 28 79 2d 6f 72 2d | ion.to.continue."...(when.(y-or- |
| 137ba0 | 6e 2d 70 20 22 73 6c 69 6d 65 2e 65 6c 63 20 69 73 20 6f 6c 64 65 72 20 74 68 61 6e 20 73 6f 75 | n-p."slime.elc.is.older.than.sou |
| 137bc0 | 72 63 65 2e 20 20 52 65 63 6f 6d 70 69 6c 65 20 66 69 72 73 74 3f 20 22 29 0a 20 20 20 20 28 73 | rce...Recompile.first?.").....(s |
| 137be0 | 6c 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 62 79 74 65 63 6f 64 65 29 29 29 0a 0a 28 64 65 66 | lime-recompile-bytecode)))..(def |
| 137c00 | 75 6e 20 73 6c 69 6d 65 2d 61 62 6f 72 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 29 0a 20 20 22 | un.slime-abort-connection.()..." |
| 137c20 | 41 62 6f 72 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e | Abort.connection.the.current.con |
| 137c40 | 6e 65 63 74 69 6f 6e 20 61 74 74 65 6d 70 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | nection.attempt."...(interactive |
| 137c60 | 29 0a 20 20 28 63 6f 6e 64 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 2d 72 65 74 72 79 2d 74 | )...(cond.(slime-connect-retry-t |
| 137c80 | 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 61 6e 63 65 6c 2d 63 6f 6e 6e | imer..........(slime-cancel-conn |
| 137ca0 | 65 63 74 2d 72 65 74 72 79 2d 74 69 6d 65 72 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 | ect-retry-timer)..........(messa |
| 137cc0 | 67 65 20 22 43 61 6e 63 65 6c 6c 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 61 74 74 65 6d 70 74 | ge."Cancelled.connection.attempt |
| 137ce0 | 2e 22 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 4e 6f 74 20 63 6f 6e 6e | .")).........(t.(error."Not.conn |
| 137d00 | 65 63 74 69 6e 67 22 29 29 29 29 0a 0a 3b 3b 3b 20 53 74 61 72 74 69 6e 67 20 74 68 65 20 69 6e | ecting"))))..;;;.Starting.the.in |
| 137d20 | 66 65 72 69 6f 72 20 4c 69 73 70 20 61 6e 64 20 6c 6f 61 64 69 6e 67 20 53 77 61 6e 6b 3a 0a 0a | ferior.Lisp.and.loading.Swank:.. |
| 137d40 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 79 62 65 2d 73 74 61 72 74 2d 6c 69 73 70 20 28 70 | (defun.slime-maybe-start-lisp.(p |
| 137d60 | 72 6f 67 72 61 6d 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 65 6e 76 20 64 69 72 65 63 74 6f 72 | rogram.program-args.env.director |
| 137d80 | 79 20 62 75 66 66 65 72 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6f 72 20 65 78 69 | y.buffer)..."Return.a.new.or.exi |
| 137da0 | 73 74 69 6e 67 20 69 6e 66 65 72 69 6f 72 20 6c 69 73 70 20 70 72 6f 63 65 73 73 2e 22 0a 20 20 | sting.inferior.lisp.process."... |
| 137dc0 | 28 63 6f 6e 64 20 28 28 6e 6f 74 20 28 63 6f 6d 69 6e 74 2d 63 68 65 63 6b 2d 70 72 6f 63 20 62 | (cond.((not.(comint-check-proc.b |
| 137de0 | 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 74 61 72 74 2d 6c 69 | uffer))..........(slime-start-li |
| 137e00 | 73 70 20 70 72 6f 67 72 61 6d 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 65 6e 76 20 64 69 72 65 | sp.program.program-args.env.dire |
| 137e20 | 63 74 6f 72 79 20 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 72 | ctory.buffer)).........((slime-r |
| 137e40 | 65 69 6e 69 74 69 61 6c 69 7a 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 20 70 72 6f 67 | einitialize-inferior-lisp-p.prog |
| 137e60 | 72 61 6d 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 65 6e 76 20 62 75 66 66 65 72 29 0a 20 20 20 | ram.program-args.env.buffer).... |
| 137e80 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 6e 20 28 63 6c 2d 66 69 6e 64 20 28 67 65 74 2d | ......(let.((conn.(cl-find.(get- |
| 137ea0 | 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 | buffer-process.buffer).......... |
| 137ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 | .....................slime-net-p |
| 137ee0 | 72 6f 63 65 73 73 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rocesses........................ |
| 137f00 | 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f | .......:key.#'slime-inferior-pro |
| 137f20 | 63 65 73 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 6f 6e 6e 0a 20 20 | cess)))............(when.conn... |
| 137f40 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6e 65 74 2d 63 6c 6f 73 65 20 63 6f 6e 6e | ...........(slime-net-close.conn |
| 137f60 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 | )))..........(get-buffer-process |
| 137f80 | 20 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 73 6c 69 6d 65 2d 73 74 61 72 | .buffer)).........(t.(slime-star |
| 137fa0 | 74 2d 6c 69 73 70 20 70 72 6f 67 72 61 6d 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 65 6e 76 20 | t-lisp.program.program-args.env. |
| 137fc0 | 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | directory....................... |
| 137fe0 | 20 20 20 20 20 20 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 2d 6e 61 6d 65 | .......(generate-new-buffer-name |
| 138000 | 20 62 75 66 66 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 69 6e 69 | .buffer)))))..(defun.slime-reini |
| 138020 | 74 69 61 6c 69 7a 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 20 28 70 72 6f 67 72 61 6d | tialize-inferior-lisp-p.(program |
| 138040 | 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 65 6e 76 20 62 75 66 66 65 72 29 0a 20 20 28 6c 65 74 | .program-args.env.buffer)...(let |
| 138060 | 20 28 28 61 72 67 73 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 61 72 67 | .((args.(slime-inferior-lisp-arg |
| 138080 | 73 20 28 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 62 75 66 66 65 72 29 29 29 29 | s.(get-buffer-process.buffer)))) |
| 1380a0 | 0a 20 20 20 20 28 61 6e 64 20 28 65 71 75 61 6c 20 28 70 6c 69 73 74 2d 67 65 74 20 61 72 67 73 | .....(and.(equal.(plist-get.args |
| 1380c0 | 20 3a 70 72 6f 67 72 61 6d 29 20 70 72 6f 67 72 61 6d 29 0a 20 20 20 20 20 20 20 20 20 28 65 71 | .:program).program)..........(eq |
| 1380e0 | 75 61 6c 20 28 70 6c 69 73 74 2d 67 65 74 20 61 72 67 73 20 3a 70 72 6f 67 72 61 6d 2d 61 72 67 | ual.(plist-get.args.:program-arg |
| 138100 | 73 29 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c | s).program-args)..........(equal |
| 138120 | 20 28 70 6c 69 73 74 2d 67 65 74 20 61 72 67 73 20 3a 65 6e 76 29 20 65 6e 76 29 0a 20 20 20 20 | .(plist-get.args.:env).env)..... |
| 138140 | 20 20 20 20 20 28 6e 6f 74 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 43 72 65 61 74 65 20 61 6e 20 61 | .....(not.(y-or-n-p."Create.an.a |
| 138160 | 64 64 69 74 69 6f 6e 61 6c 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 3f 20 22 29 29 29 29 | dditional.*inferior-lisp*?.")))) |
| 138180 | 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 | )..(defvar.slime-inferior-proces |
| 1381a0 | 73 2d 73 74 61 72 74 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 48 6f 6f 6b 20 63 61 6c 6c 65 64 20 | s-start-hook.nil..."Hook.called. |
| 1381c0 | 77 68 65 6e 65 76 65 72 20 61 20 6e 65 77 20 70 72 6f 63 65 73 73 20 67 65 74 73 20 73 74 61 72 | whenever.a.new.process.gets.star |
| 1381e0 | 74 65 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c | ted.")..(defvar.slime-inferior-l |
| 138200 | 69 73 70 2d 63 6f 6e 6e 65 63 74 65 64 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 | isp-connected.nil).(defvar.slime |
| 138220 | 2d 74 65 72 6d 69 6e 61 6c 2d 6f 75 74 70 75 74 2d 66 75 6e 63 74 69 6f 6e 20 27 69 64 65 6e 74 | -terminal-output-function.'ident |
| 138240 | 69 74 79 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 74 61 72 74 2d 6c 69 73 70 20 28 70 | ity)..(defun.slime-start-lisp.(p |
| 138260 | 72 6f 67 72 61 6d 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 65 6e 76 20 64 69 72 65 63 74 6f 72 | rogram.program-args.env.director |
| 138280 | 79 20 62 75 66 66 65 72 29 0a 20 20 22 44 6f 65 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 60 69 | y.buffer)..."Does.the.same.as.`i |
| 1382a0 | 6e 66 65 72 69 6f 72 2d 6c 69 73 70 27 20 62 75 74 20 6c 65 73 73 20 75 67 6c 79 2e 0a 52 65 74 | nferior-lisp'.but.less.ugly..Ret |
| 1382c0 | 75 72 6e 20 74 68 65 20 63 72 65 61 74 65 64 20 70 72 6f 63 65 73 73 2e 22 0a 20 20 28 77 69 74 | urn.the.created.process."...(wit |
| 1382e0 | 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 | h-current-buffer.(get-buffer-cre |
| 138300 | 61 74 65 20 62 75 66 66 65 72 29 0a 20 20 20 20 28 77 68 65 6e 20 64 69 72 65 63 74 6f 72 79 0a | ate.buffer).....(when.directory. |
| 138320 | 20 20 20 20 20 20 28 63 64 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 69 72 65 | ......(cd.(expand-file-name.dire |
| 138340 | 63 74 6f 72 79 29 29 29 0a 20 20 20 20 28 63 6f 6d 69 6e 74 2d 6d 6f 64 65 29 0a 20 20 20 20 28 | ctory))).....(comint-mode).....( |
| 138360 | 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 73 6c 69 6d 65 2d | set.(make-local-variable.'slime- |
| 138380 | 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 63 6f 6e 6e 65 63 74 65 64 29 20 6e 69 6c 29 0a 20 20 | inferior-lisp-connected).nil)... |
| 1383a0 | 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 63 6f 6d 69 6e 74 2d 70 72 65 6f 75 74 70 75 74 2d 66 69 | ..(add-hook.'comint-preoutput-fi |
| 1383c0 | 6c 74 65 72 2d 66 75 6e 63 74 69 6f 6e 73 20 27 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 69 6e 66 | lter-functions.'slime-insert-inf |
| 1383e0 | 65 72 69 6f 72 2d 6c 69 73 70 2d 6f 75 74 70 75 74 20 30 20 74 29 0a 20 20 20 20 28 6c 65 74 20 | erior-lisp-output.0.t).....(let. |
| 138400 | 28 28 70 72 6f 63 65 73 73 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 61 70 70 65 6e 64 20 65 6e | ((process-environment.(append.en |
| 138420 | 76 20 70 72 6f 63 65 73 73 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 | v.process-environment))......... |
| 138440 | 20 20 28 70 72 6f 63 65 73 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 74 79 70 65 20 6e 69 6c 29 29 | ..(process-connection-type.nil)) |
| 138460 | 0a 20 20 20 20 20 20 28 63 6f 6d 69 6e 74 2d 65 78 65 63 20 28 63 75 72 72 65 6e 74 2d 62 75 66 | .......(comint-exec.(current-buf |
| 138480 | 66 65 72 29 20 22 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 22 20 70 72 6f 67 72 61 6d 20 6e 69 6c | fer)."inferior-lisp".program.nil |
| 1384a0 | 20 70 72 6f 67 72 61 6d 2d 61 72 67 73 29 29 0a 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 2d 76 | .program-args)).....(lisp-mode-v |
| 1384c0 | 61 72 69 61 62 6c 65 73 20 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 63 20 28 67 65 74 | ariables.t).....(let.((proc.(get |
| 1384e0 | 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 | -buffer-process.(current-buffer) |
| 138500 | 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 74 2d 71 75 65 72 79 2d 6f 6e 2d 65 78 | ))).......(slime-set-query-on-ex |
| 138520 | 69 74 2d 66 6c 61 67 20 70 72 6f 63 29 0a 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 | it-flag.proc).......(run-hooks.' |
| 138540 | 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 2d 73 74 61 72 74 2d 68 6f 6f | slime-inferior-process-start-hoo |
| 138560 | 6b 29 0a 20 20 20 20 20 20 70 72 6f 63 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 | k).......proc)))..(defun.slime-i |
| 138580 | 6e 66 65 72 69 6f 72 2d 63 6f 6e 6e 65 63 74 20 28 70 72 6f 63 65 73 73 20 61 72 67 73 29 0a 20 | nferior-connect.(process.args).. |
| 1385a0 | 20 22 53 74 61 72 74 20 61 20 53 77 61 6e 6b 20 73 65 72 76 65 72 20 69 6e 20 74 68 65 20 69 6e | ."Start.a.Swank.server.in.the.in |
| 1385c0 | 66 65 72 69 6f 72 20 4c 69 73 70 20 61 6e 64 20 63 6f 6e 6e 65 63 74 2e 22 0a 20 20 28 73 6c 69 | ferior.Lisp.and.connect."...(sli |
| 1385e0 | 6d 65 2d 64 65 6c 65 74 65 2d 73 77 61 6e 6b 2d 70 6f 72 74 2d 66 69 6c 65 20 27 71 75 69 65 74 | me-delete-swank-port-file.'quiet |
| 138600 | 29 0a 20 20 28 73 6c 69 6d 65 2d 73 74 61 72 74 2d 73 77 61 6e 6b 2d 73 65 72 76 65 72 20 70 72 | )...(slime-start-swank-server.pr |
| 138620 | 6f 63 65 73 73 20 61 72 67 73 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 70 6f 72 74 2d 61 | ocess.args)...(slime-read-port-a |
| 138640 | 6e 64 2d 63 6f 6e 6e 65 63 74 20 70 72 6f 63 65 73 73 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c | nd-connect.process))..(defvar.sl |
| 138660 | 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 61 72 67 73 20 6e 69 6c 0a 20 20 22 41 20 | ime-inferior-lisp-args.nil..."A. |
| 138680 | 62 75 66 66 65 72 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 69 6e 20 74 68 65 20 69 6e 66 | buffer.local.variable.in.the.inf |
| 1386a0 | 65 72 69 6f 72 20 70 72 6f 63 63 65 73 73 2e 0a 53 65 65 20 60 73 6c 69 6d 65 2d 73 74 61 72 74 | erior.proccess..See.`slime-start |
| 1386c0 | 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 74 61 72 74 2d 73 77 61 6e 6b 2d 73 | '.")..(defun.slime-start-swank-s |
| 1386e0 | 65 72 76 65 72 20 28 70 72 6f 63 65 73 73 20 61 72 67 73 29 0a 20 20 22 53 74 61 72 74 20 61 20 | erver.(process.args)..."Start.a. |
| 138700 | 53 77 61 6e 6b 20 73 65 72 76 65 72 20 6f 6e 20 74 68 65 20 69 6e 66 65 72 69 6f 72 20 6c 69 73 | Swank.server.on.the.inferior.lis |
| 138720 | 70 2e 22 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 6b | p."...(cl-destructuring-bind.(&k |
| 138740 | 65 79 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 69 6e 69 74 20 26 61 6c 6c 6f 77 2d 6f 74 68 | ey.coding-system.init.&allow-oth |
| 138760 | 65 72 2d 6b 65 79 73 29 20 61 72 67 73 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d | er-keys).args.....(with-current- |
| 138780 | 62 75 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 29 0a | buffer.(process-buffer.process). |
| 1387a0 | 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 73 6c 69 6d | ......(make-local-variable.'slim |
| 1387c0 | 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 61 72 67 73 29 0a 20 20 20 20 20 20 28 73 65 74 | e-inferior-lisp-args).......(set |
| 1387e0 | 71 20 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 61 72 67 73 20 61 72 67 73 29 | q.slime-inferior-lisp-args.args) |
| 138800 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 72 20 28 66 75 6e 63 61 6c 6c 20 69 6e 69 74 20 | .......(let.((str.(funcall.init. |
| 138820 | 28 73 6c 69 6d 65 2d 73 77 61 6e 6b 2d 70 6f 72 74 2d 66 69 6c 65 29 20 63 6f 64 69 6e 67 2d 73 | (slime-swank-port-file).coding-s |
| 138840 | 79 73 74 65 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 72 6f | ystem))).........(goto-char.(pro |
| 138860 | 63 65 73 73 2d 6d 61 72 6b 20 70 72 6f 63 65 73 73 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 | cess-mark.process)).........(ins |
| 138880 | 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 | ert-before-markers.str)......... |
| 1388a0 | 28 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 70 72 6f 63 65 73 73 20 73 74 72 | (process-send-string.process.str |
| 1388c0 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 | )))))..(defun.slime-inferior-lis |
| 1388e0 | 70 2d 61 72 67 73 20 28 70 72 6f 63 65 73 73 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 69 | p-args.(process)..."Return.the.i |
| 138900 | 6e 69 74 69 61 6c 20 70 72 6f 63 65 73 73 20 61 72 67 75 6d 65 6e 74 73 2e 0a 53 65 65 20 60 73 | nitial.process.arguments..See.`s |
| 138920 | 6c 69 6d 65 2d 73 74 61 72 74 27 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 | lime-start'."...(with-current-bu |
| 138940 | 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 29 0a 20 20 | ffer.(process-buffer.process)... |
| 138960 | 20 20 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 61 72 67 73 29 29 0a 0a 3b 3b | ..slime-inferior-lisp-args))..;; |
| 138980 | 20 58 58 58 20 6c 6f 61 64 2d 73 65 72 76 65 72 20 26 20 73 74 61 72 74 2d 73 65 72 76 65 72 20 | .XXX.load-server.&.start-server. |
| 1389a0 | 75 73 65 64 20 74 6f 20 62 65 20 73 65 70 61 72 61 74 65 64 2e 20 6d 61 79 62 65 20 74 68 61 74 | used.to.be.separated..maybe.that |
| 1389c0 | 20 77 61 73 20 20 62 65 74 74 65 72 2e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 69 74 2d | .was..better..(defun.slime-init- |
| 1389e0 | 63 6f 6d 6d 61 6e 64 20 28 70 6f 72 74 2d 66 69 6c 65 6e 61 6d 65 20 5f 63 6f 64 69 6e 67 2d 73 | command.(port-filename._coding-s |
| 138a00 | 79 73 74 65 6d 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 74 6f 20 69 6e 69 | ystem)..."Return.a.string.to.ini |
| 138a20 | 74 69 61 6c 69 7a 65 20 4c 69 73 70 2e 22 0a 20 20 28 6c 65 74 20 28 28 6c 6f 61 64 65 72 20 28 | tialize.Lisp."...(let.((loader.( |
| 138a40 | 69 66 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 62 73 6f 6c 75 74 65 2d 70 20 73 6c 69 6d 65 2d 62 | if.(file-name-absolute-p.slime-b |
| 138a60 | 61 63 6b 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d | ackend).....................slim |
| 138a80 | 65 2d 62 61 63 6b 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e | e-backend...................(con |
| 138aa0 | 63 61 74 20 73 6c 69 6d 65 2d 70 61 74 68 20 73 6c 69 6d 65 2d 62 61 63 6b 65 6e 64 29 29 29 29 | cat.slime-path.slime-backend)))) |
| 138ac0 | 0a 20 20 20 20 3b 3b 20 52 65 74 75 72 6e 20 61 20 73 69 6e 67 6c 65 20 66 6f 72 6d 20 74 6f 20 | .....;;.Return.a.single.form.to. |
| 138ae0 | 61 76 6f 69 64 20 70 72 6f 62 6c 65 6d 73 20 77 69 74 68 20 62 75 66 66 65 72 65 64 20 69 6e 70 | avoid.problems.with.buffered.inp |
| 138b00 | 75 74 2e 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 53 5c 6e 5c 6e 22 0a 20 20 20 20 20 20 20 | ut......(format."%S\n\n"........ |
| 138b20 | 20 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 61 | .....`(progn................(loa |
| 138b40 | 64 20 2c 28 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 28 65 78 70 61 | d.,(slime-to-lisp-filename.(expa |
| 138b60 | 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 6c 6f 61 64 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 | nd-file-name.loader))........... |
| 138b80 | 20 20 20 20 20 20 20 20 20 20 20 3a 76 65 72 62 6f 73 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 | ...........:verbose.t).......... |
| 138ba0 | 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 | ......(funcall.(read-from-string |
| 138bc0 | 20 22 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 69 6e 69 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 | ."swank-loader:init")........... |
| 138be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 72 6f 6d 2d 65 6d 61 63 73 20 74 29 0a 20 20 20 | ..............:from-emacs.t).... |
| 138c00 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d | ............(funcall.(read-from- |
| 138c20 | 73 74 72 69 6e 67 20 22 73 77 61 6e 6b 3a 73 74 61 72 74 2d 73 65 72 76 65 72 22 29 0a 20 20 20 | string."swank:start-server").... |
| 138c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 73 6c 69 6d 65 2d 74 6f 2d | .....................,(slime-to- |
| 138c60 | 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 70 6f 72 74 2d 66 69 6c 65 6e 61 6d 65 29 29 29 29 29 | lisp-filename.port-filename))))) |
| 138c80 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 77 61 6e 6b 2d 70 6f 72 74 2d 66 69 6c 65 20 | )..(defun.slime-swank-port-file. |
| 138ca0 | 28 29 0a 20 20 22 46 69 6c 65 6e 61 6d 65 20 77 68 65 72 65 20 74 68 65 20 53 57 41 4e 4b 20 73 | ()..."Filename.where.the.SWANK.s |
| 138cc0 | 65 72 76 65 72 20 77 72 69 74 65 73 20 69 74 73 20 54 43 50 20 70 6f 72 74 20 6e 75 6d 62 65 72 | erver.writes.its.TCP.port.number |
| 138ce0 | 2e 22 0a 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 22 | ."...(expand-file-name.(format." |
| 138d00 | 73 6c 69 6d 65 2e 25 53 22 20 28 65 6d 61 63 73 2d 70 69 64 29 29 20 28 73 6c 69 6d 65 2d 74 65 | slime.%S".(emacs-pid)).(slime-te |
| 138d20 | 6d 70 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 65 | mp-directory)))..(defun.slime-te |
| 138d40 | 6d 70 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 28 63 6f 6e 64 20 28 28 66 62 6f 75 6e 64 | mp-directory.()...(cond.((fbound |
| 138d60 | 70 20 27 74 65 6d 70 2d 64 69 72 65 63 74 6f 72 79 29 20 28 74 65 6d 70 2d 64 69 72 65 63 74 6f | p.'temp-directory).(temp-directo |
| 138d80 | 72 79 29 29 0a 20 20 20 20 20 20 20 20 28 28 62 6f 75 6e 64 70 20 27 74 65 6d 70 6f 72 61 72 79 | ry)).........((boundp.'temporary |
| 138da0 | 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 20 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 2d | -file-directory).temporary-file- |
| 138dc0 | 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 28 74 20 22 2f 74 6d 70 2f 22 29 29 29 | directory).........(t."/tmp/"))) |
| 138de0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 6c 65 74 65 2d 73 77 61 6e 6b 2d 70 6f 72 74 | ..(defun.slime-delete-swank-port |
| 138e00 | 2d 66 69 6c 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 71 75 69 65 74 29 0a 20 20 28 63 6f 6e 64 69 | -file.(&optional.quiet)...(condi |
| 138e20 | 74 69 6f 6e 2d 63 61 73 65 20 64 61 74 61 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 6c | tion-case.data.......(delete-fil |
| 138e40 | 65 20 28 73 6c 69 6d 65 2d 73 77 61 6e 6b 2d 70 6f 72 74 2d 66 69 6c 65 29 29 0a 20 20 20 20 28 | e.(slime-swank-port-file)).....( |
| 138e60 | 65 72 72 6f 72 0a 20 20 20 20 20 28 63 6c 2d 65 63 61 73 65 20 71 75 69 65 74 0a 20 20 20 20 20 | error......(cl-ecase.quiet...... |
| 138e80 | 20 20 28 28 6e 69 6c 29 20 28 73 69 67 6e 61 6c 20 28 63 61 72 20 64 61 74 61 29 20 28 63 64 72 | ..((nil).(signal.(car.data).(cdr |
| 138ea0 | 20 64 61 74 61 29 29 29 0a 20 20 20 20 20 20 20 28 71 75 69 65 74 29 0a 20 20 20 20 20 20 20 28 | .data)))........(quiet)........( |
| 138ec0 | 6d 65 73 73 61 67 65 20 28 6d 65 73 73 61 67 65 20 22 55 6e 61 62 6c 65 20 74 6f 20 64 65 6c 65 | message.(message."Unable.to.dele |
| 138ee0 | 74 65 20 73 77 61 6e 6b 20 70 6f 72 74 20 66 69 6c 65 20 25 53 22 0a 20 20 20 20 20 20 20 20 20 | te.swank.port.file.%S".......... |
| 138f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 77 61 6e 6b 2d 70 6f 72 | ................(slime-swank-por |
| 138f20 | 74 2d 66 69 6c 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 61 64 | t-file)))))))..(defun.slime-read |
| 138f40 | 2d 70 6f 72 74 2d 61 6e 64 2d 63 6f 6e 6e 65 63 74 20 28 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 | -port-and-connect.(inferior-proc |
| 138f60 | 65 73 73 29 0a 20 20 28 73 6c 69 6d 65 2d 61 74 74 65 6d 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e | ess)...(slime-attempt-connection |
| 138f80 | 20 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 20 6e 69 6c 20 31 29 29 0a 0a 28 64 65 66 75 | .inferior-process.nil.1))..(defu |
| 138fa0 | 6e 20 73 6c 69 6d 65 2d 61 74 74 65 6d 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 70 72 6f 63 | n.slime-attempt-connection.(proc |
| 138fc0 | 65 73 73 20 72 65 74 72 69 65 73 20 61 74 74 65 6d 70 74 29 0a 20 20 3b 3b 20 41 20 73 6d 61 6c | ess.retries.attempt)...;;.A.smal |
| 138fe0 | 6c 20 6f 6e 65 2d 73 74 61 74 65 20 6d 61 63 68 69 6e 65 20 74 6f 20 61 74 74 65 6d 70 74 20 61 | l.one-state.machine.to.attempt.a |
| 139000 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 69 74 68 0a 20 20 3b 3b 20 74 69 6d 65 72 2d 62 61 73 65 | .connection.with...;;.timer-base |
| 139020 | 64 20 72 65 74 72 69 65 73 2e 0a 20 20 28 73 6c 69 6d 65 2d 63 61 6e 63 65 6c 2d 63 6f 6e 6e 65 | d.retries....(slime-cancel-conne |
| 139040 | 63 74 2d 72 65 74 72 79 2d 74 69 6d 65 72 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 73 | ct-retry-timer)...(let.((file.(s |
| 139060 | 6c 69 6d 65 2d 73 77 61 6e 6b 2d 70 6f 72 74 2d 66 69 6c 65 29 29 29 0a 20 20 20 20 28 75 6e 6c | lime-swank-port-file))).....(unl |
| 139080 | 65 73 73 20 28 61 63 74 69 76 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 0a 20 | ess.(active-minibuffer-window).. |
| 1390a0 | 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 50 6f 6c 6c 69 6e 67 20 25 53 20 2e 2e 20 25 64 20 | .....(message."Polling.%S....%d. |
| 1390c0 | 28 41 62 6f 72 74 20 77 69 74 68 20 60 4d 2d 78 20 73 6c 69 6d 65 2d 61 62 6f 72 74 2d 63 6f 6e | (Abort.with.`M-x.slime-abort-con |
| 1390e0 | 6e 65 63 74 69 6f 6e 27 2e 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 20 | nection'.)"................file. |
| 139100 | 61 74 74 65 6d 70 74 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 66 69 6c 65 2d | attempt)).....(cond.((and.(file- |
| 139120 | 65 78 69 73 74 73 2d 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | exists-p.file).................( |
| 139140 | 3e 20 28 6e 74 68 20 37 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 66 69 6c 65 29 29 | >.(nth.7.(file-attributes.file)) |
| 139160 | 20 30 29 29 20 3b 20 66 69 6c 65 20 73 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | .0)).;.file.size............(let |
| 139180 | 20 28 28 70 6f 72 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 77 61 6e 6b 2d 70 6f 72 74 29 29 | .((port.(slime-read-swank-port)) |
| 1391a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 73 20 28 73 6c 69 6d 65 2d 69 | ..................(args.(slime-i |
| 1391c0 | 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 61 72 67 73 20 70 72 6f 63 65 73 73 29 29 29 0a 20 20 20 | nferior-lisp-args.process))).... |
| 1391e0 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 65 6c 65 74 65 2d 73 77 61 6e 6b 2d 70 6f | ..........(slime-delete-swank-po |
| 139200 | 72 74 2d 66 69 6c 65 20 27 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | rt-file.'message)..............( |
| 139220 | 6c 65 74 20 28 28 63 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 20 73 6c 69 6d 65 2d 6c 69 73 | let.((c.(slime-connect.slime-lis |
| 139240 | 70 2d 68 6f 73 74 20 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p-host.port..................... |
| 139260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6c 69 73 74 2d 67 65 74 20 61 72 67 73 | .................(plist-get.args |
| 139280 | 20 3a 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .:coding-system))))............. |
| 1392a0 | 20 20 20 28 73 6c 69 6d 65 2d 73 65 74 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 20 63 | ...(slime-set-inferior-process.c |
| 1392c0 | 20 70 72 6f 63 65 73 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 72 65 74 | .process))))...........((and.ret |
| 1392e0 | 72 69 65 73 20 28 7a 65 72 6f 70 20 72 65 74 72 69 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ries.(zerop.retries))........... |
| 139300 | 20 28 6d 65 73 73 61 67 65 20 22 47 61 76 65 20 75 70 20 63 6f 6e 6e 65 63 74 69 6e 67 20 74 6f | .(message."Gave.up.connecting.to |
| 139320 | 20 53 77 61 6e 6b 20 61 66 74 65 72 20 25 64 20 61 74 74 65 6d 70 74 73 2e 22 20 61 74 74 65 6d | .Swank.after.%d.attempts.".attem |
| 139340 | 70 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 28 70 72 6f 63 65 73 73 2d 73 74 61 | pt))...........((eq.(process-sta |
| 139360 | 74 75 73 20 70 72 6f 63 65 73 73 29 20 27 65 78 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | tus.process).'exit)............( |
| 139380 | 6d 65 73 73 61 67 65 20 22 46 61 69 6c 65 64 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 20 53 77 | message."Failed.to.connect.to.Sw |
| 1393a0 | 61 6e 6b 3a 20 69 6e 66 65 72 69 6f 72 20 70 72 6f 63 65 73 73 20 65 78 69 74 65 64 2e 22 29 29 | ank:.inferior.process.exited.")) |
| 1393c0 | 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 | ...........(t............(when.( |
| 1393e0 | 61 6e 64 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 | and.(file-exists-p.file)........ |
| 139400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 7a 65 72 6f 70 20 28 6e 74 68 20 37 20 28 66 69 | ...............(zerop.(nth.7.(fi |
| 139420 | 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 66 69 6c 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | le-attributes.file)))).......... |
| 139440 | 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 28 5a 65 72 6f 20 6c 65 6e 67 74 68 20 70 6f 72 74 20 | ....(message."(Zero.length.port. |
| 139460 | 66 69 6c 65 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 66 69 6c 65 | file)")..............;;.the.file |
| 139480 | 20 6d 61 79 20 62 65 20 69 6e 20 74 68 65 20 66 69 6c 65 73 79 73 74 65 6d 20 62 75 74 20 6e 6f | .may.be.in.the.filesystem.but.no |
| 1394a0 | 74 20 79 65 74 20 77 72 69 74 74 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 | t.yet.written..............(unle |
| 1394c0 | 73 73 20 72 65 74 72 69 65 73 20 28 73 65 74 71 20 72 65 74 72 69 65 73 20 33 29 29 29 0a 20 20 | ss.retries.(setq.retries.3)))... |
| 1394e0 | 20 20 20 20 20 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 6e 6f 74 20 73 6c 69 6d 65 2d 63 | .........(cl-assert.(not.slime-c |
| 139500 | 6f 6e 6e 65 63 74 2d 72 65 74 72 79 2d 74 69 6d 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | onnect-retry-timer))............ |
| 139520 | 28 73 65 74 71 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 2d 72 65 74 72 79 2d 74 69 6d 65 72 0a | (setq.slime-connect-retry-timer. |
| 139540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d 77 69 74 68 2d 74 69 6d 65 72 | .................(run-with-timer |
| 139560 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2e 33 20 6e 69 6c 0a 20 20 20 20 20 | ...................0.3.nil...... |
| 139580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 74 69 6d 65 72 2d 63 61 6c 6c 20 | .............#'slime-timer-call. |
| 1395a0 | 23 27 73 6c 69 6d 65 2d 61 74 74 65 6d 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 | #'slime-attempt-connection...... |
| 1395c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 73 73 20 28 61 6e 64 20 72 65 74 72 69 65 | .............process.(and.retrie |
| 1395e0 | 73 20 28 31 2d 20 72 65 74 72 69 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.(1-.retries))................. |
| 139600 | 20 20 28 31 2b 20 61 74 74 65 6d 70 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | ..(1+.attempt)))))))..(defun.sli |
| 139620 | 6d 65 2d 74 69 6d 65 72 2d 63 61 6c 6c 20 28 66 75 6e 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 | me-timer-call.(fun.&rest.args).. |
| 139640 | 20 22 43 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 46 55 4e 20 77 69 74 68 20 41 52 47 53 2c 20 72 | ."Call.function.FUN.with.ARGS,.r |
| 139660 | 65 70 6f 72 74 69 6e 67 20 61 6c 6c 20 65 72 72 6f 72 73 2e 0a 0a 54 68 65 20 64 65 66 61 75 6c | eporting.all.errors...The.defaul |
| 139680 | 74 20 63 6f 6e 64 69 74 69 6f 6e 20 68 61 6e 64 6c 65 72 20 66 6f 72 20 74 69 6d 65 72 20 66 75 | t.condition.handler.for.timer.fu |
| 1396a0 | 6e 63 74 69 6f 6e 73 20 28 73 65 65 0a 60 74 69 6d 65 72 2d 65 76 65 6e 74 2d 68 61 6e 64 6c 65 | nctions.(see.`timer-event-handle |
| 1396c0 | 72 27 29 20 69 67 6e 6f 72 65 73 20 65 72 72 6f 72 73 2e 22 0a 20 20 28 63 6f 6e 64 69 74 69 6f | r').ignores.errors."...(conditio |
| 1396e0 | 6e 2d 63 61 73 65 20 64 61 74 61 0a 20 20 20 20 20 20 28 61 70 70 6c 79 20 66 75 6e 20 61 72 67 | n-case.data.......(apply.fun.arg |
| 139700 | 73 29 0a 20 20 20 20 28 28 64 65 62 75 67 20 65 72 72 6f 72 29 0a 20 20 20 20 20 28 64 65 62 75 | s).....((debug.error)......(debu |
| 139720 | 67 20 6e 69 6c 20 28 6c 69 73 74 20 22 45 72 72 6f 72 20 69 6e 20 74 69 6d 65 72 22 20 66 75 6e | g.nil.(list."Error.in.timer".fun |
| 139740 | 20 61 72 67 73 20 64 61 74 61 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 61 | .args.data)))))..(defun.slime-ca |
| 139760 | 6e 63 65 6c 2d 63 6f 6e 6e 65 63 74 2d 72 65 74 72 79 2d 74 69 6d 65 72 20 28 29 0a 20 20 28 77 | ncel-connect-retry-timer.()...(w |
| 139780 | 68 65 6e 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 2d 72 65 74 72 79 2d 74 69 6d 65 72 0a 20 20 | hen.slime-connect-retry-timer... |
| 1397a0 | 20 20 28 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 2d 72 65 | ..(cancel-timer.slime-connect-re |
| 1397c0 | 74 72 79 2d 74 69 6d 65 72 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 | try-timer).....(setq.slime-conne |
| 1397e0 | 63 74 2d 72 65 74 72 79 2d 74 69 6d 65 72 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | ct-retry-timer.nil)))..(defun.sl |
| 139800 | 69 6d 65 2d 72 65 61 64 2d 73 77 61 6e 6b 2d 70 6f 72 74 20 28 29 0a 20 20 22 52 65 61 64 20 74 | ime-read-swank-port.()..."Read.t |
| 139820 | 68 65 20 53 77 61 6e 6b 20 73 65 72 76 65 72 20 70 6f 72 74 20 6e 75 6d 62 65 72 20 66 72 6f 6d | he.Swank.server.port.number.from |
| 139840 | 20 74 68 65 20 60 73 6c 69 6d 65 2d 73 77 61 6e 6b 2d 70 6f 72 74 2d 66 69 6c 65 27 2e 22 0a 20 | .the.`slime-swank-port-file'.".. |
| 139860 | 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d | .(save-excursion.....(with-temp- |
| 139880 | 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e | buffer.......(insert-file-conten |
| 1398a0 | 74 73 20 28 73 6c 69 6d 65 2d 73 77 61 6e 6b 2d 70 6f 72 74 2d 66 69 6c 65 29 29 0a 20 20 20 20 | ts.(slime-swank-port-file))..... |
| 1398c0 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 | ..(goto-char.(point-min))....... |
| 1398e0 | 28 6c 65 74 20 28 28 70 6f 72 74 20 28 72 65 61 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | (let.((port.(read.(current-buffe |
| 139900 | 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 69 6e 74 65 67 65 | r)))).........(cl-assert.(intege |
| 139920 | 72 70 20 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 70 6f 72 74 29 29 29 29 0a 0a 28 64 65 66 | rp.port)).........port))))..(def |
| 139940 | 75 6e 20 73 6c 69 6d 65 2d 74 6f 67 67 6c 65 2d 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 65 | un.slime-toggle-debug-on-swank-e |
| 139960 | 72 72 6f 72 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 73 | rror.()...(interactive)...(if.(s |
| 139980 | 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 74 6f 67 67 6c 65 2d 64 65 62 75 67 2d 6f | lime-eval.`(swank:toggle-debug-o |
| 1399a0 | 6e 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 | n-swank-error)).......(message." |
| 1399c0 | 44 65 62 75 67 20 6f 6e 20 53 57 41 4e 4b 20 65 72 72 6f 72 20 65 6e 61 62 6c 65 64 2e 22 29 0a | Debug.on.SWANK.error.enabled."). |
| 1399e0 | 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 44 65 62 75 67 20 6f 6e 20 53 57 41 4e 4b 20 65 72 72 | ....(message."Debug.on.SWANK.err |
| 139a00 | 6f 72 20 64 69 73 61 62 6c 65 64 2e 22 29 29 29 0a 0a 3b 3b 3b 20 57 6f 72 64 73 20 6f 66 20 65 | or.disabled.")))..;;;.Words.of.e |
| 139a20 | 6e 63 6f 75 72 61 67 65 6d 65 6e 74 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 75 73 65 72 2d | ncouragement..(defun.slime-user- |
| 139a40 | 66 69 72 73 74 2d 6e 61 6d 65 20 28 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 69 66 20 | first-name.()...(let.((name.(if. |
| 139a60 | 28 73 74 72 69 6e 67 3d 20 28 75 73 65 72 2d 66 75 6c 6c 2d 6e 61 6d 65 29 20 22 22 29 0a 20 20 | (string=.(user-full-name)."")... |
| 139a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 6c 6f 67 69 6e 2d 6e 61 6d 65 | ................(user-login-name |
| 139aa0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 66 75 6c 6c 2d 6e 61 6d | ).................(user-full-nam |
| 139ac0 | 65 29 29 29 29 0a 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5b 5e 20 5d 2a 22 | e)))).....(string-match."^[^.]*" |
| 139ae0 | 20 6e 61 6d 65 29 0a 20 20 20 20 28 63 61 70 69 74 61 6c 69 7a 65 20 28 6d 61 74 63 68 2d 73 74 | .name).....(capitalize.(match-st |
| 139b00 | 72 69 6e 67 20 30 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 77 | ring.0.name))))..(defvar.slime-w |
| 139b20 | 6f 72 64 73 2d 6f 66 2d 65 6e 63 6f 75 72 61 67 65 6d 65 6e 74 0a 20 20 60 28 22 4c 65 74 20 74 | ords-of-encouragement...`("Let.t |
| 139b40 | 68 65 20 68 61 63 6b 69 6e 67 20 63 6f 6d 6d 65 6e 63 65 21 22 0a 20 20 20 20 22 48 61 63 6b 73 | he.hacking.commence!"....."Hacks |
| 139b60 | 20 61 6e 64 20 67 6c 6f 72 79 20 61 77 61 69 74 21 22 0a 20 20 20 20 22 48 61 63 6b 20 61 6e 64 | .and.glory.await!"....."Hack.and |
| 139b80 | 20 62 65 20 6d 65 72 72 79 21 22 0a 20 20 20 20 22 59 6f 75 72 20 68 61 63 6b 69 6e 67 20 73 74 | .be.merry!"....."Your.hacking.st |
| 139ba0 | 61 72 74 73 2e 2e 2e 20 4e 4f 57 21 22 0a 20 20 20 20 22 4d 61 79 20 74 68 65 20 73 6f 75 72 63 | arts....NOW!"....."May.the.sourc |
| 139bc0 | 65 20 62 65 20 77 69 74 68 20 79 6f 75 21 22 0a 20 20 20 20 22 4c 65 6d 6f 6e 6f 64 6f 72 2d 66 | e.be.with.you!"....."Lemonodor-f |
| 139be0 | 61 6d 65 20 69 73 20 62 75 74 20 61 20 68 61 63 6b 20 61 77 61 79 21 22 0a 20 20 20 20 22 41 72 | ame.is.but.a.hack.away!"....."Ar |
| 139c00 | 65 20 77 65 20 63 6f 6e 73 69 6e 67 20 79 65 74 3f 22 0a 20 20 20 20 2c 28 66 6f 72 6d 61 74 20 | e.we.consing.yet?".....,(format. |
| 139c20 | 22 25 73 2c 20 74 68 69 73 20 63 6f 75 6c 64 20 62 65 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 | "%s,.this.could.be.the.start.of. |
| 139c40 | 61 20 62 65 61 75 74 69 66 75 6c 20 70 72 6f 67 72 61 6d 2e 22 0a 20 20 20 20 20 20 20 20 20 20 | a.beautiful.program."........... |
| 139c60 | 20 20 20 28 73 6c 69 6d 65 2d 75 73 65 72 2d 66 69 72 73 74 2d 6e 61 6d 65 29 29 29 0a 20 20 22 | ...(slime-user-first-name)))..." |
| 139c80 | 53 63 69 65 6e 74 69 66 69 63 61 6c 6c 79 2d 70 72 6f 76 65 6e 20 6f 70 74 69 6d 61 6c 20 77 6f | Scientifically-proven.optimal.wo |
| 139ca0 | 72 64 73 20 6f 66 20 68 61 63 6b 65 72 69 73 68 20 65 6e 63 6f 75 72 61 67 65 6d 65 6e 74 2e 22 | rds.of.hackerish.encouragement." |
| 139cc0 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 61 6e 64 6f 6d 2d 77 6f 72 64 73 2d 6f 66 2d | )..(defun.slime-random-words-of- |
| 139ce0 | 65 6e 63 6f 75 72 61 67 65 6d 65 6e 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 74 72 | encouragement.()..."Return.a.str |
| 139d00 | 69 6e 67 20 6f 66 20 68 61 63 6b 65 72 69 73 68 20 65 6e 63 6f 75 72 61 67 65 6d 65 6e 74 2e 22 | ing.of.hackerish.encouragement." |
| 139d20 | 0a 20 20 28 65 76 61 6c 20 28 6e 74 68 20 28 72 61 6e 64 6f 6d 20 28 6c 65 6e 67 74 68 20 73 6c | ...(eval.(nth.(random.(length.sl |
| 139d40 | 69 6d 65 2d 77 6f 72 64 73 2d 6f 66 2d 65 6e 63 6f 75 72 61 67 65 6d 65 6e 74 29 29 0a 20 20 20 | ime-words-of-encouragement)).... |
| 139d60 | 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 77 6f 72 64 73 2d 6f 66 2d 65 6e 63 6f 75 72 61 | ..........slime-words-of-encoura |
| 139d80 | 67 65 6d 65 6e 74 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4e 65 74 77 6f 72 6b 69 6e 67 0a 3b 3b 3b | gement)))....;;;;.Networking.;;; |
| 139da0 | 0a 3b 3b 3b 20 54 68 69 73 20 73 65 63 74 69 6f 6e 20 63 6f 76 65 72 73 20 74 68 65 20 6c 6f 77 | .;;;.This.section.covers.the.low |
| 139dc0 | 2d 6c 65 76 65 6c 20 6e 65 74 77 6f 72 6b 69 6e 67 3a 20 65 73 74 61 62 6c 69 73 68 69 6e 67 0a | -level.networking:.establishing. |
| 139de0 | 3b 3b 3b 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 61 6e 64 20 65 6e 63 6f 64 69 6e 67 2f 64 65 63 | ;;;.connections.and.encoding/dec |
| 139e00 | 6f 64 69 6e 67 20 70 72 6f 74 6f 63 6f 6c 20 6d 65 73 73 61 67 65 73 2e 0a 3b 3b 3b 0a 3b 3b 3b | oding.protocol.messages..;;;.;;; |
| 139e20 | 20 45 61 63 68 20 53 4c 49 4d 45 20 70 72 6f 74 6f 63 6f 6c 20 6d 65 73 73 61 67 65 20 62 65 69 | .Each.SLIME.protocol.message.bei |
| 139e40 | 6e 67 73 20 77 69 74 68 20 61 20 36 2d 62 79 74 65 20 68 65 61 64 65 72 20 66 6f 6c 6c 6f 77 65 | ngs.with.a.6-byte.header.followe |
| 139e60 | 64 0a 3b 3b 3b 20 62 79 20 61 6e 20 53 2d 65 78 70 72 65 73 73 69 6f 6e 20 61 73 20 74 65 78 74 | d.;;;.by.an.S-expression.as.text |
| 139e80 | 2e 20 54 68 65 20 73 65 78 70 20 6d 75 73 74 20 62 65 20 72 65 61 64 61 62 6c 65 20 62 6f 74 68 | ..The.sexp.must.be.readable.both |
| 139ea0 | 20 62 79 0a 3b 3b 3b 20 45 6d 61 63 73 20 61 6e 64 20 62 79 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 | .by.;;;.Emacs.and.by.Common.Lisp |
| 139ec0 | 2c 20 73 6f 20 69 66 20 69 74 20 63 6f 6e 74 61 69 6e 73 20 61 6e 79 20 65 6d 62 65 64 64 65 64 | ,.so.if.it.contains.any.embedded |
| 139ee0 | 20 63 6f 64 65 0a 3b 3b 3b 20 66 72 61 67 6d 65 6e 74 73 20 74 68 65 79 20 73 68 6f 75 6c 64 20 | .code.;;;.fragments.they.should. |
| 139f00 | 62 65 20 73 65 6e 74 20 61 73 20 73 74 72 69 6e 67 73 3a 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 | be.sent.as.strings:.;;;.;;;.The. |
| 139f20 | 73 65 74 20 6f 66 20 6d 65 61 6e 69 6e 67 66 75 6c 20 70 72 6f 74 6f 63 6f 6c 20 6d 65 73 73 61 | set.of.meaningful.protocol.messa |
| 139f40 | 67 65 73 20 61 72 65 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 0a 3b 3b 3b 20 68 65 72 65 2e 20 | ges.are.not.specified.;;;.here.. |
| 139f60 | 54 68 65 79 20 61 72 65 20 64 65 66 69 6e 65 64 20 65 6c 73 65 77 68 65 72 65 20 62 79 20 74 68 | They.are.defined.elsewhere.by.th |
| 139f80 | 65 20 65 76 65 6e 74 2d 64 69 73 70 61 74 63 68 69 6e 67 0a 3b 3b 3b 20 66 75 6e 63 74 69 6f 6e | e.event-dispatching.;;;.function |
| 139fa0 | 73 20 69 6e 20 74 68 69 73 20 66 69 6c 65 20 61 6e 64 20 69 6e 20 73 77 61 6e 6b 2e 6c 69 73 70 | s.in.this.file.and.in.swank.lisp |
| 139fc0 | 2e 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 20 6e | ...(defvar.slime-net-processes.n |
| 139fe0 | 69 6c 0a 20 20 22 4c 69 73 74 20 6f 66 20 70 72 6f 63 65 73 73 65 73 20 28 73 6f 63 6b 65 74 73 | il..."List.of.processes.(sockets |
| 13a000 | 29 20 63 6f 6e 6e 65 63 74 65 64 20 74 6f 20 4c 69 73 70 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 | ).connected.to.Lisps.")..(defvar |
| 13a020 | 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 2d 63 6c 6f 73 65 2d 68 6f 6f 6b 73 20 27 | .slime-net-process-close-hooks.' |
| 13a040 | 28 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 63 61 6c 6c 65 64 20 77 | ()..."List.of.functions.called.w |
| 13a060 | 68 65 6e 20 61 20 73 6c 69 6d 65 20 6e 65 74 77 6f 72 6b 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 | hen.a.slime.network.connection.c |
| 13a080 | 6c 6f 73 65 73 2e 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 63 61 6c 6c 65 64 20 | loses..The.functions.are.called. |
| 13a0a0 | 77 69 74 68 20 74 68 65 20 70 72 6f 63 65 73 73 20 61 73 20 74 68 65 69 72 20 61 72 67 75 6d 65 | with.the.process.as.their.argume |
| 13a0c0 | 6e 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 63 72 65 74 20 28 29 0a 20 20 | nt.")..(defun.slime-secret.()... |
| 13a0e0 | 22 46 69 6e 64 20 74 68 65 20 6d 61 67 69 63 20 73 65 63 72 65 74 20 66 72 6f 6d 20 74 68 65 20 | "Find.the.magic.secret.from.the. |
| 13a100 | 75 73 65 72 27 73 20 68 6f 6d 65 20 64 69 72 65 63 74 6f 72 79 2e 0a 52 65 74 75 72 6e 20 6e 69 | user's.home.directory..Return.ni |
| 13a120 | 6c 20 69 66 20 74 68 65 20 66 69 6c 65 20 64 6f 65 73 6e 27 74 20 65 78 69 73 74 20 6f 72 20 69 | l.if.the.file.doesn't.exist.or.i |
| 13a140 | 73 20 65 6d 70 74 79 3b 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 0a 66 69 72 73 74 20 6c 69 6e | s.empty;.otherwise.the.first.lin |
| 13a160 | 65 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 22 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 | e.of.the.file."...(condition-cas |
| 13a180 | 65 20 5f 65 72 72 0a 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 09 | e._err.......(with-temp-buffer.. |
| 13a1a0 | 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 22 7e 2f 2e 73 6c 69 6d 65 2d | (insert-file-contents."~/.slime- |
| 13a1c0 | 73 65 63 72 65 74 22 29 0a 09 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 | secret")..(goto-char.(point-min) |
| 13a1e0 | 29 0a 09 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 | )..(buffer-substring.(point-min) |
| 13a200 | 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 66 69 6c 65 | .(line-end-position))).....(file |
| 13a220 | 2d 65 72 72 6f 72 20 6e 69 6c 29 29 29 0a 0a 3b 3b 3b 20 49 6e 74 65 72 66 61 63 65 0a 0a 28 64 | -error.nil)))..;;;.Interface..(d |
| 13a240 | 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 6e 64 2d 73 65 63 72 65 74 20 28 70 72 6f 63 29 0a 20 20 | efun.slime-send-secret.(proc)... |
| 13a260 | 28 6c 65 74 20 28 28 73 65 63 72 65 74 20 28 73 6c 69 6d 65 2d 73 65 63 72 65 74 29 29 29 0a 20 | (let.((secret.(slime-secret))).. |
| 13a280 | 20 20 20 28 77 68 65 6e 20 73 65 63 72 65 74 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 | ...(when.secret.......(let*.((pa |
| 13a2a0 | 79 6c 6f 61 64 20 28 65 6e 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 20 73 65 63 72 | yload.(encode-coding-string.secr |
| 13a2c0 | 65 74 20 27 75 74 66 2d 38 2d 75 6e 69 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | et.'utf-8-unix))..............(s |
| 13a2e0 | 74 72 69 6e 67 20 28 63 6f 6e 63 61 74 20 28 73 6c 69 6d 65 2d 6e 65 74 2d 65 6e 63 6f 64 65 2d | tring.(concat.(slime-net-encode- |
| 13a300 | 6c 65 6e 67 74 68 20 28 6c 65 6e 67 74 68 20 70 61 79 6c 6f 61 64 29 29 0a 20 20 20 20 20 20 20 | length.(length.payload))........ |
| 13a320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 79 6c 6f 61 64 29 29 29 | ......................payload))) |
| 13a340 | 0a 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 70 72 | .........(process-send-string.pr |
| 13a360 | 6f 63 20 73 74 72 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 65 74 | oc.string)))))..(defun.slime-net |
| 13a380 | 2d 63 6f 6e 6e 65 63 74 20 28 68 6f 73 74 20 70 6f 72 74 20 26 72 65 73 74 20 70 61 72 61 6d 65 | -connect.(host.port.&rest.parame |
| 13a3a0 | 74 65 72 73 29 0a 20 20 22 45 73 74 61 62 6c 69 73 68 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 | ters)..."Establish.a.connection. |
| 13a3c0 | 77 69 74 68 20 61 20 43 4c 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e 68 69 62 69 74 2d 71 75 | with.a.CL."...(let*.((inhibit-qu |
| 13a3e0 | 69 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 20 28 61 70 70 6c 79 20 27 6f | it.nil)..........(proc.(apply.'o |
| 13a400 | 70 65 6e 2d 6e 65 74 77 6f 72 6b 2d 73 74 72 65 61 6d 20 22 53 4c 49 4d 45 20 4c 69 73 70 22 20 | pen-network-stream."SLIME.Lisp". |
| 13a420 | 6e 69 6c 20 68 6f 73 74 20 70 6f 72 74 20 70 61 72 61 6d 65 74 65 72 73 29 29 0a 20 20 20 20 20 | nil.host.port.parameters))...... |
| 13a440 | 20 20 20 20 28 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6d 61 6b 65 2d 6e 65 74 2d 62 75 66 66 | ....(buffer.(slime-make-net-buff |
| 13a460 | 65 72 20 22 20 2a 63 6c 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 22 29 29 29 0a 20 20 20 20 28 70 75 | er.".*cl-connection*"))).....(pu |
| 13a480 | 73 68 20 70 72 6f 63 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 0a 20 20 20 | sh.proc.slime-net-processes).... |
| 13a4a0 | 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 20 62 75 66 66 65 72 | .(set-process-buffer.proc.buffer |
| 13a4c0 | 29 0a 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 20 70 72 6f 63 20 27 | ).....(set-process-filter.proc.' |
| 13a4e0 | 73 6c 69 6d 65 2d 6e 65 74 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 | slime-net-filter).....(set-proce |
| 13a500 | 73 73 2d 73 65 6e 74 69 6e 65 6c 20 70 72 6f 63 20 27 73 6c 69 6d 65 2d 6e 65 74 2d 73 65 6e 74 | ss-sentinel.proc.'slime-net-sent |
| 13a520 | 69 6e 65 6c 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 74 2d 71 75 65 72 79 2d 6f 6e 2d 65 78 | inel).....(slime-set-query-on-ex |
| 13a540 | 69 74 2d 66 6c 61 67 20 70 72 6f 63 29 0a 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 | it-flag.proc).....(when.(fboundp |
| 13a560 | 20 27 73 65 74 2d 70 72 6f 63 65 73 73 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 20 | .'set-process-coding-system).... |
| 13a580 | 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 70 72 | ...(set-process-coding-system.pr |
| 13a5a0 | 6f 63 20 27 62 69 6e 61 72 79 20 27 62 69 6e 61 72 79 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d | oc.'binary.'binary)).....(slime- |
| 13a5c0 | 73 65 6e 64 2d 73 65 63 72 65 74 20 70 72 6f 63 29 0a 20 20 20 20 70 72 6f 63 29 29 0a 0a 28 64 | send-secret.proc).....proc))..(d |
| 13a5e0 | 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 6b 65 2d 6e 65 74 2d 62 75 66 66 65 72 20 28 6e 61 6d 65 | efun.slime-make-net-buffer.(name |
| 13a600 | 29 0a 20 20 22 4d 61 6b 65 20 61 20 62 75 66 66 65 72 20 73 75 69 74 61 62 6c 65 20 66 6f 72 20 | )..."Make.a.buffer.suitable.for. |
| 13a620 | 61 20 6e 65 74 77 6f 72 6b 20 70 72 6f 63 65 73 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 75 66 | a.network.process."...(let.((buf |
| 13a640 | 66 65 72 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 6e 61 6d 65 29 29 29 | fer.(generate-new-buffer.name))) |
| 13a660 | 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 | .....(with-current-buffer.buffer |
| 13a680 | 0a 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 64 69 73 61 62 6c 65 2d 75 6e 64 6f 29 0a 20 20 20 | .......(buffer-disable-undo).... |
| 13a6a0 | 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 6b 69 | ...(set.(make-local-variable.'ki |
| 13a6c0 | 6c 6c 2d 62 75 66 66 65 72 2d 71 75 65 72 79 2d 66 75 6e 63 74 69 6f 6e 73 29 20 6e 69 6c 29 29 | ll-buffer-query-functions).nil)) |
| 13a6e0 | 0a 20 20 20 20 62 75 66 66 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 74 2d | .....buffer))..(defun.slime-set- |
| 13a700 | 71 75 65 72 79 2d 6f 6e 2d 65 78 69 74 2d 66 6c 61 67 20 28 70 72 6f 63 65 73 73 29 0a 20 20 22 | query-on-exit-flag.(process)..." |
| 13a720 | 53 65 74 20 50 52 4f 43 45 53 53 27 73 20 71 75 65 72 79 2d 6f 6e 2d 65 78 69 74 2d 66 6c 61 67 | Set.PROCESS's.query-on-exit-flag |
| 13a740 | 20 74 6f 20 60 73 6c 69 6d 65 2d 6b 69 6c 6c 2d 77 69 74 68 6f 75 74 2d 71 75 65 72 79 2d 70 27 | .to.`slime-kill-without-query-p' |
| 13a760 | 2e 22 0a 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 6b 69 6c 6c 2d 77 69 74 68 6f 75 74 2d 71 75 | ."...(when.slime-kill-without-qu |
| 13a780 | 65 72 79 2d 70 0a 20 20 20 20 3b 3b 20 61 76 6f 69 64 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 72 | ery-p.....;;.avoid.byte-compiler |
| 13a7a0 | 20 77 61 72 6e 69 6e 67 73 0a 20 20 20 20 28 6c 65 74 20 28 28 66 75 6e 20 28 69 66 20 28 66 62 | .warnings.....(let.((fun.(if.(fb |
| 13a7c0 | 6f 75 6e 64 70 20 27 73 65 74 2d 70 72 6f 63 65 73 73 2d 71 75 65 72 79 2d 6f 6e 2d 65 78 69 74 | oundp.'set-process-query-on-exit |
| 13a7e0 | 2d 66 6c 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 65 74 2d 70 | -flag)....................'set-p |
| 13a800 | 72 6f 63 65 73 73 2d 71 75 65 72 79 2d 6f 6e 2d 65 78 69 74 2d 66 6c 61 67 0a 20 20 20 20 20 20 | rocess-query-on-exit-flag....... |
| 13a820 | 20 20 20 20 20 20 20 20 20 20 20 27 70 72 6f 63 65 73 73 2d 6b 69 6c 6c 2d 77 69 74 68 6f 75 74 | ...........'process-kill-without |
| 13a840 | 2d 71 75 65 72 79 29 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 20 70 72 6f | -query))).......(funcall.fun.pro |
| 13a860 | 63 65 73 73 20 6e 69 6c 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 43 6f 64 69 6e 67 20 73 79 73 74 65 | cess.nil))))..;;;;;.Coding.syste |
| 13a880 | 6d 20 6d 61 64 6e 65 73 73 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 63 6f | m.madness..(defun.slime-check-co |
| 13a8a0 | 64 69 6e 67 2d 73 79 73 74 65 6d 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 22 53 | ding-system.(coding-system)..."S |
| 13a8c0 | 69 67 6e 61 6c 20 61 6e 20 65 72 72 6f 72 20 69 66 20 43 4f 44 49 4e 47 2d 53 59 53 54 45 4d 20 | ignal.an.error.if.CODING-SYSTEM. |
| 13a8e0 | 69 73 6e 27 74 20 61 20 76 61 6c 69 64 20 63 6f 64 69 6e 67 20 73 79 73 74 65 6d 2e 22 0a 20 20 | isn't.a.valid.coding.system."... |
| 13a900 | 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 70 73 20 28 73 6c | (interactive)...(let.((props.(sl |
| 13a920 | 69 6d 65 2d 66 69 6e 64 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 63 6f 64 69 6e 67 2d 73 79 | ime-find-coding-system.coding-sy |
| 13a940 | 73 74 65 6d 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 70 72 6f 70 73 0a 20 20 20 20 20 20 | stem))).....(unless.props....... |
| 13a960 | 28 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 | (error."Invalid.slime-net-coding |
| 13a980 | 2d 73 79 73 74 65 6d 3a 20 25 73 2e 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f | -system:.%s..%s"..............co |
| 13a9a0 | 64 69 6e 67 2d 73 79 73 74 65 6d 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 73 6c 69 6d 65 2d | ding-system.(mapcar.#'car.slime- |
| 13a9c0 | 6e 65 74 2d 76 61 6c 69 64 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 73 29 29 29 0a 20 20 20 20 | net-valid-coding-systems)))..... |
| 13a9e0 | 28 77 68 65 6e 20 28 61 6e 64 20 28 63 6c 2d 73 65 63 6f 6e 64 20 70 72 6f 70 73 29 20 28 62 6f | (when.(and.(cl-second.props).(bo |
| 13aa00 | 75 6e 64 70 20 27 64 65 66 61 75 6c 74 2d 65 6e 61 62 6c 65 2d 6d 75 6c 74 69 62 79 74 65 2d 63 | undp.'default-enable-multibyte-c |
| 13aa20 | 68 61 72 61 63 74 65 72 73 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 64 65 66 | haracters)).......(cl-assert.def |
| 13aa40 | 61 75 6c 74 2d 65 6e 61 62 6c 65 2d 6d 75 6c 74 69 62 79 74 65 2d 63 68 61 72 61 63 74 65 72 73 | ault-enable-multibyte-characters |
| 13aa60 | 29 29 0a 20 20 20 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 64 69 6e 67 2d | )).....t))..(defun.slime-coding- |
| 13aa80 | 73 79 73 74 65 6d 2d 6d 75 6c 69 62 79 74 65 2d 70 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d | system-mulibyte-p.(coding-system |
| 13aaa0 | 29 0a 20 20 28 63 6c 2d 73 65 63 6f 6e 64 20 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 63 6f 64 69 6e | )...(cl-second.(slime-find-codin |
| 13aac0 | 67 2d 73 79 73 74 65 6d 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 29 29 0a 0a 28 64 65 66 75 | g-system.coding-system)))..(defu |
| 13aae0 | 6e 20 73 6c 69 6d 65 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2d 63 6c 2d 6e 61 6d 65 20 28 63 | n.slime-coding-system-cl-name.(c |
| 13ab00 | 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 28 63 6c 2d 74 68 69 72 64 20 28 73 6c 69 6d 65 | oding-system)...(cl-third.(slime |
| 13ab20 | 2d 66 69 6e 64 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 | -find-coding-system.coding-syste |
| 13ab40 | 6d 29 29 29 0a 0a 3b 3b 3b 20 49 6e 74 65 72 66 61 63 65 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | m)))..;;;.Interface.(defun.slime |
| 13ab60 | 2d 6e 65 74 2d 73 65 6e 64 20 28 73 65 78 70 20 70 72 6f 63 29 0a 20 20 22 53 65 6e 64 20 61 20 | -net-send.(sexp.proc)..."Send.a. |
| 13ab80 | 53 45 58 50 20 74 6f 20 4c 69 73 70 20 6f 76 65 72 20 74 68 65 20 73 6f 63 6b 65 74 20 50 52 4f | SEXP.to.Lisp.over.the.socket.PRO |
| 13aba0 | 43 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 6c 6f 77 65 73 74 20 6c 65 76 65 6c 20 6f 66 20 63 | C..This.is.the.lowest.level.of.c |
| 13abc0 | 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2e 20 54 68 65 20 73 65 78 70 20 77 69 6c 6c 20 62 65 20 52 | ommunication..The.sexp.will.be.R |
| 13abe0 | 45 41 44 20 61 6e 64 0a 45 56 41 4c 27 64 20 62 79 20 4c 69 73 70 2e 22 0a 20 20 28 6c 65 74 2a | EAD.and.EVAL'd.by.Lisp."...(let* |
| 13ac00 | 20 28 28 70 61 79 6c 6f 61 64 20 28 65 6e 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 | .((payload.(encode-coding-string |
| 13ac20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 73 6c 69 | ....................(concat.(sli |
| 13ac40 | 6d 65 2d 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 73 65 78 70 29 20 22 5c 6e 22 29 0a 20 | me-prin1-to-string.sexp)."\n").. |
| 13ac60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 75 74 66 2d 38 2d 75 6e 69 78 29 29 0a | ..................'utf-8-unix)). |
| 13ac80 | 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 28 63 6f 6e 63 61 74 20 28 73 6c 69 6d 65 2d | .........(string.(concat.(slime- |
| 13aca0 | 6e 65 74 2d 65 6e 63 6f 64 65 2d 6c 65 6e 67 74 68 20 28 6c 65 6e 67 74 68 20 70 61 79 6c 6f 61 | net-encode-length.(length.payloa |
| 13acc0 | 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 79 | d))..........................pay |
| 13ace0 | 6c 6f 61 64 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6c 6f 67 2d 65 76 65 6e 74 20 73 65 78 | load))).....(slime-log-event.sex |
| 13ad00 | 70 29 0a 20 20 20 20 28 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 70 72 6f 63 | p).....(process-send-string.proc |
| 13ad20 | 20 73 74 72 69 6e 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 61 66 65 2d 65 6e | .string)))..(defun.slime-safe-en |
| 13ad40 | 63 6f 64 69 6e 67 2d 70 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 73 74 72 69 6e 67 29 0a | coding-p.(coding-system.string). |
| 13ad60 | 20 20 22 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 66 20 43 4f 44 49 4e 47 2d 53 59 53 54 45 4d | .."Return.true.iff.CODING-SYSTEM |
| 13ad80 | 20 63 61 6e 20 73 61 66 65 6c 79 20 65 6e 63 6f 64 65 20 53 54 52 49 4e 47 2e 22 0a 20 20 28 6f | .can.safely.encode.STRING."...(o |
| 13ada0 | 72 20 28 6c 65 74 20 28 28 63 61 6e 64 69 64 61 74 65 73 20 28 66 69 6e 64 2d 63 6f 64 69 6e 67 | r.(let.((candidates.(find-coding |
| 13adc0 | 2d 73 79 73 74 65 6d 73 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 | -systems-string.string))........ |
| 13ade0 | 20 20 20 20 20 28 62 61 73 65 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2d 62 61 73 65 20 63 | .....(base.(coding-system-base.c |
| 13ae00 | 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 6f 72 20 28 65 71 75 | oding-system))).........(or.(equ |
| 13ae20 | 61 6c 20 63 61 6e 64 69 64 61 74 65 73 20 27 28 75 6e 64 65 63 69 64 65 64 29 29 0a 20 20 20 20 | al.candidates.'(undecided))..... |
| 13ae40 | 20 20 20 20 20 20 20 20 28 6d 65 6d 71 20 62 61 73 65 20 63 61 6e 64 69 64 61 74 65 73 29 29 29 | ........(memq.base.candidates))) |
| 13ae60 | 0a 20 20 20 20 20 20 28 61 6e 64 20 28 6e 6f 74 20 28 6d 75 6c 74 69 62 79 74 65 2d 73 74 72 69 | .......(and.(not.(multibyte-stri |
| 13ae80 | 6e 67 2d 70 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 | ng-p.string))............(not.(s |
| 13aea0 | 6c 69 6d 65 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2d 6d 75 6c 69 62 79 74 65 2d 70 20 63 6f | lime-coding-system-mulibyte-p.co |
| 13aec0 | 64 69 6e 67 2d 73 79 73 74 65 6d 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e | ding-system)))))..(defun.slime-n |
| 13aee0 | 65 74 2d 73 65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 65 73 73 20 6d 65 73 73 61 67 65 29 0a 20 20 | et-sentinel.(process.message)... |
| 13af00 | 28 6d 65 73 73 61 67 65 20 22 4c 69 73 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6c 6f 73 65 64 | (message."Lisp.connection.closed |
| 13af20 | 20 75 6e 65 78 70 65 63 74 65 64 6c 79 3a 20 25 73 22 20 6d 65 73 73 61 67 65 29 0a 20 20 28 73 | .unexpectedly:.%s".message)...(s |
| 13af40 | 6c 69 6d 65 2d 6e 65 74 2d 63 6c 6f 73 65 20 70 72 6f 63 65 73 73 29 29 0a 0a 3b 3b 3b 20 53 6f | lime-net-close.process))..;;;.So |
| 13af60 | 63 6b 65 74 20 69 6e 70 75 74 20 69 73 20 68 61 6e 64 6c 65 64 20 62 79 20 60 73 6c 69 6d 65 2d | cket.input.is.handled.by.`slime- |
| 13af80 | 6e 65 74 2d 66 69 6c 74 65 72 27 2c 20 77 68 69 63 68 20 64 65 63 6f 64 65 73 20 61 6e 79 0a 3b | net-filter',.which.decodes.any.; |
| 13afa0 | 3b 3b 20 63 6f 6d 70 6c 65 74 65 20 6d 65 73 73 61 67 65 73 20 61 6e 64 20 68 61 6e 64 73 20 74 | ;;.complete.messages.and.hands.t |
| 13afc0 | 68 65 6d 20 6f 66 66 20 74 6f 20 74 68 65 20 65 76 65 6e 74 20 64 69 73 70 61 74 63 68 65 72 2e | hem.off.to.the.event.dispatcher. |
| 13afe0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 65 74 2d 66 69 6c 74 65 72 20 28 70 72 6f 63 65 | ..(defun.slime-net-filter.(proce |
| 13b000 | 73 73 20 73 74 72 69 6e 67 29 0a 20 20 22 41 63 63 65 70 74 20 6f 75 74 70 75 74 20 66 72 6f 6d | ss.string)..."Accept.output.from |
| 13b020 | 20 74 68 65 20 73 6f 63 6b 65 74 20 61 6e 64 20 70 72 6f 63 65 73 73 20 61 6c 6c 20 63 6f 6d 70 | .the.socket.and.process.all.comp |
| 13b040 | 6c 65 74 65 20 6d 65 73 73 61 67 65 73 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d | lete.messages."...(with-current- |
| 13b060 | 62 75 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 29 0a | buffer.(process-buffer.process). |
| 13b080 | 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 | ....(goto-char.(point-max))..... |
| 13b0a0 | 28 69 6e 73 65 72 74 20 73 74 72 69 6e 67 29 29 0a 20 20 28 73 6c 69 6d 65 2d 70 72 6f 63 65 73 | (insert.string))...(slime-proces |
| 13b0c0 | 73 2d 61 76 61 69 6c 61 62 6c 65 2d 69 6e 70 75 74 20 70 72 6f 63 65 73 73 29 29 0a 0a 28 64 65 | s-available-input.process))..(de |
| 13b0e0 | 66 75 6e 20 73 6c 69 6d 65 2d 70 72 6f 63 65 73 73 2d 61 76 61 69 6c 61 62 6c 65 2d 69 6e 70 75 | fun.slime-process-available-inpu |
| 13b100 | 74 20 28 70 72 6f 63 65 73 73 29 0a 20 20 22 50 72 6f 63 65 73 73 20 61 6c 6c 20 63 6f 6d 70 6c | t.(process)..."Process.all.compl |
| 13b120 | 65 74 65 20 6d 65 73 73 61 67 65 73 20 74 68 61 74 20 68 61 76 65 20 61 72 72 69 76 65 64 20 66 | ete.messages.that.have.arrived.f |
| 13b140 | 72 6f 6d 20 4c 69 73 70 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | rom.Lisp."...(with-current-buffe |
| 13b160 | 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 28 | r.(process-buffer.process).....( |
| 13b180 | 77 68 69 6c 65 20 28 73 6c 69 6d 65 2d 6e 65 74 2d 68 61 76 65 2d 69 6e 70 75 74 2d 70 29 0a 20 | while.(slime-net-have-input-p).. |
| 13b1a0 | 20 20 20 20 20 28 6c 65 74 20 28 28 65 76 65 6e 74 20 28 73 6c 69 6d 65 2d 6e 65 74 2d 72 65 61 | .....(let.((event.(slime-net-rea |
| 13b1c0 | 64 2d 6f 72 2d 6c 6f 73 65 20 70 72 6f 63 65 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | d-or-lose.process))............. |
| 13b1e0 | 28 6f 6b 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 6f 67 2d 65 76 65 | (ok.nil)).........(slime-log-eve |
| 13b200 | 6e 74 20 65 76 65 6e 74 29 0a 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 | nt.event).........(unwind-protec |
| 13b220 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 | t.............(save-current-buff |
| 13b240 | 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 | er...............(slime-dispatch |
| 13b260 | 2d 65 76 65 6e 74 20 65 76 65 6e 74 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 | -event.event.process)........... |
| 13b280 | 20 20 20 20 28 73 65 74 71 20 6f 6b 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 | ....(setq.ok.t))...........(unle |
| 13b2a0 | 73 73 20 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 75 6e 2d 77 68 65 | ss.ok.............(slime-run-whe |
| 13b2c0 | 6e 2d 69 64 6c 65 20 27 73 6c 69 6d 65 2d 70 72 6f 63 65 73 73 2d 61 76 61 69 6c 61 62 6c 65 2d | n-idle.'slime-process-available- |
| 13b2e0 | 69 6e 70 75 74 20 70 72 6f 63 65 73 73 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | input.process)))))))..(defun.sli |
| 13b300 | 6d 65 2d 6e 65 74 2d 68 61 76 65 2d 69 6e 70 75 74 2d 70 20 28 29 0a 20 20 22 52 65 74 75 72 6e | me-net-have-input-p.()..."Return |
| 13b320 | 20 74 72 75 65 20 69 66 20 61 20 63 6f 6d 70 6c 65 74 65 20 6d 65 73 73 61 67 65 20 69 73 20 61 | .true.if.a.complete.message.is.a |
| 13b340 | 76 61 69 6c 61 62 6c 65 2e 22 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d | vailable."...(goto-char.(point-m |
| 13b360 | 69 6e 29 29 0a 20 20 28 61 6e 64 20 28 3e 3d 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 20 36 29 | in))...(and.(>=.(buffer-size).6) |
| 13b380 | 0a 20 20 20 20 20 20 20 28 3e 3d 20 28 2d 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 20 36 29 20 | ........(>=.(-.(buffer-size).6). |
| 13b3a0 | 28 73 6c 69 6d 65 2d 6e 65 74 2d 64 65 63 6f 64 65 2d 6c 65 6e 67 74 68 29 29 29 29 0a 0a 28 64 | (slime-net-decode-length))))..(d |
| 13b3c0 | 65 66 75 6e 20 73 6c 69 6d 65 2d 72 75 6e 2d 77 68 65 6e 2d 69 64 6c 65 20 28 66 75 6e 63 74 69 | efun.slime-run-when-idle.(functi |
| 13b3e0 | 6f 6e 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 43 61 6c 6c 20 46 55 4e 43 54 49 4f 4e 20 | on.&rest.args)..."Call.FUNCTION. |
| 13b400 | 61 73 20 73 6f 6f 6e 20 61 73 20 45 6d 61 63 73 20 69 73 20 69 64 6c 65 2e 22 0a 20 20 28 61 70 | as.soon.as.Emacs.is.idle."...(ap |
| 13b420 | 70 6c 79 20 23 27 72 75 6e 2d 61 74 2d 74 69 6d 65 20 30 20 6e 69 6c 20 66 75 6e 63 74 69 6f 6e | ply.#'run-at-time.0.nil.function |
| 13b440 | 20 61 72 67 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 68 61 6e 64 6c 65 2d 6e 65 74 | .args))..(defun.slime-handle-net |
| 13b460 | 2d 72 65 61 64 2d 65 72 72 6f 72 20 28 65 72 72 6f 72 29 0a 20 20 28 6c 65 74 20 28 28 70 61 63 | -read-error.(error)...(let.((pac |
| 13b480 | 6b 65 74 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 | ket.(buffer-string))).....(slime |
| 13b4a0 | 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 28 73 6c 69 6d 65 2d 62 75 66 66 65 | -with-popup-buffer.((slime-buffe |
| 13b4c0 | 72 2d 6e 61 6d 65 20 3a 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 28 70 72 69 6e 63 20 28 66 6f | r-name.:error)).......(princ.(fo |
| 13b4e0 | 72 6d 61 74 20 22 25 73 5c 6e 69 6e 20 70 61 63 6b 65 74 3a 5c 6e 25 73 22 20 28 65 72 72 6f 72 | rmat."%s\nin.packet:\n%s".(error |
| 13b500 | 2d 6d 65 73 73 61 67 65 2d 73 74 72 69 6e 67 20 65 72 72 6f 72 29 20 70 61 63 6b 65 74 29 29 0a | -message-string.error).packet)). |
| 13b520 | 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 0a 20 | ......(goto-char.(point-min))).. |
| 13b540 | 20 20 20 28 63 6f 6e 64 20 28 28 79 2d 6f 72 2d 6e 2d 70 20 22 53 6b 69 70 20 74 68 69 73 20 70 | ...(cond.((y-or-n-p."Skip.this.p |
| 13b560 | 61 63 6b 65 74 3f 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 6d 61 63 73 2d 73 6b | acket?.")............`(:emacs-sk |
| 13b580 | 69 70 70 65 64 2d 70 61 63 6b 65 74 20 2c 70 61 63 6b 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 | ipped-packet.,packet)).......... |
| 13b5a0 | 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 | .(t............(when.(y-or-n-p." |
| 13b5c0 | 45 6e 74 65 72 20 64 65 62 75 67 67 65 72 20 69 6e 73 74 65 61 64 3f 20 22 29 0a 20 20 20 20 20 | Enter.debugger.instead?.")...... |
| 13b5e0 | 20 20 20 20 20 20 20 20 28 64 65 62 75 67 20 27 65 72 72 6f 72 20 65 72 72 6f 72 29 29 0a 20 20 | ........(debug.'error.error))... |
| 13b600 | 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 28 63 61 72 20 65 72 72 6f 72 29 20 28 63 64 | .........(signal.(car.error).(cd |
| 13b620 | 72 20 65 72 72 6f 72 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 65 74 2d | r.error))))))..(defun.slime-net- |
| 13b640 | 72 65 61 64 2d 6f 72 2d 6c 6f 73 65 20 28 70 72 6f 63 65 73 73 29 0a 20 20 28 63 6f 6e 64 69 74 | read-or-lose.(process)...(condit |
| 13b660 | 69 6f 6e 2d 63 61 73 65 20 65 72 72 6f 72 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6e 65 74 2d | ion-case.error.......(slime-net- |
| 13b680 | 72 65 61 64 29 0a 20 20 20 20 28 65 72 72 6f 72 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 6e 65 74 | read).....(error......(slime-net |
| 13b6a0 | 2d 63 6c 6f 73 65 20 70 72 6f 63 65 73 73 20 74 29 0a 20 20 20 20 20 28 65 72 72 6f 72 20 22 6e | -close.process.t)......(error."n |
| 13b6c0 | 65 74 2d 72 65 61 64 20 65 72 72 6f 72 3a 20 25 53 22 20 65 72 72 6f 72 29 29 29 29 0a 0a 28 64 | et-read.error:.%S".error))))..(d |
| 13b6e0 | 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 65 74 2d 72 65 61 64 20 28 29 0a 20 20 22 52 65 61 64 20 61 | efun.slime-net-read.()..."Read.a |
| 13b700 | 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 74 68 65 20 6e 65 74 77 6f 72 6b 20 62 75 66 66 65 72 | .message.from.the.network.buffer |
| 13b720 | 2e 22 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 28 | ."...(goto-char.(point-min))...( |
| 13b740 | 6c 65 74 2a 20 28 28 6c 65 6e 67 74 68 20 28 73 6c 69 6d 65 2d 6e 65 74 2d 64 65 63 6f 64 65 2d | let*.((length.(slime-net-decode- |
| 13b760 | 6c 65 6e 67 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 20 28 2b 20 28 70 6f 69 | length))..........(start.(+.(poi |
| 13b780 | 6e 74 29 20 36 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 2b 20 73 74 61 72 74 20 6c | nt).6))..........(end.(+.start.l |
| 13b7a0 | 65 6e 67 74 68 29 29 29 0a 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 63 6c 2d 70 6c 75 73 | ength))).....(cl-assert.(cl-plus |
| 13b7c0 | 70 20 6c 65 6e 67 74 68 29 29 0a 20 20 20 20 28 70 72 6f 67 31 20 28 73 61 76 65 2d 72 65 73 74 | p.length)).....(prog1.(save-rest |
| 13b7e0 | 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d | riction..............(narrow-to- |
| 13b800 | 72 65 67 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | region.start.end)..............( |
| 13b820 | 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 | condition-case.error............ |
| 13b840 | 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(progn.................... |
| 13b860 | 28 64 65 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 72 65 67 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 | (decode-coding-region.start.end. |
| 13b880 | 27 75 74 66 2d 38 2d 75 6e 69 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 'utf-8-unix).................... |
| 13b8a0 | 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 | (setq.end.(point-max)).......... |
| 13b8c0 | 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 | ..........(read.(current-buffer) |
| 13b8e0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 0a 20 20 20 20 20 20 20 | ))................(error........ |
| 13b900 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 68 61 6e 64 6c 65 2d 6e 65 74 2d 72 65 61 64 2d | .........(slime-handle-net-read- |
| 13b920 | 65 72 72 6f 72 20 65 72 72 6f 72 29 29 29 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 | error.error)))).......(delete-re |
| 13b940 | 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 65 6e 64 29 29 29 29 0a 0a 28 64 65 66 75 6e | gion.(point-min).end))))..(defun |
| 13b960 | 20 73 6c 69 6d 65 2d 6e 65 74 2d 64 65 63 6f 64 65 2d 6c 65 6e 67 74 68 20 28 29 0a 20 20 28 73 | .slime-net-decode-length.()...(s |
| 13b980 | 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e | tring-to-number.(buffer-substrin |
| 13b9a0 | 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 29 20 28 2b 20 28 70 6f 69 6e | g-no-properties.(point).(+.(poin |
| 13b9c0 | 74 29 20 36 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 36 29 29 0a | t).6)).....................16)). |
| 13b9e0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 65 74 2d 65 6e 63 6f 64 65 2d 6c 65 6e 67 74 68 20 | .(defun.slime-net-encode-length. |
| 13ba00 | 28 6e 29 0a 20 20 28 66 6f 72 6d 61 74 20 22 25 30 36 78 22 20 6e 29 29 0a 0a 28 64 65 66 75 6e | (n)...(format."%06x".n))..(defun |
| 13ba20 | 20 73 6c 69 6d 65 2d 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 65 78 70 29 0a 20 20 | .slime-prin1-to-string.(sexp)... |
| 13ba40 | 22 4c 69 6b 65 20 60 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 27 20 62 75 74 20 64 6f 6e 27 | "Like.`prin1-to-string'.but.don' |
| 13ba60 | 74 20 6f 63 74 61 6c 2d 65 73 63 61 70 65 20 6e 6f 6e 2d 61 73 63 69 69 20 63 68 61 72 61 63 74 | t.octal-escape.non-ascii.charact |
| 13ba80 | 65 72 73 2e 0a 54 68 69 73 20 69 73 20 6d 6f 72 65 20 63 6f 6d 70 61 74 69 62 6c 65 20 77 69 74 | ers..This.is.more.compatible.wit |
| 13baa0 | 68 20 74 68 65 20 43 4c 20 72 65 61 64 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 70 72 69 6e 74 2d | h.the.CL.reader."...(let.(print- |
| 13bac0 | 65 73 63 61 70 65 2d 6e 6f 6e 61 73 63 69 69 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 2d 65 73 | escape-nonascii.........print-es |
| 13bae0 | 63 61 70 65 2d 6e 65 77 6c 69 6e 65 73 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 2d 6c 65 6e 67 | cape-newlines.........print-leng |
| 13bb00 | 74 68 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 2d 6c 65 76 65 6c 29 0a 20 20 20 20 28 70 72 69 | th.........print-level).....(pri |
| 13bb20 | 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 73 65 78 70 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 6f 6e | n1-to-string.sexp)))....;;;;.Con |
| 13bb40 | 6e 65 63 74 69 6f 6e 73 0a 3b 3b 3b 0a 3b 3b 3b 20 22 43 6f 6e 6e 65 63 74 69 6f 6e 73 22 20 61 | nections.;;;.;;;."Connections".a |
| 13bb60 | 72 65 20 74 68 65 20 68 69 67 68 2d 6c 65 76 65 6c 20 45 6d 61 63 73 3c 2d 3e 4c 69 73 70 20 6e | re.the.high-level.Emacs<->Lisp.n |
| 13bb80 | 65 74 77 6f 72 6b 69 6e 67 20 63 6f 6e 63 65 70 74 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 45 6d 61 63 73 | etworking.concept..;;;.;;;.Emacs |
| 13bba0 | 20 68 61 73 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 65 61 63 68 20 4c 69 73 70 20 70 | .has.a.connection.to.each.Lisp.p |
| 13bbc0 | 72 6f 63 65 73 73 20 74 68 61 74 20 69 74 27 73 20 69 6e 74 65 72 61 63 74 69 6e 67 0a 3b 3b 3b | rocess.that.it's.interacting.;;; |
| 13bbe0 | 20 77 69 74 68 2e 20 54 79 70 69 63 61 6c 6c 79 20 74 68 65 72 65 20 77 6f 75 6c 64 20 6f 6e 6c | .with..Typically.there.would.onl |
| 13bc00 | 79 20 62 65 20 6f 6e 65 2c 20 62 75 74 20 61 20 75 73 65 72 20 63 61 6e 20 63 68 6f 6f 73 65 20 | y.be.one,.but.a.user.can.choose. |
| 13bc20 | 74 6f 0a 3b 3b 3b 20 63 6f 6e 6e 65 63 74 20 74 6f 20 6d 61 6e 79 20 4c 69 73 70 73 20 73 69 6d | to.;;;.connect.to.many.Lisps.sim |
| 13bc40 | 75 6c 74 61 6e 65 6f 75 73 6c 79 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 41 20 63 6f 6e 6e 65 63 74 69 6f | ultaneously..;;;.;;;.A.connectio |
| 13bc60 | 6e 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 61 20 63 6f 6e 74 72 6f 6c 20 73 6f 63 6b 65 74 20 61 | n.consists.of.a.control.socket.a |
| 13bc80 | 6e 64 20 61 0a 3b 3b 3b 20 73 65 74 20 6f 66 20 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 6f 63 61 6c | nd.a.;;;.set.of.connection-local |
| 13bca0 | 20 73 74 61 74 65 20 76 61 72 69 61 62 6c 65 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 73 74 | .state.variables..;;;.;;;.The.st |
| 13bcc0 | 61 74 65 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 73 74 6f 72 65 64 20 61 73 20 62 75 66 66 | ate.variables.are.stored.as.buff |
| 13bce0 | 65 72 2d 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 69 6e 20 74 68 65 0a 3b 3b 3b 20 63 6f | er-local.variables.in.the.;;;.co |
| 13bd00 | 6e 74 72 6f 6c 20 73 6f 63 6b 65 74 27 73 20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 61 6e | ntrol.socket's.process-buffer.an |
| 13bd20 | 64 20 61 72 65 20 75 73 65 64 20 76 69 61 20 61 63 63 65 73 73 6f 72 0a 3b 3b 3b 20 66 75 6e 63 | d.are.used.via.accessor.;;;.func |
| 13bd40 | 74 69 6f 6e 73 2e 20 54 68 65 73 65 20 76 61 72 69 61 62 6c 65 73 20 69 6e 63 6c 75 64 65 20 74 | tions..These.variables.include.t |
| 13bd60 | 68 69 6e 67 73 20 6c 69 6b 65 20 74 68 65 20 2a 46 45 41 54 55 52 45 53 2a 20 6c 69 73 74 0a 3b | hings.like.the.*FEATURES*.list.; |
| 13bd80 | 3b 3b 20 61 6e 64 20 55 6e 69 78 20 50 69 64 20 6f 66 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 | ;;.and.Unix.Pid.of.the.Lisp.proc |
| 13bda0 | 65 73 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4f 6e 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 22 | ess..;;;.;;;.One.connection.is." |
| 13bdc0 | 63 75 72 72 65 6e 74 22 20 61 74 20 61 6e 79 20 67 69 76 65 6e 20 74 69 6d 65 2e 20 54 68 69 73 | current".at.any.given.time..This |
| 13bde0 | 20 69 73 3a 0a 3b 3b 3b 20 20 20 60 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 63 6f | .is:.;;;...`slime-dispatching-co |
| 13be00 | 6e 6e 65 63 74 69 6f 6e 27 20 69 66 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 62 6f 75 6e 64 2c 20 | nnection'.if.dynamically.bound,. |
| 13be20 | 6f 72 0a 3b 3b 3b 20 20 20 60 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f | or.;;;...`slime-buffer-connectio |
| 13be40 | 6e 27 20 69 66 20 74 68 69 73 20 69 73 20 73 65 74 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2c 20 | n'.if.this.is.set.buffer-local,. |
| 13be60 | 6f 72 0a 3b 3b 3b 20 20 20 60 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 | or.;;;...`slime-default-connecti |
| 13be80 | 6f 6e 27 20 6f 74 68 65 72 77 69 73 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 57 68 65 6e 20 79 6f 75 27 | on'.otherwise..;;;.;;;.When.you' |
| 13bea0 | 72 65 20 69 6e 76 6f 6b 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 20 79 6f 75 72 20 73 6f 75 | re.invoking.commands.in.your.sou |
| 13bec0 | 72 63 65 20 66 69 6c 65 73 20 79 6f 75 27 6c 6c 20 62 65 20 75 73 69 6e 67 0a 3b 3b 3b 20 60 73 | rce.files.you'll.be.using.;;;.`s |
| 13bee0 | 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 27 2e 20 54 68 69 73 20 63 | lime-default-connection'..This.c |
| 13bf00 | 6f 6e 6e 65 63 74 69 6f 6e 20 63 61 6e 20 62 65 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 0a 3b | onnection.can.be.interactively.; |
| 13bf20 | 3b 3b 20 72 65 61 73 73 69 67 6e 65 64 20 76 69 61 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e | ;;.reassigned.via.the.connection |
| 13bf40 | 2d 6c 69 73 74 20 62 75 66 66 65 72 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 57 68 65 6e 20 61 20 63 6f 6d | -list.buffer..;;;.;;;.When.a.com |
| 13bf60 | 6d 61 6e 64 20 63 72 65 61 74 65 73 20 61 20 6e 65 77 20 62 75 66 66 65 72 20 69 74 20 77 69 6c | mand.creates.a.new.buffer.it.wil |
| 13bf80 | 6c 20 73 65 74 0a 3b 3b 3b 20 60 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 | l.set.;;;.`slime-buffer-connecti |
| 13bfa0 | 6f 6e 27 20 73 6f 20 74 68 61 74 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 20 74 68 65 20 6e 65 77 20 | on'.so.that.commands.in.the.new. |
| 13bfc0 | 62 75 66 66 65 72 20 77 69 6c 6c 0a 3b 3b 3b 20 75 73 65 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 | buffer.will.;;;.use.the.connecti |
| 13bfe0 | 6f 6e 20 74 68 61 74 20 74 68 65 20 62 75 66 66 65 72 20 6f 72 69 67 69 6e 61 74 65 64 20 66 72 | on.that.the.buffer.originated.fr |
| 13c000 | 6f 6d 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 0a 3b 3b 3b 20 74 68 65 20 61 70 72 6f 70 6f 73 | om..For.example,.;;;.the.apropos |
| 13c020 | 20 63 6f 6d 6d 61 6e 64 20 63 72 65 61 74 65 73 20 74 68 65 20 2a 41 70 72 6f 70 6f 73 2a 20 62 | .command.creates.the.*Apropos*.b |
| 13c040 | 75 66 66 65 72 20 61 6e 64 20 61 6e 79 20 63 6f 6d 6d 61 6e 64 0a 3b 3b 3b 20 69 6e 20 74 68 61 | uffer.and.any.command.;;;.in.tha |
| 13c060 | 74 20 62 75 66 66 65 72 20 28 65 2e 67 2e 20 60 4d 2d 2e 27 29 20 77 69 6c 6c 20 67 6f 20 74 6f | t.buffer.(e.g..`M-.').will.go.to |
| 13c080 | 20 74 68 65 20 73 61 6d 65 20 4c 69 73 70 20 74 68 61 74 20 64 69 64 20 74 68 65 0a 3b 3b 3b 20 | .the.same.Lisp.that.did.the.;;;. |
| 13c0a0 | 61 70 72 6f 70 6f 73 20 73 65 61 72 63 68 2e 20 52 45 50 4c 20 62 75 66 66 65 72 73 20 61 72 65 | apropos.search..REPL.buffers.are |
| 13c0c0 | 20 73 69 6d 69 6c 61 72 6c 79 20 74 69 65 64 20 74 6f 20 74 68 65 69 72 0a 3b 3b 3b 20 72 65 73 | .similarly.tied.to.their.;;;.res |
| 13c0e0 | 70 65 63 74 69 76 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 57 68 65 | pective.connections..;;;.;;;.Whe |
| 13c100 | 6e 20 45 6d 61 63 73 20 69 73 20 64 69 73 70 61 74 63 68 69 6e 67 20 73 6f 6d 65 20 6e 65 74 77 | n.Emacs.is.dispatching.some.netw |
| 13c120 | 6f 72 6b 20 6d 65 73 73 61 67 65 20 74 68 61 74 20 61 72 72 69 76 65 64 20 66 72 6f 6d 20 61 0a | ork.message.that.arrived.from.a. |
| 13c140 | 3b 3b 3b 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 74 20 77 69 6c 6c 20 64 79 6e 61 6d 69 63 61 6c | ;;;.connection.it.will.dynamical |
| 13c160 | 6c 79 20 62 69 6e 64 20 60 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 63 6f 6e 6e 65 | ly.bind.`slime-dispatching-conne |
| 13c180 | 63 74 69 6f 6e 27 0a 3b 3b 3b 20 73 6f 20 74 68 61 74 20 74 68 65 20 65 76 65 6e 74 20 77 69 6c | ction'.;;;.so.that.the.event.wil |
| 13c1a0 | 6c 20 62 65 20 70 72 6f 63 65 73 73 65 64 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 | l.be.processed.in.the.context.of |
| 13c1c0 | 20 74 68 61 74 0a 3b 3b 3b 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 | .that.;;;.connection..;;;.;;;.Th |
| 13c1e0 | 69 73 20 69 73 20 6d 6f 73 74 6c 79 20 74 72 61 6e 73 70 61 72 65 6e 74 2e 20 54 68 65 20 75 73 | is.is.mostly.transparent..The.us |
| 13c200 | 65 72 20 73 68 6f 75 6c 64 20 62 65 20 61 77 61 72 65 20 74 68 61 74 20 68 65 20 63 61 6e 0a 3b | er.should.be.aware.that.he.can.; |
| 13c220 | 3b 3b 20 73 65 74 20 74 68 65 20 64 65 66 61 75 6c 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f | ;;.set.the.default.connection.to |
| 13c240 | 20 70 69 63 6b 20 77 68 69 63 68 20 4c 69 73 70 20 68 61 6e 64 6c 65 73 20 63 6f 6d 6d 61 6e 64 | .pick.which.Lisp.handles.command |
| 13c260 | 73 20 69 6e 0a 3b 3b 3b 20 4c 69 73 70 2d 6d 6f 64 65 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 | s.in.;;;.Lisp-mode.source.buffer |
| 13c280 | 73 2c 20 61 6e 64 20 73 6c 69 6d 65 20 68 61 63 6b 65 72 73 20 73 68 6f 75 6c 64 20 62 65 20 61 | s,.and.slime.hackers.should.be.a |
| 13c2a0 | 77 61 72 65 20 74 68 61 74 0a 3b 3b 3b 20 74 68 65 79 20 63 61 6e 20 74 69 65 20 61 20 62 75 66 | ware.that.;;;.they.can.tie.a.buf |
| 13c2c0 | 66 65 72 20 74 6f 20 61 20 73 70 65 63 69 66 69 63 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 54 68 | fer.to.a.specific.connection..Th |
| 13c2e0 | 65 20 72 65 73 74 20 74 61 6b 65 73 0a 3b 3b 3b 20 63 61 72 65 20 6f 66 20 69 74 73 65 6c 66 2e | e.rest.takes.;;;.care.of.itself. |
| 13c300 | 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 63 6f 6e 6e | ..(defvar.slime-dispatching-conn |
| 13c320 | 65 63 74 69 6f 6e 20 6e 69 6c 0a 20 20 22 4e 65 74 77 6f 72 6b 20 70 72 6f 63 65 73 73 20 63 75 | ection.nil..."Network.process.cu |
| 13c340 | 72 72 65 6e 74 6c 79 20 65 78 65 63 75 74 69 6e 67 2e 0a 54 68 69 73 20 69 73 20 64 79 6e 61 6d | rrently.executing..This.is.dynam |
| 13c360 | 69 63 61 6c 6c 79 20 62 6f 75 6e 64 20 77 68 69 6c 65 20 68 61 6e 64 6c 69 6e 67 20 6d 65 73 73 | ically.bound.while.handling.mess |
| 13c380 | 61 67 65 73 20 66 72 6f 6d 20 4c 69 73 70 3b 20 69 74 0a 6f 76 65 72 72 69 64 65 73 20 60 73 6c | ages.from.Lisp;.it.overrides.`sl |
| 13c3a0 | 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 27 20 61 6e 64 20 60 73 6c 69 6d | ime-buffer-connection'.and.`slim |
| 13c3c0 | 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 27 2e 22 29 0a 0a 28 6d 61 6b 65 2d | e-default-connection'.")..(make- |
| 13c3e0 | 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 20 73 | variable-buffer-local..(defvar.s |
| 13c400 | 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 69 6c 0a 20 20 20 22 4e | lime-buffer-connection.nil...."N |
| 13c420 | 65 74 77 6f 72 6b 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 75 73 65 20 69 6e 20 74 68 65 20 | etwork.connection.to.use.in.the. |
| 13c440 | 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 54 68 69 73 20 6f 76 65 72 72 69 64 65 73 20 60 | current.buffer..This.overrides.` |
| 13c460 | 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 27 2e 22 29 29 0a 0a 28 | slime-default-connection'."))..( |
| 13c480 | 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 | defvar.slime-default-connection. |
| 13c4a0 | 6e 69 6c 0a 20 20 22 4e 65 74 77 6f 72 6b 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 75 73 65 | nil..."Network.connection.to.use |
| 13c4c0 | 20 62 79 20 64 65 66 61 75 6c 74 2e 0a 55 73 65 64 20 66 6f 72 20 61 6c 6c 20 4c 69 73 70 20 63 | .by.default..Used.for.all.Lisp.c |
| 13c4e0 | 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2c 20 65 78 63 65 70 74 20 77 68 65 6e 20 6f 76 65 72 72 69 | ommunication,.except.when.overri |
| 13c500 | 64 64 65 6e 20 62 79 0a 60 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 63 6f 6e 6e 65 | dden.by.`slime-dispatching-conne |
| 13c520 | 63 74 69 6f 6e 27 20 6f 72 20 60 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 | ction'.or.`slime-buffer-connecti |
| 13c540 | 6f 6e 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 63 6f 6e | on'.")..(defun.slime-current-con |
| 13c560 | 6e 65 63 74 69 6f 6e 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 6e 65 63 74 | nection.()..."Return.the.connect |
| 13c580 | 69 6f 6e 20 74 6f 20 75 73 65 20 66 6f 72 20 4c 69 73 70 20 69 6e 74 65 72 61 63 74 69 6f 6e 2e | ion.to.use.for.Lisp.interaction. |
| 13c5a0 | 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 74 68 65 72 65 27 73 20 6e 6f 20 63 6f 6e 6e 65 63 | .Return.nil.if.there's.no.connec |
| 13c5c0 | 74 69 6f 6e 2e 22 0a 20 20 28 6f 72 20 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 63 | tion."...(or.slime-dispatching-c |
| 13c5e0 | 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e | onnection.......slime-buffer-con |
| 13c600 | 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 6e | nection.......slime-default-conn |
| 13c620 | 65 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f | ection))..(defun.slime-connectio |
| 13c640 | 6e 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f | n.()..."Return.the.connection.to |
| 13c660 | 20 75 73 65 20 66 6f 72 20 4c 69 73 70 20 69 6e 74 65 72 61 63 74 69 6f 6e 2e 0a 53 69 67 6e 61 | .use.for.Lisp.interaction..Signa |
| 13c680 | 6c 20 61 6e 20 65 72 72 6f 72 20 69 66 20 74 68 65 72 65 27 73 20 6e 6f 20 63 6f 6e 6e 65 63 74 | l.an.error.if.there's.no.connect |
| 13c6a0 | 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 6e 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 | ion."...(let.((conn.(slime-curre |
| 13c6c0 | 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 | nt-connection))).....(cond.((and |
| 13c6e0 | 20 28 6e 6f 74 20 63 6f 6e 6e 29 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 | .(not.conn).slime-net-processes) |
| 13c700 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 73 6c 69 6d 65 2d 61 75 74 6f 2d 73 65 6c 65 | ............(or.(slime-auto-sele |
| 13c720 | 63 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 | ct-connection)................(e |
| 13c740 | 72 72 6f 72 20 22 4e 6f 20 64 65 66 61 75 6c 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 65 6c 65 | rror."No.default.connection.sele |
| 13c760 | 63 74 65 64 2e 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 63 6f 6e 6e 29 0a | cted.")))...........((not.conn). |
| 13c780 | 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 73 6c 69 6d 65 2d 61 75 74 6f 2d 73 74 61 72 74 | ...........(or.(slime-auto-start |
| 13c7a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 74 20 63 6f 6e | )................(error."Not.con |
| 13c7c0 | 6e 65 63 74 65 64 2e 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 65 71 20 | nected.")))...........((not.(eq. |
| 13c7e0 | 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 63 6f 6e 6e 29 20 27 6f 70 65 6e 29 29 0a 20 20 | (process-status.conn).'open))... |
| 13c800 | 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6c 6f 73 | .........(error."Connection.clos |
| 13c820 | 65 64 2e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 63 6f 6e 6e 29 29 29 29 0a 0a 28 64 | ed."))...........(t.conn))))..(d |
| 13c840 | 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 20 27 73 | efine-obsolete-variable-alias.'s |
| 13c860 | 6c 69 6d 65 2d 61 75 74 6f 2d 63 6f 6e 6e 65 63 74 0a 27 73 6c 69 6d 65 2d 61 75 74 6f 2d 73 74 | lime-auto-connect.'slime-auto-st |
| 13c880 | 61 72 74 20 22 32 2e 35 22 29 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 61 75 74 6f | art."2.5").(defcustom.slime-auto |
| 13c8a0 | 2d 73 74 61 72 74 20 27 6e 65 76 65 72 0a 20 20 22 43 6f 6e 74 72 6f 6c 73 20 61 75 74 6f 20 63 | -start.'never..."Controls.auto.c |
| 13c8c0 | 6f 6e 6e 65 63 74 69 6f 6e 20 77 68 65 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 72 6f 6d 20 | onnection.when.information.from. |
| 13c8e0 | 6c 69 73 70 20 70 72 6f 63 65 73 73 20 69 73 20 6e 65 65 64 65 64 2e 0a 54 68 69 73 20 64 6f 65 | lisp.process.is.needed..This.doe |
| 13c900 | 73 6e 27 74 20 6d 65 61 6e 20 69 74 20 77 69 6c 6c 20 63 6f 6e 6e 65 63 74 20 72 69 67 68 74 20 | sn't.mean.it.will.connect.right. |
| 13c920 | 61 66 74 65 72 20 53 6c 69 6d 65 20 69 73 20 6c 6f 61 64 65 64 2e 22 0a 20 20 3a 67 72 6f 75 70 | after.Slime.is.loaded."...:group |
| 13c940 | 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 | .'slime-mode...:type.'(choice.(c |
| 13c960 | 6f 6e 73 74 20 6e 65 76 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | onst.never)..................(co |
| 13c980 | 6e 73 74 20 61 6c 77 61 79 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | nst.always)..................(co |
| 13c9a0 | 6e 73 74 20 61 73 6b 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 75 74 6f 2d 73 74 | nst.ask)))..(defun.slime-auto-st |
| 13c9c0 | 61 72 74 20 28 29 0a 20 20 28 63 6f 6e 64 20 28 28 6f 72 20 28 65 71 20 73 6c 69 6d 65 2d 61 75 | art.()...(cond.((or.(eq.slime-au |
| 13c9e0 | 74 6f 2d 73 74 61 72 74 20 27 61 6c 77 61 79 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | to-start.'always)..............( |
| 13ca00 | 61 6e 64 20 28 65 71 20 73 6c 69 6d 65 2d 61 75 74 6f 2d 73 74 61 72 74 20 27 61 73 6b 29 0a 20 | and.(eq.slime-auto-start.'ask).. |
| 13ca20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 4e 6f 20 63 | .................(y-or-n-p."No.c |
| 13ca40 | 6f 6e 6e 65 63 74 69 6f 6e 2e 20 20 53 74 61 72 74 20 53 6c 69 6d 65 3f 20 22 29 29 29 0a 20 20 | onnection...Start.Slime?.")))... |
| 13ca60 | 20 20 20 20 20 20 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 | .......(save-window-excursion... |
| 13ca80 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 | .........(slime)............(whi |
| 13caa0 | 6c 65 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f | le.(not.(slime-current-connectio |
| 13cac0 | 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 65 65 70 2d 66 6f 72 20 31 29 29 0a | n))..............(sleep-for.1)). |
| 13cae0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a | ...........(slime-connection))). |
| 13cb00 | 20 20 20 20 20 20 20 20 28 74 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c | ........(t.nil)))..(defcustom.sl |
| 13cb20 | 69 6d 65 2d 61 75 74 6f 2d 73 65 6c 65 63 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 27 61 73 6b 0a | ime-auto-select-connection.'ask. |
| 13cb40 | 20 20 22 43 6f 6e 74 72 6f 6c 73 20 61 75 74 6f 20 73 65 6c 65 63 74 69 6f 6e 20 61 66 74 65 72 | .."Controls.auto.selection.after |
| 13cb60 | 20 74 68 65 20 64 65 66 61 75 6c 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 61 73 20 63 6c 6f 73 | .the.default.connection.was.clos |
| 13cb80 | 65 64 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 0a 20 20 3a 74 79 70 | ed."...:group.'slime-mode...:typ |
| 13cba0 | 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 6e 65 76 65 72 29 0a 20 20 20 20 20 20 20 | e.'(choice.(const.never)........ |
| 13cbc0 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 61 6c 77 61 79 73 29 0a 20 20 20 20 20 20 20 | ..........(const.always)........ |
| 13cbe0 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 61 73 6b 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ..........(const.ask)))..(defun. |
| 13cc00 | 73 6c 69 6d 65 2d 61 75 74 6f 2d 73 65 6c 65 63 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 29 0a | slime-auto-select-connection.(). |
| 13cc20 | 20 20 28 6c 65 74 2a 20 28 28 63 30 20 28 63 61 72 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 | ..(let*.((c0.(car.slime-net-proc |
| 13cc40 | 65 73 73 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 20 28 63 6f 6e 64 20 28 28 65 71 20 73 | esses))..........(c.(cond.((eq.s |
| 13cc60 | 6c 69 6d 65 2d 61 75 74 6f 2d 73 65 6c 65 63 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 27 61 6c 77 | lime-auto-select-connection.'alw |
| 13cc80 | 61 79 73 29 20 63 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 | ays).c0)...................((and |
| 13cca0 | 20 28 65 71 20 73 6c 69 6d 65 2d 61 75 74 6f 2d 73 65 6c 65 63 74 2d 63 6f 6e 6e 65 63 74 69 6f | .(eq.slime-auto-select-connectio |
| 13ccc0 | 6e 20 27 61 73 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.'ask)......................... |
| 13cce0 | 28 79 2d 6f 72 2d 6e 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (y-or-n-p....................... |
| 13cd00 | 20 20 20 28 66 6f 72 6d 61 74 20 22 4e 6f 20 64 65 66 61 75 6c 74 20 63 6f 6e 6e 65 63 74 69 6f | ...(format."No.default.connectio |
| 13cd20 | 6e 20 73 65 6c 65 63 74 65 64 2e 20 20 25 73 20 25 73 3f 20 22 0a 20 20 20 20 20 20 20 20 20 20 | n.selected...%s.%s?."........... |
| 13cd40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53 77 69 74 63 68 20 74 | ......................."Switch.t |
| 13cd60 | 6f 22 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 20 63 30 29 29 29 29 | o".(slime-connection-name.c0)))) |
| 13cd80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 30 29 29 29 29 0a 20 20 20 20 28 | ....................c0)))).....( |
| 13cda0 | 77 68 65 6e 20 63 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 6c 65 63 74 2d 63 6f 6e 6e 65 | when.c.......(slime-select-conne |
| 13cdc0 | 63 74 69 6f 6e 20 63 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 53 77 69 74 63 68 69 | ction.c).......(message."Switchi |
| 13cde0 | 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 3a 20 25 73 22 20 28 73 6c 69 6d 65 2d 63 6f 6e | ng.to.connection:.%s".(slime-con |
| 13ce00 | 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 20 63 29 29 0a 20 20 20 20 20 20 63 29 29 29 0a 0a 28 64 65 | nection-name.c)).......c)))..(de |
| 13ce20 | 66 75 6e 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 70 72 6f | fun.slime-select-connection.(pro |
| 13ce40 | 63 65 73 73 29 0a 20 20 22 4d 61 6b 65 20 50 52 4f 43 45 53 53 20 74 68 65 20 64 65 66 61 75 6c | cess)..."Make.PROCESS.the.defaul |
| 13ce60 | 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 22 0a 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 64 65 66 | t.connection."...(setq.slime-def |
| 13ce80 | 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 6f 63 65 73 73 29 29 0a 0a 28 64 65 66 76 | ault-connection.process))..(defv |
| 13cea0 | 61 72 20 73 6c 69 6d 65 2d 63 79 63 6c 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 2d 68 6f 6f 6b 20 | ar.slime-cycle-connections-hook. |
| 13cec0 | 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 79 63 6c 65 2d 63 6f 6e 6e 65 63 74 | nil)..(defun.slime-cycle-connect |
| 13cee0 | 69 6f 6e 73 2d 77 69 74 68 69 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 73 29 0a 20 20 28 6c 65 74 | ions-within.(connections)...(let |
| 13cf00 | 2a 20 28 28 74 61 69 6c 20 28 6f 72 20 28 63 64 72 20 28 6d 65 6d 62 65 72 20 28 73 6c 69 6d 65 | *.((tail.(or.(cdr.(member.(slime |
| 13cf20 | 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 | -current-connection).connections |
| 13cf40 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e | ))....................connection |
| 13cf60 | 73 29 29 20 20 20 20 20 20 20 20 3b 20 6c 6f 6f 70 20 61 72 6f 75 6e 64 20 74 6f 20 74 68 65 20 | s))........;.loop.around.to.the. |
| 13cf80 | 62 65 67 69 6e 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 20 28 6e 65 78 74 20 28 63 61 72 20 74 61 | beginning..........(next.(car.ta |
| 13cfa0 | 69 6c 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 6c 65 63 74 2d 63 6f 6e 6e 65 63 74 69 | il))).....(slime-select-connecti |
| 13cfc0 | 6f 6e 20 6e 65 78 74 29 0a 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 63 | on.next).....(run-hooks.'slime-c |
| 13cfe0 | 79 63 6c 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 2d 68 6f 6f 6b 29 0a 20 20 20 20 28 6d 65 73 73 | ycle-connections-hook).....(mess |
| 13d000 | 61 67 65 20 22 4c 69 73 70 3a 20 25 73 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | age."Lisp:.%s.%s"..............( |
| 13d020 | 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 20 6e 65 78 74 29 0a 20 20 20 20 | slime-connection-name.next)..... |
| 13d040 | 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 63 6f 6e 74 61 63 74 20 6e 65 78 74 29 29 | .........(process-contact.next)) |
| 13d060 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 65 78 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e | ))..(defun.slime-next-connection |
| 13d080 | 20 28 29 0a 20 20 22 43 68 61 6e 67 65 20 63 75 72 72 65 6e 74 20 73 6c 69 6d 65 20 63 6f 6e 6e | .()..."Change.current.slime.conn |
| 13d0a0 | 65 63 74 69 6f 6e 2c 20 63 79 63 6c 69 6e 67 20 74 68 72 6f 75 67 68 20 61 6c 6c 20 63 6f 6e 6e | ection,.cycling.through.all.conn |
| 13d0c0 | 65 63 74 69 6f 6e 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 | ections."...(interactive)...(sli |
| 13d0e0 | 6d 65 2d 63 79 63 6c 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 2d 77 69 74 68 69 6e 20 28 72 65 76 | me-cycle-connections-within.(rev |
| 13d100 | 65 72 73 65 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 29 29 0a 0a 28 64 65 | erse.slime-net-processes)))..(de |
| 13d120 | 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 61 6c 69 61 73 20 27 73 6c | fine-obsolete-function-alias.'sl |
| 13d140 | 69 6d 65 2d 63 79 63 6c 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 0a 20 20 27 73 6c 69 6d 65 2d 6e | ime-cycle-connections...'slime-n |
| 13d160 | 65 78 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 22 32 2e 31 33 22 29 0a 0a 28 64 65 66 75 6e 20 73 | ext-connection."2.13")..(defun.s |
| 13d180 | 6c 69 6d 65 2d 70 72 65 76 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 29 0a 20 20 22 43 68 61 6e 67 | lime-prev-connection.()..."Chang |
| 13d1a0 | 65 20 63 75 72 72 65 6e 74 20 73 6c 69 6d 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2c 20 63 79 63 6c | e.current.slime.connection,.cycl |
| 13d1c0 | 69 6e 67 20 74 68 72 6f 75 67 68 20 61 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 47 6f 65 | ing.through.all.connections..Goe |
| 13d1e0 | 73 20 69 6e 20 72 65 76 65 72 73 65 20 6f 72 64 65 72 2c 20 72 65 6c 61 74 69 76 65 20 74 6f 20 | s.in.reverse.order,.relative.to. |
| 13d200 | 60 73 6c 69 6d 65 2d 6e 65 78 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 27 2e 22 0a 20 20 28 69 6e 74 | `slime-next-connection'."...(int |
| 13d220 | 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 63 79 63 6c 65 2d 63 6f 6e 6e 65 63 74 | eractive)...(slime-cycle-connect |
| 13d240 | 69 6f 6e 73 2d 77 69 74 68 69 6e 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 | ions-within.slime-net-processes) |
| 13d260 | 29 0a 0a 28 63 6c 2d 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 77 69 74 68 2d 63 6f 6e 6e 65 | )..(cl-defmacro.slime-with-conne |
| 13d280 | 63 74 69 6f 6e 2d 62 75 66 66 65 72 20 28 28 26 6f 70 74 69 6f 6e 61 6c 20 70 72 6f 63 65 73 73 | ction-buffer.((&optional.process |
| 13d2a0 | 29 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 45 78 65 63 75 74 65 20 42 4f 44 59 20 69 6e | ).&rest.body)..."Execute.BODY.in |
| 13d2c0 | 20 74 68 65 20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 6f 66 20 50 52 4f 43 45 53 53 2e 0a | .the.process-buffer.of.PROCESS.. |
| 13d2e0 | 49 66 20 50 52 4f 43 45 53 53 20 69 73 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 2c 20 60 73 6c | If.PROCESS.is.not.specified,.`sl |
| 13d300 | 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 27 20 69 73 20 75 73 65 64 2e 0a 0a 5c 28 66 6e 20 28 | ime-connection'.is.used...\(fn.( |
| 13d320 | 26 6f 70 74 69 6f 6e 61 6c 20 50 52 4f 43 45 53 53 29 20 26 62 6f 64 79 20 42 4f 44 59 29 29 22 | &optional.PROCESS).&body.BODY))" |
| 13d340 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 29 0a 20 20 60 28 77 69 74 68 | ...(declare.(indent.1))...`(with |
| 13d360 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d | -current-buffer........(process- |
| 13d380 | 62 75 66 66 65 72 20 28 6f 72 20 2c 70 72 6f 63 65 73 73 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 | buffer.(or.,process.(slime-conne |
| 13d3a0 | 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ction).......................... |
| 13d3c0 | 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 22 29 29 29 0a 20 20 20 20 | ..(error."No.connection")))..... |
| 13d3e0 | 20 2c 40 62 6f 64 79 29 29 0a 0a 3b 3b 3b 20 43 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 6f 63 61 6c 20 | .,@body))..;;;.Connection-local. |
| 13d400 | 76 61 72 69 61 62 6c 65 73 3a 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 64 65 66 2d | variables:..(defmacro.slime-def- |
| 13d420 | 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 28 76 61 72 6e 61 6d 65 20 26 72 65 73 74 20 69 6e | connection-var.(varname.&rest.in |
| 13d440 | 69 74 69 61 6c 2d 76 61 6c 75 65 2d 61 6e 64 2d 64 6f 63 29 0a 20 20 22 44 65 66 69 6e 65 20 61 | itial-value-and-doc)..."Define.a |
| 13d460 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 2e 0a 54 68 65 20 | .connection-local.variable..The. |
| 13d480 | 76 61 6c 75 65 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 63 61 6e 20 62 65 20 72 65 61 | value.of.the.variable.can.be.rea |
| 13d4a0 | 64 20 62 79 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 74 68 65 | d.by.calling.the.function.of.the |
| 13d4c0 | 0a 73 61 6d 65 20 6e 61 6d 65 20 28 69 74 20 6d 75 73 74 20 6e 6f 74 20 62 65 20 61 63 63 65 73 | .same.name.(it.must.not.be.acces |
| 13d4e0 | 73 65 64 20 64 69 72 65 63 74 6c 79 29 2e 20 54 68 65 20 61 63 63 65 73 73 6f 72 20 66 75 6e 63 | sed.directly)..The.accessor.func |
| 13d500 | 74 69 6f 6e 20 69 73 0a 73 65 74 66 2d 61 62 6c 65 2e 0a 0a 54 68 65 20 61 63 74 75 61 6c 20 76 | tion.is.setf-able...The.actual.v |
| 13d520 | 61 72 69 61 62 6c 65 20 62 69 6e 64 69 6e 67 73 20 61 72 65 20 73 74 6f 72 65 64 20 62 75 66 66 | ariable.bindings.are.stored.buff |
| 13d540 | 65 72 2d 6c 6f 63 61 6c 20 69 6e 20 74 68 65 0a 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 73 20 | er-local.in.the.process-buffers. |
| 13d560 | 6f 66 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 20 54 68 65 20 61 63 63 65 73 73 6f 72 20 66 75 6e | of.connections..The.accessor.fun |
| 13d580 | 63 74 69 6f 6e 20 72 65 66 65 72 73 20 74 6f 0a 74 68 65 20 62 69 6e 64 69 6e 67 20 66 6f 72 20 | ction.refers.to.the.binding.for. |
| 13d5a0 | 60 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 27 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 | `slime-connection'."...(declare. |
| 13d5c0 | 28 69 6e 64 65 6e 74 20 32 29 29 0a 20 20 28 6c 65 74 20 28 28 72 65 61 6c 2d 76 61 72 20 28 69 | (indent.2))...(let.((real-var.(i |
| 13d5e0 | 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 3a 63 6f 6e 6e 6c 6f 63 61 6c 22 20 76 61 72 | ntern.(format."%s:connlocal".var |
| 13d600 | 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 3b 3b 20 56 | name)))).....`(progn........;;.V |
| 13d620 | 61 72 69 61 62 6c 65 0a 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 | ariable........(make-variable-bu |
| 13d640 | 66 66 65 72 2d 6c 6f 63 61 6c 0a 20 20 20 20 20 20 20 20 28 64 65 66 76 61 72 20 2c 72 65 61 6c | ffer-local.........(defvar.,real |
| 13d660 | 2d 76 61 72 20 2c 40 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 2d 61 6e 64 2d 64 6f 63 29 29 0a 20 | -var.,@initial-value-and-doc)).. |
| 13d680 | 20 20 20 20 20 20 3b 3b 20 41 63 63 65 73 73 6f 72 0a 20 20 20 20 20 20 20 28 64 65 66 75 6e 20 | ......;;.Accessor........(defun. |
| 13d6a0 | 2c 76 61 72 6e 61 6d 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 72 6f 63 65 73 73 29 0a 20 20 20 | ,varname.(&optional.process).... |
| 13d6c0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 62 75 66 | ......(slime-with-connection-buf |
| 13d6e0 | 66 65 72 20 28 70 72 6f 63 65 73 73 29 20 2c 72 65 61 6c 2d 76 61 72 29 29 0a 20 20 20 20 20 20 | fer.(process).,real-var))....... |
| 13d700 | 20 3b 3b 20 53 65 74 66 0a 20 20 20 20 20 20 20 28 67 76 2d 64 65 66 69 6e 65 2d 73 65 74 74 65 | .;;.Setf........(gv-define-sette |
| 13d720 | 72 20 2c 76 61 72 6e 61 6d 65 20 28 73 74 6f 72 65 20 26 6f 70 74 69 6f 6e 61 6c 20 70 72 6f 63 | r.,varname.(store.&optional.proc |
| 13d740 | 65 73 73 29 0a 20 20 20 20 20 20 20 20 20 60 28 73 6c 69 6d 65 2d 77 69 74 68 2d 63 6f 6e 6e 65 | ess)..........`(slime-with-conne |
| 13d760 | 63 74 69 6f 6e 2d 62 75 66 66 65 72 20 28 2c 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 20 20 20 | ction-buffer.(,process)......... |
| 13d780 | 20 20 20 20 28 73 65 74 71 20 28 5c 2c 20 28 71 75 6f 74 65 20 28 5c 2c 20 72 65 61 6c 2d 76 61 | ....(setq.(\,.(quote.(\,.real-va |
| 13d7a0 | 72 29 29 29 20 28 5c 2c 20 73 74 6f 72 65 29 29 29 29 0a 20 20 20 20 20 20 20 27 28 5c 2c 20 76 | r))).(\,.store))))........'(\,.v |
| 13d7c0 | 61 72 6e 61 6d 65 29 29 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f | arname))))..(slime-def-connectio |
| 13d7e0 | 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 75 6d 62 65 72 20 6e 69 | n-var.slime-connection-number.ni |
| 13d800 | 6c 0a 20 20 22 53 65 72 69 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 61 20 63 6f 6e 6e 65 63 74 69 | l..."Serial.number.of.a.connecti |
| 13d820 | 6f 6e 2e 0a 42 6f 75 6e 64 20 69 6e 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 27 73 20 70 72 | on..Bound.in.the.connection's.pr |
| 13d840 | 6f 63 65 73 73 2d 62 75 66 66 65 72 2e 22 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 2d 63 6f 6e 6e | ocess-buffer.")..(slime-def-conn |
| 13d860 | 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 66 65 61 74 75 72 65 73 20 27 | ection-var.slime-lisp-features.' |
| 13d880 | 28 29 0a 20 20 22 54 68 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 73 20 6f 66 20 4c 69 73 70 27 73 | ()..."The.symbol-names.of.Lisp's |
| 13d8a0 | 20 2a 46 45 41 54 55 52 45 53 2a 2e 0a 54 68 69 73 20 69 73 20 61 75 74 6f 6d 61 74 69 63 61 6c | .*FEATURES*..This.is.automatical |
| 13d8c0 | 6c 79 20 73 79 6e 63 68 72 6f 6e 69 7a 65 64 20 66 72 6f 6d 20 4c 69 73 70 2e 22 29 0a 0a 28 73 | ly.synchronized.from.Lisp.")..(s |
| 13d8e0 | 6c 69 6d 65 2d 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 6c 69 | lime-def-connection-var.slime-li |
| 13d900 | 73 70 2d 6d 6f 64 75 6c 65 73 20 27 28 29 0a 20 20 22 54 68 65 20 73 74 72 69 6e 67 73 20 6f 66 | sp-modules.'()..."The.strings.of |
| 13d920 | 20 4c 69 73 70 27 73 20 2a 4d 4f 44 55 4c 45 53 2a 2e 22 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 | .Lisp's.*MODULES*.")..(slime-def |
| 13d940 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 70 69 64 20 6e 69 6c 0a 20 20 | -connection-var.slime-pid.nil... |
| 13d960 | 22 54 68 65 20 70 72 6f 63 65 73 73 20 69 64 20 6f 66 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 | "The.process.id.of.the.Lisp.proc |
| 13d980 | 65 73 73 2e 22 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 | ess.")..(slime-def-connection-va |
| 13d9a0 | 72 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 | r.slime-lisp-implementation-type |
| 13d9c0 | 20 6e 69 6c 0a 20 20 22 54 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 79 70 65 20 | .nil..."The.implementation.type. |
| 13d9e0 | 6f 66 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 2e 22 29 0a 0a 28 73 6c 69 6d 65 2d 64 | of.the.Lisp.process.")..(slime-d |
| 13da00 | 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 | ef-connection-var.slime-lisp-imp |
| 13da20 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 6f 6e 20 6e 69 6c 0a 20 20 22 54 68 65 20 69 | lementation-version.nil..."The.i |
| 13da40 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 79 70 65 20 6f 66 20 74 68 65 20 4c 69 73 70 20 70 | mplementation.type.of.the.Lisp.p |
| 13da60 | 72 6f 63 65 73 73 2e 22 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e | rocess.")..(slime-def-connection |
| 13da80 | 2d 76 61 72 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 6e | -var.slime-lisp-implementation-n |
| 13daa0 | 61 6d 65 20 6e 69 6c 0a 20 20 22 54 68 65 20 73 68 6f 72 74 20 6e 61 6d 65 20 66 6f 72 20 74 68 | ame.nil..."The.short.name.for.th |
| 13dac0 | 65 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 22 29 0a 0a 28 73 6c 69 6d 65 | e.Lisp.implementation.")..(slime |
| 13dae0 | 2d 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 | -def-connection-var.slime-lisp-i |
| 13db00 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 70 72 6f 67 72 61 6d 20 6e 69 6c 0a 20 20 22 54 68 65 | mplementation-program.nil..."The |
| 13db20 | 20 61 72 67 76 5b 30 5d 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 72 75 6e 6e 69 6e 67 20 | .argv[0].of.the.process.running. |
| 13db40 | 74 68 65 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 22 29 0a 0a 28 73 6c 69 | the.Lisp.implementation.")..(sli |
| 13db60 | 6d 65 2d 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6e 6e | me-def-connection-var.slime-conn |
| 13db80 | 65 63 74 69 6f 6e 2d 6e 61 6d 65 20 6e 69 6c 0a 20 20 22 54 68 65 20 73 68 6f 72 74 20 6e 61 6d | ection-name.nil..."The.short.nam |
| 13dba0 | 65 20 66 6f 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 22 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 2d | e.for.connection.")..(slime-def- |
| 13dbc0 | 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 | connection-var.slime-inferior-pr |
| 13dbe0 | 6f 63 65 73 73 20 6e 69 6c 0a 20 20 22 54 68 65 20 69 6e 66 65 72 69 6f 72 20 70 72 6f 63 65 73 | ocess.nil..."The.inferior.proces |
| 13dc00 | 73 20 66 6f 72 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 66 20 61 6e 79 2e 22 29 0a 0a | s.for.the.connection.if.any.").. |
| 13dc20 | 28 73 6c 69 6d 65 2d 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d | (slime-def-connection-var.slime- |
| 13dc40 | 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 6e 69 6c 0a 20 20 22 54 68 65 20 63 | communication-style.nil..."The.c |
| 13dc60 | 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 2e 22 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 | ommunication.style.")..(slime-de |
| 13dc80 | 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 6d 61 63 68 69 6e 65 2d 69 | f-connection-var.slime-machine-i |
| 13dca0 | 6e 73 74 61 6e 63 65 20 6e 69 6c 0a 20 20 22 54 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 28 | nstance.nil..."The.name.of.the.( |
| 13dcc0 | 72 65 6d 6f 74 65 29 20 6d 61 63 68 69 6e 65 20 72 75 6e 6e 69 6e 67 20 74 68 65 20 4c 69 73 70 | remote).machine.running.the.Lisp |
| 13dce0 | 20 70 72 6f 63 65 73 73 2e 22 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 2d 63 6f 6e 6e 65 63 74 69 | .process.")..(slime-def-connecti |
| 13dd00 | 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6f 64 69 6e 67 2d 73 | on-var.slime-connection-coding-s |
| 13dd20 | 79 73 74 65 6d 73 20 6e 69 6c 0a 20 20 22 43 6f 64 69 6e 67 20 73 79 73 74 65 6d 73 20 73 75 70 | ystems.nil..."Coding.systems.sup |
| 13dd40 | 70 6f 72 74 65 64 20 62 79 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 2e 22 29 0a 0a 3b | ported.by.the.Lisp.process.")..; |
| 13dd60 | 3b 3b 3b 3b 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 65 74 75 70 0a 0a 28 64 65 66 76 61 72 20 73 | ;;;;.Connection.setup..(defvar.s |
| 13dd80 | 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6f 75 6e 74 65 72 20 30 0a 20 20 22 54 68 65 | lime-connection-counter.0..."The |
| 13dda0 | 20 6e 75 6d 62 65 72 20 6f 66 20 53 4c 49 4d 45 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 6d 61 64 | .number.of.SLIME.connections.mad |
| 13ddc0 | 65 2e 20 46 6f 72 20 67 65 6e 65 72 61 74 69 6e 67 20 73 65 72 69 61 6c 20 6e 75 6d 62 65 72 73 | e..For.generating.serial.numbers |
| 13dde0 | 2e 22 29 0a 0a 3b 3b 3b 20 49 6e 74 65 72 66 61 63 65 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | .")..;;;.Interface.(defun.slime- |
| 13de00 | 73 65 74 75 70 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 70 72 6f 63 65 73 73 29 0a 20 20 22 4d 61 | setup-connection.(process)..."Ma |
| 13de20 | 6b 65 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6f 75 74 20 6f 66 20 50 52 4f 43 45 53 53 2e 22 | ke.a.connection.out.of.PROCESS." |
| 13de40 | 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 63 6f 6e 6e | ...(let.((slime-dispatching-conn |
| 13de60 | 65 63 74 69 6f 6e 20 70 72 6f 63 65 73 73 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 69 74 | ection.process)).....(slime-init |
| 13de80 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 73 74 61 74 65 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 28 | -connection-state.process).....( |
| 13dea0 | 73 6c 69 6d 65 2d 73 65 6c 65 63 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 6f 63 65 73 73 29 | slime-select-connection.process) |
| 13dec0 | 0a 20 20 20 20 70 72 6f 63 65 73 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 69 | .....process))..(defun.slime-ini |
| 13dee0 | 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 73 74 61 74 65 20 28 70 72 6f 63 29 0a 20 20 22 49 6e 69 | t-connection-state.(proc)..."Ini |
| 13df00 | 74 69 61 6c 69 7a 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 61 74 65 20 69 6e 20 74 68 65 20 | tialize.connection.state.in.the. |
| 13df20 | 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 6f 66 20 50 52 4f 43 2e 22 0a 20 20 3b 3b 20 54 6f | process-buffer.of.PROC."...;;.To |
| 13df40 | 20 6d 61 6b 65 20 6c 69 66 65 20 73 69 6d 70 6c 65 72 20 66 6f 72 20 74 68 65 20 75 73 65 72 3a | .make.life.simpler.for.the.user: |
| 13df60 | 20 69 66 20 74 68 69 73 20 69 73 20 74 68 65 20 6f 6e 6c 79 20 6f 70 65 6e 0a 20 20 3b 3b 20 63 | .if.this.is.the.only.open...;;.c |
| 13df80 | 6f 6e 6e 65 63 74 69 6f 6e 20 74 68 65 6e 20 72 65 73 65 74 20 74 68 65 20 63 6f 6e 6e 65 63 74 | onnection.then.reset.the.connect |
| 13dfa0 | 69 6f 6e 20 63 6f 75 6e 74 65 72 2e 0a 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 73 6c 69 6d | ion.counter....(when.(equal.slim |
| 13dfc0 | 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 20 28 6c 69 73 74 20 70 72 6f 63 29 29 0a 20 20 20 | e-net-processes.(list.proc)).... |
| 13dfe0 | 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6f 75 6e 74 65 72 20 | .(setq.slime-connection-counter. |
| 13e000 | 30 29 29 0a 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 62 75 66 | 0))...(slime-with-connection-buf |
| 13e020 | 66 65 72 20 28 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f | fer.().....(setq.slime-buffer-co |
| 13e040 | 6e 6e 65 63 74 69 6f 6e 20 70 72 6f 63 29 29 0a 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 63 | nnection.proc))...(setf.(slime-c |
| 13e060 | 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 75 6d 62 65 72 20 70 72 6f 63 29 20 28 63 6c 2d 69 6e 63 66 20 | onnection-number.proc).(cl-incf. |
| 13e080 | 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6f 75 6e 74 65 72 29 29 0a 20 20 3b 3b 20 | slime-connection-counter))...;;. |
| 13e0a0 | 57 65 20 64 6f 20 74 68 65 20 72 65 73 74 20 6f 66 20 6f 75 72 20 69 6e 69 74 69 61 6c 69 7a 61 | We.do.the.rest.of.our.initializa |
| 13e0c0 | 74 69 6f 6e 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 2e 20 54 68 65 20 63 75 72 72 65 6e 74 | tion.asynchronously..The.current |
| 13e0e0 | 0a 20 20 3b 3b 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 62 65 20 63 61 6c 6c 65 64 20 66 72 6f | ...;;.function.may.be.called.fro |
| 13e100 | 6d 20 61 20 74 69 6d 65 72 2c 20 61 6e 64 20 69 66 20 77 65 20 73 65 74 75 70 20 74 68 65 20 52 | m.a.timer,.and.if.we.setup.the.R |
| 13e120 | 45 50 4c 0a 20 20 3b 3b 20 66 72 6f 6d 20 61 20 74 69 6d 65 72 20 74 68 65 6e 20 69 74 20 6d 79 | EPL...;;.from.a.timer.then.it.my |
| 13e140 | 73 74 65 72 69 6f 75 73 6c 79 20 75 73 65 73 20 74 68 65 20 77 72 6f 6e 67 20 6b 65 79 6d 61 70 | steriously.uses.the.wrong.keymap |
| 13e160 | 20 66 6f 72 20 74 68 65 0a 20 20 3b 3b 20 66 69 72 73 74 20 63 6f 6d 6d 61 6e 64 2e 0a 20 20 28 | .for.the...;;.first.command....( |
| 13e180 | 6c 65 74 20 28 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 74 29 29 0a 20 | let.((slime-current-thread.t)).. |
| 13e1a0 | 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 27 28 73 77 61 6e 6b 3a 63 6f 6e | ...(slime-eval-async.'(swank:con |
| 13e1c0 | 6e 65 63 74 69 6f 6e 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 75 72 72 79 | nection-info).......(slime-curry |
| 13e1e0 | 20 23 27 73 6c 69 6d 65 2d 73 65 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 69 6e 66 6f 20 70 72 6f | .#'slime-set-connection-info.pro |
| 13e200 | 63 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 69 6e 66 65 72 | c))))..(defun.slime-insert-infer |
| 13e220 | 69 6f 72 2d 6c 69 73 70 2d 6f 75 74 70 75 74 20 28 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 | ior-lisp-output.(string)...(let. |
| 13e240 | 28 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 | ((slime-dispatching-connection.s |
| 13e260 | 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 63 6f 6e 6e 65 63 74 65 64 29 29 0a 20 | lime-inferior-lisp-connected)).. |
| 13e280 | 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d | ...(when.(and.slime-dispatching- |
| 13e2a0 | 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 70 | connection................(eq.(p |
| 13e2c0 | 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d | rocess-status.slime-dispatching- |
| 13e2e0 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 27 6f 70 65 6e 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 | connection).'open)).......(funca |
| 13e300 | 6c 6c 20 73 6c 69 6d 65 2d 74 65 72 6d 69 6e 61 6c 2d 6f 75 74 70 75 74 2d 66 75 6e 63 74 69 6f | ll.slime-terminal-output-functio |
| 13e320 | 6e 20 73 74 72 69 6e 67 29 29 29 0a 20 20 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 75 6e 20 73 6c | n.string)))...string)..(defun.sl |
| 13e340 | 69 6d 65 2d 73 65 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 69 6e 66 6f 20 28 63 6f 6e 6e 65 63 74 | ime-set-connection-info.(connect |
| 13e360 | 69 6f 6e 20 69 6e 66 6f 29 0a 20 20 22 49 6e 69 74 69 61 6c 69 7a 65 20 43 4f 4e 4e 45 43 54 49 | ion.info)..."Initialize.CONNECTI |
| 13e380 | 4f 4e 20 77 69 74 68 20 49 4e 46 4f 20 72 65 63 65 69 76 65 64 20 66 72 6f 6d 20 4c 69 73 70 2e | ON.with.INFO.received.from.Lisp. |
| 13e3a0 | 22 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 63 6f 6e | "...(let.((slime-dispatching-con |
| 13e3c0 | 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 | nection.connection).........(sli |
| 13e3e0 | 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 74 29 29 0a 20 20 20 20 28 63 6c 2d 64 65 | me-current-thread.t)).....(cl-de |
| 13e400 | 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 6b 65 79 20 70 69 64 20 73 74 79 6c 65 | structuring-bind.(&key.pid.style |
| 13e420 | 20 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 63 68 69 6e 65 0a 20 20 20 | .lisp-implementation.machine.... |
| 13e440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 65 | ..............................fe |
| 13e460 | 61 74 75 72 65 73 20 76 65 72 73 69 6f 6e 20 6d 6f 64 75 6c 65 73 20 65 6e 63 6f 64 69 6e 67 0a | atures.version.modules.encoding. |
| 13e480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 13e4a0 | 20 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 20 69 6e 66 6f 0a 20 20 20 20 20 20 28 | .&allow-other-keys).info.......( |
| 13e4c0 | 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 76 65 72 73 69 6f 6e 20 76 65 72 73 69 6f 6e 20 63 6f 6e 6e | slime-check-version.version.conn |
| 13e4e0 | 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 70 69 64 29 20 | ection).......(setf.(slime-pid). |
| 13e500 | 70 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 6d 75 6e 69 63 61 | pid.............(slime-communica |
| 13e520 | 74 69 6f 6e 2d 73 74 79 6c 65 29 20 73 74 79 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | tion-style).style.............(s |
| 13e540 | 6c 69 6d 65 2d 6c 69 73 70 2d 66 65 61 74 75 72 65 73 29 20 66 65 61 74 75 72 65 73 0a 20 20 20 | lime-lisp-features).features.... |
| 13e560 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 75 6c 65 73 29 20 6d 6f | .........(slime-lisp-modules).mo |
| 13e580 | 64 75 6c 65 73 29 0a 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 | dules).......(cl-destructuring-b |
| 13e5a0 | 69 6e 64 20 28 26 6b 65 79 20 74 79 70 65 20 6e 61 6d 65 20 76 65 72 73 69 6f 6e 20 70 72 6f 67 | ind.(&key.type.name.version.prog |
| 13e5c0 | 72 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | ram)...........lisp-implementati |
| 13e5e0 | 6f 6e 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 | on.........(setf.(slime-lisp-imp |
| 13e600 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 29 20 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 | lementation-type).type.......... |
| 13e620 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d | .....(slime-lisp-implementation- |
| 13e640 | 76 65 72 73 69 6f 6e 29 20 76 65 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | version).version...............( |
| 13e660 | 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 6e 61 6d 65 29 20 | slime-lisp-implementation-name). |
| 13e680 | 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 | name...............(slime-lisp-i |
| 13e6a0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 70 72 6f 67 72 61 6d 29 20 70 72 6f 67 72 61 6d 0a 20 | mplementation-program).program.. |
| 13e6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e | .............(slime-connection-n |
| 13e6e0 | 61 6d 65 29 20 28 73 6c 69 6d 65 2d 67 65 6e 65 72 61 74 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d | ame).(slime-generate-connection- |
| 13e700 | 6e 61 6d 65 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 | name.name))).......(cl-destructu |
| 13e720 | 72 69 6e 67 2d 62 69 6e 64 20 28 26 6b 65 79 20 69 6e 73 74 61 6e 63 65 20 28 28 3a 74 79 70 65 | ring-bind.(&key.instance.((:type |
| 13e740 | 20 5f 29 29 20 28 28 3a 76 65 72 73 69 6f 6e 20 5f 29 29 29 20 6d 61 63 68 69 6e 65 0a 20 20 20 | ._)).((:version._))).machine.... |
| 13e760 | 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 6d 61 63 68 69 6e 65 2d 69 6e 73 74 61 6e | .....(setf.(slime-machine-instan |
| 13e780 | 63 65 29 20 69 6e 73 74 61 6e 63 65 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 | ce).instance)).......(cl-destruc |
| 13e7a0 | 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 6b 65 79 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 73 | turing-bind.(&key.coding-systems |
| 13e7c0 | 29 20 65 6e 63 6f 64 69 6e 67 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d | ).encoding.........(setf.(slime- |
| 13e7e0 | 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 73 29 20 63 6f 64 69 6e | connection-coding-systems).codin |
| 13e800 | 67 2d 73 79 73 74 65 6d 73 29 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 70 72 6f 63 65 73 73 | g-systems))).....(let*.((process |
| 13e820 | 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 29 29 0a 20 20 20 20 20 | .(slime-inferior-process))...... |
| 13e840 | 20 20 20 20 20 20 28 61 72 67 73 20 28 61 6e 64 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 | ......(args.(and.process........ |
| 13e860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c | ...............(slime-inferior-l |
| 13e880 | 69 73 70 2d 61 72 67 73 20 70 72 6f 63 65 73 73 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 | isp-args.process)))).......(let. |
| 13e8a0 | 28 28 6e 61 6d 65 20 28 70 6c 69 73 74 2d 67 65 74 20 61 72 67 73 20 27 3a 6e 61 6d 65 29 29 29 | ((name.(plist-get.args.':name))) |
| 13e8c0 | 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 28 75 | .........(when.name...........(u |
| 13e8e0 | 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 3d 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 | nless.(string=.(slime-lisp-imple |
| 13e900 | 6d 65 6e 74 61 74 69 6f 6e 2d 6e 61 6d 65 29 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | mentation-name).name)........... |
| 13e920 | 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 29 0a | ..(setf.(slime-connection-name). |
| 13e940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 67 65 6e 65 72 61 74 | ..................(slime-generat |
| 13e960 | 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6e | e-connection-name.(symbol-name.n |
| 13e980 | 61 6d 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 6f 61 64 2d 63 6f 6e 74 | ame)))))).......(slime-load-cont |
| 13e9a0 | 72 69 62 73 29 0a 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 63 6f | ribs).......(run-hooks.'slime-co |
| 13e9c0 | 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 70 72 6f 63 65 73 | nnected-hook).......(when.proces |
| 13e9e0 | 73 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 | s.........(with-current-buffer.( |
| 13ea00 | 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 20 20 20 | process-buffer.process)......... |
| 13ea20 | 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 63 6f 6e 6e | ..(setq.slime-inferior-lisp-conn |
| 13ea40 | 65 63 74 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 | ected.connection))).......(let.( |
| 13ea60 | 28 66 75 6e 20 28 70 6c 69 73 74 2d 67 65 74 20 61 72 67 73 20 27 3a 69 6e 69 74 2d 66 75 6e 63 | (fun.(plist-get.args.':init-func |
| 13ea80 | 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 66 75 6e 20 28 66 75 6e 63 61 | tion))).........(when.fun.(funca |
| 13eaa0 | 6c 6c 20 66 75 6e 29 29 29 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 43 6f 6e 6e 65 63 74 | ll.fun)))).....(message."Connect |
| 13eac0 | 65 64 2e 20 25 73 22 20 28 73 6c 69 6d 65 2d 72 61 6e 64 6f 6d 2d 77 6f 72 64 73 2d 6f 66 2d 65 | ed..%s".(slime-random-words-of-e |
| 13eae0 | 6e 63 6f 75 72 61 67 65 6d 65 6e 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e | ncouragement))))..(defun.slime-n |
| 13eb00 | 65 74 2d 63 6c 6f 73 65 20 28 70 72 6f 63 65 73 73 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 62 75 | et-close.(process.&optional.debu |
| 13eb20 | 67 29 0a 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 20 28 | g)...(setq.slime-net-processes.( |
| 13eb40 | 72 65 6d 6f 76 65 20 70 72 6f 63 65 73 73 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 | remove.process.slime-net-process |
| 13eb60 | 65 73 29 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 70 72 6f 63 65 73 73 20 73 6c 69 6d 65 2d 64 | es))...(when.(eq.process.slime-d |
| 13eb80 | 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 | efault-connection).....(setq.sli |
| 13eba0 | 6d 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 69 6c 29 29 0a 20 20 28 77 | me-default-connection.nil))...(w |
| 13ebc0 | 68 65 6e 20 28 65 71 20 70 72 6f 63 65 73 73 20 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e | hen.(eq.process.slime-dispatchin |
| 13ebe0 | 67 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 64 69 | g-connection).....(setq.slime-di |
| 13ec00 | 73 70 61 74 63 68 69 6e 67 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 69 6c 29 29 0a 20 20 28 63 6f | spatching-connection.nil))...(co |
| 13ec20 | 6e 64 20 28 64 65 62 75 67 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d | nd.(debug..........(set-process- |
| 13ec40 | 73 65 6e 74 69 6e 65 6c 20 70 72 6f 63 65 73 73 20 27 69 67 6e 6f 72 65 29 0a 20 20 20 20 20 20 | sentinel.process.'ignore)....... |
| 13ec60 | 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 20 70 72 6f 63 65 73 73 20 27 | ...(set-process-filter.process.' |
| 13ec80 | 69 67 6e 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 | ignore)..........(delete-process |
| 13eca0 | 20 70 72 6f 63 65 73 73 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 | .process)).........(t..........( |
| 13ecc0 | 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 20 27 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 | run-hook-with-args.'slime-net-pr |
| 13ece0 | 6f 63 65 73 73 2d 63 6c 6f 73 65 2d 68 6f 6f 6b 73 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 | ocess-close-hooks.process)...... |
| 13ed00 | 20 20 20 20 3b 3b 20 6b 69 6c 6c 69 6e 67 20 74 68 65 20 62 75 66 66 65 72 20 61 6c 73 6f 20 63 | ....;;.killing.the.buffer.also.c |
| 13ed20 | 6c 6f 73 65 73 20 74 68 65 20 73 6f 63 6b 65 74 0a 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d | loses.the.socket..........(kill- |
| 13ed40 | 62 75 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 29 29 | buffer.(process-buffer.process)) |
| 13ed60 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 76 65 72 73 69 6f 6e 20 | )))..(defun.slime-check-version. |
| 13ed80 | 28 76 65 72 73 69 6f 6e 20 63 6f 6e 6e 29 0a 20 20 28 6f 72 20 28 65 71 75 61 6c 20 76 65 72 73 | (version.conn)...(or.(equal.vers |
| 13eda0 | 69 6f 6e 20 73 6c 69 6d 65 2d 70 72 6f 74 6f 63 6f 6c 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 | ion.slime-protocol-version)..... |
| 13edc0 | 20 20 28 65 71 75 61 6c 20 73 6c 69 6d 65 2d 70 72 6f 74 6f 63 6f 6c 2d 76 65 72 73 69 6f 6e 20 | ..(equal.slime-protocol-version. |
| 13ede0 | 27 69 67 6e 6f 72 65 29 0a 20 20 20 20 20 20 28 79 2d 6f 72 2d 6e 2d 70 0a 20 20 20 20 20 20 20 | 'ignore).......(y-or-n-p........ |
| 13ee00 | 28 66 6f 72 6d 61 74 20 22 56 65 72 73 69 6f 6e 73 20 64 69 66 66 65 72 3a 20 25 73 20 28 73 6c | (format."Versions.differ:.%s.(sl |
| 13ee20 | 69 6d 65 29 20 76 73 2e 20 25 73 20 28 73 77 61 6e 6b 29 2e 20 43 6f 6e 74 69 6e 75 65 3f 20 22 | ime).vs..%s.(swank)..Continue?." |
| 13ee40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 70 72 6f 74 6f 63 6f 6c 2d 76 | ................slime-protocol-v |
| 13ee60 | 65 72 73 69 6f 6e 20 76 65 72 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6e 65 | ersion.version)).......(slime-ne |
| 13ee80 | 74 2d 63 6c 6f 73 65 20 63 6f 6e 6e 29 0a 20 20 20 20 20 20 28 74 6f 70 2d 6c 65 76 65 6c 29 29 | t-close.conn).......(top-level)) |
| 13eea0 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 65 6e 65 72 61 74 65 2d 63 6f 6e 6e 65 63 74 | )..(defun.slime-generate-connect |
| 13eec0 | 69 6f 6e 2d 6e 61 6d 65 20 28 6c 69 73 70 2d 6e 61 6d 65 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 | ion-name.(lisp-name)...(cl-loop. |
| 13eee0 | 66 6f 72 20 69 20 66 72 6f 6d 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6e 61 6d 65 | for.i.from.1............for.name |
| 13ef00 | 20 3d 20 6c 69 73 70 2d 6e 61 6d 65 20 74 68 65 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 3c 25 64 | .=.lisp-name.then.(format."%s<%d |
| 13ef20 | 3e 22 20 6c 69 73 70 2d 6e 61 6d 65 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 | >".lisp-name.i)............while |
| 13ef40 | 20 28 63 6c 2d 66 69 6e 64 20 6e 61 6d 65 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 | .(cl-find.name.slime-net-process |
| 13ef60 | 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 | es...........................:ke |
| 13ef80 | 79 20 23 27 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 20 3a 74 65 73 74 20 | y.#'slime-connection-name.:test. |
| 13efa0 | 23 27 65 71 75 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 63 6c 2d | #'equal)............finally.(cl- |
| 13efc0 | 72 65 74 75 72 6e 20 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6e | return.name)))..(defun.slime-con |
| 13efe0 | 6e 65 63 74 69 6f 6e 2d 63 6c 6f 73 65 2d 68 6f 6f 6b 20 28 70 72 6f 63 65 73 73 29 0a 20 20 28 | nection-close-hook.(process)...( |
| 13f000 | 77 68 65 6e 20 28 65 71 20 70 72 6f 63 65 73 73 20 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 63 | when.(eq.process.slime-default-c |
| 13f020 | 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 | onnection).....(when.slime-net-p |
| 13f040 | 72 6f 63 65 73 73 65 73 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 6c 65 63 74 2d 63 6f 6e | rocesses.......(slime-select-con |
| 13f060 | 6e 65 63 74 69 6f 6e 20 28 63 61 72 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 | nection.(car.slime-net-processes |
| 13f080 | 29 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 44 65 66 61 75 6c 74 20 63 6f 6e 6e 65 | )).......(message."Default.conne |
| 13f0a0 | 63 74 69 6f 6e 20 63 6c 6f 73 65 64 3b 20 73 77 69 74 63 68 65 64 20 74 6f 20 23 25 53 20 28 25 | ction.closed;.switched.to.#%S.(% |
| 13f0c0 | 53 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 | S)"................(slime-connec |
| 13f0e0 | 74 69 6f 6e 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | tion-number)................(sli |
| 13f100 | 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 29 29 29 29 29 0a 0a 28 61 64 64 2d 68 6f | me-connection-name)))))..(add-ho |
| 13f120 | 6f 6b 20 27 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 2d 63 6c 6f 73 65 2d 68 6f 6f 6b | ok.'slime-net-process-close-hook |
| 13f140 | 73 20 27 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6c 6f 73 65 2d 68 6f 6f 6b 29 0a | s.'slime-connection-close-hook). |
| 13f160 | 0a 3b 3b 3b 3b 3b 20 43 6f 6d 6d 61 6e 64 73 20 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 0a 0a | .;;;;;.Commands.on.connections.. |
| 13f180 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 69 73 63 6f 6e 6e 65 63 74 20 28 29 0a 20 20 22 43 6c | (defun.slime-disconnect.()..."Cl |
| 13f1a0 | 6f 73 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 22 0a 20 20 28 | ose.the.current.connection."...( |
| 13f1c0 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 6e 65 74 2d 63 6c 6f 73 65 20 | interactive)...(slime-net-close. |
| 13f1e0 | 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | (slime-connection)))..(defun.sli |
| 13f200 | 6d 65 2d 64 69 73 63 6f 6e 6e 65 63 74 2d 61 6c 6c 20 28 29 0a 20 20 22 44 69 73 63 6f 6e 6e 65 | me-disconnect-all.()..."Disconne |
| 13f220 | 63 74 20 61 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | ct.all.connections."...(interact |
| 13f240 | 69 76 65 29 0a 20 20 28 6d 61 70 63 20 23 27 73 6c 69 6d 65 2d 6e 65 74 2d 63 6c 6f 73 65 20 73 | ive)...(mapc.#'slime-net-close.s |
| 13f260 | 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | lime-net-processes))..(defun.sli |
| 13f280 | 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 6f 72 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a | me-connection-port.(connection). |
| 13f2a0 | 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 72 65 6d 6f 74 65 20 70 6f 72 74 20 6e 75 6d 62 65 72 | .."Return.the.remote.port.number |
| 13f2c0 | 20 6f 66 20 43 4f 4e 4e 45 43 54 49 4f 4e 2e 22 0a 20 20 28 63 61 64 72 20 28 70 72 6f 63 65 73 | .of.CONNECTION."...(cadr.(proces |
| 13f2e0 | 73 2d 63 6f 6e 74 61 63 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 | s-contact.connection)))..(defun. |
| 13f300 | 73 6c 69 6d 65 2d 70 72 6f 63 65 73 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6e 6e 65 63 74 | slime-process.(&optional.connect |
| 13f320 | 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 20 | ion)..."Return.the.Lisp.process. |
| 13f340 | 66 6f 72 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 28 64 65 66 61 75 6c 74 20 60 73 6c 69 6d 65 2d 63 | for.CONNECTION.(default.`slime-c |
| 13f360 | 6f 6e 6e 65 63 74 69 6f 6e 27 29 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 74 68 65 72 65 | onnection')..Return.nil.if.there |
| 13f380 | 27 73 20 6e 6f 20 70 72 6f 63 65 73 73 20 6f 62 6a 65 63 74 20 66 6f 72 20 74 68 65 20 63 6f 6e | 's.no.process.object.for.the.con |
| 13f3a0 | 6e 65 63 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 63 20 28 73 6c 69 6d 65 2d 69 | nection."...(let.((proc.(slime-i |
| 13f3c0 | 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 | nferior-process.connection)))... |
| 13f3e0 | 20 20 28 69 66 20 28 61 6e 64 20 70 72 6f 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 | ..(if.(and.proc..............(me |
| 13f400 | 6d 71 20 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 70 72 6f 63 29 20 27 28 72 75 6e 20 73 | mq.(process-status.proc).'(run.s |
| 13f420 | 74 6f 70 29 29 29 0a 20 20 20 20 20 20 20 20 70 72 6f 63 29 29 29 0a 0a 3b 3b 20 4e 6f 6e 2d 6d | top))).........proc)))..;;.Non-m |
| 13f440 | 61 63 72 6f 20 76 65 72 73 69 6f 6e 20 74 6f 20 6b 65 65 70 20 74 68 65 20 66 69 6c 65 20 62 79 | acro.version.to.keep.the.file.by |
| 13f460 | 74 65 2d 63 6f 6d 70 69 6c 61 62 6c 65 2e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 74 2d | te-compilable..(defun.slime-set- |
| 13f480 | 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 6f | inferior-process.(connection.pro |
| 13f4a0 | 63 65 73 73 29 0a 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 | cess)...(setf.(slime-inferior-pr |
| 13f4c0 | 6f 63 65 73 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 70 72 6f 63 65 73 73 29 29 0a 0a 28 64 65 | ocess.connection).process))..(de |
| 13f4e0 | 66 75 6e 20 73 6c 69 6d 65 2d 75 73 65 2d 73 69 67 69 6e 74 2d 66 6f 72 2d 69 6e 74 65 72 72 75 | fun.slime-use-sigint-for-interru |
| 13f500 | 70 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 6c 65 74 | pt.(&optional.connection)...(let |
| 13f520 | 20 28 28 63 20 28 6f 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 | .((c.(or.connection.(slime-conne |
| 13f540 | 63 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 28 63 6c 2d 65 63 61 73 65 20 28 73 6c 69 6d 65 2d 63 | ction)))).....(cl-ecase.(slime-c |
| 13f560 | 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 63 29 0a 20 20 20 20 20 20 28 28 3a 66 | ommunication-style.c).......((:f |
| 13f580 | 64 2d 68 61 6e 64 6c 65 72 20 6e 69 6c 29 20 74 29 0a 20 20 20 20 20 20 28 28 3a 73 70 61 77 6e | d-handler.nil).t).......((:spawn |
| 13f5a0 | 20 3a 73 69 67 69 6f 29 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d | .:sigio).nil))))..(defvar.slime- |
| 13f5c0 | 69 6e 68 69 62 69 74 2d 70 69 70 65 6c 69 6e 69 6e 67 20 74 0a 20 20 22 2a 49 66 20 74 72 75 65 | inhibit-pipelining.t..."*If.true |
| 13f5e0 | 2c 20 64 6f 6e 27 74 20 73 65 6e 64 20 62 61 63 6b 67 72 6f 75 6e 64 20 72 65 71 75 65 73 74 73 | ,.don't.send.background.requests |
| 13f600 | 20 69 66 20 4c 69 73 70 20 69 73 20 61 6c 72 65 61 64 79 20 62 75 73 79 2e 22 29 0a 0a 28 64 65 | .if.Lisp.is.already.busy.")..(de |
| 13f620 | 66 75 6e 20 73 6c 69 6d 65 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 61 63 74 69 76 69 74 69 65 73 2d | fun.slime-background-activities- |
| 13f640 | 65 6e 61 62 6c 65 64 2d 70 20 28 29 0a 20 20 28 61 6e 64 20 28 6c 65 74 20 28 28 63 6f 6e 20 28 | enabled-p.()...(and.(let.((con.( |
| 13f660 | 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 | slime-current-connection)))..... |
| 13f680 | 20 20 20 20 20 28 61 6e 64 20 63 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 | .....(and.con...............(eq. |
| 13f6a0 | 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 63 6f 6e 29 20 27 6f 70 65 6e 29 29 29 0a 20 20 | (process-status.con).'open)))... |
| 13f6c0 | 20 20 20 20 20 28 6f 72 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 62 75 73 79 2d 70 29 29 0a 20 20 | .....(or.(not.(slime-busy-p))... |
| 13f6e0 | 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 73 6c 69 6d 65 2d 69 6e 68 69 62 69 74 2d 70 69 70 65 | .........(not.slime-inhibit-pipe |
| 13f700 | 6c 69 6e 69 6e 67 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e | lining))))....;;;;.Communication |
| 13f720 | 20 70 72 6f 74 6f 63 6f 6c 0a 0a 3b 3b 3b 3b 3b 20 45 6d 61 63 73 20 4c 69 73 70 20 70 72 6f 67 | .protocol..;;;;;.Emacs.Lisp.prog |
| 13f740 | 72 61 6d 6d 69 6e 67 20 69 6e 74 65 72 66 61 63 65 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 70 72 | ramming.interface.;;;.;;;.The.pr |
| 13f760 | 6f 67 72 61 6d 6d 69 6e 67 20 69 6e 74 65 72 66 61 63 65 20 66 6f 72 20 77 72 69 74 69 6e 67 20 | ogramming.interface.for.writing. |
| 13f780 | 45 6d 61 63 73 20 63 6f 6d 6d 61 6e 64 73 20 69 73 20 62 61 73 65 64 20 6f 6e 0a 3b 3b 3b 20 72 | Emacs.commands.is.based.on.;;;.r |
| 13f7a0 | 65 6d 6f 74 65 20 70 72 6f 63 65 64 75 72 65 20 63 61 6c 6c 73 20 28 52 50 43 73 29 2e 20 54 68 | emote.procedure.calls.(RPCs)..Th |
| 13f7c0 | 65 20 62 61 73 69 63 20 6f 70 65 72 61 74 69 6f 6e 20 69 73 20 74 6f 20 61 73 6b 20 4c 69 73 70 | e.basic.operation.is.to.ask.Lisp |
| 13f7e0 | 0a 3b 3b 3b 20 74 6f 20 61 70 70 6c 79 20 61 20 6e 61 6d 65 64 20 4c 69 73 70 20 66 75 6e 63 74 | .;;;.to.apply.a.named.Lisp.funct |
| 13f800 | 69 6f 6e 20 74 6f 20 73 6f 6d 65 20 61 72 67 75 6d 65 6e 74 73 2c 20 74 68 65 6e 20 74 6f 20 64 | ion.to.some.arguments,.then.to.d |
| 13f820 | 6f 0a 3b 3b 3b 20 73 6f 6d 65 74 68 69 6e 67 20 77 69 74 68 20 74 68 65 20 72 65 73 75 6c 74 2e | o.;;;.something.with.the.result. |
| 13f840 | 0a 3b 3b 3b 0a 3b 3b 3b 20 52 65 71 75 65 73 74 73 20 63 61 6e 20 62 65 20 65 69 74 68 65 72 20 | .;;;.;;;.Requests.can.be.either. |
| 13f860 | 73 79 6e 63 68 72 6f 6e 6f 75 73 20 28 62 6c 6f 63 6b 69 6e 67 29 20 6f 72 20 61 73 79 6e 63 68 | synchronous.(blocking).or.asynch |
| 13f880 | 72 6f 6e 6f 75 73 0a 3b 3b 3b 20 28 77 69 74 68 20 74 68 65 20 72 65 73 75 6c 74 20 70 61 73 73 | ronous.;;;.(with.the.result.pass |
| 13f8a0 | 65 64 20 74 6f 20 61 20 63 61 6c 6c 62 61 63 6b 2f 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 66 75 | ed.to.a.callback/continuation.fu |
| 13f8c0 | 6e 63 74 69 6f 6e 29 2e 20 20 49 66 0a 3b 3b 3b 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 73 | nction)...If.;;;.an.error.occurs |
| 13f8e0 | 20 64 75 72 69 6e 67 20 74 68 65 20 72 65 71 75 65 73 74 20 74 68 65 6e 20 74 68 65 20 64 65 62 | .during.the.request.then.the.deb |
| 13f900 | 75 67 67 65 72 20 69 73 20 65 6e 74 65 72 65 64 0a 3b 3b 3b 20 62 65 66 6f 72 65 20 74 68 65 20 | ugger.is.entered.;;;.before.the. |
| 13f920 | 72 65 73 75 6c 74 20 61 72 72 69 76 65 73 20 2d 2d 20 66 6f 72 20 73 79 6e 63 68 72 6f 6e 6f 75 | result.arrives.--.for.synchronou |
| 13f940 | 73 20 65 76 61 6c 75 61 74 69 6f 6e 73 20 74 68 69 73 0a 3b 3b 3b 20 72 65 71 75 69 72 65 73 20 | s.evaluations.this.;;;.requires. |
| 13f960 | 61 20 72 65 63 75 72 73 69 76 65 20 65 64 69 74 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 59 6f 75 20 73 68 | a.recursive.edit..;;;.;;;.You.sh |
| 13f980 | 6f 75 6c 64 20 75 73 65 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 20 65 76 61 6c 75 61 74 69 6f 6e | ould.use.asynchronous.evaluation |
| 13f9a0 | 73 20 28 60 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 27 29 20 66 6f 72 0a 3b 3b 3b 20 6d | s.(`slime-eval-async').for.;;;.m |
| 13f9c0 | 6f 73 74 20 74 68 69 6e 67 73 2e 20 52 65 73 65 72 76 65 20 73 79 6e 63 68 72 6f 6e 6f 75 73 20 | ost.things..Reserve.synchronous. |
| 13f9e0 | 65 76 61 6c 75 61 74 69 6f 6e 73 20 28 60 73 6c 69 6d 65 2d 65 76 61 6c 27 29 20 66 6f 72 0a 3b | evaluations.(`slime-eval').for.; |
| 13fa00 | 3b 3b 20 74 68 65 20 63 61 73 65 73 20 77 68 65 72 65 20 62 6c 6f 63 6b 69 6e 67 20 45 6d 61 63 | ;;.the.cases.where.blocking.Emac |
| 13fa20 | 73 20 69 73 20 72 65 61 6c 6c 79 20 61 70 70 72 6f 70 72 69 61 74 65 20 28 6c 69 6b 65 0a 3b 3b | s.is.really.appropriate.(like.;; |
| 13fa40 | 3b 20 63 6f 6d 70 6c 65 74 69 6f 6e 29 20 61 6e 64 20 74 68 61 74 20 73 68 6f 75 6c 64 6e 27 74 | ;.completion).and.that.shouldn't |
| 13fa60 | 20 74 72 69 67 67 65 72 20 65 72 72 6f 72 73 20 28 65 2e 67 2e 20 6e 6f 74 20 65 76 61 6c 75 61 | .trigger.errors.(e.g..not.evalua |
| 13fa80 | 74 65 0a 3b 3b 3b 20 75 73 65 72 2d 65 6e 74 65 72 65 64 20 63 6f 64 65 29 2e 0a 3b 3b 3b 0a 3b | te.;;;.user-entered.code)..;;;.; |
| 13faa0 | 3b 3b 20 57 65 20 68 61 76 65 20 74 68 65 20 63 6f 6e 63 65 70 74 20 6f 66 20 74 68 65 20 22 63 | ;;.We.have.the.concept.of.the."c |
| 13fac0 | 75 72 72 65 6e 74 20 4c 69 73 70 20 70 61 63 6b 61 67 65 22 2e 20 52 50 43 20 72 65 71 75 65 73 | urrent.Lisp.package"..RPC.reques |
| 13fae0 | 74 73 0a 3b 3b 3b 20 61 6c 77 61 79 73 20 73 61 79 20 77 68 61 74 20 70 61 63 6b 61 67 65 20 74 | ts.;;;.always.say.what.package.t |
| 13fb00 | 68 65 20 75 73 65 72 20 69 73 20 6d 61 6b 69 6e 67 20 74 68 65 6d 20 66 72 6f 6d 20 61 6e 64 20 | he.user.is.making.them.from.and. |
| 13fb20 | 74 68 65 20 4c 69 73 70 0a 3b 3b 3b 20 73 69 64 65 20 62 69 6e 64 73 20 74 68 61 74 20 70 61 63 | the.Lisp.;;;.side.binds.that.pac |
| 13fb40 | 6b 61 67 65 20 74 6f 20 2a 42 55 46 46 45 52 2d 50 41 43 4b 41 47 45 2a 20 74 6f 20 75 73 65 20 | kage.to.*BUFFER-PACKAGE*.to.use. |
| 13fb60 | 61 73 20 69 74 20 73 65 65 73 0a 3b 3b 3b 20 66 69 74 2e 20 54 68 65 20 63 75 72 72 65 6e 74 20 | as.it.sees.;;;.fit..The.current. |
| 13fb80 | 70 61 63 6b 61 67 65 20 69 73 20 64 65 66 69 6e 65 64 20 61 73 20 74 68 65 20 62 75 66 66 65 72 | package.is.defined.as.the.buffer |
| 13fba0 | 2d 6c 6f 63 61 6c 20 76 61 6c 75 65 20 6f 66 0a 3b 3b 3b 20 60 73 6c 69 6d 65 2d 62 75 66 66 65 | -local.value.of.;;;.`slime-buffe |
| 13fbc0 | 72 2d 70 61 63 6b 61 67 65 27 20 69 66 20 73 65 74 2c 20 61 6e 64 20 6f 74 68 65 72 77 69 73 65 | r-package'.if.set,.and.otherwise |
| 13fbe0 | 20 74 68 65 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 64 20 62 79 0a 3b 3b 3b 20 74 68 65 20 6e 65 | .the.package.named.by.;;;.the.ne |
| 13fc00 | 61 72 65 73 74 20 49 4e 2d 50 41 43 4b 41 47 45 20 61 73 20 66 6f 75 6e 64 20 62 79 20 74 65 78 | arest.IN-PACKAGE.as.found.by.tex |
| 13fc20 | 74 20 73 65 61 72 63 68 20 28 63 6c 2d 66 69 72 73 74 20 62 61 63 6b 77 61 72 64 73 2c 0a 3b 3b | t.search.(cl-first.backwards,.;; |
| 13fc40 | 3b 20 74 68 65 6e 20 66 6f 72 77 61 72 64 73 29 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 53 69 6d 69 6c 61 | ;.then.forwards)..;;;.;;;.Simila |
| 13fc60 | 72 6c 79 20 77 65 20 68 61 76 65 20 74 68 65 20 63 6f 6e 63 65 70 74 20 6f 66 20 74 68 65 20 63 | rly.we.have.the.concept.of.the.c |
| 13fc80 | 75 72 72 65 6e 74 20 74 68 72 65 61 64 2c 20 69 2e 65 2e 20 77 68 69 63 68 0a 3b 3b 3b 20 74 68 | urrent.thread,.i.e..which.;;;.th |
| 13fca0 | 72 65 61 64 20 69 6e 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 20 73 68 6f 75 6c 64 20 | read.in.the.Lisp.process.should. |
| 13fcc0 | 68 61 6e 64 6c 65 20 74 68 65 20 72 65 71 75 65 73 74 2e 20 54 68 65 20 63 75 72 72 65 6e 74 0a | handle.the.request..The.current. |
| 13fce0 | 3b 3b 3b 20 74 68 72 65 61 64 20 69 73 20 64 65 74 65 72 6d 69 6e 65 64 20 73 6f 6c 65 6c 79 20 | ;;;.thread.is.determined.solely. |
| 13fd00 | 62 79 20 74 68 65 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 76 61 6c 75 65 20 6f 66 0a 3b 3b 3b | by.the.buffer-local.value.of.;;; |
| 13fd20 | 20 60 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 27 2e 20 54 68 69 73 20 69 73 | .`slime-current-thread'..This.is |
| 13fd40 | 20 75 73 75 61 6c 6c 79 20 62 6f 75 6e 64 20 74 6f 20 74 20 6d 65 61 6e 69 6e 67 20 22 6e 6f 0a | .usually.bound.to.t.meaning."no. |
| 13fd60 | 3b 3b 3b 20 70 61 72 74 69 63 75 6c 61 72 20 74 68 72 65 61 64 22 2c 20 62 75 74 20 63 61 6e 20 | ;;;.particular.thread",.but.can. |
| 13fd80 | 61 6c 73 6f 20 62 65 20 75 73 65 64 20 74 6f 20 6e 6f 6d 69 6e 61 74 65 20 61 20 73 70 65 63 69 | also.be.used.to.nominate.a.speci |
| 13fda0 | 66 69 63 0a 3b 3b 3b 20 74 68 72 65 61 64 2e 20 54 68 65 20 52 45 50 4c 20 61 6e 64 20 74 68 65 | fic.;;;.thread..The.REPL.and.the |
| 13fdc0 | 20 64 65 62 75 67 67 65 72 20 62 6f 74 68 20 75 73 65 20 74 68 69 73 20 66 65 61 74 75 72 65 20 | .debugger.both.use.this.feature. |
| 13fde0 | 74 6f 20 64 65 61 6c 0a 3b 3b 3b 20 77 69 74 68 20 73 70 65 63 69 66 69 63 20 74 68 72 65 61 64 | to.deal.;;;.with.specific.thread |
| 13fe00 | 73 2e 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 0a | s...(make-variable-buffer-local. |
| 13fe20 | 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 74 0a | .(defvar.slime-current-thread.t. |
| 13fe40 | 20 20 20 22 54 68 65 20 69 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 68 72 65 61 64 | ..."The.id.of.the.current.thread |
| 13fe60 | 20 6f 6e 20 74 68 65 20 4c 69 73 70 20 73 69 64 65 2e 0a 74 20 6d 65 61 6e 73 20 74 68 65 20 5c | .on.the.Lisp.side..t.means.the.\ |
| 13fe80 | 22 63 75 72 72 65 6e 74 5c 22 20 74 68 72 65 61 64 3b 0a 3a 72 65 70 6c 2d 74 68 72 65 61 64 20 | "current\".thread;.:repl-thread. |
| 13fea0 | 74 68 65 20 74 68 72 65 61 64 20 74 68 61 74 20 65 78 65 63 75 74 65 73 20 52 45 50 4c 20 72 65 | the.thread.that.executes.REPL.re |
| 13fec0 | 71 75 65 73 74 73 3b 0a 66 69 78 6e 75 6d 20 61 20 73 70 65 63 69 66 69 63 20 74 68 72 65 61 64 | quests;.fixnum.a.specific.thread |
| 13fee0 | 2e 22 29 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 | ."))..(make-variable-buffer-loca |
| 13ff00 | 6c 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 | l..(defvar.slime-buffer-package. |
| 13ff20 | 6e 69 6c 0a 20 20 20 22 54 68 65 20 4c 69 73 70 20 70 61 63 6b 61 67 65 20 61 73 73 6f 63 69 61 | nil...."The.Lisp.package.associa |
| 13ff40 | 74 65 64 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 54 68 69 | ted.with.the.current.buffer..Thi |
| 13ff60 | 73 20 69 73 20 73 65 74 20 6f 6e 6c 79 20 69 6e 20 62 75 66 66 65 72 73 20 62 6f 75 6e 64 20 74 | s.is.set.only.in.buffers.bound.t |
| 13ff80 | 6f 20 73 70 65 63 69 66 69 63 20 70 61 63 6b 61 67 65 73 2e 22 29 29 0a 0a 3b 3b 3b 20 60 73 6c | o.specific.packages."))..;;;.`sl |
| 13ffa0 | 69 6d 65 2d 72 65 78 27 20 69 73 20 74 68 65 20 52 50 43 20 70 72 69 6d 69 74 69 76 65 20 77 68 | ime-rex'.is.the.RPC.primitive.wh |
| 13ffc0 | 69 63 68 20 69 73 20 75 73 65 64 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 62 6f 74 68 0a 3b 3b | ich.is.used.to.implement.both.;; |
| 13ffe0 | 3b 20 60 73 6c 69 6d 65 2d 65 76 61 6c 27 20 61 6e 64 20 60 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 | ;.`slime-eval'.and.`slime-eval-a |
| 140000 | 73 79 6e 63 27 2e 20 59 6f 75 20 63 61 6e 20 75 73 65 20 69 74 20 64 69 72 65 63 74 6c 79 20 69 | sync'..You.can.use.it.directly.i |
| 140020 | 66 0a 3b 3b 3b 20 79 6f 75 20 6e 65 65 64 20 74 6f 2c 20 62 75 74 20 74 68 65 20 6f 74 68 65 72 | f.;;;.you.need.to,.but.the.other |
| 140040 | 73 20 61 72 65 20 75 73 75 61 6c 6c 79 20 6d 6f 72 65 20 63 6f 6e 76 65 6e 69 65 6e 74 2e 0a 0a | s.are.usually.more.convenient... |
| 140060 | 28 63 6c 2d 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 72 65 78 20 28 28 26 72 65 73 74 20 73 | (cl-defmacro.slime-rex.((&rest.s |
| 140080 | 61 76 65 64 2d 76 61 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | aved-vars)...................... |
| 1400a0 | 20 20 20 28 73 65 78 70 20 26 6f 70 74 69 6f 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(sexp.&optional.............. |
| 1400c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 61 67 65 20 27 28 73 6c 69 6d | .................(package.'(slim |
| 1400e0 | 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e-current-package))............. |
| 140100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 20 27 73 6c 69 6d 65 | ..................(thread.'slime |
| 140120 | 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -current-thread))............... |
| 140140 | 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 0a 20 | ..........&rest.continuations).. |
| 140160 | 20 22 28 73 6c 69 6d 65 2d 72 65 78 20 28 56 41 52 20 2e 2e 2e 29 20 28 53 45 58 50 20 26 6f 70 | ."(slime-rex.(VAR....).(SEXP.&op |
| 140180 | 74 69 6f 6e 61 6c 20 50 41 43 4b 41 47 45 20 54 48 52 45 41 44 29 20 43 4c 41 55 53 45 53 20 2e | tional.PACKAGE.THREAD).CLAUSES.. |
| 1401a0 | 2e 2e 29 0a 0a 52 65 6d 6f 74 65 20 45 58 65 63 75 74 65 20 53 45 58 50 2e 0a 0a 56 41 52 73 20 | ..)..Remote.EXecute.SEXP...VARs. |
| 1401c0 | 61 72 65 20 61 20 6c 69 73 74 20 6f 66 20 73 61 76 65 64 20 76 61 72 69 61 62 6c 65 73 20 76 69 | are.a.list.of.saved.variables.vi |
| 1401e0 | 73 69 62 6c 65 20 69 6e 20 74 68 65 20 6f 74 68 65 72 20 66 6f 72 6d 73 2e 20 20 45 61 63 68 0a | sible.in.the.other.forms...Each. |
| 140200 | 56 41 52 20 69 73 20 65 69 74 68 65 72 20 61 20 73 79 6d 62 6f 6c 20 6f 72 20 61 20 6c 69 73 74 | VAR.is.either.a.symbol.or.a.list |
| 140220 | 20 28 56 41 52 20 49 4e 49 54 2d 56 41 4c 55 45 29 2e 0a 0a 53 45 58 50 20 69 73 20 65 76 61 6c | .(VAR.INIT-VALUE)...SEXP.is.eval |
| 140240 | 75 61 74 65 64 20 61 6e 64 20 74 68 65 20 70 72 69 6e 63 65 64 20 76 65 72 73 69 6f 6e 20 69 73 | uated.and.the.princed.version.is |
| 140260 | 20 73 65 6e 74 20 74 6f 20 4c 69 73 70 2e 0a 0a 50 41 43 4b 41 47 45 20 69 73 20 65 76 61 6c 75 | .sent.to.Lisp...PACKAGE.is.evalu |
| 140280 | 61 74 65 64 20 61 6e 64 20 4c 69 73 70 20 62 69 6e 64 73 20 2a 42 55 46 46 45 52 2d 50 41 43 4b | ated.and.Lisp.binds.*BUFFER-PACK |
| 1402a0 | 41 47 45 2a 20 74 6f 20 74 68 69 73 20 70 61 63 6b 61 67 65 2e 0a 54 68 65 20 64 65 66 61 75 6c | AGE*.to.this.package..The.defaul |
| 1402c0 | 74 20 76 61 6c 75 65 20 69 73 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 | t.value.is.(slime-current-packag |
| 1402e0 | 65 29 2e 0a 0a 43 4c 41 55 53 45 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 70 61 74 74 65 72 | e)...CLAUSES.is.a.list.of.patter |
| 140300 | 6e 73 20 77 69 74 68 20 73 61 6d 65 20 73 79 6e 74 61 78 20 61 73 0a 60 73 6c 69 6d 65 2d 64 63 | ns.with.same.syntax.as.`slime-dc |
| 140320 | 61 73 65 27 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 68 65 20 65 76 61 6c 75 61 74 | ase'...The.result.of.the.evaluat |
| 140340 | 69 6f 6e 20 6f 66 20 53 45 58 50 20 69 73 0a 64 69 73 70 61 74 63 68 65 64 20 6f 6e 20 43 4c 41 | ion.of.SEXP.is.dispatched.on.CLA |
| 140360 | 55 53 45 53 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 65 69 74 68 65 72 20 61 20 73 65 | USES...The.result.is.either.a.se |
| 140380 | 78 70 20 6f 66 20 74 68 65 0a 66 6f 72 6d 20 28 3a 6f 6b 20 56 41 4c 55 45 29 20 6f 72 20 28 3a | xp.of.the.form.(:ok.VALUE).or.(: |
| 1403a0 | 61 62 6f 72 74 20 43 4f 4e 44 49 54 49 4f 4e 29 2e 20 20 43 4c 41 55 53 45 53 20 69 73 20 65 78 | abort.CONDITION)...CLAUSES.is.ex |
| 1403c0 | 65 63 75 74 65 64 0a 61 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 2e 0a 0a 4e 6f 74 65 3a 20 64 6f | ecuted.asynchronously...Note:.do |
| 1403e0 | 6e 27 74 20 75 73 65 20 62 61 63 6b 71 75 6f 74 65 20 73 79 6e 74 61 78 20 66 6f 72 20 53 45 58 | n't.use.backquote.syntax.for.SEX |
| 140400 | 50 2c 20 62 65 63 61 75 73 65 20 76 61 72 69 6f 75 73 20 45 6d 61 63 73 0a 76 65 72 73 69 6f 6e | P,.because.various.Emacs.version |
| 140420 | 73 20 63 61 6e 6e 6f 74 20 64 65 61 6c 20 77 69 74 68 20 74 68 61 74 2e 22 0a 20 20 28 64 65 63 | s.cannot.deal.with.that."...(dec |
| 140440 | 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 32 29 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 | lare.(indent.2))...(let.((result |
| 140460 | 20 28 63 6c 2d 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 2c 28 63 6c 2d 6c 6f | .(cl-gensym))).....`(let.,(cl-lo |
| 140480 | 6f 70 20 66 6f 72 20 76 61 72 20 69 6e 20 73 61 76 65 64 2d 76 61 72 73 0a 20 20 20 20 20 20 20 | op.for.var.in.saved-vars........ |
| 1404a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 63 6c 2d 65 74 79 70 65 63 61 | .............collect.(cl-etypeca |
| 1404c0 | 73 65 20 76 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | se.var.......................... |
| 1404e0 | 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 6c 69 73 74 20 76 61 72 20 76 61 72 29 29 0a 20 20 20 | .....(symbol.(list.var.var)).... |
| 140500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 | ...........................(cons |
| 140520 | 20 76 61 72 29 29 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 2d 65 | .var)))........(slime-dispatch-e |
| 140540 | 76 65 6e 74 0a 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 65 6d 61 63 73 2d 72 65 78 20 2c 73 | vent.........(list.:emacs-rex.,s |
| 140560 | 65 78 70 20 2c 70 61 63 6b 61 67 65 20 2c 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 | exp.,package.,thread............ |
| 140580 | 20 20 20 28 6c 61 6d 62 64 61 20 28 2c 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ...(lambda.(,result)............ |
| 1405a0 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 2c 72 65 73 75 6c 74 0a 20 20 20 20 20 20 | .....(slime-dcase.,result....... |
| 1405c0 | 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 29 29 29 | ............,@continuations))))) |
| 1405e0 | 29 29 0a 0a 3b 3b 3b 20 49 6e 74 65 72 66 61 63 65 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 | ))..;;;.Interface.(defun.slime-c |
| 140600 | 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 | urrent-package.()..."Return.the. |
| 140620 | 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 70 61 63 6b 61 67 65 20 69 6e 20 74 68 65 20 63 75 72 72 65 | Common.Lisp.package.in.the.curre |
| 140640 | 6e 74 20 63 6f 6e 74 65 78 74 2e 0a 49 66 20 60 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 | nt.context..If.`slime-buffer-pac |
| 140660 | 6b 61 67 65 27 20 68 61 73 20 61 20 76 61 6c 75 65 20 74 68 65 6e 20 72 65 74 75 72 6e 20 74 68 | kage'.has.a.value.then.return.th |
| 140680 | 61 74 2c 20 6f 74 68 65 72 77 69 73 65 0a 73 65 61 72 63 68 20 66 6f 72 20 61 6e 64 20 72 65 61 | at,.otherwise.search.for.and.rea |
| 1406a0 | 64 20 61 6e 20 60 69 6e 2d 70 61 63 6b 61 67 65 27 20 66 6f 72 6d 2e 22 0a 20 20 28 6f 72 20 73 | d.an.`in-package'.form."...(or.s |
| 1406c0 | 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 28 73 61 76 65 2d | lime-buffer-package.......(save- |
| 1406e0 | 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 20 20 | restriction.........(widen)..... |
| 140700 | 20 20 20 20 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 29 29 | ....(slime-find-buffer-package)) |
| 140720 | 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 62 75 66 66 65 72 2d 70 61 | ))..(defvar.slime-find-buffer-pa |
| 140740 | 63 6b 61 67 65 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 62 75 66 | ckage-function.'slime-search-buf |
| 140760 | 66 65 72 2d 70 61 63 6b 61 67 65 0a 20 20 22 2a 46 75 6e 63 74 69 6f 6e 20 74 6f 20 75 73 65 20 | fer-package..."*Function.to.use. |
| 140780 | 66 6f 72 20 60 73 6c 69 6d 65 2d 66 69 6e 64 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 27 2e | for.`slime-find-buffer-package'. |
| 1407a0 | 0a 54 68 65 20 72 65 73 75 6c 74 20 73 68 6f 75 6c 64 20 62 65 20 74 68 65 20 70 61 63 6b 61 67 | .The.result.should.be.the.packag |
| 1407c0 | 65 2d 6e 61 6d 65 20 28 61 20 73 74 72 69 6e 67 29 0a 6f 72 20 6e 69 6c 20 69 66 20 6e 6f 74 68 | e-name.(a.string).or.nil.if.noth |
| 1407e0 | 69 6e 67 20 73 75 69 74 61 62 6c 65 20 63 61 6e 20 62 65 20 66 6f 75 6e 64 2e 22 29 0a 0a 28 64 | ing.suitable.can.be.found.")..(d |
| 140800 | 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 28 | efun.slime-find-buffer-package.( |
| 140820 | 29 0a 20 20 22 46 69 67 75 72 65 20 6f 75 74 20 77 68 69 63 68 20 4c 69 73 70 20 70 61 63 6b 61 | )..."Figure.out.which.Lisp.packa |
| 140840 | 67 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 69 73 20 61 73 73 6f 63 69 61 | ge.the.current.buffer.is.associa |
| 140860 | 74 65 64 20 77 69 74 68 2e 22 0a 20 20 28 66 75 6e 63 61 6c 6c 20 73 6c 69 6d 65 2d 66 69 6e 64 | ted.with."...(funcall.slime-find |
| 140880 | 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 6d 61 6b | -buffer-package-function))..(mak |
| 1408a0 | 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 | e-variable-buffer-local..(defvar |
| 1408c0 | 20 73 6c 69 6d 65 2d 70 61 63 6b 61 67 65 2d 63 61 63 68 65 20 6e 69 6c 0a 20 20 20 22 43 6f 6e | .slime-package-cache.nil...."Con |
| 1408e0 | 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 74 | s.of.the.form.(buffer-modified-t |
| 140900 | 69 63 6b 20 2e 20 70 61 63 6b 61 67 65 29 22 29 29 0a 0a 3b 3b 20 57 68 65 6e 20 6d 6f 64 69 66 | ick...package)"))..;;.When.modif |
| 140920 | 69 6e 67 20 74 68 69 73 20 63 6f 64 65 20 63 6f 6e 73 69 64 65 72 20 63 61 73 65 73 20 6c 69 6b | ing.this.code.consider.cases.lik |
| 140940 | 65 3a 0a 3b 3b 20 20 28 69 6e 2d 70 61 63 6b 61 67 65 20 23 2e 2a 66 6f 6f 2a 29 0a 3b 3b 20 20 | e:.;;..(in-package.#.*foo*).;;.. |
| 140960 | 28 69 6e 2d 70 61 63 6b 61 67 65 20 23 3a 63 6c 29 0a 3b 3b 20 20 28 69 6e 2d 70 61 63 6b 61 67 | (in-package.#:cl).;;..(in-packag |
| 140980 | 65 20 3a 63 6c 29 0a 3b 3b 20 20 28 69 6e 2d 70 61 63 6b 61 67 65 20 22 43 4c 22 29 0a 3b 3b 20 | e.:cl).;;..(in-package."CL").;;. |
| 1409a0 | 20 28 69 6e 2d 70 61 63 6b 61 67 65 20 7c 43 4c 7c 29 0a 3b 3b 20 20 28 69 6e 2d 70 61 63 6b 61 | .(in-package.|CL|).;;..(in-packa |
| 1409c0 | 67 65 20 23 2b 61 6e 73 69 2d 63 6c 20 3a 63 6c 20 23 2d 61 6e 73 69 2d 63 6c 20 27 6c 69 73 70 | ge.#+ansi-cl.:cl.#-ansi-cl.'lisp |
| 1409e0 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 62 75 66 66 65 72 2d 70 61 | )..(defun.slime-search-buffer-pa |
| 140a00 | 63 6b 61 67 65 20 28 29 0a 20 20 28 6c 65 74 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 | ckage.()...(let.((case-fold-sear |
| 140a20 | 63 68 20 74 29 0a 20 20 20 20 20 20 20 20 28 72 65 67 65 78 70 20 28 63 6f 6e 63 61 74 20 22 5e | ch.t).........(regexp.(concat."^ |
| 140a40 | 5b 20 5c 74 5d 2a 28 5c 5c 28 63 6c 3a 5c 5c 7c 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 3a 5c 5c 29 3f | [.\t]*(\\(cl:\\|common-lisp:\\)? |
| 140a60 | 69 6e 2d 70 61 63 6b 61 67 65 5c 5c 3e 5b 20 5c 74 27 5d 2a 22 0a 20 20 20 20 20 20 20 20 20 20 | in-package\\>[.\t']*"........... |
| 140a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 5c 28 5b 5e 29 5d 2b 5c 5c 29 5b 20 5c 74 5d 2a | .............."\\([^)]+\\)[.\t]* |
| 140aa0 | 29 22 29 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 | )"))).....(save-excursion....... |
| 140ac0 | 28 77 68 65 6e 20 28 6f 72 20 28 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 72 65 | (when.(or.(re-search-backward.re |
| 140ae0 | 67 65 78 70 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 2d | gexp.nil.t).................(re- |
| 140b00 | 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 72 65 67 65 78 70 20 6e 69 6c 20 74 29 29 0a 20 20 | search-forward.regexp.nil.t))... |
| 140b20 | 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 | ......(match-string-no-propertie |
| 140b40 | 73 20 32 29 29 29 29 29 0a 0a 3b 3b 3b 20 53 79 6e 63 68 72 6f 6e 6f 75 73 20 72 65 71 75 65 73 | s.2)))))..;;;.Synchronous.reques |
| 140b60 | 74 73 20 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 6e 20 74 65 72 6d 73 20 6f 66 20 61 | ts.are.implemented.in.terms.of.a |
| 140b80 | 73 79 6e 63 68 72 6f 6e 6f 75 73 0a 3b 3b 3b 20 6f 6e 65 73 2e 20 57 65 20 6d 61 6b 65 20 61 6e | synchronous.;;;.ones..We.make.an |
| 140ba0 | 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 20 72 65 71 75 65 73 74 20 77 69 74 68 20 61 20 63 6f 6e | .asynchronous.request.with.a.con |
| 140bc0 | 74 69 6e 75 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 0a 3b 3b 3b 20 74 68 61 74 20 60 74 68 72 | tinuation.function.;;;.that.`thr |
| 140be0 | 6f 77 27 73 20 69 74 73 20 72 65 73 75 6c 74 20 75 70 20 74 6f 20 61 20 60 63 61 74 63 68 27 20 | ow's.its.result.up.to.a.`catch'. |
| 140c00 | 61 6e 64 20 74 68 65 6e 20 65 6e 74 65 72 20 61 20 6c 6f 6f 70 20 6f 66 0a 3b 3b 3b 20 68 61 6e | and.then.enter.a.loop.of.;;;.han |
| 140c20 | 64 6c 69 6e 67 20 49 2f 4f 20 75 6e 74 69 6c 20 74 68 61 74 20 68 61 70 70 65 6e 73 2e 0a 0a 28 | dling.I/O.until.that.happens...( |
| 140c40 | 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 73 74 61 63 6b 2d 65 76 61 6c 2d 74 61 67 73 20 6e 69 6c | defvar.slime-stack-eval-tags.nil |
| 140c60 | 0a 20 20 22 4c 69 73 74 20 6f 66 20 73 74 61 63 6b 2d 74 61 67 73 20 6f 66 20 63 6f 6e 74 69 6e | ..."List.of.stack-tags.of.contin |
| 140c80 | 75 61 74 69 6f 6e 73 20 77 61 69 74 69 6e 67 20 6f 6e 20 74 68 65 20 73 74 61 63 6b 2e 22 29 0a | uations.waiting.on.the.stack."). |
| 140ca0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 76 61 6c 20 28 73 65 78 70 20 26 6f 70 74 69 6f 6e | .(defun.slime-eval.(sexp.&option |
| 140cc0 | 61 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 22 45 76 61 6c 75 61 74 65 20 45 58 50 52 20 6f 6e 20 | al.package)..."Evaluate.EXPR.on. |
| 140ce0 | 74 68 65 20 73 75 70 65 72 69 6f 72 20 4c 69 73 70 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 | the.superior.Lisp.and.return.the |
| 140d00 | 20 72 65 73 75 6c 74 2e 22 0a 20 20 28 77 68 65 6e 20 28 6e 75 6c 6c 20 70 61 63 6b 61 67 65 29 | .result."...(when.(null.package) |
| 140d20 | 20 28 73 65 74 71 20 70 61 63 6b 61 67 65 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 | .(setq.package.(slime-current-pa |
| 140d40 | 63 6b 61 67 65 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 61 67 20 28 63 6c 2d 67 65 6e 73 79 | ckage)))...(let*.((tag.(cl-gensy |
| 140d60 | 6d 20 28 66 6f 72 6d 61 74 20 22 73 6c 69 6d 65 2d 72 65 73 75 6c 74 2d 25 64 2d 22 0a 20 20 20 | m.(format."slime-result-%d-".... |
| 140d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 | ..............................(1 |
| 140da0 | 2b 20 28 73 6c 69 6d 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 63 6f 75 6e 74 65 72 29 29 29 | +.(slime-continuation-counter))) |
| 140dc0 | 29 29 0a 09 20 28 73 6c 69 6d 65 2d 73 74 61 63 6b 2d 65 76 61 6c 2d 74 61 67 73 20 28 63 6f 6e | ))...(slime-stack-eval-tags.(con |
| 140de0 | 73 20 74 61 67 20 73 6c 69 6d 65 2d 73 74 61 63 6b 2d 65 76 61 6c 2d 74 61 67 73 29 29 29 0a 20 | s.tag.slime-stack-eval-tags))).. |
| 140e00 | 20 20 20 28 61 70 70 6c 79 0a 20 20 20 20 20 23 27 66 75 6e 63 61 6c 6c 0a 20 20 20 20 20 28 63 | ...(apply......#'funcall......(c |
| 140e20 | 61 74 63 68 20 74 61 67 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 78 20 28 74 61 67 20 | atch.tag........(slime-rex.(tag. |
| 140e40 | 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 78 70 20 70 61 63 6b 61 67 65 29 0a | sexp)............(sexp.package). |
| 140e60 | 20 20 20 20 20 20 20 20 20 28 28 3a 6f 6b 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 | .........((:ok.value)........... |
| 140e80 | 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 74 61 67 20 73 6c 69 6d 65 2d 73 74 61 63 6b 2d | (unless.(member.tag.slime-stack- |
| 140ea0 | 65 76 61 6c 2d 74 61 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 52 | eval-tags).............(error."R |
| 140ec0 | 65 70 6c 79 20 74 6f 20 63 61 6e 63 65 6c 65 64 20 73 79 6e 63 68 72 6f 6e 6f 75 73 20 65 76 61 | eply.to.canceled.synchronous.eva |
| 140ee0 | 6c 20 72 65 71 75 65 73 74 20 74 61 67 3d 25 53 20 73 65 78 70 3d 25 53 22 0a 20 20 20 20 20 20 | l.request.tag=%S.sexp=%S"....... |
| 140f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 67 20 73 65 78 70 29 29 0a 20 20 20 20 20 20 20 20 | .............tag.sexp))......... |
| 140f20 | 20 20 28 74 68 72 6f 77 20 74 61 67 20 28 6c 69 73 74 20 23 27 69 64 65 6e 74 69 74 79 20 76 61 | ..(throw.tag.(list.#'identity.va |
| 140f40 | 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 28 3a 61 62 6f 72 74 20 5f 63 6f 6e 64 69 74 | lue)))..........((:abort._condit |
| 140f60 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 74 61 67 20 28 6c 69 73 74 20 | ion)...........(throw.tag.(list. |
| 140f80 | 23 27 65 72 72 6f 72 20 22 53 79 6e 63 68 72 6f 6e 6f 75 73 20 4c 69 73 70 20 45 76 61 6c 75 61 | #'error."Synchronous.Lisp.Evalua |
| 140fa0 | 74 69 6f 6e 20 61 62 6f 72 74 65 64 22 29 29 29 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | tion.aborted"))))........(let.(( |
| 140fc0 | 64 65 62 75 67 2d 6f 6e 2d 71 75 69 74 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | debug-on-quit.t)..............(i |
| 140fe0 | 6e 68 69 62 69 74 2d 71 75 69 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | nhibit-quit.nil)..............(c |
| 141000 | 6f 6e 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 | onn.(slime-connection)))........ |
| 141020 | 20 20 28 77 68 69 6c 65 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 | ..(while.t............(unless.(e |
| 141040 | 71 20 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 63 6f 6e 6e 29 20 27 6f 70 65 6e 29 0a 20 | q.(process-status.conn).'open).. |
| 141060 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4c 69 73 70 20 63 6f 6e 6e 65 63 74 | ............(error."Lisp.connect |
| 141080 | 69 6f 6e 20 63 6c 6f 73 65 64 20 75 6e 65 78 70 65 63 74 65 64 6c 79 22 29 29 0a 20 20 20 20 20 | ion.closed.unexpectedly"))...... |
| 1410a0 | 20 20 20 20 20 20 28 61 63 63 65 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20 6e 69 6c | ......(accept-process-output.nil |
| 1410c0 | 20 30 2e 30 31 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 76 61 6c 2d | .0.01)))))))..(defun.slime-eval- |
| 1410e0 | 61 73 79 6e 63 20 28 73 65 78 70 20 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6e 74 20 70 61 63 6b 61 | async.(sexp.&optional.cont.packa |
| 141100 | 67 65 29 0a 20 20 22 45 76 61 6c 75 61 74 65 20 45 58 50 52 20 6f 6e 20 74 68 65 20 73 75 70 65 | ge)..."Evaluate.EXPR.on.the.supe |
| 141120 | 72 69 6f 72 20 4c 69 73 70 20 61 6e 64 20 63 61 6c 6c 20 43 4f 4e 54 20 77 69 74 68 20 74 68 65 | rior.Lisp.and.call.CONT.with.the |
| 141140 | 20 72 65 73 75 6c 74 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 29 | .result."...(declare.(indent.1)) |
| 141160 | 0a 20 20 28 73 6c 69 6d 65 2d 72 65 78 20 28 63 6f 6e 74 20 28 62 75 66 66 65 72 20 28 63 75 72 | ...(slime-rex.(cont.(buffer.(cur |
| 141180 | 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 28 73 65 78 70 20 28 6f 72 20 70 | rent-buffer))).......(sexp.(or.p |
| 1411a0 | 61 63 6b 61 67 65 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 | ackage.(slime-current-package))) |
| 1411c0 | 0a 20 20 20 20 28 28 3a 6f 6b 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 28 77 68 65 6e 20 63 6f | .....((:ok.result)......(when.co |
| 1411e0 | 6e 74 0a 20 20 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 0a 20 20 | nt........(set-buffer.buffer)... |
| 141200 | 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6e 74 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 | .....(funcall.cont.result))).... |
| 141220 | 20 28 28 3a 61 62 6f 72 74 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 28 6d 65 73 73 61 | .((:abort.condition)......(messa |
| 141240 | 67 65 20 22 45 76 61 6c 75 61 74 69 6f 6e 20 61 62 6f 72 74 65 64 20 6f 6e 20 25 73 2e 22 20 63 | ge."Evaluation.aborted.on.%s.".c |
| 141260 | 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 3b 3b 20 47 75 61 72 64 20 61 67 61 69 6e 73 74 20 61 | ondition)))...;;.Guard.against.a |
| 141280 | 72 62 69 74 72 61 72 79 20 72 65 74 75 72 6e 20 76 61 6c 75 65 73 20 77 68 69 63 68 20 6f 6e 63 | rbitrary.return.values.which.onc |
| 1412a0 | 65 20 75 70 6f 6e 20 61 20 74 69 6d 65 0a 20 20 3b 3b 20 73 68 6f 77 65 64 20 75 70 20 69 6e 20 | e.upon.a.time...;;.showed.up.in. |
| 1412c0 | 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 73 70 75 72 69 6f 75 73 6c 79 20 28 64 75 65 20 74 | the.minibuffer.spuriously.(due.t |
| 1412e0 | 6f 20 61 20 62 75 67 20 69 6e 0a 20 20 3b 3b 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2e 29 20 | o.a.bug.in...;;.slime-autodoc.). |
| 141300 | 20 49 66 20 74 68 69 73 20 65 76 65 72 20 68 61 70 70 65 6e 73 20 61 67 61 69 6e 2c 20 72 65 74 | .If.this.ever.happens.again,.ret |
| 141320 | 75 72 6e 69 6e 67 20 74 68 65 0a 20 20 3b 3b 20 66 6f 6c 6c 6f 77 69 6e 67 20 77 69 6c 6c 20 6d | urning.the...;;.following.will.m |
| 141340 | 61 6b 65 20 64 65 62 75 67 67 69 6e 67 20 6d 75 63 68 20 65 61 73 69 65 72 3a 0a 20 20 3a 73 6c | ake.debugging.much.easier:...:sl |
| 141360 | 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 29 0a 0a 3b 3b 3b 20 54 68 65 73 65 20 66 75 6e 63 74 | ime-eval-async)..;;;.These.funct |
| 141380 | 69 6f 6e 73 20 63 61 6e 20 62 65 20 68 61 6e 64 79 20 74 6f 6f 3a 0a 0a 28 64 65 66 75 6e 20 73 | ions.can.be.handy.too:..(defun.s |
| 1413a0 | 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 72 | lime-connected-p.()..."Return.tr |
| 1413c0 | 75 65 20 69 66 20 74 68 65 20 53 77 61 6e 6b 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 6f 70 | ue.if.the.Swank.connection.is.op |
| 1413e0 | 65 6e 2e 22 0a 20 20 28 6e 6f 74 20 28 6e 75 6c 6c 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 | en."...(not.(null.slime-net-proc |
| 141400 | 65 73 73 65 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 63 6f 6e | esses)))..(defun.slime-check-con |
| 141420 | 6e 65 63 74 65 64 20 28 29 0a 20 20 22 53 69 67 6e 61 6c 20 61 6e 20 65 72 72 6f 72 20 69 66 20 | nected.()..."Signal.an.error.if. |
| 141440 | 77 65 20 61 72 65 20 6e 6f 74 20 63 6f 6e 6e 65 63 74 65 64 20 74 6f 20 4c 69 73 70 2e 22 0a 20 | we.are.not.connected.to.Lisp.".. |
| 141460 | 20 28 75 6e 6c 65 73 73 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 0a 20 20 20 | .(unless.(slime-connected-p).... |
| 141480 | 20 28 65 72 72 6f 72 20 22 4e 6f 74 20 63 6f 6e 6e 65 63 74 65 64 2e 20 55 73 65 20 60 25 73 27 | .(error."Not.connected..Use.`%s' |
| 1414a0 | 20 74 6f 20 73 74 61 72 74 20 61 20 4c 69 73 70 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 | .to.start.a.Lisp."............(s |
| 1414c0 | 75 62 73 74 69 74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 22 5c 5c 5b 73 6c 69 6d 65 | ubstitute-command-keys."\\[slime |
| 1414e0 | 5d 22 29 29 29 29 0a 0a 3b 3b 20 55 4e 55 53 45 44 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 | ]"))))..;;.UNUSED.(defun.slime-d |
| 141500 | 65 62 75 67 67 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 20 28 63 6f 6e 6e 29 0a 20 20 3b 3b | ebugged-connection-p.(conn)...;; |
| 141520 | 20 54 68 69 73 20 70 72 65 76 69 6f 75 73 6c 79 20 77 61 73 20 28 41 4e 44 20 28 53 4c 44 42 2d | .This.previously.was.(AND.(SLDB- |
| 141540 | 44 45 42 55 47 47 45 44 2d 43 4f 4e 54 49 4e 55 41 54 49 4f 4e 53 20 43 4f 4e 4e 29 20 54 29 2c | DEBUGGED-CONTINUATIONS.CONN).T), |
| 141560 | 0a 20 20 3b 3b 20 62 75 74 20 61 6e 20 53 4c 44 42 20 62 75 66 66 65 72 20 6d 61 79 20 65 78 69 | ...;;.but.an.SLDB.buffer.may.exi |
| 141580 | 73 74 20 77 69 74 68 6f 75 74 20 68 61 76 69 6e 67 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 0a | st.without.having.continuations. |
| 1415a0 | 20 20 3b 3b 20 61 74 74 61 63 68 65 64 20 74 6f 20 69 74 2c 20 65 2e 67 2e 20 74 68 65 20 6f 6e | ..;;.attached.to.it,.e.g..the.on |
| 1415c0 | 65 20 72 65 73 75 6c 74 69 6e 67 20 66 72 6f 6d 20 60 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 | e.resulting.from.`slime-interrup |
| 1415e0 | 74 27 2e 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 62 20 69 6e 20 28 73 6c 64 62 2d 62 75 | t'....(cl-loop.for.b.in.(sldb-bu |
| 141600 | 66 66 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 74 68 65 72 65 69 73 20 28 77 69 74 68 2d | ffers)............thereis.(with- |
| 141620 | 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | current-buffer.b................ |
| 141640 | 20 20 20 20 20 20 28 65 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f | ......(eq.slime-buffer-connectio |
| 141660 | 6e 20 63 6f 6e 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 75 73 79 2d 70 20 | n.conn))))..(defun.slime-busy-p. |
| 141680 | 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6e 6e 29 0a 20 20 22 54 72 75 65 20 69 66 20 4c 69 73 70 | (&optional.conn)..."True.if.Lisp |
| 1416a0 | 20 68 61 73 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 72 65 71 75 65 73 74 73 2e 0a 44 65 62 75 67 | .has.outstanding.requests..Debug |
| 1416c0 | 67 65 64 20 72 65 71 75 65 73 74 73 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 22 0a 20 20 28 6c 65 | ged.requests.are.ignored."...(le |
| 1416e0 | 74 20 28 28 64 65 62 75 67 67 65 64 20 28 73 6c 64 62 2d 64 65 62 75 67 67 65 64 2d 63 6f 6e 74 | t.((debugged.(sldb-debugged-cont |
| 141700 | 69 6e 75 61 74 69 6f 6e 73 20 28 6f 72 20 63 6f 6e 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 | inuations.(or.conn.(slime-connec |
| 141720 | 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 28 6c 61 6d | tion))))).....(cl-remove-if.(lam |
| 141740 | 62 64 61 20 28 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 | bda.(id).....................(me |
| 141760 | 6d 71 20 69 64 20 64 65 62 75 67 67 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mq.id.debugged))................ |
| 141780 | 20 20 20 28 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 0a 20 20 20 | ...(slime-rex-continuations).... |
| 1417a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 63 61 72 29 29 29 0a 0a 28 64 | ...............:key.#'car)))..(d |
| 1417c0 | 65 66 75 6e 20 73 6c 69 6d 65 2d 73 79 6e 63 20 28 29 0a 20 20 22 42 6c 6f 63 6b 20 75 6e 74 69 | efun.slime-sync.()..."Block.unti |
| 1417e0 | 6c 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 72 65 71 75 65 73 74 20 68 61 73 20 66 69 | l.the.most.recent.request.has.fi |
| 141800 | 6e 69 73 68 65 64 2e 22 0a 20 20 28 77 68 65 6e 20 28 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e 74 | nished."...(when.(slime-rex-cont |
| 141820 | 69 6e 75 61 74 69 6f 6e 73 29 0a 20 20 20 20 28 6c 65 74 20 28 28 74 61 67 20 28 63 61 61 72 20 | inuations).....(let.((tag.(caar. |
| 141840 | 28 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 29 29 0a 20 20 20 | (slime-rex-continuations)))).... |
| 141860 | 20 20 20 28 77 68 69 6c 65 20 28 63 6c 2d 66 69 6e 64 20 74 61 67 20 28 73 6c 69 6d 65 2d 72 65 | ...(while.(cl-find.tag.(slime-re |
| 141880 | 78 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 20 3a 6b 65 79 20 23 27 63 61 72 29 0a 20 20 20 | x-continuations).:key.#'car).... |
| 1418a0 | 20 20 20 20 20 28 61 63 63 65 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20 6e 69 6c 20 | .....(accept-process-output.nil. |
| 1418c0 | 30 2e 31 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 69 6e 67 20 28 29 0a 20 | 0.1)))))..(defun.slime-ping.().. |
| 1418e0 | 20 22 43 68 65 63 6b 20 74 68 61 74 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 77 6f 72 6b 73 | ."Check.that.communication.works |
| 141900 | 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6d 65 73 73 61 67 65 20 22 25 | ."...(interactive)...(message."% |
| 141920 | 73 22 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 22 50 4f 4e 47 22 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 | s".(slime-eval."PONG")))..;;;;;. |
| 141940 | 50 72 6f 74 6f 63 6f 6c 20 65 76 65 6e 74 20 68 61 6e 64 6c 65 72 20 28 63 6c 2d 74 68 65 20 67 | Protocol.event.handler.(cl-the.g |
| 141960 | 75 74 73 29 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 69 73 20 74 68 65 20 70 72 6f 74 6f 63 6f | uts).;;;.;;;.This.is.the.protoco |
| 141980 | 6c 20 69 6e 20 61 6c 6c 20 69 74 73 20 67 6c 6f 72 79 2e 20 54 68 65 20 69 6e 70 75 74 20 74 6f | l.in.all.its.glory..The.input.to |
| 1419a0 | 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 0a 3b 3b 3b 20 69 73 20 61 20 70 72 6f 74 6f 63 6f 6c | .this.function.;;;.is.a.protocol |
| 1419c0 | 20 65 76 65 6e 74 20 74 68 61 74 20 65 69 74 68 65 72 20 6f 72 69 67 69 6e 61 74 65 73 20 77 69 | .event.that.either.originates.wi |
| 1419e0 | 74 68 69 6e 20 45 6d 61 63 73 20 6f 72 20 61 72 72 69 76 65 64 0a 3b 3b 3b 20 6f 76 65 72 20 74 | thin.Emacs.or.arrived.;;;.over.t |
| 141a00 | 68 65 20 6e 65 74 77 6f 72 6b 20 66 72 6f 6d 20 4c 69 73 70 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 45 61 | he.network.from.Lisp..;;;.;;;.Ea |
| 141a20 | 63 68 20 65 76 65 6e 74 20 69 73 20 61 20 6c 69 73 74 20 62 65 67 69 6e 6e 69 6e 67 20 77 69 74 | ch.event.is.a.list.beginning.wit |
| 141a40 | 68 20 61 20 6b 65 79 77 6f 72 64 20 61 6e 64 20 66 6f 6c 6c 6f 77 65 64 20 62 79 0a 3b 3b 3b 20 | h.a.keyword.and.followed.by.;;;. |
| 141a60 | 61 72 67 75 6d 65 6e 74 73 2e 20 54 68 65 20 6b 65 79 77 6f 72 64 20 69 64 65 6e 74 69 66 69 65 | arguments..The.keyword.identifie |
| 141a80 | 73 20 74 68 65 20 74 79 70 65 20 6f 66 20 65 76 65 6e 74 2e 20 45 76 65 6e 74 73 0a 3b 3b 3b 20 | s.the.type.of.event..Events.;;;. |
| 141aa0 | 6f 72 69 67 69 6e 61 74 69 6e 67 20 66 72 6f 6d 20 45 6d 61 63 73 20 68 61 76 65 20 6e 61 6d 65 | originating.from.Emacs.have.name |
| 141ac0 | 73 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 3a 65 6d 61 63 73 2d 20 61 6e 64 20 65 76 65 6e | s.starting.with.:emacs-.and.even |
| 141ae0 | 74 73 0a 3b 3b 3b 20 66 72 6f 6d 20 4c 69 73 70 20 64 6f 6e 27 74 2e 0a 0a 28 73 6c 69 6d 65 2d | ts.;;;.from.Lisp.don't...(slime- |
| 141b00 | 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e | def-connection-var.slime-rex-con |
| 141b20 | 74 69 6e 75 61 74 69 6f 6e 73 20 27 28 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 28 49 44 20 2e 20 | tinuations.'()..."List.of.(ID... |
| 141b40 | 46 55 4e 43 54 49 4f 4e 29 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 77 61 69 74 69 6e 67 20 | FUNCTION).continuations.waiting. |
| 141b60 | 66 6f 72 20 52 50 43 20 72 65 73 75 6c 74 73 2e 22 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 2d 63 | for.RPC.results.")..(slime-def-c |
| 141b80 | 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e | onnection-var.slime-continuation |
| 141ba0 | 2d 63 6f 75 6e 74 65 72 20 30 0a 20 20 22 43 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 73 65 72 69 61 | -counter.0..."Continuation.seria |
| 141bc0 | 6c 20 6e 75 6d 62 65 72 20 63 6f 75 6e 74 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 | l.number.counter.")..(defvar.sli |
| 141be0 | 6d 65 2d 65 76 65 6e 74 2d 68 6f 6f 6b 73 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 69 | me-event-hooks)..(defun.slime-di |
| 141c00 | 73 70 61 74 63 68 2d 65 76 65 6e 74 20 28 65 76 65 6e 74 20 26 6f 70 74 69 6f 6e 61 6c 20 70 72 | spatch-event.(event.&optional.pr |
| 141c20 | 6f 63 65 73 73 29 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e | ocess)...(let.((slime-dispatchin |
| 141c40 | 67 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 6f 72 20 70 72 6f 63 65 73 73 20 28 73 6c 69 6d 65 2d | g-connection.(or.process.(slime- |
| 141c60 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b | connection)))).....(or.(run-hook |
| 141c80 | 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 73 6c 69 6d 65 2d | -with-args-until-success.'slime- |
| 141ca0 | 65 76 65 6e 74 2d 68 6f 6f 6b 73 20 65 76 65 6e 74 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d | event-hooks.event).........(slim |
| 141cc0 | 65 2d 64 63 61 73 65 20 65 76 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 65 6d 61 63 73 | e-dcase.event...........((:emacs |
| 141ce0 | 2d 72 65 78 20 66 6f 72 6d 20 70 61 63 6b 61 67 65 20 74 68 72 65 61 64 20 63 6f 6e 74 69 6e 75 | -rex.form.package.thread.continu |
| 141d00 | 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 6c | ation)............(when.(and.(sl |
| 141d20 | 69 6d 65 2d 75 73 65 2d 73 69 67 69 6e 74 2d 66 6f 72 2d 69 6e 74 65 72 72 75 70 74 29 20 28 73 | ime-use-sigint-for-interrupt).(s |
| 141d40 | 6c 69 6d 65 2d 62 75 73 79 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | lime-busy-p))..............(slim |
| 141d60 | 65 2d 64 69 73 70 6c 61 79 2d 6f 6e 65 6c 69 6e 65 72 20 22 3b 20 70 69 70 65 6c 69 6e 65 64 20 | e-display-oneliner.";.pipelined. |
| 141d80 | 72 65 71 75 65 73 74 2e 2e 2e 20 25 53 22 20 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 | request....%S".form))........... |
| 141da0 | 20 28 6c 65 74 20 28 28 69 64 20 28 63 6c 2d 69 6e 63 66 20 28 73 6c 69 6d 65 2d 63 6f 6e 74 69 | .(let.((id.(cl-incf.(slime-conti |
| 141dc0 | 6e 75 61 74 69 6f 6e 2d 63 6f 75 6e 74 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nuation-counter))))............. |
| 141de0 | 20 28 73 6c 69 6d 65 2d 73 65 6e 64 20 60 28 3a 65 6d 61 63 73 2d 72 65 78 20 2c 66 6f 72 6d 20 | .(slime-send.`(:emacs-rex.,form. |
| 141e00 | 2c 70 61 63 6b 61 67 65 20 2c 74 68 72 65 61 64 20 2c 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 | ,package.,thread.,id)).......... |
| 141e20 | 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 69 64 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 | ....(push.(cons.id.continuation) |
| 141e40 | 20 28 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 0a 20 20 20 20 | .(slime-rex-continuations))..... |
| 141e60 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 2d 72 65 63 6f 6d 70 75 74 65 2d 6d 6f 64 65 6c | .........(slime--recompute-model |
| 141e80 | 69 6e 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 72 65 74 75 72 6e 20 76 61 6c 75 | ines)))...........((:return.valu |
| 141ea0 | 65 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 63 20 28 61 73 73 | e.id)............(let.((rec.(ass |
| 141ec0 | 71 20 69 64 20 28 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 29 | q.id.(slime-rex-continuations))) |
| 141ee0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 72 65 63 20 28 73 65 74 66 20 | )..............(cond.(rec.(setf. |
| 141f00 | 28 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 | (slime-rex-continuations)....... |
| 141f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 | ........................(remove. |
| 141f40 | 72 65 63 20 28 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 29 0a | rec.(slime-rex-continuations))). |
| 141f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 2d | ........................(slime-- |
| 141f80 | 72 65 63 6f 6d 70 75 74 65 2d 6d 6f 64 65 6c 69 6e 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | recompute-modelines)............ |
| 141fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 63 64 72 20 72 65 63 29 20 | .............(funcall.(cdr.rec). |
| 141fc0 | 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 | value))....................(t... |
| 141fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 65 78 70 65 | ..................(error."Unexpe |
| 142000 | 63 74 65 64 20 72 65 70 6c 79 3a 20 25 53 20 25 53 22 20 69 64 20 76 61 6c 75 65 29 29 29 29 29 | cted.reply:.%S.%S".id.value))))) |
| 142020 | 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 62 75 67 2d 61 63 74 69 76 61 74 65 20 74 68 72 | ...........((:debug-activate.thr |
| 142040 | 65 61 64 20 6c 65 76 65 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 73 65 6c 65 63 74 29 0a 20 20 20 20 | ead.level.&optional.select)..... |
| 142060 | 20 20 20 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 | .......(cl-assert.thread)....... |
| 142080 | 20 20 20 20 20 28 73 6c 64 62 2d 61 63 74 69 76 61 74 65 20 74 68 72 65 61 64 20 6c 65 76 65 6c | .....(sldb-activate.thread.level |
| 1420a0 | 20 73 65 6c 65 63 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 62 75 67 20 74 68 72 | .select))...........((:debug.thr |
| 1420c0 | 65 61 64 20 6c 65 76 65 6c 20 63 6f 6e 64 69 74 69 6f 6e 20 72 65 73 74 61 72 74 73 20 66 72 61 | ead.level.condition.restarts.fra |
| 1420e0 | 6d 65 73 20 63 6f 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 | mes.conts)............(cl-assert |
| 142100 | 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 73 65 74 75 70 20 | .thread)............(sldb-setup. |
| 142120 | 74 68 72 65 61 64 20 6c 65 76 65 6c 20 63 6f 6e 64 69 74 69 6f 6e 20 72 65 73 74 61 72 74 73 20 | thread.level.condition.restarts. |
| 142140 | 66 72 61 6d 65 73 20 63 6f 6e 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 62 75 | frames.conts))...........((:debu |
| 142160 | 67 2d 72 65 74 75 72 6e 20 74 68 72 65 61 64 20 6c 65 76 65 6c 20 73 74 65 70 70 69 6e 67 29 0a | g-return.thread.level.stepping). |
| 142180 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 74 68 72 65 61 64 29 0a 20 20 | ...........(cl-assert.thread)... |
| 1421a0 | 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 65 78 69 74 20 74 68 72 65 61 64 20 6c 65 76 65 6c | .........(sldb-exit.thread.level |
| 1421c0 | 20 73 74 65 70 70 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 65 6d 61 63 73 2d 69 | .stepping))...........((:emacs-i |
| 1421e0 | 6e 74 65 72 72 75 70 74 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | nterrupt.thread)............(sli |
| 142200 | 6d 65 2d 73 65 6e 64 20 60 28 3a 65 6d 61 63 73 2d 69 6e 74 65 72 72 75 70 74 20 2c 74 68 72 65 | me-send.`(:emacs-interrupt.,thre |
| 142220 | 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 63 68 61 6e 6e 65 6c 2d 73 65 6e 64 20 | ad)))...........((:channel-send. |
| 142240 | 69 64 20 6d 73 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 | id.msg)............(slime-channe |
| 142260 | 6c 2d 73 65 6e 64 20 28 6f 72 20 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 63 68 61 6e 6e 65 6c 20 69 | l-send.(or.(slime-find-channel.i |
| 142280 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d).............................. |
| 1422a0 | 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 63 68 61 6e 6e 65 6c 20 69 64 | ......(error."Invalid.channel.id |
| 1422c0 | 3a 20 25 53 20 25 53 22 20 69 64 20 6d 73 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :.%S.%S".id.msg))............... |
| 1422e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 73 67 29 29 0a 20 20 20 20 20 20 20 20 20 | .................msg)).......... |
| 142300 | 20 28 28 3a 65 6d 61 63 73 2d 63 68 61 6e 6e 65 6c 2d 73 65 6e 64 20 69 64 20 6d 73 67 29 0a 20 | .((:emacs-channel-send.id.msg).. |
| 142320 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 6e 64 20 60 28 3a 65 6d 61 63 73 2d 63 | ..........(slime-send.`(:emacs-c |
| 142340 | 68 61 6e 6e 65 6c 2d 73 65 6e 64 20 2c 69 64 20 2c 6d 73 67 29 29 29 0a 20 20 20 20 20 20 20 20 | hannel-send.,id.,msg)))......... |
| 142360 | 20 20 28 28 3a 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 74 68 72 65 61 64 | ..((:read-from-minibuffer.thread |
| 142380 | 20 74 61 67 20 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 | .tag.prompt.initial-value)...... |
| 1423a0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 | ......(slime-read-from-minibuffe |
| 1423c0 | 72 2d 66 6f 72 2d 73 77 61 6e 6b 20 74 68 72 65 61 64 20 74 61 67 20 70 72 6f 6d 70 74 0a 20 20 | r-for-swank.thread.tag.prompt... |
| 1423e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 142400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 29 29 0a 20 | ...............initial-value)).. |
| 142420 | 20 20 20 20 20 20 20 20 20 28 28 3a 79 2d 6f 72 2d 6e 2d 70 20 74 68 72 65 61 64 20 74 61 67 20 | .........((:y-or-n-p.thread.tag. |
| 142440 | 71 75 65 73 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 79 2d 6f 72 | question)............(slime-y-or |
| 142460 | 2d 6e 2d 70 20 74 68 72 65 61 64 20 74 61 67 20 71 75 65 73 74 69 6f 6e 29 29 0a 20 20 20 20 20 | -n-p.thread.tag.question))...... |
| 142480 | 20 20 20 20 20 28 28 3a 65 6d 61 63 73 2d 72 65 74 75 72 6e 2d 73 74 72 69 6e 67 20 74 68 72 65 | .....((:emacs-return-string.thre |
| 1424a0 | 61 64 20 74 61 67 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | ad.tag.string)............(slime |
| 1424c0 | 2d 73 65 6e 64 20 60 28 3a 65 6d 61 63 73 2d 72 65 74 75 72 6e 2d 73 74 72 69 6e 67 20 2c 74 68 | -send.`(:emacs-return-string.,th |
| 1424e0 | 72 65 61 64 20 2c 74 61 67 20 2c 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | read.,tag.,string)))...........( |
| 142500 | 28 3a 6e 65 77 2d 66 65 61 74 75 72 65 73 20 66 65 61 74 75 72 65 73 29 0a 20 20 20 20 20 20 20 | (:new-features.features)........ |
| 142520 | 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 66 65 61 74 75 72 65 73 29 20 | ....(setf.(slime-lisp-features). |
| 142540 | 66 65 61 74 75 72 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 69 6e 64 65 6e 74 61 74 | features))...........((:indentat |
| 142560 | 69 6f 6e 2d 75 70 64 61 74 65 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | ion-update.info)............(sli |
| 142580 | 6d 65 2d 68 61 6e 64 6c 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 65 20 69 6e 66 | me-handle-indentation-update.inf |
| 1425a0 | 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 65 76 61 6c 2d 6e 6f 2d 77 61 69 74 20 66 6f | o))...........((:eval-no-wait.fo |
| 1425c0 | 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 65 76 61 6c | rm)............(slime-check-eval |
| 1425e0 | 2d 69 6e 2d 65 6d 61 63 73 2d 65 6e 61 62 6c 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 | -in-emacs-enabled)............(e |
| 142600 | 76 61 6c 20 28 72 65 61 64 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 65 | val.(read.form)))...........((:e |
| 142620 | 76 61 6c 20 74 68 72 65 61 64 20 74 61 67 20 66 6f 72 6d 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 | val.thread.tag.form-string)..... |
| 142640 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 65 76 61 6c 2d 69 6e 2d 65 6d 61 63 | .......(slime-check-eval-in-emac |
| 142660 | 73 2d 65 6e 61 62 6c 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 | s-enabled)............(slime-eva |
| 142680 | 6c 2d 66 6f 72 2d 6c 69 73 70 20 74 68 72 65 61 64 20 74 61 67 20 66 6f 72 6d 2d 73 74 72 69 6e | l-for-lisp.thread.tag.form-strin |
| 1426a0 | 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 65 64 2d 72 70 63 2d 6e 6f 2d 77 61 69 74 20 | g))...........((:ed-rpc-no-wait. |
| 1426c0 | 66 6e 2d 6e 61 6d 65 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | fn-name.&rest.args)............( |
| 1426e0 | 6c 65 74 20 28 28 66 6e 20 28 69 6e 74 65 72 6e 2d 73 6f 66 74 20 66 6e 2d 6e 61 6d 65 29 29 29 | let.((fn.(intern-soft.fn-name))) |
| 142700 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 72 70 63 2d 61 | ..............(slime-check-rpc-a |
| 142720 | 6c 6c 6f 77 65 64 20 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 66 | llowed.fn)..............(apply.f |
| 142740 | 6e 20 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 65 64 2d 72 70 63 20 74 68 | n.args)))...........((:ed-rpc.th |
| 142760 | 72 65 61 64 20 74 61 67 20 66 6e 2d 6e 61 6d 65 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 | read.tag.fn-name.&rest.args).... |
| 142780 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 70 63 2d 66 72 6f 6d 2d 6c 69 73 70 20 74 68 72 | ........(slime-rpc-from-lisp.thr |
| 1427a0 | 65 61 64 20 74 61 67 20 28 69 6e 74 65 72 6e 2d 73 6f 66 74 20 66 6e 2d 6e 61 6d 65 29 20 61 72 | ead.tag.(intern-soft.fn-name).ar |
| 1427c0 | 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 65 6d 61 63 73 2d 72 65 74 75 72 6e 20 74 | gs))...........((:emacs-return.t |
| 1427e0 | 68 72 65 61 64 20 74 61 67 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | hread.tag.value)............(sli |
| 142800 | 6d 65 2d 73 65 6e 64 20 60 28 3a 65 6d 61 63 73 2d 72 65 74 75 72 6e 20 2c 74 68 72 65 61 64 20 | me-send.`(:emacs-return.,thread. |
| 142820 | 2c 74 61 67 20 2c 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 65 64 20 77 | ,tag.,value)))...........((:ed.w |
| 142840 | 68 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 64 20 77 68 61 74 29 29 | hat)............(slime-ed.what)) |
| 142860 | 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 69 6e 73 70 65 63 74 20 77 68 61 74 20 74 68 72 65 61 | ...........((:inspect.what.threa |
| 142880 | 64 20 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 68 6f 6f 6b 20 28 77 | d.tag)............(let.((hook.(w |
| 1428a0 | 68 65 6e 20 28 61 6e 64 20 74 68 72 65 61 64 20 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 | hen.(and.thread.tag)............ |
| 1428c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 75 72 72 79 20 23 27 73 6c 69 | ..............(slime-curry.#'sli |
| 1428e0 | 6d 65 2d 73 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me-send......................... |
| 142900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 6d 61 63 73 2d 72 65 74 75 72 6e 20 2c 74 | ..............`(:emacs-return.,t |
| 142920 | 68 72 65 61 64 20 2c 74 61 67 20 6e 69 6c 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | hread.,tag.nil)))))............. |
| 142940 | 20 28 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 20 77 68 61 74 20 6e 69 6c 20 | .(slime-open-inspector.what.nil. |
| 142960 | 68 6f 6f 6b 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 62 61 63 6b 67 72 6f 75 6e 64 2d | hook)))...........((:background- |
| 142980 | 6d 65 73 73 61 67 65 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | message.message)............(sli |
| 1429a0 | 6d 65 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 73 73 61 67 65 20 22 25 73 22 20 6d 65 73 73 61 | me-background-message."%s".messa |
| 1429c0 | 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 62 75 67 2d 63 6f 6e 64 69 74 69 6f | ge))...........((:debug-conditio |
| 1429e0 | 6e 20 74 68 72 65 61 64 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6c | n.thread.message)............(cl |
| 142a00 | 2d 61 73 73 65 72 74 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 | -assert.thread)............(mess |
| 142a20 | 61 67 65 20 22 25 73 22 20 6d 65 73 73 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a | age."%s".message))...........((: |
| 142a40 | 70 69 6e 67 20 74 68 72 65 61 64 20 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | ping.thread.tag)............(sli |
| 142a60 | 6d 65 2d 73 65 6e 64 20 60 28 3a 65 6d 61 63 73 2d 70 6f 6e 67 20 2c 74 68 72 65 61 64 20 2c 74 | me-send.`(:emacs-pong.,thread.,t |
| 142a80 | 61 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 72 65 61 64 65 72 2d 65 72 72 6f 72 20 | ag)))...........((:reader-error. |
| 142aa0 | 70 61 63 6b 65 74 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | packet.condition)............(sl |
| 142ac0 | 69 6d 65 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 28 73 6c 69 6d 65 2d 62 75 | ime-with-popup-buffer.((slime-bu |
| 142ae0 | 66 66 65 72 2d 6e 61 6d 65 20 3a 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ffer-name.:error)).............. |
| 142b00 | 28 70 72 69 6e 63 20 28 66 6f 72 6d 61 74 20 22 49 6e 76 61 6c 69 64 20 70 72 6f 74 6f 63 6f 6c | (princ.(format."Invalid.protocol |
| 142b20 | 20 6d 65 73 73 61 67 65 3a 5c 6e 25 73 5c 6e 5c 6e 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 | .message:\n%s\n\n%s"............ |
| 142b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 64 69 74 69 6f 6e 20 70 61 63 6b 65 | .................condition.packe |
| 142b60 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 | t))..............(goto-char.(poi |
| 142b80 | 6e 74 2d 6d 69 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 49 6e 76 | nt-min)))............(error."Inv |
| 142ba0 | 61 6c 69 64 20 70 72 6f 74 6f 63 6f 6c 20 6d 65 73 73 61 67 65 22 29 29 0a 20 20 20 20 20 20 20 | alid.protocol.message"))........ |
| 142bc0 | 20 20 20 28 28 3a 69 6e 76 61 6c 69 64 2d 72 70 63 20 69 64 20 6d 65 73 73 61 67 65 29 0a 20 20 | ...((:invalid-rpc.id.message)... |
| 142be0 | 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e 74 69 6e | .........(setf.(slime-rex-contin |
| 142c00 | 75 61 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 | uations)..................(cl-re |
| 142c20 | 6d 6f 76 65 20 69 64 20 28 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 | move.id.(slime-rex-continuations |
| 142c40 | 29 20 3a 6b 65 79 20 23 27 63 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 | ).:key.#'car))............(error |
| 142c60 | 20 22 49 6e 76 61 6c 69 64 20 72 70 63 3a 20 25 73 22 20 6d 65 73 73 61 67 65 29 29 0a 20 20 20 | ."Invalid.rpc:.%s".message)).... |
| 142c80 | 20 20 20 20 20 20 20 28 28 3a 65 6d 61 63 73 2d 73 6b 69 70 70 65 64 2d 70 61 63 6b 65 74 20 5f | .......((:emacs-skipped-packet._ |
| 142ca0 | 70 6b 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 74 65 73 74 2d 64 65 6c 61 79 20 73 65 | pkg))...........((:test-delay.se |
| 142cc0 | 63 6f 6e 64 73 29 20 3b 20 66 6f 72 20 74 65 73 74 69 6e 67 20 6f 6e 6c 79 0a 20 20 20 20 20 20 | conds).;.for.testing.only....... |
| 142ce0 | 20 20 20 20 20 28 73 69 74 2d 66 6f 72 20 73 65 63 6f 6e 64 73 29 29 29 29 29 29 0a 0a 28 64 65 | .....(sit-for.seconds))))))..(de |
| 142d00 | 66 75 6e 20 73 6c 69 6d 65 2d 73 65 6e 64 20 28 73 65 78 70 29 0a 20 20 22 53 65 6e 64 20 53 45 | fun.slime-send.(sexp)..."Send.SE |
| 142d20 | 58 50 20 64 69 72 65 63 74 6c 79 20 6f 76 65 72 20 74 68 65 20 77 69 72 65 20 6f 6e 20 74 68 65 | XP.directly.over.the.wire.on.the |
| 142d40 | 20 63 75 72 72 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 6e | .current.connection."...(slime-n |
| 142d60 | 65 74 2d 73 65 6e 64 20 73 65 78 70 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 | et-send.sexp.(slime-connection)) |
| 142d80 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 73 65 74 20 28 29 0a 20 20 22 43 6c 65 61 | )..(defun.slime-reset.()..."Clea |
| 142da0 | 72 20 61 6c 6c 20 70 65 6e 64 69 6e 67 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 61 6e 64 20 | r.all.pending.continuations.and. |
| 142dc0 | 65 72 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 | erase.connection.buffer."...(int |
| 142de0 | 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 72 65 78 2d 63 6f 6e | eractive)...(setf.(slime-rex-con |
| 142e00 | 74 69 6e 75 61 74 69 6f 6e 73 29 20 27 28 29 29 0a 20 20 28 6d 61 70 63 20 23 27 6b 69 6c 6c 2d | tinuations).'())...(mapc.#'kill- |
| 142e20 | 62 75 66 66 65 72 20 28 73 6c 64 62 2d 62 75 66 66 65 72 73 29 29 0a 20 20 28 73 6c 69 6d 65 2d | buffer.(sldb-buffers))...(slime- |
| 142e40 | 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 62 75 66 66 65 72 20 28 29 0a 20 20 20 20 28 65 | with-connection-buffer.().....(e |
| 142e60 | 72 61 73 65 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 6e | rase-buffer)))..(defun.slime-sen |
| 142e80 | 64 2d 73 69 67 69 6e 74 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 | d-sigint.()...(interactive)...(s |
| 142ea0 | 69 67 6e 61 6c 2d 70 72 6f 63 65 73 73 20 28 73 6c 69 6d 65 2d 70 69 64 29 20 27 53 49 47 49 4e | ignal-process.(slime-pid).'SIGIN |
| 142ec0 | 54 29 29 0a 0a 3b 3b 3b 3b 3b 20 43 68 61 6e 6e 65 6c 73 0a 0a 3b 3b 3b 20 41 20 63 68 61 6e 6e | T))..;;;;;.Channels..;;;.A.chann |
| 142ee0 | 65 6c 20 69 6d 70 6c 65 6d 65 6e 74 73 20 61 20 73 65 74 20 6f 66 20 6f 70 65 72 61 74 69 6f 6e | el.implements.a.set.of.operation |
| 142f00 | 73 2e 20 20 54 68 6f 73 65 20 6f 70 65 72 61 74 69 6f 6e 73 20 63 61 6e 20 62 65 0a 3b 3b 3b 20 | s...Those.operations.can.be.;;;. |
| 142f20 | 69 6e 76 6f 6b 65 64 20 62 79 20 73 65 6e 64 69 6e 67 20 6d 65 73 73 61 67 65 73 20 74 6f 20 74 | invoked.by.sending.messages.to.t |
| 142f40 | 68 65 20 63 68 61 6e 6e 65 6c 2e 20 20 43 68 61 6e 6e 65 6c 73 20 61 72 65 20 75 73 65 64 20 66 | he.channel...Channels.are.used.f |
| 142f60 | 6f 72 0a 3b 3b 3b 20 70 72 6f 74 6f 63 6f 6c 73 20 77 68 69 63 68 20 63 61 6e 27 74 20 62 65 20 | or.;;;.protocols.which.can't.be. |
| 142f80 | 65 78 70 72 65 73 73 65 64 20 6e 61 74 75 72 61 6c 6c 79 20 77 69 74 68 20 52 50 43 73 2c 20 65 | expressed.naturally.with.RPCs,.e |
| 142fa0 | 2e 67 2e 20 66 6f 72 0a 3b 3b 3b 20 73 74 72 65 61 6d 69 6e 67 20 64 61 74 61 20 6f 76 65 72 20 | .g..for.;;;.streaming.data.over. |
| 142fc0 | 74 68 65 20 77 69 72 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 41 20 63 68 61 6e 6e 65 6c 20 63 61 6e 20 | the.wire..;;;.;;;.A.channel.can. |
| 142fe0 | 62 65 20 22 72 65 6d 6f 74 65 22 20 6f 72 20 22 6c 6f 63 61 6c 22 2e 20 20 52 65 6d 6f 74 65 20 | be."remote".or."local"...Remote. |
| 143000 | 63 68 61 6e 6e 65 6c 73 20 61 72 65 0a 3b 3b 3b 20 72 65 70 72 65 73 65 6e 74 65 64 20 62 79 20 | channels.are.;;;.represented.by. |
| 143020 | 69 6e 74 65 67 65 72 73 2e 20 20 4c 6f 63 61 6c 20 63 68 61 6e 6e 65 6c 73 20 61 72 65 20 73 74 | integers...Local.channels.are.st |
| 143040 | 72 75 63 74 75 72 65 73 2e 20 20 4d 65 73 73 61 67 65 73 0a 3b 3b 3b 20 73 65 6e 74 20 74 6f 20 | ructures...Messages.;;;.sent.to. |
| 143060 | 61 20 63 6c 6f 73 65 64 20 28 72 65 6d 6f 74 65 29 20 63 68 61 6e 6e 65 6c 20 61 72 65 20 69 67 | a.closed.(remote).channel.are.ig |
| 143080 | 6e 6f 72 65 64 2e 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 | nored...(slime-def-connection-va |
| 1430a0 | 72 20 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 73 20 27 28 29 0a 20 20 22 41 6c 69 73 74 20 6f 66 | r.slime-channels.'()..."Alist.of |
| 1430c0 | 20 74 68 65 20 66 6f 72 6d 20 28 49 44 20 2e 20 43 48 41 4e 4e 45 4c 29 2e 22 29 0a 0a 28 73 6c | .the.form.(ID...CHANNEL).")..(sl |
| 1430e0 | 69 6d 65 2d 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 20 73 6c 69 6d 65 2d 63 68 61 | ime-def-connection-var.slime-cha |
| 143100 | 6e 6e 65 6c 73 2d 63 6f 75 6e 74 65 72 20 30 0a 20 20 22 43 68 61 6e 6e 65 6c 20 73 65 72 69 61 | nnels-counter.0..."Channel.seria |
| 143120 | 6c 20 6e 75 6d 62 65 72 20 63 6f 75 6e 74 65 72 2e 22 29 0a 0a 28 63 6c 2d 64 65 66 73 74 72 75 | l.number.counter.")..(cl-defstru |
| 143140 | 63 74 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 73 6c | ct.(slime-channel.(:conc-name.sl |
| 143160 | 69 6d 65 2d 63 68 61 6e 6e 65 6c 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ime-channel.)................... |
| 143180 | 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f 72 0a 20 20 20 20 20 20 20 | ...........(:constructor........ |
| 1431a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6d 61 6b | .......................slime-mak |
| 1431c0 | 65 2d 63 68 61 6e 6e 65 6c 25 20 28 6f 70 65 72 61 74 69 6f 6e 73 20 6e 61 6d 65 20 69 64 20 70 | e-channel%.(operations.name.id.p |
| 1431e0 | 6c 69 73 74 29 29 29 0a 20 20 6f 70 65 72 61 74 69 6f 6e 73 20 6e 61 6d 65 20 69 64 20 70 6c 69 | list)))...operations.name.id.pli |
| 143200 | 73 74 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 6b 65 2d 63 68 61 6e 6e 65 6c 20 28 | st)..(defun.slime-make-channel.( |
| 143220 | 6f 70 65 72 61 74 69 6f 6e 73 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 61 6d 65 29 0a 20 20 28 6c 65 | operations.&optional.name)...(le |
| 143240 | 74 2a 20 28 28 69 64 20 28 63 6c 2d 69 6e 63 66 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 73 | t*.((id.(cl-incf.(slime-channels |
| 143260 | 2d 63 6f 75 6e 74 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 68 20 28 73 6c 69 6d 65 2d | -counter)))..........(ch.(slime- |
| 143280 | 6d 61 6b 65 2d 63 68 61 6e 6e 65 6c 25 20 6f 70 65 72 61 74 69 6f 6e 73 20 6e 61 6d 65 20 69 64 | make-channel%.operations.name.id |
| 1432a0 | 20 6e 69 6c 29 29 29 0a 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 69 64 20 63 68 29 20 28 | .nil))).....(push.(cons.id.ch).( |
| 1432c0 | 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 73 29 29 0a 20 20 20 20 63 68 29 29 0a 0a 28 64 65 66 75 | slime-channels)).....ch))..(defu |
| 1432e0 | 6e 20 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 63 68 61 6e 6e 65 6c 20 28 63 68 61 6e 6e 65 6c 29 0a | n.slime-close-channel.(channel). |
| 143300 | 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2e 6f 70 65 72 61 74 69 6f 6e | ..(setf.(slime-channel.operation |
| 143320 | 73 20 63 68 61 6e 6e 65 6c 29 20 27 63 6c 6f 73 65 64 2d 63 68 61 6e 6e 65 6c 29 0a 20 20 28 6c | s.channel).'closed-channel)...(l |
| 143340 | 65 74 20 28 28 70 72 6f 62 65 20 28 61 73 73 71 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2e | et.((probe.(assq.(slime-channel. |
| 143360 | 69 64 20 63 68 61 6e 6e 65 6c 29 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 73 29 29 29 29 0a | id.channel).(slime-channels)))). |
| 143380 | 20 20 20 20 28 63 6f 6e 64 20 28 70 72 6f 62 65 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 63 68 | ....(cond.(probe.(setf.(slime-ch |
| 1433a0 | 61 6e 6e 65 6c 73 29 20 28 64 65 6c 65 74 65 20 70 72 6f 62 65 20 28 73 6c 69 6d 65 2d 63 68 61 | annels).(delete.probe.(slime-cha |
| 1433c0 | 6e 6e 65 6c 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 49 | nnels))))...........(t.(error."I |
| 1433e0 | 6e 76 61 6c 69 64 20 63 68 61 6e 6e 65 6c 3a 20 25 73 22 20 63 68 61 6e 6e 65 6c 29 29 29 29 29 | nvalid.channel:.%s".channel))))) |
| 143400 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 63 68 61 6e 6e 65 6c 20 28 69 64 29 | ..(defun.slime-find-channel.(id) |
| 143420 | 0a 20 20 28 63 64 72 20 28 61 73 73 71 20 69 64 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 73 | ...(cdr.(assq.id.(slime-channels |
| 143440 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2d 73 65 6e 64 20 | ))))..(defun.slime-channel-send. |
| 143460 | 28 63 68 61 6e 6e 65 6c 20 6d 65 73 73 61 67 65 29 0a 20 20 28 61 70 70 6c 79 20 28 6f 72 20 28 | (channel.message)...(apply.(or.( |
| 143480 | 67 65 74 68 61 73 68 20 28 63 61 72 20 6d 65 73 73 61 67 65 29 20 28 73 6c 69 6d 65 2d 63 68 61 | gethash.(car.message).(slime-cha |
| 1434a0 | 6e 6e 65 6c 2e 6f 70 65 72 61 74 69 6f 6e 73 20 63 68 61 6e 6e 65 6c 29 29 0a 20 20 20 20 20 20 | nnel.operations.channel))....... |
| 1434c0 | 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 73 75 70 70 6f 72 74 65 64 20 6f 70 65 72 61 | .......(error."Unsupported.opera |
| 1434e0 | 74 69 6f 6e 3a 20 25 53 20 25 53 22 20 6d 65 73 73 61 67 65 20 63 68 61 6e 6e 65 6c 29 29 0a 20 | tion:.%S.%S".message.channel)).. |
| 143500 | 20 20 20 20 20 20 20 20 63 68 61 6e 6e 65 6c 20 28 63 64 72 20 6d 65 73 73 61 67 65 29 29 29 0a | ........channel.(cdr.message))). |
| 143520 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2d 70 75 74 20 28 63 68 61 6e 6e | .(defun.slime-channel-put.(chann |
| 143540 | 65 6c 20 70 72 6f 70 20 76 61 6c 75 65 29 0a 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 63 68 | el.prop.value)...(setf.(slime-ch |
| 143560 | 61 6e 6e 65 6c 2e 70 6c 69 73 74 20 63 68 61 6e 6e 65 6c 29 0a 20 20 20 20 20 20 20 20 28 70 6c | annel.plist.channel).........(pl |
| 143580 | 69 73 74 2d 70 75 74 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2e 70 6c 69 73 74 20 63 68 61 | ist-put.(slime-channel.plist.cha |
| 1435a0 | 6e 6e 65 6c 29 20 70 72 6f 70 20 76 61 6c 75 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | nnel).prop.value)))..(defun.slim |
| 1435c0 | 65 2d 63 68 61 6e 6e 65 6c 2d 67 65 74 20 28 63 68 61 6e 6e 65 6c 20 70 72 6f 70 29 0a 20 20 28 | e-channel-get.(channel.prop)...( |
| 1435e0 | 70 6c 69 73 74 2d 67 65 74 20 28 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2e 70 6c 69 73 74 20 63 | plist-get.(slime-channel.plist.c |
| 143600 | 68 61 6e 6e 65 6c 29 20 70 72 6f 70 29 29 0a 0a 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c | hannel).prop))..(eval-and-compil |
| 143620 | 65 0a 20 20 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2d 6d 65 74 68 6f 64 2d | e...(defun.slime-channel-method- |
| 143640 | 74 61 62 6c 65 2d 6e 61 6d 65 20 28 74 79 70 65 29 0a 20 20 20 20 28 69 6e 74 65 72 6e 20 28 66 | table-name.(type).....(intern.(f |
| 143660 | 6f 72 6d 61 74 20 22 73 6c 69 6d 65 2d 25 73 2d 63 68 61 6e 6e 65 6c 2d 6d 65 74 68 6f 64 73 22 | ormat."slime-%s-channel-methods" |
| 143680 | 20 74 79 70 65 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 64 65 66 69 6e | .type))))..(defmacro.slime-defin |
| 1436a0 | 65 2d 63 68 61 6e 6e 65 6c 2d 74 79 70 65 20 28 6e 61 6d 65 29 0a 20 20 28 64 65 63 6c 61 72 65 | e-channel-type.(name)...(declare |
| 1436c0 | 20 28 69 6e 64 65 6e 74 20 64 65 66 75 6e 29 29 0a 20 20 28 6c 65 74 20 28 28 74 61 62 20 28 73 | .(indent.defun))...(let.((tab.(s |
| 1436e0 | 6c 69 6d 65 2d 63 68 61 6e 6e 65 6c 2d 6d 65 74 68 6f 64 2d 74 61 62 6c 65 2d 6e 61 6d 65 20 6e | lime-channel-method-table-name.n |
| 143700 | 61 6d 65 29 29 29 0a 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 28 64 65 66 76 61 | ame))).....`(progn........(defva |
| 143720 | 72 20 2c 74 61 62 29 0a 20 20 20 20 20 20 20 28 73 65 74 71 20 2c 74 61 62 20 28 6d 61 6b 65 2d | r.,tab)........(setq.,tab.(make- |
| 143740 | 68 61 73 68 2d 74 61 62 6c 65 20 3a 73 69 7a 65 20 31 30 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 | hash-table.:size.10)))))..(defma |
| 143760 | 63 72 6f 20 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 63 68 61 6e 6e 65 6c 2d 6d 65 74 68 6f 64 20 | cro.slime-define-channel-method. |
| 143780 | 28 74 79 70 65 20 6d 65 74 68 6f 64 20 61 72 67 73 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 | (type.method.args.&rest.body)... |
| 1437a0 | 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 33 29 20 28 64 65 62 75 67 20 28 26 64 65 66 | (declare.(indent.3).(debug.(&def |
| 1437c0 | 69 6e 65 20 6e 61 6d 65 20 73 65 78 70 20 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 20 20 20 20 20 20 | ine.name.sexp.lambda-list....... |
| 1437e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 143800 | 64 65 66 2d 62 6f 64 79 29 29 29 0a 20 20 60 28 70 75 74 68 61 73 68 20 27 2c 6d 65 74 68 6f 64 | def-body)))...`(puthash.',method |
| 143820 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 65 6c 66 20 2e 20 2c 61 72 | .............(lambda.(self...,ar |
| 143840 | 67 73 29 20 2e 20 2c 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 73 6c 69 6d 65 | gs)...,body).............,(slime |
| 143860 | 2d 63 68 61 6e 6e 65 6c 2d 6d 65 74 68 6f 64 2d 74 61 62 6c 65 2d 6e 61 6d 65 20 74 79 70 65 29 | -channel-method-table-name.type) |
| 143880 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 6e 64 2d 74 6f 2d 72 65 6d 6f 74 65 2d | ))..(defun.slime-send-to-remote- |
| 1438a0 | 63 68 61 6e 6e 65 6c 20 28 63 68 61 6e 6e 65 6c 2d 69 64 20 6d 73 67 29 0a 20 20 28 73 6c 69 6d | channel.(channel-id.msg)...(slim |
| 1438c0 | 65 2d 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 60 28 3a 65 6d 61 63 73 2d 63 68 61 6e 6e 65 | e-dispatch-event.`(:emacs-channe |
| 1438e0 | 6c 2d 73 65 6e 64 20 2c 63 68 61 6e 6e 65 6c 2d 69 64 20 2c 6d 73 67 29 29 29 0a 0a 3b 3b 3b 3b | l-send.,channel-id.,msg)))..;;;; |
| 143900 | 3b 20 45 76 65 6e 74 20 6c 6f 67 67 69 6e 67 20 74 6f 20 2a 73 6c 69 6d 65 2d 65 76 65 6e 74 73 | ;.Event.logging.to.*slime-events |
| 143920 | 2a 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 2a 73 6c 69 6d 65 2d 65 76 65 6e 74 73 2a 20 62 75 66 | *.;;;.;;;.The.*slime-events*.buf |
| 143940 | 66 65 72 20 6c 6f 67 73 20 61 6c 6c 20 70 72 6f 74 6f 63 6f 6c 20 6d 65 73 73 61 67 65 73 20 66 | fer.logs.all.protocol.messages.f |
| 143960 | 6f 72 20 64 65 62 75 67 67 69 6e 67 0a 3b 3b 3b 20 70 75 72 70 6f 73 65 73 2e 20 4f 70 74 69 6f | or.debugging.;;;.purposes..Optio |
| 143980 | 6e 61 6c 6c 79 20 79 6f 75 20 63 61 6e 20 65 6e 61 62 6c 65 20 6f 75 74 6c 69 6e 65 2d 6d 6f 64 | nally.you.can.enable.outline-mod |
| 1439a0 | 65 20 69 6e 20 74 68 61 74 20 62 75 66 66 65 72 2c 0a 3b 3b 3b 20 77 68 69 63 68 20 69 73 20 63 | e.in.that.buffer,.;;;.which.is.c |
| 1439c0 | 6f 6e 76 65 6e 69 65 6e 74 20 62 75 74 20 73 6c 6f 77 73 20 74 68 69 6e 67 73 20 64 6f 77 6e 20 | onvenient.but.slows.things.down. |
| 1439e0 | 73 69 67 6e 69 66 69 63 61 6e 74 6c 79 2e 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6c 6f | significantly...(defvar.slime-lo |
| 143a00 | 67 2d 65 76 65 6e 74 73 20 74 0a 20 20 22 2a 4c 6f 67 20 70 72 6f 74 6f 63 6f 6c 20 65 76 65 6e | g-events.t..."*Log.protocol.even |
| 143a20 | 74 73 20 74 6f 20 74 68 65 20 2a 73 6c 69 6d 65 2d 65 76 65 6e 74 73 2a 20 62 75 66 66 65 72 2e | ts.to.the.*slime-events*.buffer. |
| 143a40 | 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6f 75 74 6c 69 6e 65 2d 6d 6f 64 65 2d 69 | ")..(defvar.slime-outline-mode-i |
| 143a60 | 6e 2d 65 76 65 6e 74 73 2d 62 75 66 66 65 72 20 6e 69 6c 0a 20 20 22 2a 4e 6f 6e 2d 6e 69 6c 20 | n-events-buffer.nil..."*Non-nil. |
| 143a80 | 6d 65 61 6e 73 20 75 73 65 20 6f 75 74 6c 69 6e 65 2d 6d 6f 64 65 20 69 6e 20 2a 73 6c 69 6d 65 | means.use.outline-mode.in.*slime |
| 143aa0 | 2d 65 76 65 6e 74 73 2a 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 65 76 65 6e 74 | -events*.")..(defvar.slime-event |
| 143ac0 | 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 | -buffer-name.(slime-buffer-name. |
| 143ae0 | 3a 65 76 65 6e 74 73 29 0a 20 20 22 54 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 73 6c 69 6d | :events)..."The.name.of.the.slim |
| 143b00 | 65 20 65 76 65 6e 74 20 62 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | e.event.buffer.")..(defun.slime- |
| 143b20 | 6c 6f 67 2d 65 76 65 6e 74 20 28 65 76 65 6e 74 29 0a 20 20 22 52 65 63 6f 72 64 20 74 68 65 20 | log-event.(event)..."Record.the. |
| 143b40 | 66 61 63 74 20 74 68 61 74 20 45 56 45 4e 54 20 6f 63 63 75 72 72 65 64 2e 22 0a 20 20 28 77 68 | fact.that.EVENT.occurred."...(wh |
| 143b60 | 65 6e 20 73 6c 69 6d 65 2d 6c 6f 67 2d 65 76 65 6e 74 73 0a 20 20 20 20 28 77 69 74 68 2d 63 75 | en.slime-log-events.....(with-cu |
| 143b80 | 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 65 76 65 6e 74 73 2d 62 75 66 66 65 | rrent-buffer.(slime-events-buffe |
| 143ba0 | 72 29 0a 20 20 20 20 20 20 3b 3b 20 74 72 69 6d 3f 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e | r).......;;.trim?.......(when.(> |
| 143bc0 | 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 20 31 30 30 30 30 30 29 0a 20 20 20 20 20 20 20 20 28 | .(buffer-size).100000).........( |
| 143be0 | 67 6f 74 6f 2d 63 68 61 72 20 28 2f 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 20 32 29 29 0a 20 | goto-char.(/.(buffer-size).2)).. |
| 143c00 | 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 28 22 20 6e | .......(re-search-forward."^(".n |
| 143c20 | 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f | il.t).........(delete-region.(po |
| 143c40 | 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | int-min).(point))).......(goto-c |
| 143c60 | 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 | har.(point-max)).......(save-exc |
| 143c80 | 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 70 72 69 6e 74 2d 65 76 65 | ursion.........(slime-pprint-eve |
| 143ca0 | 6e 74 20 65 76 65 6e 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 | nt.event.(current-buffer)))..... |
| 143cc0 | 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 6f 75 74 6c 69 6e 65 2d 6d 69 | ..(when.(and.(boundp.'outline-mi |
| 143ce0 | 6e 6f 72 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 6c 69 | nor-mode)..................outli |
| 143d00 | 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 28 68 69 64 65 2d 65 6e 74 | ne-minor-mode).........(hide-ent |
| 143d20 | 72 79 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 | ry)).......(goto-char.(point-max |
| 143d40 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 70 72 69 6e 74 2d 65 76 65 6e 74 | )))))..(defun.slime-pprint-event |
| 143d60 | 20 28 65 76 65 6e 74 20 62 75 66 66 65 72 29 0a 20 20 22 50 72 65 74 74 79 20 70 72 69 6e 74 20 | .(event.buffer)..."Pretty.print. |
| 143d80 | 45 56 45 4e 54 20 69 6e 20 42 55 46 46 45 52 20 77 69 74 68 20 6c 69 6d 69 74 65 64 20 64 65 70 | EVENT.in.BUFFER.with.limited.dep |
| 143da0 | 74 68 20 61 6e 64 20 77 69 64 74 68 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 72 69 6e 74 2d 6c 65 | th.and.width."...(let.((print-le |
| 143dc0 | 6e 67 74 68 20 32 30 29 0a 09 28 70 72 69 6e 74 2d 6c 65 76 65 6c 20 36 29 0a 09 28 70 70 2d 65 | ngth.20)..(print-level.6)..(pp-e |
| 143de0 | 73 63 61 70 65 2d 6e 65 77 6c 69 6e 65 73 20 74 29 29 0a 20 20 20 20 28 70 70 20 65 76 65 6e 74 | scape-newlines.t)).....(pp.event |
| 143e00 | 20 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 76 65 6e 74 73 2d | .buffer)))..(defun.slime-events- |
| 143e20 | 62 75 66 66 65 72 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6f 72 20 63 72 65 61 74 65 20 74 68 | buffer.()..."Return.or.create.th |
| 143e40 | 65 20 65 76 65 6e 74 20 6c 6f 67 20 62 75 66 66 65 72 2e 22 0a 20 20 28 6f 72 20 28 67 65 74 2d | e.event.log.buffer."...(or.(get- |
| 143e60 | 62 75 66 66 65 72 20 73 6c 69 6d 65 2d 65 76 65 6e 74 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a | buffer.slime-event-buffer-name). |
| 143e80 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d | ......(let.((buffer.(get-buffer- |
| 143ea0 | 63 72 65 61 74 65 20 73 6c 69 6d 65 2d 65 76 65 6e 74 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 | create.slime-event-buffer-name)) |
| 143ec0 | 29 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 | ).........(with-current-buffer.b |
| 143ee0 | 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 64 69 73 61 62 6c 65 2d | uffer...........(buffer-disable- |
| 143f00 | 75 6e 64 6f 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c | undo)...........(set.(make-local |
| 143f20 | 2d 76 61 72 69 61 62 6c 65 20 27 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 29 20 22 5e 28 22 29 | -variable.'outline-regexp)."^(") |
| 143f40 | 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 | ...........(set.(make-local-vari |
| 143f60 | 61 62 6c 65 20 27 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 29 20 22 3b 22 29 0a 20 20 20 20 20 20 | able.'comment-start).";")....... |
| 143f80 | 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 63 | ....(set.(make-local-variable.'c |
| 143fa0 | 6f 6d 6d 65 6e 74 2d 65 6e 64 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | omment-end)."")...........(when. |
| 143fc0 | 73 6c 69 6d 65 2d 6f 75 74 6c 69 6e 65 2d 6d 6f 64 65 2d 69 6e 2d 65 76 65 6e 74 73 2d 62 75 66 | slime-outline-mode-in-events-buf |
| 143fe0 | 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 75 74 6c 69 6e 65 2d 6d 69 6e 6f 72 2d 6d | fer.............(outline-minor-m |
| 144000 | 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 20 62 75 66 66 65 72 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b | ode))).........buffer)))....;;;; |
| 144020 | 3b 20 43 6c 65 61 6e 75 70 20 61 66 74 65 72 20 61 20 71 75 69 74 0a 0a 28 64 65 66 75 6e 20 73 | ;.Cleanup.after.a.quit..(defun.s |
| 144040 | 6c 69 6d 65 2d 72 65 73 74 61 72 74 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 20 28 29 0a 20 20 | lime-restart-inferior-lisp.()... |
| 144060 | 22 4b 69 6c 6c 20 61 6e 64 20 72 65 73 74 61 72 74 20 74 68 65 20 4c 69 73 70 20 73 75 62 70 72 | "Kill.and.restart.the.Lisp.subpr |
| 144080 | 6f 63 65 73 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6c 2d 61 73 | ocess."...(interactive)...(cl-as |
| 1440a0 | 73 65 72 74 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 29 20 28 29 | sert.(slime-inferior-process).() |
| 1440c0 | 20 22 4e 6f 20 69 6e 66 65 72 69 6f 72 20 6c 69 73 70 20 70 72 6f 63 65 73 73 22 29 0a 20 20 28 | ."No.inferior.lisp.process")...( |
| 1440e0 | 73 6c 69 6d 65 2d 71 75 69 74 2d 6c 69 73 70 2d 69 6e 74 65 72 6e 61 6c 20 28 73 6c 69 6d 65 2d | slime-quit-lisp-internal.(slime- |
| 144100 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 27 73 6c 69 6d 65 2d 72 65 73 74 61 72 74 2d 73 65 6e 74 69 | connection).'slime-restart-senti |
| 144120 | 6e 65 6c 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 73 74 61 72 74 2d 73 65 | nel.t))..(defun.slime-restart-se |
| 144140 | 6e 74 69 6e 65 6c 20 28 70 72 6f 63 65 73 73 20 5f 6d 65 73 73 61 67 65 29 0a 20 20 22 52 65 73 | ntinel.(process._message)..."Res |
| 144160 | 74 61 72 74 20 74 68 65 20 69 6e 66 65 72 69 6f 72 20 6c 69 73 70 20 70 72 6f 63 65 73 73 2e 0a | tart.the.inferior.lisp.process.. |
| 144180 | 41 6c 73 6f 20 72 65 61 72 72 61 6e 67 65 20 77 69 6e 64 6f 77 73 2e 22 0a 20 20 28 63 6c 2d 61 | Also.rearrange.windows."...(cl-a |
| 1441a0 | 73 73 65 72 74 20 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 70 72 6f 63 65 73 73 29 20 27 | ssert.(process-status.process).' |
| 1441c0 | 63 6c 6f 73 65 64 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 72 6f 63 20 28 73 6c 69 6d 65 2d 69 6e | closed)...(let*.((proc.(slime-in |
| 1441e0 | 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 20 70 72 6f 63 65 73 73 29 29 0a 20 20 20 20 20 20 20 | ferior-process.process))........ |
| 144200 | 20 20 28 61 72 67 73 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 61 72 67 | ..(args.(slime-inferior-lisp-arg |
| 144220 | 73 20 70 72 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 62 75 66 66 65 | s.proc))..........(buffer.(buffe |
| 144240 | 72 2d 6e 61 6d 65 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 29 29 29 0a 20 | r-name.(process-buffer.proc))).. |
| 144260 | 20 20 20 20 20 20 20 20 3b 3b 28 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 | ........;;(buffer-window.(get-bu |
| 144280 | 66 66 65 72 2d 77 69 6e 64 6f 77 20 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e | ffer-window.buffer))..........(n |
| 1442a0 | 65 77 2d 70 72 6f 63 20 28 73 6c 69 6d 65 2d 73 74 61 72 74 2d 6c 69 73 70 20 28 70 6c 69 73 74 | ew-proc.(slime-start-lisp.(plist |
| 1442c0 | 2d 67 65 74 20 61 72 67 73 20 3a 70 72 6f 67 72 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -get.args.:program)............. |
| 1442e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6c 69 73 74 2d | .........................(plist- |
| 144300 | 67 65 74 20 61 72 67 73 20 3a 70 72 6f 67 72 61 6d 2d 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 | get.args.:program-args)......... |
| 144320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6c | .............................(pl |
| 144340 | 69 73 74 2d 67 65 74 20 61 72 67 73 20 3a 65 6e 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ist-get.args.:env).............. |
| 144360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 | ........................nil..... |
| 144380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1443a0 | 20 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6e 65 74 2d 63 6c 6f 73 65 20 | .buffer))).....(slime-net-close. |
| 1443c0 | 70 72 6f 63 65 73 73 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 63 6f 6e | process).....(slime-inferior-con |
| 1443e0 | 6e 65 63 74 20 6e 65 77 2d 70 72 6f 63 20 61 72 67 73 29 0a 20 20 20 20 28 73 77 69 74 63 68 2d | nect.new-proc.args).....(switch- |
| 144400 | 74 6f 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 | to-buffer.buffer).....(goto-char |
| 144420 | 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 6f 6d 70 69 6c 61 74 | .(point-max))))....;;;;.Compilat |
| 144440 | 69 6f 6e 20 61 6e 64 20 74 68 65 20 63 72 65 61 74 69 6f 6e 20 6f 66 20 63 6f 6d 70 69 6c 65 72 | ion.and.the.creation.of.compiler |
| 144460 | 2d 6e 6f 74 65 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 | -note.annotations..(defvar.slime |
| 144480 | 2d 68 69 67 68 6c 69 67 68 74 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 20 74 0a 20 20 22 2a | -highlight-compiler-notes.t..."* |
| 1444a0 | 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 20 61 6e 6e 6f 74 61 74 65 20 62 75 66 66 65 72 73 20 77 69 | When.non-nil.annotate.buffers.wi |
| 1444c0 | 74 68 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6e 6f 74 65 73 20 65 74 63 2e 22 29 0a 0a 28 64 65 | th.compilation.notes.etc.")..(de |
| 1444e0 | 66 76 61 72 20 73 6c 69 6d 65 2d 62 65 66 6f 72 65 2d 63 6f 6d 70 69 6c 65 2d 66 75 6e 63 74 69 | fvar.slime-before-compile-functi |
| 144500 | 6f 6e 73 20 6e 69 6c 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 20 63 61 | ons.nil..."A.list.of.function.ca |
| 144520 | 6c 6c 65 64 20 62 65 66 6f 72 65 20 63 6f 6d 70 69 6c 69 6e 67 20 61 20 62 75 66 66 65 72 20 6f | lled.before.compiling.a.buffer.o |
| 144540 | 72 20 72 65 67 69 6f 6e 2e 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 63 65 69 76 65 20 74 | r.region..The.function.receive.t |
| 144560 | 77 6f 20 61 72 67 75 6d 65 6e 74 73 3a 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 61 6e 64 20 | wo.arguments:.the.beginning.and. |
| 144580 | 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 0a 72 65 67 69 6f 6e 20 74 68 61 74 20 77 69 6c 6c 20 | the.end.of.the.region.that.will. |
| 1445a0 | 62 65 20 63 6f 6d 70 69 6c 65 64 2e 22 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 72 65 6d 6f 76 65 | be.compiled.")..;;.FIXME:.remove |
| 1445c0 | 20 73 6f 6d 65 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 73 0a 28 64 65 66 63 75 73 74 6f 6d 20 | .some.of.the.options.(defcustom. |
| 1445e0 | 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 68 6f 6f 6b 20 | slime-compilation-finished-hook. |
| 144600 | 27 73 6c 69 6d 65 2d 6d 61 79 62 65 2d 73 68 6f 77 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6c 6f | 'slime-maybe-show-compilation-lo |
| 144620 | 67 0a 20 20 22 48 6f 6f 6b 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 6c 69 73 74 20 6f 66 20 | g..."Hook.called.with.a.list.of. |
| 144640 | 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 20 61 66 74 65 72 20 61 20 63 6f 6d 70 69 6c 61 74 69 | compiler.notes.after.a.compilati |
| 144660 | 6f 6e 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 0a 20 20 3a 74 79 70 | on."...:group.'slime-mode...:typ |
| 144680 | 65 20 27 68 6f 6f 6b 0a 20 20 3a 6f 70 74 69 6f 6e 73 20 27 28 73 6c 69 6d 65 2d 6d 61 79 62 65 | e.'hook...:options.'(slime-maybe |
| 1446a0 | 2d 73 68 6f 77 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6c 6f 67 0a 20 20 20 20 20 20 20 20 20 20 | -show-compilation-log........... |
| 1446c0 | 20 20 20 73 6c 69 6d 65 2d 63 72 65 61 74 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6c 6f 67 0a | ...slime-create-compilation-log. |
| 1446e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 73 68 6f 77 2d 63 6f 6d 70 69 6c 61 74 | .............slime-show-compilat |
| 144700 | 69 6f 6e 2d 6c 6f 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6d 61 79 62 65 | ion-log..............slime-maybe |
| 144720 | 2d 6c 69 73 74 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 | -list-compiler-notes............ |
| 144740 | 20 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 0a 20 20 20 20 | ..slime-list-compiler-notes..... |
| 144760 | 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6d 61 79 62 65 2d 73 68 6f 77 2d 78 72 65 66 73 2d | .........slime-maybe-show-xrefs- |
| 144780 | 66 6f 72 2d 6e 6f 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 67 6f 74 | for-notes..............slime-got |
| 1447a0 | 6f 2d 66 69 72 73 74 2d 6e 6f 74 65 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 49 20 64 6f 75 62 | o-first-note))..;;.FIXME:.I.doub |
| 1447c0 | 74 20 74 68 61 74 20 61 6e 79 62 6f 64 79 20 75 73 65 73 20 74 68 69 73 20 64 69 72 65 63 74 6c | t.that.anybody.uses.this.directl |
| 1447e0 | 79 20 61 6e 64 20 69 74 20 73 65 65 6d 73 20 74 6f 20 62 65 0a 3b 3b 20 6f 6e 6c 79 20 61 6e 20 | y.and.it.seems.to.be.;;.only.an. |
| 144800 | 75 67 6c 79 20 77 61 79 20 74 6f 20 70 61 73 73 20 61 72 67 75 6d 65 6e 74 73 2e 0a 28 64 65 66 | ugly.way.to.pass.arguments..(def |
| 144820 | 76 61 72 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 70 6f 6c 69 63 79 20 6e 69 6c | var.slime-compilation-policy.nil |
| 144840 | 0a 20 20 22 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 20 63 6f 6d 70 69 6c 65 20 77 69 74 68 20 74 68 | ..."When.non-nil.compile.with.th |
| 144860 | 65 73 65 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 20 73 65 74 74 69 6e 67 73 2e 22 29 0a 0a 28 64 | ese.optimization.settings.")..(d |
| 144880 | 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 75 74 65 2d 70 6f 6c 69 63 79 20 28 61 72 67 29 0a | efun.slime-compute-policy.(arg). |
| 1448a0 | 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 70 6f 6c 69 63 79 20 66 6f 72 20 74 68 65 20 70 72 65 | .."Return.the.policy.for.the.pre |
| 1448c0 | 66 69 78 20 61 72 67 75 6d 65 6e 74 20 41 52 47 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 65 74 77 | fix.argument.ARG."...(let.((betw |
| 1448e0 | 65 65 6e 20 28 6c 61 6d 62 64 61 20 28 6d 69 6e 20 6e 20 6d 61 78 29 0a 20 20 20 20 20 20 20 20 | een.(lambda.(min.n.max)......... |
| 144900 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3c 20 6e 20 6d 69 6e 29 20 6d 69 6e 29 | ...........(cond.((<.n.min).min) |
| 144920 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3e 20 6e 20 | ..........................((>.n. |
| 144940 | 6d 61 78 29 20 6d 61 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | max).max)....................... |
| 144960 | 20 20 20 28 74 20 6e 29 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6e 20 28 70 72 65 66 69 | ...(t.n))))).....(let.((n.(prefi |
| 144980 | 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 61 72 67 29 29 29 0a 20 20 20 20 20 20 28 63 6f | x-numeric-value.arg))).......(co |
| 1449a0 | 6e 64 20 28 28 6e 6f 74 20 61 72 67 29 20 20 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f | nd.((not.arg)...slime-compilatio |
| 1449c0 | 6e 2d 70 6f 6c 69 63 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 6c 2d 70 6c 75 73 70 | n-policy).............((cl-plusp |
| 1449e0 | 20 6e 29 20 20 20 60 28 28 63 6c 3a 64 65 62 75 67 20 2e 20 2c 28 66 75 6e 63 61 6c 6c 20 62 65 | .n)...`((cl:debug...,(funcall.be |
| 144a00 | 74 77 65 65 6e 20 30 20 6e 20 33 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 | tween.0.n.3)))).............((eq |
| 144a20 | 20 61 72 67 20 27 2d 29 20 60 28 28 63 6c 3a 73 70 65 65 64 20 2e 20 33 29 29 29 0a 20 20 20 20 | .arg.'-).`((cl:speed...3)))..... |
| 144a40 | 20 20 20 20 20 20 20 20 28 74 20 20 20 20 20 20 20 20 20 20 20 60 28 28 63 6c 3a 73 70 65 65 64 | ........(t...........`((cl:speed |
| 144a60 | 20 2e 20 2c 28 66 75 6e 63 61 6c 6c 20 62 65 74 77 65 65 6e 20 30 20 28 61 62 73 20 6e 29 20 33 | ...,(funcall.between.0.(abs.n).3 |
| 144a80 | 29 29 29 29 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 73 74 72 75 63 74 20 28 73 6c 69 6d 65 2d 63 | ))))))))..(cl-defstruct.(slime-c |
| 144aa0 | 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ompilation-result............... |
| 144ac0 | 20 28 3a 74 79 70 65 20 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 | .(:type.list)................(:c |
| 144ae0 | 6f 6e 63 2d 6e 61 6d 65 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c | onc-name.slime-compilation-resul |
| 144b00 | 74 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f 72 | t.)................(:constructor |
| 144b20 | 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 70 69 65 72 20 6e 69 | .nil)................(:copier.ni |
| 144b40 | 6c 29 29 0a 20 20 74 61 67 20 6e 6f 74 65 73 20 73 75 63 63 65 73 73 70 20 64 75 72 61 74 69 6f | l))...tag.notes.successp.duratio |
| 144b60 | 6e 20 6c 6f 61 64 70 20 66 61 73 6c 66 69 6c 65 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 | n.loadp.faslfile)..(defvar.slime |
| 144b80 | 2d 6c 61 73 74 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 20 6e 69 6c 0a 20 20 22 | -last-compilation-result.nil..." |
| 144ba0 | 54 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 20 | The.result.of.the.most.recently. |
| 144bc0 | 69 73 73 75 65 64 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c | issued.compilation.")..(defun.sl |
| 144be0 | 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 | ime-compiler-notes.()..."Return. |
| 144c00 | 61 6c 6c 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 2c 20 77 61 72 6e 69 6e 67 73 2c 20 61 6e | all.compiler.notes,.warnings,.an |
| 144c20 | 64 20 65 72 72 6f 72 73 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d | d.errors."...(slime-compilation- |
| 144c40 | 72 65 73 75 6c 74 2e 6e 6f 74 65 73 20 73 6c 69 6d 65 2d 6c 61 73 74 2d 63 6f 6d 70 69 6c 61 74 | result.notes.slime-last-compilat |
| 144c60 | 69 6f 6e 2d 72 65 73 75 6c 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 | ion-result))..(defun.slime-compi |
| 144c80 | 6c 65 2d 61 6e 64 2d 6c 6f 61 64 2d 66 69 6c 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 6f 6c 69 | le-and-load-file.(&optional.poli |
| 144ca0 | 63 79 29 0a 20 20 22 43 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 74 68 65 20 62 75 66 66 | cy)..."Compile.and.load.the.buff |
| 144cc0 | 65 72 27 73 20 66 69 6c 65 20 61 6e 64 20 68 69 67 68 6c 69 67 68 74 20 63 6f 6d 70 69 6c 65 72 | er's.file.and.highlight.compiler |
| 144ce0 | 20 6e 6f 74 65 73 2e 0a 0a 57 69 74 68 20 28 70 6f 73 69 74 69 76 65 29 20 70 72 65 66 69 78 20 | .notes...With.(positive).prefix. |
| 144d00 | 61 72 67 75 6d 65 6e 74 20 74 68 65 20 66 69 6c 65 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 77 69 | argument.the.file.is.compiled.wi |
| 144d20 | 74 68 20 6d 61 78 69 6d 61 6c 0a 64 65 62 75 67 20 73 65 74 74 69 6e 67 73 20 28 60 43 2d 75 27 | th.maximal.debug.settings.(`C-u' |
| 144d40 | 29 2e 20 57 69 74 68 20 6e 65 67 61 74 69 76 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 | )..With.negative.prefix.argument |
| 144d60 | 20 69 74 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 0a 73 70 65 65 64 20 28 60 4d 2d 2d 27 | .it.is.compiled.for.speed.(`M--' |
| 144d80 | 29 2e 20 49 66 20 61 20 6e 75 6d 65 72 69 63 20 61 72 67 75 6d 65 6e 74 20 69 73 20 70 61 73 73 | )..If.a.numeric.argument.is.pass |
| 144da0 | 65 64 20 73 65 74 20 64 65 62 75 67 20 6f 72 20 73 70 65 65 64 20 73 65 74 74 69 6e 67 73 0a 74 | ed.set.debug.or.speed.settings.t |
| 144dc0 | 6f 20 69 74 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 69 74 73 20 73 69 67 6e 2e 0a 0a 45 61 63 | o.it.depending.on.its.sign...Eac |
| 144de0 | 68 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 74 68 61 74 20 69 73 20 74 68 65 20 73 75 | h.source.location.that.is.the.su |
| 144e00 | 62 6a 65 63 74 20 6f 66 20 61 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 20 69 73 0a 75 6e 64 65 | bject.of.a.compiler.note.is.unde |
| 144e20 | 72 6c 69 6e 65 64 20 61 6e 64 20 61 6e 6e 6f 74 61 74 65 64 20 77 69 74 68 20 74 68 65 20 72 65 | rlined.and.annotated.with.the.re |
| 144e40 | 6c 65 76 61 6e 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 20 54 68 65 20 63 6f 6d 6d 61 6e 64 73 | levant.information..The.commands |
| 144e60 | 0a 60 73 6c 69 6d 65 2d 6e 65 78 74 2d 6e 6f 74 65 27 20 61 6e 64 20 60 73 6c 69 6d 65 2d 70 72 | .`slime-next-note'.and.`slime-pr |
| 144e80 | 65 76 69 6f 75 73 2d 6e 6f 74 65 27 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 6e 61 76 69 | evious-note'.can.be.used.to.navi |
| 144ea0 | 67 61 74 65 0a 62 65 74 77 65 65 6e 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 20 61 6e 64 20 | gate.between.compiler.notes.and. |
| 144ec0 | 74 6f 20 64 69 73 70 6c 61 79 20 74 68 65 69 72 20 66 75 6c 6c 20 64 65 74 61 69 6c 73 2e 22 0a | to.display.their.full.details.". |
| 144ee0 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 73 6c 69 6d 65 2d 63 6f 6d | ..(interactive."P")...(slime-com |
| 144f00 | 70 69 6c 65 2d 66 69 6c 65 20 74 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 75 74 65 2d 70 6f 6c 69 63 | pile-file.t.(slime-compute-polic |
| 144f20 | 79 20 70 6f 6c 69 63 79 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 69 6d 65 2d 63 6f | y.policy)))..(defcustom.slime-co |
| 144f40 | 6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 70 74 69 6f 6e 73 20 27 28 29 0a 20 20 22 50 6c 69 73 74 20 | mpile-file-options.'()..."Plist. |
| 144f60 | 6f 66 20 61 64 64 69 74 69 6f 6e 61 6c 20 6f 70 74 69 6f 6e 73 20 74 68 61 74 20 43 2d 63 20 43 | of.additional.options.that.C-c.C |
| 144f80 | 2d 6b 20 73 68 6f 75 6c 64 20 70 61 73 73 20 74 6f 20 4c 69 73 70 2e 0a 43 75 72 72 65 6e 74 6c | -k.should.pass.to.Lisp..Currentl |
| 144fa0 | 79 20 6f 6e 6c 79 20 3a 66 61 73 6c 2d 64 69 72 65 63 74 6f 72 79 20 69 73 20 73 75 70 70 6f 72 | y.only.:fasl-directory.is.suppor |
| 144fc0 | 74 65 64 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 6c 69 73 70 0a 20 20 3a 74 79 | ted."...:group.'slime-lisp...:ty |
| 144fe0 | 70 65 20 27 28 70 6c 69 73 74 20 3a 6b 65 79 2d 74 79 70 65 20 73 79 6d 62 6f 6c 20 3a 76 61 6c | pe.'(plist.:key-type.symbol.:val |
| 145000 | 75 65 2d 74 79 70 65 20 28 66 69 6c 65 20 3a 6d 75 73 74 2d 6d 61 74 63 68 20 74 29 29 29 0a 0a | ue-type.(file.:must-match.t))).. |
| 145020 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 28 26 6f 70 74 69 | (defun.slime-compile-file.(&opti |
| 145040 | 6f 6e 61 6c 20 6c 6f 61 64 20 70 6f 6c 69 63 79 29 0a 20 20 22 43 6f 6d 70 69 6c 65 20 63 75 72 | onal.load.policy)..."Compile.cur |
| 145060 | 72 65 6e 74 20 62 75 66 66 65 72 27 73 20 66 69 6c 65 20 61 6e 64 20 68 69 67 68 6c 69 67 68 74 | rent.buffer's.file.and.highlight |
| 145080 | 20 72 65 73 75 6c 74 69 6e 67 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 2e 0a 0a 53 65 65 20 | .resulting.compiler.notes...See. |
| 1450a0 | 60 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 2d 66 69 6c 65 27 20 66 6f | `slime-compile-and-load-file'.fo |
| 1450c0 | 72 20 66 75 72 74 68 65 72 20 64 65 74 61 69 6c 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | r.further.details."...(interacti |
| 1450e0 | 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 | ve)...(unless.buffer-file-name.. |
| 145100 | 20 20 20 28 65 72 72 6f 72 20 22 42 75 66 66 65 72 20 25 73 20 69 73 20 6e 6f 74 20 61 73 73 6f | ...(error."Buffer.%s.is.not.asso |
| 145120 | 63 69 61 74 65 64 20 77 69 74 68 20 61 20 66 69 6c 65 2e 22 20 28 62 75 66 66 65 72 2d 6e 61 6d | ciated.with.a.file.".(buffer-nam |
| 145140 | 65 29 29 29 0a 20 20 28 63 68 65 63 6b 2d 70 61 72 65 6e 73 29 0a 20 20 28 73 6c 69 6d 65 2d 2d | e)))...(check-parens)...(slime-- |
| 145160 | 6d 61 79 62 65 2d 73 61 76 65 2d 62 75 66 66 65 72 29 0a 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 | maybe-save-buffer)...(run-hook-w |
| 145180 | 69 74 68 2d 61 72 67 73 20 27 73 6c 69 6d 65 2d 62 65 66 6f 72 65 2d 63 6f 6d 70 69 6c 65 2d 66 | ith-args.'slime-before-compile-f |
| 1451a0 | 75 6e 63 74 69 6f 6e 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 | unctions.(point-min).(point-max) |
| 1451c0 | 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 | )...(let.((file.(slime-to-lisp-f |
| 1451e0 | 69 6c 65 6e 61 6d 65 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 | ilename.(buffer-file-name))).... |
| 145200 | 20 20 20 20 20 28 6f 70 74 69 6f 6e 73 20 28 73 6c 69 6d 65 2d 73 69 6d 70 6c 69 66 79 2d 70 6c | .....(options.(slime-simplify-pl |
| 145220 | 69 73 74 20 60 28 2c 40 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 70 74 69 6f | ist.`(,@slime-compile-file-optio |
| 145240 | 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ns.............................. |
| 145260 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 6f 6c 69 63 79 20 2c 70 6f 6c 69 63 79 29 29 29 29 0a | ............:policy.,policy)))). |
| 145280 | 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 20 20 60 28 | ....(slime-eval-async.........`( |
| 1452a0 | 73 77 61 6e 6b 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 66 6f 72 2d 65 6d 61 63 73 20 2c 66 69 | swank:compile-file-for-emacs.,fi |
| 1452c0 | 6c 65 20 2c 28 69 66 20 6c 6f 61 64 20 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | le.,(if.load.t.nil)............. |
| 1452e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 2c 28 73 | .............................,(s |
| 145300 | 6c 69 6d 65 2d 68 61 63 6b 2d 71 75 6f 74 65 73 20 6f 70 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 | lime-hack-quotes.options))...... |
| 145320 | 20 23 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 29 0a 20 | .#'slime-compilation-finished).. |
| 145340 | 20 20 20 28 6d 65 73 73 61 67 65 20 22 43 6f 6d 70 69 6c 69 6e 67 20 25 73 2e 2e 2e 22 20 66 69 | ...(message."Compiling.%s...".fi |
| 145360 | 6c 65 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 73 61 76 | le)))..;;.FIXME:.compilation-sav |
| 145380 | 65 2d 62 75 66 66 65 72 73 2d 70 72 65 64 69 63 61 74 65 20 77 61 73 20 69 6e 74 72 6f 64 75 63 | e-buffers-predicate.was.introduc |
| 1453a0 | 65 64 20 69 6e 20 32 34 2e 31 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 2d 6d 61 79 62 65 2d 73 | ed.in.24.1.(defun.slime--maybe-s |
| 1453c0 | 61 76 65 2d 62 75 66 66 65 72 20 28 29 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 2d 74 68 | ave-buffer.()...(let.((slime--th |
| 1453e0 | 69 73 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 | is-buffer.(current-buffer))).... |
| 145400 | 20 28 73 61 76 65 2d 73 6f 6d 65 2d 62 75 66 66 65 72 73 20 28 6e 6f 74 20 63 6f 6d 70 69 6c 61 | .(save-some-buffers.(not.compila |
| 145420 | 74 69 6f 6e 2d 61 73 6b 2d 61 62 6f 75 74 2d 73 61 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | tion-ask-about-save)............ |
| 145440 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 65 71 20 28 63 75 72 72 | ............(lambda.().(eq.(curr |
| 145460 | 65 6e 74 2d 62 75 66 66 65 72 29 20 73 6c 69 6d 65 2d 2d 74 68 69 73 2d 62 75 66 66 65 72 29 29 | ent-buffer).slime--this-buffer)) |
| 145480 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 68 61 63 6b 2d 71 75 6f 74 65 73 20 28 61 | )))..(defun.slime-hack-quotes.(a |
| 1454a0 | 72 67 6c 69 73 74 29 0a 20 20 3b 3b 20 65 76 61 6c 20 69 73 20 74 68 65 20 77 72 6f 6e 67 20 70 | rglist)...;;.eval.is.the.wrong.p |
| 1454c0 | 72 69 6d 69 74 69 76 65 2c 20 77 65 20 72 65 61 6c 6c 79 20 77 61 6e 74 20 66 75 6e 63 61 6c 6c | rimitive,.we.really.want.funcall |
| 1454e0 | 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 61 72 67 20 69 6e 20 61 72 67 6c 69 73 74 20 63 | ...(cl-loop.for.arg.in.arglist.c |
| 145500 | 6f 6c 6c 65 63 74 20 60 28 71 75 6f 74 65 20 2c 61 72 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | ollect.`(quote.,arg)))..(defun.s |
| 145520 | 6c 69 6d 65 2d 73 69 6d 70 6c 69 66 79 2d 70 6c 69 73 74 20 28 70 6c 69 73 74 29 0a 20 20 28 63 | lime-simplify-plist.(plist)...(c |
| 145540 | 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6b 65 79 20 76 61 6c 29 20 6f 6e 20 70 6c 69 73 74 20 62 79 | l-loop.for.(key.val).on.plist.by |
| 145560 | 20 23 27 63 64 64 72 0a 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 63 6f 6e 64 20 | .#'cddr............append.(cond. |
| 145580 | 28 28 6e 75 6c 6c 20 76 61 6c 29 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ((null.val).'())................ |
| 1455a0 | 20 20 20 20 20 20 20 20 20 28 74 20 28 6c 69 73 74 20 6b 65 79 20 76 61 6c 29 29 29 29 29 0a 0a | .........(t.(list.key.val))))).. |
| 1455c0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 64 65 66 75 6e 20 28 26 6f 70 74 | (defun.slime-compile-defun.(&opt |
| 1455e0 | 69 6f 6e 61 6c 20 72 61 77 2d 70 72 65 66 69 78 2d 61 72 67 29 0a 20 20 22 43 6f 6d 70 69 6c 65 | ional.raw-prefix-arg)..."Compile |
| 145600 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 6f 70 6c 65 76 65 6c 20 66 6f 72 6d 2e 0a 0a 57 69 74 | .the.current.toplevel.form...Wit |
| 145620 | 68 20 28 70 6f 73 69 74 69 76 65 29 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 74 68 65 | h.(positive).prefix.argument.the |
| 145640 | 20 66 6f 72 6d 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 20 6d 61 78 69 6d 61 6c 0a 64 | .form.is.compiled.with.maximal.d |
| 145660 | 65 62 75 67 20 73 65 74 74 69 6e 67 73 20 28 60 43 2d 75 27 29 2e 20 57 69 74 68 20 6e 65 67 61 | ebug.settings.(`C-u')..With.nega |
| 145680 | 74 69 76 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 74 20 69 73 20 63 6f 6d 70 69 | tive.prefix.argument.it.is.compi |
| 1456a0 | 6c 65 64 20 66 6f 72 0a 73 70 65 65 64 20 28 60 4d 2d 2d 27 29 2e 20 49 66 20 61 20 6e 75 6d 65 | led.for.speed.(`M--')..If.a.nume |
| 1456c0 | 72 69 63 20 61 72 67 75 6d 65 6e 74 20 69 73 20 70 61 73 73 65 64 20 73 65 74 20 64 65 62 75 67 | ric.argument.is.passed.set.debug |
| 1456e0 | 20 6f 72 20 73 70 65 65 64 20 73 65 74 74 69 6e 67 73 0a 74 6f 20 69 74 20 64 65 70 65 6e 64 69 | .or.speed.settings.to.it.dependi |
| 145700 | 6e 67 20 6f 6e 20 69 74 73 20 73 69 67 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 | ng.on.its.sign."...(interactive. |
| 145720 | 22 50 22 29 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d | "P")...(let.((slime-compilation- |
| 145740 | 70 6f 6c 69 63 79 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 75 74 65 2d 70 6f 6c 69 63 79 20 72 61 77 | policy.(slime-compute-policy.raw |
| 145760 | 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a 20 20 20 20 28 69 66 20 28 75 73 65 2d 72 65 67 69 | -prefix-arg))).....(if.(use-regi |
| 145780 | 6f 6e 2d 70 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 72 65 67 | on-p).........(slime-compile-reg |
| 1457a0 | 69 6f 6e 20 28 72 65 67 69 6f 6e 2d 62 65 67 69 6e 6e 69 6e 67 29 20 28 72 65 67 69 6f 6e 2d 65 | ion.(region-beginning).(region-e |
| 1457c0 | 6e 64 29 29 0a 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c | nd)).......(apply.#'slime-compil |
| 1457e0 | 65 2d 72 65 67 69 6f 6e 20 28 73 6c 69 6d 65 2d 72 65 67 69 6f 6e 2d 66 6f 72 2d 64 65 66 75 6e | e-region.(slime-region-for-defun |
| 145800 | 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d | -at-point)))))..(defun.slime-com |
| 145820 | 70 69 6c 65 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 43 6f 6d 70 69 | pile-region.(start.end)..."Compi |
| 145840 | 6c 65 20 74 68 65 20 72 65 67 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 | le.the.region."...(interactive." |
| 145860 | 72 22 29 0a 20 20 3b 3b 20 43 68 65 63 6b 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 65 66 6f 72 65 | r")...;;.Check.connection.before |
| 145880 | 20 72 75 6e 6e 69 6e 67 20 68 6f 6f 6b 73 20 74 68 69 6e 67 73 20 6c 69 6b 65 0a 20 20 3b 3b 20 | .running.hooks.things.like...;;. |
| 1458a0 | 73 6c 69 6d 65 2d 66 6c 61 73 68 2d 72 65 67 69 6f 6e 20 64 6f 6e 27 74 20 6d 61 6b 65 20 6d 75 | slime-flash-region.don't.make.mu |
| 1458c0 | 63 68 20 73 65 6e 73 65 20 69 66 20 74 68 65 72 65 27 73 20 6e 6f 20 63 6f 6e 6e 65 63 74 69 6f | ch.sense.if.there's.no.connectio |
| 1458e0 | 6e 0a 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 73 6c 69 6d 65 2d | n...(slime-connection)...(slime- |
| 145900 | 66 6c 61 73 68 2d 72 65 67 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 72 75 6e 2d 68 | flash-region.start.end)...(run-h |
| 145920 | 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 20 27 73 6c 69 6d 65 2d 62 65 66 6f 72 65 2d 63 6f 6d 70 | ook-with-args.'slime-before-comp |
| 145940 | 69 6c 65 2d 66 75 6e 63 74 69 6f 6e 73 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 73 6c 69 6d | ile-functions.start.end)...(slim |
| 145960 | 65 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 | e-compile-string.(buffer-substri |
| 145980 | 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 73 74 61 72 74 20 65 6e 64 29 20 73 74 61 72 | ng-no-properties.start.end).star |
| 1459a0 | 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 6c 61 73 68 2d 72 65 67 69 6f 6e 20 28 | t))..(defun.slime-flash-region.( |
| 1459c0 | 73 74 61 72 74 20 65 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 22 | start.end.&optional.timeout)..." |
| 1459e0 | 54 65 6d 70 6f 72 61 72 69 6c 79 20 68 69 67 68 6c 69 67 68 74 20 72 65 67 69 6f 6e 20 66 72 6f | Temporarily.highlight.region.fro |
| 145a00 | 6d 20 53 54 41 52 54 20 74 6f 20 45 4e 44 2e 22 0a 20 20 28 6c 65 74 20 28 28 6f 76 65 72 6c 61 | m.START.to.END."...(let.((overla |
| 145a20 | 79 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 73 74 61 72 74 20 65 6e 64 29 29 29 0a 20 20 20 | y.(make-overlay.start.end))).... |
| 145a40 | 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 66 61 63 65 20 27 73 65 63 | .(overlay-put.overlay.'face.'sec |
| 145a60 | 6f 6e 64 61 72 79 2d 73 65 6c 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 72 75 6e 2d 77 69 74 68 2d | ondary-selection).....(run-with- |
| 145a80 | 74 69 6d 65 72 20 28 6f 72 20 74 69 6d 65 6f 75 74 20 30 2e 32 29 20 6e 69 6c 20 27 64 65 6c 65 | timer.(or.timeout.0.2).nil.'dele |
| 145aa0 | 74 65 2d 6f 76 65 72 6c 61 79 20 6f 76 65 72 6c 61 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | te-overlay.overlay)))..(defun.sl |
| 145ac0 | 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 73 74 61 72 74 | ime-compile-string.(string.start |
| 145ae0 | 2d 6f 66 66 73 65 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 6c 69 6e 65 20 28 73 61 76 65 2d 65 78 | -offset)...(let*.((line.(save-ex |
| 145b00 | 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | cursion..................(goto-c |
| 145b20 | 68 61 72 20 73 74 61 72 74 2d 6f 66 66 73 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | har.start-offset)............... |
| 145b40 | 20 20 20 28 6c 69 73 74 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 29 20 28 31 | ...(list.(line-number-at-pos).(1 |
| 145b60 | 2b 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | +.(current-column))))).......... |
| 145b80 | 28 70 6f 73 69 74 69 6f 6e 20 60 28 28 3a 70 6f 73 69 74 69 6f 6e 20 2c 73 74 61 72 74 2d 6f 66 | (position.`((:position.,start-of |
| 145ba0 | 66 73 65 74 29 20 28 3a 6c 69 6e 65 20 2c 40 6c 69 6e 65 29 29 29 29 0a 20 20 20 20 28 73 6c 69 | fset).(:line.,@line)))).....(sli |
| 145bc0 | 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b 3a 63 6f | me-eval-async.........`(swank:co |
| 145be0 | 6d 70 69 6c 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 65 6d 61 63 73 0a 20 20 20 20 20 20 20 20 20 | mpile-string-for-emacs.......... |
| 145c00 | 20 2c 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 2c 28 62 75 66 66 65 72 2d 6e 61 6d 65 | .,string...........,(buffer-name |
| 145c20 | 29 0a 20 20 20 20 20 20 20 20 20 20 27 2c 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | )...........',position.......... |
| 145c40 | 20 2c 28 69 66 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 20 28 73 6c 69 6d 65 2d | .,(if.(buffer-file-name).(slime- |
| 145c60 | 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 | to-lisp-filename.(buffer-file-na |
| 145c80 | 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 27 2c 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 | me)))...........',slime-compilat |
| 145ca0 | 69 6f 6e 2d 70 6f 6c 69 63 79 29 0a 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c | ion-policy).......#'slime-compil |
| 145cc0 | 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c | ation-finished)))..(defcustom.sl |
| 145ce0 | 69 6d 65 2d 6c 6f 61 64 2d 66 61 69 6c 65 64 2d 66 61 73 6c 20 27 61 73 6b 0a 20 20 22 57 68 69 | ime-load-failed-fasl.'ask..."Whi |
| 145d00 | 63 68 20 61 63 74 69 6f 6e 20 74 6f 20 74 61 6b 65 20 77 68 65 6e 20 43 4f 4d 50 49 4c 45 2d 46 | ch.action.to.take.when.COMPILE-F |
| 145d20 | 49 4c 45 20 73 65 74 20 46 41 49 4c 55 52 45 2d 50 20 74 6f 20 54 2e 0a 4e 45 56 45 52 20 64 6f | ILE.set.FAILURE-P.to.T..NEVER.do |
| 145d40 | 65 73 6e 27 74 20 6c 6f 61 64 20 74 68 65 20 66 61 73 6c 0a 41 4c 57 41 59 53 20 6c 6f 61 64 73 | esn't.load.the.fasl.ALWAYS.loads |
| 145d60 | 20 74 68 65 20 66 61 73 6c 0a 41 53 4b 20 61 73 6b 73 20 74 68 65 20 75 73 65 72 2e 22 0a 20 20 | .the.fasl.ASK.asks.the.user."... |
| 145d80 | 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 6e 65 76 65 72 29 0a 20 20 20 | :type.'(choice.(const.never).... |
| 145da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 61 6c 77 61 79 73 29 0a 20 20 20 | ..............(const.always).... |
| 145dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 61 73 6b 29 29 29 0a 0a 28 64 65 | ..............(const.ask)))..(de |
| 145de0 | 66 75 6e 20 73 6c 69 6d 65 2d 6c 6f 61 64 2d 66 61 69 6c 65 64 2d 66 61 73 6c 2d 70 20 28 29 0a | fun.slime-load-failed-fasl-p.(). |
| 145e00 | 20 20 28 63 6c 2d 65 63 61 73 65 20 73 6c 69 6d 65 2d 6c 6f 61 64 2d 66 61 69 6c 65 64 2d 66 61 | ..(cl-ecase.slime-load-failed-fa |
| 145e20 | 73 6c 0a 20 20 20 20 28 6e 65 76 65 72 20 6e 69 6c 29 0a 20 20 20 20 28 61 6c 77 61 79 73 20 74 | sl.....(never.nil).....(always.t |
| 145e40 | 29 0a 20 20 20 20 28 61 73 6b 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 43 6f 6d 70 69 6c 61 74 69 6f | ).....(ask.(y-or-n-p."Compilatio |
| 145e60 | 6e 20 66 61 69 6c 65 64 2e 20 20 4c 6f 61 64 20 66 61 73 6c 20 66 69 6c 65 20 61 6e 79 77 61 79 | n.failed...Load.fasl.file.anyway |
| 145e80 | 3f 20 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f | ?."))))..(defun.slime-compilatio |
| 145ea0 | 6e 2d 66 69 6e 69 73 68 65 64 20 28 72 65 73 75 6c 74 29 0a 20 20 28 77 69 74 68 2d 73 74 72 75 | n-finished.(result)...(with-stru |
| 145ec0 | 63 74 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 2e 20 6e 6f | ct.(slime-compilation-result..no |
| 145ee0 | 74 65 73 20 64 75 72 61 74 69 6f 6e 20 73 75 63 63 65 73 73 70 0a 20 20 20 20 20 20 20 20 20 20 | tes.duration.successp........... |
| 145f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 145f20 | 6c 6f 61 64 70 20 66 61 73 6c 66 69 6c 65 29 20 72 65 73 75 6c 74 0a 20 20 20 20 28 73 65 74 66 | loadp.faslfile).result.....(setf |
| 145f40 | 20 73 6c 69 6d 65 2d 6c 61 73 74 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 20 72 | .slime-last-compilation-result.r |
| 145f60 | 65 73 75 6c 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 2d 6e 6f 74 65 2d 63 6f 75 6e | esult).....(slime-show-note-coun |
| 145f80 | 74 73 20 6e 6f 74 65 73 20 64 75 72 61 74 69 6f 6e 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 6c 6f | ts.notes.duration.(cond.((not.lo |
| 145fa0 | 61 64 70 29 20 73 75 63 63 65 73 73 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | adp).successp).................. |
| 145fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 145fe0 | 28 74 20 28 61 6e 64 20 66 61 73 6c 66 69 6c 65 20 73 75 63 63 65 73 73 70 29 29 29 29 0a 20 20 | (t.(and.faslfile.successp))))... |
| 146000 | 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 63 6f 6d 70 69 6c 65 72 | ..(when.slime-highlight-compiler |
| 146020 | 2d 6e 6f 74 65 73 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 6e 6f | -notes.......(slime-highlight-no |
| 146040 | 74 65 73 20 6e 6f 74 65 73 29 29 0a 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 | tes.notes)).....(run-hook-with-a |
| 146060 | 72 67 73 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 2d | rgs.'slime-compilation-finished- |
| 146080 | 68 6f 6f 6b 20 6e 6f 74 65 73 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6c 6f 61 64 70 | hook.notes).....(when.(and.loadp |
| 1460a0 | 20 66 61 73 6c 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 73 75 63 | .faslfile................(or.suc |
| 1460c0 | 63 65 73 73 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | cessp....................(slime- |
| 1460e0 | 6c 6f 61 64 2d 66 61 69 6c 65 64 2d 66 61 73 6c 2d 70 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 | load-failed-fasl-p))).......(sli |
| 146100 | 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 6c 6f 61 64 2d 66 69 6c 65 20 | me-eval-async.`(swank:load-file. |
| 146120 | 2c 66 61 73 6c 66 69 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 68 6f | ,faslfile)))))..(defun.slime-sho |
| 146140 | 77 2d 6e 6f 74 65 2d 63 6f 75 6e 74 73 20 28 6e 6f 74 65 73 20 73 65 63 73 20 73 75 63 63 65 73 | w-note-counts.(notes.secs.succes |
| 146160 | 73 70 29 0a 20 20 28 6d 65 73 73 61 67 65 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 | sp)...(message.(concat.......... |
| 146180 | 20 20 20 28 63 6f 6e 64 20 28 73 75 63 63 65 73 73 70 20 22 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 | ...(cond.(successp."Compilation. |
| 1461a0 | 66 69 6e 69 73 68 65 64 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 | finished")...................(t. |
| 1461c0 | 28 73 6c 69 6d 65 2d 61 64 64 2d 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 77 61 72 6e 69 | (slime-add-face.'font-lock-warni |
| 1461e0 | 6e 67 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | ng-face........................" |
| 146200 | 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 66 61 69 6c 65 64 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 | Compilation.failed"))).......... |
| 146220 | 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 6e 6f 74 65 73 29 20 22 2e 20 28 4e 6f 20 77 61 72 6e 69 | ...(if.(null.notes)."..(No.warni |
| 146240 | 6e 67 73 29 22 20 22 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 | ngs)".":.").............(mapconc |
| 146260 | 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6d 65 73 73 61 67 65 | at..............(lambda.(message |
| 146280 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 | s)................(cl-destructur |
| 1462a0 | 69 6e 67 2d 62 69 6e 64 20 28 73 65 76 20 2e 20 6e 6f 74 65 73 29 20 6d 65 73 73 61 67 65 73 0a | ing-bind.(sev...notes).messages. |
| 1462c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 65 6e 20 28 6c 65 6e | .................(let.((len.(len |
| 1462e0 | 67 74 68 20 6e 6f 74 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gth.notes))).................... |
| 146300 | 28 66 6f 72 6d 61 74 20 22 25 64 20 25 73 25 73 22 20 6c 65 6e 20 28 73 6c 69 6d 65 2d 73 65 76 | (format."%d.%s%s".len.(slime-sev |
| 146320 | 65 72 69 74 79 2d 6c 61 62 65 6c 20 73 65 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | erity-label.sev)................ |
| 146340 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3d 20 6c 65 6e 20 31 29 20 22 22 20 22 73 22 | ............(if.(=.len.1).""."s" |
| 146360 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 72 74 20 28 73 6c 69 6d 65 2d | )))))..............(sort.(slime- |
| 146380 | 61 6c 69 73 74 69 66 79 20 6e 6f 74 65 73 20 23 27 73 6c 69 6d 65 2d 6e 6f 74 65 2e 73 65 76 65 | alistify.notes.#'slime-note.seve |
| 1463a0 | 72 69 74 79 20 23 27 65 71 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | rity.#'eq)....................(l |
| 1463c0 | 61 6d 62 64 61 20 28 78 20 79 29 20 28 73 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 3c 20 28 63 61 | ambda.(x.y).(slime-severity<.(ca |
| 1463e0 | 72 20 79 29 20 28 63 61 72 20 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 | r.y).(car.x))))..............".. |
| 146400 | 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 73 65 63 73 20 28 66 6f 72 6d 61 74 20 | ").............(if.secs.(format. |
| 146420 | 22 20 20 5b 25 2e 32 66 20 73 65 63 73 5d 22 20 73 65 63 73 29 29 29 29 29 0a 0a 28 64 65 66 75 | "..[%.2f.secs]".secs)))))..(defu |
| 146440 | 6e 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 6e 6f 74 65 73 20 28 6e 6f 74 65 73 29 0a | n.slime-highlight-notes.(notes). |
| 146460 | 20 20 22 48 69 67 68 6c 69 67 68 74 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 2c 20 77 61 72 | .."Highlight.compiler.notes,.war |
| 146480 | 6e 69 6e 67 73 2c 20 61 6e 64 20 65 72 72 6f 72 73 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e | nings,.and.errors.in.the.buffer. |
| 1464a0 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 63 6f | "...(interactive.(list.(slime-co |
| 1464c0 | 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 29 29 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 6d 65 73 | mpiler-notes)))...(with-temp-mes |
| 1464e0 | 73 61 67 65 20 22 48 69 67 68 6c 69 67 68 74 69 6e 67 20 6e 6f 74 65 73 2e 2e 2e 22 0a 20 20 20 | sage."Highlighting.notes...".... |
| 146500 | 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 73 61 76 65 2d 72 65 73 | .(save-excursion.......(save-res |
| 146520 | 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 77 69 64 65 6e 29 20 20 20 20 20 20 20 20 | triction.........(widen)........ |
| 146540 | 20 20 20 20 20 20 20 20 20 20 3b 20 68 69 67 68 6c 69 67 68 74 20 6e 6f 74 65 73 20 6f 6e 20 74 | ..........;.highlight.notes.on.t |
| 146560 | 68 65 20 77 68 6f 6c 65 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 | he.whole.buffer.........(slime-r |
| 146580 | 65 6d 6f 76 65 2d 6f 6c 64 2d 6f 76 65 72 6c 61 79 73 29 0a 20 20 20 20 20 20 20 20 28 6d 61 70 | emove-old-overlays).........(map |
| 1465a0 | 63 20 23 27 73 6c 69 6d 65 2d 6f 76 65 72 6c 61 79 2d 6e 6f 74 65 20 28 73 6c 69 6d 65 2d 6d 65 | c.#'slime-overlay-note.(slime-me |
| 1465c0 | 72 67 65 2d 6e 6f 74 65 73 2d 66 6f 72 2d 64 69 73 70 6c 61 79 20 6e 6f 74 65 73 29 29 29 29 29 | rge-notes-for-display.notes))))) |
| 1465e0 | 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6e 6f 74 65 2d 6f 76 65 72 6c 61 79 73 20 27 | )..(defvar.slime-note-overlays.' |
| 146600 | 28 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 6f 76 65 72 6c 61 79 73 20 63 72 65 61 74 65 64 20 62 | ()..."List.of.overlays.created.b |
| 146620 | 79 20 60 73 6c 69 6d 65 2d 6d 61 6b 65 2d 6e 6f 74 65 2d 6f 76 65 72 6c 61 79 27 22 29 0a 0a 28 | y.`slime-make-note-overlay'")..( |
| 146640 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 6f 6c 64 2d 6f 76 65 72 6c 61 79 73 20 | defun.slime-remove-old-overlays. |
| 146660 | 28 29 0a 20 20 22 44 65 6c 65 74 65 20 74 68 65 20 65 78 69 73 74 69 6e 67 20 6e 6f 74 65 20 6f | ()..."Delete.the.existing.note.o |
| 146680 | 76 65 72 6c 61 79 73 2e 22 0a 20 20 28 6d 61 70 63 20 23 27 64 65 6c 65 74 65 2d 6f 76 65 72 6c | verlays."...(mapc.#'delete-overl |
| 1466a0 | 61 79 20 73 6c 69 6d 65 2d 6e 6f 74 65 2d 6f 76 65 72 6c 61 79 73 29 0a 20 20 28 73 65 74 71 20 | ay.slime-note-overlays)...(setq. |
| 1466c0 | 73 6c 69 6d 65 2d 6e 6f 74 65 2d 6f 76 65 72 6c 61 79 73 20 27 28 29 29 29 0a 0a 28 64 65 66 75 | slime-note-overlays.'()))..(defu |
| 1466e0 | 6e 20 73 6c 69 6d 65 2d 66 69 6c 74 65 72 2d 62 75 66 66 65 72 73 20 28 70 72 65 64 69 63 61 74 | n.slime-filter-buffers.(predicat |
| 146700 | 65 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 77 68 65 72 65 20 50 52 45 | e)..."Return.a.list.of.where.PRE |
| 146720 | 44 49 43 41 54 45 20 72 65 74 75 72 6e 73 20 74 72 75 65 2e 0a 50 52 45 44 49 43 41 54 45 20 69 | DICATE.returns.true..PREDICATE.i |
| 146740 | 73 20 65 78 65 63 75 74 65 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 74 6f 20 74 65 73 74 | s.executed.in.the.buffer.to.test |
| 146760 | 2e 22 0a 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 28 6c 61 6d 62 64 61 20 28 | ."...(cl-remove-if-not.(lambda.( |
| 146780 | 25 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | %buffer).......................( |
| 1467a0 | 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 25 62 75 66 66 65 72 0a 20 20 20 20 | with-current-buffer.%buffer..... |
| 1467c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 70 72 65 | ....................(funcall.pre |
| 1467e0 | 64 69 63 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 | dicate))).....................(b |
| 146800 | 75 66 66 65 72 2d 6c 69 73 74 29 29 29 0a 0c 0a 3b 3b 3b 3b 3b 20 52 65 63 6f 6d 70 69 6c 61 74 | uffer-list)))...;;;;;.Recompilat |
| 146820 | 69 6f 6e 2e 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 54 68 69 73 20 77 68 6f 6c 65 20 69 64 65 61 20 | ion...;;.FIXME:.This.whole.idea. |
| 146840 | 69 73 20 71 75 65 73 74 69 6f 6e 61 62 6c 65 20 73 69 6e 63 65 20 69 74 20 64 65 70 65 6e 64 73 | is.questionable.since.it.depends |
| 146860 | 20 73 6f 0a 3b 3b 20 63 72 75 63 69 61 6c 6c 79 20 6f 6e 20 70 72 65 63 69 73 65 20 73 6f 75 72 | .so.;;.crucially.on.precise.sour |
| 146880 | 63 65 2d 6c 6f 63 73 2e 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 | ce-locs...(defun.slime-recompile |
| 1468a0 | 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 73 61 76 65 2d 65 78 63 | -location.(location)...(save-exc |
| 1468c0 | 75 72 73 69 6f 6e 0a 20 20 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 73 6f 75 72 63 65 2d 6c 6f | ursion.....(slime-goto-source-lo |
| 1468e0 | 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 | cation.location).....(slime-comp |
| 146900 | 69 6c 65 2d 64 65 66 75 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 63 6f 6d | ile-defun)))..(defun.slime-recom |
| 146920 | 70 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 28 6c 6f 63 61 74 69 6f 6e 73 20 63 6f 6e 74 29 0a | pile-locations.(locations.cont). |
| 146940 | 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 60 28 73 77 61 6e | ..(slime-eval-async.......`(swan |
| 146960 | 6b 3a 63 6f 6d 70 69 6c 65 2d 6d 75 6c 74 69 70 6c 65 2d 73 74 72 69 6e 67 73 2d 66 6f 72 2d 65 | k:compile-multiple-strings-for-e |
| 146980 | 6d 61 63 73 0a 20 20 20 20 20 20 20 20 27 2c 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6c 6f 63 20 | macs.........',(cl-loop.for.loc. |
| 1469a0 | 69 6e 20 6c 6f 63 61 74 69 6f 6e 73 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 | in.locations.collect............ |
| 1469c0 | 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 | ........(save-excursion......... |
| 1469e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 73 6f 75 72 63 65 2d | .............(slime-goto-source- |
| 146a00 | 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | location.loc)................... |
| 146a20 | 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 73 74 61 72 74 | ...(cl-destructuring-bind.(start |
| 146a40 | 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .end)..........................( |
| 146a60 | 73 6c 69 6d 65 2d 72 65 67 69 6f 6e 2d 66 6f 72 2d 64 65 66 75 6e 2d 61 74 2d 70 6f 69 6e 74 29 | slime-region-for-defun-at-point) |
| 146a80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 62 | ........................(list.(b |
| 146aa0 | 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 73 74 | uffer-substring-no-properties.st |
| 146ac0 | 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | art.end)........................ |
| 146ae0 | 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(buffer-name)............. |
| 146b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d | .................(slime-current- |
| 146b20 | 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | package)........................ |
| 146b40 | 20 20 20 20 20 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......start..................... |
| 146b60 | 20 20 20 20 20 20 20 20 20 28 69 66 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a | .........(if.(buffer-file-name). |
| 146b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 146ba0 | 20 28 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 28 62 75 66 66 65 72 | .(slime-to-lisp-filename.(buffer |
| 146bc0 | 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -file-name)).................... |
| 146be0 | 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 27 2c 73 | ............nil))))).........',s |
| 146c00 | 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 70 6f 6c 69 63 79 29 0a 20 20 20 20 63 6f 6e | lime-compilation-policy).....con |
| 146c20 | 74 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 4d 65 72 67 69 6e 67 20 74 6f 67 65 74 68 65 72 20 63 6f | t))....;;;;;.Merging.together.co |
| 146c40 | 6d 70 69 6c 65 72 20 6e 6f 74 65 73 20 69 6e 20 74 68 65 20 73 61 6d 65 20 6c 6f 63 61 74 69 6f | mpiler.notes.in.the.same.locatio |
| 146c60 | 6e 2e 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 65 72 67 65 2d 6e 6f 74 65 73 2d 66 6f 72 | n...(defun.slime-merge-notes-for |
| 146c80 | 2d 64 69 73 70 6c 61 79 20 28 6e 6f 74 65 73 29 0a 20 20 22 4d 65 72 67 65 20 74 6f 67 65 74 68 | -display.(notes)..."Merge.togeth |
| 146ca0 | 65 72 20 6e 6f 74 65 73 20 74 68 61 74 20 72 65 66 65 72 20 74 6f 20 74 68 65 20 73 61 6d 65 20 | er.notes.that.refer.to.the.same. |
| 146cc0 | 6c 6f 63 61 74 69 6f 6e 2e 0a 54 68 69 73 20 6f 70 65 72 61 74 69 6f 6e 20 69 73 20 5c 22 6c 6f | location..This.operation.is.\"lo |
| 146ce0 | 73 73 79 5c 22 20 69 6e 20 74 68 65 20 62 72 6f 61 64 20 73 65 6e 73 65 20 62 75 74 20 6e 6f 74 | ssy\".in.the.broad.sense.but.not |
| 146d00 | 20 66 6f 72 20 64 69 73 70 6c 61 79 20 70 75 72 70 6f 73 65 73 2e 22 0a 20 20 28 6d 61 70 63 61 | .for.display.purposes."...(mapca |
| 146d20 | 72 20 23 27 73 6c 69 6d 65 2d 6d 65 72 67 65 2d 6e 6f 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 | r.#'slime-merge-notes........... |
| 146d40 | 28 73 6c 69 6d 65 2d 67 72 6f 75 70 2d 73 69 6d 69 6c 61 72 20 27 73 6c 69 6d 65 2d 6e 6f 74 65 | (slime-group-similar.'slime-note |
| 146d60 | 73 2d 69 6e 2d 73 61 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 6e 6f 74 65 73 29 29 29 0a 0a 28 | s-in-same-location-p.notes)))..( |
| 146d80 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 65 72 67 65 2d 6e 6f 74 65 73 20 28 6e 6f 74 65 73 29 0a | defun.slime-merge-notes.(notes). |
| 146da0 | 20 20 22 4d 65 72 67 65 20 4e 4f 54 45 53 20 74 6f 67 65 74 68 65 72 2e 20 4b 65 65 70 20 74 68 | .."Merge.NOTES.together..Keep.th |
| 146dc0 | 65 20 68 69 67 68 65 73 74 20 73 65 76 65 72 69 74 79 2c 20 63 6f 6e 63 61 74 65 6e 61 74 65 20 | e.highest.severity,.concatenate. |
| 146de0 | 74 68 65 20 6d 65 73 73 61 67 65 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6e 65 77 2d 73 65 76 | the.messages."...(let*.((new-sev |
| 146e00 | 65 72 69 74 79 20 28 63 6c 2d 72 65 64 75 63 65 20 23 27 73 6c 69 6d 65 2d 6d 6f 73 74 2d 73 65 | erity.(cl-reduce.#'slime-most-se |
| 146e20 | 76 65 72 65 20 6e 6f 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | vere.notes...................... |
| 146e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 73 6c 69 6d 65 2d 6e 6f 74 65 2e 73 | .............:key.#'slime-note.s |
| 146e60 | 65 76 65 72 69 74 79 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 6d 65 73 73 61 67 65 20 | everity))..........(new-message. |
| 146e80 | 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6d 65 73 73 61 67 65 20 | (mapconcat.#'slime-note.message. |
| 146ea0 | 6e 6f 74 65 73 20 22 5c 6e 22 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6e 65 77 2d 6e 6f 74 | notes."\n"))).....(let.((new-not |
| 146ec0 | 65 20 28 63 6c 2d 63 6f 70 79 2d 6c 69 73 74 20 28 63 61 72 20 6e 6f 74 65 73 29 29 29 29 0a 20 | e.(cl-copy-list.(car.notes)))).. |
| 146ee0 | 20 20 20 20 20 28 73 65 74 66 20 28 63 6c 2d 67 65 74 66 20 6e 65 77 2d 6e 6f 74 65 20 3a 6d 65 | .....(setf.(cl-getf.new-note.:me |
| 146f00 | 73 73 61 67 65 29 20 6e 65 77 2d 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 | ssage).new-message).......(setf. |
| 146f20 | 28 63 6c 2d 67 65 74 66 20 6e 65 77 2d 6e 6f 74 65 20 3a 73 65 76 65 72 69 74 79 29 20 6e 65 77 | (cl-getf.new-note.:severity).new |
| 146f40 | 2d 73 65 76 65 72 69 74 79 29 0a 20 20 20 20 20 20 6e 65 77 2d 6e 6f 74 65 29 29 29 0a 0a 28 64 | -severity).......new-note)))..(d |
| 146f60 | 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 6f 74 65 73 2d 69 6e 2d 73 61 6d 65 2d 6c 6f 63 61 74 69 6f | efun.slime-notes-in-same-locatio |
| 146f80 | 6e 2d 70 20 28 61 20 62 29 0a 20 20 28 65 71 75 61 6c 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6c | n-p.(a.b)...(equal.(slime-note.l |
| 146fa0 | 6f 63 61 74 69 6f 6e 20 61 29 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6c 6f 63 61 74 69 6f 6e 20 | ocation.a).(slime-note.location. |
| 146fc0 | 62 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 43 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 20 6c 69 73 | b)))....;;;;;.Compiler.notes.lis |
| 146fe0 | 74 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6f 6e 65 2d 6c 69 6e 65 2d 69 66 79 20 28 73 74 | t..(defun.slime-one-line-ify.(st |
| 147000 | 72 69 6e 67 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 69 6e 67 6c 65 2d 6c 69 6e 65 20 76 65 | ring)..."Return.a.single-line.ve |
| 147020 | 72 73 69 6f 6e 20 6f 66 20 53 54 52 49 4e 47 2e 0a 45 61 63 68 20 6e 65 77 6c 69 6e 65 73 20 61 | rsion.of.STRING..Each.newlines.a |
| 147040 | 6e 64 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 69 73 20 72 65 70 6c | nd.following.indentation.is.repl |
| 147060 | 61 63 65 64 20 62 79 20 61 20 73 69 6e 67 6c 65 20 73 70 61 63 65 2e 22 0a 20 20 28 77 69 74 68 | aced.by.a.single.space."...(with |
| 147080 | 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 20 73 74 72 69 6e 67 29 | -temp-buffer.....(insert.string) |
| 1470a0 | 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 | .....(goto-char.(point-min)).... |
| 1470c0 | 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 6e 5b 5c | .(while.(re-search-forward."\n[\ |
| 1470e0 | 6e 20 5c 74 5d 2a 22 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 6d 61 | n.\t]*".nil.t).......(replace-ma |
| 147100 | 74 63 68 20 22 20 22 29 29 0a 20 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 0a | tch.".")).....(buffer-string))). |
| 147120 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 78 72 65 66 73 2d 66 6f 72 2d 6e 6f 74 65 73 20 28 6e | .(defun.slime-xrefs-for-notes.(n |
| 147140 | 6f 74 65 73 29 0a 20 20 28 6c 65 74 20 28 28 78 72 65 66 73 29 29 0a 20 20 20 20 28 64 6f 6c 69 | otes)...(let.((xrefs)).....(doli |
| 147160 | 73 74 20 28 6e 6f 74 65 20 6e 6f 74 65 73 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 6f | st.(note.notes).......(let*.((lo |
| 147180 | 63 61 74 69 6f 6e 20 28 63 6c 2d 67 65 74 66 20 6e 6f 74 65 20 3a 6c 6f 63 61 74 69 6f 6e 29 29 | cation.(cl-getf.note.:location)) |
| 1471a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6e 20 28 63 61 64 72 20 28 61 73 73 71 20 3a 66 | ..............(fn.(cadr.(assq.:f |
| 1471c0 | 69 6c 65 20 28 63 64 72 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ile.(cdr.location))))........... |
| 1471e0 | 20 20 20 28 66 69 6c 65 20 28 61 73 73 6f 63 20 66 6e 20 78 72 65 66 73 29 29 0a 20 20 20 20 20 | ...(file.(assoc.fn.xrefs))...... |
| 147200 | 20 20 20 20 20 20 20 20 28 6e 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | ........(node...............(lis |
| 147220 | 74 20 28 66 6f 72 6d 61 74 20 22 25 73 3a 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.(format."%s:.%s".............. |
| 147240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 67 65 74 66 20 6e 6f 74 65 20 3a 73 65 | ...............(cl-getf.note.:se |
| 147260 | 76 65 72 69 74 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | verity)......................... |
| 147280 | 20 20 20 20 28 73 6c 69 6d 65 2d 6f 6e 65 2d 6c 69 6e 65 2d 69 66 79 20 28 63 6c 2d 67 65 74 66 | ....(slime-one-line-ify.(cl-getf |
| 1472a0 | 20 6e 6f 74 65 20 3a 6d 65 73 73 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .note.:message)))............... |
| 1472c0 | 20 20 20 20 20 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | ......location))).........(when. |
| 1472e0 | 66 6e 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 | fn...........(if.file........... |
| 147300 | 20 20 20 20 28 70 75 73 68 20 6e 6f 64 65 20 28 63 64 72 20 66 69 6c 65 29 29 0a 20 20 20 20 20 | ....(push.node.(cdr.file))...... |
| 147320 | 20 20 20 20 20 20 20 28 73 65 74 66 20 78 72 65 66 73 20 28 63 6c 2d 61 63 6f 6e 73 20 66 6e 20 | .......(setf.xrefs.(cl-acons.fn. |
| 147340 | 28 6c 69 73 74 20 6e 6f 64 65 29 20 78 72 65 66 73 29 29 29 29 29 29 0a 20 20 20 20 78 72 65 66 | (list.node).xrefs)))))).....xref |
| 147360 | 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 79 62 65 2d 73 68 6f 77 2d 78 72 65 | s))..(defun.slime-maybe-show-xre |
| 147380 | 66 73 2d 66 6f 72 2d 6e 6f 74 65 73 20 28 6e 6f 74 65 73 29 0a 20 20 22 53 68 6f 77 20 74 68 65 | fs-for-notes.(notes)..."Show.the |
| 1473a0 | 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 20 4e 4f 54 45 53 20 69 66 20 74 68 65 79 20 63 6f | .compiler.notes.NOTES.if.they.co |
| 1473c0 | 6d 65 20 66 72 6f 6d 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 66 69 6c 65 2e 22 0a 20 20 28 | me.from.more.than.one.file."...( |
| 1473e0 | 6c 65 74 20 28 28 78 72 65 66 73 20 28 73 6c 69 6d 65 2d 78 72 65 66 73 2d 66 6f 72 2d 6e 6f 74 | let.((xrefs.(slime-xrefs-for-not |
| 147400 | 65 73 20 6e 6f 74 65 73 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 73 6c 69 6d 65 2d 6c 65 6e | es.notes))).....(when.(slime-len |
| 147420 | 67 74 68 3e 20 78 72 65 66 73 20 31 29 20 20 20 20 20 20 20 20 20 20 3b 20 3e 31 20 66 69 6c 65 | gth>.xrefs.1)..........;.>1.file |
| 147440 | 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 2d 78 72 65 66 73 0a 20 20 20 20 20 20 20 | .......(slime-show-xrefs........ |
| 147460 | 78 72 65 66 73 20 27 64 65 66 69 6e 69 74 69 6f 6e 20 22 43 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 | xrefs.'definition."Compiler.note |
| 147480 | 73 22 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 29 29 0a 0a | s".(slime-current-package))))).. |
| 1474a0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 6f 74 65 2d 68 61 73 2d 6c 6f 63 61 74 69 6f 6e 2d 70 | (defun.slime-note-has-location-p |
| 1474c0 | 20 28 6e 6f 74 65 29 0a 20 20 28 6e 6f 74 20 28 65 71 20 27 3a 65 72 72 6f 72 20 28 63 61 72 20 | .(note)...(not.(eq.':error.(car. |
| 1474e0 | 28 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6c 6f 63 61 74 69 6f 6e 20 6e 6f 74 65 29 29 29 29 29 0a 0a | (slime-note.location.note))))).. |
| 147500 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 6f 74 65 2d 70 | (defun.slime-redefinition-note-p |
| 147520 | 20 28 6e 6f 74 65 29 0a 20 20 28 65 71 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 2e 73 65 76 65 72 69 | .(note)...(eq.(slime-note.severi |
| 147540 | 74 79 20 6e 6f 74 65 29 20 3a 72 65 64 65 66 69 6e 69 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e | ty.note).:redefinition))..(defun |
| 147560 | 20 73 6c 69 6d 65 2d 63 72 65 61 74 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6c 6f 67 20 28 6e | .slime-create-compilation-log.(n |
| 147580 | 6f 74 65 73 29 0a 20 20 22 43 72 65 61 74 65 20 61 20 62 75 66 66 65 72 20 66 6f 72 20 60 6e 65 | otes)..."Create.a.buffer.for.`ne |
| 1475a0 | 78 74 2d 65 72 72 6f 72 27 20 74 6f 20 75 73 65 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 | xt-error'.to.use."...(with-curre |
| 1475c0 | 6e 74 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 28 73 6c | nt-buffer.(get-buffer-create.(sl |
| 1475e0 | 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 63 6f 6d 70 69 6c 61 74 69 6f 6e 29 29 0a 20 | ime-buffer-name.:compilation)).. |
| 147600 | 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a | ...(let.((inhibit-read-only.t)). |
| 147620 | 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 | ......(erase-buffer)).....(slime |
| 147640 | 2d 69 6e 73 65 72 74 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6c 6f 67 20 6e 6f 74 65 73 29 0a 20 | -insert-compilation-log.notes).. |
| 147660 | 20 20 20 28 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6d 6f 64 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ...(compilation-mode)))..(defun. |
| 147680 | 73 6c 69 6d 65 2d 6d 61 79 62 65 2d 73 68 6f 77 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6c 6f 67 | slime-maybe-show-compilation-log |
| 1476a0 | 20 28 6e 6f 74 65 73 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 6c 6f 67 20 6f 6e 20 66 | .(notes)..."Display.the.log.on.f |
| 1476c0 | 61 69 6c 65 64 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 73 20 6f 72 20 69 66 20 4e 4f 54 45 53 20 69 | ailed.compilations.or.if.NOTES.i |
| 1476e0 | 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 63 72 65 61 74 65 2d 63 6f 6d 70 | s.non-nil."...(slime-create-comp |
| 147700 | 69 6c 61 74 69 6f 6e 2d 6c 6f 67 20 6e 6f 74 65 73 29 0a 20 20 28 77 69 74 68 2d 73 74 72 75 63 | ilation-log.notes)...(with-struc |
| 147720 | 74 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 2e 20 6e 6f 74 | t.(slime-compilation-result..not |
| 147740 | 65 73 20 64 75 72 61 74 69 6f 6e 20 73 75 63 63 65 73 73 70 29 0a 20 20 20 20 20 20 73 6c 69 6d | es.duration.successp).......slim |
| 147760 | 65 2d 6c 61 73 74 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 0a 20 20 20 20 28 75 | e-last-compilation-result.....(u |
| 147780 | 6e 6c 65 73 73 20 73 75 63 63 65 73 73 70 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 | nless.successp.......(with-curre |
| 1477a0 | 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 63 6f | nt-buffer.(slime-buffer-name.:co |
| 1477c0 | 6d 70 69 6c 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 | mpilation).........(let.((inhibi |
| 1477e0 | 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d | t-read-only.t))...........(goto- |
| 147800 | 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 | char.(point-max))...........(ins |
| 147820 | 65 72 74 20 22 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 22 20 28 69 66 20 73 75 63 63 65 73 73 70 20 | ert."Compilation.".(if.successp. |
| 147840 | 22 73 75 63 63 65 65 64 65 64 2e 22 20 22 66 61 69 6c 65 64 2e 22 29 29 0a 20 20 20 20 20 20 20 | "succeeded."."failed."))........ |
| 147860 | 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 | ...(goto-char.(point-min))...... |
| 147880 | 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 | .....(display-buffer.(current-bu |
| 1478a0 | 66 66 65 72 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 68 6f 77 2d 63 | ffer)))))))..(defun.slime-show-c |
| 1478c0 | 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6c 6f 67 20 28 6e 6f 74 65 73 29 0a 20 20 22 43 72 65 61 74 65 | ompilation-log.(notes)..."Create |
| 1478e0 | 20 61 6e 64 20 64 69 73 70 6c 61 79 20 74 68 65 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6c 6f 67 | .and.display.the.compilation.log |
| 147900 | 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 | .buffer."...(interactive.(list.( |
| 147920 | 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 29 29 29 0a 20 20 28 73 6c 69 6d 65 | slime-compiler-notes)))...(slime |
| 147940 | 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 28 73 6c 69 6d 65 2d 62 75 66 66 65 | -with-popup-buffer.((slime-buffe |
| 147960 | 72 2d 6e 61 6d 65 20 3a 63 6f 6d 70 69 6c 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | r-name.:compilation)............ |
| 147980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 6f 64 65 20 27 63 6f 6d 70 69 6c 61 74 | .................:mode.'compilat |
| 1479a0 | 69 6f 6e 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 63 6f 6d 70 | ion-mode).....(slime-insert-comp |
| 1479c0 | 69 6c 61 74 69 6f 6e 2d 6c 6f 67 20 6e 6f 74 65 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | ilation-log.notes)))..(defun.sli |
| 1479e0 | 6d 65 2d 69 6e 73 65 72 74 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6c 6f 67 20 28 6e 6f 74 65 73 | me-insert-compilation-log.(notes |
| 147a00 | 29 0a 20 20 22 49 6e 73 65 72 74 20 4e 4f 54 45 53 20 69 6e 20 66 6f 72 6d 61 74 20 73 75 69 74 | )..."Insert.NOTES.in.format.suit |
| 147a20 | 61 62 6c 65 20 66 6f 72 20 60 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6d 6f 64 65 27 2e 22 0a 20 20 | able.for.`compilation-mode'."... |
| 147a40 | 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 67 72 6f 75 70 65 64 2d | (cl-destructuring-bind.(grouped- |
| 147a60 | 6e 6f 74 65 73 20 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 2d 6c 6f 63 73 2d 74 61 62 6c 65 29 0a | notes.canonicalized-locs-table). |
| 147a80 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 67 72 6f 75 70 2d 61 6e 64 2d 73 6f 72 74 2d 6e 6f 74 65 | ......(slime-group-and-sort-note |
| 147aa0 | 73 20 6e 6f 74 65 73 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 6d 65 73 73 61 67 65 20 | s.notes).....(with-temp-message. |
| 147ac0 | 22 50 72 65 70 61 72 69 6e 67 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6c 6f 67 2e 2e 2e 22 0a 20 | "Preparing.compilation.log...".. |
| 147ae0 | 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 | .....(let.((inhibit-read-only.t) |
| 147b00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 74 2d 6d 6f 64 69 66 69 63 61 74 69 | .............(inhibit-modificati |
| 147b20 | 6f 6e 2d 68 6f 6f 6b 73 20 74 29 29 20 3b 20 69 6e 65 66 66 69 63 69 65 6e 74 20 66 6f 6e 74 2d | on-hooks.t)).;.inefficient.font- |
| 147b40 | 6c 6f 63 6b 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 | lock-hook.........(insert.(forma |
| 147b60 | 74 20 22 63 64 20 25 73 5c 6e 25 64 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 3a 5c 6e 5c 6e | t."cd.%s\n%d.compiler.notes:\n\n |
| 147b80 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c | ".........................defaul |
| 147ba0 | 74 2d 64 69 72 65 63 74 6f 72 79 20 28 6c 65 6e 67 74 68 20 6e 6f 74 65 73 29 29 29 0a 20 20 20 | t-directory.(length.notes))).... |
| 147bc0 | 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6e 6f 74 65 73 20 67 72 6f 75 70 65 64 2d 6e 6f 74 65 | .....(dolist.(notes.grouped-note |
| 147be0 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 6f 63 20 28 67 65 74 68 61 73 68 | s)...........(let.((loc.(gethash |
| 147c00 | 20 28 63 6c 2d 66 69 72 73 74 20 6e 6f 74 65 73 29 20 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 2d | .(cl-first.notes).canonicalized- |
| 147c20 | 6c 6f 63 73 2d 74 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 | locs-table)).................(st |
| 147c40 | 61 72 74 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 | art.(point))).............(inser |
| 147c60 | 74 20 28 73 6c 69 6d 65 2d 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 2d 6c 6f 63 61 74 69 6f 6e 2d | t.(slime-canonicalized-location- |
| 147c80 | 74 6f 2d 73 74 72 69 6e 67 20 6c 6f 63 29 20 22 3a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | to-string.loc).":")............. |
| 147ca0 | 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 2d 67 72 6f 75 70 20 6e 6f 74 65 73 29 0a | (slime-insert-note-group.notes). |
| 147cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 | ............(insert."\n")....... |
| 147ce0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 61 6b 65 2d 6e 6f 74 65 2d 6f 76 65 72 6c 61 79 20 28 | ......(slime-make-note-overlay.( |
| 147d00 | 63 6c 2d 66 69 72 73 74 20 6e 6f 74 65 73 29 20 73 74 61 72 74 20 28 31 2d 20 28 70 6f 69 6e 74 | cl-first.notes).start.(1-.(point |
| 147d20 | 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 | )))))).......(set.(make-local-va |
| 147d40 | 72 69 61 62 6c 65 20 27 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 73 6b 69 70 2d 74 68 72 65 73 68 6f | riable.'compilation-skip-thresho |
| 147d60 | 6c 64 29 20 30 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 6e 65 78 74 2d 65 72 72 6f 72 2d 6c 61 | ld).0).......(setq.next-error-la |
| 147d80 | 73 74 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 29 0a 0a | st-buffer.(current-buffer))))).. |
| 147da0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 6e 6f 74 65 2d 67 72 6f 75 70 20 28 | (defun.slime-insert-note-group.( |
| 147dc0 | 6e 6f 74 65 73 29 0a 20 20 22 49 6e 73 65 72 74 20 61 20 67 72 6f 75 70 20 6f 66 20 63 6f 6d 70 | notes)..."Insert.a.group.of.comp |
| 147de0 | 69 6c 65 72 20 6d 65 73 73 61 67 65 73 2e 22 0a 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a | iler.messages."...(insert."\n"). |
| 147e00 | 20 20 28 64 6f 6c 69 73 74 20 28 6e 6f 74 65 20 6e 6f 74 65 73 29 0a 20 20 20 20 28 69 6e 73 65 | ..(dolist.(note.notes).....(inse |
| 147e20 | 72 74 20 22 20 20 22 20 28 73 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 2d 6c 61 62 65 6c 20 28 73 | rt."..".(slime-severity-label.(s |
| 147e40 | 6c 69 6d 65 2d 6e 6f 74 65 2e 73 65 76 65 72 69 74 79 20 6e 6f 74 65 29 29 20 22 3a 20 22 29 0a | lime-note.severity.note)).":."). |
| 147e60 | 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 | ....(let.((start.(point)))...... |
| 147e80 | 20 28 69 6e 73 65 72 74 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6d 65 73 73 61 67 65 20 6e 6f 74 | .(insert.(slime-note.message.not |
| 147ea0 | 65 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 74 78 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 | e)).......(let.((ctx.(slime-note |
| 147ec0 | 2e 73 6f 75 72 63 65 2d 63 6f 6e 74 65 78 74 20 6e 6f 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 | .source-context.note)))......... |
| 147ee0 | 28 69 66 20 63 74 78 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 20 63 74 78 29 29 29 0a 20 20 20 20 | (if.ctx.(insert."\n".ctx)))..... |
| 147f00 | 20 20 28 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 62 6c 6f 63 6b 20 73 74 61 72 74 20 34 29 29 0a | ..(slime-indent-block.start.4)). |
| 147f20 | 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | ....(insert."\n")))..(defun.slim |
| 147f40 | 65 2d 69 6e 64 65 6e 74 2d 62 6c 6f 63 6b 20 28 73 74 61 72 74 20 63 6f 6c 75 6d 6e 29 0a 20 20 | e-indent-block.(start.column)... |
| 147f60 | 22 49 66 20 74 68 65 20 72 65 67 69 6f 6e 20 62 61 63 6b 20 74 6f 20 53 54 41 52 54 20 69 73 6e | "If.the.region.back.to.START.isn |
| 147f80 | 27 74 20 61 20 6f 6e 65 2d 6c 69 6e 65 72 20 69 6e 64 65 6e 74 20 69 74 2e 22 0a 20 20 28 77 68 | 't.a.one-liner.indent.it."...(wh |
| 147fa0 | 65 6e 20 28 3c 20 73 74 61 72 74 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 | en.(<.start.(line-beginning-posi |
| 147fc0 | 74 69 6f 6e 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 | tion)).....(save-excursion...... |
| 147fe0 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 | .(goto-char.start).......(insert |
| 148000 | 20 22 5c 6e 22 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 72 69 67 69 64 6c | ."\n")).....(slime-indent-rigidl |
| 148020 | 79 20 73 74 61 72 74 20 28 70 6f 69 6e 74 29 20 63 6f 6c 75 6d 6e 29 29 29 0a 0a 28 64 65 66 75 | y.start.(point).column)))..(defu |
| 148040 | 6e 20 73 6c 69 6d 65 2d 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 2d 6c 6f 63 61 74 69 6f 6e 20 28 | n.slime-canonicalized-location.( |
| 148060 | 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 28 46 49 4c 45 | location)..."Return.a.list.(FILE |
| 148080 | 20 4c 49 4e 45 20 43 4f 4c 55 4d 4e 29 20 66 6f 72 20 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e | .LINE.COLUMN).for.slime-location |
| 1480a0 | 20 4c 4f 43 41 54 49 4f 4e 2e 0a 54 68 69 73 20 69 73 20 71 75 69 74 65 20 61 6e 20 65 78 70 65 | .LOCATION..This.is.quite.an.expe |
| 1480c0 | 6e 73 69 76 65 20 6f 70 65 72 61 74 69 6f 6e 20 73 6f 20 75 73 65 20 63 61 72 65 66 75 6c 6c 79 | nsive.operation.so.use.carefully |
| 1480e0 | 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 73 6c 69 6d 65 2d | ."...(save-excursion.....(slime- |
| 148100 | 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 | goto-location-buffer.(slime-loca |
| 148120 | 74 69 6f 6e 2e 62 75 66 66 65 72 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 28 73 61 76 65 | tion.buffer.location)).....(save |
| 148140 | 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 73 6f 75 | -excursion.......(slime-goto-sou |
| 148160 | 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 6c 69 | rce-location.location).......(li |
| 148180 | 73 74 20 28 6f 72 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 20 28 62 75 66 66 65 | st.(or.(buffer-file-name).(buffe |
| 1481a0 | 72 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 72 65 73 74 72 | r-name)).............(save-restr |
| 1481c0 | 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 20 | iction...............(widen).... |
| 1481e0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 29 29 | ...........(line-number-at-pos)) |
| 148200 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2b 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e | .............(1+.(current-column |
| 148220 | 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 61 6e 6f 6e 69 63 61 6c 69 7a | ))))))..(defun.slime-canonicaliz |
| 148240 | 65 64 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6c 6f 63 29 0a 20 20 28 69 | ed-location-to-string.(loc)...(i |
| 148260 | 66 20 6c 6f 63 0a 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 | f.loc.......(cl-destructuring-bi |
| 148280 | 6e 64 20 28 66 69 6c 65 6e 61 6d 65 20 6c 69 6e 65 20 63 6f 6c 29 20 6c 6f 63 0a 20 20 20 20 20 | nd.(filename.line.col).loc...... |
| 1482a0 | 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 3a 25 64 3a 25 64 22 0a 20 20 20 20 20 20 20 20 20 20 | ...(format."%s:%d:%d"........... |
| 1482c0 | 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 66 69 6c 65 6e 61 6d 65 29 20 22 22 29 0a | ......(cond.((not.filename).""). |
| 1482e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 65 74 20 28 28 72 65 | ......................((let.((re |
| 148300 | 6c 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 | l.(file-relative-name.filename)) |
| 148320 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | )..........................(if.( |
| 148340 | 3c 20 28 6c 65 6e 67 74 68 20 72 65 6c 29 20 28 6c 65 6e 67 74 68 20 66 69 6c 65 6e 61 6d 65 29 | <.(length.rel).(length.filename) |
| 148360 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 | )..............................r |
| 148380 | 65 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 66 | el))).......................(t.f |
| 1483a0 | 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 20 63 | ilename)).................line.c |
| 1483c0 | 6f 6c 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 55 6e 6b 6e 6f 77 6e 20 6c 6f 63 61 74 69 | ol)).....(format."Unknown.locati |
| 1483e0 | 6f 6e 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6e 6f 74 65 2d 69 | on")))..(defun.slime-goto-note-i |
| 148400 | 6e 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6c 6f 67 20 28 6e 6f 74 65 29 0a 20 20 22 46 69 6e 64 | n-compilation-log.(note)..."Find |
| 148420 | 20 60 6e 6f 74 65 27 20 69 6e 20 74 68 65 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6c 6f 67 20 61 | .`note'.in.the.compilation.log.a |
| 148440 | 6e 64 20 64 69 73 70 6c 61 79 20 69 74 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d | nd.display.it."...(with-current- |
| 148460 | 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 | buffer.(get-buffer.(slime-buffer |
| 148480 | 2d 6e 61 6d 65 20 3a 63 6f 6d 70 69 6c 61 74 69 6f 6e 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 | -name.:compilation)).....(let.(( |
| 1484a0 | 70 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 | pos............(save-excursion.. |
| 1484c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 | ............(goto-char.(point-mi |
| 1484e0 | 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6f 76 | n))..............(cl-loop.for.ov |
| 148500 | 65 72 6c 61 79 20 3d 20 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 6e 65 78 74 2d 6e 6f 74 65 29 0a 20 | erlay.=.(slime-find-next-note).. |
| 148520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 6f 76 65 72 6c | .....................while.overl |
| 148540 | 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6f 74 68 | ay.......................for.oth |
| 148560 | 65 72 2d 6e 6f 74 65 20 3d 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 65 72 6c 61 79 20 27 | er-note.=.(overlay-get.overlay.' |
| 148580 | 73 6c 69 6d 65 2d 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | slime-note)..................... |
| 1485a0 | 20 20 77 68 65 6e 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 73 2d 69 6e 2d 73 61 6d 65 2d 6c 6f 63 61 | ..when.(slime-notes-in-same-loca |
| 1485c0 | 74 69 6f 6e 2d 70 20 6e 6f 74 65 20 6f 74 68 65 72 2d 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 | tion-p.note.other-note)......... |
| 1485e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 6f 76 65 72 6c 61 79 2d 73 74 | ..............return.(overlay-st |
| 148600 | 61 72 74 20 6f 76 65 72 6c 61 79 29 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 70 6f 73 | art.overlay))))).......(when.pos |
| 148620 | 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 2d 64 69 73 70 6c 61 79 2d 70 6f 73 69 74 69 6f | .........(slime--display-positio |
| 148640 | 6e 20 70 6f 73 20 6e 69 6c 20 30 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 | n.pos.nil.0)))))..(defun.slime-g |
| 148660 | 72 6f 75 70 2d 61 6e 64 2d 73 6f 72 74 2d 6e 6f 74 65 73 20 28 6e 6f 74 65 73 29 0a 20 20 22 46 | roup-and-sort-notes.(notes)..."F |
| 148680 | 69 72 73 74 20 73 6f 72 74 2c 20 74 68 65 6e 20 67 72 6f 75 70 20 4e 4f 54 45 53 20 61 63 63 6f | irst.sort,.then.group.NOTES.acco |
| 1486a0 | 72 64 69 6e 67 20 74 6f 20 74 68 65 69 72 20 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 20 6c 6f 63 | rding.to.their.canonicalized.loc |
| 1486c0 | 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 6c 6f 63 73 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 | s."...(let.((locs.(make-hash-tab |
| 1486e0 | 6c 65 20 3a 74 65 73 74 20 23 27 65 71 29 29 29 0a 20 20 20 20 28 6d 61 70 63 20 28 6c 61 6d 62 | le.:test.#'eq))).....(mapc.(lamb |
| 148700 | 64 61 20 28 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 6f 63 | da.(note).............(let.((loc |
| 148720 | 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6c 6f 63 61 74 69 6f 6e 20 6e 6f 74 65 29 29 29 0a 20 20 | .(slime-note.location.note)))... |
| 148740 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f | ............(when.(slime-locatio |
| 148760 | 6e 2d 70 20 6c 6f 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 68 61 73 | n-p.loc).................(puthas |
| 148780 | 68 20 6e 6f 74 65 20 28 73 6c 69 6d 65 2d 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 64 2d 6c 6f 63 61 | h.note.(slime-canonicalized-loca |
| 1487a0 | 74 69 6f 6e 20 6c 6f 63 29 20 6c 6f 63 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 6e 6f 74 | tion.loc).locs))))...........not |
| 1487c0 | 65 73 29 0a 20 20 20 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 67 72 6f 75 70 2d 73 69 6d 69 6c | es).....(list.(slime-group-simil |
| 1487e0 | 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6e 31 20 6e 32 29 0a 20 20 | ar............(lambda.(n1.n2)... |
| 148800 | 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 28 67 65 74 68 61 73 68 20 6e 31 20 6c 6f | ...........(equal.(gethash.n1.lo |
| 148820 | 63 73 20 6e 69 6c 29 20 28 67 65 74 68 61 73 68 20 6e 32 20 6c 6f 63 73 20 74 29 29 29 0a 20 20 | cs.nil).(gethash.n2.locs.t)))... |
| 148840 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 62 6f 74 74 6f 6d 20 6d 6f 73 74 2d 6e 65 67 | .........(let*.((bottom.most-neg |
| 148860 | 61 74 69 76 65 2d 66 69 78 6e 75 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ative-fixnum)................... |
| 148880 | 28 2b 64 65 66 61 75 6c 74 2b 20 28 6c 69 73 74 20 22 22 20 62 6f 74 74 6f 6d 20 62 6f 74 74 6f | (+default+.(list."".bottom.botto |
| 1488a0 | 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 72 74 20 6e 6f 74 65 73 0a 20 20 | m)))..............(sort.notes... |
| 1488c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6e 31 20 6e 32 29 | .................(lambda.(n1.n2) |
| 1488e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 | ......................(cl-destru |
| 148900 | 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 28 66 69 6c 65 6e 61 6d 65 31 20 6c 69 6e 65 31 20 63 | cturing-bind.((filename1.line1.c |
| 148920 | 6f 6c 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ol1)............................ |
| 148940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 6e 61 6d 65 32 20 6c 69 6e | ..................(filename2.lin |
| 148960 | 65 32 20 63 6f 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e2.col2))....................... |
| 148980 | 20 20 20 28 6c 69 73 74 20 28 67 65 74 68 61 73 68 20 6e 31 20 6c 6f 63 73 20 2b 64 65 66 61 75 | ...(list.(gethash.n1.locs.+defau |
| 1489a0 | 6c 74 2b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lt+)............................ |
| 1489c0 | 20 20 20 20 28 67 65 74 68 61 73 68 20 6e 32 20 6c 6f 63 73 20 2b 64 65 66 61 75 6c 74 2b 29 29 | ....(gethash.n2.locs.+default+)) |
| 1489e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 | ........................(cond.(( |
| 148a00 | 73 74 72 69 6e 67 2d 6c 65 73 73 70 20 66 69 6c 65 6e 61 6d 65 31 20 66 69 6c 65 6e 61 6d 65 32 | string-lessp.filename1.filename2 |
| 148a20 | 29 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).t)............................ |
| 148a40 | 20 20 28 28 73 74 72 69 6e 67 2d 6c 65 73 73 70 20 66 69 6c 65 6e 61 6d 65 32 20 66 69 6c 65 6e | ..((string-lessp.filename2.filen |
| 148a60 | 61 6d 65 31 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame1).nil)...................... |
| 148a80 | 20 20 20 20 20 20 20 20 28 28 3c 20 6c 69 6e 65 31 20 6c 69 6e 65 32 29 20 74 29 0a 20 20 20 20 | ........((<.line1.line2).t)..... |
| 148aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3e 20 6c 69 6e | .........................((>.lin |
| 148ac0 | 65 31 20 6c 69 6e 65 32 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e1.line2).nil).................. |
| 148ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 3c 20 63 6f 6c 31 20 63 6f 6c 32 29 29 29 29 29 | ............(t.(<.col1.col2))))) |
| 148b00 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 6c 6f 63 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | )))...........locs)))..(defun.sl |
| 148b20 | 69 6d 65 2d 6e 6f 74 65 2e 73 65 76 65 72 69 74 79 20 28 6e 6f 74 65 29 0a 20 20 28 70 6c 69 73 | ime-note.severity.(note)...(plis |
| 148b40 | 74 2d 67 65 74 20 6e 6f 74 65 20 3a 73 65 76 65 72 69 74 79 29 29 0a 0a 28 64 65 66 75 6e 20 73 | t-get.note.:severity))..(defun.s |
| 148b60 | 6c 69 6d 65 2d 6e 6f 74 65 2e 6d 65 73 73 61 67 65 20 28 6e 6f 74 65 29 0a 20 20 28 70 6c 69 73 | lime-note.message.(note)...(plis |
| 148b80 | 74 2d 67 65 74 20 6e 6f 74 65 20 3a 6d 65 73 73 61 67 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | t-get.note.:message))..(defun.sl |
| 148ba0 | 69 6d 65 2d 6e 6f 74 65 2e 73 6f 75 72 63 65 2d 63 6f 6e 74 65 78 74 20 28 6e 6f 74 65 29 0a 20 | ime-note.source-context.(note).. |
| 148bc0 | 20 28 70 6c 69 73 74 2d 67 65 74 20 6e 6f 74 65 20 3a 73 6f 75 72 63 65 2d 63 6f 6e 74 65 78 74 | .(plist-get.note.:source-context |
| 148be0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6c 6f 63 61 74 69 6f 6e 20 28 | ))..(defun.slime-note.location.( |
| 148c00 | 6e 6f 74 65 29 0a 20 20 28 70 6c 69 73 74 2d 67 65 74 20 6e 6f 74 65 20 3a 6c 6f 63 61 74 69 6f | note)...(plist-get.note.:locatio |
| 148c20 | 6e 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 2d 6c 61 62 65 6c | n))..(defun.slime-severity-label |
| 148c40 | 20 28 73 65 76 65 72 69 74 79 29 0a 20 20 28 63 6c 2d 73 75 62 73 65 71 20 28 73 79 6d 62 6f 6c | .(severity)...(cl-subseq.(symbol |
| 148c60 | 2d 6e 61 6d 65 20 73 65 76 65 72 69 74 79 29 20 31 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 41 64 64 | -name.severity).1))....;;;;;.Add |
| 148c80 | 69 6e 67 20 61 20 73 69 6e 67 6c 65 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 0a 0a 28 64 65 66 | ing.a.single.compiler.note..(def |
| 148ca0 | 75 6e 20 73 6c 69 6d 65 2d 6f 76 65 72 6c 61 79 2d 6e 6f 74 65 20 28 6e 6f 74 65 29 0a 20 20 22 | un.slime-overlay-note.(note)..." |
| 148cc0 | 41 64 64 20 61 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 20 74 6f 20 74 68 65 20 62 75 66 66 65 | Add.a.compiler.note.to.the.buffe |
| 148ce0 | 72 20 61 73 20 61 6e 20 6f 76 65 72 6c 61 79 2e 0a 49 66 20 61 6e 20 61 70 70 72 6f 70 72 69 61 | r.as.an.overlay..If.an.appropria |
| 148d00 | 74 65 20 6f 76 65 72 6c 61 79 20 66 6f 72 20 61 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 20 69 | te.overlay.for.a.compiler.note.i |
| 148d20 | 6e 20 74 68 65 20 73 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 0a 61 6c 72 65 61 64 79 20 65 78 69 73 | n.the.same.location.already.exis |
| 148d40 | 74 73 20 74 68 65 6e 20 74 68 65 20 6e 65 77 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 6d | ts.then.the.new.information.is.m |
| 148d60 | 65 72 67 65 64 20 69 6e 74 6f 20 69 74 2e 20 4f 74 68 65 72 77 69 73 65 20 61 0a 6e 65 77 20 6f | erged.into.it..Otherwise.a.new.o |
| 148d80 | 76 65 72 6c 61 79 20 69 73 20 63 72 65 61 74 65 64 2e 22 0a 20 20 28 63 6c 2d 6d 75 6c 74 69 70 | verlay.is.created."...(cl-multip |
| 148da0 | 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 74 61 72 74 20 65 6e 64 29 20 28 73 6c 69 6d 65 | le-value-bind.(start.end).(slime |
| 148dc0 | 2d 63 68 6f 6f 73 65 2d 6f 76 65 72 6c 61 79 2d 72 65 67 69 6f 6e 20 6e 6f 74 65 29 0a 20 20 20 | -choose-overlay-region.note).... |
| 148de0 | 20 28 77 68 65 6e 20 73 74 61 72 74 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 | .(when.start.......(goto-char.st |
| 148e00 | 61 72 74 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 65 76 65 72 69 74 79 20 28 70 6c 69 73 | art).......(let.((severity.(plis |
| 148e20 | 74 2d 67 65 74 20 6e 6f 74 65 20 3a 73 65 76 65 72 69 74 79 29 29 0a 20 20 20 20 20 20 20 20 20 | t-get.note.:severity)).......... |
| 148e40 | 20 20 20 28 6d 65 73 73 61 67 65 20 28 70 6c 69 73 74 2d 67 65 74 20 6e 6f 74 65 20 3a 6d 65 73 | ...(message.(plist-get.note.:mes |
| 148e60 | 73 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 20 28 73 6c 69 | sage)).............(overlay.(sli |
| 148e80 | 6d 65 2d 6e 6f 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 | me-note-at-point))).........(if. |
| 148ea0 | 6f 76 65 72 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 65 72 67 65 | overlay.............(slime-merge |
| 148ec0 | 2d 6e 6f 74 65 2d 69 6e 74 6f 2d 6f 76 65 72 6c 61 79 20 6f 76 65 72 6c 61 79 20 73 65 76 65 72 | -note-into-overlay.overlay.sever |
| 148ee0 | 69 74 79 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 72 | ity.message)...........(slime-cr |
| 148f00 | 65 61 74 65 2d 6e 6f 74 65 2d 6f 76 65 72 6c 61 79 20 6e 6f 74 65 20 73 74 61 72 74 20 65 6e 64 | eate-note-overlay.note.start.end |
| 148f20 | 20 73 65 76 65 72 69 74 79 20 6d 65 73 73 61 67 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | .severity.message))))))..(defun. |
| 148f40 | 73 6c 69 6d 65 2d 6d 61 6b 65 2d 6e 6f 74 65 2d 6f 76 65 72 6c 61 79 20 28 6e 6f 74 65 20 73 74 | slime-make-note-overlay.(note.st |
| 148f60 | 61 72 74 20 65 6e 64 29 0a 20 20 28 6c 65 74 20 28 28 6f 76 65 72 6c 61 79 20 28 6d 61 6b 65 2d | art.end)...(let.((overlay.(make- |
| 148f80 | 6f 76 65 72 6c 61 79 20 73 74 61 72 74 20 65 6e 64 29 29 29 0a 20 20 20 20 28 6f 76 65 72 6c 61 | overlay.start.end))).....(overla |
| 148fa0 | 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 73 6c 69 6d 65 2d 6e 6f 74 65 20 6e 6f 74 65 29 0a | y-put.overlay.'slime-note.note). |
| 148fc0 | 20 20 20 20 28 70 75 73 68 20 6f 76 65 72 6c 61 79 20 73 6c 69 6d 65 2d 6e 6f 74 65 2d 6f 76 65 | ....(push.overlay.slime-note-ove |
| 148fe0 | 72 6c 61 79 73 29 0a 20 20 20 20 6f 76 65 72 6c 61 79 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | rlays).....overlay))..(defun.sli |
| 149000 | 6d 65 2d 63 72 65 61 74 65 2d 6e 6f 74 65 2d 6f 76 65 72 6c 61 79 20 28 6e 6f 74 65 20 73 74 61 | me-create-note-overlay.(note.sta |
| 149020 | 72 74 20 65 6e 64 20 73 65 76 65 72 69 74 79 20 6d 65 73 73 61 67 65 29 0a 20 20 22 43 72 65 61 | rt.end.severity.message)..."Crea |
| 149040 | 74 65 20 61 6e 20 6f 76 65 72 6c 61 79 20 72 65 70 72 65 73 65 6e 74 69 6e 67 20 61 20 63 6f 6d | te.an.overlay.representing.a.com |
| 149060 | 70 69 6c 65 72 20 6e 6f 74 65 2e 0a 54 68 65 20 6f 76 65 72 6c 61 79 20 68 61 73 20 73 65 76 65 | piler.note..The.overlay.has.seve |
| 149080 | 72 61 6c 20 70 72 6f 70 65 72 74 69 65 73 3a 0a 20 20 46 41 43 45 20 20 20 20 20 20 20 2d 20 74 | ral.properties:...FACE.......-.t |
| 1490a0 | 6f 20 75 6e 64 65 72 6c 69 6e 65 20 74 68 65 20 72 65 6c 65 76 61 6e 74 20 74 65 78 74 2e 0a 20 | o.underline.the.relevant.text... |
| 1490c0 | 20 53 45 56 45 52 49 54 59 20 20 20 2d 20 66 6f 72 20 66 75 74 75 72 65 20 72 65 66 65 72 65 6e | .SEVERITY...-.for.future.referen |
| 1490e0 | 63 65 20 3a 4e 4f 54 45 2c 20 3a 53 54 59 4c 45 2d 57 41 52 4e 49 4e 47 2c 20 3a 57 41 52 4e 49 | ce.:NOTE,.:STYLE-WARNING,.:WARNI |
| 149100 | 4e 47 2c 20 6f 72 20 3a 45 52 52 4f 52 2e 0a 20 20 4d 4f 55 53 45 2d 46 41 43 45 20 2d 20 68 69 | NG,.or.:ERROR....MOUSE-FACE.-.hi |
| 149120 | 67 68 6c 69 67 68 74 20 74 68 65 20 6e 6f 74 65 20 77 68 65 6e 20 74 68 65 20 6d 6f 75 73 65 20 | ghlight.the.note.when.the.mouse. |
| 149140 | 70 61 73 73 65 73 20 6f 76 65 72 2e 0a 20 20 48 45 4c 50 2d 45 43 48 4f 20 20 2d 20 61 20 73 74 | passes.over....HELP-ECHO..-.a.st |
| 149160 | 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 6e 6f 74 65 2c 20 62 6f 74 68 20 66 | ring.describing.the.note,.both.f |
| 149180 | 6f 72 20 66 75 74 75 72 65 20 72 65 66 65 72 65 6e 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | or.future.reference............. |
| 1491a0 | 20 20 20 61 6e 64 20 66 6f 72 20 64 69 73 70 6c 61 79 20 61 73 20 61 20 74 6f 6f 6c 74 69 70 20 | ...and.for.display.as.a.tooltip. |
| 1491c0 | 28 64 75 65 20 74 6f 20 74 68 65 20 73 70 65 63 69 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (due.to.the.special............. |
| 1491e0 | 20 20 20 70 72 6f 70 65 72 74 79 20 6e 61 6d 65 29 2e 22 0a 20 20 28 6c 65 74 20 28 28 6f 76 65 | ...property.name)."...(let.((ove |
| 149200 | 72 6c 61 79 20 28 73 6c 69 6d 65 2d 6d 61 6b 65 2d 6e 6f 74 65 2d 6f 76 65 72 6c 61 79 20 6e 6f | rlay.(slime-make-note-overlay.no |
| 149220 | 74 65 20 73 74 61 72 74 20 65 6e 64 29 29 29 0a 20 20 20 20 28 63 6c 2d 6d 61 63 72 6f 6c 65 74 | te.start.end))).....(cl-macrolet |
| 149240 | 20 28 28 70 75 74 70 20 28 6e 61 6d 65 20 76 61 6c 75 65 29 20 60 28 6f 76 65 72 6c 61 79 2d 70 | .((putp.(name.value).`(overlay-p |
| 149260 | 75 74 20 6f 76 65 72 6c 61 79 20 2c 6e 61 6d 65 20 2c 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 | ut.overlay.,name.,value)))...... |
| 149280 | 20 28 70 75 74 70 20 27 66 61 63 65 20 28 73 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 2d 66 61 63 | .(putp.'face.(slime-severity-fac |
| 1492a0 | 65 20 73 65 76 65 72 69 74 79 29 29 0a 20 20 20 20 20 20 28 70 75 74 70 20 27 73 65 76 65 72 69 | e.severity)).......(putp.'severi |
| 1492c0 | 74 79 20 73 65 76 65 72 69 74 79 29 0a 20 20 20 20 20 20 28 70 75 74 70 20 27 6d 6f 75 73 65 2d | ty.severity).......(putp.'mouse- |
| 1492e0 | 66 61 63 65 20 27 68 69 67 68 6c 69 67 68 74 29 0a 20 20 20 20 20 20 28 70 75 74 70 20 27 68 65 | face.'highlight).......(putp.'he |
| 149300 | 6c 70 2d 65 63 68 6f 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 6f 76 65 72 6c 61 79 29 29 | lp-echo.message).......overlay)) |
| 149320 | 29 0a 0a 3b 3b 20 58 58 58 20 4f 62 73 6f 6c 65 74 65 20 64 75 65 20 74 6f 20 60 73 6c 69 6d 65 | )..;;.XXX.Obsolete.due.to.`slime |
| 149340 | 2d 6d 65 72 67 65 2d 6e 6f 74 65 73 2d 66 6f 72 2d 64 69 73 70 6c 61 79 27 20 64 6f 69 6e 67 20 | -merge-notes-for-display'.doing. |
| 149360 | 74 68 65 0a 3b 3b 20 77 6f 72 6b 20 61 6c 72 65 61 64 79 20 2d 2d 20 75 6e 6c 65 73 73 20 77 65 | the.;;.work.already.--.unless.we |
| 149380 | 20 64 65 63 69 64 65 20 74 6f 20 70 75 74 20 73 65 76 65 72 61 6c 20 73 65 74 73 20 6f 66 20 6e | .decide.to.put.several.sets.of.n |
| 1493a0 | 6f 74 65 73 20 6f 6e 20 61 0a 3b 3b 20 62 75 66 66 65 72 20 77 69 74 68 6f 75 74 20 63 6c 65 61 | otes.on.a.;;.buffer.without.clea |
| 1493c0 | 72 69 6e 67 20 69 6e 20 62 65 74 77 65 65 6e 2c 20 77 68 69 63 68 20 6f 6e 6c 79 20 74 68 69 73 | ring.in.between,.which.only.this |
| 1493e0 | 20 68 61 6e 64 6c 65 73 2e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 65 72 67 65 2d 6e 6f 74 | .handles..(defun.slime-merge-not |
| 149400 | 65 2d 69 6e 74 6f 2d 6f 76 65 72 6c 61 79 20 28 6f 76 65 72 6c 61 79 20 73 65 76 65 72 69 74 79 | e-into-overlay.(overlay.severity |
| 149420 | 20 6d 65 73 73 61 67 65 29 0a 20 20 22 4d 65 72 67 65 20 61 6e 6f 74 68 65 72 20 63 6f 6d 70 69 | .message)..."Merge.another.compi |
| 149440 | 6c 65 72 20 6e 6f 74 65 20 69 6e 74 6f 20 61 6e 20 65 78 69 73 74 69 6e 67 20 6f 76 65 72 6c 61 | ler.note.into.an.existing.overla |
| 149460 | 79 2e 0a 54 68 65 20 68 65 6c 70 20 74 65 78 74 20 64 65 73 63 72 69 62 65 73 20 62 6f 74 68 20 | y..The.help.text.describes.both. |
| 149480 | 6e 6f 74 65 73 2c 20 61 6e 64 20 74 68 65 20 68 69 67 68 65 73 74 20 6f 66 20 74 68 65 20 73 65 | notes,.and.the.highest.of.the.se |
| 1494a0 | 76 65 72 69 74 69 65 73 0a 69 73 20 6b 65 70 74 2e 22 0a 20 20 28 63 6c 2d 6d 61 63 72 6f 6c 65 | verities.is.kept."...(cl-macrole |
| 1494c0 | 74 20 28 28 70 75 74 70 20 28 6e 61 6d 65 20 76 61 6c 75 65 29 20 60 28 6f 76 65 72 6c 61 79 2d | t.((putp.(name.value).`(overlay- |
| 1494e0 | 70 75 74 20 6f 76 65 72 6c 61 79 20 2c 6e 61 6d 65 20 2c 76 61 6c 75 65 29 29 0a 20 20 20 20 20 | put.overlay.,name.,value))...... |
| 149500 | 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 70 20 28 6e 61 6d 65 29 20 20 20 20 20 20 20 60 28 | ...........(getp.(name).......`( |
| 149520 | 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 65 72 6c 61 79 20 2c 6e 61 6d 65 29 29 29 0a 20 20 20 | overlay-get.overlay.,name))).... |
| 149540 | 20 28 70 75 74 70 20 27 73 65 76 65 72 69 74 79 20 28 73 6c 69 6d 65 2d 6d 6f 73 74 2d 73 65 76 | .(putp.'severity.(slime-most-sev |
| 149560 | 65 72 65 20 73 65 76 65 72 69 74 79 20 28 67 65 74 70 20 27 73 65 76 65 72 69 74 79 29 29 29 0a | ere.severity.(getp.'severity))). |
| 149580 | 20 20 20 20 28 70 75 74 70 20 27 66 61 63 65 20 28 73 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 2d | ....(putp.'face.(slime-severity- |
| 1495a0 | 66 61 63 65 20 28 67 65 74 70 20 27 73 65 76 65 72 69 74 79 29 29 29 0a 20 20 20 20 28 70 75 74 | face.(getp.'severity))).....(put |
| 1495c0 | 70 20 27 68 65 6c 70 2d 65 63 68 6f 20 28 63 6f 6e 63 61 74 20 28 67 65 74 70 20 27 68 65 6c 70 | p.'help-echo.(concat.(getp.'help |
| 1495e0 | 2d 65 63 68 6f 29 20 22 5c 6e 22 20 6d 65 73 73 61 67 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | -echo)."\n".message))))..(defun. |
| 149600 | 73 6c 69 6d 65 2d 63 68 6f 6f 73 65 2d 6f 76 65 72 6c 61 79 2d 72 65 67 69 6f 6e 20 28 6e 6f 74 | slime-choose-overlay-region.(not |
| 149620 | 65 29 0a 20 20 22 43 68 6f 6f 73 65 20 74 68 65 20 73 74 61 72 74 20 61 6e 64 20 65 6e 64 20 70 | e)..."Choose.the.start.and.end.p |
| 149640 | 6f 69 6e 74 73 20 66 6f 72 20 61 6e 20 6f 76 65 72 6c 61 79 20 6f 76 65 72 20 4e 4f 54 45 2e 0a | oints.for.an.overlay.over.NOTE.. |
| 149660 | 49 66 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 27 73 20 73 65 78 70 20 69 73 20 61 20 6c 69 73 74 | If.the.location's.sexp.is.a.list |
| 149680 | 20 73 70 61 6e 6e 69 6e 67 20 6d 75 6c 74 69 70 6c 65 20 6c 69 6e 65 73 2c 20 74 68 65 6e 20 74 | .spanning.multiple.lines,.then.t |
| 1496a0 | 68 65 0a 72 65 67 69 6f 6e 20 61 72 6f 75 6e 64 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 | he.region.around.the.first.eleme |
| 1496c0 | 6e 74 20 69 73 20 75 73 65 64 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 74 68 65 72 65 27 | nt.is.used..Return.nil.if.there' |
| 1496e0 | 73 20 6e 6f 20 75 73 65 66 75 6c 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 2e 22 0a 20 20 | s.no.useful.source.location."... |
| 149700 | 28 6c 65 74 20 28 28 6c 6f 63 61 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 2e 6c 6f 63 61 | (let.((location.(slime-note.loca |
| 149720 | 74 69 6f 6e 20 6e 6f 74 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 6c 6f 63 61 74 69 6f 6e 0a | tion.note))).....(when.location. |
| 149740 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 | ......(slime-dcase.location..... |
| 149760 | 20 20 20 20 28 28 3a 65 72 72 6f 72 20 5f 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....((:error._))................ |
| 149780 | 20 3b 20 64 6f 20 6e 6f 74 68 69 6e 67 0a 20 20 20 20 20 20 20 20 28 28 3a 6c 6f 63 61 74 69 6f | .;.do.nothing.........((:locatio |
| 1497a0 | 6e 20 66 69 6c 65 20 70 6f 73 20 5f 68 69 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e | n.file.pos._hints)..........(con |
| 1497c0 | 64 20 28 28 65 71 20 28 63 61 72 20 66 69 6c 65 29 20 27 3a 73 6f 75 72 63 65 2d 66 6f 72 6d 29 | d.((eq.(car.file).':source-form) |
| 1497e0 | 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 28 73 6c 69 6d 65 | .nil)................((eq.(slime |
| 149800 | 2d 6e 6f 74 65 2e 73 65 76 65 72 69 74 79 20 6e 6f 74 65 29 20 3a 72 65 61 64 2d 65 72 72 6f 72 | -note.severity.note).:read-error |
| 149820 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 6f 6f 73 65 2d | ).................(slime-choose- |
| 149840 | 6f 76 65 72 6c 61 79 2d 66 6f 72 2d 72 65 61 64 2d 65 72 72 6f 72 20 6c 6f 63 61 74 69 6f 6e 29 | overlay-for-read-error.location) |
| 149860 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 70 6f 73 20 27 28 3a | )................((equal.pos.'(: |
| 149880 | 65 6f 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 | eof)).................(cl-values |
| 1498a0 | 20 28 31 2d 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a | .(1-.(point-max)).(point-max))). |
| 1498c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............(t............... |
| 1498e0 | 20 20 28 73 6c 69 6d 65 2d 63 68 6f 6f 73 65 2d 6f 76 65 72 6c 61 79 2d 66 6f 72 2d 73 65 78 70 | ..(slime-choose-overlay-for-sexp |
| 149900 | 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | .location))))))))..(defun.slime- |
| 149920 | 63 68 6f 6f 73 65 2d 6f 76 65 72 6c 61 79 2d 66 6f 72 2d 72 65 61 64 2d 65 72 72 6f 72 20 28 6c | choose-overlay-for-read-error.(l |
| 149940 | 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 73 6c 69 6d 65 2d 6c 6f 63 | ocation)...(let.((pos.(slime-loc |
| 149960 | 61 74 69 6f 6e 2d 6f 66 66 73 65 74 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 73 61 | ation-offset.location))).....(sa |
| 149980 | 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f | ve-excursion.......(goto-char.po |
| 1499a0 | 73 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 | s).......(cond.((slime-symbol-at |
| 1499c0 | 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 61 63 6b 61 67 65 20 | -point)..............;;.package. |
| 1499e0 | 6e 6f 74 20 66 6f 75 6e 64 2c 20 26 63 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d | not.found,.&c...............(cl- |
| 149a00 | 76 61 6c 75 65 73 20 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 73 74 61 72 74 2d 70 6f 73 29 20 | values.(slime-symbol-start-pos). |
| 149a20 | 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 65 6e 64 2d 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 | (slime-symbol-end-pos)))........ |
| 149a40 | 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 | .....(t..............(cl-values. |
| 149a60 | 70 6f 73 20 28 31 2b 20 70 6f 73 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | pos.(1+.pos)))))))..(defun.slime |
| 149a80 | 2d 63 68 6f 6f 73 65 2d 6f 76 65 72 6c 61 79 2d 66 6f 72 2d 73 65 78 70 20 28 6c 6f 63 61 74 69 | -choose-overlay-for-sexp.(locati |
| 149aa0 | 6f 6e 29 0a 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | on)...(slime-goto-source-locatio |
| 149ac0 | 6e 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 | n.location)...(skip-chars-forwar |
| 149ae0 | 64 20 22 27 23 60 22 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 | d."'#`")...(let.((start.(point)) |
| 149b00 | 29 0a 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 6c 69 6d 65 2d 66 6f 72 77 | ).....(ignore-errors.(slime-forw |
| 149b20 | 61 72 64 2d 73 65 78 70 29 29 0a 20 20 20 20 28 69 66 20 28 73 6c 69 6d 65 2d 73 61 6d 65 2d 6c | ard-sexp)).....(if.(slime-same-l |
| 149b40 | 69 6e 65 2d 70 20 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 63 6c | ine-p.start.(point)).........(cl |
| 149b60 | 2d 76 61 6c 75 65 73 20 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 63 6c | -values.start.(point)).......(cl |
| 149b80 | 2d 76 61 6c 75 65 73 20 28 31 2b 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -values.(1+.start).............. |
| 149ba0 | 20 20 20 20 28 70 72 6f 67 6e 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 31 2b 20 73 74 61 72 74 29 | ....(progn.(goto-char.(1+.start) |
| 149bc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 | ).........................(ignor |
| 149be0 | 65 2d 65 72 72 6f 72 73 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 29 29 0a 20 20 20 20 20 | e-errors.(forward-sexp.1))...... |
| 149c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 29 29 29 0a | ...................(point)))))). |
| 149c20 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 61 6d 65 2d 6c 69 6e 65 2d 70 20 28 70 6f 73 31 20 | .(defun.slime-same-line-p.(pos1. |
| 149c40 | 70 6f 73 32 29 0a 20 20 22 52 65 74 75 72 6e 20 74 20 69 66 20 62 75 66 66 65 72 20 70 6f 73 69 | pos2)..."Return.t.if.buffer.posi |
| 149c60 | 74 69 6f 6e 73 20 50 4f 53 31 20 61 6e 64 20 50 4f 53 32 20 61 72 65 20 6f 6e 20 74 68 65 20 73 | tions.POS1.and.POS2.are.on.the.s |
| 149c80 | 61 6d 65 20 6c 69 6e 65 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 67 6f | ame.line."...(save-excursion.(go |
| 149ca0 | 74 6f 2d 63 68 61 72 20 28 6d 69 6e 20 70 6f 73 31 20 70 6f 73 32 29 29 0a 20 20 20 20 20 20 20 | to-char.(min.pos1.pos2))........ |
| 149cc0 | 20 20 20 20 20 20 20 20 20 20 20 28 3c 3d 20 28 6d 61 78 20 70 6f 73 31 20 70 6f 73 32 29 20 28 | ...........(<=.(max.pos1.pos2).( |
| 149ce0 | 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 | line-end-position))))..(defvar.s |
| 149d00 | 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 2d 66 61 63 65 2d 70 6c 69 73 74 0a 20 20 27 28 3a 65 72 | lime-severity-face-plist...'(:er |
| 149d20 | 72 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 65 72 | ror.....................slime-er |
| 149d40 | 72 6f 72 2d 66 61 63 65 0a 20 20 20 20 3a 72 65 61 64 2d 65 72 72 6f 72 20 20 20 20 20 20 20 20 | ror-face.....:read-error........ |
| 149d60 | 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 65 72 72 6f 72 2d 66 61 63 65 0a 20 20 20 20 3a 77 61 | ........slime-error-face.....:wa |
| 149d80 | 72 6e 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 77 61 | rning...................slime-wa |
| 149da0 | 72 6e 69 6e 67 2d 66 61 63 65 0a 20 20 20 20 3a 72 65 64 65 66 69 6e 69 74 69 6f 6e 20 20 20 20 | rning-face.....:redefinition.... |
| 149dc0 | 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 2d 66 61 | ..........slime-style-warning-fa |
| 149de0 | 63 65 0a 20 20 20 20 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 | ce.....:style-warning........... |
| 149e00 | 20 20 73 6c 69 6d 65 2d 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 2d 66 61 63 65 0a 20 20 20 20 3a | ..slime-style-warning-face.....: |
| 149e20 | 65 61 72 6c 79 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 20 73 6c 69 6d 65 2d | early-deprecation-warning.slime- |
| 149e40 | 65 61 72 6c 79 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 2d 66 61 63 65 0a 20 | early-deprecation-warning-face.. |
| 149e60 | 20 20 20 3a 6c 61 74 65 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 20 20 73 6c | ...:late-deprecation-warning..sl |
| 149e80 | 69 6d 65 2d 6c 61 74 65 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 2d 66 61 63 | ime-late-deprecation-warning-fac |
| 149ea0 | 65 0a 20 20 20 20 3a 66 69 6e 61 6c 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 | e.....:final-deprecation-warning |
| 149ec0 | 20 73 6c 69 6d 65 2d 66 69 6e 61 6c 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 | .slime-final-deprecation-warning |
| 149ee0 | 2d 66 61 63 65 0a 20 20 20 20 3a 6e 6f 74 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -face.....:note................. |
| 149f00 | 20 20 20 20 20 73 6c 69 6d 65 2d 6e 6f 74 65 2d 66 61 63 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 | .....slime-note-face))..(defun.s |
| 149f20 | 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 2d 66 61 63 65 20 28 73 65 76 65 72 69 74 79 29 0a 20 20 | lime-severity-face.(severity)... |
| 149f40 | 22 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 66 6f 6e 74 2d 6c 6f 63 | "Return.the.name.of.the.font-loc |
| 149f60 | 6b 20 66 61 63 65 20 72 65 70 72 65 73 65 6e 74 69 6e 67 20 53 45 56 45 52 49 54 59 2e 22 0a 20 | k.face.representing.SEVERITY.".. |
| 149f80 | 20 28 6f 72 20 28 70 6c 69 73 74 2d 67 65 74 20 73 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 2d 66 | .(or.(plist-get.slime-severity-f |
| 149fa0 | 61 63 65 2d 70 6c 69 73 74 20 73 65 76 65 72 69 74 79 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 | ace-plist.severity).......(error |
| 149fc0 | 20 22 4e 6f 20 66 61 63 65 20 66 6f 72 3a 20 25 53 22 20 73 65 76 65 72 69 74 79 29 29 29 0a 0a | ."No.face.for:.%S".severity))).. |
| 149fe0 | 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 2d 6f 72 64 65 72 0a 20 20 27 | (defvar.slime-severity-order...' |
| 14a000 | 28 3a 6e 6f 74 65 0a 20 20 20 20 3a 65 61 72 6c 79 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 | (:note.....:early-deprecation-wa |
| 14a020 | 72 6e 69 6e 67 20 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 20 3a 72 65 64 65 66 69 6e 69 74 69 | rning.:style-warning.:redefiniti |
| 14a040 | 6f 6e 0a 20 20 20 20 3a 6c 61 74 65 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 | on.....:late-deprecation-warning |
| 14a060 | 20 3a 66 69 6e 61 6c 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 0a 20 20 20 20 | .:final-deprecation-warning..... |
| 14a080 | 3a 77 61 72 6e 69 6e 67 20 3a 65 72 72 6f 72 20 3a 72 65 61 64 2d 65 72 72 6f 72 29 29 0a 0a 28 | :warning.:error.:read-error))..( |
| 14a0a0 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 3c 20 28 73 65 76 31 20 73 65 76 32 | defun.slime-severity<.(sev1.sev2 |
| 14a0c0 | 29 0a 20 20 22 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 53 45 56 31 20 69 73 20 6c 65 73 73 | )..."Return.true.if.SEV1.is.less |
| 14a0e0 | 20 73 65 76 65 72 65 20 74 68 61 6e 20 53 45 56 32 2e 22 0a 20 20 28 3c 20 28 63 6c 2d 70 6f 73 | .severe.than.SEV2."...(<.(cl-pos |
| 14a100 | 69 74 69 6f 6e 20 73 65 76 31 20 73 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 2d 6f 72 64 65 72 29 | ition.sev1.slime-severity-order) |
| 14a120 | 0a 20 20 20 20 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 20 73 65 76 32 20 73 6c 69 6d 65 2d 73 65 | ......(cl-position.sev2.slime-se |
| 14a140 | 76 65 72 69 74 79 2d 6f 72 64 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 6f | verity-order)))..(defun.slime-mo |
| 14a160 | 73 74 2d 73 65 76 65 72 65 20 28 73 65 76 31 20 73 65 76 32 29 0a 20 20 22 52 65 74 75 72 6e 20 | st-severe.(sev1.sev2)..."Return. |
| 14a180 | 74 68 65 20 6d 6f 73 74 20 73 65 72 76 65 72 65 20 6f 66 20 74 77 6f 20 63 6f 6e 64 69 74 69 6f | the.most.servere.of.two.conditio |
| 14a1a0 | 6e 73 2e 22 0a 20 20 28 69 66 20 28 73 6c 69 6d 65 2d 73 65 76 65 72 69 74 79 3c 20 73 65 76 31 | ns."...(if.(slime-severity<.sev1 |
| 14a1c0 | 20 73 65 76 32 29 20 73 65 76 32 20 73 65 76 31 29 29 0a 0a 3b 3b 20 58 58 58 3a 20 75 6e 75 73 | .sev2).sev2.sev1))..;;.XXX:.unus |
| 14a1e0 | 65 64 20 66 75 6e 63 74 69 6f 6e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 76 69 73 69 74 2d 73 | ed.function.(defun.slime-visit-s |
| 14a200 | 6f 75 72 63 65 2d 70 61 74 68 20 28 73 6f 75 72 63 65 2d 70 61 74 68 29 0a 20 20 22 56 69 73 69 | ource-path.(source-path)..."Visi |
| 14a220 | 74 20 61 20 66 75 6c 6c 20 73 6f 75 72 63 65 20 70 61 74 68 20 69 6e 63 6c 75 64 69 6e 67 20 74 | t.a.full.source.path.including.t |
| 14a240 | 68 65 20 74 6f 70 2d 6c 65 76 65 6c 20 66 6f 72 6d 2e 22 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 | he.top-level.form."...(goto-char |
| 14a260 | 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 73 | .(point-min))...(slime-forward-s |
| 14a280 | 6f 75 72 63 65 2d 70 61 74 68 20 73 6f 75 72 63 65 2d 70 61 74 68 29 29 0a 0a 28 64 65 66 75 6e | ource-path.source-path))..(defun |
| 14a2a0 | 20 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 70 6f 73 69 74 69 6f 6e 65 64 2d 73 6f 75 72 63 65 | .slime-forward-positioned-source |
| 14a2c0 | 2d 70 61 74 68 20 28 73 6f 75 72 63 65 2d 70 61 74 68 29 0a 20 20 22 4d 6f 76 65 20 66 6f 72 77 | -path.(source-path)..."Move.forw |
| 14a2e0 | 61 72 64 20 74 68 72 6f 75 67 68 20 61 20 73 6f 75 72 63 65 70 61 74 68 20 66 72 6f 6d 20 61 20 | ard.through.a.sourcepath.from.a. |
| 14a300 | 66 69 78 65 64 20 70 6f 73 69 74 69 6f 6e 2e 0a 54 68 65 20 70 6f 69 6e 74 20 69 73 20 61 73 73 | fixed.position..The.point.is.ass |
| 14a320 | 75 6d 65 64 20 74 6f 20 61 6c 72 65 61 64 79 20 62 65 20 61 74 20 74 68 65 20 6f 75 74 65 72 6d | umed.to.already.be.at.the.outerm |
| 14a340 | 6f 73 74 20 73 65 78 70 2c 20 6d 61 6b 69 6e 67 20 74 68 65 0a 66 69 72 73 74 20 65 6c 65 6d 65 | ost.sexp,.making.the.first.eleme |
| 14a360 | 6e 74 20 6f 66 20 74 68 65 20 73 6f 75 72 63 65 2d 70 61 74 68 20 72 65 64 75 6e 64 61 6e 74 2e | nt.of.the.source-path.redundant. |
| 14a380 | 22 0a 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 28 73 6c 69 6d 65 2d 66 6f | "...(ignore-errors.....(slime-fo |
| 14a3a0 | 72 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 | rward-sexp).....(beginning-of-de |
| 14a3c0 | 66 75 6e 29 29 0a 20 20 28 6c 65 74 20 28 28 73 6f 75 72 63 65 2d 70 61 74 68 20 28 63 64 72 20 | fun))...(let.((source-path.(cdr. |
| 14a3e0 | 73 6f 75 72 63 65 2d 70 61 74 68 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 73 6f 75 72 63 65 2d | source-path))).....(when.source- |
| 14a400 | 70 61 74 68 0a 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c 69 73 74 20 31 29 0a 20 20 20 20 20 20 28 | path.......(down-list.1).......( |
| 14a420 | 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 73 6f 75 72 63 65 | slime-forward-source-path.source |
| 14a440 | 2d 70 61 74 68 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d | -path))))..(defun.slime-forward- |
| 14a460 | 73 6f 75 72 63 65 2d 70 61 74 68 20 28 73 6f 75 72 63 65 2d 70 61 74 68 29 0a 20 20 28 6c 65 74 | source-path.(source-path)...(let |
| 14a480 | 20 28 28 6f 72 69 67 69 6e 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 69 74 69 | .((origin.(point))).....(conditi |
| 14a4a0 | 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 | on-case.nil.........(progn...... |
| 14a4c0 | 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 63 6f 75 6e 74 20 2e 20 6d 6f 72 65 29 | .....(cl-loop.for.(count...more) |
| 14a4e0 | 20 6f 6e 20 73 6f 75 72 63 65 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .on.source-path................. |
| 14a500 | 20 20 20 64 6f 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...do.(progn.................... |
| 14a520 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 73 65 78 70 20 63 6f 75 6e 74 29 0a | .....(slime-forward-sexp.count). |
| 14a540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6d 6f | ........................(when.mo |
| 14a560 | 72 65 20 28 64 6f 77 6e 2d 6c 69 73 74 20 31 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | re.(down-list.1))))...........;; |
| 14a580 | 20 41 6c 69 67 6e 20 61 74 20 62 65 67 69 6e 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 28 73 | .Align.at.beginning...........(s |
| 14a5a0 | 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 62 65 | lime-forward-sexp)...........(be |
| 14a5c0 | 67 69 6e 6e 69 6e 67 2d 6f 66 2d 73 65 78 70 29 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 | ginning-of-sexp)).......(error.( |
| 14a5e0 | 67 6f 74 6f 2d 63 68 61 72 20 6f 72 69 67 69 6e 29 29 29 29 29 0a 0a 0c 0a 3b 3b 20 46 49 58 4d | goto-char.origin)))))....;;.FIXM |
| 14a600 | 45 3a 20 72 65 61 6c 6c 79 20 66 69 78 20 74 68 69 73 20 6d 65 73 73 0a 3b 3b 20 46 49 58 4d 45 | E:.really.fix.this.mess.;;.FIXME |
| 14a620 | 3a 20 74 68 65 20 63 68 65 63 6b 20 73 68 6f 75 6c 6e 27 74 20 62 65 20 64 6f 6e 65 20 68 65 72 | :.the.check.shouln't.be.done.her |
| 14a640 | 65 20 61 6e 79 77 61 79 20 62 75 74 20 62 79 20 4d 2d 2e 20 69 74 73 65 6c 66 2e 0a 0a 28 64 65 | e.anyway.but.by.M-..itself...(de |
| 14a660 | 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6c 65 73 79 73 74 65 6d 2d 74 6f 70 6c 65 76 65 6c 2d 64 69 | fun.slime-filesystem-toplevel-di |
| 14a680 | 72 65 63 74 6f 72 79 20 28 29 0a 20 20 3b 3b 20 57 69 6e 64 6f 77 73 20 64 6f 65 73 6e 27 74 20 | rectory.()...;;.Windows.doesn't. |
| 14a6a0 | 68 61 76 65 20 61 20 74 72 75 65 20 74 6f 70 6c 65 76 65 6c 20 72 6f 6f 74 20 64 69 72 65 63 74 | have.a.true.toplevel.root.direct |
| 14a6c0 | 6f 72 79 2c 20 61 6e 64 20 61 6c 6c 0a 20 20 3b 3b 20 66 69 6c 65 6e 61 6d 65 73 20 6c 6f 6f 6b | ory,.and.all...;;.filenames.look |
| 14a6e0 | 20 6c 69 6b 65 20 22 63 3a 2f 66 6f 6f 2f 62 61 72 2f 71 75 75 78 2e 62 61 7a 22 20 66 72 6f 6d | .like."c:/foo/bar/quux.baz".from |
| 14a700 | 20 61 6e 20 45 6d 61 63 73 0a 20 20 3b 3b 20 70 65 72 73 70 65 63 74 69 76 65 20 61 6e 79 77 61 | .an.Emacs...;;.perspective.anywa |
| 14a720 | 79 2e 0a 20 20 28 69 66 20 28 6d 65 6d 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 28 6d 73 2d | y....(if.(memq.system-type.'(ms- |
| 14a740 | 64 6f 73 20 77 69 6e 64 6f 77 73 2d 6e 74 29 29 0a 20 20 20 20 20 20 22 22 0a 20 20 20 20 28 66 | dos.windows-nt))......."".....(f |
| 14a760 | 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 22 2f 22 29 29 29 0a 0a 28 64 | ile-name-as-directory."/")))..(d |
| 14a780 | 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6c 65 2d 6e 61 6d 65 2d 6d 65 72 67 65 2d 73 6f 75 72 63 | efun.slime-file-name-merge-sourc |
| 14a7a0 | 65 2d 72 6f 6f 74 20 28 74 61 72 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 62 75 66 66 65 72 2d 66 | e-root.(target-filename.buffer-f |
| 14a7c0 | 69 6c 65 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 73 20 61 20 66 69 6c 65 6e 61 6d 65 20 77 | ilename)..."Returns.a.filename.w |
| 14a7e0 | 68 65 72 65 20 74 68 65 20 73 6f 75 72 63 65 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 6f | here.the.source.root.directory.o |
| 14a800 | 66 20 54 41 52 47 45 54 2d 46 49 4c 45 4e 41 4d 45 0a 69 73 20 72 65 70 6c 61 63 65 64 20 77 69 | f.TARGET-FILENAME.is.replaced.wi |
| 14a820 | 74 68 20 74 68 65 20 73 6f 75 72 63 65 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 | th.the.source.root.directory.of. |
| 14a840 | 42 55 46 46 45 52 2d 46 49 4c 45 4e 41 4d 45 2e 0a 0a 49 66 20 6e 6f 20 63 6f 6d 6d 6f 6e 20 73 | BUFFER-FILENAME...If.no.common.s |
| 14a860 | 6f 75 72 63 65 20 72 6f 6f 74 20 63 6f 75 6c 64 20 62 65 20 64 65 74 65 72 6d 69 6e 65 64 2c 20 | ource.root.could.be.determined,. |
| 14a880 | 72 65 74 75 72 6e 20 4e 49 4c 2e 0a 0a 45 2e 67 2e 20 28 73 6c 69 6d 65 2d 66 69 6c 65 2d 6e 61 | return.NIL...E.g..(slime-file-na |
| 14a8a0 | 6d 65 2d 6d 65 72 67 65 2d 73 6f 75 72 63 65 2d 72 6f 6f 74 0a 20 20 20 20 20 20 20 5c 22 2f 75 | me-merge-source-root........\"/u |
| 14a8c0 | 73 72 2f 6c 6f 63 61 6c 2f 73 72 63 2f 6a 6f 65 2f 75 70 73 74 72 65 61 6d 2f 73 62 63 6c 2f 63 | sr/local/src/joe/upstream/sbcl/c |
| 14a8e0 | 6f 64 65 2f 6c 61 74 65 2d 65 78 74 65 6e 73 69 6f 6e 73 2e 6c 69 73 70 5c 22 0a 20 20 20 20 20 | ode/late-extensions.lisp\"...... |
| 14a900 | 20 20 5c 22 2f 75 73 72 2f 6c 6f 63 61 6c 2f 73 72 63 2f 6a 6f 65 2f 68 61 63 6b 65 64 2f 73 62 | ..\"/usr/local/src/joe/hacked/sb |
| 14a920 | 63 6c 2f 63 6f 6d 70 69 6c 65 72 2f 64 65 66 74 79 70 65 2e 6c 69 73 70 5c 22 29 0a 0a 20 20 20 | cl/compiler/deftype.lisp\")..... |
| 14a940 | 20 20 20 20 20 3d 3d 3e 20 5c 22 2f 75 73 72 2f 6c 6f 63 61 6c 2f 73 72 63 2f 6a 6f 65 2f 68 61 | .....==>.\"/usr/local/src/joe/ha |
| 14a960 | 63 6b 65 64 2f 73 62 63 6c 2f 63 6f 64 65 2f 6c 61 74 65 2d 65 78 74 65 6e 73 69 6f 6e 73 2e 6c | cked/sbcl/code/late-extensions.l |
| 14a980 | 69 73 70 5c 22 0a 22 0a 20 20 28 6c 65 74 20 28 28 74 61 72 67 65 74 2d 64 69 72 73 20 28 73 70 | isp\"."...(let.((target-dirs.(sp |
| 14a9a0 | 6c 69 74 2d 73 74 72 69 6e 67 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 | lit-string.(file-name-directory. |
| 14a9c0 | 74 61 72 67 65 74 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | target-filename)................ |
| 14a9e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2f 22 20 74 29 29 0a 20 20 20 20 | ...................."/".t))..... |
| 14aa00 | 20 20 20 20 28 62 75 66 66 65 72 2d 64 69 72 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 | ....(buffer-dirs.(split-string.( |
| 14aa20 | 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 62 75 66 66 65 72 2d 66 69 6c 65 6e | file-name-directory.buffer-filen |
| 14aa40 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame)............................ |
| 14aa60 | 20 20 20 20 20 20 20 20 22 2f 22 20 74 29 29 29 0a 20 20 20 20 3b 3b 20 53 74 61 72 74 69 6e 67 | ........"/".t))).....;;.Starting |
| 14aa80 | 20 66 72 6f 6d 20 74 68 65 20 65 6e 64 2c 20 77 65 20 6c 6f 6f 6b 20 69 66 20 6f 6e 65 20 6f 66 | .from.the.end,.we.look.if.one.of |
| 14aaa0 | 20 74 68 65 20 54 41 52 47 45 54 2d 44 49 52 53 20 65 78 69 73 74 73 0a 20 20 20 20 3b 3b 20 69 | .the.TARGET-DIRS.exists.....;;.i |
| 14aac0 | 6e 20 42 55 46 46 45 52 2d 46 49 4c 45 4e 41 4d 45 2d 2d 2d 69 66 20 73 6f 2c 20 69 74 20 61 6e | n.BUFFER-FILENAME---if.so,.it.an |
| 14aae0 | 64 20 65 76 65 72 79 74 68 69 6e 67 20 6c 65 66 74 20 66 72 6f 6d 20 74 68 61 74 20 64 69 72 6e | d.everything.left.from.that.dirn |
| 14ab00 | 61 6d 65 0a 20 20 20 20 3b 3b 20 69 73 20 63 6f 6e 73 69 64 65 72 65 64 20 74 6f 20 62 65 20 74 | ame.....;;.is.considered.to.be.t |
| 14ab20 | 68 65 20 73 6f 75 72 63 65 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 42 55 46 46 | he.source.root.directory.of.BUFF |
| 14ab40 | 45 52 2d 46 49 4c 45 4e 41 4d 45 2e 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 69 74 68 20 74 | ER-FILENAME......(cl-loop.with.t |
| 14ab60 | 61 72 67 65 74 2d 73 75 66 66 69 78 2d 64 69 72 73 20 3d 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 | arget-suffix-dirs.=.nil......... |
| 14ab80 | 20 20 20 20 20 77 69 74 68 20 62 75 66 66 65 72 2d 64 69 72 73 2a 20 3d 20 28 72 65 76 65 72 73 | .....with.buffer-dirs*.=.(revers |
| 14aba0 | 65 20 62 75 66 66 65 72 2d 64 69 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 | e.buffer-dirs)..............with |
| 14abc0 | 20 74 61 72 67 65 74 2d 64 69 72 73 2a 20 3d 20 28 72 65 76 65 72 73 65 20 74 61 72 67 65 74 2d | .target-dirs*.=.(reverse.target- |
| 14abe0 | 64 69 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 74 61 72 67 65 74 2d 64 69 | dirs)..............for.target-di |
| 14ac00 | 72 20 69 6e 20 74 61 72 67 65 74 2d 64 69 72 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 | r.in.target-dirs*..............d |
| 14ac20 | 6f 20 28 6c 65 74 20 20 28 28 63 6f 6e 63 61 74 2d 64 69 72 73 20 28 6c 61 6d 62 64 61 20 28 64 | o.(let..((concat-dirs.(lambda.(d |
| 14ac40 | 69 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | irs)............................ |
| 14ac60 | 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 63 6f 6e 63 61 74 0a 20 20 20 20 20 | ...........(apply.#'concat...... |
| 14ac80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 14aca0 | 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 | ........(mapcar.#'file-name-as-d |
| 14acc0 | 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | irectory........................ |
| 14ace0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 | ..............................di |
| 14ad00 | 72 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | rs))))........................(p |
| 14ad20 | 6f 73 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 20 74 61 72 67 65 74 2d 64 69 72 20 62 75 66 66 65 | os.(cl-position.target-dir.buffe |
| 14ad40 | 72 2d 64 69 72 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-dirs*......................... |
| 14ad60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 | .................:test.#'equal)) |
| 14ad80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 70 6f 73 | )...................(if.(not.pos |
| 14ada0 | 29 20 20 20 20 3b 20 54 41 52 47 45 54 2d 44 49 52 20 6e 6f 74 20 69 6e 20 42 55 46 46 45 52 2d | )....;.TARGET-DIR.not.in.BUFFER- |
| 14adc0 | 46 49 4c 45 4e 41 4d 45 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | FILENAME?....................... |
| 14ade0 | 28 70 75 73 68 20 74 61 72 67 65 74 2d 64 69 72 20 74 61 72 67 65 74 2d 73 75 66 66 69 78 2d 64 | (push.target-dir.target-suffix-d |
| 14ae00 | 69 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 | irs).....................(let*.( |
| 14ae20 | 28 74 61 72 67 65 74 2d 73 75 66 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (target-suffix.................. |
| 14ae40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 50 55 53 48 20 72 65 | .......................;.PUSH.re |
| 14ae60 | 76 65 72 73 65 64 20 66 6f 72 20 75 73 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | versed.for.us!.................. |
| 14ae80 | 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6e 63 61 74 2d 64 69 72 73 20 | ...........(funcall.concat-dirs. |
| 14aea0 | 74 61 72 67 65 74 2d 73 75 66 66 69 78 2d 64 69 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | target-suffix-dirs))............ |
| 14aec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 72 6f 6f 74 0a 20 20 20 | ................(buffer-root.... |
| 14aee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c | .........................(funcal |
| 14af00 | 6c 20 63 6f 6e 63 61 74 2d 64 69 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l.concat-dirs................... |
| 14af20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 76 65 72 73 65 20 28 6e 74 68 | ...................(reverse.(nth |
| 14af40 | 63 64 72 20 70 6f 73 20 62 75 66 66 65 72 2d 64 69 72 73 2a 29 29 29 29 29 0a 20 20 20 20 20 20 | cdr.pos.buffer-dirs*)))))....... |
| 14af60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 74 75 72 6e 20 28 63 6f 6e 63 | ................(cl-return.(conc |
| 14af80 | 61 74 20 28 73 6c 69 6d 65 2d 66 69 6c 65 73 79 73 74 65 6d 2d 74 6f 70 6c 65 76 65 6c 2d 64 69 | at.(slime-filesystem-toplevel-di |
| 14afa0 | 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rectory)........................ |
| 14afc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 72 6f 6f 74 0a 20 20 | ..................buffer-root... |
| 14afe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 14b000 | 20 20 20 20 20 20 20 74 61 72 67 65 74 2d 73 75 66 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 20 | .......target-suffix............ |
| 14b020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | ..............................(f |
| 14b040 | 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 | ile-name-nondirectory........... |
| 14b060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 14b080 | 74 61 72 67 65 74 2d 66 69 6c 65 6e 61 6d 65 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | target-filename)))))))))..(defun |
| 14b0a0 | 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 64 69 66 66 65 72 65 6e 63 65 73 2d 69 6e 2d | .slime-highlight-differences-in- |
| 14b0c0 | 64 69 72 6e 61 6d 65 20 28 62 61 73 65 2d 64 69 72 6e 61 6d 65 20 63 6f 6e 74 72 61 73 74 2d 64 | dirname.(base-dirname.contrast-d |
| 14b0e0 | 69 72 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 73 20 61 20 63 6f 70 79 20 6f 66 20 42 41 53 | irname)..."Returns.a.copy.of.BAS |
| 14b100 | 45 2d 44 49 52 4e 41 4d 45 20 77 68 65 72 65 20 61 6c 6c 20 64 69 66 66 65 72 65 6e 63 65 73 20 | E-DIRNAME.where.all.differences. |
| 14b120 | 62 65 74 77 65 65 6e 0a 42 41 53 45 2d 44 49 52 4e 41 4d 45 20 61 6e 64 20 43 4f 4e 54 52 41 53 | between.BASE-DIRNAME.and.CONTRAS |
| 14b140 | 54 2d 44 49 52 4e 41 4d 45 20 61 72 65 20 70 72 6f 70 65 72 74 69 7a 65 64 20 77 69 74 68 20 61 | T-DIRNAME.are.propertized.with.a |
| 14b160 | 0a 68 69 67 68 6c 69 67 68 74 69 6e 67 20 66 61 63 65 2e 22 0a 20 20 28 73 65 74 71 20 62 61 73 | .highlighting.face."...(setq.bas |
| 14b180 | 65 2d 64 69 72 6e 61 6d 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 | e-dirname.(file-name-as-director |
| 14b1a0 | 79 20 62 61 73 65 2d 64 69 72 6e 61 6d 65 29 29 0a 20 20 28 73 65 74 71 20 63 6f 6e 74 72 61 73 | y.base-dirname))...(setq.contras |
| 14b1c0 | 74 2d 64 69 72 6e 61 6d 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 | t-dirname.(file-name-as-director |
| 14b1e0 | 79 20 63 6f 6e 74 72 61 73 74 2d 64 69 72 6e 61 6d 65 29 29 0a 20 20 28 6c 65 74 20 28 28 62 61 | y.contrast-dirname))...(let.((ba |
| 14b200 | 73 65 2d 64 69 72 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 62 61 73 65 2d 64 69 72 6e 61 | se-dirs.(split-string.base-dirna |
| 14b220 | 6d 65 20 22 2f 22 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 74 72 61 73 74 2d 64 69 72 | me."/".t)).........(contrast-dir |
| 14b240 | 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 63 6f 6e 74 72 61 73 74 2d 64 69 72 6e 61 6d 65 | s.(split-string.contrast-dirname |
| 14b260 | 20 22 2f 22 20 74 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a | ."/".t))).....(with-temp-buffer. |
| 14b280 | 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 69 6e 69 74 69 61 6c 6c 79 20 28 69 6e 73 65 72 74 | ......(cl-loop.initially.(insert |
| 14b2a0 | 20 28 73 6c 69 6d 65 2d 66 69 6c 65 73 79 73 74 65 6d 2d 74 6f 70 6c 65 76 65 6c 2d 64 69 72 65 | .(slime-filesystem-toplevel-dire |
| 14b2c0 | 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 62 61 73 65 2d | ctory))................for.base- |
| 14b2e0 | 64 69 72 20 69 6e 20 62 61 73 65 2d 64 69 72 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 | dir.in.base-dirs.do............. |
| 14b300 | 20 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 20 62 61 73 65 2d | ...(let.((pos.(cl-position.base- |
| 14b320 | 64 69 72 20 63 6f 6e 74 72 61 73 74 2d 64 69 72 73 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 | dir.contrast-dirs.:test.#'equal) |
| 14b340 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 | ))..................(cond.((not. |
| 14b360 | 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | pos).........................(sl |
| 14b380 | 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 64 20 27 28 66 61 63 65 20 68 69 | ime-insert-propertized.'(face.hi |
| 14b3a0 | 67 68 6c 69 67 68 74 29 20 62 61 73 65 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ghlight).base-dir).............. |
| 14b3c0 | 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 2f 22 29 29 0a 20 20 20 20 20 20 20 | ...........(insert."/"))........ |
| 14b3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................(t.............. |
| 14b400 | 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 | ...........(insert.(file-name-as |
| 14b420 | 2d 64 69 72 65 63 74 6f 72 79 20 62 61 73 65 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -directory.base-dir))........... |
| 14b440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6e 74 72 61 73 74 2d 64 69 72 | ..............(setq.contrast-dir |
| 14b460 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s............................... |
| 14b480 | 28 6e 74 68 63 64 72 20 28 31 2b 20 70 6f 73 29 20 63 6f 6e 74 72 61 73 74 2d 64 69 72 73 29 29 | (nthcdr.(1+.pos).contrast-dirs)) |
| 14b4a0 | 29 29 29 29 0a 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 28 70 6f | )))).......(buffer-substring.(po |
| 14b4c0 | 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 0a 0a 28 64 65 66 76 61 | int-min).(point-max)))))..(defva |
| 14b4e0 | 72 20 73 6c 69 6d 65 2d 77 61 72 6e 2d 77 68 65 6e 2d 70 6f 73 73 69 62 6c 79 2d 74 72 69 63 6b | r.slime-warn-when-possibly-trick |
| 14b500 | 65 64 2d 62 79 2d 4d 2d 2e 20 74 0a 20 20 22 57 68 65 6e 20 77 6f 72 6b 69 6e 67 20 6f 6e 20 6d | ed-by-M-..t..."When.working.on.m |
| 14b520 | 75 6c 74 69 70 6c 65 20 73 6f 75 72 63 65 20 74 72 65 65 73 20 73 69 6d 75 6c 74 61 6e 65 6f 75 | ultiple.source.trees.simultaneou |
| 14b540 | 73 6c 79 2c 20 74 68 65 20 77 61 79 0a 60 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 | sly,.the.way.`slime-edit-definit |
| 14b560 | 69 6f 6e 27 20 28 4d 2d 2e 29 20 77 6f 72 6b 73 20 63 61 6e 20 73 6f 6d 65 74 69 6d 65 73 20 62 | ion'.(M-.).works.can.sometimes.b |
| 14b580 | 65 20 63 6f 6e 66 75 73 69 6e 67 3a 0a 0a 60 4d 2d 2e 27 20 76 69 73 69 74 73 20 6c 6f 63 61 74 | e.confusing:..`M-.'.visits.locat |
| 14b5a0 | 69 6f 6e 73 20 74 68 61 74 20 61 72 65 20 70 72 65 73 65 6e 74 20 69 6e 20 74 68 65 20 63 75 72 | ions.that.are.present.in.the.cur |
| 14b5c0 | 72 65 6e 74 20 4c 69 73 70 20 69 6d 61 67 65 2c 0a 77 68 69 63 68 20 77 6f 72 6b 73 20 70 65 72 | rent.Lisp.image,.which.works.per |
| 14b5e0 | 66 65 63 74 6c 79 20 77 65 6c 6c 20 61 73 20 6c 6f 6e 67 20 61 73 20 74 68 65 20 69 6d 61 67 65 | fectly.well.as.long.as.the.image |
| 14b600 | 20 72 65 66 6c 65 63 74 73 20 74 68 65 20 73 6f 75 72 63 65 0a 74 72 65 65 20 74 68 61 74 20 6f | .reflects.the.source.tree.that.o |
| 14b620 | 6e 65 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 6c 6f 6f 6b 69 6e 67 20 61 74 2e 0a 0a 49 6e 20 | ne.is.currently.looking.at...In. |
| 14b640 | 74 68 65 20 6f 74 68 65 72 20 63 61 73 65 2c 20 68 6f 77 65 76 65 72 2c 20 6f 6e 65 20 63 61 6e | the.other.case,.however,.one.can |
| 14b660 | 20 65 61 73 69 6c 79 20 65 6e 64 20 75 70 20 76 69 73 69 74 69 6e 67 20 61 20 66 69 6c 65 0a 69 | .easily.end.up.visiting.a.file.i |
| 14b680 | 6e 20 61 20 64 69 66 66 65 72 65 6e 74 20 73 6f 75 72 63 65 20 72 6f 6f 74 20 64 69 72 65 63 74 | n.a.different.source.root.direct |
| 14b6a0 | 6f 72 79 20 28 63 6c 2d 74 68 65 20 6f 6e 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f | ory.(cl-the.one.corresponding.to |
| 14b6c0 | 0a 74 68 65 20 4c 69 73 70 20 69 6d 61 67 65 29 2c 20 61 6e 64 20 69 73 20 74 68 75 73 20 65 61 | .the.Lisp.image),.and.is.thus.ea |
| 14b6e0 | 73 69 6c 79 20 74 72 69 63 6b 65 64 20 74 6f 20 6d 6f 64 69 66 79 20 74 68 65 20 77 72 6f 6e 67 | sily.tricked.to.modify.the.wrong |
| 14b700 | 0a 73 6f 75 72 63 65 20 66 69 6c 65 73 2d 2d 2d 77 68 69 63 68 20 63 61 6e 20 6c 65 61 64 20 74 | .source.files---which.can.lead.t |
| 14b720 | 6f 20 71 75 69 74 65 20 73 6f 6d 65 20 73 74 72 65 73 73 66 75 6c 6c 20 63 75 72 73 69 6e 67 2e | o.quite.some.stressfull.cursing. |
| 14b740 | 0a 0a 49 66 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 54 2c 20 61 20 77 61 72 6e 69 | ..If.this.variable.is.T,.a.warni |
| 14b760 | 6e 67 20 6d 65 73 73 61 67 65 20 69 73 20 69 73 73 75 65 64 20 74 6f 20 72 61 69 73 65 20 74 68 | ng.message.is.issued.to.raise.th |
| 14b780 | 65 0a 75 73 65 72 27 73 20 61 74 74 65 6e 74 69 6f 6e 20 77 68 65 6e 65 76 65 72 20 60 4d 2d 2e | e.user's.attention.whenever.`M-. |
| 14b7a0 | 27 20 69 73 20 61 62 6f 75 74 20 6f 70 65 6e 69 6e 67 20 61 20 66 69 6c 65 20 69 6e 20 61 0a 64 | '.is.about.opening.a.file.in.a.d |
| 14b7c0 | 69 66 66 65 72 65 6e 74 20 73 6f 75 72 63 65 20 72 6f 6f 74 20 74 68 61 74 20 61 6c 73 6f 20 65 | ifferent.source.root.that.also.e |
| 14b7e0 | 78 69 73 74 73 20 69 6e 20 74 68 65 20 73 6f 75 72 63 65 20 72 6f 6f 74 0a 64 69 72 65 63 74 6f | xists.in.the.source.root.directo |
| 14b800 | 72 79 20 6f 66 20 74 68 65 20 75 73 65 72 27 73 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e | ry.of.the.user's.current.buffer. |
| 14b820 | 0a 0a 54 68 65 72 65 27 73 20 6e 6f 20 67 75 61 72 61 6e 74 65 65 20 74 68 61 74 20 61 6c 6c 20 | ..There's.no.guarantee.that.all. |
| 14b840 | 70 6f 73 73 69 62 6c 65 20 63 61 73 65 73 20 61 72 65 20 63 6f 76 65 72 65 64 2c 20 62 75 74 0a | possible.cases.are.covered,.but. |
| 14b860 | 69 66 20 79 6f 75 20 65 6e 63 6f 75 6e 74 65 72 20 73 75 63 68 20 61 20 77 61 72 6e 69 6e 67 2c | if.you.encounter.such.a.warning, |
| 14b880 | 20 69 74 27 73 20 61 20 73 74 72 6f 6e 67 20 69 6e 64 69 63 61 74 69 6f 6e 20 74 68 61 74 0a 79 | .it's.a.strong.indication.that.y |
| 14b8a0 | 6f 75 20 73 68 6f 75 6c 64 20 63 68 65 63 6b 20 74 77 69 63 65 20 62 65 66 6f 72 65 20 6d 6f 64 | ou.should.check.twice.before.mod |
| 14b8c0 | 69 66 79 69 6e 67 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 79 62 65 2d 77 61 | ifying.")..(defun.slime-maybe-wa |
| 14b8e0 | 72 6e 2d 66 6f 72 2d 64 69 66 66 65 72 65 6e 74 2d 73 6f 75 72 63 65 2d 72 6f 6f 74 20 28 74 61 | rn-for-different-source-root.(ta |
| 14b900 | 72 67 65 74 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rget-filename................... |
| 14b920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 14b940 | 20 62 75 66 66 65 72 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 67 75 65 73 73 | .buffer-filename)...(let.((guess |
| 14b960 | 65 64 2d 74 61 72 67 65 74 20 28 73 6c 69 6d 65 2d 66 69 6c 65 2d 6e 61 6d 65 2d 6d 65 72 67 65 | ed-target.(slime-file-name-merge |
| 14b980 | 2d 73 6f 75 72 63 65 2d 72 6f 6f 74 20 74 61 72 67 65 74 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 | -source-root.target-filename.... |
| 14b9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 14b9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 66 | ........................buffer-f |
| 14b9e0 | 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 67 75 65 73 73 65 | ilename))).....(when.(and.guesse |
| 14ba00 | 64 2d 74 61 72 67 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 | d-target................(not.(eq |
| 14ba20 | 75 61 6c 20 67 75 65 73 73 65 64 2d 74 61 72 67 65 74 20 74 61 72 67 65 74 2d 66 69 6c 65 6e 61 | ual.guessed-target.target-filena |
| 14ba40 | 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 65 78 69 73 74 73 | me))................(file-exists |
| 14ba60 | 2d 70 20 67 75 65 73 73 65 64 2d 74 61 72 67 65 74 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 | -p.guessed-target)).......(slime |
| 14ba80 | 2d 6d 65 73 73 61 67 65 20 22 41 74 74 65 6e 74 69 6f 6e 3a 20 54 68 69 73 20 69 73 20 60 25 73 | -message."Attention:.This.is.`%s |
| 14baa0 | 27 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 | '."......................(concat |
| 14bac0 | 20 28 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 64 69 66 66 65 72 65 6e 63 65 73 2d 69 6e | .(slime-highlight-differences-in |
| 14bae0 | 2d 64 69 72 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -dirname........................ |
| 14bb00 | 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 74 61 72 67 | .......(file-name-directory.targ |
| 14bb20 | 65 74 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | et-filename).................... |
| 14bb40 | 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 | ...........(file-name-directory. |
| 14bb60 | 67 75 65 73 73 65 64 2d 74 61 72 67 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | guessed-target))................ |
| 14bb80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 | ..............(file-name-nondire |
| 14bba0 | 63 74 6f 72 79 20 74 61 72 67 65 74 2d 66 69 6c 65 6e 61 6d 65 29 29 29 29 29 29 0a 0a 28 64 65 | ctory.target-filename))))))..(de |
| 14bbc0 | 66 75 6e 20 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 66 69 6c 65 6e 61 6d | fun.slime-check-location-filenam |
| 14bbe0 | 65 2d 73 61 6e 69 74 79 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 28 77 68 65 6e 20 73 6c 69 6d | e-sanity.(filename)...(when.slim |
| 14bc00 | 65 2d 77 61 72 6e 2d 77 68 65 6e 2d 70 6f 73 73 69 62 6c 79 2d 74 72 69 63 6b 65 64 2d 62 79 2d | e-warn-when-possibly-tricked-by- |
| 14bc20 | 4d 2d 2e 0a 20 20 20 20 28 63 6c 2d 6d 61 63 72 6f 6c 65 74 20 28 28 74 72 75 65 6e 61 6d 65 2d | M-......(cl-macrolet.((truename- |
| 14bc40 | 73 61 66 65 20 28 66 69 6c 65 29 20 60 28 61 6e 64 20 2c 66 69 6c 65 20 28 66 69 6c 65 2d 74 72 | safe.(file).`(and.,file.(file-tr |
| 14bc60 | 75 65 6e 61 6d 65 20 2c 66 69 6c 65 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 61 | uename.,file)))).......(let.((ta |
| 14bc80 | 72 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 28 74 72 75 65 6e 61 6d 65 2d 73 61 66 65 20 66 69 6c | rget-filename.(truename-safe.fil |
| 14bca0 | 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 66 69 6c 65 | ename)).............(buffer-file |
| 14bcc0 | 6e 61 6d 65 20 28 74 72 75 65 6e 61 6d 65 2d 73 61 66 65 20 28 62 75 66 66 65 72 2d 66 69 6c 65 | name.(truename-safe.(buffer-file |
| 14bce0 | 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 74 61 72 | -name)))).........(when.(and.tar |
| 14bd00 | 67 65 74 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | get-filename.................... |
| 14bd20 | 62 75 66 66 65 72 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | buffer-filename)...........(slim |
| 14bd40 | 65 2d 6d 61 79 62 65 2d 77 61 72 6e 2d 66 6f 72 2d 64 69 66 66 65 72 65 6e 74 2d 73 6f 75 72 63 | e-maybe-warn-for-different-sourc |
| 14bd60 | 65 2d 72 6f 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 74 61 72 67 65 74 2d 66 69 6c 65 6e 61 6d | e-root............target-filenam |
| 14bd80 | 65 20 62 75 66 66 65 72 2d 66 69 6c 65 6e 61 6d 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | e.buffer-filename))))))..(defun. |
| 14bda0 | 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 62 75 66 66 65 72 2d 6e 61 6d 65 | slime-check-location-buffer-name |
| 14bdc0 | 2d 73 61 6e 69 74 79 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 28 73 6c 69 6d 65 2d 63 | -sanity.(buffer-name)...(slime-c |
| 14bde0 | 68 65 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 66 69 6c 65 6e 61 6d 65 2d 73 61 6e 69 74 79 0a 20 20 | heck-location-filename-sanity... |
| 14be00 | 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 67 65 74 2d 62 75 66 66 65 72 20 62 | .(buffer-file-name.(get-buffer.b |
| 14be20 | 75 66 66 65 72 2d 6e 61 6d 65 29 29 29 29 0a 0a 0c 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | uffer-name)))).....(defun.slime- |
| 14be40 | 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 62 75 66 66 65 72 20 28 62 75 66 66 65 72 29 0a 20 20 | goto-location-buffer.(buffer)... |
| 14be60 | 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 62 75 66 66 65 72 0a 20 20 20 20 28 28 3a 66 69 6c 65 20 | (slime-dcase.buffer.....((:file. |
| 14be80 | 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 6e 61 6d 65 20 28 | filename)......(let.((filename.( |
| 14bea0 | 73 6c 69 6d 65 2d 66 72 6f 6d 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 6e 61 6d | slime-from-lisp-filename.filenam |
| 14bec0 | 65 29 29 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 6c 6f 63 61 74 69 6f | e)))........(slime-check-locatio |
| 14bee0 | 6e 2d 66 69 6c 65 6e 61 6d 65 2d 73 61 6e 69 74 79 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 | n-filename-sanity.filename)..... |
| 14bf00 | 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 28 6f 72 20 28 67 65 74 2d 66 69 6c 65 2d 62 75 66 | ...(set-buffer.(or.(get-file-buf |
| 14bf20 | 66 65 72 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fer.filename)................... |
| 14bf40 | 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6e 64 2d 66 69 6c 65 2d 73 75 70 70 72 65 73 73 2d 73 | .....(let.((find-file-suppress-s |
| 14bf60 | 61 6d 65 2d 66 69 6c 65 2d 77 61 72 6e 69 6e 67 73 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ame-file-warnings.t)............ |
| 14bf80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 66 69 72 6d 2d 6e 6f 6e 65 78 | ..................(confirm-nonex |
| 14bfa0 | 69 73 74 65 6e 74 2d 66 69 6c 65 2d 6f 72 2d 62 75 66 66 65 72 20 74 29 29 0a 20 20 20 20 20 20 | istent-file-or-buffer.t))....... |
| 14bfc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f | ...................(find-file-no |
| 14bfe0 | 73 65 6c 65 63 74 20 66 69 6c 65 6e 61 6d 65 29 29 29 29 29 29 0a 20 20 20 20 28 28 3a 62 75 66 | select.filename)))))).....((:buf |
| 14c000 | 66 65 72 20 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 | fer.buffer-name)......(slime-che |
| 14c020 | 63 6b 2d 6c 6f 63 61 74 69 6f 6e 2d 62 75 66 66 65 72 2d 6e 61 6d 65 2d 73 61 6e 69 74 79 20 62 | ck-location-buffer-name-sanity.b |
| 14c040 | 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 62 75 66 | uffer-name)......(set-buffer.buf |
| 14c060 | 66 65 72 2d 6e 61 6d 65 29 29 0a 20 20 20 20 28 28 3a 62 75 66 66 65 72 2d 61 6e 64 2d 66 69 6c | fer-name)).....((:buffer-and-fil |
| 14c080 | 65 20 62 75 66 66 65 72 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 67 | e.buffer.filename)......(slime-g |
| 14c0a0 | 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 69 66 20 28 67 | oto-location-buffer.......(if.(g |
| 14c0c0 | 65 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | et-buffer.buffer)...........(lis |
| 14c0e0 | 74 20 3a 62 75 66 66 65 72 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | t.:buffer.buffer).........(list. |
| 14c100 | 3a 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 28 3a 73 6f 75 72 63 65 | :file.filename)))).....((:source |
| 14c120 | 2d 66 6f 72 6d 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 28 | -form.string)......(set-buffer.( |
| 14c140 | 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d | get-buffer-create.(slime-buffer- |
| 14c160 | 6e 61 6d 65 20 3a 73 6f 75 72 63 65 29 29 29 0a 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 | name.:source)))......(erase-buff |
| 14c180 | 65 72 29 0a 20 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 20 28 69 6e 73 65 72 | er)......(lisp-mode)......(inser |
| 14c1a0 | 74 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 | t.string)......(goto-char.(point |
| 14c1c0 | 2d 6d 69 6e 29 29 29 0a 20 20 20 20 28 28 3a 7a 69 70 20 66 69 6c 65 20 65 6e 74 72 79 29 0a 20 | -min))).....((:zip.file.entry).. |
| 14c1e0 | 20 20 20 20 28 72 65 71 75 69 72 65 20 27 61 72 63 2d 6d 6f 64 65 29 0a 20 20 20 20 20 28 73 65 | ....(require.'arc-mode)......(se |
| 14c200 | 74 2d 62 75 66 66 65 72 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 66 69 6c | t-buffer.(find-file-noselect.fil |
| 14c220 | 65 20 74 29 29 0a 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e | e.t))......(goto-char.(point-min |
| 14c240 | 29 29 0a 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 63 6f 6e 63 | ))......(re-search-forward.(conc |
| 14c260 | 61 74 20 22 20 20 22 20 65 6e 74 72 79 20 22 24 22 29 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 | at."..".entry."$"))......(let.(( |
| 14c280 | 62 75 66 66 65 72 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 | buffer.(save-window-excursion... |
| 14c2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 63 68 69 76 65 2d 65 78 74 72 | ...................(archive-extr |
| 14c2c0 | 61 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 | act)......................(curre |
| 14c2e0 | 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 | nt-buffer))))........(set-buffer |
| 14c300 | 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e | .buffer)........(goto-char.(poin |
| 14c320 | 74 2d 6d 69 6e 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6c | t-min))))))..(defun.slime-goto-l |
| 14c340 | 6f 63 61 74 69 6f 6e 2d 70 6f 73 69 74 69 6f 6e 20 28 70 6f 73 69 74 69 6f 6e 29 0a 20 20 28 73 | ocation-position.(position)...(s |
| 14c360 | 6c 69 6d 65 2d 64 63 61 73 65 20 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 28 28 3a 70 6f 73 69 74 | lime-dcase.position.....((:posit |
| 14c380 | 69 6f 6e 20 70 6f 73 29 0a 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 31 29 0a 20 20 20 20 | ion.pos)......(goto-char.1)..... |
| 14c3a0 | 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 28 2d 20 28 31 2d 20 70 6f 73 29 20 28 73 6c 69 6d | .(forward-char.(-.(1-.pos).(slim |
| 14c3c0 | 65 2d 65 6f 6c 2d 63 6f 6e 76 65 72 73 69 6f 6e 2d 66 69 78 75 70 20 28 31 2d 20 70 6f 73 29 29 | e-eol-conversion-fixup.(1-.pos)) |
| 14c3e0 | 29 29 29 0a 20 20 20 20 28 28 3a 6f 66 66 73 65 74 20 73 74 61 72 74 20 6f 66 66 73 65 74 29 0a | ))).....((:offset.start.offset). |
| 14c400 | 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 20 20 28 66 6f 72 | .....(goto-char.start)......(for |
| 14c420 | 77 61 72 64 2d 63 68 61 72 20 6f 66 66 73 65 74 29 29 0a 20 20 20 20 28 28 3a 6c 69 6e 65 20 73 | ward-char.offset)).....((:line.s |
| 14c440 | 74 61 72 74 20 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 20 28 67 6f 74 | tart.&optional.column)......(got |
| 14c460 | 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 28 62 65 67 69 6e 6e | o-char.(point-min))......(beginn |
| 14c480 | 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 74 61 72 74 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 63 | ing-of-line.start)......(cond.(c |
| 14c4a0 | 6f 6c 75 6d 6e 20 28 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 63 6f 6c 75 6d 6e 29 29 0a 20 | olumn.(move-to-column.column)).. |
| 14c4c0 | 20 20 20 20 20 20 20 20 20 20 28 74 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 | ..........(t.(skip-chars-forward |
| 14c4e0 | 20 22 20 5c 74 22 29 29 29 29 0a 20 20 20 20 28 28 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 | .".\t")))).....((:function-name. |
| 14c500 | 6e 61 6d 65 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 | name)......(let.((case-fold-sear |
| 14c520 | 63 68 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 72 65 67 65 78 70 2d 71 | ch.t)............(name.(regexp-q |
| 14c540 | 75 6f 74 65 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | uote.name)))........(goto-char.( |
| 14c560 | 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 0a 20 20 20 | point-min))........(when.(or.... |
| 14c580 | 20 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 0a 20 20 | ...........(re-search-forward... |
| 14c5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 5c 5c 73 20 2a 28 64 65 66 5c | .............(format."\\s.*(def\ |
| 14c5c0 | 5c 28 5c 5c 73 5f 5c 5c 7c 5c 5c 73 77 5c 5c 29 2a 5c 5c 73 20 2b 28 2a 25 73 5c 5c 53 5f 22 0a | \(\\s_\\|\\sw\\)*\\s.+(*%s\\S_". |
| 14c5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 67 65 78 70 2d 71 | .......................(regexp-q |
| 14c600 | 75 6f 74 65 20 6e 61 6d 65 29 29 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | uote.name)).nil.t).............. |
| 14c620 | 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .(re-search-forward............. |
| 14c640 | 20 20 20 28 66 6f 72 6d 61 74 20 22 5b 28 20 5c 74 5d 25 73 5c 5c 3e 5c 5c 28 5c 5c 73 20 5c 5c | ...(format."[(.\t]%s\\>\\(\\s.\\ |
| 14c660 | 7c 24 5c 5c 29 22 20 6e 61 6d 65 29 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 67 | |$\\)".name).nil.t))..........(g |
| 14c680 | 6f 74 6f 2d 63 68 61 72 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 29 29 | oto-char.(match-beginning.0))))) |
| 14c6a0 | 0a 20 20 20 20 28 28 3a 6d 65 74 68 6f 64 20 6e 61 6d 65 20 73 70 65 63 69 61 6c 69 7a 65 72 73 | .....((:method.name.specializers |
| 14c6c0 | 20 26 72 65 73 74 20 71 75 61 6c 69 66 69 65 72 73 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 | .&rest.qualifiers)......(slime-s |
| 14c6e0 | 65 61 72 63 68 2d 6d 65 74 68 6f 64 2d 6c 6f 63 61 74 69 6f 6e 20 6e 61 6d 65 20 73 70 65 63 69 | earch-method-location.name.speci |
| 14c700 | 61 6c 69 7a 65 72 73 20 71 75 61 6c 69 66 69 65 72 73 29 29 0a 20 20 20 20 28 28 3a 73 6f 75 72 | alizers.qualifiers)).....((:sour |
| 14c720 | 63 65 2d 70 61 74 68 20 73 6f 75 72 63 65 2d 70 61 74 68 20 73 74 61 72 74 2d 70 6f 73 69 74 69 | ce-path.source-path.start-positi |
| 14c740 | 6f 6e 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 0a 20 | on)......(cond.(start-position.. |
| 14c760 | 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 2d 70 6f 73 69 | ...........(goto-char.start-posi |
| 14c780 | 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 | tion).............(slime-forward |
| 14c7a0 | 2d 70 6f 73 69 74 69 6f 6e 65 64 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 73 6f 75 72 63 65 2d 70 | -positioned-source-path.source-p |
| 14c7c0 | 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ath))............(t............. |
| 14c7e0 | 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 73 6f 75 72 63 | (slime-forward-source-path.sourc |
| 14c800 | 65 2d 70 61 74 68 29 29 29 29 0a 20 20 20 20 28 28 3a 65 6f 66 29 0a 20 20 20 20 20 28 67 6f 74 | e-path)))).....((:eof)......(got |
| 14c820 | 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | o-char.(point-max)))))..(defun.s |
| 14c840 | 6c 69 6d 65 2d 65 6f 6c 2d 63 6f 6e 76 65 72 73 69 6f 6e 2d 66 69 78 75 70 20 28 6e 29 0a 20 20 | lime-eol-conversion-fixup.(n)... |
| 14c860 | 3b 3b 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 5c 72 5c 6e 20 65 6f 6c | ;;.Return.the.number.of.\r\n.eol |
| 14c880 | 20 6d 61 72 6b 65 72 73 20 74 68 61 74 20 77 65 20 6e 65 65 64 20 74 6f 20 63 72 6f 73 73 20 77 | .markers.that.we.need.to.cross.w |
| 14c8a0 | 68 65 6e 0a 20 20 3b 3b 20 6d 6f 76 69 6e 67 20 4e 20 63 68 61 72 73 20 66 6f 72 77 61 72 64 2e | hen...;;.moving.N.chars.forward. |
| 14c8c0 | 20 20 4e 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 73 20 62 75 74 20 5c | ..N.is.the.number.of.chars.but.\ |
| 14c8e0 | 72 5c 6e 20 61 72 65 0a 20 20 3b 3b 20 63 6f 75 6e 74 65 64 20 61 73 20 32 20 73 65 70 61 72 61 | r\n.are...;;.counted.as.2.separa |
| 14c900 | 74 65 20 63 68 61 72 73 2e 0a 20 20 28 63 6c 2d 63 61 73 65 20 28 63 6f 64 69 6e 67 2d 73 79 73 | te.chars....(cl-case.(coding-sys |
| 14c920 | 74 65 6d 2d 65 6f 6c 2d 74 79 70 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 63 6f 64 69 6e 67 2d | tem-eol-type.buffer-file-coding- |
| 14c940 | 73 79 73 74 65 6d 29 0a 20 20 20 20 28 28 31 29 0a 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 | system).....((1)......(save-excu |
| 14c960 | 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 28 63 6c 2d 64 6f 20 28 28 70 6f 73 20 28 2b 20 28 70 6f | rsion........(cl-do.((pos.(+.(po |
| 14c980 | 69 6e 74 29 20 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 74 20 30 | int).n))................(count.0 |
| 14c9a0 | 20 28 31 2b 20 63 6f 75 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3e 3d 20 28 70 | .(1+.count)))............((>=.(p |
| 14c9c0 | 6f 69 6e 74 29 20 70 6f 73 29 20 28 31 2d 20 63 6f 75 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 | oint).pos).(1-.count)).......... |
| 14c9e0 | 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 28 63 6c 2d 64 65 63 66 | (forward-line)..........(cl-decf |
| 14ca00 | 20 70 6f 73 29 29 29 29 0a 20 20 20 20 28 74 20 30 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | .pos)))).....(t.0)))..(defun.sli |
| 14ca20 | 6d 65 2d 73 65 61 72 63 68 2d 6d 65 74 68 6f 64 2d 6c 6f 63 61 74 69 6f 6e 20 28 6e 61 6d 65 20 | me-search-method-location.(name. |
| 14ca40 | 73 70 65 63 69 61 6c 69 7a 65 72 73 20 71 75 61 6c 69 66 69 65 72 73 29 0a 20 20 3b 3b 20 4c 6f | specializers.qualifiers)...;;.Lo |
| 14ca60 | 6f 6b 20 66 6f 72 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 77 6f 72 64 73 20 28 64 65 66 3c | ok.for.a.sequence.of.words.(def< |
| 14ca80 | 73 6f 6d 65 74 68 69 6e 67 3e 20 6d 65 74 68 6f 64 20 6e 61 6d 65 0a 20 20 3b 3b 20 71 75 61 6c | something>.method.name...;;.qual |
| 14caa0 | 69 66 65 72 73 20 73 70 65 63 69 61 6c 69 7a 65 72 73 20 64 6f 6e 27 74 20 6c 6f 6f 6b 20 66 6f | ifers.specializers.don't.look.fo |
| 14cac0 | 72 20 22 54 22 20 73 69 6e 63 65 20 69 74 20 69 73 6e 27 74 20 72 65 71 75 69 72 65 73 0a 20 20 | r."T".since.it.isn't.requires... |
| 14cae0 | 3b 3b 20 28 61 72 67 20 77 69 74 68 6f 75 74 20 74 29 20 61 73 20 63 6c 61 73 73 20 69 73 20 74 | ;;.(arg.without.t).as.class.is.t |
| 14cb00 | 61 6b 65 6e 20 61 73 20 73 75 63 68 2e 0a 20 20 28 6c 65 74 2a 20 28 28 63 61 73 65 2d 66 6f 6c | aken.as.such....(let*.((case-fol |
| 14cb20 | 64 2d 73 65 61 72 63 68 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 72 65 67 65 | d-search.t)..........(name.(rege |
| 14cb40 | 78 70 2d 71 75 6f 74 65 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 71 75 61 6c 69 66 | xp-quote.name))..........(qualif |
| 14cb60 | 69 65 72 73 20 28 6d 61 70 63 6f 6e 63 61 74 20 28 6c 61 6d 62 64 61 20 28 65 6c 29 20 28 63 6f | iers.(mapconcat.(lambda.(el).(co |
| 14cb80 | 6e 63 61 74 20 22 2e 2b 3f 5c 5c 3c 22 20 65 6c 20 22 5c 5c 3e 22 29 29 0a 20 20 20 20 20 20 20 | ncat.".+?\\<".el."\\>"))........ |
| 14cba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 61 6c 69 66 69 | .........................qualifi |
| 14cbc0 | 65 72 73 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 70 65 63 69 61 6c 69 7a 65 72 73 20 | ers.""))..........(specializers. |
| 14cbe0 | 28 6d 61 70 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (mapconcat...................... |
| 14cc00 | 20 20 20 28 6c 61 6d 62 64 61 20 28 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(lambda.(el)................. |
| 14cc20 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 6c 20 28 61 72 65 66 20 65 6c 20 30 29 20 3f | ..........(if.(eql.(aref.el.0).? |
| 14cc40 | 5c 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | \()............................. |
| 14cc60 | 20 20 28 6c 65 74 20 28 28 73 70 65 63 20 28 72 65 61 64 20 65 6c 29 29 29 0a 20 20 20 20 20 20 | ..(let.((spec.(read.el)))....... |
| 14cc80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 | ..........................(if.(e |
| 14cca0 | 71 20 28 63 61 72 20 73 70 65 63 29 20 27 45 51 4c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | q.(car.spec).'EQL).............. |
| 14ccc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 | .......................(concat.. |
| 14cce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 14cd00 | 20 20 20 20 22 2e 2a 3f 5c 5c 6e 5c 5c 7b 30 2c 31 5c 5c 7d 2e 2a 3f 28 45 51 4c 2e 2a 3f 27 5c | ....".*?\\n\\{0,1\\}.*?(EQL.*?'\ |
| 14cd20 | 5c 7b 30 2c 31 5c 5c 7d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | \{0,1\\}"....................... |
| 14cd40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 28 63 6c 2d | ...............(format."%s".(cl- |
| 14cd60 | 73 65 63 6f 6e 64 20 73 70 65 63 29 29 20 22 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | second.spec)).")").............. |
| 14cd80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 64 6f 6e | .....................(error."don |
| 14cda0 | 27 74 20 75 6e 64 65 72 73 74 61 6e 64 20 73 70 65 63 69 61 6c 69 7a 65 72 3a 20 25 73 2c 25 73 | 't.understand.specializer:.%s,%s |
| 14cdc0 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "............................... |
| 14cde0 | 20 20 20 20 20 20 20 20 20 20 20 65 6c 20 28 63 61 72 20 73 70 65 63 29 29 29 29 0a 20 20 20 20 | ...........el.(car.spec))))..... |
| 14ce00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 | ........................(concat. |
| 14ce20 | 22 2e 2b 3f 5c 6e 5c 5c 7b 30 2c 31 5c 5c 7d 2e 2b 3f 5c 5c 3c 22 20 65 6c 20 22 5c 5c 3e 22 29 | ".+?\n\\{0,1\\}.+?\\<".el."\\>") |
| 14ce40 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f | )).........................(remo |
| 14ce60 | 76 65 20 22 54 22 20 73 70 65 63 69 61 6c 69 7a 65 72 73 29 20 22 22 29 29 0a 20 20 20 20 20 20 | ve."T".specializers).""))....... |
| 14ce80 | 20 20 20 28 72 65 67 65 78 70 20 28 66 6f 72 6d 61 74 20 22 5c 5c 73 20 2a 28 64 65 66 5c 5c 28 | ...(regexp.(format."\\s.*(def\\( |
| 14cea0 | 5c 5c 73 5f 5c 5c 7c 5c 5c 73 77 5c 5c 29 2a 5c 5c 73 20 2b 25 73 5c 5c 73 20 2b 25 73 25 73 22 | \\s_\\|\\sw\\)*\\s.+%s\\s.+%s%s" |
| 14cec0 | 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 | .name..........................q |
| 14cee0 | 75 61 6c 69 66 69 65 72 73 20 73 70 65 63 69 61 6c 69 7a 65 72 73 29 29 29 0a 20 20 20 20 28 6f | ualifiers.specializers))).....(o |
| 14cf00 | 72 20 28 61 6e 64 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 72 65 67 65 78 70 | r.(and.(re-search-forward.regexp |
| 14cf20 | 20 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 | ..nil.t)..............(goto-char |
| 14cf40 | 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 3b | .(match-beginning.0))).........; |
| 14cf60 | 3b 09 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6c 6f 63 61 74 69 6f 6e 2d 70 6f 73 69 74 69 6f 6e 20 | ;.(slime-goto-location-position. |
| 14cf80 | 60 28 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 | `(:function-name.,name))........ |
| 14cfa0 | 20 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 63 61 6c 6c 2d 73 | .)))..(defun.slime-search-call-s |
| 14cfc0 | 69 74 65 20 28 66 6e 61 6d 65 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 74 68 65 20 70 6c 61 63 65 | ite.(fname)..."Move.to.the.place |
| 14cfe0 | 20 77 68 65 72 65 20 46 4e 41 4d 45 20 63 61 6c 6c 65 64 2e 0a 44 6f 6e 27 74 20 6d 6f 76 65 20 | .where.FNAME.called..Don't.move. |
| 14d000 | 69 66 20 74 68 65 72 65 20 61 72 65 20 6d 75 6c 74 69 70 6c 65 20 6f 72 20 6e 6f 20 63 61 6c 6c | if.there.are.multiple.or.no.call |
| 14d020 | 73 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 75 6e 2e 22 0a 20 20 28 73 61 76 65 | s.in.the.current.defun."...(save |
| 14d040 | 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 64 65 66 75 | -restriction.....(narrow-to-defu |
| 14d060 | 6e 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 | n).....(let.((start.(point)).... |
| 14d080 | 20 20 20 20 20 20 20 28 72 65 67 65 78 70 20 28 63 6f 6e 63 61 74 20 22 28 22 20 66 6e 61 6d 65 | .......(regexp.(concat."(".fname |
| 14d0a0 | 20 22 5b 29 5c 6e 20 5c 74 5d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 73 65 2d 66 6f | ."[)\n.\t]"))...........(case-fo |
| 14d0c0 | 6c 64 2d 73 65 61 72 63 68 20 74 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 | ld-search.t)).......(cond.((and. |
| 14d0e0 | 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 72 65 67 65 78 70 20 6e 69 6c 20 74 29 | (re-search-forward.regexp.nil.t) |
| 14d100 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 72 65 2d 73 65 61 72 | ...................(not.(re-sear |
| 14d120 | 63 68 2d 66 6f 72 77 61 72 64 20 72 65 67 65 78 70 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 | ch-forward.regexp.nil.t)))...... |
| 14d140 | 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e | ........(goto-char.(match-beginn |
| 14d160 | 69 6e 67 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 67 6f 74 6f 2d 63 68 | ing.0))).............(t.(goto-ch |
| 14d180 | 61 72 20 73 74 61 72 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 61 | ar.start))))))..(defun.slime-sea |
| 14d1a0 | 72 63 68 2d 65 64 69 74 2d 70 61 74 68 20 28 65 64 69 74 2d 70 61 74 68 29 0a 20 20 22 4d 6f 76 | rch-edit-path.(edit-path)..."Mov |
| 14d1c0 | 65 20 74 6f 20 45 44 49 54 2d 50 41 54 48 20 73 74 61 72 74 69 6e 67 20 61 74 20 74 68 65 20 63 | e.to.EDIT-PATH.starting.at.the.c |
| 14d1e0 | 75 72 72 65 6e 74 20 74 6f 70 6c 65 76 65 6c 20 66 6f 72 6d 2e 22 0a 20 20 28 77 68 65 6e 20 65 | urrent.toplevel.form."...(when.e |
| 14d200 | 64 69 74 2d 70 61 74 68 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 28 3d 20 28 63 75 | dit-path.....(unless.(and.(=.(cu |
| 14d220 | 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rrent-column).0)................ |
| 14d240 | 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 28 22 29 29 0a 20 20 20 20 20 20 28 62 65 67 69 6e | ..(looking-at."(")).......(begin |
| 14d260 | 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 | ning-of-defun)).....(slime-forwa |
| 14d280 | 72 64 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 65 64 69 74 2d 70 61 74 68 29 29 29 0a 0a 28 64 65 | rd-source-path.edit-path)))..(de |
| 14d2a0 | 66 75 6e 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 | fun.slime-goto-source-location.( |
| 14d2c0 | 6c 6f 63 61 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 65 72 72 6f 72 29 0a 20 20 22 4d | location.&optional.noerror)..."M |
| 14d2e0 | 6f 76 65 20 74 6f 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 4c 4f 43 41 54 | ove.to.the.source.location.LOCAT |
| 14d300 | 49 4f 4e 2e 20 20 53 65 76 65 72 61 6c 20 6b 69 6e 64 73 20 6f 66 20 6c 6f 63 61 74 69 6f 6e 73 | ION...Several.kinds.of.locations |
| 14d320 | 0a 61 72 65 20 73 75 70 70 6f 72 74 65 64 3a 0a 0a 3c 6c 6f 63 61 74 69 6f 6e 3e 20 3a 3a 3d 20 | .are.supported:..<location>.::=. |
| 14d340 | 28 3a 6c 6f 63 61 74 69 6f 6e 20 3c 62 75 66 66 65 72 3e 20 3c 70 6f 73 69 74 69 6f 6e 3e 20 3c | (:location.<buffer>.<position>.< |
| 14d360 | 68 69 6e 74 73 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 3a 65 72 72 6f 72 20 3c | hints>)..............|.(:error.< |
| 14d380 | 6d 65 73 73 61 67 65 3e 29 0a 0a 3c 62 75 66 66 65 72 3e 20 20 20 3a 3a 3d 20 28 3a 66 69 6c 65 | message>)..<buffer>...::=.(:file |
| 14d3a0 | 20 3c 66 69 6c 65 6e 61 6d 65 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 3a 62 75 | .<filename>)..............|.(:bu |
| 14d3c0 | 66 66 65 72 20 3c 62 75 66 66 65 72 6e 61 6d 65 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ffer.<buffername>).............. |
| 14d3e0 | 7c 20 28 3a 62 75 66 66 65 72 2d 61 6e 64 2d 66 69 6c 65 20 3c 62 75 66 66 65 72 6e 61 6d 65 3e | |.(:buffer-and-file.<buffername> |
| 14d400 | 20 3c 66 69 6c 65 6e 61 6d 65 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 3a 73 6f | .<filename>)..............|.(:so |
| 14d420 | 75 72 63 65 2d 66 6f 72 6d 20 3c 73 74 72 69 6e 67 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | urce-form.<string>)............. |
| 14d440 | 20 7c 20 28 3a 7a 69 70 20 3c 66 69 6c 65 3e 20 3c 65 6e 74 72 79 3e 29 0a 0a 3c 70 6f 73 69 74 | .|.(:zip.<file>.<entry>)..<posit |
| 14d460 | 69 6f 6e 3e 20 3a 3a 3d 20 28 3a 70 6f 73 69 74 69 6f 6e 20 3c 66 69 78 6e 75 6d 3e 29 20 3b 20 | ion>.::=.(:position.<fixnum>).;. |
| 14d480 | 31 20 62 61 73 65 64 20 28 66 6f 72 20 66 69 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | 1.based.(for.files)............. |
| 14d4a0 | 20 7c 20 28 3a 6f 66 66 73 65 74 20 3c 73 74 61 72 74 3e 20 3c 6f 66 66 73 65 74 3e 29 20 3b 20 | .|.(:offset.<start>.<offset>).;. |
| 14d4c0 | 73 74 61 72 74 2b 6f 66 66 73 65 74 20 28 66 6f 72 20 43 2d 63 20 43 2d 63 29 0a 20 20 20 20 20 | start+offset.(for.C-c.C-c)...... |
| 14d4e0 | 20 20 20 20 20 20 20 20 7c 20 28 3a 6c 69 6e 65 20 3c 6c 69 6e 65 3e 20 5b 3c 63 6f 6c 75 6d 6e | ........|.(:line.<line>.[<column |
| 14d500 | 3e 5d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 | >])..............|.(:function-na |
| 14d520 | 6d 65 20 3c 73 74 72 69 6e 67 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 3a 73 6f | me.<string>)..............|.(:so |
| 14d540 | 75 72 63 65 2d 70 61 74 68 20 3c 6c 69 73 74 3e 20 3c 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e | urce-path.<list>.<start-position |
| 14d560 | 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 3a 6d 65 74 68 6f 64 20 3c 6e 61 6d 65 | >)..............|.(:method.<name |
| 14d580 | 20 73 74 72 69 6e 67 3e 20 3c 73 70 65 63 69 61 6c 69 7a 65 72 73 3e 20 2e 20 3c 71 75 61 6c 69 | .string>.<specializers>...<quali |
| 14d5a0 | 66 69 65 72 73 3e 29 22 0a 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 6c 6f 63 61 74 69 6f 6e | fiers>)"...(slime-dcase.location |
| 14d5c0 | 0a 20 20 20 20 28 28 3a 6c 6f 63 61 74 69 6f 6e 20 62 75 66 66 65 72 20 5f 70 6f 73 69 74 69 6f | .....((:location.buffer._positio |
| 14d5e0 | 6e 20 5f 68 69 6e 74 73 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6c 6f 63 61 74 | n._hints)......(slime-goto-locat |
| 14d600 | 69 6f 6e 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 70 | ion-buffer.buffer)......(let.((p |
| 14d620 | 6f 73 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6f 66 66 73 65 74 20 6c 6f 63 61 74 69 | os.(slime-location-offset.locati |
| 14d640 | 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 3c 3d 20 28 70 6f | on)))........(cond.((and.(<=.(po |
| 14d660 | 69 6e 74 2d 6d 69 6e 29 20 70 6f 73 29 20 28 3c 3d 20 70 6f 73 20 28 70 6f 69 6e 74 2d 6d 61 78 | int-min).pos).(<=.pos.(point-max |
| 14d680 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 64 65 6e 2d 61 75 74 6f 6d 61 74 | ))))..............(widen-automat |
| 14d6a0 | 69 63 61 6c 6c 79 20 28 77 69 64 65 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a | ically.(widen))..............(t. |
| 14d6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4c 6f 63 61 74 69 6f 6e 20 69 | ..............(error."Location.i |
| 14d6e0 | 73 20 6f 75 74 73 69 64 65 20 61 63 63 65 73 73 69 62 6c 65 20 70 61 72 74 20 6f 66 20 62 75 66 | s.outside.accessible.part.of.buf |
| 14d700 | 66 65 72 22 29 29 29 0a 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 29 29 | fer")))........(goto-char.pos))) |
| 14d720 | 0a 20 20 20 20 28 28 3a 65 72 72 6f 72 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 28 69 66 20 | .....((:error.message)......(if. |
| 14d740 | 6e 6f 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 65 73 73 61 67 65 20 | noerror..........(slime-message. |
| 14d760 | 22 25 73 22 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 25 73 22 | "%s".message)........(error."%s" |
| 14d780 | 20 6d 65 73 73 61 67 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c 6f 63 61 | .message)))))..(defun.slime-loca |
| 14d7a0 | 74 69 6f 6e 2d 6f 66 66 73 65 74 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e | tion-offset.(location)..."Return |
| 14d7c0 | 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 2c 20 61 73 20 63 68 61 72 61 63 74 65 72 20 6e 75 6d 62 | .the.position,.as.character.numb |
| 14d7e0 | 65 72 2c 20 6f 66 20 4c 4f 43 41 54 49 4f 4e 2e 22 0a 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 | er,.of.LOCATION."...(save-restri |
| 14d800 | 63 74 69 6f 6e 0a 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e | ction.....(widen).....(condition |
| 14d820 | 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6c 6f | -case.nil.........(slime-goto-lo |
| 14d840 | 63 61 74 69 6f 6e 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | cation-position..........(slime- |
| 14d860 | 6c 6f 63 61 74 69 6f 6e 2e 70 6f 73 69 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 | location.position.location)).... |
| 14d880 | 20 20 20 28 65 72 72 6f 72 20 28 67 6f 74 6f 2d 63 68 61 72 20 30 29 29 29 0a 20 20 20 20 28 63 | ...(error.(goto-char.0))).....(c |
| 14d8a0 | 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 6b 65 79 20 73 6e 69 70 70 | l-destructuring-bind.(&key.snipp |
| 14d8c0 | 65 74 20 65 64 69 74 2d 70 61 74 68 20 63 61 6c 6c 2d 73 69 74 65 20 61 6c 69 67 6e 29 0a 20 20 | et.edit-path.call-site.align)... |
| 14d8e0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2e 68 69 6e 74 73 20 6c 6f 63 61 | ......(slime-location.hints.loca |
| 14d900 | 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 6e 69 70 70 65 74 20 28 73 6c 69 6d 65 | tion).......(when.snippet.(slime |
| 14d920 | 2d 69 73 65 61 72 63 68 20 73 6e 69 70 70 65 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 65 | -isearch.snippet)).......(when.e |
| 14d940 | 64 69 74 2d 70 61 74 68 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 65 64 69 74 2d 70 61 74 68 | dit-path.(slime-search-edit-path |
| 14d960 | 20 65 64 69 74 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 63 61 6c 6c 2d 73 69 | .edit-path)).......(when.call-si |
| 14d980 | 74 65 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 63 61 6c 6c 2d 73 69 74 65 20 63 61 6c 6c 2d | te.(slime-search-call-site.call- |
| 14d9a0 | 73 69 74 65 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 61 6c 69 67 6e 0a 20 20 20 20 20 20 20 | site)).......(when.align........ |
| 14d9c0 | 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 | .(condition-case.nil............ |
| 14d9e0 | 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 6f 72 | .(progn...............(slime-for |
| 14da00 | 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 6e | ward-sexp)...............(beginn |
| 14da20 | 69 6e 67 2d 6f 66 2d 73 65 78 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 | ing-of-sexp))...........(error.( |
| 14da40 | 67 6f 74 6f 2d 63 68 61 72 20 30 29 29 29 29 29 0a 20 20 20 20 28 70 6f 69 6e 74 29 29 29 0a 0a | goto-char.0))))).....(point))).. |
| 14da60 | 0c 0a 3b 3b 3b 3b 3b 20 49 6e 63 72 65 6d 65 6e 74 61 6c 20 73 65 61 72 63 68 0a 3b 3b 0a 3b 3b | ..;;;;;.Incremental.search.;;.;; |
| 14da80 | 20 53 65 61 72 63 68 20 66 6f 72 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 6d 61 74 63 68 20 6f 66 | .Search.for.the.longest.match.of |
| 14daa0 | 20 61 20 73 74 72 69 6e 67 20 69 6e 20 65 69 74 68 65 72 20 64 69 72 65 63 74 69 6f 6e 2e 0a 3b | .a.string.in.either.direction..; |
| 14dac0 | 3b 0a 3b 3b 20 54 68 69 73 20 69 73 20 66 6f 72 20 6c 6f 63 61 74 69 6e 67 20 74 65 78 74 20 74 | ;.;;.This.is.for.locating.text.t |
| 14dae0 | 68 61 74 20 69 73 20 65 78 70 65 63 74 65 64 20 74 6f 20 62 65 20 6e 65 61 72 20 74 68 65 20 70 | hat.is.expected.to.be.near.the.p |
| 14db00 | 6f 69 6e 74 20 61 6e 64 0a 3b 3b 20 6d 61 79 20 68 61 76 65 20 62 65 65 6e 20 6d 6f 64 69 66 69 | oint.and.;;.may.have.been.modifi |
| 14db20 | 65 64 20 28 62 75 74 20 68 6f 70 65 66 75 6c 6c 79 20 6e 6f 74 20 6e 65 61 72 20 74 68 65 20 62 | ed.(but.hopefully.not.near.the.b |
| 14db40 | 65 67 69 6e 6e 69 6e 67 21 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 73 65 61 72 63 68 | eginning!)..(defun.slime-isearch |
| 14db60 | 20 28 73 74 72 69 6e 67 29 0a 20 20 22 46 69 6e 64 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 6f 63 | .(string)..."Find.the.longest.oc |
| 14db80 | 63 75 72 65 6e 63 65 20 6f 66 20 53 54 52 49 4e 47 20 65 69 74 68 65 72 20 62 61 63 6b 77 61 72 | curence.of.STRING.either.backwar |
| 14dba0 | 64 73 20 6f 66 20 66 6f 72 77 61 72 64 73 2e 0a 49 66 20 6d 75 6c 74 69 70 6c 65 20 6d 61 74 63 | ds.of.forwards..If.multiple.matc |
| 14dbc0 | 68 65 73 20 65 78 69 73 74 20 74 68 65 20 63 68 6f 6f 73 65 20 74 68 65 20 6f 6e 65 20 6e 65 61 | hes.exist.the.choose.the.one.nea |
| 14dbe0 | 72 65 73 74 20 74 6f 20 70 6f 69 6e 74 2e 22 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 0a 20 20 20 | rest.to.point."...(goto-char.... |
| 14dc00 | 28 6c 65 74 2a 20 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 | (let*.((start.(point)).......... |
| 14dc20 | 20 28 6c 65 6e 31 20 28 73 6c 69 6d 65 2d 69 73 65 61 72 63 68 2d 77 69 74 68 2d 66 75 6e 63 74 | .(len1.(slime-isearch-with-funct |
| 14dc40 | 69 6f 6e 20 27 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 73 74 72 69 6e 67 29 29 0a 20 20 20 | ion.'search-forward.string)).... |
| 14dc60 | 20 20 20 20 20 20 20 28 70 6f 73 31 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 28 67 6f 74 | .......(pos1.(point)))......(got |
| 14dc80 | 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 65 6e 32 20 | o-char.start)......(let*.((len2. |
| 14dca0 | 28 73 6c 69 6d 65 2d 69 73 65 61 72 63 68 2d 77 69 74 68 2d 66 75 6e 63 74 69 6f 6e 20 27 73 65 | (slime-isearch-with-function.'se |
| 14dcc0 | 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 | arch-backward.string)).......... |
| 14dce0 | 20 20 20 28 70 6f 73 32 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 | ...(pos2.(point)))........(cond. |
| 14dd00 | 28 28 61 6e 64 20 6c 65 6e 31 20 6c 65 6e 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | ((and.len1.len2)...............; |
| 14dd20 | 3b 20 48 61 76 65 20 61 20 6d 61 74 63 68 20 69 6e 20 62 6f 74 68 20 64 69 72 65 63 74 69 6f 6e | ;.Have.a.match.in.both.direction |
| 14dd40 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 6c 65 6e 31 20 6c | s...............(cond.((=.len1.l |
| 14dd60 | 65 6e 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 42 6f 74 | en2)......................;;.Bot |
| 14dd80 | 68 20 61 72 65 20 66 75 6c 6c 20 6d 61 74 63 68 65 73 20 2d 2d 20 63 68 6f 6f 73 65 20 74 68 65 | h.are.full.matches.--.choose.the |
| 14dda0 | 20 6e 65 61 72 65 73 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .nearest.......................( |
| 14ddc0 | 69 66 20 28 3c 20 28 61 62 73 20 28 2d 20 73 74 61 72 74 20 70 6f 73 31 29 29 0a 20 20 20 20 20 | if.(<.(abs.(-.start.pos1))...... |
| 14dde0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 62 73 20 28 2d 20 73 | .......................(abs.(-.s |
| 14de00 | 74 61 72 74 20 70 6f 73 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tart.pos2))).................... |
| 14de20 | 20 20 20 20 20 20 70 6f 73 31 20 70 6f 73 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......pos1.pos2))............... |
| 14de40 | 20 20 20 20 20 20 28 28 3e 20 6c 65 6e 31 20 6c 65 6e 32 29 20 70 6f 73 31 29 0a 20 20 20 20 20 | ......((>.len1.len2).pos1)...... |
| 14de60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3e 20 6c 65 6e 32 20 6c 65 6e 31 29 20 70 6f | ...............((>.len2.len1).po |
| 14de80 | 73 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 31 20 70 6f 73 31 29 0a 20 | s2)))..............(len1.pos1).. |
| 14dea0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 32 20 70 6f 73 32 29 0a 20 20 20 20 20 20 20 20 | ............(len2.pos2)......... |
| 14dec0 | 20 20 20 20 20 28 74 20 73 74 61 72 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | .....(t.start))))))..(defun.slim |
| 14dee0 | 65 2d 69 73 65 61 72 63 68 2d 77 69 74 68 2d 66 75 6e 63 74 69 6f 6e 20 28 73 65 61 72 63 68 2d | e-isearch-with-function.(search- |
| 14df00 | 66 6e 20 73 74 72 69 6e 67 29 0a 20 20 22 53 65 61 72 63 68 20 66 6f 72 20 74 68 65 20 6c 6f 6e | fn.string)..."Search.for.the.lon |
| 14df20 | 67 65 73 74 20 73 75 62 73 74 72 69 6e 67 20 6f 66 20 53 54 52 49 4e 47 20 75 73 69 6e 67 20 53 | gest.substring.of.STRING.using.S |
| 14df40 | 45 41 52 43 48 2d 46 4e 2e 0a 53 45 41 52 43 48 2d 46 4e 20 69 73 20 65 69 74 68 65 72 20 74 68 | EARCH-FN..SEARCH-FN.is.either.th |
| 14df60 | 65 20 73 79 6d 62 6f 6c 20 60 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 27 20 6f 72 20 60 73 65 | e.symbol.`search-forward'.or.`se |
| 14df80 | 61 72 63 68 2d 62 61 63 6b 77 61 72 64 27 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 73 74 72 69 | arch-backward'."...(unless.(stri |
| 14dfa0 | 6e 67 3d 20 73 74 72 69 6e 67 20 22 22 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 | ng=.string."").....(cl-loop.for. |
| 14dfc0 | 69 20 66 72 6f 6d 20 31 20 74 6f 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 0a 20 20 20 20 | i.from.1.to.(length.string)..... |
| 14dfe0 | 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 28 66 75 6e 63 61 6c 6c 20 73 65 61 72 63 68 2d 66 | .........while.(funcall.search-f |
| 14e000 | 6e 20 28 73 75 62 73 74 72 69 6e 67 20 73 74 72 69 6e 67 20 30 20 69 29 20 6e 69 6c 20 74 29 0a | n.(substring.string.0.i).nil.t). |
| 14e020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6d 61 74 63 68 2d 64 61 74 61 20 3d 20 28 6d | .............for.match-data.=.(m |
| 14e040 | 61 74 63 68 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 63 6c 2d 63 | atch-data)..............do.(cl-c |
| 14e060 | 61 73 65 20 73 65 61 72 63 68 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ase.search-fn................... |
| 14e080 | 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 61 74 | (search-forward..(goto-char.(mat |
| 14e0a0 | 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ch-beginning.0)))............... |
| 14e0c0 | 20 20 20 20 28 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 28 67 6f 74 6f 2d 63 68 61 72 20 | ....(search-backward.(goto-char. |
| 14e0e0 | 28 31 2b 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | (1+.(match-end.0)))))........... |
| 14e100 | 20 20 20 66 69 6e 61 6c 6c 79 20 28 63 6c 2d 72 65 74 75 72 6e 20 28 69 66 20 28 6e 75 6c 6c 20 | ...finally.(cl-return.(if.(null. |
| 14e120 | 6d 61 74 63 68 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | match-data)..................... |
| 14e140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ................nil............. |
| 14e160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 69 6e 69 73 68 20 | ......................;;.Finish. |
| 14e180 | 62 61 73 65 64 20 6f 6e 20 74 68 65 20 6c 61 73 74 20 73 75 63 63 65 73 73 66 75 6c 20 6d 61 74 | based.on.the.last.successful.mat |
| 14e1a0 | 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ch.............................. |
| 14e1c0 | 20 20 20 20 20 28 73 74 6f 72 65 2d 6d 61 74 63 68 2d 64 61 74 61 20 6d 61 74 63 68 2d 64 61 74 | .....(store-match-data.match-dat |
| 14e1e0 | 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | a).............................. |
| 14e200 | 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 | .....(goto-char.(match-beginning |
| 14e220 | 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .0))............................ |
| 14e240 | 20 20 20 20 20 20 20 28 2d 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 20 28 6d 61 74 63 68 2d 62 | .......(-.(match-end.0).(match-b |
| 14e260 | 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 56 69 73 69 74 | eginning.0)))))))....;;;;;.Visit |
| 14e280 | 69 6e 67 20 61 6e 64 20 6e 61 76 69 67 61 74 69 6e 67 20 74 68 65 20 6f 76 65 72 6c 61 79 73 20 | ing.and.navigating.the.overlays. |
| 14e2a0 | 6f 66 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | of.compiler.notes..(defun.slime- |
| 14e2c0 | 6e 65 78 74 2d 6e 6f 74 65 20 28 29 0a 20 20 22 47 6f 20 74 6f 20 61 6e 64 20 64 65 73 63 72 69 | next-note.()..."Go.to.and.descri |
| 14e2e0 | 62 65 20 74 68 65 20 6e 65 78 74 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 20 69 6e 20 74 68 65 | be.the.next.compiler.note.in.the |
| 14e300 | 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 | .buffer."...(interactive)...(let |
| 14e320 | 20 28 28 68 65 72 65 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 6e 6f 74 65 20 28 | .((here.(point)).........(note.( |
| 14e340 | 73 6c 69 6d 65 2d 66 69 6e 64 2d 6e 65 78 74 2d 6e 6f 74 65 29 29 29 0a 20 20 20 20 28 69 66 20 | slime-find-next-note))).....(if. |
| 14e360 | 6e 6f 74 65 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 2d 6e 6f 74 65 20 6e 6f | note.........(slime-show-note.no |
| 14e380 | 74 65 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 68 65 72 65 29 0a 20 20 20 20 20 | te).......(goto-char.here)...... |
| 14e3a0 | 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 6e 65 78 74 20 6e 6f 74 65 2e 22 29 29 29 29 0a 0a 28 | .(message."No.next.note."))))..( |
| 14e3c0 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 6e 6f 74 65 20 28 29 0a 20 20 22 | defun.slime-previous-note.()..." |
| 14e3e0 | 47 6f 20 74 6f 20 61 6e 64 20 64 65 73 63 72 69 62 65 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 | Go.to.and.describe.the.previous. |
| 14e400 | 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 22 0a 20 20 | compiler.note.in.the.buffer."... |
| 14e420 | 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 68 65 72 65 20 28 70 6f 69 | (interactive)...(let.((here.(poi |
| 14e440 | 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 6e 6f 74 65 20 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 70 | nt)).........(note.(slime-find-p |
| 14e460 | 72 65 76 69 6f 75 73 2d 6e 6f 74 65 29 29 29 0a 20 20 20 20 28 69 66 20 6e 6f 74 65 0a 20 20 20 | revious-note))).....(if.note.... |
| 14e480 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 2d 6e 6f 74 65 20 6e 6f 74 65 29 0a 20 20 20 20 | .....(slime-show-note.note)..... |
| 14e4a0 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 68 65 72 65 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 | ..(goto-char.here).......(messag |
| 14e4c0 | 65 20 22 4e 6f 20 70 72 65 76 69 6f 75 73 20 6e 6f 74 65 2e 22 29 29 29 29 0a 0a 28 64 65 66 75 | e."No.previous.note."))))..(defu |
| 14e4e0 | 6e 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 66 69 72 73 74 2d 6e 6f 74 65 20 28 26 72 65 73 74 20 5f | n.slime-goto-first-note.(&rest._ |
| 14e500 | 29 0a 20 20 22 47 6f 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 6e 6f 74 65 20 69 6e 20 74 68 65 | )..."Go.to.the.first.note.in.the |
| 14e520 | 20 62 75 66 66 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 | .buffer."...(let.((point.(point) |
| 14e540 | 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 | )).....(goto-char.(point-min)).. |
| 14e560 | 20 20 20 28 63 6f 6e 64 20 28 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 6e 65 78 74 2d 6e 6f 74 65 29 | ...(cond.((slime-find-next-note) |
| 14e580 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 2d 6e 6f 74 65 20 28 73 6c | ............(slime-show-note.(sl |
| 14e5a0 | 69 6d 65 2d 6e 6f 74 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | ime-note-at-point)))...........( |
| 14e5c0 | 74 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 69 6e 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | t.(goto-char.point)))))..(defun. |
| 14e5e0 | 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 6e 6f 74 65 73 20 28 29 0a 20 20 22 52 65 6d 6f 76 65 20 | slime-remove-notes.()..."Remove. |
| 14e600 | 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 66 72 6f 6d 20 74 | compiler-note.annotations.from.t |
| 14e620 | 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | he.current.buffer."...(interacti |
| 14e640 | 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 6f 6c 64 2d 6f 76 65 72 6c 61 79 73 | ve)...(slime-remove-old-overlays |
| 14e660 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 68 6f 77 2d 6e 6f 74 65 20 28 6f 76 65 72 | ))..(defun.slime-show-note.(over |
| 14e680 | 6c 61 79 29 0a 20 20 22 50 72 65 73 65 6e 74 20 74 68 65 20 64 65 74 61 69 6c 73 20 6f 66 20 61 | lay)..."Present.the.details.of.a |
| 14e6a0 | 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 20 74 6f 20 74 68 65 20 75 73 65 72 2e 22 0a 20 20 28 | .compiler.note.to.the.user."...( |
| 14e6c0 | 73 6c 69 6d 65 2d 74 65 6d 70 6f 72 61 72 69 6c 79 2d 68 69 67 68 6c 69 67 68 74 2d 6e 6f 74 65 | slime-temporarily-highlight-note |
| 14e6e0 | 20 6f 76 65 72 6c 61 79 29 0a 20 20 28 69 66 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 | .overlay)...(if.(get-buffer-wind |
| 14e700 | 6f 77 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 63 6f 6d 70 69 6c 61 74 69 | ow.(slime-buffer-name.:compilati |
| 14e720 | 6f 6e 29 20 74 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6e 6f 74 65 2d 69 6e | on).t).......(slime-goto-note-in |
| 14e740 | 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6c 6f 67 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 | -compilation-log.(overlay-get.ov |
| 14e760 | 65 72 6c 61 79 20 27 73 6c 69 6d 65 2d 6e 6f 74 65 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6d | erlay.'slime-note)).....(let.((m |
| 14e780 | 65 73 73 61 67 65 20 28 67 65 74 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 | essage.(get-char-property.(point |
| 14e7a0 | 29 20 27 68 65 6c 70 2d 65 63 68 6f 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 65 73 | ).'help-echo))).......(slime-mes |
| 14e7c0 | 73 61 67 65 20 22 25 73 22 20 28 69 66 20 28 7a 65 72 6f 70 20 28 6c 65 6e 67 74 68 20 6d 65 73 | sage."%s".(if.(zerop.(length.mes |
| 14e7e0 | 73 61 67 65 29 29 20 22 5c 22 5c 22 22 20 6d 65 73 73 61 67 65 29 29 29 29 29 0a 0a 3b 3b 20 46 | sage))."\"\"".message)))))..;;.F |
| 14e800 | 49 58 4d 45 3a 20 63 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 75 73 65 20 66 6c 61 73 68 20 72 | IXME:.could.probably.use.flash.r |
| 14e820 | 65 67 69 6f 6e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 65 6d 70 6f 72 61 72 69 6c 79 2d 68 | egion.(defun.slime-temporarily-h |
| 14e840 | 69 67 68 6c 69 67 68 74 2d 6e 6f 74 65 20 28 6f 76 65 72 6c 61 79 29 0a 20 20 22 54 65 6d 70 6f | ighlight-note.(overlay)..."Tempo |
| 14e860 | 72 61 72 69 6c 79 20 68 69 67 68 6c 69 67 68 74 20 61 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 | rarily.highlight.a.compiler.note |
| 14e880 | 27 73 20 6f 76 65 72 6c 61 79 2e 0a 54 68 65 20 68 69 67 68 6c 69 67 68 74 69 6e 67 20 69 73 20 | 's.overlay..The.highlighting.is. |
| 14e8a0 | 64 65 73 69 67 6e 65 64 20 74 6f 20 62 6f 74 68 20 6d 61 6b 65 20 74 68 65 20 72 65 6c 65 76 61 | designed.to.both.make.the.releva |
| 14e8c0 | 6e 74 20 73 6f 75 72 63 65 20 6d 6f 72 65 0a 76 69 73 69 62 6c 65 2c 20 61 6e 64 20 74 6f 20 68 | nt.source.more.visible,.and.to.h |
| 14e8e0 | 69 67 68 6c 69 67 68 74 20 61 6e 79 20 66 75 72 74 68 65 72 20 6e 6f 74 65 73 20 74 68 61 74 20 | ighlight.any.further.notes.that. |
| 14e900 | 61 72 65 20 6e 65 73 74 65 64 20 69 6e 73 69 64 65 20 74 68 65 0a 63 75 72 72 65 6e 74 20 6f 6e | are.nested.inside.the.current.on |
| 14e920 | 65 2e 0a 0a 54 68 65 20 68 69 67 68 6c 69 67 68 74 69 6e 67 20 69 73 20 61 75 74 6f 6d 61 74 69 | e...The.highlighting.is.automati |
| 14e940 | 63 61 6c 6c 79 20 75 6e 64 6f 6e 65 20 77 69 74 68 20 61 20 74 69 6d 65 72 2e 22 0a 20 20 28 72 | cally.undone.with.a.timer."...(r |
| 14e960 | 75 6e 2d 77 69 74 68 2d 74 69 6d 65 72 20 30 2e 32 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 | un-with-timer.0.2.nil........... |
| 14e980 | 20 20 20 20 20 20 20 20 23 27 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 66 | ........#'overlay-put.overlay.'f |
| 14e9a0 | 61 63 65 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 65 72 6c 61 79 20 27 66 61 63 65 29 29 | ace.(overlay-get.overlay.'face)) |
| 14e9c0 | 0a 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 66 61 63 65 20 27 73 | ...(overlay-put.overlay.'face.'s |
| 14e9e0 | 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 66 61 63 65 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 4f | lime-highlight-face))....;;;;;.O |
| 14ea00 | 76 65 72 6c 61 79 20 6c 6f 6f 6b 75 70 20 6f 70 65 72 61 74 69 6f 6e 73 0a 0a 28 64 65 66 75 6e | verlay.lookup.operations..(defun |
| 14ea20 | 20 73 6c 69 6d 65 2d 6e 6f 74 65 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 22 52 65 74 75 72 | .slime-note-at-point.()..."Retur |
| 14ea40 | 6e 20 74 68 65 20 6f 76 65 72 6c 61 79 20 66 6f 72 20 61 20 6e 6f 74 65 20 73 74 61 72 74 69 6e | n.the.overlay.for.a.note.startin |
| 14ea60 | 67 20 61 74 20 70 6f 69 6e 74 2c 20 6f 74 68 65 72 77 69 73 65 20 4e 49 4c 2e 22 0a 20 20 28 63 | g.at.point,.otherwise.NIL."...(c |
| 14ea80 | 6c 2d 66 69 6e 64 20 28 70 6f 69 6e 74 29 20 28 73 6c 69 6d 65 2d 6e 6f 74 65 2d 6f 76 65 72 6c | l-find.(point).(slime-note-overl |
| 14eaa0 | 61 79 73 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 27 6f | ays-at-point)............:key.'o |
| 14eac0 | 76 65 72 6c 61 79 2d 73 74 61 72 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 6f 74 | verlay-start))..(defun.slime-not |
| 14eae0 | 65 2d 6f 76 65 72 6c 61 79 2d 70 20 28 6f 76 65 72 6c 61 79 29 0a 20 20 22 52 65 74 75 72 6e 20 | e-overlay-p.(overlay)..."Return. |
| 14eb00 | 74 72 75 65 20 69 66 20 4f 56 45 52 4c 41 59 20 72 65 70 72 65 73 65 6e 74 73 20 61 20 63 6f 6d | true.if.OVERLAY.represents.a.com |
| 14eb20 | 70 69 6c 65 72 20 6e 6f 74 65 2e 22 0a 20 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 65 72 | piler.note."...(overlay-get.over |
| 14eb40 | 6c 61 79 20 27 73 6c 69 6d 65 2d 6e 6f 74 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | lay.'slime-note))..(defun.slime- |
| 14eb60 | 6e 6f 74 65 2d 6f 76 65 72 6c 61 79 73 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 22 52 65 74 | note-overlays-at-point.()..."Ret |
| 14eb80 | 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 6e 6f 74 65 20 6f 76 65 72 6c 61 79 73 20 | urn.a.list.of.all.note.overlays. |
| 14eba0 | 74 68 61 74 20 61 72 65 20 75 6e 64 65 72 20 74 68 65 20 70 6f 69 6e 74 2e 22 0a 20 20 28 63 6c | that.are.under.the.point."...(cl |
| 14ebc0 | 2d 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 27 73 6c 69 6d 65 2d 6e 6f 74 65 2d 6f 76 65 72 6c | -remove-if-not.'slime-note-overl |
| 14ebe0 | 61 79 2d 70 20 28 6f 76 65 72 6c 61 79 73 2d 61 74 20 28 70 6f 69 6e 74 29 29 29 29 0a 0a 28 64 | ay-p.(overlays-at.(point))))..(d |
| 14ec00 | 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 6e 65 78 74 2d 6e 6f 74 65 20 28 29 0a 20 20 22 | efun.slime-find-next-note.()..." |
| 14ec20 | 47 6f 20 74 6f 20 74 68 65 20 6e 65 78 74 20 70 6f 73 69 74 69 6f 6e 20 77 69 74 68 20 74 68 65 | Go.to.the.next.position.with.the |
| 14ec40 | 20 60 73 6c 69 6d 65 2d 6e 6f 74 65 27 20 74 65 78 74 20 70 72 6f 70 65 72 74 79 2e 0a 52 65 74 | .`slime-note'.text.property..Ret |
| 14ec60 | 75 6e 73 20 74 68 65 20 6e 6f 74 65 20 6f 76 65 72 6c 61 79 20 69 66 20 73 75 63 68 20 61 20 70 | uns.the.note.overlay.if.such.a.p |
| 14ec80 | 6f 73 69 74 69 6f 6e 20 69 73 20 66 6f 75 6e 64 2c 20 6f 74 68 65 72 77 69 73 65 20 6e 69 6c 2e | osition.is.found,.otherwise.nil. |
| 14eca0 | 22 0a 20 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 70 72 6f 70 65 72 74 79 20 27 73 6c 69 6d | "...(slime-search-property.'slim |
| 14ecc0 | 65 2d 6e 6f 74 65 20 6e 69 6c 20 23 27 73 6c 69 6d 65 2d 6e 6f 74 65 2d 61 74 2d 70 6f 69 6e 74 | e-note.nil.#'slime-note-at-point |
| 14ece0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 70 72 65 76 69 6f 75 73 2d 6e | ))..(defun.slime-find-previous-n |
| 14ed00 | 6f 74 65 20 28 29 0a 20 20 22 47 6f 20 74 6f 20 74 68 65 20 6e 65 78 74 20 70 6f 73 69 74 69 6f | ote.()..."Go.to.the.next.positio |
| 14ed20 | 6e 20 77 69 74 68 20 74 68 65 20 60 73 6c 69 6d 65 2d 6e 6f 74 65 27 20 74 65 78 74 20 70 72 6f | n.with.the.`slime-note'.text.pro |
| 14ed40 | 70 65 72 74 79 2e 0a 52 65 74 75 6e 73 20 74 68 65 20 6e 6f 74 65 20 6f 76 65 72 6c 61 79 20 69 | perty..Retuns.the.note.overlay.i |
| 14ed60 | 66 20 73 75 63 68 20 61 20 70 6f 73 69 74 69 6f 6e 20 69 73 20 66 6f 75 6e 64 2c 20 6f 74 68 65 | f.such.a.position.is.found,.othe |
| 14ed80 | 72 77 69 73 65 20 6e 69 6c 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 70 72 6f 70 | rwise.nil."...(slime-search-prop |
| 14eda0 | 65 72 74 79 20 27 73 6c 69 6d 65 2d 6e 6f 74 65 20 74 20 23 27 73 6c 69 6d 65 2d 6e 6f 74 65 2d | erty.'slime-note.t.#'slime-note- |
| 14edc0 | 61 74 2d 70 6f 69 6e 74 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 41 72 67 6c 69 73 74 20 44 69 73 70 6c | at-point))....;;;;.Arglist.Displ |
| 14ede0 | 61 79 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 70 61 63 65 20 28 6e 29 0a 20 20 22 49 6e | ay..(defun.slime-space.(n)..."In |
| 14ee00 | 73 65 72 74 20 61 20 73 70 61 63 65 20 61 6e 64 20 70 72 69 6e 74 20 73 6f 6d 65 20 72 65 6c 65 | sert.a.space.and.print.some.rele |
| 14ee20 | 76 61 6e 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 20 61 72 67 6c 69 | vant.information.(function.argli |
| 14ee40 | 73 74 29 2e 0a 44 65 73 69 67 6e 65 64 20 74 6f 20 62 65 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 | st)..Designed.to.be.bound.to.the |
| 14ee60 | 20 53 50 43 20 6b 65 79 2e 20 20 50 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 63 61 6e 20 62 | .SPC.key...Prefix.argument.can.b |
| 14ee80 | 65 20 75 73 65 64 20 74 6f 20 69 6e 73 65 72 74 0a 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 73 | e.used.to.insert.more.than.one.s |
| 14eea0 | 70 61 63 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 73 65 | pace."...(interactive."p")...(se |
| 14eec0 | 6c 66 2d 69 6e 73 65 72 74 2d 63 6f 6d 6d 61 6e 64 20 6e 29 0a 20 20 28 73 6c 69 6d 65 2d 65 63 | lf-insert-command.n)...(slime-ec |
| 14eee0 | 68 6f 2d 61 72 67 6c 69 73 74 29 29 0a 0a 28 70 75 74 20 27 73 6c 69 6d 65 2d 73 70 61 63 65 20 | ho-arglist))..(put.'slime-space. |
| 14ef00 | 27 64 65 6c 65 74 65 2d 73 65 6c 65 63 74 69 6f 6e 20 74 29 20 3b 20 66 6f 72 20 64 65 6c 65 74 | 'delete-selection.t).;.for.delet |
| 14ef20 | 65 2d 73 65 63 74 69 6f 6e 2d 6d 6f 64 65 20 26 20 43 55 41 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | e-section-mode.&.CUA..(defun.sli |
| 14ef40 | 6d 65 2d 65 63 68 6f 2d 61 72 67 6c 69 73 74 20 28 29 0a 20 20 28 77 68 65 6e 20 28 73 6c 69 6d | me-echo-arglist.()...(when.(slim |
| 14ef60 | 65 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 61 63 74 69 76 69 74 69 65 73 2d 65 6e 61 62 6c 65 64 2d | e-background-activities-enabled- |
| 14ef80 | 70 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6f 70 20 28 73 6c 69 6d 65 2d 6f 70 65 72 61 74 6f 72 | p).....(let.((op.(slime-operator |
| 14efa0 | 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 6f 70 0a | -before-point))).......(when.op. |
| 14efc0 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e | ........(slime-eval-async.`(swan |
| 14efe0 | 6b 3a 6f 70 65 72 61 74 6f 72 2d 61 72 67 6c 69 73 74 20 2c 6f 70 0a 20 20 20 20 20 20 20 20 20 | k:operator-arglist.,op.......... |
| 14f000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 14f020 | 20 20 20 20 20 20 20 20 20 20 2c 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 | ..........,(slime-current-packag |
| 14f040 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 61 72 67 6c 69 73 74 29 0a | e))...........(lambda.(arglist). |
| 14f060 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 | ............(when.arglist....... |
| 14f080 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 65 73 73 61 67 65 20 22 25 73 22 20 61 72 67 6c | ........(slime-message."%s".argl |
| 14f0a0 | 69 73 74 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6f 70 65 72 61 | ist))))))))..(defvar.slime-opera |
| 14f0c0 | 74 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 | tor-before-point-function.'slime |
| 14f0e0 | 2d 6c 69 73 70 2d 6f 70 65 72 61 74 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 29 0a 0a 28 64 | -lisp-operator-before-point)..(d |
| 14f100 | 65 66 75 6e 20 73 6c 69 6d 65 2d 6f 70 65 72 61 74 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 | efun.slime-operator-before-point |
| 14f120 | 20 28 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 73 6c 69 6d 65 2d 6f 70 65 72 61 74 6f 72 2d 62 65 | .()...(funcall.slime-operator-be |
| 14f140 | 66 6f 72 65 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | fore-point-function))..(defun.sl |
| 14f160 | 69 6d 65 2d 6c 69 73 70 2d 6f 70 65 72 61 74 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 20 28 | ime-lisp-operator-before-point.( |
| 14f180 | 29 0a 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 | )...(ignore-errors.....(save-exc |
| 14f1a0 | 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 20 31 | ursion.......(backward-up-list.1 |
| 14f1c0 | 29 0a 20 20 20 20 20 20 28 64 6f 77 6e 2d 6c 69 73 74 20 31 29 0a 20 20 20 20 20 20 28 73 6c 69 | ).......(down-list.1).......(sli |
| 14f1e0 | 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 0c 0a 3b 3b 3b 3b 20 43 6f | me-symbol-at-point))))...;;;;.Co |
| 14f200 | 6d 70 6c 65 74 69 6f 6e 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 75 73 65 20 74 68 69 73 20 69 6e 20 | mpletion..;;.FIXME:.use.this.in. |
| 14f220 | 45 6d 61 63 73 20 32 34 0a 3b 3b 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 66 75 6e 63 | Emacs.24.;;(define-obsolete-func |
| 14f240 | 74 69 6f 6e 2d 61 6c 69 61 73 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c | tion-alias.slime-complete-symbol |
| 14f260 | 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 0a 0a 28 64 65 66 61 6c 69 61 73 | .completion-at-point)..(defalias |
| 14f280 | 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 20 23 27 63 6f 6d 70 6c 65 | .'slime-complete-symbol.#'comple |
| 14f2a0 | 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 0a 28 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 20 27 73 | tion-at-point).(make-obsolete.'s |
| 14f2c0 | 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 20 23 27 63 6f 6d 70 6c 65 74 69 6f | lime-complete-symbol.#'completio |
| 14f2e0 | 6e 2d 61 74 2d 70 6f 69 6e 74 20 22 32 30 31 35 2d 31 30 2d 31 37 22 29 0a 0a 3b 3b 20 54 68 69 | n-at-point."2015-10-17")..;;.Thi |
| 14f300 | 73 20 69 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 77 65 20 61 64 64 20 74 6f | s.is.the.function.that.we.add.to |
| 14f320 | 0a 3b 3b 20 60 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f | .;;.`completion-at-point-functio |
| 14f340 | 6e 73 27 2e 20 20 46 6f 72 20 62 61 63 6b 77 61 72 64 2d 63 6f 6d 70 61 74 69 62 69 6c 74 79 20 | ns'...For.backward-compatibilty. |
| 14f360 | 77 65 20 6c 6f 6f 6b 0a 3b 3b 20 61 74 20 60 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 | we.look.;;.at.`slime-complete-sy |
| 14f380 | 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 27 20 66 69 72 73 74 2e 20 20 54 68 65 20 69 6e 64 69 72 | mbol-function'.first...The.indir |
| 14f3a0 | 65 63 74 69 6f 6e 20 74 68 72 6f 75 67 68 0a 3b 3b 20 60 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 | ection.through.;;.`slime-complet |
| 14f3c0 | 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 27 20 69 73 20 75 73 65 64 20 | ion-at-point-functions'.is.used. |
| 14f3e0 | 73 6f 20 74 68 61 74 20 75 73 65 72 73 20 64 6f 6e 27 74 0a 3b 3b 20 68 61 76 65 20 74 6f 20 73 | so.that.users.don't.;;.have.to.s |
| 14f400 | 65 74 20 60 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e | et.`completion-at-point-function |
| 14f420 | 73 27 20 69 6e 20 65 76 65 72 79 20 73 6c 69 6d 65 2d 6c 69 6b 65 0a 3b 3b 20 62 75 66 66 65 72 | s'.in.every.slime-like.;;.buffer |
| 14f440 | 2e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f | ..(defun.slime--completion-at-po |
| 14f460 | 69 6e 74 20 28 29 0a 20 20 28 63 6f 6e 64 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 | int.()...(cond.(slime-complete-s |
| 14f480 | 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f | ymbol-function..........slime-co |
| 14f4a0 | 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | mplete-symbol-function)......... |
| 14f4c0 | 28 74 0a 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d | (t..........(run-hook-with-args- |
| 14f4e0 | 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 63 | until-success...........'slime-c |
| 14f500 | 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 29 29 29 29 | ompletion-at-point-functions)))) |
| 14f520 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 74 75 70 2d 63 6f 6d 70 6c 65 74 69 6f 6e 20 | ..(defun.slime-setup-completion. |
| 14f540 | 28 29 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f | ()...(add-hook.'completion-at-po |
| 14f560 | 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 20 23 27 73 6c 69 6d 65 2d 2d 63 6f 6d 70 6c 65 74 69 6f | int-functions.#'slime--completio |
| 14f580 | 6e 2d 61 74 2d 70 6f 69 6e 74 20 6e 69 6c 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | n-at-point.nil.t))..(defun.slime |
| 14f5a0 | 2d 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 | -simple-completion-at-point.().. |
| 14f5c0 | 20 22 43 6f 6d 70 6c 65 74 65 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 0a | ."Complete.the.symbol.at.point.. |
| 14f5e0 | 50 65 72 66 6f 72 6d 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 69 6d 69 6c 61 72 20 74 6f 20 60 65 | Perform.completion.similar.to.`e |
| 14f600 | 6c 69 73 70 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 27 2e 22 0a 20 20 28 6c | lisp-completion-at-point'."...(l |
| 14f620 | 65 74 2a 20 28 28 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 65 67 | et*.((end.(point))..........(beg |
| 14f640 | 20 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 73 74 61 72 74 2d 70 6f 73 29 29 29 0a 20 20 20 20 | .(slime-symbol-start-pos)))..... |
| 14f660 | 28 6c 69 73 74 20 62 65 67 20 65 6e 64 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 74 61 62 6c 65 2d | (list.beg.end.(completion-table- |
| 14f680 | 64 79 6e 61 6d 69 63 20 23 27 73 6c 69 6d 65 2d 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f | dynamic.#'slime-simple-completio |
| 14f6a0 | 6e 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6c 65 6e 61 6d 65 2d 63 6f | ns))))..(defun.slime-filename-co |
| 14f6c0 | 6d 70 6c 65 74 69 6f 6e 20 28 29 0a 20 20 22 49 66 20 70 6f 69 6e 74 20 69 73 20 61 74 20 61 20 | mpletion.()..."If.point.is.at.a. |
| 14f6e0 | 73 74 72 69 6e 67 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 5c 22 2c 20 63 6f 6d 70 6c 65 74 | string.starting.with.\",.complet |
| 14f700 | 65 20 69 74 20 61 73 20 66 69 6c 65 6e 61 6d 65 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 | e.it.as.filename..Return.nil.if. |
| 14f720 | 70 6f 69 6e 74 20 69 73 20 6e 6f 74 20 61 74 20 66 69 6c 65 6e 61 6d 65 2e 22 0a 20 20 28 77 68 | point.is.not.at.filename."...(wh |
| 14f740 | 65 6e 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 72 65 2d 73 65 61 72 63 68 2d 62 61 | en.(save-excursion.(re-search-ba |
| 14f760 | 63 6b 77 61 72 64 20 22 5c 22 5b 5e 20 5c 74 5c 6e 5d 2b 5c 5c 3d 22 0a 20 20 20 20 20 20 20 20 | ckward."\"[^.\t\n]+\\="......... |
| 14f780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 14f7a0 | 20 20 20 20 28 6d 61 78 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 2d 20 28 70 6f 69 6e 74 29 20 | ....(max.(point-min).(-.(point). |
| 14f7c0 | 31 30 30 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1000)).......................... |
| 14f7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 0a 20 20 20 20 28 6c 65 74 20 | ...................t)).....(let. |
| 14f800 | 28 28 63 6f 6d 69 6e 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 64 64 73 75 66 66 69 78 20 27 28 | ((comint-completion-addsuffix.'( |
| 14f820 | 22 2f 22 20 2e 20 22 5c 22 22 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6d 69 6e 74 2d 66 69 6c 65 | "/"..."\""))).......(comint-file |
| 14f840 | 6e 61 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 66 | name-completion))))..;;.FIXME:.f |
| 14f860 | 6f 72 20 62 61 63 6b 77 61 72 64 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 2e 20 20 52 65 6d 6f | or.backward.compatibility...Remo |
| 14f880 | 76 65 20 69 74 20 6f 6e 65 20 64 61 79 0a 3b 3b 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 73 | ve.it.one.day.;;.together.with.s |
| 14f8a0 | 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 2e 0a 28 | lime-complete-symbol-function..( |
| 14f8c0 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 | defun.slime-simple-complete-symb |
| 14f8e0 | 6f 6c 20 28 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 | ol.()...(let.((completion-at-poi |
| 14f900 | 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 20 27 28 73 6c 69 6d 65 2d 6d 61 79 62 65 2d 63 6f 6d 70 6c | nt-functions.'(slime-maybe-compl |
| 14f920 | 65 74 65 2d 61 73 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ete-as-filename................. |
| 14f940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 73 | .........................slime-s |
| 14f960 | 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 | imple-completion-at-point))).... |
| 14f980 | 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 0a 3b 3b 20 4e 4f 54 | .(completion-at-point)))..;;.NOT |
| 14f9a0 | 45 3a 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 69 64 65 61 20 77 61 73 20 74 6f 20 62 69 6e 64 | E:.the.original.idea.was.to.bind |
| 14f9c0 | 20 74 68 69 73 20 74 6f 20 54 41 42 20 62 75 74 20 74 68 61 74 20 6e 6f 20 6c 6f 6e 67 65 72 0a | .this.to.TAB.but.that.no.longer. |
| 14f9e0 | 3b 3b 20 77 6f 72 6b 73 20 61 73 20 60 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 | ;;.works.as.`completion-at-point |
| 14fa00 | 27 20 73 65 74 73 20 61 20 74 72 61 6e 73 69 65 6e 74 20 6b 65 79 6d 61 70 20 74 68 61 74 0a 3b | '.sets.a.transient.keymap.that.; |
| 14fa20 | 3b 20 6f 76 65 72 72 69 64 65 73 20 54 41 42 2e 20 20 53 6f 20 74 68 69 73 20 69 73 20 72 61 74 | ;.overrides.TAB...So.this.is.rat |
| 14fa40 | 68 65 72 20 75 73 65 6c 65 73 73 20 6e 6f 77 2e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e | her.useless.now..(defun.slime-in |
| 14fa60 | 64 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 20 28 29 0a 20 20 22 49 | dent-and-complete-symbol.()..."I |
| 14fa80 | 6e 64 65 6e 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 6e 64 20 70 65 72 66 6f | ndent.the.current.line.and.perfo |
| 14faa0 | 72 6d 20 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 0a 46 69 72 73 74 20 69 6e 64 65 | rm.symbol.completion..First.inde |
| 14fac0 | 6e 74 20 74 68 65 20 6c 69 6e 65 2e 20 49 66 20 69 6e 64 65 6e 74 69 6e 67 20 64 6f 65 73 6e 27 | nt.the.line..If.indenting.doesn' |
| 14fae0 | 74 20 6d 6f 76 65 20 70 6f 69 6e 74 2c 20 63 6f 6d 70 6c 65 74 65 0a 74 68 65 20 73 79 6d 62 6f | t.move.point,.complete.the.symbo |
| 14fb00 | 6c 2e 20 49 66 20 74 68 65 72 65 27 73 20 6e 6f 20 73 79 6d 62 6f 6c 20 61 74 20 74 68 65 20 70 | l..If.there's.no.symbol.at.the.p |
| 14fb20 | 6f 69 6e 74 2c 20 73 68 6f 77 20 74 68 65 20 61 72 67 6c 69 73 74 0a 66 6f 72 20 74 68 65 20 6d | oint,.show.the.arglist.for.the.m |
| 14fb40 | 6f 73 74 20 72 65 63 65 6e 74 6c 79 20 65 6e 63 6c 6f 73 65 64 20 6d 61 63 72 6f 20 6f 72 20 66 | ost.recently.enclosed.macro.or.f |
| 14fb60 | 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 | unction."...(interactive)...(let |
| 14fb80 | 20 28 28 70 6f 73 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 67 65 | .((pos.(point))).....(unless.(ge |
| 14fba0 | 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d | t-text-property.(line-beginning- |
| 14fbc0 | 70 6f 73 69 74 69 6f 6e 29 20 27 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 6f 6d 70 74 29 0a 20 20 | position).'slime-repl-prompt)... |
| 14fbe0 | 20 20 20 20 28 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 29 29 0a 20 20 20 20 28 77 68 65 | ....(lisp-indent-line)).....(whe |
| 14fc00 | 6e 20 28 3d 20 70 6f 73 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 | n.(=.pos.(point)).......(cond.(( |
| 14fc20 | 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 | save-excursion.(re-search-backwa |
| 14fc40 | 72 64 20 22 5b 5e 28 29 20 5c 6e 5c 74 5c 72 5d 2b 5c 5c 3d 22 20 6e 69 6c 20 74 29 29 0a 20 20 | rd."[^().\n\t\r]+\\=".nil.t))... |
| 14fc60 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 | ...........(completion-at-point) |
| 14fc80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 71 20 28 63 68 61 72 2d 62 65 66 6f 72 | ).............((memq.(char-befor |
| 14fca0 | 65 29 20 27 28 3f 5c 74 20 3f 5c 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | e).'(?\t.?\.))..............(sli |
| 14fcc0 | 6d 65 2d 65 63 68 6f 2d 61 72 67 6c 69 73 74 29 29 29 29 29 29 0a 0a 28 6d 61 6b 65 2d 6f 62 73 | me-echo-arglist))))))..(make-obs |
| 14fce0 | 6f 6c 65 74 65 20 27 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 | olete.'slime-indent-and-complete |
| 14fd00 | 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53 65 74 20 74 61 62 2d | -symbol................"Set.tab- |
| 14fd20 | 61 6c 77 61 79 73 2d 69 6e 64 65 6e 74 20 74 6f 20 27 63 6f 6d 70 6c 65 74 65 2e 22 0a 20 20 20 | always-indent.to.'complete.".... |
| 14fd40 | 20 20 20 20 20 20 20 20 20 20 20 20 22 32 30 31 35 2d 31 30 2d 31 38 22 29 0a 0a 28 64 65 66 76 | ............"2015-10-18")..(defv |
| 14fd60 | 61 72 20 73 6c 69 6d 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 | ar.slime-minibuffer-map...(let.( |
| 14fd80 | 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 | (map.(make-sparse-keymap)))..... |
| 14fda0 | 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 6d 61 70 20 6d 69 6e 69 62 75 66 66 65 | (set-keymap-parent.map.minibuffe |
| 14fdc0 | 72 2d 6c 6f 63 61 6c 2d 6d 61 70 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 | r-local-map).....(define-key.map |
| 14fde0 | 20 22 5c 74 22 20 23 27 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 | ."\t".#'completion-at-point).... |
| 14fe00 | 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5c 4d 2d 5c 74 22 20 23 27 63 6f 6d 70 6c | .(define-key.map."\M-\t".#'compl |
| 14fe20 | 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 6d 61 70 29 0a 20 20 22 4d 69 6e 69 | etion-at-point).....map)..."Mini |
| 14fe40 | 62 75 66 66 65 72 20 6b 65 79 6d 61 70 20 75 73 65 64 20 66 6f 72 20 72 65 61 64 69 6e 67 20 43 | buffer.keymap.used.for.reading.C |
| 14fe60 | 4c 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d | L.expressions.")..(defvar.slime- |
| 14fe80 | 6d 69 6e 69 62 75 66 66 65 72 2d 68 69 73 74 6f 72 79 20 27 28 29 0a 20 20 22 48 69 73 74 6f 72 | minibuffer-history.'()..."Histor |
| 14fea0 | 79 20 6c 69 73 74 20 6f 66 20 65 78 70 72 65 73 73 69 6f 6e 73 20 72 65 61 64 20 66 72 6f 6d 20 | y.list.of.expressions.read.from. |
| 14fec0 | 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | the.minibuffer.")..(defun.slime- |
| 14fee0 | 6d 69 6e 69 62 75 66 66 65 72 2d 73 65 74 75 70 2d 68 6f 6f 6b 20 28 29 0a 20 20 28 63 6f 6e 73 | minibuffer-setup-hook.()...(cons |
| 14ff00 | 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 | .(let.((package.(slime-current-p |
| 14ff20 | 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 6e 65 63 74 69 | ackage))...............(connecti |
| 14ff40 | 6f 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 | on.(slime-connection)))......... |
| 14ff60 | 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 | ..(lambda.().............(setq.s |
| 14ff80 | 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 0a 20 20 20 | lime-buffer-package.package).... |
| 14ffa0 | 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e | .........(setq.slime-buffer-conn |
| 14ffc0 | 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | ection.connection).............( |
| 14ffe0 | 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 | set-syntax-table.lisp-mode-synta |
| 150000 | 78 2d 74 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 74 75 | x-table).............(slime-setu |
| 150020 | 70 2d 63 6f 6d 70 6c 65 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 6d 69 6e 69 62 75 66 66 | p-completion))).........minibuff |
| 150040 | 65 72 2d 73 65 74 75 70 2d 68 6f 6f 6b 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 | er-setup-hook))..(defun.slime-re |
| 150060 | 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 28 70 72 6f 6d 70 74 20 26 6f 70 74 69 | ad-from-minibuffer.(prompt.&opti |
| 150080 | 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 20 68 69 73 74 6f 72 79 29 0a 20 20 22 52 | onal.initial-value.history)..."R |
| 1500a0 | 65 61 64 20 61 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 | ead.a.string.from.the.minibuffer |
| 1500c0 | 2c 20 70 72 6f 6d 70 74 69 6e 67 20 77 69 74 68 20 50 52 4f 4d 50 54 2e 0a 49 66 20 49 4e 49 54 | ,.prompting.with.PROMPT..If.INIT |
| 1500e0 | 49 41 4c 2d 56 41 4c 55 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 74 20 69 73 20 69 6e 73 65 | IAL-VALUE.is.non-nil,.it.is.inse |
| 150100 | 72 74 65 64 20 69 6e 74 6f 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 62 65 66 6f 72 65 0a | rted.into.the.minibuffer.before. |
| 150120 | 72 65 61 64 69 6e 67 20 69 6e 70 75 74 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 | reading.input...The.result.is.a. |
| 150140 | 73 74 72 69 6e 67 20 28 5c 22 5c 22 20 69 66 20 6e 6f 20 69 6e 70 75 74 20 77 61 73 20 67 69 76 | string.(\"\".if.no.input.was.giv |
| 150160 | 65 6e 29 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 69 6e 69 62 75 66 66 65 72 2d 73 65 74 75 70 2d | en)."...(let.((minibuffer-setup- |
| 150180 | 68 6f 6f 6b 20 28 73 6c 69 6d 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 73 65 74 75 70 2d 68 6f 6f | hook.(slime-minibuffer-setup-hoo |
| 1501a0 | 6b 29 29 29 0a 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 70 | k))).....(read-from-minibuffer.p |
| 1501c0 | 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 20 73 6c 69 6d 65 2d 6d 69 6e 69 62 75 | rompt.initial-value.slime-minibu |
| 1501e0 | 66 66 65 72 2d 6d 61 70 0a 09 09 09 20 20 6e 69 6c 20 28 6f 72 20 68 69 73 74 6f 72 79 20 27 73 | ffer-map......nil.(or.history.'s |
| 150200 | 6c 69 6d 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 68 69 73 74 6f 72 79 29 29 29 29 0a 0a 28 64 65 | lime-minibuffer-history))))..(de |
| 150220 | 66 75 6e 20 73 6c 69 6d 65 2d 62 6f 67 75 73 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 6c 69 73 74 | fun.slime-bogus-completion-alist |
| 150240 | 20 28 6c 69 73 74 29 0a 20 20 22 4d 61 6b 65 20 61 6e 20 61 6c 69 73 74 20 6f 75 74 20 6f 66 20 | .(list)..."Make.an.alist.out.of. |
| 150260 | 6c 69 73 74 2e 0a 54 68 65 20 73 61 6d 65 20 65 6c 65 6d 65 6e 74 73 20 67 6f 20 69 6e 20 74 68 | list..The.same.elements.go.in.th |
| 150280 | 65 20 43 41 52 2c 20 61 6e 64 20 6e 69 6c 20 69 6e 20 74 68 65 20 43 44 52 2e 20 54 6f 20 73 75 | e.CAR,.and.nil.in.the.CDR..To.su |
| 1502a0 | 70 70 6f 72 74 20 74 68 65 0a 61 70 70 61 72 65 6e 74 6c 79 20 76 65 72 79 20 73 74 75 70 69 64 | pport.the.apparently.very.stupid |
| 1502c0 | 20 60 74 72 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 27 20 69 6e 74 65 72 66 61 63 65 2c 20 74 68 | .`try-completions'.interface,.th |
| 1502e0 | 61 74 20 77 61 6e 74 73 20 61 6e 0a 61 6c 69 73 74 20 62 75 74 20 69 67 6e 6f 72 65 73 20 43 44 | at.wants.an.alist.but.ignores.CD |
| 150300 | 52 73 2e 22 0a 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 63 6f 6e 73 | Rs."...(mapcar.(lambda.(x).(cons |
| 150320 | 20 78 20 6e 69 6c 29 29 20 6c 69 73 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 69 | .x.nil)).list))..(defun.slime-si |
| 150340 | 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 70 72 65 66 69 78 29 0a 20 20 28 63 6c 2d | mple-completions.(prefix)...(cl- |
| 150360 | 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 | destructuring-bind.(completions. |
| 150380 | 5f 70 61 72 74 69 61 6c 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 63 75 72 | _partial).......(let.((slime-cur |
| 1503a0 | 72 65 6e 74 2d 74 68 72 65 61 64 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 | rent-thread.t)).........(slime-e |
| 1503c0 | 76 61 6c 0a 20 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b 3a 73 69 6d 70 6c 65 2d 63 6f 6d 70 | val..........`(swank:simple-comp |
| 1503e0 | 6c 65 74 69 6f 6e 73 20 2c 28 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 | letions.,(substring-no-propertie |
| 150400 | 73 20 70 72 65 66 69 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.prefix)....................... |
| 150420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 | ..............',(slime-current-p |
| 150440 | 61 63 6b 61 67 65 29 29 29 29 0a 20 20 20 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 0a 0a 0c 0a | ackage)))).....completions)).... |
| 150460 | 3b 3b 3b 3b 20 45 64 69 74 20 64 65 66 69 6e 69 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | ;;;;.Edit.definition..(defun.sli |
| 150480 | 6d 65 2d 70 75 73 68 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 63 6b 20 28 29 0a 20 20 22 41 | me-push-definition-stack.()..."A |
| 1504a0 | 64 64 20 70 6f 69 6e 74 20 74 6f 20 66 69 6e 64 2d 74 61 67 2d 6d 61 72 6b 65 72 2d 73 74 61 63 | dd.point.to.find-tag-marker-stac |
| 1504c0 | 6b 2e 22 0a 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 78 72 65 66 2d 70 75 73 68 2d 6d 61 | k."...(if.(fboundp.'xref-push-ma |
| 1504e0 | 72 6b 65 72 2d 73 74 61 63 6b 29 0a 20 20 20 20 20 20 28 78 72 65 66 2d 70 75 73 68 2d 6d 61 72 | rker-stack).......(xref-push-mar |
| 150500 | 6b 65 72 2d 73 74 61 63 6b 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 20 20 | ker-stack.(point-marker))....... |
| 150520 | 28 72 69 6e 67 2d 69 6e 73 65 72 74 20 66 69 6e 64 2d 74 61 67 2d 6d 61 72 6b 65 72 2d 72 69 6e | (ring-insert.find-tag-marker-rin |
| 150540 | 67 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | g.(point-marker))))..(defun.slim |
| 150560 | 65 2d 70 6f 70 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 63 6b 20 28 29 0a 20 | e-pop-find-definition-stack.().. |
| 150580 | 20 22 50 6f 70 20 74 68 65 20 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 73 74 61 63 6b 20 | ."Pop.the.edit-definition.stack. |
| 1505a0 | 61 6e 64 20 67 6f 74 6f 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 | and.goto.the.location."...(inter |
| 1505c0 | 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 78 72 65 66 2d 70 6f 70 | active)...(if.(fboundp.'xref-pop |
| 1505e0 | 2d 6d 61 72 6b 65 72 2d 73 74 61 63 6b 29 0a 20 20 20 20 20 20 28 78 72 65 66 2d 70 6f 70 2d 6d | -marker-stack).......(xref-pop-m |
| 150600 | 61 72 6b 65 72 2d 73 74 61 63 6b 29 0a 20 20 20 20 20 20 28 70 6f 70 2d 74 61 67 2d 6d 61 72 6b | arker-stack).......(pop-tag-mark |
| 150620 | 29 29 29 0a 0a 28 63 6c 2d 64 65 66 73 74 72 75 63 74 20 28 73 6c 69 6d 65 2d 78 72 65 66 20 28 | )))..(cl-defstruct.(slime-xref.( |
| 150640 | 3a 63 6f 6e 63 2d 6e 61 6d 65 20 73 6c 69 6d 65 2d 78 72 65 66 2e 29 20 28 3a 74 79 70 65 20 6c | :conc-name.slime-xref.).(:type.l |
| 150660 | 69 73 74 29 29 0a 20 20 64 73 70 65 63 20 6c 6f 63 61 74 69 6f 6e 29 0a 0a 28 63 6c 2d 64 65 66 | ist))...dspec.location)..(cl-def |
| 150680 | 73 74 72 75 63 74 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 3a 63 6f 6e 63 2d 6e 61 | struct.(slime-location.(:conc-na |
| 1506a0 | 6d 65 20 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2e 29 20 28 3a 74 79 70 65 20 6c 69 73 74 29 | me.slime-location.).(:type.list) |
| 1506c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1506e0 | 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :constructor.nil)............... |
| 150700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 70 69 65 72 20 6e 69 6c 29 29 0a 20 | ................(:copier.nil)).. |
| 150720 | 20 74 61 67 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 20 68 69 6e 74 73 29 0a 0a 28 64 65 | .tag.buffer.position.hints)..(de |
| 150740 | 66 75 6e 20 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 28 6f 29 20 28 61 6e 64 20 28 63 | fun.slime-location-p.(o).(and.(c |
| 150760 | 6f 6e 73 70 20 6f 29 20 28 65 71 20 28 63 61 72 20 6f 29 20 3a 6c 6f 63 61 74 69 6f 6e 29 29 29 | onsp.o).(eq.(car.o).:location))) |
| 150780 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 78 72 65 66 2d 68 61 73 2d 6c 6f 63 61 74 69 6f 6e | ..(defun.slime-xref-has-location |
| 1507a0 | 2d 70 20 28 78 72 65 66 29 0a 20 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 28 73 | -p.(xref)...(slime-location-p.(s |
| 1507c0 | 6c 69 6d 65 2d 78 72 65 66 2e 6c 6f 63 61 74 69 6f 6e 20 78 72 65 66 29 29 29 0a 0a 28 64 65 66 | lime-xref.location.xref)))..(def |
| 1507e0 | 75 6e 20 6d 61 6b 65 2d 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 74 69 6f 6e 20 28 62 | un.make-slime-buffer-location.(b |
| 150800 | 75 66 66 65 72 2d 6e 61 6d 65 20 70 6f 73 69 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 68 69 | uffer-name.position.&optional.hi |
| 150820 | 6e 74 73 29 0a 20 20 60 28 3a 6c 6f 63 61 74 69 6f 6e 20 28 3a 62 75 66 66 65 72 20 2c 62 75 66 | nts)...`(:location.(:buffer.,buf |
| 150840 | 66 65 72 2d 6e 61 6d 65 29 20 28 3a 70 6f 73 69 74 69 6f 6e 20 2c 70 6f 73 69 74 69 6f 6e 29 0a | fer-name).(:position.,position). |
| 150860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 77 68 65 6e 20 68 69 6e 74 73 20 60 28 3a 68 69 | ..............,(when.hints.`(:hi |
| 150880 | 6e 74 73 20 2c 68 69 6e 74 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 73 6c 69 6d | nts.,hints))))..(defun.make-slim |
| 1508a0 | 65 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 69 6c 65 2d 6e 61 6d 65 20 70 6f 73 69 74 | e-file-location.(file-name.posit |
| 1508c0 | 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 68 69 6e 74 73 29 0a 20 20 60 28 3a 6c 6f 63 61 74 69 | ion.&optional.hints)...`(:locati |
| 1508e0 | 6f 6e 20 28 3a 66 69 6c 65 20 2c 66 69 6c 65 2d 6e 61 6d 65 29 20 28 3a 70 6f 73 69 74 69 6f 6e | on.(:file.,file-name).(:position |
| 150900 | 20 2c 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 77 68 65 6e | .,position)...............,(when |
| 150920 | 20 68 69 6e 74 73 20 60 28 3a 68 69 6e 74 73 20 2c 68 69 6e 74 73 29 29 29 29 0a 0a 3b 3b 3b 20 | .hints.`(:hints.,hints))))..;;;. |
| 150940 | 54 68 65 20 68 6f 6f 6b 73 20 61 72 65 20 74 72 69 65 64 20 69 6e 20 6f 72 64 65 72 20 75 6e 74 | The.hooks.are.tried.in.order.unt |
| 150960 | 69 6c 20 6f 6e 65 20 73 75 63 63 65 65 64 73 2c 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 0a 3b | il.one.succeeds,.otherwise.the.; |
| 150980 | 3b 3b 20 64 65 66 61 75 6c 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 76 6f 6c 76 | ;;.default.implementation.involv |
| 1509a0 | 69 6e 67 20 60 73 6c 69 6d 65 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 66 75 6e 63 | ing.`slime-find-definitions-func |
| 1509c0 | 74 69 6f 6e 27 0a 3b 3b 3b 20 69 73 20 75 73 65 64 2e 20 54 68 65 20 68 6f 6f 6b 73 20 61 72 65 | tion'.;;;.is.used..The.hooks.are |
| 1509e0 | 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 20 | .called.with.the.same.arguments. |
| 150a00 | 61 73 0a 3b 3b 3b 20 60 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 27 2e 0a | as.;;;.`slime-edit-definition'.. |
| 150a20 | 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 68 6f | (defvar.slime-edit-definition-ho |
| 150a40 | 6f 6b 73 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 | oks)..(defun.slime-edit-definiti |
| 150a60 | 6f 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 61 6d 65 20 77 68 65 72 65 29 0a 20 20 22 4c 6f 6f | on.(&optional.name.where)..."Loo |
| 150a80 | 6b 75 70 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 6e 61 6d 65 20 61 | kup.the.definition.of.the.name.a |
| 150aa0 | 74 20 70 6f 69 6e 74 2e 0a 49 66 20 74 68 65 72 65 27 73 20 6e 6f 20 6e 61 6d 65 20 61 74 20 70 | t.point..If.there's.no.name.at.p |
| 150ac0 | 6f 69 6e 74 2c 20 6f 72 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 73 20 67 69 | oint,.or.a.prefix.argument.is.gi |
| 150ae0 | 76 65 6e 2c 20 74 68 65 6e 20 74 68 65 0a 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 69 73 20 70 | ven,.then.the.function.name.is.p |
| 150b00 | 72 6f 6d 70 74 65 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 | rompted."...(interactive.(list.( |
| 150b20 | 6f 72 20 28 61 6e 64 20 28 6e 6f 74 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 | or.(and.(not.current-prefix-arg) |
| 150b40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 150b60 | 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 | slime-symbol-at-point))......... |
| 150b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d | .................(slime-read-sym |
| 150ba0 | 62 6f 6c 2d 6e 61 6d 65 20 22 45 64 69 74 20 44 65 66 69 6e 69 74 69 6f 6e 20 6f 66 3a 20 22 29 | bol-name."Edit.Definition.of:.") |
| 150bc0 | 29 29 29 0a 20 20 3b 3b 20 54 68 65 20 68 6f 6f 6b 73 20 6d 69 67 68 74 20 73 65 61 72 63 68 20 | )))...;;.The.hooks.might.search. |
| 150be0 | 66 6f 72 20 61 20 6e 61 6d 65 20 69 6e 20 61 20 64 69 66 66 65 72 65 6e 74 20 6d 61 6e 6e 65 72 | for.a.name.in.a.different.manner |
| 150c00 | 2c 20 73 6f 20 64 6f 6e 27 74 0a 20 20 3b 3b 20 61 73 6b 20 74 68 65 20 75 73 65 72 20 69 66 20 | ,.so.don't...;;.ask.the.user.if. |
| 150c20 | 69 74 27 73 20 6d 69 73 73 69 6e 67 20 62 65 66 6f 72 65 20 74 68 65 20 68 6f 6f 6b 73 20 61 72 | it's.missing.before.the.hooks.ar |
| 150c40 | 65 20 72 75 6e 0a 20 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d | e.run...(or.(run-hook-with-args- |
| 150c60 | 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 27 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 | until-success.'slime-edit-defini |
| 150c80 | 74 69 6f 6e 2d 68 6f 6f 6b 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion-hooks...................... |
| 150ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 20 77 68 65 72 65 29 0a 20 | ...................name.where).. |
| 150cc0 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 63 6f 6e 74 | .....(slime-edit-definition-cont |
| 150ce0 | 20 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 | .(slime-find-definitions.name).. |
| 150d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 150d20 | 20 6e 61 6d 65 20 77 68 65 72 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 64 69 | .name.where)))..(defun.slime-edi |
| 150d40 | 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 63 6f 6e 74 20 28 78 72 65 66 73 20 6e 61 6d 65 20 77 68 | t-definition-cont.(xrefs.name.wh |
| 150d60 | 65 72 65 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 31 | ere)...(cl-destructuring-bind.(1 |
| 150d80 | 6c 6f 63 20 66 69 6c 65 2d 61 6c 69 73 74 29 20 28 73 6c 69 6d 65 2d 61 6e 61 6c 79 7a 65 2d 78 | loc.file-alist).(slime-analyze-x |
| 150da0 | 72 65 66 73 20 78 72 65 66 73 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 78 72 65 | refs.xrefs).....(cond.((null.xre |
| 150dc0 | 66 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 6b 6e 6f 77 6e 20 | fs)............(error."No.known. |
| 150de0 | 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 3a 20 25 73 20 28 69 6e 20 25 73 29 22 0a 20 20 20 20 | definition.for:.%s.(in.%s)"..... |
| 150e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e | ..............name.(slime-curren |
| 150e20 | 74 2d 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 31 6c 6f 63 0a 20 20 20 | t-package)))...........(1loc.... |
| 150e40 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 75 73 68 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 | ........(slime-push-definition-s |
| 150e60 | 74 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 6f 70 2d 74 6f 2d 6c | tack)............(slime-pop-to-l |
| 150e80 | 6f 63 61 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 78 72 65 66 2e 6c 6f 63 61 74 69 6f 6e 20 28 63 61 | ocation.(slime-xref.location.(ca |
| 150ea0 | 72 20 78 72 65 66 73 29 29 20 77 68 65 72 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 6c | r.xrefs)).where))...........((sl |
| 150ec0 | 69 6d 65 2d 6c 65 6e 67 74 68 3d 20 78 72 65 66 73 20 31 29 20 20 20 20 20 20 3b 20 28 28 3a 65 | ime-length=.xrefs.1)......;.((:e |
| 150ee0 | 72 72 6f 72 20 22 2e 2e 2e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 | rror."..."))............(error." |
| 150f00 | 25 73 22 20 28 63 61 64 72 20 28 73 6c 69 6d 65 2d 78 72 65 66 2e 6c 6f 63 61 74 69 6f 6e 20 28 | %s".(cadr.(slime-xref.location.( |
| 150f20 | 63 61 72 20 78 72 65 66 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 | car.xrefs)))))...........(t..... |
| 150f40 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 75 73 68 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 | .......(slime-push-definition-st |
| 150f60 | 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 2d 78 72 65 66 | ack)............(slime-show-xref |
| 150f80 | 73 20 66 69 6c 65 2d 61 6c 69 73 74 20 27 64 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 0a 20 20 | s.file-alist.'definition.name... |
| 150fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | ...........................(slim |
| 150fc0 | 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 | e-current-package))))))..(defvar |
| 150fe0 | 20 73 6c 69 6d 65 2d 65 64 69 74 2d 75 73 65 73 2d 78 72 65 66 73 0a 20 20 27 28 3a 63 61 6c 6c | .slime-edit-uses-xrefs...'(:call |
| 151000 | 73 20 3a 6d 61 63 72 6f 65 78 70 61 6e 64 73 20 3a 62 69 6e 64 73 20 3a 72 65 66 65 72 65 6e 63 | s.:macroexpands.:binds.:referenc |
| 151020 | 65 73 20 3a 73 65 74 73 20 3a 73 70 65 63 69 61 6c 69 7a 65 73 29 29 0a 0a 3b 3b 3b 20 46 49 58 | es.:sets.:specializes))..;;;.FIX |
| 151040 | 4d 45 2e 20 54 4f 44 4f 3a 20 57 6f 75 6c 64 20 62 65 20 6e 69 63 65 20 74 6f 20 67 72 6f 75 70 | ME..TODO:.Would.be.nice.to.group |
| 151060 | 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 28 69 6e 20 65 61 63 68 0a 3b 3b 3b 20 20 20 20 20 20 20 | .the.symbols.(in.each.;;;....... |
| 151080 | 20 20 20 20 20 20 20 74 79 70 65 2d 67 72 6f 75 70 29 20 62 79 20 74 68 65 69 72 20 68 6f 6d 65 | .......type-group).by.their.home |
| 1510a0 | 2d 70 61 63 6b 61 67 65 2e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 64 69 74 2d 75 73 65 73 | -package..(defun.slime-edit-uses |
| 1510c0 | 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 4c 6f 6f 6b 75 70 20 61 6c 6c 20 74 68 65 20 75 73 65 73 | .(symbol)..."Lookup.all.the.uses |
| 1510e0 | 20 6f 66 20 53 59 4d 42 4f 4c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 | .of.SYMBOL."...(interactive.(lis |
| 151100 | 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 45 64 69 74 20 | t.(slime-read-symbol-name."Edit. |
| 151120 | 55 73 65 73 20 6f 66 3a 20 22 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 78 72 65 66 73 20 73 6c 69 | Uses.of:.")))...(slime-xrefs.sli |
| 151140 | 6d 65 2d 65 64 69 74 2d 75 73 65 73 2d 78 72 65 66 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | me-edit-uses-xrefs.............. |
| 151160 | 20 20 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 | ..symbol................(lambda. |
| 151180 | 28 78 72 65 66 73 20 74 79 70 65 20 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 | (xrefs.type.symbol.package)..... |
| 1511a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............(cond.............. |
| 1511c0 | 20 20 20 20 20 28 28 6e 75 6c 6c 20 78 72 65 66 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....((null.xrefs).............. |
| 1511e0 | 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 78 72 65 66 20 69 6e 66 6f 72 6d 61 74 | ......(message."No.xref.informat |
| 151200 | 69 6f 6e 20 66 6f 75 6e 64 20 66 6f 72 20 25 73 2e 22 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 | ion.found.for.%s.".symbol))..... |
| 151220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 73 6c 69 6d 65 2d 6c 65 6e 67 74 | ..............((and.(slime-lengt |
| 151240 | 68 3d 20 78 72 65 66 73 20 31 29 20 20 20 20 20 20 20 20 20 20 3b 20 6f 6e 65 20 67 72 6f 75 70 | h=.xrefs.1)..........;.one.group |
| 151260 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | .........................(slime- |
| 151280 | 6c 65 6e 67 74 68 3d 20 28 63 64 61 72 20 20 78 72 65 66 73 29 20 31 29 29 20 3b 20 6f 6e 65 20 | length=.(cdar..xrefs).1)).;.one. |
| 1512a0 | 72 65 66 20 69 6e 20 67 72 6f 75 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ref.in.group.................... |
| 1512c0 | 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 5f 20 28 5f 20 6c 6f 63 | (cl-destructuring-bind.(_.(_.loc |
| 1512e0 | 29 29 20 28 63 6c 2d 66 69 72 73 74 20 78 72 65 66 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | )).(cl-first.xrefs)............. |
| 151300 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 75 73 68 2d 64 65 66 69 6e 69 74 69 6f 6e 2d | .........(slime-push-definition- |
| 151320 | 73 74 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | stack)......................(sli |
| 151340 | 6d 65 2d 70 6f 70 2d 74 6f 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 29 29 29 0a 20 20 20 20 20 20 | me-pop-to-location.loc)))....... |
| 151360 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............(t.................. |
| 151380 | 20 20 28 73 6c 69 6d 65 2d 70 75 73 68 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 63 6b 29 0a | ..(slime-push-definition-stack). |
| 1513a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 2d 78 | ...................(slime-show-x |
| 1513c0 | 72 65 66 2d 62 75 66 66 65 72 20 78 72 65 66 73 20 74 79 70 65 20 73 79 6d 62 6f 6c 20 70 61 63 | ref-buffer.xrefs.type.symbol.pac |
| 1513e0 | 6b 61 67 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 6e 61 6c 79 7a 65 | kage))))))..(defun.slime-analyze |
| 151400 | 2d 78 72 65 66 73 20 28 78 72 65 66 73 29 0a 20 20 22 46 69 6e 64 20 63 6f 6d 6d 6f 6e 20 66 69 | -xrefs.(xrefs)..."Find.common.fi |
| 151420 | 6c 65 6e 61 6d 65 73 20 69 6e 20 58 52 45 46 53 2e 0a 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 | lenames.in.XREFS..Return.a.list. |
| 151440 | 28 53 49 4e 47 4c 45 2d 4c 4f 43 41 54 49 4f 4e 20 46 49 4c 45 2d 41 4c 49 53 54 29 2e 0a 53 49 | (SINGLE-LOCATION.FILE-ALIST)..SI |
| 151460 | 4e 47 4c 45 2d 4c 4f 43 41 54 49 4f 4e 20 69 73 20 74 72 75 65 20 69 66 20 61 6c 6c 20 78 72 65 | NGLE-LOCATION.is.true.if.all.xre |
| 151480 | 66 73 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 73 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 2e 0a 46 | fs.point.to.the.same.location..F |
| 1514a0 | 49 4c 45 2d 41 4c 49 53 54 20 69 73 20 61 6e 20 61 6c 69 73 74 20 6f 66 20 74 68 65 20 66 6f 72 | ILE-ALIST.is.an.alist.of.the.for |
| 1514c0 | 6d 20 28 28 46 49 4c 45 4e 41 4d 45 20 2e 20 28 58 52 45 46 20 2e 2e 2e 29 29 20 2e 2e 2e 29 2e | m.((FILENAME...(XREF....))....). |
| 1514e0 | 22 0a 20 20 28 6c 69 73 74 20 28 61 6e 64 20 78 72 65 66 73 0a 20 20 20 20 20 20 20 20 20 20 20 | "...(list.(and.xrefs............ |
| 151500 | 20 20 28 6c 65 74 20 28 28 6c 6f 63 20 28 73 6c 69 6d 65 2d 78 72 65 66 2e 6c 6f 63 61 74 69 6f | ..(let.((loc.(slime-xref.locatio |
| 151520 | 6e 20 28 63 61 72 20 78 72 65 66 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.(car.xrefs))))................ |
| 151540 | 28 61 6e 64 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 6c 6f 63 29 0a 20 20 20 20 | (and.(slime-location-p.loc)..... |
| 151560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 65 76 65 72 79 20 28 6c 61 6d 62 64 | ................(cl-every.(lambd |
| 151580 | 61 20 28 78 29 20 28 65 71 75 61 6c 20 28 73 6c 69 6d 65 2d 78 72 65 66 2e 6c 6f 63 61 74 69 6f | a.(x).(equal.(slime-xref.locatio |
| 1515a0 | 6e 20 78 29 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.x).loc))...................... |
| 1515c0 | 20 20 20 20 20 20 20 20 20 28 63 64 72 20 78 72 65 66 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 | .........(cdr.xrefs)))))........ |
| 1515e0 | 20 28 73 6c 69 6d 65 2d 61 6c 69 73 74 69 66 79 20 78 72 65 66 73 20 23 27 73 6c 69 6d 65 2d 78 | .(slime-alistify.xrefs.#'slime-x |
| 151600 | 72 65 66 2d 67 72 6f 75 70 20 23 27 65 71 75 61 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | ref-group.#'equal)))..(defun.sli |
| 151620 | 6d 65 2d 78 72 65 66 2d 67 72 6f 75 70 20 28 78 72 65 66 29 0a 20 20 28 63 6f 6e 64 20 28 28 73 | me-xref-group.(xref)...(cond.((s |
| 151640 | 6c 69 6d 65 2d 78 72 65 66 2d 68 61 73 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 78 72 65 66 29 0a 20 | lime-xref-has-location-p.xref).. |
| 151660 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 | ........(slime-dcase.(slime-loca |
| 151680 | 74 69 6f 6e 2e 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 78 72 65 66 2e 6c 6f 63 61 74 69 6f 6e | tion.buffer.(slime-xref.location |
| 1516a0 | 20 78 72 65 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 66 69 6c 65 20 66 69 6c 65 6e | .xref))............((:file.filen |
| 1516c0 | 61 6d 65 29 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 62 75 66 | ame).filename)............((:buf |
| 1516e0 | 66 65 72 20 62 75 66 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | fer.bufname).............(let.(( |
| 151700 | 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 20 62 75 66 6e 61 6d 65 29 29 29 0a 20 20 | buffer.(get-buffer.bufname)))... |
| 151720 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 | ............(if.buffer.......... |
| 151740 | 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 53 22 20 62 75 66 66 65 72 29 20 3b 20 | .........(format."%S".buffer).;. |
| 151760 | 22 23 3c 62 75 66 66 65 72 20 66 6f 6f 2e 6c 69 73 70 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 | "#<buffer.foo.lisp>"............ |
| 151780 | 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 20 28 70 72 65 76 69 6f 75 73 6c 79 20 65 78 69 | .....(format."%s.(previously.exi |
| 1517a0 | 73 74 69 6e 67 20 62 75 66 66 65 72 29 22 20 62 75 66 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 | sting.buffer)".bufname))))...... |
| 1517c0 | 20 20 20 20 20 20 28 28 3a 62 75 66 66 65 72 2d 61 6e 64 2d 66 69 6c 65 20 5f 62 75 66 66 65 72 | ......((:buffer-and-file._buffer |
| 1517e0 | 20 66 69 6c 65 6e 61 6d 65 29 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .filename).filename)............ |
| 151800 | 28 28 3a 73 6f 75 72 63 65 2d 66 6f 72 6d 20 5f 29 20 22 28 53 2d 45 78 70 29 22 29 0a 20 20 20 | ((:source-form._)."(S-Exp)").... |
| 151820 | 20 20 20 20 20 20 20 20 28 28 3a 7a 69 70 20 5f 7a 69 70 20 65 6e 74 72 79 29 20 65 6e 74 72 79 | ........((:zip._zip.entry).entry |
| 151840 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 22 28 4e 6f 20 6c 6f 63 | ))).........(t.........."(No.loc |
| 151860 | 61 74 69 6f 6e 29 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 6f 70 2d 74 6f 2d | ation)")))..(defun.slime-pop-to- |
| 151880 | 6c 6f 63 61 74 69 6f 6e 20 28 6c 6f 63 61 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 77 68 65 | location.(location.&optional.whe |
| 1518a0 | 72 65 29 0a 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | re)...(slime-goto-source-locatio |
| 1518c0 | 6e 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 70 6f 69 6e 74 20 28 70 6f 69 6e | n.location)...(let.((point.(poin |
| 1518e0 | 74 29 29 29 0a 20 20 20 20 28 63 6c 2d 65 63 61 73 65 20 77 68 65 72 65 0a 20 20 20 20 20 20 28 | t))).....(cl-ecase.where.......( |
| 151900 | 28 6e 69 6c 29 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e | (nil)..(switch-to-buffer.(curren |
| 151920 | 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 28 77 69 6e 64 6f 77 20 28 70 6f 70 2d 74 | t-buffer))).......(window.(pop-t |
| 151940 | 6f 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 29 29 0a 20 20 | o-buffer.(current-buffer).t))... |
| 151960 | 20 20 20 20 28 66 72 61 6d 65 20 20 28 6c 65 74 20 28 28 70 6f 70 2d 75 70 2d 66 72 61 6d 65 73 | ....(frame..(let.((pop-up-frames |
| 151980 | 20 74 29 29 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 | .t)).(pop-to-buffer.(current-buf |
| 1519a0 | 66 65 72 29 20 74 29 29 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 69 6e 74 29 | fer).t)))).....(goto-char.point) |
| 1519c0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 6f 73 74 70 72 6f 63 65 73 73 2d 78 72 65 | ))..(defun.slime-postprocess-xre |
| 1519e0 | 66 20 28 6f 72 69 67 69 6e 61 6c 2d 78 72 65 66 29 0a 20 20 22 50 72 6f 63 65 73 73 20 28 66 6f | f.(original-xref)..."Process.(fo |
| 151a00 | 72 20 6e 6f 72 6d 61 6c 69 7a 61 74 69 6f 6e 20 70 75 72 70 6f 73 65 73 29 20 61 6e 20 58 72 65 | r.normalization.purposes).an.Xre |
| 151a20 | 66 20 63 6f 6d 6d 69 6e 67 20 64 69 72 65 63 74 6c 79 0a 66 72 6f 6d 20 53 57 41 4e 4b 20 62 65 | f.comming.directly.from.SWANK.be |
| 151a40 | 66 6f 72 65 20 74 68 65 20 72 65 73 74 20 6f 66 20 53 6c 69 6d 65 20 73 65 65 73 20 69 74 2e 20 | fore.the.rest.of.Slime.sees.it.. |
| 151a60 | 49 6e 20 70 61 72 74 69 63 75 6c 61 72 2c 0a 63 6f 6e 76 65 72 74 20 45 54 41 47 53 20 62 61 73 | In.particular,.convert.ETAGS.bas |
| 151a80 | 65 64 20 78 72 65 66 73 20 74 6f 20 61 63 74 75 61 6c 20 66 69 6c 65 2b 70 6f 73 69 74 69 6f 6e | ed.xrefs.to.actual.file+position |
| 151aa0 | 20 62 61 73 65 64 0a 6c 6f 63 61 74 69 6f 6e 73 2e 22 0a 20 20 28 69 66 20 28 6e 6f 74 20 28 73 | .based.locations."...(if.(not.(s |
| 151ac0 | 6c 69 6d 65 2d 78 72 65 66 2d 68 61 73 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 6f 72 69 67 69 6e 61 | lime-xref-has-location-p.origina |
| 151ae0 | 6c 2d 78 72 65 66 29 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 6f 72 69 67 69 6e 61 6c 2d 78 72 | l-xref)).......(list.original-xr |
| 151b00 | 65 66 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 6f 63 20 28 73 6c 69 6d 65 2d 78 72 65 66 2e 6c | ef).....(let.((loc.(slime-xref.l |
| 151b20 | 6f 63 61 74 69 6f 6e 20 6f 72 69 67 69 6e 61 6c 2d 78 72 65 66 29 29 29 0a 20 20 20 20 20 20 28 | ocation.original-xref))).......( |
| 151b40 | 73 6c 69 6d 65 2d 64 63 61 73 65 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2e 62 75 66 66 | slime-dcase.(slime-location.buff |
| 151b60 | 65 72 20 6c 6f 63 29 0a 20 20 20 20 20 20 20 20 28 28 3a 65 74 61 67 73 2d 66 69 6c 65 20 74 61 | er.loc).........((:etags-file.ta |
| 151b80 | 67 73 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 28 | gs-file)..........(slime-dcase.( |
| 151ba0 | 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2e 70 6f 73 69 74 69 6f 6e 20 6c 6f 63 29 0a 20 20 20 | slime-location.position.loc).... |
| 151bc0 | 20 20 20 20 20 20 20 20 28 28 3a 74 61 67 20 26 72 65 73 74 20 74 61 67 73 29 0a 20 20 20 20 20 | ........((:tag.&rest.tags)...... |
| 151be0 | 20 20 20 20 20 20 20 28 76 69 73 69 74 2d 74 61 67 73 2d 74 61 62 6c 65 20 74 61 67 73 2d 66 69 | .......(visit-tags-table.tags-fi |
| 151c00 | 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 | le).............(mapcar.(lambda. |
| 151c20 | 28 78 72 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | (xref).......................(le |
| 151c40 | 74 20 28 28 6f 6c 64 2d 64 73 70 65 63 20 28 73 6c 69 6d 65 2d 78 72 65 66 2e 64 73 70 65 63 20 | t.((old-dspec.(slime-xref.dspec. |
| 151c60 | 6f 72 69 67 69 6e 61 6c 2d 78 72 65 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | original-xref))................. |
| 151c80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 64 73 70 65 63 20 28 73 6c 69 6d 65 2d 78 72 | ............(new-dspec.(slime-xr |
| 151ca0 | 65 66 2e 64 73 70 65 63 20 78 72 65 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ef.dspec.xref)))................ |
| 151cc0 | 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 78 72 65 66 2e 64 73 70 65 63 | .........(setf.(slime-xref.dspec |
| 151ce0 | 20 78 72 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .xref).......................... |
| 151d00 | 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 3a 20 25 73 22 20 6f 6c 64 2d 64 73 70 65 63 20 | .....(format."%s:.%s".old-dspec. |
| 151d20 | 6e 65 77 2d 64 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | new-dspec))..................... |
| 151d40 | 20 20 20 20 78 72 65 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ....xref)).....................( |
| 151d60 | 63 6c 2d 6d 61 70 63 61 6e 20 23 27 73 6c 69 6d 65 2d 65 74 61 67 73 2d 64 65 66 69 6e 69 74 69 | cl-mapcan.#'slime-etags-definiti |
| 151d80 | 6f 6e 73 20 74 61 67 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 | ons.tags))))).........(t........ |
| 151da0 | 20 20 28 6c 69 73 74 20 6f 72 69 67 69 6e 61 6c 2d 78 72 65 66 29 29 29 29 29 29 0a 0a 28 64 65 | ..(list.original-xref))))))..(de |
| 151dc0 | 66 75 6e 20 73 6c 69 6d 65 2d 70 6f 73 74 70 72 6f 63 65 73 73 2d 78 72 65 66 73 20 28 78 72 65 | fun.slime-postprocess-xrefs.(xre |
| 151de0 | 66 73 29 0a 20 20 28 63 6c 2d 6d 61 70 63 61 6e 20 23 27 73 6c 69 6d 65 2d 70 6f 73 74 70 72 6f | fs)...(cl-mapcan.#'slime-postpro |
| 151e00 | 63 65 73 73 2d 78 72 65 66 20 78 72 65 66 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | cess-xref.xrefs))..(defun.slime- |
| 151e20 | 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 22 46 69 6e 64 20 | find-definitions.(name)..."Find. |
| 151e40 | 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 6f 72 20 4e 41 4d 45 2e 22 0a 20 20 28 73 6c 69 6d 65 2d | definitions.for.NAME."...(slime- |
| 151e60 | 70 6f 73 74 70 72 6f 63 65 73 73 2d 78 72 65 66 73 20 28 66 75 6e 63 61 6c 6c 20 73 6c 69 6d 65 | postprocess-xrefs.(funcall.slime |
| 151e80 | 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 | -find-definitions-function.name) |
| 151ea0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e | ))..(defun.slime-find-definition |
| 151ec0 | 73 2d 72 70 63 20 28 6e 61 6d 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 | s-rpc.(name)...(slime-eval.`(swa |
| 151ee0 | 6e 6b 3a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 66 6f 72 2d 65 6d 61 63 73 20 2c 6e | nk:find-definitions-for-emacs.,n |
| 151f00 | 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 | ame)))..(defun.slime-edit-defini |
| 151f20 | 74 69 6f 6e 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 28 6e 61 6d 65 29 0a 20 20 22 4c 69 6b 65 | tion-other-window.(name)..."Like |
| 151f40 | 20 60 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 27 20 62 75 74 20 73 77 69 | .`slime-edit-definition'.but.swi |
| 151f60 | 74 63 68 20 74 6f 20 74 68 65 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 22 0a 20 20 28 69 6e 74 | tch.to.the.other.window."...(int |
| 151f80 | 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f | eractive.(list.(slime-read-symbo |
| 151fa0 | 6c 2d 6e 61 6d 65 20 22 53 79 6d 62 6f 6c 3a 20 22 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 64 | l-name."Symbol:.")))...(slime-ed |
| 151fc0 | 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 20 27 77 69 6e 64 6f 77 29 29 0a 0a 28 64 | it-definition.name.'window))..(d |
| 151fe0 | 65 66 75 6e 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6f 74 68 65 72 | efun.slime-edit-definition-other |
| 152000 | 2d 66 72 61 6d 65 20 28 6e 61 6d 65 29 0a 20 20 22 4c 69 6b 65 20 60 73 6c 69 6d 65 2d 65 64 69 | -frame.(name)..."Like.`slime-edi |
| 152020 | 74 2d 64 65 66 69 6e 69 74 69 6f 6e 27 20 62 75 74 20 73 77 69 74 63 68 20 74 6f 20 74 68 65 20 | t-definition'.but.switch.to.the. |
| 152040 | 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c | other.window."...(interactive.(l |
| 152060 | 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 53 79 6d | ist.(slime-read-symbol-name."Sym |
| 152080 | 62 6f 6c 3a 20 22 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 | bol:.")))...(slime-edit-definiti |
| 1520a0 | 6f 6e 20 6e 61 6d 65 20 27 66 72 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 | on.name.'frame))..(defun.slime-e |
| 1520c0 | 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 77 69 74 68 2d 65 74 61 67 73 20 28 6e 61 6d 65 29 | dit-definition-with-etags.(name) |
| 1520e0 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 | ...(interactive.(list.(slime-rea |
| 152100 | 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 53 79 6d 62 6f 6c 3a 20 22 29 29 29 0a 20 20 28 6c | d-symbol-name."Symbol:.")))...(l |
| 152120 | 65 74 20 28 28 78 72 65 66 73 20 28 73 6c 69 6d 65 2d 65 74 61 67 73 2d 64 65 66 69 6e 69 74 69 | et.((xrefs.(slime-etags-definiti |
| 152140 | 6f 6e 73 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 78 72 65 66 73 0a 20 20 20 | ons.name))).....(cond.(xrefs.... |
| 152160 | 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 55 73 69 6e 67 20 74 61 67 20 66 69 6c 65 | ........(message."Using.tag.file |
| 152180 | 2e 2e 2e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 | ...")............(slime-edit-def |
| 1521a0 | 69 6e 69 74 69 6f 6e 2d 63 6f 6e 74 20 78 72 65 66 73 20 6e 61 6d 65 20 6e 69 6c 29 29 0a 20 20 | inition-cont.xrefs.name.nil))... |
| 1521c0 | 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f | ........(t............(error."No |
| 1521e0 | 20 6b 6e 6f 77 6e 20 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 3a 20 25 73 22 20 6e 61 6d 65 29 | .known.definition.for:.%s".name) |
| 152200 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 74 61 67 73 2d 74 6f 2d 6c 6f 63 61 | ))))..(defun.slime-etags-to-loca |
| 152220 | 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 22 53 65 61 72 63 68 20 66 6f 72 20 64 65 66 69 6e | tions.(name)..."Search.for.defin |
| 152240 | 69 74 69 6f 6e 73 20 6d 61 74 63 68 69 6e 67 20 60 6e 61 6d 65 27 20 69 6e 20 74 68 65 20 63 75 | itions.matching.`name'.in.the.cu |
| 152260 | 72 72 65 6e 74 6c 79 20 61 63 74 69 76 65 0a 74 61 67 73 20 74 61 62 6c 65 2e 20 52 65 74 75 72 | rrently.active.tags.table..Retur |
| 152280 | 6e 20 61 20 70 6f 73 73 69 62 6c 79 20 65 6d 70 74 79 20 6c 69 73 74 20 6f 66 20 73 6c 69 6d 65 | n.a.possibly.empty.list.of.slime |
| 1522a0 | 2d 6c 6f 63 61 74 69 6f 6e 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 6c 6f 63 73 20 27 28 29 29 29 | -locations."...(let.((locs.'())) |
| 1522c0 | 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 6c 65 74 20 | .....(save-excursion.......(let. |
| 1522e0 | 28 28 66 69 72 73 74 2d 74 69 6d 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 | ((first-time.t)).........(while. |
| 152300 | 28 76 69 73 69 74 2d 74 61 67 73 2d 74 61 62 6c 65 2d 62 75 66 66 65 72 20 28 6e 6f 74 20 66 69 | (visit-tags-table-buffer.(not.fi |
| 152320 | 72 73 74 2d 74 69 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 69 72 73 74 | rst-time))...........(setq.first |
| 152340 | 2d 74 69 6d 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | -time.nil)...........(goto-char. |
| 152360 | 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 73 | (point-min))...........(while.(s |
| 152380 | 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6e 61 6d 65 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 | earch-forward.name.nil.t)....... |
| 1523a0 | 20 20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 | ......(beginning-of-line)....... |
| 1523c0 | 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 68 69 | ......(cl-destructuring-bind.(hi |
| 1523e0 | 6e 74 20 6c 69 6e 65 20 26 72 65 73 74 20 70 6f 73 29 20 28 65 74 61 67 73 2d 73 6e 61 72 66 2d | nt.line.&rest.pos).(etags-snarf- |
| 152400 | 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 68 | tag)...............(unless.(eq.h |
| 152420 | 69 6e 74 20 74 29 20 3b 20 68 69 6e 74 3d 3d 74 20 69 66 20 77 65 20 61 72 65 20 69 6e 20 61 20 | int.t).;.hint==t.if.we.are.in.a. |
| 152440 | 66 69 6c 65 6e 61 6d 65 20 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | filename.line.................(p |
| 152460 | 75 73 68 20 60 28 3a 6c 6f 63 61 74 69 6f 6e 20 28 3a 66 69 6c 65 20 2c 28 65 78 70 61 6e 64 2d | ush.`(:location.(:file.,(expand- |
| 152480 | 66 69 6c 65 2d 6e 61 6d 65 20 28 66 69 6c 65 2d 6f 66 2d 74 61 67 29 29 29 0a 20 20 20 20 20 20 | file-name.(file-of-tag)))....... |
| 1524a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 69 | ............................(:li |
| 1524c0 | 6e 65 20 2c 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ne.,line)....................... |
| 1524e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 6e 69 70 70 65 74 20 2c 68 69 6e 74 29 29 0a 20 20 | ............(:snippet.,hint))... |
| 152500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 73 29 29 29 29 29 29 0a 20 | ....................locs)))))).. |
| 152520 | 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 6c 6f 63 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | .....(nreverse.locs))))..(defun. |
| 152540 | 73 6c 69 6d 65 2d 65 74 61 67 73 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 | slime-etags-definitions.(name).. |
| 152560 | 20 22 53 65 61 72 63 68 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 6d 61 74 63 68 69 6e 67 20 4e 41 | ."Search.definitions.matching.NA |
| 152580 | 4d 45 20 69 6e 20 74 68 65 20 74 61 67 73 20 66 69 6c 65 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 | ME.in.the.tags.file..The.result. |
| 1525a0 | 69 73 20 61 20 28 70 6f 73 73 69 62 6c 79 20 65 6d 70 74 79 29 20 6c 69 73 74 20 6f 66 20 64 65 | is.a.(possibly.empty).list.of.de |
| 1525c0 | 66 69 6e 69 74 69 6f 6e 73 2e 22 0a 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 6c | finitions."...(mapcar.(lambda.(l |
| 1525e0 | 6f 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 6c 69 6d 65 2d 78 72 65 66 | oc).............(make-slime-xref |
| 152600 | 20 3a 64 73 70 65 63 20 28 63 6c 2d 73 65 63 6f 6e 64 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 | .:dspec.(cl-second.(slime-locati |
| 152620 | 6f 6e 2e 68 69 6e 74 73 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on.hints.loc)).................. |
| 152640 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 29 29 0a 20 20 20 20 | ............:location.loc))..... |
| 152660 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 74 61 67 73 2d 74 6f 2d 6c 6f 63 61 74 69 6f 6e 73 20 | ......(slime-etags-to-locations. |
| 152680 | 6e 61 6d 65 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 66 69 72 73 74 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b | name)))..;;;;;.first-change-hook |
| 1526a0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b | ..(defun.slime-first-change-hook |
| 1526c0 | 20 28 29 0a 20 20 22 4e 6f 74 69 66 79 20 4c 69 73 70 20 74 68 61 74 20 61 20 73 6f 75 72 63 65 | .()..."Notify.Lisp.that.a.source |
| 1526e0 | 20 66 69 6c 65 27 73 20 62 75 66 66 65 72 20 68 61 73 20 62 65 65 6e 20 6d 6f 64 69 66 69 65 64 | .file's.buffer.has.been.modified |
| 152700 | 2e 22 0a 20 20 3b 3b 20 42 65 20 63 61 72 65 66 75 6c 20 6e 6f 74 20 74 6f 20 64 69 73 74 75 72 | ."...;;.Be.careful.not.to.distur |
| 152720 | 62 20 61 6e 79 74 68 69 6e 67 21 0a 20 20 3b 3b 20 49 6e 20 70 61 72 74 69 63 75 6c 61 72 20 69 | b.anything!...;;.In.particular.i |
| 152740 | 66 20 77 65 20 6d 75 63 6b 20 75 70 20 74 68 65 20 6d 61 74 63 68 2d 64 61 74 61 20 74 68 65 6e | f.we.muck.up.the.match-data.then |
| 152760 | 20 71 75 65 72 79 2d 72 65 70 6c 61 63 65 0a 20 20 3b 3b 20 62 72 65 61 6b 73 2e 20 2d 6c 75 6b | .query-replace...;;.breaks..-luk |
| 152780 | 65 20 28 32 36 2f 4a 75 6c 2f 32 30 30 34 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f | e.(26/Jul/2004)...(save-excursio |
| 1527a0 | 6e 0a 20 20 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 28 77 68 | n.....(save-match-data.......(wh |
| 1527c0 | 65 6e 20 28 61 6e 64 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 | en.(and.(buffer-file-name)...... |
| 1527e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 28 62 75 66 66 | ............(file-exists-p.(buff |
| 152800 | 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er-file-name)).................. |
| 152820 | 28 73 6c 69 6d 65 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 61 63 74 69 76 69 74 69 65 73 2d 65 6e 61 | (slime-background-activities-ena |
| 152840 | 62 6c 65 64 2d 70 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 6e 61 6d 65 | bled-p)).........(let.((filename |
| 152860 | 20 28 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 28 62 75 66 66 65 72 | .(slime-to-lisp-filename.(buffer |
| 152880 | 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | -file-name))))...........(slime- |
| 1528a0 | 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 62 75 66 66 65 72 2d 66 69 72 73 74 2d | eval-async.`(swank:buffer-first- |
| 1528c0 | 63 68 61 6e 67 65 20 2c 66 69 6c 65 6e 61 6d 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | change.,filename)))))))..(defun. |
| 1528e0 | 73 6c 69 6d 65 2d 73 65 74 75 70 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b 20 28 29 | slime-setup-first-change-hook.() |
| 152900 | 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 66 69 72 73 74 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b 20 | ...(add-hook.'first-change-hook. |
| 152920 | 23 27 73 6c 69 6d 65 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b 20 6e 69 6c 20 74 29 | #'slime-first-change-hook.nil.t) |
| 152940 | 29 0a 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 | )..(add-hook.'slime-mode-hook.'s |
| 152960 | 6c 69 6d 65 2d 73 65 74 75 70 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b 29 0a 0a 0c | lime-setup-first-change-hook)... |
| 152980 | 0a 3b 3b 3b 3b 20 45 76 61 6c 20 66 6f 72 20 4c 69 73 70 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | .;;;;.Eval.for.Lisp..(defun.slim |
| 1529a0 | 65 2d 6c 69 73 70 2d 72 65 61 64 61 62 6c 65 2d 70 20 28 78 29 0a 20 20 28 6f 72 20 28 73 74 72 | e-lisp-readable-p.(x)...(or.(str |
| 1529c0 | 69 6e 67 70 20 78 29 0a 20 20 20 20 20 20 28 6d 65 6d 71 20 78 20 27 28 6e 69 6c 20 74 29 29 0a | ingp.x).......(memq.x.'(nil.t)). |
| 1529e0 | 20 20 20 20 20 20 28 69 6e 74 65 67 65 72 70 20 78 29 0a 20 20 20 20 20 20 28 6b 65 79 77 6f 72 | ......(integerp.x).......(keywor |
| 152a00 | 64 70 20 78 29 0a 20 20 20 20 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 78 29 0a 20 20 20 20 20 | dp.x).......(and.(consp.x)...... |
| 152a20 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(let.((l.x)).............. |
| 152a40 | 28 77 68 69 6c 65 20 28 63 6f 6e 73 70 20 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (while.(consp.l)................ |
| 152a60 | 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 72 65 61 64 61 62 6c 65 2d 70 20 28 63 61 72 20 78 29 29 0a | (slime-lisp-readable-p.(car.x)). |
| 152a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 20 28 63 64 72 20 6c 29 29 29 | ...............(setq.l.(cdr.l))) |
| 152aa0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 72 65 61 64 61 62 | ..............(slime-lisp-readab |
| 152ac0 | 6c 65 2d 70 20 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 2d 66 75 6e 63 61 | le-p.l)))))..(defun.slime--funca |
| 152ae0 | 6c 6c 2d 61 6e 64 2d 64 69 73 70 61 74 63 68 2d 72 65 73 75 6c 74 20 28 74 68 72 65 61 64 20 74 | ll-and-dispatch-result.(thread.t |
| 152b00 | 61 67 20 66 6e 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 6c 65 74 20 28 28 6f 6b 20 6e 69 | ag.fn.&rest.args)...(let.((ok.ni |
| 152b20 | 6c 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 | l).........(value.nil).........( |
| 152b40 | 65 72 72 6f 72 20 6e 69 6c 29 29 0a 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a | error.nil)).....(unwind-protect. |
| 152b60 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 65 72 72 0a 20 20 20 20 | ........(condition-case.err..... |
| 152b80 | 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | ........(progn...............(se |
| 152ba0 | 74 71 20 76 61 6c 75 65 20 28 61 70 70 6c 79 20 66 6e 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 | tq.value.(apply.fn.args))....... |
| 152bc0 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6f 6b 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | ........(setq.ok.t))...........( |
| 152be0 | 28 64 65 62 75 67 20 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 | (debug.error)............(setq.e |
| 152c00 | 72 72 6f 72 20 65 72 72 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 | rror.err))).......(let.((result. |
| 152c20 | 28 63 6f 6e 64 20 28 28 61 6e 64 20 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (cond.((and.ok.................. |
| 152c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d | ...............(not.(slime-lisp- |
| 152c60 | 72 65 61 64 61 62 6c 65 2d 70 20 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | readable-p.value)))............. |
| 152c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 75 6e 72 65 61 64 61 62 6c 65 20 2c 28 73 | ...............`(:unreadable.,(s |
| 152ca0 | 6c 69 6d 65 2d 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 76 61 6c 75 65 29 29 29 0a 20 20 | lime-prin1-to-string.value)))... |
| 152cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 6b 20 60 28 3a 6f | ........................(ok.`(:o |
| 152ce0 | 6b 20 2c 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | k.,value))...................... |
| 152d00 | 20 20 20 20 20 28 65 72 72 6f 72 20 60 28 3a 65 72 72 6f 72 20 2c 28 73 79 6d 62 6f 6c 2d 6e 61 | .....(error.`(:error.,(symbol-na |
| 152d20 | 6d 65 20 28 63 61 72 20 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me.(car.error))................. |
| 152d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 2c 28 6d 61 | ............................,(ma |
| 152d60 | 70 63 61 72 20 23 27 73 6c 69 6d 65 2d 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 | pcar.#'slime-prin1-to-string.... |
| 152d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 152da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 65 72 72 6f 72 29 29 29 29 | ..................(cdr.error)))) |
| 152dc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 60 28 | ...........................(t.`( |
| 152de0 | 3a 61 62 6f 72 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 69 73 70 61 | :abort))))).........(slime-dispa |
| 152e00 | 74 63 68 2d 65 76 65 6e 74 20 60 28 3a 65 6d 61 63 73 2d 72 65 74 75 72 6e 20 2c 74 68 72 65 61 | tch-event.`(:emacs-return.,threa |
| 152e20 | 64 20 2c 74 61 67 20 2c 72 65 73 75 6c 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | d.,tag.,result))))))..(defun.sli |
| 152e40 | 6d 65 2d 65 76 61 6c 2d 66 6f 72 2d 6c 69 73 70 20 28 74 68 72 65 61 64 20 74 61 67 20 66 6f 72 | me-eval-for-lisp.(thread.tag.for |
| 152e60 | 6d 2d 73 74 72 69 6e 67 29 0a 20 20 28 73 6c 69 6d 65 2d 2d 66 75 6e 63 61 6c 6c 2d 61 6e 64 2d | m-string)...(slime--funcall-and- |
| 152e80 | 64 69 73 70 61 74 63 68 2d 72 65 73 75 6c 74 20 74 68 72 65 61 64 20 74 61 67 0a 20 20 20 20 20 | dispatch-result.thread.tag...... |
| 152ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 152ec0 | 20 28 6c 61 6d 62 64 61 20 28 73 29 20 28 65 76 61 6c 20 28 72 65 61 64 20 73 29 29 29 0a 20 20 | .(lambda.(s).(eval.(read.s)))... |
| 152ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 152f00 | 20 20 20 20 66 6f 72 6d 2d 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | ....form-string))..(defun.slime- |
| 152f20 | 63 68 65 63 6b 2d 65 76 61 6c 2d 69 6e 2d 65 6d 61 63 73 2d 65 6e 61 62 6c 65 64 20 28 29 0a 20 | check-eval-in-emacs-enabled.().. |
| 152f40 | 20 22 52 61 69 73 65 20 61 6e 20 65 72 72 6f 72 20 69 66 20 60 73 6c 69 6d 65 2d 65 6e 61 62 6c | ."Raise.an.error.if.`slime-enabl |
| 152f60 | 65 2d 65 76 61 6c 75 61 74 65 2d 69 6e 2d 65 6d 61 63 73 27 20 69 73 6e 27 74 20 74 72 75 65 2e | e-evaluate-in-emacs'.isn't.true. |
| 152f80 | 22 0a 20 20 28 75 6e 6c 65 73 73 20 73 6c 69 6d 65 2d 65 6e 61 62 6c 65 2d 65 76 61 6c 75 61 74 | "...(unless.slime-enable-evaluat |
| 152fa0 | 65 2d 69 6e 2d 65 6d 61 63 73 0a 20 20 20 20 28 65 72 72 6f 72 20 28 63 6f 6e 63 61 74 20 22 73 | e-in-emacs.....(error.(concat."s |
| 152fc0 | 6c 69 6d 65 2d 65 76 61 6c 2d 69 6e 2d 65 6d 61 63 73 20 64 69 73 61 62 6c 65 64 20 66 6f 72 20 | lime-eval-in-emacs.disabled.for. |
| 152fe0 | 73 65 63 75 72 69 74 79 2e 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | security.."...................." |
| 153000 | 53 65 74 20 60 73 6c 69 6d 65 2d 65 6e 61 62 6c 65 2d 65 76 61 6c 75 61 74 65 2d 69 6e 2d 65 6d | Set.`slime-enable-evaluate-in-em |
| 153020 | 61 63 73 27 20 74 72 75 65 20 74 6f 20 65 6e 61 62 6c 65 20 69 74 2e 22 29 29 29 29 0a 0a 0c 0a | acs'.true.to.enable.it.")))).... |
| 153040 | 3b 3b 3b 3b 20 52 50 43 20 66 72 6f 6d 20 4c 69 73 70 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 | ;;;;.RPC.from.Lisp..(defmacro.de |
| 153060 | 66 73 6c 69 6d 65 66 75 6e 20 28 6e 61 6d 65 20 61 72 67 6c 69 73 74 20 26 72 65 73 74 20 62 6f | fslimefun.(name.arglist.&rest.bo |
| 153080 | 64 79 29 0a 20 20 22 44 65 66 69 6e 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 76 69 61 20 60 63 6c | dy)..."Define.a.function.via.`cl |
| 1530a0 | 2d 64 65 66 75 6e 27 20 74 68 61 74 20 63 61 6e 20 62 65 20 69 6e 76 6f 6b 65 64 20 66 72 6f 6d | -defun'.that.can.be.invoked.from |
| 1530c0 | 20 53 57 41 4e 4b 2e 22 0a 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 28 70 75 74 20 27 2c 6e | .SWANK."...`(progn......(put.',n |
| 1530e0 | 61 6d 65 20 27 73 6c 69 6d 65 2d 72 70 63 20 74 29 0a 20 20 20 20 20 28 63 6c 2d 64 65 66 75 6e | ame.'slime-rpc.t)......(cl-defun |
| 153100 | 20 2c 6e 61 6d 65 20 2c 61 72 67 6c 69 73 74 20 2c 40 62 6f 64 79 29 29 29 0a 0a 28 64 65 66 75 | .,name.,arglist.,@body)))..(defu |
| 153120 | 6e 20 73 6c 69 6d 65 2d 72 70 63 2d 61 6c 6c 6f 77 65 64 2d 70 20 28 66 6e 29 0a 20 20 28 67 65 | n.slime-rpc-allowed-p.(fn)...(ge |
| 153140 | 74 20 66 6e 20 27 73 6c 69 6d 65 2d 72 70 63 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | t.fn.'slime-rpc))..(defun.slime- |
| 153160 | 63 68 65 63 6b 2d 72 70 63 2d 61 6c 6c 6f 77 65 64 20 28 66 6e 29 0a 20 20 22 52 61 69 73 65 20 | check-rpc-allowed.(fn)..."Raise. |
| 153180 | 61 6e 20 65 72 72 6f 72 20 69 66 20 46 4e 20 64 6f 65 73 20 6e 6f 74 20 64 65 6e 6f 74 65 20 61 | an.error.if.FN.does.not.denote.a |
| 1531a0 | 20 66 75 6e 63 74 69 6f 6e 20 64 65 66 69 6e 65 64 20 76 69 61 0a 60 64 65 66 73 6c 69 6d 65 66 | .function.defined.via.`defslimef |
| 1531c0 | 75 6e 27 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 73 6c 69 6d 65 2d 72 70 63 2d 61 6c 6c 6f 77 | un'."...(unless.(slime-rpc-allow |
| 1531e0 | 65 64 2d 70 20 66 6e 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 4c 69 73 70 20 74 72 69 65 64 20 | ed-p.fn).....(error."Lisp.tried. |
| 153200 | 74 6f 20 52 50 43 20 60 25 73 27 2c 20 62 75 74 20 69 74 20 77 61 73 6e 27 74 20 64 65 66 69 6e | to.RPC.`%s',.but.it.wasn't.defin |
| 153220 | 65 64 20 76 69 61 20 60 64 65 66 73 6c 69 6d 65 66 75 6e 27 2e 22 0a 20 20 20 20 20 20 20 20 20 | ed.via.`defslimefun'.".......... |
| 153240 | 20 20 66 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 70 63 2d 66 72 6f 6d 2d 6c | ..fn)))..(defun.slime-rpc-from-l |
| 153260 | 69 73 70 20 28 74 68 72 65 61 64 20 74 61 67 20 66 6e 20 61 72 67 73 29 0a 20 20 28 69 66 20 28 | isp.(thread.tag.fn.args)...(if.( |
| 153280 | 6e 6f 74 20 28 73 6c 69 6d 65 2d 72 70 63 2d 61 6c 6c 6f 77 65 64 2d 70 20 66 6e 29 29 0a 20 20 | not.(slime-rpc-allowed-p.fn))... |
| 1532a0 | 20 20 20 20 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 27 28 3a 65 64 2d | ....(slime-dispatch-event.'(:ed- |
| 1532c0 | 72 70 63 2d 66 6f 72 62 69 64 64 65 6e 20 2c 74 68 72 65 61 64 20 2c 74 61 67 20 2c 66 6e 29 29 | rpc-forbidden.,thread.,tag.,fn)) |
| 1532e0 | 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 6c 69 6d 65 2d 2d 66 75 6e 63 61 6c 6c 2d 61 6e 64 | .....(apply.#'slime--funcall-and |
| 153300 | 2d 64 69 73 70 61 74 63 68 2d 72 65 73 75 6c 74 20 74 68 72 65 61 64 20 74 61 67 20 66 6e 20 61 | -dispatch-result.thread.tag.fn.a |
| 153320 | 72 67 73 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 60 45 44 27 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 | rgs)))....;;;;.`ED'..(defvar.sli |
| 153340 | 6d 65 2d 65 64 2d 66 72 61 6d 65 20 6e 69 6c 0a 20 20 22 54 68 65 20 66 72 61 6d 65 20 75 73 65 | me-ed-frame.nil..."The.frame.use |
| 153360 | 64 20 62 79 20 60 73 6c 69 6d 65 2d 65 64 27 2e 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 | d.by.`slime-ed'.")..(defcustom.s |
| 153380 | 6c 69 6d 65 2d 65 64 2d 75 73 65 2d 64 65 64 69 63 61 74 65 64 2d 66 72 61 6d 65 20 74 0a 20 20 | lime-ed-use-dedicated-frame.t... |
| 1533a0 | 22 2a 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 60 73 6c 69 6d 65 2d 65 64 27 20 77 69 6c 6c 20 | "*When.non-nil,.`slime-ed'.will. |
| 1533c0 | 63 72 65 61 74 65 20 61 6e 64 20 72 65 75 73 65 20 61 20 64 65 64 69 63 61 74 65 64 20 66 72 61 | create.and.reuse.a.dedicated.fra |
| 1533e0 | 6d 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 | me."...:type.'boolean...:group.' |
| 153400 | 73 6c 69 6d 65 2d 6d 6f 64 65 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 64 20 28 77 68 | slime-mode)..(defun.slime-ed.(wh |
| 153420 | 61 74 29 0a 20 20 22 45 64 69 74 20 57 48 41 54 2e 0a 0a 57 48 41 54 20 63 61 6e 20 62 65 3a 0a | at)..."Edit.WHAT...WHAT.can.be:. |
| 153440 | 20 20 41 20 66 69 6c 65 6e 61 6d 65 20 28 73 74 72 69 6e 67 29 2c 0a 20 20 41 20 6c 69 73 74 20 | ..A.filename.(string),...A.list. |
| 153460 | 28 3a 66 69 6c 65 6e 61 6d 65 20 46 49 4c 45 4e 41 4d 45 20 26 6b 65 79 20 4c 49 4e 45 20 43 4f | (:filename.FILENAME.&key.LINE.CO |
| 153480 | 4c 55 4d 4e 20 50 4f 53 49 54 49 4f 4e 29 2c 0a 20 20 41 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d | LUMN.POSITION),...A.function.nam |
| 1534a0 | 65 20 28 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 53 54 52 49 4e 47 29 0a 20 20 6e 69 6c 2e | e.(:function-name.STRING)...nil. |
| 1534c0 | 0a 0a 54 68 69 73 20 69 73 20 66 6f 72 20 75 73 65 20 69 6e 20 74 68 65 20 69 6d 70 6c 65 6d 65 | ..This.is.for.use.in.the.impleme |
| 1534e0 | 6e 74 61 74 69 6f 6e 20 6f 66 20 43 4f 4d 4d 4f 4e 2d 4c 49 53 50 3a 45 44 2e 22 0a 20 20 28 77 | ntation.of.COMMON-LISP:ED."...(w |
| 153500 | 68 65 6e 20 73 6c 69 6d 65 2d 65 64 2d 75 73 65 2d 64 65 64 69 63 61 74 65 64 2d 66 72 61 6d 65 | hen.slime-ed-use-dedicated-frame |
| 153520 | 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 73 6c 69 6d 65 2d 65 64 2d 66 72 61 6d 65 | .....(unless.(and.slime-ed-frame |
| 153540 | 20 28 66 72 61 6d 65 2d 6c 69 76 65 2d 70 20 73 6c 69 6d 65 2d 65 64 2d 66 72 61 6d 65 29 29 0a | .(frame-live-p.slime-ed-frame)). |
| 153560 | 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 65 64 2d 66 72 61 6d 65 20 28 6d 61 6b 65 | ......(setq.slime-ed-frame.(make |
| 153580 | 2d 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 73 65 6c 65 63 74 2d 66 72 61 6d 65 20 73 6c 69 6d | -frame))).....(select-frame.slim |
| 1535a0 | 65 2d 65 64 2d 66 72 61 6d 65 29 29 0a 20 20 28 77 68 65 6e 20 77 68 61 74 0a 20 20 20 20 28 73 | e-ed-frame))...(when.what.....(s |
| 1535c0 | 6c 69 6d 65 2d 64 63 61 73 65 20 77 68 61 74 0a 20 20 20 20 20 20 28 28 3a 66 69 6c 65 6e 61 6d | lime-dcase.what.......((:filenam |
| 1535e0 | 65 20 66 69 6c 65 20 26 6b 65 79 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 73 69 74 69 6f 6e | e.file.&key.line.column.position |
| 153600 | 20 62 79 74 65 70 29 0a 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 28 73 6c 69 6d 65 | .bytep)........(find-file.(slime |
| 153620 | 2d 66 72 6f 6d 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 | -from-lisp-filename.file))...... |
| 153640 | 20 20 28 77 68 65 6e 20 6c 69 6e 65 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6c 69 6e 65 20 6c 69 | ..(when.line.(slime-goto-line.li |
| 153660 | 6e 65 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 6f 6c 75 6d 6e 20 28 6d 6f 76 65 2d 74 | ne))........(when.column.(move-t |
| 153680 | 6f 2d 63 6f 6c 75 6d 6e 20 63 6f 6c 75 6d 6e 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 | o-column.column))........(when.p |
| 1536a0 | 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 69 66 20 | osition..........(goto-char.(if. |
| 1536c0 | 62 79 74 65 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 | bytep.........................(b |
| 1536e0 | 79 74 65 2d 74 6f 2d 70 6f 73 69 74 69 6f 6e 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 | yte-to-position.position)....... |
| 153700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 29 29 29 29 0a 20 20 20 | ................position)))).... |
| 153720 | 20 20 20 28 28 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 | ...((:function-name.name)....... |
| 153740 | 20 28 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 29 29 29 | .(slime-edit-definition.name)))) |
| 153760 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6c 69 6e 65 20 28 6c 69 6e 65 2d | )..(defun.slime-goto-line.(line- |
| 153780 | 6e 75 6d 62 65 72 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 6c 69 6e 65 20 4c 49 4e 45 2d 4e 55 4d | number)..."Move.to.line.LINE-NUM |
| 1537a0 | 42 45 52 20 28 31 2d 62 61 73 65 64 29 2e 0a 54 68 69 73 20 69 73 20 73 69 6d 69 6c 61 72 20 74 | BER.(1-based)..This.is.similar.t |
| 1537c0 | 6f 20 60 67 6f 74 6f 2d 6c 69 6e 65 27 20 62 75 74 20 77 69 74 68 6f 75 74 20 70 75 73 68 69 6e | o.`goto-line'.but.without.pushin |
| 1537e0 | 67 20 74 68 65 20 6d 61 72 6b 20 61 6e 64 0a 74 68 65 20 64 69 73 70 6c 61 79 20 73 74 75 66 66 | g.the.mark.and.the.display.stuff |
| 153800 | 20 74 68 61 74 20 77 65 20 6e 65 69 74 68 65 72 20 6e 65 65 64 20 6e 6f 72 20 77 61 6e 74 2e 22 | .that.we.neither.need.nor.want." |
| 153820 | 0a 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 3d 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 20 28 | ...(cl-assert.(=.(buffer-size).( |
| 153840 | 2d 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 20 28 29 0a 20 | -.(point-max).(point-min))).().. |
| 153860 | 20 20 20 20 20 20 20 20 20 20 20 20 22 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6c 69 6e 65 20 69 6e 20 | ............"slime-goto-line.in. |
| 153880 | 6e 61 72 72 6f 77 65 64 20 62 75 66 66 65 72 22 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | narrowed.buffer")...(goto-char.( |
| 1538a0 | 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 28 31 2d 20 | point-min))...(forward-line.(1-. |
| 1538c0 | 6c 69 6e 65 2d 6e 75 6d 62 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 79 2d 6f | line-number)))..(defun.slime-y-o |
| 1538e0 | 72 2d 6e 2d 70 20 28 74 68 72 65 61 64 20 74 61 67 20 71 75 65 73 74 69 6f 6e 29 0a 20 20 28 73 | r-n-p.(thread.tag.question)...(s |
| 153900 | 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 60 28 3a 65 6d 61 63 73 2d 72 65 74 | lime-dispatch-event.`(:emacs-ret |
| 153920 | 75 72 6e 20 2c 74 68 72 65 61 64 20 2c 74 61 67 20 2c 28 79 2d 6f 72 2d 6e 2d 70 20 71 75 65 73 | urn.,thread.,tag.,(y-or-n-p.ques |
| 153940 | 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d | tion))))..(defun.slime-read-from |
| 153960 | 2d 6d 69 6e 69 62 75 66 66 65 72 2d 66 6f 72 2d 73 77 61 6e 6b 20 28 74 68 72 65 61 64 20 74 61 | -minibuffer-for-swank.(thread.ta |
| 153980 | 67 20 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 29 0a 20 20 28 6c 65 74 20 28 | g.prompt.initial-value)...(let.( |
| 1539a0 | 28 61 6e 73 77 65 72 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 | (answer.(condition-case.nil..... |
| 1539c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d | ................(slime-read-from |
| 1539e0 | 2d 6d 69 6e 69 62 75 66 66 65 72 20 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 | -minibuffer.prompt.initial-value |
| 153a00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 71 75 69 74 20 6e 69 6c 29 29 29 | )...................(quit.nil))) |
| 153a20 | 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 60 28 3a 65 | ).....(slime-dispatch-event.`(:e |
| 153a40 | 6d 61 63 73 2d 72 65 74 75 72 6e 20 2c 74 68 72 65 61 64 20 2c 74 61 67 20 2c 61 6e 73 77 65 72 | macs-return.,thread.,tag.,answer |
| 153a60 | 29 29 29 29 0a 0c 0a 3b 3b 3b 3b 20 49 6e 74 65 72 61 63 74 69 76 65 20 65 76 61 6c 75 61 74 69 | ))))...;;;;.Interactive.evaluati |
| 153a80 | 6f 6e 2e 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 | on...(defun.slime-interactive-ev |
| 153aa0 | 61 6c 20 28 73 74 72 69 6e 67 29 0a 20 20 22 52 65 61 64 20 61 6e 64 20 65 76 61 6c 75 61 74 65 | al.(string)..."Read.and.evaluate |
| 153ac0 | 20 53 54 52 49 4e 47 20 61 6e 64 20 70 72 69 6e 74 20 76 61 6c 75 65 20 69 6e 20 6d 69 6e 69 62 | .STRING.and.print.value.in.minib |
| 153ae0 | 75 66 66 65 72 2e 0a 0a 4e 6f 74 65 3a 20 49 66 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 | uffer...Note:.If.a.prefix.argume |
| 153b00 | 6e 74 20 69 73 20 69 6e 20 65 66 66 65 63 74 20 74 68 65 6e 20 74 68 65 20 72 65 73 75 6c 74 20 | nt.is.in.effect.then.the.result. |
| 153b20 | 77 69 6c 6c 20 62 65 0a 69 6e 73 65 72 74 65 64 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 | will.be.inserted.in.the.current. |
| 153b40 | 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 | buffer."...(interactive.(list.(s |
| 153b60 | 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 53 6c 69 6d 65 | lime-read-from-minibuffer."Slime |
| 153b80 | 20 45 76 61 6c 3a 20 22 29 29 29 0a 20 20 28 63 6c 2d 63 61 73 65 20 63 75 72 72 65 6e 74 2d 70 | .Eval:.")))...(cl-case.current-p |
| 153ba0 | 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 28 28 6e 69 6c 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 | refix-arg.....((nil)......(slime |
| 153bc0 | 2d 65 76 61 6c 2d 77 69 74 68 2d 74 72 61 6e 73 63 72 69 70 74 20 60 28 73 77 61 6e 6b 3a 69 6e | -eval-with-transcript.`(swank:in |
| 153be0 | 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 20 2c 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 28 | teractive-eval.,string))).....(( |
| 153c00 | 2d 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 73 61 76 65 20 73 74 72 69 6e 67 29 | -)......(slime-eval-save.string) |
| 153c20 | 29 0a 20 20 20 20 28 74 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 70 72 69 6e 74 20 | ).....(t......(slime-eval-print. |
| 153c40 | 73 74 72 69 6e 67 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 72 61 6e 73 63 | string))))..(defvar.slime-transc |
| 153c60 | 72 69 70 74 2d 73 74 61 72 74 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 48 6f 6f 6b 20 72 75 6e 20 | ript-start-hook.nil..."Hook.run. |
| 153c80 | 62 65 66 6f 72 65 20 73 74 61 72 74 20 61 6e 20 65 76 61 6c 75 74 69 6f 6e 2e 22 29 0a 28 64 65 | before.start.an.evalution.").(de |
| 153ca0 | 66 76 61 72 20 73 6c 69 6d 65 2d 74 72 61 6e 73 63 72 69 70 74 2d 73 74 6f 70 2d 68 6f 6f 6b 20 | fvar.slime-transcript-stop-hook. |
| 153cc0 | 6e 69 6c 0a 20 20 22 48 6f 6f 6b 20 72 75 6e 20 61 66 74 65 72 20 66 69 6e 69 73 68 69 6e 67 20 | nil..."Hook.run.after.finishing. |
| 153ce0 | 61 20 65 76 61 6c 75 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 69 73 | a.evalution.")..(defun.slime-dis |
| 153d00 | 70 6c 61 79 2d 65 76 61 6c 2d 72 65 73 75 6c 74 20 28 76 61 6c 75 65 29 0a 20 20 28 73 6c 69 6d | play-eval-result.(value)...(slim |
| 153d20 | 65 2d 6d 65 73 73 61 67 65 20 22 25 73 22 20 76 61 6c 75 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 | e-message."%s".value))..(defun.s |
| 153d40 | 6c 69 6d 65 2d 65 76 61 6c 2d 77 69 74 68 2d 74 72 61 6e 73 63 72 69 70 74 20 28 66 6f 72 6d 29 | lime-eval-with-transcript.(form) |
| 153d60 | 0a 20 20 22 45 76 61 6c 20 46 4f 52 4d 20 69 6e 20 4c 69 73 70 2e 20 20 44 69 73 70 6c 61 79 20 | ..."Eval.FORM.in.Lisp...Display. |
| 153d80 | 6f 75 74 70 75 74 2c 20 69 66 20 61 6e 79 2e 22 0a 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 73 | output,.if.any."...(run-hooks.'s |
| 153da0 | 6c 69 6d 65 2d 74 72 61 6e 73 63 72 69 70 74 2d 73 74 61 72 74 2d 68 6f 6f 6b 29 0a 20 20 28 73 | lime-transcript-start-hook)...(s |
| 153dc0 | 6c 69 6d 65 2d 72 65 78 20 28 29 20 28 66 6f 72 6d 29 0a 20 20 20 20 28 28 3a 6f 6b 20 76 61 6c | lime-rex.().(form).....((:ok.val |
| 153de0 | 75 65 29 0a 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 74 72 61 6e 73 | ue)......(run-hooks.'slime-trans |
| 153e00 | 63 72 69 70 74 2d 73 74 6f 70 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 69 73 | cript-stop-hook)......(slime-dis |
| 153e20 | 70 6c 61 79 2d 65 76 61 6c 2d 72 65 73 75 6c 74 20 76 61 6c 75 65 29 29 0a 20 20 20 20 28 28 3a | play-eval-result.value)).....((: |
| 153e40 | 61 62 6f 72 74 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 | abort.condition)......(run-hooks |
| 153e60 | 20 27 73 6c 69 6d 65 2d 74 72 61 6e 73 63 72 69 70 74 2d 73 74 6f 70 2d 68 6f 6f 6b 29 0a 20 20 | .'slime-transcript-stop-hook)... |
| 153e80 | 20 20 20 28 6d 65 73 73 61 67 65 20 22 45 76 61 6c 75 61 74 69 6f 6e 20 61 62 6f 72 74 65 64 20 | ...(message."Evaluation.aborted. |
| 153ea0 | 6f 6e 20 25 73 2e 22 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | on.%s.".condition))))..(defun.sl |
| 153ec0 | 69 6d 65 2d 65 76 61 6c 2d 70 72 69 6e 74 20 28 73 74 72 69 6e 67 29 0a 20 20 22 45 76 61 6c 20 | ime-eval-print.(string)..."Eval. |
| 153ee0 | 53 54 52 49 4e 47 20 69 6e 20 4c 69 73 70 3b 20 69 6e 73 65 72 74 20 61 6e 79 20 6f 75 74 70 75 | STRING.in.Lisp;.insert.any.outpu |
| 153f00 | 74 20 61 6e 64 20 74 68 65 20 72 65 73 75 6c 74 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 73 | t.and.the.result.at.point."...(s |
| 153f20 | 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 65 76 61 6c 2d 61 6e 64 | lime-eval-async.`(swank:eval-and |
| 153f40 | 2d 67 72 61 62 2d 6f 75 74 70 75 74 20 2c 73 74 72 69 6e 67 29 0a 20 20 20 20 28 6c 61 6d 62 64 | -grab-output.,string).....(lambd |
| 153f60 | 61 20 28 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 | a.(result).......(cl-destructuri |
| 153f80 | 6e 67 2d 62 69 6e 64 20 28 6f 75 74 70 75 74 20 76 61 6c 75 65 29 20 72 65 73 75 6c 74 0a 20 20 | ng-bind.(output.value).result... |
| 153fa0 | 20 20 20 20 20 20 28 70 75 73 68 2d 6d 61 72 6b 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 | ......(push-mark).........(inser |
| 153fc0 | 74 20 6f 75 74 70 75 74 20 76 61 6c 75 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | t.output.value)))))..(defun.slim |
| 153fe0 | 65 2d 65 76 61 6c 2d 73 61 76 65 20 28 73 74 72 69 6e 67 29 0a 20 20 22 45 76 61 6c 75 61 74 65 | e-eval-save.(string)..."Evaluate |
| 154000 | 20 53 54 52 49 4e 47 20 69 6e 20 4c 69 73 70 20 61 6e 64 20 73 61 76 65 20 74 68 65 20 72 65 73 | .STRING.in.Lisp.and.save.the.res |
| 154020 | 75 6c 74 20 69 6e 20 74 68 65 20 6b 69 6c 6c 20 72 69 6e 67 2e 22 0a 20 20 28 73 6c 69 6d 65 2d | ult.in.the.kill.ring."...(slime- |
| 154040 | 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 65 76 61 6c 2d 61 6e 64 2d 67 72 61 62 | eval-async.`(swank:eval-and-grab |
| 154060 | 2d 6f 75 74 70 75 74 20 2c 73 74 72 69 6e 67 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 65 | -output.,string).....(lambda.(re |
| 154080 | 73 75 6c 74 29 0a 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 | sult).......(cl-destructuring-bi |
| 1540a0 | 6e 64 20 28 6f 75 74 70 75 74 20 76 61 6c 75 65 29 20 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 | nd.(output.value).result........ |
| 1540c0 | 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 20 28 63 6f 6e 63 61 74 20 6f 75 74 70 75 74 20 76 61 | .(let.((string.(concat.output.va |
| 1540e0 | 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 6e 65 77 20 73 74 72 69 6e | lue)))...........(kill-new.strin |
| 154100 | 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 45 76 61 6c 75 61 74 69 6f | g)...........(message."Evaluatio |
| 154120 | 6e 20 66 69 6e 69 73 68 65 64 3b 20 70 75 73 68 65 64 20 72 65 73 75 6c 74 20 74 6f 20 6b 69 6c | n.finished;.pushed.result.to.kil |
| 154140 | 6c 20 72 69 6e 67 2e 22 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 76 61 | l.ring."))))))..(defun.slime-eva |
| 154160 | 6c 2d 64 65 73 63 72 69 62 65 20 28 66 6f 72 6d 29 0a 20 20 22 45 76 61 6c 75 61 74 65 20 46 4f | l-describe.(form)..."Evaluate.FO |
| 154180 | 52 4d 20 69 6e 20 4c 69 73 70 20 61 6e 64 20 64 69 73 70 6c 61 79 20 74 68 65 20 72 65 73 75 6c | RM.in.Lisp.and.display.the.resul |
| 1541a0 | 74 20 69 6e 20 61 20 6e 65 77 20 62 75 66 66 65 72 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 | t.in.a.new.buffer."...(slime-eva |
| 1541c0 | 6c 2d 61 73 79 6e 63 20 66 6f 72 6d 20 28 73 6c 69 6d 65 2d 72 63 75 72 72 79 20 23 27 73 6c 69 | l-async.form.(slime-rcurry.#'sli |
| 1541e0 | 6d 65 2d 73 68 6f 77 2d 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | me-show-description............. |
| 154200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | ...........................(slim |
| 154220 | 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 | e-current-package))))..(defvar.s |
| 154240 | 6c 69 6d 65 2d 64 65 73 63 72 69 70 74 69 6f 6e 2d 61 75 74 6f 66 6f 63 75 73 20 6e 69 6c 0a 20 | lime-description-autofocus.nil.. |
| 154260 | 20 22 49 66 20 6e 6f 6e 2d 6e 69 6c 20 73 65 6c 65 63 74 20 64 65 73 63 72 69 70 74 69 6f 6e 20 | ."If.non-nil.select.description. |
| 154280 | 77 69 6e 64 6f 77 73 20 6f 6e 20 64 69 73 70 6c 61 79 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c | windows.on.display.")..(defun.sl |
| 1542a0 | 69 6d 65 2d 73 68 6f 77 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 28 73 74 72 69 6e 67 20 70 61 63 | ime-show-description.(string.pac |
| 1542c0 | 6b 61 67 65 29 0a 20 20 3b 3b 20 53 6f 20 77 65 20 63 61 6e 20 68 61 76 65 20 6f 6e 65 20 64 65 | kage)...;;.So.we.can.have.one.de |
| 1542e0 | 73 63 72 69 70 74 69 6f 6e 20 62 75 66 66 65 72 20 6f 70 65 6e 20 70 65 72 20 63 6f 6e 6e 65 63 | scription.buffer.open.per.connec |
| 154300 | 74 69 6f 6e 2e 20 55 73 65 66 75 6c 0a 20 20 3b 3b 20 66 6f 72 20 63 6f 6d 70 61 72 69 6e 67 20 | tion..Useful...;;.for.comparing. |
| 154320 | 74 68 65 20 6f 75 74 70 75 74 20 6f 66 20 44 49 53 41 53 53 45 4d 42 4c 45 20 61 63 72 6f 73 73 | the.output.of.DISASSEMBLE.across |
| 154340 | 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 0a 20 20 3b 3b 20 46 49 58 4d 45 3a 20 63 6f | .implementations....;;.FIXME:.co |
| 154360 | 75 6c 64 20 65 61 73 69 6c 79 20 62 65 20 61 63 68 69 65 76 65 64 20 77 69 74 68 20 4d 2d 78 20 | uld.easily.be.achieved.with.M-x. |
| 154380 | 72 65 6e 61 6d 65 2d 62 75 66 66 65 72 0a 20 20 28 6c 65 74 20 28 28 62 75 66 6e 61 6d 65 20 28 | rename-buffer...(let.((bufname.( |
| 1543a0 | 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 29 29 | slime-buffer-name.:description)) |
| 1543c0 | 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 | ).....(slime-with-popup-buffer.( |
| 1543e0 | 62 75 66 6e 61 6d 65 20 3a 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 | bufname.:package.package........ |
| 154400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ...............................: |
| 154420 | 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | connection.t.................... |
| 154440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 65 6c 65 63 74 20 73 6c 69 6d 65 | ...................:select.slime |
| 154460 | 2d 64 65 73 63 72 69 70 74 69 6f 6e 2d 61 75 74 6f 66 6f 63 75 73 29 0a 20 20 20 20 20 20 28 70 | -description-autofocus).......(p |
| 154480 | 72 69 6e 63 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 | rinc.string).......(goto-char.(p |
| 1544a0 | 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c 61 73 74 | oint-min)))))..(defun.slime-last |
| 1544c0 | 2d 65 78 70 72 65 73 73 69 6f 6e 20 28 29 0a 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 | -expression.()...(buffer-substri |
| 1544e0 | 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 | ng-no-properties....(save-excurs |
| 154500 | 69 6f 6e 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 | ion.(backward-sexp).(point)).... |
| 154520 | 28 70 6f 69 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 | (point)))..(defun.slime-eval-las |
| 154540 | 74 2d 65 78 70 72 65 73 73 69 6f 6e 20 28 29 0a 20 20 22 45 76 61 6c 75 61 74 65 20 74 68 65 20 | t-expression.()..."Evaluate.the. |
| 154560 | 65 78 70 72 65 73 73 69 6f 6e 20 70 72 65 63 65 64 69 6e 67 20 70 6f 69 6e 74 2e 22 0a 20 20 28 | expression.preceding.point."...( |
| 154580 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 | interactive)...(slime-interactiv |
| 1545a0 | 65 2d 65 76 61 6c 20 28 73 6c 69 6d 65 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 29 29 29 | e-eval.(slime-last-expression))) |
| 1545c0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 66 75 6e 20 28 29 0a 20 20 22 | ..(defun.slime-eval-defun.()..." |
| 1545e0 | 45 76 61 6c 75 61 74 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 6f 70 6c 65 76 65 6c 20 66 6f | Evaluate.the.current.toplevel.fo |
| 154600 | 72 6d 2e 0a 55 73 65 20 60 73 6c 69 6d 65 2d 72 65 2d 65 76 61 6c 75 61 74 65 2d 64 65 66 76 61 | rm..Use.`slime-re-evaluate-defva |
| 154620 | 72 27 20 69 66 20 74 68 65 20 66 72 6f 6d 20 73 74 61 72 74 73 20 77 69 74 68 20 27 28 64 65 66 | r'.if.the.from.starts.with.'(def |
| 154640 | 76 61 72 27 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 66 | var'"...(interactive)...(let.((f |
| 154660 | 6f 72 6d 20 28 73 6c 69 6d 65 2d 64 65 66 75 6e 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 | orm.(slime-defun-at-point))).... |
| 154680 | 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 28 64 65 66 76 61 | .(cond.((string-prefix-p."(defva |
| 1546a0 | 72 20 22 20 66 6f 72 6d 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 | r.".form.t)............(slime-re |
| 1546c0 | 2d 65 76 61 6c 75 61 74 65 2d 64 65 66 76 61 72 20 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 | -evaluate-defvar.form))......... |
| 1546e0 | 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 | ..(t............(slime-interacti |
| 154700 | 76 65 2d 65 76 61 6c 20 66 6f 72 6d 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | ve-eval.form)))))..(defun.slime- |
| 154720 | 65 76 61 6c 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 45 76 61 6c 75 | eval-region.(start.end)..."Evalu |
| 154740 | 61 74 65 20 72 65 67 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29 | ate.region."...(interactive."r") |
| 154760 | 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 77 69 74 68 2d 74 72 61 6e 73 63 72 69 70 74 0a 20 | ...(slime-eval-with-transcript.. |
| 154780 | 20 20 60 28 73 77 61 6e 6b 3a 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 2d 72 65 67 69 6f | ..`(swank:interactive-eval-regio |
| 1547a0 | 6e 0a 20 20 20 20 20 2c 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f | n......,(buffer-substring-no-pro |
| 1547c0 | 70 65 72 74 69 65 73 20 73 74 61 72 74 20 65 6e 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | perties.start.end))))..(defun.sl |
| 1547e0 | 69 6d 65 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e | ime-pprint-eval-region.(start.en |
| 154800 | 64 29 0a 20 20 22 45 76 61 6c 75 61 74 65 20 72 65 67 69 6f 6e 3b 20 70 70 72 69 6e 74 20 74 68 | d)..."Evaluate.region;.pprint.th |
| 154820 | 65 20 76 61 6c 75 65 20 69 6e 20 61 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | e.value.in.a.buffer."...(interac |
| 154840 | 74 69 76 65 20 22 72 22 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 | tive."r")...(slime-eval-describe |
| 154860 | 0a 20 20 20 60 28 73 77 61 6e 6b 3a 70 70 72 69 6e 74 2d 65 76 61 6c 0a 20 20 20 20 20 2c 28 62 | ....`(swank:pprint-eval......,(b |
| 154880 | 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 73 74 | uffer-substring-no-properties.st |
| 1548a0 | 61 72 74 20 65 6e 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 62 | art.end))))..(defun.slime-eval-b |
| 1548c0 | 75 66 66 65 72 20 28 29 0a 20 20 22 45 76 61 6c 75 61 74 65 20 74 68 65 20 63 75 72 72 65 6e 74 | uffer.()..."Evaluate.the.current |
| 1548e0 | 20 62 75 66 66 65 72 2e 0a 54 68 65 20 76 61 6c 75 65 20 69 73 20 70 72 69 6e 74 65 64 20 69 6e | .buffer..The.value.is.printed.in |
| 154900 | 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | .the.echo.area."...(interactive) |
| 154920 | 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e | ...(slime-eval-region.(point-min |
| 154940 | 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 | ).(point-max)))..(defun.slime-re |
| 154960 | 2d 65 76 61 6c 75 61 74 65 2d 64 65 66 76 61 72 20 28 66 6f 72 6d 29 0a 20 20 22 46 6f 72 63 65 | -evaluate-defvar.(form)..."Force |
| 154980 | 20 74 68 65 20 72 65 2d 65 76 61 6c 75 61 74 6f 6e 20 6f 66 20 74 68 65 20 64 65 66 76 61 72 20 | .the.re-evaluaton.of.the.defvar. |
| 1549a0 | 66 6f 72 6d 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 0a 46 69 72 73 74 20 6d 61 6b 65 20 74 | form.before.point...First.make.t |
| 1549c0 | 68 65 20 76 61 72 69 61 62 6c 65 20 75 6e 62 6f 75 6e 64 2c 20 74 68 65 6e 20 65 76 61 6c 75 61 | he.variable.unbound,.then.evalua |
| 1549e0 | 74 65 20 74 68 65 20 65 6e 74 69 72 65 20 66 6f 72 6d 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | te.the.entire.form."...(interact |
| 154a00 | 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e | ive.(list.(slime-last-expression |
| 154a20 | 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 77 69 74 68 2d 74 72 61 6e 73 63 72 69 70 | )))...(slime-eval-with-transcrip |
| 154a40 | 74 20 60 28 73 77 61 6e 6b 3a 72 65 2d 65 76 61 6c 75 61 74 65 2d 64 65 66 76 61 72 20 2c 66 6f | t.`(swank:re-evaluate-defvar.,fo |
| 154a60 | 72 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d | rm)))..(defun.slime-pprint-eval- |
| 154a80 | 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 20 28 29 0a 20 20 22 45 76 61 6c 75 61 74 65 20 74 | last-expression.()..."Evaluate.t |
| 154aa0 | 68 65 20 66 6f 72 6d 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 3b 20 70 70 72 69 6e 74 20 74 68 65 | he.form.before.point;.pprint.the |
| 154ac0 | 20 76 61 6c 75 65 20 69 6e 20 61 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | .value.in.a.buffer."...(interact |
| 154ae0 | 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 20 60 28 73 77 | ive)...(slime-eval-describe.`(sw |
| 154b00 | 61 6e 6b 3a 70 70 72 69 6e 74 2d 65 76 61 6c 20 2c 28 73 6c 69 6d 65 2d 6c 61 73 74 2d 65 78 70 | ank:pprint-eval.,(slime-last-exp |
| 154b20 | 72 65 73 73 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 70 | ression))))..(defun.slime-eval-p |
| 154b40 | 72 69 6e 74 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 20 28 73 74 72 69 6e 67 29 0a 20 20 | rint-last-expression.(string)... |
| 154b60 | 22 45 76 61 6c 75 61 74 65 20 73 65 78 70 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 3b 20 70 72 69 | "Evaluate.sexp.before.point;.pri |
| 154b80 | 6e 74 20 76 61 6c 75 65 20 69 6e 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 | nt.value.into.the.current.buffer |
| 154ba0 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 6c 61 | "...(interactive.(list.(slime-la |
| 154bc0 | 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 29 29 29 0a 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 | st-expression)))...(insert."\n") |
| 154be0 | 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 70 72 69 6e 74 20 73 74 72 69 6e 67 29 29 0a 0a 3b | ...(slime-eval-print.string))..; |
| 154c00 | 3b 3b 3b 20 45 64 69 74 20 4c 69 73 70 20 76 61 6c 75 65 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 73 | ;;;.Edit.Lisp.value.;;;.(defun.s |
| 154c20 | 6c 69 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 20 28 66 6f 72 6d 2d 73 74 72 69 6e 67 29 0a 20 20 | lime-edit-value.(form-string)... |
| 154c40 | 22 5c 5c 3c 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 2d 6d 6f 64 65 2d 6d 61 70 3e 5c 0a | "\\<slime-edit-value-mode-map>\. |
| 154c60 | 45 64 69 74 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61 20 73 65 74 66 27 61 62 6c 65 20 66 6f | Edit.the.value.of.a.setf'able.fo |
| 154c80 | 72 6d 20 69 6e 20 61 20 6e 65 77 20 62 75 66 66 65 72 2e 0a 54 68 65 20 76 61 6c 75 65 20 69 73 | rm.in.a.new.buffer..The.value.is |
| 154ca0 | 20 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 61 20 74 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 | .inserted.into.a.temporary.buffe |
| 154cc0 | 72 20 66 6f 72 20 65 64 69 74 69 6e 67 20 61 6e 64 20 74 68 65 6e 20 73 65 74 0a 69 6e 20 4c 69 | r.for.editing.and.then.set.in.Li |
| 154ce0 | 73 70 20 77 68 65 6e 20 63 6f 6d 6d 69 74 74 65 64 20 77 69 74 68 20 5c 5c 5b 73 6c 69 6d 65 2d | sp.when.committed.with.\\[slime- |
| 154d00 | 65 64 69 74 2d 76 61 6c 75 65 2d 63 6f 6d 6d 69 74 5d 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | edit-value-commit]."...(interact |
| 154d20 | 69 76 65 0a 20 20 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 | ive....(list.(slime-read-from-mi |
| 154d40 | 6e 69 62 75 66 66 65 72 20 22 45 64 69 74 20 76 61 6c 75 65 20 28 65 76 61 6c 75 61 74 65 64 29 | nibuffer."Edit.value.(evaluated) |
| 154d60 | 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :."............................. |
| 154d80 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 29 29 | .........(slime-sexp-at-point))) |
| 154da0 | 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 76 61 | )...(slime-eval-async.`(swank:va |
| 154dc0 | 6c 75 65 2d 66 6f 72 2d 65 64 69 74 69 6e 67 20 2c 66 6f 72 6d 2d 73 74 72 69 6e 67 29 0a 20 20 | lue-for-editing.,form-string)... |
| 154de0 | 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 2d 73 74 72 69 6e 67 20 66 6f 72 6d 2d 73 74 72 69 6e 67 | ..(let.((form-string.form-string |
| 154e00 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 61 67 65 20 28 73 6c 69 6d 65 2d 63 75 72 72 | )...........(package.(slime-curr |
| 154e20 | 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 65 | ent-package))).......(lambda.(re |
| 154e40 | 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 2d | sult).........(slime-edit-value- |
| 154e60 | 63 61 6c 6c 62 61 63 6b 20 66 6f 72 6d 2d 73 74 72 69 6e 67 20 72 65 73 75 6c 74 0a 20 20 20 20 | callback.form-string.result..... |
| 154e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 | ...............................p |
| 154ea0 | 61 63 6b 61 67 65 29 29 29 29 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 | ackage)))))..(make-variable-buff |
| 154ec0 | 65 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 65 64 69 74 2d 66 6f 72 | er-local..(defvar.slime-edit-for |
| 154ee0 | 6d 2d 73 74 72 69 6e 67 20 6e 69 6c 0a 20 20 20 22 54 68 65 20 66 6f 72 6d 20 62 65 69 6e 67 20 | m-string.nil...."The.form.being. |
| 154f00 | 65 64 69 74 65 64 20 62 79 20 60 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 27 2e 22 29 29 | edited.by.`slime-edit-value'.")) |
| 154f20 | 0a 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 65 64 69 74 2d | ..(define-minor-mode.slime-edit- |
| 154f40 | 76 61 6c 75 65 2d 6d 6f 64 65 0a 20 20 22 4d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 61 | value-mode..."Mode.for.editing.a |
| 154f60 | 20 4c 69 73 70 20 76 61 6c 75 65 2e 22 0a 20 20 3a 69 6e 69 74 2d 76 61 6c 75 65 20 6e 69 6c 0a | .Lisp.value."...:init-value.nil. |
| 154f80 | 20 20 3a 6c 69 67 68 74 65 72 20 22 20 45 64 69 74 2d 56 61 6c 75 65 22 0a 20 20 3a 6b 65 79 6d | ..:lighter.".Edit-Value"...:keym |
| 154fa0 | 61 70 20 27 28 28 22 5c 43 2d 63 5c 43 2d 63 22 20 2e 20 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 | ap.'(("\C-c\C-c"...slime-edit-va |
| 154fc0 | 6c 75 65 2d 63 6f 6d 6d 69 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 64 69 74 | lue-commit)))..(defun.slime-edit |
| 154fe0 | 2d 76 61 6c 75 65 2d 63 61 6c 6c 62 61 63 6b 20 28 66 6f 72 6d 2d 73 74 72 69 6e 67 20 63 75 72 | -value-callback.(form-string.cur |
| 155000 | 72 65 6e 74 2d 76 61 6c 75 65 20 70 61 63 6b 61 67 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 6e 61 | rent-value.package)...(let*.((na |
| 155020 | 6d 65 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 66 6f | me.(generate-new-buffer-name.(fo |
| 155040 | 72 6d 61 74 20 22 2a 45 64 69 74 20 25 73 2a 22 20 66 6f 72 6d 2d 73 74 72 69 6e 67 29 29 29 0a | rmat."*Edit.%s*".form-string))). |
| 155060 | 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 70 6f 70 | .........(buffer.(slime-with-pop |
| 155080 | 75 70 2d 62 75 66 66 65 72 20 28 6e 61 6d 65 20 3a 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 | up-buffer.(name.:package.package |
| 1550a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1550c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 0a 20 | .................:connection.t.. |
| 1550e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 155100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 65 6c 65 63 74 20 74 0a 20 20 20 20 20 20 20 | ...............:select.t........ |
| 155120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 155140 | 20 20 20 20 20 20 20 20 20 3a 6d 6f 64 65 20 27 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 20 | .........:mode.'lisp-mode)...... |
| 155160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 6f 70 75 70 2d 62 75 66 66 65 | ..............(slime-popup-buffe |
| 155180 | 72 2d 6d 6f 64 65 20 2d 31 29 20 3b 20 64 6f 6e 27 74 20 77 61 6e 74 20 62 69 6e 64 69 6e 67 20 | r-mode.-1).;.don't.want.binding. |
| 1551a0 | 6f 66 20 27 71 27 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | of.'q'....................(slime |
| 1551c0 | 2d 6d 6f 64 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | -mode.1)....................(sli |
| 1551e0 | 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 2d 6d 6f 64 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 | me-edit-value-mode.1)........... |
| 155200 | 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 65 64 69 74 2d 66 6f 72 6d 2d 73 | .........(setq.slime-edit-form-s |
| 155220 | 74 72 69 6e 67 20 66 6f 72 6d 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | tring.form-string).............. |
| 155240 | 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 63 75 72 72 65 6e 74 2d 76 61 6c 75 65 29 0a 20 20 20 | ......(insert.current-value).... |
| 155260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 | ................(current-buffer) |
| 155280 | 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 | ))).....(with-current-buffer.buf |
| 1552a0 | 66 65 72 0a 20 20 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 | fer.......(setq.buffer-read-only |
| 1552c0 | 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 54 79 70 65 20 43 2d 63 20 43 | .nil).......(message."Type.C-c.C |
| 1552e0 | 2d 63 20 77 68 65 6e 20 64 6f 6e 65 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | -c.when.done"))))..(defun.slime- |
| 155300 | 65 64 69 74 2d 76 61 6c 75 65 2d 63 6f 6d 6d 69 74 20 28 29 0a 20 20 22 43 6f 6d 6d 69 74 20 74 | edit-value-commit.()..."Commit.t |
| 155320 | 68 65 20 65 64 69 74 65 64 20 76 61 6c 75 65 20 74 6f 20 74 68 65 20 4c 69 73 70 20 69 6d 61 67 | he.edited.value.to.the.Lisp.imag |
| 155340 | 65 2e 0a 5c 5c 28 53 65 65 20 60 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 27 2e 29 22 0a | e..\\(See.`slime-edit-value'.)". |
| 155360 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 73 6c 69 6d | ..(interactive)...(if.(null.slim |
| 155380 | 65 2d 65 64 69 74 2d 66 6f 72 6d 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 28 75 73 65 72 2d | e-edit-form-string).......(user- |
| 1553a0 | 65 72 72 6f 72 20 22 4e 6f 74 20 65 64 69 74 69 6e 67 20 61 20 76 61 6c 75 65 2e 22 29 0a 20 20 | error."Not.editing.a.value.")... |
| 1553c0 | 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 | ..(let.((value.(buffer-substring |
| 1553e0 | 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e | -no-properties.(point-min).(poin |
| 155400 | 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 63 | t-max)))).......(let.((buffer.(c |
| 155420 | 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | urrent-buffer))).........(slime- |
| 155440 | 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 63 6f 6d 6d 69 74 2d 65 64 69 74 65 64 | eval-async.`(swank:commit-edited |
| 155460 | 2d 76 61 6c 75 65 20 2c 73 6c 69 6d 65 2d 65 64 69 74 2d 66 6f 72 6d 2d 73 74 72 69 6e 67 0a 20 | -value.,slime-edit-form-string.. |
| 155480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1554a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 76 61 6c 75 65 29 0a 20 20 20 | .....................,value).... |
| 1554c0 | 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 5f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | .......(lambda.(_).............( |
| 1554e0 | 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 | with-current-buffer.buffer...... |
| 155500 | 20 20 20 20 20 20 20 20 20 28 71 75 69 74 2d 77 69 6e 64 6f 77 20 74 29 29 29 29 29 29 29 29 0a | .........(quit-window.t)))))))). |
| 155520 | 0c 0a 3b 3b 3b 3b 20 54 72 61 63 69 6e 67 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 75 6e 74 | ..;;;;.Tracing..(defun.slime-unt |
| 155540 | 72 61 63 65 2d 61 6c 6c 20 28 29 0a 20 20 22 55 6e 74 72 61 63 65 20 61 6c 6c 20 66 75 6e 63 74 | race-all.()..."Untrace.all.funct |
| 155560 | 69 6f 6e 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d | ions."...(interactive)...(slime- |
| 155580 | 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 75 6e 74 72 61 63 65 2d 61 6c 6c 29 29 29 0a 0a 28 64 65 | eval.`(swank:untrace-all)))..(de |
| 1555a0 | 66 75 6e 20 73 6c 69 6d 65 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 66 64 65 66 69 6e 69 74 69 | fun.slime-toggle-trace-fdefiniti |
| 1555c0 | 6f 6e 20 28 73 70 65 63 29 0a 20 20 22 54 6f 67 67 6c 65 20 74 72 61 63 65 2e 22 0a 20 20 28 69 | on.(spec)..."Toggle.trace."...(i |
| 1555e0 | 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f | nteractive.(list.(slime-read-fro |
| 155600 | 6d 2d 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m-minibuffer.................... |
| 155620 | 20 20 20 22 28 55 6e 29 74 72 61 63 65 3a 20 22 20 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 | ..."(Un)trace:.".(slime-symbol-a |
| 155640 | 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 28 73 6c 69 | t-point))))...(message."%s".(sli |
| 155660 | 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 74 6f 67 67 6c 65 2d 74 72 61 | me-eval.`(swank:swank-toggle-tra |
| 155680 | 63 65 20 2c 73 70 65 63 29 29 29 29 0a 0a 0c 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 69 | ce.,spec)))).....(defun.slime-di |
| 1556a0 | 73 61 73 73 65 6d 62 6c 65 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 | sassemble-symbol.(symbol-name).. |
| 1556c0 | 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 64 69 73 61 73 73 65 6d 62 6c 79 20 66 6f 72 20 53 59 | ."Display.the.disassembly.for.SY |
| 1556e0 | 4d 42 4f 4c 2d 4e 41 4d 45 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 | MBOL-NAME."...(interactive.(list |
| 155700 | 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 44 69 73 61 73 73 | .(slime-read-symbol-name."Disass |
| 155720 | 65 6d 62 6c 65 3a 20 22 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 | emble:.")))...(slime-eval-descri |
| 155740 | 62 65 20 60 28 73 77 61 6e 6b 3a 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 6f 72 6d 20 2c 28 63 6f | be.`(swank:disassemble-form.,(co |
| 155760 | 6e 63 61 74 20 22 27 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e | ncat."'".symbol-name))))..(defun |
| 155780 | 20 73 6c 69 6d 65 2d 75 6e 64 65 66 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 20 28 73 79 6d 62 6f 6c | .slime-undefine-function.(symbol |
| 1557a0 | 2d 6e 61 6d 65 29 0a 20 20 22 55 6e 62 69 6e 64 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 73 6c | -name)..."Unbind.the.function.sl |
| 1557c0 | 6f 74 20 6f 66 20 53 59 4d 42 4f 4c 2d 4e 41 4d 45 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | ot.of.SYMBOL-NAME."...(interacti |
| 1557e0 | 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | ve.(list.(slime-read-symbol-name |
| 155800 | 20 22 66 6d 61 6b 75 6e 62 6f 75 6e 64 3a 20 22 20 74 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 | ."fmakunbound:.".t)))...(slime-e |
| 155820 | 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 75 6e 64 65 66 69 6e 65 2d 66 75 6e 63 74 | val-async.`(swank:undefine-funct |
| 155840 | 69 6f 6e 20 2c 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 | ion.,symbol-name).....(lambda.(r |
| 155860 | 65 73 75 6c 74 29 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 72 65 73 75 6c 74 29 29 29 29 0a | esult).(message."%s".result)))). |
| 155880 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 75 6e 69 6e 74 65 72 6e 2d 73 79 6d 62 6f 6c 20 28 73 | .(defun.slime-unintern-symbol.(s |
| 1558a0 | 79 6d 62 6f 6c 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 0a 20 20 22 55 6e 69 6e 74 65 72 6e 20 | ymbol-name.package)..."Unintern. |
| 1558c0 | 74 68 65 20 73 79 6d 62 6f 6c 20 67 69 76 65 6e 20 77 69 74 68 20 53 59 4d 42 4f 4c 2d 4e 41 4d | the.symbol.given.with.SYMBOL-NAM |
| 1558e0 | 45 20 50 41 43 4b 41 47 45 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 | E.PACKAGE."...(interactive.(list |
| 155900 | 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 55 6e 69 6e 74 65 | .(slime-read-symbol-name."Uninte |
| 155920 | 72 6e 20 73 79 6d 62 6f 6c 3a 20 22 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rn.symbol:.".t)................. |
| 155940 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 22 66 | .....(slime-read-package-name."f |
| 155960 | 72 6f 6d 20 70 61 63 6b 61 67 65 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rom.package:.".................. |
| 155980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | .............................(sl |
| 1559a0 | 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 29 0a 20 20 28 73 6c 69 6d 65 | ime-current-package))))...(slime |
| 1559c0 | 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 75 6e 69 6e 74 65 72 6e 2d 73 79 6d | -eval-async.`(swank:unintern-sym |
| 1559e0 | 62 6f 6c 20 2c 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 2c 70 61 63 6b 61 67 65 29 0a 20 20 20 20 28 | bol.,symbol-name.,package).....( |
| 155a00 | 6c 61 6d 62 64 61 20 28 72 65 73 75 6c 74 29 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 72 65 | lambda.(result).(message."%s".re |
| 155a20 | 73 75 6c 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 6c 65 74 65 2d 70 61 | sult))))..(defun.slime-delete-pa |
| 155a40 | 63 6b 61 67 65 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 22 44 65 6c 65 74 65 20 74 | ckage.(package-name)..."Delete.t |
| 155a60 | 68 65 20 70 61 63 6b 61 67 65 20 77 69 74 68 20 6e 61 6d 65 20 50 41 43 4b 41 47 45 2d 4e 41 4d | he.package.with.name.PACKAGE-NAM |
| 155a80 | 45 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d | E."...(interactive.(list.(slime- |
| 155aa0 | 72 65 61 64 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 22 44 65 6c 65 74 65 20 70 61 63 6b 61 67 | read-package-name."Delete.packag |
| 155ac0 | 65 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e:."............................ |
| 155ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e | ...................(slime-curren |
| 155b00 | 74 2d 70 61 63 6b 61 67 65 29 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e | t-package))))...(slime-eval-asyn |
| 155b20 | 63 20 60 28 63 6c 3a 64 65 6c 65 74 65 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 | c.`(cl:delete-package........... |
| 155b40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 3a 3a 67 75 65 73 73 2d 70 61 63 6b 61 67 | ............(swank::guess-packag |
| 155b60 | 65 20 2c 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | e.,package-name))))..(defun.slim |
| 155b80 | 65 2d 6c 6f 61 64 2d 66 69 6c 65 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 22 4c 6f 61 64 20 74 | e-load-file.(filename)..."Load.t |
| 155ba0 | 68 65 20 4c 69 73 70 20 66 69 6c 65 20 46 49 4c 45 4e 41 4d 45 2e 22 0a 20 20 28 69 6e 74 65 72 | he.Lisp.file.FILENAME."...(inter |
| 155bc0 | 61 63 74 69 76 65 20 28 6c 69 73 74 0a 09 09 28 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 | active.(list...(read-file-name." |
| 155be0 | 4c 6f 61 64 20 66 69 6c 65 3a 20 22 20 6e 69 6c 20 6e 69 6c 0a 09 09 09 09 6e 69 6c 20 28 69 66 | Load.file:.".nil.nil.....nil.(if |
| 155c00 | 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .(buffer-file-name)............. |
| 155c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c | ............................(fil |
| 155c40 | 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e-name-nondirectory............. |
| 155c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 | .............................(bu |
| 155c80 | 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 29 29 29 0a 20 20 28 6c 65 74 20 28 28 6c 69 | ffer-file-name))))))...(let.((li |
| 155ca0 | 73 70 2d 66 69 6c 65 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e | sp-filename.(slime-to-lisp-filen |
| 155cc0 | 61 6d 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 | ame.(expand-file-name.filename)) |
| 155ce0 | 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 77 69 74 68 2d 74 72 61 6e 73 63 72 69 | )).....(slime-eval-with-transcri |
| 155d00 | 70 74 20 60 28 73 77 61 6e 6b 3a 6c 6f 61 64 2d 66 69 6c 65 20 2c 6c 69 73 70 2d 66 69 6c 65 6e | pt.`(swank:load-file.,lisp-filen |
| 155d20 | 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 68 61 6e 67 65 2d 64 69 | ame))))..(defvar.slime-change-di |
| 155d40 | 72 65 63 74 6f 72 79 2d 68 6f 6f 6b 73 20 6e 69 6c 0a 20 20 22 48 6f 6f 6b 20 72 75 6e 20 62 79 | rectory-hooks.nil..."Hook.run.by |
| 155d60 | 20 60 73 6c 69 6d 65 2d 63 68 61 6e 67 65 2d 64 69 72 65 63 74 6f 72 79 27 2e 0a 54 68 65 20 66 | .`slime-change-directory'..The.f |
| 155d80 | 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 6e 65 77 | unctions.are.called.with.the.new |
| 155da0 | 20 28 61 62 73 6f 6c 75 74 65 29 20 64 69 72 65 63 74 6f 72 79 2e 22 29 0a 0a 28 64 65 66 75 6e | .(absolute).directory.")..(defun |
| 155dc0 | 20 73 6c 69 6d 65 2d 63 68 61 6e 67 65 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f | .slime-change-directory.(directo |
| 155de0 | 72 79 29 0a 20 20 22 4d 61 6b 65 20 44 49 52 45 43 54 4f 52 59 20 62 65 63 6f 6d 65 20 4c 69 73 | ry)..."Make.DIRECTORY.become.Lis |
| 155e00 | 70 27 73 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 52 65 74 75 72 6e 20 77 68 | p's.current.directory..Return.wh |
| 155e20 | 61 74 65 76 65 72 20 73 77 61 6e 6b 3a 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f | atever.swank:set-default-directo |
| 155e40 | 72 79 20 72 65 74 75 72 6e 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 65 78 70 61 6e | ry.returns."...(let.((dir.(expan |
| 155e60 | 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 28 70 72 | d-file-name.directory))).....(pr |
| 155e80 | 6f 67 31 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 73 65 74 2d 64 65 66 61 | og1.(slime-eval.`(swank:set-defa |
| 155ea0 | 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ult-directory................... |
| 155ec0 | 20 20 20 20 20 20 20 2c 28 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 20 | .......,(slime-to-lisp-filename. |
| 155ee0 | 64 69 72 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 63 6f 6e 6e 65 63 74 | dir))).......(slime-with-connect |
| 155f00 | 69 6f 6e 2d 62 75 66 66 65 72 20 6e 69 6c 20 28 63 64 2d 61 62 73 6f 6c 75 74 65 20 64 69 72 29 | ion-buffer.nil.(cd-absolute.dir) |
| 155f20 | 29 0a 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 20 27 73 6c 69 | ).......(run-hook-with-args.'sli |
| 155f40 | 6d 65 2d 63 68 61 6e 67 65 2d 64 69 72 65 63 74 6f 72 79 2d 68 6f 6f 6b 73 20 64 69 72 29 29 29 | me-change-directory-hooks.dir))) |
| 155f60 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 64 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 | )..(defun.slime-cd.(directory).. |
| 155f80 | 20 22 4d 61 6b 65 20 44 49 52 45 43 54 4f 52 59 20 62 65 63 6f 6d 65 20 4c 69 73 70 27 73 20 63 | ."Make.DIRECTORY.become.Lisp's.c |
| 155fa0 | 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 52 65 74 75 72 6e 20 77 68 61 74 65 76 65 | urrent.directory..Return.whateve |
| 155fc0 | 72 20 73 77 61 6e 6b 3a 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 72 65 | r.swank:set-default-directory.re |
| 155fe0 | 74 75 72 6e 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 72 65 | turns."...(interactive.(list.(re |
| 156000 | 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 22 44 69 72 65 63 74 6f 72 79 3a 20 22 20 | ad-directory-name."Directory:.". |
| 156020 | 6e 69 6c 20 6e 69 6c 20 74 29 29 29 0a 20 20 28 6d 65 73 73 61 67 65 20 22 64 65 66 61 75 6c 74 | nil.nil.t)))...(message."default |
| 156040 | 2d 64 69 72 65 63 74 6f 72 79 3a 20 25 73 22 20 28 73 6c 69 6d 65 2d 63 68 61 6e 67 65 2d 64 69 | -directory:.%s".(slime-change-di |
| 156060 | 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | rectory.directory)))..(defun.sli |
| 156080 | 6d 65 2d 70 77 64 20 28 29 0a 20 20 22 53 68 6f 77 20 4c 69 73 70 27 73 20 64 65 66 61 75 6c 74 | me-pwd.()..."Show.Lisp's.default |
| 1560a0 | 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | .directory."...(interactive)...( |
| 1560c0 | 6d 65 73 73 61 67 65 20 22 44 69 72 65 63 74 6f 72 79 20 25 73 22 20 28 73 6c 69 6d 65 2d 65 76 | message."Directory.%s".(slime-ev |
| 1560e0 | 61 6c 20 60 28 73 77 61 6e 6b 3a 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 29 | al.`(swank:default-directory)))) |
| 156100 | 0a 0a 0c 0a 3b 3b 3b 3b 20 50 72 6f 66 69 6c 69 6e 67 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | ....;;;;.Profiling..(defun.slime |
| 156120 | 2d 74 6f 67 67 6c 65 2d 70 72 6f 66 69 6c 65 2d 66 64 65 66 69 6e 69 74 69 6f 6e 20 28 66 6e 61 | -toggle-profile-fdefinition.(fna |
| 156140 | 6d 65 2d 73 74 72 69 6e 67 29 0a 20 20 22 54 6f 67 67 6c 65 20 70 72 6f 66 69 6c 69 6e 67 20 66 | me-string)..."Toggle.profiling.f |
| 156160 | 6f 72 20 46 4e 41 4d 45 2d 53 54 52 49 4e 47 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | or.FNAME-STRING."...(interactive |
| 156180 | 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 | .(list.(slime-read-from-minibuff |
| 1561a0 | 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 55 6e 29 50 72 | er......................."(Un)Pr |
| 1561c0 | 6f 66 69 6c 65 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ofile:.".......................( |
| 1561e0 | 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 28 73 6c 69 | slime-symbol-at-point))))...(sli |
| 156200 | 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 74 6f 67 67 6c 65 2d 70 72 6f | me-eval-async.`(swank:toggle-pro |
| 156220 | 66 69 6c 65 2d 66 64 65 66 69 6e 69 74 69 6f 6e 20 2c 66 6e 61 6d 65 2d 73 74 72 69 6e 67 29 0a | file-fdefinition.,fname-string). |
| 156240 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 29 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 72 29 | ....(lambda.(r).(message."%s".r) |
| 156260 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c 20 | )))..(defun.slime-unprofile-all. |
| 156280 | 28 29 0a 20 20 22 55 6e 70 72 6f 66 69 6c 65 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 22 0a | ()..."Unprofile.all.functions.". |
| 1562a0 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 | ..(interactive)...(slime-eval-as |
| 1562c0 | 79 6e 63 20 27 28 73 77 61 6e 6b 3a 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c 29 0a 20 20 20 20 28 | ync.'(swank:unprofile-all).....( |
| 1562e0 | 6c 61 6d 62 64 61 20 28 72 29 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 72 29 29 29 29 0a 0a | lambda.(r).(message."%s".r)))).. |
| 156300 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 20 28 29 0a 20 | (defun.slime-profile-report.().. |
| 156320 | 20 22 50 72 69 6e 74 20 70 72 6f 66 69 6c 65 20 72 65 70 6f 72 74 2e 22 0a 20 20 28 69 6e 74 65 | ."Print.profile.report."...(inte |
| 156340 | 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 77 69 74 68 2d 74 72 61 6e | ractive)...(slime-eval-with-tran |
| 156360 | 73 63 72 69 70 74 20 27 28 73 77 61 6e 6b 3a 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 29 29 29 | script.'(swank:profile-report))) |
| 156380 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 20 28 29 0a | ..(defun.slime-profile-reset.(). |
| 1563a0 | 20 20 22 52 65 73 65 74 20 70 72 6f 66 69 6c 65 20 63 6f 75 6e 74 65 72 73 2e 22 0a 20 20 28 69 | .."Reset.profile.counters."...(i |
| 1563c0 | 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 | nteractive)...(slime-eval-async. |
| 1563e0 | 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 70 72 6f 66 69 6c 65 2d 72 65 73 65 | (slime-eval.`(swank:profile-rese |
| 156400 | 74 29 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 29 20 28 6d 65 73 73 61 67 65 20 22 25 73 | t)).....(lambda.(r).(message."%s |
| 156420 | 22 20 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 64 2d 66 | ".r))))..(defun.slime-profiled-f |
| 156440 | 75 6e 63 74 69 6f 6e 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6c 69 73 74 20 6f 66 20 6e 61 | unctions.()..."Return.list.of.na |
| 156460 | 6d 65 73 20 6f 66 20 63 75 72 72 65 6e 74 6c 79 20 70 72 6f 66 69 6c 65 64 20 66 75 6e 63 74 69 | mes.of.currently.profiled.functi |
| 156480 | 6f 6e 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 | ons."...(interactive)...(slime-e |
| 1564a0 | 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 | val-async.`(swank:profiled-funct |
| 1564c0 | 69 6f 6e 73 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 29 20 28 6d 65 73 73 61 67 65 20 22 | ions).....(lambda.(r).(message." |
| 1564e0 | 25 73 22 20 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d | %s".r))))..(defun.slime-profile- |
| 156500 | 70 61 63 6b 61 67 65 20 28 70 61 63 6b 61 67 65 20 63 61 6c 6c 65 72 73 20 6d 65 74 68 6f 64 73 | package.(package.callers.methods |
| 156520 | 29 0a 20 20 22 50 72 6f 66 69 6c 65 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 20 50 41 | )..."Profile.all.functions.in.PA |
| 156540 | 43 4b 41 47 45 2e 0a 49 66 20 43 41 4c 4c 45 52 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 6e 61 6d 65 | CKAGE..If.CALLER.is.non-nil.name |
| 156560 | 73 20 68 61 76 65 20 63 6f 75 6e 74 73 20 6f 66 20 74 68 65 20 6d 6f 73 74 20 63 6f 6d 6d 6f 6e | s.have.counts.of.the.most.common |
| 156580 | 20 63 61 6c 6c 69 6e 67 0a 66 75 6e 63 74 69 6f 6e 73 20 72 65 63 6f 72 64 65 64 2e 0a 49 66 20 | .calling.functions.recorded..If. |
| 1565a0 | 4d 45 54 48 4f 44 53 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 70 72 6f 66 69 6c 65 20 61 6c 6c 20 | METHODS.is.non-nil,.profile.all. |
| 1565c0 | 6d 65 74 68 6f 64 73 20 6f 66 20 61 6c 6c 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 0a | methods.of.all.generic.function. |
| 1565e0 | 68 61 76 69 6e 67 20 6e 61 6d 65 73 20 69 6e 20 74 68 65 20 67 69 76 65 6e 20 70 61 63 6b 61 67 | having.names.in.the.given.packag |
| 156600 | 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d | e."...(interactive.(list.(slime- |
| 156620 | 72 65 61 64 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 22 50 61 63 6b 61 67 65 3a 20 22 29 0a 20 | read-package-name."Package:.").. |
| 156640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 52 | ....................(y-or-n-p."R |
| 156660 | 65 63 6f 72 64 20 74 68 65 20 6d 6f 73 74 20 63 6f 6d 6d 6f 6e 20 63 61 6c 6c 65 72 73 3f 20 22 | ecord.the.most.common.callers?." |
| 156680 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 2d 6f 72 2d 6e 2d 70 | )......................(y-or-n-p |
| 1566a0 | 20 22 50 72 6f 66 69 6c 65 20 6d 65 74 68 6f 64 73 3f 20 22 29 29 29 0a 20 20 28 73 6c 69 6d 65 | ."Profile.methods?.")))...(slime |
| 1566c0 | 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 70 72 6f 66 69 6c | -eval-async.`(swank:swank-profil |
| 1566e0 | 65 2d 70 61 63 6b 61 67 65 20 2c 70 61 63 6b 61 67 65 20 2c 63 61 6c 6c 65 72 73 20 2c 6d 65 74 | e-package.,package.,callers.,met |
| 156700 | 68 6f 64 73 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 29 20 28 6d 65 73 73 61 67 65 20 22 | hods).....(lambda.(r).(message." |
| 156720 | 25 73 22 20 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d | %s".r))))..(defun.slime-profile- |
| 156740 | 62 79 2d 73 75 62 73 74 72 69 6e 67 20 28 73 75 62 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 | by-substring.(substring.&optiona |
| 156760 | 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 22 50 72 6f 66 69 6c 65 20 61 6c 6c 20 66 75 6e 63 74 69 | l.package)..."Profile.all.functi |
| 156780 | 6f 6e 73 20 77 68 69 63 68 20 6e 61 6d 65 73 20 63 6f 6e 74 61 69 6e 20 53 55 42 53 54 52 49 4e | ons.which.names.contain.SUBSTRIN |
| 1567a0 | 47 2e 0a 49 66 20 50 41 43 4b 41 47 45 20 69 73 20 4e 49 4c 2c 20 74 68 65 6e 20 73 65 61 72 63 | G..If.PACKAGE.is.NIL,.then.searc |
| 1567c0 | 68 20 69 6e 20 61 6c 6c 20 70 61 63 6b 61 67 65 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | h.in.all.packages."...(interacti |
| 1567e0 | 76 65 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | ve.(list.................(slime- |
| 156800 | 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 | read-from-minibuffer............ |
| 156820 | 20 20 20 20 20 20 22 50 72 6f 66 69 6c 65 20 62 79 20 6d 61 74 63 68 69 6e 67 20 73 75 62 73 74 | ......"Profile.by.matching.subst |
| 156840 | 72 69 6e 67 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | ring:."..................(slime- |
| 156860 | 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | symbol-at-point))............... |
| 156880 | 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 22 50 61 63 6b | ..(slime-read-package-name."Pack |
| 1568a0 | 61 67 65 20 28 52 45 54 20 66 6f 72 20 61 6c 6c 20 70 61 63 6b 61 67 65 73 29 3a 20 22 29 29 29 | age.(RET.for.all.packages):."))) |
| 1568c0 | 0a 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c | ...(let.((package.(unless.(equal |
| 1568e0 | 20 70 61 63 6b 61 67 65 20 22 22 29 20 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 20 28 73 6c 69 | .package."").package))).....(sli |
| 156900 | 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 70 72 6f 66 69 6c 65 2d 62 79 | me-eval-async.`(swank:profile-by |
| 156920 | 2d 73 75 62 73 74 72 69 6e 67 20 2c 73 75 62 73 74 72 69 6e 67 20 2c 70 61 63 6b 61 67 65 29 0a | -substring.,substring.,package). |
| 156940 | 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 29 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 | ......(lambda.(r).(message."%s". |
| 156960 | 72 29 29 20 29 29 29 0a 0c 0a 3b 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 0a 28 64 | r)).)))...;;;;.Documentation..(d |
| 156980 | 65 66 76 61 72 20 73 6c 69 6d 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 6c 6f 6f 6b 75 70 | efvar.slime-documentation-lookup |
| 1569a0 | 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 27 73 6c 69 6d 65 2d 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f | -function...'slime-hyperspec-loo |
| 1569c0 | 6b 75 70 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | kup)..(defun.slime-documentation |
| 1569e0 | 2d 6c 6f 6f 6b 75 70 20 28 29 0a 20 20 22 47 65 6e 65 72 61 6c 69 7a 65 64 20 64 6f 63 75 6d 65 | -lookup.()..."Generalized.docume |
| 156a00 | 6e 74 61 74 69 6f 6e 20 6c 6f 6f 6b 75 70 2e 20 44 65 66 61 75 6c 74 73 20 74 6f 20 68 79 70 65 | ntation.lookup..Defaults.to.hype |
| 156a20 | 72 73 70 65 63 20 6c 6f 6f 6b 75 70 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | rspec.lookup."...(interactive).. |
| 156a40 | 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 73 6c 69 6d 65 2d 64 6f 63 75 6d | .(call-interactively.slime-docum |
| 156a60 | 65 6e 74 61 74 69 6f 6e 2d 6c 6f 6f 6b 75 70 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 | entation-lookup-function))..(def |
| 156a80 | 75 6e 20 73 6c 69 6d 65 2d 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 20 28 73 79 6d 62 6f | un.slime-hyperspec-lookup.(symbo |
| 156aa0 | 6c 2d 6e 61 6d 65 29 0a 20 20 22 41 20 77 72 61 70 70 65 72 20 66 6f 72 20 60 68 79 70 65 72 73 | l-name)..."A.wrapper.for.`hypers |
| 156ac0 | 70 65 63 2d 6c 6f 6f 6b 75 70 27 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 | pec-lookup'"...(interactive.(lis |
| 156ae0 | 74 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 72 65 61 64 2d 73 79 | t.(common-lisp-hyperspec-read-sy |
| 156b00 | 6d 62 6f 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mbol-name....................... |
| 156b20 | 28 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 28 68 79 | (slime-symbol-at-point))))...(hy |
| 156b40 | 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 0a 0a 28 64 | perspec-lookup.symbol-name))..(d |
| 156b60 | 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 | efun.slime-describe-symbol.(symb |
| 156b80 | 6f 6c 2d 6e 61 6d 65 29 0a 20 20 22 44 65 73 63 72 69 62 65 20 74 68 65 20 73 79 6d 62 6f 6c 20 | ol-name)..."Describe.the.symbol. |
| 156ba0 | 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 | at.point."...(interactive.(list. |
| 156bc0 | 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 44 65 73 63 72 69 62 | (slime-read-symbol-name."Describ |
| 156be0 | 65 20 73 79 6d 62 6f 6c 3a 20 22 29 29 29 0a 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 73 79 6d 62 | e.symbol:.")))...(when.(not.symb |
| 156c00 | 6f 6c 2d 6e 61 6d 65 29 0a 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 73 79 6d | ol-name).....(user-error."No.sym |
| 156c20 | 62 6f 6c 20 67 69 76 65 6e 22 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 73 63 72 | bol.given"))...(slime-eval-descr |
| 156c40 | 69 62 65 20 60 28 73 77 61 6e 6b 3a 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 20 2c 73 79 6d | ibe.`(swank:describe-symbol.,sym |
| 156c60 | 62 6f 6c 2d 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 6f 63 75 6d 65 | bol-name)))..(defun.slime-docume |
| 156c80 | 6e 74 61 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 22 44 69 73 70 6c 61 79 | ntation.(symbol-name)..."Display |
| 156ca0 | 20 66 75 6e 63 74 69 6f 6e 2d 20 6f 72 20 73 79 6d 62 6f 6c 2d 64 6f 63 75 6d 65 6e 74 61 74 69 | .function-.or.symbol-documentati |
| 156cc0 | 6f 6e 20 66 6f 72 20 53 59 4d 42 4f 4c 2d 4e 41 4d 45 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | on.for.SYMBOL-NAME."...(interact |
| 156ce0 | 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d | ive.(list.(slime-read-symbol-nam |
| 156d00 | 65 20 22 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 73 79 6d 62 6f 6c 3a 20 22 29 29 | e."Documentation.for.symbol:.")) |
| 156d20 | 29 0a 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 20 20 | )...(when.(not.symbol-name)..... |
| 156d40 | 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 73 79 6d 62 6f 6c 20 67 69 76 65 6e 22 29 29 0a | (user-error."No.symbol.given")). |
| 156d60 | 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 0a 20 20 20 60 28 73 77 61 6e | ..(slime-eval-describe....`(swan |
| 156d80 | 6b 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 79 6d 62 6f 6c 20 2c 73 79 6d 62 6f 6c 2d 6e | k:documentation-symbol.,symbol-n |
| 156da0 | 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 66 75 | ame)))..(defun.slime-describe-fu |
| 156dc0 | 6e 63 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 28 69 6e 74 65 72 61 63 74 | nction.(symbol-name)...(interact |
| 156de0 | 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d | ive.(list.(slime-read-symbol-nam |
| 156e00 | 65 20 22 44 65 73 63 72 69 62 65 20 73 79 6d 62 6f 6c 27 73 20 66 75 6e 63 74 69 6f 6e 3a 20 22 | e."Describe.symbol's.function:." |
| 156e20 | 29 29 29 0a 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 | )))...(when.(not.symbol-name)... |
| 156e40 | 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 73 79 6d 62 6f 6c 20 67 69 76 65 6e 22 29 | ..(user-error."No.symbol.given") |
| 156e60 | 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 20 60 28 73 77 61 6e 6b | )...(slime-eval-describe.`(swank |
| 156e80 | 3a 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 20 2c 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 | :describe-function.,symbol-name) |
| 156ea0 | 29 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 73 79 6d 62 6f | ))..(defface.slime-apropos-symbo |
| 156ec0 | 6c 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 61 70 72 6f 70 6f 73 2d 73 79 6d 62 6f | l...'((t.(:inherit.apropos-symbo |
| 156ee0 | 6c 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 74 68 65 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 | l)))..."Face.for.the.symbol.name |
| 156f00 | 20 69 6e 20 41 70 72 6f 70 6f 73 20 6f 75 74 70 75 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 | .in.Apropos.output."...:group.'s |
| 156f20 | 6c 69 6d 65 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 6c 61 | lime)..(defface.slime-apropos-la |
| 156f40 | 62 65 6c 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 61 70 72 6f 70 6f 73 2d 62 75 74 | bel...'((t.(:inherit.apropos-but |
| 156f60 | 74 6f 6e 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 6c 61 62 65 6c 20 28 60 46 75 6e 63 74 | ton)))..."Face.for.label.(`Funct |
| 156f80 | 69 6f 6e 27 2c 20 60 56 61 72 69 61 62 6c 65 27 20 2e 2e 2e 29 20 69 6e 20 41 70 72 6f 70 6f 73 | ion',.`Variable'....).in.Apropos |
| 156fa0 | 20 6f 75 74 70 75 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 29 0a 0a 28 64 65 66 | .output."...:group.'slime)..(def |
| 156fc0 | 75 6e 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 73 75 6d 6d 61 72 79 20 28 73 74 72 69 6e 67 | un.slime-apropos-summary.(string |
| 156fe0 | 20 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 2d 70 20 70 61 63 6b 61 67 65 20 6f 6e 6c 79 2d 65 | .case-sensitive-p.package.only-e |
| 157000 | 78 74 65 72 6e 61 6c 2d 70 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 68 6f 72 74 20 64 65 73 | xternal-p)..."Return.a.short.des |
| 157020 | 63 72 69 70 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 70 65 72 66 6f 72 6d 65 64 20 61 70 72 6f 70 | cription.for.the.performed.aprop |
| 157040 | 6f 73 20 73 65 61 72 63 68 2e 22 0a 20 20 28 63 6f 6e 63 61 74 20 28 69 66 20 63 61 73 65 2d 73 | os.search."...(concat.(if.case-s |
| 157060 | 65 6e 73 69 74 69 76 65 2d 70 20 22 43 61 73 65 2d 73 65 6e 73 69 74 69 76 65 20 22 20 22 22 29 | ensitive-p."Case-sensitive."."") |
| 157080 | 0a 20 20 20 20 20 20 20 20 20 20 22 41 70 72 6f 70 6f 73 20 66 6f 72 20 22 0a 20 20 20 20 20 20 | ..........."Apropos.for."....... |
| 1570a0 | 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 53 22 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 | ....(format."%S".string)........ |
| 1570c0 | 20 20 20 28 69 66 20 70 61 63 6b 61 67 65 20 28 66 6f 72 6d 61 74 20 22 20 69 6e 20 70 61 63 6b | ...(if.package.(format.".in.pack |
| 1570e0 | 61 67 65 20 25 53 22 20 70 61 63 6b 61 67 65 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 | age.%S".package)."")...........( |
| 157100 | 69 66 20 6f 6e 6c 79 2d 65 78 74 65 72 6e 61 6c 2d 70 20 22 20 28 65 78 74 65 72 6e 61 6c 20 73 | if.only-external-p.".(external.s |
| 157120 | 79 6d 62 6f 6c 73 20 6f 6e 6c 79 29 22 20 22 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | ymbols.only)"."")))..(defun.slim |
| 157140 | 65 2d 61 70 72 6f 70 6f 73 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 6e 6c 79 | e-apropos.(string.&optional.only |
| 157160 | 2d 65 78 74 65 72 6e 61 6c 2d 70 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -external-p.package............. |
| 157180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 2d | .................case-sensitive- |
| 1571a0 | 70 29 0a 20 20 22 53 68 6f 77 20 61 6c 6c 20 62 6f 75 6e 64 20 73 79 6d 62 6f 6c 73 20 77 68 6f | p)..."Show.all.bound.symbols.who |
| 1571c0 | 73 65 20 6e 61 6d 65 73 20 6d 61 74 63 68 20 53 54 52 49 4e 47 2e 20 57 69 74 68 20 70 72 65 66 | se.names.match.STRING..With.pref |
| 1571e0 | 69 78 0a 61 72 67 2c 20 79 6f 75 27 72 65 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 61 73 6b | ix.arg,.you're.interactively.ask |
| 157200 | 65 64 20 66 6f 72 20 70 61 72 61 6d 65 74 65 72 73 20 6f 66 20 74 68 65 20 73 65 61 72 63 68 2e | ed.for.parameters.of.the.search. |
| 157220 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 69 66 20 63 75 72 72 65 6e 74 2d | "...(interactive....(if.current- |
| 157240 | 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 72 65 61 64 2d 73 74 | prefix-arg........(list.(read-st |
| 157260 | 72 69 6e 67 20 22 53 4c 49 4d 45 20 41 70 72 6f 70 6f 73 3a 20 22 29 0a 20 20 20 20 20 20 20 20 | ring."SLIME.Apropos:.")......... |
| 157280 | 20 20 20 20 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 45 78 74 65 72 6e 61 6c 20 73 79 6d 62 6f 6c 73 | .....(y-or-n-p."External.symbols |
| 1572a0 | 20 6f 6e 6c 79 3f 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6b | .only?.")..............(let.((pk |
| 1572c0 | 67 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 22 50 61 63 6b | g.(slime-read-package-name."Pack |
| 1572e0 | 61 67 65 3a 20 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 | age:.")))................(if.(st |
| 157300 | 72 69 6e 67 3d 20 70 6b 67 20 22 22 29 20 6e 69 6c 20 70 6b 67 29 29 0a 20 20 20 20 20 20 20 20 | ring=.pkg."").nil.pkg))......... |
| 157320 | 20 20 20 20 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 43 61 73 65 2d 73 65 6e 73 69 74 69 76 65 3f 20 | .....(y-or-n-p."Case-sensitive?. |
| 157340 | 22 29 29 0a 20 20 20 20 20 28 6c 69 73 74 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 22 53 4c 49 | "))......(list.(read-string."SLI |
| 157360 | 4d 45 20 41 70 72 6f 70 6f 73 3a 20 22 29 20 74 20 6e 69 6c 20 6e 69 6c 29 29 29 0a 20 20 28 6c | ME.Apropos:.").t.nil.nil)))...(l |
| 157380 | 65 74 20 28 28 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 28 6f 72 20 70 61 63 6b 61 67 65 20 | et.((buffer-package.(or.package. |
| 1573a0 | 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 29 0a 20 20 20 20 28 | (slime-current-package)))).....( |
| 1573c0 | 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b | slime-eval-async.........`(swank |
| 1573e0 | 3a 61 70 72 6f 70 6f 73 2d 6c 69 73 74 2d 66 6f 72 2d 65 6d 61 63 73 20 2c 73 74 72 69 6e 67 20 | :apropos-list-for-emacs.,string. |
| 157400 | 2c 6f 6e 6c 79 2d 65 78 74 65 72 6e 61 6c 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ,only-external-p................ |
| 157420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 63 61 73 65 2d 73 65 | ........................,case-se |
| 157440 | 6e 73 69 74 69 76 65 2d 70 20 27 2c 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 28 73 6c 69 6d | nsitive-p.',package).......(slim |
| 157460 | 65 2d 72 63 75 72 72 79 20 23 27 73 6c 69 6d 65 2d 73 68 6f 77 2d 61 70 72 6f 70 6f 73 20 73 74 | e-rcurry.#'slime-show-apropos.st |
| 157480 | 72 69 6e 67 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ring.buffer-package............. |
| 1574a0 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 73 75 6d 6d 61 72 79 20 73 | ........(slime-apropos-summary.s |
| 1574c0 | 74 72 69 6e 67 20 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 2d 70 0a 20 20 20 20 20 20 20 20 20 | tring.case-sensitive-p.......... |
| 1574e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 157500 | 20 20 70 61 63 6b 61 67 65 20 6f 6e 6c 79 2d 65 78 74 65 72 6e 61 6c 2d 70 29 29 29 29 29 0a 0a | ..package.only-external-p))))).. |
| 157520 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 61 6c 6c 20 28 29 0a 20 20 22 53 | (defun.slime-apropos-all.()..."S |
| 157540 | 68 6f 72 74 63 75 74 20 66 6f 72 20 28 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 20 3c 73 74 72 69 | hortcut.for.(slime-apropos.<stri |
| 157560 | 6e 67 3e 20 6e 69 6c 20 6e 69 6c 29 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 | ng>.nil.nil)"...(interactive)... |
| 157580 | 28 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 22 53 4c 49 | (slime-apropos.(read-string."SLI |
| 1575a0 | 4d 45 20 41 70 72 6f 70 6f 73 3a 20 22 29 20 6e 69 6c 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e | ME.Apropos:.").nil.nil))..(defun |
| 1575c0 | 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 70 61 63 6b 61 67 65 20 28 70 61 63 6b 61 67 65 20 | .slime-apropos-package.(package. |
| 1575e0 | 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 74 65 72 6e 61 6c 29 0a 20 20 22 53 68 6f 77 20 61 70 72 6f | &optional.internal)..."Show.apro |
| 157600 | 70 6f 73 20 6c 69 73 74 69 6e 67 20 66 6f 72 20 73 79 6d 62 6f 6c 73 20 69 6e 20 50 41 43 4b 41 | pos.listing.for.symbols.in.PACKA |
| 157620 | 47 45 2e 0a 57 69 74 68 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 6e 63 6c 75 64 65 | GE..With.prefix.argument.include |
| 157640 | 20 69 6e 74 65 72 6e 61 6c 20 73 79 6d 62 6f 6c 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | .internal.symbols."...(interacti |
| 157660 | 76 65 20 28 6c 69 73 74 20 28 6c 65 74 20 28 28 70 6b 67 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d | ve.(list.(let.((pkg.(slime-read- |
| 157680 | 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 22 50 61 63 6b 61 67 65 3a 20 22 29 29 29 0a 20 20 20 20 | package-name."Package:.")))..... |
| 1576a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 3d 20 | ...................(if.(string=. |
| 1576c0 | 70 6b 67 20 22 22 29 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 20 | pkg."").(slime-current-package). |
| 1576e0 | 70 6b 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 72 65 | pkg))......................curre |
| 157700 | 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 0a 20 20 28 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 | nt-prefix-arg))...(slime-apropos |
| 157720 | 20 22 22 20 28 6e 6f 74 20 69 6e 74 65 72 6e 61 6c 29 20 70 61 63 6b 61 67 65 29 29 0a 0a 28 64 | ."".(not.internal).package))..(d |
| 157740 | 65 66 75 6e 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 6e 65 78 74 2d 73 79 6d 62 6f 6c 20 28 | efun.slime-apropos-next-symbol.( |
| 157760 | 29 0a 20 20 22 4d 6f 76 65 20 63 75 72 73 6f 72 20 64 6f 77 6e 20 74 6f 20 74 68 65 20 6e 65 78 | )..."Move.cursor.down.to.the.nex |
| 157780 | 74 20 73 79 6d 62 6f 6c 20 69 6e 20 61 6e 20 60 61 70 72 6f 70 6f 73 2d 6d 6f 64 65 27 20 62 75 | t.symbol.in.an.`apropos-mode'.bu |
| 1577a0 | 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 6e 69 6c 20 73 6c 69 6d 65 2d | ffer."...(interactive.nil.slime- |
| 1577c0 | 61 70 72 6f 70 6f 73 2d 6d 6f 64 65 29 0a 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 0a 20 | apropos-mode)...(forward-line).. |
| 1577e0 | 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 6e 6f 74 20 28 65 71 20 28 66 61 63 65 2d 61 74 2d 70 | .(while.(and.(not.(eq.(face-at-p |
| 157800 | 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 73 79 6d 62 6f 6c 29 29 0a 20 20 | oint).'slime-apropos-symbol))... |
| 157820 | 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 61 | ............(<.(point).(point-ma |
| 157840 | 78 29 29 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 29 29 0a 0a 28 64 65 66 75 | x))).....(forward-line)))..(defu |
| 157860 | 6e 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 70 72 65 76 69 6f 75 73 2d 73 79 6d 62 6f 6c 20 | n.slime-apropos-previous-symbol. |
| 157880 | 28 29 0a 20 20 22 4d 6f 76 65 20 63 75 72 73 6f 72 20 62 61 63 6b 20 74 6f 20 74 68 65 20 6c 61 | ()..."Move.cursor.back.to.the.la |
| 1578a0 | 73 74 20 73 79 6d 62 6f 6c 20 69 6e 20 61 6e 20 60 61 70 72 6f 70 6f 73 2d 6d 6f 64 65 27 20 62 | st.symbol.in.an.`apropos-mode'.b |
| 1578c0 | 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 6e 69 6c 20 73 6c 69 6d 65 | uffer."...(interactive.nil.slime |
| 1578e0 | 2d 61 70 72 6f 70 6f 73 2d 6d 6f 64 65 29 0a 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d | -apropos-mode)...(forward-line.- |
| 157900 | 31 29 0a 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 6e 6f 74 20 28 65 71 20 28 66 61 63 65 2d | 1)...(while.(and.(not.(eq.(face- |
| 157920 | 61 74 2d 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 73 79 6d 62 6f 6c 29 | at-point).'slime-apropos-symbol) |
| 157940 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e | )...............(>.(point).(poin |
| 157960 | 74 2d 6d 69 6e 29 29 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 29 29 | t-min))).....(forward-line.-1))) |
| 157980 | 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 6d 6f 64 65 2d 6d 61 70 | ..(defvar.slime-apropos-mode-map |
| 1579a0 | 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 63 6f 70 79 2d 6b 65 79 6d 61 70 20 62 75 74 74 6f | ...(let.((map.(copy-keymap.butto |
| 1579c0 | 6e 2d 62 75 66 66 65 72 2d 6d 61 70 29 29 29 0a 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d | n-buffer-map))).....(set-keymap- |
| 1579e0 | 70 61 72 65 6e 74 20 6d 61 70 20 61 70 72 6f 70 6f 73 2d 6d 6f 64 65 2d 6d 61 70 29 0a 20 20 20 | parent.map.apropos-mode-map).... |
| 157a00 | 20 3b 3b 20 4d 6f 76 65 6d 65 6e 74 20 6b 65 79 73 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 | .;;.Movement.keys.....(define-ke |
| 157a20 | 79 20 6d 61 70 20 22 6e 22 20 23 27 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 6e 65 78 74 2d 73 | y.map."n".#'slime-apropos-next-s |
| 157a40 | 79 6d 62 6f 6c 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 70 22 20 23 | ymbol).....(define-key.map."p".# |
| 157a60 | 27 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 70 72 65 76 69 6f 75 73 2d 73 79 6d 62 6f 6c 29 0a | 'slime-apropos-previous-symbol). |
| 157a80 | 20 20 20 20 6d 61 70 29 0a 20 20 22 4b 65 79 6d 61 70 20 75 73 65 64 20 69 6e 20 53 6c 69 6d 65 | ....map)..."Keymap.used.in.Slime |
| 157aa0 | 20 41 70 72 6f 70 6f 73 20 6d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 | .Apropos.mode.")..(define-derive |
| 157ac0 | 64 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 6d 6f 64 65 0a 20 20 61 70 72 6f | d-mode.slime-apropos-mode...apro |
| 157ae0 | 70 6f 73 2d 6d 6f 64 65 20 22 53 6c 69 6d 65 20 41 70 72 6f 70 6f 73 22 0a 20 20 22 4d 61 6a 6f | pos-mode."Slime.Apropos"..."Majo |
| 157b00 | 72 20 6d 6f 64 65 20 66 6f 72 20 66 6f 6c 6c 6f 77 69 6e 67 20 68 79 70 65 72 6c 69 6e 6b 73 20 | r.mode.for.following.hyperlinks. |
| 157b20 | 69 6e 20 6f 75 74 70 75 74 20 6f 66 20 53 6c 69 6d 65 20 61 70 72 6f 70 6f 73 20 63 6f 6d 6d 61 | in.output.of.Slime.apropos.comma |
| 157b40 | 6e 64 73 2e 0a 0a 5c 5c 7b 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 6d 6f 64 65 2d 6d 61 70 7d | nds...\\{slime-apropos-mode-map} |
| 157b60 | 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 68 6f 77 2d 61 70 72 6f 70 6f 73 20 28 70 | ")..(defun.slime-show-apropos.(p |
| 157b80 | 6c 69 73 74 73 20 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 20 73 75 6d 6d 61 72 79 29 0a 20 20 | lists.string.package.summary)... |
| 157ba0 | 28 69 66 20 28 6e 75 6c 6c 20 70 6c 69 73 74 73 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 | (if.(null.plists).......(message |
| 157bc0 | 20 22 4e 6f 20 61 70 72 6f 70 6f 73 20 6d 61 74 63 68 65 73 20 66 6f 72 20 25 53 22 20 73 74 72 | ."No.apropos.matches.for.%S".str |
| 157be0 | 69 6e 67 29 0a 20 20 20 20 28 73 65 74 71 20 61 70 72 6f 70 6f 73 2d 2d 63 75 72 72 65 6e 74 20 | ing).....(setq.apropos--current. |
| 157c00 | 28 6c 69 73 74 20 23 27 73 6c 69 6d 65 2d 73 68 6f 77 2d 61 70 72 6f 70 6f 73 20 70 6c 69 73 74 | (list.#'slime-show-apropos.plist |
| 157c20 | 73 20 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 20 73 75 6d 6d 61 72 79 29 29 0a 20 20 20 20 28 | s.string.package.summary)).....( |
| 157c40 | 73 6c 69 6d 65 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 28 73 6c 69 6d 65 2d | slime-with-popup-buffer.((slime- |
| 157c60 | 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 61 70 72 6f 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 | buffer-name.:apropos)........... |
| 157c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 61 63 6b 61 67 65 20 70 61 63 | ....................:package.pac |
| 157ca0 | 6b 61 67 65 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | kage.:connection.t.............. |
| 157cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 61 70 | .................:mode.'slime-ap |
| 157ce0 | 72 6f 70 6f 73 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 69 66 20 28 62 6f 75 6e 64 70 20 27 68 | ropos-mode).......(if.(boundp.'h |
| 157d00 | 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 | eader-line-format)...........(se |
| 157d20 | 74 71 20 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 20 73 75 6d 6d 61 72 79 29 0a 20 | tq.header-line-format.summary).. |
| 157d40 | 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 73 75 6d 6d 61 72 79 20 22 5c 6e 5c 6e 22 29 29 0a | .......(insert.summary."\n\n")). |
| 157d60 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 74 2d 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 29 | ......(slime-set-truncate-lines) |
| 157d80 | 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 69 6e 74 2d 61 70 72 6f 70 6f 73 20 70 6c 69 73 | .......(slime-print-apropos.plis |
| 157da0 | 74 73 29 0a 20 20 20 20 20 20 28 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 69 73 70 | ts).......(set-syntax-table.lisp |
| 157dc0 | 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d | -mode-syntax-table).......(goto- |
| 157de0 | 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c | char.(point-min)))))..(defvar.sl |
| 157e00 | 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 6e 61 6d 65 73 70 61 63 65 73 0a 20 20 27 28 28 3a 76 61 72 | ime-apropos-namespaces...'((:var |
| 157e20 | 69 61 62 6c 65 20 22 56 61 72 69 61 62 6c 65 22 29 0a 20 20 20 20 28 3a 66 75 6e 63 74 69 6f 6e | iable."Variable").....(:function |
| 157e40 | 20 22 46 75 6e 63 74 69 6f 6e 22 29 0a 20 20 20 20 28 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 | ."Function").....(:generic-funct |
| 157e60 | 69 6f 6e 20 22 47 65 6e 65 72 69 63 20 46 75 6e 63 74 69 6f 6e 22 29 0a 20 20 20 20 28 3a 6d 61 | ion."Generic.Function").....(:ma |
| 157e80 | 63 72 6f 20 22 4d 61 63 72 6f 22 29 0a 20 20 20 20 28 3a 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 | cro."Macro").....(:special-opera |
| 157ea0 | 74 6f 72 20 22 53 70 65 63 69 61 6c 20 4f 70 65 72 61 74 6f 72 22 29 0a 20 20 20 20 28 3a 73 65 | tor."Special.Operator").....(:se |
| 157ec0 | 74 66 20 22 53 65 74 66 22 29 0a 20 20 20 20 28 3a 74 79 70 65 20 22 54 79 70 65 22 29 0a 20 20 | tf."Setf").....(:type."Type")... |
| 157ee0 | 20 20 28 3a 63 6c 61 73 73 20 22 43 6c 61 73 73 22 29 0a 20 20 20 20 28 3a 61 6c 69 65 6e 2d 74 | ..(:class."Class").....(:alien-t |
| 157f00 | 79 70 65 20 22 41 6c 69 65 6e 20 74 79 70 65 22 29 0a 20 20 20 20 28 3a 61 6c 69 65 6e 2d 73 74 | ype."Alien.type").....(:alien-st |
| 157f20 | 72 75 63 74 20 22 41 6c 69 65 6e 20 73 74 72 75 63 74 22 29 0a 20 20 20 20 28 3a 61 6c 69 65 6e | ruct."Alien.struct").....(:alien |
| 157f40 | 2d 75 6e 69 6f 6e 20 22 41 6c 69 65 6e 20 74 79 70 65 22 29 0a 20 20 20 20 28 3a 61 6c 69 65 6e | -union."Alien.type").....(:alien |
| 157f60 | 2d 65 6e 75 6d 20 22 41 6c 69 65 6e 20 65 6e 75 6d 22 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 62 | -enum."Alien.enum")))..(define-b |
| 157f80 | 75 74 74 6f 6e 2d 74 79 70 65 20 27 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 73 79 6d 62 6f 6c | utton-type.'slime-apropos-symbol |
| 157fa0 | 0a 20 20 27 68 65 6c 70 2d 65 63 68 6f 20 22 5c 5c 60 6d 6f 75 73 65 2d 32 27 2c 20 5c 5c 60 52 | ...'help-echo."\\`mouse-2',.\\`R |
| 157fc0 | 45 54 27 3a 20 44 69 73 70 6c 61 79 20 6d 6f 72 65 20 68 65 6c 70 20 6f 6e 20 74 68 69 73 20 73 | ET':.Display.more.help.on.this.s |
| 157fe0 | 79 6d 62 6f 6c 22 0a 20 20 27 66 6f 6c 6c 6f 77 2d 6c 69 6e 6b 20 74 0a 20 20 27 66 61 63 65 20 | ymbol"...'follow-link.t...'face. |
| 158000 | 27 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 6c 61 62 65 6c 0a 20 20 27 6d 6f 75 73 65 2d 66 61 | 'slime-apropos-label...'mouse-fa |
| 158020 | 63 65 20 27 68 69 67 68 6c 69 67 68 74 0a 20 20 27 61 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 63 | ce.'highlight...'action.'slime-c |
| 158040 | 61 6c 6c 2d 64 65 73 63 72 69 62 65 72 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 70 72 69 | all-describer)..(defun.slime-pri |
| 158060 | 6e 74 2d 61 70 72 6f 70 6f 73 20 28 70 6c 69 73 74 73 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 70 | nt-apropos.(plists)...(dolist.(p |
| 158080 | 6c 69 73 74 20 70 6c 69 73 74 73 29 0a 20 20 20 20 28 6c 65 74 20 28 28 64 65 73 69 67 6e 61 74 | list.plists).....(let.((designat |
| 1580a0 | 6f 72 20 28 70 6c 69 73 74 2d 67 65 74 20 70 6c 69 73 74 20 3a 64 65 73 69 67 6e 61 74 6f 72 29 | or.(plist-get.plist.:designator) |
| 1580c0 | 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 64 65 73 69 67 6e 61 74 6f 72 29 0a | )).......(cl-assert.designator). |
| 1580e0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 64 20 | ......(slime-insert-propertized. |
| 158100 | 60 28 66 61 63 65 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 73 79 6d 62 6f 6c 29 20 64 65 73 | `(face.slime-apropos-symbol).des |
| 158120 | 69 67 6e 61 74 6f 72 29 29 0a 20 20 20 20 28 74 65 72 70 72 69 29 0a 20 20 20 20 28 63 6c 2d 6c | ignator)).....(terpri).....(cl-l |
| 158140 | 6f 6f 70 20 66 6f 72 20 28 70 72 6f 70 20 76 61 6c 75 65 29 20 6f 6e 20 70 6c 69 73 74 20 62 79 | oop.for.(prop.value).on.plist.by |
| 158160 | 20 23 27 63 64 64 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 6c 65 73 73 20 28 65 71 20 | .#'cddr..............unless.(eq. |
| 158180 | 70 72 6f 70 20 3a 64 65 73 69 67 6e 61 74 6f 72 29 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 | prop.:designator).do............ |
| 1581a0 | 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 73 70 61 63 65 20 28 63 61 64 72 20 28 6f 72 20 28 61 73 | ..(let.((namespace.(cadr.(or.(as |
| 1581c0 | 73 71 20 70 72 6f 70 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 6e 61 6d 65 73 70 61 63 65 73 | sq.prop.slime-apropos-namespaces |
| 1581e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 158200 | 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 70 72 6f 70 65 72 | ..........(error."Unknown.proper |
| 158220 | 74 79 3a 20 25 53 22 20 70 72 6f 70 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ty:.%S".prop)))))............... |
| 158240 | 20 28 70 72 69 6e 63 20 22 20 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e | .(princ."..")................(in |
| 158260 | 73 65 72 74 2d 74 65 78 74 2d 62 75 74 74 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sert-text-button................ |
| 158280 | 20 6e 61 6d 65 73 70 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 74 79 70 65 | .namespace.................'type |
| 1582a0 | 20 27 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 | .'slime-apropos-symbol.......... |
| 1582c0 | 20 20 20 20 20 20 20 27 62 75 74 74 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......'button.t................ |
| 1582e0 | 20 27 61 70 72 6f 70 6f 73 2d 6c 61 62 65 6c 20 6e 61 6d 65 73 70 61 63 65 0a 20 20 20 20 20 20 | .'apropos-label.namespace....... |
| 158300 | 20 20 20 20 20 20 20 20 20 20 27 69 74 65 6d 2d 74 79 70 65 20 70 72 6f 70 0a 20 20 20 20 20 20 | ..........'item-type.prop....... |
| 158320 | 20 20 20 20 20 20 20 20 20 20 27 69 74 65 6d 20 28 70 6c 69 73 74 2d 67 65 74 20 70 6c 69 73 74 | ..........'item.(plist-get.plist |
| 158340 | 20 3a 64 65 73 69 67 6e 61 74 6f 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | .:designator))................(p |
| 158360 | 72 69 6e 63 20 22 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 63 | rinc.":.")................(princ |
| 158380 | 20 28 63 6c 2d 65 74 79 70 65 63 61 73 65 20 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 | .(cl-etypecase.value............ |
| 1583a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 76 61 6c 75 65 29 0a 20 20 20 20 | .............(string.value)..... |
| 1583c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 6e 69 6c | ....................((member.nil |
| 1583e0 | 20 3a 6e 6f 74 2d 64 6f 63 75 6d 65 6e 74 65 64 29 20 22 28 6e 6f 74 20 64 6f 63 75 6d 65 6e 74 | .:not-documented)."(not.document |
| 158400 | 65 64 29 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 65 72 70 72 69 29 29 | ed)")))................(terpri)) |
| 158420 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 61 6c 6c 2d 64 65 73 63 72 69 62 65 72 | )))..(defun.slime-call-describer |
| 158440 | 20 28 61 72 67 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 6f 73 20 28 69 66 20 28 6d 61 72 6b 65 72 | .(arg)...(let*.((pos.(if.(marker |
| 158460 | 70 20 61 72 67 29 20 61 72 67 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 | p.arg).arg.(point)))..........(t |
| 158480 | 79 70 65 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 6f 73 20 27 69 74 65 6d | ype.(get-text-property.pos.'item |
| 1584a0 | 2d 74 79 70 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 74 65 6d 20 28 67 65 74 2d 74 65 78 74 | -type))..........(item.(get-text |
| 1584c0 | 2d 70 72 6f 70 65 72 74 79 20 70 6f 73 20 27 69 74 65 6d 29 29 29 0a 20 20 20 20 28 73 6c 69 6d | -property.pos.'item))).....(slim |
| 1584e0 | 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 20 60 28 73 77 61 6e 6b 3a 64 65 73 63 72 69 62 65 | e-eval-describe.`(swank:describe |
| 158500 | 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 6f 72 2d 65 6d 61 63 73 20 2c 69 74 65 6d 20 2c 74 79 70 | -definition-for-emacs.,item.,typ |
| 158520 | 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 66 6f 20 28 29 0a 20 20 22 4f | e))))..(defun.slime-info.()..."O |
| 158540 | 70 65 6e 20 53 6c 69 6d 65 20 6d 61 6e 75 61 6c 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | pen.Slime.manual"...(interactive |
| 158560 | 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d | )...(let.((file.(expand-file-nam |
| 158580 | 65 20 22 64 6f 63 2f 73 6c 69 6d 65 2e 69 6e 66 6f 22 20 73 6c 69 6d 65 2d 70 61 74 68 29 29 29 | e."doc/slime.info".slime-path))) |
| 1585a0 | 0a 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6c 65 29 0a 20 20 | .....(if.(file-exists-p.file)... |
| 1585c0 | 20 20 20 20 20 20 28 69 6e 66 6f 20 66 69 6c 65 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 | ......(info.file).......(message |
| 1585e0 | 20 22 4e 6f 20 73 6c 69 6d 65 2e 69 6e 66 6f 2c 20 72 75 6e 20 60 6d 61 6b 65 20 73 6c 69 6d 65 | ."No.slime.info,.run.`make.slime |
| 158600 | 2e 69 6e 66 6f 27 20 69 6e 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 | .info'.in.%s"................(ex |
| 158620 | 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 64 6f 63 2f 22 20 73 6c 69 6d 65 2d 70 61 74 68 | pand-file-name."doc/".slime-path |
| 158640 | 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 58 52 45 46 3a 20 63 72 6f 73 73 2d 72 65 66 65 72 65 | )))))....;;;;.XREF:.cross-refere |
| 158660 | 6e 63 69 6e 67 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 78 72 65 66 2d 6d 6f 64 65 2d 6d | ncing..(defvar.slime-xref-mode-m |
| 158680 | 61 70 29 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d | ap)..(define-derived-mode.slime- |
| 1586a0 | 78 72 65 66 2d 6d 6f 64 65 20 6c 69 73 70 2d 6d 6f 64 65 20 22 58 72 65 66 22 0a 20 20 22 73 6c | xref-mode.lisp-mode."Xref"..."sl |
| 1586c0 | 69 6d 65 2d 78 72 65 66 2d 6d 6f 64 65 3a 20 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 63 72 | ime-xref-mode:.Major.mode.for.cr |
| 1586e0 | 6f 73 73 2d 72 65 66 65 72 65 6e 63 69 6e 67 2e 0a 5c 5c 3c 73 6c 69 6d 65 2d 78 72 65 66 2d 6d | oss-referencing..\\<slime-xref-m |
| 158700 | 6f 64 65 2d 6d 61 70 3e 5c 0a 54 68 65 20 6d 6f 73 74 20 69 6d 70 6f 72 74 61 6e 74 20 63 6f 6d | ode-map>\.The.most.important.com |
| 158720 | 6d 61 6e 64 73 3a 0a 5c 5c 5b 73 6c 69 6d 65 2d 78 72 65 66 2d 71 75 69 74 5d 09 2d 20 44 69 73 | mands:.\\[slime-xref-quit].-.Dis |
| 158740 | 6d 69 73 73 20 62 75 66 66 65 72 2e 0a 5c 5c 5b 73 6c 69 6d 65 2d 73 68 6f 77 2d 78 72 65 66 5d | miss.buffer..\\[slime-show-xref] |
| 158760 | 09 2d 20 44 69 73 70 6c 61 79 20 72 65 66 65 72 65 6e 63 65 64 20 73 6f 75 72 63 65 20 61 6e 64 | .-.Display.referenced.source.and |
| 158780 | 20 6b 65 65 70 20 78 72 65 66 20 77 69 6e 64 6f 77 2e 0a 5c 5c 5b 73 6c 69 6d 65 2d 67 6f 74 6f | .keep.xref.window..\\[slime-goto |
| 1587a0 | 2d 78 72 65 66 5d 09 2d 20 4a 75 6d 70 20 74 6f 20 72 65 66 65 72 65 6e 63 65 64 20 73 6f 75 72 | -xref].-.Jump.to.referenced.sour |
| 1587c0 | 63 65 20 61 6e 64 20 64 69 73 6d 69 73 73 20 78 72 65 66 20 77 69 6e 64 6f 77 2e 0a 0a 5c 5c 7b | ce.and.dismiss.xref.window...\\{ |
| 1587e0 | 73 6c 69 6d 65 2d 78 72 65 66 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 5c 5c 7b 73 6c 69 6d 65 2d 70 6f | slime-xref-mode-map}.\\{slime-po |
| 158800 | 70 75 70 2d 62 75 66 66 65 72 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 22 0a 20 20 28 73 6c 69 6d 65 2d | pup-buffer-mode-map}."...(slime- |
| 158820 | 70 6f 70 75 70 2d 62 75 66 66 65 72 2d 6d 6f 64 65 29 0a 20 20 28 73 65 74 71 20 66 6f 6e 74 2d | popup-buffer-mode)...(setq.font- |
| 158840 | 6c 6f 63 6b 2d 64 65 66 61 75 6c 74 73 20 6e 69 6c 29 0a 20 20 28 73 65 74 71 20 64 65 6c 61 79 | lock-defaults.nil)...(setq.delay |
| 158860 | 65 64 2d 6d 6f 64 65 2d 68 6f 6f 6b 73 20 6e 69 6c 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 6f 64 65 | ed-mode-hooks.nil)...(slime-mode |
| 158880 | 20 2d 31 29 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 69 6d 65 2d | .-1))..(slime-define-keys.slime- |
| 1588a0 | 78 72 65 66 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 28 6b 62 64 20 22 52 45 54 22 29 20 27 73 6c | xref-mode-map...((kbd."RET").'sl |
| 1588c0 | 69 6d 65 2d 67 6f 74 6f 2d 78 72 65 66 29 0a 20 20 28 28 6b 62 64 20 22 53 50 43 22 29 20 27 73 | ime-goto-xref)...((kbd."SPC").'s |
| 1588e0 | 6c 69 6d 65 2d 67 6f 74 6f 2d 78 72 65 66 29 0a 20 20 28 22 76 22 20 27 73 6c 69 6d 65 2d 73 68 | lime-goto-xref)...("v".'slime-sh |
| 158900 | 6f 77 2d 78 72 65 66 29 0a 20 20 28 22 6e 22 20 27 73 6c 69 6d 65 2d 78 72 65 66 2d 6e 65 78 74 | ow-xref)...("n".'slime-xref-next |
| 158920 | 2d 6c 69 6e 65 29 0a 20 20 28 22 70 22 20 27 73 6c 69 6d 65 2d 78 72 65 66 2d 70 72 65 76 2d 6c | -line)...("p".'slime-xref-prev-l |
| 158940 | 69 6e 65 29 0a 20 20 28 22 2e 22 20 27 73 6c 69 6d 65 2d 78 72 65 66 2d 6e 65 78 74 2d 6c 69 6e | ine)...(".".'slime-xref-next-lin |
| 158960 | 65 29 0a 20 20 28 22 2c 22 20 27 73 6c 69 6d 65 2d 78 72 65 66 2d 70 72 65 76 2d 6c 69 6e 65 29 | e)...(",".'slime-xref-prev-line) |
| 158980 | 0a 20 20 28 22 5c 43 2d 63 5c 43 2d 63 22 20 27 73 6c 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d | ...("\C-c\C-c".'slime-recompile- |
| 1589a0 | 78 72 65 66 29 0a 20 20 28 22 5c 43 2d 63 5c 43 2d 6b 22 20 27 73 6c 69 6d 65 2d 72 65 63 6f 6d | xref)...("\C-c\C-k".'slime-recom |
| 1589c0 | 70 69 6c 65 2d 61 6c 6c 2d 78 72 65 66 73 29 0a 20 20 28 22 5c 4d 2d 2c 22 20 27 73 6c 69 6d 65 | pile-all-xrefs)...("\M-,".'slime |
| 1589e0 | 2d 78 72 65 66 2d 72 65 74 72 61 63 74 29 0a 20 20 28 5b 72 65 6d 61 70 20 6e 65 78 74 2d 6c 69 | -xref-retract)...([remap.next-li |
| 158a00 | 6e 65 5d 20 27 73 6c 69 6d 65 2d 78 72 65 66 2d 6e 65 78 74 2d 6c 69 6e 65 29 0a 20 20 28 5b 72 | ne].'slime-xref-next-line)...([r |
| 158a20 | 65 6d 61 70 20 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 5d 20 27 73 6c 69 6d 65 2d 78 72 65 66 2d | emap.previous-line].'slime-xref- |
| 158a40 | 70 72 65 76 2d 6c 69 6e 65 29 0a 20 20 28 5b 6d 6f 75 73 65 2d 31 5d 20 27 73 6c 69 6d 65 2d 6d | prev-line)...([mouse-1].'slime-m |
| 158a60 | 6f 75 73 65 2d 73 68 6f 77 2d 78 72 65 66 29 0a 20 20 28 5b 6d 6f 75 73 65 2d 33 5d 20 27 73 6c | ouse-show-xref)...([mouse-3].'sl |
| 158a80 | 69 6d 65 2d 6d 6f 75 73 65 2d 67 6f 74 6f 2d 78 72 65 66 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 58 | ime-mouse-goto-xref))....;;;;;.X |
| 158aa0 | 52 45 46 20 72 65 73 75 6c 74 73 20 62 75 66 66 65 72 20 61 6e 64 20 77 69 6e 64 6f 77 20 6d 61 | REF.results.buffer.and.window.ma |
| 158ac0 | 6e 61 67 65 6d 65 6e 74 0a 0a 28 63 6c 2d 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 77 69 74 | nagement..(cl-defmacro.slime-wit |
| 158ae0 | 68 2d 78 72 65 66 2d 62 75 66 66 65 72 20 28 28 5f 78 72 65 66 2d 74 79 70 65 20 5f 73 79 6d 62 | h-xref-buffer.((_xref-type._symb |
| 158b00 | 6f 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ol.&optional.package)........... |
| 158b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 62 6f 64 79 | ...........................&body |
| 158b40 | 20 62 6f 64 79 29 0a 20 20 22 45 78 65 63 75 74 65 20 42 4f 44 59 20 69 6e 20 61 20 78 72 65 66 | .body)..."Execute.BODY.in.a.xref |
| 158b60 | 20 62 75 66 66 65 72 2c 20 74 68 65 6e 20 73 68 6f 77 20 74 68 61 74 20 62 75 66 66 65 72 2e 22 | .buffer,.then.show.that.buffer." |
| 158b80 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 29 0a 20 20 60 28 73 6c 69 6d | ...(declare.(indent.1))...`(slim |
| 158ba0 | 65 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 28 73 6c 69 6d 65 2d 62 75 66 66 | e-with-popup-buffer.((slime-buff |
| 158bc0 | 65 72 2d 6e 61 6d 65 20 3a 78 72 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er-name.:xref).................. |
| 158be0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 61 63 6b 61 67 65 20 2c 70 61 63 6b 61 67 65 0a 20 20 | ............:package.,package... |
| 158c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6e 6e | ...........................:conn |
| 158c20 | 65 63 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ection.t........................ |
| 158c40 | 20 20 20 20 20 20 3a 73 65 6c 65 63 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......:select.t................. |
| 158c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 78 72 65 66 2d 6d | .............:mode.'slime-xref-m |
| 158c80 | 6f 64 65 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 74 2d 74 72 75 6e 63 61 74 65 2d 6c 69 | ode)......(slime-set-truncate-li |
| 158ca0 | 6e 65 73 29 0a 20 20 20 20 20 2c 40 62 6f 64 79 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | nes)......,@body))..(defun.slime |
| 158cc0 | 2d 69 6e 73 65 72 74 2d 78 72 65 66 73 20 28 78 72 65 66 2d 61 6c 69 73 74 29 0a 20 20 22 49 6e | -insert-xrefs.(xref-alist)..."In |
| 158ce0 | 73 65 72 74 20 58 52 45 46 2d 41 4c 49 53 54 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 2d 62 | sert.XREF-ALIST.in.the.current-b |
| 158d00 | 75 66 66 65 72 2e 0a 58 52 45 46 2d 41 4c 49 53 54 20 69 73 20 6f 66 20 74 68 65 20 66 6f 72 6d | uffer..XREF-ALIST.is.of.the.form |
| 158d20 | 20 28 28 47 52 4f 55 50 20 2e 20 28 28 4c 41 42 45 4c 20 4c 4f 43 41 54 49 4f 4e 29 20 2e 2e 2e | .((GROUP...((LABEL.LOCATION).... |
| 158d40 | 29 29 20 2e 2e 2e 29 2e 0a 47 52 4f 55 50 20 61 6e 64 20 4c 41 42 45 4c 20 61 72 65 20 66 6f 72 | ))....)..GROUP.and.LABEL.are.for |
| 158d60 | 20 64 65 63 6f 72 61 74 69 6f 6e 20 70 75 72 70 6f 73 65 73 2e 20 20 4c 4f 43 41 54 49 4f 4e 20 | .decoration.purposes...LOCATION. |
| 158d80 | 69 73 20 61 0a 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f | is.a.source-location."...(cl-loo |
| 158da0 | 70 20 66 6f 72 20 28 67 72 6f 75 70 20 2e 20 72 65 66 73 29 20 69 6e 20 78 72 65 66 2d 61 6c 69 | p.for.(group...refs).in.xref-ali |
| 158dc0 | 73 74 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 | st.do............(slime-insert-p |
| 158de0 | 72 6f 70 65 72 74 69 7a 65 64 20 27 28 66 61 63 65 20 62 6f 6c 64 29 20 67 72 6f 75 70 20 22 5c | ropertized.'(face.bold).group."\ |
| 158e00 | 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6c 61 62 | n")............(cl-loop.for.(lab |
| 158e20 | 65 6c 20 6c 6f 63 61 74 69 6f 6e 29 20 69 6e 20 72 65 66 73 20 64 6f 0a 20 20 20 20 20 20 20 20 | el.location).in.refs.do......... |
| 158e40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 | ............(slime-propertize-re |
| 158e60 | 67 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | gion......................(list. |
| 158e80 | 27 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 | 'slime-location.location........ |
| 158ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 66 6f 6e 74 2d | ....................'face.'font- |
| 158ec0 | 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | lock-keyword-face).............. |
| 158ee0 | 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 | ........(insert."..")........... |
| 158f00 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 | ...........(slime-insert-propert |
| 158f20 | 69 7a 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 6d 6f 75 | ized.......................'(mou |
| 158f40 | 73 65 2d 66 61 63 65 20 68 69 67 68 6c 69 67 68 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | se-face.highlight).............. |
| 158f60 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6f 6e 65 2d 6c 69 6e 65 2d 69 66 79 20 6c 61 62 | .........(slime-one-line-ify.lab |
| 158f80 | 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 | el))......................(inser |
| 158fa0 | 74 20 22 5c 6e 22 29 29 29 29 0a 20 20 3b 3b 20 52 65 6d 6f 76 65 20 74 68 65 20 66 69 6e 61 6c | t."\n"))))...;;.Remove.the.final |
| 158fc0 | 20 6e 65 77 6c 69 6e 65 20 74 6f 20 70 72 65 76 65 6e 74 20 61 63 63 69 64 65 6e 74 61 6c 20 77 | .newline.to.prevent.accidental.w |
| 158fe0 | 69 6e 64 6f 77 2d 73 63 72 6f 6c 6c 69 6e 67 0a 20 20 28 62 61 63 6b 77 61 72 64 2d 64 65 6c 65 | indow-scrolling...(backward-dele |
| 159000 | 74 65 2d 63 68 61 72 20 31 29 0a 20 20 28 69 6e 73 65 72 74 20 22 20 22 29 29 0a 0a 28 64 65 66 | te-char.1)...(insert."."))..(def |
| 159020 | 75 6e 20 73 6c 69 6d 65 2d 78 72 65 66 2d 6e 65 78 74 2d 6c 69 6e 65 20 28 29 0a 20 20 28 69 6e | un.slime-xref-next-line.()...(in |
| 159040 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 78 72 65 66 2d 73 68 6f 77 2d 6c 6f | teractive)...(slime-xref-show-lo |
| 159060 | 63 61 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 70 72 6f 70 65 72 74 79 20 27 73 | cation.(slime-search-property.'s |
| 159080 | 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 78 | lime-location)))..(defun.slime-x |
| 1590a0 | 72 65 66 2d 70 72 65 76 2d 6c 69 6e 65 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | ref-prev-line.()...(interactive) |
| 1590c0 | 0a 20 20 28 73 6c 69 6d 65 2d 78 72 65 66 2d 73 68 6f 77 2d 6c 6f 63 61 74 69 6f 6e 20 28 73 6c | ...(slime-xref-show-location.(sl |
| 1590e0 | 69 6d 65 2d 73 65 61 72 63 68 2d 70 72 6f 70 65 72 74 79 20 27 73 6c 69 6d 65 2d 6c 6f 63 61 74 | ime-search-property.'slime-locat |
| 159100 | 69 6f 6e 20 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 78 72 65 66 2d 73 68 6f 77 | ion.t)))..(defun.slime-xref-show |
| 159120 | 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 6f 63 29 0a 20 20 28 63 6c 2d 65 63 61 73 65 20 28 63 61 72 | -location.(loc)...(cl-ecase.(car |
| 159140 | 20 6c 6f 63 29 0a 20 20 20 20 28 3a 6c 6f 63 61 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 73 68 6f 77 | .loc).....(:location.(slime-show |
| 159160 | 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 20 6e 69 6c 20 31 29 29 0a 20 20 20 | -source-location.loc.nil.1)).... |
| 159180 | 20 28 3a 65 72 72 6f 72 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 28 63 61 64 72 20 6c 6f 63 | .(:error.(message."%s".(cadr.loc |
| 1591a0 | 29 29 29 0a 20 20 20 20 28 28 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 | ))).....((nil))))..(defvar.slime |
| 1591c0 | 2d 6e 65 78 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 0a 20 20 22 46 | -next-location-function.nil..."F |
| 1591e0 | 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c 20 66 6f 72 20 67 6f 69 6e 67 20 74 6f 20 74 68 65 | unction.to.call.for.going.to.the |
| 159200 | 20 6e 65 78 74 20 6c 6f 63 61 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 | .next.location.")..(defvar.slime |
| 159220 | 2d 70 72 65 76 69 6f 75 73 2d 6c 6f 63 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 0a | -previous-location-function.nil. |
| 159240 | 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c 20 66 6f 72 20 67 6f 69 6e 67 20 74 6f | .."Function.to.call.for.going.to |
| 159260 | 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6c 6f 63 61 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 76 | .the.previous.location.")..(defv |
| 159280 | 61 72 20 73 6c 69 6d 65 2d 78 72 65 66 2d 6c 61 73 74 2d 62 75 66 66 65 72 20 6e 69 6c 0a 20 20 | ar.slime-xref-last-buffer.nil... |
| 1592a0 | 22 54 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 58 52 45 46 20 72 65 73 75 6c 74 73 20 62 75 | "The.most.recent.XREF.results.bu |
| 1592c0 | 66 66 65 72 2e 0a 54 68 69 73 20 69 73 20 75 73 65 64 20 62 79 20 60 73 6c 69 6d 65 2d 67 6f 74 | ffer..This.is.used.by.`slime-got |
| 1592e0 | 6f 2d 6e 65 78 74 2d 78 72 65 66 27 22 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 68 6f | o-next-xref'")..(defun.slime-sho |
| 159300 | 77 2d 78 72 65 66 2d 62 75 66 66 65 72 20 28 78 72 65 66 73 20 5f 74 79 70 65 20 5f 73 79 6d 62 | w-xref-buffer.(xrefs._type._symb |
| 159320 | 6f 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 78 72 65 66 2d 62 | ol.package)...(slime-with-xref-b |
| 159340 | 75 66 66 65 72 20 28 5f 74 79 70 65 20 5f 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 | uffer.(_type._symbol.package)... |
| 159360 | 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 78 72 65 66 73 20 78 72 65 66 73 29 0a 20 20 20 | ..(slime-insert-xrefs.xrefs).... |
| 159380 | 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 6e 65 78 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 75 6e 63 74 | .(setq.slime-next-location-funct |
| 1593a0 | 69 6f 6e 20 27 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6e 65 78 74 2d 78 72 65 66 29 0a 20 20 20 20 28 | ion.'slime-goto-next-xref).....( |
| 1593c0 | 73 65 74 71 20 73 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 6c 6f 63 61 74 69 6f 6e 2d 66 75 6e | setq.slime-previous-location-fun |
| 1593e0 | 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 67 6f 74 6f 2d 70 72 65 76 69 6f 75 73 2d 78 72 65 66 29 | ction.'slime-goto-previous-xref) |
| 159400 | 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 78 72 65 66 2d 6c 61 73 74 2d 62 75 66 66 65 | .....(setq.slime-xref-last-buffe |
| 159420 | 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 | r.(current-buffer)).....(goto-ch |
| 159440 | 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | ar.(point-min))))..(defun.slime- |
| 159460 | 73 68 6f 77 2d 78 72 65 66 73 20 28 78 72 65 66 73 20 74 79 70 65 20 73 79 6d 62 6f 6c 20 70 61 | show-xrefs.(xrefs.type.symbol.pa |
| 159480 | 63 6b 61 67 65 29 0a 20 20 22 53 68 6f 77 20 74 68 65 20 72 65 73 75 6c 74 73 20 6f 66 20 61 6e | ckage)..."Show.the.results.of.an |
| 1594a0 | 20 58 52 45 46 20 71 75 65 72 79 2e 22 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 78 72 65 66 73 29 | .XREF.query."...(if.(null.xrefs) |
| 1594c0 | 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 72 65 66 65 72 65 6e 63 65 73 20 66 | .......(message."No.references.f |
| 1594e0 | 6f 75 6e 64 20 66 6f 72 20 25 73 2e 22 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 28 73 6c 69 6d 65 | ound.for.%s.".symbol).....(slime |
| 159500 | 2d 73 68 6f 77 2d 78 72 65 66 2d 62 75 66 66 65 72 20 78 72 65 66 73 20 74 79 70 65 20 73 79 6d | -show-xref-buffer.xrefs.type.sym |
| 159520 | 62 6f 6c 20 70 61 63 6b 61 67 65 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 58 52 45 46 20 63 6f 6d | bol.package)))....;;;;;.XREF.com |
| 159540 | 6d 61 6e 64 73 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 77 68 6f 2d 63 61 6c 6c 73 20 28 73 | mands..(defun.slime-who-calls.(s |
| 159560 | 79 6d 62 6f 6c 29 0a 20 20 22 53 68 6f 77 20 61 6c 6c 20 6b 6e 6f 77 6e 20 63 61 6c 6c 65 72 73 | ymbol)..."Show.all.known.callers |
| 159580 | 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 53 59 4d 42 4f 4c 2e 22 0a 20 20 28 69 6e 74 | .of.the.function.SYMBOL."...(int |
| 1595a0 | 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f | eractive.(list.(slime-read-symbo |
| 1595c0 | 6c 2d 6e 61 6d 65 20 22 57 68 6f 20 63 61 6c 6c 73 3a 20 22 20 74 29 29 29 0a 20 20 28 73 6c 69 | l-name."Who.calls:.".t)))...(sli |
| 1595e0 | 6d 65 2d 78 72 65 66 20 3a 63 61 6c 6c 73 20 73 79 6d 62 6f 6c 29 29 0a 0a 28 64 65 66 75 6e 20 | me-xref.:calls.symbol))..(defun. |
| 159600 | 73 6c 69 6d 65 2d 63 61 6c 6c 73 2d 77 68 6f 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 53 68 6f 77 | slime-calls-who.(symbol)..."Show |
| 159620 | 20 61 6c 6c 20 6b 6e 6f 77 6e 20 66 75 6e 63 74 69 6f 6e 73 20 63 61 6c 6c 65 64 20 62 79 20 74 | .all.known.functions.called.by.t |
| 159640 | 68 65 20 66 75 6e 63 74 69 6f 6e 20 53 59 4d 42 4f 4c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | he.function.SYMBOL."...(interact |
| 159660 | 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d | ive.(list.(slime-read-symbol-nam |
| 159680 | 65 20 22 57 68 6f 20 63 61 6c 6c 73 3a 20 22 20 74 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 78 72 | e."Who.calls:.".t)))...(slime-xr |
| 1596a0 | 65 66 20 3a 63 61 6c 6c 73 2d 77 68 6f 20 73 79 6d 62 6f 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 | ef.:calls-who.symbol))..(defun.s |
| 1596c0 | 6c 69 6d 65 2d 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 | lime-who-references.(symbol)..." |
| 1596e0 | 53 68 6f 77 20 61 6c 6c 20 6b 6e 6f 77 6e 20 72 65 66 65 72 72 65 72 73 20 6f 66 20 74 68 65 20 | Show.all.known.referrers.of.the. |
| 159700 | 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 53 59 4d 42 4f 4c 2e 22 0a 20 20 28 69 6e 74 65 | global.variable.SYMBOL."...(inte |
| 159720 | 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c | ractive.(list.(slime-read-symbol |
| 159740 | 2d 6e 61 6d 65 20 22 57 68 6f 20 72 65 66 65 72 65 6e 63 65 73 3a 20 22 20 74 29 29 29 0a 20 20 | -name."Who.references:.".t)))... |
| 159760 | 28 73 6c 69 6d 65 2d 78 72 65 66 20 3a 72 65 66 65 72 65 6e 63 65 73 20 73 79 6d 62 6f 6c 29 29 | (slime-xref.:references.symbol)) |
| 159780 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 77 68 6f 2d 62 69 6e 64 73 20 28 73 79 6d 62 6f 6c | ..(defun.slime-who-binds.(symbol |
| 1597a0 | 29 0a 20 20 22 53 68 6f 77 20 61 6c 6c 20 6b 6e 6f 77 6e 20 62 69 6e 64 65 72 73 20 6f 66 20 74 | )..."Show.all.known.binders.of.t |
| 1597c0 | 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 53 59 4d 42 4f 4c 2e 22 0a 20 20 28 69 | he.global.variable.SYMBOL."...(i |
| 1597e0 | 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d | nteractive.(list.(slime-read-sym |
| 159800 | 62 6f 6c 2d 6e 61 6d 65 20 22 57 68 6f 20 62 69 6e 64 73 3a 20 22 20 74 29 29 29 0a 20 20 28 73 | bol-name."Who.binds:.".t)))...(s |
| 159820 | 6c 69 6d 65 2d 78 72 65 66 20 3a 62 69 6e 64 73 20 73 79 6d 62 6f 6c 29 29 0a 0a 28 64 65 66 75 | lime-xref.:binds.symbol))..(defu |
| 159840 | 6e 20 73 6c 69 6d 65 2d 77 68 6f 2d 73 65 74 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 53 68 6f | n.slime-who-sets.(symbol)..."Sho |
| 159860 | 77 20 61 6c 6c 20 6b 6e 6f 77 6e 20 73 65 74 74 65 72 73 20 6f 66 20 74 68 65 20 67 6c 6f 62 61 | w.all.known.setters.of.the.globa |
| 159880 | 6c 20 76 61 72 69 61 62 6c 65 20 53 59 4d 42 4f 4c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | l.variable.SYMBOL."...(interacti |
| 1598a0 | 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | ve.(list.(slime-read-symbol-name |
| 1598c0 | 20 22 57 68 6f 20 73 65 74 73 3a 20 22 20 74 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 78 72 65 66 | ."Who.sets:.".t)))...(slime-xref |
| 1598e0 | 20 3a 73 65 74 73 20 73 79 6d 62 6f 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 77 68 | .:sets.symbol))..(defun.slime-wh |
| 159900 | 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 53 68 6f 77 20 | o-macroexpands.(symbol)..."Show. |
| 159920 | 61 6c 6c 20 6b 6e 6f 77 6e 20 65 78 70 61 6e 64 65 72 73 20 6f 66 20 74 68 65 20 6d 61 63 72 6f | all.known.expanders.of.the.macro |
| 159940 | 20 53 59 4d 42 4f 4c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 | .SYMBOL."...(interactive.(list.( |
| 159960 | 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 57 68 6f 20 6d 61 63 72 | slime-read-symbol-name."Who.macr |
| 159980 | 6f 65 78 70 61 6e 64 73 3a 20 22 20 74 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 78 72 65 66 20 3a | oexpands:.".t)))...(slime-xref.: |
| 1599a0 | 6d 61 63 72 6f 65 78 70 61 6e 64 73 20 73 79 6d 62 6f 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | macroexpands.symbol))..(defun.sl |
| 1599c0 | 69 6d 65 2d 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 | ime-who-specializes.(symbol)..." |
| 1599e0 | 53 68 6f 77 20 61 6c 6c 20 6b 6e 6f 77 6e 20 6d 65 74 68 6f 64 73 20 73 70 65 63 69 61 6c 69 7a | Show.all.known.methods.specializ |
| 159a00 | 65 64 20 6f 6e 20 63 6c 61 73 73 20 53 59 4d 42 4f 4c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | ed.on.class.SYMBOL."...(interact |
| 159a20 | 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d | ive.(list.(slime-read-symbol-nam |
| 159a40 | 65 20 22 57 68 6f 20 73 70 65 63 69 61 6c 69 7a 65 73 3a 20 22 20 74 29 29 29 0a 20 20 28 73 6c | e."Who.specializes:.".t)))...(sl |
| 159a60 | 69 6d 65 2d 78 72 65 66 20 3a 73 70 65 63 69 61 6c 69 7a 65 73 20 73 79 6d 62 6f 6c 29 29 0a 0a | ime-xref.:specializes.symbol)).. |
| 159a80 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 61 6c 6c 65 72 73 20 28 73 79 6d 62 6f | (defun.slime-list-callers.(symbo |
| 159aa0 | 6c 2d 6e 61 6d 65 29 0a 20 20 22 4c 69 73 74 20 74 68 65 20 63 61 6c 6c 65 72 73 20 6f 66 20 53 | l-name)..."List.the.callers.of.S |
| 159ac0 | 59 4d 42 4f 4c 2d 4e 41 4d 45 20 69 6e 20 61 20 78 72 65 66 20 77 69 6e 64 6f 77 2e 22 0a 20 20 | YMBOL-NAME.in.a.xref.window."... |
| 159ae0 | 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 | (interactive.(list.(slime-read-s |
| 159b00 | 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 4c 69 73 74 20 63 61 6c 6c 65 72 73 3a 20 22 29 29 29 0a 20 | ymbol-name."List.callers:."))).. |
| 159b20 | 20 28 73 6c 69 6d 65 2d 78 72 65 66 20 3a 63 61 6c 6c 65 72 73 20 73 79 6d 62 6f 6c 2d 6e 61 6d | .(slime-xref.:callers.symbol-nam |
| 159b40 | 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 61 6c 6c 65 65 73 20 28 | e))..(defun.slime-list-callees.( |
| 159b60 | 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 22 4c 69 73 74 20 74 68 65 20 63 61 6c 6c 65 65 73 | symbol-name)..."List.the.callees |
| 159b80 | 20 6f 66 20 53 59 4d 42 4f 4c 2d 4e 41 4d 45 20 69 6e 20 61 20 78 72 65 66 20 77 69 6e 64 6f 77 | .of.SYMBOL-NAME.in.a.xref.window |
| 159ba0 | 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 | ."...(interactive.(list.(slime-r |
| 159bc0 | 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 4c 69 73 74 20 63 61 6c 6c 65 65 73 3a 20 22 | ead-symbol-name."List.callees:." |
| 159be0 | 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 78 72 65 66 20 3a 63 61 6c 6c 65 65 73 20 73 79 6d 62 6f | )))...(slime-xref.:callees.symbo |
| 159c00 | 6c 2d 6e 61 6d 65 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 77 68 61 74 73 20 74 68 65 20 63 61 | l-name))..;;.FIXME:.whats.the.ca |
| 159c20 | 6c 6c 20 28 73 6c 69 6d 65 2d 70 6f 73 74 70 72 6f 63 65 73 73 2d 78 72 65 66 73 20 72 65 73 75 | ll.(slime-postprocess-xrefs.resu |
| 159c40 | 6c 74 29 20 67 6f 6f 64 20 66 6f 72 3f 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 78 72 65 66 20 | lt).good.for?.(defun.slime-xref. |
| 159c60 | 28 74 79 70 65 20 73 79 6d 62 6f 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6e 74 69 6e 75 61 74 | (type.symbol.&optional.continuat |
| 159c80 | 69 6f 6e 29 0a 20 20 22 4d 61 6b 65 20 61 6e 20 58 52 45 46 20 72 65 71 75 65 73 74 20 74 6f 20 | ion)..."Make.an.XREF.request.to. |
| 159ca0 | 4c 69 73 70 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 | Lisp."...(slime-eval-async...... |
| 159cc0 | 20 60 28 73 77 61 6e 6b 3a 78 72 65 66 20 27 2c 74 79 70 65 20 27 2c 73 79 6d 62 6f 6c 29 0a 20 | .`(swank:xref.',type.',symbol).. |
| 159ce0 | 20 20 20 28 73 6c 69 6d 65 2d 72 63 75 72 72 79 20 28 6c 61 6d 62 64 61 20 28 72 65 73 75 6c 74 | ...(slime-rcurry.(lambda.(result |
| 159d00 | 20 74 79 70 65 20 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 20 63 6f 6e 74 29 0a 20 20 20 20 20 | .type.symbol.package.cont)...... |
| 159d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 78 72 65 66 | ...............(slime-check-xref |
| 159d40 | 2d 69 6d 70 6c 65 6d 65 6e 74 65 64 20 74 79 70 65 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 | -implemented.type.result)....... |
| 159d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 5f 78 72 65 66 73 20 28 73 6c | ..............(let*.((_xrefs.(sl |
| 159d80 | 69 6d 65 2d 70 6f 73 74 70 72 6f 63 65 73 73 2d 78 72 65 66 73 20 72 65 73 75 6c 74 29 29 0a 20 | ime-postprocess-xrefs.result)).. |
| 159da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d | ..........................(file- |
| 159dc0 | 61 6c 69 73 74 20 28 63 61 64 72 20 28 73 6c 69 6d 65 2d 61 6e 61 6c 79 7a 65 2d 78 72 65 66 73 | alist.(cadr.(slime-analyze-xrefs |
| 159de0 | 20 72 65 73 75 6c 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .result))))..................... |
| 159e00 | 20 20 28 66 75 6e 63 61 6c 6c 20 28 6f 72 20 63 6f 6e 74 20 27 73 6c 69 6d 65 2d 73 68 6f 77 2d | ..(funcall.(or.cont.'slime-show- |
| 159e20 | 78 72 65 66 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | xrefs).......................... |
| 159e40 | 20 20 20 20 20 20 66 69 6c 65 2d 61 6c 69 73 74 20 74 79 70 65 20 73 79 6d 62 6f 6c 20 70 61 63 | ......file-alist.type.symbol.pac |
| 159e60 | 6b 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 0a 20 | kage)))...................type.. |
| 159e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 | .................symbol......... |
| 159ea0 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 | ..........(slime-current-package |
| 159ec0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e | )...................continuation |
| 159ee0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 78 72 65 66 2d 69 6d 70 | )))..(defun.slime-check-xref-imp |
| 159f00 | 6c 65 6d 65 6e 74 65 64 20 28 74 79 70 65 20 78 72 65 66 73 29 0a 20 20 28 77 68 65 6e 20 28 65 | lemented.(type.xrefs)...(when.(e |
| 159f20 | 71 20 78 72 65 66 73 20 3a 6e 6f 74 2d 69 6d 70 6c 65 6d 65 6e 74 65 64 29 0a 20 20 20 20 28 65 | q.xrefs.:not-implemented).....(e |
| 159f40 | 72 72 6f 72 20 22 25 73 20 69 73 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 79 65 74 20 | rror."%s.is.not.implemented.yet. |
| 159f60 | 6f 6e 20 25 73 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 78 72 65 66 2d 74 | on.%s."............(slime-xref-t |
| 159f80 | 79 70 65 20 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 | ype.type)............(slime-lisp |
| 159fa0 | 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e | -implementation-name))))..(defun |
| 159fc0 | 20 73 6c 69 6d 65 2d 78 72 65 66 2d 74 79 70 65 20 28 74 79 70 65 29 0a 20 20 28 66 6f 72 6d 61 | .slime-xref-type.(type)...(forma |
| 159fe0 | 74 20 22 77 68 6f 2d 25 73 22 20 28 73 6c 69 6d 65 2d 63 6c 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | t."who-%s".(slime-cl-symbol-name |
| 15a000 | 20 74 79 70 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 78 72 65 66 73 20 28 74 79 | .type)))..(defun.slime-xrefs.(ty |
| 15a020 | 70 65 73 20 73 79 6d 62 6f 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6e 74 69 6e 75 61 74 69 6f | pes.symbol.&optional.continuatio |
| 15a040 | 6e 29 0a 20 20 22 4d 61 6b 65 20 6d 75 6c 74 69 70 6c 65 20 58 52 45 46 20 72 65 71 75 65 73 74 | n)..."Make.multiple.XREF.request |
| 15a060 | 73 20 61 74 20 6f 6e 63 65 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a | s.at.once."...(slime-eval-async. |
| 15a080 | 20 20 20 20 20 20 60 28 73 77 61 6e 6b 3a 78 72 65 66 73 20 27 2c 74 79 70 65 73 20 27 2c 73 79 | ......`(swank:xrefs.',types.',sy |
| 15a0a0 | 6d 62 6f 6c 29 0a 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 72 65 73 75 6c 74 29 0a 20 20 20 | mbol).....#'(lambda.(result).... |
| 15a0c0 | 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 6f 72 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 0a 20 | .....(funcall.(or.continuation.. |
| 15a0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 73 68 6f 77 | ....................#'slime-show |
| 15a100 | 2d 78 72 65 66 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f | -xrefs)..................(cl-loo |
| 15a120 | 70 20 66 6f 72 20 28 6b 65 79 20 2e 20 76 61 6c 29 20 69 6e 20 72 65 73 75 6c 74 0a 20 20 20 20 | p.for.(key...val).in.result..... |
| 15a140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 63 | ......................collect.(c |
| 15a160 | 6f 6e 73 20 28 73 6c 69 6d 65 2d 78 72 65 66 2d 74 79 70 65 20 6b 65 79 29 20 76 61 6c 29 29 0a | ons.(slime-xref-type.key).val)). |
| 15a180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 73 20 73 79 6d 62 6f 6c 20 28 73 | .................types.symbol.(s |
| 15a1a0 | 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b | lime-current-package)))))....;;; |
| 15a1c0 | 3b 3b 20 58 52 45 46 20 6e 61 76 69 67 61 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | ;;.XREF.navigation..(defun.slime |
| 15a1e0 | 2d 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 28 73 61 | -xref-location-at-point.()...(sa |
| 15a200 | 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 3b 3b 20 57 68 65 6e 20 74 68 65 20 65 6e 64 | ve-excursion.....;;.When.the.end |
| 15a220 | 20 6f 66 20 74 68 65 20 6c 61 73 74 20 6c 69 6e 65 20 69 73 20 61 74 20 28 70 6f 69 6e 74 2d 6d | .of.the.last.line.is.at.(point-m |
| 15a240 | 61 78 29 20 77 65 20 63 61 6e 27 74 20 66 69 6e 64 0a 20 20 20 20 3b 3b 20 74 68 65 20 74 65 78 | ax).we.can't.find.....;;.the.tex |
| 15a260 | 74 20 70 72 6f 70 65 72 74 79 20 74 68 65 72 65 2e 20 47 6f 69 6e 67 20 74 6f 20 62 6f 6c 20 61 | t.property.there..Going.to.bol.a |
| 15a280 | 76 6f 69 64 73 20 74 68 69 73 20 70 72 6f 62 6c 65 6d 2e 0a 20 20 20 20 28 62 65 67 69 6e 6e 69 | voids.this.problem......(beginni |
| 15a2a0 | 6e 67 2d 6f 66 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 28 6f 72 20 28 67 65 74 2d 74 65 78 74 2d | ng-of-line.1).....(or.(get-text- |
| 15a2c0 | 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e | property.(point).'slime-location |
| 15a2e0 | 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 72 65 66 65 72 65 6e 63 65 20 61 | ).........(error."No.reference.a |
| 15a300 | 74 20 70 6f 69 6e 74 2e 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 78 72 65 66 | t.point."))))..(defun.slime-xref |
| 15a320 | 2d 64 73 70 65 63 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 | -dspec-at-point.()...(save-excur |
| 15a340 | 73 69 6f 6e 0a 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 31 29 0a 20 | sion.....(beginning-of-line.1).. |
| 15a360 | 20 20 20 28 77 69 74 68 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 69 73 70 2d 6d 6f 64 65 2d | ...(with-syntax-table.lisp-mode- |
| 15a380 | 73 79 6e 74 61 78 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 | syntax-table.......(forward-sexp |
| 15a3a0 | 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 6b 69 70 20 69 6e 69 74 | )....................;.skip.init |
| 15a3c0 | 69 61 6c 20 77 68 69 74 65 73 70 61 63 65 73 0a 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d | ial.whitespaces.......(backward- |
| 15a3e0 | 73 65 78 70 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 | sexp).......(slime-sexp-at-point |
| 15a400 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 6c 6c 2d 78 72 65 66 73 20 28 29 0a | ))))..(defun.slime-all-xrefs.(). |
| 15a420 | 20 20 28 6c 65 74 20 28 28 78 72 65 66 73 20 6e 69 6c 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 | ..(let.((xrefs.nil)).....(save-e |
| 15a440 | 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d | xcursion......(goto-char.(point- |
| 15a460 | 6d 69 6e 29 29 0a 20 20 20 20 20 28 77 68 69 6c 65 20 28 7a 65 72 6f 70 20 28 66 6f 72 77 61 72 | min))......(while.(zerop.(forwar |
| 15a480 | 64 2d 6c 69 6e 65 20 31 29 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 6f 63 20 28 67 65 | d-line.1))........(let.((loc.(ge |
| 15a4a0 | 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 6c | t-text-property.(point).'slime-l |
| 15a4c0 | 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6c 6f 63 0a 20 20 | ocation)))..........(when.loc... |
| 15a4e0 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 64 73 70 65 63 20 28 73 6c 69 6d 65 2d 78 72 | .........(let*.((dspec.(slime-xr |
| 15a500 | 65 66 2d 64 73 70 65 63 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ef-dspec-at-point))............. |
| 15a520 | 20 20 20 20 20 20 28 78 72 65 66 20 20 28 6d 61 6b 65 2d 73 6c 69 6d 65 2d 78 72 65 66 20 3a 64 | ......(xref..(make-slime-xref.:d |
| 15a540 | 73 70 65 63 20 64 73 70 65 63 20 3a 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 29 29 29 0a 20 20 20 20 | spec.dspec.:location.loc)))..... |
| 15a560 | 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 78 72 65 66 20 78 72 65 66 73 29 29 29 29 29 29 0a | .........(push.xref.xrefs)))))). |
| 15a580 | 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 78 72 65 66 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | ....(nreverse.xrefs)))..(defun.s |
| 15a5a0 | 6c 69 6d 65 2d 67 6f 74 6f 2d 78 72 65 66 20 28 29 0a 20 20 22 47 6f 74 6f 20 74 68 65 20 63 72 | lime-goto-xref.()..."Goto.the.cr |
| 15a5c0 | 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 64 20 6c 6f 63 61 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 | oss-referenced.location.at.point |
| 15a5e0 | 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 | ."...(interactive)...(slime-show |
| 15a600 | 2d 78 72 65 66 29 0a 20 20 28 71 75 69 74 2d 77 69 6e 64 6f 77 29 29 0a 0a 28 64 65 66 75 6e 20 | -xref)...(quit-window))..(defun. |
| 15a620 | 73 6c 69 6d 65 2d 73 68 6f 77 2d 78 72 65 66 20 28 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 | slime-show-xref.()..."Display.th |
| 15a640 | 65 20 78 72 65 66 20 61 74 20 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 6f 74 68 65 72 20 77 69 6e | e.xref.at.point.in.the.other.win |
| 15a660 | 64 6f 77 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 6c | dow."...(interactive)...(let.((l |
| 15a680 | 6f 63 61 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 2d 61 74 2d | ocation.(slime-xref-location-at- |
| 15a6a0 | 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 2d 73 6f 75 72 63 65 2d | point))).....(slime-show-source- |
| 15a6c0 | 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 20 74 20 31 29 29 29 0a 0a 28 64 65 66 75 6e | location.location.t.1)))..(defun |
| 15a6e0 | 20 73 6c 69 6d 65 2d 6d 6f 75 73 65 2d 73 68 6f 77 2d 78 72 65 66 20 28 65 76 65 6e 74 29 0a 20 | .slime-mouse-show-xref.(event).. |
| 15a700 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 40 65 22 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 6f | .(interactive."@e")...(let*.((po |
| 15a720 | 69 6e 74 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 | int.(posn-point.(event-end.event |
| 15a740 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 74 69 6f 6e 20 28 67 65 74 2d 74 65 78 74 | )))..........(location.(get-text |
| 15a760 | 2d 70 72 6f 70 65 72 74 79 20 70 6f 69 6e 74 20 27 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 29 | -property.point.'slime-location) |
| 15a780 | 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 | )).....(when.(and.location...... |
| 15a7a0 | 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 67 65 74 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 | ..........(eq.(get-char-property |
| 15a7c0 | 20 70 6f 69 6e 74 20 27 6d 6f 75 73 65 2d 66 61 63 65 29 20 27 68 69 67 68 6c 69 67 68 74 29 29 | .point.'mouse-face).'highlight)) |
| 15a7e0 | 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 | .......(slime-show-source-locati |
| 15a800 | 6f 6e 20 6c 6f 63 61 74 69 6f 6e 20 74 20 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | on.location.t.1))))..(defun.slim |
| 15a820 | 65 2d 6d 6f 75 73 65 2d 67 6f 74 6f 2d 78 72 65 66 20 28 65 76 65 6e 74 29 0a 20 20 28 69 6e 74 | e-mouse-goto-xref.(event)...(int |
| 15a840 | 65 72 61 63 74 69 76 65 20 22 40 65 22 29 0a 20 20 28 73 6c 69 6d 65 2d 6d 6f 75 73 65 2d 73 68 | eractive."@e")...(slime-mouse-sh |
| 15a860 | 6f 77 2d 78 72 65 66 20 65 76 65 6e 74 29 0a 20 20 28 71 75 69 74 2d 77 69 6e 64 6f 77 29 29 0a | ow-xref.event)...(quit-window)). |
| 15a880 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6e 65 78 74 2d 78 72 65 66 20 28 26 6f | .(defun.slime-goto-next-xref.(&o |
| 15a8a0 | 70 74 69 6f 6e 61 6c 20 62 61 63 6b 77 61 72 64 29 0a 20 20 22 47 6f 74 6f 20 74 68 65 20 6e 65 | ptional.backward)..."Goto.the.ne |
| 15a8c0 | 78 74 20 63 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 20 6c 6f 63 61 74 69 6f 6e 2e 22 0a 20 20 | xt.cross-reference.location."... |
| 15a8e0 | 28 69 66 20 28 6e 6f 74 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 73 6c 69 6d 65 2d 78 72 | (if.(not.(buffer-live-p.slime-xr |
| 15a900 | 65 66 2d 6c 61 73 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e | ef-last-buffer)).......(error."N |
| 15a920 | 6f 20 58 52 45 46 20 62 75 66 66 65 72 20 61 6c 69 76 65 2e 22 29 0a 20 20 20 20 28 63 6c 2d 64 | o.XREF.buffer.alive.").....(cl-d |
| 15a940 | 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6c 6f 63 61 74 69 6f 6e 20 70 6f 73 29 | estructuring-bind.(location.pos) |
| 15a960 | 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 73 6c | .........(with-current-buffer.sl |
| 15a980 | 69 6d 65 2d 78 72 65 66 2d 6c 61 73 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 | ime-xref-last-buffer...........( |
| 15a9a0 | 6c 69 73 74 20 28 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 70 72 6f 70 65 72 74 79 20 27 73 6c 69 | list.(slime-search-property.'sli |
| 15a9c0 | 6d 65 2d 6c 6f 63 61 74 69 6f 6e 20 62 61 63 6b 77 61 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 | me-location.backward)........... |
| 15a9e0 | 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 6c | ......(point))).......(cond.((sl |
| 15aa00 | 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 | ime-location-p.location)........ |
| 15aa20 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 6f 70 2d 74 6f 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 | ......(slime-pop-to-location.loc |
| 15aa40 | 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 64 6f 20 74 68 69 | ation)..............;;.We.do.thi |
| 15aa60 | 73 20 68 65 72 65 20 62 65 63 61 75 73 65 20 63 68 61 6e 67 69 6e 67 20 74 68 65 20 6c 6f 63 61 | s.here.because.changing.the.loca |
| 15aa80 | 74 69 6f 6e 20 63 61 6e 20 74 61 6b 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 20 | tion.can.take..............;;.a. |
| 15aaa0 | 77 68 69 6c 65 20 77 68 65 6e 20 45 6d 61 63 73 20 6e 65 65 64 73 20 74 6f 20 72 65 61 64 20 61 | while.when.Emacs.needs.to.read.a |
| 15aac0 | 20 66 69 6c 65 20 66 72 6f 6d 20 64 69 73 6b 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 | .file.from.disk...............(w |
| 15aae0 | 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 73 6c 69 6d 65 2d 78 72 65 66 2d 6c 61 | ith-current-buffer.slime-xref-la |
| 15ab00 | 73 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | st-buffer................(goto-c |
| 15ab20 | 68 61 72 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 68 | har.pos)................(slime-h |
| 15ab40 | 69 67 68 6c 69 67 68 74 2d 6c 69 6e 65 20 30 2e 33 35 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ighlight-line.0.35)))........... |
| 15ab60 | 20 20 28 28 6e 75 6c 6c 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..((null.location).............. |
| 15ab80 | 28 6d 65 73 73 61 67 65 20 28 69 66 20 62 61 63 6b 77 61 72 64 20 22 4e 6f 20 70 72 65 76 69 6f | (message.(if.backward."No.previo |
| 15aba0 | 75 73 20 78 72 65 66 22 20 22 4e 6f 20 6e 65 78 74 20 78 72 65 66 2e 22 29 29 29 0a 20 20 20 20 | us.xref"."No.next.xref.")))..... |
| 15abc0 | 20 20 20 20 20 20 20 20 28 74 20 3b 20 65 72 72 6f 72 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 | ........(t.;.error.location..... |
| 15abe0 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6e 65 78 74 2d 78 72 65 66 20 62 | .........(slime-goto-next-xref.b |
| 15ac00 | 61 63 6b 77 61 72 64 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 6f 74 6f | ackward))))))..(defun.slime-goto |
| 15ac20 | 2d 70 72 65 76 69 6f 75 73 2d 78 72 65 66 20 28 29 0a 20 20 22 47 6f 74 6f 20 74 68 65 20 70 72 | -previous-xref.()..."Goto.the.pr |
| 15ac40 | 65 76 69 6f 75 73 20 63 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 20 6c 6f 63 61 74 69 6f 6e 2e | evious.cross-reference.location. |
| 15ac60 | 22 0a 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 6e 65 78 74 2d 78 72 65 66 20 74 29 29 0a 0a 28 | "...(slime-goto-next-xref.t))..( |
| 15ac80 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 70 72 6f 70 65 72 74 79 20 28 70 72 6f | defun.slime-search-property.(pro |
| 15aca0 | 70 20 26 6f 70 74 69 6f 6e 61 6c 20 62 61 63 6b 77 61 72 64 20 70 72 6f 70 2d 76 61 6c 75 65 2d | p.&optional.backward.prop-value- |
| 15acc0 | 66 6e 29 0a 20 20 22 53 65 61 72 63 68 20 74 68 65 20 6e 65 78 74 20 74 65 78 74 20 72 61 6e 67 | fn)..."Search.the.next.text.rang |
| 15ace0 | 65 20 77 68 65 72 65 20 50 52 4f 50 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 52 65 74 75 72 6e 20 | e.where.PROP.is.non-nil..Return. |
| 15ad00 | 74 68 65 20 76 61 6c 75 65 20 6f 66 20 50 52 4f 50 2e 0a 49 66 20 42 41 43 4b 57 41 52 44 20 69 | the.value.of.PROP..If.BACKWARD.i |
| 15ad20 | 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 73 65 61 72 63 68 20 62 61 63 6b 77 61 72 64 2e 0a 49 66 20 50 | s.non-nil,.search.backward..If.P |
| 15ad40 | 52 4f 50 2d 56 41 4c 55 45 2d 46 4e 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 75 73 65 20 69 74 20 74 | ROP-VALUE-FN.is.non-nil.use.it.t |
| 15ad60 | 6f 20 65 78 74 72 61 63 74 20 50 52 4f 50 27 73 20 76 61 6c 75 65 2e 22 0a 20 20 28 6c 65 74 20 | o.extract.PROP's.value."...(let. |
| 15ad80 | 28 28 6e 65 78 74 2d 63 61 6e 64 69 64 61 74 65 20 28 69 66 20 62 61 63 6b 77 61 72 64 0a 20 20 | ((next-candidate.(if.backward... |
| 15ada0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 70 72 65 76 | ..........................#'prev |
| 15adc0 | 69 6f 75 73 2d 73 69 6e 67 6c 65 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 | ious-single-char-property-change |
| 15ade0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 6e 65 78 | ...........................#'nex |
| 15ae00 | 74 2d 73 69 6e 67 6c 65 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 29 29 0a | t-single-char-property-change)). |
| 15ae20 | 20 20 20 20 20 20 20 20 28 70 72 6f 70 2d 76 61 6c 75 65 2d 66 6e 20 20 28 6f 72 20 70 72 6f 70 | ........(prop-value-fn..(or.prop |
| 15ae40 | 2d 76 61 6c 75 65 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -value-fn....................... |
| 15ae60 | 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(lambda.()................ |
| 15ae80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 | ...............(get-text-propert |
| 15aea0 | 79 20 28 70 6f 69 6e 74 29 20 70 72 6f 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 74 61 72 | y.(point).prop)))).........(star |
| 15aec0 | 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 70 2d 76 61 6c 75 65 29 29 | t.(point)).........(prop-value)) |
| 15aee0 | 0a 20 20 20 20 28 77 68 69 6c 65 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(while.(progn.............. |
| 15af00 | 28 67 6f 74 6f 2d 63 68 61 72 20 28 66 75 6e 63 61 6c 6c 20 6e 65 78 74 2d 63 61 6e 64 69 64 61 | (goto-char.(funcall.next-candida |
| 15af20 | 74 65 20 28 70 6f 69 6e 74 29 20 70 72 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | te.(point).prop))..............( |
| 15af40 | 6e 6f 74 20 28 6f 72 20 28 73 65 74 71 20 70 72 6f 70 2d 76 61 6c 75 65 20 28 66 75 6e 63 61 6c | not.(or.(setq.prop-value.(funcal |
| 15af60 | 6c 20 70 72 6f 70 2d 76 61 6c 75 65 2d 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l.prop-value-fn))............... |
| 15af80 | 20 20 20 20 20 20 20 20 28 65 6f 62 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(eobp).................. |
| 15afa0 | 20 20 20 20 20 28 62 6f 62 70 29 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 70 72 6f 70 2d | .....(bobp))))).....(cond.(prop- |
| 15afc0 | 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 | value)...........(t.(goto-char.s |
| 15afe0 | 74 61 72 74 29 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6e 65 78 74 | tart).nil))))..(defun.slime-next |
| 15b000 | 2d 6c 6f 63 61 74 69 6f 6e 20 28 29 0a 20 20 22 47 6f 20 74 6f 20 74 68 65 20 6e 65 78 74 20 6c | -location.()..."Go.to.the.next.l |
| 15b020 | 6f 63 61 74 69 6f 6e 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 63 6f 6e 74 65 78 74 2e 0a 57 | ocation,.depending.on.context..W |
| 15b040 | 68 65 6e 20 64 69 73 70 6c 61 79 69 6e 67 20 58 52 45 46 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c | hen.displaying.XREF.information, |
| 15b060 | 20 74 68 69 73 20 67 6f 65 73 20 74 6f 20 74 68 65 20 6e 65 78 74 20 72 65 66 65 72 65 6e 63 65 | .this.goes.to.the.next.reference |
| 15b080 | 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 20 28 6e 75 6c 6c | ."...(interactive)...(when.(null |
| 15b0a0 | 20 73 6c 69 6d 65 2d 6e 65 78 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 | .slime-next-location-function).. |
| 15b0c0 | 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 63 6f 6e 74 65 78 74 20 66 6f 72 20 66 69 6e 64 69 6e | ...(error."No.context.for.findin |
| 15b0e0 | 67 20 6c 6f 63 61 74 69 6f 6e 73 2e 22 29 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 73 6c 69 6d 65 | g.locations."))...(funcall.slime |
| 15b100 | 2d 6e 65 78 74 2d 6c 6f 63 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 | -next-location-function))..(defu |
| 15b120 | 6e 20 73 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 6c 6f 63 61 74 69 6f 6e 20 28 29 0a 20 20 22 | n.slime-previous-location.()..." |
| 15b140 | 47 6f 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6c 6f 63 61 74 69 6f 6e 2c 20 64 65 70 | Go.to.the.previous.location,.dep |
| 15b160 | 65 6e 64 69 6e 67 20 6f 6e 20 63 6f 6e 74 65 78 74 2e 0a 57 68 65 6e 20 64 69 73 70 6c 61 79 69 | ending.on.context..When.displayi |
| 15b180 | 6e 67 20 58 52 45 46 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 74 68 69 73 20 67 6f 65 73 20 74 | ng.XREF.information,.this.goes.t |
| 15b1a0 | 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 72 65 66 65 72 65 6e 63 65 2e 22 0a 20 20 28 69 6e | o.the.previous.reference."...(in |
| 15b1c0 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 20 28 6e 75 6c 6c 20 73 6c 69 6d 65 2d 70 | teractive)...(when.(null.slime-p |
| 15b1e0 | 72 65 76 69 6f 75 73 2d 6c 6f 63 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 28 | revious-location-function).....( |
| 15b200 | 65 72 72 6f 72 20 22 4e 6f 20 63 6f 6e 74 65 78 74 20 66 6f 72 20 66 69 6e 64 69 6e 67 20 6c 6f | error."No.context.for.finding.lo |
| 15b220 | 63 61 74 69 6f 6e 73 2e 22 29 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 73 6c 69 6d 65 2d 70 72 65 | cations."))...(funcall.slime-pre |
| 15b240 | 76 69 6f 75 73 2d 6c 6f 63 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 | vious-location-function))..(defu |
| 15b260 | 6e 20 73 6c 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 78 72 65 66 20 28 26 6f 70 74 69 6f 6e 61 | n.slime-recompile-xref.(&optiona |
| 15b280 | 6c 20 72 61 77 2d 70 72 65 66 69 78 2d 61 72 67 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | l.raw-prefix-arg)...(interactive |
| 15b2a0 | 20 22 50 22 29 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e | ."P")...(let.((slime-compilation |
| 15b2c0 | 2d 70 6f 6c 69 63 79 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 75 74 65 2d 70 6f 6c 69 63 79 20 72 61 | -policy.(slime-compute-policy.ra |
| 15b2e0 | 77 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 6f 63 61 74 | w-prefix-arg))).....(let.((locat |
| 15b300 | 69 6f 6e 20 28 73 6c 69 6d 65 2d 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e | ion.(slime-xref-location-at-poin |
| 15b320 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 73 70 65 63 20 20 20 20 28 73 6c 69 6d 65 2d 78 | t))...........(dspec....(slime-x |
| 15b340 | 72 65 66 2d 64 73 70 65 63 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 | ref-dspec-at-point))).......(sli |
| 15b360 | 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 28 6c | me-recompile-locations........(l |
| 15b380 | 69 73 74 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 63 75 72 | ist.location)........(slime-rcur |
| 15b3a0 | 72 79 20 23 27 73 6c 69 6d 65 2d 78 72 65 66 2d 72 65 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 63 6f | ry.#'slime-xref-recompilation-co |
| 15b3c0 | 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 64 73 | nt......................(list.ds |
| 15b3e0 | 70 65 63 29 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 | pec).(current-buffer))))))..(def |
| 15b400 | 75 6e 20 73 6c 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 61 6c 6c 2d 78 72 65 66 73 20 28 26 6f | un.slime-recompile-all-xrefs.(&o |
| 15b420 | 70 74 69 6f 6e 61 6c 20 72 61 77 2d 70 72 65 66 69 78 2d 61 72 67 29 0a 20 20 28 69 6e 74 65 72 | ptional.raw-prefix-arg)...(inter |
| 15b440 | 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 | active."P")...(let.((slime-compi |
| 15b460 | 6c 61 74 69 6f 6e 2d 70 6f 6c 69 63 79 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 75 74 65 2d 70 6f 6c | lation-policy.(slime-compute-pol |
| 15b480 | 69 63 79 20 72 61 77 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 | icy.raw-prefix-arg))).....(let.( |
| 15b4a0 | 28 64 73 70 65 63 73 29 20 28 6c 6f 63 61 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 28 64 6f 6c | (dspecs).(locations)).......(dol |
| 15b4c0 | 69 73 74 20 28 78 72 65 66 20 28 73 6c 69 6d 65 2d 61 6c 6c 2d 78 72 65 66 73 29 29 0a 20 20 20 | ist.(xref.(slime-all-xrefs)).... |
| 15b4e0 | 20 20 20 20 20 28 77 68 65 6e 20 28 73 6c 69 6d 65 2d 78 72 65 66 2d 68 61 73 2d 6c 6f 63 61 74 | .....(when.(slime-xref-has-locat |
| 15b500 | 69 6f 6e 2d 70 20 78 72 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 73 6c 69 | ion-p.xref)...........(push.(sli |
| 15b520 | 6d 65 2d 78 72 65 66 2e 64 73 70 65 63 20 78 72 65 66 29 20 64 73 70 65 63 73 29 0a 20 20 20 20 | me-xref.dspec.xref).dspecs)..... |
| 15b540 | 20 20 20 20 20 20 28 70 75 73 68 20 28 73 6c 69 6d 65 2d 78 72 65 66 2e 6c 6f 63 61 74 69 6f 6e | ......(push.(slime-xref.location |
| 15b560 | 20 78 72 65 66 29 20 6c 6f 63 61 74 69 6f 6e 73 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 | .xref).locations))).......(slime |
| 15b580 | 2d 72 65 63 6f 6d 70 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 6c 6f 63 61 | -recompile-locations........loca |
| 15b5a0 | 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 63 75 72 72 79 20 23 27 73 6c 69 | tions........(slime-rcurry.#'sli |
| 15b5c0 | 6d 65 2d 78 72 65 66 2d 72 65 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 63 6f 6e 74 0a 20 20 20 20 20 | me-xref-recompilation-cont...... |
| 15b5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 73 70 65 63 73 20 28 63 75 72 72 65 6e 74 2d | ................dspecs.(current- |
| 15b600 | 62 75 66 66 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 78 72 65 66 2d | buffer))))))..(defun.slime-xref- |
| 15b620 | 72 65 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 63 6f 6e 74 20 28 72 65 73 75 6c 74 73 20 64 73 70 65 | recompilation-cont.(results.dspe |
| 15b640 | 63 73 20 62 75 66 66 65 72 29 0a 20 20 3b 3b 20 45 78 74 72 65 6d 65 20 6c 6f 6e 67 2d 77 69 6e | cs.buffer)...;;.Extreme.long-win |
| 15b660 | 64 65 64 6e 65 73 73 20 74 6f 20 69 6e 73 65 72 74 20 73 74 61 74 75 73 20 6f 66 20 72 65 63 6f | dedness.to.insert.status.of.reco |
| 15b680 | 6d 70 69 6c 61 74 69 6f 6e 3b 0a 20 20 3b 3b 20 73 6f 6d 65 74 69 6d 65 73 20 45 6c 69 73 70 20 | mpilation;...;;.sometimes.Elisp. |
| 15b6a0 | 72 65 73 65 6d 62 6c 65 73 20 6d 6f 72 65 20 6f 66 20 61 6e 20 45 77 77 6c 69 73 70 2e 0a 0a 20 | resembles.more.of.an.Ewwlisp.... |
| 15b6c0 | 20 3b 3b 20 46 49 58 4d 45 3a 20 53 68 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 74 68 72 6f 77 | .;;.FIXME:.Should.probably.throw |
| 15b6e0 | 20 6f 75 74 20 74 68 65 20 77 68 6f 6c 65 20 72 65 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 63 72 75 | .out.the.whole.recompilation.cru |
| 15b700 | 66 74 0a 20 20 3b 3b 20 61 6e 79 77 61 79 2e 20 20 2d 2d 20 68 65 6c 6d 75 74 0a 20 20 3b 3b 20 | ft...;;.anyway...--.helmut...;;. |
| 15b720 | 54 4f 44 4f 3a 20 6e 65 78 74 20 69 74 65 72 61 74 69 6f 6e 20 6f 66 20 66 69 78 6d 65 20 63 6c | TODO:.next.iteration.of.fixme.cl |
| 15b740 | 65 61 6e 75 70 20 74 68 69 73 20 69 73 20 67 6f 69 6e 67 20 69 6e 20 61 20 63 6f 6e 74 72 69 62 | eanup.this.is.going.in.a.contrib |
| 15b760 | 20 2d 2d 20 6a 74 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 | .--.jt...(with-current-buffer.bu |
| 15b780 | 66 66 65 72 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 69 6e 69 | ffer.....(slime-compilation-fini |
| 15b7a0 | 73 68 65 64 20 28 73 6c 69 6d 65 2d 61 67 67 72 65 67 61 74 65 2d 63 6f 6d 70 69 6c 61 74 69 6f | shed.(slime-aggregate-compilatio |
| 15b7c0 | 6e 2d 72 65 73 75 6c 74 73 20 72 65 73 75 6c 74 73 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 | n-results.results)).....(save-ex |
| 15b7e0 | 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 78 72 65 66 2d 69 6e 73 65 72 74 | cursion.......(slime-xref-insert |
| 15b800 | 2d 72 65 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 6c 61 67 73 0a 20 20 20 20 20 20 20 64 73 70 65 | -recompilation-flags........dspe |
| 15b820 | 63 73 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 72 20 69 6e 20 72 65 73 75 6c 74 73 20 63 6f 6c | cs.(cl-loop.for.r.in.results.col |
| 15b840 | 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 | lect........................(or. |
| 15b860 | 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 2e 73 75 63 63 65 73 | (slime-compilation-result.succes |
| 15b880 | 73 70 20 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sp.r)........................... |
| 15b8a0 | 20 28 61 6e 64 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 2e | .(and.(slime-compilation-result. |
| 15b8c0 | 6e 6f 74 65 73 20 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | notes.r)........................ |
| 15b8e0 | 20 20 20 20 20 20 20 20 20 3a 63 6f 6d 70 6c 61 69 6e 65 64 29 29 29 29 29 29 29 0a 0a 28 64 65 | .........:complained)))))))..(de |
| 15b900 | 66 75 6e 20 73 6c 69 6d 65 2d 61 67 67 72 65 67 61 74 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d | fun.slime-aggregate-compilation- |
| 15b920 | 72 65 73 75 6c 74 73 20 28 72 65 73 75 6c 74 73 29 0a 20 20 60 28 3a 63 6f 6d 70 69 6c 61 74 69 | results.(results)...`(:compilati |
| 15b940 | 6f 6e 2d 72 65 73 75 6c 74 0a 20 20 20 20 2c 28 63 6c 2d 72 65 64 75 63 65 20 23 27 61 70 70 65 | on-result.....,(cl-reduce.#'appe |
| 15b960 | 6e 64 20 28 6d 61 70 63 61 72 20 23 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 | nd.(mapcar.#'slime-compilation-r |
| 15b980 | 65 73 75 6c 74 2e 6e 6f 74 65 73 20 72 65 73 75 6c 74 73 29 29 0a 20 20 20 20 2c 28 63 6c 2d 65 | esult.notes.results)).....,(cl-e |
| 15b9a0 | 76 65 72 79 20 23 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 2e | very.#'slime-compilation-result. |
| 15b9c0 | 73 75 63 63 65 73 73 70 20 72 65 73 75 6c 74 73 29 0a 20 20 20 20 2c 28 63 6c 2d 72 65 64 75 63 | successp.results).....,(cl-reduc |
| 15b9e0 | 65 20 23 27 2b 20 28 6d 61 70 63 61 72 20 23 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f | e.#'+.(mapcar.#'slime-compilatio |
| 15ba00 | 6e 2d 72 65 73 75 6c 74 2e 64 75 72 61 74 69 6f 6e 20 72 65 73 75 6c 74 73 29 29 29 29 0a 0a 28 | n-result.duration.results))))..( |
| 15ba20 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 78 72 65 66 2d 69 6e 73 65 72 74 2d 72 65 63 6f 6d 70 69 6c | defun.slime-xref-insert-recompil |
| 15ba40 | 61 74 69 6f 6e 2d 66 6c 61 67 73 20 28 64 73 70 65 63 73 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d | ation-flags.(dspecs.compilation- |
| 15ba60 | 72 65 73 75 6c 74 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 62 75 66 66 65 72 2d 72 65 61 64 2d 6f | results)...(let*.((buffer-read-o |
| 15ba80 | 6e 6c 79 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 78 2d 63 6f 6c 75 6d 6e 20 28 73 | nly.nil)..........(max-column.(s |
| 15baa0 | 6c 69 6d 65 2d 63 6f 6c 75 6d 6e 2d 6d 61 78 29 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 | lime-column-max))).....(goto-cha |
| 15bac0 | 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 | r.(point-min)).....(cl-loop.for. |
| 15bae0 | 64 73 70 65 63 20 69 6e 20 64 73 70 65 63 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 | dspec.in.dspecs..............for |
| 15bb00 | 20 72 65 73 75 6c 74 20 69 6e 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 73 0a 20 | .result.in.compilation-results.. |
| 15bb20 | 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 | ............do.(save-excursion.. |
| 15bb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 64 73 | .................(cl-loop.for.ds |
| 15bb60 | 70 65 63 32 20 3d 20 28 70 72 6f 67 6e 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 64 73 | pec2.=.(progn.(search-forward.ds |
| 15bb80 | 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pec)............................ |
| 15bba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 78 72 65 66 2d | ....................(slime-xref- |
| 15bbc0 | 64 73 70 65 63 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dspec-at-point))................ |
| 15bbe0 | 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 74 69 6c 20 28 65 71 75 61 6c 20 64 73 70 65 63 32 20 | ............until.(equal.dspec2. |
| 15bc00 | 64 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 2d 6f | dspec))...................(end-o |
| 15bc20 | 66 2d 6c 69 6e 65 29 20 3b 20 73 6b 69 70 20 6f 6c 64 20 73 74 61 74 75 73 20 69 6e 66 6f 72 6d | f-line).;.skip.old.status.inform |
| 15bc40 | 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 | ation....................(insert |
| 15bc60 | 2d 63 68 61 72 20 3f 5c 20 20 28 31 2b 20 28 2d 20 6d 61 78 2d 63 6f 6c 75 6d 6e 20 28 63 75 72 | -char.?\..(1+.(-.max-column.(cur |
| 15bc80 | 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rent-column))))................. |
| 15bca0 | 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 5b 25 73 5d 22 0a 20 20 20 20 20 20 20 | ..(insert.(format."[%s]"........ |
| 15bcc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 63 | ...........................(cl-c |
| 15bce0 | 61 73 65 20 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ase.result...................... |
| 15bd00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 74 29 20 20 20 3a 73 75 63 63 65 73 73 29 0a | ...............((t)...:success). |
| 15bd20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 15bd40 | 20 20 20 20 28 28 6e 69 6c 29 20 3a 66 61 69 6c 75 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ....((nil).:failure)............ |
| 15bd60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 20 20 20 20 | .........................(t..... |
| 15bd80 | 72 65 73 75 6c 74 29 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 61 63 72 6f 65 78 70 61 | result))))))))....;;;;.Macroexpa |
| 15bda0 | 6e 73 69 6f 6e 0a 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d | nsion..(define-minor-mode.slime- |
| 15bdc0 | 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 0a 20 20 22 53 4c 49 | macroexpansion-minor-mode..."SLI |
| 15bde0 | 4d 45 20 6d 6f 64 65 20 66 6f 72 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 22 0a 20 20 3a 69 | ME.mode.for.macroexpansion"...:i |
| 15be00 | 6e 69 74 2d 76 61 6c 75 65 20 6e 69 6c 0a 20 20 3a 6c 69 67 68 74 65 72 20 22 20 4d 61 63 72 6f | nit-value.nil...:lighter.".Macro |
| 15be20 | 65 78 70 61 6e 64 22 0a 20 20 3a 6b 65 79 6d 61 70 20 27 28 28 22 67 22 20 2e 20 73 6c 69 6d 65 | expand"...:keymap.'(("g"...slime |
| 15be40 | 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 67 61 69 6e 29 29 29 0a 0a 28 63 6c 2d 6d 61 63 72 6f | -macroexpand-again)))..(cl-macro |
| 15be60 | 6c 65 74 20 28 28 72 65 6d 61 70 20 28 66 72 6f 6d 20 74 6f 29 0a 20 20 20 20 20 20 20 20 20 20 | let.((remap.(from.to)........... |
| 15be80 | 20 20 20 20 20 20 20 20 20 20 20 60 28 64 6f 6c 69 73 74 20 28 6d 61 70 70 69 6e 67 0a 20 20 20 | ...........`(dolist.(mapping.... |
| 15bea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 | ............................(whe |
| 15bec0 | 72 65 2d 69 73 2d 69 6e 74 65 72 6e 61 6c 20 2c 66 72 6f 6d 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d | re-is-internal.,from.slime-mode- |
| 15bee0 | 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | map)).........................(d |
| 15bf00 | 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d | efine-key.slime-macroexpansion-m |
| 15bf20 | 69 6e 6f 72 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | inor-mode-map................... |
| 15bf40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 70 70 69 6e 67 20 2c 74 6f 29 29 29 | ..................mapping.,to))) |
| 15bf60 | 29 0a 20 20 28 72 65 6d 61 70 20 27 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 | )...(remap.'slime-macroexpand-1. |
| 15bf80 | 27 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 2d 69 6e 70 6c 61 63 65 29 0a 20 20 | 'slime-macroexpand-1-inplace)... |
| 15bfa0 | 28 72 65 6d 61 70 20 27 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 27 73 | (remap.'slime-macroexpand-all.'s |
| 15bfc0 | 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 2d 69 6e 70 6c 61 63 65 29 0a 20 20 | lime-macroexpand-all-inplace)... |
| 15bfe0 | 28 72 65 6d 61 70 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 | (remap.'slime-compiler-macroexpa |
| 15c000 | 6e 64 2d 31 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 | nd-1.'slime-compiler-macroexpand |
| 15c020 | 2d 31 2d 69 6e 70 6c 61 63 65 29 0a 20 20 28 72 65 6d 61 70 20 27 73 6c 69 6d 65 2d 65 78 70 61 | -1-inplace)...(remap.'slime-expa |
| 15c040 | 6e 64 2d 31 0a 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 31 2d 69 6e | nd-1..........'slime-expand-1-in |
| 15c060 | 70 6c 61 63 65 29 0a 20 20 28 72 65 6d 61 70 20 27 61 64 76 65 72 74 69 73 65 64 2d 75 6e 64 6f | place)...(remap.'advertised-undo |
| 15c080 | 20 27 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 75 6e 64 6f 29 0a 20 20 28 72 65 6d | .'slime-macroexpand-undo)...(rem |
| 15c0a0 | 61 70 20 27 75 6e 64 6f 20 27 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 75 6e 64 6f | ap.'undo.'slime-macroexpand-undo |
| 15c0c0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 75 6e 64 | ))..(defun.slime-macroexpand-und |
| 15c0e0 | 6f 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | o.(&optional.arg)...(interactive |
| 15c100 | 29 0a 20 20 3b 3b 20 45 6d 61 63 73 20 32 32 2e 78 20 69 6e 74 72 6f 64 75 63 65 64 20 60 75 6e | )...;;.Emacs.22.x.introduced.`un |
| 15c120 | 64 6f 2d 6f 6e 6c 79 27 20 77 68 69 63 68 0a 20 20 3b 3b 20 77 6f 72 6b 73 20 62 79 20 62 69 6e | do-only'.which...;;.works.by.bin |
| 15c140 | 64 69 6e 67 20 60 75 6e 64 6f 2d 6e 6f 2d 72 65 64 6f 27 20 74 6f 20 74 2e 20 57 65 20 64 6f 0a | ding.`undo-no-redo'.to.t..We.do. |
| 15c160 | 20 20 3b 3b 20 69 74 20 74 68 69 73 20 77 61 79 20 73 6f 20 77 65 20 64 6f 6e 27 74 20 62 72 65 | ..;;.it.this.way.so.we.don't.bre |
| 15c180 | 61 6b 20 70 72 69 6f 72 20 45 6d 61 63 73 0a 20 20 3b 3b 20 76 65 72 73 69 6f 6e 73 2e 0a 20 20 | ak.prior.Emacs...;;.versions.... |
| 15c1a0 | 28 63 6c 2d 6d 61 63 72 6f 6c 65 74 20 28 28 75 6e 64 6f 2d 6f 6e 6c 79 20 28 61 72 67 29 20 60 | (cl-macrolet.((undo-only.(arg).` |
| 15c1c0 | 28 6c 65 74 20 28 28 75 6e 64 6f 2d 6e 6f 2d 72 65 64 6f 20 74 29 29 20 28 75 6e 64 6f 20 2c 61 | (let.((undo-no-redo.t)).(undo.,a |
| 15c1e0 | 72 67 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f | rg)))).....(let.((inhibit-read-o |
| 15c200 | 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 27 73 6c | nly.t)).......(when.(fboundp.'sl |
| 15c220 | 69 6d 65 2d 72 65 6d 6f 76 65 2d 65 64 69 74 73 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | ime-remove-edits).........(slime |
| 15c240 | 2d 72 65 6d 6f 76 65 2d 65 64 69 74 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 | -remove-edits.(point-min).(point |
| 15c260 | 2d 6d 61 78 29 29 29 0a 20 20 20 20 20 20 28 75 6e 64 6f 2d 6f 6e 6c 79 20 61 72 67 29 29 29 29 | -max))).......(undo-only.arg)))) |
| 15c280 | 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e 64 | ..(defvar.slime-eval-macroexpand |
| 15c2a0 | 2d 65 78 70 72 65 73 73 69 6f 6e 20 6e 69 6c 0a 20 20 22 53 70 65 63 69 66 69 65 73 20 74 68 65 | -expression.nil..."Specifies.the |
| 15c2c0 | 20 6c 61 73 74 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 70 72 65 66 6f 72 6d 65 64 2e 0a | .last.macroexpansion.preformed.. |
| 15c2e0 | 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 73 70 65 63 69 66 69 65 73 20 62 6f 74 68 20 77 68 61 | This.variable.specifies.both.wha |
| 15c300 | 74 20 77 61 73 20 65 78 70 61 6e 64 65 64 20 61 6e 64 20 68 6f 77 2e 22 29 0a 0a 28 64 65 66 75 | t.was.expanded.and.how.")..(defu |
| 15c320 | 6e 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 28 65 78 70 61 6e 64 | n.slime-eval-macroexpand.(expand |
| 15c340 | 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 73 74 | er.&optional.string)...(let.((st |
| 15c360 | 72 69 6e 67 20 28 6f 72 20 73 74 72 69 6e 67 20 28 73 6c 69 6d 65 2d 73 65 78 70 2d 61 74 2d 70 | ring.(or.string.(slime-sexp-at-p |
| 15c380 | 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 6c | oint-or-error))).........(macrol |
| 15c3a0 | 65 74 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 27 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 | et.(when.(fboundp.'slime-enclosi |
| 15c3c0 | 6e 67 2d 6d 61 63 72 6f 6c 65 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-macrolets)................... |
| 15c3e0 | 20 20 28 73 6c 69 6d 65 2d 65 6e 63 6c 6f 73 69 6e 67 2d 6d 61 63 72 6f 6c 65 74 73 29 29 29 29 | ..(slime-enclosing-macrolets)))) |
| 15c400 | 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e | .....(setq.slime-eval-macroexpan |
| 15c420 | 64 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6d 61 63 72 6f | d-expression...........(if.macro |
| 15c440 | 6c 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d | let...............`(swank:swank- |
| 15c460 | 6d 61 63 72 6f 6c 65 74 2d 65 78 70 61 6e 64 20 27 2c 6d 61 63 72 6f 6c 65 74 20 27 2c 65 78 70 | macrolet-expand.',macrolet.',exp |
| 15c480 | 61 6e 64 65 72 20 2c 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c | ander.,string)...............`(, |
| 15c4a0 | 65 78 70 61 6e 64 65 72 20 2c 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 | expander.,string))).....(slime-e |
| 15c4c0 | 76 61 6c 2d 61 73 79 6e 63 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e 64 | val-async.slime-eval-macroexpand |
| 15c4e0 | 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 69 6e 69 74 69 61 | -expression.......#'slime-initia |
| 15c500 | 6c 69 7a 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 | lize-macroexpansion-buffer)))..( |
| 15c520 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 67 61 69 6e 20 28 29 | defun.slime-macroexpand-again.() |
| 15c540 | 0a 20 20 22 52 65 70 65 72 66 6f 72 6d 20 74 68 65 20 6c 61 73 74 20 6d 61 63 72 6f 65 78 70 61 | ..."Reperform.the.last.macroexpa |
| 15c560 | 6e 73 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 | nsion."...(interactive)...(slime |
| 15c580 | 2d 65 76 61 6c 2d 61 73 79 6e 63 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 | -eval-async.slime-eval-macroexpa |
| 15c5a0 | 6e 64 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 63 75 72 72 79 20 | nd-expression.....(slime-rcurry. |
| 15c5c0 | 23 27 73 6c 69 6d 65 2d 69 6e 69 74 69 61 6c 69 7a 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f | #'slime-initialize-macroexpansio |
| 15c5e0 | 6e 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 | n-buffer...................(curr |
| 15c600 | 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 69 | ent-buffer))))..(defun.slime-ini |
| 15c620 | 74 69 61 6c 69 7a 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 62 75 66 66 65 72 20 28 65 | tialize-macroexpansion-buffer.(e |
| 15c640 | 78 70 61 6e 73 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 62 75 66 66 65 72 29 0a 20 20 28 70 6f | xpansion.&optional.buffer)...(po |
| 15c660 | 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 6f 72 20 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 63 72 | p-to-buffer.(or.buffer.(slime-cr |
| 15c680 | 65 61 74 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 62 75 66 66 65 72 29 29 29 0a 20 20 | eate-macroexpansion-buffer)))... |
| 15c6a0 | 28 73 65 74 71 20 62 75 66 66 65 72 2d 75 6e 64 6f 2d 6c 69 73 74 20 6e 69 6c 29 20 3b 20 47 65 | (setq.buffer-undo-list.nil).;.Ge |
| 15c6c0 | 74 20 72 69 64 20 6f 66 20 75 6e 64 6f 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 72 6f 6d 0a 20 | t.rid.of.undo.information.from.. |
| 15c6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 15c700 | 20 20 20 20 20 20 20 3b 20 70 72 65 76 69 6f 75 73 20 65 78 70 61 6e 73 69 6f 6e 73 2e 0a 20 20 | .......;.previous.expansions.... |
| 15c720 | 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 | (let.((inhibit-read-only.t)..... |
| 15c740 | 20 20 20 20 28 62 75 66 66 65 72 2d 75 6e 64 6f 2d 6c 69 73 74 20 74 29 29 20 3b 20 4d 61 6b 65 | ....(buffer-undo-list.t)).;.Make |
| 15c760 | 20 74 68 65 20 69 6e 69 74 69 61 6c 20 69 6e 73 65 72 74 69 6f 6e 20 6e 6f 74 20 62 65 20 75 6e | .the.initial.insertion.not.be.un |
| 15c780 | 64 6f 61 62 6c 65 2e 0a 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 | doable......(erase-buffer).....( |
| 15c7a0 | 69 6e 73 65 72 74 20 65 78 70 61 6e 73 69 6f 6e 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 | insert.expansion).....(goto-char |
| 15c7c0 | 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 6f 6e | .(point-min)).....(font-lock-fon |
| 15c7e0 | 74 69 66 79 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 72 65 | tify-buffer)))..(defun.slime-cre |
| 15c800 | 61 74 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 62 75 66 66 65 72 20 28 29 0a 20 20 28 | ate-macroexpansion-buffer.()...( |
| 15c820 | 6c 65 74 20 28 28 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 6d | let.((name.(slime-buffer-name.:m |
| 15c840 | 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 | acroexpansion))).....(slime-with |
| 15c860 | 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 6e 61 6d 65 20 3a 70 61 63 6b 61 67 65 20 74 20 3a | -popup-buffer.(name.:package.t.: |
| 15c880 | 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | connection.t.................... |
| 15c8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 6f 64 65 20 27 6c 69 73 70 2d 6d 6f 64 65 | ................:mode.'lisp-mode |
| 15c8c0 | 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 6f 64 65 20 31 29 0a 20 20 20 20 20 20 28 73 6c | ).......(slime-mode.1).......(sl |
| 15c8e0 | 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 31 29 | ime-macroexpansion-minor-mode.1) |
| 15c900 | 0a 20 20 20 20 20 20 28 73 65 74 71 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 2d | .......(setq.font-lock-keywords- |
| 15c920 | 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 29 0a 20 20 20 20 20 20 28 63 75 72 72 65 | case-fold-search.t).......(curre |
| 15c940 | 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 76 61 6c | nt-buffer))))..(defun.slime-eval |
| 15c960 | 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 69 6e 70 6c 61 63 65 20 28 65 78 70 61 6e 64 65 72 29 0a | -macroexpand-inplace.(expander). |
| 15c980 | 20 20 22 53 75 62 73 74 69 74 75 74 65 20 74 68 65 20 73 65 78 70 20 61 74 20 70 6f 69 6e 74 20 | .."Substitute.the.sexp.at.point. |
| 15c9a0 | 77 69 74 68 20 69 74 73 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2e 0a 0a 4e 42 3a 20 44 6f | with.its.macroexpansion...NB:.Do |
| 15c9c0 | 65 73 20 6e 6f 74 20 61 66 66 65 63 74 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 | es.not.affect.slime-eval-macroex |
| 15c9e0 | 70 61 6e 64 2d 65 78 70 72 65 73 73 69 6f 6e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | pand-expression"...(interactive) |
| 15ca00 | 0a 20 20 28 6c 65 74 2a 20 28 28 62 6f 75 6e 64 73 20 28 6f 72 20 28 73 6c 69 6d 65 2d 62 6f 75 | ...(let*.((bounds.(or.(slime-bou |
| 15ca20 | 6e 64 73 2d 6f 66 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 | nds-of-sexp-at-point)........... |
| 15ca40 | 20 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 73 65 78 70 20 | ...........(user-error."No.sexp. |
| 15ca60 | 61 74 20 70 6f 69 6e 74 22 29 29 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 61 72 74 20 | at.point")))).....(let*.((start. |
| 15ca80 | 28 63 6f 70 79 2d 6d 61 72 6b 65 72 20 28 63 61 72 20 62 6f 75 6e 64 73 29 29 29 0a 20 20 20 20 | (copy-marker.(car.bounds)))..... |
| 15caa0 | 20 20 20 20 20 20 20 28 65 6e 64 20 28 63 6f 70 79 2d 6d 61 72 6b 65 72 20 28 63 64 72 20 62 6f | .......(end.(copy-marker.(cdr.bo |
| 15cac0 | 75 6e 64 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 20 28 70 6f 69 6e 74 | unds)))............(point.(point |
| 15cae0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 | ))............(buffer.(current-b |
| 15cb00 | 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 | uffer))).......(slime-eval-async |
| 15cb20 | 0a 20 20 20 20 20 20 20 20 20 20 60 28 2c 65 78 70 61 6e 64 65 72 20 2c 28 62 75 66 66 65 72 2d | ...........`(,expander.,(buffer- |
| 15cb40 | 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 73 74 61 72 74 20 65 6e | substring-no-properties.start.en |
| 15cb60 | 64 29 29 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 65 78 70 61 6e 73 69 6f 6e 29 0a | d)).........(lambda.(expansion). |
| 15cb80 | 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 | ..........(with-current-buffer.b |
| 15cba0 | 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 2d | uffer.............(let.((buffer- |
| 15cbc0 | 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 | read-only.nil))...............(w |
| 15cbe0 | 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 27 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 65 64 69 74 73 | hen.(fboundp.'slime-remove-edits |
| 15cc00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d | ).................(slime-remove- |
| 15cc20 | 65 64 69 74 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a | edits.(point-min).(point-max))). |
| 15cc40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a | ..............(goto-char.start). |
| 15cc60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 74 61 | ..............(delete-region.sta |
| 15cc80 | 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 | rt.end)...............(slime-ins |
| 15cca0 | 65 72 74 2d 69 6e 64 65 6e 74 65 64 20 65 78 70 61 6e 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | ert-indented.expansion)......... |
| 15ccc0 | 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 69 6e 74 29 29 29 29 29 29 29 29 0a 0a | ......(goto-char.point)))))))).. |
| 15cce0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 28 26 6f 70 74 | (defun.slime-macroexpand-1.(&opt |
| 15cd00 | 69 6f 6e 61 6c 20 72 65 70 65 61 74 65 64 6c 79 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 | ional.repeatedly)..."Display.the |
| 15cd20 | 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 73 74 61 | .macro.expansion.of.the.form.sta |
| 15cd40 | 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 0a 54 68 65 20 66 6f 72 6d 20 69 73 20 65 78 70 61 | rting.at.point..The.form.is.expa |
| 15cd60 | 6e 64 65 64 20 77 69 74 68 20 43 4c 3a 4d 41 43 52 4f 45 58 50 41 4e 44 2d 31 20 6f 72 2c 20 69 | nded.with.CL:MACROEXPAND-1.or,.i |
| 15cd80 | 66 20 61 20 70 72 65 66 69 78 0a 61 72 67 75 6d 65 6e 74 20 69 73 20 67 69 76 65 6e 2c 20 77 69 | f.a.prefix.argument.is.given,.wi |
| 15cda0 | 74 68 20 43 4c 3a 4d 41 43 52 4f 45 58 50 41 4e 44 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | th.CL:MACROEXPAND."...(interacti |
| 15cdc0 | 76 65 20 22 50 22 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e | ve."P")...(slime-eval-macroexpan |
| 15cde0 | 64 0a 20 20 20 28 69 66 20 72 65 70 65 61 74 65 64 6c 79 20 27 73 77 61 6e 6b 3a 73 77 61 6e 6b | d....(if.repeatedly.'swank:swank |
| 15ce00 | 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 27 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 6d 61 63 72 6f 65 | -macroexpand.'swank:swank-macroe |
| 15ce20 | 78 70 61 6e 64 2d 31 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 | xpand-1)))..(defun.slime-macroex |
| 15ce40 | 70 61 6e 64 2d 31 2d 69 6e 70 6c 61 63 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 72 65 70 65 61 74 | pand-1-inplace.(&optional.repeat |
| 15ce60 | 65 64 6c 79 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 73 6c 69 | edly)...(interactive."P")...(sli |
| 15ce80 | 6d 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 69 6e 70 6c 61 63 65 0a 20 20 20 28 | me-eval-macroexpand-inplace....( |
| 15cea0 | 69 66 20 72 65 70 65 61 74 65 64 6c 79 20 27 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 6d 61 63 72 6f | if.repeatedly.'swank:swank-macro |
| 15cec0 | 65 78 70 61 6e 64 20 27 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d | expand.'swank:swank-macroexpand- |
| 15cee0 | 31 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 | 1)))..(defun.slime-macroexpand-a |
| 15cf00 | 6c 6c 20 28 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 72 65 63 75 72 73 69 76 65 6c 79 | ll.()..."Display.the.recursively |
| 15cf20 | 20 6d 61 63 72 6f 20 65 78 70 61 6e 64 65 64 20 73 65 78 70 20 73 74 61 72 74 69 6e 67 20 61 74 | .macro.expanded.sexp.starting.at |
| 15cf40 | 0a 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d | .point."...(interactive)...(slim |
| 15cf60 | 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 27 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d | e-eval-macroexpand.'swank:swank- |
| 15cf80 | 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | macroexpand-all))..(defun.slime- |
| 15cfa0 | 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 2d 69 6e 70 6c 61 63 65 20 28 29 0a 20 20 22 44 69 | macroexpand-all-inplace.()..."Di |
| 15cfc0 | 73 70 6c 61 79 20 74 68 65 20 72 65 63 75 72 73 69 76 65 6c 79 20 6d 61 63 72 6f 20 65 78 70 61 | splay.the.recursively.macro.expa |
| 15cfe0 | 6e 64 65 64 20 73 65 78 70 20 73 74 61 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 | nded.sexp.starting.at.point."... |
| 15d000 | 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 6d 61 63 72 | (interactive)...(slime-eval-macr |
| 15d020 | 6f 65 78 70 61 6e 64 2d 69 6e 70 6c 61 63 65 20 27 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 6d 61 63 | oexpand-inplace.'swank:swank-mac |
| 15d040 | 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d | roexpand-all))..(defun.slime-com |
| 15d060 | 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 28 26 6f 70 74 69 6f 6e 61 6c 20 72 | piler-macroexpand-1.(&optional.r |
| 15d080 | 65 70 65 61 74 65 64 6c 79 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 63 6f 6d 70 69 6c | epeatedly)..."Display.the.compil |
| 15d0a0 | 65 72 2d 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 73 65 78 70 20 73 74 61 72 74 | er-macro.expansion.of.sexp.start |
| 15d0c0 | 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 | ing.at.point."...(interactive."P |
| 15d0e0 | 22 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e 64 0a 20 20 20 | ")...(slime-eval-macroexpand.... |
| 15d100 | 28 69 66 20 72 65 70 65 61 74 65 64 6c 79 0a 20 20 20 20 20 20 20 27 73 77 61 6e 6b 3a 73 77 61 | (if.repeatedly........'swank:swa |
| 15d120 | 6e 6b 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 0a 20 20 20 20 20 27 73 77 | nk-compiler-macroexpand......'sw |
| 15d140 | 61 6e 6b 3a 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 | ank:swank-compiler-macroexpand-1 |
| 15d160 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f | )))..(defun.slime-compiler-macro |
| 15d180 | 65 78 70 61 6e 64 2d 31 2d 69 6e 70 6c 61 63 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 72 65 70 65 | expand-1-inplace.(&optional.repe |
| 15d1a0 | 61 74 65 64 6c 79 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 2d | atedly)..."Display.the.compiler- |
| 15d1c0 | 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 73 65 78 70 20 73 74 61 72 74 69 6e 67 | macro.expansion.of.sexp.starting |
| 15d1e0 | 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a | .at.point."...(interactive."P"). |
| 15d200 | 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 69 6e 70 6c 61 63 | ..(slime-eval-macroexpand-inplac |
| 15d220 | 65 0a 20 20 20 28 69 66 20 72 65 70 65 61 74 65 64 6c 79 0a 20 20 20 20 20 20 20 27 73 77 61 6e | e....(if.repeatedly........'swan |
| 15d240 | 6b 3a 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 0a 20 20 20 | k:swank-compiler-macroexpand.... |
| 15d260 | 20 20 27 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 | ..'swank:swank-compiler-macroexp |
| 15d280 | 61 6e 64 2d 31 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 31 20 | and-1)))..(defun.slime-expand-1. |
| 15d2a0 | 28 26 6f 70 74 69 6f 6e 61 6c 20 72 65 70 65 61 74 65 64 6c 79 29 0a 20 20 22 44 69 73 70 6c 61 | (&optional.repeatedly)..."Displa |
| 15d2c0 | 79 20 74 68 65 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 74 68 65 20 66 6f 72 | y.the.macro.expansion.of.the.for |
| 15d2e0 | 6d 20 73 74 61 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 0a 54 68 65 20 66 6f 72 6d 20 69 73 | m.starting.at.point..The.form.is |
| 15d300 | 20 65 78 70 61 6e 64 65 64 20 77 69 74 68 20 43 4c 3a 4d 41 43 52 4f 45 58 50 41 4e 44 2d 31 20 | .expanded.with.CL:MACROEXPAND-1. |
| 15d320 | 6f 72 2c 20 69 66 20 61 20 70 72 65 66 69 78 0a 61 72 67 75 6d 65 6e 74 20 69 73 20 67 69 76 65 | or,.if.a.prefix.argument.is.give |
| 15d340 | 6e 2c 20 77 69 74 68 20 43 4c 3a 4d 41 43 52 4f 45 58 50 41 4e 44 2e 20 20 49 66 20 74 68 65 20 | n,.with.CL:MACROEXPAND...If.the. |
| 15d360 | 66 6f 72 6d 20 64 65 6e 6f 74 65 73 20 61 0a 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 2c 20 53 | form.denotes.a.compiler.macro,.S |
| 15d380 | 57 41 4e 4b 2f 42 41 43 4b 45 4e 44 3a 43 4f 4d 50 49 4c 45 52 2d 4d 41 43 52 4f 45 58 50 41 4e | WANK/BACKEND:COMPILER-MACROEXPAN |
| 15d3a0 | 44 20 6f 72 0a 53 57 41 4e 4b 2f 42 41 43 4b 45 4e 44 3a 43 4f 4d 50 49 4c 45 52 2d 4d 41 43 52 | D.or.SWANK/BACKEND:COMPILER-MACR |
| 15d3c0 | 4f 45 58 50 41 4e 44 2d 31 20 61 72 65 20 75 73 65 64 20 69 6e 73 74 65 61 64 2e 22 0a 20 20 28 | OEXPAND-1.are.used.instead."...( |
| 15d3e0 | 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 6d | interactive."P")...(slime-eval-m |
| 15d400 | 61 63 72 6f 65 78 70 61 6e 64 0a 20 20 20 28 69 66 20 72 65 70 65 61 74 65 64 6c 79 0a 20 20 20 | acroexpand....(if.repeatedly.... |
| 15d420 | 20 20 20 20 27 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 65 78 70 61 6e 64 0a 20 20 20 20 20 27 73 77 | ....'swank:swank-expand......'sw |
| 15d440 | 61 6e 6b 3a 73 77 61 6e 6b 2d 65 78 70 61 6e 64 2d 31 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | ank:swank-expand-1)))..(defun.sl |
| 15d460 | 69 6d 65 2d 65 78 70 61 6e 64 2d 31 2d 69 6e 70 6c 61 63 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 | ime-expand-1-inplace.(&optional. |
| 15d480 | 72 65 70 65 61 74 65 64 6c 79 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 6d 61 63 72 6f | repeatedly)..."Display.the.macro |
| 15d4a0 | 20 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 61 74 20 70 6f 69 6e 74 2e | .expansion.of.the.form.at.point. |
| 15d4c0 | 0a 54 68 65 20 66 6f 72 6d 20 69 73 20 65 78 70 61 6e 64 65 64 20 77 69 74 68 20 43 4c 3a 4d 41 | .The.form.is.expanded.with.CL:MA |
| 15d4e0 | 43 52 4f 45 58 50 41 4e 44 2d 31 20 6f 72 2c 20 69 66 20 61 20 70 72 65 66 69 78 0a 61 72 67 75 | CROEXPAND-1.or,.if.a.prefix.argu |
| 15d500 | 6d 65 6e 74 20 69 73 20 67 69 76 65 6e 2c 20 77 69 74 68 20 43 4c 3a 4d 41 43 52 4f 45 58 50 41 | ment.is.given,.with.CL:MACROEXPA |
| 15d520 | 4e 44 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 73 6c 69 6d | ND."...(interactive."P")...(slim |
| 15d540 | 65 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 69 6e 70 6c 61 63 65 0a 20 20 20 28 69 | e-eval-macroexpand-inplace....(i |
| 15d560 | 66 20 72 65 70 65 61 74 65 64 6c 79 0a 20 20 20 20 20 20 20 27 73 77 61 6e 6b 3a 73 77 61 6e 6b | f.repeatedly........'swank:swank |
| 15d580 | 2d 65 78 70 61 6e 64 0a 20 20 20 20 20 27 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 65 78 70 61 6e 64 | -expand......'swank:swank-expand |
| 15d5a0 | 2d 31 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 6f 72 6d 61 74 2d 73 74 72 69 6e | -1)))..(defun.slime-format-strin |
| 15d5c0 | 67 2d 65 78 70 61 6e 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 69 6e 67 29 0a 20 20 22 45 | g-expand.(&optional.string)..."E |
| 15d5e0 | 78 70 61 6e 64 20 74 68 65 20 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 61 74 20 70 6f 69 6e 74 | xpand.the.format-string.at.point |
| 15d600 | 20 61 6e 64 20 64 69 73 70 6c 61 79 20 69 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | .and.display.it."...(interactive |
| 15d620 | 20 28 6c 69 73 74 20 28 6f 72 20 28 61 6e 64 20 28 6e 6f 74 20 63 75 72 72 65 6e 74 2d 70 72 65 | .(list.(or.(and.(not.current-pre |
| 15d640 | 66 69 78 2d 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fix-arg)........................ |
| 15d660 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 74 72 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 29 29 0a | .......(slime-string-at-point)). |
| 15d680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | .........................(slime- |
| 15d6a0 | 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 45 78 70 61 6e 64 20 66 6f 72 | read-from-minibuffer."Expand.for |
| 15d6c0 | 6d 61 74 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mat:.".......................... |
| 15d6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 | ............................(sli |
| 15d700 | 6d 65 2d 73 74 72 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 28 73 6c 69 6d 65 | me-string-at-point)))))...(slime |
| 15d720 | 2d 65 76 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 27 73 77 61 6e 6b 3a 73 77 61 6e 6b 2d 66 | -eval-macroexpand.'swank:swank-f |
| 15d740 | 6f 72 6d 61 74 2d 73 74 72 69 6e 67 2d 65 78 70 61 6e 64 20 73 74 72 69 6e 67 29 29 0a 0a 0c 0a | ormat-string-expand.string)).... |
| 15d760 | 3b 3b 3b 3b 20 53 75 62 70 72 6f 63 65 73 73 20 63 6f 6e 74 72 6f 6c 0a 0a 28 64 65 66 75 6e 20 | ;;;;.Subprocess.control..(defun. |
| 15d780 | 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 20 28 29 0a 20 20 22 49 6e 74 65 72 72 75 70 74 20 | slime-interrupt.()..."Interrupt. |
| 15d7a0 | 4c 69 73 70 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6f 6e 64 20 28 | Lisp."...(interactive)...(cond.( |
| 15d7c0 | 28 73 6c 69 6d 65 2d 75 73 65 2d 73 69 67 69 6e 74 2d 66 6f 72 2d 69 6e 74 65 72 72 75 70 74 29 | (slime-use-sigint-for-interrupt) |
| 15d7e0 | 20 28 73 6c 69 6d 65 2d 73 65 6e 64 2d 73 69 67 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 74 | .(slime-send-sigint)).........(t |
| 15d800 | 20 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 60 28 3a 65 6d 61 63 73 2d | .(slime-dispatch-event.`(:emacs- |
| 15d820 | 69 6e 74 65 72 72 75 70 74 20 2c 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 | interrupt.,slime-current-thread) |
| 15d840 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 71 75 69 74 20 28 29 0a 20 20 28 65 72 | ))))..(defun.slime-quit.()...(er |
| 15d860 | 72 6f 72 20 22 4e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 70 72 6f 70 65 72 6c 79 2e 20 20 | ror."Not.implemented.properly... |
| 15d880 | 55 73 65 20 60 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 27 20 69 6e 73 74 65 61 64 2e 22 29 | Use.`slime-interrupt'.instead.") |
| 15d8a0 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 71 75 69 74 2d 6c 69 73 70 20 28 26 6f 70 74 69 | )..(defun.slime-quit-lisp.(&opti |
| 15d8c0 | 6f 6e 61 6c 20 6b 69 6c 6c 29 0a 20 20 22 51 75 69 74 20 6c 69 73 70 2c 20 6b 69 6c 6c 20 74 68 | onal.kill)..."Quit.lisp,.kill.th |
| 15d8e0 | 65 20 69 6e 66 65 72 69 6f 72 20 70 72 6f 63 65 73 73 20 61 6e 64 20 61 73 73 6f 63 69 61 74 65 | e.inferior.process.and.associate |
| 15d900 | 64 20 62 75 66 66 65 72 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a | d.buffers."...(interactive."P"). |
| 15d920 | 20 20 28 73 6c 69 6d 65 2d 71 75 69 74 2d 6c 69 73 70 2d 69 6e 74 65 72 6e 61 6c 20 28 73 6c 69 | ..(slime-quit-lisp-internal.(sli |
| 15d940 | 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 27 73 6c 69 6d 65 2d 71 75 69 74 2d 73 65 6e 74 69 | me-connection).'slime-quit-senti |
| 15d960 | 6e 65 6c 20 6b 69 6c 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 71 75 69 74 2d 6c 69 | nel.kill))..(defun.slime-quit-li |
| 15d980 | 73 70 2d 69 6e 74 65 72 6e 61 6c 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 65 6e 74 69 6e 65 6c | sp-internal.(connection.sentinel |
| 15d9a0 | 20 6b 69 6c 6c 29 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e | .kill)...(let.((slime-dispatchin |
| 15d9c0 | 67 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 28 73 | g-connection.connection)).....(s |
| 15d9e0 | 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 27 28 73 77 61 6e 6b 3a 71 75 69 74 2d 6c 69 73 | lime-eval-async.'(swank:quit-lis |
| 15da00 | 70 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 70 72 6f 63 65 73 73 20 28 73 6c 69 6d 65 2d 69 | p)).....(let*.((process.(slime-i |
| 15da20 | 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 | nferior-process.connection)))... |
| 15da40 | 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 20 63 6f 6e 6e 65 63 74 69 | ....(set-process-filter.connecti |
| 15da60 | 6f 6e 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 | on..nil).......(set-process-sent |
| 15da80 | 69 6e 65 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 65 6e 74 69 6e 65 6c 29 0a 20 20 20 20 20 20 | inel.connection.sentinel)....... |
| 15daa0 | 28 77 68 65 6e 20 28 61 6e 64 20 6b 69 6c 6c 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 20 20 | (when.(and.kill.process)........ |
| 15dac0 | 20 28 73 6c 65 65 70 2d 66 6f 72 20 30 2e 32 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 | .(sleep-for.0.2).........(unless |
| 15dae0 | 20 28 6d 65 6d 71 20 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 70 72 6f 63 65 73 73 29 20 | .(memq.(process-status.process). |
| 15db00 | 27 28 65 78 69 74 20 73 69 67 6e 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d | '(exit.signal))...........(kill- |
| 15db20 | 70 72 6f 63 65 73 73 20 70 72 6f 63 65 73 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | process.process))))))..(defun.sl |
| 15db40 | 69 6d 65 2d 71 75 69 74 2d 73 65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 65 73 73 20 5f 6d 65 73 73 | ime-quit-sentinel.(process._mess |
| 15db60 | 61 67 65 29 0a 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 | age)...(cl-assert.(process-statu |
| 15db80 | 73 20 70 72 6f 63 65 73 73 29 20 27 63 6c 6f 73 65 64 29 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e | s.process).'closed)...(let*.((in |
| 15dba0 | 66 65 72 69 6f 72 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 20 70 | ferior.(slime-inferior-process.p |
| 15dbc0 | 72 6f 63 65 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 66 65 72 69 6f 72 2d 62 75 66 66 | rocess))..........(inferior-buff |
| 15dbe0 | 65 72 20 28 69 66 20 69 6e 66 65 72 69 6f 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 | er.(if.inferior.(process-buffer. |
| 15dc00 | 69 6e 66 65 72 69 6f 72 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 69 6e 66 65 72 69 6f 72 20 | inferior)))).....(when.inferior. |
| 15dc20 | 28 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 20 69 6e 66 65 72 69 6f 72 29 29 0a 20 20 20 20 28 | (delete-process.inferior)).....( |
| 15dc40 | 77 68 65 6e 20 69 6e 66 65 72 69 6f 72 2d 62 75 66 66 65 72 20 28 6b 69 6c 6c 2d 62 75 66 66 65 | when.inferior-buffer.(kill-buffe |
| 15dc60 | 72 20 69 6e 66 65 72 69 6f 72 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6e | r.inferior-buffer)).....(slime-n |
| 15dc80 | 65 74 2d 63 6c 6f 73 65 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 | et-close.process).....(message." |
| 15dca0 | 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6c 6f 73 65 64 2e 22 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 44 | Connection.closed.")))....;;;;.D |
| 15dcc0 | 65 62 75 67 67 65 72 20 28 53 4c 44 42 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 64 62 2d 68 6f 6f | ebugger.(SLDB)..(defvar.sldb-hoo |
| 15dce0 | 6b 20 6e 69 6c 0a 20 20 22 48 6f 6f 6b 20 72 75 6e 20 6f 6e 20 65 6e 74 72 79 20 74 6f 20 74 68 | k.nil..."Hook.run.on.entry.to.th |
| 15dd00 | 65 20 64 65 62 75 67 67 65 72 2e 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 73 6c 64 62 2d 69 | e.debugger.")..(defcustom.sldb-i |
| 15dd20 | 6e 69 74 69 61 6c 2d 72 65 73 74 61 72 74 2d 6c 69 6d 69 74 20 36 0a 20 20 22 4d 61 78 69 6d 75 | nitial-restart-limit.6..."Maximu |
| 15dd40 | 6d 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 73 74 61 72 74 73 20 74 6f 20 64 69 73 70 6c 61 79 20 | m.number.of.restarts.to.display. |
| 15dd60 | 69 6e 69 74 69 61 6c 6c 79 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 64 65 62 75 | initially."...:group.'slime-debu |
| 15dd80 | 67 67 65 72 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 | gger...:type.'integer)....;;;;;. |
| 15dda0 | 4c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 69 6e 20 74 68 65 20 64 65 62 75 67 67 65 72 20 | Local.variables.in.the.debugger. |
| 15ddc0 | 62 75 66 66 65 72 0a 0a 3b 3b 20 53 6d 61 6c 6c 20 68 65 6c 70 65 72 2e 0a 28 64 65 66 75 6e 20 | buffer..;;.Small.helper..(defun. |
| 15dde0 | 73 6c 69 6d 65 2d 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 73 2d 62 75 66 66 65 72 2d 6c 6f 63 61 | slime-make-variables-buffer-loca |
| 15de00 | 6c 20 28 26 72 65 73 74 20 76 61 72 69 61 62 6c 65 73 29 0a 20 20 28 6d 61 70 63 61 72 20 23 27 | l.(&rest.variables)...(mapcar.#' |
| 15de20 | 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 76 61 72 69 61 | make-variable-buffer-local.varia |
| 15de40 | 62 6c 65 73 29 29 0a 0a 28 73 6c 69 6d 65 2d 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 73 2d 62 75 | bles))..(slime-make-variables-bu |
| 15de60 | 66 66 65 72 2d 6c 6f 63 61 6c 0a 20 28 64 65 66 76 61 72 20 73 6c 64 62 2d 63 6f 6e 64 69 74 69 | ffer-local..(defvar.sldb-conditi |
| 15de80 | 6f 6e 20 6e 69 6c 0a 20 20 20 22 41 20 6c 69 73 74 20 28 44 45 53 43 52 49 50 54 49 4f 4e 20 54 | on.nil...."A.list.(DESCRIPTION.T |
| 15dea0 | 59 50 45 29 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 20 62 65 | YPE).describing.the.condition.be |
| 15dec0 | 69 6e 67 20 64 65 62 75 67 67 65 64 2e 22 29 0a 0a 20 28 64 65 66 76 61 72 20 73 6c 64 62 2d 72 | ing.debugged.")...(defvar.sldb-r |
| 15dee0 | 65 73 74 61 72 74 73 20 6e 69 6c 0a 20 20 20 22 4c 69 73 74 20 6f 66 20 28 4e 41 4d 45 20 44 45 | estarts.nil...."List.of.(NAME.DE |
| 15df00 | 53 43 52 49 50 54 49 4f 4e 29 20 66 6f 72 20 65 61 63 68 20 61 76 61 69 6c 61 62 6c 65 20 72 65 | SCRIPTION).for.each.available.re |
| 15df20 | 73 74 61 72 74 2e 22 29 0a 0a 20 28 64 65 66 76 61 72 20 73 6c 64 62 2d 6c 65 76 65 6c 20 6e 69 | start.")...(defvar.sldb-level.ni |
| 15df40 | 6c 0a 20 20 20 22 43 75 72 72 65 6e 74 20 64 65 62 75 67 20 6c 65 76 65 6c 20 28 72 65 63 75 72 | l...."Current.debug.level.(recur |
| 15df60 | 73 69 6f 6e 20 64 65 70 74 68 29 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 62 75 66 66 65 72 2e | sion.depth).displayed.in.buffer. |
| 15df80 | 22 29 0a 0a 20 28 64 65 66 76 61 72 20 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 2d 73 74 61 72 | ")...(defvar.sldb-backtrace-star |
| 15dfa0 | 74 2d 6d 61 72 6b 65 72 20 6e 69 6c 0a 20 20 20 22 4d 61 72 6b 65 72 20 70 6c 61 63 65 64 20 61 | t-marker.nil...."Marker.placed.a |
| 15dfc0 | 74 20 74 68 65 20 66 69 72 73 74 20 66 72 61 6d 65 20 6f 66 20 74 68 65 20 62 61 63 6b 74 72 61 | t.the.first.frame.of.the.backtra |
| 15dfe0 | 63 65 2e 22 29 0a 0a 20 28 64 65 66 76 61 72 20 73 6c 64 62 2d 72 65 73 74 61 72 74 2d 6c 69 73 | ce.")...(defvar.sldb-restart-lis |
| 15e000 | 74 2d 73 74 61 72 74 2d 6d 61 72 6b 65 72 20 6e 69 6c 0a 20 20 20 22 4d 61 72 6b 65 72 20 70 6c | t-start-marker.nil...."Marker.pl |
| 15e020 | 61 63 65 64 20 61 74 20 74 68 65 20 66 69 72 73 74 20 72 65 73 74 61 72 74 20 69 6e 20 74 68 65 | aced.at.the.first.restart.in.the |
| 15e040 | 20 72 65 73 74 61 72 74 20 6c 69 73 74 2e 22 29 0a 0a 20 28 64 65 66 76 61 72 20 73 6c 64 62 2d | .restart.list.")...(defvar.sldb- |
| 15e060 | 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 6e 69 6c 0a 20 20 20 22 4c 69 73 74 20 6f 66 20 69 64 | continuations.nil...."List.of.id |
| 15e080 | 73 20 66 6f 72 20 70 65 6e 64 69 6e 67 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2e 22 29 29 0a 0a | s.for.pending.continuation.")).. |
| 15e0a0 | 3b 3b 3b 3b 3b 20 53 4c 44 42 20 6d 61 63 72 6f 73 0a 0a 3b 3b 20 73 6f 6d 65 20 6d 61 63 72 6f | ;;;;;.SLDB.macros..;;.some.macro |
| 15e0c0 | 73 20 74 68 61 74 20 77 65 20 6e 65 65 64 20 74 6f 20 64 65 66 69 6e 65 20 62 65 66 6f 72 65 20 | s.that.we.need.to.define.before. |
| 15e0e0 | 74 68 65 20 66 69 72 73 74 20 75 73 65 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c 64 62 2d 69 6e | the.first.use..(defmacro.sldb-in |
| 15e100 | 2d 66 61 63 65 20 28 6e 61 6d 65 20 73 74 72 69 6e 67 29 0a 20 20 22 52 65 74 75 72 6e 20 53 54 | -face.(name.string)..."Return.ST |
| 15e120 | 52 49 4e 47 20 70 72 6f 70 65 72 74 69 73 65 64 20 77 69 74 68 20 66 61 63 65 20 73 6c 64 62 2d | RING.propertised.with.face.sldb- |
| 15e140 | 4e 41 4d 45 2d 66 61 63 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 | NAME-face."...(declare.(indent.1 |
| 15e160 | 29 29 0a 20 20 28 6c 65 74 20 28 28 66 61 63 65 6e 61 6d 65 20 28 69 6e 74 65 72 6e 20 28 66 6f | ))...(let.((facename.(intern.(fo |
| 15e180 | 72 6d 61 74 20 22 73 6c 64 62 2d 25 73 2d 66 61 63 65 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | rmat."sldb-%s-face".(symbol-name |
| 15e1a0 | 20 6e 61 6d 65 29 29 29 29 0a 09 28 76 61 72 20 28 63 6c 2d 67 65 6e 73 79 6d 20 22 73 74 72 69 | .name))))..(var.(cl-gensym."stri |
| 15e1c0 | 6e 67 22 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 76 61 72 20 2c 73 74 72 69 6e 67 29 | ng"))).....`(let.((,var.,string) |
| 15e1e0 | 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 61 64 64 2d 66 61 63 65 20 27 2c 66 61 63 65 6e | )........(slime-add-face.',facen |
| 15e200 | 61 6d 65 20 2c 76 61 72 29 0a 20 20 20 20 20 20 20 2c 76 61 72 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b | ame.,var)........,var)))....;;;; |
| 15e220 | 3b 20 73 6c 64 62 2d 6d 6f 64 65 0a 0a 28 64 65 66 76 61 72 20 73 6c 64 62 2d 6d 6f 64 65 2d 73 | ;.sldb-mode..(defvar.sldb-mode-s |
| 15e240 | 79 6e 74 61 78 2d 74 61 62 6c 65 0a 20 20 28 6c 65 74 20 28 28 74 61 62 6c 65 20 28 63 6f 70 79 | yntax-table...(let.((table.(copy |
| 15e260 | 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 | -syntax-table.lisp-mode-syntax-t |
| 15e280 | 61 62 6c 65 29 29 29 0a 20 20 20 20 3b 3b 20 57 65 20 67 69 76 65 20 3c 20 61 6e 64 20 3e 20 70 | able))).....;;.We.give.<.and.>.p |
| 15e2a0 | 61 72 65 6e 74 68 65 73 69 73 20 73 79 6e 74 61 78 2c 20 73 6f 20 74 68 61 74 20 23 3c 20 2e 2e | arenthesis.syntax,.so.that.#<... |
| 15e2c0 | 2e 20 3e 20 69 73 20 74 72 65 61 74 65 64 0a 20 20 20 20 3b 3b 20 61 73 20 61 20 62 61 6c 61 6e | ..>.is.treated.....;;.as.a.balan |
| 15e2e0 | 63 65 64 20 65 78 70 72 65 73 73 69 6f 6e 2e 20 20 54 68 69 73 20 65 6e 61 62 6c 65 73 20 61 75 | ced.expression...This.enables.au |
| 15e300 | 74 6f 64 6f 63 2d 6d 6f 64 65 20 74 6f 20 6d 61 74 63 68 0a 20 20 20 20 3b 3b 20 23 3c 75 6e 72 | todoc-mode.to.match.....;;.#<unr |
| 15e320 | 65 61 64 61 62 6c 65 3e 20 61 63 74 75 61 6c 20 61 72 67 75 6d 65 6e 74 73 20 69 6e 20 74 68 65 | eadable>.actual.arguments.in.the |
| 15e340 | 20 62 61 63 6b 74 72 61 63 65 73 20 77 69 74 68 20 66 6f 72 6d 61 6c 0a 20 20 20 20 3b 3b 20 61 | .backtraces.with.formal.....;;.a |
| 15e360 | 72 67 75 6d 65 6e 74 73 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 2e 20 20 28 46 6f 72 20 | rguments.of.the.function...(For. |
| 15e380 | 4c 69 73 70 20 6d 6f 64 65 2c 20 74 68 69 73 20 69 73 20 6e 6f 74 0a 20 20 20 20 3b 3b 20 64 65 | Lisp.mode,.this.is.not.....;;.de |
| 15e3a0 | 73 69 72 61 62 6c 65 2c 20 73 69 6e 63 65 20 77 65 20 64 6f 20 6e 6f 74 20 77 69 73 68 20 74 6f | sirable,.since.we.do.not.wish.to |
| 15e3c0 | 20 67 65 74 20 61 20 6d 69 73 6d 61 74 63 68 65 64 20 70 61 72 65 6e 0a 20 20 20 20 3b 3b 20 68 | .get.a.mismatched.paren.....;;.h |
| 15e3e0 | 69 67 68 6c 69 67 68 74 65 64 20 65 76 65 72 79 74 69 6d 65 20 77 65 20 74 79 70 65 20 3c 20 6f | ighlighted.everytime.we.type.<.o |
| 15e400 | 72 20 3e 2e 29 0a 20 20 20 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 3f | r.>.).....(modify-syntax-entry.? |
| 15e420 | 3c 20 22 28 22 20 74 61 62 6c 65 29 0a 20 20 20 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d | <."(".table).....(modify-syntax- |
| 15e440 | 65 6e 74 72 79 20 3f 3e 20 22 29 22 20 74 61 62 6c 65 29 0a 20 20 20 20 74 61 62 6c 65 29 0a 20 | entry.?>.")".table).....table).. |
| 15e460 | 20 22 53 79 6e 74 61 78 20 74 61 62 6c 65 20 66 6f 72 20 53 4c 44 42 20 6d 6f 64 65 2e 22 29 0a | ."Syntax.table.for.SLDB.mode."). |
| 15e480 | 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 73 6c 64 62 2d 6d 6f 64 65 20 | .(define-derived-mode.sldb-mode. |
| 15e4a0 | 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 20 22 73 6c 64 62 22 0a 20 20 22 53 75 70 65 72 | fundamental-mode."sldb"..."Super |
| 15e4c0 | 69 6f 72 20 6c 69 73 70 20 64 65 62 75 67 67 65 72 20 6d 6f 64 65 2e 0a 49 6e 20 61 64 64 69 74 | ior.lisp.debugger.mode..In.addit |
| 15e4e0 | 69 6f 6e 20 74 6f 20 6f 72 64 69 6e 61 72 79 20 53 4c 49 4d 45 20 63 6f 6d 6d 61 6e 64 73 2c 20 | ion.to.ordinary.SLIME.commands,. |
| 15e500 | 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65 0a 61 76 61 69 6c 61 62 6c 65 3a 5c 5c 3c 73 | the.following.are.available:\\<s |
| 15e520 | 6c 64 62 2d 6d 6f 64 65 2d 6d 61 70 3e 0a 0a 43 6f 6d 6d 61 6e 64 73 20 74 6f 20 65 78 61 6d 69 | ldb-mode-map>..Commands.to.exami |
| 15e540 | 6e 65 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 66 72 61 6d 65 3a 0a 20 20 20 5c 5c 5b 73 6c 64 | ne.the.selected.frame:....\\[sld |
| 15e560 | 62 2d 74 6f 67 67 6c 65 2d 64 65 74 61 69 6c 73 5d 20 20 20 2d 20 74 6f 67 67 6c 65 20 64 65 74 | b-toggle-details]...-.toggle.det |
| 15e580 | 61 69 6c 73 20 28 6c 6f 63 61 6c 20 62 69 6e 64 69 6e 67 73 2c 20 43 41 54 43 48 20 74 61 67 73 | ails.(local.bindings,.CATCH.tags |
| 15e5a0 | 29 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 73 68 6f 77 2d 73 6f 75 72 63 65 5d 20 20 20 2d 20 76 69 | )....\\[sldb-show-source]...-.vi |
| 15e5c0 | 65 77 20 73 6f 75 72 63 65 20 66 6f 72 20 74 68 65 20 66 72 61 6d 65 0a 20 20 20 5c 5c 5b 73 6c | ew.source.for.the.frame....\\[sl |
| 15e5e0 | 64 62 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 5d 20 20 20 2d 20 65 76 61 6c 20 69 6e 20 66 72 | db-eval-in-frame]...-.eval.in.fr |
| 15e600 | 61 6d 65 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d 69 6e 2d 66 72 | ame....\\[sldb-pprint-eval-in-fr |
| 15e620 | 61 6d 65 5d 20 20 20 2d 20 65 76 61 6c 20 69 6e 20 66 72 61 6d 65 2c 20 70 72 65 74 74 79 2d 70 | ame]...-.eval.in.frame,.pretty-p |
| 15e640 | 72 69 6e 74 20 72 65 73 75 6c 74 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 64 69 73 61 73 73 65 6d 62 | rint.result....\\[sldb-disassemb |
| 15e660 | 6c 65 5d 20 20 20 2d 20 64 69 73 61 73 73 65 6d 62 6c 65 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 69 | le]...-.disassemble....\\[sldb-i |
| 15e680 | 6e 73 70 65 63 74 2d 69 6e 2d 66 72 61 6d 65 5d 20 20 20 2d 20 69 6e 73 70 65 63 74 0a 0a 43 6f | nspect-in-frame]...-.inspect..Co |
| 15e6a0 | 6d 6d 61 6e 64 73 20 74 6f 20 69 6e 76 6f 6b 65 20 72 65 73 74 61 72 74 73 3a 0a 20 20 20 5c 5c | mmands.to.invoke.restarts:....\\ |
| 15e6c0 | 5b 73 6c 64 62 2d 71 75 69 74 5d 20 20 20 2d 20 71 75 69 74 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d | [sldb-quit]...-.quit....\\[sldb- |
| 15e6e0 | 61 62 6f 72 74 5d 20 20 20 2d 20 61 62 6f 72 74 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 63 6f 6e 74 | abort]...-.abort....\\[sldb-cont |
| 15e700 | 69 6e 75 65 5d 20 20 20 2d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 69 6e | inue]...-.continue....\\[sldb-in |
| 15e720 | 76 6f 6b 65 2d 72 65 73 74 61 72 74 2d 30 5d 2d 5c 5c 5b 73 6c 64 62 2d 69 6e 76 6f 6b 65 2d 72 | voke-restart-0]-\\[sldb-invoke-r |
| 15e740 | 65 73 74 61 72 74 2d 39 5d 20 2d 20 72 65 73 74 61 72 74 20 73 68 6f 72 74 63 75 74 73 0a 20 20 | estart-9].-.restart.shortcuts... |
| 15e760 | 20 5c 5c 5b 73 6c 64 62 2d 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 2d 62 79 2d 6e 61 6d 65 5d | .\\[sldb-invoke-restart-by-name] |
| 15e780 | 20 20 20 2d 20 69 6e 76 6f 6b 65 20 72 65 73 74 61 72 74 20 62 79 20 6e 61 6d 65 0a 0a 43 6f 6d | ...-.invoke.restart.by.name..Com |
| 15e7a0 | 6d 61 6e 64 73 20 74 6f 20 6e 61 76 69 67 61 74 65 20 66 72 61 6d 65 73 3a 0a 20 20 20 5c 5c 5b | mands.to.navigate.frames:....\\[ |
| 15e7c0 | 73 6c 64 62 2d 64 6f 77 6e 5d 20 20 20 2d 20 64 6f 77 6e 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 75 | sldb-down]...-.down....\\[sldb-u |
| 15e7e0 | 70 5d 20 20 20 2d 20 75 70 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 64 65 74 61 69 6c 73 2d 64 6f 77 | p]...-.up....\\[sldb-details-dow |
| 15e800 | 6e 5d 20 2d 20 64 6f 77 6e 2c 20 77 69 74 68 20 64 65 74 61 69 6c 73 0a 20 20 20 5c 5c 5b 73 6c | n].-.down,.with.details....\\[sl |
| 15e820 | 64 62 2d 64 65 74 61 69 6c 73 2d 75 70 5d 20 2d 20 75 70 2c 20 77 69 74 68 20 64 65 74 61 69 6c | db-details-up].-.up,.with.detail |
| 15e840 | 73 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 63 79 63 6c 65 5d 20 2d 20 63 79 63 6c 65 20 62 65 74 77 | s....\\[sldb-cycle].-.cycle.betw |
| 15e860 | 65 65 6e 20 72 65 73 74 61 72 74 73 20 26 20 62 61 63 6b 74 72 61 63 65 0a 20 20 20 5c 5c 5b 73 | een.restarts.&.backtrace....\\[s |
| 15e880 | 6c 64 62 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 62 61 63 6b 74 72 61 63 65 5d 20 20 20 2d 20 | ldb-beginning-of-backtrace]...-. |
| 15e8a0 | 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 62 61 63 6b 74 72 61 63 65 0a 20 20 20 5c 5c 5b 73 6c 64 | beginning.of.backtrace....\\[sld |
| 15e8c0 | 62 2d 65 6e 64 2d 6f 66 2d 62 61 63 6b 74 72 61 63 65 5d 20 20 20 2d 20 65 6e 64 20 6f 66 20 62 | b-end-of-backtrace]...-.end.of.b |
| 15e8e0 | 61 63 6b 74 72 61 63 65 0a 0a 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 63 6f 6d 6d 61 6e 64 73 | acktrace..Miscellaneous.commands |
| 15e900 | 3a 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 72 65 73 74 61 72 74 2d 66 72 61 6d 65 5d 20 20 20 2d 20 | :....\\[sldb-restart-frame]...-. |
| 15e920 | 72 65 73 74 61 72 74 20 66 72 61 6d 65 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 72 65 74 75 72 6e 2d | restart.frame....\\[sldb-return- |
| 15e940 | 66 72 6f 6d 2d 66 72 61 6d 65 5d 20 20 20 2d 20 72 65 74 75 72 6e 20 66 72 6f 6d 20 66 72 61 6d | from-frame]...-.return.from.fram |
| 15e960 | 65 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 73 74 65 70 5d 20 20 20 2d 20 73 74 65 70 0a 20 20 20 5c | e....\\[sldb-step]...-.step....\ |
| 15e980 | 5c 5b 73 6c 64 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 64 65 62 75 67 67 | \[sldb-break-with-default-debugg |
| 15e9a0 | 65 72 5d 20 20 20 2d 20 73 77 69 74 63 68 20 74 6f 20 6e 61 74 69 76 65 20 64 65 62 75 67 67 65 | er]...-.switch.to.native.debugge |
| 15e9c0 | 72 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d 73 79 73 74 65 6d 2d 64 | r....\\[sldb-break-with-system-d |
| 15e9e0 | 65 62 75 67 67 65 72 5d 20 20 20 2d 20 73 77 69 74 63 68 20 74 6f 20 73 79 73 74 65 6d 20 64 65 | ebugger]...-.switch.to.system.de |
| 15ea00 | 62 75 67 67 65 72 20 28 67 64 62 29 0a 20 20 20 5c 5c 5b 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 | bugger.(gdb)....\\[slime-interac |
| 15ea20 | 74 69 76 65 2d 65 76 61 6c 5d 20 20 20 2d 20 65 76 61 6c 0a 20 20 20 5c 5c 5b 73 6c 64 62 2d 69 | tive-eval]...-.eval....\\[sldb-i |
| 15ea40 | 6e 73 70 65 63 74 2d 63 6f 6e 64 69 74 69 6f 6e 5d 20 20 20 2d 20 69 6e 73 70 65 63 74 20 73 69 | nspect-condition]...-.inspect.si |
| 15ea60 | 67 6e 61 6c 6c 65 64 20 63 6f 6e 64 69 74 69 6f 6e 0a 0a 46 75 6c 6c 20 6c 69 73 74 20 6f 66 20 | gnalled.condition..Full.list.of. |
| 15ea80 | 63 6f 6d 6d 61 6e 64 73 3a 0a 0a 5c 5c 7b 73 6c 64 62 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 | commands:..\\{sldb-mode-map}"... |
| 15eaa0 | 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 28 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 | (erase-buffer)...(set-syntax-tab |
| 15eac0 | 6c 65 20 73 6c 64 62 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 0a 20 20 28 73 6c | le.sldb-mode-syntax-table)...(sl |
| 15eae0 | 69 6d 65 2d 73 65 74 2d 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 29 0a 20 20 3b 3b 20 4d 61 6b | ime-set-truncate-lines)...;;.Mak |
| 15eb00 | 65 20 6f 72 69 67 69 6e 61 6c 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 22 73 74 69 | e.original.slime-connection."sti |
| 15eb20 | 63 6b 79 22 20 66 6f 72 20 53 4c 44 42 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 20 74 68 69 73 20 62 | cky".for.SLDB.commands.in.this.b |
| 15eb40 | 75 66 66 65 72 0a 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 | uffer...(setq.slime-buffer-conne |
| 15eb60 | 63 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 0a 28 73 65 74 | ction.(slime-connection)))..(set |
| 15eb80 | 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 73 6c 64 62 2d 6d 6f 64 65 2d 6d 61 70 20 73 6c 69 | -keymap-parent.sldb-mode-map.sli |
| 15eba0 | 6d 65 2d 70 61 72 65 6e 74 2d 6d 61 70 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 | me-parent-map)..(slime-define-ke |
| 15ebc0 | 79 73 20 73 6c 64 62 2d 6d 6f 64 65 2d 6d 61 70 0a 0a 20 20 28 28 6b 62 64 20 22 52 45 54 22 29 | ys.sldb-mode-map....((kbd."RET") |
| 15ebe0 | 20 27 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 29 0a 20 20 28 22 5c 43 2d 6d 22 | .'sldb-default-action)...("\C-m" |
| 15ec00 | 20 20 20 20 20 20 27 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 29 0a 20 20 28 5b | ......'sldb-default-action)...([ |
| 15ec20 | 72 65 74 75 72 6e 5d 20 27 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 29 0a 20 20 | return].'sldb-default-action)... |
| 15ec40 | 28 5b 6d 6f 75 73 65 2d 32 5d 20 20 27 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e | ([mouse-2]..'sldb-default-action |
| 15ec60 | 2f 6d 6f 75 73 65 29 0a 20 20 28 5b 66 6f 6c 6c 6f 77 2d 6c 69 6e 6b 5d 20 27 6d 6f 75 73 65 2d | /mouse)...([follow-link].'mouse- |
| 15ec80 | 66 61 63 65 29 0a 20 20 28 22 5c 43 2d 69 22 20 27 73 6c 64 62 2d 63 79 63 6c 65 29 0a 20 20 28 | face)...("\C-i".'sldb-cycle)...( |
| 15eca0 | 22 68 22 20 20 20 20 27 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 29 0a 20 20 28 22 76 22 20 20 20 | "h"....'describe-mode)...("v"... |
| 15ecc0 | 20 27 73 6c 64 62 2d 73 68 6f 77 2d 73 6f 75 72 63 65 29 0a 20 20 28 22 65 22 20 20 20 20 27 73 | .'sldb-show-source)...("e"....'s |
| 15ece0 | 6c 64 62 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 29 0a 20 20 28 22 64 22 20 20 20 20 27 73 6c | ldb-eval-in-frame)...("d"....'sl |
| 15ed00 | 64 62 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 29 0a 20 20 28 22 44 22 20 | db-pprint-eval-in-frame)...("D". |
| 15ed20 | 20 20 20 27 73 6c 64 62 2d 64 69 73 61 73 73 65 6d 62 6c 65 29 0a 20 20 28 22 69 22 20 20 20 20 | ...'sldb-disassemble)...("i".... |
| 15ed40 | 27 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 69 6e 2d 66 72 61 6d 65 29 0a 20 20 28 22 6e 22 20 20 | 'sldb-inspect-in-frame)...("n".. |
| 15ed60 | 20 20 27 73 6c 64 62 2d 64 6f 77 6e 29 0a 20 20 28 22 70 22 20 20 20 20 27 73 6c 64 62 2d 75 70 | ..'sldb-down)...("p"....'sldb-up |
| 15ed80 | 29 0a 20 20 28 22 5c 4d 2d 6e 22 20 27 73 6c 64 62 2d 64 65 74 61 69 6c 73 2d 64 6f 77 6e 29 0a | )...("\M-n".'sldb-details-down). |
| 15eda0 | 20 20 28 22 5c 4d 2d 70 22 20 27 73 6c 64 62 2d 64 65 74 61 69 6c 73 2d 75 70 29 0a 20 20 28 22 | ..("\M-p".'sldb-details-up)...(" |
| 15edc0 | 3c 22 20 20 20 20 27 73 6c 64 62 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 62 61 63 6b 74 72 61 | <"....'sldb-beginning-of-backtra |
| 15ede0 | 63 65 29 0a 20 20 28 22 3e 22 20 20 20 20 27 73 6c 64 62 2d 65 6e 64 2d 6f 66 2d 62 61 63 6b 74 | ce)...(">"....'sldb-end-of-backt |
| 15ee00 | 72 61 63 65 29 0a 20 20 28 22 74 22 20 20 20 20 27 73 6c 64 62 2d 74 6f 67 67 6c 65 2d 64 65 74 | race)...("t"....'sldb-toggle-det |
| 15ee20 | 61 69 6c 73 29 0a 20 20 28 22 72 22 20 20 20 20 27 73 6c 64 62 2d 72 65 73 74 61 72 74 2d 66 72 | ails)...("r"....'sldb-restart-fr |
| 15ee40 | 61 6d 65 29 0a 20 20 28 22 49 22 20 20 20 20 27 73 6c 64 62 2d 69 6e 76 6f 6b 65 2d 72 65 73 74 | ame)...("I"....'sldb-invoke-rest |
| 15ee60 | 61 72 74 2d 62 79 2d 6e 61 6d 65 29 0a 20 20 28 22 52 22 20 20 20 20 27 73 6c 64 62 2d 72 65 74 | art-by-name)...("R"....'sldb-ret |
| 15ee80 | 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 29 0a 20 20 28 22 63 22 20 20 20 20 27 73 6c 64 62 2d | urn-from-frame)...("c"....'sldb- |
| 15eea0 | 63 6f 6e 74 69 6e 75 65 29 0a 20 20 28 22 73 22 20 20 20 20 27 73 6c 64 62 2d 73 74 65 70 29 0a | continue)...("s"....'sldb-step). |
| 15eec0 | 20 20 28 22 78 22 20 20 20 20 27 73 6c 64 62 2d 6e 65 78 74 29 0a 20 20 28 22 6f 22 20 20 20 20 | ..("x"....'sldb-next)...("o".... |
| 15eee0 | 27 73 6c 64 62 2d 6f 75 74 29 0a 20 20 28 22 62 22 20 20 20 20 27 73 6c 64 62 2d 62 72 65 61 6b | 'sldb-out)...("b"....'sldb-break |
| 15ef00 | 2d 6f 6e 2d 72 65 74 75 72 6e 29 0a 20 20 28 22 61 22 20 20 20 20 27 73 6c 64 62 2d 61 62 6f 72 | -on-return)...("a"....'sldb-abor |
| 15ef20 | 74 29 0a 20 20 28 22 71 22 20 20 20 20 27 73 6c 64 62 2d 71 75 69 74 29 0a 20 20 28 22 41 22 20 | t)...("q"....'sldb-quit)...("A". |
| 15ef40 | 20 20 20 27 73 6c 64 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d 73 79 73 74 65 6d 2d 64 65 62 75 67 | ...'sldb-break-with-system-debug |
| 15ef60 | 67 65 72 29 0a 20 20 28 22 42 22 20 20 20 20 27 73 6c 64 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d | ger)...("B"....'sldb-break-with- |
| 15ef80 | 64 65 66 61 75 6c 74 2d 64 65 62 75 67 67 65 72 29 0a 20 20 28 22 50 22 20 20 20 20 27 73 6c 64 | default-debugger)...("P"....'sld |
| 15efa0 | 62 2d 70 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 22 43 22 20 20 20 20 27 73 6c | b-print-condition)...("C"....'sl |
| 15efc0 | 64 62 2d 69 6e 73 70 65 63 74 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 22 3a 22 20 20 20 20 | db-inspect-condition)...(":".... |
| 15efe0 | 27 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 29 0a 20 20 28 22 5c 43 2d | 'slime-interactive-eval)...("\C- |
| 15f000 | 63 5c 43 2d 63 22 20 27 73 6c 64 62 2d 72 65 63 6f 6d 70 69 6c 65 2d 66 72 61 6d 65 2d 73 6f 75 | c\C-c".'sldb-recompile-frame-sou |
| 15f020 | 72 63 65 29 29 0a 0a 3b 3b 20 4b 65 79 73 20 30 2d 39 20 61 72 65 20 73 68 6f 72 74 63 75 74 73 | rce))..;;.Keys.0-9.are.shortcuts |
| 15f040 | 20 74 6f 20 69 6e 76 6f 6b 65 20 70 61 72 74 69 63 75 6c 61 72 20 72 65 73 74 61 72 74 73 2e 0a | .to.invoke.particular.restarts.. |
| 15f060 | 28 64 6f 74 69 6d 65 73 20 28 6e 75 6d 62 65 72 20 31 30 29 0a 20 20 28 6c 65 74 20 28 28 66 6e | (dotimes.(number.10)...(let.((fn |
| 15f080 | 61 6d 65 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 73 6c 64 62 2d 69 6e 76 6f 6b 65 | ame.(intern.(format."sldb-invoke |
| 15f0a0 | 2d 72 65 73 74 61 72 74 2d 25 53 22 20 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 | -restart-%S".number))).........( |
| 15f0c0 | 64 6f 63 73 74 72 69 6e 67 20 28 66 6f 72 6d 61 74 20 22 49 6e 76 6f 6b 65 20 72 65 73 74 61 72 | docstring.(format."Invoke.restar |
| 15f0e0 | 74 20 6e 75 6d 62 65 72 65 64 20 25 53 2e 22 20 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 28 65 | t.numbered.%S.".number))).....(e |
| 15f100 | 76 61 6c 20 60 28 64 65 66 75 6e 20 2c 66 6e 61 6d 65 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 | val.`(defun.,fname.()........... |
| 15f120 | 20 20 20 2c 64 6f 63 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 | ...,docstring..............(inte |
| 15f140 | 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e 76 6f | ractive)..............(sldb-invo |
| 15f160 | 6b 65 2d 72 65 73 74 61 72 74 20 2c 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e | ke-restart.,number))).....(defin |
| 15f180 | 65 2d 6b 65 79 20 73 6c 64 62 2d 6d 6f 64 65 2d 6d 61 70 20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 | e-key.sldb-mode-map.(number-to-s |
| 15f1a0 | 74 72 69 6e 67 20 6e 75 6d 62 65 72 29 20 66 6e 61 6d 65 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 | tring.number).fname)))....;;;;;. |
| 15f1c0 | 53 4c 44 42 20 62 75 66 66 65 72 20 63 72 65 61 74 69 6f 6e 20 26 20 75 70 64 61 74 65 0a 0a 28 | SLDB.buffer.creation.&.update..( |
| 15f1e0 | 64 65 66 75 6e 20 73 6c 64 62 2d 62 75 66 66 65 72 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6f | defun.sldb-buffers.(&optional.co |
| 15f200 | 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c | nnection)..."Return.a.list.of.al |
| 15f220 | 6c 20 73 6c 64 62 20 62 75 66 66 65 72 73 20 28 62 65 6c 6f 6e 67 69 6e 67 20 74 6f 20 43 4f 4e | l.sldb.buffers.(belonging.to.CON |
| 15f240 | 4e 45 43 54 49 4f 4e 2e 29 22 0a 20 20 28 69 66 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 | NECTION.)"...(if.connection..... |
| 15f260 | 20 20 28 73 6c 69 6d 65 2d 66 69 6c 74 65 72 2d 62 75 66 66 65 72 73 20 28 6c 61 6d 62 64 61 20 | ..(slime-filter-buffers.(lambda. |
| 15f280 | 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ().............................. |
| 15f2a0 | 20 28 61 6e 64 20 28 65 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f | .(and.(eq.slime-buffer-connectio |
| 15f2c0 | 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.connection)................... |
| 15f2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 | .................(eq.major-mode. |
| 15f300 | 27 73 6c 64 62 2d 6d 6f 64 65 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 66 69 6c 74 65 72 | 'sldb-mode)))).....(slime-filter |
| 15f320 | 2d 62 75 66 66 65 72 73 20 28 6c 61 6d 62 64 61 20 28 29 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f | -buffers.(lambda.().(eq.major-mo |
| 15f340 | 64 65 20 27 73 6c 64 62 2d 6d 6f 64 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d | de.'sldb-mode)))))..(defun.sldb- |
| 15f360 | 66 69 6e 64 2d 62 75 66 66 65 72 20 28 74 68 72 65 61 64 20 26 6f 70 74 69 6f 6e 61 6c 20 63 6f | find-buffer.(thread.&optional.co |
| 15f380 | 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 6f | nnection)...(let.((connection.(o |
| 15f3a0 | 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 | r.connection.(slime-connection)) |
| 15f3c0 | 29 29 0a 20 20 20 20 28 63 6c 2d 66 69 6e 64 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 62 75 66 66 | )).....(cl-find-if.(lambda.(buff |
| 15f3e0 | 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 | er)...................(with-curr |
| 15f400 | 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ent-buffer.buffer............... |
| 15f420 | 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e | ......(and.(eq.slime-buffer-conn |
| 15f440 | 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ection.connection).............. |
| 15f460 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 | ............(eq.slime-current-th |
| 15f480 | 72 65 61 64 20 74 68 72 65 61 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | read.thread))))................. |
| 15f4a0 | 28 73 6c 64 62 2d 62 75 66 66 65 72 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 67 | (sldb-buffers))))..(defun.sldb-g |
| 15f4c0 | 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 20 28 29 0a 20 20 22 47 65 74 20 61 20 73 6c | et-default-buffer.()..."Get.a.sl |
| 15f4e0 | 64 62 20 62 75 66 66 65 72 2e 0a 54 68 65 20 63 68 6f 73 65 6e 20 62 75 66 66 65 72 20 74 68 65 | db.buffer..The.chosen.buffer.the |
| 15f500 | 20 64 65 66 61 75 6c 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 27 73 20 69 74 20 69 66 20 65 78 69 73 | .default.connection's.it.if.exis |
| 15f520 | 74 73 2e 22 0a 20 20 28 63 61 72 20 28 73 6c 64 62 2d 62 75 66 66 65 72 73 20 73 6c 69 6d 65 2d | ts."...(car.(sldb-buffers.slime- |
| 15f540 | 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | default-connection)))..(defun.sl |
| 15f560 | 64 62 2d 67 65 74 2d 62 75 66 66 65 72 20 28 74 68 72 65 61 64 20 26 6f 70 74 69 6f 6e 61 6c 20 | db-get-buffer.(thread.&optional. |
| 15f580 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 22 46 69 6e 64 20 6f 72 20 63 72 65 61 74 65 20 61 20 | connection)..."Find.or.create.a. |
| 15f5a0 | 73 6c 64 62 2d 62 75 66 66 65 72 20 66 6f 72 20 54 48 52 45 41 44 2e 22 0a 20 20 28 6c 65 74 20 | sldb-buffer.for.THREAD."...(let. |
| 15f5c0 | 28 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 6f 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6c 69 | ((connection.(or.connection.(sli |
| 15f5e0 | 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 28 6f 72 20 28 73 6c 64 62 2d | me-connection)))).....(or.(sldb- |
| 15f600 | 66 69 6e 64 2d 62 75 66 66 65 72 20 74 68 72 65 61 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 | find-buffer.thread.connection).. |
| 15f620 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 22 2a 73 6c 64 | .......(let.((name.(format."*sld |
| 15f640 | 62 20 25 73 2f 25 73 2a 22 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 | b.%s/%s*".(slime-connection-name |
| 15f660 | 29 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 | ).thread)))...........(with-curr |
| 15f680 | 65 6e 74 2d 62 75 66 66 65 72 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 | ent-buffer.(generate-new-buffer. |
| 15f6a0 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 | name).............(setq.slime-bu |
| 15f6c0 | 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 | ffer-connection.connection...... |
| 15f6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 | .............slime-current-threa |
| 15f700 | 64 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 | d.thread).............(current-b |
| 15f720 | 75 66 66 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 64 65 62 75 67 67 65 | uffer))))))..(defun.sldb-debugge |
| 15f740 | 64 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 22 | d-continuations.(connection)..." |
| 15f760 | 52 65 74 75 72 6e 20 74 68 65 20 61 6c 6c 20 64 65 62 75 67 67 65 64 20 63 6f 6e 74 69 6e 75 61 | Return.the.all.debugged.continua |
| 15f780 | 74 69 6f 6e 73 20 66 6f 72 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 61 63 72 6f 73 73 20 53 4c 44 42 | tions.for.CONNECTION.across.SLDB |
| 15f7a0 | 20 62 75 66 66 65 72 73 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 62 20 69 6e 20 28 | .buffers."...(cl-loop.for.b.in.( |
| 15f7c0 | 73 6c 64 62 2d 62 75 66 66 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 | sldb-buffers)............append. |
| 15f7e0 | 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 0a 20 20 20 20 20 20 20 20 20 | (with-current-buffer.b.......... |
| 15f800 | 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 | ...........(and.(eq.slime-buffer |
| 15f820 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | -connection.connection)......... |
| 15f840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 61 74 69 | .................sldb-continuati |
| 15f860 | 6f 6e 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 2d 64 69 73 70 6c 61 79 2d 62 75 | ons))))..(defun.sldb--display-bu |
| 15f880 | 66 66 65 72 2d 72 65 75 73 65 2d 6c 61 73 74 2d 77 69 6e 64 6f 77 20 28 62 75 66 66 65 72 20 5f | ffer-reuse-last-window.(buffer._ |
| 15f8a0 | 61 6c 69 73 74 29 0a 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 | alist)...(let.((window.......... |
| 15f8c0 | 28 67 65 74 2d 77 69 6e 64 6f 77 2d 77 69 74 68 2d 70 72 65 64 69 63 61 74 65 20 28 6c 61 6d 62 | (get-window-with-predicate.(lamb |
| 15f8e0 | 64 61 20 28 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | da.(w).......................... |
| 15f900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 72 20 77 | .............(window-parameter.w |
| 15f920 | 20 27 73 6c 64 62 2d 6c 61 73 74 2d 77 69 6e 64 6f 77 29 29 29 29 29 0a 20 20 20 20 28 77 68 65 | .'sldb-last-window))))).....(whe |
| 15f940 | 6e 20 28 61 6e 64 20 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f | n.(and.window................(no |
| 15f960 | 74 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 | t.(with-current-buffer.(window-b |
| 15f980 | 75 66 66 65 72 20 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uffer.window)................... |
| 15f9a0 | 20 20 20 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 27 73 6c 64 62 2d 6d 6f 64 65 29 29 | ....(derived-mode-p.'sldb-mode)) |
| 15f9c0 | 29 29 0a 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 72 65 63 6f 72 64 2d | )).......(display-buffer-record- |
| 15f9e0 | 77 69 6e 64 6f 77 20 27 72 65 75 73 65 20 77 69 6e 64 6f 77 20 62 75 66 66 65 72 29 0a 20 20 20 | window.'reuse.window.buffer).... |
| 15fa00 | 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 20 62 75 66 | ...(set-window-buffer.window.buf |
| 15fa20 | 66 65 72 29 0a 20 20 20 20 20 20 77 69 6e 64 6f 77 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 | fer).......window)))..(defun.sld |
| 15fa40 | 62 2d 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 62 75 66 66 65 72 29 0a 20 20 22 50 6f 70 | b-display-buffer.(buffer)..."Pop |
| 15fa60 | 20 74 6f 20 42 55 46 46 45 52 20 72 65 75 73 69 6e 67 20 74 68 65 20 6c 61 73 74 20 53 4c 44 42 | .to.BUFFER.reusing.the.last.SLDB |
| 15fa80 | 20 77 69 6e 64 6f 77 2c 20 69 66 20 61 6e 79 2e 22 0a 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 | .window,.if.any."...(pop-to-buff |
| 15faa0 | 65 72 20 62 75 66 66 65 72 20 27 28 73 6c 64 62 2d 2d 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 | er.buffer.'(sldb--display-buffer |
| 15fac0 | 2d 72 65 75 73 65 2d 6c 61 73 74 2d 77 69 6e 64 6f 77 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | -reuse-last-window)))..(defun.sl |
| 15fae0 | 64 62 2d 73 65 74 75 70 20 28 74 68 72 65 61 64 20 6c 65 76 65 6c 20 63 6f 6e 64 69 74 69 6f 6e | db-setup.(thread.level.condition |
| 15fb00 | 20 72 65 73 74 61 72 74 73 20 66 72 61 6d 65 73 20 63 6f 6e 74 73 29 0a 20 20 22 53 65 74 75 70 | .restarts.frames.conts)..."Setup |
| 15fb20 | 20 61 20 6e 65 77 20 53 4c 44 42 20 62 75 66 66 65 72 2e 0a 43 4f 4e 44 49 54 49 4f 4e 20 69 73 | .a.new.SLDB.buffer..CONDITION.is |
| 15fb40 | 20 61 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 63 6f 6e 64 69 74 69 | .a.string.describing.the.conditi |
| 15fb60 | 6f 6e 20 74 6f 20 64 65 62 75 67 2e 0a 52 45 53 54 41 52 54 53 20 69 73 20 61 20 6c 69 73 74 20 | on.to.debug..RESTARTS.is.a.list. |
| 15fb80 | 6f 66 20 73 74 72 69 6e 67 73 20 28 4e 41 4d 45 20 44 45 53 43 52 49 50 54 49 4f 4e 29 20 66 6f | of.strings.(NAME.DESCRIPTION).fo |
| 15fba0 | 72 20 65 61 63 68 20 61 76 61 69 6c 61 62 6c 65 20 72 65 73 74 61 72 74 2e 0a 46 52 41 4d 45 53 | r.each.available.restart..FRAMES |
| 15fbc0 | 20 69 73 20 61 20 6c 69 73 74 20 28 4e 55 4d 42 45 52 20 44 45 53 43 52 49 50 54 49 4f 4e 20 26 | .is.a.list.(NUMBER.DESCRIPTION.& |
| 15fbe0 | 6f 70 74 69 6f 6e 61 6c 20 50 4c 49 53 54 29 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 69 | optional.PLIST).describing.the.i |
| 15fc00 | 6e 69 74 69 61 6c 0a 70 6f 72 74 69 6f 6e 20 6f 66 20 74 68 65 20 62 61 63 6b 74 72 61 63 65 2e | nitial.portion.of.the.backtrace. |
| 15fc20 | 20 46 72 61 6d 65 73 20 61 72 65 20 6e 75 6d 62 65 72 65 64 20 66 72 6f 6d 20 30 2e 0a 43 4f 4e | .Frames.are.numbered.from.0..CON |
| 15fc40 | 54 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 70 65 6e 64 69 6e 67 20 45 6d 61 63 73 20 63 6f | TS.is.a.list.of.pending.Emacs.co |
| 15fc60 | 6e 74 69 6e 75 61 74 69 6f 6e 73 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 | ntinuations."...(with-current-bu |
| 15fc80 | 66 66 65 72 20 28 73 6c 64 62 2d 67 65 74 2d 62 75 66 66 65 72 20 74 68 72 65 61 64 29 0a 20 20 | ffer.(sldb-get-buffer.thread)... |
| 15fca0 | 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 69 66 20 28 65 71 75 61 6c 20 73 6c 64 62 2d 6c 65 76 | ..(cl-assert.(if.(equal.sldb-lev |
| 15fcc0 | 65 6c 20 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 | el.level)....................(eq |
| 15fce0 | 75 61 6c 20 73 6c 64 62 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 | ual.sldb-condition.condition)... |
| 15fd00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............t)............... |
| 15fd20 | 20 28 29 20 22 42 75 67 3a 20 73 6c 64 62 2d 6c 65 76 65 6c 20 69 73 20 65 71 75 61 6c 20 62 75 | .()."Bug:.sldb-level.is.equal.bu |
| 15fd40 | 74 20 63 6f 6e 64 69 74 69 6f 6e 20 64 69 66 66 65 72 73 5c 6e 25 73 5c 6e 25 73 22 0a 20 20 20 | t.condition.differs\n%s\n%s".... |
| 15fd60 | 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 64 62 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 | ............sldb-condition.condi |
| 15fd80 | 74 69 6f 6e 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 73 6c 64 62 2d 6c 65 | tion).....(unless.(equal.sldb-le |
| 15fda0 | 76 65 6c 20 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 72 65 | vel.level).......(setq.buffer-re |
| 15fdc0 | 61 64 2d 6f 6e 6c 79 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 6c 64 62 2d 6d 6f 64 65 29 0a 20 | ad-only.nil).......(sldb-mode).. |
| 15fde0 | 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 | .....(setq.slime-current-thread. |
| 15fe00 | 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 64 62 2d 6c 65 76 65 6c 20 6c | thread).......(setq.sldb-level.l |
| 15fe20 | 65 76 65 6c 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 6d 6f 64 65 2d 6e 61 6d 65 20 28 66 6f 72 | evel).......(setq.mode-name.(for |
| 15fe40 | 6d 61 74 20 22 73 6c 64 62 5b 25 64 5d 22 20 73 6c 64 62 2d 6c 65 76 65 6c 29 29 0a 20 20 20 20 | mat."sldb[%d]".sldb-level))..... |
| 15fe60 | 20 20 28 73 65 74 71 20 73 6c 64 62 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e | ..(setq.sldb-condition.condition |
| 15fe80 | 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 64 62 2d 72 65 73 74 61 72 74 73 20 72 65 73 74 | ).......(setq.sldb-restarts.rest |
| 15fea0 | 61 72 74 73 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 61 74 | arts).......(setq.sldb-continuat |
| 15fec0 | 69 6f 6e 73 20 63 6f 6e 74 73 29 0a 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e 73 65 72 74 2d 63 | ions.conts).......(sldb-insert-c |
| 15fee0 | 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 | ondition.condition).......(inser |
| 15ff00 | 74 20 22 5c 6e 5c 6e 22 20 28 73 6c 64 62 2d 69 6e 2d 66 61 63 65 20 73 65 63 74 69 6f 6e 20 22 | t."\n\n".(sldb-in-face.section." |
| 15ff20 | 52 65 73 74 61 72 74 73 3a 22 29 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 6c | Restarts:")."\n").......(setq.sl |
| 15ff40 | 64 62 2d 72 65 73 74 61 72 74 2d 6c 69 73 74 2d 73 74 61 72 74 2d 6d 61 72 6b 65 72 20 28 70 6f | db-restart-list-start-marker.(po |
| 15ff60 | 69 6e 74 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e 73 65 72 74 2d | int-marker)).......(sldb-insert- |
| 15ff80 | 72 65 73 74 61 72 74 73 20 72 65 73 74 61 72 74 73 20 30 20 73 6c 64 62 2d 69 6e 69 74 69 61 6c | restarts.restarts.0.sldb-initial |
| 15ffa0 | 2d 72 65 73 74 61 72 74 2d 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c | -restart-limit).......(insert."\ |
| 15ffc0 | 6e 22 20 28 73 6c 64 62 2d 69 6e 2d 66 61 63 65 20 73 65 63 74 69 6f 6e 20 22 42 61 63 6b 74 72 | n".(sldb-in-face.section."Backtr |
| 15ffe0 | 61 63 65 3a 22 29 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 64 62 2d 62 61 | ace:")."\n").......(setq.sldb-ba |
| 160000 | 63 6b 74 72 61 63 65 2d 73 74 61 72 74 2d 6d 61 72 6b 65 72 20 28 70 6f 69 6e 74 2d 6d 61 72 6b | cktrace-start-marker.(point-mark |
| 160020 | 65 72 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 | er)).......(save-excursion...... |
| 160040 | 20 20 20 28 69 66 20 66 72 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d | ...(if.frames.............(sldb- |
| 160060 | 69 6e 73 65 72 74 2d 66 72 61 6d 65 73 20 28 73 6c 64 62 2d 70 72 75 6e 65 2d 69 6e 69 74 69 61 | insert-frames.(sldb-prune-initia |
| 160080 | 6c 2d 66 72 61 6d 65 73 20 66 72 61 6d 65 73 29 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 | l-frames.frames).t)...........(i |
| 1600a0 | 6e 73 65 72 74 20 22 5b 4e 6f 20 62 61 63 6b 74 72 61 63 65 5d 22 29 29 29 0a 20 20 20 20 20 20 | nsert."[No.backtrace]")))....... |
| 1600c0 | 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 73 6c 64 62 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 28 73 65 | (run-hooks.'sldb-hook).......(se |
| 1600e0 | 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d | t-syntax-table.lisp-mode-syntax- |
| 160100 | 74 61 62 6c 65 29 29 0a 20 20 20 20 3b 3b 20 46 49 58 4d 45 3a 20 72 65 6d 6f 76 65 20 77 68 65 | table)).....;;.FIXME:.remove.whe |
| 160120 | 6e 20 64 72 6f 70 70 69 6e 67 20 45 6d 61 63 73 32 33 20 73 75 70 70 6f 72 74 0a 20 20 20 20 28 | n.dropping.Emacs23.support.....( |
| 160140 | 6c 65 74 20 28 28 73 61 76 65 64 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 29 0a | let.((saved.(selected-window))). |
| 160160 | 20 20 20 20 20 20 28 73 6c 64 62 2d 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 63 75 72 72 | ......(sldb-display-buffer.(curr |
| 160180 | 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 70 | ent-buffer)).......(set-window-p |
| 1601a0 | 61 72 61 6d 65 74 65 72 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 20 27 73 6c 64 62 | arameter.(selected-window).'sldb |
| 1601c0 | 2d 72 65 73 74 6f 72 65 20 73 61 76 65 64 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 6e 6f 6e | -restore.saved)).....(unless.non |
| 1601e0 | 69 6e 74 65 72 61 63 74 69 76 65 20 3b 20 6e 65 65 64 65 64 20 66 6f 72 20 74 65 73 74 73 20 69 | interactive.;.needed.for.tests.i |
| 160200 | 6e 20 62 61 74 63 68 2d 6d 6f 64 65 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 2d 64 69 73 70 6c | n.batch-mode.......(slime--displ |
| 160220 | 61 79 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 29 29 29 0a | ay-region.(point-min).(point))). |
| 160240 | 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 | ....(setq.buffer-read-only.t)... |
| 160260 | 20 20 28 77 68 65 6e 20 28 61 6e 64 20 73 6c 69 6d 65 2d 73 74 61 63 6b 2d 65 76 61 6c 2d 74 61 | ..(when.(and.slime-stack-eval-ta |
| 160280 | 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 79 2d 6f 72 2d 6e 2d 70 20 22 | gs................;;.(y-or-n-p." |
| 1602a0 | 45 6e 74 65 72 20 72 65 63 75 72 73 69 76 65 20 65 64 69 74 3f 20 22 29 0a 20 20 20 20 20 20 20 | Enter.recursive.edit?.")........ |
| 1602c0 | 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 45 6e 74 65 72 69 | ........).......(message."Enteri |
| 1602e0 | 6e 67 20 72 65 63 75 72 73 69 76 65 20 65 64 69 74 2e 2e 22 29 0a 20 20 20 20 20 20 28 72 65 63 | ng.recursive.edit..").......(rec |
| 160300 | 75 72 73 69 76 65 2d 65 64 69 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 61 63 74 | ursive-edit))))..(defun.sldb-act |
| 160320 | 69 76 61 74 65 20 28 74 68 72 65 61 64 20 6c 65 76 65 6c 20 73 65 6c 65 63 74 29 0a 20 20 22 44 | ivate.(thread.level.select)..."D |
| 160340 | 69 73 70 6c 61 79 20 74 68 65 20 64 65 62 75 67 67 65 72 20 62 75 66 66 65 72 20 66 6f 72 20 54 | isplay.the.debugger.buffer.for.T |
| 160360 | 48 52 45 41 44 2e 0a 49 66 20 4c 45 56 45 4c 20 69 73 6e 27 74 20 74 68 65 20 73 61 6d 65 20 61 | HREAD..If.LEVEL.isn't.the.same.a |
| 160380 | 73 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 72 65 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 | s.in.the.buffer.reinitialize.the |
| 1603a0 | 20 62 75 66 66 65 72 2e 22 0a 20 20 28 6f 72 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 73 | .buffer."...(or.(let.((buffer.(s |
| 1603c0 | 6c 64 62 2d 66 69 6e 64 2d 62 75 66 66 65 72 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 | ldb-find-buffer.thread)))....... |
| 1603e0 | 20 20 28 77 68 65 6e 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 | ..(when.buffer...........(with-c |
| 160400 | 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 | urrent-buffer.buffer............ |
| 160420 | 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 73 6c 64 62 2d 6c 65 76 65 6c 20 6c 65 76 65 6c 29 0a | .(when.(equal.sldb-level.level). |
| 160440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 65 6c 65 63 74 20 28 70 6f 70 2d | ..............(when.select.(pop- |
| 160460 | 74 6f 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 | to-buffer.(current-buffer))).... |
| 160480 | 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 29 0a 20 20 20 20 20 20 28 73 6c 64 62 2d 72 65 69 | ...........t)))).......(sldb-rei |
| 1604a0 | 6e 69 74 69 61 6c 69 7a 65 20 74 68 72 65 61 64 20 6c 65 76 65 6c 29 29 29 0a 0a 28 64 65 66 75 | nitialize.thread.level)))..(defu |
| 1604c0 | 6e 20 73 6c 64 62 2d 72 65 69 6e 69 74 69 61 6c 69 7a 65 20 28 74 68 72 65 61 64 20 6c 65 76 65 | n.sldb-reinitialize.(thread.leve |
| 1604e0 | 6c 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 78 20 28 74 68 72 65 61 64 20 6c 65 76 65 6c 29 0a 20 | l)...(slime-rex.(thread.level).. |
| 160500 | 20 20 20 20 20 28 27 28 73 77 61 6e 6b 3a 64 65 62 75 67 67 65 72 2d 69 6e 66 6f 2d 66 6f 72 2d | .....('(swank:debugger-info-for- |
| 160520 | 65 6d 61 63 73 20 30 20 31 30 29 0a 20 20 20 20 20 20 20 6e 69 6c 20 74 68 72 65 61 64 29 0a 20 | emacs.0.10)........nil.thread).. |
| 160540 | 20 20 20 28 28 3a 6f 6b 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 | ...((:ok.result)......(apply.#'s |
| 160560 | 6c 64 62 2d 73 65 74 75 70 20 74 68 72 65 61 64 20 6c 65 76 65 6c 20 72 65 73 75 6c 74 29 29 29 | ldb-setup.thread.level.result))) |
| 160580 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 2d 6d 61 72 6b 2d 6c 61 73 74 2d 77 69 6e 64 6f 77 | )..(defun.sldb--mark-last-window |
| 1605a0 | 20 28 77 69 6e 64 6f 77 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 77 69 6e 64 6f 77 20 28 77 69 6e | .(window)...(dolist.(window.(win |
| 1605c0 | 64 6f 77 2d 6c 69 73 74 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 77 69 6e 64 6f 77 2d 70 61 72 | dow-list)).....(when.(window-par |
| 1605e0 | 61 6d 65 74 65 72 20 77 69 6e 64 6f 77 20 27 73 6c 64 62 2d 6c 61 73 74 2d 77 69 6e 64 6f 77 29 | ameter.window.'sldb-last-window) |
| 160600 | 0a 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 72 20 77 69 6e | .......(set-window-parameter.win |
| 160620 | 64 6f 77 20 27 73 6c 64 62 2d 6c 61 73 74 2d 77 69 6e 64 6f 77 20 6e 69 6c 29 29 29 0a 20 20 28 | dow.'sldb-last-window.nil)))...( |
| 160640 | 73 65 74 2d 77 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 72 20 77 69 6e 64 6f 77 20 27 73 6c 64 | set-window-parameter.window.'sld |
| 160660 | 62 2d 6c 61 73 74 2d 77 69 6e 64 6f 77 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 65 | b-last-window.t))..(defun.sldb-e |
| 160680 | 78 69 74 20 28 74 68 72 65 61 64 20 5f 6c 65 76 65 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 65 | xit.(thread._level.&optional.ste |
| 1606a0 | 70 70 69 6e 67 29 0a 20 20 22 45 78 69 74 20 66 72 6f 6d 20 74 68 65 20 64 65 62 75 67 20 6c 65 | pping)..."Exit.from.the.debug.le |
| 1606c0 | 76 65 6c 20 4c 45 56 45 4c 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 6c 64 62 20 28 73 6c 64 62 2d | vel.LEVEL."...(let.((sldb.(sldb- |
| 1606e0 | 66 69 6e 64 2d 62 75 66 66 65 72 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 | find-buffer.thread))).....(when. |
| 160700 | 73 6c 64 62 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 | sldb.......(with-current-buffer. |
| 160720 | 73 6c 64 62 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 73 74 65 70 70 69 6e 67 0a 20 20 20 | sldb.........(cond.(stepping.... |
| 160740 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 64 62 2d 6c 65 76 65 6c 20 6e 69 6c | ............(setq.sldb-level.nil |
| 160760 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d 77 69 74 68 2d 74 69 6d 65 72 | )................(run-with-timer |
| 160780 | 20 30 2e 34 20 6e 69 6c 20 27 73 6c 64 62 2d 63 6c 6f 73 65 2d 73 74 65 70 2d 62 75 66 66 65 72 | .0.4.nil.'sldb-close-step-buffer |
| 1607a0 | 20 73 6c 64 62 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 65 71 20 | .sldb))...............((not.(eq. |
| 1607c0 | 73 6c 64 62 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 28 73 65 6c 65 63 74 65 64 2d 77 69 | sldb.(window-buffer.(selected-wi |
| 1607e0 | 6e 64 6f 77 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 20 64 69 66 | ndow))))................;;.A.dif |
| 160800 | 66 65 72 65 6e 74 20 77 69 6e 64 6f 77 20 73 65 6c 65 63 74 69 6f 6e 20 6d 65 61 6e 73 20 61 6e | ferent.window.selection.means.an |
| 160820 | 20 69 6e 64 69 72 65 63 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6e 6f 6e | .indirect,................;;.non |
| 160840 | 2d 69 6e 74 65 72 61 63 74 69 76 65 20 65 78 69 74 2c 20 77 65 20 6a 75 73 74 20 6b 69 6c 6c 20 | -interactive.exit,.we.just.kill. |
| 160860 | 74 68 65 20 73 6c 64 62 20 62 75 66 66 65 72 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | the.sldb.buffer................. |
| 160880 | 28 6b 69 6c 6c 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a | (kill-buffer))...............(t. |
| 1608a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 2d 6d 61 72 6b 2d 6c 61 73 74 2d | ...............(sldb--mark-last- |
| 1608c0 | 77 69 6e 64 6f 77 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 | window.(selected-window))....... |
| 1608e0 | 20 20 20 20 20 20 20 20 20 3b 3b 20 41 6e 20 69 6e 74 65 72 61 63 74 69 76 65 20 65 78 69 74 20 | .........;;.An.interactive.exit. |
| 160900 | 73 68 6f 75 6c 64 20 72 65 73 74 6f 72 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 70 65 72 | should.restore.configuration.per |
| 160920 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 60 71 75 69 74 2d 77 69 6e 64 6f 77 27 | ................;;.`quit-window' |
| 160940 | 73 20 70 72 6f 74 6f 63 6f 6c 2e 20 46 49 58 4d 45 3a 20 72 65 6d 6f 76 65 0a 20 20 20 20 20 20 | s.protocol..FIXME:.remove....... |
| 160960 | 20 20 20 20 20 20 20 20 20 3b 3b 20 60 70 72 65 76 69 6f 75 73 2d 77 69 6e 64 6f 77 27 20 68 61 | .........;;.`previous-window'.ha |
| 160980 | 63 6b 20 77 68 65 6e 20 64 72 6f 70 70 69 6e 67 20 45 6d 61 63 73 32 33 20 73 75 70 70 6f 72 74 | ck.when.dropping.Emacs23.support |
| 1609a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 65 76 69 6f 75 73 2d | ................(let.((previous- |
| 1609c0 | 77 69 6e 64 6f 77 20 28 77 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 72 20 28 73 65 6c 65 63 74 | window.(window-parameter.(select |
| 1609e0 | 65 64 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-window)...................... |
| 160a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 160a20 | 20 20 20 27 73 6c 64 62 2d 72 65 73 74 6f 72 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...'sldb-restore)))............. |
| 160a40 | 20 20 20 20 20 28 71 75 69 74 2d 77 69 6e 64 6f 77 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .....(quit-window.t)............ |
| 160a60 | 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 6e 6f 74 20 28 3e 3d 20 65 6d 61 63 73 2d 6d 61 | ......(if.(and.(not.(>=.emacs-ma |
| 160a80 | 6a 6f 72 2d 76 65 72 73 69 6f 6e 20 32 34 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | jor-version.24))................ |
| 160aa0 | 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 6c 69 76 65 2d 70 20 70 72 65 76 69 6f | ...........(window-live-p.previo |
| 160ac0 | 75 73 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | us-window))..................... |
| 160ae0 | 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 70 72 65 76 69 6f 75 73 2d 77 69 6e 64 6f 77 29 | .(select-window.previous-window) |
| 160b00 | 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 63 6c 6f 73 65 2d 73 74 65 70 | ))))))))..(defun.sldb-close-step |
| 160b20 | 2d 62 75 66 66 65 72 20 28 62 75 66 66 65 72 29 0a 20 20 28 77 68 65 6e 20 28 62 75 66 66 65 72 | -buffer.(buffer)...(when.(buffer |
| 160b40 | 2d 6c 69 76 65 2d 70 20 62 75 66 66 65 72 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e | -live-p.buffer).....(with-curren |
| 160b60 | 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 | t-buffer.buffer.......(when.(not |
| 160b80 | 20 73 6c 64 62 2d 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 28 71 75 69 74 2d 77 69 6e 64 6f | .sldb-level).........(quit-windo |
| 160ba0 | 77 20 74 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 3b 20 53 4c 44 42 20 62 75 66 66 65 72 20 69 | w.t)))))....;;;;;;.SLDB.buffer.i |
| 160bc0 | 6e 73 65 72 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 69 6e 73 65 72 74 2d 63 6f 6e | nsertion..(defun.sldb-insert-con |
| 160be0 | 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 49 6e 73 65 72 74 20 74 68 65 | dition.(condition)..."Insert.the |
| 160c00 | 20 74 65 78 74 20 66 6f 72 20 43 4f 4e 44 49 54 49 4f 4e 2e 0a 43 4f 4e 44 49 54 49 4f 4e 20 73 | .text.for.CONDITION..CONDITION.s |
| 160c20 | 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 20 28 4d 45 53 53 41 47 45 20 54 59 50 45 20 45 58 | hould.be.a.list.(MESSAGE.TYPE.EX |
| 160c40 | 54 52 41 53 29 2e 0a 45 58 54 52 41 53 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 75 73 65 64 20 | TRAS)..EXTRAS.is.currently.used. |
| 160c60 | 66 6f 72 20 74 68 65 20 73 74 65 70 70 65 72 2e 22 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 | for.the.stepper."...(cl-destruct |
| 160c80 | 75 72 69 6e 67 2d 62 69 6e 64 20 28 6d 65 73 73 61 67 65 20 74 79 70 65 20 65 78 74 72 61 73 29 | uring-bind.(message.type.extras) |
| 160ca0 | 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f | .condition.....(slime-insert-pro |
| 160cc0 | 70 65 72 74 69 7a 65 64 20 27 28 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 20 73 | pertized.'(sldb-default-action.s |
| 160ce0 | 6c 64 62 2d 69 6e 73 70 65 63 74 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | ldb-inspect-condition).......... |
| 160d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e 2d 66 61 | .....................(sldb-in-fa |
| 160d20 | 63 65 20 74 6f 70 6c 69 6e 65 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ce.topline.message)............. |
| 160d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 | .................."\n".......... |
| 160d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e 2d 66 61 | .....................(sldb-in-fa |
| 160d80 | 63 65 20 63 6f 6e 64 69 74 69 6f 6e 20 74 79 70 65 29 29 0a 20 20 20 20 28 73 6c 64 62 2d 64 69 | ce.condition.type)).....(sldb-di |
| 160da0 | 73 70 61 74 63 68 2d 65 78 74 72 61 73 20 65 78 74 72 61 73 29 29 29 0a 0a 28 64 65 66 76 61 72 | spatch-extras.extras)))..(defvar |
| 160dc0 | 20 73 6c 64 62 2d 65 78 74 72 61 73 2d 68 6f 6f 6b 73 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 | .sldb-extras-hooks)..(defun.sldb |
| 160de0 | 2d 64 69 73 70 61 74 63 68 2d 65 78 74 72 61 73 20 28 65 78 74 72 61 73 29 0a 20 20 3b 3b 20 74 | -dispatch-extras.(extras)...;;.t |
| 160e00 | 68 69 73 20 69 73 20 28 6d 69 73 2d 29 75 73 65 64 20 66 6f 72 20 74 68 65 20 73 74 65 70 70 65 | his.is.(mis-)used.for.the.steppe |
| 160e20 | 72 0a 20 20 28 64 6f 6c 69 73 74 20 28 65 78 74 72 61 20 65 78 74 72 61 73 29 0a 20 20 20 20 28 | r...(dolist.(extra.extras).....( |
| 160e40 | 73 6c 69 6d 65 2d 64 63 61 73 65 20 65 78 74 72 61 0a 20 20 20 20 20 20 28 28 3a 73 68 6f 77 2d | slime-dcase.extra.......((:show- |
| 160e60 | 66 72 61 6d 65 2d 73 6f 75 72 63 65 20 6e 29 0a 20 20 20 20 20 20 20 28 73 6c 64 62 2d 73 68 6f | frame-source.n)........(sldb-sho |
| 160e80 | 77 2d 66 72 61 6d 65 2d 73 6f 75 72 63 65 20 6e 29 29 0a 20 20 20 20 20 20 28 74 0a 20 20 20 20 | w-frame-source.n)).......(t..... |
| 160ea0 | 20 20 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c | ...(or.(run-hook-with-args-until |
| 160ec0 | 2d 73 75 63 63 65 73 73 20 27 73 6c 64 62 2d 65 78 74 72 61 73 2d 68 6f 6f 6b 73 20 65 78 74 72 | -success.'sldb-extras-hooks.extr |
| 160ee0 | 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 65 72 72 6f 72 20 22 55 6e 68 61 6e 64 6c 65 | a)............;;(error."Unhandle |
| 160f00 | 64 20 65 78 74 72 61 20 65 6c 65 6d 65 6e 74 3a 22 20 65 78 74 72 61 29 0a 20 20 20 20 20 20 20 | d.extra.element:".extra)........ |
| 160f20 | 20 20 20 20 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 69 6e 73 65 72 74 2d 72 65 | ....)))))..(defun.sldb-insert-re |
| 160f40 | 73 74 61 72 74 73 20 28 72 65 73 74 61 72 74 73 20 73 74 61 72 74 20 63 6f 75 6e 74 29 0a 20 20 | starts.(restarts.start.count)... |
| 160f60 | 22 49 6e 73 65 72 74 20 52 45 53 54 41 52 54 53 20 61 6e 64 20 61 64 64 20 74 68 65 20 6e 65 65 | "Insert.RESTARTS.and.add.the.nee |
| 160f80 | 64 65 64 20 74 65 78 74 20 70 72 6f 70 73 0a 52 45 53 54 41 52 54 53 20 73 68 6f 75 6c 64 20 62 | ded.text.props.RESTARTS.should.b |
| 160fa0 | 65 20 61 20 6c 69 73 74 20 28 28 4e 41 4d 45 20 44 45 53 43 52 49 50 54 49 4f 4e 29 20 2e 2e 2e | e.a.list.((NAME.DESCRIPTION).... |
| 160fc0 | 29 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 72 65 73 74 61 72 | )."...(let*.((len.(length.restar |
| 160fe0 | 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 69 66 20 63 6f 75 6e 74 20 28 6d 69 | ts))..........(end.(if.count.(mi |
| 161000 | 6e 20 28 2b 20 73 74 61 72 74 20 63 6f 75 6e 74 29 20 6c 65 6e 29 20 6c 65 6e 29 29 29 0a 20 20 | n.(+.start.count).len).len)))... |
| 161020 | 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6e 61 6d 65 20 73 74 72 69 6e 67 29 20 69 6e 20 | ..(cl-loop.for.(name.string).in. |
| 161040 | 28 63 6c 2d 73 75 62 73 65 71 20 72 65 73 74 61 72 74 73 20 73 74 61 72 74 20 65 6e 64 29 0a 20 | (cl-subseq.restarts.start.end).. |
| 161060 | 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6e 75 6d 62 65 72 20 66 72 6f 6d 20 73 74 61 72 | ............for.number.from.star |
| 161080 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d | t..............do.(slime-insert- |
| 1610a0 | 70 72 6f 70 65 72 74 69 7a 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c | propertized..................`(, |
| 1610c0 | 40 6e 69 6c 20 72 65 73 74 61 72 74 20 2c 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 | @nil.restart.,number............ |
| 1610e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f | ..............sldb-default-actio |
| 161100 | 6e 20 73 6c 64 62 2d 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 | n.sldb-invoke-restart........... |
| 161120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 75 73 65 2d 66 61 63 65 20 68 69 67 68 6c 69 | ...............mouse-face.highli |
| 161140 | 67 68 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 22 20 28 73 6c 64 62 2d | ght)..................".".(sldb- |
| 161160 | 69 6e 2d 66 61 63 65 20 72 65 73 74 61 72 74 2d 6e 75 6d 62 65 72 20 28 6e 75 6d 62 65 72 2d 74 | in-face.restart-number.(number-t |
| 161180 | 6f 2d 73 74 72 69 6e 67 20 6e 75 6d 62 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o-string.number))............... |
| 1611a0 | 20 20 20 22 3a 20 5b 22 20 20 28 73 6c 64 62 2d 69 6e 2d 66 61 63 65 20 72 65 73 74 61 72 74 2d | ...":.["..(sldb-in-face.restart- |
| 1611c0 | 74 79 70 65 20 6e 61 6d 65 29 20 22 5d 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | type.name)."]."................. |
| 1611e0 | 20 28 73 6c 64 62 2d 69 6e 2d 66 61 63 65 20 72 65 73 74 61 72 74 20 73 74 72 69 6e 67 29 29 0a | .(sldb-in-face.restart.string)). |
| 161200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 29 0a 20 20 20 20 | .............(insert."\n"))..... |
| 161220 | 28 77 68 65 6e 20 28 3c 20 65 6e 64 20 6c 65 6e 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 | (when.(<.end.len).......(let.((p |
| 161240 | 6f 73 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 | os.(point))).........(slime-inse |
| 161260 | 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 64 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 73 | rt-propertized..........(list.'s |
| 161280 | 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ldb-default-action.............. |
| 1612a0 | 20 20 28 73 6c 69 6d 65 2d 72 63 75 72 72 79 20 23 27 73 6c 64 62 2d 69 6e 73 65 72 74 2d 6d 6f | ..(slime-rcurry.#'sldb-insert-mo |
| 1612c0 | 72 65 2d 72 65 73 74 61 72 74 73 20 72 65 73 74 61 72 74 73 20 70 6f 73 20 65 6e 64 29 29 0a 20 | re-restarts.restarts.pos.end)).. |
| 1612e0 | 20 20 20 20 20 20 20 20 22 20 2d 2d 6d 6f 72 65 2d 2d 5c 6e 22 29 29 29 29 29 0a 0a 28 64 65 66 | ........".--more--\n")))))..(def |
| 161300 | 75 6e 20 73 6c 64 62 2d 69 6e 73 65 72 74 2d 6d 6f 72 65 2d 72 65 73 74 61 72 74 73 20 28 72 65 | un.sldb-insert-more-restarts.(re |
| 161320 | 73 74 61 72 74 73 20 70 6f 73 69 74 69 6f 6e 20 73 74 61 72 74 29 0a 20 20 28 67 6f 74 6f 2d 63 | starts.position.start)...(goto-c |
| 161340 | 68 61 72 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 | har.position)...(let.((inhibit-r |
| 161360 | 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 | ead-only.t)).....(delete-region. |
| 161380 | 70 6f 73 69 74 69 6f 6e 20 28 31 2b 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 | position.(1+.(line-end-position) |
| 1613a0 | 29 29 0a 20 20 20 20 28 73 6c 64 62 2d 69 6e 73 65 72 74 2d 72 65 73 74 61 72 74 73 20 72 65 73 | )).....(sldb-insert-restarts.res |
| 1613c0 | 74 61 72 74 73 20 73 74 61 72 74 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d | tarts.start.nil)))..(defun.sldb- |
| 1613e0 | 66 72 61 6d 65 2e 73 74 72 69 6e 67 20 28 66 72 61 6d 65 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 | frame.string.(frame)...(cl-destr |
| 161400 | 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 5f 20 73 74 72 20 26 6f 70 74 69 6f 6e 61 6c 20 5f | ucturing-bind.(_.str.&optional._ |
| 161420 | 29 20 66 72 61 6d 65 20 73 74 72 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 66 72 61 6d 65 | ).frame.str))..(defun.sldb-frame |
| 161440 | 2e 6e 75 6d 62 65 72 20 28 66 72 61 6d 65 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 | .number.(frame)...(cl-destructur |
| 161460 | 69 6e 67 2d 62 69 6e 64 20 28 6e 20 5f 20 26 6f 70 74 69 6f 6e 61 6c 20 5f 29 20 66 72 61 6d 65 | ing-bind.(n._.&optional._).frame |
| 161480 | 20 6e 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 66 72 61 6d 65 2e 70 6c 69 73 74 20 28 66 | .n))..(defun.sldb-frame.plist.(f |
| 1614a0 | 72 61 6d 65 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 | rame)...(cl-destructuring-bind.( |
| 1614c0 | 5f 20 5f 20 26 6f 70 74 69 6f 6e 61 6c 20 70 6c 69 73 74 29 20 66 72 61 6d 65 20 70 6c 69 73 74 | _._.&optional.plist).frame.plist |
| 1614e0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 66 72 61 6d 65 2d 72 65 73 74 61 72 74 61 62 6c | ))..(defun.sldb-frame-restartabl |
| 161500 | 65 2d 70 20 28 66 72 61 6d 65 29 0a 20 20 28 61 6e 64 20 28 70 6c 69 73 74 2d 67 65 74 20 28 73 | e-p.(frame)...(and.(plist-get.(s |
| 161520 | 6c 64 62 2d 66 72 61 6d 65 2e 70 6c 69 73 74 20 66 72 61 6d 65 29 20 3a 72 65 73 74 61 72 74 61 | ldb-frame.plist.frame).:restarta |
| 161540 | 62 6c 65 29 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 70 72 75 6e 65 2d 69 6e 69 74 | ble).t))..(defun.sldb-prune-init |
| 161560 | 69 61 6c 2d 66 72 61 6d 65 73 20 28 66 72 61 6d 65 73 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 | ial-frames.(frames)..."Return.th |
| 161580 | 65 20 70 72 65 66 69 78 20 6f 66 20 46 52 41 4d 45 53 20 74 6f 20 69 6e 69 74 69 61 6c 6c 79 20 | e.prefix.of.FRAMES.to.initially. |
| 1615a0 | 70 72 65 73 65 6e 74 20 74 6f 20 74 68 65 20 75 73 65 72 2e 0a 52 65 67 65 78 70 20 68 65 75 72 | present.to.the.user..Regexp.heur |
| 1615c0 | 69 73 74 69 63 73 20 61 72 65 20 75 73 65 64 20 74 6f 20 61 76 6f 69 64 20 73 68 6f 77 69 6e 67 | istics.are.used.to.avoid.showing |
| 1615e0 | 20 53 57 41 4e 4b 2d 69 6e 74 65 72 6e 61 6c 20 66 72 61 6d 65 73 2e 22 0a 20 20 28 6c 65 74 2a | .SWANK-internal.frames."...(let* |
| 161600 | 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 29 0a 20 20 20 20 20 20 20 20 20 | .((case-fold-search.t).......... |
| 161620 | 28 72 78 20 22 5e 5c 5c 28 5b 28 29 20 5d 5c 5c 7c 6c 61 6d 62 64 61 5c 5c 29 2a 73 77 61 6e 6b | (rx."^\\([().]\\|lambda\\)*swank |
| 161640 | 5c 5c 3e 22 29 29 0a 20 20 20 20 28 6f 72 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 66 72 61 6d | \\>")).....(or.(cl-loop.for.fram |
| 161660 | 65 20 69 6e 20 66 72 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 74 | e.in.frames..................unt |
| 161680 | 69 6c 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 78 20 28 73 6c 64 62 2d 66 72 61 6d 65 2e | il.(string-match.rx.(sldb-frame. |
| 1616a0 | 73 74 72 69 6e 67 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | string.frame)).................. |
| 1616c0 | 63 6f 6c 6c 65 63 74 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 66 72 61 6d 65 73 29 29 29 | collect.frame).........frames))) |
| 1616e0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 69 6e 73 65 72 74 2d 66 72 61 6d 65 73 20 28 66 72 61 | ..(defun.sldb-insert-frames.(fra |
| 161700 | 6d 65 73 20 6d 6f 72 65 29 0a 20 20 22 49 6e 73 65 72 74 20 46 52 41 4d 45 53 20 69 6e 74 6f 20 | mes.more)..."Insert.FRAMES.into. |
| 161720 | 62 75 66 66 65 72 2e 0a 49 66 20 4d 4f 52 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 6d 6f 72 65 | buffer..If.MORE.is.non-nil,.more |
| 161740 | 20 66 72 61 6d 65 73 20 61 72 65 20 6f 6e 20 74 68 65 20 4c 69 73 70 20 73 74 61 63 6b 2e 22 0a | .frames.are.on.the.Lisp.stack.". |
| 161760 | 20 20 28 6d 61 70 63 20 23 27 73 6c 64 62 2d 69 6e 73 65 72 74 2d 66 72 61 6d 65 20 66 72 61 6d | ..(mapc.#'sldb-insert-frame.fram |
| 161780 | 65 73 29 0a 20 20 28 77 68 65 6e 20 6d 6f 72 65 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 | es)...(when.more.....(slime-inse |
| 1617a0 | 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 64 0a 20 20 20 20 20 60 28 2c 40 6e 69 6c 20 73 6c 64 62 | rt-propertized......`(,@nil.sldb |
| 1617c0 | 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 20 73 6c 64 62 2d 66 65 74 63 68 2d 6d 6f 72 65 2d | -default-action.sldb-fetch-more- |
| 1617e0 | 66 72 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 64 62 2d 70 72 65 76 69 6f 75 | frames..............sldb-previou |
| 161800 | 73 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 73 6c | s-frame-number..............,(sl |
| 161820 | 64 62 2d 66 72 61 6d 65 2e 6e 75 6d 62 65 72 20 28 63 6c 2d 66 69 72 73 74 20 28 6c 61 73 74 20 | db-frame.number.(cl-first.(last. |
| 161840 | 66 72 61 6d 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 69 6e 74 2d 65 6e 74 | frames)))..............point-ent |
| 161860 | 65 72 65 64 20 73 6c 64 62 2d 66 65 74 63 68 2d 6d 6f 72 65 2d 66 72 61 6d 65 73 0a 20 20 20 20 | ered.sldb-fetch-more-frames..... |
| 161880 | 20 20 20 20 20 20 20 20 20 73 74 61 72 74 2d 6f 70 65 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 | .........start-open.t........... |
| 1618a0 | 20 20 20 66 61 63 65 20 73 6c 64 62 2d 73 65 63 74 69 6f 6e 2d 66 61 63 65 0a 20 20 20 20 20 20 | ...face.sldb-section-face....... |
| 1618c0 | 20 20 20 20 20 20 20 6d 6f 75 73 65 2d 66 61 63 65 20 68 69 67 68 6c 69 67 68 74 29 0a 20 20 20 | .......mouse-face.highlight).... |
| 1618e0 | 20 20 22 20 2d 2d 6d 6f 72 65 2d 2d 22 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 | ..".--more--").....(insert."\n") |
| 161900 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 63 6f 6d 70 75 74 65 2d 66 72 61 6d 65 2d 66 61 | ))..(defun.sldb-compute-frame-fa |
| 161920 | 63 65 20 28 66 72 61 6d 65 29 0a 20 20 28 69 66 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 72 65 73 | ce.(frame)...(if.(sldb-frame-res |
| 161940 | 74 61 72 74 61 62 6c 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 27 73 6c 64 62 2d 72 65 | tartable-p.frame).......'sldb-re |
| 161960 | 73 74 61 72 74 61 62 6c 65 2d 66 72 61 6d 65 2d 6c 69 6e 65 2d 66 61 63 65 0a 20 20 20 20 27 73 | startable-frame-line-face.....'s |
| 161980 | 6c 64 62 2d 66 72 61 6d 65 2d 6c 69 6e 65 2d 66 61 63 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | ldb-frame-line-face))..(defun.sl |
| 1619a0 | 64 62 2d 69 6e 73 65 72 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c | db-insert-frame.(frame.&optional |
| 1619c0 | 20 66 61 63 65 29 0a 20 20 22 49 6e 73 65 72 74 20 46 52 41 4d 45 20 77 69 74 68 20 46 41 43 45 | .face)..."Insert.FRAME.with.FACE |
| 1619e0 | 20 61 74 20 70 6f 69 6e 74 2e 0a 49 66 20 46 41 43 45 20 69 73 20 6e 69 6c 2c 20 60 73 6c 64 62 | .at.point..If.FACE.is.nil,.`sldb |
| 161a00 | 2d 63 6f 6d 70 75 74 65 2d 66 72 61 6d 65 2d 66 61 63 65 27 20 69 73 20 75 73 65 64 20 74 6f 20 | -compute-frame-face'.is.used.to. |
| 161a20 | 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 66 61 63 65 2e 22 0a 20 20 28 73 65 74 71 20 66 61 63 | determine.the.face."...(setq.fac |
| 161a40 | 65 20 28 6f 72 20 66 61 63 65 20 28 73 6c 64 62 2d 63 6f 6d 70 75 74 65 2d 66 72 61 6d 65 2d 66 | e.(or.face.(sldb-compute-frame-f |
| 161a60 | 61 63 65 20 66 72 61 6d 65 29 29 29 0a 20 20 28 6c 65 74 20 28 28 6e 75 6d 62 65 72 20 28 73 6c | ace.frame)))...(let.((number.(sl |
| 161a80 | 64 62 2d 66 72 61 6d 65 2e 6e 75 6d 62 65 72 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 | db-frame.number.frame))......... |
| 161aa0 | 28 73 74 72 69 6e 67 20 28 73 6c 64 62 2d 66 72 61 6d 65 2e 73 74 72 69 6e 67 20 66 72 61 6d 65 | (string.(sldb-frame.string.frame |
| 161ac0 | 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 70 73 20 60 28 66 72 61 6d 65 20 2c 66 72 61 6d 65 | )).........(props.`(frame.,frame |
| 161ae0 | 20 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 20 73 6c 64 62 2d 74 6f 67 67 6c 65 | .sldb-default-action.sldb-toggle |
| 161b00 | 2d 64 65 74 61 69 6c 73 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a | -details))).....(slime-propertiz |
| 161b20 | 65 2d 72 65 67 69 6f 6e 20 70 72 6f 70 73 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 | e-region.props.......(slime-prop |
| 161b40 | 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 20 27 28 6d 6f 75 73 65 2d 66 61 63 65 20 68 69 67 68 6c | ertize-region.'(mouse-face.highl |
| 161b60 | 69 67 68 74 29 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 22 20 28 73 6c 64 62 2d | ight).........(insert.".".(sldb- |
| 161b80 | 69 6e 2d 66 61 63 65 20 66 72 61 6d 65 2d 6c 61 62 65 6c 20 28 66 6f 72 6d 61 74 20 22 25 32 64 | in-face.frame-label.(format."%2d |
| 161ba0 | 3a 22 20 6e 75 6d 62 65 72 29 29 20 22 20 22 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | :".number)).".").........(slime- |
| 161bc0 | 69 6e 73 65 72 74 2d 69 6e 64 65 6e 74 65 64 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | insert-indented..........(slime- |
| 161be0 | 61 64 64 2d 66 61 63 65 20 66 61 63 65 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 28 69 | add-face.face.string))).......(i |
| 161c00 | 6e 73 65 72 74 20 22 5c 6e 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 66 65 74 63 | nsert."\n"))))..(defun.sldb-fetc |
| 161c20 | 68 2d 6d 6f 72 65 2d 66 72 61 6d 65 73 20 28 26 72 65 73 74 20 5f 29 0a 20 20 22 46 65 74 63 68 | h-more-frames.(&rest._)..."Fetch |
| 161c40 | 20 6d 6f 72 65 20 62 61 63 6b 74 72 61 63 65 20 66 72 61 6d 65 73 2e 0a 43 61 6c 6c 65 64 20 6f | .more.backtrace.frames..Called.o |
| 161c60 | 6e 20 74 68 65 20 60 70 6f 69 6e 74 2d 65 6e 74 65 72 65 64 27 20 74 65 78 74 2d 70 72 6f 70 65 | n.the.`point-entered'.text-prope |
| 161c80 | 72 74 79 20 68 6f 6f 6b 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 70 6f 69 6e | rty.hook."...(let.((inhibit-poin |
| 161ca0 | 74 2d 6d 6f 74 69 6f 6e 2d 68 6f 6f 6b 73 20 74 29 0a 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 | t-motion-hooks.t).........(inhib |
| 161cc0 | 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 28 70 72 65 76 20 28 67 | it-read-only.t).........(prev.(g |
| 161ce0 | 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 64 62 2d 70 | et-text-property.(point).'sldb-p |
| 161d00 | 72 65 76 69 6f 75 73 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 3b 3b 20 77 | revious-frame-number))).....;;.w |
| 161d20 | 65 20 6d 61 79 20 62 65 20 63 61 6c 6c 65 64 20 74 77 69 63 65 2c 20 50 52 45 56 20 69 73 20 6e | e.may.be.called.twice,.PREV.is.n |
| 161d40 | 69 6c 20 74 68 65 20 73 65 63 6f 6e 64 20 74 69 6d 65 0a 20 20 20 20 28 77 68 65 6e 20 70 72 65 | il.the.second.time.....(when.pre |
| 161d60 | 76 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 75 6e 74 20 34 30 29 0a 20 20 20 20 20 20 | v.......(let*.((count.40)....... |
| 161d80 | 20 20 20 20 20 20 20 28 66 72 6f 6d 20 28 31 2b 20 70 72 65 76 29 29 0a 20 20 20 20 20 20 20 20 | .......(from.(1+.prev))......... |
| 161da0 | 20 20 20 20 20 28 74 6f 20 28 2b 20 66 72 6f 6d 20 63 6f 75 6e 74 29 29 0a 20 20 20 20 20 20 20 | .....(to.(+.from.count))........ |
| 161dc0 | 20 20 20 20 20 20 28 66 72 61 6d 65 73 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e | ......(frames.(slime-eval.`(swan |
| 161de0 | 6b 3a 62 61 63 6b 74 72 61 63 65 20 2c 66 72 6f 6d 20 2c 74 6f 29 29 29 0a 20 20 20 20 20 20 20 | k:backtrace.,from.,to)))........ |
| 161e00 | 20 20 20 20 20 20 28 6d 6f 72 65 20 28 73 6c 69 6d 65 2d 6c 65 6e 67 74 68 3d 20 66 72 61 6d 65 | ......(more.(slime-length=.frame |
| 161e20 | 73 20 63 6f 75 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 70 6f 69 | s.count))..............(pos.(poi |
| 161e40 | 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 6c 69 | nt))).........(delete-region.(li |
| 161e60 | 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 | ne-beginning-position).(point-ma |
| 161e80 | 78 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e 73 65 72 74 2d 66 72 61 6d 65 73 20 | x)).........(sldb-insert-frames. |
| 161ea0 | 66 72 61 6d 65 73 20 6d 6f 72 65 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | frames.more).........(goto-char. |
| 161ec0 | 70 6f 73 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 3b 20 53 4c 44 42 20 65 78 61 6d 69 6e 69 6e | pos)))))....;;;;;;.SLDB.examinin |
| 161ee0 | 67 20 74 65 78 74 20 70 72 6f 70 73 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 72 65 73 74 61 72 | g.text.props..(defun.sldb-restar |
| 161f00 | 74 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 28 6f 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 | t-at-point.()...(or.(get-text-pr |
| 161f20 | 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 72 65 73 74 61 72 74 29 0a 20 20 20 20 20 20 28 | operty.(point).'restart).......( |
| 161f40 | 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 72 65 73 74 61 72 74 20 61 74 20 70 6f 69 6e 74 22 | user-error."No.restart.at.point" |
| 161f60 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 | )))..(defun.sldb-frame-number-at |
| 161f80 | 2d 70 6f 69 6e 74 20 28 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 67 65 74 2d 74 65 | -point.()...(let.((frame.(get-te |
| 161fa0 | 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 66 72 61 6d 65 29 29 29 0a 20 20 | xt-property.(point).'frame)))... |
| 161fc0 | 20 20 28 63 6f 6e 64 20 28 66 72 61 6d 65 20 28 63 61 72 20 66 72 61 6d 65 29 29 0a 09 20 20 28 | ..(cond.(frame.(car.frame))....( |
| 161fe0 | 74 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 66 72 61 6d 65 20 61 74 20 70 6f 69 6e 74 | t.(user-error."No.frame.at.point |
| 162000 | 22 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 76 61 72 2d 6e 75 6d 62 65 72 2d 61 | ")))))..(defun.sldb-var-number-a |
| 162020 | 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 28 6c 65 74 20 28 28 76 61 72 20 28 67 65 74 2d 74 65 78 | t-point.()...(let.((var.(get-tex |
| 162040 | 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 76 61 72 29 29 29 0a 20 20 20 20 28 | t-property.(point).'var))).....( |
| 162060 | 63 6f 6e 64 20 28 76 61 72 20 76 61 72 29 0a 09 20 20 28 74 20 28 75 73 65 72 2d 65 72 72 6f 72 | cond.(var.var)....(t.(user-error |
| 162080 | 20 22 4e 6f 20 76 61 72 69 61 62 6c 65 20 61 74 20 70 6f 69 6e 74 22 29 29 29 29 29 0a 0a 28 64 | ."No.variable.at.point")))))..(d |
| 1620a0 | 65 66 75 6e 20 73 6c 64 62 2d 70 72 65 76 69 6f 75 73 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 | efun.sldb-previous-frame-number. |
| 1620c0 | 28 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 73 6c 64 62 2d 62 | ()...(save-excursion.....(sldb-b |
| 1620e0 | 61 63 6b 77 61 72 64 2d 66 72 61 6d 65 29 0a 20 20 20 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e | ackward-frame).....(sldb-frame-n |
| 162100 | 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 66 | umber-at-point)))..(defun.sldb-f |
| 162120 | 72 61 6d 65 2d 64 65 74 61 69 6c 73 2d 76 69 73 69 62 6c 65 2d 70 20 28 29 0a 20 20 28 61 6e 64 | rame-details-visible-p.()...(and |
| 162140 | 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 66 72 61 | .(get-text-property.(point).'fra |
| 162160 | 6d 65 29 0a 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 | me)........(get-text-property.(p |
| 162180 | 6f 69 6e 74 29 20 27 64 65 74 61 69 6c 73 2d 76 69 73 69 62 6c 65 2d 70 29 29 29 0a 0a 28 64 65 | oint).'details-visible-p)))..(de |
| 1621a0 | 66 75 6e 20 73 6c 64 62 2d 66 72 61 6d 65 2d 72 65 67 69 6f 6e 20 28 29 0a 20 20 28 73 6c 69 6d | fun.sldb-frame-region.()...(slim |
| 1621c0 | 65 2d 70 72 6f 70 65 72 74 79 2d 62 6f 75 6e 64 73 20 27 66 72 61 6d 65 29 29 0a 0a 28 64 65 66 | e-property-bounds.'frame))..(def |
| 1621e0 | 75 6e 20 73 6c 64 62 2d 66 6f 72 77 61 72 64 2d 66 72 61 6d 65 20 28 29 0a 20 20 28 67 6f 74 6f | un.sldb-forward-frame.()...(goto |
| 162200 | 2d 63 68 61 72 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 | -char.(next-single-char-property |
| 162220 | 2d 63 68 61 6e 67 65 20 28 70 6f 69 6e 74 29 20 27 66 72 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 | -change.(point).'frame)))..(defu |
| 162240 | 6e 20 73 6c 64 62 2d 62 61 63 6b 77 61 72 64 2d 66 72 61 6d 65 20 28 29 0a 20 20 28 77 68 65 6e | n.sldb-backward-frame.()...(when |
| 162260 | 20 28 3e 20 28 70 6f 69 6e 74 29 20 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 2d 73 74 61 72 74 | .(>.(point).sldb-backtrace-start |
| 162280 | 2d 6d 61 72 6b 65 72 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 72 65 76 69 6f 75 | -marker).....(goto-char.(previou |
| 1622a0 | 73 2d 73 69 6e 67 6c 65 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a 20 20 | s-single-char-property-change... |
| 1622c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 | ..............(if.(get-text-prop |
| 1622e0 | 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | erty.(point).'frame)............ |
| 162300 | 20 20 20 20 20 20 20 20 20 28 63 61 72 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 72 65 67 69 6f 6e | .........(car.(sldb-frame-region |
| 162320 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 0a 20 20 | ))...................(point))... |
| 162340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 72 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 | ..............'frame............ |
| 162360 | 20 20 20 20 20 6e 69 6c 20 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 2d 73 74 61 72 74 2d 6d 61 | .....nil.sldb-backtrace-start-ma |
| 162380 | 72 6b 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 67 6f 74 6f 2d 6c 61 73 74 2d | rker))))..(defun.sldb-goto-last- |
| 1623a0 | 66 72 61 6d 65 20 28 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 | frame.()...(goto-char.(point-max |
| 1623c0 | 29 29 0a 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 | ))...(while.(not.(get-text-prope |
| 1623e0 | 72 74 79 20 28 70 6f 69 6e 74 29 20 27 66 72 61 6d 65 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 | rty.(point).'frame)).....(goto-c |
| 162400 | 68 61 72 20 28 70 72 65 76 69 6f 75 73 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 | har.(previous-single-property-ch |
| 162420 | 61 6e 67 65 20 28 70 6f 69 6e 74 29 20 27 66 72 61 6d 65 29 29 0a 20 20 20 20 3b 3b 20 52 65 63 | ange.(point).'frame)).....;;.Rec |
| 162440 | 65 6e 74 65 72 20 74 6f 20 62 6f 74 74 6f 6d 20 6f 66 20 74 68 65 20 77 69 6e 64 6f 77 3b 20 2d | enter.to.bottom.of.the.window;.- |
| 162460 | 32 20 74 6f 20 61 63 63 6f 75 6e 74 20 66 6f 72 20 74 68 65 0a 20 20 20 20 3b 3b 20 65 6d 70 74 | 2.to.account.for.the.....;;.empt |
| 162480 | 79 20 6c 61 73 74 20 6c 69 6e 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 73 6c 64 62 20 62 75 | y.last.line.displayed.in.sldb.bu |
| 1624a0 | 66 66 65 72 73 2e 0a 20 20 20 20 28 72 65 63 65 6e 74 65 72 20 2d 32 29 29 29 0a 0a 28 64 65 66 | ffers......(recenter.-2)))..(def |
| 1624c0 | 75 6e 20 73 6c 64 62 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 62 61 63 6b 74 72 61 63 65 20 28 | un.sldb-beginning-of-backtrace.( |
| 1624e0 | 29 0a 20 20 22 47 6f 74 6f 20 74 68 65 20 66 69 72 73 74 20 66 72 61 6d 65 2e 22 0a 20 20 28 69 | )..."Goto.the.first.frame."...(i |
| 162500 | 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 64 62 2d 62 61 | nteractive)...(goto-char.sldb-ba |
| 162520 | 63 6b 74 72 61 63 65 2d 73 74 61 72 74 2d 6d 61 72 6b 65 72 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 3b | cktrace-start-marker))....;;;;;; |
| 162540 | 20 53 4c 44 42 20 72 65 63 65 6e 74 65 72 20 26 20 72 65 64 69 73 70 6c 61 79 0a 3b 3b 20 6e 6f | .SLDB.recenter.&.redisplay.;;.no |
| 162560 | 74 20 73 75 72 65 20 79 65 74 2c 20 77 68 65 74 68 65 72 20 74 68 69 73 20 69 73 20 61 20 67 6f | t.sure.yet,.whether.this.is.a.go |
| 162580 | 6f 64 20 69 64 65 61 2e 0a 3b 3b 0a 3b 3b 20 6a 74 3a 20 73 65 63 6f 6e 64 65 64 2e 20 4f 6e 6c | od.idea..;;.;;.jt:.seconded..Onl |
| 1625a0 | 79 20 60 73 6c 64 62 2d 73 68 6f 77 2d 66 72 61 6d 65 2d 64 65 74 61 69 6c 73 27 20 61 6e 64 0a | y.`sldb-show-frame-details'.and. |
| 1625c0 | 3b 3b 20 60 73 6c 64 62 2d 68 69 64 65 2d 66 72 61 6d 65 2d 64 65 74 61 69 6c 73 27 20 75 73 65 | ;;.`sldb-hide-frame-details'.use |
| 1625e0 | 20 74 68 69 73 2e 20 54 68 65 79 20 63 6f 75 6c 64 20 61 76 6f 69 64 20 69 74 20 62 79 20 6e 6f | .this..They.could.avoid.it.by.no |
| 162600 | 74 0a 3b 3b 20 72 65 6d 6f 76 69 6e 67 20 61 6e 64 20 72 65 69 6e 73 65 72 74 69 6e 67 20 74 68 | t.;;.removing.and.reinserting.th |
| 162620 | 65 20 66 72 61 6d 65 27 73 20 6e 61 6d 65 20 6c 69 6e 65 2e 0a 28 64 65 66 6d 61 63 72 6f 20 73 | e.frame's.name.line..(defmacro.s |
| 162640 | 6c 69 6d 65 2d 73 61 76 65 2d 63 6f 6f 72 64 69 6e 61 74 65 73 20 28 6f 72 69 67 69 6e 20 26 72 | lime-save-coordinates.(origin.&r |
| 162660 | 65 73 74 20 62 6f 64 79 29 0a 20 20 22 52 65 73 74 6f 72 65 20 6c 69 6e 65 20 61 6e 64 20 63 6f | est.body)..."Restore.line.and.co |
| 162680 | 6c 75 6d 6e 20 72 65 6c 61 74 69 76 65 20 74 6f 20 4f 52 49 47 49 4e 2c 20 61 66 74 65 72 20 65 | lumn.relative.to.ORIGIN,.after.e |
| 1626a0 | 78 65 63 75 74 69 6e 67 20 42 4f 44 59 2e 0a 0a 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 69 | xecuting.BODY...This.is.useful.i |
| 1626c0 | 66 20 42 4f 44 59 20 64 65 6c 65 74 65 73 20 61 6e 64 20 69 6e 73 65 72 74 73 20 73 6f 6d 65 20 | f.BODY.deletes.and.inserts.some. |
| 1626e0 | 74 65 78 74 20 62 75 74 20 77 65 20 77 61 6e 74 20 74 6f 0a 70 72 65 73 65 72 76 65 20 74 68 65 | text.but.we.want.to.preserve.the |
| 162700 | 20 63 75 72 72 65 6e 74 20 72 6f 77 20 61 6e 64 20 63 6f 6c 75 6d 6e 20 61 73 20 63 6c 6f 73 65 | .current.row.and.column.as.close |
| 162720 | 6c 79 20 61 73 20 70 6f 73 73 69 62 6c 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 61 73 65 20 28 | ly.as.possible."...(let.((base.( |
| 162740 | 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 62 61 73 65 22 29 29 0a 20 20 20 20 20 20 20 20 28 67 6f | make-symbol."base")).........(go |
| 162760 | 61 6c 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 67 6f 61 6c 22 29 29 0a 20 20 20 20 20 20 20 | al.(make-symbol."goal"))........ |
| 162780 | 20 28 6d 61 72 6b 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6d 61 72 6b 22 29 29 29 0a 20 20 | .(mark.(make-symbol."mark")))... |
| 1627a0 | 20 20 60 28 6c 65 74 2a 20 28 28 2c 62 61 73 65 20 2c 6f 72 69 67 69 6e 29 0a 20 20 20 20 20 20 | ..`(let*.((,base.,origin)....... |
| 1627c0 | 20 20 20 20 20 20 28 2c 67 6f 61 6c 20 28 73 6c 69 6d 65 2d 63 6f 6f 72 64 69 6e 61 74 65 73 20 | ......(,goal.(slime-coordinates. |
| 1627e0 | 2c 62 61 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 6d 61 72 6b 20 28 70 6f 69 6e | ,base)).............(,mark.(poin |
| 162800 | 74 2d 6d 61 72 6b 65 72 29 29 29 0a 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 2d 69 | t-marker)))........(set-marker-i |
| 162820 | 6e 73 65 72 74 69 6f 6e 2d 74 79 70 65 20 2c 6d 61 72 6b 20 74 29 0a 20 20 20 20 20 20 20 28 70 | nsertion-type.,mark.t)........(p |
| 162840 | 72 6f 67 31 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 2c 40 62 6f 64 79 29 0a 20 20 20 | rog1.(save-excursion.,@body).... |
| 162860 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 73 74 6f 72 65 2d 63 6f 6f 72 64 69 6e 61 74 65 20 | ......(slime-restore-coordinate. |
| 162880 | 2c 62 61 73 65 20 2c 67 6f 61 6c 20 2c 6d 61 72 6b 29 29 29 29 29 0a 0a 28 70 75 74 20 27 73 6c | ,base.,goal.,mark)))))..(put.'sl |
| 1628a0 | 69 6d 65 2d 73 61 76 65 2d 63 6f 6f 72 64 69 6e 61 74 65 73 20 27 6c 69 73 70 2d 69 6e 64 65 6e | ime-save-coordinates.'lisp-inden |
| 1628c0 | 74 2d 66 75 6e 63 74 69 6f 6e 20 31 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6f 72 | t-function.1)..(defun.slime-coor |
| 1628e0 | 64 69 6e 61 74 65 73 20 28 6f 72 69 67 69 6e 29 0a 20 20 3b 3b 20 52 65 74 75 72 6e 20 61 20 70 | dinates.(origin)...;;.Return.a.p |
| 162900 | 61 69 72 20 28 58 20 2e 20 59 29 20 66 6f 72 20 74 68 65 20 63 6f 6c 75 6d 6e 20 61 6e 64 20 6c | air.(X...Y).for.the.column.and.l |
| 162920 | 69 6e 65 20 64 69 73 74 61 6e 63 65 20 74 6f 20 4f 52 49 47 49 4e 2e 0a 20 20 28 6c 65 74 20 28 | ine.distance.to.ORIGIN....(let.( |
| 162940 | 28 79 20 28 73 6c 69 6d 65 2d 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 6f 72 69 67 69 6e 20 28 70 6f | (y.(slime-count-lines.origin.(po |
| 162960 | 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 78 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f | int))).........(x.(save-excursio |
| 162980 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d | n..............(-.(current-colum |
| 1629a0 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 67 6f 74 6f 2d | n).................(progn.(goto- |
| 1629c0 | 63 68 61 72 20 6f 72 69 67 69 6e 29 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 29 | char.origin).(current-column)))) |
| 1629e0 | 29 29 0a 20 20 20 20 28 63 6f 6e 73 20 78 20 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | )).....(cons.x.y)))..(defun.slim |
| 162a00 | 65 2d 72 65 73 74 6f 72 65 2d 63 6f 6f 72 64 69 6e 61 74 65 20 28 62 61 73 65 20 67 6f 61 6c 20 | e-restore-coordinate.(base.goal. |
| 162a20 | 6c 69 6d 69 74 29 0a 20 20 3b 3b 20 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 47 4f 41 4c 2e 20 | limit)...;;.Move.point.to.GOAL.. |
| 162a40 | 43 6f 6f 72 64 69 6e 61 74 65 73 20 61 72 65 20 72 65 6c 61 74 69 76 65 20 74 6f 20 42 41 53 45 | Coordinates.are.relative.to.BASE |
| 162a60 | 2e 0a 20 20 3b 3b 20 44 6f 6e 27 74 20 6d 6f 76 65 20 62 65 79 6f 6e 64 20 4c 49 4d 49 54 2e 0a | ....;;.Don't.move.beyond.LIMIT.. |
| 162a80 | 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 28 6e 61 72 72 6f 77 2d | ..(save-restriction.....(narrow- |
| 162aa0 | 74 6f 2d 72 65 67 69 6f 6e 20 62 61 73 65 20 6c 69 6d 69 74 29 0a 20 20 20 20 28 67 6f 74 6f 2d | to-region.base.limit).....(goto- |
| 162ac0 | 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6c | char.(point-min)).....(let.((col |
| 162ae0 | 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 | .(current-column))).......(forwa |
| 162b00 | 72 64 2d 6c 69 6e 65 20 28 63 64 72 20 67 6f 61 6c 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 | rd-line.(cdr.goal)).......(when. |
| 162b20 | 28 61 6e 64 20 28 65 6f 62 70 29 20 28 62 6f 6c 70 29 20 28 6e 6f 74 20 28 62 6f 62 70 29 29 29 | (and.(eobp).(bolp).(not.(bobp))) |
| 162b40 | 0a 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 63 68 61 72 29 29 0a 20 20 20 20 20 20 | .........(backward-char))....... |
| 162b60 | 28 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 28 2b 20 63 6f 6c 20 28 63 61 72 20 67 6f 61 6c | (move-to-column.(+.col.(car.goal |
| 162b80 | 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 75 6e 74 2d 6c 69 6e 65 73 | ))))))..(defun.slime-count-lines |
| 162ba0 | 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 | .(start.end)..."Return.the.numbe |
| 162bc0 | 72 20 6f 66 20 6c 69 6e 65 73 20 62 65 74 77 65 65 6e 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 | r.of.lines.between.START.and.END |
| 162be0 | 2e 0a 54 68 69 73 20 69 73 20 30 20 69 66 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 20 61 74 20 | ..This.is.0.if.START.and.END.at. |
| 162c00 | 74 68 65 20 73 61 6d 65 20 6c 69 6e 65 2e 22 0a 20 20 28 2d 20 28 63 6f 75 6e 74 2d 6c 69 6e 65 | the.same.line."...(-.(count-line |
| 162c20 | 73 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 28 69 66 20 28 73 61 76 65 2d 65 78 63 75 | s.start.end)......(if.(save-excu |
| 162c40 | 72 73 69 6f 6e 20 28 67 6f 74 6f 2d 63 68 61 72 20 65 6e 64 29 20 28 62 6f 6c 70 29 29 20 30 20 | rsion.(goto-char.end).(bolp)).0. |
| 162c60 | 31 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 53 4c 44 42 20 63 6f 6d 6d 61 6e 64 73 0a 0a 28 64 65 | 1)))....;;;;;.SLDB.commands..(de |
| 162c80 | 66 75 6e 20 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 20 28 29 0a 20 20 22 49 6e | fun.sldb-default-action.()..."In |
| 162ca0 | 76 6f 6b 65 20 74 68 65 20 61 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e | voke.the.action.at.point."...(in |
| 162cc0 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 66 6e 20 28 67 65 74 2d 74 65 78 74 | teractive)...(let.((fn.(get-text |
| 162ce0 | 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d | -property.(point).'sldb-default- |
| 162d00 | 61 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 69 66 20 66 6e 20 28 66 75 6e 63 61 6c 6c 20 66 6e | action))).....(if.fn.(funcall.fn |
| 162d20 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e | ))))..(defun.sldb-default-action |
| 162d40 | 2f 6d 6f 75 73 65 20 28 65 76 65 6e 74 29 0a 20 20 22 49 6e 76 6f 6b 65 20 74 68 65 20 61 63 74 | /mouse.(event)..."Invoke.the.act |
| 162d60 | 69 6f 6e 20 70 6f 69 6e 74 65 64 20 61 74 20 62 79 20 74 68 65 20 6d 6f 75 73 65 2e 22 0a 20 20 | ion.pointed.at.by.the.mouse."... |
| 162d80 | 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 | (interactive."e")...(cl-destruct |
| 162da0 | 75 72 69 6e 67 2d 62 69 6e 64 20 28 5f 6d 6f 75 73 65 2d 31 20 28 5f 77 20 70 6f 73 20 26 72 65 | uring-bind.(_mouse-1.(_w.pos.&re |
| 162dc0 | 73 74 20 69 67 6e 6f 72 65 29 29 20 65 76 65 6e 74 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 | st.ignore)).event.....(save-excu |
| 162de0 | 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 20 20 | rsion.......(goto-char.pos)..... |
| 162e00 | 20 20 28 6c 65 74 20 28 28 66 6e 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 | ..(let.((fn.(get-text-property.( |
| 162e20 | 70 6f 69 6e 74 29 20 27 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 29 29 29 0a 09 | point).'sldb-default-action))).. |
| 162e40 | 28 69 66 20 66 6e 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | (if.fn.(funcall.fn))))))..(defun |
| 162e60 | 20 73 6c 64 62 2d 63 79 63 6c 65 20 28 29 0a 20 20 22 43 79 63 6c 65 20 62 65 74 77 65 65 6e 20 | .sldb-cycle.()..."Cycle.between. |
| 162e80 | 72 65 73 74 61 72 74 20 6c 69 73 74 20 61 6e 64 20 62 61 63 6b 74 72 61 63 65 2e 22 0a 20 20 28 | restart.list.and.backtrace."...( |
| 162ea0 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 70 74 20 28 70 6f 69 6e 74 29 | interactive)...(let.((pt.(point) |
| 162ec0 | 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 3c 20 70 74 20 73 6c 64 62 2d 72 65 73 74 61 72 74 | )).....(cond.((<.pt.sldb-restart |
| 162ee0 | 2d 6c 69 73 74 2d 73 74 61 72 74 2d 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | -list-start-marker)............( |
| 162f00 | 67 6f 74 6f 2d 63 68 61 72 20 73 6c 64 62 2d 72 65 73 74 61 72 74 2d 6c 69 73 74 2d 73 74 61 72 | goto-char.sldb-restart-list-star |
| 162f20 | 74 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3c 20 70 74 20 73 6c 64 62 | t-marker))...........((<.pt.sldb |
| 162f40 | 2d 62 61 63 6b 74 72 61 63 65 2d 73 74 61 72 74 2d 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 20 | -backtrace-start-marker)........ |
| 162f60 | 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 2d 73 74 | ....(goto-char.sldb-backtrace-st |
| 162f80 | 61 72 74 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 | art-marker))...........(t....... |
| 162fa0 | 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 6c 64 62 2d 72 65 73 74 61 72 74 2d 6c 69 73 | .....(goto-char.sldb-restart-lis |
| 162fc0 | 74 2d 73 74 61 72 74 2d 6d 61 72 6b 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 | t-start-marker)))))..(defun.sldb |
| 162fe0 | 2d 65 6e 64 2d 6f 66 2d 62 61 63 6b 74 72 61 63 65 20 28 29 0a 20 20 22 46 65 74 63 68 20 74 68 | -end-of-backtrace.()..."Fetch.th |
| 163000 | 65 20 65 6e 74 69 72 65 20 62 61 63 6b 74 72 61 63 65 20 61 6e 64 20 67 6f 20 74 6f 20 74 68 65 | e.entire.backtrace.and.go.to.the |
| 163020 | 20 6c 61 73 74 20 66 72 61 6d 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 | .last.frame."...(interactive)... |
| 163040 | 28 73 6c 64 62 2d 66 65 74 63 68 2d 61 6c 6c 2d 66 72 61 6d 65 73 29 0a 20 20 28 73 6c 64 62 2d | (sldb-fetch-all-frames)...(sldb- |
| 163060 | 67 6f 74 6f 2d 6c 61 73 74 2d 66 72 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 66 | goto-last-frame))..(defun.sldb-f |
| 163080 | 65 74 63 68 2d 61 6c 6c 2d 66 72 61 6d 65 73 20 28 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 | etch-all-frames.()...(let.((inhi |
| 1630a0 | 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 | bit-read-only.t).........(inhibi |
| 1630c0 | 74 2d 70 6f 69 6e 74 2d 6d 6f 74 69 6f 6e 2d 68 6f 6f 6b 73 20 74 29 29 0a 20 20 20 20 28 73 6c | t-point-motion-hooks.t)).....(sl |
| 1630e0 | 64 62 2d 67 6f 74 6f 2d 6c 61 73 74 2d 66 72 61 6d 65 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6c | db-goto-last-frame).....(let.((l |
| 163100 | 61 73 74 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 | ast.(sldb-frame-number-at-point) |
| 163120 | 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 | )).......(goto-char.(next-single |
| 163140 | 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 28 70 6f 69 6e 74 29 20 27 66 | -char-property-change.(point).'f |
| 163160 | 72 61 6d 65 29 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 | rame)).......(delete-region.(poi |
| 163180 | 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 | nt).(point-max)).......(save-exc |
| 1631a0 | 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e 73 65 72 74 2d 66 72 61 6d | ursion.........(sldb-insert-fram |
| 1631c0 | 65 73 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 62 61 63 6b 74 72 61 63 65 | es.(slime-eval.`(swank:backtrace |
| 1631e0 | 20 2c 28 31 2b 20 6c 61 73 74 29 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .,(1+.last).nil))............... |
| 163200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 3b | ..............nil)))))....;;;;;; |
| 163220 | 20 53 4c 44 42 20 73 68 6f 77 20 73 6f 75 72 63 65 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 73 | .SLDB.show.source..(defun.sldb-s |
| 163240 | 68 6f 77 2d 73 6f 75 72 63 65 20 28 29 0a 20 20 22 48 69 67 68 6c 69 67 68 74 20 74 68 65 20 66 | how-source.()..."Highlight.the.f |
| 163260 | 72 61 6d 65 20 61 74 20 70 6f 69 6e 74 27 73 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 20 61 20 | rame.at.point's.expression.in.a. |
| 163280 | 73 6f 75 72 63 65 20 63 6f 64 65 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | source.code.buffer."...(interact |
| 1632a0 | 69 76 65 29 0a 20 20 28 73 6c 64 62 2d 73 68 6f 77 2d 66 72 61 6d 65 2d 73 6f 75 72 63 65 20 28 | ive)...(sldb-show-frame-source.( |
| 1632c0 | 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 0a 28 | sldb-frame-number-at-point)))..( |
| 1632e0 | 64 65 66 75 6e 20 73 6c 64 62 2d 73 68 6f 77 2d 66 72 61 6d 65 2d 73 6f 75 72 63 65 20 28 66 72 | defun.sldb-show-frame-source.(fr |
| 163300 | 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a | ame-number)...(slime-eval-async. |
| 163320 | 20 20 20 20 20 20 60 28 73 77 61 6e 6b 3a 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 | ......`(swank:frame-source-locat |
| 163340 | 69 6f 6e 20 2c 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | ion.,frame-number).....(lambda.( |
| 163360 | 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 64 63 | source-location).......(slime-dc |
| 163380 | 61 73 65 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 28 3a 65 | ase.source-location.........((:e |
| 1633a0 | 72 72 6f 72 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 | rror.message)..........(message. |
| 1633c0 | 22 25 73 22 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 6e 67 29 29 0a 20 | "%s".message)..........(ding)).. |
| 1633e0 | 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 2d 73 | .......(t..........(slime-show-s |
| 163400 | 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 74 | ource-location.source-location.t |
| 163420 | 20 6e 69 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 68 6f 77 2d 73 6f | .nil))))))..(defun.slime-show-so |
| 163440 | 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 | urce-location.(source-location.. |
| 163460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 163480 | 20 20 26 6f 70 74 69 6f 6e 61 6c 20 68 69 67 68 6c 69 67 68 74 20 72 65 63 65 6e 74 65 72 2d 61 | ..&optional.highlight.recenter-a |
| 1634a0 | 72 67 29 0a 20 20 22 47 6f 20 74 6f 20 53 4f 55 52 43 45 2d 4c 4f 43 41 54 49 4f 4e 20 61 6e 64 | rg)..."Go.to.SOURCE-LOCATION.and |
| 1634c0 | 20 64 69 73 70 6c 61 79 20 74 68 65 20 62 75 66 66 65 72 20 69 6e 20 74 68 65 20 6f 74 68 65 72 | .display.the.buffer.in.the.other |
| 1634e0 | 20 77 69 6e 64 6f 77 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 67 6f 74 6f 2d 73 6f 75 72 63 65 2d 6c | .window."...(slime-goto-source-l |
| 163500 | 6f 63 61 74 69 6f 6e 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 3b 3b 20 73 68 | ocation.source-location)...;;.sh |
| 163520 | 6f 77 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 2c 20 62 75 74 20 64 6f 6e 27 74 20 68 69 6a 61 63 | ow.the.location,.but.don't.hijac |
| 163540 | 6b 20 66 6f 63 75 73 2e 0a 20 20 28 73 6c 69 6d 65 2d 2d 64 69 73 70 6c 61 79 2d 70 6f 73 69 74 | k.focus....(slime--display-posit |
| 163560 | 69 6f 6e 20 28 70 6f 69 6e 74 29 20 74 20 72 65 63 65 6e 74 65 72 2d 61 72 67 29 0a 20 20 28 77 | ion.(point).t.recenter-arg)...(w |
| 163580 | 68 65 6e 20 68 69 67 68 6c 69 67 68 74 20 28 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 73 | hen.highlight.(slime-highlight-s |
| 1635a0 | 65 78 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 2d 64 69 73 70 6c 61 79 2d 70 6f | exp)))..(defun.slime--display-po |
| 1635c0 | 73 69 74 69 6f 6e 20 28 70 6f 73 20 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 72 65 63 65 6e 74 65 | sition.(pos.other-window.recente |
| 1635e0 | 72 2d 61 72 67 29 0a 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 | r-arg)...(with-selected-window.( |
| 163600 | 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 | display-buffer.(current-buffer). |
| 163620 | 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 | other-window).....(goto-char.pos |
| 163640 | 29 0a 20 20 20 20 28 72 65 63 65 6e 74 65 72 20 72 65 63 65 6e 74 65 72 2d 61 72 67 29 29 29 0a | ).....(recenter.recenter-arg))). |
| 163660 | 0a 3b 3b 20 53 65 74 20 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 73 6f 20 74 68 61 74 20 74 68 65 | .;;.Set.window-start.so.that.the |
| 163680 | 20 72 65 67 69 6f 6e 20 66 72 6f 6d 20 53 54 41 52 54 20 74 6f 20 45 4e 44 20 62 65 63 6f 6d 65 | .region.from.START.to.END.become |
| 1636a0 | 73 20 76 69 73 69 62 6c 65 2e 0a 3b 3b 20 53 54 41 52 54 20 69 73 20 69 6e 63 6c 75 73 69 76 65 | s.visible..;;.START.is.inclusive |
| 1636c0 | 3b 20 45 4e 44 20 69 73 20 65 78 63 6c 75 73 69 76 65 2e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | ;.END.is.exclusive..(defun.slime |
| 1636e0 | 2d 2d 61 64 6a 75 73 74 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 28 73 74 61 72 74 20 65 6e 64 | --adjust-window-start.(start.end |
| 163700 | 29 0a 20 20 28 6c 65 74 2a 20 28 28 6c 61 73 74 20 28 6d 61 78 20 73 74 61 72 74 20 28 31 2d 20 | )...(let*.((last.(max.start.(1-. |
| 163720 | 65 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 28 | end)))..........(window-height.( |
| 163740 | 77 69 6e 64 6f 77 2d 74 65 78 74 2d 68 65 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 | window-text-height))..........(r |
| 163760 | 65 67 69 6f 6e 2d 68 65 69 67 68 74 20 28 63 6f 75 6e 74 2d 73 63 72 65 65 6e 2d 6c 69 6e 65 73 | egion-height.(count-screen-lines |
| 163780 | 20 73 74 61 72 74 20 6c 61 73 74 20 74 29 29 29 0a 20 20 20 20 3b 3b 20 69 66 20 6e 65 65 64 65 | .start.last.t))).....;;.if.neede |
| 1637a0 | 64 2c 20 6d 61 6b 65 20 74 68 65 20 72 65 67 69 6f 6e 20 76 69 73 69 62 6c 65 0a 20 20 20 20 28 | d,.make.the.region.visible.....( |
| 1637c0 | 77 68 65 6e 20 28 6f 72 20 28 6e 6f 74 20 28 70 6f 73 2d 76 69 73 69 62 6c 65 2d 69 6e 2d 77 69 | when.(or.(not.(pos-visible-in-wi |
| 1637e0 | 6e 64 6f 77 2d 70 20 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f | ndow-p.start))...............(no |
| 163800 | 74 20 28 70 6f 73 2d 76 69 73 69 62 6c 65 2d 69 6e 2d 77 69 6e 64 6f 77 2d 70 20 6c 61 73 74 29 | t.(pos-visible-in-window-p.last) |
| 163820 | 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6e 6c 69 6e 65 73 20 28 63 6f 6e 64 20 28 28 | )).......(let*.((nlines.(cond.(( |
| 163840 | 6f 72 20 28 3c 20 73 74 61 72 74 20 28 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 29 0a 20 20 20 20 | or.(<.start.(window-start))..... |
| 163860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 3d 20 | ............................(>=. |
| 163880 | 72 65 67 69 6f 6e 2d 68 65 69 67 68 74 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 29 29 0a 20 20 | region-height.window-height))... |
| 1638a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 29 0a 20 20 20 | ..........................0).... |
| 1638c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 | ........................(t...... |
| 1638e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 72 65 67 69 6f 6e | .......................(-.region |
| 163900 | 2d 68 65 69 67 68 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | -height))))).........(goto-char. |
| 163920 | 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 28 72 65 63 65 6e 74 65 72 20 6e 6c 69 6e 65 73 29 | start).........(recenter.nlines) |
| 163940 | 29 29 0a 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 70 6f 73 2d 76 69 73 69 62 6c 65 2d 69 | )).....(cl-assert.(pos-visible-i |
| 163960 | 6e 2d 77 69 6e 64 6f 77 2d 70 20 73 74 61 72 74 29 29 0a 20 20 20 20 28 63 6c 2d 61 73 73 65 72 | n-window-p.start)).....(cl-asser |
| 163980 | 74 20 28 6f 72 20 28 70 6f 73 2d 76 69 73 69 62 6c 65 2d 69 6e 2d 77 69 6e 64 6f 77 2d 70 20 6c | t.(or.(pos-visible-in-window-p.l |
| 1639a0 | 61 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 20 72 65 67 69 6f | ast)....................(>.regio |
| 1639c0 | 6e 2d 68 65 69 67 68 74 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 29 29 29 0a 20 20 20 20 28 63 | n-height.window-height))).....(c |
| 1639e0 | 6c 2d 61 73 73 65 72 74 20 28 70 6f 73 2d 76 69 73 69 62 6c 65 2d 69 6e 2d 77 69 6e 64 6f 77 2d | l-assert.(pos-visible-in-window- |
| 163a00 | 70 20 28 31 2d 20 28 77 69 6e 64 6f 77 2d 65 6e 64 20 6e 69 6c 20 74 29 29 20 6e 69 6c 20 74 29 | p.(1-.(window-end.nil.t)).nil.t) |
| 163a20 | 29 29 29 0a 0a 3b 3b 20 6d 6f 76 65 20 50 4f 53 20 74 6f 20 76 69 73 69 62 6c 65 20 72 65 67 69 | )))..;;.move.POS.to.visible.regi |
| 163a40 | 6f 6e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 2d 61 64 6a 75 73 74 2d 77 69 6e 64 6f 77 2d 70 | on.(defun.slime--adjust-window-p |
| 163a60 | 6f 69 6e 74 20 28 70 6f 73 29 0a 20 20 28 63 6f 6e 64 20 28 28 70 6f 73 2d 76 69 73 69 62 6c 65 | oint.(pos)...(cond.((pos-visible |
| 163a80 | 2d 69 6e 2d 77 69 6e 64 6f 77 2d 70 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f | -in-window-p.pos)..........(goto |
| 163aa0 | 2d 63 68 61 72 20 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 28 28 3c 20 70 6f 73 20 28 77 69 6e | -char.pos)).........((<.pos.(win |
| 163ac0 | 64 6f 77 2d 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | dow-start))..........(goto-char. |
| 163ae0 | 28 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 | (window-start))).........(t..... |
| 163b00 | 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 31 2d 20 28 77 69 6e 64 6f 77 2d 65 6e 64 20 | .....(goto-char.(1-.(window-end. |
| 163b20 | 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d | nil.t)))..........(move-to-colum |
| 163b40 | 6e 20 30 29 29 29 0a 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 70 6f 73 2d 76 69 73 69 62 6c 65 | n.0)))...(cl-assert.(pos-visible |
| 163b60 | 2d 69 6e 2d 77 69 6e 64 6f 77 2d 70 20 28 70 6f 69 6e 74 29 20 6e 69 6c 20 74 29 29 29 0a 0a 28 | -in-window-p.(point).nil.t)))..( |
| 163b80 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 2d 64 69 73 70 6c 61 79 2d 72 65 67 69 6f 6e 20 28 73 74 61 | defun.slime--display-region.(sta |
| 163ba0 | 72 74 20 65 6e 64 29 0a 20 20 22 4d 61 6b 65 20 74 68 65 20 72 65 67 69 6f 6e 20 66 72 6f 6d 20 | rt.end)..."Make.the.region.from. |
| 163bc0 | 53 54 41 52 54 20 74 6f 20 45 4e 44 20 76 69 73 69 62 6c 65 2e 0a 4d 69 6e 69 6d 69 7a 65 20 70 | START.to.END.visible..Minimize.p |
| 163be0 | 6f 69 6e 74 20 6d 6f 74 69 6f 6e 2e 22 0a 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 3c 3d 20 73 | oint.motion."...(cl-assert.(<=.s |
| 163c00 | 74 61 72 74 20 65 6e 64 29 29 0a 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 65 71 20 28 77 69 6e | tart.end))...(cl-assert.(eq.(win |
| 163c20 | 64 6f 77 2d 62 75 66 66 65 72 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 0a 20 20 | dow-buffer.(selected-window))... |
| 163c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 | ...............(current-buffer)) |
| 163c60 | 29 0a 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 6c | )...(let.((pos.(point))).....(sl |
| 163c80 | 69 6d 65 2d 2d 61 64 6a 75 73 74 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 73 74 61 72 74 20 65 | ime--adjust-window-start.start.e |
| 163ca0 | 6e 64 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 2d 61 64 6a 75 73 74 2d 77 69 6e 64 6f 77 2d 70 6f | nd).....(slime--adjust-window-po |
| 163cc0 | 69 6e 74 20 70 6f 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 | int.pos)))..(defun.slime-highlig |
| 163ce0 | 68 74 2d 73 65 78 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 | ht-sexp.(&optional.start.end)... |
| 163d00 | 22 48 69 67 68 6c 69 67 68 74 20 74 68 65 20 66 69 72 73 74 20 73 65 78 70 20 61 66 74 65 72 20 | "Highlight.the.first.sexp.after. |
| 163d20 | 70 6f 69 6e 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 6f 72 20 73 74 61 72 74 | point."...(let.((start.(or.start |
| 163d40 | 20 28 70 6f 69 6e 74 29 29 29 0a 09 28 65 6e 64 20 28 6f 72 20 65 6e 64 20 28 73 61 76 65 2d 65 | .(point)))..(end.(or.end.(save-e |
| 163d60 | 78 63 75 72 73 69 6f 6e 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 6f 72 77 61 72 64 | xcursion.(ignore-errors.(forward |
| 163d80 | 2d 73 65 78 70 29 29 20 28 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 66 | -sexp)).(point))))).....(slime-f |
| 163da0 | 6c 61 73 68 2d 72 65 67 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 29 29 0a 0a 28 64 65 66 75 6e | lash-region.start.end)))..(defun |
| 163dc0 | 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 6c 69 6e 65 20 28 26 6f 70 74 69 6f 6e 61 6c | .slime-highlight-line.(&optional |
| 163de0 | 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 73 6c 69 6d 65 2d 66 6c 61 73 68 2d 72 65 67 69 6f 6e 20 | .timeout)...(slime-flash-region. |
| 163e00 | 28 2b 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 28 63 75 | (+.(line-beginning-position).(cu |
| 163e20 | 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | rrent-indentation))............. |
| 163e40 | 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 | ..........(line-end-position)... |
| 163e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 6f 75 74 29 29 0a 0a 0c | ....................timeout))... |
| 163e80 | 0a 3b 3b 3b 3b 3b 3b 20 53 4c 44 42 20 74 6f 67 67 6c 65 20 64 65 74 61 69 6c 73 0a 0a 28 64 65 | .;;;;;;.SLDB.toggle.details..(de |
| 163ea0 | 66 75 6e 20 73 6c 64 62 2d 74 6f 67 67 6c 65 2d 64 65 74 61 69 6c 73 20 28 26 6f 70 74 69 6f 6e | fun.sldb-toggle-details.(&option |
| 163ec0 | 61 6c 20 6f 6e 29 0a 20 20 22 54 6f 67 67 6c 65 20 64 69 73 70 6c 61 79 20 6f 66 20 64 65 74 61 | al.on)..."Toggle.display.of.deta |
| 163ee0 | 69 6c 73 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 72 61 6d 65 2e 0a 54 68 65 20 64 | ils.for.the.current.frame..The.d |
| 163f00 | 65 74 61 69 6c 73 20 69 6e 63 6c 75 64 65 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 62 69 | etails.include.local.variable.bi |
| 163f20 | 6e 64 69 6e 67 73 20 61 6e 64 20 43 41 54 43 48 2d 74 61 67 73 2e 22 0a 20 20 28 69 6e 74 65 72 | ndings.and.CATCH-tags."...(inter |
| 163f40 | 61 63 74 69 76 65 29 0a 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 73 6c 64 62 2d 66 72 61 6d 65 | active)...(cl-assert.(sldb-frame |
| 163f60 | 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 | -number-at-point))...(let.((inhi |
| 163f80 | 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 | bit-read-only.t).........(inhibi |
| 163fa0 | 74 2d 70 6f 69 6e 74 2d 6d 6f 74 69 6f 6e 2d 68 6f 6f 6b 73 20 74 29 29 0a 20 20 20 20 28 69 66 | t-point-motion-hooks.t)).....(if |
| 163fc0 | 20 28 6f 72 20 6f 6e 20 28 6e 6f 74 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 64 65 74 61 69 6c 73 | .(or.on.(not.(sldb-frame-details |
| 163fe0 | 2d 76 69 73 69 62 6c 65 2d 70 29 29 29 0a 09 28 73 6c 64 62 2d 73 68 6f 77 2d 66 72 61 6d 65 2d | -visible-p)))..(sldb-show-frame- |
| 164000 | 64 65 74 61 69 6c 73 29 0a 20 20 20 20 20 20 28 73 6c 64 62 2d 68 69 64 65 2d 66 72 61 6d 65 2d | details).......(sldb-hide-frame- |
| 164020 | 64 65 74 61 69 6c 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 73 68 6f 77 2d 66 72 | details))))..(defun.sldb-show-fr |
| 164040 | 61 6d 65 2d 64 65 74 61 69 6c 73 20 28 29 0a 20 20 3b 3b 20 66 65 74 63 68 20 61 6e 64 20 64 69 | ame-details.()...;;.fetch.and.di |
| 164060 | 73 70 6c 61 79 20 69 6e 66 6f 20 61 62 6f 75 74 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 | splay.info.about.local.variables |
| 164080 | 20 61 6e 64 20 63 61 74 63 68 20 74 61 67 73 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 | .and.catch.tags...(cl-destructur |
| 1640a0 | 69 6e 67 2d 62 69 6e 64 20 28 73 74 61 72 74 20 65 6e 64 20 66 72 61 6d 65 20 6c 6f 63 61 6c 73 | ing-bind.(start.end.frame.locals |
| 1640c0 | 20 63 61 74 63 68 65 73 29 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 64 65 74 61 69 6c 73 29 0a 20 | .catches).(sldb-frame-details).. |
| 1640e0 | 20 20 20 28 73 6c 69 6d 65 2d 73 61 76 65 2d 63 6f 6f 72 64 69 6e 61 74 65 73 20 73 74 61 72 74 | ...(slime-save-coordinates.start |
| 164100 | 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 | .......(delete-region.start.end) |
| 164120 | 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 20 | .......(slime-propertize-region. |
| 164140 | 60 28 66 72 61 6d 65 20 2c 66 72 61 6d 65 20 64 65 74 61 69 6c 73 2d 76 69 73 69 62 6c 65 2d 70 | `(frame.,frame.details-visible-p |
| 164160 | 20 74 29 0a 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e 73 65 72 74 2d 66 72 61 6d 65 20 66 | .t).........(sldb-insert-frame.f |
| 164180 | 72 61 6d 65 20 28 69 66 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 72 65 73 74 61 72 74 61 62 6c 65 | rame.(if.(sldb-frame-restartable |
| 1641a0 | 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -p.frame)....................... |
| 1641c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 64 62 2d 72 65 73 74 61 72 74 61 62 6c 65 | ...............'sldb-restartable |
| 1641e0 | 2d 66 72 61 6d 65 2d 6c 69 6e 65 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -frame-line-face................ |
| 164200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 49 58 4d 45 3a 20 63 61 | ....................;;.FIXME:.ca |
| 164220 | 6e 20 77 65 20 73 6f 6d 65 68 6f 77 20 6d 65 72 67 65 20 74 68 65 20 74 77 6f 3f 0a 20 20 20 20 | n.we.somehow.merge.the.two?..... |
| 164240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | ...............................' |
| 164260 | 73 6c 64 62 2d 64 65 74 61 69 6c 65 64 2d 66 72 61 6d 65 2d 6c 69 6e 65 2d 66 61 63 65 29 29 0a | sldb-detailed-frame-line-face)). |
| 164280 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 64 65 6e 74 31 20 22 20 20 20 20 20 20 22 29 | ........(let.((indent1."......") |
| 1642a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 64 65 6e 74 32 20 22 20 20 20 20 20 20 20 | ...............(indent2."....... |
| 1642c0 | 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 69 6e 64 65 6e 74 31 20 28 | ."))...........(insert.indent1.( |
| 1642e0 | 73 6c 64 62 2d 69 6e 2d 66 61 63 65 20 73 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | sldb-in-face.section............ |
| 164300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6c 6f 63 61 6c 73 20 22 4c 6f 63 | .................(if.locals."Loc |
| 164320 | 61 6c 73 3a 22 20 22 5b 4e 6f 20 4c 6f 63 61 6c 73 5d 22 29 29 20 22 5c 6e 22 29 0a 20 20 20 20 | als:"."[No.Locals]"))."\n")..... |
| 164340 | 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e 73 65 72 74 2d 6c 6f 63 61 6c 73 20 6c 6f 63 61 6c 73 | ......(sldb-insert-locals.locals |
| 164360 | 20 69 6e 64 65 6e 74 32 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | .indent2.frame)...........(when. |
| 164380 | 63 61 74 63 68 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 69 6e 64 65 | catches.............(insert.inde |
| 1643a0 | 6e 74 31 20 28 73 6c 64 62 2d 69 6e 2d 66 61 63 65 20 73 65 63 74 69 6f 6e 20 22 43 61 74 63 68 | nt1.(sldb-in-face.section."Catch |
| 1643c0 | 2d 74 61 67 73 3a 22 29 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 | -tags:")."\n").............(doli |
| 1643e0 | 73 74 20 28 74 61 67 20 63 61 74 63 68 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | st.(tag.catches)...............( |
| 164400 | 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 20 60 28 63 61 74 63 68 2d | slime-propertize-region.`(catch- |
| 164420 | 74 61 67 20 2c 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 | tag.,tag).................(inser |
| 164440 | 74 20 69 6e 64 65 6e 74 32 20 28 73 6c 64 62 2d 69 6e 2d 66 61 63 65 20 63 61 74 63 68 2d 74 61 | t.indent2.(sldb-in-face.catch-ta |
| 164460 | 67 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 74 61 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | g.(format."%s".tag))............ |
| 164480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ............."\n"))))........... |
| 1644a0 | 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 | (setq.end.(point))))).....(slime |
| 1644c0 | 2d 2d 64 69 73 70 6c 61 79 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 29 20 65 6e 64 29 29 29 0a | --display-region.(point).end))). |
| 1644e0 | 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 66 72 61 6d 65 2d 64 65 74 61 69 6c 73 20 28 29 0a 20 20 | .(defun.sldb-frame-details.()... |
| 164500 | 3b 3b 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 28 53 54 41 52 54 20 45 4e 44 20 46 52 41 4d | ;;.Return.a.list.(START.END.FRAM |
| 164520 | 45 20 4c 4f 43 41 4c 53 20 43 41 54 43 48 45 53 29 20 66 6f 72 20 66 72 61 6d 65 20 61 74 20 70 | E.LOCALS.CATCHES).for.frame.at.p |
| 164540 | 6f 69 6e 74 2e 0a 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 67 65 74 2d 74 65 78 74 2d | oint....(let*.((frame.(get-text- |
| 164560 | 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 | property.(point).'frame))....... |
| 164580 | 20 20 20 28 6e 75 6d 20 28 63 61 72 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 63 6c 2d 64 65 | ...(num.(car.frame))).....(cl-de |
| 1645a0 | 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 73 74 61 72 74 20 65 6e 64 29 20 28 73 6c | structuring-bind.(start.end).(sl |
| 1645c0 | 64 62 2d 66 72 61 6d 65 2d 72 65 67 69 6f 6e 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 69 73 74 2a | db-frame-region).......(cl-list* |
| 1645e0 | 20 73 74 61 72 74 20 65 6e 64 20 66 72 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .start.end.frame................ |
| 164600 | 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 66 72 61 6d 65 2d 6c 6f 63 61 6c | .(slime-eval.`(swank:frame-local |
| 164620 | 73 2d 61 6e 64 2d 63 61 74 63 68 2d 74 61 67 73 20 2c 6e 75 6d 29 29 29 29 29 29 0a 0a 28 64 65 | s-and-catch-tags.,num))))))..(de |
| 164640 | 66 76 61 72 20 73 6c 64 62 2d 69 6e 73 65 72 74 2d 66 72 61 6d 65 2d 76 61 72 69 61 62 6c 65 2d | fvar.sldb-insert-frame-variable- |
| 164660 | 76 61 6c 75 65 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 27 73 6c 64 62 2d 69 6e 73 65 72 74 2d 66 72 | value-function...'sldb-insert-fr |
| 164680 | 61 6d 65 2d 76 61 72 69 61 62 6c 65 2d 76 61 6c 75 65 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 | ame-variable-value)..(defun.sldb |
| 1646a0 | 2d 69 6e 73 65 72 74 2d 6c 6f 63 61 6c 73 20 28 76 61 72 73 20 70 72 65 66 69 78 20 66 72 61 6d | -insert-locals.(vars.prefix.fram |
| 1646c0 | 65 29 0a 20 20 22 49 6e 73 65 72 74 20 56 41 52 53 20 61 6e 64 20 61 64 64 20 50 52 45 46 49 58 | e)..."Insert.VARS.and.add.PREFIX |
| 1646e0 | 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 65 61 63 68 20 69 6e 73 65 72 74 | .at.the.beginning.of.each.insert |
| 164700 | 65 64 20 6c 69 6e 65 2e 0a 56 41 52 20 73 68 6f 75 6c 64 20 62 65 20 61 20 70 6c 69 73 74 20 77 | ed.line..VAR.should.be.a.plist.w |
| 164720 | 69 74 68 20 74 68 65 20 6b 65 79 73 20 3a 6e 61 6d 65 2c 20 3a 69 64 2c 20 61 6e 64 20 3a 76 61 | ith.the.keys.:name,.:id,.and.:va |
| 164740 | 6c 75 65 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 0a 20 20 | lue."...(cl-loop.for.i.from.0... |
| 164760 | 20 20 20 20 20 20 20 20 20 66 6f 72 20 76 61 72 20 69 6e 20 76 61 72 73 20 64 6f 0a 20 20 20 20 | .........for.var.in.vars.do..... |
| 164780 | 20 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 | .......(cl-destructuring-bind.(& |
| 1647a0 | 6b 65 79 20 6e 61 6d 65 20 69 64 20 76 61 6c 75 65 29 20 76 61 72 0a 20 20 20 20 20 20 20 20 20 | key.name.id.value).var.......... |
| 1647c0 | 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 0a 20 20 20 | ....(slime-propertize-region.... |
| 1647e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 73 6c 64 62 2d 64 65 66 61 75 6c | ..............(list.'sldb-defaul |
| 164800 | 74 2d 61 63 74 69 6f 6e 20 27 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 76 61 72 20 27 76 61 72 20 | t-action.'sldb-inspect-var.'var. |
| 164820 | 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 70 72 65 66 69 78 | i)................(insert.prefix |
| 164840 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e | ........................(sldb-in |
| 164860 | 2d 66 61 63 65 20 6c 6f 63 61 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -face.local-name................ |
| 164880 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 6e 61 6d 65 20 28 69 66 20 28 7a 65 72 6f | ..........(concat.name.(if.(zero |
| 1648a0 | 70 20 69 64 29 20 22 22 20 28 66 6f 72 6d 61 74 20 22 23 25 64 22 20 69 64 29 29 29 29 0a 20 20 | p.id)."".(format."#%d".id))))... |
| 1648c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 3d 20 22 29 0a 20 20 20 20 | .....................".=.")..... |
| 1648e0 | 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 73 6c 64 62 2d 69 6e 73 65 72 74 2d | ...........(funcall.sldb-insert- |
| 164900 | 66 72 61 6d 65 2d 76 61 72 69 61 62 6c 65 2d 76 61 6c 75 65 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 | frame-variable-value-function... |
| 164920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 66 72 61 6d | ......................value.fram |
| 164940 | 65 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 | e.i)................(insert."\n" |
| 164960 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 69 6e 73 65 72 74 2d 66 72 61 6d 65 2d | )))))..(defun.sldb-insert-frame- |
| 164980 | 76 61 72 69 61 62 6c 65 2d 76 61 6c 75 65 20 28 76 61 6c 75 65 20 5f 66 72 61 6d 65 20 5f 69 6e | variable-value.(value._frame._in |
| 1649a0 | 64 65 78 29 0a 20 20 28 69 6e 73 65 72 74 20 28 73 6c 64 62 2d 69 6e 2d 66 61 63 65 20 6c 6f 63 | dex)...(insert.(sldb-in-face.loc |
| 1649c0 | 61 6c 2d 76 61 6c 75 65 20 76 61 6c 75 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 68 | al-value.value)))..(defun.sldb-h |
| 1649e0 | 69 64 65 2d 66 72 61 6d 65 2d 64 65 74 61 69 6c 73 20 28 29 0a 20 20 3b 3b 20 64 65 6c 65 74 65 | ide-frame-details.()...;;.delete |
| 164a00 | 20 6c 6f 63 61 6c 73 20 61 6e 64 20 63 61 74 63 68 20 74 61 67 73 2c 20 62 75 74 20 6b 65 65 70 | .locals.and.catch.tags,.but.keep |
| 164a20 | 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 61 6e 64 20 61 72 67 73 2e 0a 20 20 28 | .the.function.name.and.args....( |
| 164a40 | 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 73 74 61 72 74 20 65 6e 64 | cl-destructuring-bind.(start.end |
| 164a60 | 29 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 72 65 67 69 6f 6e 29 0a 20 20 20 20 28 6c 65 74 20 28 | ).(sldb-frame-region).....(let.( |
| 164a80 | 28 66 72 61 6d 65 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 | (frame.(get-text-property.(point |
| 164aa0 | 29 20 27 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 61 76 65 2d 63 6f | ).'frame))).......(slime-save-co |
| 164ac0 | 6f 72 64 69 6e 61 74 65 73 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d | ordinates.start.........(delete- |
| 164ae0 | 72 65 67 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | region.start.end).........(slime |
| 164b00 | 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 20 27 28 64 65 74 61 69 6c 73 2d 76 69 73 | -propertize-region.'(details-vis |
| 164b20 | 69 62 6c 65 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e 73 65 | ible-p.nil)...........(sldb-inse |
| 164b40 | 72 74 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 | rt-frame.frame))))))..(defun.sld |
| 164b60 | 62 2d 64 69 73 61 73 73 65 6d 62 6c 65 20 28 29 0a 20 20 22 44 69 73 61 73 73 65 6d 62 6c 65 20 | b-disassemble.()..."Disassemble. |
| 164b80 | 74 68 65 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 72 61 6d 65 2e 22 | the.code.for.the.current.frame." |
| 164ba0 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 | ...(interactive)...(let.((frame. |
| 164bc0 | 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 | (sldb-frame-number-at-point))).. |
| 164be0 | 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 73 6c 64 | ...(slime-eval-async.`(swank:sld |
| 164c00 | 62 2d 64 69 73 61 73 73 65 6d 62 6c 65 20 2c 66 72 61 6d 65 29 0a 20 20 20 20 20 20 28 6c 61 6d | b-disassemble.,frame).......(lam |
| 164c20 | 62 64 61 20 28 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f 77 | bda.(result).........(slime-show |
| 164c40 | 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 72 65 73 75 6c 74 20 6e 69 6c 29 29 29 29 29 0a 0a 0c 0a | -description.result.nil))))).... |
| 164c60 | 3b 3b 3b 3b 3b 3b 20 53 4c 44 42 20 65 76 61 6c 20 61 6e 64 20 69 6e 73 70 65 63 74 0a 0a 28 64 | ;;;;;;.SLDB.eval.and.inspect..(d |
| 164c80 | 65 66 75 6e 20 73 6c 64 62 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 73 | efun.sldb-eval-in-frame.(frame.s |
| 164ca0 | 74 72 69 6e 67 20 70 61 63 6b 61 67 65 29 0a 20 20 22 50 72 6f 6d 70 74 20 66 6f 72 20 61 6e 20 | tring.package)..."Prompt.for.an. |
| 164cc0 | 65 78 70 72 65 73 73 69 6f 6e 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 69 74 20 69 6e 20 74 68 | expression.and.evaluate.it.in.th |
| 164ce0 | 65 20 73 65 6c 65 63 74 65 64 20 66 72 61 6d 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | e.selected.frame."...(interactiv |
| 164d00 | 65 20 28 73 6c 64 62 2d 72 65 61 64 2d 66 6f 72 6d 2d 66 6f 72 2d 66 72 61 6d 65 20 22 45 76 61 | e.(sldb-read-form-for-frame."Eva |
| 164d20 | 6c 20 69 6e 20 66 72 61 6d 65 20 28 25 73 29 3e 20 22 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 | l.in.frame.(%s)>."))...(slime-ev |
| 164d40 | 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 65 76 61 6c 2d 73 74 72 69 6e 67 2d 69 6e 2d | al-async.`(swank:eval-string-in- |
| 164d60 | 66 72 61 6d 65 20 2c 73 74 72 69 6e 67 20 2c 66 72 61 6d 65 20 2c 70 61 63 6b 61 67 65 29 0a 20 | frame.,string.,frame.,package).. |
| 164d80 | 20 20 20 28 69 66 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 | ...(if.current-prefix-arg....... |
| 164da0 | 20 20 27 73 6c 69 6d 65 2d 77 72 69 74 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 27 73 6c 69 | ..'slime-write-string.......'sli |
| 164dc0 | 6d 65 2d 64 69 73 70 6c 61 79 2d 65 76 61 6c 2d 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 75 | me-display-eval-result)))..(defu |
| 164de0 | 6e 20 73 6c 64 62 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 28 66 72 61 | n.sldb-pprint-eval-in-frame.(fra |
| 164e00 | 6d 65 20 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 29 0a 20 20 22 50 72 6f 6d 70 74 20 66 6f 72 | me.string.package)..."Prompt.for |
| 164e20 | 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 2c 20 65 76 61 6c 75 61 74 65 20 69 6e 20 73 65 6c 65 | .an.expression,.evaluate.in.sele |
| 164e40 | 63 74 65 64 20 66 72 61 6d 65 2c 20 70 72 65 74 74 79 2d 70 72 69 6e 74 20 72 65 73 75 6c 74 2e | cted.frame,.pretty-print.result. |
| 164e60 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 73 6c 64 62 2d 72 65 61 64 2d 66 6f 72 6d | "...(interactive.(sldb-read-form |
| 164e80 | 2d 66 6f 72 2d 66 72 61 6d 65 20 22 45 76 61 6c 20 69 6e 20 66 72 61 6d 65 20 28 25 73 29 3e 20 | -for-frame."Eval.in.frame.(%s)>. |
| 164ea0 | 22 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 60 28 | "))...(slime-eval-async.......`( |
| 164ec0 | 73 77 61 6e 6b 3a 70 70 72 69 6e 74 2d 65 76 61 6c 2d 73 74 72 69 6e 67 2d 69 6e 2d 66 72 61 6d | swank:pprint-eval-string-in-fram |
| 164ee0 | 65 20 2c 73 74 72 69 6e 67 20 2c 66 72 61 6d 65 20 2c 70 61 63 6b 61 67 65 29 0a 20 20 20 20 28 | e.,string.,frame.,package).....( |
| 164f00 | 6c 61 6d 62 64 61 20 28 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 68 6f | lambda.(result).......(slime-sho |
| 164f20 | 77 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 72 65 73 75 6c 74 20 6e 69 6c 29 29 29 29 0a 0a 28 64 | w-description.result.nil))))..(d |
| 164f40 | 65 66 75 6e 20 73 6c 64 62 2d 72 65 61 64 2d 66 6f 72 6d 2d 66 6f 72 2d 66 72 61 6d 65 20 28 66 | efun.sldb-read-form-for-frame.(f |
| 164f60 | 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 73 6c 64 62 2d 66 72 | string)...(let*.((frame.(sldb-fr |
| 164f80 | 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 | ame-number-at-point))..........( |
| 164fa0 | 70 6b 67 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 66 72 61 6d 65 2d 70 61 | pkg.(slime-eval.`(swank:frame-pa |
| 164fc0 | 63 6b 61 67 65 2d 6e 61 6d 65 20 2c 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 | ckage-name.,frame)))).....(list. |
| 164fe0 | 66 72 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 62 75 66 | frame...........(let.((slime-buf |
| 165000 | 66 65 72 2d 70 61 63 6b 61 67 65 20 70 6b 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | fer-package.pkg)).............(s |
| 165020 | 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 28 66 6f 72 6d 61 | lime-read-from-minibuffer.(forma |
| 165040 | 74 20 66 73 74 72 69 6e 67 20 70 6b 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 70 6b 67 29 29 | t.fstring.pkg)))...........pkg)) |
| 165060 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 69 6e 2d 66 72 61 6d 65 20 | )..(defun.sldb-inspect-in-frame. |
| 165080 | 28 73 74 72 69 6e 67 29 0a 20 20 22 50 72 6f 6d 70 74 20 66 6f 72 20 61 6e 20 65 78 70 72 65 73 | (string)..."Prompt.for.an.expres |
| 1650a0 | 73 69 6f 6e 20 61 6e 64 20 69 6e 73 70 65 63 74 20 69 74 20 69 6e 20 74 68 65 20 73 65 6c 65 63 | sion.and.inspect.it.in.the.selec |
| 1650c0 | 74 65 64 20 66 72 61 6d 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 | ted.frame."...(interactive.(list |
| 1650e0 | 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 20 | .(slime-read-from-minibuffer.... |
| 165100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 49 6e 73 70 65 63 74 20 69 6e 20 66 | ..................."Inspect.in.f |
| 165120 | 72 61 6d 65 20 28 65 76 61 6c 75 61 74 65 64 29 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | rame.(evaluated):."............. |
| 165140 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 29 | ..........(slime-sexp-at-point)) |
| 165160 | 29 29 0a 20 20 28 6c 65 74 20 28 28 6e 75 6d 62 65 72 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e | ))...(let.((number.(sldb-frame-n |
| 165180 | 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 | umber-at-point))).....(slime-eva |
| 1651a0 | 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 2d 69 6e 2d 66 72 61 6d 65 | l-async.`(swank:inspect-in-frame |
| 1651c0 | 20 2c 73 74 72 69 6e 67 20 2c 6e 75 6d 62 65 72 29 0a 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 6f | .,string.,number).......'slime-o |
| 1651e0 | 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 69 6e | pen-inspector)))..(defun.sldb-in |
| 165200 | 73 70 65 63 74 2d 76 61 72 20 28 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 73 6c 64 | spect-var.()...(let.((frame.(sld |
| 165220 | 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 | b-frame-number-at-point))....... |
| 165240 | 20 20 28 76 61 72 20 28 73 6c 64 62 2d 76 61 72 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 | ..(var.(sldb-var-number-at-point |
| 165260 | 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e | ))).....(slime-eval-async.`(swan |
| 165280 | 6b 3a 69 6e 73 70 65 63 74 2d 66 72 61 6d 65 2d 76 61 72 20 2c 66 72 61 6d 65 20 2c 76 61 72 29 | k:inspect-frame-var.,frame.,var) |
| 1652a0 | 0a 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 29 29 29 0a | .......'slime-open-inspector))). |
| 1652c0 | 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 | .(defun.sldb-inspect-condition.( |
| 1652e0 | 29 0a 20 20 22 49 6e 73 70 65 63 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 62 75 67 67 65 | )..."Inspect.the.current.debugge |
| 165300 | 72 20 63 6f 6e 64 69 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 | r.condition."...(interactive)... |
| 165320 | 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 27 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 | (slime-eval-async.'(swank:inspec |
| 165340 | 74 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 27 73 6c 69 6d 65 2d | t-current-condition).....'slime- |
| 165360 | 6f 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 69 6e | open-inspector))..(defun.sldb-in |
| 165380 | 73 70 65 63 74 2d 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 28 29 0a 20 20 28 69 6e 74 65 72 | spect-frame-function.()...(inter |
| 1653a0 | 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 73 6c 64 62 2d 66 72 61 | active)...(let.((frame.(sldb-fra |
| 1653c0 | 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 | me-number-at-point))).....(slime |
| 1653e0 | 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 2d 66 72 61 6d | -eval-async.`(swank:inspect-fram |
| 165400 | 65 2d 66 75 6e 63 74 69 6f 6e 20 2c 66 72 61 6d 65 29 0a 20 20 20 20 20 20 27 73 6c 69 6d 65 2d | e-function.,frame).......'slime- |
| 165420 | 6f 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 70 | open-inspector)))..(defun.sldb-p |
| 165440 | 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | rint-condition.()...(interactive |
| 165460 | 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 20 60 28 73 77 61 6e 6b | )...(slime-eval-describe.`(swank |
| 165480 | 3a 73 64 6c 62 2d 70 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b | :sdlb-print-condition)))....;;;; |
| 1654a0 | 3b 3b 20 53 4c 44 42 20 6d 6f 76 65 6d 65 6e 74 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 64 6f | ;;.SLDB.movement..(defun.sldb-do |
| 1654c0 | 77 6e 20 28 29 0a 20 20 22 53 65 6c 65 63 74 20 6e 65 78 74 20 66 72 61 6d 65 2e 22 0a 20 20 28 | wn.()..."Select.next.frame."...( |
| 1654e0 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 64 62 2d 66 6f 72 77 61 72 64 2d 66 72 61 | interactive)...(sldb-forward-fra |
| 165500 | 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 75 70 20 28 29 0a 20 20 22 53 65 6c 65 63 | me))..(defun.sldb-up.()..."Selec |
| 165520 | 74 20 70 72 65 76 69 6f 75 73 20 66 72 61 6d 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | t.previous.frame."...(interactiv |
| 165540 | 65 29 0a 20 20 28 73 6c 64 62 2d 62 61 63 6b 77 61 72 64 2d 66 72 61 6d 65 29 0a 20 20 28 77 68 | e)...(sldb-backward-frame)...(wh |
| 165560 | 65 6e 20 28 3d 20 28 70 6f 69 6e 74 29 20 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 2d 73 74 61 | en.(=.(point).sldb-backtrace-sta |
| 165580 | 72 74 2d 6d 61 72 6b 65 72 29 0a 20 20 20 20 28 72 65 63 65 6e 74 65 72 20 28 31 2b 20 28 63 6f | rt-marker).....(recenter.(1+.(co |
| 1655a0 | 75 6e 74 2d 6c 69 6e 65 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 29 29 29 29 | unt-lines.(point-min).(point)))) |
| 1655c0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 73 75 67 61 72 2d 6d 6f 76 65 20 28 6d 6f 76 65 | ))..(defun.sldb-sugar-move.(move |
| 1655e0 | 2d 66 6e 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 | -fn)...(let.((inhibit-read-only. |
| 165600 | 74 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 64 65 74 61 69 6c | t)).....(when.(sldb-frame-detail |
| 165620 | 73 2d 76 69 73 69 62 6c 65 2d 70 29 20 28 73 6c 64 62 2d 68 69 64 65 2d 66 72 61 6d 65 2d 64 65 | s-visible-p).(sldb-hide-frame-de |
| 165640 | 74 61 69 6c 73 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6d 6f 76 65 2d 66 6e 29 0a 20 20 | tails)).....(funcall.move-fn)... |
| 165660 | 20 20 28 73 6c 64 62 2d 73 68 6f 77 2d 73 6f 75 72 63 65 29 0a 20 20 20 20 28 73 6c 64 62 2d 74 | ..(sldb-show-source).....(sldb-t |
| 165680 | 6f 67 67 6c 65 2d 64 65 74 61 69 6c 73 20 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d | oggle-details.t)))..(defun.sldb- |
| 1656a0 | 64 65 74 61 69 6c 73 2d 75 70 20 28 29 0a 20 20 22 53 65 6c 65 63 74 20 70 72 65 76 69 6f 75 73 | details-up.()..."Select.previous |
| 1656c0 | 20 66 72 61 6d 65 20 61 6e 64 20 73 68 6f 77 20 64 65 74 61 69 6c 73 2e 22 0a 20 20 28 69 6e 74 | .frame.and.show.details."...(int |
| 1656e0 | 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 64 62 2d 73 75 67 61 72 2d 6d 6f 76 65 20 27 73 6c | eractive)...(sldb-sugar-move.'sl |
| 165700 | 64 62 2d 75 70 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 64 65 74 61 69 6c 73 2d 64 6f 77 | db-up))..(defun.sldb-details-dow |
| 165720 | 6e 20 28 29 0a 20 20 22 53 65 6c 65 63 74 20 6e 65 78 74 20 66 72 61 6d 65 20 61 6e 64 20 73 68 | n.()..."Select.next.frame.and.sh |
| 165740 | 6f 77 20 64 65 74 61 69 6c 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | ow.details."...(interactive)...( |
| 165760 | 73 6c 64 62 2d 73 75 67 61 72 2d 6d 6f 76 65 20 27 73 6c 64 62 2d 64 6f 77 6e 29 29 0a 0a 0c 0a | sldb-sugar-move.'sldb-down)).... |
| 165780 | 3b 3b 3b 3b 3b 3b 20 53 4c 44 42 20 72 65 73 74 61 72 74 73 0a 0a 28 64 65 66 75 6e 20 73 6c 64 | ;;;;;;.SLDB.restarts..(defun.sld |
| 1657a0 | 62 2d 71 75 69 74 20 28 29 0a 20 20 22 51 75 69 74 20 74 6f 20 74 6f 70 6c 65 76 65 6c 2e 22 0a | b-quit.()..."Quit.to.toplevel.". |
| 1657c0 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6c 2d 61 73 73 65 72 74 20 73 6c 64 | ..(interactive)...(cl-assert.sld |
| 1657e0 | 62 2d 72 65 73 74 61 72 74 73 20 28 29 20 22 73 6c 64 62 2d 71 75 69 74 20 63 61 6c 6c 65 64 20 | b-restarts.()."sldb-quit.called. |
| 165800 | 6f 75 74 73 69 64 65 20 6f 66 20 73 6c 64 62 20 62 75 66 66 65 72 22 29 0a 20 20 28 73 6c 69 6d | outside.of.sldb.buffer")...(slim |
| 165820 | 65 2d 72 65 78 20 28 29 20 28 27 28 73 77 61 6e 6b 3a 74 68 72 6f 77 2d 74 6f 2d 74 6f 70 6c 65 | e-rex.().('(swank:throw-to-tople |
| 165840 | 76 65 6c 29 29 0a 20 20 20 20 28 28 3a 6f 6b 20 78 29 20 28 65 72 72 6f 72 20 22 73 6c 64 62 2d | vel)).....((:ok.x).(error."sldb- |
| 165860 | 71 75 69 74 20 72 65 74 75 72 6e 65 64 20 5b 25 73 5d 22 20 78 29 29 0a 20 20 20 20 28 28 3a 61 | quit.returned.[%s]".x)).....((:a |
| 165880 | 62 6f 72 74 20 5f 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 | bort._))))..(defun.sldb-continue |
| 1658a0 | 20 28 29 0a 20 20 22 49 6e 76 6f 6b 65 20 74 68 65 20 5c 22 63 6f 6e 74 69 6e 75 65 5c 22 20 72 | .()..."Invoke.the.\"continue\".r |
| 1658c0 | 65 73 74 61 72 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6c 2d 61 | estart."...(interactive)...(cl-a |
| 1658e0 | 73 73 65 72 74 20 73 6c 64 62 2d 72 65 73 74 61 72 74 73 20 28 29 20 22 73 6c 64 62 2d 63 6f 6e | ssert.sldb-restarts.()."sldb-con |
| 165900 | 74 69 6e 75 65 20 63 61 6c 6c 65 64 20 6f 75 74 73 69 64 65 20 6f 66 20 73 6c 64 62 20 62 75 66 | tinue.called.outside.of.sldb.buf |
| 165920 | 66 65 72 22 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 78 20 28 29 0a 20 20 20 20 20 20 28 27 28 73 | fer")...(slime-rex.().......('(s |
| 165940 | 77 61 6e 6b 3a 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 29 29 0a 20 20 20 20 28 28 3a 6f 6b 20 5f | wank:sldb-continue)).....((:ok._ |
| 165960 | 29 0a 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 72 65 73 74 61 72 74 20 6e 61 6d 65 | )......(message."No.restart.name |
| 165980 | 64 20 63 6f 6e 74 69 6e 75 65 22 29 0a 20 20 20 20 20 28 64 69 6e 67 29 29 0a 20 20 20 20 28 28 | d.continue")......(ding)).....(( |
| 1659a0 | 3a 61 62 6f 72 74 20 5f 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 61 62 6f 72 74 20 | :abort._))))..(defun.sldb-abort. |
| 1659c0 | 28 29 0a 20 20 22 49 6e 76 6f 6b 65 20 74 68 65 20 5c 22 61 62 6f 72 74 5c 22 20 72 65 73 74 61 | ()..."Invoke.the.\"abort\".resta |
| 1659e0 | 72 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 | rt."...(interactive)...(slime-ev |
| 165a00 | 61 6c 2d 61 73 79 6e 63 20 27 28 73 77 61 6e 6b 3a 73 6c 64 62 2d 61 62 6f 72 74 29 0a 20 20 20 | al-async.'(swank:sldb-abort).... |
| 165a20 | 20 28 6c 61 6d 62 64 61 20 28 76 29 20 28 6d 65 73 73 61 67 65 20 22 52 65 73 74 61 72 74 20 72 | .(lambda.(v).(message."Restart.r |
| 165a40 | 65 74 75 72 6e 65 64 3a 20 25 53 22 20 76 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d | eturned:.%S".v))))..(defun.sldb- |
| 165a60 | 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 75 6d 62 65 72 | invoke-restart.(&optional.number |
| 165a80 | 29 0a 20 20 22 49 6e 76 6f 6b 65 20 61 20 72 65 73 74 61 72 74 2e 0a 4f 70 74 69 6f 6e 61 6c 20 | )..."Invoke.a.restart..Optional. |
| 165aa0 | 4e 55 4d 42 45 52 20 28 69 6e 64 65 78 20 69 6e 74 6f 20 60 73 6c 64 62 2d 72 65 73 74 61 72 74 | NUMBER.(index.into.`sldb-restart |
| 165ac0 | 73 27 29 20 73 70 65 63 69 66 69 65 73 20 74 68 65 0a 72 65 73 74 61 72 74 20 74 6f 20 69 6e 76 | s').specifies.the.restart.to.inv |
| 165ae0 | 6f 6b 65 2c 20 6f 74 68 65 72 77 69 73 65 20 75 73 65 20 74 68 65 20 72 65 73 74 61 72 74 20 61 | oke,.otherwise.use.the.restart.a |
| 165b00 | 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 | t.point."...(interactive)...(let |
| 165b20 | 20 28 28 72 65 73 74 61 72 74 20 28 6f 72 20 6e 75 6d 62 65 72 20 28 73 6c 64 62 2d 72 65 73 74 | .((restart.(or.number.(sldb-rest |
| 165b40 | 61 72 74 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 78 20 | art-at-point)))).....(slime-rex. |
| 165b60 | 28 29 0a 20 20 20 20 20 20 20 20 28 28 6c 69 73 74 20 27 73 77 61 6e 6b 3a 69 6e 76 6f 6b 65 2d | ().........((list.'swank:invoke- |
| 165b80 | 6e 74 68 2d 72 65 73 74 61 72 74 2d 66 6f 72 2d 65 6d 61 63 73 20 73 6c 64 62 2d 6c 65 76 65 6c | nth-restart-for-emacs.sldb-level |
| 165ba0 | 20 72 65 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 28 28 3a 6f 6b 20 76 61 6c 75 65 29 20 28 6d | .restart)).......((:ok.value).(m |
| 165bc0 | 65 73 73 61 67 65 20 22 52 65 73 74 61 72 74 20 72 65 74 75 72 6e 65 64 3a 20 25 73 22 20 76 61 | essage."Restart.returned:.%s".va |
| 165be0 | 6c 75 65 29 29 0a 20 20 20 20 20 20 28 28 3a 61 62 6f 72 74 20 5f 29 29 29 29 29 0a 0a 28 64 65 | lue)).......((:abort._)))))..(de |
| 165c00 | 66 75 6e 20 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 72 65 73 74 61 72 74 20 28 26 6f 70 74 69 6f | fun.sldb-inspect-restart.(&optio |
| 165c20 | 6e 61 6c 20 6e 75 6d 62 65 72 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c | nal.number)...(interactive)...(l |
| 165c40 | 65 74 20 28 28 72 65 73 74 61 72 74 20 28 6f 72 20 6e 75 6d 62 65 72 20 28 73 6c 64 62 2d 72 65 | et.((restart.(or.number.(sldb-re |
| 165c60 | 73 74 61 72 74 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 | start-at-point)))).....(slime-ev |
| 165c80 | 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 2d 6e 74 68 2d 72 65 73 | al-async.`(swank:inspect-nth-res |
| 165ca0 | 74 61 72 74 20 2c 72 65 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tart.,restart).................. |
| 165cc0 | 20 20 20 20 20 27 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 29 29 29 0a 0a 28 | .....'slime-open-inspector)))..( |
| 165ce0 | 64 65 66 75 6e 20 73 6c 64 62 2d 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 2d 62 79 2d 6e 61 6d | defun.sldb-invoke-restart-by-nam |
| 165d00 | 65 20 28 72 65 73 74 61 72 74 2d 6e 61 6d 65 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 | e.(restart-name)...(interactive. |
| 165d20 | 28 6c 69 73 74 20 28 6c 65 74 20 28 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 69 67 6e 6f 72 65 2d 63 | (list.(let.((completion-ignore-c |
| 165d40 | 61 73 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ase.t))........................( |
| 165d60 | 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 52 65 73 74 61 72 74 3a 20 22 20 73 6c 64 62 | completing-read."Restart:.".sldb |
| 165d80 | 2d 72 65 73 74 61 72 74 73 20 6e 69 6c 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -restarts.nil.t................. |
| 165da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 0a 20 20 20 20 20 | ........................""...... |
| 165dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 165de0 | 20 20 20 27 73 6c 64 62 2d 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 2d 62 79 2d 6e 61 6d 65 29 | ...'sldb-invoke-restart-by-name) |
| 165e00 | 29 29 29 0a 20 20 28 73 6c 64 62 2d 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 28 63 6c 2d 70 | )))...(sldb-invoke-restart.(cl-p |
| 165e20 | 6f 73 69 74 69 6f 6e 20 72 65 73 74 61 72 74 2d 6e 61 6d 65 20 73 6c 64 62 2d 72 65 73 74 61 72 | osition.restart-name.sldb-restar |
| 165e40 | 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ts.............................. |
| 165e60 | 20 20 20 20 20 20 20 3a 74 65 73 74 20 27 73 74 72 69 6e 67 3d 20 3a 6b 65 79 20 27 66 69 72 73 | .......:test.'string=.:key.'firs |
| 165e80 | 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d 64 65 66 | t)))..(defun.sldb-break-with-def |
| 165ea0 | 61 75 6c 74 2d 64 65 62 75 67 67 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 64 6f 6e 74 2d 75 6e | ault-debugger.(&optional.dont-un |
| 165ec0 | 77 69 6e 64 29 0a 20 20 22 45 6e 74 65 72 20 64 65 66 61 75 6c 74 20 64 65 62 75 67 67 65 72 2e | wind)..."Enter.default.debugger. |
| 165ee0 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 73 6c 69 6d 65 2d 72 | "...(interactive."P")...(slime-r |
| 165f00 | 65 78 20 28 29 0a 20 20 20 20 20 20 28 28 6c 69 73 74 20 27 73 77 61 6e 6b 3a 73 6c 64 62 2d 62 | ex.().......((list.'swank:sldb-b |
| 165f20 | 72 65 61 6b 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 64 65 62 75 67 67 65 72 0a 20 20 20 20 20 | reak-with-default-debugger...... |
| 165f40 | 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6e 6f 74 20 64 6f 6e 74 2d 75 6e 77 69 6e 64 29 29 29 | ........(not.(not.dont-unwind))) |
| 165f60 | 0a 20 20 20 20 20 20 20 6e 69 6c 20 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 | ........nil.slime-current-thread |
| 165f80 | 29 0a 20 20 20 20 28 28 3a 61 62 6f 72 74 20 5f 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 | ).....((:abort._))))..(defun.sld |
| 165fa0 | 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d 73 79 73 74 65 6d 2d 64 65 62 75 67 67 65 72 20 28 26 6f | b-break-with-system-debugger.(&o |
| 165fc0 | 70 74 69 6f 6e 61 6c 20 6c 69 67 68 74 77 65 69 67 68 74 29 0a 20 20 22 45 6e 74 65 72 20 73 79 | ptional.lightweight)..."Enter.sy |
| 165fe0 | 73 74 65 6d 20 64 65 62 75 67 67 65 72 20 28 67 64 62 29 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | stem.debugger.(gdb)."...(interac |
| 166000 | 74 69 76 65 20 22 50 22 29 0a 20 20 28 73 6c 69 6d 65 2d 61 74 74 61 63 68 2d 67 64 62 20 73 6c | tive."P")...(slime-attach-gdb.sl |
| 166020 | 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 6c 69 67 68 74 77 65 69 67 68 | ime-buffer-connection.lightweigh |
| 166040 | 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 74 74 61 63 68 2d 67 64 62 20 28 63 6f | t))..(defun.slime-attach-gdb.(co |
| 166060 | 6e 6e 65 63 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 6c 69 67 68 74 77 65 69 67 68 74 29 0a | nnection.&optional.lightweight). |
| 166080 | 20 20 22 52 75 6e 20 60 67 75 64 2d 67 64 62 27 6f 6e 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f | .."Run.`gud-gdb'on.the.connectio |
| 1660a0 | 6e 20 77 69 74 68 20 50 49 44 20 60 70 69 64 27 2e 0a 0a 49 66 20 60 6c 69 67 68 74 77 65 69 67 | n.with.PID.`pid'...If.`lightweig |
| 1660c0 | 68 74 27 20 69 73 20 67 69 76 65 6e 2c 20 64 6f 20 6e 6f 74 20 73 65 6e 64 20 61 6e 79 20 72 65 | ht'.is.given,.do.not.send.any.re |
| 1660e0 | 71 75 65 73 74 20 74 6f 20 74 68 65 0a 69 6e 66 65 72 69 6f 72 20 4c 69 73 70 20 28 65 2e 67 2e | quest.to.the.inferior.Lisp.(e.g. |
| 166100 | 20 74 6f 20 6f 62 74 61 69 6e 20 64 65 66 61 75 6c 74 20 67 64 62 20 63 6f 6e 66 69 67 29 20 62 | .to.obtain.default.gdb.config).b |
| 166120 | 75 74 20 6f 6e 6c 79 0a 6f 70 65 72 61 74 65 20 66 72 6f 6d 20 74 68 65 20 45 6d 61 63 73 20 73 | ut.only.operate.from.the.Emacs.s |
| 166140 | 69 64 65 3b 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 63 61 73 65 73 20 77 68 65 72 65 20 74 68 | ide;.intended.for.cases.where.th |
| 166160 | 65 20 4c 69 73 70 20 69 73 0a 74 72 75 6c 79 20 73 63 72 65 77 65 64 20 75 70 2e 22 0a 20 20 28 | e.Lisp.is.truly.screwed.up."...( |
| 166180 | 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 | interactive....(list.(slime-read |
| 1661a0 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 22 41 74 74 61 63 68 20 67 64 62 20 74 6f 3a 20 22 20 28 73 | -connection."Attach.gdb.to:.".(s |
| 1661c0 | 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 20 22 50 22 29 29 0a 20 20 28 6c 65 74 20 28 | lime-connection))."P"))...(let.( |
| 1661e0 | 28 70 69 64 20 20 28 73 6c 69 6d 65 2d 70 69 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 | (pid..(slime-pid.connection))... |
| 166200 | 20 20 20 20 20 20 28 66 69 6c 65 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e | ......(file.(slime-lisp-implemen |
| 166220 | 74 61 74 69 6f 6e 2d 70 72 6f 67 72 61 6d 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 | tation-program.connection))..... |
| 166240 | 20 20 20 20 28 63 6f 6d 6d 61 6e 64 73 20 28 75 6e 6c 65 73 73 20 6c 69 67 68 74 77 65 69 67 68 | ....(commands.(unless.lightweigh |
| 166260 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 6c 69 | t.....................(let.((sli |
| 166280 | 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 | me-dispatching-connection.connec |
| 1662a0 | 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | tion)).......................(sl |
| 1662c0 | 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 67 64 62 2d 69 6e 69 74 69 61 6c 2d 63 6f 6d | ime-eval.`(swank:gdb-initial-com |
| 1662e0 | 6d 61 6e 64 73 29 29 29 29 29 29 0a 20 20 20 20 28 67 75 64 2d 67 64 62 20 28 66 6f 72 6d 61 74 | mands)))))).....(gud-gdb.(format |
| 166300 | 20 22 67 64 62 20 2d 70 20 25 64 20 25 73 22 20 70 69 64 20 28 6f 72 20 66 69 6c 65 20 22 22 29 | ."gdb.-p.%d.%s".pid.(or.file."") |
| 166320 | 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 67 75 64 2d | )).....(with-current-buffer.gud- |
| 166340 | 63 6f 6d 69 6e 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 63 6d 64 | comint-buffer.......(dolist.(cmd |
| 166360 | 20 63 6f 6d 6d 61 6e 64 73 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 46 69 72 73 74 20 77 61 69 74 | .commands).........;;.First.wait |
| 166380 | 20 75 6e 74 69 6c 20 67 64 62 20 77 61 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 2c 20 74 68 65 6e | .until.gdb.was.initialized,.then |
| 1663a0 | 20 77 61 69 74 20 75 6e 74 69 6c 20 63 75 72 72 65 6e 74 0a 20 20 20 20 20 20 20 20 3b 3b 20 63 | .wait.until.current.........;;.c |
| 1663c0 | 6f 6d 6d 61 6e 64 20 77 61 73 20 70 72 6f 63 65 73 73 65 64 2e 0a 20 20 20 20 20 20 20 20 28 77 | ommand.was.processed..........(w |
| 1663e0 | 68 69 6c 65 20 28 6e 6f 74 20 28 6c 6f 6f 6b 69 6e 67 2d 62 61 63 6b 20 63 6f 6d 69 6e 74 2d 70 | hile.(not.(looking-back.comint-p |
| 166400 | 72 6f 6d 70 74 2d 72 65 67 65 78 70 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 69 | rompt-regexp.nil))...........(si |
| 166420 | 74 2d 66 6f 72 20 30 2e 30 31 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 64 6f 20 6e 6f | t-for.0.01)).........;;.We.do.no |
| 166440 | 74 20 75 73 65 20 60 67 75 64 2d 63 61 6c 6c 27 20 62 65 63 61 75 73 65 20 77 65 20 77 61 6e 74 | t.use.`gud-call'.because.we.want |
| 166460 | 20 74 68 65 20 69 6e 69 74 69 61 6c 20 63 6f 6d 6d 61 6e 64 73 0a 20 20 20 20 20 20 20 20 3b 3b | .the.initial.commands.........;; |
| 166480 | 20 74 6f 20 62 65 20 64 69 73 70 6c 61 79 65 64 20 62 79 20 74 68 65 20 75 73 65 72 20 73 6f 20 | .to.be.displayed.by.the.user.so. |
| 1664a0 | 68 65 20 6b 6e 6f 77 73 20 77 68 61 74 20 68 65 27 73 20 67 6f 74 2e 0a 20 20 20 20 20 20 20 20 | he.knows.what.he's.got.......... |
| 1664c0 | 28 69 6e 73 65 72 74 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6d 69 6e 74 2d 73 65 6e | (insert.cmd).........(comint-sen |
| 1664e0 | 64 2d 69 6e 70 75 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 61 64 2d | d-input)))))..(defun.slime-read- |
| 166500 | 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 70 72 6f 6d 70 74 20 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 69 | connection.(prompt.&optional.ini |
| 166520 | 74 69 61 6c 2d 76 61 6c 75 65 29 0a 20 20 22 52 65 61 64 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e | tial-value)..."Read.a.connection |
| 166540 | 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 52 65 74 75 72 6e 20 74 68 65 | .from.the.minibuffer..Return.the |
| 166560 | 20 6e 65 74 20 70 72 6f 63 65 73 73 2c 20 6f 72 20 6e 69 6c 2e 22 0a 20 20 28 63 6c 2d 61 73 73 | .net.process,.or.nil."...(cl-ass |
| 166580 | 65 72 74 20 28 6d 65 6d 71 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 20 73 6c 69 6d 65 2d 6e 65 | ert.(memq.initial-value.slime-ne |
| 1665a0 | 74 2d 70 72 6f 63 65 73 73 65 73 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 6f 2d 73 74 72 69 6e | t-processes))...(let*.((to-strin |
| 1665c0 | 67 20 28 6c 61 6d 62 64 61 20 28 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g.(lambda.(p)................... |
| 1665e0 | 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 20 28 70 69 64 20 25 64 29 22 0a 20 20 20 20 20 20 | ....(format."%s.(pid.%d)"....... |
| 166600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 | ........................(slime-c |
| 166620 | 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 20 70 29 20 28 73 6c 69 6d 65 2d 70 69 64 20 70 29 29 | onnection-name.p).(slime-pid.p)) |
| 166640 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 6e 64 69 64 61 74 65 73 20 28 6d 61 70 63 61 72 20 | ))..........(candidates.(mapcar. |
| 166660 | 28 6c 61 6d 62 64 61 20 28 70 29 20 28 63 6f 6e 73 20 28 66 75 6e 63 61 6c 6c 20 74 6f 2d 73 74 | (lambda.(p).(cons.(funcall.to-st |
| 166680 | 72 69 6e 67 20 70 29 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ring.p).p))..................... |
| 1666a0 | 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 29 29 0a | .........slime-net-processes))). |
| 1666c0 | 20 20 20 20 28 63 64 72 20 28 61 73 73 6f 63 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 | ....(cdr.(assoc.(completing-read |
| 1666e0 | 20 70 72 6f 6d 70 74 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .prompt.candidates.............. |
| 166700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 20 28 66 75 6e 63 61 | ....................nil.t.(funca |
| 166720 | 6c 6c 20 74 6f 2d 73 74 72 69 6e 67 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 29 29 0a 20 20 20 | ll.to-string.initial-value)).... |
| 166740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6e 64 69 64 61 74 65 73 29 29 29 29 0a 0a 28 64 65 | .............candidates))))..(de |
| 166760 | 66 75 6e 20 73 6c 64 62 2d 73 74 65 70 20 28 29 0a 20 20 22 53 74 65 70 20 74 6f 20 6e 65 78 74 | fun.sldb-step.()..."Step.to.next |
| 166780 | 20 62 61 73 69 63 2d 62 6c 6f 63 6b 20 62 6f 75 6e 64 61 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 | .basic-block.boundary."...(inter |
| 1667a0 | 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 73 6c 64 62 2d 66 72 61 | active)...(let.((frame.(sldb-fra |
| 1667c0 | 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 | me-number-at-point))).....(slime |
| 1667e0 | 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 73 6c 64 62 2d 73 74 65 70 20 2c 66 | -eval-async.`(swank:sldb-step.,f |
| 166800 | 72 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 6e 65 78 74 20 28 29 0a 20 20 | rame))))..(defun.sldb-next.()... |
| 166820 | 22 53 74 65 70 20 6f 76 65 72 20 63 61 6c 6c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | "Step.over.call."...(interactive |
| 166840 | 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d | )...(let.((frame.(sldb-frame-num |
| 166860 | 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d | ber-at-point))).....(slime-eval- |
| 166880 | 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 73 6c 64 62 2d 6e 65 78 74 20 2c 66 72 61 6d 65 29 29 | async.`(swank:sldb-next.,frame)) |
| 1668a0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 6f 75 74 20 28 29 0a 20 20 22 52 65 73 75 6d 65 | ))..(defun.sldb-out.()..."Resume |
| 1668c0 | 20 73 74 65 70 70 69 6e 67 20 61 66 74 65 72 20 72 65 74 75 72 6e 69 6e 67 20 66 72 6f 6d 20 74 | .stepping.after.returning.from.t |
| 1668e0 | 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | his.function."...(interactive).. |
| 166900 | 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 | .(let.((frame.(sldb-frame-number |
| 166920 | 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 | -at-point))).....(slime-eval-asy |
| 166940 | 6e 63 20 60 28 73 77 61 6e 6b 3a 73 6c 64 62 2d 6f 75 74 20 2c 66 72 61 6d 65 29 29 29 29 0a 0a | nc.`(swank:sldb-out.,frame)))).. |
| 166960 | 28 64 65 66 75 6e 20 73 6c 64 62 2d 62 72 65 61 6b 2d 6f 6e 2d 72 65 74 75 72 6e 20 28 29 0a 20 | (defun.sldb-break-on-return.().. |
| 166980 | 20 22 53 65 74 20 61 20 62 72 65 61 6b 70 6f 69 6e 74 20 61 74 20 74 68 65 20 63 75 72 72 65 6e | ."Set.a.breakpoint.at.the.curren |
| 1669a0 | 74 20 66 72 61 6d 65 2e 0a 54 68 65 20 64 65 62 75 67 67 65 72 20 69 73 20 65 6e 74 65 72 65 64 | t.frame..The.debugger.is.entered |
| 1669c0 | 20 77 68 65 6e 20 74 68 65 20 66 72 61 6d 65 20 65 78 69 74 73 2e 22 0a 20 20 28 69 6e 74 65 72 | .when.the.frame.exits."...(inter |
| 1669e0 | 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 73 6c 64 62 2d 66 72 61 | active)...(let.((frame.(sldb-fra |
| 166a00 | 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 | me-number-at-point))).....(slime |
| 166a20 | 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 73 6c 64 62 2d 62 72 65 61 6b 2d 6f | -eval-async.`(swank:sldb-break-o |
| 166a40 | 6e 2d 72 65 74 75 72 6e 20 2c 66 72 61 6d 65 29 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | n-return.,frame).......(lambda.( |
| 166a60 | 6d 73 67 29 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 6d 73 67 29 29 29 29 29 0a 0a 28 64 65 | msg).(message."%s".msg)))))..(de |
| 166a80 | 66 75 6e 20 73 6c 64 62 2d 62 72 65 61 6b 20 28 6e 61 6d 65 29 0a 20 20 22 53 65 74 20 61 20 62 | fun.sldb-break.(name)..."Set.a.b |
| 166aa0 | 72 65 61 6b 70 6f 69 6e 74 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 66 75 | reakpoint.at.the.start.of.the.fu |
| 166ac0 | 6e 63 74 69 6f 6e 20 4e 41 4d 45 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 | nction.NAME."...(interactive.(li |
| 166ae0 | 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 46 75 6e 63 | st.(slime-read-symbol-name."Func |
| 166b00 | 74 69 6f 6e 3a 20 22 20 74 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 | tion:.".t)))...(slime-eval-async |
| 166b20 | 20 60 28 73 77 61 6e 6b 3a 73 6c 64 62 2d 62 72 65 61 6b 20 2c 6e 61 6d 65 29 0a 20 20 20 20 28 | .`(swank:sldb-break.,name).....( |
| 166b40 | 6c 61 6d 62 64 61 20 28 6d 73 67 29 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 6d 73 67 29 29 | lambda.(msg).(message."%s".msg)) |
| 166b60 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d | ))..(defun.sldb-return-from-fram |
| 166b80 | 65 20 28 73 74 72 69 6e 67 29 0a 20 20 22 52 65 61 64 73 20 61 6e 20 65 78 70 72 65 73 73 69 6f | e.(string)..."Reads.an.expressio |
| 166ba0 | 6e 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 61 6e 64 20 63 61 75 73 65 73 20 74 | n.in.the.minibuffer.and.causes.t |
| 166bc0 | 68 65 20 66 75 6e 63 74 69 6f 6e 20 74 6f 0a 72 65 74 75 72 6e 20 74 68 61 74 20 76 61 6c 75 65 | he.function.to.return.that.value |
| 166be0 | 2c 20 65 76 61 6c 75 61 74 65 64 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 68 | ,.evaluated.in.the.context.of.th |
| 166c00 | 65 20 66 72 61 6d 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 | e.frame."...(interactive.(list.( |
| 166c20 | 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 52 65 74 75 | slime-read-from-minibuffer."Retu |
| 166c40 | 72 6e 20 66 72 6f 6d 20 66 72 61 6d 65 3a 20 22 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 6e 75 | rn.from.frame:.")))...(let*.((nu |
| 166c60 | 6d 62 65 72 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 | mber.(sldb-frame-number-at-point |
| 166c80 | 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 78 20 28 29 0a 20 20 20 20 20 20 20 20 28 28 | ))).....(slime-rex.().........(( |
| 166ca0 | 6c 69 73 74 20 27 73 77 61 6e 6b 3a 73 6c 64 62 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 | list.'swank:sldb-return-from-fra |
| 166cc0 | 6d 65 20 6e 75 6d 62 65 72 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 28 28 3a 6f 6b 20 76 | me.number.string)).......((:ok.v |
| 166ce0 | 61 6c 75 65 29 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 76 61 6c 75 65 29 29 0a 20 20 20 20 | alue).(message."%s".value))..... |
| 166d00 | 20 20 28 28 3a 61 62 6f 72 74 20 5f 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 72 | ..((:abort._)))))..(defun.sldb-r |
| 166d20 | 65 73 74 61 72 74 2d 66 72 61 6d 65 20 28 29 0a 20 20 22 43 61 75 73 65 73 20 74 68 65 20 66 72 | estart-frame.()..."Causes.the.fr |
| 166d40 | 61 6d 65 20 74 6f 20 72 65 73 74 61 72 74 20 65 78 65 63 75 74 69 6f 6e 20 77 69 74 68 20 74 68 | ame.to.restart.execution.with.th |
| 166d60 | 65 20 73 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 20 61 73 20 69 74 0a 77 61 73 20 63 61 6c 6c 65 | e.same.arguments.as.it.was.calle |
| 166d80 | 64 20 6f 72 69 67 69 6e 61 6c 6c 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | d.originally."...(interactive).. |
| 166da0 | 20 28 6c 65 74 2a 20 28 28 6e 75 6d 62 65 72 20 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 | .(let*.((number.(sldb-frame-numb |
| 166dc0 | 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 78 20 28 29 | er-at-point))).....(slime-rex.() |
| 166de0 | 0a 20 20 20 20 20 20 20 20 28 28 6c 69 73 74 20 27 73 77 61 6e 6b 3a 72 65 73 74 61 72 74 2d 66 | .........((list.'swank:restart-f |
| 166e00 | 72 61 6d 65 20 6e 75 6d 62 65 72 29 29 0a 20 20 20 20 20 20 28 28 3a 6f 6b 20 76 61 6c 75 65 29 | rame.number)).......((:ok.value) |
| 166e20 | 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 28 28 3a | .(message."%s".value)).......((: |
| 166e40 | 61 62 6f 72 74 20 5f 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 6f 67 67 6c | abort._)))))..(defun.slime-toggl |
| 166e60 | 65 2d 62 72 65 61 6b 2d 6f 6e 2d 73 69 67 6e 61 6c 73 20 28 29 0a 20 20 22 54 6f 67 67 6c 65 20 | e-break-on-signals.()..."Toggle. |
| 166e80 | 74 68 65 20 76 61 6c 75 65 20 6f 66 20 2a 62 72 65 61 6b 2d 6f 6e 2d 73 69 67 6e 61 6c 73 2a 2e | the.value.of.*break-on-signals*. |
| 166ea0 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d | "...(interactive)...(slime-eval- |
| 166ec0 | 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 74 6f 67 67 6c 65 2d 62 72 65 61 6b 2d 6f 6e 2d 73 69 | async.`(swank:toggle-break-on-si |
| 166ee0 | 67 6e 61 6c 73 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6d 73 67 29 20 28 6d 65 73 73 61 67 | gnals).....(lambda.(msg).(messag |
| 166f00 | 65 20 22 25 73 22 20 6d 73 67 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 3b 20 53 4c 44 42 20 72 65 | e."%s".msg))))....;;;;;;.SLDB.re |
| 166f20 | 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 0a 0a 28 64 65 66 75 6e 20 73 6c 64 | compilation.commands..(defun.sld |
| 166f40 | 62 2d 72 65 63 6f 6d 70 69 6c 65 2d 66 72 61 6d 65 2d 73 6f 75 72 63 65 20 28 26 6f 70 74 69 6f | b-recompile-frame-source.(&optio |
| 166f60 | 6e 61 6c 20 72 61 77 2d 70 72 65 66 69 78 2d 61 72 67 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | nal.raw-prefix-arg)...(interacti |
| 166f80 | 76 65 20 22 50 22 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 | ve."P")...(slime-eval-async..... |
| 166fa0 | 20 20 60 28 73 77 61 6e 6b 3a 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 | ..`(swank:frame-source-location. |
| 166fc0 | 2c 28 73 6c 64 62 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 | ,(sldb-frame-number-at-point)).. |
| 166fe0 | 20 20 20 28 6c 65 74 20 28 28 70 6f 6c 69 63 79 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 75 74 65 2d | ...(let.((policy.(slime-compute- |
| 167000 | 70 6f 6c 69 63 79 20 72 61 77 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a 20 20 20 20 20 20 28 | policy.raw-prefix-arg))).......( |
| 167020 | 6c 61 6d 62 64 61 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 | lambda.(source-location)........ |
| 167040 | 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 | .(slime-dcase.source-location... |
| 167060 | 20 20 20 20 20 20 20 20 28 28 3a 65 72 72 6f 72 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 | ........((:error.message)....... |
| 167080 | 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 | .....(message."%s".message)..... |
| 1670a0 | 20 20 20 20 20 20 20 28 64 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 | .......(ding))...........(t..... |
| 1670c0 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d | .......(let.((slime-compilation- |
| 1670e0 | 70 6f 6c 69 63 79 20 70 6f 6c 69 63 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c | policy.policy))..............(sl |
| 167100 | 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 6f 75 72 63 65 2d 6c 6f | ime-recompile-location.source-lo |
| 167120 | 63 61 74 69 6f 6e 29 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 68 72 65 61 64 20 63 6f | cation))))))))....;;;;.Thread.co |
| 167140 | 6e 74 72 6f 6c 20 70 61 6e 65 6c 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 68 72 65 61 | ntrol.panel..(defvar.slime-threa |
| 167160 | 64 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d | ds-buffer-name.(slime-buffer-nam |
| 167180 | 65 20 3a 74 68 72 65 61 64 73 29 29 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 68 72 65 61 | e.:threads)).(defvar.slime-threa |
| 1671a0 | 64 73 2d 62 75 66 66 65 72 2d 74 69 6d 65 72 20 6e 69 6c 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d | ds-buffer-timer.nil)..(defcustom |
| 1671c0 | 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 73 2d 75 70 64 61 74 65 2d 69 6e 74 65 72 76 61 6c 20 6e | .slime-threads-update-interval.n |
| 1671e0 | 69 6c 0a 20 20 22 49 6e 74 65 72 76 61 6c 20 61 74 20 77 68 69 63 68 20 74 68 65 20 6c 69 73 74 | il..."Interval.at.which.the.list |
| 167200 | 20 6f 66 20 74 68 72 65 61 64 73 20 77 69 6c 6c 20 62 65 20 75 70 64 61 74 65 64 2e 22 0a 20 20 | .of.threads.will.be.updated."... |
| 167220 | 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 | :type.'(choice...........(number |
| 167240 | 20 3a 76 61 6c 75 65 20 30 2e 35 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 6e 69 | .:value.0.5)...........(const.ni |
| 167260 | 6c 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 75 69 29 0a 0a 28 64 65 66 75 6e 20 | l))...:group.'slime-ui)..(defun. |
| 167280 | 73 6c 69 6d 65 2d 6c 69 73 74 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 22 44 69 73 70 6c 61 79 | slime-list-threads.()..."Display |
| 1672a0 | 20 61 20 6c 69 73 74 20 6f 66 20 74 68 72 65 61 64 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | .a.list.of.threads."...(interact |
| 1672c0 | 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 73 | ive)...(let.((name.slime-threads |
| 1672e0 | 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 70 | -buffer-name)).....(slime-with-p |
| 167300 | 6f 70 75 70 2d 62 75 66 66 65 72 20 28 6e 61 6d 65 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 0a | opup-buffer.(name.:connection.t. |
| 167320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 167340 | 20 20 20 3a 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 74 68 72 65 61 64 2d 63 6f 6e 74 72 6f 6c 2d 6d | ...:mode.'slime-thread-control-m |
| 167360 | 6f 64 65 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 74 68 72 65 61 64 73 | ode).......(slime-update-threads |
| 167380 | 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 | -buffer).......(goto-char.(point |
| 1673a0 | 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 73 | -min)).......(when.slime-threads |
| 1673c0 | 2d 75 70 64 61 74 65 2d 69 6e 74 65 72 76 61 6c 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 | -update-interval.........(when.s |
| 1673e0 | 6c 69 6d 65 2d 74 68 72 65 61 64 73 2d 62 75 66 66 65 72 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 | lime-threads-buffer-timer....... |
| 167400 | 20 20 20 20 28 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 73 2d | ....(cancel-timer.slime-threads- |
| 167420 | 62 75 66 66 65 72 2d 74 69 6d 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 | buffer-timer)).........(setq.sli |
| 167440 | 6d 65 2d 74 68 72 65 61 64 73 2d 62 75 66 66 65 72 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 | me-threads-buffer-timer......... |
| 167460 | 20 20 20 20 20 20 28 72 75 6e 2d 77 69 74 68 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 | ......(run-with-timer........... |
| 167480 | 20 20 20 20 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 73 2d 75 70 64 61 74 65 2d 69 6e 74 65 72 76 | .....slime-threads-update-interv |
| 1674a0 | 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 73 2d | al................slime-threads- |
| 1674c0 | 75 70 64 61 74 65 2d 69 6e 74 65 72 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | update-interval................' |
| 1674e0 | 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 74 68 72 65 61 64 73 2d 62 75 66 66 65 72 29 29 29 29 29 | slime-update-threads-buffer))))) |
| 167500 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 71 75 69 74 2d 74 68 72 65 61 64 73 2d 62 75 66 | )..(defun.slime-quit-threads-buf |
| 167520 | 66 65 72 20 28 29 0a 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 73 2d 62 75 66 | fer.()...(when.slime-threads-buf |
| 167540 | 66 65 72 2d 74 69 6d 65 72 0a 20 20 20 20 28 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 73 6c 69 6d | fer-timer.....(cancel-timer.slim |
| 167560 | 65 2d 74 68 72 65 61 64 73 2d 62 75 66 66 65 72 2d 74 69 6d 65 72 29 29 0a 20 20 28 71 75 69 74 | e-threads-buffer-timer))...(quit |
| 167580 | 2d 77 69 6e 64 6f 77 20 74 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 | -window.t)...(slime-eval-async.` |
| 1675a0 | 28 73 77 61 6e 6b 3a 71 75 69 74 2d 74 68 72 65 61 64 2d 62 72 6f 77 73 65 72 29 29 29 0a 0a 28 | (swank:quit-thread-browser)))..( |
| 1675c0 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 74 68 72 65 61 64 73 2d 62 75 66 66 65 | defun.slime-update-threads-buffe |
| 1675e0 | 72 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 69 74 68 2d 63 75 72 | r.()...(interactive)...(with-cur |
| 167600 | 72 65 6e 74 2d 62 75 66 66 65 72 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 73 2d 62 75 66 66 65 72 | rent-buffer.slime-threads-buffer |
| 167620 | 2d 6e 61 6d 65 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 27 28 73 77 | -name.....(slime-eval-async.'(sw |
| 167640 | 61 6e 6b 3a 6c 69 73 74 2d 74 68 72 65 61 64 73 29 0a 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 64 | ank:list-threads).......'slime-d |
| 167660 | 69 73 70 6c 61 79 2d 74 68 72 65 61 64 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | isplay-threads)))..(defun.slime- |
| 167680 | 6d 6f 76 65 2d 70 6f 69 6e 74 20 28 70 6f 73 69 74 69 6f 6e 29 0a 20 20 22 4d 6f 76 65 20 70 6f | move-point.(position)..."Move.po |
| 1676a0 | 69 6e 74 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 61 6e 64 20 69 6e | int.in.the.current.buffer.and.in |
| 1676c0 | 20 74 68 65 20 77 69 6e 64 6f 77 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 64 69 73 70 6c 61 | .the.window.the.buffer.is.displa |
| 1676e0 | 79 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 | yed."...(let.((window.(get-buffe |
| 167700 | 72 2d 77 69 6e 64 6f 77 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 29 29 29 0a 20 | r-window.(current-buffer).t))).. |
| 167720 | 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 28 77 68 65 | ...(goto-char.position).....(whe |
| 167740 | 6e 20 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 70 6f 69 6e 74 | n.window.......(set-window-point |
| 167760 | 20 77 69 6e 64 6f 77 20 70 6f 73 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | .window.position))))..(defun.sli |
| 167780 | 6d 65 2d 64 69 73 70 6c 61 79 2d 74 68 72 65 61 64 73 20 28 74 68 72 65 61 64 73 29 0a 20 20 28 | me-display-threads.(threads)...( |
| 1677a0 | 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 | with-current-buffer.slime-thread |
| 1677c0 | 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 69 6e 68 69 62 69 | s-buffer-name.....(let*.((inhibi |
| 1677e0 | 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 6c 64 2d 74 | t-read-only.t)............(old-t |
| 167800 | 68 72 65 61 64 2d 69 64 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 | hread-id.(get-text-property.(poi |
| 167820 | 6e 74 29 20 27 74 68 72 65 61 64 2d 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 6c 64 | nt).'thread-id))............(old |
| 167840 | 2d 6c 69 6e 65 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 29 29 0a 20 20 20 20 | -line.(line-number-at-pos))..... |
| 167860 | 20 20 20 20 20 20 20 28 6f 6c 64 2d 63 6f 6c 75 6d 6e 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 | .......(old-column.(current-colu |
| 167880 | 6d 6e 29 29 29 0a 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 | mn))).......(erase-buffer)...... |
| 1678a0 | 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 74 68 72 65 61 64 73 20 74 68 72 65 61 64 73 29 0a | .(slime-insert-threads.threads). |
| 1678c0 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 65 77 2d 70 6f 73 69 74 69 6f 6e 20 28 63 6c 2d 70 6f | ......(let.((new-position.(cl-po |
| 1678e0 | 73 69 74 69 6f 6e 20 6f 6c 64 2d 74 68 72 65 61 64 2d 69 64 20 28 63 64 72 20 74 68 72 65 61 64 | sition.old-thread-id.(cdr.thread |
| 167900 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s).............................. |
| 167920 | 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 63 61 72 20 3a 74 65 73 74 20 23 27 65 71 75 | ..........:key.#'car.:test.#'equ |
| 167940 | 61 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d | al))).........(goto-char.(point- |
| 167960 | 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 28 6f 72 20 | min)).........(forward-line.(or. |
| 167980 | 6e 65 77 2d 70 6f 73 69 74 69 6f 6e 20 28 31 2d 20 6f 6c 64 2d 6c 69 6e 65 29 29 29 0a 20 20 20 | new-position.(1-.old-line))).... |
| 1679a0 | 20 20 20 20 20 28 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 6f 6c 64 2d 63 6f 6c 75 6d 6e 29 | .....(move-to-column.old-column) |
| 1679c0 | 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6d 6f 76 65 2d 70 6f 69 6e 74 20 28 70 6f 69 6e | .........(slime-move-point.(poin |
| 1679e0 | 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 61 6e 73 70 6f 73 65 2d | t))))))..(defun.slime-transpose- |
| 167a00 | 6c 69 73 74 73 20 28 6c 69 73 74 2d 6f 66 2d 6c 69 73 74 73 29 0a 20 20 28 6c 65 74 20 28 28 6e | lists.(list-of-lists)...(let.((n |
| 167a20 | 63 6f 6c 73 20 28 6c 65 6e 67 74 68 20 28 63 61 72 20 6c 69 73 74 2d 6f 66 2d 6c 69 73 74 73 29 | cols.(length.(car.list-of-lists) |
| 167a40 | 29 29 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 63 6f 6c 2d 69 6e 64 65 78 20 62 | ))).....(cl-loop.for.col-index.b |
| 167a60 | 65 6c 6f 77 20 6e 63 6f 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 | elow.ncols..............collect. |
| 167a80 | 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 72 6f 77 20 69 6e 20 6c 69 73 74 2d 6f 66 2d 6c 69 73 74 | (cl-loop.for.row.in.list-of-list |
| 167aa0 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s............................... |
| 167ac0 | 63 6f 6c 6c 65 63 74 20 28 65 6c 74 20 72 6f 77 20 63 6f 6c 2d 69 6e 64 65 78 29 29 29 29 29 0a | collect.(elt.row.col-index))))). |
| 167ae0 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 74 61 62 6c 65 2d 72 6f 77 20 28 | .(defun.slime-insert-table-row.( |
| 167b00 | 6c 69 6e 65 20 6c 69 6e 65 2d 70 72 6f 70 73 20 63 6f 6c 2d 70 72 6f 70 73 20 63 6f 6c 2d 77 69 | line.line-props.col-props.col-wi |
| 167b20 | 64 74 68 73 29 0a 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e | dths)...(slime-propertize-region |
| 167b40 | 20 6c 69 6e 65 2d 70 72 6f 70 73 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 73 74 72 | .line-props.....(cl-loop.for.str |
| 167b60 | 69 6e 67 20 69 6e 20 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 63 6f 6c | ing.in.line..............for.col |
| 167b80 | 2d 70 72 6f 70 20 69 6e 20 63 6f 6c 2d 70 72 6f 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -prop.in.col-props.............. |
| 167ba0 | 66 6f 72 20 77 69 64 74 68 20 69 6e 20 63 6f 6c 2d 77 69 64 74 68 73 20 64 6f 0a 20 20 20 20 20 | for.width.in.col-widths.do...... |
| 167bc0 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 | ........(slime-insert-propertize |
| 167be0 | 64 20 63 6f 6c 2d 70 72 6f 70 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.col-prop.string).............. |
| 167c00 | 28 69 6e 73 65 72 74 2d 63 68 61 72 20 3f 5c 20 28 2d 20 77 69 64 74 68 20 28 6c 65 6e 67 74 68 | (insert-char.?\.(-.width.(length |
| 167c20 | 20 73 74 72 69 6e 67 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 65 | .string))))))..(defun.slime-inse |
| 167c40 | 72 74 2d 74 61 62 6c 65 20 28 72 6f 77 73 20 68 65 61 64 65 72 20 72 6f 77 2d 70 72 6f 70 65 72 | rt-table.(rows.header.row-proper |
| 167c60 | 74 69 65 73 20 63 6f 6c 75 6d 6e 2d 70 72 6f 70 65 72 74 69 65 73 29 0a 20 20 22 49 6e 73 65 72 | ties.column-properties)..."Inser |
| 167c80 | 74 20 61 20 5c 22 74 61 62 6c 65 5c 22 20 73 6f 20 74 68 61 74 20 74 68 65 20 63 6f 6c 75 6d 6e | t.a.\"table\".so.that.the.column |
| 167ca0 | 73 20 61 72 65 20 6e 69 63 65 6c 79 20 61 6c 69 67 6e 65 64 2e 22 0a 20 20 28 6c 65 74 2a 20 28 | s.are.nicely.aligned."...(let*.( |
| 167cc0 | 28 6e 63 6f 6c 73 20 28 6c 65 6e 67 74 68 20 68 65 61 64 65 72 29 29 0a 20 20 20 20 20 20 20 20 | (ncols.(length.header))......... |
| 167ce0 | 20 28 6c 69 6e 65 73 20 28 63 6f 6e 73 20 68 65 61 64 65 72 20 72 6f 77 73 29 29 0a 20 20 20 20 | .(lines.(cons.header.rows))..... |
| 167d00 | 20 20 20 20 20 28 77 69 64 74 68 73 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 63 6f 6c 75 6d 6e | .....(widths.(cl-loop.for.column |
| 167d20 | 73 20 69 6e 20 28 73 6c 69 6d 65 2d 74 72 61 6e 73 70 6f 73 65 2d 6c 69 73 74 73 20 6c 69 6e 65 | s.in.(slime-transpose-lists.line |
| 167d40 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c | s)...........................col |
| 167d60 | 6c 65 63 74 20 28 31 2b 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 63 65 6c 6c 20 69 6e 20 63 6f | lect.(1+.(cl-loop.for.cell.in.co |
| 167d80 | 6c 75 6d 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lumns........................... |
| 167da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 69 6d 69 7a 65 20 28 6c | .....................maximize.(l |
| 167dc0 | 65 6e 67 74 68 20 63 65 6c 6c 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 61 64 65 72 | ength.cell)))))..........(header |
| 167de0 | 2d 6c 69 6e 65 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 | -line.(with-temp-buffer......... |
| 167e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 74 61 | ................(slime-insert-ta |
| 167e20 | 62 6c 65 2d 72 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ble-row......................... |
| 167e40 | 20 68 65 61 64 65 72 20 6e 69 6c 20 28 6d 61 6b 65 2d 6c 69 73 74 20 6e 63 6f 6c 73 20 6e 69 6c | .header.nil.(make-list.ncols.nil |
| 167e60 | 29 20 77 69 64 74 68 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).widths)....................... |
| 167e80 | 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 | ..(buffer-string)))).....(cond.( |
| 167ea0 | 28 62 6f 75 6e 64 70 20 27 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 29 0a 20 20 20 | (boundp.'header-line-format).... |
| 167ec0 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 | ........(setq.header-line-format |
| 167ee0 | 20 68 65 61 64 65 72 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 69 6e 73 | .header-line))...........(t.(ins |
| 167f00 | 65 72 74 20 68 65 61 64 65 72 2d 6c 69 6e 65 20 22 5c 6e 22 29 29 29 0a 20 20 20 20 28 63 6c 2d | ert.header-line."\n"))).....(cl- |
| 167f20 | 6c 6f 6f 70 20 66 6f 72 20 6c 69 6e 65 20 69 6e 20 72 6f 77 73 20 20 66 6f 72 20 6c 69 6e 65 2d | loop.for.line.in.rows..for.line- |
| 167f40 | 70 72 6f 70 73 20 69 6e 20 72 6f 77 2d 70 72 6f 70 65 72 74 69 65 73 20 64 6f 0a 20 20 20 20 20 | props.in.row-properties.do...... |
| 167f60 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 74 61 62 6c 65 2d 72 6f 77 20 | ........(slime-insert-table-row. |
| 167f80 | 6c 69 6e 65 20 6c 69 6e 65 2d 70 72 6f 70 73 20 63 6f 6c 75 6d 6e 2d 70 72 6f 70 65 72 74 69 65 | line.line-props.column-propertie |
| 167fa0 | 73 20 77 69 64 74 68 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 | s.widths)..............(insert." |
| 167fc0 | 5c 6e 22 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 73 2d 74 | \n"))))..(defvar.slime-threads-t |
| 167fe0 | 61 62 6c 65 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 27 28 6e 69 6c 20 28 66 61 63 65 20 62 6f | able-properties...'(nil.(face.bo |
| 168000 | 6c 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 74 68 72 65 61 | ld)))..(defun.slime-insert-threa |
| 168020 | 64 73 20 28 74 68 72 65 61 64 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 6c 61 62 65 6c 73 20 28 63 | ds.(threads)...(let*.((labels.(c |
| 168040 | 61 72 20 74 68 72 65 61 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 73 20 28 | ar.threads))..........(threads.( |
| 168060 | 63 64 72 20 74 68 72 65 61 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 61 64 65 72 20 28 | cdr.threads))..........(header.( |
| 168080 | 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6c 61 62 65 6c 20 69 6e 20 6c 61 62 65 6c 73 20 63 6f 6c 6c | cl-loop.for.label.in.labels.coll |
| 1680a0 | 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | ect...........................(c |
| 1680c0 | 61 70 69 74 61 6c 69 7a 65 20 28 73 75 62 73 74 72 69 6e 67 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d | apitalize.(substring.(symbol-nam |
| 1680e0 | 65 20 6c 61 62 65 6c 29 20 31 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 6f 77 73 20 28 63 | e.label).1))))..........(rows.(c |
| 168100 | 6c 2d 6c 6f 6f 70 20 66 6f 72 20 74 68 72 65 61 64 20 69 6e 20 74 68 72 65 61 64 73 20 63 6f 6c | l-loop.for.thread.in.threads.col |
| 168120 | 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c | lect.........................(cl |
| 168140 | 2d 6c 6f 6f 70 20 66 6f 72 20 70 72 6f 70 20 69 6e 20 74 68 72 65 61 64 20 63 6f 6c 6c 65 63 74 | -loop.for.prop.in.thread.collect |
| 168160 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 168180 | 20 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 70 72 6f 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 | ..(format."%s".prop))))......... |
| 1681a0 | 20 28 6c 69 6e 65 2d 70 72 6f 70 73 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 69 64 29 20 69 | .(line-props.(cl-loop.for.(id).i |
| 1681c0 | 6e 20 74 68 72 65 61 64 73 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 20 20 | n.threads.for.i.from.0.......... |
| 1681e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 74 | .....................collect.`(t |
| 168200 | 68 72 65 61 64 2d 69 6e 64 65 78 20 2c 69 20 74 68 72 65 61 64 2d 69 64 20 2c 69 64 29 29 29 0a | hread-index.,i.thread-id.,id))). |
| 168220 | 20 20 20 20 20 20 20 20 20 28 63 6f 6c 2d 70 72 6f 70 73 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 | .........(col-props.(cl-loop.for |
| 168240 | 20 6e 69 6c 20 69 6e 20 6c 61 62 65 6c 73 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 63 6f 6c 6c | .nil.in.labels.for.i.from.0.coll |
| 168260 | 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ect............................. |
| 168280 | 20 28 6e 74 68 20 69 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 73 2d 74 61 62 6c 65 2d 70 72 6f 70 | .(nth.i.slime-threads-table-prop |
| 1682a0 | 65 72 74 69 65 73 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 74 61 62 | erties)))).....(slime-insert-tab |
| 1682c0 | 6c 65 20 72 6f 77 73 20 68 65 61 64 65 72 20 6c 69 6e 65 2d 70 72 6f 70 73 20 63 6f 6c 2d 70 72 | le.rows.header.line-props.col-pr |
| 1682e0 | 6f 70 73 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 4d 61 6a 6f 72 20 6d 6f 64 65 0a 0a 28 64 65 66 | ops)))....;;;;;.Major.mode..(def |
| 168300 | 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 2d 63 6f | ine-derived-mode.slime-thread-co |
| 168320 | 6e 74 72 6f 6c 2d 6d 6f 64 65 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 0a 20 20 22 54 | ntrol-mode.fundamental-mode..."T |
| 168340 | 68 72 65 61 64 73 22 0a 20 20 22 53 4c 49 4d 45 20 54 68 72 65 61 64 20 43 6f 6e 74 72 6f 6c 20 | hreads"..."SLIME.Thread.Control. |
| 168360 | 50 61 6e 65 6c 20 4d 6f 64 65 2e 0a 0a 5c 5c 7b 73 6c 69 6d 65 2d 74 68 72 65 61 64 2d 63 6f 6e | Panel.Mode...\\{slime-thread-con |
| 168380 | 74 72 6f 6c 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 5c 5c 7b 73 6c 69 6d 65 2d 70 6f 70 75 70 2d 62 75 | trol-mode-map}.\\{slime-popup-bu |
| 1683a0 | 66 66 65 72 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 74 72 | ffer-mode-map}"...(when.slime-tr |
| 1683c0 | 75 6e 63 61 74 65 2d 6c 69 6e 65 73 0a 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 | uncate-lines.....(set.(make-loca |
| 1683e0 | 6c 2d 76 61 72 69 61 62 6c 65 20 27 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 29 20 74 29 29 0a | l-variable.'truncate-lines).t)). |
| 168400 | 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 75 6e 64 6f 2d 6c 69 73 74 20 74 29 29 0a 0a 28 73 | ..(setq.buffer-undo-list.t))..(s |
| 168420 | 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 2d 63 6f | lime-define-keys.slime-thread-co |
| 168440 | 6e 74 72 6f 6c 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 22 61 22 20 27 73 6c 69 6d 65 2d 74 68 72 | ntrol-mode-map...("a".'slime-thr |
| 168460 | 65 61 64 2d 61 74 74 61 63 68 29 0a 20 20 28 22 64 22 20 27 73 6c 69 6d 65 2d 74 68 72 65 61 64 | ead-attach)...("d".'slime-thread |
| 168480 | 2d 64 65 62 75 67 29 0a 20 20 28 22 67 22 20 27 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 74 68 72 | -debug)...("g".'slime-update-thr |
| 1684a0 | 65 61 64 73 2d 62 75 66 66 65 72 29 0a 20 20 28 22 6b 22 20 27 73 6c 69 6d 65 2d 74 68 72 65 61 | eads-buffer)...("k".'slime-threa |
| 1684c0 | 64 2d 6b 69 6c 6c 29 0a 20 20 28 22 71 22 20 27 73 6c 69 6d 65 2d 71 75 69 74 2d 74 68 72 65 61 | d-kill)...("q".'slime-quit-threa |
| 1684e0 | 64 73 2d 62 75 66 66 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 68 72 65 61 64 | ds-buffer))..(defun.slime-thread |
| 168500 | 2d 6b 69 6c 6c 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d | -kill.()...(interactive)...(slim |
| 168520 | 65 2d 65 76 61 6c 20 60 28 63 6c 3a 6d 61 70 63 20 27 73 77 61 6e 6b 3a 6b 69 6c 6c 2d 6e 74 68 | e-eval.`(cl:mapc.'swank:kill-nth |
| 168540 | 2d 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -thread......................... |
| 168560 | 27 2c 28 73 6c 69 6d 65 2d 67 65 74 2d 70 72 6f 70 65 72 74 69 65 73 20 27 74 68 72 65 61 64 2d | ',(slime-get-properties.'thread- |
| 168580 | 69 6e 64 65 78 29 29 29 0a 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 | index)))...(call-interactively.' |
| 1685a0 | 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 74 68 72 65 61 64 73 2d 62 75 66 66 65 72 29 29 0a 0a 28 | slime-update-threads-buffer))..( |
| 1685c0 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 65 74 2d 72 65 67 69 6f 6e 2d 70 72 6f 70 65 72 74 69 65 | defun.slime-get-region-propertie |
| 1685e0 | 73 20 28 70 72 6f 70 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f | s.(prop.start.end)...(cl-loop.fo |
| 168600 | 72 20 70 6f 73 69 74 69 6f 6e 20 3d 20 28 69 66 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 | r.position.=.(if.(get-text-prope |
| 168620 | 72 74 79 20 73 74 61 72 74 20 70 72 6f 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rty.start.prop)................. |
| 168640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..............start............. |
| 168660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f | ................(next-single-pro |
| 168680 | 70 65 72 74 79 2d 63 68 61 6e 67 65 20 73 74 61 72 74 20 70 72 6f 70 29 29 0a 20 20 20 20 20 20 | perty-change.start.prop))....... |
| 1686a0 | 20 20 20 20 20 74 68 65 6e 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d | .....then.(next-single-property- |
| 1686c0 | 63 68 61 6e 67 65 20 70 6f 73 69 74 69 6f 6e 20 70 72 6f 70 29 0a 20 20 20 20 20 20 20 20 20 20 | change.position.prop)........... |
| 1686e0 | 20 77 68 69 6c 65 20 28 3c 3d 20 70 6f 73 69 74 69 6f 6e 20 65 6e 64 29 0a 20 20 20 20 20 20 20 | .while.(<=.position.end)........ |
| 168700 | 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 | ....collect.(get-text-property.p |
| 168720 | 6f 73 69 74 69 6f 6e 20 70 72 6f 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 65 | osition.prop)))..(defun.slime-ge |
| 168740 | 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 72 6f 70 29 0a 20 20 28 69 66 20 28 75 73 65 2d 72 | t-properties.(prop)...(if.(use-r |
| 168760 | 65 67 69 6f 6e 2d 70 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 67 65 74 2d 72 65 67 69 6f 6e | egion-p).......(slime-get-region |
| 168780 | 2d 70 72 6f 70 65 72 74 69 65 73 20 70 72 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -properties.prop................ |
| 1687a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 67 69 6f 6e 2d 62 65 67 69 | ....................(region-begi |
| 1687c0 | 6e 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nning).......................... |
| 1687e0 | 20 20 20 20 20 20 20 20 20 20 28 72 65 67 69 6f 6e 2d 65 6e 64 29 29 0a 20 20 20 20 28 6c 65 74 | ..........(region-end)).....(let |
| 168800 | 20 28 28 76 61 6c 75 65 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 | .((value.(get-text-property.(poi |
| 168820 | 6e 74 29 20 70 72 6f 70 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 76 61 6c 75 65 0a 20 20 | nt).prop))).......(when.value... |
| 168840 | 20 20 20 20 20 20 28 6c 69 73 74 20 76 61 6c 75 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | ......(list.value)))))..(defun.s |
| 168860 | 6c 69 6d 65 2d 74 68 72 65 61 64 2d 61 74 74 61 63 68 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 | lime-thread-attach.()...(interac |
| 168880 | 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 69 64 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 | tive)...(let.((id.(get-text-prop |
| 1688a0 | 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 74 68 72 65 61 64 2d 69 6e 64 65 78 29 29 0a 20 20 20 | erty.(point).'thread-index)).... |
| 1688c0 | 20 20 20 20 20 28 66 69 6c 65 20 28 73 6c 69 6d 65 2d 73 77 61 6e 6b 2d 70 6f 72 74 2d 66 69 6c | .....(file.(slime-swank-port-fil |
| 1688e0 | 65 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 | e))).....(slime-eval-async.`(swa |
| 168900 | 6e 6b 3a 73 74 61 72 74 2d 73 77 61 6e 6b 2d 73 65 72 76 65 72 2d 69 6e 2d 74 68 72 65 61 64 20 | nk:start-swank-server-in-thread. |
| 168920 | 2c 69 64 20 2c 66 69 6c 65 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 70 6f 72 74 2d | ,id.,file)))...(slime-read-port- |
| 168940 | 61 6e 64 2d 63 6f 6e 6e 65 63 74 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | and-connect.nil))..(defun.slime- |
| 168960 | 74 68 72 65 61 64 2d 64 65 62 75 67 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a | thread-debug.()...(interactive). |
| 168980 | 20 20 28 6c 65 74 20 28 28 69 64 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 | ..(let.((id.(get-text-property.( |
| 1689a0 | 70 6f 69 6e 74 29 20 27 74 68 72 65 61 64 2d 69 6e 64 65 78 29 29 29 0a 20 20 20 20 28 73 6c 69 | point).'thread-index))).....(sli |
| 1689c0 | 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 64 65 62 75 67 2d 6e 74 68 2d | me-eval-async.`(swank:debug-nth- |
| 1689e0 | 74 68 72 65 61 64 20 2c 69 64 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 43 6f 6e 6e 65 63 74 69 | thread.,id))))....;;;;;.Connecti |
| 168a00 | 6f 6e 20 6c 69 73 74 69 6e 67 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 | on.listing..(define-derived-mode |
| 168a20 | 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 2d 6d 6f 64 65 20 66 75 6e 64 | .slime-connection-list-mode.fund |
| 168a40 | 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 0a 20 20 22 53 6c 69 6d 65 2d 43 6f 6e 6e 65 63 74 69 6f 6e | amental-mode..."Slime-Connection |
| 168a60 | 73 22 0a 20 20 22 53 4c 49 4d 45 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 4c 69 73 74 20 4d 6f 64 65 | s"..."SLIME.Connection.List.Mode |
| 168a80 | 2e 0a 0a 5c 5c 7b 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 2d 6d 6f 64 65 | ...\\{slime-connection-list-mode |
| 168aa0 | 2d 6d 61 70 7d 0a 5c 5c 7b 73 6c 69 6d 65 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 2d 6d 6f 64 65 | -map}.\\{slime-popup-buffer-mode |
| 168ac0 | 2d 6d 61 70 7d 22 0a 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 74 72 75 6e 63 61 74 65 2d 6c 69 | -map}"...(when.slime-truncate-li |
| 168ae0 | 6e 65 73 0a 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c | nes.....(set.(make-local-variabl |
| 168b00 | 65 20 27 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 29 20 74 29 29 29 0a 0a 28 73 6c 69 6d 65 2d | e.'truncate-lines).t)))..(slime- |
| 168b20 | 64 65 66 69 6e 65 2d 6b 65 79 73 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 | define-keys.slime-connection-lis |
| 168b40 | 74 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 22 64 22 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 | t-mode-map...("d".........'slime |
| 168b60 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 2d 6d 61 6b 65 2d 64 65 66 61 75 6c 74 29 0a 20 | -connection-list-make-default).. |
| 168b80 | 20 28 22 67 22 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 63 6f 6e 6e | .("g".........'slime-update-conn |
| 168ba0 | 65 63 74 69 6f 6e 2d 6c 69 73 74 29 0a 20 20 28 28 6b 62 64 20 22 43 2d 6b 22 29 20 27 73 6c 69 | ection-list)...((kbd."C-k").'sli |
| 168bc0 | 6d 65 2d 71 75 69 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 28 | me-quit-connection-at-point)...( |
| 168be0 | 22 52 22 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 72 65 73 74 61 72 74 2d 63 6f 6e 6e 65 | "R".........'slime-restart-conne |
| 168c00 | 63 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 | ction-at-point))..(defun.slime-c |
| 168c20 | 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 28 6f 72 20 28 67 65 74 | onnection-at-point.()...(or.(get |
| 168c40 | 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 63 6f | -text-property.(point).'slime-co |
| 168c60 | 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 | nnection).......(user-error."No. |
| 168c80 | 63 6f 6e 6e 65 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 | connection.at.point")))..(defun. |
| 168ca0 | 73 6c 69 6d 65 2d 71 75 69 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 28 | slime-quit-connection-at-point.( |
| 168cc0 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 | connection)...(interactive.(list |
| 168ce0 | 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 | .(slime-connection-at-point))).. |
| 168d00 | 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 63 6f 6e 6e 65 63 | .(let.((slime-dispatching-connec |
| 168d20 | 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 74 | tion.connection).........(end.(t |
| 168d40 | 69 6d 65 2d 61 64 64 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 20 28 73 65 63 6f 6e 64 73 2d | ime-add.(current-time).(seconds- |
| 168d60 | 74 6f 2d 74 69 6d 65 20 33 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 71 75 69 74 2d 6c 69 | to-time.3)))).....(slime-quit-li |
| 168d80 | 73 70 20 74 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 6d 65 6d 71 20 63 6f 6e 6e 65 63 74 69 6f | sp.t).....(while.(memq.connectio |
| 168da0 | 6e 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 0a 20 20 20 20 20 20 28 77 68 | n.slime-net-processes).......(wh |
| 168dc0 | 65 6e 20 28 74 69 6d 65 2d 6c 65 73 73 2d 70 20 65 6e 64 20 28 63 75 72 72 65 6e 74 2d 74 69 6d | en.(time-less-p.end.(current-tim |
| 168de0 | 65 29 29 0a 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 51 75 69 74 20 74 69 6d 65 6f | e)).........(message."Quit.timeo |
| 168e00 | 75 74 20 65 78 70 69 72 65 64 2e 20 20 44 69 73 63 6f 6e 6e 65 63 74 69 6e 67 2e 22 29 0a 20 20 | ut.expired...Disconnecting.")... |
| 168e20 | 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 20 63 6f 6e 6e 65 63 74 69 6f 6e | ......(delete-process.connection |
| 168e40 | 29 29 0a 20 20 20 20 20 20 28 73 69 74 2d 66 6f 72 20 30 20 31 30 30 29 29 29 0a 20 20 28 73 6c | )).......(sit-for.0.100)))...(sl |
| 168e60 | 69 6d 65 2d 75 70 64 61 74 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 29 29 0a 0a 28 64 | ime-update-connection-list))..(d |
| 168e80 | 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 73 74 61 72 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 | efun.slime-restart-connection-at |
| 168ea0 | 2d 70 6f 69 6e 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | -point.(connection)...(interacti |
| 168ec0 | 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 2d 70 6f | ve.(list.(slime-connection-at-po |
| 168ee0 | 69 6e 74 29 29 29 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 69 6e | int)))...(let.((slime-dispatchin |
| 168f00 | 67 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 28 73 | g-connection.connection)).....(s |
| 168f20 | 6c 69 6d 65 2d 72 65 73 74 61 72 74 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 29 29 29 0a 0a 28 | lime-restart-inferior-lisp)))..( |
| 168f40 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 2d 6d 61 6b 65 | defun.slime-connection-list-make |
| 168f60 | 2d 64 65 66 61 75 6c 74 20 28 29 0a 20 20 22 4d 61 6b 65 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 | -default.()..."Make.the.connecti |
| 168f80 | 6f 6e 20 61 74 20 70 6f 69 6e 74 20 74 68 65 20 64 65 66 61 75 6c 74 20 63 6f 6e 6e 65 63 74 69 | on.at.point.the.default.connecti |
| 168fa0 | 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 73 65 | on."...(interactive)...(slime-se |
| 168fc0 | 6c 65 63 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f | lect-connection.(slime-connectio |
| 168fe0 | 6e 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 28 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 63 6f 6e | n-at-point))...(slime-update-con |
| 169000 | 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 63 6f | nection-list))..(defvar.slime-co |
| 169020 | 6e 6e 65 63 74 69 6f 6e 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 62 75 66 | nnections-buffer-name.(slime-buf |
| 169040 | 66 65 72 2d 6e 61 6d 65 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 73 29 29 0a 0a 28 64 65 66 75 6e 20 | fer-name.:connections))..(defun. |
| 169060 | 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 28 29 0a 20 20 22 44 69 73 | slime-list-connections.()..."Dis |
| 169080 | 70 6c 61 79 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 22 | play.a.list.of.all.connections." |
| 1690a0 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 70 | ...(interactive)...(slime-with-p |
| 1690c0 | 6f 70 75 70 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 2d 62 | opup-buffer.(slime-connections-b |
| 1690e0 | 75 66 66 65 72 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uffer-name...................... |
| 169100 | 20 20 20 20 20 20 20 3a 6d 6f 64 65 20 27 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c | .......:mode.'slime-connection-l |
| 169120 | 69 73 74 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 64 72 61 77 2d 63 6f 6e 6e 65 63 | ist-mode).....(slime-draw-connec |
| 169140 | 74 69 6f 6e 2d 6c 69 73 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 75 70 64 61 74 | tion-list)))..(defun.slime-updat |
| 169160 | 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 20 28 29 0a 20 20 22 44 69 73 70 6c 61 79 20 | e-connection-list.()..."Display. |
| 169180 | 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 22 0a 20 20 28 69 | a.list.of.all.connections."...(i |
| 1691a0 | 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 70 6f 69 6e 74 29 | nteractive)...(let.((pos.(point) |
| 1691c0 | 29 0a 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 | ).........(inhibit-read-only.t)) |
| 1691e0 | 0a 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 64 | .....(erase-buffer).....(slime-d |
| 169200 | 72 61 77 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 | raw-connection-list).....(goto-c |
| 169220 | 68 61 72 20 70 6f 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 72 61 77 2d 63 6f | har.pos)))..(defun.slime-draw-co |
| 169240 | 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 20 28 29 0a 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c | nnection-list.()...(let.((defaul |
| 169260 | 74 2d 70 6f 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 20 73 6c 69 6d | t-pos.nil).........(default.slim |
| 169280 | 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 66 | e-default-connection).........(f |
| 1692a0 | 73 74 72 69 6e 67 20 22 25 73 25 32 73 20 20 25 2d 31 30 73 20 20 25 2d 31 37 73 20 20 25 2d 37 | string."%s%2s..%-10s..%-17s..%-7 |
| 1692c0 | 73 20 25 2d 73 5c 6e 22 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 66 | s.%-s\n")).....(insert.(format.f |
| 1692e0 | 73 74 72 69 6e 67 20 22 20 22 20 22 4e 72 22 20 22 4e 61 6d 65 22 20 22 50 6f 72 74 22 20 22 50 | string."."."Nr"."Name"."Port"."P |
| 169300 | 69 64 22 20 22 54 79 70 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 | id"."Type").............(format. |
| 169320 | 66 73 74 72 69 6e 67 20 22 20 22 20 22 2d 2d 22 20 22 2d 2d 2d 2d 22 20 22 2d 2d 2d 2d 22 20 22 | fstring."."."--"."----"."----"." |
| 169340 | 2d 2d 2d 22 20 22 2d 2d 2d 2d 22 29 29 0a 20 20 20 20 28 73 65 74 66 20 73 6c 69 6d 65 2d 6e 65 | ---"."----")).....(setf.slime-ne |
| 169360 | 74 2d 70 72 6f 63 65 73 73 65 73 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 | t-processes...........(cl-remove |
| 169380 | 2d 69 66 2d 6e 6f 74 20 28 6c 61 6d 62 64 61 20 28 63 6f 6e 6e 29 0a 20 20 20 20 20 20 20 20 20 | -if-not.(lambda.(conn).......... |
| 1693a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 70 72 6f 63 65 73 | .....................(eq.(proces |
| 1693c0 | 73 2d 73 74 61 74 75 73 20 63 6f 6e 6e 29 20 27 6f 70 65 6e 29 29 0a 20 20 20 20 20 20 20 20 20 | s-status.conn).'open)).......... |
| 1693e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f | ...................slime-net-pro |
| 169400 | 63 65 73 73 65 73 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 70 20 28 72 65 76 65 72 73 65 | cesses)).....(dolist.(p.(reverse |
| 169420 | 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 29 0a 20 20 20 20 20 20 28 77 68 | .slime-net-processes)).......(wh |
| 169440 | 65 6e 20 28 65 71 20 64 65 66 61 75 6c 74 20 70 29 20 28 73 65 74 66 20 64 65 66 61 75 6c 74 2d | en.(eq.default.p).(setf.default- |
| 169460 | 70 6f 73 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 | pos.(point))).......(slime-inser |
| 169480 | 74 2d 70 72 6f 70 65 72 74 69 7a 65 64 0a 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 73 6c 69 6d | t-propertized........(list.'slim |
| 1694a0 | 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 29 0a 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 66 | e-connection.p)........(format.f |
| 1694c0 | 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 64 65 | string................(if.(eq.de |
| 1694e0 | 66 61 75 6c 74 20 70 29 20 22 2a 22 20 22 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fault.p)."*".".")............... |
| 169500 | 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 75 6d 62 65 72 20 70 29 0a 20 20 20 | .(slime-connection-number.p).... |
| 169520 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 | ............(slime-connection-na |
| 169540 | 6d 65 20 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 70 72 6f 63 65 73 | me.p)................(or.(proces |
| 169560 | 73 2d 69 64 20 70 29 20 28 70 72 6f 63 65 73 73 2d 63 6f 6e 74 61 63 74 20 70 29 29 0a 20 20 20 | s-id.p).(process-contact.p)).... |
| 169580 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 69 64 20 70 29 0a 20 20 20 20 20 20 | ............(slime-pid.p)....... |
| 1695a0 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 | .........(slime-lisp-implementat |
| 1695c0 | 69 6f 6e 2d 74 79 70 65 20 70 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 64 65 66 61 75 6c 74 | ion-type.p)))).....(when.default |
| 1695e0 | 2d 70 6f 73 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 64 65 66 61 75 6c 74 2d 70 6f | -pos.......(goto-char.default-po |
| 169600 | 73 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 74 6f 72 0a 0a 28 64 65 66 67 72 6f | s))))....;;;;.Inspector..(defgro |
| 169620 | 75 70 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 20 6e 69 6c 0a 20 20 22 49 6e 73 70 65 63 | up.slime-inspector.nil..."Inspec |
| 169640 | 74 6f 72 20 66 61 63 65 73 2e 22 0a 20 20 3a 70 72 65 66 69 78 20 22 73 6c 69 6d 65 2d 69 6e 73 | tor.faces."...:prefix."slime-ins |
| 169660 | 70 65 63 74 6f 72 2d 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 29 0a 0a 28 64 65 66 66 | pector-"...:group.'slime)..(deff |
| 169680 | 61 63 65 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 74 6f 70 6c 69 6e 65 2d 66 61 63 65 | ace.slime-inspector-topline-face |
| 1696a0 | 0a 20 20 27 28 28 74 20 28 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 74 6f 70 20 6c 69 6e | ...'((t.()))..."Face.for.top.lin |
| 1696c0 | 65 20 64 65 73 63 72 69 62 69 6e 67 20 6f 62 6a 65 63 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 | e.describing.object."...:group.' |
| 1696e0 | 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 | slime-inspector)..(defface.slime |
| 169700 | 2d 69 6e 73 70 65 63 74 6f 72 2d 6c 61 62 65 6c 2d 66 61 63 65 0a 20 20 27 28 28 74 20 28 3a 69 | -inspector-label-face...'((t.(:i |
| 169720 | 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6e 73 74 61 6e 74 2d 66 61 63 65 29 29 | nherit.font-lock-constant-face)) |
| 169740 | 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 6c 61 62 65 6c 73 20 69 6e 20 74 68 65 20 69 6e 73 70 | )..."Face.for.labels.in.the.insp |
| 169760 | 65 63 74 6f 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f | ector."...:group.'slime-inspecto |
| 169780 | 72 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 76 61 6c | r)..(defface.slime-inspector-val |
| 1697a0 | 75 65 2d 66 61 63 65 0a 20 20 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d | ue-face.....'((t.(:inherit.font- |
| 1697c0 | 6c 6f 63 6b 2d 62 75 69 6c 74 69 6e 2d 66 61 63 65 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 | lock-builtin-face)))..."Face.for |
| 1697e0 | 20 74 68 69 6e 67 73 20 77 68 69 63 68 20 63 61 6e 20 74 68 65 6d 73 65 6c 76 65 73 20 62 65 20 | .things.which.can.themselves.be. |
| 169800 | 69 6e 73 70 65 63 74 65 64 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 69 6e 73 70 | inspected."...:group.'slime-insp |
| 169820 | 65 63 74 6f 72 29 0a 0a 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 | ector)..(defface.slime-inspector |
| 169840 | 2d 61 63 74 69 6f 6e 2d 66 61 63 65 0a 20 20 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 | -action-face.....'((t.(:inherit. |
| 169860 | 66 6f 6e 74 2d 6c 6f 63 6b 2d 77 61 72 6e 69 6e 67 2d 66 61 63 65 29 29 29 0a 20 20 22 46 61 63 | font-lock-warning-face)))..."Fac |
| 169880 | 65 20 66 6f 72 20 6c 61 62 65 6c 73 20 6f 66 20 69 6e 73 70 65 63 74 6f 72 20 61 63 74 69 6f 6e | e.for.labels.of.inspector.action |
| 1698a0 | 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 29 0a 0a | s."...:group.'slime-inspector).. |
| 1698c0 | 28 64 65 66 66 61 63 65 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 74 79 70 65 2d 66 61 | (defface.slime-inspector-type-fa |
| 1698e0 | 63 65 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 74 79 | ce...'((t.(:inherit.font-lock-ty |
| 169900 | 70 65 2d 66 61 63 65 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 74 79 70 65 20 64 65 73 63 | pe-face)))..."Face.for.type.desc |
| 169920 | 72 69 70 74 69 6f 6e 20 69 6e 20 69 6e 73 70 65 63 74 6f 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 | ription.in.inspector."...:group. |
| 169940 | 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 | 'slime-inspector)..(defvar.slime |
| 169960 | 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 61 72 6b 2d 73 74 61 63 6b 20 27 28 29 29 0a 0a 28 64 65 66 | -inspector-mark-stack.'())..(def |
| 169980 | 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e | un.slime-inspect.(string.&option |
| 1699a0 | 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 29 0a 20 20 22 45 76 61 6c 20 61 6e 20 65 78 70 72 65 73 | al.definition)..."Eval.an.expres |
| 1699c0 | 73 69 6f 6e 20 61 6e 64 20 69 6e 73 70 65 63 74 20 74 68 65 20 72 65 73 75 6c 74 2e 22 0a 20 20 | sion.and.inspect.the.result."... |
| 1699e0 | 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 | (interactive....(list.(slime-rea |
| 169a00 | 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 49 6e 73 70 65 63 74 20 76 61 6c 75 65 | d-from-minibuffer."Inspect.value |
| 169a20 | 20 28 65 76 61 6c 75 61 74 65 64 29 3a 20 22 0a 09 09 09 09 20 20 20 20 20 28 73 6c 69 6d 65 2d | .(evaluated):."..........(slime- |
| 169a40 | 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d | sexp-at-point))))...(slime-eval- |
| 169a60 | 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 69 6e 69 74 2d 69 6e 73 70 65 63 74 6f 72 20 2c 73 74 | async.`(swank:init-inspector.,st |
| 169a80 | 72 69 6e 67 20 2c 64 65 66 69 6e 69 74 69 6f 6e 29 20 27 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e | ring.,definition).'slime-open-in |
| 169aa0 | 73 70 65 63 74 6f 72 29 29 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 | spector))..(define-derived-mode. |
| 169ac0 | 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 6f 64 65 20 66 75 6e 64 61 6d 65 6e 74 61 6c | slime-inspector-mode.fundamental |
| 169ae0 | 2d 6d 6f 64 65 0a 20 20 22 53 6c 69 6d 65 2d 49 6e 73 70 65 63 74 6f 72 22 0a 20 20 22 0a 5c 5c | -mode..."Slime-Inspector"...".\\ |
| 169b00 | 7b 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 5c 5c 7b 73 6c | {slime-inspector-mode-map}.\\{sl |
| 169b20 | 69 6d 65 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 28 73 | ime-popup-buffer-mode-map}"...(s |
| 169b40 | 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 | et-syntax-table.lisp-mode-syntax |
| 169b60 | 2d 74 61 62 6c 65 29 0a 20 20 28 73 6c 69 6d 65 2d 73 65 74 2d 74 72 75 6e 63 61 74 65 2d 6c 69 | -table)...(slime-set-truncate-li |
| 169b80 | 6e 65 73 29 0a 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 | nes)...(setq.buffer-read-only.t) |
| 169ba0 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 62 75 66 66 65 72 | )..(defun.slime-inspector-buffer |
| 169bc0 | 20 28 29 0a 20 20 28 6f 72 20 28 67 65 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 62 75 66 | .()...(or.(get-buffer.(slime-buf |
| 169be0 | 66 65 72 2d 6e 61 6d 65 20 3a 69 6e 73 70 65 63 74 6f 72 29 29 0a 20 20 20 20 20 20 28 73 6c 69 | fer-name.:inspector)).......(sli |
| 169c00 | 6d 65 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 28 73 6c 69 6d 65 2d 62 75 66 | me-with-popup-buffer.((slime-buf |
| 169c20 | 66 65 72 2d 6e 61 6d 65 20 3a 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 | fer-name.:inspector)............ |
| 169c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 6f 64 65 20 27 73 6c 69 6d | .....................:mode.'slim |
| 169c60 | 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | e-inspector-mode).........(setq. |
| 169c80 | 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 61 72 6b 2d 73 74 61 63 6b 20 27 28 29 29 0a | slime-inspector-mark-stack.'()). |
| 169ca0 | 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 64 69 73 61 62 6c 65 2d 75 6e 64 6f 29 0a 20 20 | ........(buffer-disable-undo)... |
| 169cc0 | 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 0a 28 64 65 66 6d | ......(current-buffer))))..(defm |
| 169ce0 | 61 63 72 6f 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 6f 6e 74 69 66 79 20 28 66 61 | acro.slime-inspector-fontify.(fa |
| 169d00 | 63 65 20 73 74 72 69 6e 67 29 0a 20 20 60 28 73 6c 69 6d 65 2d 61 64 64 2d 66 61 63 65 20 27 2c | ce.string)...`(slime-add-face.', |
| 169d20 | 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 | (intern.(format."slime-inspector |
| 169d40 | 2d 25 73 2d 66 61 63 65 22 20 66 61 63 65 29 29 20 2c 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 | -%s-face".face)).,string))..(def |
| 169d60 | 76 61 72 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 69 6e 73 65 72 74 2d 69 73 70 65 63 | var.slime-inspector-insert-ispec |
| 169d80 | 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 69 6e 73 65 72 | -function.'slime-inspector-inser |
| 169da0 | 74 2d 69 73 70 65 63 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e 73 70 | t-ispec)..(defun.slime-open-insp |
| 169dc0 | 65 63 74 6f 72 20 28 69 6e 73 70 65 63 74 65 64 2d 70 61 72 74 73 20 26 6f 70 74 69 6f 6e 61 6c | ector.(inspected-parts.&optional |
| 169de0 | 20 70 6f 69 6e 74 20 68 6f 6f 6b 29 0a 20 20 22 44 69 73 70 6c 61 79 20 49 4e 53 50 45 43 54 45 | .point.hook)..."Display.INSPECTE |
| 169e00 | 44 2d 50 41 52 54 53 20 69 6e 20 61 20 6e 65 77 20 69 6e 73 70 65 63 74 6f 72 20 77 69 6e 64 6f | D-PARTS.in.a.new.inspector.windo |
| 169e20 | 77 2e 0a 4f 70 74 69 6f 6e 61 6c 6c 79 20 73 65 74 20 70 6f 69 6e 74 20 74 6f 20 50 4f 49 4e 54 | w..Optionally.set.point.to.POINT |
| 169e40 | 2e 20 49 66 20 48 4f 4f 4b 20 69 73 20 70 72 6f 76 69 64 65 64 2c 20 69 74 20 69 73 20 61 64 64 | ..If.HOOK.is.provided,.it.is.add |
| 169e60 | 65 64 20 74 6f 20 6c 6f 63 61 6c 0a 4b 49 4c 4c 2d 42 55 46 46 45 52 20 68 6f 6f 6b 73 20 66 6f | ed.to.local.KILL-BUFFER.hooks.fo |
| 169e80 | 72 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 62 75 66 66 65 72 2e 22 0a 20 20 28 77 69 74 68 | r.the.inspector.buffer."...(with |
| 169ea0 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 | -current-buffer.(slime-inspector |
| 169ec0 | 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 77 68 65 6e 20 68 6f 6f 6b 0a 20 20 20 20 20 20 28 61 | -buffer).....(when.hook.......(a |
| 169ee0 | 64 64 2d 68 6f 6f 6b 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 68 6f 6f 6b 20 74 | dd-hook.'kill-buffer-hook.hook.t |
| 169f00 | 20 74 29 29 0a 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e | .t)).....(setq.slime-buffer-conn |
| 169f20 | 65 63 74 69 6f 6e 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e | ection.(slime-current-connection |
| 169f40 | 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 | )).....(let.((inhibit-read-only. |
| 169f60 | 74 29 29 0a 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 | t)).......(erase-buffer).......( |
| 169f80 | 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a | pop-to-buffer.(current-buffer)). |
| 169fa0 | 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 6b | ......(cl-destructuring-bind.(&k |
| 169fc0 | 65 79 20 69 64 20 74 69 74 6c 65 20 63 6f 6e 74 65 6e 74 29 20 69 6e 73 70 65 63 74 65 64 2d 70 | ey.id.title.content).inspected-p |
| 169fe0 | 61 72 74 73 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 6d 61 63 72 6f 6c 65 74 20 28 28 66 6f 6e 74 | arts.........(cl-macrolet.((font |
| 16a000 | 69 66 79 20 28 66 61 63 65 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ify.(face.string)............... |
| 16a020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 | .................`(slime-inspect |
| 16a040 | 6f 72 2d 66 6f 6e 74 69 66 79 20 2c 66 61 63 65 20 2c 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 | or-fontify.,face.,string)))..... |
| 16a060 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 6f 6e 0a 20 | ......(slime-propertize-region.. |
| 16a080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 73 6c 69 6d 65 2d 70 61 72 74 2d 6e | .............(list.'slime-part-n |
| 16a0a0 | 75 6d 62 65 72 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 6f | umber.id.....................'mo |
| 16a0c0 | 75 73 65 2d 66 61 63 65 20 27 68 69 67 68 6c 69 67 68 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | use-face.'highlight............. |
| 16a0e0 | 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 76 | ........'face.'slime-inspector-v |
| 16a100 | 61 6c 75 65 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 74 | alue-face).............(insert.t |
| 16a120 | 69 74 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 65 71 20 28 63 68 61 | itle))...........(while.(eq.(cha |
| 16a140 | 72 2d 62 65 66 6f 72 65 29 20 3f 5c 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b | r-before).?\n).............(back |
| 16a160 | 77 61 72 64 2d 64 65 6c 65 74 65 2d 63 68 61 72 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | ward-delete-char.1))...........( |
| 16a180 | 69 6e 73 65 72 74 20 22 5c 6e 22 20 28 66 6f 6e 74 69 66 79 20 6c 61 62 65 6c 20 22 2d 2d 2d 2d | insert."\n".(fontify.label."---- |
| 16a1a0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 29 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 20 | ----------------")."\n")........ |
| 16a1c0 | 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...(save-excursion.............( |
| 16a1e0 | 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 69 6e 73 65 72 74 2d 63 6f 6e 74 65 6e 74 20 63 | slime-inspector-insert-content.c |
| 16a200 | 6f 6e 74 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 6f 69 6e 74 0a 20 | ontent))...........(when.point.. |
| 16a220 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 63 68 65 63 6b 2d 74 79 70 65 20 70 6f 69 6e 74 20 | ...........(cl-check-type.point. |
| 16a240 | 63 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 | cons).............(ignore-errors |
| 16a260 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 | ...............(goto-char.(point |
| 16a280 | 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 | -min))...............(forward-li |
| 16a2a0 | 6e 65 20 28 31 2d 20 28 63 61 72 20 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ne.(1-.(car.point)))............ |
| 16a2c0 | 20 20 20 28 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 28 63 64 72 20 70 6f 69 6e 74 29 29 29 | ...(move-to-column.(cdr.point))) |
| 16a2e0 | 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d | ))))))..(defvar.slime-inspector- |
| 16a300 | 6c 69 6d 69 74 20 35 30 30 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 | limit.500)..(defun.slime-inspect |
| 16a320 | 6f 72 2d 69 6e 73 65 72 74 2d 63 6f 6e 74 65 6e 74 20 28 63 6f 6e 74 65 6e 74 29 0a 20 20 28 73 | or-insert-content.(content)...(s |
| 16a340 | 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 65 74 63 68 2d 63 68 75 6e 6b 0a 20 20 20 63 6f | lime-inspector-fetch-chunk....co |
| 16a360 | 6e 74 65 6e 74 20 6e 69 6c 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 63 68 75 6e 6b 29 0a 20 20 20 | ntent.nil....(lambda.(chunk).... |
| 16a380 | 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 | ..(let.((inhibit-read-only.t)).. |
| 16a3a0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 69 6e 73 65 72 74 2d 63 68 | ......(slime-inspector-insert-ch |
| 16a3c0 | 75 6e 6b 20 63 68 75 6e 6b 20 74 20 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | unk.chunk.t.t)))))..(defun.slime |
| 16a3e0 | 2d 69 6e 73 70 65 63 74 6f 72 2d 69 6e 73 65 72 74 2d 63 68 75 6e 6b 20 28 63 68 75 6e 6b 20 70 | -inspector-insert-chunk.(chunk.p |
| 16a400 | 72 65 76 20 6e 65 78 74 29 0a 20 20 22 49 6e 73 65 72 74 20 43 48 55 4e 4b 20 61 74 20 70 6f 69 | rev.next)..."Insert.CHUNK.at.poi |
| 16a420 | 6e 74 2e 0a 49 66 20 50 52 45 56 20 72 65 73 70 2e 20 4e 45 58 54 20 61 72 65 20 74 72 75 65 20 | nt..If.PREV.resp..NEXT.are.true. |
| 16a440 | 69 6e 73 65 72 74 20 6d 6f 72 65 2d 62 75 74 74 6f 6e 73 20 61 73 20 6e 65 65 64 65 64 2e 22 0a | insert.more-buttons.as.needed.". |
| 16a460 | 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 69 73 70 65 63 73 | ..(cl-destructuring-bind.(ispecs |
| 16a480 | 20 6c 65 6e 20 73 74 61 72 74 20 65 6e 64 29 20 63 68 75 6e 6b 0a 20 20 20 20 28 77 68 65 6e 20 | .len.start.end).chunk.....(when. |
| 16a4a0 | 28 61 6e 64 20 70 72 65 76 20 28 3e 20 73 74 61 72 74 20 30 29 29 0a 20 20 20 20 20 20 28 73 6c | (and.prev.(>.start.0)).......(sl |
| 16a4c0 | 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 69 6e 73 65 72 74 2d 6d 6f 72 65 2d 62 75 74 74 6f 6e | ime-inspector-insert-more-button |
| 16a4e0 | 20 73 74 61 72 74 20 74 29 29 0a 20 20 20 20 28 6d 61 70 63 20 73 6c 69 6d 65 2d 69 6e 73 70 65 | .start.t)).....(mapc.slime-inspe |
| 16a500 | 63 74 6f 72 2d 69 6e 73 65 72 74 2d 69 73 70 65 63 2d 66 75 6e 63 74 69 6f 6e 20 69 73 70 65 63 | ctor-insert-ispec-function.ispec |
| 16a520 | 73 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6e 65 78 74 20 28 3c 20 65 6e 64 20 6c 65 | s).....(when.(and.next.(<.end.le |
| 16a540 | 6e 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 69 6e 73 65 72 | n)).......(slime-inspector-inser |
| 16a560 | 74 2d 6d 6f 72 65 2d 62 75 74 74 6f 6e 20 65 6e 64 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 | t-more-button.end.nil))))..(defu |
| 16a580 | 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 69 6e 73 65 72 74 2d 69 73 70 65 63 20 28 | n.slime-inspector-insert-ispec.( |
| 16a5a0 | 69 73 70 65 63 29 0a 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 69 73 70 65 63 29 0a 20 20 20 | ispec)...(if.(stringp.ispec).... |
| 16a5c0 | 20 20 20 28 69 6e 73 65 72 74 20 69 73 70 65 63 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 64 63 61 | ...(insert.ispec).....(slime-dca |
| 16a5e0 | 73 65 20 69 73 70 65 63 0a 20 20 20 20 20 20 28 28 3a 76 61 6c 75 65 20 73 74 72 69 6e 67 20 69 | se.ispec.......((:value.string.i |
| 16a600 | 64 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 6f 70 65 72 74 69 7a 65 2d 72 65 67 69 | d)........(slime-propertize-regi |
| 16a620 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 73 6c 69 6d 65 2d 70 61 72 74 2d | on............(list.'slime-part- |
| 16a640 | 6e 75 6d 62 65 72 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 6f 75 73 | number.id..................'mous |
| 16a660 | 65 2d 66 61 63 65 20 27 68 69 67 68 6c 69 67 68 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-face.'highlight............... |
| 16a680 | 20 20 20 27 66 61 63 65 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 76 61 6c 75 65 2d | ...'face.'slime-inspector-value- |
| 16a6a0 | 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 73 74 72 69 6e 67 29 29 29 | face)..........(insert.string))) |
| 16a6c0 | 0a 20 20 20 20 20 20 28 28 3a 6c 61 62 65 6c 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 28 | .......((:label.string)........( |
| 16a6e0 | 69 6e 73 65 72 74 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 6f 6e 74 69 66 79 20 | insert.(slime-inspector-fontify. |
| 16a700 | 6c 61 62 65 6c 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 28 28 3a 61 63 74 69 6f 6e 20 | label.string))).......((:action. |
| 16a720 | 73 74 72 69 6e 67 20 69 64 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d | string.id)........(slime-insert- |
| 16a740 | 70 72 6f 70 65 72 74 69 7a 65 64 20 28 6c 69 73 74 20 27 73 6c 69 6d 65 2d 61 63 74 69 6f 6e 2d | propertized.(list.'slime-action- |
| 16a760 | 6e 75 6d 62 65 72 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | number.id....................... |
| 16a780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 6f 75 73 65 2d 66 61 63 65 20 27 68 69 | .................'mouse-face.'hi |
| 16a7a0 | 67 68 6c 69 67 68 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ghlight......................... |
| 16a7c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 73 6c 69 6d 65 2d 69 6e 73 70 | ...............'face.'slime-insp |
| 16a7e0 | 65 63 74 6f 72 2d 61 63 74 69 6f 6e 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ector-action-face).............. |
| 16a800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 29 29 29 29 29 0a | ....................string))))). |
| 16a820 | 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 6f 73 69 74 69 6f 6e | .(defun.slime-inspector-position |
| 16a840 | 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 70 61 69 72 20 28 59 2d 50 4f 53 49 54 49 4f 4e | .()..."Return.a.pair.(Y-POSITION |
| 16a860 | 20 58 2d 50 4f 53 49 54 49 4f 4e 29 20 72 65 70 72 65 73 65 6e 74 69 6e 67 20 74 68 65 0a 70 6f | .X-POSITION).representing.the.po |
| 16a880 | 73 69 74 69 6f 6e 20 6f 66 20 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 | sition.of.point.in.the.current.b |
| 16a8a0 | 75 66 66 65 72 2e 22 0a 20 20 3b 3b 20 57 65 20 6d 61 6b 65 20 73 75 72 65 20 77 65 20 72 65 74 | uffer."...;;.We.make.sure.we.ret |
| 16a8c0 | 75 72 6e 20 61 62 73 6f 6c 75 74 65 20 63 6f 6f 72 64 69 6e 61 74 65 73 20 65 76 65 6e 20 69 66 | urn.absolute.coordinates.even.if |
| 16a8e0 | 20 74 68 65 20 75 73 65 72 20 68 61 73 0a 20 20 3b 3b 20 6e 61 72 72 6f 77 65 64 20 74 68 65 20 | .the.user.has...;;.narrowed.the. |
| 16a900 | 62 75 66 66 65 72 2e 0a 20 20 3b 3b 20 46 49 58 4d 45 3a 20 77 68 79 20 77 6f 75 6c 64 20 73 6f | buffer....;;.FIXME:.why.would.so |
| 16a920 | 6d 65 62 6f 64 79 20 6e 61 72 72 6f 77 20 74 68 65 20 62 75 66 66 65 72 3f 0a 20 20 28 73 61 76 | mebody.narrow.the.buffer?...(sav |
| 16a940 | 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 20 20 28 63 | e-restriction.....(widen).....(c |
| 16a960 | 6f 6e 73 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 | ons.(line-number-at-pos)........ |
| 16a980 | 20 20 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | ...(current-column))))..(defun.s |
| 16a9a0 | 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 72 6f 70 65 72 74 79 2d 61 74 2d 70 6f 69 6e 74 | lime-inspector-property-at-point |
| 16a9c0 | 20 28 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 72 6f 70 65 72 74 69 65 73 20 27 28 73 6c 69 6d 65 | .()...(let*.((properties.'(slime |
| 16a9e0 | 2d 70 61 72 74 2d 6e 75 6d 62 65 72 20 73 6c 69 6d 65 2d 72 61 6e 67 65 2d 62 75 74 74 6f 6e 0a | -part-number.slime-range-button. |
| 16aa00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 16aa20 | 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 61 63 74 69 6f 6e 2d 6e 75 6d 62 65 72 29 29 0a 20 | .........slime-action-number)).. |
| 16aa40 | 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 20 20 | ........(find-property.......... |
| 16aa60 | 20 28 6c 61 6d 62 64 61 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c | .(lambda.(point).............(cl |
| 16aa80 | 2d 6c 6f 6f 70 20 66 6f 72 20 70 72 6f 70 65 72 74 79 20 69 6e 20 70 72 6f 70 65 72 74 69 65 73 | -loop.for.property.in.properties |
| 16aaa0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 76 61 6c 75 65 20 | ......................for.value. |
| 16aac0 | 3d 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 6f 69 6e 74 20 70 72 6f 70 65 | =.(get-text-property.point.prope |
| 16aae0 | 72 74 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 76 | rty)......................when.v |
| 16ab00 | 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e | alue......................return |
| 16ab20 | 20 28 6c 69 73 74 20 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 29 29 29 29 29 0a 20 20 20 20 28 | .(list.property.value))))).....( |
| 16ab40 | 6f 72 20 28 66 75 6e 63 61 6c 6c 20 66 69 6e 64 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 | or.(funcall.find-property.(point |
| 16ab60 | 29 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 69 6e 64 2d 70 72 6f 70 65 72 74 | )).........(funcall.find-propert |
| 16ab80 | 79 20 28 31 2d 20 28 70 6f 69 6e 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | y.(1-.(point))))))..(defun.slime |
| 16aba0 | 2d 69 6e 73 70 65 63 74 6f 72 2d 6f 70 65 72 61 74 65 2d 6f 6e 2d 70 6f 69 6e 74 20 28 29 0a 20 | -inspector-operate-on-point.().. |
| 16abc0 | 20 22 49 6e 76 6f 6b 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 66 6f 72 20 74 68 65 20 74 65 78 | ."Invoke.the.command.for.the.tex |
| 16abe0 | 74 20 61 74 20 70 6f 69 6e 74 2e 0a 31 2e 20 49 66 20 70 6f 69 6e 74 20 69 73 20 6f 6e 20 61 20 | t.at.point..1..If.point.is.on.a. |
| 16ac00 | 76 61 6c 75 65 20 74 68 65 6e 20 72 65 63 75 72 73 69 76 6c 79 20 63 61 6c 6c 20 74 68 65 20 69 | value.then.recursivly.call.the.i |
| 16ac20 | 6e 73 70 65 63 74 6f 72 20 6f 6e 0a 74 68 61 74 20 76 61 6c 75 65 2e 0a 32 2e 20 49 66 20 70 6f | nspector.on.that.value..2..If.po |
| 16ac40 | 69 6e 74 20 69 73 20 6f 6e 20 61 6e 20 61 63 74 69 6f 6e 20 74 68 65 6e 20 63 61 6c 6c 20 74 68 | int.is.on.an.action.then.call.th |
| 16ac60 | 61 74 20 61 63 74 69 6f 6e 2e 0a 33 2e 20 49 66 20 70 6f 69 6e 74 20 69 73 20 6f 6e 20 61 20 72 | at.action..3..If.point.is.on.a.r |
| 16ac80 | 61 6e 67 65 2d 62 75 74 74 6f 6e 20 66 65 74 63 68 20 61 6e 64 20 69 6e 73 65 72 74 20 74 68 65 | ange-button.fetch.and.insert.the |
| 16aca0 | 20 72 61 6e 67 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 | .range."...(interactive)...(let. |
| 16acc0 | 28 28 6f 70 65 6e 65 72 20 28 6c 65 74 20 28 28 70 6f 69 6e 74 20 28 73 6c 69 6d 65 2d 69 6e 73 | ((opener.(let.((point.(slime-ins |
| 16ace0 | 70 65 63 74 6f 72 2d 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | pector-position))).............. |
| 16ad00 | 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 61 72 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .....(lambda.(parts)............ |
| 16ad20 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 61 72 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 | .........(when.parts............ |
| 16ad40 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 | ...........(slime-open-inspector |
| 16ad60 | 20 70 61 72 74 73 20 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 6e 65 77 2d 6f | .parts.point))))).........(new-o |
| 16ad80 | 70 65 6e 65 72 20 28 6c 61 6d 62 64 61 20 28 70 61 72 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 | pener.(lambda.(parts)........... |
| 16ada0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 61 72 74 73 0a 20 20 20 20 20 20 20 20 | ............(when.parts......... |
| 16adc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e 73 70 | ................(slime-open-insp |
| 16ade0 | 65 63 74 6f 72 20 70 61 72 74 73 29 29 29 29 29 0a 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 | ector.parts))))).....(cl-destruc |
| 16ae00 | 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 72 6f 70 65 72 74 79 20 | turing-bind.(&optional.property. |
| 16ae20 | 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d | value).........(slime-inspector- |
| 16ae40 | 70 72 6f 70 65 72 74 79 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 28 63 6c 2d 63 61 73 | property-at-point).......(cl-cas |
| 16ae60 | 65 20 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 61 72 74 2d 6e | e.property.........(slime-part-n |
| 16ae80 | 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 | umber..........(slime-eval-async |
| 16aea0 | 20 60 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 2d 6e 74 68 2d 70 61 72 74 20 2c 76 61 6c 75 65 | .`(swank:inspect-nth-part.,value |
| 16aec0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 2d 6f 70 65 6e 65 72 29 0a 20 20 20 20 20 20 20 | )............new-opener)........ |
| 16aee0 | 20 20 28 70 75 73 68 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 6f 73 69 74 69 6f | ..(push.(slime-inspector-positio |
| 16af00 | 6e 29 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 61 72 6b 2d 73 74 61 63 6b 29 29 0a | n).slime-inspector-mark-stack)). |
| 16af20 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 61 6e 67 65 2d 62 75 74 74 6f 6e 0a 20 20 20 20 | ........(slime-range-button..... |
| 16af40 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 65 74 63 68 2d 6d 6f 72 65 | .....(slime-inspector-fetch-more |
| 16af60 | 20 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 61 63 74 69 6f 6e 2d 6e | .value)).........(slime-action-n |
| 16af80 | 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 | umber..........(slime-eval-async |
| 16afa0 | 20 60 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 6f 72 2d 63 61 6c 6c 2d 6e 74 68 2d 61 63 74 69 | .`(swank:inspector-call-nth-acti |
| 16afc0 | 6f 6e 20 2c 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 65 72 29 29 29 29 | on.,value)............opener)))) |
| 16afe0 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6f 70 65 72 61 | ))..(defun.slime-inspector-opera |
| 16b000 | 74 65 2d 6f 6e 2d 63 6c 69 63 6b 20 28 65 76 65 6e 74 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 65 | te-on-click.(event)..."Move.to.e |
| 16b020 | 76 65 6e 74 73 27 20 70 6f 73 69 74 69 6f 6e 20 61 6e 64 20 6f 70 65 72 61 74 65 20 74 68 65 20 | vents'.position.and.operate.the. |
| 16b040 | 70 61 72 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 40 65 22 29 0a 20 20 28 6c | part."...(interactive."@e")...(l |
| 16b060 | 65 74 20 28 28 70 6f 69 6e 74 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e 74 2d 65 6e | et.((point.(posn-point.(event-en |
| 16b080 | 64 20 65 76 65 6e 74 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 70 6f 69 6e | d.event)))).....(cond.((and.poin |
| 16b0a0 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 67 65 74 2d 74 65 78 74 2d | t.................(or.(get-text- |
| 16b0c0 | 70 72 6f 70 65 72 74 79 20 70 6f 69 6e 74 20 27 73 6c 69 6d 65 2d 70 61 72 74 2d 6e 75 6d 62 65 | property.point.'slime-part-numbe |
| 16b0e0 | 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 | r).....................(get-text |
| 16b100 | 2d 70 72 6f 70 65 72 74 79 20 70 6f 69 6e 74 20 27 73 6c 69 6d 65 2d 72 61 6e 67 65 2d 62 75 74 | -property.point.'slime-range-but |
| 16b120 | 74 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 | ton).....................(get-te |
| 16b140 | 78 74 2d 70 72 6f 70 65 72 74 79 20 70 6f 69 6e 74 20 27 73 6c 69 6d 65 2d 61 63 74 69 6f 6e 2d | xt-property.point.'slime-action- |
| 16b160 | 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | number)))............(goto-char. |
| 16b180 | 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 | point)............(slime-inspect |
| 16b1a0 | 6f 72 2d 6f 70 65 72 61 74 65 2d 6f 6e 2d 70 6f 69 6e 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | or-operate-on-point)))))..(defun |
| 16b1c0 | 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 6f 70 20 28 29 0a 20 20 22 52 65 69 6e 73 | .slime-inspector-pop.()..."Reins |
| 16b1e0 | 70 65 63 74 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6f 62 6a 65 63 74 2e 22 0a 20 20 28 69 6e | pect.the.previous.object."...(in |
| 16b200 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 | teractive)...(slime-eval-async.. |
| 16b220 | 20 20 20 20 20 60 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 6f 72 2d 70 6f 70 29 0a 20 20 20 20 | .....`(swank:inspector-pop)..... |
| 16b240 | 28 6c 61 6d 62 64 61 20 28 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 72 65 | (lambda.(result).......(cond.(re |
| 16b260 | 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e | sult..............(slime-open-in |
| 16b280 | 73 70 65 63 74 6f 72 20 72 65 73 75 6c 74 20 28 70 6f 70 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 | spector.result.(pop.slime-inspec |
| 16b2a0 | 74 6f 72 2d 6d 61 72 6b 2d 73 74 61 63 6b 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 | tor-mark-stack))).............(t |
| 16b2c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 70 72 65 76 69 | ..............(message."No.previ |
| 16b2e0 | 6f 75 73 20 6f 62 6a 65 63 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 6e 67 29 | ous.object")..............(ding) |
| 16b300 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 | )))))..(defun.slime-inspector-ne |
| 16b320 | 78 74 20 28 29 0a 20 20 22 49 6e 73 70 65 63 74 20 74 68 65 20 6e 65 78 74 20 6f 62 6a 65 63 74 | xt.()..."Inspect.the.next.object |
| 16b340 | 20 69 6e 20 74 68 65 20 68 69 73 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | .in.the.history."...(interactive |
| 16b360 | 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 | )...(let.((result.(slime-eval.`( |
| 16b380 | 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 29 29 29 29 0a 20 20 20 20 28 63 6f | swank:inspector-next)))).....(co |
| 16b3a0 | 6e 64 20 28 72 65 73 75 6c 74 0a 09 20 20 20 28 70 75 73 68 20 28 73 6c 69 6d 65 2d 69 6e 73 70 | nd.(result.....(push.(slime-insp |
| 16b3c0 | 65 63 74 6f 72 2d 70 6f 73 69 74 69 6f 6e 29 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d | ector-position).slime-inspector- |
| 16b3e0 | 6d 61 72 6b 2d 73 74 61 63 6b 29 0a 09 20 20 20 28 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e 73 70 | mark-stack).....(slime-open-insp |
| 16b400 | 65 63 74 6f 72 20 72 65 73 75 6c 74 29 29 0a 09 20 20 28 74 20 28 6d 65 73 73 61 67 65 20 22 4e | ector.result))....(t.(message."N |
| 16b420 | 6f 20 6e 65 78 74 20 6f 62 6a 65 63 74 22 29 0a 09 20 20 20 20 20 28 64 69 6e 67 29 29 29 29 29 | o.next.object").......(ding))))) |
| 16b440 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 71 75 69 74 20 28 29 | ..(defun.slime-inspector-quit.() |
| 16b460 | 0a 20 20 22 51 75 69 74 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 61 6e 64 20 6b 69 6c 6c 20 | ..."Quit.the.inspector.and.kill. |
| 16b480 | 74 68 65 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | the.buffer."...(interactive)...( |
| 16b4a0 | 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 71 75 69 74 2d 69 6e | slime-eval-async.`(swank:quit-in |
| 16b4c0 | 73 70 65 63 74 6f 72 29 29 0a 20 20 28 71 75 69 74 2d 77 69 6e 64 6f 77 20 74 29 29 0a 0a 3b 3b | spector))...(quit-window.t))..;; |
| 16b4e0 | 20 46 49 58 4d 45 3a 20 66 69 72 73 74 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 6a 75 | .FIXME:.first.return.value.is.ju |
| 16b500 | 73 74 20 70 6f 69 6e 74 2e 0a 3b 3b 20 46 49 58 4d 45 3a 20 63 6f 75 6c 64 20 70 72 6f 62 61 62 | st.point..;;.FIXME:.could.probab |
| 16b520 | 6c 79 20 75 73 65 20 73 6c 69 6d 65 2d 73 65 61 72 63 68 2d 70 72 6f 70 65 72 74 79 2e 0a 28 64 | ly.use.slime-search-property..(d |
| 16b540 | 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 | efun.slime-find-inspectable-obje |
| 16b560 | 63 74 20 28 64 69 72 65 63 74 69 6f 6e 20 6c 69 6d 69 74 29 0a 20 20 22 46 69 6e 64 20 74 68 65 | ct.(direction.limit)..."Find.the |
| 16b580 | 20 6e 65 78 74 2f 70 72 65 76 69 6f 75 73 20 69 6e 73 70 65 63 74 61 62 6c 65 20 6f 62 6a 65 63 | .next/previous.inspectable.objec |
| 16b5a0 | 74 2e 0a 44 49 52 45 43 54 49 4f 4e 20 63 61 6e 20 62 65 20 65 69 74 68 65 72 20 27 6e 65 78 74 | t..DIRECTION.can.be.either.'next |
| 16b5c0 | 20 6f 72 20 27 70 72 65 76 2e 0a 4c 49 4d 49 54 20 69 73 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 | .or.'prev..LIMIT.is.the.maximum. |
| 16b5e0 | 6f 72 20 6d 69 6e 69 6d 75 6d 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 75 72 72 65 | or.minimum.position.in.the.curre |
| 16b600 | 6e 74 20 62 75 66 66 65 72 2e 0a 0a 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f | nt.buffer...Return.a.list.of.two |
| 16b620 | 20 76 61 6c 75 65 73 3a 20 49 66 20 61 6e 20 6f 62 6a 65 63 74 20 63 6f 75 6c 64 20 62 65 20 66 | .values:.If.an.object.could.be.f |
| 16b640 | 6f 75 6e 64 2c 20 74 68 65 0a 73 74 61 72 74 69 6e 67 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 | ound,.the.starting.position.of.t |
| 16b660 | 68 65 20 66 6f 75 6e 64 20 6f 62 6a 65 63 74 20 61 6e 64 20 54 20 69 73 20 72 65 74 75 72 6e 65 | he.found.object.and.T.is.returne |
| 16b680 | 64 3b 0a 6f 74 68 65 72 77 69 73 65 20 4c 49 4d 49 54 20 61 6e 64 20 4e 49 4c 20 69 73 20 72 65 | d;.otherwise.LIMIT.and.NIL.is.re |
| 16b6a0 | 74 75 72 6e 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6e 64 65 72 20 28 63 6c 2d 65 63 61 | turned."...(let.((finder.(cl-eca |
| 16b6c0 | 73 65 20 64 69 72 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | se.direction...................( |
| 16b6e0 | 6e 65 78 74 20 27 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 | next.'next-single-property-chang |
| 16b700 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 65 76 20 27 70 72 65 76 | e)...................(prev.'prev |
| 16b720 | 69 6f 75 73 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 29 29 29 29 0a | ious-single-property-change)))). |
| 16b740 | 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 70 20 6e 69 6c 29 20 28 63 75 72 70 6f 73 20 28 70 6f | ....(let.((prop.nil).(curpos.(po |
| 16b760 | 69 6e 74 29 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 6e 6f 74 20 70 72 | int))).......(while.(and.(not.pr |
| 16b780 | 6f 70 29 20 28 6e 6f 74 20 28 3d 20 63 75 72 70 6f 73 20 6c 69 6d 69 74 29 29 29 0a 20 20 20 20 | op).(not.(=.curpos.limit)))..... |
| 16b7a0 | 20 20 20 20 28 6c 65 74 20 28 28 6e 65 77 70 6f 73 20 28 66 75 6e 63 61 6c 6c 20 66 69 6e 64 65 | ....(let.((newpos.(funcall.finde |
| 16b7c0 | 72 20 63 75 72 70 6f 73 20 27 73 6c 69 6d 65 2d 70 61 72 74 2d 6e 75 6d 62 65 72 20 6e 69 6c 20 | r.curpos.'slime-part-number.nil. |
| 16b7e0 | 6c 69 6d 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 72 6f 70 20 28 67 | limit)))...........(setq.prop.(g |
| 16b800 | 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 6e 65 77 70 6f 73 20 27 73 6c 69 6d 65 2d 70 | et-text-property.newpos.'slime-p |
| 16b820 | 61 72 74 2d 6e 75 6d 62 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 75 72 | art-number))...........(setq.cur |
| 16b840 | 70 6f 73 20 6e 65 77 70 6f 73 29 29 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 63 75 72 70 6f 73 | pos.newpos))).......(list.curpos |
| 16b860 | 20 28 61 6e 64 20 70 72 6f 70 20 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | .(and.prop.t)))))..(defun.slime- |
| 16b880 | 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 | inspector-next-inspectable-objec |
| 16b8a0 | 74 20 28 61 72 67 29 0a 20 20 22 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 6e 65 78 | t.(arg)..."Move.point.to.the.nex |
| 16b8c0 | 74 20 69 6e 73 70 65 63 74 61 62 6c 65 20 6f 62 6a 65 63 74 2e 0a 57 69 74 68 20 6f 70 74 69 6f | t.inspectable.object..With.optio |
| 16b8e0 | 6e 61 6c 20 41 52 47 2c 20 6d 6f 76 65 20 61 63 72 6f 73 73 20 74 68 61 74 20 6d 61 6e 79 20 6f | nal.ARG,.move.across.that.many.o |
| 16b900 | 62 6a 65 63 74 73 2e 0a 49 66 20 41 52 47 20 69 73 20 6e 65 67 61 74 69 76 65 2c 20 6d 6f 76 65 | bjects..If.ARG.is.negative,.move |
| 16b920 | 20 62 61 63 6b 77 61 72 64 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 | .backwards."...(interactive."p") |
| 16b940 | 0a 20 20 28 6c 65 74 20 28 28 6d 61 78 70 6f 73 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 20 28 6d | ...(let.((maxpos.(point-max)).(m |
| 16b960 | 69 6e 70 6f 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 65 76 | inpos.(point-min)).........(prev |
| 16b980 | 69 6f 75 73 6c 79 2d 77 72 61 70 70 65 64 2d 70 20 6e 69 6c 29 29 0a 20 20 20 20 3b 3b 20 46 6f | iously-wrapped-p.nil)).....;;.Fo |
| 16b9a0 | 72 77 61 72 64 2e 0a 20 20 20 20 28 77 68 69 6c 65 20 28 3e 20 61 72 67 20 30 29 0a 20 20 20 20 | rward......(while.(>.arg.0)..... |
| 16b9c0 | 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 70 6f 73 20 66 6f | ..(cl-destructuring-bind.(pos.fo |
| 16b9e0 | 75 6e 64 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 69 6e 73 70 | undp)...........(slime-find-insp |
| 16ba00 | 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 74 20 27 6e 65 78 74 20 6d 61 78 70 6f 73 29 0a 20 20 20 | ectable-object.'next.maxpos).... |
| 16ba20 | 20 20 20 20 20 28 69 66 20 66 6f 75 6e 64 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f | .....(if.foundp.............(pro |
| 16ba40 | 67 6e 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 20 28 73 65 74 71 20 61 72 67 20 28 31 2d | gn.(goto-char.pos).(setq.arg.(1- |
| 16ba60 | 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | .arg))....................(setq. |
| 16ba80 | 70 72 65 76 69 6f 75 73 6c 79 2d 77 72 61 70 70 65 64 2d 70 20 6e 69 6c 29 29 0a 20 20 20 20 20 | previously-wrapped-p.nil))...... |
| 16baa0 | 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 70 72 65 76 69 6f 75 73 6c 79 2d 77 72 61 70 70 65 64 | .....(if.(not.previously-wrapped |
| 16bac0 | 2d 70 29 20 3b 20 63 79 63 6c 65 20 64 65 74 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 | -p).;.cycle.detection........... |
| 16bae0 | 20 20 20 20 28 70 72 6f 67 6e 20 28 67 6f 74 6f 2d 63 68 61 72 20 6d 69 6e 70 6f 73 29 20 28 73 | ....(progn.(goto-char.minpos).(s |
| 16bb00 | 65 74 71 20 70 72 65 76 69 6f 75 73 6c 79 2d 77 72 61 70 70 65 64 2d 70 20 74 29 29 0a 20 20 20 | etq.previously-wrapped-p.t)).... |
| 16bb20 | 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 69 6e 73 70 65 63 74 | .........(user-error."No.inspect |
| 16bb40 | 61 62 6c 65 20 6f 62 6a 65 63 74 73 22 29 29 29 29 29 0a 20 20 20 20 3b 3b 20 42 61 63 6b 77 61 | able.objects"))))).....;;.Backwa |
| 16bb60 | 72 64 2e 0a 20 20 20 20 28 77 68 69 6c 65 20 28 3c 20 61 72 67 20 30 29 0a 20 20 20 20 20 20 28 | rd......(while.(<.arg.0).......( |
| 16bb80 | 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 70 6f 73 20 66 6f 75 6e 64 | cl-destructuring-bind.(pos.found |
| 16bba0 | 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 69 6e 64 2d 69 6e 73 70 65 63 74 | p)...........(slime-find-inspect |
| 16bbc0 | 61 62 6c 65 2d 6f 62 6a 65 63 74 20 27 70 72 65 76 20 6d 69 6e 70 6f 73 29 0a 20 20 20 20 20 20 | able-object.'prev.minpos)....... |
| 16bbe0 | 20 20 3b 3b 20 53 4c 49 4d 45 2d 4f 50 45 4e 2d 49 4e 53 50 45 43 54 4f 52 20 69 6e 73 65 72 74 | ..;;.SLIME-OPEN-INSPECTOR.insert |
| 16bc00 | 73 20 74 68 65 20 74 69 74 6c 65 20 6f 66 20 61 6e 20 69 6e 73 70 65 63 74 6f 72 20 70 61 67 65 | s.the.title.of.an.inspector.page |
| 16bc20 | 0a 20 20 20 20 20 20 20 20 3b 3b 20 61 73 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 61 74 | .........;;.as.a.presentation.at |
| 16bc40 | 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 3b 20 73 6b | .the.beginning.of.the.buffer;.sk |
| 16bc60 | 69 70 0a 20 20 20 20 20 20 20 20 3b 3b 20 74 68 61 74 2e 20 20 28 4e 6f 74 69 63 65 20 68 6f 77 | ip.........;;.that...(Notice.how |
| 16bc80 | 20 74 68 69 73 20 70 72 6f 62 6c 65 6d 20 63 61 6e 20 6e 6f 74 20 61 72 69 73 65 20 69 6e 20 60 | .this.problem.can.not.arise.in.` |
| 16bca0 | 60 46 6f 72 77 61 72 64 2e 27 27 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 66 6f | `Forward.'').........(if.(and.fo |
| 16bcc0 | 75 6e 64 70 20 28 2f 3d 20 70 6f 73 20 6d 69 6e 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 | undp.(/=.pos.minpos))........... |
| 16bce0 | 20 20 28 70 72 6f 67 6e 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 20 28 73 65 74 71 20 61 | ..(progn.(goto-char.pos).(setq.a |
| 16bd00 | 72 67 20 28 31 2b 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rg.(1+.arg)).................... |
| 16bd20 | 28 73 65 74 71 20 70 72 65 76 69 6f 75 73 6c 79 2d 77 72 61 70 70 65 64 2d 70 20 6e 69 6c 29 29 | (setq.previously-wrapped-p.nil)) |
| 16bd40 | 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 70 72 65 76 69 6f 75 73 6c 79 2d 77 | ...........(if.(not.previously-w |
| 16bd60 | 72 61 70 70 65 64 2d 70 29 20 3b 20 63 79 63 6c 65 20 64 65 74 65 63 74 69 6f 6e 0a 20 20 20 20 | rapped-p).;.cycle.detection..... |
| 16bd80 | 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 67 6f 74 6f 2d 63 68 61 72 20 6d 61 78 70 | ..........(progn.(goto-char.maxp |
| 16bda0 | 6f 73 29 20 28 73 65 74 71 20 70 72 65 76 69 6f 75 73 6c 79 2d 77 72 61 70 70 65 64 2d 70 20 74 | os).(setq.previously-wrapped-p.t |
| 16bdc0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 69 | )).............(user-error."No.i |
| 16bde0 | 6e 73 70 65 63 74 61 62 6c 65 20 6f 62 6a 65 63 74 73 22 29 29 29 29 29 29 29 0a 0a 28 64 65 66 | nspectable.objects")))))))..(def |
| 16be00 | 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 72 65 76 69 6f 75 73 2d 69 6e 73 70 | un.slime-inspector-previous-insp |
| 16be20 | 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 74 20 28 61 72 67 29 0a 20 20 22 4d 6f 76 65 20 70 6f 69 | ectable-object.(arg)..."Move.poi |
| 16be40 | 6e 74 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 69 6e 73 70 65 63 74 61 62 6c 65 20 6f | nt.to.the.previous.inspectable.o |
| 16be60 | 62 6a 65 63 74 2e 0a 57 69 74 68 20 6f 70 74 69 6f 6e 61 6c 20 41 52 47 2c 20 6d 6f 76 65 20 61 | bject..With.optional.ARG,.move.a |
| 16be80 | 63 72 6f 73 73 20 74 68 61 74 20 6d 61 6e 79 20 6f 62 6a 65 63 74 73 2e 0a 49 66 20 41 52 47 20 | cross.that.many.objects..If.ARG. |
| 16bea0 | 69 73 20 6e 65 67 61 74 69 76 65 2c 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 73 2e 22 0a 20 20 28 | is.negative,.move.forwards."...( |
| 16bec0 | 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 | interactive."p")...(slime-inspec |
| 16bee0 | 74 6f 72 2d 6e 65 78 74 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 74 20 28 2d 20 61 | tor-next-inspectable-object.(-.a |
| 16bf00 | 72 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 64 65 | rg)))..(defun.slime-inspector-de |
| 16bf20 | 73 63 72 69 62 65 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 | scribe.()...(interactive)...(sli |
| 16bf40 | 6d 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 20 60 28 73 77 61 6e 6b 3a 64 65 73 63 72 69 62 | me-eval-describe.`(swank:describ |
| 16bf60 | 65 2d 69 6e 73 70 65 63 74 65 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 | e-inspectee)))..(defun.slime-ins |
| 16bf80 | 70 65 63 74 6f 72 2d 70 70 72 69 6e 74 20 28 70 61 72 74 29 0a 20 20 28 69 6e 74 65 72 61 63 74 | pector-pprint.(part)...(interact |
| 16bfa0 | 69 76 65 20 28 6c 69 73 74 20 28 6f 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 | ive.(list.(or.(get-text-property |
| 16bfc0 | 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 70 61 72 74 2d 6e 75 6d 62 65 72 29 0a 20 20 20 | .(point).'slime-part-number).... |
| 16bfe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f | ......................(user-erro |
| 16c000 | 72 20 22 4e 6f 20 70 61 72 74 20 61 74 20 70 6f 69 6e 74 22 29 29 29 29 0a 20 20 28 73 6c 69 6d | r."No.part.at.point"))))...(slim |
| 16c020 | 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 20 60 28 73 77 61 6e 6b 3a 70 70 72 69 6e 74 2d 69 | e-eval-describe.`(swank:pprint-i |
| 16c040 | 6e 73 70 65 63 74 6f 72 2d 70 61 72 74 20 2c 70 61 72 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | nspector-part.,part)))..(defun.s |
| 16c060 | 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 65 76 61 6c 20 28 73 74 72 69 6e 67 29 0a 20 20 22 | lime-inspector-eval.(string)..." |
| 16c080 | 45 76 61 6c 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 | Eval.an.expression.in.the.contex |
| 16c0a0 | 74 20 6f 66 20 74 68 65 20 69 6e 73 70 65 63 74 65 64 20 6f 62 6a 65 63 74 2e 0a 54 68 65 20 60 | t.of.the.inspected.object..The.` |
| 16c0c0 | 2a 27 20 76 61 72 69 61 62 6c 65 20 77 69 6c 6c 20 62 65 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 | *'.variable.will.be.bound.to.the |
| 16c0e0 | 20 69 6e 73 70 65 63 74 65 64 20 6f 62 6a 65 63 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | .inspected.object."...(interacti |
| 16c100 | 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 | ve.(list.(slime-read-from-minibu |
| 16c120 | 66 66 65 72 20 22 49 6e 73 70 65 63 74 6f 72 20 65 76 61 6c 3a 20 22 29 29 29 0a 20 20 28 73 6c | ffer."Inspector.eval:.")))...(sl |
| 16c140 | 69 6d 65 2d 65 76 61 6c 2d 77 69 74 68 2d 74 72 61 6e 73 63 72 69 70 74 20 60 28 73 77 61 6e 6b | ime-eval-with-transcript.`(swank |
| 16c160 | 3a 69 6e 73 70 65 63 74 6f 72 2d 65 76 61 6c 20 2c 73 74 72 69 6e 67 29 29 29 0a 0a 28 64 65 66 | :inspector-eval.,string)))..(def |
| 16c180 | 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 | un.slime-inspector-history.()... |
| 16c1a0 | 22 53 68 6f 77 20 74 68 65 20 70 72 65 76 69 6f 75 73 6c 79 20 69 6e 73 70 65 63 74 65 64 20 6f | "Show.the.previously.inspected.o |
| 16c1c0 | 62 6a 65 63 74 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 6c 69 6d | bjects."...(interactive)...(slim |
| 16c1e0 | 65 2d 65 76 61 6c 2d 64 65 73 63 72 69 62 65 20 60 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 6f | e-eval-describe.`(swank:inspecto |
| 16c200 | 72 2d 68 69 73 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 | r-history)))..(defun.slime-inspe |
| 16c220 | 63 74 6f 72 2d 73 68 6f 77 2d 73 6f 75 72 63 65 20 28 70 61 72 74 29 0a 20 20 28 69 6e 74 65 72 | ctor-show-source.(part)...(inter |
| 16c240 | 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 6f 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 | active.(list.(or.(get-text-prope |
| 16c260 | 72 74 79 20 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 70 61 72 74 2d 6e 75 6d 62 65 72 29 0a | rty.(point).'slime-part-number). |
| 16c280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 | .........................(error. |
| 16c2a0 | 22 4e 6f 20 70 61 72 74 20 61 74 20 70 6f 69 6e 74 22 29 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d | "No.part.at.point"))))...(slime- |
| 16c2c0 | 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 60 28 73 77 61 6e 6b 3a 66 69 6e 64 2d 73 6f | eval-async.......`(swank:find-so |
| 16c2e0 | 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 2d 65 6d 61 63 73 20 27 28 3a 69 6e 73 70 65 | urce-location-for-emacs.'(:inspe |
| 16c300 | 63 74 6f 72 20 2c 70 61 72 74 29 29 0a 20 20 20 20 23 27 73 6c 69 6d 65 2d 73 68 6f 77 2d 73 6f | ctor.,part)).....#'slime-show-so |
| 16c320 | 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e | urce-location))..(defun.slime-in |
| 16c340 | 73 70 65 63 74 6f 72 2d 72 65 69 6e 73 70 65 63 74 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 | spector-reinspect.()...(interact |
| 16c360 | 69 76 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b | ive)...(slime-eval-async.`(swank |
| 16c380 | 3a 69 6e 73 70 65 63 74 6f 72 2d 72 65 69 6e 73 70 65 63 74 29 0a 20 20 20 20 28 6c 65 74 20 28 | :inspector-reinspect).....(let.( |
| 16c3a0 | 28 70 6f 69 6e 74 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 6f 73 69 74 69 6f 6e | (point.(slime-inspector-position |
| 16c3c0 | 29 29 29 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 61 72 74 73 29 0a 20 20 20 20 20 20 | ))).......(lambda.(parts)....... |
| 16c3e0 | 20 20 28 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 20 70 61 72 74 73 20 70 6f | ..(slime-open-inspector.parts.po |
| 16c400 | 69 6e 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 | int)))))..(defun.slime-inspector |
| 16c420 | 2d 74 6f 67 67 6c 65 2d 76 65 72 62 6f 73 65 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | -toggle-verbose.()...(interactiv |
| 16c440 | 65 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 73 77 61 6e 6b 3a 69 | e)...(slime-eval-async.`(swank:i |
| 16c460 | 6e 73 70 65 63 74 6f 72 2d 74 6f 67 67 6c 65 2d 76 65 72 62 6f 73 65 29 0a 20 20 20 20 28 6c 65 | nspector-toggle-verbose).....(le |
| 16c480 | 74 20 28 28 70 6f 69 6e 74 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 6f 73 69 74 | t.((point.(slime-inspector-posit |
| 16c4a0 | 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 61 72 74 73 29 0a 20 20 20 | ion))).......(lambda.(parts).... |
| 16c4c0 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 6f 70 65 6e 2d 69 6e 73 70 65 63 74 6f 72 20 70 61 72 74 73 | .....(slime-open-inspector.parts |
| 16c4e0 | 20 70 6f 69 6e 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 | .point)))))..(defun.slime-inspec |
| 16c500 | 74 6f 72 2d 69 6e 73 65 72 74 2d 6d 6f 72 65 2d 62 75 74 74 6f 6e 20 28 69 6e 64 65 78 20 70 72 | tor-insert-more-button.(index.pr |
| 16c520 | 65 76 69 6f 75 73 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 69 | evious)...(slime-insert-properti |
| 16c540 | 7a 65 64 0a 20 20 20 28 6c 69 73 74 20 27 73 6c 69 6d 65 2d 72 61 6e 67 65 2d 62 75 74 74 6f 6e | zed....(list.'slime-range-button |
| 16c560 | 20 28 6c 69 73 74 20 69 6e 64 65 78 20 70 72 65 76 69 6f 75 73 29 0a 20 20 20 20 20 20 20 20 20 | .(list.index.previous).......... |
| 16c580 | 27 6d 6f 75 73 65 2d 66 61 63 65 20 27 68 69 67 68 6c 69 67 68 74 0a 20 20 20 20 20 20 20 20 20 | 'mouse-face.'highlight.......... |
| 16c5a0 | 27 66 61 63 65 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 61 63 74 69 6f 6e 2d 66 61 | 'face.'slime-inspector-action-fa |
| 16c5c0 | 63 65 29 0a 20 20 20 28 69 66 20 70 72 65 76 69 6f 75 73 20 22 20 5b 2d 2d 6d 6f 72 65 2d 2d 5d | ce)....(if.previous.".[--more--] |
| 16c5e0 | 5c 6e 22 20 22 20 5b 2d 2d 6d 6f 72 65 2d 2d 5d 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | \n".".[--more--]")))..(defun.sli |
| 16c600 | 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 65 74 63 68 2d 61 6c 6c 20 28 29 0a 20 20 22 46 65 74 | me-inspector-fetch-all.()..."Fet |
| 16c620 | 63 68 20 61 6c 6c 20 69 6e 73 70 65 63 74 6f 72 20 63 6f 6e 74 65 6e 74 73 20 61 6e 64 20 67 6f | ch.all.inspector.contents.and.go |
| 16c640 | 20 74 6f 20 74 68 65 20 65 6e 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 | .to.the.end."...(interactive)... |
| 16c660 | 28 67 6f 74 6f 2d 63 68 61 72 20 28 31 2d 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 20 20 28 | (goto-char.(1-.(point-max)))...( |
| 16c680 | 6c 65 74 20 28 28 62 75 74 74 6f 6e 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 | let.((button.(get-text-property. |
| 16c6a0 | 28 70 6f 69 6e 74 29 20 27 73 6c 69 6d 65 2d 72 61 6e 67 65 2d 62 75 74 74 6f 6e 29 29 29 0a 20 | (point).'slime-range-button))).. |
| 16c6c0 | 20 20 20 28 77 68 65 6e 20 62 75 74 74 6f 6e 0a 20 20 20 20 20 20 28 6c 65 74 20 28 73 6c 69 6d | ...(when.button.......(let.(slim |
| 16c6e0 | 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d | e-inspector-limit).........(slim |
| 16c700 | 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 65 74 63 68 2d 6d 6f 72 65 20 62 75 74 74 6f 6e 29 29 29 | e-inspector-fetch-more.button))) |
| 16c720 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 65 74 63 68 | ))..(defun.slime-inspector-fetch |
| 16c740 | 2d 6d 6f 72 65 20 28 62 75 74 74 6f 6e 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 | -more.(button)...(cl-destructuri |
| 16c760 | 6e 67 2d 62 69 6e 64 20 28 69 6e 64 65 78 20 70 72 65 76 29 20 62 75 74 74 6f 6e 0a 20 20 20 20 | ng-bind.(index.prev).button..... |
| 16c780 | 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 65 74 63 68 2d 63 68 75 6e 6b 0a 20 20 20 | (slime-inspector-fetch-chunk.... |
| 16c7a0 | 20 20 28 6c 69 73 74 20 27 28 29 20 28 31 2b 20 69 6e 64 65 78 29 20 69 6e 64 65 78 20 69 6e 64 | ..(list.'().(1+.index).index.ind |
| 16c7c0 | 65 78 29 20 70 72 65 76 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 63 75 72 72 79 0a 20 20 20 20 | ex).prev......(slime-rcurry..... |
| 16c7e0 | 20 20 28 6c 61 6d 62 64 61 20 28 63 68 75 6e 6b 20 70 72 65 76 29 0a 20 20 20 20 20 20 20 20 28 | ..(lambda.(chunk.prev).........( |
| 16c800 | 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 | let.((inhibit-read-only.t))..... |
| 16c820 | 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 73 6c | ......(apply.#'delete-region.(sl |
| 16c840 | 69 6d 65 2d 70 72 6f 70 65 72 74 79 2d 62 6f 75 6e 64 73 20 27 73 6c 69 6d 65 2d 72 61 6e 67 65 | ime-property-bounds.'slime-range |
| 16c860 | 2d 62 75 74 74 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 | -button))...........(slime-inspe |
| 16c880 | 63 74 6f 72 2d 69 6e 73 65 72 74 2d 63 68 75 6e 6b 20 63 68 75 6e 6b 20 70 72 65 76 20 28 6e 6f | ctor-insert-chunk.chunk.prev.(no |
| 16c8a0 | 74 20 70 72 65 76 29 29 29 29 0a 20 20 20 20 20 20 70 72 65 76 29 29 29 29 0a 0a 28 64 65 66 75 | t.prev)))).......prev))))..(defu |
| 16c8c0 | 6e 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 65 74 63 68 2d 63 68 75 6e 6b 20 28 63 | n.slime-inspector-fetch-chunk.(c |
| 16c8e0 | 68 75 6e 6b 20 70 72 65 76 20 63 6f 6e 74 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 | hunk.prev.cont)...(slime-inspect |
| 16c900 | 6f 72 2d 66 65 74 63 68 20 63 68 75 6e 6b 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6c | or-fetch.chunk.slime-inspector-l |
| 16c920 | 69 6d 69 74 20 70 72 65 76 20 63 6f 6e 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 | imit.prev.cont))..(defun.slime-i |
| 16c940 | 6e 73 70 65 63 74 6f 72 2d 66 65 74 63 68 20 28 63 68 75 6e 6b 20 6c 69 6d 69 74 20 70 72 65 76 | nspector-fetch.(chunk.limit.prev |
| 16c960 | 20 63 6f 6e 74 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 | .cont)...(cl-destructuring-bind. |
| 16c980 | 28 66 72 6f 6d 20 74 6f 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 | (from.to).......(slime-inspector |
| 16c9a0 | 2d 6e 65 78 74 2d 72 61 6e 67 65 20 63 68 75 6e 6b 20 6c 69 6d 69 74 20 70 72 65 76 29 0a 20 20 | -next-range.chunk.limit.prev)... |
| 16c9c0 | 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 66 72 6f 6d 20 74 6f 29 0a 20 20 20 20 20 20 20 20 20 | ..(cond.((and.from.to).......... |
| 16c9e0 | 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..(slime-eval-async............. |
| 16ca00 | 20 20 20 60 28 73 77 61 6e 6b 3a 69 6e 73 70 65 63 74 6f 72 2d 72 61 6e 67 65 20 2c 66 72 6f 6d | ...`(swank:inspector-range.,from |
| 16ca20 | 20 2c 74 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 63 75 72 72 79 | .,to)..............(slime-rcurry |
| 16ca40 | 20 28 6c 61 6d 62 64 61 20 28 63 68 75 6e 6b 32 20 63 68 75 6e 6b 31 20 6c 69 6d 69 74 20 70 72 | .(lambda.(chunk2.chunk1.limit.pr |
| 16ca60 | 65 76 20 63 6f 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ev.cont)........................ |
| 16ca80 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 65 74 63 68 0a 20 20 20 | ......(slime-inspector-fetch.... |
| 16caa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | ...........................(slim |
| 16cac0 | 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6a 6f 69 6e 2d 63 68 75 6e 6b 73 20 63 68 75 6e 6b 31 20 63 | e-inspector-join-chunks.chunk1.c |
| 16cae0 | 68 75 6e 6b 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hunk2).......................... |
| 16cb00 | 20 20 20 20 20 6c 69 6d 69 74 20 70 72 65 76 20 63 6f 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 | .....limit.prev.cont)).......... |
| 16cb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 75 6e 6b 20 6c 69 6d 69 74 20 70 72 | ..................chunk.limit.pr |
| 16cb40 | 65 76 20 63 6f 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 66 75 6e 63 61 6c 6c | ev.cont)))...........(t.(funcall |
| 16cb60 | 20 63 6f 6e 74 20 63 68 75 6e 6b 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 | .cont.chunk)))))..(defun.slime-i |
| 16cb80 | 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 2d 72 61 6e 67 65 20 28 63 68 75 6e 6b 20 6c 69 6d 69 74 | nspector-next-range.(chunk.limit |
| 16cba0 | 20 70 72 65 76 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 | .prev)...(cl-destructuring-bind. |
| 16cbc0 | 28 5f 20 6c 65 6e 20 73 74 61 72 74 20 65 6e 64 29 20 63 68 75 6e 6b 0a 20 20 20 20 28 6c 65 74 | (_.len.start.end).chunk.....(let |
| 16cbe0 | 20 28 28 63 6f 75 6e 74 20 28 2d 20 65 6e 64 20 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 28 | .((count.(-.end.start))).......( |
| 16cc00 | 63 6f 6e 64 20 28 28 61 6e 64 20 70 72 65 76 20 28 3c 20 30 20 73 74 61 72 74 29 20 28 6f 72 20 | cond.((and.prev.(<.0.start).(or. |
| 16cc20 | 28 6e 6f 74 20 6c 69 6d 69 74 29 20 28 3c 20 63 6f 75 6e 74 20 6c 69 6d 69 74 29 29 29 0a 20 20 | (not.limit).(<.count.limit)))... |
| 16cc40 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 69 66 20 6c 69 6d 69 74 20 28 6d 61 78 20 | ...........(list.(if.limit.(max. |
| 16cc60 | 28 2d 20 65 6e 64 20 6c 69 6d 69 74 29 20 30 29 20 30 29 20 73 74 61 72 74 29 29 0a 20 20 20 20 | (-.end.limit).0).0).start))..... |
| 16cc80 | 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 6e 6f 74 20 70 72 65 76 29 20 28 3c 20 65 6e 64 20 | ........((and.(not.prev).(<.end. |
| 16cca0 | 6c 65 6e 29 20 28 6f 72 20 28 6e 6f 74 20 6c 69 6d 69 74 29 20 28 3c 20 63 6f 75 6e 74 20 6c 69 | len).(or.(not.limit).(<.count.li |
| 16ccc0 | 6d 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 65 6e 64 20 28 69 | mit)))..............(list.end.(i |
| 16cce0 | 66 20 6c 69 6d 69 74 20 28 2b 20 73 74 61 72 74 20 6c 69 6d 69 74 29 20 6d 6f 73 74 2d 70 6f 73 | f.limit.(+.start.limit).most-pos |
| 16cd00 | 69 74 69 76 65 2d 66 69 78 6e 75 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 27 | itive-fixnum))).............(t.' |
| 16cd20 | 28 6e 69 6c 20 6e 69 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 73 | (nil.nil))))))..(defun.slime-ins |
| 16cd40 | 70 65 63 74 6f 72 2d 6a 6f 69 6e 2d 63 68 75 6e 6b 73 20 28 63 68 75 6e 6b 31 20 63 68 75 6e 6b | pector-join-chunks.(chunk1.chunk |
| 16cd60 | 32 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 69 31 20 | 2)...(cl-destructuring-bind.(i1. |
| 16cd80 | 5f 6c 31 20 73 31 20 65 31 29 20 63 68 75 6e 6b 31 0a 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 | _l1.s1.e1).chunk1.....(cl-destru |
| 16cda0 | 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 69 32 20 6c 32 20 73 32 20 65 32 29 20 63 68 75 6e 6b | cturing-bind.(i2.l2.s2.e2).chunk |
| 16cdc0 | 32 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 65 31 20 73 32 29 0a 20 20 20 20 20 20 20 | 2.......(cond.((=.e1.s2)........ |
| 16cde0 | 20 20 20 20 20 20 28 6c 69 73 74 20 28 61 70 70 65 6e 64 20 69 31 20 69 32 29 20 6c 32 20 73 31 | ......(list.(append.i1.i2).l2.s1 |
| 16ce00 | 20 65 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 65 32 20 73 31 29 0a 20 20 20 | .e2)).............((=.e2.s1).... |
| 16ce20 | 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 61 70 70 65 6e 64 20 69 32 20 69 31 29 20 6c | ..........(list.(append.i2.i1).l |
| 16ce40 | 32 20 73 32 20 65 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 | 2.s2.e1)).............(t.(error. |
| 16ce60 | 22 49 6e 76 61 6c 69 64 20 63 68 75 6e 6b 73 22 29 29 29 29 29 29 0a 0a 28 73 65 74 2d 6b 65 79 | "Invalid.chunks"))))))..(set-key |
| 16ce80 | 6d 61 70 2d 70 61 72 65 6e 74 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 6f 64 65 2d | map-parent.slime-inspector-mode- |
| 16cea0 | 6d 61 70 20 73 6c 69 6d 65 2d 70 61 72 65 6e 74 2d 6d 61 70 29 0a 0a 28 73 6c 69 6d 65 2d 64 65 | map.slime-parent-map)..(slime-de |
| 16cec0 | 66 69 6e 65 2d 6b 65 79 73 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 6f 64 65 2d 6d | fine-keys.slime-inspector-mode-m |
| 16cee0 | 61 70 0a 20 20 28 5b 72 65 74 75 72 6e 5d 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d | ap...([return].'slime-inspector- |
| 16cf00 | 6f 70 65 72 61 74 65 2d 6f 6e 2d 70 6f 69 6e 74 29 0a 20 20 28 22 5c 43 2d 6d 22 20 20 20 27 73 | operate-on-point)...("\C-m"...'s |
| 16cf20 | 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6f 70 65 72 61 74 65 2d 6f 6e 2d 70 6f 69 6e 74 29 | lime-inspector-operate-on-point) |
| 16cf40 | 0a 20 20 28 5b 6d 6f 75 73 65 2d 31 5d 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6f | ...([mouse-1].'slime-inspector-o |
| 16cf60 | 70 65 72 61 74 65 2d 6f 6e 2d 63 6c 69 63 6b 29 0a 20 20 28 5b 6d 6f 75 73 65 2d 32 5d 20 27 73 | perate-on-click)...([mouse-2].'s |
| 16cf80 | 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6f 70 65 72 61 74 65 2d 6f 6e 2d 63 6c 69 63 6b 29 | lime-inspector-operate-on-click) |
| 16cfa0 | 0a 20 20 28 5b 6d 6f 75 73 65 2d 36 5d 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 | ...([mouse-6].'slime-inspector-p |
| 16cfc0 | 6f 70 29 0a 20 20 28 5b 6d 6f 75 73 65 2d 37 5d 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f | op)...([mouse-7].'slime-inspecto |
| 16cfe0 | 72 2d 6e 65 78 74 29 0a 20 20 28 22 6c 22 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d | r-next)...("l".'slime-inspector- |
| 16d000 | 70 6f 70 29 0a 20 20 28 22 6e 22 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 | pop)...("n".'slime-inspector-nex |
| 16d020 | 74 29 0a 20 20 28 22 20 22 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 29 | t)...(".".'slime-inspector-next) |
| 16d040 | 0a 20 20 28 22 64 22 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 64 65 73 63 72 69 62 | ...("d".'slime-inspector-describ |
| 16d060 | 65 29 0a 20 20 28 22 70 22 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 70 72 69 6e | e)...("p".'slime-inspector-pprin |
| 16d080 | 74 29 0a 20 20 28 22 65 22 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 65 76 61 6c 29 | t)...("e".'slime-inspector-eval) |
| 16d0a0 | 0a 20 20 28 22 68 22 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 68 69 73 74 6f 72 79 | ...("h".'slime-inspector-history |
| 16d0c0 | 29 0a 20 20 28 22 67 22 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 72 65 69 6e 73 70 | )...("g".'slime-inspector-reinsp |
| 16d0e0 | 65 63 74 29 0a 20 20 28 22 76 22 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 74 6f 67 | ect)...("v".'slime-inspector-tog |
| 16d100 | 67 6c 65 2d 76 65 72 62 6f 73 65 29 0a 20 20 28 22 5c 43 2d 69 22 20 27 73 6c 69 6d 65 2d 69 6e | gle-verbose)...("\C-i".'slime-in |
| 16d120 | 73 70 65 63 74 6f 72 2d 6e 65 78 74 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 74 29 | spector-next-inspectable-object) |
| 16d140 | 0a 20 20 28 5b 28 73 68 69 66 74 20 74 61 62 29 5d 0a 20 20 20 27 73 6c 69 6d 65 2d 69 6e 73 70 | ...([(shift.tab)]....'slime-insp |
| 16d160 | 65 63 74 6f 72 2d 70 72 65 76 69 6f 75 73 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 | ector-previous-inspectable-objec |
| 16d180 | 74 29 20 3b 20 45 6d 61 63 73 20 74 72 61 6e 73 6c 61 74 65 73 20 53 2d 54 41 42 0a 20 20 28 5b | t).;.Emacs.translates.S-TAB...([ |
| 16d1a0 | 62 61 63 6b 74 61 62 5d 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 72 65 76 69 6f | backtab].'slime-inspector-previo |
| 16d1c0 | 75 73 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 74 29 20 3b 20 74 6f 20 42 41 43 4b | us-inspectable-object).;.to.BACK |
| 16d1e0 | 54 41 42 20 6f 6e 20 58 2e 0a 20 20 28 22 2e 22 20 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f | TAB.on.X....(".".'slime-inspecto |
| 16d200 | 72 2d 73 68 6f 77 2d 73 6f 75 72 63 65 29 0a 20 20 28 22 3e 22 20 27 73 6c 69 6d 65 2d 69 6e 73 | r-show-source)...(">".'slime-ins |
| 16d220 | 70 65 63 74 6f 72 2d 66 65 74 63 68 2d 61 6c 6c 29 0a 20 20 28 22 71 22 20 27 73 6c 69 6d 65 2d | pector-fetch-all)...("q".'slime- |
| 16d240 | 69 6e 73 70 65 63 74 6f 72 2d 71 75 69 74 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 42 75 66 66 65 72 20 | inspector-quit))....;;;;.Buffer. |
| 16d260 | 73 65 6c 65 63 74 6f 72 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 | selector..(defvar.slime-selector |
| 16d280 | 2d 6d 65 74 68 6f 64 73 20 6e 69 6c 0a 20 20 22 4c 69 73 74 20 6f 66 20 62 75 66 66 65 72 2d 73 | -methods.nil..."List.of.buffer-s |
| 16d2a0 | 65 6c 65 63 74 69 6f 6e 20 6d 65 74 68 6f 64 73 20 66 6f 72 20 74 68 65 20 60 73 6c 69 6d 65 2d | election.methods.for.the.`slime- |
| 16d2c0 | 73 65 6c 65 63 74 27 20 63 6f 6d 6d 61 6e 64 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 69 73 | select'.command..Each.element.is |
| 16d2e0 | 20 61 20 6c 69 73 74 20 28 4b 45 59 20 44 45 53 43 52 49 50 54 49 4f 4e 20 46 55 4e 43 54 49 4f | .a.list.(KEY.DESCRIPTION.FUNCTIO |
| 16d300 | 4e 29 2e 0a 44 45 53 43 52 49 50 54 49 4f 4e 20 69 73 20 61 20 6f 6e 65 2d 6c 69 6e 65 20 64 65 | N)..DESCRIPTION.is.a.one-line.de |
| 16d320 | 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 77 68 61 74 20 74 68 65 20 6b 65 79 20 73 65 6c 65 63 74 | scription.of.what.the.key.select |
| 16d340 | 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6f 74 68 | s.")..(defvar.slime-selector-oth |
| 16d360 | 65 72 2d 77 69 6e 64 6f 77 20 6e 69 6c 0a 20 20 22 49 66 20 6e 6f 6e 2d 6e 69 6c 20 75 73 65 20 | er-window.nil..."If.non-nil.use. |
| 16d380 | 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 2e 22 29 | switch-to-buffer-other-window.") |
| 16d3a0 | 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 65 | ..;;;###autoload.(defun.slime-se |
| 16d3c0 | 6c 65 63 74 6f 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 0a | lector.(&optional.other-window). |
| 16d3e0 | 20 20 22 53 65 6c 65 63 74 20 61 20 6e 65 77 20 62 75 66 66 65 72 20 62 79 20 74 79 70 65 2c 20 | .."Select.a.new.buffer.by.type,. |
| 16d400 | 69 6e 64 69 63 61 74 65 64 20 62 79 20 61 20 73 69 6e 67 6c 65 20 63 68 61 72 61 63 74 65 72 2e | indicated.by.a.single.character. |
| 16d420 | 0a 54 68 65 20 75 73 65 72 20 69 73 20 70 72 6f 6d 70 74 65 64 20 66 6f 72 20 61 20 73 69 6e 67 | .The.user.is.prompted.for.a.sing |
| 16d440 | 6c 65 20 63 68 61 72 61 63 74 65 72 20 69 6e 64 69 63 61 74 69 6e 67 20 74 68 65 20 6d 65 74 68 | le.character.indicating.the.meth |
| 16d460 | 6f 64 20 62 79 0a 77 68 69 63 68 20 74 6f 20 63 68 6f 6f 73 65 20 61 20 6e 65 77 20 62 75 66 66 | od.by.which.to.choose.a.new.buff |
| 16d480 | 65 72 2e 20 54 68 65 20 60 3f 27 20 63 68 61 72 61 63 74 65 72 20 64 65 73 63 72 69 62 65 73 20 | er..The.`?'.character.describes. |
| 16d4a0 | 74 68 65 0a 61 76 61 69 6c 61 62 6c 65 20 6d 65 74 68 6f 64 73 2e 0a 0a 53 65 65 20 60 64 65 66 | the.available.methods...See.`def |
| 16d4c0 | 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 27 20 66 6f 72 20 64 65 66 69 | -slime-selector-method'.for.defi |
| 16d4e0 | 6e 69 6e 67 20 6e 65 77 20 6d 65 74 68 6f 64 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | ning.new.methods."...(interactiv |
| 16d500 | 65 20 22 50 22 29 0a 20 20 28 6d 65 73 73 61 67 65 20 22 53 65 6c 65 63 74 20 5b 25 73 5d 3a 20 | e."P")...(message."Select.[%s]:. |
| 16d520 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 74 72 69 6e 67 20 28 6d 61 | "............(apply.#'string.(ma |
| 16d540 | 70 63 61 72 20 23 27 63 61 72 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 | pcar.#'car.slime-selector-method |
| 16d560 | 73 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6f 74 | s)))...(let*.((slime-selector-ot |
| 16d580 | 68 65 72 2d 77 69 6e 64 6f 77 20 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 | her-window.other-window)........ |
| 16d5a0 | 20 20 28 73 65 71 75 65 6e 63 65 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 73 69 | ..(sequence.(save-window-excursi |
| 16d5c0 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 | on.....................(select-w |
| 16d5e0 | 69 6e 64 6f 77 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 | indow.(minibuffer-window))...... |
| 16d600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 | ...............(key-description. |
| 16d620 | 28 72 65 61 64 2d 6b 65 79 2d 73 65 71 75 65 6e 63 65 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 | (read-key-sequence.nil))))...... |
| 16d640 | 20 20 20 20 28 63 68 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 73 65 71 75 65 6e 63 65 20 22 | ....(ch.(cond.((equal.sequence." |
| 16d660 | 43 2d 67 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 62 6f | C-g").....................(keybo |
| 16d680 | 61 72 64 2d 71 75 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 | ard-quit))....................(( |
| 16d6a0 | 65 71 75 61 6c 20 73 65 71 75 65 6e 63 65 20 22 54 41 42 22 29 0a 20 20 20 20 20 20 20 20 20 20 | equal.sequence."TAB")........... |
| 16d6c0 | 20 20 20 20 20 20 20 20 20 20 3f 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........?i)................... |
| 16d6e0 | 20 28 28 3d 20 28 6c 65 6e 67 74 68 20 73 65 71 75 65 6e 63 65 29 20 31 29 0a 20 20 20 20 20 20 | .((=.(length.sequence).1)....... |
| 16d700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 74 20 73 65 71 75 65 6e 63 65 20 30 29 29 0a | ..............(elt.sequence.0)). |
| 16d720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 28 6c 65 6e 67 74 68 20 73 | ...................((=.(length.s |
| 16d740 | 65 71 75 65 6e 63 65 29 20 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | equence).3)..................... |
| 16d760 | 28 65 6c 74 20 73 65 71 75 65 6e 63 65 20 32 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 | (elt.sequence.2))))..........(me |
| 16d780 | 74 68 6f 64 20 28 63 6c 2d 66 69 6e 64 20 63 68 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d | thod.(cl-find.ch.slime-selector- |
| 16d7a0 | 6d 65 74 68 6f 64 73 20 3a 6b 65 79 20 23 27 63 61 72 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | methods.:key.#'car))).....(cond. |
| 16d7c0 | 28 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 63 6c 2d | (method............(funcall.(cl- |
| 16d7e0 | 74 68 69 72 64 20 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 | third.method)))...........(t.... |
| 16d800 | 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 6d 65 74 68 6f 64 20 66 6f 72 20 | ........(message."No.method.for. |
| 16d820 | 63 68 61 72 61 63 74 65 72 3a 20 3f 5c 5c 25 63 22 20 63 68 29 0a 20 20 20 20 20 20 20 20 20 20 | character:.?\\%c".ch)........... |
| 16d840 | 20 28 64 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 65 65 70 2d 66 6f 72 20 31 29 | .(ding)............(sleep-for.1) |
| 16d860 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 63 61 72 64 2d 69 6e 70 75 74 29 0a 20 20 20 20 | ............(discard-input)..... |
| 16d880 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 29 29 29 29 29 0a 0a 28 64 65 | .......(slime-selector)))))..(de |
| 16d8a0 | 66 6d 61 63 72 6f 20 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 | fmacro.def-slime-selector-method |
| 16d8c0 | 20 28 6b 65 79 20 64 65 73 63 72 69 70 74 69 6f 6e 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 | .(key.description.&rest.body)... |
| 16d8e0 | 22 44 65 66 69 6e 65 20 61 20 6e 65 77 20 60 73 6c 69 6d 65 2d 73 65 6c 65 63 74 27 20 62 75 66 | "Define.a.new.`slime-select'.buf |
| 16d900 | 66 65 72 20 73 65 6c 65 63 74 69 6f 6e 20 6d 65 74 68 6f 64 2e 0a 0a 4b 45 59 20 69 73 20 74 68 | fer.selection.method...KEY.is.th |
| 16d920 | 65 20 6b 65 79 20 74 68 65 20 75 73 65 72 20 77 69 6c 6c 20 65 6e 74 65 72 20 74 6f 20 63 68 6f | e.key.the.user.will.enter.to.cho |
| 16d940 | 6f 73 65 20 74 68 69 73 20 6d 65 74 68 6f 64 2e 0a 0a 44 45 53 43 52 49 50 54 49 4f 4e 20 69 73 | ose.this.method...DESCRIPTION.is |
| 16d960 | 20 61 20 6f 6e 65 2d 6c 69 6e 65 20 73 65 6e 74 65 6e 63 65 20 64 65 73 63 72 69 62 69 6e 67 20 | .a.one-line.sentence.describing. |
| 16d980 | 68 6f 77 20 74 68 65 20 6d 65 74 68 6f 64 0a 73 65 6c 65 63 74 73 20 61 20 62 75 66 66 65 72 2e | how.the.method.selects.a.buffer. |
| 16d9a0 | 0a 0a 42 4f 44 59 20 69 73 20 61 20 73 65 72 69 65 73 20 6f 66 20 66 6f 72 6d 73 20 77 68 69 63 | ..BODY.is.a.series.of.forms.whic |
| 16d9c0 | 68 20 61 72 65 20 65 76 61 6c 75 61 74 65 64 20 77 68 65 6e 20 74 68 65 20 73 65 6c 65 63 74 6f | h.are.evaluated.when.the.selecto |
| 16d9e0 | 72 0a 69 73 20 63 68 6f 73 65 6e 2e 20 54 68 65 20 72 65 74 75 72 6e 65 64 20 62 75 66 66 65 72 | r.is.chosen..The.returned.buffer |
| 16da00 | 20 69 73 20 73 65 6c 65 63 74 65 64 20 77 69 74 68 0a 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 | .is.selected.with.switch-to-buff |
| 16da20 | 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 65 74 68 6f 64 20 60 28 6c 61 6d 62 64 61 20 28 29 | er."...(let.((method.`(lambda.() |
| 16da40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 | ....................(let.((buffe |
| 16da60 | 72 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.(progn.,@body))).............. |
| 16da80 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 28 67 65 74 2d 62 75 66 66 65 72 20 | ........(cond.((not.(get-buffer. |
| 16daa0 | 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | buffer))........................ |
| 16dac0 | 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 73 75 63 68 20 62 75 66 66 65 72 3a 20 25 | .....(message."No.such.buffer:.% |
| 16dae0 | 53 22 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | S".buffer)...................... |
| 16db00 | 20 20 20 20 20 20 20 28 64 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(ding)).................. |
| 16db20 | 20 20 20 20 20 20 20 20 20 20 28 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 62 75 | ..........((get-buffer-window.bu |
| 16db40 | 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ffer)........................... |
| 16db60 | 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e | ..(select-window.(get-buffer-win |
| 16db80 | 64 6f 77 20 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dow.buffer)))................... |
| 16dba0 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6f 74 68 65 72 2d 77 | .........(slime-selector-other-w |
| 16dbc0 | 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | indow........................... |
| 16dbe0 | 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 | ..(switch-to-buffer-other-window |
| 16dc00 | 20 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .buffer))....................... |
| 16dc20 | 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(t......................... |
| 16dc40 | 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 29 29 29 | ....(switch-to-buffer.buffer)))) |
| 16dc60 | 29 29 29 0a 20 20 20 20 60 28 73 65 74 71 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 | ))).....`(setq.slime-selector-me |
| 16dc80 | 74 68 6f 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 73 6f 72 74 20 28 63 6f 6e 73 20 | thods............(cl-sort.(cons. |
| 16dca0 | 28 6c 69 73 74 20 2c 6b 65 79 20 2c 64 65 73 63 72 69 70 74 69 6f 6e 20 2c 6d 65 74 68 6f 64 29 | (list.,key.,description.,method) |
| 16dcc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 | ...........................(cl-r |
| 16dce0 | 65 6d 6f 76 65 20 2c 6b 65 79 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 | emove.,key.slime-selector-method |
| 16dd00 | 73 20 3a 6b 65 79 20 23 27 63 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.:key.#'car)).................. |
| 16dd20 | 20 20 20 23 27 3c 20 3a 6b 65 79 20 23 27 63 61 72 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d | ...#'<.:key.#'car))))..(def-slim |
| 16dd40 | 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 20 3f 3f 20 22 53 65 6c 65 63 74 6f 72 20 68 | e-selector-method.??."Selector.h |
| 16dd60 | 65 6c 70 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 6b | elp.buffer."...(ignore-errors.(k |
| 16dd80 | 69 6c 6c 2d 62 75 66 66 65 72 20 22 2a 53 65 6c 65 63 74 20 48 65 6c 70 2a 22 29 29 0a 20 20 28 | ill-buffer."*Select.Help*"))...( |
| 16dda0 | 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d | with-current-buffer.(get-buffer- |
| 16ddc0 | 63 72 65 61 74 65 20 22 2a 53 65 6c 65 63 74 20 48 65 6c 70 2a 22 29 0a 20 20 20 20 28 69 6e 73 | create."*Select.Help*").....(ins |
| 16dde0 | 65 72 74 20 22 53 65 6c 65 63 74 20 4d 65 74 68 6f 64 73 3a 5c 6e 5c 6e 22 29 0a 20 20 20 20 28 | ert."Select.Methods:\n\n").....( |
| 16de00 | 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6b 65 79 20 6c 69 6e 65 20 6e 69 6c 29 20 69 6e 20 73 6c | cl-loop.for.(key.line.nil).in.sl |
| 16de20 | 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 | ime-selector-methods............ |
| 16de40 | 20 20 64 6f 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 25 63 3a 5c 74 25 73 5c 6e 22 | ..do.(insert.(format."%c:\t%s\n" |
| 16de60 | 20 6b 65 79 20 6c 69 6e 65 29 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 | .key.line))).....(goto-char.(poi |
| 16de80 | 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 68 65 6c 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 64 69 | nt-min)).....(help-mode).....(di |
| 16dea0 | 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 29 | splay-buffer.(current-buffer).t) |
| 16dec0 | 29 0a 20 20 28 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 29 0a 20 20 28 63 75 72 72 65 6e 74 2d | )...(slime-selector)...(current- |
| 16dee0 | 62 75 66 66 65 72 29 29 0a 0a 28 63 6c 2d 70 75 73 68 6e 65 77 20 28 6c 69 73 74 20 3f 34 20 22 | buffer))..(cl-pushnew.(list.?4." |
| 16df00 | 53 65 6c 65 63 74 20 69 6e 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 22 20 28 6c 61 6d 62 64 61 20 | Select.in.other.window".(lambda. |
| 16df20 | 28 29 20 28 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 | ().(slime-selector.t)))......... |
| 16df40 | 20 20 20 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 73 20 3a 6b 65 79 20 | ....slime-selector-methods.:key. |
| 16df60 | 23 27 63 61 72 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 | #'car)..(def-slime-selector-meth |
| 16df80 | 6f 64 20 3f 71 20 22 41 62 6f 72 74 2e 22 0a 20 20 28 74 6f 70 2d 6c 65 76 65 6c 29 29 0a 0a 28 | od.?q."Abort."...(top-level))..( |
| 16dfa0 | 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 20 3f 69 0a 20 20 22 | def-slime-selector-method.?i..." |
| 16dfc0 | 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 20 62 75 66 66 65 72 2e 22 0a 20 20 28 63 6f 6e 64 | *inferior-lisp*.buffer."...(cond |
| 16dfe0 | 20 28 28 61 6e 64 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 20 28 73 6c 69 6d | .((and.(slime-connected-p).(slim |
| 16e000 | 65 2d 70 72 6f 63 65 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 62 75 | e-process))..........(process-bu |
| 16e020 | 66 66 65 72 20 28 73 6c 69 6d 65 2d 70 72 6f 63 65 73 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 | ffer.(slime-process))).........( |
| 16e040 | 74 0a 20 20 20 20 20 20 20 20 20 22 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 22 29 29 29 0a | t.........."*inferior-lisp*"))). |
| 16e060 | 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 20 3f 76 0a 20 | .(def-slime-selector-method.?v.. |
| 16e080 | 20 22 2a 73 6c 69 6d 65 2d 65 76 65 6e 74 73 2a 20 62 75 66 66 65 72 2e 22 0a 20 20 73 6c 69 6d | ."*slime-events*.buffer."...slim |
| 16e0a0 | 65 2d 65 76 65 6e 74 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 | e-event-buffer-name)..(def-slime |
| 16e0c0 | 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 20 3f 6c 0a 20 20 22 6d 6f 73 74 20 72 65 63 65 | -selector-method.?l..."most.rece |
| 16e0e0 | 6e 74 6c 79 20 76 69 73 69 74 65 64 20 6c 69 73 70 2d 6d 6f 64 65 20 62 75 66 66 65 72 2e 22 0a | ntly.visited.lisp-mode.buffer.". |
| 16e100 | 20 20 28 73 6c 69 6d 65 2d 72 65 63 65 6e 74 6c 79 2d 76 69 73 69 74 65 64 2d 62 75 66 66 65 72 | ..(slime-recently-visited-buffer |
| 16e120 | 20 27 6c 69 73 70 2d 6d 6f 64 65 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 | .'lisp-mode))..(def-slime-select |
| 16e140 | 6f 72 2d 6d 65 74 68 6f 64 20 3f 64 0a 20 20 22 2a 73 6c 64 62 2a 20 62 75 66 66 65 72 20 66 6f | or-method.?d..."*sldb*.buffer.fo |
| 16e160 | 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 22 0a 20 20 28 6f 72 | r.the.current.connection."...(or |
| 16e180 | 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 | .(sldb-get-default-buffer)...... |
| 16e1a0 | 20 28 65 72 72 6f 72 20 22 4e 6f 20 64 65 62 75 67 67 65 72 20 62 75 66 66 65 72 22 29 29 29 0a | .(error."No.debugger.buffer"))). |
| 16e1c0 | 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 20 3f 65 0a 20 | .(def-slime-selector-method.?e.. |
| 16e1e0 | 20 22 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 20 76 69 73 69 74 65 64 20 65 6d 61 63 73 2d 6c 69 | ."most.recently.visited.emacs-li |
| 16e200 | 73 70 2d 6d 6f 64 65 20 62 75 66 66 65 72 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 72 65 63 65 6e 74 | sp-mode.buffer."...(slime-recent |
| 16e220 | 6c 79 2d 76 69 73 69 74 65 64 2d 62 75 66 66 65 72 20 27 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f | ly-visited-buffer.'emacs-lisp-mo |
| 16e240 | 64 65 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 | de))..(def-slime-selector-method |
| 16e260 | 20 3f 63 0a 20 20 22 53 4c 49 4d 45 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 62 75 66 66 65 72 2e | .?c..."SLIME.connections.buffer. |
| 16e280 | 22 0a 20 20 28 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 29 0a 20 20 73 | "...(slime-list-connections)...s |
| 16e2a0 | 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 0a 28 | lime-connections-buffer-name)..( |
| 16e2c0 | 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 20 3f 6e 0a 20 20 22 | def-slime-selector-method.?n..." |
| 16e2e0 | 43 79 63 6c 65 20 74 6f 20 74 68 65 20 6e 65 78 74 20 4c 69 73 70 20 63 6f 6e 6e 65 63 74 69 6f | Cycle.to.the.next.Lisp.connectio |
| 16e300 | 6e 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 6e 65 78 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 | n."...(slime-next-connection)... |
| 16e320 | 28 63 6f 6e 63 61 74 20 22 2a 73 6c 69 6d 65 2d 72 65 70 6c 20 22 0a 20 20 20 20 20 20 20 20 20 | (concat."*slime-repl.".......... |
| 16e340 | 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 63 | .(slime-connection-name.(slime-c |
| 16e360 | 75 72 72 65 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 22 2a | urrent-connection))..........."* |
| 16e380 | 22 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 68 6f 64 20 | "))..(def-slime-selector-method. |
| 16e3a0 | 3f 70 0a 20 20 22 43 79 63 6c 65 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 4c 69 73 70 | ?p..."Cycle.to.the.previous.Lisp |
| 16e3c0 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 70 72 65 76 2d 63 6f 6e 6e | .connection."...(slime-prev-conn |
| 16e3e0 | 65 63 74 69 6f 6e 29 0a 20 20 28 63 6f 6e 63 61 74 20 22 2a 73 6c 69 6d 65 2d 72 65 70 6c 20 22 | ection)...(concat."*slime-repl." |
| 16e400 | 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d | ...........(slime-connection-nam |
| 16e420 | 65 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 | e.(slime-current-connection))... |
| 16e440 | 20 20 20 20 20 20 20 20 22 2a 22 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 | ........"*"))..(def-slime-select |
| 16e460 | 6f 72 2d 6d 65 74 68 6f 64 20 3f 74 0a 20 20 22 53 4c 49 4d 45 20 74 68 72 65 61 64 73 20 62 75 | or-method.?t..."SLIME.threads.bu |
| 16e480 | 66 66 65 72 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 6c 69 73 74 2d 74 68 72 65 61 64 73 29 0a 20 20 | ffer."...(slime-list-threads)... |
| 16e4a0 | 73 6c 69 6d 65 2d 74 68 72 65 61 64 73 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 0a 28 64 65 66 | slime-threads-buffer-name)..(def |
| 16e4c0 | 75 6e 20 73 6c 69 6d 65 2d 72 65 63 65 6e 74 6c 79 2d 76 69 73 69 74 65 64 2d 62 75 66 66 65 72 | un.slime-recently-visited-buffer |
| 16e4e0 | 20 28 6d 6f 64 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e | .(mode)..."Return.the.most.recen |
| 16e500 | 74 6c 79 20 76 69 73 69 74 65 64 20 62 75 66 66 65 72 20 77 68 6f 73 65 20 6d 61 6a 6f 72 2d 6d | tly.visited.buffer.whose.major-m |
| 16e520 | 6f 64 65 20 69 73 20 4d 4f 44 45 2e 0a 4f 6e 6c 79 20 63 6f 6e 73 69 64 65 72 73 20 62 75 66 66 | ode.is.MODE..Only.considers.buff |
| 16e540 | 65 72 73 20 74 68 61 74 20 61 72 65 20 6e 6f 74 20 61 6c 72 65 61 64 79 20 76 69 73 69 62 6c 65 | ers.that.are.not.already.visible |
| 16e560 | 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 62 75 66 66 65 72 20 69 6e 20 28 62 75 66 | ."...(cl-loop.for.buffer.in.(buf |
| 16e580 | 66 65 72 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 28 | fer-list)............when.(and.( |
| 16e5a0 | 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 20 28 65 71 20 6d | with-current-buffer.buffer.(eq.m |
| 16e5c0 | 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ajor-mode.mode))................ |
| 16e5e0 | 20 20 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 20 22 20 28 62 | ......(not.(string-match."^.".(b |
| 16e600 | 75 66 66 65 72 2d 6e 61 6d 65 20 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | uffer-name.buffer)))............ |
| 16e620 | 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 | ..........(null.(get-buffer-wind |
| 16e640 | 6f 77 20 62 75 66 66 65 72 20 27 76 69 73 69 62 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ow.buffer.'visible)))........... |
| 16e660 | 20 72 65 74 75 72 6e 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c | .return.buffer............finall |
| 16e680 | 79 20 28 65 72 72 6f 72 20 22 43 61 6e 27 74 20 66 69 6e 64 20 75 6e 73 68 6f 77 6e 20 62 75 66 | y.(error."Can't.find.unshown.buf |
| 16e6a0 | 66 65 72 20 69 6e 20 25 53 22 20 6d 6f 64 65 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 64 65 6e | fer.in.%S".mode)))....;;;;.Inden |
| 16e6c0 | 74 61 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 69 6e 64 65 | tation..(defun.slime-update-inde |
| 16e6e0 | 6e 74 61 74 69 6f 6e 20 28 29 0a 20 20 22 55 70 64 61 74 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e | ntation.()..."Update.indentation |
| 16e700 | 20 66 6f 72 20 61 6c 6c 20 6d 61 63 72 6f 73 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20 4c | .for.all.macros.defined.in.the.L |
| 16e720 | 69 73 70 20 73 79 73 74 65 6d 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | isp.system."...(interactive)...( |
| 16e740 | 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 27 28 73 77 61 6e 6b 3a 75 70 64 61 74 65 2d | slime-eval-async.'(swank:update- |
| 16e760 | 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 69 6e 66 6f 72 6d 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 | indentation-information)))..(def |
| 16e780 | 76 61 72 20 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 65 2d 68 6f 6f | var.slime-indentation-update-hoo |
| 16e7a0 | 6b 73 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 69 6e 74 65 72 6e 2d 69 6e 64 65 6e 74 61 | ks)..(defun.slime-intern-indenta |
| 16e7c0 | 74 69 6f 6e 2d 73 70 65 63 20 28 73 70 65 63 29 0a 20 20 28 63 6f 6e 64 20 28 28 63 6f 6e 73 70 | tion-spec.(spec)...(cond.((consp |
| 16e7e0 | 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 73 6c 69 6d 65 2d 69 6e 74 | .spec)..........(cons.(slime-int |
| 16e800 | 65 72 6e 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 20 28 63 61 72 20 73 70 65 63 29 29 | ern-indentation-spec.(car.spec)) |
| 16e820 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 74 65 72 6e 2d 69 6e | ................(slime-intern-in |
| 16e840 | 64 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 20 28 63 64 72 20 73 70 65 63 29 29 29 29 0a 20 20 20 | dentation-spec.(cdr.spec)))).... |
| 16e860 | 20 20 20 20 20 28 28 73 74 72 69 6e 67 70 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 28 69 | .....((stringp.spec)..........(i |
| 16e880 | 6e 74 65 72 6e 20 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 | ntern.spec)).........(t......... |
| 16e8a0 | 20 73 70 65 63 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 72 65 73 74 6f 72 65 20 74 68 65 20 | .spec)))..;;.FIXME:.restore.the. |
| 16e8c0 | 6f 6c 64 20 76 65 72 73 69 6f 6e 20 77 69 74 68 6f 75 74 20 70 65 72 2d 70 61 63 6b 61 67 65 0a | old.version.without.per-package. |
| 16e8e0 | 3b 3b 20 73 74 75 66 66 2e 20 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2e 65 6c 20 73 | ;;.stuff..slime-indentation.el.s |
| 16e900 | 68 6f 75 6c 64 20 62 65 20 61 62 6c 65 20 74 68 6f 20 64 69 73 61 62 6c 65 20 74 68 65 20 73 69 | hould.be.able.tho.disable.the.si |
| 16e920 | 6d 70 6c 65 0a 3b 3b 20 76 65 72 73 69 6f 6e 20 69 66 20 6e 65 65 64 65 64 2e 0a 28 64 65 66 75 | mple.;;.version.if.needed..(defu |
| 16e940 | 6e 20 73 6c 69 6d 65 2d 68 61 6e 64 6c 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 | n.slime-handle-indentation-updat |
| 16e960 | 65 20 28 61 6c 69 73 74 29 0a 20 20 22 55 70 64 61 74 65 20 4c 69 73 70 20 69 6e 64 65 6e 74 20 | e.(alist)..."Update.Lisp.indent. |
| 16e980 | 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 0a 41 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 6f 66 | information...ALIST.is.a.list.of |
| 16e9a0 | 20 28 53 59 4d 42 4f 4c 2d 4e 41 4d 45 20 2e 20 49 4e 44 45 4e 54 2d 53 50 45 43 29 20 6f 66 20 | .(SYMBOL-NAME...INDENT-SPEC).of. |
| 16e9c0 | 70 72 6f 70 6f 73 65 64 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 73 65 74 74 69 6e 67 73 20 66 6f | proposed.indentation.settings.fo |
| 16e9e0 | 72 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 2e | r.`common-lisp-indent-function'. |
| 16ea00 | 20 54 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 70 72 6f 70 65 72 74 79 0a 69 73 20 73 65 74 | .The.appropriate.property.is.set |
| 16ea20 | 75 70 2c 20 75 6e 6c 65 73 73 20 74 68 65 20 75 73 65 72 20 61 6c 72 65 61 64 79 20 73 65 74 20 | up,.unless.the.user.already.set. |
| 16ea40 | 6f 6e 65 20 65 78 70 6c 69 63 69 74 6c 79 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 69 6e 66 6f | one.explicitly."...(dolist.(info |
| 16ea60 | 20 61 6c 69 73 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 79 6d 62 6f 6c 20 28 69 6e 74 65 72 | .alist).....(let.((symbol.(inter |
| 16ea80 | 6e 20 28 63 61 72 20 69 6e 66 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 64 65 6e 74 | n.(car.info)))...........(indent |
| 16eaa0 | 20 28 73 6c 69 6d 65 2d 69 6e 74 65 72 6e 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 20 | .(slime-intern-indentation-spec. |
| 16eac0 | 28 63 6c 2d 73 65 63 6f 6e 64 20 69 6e 66 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 61 | (cl-second.info)))...........(pa |
| 16eae0 | 63 6b 61 67 65 73 20 28 63 6c 2d 74 68 69 72 64 20 69 6e 66 6f 29 29 29 0a 20 20 20 20 20 20 28 | ckages.(cl-third.info))).......( |
| 16eb00 | 69 66 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 79 73 | if.(and.(boundp.'common-lisp-sys |
| 16eb20 | 74 65 6d 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tem-indentation)................ |
| 16eb40 | 28 66 62 6f 75 6e 64 70 20 27 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 73 79 73 74 65 6d 2d 69 6e | (fboundp.'slime-update-system-in |
| 16eb60 | 64 65 6e 74 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 20 74 61 62 6c 65 | dentation))...........;;.A.table |
| 16eb80 | 20 70 72 6f 76 69 64 65 64 20 62 79 20 73 6c 69 6d 65 2d 63 6c 2d 69 6e 64 65 6e 74 2e 65 6c 2e | .provided.by.slime-cl-indent.el. |
| 16eba0 | 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 23 27 73 6c 69 6d 65 2d 75 70 64 61 | ...........(funcall.#'slime-upda |
| 16ebc0 | 74 65 2d 73 79 73 74 65 6d 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 79 6d 62 6f 6c 20 69 6e 64 | te-system-indentation.symbol.ind |
| 16ebe0 | 65 6e 74 20 70 61 63 6b 61 67 65 73 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 44 6f 65 73 20 74 68 | ent.packages).........;;.Does.th |
| 16ec00 | 65 20 73 79 6d 62 6f 6c 20 68 61 76 65 20 61 6e 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 76 61 6c | e.symbol.have.an.indentation.val |
| 16ec20 | 75 65 20 74 68 61 74 20 77 65 20 73 65 74 3f 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 | ue.that.we.set?.........(when.(e |
| 16ec40 | 71 75 61 6c 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e | qual.(get.symbol.'common-lisp-in |
| 16ec60 | 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dent-function).................. |
| 16ec80 | 20 20 20 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 27 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 29 29 0a | ....(get.symbol.'slime-indent)). |
| 16eca0 | 20 20 20 20 20 20 20 20 20 20 28 70 75 74 20 73 79 6d 62 6f 6c 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 | ..........(put.symbol.'common-li |
| 16ecc0 | 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 69 6e 64 65 6e 74 29 0a 20 20 20 20 20 | sp-indent-function.indent)...... |
| 16ece0 | 20 20 20 20 20 28 70 75 74 20 73 79 6d 62 6f 6c 20 27 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 20 69 | .....(put.symbol.'slime-indent.i |
| 16ed00 | 6e 64 65 6e 74 29 29 29 0a 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 | ndent))).......(run-hook-with-ar |
| 16ed20 | 67 73 20 27 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 65 2d 68 6f 6f | gs.'slime-indentation-update-hoo |
| 16ed40 | 6b 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d | ks...........................sym |
| 16ed60 | 62 6f 6c 20 69 6e 64 65 6e 74 20 70 61 63 6b 61 67 65 73 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 | bol.indent.packages))))....;;;;. |
| 16ed80 | 43 6f 6e 74 72 69 62 20 6d 6f 64 75 6c 65 73 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 | Contrib.modules..(defun.slime-re |
| 16eda0 | 71 75 69 72 65 20 28 6d 6f 64 75 6c 65 29 0a 20 20 28 63 6c 2d 70 75 73 68 6e 65 77 20 6d 6f 64 | quire.(module)...(cl-pushnew.mod |
| 16edc0 | 75 6c 65 20 73 6c 69 6d 65 2d 72 65 71 75 69 72 65 64 2d 6d 6f 64 75 6c 65 73 29 0a 20 20 28 77 | ule.slime-required-modules)...(w |
| 16ede0 | 68 65 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 0a 20 20 20 20 28 73 6c 69 | hen.(slime-connected-p).....(sli |
| 16ee00 | 6d 65 2d 6c 6f 61 64 2d 63 6f 6e 74 72 69 62 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d | me-load-contribs)))..(defun.slim |
| 16ee20 | 65 2d 6c 6f 61 64 2d 63 6f 6e 74 72 69 62 73 20 28 29 0a 20 20 28 6c 65 74 20 28 28 6e 65 65 64 | e-load-contribs.()...(let.((need |
| 16ee40 | 65 64 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 73 29 0a 20 20 20 | ed.(cl-remove-if.(lambda.(s).... |
| 16ee60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 | .............................(me |
| 16ee80 | 6d 62 65 72 20 28 63 6c 2d 73 75 62 73 65 71 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 29 20 | mber.(cl-subseq.(symbol-name.s). |
| 16eea0 | 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1).............................. |
| 16eec0 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 64 6f 77 6e 63 61 73 65 0a 20 20 | ...........(mapcar.#'downcase... |
| 16eee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 16ef00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 75 6c 65 | ..............(slime-lisp-module |
| 16ef20 | 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s))))........................... |
| 16ef40 | 20 20 20 20 73 6c 69 6d 65 2d 72 65 71 75 69 72 65 64 2d 6d 6f 64 75 6c 65 73 29 29 29 0a 20 20 | ....slime-required-modules)))... |
| 16ef60 | 20 20 28 77 68 65 6e 20 6e 65 65 64 65 64 0a 20 20 20 20 20 20 3b 3b 20 4e 6f 20 61 73 79 6e 63 | ..(when.needed.......;;.No.async |
| 16ef80 | 68 72 6f 6e 6f 75 73 20 72 65 71 75 65 73 74 20 62 65 63 61 75 73 65 20 77 69 74 68 20 3a 53 50 | hronous.request.because.with.:SP |
| 16efa0 | 41 57 4e 20 74 68 61 74 20 63 6f 75 6c 64 20 72 65 73 75 6c 74 0a 20 20 20 20 20 20 3b 3b 20 69 | AWN.that.could.result.......;;.i |
| 16efc0 | 6e 20 74 68 65 20 61 74 74 65 6d 70 74 20 74 6f 20 6c 6f 61 64 20 6d 6f 64 75 6c 65 73 20 63 6f | n.the.attempt.to.load.modules.co |
| 16efe0 | 6e 63 75 72 72 65 6e 74 6c 79 20 77 68 69 63 68 20 6d 61 79 20 6e 6f 74 20 62 65 0a 20 20 20 20 | ncurrently.which.may.not.be..... |
| 16f000 | 20 20 3b 3b 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 74 68 65 20 68 6f 73 74 20 4c 69 73 70 2e | ..;;.supported.by.the.host.Lisp. |
| 16f020 | 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 75 6c 65 73 | .......(setf.(slime-lisp-modules |
| 16f040 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e | ).............(slime-eval.`(swan |
| 16f060 | 6b 3a 73 77 61 6e 6b 2d 72 65 71 75 69 72 65 20 27 2c 6e 65 65 64 65 64 29 29 29 29 29 29 0a 0a | k:swank-require.',needed)))))).. |
| 16f080 | 28 63 6c 2d 64 65 66 73 74 72 75 63 74 20 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 0a 20 20 6e 61 | (cl-defstruct.slime-contrib...na |
| 16f0a0 | 6d 65 0a 20 20 73 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 0a 20 20 73 77 61 6e 6b 2d | me...slime-dependencies...swank- |
| 16f0c0 | 64 65 70 65 6e 64 65 6e 63 69 65 73 0a 20 20 65 6e 61 62 6c 65 0a 20 20 64 69 73 61 62 6c 65 0a | dependencies...enable...disable. |
| 16f0e0 | 20 20 61 75 74 68 6f 72 73 0a 20 20 6c 69 63 65 6e 73 65 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | ..authors...license)..(defun.sli |
| 16f100 | 6d 65 2d 63 6f 6e 74 72 69 62 2d 2d 65 6e 61 62 6c 65 2d 66 75 6e 20 28 6e 61 6d 65 29 0a 20 20 | me-contrib--enable-fun.(name)... |
| 16f120 | 28 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 74 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6e 61 6d | (intern.(concat.(symbol-name.nam |
| 16f140 | 65 29 20 22 2d 69 6e 69 74 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6e 74 | e)."-init")))..(defun.slime-cont |
| 16f160 | 72 69 62 2d 2d 64 69 73 61 62 6c 65 2d 66 75 6e 20 28 6e 61 6d 65 29 0a 20 20 28 69 6e 74 65 72 | rib--disable-fun.(name)...(inter |
| 16f180 | 6e 20 28 63 6f 6e 63 61 74 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6e 61 6d 65 29 20 22 2d 75 | n.(concat.(symbol-name.name)."-u |
| 16f1a0 | 6e 6c 6f 61 64 22 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 73 6c 69 6d | nload")))..(defmacro.define-slim |
| 16f1c0 | 65 2d 63 6f 6e 74 72 69 62 20 28 6e 61 6d 65 20 5f 64 6f 63 73 74 72 69 6e 67 20 26 72 65 73 74 | e-contrib.(name._docstring.&rest |
| 16f1e0 | 20 63 6c 61 75 73 65 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 29 | .clauses)...(declare.(indent.1)) |
| 16f200 | 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 6b 65 79 20 | ...(cl-destructuring-bind.(&key. |
| 16f220 | 73 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | slime-dependencies.............. |
| 16f240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e | ..................swank-dependen |
| 16f260 | 63 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cies............................ |
| 16f280 | 20 20 20 20 6f 6e 2d 6c 6f 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....on-load..................... |
| 16f2a0 | 20 20 20 20 20 20 20 20 20 20 20 6f 6e 2d 75 6e 6c 6f 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 | ...........on-unload............ |
| 16f2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 75 74 68 6f 72 73 0a 20 20 20 20 | ....................authors..... |
| 16f2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 63 65 6e | ...........................licen |
| 16f300 | 73 65 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6b 65 79 20 2e 20 76 61 | se).......(cl-loop.for.(key...va |
| 16f320 | 6c 75 65 29 20 69 6e 20 63 6c 61 75 73 65 73 20 61 70 70 65 6e 64 20 60 28 2c 6b 65 79 20 2c 76 | lue).in.clauses.append.`(,key.,v |
| 16f340 | 61 6c 75 65 29 29 0a 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 2c 40 28 6d 61 70 | alue)).....`(progn........,@(map |
| 16f360 | 63 61 72 20 28 6c 61 6d 62 64 61 20 28 64 29 20 60 28 72 65 71 75 69 72 65 20 27 2c 64 29 29 20 | car.(lambda.(d).`(require.',d)). |
| 16f380 | 73 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 29 0a 20 20 20 20 20 20 20 28 64 65 66 75 | slime-dependencies)........(defu |
| 16f3a0 | 6e 20 2c 28 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 2d 2d 65 6e 61 62 6c 65 2d 66 75 6e 20 6e 61 | n.,(slime-contrib--enable-fun.na |
| 16f3c0 | 6d 65 29 20 28 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 20 23 27 66 75 6e 63 61 6c 6c 20 | me).()..........(mapc.#'funcall. |
| 16f3e0 | 27 2c 28 6d 61 70 63 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ',(mapcar....................... |
| 16f400 | 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 2d 2d 65 6e 61 62 6c 65 2d 66 75 | ......#'slime-contrib--enable-fu |
| 16f420 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c | n.............................sl |
| 16f440 | 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 70 | ime-dependencies))..........(map |
| 16f460 | 63 20 23 27 73 6c 69 6d 65 2d 72 65 71 75 69 72 65 20 27 2c 73 77 61 6e 6b 2d 64 65 70 65 6e 64 | c.#'slime-require.',swank-depend |
| 16f480 | 65 6e 63 69 65 73 29 0a 20 20 20 20 20 20 20 20 20 2c 40 6f 6e 2d 6c 6f 61 64 29 0a 20 20 20 20 | encies)..........,@on-load)..... |
| 16f4a0 | 20 20 20 28 64 65 66 75 6e 20 2c 28 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 2d 2d 64 69 73 61 62 | ...(defun.,(slime-contrib--disab |
| 16f4c0 | 6c 65 2d 66 75 6e 20 6e 61 6d 65 29 20 28 29 0a 20 20 20 20 20 20 20 20 20 2c 40 6f 6e 2d 75 6e | le-fun.name).()..........,@on-un |
| 16f4e0 | 6c 6f 61 64 0a 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 20 23 27 66 75 6e 63 61 6c 6c 20 27 2c | load..........(mapc.#'funcall.', |
| 16f500 | 28 6d 61 70 63 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (mapcar......................... |
| 16f520 | 20 20 20 20 23 27 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 2d 2d 64 69 73 61 62 6c 65 2d 66 75 6e | ....#'slime-contrib--disable-fun |
| 16f540 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 | .............................sli |
| 16f560 | 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 29 29 29 0a 20 20 20 20 20 20 20 28 70 75 74 20 27 | me-dependencies)))........(put.' |
| 16f580 | 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 20 27 2c 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 | slime-contribs.',name........... |
| 16f5a0 | 20 20 28 6d 61 6b 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 0a 20 20 20 20 20 20 20 20 20 20 | ..(make-slime-contrib........... |
| 16f5c0 | 20 20 20 3a 6e 61 6d 65 20 27 2c 6e 61 6d 65 20 3a 61 75 74 68 6f 72 73 20 27 2c 61 75 74 68 6f | ...:name.',name.:authors.',autho |
| 16f5e0 | 72 73 20 3a 6c 69 63 65 6e 73 65 20 27 2c 6c 69 63 65 6e 73 65 0a 20 20 20 20 20 20 20 20 20 20 | rs.:license.',license........... |
| 16f600 | 20 20 20 3a 73 6c 69 6d 65 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 20 27 2c 73 6c 69 6d 65 2d 64 | ...:slime-dependencies.',slime-d |
| 16f620 | 65 70 65 6e 64 65 6e 63 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 77 61 6e 6b 2d | ependencies..............:swank- |
| 16f640 | 64 65 70 65 6e 64 65 6e 63 69 65 73 20 27 2c 73 77 61 6e 6b 2d 64 65 70 65 6e 64 65 6e 63 69 65 | dependencies.',swank-dependencie |
| 16f660 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6e 61 62 6c 65 20 27 2c 28 73 6c 69 6d 65 2d | s..............:enable.',(slime- |
| 16f680 | 63 6f 6e 74 72 69 62 2d 2d 65 6e 61 62 6c 65 2d 66 75 6e 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 | contrib--enable-fun.name)....... |
| 16f6a0 | 20 20 20 20 20 20 20 3a 64 69 73 61 62 6c 65 20 27 2c 28 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 | .......:disable.',(slime-contrib |
| 16f6c0 | 2d 2d 64 69 73 61 62 6c 65 2d 66 75 6e 20 6e 61 6d 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | --disable-fun.name))))))..(defun |
| 16f6e0 | 20 73 6c 69 6d 65 2d 61 6c 6c 2d 63 6f 6e 74 72 69 62 73 20 28 29 0a 20 20 28 63 6c 2d 6c 6f 6f | .slime-all-contribs.()...(cl-loo |
| 16f700 | 70 20 66 6f 72 20 28 6e 69 6c 20 76 61 6c 29 20 6f 6e 20 28 73 79 6d 62 6f 6c 2d 70 6c 69 73 74 | p.for.(nil.val).on.(symbol-plist |
| 16f720 | 20 27 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 29 20 62 79 20 23 27 63 64 64 72 0a 20 20 20 20 | .'slime-contribs).by.#'cddr..... |
| 16f740 | 20 20 20 20 20 20 20 77 68 65 6e 20 28 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 2d 70 20 76 61 6c | .......when.(slime-contrib-p.val |
| 16f760 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 76 61 6c 29 29 0a 0a 28 64 65 66 | )............collect.val))..(def |
| 16f780 | 75 6e 20 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 2d 61 6c 6c 2d 64 65 70 65 6e 64 65 6e 63 69 65 | un.slime-contrib-all-dependencie |
| 16f7a0 | 73 20 28 63 6f 6e 74 72 69 62 29 0a 20 20 22 4c 69 73 74 20 61 6c 6c 20 63 6f 6e 74 72 69 62 73 | s.(contrib)..."List.all.contribs |
| 16f7c0 | 20 72 65 63 75 72 73 69 76 65 6c 79 20 6e 65 65 64 65 64 20 62 79 20 43 4f 4e 54 52 49 42 2c 20 | .recursively.needed.by.CONTRIB,. |
| 16f7e0 | 69 6e 63 6c 75 64 69 6e 67 20 73 65 6c 66 2e 22 0a 20 20 28 63 6f 6e 73 20 63 6f 6e 74 72 69 62 | including.self."...(cons.contrib |
| 16f800 | 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 6d 61 70 63 61 6e 20 23 27 73 6c 69 6d 65 2d 63 6f 6e 74 | .........(cl-mapcan.#'slime-cont |
| 16f820 | 72 69 62 2d 61 6c 6c 2d 64 65 70 65 6e 64 65 6e 63 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 | rib-all-dependencies............ |
| 16f840 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 2d 73 6c 69 6d 65 2d 64 65 70 | ........(slime-contrib-slime-dep |
| 16f860 | 65 6e 64 65 6e 63 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | endencies.....................(s |
| 16f880 | 6c 69 6d 65 2d 66 69 6e 64 2d 63 6f 6e 74 72 69 62 20 63 6f 6e 74 72 69 62 29 29 29 29 29 0a 0a | lime-find-contrib.contrib))))).. |
| 16f8a0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 69 6e 64 2d 63 6f 6e 74 72 69 62 20 28 6e 61 6d 65 29 | (defun.slime-find-contrib.(name) |
| 16f8c0 | 0a 20 20 28 67 65 74 20 27 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 20 6e 61 6d 65 29 29 0a 0a | ...(get.'slime-contribs.name)).. |
| 16f8e0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 61 64 2d 63 6f 6e 74 72 69 62 2d 6e 61 6d 65 20 28 | (defun.slime-read-contrib-name.( |
| 16f900 | 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 73 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 63 20 | )...(let.((names.(cl-loop.for.c. |
| 16f920 | 69 6e 20 28 73 6c 69 6d 65 2d 61 6c 6c 2d 63 6f 6e 74 72 69 62 73 29 20 63 6f 6c 6c 65 63 74 0a | in.(slime-all-contribs).collect. |
| 16f940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d | ........................(symbol- |
| 16f960 | 6e 61 6d 65 20 28 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 2d 6e 61 6d 65 20 63 29 29 29 29 29 0a | name.(slime-contrib-name.c))))). |
| 16f980 | 20 20 20 20 28 69 6e 74 65 72 6e 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 43 6f | ....(intern.(completing-read."Co |
| 16f9a0 | 6e 74 72 69 62 3a 20 22 20 6e 61 6d 65 73 20 6e 69 6c 20 74 29 29 29 29 0a 0a 28 64 65 66 75 6e | ntrib:.".names.nil.t))))..(defun |
| 16f9c0 | 20 73 6c 69 6d 65 2d 65 6e 61 62 6c 65 2d 63 6f 6e 74 72 69 62 20 28 6e 61 6d 65 29 0a 20 20 28 | .slime-enable-contrib.(name)...( |
| 16f9e0 | 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 63 6f | interactive.(list.(slime-read-co |
| 16fa00 | 6e 74 72 69 62 2d 6e 61 6d 65 29 29 29 0a 20 20 28 6c 65 74 20 28 28 63 20 28 6f 72 20 28 73 6c | ntrib-name)))...(let.((c.(or.(sl |
| 16fa20 | 69 6d 65 2d 66 69 6e 64 2d 63 6f 6e 74 72 69 62 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 | ime-find-contrib.name).......... |
| 16fa40 | 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 63 6f 6e 74 72 69 62 3a 20 25 | ......(error."Unknown.contrib:.% |
| 16fa60 | 53 22 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 73 6c 69 6d 65 2d | S".name)))).....(funcall.(slime- |
| 16fa80 | 63 6f 6e 74 72 69 62 2d 65 6e 61 62 6c 65 20 63 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 | contrib-enable.c))))..(defun.sli |
| 16faa0 | 6d 65 2d 64 69 73 61 62 6c 65 2d 63 6f 6e 74 72 69 62 20 28 6e 61 6d 65 29 0a 20 20 28 69 6e 74 | me-disable-contrib.(name)...(int |
| 16fac0 | 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 73 6c 69 6d 65 2d 72 65 61 64 2d 63 6f 6e 74 72 | eractive.(list.(slime-read-contr |
| 16fae0 | 69 62 2d 6e 61 6d 65 29 29 29 0a 20 20 28 6c 65 74 20 28 28 63 20 28 6f 72 20 28 73 6c 69 6d 65 | ib-name)))...(let.((c.(or.(slime |
| 16fb00 | 2d 66 69 6e 64 2d 63 6f 6e 74 72 69 62 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -find-contrib.name)............. |
| 16fb20 | 20 20 20 28 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 63 6f 6e 74 72 69 62 3a 20 25 53 22 20 | ...(error."Unknown.contrib:.%S". |
| 16fb40 | 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 73 6c 69 6d 65 2d 63 6f 6e | name)))).....(funcall.(slime-con |
| 16fb60 | 74 72 69 62 2d 64 69 73 61 62 6c 65 20 63 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 50 75 6c 6c | trib-disable.c))))....;;;;;.Pull |
| 16fb80 | 2d 64 6f 77 6e 20 6d 65 6e 75 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 65 61 73 79 2d 6d | -down.menu..(defvar.slime-easy-m |
| 16fba0 | 65 6e 75 0a 20 20 28 6c 65 74 20 28 28 43 20 27 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 | enu...(let.((C.'(slime-connected |
| 16fbc0 | 2d 70 29 29 29 0a 20 20 20 20 60 28 22 53 4c 49 4d 45 22 0a 20 20 20 20 20 20 5b 20 22 45 64 69 | -p))).....`("SLIME".......[."Edi |
| 16fbe0 | 74 20 44 65 66 69 6e 69 74 69 6f 6e 2e 2e 2e 22 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 65 64 69 | t.Definition...".......slime-edi |
| 16fc00 | 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 2c 43 20 5d 0a 20 20 20 20 20 20 5b 20 22 52 65 74 75 72 | t-definition.,C.].......[."Retur |
| 16fc20 | 6e 20 46 72 6f 6d 20 44 65 66 69 6e 69 74 69 6f 6e 22 20 20 20 73 6c 69 6d 65 2d 70 6f 70 2d 66 | n.From.Definition"...slime-pop-f |
| 16fc40 | 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 63 6b 20 2c 43 20 5d 0a 20 20 20 20 20 20 | ind-definition-stack.,C.]....... |
| 16fc60 | 5b 20 22 43 6f 6d 70 6c 65 74 65 20 53 79 6d 62 6f 6c 22 20 20 20 20 20 20 20 20 20 20 63 6f 6d | [."Complete.Symbol"..........com |
| 16fc80 | 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 2c 43 20 5d 0a 20 20 20 20 20 20 22 2d 2d 22 | pletion-at-point.,C.]......."--" |
| 16fca0 | 0a 20 20 20 20 20 20 28 22 45 76 61 6c 75 61 74 69 6f 6e 22 0a 20 20 20 20 20 20 20 5b 20 22 45 | .......("Evaluation"........[."E |
| 16fcc0 | 76 61 6c 20 44 65 66 75 6e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 65 76 | val.Defun"..............slime-ev |
| 16fce0 | 61 6c 2d 64 65 66 75 6e 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 45 76 61 6c 20 4c 61 73 | al-defun.,C.]........[."Eval.Las |
| 16fd00 | 74 20 45 78 70 72 65 73 73 69 6f 6e 22 20 20 20 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 | t.Expression"....slime-eval-last |
| 16fd20 | 2d 65 78 70 72 65 73 73 69 6f 6e 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 45 76 61 6c 20 | -expression.,C.]........[."Eval. |
| 16fd40 | 41 6e 64 20 50 72 65 74 74 79 2d 50 72 69 6e 74 22 20 20 20 73 6c 69 6d 65 2d 70 70 72 69 6e 74 | And.Pretty-Print"...slime-pprint |
| 16fd60 | 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 20 2c 43 20 5d 0a 20 20 20 20 20 | -eval-last-expression.,C.]...... |
| 16fd80 | 20 20 5b 20 22 45 76 61 6c 20 52 65 67 69 6f 6e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c | ..[."Eval.Region".............sl |
| 16fda0 | 69 6d 65 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 45 | ime-eval-region.,C.]........[."E |
| 16fdc0 | 76 61 6c 20 52 65 67 69 6f 6e 20 41 6e 64 20 50 72 65 74 74 79 2d 50 72 69 6e 74 22 20 73 6c 69 | val.Region.And.Pretty-Print".sli |
| 16fde0 | 6d 65 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 20 2c 43 20 5d 0a 20 20 20 20 20 | me-pprint-eval-region.,C.]...... |
| 16fe00 | 20 20 5b 20 22 49 6e 74 65 72 61 63 74 69 76 65 20 45 76 61 6c 2e 2e 2e 22 20 20 20 20 20 73 6c | ..[."Interactive.Eval...".....sl |
| 16fe20 | 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 20 2c 43 20 5d 0a 20 20 20 20 20 20 | ime-interactive-eval.,C.]....... |
| 16fe40 | 20 5b 20 22 45 64 69 74 20 4c 69 73 70 20 56 61 6c 75 65 2e 2e 2e 22 20 20 20 20 20 20 73 6c 69 | .[."Edit.Lisp.Value..."......sli |
| 16fe60 | 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 43 61 6c | me-edit-value.,C.]........[."Cal |
| 16fe80 | 6c 20 44 65 66 75 6e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 61 6c 6c | l.Defun"..............slime-call |
| 16fea0 | 2d 64 65 66 75 6e 20 2c 43 20 5d 29 0a 20 20 20 20 20 20 28 22 44 65 62 75 67 67 69 6e 67 22 0a | -defun.,C.]).......("Debugging". |
| 16fec0 | 20 20 20 20 20 20 20 5b 20 22 4d 61 63 72 6f 65 78 70 61 6e 64 20 4f 6e 63 65 2e 2e 2e 22 20 20 | .......[."Macroexpand.Once...".. |
| 16fee0 | 20 20 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 2c 43 20 5d 0a 20 20 20 20 | ...slime-macroexpand-1.,C.]..... |
| 16ff00 | 20 20 20 5b 20 22 4d 61 63 72 6f 65 78 70 61 6e 64 20 41 6c 6c 2e 2e 2e 22 20 20 20 20 20 20 73 | ...[."Macroexpand.All..."......s |
| 16ff20 | 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 2c 43 20 5d 0a 20 20 20 20 20 20 | lime-macroexpand-all.,C.]....... |
| 16ff40 | 20 5b 20 22 43 72 65 61 74 65 20 54 72 61 63 65 20 42 75 66 66 65 72 22 20 20 20 20 20 73 6c 69 | .[."Create.Trace.Buffer".....sli |
| 16ff60 | 6d 65 2d 72 65 64 69 72 65 63 74 2d 74 72 61 63 65 2d 6f 75 74 70 75 74 20 2c 43 20 5d 0a 20 20 | me-redirect-trace-output.,C.]... |
| 16ff80 | 20 20 20 20 20 5b 20 22 54 6f 67 67 6c 65 20 54 72 61 63 65 2e 2e 2e 22 20 20 20 20 20 20 20 20 | .....[."Toggle.Trace..."........ |
| 16ffa0 | 20 73 6c 69 6d 65 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 66 64 65 66 69 6e 69 74 69 6f 6e 20 | .slime-toggle-trace-fdefinition. |
| 16ffc0 | 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 55 6e 74 72 61 63 65 20 41 6c 6c 22 20 20 20 20 20 | ,C.]........[."Untrace.All"..... |
| 16ffe0 | 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 75 6e 74 72 61 63 65 2d 61 6c 6c 20 2c 43 5d 0a 20 20 | ........slime-untrace-all.,C]... |
| 170000 | 20 20 20 20 20 5b 20 22 44 69 73 61 73 73 65 6d 62 6c 65 2e 2e 2e 22 20 20 20 20 20 20 20 20 20 | .....[."Disassemble..."......... |
| 170020 | 20 73 6c 69 6d 65 2d 64 69 73 61 73 73 65 6d 62 6c 65 2d 73 79 6d 62 6f 6c 20 2c 43 20 5d 0a 20 | .slime-disassemble-symbol.,C.].. |
| 170040 | 20 20 20 20 20 20 5b 20 22 49 6e 73 70 65 63 74 2e 2e 2e 22 20 20 20 20 20 20 20 20 20 20 20 20 | ......[."Inspect..."............ |
| 170060 | 20 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 20 2c 43 20 5d 29 0a 20 20 20 20 20 20 28 22 43 6f | ..slime-inspect.,C.]).......("Co |
| 170080 | 6d 70 69 6c 61 74 69 6f 6e 22 0a 20 20 20 20 20 20 20 5b 20 22 43 6f 6d 70 69 6c 65 20 44 65 66 | mpilation"........[."Compile.Def |
| 1700a0 | 75 6e 22 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 64 65 66 75 | un"...........slime-compile-defu |
| 1700c0 | 6e 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 43 6f 6d 70 69 6c 65 2f 4c 6f 61 64 20 46 69 | n.,C.]........[."Compile/Load.Fi |
| 1700e0 | 6c 65 22 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 | le".......slime-compile-and-load |
| 170100 | 2d 66 69 6c 65 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 43 6f 6d 70 69 6c 65 20 46 69 6c | -file.,C.]........[."Compile.Fil |
| 170120 | 65 22 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 | e"............slime-compile-file |
| 170140 | 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 43 6f 6d 70 69 6c 65 20 52 65 67 69 6f 6e 22 20 | .,C.]........[."Compile.Region". |
| 170160 | 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 72 65 67 69 6f 6e 20 2c 43 | .........slime-compile-region.,C |
| 170180 | 20 5d 0a 20 20 20 20 20 20 20 22 2d 2d 22 0a 20 20 20 20 20 20 20 5b 20 22 4e 65 78 74 20 4e 6f | .]........"--"........[."Next.No |
| 1701a0 | 74 65 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 78 74 2d 6e 6f 74 | te"...............slime-next-not |
| 1701c0 | 65 20 74 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 50 72 65 76 69 6f 75 73 20 4e 6f 74 65 22 20 20 | e.t.]........[."Previous.Note".. |
| 1701e0 | 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 6e 6f 74 65 20 74 20 5d | .........slime-previous-note.t.] |
| 170200 | 0a 20 20 20 20 20 20 20 5b 20 22 52 65 6d 6f 76 65 20 4e 6f 74 65 73 22 20 20 20 20 20 20 20 20 | ........[."Remove.Notes"........ |
| 170220 | 20 20 20 20 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 6e 6f 74 65 73 20 74 20 5d 0a 20 20 20 20 20 | ....slime-remove-notes.t.]...... |
| 170240 | 20 20 5b 20 22 4c 69 73 74 20 4e 6f 74 65 73 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c | ..[."List.Notes"..............sl |
| 170260 | 69 6d 65 2d 6c 69 73 74 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 20 2c 43 20 5d 29 0a 20 20 | ime-list-compiler-notes.,C.])... |
| 170280 | 20 20 20 20 28 22 43 72 6f 73 73 20 52 65 66 65 72 65 6e 63 65 22 0a 20 20 20 20 20 20 20 5b 20 | ....("Cross.Reference"........[. |
| 1702a0 | 22 57 68 6f 20 43 61 6c 6c 73 2e 2e 2e 22 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d | "Who.Calls..."............slime- |
| 1702c0 | 77 68 6f 2d 63 61 6c 6c 73 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 57 68 6f 20 52 65 66 | who-calls.,C.]........[."Who.Ref |
| 1702e0 | 65 72 65 6e 63 65 73 2e 2e 2e 20 22 20 20 20 20 20 20 73 6c 69 6d 65 2d 77 68 6f 2d 72 65 66 65 | erences...."......slime-who-refe |
| 170300 | 72 65 6e 63 65 73 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 57 68 6f 20 53 65 74 73 2e 2e | rences.,C.]........[."Who.Sets.. |
| 170320 | 2e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 77 68 6f 2d 73 65 74 73 20 2c 43 | .".............slime-who-sets.,C |
| 170340 | 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 57 68 6f 20 42 69 6e 64 73 2e 2e 2e 22 20 20 20 20 20 20 | .]........[."Who.Binds..."...... |
| 170360 | 20 20 20 20 20 20 73 6c 69 6d 65 2d 77 68 6f 2d 62 69 6e 64 73 20 2c 43 20 5d 0a 20 20 20 20 20 | ......slime-who-binds.,C.]...... |
| 170380 | 20 20 5b 20 22 57 68 6f 20 4d 61 63 72 6f 65 78 70 61 6e 64 73 2e 2e 2e 22 20 20 20 20 20 73 6c | ..[."Who.Macroexpands...".....sl |
| 1703a0 | 69 6d 65 2d 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 20 2c 43 20 5d 0a 20 20 20 20 20 20 | ime-who-macroexpands.,C.]....... |
| 1703c0 | 20 5b 20 22 57 68 6f 20 53 70 65 63 69 61 6c 69 7a 65 73 2e 2e 2e 22 20 20 20 20 20 20 73 6c 69 | .[."Who.Specializes..."......sli |
| 1703e0 | 6d 65 2d 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b | me-who-specializes.,C.]........[ |
| 170400 | 20 22 4c 69 73 74 20 43 61 6c 6c 65 72 73 2e 2e 2e 22 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 | ."List.Callers...".........slime |
| 170420 | 2d 6c 69 73 74 2d 63 61 6c 6c 65 72 73 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 4c 69 73 | -list-callers.,C.]........[."Lis |
| 170440 | 74 20 43 61 6c 6c 65 65 73 2e 2e 2e 22 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6c 69 73 74 | t.Callees...".........slime-list |
| 170460 | 2d 63 61 6c 6c 65 65 73 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 4e 65 78 74 20 4c 6f 63 | -callees.,C.]........[."Next.Loc |
| 170480 | 61 74 69 6f 6e 22 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 78 74 2d 6c 6f 63 61 | ation"...........slime-next-loca |
| 1704a0 | 74 69 6f 6e 20 74 20 5d 29 0a 20 20 20 20 20 20 28 22 45 64 69 74 69 6e 67 22 0a 20 20 20 20 20 | tion.t.]).......("Editing"...... |
| 1704c0 | 20 20 5b 20 22 43 68 65 63 6b 20 50 61 72 65 6e 73 22 20 20 20 20 20 20 20 20 20 20 20 20 63 68 | ..[."Check.Parens"............ch |
| 1704e0 | 65 63 6b 2d 70 61 72 65 6e 73 20 74 5d 0a 20 20 20 20 20 20 20 5b 20 22 55 70 64 61 74 65 20 49 | eck-parens.t]........[."Update.I |
| 170500 | 6e 64 65 6e 74 61 74 69 6f 6e 22 20 20 20 20 20 20 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 69 6e | ndentation"......slime-update-in |
| 170520 | 64 65 6e 74 61 74 69 6f 6e 20 2c 43 5d 0a 20 20 20 20 20 20 20 5b 20 22 53 65 6c 65 63 74 20 42 | dentation.,C]........[."Select.B |
| 170540 | 75 66 66 65 72 22 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 20 | uffer"...........slime-selector. |
| 170560 | 74 5d 29 0a 20 20 20 20 20 20 28 22 50 72 6f 66 69 6c 69 6e 67 22 0a 20 20 20 20 20 20 20 5b 20 | t]).......("Profiling"........[. |
| 170580 | 22 54 6f 67 67 6c 65 20 50 72 6f 66 69 6c 69 6e 67 2e 2e 2e 22 20 20 20 20 20 73 6c 69 6d 65 2d | "Toggle.Profiling...".....slime- |
| 1705a0 | 74 6f 67 67 6c 65 2d 70 72 6f 66 69 6c 65 2d 66 64 65 66 69 6e 69 74 69 6f 6e 20 2c 43 20 5d 0a | toggle-profile-fdefinition.,C.]. |
| 1705c0 | 20 20 20 20 20 20 20 5b 20 22 50 72 6f 66 69 6c 65 20 50 61 63 6b 61 67 65 22 20 20 20 20 20 20 | .......[."Profile.Package"...... |
| 1705e0 | 20 20 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 20 2c 43 5d 0a 20 20 20 | ...slime-profile-package.,C].... |
| 170600 | 20 20 20 20 5b 20 22 50 72 6f 66 69 6c 65 20 62 79 20 53 75 62 73 74 72 69 6e 67 22 20 20 20 20 | ....[."Profile.by.Substring".... |
| 170620 | 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 62 79 2d 73 75 62 73 74 72 69 6e 67 20 2c 43 20 5d 0a | slime-profile-by-substring.,C.]. |
| 170640 | 20 20 20 20 20 20 20 5b 20 22 55 6e 70 72 6f 66 69 6c 65 20 41 6c 6c 22 20 20 20 20 20 20 20 20 | .......[."Unprofile.All"........ |
| 170660 | 20 20 20 73 6c 69 6d 65 2d 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c 20 2c 43 20 5d 0a 20 20 20 20 | ...slime-unprofile-all.,C.]..... |
| 170680 | 20 20 20 5b 20 22 53 68 6f 77 20 50 72 6f 66 69 6c 65 64 22 20 20 20 20 20 20 20 20 20 20 20 73 | ...[."Show.Profiled"...........s |
| 1706a0 | 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 20 2c 43 20 5d 0a 20 20 20 | lime-profiled-functions.,C.].... |
| 1706c0 | 20 20 20 20 22 2d 2d 22 0a 20 20 20 20 20 20 20 5b 20 22 52 65 70 6f 72 74 22 20 20 20 20 20 20 | ...."--"........[."Report"...... |
| 1706e0 | 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 | ............slime-profile-report |
| 170700 | 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 52 65 73 65 74 20 43 6f 75 6e 74 65 72 73 22 20 | .,C.]........[."Reset.Counters". |
| 170720 | 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 20 2c 43 20 | .........slime-profile-reset.,C. |
| 170740 | 5d 29 0a 20 20 20 20 20 20 28 22 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 22 0a 20 20 20 20 20 20 | ]).......("Documentation"....... |
| 170760 | 20 5b 20 22 44 65 73 63 72 69 62 65 20 53 79 6d 62 6f 6c 2e 2e 2e 22 20 20 20 20 20 20 73 6c 69 | .[."Describe.Symbol..."......sli |
| 170780 | 6d 65 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b | me-describe-symbol.,C.]........[ |
| 1707a0 | 20 22 4c 6f 6f 6b 75 70 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 2e 2e 22 20 73 6c 69 6d 65 | ."Lookup.Documentation...".slime |
| 1707c0 | 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 6c 6f 6f 6b 75 70 20 74 20 5d 0a 20 20 20 20 20 20 | -documentation-lookup.t.]....... |
| 1707e0 | 20 5b 20 22 41 70 72 6f 70 6f 73 2e 2e 2e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 | .[."Apropos..."..............sli |
| 170800 | 6d 65 2d 61 70 72 6f 70 6f 73 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 41 70 72 6f 70 6f | me-apropos.,C.]........[."Apropo |
| 170820 | 73 20 61 6c 6c 2e 2e 2e 22 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 | s.all..."..........slime-apropos |
| 170840 | 2d 61 6c 6c 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 41 70 72 6f 70 6f 73 20 50 61 63 6b | -all.,C.]........[."Apropos.Pack |
| 170860 | 61 67 65 2e 2e 2e 22 20 20 20 20 20 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 70 61 63 6b 61 | age..."......slime-apropos-packa |
| 170880 | 67 65 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 48 79 70 65 72 73 70 65 63 2e 2e 2e 22 20 | ge.,C.]........[."Hyperspec...". |
| 1708a0 | 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 | ...........slime-hyperspec-looku |
| 1708c0 | 70 20 74 20 5d 29 0a 20 20 20 20 20 20 22 2d 2d 22 0a 20 20 20 20 20 20 5b 20 22 49 6e 74 65 72 | p.t.])......."--".......[."Inter |
| 1708e0 | 72 75 70 74 20 43 6f 6d 6d 61 6e 64 22 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 69 6e 74 65 72 | rupt.Command"........slime-inter |
| 170900 | 72 75 70 74 20 2c 43 20 5d 0a 20 20 20 20 20 20 5b 20 22 41 62 6f 72 74 20 41 73 79 6e 63 2e 20 | rupt.,C.].......[."Abort.Async.. |
| 170920 | 43 6f 6d 6d 61 6e 64 22 20 20 20 20 20 73 6c 69 6d 65 2d 71 75 69 74 20 2c 43 20 5d 0a 20 20 20 | Command".....slime-quit.,C.].... |
| 170940 | 20 20 20 5b 20 22 53 79 6e 63 20 50 61 63 6b 61 67 65 20 26 20 44 69 72 65 63 74 6f 72 79 22 20 | ...[."Sync.Package.&.Directory". |
| 170960 | 73 6c 69 6d 65 2d 73 79 6e 63 2d 70 61 63 6b 61 67 65 2d 61 6e 64 2d 64 65 66 61 75 6c 74 2d 64 | slime-sync-package-and-default-d |
| 170980 | 69 72 65 63 74 6f 72 79 20 2c 43 5d 0a 20 20 20 20 20 20 29 29 29 0a 0a 28 64 65 66 76 61 72 20 | irectory.,C].......)))..(defvar. |
| 1709a0 | 73 6c 69 6d 65 2d 73 6c 64 62 2d 65 61 73 79 2d 6d 65 6e 75 0a 20 20 28 6c 65 74 20 28 28 43 20 | slime-sldb-easy-menu...(let.((C. |
| 1709c0 | 27 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 29 29 0a 20 20 20 20 60 28 22 53 4c | '(slime-connected-p))).....`("SL |
| 1709e0 | 44 42 22 0a 20 20 20 20 20 20 5b 20 22 4e 65 78 74 20 46 72 61 6d 65 22 20 73 6c 64 62 2d 64 6f | DB".......[."Next.Frame".sldb-do |
| 170a00 | 77 6e 20 74 20 5d 0a 20 20 20 20 20 20 5b 20 22 50 72 65 76 69 6f 75 73 20 46 72 61 6d 65 22 20 | wn.t.].......[."Previous.Frame". |
| 170a20 | 73 6c 64 62 2d 75 70 20 74 20 5d 0a 20 20 20 20 20 20 5b 20 22 54 6f 67 67 6c 65 20 46 72 61 6d | sldb-up.t.].......[."Toggle.Fram |
| 170a40 | 65 20 44 65 74 61 69 6c 73 22 20 73 6c 64 62 2d 74 6f 67 67 6c 65 2d 64 65 74 61 69 6c 73 20 74 | e.Details".sldb-toggle-details.t |
| 170a60 | 20 5d 0a 20 20 20 20 20 20 5b 20 22 4e 65 78 74 20 46 72 61 6d 65 20 28 44 65 74 61 69 6c 73 29 | .].......[."Next.Frame.(Details) |
| 170a80 | 22 20 73 6c 64 62 2d 64 65 74 61 69 6c 73 2d 64 6f 77 6e 20 74 20 5d 0a 20 20 20 20 20 20 5b 20 | ".sldb-details-down.t.].......[. |
| 170aa0 | 22 50 72 65 76 69 6f 75 73 20 46 72 61 6d 65 20 28 44 65 74 61 69 6c 73 29 22 20 73 6c 64 62 2d | "Previous.Frame.(Details)".sldb- |
| 170ac0 | 64 65 74 61 69 6c 73 2d 75 70 20 74 20 5d 0a 20 20 20 20 20 20 22 2d 2d 22 0a 20 20 20 20 20 20 | details-up.t.]......."--"....... |
| 170ae0 | 5b 20 22 45 76 61 6c 20 45 78 70 72 65 73 73 69 6f 6e 2e 2e 2e 22 20 73 6c 69 6d 65 2d 69 6e 74 | [."Eval.Expression...".slime-int |
| 170b00 | 65 72 61 63 74 69 76 65 2d 65 76 61 6c 20 2c 43 20 5d 0a 20 20 20 20 20 20 5b 20 22 45 76 61 6c | eractive-eval.,C.].......[."Eval |
| 170b20 | 20 69 6e 20 46 72 61 6d 65 2e 2e 2e 22 20 73 6c 64 62 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 | .in.Frame...".sldb-eval-in-frame |
| 170b40 | 20 2c 43 20 5d 0a 20 20 20 20 20 20 5b 20 22 45 76 61 6c 20 69 6e 20 46 72 61 6d 65 20 28 70 72 | .,C.].......[."Eval.in.Frame.(pr |
| 170b60 | 65 74 74 79 20 70 72 69 6e 74 29 2e 2e 2e 22 20 73 6c 64 62 2d 70 70 72 69 6e 74 2d 65 76 61 6c | etty.print)...".sldb-pprint-eval |
| 170b80 | 2d 69 6e 2d 66 72 61 6d 65 20 2c 43 20 5d 0a 20 20 20 20 20 20 5b 20 22 49 6e 73 70 65 63 74 20 | -in-frame.,C.].......[."Inspect. |
| 170ba0 | 49 6e 20 46 72 61 6d 65 2e 2e 2e 22 20 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 69 6e 2d 66 72 61 | In.Frame...".sldb-inspect-in-fra |
| 170bc0 | 6d 65 20 2c 43 20 5d 0a 20 20 20 20 20 20 5b 20 22 49 6e 73 70 65 63 74 20 43 6f 6e 64 69 74 69 | me.,C.].......[."Inspect.Conditi |
| 170be0 | 6f 6e 20 4f 62 6a 65 63 74 22 20 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 63 6f 6e 64 69 74 69 6f | on.Object".sldb-inspect-conditio |
| 170c00 | 6e 20 2c 43 20 5d 0a 20 20 20 20 20 20 22 2d 2d 22 0a 20 20 20 20 20 20 5b 20 22 52 65 73 74 61 | n.,C.]......."--".......[."Resta |
| 170c20 | 72 74 20 46 72 61 6d 65 22 20 73 6c 64 62 2d 72 65 73 74 61 72 74 2d 66 72 61 6d 65 20 2c 43 20 | rt.Frame".sldb-restart-frame.,C. |
| 170c40 | 5d 0a 20 20 20 20 20 20 5b 20 22 52 65 74 75 72 6e 20 66 72 6f 6d 20 46 72 61 6d 65 2e 2e 2e 22 | ].......[."Return.from.Frame..." |
| 170c60 | 20 73 6c 64 62 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 20 2c 43 20 5d 0a 20 20 20 | .sldb-return-from-frame.,C.].... |
| 170c80 | 20 20 20 28 22 49 6e 76 6f 6b 65 20 52 65 73 74 61 72 74 22 0a 20 20 20 20 20 20 20 5b 20 22 43 | ...("Invoke.Restart"........[."C |
| 170ca0 | 6f 6e 74 69 6e 75 65 22 20 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 20 2c 43 20 5d 0a 20 20 20 20 | ontinue".sldb-continue.,C.]..... |
| 170cc0 | 20 20 20 5b 20 22 41 62 6f 72 74 22 20 20 20 20 73 6c 64 62 2d 61 62 6f 72 74 20 2c 43 20 5d 0a | ...[."Abort"....sldb-abort.,C.]. |
| 170ce0 | 20 20 20 20 20 20 20 5b 20 22 53 74 65 70 22 20 20 20 20 20 20 73 6c 64 62 2d 73 74 65 70 20 2c | .......[."Step"......sldb-step., |
| 170d00 | 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 53 74 65 70 20 6e 65 78 74 22 20 73 6c 64 62 2d 6e 65 | C.]........[."Step.next".sldb-ne |
| 170d20 | 78 74 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 5b 20 22 53 74 65 70 20 6f 75 74 22 20 20 73 6c 64 | xt.,C.]........[."Step.out"..sld |
| 170d40 | 62 2d 6f 75 74 20 2c 43 20 5d 0a 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 22 2d 2d 22 0a 20 | b-out.,C.]........)......."--".. |
| 170d60 | 20 20 20 20 20 5b 20 22 51 75 69 74 20 28 74 68 72 6f 77 29 22 20 73 6c 64 62 2d 71 75 69 74 20 | .....[."Quit.(throw)".sldb-quit. |
| 170d80 | 2c 43 20 5d 0a 20 20 20 20 20 20 5b 20 22 42 72 65 61 6b 20 57 69 74 68 20 44 65 66 61 75 6c 74 | ,C.].......[."Break.With.Default |
| 170da0 | 20 44 65 62 75 67 67 65 72 22 20 73 6c 64 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d 64 65 66 61 75 | .Debugger".sldb-break-with-defau |
| 170dc0 | 6c 74 2d 64 65 62 75 67 67 65 72 20 2c 43 20 5d 29 29 29 0a 0a 28 65 61 73 79 2d 6d 65 6e 75 2d | lt-debugger.,C.])))..(easy-menu- |
| 170de0 | 64 65 66 69 6e 65 20 6d 65 6e 75 62 61 72 2d 73 6c 69 6d 65 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d | define.menubar-slime.slime-mode- |
| 170e00 | 6d 61 70 20 22 53 4c 49 4d 45 22 20 73 6c 69 6d 65 2d 65 61 73 79 2d 6d 65 6e 75 29 0a 0a 28 64 | map."SLIME".slime-easy-menu)..(d |
| 170e20 | 65 66 75 6e 20 73 6c 69 6d 65 2d 61 64 64 2d 65 61 73 79 2d 6d 65 6e 75 20 28 29 0a 20 20 28 65 | efun.slime-add-easy-menu.()...(e |
| 170e40 | 61 73 79 2d 6d 65 6e 75 2d 61 64 64 20 73 6c 69 6d 65 2d 65 61 73 79 2d 6d 65 6e 75 20 27 73 6c | asy-menu-add.slime-easy-menu.'sl |
| 170e60 | 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 29 29 0a 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 | ime-mode-map))..(add-hook.'slime |
| 170e80 | 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 61 64 64 2d 65 61 73 79 2d 6d 65 6e 75 29 | -mode-hook.'slime-add-easy-menu) |
| 170ea0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 6c 64 62 2d 61 64 64 2d 65 61 73 79 2d 6d 65 6e | ..(defun.slime-sldb-add-easy-men |
| 170ec0 | 75 20 28 29 0a 20 20 28 65 61 73 79 2d 6d 65 6e 75 2d 64 65 66 69 6e 65 20 6d 65 6e 75 62 61 72 | u.()...(easy-menu-define.menubar |
| 170ee0 | 2d 73 6c 69 6d 65 2d 73 6c 64 62 0a 20 20 20 20 73 6c 64 62 2d 6d 6f 64 65 2d 6d 61 70 20 22 53 | -slime-sldb.....sldb-mode-map."S |
| 170f00 | 4c 44 42 22 20 73 6c 69 6d 65 2d 73 6c 64 62 2d 65 61 73 79 2d 6d 65 6e 75 29 0a 20 20 28 65 61 | LDB".slime-sldb-easy-menu)...(ea |
| 170f20 | 73 79 2d 6d 65 6e 75 2d 61 64 64 20 73 6c 69 6d 65 2d 73 6c 64 62 2d 65 61 73 79 2d 6d 65 6e 75 | sy-menu-add.slime-sldb-easy-menu |
| 170f40 | 20 27 73 6c 64 62 2d 6d 6f 64 65 2d 6d 61 70 29 29 0a 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c | .'sldb-mode-map))..(add-hook.'sl |
| 170f60 | 64 62 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 73 6c 64 62 2d 61 64 64 2d 65 61 73 | db-mode-hook.'slime-sldb-add-eas |
| 170f80 | 79 2d 6d 65 6e 75 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 68 65 61 74 20 53 68 65 65 74 0a 0a 28 64 65 | y-menu)....;;;;.Cheat.Sheet..(de |
| 170fa0 | 66 76 61 72 0a 20 20 73 6c 69 6d 65 2d 63 68 65 61 74 2d 73 68 65 65 74 2d 74 61 62 6c 65 0a 20 | fvar...slime-cheat-sheet-table.. |
| 170fc0 | 20 27 28 28 3a 74 69 74 6c 65 0a 20 20 20 20 20 22 45 64 69 74 69 6e 67 20 6c 69 73 70 20 63 6f | .'((:title......"Editing.lisp.co |
| 170fe0 | 64 65 22 0a 20 20 20 20 20 3a 6d 61 70 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 20 | de"......:map.slime-mode-map.... |
| 171000 | 20 20 3a 62 69 6e 64 69 6e 67 73 20 28 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 66 75 6e 20 22 | ..:bindings.((slime-eval-defun." |
| 171020 | 45 76 61 6c 75 61 74 65 20 63 75 72 72 65 6e 74 20 74 6f 70 20 6c 65 76 65 6c 20 66 6f 72 6d 22 | Evaluate.current.top.level.form" |
| 171040 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 | ).................(slime-compile |
| 171060 | 2d 64 65 66 75 6e 20 22 43 6f 6d 70 69 6c 65 20 63 75 72 72 65 6e 74 20 74 6f 70 20 6c 65 76 65 | -defun."Compile.current.top.leve |
| 171080 | 6c 20 66 6f 72 6d 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | l.form").................(slime- |
| 1710a0 | 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 20 22 50 72 6f 6d 70 74 20 66 6f 72 20 66 6f 72 | interactive-eval."Prompt.for.for |
| 1710c0 | 6d 20 61 6e 64 20 65 76 61 6c 20 69 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m.and.eval.it")................. |
| 1710e0 | 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 2d 66 69 6c 65 20 22 43 6f | (slime-compile-and-load-file."Co |
| 171100 | 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 63 75 72 72 65 6e 74 20 66 69 6c 65 22 29 0a 20 20 | mpile.and.load.current.file")... |
| 171120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 70 61 63 6b 61 67 | ..............(slime-sync-packag |
| 171140 | 65 2d 61 6e 64 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 | e-and-default-directory......... |
| 171160 | 20 20 20 20 20 20 20 20 20 22 53 79 6e 63 68 20 64 65 66 61 75 6c 74 20 70 61 63 6b 61 67 65 20 | ........."Synch.default.package. |
| 171180 | 61 6e 64 20 64 69 72 65 63 74 6f 72 79 20 77 69 74 68 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 | and.directory.with.current.buffe |
| 1711a0 | 72 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6e 65 78 74 2d | r").................(slime-next- |
| 1711c0 | 6e 6f 74 65 20 22 4e 65 78 74 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 22 29 0a 20 20 20 20 20 | note."Next.compiler.note")...... |
| 1711e0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 6e 6f 74 65 20 | ...........(slime-previous-note. |
| 171200 | 22 50 72 65 76 69 6f 75 73 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 22 29 0a 20 20 20 20 20 20 | "Previous.compiler.note")....... |
| 171220 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 6e 6f 74 65 73 20 22 52 | ..........(slime-remove-notes."R |
| 171240 | 65 6d 6f 76 65 20 6e 6f 74 65 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c | emove.notes").................sl |
| 171260 | 69 6d 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 6c 6f 6f 6b 75 70 29 29 0a 20 20 20 20 28 | ime-documentation-lookup)).....( |
| 171280 | 3a 74 69 74 6c 65 20 22 43 6f 6d 70 6c 65 74 69 6f 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | :title."Completion"............. |
| 1712a0 | 3a 6d 61 70 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 | :map.slime-mode-map............. |
| 1712c0 | 3a 62 69 6e 64 69 6e 67 73 20 28 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 | :bindings.(slime-indent-and-comp |
| 1712e0 | 6c 65 74 65 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lete-symbol..................... |
| 171300 | 20 20 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 29 29 | ...slime-fuzzy-complete-symbol)) |
| 171320 | 0a 20 20 20 20 28 3a 74 69 74 6c 65 0a 20 20 20 20 20 22 57 69 74 68 69 6e 20 53 4c 44 42 20 62 | .....(:title......"Within.SLDB.b |
| 171340 | 75 66 66 65 72 73 22 0a 20 20 20 20 20 3a 6d 61 70 20 73 6c 64 62 2d 6d 6f 64 65 2d 6d 61 70 0a | uffers"......:map.sldb-mode-map. |
| 171360 | 20 20 20 20 20 3a 62 69 6e 64 69 6e 67 73 20 28 28 73 6c 64 62 2d 64 65 66 61 75 6c 74 2d 61 63 | .....:bindings.((sldb-default-ac |
| 171380 | 74 69 6f 6e 20 22 44 6f 20 27 77 68 61 74 65 76 65 72 27 20 77 69 74 68 20 74 68 69 6e 67 20 61 | tion."Do.'whatever'.with.thing.a |
| 1713a0 | 74 20 70 6f 69 6e 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d | t.point").................(sldb- |
| 1713c0 | 74 6f 67 67 6c 65 2d 64 65 74 61 69 6c 73 20 22 54 6f 67 67 6c 65 20 66 72 61 6d 65 20 64 65 74 | toggle-details."Toggle.frame.det |
| 1713e0 | 61 69 6c 73 20 76 69 73 75 61 6c 69 7a 61 74 69 6f 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ails.visualization")............ |
| 171400 | 20 20 20 20 20 28 73 6c 64 62 2d 71 75 69 74 20 22 51 75 69 74 20 74 6f 20 52 45 50 4c 22 29 0a | .....(sldb-quit."Quit.to.REPL"). |
| 171420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 61 62 6f 72 74 20 22 49 6e 76 | ................(sldb-abort."Inv |
| 171440 | 6f 6b 65 20 41 42 4f 52 54 20 72 65 73 74 61 72 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | oke.ABORT.restart")............. |
| 171460 | 20 20 20 20 28 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 20 22 49 6e 76 6f 6b 65 20 43 4f 4e 54 49 | ....(sldb-continue."Invoke.CONTI |
| 171480 | 4e 55 45 20 72 65 73 74 61 72 74 20 28 69 66 20 61 76 61 69 6c 61 62 6c 65 29 22 29 0a 20 20 20 | NUE.restart.(if.available)").... |
| 1714a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 73 68 6f 77 2d 73 6f 75 72 63 65 20 22 | .............(sldb-show-source." |
| 1714c0 | 4a 75 6d 70 20 74 6f 20 66 72 61 6d 65 27 73 20 73 6f 75 72 63 65 20 63 6f 64 65 22 29 0a 20 20 | Jump.to.frame's.source.code")... |
| 1714e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d | ..............(sldb-eval-in-fram |
| 171500 | 65 20 22 45 76 61 6c 75 61 74 65 20 69 6e 20 66 72 61 6d 65 20 61 74 20 70 6f 69 6e 74 22 29 0a | e."Evaluate.in.frame.at.point"). |
| 171520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 69 6e | ................(sldb-inspect-in |
| 171540 | 2d 66 72 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 45 76 61 6c 75 61 74 | -frame.................."Evaluat |
| 171560 | 65 20 69 6e 20 66 72 61 6d 65 20 61 74 20 70 6f 69 6e 74 20 61 6e 64 20 69 6e 73 70 65 63 74 20 | e.in.frame.at.point.and.inspect. |
| 171580 | 72 65 73 75 6c 74 22 29 29 29 0a 20 20 20 20 28 3a 74 69 74 6c 65 0a 20 20 20 20 20 22 57 69 74 | result"))).....(:title......"Wit |
| 1715a0 | 68 69 6e 20 74 68 65 20 49 6e 73 70 65 63 74 6f 72 22 0a 20 20 20 20 20 3a 6d 61 70 20 73 6c 69 | hin.the.Inspector"......:map.sli |
| 1715c0 | 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 20 20 20 3a 62 69 6e 64 | me-inspector-mode-map......:bind |
| 1715e0 | 69 6e 67 73 20 28 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 2d 69 6e 73 70 | ings.((slime-inspector-next-insp |
| 171600 | 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ectable-object.................. |
| 171620 | 22 4a 75 6d 70 20 74 6f 20 6e 65 78 74 20 69 6e 73 70 65 63 74 61 62 6c 65 20 6f 62 6a 65 63 74 | "Jump.to.next.inspectable.object |
| 171640 | 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 | ").................(slime-inspec |
| 171660 | 74 6f 72 2d 6f 70 65 72 61 74 65 2d 6f 6e 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 | tor-operate-on-point............ |
| 171680 | 20 20 20 20 20 20 22 49 6e 73 70 65 63 74 20 6f 62 6a 65 63 74 20 6f 72 20 65 78 65 63 75 74 65 | ......"Inspect.object.or.execute |
| 1716a0 | 20 61 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .action.at.point").............. |
| 1716c0 | 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 72 65 69 6e 73 70 65 63 74 20 22 52 | ...(slime-inspector-reinspect."R |
| 1716e0 | 65 69 6e 73 70 65 63 74 20 63 75 72 72 65 6e 74 20 6f 62 6a 65 63 74 22 29 0a 20 20 20 20 20 20 | einspect.current.object")....... |
| 171700 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 6f 70 20 22 | ..........(slime-inspector-pop." |
| 171720 | 52 65 74 75 72 6e 20 74 6f 20 70 72 65 76 69 6f 75 73 20 6f 62 6a 65 63 74 22 29 0a 20 20 20 20 | Return.to.previous.object")..... |
| 171740 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 63 | ............;;(slime-inspector-c |
| 171760 | 6f 70 79 2d 64 6f 77 6e 20 22 53 65 6e 64 20 6f 62 6a 65 63 74 20 61 74 20 70 6f 69 6e 74 20 74 | opy-down."Send.object.at.point.t |
| 171780 | 6f 20 52 45 50 4c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | o.REPL").................(slime- |
| 1717a0 | 69 6e 73 70 65 63 74 6f 72 2d 74 6f 67 67 6c 65 2d 76 65 72 62 6f 73 65 20 22 54 6f 67 67 6c 65 | inspector-toggle-verbose."Toggle |
| 1717c0 | 20 76 65 72 62 6f 73 65 20 6d 6f 64 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .verbose.mode")................. |
| 1717e0 | 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 71 75 69 74 20 22 51 75 69 74 22 29 29 29 0a | (slime-inspector-quit."Quit"))). |
| 171800 | 20 20 20 20 28 3a 74 69 74 6c 65 0a 20 20 20 20 20 22 46 69 6e 64 69 6e 67 20 44 65 66 69 6e 69 | ....(:title......"Finding.Defini |
| 171820 | 74 69 6f 6e 73 22 0a 20 20 20 20 20 3a 6d 61 70 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 0a | tions"......:map.slime-mode-map. |
| 171840 | 20 20 20 20 20 3a 62 69 6e 64 69 6e 67 73 20 28 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e | .....:bindings.(slime-edit-defin |
| 171860 | 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 70 6f 70 2d | ition.................slime-pop- |
| 171880 | 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 63 6b 29 29 29 29 0a 0a 28 64 65 66 75 | find-definition-stack))))..(defu |
| 1718a0 | 6e 20 73 6c 69 6d 65 2d 63 68 65 61 74 2d 73 68 65 65 74 20 28 29 0a 20 20 28 69 6e 74 65 72 61 | n.slime-cheat-sheet.()...(intera |
| 1718c0 | 63 74 69 76 65 29 0a 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 | ctive)...(switch-to-buffer-other |
| 1718e0 | 2d 66 72 61 6d 65 0a 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 28 73 6c | -frame....(get-buffer-create.(sl |
| 171900 | 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 63 68 65 61 74 2d 73 68 65 65 74 29 29 29 0a | ime-buffer-name.:cheat-sheet))). |
| 171920 | 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 29 0a 20 20 | ..(setq.buffer-read-only.nil)... |
| 171940 | 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e | (delete-region.(point-min).(poin |
| 171960 | 74 2d 6d 61 78 29 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 | t-max))...(goto-char.(point-min) |
| 171980 | 29 0a 20 20 28 69 6e 73 65 72 74 0a 20 20 20 22 53 4c 49 4d 45 3a 20 54 68 65 20 53 75 70 65 72 | )...(insert...."SLIME:.The.Super |
| 1719a0 | 69 6f 72 20 4c 69 73 70 20 49 6e 74 65 72 61 63 74 69 6f 6e 20 4d 6f 64 65 20 66 6f 72 20 45 6d | ior.Lisp.Interaction.Mode.for.Em |
| 1719c0 | 61 63 73 20 28 6d 69 6e 6f 72 2d 6d 6f 64 65 29 2e 5c 6e 5c 6e 22 29 0a 20 20 28 64 6f 6c 69 73 | acs.(minor-mode).\n\n")...(dolis |
| 1719e0 | 74 20 28 6d 6f 64 65 20 73 6c 69 6d 65 2d 63 68 65 61 74 2d 73 68 65 65 74 2d 74 61 62 6c 65 29 | t.(mode.slime-cheat-sheet-table) |
| 171a00 | 0a 20 20 20 20 28 6c 65 74 20 28 28 74 69 74 6c 65 20 28 63 6c 2d 67 65 74 66 20 6d 6f 64 65 20 | .....(let.((title.(cl-getf.mode. |
| 171a20 | 3a 74 69 74 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 65 2d 6d 61 70 20 28 63 6c | :title))...........(mode-map.(cl |
| 171a40 | 2d 67 65 74 66 20 6d 6f 64 65 20 3a 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 | -getf.mode.:map))...........(mod |
| 171a60 | 65 2d 6b 65 79 73 20 28 63 6c 2d 67 65 74 66 20 6d 6f 64 65 20 3a 62 69 6e 64 69 6e 67 73 29 29 | e-keys.(cl-getf.mode.:bindings)) |
| 171a80 | 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 74 69 74 6c 65 29 0a 20 20 20 20 20 20 28 69 6e | ).......(insert.title).......(in |
| 171aa0 | 73 65 72 74 20 22 3a 5c 6e 22 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 6d 61 6b 65 2d | sert.":\n").......(insert.(make- |
| 171ac0 | 73 74 72 69 6e 67 20 28 31 2b 20 28 6c 65 6e 67 74 68 20 74 69 74 6c 65 29 29 20 3f 2d 29 29 0a | string.(1+.(length.title)).?-)). |
| 171ae0 | 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 | ......(insert."\n").......(let.( |
| 171b00 | 28 6b 65 79 73 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 63 72 69 70 74 | (keys.'()).............(descript |
| 171b20 | 69 6f 6e 73 20 27 28 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 66 75 6e 63 | ions.'())).........(dolist.(func |
| 171b40 | 20 6d 6f 64 65 2d 6b 65 79 73 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 66 75 6e 63 20 69 73 | .mode-keys)...........;;.func.is |
| 171b60 | 20 65 69 74 68 6f 72 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 6f 72 20 61 20 6c | .eithor.the.function.name.or.a.l |
| 171b80 | 69 73 74 20 28 4e 41 4d 45 20 44 45 53 43 52 49 50 54 49 4f 4e 29 0a 20 20 20 20 20 20 20 20 20 | ist.(NAME.DESCRIPTION).......... |
| 171ba0 | 20 28 70 75 73 68 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 66 75 6e 63 29 0a 20 20 20 20 20 20 | .(push.(if.(symbolp.func)....... |
| 171bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 66 | ..............(prin1-to-string.f |
| 171be0 | 75 6e 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 73 65 63 6f 6e | unc)...................(cl-secon |
| 171c00 | 64 20 66 75 6e 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 63 72 69 70 | d.func)).................descrip |
| 171c20 | 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 6c 6c 2d 62 69 6e 64 | tions)...........(let.((all-bind |
| 171c40 | 69 6e 67 73 20 28 77 68 65 72 65 2d 69 73 2d 69 6e 74 65 72 6e 61 6c 20 28 69 66 20 28 73 79 6d | ings.(where-is-internal.(if.(sym |
| 171c60 | 62 6f 6c 70 20 66 75 6e 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bolp.func)...................... |
| 171c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 171ca0 | 66 75 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | func............................ |
| 171cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 66 69 72 73 | ........................(cl-firs |
| 171ce0 | 74 20 66 75 6e 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.func))........................ |
| 171d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f | ..........................(symbo |
| 171d20 | 6c 2d 76 61 6c 75 65 20 6d 6f 64 65 2d 6d 61 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | l-value.mode-map)))............. |
| 171d40 | 20 20 20 20 28 6b 65 79 2d 62 69 6e 64 69 6e 67 73 20 27 28 29 29 29 0a 20 20 20 20 20 20 20 20 | ....(key-bindings.'()))......... |
| 171d60 | 20 20 20 20 28 64 6f 6c 69 73 74 20 28 62 69 6e 64 69 6e 67 20 61 6c 6c 2d 62 69 6e 64 69 6e 67 | ....(dolist.(binding.all-binding |
| 171d80 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 76 65 63 | s)...............(when.(and.(vec |
| 171da0 | 74 6f 72 70 20 62 69 6e 64 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | torp.binding)................... |
| 171dc0 | 20 20 20 20 20 20 20 28 69 6e 74 65 67 65 72 70 20 28 61 72 65 66 20 62 69 6e 64 69 6e 67 20 30 | .......(integerp.(aref.binding.0 |
| 171de0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 62 69 6e 64 69 6e | ))).................(push.bindin |
| 171e00 | 67 20 6b 65 79 2d 62 69 6e 64 69 6e 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | g.key-bindings))).............(p |
| 171e20 | 75 73 68 20 28 6d 61 70 63 6f 6e 63 61 74 20 27 6b 65 79 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 | ush.(mapconcat.'key-description. |
| 171e40 | 6b 65 79 2d 62 69 6e 64 69 6e 67 73 20 22 20 6f 72 20 22 29 20 6b 65 79 73 29 29 29 0a 20 20 20 | key-bindings.".or.").keys))).... |
| 171e60 | 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 69 74 68 20 64 65 73 63 2d 6c 65 6e 67 74 68 20 3d | .....(cl-loop.with.desc-length.= |
| 171e80 | 20 28 61 70 70 6c 79 20 27 6d 61 78 20 28 6d 61 70 63 61 72 20 27 6c 65 6e 67 74 68 20 64 65 73 | .(apply.'max.(mapcar.'length.des |
| 171ea0 | 63 72 69 70 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 | criptions))..................for |
| 171ec0 | 20 6b 65 79 20 69 6e 20 28 6e 72 65 76 65 72 73 65 20 6b 65 79 73 29 0a 20 20 20 20 20 20 20 20 | .key.in.(nreverse.keys)......... |
| 171ee0 | 20 20 20 20 20 20 20 20 20 66 6f 72 20 64 65 73 63 20 69 6e 20 28 6e 72 65 76 65 72 73 65 20 64 | .........for.desc.in.(nreverse.d |
| 171f00 | 65 73 63 72 69 70 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f | escriptions)..................do |
| 171f20 | 20 28 69 6e 73 65 72 74 20 64 65 73 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(insert.desc).................. |
| 171f40 | 64 6f 20 28 69 6e 73 65 72 74 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 2d 20 64 65 73 63 2d | do.(insert.(make-string.(-.desc- |
| 171f60 | 6c 65 6e 67 74 68 20 28 6c 65 6e 67 74 68 20 64 65 73 63 29 29 20 3f 20 29 29 0a 20 20 20 20 20 | length.(length.desc)).?.))...... |
| 171f80 | 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 69 6e 73 65 72 74 20 22 20 3d 3e 20 22 29 0a 20 | ............do.(insert.".=>.").. |
| 171fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 69 6e 73 65 72 74 20 28 69 66 20 28 | ................do.(insert.(if.( |
| 171fc0 | 73 74 72 69 6e 67 3d 20 22 22 20 6b 65 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | string=."".key)................. |
| 171fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 6e 6f 74 20 6f 6e 20 61 6e 79 20 6b 65 79 | ................"<not.on.any.key |
| 172000 | 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | >".............................. |
| 172020 | 20 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 69 6e 73 65 | .key))..................do.(inse |
| 172040 | 72 74 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c | rt."\n")..................finall |
| 172060 | 79 20 64 6f 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 29 29 29 29 0a 20 20 28 73 65 74 71 20 62 | y.do.(insert."\n")))))...(setq.b |
| 172080 | 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | uffer-read-only.t)...(goto-char. |
| 1720a0 | 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 55 74 69 6c 69 74 69 65 73 20 | (point-min)))....;;;;.Utilities. |
| 1720c0 | 28 6e 6f 20 6e 6f 74 20 50 61 75 6c 20 47 72 61 68 61 6d 20 73 74 79 6c 65 29 0a 0a 3b 3b 20 58 | (no.not.Paul.Graham.style)..;;.X |
| 1720e0 | 58 58 3a 20 75 6e 75 73 65 64 20 66 75 6e 63 74 69 6f 6e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | XX:.unused.function.(defun.slime |
| 172100 | 2d 69 6e 74 65 72 73 70 65 72 73 65 20 28 65 6c 65 6d 65 6e 74 20 6c 69 73 74 29 0a 20 20 22 49 | -intersperse.(element.list)..."I |
| 172120 | 6e 74 65 72 73 70 65 72 73 65 20 45 4c 45 4d 45 4e 54 20 62 65 74 77 65 65 6e 20 65 61 63 68 20 | ntersperse.ELEMENT.between.each. |
| 172140 | 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 22 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 6c 69 | element.of.LIST."...(if.(null.li |
| 172160 | 73 74 29 0a 20 20 20 20 20 20 27 28 29 0a 20 20 20 20 28 63 6f 6e 73 20 28 63 61 72 20 6c 69 73 | st).......'().....(cons.(car.lis |
| 172180 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6d 61 70 63 61 6e 20 28 6c 61 6d 62 64 61 20 | t)...........(cl-mapcan.(lambda. |
| 1721a0 | 28 78 29 20 28 6c 69 73 74 20 65 6c 65 6d 65 6e 74 20 78 29 29 20 28 63 64 72 20 6c 69 73 74 29 | (x).(list.element.x)).(cdr.list) |
| 1721c0 | 29 29 29 29 0a 0a 3b 3b 3b 20 46 49 58 4d 45 3a 20 74 68 69 73 20 6c 6f 6f 6b 73 20 61 6c 6d 6f | ))))..;;;.FIXME:.this.looks.almo |
| 1721e0 | 73 74 20 73 6c 69 6d 65 20 60 73 6c 69 6d 65 2d 61 6c 69 73 74 69 66 79 27 2c 20 70 65 72 68 61 | st.slime.`slime-alistify',.perha |
| 172200 | 70 73 20 74 68 65 20 74 77 6f 0a 3b 3b 3b 20 20 20 20 20 20 20 20 66 75 6e 63 74 69 6f 6e 73 20 | ps.the.two.;;;........functions. |
| 172220 | 63 61 6e 20 62 65 20 6d 65 72 67 65 64 2e 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 67 72 6f 75 | can.be.merged..(defun.slime-grou |
| 172240 | 70 2d 73 69 6d 69 6c 61 72 20 28 73 69 6d 69 6c 61 72 2d 70 20 6c 69 73 74 29 0a 20 20 22 52 65 | p-similar.(similar-p.list)..."Re |
| 172260 | 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 6f 66 20 27 73 69 6d 69 6c | turn.the.list.of.lists.of.'simil |
| 172280 | 61 72 27 20 61 64 6a 61 63 65 6e 74 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2e 0a 54 | ar'.adjacent.elements.of.LIST..T |
| 1722a0 | 68 65 20 66 75 6e 63 74 69 6f 6e 20 53 49 4d 49 4c 41 52 2d 50 20 69 73 20 75 73 65 64 20 74 6f | he.function.SIMILAR-P.is.used.to |
| 1722c0 | 20 74 65 73 74 20 66 6f 72 20 73 69 6d 69 6c 61 72 69 74 79 2e 0a 54 68 65 20 6f 72 64 65 72 20 | .test.for.similarity..The.order. |
| 1722e0 | 6f 66 20 74 68 65 20 69 6e 70 75 74 20 6c 69 73 74 20 69 73 20 70 72 65 73 65 72 76 65 64 2e 22 | of.the.input.list.is.preserved." |
| 172300 | 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 6c 69 73 74 29 0a 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 | ...(if.(null.list).......nil.... |
| 172320 | 20 28 6c 65 74 20 28 28 61 63 63 75 6d 75 6c 61 74 6f 72 20 28 6c 69 73 74 20 28 6c 69 73 74 20 | .(let.((accumulator.(list.(list. |
| 172340 | 28 63 61 72 20 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 78 20 | (car.list))))).......(dolist.(x. |
| 172360 | 28 63 64 72 20 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 66 75 6e 63 61 6c 6c | (cdr.list)).........(if.(funcall |
| 172380 | 20 73 69 6d 69 6c 61 72 2d 70 20 78 20 28 63 61 61 72 20 61 63 63 75 6d 75 6c 61 74 6f 72 29 29 | .similar-p.x.(caar.accumulator)) |
| 1723a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 78 20 28 63 61 72 20 61 63 63 75 6d 75 | .............(push.x.(car.accumu |
| 1723c0 | 6c 61 74 6f 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 78 29 | lator))...........(push.(list.x) |
| 1723e0 | 20 61 63 63 75 6d 75 6c 61 74 6f 72 29 29 29 0a 20 20 20 20 20 20 28 72 65 76 65 72 73 65 20 28 | .accumulator))).......(reverse.( |
| 172400 | 6d 61 70 63 61 72 20 23 27 72 65 76 65 72 73 65 20 61 63 63 75 6d 75 6c 61 74 6f 72 29 29 29 29 | mapcar.#'reverse.accumulator)))) |
| 172420 | 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 6c 69 73 74 69 66 79 20 28 6c 69 73 74 20 6b | )..(defun.slime-alistify.(list.k |
| 172440 | 65 79 20 74 65 73 74 29 0a 20 20 22 50 61 72 74 69 74 69 6f 6e 20 74 68 65 20 65 6c 65 6d 65 6e | ey.test)..."Partition.the.elemen |
| 172460 | 74 73 20 6f 66 20 4c 49 53 54 20 69 6e 74 6f 20 61 6e 20 61 6c 69 73 74 2e 0a 4b 45 59 20 65 78 | ts.of.LIST.into.an.alist..KEY.ex |
| 172480 | 74 72 61 63 74 73 20 74 68 65 20 6b 65 79 20 66 72 6f 6d 20 61 6e 20 65 6c 65 6d 65 6e 74 20 61 | tracts.the.key.from.an.element.a |
| 1724a0 | 6e 64 20 54 45 53 54 20 69 73 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 61 72 65 0a 6b 65 79 73 2e | nd.TEST.is.used.to.compare.keys. |
| 1724c0 | 22 0a 20 20 28 6c 65 74 20 28 28 61 6c 69 73 74 20 27 28 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 | "...(let.((alist.'())).....(doli |
| 1724e0 | 73 74 20 28 65 20 6c 69 73 74 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6b 20 28 66 75 6e | st.(e.list).......(let*.((k.(fun |
| 172500 | 63 61 6c 6c 20 6b 65 79 20 65 29 29 0a 09 20 20 20 20 20 28 70 72 6f 62 65 20 28 63 6c 2d 61 73 | call.key.e)).......(probe.(cl-as |
| 172520 | 73 6f 63 20 6b 20 61 6c 69 73 74 20 3a 74 65 73 74 20 74 65 73 74 29 29 29 0a 09 28 69 66 20 70 | soc.k.alist.:test.test)))..(if.p |
| 172540 | 72 6f 62 65 0a 09 20 20 20 20 28 70 75 73 68 20 65 20 28 63 64 72 20 70 72 6f 62 65 29 29 0a 20 | robe......(push.e.(cdr.probe)).. |
| 172560 | 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 6b 20 28 6c 69 73 74 20 65 29 29 | .........(push.(cons.k.(list.e)) |
| 172580 | 20 61 6c 69 73 74 29 29 29 29 0a 20 20 20 20 3b 3b 20 50 75 74 20 74 68 65 6d 20 62 61 63 6b 20 | .alist)))).....;;.Put.them.back. |
| 1725a0 | 69 6e 20 6f 72 64 65 72 2e 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6b 65 79 20 | in.order......(cl-loop.for.(key. |
| 1725c0 | 2e 20 76 61 6c 75 65 29 20 69 6e 20 28 72 65 76 65 72 73 65 20 61 6c 69 73 74 29 0a 20 20 20 20 | ..value).in.(reverse.alist)..... |
| 1725e0 | 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 63 6f 6e 73 20 6b 65 79 20 28 72 65 76 65 | .........collect.(cons.key.(reve |
| 172600 | 72 73 65 20 76 61 6c 75 65 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 4d 69 73 63 2e 0a 0a 28 64 65 | rse.value)))))..;;;;;.Misc...(de |
| 172620 | 66 75 6e 20 73 6c 69 6d 65 2d 6c 65 6e 67 74 68 3d 20 28 73 65 71 20 6e 29 0a 20 20 22 52 65 74 | fun.slime-length=.(seq.n)..."Ret |
| 172640 | 75 72 6e 20 28 3d 20 28 6c 65 6e 67 74 68 20 53 45 51 29 20 4e 29 2e 22 0a 20 20 28 63 6c 2d 65 | urn.(=.(length.SEQ).N)."...(cl-e |
| 172660 | 74 79 70 65 63 61 73 65 20 73 65 71 0a 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 28 63 6f 6e | typecase.seq.....(list......(con |
| 172680 | 64 20 28 28 7a 65 72 6f 70 20 6e 29 20 28 6e 75 6c 6c 20 73 65 71 29 29 0a 20 20 20 20 20 20 20 | d.((zerop.n).(null.seq))........ |
| 1726a0 | 20 20 20 20 28 28 6c 65 74 20 28 28 74 61 69 6c 20 28 6e 74 68 63 64 72 20 28 31 2d 20 6e 29 20 | ....((let.((tail.(nthcdr.(1-.n). |
| 1726c0 | 73 65 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 74 61 69 6c 20 28 | seq)))...............(and.tail.( |
| 1726e0 | 6e 75 6c 6c 20 28 63 64 72 20 74 61 69 6c 29 29 29 29 29 29 29 0a 20 20 20 20 28 73 65 71 75 65 | null.(cdr.tail))))))).....(seque |
| 172700 | 6e 63 65 0a 20 20 20 20 20 28 3d 20 28 6c 65 6e 67 74 68 20 73 65 71 29 20 6e 29 29 29 29 0a 0a | nce......(=.(length.seq).n)))).. |
| 172720 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c 65 6e 67 74 68 3e 20 28 73 65 71 20 6e 29 0a 20 20 22 | (defun.slime-length>.(seq.n)..." |
| 172740 | 52 65 74 75 72 6e 20 28 3e 20 28 6c 65 6e 67 74 68 20 53 45 51 29 20 4e 29 2e 22 0a 20 20 28 63 | Return.(>.(length.SEQ).N)."...(c |
| 172760 | 6c 2d 65 74 79 70 65 63 61 73 65 20 73 65 71 0a 20 20 20 20 28 6c 69 73 74 20 28 6e 74 68 63 64 | l-etypecase.seq.....(list.(nthcd |
| 172780 | 72 20 6e 20 73 65 71 29 29 0a 20 20 20 20 28 73 65 71 75 65 6e 63 65 20 28 3e 20 28 6c 65 6e 67 | r.n.seq)).....(sequence.(>.(leng |
| 1727a0 | 74 68 20 73 65 71 29 20 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 72 69 6d | th.seq).n))))..(defun.slime-trim |
| 1727c0 | 2d 77 68 69 74 65 73 70 61 63 65 20 28 73 74 72 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 | -whitespace.(str)...(let.((start |
| 1727e0 | 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 2d 69 66 2d 6e 6f 74 20 28 6c 61 6d 62 64 61 20 28 78 29 | .(cl-position-if-not.(lambda.(x) |
| 172800 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 172820 | 20 20 20 20 20 20 28 6d 65 6d 71 20 78 20 27 28 3f 5c 74 20 3f 5c 6e 20 3f 5c 73 20 3f 5c 72 29 | ......(memq.x.'(?\t.?\n.?\s.?\r) |
| 172840 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )).............................. |
| 172860 | 20 20 20 20 20 20 73 74 72 29 29 0a 0a 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 63 6c 2d 70 6f | ......str))..........(end.(cl-po |
| 172880 | 73 69 74 69 6f 6e 2d 69 66 2d 6e 6f 74 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 | sition-if-not.(lambda.(x)....... |
| 1728a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 | .............................(me |
| 1728c0 | 6d 71 20 78 20 27 28 3f 5c 74 20 3f 5c 6e 20 3f 5c 73 20 3f 5c 72 29 29 29 0a 20 20 20 20 20 20 | mq.x.'(?\t.?\n.?\s.?\r)))....... |
| 1728e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 0a 20 | ...........................str.. |
| 172900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 172920 | 3a 66 72 6f 6d 2d 65 6e 64 20 74 29 29 29 0a 20 20 20 20 28 69 66 20 73 74 61 72 74 0a 20 20 20 | :from-end.t))).....(if.start.... |
| 172940 | 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 73 74 72 20 73 74 61 72 74 20 28 31 2b 20 65 6e | .....(substring.str.start.(1+.en |
| 172960 | 64 29 29 0a 20 20 20 20 20 20 20 20 22 22 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 42 75 66 66 65 72 20 | d))........."")))..;;;;;.Buffer. |
| 172980 | 72 65 6c 61 74 65 64 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 72 | related..(defun.slime-buffer-nar |
| 1729a0 | 72 6f 77 65 64 2d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 62 75 66 66 65 72 29 0a 20 20 22 52 65 | rowed-p.(&optional.buffer)..."Re |
| 1729c0 | 74 75 72 6e 73 20 54 20 69 66 20 42 55 46 46 45 52 20 28 6f 72 20 74 68 65 20 63 75 72 72 65 6e | turns.T.if.BUFFER.(or.the.curren |
| 1729e0 | 74 20 62 75 66 66 65 72 20 72 65 73 70 65 63 74 69 76 65 6c 79 29 20 69 73 20 6e 61 72 72 6f 77 | t.buffer.respectively).is.narrow |
| 172a00 | 65 64 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 20 | ed."...(with-current-buffer.(or. |
| 172a20 | 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 6c 65 | buffer.(current-buffer)).....(le |
| 172a40 | 74 20 28 28 62 65 67 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | t.((beg.(point-min))...........( |
| 172a60 | 65 6e 64 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 6f 74 61 | end.(point-max))...........(tota |
| 172a80 | 6c 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 29 29 0a 20 20 20 20 20 20 28 6f 72 20 28 2f 3d 20 | l.(buffer-size))).......(or.(/=. |
| 172aa0 | 62 65 67 20 31 29 20 28 2f 3d 20 65 6e 64 20 28 31 2b 20 74 6f 74 61 6c 29 29 29 29 29 29 0a 0a | beg.1).(/=.end.(1+.total)))))).. |
| 172ac0 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6f 6c 75 6d 6e 2d 6d 61 78 20 28 29 0a 20 20 28 73 61 | (defun.slime-column-max.()...(sa |
| 172ae0 | 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 | ve-excursion.....(goto-char.(poi |
| 172b00 | 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 63 6f 6c 75 6d 6e | nt-min)).....(cl-loop.for.column |
| 172b20 | 20 3d 20 28 70 72 6f 67 32 20 28 65 6e 64 2d 6f 66 2d 6c 69 6e 65 29 20 28 63 75 72 72 65 6e 74 | .=.(prog2.(end-of-line).(current |
| 172b40 | 2d 63 6f 6c 75 6d 6e 29 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 | -column).(forward-line))........ |
| 172b60 | 20 20 20 20 20 20 75 6e 74 69 6c 20 28 3d 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 61 | ......until.(=.(point).(point-ma |
| 172b80 | 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 69 6d 69 7a 69 6e 67 20 63 6f 6c 75 | x))..............maximizing.colu |
| 172ba0 | 6d 6e 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 43 4c 20 73 79 6d 62 6f 6c 73 20 76 73 2e 20 45 6c 69 73 | mn)))..;;;;;.CL.symbols.vs..Elis |
| 172bc0 | 70 20 73 79 6d 62 6f 6c 73 2e 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 2d 73 79 6d 62 | p.symbols...(defun.slime-cl-symb |
| 172be0 | 6f 6c 2d 6e 61 6d 65 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 20 28 28 6e 20 28 69 66 20 | ol-name.(symbol)...(let.((n.(if. |
| 172c00 | 28 73 74 72 69 6e 67 70 20 73 79 6d 62 6f 6c 29 20 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d | (stringp.symbol).symbol.(symbol- |
| 172c20 | 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d | name.symbol)))).....(if.(string- |
| 172c40 | 6d 61 74 63 68 20 22 3a 5c 5c 28 5b 5e 3a 5d 2a 5c 5c 29 24 22 20 6e 29 0a 09 28 6c 65 74 20 28 | match.":\\([^:]*\\)$".n)..(let.( |
| 172c60 | 28 73 79 6d 62 6f 6c 2d 70 61 72 74 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6e 29 29 | (symbol-part.(match-string.1.n)) |
| 172c80 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e | )...........(if.(string-match."^ |
| 172ca0 | 7c 5c 5c 28 2e 2a 5c 5c 29 7c 24 22 20 73 79 6d 62 6f 6c 2d 70 61 72 74 29 0a 20 20 20 20 20 20 | |\\(.*\\)|$".symbol-part)....... |
| 172cc0 | 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 73 79 6d 62 6f 6c 2d 70 | ........(match-string.1.symbol-p |
| 172ce0 | 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 2d 70 61 72 74 29 29 0a 20 | art).............symbol-part)).. |
| 172d00 | 20 20 20 20 20 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 6c 2d 73 79 6d 62 6f | .....n)))..(defun.slime-cl-symbo |
| 172d20 | 6c 2d 70 61 63 6b 61 67 65 20 28 73 79 6d 62 6f 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 66 61 | l-package.(symbol.&optional.defa |
| 172d40 | 75 6c 74 29 0a 20 20 28 6c 65 74 20 28 28 6e 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 73 79 6d | ult)...(let.((n.(if.(stringp.sym |
| 172d60 | 62 6f 6c 29 20 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 | bol).symbol.(symbol-name.symbol) |
| 172d80 | 29 29 29 0a 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5c 5c 28 5b | ))).....(if.(string-match."^\\([ |
| 172da0 | 5e 3a 5d 2a 5c 5c 29 3a 22 20 6e 29 0a 09 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6e 29 | ^:]*\\):".n)..(match-string.1.n) |
| 172dc0 | 0a 20 20 20 20 20 20 64 65 66 61 75 6c 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | .......default)))..(defun.slime- |
| 172de0 | 71 75 61 6c 69 66 79 2d 63 6c 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 73 79 6d 62 6f 6c 2d 6f | qualify-cl-symbol-name.(symbol-o |
| 172e00 | 72 2d 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 70 61 63 6b 61 67 65 2d 71 75 61 6c | r-name)..."Return.a.package-qual |
| 172e20 | 69 66 69 65 64 20 73 74 72 69 6e 67 20 66 6f 72 20 53 59 4d 42 4f 4c 2d 4f 52 2d 4e 41 4d 45 2e | ified.string.for.SYMBOL-OR-NAME. |
| 172e40 | 0a 49 66 20 53 59 4d 42 4f 4c 2d 4f 52 2d 4e 41 4d 45 20 64 6f 65 73 6e 27 74 20 61 6c 72 65 61 | .If.SYMBOL-OR-NAME.doesn't.alrea |
| 172e60 | 64 79 20 68 61 76 65 20 61 20 70 61 63 6b 61 67 65 20 70 72 65 66 69 78 20 74 68 65 0a 63 75 72 | dy.have.a.package.prefix.the.cur |
| 172e80 | 72 65 6e 74 20 70 61 63 6b 61 67 65 20 69 73 20 75 73 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 | rent.package.is.used."...(let.(( |
| 172ea0 | 73 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 73 79 6d 62 6f 6c 2d 6f 72 2d 6e 61 6d 65 29 0a 20 | s.(if.(stringp.symbol-or-name).. |
| 172ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 2d 6f 72 2d 6e 61 6d 65 0a 20 20 20 | ..............symbol-or-name.... |
| 172ee0 | 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 2d 6f 72 | ..........(symbol-name.symbol-or |
| 172f00 | 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 73 6c 69 6d 65 2d 63 6c 2d 73 79 6d 62 | -name)))).....(if.(slime-cl-symb |
| 172f20 | 6f 6c 2d 70 61 63 6b 61 67 65 20 73 29 0a 20 20 20 20 20 20 20 20 73 0a 20 20 20 20 20 20 28 66 | ol-package.s).........s.......(f |
| 172f40 | 6f 72 6d 61 74 20 22 25 73 3a 3a 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | ormat."%s::%s"...............(le |
| 172f60 | 74 2a 20 28 28 70 61 63 6b 61 67 65 20 28 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b | t*.((package.(slime-current-pack |
| 172f80 | 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 61 63 6b 61 67 | age))).................;;.packag |
| 172fa0 | 65 20 69 73 20 61 20 73 74 72 69 6e 67 20 6c 69 6b 65 20 22 3a 63 6c 2d 75 73 65 72 22 0a 20 20 | e.is.a.string.like.":cl-user"... |
| 172fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6f 72 20 22 43 4c 2d 55 53 45 52 22 2c 20 6f | ..............;;.or."CL-USER",.o |
| 172fe0 | 72 20 22 5c 22 43 4c 2d 55 53 45 52 5c 22 22 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r."\"CL-USER\""................. |
| 173000 | 20 28 69 66 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(if.package.................... |
| 173020 | 20 28 73 6c 69 6d 65 2d 70 72 65 74 74 79 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b | .(slime-pretty-package-name.pack |
| 173040 | 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 43 4c 2d 55 53 45 52 22 | age)..................."CL-USER" |
| 173060 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6c 2d 73 79 6d 62 6f | ))...............(slime-cl-symbo |
| 173080 | 6c 2d 6e 61 6d 65 20 73 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 4d 6f 76 69 6e 67 2c 20 43 4c 20 | l-name.s)))))..;;;;;.Moving,.CL. |
| 1730a0 | 69 64 69 6f 73 79 6e 63 72 61 63 69 65 73 20 61 77 61 72 65 20 28 72 65 61 64 65 72 20 63 6f 6e | idiosyncracies.aware.(reader.con |
| 1730c0 | 64 69 74 69 6f 6e 61 6c 73 20 26 63 2e 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d | ditionals.&c.)..(defmacro.slime- |
| 1730e0 | 70 6f 69 6e 74 2d 6d 6f 76 65 73 2d 70 20 28 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 45 78 | point-moves-p.(&rest.body)..."Ex |
| 173100 | 65 63 75 74 65 20 42 4f 44 59 20 61 6e 64 20 72 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 | ecute.BODY.and.return.true.if.th |
| 173120 | 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 20 70 6f 69 6e 74 20 6d 6f 76 65 64 2e 22 | e.current.buffer's.point.moved." |
| 173140 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 30 29 29 0a 20 20 28 6c 65 74 20 28 | ...(declare.(indent.0))...(let.( |
| 173160 | 28 70 6f 69 6e 74 76 61 72 20 28 63 6c 2d 67 65 6e 73 79 6d 20 22 70 6f 69 6e 74 2d 22 29 29 29 | (pointvar.(cl-gensym."point-"))) |
| 173180 | 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 70 6f 69 6e 74 76 61 72 20 28 70 6f 69 6e 74 29 29 29 | .....`(let.((,pointvar.(point))) |
| 1731a0 | 0a 20 20 20 20 20 20 20 28 73 61 76 65 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 2c 40 62 | ........(save-current-buffer.,@b |
| 1731c0 | 6f 64 79 29 0a 20 20 20 20 20 20 20 28 2f 3d 20 2c 70 6f 69 6e 74 76 61 72 20 28 70 6f 69 6e 74 | ody)........(/=.,pointvar.(point |
| 1731e0 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 73 65 78 70 | )))))..(defun.slime-forward-sexp |
| 173200 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 75 6e 74 29 0a 20 20 22 4c 69 6b 65 20 60 66 6f 72 77 | .(&optional.count)..."Like.`forw |
| 173220 | 61 72 64 2d 73 65 78 70 27 2c 20 62 75 74 20 75 6e 64 65 72 73 74 61 6e 64 73 20 72 65 61 64 65 | ard-sexp',.but.understands.reade |
| 173240 | 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 20 28 23 2d 20 61 6e 64 20 23 2b 29 2c 0a 61 6e 64 20 | r-conditionals.(#-.and.#+),.and. |
| 173260 | 73 6b 69 70 73 20 63 6f 6d 6d 65 6e 74 73 2e 22 0a 20 20 28 64 6f 74 69 6d 65 73 20 28 5f 69 20 | skips.comments."...(dotimes.(_i. |
| 173280 | 28 6f 72 20 63 6f 75 6e 74 20 31 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 | (or.count.1)).....(slime-forward |
| 1732a0 | 2d 63 72 75 66 74 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 29 29 0a 0a 28 64 | -cruft).....(forward-sexp)))..(d |
| 1732c0 | 65 66 63 6f 6e 73 74 20 73 6c 69 6d 65 2d 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c | efconst.slime-reader-conditional |
| 1732e0 | 73 2d 72 65 67 65 78 70 0a 20 20 3b 3b 20 23 21 2b 2c 20 23 21 2d 20 61 72 65 20 53 42 43 4c 20 | s-regexp...;;.#!+,.#!-.are.SBCL. |
| 173300 | 73 70 65 63 69 66 69 63 20 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 73 79 6e 74 | specific.reader-conditional.synt |
| 173320 | 61 78 2e 0a 20 20 3b 3b 20 57 65 20 6e 65 65 64 20 74 68 69 73 20 66 6f 72 20 74 68 65 20 73 6f | ax....;;.We.need.this.for.the.so |
| 173340 | 75 72 63 65 20 66 69 6c 65 73 20 6f 66 20 53 42 43 4c 20 69 74 73 65 6c 66 2e 0a 20 20 28 72 65 | urce.files.of.SBCL.itself....(re |
| 173360 | 67 65 78 70 2d 6f 70 74 20 27 28 22 23 2b 22 20 22 23 2d 22 20 22 23 21 2b 22 20 22 23 21 2d 22 | gexp-opt.'("#+"."#-"."#!+"."#!-" |
| 173380 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 72 65 61 64 65 72 | )))..(defun.slime-forward-reader |
| 1733a0 | 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 28 29 0a 20 20 22 4d 6f 76 65 20 70 61 73 74 20 61 6e 79 | -conditional.()..."Move.past.any |
| 1733c0 | 20 72 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 28 23 2b 20 6f 72 20 23 2d 29 20 61 | .reader.conditional.(#+.or.#-).a |
| 1733e0 | 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 77 68 65 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 73 6c | t.point."...(when.(looking-at.sl |
| 173400 | 69 6d 65 2d 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 2d 72 65 67 65 78 70 29 0a | ime-reader-conditionals-regexp). |
| 173420 | 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 0a 20 20 | ....(goto-char.(match-end.0))... |
| 173440 | 20 20 28 6c 65 74 2a 20 28 28 70 6c 75 73 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 2d 70 20 28 65 71 | ..(let*.((plus-conditional-p.(eq |
| 173460 | 20 28 63 68 61 72 2d 62 65 66 6f 72 65 29 20 3f 2b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | .(char-before).?+))............( |
| 173480 | 72 65 73 75 6c 74 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 | result.(slime-eval-feature-expre |
| 1734a0 | 73 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 | ssion.....................(condi |
| 1734c0 | 74 69 6f 6e 2d 63 61 73 65 20 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion-case.e..................... |
| 1734e0 | 20 20 20 20 28 72 65 61 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 | ....(read.(current-buffer))..... |
| 173500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 76 61 6c 69 64 2d 72 65 61 64 2d | ..................(invalid-read- |
| 173520 | 73 79 6e 74 61 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | syntax........................(s |
| 173540 | 69 67 6e 61 6c 20 27 73 6c 69 6d 65 2d 75 6e 6b 6e 6f 77 6e 2d 66 65 61 74 75 72 65 2d 65 78 70 | ignal.'slime-unknown-feature-exp |
| 173560 | 72 65 73 73 69 6f 6e 20 28 63 64 72 20 65 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 75 6e 6c | ression.(cdr.e))))))).......(unl |
| 173580 | 65 73 73 20 28 69 66 20 70 6c 75 73 2d 63 6f 6e 64 69 74 69 6f 6e 61 6c 2d 70 20 72 65 73 75 6c | ess.(if.plus-conditional-p.resul |
| 1735a0 | 74 20 28 6e 6f 74 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 73 6b 69 70 20 | t.(not.result)).........;;.skip. |
| 1735c0 | 74 68 69 73 20 73 65 78 70 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 | this.sexp.........(slime-forward |
| 1735e0 | 2d 73 65 78 70 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 | -sexp)))))..(defun.slime-forward |
| 173600 | 2d 63 72 75 66 74 20 28 29 0a 20 20 22 4d 6f 76 65 20 66 6f 72 77 61 72 64 20 6f 76 65 72 20 77 | -cruft.()..."Move.forward.over.w |
| 173620 | 68 69 74 65 73 70 61 63 65 2c 20 63 6f 6d 6d 65 6e 74 73 2c 20 72 65 61 64 65 72 20 63 6f 6e 64 | hitespace,.comments,.reader.cond |
| 173640 | 69 74 69 6f 6e 61 6c 73 2e 22 0a 20 20 28 77 68 69 6c 65 20 28 73 6c 69 6d 65 2d 70 6f 69 6e 74 | itionals."...(while.(slime-point |
| 173660 | 2d 6d 6f 76 65 73 2d 70 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 5c | -moves-p.(skip-chars-forward.".\ |
| 173680 | 74 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t\n")........................... |
| 1736a0 | 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 6f 6d 6d 65 6e 74 20 28 62 75 66 66 65 72 2d 73 69 7a | ....(forward-comment.(buffer-siz |
| 1736c0 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e))............................. |
| 1736e0 | 20 20 28 69 6e 6c 69 6e 65 20 28 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 72 65 61 64 65 72 2d | ..(inline.(slime-forward-reader- |
| 173700 | 63 6f 6e 64 69 74 69 6f 6e 61 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6b | conditional)))))..(defun.slime-k |
| 173720 | 65 79 77 6f 72 64 69 66 79 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 4d 61 6b 65 20 61 20 6b 65 79 | eywordify.(symbol)..."Make.a.key |
| 173740 | 77 6f 72 64 20 6f 75 74 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 53 59 4d 42 4f 4c 2e 22 0a | word.out.of.the.symbol.SYMBOL.". |
| 173760 | 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 64 6f 77 6e 63 61 73 65 20 28 73 79 6d 62 6f 6c 2d | ..(let.((name.(downcase.(symbol- |
| 173780 | 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 28 69 6e 74 65 72 6e 20 28 69 66 20 | name.symbol)))).....(intern.(if. |
| 1737a0 | 28 65 71 20 3f 3a 20 28 61 72 65 66 20 6e 61 6d 65 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 | (eq.?:.(aref.name.0))........... |
| 1737c0 | 20 20 20 20 20 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 | ......name...............(concat |
| 1737e0 | 20 22 3a 22 20 6e 61 6d 65 29 29 29 29 29 0a 0a 28 70 75 74 20 27 73 6c 69 6d 65 2d 69 6e 63 6f | .":".name)))))..(put.'slime-inco |
| 173800 | 72 72 65 63 74 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 20 20 20 20 27 65 | rrect-feature-expression......'e |
| 173820 | 72 72 6f 72 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 27 28 73 6c 69 6d 65 2d 69 6e 63 6f 72 72 65 63 | rror-conditions.'(slime-incorrec |
| 173840 | 74 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 20 65 72 72 6f 72 29 29 0a 0a 28 70 | t-feature-expression.error))..(p |
| 173860 | 75 74 20 27 73 6c 69 6d 65 2d 75 6e 6b 6e 6f 77 6e 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 | ut.'slime-unknown-feature-expres |
| 173880 | 73 69 6f 6e 0a 20 20 20 20 20 27 65 72 72 6f 72 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 27 28 73 6c | sion......'error-conditions.'(sl |
| 1738a0 | 69 6d 65 2d 75 6e 6b 6e 6f 77 6e 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 | ime-unknown-feature-expression.. |
| 1738c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 69 6e | ........................slime-in |
| 1738e0 | 63 6f 72 72 65 63 74 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 20 20 20 20 | correct-feature-expression...... |
| 173900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 29 29 0a 0a 3b 3b 20 | ....................error))..;;. |
| 173920 | 46 49 58 4d 45 3a 20 6c 65 74 20 69 74 20 63 72 61 73 68 0a 3b 3b 20 46 49 58 4d 45 3a 20 74 68 | FIXME:.let.it.crash.;;.FIXME:.th |
| 173940 | 65 20 6c 65 6e 67 74 68 3d 31 20 63 6f 6e 73 74 72 61 69 6e 74 20 69 73 20 62 6f 67 75 73 0a 28 | e.length=1.constraint.is.bogus.( |
| 173960 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 | defun.slime-eval-feature-express |
| 173980 | 69 6f 6e 20 28 65 29 0a 20 20 22 49 6e 74 65 72 70 72 65 74 20 61 20 72 65 61 64 65 72 20 63 6f | ion.(e)..."Interpret.a.reader.co |
| 1739a0 | 6e 64 69 74 69 6f 6e 61 6c 20 65 78 70 72 65 73 73 69 6f 6e 2e 22 0a 20 20 28 63 6f 6e 64 20 28 | nditional.expression."...(cond.( |
| 1739c0 | 28 73 79 6d 62 6f 6c 70 20 65 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 6d 71 20 28 73 6c 69 6d | (symbolp.e)..........(memq.(slim |
| 1739e0 | 65 2d 6b 65 79 77 6f 72 64 69 66 79 20 65 29 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 66 65 61 74 | e-keywordify.e).(slime-lisp-feat |
| 173a00 | 75 72 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 63 6f 6e 73 70 20 65 29 20 | ures))).........((and.(consp.e). |
| 173a20 | 28 73 79 6d 62 6f 6c 70 20 28 63 61 72 20 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 75 6e | (symbolp.(car.e)))..........(fun |
| 173a40 | 63 61 6c 6c 20 28 6c 65 74 20 28 28 68 65 61 64 20 28 73 6c 69 6d 65 2d 6b 65 79 77 6f 72 64 69 | call.(let.((head.(slime-keywordi |
| 173a60 | 66 79 20 28 63 61 72 20 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fy.(car.e))))................... |
| 173a80 | 20 20 28 63 6c 2d 63 61 73 65 20 68 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(cl-case.head................. |
| 173aa0 | 20 20 20 20 20 20 28 3a 61 6e 64 20 23 27 63 6c 2d 65 76 65 72 79 29 0a 20 20 20 20 20 20 20 20 | ......(:and.#'cl-every)......... |
| 173ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6f 72 20 23 27 63 6c 2d 73 6f 6d 65 29 0a 20 20 | ..............(:or.#'cl-some)... |
| 173ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 6f 74 0a 20 20 20 20 20 20 | ....................(:not....... |
| 173b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 65 61 74 75 72 65 2d | .................(let.((feature- |
| 173b20 | 65 78 70 72 65 73 73 69 6f 6e 20 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | expression.e)).................. |
| 173b40 | 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 66 20 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | ........(lambda.(f.l)........... |
| 173b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 | .................(cond.......... |
| 173b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 6c 65 6e 67 74 | ...................((slime-lengt |
| 173ba0 | 68 3d 20 6c 20 30 29 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h=.l.0).t)...................... |
| 173bc0 | 20 20 20 20 20 20 20 28 28 73 6c 69 6d 65 2d 6c 65 6e 67 74 68 3d 20 6c 20 31 29 20 28 6e 6f 74 | .......((slime-length=.l.1).(not |
| 173be0 | 20 28 61 70 70 6c 79 20 66 20 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(apply.f.l))).................. |
| 173c00 | 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 73 69 67 6e 61 6c 20 27 73 6c 69 6d 65 2d 69 6e 63 | ...........(t.(signal.'slime-inc |
| 173c20 | 6f 72 72 65 63 74 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 | orrect-feature-expression....... |
| 173c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 173c60 | 20 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 29 29 29 29 29 29 0a 20 20 20 20 20 20 | .feature-expression))))))....... |
| 173c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 73 69 67 6e 61 6c 20 27 73 6c 69 6d | ................(t.(signal.'slim |
| 173ca0 | 65 2d 75 6e 6b 6e 6f 77 6e 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 20 68 65 61 | e-unknown-feature-expression.hea |
| 173cc0 | 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d | d))))...................#'slime- |
| 173ce0 | 65 76 61 6c 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 | eval-feature-expression......... |
| 173d00 | 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 | ..........(cdr.e))).........(t.( |
| 173d20 | 73 69 67 6e 61 6c 20 27 73 6c 69 6d 65 2d 69 6e 63 6f 72 72 65 63 74 2d 66 65 61 74 75 72 65 2d | signal.'slime-incorrect-feature- |
| 173d40 | 65 78 70 72 65 73 73 69 6f 6e 20 65 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 45 78 74 72 61 63 74 69 | expression.e))))..;;;;;.Extracti |
| 173d60 | 6e 67 20 4c 69 73 70 20 66 6f 72 6d 73 20 66 72 6f 6d 20 74 68 65 20 62 75 66 66 65 72 20 6f 72 | ng.Lisp.forms.from.the.buffer.or |
| 173d80 | 20 75 73 65 72 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 64 65 66 75 6e 2d 61 74 2d 70 6f 69 | .user..(defun.slime-defun-at-poi |
| 173da0 | 6e 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 74 65 78 74 20 6f 66 20 74 68 65 20 | nt.()..."Return.the.text.of.the. |
| 173dc0 | 64 65 66 75 6e 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 61 70 70 6c 79 20 23 27 62 75 66 66 | defun.at.point."...(apply.#'buff |
| 173de0 | 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 | er-substring-no-properties...... |
| 173e00 | 20 20 20 20 28 73 6c 69 6d 65 2d 72 65 67 69 6f 6e 2d 66 6f 72 2d 64 65 66 75 6e 2d 61 74 2d 70 | ....(slime-region-for-defun-at-p |
| 173e20 | 6f 69 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 72 65 67 69 6f 6e 2d 66 6f 72 | oint)))..(defun.slime-region-for |
| 173e40 | 2d 64 65 66 75 6e 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 | -defun-at-point.()..."Return.the |
| 173e60 | 20 73 74 61 72 74 20 61 6e 64 20 65 6e 64 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 64 65 66 75 6e | .start.and.end.position.of.defun |
| 173e80 | 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 | .at.point."...(save-excursion... |
| 173ea0 | 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 28 65 6e 64 2d 6f 66 | ..(save-match-data.......(end-of |
| 173ec0 | 2d 64 65 66 75 6e 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 6e 64 20 28 70 6f 69 6e 74 29 | -defun).......(let.((end.(point) |
| 173ee0 | 29 29 0a 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 29 0a | )).........(beginning-of-defun). |
| 173f00 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 70 6f 69 6e 74 29 20 65 6e 64 29 29 29 29 29 0a 0a | ........(list.(point).end))))).. |
| 173f20 | 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 73 79 6d 62 6f 6c | (defun.slime-beginning-of-symbol |
| 173f40 | 20 28 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 | .()..."Move.to.the.beginning.of. |
| 173f60 | 74 68 65 20 43 4c 2d 73 74 79 6c 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 | the.CL-style.symbol.at.point.".. |
| 173f80 | 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5c 5c 28 | .(while.(re-search-backward."\\( |
| 173fa0 | 5c 5c 73 77 5c 5c 7c 5c 5c 73 5f 5c 5c 7c 5c 5c 73 5c 5c 2e 5c 5c 7c 5c 5c 73 5c 5c 5c 5c 7c 5b | \\sw\\|\\s_\\|\\s\\.\\|\\s\\\\|[ |
| 173fc0 | 23 40 7c 5d 5c 5c 29 5c 5c 3d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | #@|]\\)\\="..................... |
| 173fe0 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 20 28 70 6f 69 6e 74 29 20 32 30 30 30 29 20 | .........(when.(>.(point).2000). |
| 174000 | 28 2d 20 28 70 6f 69 6e 74 29 20 32 30 30 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (-.(point).2000))............... |
| 174020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 0a 20 20 28 72 65 2d 73 65 61 72 63 68 2d | ...............t))...(re-search- |
| 174040 | 66 6f 72 77 61 72 64 20 22 5c 5c 3d 23 5b 2d 2b 2e 3c 7c 5d 22 20 6e 69 6c 20 74 29 0a 20 20 28 | forward."\\=#[-+.<|]".nil.t)...( |
| 174060 | 77 68 65 6e 20 28 61 6e 64 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 40 22 29 20 28 65 71 20 28 | when.(and.(looking-at."@").(eq.( |
| 174080 | 63 68 61 72 2d 62 65 66 6f 72 65 29 20 3f 5c 2c 29 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d | char-before).?\,)).....(forward- |
| 1740a0 | 63 68 61 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 73 79 6d | char)))..(defun.slime-end-of-sym |
| 1740c0 | 62 6f 6c 20 28 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 | bol.()..."Move.to.the.end.of.the |
| 1740e0 | 20 43 4c 2d 73 74 79 6c 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 72 | .CL-style.symbol.at.point."...(r |
| 174100 | 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 5c 3d 5c 5c 28 5c 5c 73 77 5c 5c 7c 5c | e-search-forward."\\=\\(\\sw\\|\ |
| 174120 | 5c 73 5f 5c 5c 7c 5c 5c 73 5c 5c 2e 5c 5c 7c 23 3a 5c 5c 7c 5b 40 7c 5d 5c 5c 29 2a 22 29 29 0a | \s_\\|\\s\\.\\|#:\\|[@|]\\)*")). |
| 174140 | 0a 28 70 75 74 20 27 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 20 27 65 6e 64 2d 6f 70 20 27 73 6c 69 | .(put.'slime-symbol.'end-op.'sli |
| 174160 | 6d 65 2d 65 6e 64 2d 6f 66 2d 73 79 6d 62 6f 6c 29 0a 28 70 75 74 20 27 73 6c 69 6d 65 2d 73 79 | me-end-of-symbol).(put.'slime-sy |
| 174180 | 6d 62 6f 6c 20 27 62 65 67 69 6e 6e 69 6e 67 2d 6f 70 20 27 73 6c 69 6d 65 2d 62 65 67 69 6e 6e | mbol.'beginning-op.'slime-beginn |
| 1741a0 | 69 6e 67 2d 6f 66 2d 73 79 6d 62 6f 6c 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 79 6d | ing-of-symbol)..(defun.slime-sym |
| 1741c0 | 62 6f 6c 2d 73 74 61 72 74 2d 70 6f 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 | bol-start-pos.()..."Return.the.s |
| 1741e0 | 74 61 72 74 69 6e 67 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 75 | tarting.position.of.the.symbol.u |
| 174200 | 6e 64 65 72 20 70 6f 69 6e 74 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 75 6e 73 70 65 63 | nder.point..The.result.is.unspec |
| 174220 | 69 66 69 65 64 20 69 66 20 74 68 65 72 65 20 69 73 6e 27 74 20 61 20 73 79 6d 62 6f 6c 20 75 6e | ified.if.there.isn't.a.symbol.un |
| 174240 | 64 65 72 20 74 68 65 20 70 6f 69 6e 74 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f | der.the.point."...(save-excursio |
| 174260 | 6e 20 28 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 73 79 6d 62 6f 6c 29 20 28 70 | n.(slime-beginning-of-symbol).(p |
| 174280 | 6f 69 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 65 6e 64 | oint)))..(defun.slime-symbol-end |
| 1742a0 | 2d 70 6f 73 20 28 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 73 6c 69 6d 65 | -pos.()...(save-excursion.(slime |
| 1742c0 | 2d 65 6e 64 2d 6f 66 2d 73 79 6d 62 6f 6c 29 20 28 70 6f 69 6e 74 29 29 29 0a 0a 28 64 65 66 75 | -end-of-symbol).(point)))..(defu |
| 1742e0 | 6e 20 73 6c 69 6d 65 2d 62 6f 75 6e 64 73 2d 6f 66 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e | n.slime-bounds-of-symbol-at-poin |
| 174300 | 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 62 6f 75 6e 64 73 20 6f 66 20 74 68 65 | t.()..."Return.the.bounds.of.the |
| 174320 | 20 73 79 6d 62 6f 6c 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 2e 0a 54 68 65 20 72 65 74 75 72 6e | .symbol.around.point..The.return |
| 174340 | 65 64 20 62 6f 75 6e 64 73 20 61 72 65 20 65 69 74 68 65 72 20 6e 69 6c 20 6f 72 20 6e 6f 6e 2d | ed.bounds.are.either.nil.or.non- |
| 174360 | 65 6d 70 74 79 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 6f 75 6e 64 73 20 28 62 6f 75 6e 64 73 2d | empty."...(let.((bounds.(bounds- |
| 174380 | 6f 66 2d 74 68 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 20 27 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 29 | of-thing-at-point.'slime-symbol) |
| 1743a0 | 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 62 6f 75 6e 64 73 0a 20 20 20 20 20 20 20 20 20 | )).....(if.(and.bounds.......... |
| 1743c0 | 20 20 20 20 28 3c 20 28 63 61 72 20 62 6f 75 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ....(<.(car.bounds)............. |
| 1743e0 | 20 20 20 20 28 63 64 72 20 62 6f 75 6e 64 73 29 29 29 0a 20 20 20 20 20 20 20 20 62 6f 75 6e 64 | ....(cdr.bounds))).........bound |
| 174400 | 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 | s)))..(defun.slime-symbol-at-poi |
| 174420 | 6e 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 | nt.()..."Return.the.name.of.the. |
| 174440 | 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2c 20 6f 74 68 65 72 77 69 73 65 20 6e 69 6c 2e 22 | symbol.at.point,.otherwise.nil." |
| 174460 | 0a 20 20 3b 3b 20 28 74 68 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 20 27 73 79 6d 62 6f 6c 29 20 72 | ...;;.(thing-at-point.'symbol).r |
| 174480 | 65 74 75 72 6e 73 20 22 22 20 69 6e 20 65 6d 70 74 79 20 62 75 66 66 65 72 73 0a 20 20 28 6c 65 | eturns."".in.empty.buffers...(le |
| 1744a0 | 74 20 28 28 62 6f 75 6e 64 73 20 28 73 6c 69 6d 65 2d 62 6f 75 6e 64 73 2d 6f 66 2d 73 79 6d 62 | t.((bounds.(slime-bounds-of-symb |
| 1744c0 | 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 69 66 20 62 6f 75 6e 64 73 0a 20 20 | ol-at-point))).....(if.bounds... |
| 1744e0 | 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 | ......(buffer-substring-no-prope |
| 174500 | 72 74 69 65 73 20 28 63 61 72 20 62 6f 75 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | rties.(car.bounds).............. |
| 174520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 | ...........................(cdr. |
| 174540 | 62 6f 75 6e 64 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 6f 75 6e 64 73 | bounds)))))..(defun.slime-bounds |
| 174560 | 2d 6f 66 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 | -of-sexp-at-point.()..."Return.t |
| 174580 | 68 65 20 62 6f 75 6e 64 73 20 73 65 78 70 20 61 74 20 70 6f 69 6e 74 20 61 73 20 61 20 70 61 69 | he.bounds.sexp.at.point.as.a.pai |
| 1745a0 | 72 20 28 6f 72 20 6e 69 6c 29 2e 22 0a 20 20 28 6f 72 20 28 73 6c 69 6d 65 2d 62 6f 75 6e 64 73 | r.(or.nil)."...(or.(slime-bounds |
| 1745c0 | 2d 6f 66 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 28 61 6e 64 20 | -of-symbol-at-point).......(and. |
| 1745e0 | 28 65 71 75 61 6c 20 28 63 68 61 72 2d 61 66 74 65 72 29 20 3f 5c 28 29 0a 20 20 20 20 20 20 20 | (equal.(char-after).?\()........ |
| 174600 | 20 20 20 20 28 6d 65 6d 62 65 72 20 28 63 68 61 72 2d 62 65 66 6f 72 65 29 20 27 28 3f 5c 27 20 | ....(member.(char-before).'(?\'. |
| 174620 | 3f 5c 2c 20 3f 5c 40 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 68 69 64 65 20 73 74 75 | ?\,.?\@))............;;.hide.stu |
| 174640 | 66 66 20 62 65 66 6f 72 65 20 28 20 74 6f 20 61 76 6f 69 64 20 71 75 69 72 6b 73 20 77 69 74 68 | ff.before.(.to.avoid.quirks.with |
| 174660 | 20 27 28 20 65 74 63 2e 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 | .'(.etc.............(save-restri |
| 174680 | 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 | ction..............(narrow-to-re |
| 1746a0 | 67 69 6f 6e 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 | gion.(point).(point-max))....... |
| 1746c0 | 20 20 20 20 20 20 20 28 62 6f 75 6e 64 73 2d 6f 66 2d 74 68 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 | .......(bounds-of-thing-at-point |
| 1746e0 | 20 27 73 65 78 70 29 29 29 0a 20 20 20 20 20 20 28 62 6f 75 6e 64 73 2d 6f 66 2d 74 68 69 6e 67 | .'sexp))).......(bounds-of-thing |
| 174700 | 2d 61 74 2d 70 6f 69 6e 74 20 27 73 65 78 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 | -at-point.'sexp)))..(defun.slime |
| 174720 | 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 | -sexp-at-point.()..."Return.the. |
| 174740 | 73 65 78 70 20 61 74 20 70 6f 69 6e 74 20 61 73 20 61 20 73 74 72 69 6e 67 2c 20 6f 74 68 65 72 | sexp.at.point.as.a.string,.other |
| 174760 | 77 69 73 65 20 6e 69 6c 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 6f 75 6e 64 73 20 28 73 6c 69 6d | wise.nil."...(let.((bounds.(slim |
| 174780 | 65 2d 62 6f 75 6e 64 73 2d 6f 66 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 | e-bounds-of-sexp-at-point))).... |
| 1747a0 | 20 28 69 66 20 62 6f 75 6e 64 73 0a 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 | .(if.bounds.........(buffer-subs |
| 1747c0 | 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 63 61 72 20 62 6f 75 6e 64 73 29 | tring-no-properties.(car.bounds) |
| 1747e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 174800 | 20 20 20 20 20 20 20 20 20 28 63 64 72 20 62 6f 75 6e 64 73 29 29 29 29 29 0a 0a 28 64 65 66 75 | .........(cdr.bounds)))))..(defu |
| 174820 | 6e 20 73 6c 69 6d 65 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 20 28 | n.slime-sexp-at-point-or-error.( |
| 174840 | 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 65 78 70 20 61 74 20 70 6f 69 6e 74 20 61 73 | )..."Return.the.sexp.at.point.as |
| 174860 | 20 61 20 73 74 72 69 6e 67 2c 20 6f 74 68 77 69 73 65 20 73 69 67 6e 61 6c 20 61 6e 20 65 72 72 | .a.string,.othwise.signal.an.err |
| 174880 | 6f 72 2e 22 0a 20 20 28 6f 72 20 28 73 6c 69 6d 65 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 | or."...(or.(slime-sexp-at-point) |
| 1748a0 | 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 65 78 70 72 65 73 73 69 6f 6e 20 61 74 20 70 | .(user-error."No.expression.at.p |
| 1748c0 | 6f 69 6e 74 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 74 72 69 6e 67 2d 61 74 | oint")))..(defun.slime-string-at |
| 1748e0 | 2d 70 6f 69 6e 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 68 65 20 73 74 72 69 6e 67 20 | -point.()..."Returns.the.string. |
| 174900 | 61 74 20 70 6f 69 6e 74 20 61 73 20 61 20 73 74 72 69 6e 67 2c 20 6f 74 68 65 72 77 69 73 65 20 | at.point.as.a.string,.otherwise. |
| 174920 | 6e 69 6c 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 65 78 70 20 28 73 6c 69 6d 65 2d 73 65 78 70 2d | nil."...(let.((sexp.(slime-sexp- |
| 174940 | 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 73 65 78 70 0a 20 20 | at-point))).....(if.(and.sexp... |
| 174960 | 20 20 20 20 20 20 20 20 20 20 20 28 65 71 6c 20 28 63 68 61 72 2d 73 79 6e 74 61 78 20 28 61 72 | ...........(eql.(char-syntax.(ar |
| 174980 | 65 66 20 73 65 78 70 20 30 29 29 20 3f 5c 22 29 29 0a 20 20 20 20 20 20 20 20 73 65 78 70 0a 20 | ef.sexp.0)).?\")).........sexp.. |
| 1749a0 | 20 20 20 20 20 20 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 74 72 69 | .......nil)))..(defun.slime-stri |
| 1749c0 | 6e 67 2d 61 74 2d 70 6f 69 6e 74 2d 6f 72 2d 65 72 72 6f 72 20 28 29 0a 20 20 22 52 65 74 75 72 | ng-at-point-or-error.()..."Retur |
| 1749e0 | 6e 20 74 68 65 20 73 65 78 70 20 61 74 20 70 6f 69 6e 74 20 61 73 20 61 20 73 74 72 69 6e 67 2c | n.the.sexp.at.point.as.a.string, |
| 174a00 | 20 6f 74 68 77 69 73 65 20 73 69 67 6e 61 6c 20 61 6e 20 65 72 72 6f 72 2e 22 0a 20 20 28 6f 72 | .othwise.signal.an.error."...(or |
| 174a20 | 20 28 73 6c 69 6d 65 2d 73 74 72 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 29 20 28 65 72 72 6f 72 20 | .(slime-string-at-point).(error. |
| 174a40 | 22 4e 6f 20 73 74 72 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 22 29 29 29 0a 0a 28 64 65 66 75 6e | "No.string.at.point.")))..(defun |
| 174a60 | 20 73 6c 69 6d 65 2d 69 6e 70 75 74 2d 63 6f 6d 70 6c 65 74 65 2d 70 20 28 73 74 61 72 74 20 65 | .slime-input-complete-p.(start.e |
| 174a80 | 6e 64 29 0a 20 20 22 52 65 74 75 72 6e 20 74 20 69 66 20 74 68 65 20 72 65 67 69 6f 6e 20 66 72 | nd)..."Return.t.if.the.region.fr |
| 174aa0 | 6f 6d 20 53 54 41 52 54 20 74 6f 20 45 4e 44 20 63 6f 6e 74 61 69 6e 73 20 61 20 63 6f 6d 70 6c | om.START.to.END.contains.a.compl |
| 174ac0 | 65 74 65 20 73 65 78 70 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 | ete.sexp."...(save-excursion.... |
| 174ae0 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6c | .(goto-char.start).....(cond.((l |
| 174b00 | 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 20 2a 5b 27 60 23 5d 3f 5b 28 5c 22 5d 22 29 0a 20 20 | ooking-at."\\s.*['`#]?[(\"]")... |
| 174b20 | 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 | .........(ignore-errors......... |
| 174b40 | 20 20 20 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | .....(save-restriction.......... |
| 174b60 | 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 73 74 61 72 74 20 65 6e | ......(narrow-to-region.start.en |
| 174b80 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4b 65 65 70 20 73 74 65 70 70 69 | d)................;;.Keep.steppi |
| 174ba0 | 6e 67 20 6f 76 65 72 20 62 6c 61 6e 6b 73 20 61 6e 64 20 73 65 78 70 73 20 75 6e 74 69 6c 20 74 | ng.over.blanks.and.sexps.until.t |
| 174bc0 | 68 65 20 65 6e 64 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 75 66 66 | he.end.of................;;.buff |
| 174be0 | 65 72 20 69 73 20 72 65 61 63 68 65 64 20 6f 72 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 73 | er.is.reached.or.an.error.occurs |
| 174c00 | 2e 20 54 6f 6c 65 72 61 74 65 20 65 78 74 72 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..Tolerate.extra................ |
| 174c20 | 3b 3b 20 63 6c 6f 73 65 20 70 61 72 65 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;;.close.parens................. |
| 174c40 | 28 63 6c 2d 6c 6f 6f 70 20 64 6f 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 | (cl-loop.do.(skip-chars-forward. |
| 174c60 | 22 20 5c 74 5c 72 5c 6e 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ".\t\r\n)")..................... |
| 174c80 | 20 20 20 20 75 6e 74 69 6c 20 28 65 6f 62 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....until.(eobp)................ |
| 174ca0 | 20 20 20 20 20 20 20 20 20 64 6f 20 28 66 6f 72 77 61 72 64 2d 73 65 78 70 29 29 0a 20 20 20 20 | .........do.(forward-sexp))..... |
| 174cc0 | 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 74 29 29 | ...........t)))...........(t.t)) |
| 174ce0 | 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 73 6c 69 6d 65 2e 65 6c 20 69 6e 20 70 72 65 74 74 79 20 63 6f | ))....;;;;.slime.el.in.pretty.co |
| 174d00 | 6c 6f 72 73 0a 0a 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 73 79 6d 20 69 6e 20 28 6c 69 73 74 20 | lors..(cl-loop.for.sym.in.(list. |
| 174d20 | 27 73 6c 69 6d 65 2d 64 65 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 76 61 72 0a 20 20 20 20 20 20 | 'slime-def-connection-var....... |
| 174d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 64 65 66 69 6e | ....................'slime-defin |
| 174d60 | 65 2d 63 68 61 6e 6e 65 6c 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-channel-type.................. |
| 174d80 | 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 64 65 66 69 6e 65 2d 63 68 61 6e 6e 65 6c 2d 6d | .........'slime-define-channel-m |
| 174da0 | 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ethod........................... |
| 174dc0 | 27 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 0a 20 20 20 20 20 20 20 20 20 20 | 'define-slime-contrib........... |
| 174de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 64 65 66 75 6e 2d 69 66 2d | ................'slime-defun-if- |
| 174e00 | 75 6e 64 65 66 69 6e 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | undefined....................... |
| 174e20 | 20 20 20 20 27 73 6c 69 6d 65 2d 64 65 66 6d 61 63 72 6f 2d 69 66 2d 75 6e 64 65 66 69 6e 65 64 | ....'slime-defmacro-if-undefined |
| 174e40 | 29 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 72 65 67 65 78 70 20 3d 20 28 66 6f 72 6d 61 74 20 | )..........for.regexp.=.(format. |
| 174e60 | 22 28 5c 5c 28 25 53 5c 5c 29 5c 5c 73 20 2b 5c 5c 28 5c 5c 28 5c 5c 77 5c 5c 7c 5c 5c 73 5f 5c | "(\\(%S\\)\\s.+\\(\\(\\w\\|\\s_\ |
| 174e80 | 5c 29 2b 5c 5c 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | \)+\\)"......................... |
| 174ea0 | 20 20 20 20 20 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 64 6f 20 28 66 6f 6e 74 2d 6c 6f 63 | ......sym)..........do.(font-loc |
| 174ec0 | 6b 2d 61 64 64 2d 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 27 65 6d 61 | k-add-keywords..............'ema |
| 174ee0 | 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 2c 72 65 | cs-lisp-mode..............`((,re |
| 174f00 | 67 65 78 70 20 28 31 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 0a | gexp.(1.font-lock-keyword-face). |
| 174f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 32 20 66 6f 6e 74 2d | ........................(2.font- |
| 174f40 | 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65 29 29 29 29 29 0a 0a 3b 3b | lock-variable-name-face)))))..;; |
| 174f60 | 3b 3b 20 74 61 72 67 65 74 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 20 28 75 73 65 64 20 62 79 20 | ;;.target.manipulation.(used.by. |
| 174f80 | 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2c 20 73 6c 69 6d 65 2d 6d 65 64 69 61 | slime-presentations,.slime-media |
| 174fa0 | 2c 0a 3b 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d | ,.;;;;......................slim |
| 174fc0 | 65 2d 72 65 70 6c 20 61 6e 64 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 73 74 72 65 61 6d 73 2c | e-repl.and.slime-buffer-streams, |
| 174fe0 | 20 61 74 0a 3b 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 | .at.;;;;......................le |
| 175000 | 61 73 74 29 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 | ast)..(defvar.slime-output-targe |
| 175020 | 74 2d 74 6f 2d 6d 61 72 6b 65 72 0a 20 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 0a | t-to-marker...(make-hash-table). |
| 175040 | 20 20 22 4d 61 70 20 66 72 6f 6d 20 54 41 52 47 45 54 20 69 64 73 20 74 6f 20 45 6d 61 63 73 20 | .."Map.from.TARGET.ids.to.Emacs. |
| 175060 | 6d 61 72 6b 65 72 73 2e 0a 54 68 65 20 6d 61 72 6b 65 72 73 20 69 6e 64 69 63 61 74 65 20 77 68 | markers..The.markers.indicate.wh |
| 175080 | 65 72 65 20 6f 75 74 70 75 74 20 73 68 6f 75 6c 64 20 62 65 20 69 6e 73 65 72 74 65 64 2e 22 29 | ere.output.should.be.inserted.") |
| 1750a0 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 6d 61 72 | ..(defun.slime-output-target-mar |
| 1750c0 | 6b 65 72 20 28 74 61 72 67 65 74 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6d 61 72 6b 65 | ker.(target)..."Return.the.marke |
| 1750e0 | 72 20 77 68 65 72 65 20 6f 75 74 70 75 74 20 66 6f 72 20 54 41 52 47 45 54 20 73 68 6f 75 6c 64 | r.where.output.for.TARGET.should |
| 175100 | 20 62 65 20 69 6e 73 65 72 74 65 64 2e 22 0a 20 20 28 67 65 74 68 61 73 68 20 74 61 72 67 65 74 | .be.inserted."...(gethash.target |
| 175120 | 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 74 6f 2d 6d 61 72 6b 65 72 29 29 | .slime-output-target-to-marker)) |
| 175140 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 65 6d 69 74 2d 74 6f 2d 74 61 72 67 65 74 20 28 73 | ..(defun.slime-emit-to-target.(s |
| 175160 | 74 72 69 6e 67 20 74 61 72 67 65 74 29 0a 20 20 22 49 6e 73 65 72 74 20 53 54 52 49 4e 47 20 61 | tring.target)..."Insert.STRING.a |
| 175180 | 74 20 74 61 72 67 65 74 20 54 41 52 47 45 54 2e 0a 53 65 65 20 60 73 6c 69 6d 65 2d 6f 75 74 70 | t.target.TARGET..See.`slime-outp |
| 1751a0 | 75 74 2d 74 61 72 67 65 74 2d 74 6f 2d 6d 61 72 6b 65 72 27 2e 22 0a 20 20 28 6c 65 74 2a 20 28 | ut-target-to-marker'."...(let*.( |
| 1751c0 | 28 6d 61 72 6b 65 72 20 28 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 74 61 72 67 65 74 2d 6d 61 72 | (marker.(slime-output-target-mar |
| 1751e0 | 6b 65 72 20 74 61 72 67 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 61 | ker.target))..........(buffer.(a |
| 175200 | 6e 64 20 6d 61 72 6b 65 72 20 28 6d 61 72 6b 65 72 2d 62 75 66 66 65 72 20 6d 61 72 6b 65 72 29 | nd.marker.(marker-buffer.marker) |
| 175220 | 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 77 69 74 68 | ))).....(when.buffer.......(with |
| 175240 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 | -current-buffer.buffer.........( |
| 175260 | 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 6e 73 65 | save-excursion...........;;.Inse |
| 175280 | 72 74 20 53 54 52 49 4e 47 20 61 74 20 4d 41 52 4b 45 52 2c 20 74 68 65 6e 20 6d 6f 76 65 20 4d | rt.STRING.at.MARKER,.then.move.M |
| 1752a0 | 41 52 4b 45 52 20 62 65 68 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 69 6e | ARKER.behind...........;;.the.in |
| 1752c0 | 73 65 72 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6d 61 | sertion............(goto-char.ma |
| 1752e0 | 72 6b 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d | rker)...........(insert-before-m |
| 175300 | 61 72 6b 65 72 73 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 | arkers.string)...........(set-ma |
| 175320 | 72 6b 65 72 20 6d 61 72 6b 65 72 20 28 70 6f 69 6e 74 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 | rker.marker.(point)))))))..;;;;. |
| 175340 | 46 69 6e 69 73 68 69 6e 67 20 75 70 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 | Finishing.up..(eval-when-compile |
| 175360 | 0a 20 20 28 72 65 71 75 69 72 65 20 27 62 79 74 65 63 6f 6d 70 29 29 0a 0a 28 64 65 66 75 6e 20 | ...(require.'bytecomp))..(defun. |
| 175380 | 73 6c 69 6d 65 2d 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 | slime--byte-compile.(symbol)...( |
| 1753a0 | 72 65 71 75 69 72 65 20 27 62 79 74 65 63 6f 6d 70 29 20 3b 3b 20 74 72 69 63 6b 79 20 69 6e 74 | require.'bytecomp).;;.tricky.int |
| 1753c0 | 65 72 61 63 74 69 6f 6e 20 62 65 74 77 65 65 6e 20 61 75 74 6f 6c 6f 61 64 20 61 6e 64 20 6c 65 | eraction.between.autoload.and.le |
| 1753e0 | 74 2e 0a 20 20 28 6c 65 74 20 28 28 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 77 61 72 6e 69 6e 67 | t....(let.((byte-compile-warning |
| 175400 | 73 20 27 28 29 29 29 0a 20 20 20 20 28 62 79 74 65 2d 63 6f 6d 70 69 6c 65 20 73 79 6d 62 6f 6c | s.'())).....(byte-compile.symbol |
| 175420 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 2d 63 6f 6d 70 69 6c 65 2d 68 6f 74 73 70 | )))..(defun.slime--compile-hotsp |
| 175440 | 6f 74 73 20 28 29 0a 20 20 28 6d 61 70 63 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 29 0a 20 20 20 | ots.()...(mapc.(lambda.(sym).... |
| 175460 | 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 66 62 6f 75 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 | .......(cond.((fboundp.sym)..... |
| 175480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 28 62 79 74 65 2d 63 | .............(unless.(or.(byte-c |
| 1754a0 | 6f 64 65 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 | ode-function-p.(symbol-function. |
| 1754c0 | 73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sym))........................... |
| 1754e0 | 20 20 20 28 73 75 62 72 70 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 29 29 | ...(subrp.(symbol-function.sym)) |
| 175500 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 2d 62 79 74 | )....................(slime--byt |
| 175520 | 65 2d 63 6f 6d 70 69 6c 65 20 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-compile.sym)))................ |
| 175540 | 20 28 74 20 28 65 72 72 6f 72 20 22 25 53 20 69 73 20 6e 6f 74 20 66 62 6f 75 6e 64 22 20 73 79 | .(t.(error."%S.is.not.fbound".sy |
| 175560 | 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 27 28 73 6c 69 6d 65 2d 61 6c 69 73 74 69 66 79 0a 20 | m)))).........'(slime-alistify.. |
| 175580 | 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6c 6f 67 2d 65 76 65 6e 74 0a 20 20 20 20 20 20 20 | .........slime-log-event........ |
| 1755a0 | 20 20 20 73 6c 69 6d 65 2d 65 76 65 6e 74 73 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 | ...slime-events-buffer.......... |
| 1755c0 | 20 73 6c 69 6d 65 2d 70 72 6f 63 65 73 73 2d 61 76 61 69 6c 61 62 6c 65 2d 69 6e 70 75 74 0a 20 | .slime-process-available-input.. |
| 1755e0 | 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 0a 20 20 | .........slime-dispatch-event... |
| 175600 | 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 | ........slime-net-filter........ |
| 175620 | 20 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 68 61 76 65 2d 69 6e 70 75 74 2d 70 0a 20 20 20 20 20 20 | ...slime-net-have-input-p....... |
| 175640 | 20 20 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 64 65 63 6f 64 65 2d 6c 65 6e 67 74 68 0a 20 20 20 20 | ....slime-net-decode-length..... |
| 175660 | 20 20 20 20 20 20 73 6c 69 6d 65 2d 6e 65 74 2d 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 73 | ......slime-net-read...........s |
| 175680 | 6c 69 6d 65 2d 70 72 69 6e 74 2d 61 70 72 6f 70 6f 73 0a 20 20 20 20 20 20 20 20 20 20 73 6c 69 | lime-print-apropos...........sli |
| 1756a0 | 6d 65 2d 69 6e 73 65 72 74 2d 70 72 6f 70 65 72 74 69 7a 65 64 0a 20 20 20 20 20 20 20 20 20 20 | me-insert-propertized........... |
| 1756c0 | 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 | slime-beginning-of-symbol....... |
| 1756e0 | 20 20 20 20 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 | ....slime-end-of-symbol......... |
| 175700 | 20 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 0a | ..slime-eval-feature-expression. |
| 175720 | 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 73 65 78 70 0a 20 20 20 | ..........slime-forward-sexp.... |
| 175740 | 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 63 72 75 66 74 0a 20 20 20 20 20 | .......slime-forward-cruft...... |
| 175760 | 20 20 20 20 20 73 6c 69 6d 65 2d 66 6f 72 77 61 72 64 2d 72 65 61 64 65 72 2d 63 6f 6e 64 69 74 | .....slime-forward-reader-condit |
| 175780 | 69 6f 6e 61 6c 29 29 29 0a 0a 28 73 6c 69 6d 65 2d 2d 63 6f 6d 70 69 6c 65 2d 68 6f 74 73 70 6f | ional)))..(slime--compile-hotspo |
| 1757a0 | 74 73 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f 61 64 2d 70 61 74 68 20 28 65 78 | ts)..(add-to-list.'load-path.(ex |
| 1757c0 | 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 63 6f 6e 74 72 69 62 22 20 73 6c 69 6d 65 2d 70 | pand-file-name."contrib".slime-p |
| 1757e0 | 61 74 68 29 29 0a 0a 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 73 6c 69 6d 65 2d 6c 6f 61 64 2d 68 6f | ath))..(run-hooks.'slime-load-ho |
| 175800 | 6f 6b 29 0a 28 70 72 6f 76 69 64 65 20 27 73 6c 69 6d 65 29 0a 0a 28 77 68 65 6e 20 28 6d 65 6d | ok).(provide.'slime)..(when.(mem |
| 175820 | 62 65 72 20 27 6c 69 73 70 2d 6d 6f 64 65 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 65 73 29 | ber.'lisp-mode.slime-lisp-modes) |
| 175840 | 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 73 6c | ...(add-hook.'lisp-mode-hook.'sl |
| 175860 | 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 29 0a 0a 3b 3b 20 4c 6f 63 61 6c 20 56 | ime-lisp-mode-hook))..;;.Local.V |
| 175880 | 61 72 69 61 62 6c 65 73 3a 0a 3b 3b 20 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 3a 20 22 3b 3b | ariables:.;;.outline-regexp:.";; |
| 1758a0 | 3b 3b 2b 22 0a 3b 3b 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 3b 3b | ;;+".;;.indent-tabs-mode:.nil.;; |
| 1758c0 | 20 63 6f 64 69 6e 67 3a 20 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 0a 3b 3b 20 45 6e 64 3a 0a 3b 3b | .coding:.latin-1-unix.;;.End:.;; |
| 1758e0 | 3b 20 73 6c 69 6d 65 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 | ;.slime.el.ends.here............ |
| 175900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1759a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1759c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1759e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 52 45 41 44 4d 45 2e 6d 64 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/README.md............ |
| 175a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 175a80 | 30 30 30 34 33 31 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 34 36 37 00 20 30 00 00 00 | 0004313.00000000000.012467..0... |
| 175aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 175b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 175b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175c00 | 5b 21 5b 42 75 69 6c 64 20 53 74 61 74 75 73 5d 28 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e | [](https://github.com/slim |
| 175c60 | 65 2f 73 6c 69 6d 65 2f 61 63 74 69 6f 6e 73 29 0a 5b 21 5b 4d 45 4c 50 41 5d 28 68 74 74 70 3a | e/slime/actions).[](http://melpa.org/#/slime |
| 175cc0 | 29 20 5b 21 5b 4d 45 4c 50 41 20 53 74 61 62 6c 65 5d 28 68 74 74 70 3a 2f 2f 73 74 61 62 6c 65 | ).[](http://stable.melpa.org/# |
| 175d20 | 2f 73 6c 69 6d 65 29 0a 0a 4f 76 65 72 76 69 65 77 0a 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 53 4c 49 4d | /slime)..Overview.--------..SLIM |
| 175d40 | 45 20 69 73 20 74 68 65 20 53 75 70 65 72 69 6f 72 20 4c 69 73 70 20 49 6e 74 65 72 61 63 74 69 | E.is.the.Superior.Lisp.Interacti |
| 175d60 | 6f 6e 20 4d 6f 64 65 20 66 6f 72 20 45 6d 61 63 73 2e 0a 0a 53 4c 49 4d 45 20 65 78 74 65 6e 64 | on.Mode.for.Emacs...SLIME.extend |
| 175d80 | 73 20 45 6d 61 63 73 20 77 69 74 68 20 73 75 70 70 6f 72 74 20 66 6f 72 20 69 6e 74 65 72 61 63 | s.Emacs.with.support.for.interac |
| 175da0 | 74 69 76 65 20 70 72 6f 67 72 61 6d 6d 69 6e 67 20 69 6e 20 43 6f 6d 6d 6f 6e 0a 4c 69 73 70 2e | tive.programming.in.Common.Lisp. |
| 175dc0 | 20 54 68 65 20 66 65 61 74 75 72 65 73 20 61 72 65 20 63 65 6e 74 65 72 65 64 20 61 72 6f 75 6e | .The.features.are.centered.aroun |
| 175de0 | 64 20 73 6c 69 6d 65 2d 6d 6f 64 65 2c 20 61 6e 20 45 6d 61 63 73 20 6d 69 6e 6f 72 2d 6d 6f 64 | d.slime-mode,.an.Emacs.minor-mod |
| 175e00 | 65 20 74 68 61 74 0a 63 6f 6d 70 6c 65 6d 65 6e 74 73 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 | e.that.complements.the.standard. |
| 175e20 | 6c 69 73 70 2d 6d 6f 64 65 2e 20 57 68 69 6c 65 20 6c 69 73 70 2d 6d 6f 64 65 20 73 75 70 70 6f | lisp-mode..While.lisp-mode.suppo |
| 175e40 | 72 74 73 20 65 64 69 74 69 6e 67 20 4c 69 73 70 0a 73 6f 75 72 63 65 20 66 69 6c 65 73 2c 20 73 | rts.editing.Lisp.source.files,.s |
| 175e60 | 6c 69 6d 65 2d 6d 6f 64 65 20 61 64 64 73 20 73 75 70 70 6f 72 74 20 66 6f 72 20 69 6e 74 65 72 | lime-mode.adds.support.for.inter |
| 175e80 | 61 63 74 69 6e 67 20 77 69 74 68 20 61 20 72 75 6e 6e 69 6e 67 20 43 6f 6d 6d 6f 6e 0a 4c 69 73 | acting.with.a.running.Common.Lis |
| 175ea0 | 70 20 70 72 6f 63 65 73 73 20 66 6f 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2c 20 64 65 62 75 67 | p.process.for.compilation,.debug |
| 175ec0 | 67 69 6e 67 2c 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 6f 6b 75 70 2c 20 61 6e 64 20 | ging,.documentation.lookup,.and. |
| 175ee0 | 73 6f 20 6f 6e 2e 0a 0a 46 6f 72 20 6d 75 63 68 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f | so.on...For.much.more.informatio |
| 175f00 | 6e 2c 20 63 6f 6e 73 75 6c 74 20 5b 74 68 65 20 6d 61 6e 75 61 6c 5d 5b 31 5d 2e 0a 0a 0a 51 75 | n,.consult.[the.manual][1]....Qu |
| 175f20 | 69 63 6b 20 73 65 74 75 70 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d | ick.setup.instructions.--------- |
| 175f40 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 20 20 31 2e 20 5b 53 65 74 20 75 70 20 74 68 | ---------------....1..[Set.up.th |
| 175f60 | 65 20 4d 45 4c 50 41 20 72 65 70 6f 73 69 74 6f 72 79 5d 5b 32 5d 2c 20 69 66 20 79 6f 75 20 68 | e.MELPA.repository][2],.if.you.h |
| 175f80 | 61 76 65 6e 27 74 20 61 6c 72 65 61 64 79 2c 20 61 6e 64 20 69 6e 73 74 61 6c 6c 0a 20 20 20 20 | aven't.already,.and.install..... |
| 175fa0 | 20 53 4c 49 4d 45 20 75 73 69 6e 67 20 60 4d 2d 78 20 70 61 63 6b 61 67 65 2d 69 6e 73 74 61 6c | .SLIME.using.`M-x.package-instal |
| 175fc0 | 6c 20 52 45 54 20 73 6c 69 6d 65 20 52 45 54 60 2e 0a 0a 20 20 32 2e 20 49 6e 20 79 6f 75 72 20 | l.RET.slime.RET`.....2..In.your. |
| 175fe0 | 60 7e 2f 2e 65 6d 61 63 73 60 20 66 69 6c 65 2c 20 70 6f 69 6e 74 20 74 68 65 20 60 69 6e 66 65 | `~/.emacs`.file,.point.the.`infe |
| 176000 | 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 60 0a 20 20 20 20 20 76 61 72 69 61 62 6c 65 | rior-lisp-program`......variable |
| 176020 | 20 74 6f 20 79 6f 75 72 20 66 61 76 6f 75 72 69 74 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 69 | .to.your.favourite.Common.Lisp.i |
| 176040 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 3a 0a 0a 20 20 20 20 20 60 60 60 65 6c 0a 20 20 20 20 20 | mplementation:.......```el...... |
| 176060 | 28 73 65 74 71 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 20 22 73 62 63 | (setq.inferior-lisp-program."sbc |
| 176080 | 6c 22 29 0a 20 20 20 20 20 60 60 60 0a 0a 20 20 33 2e 20 55 73 65 20 60 4d 2d 78 20 73 6c 69 6d | l")......```....3..Use.`M-x.slim |
| 1760a0 | 65 60 20 74 6f 20 66 69 72 65 20 75 70 20 61 6e 64 20 63 6f 6e 6e 65 63 74 20 74 6f 20 61 6e 20 | e`.to.fire.up.and.connect.to.an. |
| 1760c0 | 69 6e 66 65 72 69 6f 72 20 4c 69 73 70 2e 20 53 4c 49 4d 45 20 77 69 6c 6c 0a 20 20 20 20 20 6e | inferior.Lisp..SLIME.will......n |
| 1760e0 | 6f 77 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 62 65 20 61 76 61 69 6c 61 62 6c 65 20 69 6e | ow.automatically.be.available.in |
| 176100 | 20 79 6f 75 72 20 4c 69 73 70 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 73 2e 0a 0a 49 66 20 79 | .your.Lisp.source.buffers...If.y |
| 176120 | 6f 75 27 64 20 6c 69 6b 65 20 74 6f 20 63 6f 6e 74 72 69 62 75 74 65 20 74 6f 20 53 4c 49 4d 45 | ou'd.like.to.contribute.to.SLIME |
| 176140 | 2c 20 79 6f 75 20 77 69 6c 6c 20 77 61 6e 74 20 74 6f 20 69 6e 73 74 65 61 64 20 66 6f 6c 6c 6f | ,.you.will.want.to.instead.follo |
| 176160 | 77 0a 74 68 65 20 6d 61 6e 75 61 6c 27 73 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 20 6f 6e 20 5b | w.the.manual's.instructions.on.[ |
| 176180 | 68 6f 77 20 74 6f 20 69 6e 73 74 61 6c 6c 20 53 4c 49 4d 45 20 76 69 61 20 47 69 74 5d 5b 37 5d | how.to.install.SLIME.via.Git][7] |
| 1761a0 | 2e 0a 0a 0a 4c 69 63 65 6e 73 65 0a 2d 2d 2d 2d 2d 2d 2d 0a 0a 53 4c 49 4d 45 20 69 73 20 66 72 | ....License.-------..SLIME.is.fr |
| 1761c0 | 65 65 20 73 6f 66 74 77 61 72 65 2e 20 41 6c 6c 20 66 69 6c 65 73 2c 20 75 6e 6c 65 73 73 20 65 | ee.software..All.files,.unless.e |
| 1761e0 | 78 70 6c 69 63 69 74 6c 79 20 73 74 61 74 65 64 20 6f 74 68 65 72 77 69 73 65 2c 20 61 72 65 0a | xplicitly.stated.otherwise,.are. |
| 176200 | 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2e 0a 0a 0a 43 6f 6e 74 61 63 74 0a 2d 2d 2d 2d 2d 2d 2d | public.domain....Contact.------- |
| 176220 | 0a 0a 49 66 20 79 6f 75 20 68 61 76 65 20 70 72 6f 62 6c 65 6d 73 2c 20 66 69 72 73 74 20 68 61 | ..If.you.have.problems,.first.ha |
| 176240 | 76 65 20 61 20 6c 6f 6f 6b 20 61 74 20 74 68 65 20 6c 69 73 74 20 6f 66 0a 5b 6b 6e 6f 77 6e 20 | ve.a.look.at.the.list.of.[known. |
| 176260 | 69 73 73 75 65 73 20 61 6e 64 20 77 6f 72 6b 61 72 6f 75 6e 64 73 5d 5b 36 5d 2e 20 0a 0a 51 75 | issues.and.workarounds][6]....Qu |
| 176280 | 65 73 74 69 6f 6e 73 20 61 6e 64 20 63 6f 6d 6d 65 6e 74 73 20 61 72 65 20 62 65 73 74 20 64 69 | estions.and.comments.are.best.di |
| 1762a0 | 72 65 63 74 65 64 20 74 6f 20 74 68 65 20 6d 61 69 6c 69 6e 67 20 6c 69 73 74 20 61 74 0a 60 73 | rected.to.the.mailing.list.at.`s |
| 1762c0 | 6c 69 6d 65 2d 64 65 76 65 6c 40 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 60 2c 20 62 75 74 | lime-devel@common-lisp.net`,.but |
| 1762e0 | 20 79 6f 75 20 68 61 76 65 20 74 6f 20 5b 73 75 62 73 63 72 69 62 65 5d 5b 33 5d 20 66 69 72 73 | .you.have.to.[subscribe][3].firs |
| 176300 | 74 2e 0a 0a 53 65 65 20 74 68 65 20 5b 43 4f 4e 54 52 49 42 55 54 49 4e 47 2e 6d 64 5d 5b 35 5d | t...See.the.[CONTRIBUTING.md][5] |
| 176320 | 20 66 69 6c 65 20 66 6f 72 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 20 6f 6e 20 68 6f 77 20 74 6f | .file.for.instructions.on.how.to |
| 176340 | 20 63 6f 6e 74 72 69 62 75 74 65 2e 0a 0a 0a 0a 0a 5b 31 5d 3a 20 68 74 74 70 3a 2f 2f 63 6f 6d | .contribute......[1]:.http://com |
| 176360 | 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 2f 70 72 6f 6a 65 63 74 2f 73 6c 69 6d 65 2f 64 6f 63 2f 68 | mon-lisp.net/project/slime/doc/h |
| 176380 | 74 6d 6c 2f 0a 5b 32 5d 3a 20 68 74 74 70 3a 2f 2f 6d 65 6c 70 61 2e 6f 72 67 2f 23 2f 67 65 74 | tml/.[2]:.http://melpa.org/#/get |
| 1763a0 | 74 69 6e 67 2d 73 74 61 72 74 65 64 0a 5b 33 5d 3a 20 68 74 74 70 3a 2f 2f 77 77 77 2e 63 6f 6d | ting-started.[3]:.http://www.com |
| 1763c0 | 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 2f 70 72 6f 6a 65 63 74 2f 73 6c 69 6d 65 2f 23 6d 61 69 6c | mon-lisp.net/project/slime/#mail |
| 1763e0 | 69 6e 67 6c 69 73 74 0a 5b 35 5d 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f | inglist.[5]:.https://github.com/ |
| 176400 | 73 6c 69 6d 65 2f 73 6c 69 6d 65 2f 62 6c 6f 62 2f 6d 61 73 74 65 72 2f 43 4f 4e 54 52 49 42 55 | slime/slime/blob/master/CONTRIBU |
| 176420 | 54 49 4e 47 2e 6d 64 0a 5b 36 5d 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f | TING.md.[6]:.https://github.com/ |
| 176440 | 73 6c 69 6d 65 2f 73 6c 69 6d 65 2f 69 73 73 75 65 73 3f 6c 61 62 65 6c 73 3d 77 6f 72 6b 61 72 | slime/slime/issues?labels=workar |
| 176460 | 6f 75 6e 64 26 73 74 61 74 65 3d 63 6c 6f 73 65 64 0a 5b 37 5d 3a 20 68 74 74 70 3a 2f 2f 63 6f | ound&state=closed.[7]:.http://co |
| 176480 | 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 2f 70 72 6f 6a 65 63 74 2f 73 6c 69 6d 65 2f 64 6f 63 2f | mmon-lisp.net/project/slime/doc/ |
| 1764a0 | 68 74 6d 6c 2f 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 2e 68 74 6d 6c 23 49 6e 73 74 61 6c 6c 69 6e | html/Installation.html#Installin |
| 1764c0 | 67 2d 66 72 6f 6d 2d 47 69 74 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | g-from-Git...................... |
| 1764e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1765a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1765c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1765e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/swank/............... |
| 176620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176660 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 176680 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 33 33 32 00 20 35 00 00 00 | 0000000.00000000000.012332..5... |
| 1766a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1766c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1766e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 176720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 176740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1767a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1767c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1767e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 6d 6b 63 6c 2e 6c 69 73 70 00 00 00 00 00 00 | slime-2.31/swank/mkcl.lisp...... |
| 176820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 176880 | 30 30 37 34 35 35 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 31 37 31 00 20 30 00 00 00 | 0074555.00000000000.014171..0... |
| 1768a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1768c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1768e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 176920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 176940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1769a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1769c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1769e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176a00 | 3b 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 20 2d | ;;;;.-*-.indent-tabs-mode:.nil.- |
| 176a20 | 2a 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 6d 6b 63 6c 2e 6c 69 73 70 20 2d 2d 2d 20 53 | *-.;;;.;;;.swank-mkcl.lisp.---.S |
| 176a40 | 4c 49 4d 45 20 62 61 63 6b 65 6e 64 20 66 6f 72 20 4d 4b 43 4c 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 | LIME.backend.for.MKCL..;;;.;;;.T |
| 176a60 | 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 | his.code.has.been.placed.in.the. |
| 176a80 | 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 0a 3b | Public.Domain...All.warranties.; |
| 176aa0 | 3b 3b 20 61 72 65 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 3b 3b 3b 0a 0a 3b 3b 3b 20 41 64 6d 69 | ;;.are.disclaimed..;;;..;;;.Admi |
| 176ac0 | 6e 69 73 74 72 69 76 69 61 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 6d 6b 63 | nistrivia..(defpackage.swank/mkc |
| 176ae0 | 6c 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 29 0a 0a 28 69 | l...(:use.cl.swank/backend))..(i |
| 176b00 | 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 6d 6b 63 6c 29 0a 0a 3b 3b 28 64 65 63 6c 61 69 | n-package.swank/mkcl)..;;(declai |
| 176b20 | 6d 20 28 6f 70 74 69 6d 69 7a 65 20 28 64 65 62 75 67 20 33 29 29 29 0a 0a 28 64 65 66 76 61 72 | m.(optimize.(debug.3)))..(defvar |
| 176b40 | 20 2a 74 6d 70 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 72 61 79 | .*tmp*)..(defimplementation.gray |
| 176b60 | 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 29 0a 20 20 27 23 3a 67 72 61 79 29 0a 0a 28 65 76 | -package-name.()...'#:gray)..(ev |
| 176b80 | 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 | al-when.(:compile-toplevel.:load |
| 176ba0 | 2d 74 6f 70 6c 65 76 65 6c 29 0a 0a 20 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 3a 69 6d | -toplevel)....(swank/backend::im |
| 176bc0 | 70 6f 72 74 2d 73 77 61 6e 6b 2d 6d 6f 70 2d 73 79 6d 62 6f 6c 73 20 3a 63 6c 6f 73 0a 20 20 20 | port-swank-mop-symbols.:clos.... |
| 176be0 | 20 3b 3b 20 20 27 28 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 0a 20 20 20 20 3b 3b 20 20 | .;;..'(:eql-specializer.....;;.. |
| 176c00 | 20 20 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 2d 6f 62 6a 65 63 74 0a 20 20 20 20 3b 3b | ..:eql-specializer-object.....;; |
| 176c20 | 20 20 20 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 64 65 63 6c 61 72 61 74 69 6f | ....:generic-function-declaratio |
| 176c40 | 6e 73 0a 20 20 20 20 3b 3b 20 20 20 20 3a 73 70 65 63 69 61 6c 69 7a 65 72 2d 64 69 72 65 63 74 | ns.....;;....:specializer-direct |
| 176c60 | 2d 6d 65 74 68 6f 64 73 0a 20 20 20 20 3b 3b 20 20 20 20 3a 63 6f 6d 70 75 74 65 2d 61 70 70 6c | -methods.....;;....:compute-appl |
| 176c80 | 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 75 73 69 6e 67 2d 63 6c 61 73 73 65 73 29 0a 20 20 | icable-methods-using-classes)... |
| 176ca0 | 20 20 6e 69 6c 0a 20 20 20 20 29 29 0a 0a 0c 0a 3b 3b 3b 20 55 54 46 38 0a 0a 28 64 65 66 69 6d | ..nil.....))....;;;.UTF8..(defim |
| 176cc0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 2d 74 6f 2d 75 74 66 38 20 28 73 74 72 | plementation.string-to-utf8.(str |
| 176ce0 | 69 6e 67 29 0a 20 20 28 6d 6b 63 6c 3a 6f 63 74 65 74 73 20 28 73 69 3a 75 74 66 2d 38 20 73 74 | ing)...(mkcl:octets.(si:utf-8.st |
| 176d00 | 72 69 6e 67 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 74 66 38 | ring)))..(defimplementation.utf8 |
| 176d20 | 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 63 74 65 74 73 29 0a 20 20 28 73 74 72 69 6e 67 20 28 73 | -to-string.(octets)...(string.(s |
| 176d40 | 69 3a 75 74 66 2d 38 20 6f 63 74 65 74 73 29 29 29 0a 0a 0a 3b 3b 3b 3b 20 54 43 50 20 53 65 72 | i:utf-8.octets)))...;;;;.TCP.Ser |
| 176d60 | 76 65 72 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 | ver..(eval-when.(:compile-toplev |
| 176d80 | 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 29 0a 20 20 3b 3b 20 41 74 20 63 6f 6d 70 69 | el.:load-toplevel)...;;.At.compi |
| 176da0 | 6c 65 2d 74 69 6d 65 20 77 65 20 6e 65 65 64 20 61 63 63 65 73 73 20 74 6f 20 74 68 65 20 73 62 | le-time.we.need.access.to.the.sb |
| 176dc0 | 2d 62 73 64 2d 73 6f 63 6b 65 74 73 20 70 61 63 6b 61 67 65 20 66 6f 72 20 74 68 65 0a 20 20 3b | -bsd-sockets.package.for.the...; |
| 176de0 | 3b 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 64 65 20 74 6f 20 62 65 20 72 65 61 64 20 | ;.the.following.code.to.be.read. |
| 176e00 | 70 72 6f 70 65 72 6c 79 2e 0a 20 20 3b 3b 20 49 74 20 69 73 20 61 20 62 69 74 20 61 20 73 68 61 | properly....;;.It.is.a.bit.a.sha |
| 176e20 | 6d 65 20 77 65 20 68 61 76 65 20 74 6f 20 6c 6f 61 64 20 74 68 65 20 65 6e 74 69 72 65 20 6d 6f | me.we.have.to.load.the.entire.mo |
| 176e40 | 64 75 6c 65 20 74 6f 20 67 65 74 20 74 68 61 74 2e 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6f | dule.to.get.that....(require.'so |
| 176e60 | 63 6b 65 74 73 29 29 0a 0a 0a 28 64 65 66 75 6e 20 72 65 73 6f 6c 76 65 2d 68 6f 73 74 6e 61 6d | ckets))...(defun.resolve-hostnam |
| 176e80 | 65 20 28 6e 61 6d 65 29 0a 20 20 28 63 61 72 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a | e.(name)...(car.(sb-bsd-sockets: |
| 176ea0 | 68 6f 73 74 2d 65 6e 74 2d 61 64 64 72 65 73 73 65 73 0a 20 20 20 20 20 20 20 20 28 73 62 2d 62 | host-ent-addresses.........(sb-b |
| 176ec0 | 73 64 2d 73 6f 63 6b 65 74 73 3a 67 65 74 2d 68 6f 73 74 2d 62 79 2d 6e 61 6d 65 20 6e 61 6d 65 | sd-sockets:get-host-by-name.name |
| 176ee0 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 61 74 65 2d | ))))..(defimplementation.create- |
| 176f00 | 73 6f 63 6b 65 74 20 28 68 6f 73 74 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 0a | socket.(host.port.&key.backlog). |
| 176f20 | 20 20 28 6c 65 74 20 28 28 73 6f 63 6b 65 74 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 | ..(let.((socket.(make-instance.' |
| 176f40 | 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 69 6e 65 74 2d 73 6f 63 6b 65 74 0a 09 09 09 20 20 | sb-bsd-sockets:inet-socket...... |
| 176f60 | 20 20 20 20 20 3a 74 79 70 65 20 3a 73 74 72 65 61 6d 0a 09 09 09 20 20 20 20 20 20 20 3a 70 72 | .....:type.:stream...........:pr |
| 176f80 | 6f 74 6f 63 6f 6c 20 3a 74 63 70 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 73 62 2d 62 73 64 | otocol.:tcp))).....(setf.(sb-bsd |
| 176fa0 | 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 6f 70 74 2d 72 65 75 73 65 2d 61 64 64 72 65 73 73 20 73 | -sockets:sockopt-reuse-address.s |
| 176fc0 | 6f 63 6b 65 74 29 20 74 29 0a 20 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f | ocket).t).....(sb-bsd-sockets:so |
| 176fe0 | 63 6b 65 74 2d 62 69 6e 64 20 73 6f 63 6b 65 74 20 28 72 65 73 6f 6c 76 65 2d 68 6f 73 74 6e 61 | cket-bind.socket.(resolve-hostna |
| 177000 | 6d 65 20 68 6f 73 74 29 20 70 6f 72 74 29 0a 20 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 | me.host).port).....(sb-bsd-socke |
| 177020 | 74 73 3a 73 6f 63 6b 65 74 2d 6c 69 73 74 65 6e 20 73 6f 63 6b 65 74 20 28 6f 72 20 62 61 63 6b | ts:socket-listen.socket.(or.back |
| 177040 | 6c 6f 67 20 35 29 29 0a 20 20 20 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | log.5)).....socket))..(defimplem |
| 177060 | 65 6e 74 61 74 69 6f 6e 20 6c 6f 63 61 6c 2d 70 6f 72 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 | entation.local-port.(socket)...( |
| 177080 | 6e 74 68 2d 76 61 6c 75 65 20 31 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b | nth-value.1.(sb-bsd-sockets:sock |
| 1770a0 | 65 74 2d 6e 61 6d 65 20 73 6f 63 6b 65 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | et-name.socket)))..(defimplement |
| 1770c0 | 61 74 69 6f 6e 20 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 73 | ation.close-socket.(socket)...(s |
| 1770e0 | 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 63 6c 6f 73 65 20 73 6f 63 6b 65 | b-bsd-sockets:socket-close.socke |
| 177100 | 74 29 29 0a 0a 28 64 65 66 75 6e 20 61 63 63 65 70 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 22 4c | t))..(defun.accept.(socket)..."L |
| 177120 | 69 6b 65 20 73 6f 63 6b 65 74 2d 61 63 63 65 70 74 2c 20 62 75 74 20 72 65 74 72 79 20 6f 6e 20 | ike.socket-accept,.but.retry.on. |
| 177140 | 45 49 4e 54 52 2e 22 0a 20 20 28 6c 6f 6f 70 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 | EINTR."...(loop.(handler-case... |
| 177160 | 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 | ..........(return.(sb-bsd-socket |
| 177180 | 73 3a 73 6f 63 6b 65 74 2d 61 63 63 65 70 74 20 73 6f 63 6b 65 74 29 29 0a 20 20 20 20 20 20 20 | s:socket-accept.socket))........ |
| 1771a0 | 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 69 6e 74 65 72 72 75 70 74 65 64 2d 65 | ...(sb-bsd-sockets:interrupted-e |
| 1771c0 | 72 72 6f 72 20 28 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | rror.()))))..(defimplementation. |
| 1771e0 | 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6f 63 6b 65 74 0a 20 20 20 20 20 20 | accept-connection.(socket....... |
| 177200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 177220 | 26 6b 65 79 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 | &key.external-format............ |
| 177240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 | ...........................buffe |
| 177260 | 72 69 6e 67 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 | ring.timeout)...(declare.(ignore |
| 177280 | 20 74 69 6d 65 6f 75 74 29 29 0a 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 | .timeout))...(sb-bsd-sockets:soc |
| 1772a0 | 6b 65 74 2d 6d 61 6b 65 2d 73 74 72 65 61 6d 20 28 61 63 63 65 70 74 20 73 6f 63 6b 65 74 29 0a | ket-make-stream.(accept.socket). |
| 1772c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1772e0 | 20 20 20 20 20 3a 6f 75 74 70 75 74 20 74 20 3b 3b 20 62 6f 67 75 73 0a 20 20 20 20 20 20 20 20 | .....:output.t.;;.bogus......... |
| 177300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e | .............................:in |
| 177320 | 70 75 74 20 74 20 3b 3b 20 62 6f 67 75 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | put.t.;;.bogus.................. |
| 177340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 75 66 66 65 72 69 6e 67 20 62 | ....................:buffering.b |
| 177360 | 75 66 66 65 72 69 6e 67 20 3b 3b 20 62 6f 67 75 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uffering.;;.bogus............... |
| 177380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d 65 6e 74 2d | .......................:element- |
| 1773a0 | 74 79 70 65 20 28 69 66 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 | type.(if.external-format........ |
| 1773c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1773e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 68 61 72 61 63 74 65 72 20 0a 20 20 20 20 | ................'character...... |
| 177400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 177420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 | .................'(unsigned-byte |
| 177440 | 20 38 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .8))............................ |
| 177460 | 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 65 78 74 65 72 | ..........:external-format.exter |
| 177480 | 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nal-format...................... |
| 1774a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | ................))..(defimplemen |
| 1774c0 | 74 61 74 69 6f 6e 20 70 72 65 66 65 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 | tation.preferred-communication-s |
| 1774e0 | 74 79 6c 65 20 28 29 0a 20 20 3a 73 70 61 77 6e 0a 20 20 29 0a 0a 28 64 65 66 76 61 72 20 2a 65 | tyle.()...:spawn...)..(defvar.*e |
| 177500 | 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a | xternal-format-to-coding-system* |
| 177520 | 0a 20 20 27 28 28 3a 69 73 6f 2d 38 38 35 39 2d 31 0a 20 20 20 20 20 22 6c 61 74 69 6e 2d 31 22 | ...'((:iso-8859-1......"latin-1" |
| 177540 | 20 22 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 22 69 73 6f 2d 6c 61 74 69 6e 2d 31 2d 75 6e 69 | ."latin-1-unix"."iso-latin-1-uni |
| 177560 | 78 22 20 0a 20 20 20 20 20 22 69 73 6f 2d 38 38 35 39 2d 31 22 20 22 69 73 6f 2d 38 38 35 39 2d | x"......."iso-8859-1"."iso-8859- |
| 177580 | 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a 75 74 66 2d 38 20 22 75 74 66 2d 38 22 20 22 75 74 | 1-unix").....(:utf-8."utf-8"."ut |
| 1775a0 | 66 2d 38 2d 75 6e 69 78 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 65 72 6e 61 6c 2d 66 6f | f-8-unix")))..(defun.external-fo |
| 1775c0 | 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 28 6f 72 20 28 63 61 72 20 | rmat.(coding-system)...(or.(car. |
| 1775e0 | 28 72 61 73 73 6f 63 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 6d 65 6d 62 65 72 20 63 | (rassoc-if.(lambda.(x).(member.c |
| 177600 | 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 78 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 | oding-system.x.:test.#'equal)).. |
| 177620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 78 74 65 72 6e 61 6c 2d 66 | .....................*external-f |
| 177640 | 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 29 29 0a 20 20 20 20 20 20 | ormat-to-coding-system*))....... |
| 177660 | 28 66 69 6e 64 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 28 73 69 3a 61 6c 6c 2d 65 6e 63 6f | (find.coding-system.(si:all-enco |
| 177680 | 64 69 6e 67 73 29 20 3a 74 65 73 74 20 23 27 73 74 72 69 6e 67 2d 65 71 75 61 6c 29 29 29 0a 0a | dings).:test.#'string-equal))).. |
| 1776a0 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c | (defimplementation.find-external |
| 1776c0 | 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 23 2b 75 6e 69 63 | -format.(coding-system)...#+unic |
| 1776e0 | 6f 64 65 20 28 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 63 6f 64 69 6e 67 2d 73 79 73 74 | ode.(external-format.coding-syst |
| 177700 | 65 6d 29 0a 20 20 3b 3b 20 57 69 74 68 6f 75 74 20 75 6e 69 63 6f 64 65 20 73 75 70 70 6f 72 74 | em)...;;.Without.unicode.support |
| 177720 | 2c 20 4d 4b 43 4c 20 75 73 65 73 20 74 68 65 20 6f 6e 65 2d 62 79 74 65 20 65 6e 63 6f 64 69 6e | ,.MKCL.uses.the.one-byte.encodin |
| 177740 | 67 20 6f 66 20 74 68 65 0a 20 20 3b 3b 20 75 6e 64 65 72 6c 79 69 6e 67 20 4f 53 2c 20 61 6e 64 | g.of.the...;;.underlying.OS,.and |
| 177760 | 20 77 69 6c 6c 20 62 61 72 66 20 6f 6e 20 61 6e 79 74 68 69 6e 67 20 65 78 63 65 70 74 20 3a 44 | .will.barf.on.anything.except.:D |
| 177780 | 45 46 41 55 4c 54 2e 20 20 57 65 0a 20 20 3b 3b 20 72 65 74 75 72 6e 20 4e 49 4c 20 68 65 72 65 | EFAULT...We...;;.return.NIL.here |
| 1777a0 | 20 66 6f 72 20 6b 6e 6f 77 6e 20 6d 75 6c 74 69 62 79 74 65 20 65 6e 63 6f 64 69 6e 67 73 2c 20 | .for.known.multibyte.encodings,. |
| 1777c0 | 73 6f 0a 20 20 3b 3b 20 53 57 41 4e 4b 3a 43 52 45 41 54 45 2d 53 45 52 56 45 52 20 77 69 6c 6c | so...;;.SWANK:CREATE-SERVER.will |
| 1777e0 | 20 62 61 72 66 2e 0a 20 20 23 2d 75 6e 69 63 6f 64 65 20 28 6c 65 74 20 28 28 78 66 20 28 65 78 | .barf....#-unicode.(let.((xf.(ex |
| 177800 | 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 29 29 0a 20 | ternal-format.coding-system))).. |
| 177820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6d 65 6d 62 65 72 20 78 66 20 27 28 3a 75 | .............(if.(member.xf.'(:u |
| 177840 | 74 66 2d 38 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 | tf-8))...................nil.... |
| 177860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 66 61 75 6c 74 29 29 29 0a 0a 0a 0c 0a 3b 3b 3b | .............:default))).....;;; |
| 177880 | 3b 20 55 6e 69 78 20 73 69 67 6e 61 6c 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | ;.Unix.signals..(defimplementati |
| 1778a0 | 6f 6e 20 69 6e 73 74 61 6c 6c 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 28 68 61 6e 64 6c | on.install-sigint-handler.(handl |
| 1778c0 | 65 72 29 0a 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d 68 61 6e 64 6c 65 72 20 28 73 79 6d 62 6f 6c | er)...(let.((old-handler.(symbol |
| 1778e0 | 2d 66 75 6e 63 74 69 6f 6e 20 27 73 69 3a 74 65 72 6d 69 6e 61 6c 2d 69 6e 74 65 72 72 75 70 74 | -function.'si:terminal-interrupt |
| 177900 | 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 | ))).....(setf.(symbol-function.' |
| 177920 | 73 69 3a 74 65 72 6d 69 6e 61 6c 2d 69 6e 74 65 72 72 75 70 74 29 0a 20 20 20 20 20 20 20 20 20 | si:terminal-interrupt).......... |
| 177940 | 20 28 69 66 20 28 63 6f 6e 73 70 20 68 61 6e 64 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(if.(consp.handler)............ |
| 177960 | 20 20 20 28 63 61 72 20 68 61 6e 64 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...(car.handler)...............( |
| 177980 | 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | lambda.(&rest.args)............. |
| 1779a0 | 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 20 20 20 20 | ....(declare.(ignore.args))..... |
| 1779c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 68 61 6e 64 6c 65 72 29 0a 20 20 | ............(funcall.handler)... |
| 1779e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 74 69 6e 75 65 29 29 29 29 0a 20 20 20 20 | ..............(continue))))..... |
| 177a00 | 28 6c 69 73 74 20 6f 6c 64 2d 68 61 6e 64 6c 65 72 29 29 29 0a 0a 0a 28 64 65 66 69 6d 70 6c 65 | (list.old-handler)))...(defimple |
| 177a20 | 6d 65 6e 74 61 74 69 6f 6e 20 67 65 74 70 69 64 20 28 29 0a 20 20 28 6d 6b 63 6c 3a 67 65 74 70 | mentation.getpid.()...(mkcl:getp |
| 177a40 | 69 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 | id))..(defimplementation.set-def |
| 177a60 | 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 6d 6b | ault-directory.(directory)...(mk |
| 177a80 | 2d 65 78 74 3a 3a 63 68 64 69 72 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 64 69 72 65 63 74 6f 72 | -ext::chdir.(namestring.director |
| 177aa0 | 79 29 29 0a 20 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 0a 28 64 65 66 | y))...(default-directory))..(def |
| 177ac0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 | implementation.default-directory |
| 177ae0 | 20 28 29 0a 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 6d 6b 2d 65 78 74 3a 67 65 74 63 77 64 | .()...(namestring.(mk-ext:getcwd |
| 177b00 | 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 70 72 6f 67 66 20 28 70 6c 69 73 74 20 26 72 65 73 | )))..(defmacro.progf.(plist.&res |
| 177b20 | 74 20 66 6f 72 6d 73 29 0a 20 20 60 28 6c 65 74 20 28 5f 76 61 72 73 20 5f 76 61 6c 73 29 0a 20 | t.forms)...`(let.(_vars._vals).. |
| 177b40 | 20 20 20 20 28 64 6f 20 28 28 70 20 2c 70 6c 69 73 74 20 28 63 64 64 72 20 70 29 29 29 0a 20 20 | ....(do.((p.,plist.(cddr.p)))... |
| 177b60 | 20 20 20 20 20 20 20 28 28 65 6e 64 70 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 75 73 68 | .......((endp.p))..........(push |
| 177b80 | 20 28 63 61 72 20 70 29 20 5f 76 61 72 73 29 0a 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 | .(car.p)._vars)..........(push.( |
| 177ba0 | 63 61 64 72 20 70 29 20 5f 76 61 6c 73 29 29 0a 20 20 20 20 20 28 70 72 6f 67 76 20 5f 76 61 72 | cadr.p)._vals))......(progv._var |
| 177bc0 | 73 20 5f 76 61 6c 73 20 2c 40 66 6f 72 6d 73 29 0a 20 20 20 20 20 29 0a 20 20 29 0a 0a 28 64 65 | s._vals.,@forms)......)...)..(de |
| 177be0 | 66 76 61 72 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 73 6c 65 65 70 69 6e 67 2d 70 6f 73 | fvar.*inferior-lisp-sleeping-pos |
| 177c00 | 74 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 71 75 69 74 | t*.nil)..(defimplementation.quit |
| 177c20 | 2d 6c 69 73 70 20 28 29 0a 20 20 28 70 72 6f 67 66 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 | -lisp.()...(progf.(ignore-errors |
| 177c40 | 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 22 73 77 61 6e 6b 3a | .(eval.(read-from-string."swank: |
| 177c60 | 3a 2a 73 61 76 65 64 2d 67 6c 6f 62 61 6c 2d 73 74 72 65 61 6d 73 2a 22 29 29 29 20 3b 3b 20 72 | :*saved-global-streams*"))).;;.r |
| 177c80 | 65 73 74 6f 72 65 20 6f 72 69 67 69 6e 61 6c 20 49 4f 20 73 74 72 65 61 6d 73 2e 0a 20 20 20 20 | estore.original.IO.streams...... |
| 177ca0 | 20 20 20 20 20 28 77 68 65 6e 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 73 6c 65 65 70 69 | .....(when.*inferior-lisp-sleepi |
| 177cc0 | 6e 67 2d 70 6f 73 74 2a 20 28 6d 74 3a 73 65 6d 61 70 68 6f 72 65 2d 73 69 67 6e 61 6c 20 2a 69 | ng-post*.(mt:semaphore-signal.*i |
| 177ce0 | 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 73 6c 65 65 70 69 6e 67 2d 70 6f 73 74 2a 29 29 0a 20 20 | nferior-lisp-sleeping-post*))... |
| 177d00 | 20 20 20 20 20 20 20 3b 3b 28 6d 6b 2d 65 78 74 3a 71 75 69 74 20 3a 76 65 72 62 6f 73 65 20 74 | .......;;(mk-ext:quit.:verbose.t |
| 177d20 | 29 0a 20 20 20 20 20 20 20 20 20 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 6f 6d 70 69 6c 61 74 69 6f | )..........))....;;;;.Compilatio |
| 177d40 | 6e 0a 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 6e 69 6c 29 0a 28 64 | n..(defvar.*buffer-name*.nil).(d |
| 177d60 | 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 29 0a 28 | efvar.*buffer-start-position*).( |
| 177d80 | 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 73 74 72 69 6e 67 2a 29 0a 28 64 65 66 76 61 72 20 | defvar.*buffer-string*).(defvar. |
| 177da0 | 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 6e 61 6d 65 2a 29 0a 0a 28 64 65 66 75 6e 20 73 69 67 6e | *compile-filename*)..(defun.sign |
| 177dc0 | 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 26 72 65 73 74 20 61 72 67 | al-compiler-condition.(&rest.arg |
| 177de0 | 73 29 0a 20 20 28 73 69 67 6e 61 6c 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 63 6f 6e 64 69 | s)...(signal.(apply.#'make-condi |
| 177e00 | 74 69 6f 6e 20 27 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 61 72 67 73 29 29 29 | tion.'compiler-condition.args))) |
| 177e20 | 0a 0a 23 7c 0a 28 64 65 66 75 6e 20 68 61 6e 64 6c 65 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e | ..#|.(defun.handle-compiler-warn |
| 177e40 | 69 6e 67 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c | ing.(condition)...(signal-compil |
| 177e60 | 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 | er-condition....:original-condit |
| 177e80 | 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 3a 6d 65 73 73 61 67 65 20 28 66 6f 72 6d 61 | ion.condition....:message.(forma |
| 177ea0 | 74 20 6e 69 6c 20 22 7e 41 22 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 3a 73 65 76 65 72 69 | t.nil."~A".condition)....:severi |
| 177ec0 | 74 79 20 3a 77 61 72 6e 69 6e 67 0a 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 28 69 66 20 | ty.:warning....:location....(if. |
| 177ee0 | 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 | *buffer-name*........(make-locat |
| 177f00 | 69 6f 6e 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 29 | ion.(list.:buffer.*buffer-name*) |
| 177f20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 6f 66 | .......................(list.:of |
| 177f40 | 66 73 65 74 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 20 30 29 29 | fset.*buffer-start-position*.0)) |
| 177f60 | 0a 20 20 20 20 20 20 20 3b 3b 20 3b 3b 20 63 6f 6d 70 69 6c 65 72 3a 3a 2a 63 75 72 72 65 6e 74 | ........;;.;;.compiler::*current |
| 177f80 | 2d 66 6f 72 6d 2a 0a 20 20 20 20 20 20 20 3b 3b 20 28 69 66 20 63 6f 6d 70 69 6c 65 72 3a 3a 2a | -form*........;;.(if.compiler::* |
| 177fa0 | 63 75 72 72 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 2a 0a 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 | current-function*........;;..... |
| 177fc0 | 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 2a 63 6f 6d 70 | (make-location.(list.:file.*comp |
| 177fe0 | 69 6c 65 2d 66 69 6c 65 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 | ile-filename*)........;;........ |
| 178000 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 | ............(list.:function-name |
| 178020 | 20 20 20 0a 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........;;................... |
| 178040 | 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 3b 3b 20 20 20 | .......(symbol-name........;;... |
| 178060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 6f 74 2d 76 61 | ........................(slot-va |
| 178080 | 6c 75 65 20 63 6f 6d 70 69 6c 65 72 3a 3a 2a 63 75 72 72 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 2a | lue.compiler::*current-function* |
| 1780a0 | 0a 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........;;...................... |
| 1780c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 6f 6d 70 69 6c 65 72 3a 3a 6e 61 6d 65 | .................'compiler::name |
| 1780e0 | 29 29 29 29 0a 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 65 72 72 6f 72 20 22 4e 6f 20 6c 6f 63 | ))))........(list.:error."No.loc |
| 178100 | 61 74 69 6f 6e 20 66 6f 75 6e 64 2e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 29 0a 20 | ation.found.")............;;.).. |
| 178120 | 20 20 20 20 20 20 29 29 29 0a 7c 23 0a 0a 23 7c 0a 28 64 65 66 75 6e 20 63 6f 6e 64 69 74 69 6f | ......))).|#..#|.(defun.conditio |
| 178140 | 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 | n-location.(condition)...(let.(( |
| 178160 | 66 69 6c 65 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 3a 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 | file.....(compiler:compiler-mess |
| 178180 | 61 67 65 2d 66 69 6c 65 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 70 6f | age-file.condition)).........(po |
| 1781a0 | 73 69 74 69 6f 6e 20 28 63 6f 6d 70 69 6c 65 72 3a 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 61 67 | sition.(compiler:compiler-messag |
| 1781c0 | 65 2d 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 | e-file-position.condition))).... |
| 1781e0 | 20 28 69 66 20 28 61 6e 64 20 70 6f 73 69 74 69 6f 6e 20 28 6e 6f 74 20 28 6d 69 6e 75 73 70 20 | .(if.(and.position.(not.(minusp. |
| 178200 | 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 2a 62 75 66 66 65 72 2d | position))).........(if.*buffer- |
| 178220 | 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 62 75 66 66 65 72 2d 6c | name*.............(make-buffer-l |
| 178240 | 6f 63 61 74 69 6f 6e 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 20 20 20 | ocation.*buffer-name*........... |
| 178260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 62 75 66 66 65 72 2d | ........................*buffer- |
| 178280 | 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | start-position*................. |
| 1782a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 | ..................position)..... |
| 1782c0 | 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 69 6c 65 | ........(make-file-location.file |
| 1782e0 | 20 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 65 72 72 6f 72 2d | .position)).........(make-error- |
| 178300 | 6c 6f 63 61 74 69 6f 6e 20 22 4e 6f 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 75 6e 64 2e 22 29 29 29 | location."No.location.found."))) |
| 178320 | 29 0a 7c 23 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 64 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 | ).|#..(defun.condition-location. |
| 178340 | 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 69 66 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 0a | (condition)...(if.*buffer-name*. |
| 178360 | 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 62 75 66 66 | ......(make-location.(list.:buff |
| 178380 | 65 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er.*buffer-name*)............... |
| 1783a0 | 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 6f 66 66 73 65 74 20 2a 62 75 66 66 65 72 2d 73 74 61 | .......(list.:offset.*buffer-sta |
| 1783c0 | 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 20 30 29 29 0a 20 20 20 20 20 20 20 3b 3b 20 3b 3b 20 63 6f | rt-position*.0))........;;.;;.co |
| 1783e0 | 6d 70 69 6c 65 72 3a 3a 2a 63 75 72 72 65 6e 74 2d 66 6f 72 6d 2a 20 20 20 3b 0a 20 20 20 20 20 | mpiler::*current-form*...;...... |
| 178400 | 20 20 3b 3b 20 28 69 66 20 63 6f 6d 70 69 6c 65 72 3a 3a 2a 63 75 72 72 65 6e 74 2d 66 75 6e 63 | ..;;.(if.compiler::*current-func |
| 178420 | 74 69 6f 6e 2a 20 3b 0a 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 | tion*.;........;;.....(make-loca |
| 178440 | 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 6e 61 | tion.(list.:file.*compile-filena |
| 178460 | 6d 65 2a 29 20 3b 0a 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me*).;........;;................ |
| 178480 | 20 20 20 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 3b 0a 20 20 20 20 20 | ....(list.:function-name.;...... |
| 1784a0 | 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ..;;..........................(s |
| 1784c0 | 79 6d 62 6f 6c 2d 6e 61 6d 65 20 3b 0a 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 | ymbol-name.;........;;.......... |
| 1784e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 63 6f 6d | .................(slot-value.com |
| 178500 | 70 69 6c 65 72 3a 3a 2a 63 75 72 72 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 2a 20 3b 0a 20 20 20 20 | piler::*current-function*.;..... |
| 178520 | 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...;;........................... |
| 178540 | 20 20 20 20 20 20 20 20 20 20 20 20 27 63 6f 6d 70 69 6c 65 72 3a 3a 6e 61 6d 65 29 29 29 29 20 | ............'compiler::name)))). |
| 178560 | 3b 0a 20 20 20 20 28 69 66 20 28 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 63 6f 6d 70 | ;.....(if.(typep.condition.'comp |
| 178580 | 69 6c 65 72 3a 3a 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 20 20 20 | iler::compiler-message)......... |
| 1785a0 | 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 6e 61 6d 65 | (make-location.(list.:file.(name |
| 1785c0 | 73 74 72 69 6e 67 20 28 63 6f 6d 70 69 6c 65 72 3a 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 61 67 | string.(compiler:compiler-messag |
| 1785e0 | 65 2d 66 69 6c 65 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e-file.condition)))............. |
| 178600 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 28 | ...........(list.:end-position.( |
| 178620 | 63 6f 6d 70 69 6c 65 72 3a 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 61 67 65 2d 66 69 6c 65 2d 65 | compiler:compiler-message-file-e |
| 178640 | 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 | nd-position.condition))).......( |
| 178660 | 6c 69 73 74 20 3a 65 72 72 6f 72 20 22 4e 6f 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 75 6e 64 2e 22 | list.:error."No.location.found." |
| 178680 | 29 29 0a 20 20 20 20 29 0a 20 20 29 0a 0a 28 64 65 66 75 6e 20 68 61 6e 64 6c 65 2d 63 6f 6d 70 | )).....)...)..(defun.handle-comp |
| 1786a0 | 69 6c 65 72 2d 6d 65 73 73 61 67 65 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 75 6e 6c 65 | iler-message.(condition)...(unle |
| 1786c0 | 73 73 20 28 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 63 6f 6d 70 69 6c 65 72 3a 3a 63 | ss.(typep.condition.'compiler::c |
| 1786e0 | 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 29 0a 20 20 20 20 28 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c | ompiler-note).....(signal-compil |
| 178700 | 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 | er-condition......:original-cond |
| 178720 | 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 3a 6d 65 73 73 61 67 65 20 28 70 | ition.condition......:message.(p |
| 178740 | 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 3a | rinc-to-string.condition)......: |
| 178760 | 73 65 76 65 72 69 74 79 20 28 65 74 79 70 65 63 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 | severity.(etypecase.condition... |
| 178780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 3a 63 6f 6d 70 69 6c 65 | ...............(compiler:compile |
| 1787a0 | 72 2d 66 61 74 61 6c 2d 65 72 72 6f 72 20 3a 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 | r-fatal-error.:error)........... |
| 1787c0 | 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 20 | .......(compiler:compiler-error. |
| 1787e0 | 20 20 20 20 20 20 3a 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ......:error)..................( |
| 178800 | 65 72 72 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 72 72 6f 72 29 0a 20 | error..................:error).. |
| 178820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 20 20 | ................(style-warning.. |
| 178840 | 20 20 20 20 20 20 20 20 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 | ........:style-warning)......... |
| 178860 | 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(warning............... |
| 178880 | 20 3a 77 61 72 6e 69 6e 67 29 29 0a 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6e 64 | .:warning))......:location.(cond |
| 1788a0 | 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 | ition-location.condition))))..(d |
| 1788c0 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 | efimplementation.call-with-compi |
| 1788e0 | 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 68 61 6e 64 6c | lation-hooks.(function)...(handl |
| 178900 | 65 72 2d 62 69 6e 64 20 28 28 63 6f 6d 70 69 6c 65 72 3a 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 | er-bind.((compiler:compiler-mess |
| 178920 | 61 67 65 20 23 27 68 61 6e 64 6c 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 61 67 65 29 29 0a | age.#'handle-compiler-message)). |
| 178940 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d | ....(funcall.function)))..(defim |
| 178960 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 | plementation.swank-compile-file. |
| 178980 | 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 | (input-file.output-file......... |
| 1789a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1789c0 | 20 20 20 20 20 20 20 20 20 20 6c 6f 61 64 2d 70 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 | ..........load-p.external-format |
| 1789e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 178a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a | ...................&key.policy). |
| 178a20 | 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 77 | ..(declare.(ignore.policy))...(w |
| 178a40 | 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 6c 65 | ith-compilation-hooks.().....(le |
| 178a60 | 74 20 28 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 | t.((*buffer-name*.nil).......... |
| 178a80 | 20 28 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 6e 61 6d 65 2a 20 69 6e 70 75 74 2d 66 69 6c 65 29 | .(*compile-filename*.input-file) |
| 178aa0 | 29 0a 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 23 7c 0a 20 20 20 20 20 20 | ).......(handler-bind.(#|....... |
| 178ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 3a 3a 63 6f 6d 70 69 6c | ...............(compiler::compil |
| 178ae0 | 65 72 2d 6e 6f 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 | er-note.......................#' |
| 178b00 | 28 6c 61 6d 62 64 61 20 28 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (lambda.(n)..................... |
| 178b20 | 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 25 73 77 61 6e 6b 20 73 61 77 20 61 20 63 | ......(format.t."~%swank.saw.a.c |
| 178b40 | 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 3a 20 7e 41 7e 25 22 20 6e 29 20 28 66 69 6e 69 73 68 2d 6f | ompiler.note:.~A~%".n).(finish-o |
| 178b60 | 75 74 70 75 74 29 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | utput).nil)).................... |
| 178b80 | 20 20 28 63 6f 6d 70 69 6c 65 72 3a 3a 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 0a 20 20 | ..(compiler::compiler-warning... |
| 178ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 77 | ....................#'(lambda.(w |
| 178bc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 | )...........................(for |
| 178be0 | 6d 61 74 20 74 20 22 7e 25 73 77 61 6e 6b 20 73 61 77 20 61 20 63 6f 6d 70 69 6c 65 72 20 77 61 | mat.t."~%swank.saw.a.compiler.wa |
| 178c00 | 72 6e 69 6e 67 3a 20 7e 41 7e 25 22 20 77 29 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 20 | rning:.~A~%".w).(finish-output). |
| 178c20 | 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 | nil))......................(comp |
| 178c40 | 69 6c 65 72 3a 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 | iler::compiler-error............ |
| 178c60 | 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 65 29 0a 20 20 20 20 20 20 20 | ...........#'(lambda.(e)........ |
| 178c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 25 | ...................(format.t."~% |
| 178ca0 | 73 77 61 6e 6b 20 73 61 77 20 61 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 3a 20 7e 41 7e 25 | swank.saw.a.compiler.error:.~A~% |
| 178cc0 | 22 20 65 29 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 20 6e 69 6c 29 29 0a 20 20 20 20 20 | ".e).(finish-output).nil))...... |
| 178ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 23 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................|#.............. |
| 178d00 | 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | ........).........(multiple-valu |
| 178d20 | 65 2d 62 69 6e 64 20 28 6f 75 74 70 75 74 2d 74 72 75 65 6e 61 6d 65 20 77 61 72 6e 69 6e 67 73 | e-bind.(output-truename.warnings |
| 178d40 | 2d 70 20 66 61 69 6c 75 72 65 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 | -p.failure-p)..............(comp |
| 178d60 | 69 6c 65 2d 66 69 6c 65 20 69 6e 70 75 74 2d 66 69 6c 65 20 3a 6f 75 74 70 75 74 2d 66 69 6c 65 | ile-file.input-file.:output-file |
| 178d80 | 20 6f 75 74 70 75 74 2d 66 69 6c 65 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 65 78 | .output-file.:external-format.ex |
| 178da0 | 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 | ternal-format)............(value |
| 178dc0 | 73 20 6f 75 74 70 75 74 2d 74 72 75 65 6e 61 6d 65 20 77 61 72 6e 69 6e 67 73 2d 70 0a 20 20 20 | s.output-truename.warnings-p.... |
| 178de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 66 61 69 6c 75 72 65 2d 70 0a 20 20 | ................(or.failure-p... |
| 178e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 6c 6f 61 64 2d 70 | .....................(and.load-p |
| 178e20 | 20 28 6e 6f 74 20 28 6c 6f 61 64 20 6f 75 74 70 75 74 2d 74 72 75 65 6e 61 6d 65 29 29 29 29 29 | .(not.(load.output-truename))))) |
| 178e40 | 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d | )))))..(defimplementation.swank- |
| 178e60 | 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 6b 65 79 20 62 75 66 66 | compile-string.(string.&key.buff |
| 178e80 | 65 72 20 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e | er.position.filename.line.column |
| 178ea0 | 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 69 6c 65 | .policy)...(declare.(ignore.file |
| 178ec0 | 6e 61 6d 65 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 77 69 74 | name.line.column.policy))...(wit |
| 178ee0 | 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 6c 65 74 20 | h-compilation-hooks.().....(let. |
| 178f00 | 28 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 | ((*buffer-name*.buffer)......... |
| 178f20 | 20 20 28 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 20 70 6f 73 69 74 | ..(*buffer-start-position*.posit |
| 178f40 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 2d 73 74 72 69 6e 67 2a 20 | ion)...........(*buffer-string*. |
| 178f60 | 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d | string)).......(with-input-from- |
| 178f80 | 73 74 72 69 6e 67 20 28 73 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | string.(s.string).........(when. |
| 178fa0 | 70 6f 73 69 74 69 6f 6e 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 70 6f 73 69 74 69 6f 6e | position.(file-position.position |
| 178fc0 | 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 72 6f 6d 2d 73 74 72 65 61 6d 20 | )).........(compile-from-stream. |
| 178fe0 | 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 66 72 6f 6d 2d 73 74 72 65 | s)))))..(defun.compile-from-stre |
| 179000 | 61 6d 20 28 73 74 72 65 61 6d 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 6d 6b 63 6c 3a | am.(stream)...(let.((file.(mkcl: |
| 179020 | 6d 6b 73 74 65 6d 70 20 22 54 4d 50 3a 4d 4b 43 4c 2d 53 57 41 4e 4b 2d 54 4d 50 58 58 58 58 58 | mkstemp."TMP:MKCL-SWANK-TMPXXXXX |
| 179040 | 58 22 29 29 0a 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 2d 74 72 75 65 6e 61 6d 65 0a 20 20 20 | X")).........output-truename.... |
| 179060 | 20 20 20 20 20 77 61 72 6e 69 6e 67 73 2d 70 0a 20 20 20 20 20 20 20 20 66 61 69 6c 75 72 65 2d | .....warnings-p.........failure- |
| 179080 | 70 0a 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 28 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 | p.........).....(with-open-file. |
| 1790a0 | 28 73 20 66 69 6c 65 20 3a 64 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 20 3a 69 66 2d 65 | (s.file.:direction.:output.:if-e |
| 1790c0 | 78 69 73 74 73 20 3a 6f 76 65 72 77 72 69 74 65 29 0a 20 20 20 20 20 20 28 64 6f 20 28 28 6c 69 | xists.:overwrite).......(do.((li |
| 1790e0 | 6e 65 20 28 72 65 61 64 2d 6c 69 6e 65 20 73 74 72 65 61 6d 20 6e 69 6c 29 20 28 72 65 61 64 2d | ne.(read-line.stream.nil).(read- |
| 179100 | 6c 69 6e 65 20 73 74 72 65 61 6d 20 6e 69 6c 29 29 29 0a 09 20 20 28 28 6e 6f 74 20 6c 69 6e 65 | line.stream.nil)))....((not.line |
| 179120 | 29 29 0a 09 28 77 72 69 74 65 2d 6c 69 6e 65 20 6c 69 6e 65 20 73 29 29 29 0a 20 20 20 20 28 75 | ))..(write-line.line.s))).....(u |
| 179140 | 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 | nwind-protect.........(progn.... |
| 179160 | 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 6f 75 74 | .......(multiple-value-setq.(out |
| 179180 | 70 75 74 2d 74 72 75 65 6e 61 6d 65 20 77 61 72 6e 69 6e 67 73 2d 70 20 66 61 69 6c 75 72 65 2d | put-truename.warnings-p.failure- |
| 1791a0 | 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 | p)................(compile-file. |
| 1791c0 | 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6e 6f 74 20 66 61 69 6c 75 | file))...........(and.(not.failu |
| 1791e0 | 72 65 2d 70 29 20 28 6c 6f 61 64 20 6f 75 74 70 75 74 2d 74 72 75 65 6e 61 6d 65 29 29 29 0a 20 | re-p).(load.output-truename))).. |
| 179200 | 20 20 20 20 20 28 77 68 65 6e 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 66 69 6c 65 29 20 28 64 65 | .....(when.(probe-file.file).(de |
| 179220 | 6c 65 74 65 2d 66 69 6c 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 70 72 | lete-file.file)).......(when.(pr |
| 179240 | 6f 62 65 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 74 72 75 65 6e 61 6d 65 29 20 28 64 65 6c 65 74 | obe-file.output-truename).(delet |
| 179260 | 65 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 74 72 75 65 6e 61 6d 65 29 29 29 29 29 0a 0a 0c 0a 3b | e-file.output-truename)))))....; |
| 179280 | 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 67 72 6f 76 65 6c | ;;;.Documentation..(defun.grovel |
| 1792a0 | 2d 64 6f 63 73 74 72 69 6e 67 2d 66 6f 72 2d 61 72 67 6c 69 73 74 20 28 6e 61 6d 65 20 74 79 70 | -docstring-for-arglist.(name.typ |
| 1792c0 | 65 29 0a 20 20 28 66 6c 65 74 20 28 28 63 6f 6d 70 75 74 65 2d 61 72 67 6c 69 73 74 2d 6f 66 66 | e)...(flet.((compute-arglist-off |
| 1792e0 | 73 65 74 20 28 64 6f 63 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | set.(docstring)............(when |
| 179300 | 20 64 6f 63 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 | .docstring..............(let.((p |
| 179320 | 6f 73 31 20 28 73 65 61 72 63 68 20 22 41 72 67 73 3a 20 22 20 64 6f 63 73 74 72 69 6e 67 29 29 | os1.(search."Args:.".docstring)) |
| 179340 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 6f 73 31 0a 20 20 20 20 20 20 | )................(if.pos1....... |
| 179360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 70 6f 73 31 20 36 29 0a 20 20 20 20 20 20 20 20 | .............(+.pos1.6)......... |
| 179380 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 32 20 28 73 65 61 72 63 68 20 22 | ...........(let.((pos2.(search." |
| 1793a0 | 53 79 6e 74 61 78 3a 20 22 20 64 6f 63 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 | Syntax:.".docstring))).......... |
| 1793c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 6f 73 32 0a 20 20 20 20 20 20 20 20 20 | ............(when.pos2.......... |
| 1793e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 70 6f 73 32 20 38 29 29 29 29 29 29 29 29 0a | ..............(+.pos2.8)))))))). |
| 179400 | 20 20 20 20 28 6c 65 74 2a 20 28 28 64 6f 63 73 74 72 69 6e 67 20 28 73 69 3a 3a 67 65 74 2d 64 | ....(let*.((docstring.(si::get-d |
| 179420 | 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6e 61 6d 65 20 74 79 70 65 29 29 0a 20 20 20 20 20 20 20 | ocumentation.name.type))........ |
| 179440 | 20 20 20 20 28 70 6f 73 20 28 63 6f 6d 70 75 74 65 2d 61 72 67 6c 69 73 74 2d 6f 66 66 73 65 74 | ....(pos.(compute-arglist-offset |
| 179460 | 20 64 6f 63 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 70 6f 73 0a 20 20 20 20 | .docstring))).......(if.pos..... |
| 179480 | 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 61 72 67 6c | ......(multiple-value-bind.(argl |
| 1794a0 | 69 73 74 20 65 72 72 6f 72 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 | ist.errorp)...............(ignor |
| 1794c0 | 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 | e-errors.................(values |
| 1794e0 | 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 64 6f 63 73 74 72 69 6e 67 20 74 20 6e | .(read-from-string.docstring.t.n |
| 179500 | 69 6c 20 3a 73 74 61 72 74 20 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 | il.:start.pos))).............(if |
| 179520 | 20 28 6f 72 20 65 72 72 6f 72 70 20 28 6e 6f 74 20 28 6c 69 73 74 70 20 61 72 67 6c 69 73 74 29 | .(or.errorp.(not.(listp.arglist) |
| 179540 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c | )).................:not-availabl |
| 179560 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 | e.................arglist....... |
| 179580 | 20 20 20 20 20 20 20 20 20 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 3a 6e 6f 74 2d 61 76 61 69 | ..........))...........:not-avai |
| 1795a0 | 6c 61 62 6c 65 20 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 | lable.))))..(defimplementation.a |
| 1795c0 | 72 67 6c 69 73 74 20 28 6e 61 6d 65 29 0a 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 73 79 6d | rglist.(name)...(cond.((and.(sym |
| 1795e0 | 62 6f 6c 70 20 6e 61 6d 65 29 20 28 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 2d 70 20 6e | bolp.name).(special-operator-p.n |
| 179600 | 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 6c 69 73 74 20 28 67 | ame))..........(let.((arglist.(g |
| 179620 | 72 6f 76 65 6c 2d 64 6f 63 73 74 72 69 6e 67 2d 66 6f 72 2d 61 72 67 6c 69 73 74 20 6e 61 6d 65 | rovel-docstring-for-arglist.name |
| 179640 | 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 6f | .'function)))............(if.(co |
| 179660 | 6e 73 70 20 61 72 67 6c 69 73 74 29 20 28 63 64 72 20 61 72 67 6c 69 73 74 29 20 61 72 67 6c 69 | nsp.arglist).(cdr.arglist).argli |
| 179680 | 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d | st))).........((and.(symbolp.nam |
| 1796a0 | 65 29 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 | e).(macro-function.name))....... |
| 1796c0 | 20 20 20 28 6c 65 74 20 28 28 61 72 67 6c 69 73 74 20 28 67 72 6f 76 65 6c 2d 64 6f 63 73 74 72 | ...(let.((arglist.(grovel-docstr |
| 1796e0 | 69 6e 67 2d 66 6f 72 2d 61 72 67 6c 69 73 74 20 6e 61 6d 65 20 27 66 75 6e 63 74 69 6f 6e 29 29 | ing-for-arglist.name.'function)) |
| 179700 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 6f 6e 73 70 20 61 72 67 6c 69 73 74 29 | )............(if.(consp.arglist) |
| 179720 | 20 28 63 64 72 20 61 72 67 6c 69 73 74 29 20 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 | .(cdr.arglist).arglist)))....... |
| 179740 | 20 20 28 28 6f 72 20 28 66 75 6e 63 74 69 6f 6e 70 20 6e 61 6d 65 29 20 28 66 62 6f 75 6e 64 70 | ..((or.(functionp.name).(fboundp |
| 179760 | 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | .name))..........(multiple-value |
| 179780 | 2d 62 69 6e 64 20 28 6e 61 6d 65 20 66 6e 64 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 | -bind.(name.fndef)............(i |
| 1797a0 | 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | f.(functionp.name).............. |
| 1797c0 | 20 20 28 76 61 6c 75 65 73 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 6e 61 6d 65 29 20 6e | ..(values.(function-name.name).n |
| 1797e0 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 6e 61 6d 65 20 28 | ame)..............(values.name.( |
| 179800 | 66 64 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | fdefinition.name)))............( |
| 179820 | 6c 65 74 20 28 28 66 6c 65 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 65 78 70 72 65 | let.((fle.(function-lambda-expre |
| 179840 | 73 73 69 6f 6e 20 66 6e 64 65 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 73 | ssion.fndef)))..............(cas |
| 179860 | 65 20 28 63 61 72 20 66 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | e.(car.fle)....................( |
| 179880 | 73 69 3a 6c 61 6d 62 64 61 2d 62 6c 6f 63 6b 20 28 63 61 64 64 72 20 66 6c 65 29 29 0a 20 20 20 | si:lambda-block.(caddr.fle)).... |
| 1798a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 74 79 70 65 63 61 73 65 20 66 6e 64 | ................(t.(typecase.fnd |
| 1798c0 | 65 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 6e 65 | ef.........................(gene |
| 1798e0 | 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 28 63 6c 6f 73 3a 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 | ric-function.(clos::generic-func |
| 179900 | 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 66 6e 64 65 66 29 29 0a 20 20 20 20 20 20 20 | tion-lambda-list.fndef))........ |
| 179920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 | .................(compiled-funct |
| 179940 | 69 6f 6e 20 28 67 72 6f 76 65 6c 2d 64 6f 63 73 74 72 69 6e 67 2d 66 6f 72 2d 61 72 67 6c 69 73 | ion.(grovel-docstring-for-arglis |
| 179960 | 74 20 6e 61 6d 65 20 27 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.name.'function)).............. |
| 179980 | 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 | ...........(function.:not-availa |
| 1799a0 | 62 6c 65 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 3a 6e 6f 74 2d 61 76 61 69 6c | ble))))))).........(t.:not-avail |
| 1799c0 | 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 75 6e 63 | able)))..(defimplementation.func |
| 1799e0 | 74 69 6f 6e 2d 6e 61 6d 65 20 28 66 29 0a 20 20 28 73 69 3a 63 6f 6d 70 69 6c 65 64 2d 66 75 6e | tion-name.(f)...(si:compiled-fun |
| 179a00 | 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 0a 20 20 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a | ction-name.f)...)..(eval-when.(: |
| 179a20 | 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 29 | compile-toplevel.:load-toplevel) |
| 179a40 | 0a 20 20 3b 3b 20 41 74 20 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 77 65 20 6e 65 65 64 20 61 63 | ...;;.At.compile-time.we.need.ac |
| 179a60 | 63 65 73 73 20 74 6f 20 74 68 65 20 77 61 6c 6b 65 72 20 70 61 63 6b 61 67 65 20 66 6f 72 20 74 | cess.to.the.walker.package.for.t |
| 179a80 | 68 65 0a 20 20 3b 3b 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 64 65 20 74 6f 20 62 65 | he...;;.the.following.code.to.be |
| 179aa0 | 20 72 65 61 64 20 70 72 6f 70 65 72 6c 79 2e 0a 20 20 3b 3b 20 49 74 20 69 73 20 61 20 62 69 74 | .read.properly....;;.It.is.a.bit |
| 179ac0 | 20 61 20 73 68 61 6d 65 20 77 65 20 68 61 76 65 20 74 6f 20 6c 6f 61 64 20 74 68 65 20 65 6e 74 | .a.shame.we.have.to.load.the.ent |
| 179ae0 | 69 72 65 20 6d 6f 64 75 6c 65 20 74 6f 20 67 65 74 20 74 68 61 74 2e 0a 20 20 28 72 65 71 75 69 | ire.module.to.get.that....(requi |
| 179b00 | 72 65 20 27 77 61 6c 6b 65 72 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | re.'walker))..(defimplementation |
| 179b20 | 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c | .macroexpand-all.(form.&optional |
| 179b40 | 20 65 6e 76 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 65 6e 76 29 29 0a 20 | .env)...(declare.(ignore.env)).. |
| 179b60 | 20 28 77 61 6c 6b 65 72 3a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 66 6f 72 6d 29 29 0a | .(walker:macroexpand-all.form)). |
| 179b80 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 73 79 6d | .(defimplementation.describe-sym |
| 179ba0 | 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 20 28 28 | bol-for-emacs.(symbol)...(let.(( |
| 179bc0 | 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 74 79 70 65 20 27 | result.'())).....(dolist.(type.' |
| 179be0 | 28 3a 56 41 52 49 41 42 4c 45 20 3a 46 55 4e 43 54 49 4f 4e 20 3a 43 4c 41 53 53 29 29 0a 20 20 | (:VARIABLE.:FUNCTION.:CLASS))... |
| 179c00 | 20 20 20 20 28 6c 65 74 20 28 28 64 6f 63 20 28 64 65 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 | ....(let.((doc.(describe-definit |
| 179c20 | 69 6f 6e 20 73 79 6d 62 6f 6c 20 74 79 70 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e | ion.symbol.type))).........(when |
| 179c40 | 20 64 6f 63 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 28 6c 69 73 | .doc...........(setf.result.(lis |
| 179c60 | 74 2a 20 74 79 70 65 20 64 6f 63 20 72 65 73 75 6c 74 29 29 29 29 29 0a 20 20 20 20 72 65 73 75 | t*.type.doc.result))))).....resu |
| 179c80 | 6c 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 | lt))..(defimplementation.describ |
| 179ca0 | 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 6e 61 6d 65 20 74 79 70 65 29 0a 20 20 28 63 61 73 65 | e-definition.(name.type)...(case |
| 179cc0 | 20 74 79 70 65 0a 20 20 20 20 28 3a 76 61 72 69 61 62 6c 65 20 28 64 6f 63 75 6d 65 6e 74 61 74 | .type.....(:variable.(documentat |
| 179ce0 | 69 6f 6e 20 6e 61 6d 65 20 27 76 61 72 69 61 62 6c 65 29 29 0a 20 20 20 20 28 3a 66 75 6e 63 74 | ion.name.'variable)).....(:funct |
| 179d00 | 69 6f 6e 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6e 61 6d 65 20 27 66 75 6e 63 74 69 6f | ion.(documentation.name.'functio |
| 179d20 | 6e 29 29 0a 20 20 20 20 28 3a 63 6c 61 73 73 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6e | n)).....(:class.(documentation.n |
| 179d40 | 61 6d 65 20 27 63 6c 61 73 73 29 29 0a 20 20 20 20 28 74 20 6e 69 6c 29 29 29 0a 0a 3b 3b 3b 20 | ame.'class)).....(t.nil)))..;;;. |
| 179d60 | 44 65 62 75 67 67 69 6e 67 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d | Debugging..(eval-when.(:compile- |
| 179d80 | 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 29 0a 20 20 28 69 6d 70 6f | toplevel.:load-toplevel)...(impo |
| 179da0 | 72 74 0a 20 20 20 27 28 73 69 3a 3a 2a 62 72 65 61 6b 2d 65 6e 76 2a 0a 20 20 20 20 20 73 69 3a | rt....'(si::*break-env*......si: |
| 179dc0 | 3a 2a 69 68 73 2d 74 6f 70 2a 0a 20 20 20 20 20 73 69 3a 3a 2a 69 68 73 2d 63 75 72 72 65 6e 74 | :*ihs-top*......si::*ihs-current |
| 179de0 | 2a 0a 20 20 20 20 20 73 69 3a 3a 2a 69 68 73 2d 62 61 73 65 2a 0a 20 20 20 20 20 73 69 3a 3a 2a | *......si::*ihs-base*......si::* |
| 179e00 | 66 72 73 2d 62 61 73 65 2a 0a 20 20 20 20 20 73 69 3a 3a 2a 66 72 73 2d 74 6f 70 2a 0a 20 20 20 | frs-base*......si::*frs-top*.... |
| 179e20 | 20 20 73 69 3a 3a 2a 74 70 6c 2d 63 6f 6d 6d 61 6e 64 73 2a 0a 20 20 20 20 20 73 69 3a 3a 2a 74 | ..si::*tpl-commands*......si::*t |
| 179e40 | 70 6c 2d 6c 65 76 65 6c 2a 0a 20 20 20 20 20 73 69 3a 3a 66 72 73 2d 74 6f 70 0a 20 20 20 20 20 | pl-level*......si::frs-top...... |
| 179e60 | 73 69 3a 3a 69 68 73 2d 74 6f 70 0a 20 20 20 20 20 73 69 3a 3a 69 68 73 2d 66 75 6e 0a 20 20 20 | si::ihs-top......si::ihs-fun.... |
| 179e80 | 20 20 73 69 3a 3a 69 68 73 2d 65 6e 76 0a 20 20 20 20 20 73 69 3a 3a 73 63 68 2d 66 72 73 2d 62 | ..si::ihs-env......si::sch-frs-b |
| 179ea0 | 61 73 65 0a 20 20 20 20 20 73 69 3a 3a 73 65 74 2d 62 72 65 61 6b 2d 65 6e 76 0a 20 20 20 20 20 | ase......si::set-break-env...... |
| 179ec0 | 73 69 3a 3a 73 65 74 2d 63 75 72 72 65 6e 74 2d 69 68 73 0a 20 20 20 20 20 73 69 3a 3a 74 70 6c | si::set-current-ihs......si::tpl |
| 179ee0 | 2d 63 6f 6d 6d 61 6e 64 73 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 62 61 63 6b 74 72 61 63 65 | -commands)))..(defvar.*backtrace |
| 179f00 | 2a 20 27 28 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 2d 73 77 61 6e 6b 2d 70 61 63 6b 61 67 65 2d | *.'())..(defun.in-swank-package- |
| 179f20 | 70 20 28 78 29 0a 20 20 28 61 6e 64 0a 20 20 20 28 73 79 6d 62 6f 6c 70 20 78 29 0a 20 20 20 28 | p.(x)...(and....(symbolp.x)....( |
| 179f40 | 6d 65 6d 62 65 72 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 78 29 0a 20 20 20 20 20 20 | member.(symbol-package.x)....... |
| 179f60 | 20 20 20 20 20 28 6c 69 73 74 20 23 2e 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e | .....(list.#.(find-package.:swan |
| 179f80 | 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2e 28 66 69 6e 64 2d 70 61 63 6b | k)..................#.(find-pack |
| 179fa0 | 61 67 65 20 3a 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | age.:swank/backend)............. |
| 179fc0 | 20 20 20 20 20 23 2e 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 69 6e 64 2d 70 61 63 6b | .....#.(ignore-errors.(find-pack |
| 179fe0 | 61 67 65 20 3a 73 77 61 6e 6b 2d 6d 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | age.:swank-mop))................ |
| 17a000 | 20 20 23 2e 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 | ..#.(ignore-errors.(find-package |
| 17a020 | 20 3a 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 29 29 29 29 0a 20 20 20 74 29 29 0a 0a 28 64 65 66 75 | .:swank-loader))))....t))..(defu |
| 17a040 | 6e 20 69 73 2d 73 77 61 6e 6b 2d 73 6f 75 72 63 65 2d 70 20 28 6e 61 6d 65 29 0a 20 20 28 73 65 | n.is-swank-source-p.(name)...(se |
| 17a060 | 74 66 20 6e 61 6d 65 20 28 70 61 74 68 6e 61 6d 65 20 6e 61 6d 65 29 29 0a 20 20 23 2b 28 6f 72 | tf.name.(pathname.name))...#+(or |
| 17a080 | 29 0a 20 20 28 70 61 74 68 6e 61 6d 65 2d 6d 61 74 63 68 2d 70 0a 20 20 20 6e 61 6d 65 0a 20 20 | )...(pathname-match-p....name... |
| 17a0a0 | 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 64 65 66 61 75 6c 74 73 20 73 77 61 6e 6b 2d | .(make-pathname.:defaults.swank- |
| 17a0c0 | 6c 6f 61 64 65 72 3a 3a 2a 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 2a 0a 20 20 20 20 20 | loader::*source-directory*...... |
| 17a0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 61 6d 65 20 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d | .............:name.(pathname-nam |
| 17a100 | 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 79 70 65 20 | e.name)...................:type. |
| 17a120 | 28 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (pathname-type.name)............ |
| 17a140 | 20 20 20 20 20 20 20 3a 76 65 72 73 69 6f 6e 20 28 70 61 74 68 6e 61 6d 65 2d 76 65 72 73 69 6f | .......:version.(pathname-versio |
| 17a160 | 6e 20 6e 61 6d 65 29 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 69 73 2d 69 67 6e 6f | n.name)))...nil)..(defun.is-igno |
| 17a180 | 72 61 62 6c 65 2d 66 75 6e 2d 70 20 28 78 29 0a 20 20 28 6f 72 0a 20 20 20 28 69 6e 2d 73 77 61 | rable-fun-p.(x)...(or....(in-swa |
| 17a1a0 | 6e 6b 2d 70 61 63 6b 61 67 65 2d 70 20 28 66 72 61 6d 65 2d 6e 61 6d 65 20 78 29 29 0a 20 20 20 | nk-package-p.(frame-name.x)).... |
| 17a1c0 | 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 69 6c 65 20 70 6f 73 69 74 | (multiple-value-bind.(file.posit |
| 17a1e0 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 69 3a 3a | ion)........(ignore-errors.(si:: |
| 17a200 | 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 66 69 6c 65 20 28 63 61 72 20 78 29 29 29 | compiled-function-file.(car.x))) |
| 17a220 | 0a 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 70 6f 73 69 74 69 6f 6e 29 | ......(declare.(ignore.position) |
| 17a240 | 29 0a 20 20 20 20 20 28 69 66 20 66 69 6c 65 20 28 69 73 2d 73 77 61 6e 6b 2d 73 6f 75 72 63 65 | )......(if.file.(is-swank-source |
| 17a260 | 2d 70 20 66 69 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 66 69 6e 64 2d 69 68 73 | -p.file)))))..(defmacro.find-ihs |
| 17a280 | 2d 74 6f 70 20 28 78 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 78 29 29 0a | -top.(x)...(declare.(ignore.x)). |
| 17a2a0 | 20 20 27 28 73 69 3a 3a 69 68 73 2d 74 6f 70 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | ..'(si::ihs-top))..(defimplement |
| 17a2c0 | 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f | ation.call-with-debugging-enviro |
| 17a2e0 | 6e 6d 65 6e 74 20 28 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 0a 20 20 28 64 65 63 6c | nment.(debugger-loop-fn)...(decl |
| 17a300 | 61 72 65 20 28 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 | are.(type.function.debugger-loop |
| 17a320 | 2d 66 6e 29 29 0a 20 20 28 6c 65 74 2a 20 28 3b 3b 28 2a 74 70 6c 2d 63 6f 6d 6d 61 6e 64 73 2a | -fn))...(let*.(;;(*tpl-commands* |
| 17a340 | 20 73 69 3a 3a 74 70 6c 2d 63 6f 6d 6d 61 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 28 2a 69 68 | .si::tpl-commands)..........(*ih |
| 17a360 | 73 2d 62 61 73 65 2a 20 30 29 0a 20 20 20 20 20 20 20 20 20 28 2a 69 68 73 2d 74 6f 70 2a 20 28 | s-base*.0)..........(*ihs-top*.( |
| 17a380 | 66 69 6e 64 2d 69 68 73 2d 74 6f 70 20 27 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 69 6e | find-ihs-top.'call-with-debuggin |
| 17a3a0 | 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 69 68 73 2d 63 | g-environment))..........(*ihs-c |
| 17a3c0 | 75 72 72 65 6e 74 2a 20 2a 69 68 73 2d 74 6f 70 2a 29 0a 20 20 20 20 20 20 20 20 20 28 2a 66 72 | urrent*.*ihs-top*)..........(*fr |
| 17a3e0 | 73 2d 62 61 73 65 2a 20 28 6f 72 20 28 73 63 68 2d 66 72 73 2d 62 61 73 65 20 30 20 23 7c 2a 66 | s-base*.(or.(sch-frs-base.0.#|*f |
| 17a400 | 72 73 2d 74 6f 70 2a 7c 23 20 2a 69 68 73 2d 62 61 73 65 2a 29 20 28 31 2b 20 28 66 72 73 2d 74 | rs-top*|#.*ihs-base*).(1+.(frs-t |
| 17a420 | 6f 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 66 72 73 2d 74 6f 70 2a 20 28 66 72 73 2d | op))))..........(*frs-top*.(frs- |
| 17a440 | 74 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 72 65 61 64 2d 73 75 70 70 72 65 73 73 2a 20 | top))..........(*read-suppress*. |
| 17a460 | 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 28 2a 74 70 6c 2d 6c 65 76 65 6c 2a 20 28 31 2b | nil)..........;;(*tpl-level*.(1+ |
| 17a480 | 20 2a 74 70 6c 2d 6c 65 76 65 6c 2a 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 62 61 63 6b 74 72 | .*tpl-level*))..........(*backtr |
| 17a4a0 | 61 63 65 2a 20 28 6c 6f 6f 70 20 66 6f 72 20 69 68 73 20 66 72 6f 6d 20 30 20 62 65 6c 6f 77 20 | ace*.(loop.for.ihs.from.0.below. |
| 17a4c0 | 2a 69 68 73 2d 74 6f 70 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *ihs-top*....................... |
| 17a4e0 | 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 28 73 69 3a 3a 69 68 73 2d 66 75 6e | ......collect.(list.(si::ihs-fun |
| 17a500 | 20 69 68 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .ihs)........................... |
| 17a520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 3a 3a 69 68 73 2d 65 6e 76 20 69 68 73 | ................(si::ihs-env.ihs |
| 17a540 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 17a560 | 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 | ............nil)))).....(declare |
| 17a580 | 20 28 73 70 65 63 69 61 6c 20 2a 69 68 73 2d 63 75 72 72 65 6e 74 2a 29 29 0a 20 20 20 20 28 6c | .(special.*ihs-current*)).....(l |
| 17a5a0 | 6f 6f 70 20 66 6f 72 20 66 20 66 72 6f 6d 20 2a 66 72 73 2d 62 61 73 65 2a 20 74 6f 20 2a 66 72 | oop.for.f.from.*frs-base*.to.*fr |
| 17a5c0 | 73 2d 74 6f 70 2a 0a 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 6c 65 74 20 28 28 69 20 28 2d 20 | s-top*...........do.(let.((i.(-. |
| 17a5e0 | 28 73 69 3a 3a 66 72 73 2d 69 68 73 20 66 29 20 2a 69 68 73 2d 62 61 73 65 2a 20 31 29 29 29 0a | (si::frs-ihs.f).*ihs-base*.1))). |
| 17a600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 70 6c 75 73 70 20 69 29 0a 20 | ...............(when.(plusp.i).. |
| 17a620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 78 20 28 65 6c 74 20 2a | ................(let*.((x.(elt.* |
| 17a640 | 62 61 63 6b 74 72 61 63 65 2a 20 69 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | backtrace*.i)).................. |
| 17a660 | 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 73 69 3a 3a 66 72 73 2d 74 61 67 20 66 29 29 29 0a 20 | .......(name.(si::frs-tag.f))).. |
| 17a680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6d 6b 63 6c 3a | ..................(unless.(mkcl: |
| 17a6a0 | 66 69 78 6e 75 6d 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fixnump.name)................... |
| 17a6c0 | 20 20 20 28 70 75 73 68 20 6e 61 6d 65 20 28 74 68 69 72 64 20 78 29 29 29 29 29 29 29 0a 20 20 | ...(push.name.(third.x)))))))... |
| 17a6e0 | 20 20 28 73 65 74 66 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 28 72 65 6d 6f 76 65 2d 69 66 20 23 | ..(setf.*backtrace*.(remove-if.# |
| 17a700 | 27 69 73 2d 69 67 6e 6f 72 61 62 6c 65 2d 66 75 6e 2d 70 20 28 6e 72 65 76 65 72 73 65 20 2a 62 | 'is-ignorable-fun-p.(nreverse.*b |
| 17a720 | 61 63 6b 74 72 61 63 65 2a 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 2a 74 6d 70 2a 20 2a 62 61 | acktrace*))).....(setf.*tmp*.*ba |
| 17a740 | 63 6b 74 72 61 63 65 2a 29 0a 20 20 20 20 28 73 65 74 2d 62 72 65 61 6b 2d 65 6e 76 29 0a 20 20 | cktrace*).....(set-break-env)... |
| 17a760 | 20 20 28 73 65 74 2d 63 75 72 72 65 6e 74 2d 69 68 73 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a | ..(set-current-ihs).....(let.((* |
| 17a780 | 69 68 73 2d 62 61 73 65 2a 20 2a 69 68 73 2d 74 6f 70 2a 29 29 0a 20 20 20 20 20 20 28 66 75 6e | ihs-base*.*ihs-top*)).......(fun |
| 17a7a0 | 63 61 6c 6c 20 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 29 29 29 0a 0a 28 64 65 66 69 | call.debugger-loop-fn))))..(defi |
| 17a7c0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 65 72 | mplementation.call-with-debugger |
| 17a7e0 | 2d 68 6f 6f 6b 20 28 68 6f 6f 6b 20 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a 64 65 62 75 67 | -hook.(hook.fun)...(let.((*debug |
| 17a800 | 67 65 72 2d 68 6f 6f 6b 2a 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 28 2a 69 68 73 2d 62 61 | ger-hook*.hook).........(*ihs-ba |
| 17a820 | 73 65 2a 20 28 66 69 6e 64 2d 69 68 73 2d 74 6f 70 20 27 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 | se*.(find-ihs-top.'call-with-deb |
| 17a840 | 75 67 67 65 72 2d 68 6f 6f 6b 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 29 29 | ugger-hook))).....(funcall.fun)) |
| 17a860 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 70 75 74 65 2d 62 61 | )..(defimplementation.compute-ba |
| 17a880 | 63 6b 74 72 61 63 65 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 77 68 65 6e 20 28 6e 75 6d | cktrace.(start.end)...(when.(num |
| 17a8a0 | 62 65 72 70 20 65 6e 64 29 0a 20 20 20 20 28 73 65 74 66 20 65 6e 64 20 28 6d 69 6e 20 65 6e 64 | berp.end).....(setf.end.(min.end |
| 17a8c0 | 20 28 6c 65 6e 67 74 68 20 2a 62 61 63 6b 74 72 61 63 65 2a 29 29 29 29 0a 20 20 28 6c 6f 6f 70 | .(length.*backtrace*))))...(loop |
| 17a8e0 | 20 66 6f 72 20 66 20 69 6e 20 28 73 75 62 73 65 71 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 73 74 | .for.f.in.(subseq.*backtrace*.st |
| 17a900 | 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 66 29 29 0a 0a 28 64 | art.end).........collect.f))..(d |
| 17a920 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 6d 61 74 2d 73 6c 64 62 2d 63 6f 6e | efimplementation.format-sldb-con |
| 17a940 | 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 46 6f 72 6d 61 74 20 61 20 63 | dition.(condition)..."Format.a.c |
| 17a960 | 6f 6e 64 69 74 69 6f 6e 20 66 6f 72 20 64 69 73 70 6c 61 79 20 69 6e 20 53 4c 44 42 2e 22 0a 20 | ondition.for.display.in.SLDB.".. |
| 17a980 | 20 3b 3b 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 | .;;(princ-to-string.condition).. |
| 17a9a0 | 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 7e 25 49 6e 20 74 68 72 65 61 64 3a 20 7e 53 22 | .(format.nil."~A~%In.thread:.~S" |
| 17a9c0 | 20 63 6f 6e 64 69 74 69 6f 6e 20 6d 74 3a 2a 74 68 72 65 61 64 2a 29 0a 20 20 29 0a 0a 28 64 65 | .condition.mt:*thread*)...)..(de |
| 17a9e0 | 66 75 6e 20 66 72 61 6d 65 2d 6e 61 6d 65 20 28 66 72 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 | fun.frame-name.(frame)...(let.(( |
| 17aa00 | 78 20 28 66 69 72 73 74 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 69 66 20 28 73 79 6d 62 6f | x.(first.frame))).....(if.(symbo |
| 17aa20 | 6c 70 20 78 29 0a 20 20 20 20 20 20 78 0a 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 | lp.x).......x.......(function-na |
| 17aa40 | 6d 65 20 78 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 70 6f 73 69 74 69 | me.x))))..(defun.function-positi |
| 17aa60 | 6f 6e 20 28 66 75 6e 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 | on.(fun)...(multiple-value-bind. |
| 17aa80 | 28 66 69 6c 65 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 69 3a 3a 63 6f 6d 70 69 | (file.position).......(si::compi |
| 17aaa0 | 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 66 69 6c 65 20 66 75 6e 29 0a 20 20 20 20 28 61 6e 64 20 | led-function-file.fun).....(and. |
| 17aac0 | 66 69 6c 65 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | file.(make-location............. |
| 17aae0 | 20 20 20 60 28 3a 66 69 6c 65 20 2c 28 69 66 20 28 73 74 72 69 6e 67 70 20 66 69 6c 65 29 20 66 | ...`(:file.,(if.(stringp.file).f |
| 17ab00 | 69 6c 65 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 | ile.(namestring.file)))......... |
| 17ab20 | 20 20 20 20 20 20 20 3b 3b 60 28 3a 70 6f 73 69 74 69 6f 6e 20 2c 70 6f 73 69 74 69 6f 6e 29 0a | .......;;`(:position.,position). |
| 17ab40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 2c | ...............`(:end-position., |
| 17ab60 | 20 70 6f 73 69 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 66 75 6e | .position)))))..(defun.frame-fun |
| 17ab80 | 63 74 69 6f 6e 20 28 66 72 61 6d 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 78 20 28 66 69 72 73 74 | ction.(frame)...(let*.((x.(first |
| 17aba0 | 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 66 75 6e 20 70 6f 73 69 74 69 6f 6e 29 0a | .frame))..........fun.position). |
| 17abc0 | 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 78 0a 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 | ....(etypecase.x.......(symbol.( |
| 17abe0 | 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | and.(fboundp.x)................. |
| 17ac00 | 20 20 20 28 73 65 74 66 20 66 75 6e 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 78 29 0a 20 20 20 | ...(setf.fun.(fdefinition.x).... |
| 17ac20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 20 28 | ......................position.( |
| 17ac40 | 66 75 6e 63 74 69 6f 6e 2d 70 6f 73 69 74 69 6f 6e 20 66 75 6e 29 29 29 29 0a 20 20 20 20 20 20 | function-position.fun))))....... |
| 17ac60 | 28 66 75 6e 63 74 69 6f 6e 20 28 73 65 74 66 20 66 75 6e 20 78 20 70 6f 73 69 74 69 6f 6e 20 28 | (function.(setf.fun.x.position.( |
| 17ac80 | 66 75 6e 63 74 69 6f 6e 2d 70 6f 73 69 74 69 6f 6e 20 78 29 29 29 29 0a 20 20 20 20 28 76 61 6c | function-position.x)))).....(val |
| 17aca0 | 75 65 73 20 66 75 6e 20 70 6f 73 69 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d | ues.fun.position)))..(defun.fram |
| 17acc0 | 65 2d 64 65 63 6f 64 65 2d 65 6e 76 20 28 66 72 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 66 75 | e-decode-env.(frame)...(let.((fu |
| 17ace0 | 6e 63 74 69 6f 6e 73 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 62 6c 6f 63 6b 73 20 27 28 29 | nctions.'()).........(blocks.'() |
| 17ad00 | 29 0a 20 20 20 20 20 20 20 20 28 76 61 72 69 61 62 6c 65 73 20 27 28 29 29 29 0a 20 20 20 20 28 | ).........(variables.'())).....( |
| 17ad20 | 73 65 74 66 20 66 72 61 6d 65 20 28 73 69 3a 3a 64 65 63 6f 64 65 2d 69 68 73 2d 65 6e 76 20 28 | setf.frame.(si::decode-ihs-env.( |
| 17ad40 | 73 65 63 6f 6e 64 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 72 65 63 | second.frame))).....(dolist.(rec |
| 17ad60 | 6f 72 64 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 72 65 63 6f 72 64 30 | ord.frame).......(let*.((record0 |
| 17ad80 | 20 28 63 61 72 20 72 65 63 6f 72 64 29 29 0a 09 20 20 20 20 20 28 72 65 63 6f 72 64 31 20 28 63 | .(car.record)).......(record1.(c |
| 17ada0 | 64 72 20 72 65 63 6f 72 64 29 29 29 0a 09 28 63 6f 6e 64 20 28 28 6f 72 20 28 73 79 6d 62 6f 6c | dr.record)))..(cond.((or.(symbol |
| 17adc0 | 70 20 72 65 63 6f 72 64 30 29 20 28 73 74 72 69 6e 67 70 20 72 65 63 6f 72 64 30 29 29 0a 09 20 | p.record0).(stringp.record0))... |
| 17ade0 | 20 20 20 20 20 20 28 73 65 74 71 20 76 61 72 69 61 62 6c 65 73 20 28 61 63 6f 6e 73 20 72 65 63 | ......(setq.variables.(acons.rec |
| 17ae00 | 6f 72 64 30 20 72 65 63 6f 72 64 31 20 76 61 72 69 61 62 6c 65 73 29 29 29 0a 09 20 20 20 20 20 | ord0.record1.variables)))....... |
| 17ae20 | 20 28 28 6e 6f 74 20 28 6d 6b 63 6c 3a 66 69 78 6e 75 6d 70 20 72 65 63 6f 72 64 30 29 29 0a 09 | .((not.(mkcl:fixnump.record0)).. |
| 17ae40 | 20 20 20 20 20 20 20 28 70 75 73 68 20 72 65 63 6f 72 64 31 20 66 75 6e 63 74 69 6f 6e 73 29 29 | .......(push.record1.functions)) |
| 17ae60 | 0a 09 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 70 20 72 65 63 6f 72 64 31 29 0a 09 20 20 20 20 | ........((symbolp.record1)...... |
| 17ae80 | 20 20 20 28 70 75 73 68 20 72 65 63 6f 72 64 31 20 62 6c 6f 63 6b 73 29 29 0a 09 20 20 20 20 20 | ...(push.record1.blocks))....... |
| 17aea0 | 20 28 74 0a 09 20 20 20 20 20 20 20 29 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 66 75 6e | .(t.........)))).....(values.fun |
| 17aec0 | 63 74 69 6f 6e 73 20 62 6c 6f 63 6b 73 20 76 61 72 69 61 62 6c 65 73 29 29 29 0a 0a 28 64 65 66 | ctions.blocks.variables)))..(def |
| 17aee0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d | implementation.print-frame.(fram |
| 17af00 | 65 20 73 74 72 65 61 6d 29 0a 20 20 28 6c 65 74 20 28 28 66 75 6e 63 74 69 6f 6e 20 28 66 69 72 | e.stream)...(let.((function.(fir |
| 17af20 | 73 74 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 6e 61 6d 65 0a 3b 3b 3b | st.frame))).....(let.((fname.;;; |
| 17af40 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 79 6d 62 6f 6c 70 20 66 75 6e 63 74 | ...........(cond.((symbolp.funct |
| 17af60 | 69 6f 6e 29 20 66 75 6e 63 74 69 6f 6e 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion).function).;;;.............. |
| 17af80 | 20 20 20 28 28 73 69 3a 69 6e 73 74 61 6e 63 65 70 20 66 75 6e 63 74 69 6f 6e 29 20 28 73 6c 6f | ...((si:instancep.function).(slo |
| 17afa0 | 74 2d 76 61 6c 75 65 20 66 75 6e 63 74 69 6f 6e 20 27 6e 61 6d 65 29 29 0a 3b 3b 3b 20 20 20 20 | t-value.function.'name)).;;;.... |
| 17afc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e | .............((compiled-function |
| 17afe0 | 2d 70 20 66 75 6e 63 74 69 6f 6e 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -p.function).;;;................ |
| 17b000 | 20 20 28 6f 72 20 28 73 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d | ..(or.(si::compiled-function-nam |
| 17b020 | 65 20 66 75 6e 63 74 69 6f 6e 29 20 27 6c 61 6d 62 64 61 29 29 0a 3b 3b 3b 20 20 20 20 20 20 20 | e.function).'lambda)).;;;....... |
| 17b040 | 20 20 20 20 20 20 20 20 20 20 28 74 20 3a 7a 6f 6d 62 69 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ..........(t.:zombi))........... |
| 17b060 | 20 28 73 69 3a 3a 67 65 74 2d 66 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 | .(si::get-fname.function)....... |
| 17b080 | 20 20 20 20 20 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 65 71 20 66 6e 61 6d 65 20 27 73 69 3a | .....)).......(if.(eq.fname.'si: |
| 17b0a0 | 3a 62 79 74 65 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 | :bytecode)...........(format.str |
| 17b0c0 | 65 61 6d 20 22 7e 41 20 5b 45 76 61 6c 75 61 74 69 6f 6e 20 6f 66 3a 20 7e 53 5d 22 0a 20 20 20 | eam."~A.[Evaluation.of:.~S]".... |
| 17b0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6e 61 6d 65 20 28 66 75 6e 63 74 69 6f 6e 2d 6c | ...............fname.(function-l |
| 17b100 | 61 6d 62 64 61 2d 65 78 70 72 65 73 73 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 | ambda-expression.function))..... |
| 17b120 | 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 41 22 20 66 6e 61 6d 65 29 0a 20 | ....(format.stream."~A".fname).. |
| 17b140 | 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 69 3a 3a 63 6c 6f 73 75 72 | .......).......(when.(si::closur |
| 17b160 | 65 70 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 | ep.function).........(format.str |
| 17b180 | 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 20 63 6c 6f 73 75 72 65 20 67 | eam.................",.closure.g |
| 17b1a0 | 65 6e 65 72 61 74 65 64 20 66 72 6f 6d 20 7e 41 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | enerated.from.~A"............... |
| 17b1c0 | 20 20 28 73 69 3a 3a 67 65 74 2d 66 6e 61 6d 65 20 28 73 69 3a 63 6c 6f 73 75 72 65 2d 70 72 6f | ..(si::get-fname.(si:closure-pro |
| 17b1e0 | 64 75 63 65 72 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 | ducer.function))).........)..... |
| 17b200 | 20 20 29 0a 20 20 20 20 29 0a 20 20 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | ..).....)...)..(defimplementatio |
| 17b220 | 6e 20 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 72 61 6d 65 2d 6e | n.frame-source-location.(frame-n |
| 17b240 | 75 6d 62 65 72 29 0a 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 31 20 28 66 72 61 6d 65 2d 66 75 6e | umber)...(nth-value.1.(frame-fun |
| 17b260 | 63 74 69 6f 6e 20 28 65 6c 74 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d | ction.(elt.*backtrace*.frame-num |
| 17b280 | 62 65 72 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d | ber))))..(defimplementation.fram |
| 17b2a0 | 65 2d 63 61 74 63 68 2d 74 61 67 73 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 74 | e-catch-tags.(frame-number)...(t |
| 17b2c0 | 68 69 72 64 20 28 65 6c 74 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 | hird.(elt.*backtrace*.frame-numb |
| 17b2e0 | 65 72 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d | er)))..(defimplementation.frame- |
| 17b300 | 6c 6f 63 61 6c 73 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 6f 6f 70 20 66 6f | locals.(frame-number)...(loop.fo |
| 17b320 | 72 20 28 6e 61 6d 65 20 2e 20 76 61 6c 75 65 29 20 69 6e 20 28 6e 74 68 2d 76 61 6c 75 65 20 32 | r.(name...value).in.(nth-value.2 |
| 17b340 | 20 28 66 72 61 6d 65 2d 64 65 63 6f 64 65 2d 65 6e 76 20 28 65 6c 74 20 2a 62 61 63 6b 74 72 61 | .(frame-decode-env.(elt.*backtra |
| 17b360 | 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 77 69 74 68 | ce*.frame-number))).........with |
| 17b380 | 20 69 20 3d 20 30 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 6e 61 | .i.=.0.........collect.(list.:na |
| 17b3a0 | 6d 65 20 6e 61 6d 65 20 3a 69 64 20 28 70 72 6f 67 31 20 69 20 28 69 6e 63 66 20 69 29 29 20 3a | me.name.:id.(prog1.i.(incf.i)).: |
| 17b3c0 | 76 61 6c 75 65 20 76 61 6c 75 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | value.value)))..(defimplementati |
| 17b3e0 | 6f 6e 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 | on.frame-var-value.(frame-number |
| 17b400 | 20 76 61 72 2d 69 64 29 0a 20 20 28 63 64 72 20 28 65 6c 74 20 28 6e 74 68 2d 76 61 6c 75 65 20 | .var-id)...(cdr.(elt.(nth-value. |
| 17b420 | 32 20 28 66 72 61 6d 65 2d 64 65 63 6f 64 65 2d 65 6e 76 20 28 65 6c 74 20 2a 62 61 63 6b 74 72 | 2.(frame-decode-env.(elt.*backtr |
| 17b440 | 61 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 20 76 61 72 2d 69 64 29 29 29 0a 0a | ace*.frame-number))).var-id))).. |
| 17b460 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 | (defimplementation.disassemble-f |
| 17b480 | 72 61 6d 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 20 28 28 66 75 6e | rame.(frame-number)...(let.((fun |
| 17b4a0 | 20 28 66 72 61 6d 65 2d 66 75 6e 20 28 65 6c 74 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 66 72 61 | .(frame-fun.(elt.*backtrace*.fra |
| 17b4c0 | 6d 65 2d 6e 75 6d 62 65 72 29 29 29 29 0a 20 20 20 20 28 64 69 73 61 73 73 65 6d 62 6c 65 20 66 | me-number)))).....(disassemble.f |
| 17b4e0 | 75 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 65 76 61 6c 2d 69 | un)))..(defimplementation.eval-i |
| 17b500 | 6e 2d 66 72 61 6d 65 20 28 66 6f 72 6d 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c | n-frame.(form.frame-number)...(l |
| 17b520 | 65 74 20 28 28 65 6e 76 20 28 73 65 63 6f 6e 64 20 28 65 6c 74 20 2a 62 61 63 6b 74 72 61 63 65 | et.((env.(second.(elt.*backtrace |
| 17b540 | 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 29 0a 20 20 20 20 28 73 69 3a 65 76 61 6c 2d | *.frame-number)))).....(si:eval- |
| 17b560 | 69 6e 2d 65 6e 76 20 66 6f 72 6d 20 65 6e 76 29 29 29 0a 0a 23 7c 0a 28 64 65 66 69 6d 70 6c 65 | in-env.form.env)))..#|.(defimple |
| 17b580 | 6d 65 6e 74 61 74 69 6f 6e 20 67 64 62 2d 69 6e 69 74 69 61 6c 2d 63 6f 6d 6d 61 6e 64 73 20 28 | mentation.gdb-initial-commands.( |
| 17b5a0 | 29 0a 20 20 3b 3b 20 54 68 65 73 65 20 73 69 67 6e 61 6c 73 20 61 72 65 20 75 73 65 64 20 62 79 | )...;;.These.signals.are.used.by |
| 17b5c0 | 20 74 68 65 20 47 43 2e 0a 20 20 23 2b 6c 69 6e 75 78 20 27 28 22 68 61 6e 64 6c 65 20 53 49 47 | .the.GC....#+linux.'("handle.SIG |
| 17b5e0 | 50 57 52 20 20 6e 6f 70 72 69 6e 74 20 6e 6f 73 74 6f 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 | PWR..noprint.nostop"............ |
| 17b600 | 20 22 68 61 6e 64 6c 65 20 53 49 47 58 43 50 55 20 6e 6f 70 72 69 6e 74 20 6e 6f 73 74 6f 70 22 | ."handle.SIGXCPU.noprint.nostop" |
| 17b620 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2d 6c | ))..(defimplementation.command-l |
| 17b640 | 69 6e 65 2d 61 72 67 73 20 28 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6e 20 66 72 6f 6d 20 30 | ine-args.()...(loop.for.n.from.0 |
| 17b660 | 20 62 65 6c 6f 77 20 28 73 69 3a 61 72 67 63 29 20 63 6f 6c 6c 65 63 74 20 28 73 69 3a 61 72 67 | .below.(si:argc).collect.(si:arg |
| 17b680 | 76 20 6e 29 29 29 0a 7c 23 0a 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 74 6f 72 0a 0a 28 64 65 66 6d | v.n))).|#..;;;;.Inspector..(defm |
| 17b6a0 | 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 74 29 29 0a 20 20 3b 20 | ethod.emacs-inspect.((o.t))...;. |
| 17b6c0 | 65 63 6c 20 63 6c 6f 73 20 73 75 70 70 6f 72 74 20 6c 65 61 76 65 73 20 73 6f 6d 65 20 74 6f 20 | ecl.clos.support.leaves.some.to. |
| 17b6e0 | 62 65 20 64 65 73 69 72 65 64 0a 20 20 28 63 6f 6e 64 0a 20 20 20 20 28 28 73 74 72 65 61 6d 70 | be.desired...(cond.....((streamp |
| 17b700 | 20 6f 29 0a 20 20 20 20 20 28 6c 69 73 74 2a 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 | .o)......(list*.......(format.ni |
| 17b720 | 6c 20 22 7e 53 20 69 73 20 61 6e 20 6f 72 64 69 6e 61 72 79 20 73 74 72 65 61 6d 7e 25 22 20 6f | l."~S.is.an.ordinary.stream~%".o |
| 17b740 | 29 0a 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 | ).......(append........(list.... |
| 17b760 | 20 20 20 20 20 22 4f 70 65 6e 20 66 6f 72 20 22 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 | ....."Open.for.".........(cond.. |
| 17b780 | 20 20 20 20 20 20 20 20 20 28 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 69 6e 74 65 72 61 | .........((ignore-errors.(intera |
| 17b7a0 | 63 74 69 76 65 2d 73 74 72 65 61 6d 2d 70 20 6f 29 29 20 22 49 6e 74 65 72 61 63 74 69 76 65 22 | ctive-stream-p.o))."Interactive" |
| 17b7c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 69 6e 70 75 74 2d 73 74 72 65 61 6d 2d | )...........((and.(input-stream- |
| 17b7e0 | 70 20 6f 29 20 28 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 70 20 6f 29 29 20 22 49 6e 70 75 74 | p.o).(output-stream-p.o))."Input |
| 17b800 | 20 61 6e 64 20 6f 75 74 70 75 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 69 6e 70 75 74 2d | .and.output")...........((input- |
| 17b820 | 73 74 72 65 61 6d 2d 70 20 6f 29 20 22 49 6e 70 75 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 | stream-p.o)."Input")...........( |
| 17b840 | 28 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 70 20 6f 29 20 22 4f 75 74 70 75 74 22 29 29 0a 20 | (output-stream-p.o)."Output")).. |
| 17b860 | 20 20 20 20 20 20 20 60 28 3a 6e 65 77 6c 69 6e 65 29 20 60 28 3a 6e 65 77 6c 69 6e 65 29 29 0a | .......`(:newline).`(:newline)). |
| 17b880 | 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 | .......(label-value-line*....... |
| 17b8a0 | 20 20 28 22 45 6c 65 6d 65 6e 74 20 74 79 70 65 22 20 28 73 74 72 65 61 6d 2d 65 6c 65 6d 65 6e | ..("Element.type".(stream-elemen |
| 17b8c0 | 74 2d 74 79 70 65 20 6f 29 29 0a 20 20 20 20 20 20 20 20 28 22 45 78 74 65 72 6e 61 6c 20 66 6f | t-type.o)).........("External.fo |
| 17b8e0 | 72 6d 61 74 22 20 28 73 74 72 65 61 6d 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 6f 29 | rmat".(stream-external-format.o) |
| 17b900 | 29 29 0a 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 6c 61 62 65 6c 2d | ))........(ignore-errors.(label- |
| 17b920 | 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | value-line*..................... |
| 17b940 | 20 20 20 28 22 42 72 6f 61 64 63 61 73 74 20 73 74 72 65 61 6d 73 22 20 28 62 72 6f 61 64 63 61 | ...("Broadcast.streams".(broadca |
| 17b960 | 73 74 2d 73 74 72 65 61 6d 2d 73 74 72 65 61 6d 73 20 6f 29 29 29 29 0a 20 20 20 20 20 20 20 28 | st-stream-streams.o))))........( |
| 17b980 | 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a | ignore-errors.(label-value-line* |
| 17b9a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 43 6f 6e 63 61 74 | ........................("Concat |
| 17b9c0 | 65 6e 61 74 65 64 20 73 74 72 65 61 6d 73 22 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 64 2d 73 74 | enated.streams".(concatenated-st |
| 17b9e0 | 72 65 61 6d 2d 73 74 72 65 61 6d 73 20 6f 29 29 29 29 0a 20 20 20 20 20 20 20 28 69 67 6e 6f 72 | ream-streams.o))))........(ignor |
| 17ba00 | 65 2d 65 72 72 6f 72 73 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 | e-errors.(label-value-line*..... |
| 17ba20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 45 63 68 6f 20 69 6e 70 75 74 20 | ...................("Echo.input. |
| 17ba40 | 73 74 72 65 61 6d 22 20 28 65 63 68 6f 2d 73 74 72 65 61 6d 2d 69 6e 70 75 74 2d 73 74 72 65 61 | stream".(echo-stream-input-strea |
| 17ba60 | 6d 20 6f 29 29 29 29 0a 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 6c | m.o))))........(ignore-errors.(l |
| 17ba80 | 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | abel-value-line*................ |
| 17baa0 | 20 20 20 20 20 20 20 20 28 22 45 63 68 6f 20 6f 75 74 70 75 74 20 73 74 72 65 61 6d 22 20 28 65 | ........("Echo.output.stream".(e |
| 17bac0 | 63 68 6f 2d 73 74 72 65 61 6d 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 6f 29 29 29 29 0a 20 | cho-stream-output-stream.o)))).. |
| 17bae0 | 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 6c 61 62 65 6c 2d 76 61 6c 75 | ......(ignore-errors.(label-valu |
| 17bb00 | 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | e-line*........................( |
| 17bb20 | 22 4f 75 74 70 75 74 20 53 74 72 69 6e 67 22 20 28 67 65 74 2d 6f 75 74 70 75 74 2d 73 74 72 65 | "Output.String".(get-output-stre |
| 17bb40 | 61 6d 2d 73 74 72 69 6e 67 20 6f 29 29 29 29 0a 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 | am-string.o))))........(ignore-e |
| 17bb60 | 72 72 6f 72 73 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 | rrors.(label-value-line*........ |
| 17bb80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 53 79 6e 6f 6e 79 6d 20 73 79 6d 62 6f 6c | ................("Synonym.symbol |
| 17bba0 | 22 20 28 73 79 6e 6f 6e 79 6d 2d 73 74 72 65 61 6d 2d 73 79 6d 62 6f 6c 20 6f 29 29 29 29 0a 20 | ".(synonym-stream-symbol.o)))).. |
| 17bbc0 | 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 6c 61 62 65 6c 2d 76 61 6c 75 | ......(ignore-errors.(label-valu |
| 17bbe0 | 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | e-line*........................( |
| 17bc00 | 22 49 6e 70 75 74 20 73 74 72 65 61 6d 22 20 28 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 2d 69 | "Input.stream".(two-way-stream-i |
| 17bc20 | 6e 70 75 74 2d 73 74 72 65 61 6d 20 6f 29 29 29 29 0a 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 | nput-stream.o))))........(ignore |
| 17bc40 | 2d 65 72 72 6f 72 73 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 | -errors.(label-value-line*...... |
| 17bc60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 4f 75 74 70 75 74 20 73 74 72 65 61 | ..................("Output.strea |
| 17bc80 | 6d 22 20 28 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d | m".(two-way-stream-output-stream |
| 17bca0 | 20 6f 29 29 29 29 29 29 29 0a 20 20 20 20 28 28 73 69 3a 69 6e 73 74 61 6e 63 65 70 20 6f 29 20 | .o))))))).....((si:instancep.o). |
| 17bcc0 | 3b 3b 74 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6c 20 28 73 69 3a 69 6e 73 74 61 6e 63 65 | ;;t......(let*.((cl.(si:instance |
| 17bce0 | 2d 63 6c 61 73 73 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 6f 74 73 20 28 63 | -class.o)).............(slots.(c |
| 17bd00 | 6c 6f 73 3a 3a 63 6c 61 73 73 2d 73 6c 6f 74 73 20 63 6c 29 29 29 0a 20 20 20 20 20 20 20 28 6c | los::class-slots.cl)))........(l |
| 17bd20 | 69 73 74 2a 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 61 6e 20 69 6e 73 74 61 | ist*.(format.nil."~S.is.an.insta |
| 17bd40 | 6e 63 65 20 6f 66 20 63 6c 61 73 73 20 7e 41 7e 25 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | nce.of.class.~A~%".............. |
| 17bd60 | 20 20 20 20 20 20 20 20 20 20 6f 20 28 63 6c 6f 73 3a 3a 63 6c 61 73 73 2d 6e 61 6d 65 20 63 6c | ..........o.(clos::class-name.cl |
| 17bd80 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 78 20 69 6e | ))................(loop.for.x.in |
| 17bda0 | 20 73 6c 6f 74 73 20 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .slots.append................... |
| 17bdc0 | 20 20 28 6c 65 74 2a 20 28 28 6e 61 6d 65 20 28 63 6c 6f 73 3a 3a 73 6c 6f 74 2d 64 65 66 69 6e | ..(let*.((name.(clos::slot-defin |
| 17bde0 | 69 74 69 6f 6e 2d 6e 61 6d 65 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ition-name.x)).................. |
| 17be00 | 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 20 28 69 66 20 28 73 6c 6f 74 2d 62 6f 75 6e 64 | ..........(value.(if.(slot-bound |
| 17be20 | 70 20 6f 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p.o.name)....................... |
| 17be40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 6f 73 3a 3a 73 6c 6f 74 2d 76 61 6c 75 | ................(clos::slot-valu |
| 17be60 | 65 20 6f 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.o.name)....................... |
| 17be80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 55 6e 62 6f 75 6e 64 22 0a 20 20 20 20 20 20 | ................"Unbound"....... |
| 17bea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 17bec0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a | ))).......................(list. |
| 17bee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e | .......................(format.n |
| 17bf00 | 69 6c 20 22 7e 53 3a 20 22 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | il."~S:.".name)................. |
| 17bf20 | 20 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 | .......`(:value.,value)......... |
| 17bf40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 6e 65 77 6c 69 6e 65 29 29 29 29 29 29 29 | ...............`(:newline))))))) |
| 17bf60 | 0a 20 20 20 20 28 74 20 28 6c 69 73 74 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 22 20 6f | .....(t.(list.(format.nil."~A".o |
| 17bf80 | 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 44 65 66 69 6e 69 74 69 6f 6e 73 0a 0a 28 64 65 66 69 6d 70 | )))))..;;;;.Definitions..(defimp |
| 17bfa0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 | lementation.find-definitions.(na |
| 17bfc0 | 6d 65 29 0a 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 | me)...(if.(fboundp.name).......( |
| 17bfe0 | 6c 65 74 20 28 28 74 6d 70 20 28 66 69 6e 64 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 | let.((tmp.(find-source-location. |
| 17c000 | 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 | (symbol-function.name))))....... |
| 17c020 | 20 20 60 28 28 28 64 65 66 75 6e 20 2c 6e 61 6d 65 29 20 2c 74 6d 70 29 29 29 29 29 0a 0a 28 64 | ..`(((defun.,name).,tmp)))))..(d |
| 17c040 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 73 6f 75 72 63 65 2d 6c 6f 63 | efimplementation.find-source-loc |
| 17c060 | 61 74 69 6f 6e 20 28 6f 62 6a 29 0a 20 20 28 73 65 74 66 20 2a 74 6d 70 2a 20 6f 62 6a 29 0a 20 | ation.(obj)...(setf.*tmp*.obj).. |
| 17c080 | 20 28 6f 72 0a 20 20 20 28 74 79 70 65 63 61 73 65 20 6f 62 6a 0a 20 20 20 20 20 28 66 75 6e 63 | .(or....(typecase.obj......(func |
| 17c0a0 | 74 69 6f 6e 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 | tion.......(multiple-value-bind. |
| 17c0c0 | 28 66 69 6c 65 20 70 6f 73 29 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 69 3a 3a 63 | (file.pos).(ignore-errors.(si::c |
| 17c0e0 | 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 66 69 6c 65 20 6f 62 6a 29 29 0a 20 20 20 20 | ompiled-function-file.obj))..... |
| 17c100 | 20 20 20 20 28 69 66 20 28 61 6e 64 20 66 69 6c 65 20 70 6f 73 29 20 0a 20 20 20 20 20 20 20 20 | ....(if.(and.file.pos).......... |
| 17c120 | 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(make-location.............. |
| 17c140 | 20 60 28 3a 66 69 6c 65 20 2c 28 69 66 20 28 73 74 72 69 6e 67 70 20 66 69 6c 65 29 20 66 69 6c | .`(:file.,(if.(stringp.file).fil |
| 17c160 | 65 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | e.(namestring.file)))........... |
| 17c180 | 20 20 20 20 60 28 3a 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 2c 70 6f 73 29 20 3b 3b 20 60 28 3a | ....`(:end-position.,pos).;;.`(: |
| 17c1a0 | 70 6f 73 69 74 69 6f 6e 20 2c 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a | position.,pos)...............`(: |
| 17c1c0 | 73 6e 69 70 70 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 77 69 74 68 2d 6f | snippet.................,(with-o |
| 17c1e0 | 70 65 6e 2d 66 69 6c 65 20 28 73 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pen-file.(s.file)............... |
| 17c200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f | ...................(file-positio |
| 17c220 | 6e 20 73 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.s.pos)........................ |
| 17c240 | 20 20 20 20 20 20 20 20 20 20 28 73 6b 69 70 2d 63 6f 6d 6d 65 6e 74 73 2d 61 6e 64 2d 77 68 69 | ..........(skip-comments-and-whi |
| 17c260 | 74 65 73 70 61 63 65 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tespace.s)...................... |
| 17c280 | 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 73 6e 69 70 70 65 74 20 73 29 29 29 29 29 | ............(read-snippet.s))))) |
| 17c2a0 | 29 29 29 0a 20 20 20 60 28 3a 65 72 72 6f 72 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 53 6f 75 | )))....`(:error.(format.nil."Sou |
| 17c2c0 | 72 63 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 7e 53 20 6e 6f 74 20 66 6f 75 6e 64 22 20 | rce.definition.of.~S.not.found". |
| 17c2e0 | 6f 62 6a 29 29 29 29 0a 0a 3b 3b 3b 3b 20 50 72 6f 66 69 6c 69 6e 67 0a 0a 0a 28 65 76 61 6c 2d | obj))))..;;;;.Profiling...(eval- |
| 17c300 | 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f | when.(:compile-toplevel.:load-to |
| 17c320 | 70 6c 65 76 65 6c 29 0a 20 20 3b 3b 20 41 74 20 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 77 65 20 | plevel)...;;.At.compile-time.we. |
| 17c340 | 6e 65 65 64 20 61 63 63 65 73 73 20 74 6f 20 74 68 65 20 70 72 6f 66 69 6c 65 20 70 61 63 6b 61 | need.access.to.the.profile.packa |
| 17c360 | 67 65 20 66 6f 72 20 74 68 65 0a 20 20 3b 3b 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f | ge.for.the...;;.the.following.co |
| 17c380 | 64 65 20 74 6f 20 62 65 20 72 65 61 64 20 70 72 6f 70 65 72 6c 79 2e 0a 20 20 3b 3b 20 49 74 20 | de.to.be.read.properly....;;.It. |
| 17c3a0 | 69 73 20 61 20 62 69 74 20 61 20 73 68 61 6d 65 20 77 65 20 68 61 76 65 20 74 6f 20 6c 6f 61 64 | is.a.bit.a.shame.we.have.to.load |
| 17c3c0 | 20 74 68 65 20 65 6e 74 69 72 65 20 6d 6f 64 75 6c 65 20 74 6f 20 67 65 74 20 74 68 61 74 2e 0a | .the.entire.module.to.get.that.. |
| 17c3e0 | 20 20 28 72 65 71 75 69 72 65 20 27 70 72 6f 66 69 6c 65 29 29 0a 0a 0a 28 64 65 66 69 6d 70 6c | ..(require.'profile))...(defimpl |
| 17c400 | 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 77 68 | ementation.profile.(fname)...(wh |
| 17c420 | 65 6e 20 66 6e 61 6d 65 20 28 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 70 72 6f 66 69 6c 65 | en.fname.(eval.`(profile:profile |
| 17c440 | 20 2c 66 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | .,fname))))..(defimplementation. |
| 17c460 | 75 6e 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 77 68 65 6e 20 66 6e 61 6d 65 20 | unprofile.(fname)...(when.fname. |
| 17c480 | 28 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 75 6e 70 72 6f 66 69 6c 65 20 2c 66 6e 61 6d 65 | (eval.`(profile:unprofile.,fname |
| 17c4a0 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 69 | ))))..(defimplementation.unprofi |
| 17c4c0 | 6c 65 2d 61 6c 6c 20 28 29 0a 20 20 28 70 72 6f 66 69 6c 65 3a 75 6e 70 72 6f 66 69 6c 65 2d 61 | le-all.()...(profile:unprofile-a |
| 17c4e0 | 6c 6c 29 0a 20 20 22 41 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 75 6e 70 72 6f 66 69 6c 65 64 2e | ll)..."All.functions.unprofiled. |
| 17c500 | 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 72 | ")..(defimplementation.profile-r |
| 17c520 | 65 70 6f 72 74 20 28 29 0a 20 20 28 70 72 6f 66 69 6c 65 3a 72 65 70 6f 72 74 29 29 0a 0a 28 64 | eport.()...(profile:report))..(d |
| 17c540 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 20 28 | efimplementation.profile-reset.( |
| 17c560 | 29 0a 20 20 28 70 72 6f 66 69 6c 65 3a 72 65 73 65 74 29 0a 20 20 22 52 65 73 65 74 20 70 72 6f | )...(profile:reset)..."Reset.pro |
| 17c580 | 66 69 6c 69 6e 67 20 63 6f 75 6e 74 65 72 73 2e 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | filing.counters.")..(defimplemen |
| 17c5a0 | 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 20 28 29 0a 20 20 28 | tation.profiled-functions.()...( |
| 17c5c0 | 70 72 6f 66 69 6c 65 3a 70 72 6f 66 69 6c 65 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | profile:profile))..(defimplement |
| 17c5e0 | 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 20 28 70 61 63 6b 61 67 65 20 63 | ation.profile-package.(package.c |
| 17c600 | 61 6c 6c 65 72 73 20 6d 65 74 68 6f 64 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f | allers.methods)...(declare.(igno |
| 17c620 | 72 65 20 63 61 6c 6c 65 72 73 20 6d 65 74 68 6f 64 73 29 29 0a 20 20 28 65 76 61 6c 20 60 28 70 | re.callers.methods))...(eval.`(p |
| 17c640 | 72 6f 66 69 6c 65 3a 70 72 6f 66 69 6c 65 20 2c 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 66 | rofile:profile.,(package-name.(f |
| 17c660 | 69 6e 64 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 29 29 29 0a 0a 0a 3b 3b 3b 3b 20 | ind-package.package)))))...;;;;. |
| 17c680 | 54 68 72 65 61 64 73 0a 0a 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e | Threads..(defvar.*thread-id-coun |
| 17c6a0 | 74 65 72 2a 20 30 29 0a 0a 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e | ter*.0)..(defvar.*thread-id-coun |
| 17c6c0 | 74 65 72 2d 6c 6f 63 6b 2a 0a 20 20 28 6d 74 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 | ter-lock*...(mt:make-lock.:name. |
| 17c6e0 | 22 74 68 72 65 61 64 20 69 64 20 63 6f 75 6e 74 65 72 20 6c 6f 63 6b 22 29 29 0a 0a 28 64 65 66 | "thread.id.counter.lock"))..(def |
| 17c700 | 75 6e 20 6e 65 78 74 2d 74 68 72 65 61 64 2d 69 64 20 28 29 0a 20 20 28 6d 74 3a 77 69 74 68 2d | un.next-thread-id.()...(mt:with- |
| 17c720 | 6c 6f 63 6b 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2d 6c 6f 63 6b 2a 29 0a | lock.(*thread-id-counter-lock*). |
| 17c740 | 20 20 20 20 28 69 6e 63 66 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2a 29 29 0a | ....(incf.*thread-id-counter*)). |
| 17c760 | 20 20 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 | ..)..(defparameter.*thread-id-ma |
| 17c780 | 70 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 28 64 65 66 70 61 72 61 6d 65 | p*.(make-hash-table)).(defparame |
| 17c7a0 | 74 65 72 20 2a 69 64 2d 74 68 72 65 61 64 2d 6d 61 70 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 | ter.*id-thread-map*.(make-hash-t |
| 17c7c0 | 61 62 6c 65 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2d 6c | able))..(defvar.*thread-id-map-l |
| 17c7e0 | 6f 63 6b 2a 0a 20 20 28 6d 74 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 74 68 72 65 | ock*...(mt:make-lock.:name."thre |
| 17c800 | 61 64 20 69 64 20 6d 61 70 20 6c 6f 63 6b 22 29 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 | ad.id.map.lock"))..(defparameter |
| 17c820 | 20 2b 64 65 66 61 75 6c 74 2d 74 68 72 65 61 64 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 | .+default-thread-local-variables |
| 17c840 | 2b 0a 20 20 27 28 2a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 68 6f 6f 6b 2a 0a 20 20 20 20 2a 64 65 | +...'(*macroexpand-hook*.....*de |
| 17c860 | 66 61 75 6c 74 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 0a 20 20 20 20 2a 72 65 | fault-pathname-defaults*.....*re |
| 17c880 | 61 64 74 61 62 6c 65 2a 0a 20 20 20 20 2a 72 61 6e 64 6f 6d 2d 73 74 61 74 65 2a 0a 20 20 20 20 | adtable*.....*random-state*..... |
| 17c8a0 | 2a 63 6f 6d 70 69 6c 65 2d 70 72 69 6e 74 2a 0a 20 20 20 20 2a 63 6f 6d 70 69 6c 65 2d 76 65 72 | *compile-print*.....*compile-ver |
| 17c8c0 | 62 6f 73 65 2a 0a 20 20 20 20 2a 6c 6f 61 64 2d 70 72 69 6e 74 2a 0a 20 20 20 20 2a 6c 6f 61 64 | bose*.....*load-print*.....*load |
| 17c8e0 | 2d 76 65 72 62 6f 73 65 2a 0a 20 20 20 20 2a 70 72 69 6e 74 2d 61 72 72 61 79 2a 0a 20 20 20 20 | -verbose*.....*print-array*..... |
| 17c900 | 2a 70 72 69 6e 74 2d 62 61 73 65 2a 0a 20 20 20 20 2a 70 72 69 6e 74 2d 63 61 73 65 2a 0a 20 20 | *print-base*.....*print-case*... |
| 17c920 | 20 20 2a 70 72 69 6e 74 2d 63 69 72 63 6c 65 2a 0a 20 20 20 20 2a 70 72 69 6e 74 2d 65 73 63 61 | ..*print-circle*.....*print-esca |
| 17c940 | 70 65 2a 0a 20 20 20 20 2a 70 72 69 6e 74 2d 67 65 6e 73 79 6d 2a 0a 20 20 20 20 2a 70 72 69 6e | pe*.....*print-gensym*.....*prin |
| 17c960 | 74 2d 6c 65 6e 67 74 68 2a 0a 20 20 20 20 2a 70 72 69 6e 74 2d 6c 65 76 65 6c 2a 0a 20 20 20 20 | t-length*.....*print-level*..... |
| 17c980 | 2a 70 72 69 6e 74 2d 6c 69 6e 65 73 2a 0a 20 20 20 20 2a 70 72 69 6e 74 2d 6d 69 73 65 72 2d 77 | *print-lines*.....*print-miser-w |
| 17c9a0 | 69 64 74 68 2a 0a 20 20 20 20 2a 70 72 69 6e 74 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 | idth*.....*print-pprint-dispatch |
| 17c9c0 | 2a 0a 20 20 20 20 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a 0a 20 20 20 20 2a 70 72 69 6e 74 2d | *.....*print-pretty*.....*print- |
| 17c9e0 | 72 61 64 69 78 2a 0a 20 20 20 20 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 0a 20 20 20 20 | radix*.....*print-readably*..... |
| 17ca00 | 2a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 2a 0a 20 20 20 20 2a 72 65 61 64 2d 62 | *print-right-margin*.....*read-b |
| 17ca20 | 61 73 65 2a 0a 20 20 20 20 2a 72 65 61 64 2d 64 65 66 61 75 6c 74 2d 66 6c 6f 61 74 2d 66 6f 72 | ase*.....*read-default-float-for |
| 17ca40 | 6d 61 74 2a 0a 20 20 20 20 2a 72 65 61 64 2d 65 76 61 6c 2a 0a 20 20 20 20 2a 72 65 61 64 2d 73 | mat*.....*read-eval*.....*read-s |
| 17ca60 | 75 70 70 72 65 73 73 2a 0a 20 20 20 20 29 29 0a 20 20 0a 28 64 65 66 75 6e 20 74 68 72 65 61 64 | uppress*.....))....(defun.thread |
| 17ca80 | 2d 6c 6f 63 61 6c 2d 64 65 66 61 75 6c 74 2d 62 69 6e 64 69 6e 67 73 20 28 29 0a 20 20 28 6c 65 | -local-default-bindings.()...(le |
| 17caa0 | 74 20 28 6c 6f 63 61 6c 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 76 61 72 20 2b 64 65 66 61 | t.(local).....(dolist.(var.+defa |
| 17cac0 | 75 6c 74 2d 74 68 72 65 61 64 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 2b 20 6c 6f 63 61 | ult-thread-local-variables+.loca |
| 17cae0 | 6c 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 6c 6f 63 61 6c 20 28 61 63 6f 6e 73 20 76 61 72 20 | l).......(setq.local.(acons.var. |
| 17cb00 | 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 76 61 72 29 20 6c 6f 63 61 6c 29 29 0a 20 20 20 20 20 | (symbol-value.var).local))...... |
| 17cb20 | 20 29 29 29 0a 0a 3b 3b 20 6d 6b 63 6c 20 64 6f 65 73 6e 27 74 20 68 61 76 65 20 77 65 61 6b 20 | .)))..;;.mkcl.doesn't.have.weak. |
| 17cb40 | 70 6f 69 6e 74 65 72 73 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 70 61 77 | pointers.(defimplementation.spaw |
| 17cb60 | 6e 20 28 66 6e 20 26 6b 65 79 20 6e 61 6d 65 20 69 6e 69 74 69 61 6c 2d 62 69 6e 64 69 6e 67 73 | n.(fn.&key.name.initial-bindings |
| 17cb80 | 29 0a 20 20 28 6c 65 74 2a 20 28 28 6c 6f 63 61 6c 2d 64 65 66 61 75 6c 74 73 20 28 74 68 72 65 | )...(let*.((local-defaults.(thre |
| 17cba0 | 61 64 2d 6c 6f 63 61 6c 2d 64 65 66 61 75 6c 74 2d 62 69 6e 64 69 6e 67 73 29 29 0a 20 20 20 20 | ad-local-default-bindings))..... |
| 17cbc0 | 20 20 20 20 20 28 74 68 72 65 61 64 20 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 28 6d 74 3a 6d 61 | .....(thread............;;(mt:ma |
| 17cbe0 | 6b 65 2d 74 68 72 65 61 64 20 3a 6e 61 6d 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ke-thread.:name.name)........... |
| 17cc00 | 28 6d 74 3a 6d 61 6b 65 2d 74 68 72 65 61 64 20 3a 6e 61 6d 65 20 6e 61 6d 65 0a 20 20 20 20 20 | (mt:make-thread.:name.name...... |
| 17cc20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 62 69 | .....................:initial-bi |
| 17cc40 | 6e 64 69 6e 67 73 20 28 6e 63 6f 6e 63 20 69 6e 69 74 69 61 6c 2d 62 69 6e 64 69 6e 67 73 20 0a | ndings.(nconc.initial-bindings.. |
| 17cc60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 17cc80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 61 6c 2d 64 65 66 61 75 6c 74 | ...................local-default |
| 17cca0 | 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 20 20 20 28 69 64 20 28 6e | s))............)..........(id.(n |
| 17ccc0 | 65 78 74 2d 74 68 72 65 61 64 2d 69 64 29 29 29 0a 20 20 20 20 28 6d 74 3a 77 69 74 68 2d 6c 6f | ext-thread-id))).....(mt:with-lo |
| 17cce0 | 63 6b 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 20 20 | ck.(*thread-id-map-lock*)....... |
| 17cd00 | 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 | (setf.(gethash.id.*thread-id-map |
| 17cd20 | 2a 29 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 | *).thread).......(setf.(gethash. |
| 17cd40 | 74 68 72 65 61 64 20 2a 69 64 2d 74 68 72 65 61 64 2d 6d 61 70 2a 29 20 69 64 29 29 0a 20 20 20 | thread.*id-thread-map*).id)).... |
| 17cd60 | 20 28 6d 74 3a 74 68 72 65 61 64 2d 70 72 65 73 65 74 0a 20 20 20 20 20 74 68 72 65 61 64 0a 20 | .(mt:thread-preset......thread.. |
| 17cd80 | 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e | ....#'(lambda.()..........(unwin |
| 17cda0 | 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 | d-protect...............(progn.. |
| 17cdc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 53 74 | ...............;;(format.t."~&St |
| 17cde0 | 61 72 74 69 6e 67 20 74 68 72 65 61 64 3a 20 7e 53 2e 7e 25 22 20 6e 61 6d 65 29 20 28 66 69 6e | arting.thread:.~S.~%".name).(fin |
| 17ce00 | 69 73 68 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 74 3a | ish-output).................(mt: |
| 17ce20 | 74 68 72 65 61 64 2d 64 65 74 61 63 68 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | thread-detach.nil).............. |
| 17ce40 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f | ...(funcall.fn))............(pro |
| 17ce60 | 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 57 | gn..............;;(format.t."~&W |
| 17ce80 | 72 61 70 70 69 6e 67 20 75 70 20 74 68 72 65 61 64 3a 20 7e 53 2e 7e 25 22 20 6e 61 6d 65 29 20 | rapping.up.thread:.~S.~%".name). |
| 17cea0 | 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 74 | (finish-output)..............(mt |
| 17cec0 | 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2d 6c 6f 63 6b 2a | :with-lock.(*thread-id-map-lock* |
| 17cee0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 68 61 73 68 20 74 68 72 65 61 64 | )................(remhash.thread |
| 17cf00 | 20 2a 69 64 2d 74 68 72 65 61 64 2d 6d 61 70 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .*id-thread-map*)............... |
| 17cf20 | 20 28 72 65 6d 68 61 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 29 29 0a 20 | .(remhash.id.*thread-id-map*)).. |
| 17cf40 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 46 69 6e 69 73 | ............;;(format.t."~&Finis |
| 17cf60 | 68 65 64 20 74 68 72 65 61 64 3a 20 7e 53 7e 25 22 20 6e 61 6d 65 29 20 28 66 69 6e 69 73 68 2d | hed.thread:.~S~%".name).(finish- |
| 17cf80 | 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 29 0a 20 20 20 20 28 6d | output)..............)))).....(m |
| 17cfa0 | 74 3a 74 68 72 65 61 64 2d 65 6e 61 62 6c 65 20 74 68 72 65 61 64 29 0a 20 20 20 20 28 6d 74 3a | t:thread-enable.thread).....(mt: |
| 17cfc0 | 74 68 72 65 61 64 2d 79 69 65 6c 64 29 0a 20 20 20 20 74 68 72 65 61 64 0a 20 20 20 20 29 29 0a | thread-yield).....thread.....)). |
| 17cfe0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 20 28 74 | .(defimplementation.thread-id.(t |
| 17d000 | 68 72 65 61 64 29 0a 20 20 28 62 6c 6f 63 6b 20 74 68 72 65 61 64 2d 69 64 0a 20 20 20 20 28 6d | hread)...(block.thread-id.....(m |
| 17d020 | 74 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2d 6c 6f 63 6b | t:with-lock.(*thread-id-map-lock |
| 17d040 | 2a 29 0a 20 20 20 20 20 20 28 6f 72 20 28 67 65 74 68 61 73 68 20 74 68 72 65 61 64 20 2a 69 64 | *).......(or.(gethash.thread.*id |
| 17d060 | 2d 74 68 72 65 61 64 2d 6d 61 70 2a 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 | -thread-map*)...........(let.((i |
| 17d080 | 64 20 28 6e 65 78 74 2d 74 68 72 65 61 64 2d 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | d.(next-thread-id)))............ |
| 17d0a0 | 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 | .(setf.(gethash.id.*thread-id-ma |
| 17d0c0 | 70 2a 29 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 | p*).thread).............(setf.(g |
| 17d0e0 | 65 74 68 61 73 68 20 74 68 72 65 61 64 20 2a 69 64 2d 74 68 72 65 61 64 2d 6d 61 70 2a 29 20 69 | ethash.thread.*id-thread-map*).i |
| 17d100 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 64 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | d).............id)))))..(defimpl |
| 17d120 | 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 74 68 72 65 61 64 20 28 69 64 29 0a 20 20 28 6d | ementation.find-thread.(id)...(m |
| 17d140 | 74 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2d 6c 6f 63 6b | t:with-lock.(*thread-id-map-lock |
| 17d160 | 2a 29 0a 20 20 20 20 28 67 65 74 68 61 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 | *).....(gethash.id.*thread-id-ma |
| 17d180 | 70 2a 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 | p*)))..(defimplementation.thread |
| 17d1a0 | 2d 6e 61 6d 65 20 28 74 68 72 65 61 64 29 0a 20 20 28 6d 74 3a 74 68 72 65 61 64 2d 6e 61 6d 65 | -name.(thread)...(mt:thread-name |
| 17d1c0 | 20 74 68 72 65 61 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 | .thread))..(defimplementation.th |
| 17d1e0 | 72 65 61 64 2d 73 74 61 74 75 73 20 28 74 68 72 65 61 64 29 0a 20 20 28 69 66 20 28 6d 74 3a 74 | read-status.(thread)...(if.(mt:t |
| 17d200 | 68 72 65 61 64 2d 61 63 74 69 76 65 2d 70 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 22 52 55 | hread-active-p.thread)......."RU |
| 17d220 | 4e 4e 49 4e 47 22 0a 20 20 20 20 20 20 22 53 54 4f 50 50 45 44 22 29 29 0a 0a 28 64 65 66 69 6d | NNING"......."STOPPED"))..(defim |
| 17d240 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 6c 6f 63 6b 20 28 26 6b 65 79 20 6e 61 6d | plementation.make-lock.(&key.nam |
| 17d260 | 65 29 0a 20 20 28 6d 74 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 6e 61 6d 65 20 3a 72 | e)...(mt:make-lock.:name.name.:r |
| 17d280 | 65 63 75 72 73 69 76 65 20 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ecursive.t))..(defimplementation |
| 17d2a0 | 20 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 6c 6f 63 6b 20 66 75 6e 63 74 | .call-with-lock-held.(lock.funct |
| 17d2c0 | 69 6f 6e 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 66 | ion)...(declare.(type.function.f |
| 17d2e0 | 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 6d 74 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6c 6f 63 6b 29 | unction))...(mt:with-lock.(lock) |
| 17d300 | 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | .(funcall.function)))..(defimple |
| 17d320 | 6d 65 6e 74 61 74 69 6f 6e 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 6d 74 | mentation.current-thread.()...mt |
| 17d340 | 3a 2a 74 68 72 65 61 64 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 | :*thread*)..(defimplementation.a |
| 17d360 | 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 28 6d 74 3a 61 6c 6c 2d 74 68 72 65 61 64 73 29 | ll-threads.()...(mt:all-threads) |
| 17d380 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 74 65 72 72 75 70 74 2d | )..(defimplementation.interrupt- |
| 17d3a0 | 74 68 72 65 61 64 20 28 74 68 72 65 61 64 20 66 6e 29 0a 20 20 28 6d 74 3a 69 6e 74 65 72 72 75 | thread.(thread.fn)...(mt:interru |
| 17d3c0 | 70 74 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 20 66 6e 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | pt-thread.thread.fn))..(defimple |
| 17d3e0 | 6d 65 6e 74 61 74 69 6f 6e 20 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 | mentation.kill-thread.(thread).. |
| 17d400 | 20 28 6d 74 3a 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 20 23 27 6d | .(mt:interrupt-thread.thread.#'m |
| 17d420 | 74 3a 74 65 72 6d 69 6e 61 74 65 2d 74 68 72 65 61 64 29 0a 20 20 29 0a 0a 28 64 65 66 69 6d 70 | t:terminate-thread)...)..(defimp |
| 17d440 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 28 74 68 72 65 | lementation.thread-alive-p.(thre |
| 17d460 | 61 64 29 0a 20 20 28 6d 74 3a 74 68 72 65 61 64 2d 61 63 74 69 76 65 2d 70 20 74 68 72 65 61 64 | ad)...(mt:thread-active-p.thread |
| 17d480 | 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 20 28 6d 74 3a 6d | ))..(defvar.*mailbox-lock*.(mt:m |
| 17d4a0 | 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 6d 61 69 6c 62 6f 78 20 6c 6f 63 6b 22 29 29 0a | ake-lock.:name."mailbox.lock")). |
| 17d4c0 | 28 64 65 66 76 61 72 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 20 28 6c 69 73 74 29 29 0a 28 64 65 63 | (defvar.*mailboxes*.(list)).(dec |
| 17d4e0 | 6c 61 69 6d 20 28 74 79 70 65 20 6c 69 73 74 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 29 29 0a 0a 28 | laim.(type.list.*mailboxes*))..( |
| 17d500 | 64 65 66 73 74 72 75 63 74 20 28 6d 61 69 6c 62 6f 78 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 6d | defstruct.(mailbox.(:conc-name.m |
| 17d520 | 61 69 6c 62 6f 78 2e 29 29 0a 20 20 74 68 72 65 61 64 0a 20 20 6c 6f 63 6b 65 64 2d 62 79 0a 20 | ailbox.))...thread...locked-by.. |
| 17d540 | 20 28 6d 75 74 65 78 20 28 6d 74 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 74 68 72 | .(mutex.(mt:make-lock.:name."thr |
| 17d560 | 65 61 64 20 6d 61 69 6c 62 6f 78 22 29 29 0a 20 20 28 73 65 6d 61 70 68 6f 72 65 20 28 6d 74 3a | ead.mailbox"))...(semaphore.(mt: |
| 17d580 | 6d 61 6b 65 2d 73 65 6d 61 70 68 6f 72 65 29 29 0a 20 20 28 71 75 65 75 65 20 27 28 29 20 3a 74 | make-semaphore))...(queue.'().:t |
| 17d5a0 | 79 70 65 20 6c 69 73 74 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c 62 6f 78 20 28 74 68 72 65 | ype.list))..(defun.mailbox.(thre |
| 17d5c0 | 61 64 29 0a 20 20 22 52 65 74 75 72 6e 20 54 48 52 45 41 44 27 73 20 6d 61 69 6c 62 6f 78 2e 22 | ad)..."Return.THREAD's.mailbox." |
| 17d5e0 | 0a 20 20 28 6d 74 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a | ...(mt:with-lock.(*mailbox-lock* |
| 17d600 | 29 0a 20 20 20 20 28 6f 72 20 28 66 69 6e 64 20 74 68 72 65 61 64 20 2a 6d 61 69 6c 62 6f 78 65 | ).....(or.(find.thread.*mailboxe |
| 17d620 | 73 2a 20 3a 6b 65 79 20 23 27 6d 61 69 6c 62 6f 78 2e 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 | s*.:key.#'mailbox.thread)....... |
| 17d640 | 20 20 28 6c 65 74 20 28 28 6d 62 20 28 6d 61 6b 65 2d 6d 61 69 6c 62 6f 78 20 3a 74 68 72 65 61 | ..(let.((mb.(make-mailbox.:threa |
| 17d660 | 64 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6d 62 20 2a | d.thread)))...........(push.mb.* |
| 17d680 | 6d 61 69 6c 62 6f 78 65 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 6d 62 29 29 29 29 0a 0a 28 64 | mailboxes*)...........mb))))..(d |
| 17d6a0 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 6e 64 20 28 74 68 72 65 61 64 20 6d 65 | efimplementation.send.(thread.me |
| 17d6c0 | 73 73 61 67 65 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 28 6c 65 | ssage)...(handler-case.......(le |
| 17d6e0 | 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 | t*.((mbox.(mailbox.thread))..... |
| 17d700 | 20 20 20 20 20 28 6d 75 74 65 78 20 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 | .....(mutex.(mailbox.mutex.mbox) |
| 17d720 | 29 29 0a 3b 3b 20 20 20 20 20 28 6d 74 3a 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 0a 3b | )).;;.....(mt:interrupt-thread.; |
| 17d740 | 3b 20 20 20 20 20 20 74 68 72 65 61 64 0a 3b 3b 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 | ;......thread.;;......(lambda.() |
| 17d760 | 0a 3b 3b 20 20 20 20 20 20 20 20 28 6d 74 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6d 75 74 65 78 29 | .;;........(mt:with-lock.(mutex) |
| 17d780 | 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 | .;;..........(setf.(mailbox.queu |
| 17d7a0 | 65 20 6d 62 6f 78 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 63 6f 6e 63 | e.mbox).;;................(nconc |
| 17d7c0 | 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6c 69 73 74 20 6d 65 73 73 | .(mailbox.queue.mbox).(list.mess |
| 17d7e0 | 61 67 65 29 29 29 29 29 29 0a 0a 3b 3b 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 21 | age))))))..;;.....(format.t."~&! |
| 17d800 | 20 74 68 72 65 61 64 20 3d 20 7e 53 7e 25 20 74 68 72 65 61 64 20 3d 20 7e 53 7e 25 20 6d 65 73 | .thread.=.~S~%.thread.=.~S~%.mes |
| 17d820 | 73 61 67 65 20 3d 20 7e 53 7e 25 22 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 74 3a 2a | sage.=.~S~%".;;.............mt:* |
| 17d840 | 74 68 72 65 61 64 2a 20 74 68 72 65 61 64 20 6d 65 73 73 61 67 65 29 20 28 66 69 6e 69 73 68 2d | thread*.thread.message).(finish- |
| 17d860 | 6f 75 74 70 75 74 29 0a 20 20 20 20 28 6d 74 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6d 75 74 65 78 | output).....(mt:with-lock.(mutex |
| 17d880 | 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 6c 6f 63 6b 65 64 2d 62 79 | ).......(setf.(mailbox.locked-by |
| 17d8a0 | 20 6d 62 6f 78 29 20 6d 74 3a 2a 74 68 72 65 61 64 2a 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 | .mbox).mt:*thread*).......(setf. |
| 17d8c0 | 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (mailbox.queue.mbox)............ |
| 17d8e0 | 20 28 6e 63 6f 6e 63 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6c 69 | .(nconc.(mailbox.queue.mbox).(li |
| 17d900 | 73 74 20 6d 65 73 73 61 67 65 29 29 29 0a 20 20 20 20 20 20 3b 3b 28 66 6f 72 6d 61 74 20 74 20 | st.message))).......;;(format.t. |
| 17d920 | 22 2a 22 29 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 28 68 61 6e 64 | "*").(finish-output).......(hand |
| 17d940 | 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 28 6d 74 3a 73 65 6d 61 70 68 6f 72 65 | ler-case...........(mt:semaphore |
| 17d960 | 2d 73 69 67 6e 61 6c 20 28 6d 61 69 6c 62 6f 78 2e 73 65 6d 61 70 68 6f 72 65 20 6d 62 6f 78 29 | -signal.(mailbox.semaphore.mbox) |
| 17d980 | 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 | ).........(condition.(condition) |
| 17d9a0 | 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 53 6f 6d 65 74 68 69 6e 67 20 | ...........(format.t."Something. |
| 17d9c0 | 77 65 6e 74 20 62 61 64 20 77 69 74 68 20 73 65 6d 61 70 68 6f 72 65 2d 73 69 67 6e 61 6c 20 7e | went.bad.with.semaphore-signal.~ |
| 17d9e0 | 41 22 20 63 6f 6e 64 69 74 69 6f 6e 29 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 0a 20 20 | A".condition).(finish-output)... |
| 17da00 | 20 20 20 20 20 20 20 20 3b 3b 28 62 72 65 61 6b 29 0a 20 20 20 20 20 20 20 20 20 20 29 29 0a 20 | ........;;(break)...........)).. |
| 17da20 | 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 6c 6f 63 6b 65 64 2d 62 79 20 6d 62 | .....(setf.(mailbox.locked-by.mb |
| 17da40 | 6f 78 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 29 0a 20 20 20 20 3b 3b 28 66 6f 72 6d 61 74 20 74 | ox).nil).......).....;;(format.t |
| 17da60 | 20 22 2b 22 29 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 29 0a 20 20 20 20 | ."+").(finish-output).....)..... |
| 17da80 | 28 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 66 6f | (condition.(condition).......(fo |
| 17daa0 | 72 6d 61 74 20 74 20 22 7e 26 45 72 72 6f 72 20 69 6e 20 73 65 6e 64 3a 20 7e 53 7e 25 22 20 63 | rmat.t."~&Error.in.send:.~S~%".c |
| 17dac0 | 6f 6e 64 69 74 69 6f 6e 29 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 29 0a 20 20 20 20 29 | ondition).(finish-output)).....) |
| 17dae0 | 0a 20 20 29 0a 0a 3b 3b 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 | ...)..;;.(defimplementation.rece |
| 17db00 | 69 76 65 20 28 29 0a 3b 3b 20 20 20 28 62 6c 6f 63 6b 20 67 6f 74 2d 6d 61 69 6c 0a 3b 3b 20 20 | ive.().;;...(block.got-mail.;;.. |
| 17db20 | 20 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 6d 74 3a 2a 74 68 72 | ...(let*.((mbox.(mailbox.mt:*thr |
| 17db40 | 65 61 64 2a 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 74 65 78 20 28 6d 61 69 | ead*)).;;............(mutex.(mai |
| 17db60 | 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 29 0a 3b 3b 20 20 20 20 20 20 20 28 6c 6f 6f | lbox.mutex.mbox))).;;.......(loo |
| 17db80 | 70 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 28 6d 74 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6d 75 74 | p.;;..........(mt:with-lock.(mut |
| 17dba0 | 65 78 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6d 61 69 6c 62 6f 78 2e 71 | ex).;;............(if.(mailbox.q |
| 17dbc0 | 75 65 75 65 20 6d 62 6f 78 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 | ueue.mbox).;;................(re |
| 17dbe0 | 74 75 72 6e 2d 66 72 6f 6d 20 67 6f 74 2d 6d 61 69 6c 20 28 70 6f 70 20 28 6d 61 69 6c 62 6f 78 | turn-from.got-mail.(pop.(mailbox |
| 17dc00 | 2e 71 75 65 75 65 20 6d 62 6f 78 29 29 29 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 3b 3b 69 | .queue.mbox))))).;;..........;;i |
| 17dc20 | 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 77 69 6c 6c 20 68 61 6c 74 20 74 68 69 73 20 69 | nterrupt-thread.will.halt.this.i |
| 17dc40 | 66 20 69 74 20 74 61 6b 65 73 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 31 73 65 63 0a 3b 3b 20 20 | f.it.takes.longer.than.1sec.;;.. |
| 17dc60 | 20 20 20 20 20 20 20 20 28 73 6c 65 65 70 20 31 29 29 29 29 29 0a 0a 0a 28 64 65 66 69 6d 70 6c | ........(sleep.1)))))...(defimpl |
| 17dc80 | 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 69 76 65 2d 69 66 20 28 74 65 73 74 20 26 6f 70 74 | ementation.receive-if.(test.&opt |
| 17dca0 | 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 | ional.timeout)...(handler-case.. |
| 17dcc0 | 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 28 63 75 72 72 65 6e 74 2d | .(let*.((mbox.(mailbox.(current- |
| 17dce0 | 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 75 74 65 78 20 28 6d 61 69 6c 62 | thread)))..........(mutex.(mailb |
| 17dd00 | 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 20 67 6f 74 2d 6f 6e 65 | ox.mutex.mbox))..........got-one |
| 17dd20 | 29 0a 20 20 20 20 28 61 73 73 65 72 74 20 28 6f 72 20 28 6e 6f 74 20 74 69 6d 65 6f 75 74 29 20 | ).....(assert.(or.(not.timeout). |
| 17dd40 | 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 | (eq.timeout.t))).....(loop...... |
| 17dd60 | 20 20 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 20 | ..(check-slime-interrupts)...... |
| 17dd80 | 20 20 3b 3b 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 3a 20 7e 53 7e 25 22 20 6d 74 3a 2a 74 68 72 | ..;;(format.t."~&:.~S~%".mt:*thr |
| 17dda0 | 65 61 64 2a 29 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 28 68 61 | ead*).(finish-output)........(ha |
| 17ddc0 | 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 67 6f 74 2d 6f 6e 65 | ndler-case.........(setq.got-one |
| 17dde0 | 20 28 6d 74 3a 73 65 6d 61 70 68 6f 72 65 2d 77 61 69 74 20 28 6d 61 69 6c 62 6f 78 2e 73 65 6d | .(mt:semaphore-wait.(mailbox.sem |
| 17de00 | 61 70 68 6f 72 65 20 6d 62 6f 78 29 20 32 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 | aphore.mbox).2)).........(condit |
| 17de20 | 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d | ion.(condition)............(form |
| 17de40 | 61 74 20 74 20 22 7e 26 49 6e 20 28 73 77 61 6e 6b 2d 6d 6b 63 6c 29 20 72 65 63 65 69 76 65 2d | at.t."~&In.(swank-mkcl).receive- |
| 17de60 | 69 66 3a 20 53 6f 6d 65 74 68 69 6e 67 20 77 65 6e 74 20 62 61 64 20 77 69 74 68 20 73 65 6d 61 | if:.Something.went.bad.with.sema |
| 17de80 | 70 68 6f 72 65 2d 77 61 69 74 20 7e 41 7e 25 22 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 | phore-wait.~A~%".condition)..... |
| 17dea0 | 20 20 20 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 | .......(finish-output).......... |
| 17dec0 | 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 20 20 29 0a 20 20 20 | ..nil............).........).... |
| 17dee0 | 20 20 20 20 28 6d 74 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 20 | ....(mt:with-lock.(mutex)....... |
| 17df00 | 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 6c 6f 63 6b 65 64 2d 62 79 20 6d 62 6f 78 | ...(setf.(mailbox.locked-by.mbox |
| 17df20 | 29 20 6d 74 3a 2a 74 68 72 65 61 64 2a 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 | ).mt:*thread*)..........(let*.(( |
| 17df40 | 71 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 | q.(mailbox.queue.mbox))......... |
| 17df60 | 20 20 20 20 20 20 20 20 28 74 61 69 6c 20 28 6d 65 6d 62 65 72 2d 69 66 20 74 65 73 74 20 71 29 | ........(tail.(member-if.test.q) |
| 17df80 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 74 61 69 6c 20 0a 20 20 20 20 20 20 | ))............(when.tail........ |
| 17dfa0 | 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 | .......(setf.(mailbox.queue.mbox |
| 17dfc0 | 29 20 28 6e 63 6f 6e 63 20 28 6c 64 69 66 66 20 71 20 74 61 69 6c 29 20 28 63 64 72 20 74 61 69 | ).(nconc.(ldiff.q.tail).(cdr.tai |
| 17dfe0 | 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 | l)))..............(setf.(mailbox |
| 17e000 | 2e 6c 6f 63 6b 65 64 2d 62 79 20 6d 62 6f 78 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | .locked-by.mbox).nil)........... |
| 17e020 | 20 20 20 3b 3b 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 74 68 72 65 61 64 20 7e 53 20 72 65 63 65 | ...;;(format.t."~&thread.~S.rece |
| 17e040 | 69 76 65 64 3a 20 7e 53 7e 25 22 20 6d 74 3a 2a 74 68 72 65 61 64 2a 20 28 63 61 72 20 74 61 69 | ived:.~S~%".mt:*thread*.(car.tai |
| 17e060 | 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 63 61 72 20 74 61 | l))..............(return.(car.ta |
| 17e080 | 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 6c | il))))..........(setf.(mailbox.l |
| 17e0a0 | 6f 63 6b 65 64 2d 62 79 20 6d 62 6f 78 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 29 0a 0a | ocked-by.mbox).nil)..........).. |
| 17e0c0 | 20 20 20 20 20 20 20 3b 3b 28 66 6f 72 6d 61 74 20 74 20 22 2f 20 7e 53 7e 25 22 20 6d 74 3a 2a | .......;;(format.t."/.~S~%".mt:* |
| 17e0e0 | 74 68 72 65 61 64 2a 29 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 | thread*).(finish-output)........ |
| 17e100 | 28 77 68 65 6e 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 20 28 72 65 74 75 72 6e 20 28 76 61 | (when.(eq.timeout.t).(return.(va |
| 17e120 | 6c 75 65 73 20 6e 69 6c 20 74 29 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 | lues.nil.t))).;;........(unless. |
| 17e140 | 67 6f 74 2d 6f 6e 65 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e | got-one.;;..........(format.t."~ |
| 17e160 | 26 49 6e 20 28 73 77 61 6e 6b 2d 6d 6b 63 6c 29 20 72 65 63 65 69 76 65 2d 69 66 3a 20 73 65 6d | &In.(swank-mkcl).receive-if:.sem |
| 17e180 | 61 70 68 6f 72 65 2d 77 61 69 74 20 74 69 6d 65 64 20 6f 75 74 21 7e 25 22 29 29 0a 20 20 20 20 | aphore-wait.timed.out!~%"))..... |
| 17e1a0 | 20 20 20 29 0a 20 20 20 20 29 0a 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 | ...).....).....(condition.(condi |
| 17e1c0 | 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 26 45 72 72 6f 72 20 69 | tion).......(format.t."~&Error.i |
| 17e1e0 | 6e 20 28 73 77 61 6e 6b 2d 6d 6b 63 6c 29 20 72 65 63 65 69 76 65 2d 69 66 3a 20 7e 53 2c 20 7e | n.(swank-mkcl).receive-if:.~S,.~ |
| 17e200 | 41 7e 25 22 20 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 20 28 66 69 6e 69 73 | A~%".condition.condition).(finis |
| 17e220 | 68 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 29 0a 20 20 20 20 | h-output).......nil.......)..... |
| 17e240 | 29 0a 20 20 29 0a 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 74 72 65 61 6d 2d 66 69 6e 69 73 68 | )...)...(defmethod.stream-finish |
| 17e260 | 2d 6f 75 74 70 75 74 20 28 28 73 74 72 65 61 6d 20 73 74 72 65 61 6d 29 29 0a 20 20 28 66 69 6e | -output.((stream.stream))...(fin |
| 17e280 | 69 73 68 2d 6f 75 74 70 75 74 20 73 74 72 65 61 6d 29 29 0a 0a 0a 3b 3b 0a 0a 3b 3b 23 2b 77 69 | ish-output.stream))...;;..;;#+wi |
| 17e2a0 | 6e 64 6f 77 73 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 6f 7a 65 2d 69 6e | ndows.(defimplementation.doze-in |
| 17e2c0 | 2d 72 65 70 6c 20 28 29 0a 20 20 28 73 65 74 71 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d | -repl.()...(setq.*inferior-lisp- |
| 17e2e0 | 73 6c 65 65 70 69 6e 67 2d 70 6f 73 74 2a 20 28 6d 74 3a 6d 61 6b 65 2d 73 65 6d 61 70 68 6f 72 | sleeping-post*.(mt:make-semaphor |
| 17e300 | 65 29 29 0a 20 20 3b 3b 28 6c 6f 6f 70 20 28 73 6c 65 65 70 20 31 29 29 0a 20 20 28 6d 74 3a 73 | e))...;;(loop.(sleep.1))...(mt:s |
| 17e320 | 65 6d 61 70 68 6f 72 65 2d 77 61 69 74 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 73 6c 65 | emaphore-wait.*inferior-lisp-sle |
| 17e340 | 65 70 69 6e 67 2d 70 6f 73 74 2a 29 0a 20 20 28 6d 6b 2d 65 78 74 3a 71 75 69 74 20 3a 76 65 72 | eping-post*)...(mk-ext:quit.:ver |
| 17e360 | 62 6f 73 65 20 74 29 0a 20 20 29 0a 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | bose.t)...)..................... |
| 17e380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 61 6c 6c 65 67 72 6f 2e 6c 69 73 70 00 00 00 | slime-2.31/swank/allegro.lisp... |
| 17e420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 17e480 | 30 31 32 30 36 34 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 36 36 30 00 20 30 00 00 00 | 0120645.00000000000.014660..0... |
| 17e4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 17e520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 17e540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e600 | 3b 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2a 2d 20 69 6e 64 65 6e 74 | ;;;;..................-*-.indent |
| 17e620 | 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 3b 20 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 3a | -tabs-mode:.nil;.outline-regexp: |
| 17e640 | 20 22 3b 3b 3b 3b 3b 2a 20 22 3b 20 2d 2a 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 61 6c | .";;;;;*.";.-*-.;;;.;;;.swank-al |
| 17e660 | 6c 65 67 72 6f 2e 6c 69 73 70 20 2d 2d 2d 20 41 6c 6c 65 67 72 6f 20 43 4c 20 73 70 65 63 69 66 | legro.lisp.---.Allegro.CL.specif |
| 17e680 | 69 63 20 63 6f 64 65 20 66 6f 72 20 53 4c 49 4d 45 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 43 72 65 61 74 | ic.code.for.SLIME..;;;.;;;.Creat |
| 17e6a0 | 65 64 20 32 30 30 33 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 | ed.2003.;;;.;;;.This.code.has.be |
| 17e6c0 | 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 | en.placed.in.the.Public.Domain.. |
| 17e6e0 | 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 0a 3b 3b 3b 20 61 72 65 20 64 69 73 63 6c 61 69 6d | .All.warranties.;;;.are.disclaim |
| 17e700 | 65 64 2e 0a 3b 3b 3b 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 61 6c 6c 65 67 | ed..;;;..(defpackage.swank/alleg |
| 17e720 | 72 6f 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 29 0a 0a 28 | ro...(:use.cl.swank/backend))..( |
| 17e740 | 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 61 6c 6c 65 67 72 6f 29 0a 0a 28 65 76 61 6c | in-package.swank/allegro)..(eval |
| 17e760 | 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 | -when.(:compile-toplevel.:load-t |
| 17e780 | 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 3a 73 6f | oplevel.:execute)...(require.:so |
| 17e7a0 | 63 6b 29 0a 20 20 28 72 65 71 75 69 72 65 20 3a 70 72 6f 63 65 73 73 29 0a 20 20 23 2b 28 76 65 | ck)...(require.:process)...#+(ve |
| 17e7c0 | 72 73 69 6f 6e 3e 3d 20 38 20 32 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 6c 6c 64 62 29 29 0a | rsion>=.8.2)...(require.'lldb)). |
| 17e7e0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 72 61 79 2d 70 61 63 6b 61 67 65 | .(defimplementation.gray-package |
| 17e800 | 2d 6e 61 6d 65 20 28 29 0a 20 20 27 23 3a 65 78 63 6c 29 0a 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 6d | -name.()...'#:excl)..;;;.swank-m |
| 17e820 | 6f 70 0a 0a 28 69 6d 70 6f 72 74 2d 73 77 61 6e 6b 2d 6d 6f 70 2d 73 79 6d 62 6f 6c 73 20 3a 63 | op..(import-swank-mop-symbols.:c |
| 17e840 | 6c 6f 73 20 27 28 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 | los.'(:slot-definition-documenta |
| 17e860 | 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 | tion))..(defun.swank-mop:slot-de |
| 17e880 | 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 28 73 6c 6f 74 29 0a 20 20 | finition-documentation.(slot)... |
| 17e8a0 | 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 6f 74 20 74 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 | (documentation.slot.t))....;;;;. |
| 17e8c0 | 55 54 46 38 0a 0a 28 64 65 66 69 6e 65 2d 73 79 6d 62 6f 6c 2d 6d 61 63 72 6f 20 75 74 66 38 2d | UTF8..(define-symbol-macro.utf8- |
| 17e8e0 | 65 66 0a 20 20 20 20 28 6c 6f 61 64 2d 74 69 6d 65 2d 76 61 6c 75 65 0a 20 20 20 20 20 28 65 78 | ef.....(load-time-value......(ex |
| 17e900 | 63 6c 3a 63 72 6c 66 2d 62 61 73 65 2d 65 66 20 28 65 78 63 6c 3a 66 69 6e 64 2d 65 78 74 65 72 | cl:crlf-base-ef.(excl:find-exter |
| 17e920 | 6e 61 6c 2d 66 6f 72 6d 61 74 20 3a 75 74 66 2d 38 29 29 0a 20 20 20 20 20 74 29 29 0a 0a 28 64 | nal-format.:utf-8))......t))..(d |
| 17e940 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 2d 74 6f 2d 75 74 66 38 20 | efimplementation.string-to-utf8. |
| 17e960 | 28 73 29 0a 20 20 28 65 78 63 6c 3a 73 74 72 69 6e 67 2d 74 6f 2d 6f 63 74 65 74 73 20 73 20 3a | (s)...(excl:string-to-octets.s.: |
| 17e980 | 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 75 74 66 38 2d 65 66 0a 20 20 20 20 20 20 20 20 | external-format.utf8-ef......... |
| 17e9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 75 6c 6c 2d 74 65 72 6d 69 6e 61 74 65 | .................:null-terminate |
| 17e9c0 | 20 6e 69 6c 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 74 66 38 2d | .nil))..(defimplementation.utf8- |
| 17e9e0 | 74 6f 2d 73 74 72 69 6e 67 20 28 6f 63 74 65 74 73 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 69 | to-string.(octets)...(let.((stri |
| 17ea00 | 6e 67 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 6c 65 6e 67 74 68 20 6f 63 74 65 74 73 29 29 | ng.(make-string.(length.octets)) |
| 17ea20 | 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 74 72 | )).....(multiple-value-bind.(str |
| 17ea40 | 69 6e 67 20 63 68 61 72 73 2d 63 6f 70 69 65 64 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 41 6c 6c | ing.chars-copied).........;;.All |
| 17ea60 | 65 67 72 6f 20 31 30 2e 31 20 73 74 6f 70 73 20 70 72 6f 63 65 73 73 69 6e 67 20 6f 63 74 65 74 | egro.10.1.stops.processing.octet |
| 17ea80 | 73 20 77 68 65 6e 20 69 74 20 73 65 65 73 20 61 20 7a 65 72 6f 2c 0a 20 20 20 20 20 20 20 20 3b | s.when.it.sees.a.zero,.........; |
| 17eaa0 | 3b 20 75 6e 6c 65 73 73 20 69 74 20 69 73 20 63 6f 70 79 69 6e 67 20 69 6e 74 6f 20 61 6e 20 65 | ;.unless.it.is.copying.into.an.e |
| 17eac0 | 78 69 73 74 69 6e 67 20 73 74 72 69 6e 67 2e 0a 20 20 20 20 20 20 20 20 28 65 78 63 6c 3a 6f 63 | xisting.string..........(excl:oc |
| 17eae0 | 74 65 74 73 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 63 74 65 74 73 20 3a 73 74 72 69 6e 67 20 73 74 | tets-to-string.octets.:string.st |
| 17eb00 | 72 69 6e 67 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 75 74 66 38 2d 65 66 29 0a 20 | ring.:external-format.utf8-ef).. |
| 17eb20 | 20 20 20 20 20 28 73 75 62 73 65 71 20 73 74 72 69 6e 67 20 30 20 63 68 61 72 73 2d 63 6f 70 69 | .....(subseq.string.0.chars-copi |
| 17eb40 | 65 64 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 43 50 20 53 65 72 76 65 72 0a 0a 28 64 65 66 69 | ed))))....;;;;.TCP.Server..(defi |
| 17eb60 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 65 66 65 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 63 | mplementation.preferred-communic |
| 17eb80 | 61 74 69 6f 6e 2d 73 74 79 6c 65 20 28 29 0a 20 20 3a 73 70 61 77 6e 29 0a 0a 28 64 65 66 69 6d | ation-style.()...:spawn)..(defim |
| 17eba0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 28 68 6f 73 74 | plementation.create-socket.(host |
| 17ebc0 | 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 73 6f 63 6b 65 74 3a 6d 61 | .port.&key.backlog)...(socket:ma |
| 17ebe0 | 6b 65 2d 73 6f 63 6b 65 74 20 3a 63 6f 6e 6e 65 63 74 20 3a 70 61 73 73 69 76 65 20 3a 6c 6f 63 | ke-socket.:connect.:passive.:loc |
| 17ec00 | 61 6c 2d 70 6f 72 74 20 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | al-port.port.................... |
| 17ec20 | 20 20 20 3a 6c 6f 63 61 6c 2d 68 6f 73 74 20 68 6f 73 74 20 3a 72 65 75 73 65 2d 61 64 64 72 65 | ...:local-host.host.:reuse-addre |
| 17ec40 | 73 73 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 61 63 6b | ss.t.......................:back |
| 17ec60 | 6c 6f 67 20 28 6f 72 20 62 61 63 6b 6c 6f 67 20 35 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | log.(or.backlog.5)))..(defimplem |
| 17ec80 | 65 6e 74 61 74 69 6f 6e 20 6c 6f 63 61 6c 2d 70 6f 72 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 | entation.local-port.(socket)...( |
| 17eca0 | 73 6f 63 6b 65 74 3a 6c 6f 63 61 6c 2d 70 6f 72 74 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 | socket:local-port.socket))..(def |
| 17ecc0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 28 73 6f 63 | implementation.close-socket.(soc |
| 17ece0 | 6b 65 74 29 0a 20 20 28 63 6c 6f 73 65 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c | ket)...(close.socket))..(defimpl |
| 17ed00 | 65 6d 65 6e 74 61 74 69 6f 6e 20 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6f | ementation.accept-connection.(so |
| 17ed20 | 63 6b 65 74 20 26 6b 65 79 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 62 75 66 66 65 72 | cket.&key.external-format.buffer |
| 17ed40 | 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing............................. |
| 17ed60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 64 65 63 | .................timeout)...(dec |
| 17ed80 | 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 62 75 66 66 65 72 69 6e 67 20 74 69 6d 65 6f 75 74 29 29 | lare.(ignore.buffering.timeout)) |
| 17eda0 | 0a 20 20 28 6c 65 74 20 28 28 73 20 28 73 6f 63 6b 65 74 3a 61 63 63 65 70 74 2d 63 6f 6e 6e 65 | ...(let.((s.(socket:accept-conne |
| 17edc0 | 63 74 69 6f 6e 20 73 6f 63 6b 65 74 20 3a 77 61 69 74 20 74 29 29 29 0a 20 20 20 20 28 77 68 65 | ction.socket.:wait.t))).....(whe |
| 17ede0 | 6e 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 73 | n.external-format.......(setf.(s |
| 17ee00 | 74 72 65 61 6d 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 73 29 20 65 78 74 65 72 6e 61 | tream-external-format.s).externa |
| 17ee20 | 6c 2d 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | l-format)).....s))..(defimplemen |
| 17ee40 | 74 61 74 69 6f 6e 20 73 6f 63 6b 65 74 2d 66 64 20 28 73 74 72 65 61 6d 29 0a 20 20 28 65 78 63 | tation.socket-fd.(stream)...(exc |
| 17ee60 | 6c 3a 3a 73 74 72 65 61 6d 2d 69 6e 70 75 74 2d 68 61 6e 64 6c 65 20 73 74 72 65 61 6d 29 29 0a | l::stream-input-handle.stream)). |
| 17ee80 | 0a 28 64 65 66 76 61 72 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 | .(defvar.*external-format-to-cod |
| 17eea0 | 69 6e 67 2d 73 79 73 74 65 6d 2a 0a 20 20 27 28 28 3a 69 73 6f 2d 38 38 35 39 2d 31 0a 20 20 20 | ing-system*...'((:iso-8859-1.... |
| 17eec0 | 20 20 22 6c 61 74 69 6e 2d 31 22 20 22 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 22 69 73 6f 2d | .."latin-1"."latin-1-unix"."iso- |
| 17eee0 | 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 0a 20 20 20 20 20 22 69 73 6f 2d 38 38 35 39 2d 31 22 20 | latin-1-unix"......"iso-8859-1". |
| 17ef00 | 22 69 73 6f 2d 38 38 35 39 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a 75 74 66 2d 38 20 22 | "iso-8859-1-unix").....(:utf-8." |
| 17ef20 | 75 74 66 2d 38 22 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a 65 75 63 2d 6a | utf-8"."utf-8-unix").....(:euc-j |
| 17ef40 | 70 20 22 65 75 63 2d 6a 70 22 20 22 65 75 63 2d 6a 70 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a | p."euc-jp"."euc-jp-unix").....(: |
| 17ef60 | 75 73 2d 61 73 63 69 69 20 22 75 73 2d 61 73 63 69 69 22 20 22 75 73 2d 61 73 63 69 69 2d 75 6e | us-ascii."us-ascii"."us-ascii-un |
| 17ef80 | 69 78 22 29 0a 20 20 20 20 28 3a 65 6d 61 63 73 2d 6d 75 6c 65 20 22 65 6d 61 63 73 2d 6d 75 6c | ix").....(:emacs-mule."emacs-mul |
| 17efa0 | 65 22 20 22 65 6d 61 63 73 2d 6d 75 6c 65 2d 75 6e 69 78 22 29 29 29 0a 0a 28 64 65 66 69 6d 70 | e"."emacs-mule-unix")))..(defimp |
| 17efc0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 | lementation.find-external-format |
| 17efe0 | 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 28 6c 65 74 20 28 28 65 20 28 72 61 73 | .(coding-system)...(let.((e.(ras |
| 17f000 | 73 6f 63 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 6d 65 6d 62 65 72 20 63 6f 64 69 6e | soc-if.(lambda.(x).(member.codin |
| 17f020 | 67 2d 73 79 73 74 65 6d 20 78 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 | g-system.x.:test.#'equal))...... |
| 17f040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 | .................*external-forma |
| 17f060 | 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 29 29 29 0a 20 20 20 20 28 61 6e 64 20 | t-to-coding-system*))).....(and. |
| 17f080 | 65 20 28 65 78 63 6c 3a 63 72 6c 66 2d 62 61 73 65 2d 65 66 0a 20 20 20 20 20 20 20 20 20 20 20 | e.(excl:crlf-base-ef............ |
| 17f0a0 | 20 28 65 78 63 6c 3a 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 61 72 | .(excl:find-external-format.(car |
| 17f0c0 | 20 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .e)............................. |
| 17f0e0 | 20 20 20 20 20 20 20 20 20 20 20 3a 74 72 79 2d 76 61 72 69 61 6e 74 20 74 29 29 29 29 29 0a 0a | ...........:try-variant.t))))).. |
| 17f100 | 3b 3b 3b 3b 20 55 6e 69 78 20 73 69 67 6e 61 6c 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | ;;;;.Unix.signals..(defimplement |
| 17f120 | 61 74 69 6f 6e 20 67 65 74 70 69 64 20 28 29 0a 20 20 28 65 78 63 6c 3a 3a 67 65 74 70 69 64 29 | ation.getpid.()...(excl::getpid) |
| 17f140 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 70 2d 69 6d 70 6c 65 | )..(defimplementation.lisp-imple |
| 17f160 | 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 20 28 29 0a 20 20 22 61 6c 6c 65 67 72 | mentation-type-name.()..."allegr |
| 17f180 | 6f 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 61 | o")..(defimplementation.set-defa |
| 17f1a0 | 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 6c 65 74 | ult-directory.(directory)...(let |
| 17f1c0 | 2a 20 28 28 64 69 72 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 20 28 6d | *.((dir.(namestring.(truename.(m |
| 17f1e0 | 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 64 69 72 65 63 74 6f 72 79 29 29 29 29 29 0a 20 20 | erge-pathnames.directory)))))... |
| 17f200 | 20 20 28 73 65 74 66 20 2a 64 65 66 61 75 6c 74 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c | ..(setf.*default-pathname-defaul |
| 17f220 | 74 73 2a 20 28 70 61 74 68 6e 61 6d 65 20 28 65 78 63 6c 3a 63 68 64 69 72 20 64 69 72 29 29 29 | ts*.(pathname.(excl:chdir.dir))) |
| 17f240 | 0a 20 20 20 20 64 69 72 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 | .....dir))..(defimplementation.d |
| 17f260 | 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 28 6e 61 6d 65 73 74 72 69 6e | efault-directory.()...(namestrin |
| 17f280 | 67 20 28 65 78 63 6c 3a 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 0a 3b 3b | g.(excl:current-directory)))..;; |
| 17f2a0 | 3b 3b 20 4d 69 73 63 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 72 67 6c | ;;.Misc..(defimplementation.argl |
| 17f2c0 | 69 73 74 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 | ist.(symbol)...(handler-case.... |
| 17f2e0 | 20 20 20 28 6c 65 74 20 28 28 6c 61 6d 62 64 61 2d 65 78 70 72 65 73 73 69 6f 6e 20 28 69 67 6e | ...(let.((lambda-expression.(ign |
| 17f300 | 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ore-errors...................... |
| 17f320 | 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 65 78 70 72 | ...........(function-lambda-expr |
| 17f340 | 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ession.......................... |
| 17f360 | 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 | ........(symbol-function.symbol) |
| 17f380 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 4c 41 4d 42 44 41 2d 45 58 50 52 45 53 53 49 4f | )))).........;;.LAMBDA-EXPRESSIO |
| 17f3a0 | 4e 2c 20 69 66 20 61 76 61 69 6c 61 62 6c 65 2c 20 68 61 73 20 74 68 65 20 64 65 66 61 75 6c 74 | N,.if.available,.has.the.default |
| 17f3c0 | 20 76 61 6c 75 65 73 20 6f 66 0a 20 20 20 20 20 20 20 20 3b 3b 20 6f 70 74 69 6f 6e 61 6c 20 61 | .values.of.........;;.optional.a |
| 17f3e0 | 6e 64 20 6b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 73 20 6f 66 20 63 6f 6d 70 69 6c 65 64 | nd.keyword.arguments.of.compiled |
| 17f400 | 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 6c 65 0a 20 20 20 20 20 20 20 20 3b 3b 20 45 58 43 4c | .functions.while.........;;.EXCL |
| 17f420 | 3a 41 52 47 4c 49 53 54 20 64 6f 65 73 6e 27 74 2e 0a 20 20 20 20 20 20 20 20 28 69 66 20 6c 61 | :ARGLIST.doesn't..........(if.la |
| 17f440 | 6d 62 64 61 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 63 | mbda-expression.............(sec |
| 17f460 | 6f 6e 64 20 6c 61 6d 62 64 61 2d 65 78 70 72 65 73 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | ond.lambda-expression).......... |
| 17f480 | 20 20 20 28 65 78 63 6c 3a 61 72 67 6c 69 73 74 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 | ...(excl:arglist.symbol))).....( |
| 17f4a0 | 73 69 6d 70 6c 65 2d 65 72 72 6f 72 20 28 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 | simple-error.().:not-available)) |
| 17f4c0 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 63 72 6f 65 78 70 61 6e | )..(defimplementation.macroexpan |
| 17f4e0 | 64 2d 61 6c 6c 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 28 64 65 | d-all.(form.&optional.env)...(de |
| 17f500 | 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 65 6e 76 29 29 0a 20 20 23 2b 28 76 65 72 73 69 6f 6e | clare.(ignore.env))...#+(version |
| 17f520 | 3e 3d 20 38 20 30 29 0a 20 20 28 65 78 63 6c 3a 3a 77 61 6c 6b 2d 66 6f 72 6d 20 66 6f 72 6d 29 | >=.8.0)...(excl::walk-form.form) |
| 17f540 | 0a 20 20 23 2d 28 76 65 72 73 69 6f 6e 3e 3d 20 38 20 30 29 0a 20 20 28 65 78 63 6c 3a 3a 77 61 | ...#-(version>=.8.0)...(excl::wa |
| 17f560 | 6c 6b 20 66 6f 72 6d 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 | lk.form))..(defimplementation.de |
| 17f580 | 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 | scribe-symbol-for-emacs.(symbol) |
| 17f5a0 | 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 66 6c 65 74 | ...(let.((result.'())).....(flet |
| 17f5c0 | 20 28 28 64 6f 63 20 28 6b 69 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 28 73 79 6d 20 73 79 6d 62 | .((doc.(kind.&optional.(sym.symb |
| 17f5e0 | 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 64 6f 63 75 6d 65 6e 74 61 | ol))..............(or.(documenta |
| 17f600 | 74 69 6f 6e 20 73 79 6d 20 6b 69 6e 64 29 20 3a 6e 6f 74 2d 64 6f 63 75 6d 65 6e 74 65 64 29 29 | tion.sym.kind).:not-documented)) |
| 17f620 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 20 28 70 72 6f 70 65 72 74 | ............(maybe-push.(propert |
| 17f640 | 79 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 76 61 6c 75 | y.value)..............(when.valu |
| 17f660 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 28 6c | e................(setf.result.(l |
| 17f680 | 69 73 74 2a 20 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 20 72 65 73 75 6c 74 29 29 29 29 29 0a | ist*.property.value.result))))). |
| 17f6a0 | 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 76 61 72 69 61 62 | ......(maybe-push........:variab |
| 17f6c0 | 6c 65 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 | le.(when.(boundp.symbol)........ |
| 17f6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 76 61 72 69 61 62 6c 65 29 29 29 0a 20 20 | ............(doc.'variable)))... |
| 17f700 | 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 66 75 6e 63 74 69 6f 6e | ....(maybe-push........:function |
| 17f720 | 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | .(if.(fboundp.symbol)........... |
| 17f740 | 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 | ...........(doc.'function))).... |
| 17f760 | 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 63 6c 61 73 73 20 28 69 66 | ...(maybe-push........:class.(if |
| 17f780 | 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 | .(find-class.symbol.nil)........ |
| 17f7a0 | 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 63 6c 61 73 73 29 29 29 0a 20 20 20 20 20 20 | ...........(doc.'class)))....... |
| 17f7c0 | 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 | result)))..(defimplementation.de |
| 17f7e0 | 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 20 6e 61 6d 65 73 70 | scribe-definition.(symbol.namesp |
| 17f800 | 61 63 65 29 0a 20 20 28 65 63 61 73 65 20 6e 61 6d 65 73 70 61 63 65 0a 20 20 20 20 28 3a 76 61 | ace)...(ecase.namespace.....(:va |
| 17f820 | 72 69 61 62 6c 65 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 73 79 6d 62 6f 6c 29 29 0a 20 | riable......(describe.symbol)).. |
| 17f840 | 20 20 20 28 28 3a 66 75 6e 63 74 69 6f 6e 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e | ...((:function.:generic-function |
| 17f860 | 29 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f | )......(describe.(symbol-functio |
| 17f880 | 6e 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 3a 63 6c 61 73 73 0a 20 20 20 20 20 28 64 65 | n.symbol))).....(:class......(de |
| 17f8a0 | 73 63 72 69 62 65 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 29 29 29 29 29 0a 0a | scribe.(find-class.symbol))))).. |
| 17f8c0 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 | (defimplementation.type-specifie |
| 17f8e0 | 72 2d 70 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6f 72 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 | r-p.(symbol)...(or.(ignore-error |
| 17f900 | 73 0a 20 20 20 20 20 20 20 28 73 75 62 74 79 70 65 70 20 6e 69 6c 20 73 79 6d 62 6f 6c 29 29 0a | s........(subtypep.nil.symbol)). |
| 17f920 | 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 | ......(not.(eq.(type-specifier-a |
| 17f940 | 72 67 6c 69 73 74 20 73 79 6d 62 6f 6c 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 | rglist.symbol).:not-available))) |
| 17f960 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e | )..(defimplementation.function-n |
| 17f980 | 61 6d 65 20 28 66 29 0a 20 20 28 63 68 65 63 6b 2d 74 79 70 65 20 66 20 66 75 6e 63 74 69 6f 6e | ame.(f)...(check-type.f.function |
| 17f9a0 | 29 0a 20 20 28 63 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 3a 3a 6f 62 6a 65 63 74 2d 74 6f 2d | )...(cross-reference::object-to- |
| 17f9c0 | 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 29 0a 0a 3b 3b 3b 3b 20 44 65 62 75 67 67 65 72 | function-name.f))..;;;;.Debugger |
| 17f9e0 | 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c 64 62 2d 74 6f 70 66 72 61 6d 65 2a 29 0a 0a 28 64 65 66 | ..(defvar.*sldb-topframe*)..(def |
| 17fa00 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 69 | implementation.call-with-debuggi |
| 17fa20 | 6e 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e | ng-environment.(debugger-loop-fn |
| 17fa40 | 29 0a 20 20 28 6c 65 74 20 28 28 2a 73 6c 64 62 2d 74 6f 70 66 72 61 6d 65 2a 20 28 66 69 6e 64 | )...(let.((*sldb-topframe*.(find |
| 17fa60 | 2d 74 6f 70 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 65 78 63 6c 3a 3a 2a 62 72 65 61 | -topframe)).........(excl::*brea |
| 17fa80 | 6b 2d 68 6f 6f 6b 2a 20 6e 69 6c 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 64 65 62 75 67 | k-hook*.nil)).....(funcall.debug |
| 17faa0 | 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | ger-loop-fn)))..(defimplementati |
| 17fac0 | 6f 6e 20 73 6c 64 62 2d 62 72 65 61 6b 2d 61 74 2d 73 74 61 72 74 20 28 66 6e 61 6d 65 29 0a 20 | on.sldb-break-at-start.(fname).. |
| 17fae0 | 20 3b 3b 20 3a 70 72 69 6e 74 2d 62 65 66 6f 72 65 20 69 73 20 6b 69 6e 64 20 6f 66 20 6d 69 73 | .;;.:print-before.is.kind.of.mis |
| 17fb00 | 2d 75 73 65 64 20 62 75 74 20 77 65 20 6a 75 73 74 20 77 61 6e 74 20 74 6f 20 73 74 75 66 66 20 | -used.but.we.just.want.to.stuff. |
| 17fb20 | 6f 75 72 0a 20 20 3b 3b 20 62 72 65 61 6b 20 66 6f 72 6d 20 73 6f 6d 65 77 68 65 72 65 2e 20 54 | our...;;.break.form.somewhere..T |
| 17fb40 | 68 69 73 20 64 6f 65 73 20 6e 6f 74 20 77 6f 72 6b 20 66 6f 72 20 73 65 74 66 2c 20 3a 62 65 66 | his.does.not.work.for.setf,.:bef |
| 17fb60 | 6f 72 65 20 61 6e 64 0a 20 20 3b 3b 20 3a 61 66 74 65 72 20 6d 65 74 68 6f 64 73 2c 20 77 68 69 | ore.and...;;.:after.methods,.whi |
| 17fb80 | 63 68 20 6e 65 65 64 20 73 70 65 63 69 61 6c 20 73 79 6e 74 61 78 20 69 6e 20 74 68 65 20 74 72 | ch.need.special.syntax.in.the.tr |
| 17fba0 | 61 63 65 20 63 61 6c 6c 2c 20 73 65 65 0a 20 20 3b 3b 20 41 43 4c 27 73 20 64 6f 63 2f 64 65 62 | ace.call,.see...;;.ACL's.doc/deb |
| 17fbc0 | 75 67 67 69 6e 67 2e 68 74 6d 20 63 68 61 70 74 65 72 20 31 30 2e 0a 20 20 28 65 76 61 6c 20 60 | ugging.htm.chapter.10....(eval.` |
| 17fbe0 | 28 74 72 61 63 65 20 28 2c 66 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (trace.(,fname.................. |
| 17fc00 | 3a 70 72 69 6e 74 2d 62 65 66 6f 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | :print-before..................( |
| 17fc20 | 28 62 72 65 61 6b 20 22 46 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 20 62 72 65 61 6b 70 6f 69 6e | (break."Function.start.breakpoin |
| 17fc40 | 74 20 6f 66 20 7e 41 22 20 27 2c 66 6e 61 6d 65 29 29 29 29 29 0a 20 20 60 28 3a 6f 6b 20 2c 28 | t.of.~A".',fname)))))...`(:ok.,( |
| 17fc60 | 66 6f 72 6d 61 74 20 6e 69 6c 20 22 53 65 74 20 62 72 65 61 6b 70 6f 69 6e 74 20 61 74 20 73 74 | format.nil."Set.breakpoint.at.st |
| 17fc80 | 61 72 74 20 6f 66 20 7e 53 22 20 66 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 | art.of.~S".fname)))..(defun.find |
| 17fca0 | 2d 74 6f 70 66 72 61 6d 65 20 28 29 0a 20 20 28 6c 65 74 20 28 28 6d 61 67 69 63 2d 73 79 6d 62 | -topframe.()...(let.((magic-symb |
| 17fcc0 | 6f 6c 20 28 69 6e 74 65 72 6e 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 3a 73 77 61 6e 6b 2d 64 | ol.(intern.(symbol-name.:swank-d |
| 17fce0 | 65 62 75 67 67 65 72 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ebugger-hook)................... |
| 17fd00 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b | ............(find-package.:swank |
| 17fd20 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 6f 70 2d 66 72 61 6d 65 20 28 65 78 63 6c 3a 3a 69 6e | ))).........(top-frame.(excl::in |
| 17fd40 | 74 2d 6e 65 77 65 73 74 2d 66 72 61 6d 65 20 28 65 78 63 6c 3a 3a 63 75 72 72 65 6e 74 2d 74 68 | t-newest-frame.(excl::current-th |
| 17fd60 | 72 65 61 64 29 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 72 61 6d 65 20 3d 20 74 | read)))).....(loop.for.frame.=.t |
| 17fd80 | 6f 70 2d 66 72 61 6d 65 20 74 68 65 6e 20 28 6e 65 78 74 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 | op-frame.then.(next-frame.frame) |
| 17fda0 | 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 20 | ...........for.i.from.0......... |
| 17fdc0 | 20 20 77 68 69 6c 65 20 28 61 6e 64 20 66 72 61 6d 65 20 28 3c 20 69 20 33 30 29 29 0a 20 20 20 | ..while.(and.frame.(<.i.30)).... |
| 17fde0 | 20 20 20 20 20 20 20 77 68 65 6e 20 28 65 71 20 28 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d | .......when.(eq.(debugger:frame- |
| 17fe00 | 6e 61 6d 65 20 66 72 61 6d 65 29 20 6d 61 67 69 63 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 | name.frame).magic-symbol)....... |
| 17fe20 | 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 6e 65 78 74 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 0a | ......return.(next-frame.frame). |
| 17fe40 | 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 72 65 74 75 72 6e 20 74 6f 70 2d 66 72 | ..........finally.(return.top-fr |
| 17fe60 | 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 65 78 74 2d 66 72 61 6d 65 20 28 66 72 61 6d | ame))))..(defun.next-frame.(fram |
| 17fe80 | 65 29 0a 20 20 28 6c 65 74 20 28 28 6e 65 78 74 20 28 65 78 63 6c 3a 3a 69 6e 74 2d 6e 65 78 74 | e)...(let.((next.(excl::int-next |
| 17fea0 | 2d 6f 6c 64 65 72 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | -older-frame.frame))).....(cond. |
| 17fec0 | 28 28 6e 6f 74 20 6e 65 78 74 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 64 65 62 | ((not.next).nil)...........((deb |
| 17fee0 | 75 67 67 65 72 3a 66 72 61 6d 65 2d 76 69 73 69 62 6c 65 2d 70 20 6e 65 78 74 29 20 6e 65 78 74 | ugger:frame-visible-p.next).next |
| 17ff00 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6e 65 78 74 2d 66 72 61 6d 65 20 6e 65 78 74 29 | )...........(t.(next-frame.next) |
| 17ff20 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 74 68 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 29 0a 20 | ))))..(defun.nth-frame.(index).. |
| 17ff40 | 20 28 64 6f 20 28 28 66 72 61 6d 65 20 2a 73 6c 64 62 2d 74 6f 70 66 72 61 6d 65 2a 20 28 6e 65 | .(do.((frame.*sldb-topframe*.(ne |
| 17ff60 | 78 74 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 69 20 69 6e 64 65 78 | xt-frame.frame))........(i.index |
| 17ff80 | 20 28 31 2d 20 69 29 29 29 0a 20 20 20 20 20 20 28 28 7a 65 72 6f 70 20 69 29 20 66 72 61 6d 65 | .(1-.i))).......((zerop.i).frame |
| 17ffa0 | 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 70 75 74 65 2d | )))..(defimplementation.compute- |
| 17ffc0 | 62 61 63 6b 74 72 61 63 65 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 6c 65 74 20 28 28 65 | backtrace.(start.end)...(let.((e |
| 17ffe0 | 6e 64 20 28 6f 72 20 65 6e 64 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d 29 | nd.(or.end.most-positive-fixnum) |
| 180000 | 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 20 3d 20 28 6e 74 68 2d 66 72 61 6d 65 20 | )).....(loop.for.f.=.(nth-frame. |
| 180020 | 73 74 61 72 74 29 20 74 68 65 6e 20 28 6e 65 78 74 2d 66 72 61 6d 65 20 66 29 0a 09 20 20 66 6f | start).then.(next-frame.f)....fo |
| 180040 | 72 20 69 20 66 72 6f 6d 20 73 74 61 72 74 20 62 65 6c 6f 77 20 65 6e 64 0a 09 20 20 77 68 69 6c | r.i.from.start.below.end....whil |
| 180060 | 65 20 66 20 63 6f 6c 6c 65 63 74 20 66 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | e.f.collect.f)))..(defimplementa |
| 180080 | 74 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 73 74 72 65 61 6d 29 0a | tion.print-frame.(frame.stream). |
| 1800a0 | 20 20 28 64 65 62 75 67 67 65 72 3a 6f 75 74 70 75 74 2d 66 72 61 6d 65 20 73 74 72 65 61 6d 20 | ..(debugger:output-frame.stream. |
| 1800c0 | 66 72 61 6d 65 20 3a 6d 6f 64 65 72 61 74 65 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | frame.:moderate))..(defimplement |
| 1800e0 | 61 74 69 6f 6e 20 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 28 69 6e 64 65 78 29 0a 20 20 28 6c 65 | ation.frame-locals.(index)...(le |
| 180100 | 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 29 0a 20 20 | t.((frame.(nth-frame.index)))... |
| 180120 | 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 62 65 6c 6f 77 20 28 64 65 62 75 | ..(loop.for.i.from.0.below.(debu |
| 180140 | 67 67 65 72 3a 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 76 61 72 73 20 66 72 61 6d 65 29 0a 09 20 | gger:frame-number-vars.frame)... |
| 180160 | 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 6e 61 6d 65 20 28 64 65 62 75 67 67 65 72 3a 66 | .collect.(list.:name.(debugger:f |
| 180180 | 72 61 6d 65 2d 76 61 72 2d 6e 61 6d 65 20 66 72 61 6d 65 20 69 29 0a 09 09 09 3a 69 64 20 30 0a | rame-var-name.frame.i)....:id.0. |
| 1801a0 | 09 09 09 3a 76 61 6c 75 65 20 28 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 76 61 72 2d 76 61 | ...:value.(debugger:frame-var-va |
| 1801c0 | 6c 75 65 20 66 72 61 6d 65 20 69 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | lue.frame.i)))))..(defimplementa |
| 1801e0 | 74 69 6f 6e 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 66 72 61 6d 65 20 76 61 72 29 | tion.frame-var-value.(frame.var) |
| 180200 | 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 | ...(let.((frame.(nth-frame.frame |
| 180220 | 29 29 29 0a 20 20 20 20 28 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 | ))).....(debugger:frame-var-valu |
| 180240 | 65 20 66 72 61 6d 65 20 76 61 72 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | e.frame.var)))..(defimplementati |
| 180260 | 6f 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 29 0a 20 20 28 | on.disassemble-frame.(index)...( |
| 180280 | 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 29 0a | let.((frame.(nth-frame.index))). |
| 1802a0 | 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 78 20 66 75 6e 20 | ....(multiple-value-bind.(x.fun. |
| 1802c0 | 78 78 20 78 78 78 20 70 63 29 20 28 64 65 62 75 67 67 65 72 3a 3a 64 79 6e 2d 66 64 2d 61 6e 61 | xx.xxx.pc).(debugger::dyn-fd-ana |
| 1802e0 | 6c 79 7a 65 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 70 63 3a | lyze.frame).......(format.t."pc: |
| 180300 | 20 7e 64 20 28 7e 73 20 7e 73 20 7e 73 29 7e 25 66 75 6e 3a 20 7e 61 7e 25 22 20 70 63 20 78 20 | .~d.(~s.~s.~s)~%fun:.~a~%".pc.x. |
| 180320 | 78 78 20 78 78 78 20 66 75 6e 29 0a 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 62 6c 65 20 28 | xx.xxx.fun).......(disassemble.( |
| 180340 | 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 | debugger:frame-function.frame))) |
| 180360 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 73 6f 75 | ))..(defimplementation.frame-sou |
| 180380 | 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 69 6e 64 65 78 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 | rce-location.(index)...(let*.((f |
| 1803a0 | 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 29 0a 20 20 20 20 28 6d 75 | rame.(nth-frame.index))).....(mu |
| 1803c0 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 78 20 66 75 6e 20 78 78 20 78 78 78 20 | ltiple-value-bind.(x.fun.xx.xxx. |
| 1803e0 | 70 63 29 20 28 64 65 62 75 67 67 65 72 3a 3a 64 79 6e 2d 66 64 2d 61 6e 61 6c 79 7a 65 20 66 72 | pc).(debugger::dyn-fd-analyze.fr |
| 180400 | 61 6d 65 29 0a 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 78 20 78 78 | ame).......(declare.(ignore.x.xx |
| 180420 | 20 78 78 78 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 70 63 0a 20 20 20 20 | .xxx)).......(cond.((and.pc..... |
| 180440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 38 20 32 29 0a | ..............#+(version>=.8.2). |
| 180460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 63 2d 73 6f 75 72 63 65 2d 6c 6f 63 | ..................(pc-source-loc |
| 180480 | 61 74 69 6f 6e 20 66 75 6e 20 70 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ation.fun.pc)................... |
| 1804a0 | 23 2d 28 76 65 72 73 69 6f 6e 3e 3d 20 38 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | #-(version>=.8.2)............... |
| 1804c0 | 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 | ....(function-source-location.fu |
| 1804e0 | 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 3b 20 66 72 61 6d 65 73 20 66 6f 72 | n))).............(t.;.frames.for |
| 180500 | 20 75 6e 62 6f 75 6e 64 20 66 75 6e 63 74 69 6f 6e 73 20 65 74 63 20 65 6e 64 20 75 70 20 68 65 | .unbound.functions.etc.end.up.he |
| 180520 | 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 72 20 28 63 61 72 20 28 66 73 70 65 | re..............(cadr.(car.(fspe |
| 180540 | 63 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 | c-definition-locations.......... |
| 180560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 28 64 65 62 75 67 67 65 72 3a 66 | ................(car.(debugger:f |
| 180580 | 72 61 6d 65 2d 65 78 70 72 65 73 73 69 6f 6e 20 66 72 61 6d 65 29 29 29 29 29 29 29 29 29 29 0a | rame-expression.frame)))))))))). |
| 1805a0 | 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e | .(defun.function-source-location |
| 1805c0 | 20 28 66 75 6e 29 0a 20 20 28 63 61 64 72 20 28 63 61 72 20 28 66 73 70 65 63 2d 64 65 66 69 6e | .(fun)...(cadr.(car.(fspec-defin |
| 1805e0 | 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 78 | ition-locations...............(x |
| 180600 | 72 65 66 3a 3a 6f 62 6a 65 63 74 2d 74 6f 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e | ref::object-to-function-name.fun |
| 180620 | 29 29 29 29 29 0a 0a 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 38 20 32 29 0a 28 64 65 66 75 6e 20 | )))))..#+(version>=.8.2).(defun. |
| 180640 | 70 63 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 75 6e 20 70 63 29 0a 20 20 28 6c | pc-source-location.(fun.pc)...(l |
| 180660 | 65 74 2a 20 28 28 64 65 62 75 67 2d 69 6e 66 6f 20 28 65 78 63 6c 3a 3a 66 75 6e 63 74 69 6f 6e | et*.((debug-info.(excl::function |
| 180680 | 2d 73 6f 75 72 63 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 66 75 6e 29 29 29 0a 20 20 20 20 28 63 | -source-debug-info.fun))).....(c |
| 1806a0 | 6f 6e 64 20 28 28 6e 6f 74 20 64 65 62 75 67 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 | ond.((not.debug-info)........... |
| 1806c0 | 20 28 66 75 6e 63 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 29 29 | .(function-source-location.fun)) |
| 1806e0 | 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 | ...........(t............(let*.( |
| 180700 | 28 63 6f 64 65 2d 6c 6f 63 20 28 66 69 6e 64 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 63 29 0a 20 | (code-loc.(find-if.(lambda.(c).. |
| 180720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 180740 | 20 20 20 20 20 20 28 3c 3d 20 28 2d 20 70 63 20 28 73 79 73 3a 3a 6e 61 74 75 72 61 6c 2d 77 69 | ......(<=.(-.pc.(sys::natural-wi |
| 180760 | 64 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dth))........................... |
| 180780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 78 20 28 65 78 63 6c 3a | .................(let.((x.(excl: |
| 1807a0 | 3a 6c 64 62 2d 63 6f 64 65 2d 70 63 20 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :ldb-code-pc.c)))............... |
| 1807c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1807e0 | 6f 72 20 78 20 2d 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | or.x.-1))....................... |
| 180800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 63 29 29 0a 20 20 20 20 20 20 | .....................pc))....... |
| 180820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 | ...............................d |
| 180840 | 65 62 75 67 2d 69 6e 66 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 | ebug-info)))..............(cond. |
| 180860 | 28 28 6e 6f 74 20 63 6f 64 65 2d 6c 6f 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ((not.code-loc)................. |
| 180880 | 20 20 20 20 28 6c 64 62 2d 63 6f 64 65 2d 74 6f 2d 73 72 63 2d 6c 6f 63 20 28 61 72 65 66 20 64 | ....(ldb-code-to-src-loc.(aref.d |
| 1808a0 | 65 62 75 67 2d 69 6e 66 6f 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ebug-info.0))).................. |
| 1808c0 | 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 64 62 2d 63 6f | ..(t.....................(ldb-co |
| 1808e0 | 64 65 2d 74 6f 2d 73 72 63 2d 6c 6f 63 20 63 6f 64 65 2d 6c 6f 63 29 29 29 29 29 29 29 29 0a 0a | de-to-src-loc.code-loc)))))))).. |
| 180900 | 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 38 20 32 29 0a 28 64 65 66 75 6e 20 6c 64 62 2d 63 6f 64 | #+(version>=.8.2).(defun.ldb-cod |
| 180920 | 65 2d 74 6f 2d 73 72 63 2d 6c 6f 63 20 28 63 6f 64 65 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 | e-to-src-loc.(code)...(declare.( |
| 180940 | 6f 70 74 69 6d 69 7a 65 20 64 65 62 75 67 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 75 6e 63 20 | optimize.debug))...(let*.((func. |
| 180960 | 28 65 78 63 6c 3a 3a 6c 64 62 2d 63 6f 64 65 2d 66 75 6e 63 20 63 6f 64 65 29 29 0a 20 20 20 20 | (excl::ldb-code-func.code))..... |
| 180980 | 20 20 20 20 20 28 64 65 62 75 67 2d 69 6e 66 6f 20 28 65 78 63 6c 3a 3a 66 75 6e 63 74 69 6f 6e | .....(debug-info.(excl::function |
| 1809a0 | 2d 73 6f 75 72 63 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 66 75 6e 63 29 29 0a 20 20 20 20 20 20 | -source-debug-info.func))....... |
| 1809c0 | 20 20 20 28 73 74 61 72 74 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 28 65 78 63 6c | ...(start.(loop.for.i.from.(excl |
| 1809e0 | 3a 3a 6c 64 62 2d 63 6f 64 65 2d 69 6e 64 65 78 20 63 6f 64 65 29 20 64 6f 77 6e 74 6f 20 30 0a | ::ldb-code-index.code).downto.0. |
| 180a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 62 70 74 20 3d 20 | ......................for.bpt.=. |
| 180a20 | 28 61 72 65 66 20 64 65 62 75 67 2d 69 6e 66 6f 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (aref.debug-info.i)............. |
| 180a40 | 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 73 74 61 72 74 20 3d 20 28 65 78 63 6c 3a 3a 6c 64 62 | ..........for.start.=.(excl::ldb |
| 180a60 | 2d 63 6f 64 65 2d 73 74 61 72 74 2d 63 68 61 72 20 62 70 74 29 0a 20 20 20 20 20 20 20 20 20 20 | -code-start-char.bpt)........... |
| 180a80 | 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 | ............when.start.......... |
| 180aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 69 66 20 28 6c 69 73 74 70 | ...............return.(if.(listp |
| 180ac0 | 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .start)......................... |
| 180ae0 | 20 20 20 20 20 20 20 20 20 20 20 28 66 69 72 73 74 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 | ...........(first.start)........ |
| 180b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 | ............................star |
| 180b20 | 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 72 63 2d 66 69 6c 65 20 28 65 78 63 6c 3a 73 6f | t)))..........(src-file.(excl:so |
| 180b40 | 75 72 63 65 2d 66 69 6c 65 20 66 75 6e 63 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 73 74 61 | urce-file.func))).....(cond.(sta |
| 180b60 | 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 6f 72 2d 66 69 6c 65 2d 6c 6f | rt............(buffer-or-file-lo |
| 180b80 | 63 61 74 69 6f 6e 20 73 72 63 2d 66 69 6c 65 20 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 | cation.src-file.start))......... |
| 180ba0 | 20 20 28 66 75 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 64 65 62 75 67 | ..(func............(let*.((debug |
| 180bc0 | 2d 69 6e 66 6f 20 28 65 78 63 6c 3a 3a 66 75 6e 63 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 64 65 62 | -info.(excl::function-source-deb |
| 180be0 | 75 67 2d 69 6e 66 6f 20 66 75 6e 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ug-info.func)).................. |
| 180c00 | 20 28 77 68 6f 6c 65 20 28 61 72 65 66 20 64 65 62 75 67 2d 69 6e 66 6f 20 30 29 29 0a 20 20 20 | .(whole.(aref.debug-info.0)).... |
| 180c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 73 20 28 73 6f 75 72 63 65 2d 70 61 | ...............(paths.(source-pa |
| 180c40 | 74 68 73 2d 6f 66 20 28 65 78 63 6c 3a 3a 6c 64 62 2d 63 6f 64 65 2d 73 6f 75 72 63 65 20 77 68 | ths-of.(excl::ldb-code-source.wh |
| 180c60 | 6f 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ole)............................ |
| 180c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 63 6c 3a 3a 6c 64 62 2d 63 6f 64 65 2d 73 | ...............(excl::ldb-code-s |
| 180ca0 | 6f 75 72 63 65 20 63 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ource.code)))................... |
| 180cc0 | 28 70 61 74 68 20 28 69 66 20 70 61 74 68 73 20 28 6c 6f 6e 67 65 73 74 2d 63 6f 6d 6d 6f 6e 2d | (path.(if.paths.(longest-common- |
| 180ce0 | 70 72 65 66 69 78 20 70 61 74 68 73 29 20 27 28 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | prefix.paths).'()))............. |
| 180d00 | 20 20 20 20 20 20 28 73 74 61 72 74 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 | ......(start.0))..............(b |
| 180d20 | 75 66 66 65 72 2d 6f 72 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 72 63 2d | uffer-or-file...............src- |
| 180d40 | 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 66 69 6c 65 | file...............(lambda.(file |
| 180d60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e | ).................(make-location |
| 180d80 | 20 60 28 3a 66 69 6c 65 20 2c 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .`(:file.,file)................. |
| 180da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 73 6f 75 72 63 65 2d 70 61 74 68 20 28 30 | ...............`(:source-path.(0 |
| 180dc0 | 20 2e 20 2c 70 61 74 68 29 20 2c 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...,path).,start)))............. |
| 180de0 | 20 20 28 6c 61 6d 62 64 61 20 28 62 75 66 66 65 72 20 62 73 74 61 72 74 29 0a 20 20 20 20 20 20 | ..(lambda.(buffer.bstart)....... |
| 180e00 | 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 62 75 66 66 | ..........(make-location.`(:buff |
| 180e20 | 65 72 20 2c 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er.,buffer)..................... |
| 180e40 | 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 73 6f 75 72 63 65 2d 70 61 74 68 20 28 30 20 2e 20 2c | ...........`(:source-path.(0..., |
| 180e60 | 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | path)........................... |
| 180e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 2b 20 62 73 74 61 72 74 20 73 | ....................,(+.bstart.s |
| 180ea0 | 74 61 72 74 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 | tart)))))))...........(t........ |
| 180ec0 | 20 20 20 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6f 6e 67 65 73 74 2d 63 6f 6d 6d | ....nil))))..(defun.longest-comm |
| 180ee0 | 6f 6e 2d 70 72 65 66 69 78 20 28 73 65 71 75 65 6e 63 65 73 29 0a 20 20 28 61 73 73 65 72 74 20 | on-prefix.(sequences)...(assert. |
| 180f00 | 73 65 71 75 65 6e 63 65 73 29 0a 20 20 28 66 6c 65 74 20 28 28 63 6f 6d 6d 6f 6e 2d 70 72 65 66 | sequences)...(flet.((common-pref |
| 180f20 | 69 78 20 28 73 31 20 73 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 66 | ix.(s1.s2)............(let.((dif |
| 180f40 | 66 2d 70 6f 73 20 28 6d 69 73 6d 61 74 63 68 20 73 31 20 73 32 29 29 29 0a 20 20 20 20 20 20 20 | f-pos.(mismatch.s1.s2)))........ |
| 180f60 | 20 20 20 20 20 20 28 69 66 20 64 69 66 66 2d 70 6f 73 20 28 73 75 62 73 65 71 20 73 31 20 30 20 | ......(if.diff-pos.(subseq.s1.0. |
| 180f80 | 64 69 66 66 2d 70 6f 73 29 20 73 31 29 29 29 29 0a 20 20 20 20 28 72 65 64 75 63 65 20 23 27 63 | diff-pos).s1)))).....(reduce.#'c |
| 180fa0 | 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 73 65 71 75 65 6e 63 65 73 29 29 29 0a 0a 28 64 65 66 75 | ommon-prefix.sequences)))..(defu |
| 180fc0 | 6e 20 73 6f 75 72 63 65 2d 70 61 74 68 73 2d 6f 66 20 28 77 68 6f 6c 65 20 70 61 72 74 29 0a 20 | n.source-paths-of.(whole.part).. |
| 180fe0 | 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 6c 61 62 65 6c 73 | .(let.((result.'())).....(labels |
| 181000 | 20 28 28 77 61 6c 6b 20 28 66 6f 72 6d 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .((walk.(form.path)............. |
| 181020 | 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 66 6f 72 6d 20 70 61 72 74 29 0a 20 20 20 20 20 20 20 | ...(cond.((eq.form.part)........ |
| 181040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 72 65 76 65 72 73 65 20 70 61 | ...............(push.(reverse.pa |
| 181060 | 74 68 29 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | th).result)).................... |
| 181080 | 20 20 28 28 63 6f 6e 73 70 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..((consp.form)................. |
| 1810a0 | 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 77 68 69 6c 65 20 28 | ......(loop.for.i.from.0.while.( |
| 1810c0 | 63 6f 6e 73 70 20 66 6f 72 6d 29 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | consp.form).do.................. |
| 1810e0 | 20 20 20 20 20 20 20 20 20 20 20 28 77 61 6c 6b 20 28 70 6f 70 20 66 6f 72 6d 29 20 28 63 6f 6e | ...........(walk.(pop.form).(con |
| 181100 | 73 20 69 20 70 61 74 68 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 77 61 6c 6b 20 77 68 6f 6c | s.i.path))))))).......(walk.whol |
| 181120 | 65 20 27 28 29 29 0a 20 20 20 20 20 20 28 72 65 76 65 72 73 65 20 72 65 73 75 6c 74 29 29 29 29 | e.'()).......(reverse.result)))) |
| 181140 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 65 76 61 6c 2d 69 6e 2d 66 72 61 | ..(defimplementation.eval-in-fra |
| 181160 | 6d 65 20 28 66 6f 72 6d 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 20 28 28 | me.(form.frame-number)...(let.(( |
| 181180 | 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 | frame.(nth-frame.frame-number))) |
| 1811a0 | 0a 20 20 20 20 3b 3b 20 6c 65 74 2d 62 69 6e 64 20 6c 65 78 69 63 61 6c 20 76 61 72 69 61 62 6c | .....;;.let-bind.lexical.variabl |
| 1811c0 | 65 73 0a 20 20 20 20 28 6c 65 74 20 28 28 76 61 72 73 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 62 | es.....(let.((vars.(loop.for.i.b |
| 1811e0 | 65 6c 6f 77 20 28 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 76 61 72 73 | elow.(debugger:frame-number-vars |
| 181200 | 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f | .frame).......................fo |
| 181220 | 72 20 6e 61 6d 65 20 3d 20 28 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 76 61 72 2d 6e 61 6d | r.name.=.(debugger:frame-var-nam |
| 181240 | 65 20 66 72 61 6d 65 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.frame.i)...................... |
| 181260 | 20 69 66 20 28 74 79 70 65 70 20 6e 61 6d 65 20 27 28 61 6e 64 20 73 79 6d 62 6f 6c 20 28 6e 6f | .if.(typep.name.'(and.symbol.(no |
| 181280 | 74 20 6e 75 6c 6c 29 20 28 6e 6f 74 20 6b 65 79 77 6f 72 64 29 29 29 0a 20 20 20 20 20 20 20 20 | t.null).(not.keyword)))......... |
| 1812a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 2c 6e 61 6d 65 20 27 2c | ..............collect.`(,name.', |
| 1812c0 | 28 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 66 72 61 6d 65 20 | (debugger:frame-var-value.frame. |
| 1812e0 | 69 29 29 29 29 29 0a 20 20 20 20 20 20 28 64 65 62 75 67 67 65 72 3a 65 76 61 6c 2d 66 6f 72 6d | i))))).......(debugger:eval-form |
| 181300 | 2d 69 6e 2d 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 60 28 6c 65 74 2a 20 2c 76 61 72 73 20 | -in-context........`(let*.,vars. |
| 181320 | 2c 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 28 64 65 62 75 67 67 65 72 3a 65 6e 76 69 72 6f 6e 6d | ,form)........(debugger:environm |
| 181340 | 65 6e 74 2d 6f 66 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 | ent-of-frame.frame)))))..(defimp |
| 181360 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 70 61 63 6b 61 67 65 20 28 66 72 61 6d 65 | lementation.frame-package.(frame |
| 181380 | 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 | -number)...(let*.((frame.(nth-fr |
| 1813a0 | 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 78 70 | ame.frame-number))..........(exp |
| 1813c0 | 20 28 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 65 78 70 72 65 73 73 69 6f 6e 20 66 72 61 6d | .(debugger:frame-expression.fram |
| 1813e0 | 65 29 29 29 0a 20 20 20 20 28 74 79 70 65 63 61 73 65 20 65 78 70 0a 20 20 20 20 20 20 28 28 63 | e))).....(typecase.exp.......((c |
| 181400 | 6f 6e 73 20 73 79 6d 62 6f 6c 29 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 28 63 61 72 | ons.symbol).(symbol-package.(car |
| 181420 | 20 65 78 70 29 29 29 0a 20 20 20 20 20 20 28 28 63 6f 6e 73 20 28 63 6f 6e 73 20 28 65 71 6c 20 | .exp))).......((cons.(cons.(eql. |
| 181440 | 3a 69 6e 74 65 72 6e 61 6c 29 20 28 63 6f 6e 73 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 | :internal).(cons.symbol)))...... |
| 181460 | 20 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 28 63 61 64 61 72 20 65 78 70 29 29 29 29 | ..(symbol-package.(cadar.exp)))) |
| 181480 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 74 75 72 6e 2d 66 72 | ))..(defimplementation.return-fr |
| 1814a0 | 6f 6d 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 66 6f 72 6d 29 0a 20 20 28 | om-frame.(frame-number.form)...( |
| 1814c0 | 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d | let.((frame.(nth-frame.frame-num |
| 1814e0 | 62 65 72 29 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 20 | ber))).....(multiple-value-call. |
| 181500 | 23 27 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 72 65 74 75 72 6e 0a 20 20 20 20 20 20 66 72 | #'debugger:frame-return.......fr |
| 181520 | 61 6d 65 20 28 64 65 62 75 67 67 65 72 3a 65 76 61 6c 2d 66 6f 72 6d 2d 69 6e 2d 63 6f 6e 74 65 | ame.(debugger:eval-form-in-conte |
| 181540 | 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 | xt..............form............ |
| 181560 | 20 20 28 64 65 62 75 67 67 65 72 3a 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 6f 66 2d 66 72 61 6d 65 | ..(debugger:environment-of-frame |
| 181580 | 20 66 72 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | .frame)))))..(defimplementation. |
| 1815a0 | 66 72 61 6d 65 2d 72 65 73 74 61 72 74 61 62 6c 65 2d 70 20 28 66 72 61 6d 65 29 0a 20 20 28 68 | frame-restartable-p.(frame)...(h |
| 1815c0 | 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 72 65 74 72 | andler-case.(debugger:frame-retr |
| 1815e0 | 79 61 62 6c 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 28 73 65 72 69 6f 75 73 2d 63 6f 6e 64 | yable-p.frame).....(serious-cond |
| 181600 | 69 74 69 6f 6e 20 28 63 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 72 65 61 64 2d 66 | ition.(c).......(funcall.(read-f |
| 181620 | 72 6f 6d 2d 73 74 72 69 6e 67 20 22 73 77 61 6e 6b 3a 3a 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 | rom-string."swank::background-me |
| 181640 | 73 73 61 67 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 7e 61 20 7e 61 22 20 66 | ssage")................"~a.~a".f |
| 181660 | 72 61 6d 65 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 29 29 0a 20 20 20 20 20 20 | rame.(princ-to-string.c))....... |
| 181680 | 6e 69 6c 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 73 74 61 | nil)))..(defimplementation.resta |
| 1816a0 | 72 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 20 28 | rt-frame.(frame-number)...(let.( |
| 1816c0 | 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 | (frame.(nth-frame.frame-number)) |
| 1816e0 | 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 72 65 74 | ).....(cond.((debugger:frame-ret |
| 181700 | 72 79 61 62 6c 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c | ryable-p.frame)............(appl |
| 181720 | 79 20 23 27 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 72 65 74 72 79 20 66 72 61 6d 65 20 28 | y.#'debugger:frame-retry.frame.( |
| 181740 | 64 65 62 75 67 67 65 72 3a 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 66 72 61 6d 65 29 0a 20 | debugger:frame-function.frame).. |
| 181760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 64 65 62 75 67 67 65 72 3a | .................(cdr.(debugger: |
| 181780 | 66 72 61 6d 65 2d 65 78 70 72 65 73 73 69 6f 6e 20 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 20 | frame-expression.frame))))...... |
| 1817a0 | 20 20 20 20 20 28 74 20 22 46 72 61 6d 65 20 69 73 20 6e 6f 74 20 72 65 74 72 79 61 62 6c 65 22 | .....(t."Frame.is.not.retryable" |
| 1817c0 | 29 29 29 29 0a 0a 3b 3b 3b 3b 20 43 6f 6d 70 69 6c 65 72 20 68 6f 6f 6b 73 0a 0a 28 64 65 66 76 | ))))..;;;;.Compiler.hooks..(defv |
| 1817e0 | 61 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 2a 62 | ar.*buffer-name*.nil).(defvar.*b |
| 181800 | 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 29 0a 28 64 65 66 76 61 72 20 2a | uffer-start-position*).(defvar.* |
| 181820 | 62 75 66 66 65 72 2d 73 74 72 69 6e 67 2a 29 0a 28 64 65 66 76 61 72 20 2a 63 6f 6d 70 69 6c 65 | buffer-string*).(defvar.*compile |
| 181840 | 2d 66 69 6c 65 6e 61 6d 65 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 | -filename*.nil)..(defun.compiler |
| 181860 | 2d 6e 6f 74 65 2d 70 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 6d 65 6d 62 65 72 20 28 74 79 70 65 | -note-p.(object)...(member.(type |
| 181880 | 2d 6f 66 20 6f 62 6a 65 63 74 29 20 27 28 65 78 63 6c 3a 3a 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 | -of.object).'(excl::compiler-not |
| 1818a0 | 65 20 63 6f 6d 70 69 6c 65 72 3a 3a 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 29 29 29 0a 0a 28 64 | e.compiler::compiler-note)))..(d |
| 1818c0 | 65 66 75 6e 20 72 65 64 65 66 69 6e 69 74 69 6f 6e 2d 70 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a | efun.redefinition-p.(condition). |
| 1818e0 | 20 20 28 61 6e 64 20 28 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 73 74 79 6c 65 2d 77 | ..(and.(typep.condition.'style-w |
| 181900 | 61 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 28 65 76 65 72 79 20 23 27 63 68 61 72 2d 65 71 75 | arning)........(every.#'char-equ |
| 181920 | 61 6c 20 22 72 65 64 65 66 69 6e 22 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 6f | al."redefin".(princ-to-string.co |
| 181940 | 6e 64 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 2d 75 6e 64 | ndition))))..(defun.compiler-und |
| 181960 | 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2d 63 61 6c 6c 65 64 2d 77 61 72 6e 69 6e 67 2d | efined-functions-called-warning- |
| 181980 | 70 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 74 79 70 65 70 20 6f 62 6a 65 63 74 20 27 65 78 63 6c | p.(object)...(typep.object.'excl |
| 1819a0 | 3a 63 6f 6d 70 69 6c 65 72 2d 75 6e 64 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2d 63 61 | :compiler-undefined-functions-ca |
| 1819c0 | 6c 6c 65 64 2d 77 61 72 6e 69 6e 67 29 29 0a 0a 28 64 65 66 74 79 70 65 20 63 6f 6d 70 69 6c 65 | lled-warning))..(deftype.compile |
| 1819e0 | 72 2d 6e 6f 74 65 20 28 29 0a 20 20 60 28 73 61 74 69 73 66 69 65 73 20 63 6f 6d 70 69 6c 65 72 | r-note.()...`(satisfies.compiler |
| 181a00 | 2d 6e 6f 74 65 2d 70 29 29 0a 0a 28 64 65 66 74 79 70 65 20 72 65 64 65 66 69 6e 69 74 69 6f 6e | -note-p))..(deftype.redefinition |
| 181a20 | 20 28 29 0a 20 20 60 28 73 61 74 69 73 66 69 65 73 20 72 65 64 65 66 69 6e 69 74 69 6f 6e 2d 70 | .()...`(satisfies.redefinition-p |
| 181a40 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 | ))..(defun.signal-compiler-condi |
| 181a60 | 74 69 6f 6e 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 73 69 67 | tion.(&rest.args)...(apply.#'sig |
| 181a80 | 6e 61 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 61 72 67 73 29 29 0a 0a | nal.'compiler-condition.args)).. |
| 181aa0 | 28 64 65 66 75 6e 20 68 61 6e 64 6c 65 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 20 28 | (defun.handle-compiler-warning.( |
| 181ac0 | 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 6f 70 74 69 6d 69 7a 65 20 | condition)...(declare.(optimize. |
| 181ae0 | 28 64 65 62 75 67 20 33 29 20 28 73 70 65 65 64 20 30 29 20 28 73 70 61 63 65 20 30 29 29 29 0a | (debug.3).(speed.0).(space.0))). |
| 181b00 | 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 23 2d 28 76 65 72 73 69 6f 6e 3e 3d 20 31 30 20 30 29 | ..(cond.((and.#-(version>=.10.0) |
| 181b20 | 20 28 6e 6f 74 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(not.*buffer-name*)............ |
| 181b40 | 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 75 6e 64 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 73 | ...(compiler-undefined-functions |
| 181b60 | 2d 63 61 6c 6c 65 64 2d 77 61 72 6e 69 6e 67 2d 70 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 | -called-warning-p.condition))... |
| 181b80 | 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 2d 75 6e 64 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 6f | .......(handle-undefined-functio |
| 181ba0 | 6e 73 2d 77 61 72 6e 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 | ns-warning.condition)).........( |
| 181bc0 | 28 61 6e 64 20 28 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 65 78 63 6c 3a 3a 63 6f 6d | (and.(typep.condition.'excl::com |
| 181be0 | 70 69 6c 65 72 2d 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | piler-note)...............(let.( |
| 181c00 | 28 66 6f 72 6d 61 74 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 63 6f 6e 64 69 74 69 6f 6e 20 27 65 | (format.(slot-value.condition.'e |
| 181c20 | 78 63 6c 3a 3a 66 6f 72 6d 61 74 2d 63 6f 6e 74 72 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 | xcl::format-control))).......... |
| 181c40 | 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 65 61 72 63 68 20 22 43 6c 6f 73 75 72 65 22 20 66 6f | .......(and.(search."Closure".fo |
| 181c60 | 72 6d 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 61 72 | rmat)......................(sear |
| 181c80 | 63 68 20 22 77 69 6c 6c 20 62 65 20 73 74 61 63 6b 20 61 6c 6c 6f 63 61 74 65 64 22 20 66 6f 72 | ch."will.be.stack.allocated".for |
| 181ca0 | 6d 61 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 49 67 6e 6f 72 65 20 22 43 6c 6f 73 | mat))))..........;;.Ignore."Clos |
| 181cc0 | 75 72 65 20 3c 66 6f 6f 3e 20 77 69 6c 6c 20 62 65 20 73 74 61 63 6b 20 61 6c 6c 6f 63 61 74 65 | ure.<foo>.will.be.stack.allocate |
| 181ce0 | 64 22 20 6e 6f 74 65 73 2e 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 61 74 20 6f 63 63 75 72 | d".notes...........;;.That.occur |
| 181d00 | 73 20 6f 66 74 65 6e 20 62 75 74 20 69 73 20 75 73 75 61 6c 6c 79 20 75 6e 69 6e 74 65 72 65 73 | s.often.but.is.usually.uninteres |
| 181d20 | 74 69 6e 67 2e 0a 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 | ting...........).........(t..... |
| 181d40 | 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a | .....(signal-compiler-condition. |
| 181d60 | 20 20 20 20 20 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f | ..........:original-condition.co |
| 181d80 | 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3a 73 65 76 65 72 69 74 79 20 28 65 74 79 | ndition...........:severity.(ety |
| 181da0 | 70 65 63 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pecase.condition................ |
| 181dc0 | 20 20 20 20 20 20 20 28 72 65 64 65 66 69 6e 69 74 69 6f 6e 20 20 3a 72 65 64 65 66 69 6e 69 74 | .......(redefinition..:redefinit |
| 181de0 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 79 6c | ion).......................(styl |
| 181e00 | 65 2d 77 61 72 6e 69 6e 67 20 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 | e-warning.:style-warning)....... |
| 181e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 69 6e 67 20 20 20 20 20 20 20 3a | ................(warning.......: |
| 181e40 | 77 61 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | warning).......................( |
| 181e60 | 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 20 3a 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | compiler-note.:note)............ |
| 181e80 | 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 65 72 2d 65 72 72 6f 72 20 20 3a 72 65 61 64 2d | ...........(reader-error..:read- |
| 181ea0 | 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 | error).......................(er |
| 181ec0 | 72 6f 72 20 20 20 20 20 20 20 20 20 3a 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 3a | ror.........:error))...........: |
| 181ee0 | 6d 65 73 73 61 67 65 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 22 20 63 6f 6e 64 69 74 69 | message.(format.nil."~A".conditi |
| 181f00 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6d 70 69 6c 65 | on)...........:location.(compile |
| 181f20 | 72 2d 77 61 72 6e 69 6e 67 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 | r-warning-location.condition)))) |
| 181f40 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 64 69 74 69 6f 6e 2d 70 61 74 68 6e 61 6d 65 2d 61 6e 64 | )..(defun.condition-pathname-and |
| 181f60 | 2d 70 6f 73 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 | -position.(condition)...(let*.(( |
| 181f80 | 63 6f 6e 74 65 78 74 20 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 31 30 20 30 29 0a 20 20 20 20 20 | context.#+(version>=.10.0)...... |
| 181fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 66 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 63 | .............(getf.(slot-value.c |
| 181fc0 | 6f 6e 64 69 74 69 6f 6e 20 27 65 78 63 6c 3a 3a 70 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 | ondition.'excl::plist).......... |
| 181fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6f 75 72 63 65 2d 63 6f 6e 74 65 78 74 29 29 | ...............:source-context)) |
| 182000 | 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 74 69 6f 6e 2d 61 76 61 69 6c 61 62 6c 65 20 28 61 | ..........(location-available.(a |
| 182020 | 6e 64 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd.context...................... |
| 182040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 63 6c 3a 3a 73 6f 75 72 63 65 2d 63 6f 6e 74 65 | .............(excl::source-conte |
| 182060 | 78 74 2d 73 74 61 72 74 2d 63 68 61 72 20 63 6f 6e 74 65 78 74 29 29 29 29 0a 20 20 20 20 28 63 | xt-start-char.context)))).....(c |
| 182080 | 6f 6e 64 20 28 6c 6f 63 61 74 69 6f 6e 2d 61 76 61 69 6c 61 62 6c 65 0a 20 20 20 20 20 20 20 20 | ond.(location-available......... |
| 1820a0 | 20 20 20 28 76 61 6c 75 65 73 20 28 65 78 63 6c 3a 3a 73 6f 75 72 63 65 2d 63 6f 6e 74 65 78 74 | ...(values.(excl::source-context |
| 1820c0 | 2d 70 61 74 68 6e 61 6d 65 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -pathname.context).............. |
| 1820e0 | 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 73 74 61 72 74 2d 63 68 61 72 20 28 65 78 63 | ......(when-let.(start-char.(exc |
| 182100 | 6c 3a 3a 73 6f 75 72 63 65 2d 63 6f 6e 74 65 78 74 2d 73 74 61 72 74 2d 63 68 61 72 20 63 6f 6e | l::source-context-start-char.con |
| 182120 | 74 65 78 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | text))......................(let |
| 182140 | 20 28 28 70 6f 73 69 74 69 6f 6e 20 28 69 66 20 28 6c 69 73 74 70 20 73 74 61 72 74 2d 63 68 61 | .((position.(if.(listp.start-cha |
| 182160 | 72 29 20 3b 20 48 41 43 4b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r).;.HACK....................... |
| 182180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 72 73 74 20 73 74 61 72 74 2d | ...................(first.start- |
| 1821a0 | 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | char)........................... |
| 1821c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 2d 63 68 61 72 29 29 29 0a 20 20 20 | ...............start-char))).... |
| 1821e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 74 79 70 65 70 20 63 | ....................(if.(typep.c |
| 182200 | 6f 6e 64 69 74 69 6f 6e 20 27 65 78 63 6c 3a 3a 63 6f 6d 70 69 6c 65 72 2d 66 72 65 65 2d 72 65 | ondition.'excl::compiler-free-re |
| 182220 | 66 65 72 65 6e 63 65 2d 77 61 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ference-warning)................ |
| 182240 | 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | ............position............ |
| 182260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2b 20 70 6f 73 69 74 69 6f 6e 29 29 29 29 | ................(1+.position)))) |
| 182280 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 | ))...........((typep.condition.' |
| 1822a0 | 72 65 61 64 65 72 2d 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | reader-error)............(let.(( |
| 1822c0 | 70 6f 73 20 20 28 63 61 72 20 28 6c 61 73 74 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 63 6f 6e 64 | pos..(car.(last.(slot-value.cond |
| 1822e0 | 69 74 69 6f 6e 20 27 65 78 63 6c 3a 3a 66 6f 72 6d 61 74 2d 61 72 67 75 6d 65 6e 74 73 29 29 29 | ition.'excl::format-arguments))) |
| 182300 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 28 70 61 74 68 6e 61 | )..................(file.(pathna |
| 182320 | 6d 65 20 28 73 74 72 65 61 6d 2d 65 72 72 6f 72 2d 73 74 72 65 61 6d 20 63 6f 6e 64 69 74 69 6f | me.(stream-error-stream.conditio |
| 182340 | 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 69 6e 74 65 67 65 | n))))..............(when.(intege |
| 182360 | 72 70 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 66 | rp.pos)................(values.f |
| 182380 | 69 6c 65 20 70 6f 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 | ile.pos))))...........(t........ |
| 1823a0 | 20 20 20 20 28 6c 65 74 20 28 28 6c 6f 63 20 28 67 65 74 66 20 28 73 6c 6f 74 2d 76 61 6c 75 65 | ....(let.((loc.(getf.(slot-value |
| 1823c0 | 20 63 6f 6e 64 69 74 69 6f 6e 20 27 65 78 63 6c 3a 3a 70 6c 69 73 74 29 20 3a 6c 6f 63 29 29 29 | .condition.'excl::plist).:loc))) |
| 1823e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6c 6f 63 0a 20 20 20 20 20 20 20 20 | ..............(when.loc......... |
| 182400 | 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 66 69 6c 65 | .......(destructuring-bind.(file |
| 182420 | 20 2e 20 70 6f 73 29 20 6c 6f 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | ...pos).loc..................(le |
| 182440 | 74 20 28 28 73 74 61 72 74 20 28 69 66 20 28 63 6f 6e 73 70 20 70 6f 73 29 20 3b 20 38 2e 32 20 | t.((start.(if.(consp.pos).;.8.2. |
| 182460 | 61 6e 64 20 6e 65 77 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | and.newer....................... |
| 182480 | 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 31 30 20 31 29 0a 20 | ............#+(version>=.10.1).. |
| 1824a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1824c0 | 20 28 69 66 20 28 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 65 78 63 6c 3a 3a 63 6f 6d | .(if.(typep.condition.'excl::com |
| 1824e0 | 70 69 6c 65 72 2d 69 6e 63 6f 6e 73 69 73 74 65 6e 74 2d 6e 61 6d 65 2d 75 73 61 67 65 2d 77 61 | piler-inconsistent-name-usage-wa |
| 182500 | 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rning).......................... |
| 182520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 63 6f 6e 64 20 70 6f 73 29 0a 20 20 20 20 20 20 | .............(second.pos)....... |
| 182540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 182560 | 28 66 69 72 73 74 20 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (first.pos)).................... |
| 182580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2d 28 76 65 72 73 69 6f 6e 3e 3d 20 31 30 20 31 | ...............#-(version>=.10.1 |
| 1825a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 1825c0 | 20 20 20 20 28 66 69 72 73 74 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(first.pos)................. |
| 1825e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 | ..................pos)))........ |
| 182600 | 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 66 69 6c 65 20 73 74 61 72 74 29 29 | ............(values.file.start)) |
| 182620 | 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 | )))))))..(defun.compiler-warning |
| 182640 | 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 6d 75 6c 74 69 70 6c | -location.(condition)...(multipl |
| 182660 | 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 61 74 68 6e 61 6d 65 20 70 6f 73 69 74 69 6f 6e 29 | e-value-bind.(pathname.position) |
| 182680 | 0a 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 70 61 74 68 6e 61 6d 65 2d 61 6e 64 2d 70 | .......(condition-pathname-and-p |
| 1826a0 | 6f 73 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 2a 62 | osition.condition).....(cond.(*b |
| 1826c0 | 75 66 66 65 72 2d 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 | uffer-name*............(make-loc |
| 1826e0 | 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 | ation.............(list.:buffer. |
| 182700 | 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 | *buffer-name*).............(if.p |
| 182720 | 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 6f | osition.................(list.:o |
| 182740 | 66 66 73 65 74 20 31 20 28 31 2d 20 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 | ffset.1.(1-.position)).......... |
| 182760 | 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 6f 66 66 73 65 74 20 2a 62 75 66 66 65 72 2d 73 74 61 | .......(list.:offset.*buffer-sta |
| 182780 | 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 20 30 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 61 | rt-position*.0))))...........(pa |
| 1827a0 | 74 68 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e | thname............(make-location |
| 1827c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 6e 61 6d 65 73 74 | .............(list.:file.(namest |
| 1827e0 | 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 | ring.(truename.pathname)))...... |
| 182800 | 20 20 20 20 20 20 20 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 31 30 20 31 29 0a 20 20 20 20 20 20 | .......#+(version>=.10.1)....... |
| 182820 | 20 20 20 20 20 20 28 6c 69 73 74 20 3a 6f 66 66 73 65 74 20 31 20 70 6f 73 69 74 69 6f 6e 29 0a | ......(list.:offset.1.position). |
| 182840 | 20 20 20 20 20 20 20 20 20 20 20 20 23 2d 28 76 65 72 73 69 6f 6e 3e 3d 20 31 30 20 31 29 0a 20 | ............#-(version>=.10.1).. |
| 182860 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 28 31 2b 20 70 | ...........(list.:position.(1+.p |
| 182880 | 6f 73 69 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 | osition))))...........(t........ |
| 1828a0 | 20 20 20 20 28 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 22 4e 6f 20 65 72 72 | ....(make-error-location."No.err |
| 1828c0 | 6f 72 20 6c 6f 63 61 74 69 6f 6e 20 61 76 61 69 6c 61 62 6c 65 2e 22 29 29 29 29 29 0a 0a 3b 3b | or.location.available.")))))..;; |
| 1828e0 | 20 54 4f 44 4f 3a 20 72 65 70 6f 72 74 20 69 74 20 61 73 20 61 20 62 75 67 20 74 6f 20 46 72 61 | .TODO:.report.it.as.a.bug.to.Fra |
| 182900 | 6e 7a 20 74 68 61 74 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 27 73 20 70 6c 69 73 74 0a 3b 3b | nz.that.the.condition's.plist.;; |
| 182920 | 20 73 6c 6f 74 20 63 6f 6e 74 61 69 6e 73 20 28 3a 6c 6f 63 20 6e 69 6c 29 2e 0a 28 64 65 66 75 | .slot.contains.(:loc.nil)..(defu |
| 182940 | 6e 20 68 61 6e 64 6c 65 2d 75 6e 64 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2d 77 61 72 | n.handle-undefined-functions-war |
| 182960 | 6e 69 6e 67 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 66 61 72 67 73 20 | ning.(condition)...(let.((fargs. |
| 182980 | 28 73 6c 6f 74 2d 76 61 6c 75 65 20 63 6f 6e 64 69 74 69 6f 6e 20 27 65 78 63 6c 3a 3a 66 6f 72 | (slot-value.condition.'excl::for |
| 1829a0 | 6d 61 74 2d 61 72 67 75 6d 65 6e 74 73 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 | mat-arguments))).....(loop.for.( |
| 1829c0 | 66 6e 61 6d 65 20 2e 20 6c 6f 63 73 29 20 69 6e 20 28 63 61 72 20 66 61 72 67 73 29 20 64 6f 0a | fname...locs).in.(car.fargs).do. |
| 1829e0 | 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6c 6f 63 20 6c 6f 63 73 29 0a 20 20 20 | ..........(dolist.(loc.locs).... |
| 182a00 | 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 | .........(multiple-value-bind.(p |
| 182a20 | 6f 73 20 66 69 6c 65 29 20 28 65 63 61 73 65 20 28 6c 65 6e 67 74 68 20 6c 6f 63 29 0a 20 20 20 | os.file).(ecase.(length.loc).... |
| 182a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 182a60 | 20 20 20 20 20 20 20 20 20 20 20 28 32 20 28 76 61 6c 75 65 73 2d 6c 69 73 74 20 6c 6f 63 29 29 | ...........(2.(values-list.loc)) |
| 182a80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 182aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 33 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 | ...............(3.(destructuring |
| 182ac0 | 2d 62 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -bind........................... |
| 182ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 | .............................(st |
| 182b00 | 61 72 74 20 65 6e 64 20 66 69 6c 65 29 20 6c 6f 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | art.end.file).loc............... |
| 182b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 182b40 | 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 65 6e 64 29 29 0a 20 20 20 20 | .....(declare.(ignore.end))..... |
| 182b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 182b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 73 74 61 72 74 20 66 69 6c | ...............(values.start.fil |
| 182ba0 | 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 63 6f 6d 70 | e))))...............(signal-comp |
| 182bc0 | 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f | iler-condition................:o |
| 182be0 | 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 | riginal-condition.condition..... |
| 182c00 | 20 20 20 20 20 20 20 20 20 20 20 3a 73 65 76 65 72 69 74 79 20 3a 77 61 72 6e 69 6e 67 0a 20 20 | ...........:severity.:warning... |
| 182c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 65 73 73 61 67 65 20 28 66 6f 72 6d 61 74 20 6e 69 | .............:message.(format.ni |
| 182c40 | 6c 20 22 55 6e 64 65 66 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20 72 65 66 65 72 65 6e 63 65 64 | l."Undefined.function.referenced |
| 182c60 | 3a 20 7e 53 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :.~S"........................... |
| 182c80 | 20 20 20 20 20 20 66 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 | ......fname)................:loc |
| 182ca0 | 61 74 69 6f 6e 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 | ation.(make-location.(list.:file |
| 182cc0 | 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .file).......................... |
| 182ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 39 20 30 29 | ...............#+(version>=.9.0) |
| 182d00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 182d20 | 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 6f 66 66 73 65 74 20 31 20 70 6f 73 29 0a 20 20 | .........(list.:offset.1.pos)... |
| 182d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 182d60 | 20 20 20 20 20 20 23 2d 28 76 65 72 73 69 6f 6e 3e 3d 20 39 20 30 29 0a 20 20 20 20 20 20 20 20 | ......#-(version>=.9.0)......... |
| 182d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 182da0 | 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 28 31 2b 20 70 6f 73 29 29 29 29 29 29 29 29 29 | (list.:position.(1+.pos))))))))) |
| 182dc0 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 63 | ..(defimplementation.call-with-c |
| 182de0 | 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 68 | ompilation-hooks.(function)...(h |
| 182e00 | 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 77 61 72 6e 69 6e 67 20 20 20 20 20 20 20 23 27 68 61 | andler-bind.((warning.......#'ha |
| 182e20 | 6e 64 6c 65 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 | ndle-compiler-warning).......... |
| 182e40 | 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 20 23 27 68 61 6e 64 6c 65 2d | ........(compiler-note.#'handle- |
| 182e60 | 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | compiler-warning)............... |
| 182e80 | 20 20 20 28 72 65 61 64 65 72 2d 65 72 72 6f 72 20 20 23 27 68 61 6e 64 6c 65 2d 63 6f 6d 70 69 | ...(reader-error..#'handle-compi |
| 182ea0 | 6c 65 72 2d 77 61 72 6e 69 6e 67 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 | ler-warning)).....(funcall.funct |
| 182ec0 | 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b | ion)))..(defimplementation.swank |
| 182ee0 | 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 | -compile-file.(input-file.output |
| 182f00 | 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -file........................... |
| 182f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 61 64 2d 70 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 | .............load-p.external-for |
| 182f40 | 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mat............................. |
| 182f60 | 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 | ...........&key.policy)...(decla |
| 182f80 | 72 65 20 28 69 67 6e 6f 72 65 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 | re.(ignore.policy))...(handler-c |
| 182fa0 | 61 73 65 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b | ase.......(with-compilation-hook |
| 182fc0 | 73 20 28 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 | s.().........(let.((*buffer-name |
| 182fe0 | 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 63 6f 6d 70 69 6c 65 2d 66 | *.nil)...............(*compile-f |
| 183000 | 69 6c 65 6e 61 6d 65 2a 20 69 6e 70 75 74 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ilename*.input-file)............ |
| 183020 | 20 20 20 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 38 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ...#+(version>=.8.2)............ |
| 183040 | 20 20 20 28 63 6f 6d 70 69 6c 65 72 3a 73 61 76 65 2d 73 6f 75 72 63 65 2d 6c 65 76 65 6c 2d 64 | ...(compiler:save-source-level-d |
| 183060 | 65 62 75 67 2d 69 6e 66 6f 2d 73 77 69 74 63 68 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ebug-info-switch.t)............. |
| 183080 | 20 20 28 65 78 63 6c 3a 2a 6c 6f 61 64 2d 73 6f 75 72 63 65 2d 66 69 6c 65 2d 69 6e 66 6f 2a 20 | ..(excl:*load-source-file-info*. |
| 1830a0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 38 20 | t)...............#+(version>=.8. |
| 1830c0 | 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 63 6c 3a 2a 6c 6f 61 64 2d 73 6f 75 | 2)...............(excl:*load-sou |
| 1830e0 | 72 63 65 2d 64 65 62 75 67 2d 69 6e 66 6f 2a 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 | rce-debug-info*.t))...........(c |
| 183100 | 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 6e 61 6d 65 2a 0a 20 | ompile-file.*compile-filename*.. |
| 183120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 75 74 70 75 74 2d 66 | .......................:output-f |
| 183140 | 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile.output-file................. |
| 183160 | 20 20 20 20 20 20 20 20 3a 6c 6f 61 64 2d 61 66 74 65 72 2d 63 6f 6d 70 69 6c 65 20 6c 6f 61 64 | ........:load-after-compile.load |
| 183180 | 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 | -p.........................:exte |
| 1831a0 | 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 29 0a 20 | rnal-format.external-format))).. |
| 1831c0 | 20 20 20 28 72 65 61 64 65 72 2d 65 72 72 6f 72 20 28 29 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 | ...(reader-error.().(values.nil. |
| 1831e0 | 6e 69 6c 20 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 74 65 6d 70 | nil.t))))..(defun.call-with-temp |
| 183200 | 2d 66 69 6c 65 20 28 66 6e 29 0a 20 20 28 6c 65 74 20 28 28 74 6d 70 6e 61 6d 65 20 28 73 79 73 | -file.(fn)...(let.((tmpname.(sys |
| 183220 | 74 65 6d 3a 6d 61 6b 65 2d 74 65 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 | tem:make-temp-file-name))).....( |
| 183240 | 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 6f 70 | unwind-protect..........(with-op |
| 183260 | 65 6e 2d 66 69 6c 65 20 28 66 69 6c 65 20 74 6d 70 6e 61 6d 65 20 3a 64 69 72 65 63 74 69 6f 6e | en-file.(file.tmpname.:direction |
| 183280 | 20 3a 6f 75 74 70 75 74 20 3a 69 66 2d 65 78 69 73 74 73 20 3a 65 72 72 6f 72 29 0a 20 20 20 20 | .:output.:if-exists.:error)..... |
| 1832a0 | 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 66 69 6c 65 20 74 6d 70 6e 61 6d 65 29 | .......(funcall.fn.file.tmpname) |
| 1832c0 | 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 74 6d 70 6e 61 6d 65 29 29 29 29 | ).......(delete-file.tmpname)))) |
| 1832e0 | 0a 0a 28 64 65 66 76 61 72 20 2a 74 65 6d 70 2d 66 69 6c 65 2d 6d 61 70 2a 20 28 6d 61 6b 65 2d | ..(defvar.*temp-file-map*.(make- |
| 183300 | 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 22 41 20 6d | hash-table.:test.#'equal)..."A.m |
| 183320 | 61 70 70 69 6e 67 20 66 72 6f 6d 20 74 65 6d 70 66 69 6c 65 20 6e 61 6d 65 73 20 74 6f 20 45 6d | apping.from.tempfile.names.to.Em |
| 183340 | 61 63 73 20 62 75 66 66 65 72 20 6e 61 6d 65 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 77 72 69 74 | acs.buffer.names.")..(defun.writ |
| 183360 | 65 2d 74 72 61 63 6b 69 6e 67 2d 70 72 65 61 6d 62 6c 65 20 28 73 74 72 65 61 6d 20 66 69 6c 65 | e-tracking-preamble.(stream.file |
| 183380 | 20 66 69 6c 65 2d 6f 66 66 73 65 74 29 0a 20 20 22 49 6e 73 74 72 75 6d 65 6e 74 20 74 68 65 20 | .file-offset)..."Instrument.the. |
| 1833a0 | 74 6f 70 20 6f 66 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 20 74 6f 20 62 65 20 | top.of.the.temporary.file.to.be. |
| 1833c0 | 63 6f 6d 70 69 6c 65 64 2e 0a 0a 54 68 65 20 68 65 61 64 65 72 20 74 65 6c 6c 73 20 61 6c 6c 65 | compiled...The.header.tells.alle |
| 1833e0 | 67 72 6f 20 74 68 61 74 20 61 6e 79 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 63 6f 6d 70 69 6c 65 | gro.that.any.definitions.compile |
| 183400 | 64 20 69 6e 20 74 68 65 20 74 65 6d 70 0a 66 69 6c 65 20 73 68 6f 75 6c 64 20 62 65 20 66 6f 75 | d.in.the.temp.file.should.be.fou |
| 183420 | 6e 64 20 69 6e 20 46 49 4c 45 20 65 78 61 63 74 6c 79 20 61 74 20 46 49 4c 45 2d 4f 46 46 53 45 | nd.in.FILE.exactly.at.FILE-OFFSE |
| 183440 | 54 2e 20 20 54 6f 20 67 65 74 20 41 6c 6c 65 67 72 6f 0a 74 6f 20 64 6f 20 74 68 69 73 2c 20 74 | T...To.get.Allegro.to.do.this,.t |
| 183460 | 68 69 73 20 66 61 63 74 6f 72 73 20 69 6e 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 | his.factors.in.the.length.of.the |
| 183480 | 20 69 6e 73 65 72 74 65 64 20 68 65 61 64 65 72 20 69 74 73 65 6c 66 2e 22 0a 20 20 28 77 69 74 | .inserted.header.itself."...(wit |
| 1834a0 | 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 20 28 6c 65 74 2a 20 28 | h-standard-io-syntax.....(let*.( |
| 1834c0 | 28 2a 70 61 63 6b 61 67 65 2a 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 6b 65 79 77 6f 72 | (*package*.(find-package.:keywor |
| 1834e0 | 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 68 6e 61 6d 65 2d | d))............(source-pathname- |
| 183500 | 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 63 6c 3a 65 76 61 6c 2d 77 68 65 6e | form..............`(cl:eval-when |
| 183520 | 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 | .(:compile-toplevel.:load-toplev |
| 183540 | 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c | el.:execute).................(cl |
| 183560 | 3a 73 65 74 71 20 65 78 63 6c 3a 3a 2a 73 6f 75 72 63 65 2d 70 61 74 68 6e 61 6d 65 2a 0a 20 20 | :setq.excl::*source-pathname*... |
| 183580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 | .......................(pathname |
| 1835a0 | 20 2c 28 73 79 73 3a 3a 66 72 6f 62 2d 73 6f 75 72 63 65 2d 66 69 6c 65 20 66 69 6c 65 29 29 29 | .,(sys::frob-source-file.file))) |
| 1835c0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 68 6e 61 6d 65 2d 73 | ))............(source-pathname-s |
| 1835e0 | 74 72 69 6e 67 20 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 20 73 6f 75 72 63 65 2d 70 61 | tring.(write-to-string.source-pa |
| 183600 | 74 68 6e 61 6d 65 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 73 69 74 69 | thname-form))............(positi |
| 183620 | 6f 6e 2d 66 6f 72 6d 2d 6c 65 6e 67 74 68 2d 62 6f 75 6e 64 20 31 36 30 29 20 3b 20 73 68 6f 75 | on-form-length-bound.160).;.shou |
| 183640 | 6c 64 20 62 65 20 65 6e 6f 75 67 68 20 66 6f 72 20 65 76 65 72 79 6f 6e 65 0a 20 20 20 20 20 20 | ld.be.enough.for.everyone....... |
| 183660 | 20 20 20 20 20 28 68 65 61 64 65 72 2d 6c 65 6e 67 74 68 20 28 2b 20 28 6c 65 6e 67 74 68 20 73 | .....(header-length.(+.(length.s |
| 183680 | 6f 75 72 63 65 2d 70 61 74 68 6e 61 6d 65 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 | ource-pathname-string).......... |
| 1836a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 2d 66 6f 72 | ....................position-for |
| 1836c0 | 6d 2d 6c 65 6e 67 74 68 2d 62 6f 75 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 73 | m-length-bound))............(pos |
| 1836e0 | 69 74 69 6f 6e 2d 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 63 6c 3a 65 76 61 | ition-form..............`(cl:eva |
| 183700 | 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d | l-when.(:compile-toplevel.:load- |
| 183720 | 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | toplevel.:execute).............. |
| 183740 | 20 20 20 28 63 6c 3a 73 65 74 71 20 65 78 63 6c 3a 3a 2a 70 61 72 74 69 61 6c 2d 73 6f 75 72 63 | ...(cl:setq.excl::*partial-sourc |
| 183760 | 65 2d 66 69 6c 65 2d 70 2a 20 2c 28 2d 20 66 69 6c 65 2d 6f 66 66 73 65 74 0a 20 20 20 20 20 20 | e-file-p*.,(-.file-offset....... |
| 183780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1837a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 65 61 64 65 72 2d 6c 65 6e 67 | .....................header-leng |
| 1837c0 | 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | th.............................. |
| 1837e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 | ..............................1. |
| 183800 | 3b 20 66 6f 72 20 74 68 65 20 6e 65 77 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;.for.the.newline............... |
| 183820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 183840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 6f | .............))))............(po |
| 183860 | 73 69 74 69 6f 6e 2d 66 6f 72 6d 2d 73 74 72 69 6e 67 20 28 77 72 69 74 65 2d 74 6f 2d 73 74 72 | sition-form-string.(write-to-str |
| 183880 | 69 6e 67 20 70 6f 73 69 74 69 6f 6e 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | ing.position-form))............( |
| 1838a0 | 70 61 64 64 69 6e 67 2d 73 74 72 69 6e 67 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 2d 20 70 | padding-string.(make-string.(-.p |
| 1838c0 | 6f 73 69 74 69 6f 6e 2d 66 6f 72 6d 2d 6c 65 6e 67 74 68 2d 62 6f 75 6e 64 0a 20 20 20 20 20 20 | osition-form-length-bound....... |
| 1838e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 183900 | 20 20 20 20 20 28 6c 65 6e 67 74 68 20 70 6f 73 69 74 69 6f 6e 2d 66 6f 72 6d 2d 73 74 72 69 6e | .....(length.position-form-strin |
| 183920 | 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g))............................. |
| 183940 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 6d 65 6e 74 20 23 5c 3b | ............:initial-element.#\; |
| 183960 | 29 29 29 0a 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 73 6f 75 72 63 65 2d 70 | ))).......(write-string.source-p |
| 183980 | 61 74 68 6e 61 6d 65 2d 73 74 72 69 6e 67 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 77 72 | athname-string.stream).......(wr |
| 1839a0 | 69 74 65 2d 73 74 72 69 6e 67 20 70 6f 73 69 74 69 6f 6e 2d 66 6f 72 6d 2d 73 74 72 69 6e 67 20 | ite-string.position-form-string. |
| 1839c0 | 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 70 61 64 64 | stream).......(write-string.padd |
| 1839e0 | 69 6e 67 2d 73 74 72 69 6e 67 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 77 72 69 74 65 2d | ing-string.stream).......(write- |
| 183a00 | 63 68 61 72 20 23 5c 6e 65 77 6c 69 6e 65 20 73 74 72 65 61 6d 29 29 29 29 0a 0a 28 64 65 66 75 | char.#\newline.stream))))..(defu |
| 183a20 | 6e 20 63 6f 6d 70 69 6c 65 2d 66 72 6f 6d 2d 74 65 6d 70 2d 66 69 6c 65 20 28 73 74 72 69 6e 67 | n.compile-from-temp-file.(string |
| 183a40 | 20 62 75 66 66 65 72 20 6f 66 66 73 65 74 20 66 69 6c 65 29 0a 20 20 28 63 61 6c 6c 2d 77 69 74 | .buffer.offset.file)...(call-wit |
| 183a60 | 68 2d 74 65 6d 70 2d 66 69 6c 65 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 73 74 72 65 61 6d 20 66 | h-temp-file....(lambda.(stream.f |
| 183a80 | 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 66 69 6c 65 20 6f 66 | ilename)......(when.(and.file.of |
| 183aa0 | 66 73 65 74 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 28 | fset.(probe-file.file))........( |
| 183ac0 | 77 72 69 74 65 2d 74 72 61 63 6b 69 6e 67 2d 70 72 65 61 6d 62 6c 65 20 73 74 72 65 61 6d 20 66 | write-tracking-preamble.stream.f |
| 183ae0 | 69 6c 65 20 6f 66 66 73 65 74 29 29 0a 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 | ile.offset))......(write-string. |
| 183b00 | 73 74 72 69 6e 67 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 | string.stream)......(finish-outp |
| 183b20 | 75 74 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d | ut.stream)......(multiple-value- |
| 183b40 | 62 69 6e 64 20 28 62 69 6e 61 72 79 2d 66 69 6c 65 6e 61 6d 65 20 77 61 72 6e 69 6e 67 73 3f 20 | bind.(binary-filename.warnings?. |
| 183b60 | 66 61 69 6c 75 72 65 3f 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 79 73 3a 2a 73 | failure?)..........(let.((sys:*s |
| 183b80 | 6f 75 72 63 65 2d 66 69 6c 65 2d 74 79 70 65 73 2a 20 27 28 6e 69 6c 29 29 20 3b 20 73 75 70 70 | ource-file-types*.'(nil)).;.supp |
| 183ba0 | 72 65 73 73 20 2e 6c 69 73 70 20 65 78 74 65 6e 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | ress..lisp.extension............ |
| 183bc0 | 20 20 20 20 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 38 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 | ....#+(version>=.8.2)........... |
| 183be0 | 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 3a 73 61 76 65 2d 73 6f 75 72 63 65 2d 6c 65 76 65 6c | .....(compiler:save-source-level |
| 183c00 | 2d 64 65 62 75 67 2d 69 6e 66 6f 2d 73 77 69 74 63 68 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 | -debug-info-switch.t)........... |
| 183c20 | 20 20 20 20 20 28 65 78 63 6c 3a 2a 72 65 64 65 66 69 6e 69 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 | .....(excl:*redefinition-warning |
| 183c40 | 73 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c | s*.nil))............(compile-fil |
| 183c60 | 65 20 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 | e.filename))........(declare.(ig |
| 183c80 | 6e 6f 72 65 20 77 61 72 6e 69 6e 67 73 3f 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 62 69 | nore.warnings?))........(when.bi |
| 183ca0 | 6e 61 72 79 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 78 | nary-filename..........(let.((ex |
| 183cc0 | 63 6c 3a 2a 6c 6f 61 64 2d 73 6f 75 72 63 65 2d 66 69 6c 65 2d 69 6e 66 6f 2a 20 74 29 0a 20 20 | cl:*load-source-file-info*.t)... |
| 183ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 38 20 32 29 0a 20 | .............#+(version>=.8.2).. |
| 183d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 63 6c 3a 2a 6c 6f 61 64 2d 73 6f 75 72 63 65 | ..............(excl:*load-source |
| 183d20 | 2d 64 65 62 75 67 2d 69 6e 66 6f 2a 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 65 78 63 6c | -debug-info*.t))............excl |
| 183d40 | 3a 3a 2a 73 6f 75 72 63 65 2d 70 61 74 68 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 28 | ::*source-pathname*............( |
| 183d60 | 6c 6f 61 64 20 62 69 6e 61 72 79 2d 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 | load.binary-filename)).......... |
| 183d80 | 28 77 68 65 6e 20 28 61 6e 64 20 62 75 66 66 65 72 20 6f 66 66 73 65 74 20 28 6f 72 20 28 6e 6f | (when.(and.buffer.offset.(or.(no |
| 183da0 | 74 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.file)......................... |
| 183dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 66 | ..............(not.(probe-file.f |
| 183de0 | 69 6c 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 | ile))))............(setf.(gethas |
| 183e00 | 68 20 28 70 61 74 68 6e 61 6d 65 20 73 74 72 65 61 6d 29 20 2a 74 65 6d 70 2d 66 69 6c 65 2d 6d | h.(pathname.stream).*temp-file-m |
| 183e20 | 61 70 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 62 75 66 66 | ap*)..................(list.buff |
| 183e40 | 65 72 20 6f 66 66 73 65 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 | er.offset)))..........(delete-fi |
| 183e60 | 6c 65 20 62 69 6e 61 72 79 2d 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 6e 6f 74 | le.binary-filename))........(not |
| 183e80 | 20 66 61 69 6c 75 72 65 3f 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | .failure?)))))..(defimplementati |
| 183ea0 | 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 | on.swank-compile-string.(string. |
| 183ec0 | 26 6b 65 79 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 0a 20 20 | &key.buffer.position.filename... |
| 183ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 183f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 | ..............line.column.policy |
| 183f20 | 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e | )...(declare.(ignore.line.column |
| 183f40 | 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 | .policy))...(handler-case....... |
| 183f60 | 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 20 | (with-compilation-hooks.()...... |
| 183f80 | 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 62 75 66 66 65 72 29 0a | ...(let.((*buffer-name*.buffer). |
| 183fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 | ..............(*buffer-start-pos |
| 183fc0 | 69 74 69 6f 6e 2a 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ition*.position)...............( |
| 183fe0 | 2a 62 75 66 66 65 72 2d 73 74 72 69 6e 67 2a 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 | *buffer-string*.string))........ |
| 184000 | 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 72 6f 6d 2d 74 65 6d 70 2d 66 69 6c 65 20 73 74 72 69 6e | ...(compile-from-temp-file.strin |
| 184020 | 67 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 | g.buffer.position.filename)))... |
| 184040 | 20 20 28 72 65 61 64 65 72 2d 65 72 72 6f 72 20 28 29 20 6e 69 6c 29 29 29 0a 0a 3b 3b 3b 3b 20 | ..(reader-error.().nil)))..;;;;. |
| 184060 | 44 65 66 69 6e 69 74 69 6f 6e 20 46 69 6e 64 69 6e 67 0a 0a 28 64 65 66 75 6e 20 62 75 66 66 65 | Definition.Finding..(defun.buffe |
| 184080 | 72 2d 6f 72 2d 66 69 6c 65 20 28 66 69 6c 65 20 66 69 6c 65 2d 66 75 6e 20 62 75 66 66 65 72 2d | r-or-file.(file.file-fun.buffer- |
| 1840a0 | 66 75 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 72 6f 62 65 20 28 67 65 74 68 61 73 68 20 66 69 | fun)...(let*.((probe.(gethash.fi |
| 1840c0 | 6c 65 20 2a 74 65 6d 70 2d 66 69 6c 65 2d 6d 61 70 2a 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | le.*temp-file-map*))).....(cond. |
| 1840e0 | 28 70 72 6f 62 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 | (probe............(destructuring |
| 184100 | 2d 62 69 6e 64 20 28 62 75 66 66 65 72 20 73 74 61 72 74 29 20 70 72 6f 62 65 0a 20 20 20 20 20 | -bind.(buffer.start).probe...... |
| 184120 | 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 62 75 66 66 65 72 2d 66 75 6e 20 62 75 66 66 | ........(funcall.buffer-fun.buff |
| 184140 | 65 72 20 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 66 75 6e 63 61 6c | er.start)))...........(t.(funcal |
| 184160 | 6c 20 66 69 6c 65 2d 66 75 6e 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 | l.file-fun.(namestring.(truename |
| 184180 | 20 66 69 6c 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 62 75 66 66 65 72 2d 6f 72 2d 66 | .file)))))))..(defun.buffer-or-f |
| 1841a0 | 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 69 6c 65 20 6f 66 66 73 65 74 29 0a 20 20 28 62 75 | ile-location.(file.offset)...(bu |
| 1841c0 | 66 66 65 72 2d 6f 72 2d 66 69 6c 65 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ffer-or-file.file............... |
| 1841e0 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 | ....(lambda.(filename).......... |
| 184200 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c | ...........(make-location.`(:fil |
| 184220 | 65 20 2c 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.,filename).................... |
| 184240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 70 6f 73 69 74 69 6f 6e 20 2c 28 31 2b | ................`(:position.,(1+ |
| 184260 | 20 6f 66 66 73 65 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | .offset))))...................(l |
| 184280 | 61 6d 62 64 61 20 28 62 75 66 66 65 72 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ambda.(buffer.start)............ |
| 1842a0 | 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 62 75 66 66 65 | .........(make-location.`(:buffe |
| 1842c0 | 72 20 2c 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.,buffer)...................... |
| 1842e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 6f 66 66 73 65 74 20 2c 73 74 61 72 74 20 2c | ..............`(:offset.,start., |
| 184300 | 6f 66 66 73 65 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 73 70 65 63 2d 70 72 69 6d 61 72 | offset)))))..(defun.fspec-primar |
| 184320 | 79 2d 6e 61 6d 65 20 28 66 73 70 65 63 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 66 73 70 65 | y-name.(fspec)...(etypecase.fspe |
| 184340 | 63 0a 20 20 20 20 28 73 79 6d 62 6f 6c 20 66 73 70 65 63 29 0a 20 20 20 20 28 6c 69 73 74 20 28 | c.....(symbol.fspec).....(list.( |
| 184360 | 66 73 70 65 63 2d 70 72 69 6d 61 72 79 2d 6e 61 6d 65 20 28 73 65 63 6f 6e 64 20 66 73 70 65 63 | fspec-primary-name.(second.fspec |
| 184380 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e | )))))..(defun.find-definition-in |
| 1843a0 | 2d 66 69 6c 65 20 28 66 73 70 65 63 20 74 79 70 65 20 66 69 6c 65 20 74 6f 70 2d 6c 65 76 65 6c | -file.(fspec.type.file.top-level |
| 1843c0 | 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 | )...(let*.((part...........(or.( |
| 1843e0 | 73 63 6d 3a 3a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 2d 64 65 66 69 6e 69 74 69 | scm::find-definition-in-definiti |
| 184400 | 6f 6e 2d 67 72 6f 75 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 73 70 65 63 20 74 79 | on-group................fspec.ty |
| 184420 | 70 65 20 28 73 63 6d 3a 73 65 63 74 69 6f 6e 2d 66 69 6c 65 20 3a 66 69 6c 65 20 66 69 6c 65 29 | pe.(scm:section-file.:file.file) |
| 184440 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 6f 70 2d 6c 65 76 65 6c 20 74 6f 70 2d 6c | ................:top-level.top-l |
| 184460 | 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 63 6d 3a 3a 66 69 6e 64 2d 64 | evel)...............(scm::find-d |
| 184480 | 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 67 72 6f 75 70 0a 20 20 | efinition-in-definition-group... |
| 1844a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 73 70 65 63 2d 70 72 69 6d 61 72 79 2d 6e 61 6d 65 | .............(fspec-primary-name |
| 1844c0 | 20 66 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 20 28 73 63 6d | .fspec)................type.(scm |
| 1844e0 | 3a 73 65 63 74 69 6f 6e 2d 66 69 6c 65 20 3a 66 69 6c 65 20 66 69 6c 65 29 0a 20 20 20 20 20 20 | :section-file.:file.file)....... |
| 184500 | 20 20 20 20 20 20 20 20 20 3a 74 6f 70 2d 6c 65 76 65 6c 20 74 6f 70 2d 6c 65 76 65 6c 29 29 29 | .........:top-level.top-level))) |
| 184520 | 0a 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 20 28 61 6e 64 20 70 61 72 74 0a 20 20 20 20 20 | ..........(start.(and.part...... |
| 184540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 63 6d 3a 3a 73 6f 75 72 63 65 2d 70 61 72 | ................(scm::source-par |
| 184560 | 74 2d 73 74 61 72 74 20 70 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 69 | t-start.part)))..........(pos.(i |
| 184580 | 66 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | f.start...................(list. |
| 1845a0 | 3a 6f 66 66 73 65 74 20 31 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :offset.1.start)................ |
| 1845c0 | 20 20 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 74 72 69 6e 67 20 | ...(list.:function-name.(string. |
| 1845e0 | 28 66 73 70 65 63 2d 70 72 69 6d 61 72 79 2d 6e 61 6d 65 20 66 73 70 65 63 29 29 29 29 29 29 0a | (fspec-primary-name.fspec)))))). |
| 184600 | 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 | ....(make-location.(list.:file.( |
| 184620 | 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 20 66 69 6c 65 29 29 29 0a 20 20 20 | namestring.(truename.file))).... |
| 184640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 | ................pos)))..(defun.f |
| 184660 | 69 6e 64 2d 66 73 70 65 63 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 73 70 65 63 20 74 79 70 65 20 66 | ind-fspec-location.(fspec.type.f |
| 184680 | 69 6c 65 20 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 | ile.top-level)...(handler-case.. |
| 1846a0 | 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 28 70 61 | .....(etypecase.file.........(pa |
| 1846c0 | 74 68 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 62 65 20 28 67 65 | thname..........(let.((probe.(ge |
| 1846e0 | 74 68 61 73 68 20 66 69 6c 65 20 2a 74 65 6d 70 2d 66 69 6c 65 2d 6d 61 70 2a 29 29 29 0a 20 20 | thash.file.*temp-file-map*)))... |
| 184700 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 70 72 6f 62 65 0a 20 20 20 20 20 20 20 20 20 20 | .........(cond.(probe........... |
| 184720 | 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 62 75 66 | ........(destructuring-bind.(buf |
| 184740 | 66 65 72 20 6f 66 66 73 65 74 29 20 70 72 6f 62 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fer.offset).probe............... |
| 184760 | 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 62 75 66 66 65 72 20 2c | ......(make-location.`(:buffer., |
| 184780 | 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | buffer)......................... |
| 1847a0 | 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 6f 66 66 73 65 74 20 2c 6f 66 66 73 65 74 20 30 29 29 | ...........`(:offset.,offset.0)) |
| 1847c0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 | ))..................(t.......... |
| 1847e0 | 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 2d 66 69 6c | .........(find-definition-in-fil |
| 184800 | 65 20 66 73 70 65 63 20 74 79 70 65 20 66 69 6c 65 20 74 6f 70 2d 6c 65 76 65 6c 29 29 29 29 29 | e.fspec.type.file.top-level))))) |
| 184820 | 0a 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 3a 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 | .........((member.:top-level)... |
| 184840 | 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 22 44 65 66 | .......(make-error-location."Def |
| 184860 | 69 6e 65 64 20 61 74 20 74 6f 70 6c 65 76 65 6c 3a 20 7e 41 22 0a 20 20 20 20 20 20 20 20 20 20 | ined.at.toplevel:.~A"........... |
| 184880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 73 70 65 63 2d 3e 73 74 72 69 | ....................(fspec->stri |
| 1848a0 | 6e 67 20 66 73 70 65 63 29 29 29 29 0a 20 20 20 20 28 65 72 72 6f 72 20 28 65 29 0a 20 20 20 20 | ng.fspec)))).....(error.(e)..... |
| 1848c0 | 20 20 28 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 22 45 72 72 6f 72 3a 20 7e | ..(make-error-location."Error:.~ |
| 1848e0 | 41 22 20 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 73 70 65 63 2d 3e 73 74 72 69 6e 67 20 28 | A".e))))..(defun.fspec->string.( |
| 184900 | 66 73 70 65 63 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 66 73 70 65 63 0a 20 20 20 20 28 73 79 | fspec)...(typecase.fspec.....(sy |
| 184920 | 6d 62 6f 6c 20 28 6c 65 74 20 28 28 2a 70 61 63 6b 61 67 65 2a 20 28 66 69 6e 64 2d 70 61 63 6b | mbol.(let.((*package*.(find-pack |
| 184940 | 61 67 65 20 3a 6b 65 79 77 6f 72 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | age.:keyword)))...............(p |
| 184960 | 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 66 73 70 65 63 29 29 29 0a 20 20 20 20 28 6c 69 73 | rin1-to-string.fspec))).....(lis |
| 184980 | 74 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 28 7e 41 20 7e 41 29 22 0a 20 20 20 20 20 20 20 20 | t.(format.nil."(~A.~A)"......... |
| 1849a0 | 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 28 66 69 72 73 | ..........(prin1-to-string.(firs |
| 1849c0 | 74 20 66 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | t.fspec))...................(let |
| 1849e0 | 20 28 28 2a 70 61 63 6b 61 67 65 2a 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 6b 65 79 77 | .((*package*.(find-package.:keyw |
| 184a00 | 6f 72 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e | ord))).....................(prin |
| 184a20 | 31 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 65 63 6f 6e 64 20 66 73 70 65 63 29 29 29 29 29 0a 20 | 1-to-string.(second.fspec))))).. |
| 184a40 | 20 20 20 28 74 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 66 73 70 65 63 29 29 29 29 | ...(t.(princ-to-string.fspec)))) |
| 184a60 | 0a 0a 28 64 65 66 75 6e 20 66 73 70 65 63 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 | ..(defun.fspec-definition-locati |
| 184a80 | 6f 6e 73 20 28 66 73 70 65 63 29 0a 20 20 28 63 6f 6e 64 0a 20 20 20 20 28 28 61 6e 64 20 28 6c | ons.(fspec)...(cond.....((and.(l |
| 184aa0 | 69 73 74 70 20 66 73 70 65 63 29 20 28 65 71 20 28 63 61 72 20 66 73 70 65 63 29 20 3a 69 6e 74 | istp.fspec).(eq.(car.fspec).:int |
| 184ac0 | 65 72 6e 61 6c 29 29 0a 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 | ernal))......(destructuring-bind |
| 184ae0 | 20 28 5f 69 6e 74 65 72 6e 61 6c 20 6e 65 78 74 20 5f 6e 29 20 66 73 70 65 63 0a 20 20 20 20 20 | .(_internal.next._n).fspec...... |
| 184b00 | 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 5f 69 6e 74 65 72 6e 61 6c 20 5f 6e 29 | ..(declare.(ignore._internal._n) |
| 184b20 | 29 0a 20 20 20 20 20 20 20 28 66 73 70 65 63 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6c 6f 63 61 74 | )........(fspec-definition-locat |
| 184b40 | 69 6f 6e 73 20 6e 65 78 74 29 29 29 0a 20 20 20 20 28 74 0a 20 20 20 20 20 28 6c 65 74 20 28 28 | ions.next))).....(t......(let.(( |
| 184b60 | 64 65 66 73 20 28 65 78 63 6c 3a 3a 66 69 6e 64 2d 73 6f 75 72 63 65 2d 66 69 6c 65 20 66 73 70 | defs.(excl::find-source-file.fsp |
| 184b80 | 65 63 29 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6e 75 6c 6c 20 64 65 | ec)))........(when.(and.(null.de |
| 184ba0 | 66 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 70 20 66 73 70 | fs)...................(listp.fsp |
| 184bc0 | 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3d 20 28 | ec)...................(string=.( |
| 184be0 | 63 61 72 20 66 73 70 65 63 29 20 27 23 3a 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 20 20 20 20 20 | car.fspec).'#:method)).......... |
| 184c00 | 3b 3b 20 49 66 20 6d 65 74 68 6f 64 73 20 61 72 65 20 64 65 66 69 6e 65 64 20 69 6e 20 61 20 64 | ;;.If.methods.are.defined.in.a.d |
| 184c20 | 65 66 67 65 6e 65 72 69 63 20 66 6f 72 6d 2c 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 | efgeneric.form,.the.source.locat |
| 184c40 | 69 6f 6e 20 69 73 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 72 65 63 6f 72 64 65 64 20 66 6f 72 20 | ion.is..........;;.recorded.for. |
| 184c60 | 74 68 65 20 67 66 20 62 75 74 20 6e 6f 74 20 66 6f 72 20 74 68 65 20 6d 65 74 68 6f 64 73 2e 20 | the.gf.but.not.for.the.methods.. |
| 184c80 | 54 68 65 72 65 66 6f 72 65 20 66 61 6c 6c 20 62 61 63 6b 20 74 6f 0a 20 20 20 20 20 20 20 20 20 | Therefore.fall.back.to.......... |
| 184ca0 | 3b 3b 20 74 68 65 20 67 66 20 61 73 20 74 68 65 20 6c 69 6b 65 6c 79 20 70 6c 61 63 65 20 6f 66 | ;;.the.gf.as.the.likely.place.of |
| 184cc0 | 20 64 65 66 69 6e 69 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 65 66 73 | .definition...........(setq.defs |
| 184ce0 | 20 28 65 78 63 6c 3a 3a 66 69 6e 64 2d 73 6f 75 72 63 65 2d 66 69 6c 65 20 28 73 65 63 6f 6e 64 | .(excl::find-source-file.(second |
| 184d00 | 20 66 73 70 65 63 29 29 29 29 0a 20 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 64 65 66 73 | .fspec))))........(if.(null.defs |
| 184d20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | )............(list.............( |
| 184d40 | 6c 69 73 74 20 66 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 | list.fspec...................(ma |
| 184d60 | 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 22 55 6e 6b 6e 6f 77 6e 20 73 6f 75 72 63 | ke-error-location."Unknown.sourc |
| 184d80 | 65 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 7e 41 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.location.for.~A".............. |
| 184da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 73 70 65 63 | ..........................(fspec |
| 184dc0 | 2d 3e 73 74 72 69 6e 67 20 66 73 70 65 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c | ->string.fspec))))............(l |
| 184de0 | 6f 6f 70 20 66 6f 72 20 28 66 73 70 65 63 20 74 79 70 65 20 66 69 6c 65 20 74 6f 70 2d 6c 65 76 | oop.for.(fspec.type.file.top-lev |
| 184e00 | 65 6c 29 20 69 6e 20 64 65 66 73 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | el).in.defs.collect............. |
| 184e20 | 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 74 79 70 65 20 66 73 70 65 63 29 0a 20 20 20 | .....(list.(list.type.fspec).... |
| 184e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 73 70 65 63 2d | ....................(find-fspec- |
| 184e60 | 6c 6f 63 61 74 69 6f 6e 20 66 73 70 65 63 20 74 79 70 65 20 66 69 6c 65 20 74 6f 70 2d 6c 65 76 | location.fspec.type.file.top-lev |
| 184e80 | 65 6c 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 | el))))))))..(defimplementation.f |
| 184ea0 | 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 66 73 70 65 | ind-definitions.(symbol)...(fspe |
| 184ec0 | 63 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 73 20 73 79 6d 62 6f 6c 29 29 0a | c-definition-locations.symbol)). |
| 184ee0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 73 6f 75 72 63 65 2d | .(defimplementation.find-source- |
| 184f00 | 6c 6f 63 61 74 69 6f 6e 20 28 6f 62 6a 29 0a 20 20 28 66 69 72 73 74 20 28 72 65 73 74 20 28 66 | location.(obj)...(first.(rest.(f |
| 184f20 | 69 72 73 74 20 28 66 73 70 65 63 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 73 | irst.(fspec-definition-locations |
| 184f40 | 20 6f 62 6a 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 58 52 45 46 0a 0a 28 64 65 66 6d 61 63 72 6f 20 | .obj)))))..;;;;.XREF..(defmacro. |
| 184f60 | 64 65 66 78 72 65 66 20 28 6e 61 6d 65 20 72 65 6c 61 74 69 6f 6e 20 6e 61 6d 65 31 20 6e 61 6d | defxref.(name.relation.name1.nam |
| 184f80 | 65 32 29 0a 20 20 60 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 2c 6e 61 6d 65 20 | e2)...`(defimplementation.,name. |
| 184fa0 | 28 78 29 0a 20 20 20 20 28 78 72 65 66 2d 72 65 73 75 6c 74 20 28 78 72 65 66 3a 67 65 74 2d 72 | (x).....(xref-result.(xref:get-r |
| 184fc0 | 65 6c 61 74 69 6f 6e 20 2c 72 65 6c 61 74 69 6f 6e 20 2c 6e 61 6d 65 31 20 2c 6e 61 6d 65 32 29 | elation.,relation.,name1.,name2) |
| 184fe0 | 29 29 29 0a 0a 28 64 65 66 78 72 65 66 20 77 68 6f 2d 63 61 6c 6c 73 20 20 20 20 20 20 20 20 3a | )))..(defxref.who-calls........: |
| 185000 | 63 61 6c 6c 73 20 20 20 20 20 20 20 3a 77 69 6c 64 20 78 29 0a 28 64 65 66 78 72 65 66 20 63 61 | calls.......:wild.x).(defxref.ca |
| 185020 | 6c 6c 73 2d 77 68 6f 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 73 20 20 20 20 20 20 20 78 20 3a 77 | lls-who........:calls.......x.:w |
| 185040 | 69 6c 64 29 0a 28 64 65 66 78 72 65 66 20 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 20 20 20 3a | ild).(defxref.who-references...: |
| 185060 | 75 73 65 73 20 20 20 20 20 20 20 20 3a 77 69 6c 64 20 78 29 0a 28 64 65 66 78 72 65 66 20 77 68 | uses........:wild.x).(defxref.wh |
| 185080 | 6f 2d 62 69 6e 64 73 20 20 20 20 20 20 20 20 3a 62 69 6e 64 73 20 20 20 20 20 20 20 3a 77 69 6c | o-binds........:binds.......:wil |
| 1850a0 | 64 20 78 29 0a 28 64 65 66 78 72 65 66 20 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 20 3a | d.x).(defxref.who-macroexpands.: |
| 1850c0 | 6d 61 63 72 6f 2d 63 61 6c 6c 73 20 3a 77 69 6c 64 20 78 29 0a 28 64 65 66 78 72 65 66 20 77 68 | macro-calls.:wild.x).(defxref.wh |
| 1850e0 | 6f 2d 73 65 74 73 20 20 20 20 20 20 20 20 20 3a 73 65 74 73 20 20 20 20 20 20 20 20 3a 77 69 6c | o-sets.........:sets........:wil |
| 185100 | 64 20 78 29 0a 0a 28 64 65 66 75 6e 20 78 72 65 66 2d 72 65 73 75 6c 74 20 28 66 73 70 65 63 73 | d.x)..(defun.xref-result.(fspecs |
| 185120 | 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 73 70 65 63 20 69 6e 20 66 73 70 65 63 73 0a 20 20 | )...(loop.for.fspec.in.fspecs... |
| 185140 | 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 66 73 70 65 63 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6c | ......append.(fspec-definition-l |
| 185160 | 6f 63 61 74 69 6f 6e 73 20 66 73 70 65 63 29 29 29 0a 0a 3b 3b 20 6c 69 73 74 2d 63 61 6c 6c 65 | ocations.fspec)))..;;.list-calle |
| 185180 | 72 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 20 67 72 6f 76 65 6c 69 6e 67 20 74 68 72 6f | rs.implemented.by.groveling.thro |
| 1851a0 | 75 67 68 20 61 6c 6c 20 66 62 6f 75 6e 64 20 73 79 6d 62 6f 6c 73 2e 0a 3b 3b 20 4f 6e 6c 79 20 | ugh.all.fbound.symbols..;;.Only. |
| 1851c0 | 73 79 6d 62 6f 6c 73 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 2e 20 20 46 75 6e 63 74 69 6f | symbols.are.considered...Functio |
| 1851e0 | 6e 73 20 69 6e 20 74 68 65 20 63 6f 6e 73 74 61 6e 74 20 70 6f 6f 6c 20 61 72 65 0a 3b 3b 20 73 | ns.in.the.constant.pool.are.;;.s |
| 185200 | 65 61 72 63 68 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 2e 20 20 43 6c 6f 73 75 72 65 20 65 6e | earched.recursively...Closure.en |
| 185220 | 76 69 72 6f 6e 6d 65 6e 74 73 20 61 72 65 20 69 67 6e 6f 72 65 64 20 61 74 20 74 68 65 0a 3b 3b | vironments.are.ignored.at.the.;; |
| 185240 | 20 6d 6f 6d 65 6e 74 20 28 63 6f 6e 73 74 61 6e 74 73 20 69 6e 20 6d 65 74 68 6f 64 73 20 61 72 | .moment.(constants.in.methods.ar |
| 185260 | 65 20 74 68 65 72 65 66 6f 72 65 20 6e 6f 74 20 66 6f 75 6e 64 29 2e 0a 0a 28 64 65 66 75 6e 20 | e.therefore.not.found)...(defun. |
| 185280 | 6d 61 70 2d 66 75 6e 63 74 69 6f 6e 2d 63 6f 6e 73 74 61 6e 74 73 20 28 66 75 6e 63 74 69 6f 6e | map-function-constants.(function |
| 1852a0 | 20 66 6e 20 64 65 70 74 68 29 0a 20 20 22 43 61 6c 6c 20 46 4e 20 77 69 74 68 20 74 68 65 20 65 | .fn.depth)..."Call.FN.with.the.e |
| 1852c0 | 6c 65 6d 65 6e 74 73 20 6f 66 20 46 55 4e 43 54 49 4f 4e 27 73 20 63 6f 6e 73 74 61 6e 74 20 70 | lements.of.FUNCTION's.constant.p |
| 1852e0 | 6f 6f 6c 2e 22 0a 20 20 28 64 6f 20 28 28 69 20 30 20 28 31 2b 20 69 29 29 0a 20 20 20 20 20 20 | ool."...(do.((i.0.(1+.i))....... |
| 185300 | 20 28 6d 61 78 20 28 65 78 63 6c 3a 3a 66 75 6e 63 74 69 6f 6e 2d 63 6f 6e 73 74 61 6e 74 2d 63 | .(max.(excl::function-constant-c |
| 185320 | 6f 75 6e 74 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 28 3d 20 69 20 6d 61 78 | ount.function))).......((=.i.max |
| 185340 | 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 20 28 65 78 63 6c 3a 3a 66 75 6e 63 74 69 6f 6e 2d | )).....(let.((c.(excl::function- |
| 185360 | 63 6f 6e 73 74 61 6e 74 20 66 75 6e 63 74 69 6f 6e 20 69 29 29 29 0a 20 20 20 20 20 20 28 63 6f | constant.function.i))).......(co |
| 185380 | 6e 64 20 28 28 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e 70 20 63 29 0a 20 20 20 20 20 20 20 20 20 | nd.((and.(functionp.c).......... |
| 1853a0 | 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 63 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 | .........(not.(eq.c.function)).. |
| 1853c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6c 75 73 70 20 64 65 70 74 68 29 29 0a | .................(plusp.depth)). |
| 1853e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 2d 66 75 6e 63 74 69 6f 6e 2d 63 6f 6e 73 74 | .............(map-function-const |
| 185400 | 61 6e 74 73 20 63 20 66 6e 20 28 31 2d 20 64 65 70 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ants.c.fn.(1-.depth))).......... |
| 185420 | 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 63 | ...(t..............(funcall.fn.c |
| 185440 | 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 2d 63 6f 6e 73 74 61 6e 74 73 2d 70 20 28 66 | ))))))..(defun.in-constants-p.(f |
| 185460 | 75 6e 20 73 79 6d 62 6f 6c 29 0a 20 20 28 6d 61 70 2d 66 75 6e 63 74 69 6f 6e 2d 63 6f 6e 73 74 | un.symbol)...(map-function-const |
| 185480 | 61 6e 74 73 20 66 75 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ants.fun........................ |
| 1854a0 | 20 20 20 28 6c 61 6d 62 64 61 20 28 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(lambda.(c).................. |
| 1854c0 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 63 20 73 79 6d 62 6f 6c 29 0a 20 | ...........(when.(eq.c.symbol).. |
| 1854e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 | .............................(re |
| 185500 | 74 75 72 6e 2d 66 72 6f 6d 20 69 6e 2d 63 6f 6e 73 74 61 6e 74 73 2d 70 20 74 29 29 29 0a 20 20 | turn-from.in-constants-p.t)))... |
| 185520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 29 29 0a 0a 28 64 65 | ........................3))..(de |
| 185540 | 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 63 61 6c 6c 65 72 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c | fun.function-callers.(name)...(l |
| 185560 | 65 74 20 28 28 63 61 6c 6c 65 72 73 20 27 28 29 29 29 0a 20 20 20 20 28 64 6f 2d 61 6c 6c 2d 73 | et.((callers.'())).....(do-all-s |
| 185580 | 79 6d 62 6f 6c 73 20 28 73 79 6d 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 | ymbols.(sym).......(when.(fbound |
| 1855a0 | 70 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 6e 20 28 66 64 65 66 69 6e | p.sym).........(let.((fn.(fdefin |
| 1855c0 | 69 74 69 6f 6e 20 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 69 6e | ition.sym)))...........(when.(in |
| 1855e0 | 2d 63 6f 6e 73 74 61 6e 74 73 2d 70 20 66 6e 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | -constants-p.fn.name)........... |
| 185600 | 20 20 28 70 75 73 68 20 73 79 6d 20 63 61 6c 6c 65 72 73 29 29 29 29 29 0a 20 20 20 20 63 61 6c | ..(push.sym.callers))))).....cal |
| 185620 | 6c 65 72 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 74 2d | lers))..(defimplementation.list- |
| 185640 | 63 61 6c 6c 65 72 73 20 28 6e 61 6d 65 29 0a 20 20 28 78 72 65 66 2d 72 65 73 75 6c 74 20 28 66 | callers.(name)...(xref-result.(f |
| 185660 | 75 6e 63 74 69 6f 6e 2d 63 61 6c 6c 65 72 73 20 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 | unction-callers.name)))..(defimp |
| 185680 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 74 2d 63 61 6c 6c 65 65 73 20 28 6e 61 6d 65 29 0a | lementation.list-callees.(name). |
| 1856a0 | 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 6d 61 70 2d 66 | ..(let.((result.'())).....(map-f |
| 1856c0 | 75 6e 63 74 69 6f 6e 2d 63 6f 6e 73 74 61 6e 74 73 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 6e | unction-constants.(fdefinition.n |
| 1856e0 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame)............................ |
| 185700 | 20 28 6c 61 6d 62 64 61 20 28 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(lambda.(c).................... |
| 185720 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 63 29 0a 20 20 20 | ...........(when.(fboundp.c).... |
| 185740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 | .............................(pu |
| 185760 | 73 68 20 63 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sh.c.result))).................. |
| 185780 | 20 20 20 20 20 20 20 20 20 20 20 32 29 0a 20 20 20 20 28 78 72 65 66 2d 72 65 73 75 6c 74 20 72 | ...........2).....(xref-result.r |
| 1857a0 | 65 73 75 6c 74 29 29 29 0a 0a 3b 3b 3b 3b 20 50 72 6f 66 69 6c 69 6e 67 0a 0a 3b 3b 20 50 65 72 | esult)))..;;;;.Profiling..;;.Per |
| 1857c0 | 2d 66 75 6e 63 74 69 6f 6e 20 70 72 6f 66 69 6c 69 6e 67 20 62 61 73 65 64 20 6f 6e 20 64 65 73 | -function.profiling.based.on.des |
| 1857e0 | 63 72 69 70 74 69 6f 6e 20 69 6e 0a 3b 3b 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 66 72 61 6e 7a | cription.in.;;..http://www.franz |
| 185800 | 2e 63 6f 6d 2f 73 75 70 70 6f 72 74 2f 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2f 38 2e 30 2f 5c | .com/support/documentation/8.0/\ |
| 185820 | 0a 3b 3b 20 20 64 6f 63 2f 72 75 6e 74 69 6d 65 2d 61 6e 61 6c 79 7a 65 72 2e 68 74 6d 23 64 61 | .;;..doc/runtime-analyzer.htm#da |
| 185840 | 74 61 2d 63 6f 6c 6c 65 63 74 69 6f 6e 2d 63 6f 6e 74 72 6f 6c 2d 32 0a 0a 28 64 65 66 76 61 72 | ta-collection-control-2..(defvar |
| 185860 | 20 2a 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a 20 28 29 29 0a 28 64 65 66 76 61 | .*profiled-functions*.()).(defva |
| 185880 | 72 20 2a 70 72 6f 66 69 6c 65 2d 64 65 70 74 68 2a 20 30 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 | r.*profile-depth*.0)..(defmacro. |
| 1858a0 | 77 69 74 68 2d 72 65 64 69 72 65 63 74 65 64 2d 79 2d 6f 72 2d 6e 2d 70 20 28 26 62 6f 64 79 20 | with-redirected-y-or-n-p.(&body. |
| 1858c0 | 62 6f 64 79 29 0a 20 20 3b 3b 20 49 66 20 74 68 65 20 70 72 6f 66 69 6c 65 72 20 69 73 20 72 65 | body)...;;.If.the.profiler.is.re |
| 1858e0 | 73 74 61 72 74 65 64 20 77 68 65 6e 20 74 68 65 20 64 61 74 61 20 66 72 6f 6d 20 74 68 65 20 70 | started.when.the.data.from.the.p |
| 185900 | 72 65 76 69 6f 75 73 0a 20 20 3b 3b 20 73 65 73 73 69 6f 6e 20 69 73 20 6e 6f 74 20 72 65 70 6f | revious...;;.session.is.not.repo |
| 185920 | 72 74 65 64 20 79 65 74 2c 20 74 68 65 20 75 73 65 72 20 69 73 20 77 61 72 6e 65 64 20 76 69 61 | rted.yet,.the.user.is.warned.via |
| 185940 | 20 59 2d 4f 52 2d 4e 2d 50 2e 0a 20 20 3b 3b 20 41 73 20 74 68 65 20 43 4c 3a 59 2d 4f 52 2d 4e | .Y-OR-N-P....;;.As.the.CL:Y-OR-N |
| 185960 | 2d 50 20 71 75 65 73 74 69 6f 6e 20 69 73 20 28 66 6f 72 20 73 6f 6d 65 20 72 65 61 73 6f 6e 29 | -P.question.is.(for.some.reason) |
| 185980 | 20 6e 6f 74 20 64 69 72 65 63 74 6c 79 0a 20 20 3b 3b 20 73 65 6e 74 20 74 6f 20 74 68 65 20 53 | .not.directly...;;.sent.to.the.S |
| 1859a0 | 6c 69 6d 65 20 75 73 65 72 2c 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 43 4c 3a 59 2d 4f 52 2d | lime.user,.the.function.CL:Y-OR- |
| 1859c0 | 4e 2d 50 20 69 73 20 74 65 6d 70 6f 72 61 72 69 6c 79 0a 20 20 3b 3b 20 6f 76 65 72 72 75 6c 65 | N-P.is.temporarily...;;.overrule |
| 1859e0 | 64 2e 0a 20 20 60 28 6c 65 74 2a 20 28 28 70 6b 67 20 20 20 20 20 20 20 28 66 69 6e 64 2d 70 61 | d....`(let*.((pkg.......(find-pa |
| 185a00 | 63 6b 61 67 65 20 3a 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | ckage.:common-lisp))...........( |
| 185a20 | 73 61 76 65 64 2d 70 64 6c 20 28 65 78 63 6c 3a 3a 70 61 63 6b 61 67 65 2d 64 65 66 69 6e 69 74 | saved-pdl.(excl::package-definit |
| 185a40 | 69 6f 6e 2d 6c 6f 63 6b 20 70 6b 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 64 2d | ion-lock.pkg))...........(saved- |
| 185a60 | 79 6e 70 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 63 6c 3a 79 2d 6f 72 2d 6e 2d | ynp.(symbol-function.'cl:y-or-n- |
| 185a80 | 70 29 29 29 0a 20 20 20 20 20 28 73 65 74 66 20 28 65 78 63 6c 3a 3a 70 61 63 6b 61 67 65 2d 64 | p)))......(setf.(excl::package-d |
| 185aa0 | 65 66 69 6e 69 74 69 6f 6e 2d 6c 6f 63 6b 20 70 6b 67 29 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 | efinition-lock.pkg).nil......... |
| 185ac0 | 20 20 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 63 6c 3a 79 2d 6f 72 2d 6e 2d 70 | ...(symbol-function.'cl:y-or-n-p |
| 185ae0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 28 72 | )............(symbol-function.(r |
| 185b00 | 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 22 73 77 61 6e 6b 3a 79 2d 6f 72 2d 6e 2d 70 2d | ead-from-string."swank:y-or-n-p- |
| 185b20 | 69 6e 2d 65 6d 61 63 73 22 29 29 29 0a 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 | in-emacs")))......(unwind-protec |
| 185b40 | 74 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 20 | t...........(progn.,@body)...... |
| 185b60 | 20 20 28 73 65 74 66 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 63 6c 3a 79 2d 6f | ..(setf.(symbol-function.'cl:y-o |
| 185b80 | 72 2d 6e 2d 70 29 20 20 20 20 20 20 73 61 76 65 64 2d 79 6e 70 0a 20 20 20 20 20 20 20 20 20 20 | r-n-p)......saved-ynp........... |
| 185ba0 | 20 20 20 28 65 78 63 6c 3a 3a 70 61 63 6b 61 67 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6c 6f 63 | ...(excl::package-definition-loc |
| 185bc0 | 6b 20 70 6b 67 29 20 73 61 76 65 64 2d 70 64 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 61 | k.pkg).saved-pdl))))..(defun.sta |
| 185be0 | 72 74 2d 61 63 6c 2d 70 72 6f 66 69 6c 65 72 20 28 29 0a 20 20 28 77 69 74 68 2d 72 65 64 69 72 | rt-acl-profiler.()...(with-redir |
| 185c00 | 65 63 74 65 64 2d 79 2d 6f 72 2d 6e 2d 70 0a 20 20 20 20 20 20 28 70 72 6f 66 3a 73 74 61 72 74 | ected-y-or-n-p.......(prof:start |
| 185c20 | 2d 70 72 6f 66 69 6c 65 72 20 3a 74 79 70 65 20 3a 74 69 6d 65 20 3a 63 6f 75 6e 74 20 74 0a 20 | -profiler.:type.:time.:count.t.. |
| 185c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 74 61 72 74 | ..........................:start |
| 185c60 | 2d 73 61 6d 70 6c 69 6e 67 2d 70 20 6e 69 6c 20 3a 76 65 72 62 6f 73 65 20 6e 69 6c 29 29 29 0a | -sampling-p.nil.:verbose.nil))). |
| 185c80 | 28 64 65 66 75 6e 20 61 63 6c 2d 70 72 6f 66 69 6c 65 72 2d 61 63 74 69 76 65 2d 70 20 28 29 0a | (defun.acl-profiler-active-p.(). |
| 185ca0 | 20 20 28 6e 6f 74 20 28 65 71 20 28 70 72 6f 66 3a 70 72 6f 66 69 6c 65 72 2d 73 74 61 74 75 73 | ..(not.(eq.(prof:profiler-status |
| 185cc0 | 20 3a 76 65 72 62 6f 73 65 20 6e 69 6c 29 20 3a 69 6e 61 63 74 69 76 65 29 29 29 0a 0a 28 64 65 | .:verbose.nil).:inactive)))..(de |
| 185ce0 | 66 75 6e 20 73 74 6f 70 2d 61 63 6c 2d 70 72 6f 66 69 6c 65 72 20 28 29 0a 20 20 28 70 72 6f 66 | fun.stop-acl-profiler.()...(prof |
| 185d00 | 3a 73 74 6f 70 2d 70 72 6f 66 69 6c 65 72 20 3a 76 65 72 62 6f 73 65 20 6e 69 6c 29 29 0a 0a 28 | :stop-profiler.:verbose.nil))..( |
| 185d20 | 65 78 63 6c 3a 64 65 66 2d 66 77 72 61 70 70 65 72 20 70 72 6f 66 69 6c 65 2d 66 77 72 61 70 70 | excl:def-fwrapper.profile-fwrapp |
| 185d40 | 65 72 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 3b 3b 20 45 6e 73 75 72 65 73 20 73 61 6d | er.(&rest.args)...;;.Ensures.sam |
| 185d60 | 70 6c 69 6e 67 20 69 73 20 64 6f 6e 65 20 64 75 72 69 6e 67 20 74 68 65 20 65 78 65 63 75 74 69 | pling.is.done.during.the.executi |
| 185d80 | 6f 6e 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 2c 0a 20 20 3b 3b 20 74 61 6b 69 6e 67 20 | on.of.the.function,...;;.taking. |
| 185da0 | 69 6e 74 6f 20 61 63 63 6f 75 6e 74 20 72 65 63 75 72 73 69 6f 6e 2e 0a 20 20 28 64 65 63 6c 61 | into.account.recursion....(decla |
| 185dc0 | 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 7a 65 72 6f | re.(ignore.args))...(cond.((zero |
| 185de0 | 70 20 2a 70 72 6f 66 69 6c 65 2d 64 65 70 74 68 2a 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 | p.*profile-depth*)..........(let |
| 185e00 | 20 28 28 2a 70 72 6f 66 69 6c 65 2d 64 65 70 74 68 2a 20 28 31 2b 20 2a 70 72 6f 66 69 6c 65 2d | .((*profile-depth*.(1+.*profile- |
| 185e20 | 64 65 70 74 68 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 66 3a 73 74 61 72 74 | depth*)))............(prof:start |
| 185e40 | 2d 73 61 6d 70 6c 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 | -sampling)............(unwind-pr |
| 185e60 | 6f 74 65 63 74 20 28 65 78 63 6c 3a 63 61 6c 6c 2d 6e 65 78 74 2d 66 77 72 61 70 70 65 72 29 0a | otect.(excl:call-next-fwrapper). |
| 185e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 66 3a 73 74 6f 70 2d 73 61 6d 70 6c 69 6e 67 | .............(prof:stop-sampling |
| 185ea0 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 65 78 63 6c 3a 63 | )))).........(t..........(excl:c |
| 185ec0 | 61 6c 6c 2d 6e 65 78 74 2d 66 77 72 61 70 70 65 72 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | all-next-fwrapper))))..(defimple |
| 185ee0 | 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 75 6e 6c | mentation.profile.(fname)...(unl |
| 185f00 | 65 73 73 20 28 61 63 6c 2d 70 72 6f 66 69 6c 65 72 2d 61 63 74 69 76 65 2d 70 29 0a 20 20 20 20 | ess.(acl-profiler-active-p)..... |
| 185f20 | 28 73 74 61 72 74 2d 61 63 6c 2d 70 72 6f 66 69 6c 65 72 29 29 0a 20 20 28 65 78 63 6c 3a 66 77 | (start-acl-profiler))...(excl:fw |
| 185f40 | 72 61 70 20 66 6e 61 6d 65 20 27 70 72 6f 66 69 6c 65 2d 66 77 72 61 70 70 65 72 20 27 70 72 6f | rap.fname.'profile-fwrapper.'pro |
| 185f60 | 66 69 6c 65 2d 66 77 72 61 70 70 65 72 29 0a 20 20 28 70 75 73 68 20 66 6e 61 6d 65 20 2a 70 72 | file-fwrapper)...(push.fname.*pr |
| 185f80 | 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | ofiled-functions*))..(defimpleme |
| 185fa0 | 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 20 28 29 0a 20 20 | ntation.profiled-functions.()... |
| 185fc0 | 2a 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | *profiled-functions*)..(defimple |
| 185fe0 | 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 65 | mentation.unprofile.(fname)...(e |
| 186000 | 78 63 6c 3a 66 75 6e 77 72 61 70 20 66 6e 61 6d 65 20 27 70 72 6f 66 69 6c 65 2d 66 77 72 61 70 | xcl:funwrap.fname.'profile-fwrap |
| 186020 | 70 65 72 29 0a 20 20 28 73 65 74 71 20 2a 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 | per)...(setq.*profiled-functions |
| 186040 | 2a 20 28 72 65 6d 6f 76 65 20 66 6e 61 6d 65 20 2a 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 | *.(remove.fname.*profiled-functi |
| 186060 | 6f 6e 73 2a 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 | ons*)))..(defimplementation.prof |
| 186080 | 69 6c 65 2d 72 65 70 6f 72 74 20 28 29 0a 20 20 28 70 72 6f 66 3a 73 68 6f 77 2d 66 6c 61 74 2d | ile-report.()...(prof:show-flat- |
| 1860a0 | 70 72 6f 66 69 6c 65 20 3a 76 65 72 62 6f 73 65 20 6e 69 6c 29 0a 20 20 28 77 68 65 6e 20 2a 70 | profile.:verbose.nil)...(when.*p |
| 1860c0 | 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a 0a 20 20 20 20 28 73 74 61 72 74 2d 61 63 | rofiled-functions*.....(start-ac |
| 1860e0 | 6c 2d 70 72 6f 66 69 6c 65 72 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | l-profiler)))..(defimplementatio |
| 186100 | 6e 20 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 20 28 29 0a 20 20 28 77 68 65 6e 20 28 61 63 6c 2d | n.profile-reset.()...(when.(acl- |
| 186120 | 70 72 6f 66 69 6c 65 72 2d 61 63 74 69 76 65 2d 70 29 0a 20 20 20 20 28 73 74 6f 70 2d 61 63 6c | profiler-active-p).....(stop-acl |
| 186140 | 2d 70 72 6f 66 69 6c 65 72 29 0a 20 20 20 20 28 73 74 61 72 74 2d 61 63 6c 2d 70 72 6f 66 69 6c | -profiler).....(start-acl-profil |
| 186160 | 65 72 29 29 0a 20 20 22 52 65 73 65 74 20 70 72 6f 66 69 6c 69 6e 67 20 63 6f 75 6e 74 65 72 73 | er))..."Reset.profiling.counters |
| 186180 | 2e 22 29 0a 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 74 69 6e 67 0a 0a 28 65 78 63 6c 3a 77 69 74 68 | .")..;;;;.Inspecting..(excl:with |
| 1861a0 | 6f 75 74 2d 72 65 64 65 66 69 6e 69 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 73 0a 28 64 65 66 6d 65 | out-redefinition-warnings.(defme |
| 1861c0 | 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 74 29 29 0a 20 20 28 61 6c | thod.emacs-inspect.((o.t))...(al |
| 1861e0 | 6c 65 67 72 6f 2d 69 6e 73 70 65 63 74 20 6f 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 | legro-inspect.o)))..(defmethod.e |
| 186200 | 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 61 | macs-inspect.((o.function))...(a |
| 186220 | 6c 6c 65 67 72 6f 2d 69 6e 73 70 65 63 74 20 6f 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 | llegro-inspect.o))..(defmethod.e |
| 186240 | 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 73 74 61 6e 64 61 72 64 2d 6f 62 6a 65 63 74 | macs-inspect.((o.standard-object |
| 186260 | 29 29 0a 20 20 28 61 6c 6c 65 67 72 6f 2d 69 6e 73 70 65 63 74 20 6f 29 29 0a 0a 28 64 65 66 75 | ))...(allegro-inspect.o))..(defu |
| 186280 | 6e 20 61 6c 6c 65 67 72 6f 2d 69 6e 73 70 65 63 74 20 28 6f 29 0a 20 20 28 6c 6f 6f 70 20 66 6f | n.allegro-inspect.(o)...(loop.fo |
| 1862a0 | 72 20 28 64 20 64 64 29 20 6f 6e 20 28 69 6e 73 70 65 63 74 3a 3a 69 6e 73 70 65 63 74 2d 63 74 | r.(d.dd).on.(inspect::inspect-ct |
| 1862c0 | 6c 20 6f 29 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 66 72 6f 62 2d 61 6c 6c 65 67 72 | l.o).........append.(frob-allegr |
| 1862e0 | 6f 2d 66 69 65 6c 64 2d 64 65 66 20 6f 20 64 29 0a 20 20 20 20 20 20 20 20 75 6e 74 69 6c 20 28 | o-field-def.o.d).........until.( |
| 186300 | 65 71 20 64 20 64 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 6f 62 2d 61 6c 6c 65 67 72 6f 2d | eq.d.dd)))..(defun.frob-allegro- |
| 186320 | 66 69 65 6c 64 2d 64 65 66 20 28 6f 62 6a 65 63 74 20 64 65 66 29 0a 20 20 28 77 69 74 68 2d 73 | field-def.(object.def)...(with-s |
| 186340 | 74 72 75 63 74 20 28 69 6e 73 70 65 63 74 3a 3a 66 69 65 6c 64 2d 64 65 66 2d 20 6e 61 6d 65 20 | truct.(inspect::field-def-.name. |
| 186360 | 74 79 70 65 20 61 63 63 65 73 73 29 20 64 65 66 0a 20 20 20 20 28 65 63 61 73 65 20 74 79 70 65 | type.access).def.....(ecase.type |
| 186380 | 0a 20 20 20 20 20 20 28 28 3a 75 6e 73 69 67 6e 65 64 2d 77 6f 72 64 20 3a 75 6e 73 69 67 6e 65 | .......((:unsigned-word.:unsigne |
| 1863a0 | 64 2d 62 79 74 65 20 3a 75 6e 73 69 67 6e 65 64 2d 6e 61 74 75 72 61 6c 0a 20 20 20 20 20 20 20 | d-byte.:unsigned-natural........ |
| 1863c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 75 6e 73 69 67 6e 65 64 2d 6c 6f 6e 67 20 3a | ................:unsigned-long.: |
| 1863e0 | 75 6e 73 69 67 6e 65 64 2d 68 61 6c 66 2d 6c 6f 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | unsigned-half-long.............. |
| 186400 | 20 20 20 20 20 20 20 20 20 20 3a 75 6e 73 69 67 6e 65 64 2d 33 62 79 74 65 20 3a 75 6e 73 69 67 | ..........:unsigned-3byte.:unsig |
| 186420 | 6e 65 64 2d 6c 6f 6e 67 33 32 29 0a 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d | ned-long32)........(label-value- |
| 186440 | 6c 69 6e 65 20 6e 61 6d 65 20 28 69 6e 73 70 65 63 74 3a 3a 63 6f 6d 70 6f 6e 65 6e 74 2d 72 65 | line.name.(inspect::component-re |
| 186460 | 66 2d 76 20 6f 62 6a 65 63 74 20 61 63 63 65 73 73 20 74 79 70 65 29 29 29 0a 20 20 20 20 20 20 | f-v.object.access.type)))....... |
| 186480 | 28 28 3a 6c 69 73 70 20 3a 76 61 6c 75 65 20 3a 66 75 6e 63 29 0a 20 20 20 20 20 20 20 28 6c 61 | ((:lisp.:value.:func)........(la |
| 1864a0 | 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 6e 61 6d 65 20 28 69 6e 73 70 65 63 74 3a 3a 63 6f | bel-value-line.name.(inspect::co |
| 1864c0 | 6d 70 6f 6e 65 6e 74 2d 72 65 66 20 6f 62 6a 65 63 74 20 61 63 63 65 73 73 29 29 29 0a 20 20 20 | mponent-ref.object.access))).... |
| 1864e0 | 20 20 20 28 3a 69 6e 64 69 72 65 63 74 0a 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 | ...(:indirect........(destructur |
| 186500 | 69 6e 67 2d 62 69 6e 64 20 28 70 72 65 66 69 78 20 63 6f 75 6e 74 20 72 65 66 20 73 65 74 29 20 | ing-bind.(prefix.count.ref.set). |
| 186520 | 61 63 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 | access..........(declare.(ignore |
| 186540 | 20 73 65 74 20 70 72 65 66 69 78 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 | .set.prefix))..........(loop.for |
| 186560 | 20 69 20 62 65 6c 6f 77 20 28 66 75 6e 63 61 6c 6c 20 63 6f 75 6e 74 20 6f 62 6a 65 63 74 29 0a | .i.below.(funcall.count.object). |
| 186580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c | ...............append.(label-val |
| 1865a0 | 75 65 2d 6c 69 6e 65 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 2d 7e 44 22 20 6e 61 6d 65 | ue-line.(format.nil."~A-~D".name |
| 1865c0 | 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .i)............................. |
| 1865e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 72 65 66 20 6f 62 6a 65 63 74 20 | ............(funcall.ref.object. |
| 186600 | 69 29 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 0a 0a | i))))))))..;;;;.Multithreading.. |
| 186620 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 69 74 69 61 6c 69 7a 65 2d 6d 75 | (defimplementation.initialize-mu |
| 186640 | 6c 74 69 70 72 6f 63 65 73 73 69 6e 67 20 28 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 0a 20 20 28 | ltiprocessing.(continuation)...( |
| 186660 | 6d 70 3a 73 74 61 72 74 2d 73 63 68 65 64 75 6c 65 72 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 63 | mp:start-scheduler)...(funcall.c |
| 186680 | 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | ontinuation))..(defimplementatio |
| 1866a0 | 6e 20 73 70 61 77 6e 20 28 66 6e 20 26 6b 65 79 20 6e 61 6d 65 29 0a 20 20 28 6d 70 3a 70 72 6f | n.spawn.(fn.&key.name)...(mp:pro |
| 1866c0 | 63 65 73 73 2d 72 75 6e 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 66 6e 29 29 0a 0a 28 64 65 | cess-run-function.name.fn))..(de |
| 1866e0 | 66 76 61 72 20 2a 69 64 2d 6c 6f 63 6b 2a 20 28 6d 70 3a 6d 61 6b 65 2d 70 72 6f 63 65 73 73 2d | fvar.*id-lock*.(mp:make-process- |
| 186700 | 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 69 64 20 6c 6f 63 6b 22 29 29 0a 28 64 65 66 76 61 72 20 2a | lock.:name."id.lock")).(defvar.* |
| 186720 | 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2a 20 30 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | thread-id-counter*.0)..(defimple |
| 186740 | 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 20 28 74 68 72 65 61 64 29 0a 20 20 28 | mentation.thread-id.(thread)...( |
| 186760 | 6d 70 3a 77 69 74 68 2d 70 72 6f 63 65 73 73 2d 6c 6f 63 6b 20 28 2a 69 64 2d 6c 6f 63 6b 2a 29 | mp:with-process-lock.(*id-lock*) |
| 186780 | 0a 20 20 20 20 28 6f 72 20 28 67 65 74 66 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 70 72 6f 70 65 | .....(or.(getf.(mp:process-prope |
| 1867a0 | 72 74 79 2d 6c 69 73 74 20 74 68 72 65 61 64 29 20 27 69 64 29 0a 20 20 20 20 20 20 20 20 28 73 | rty-list.thread).'id).........(s |
| 1867c0 | 65 74 66 20 28 67 65 74 66 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 70 72 6f 70 65 72 74 79 2d 6c | etf.(getf.(mp:process-property-l |
| 1867e0 | 69 73 74 20 74 68 72 65 61 64 29 20 27 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ist.thread).'id)...............( |
| 186800 | 69 6e 63 66 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2a 29 29 29 29 29 0a 0a 28 | incf.*thread-id-counter*)))))..( |
| 186820 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 74 68 72 65 61 64 20 28 69 | defimplementation.find-thread.(i |
| 186840 | 64 29 0a 20 20 28 66 69 6e 64 20 69 64 20 6d 70 3a 2a 61 6c 6c 2d 70 72 6f 63 65 73 73 65 73 2a | d)...(find.id.mp:*all-processes* |
| 186860 | 0a 20 20 20 20 20 20 20 20 3a 6b 65 79 20 28 6c 61 6d 62 64 61 20 28 70 29 20 28 67 65 74 66 20 | .........:key.(lambda.(p).(getf. |
| 186880 | 28 6d 70 3a 70 72 6f 63 65 73 73 2d 70 72 6f 70 65 72 74 79 2d 6c 69 73 74 20 70 29 20 27 69 64 | (mp:process-property-list.p).'id |
| 1868a0 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d | ))))..(defimplementation.thread- |
| 1868c0 | 6e 61 6d 65 20 28 74 68 72 65 61 64 29 0a 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 6e 61 6d 65 | name.(thread)...(mp:process-name |
| 1868e0 | 20 74 68 72 65 61 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 | .thread))..(defimplementation.th |
| 186900 | 72 65 61 64 2d 73 74 61 74 75 73 20 28 74 68 72 65 61 64 29 0a 20 20 28 70 72 69 6e 63 2d 74 6f | read-status.(thread)...(princ-to |
| 186920 | 2d 73 74 72 69 6e 67 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 77 68 6f 73 74 61 74 65 20 74 68 72 | -string.(mp:process-whostate.thr |
| 186940 | 65 61 64 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 | ead)))..(defimplementation.threa |
| 186960 | 64 2d 61 74 74 72 69 62 75 74 65 73 20 28 74 68 72 65 61 64 29 0a 20 20 28 6c 69 73 74 20 3a 70 | d-attributes.(thread)...(list.:p |
| 186980 | 72 69 6f 72 69 74 79 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 70 72 69 6f 72 69 74 79 20 74 68 72 | riority.(mp:process-priority.thr |
| 1869a0 | 65 61 64 29 0a 20 20 20 20 20 20 20 20 3a 74 69 6d 65 73 2d 72 65 73 75 6d 65 64 20 28 6d 70 3a | ead).........:times-resumed.(mp: |
| 1869c0 | 70 72 6f 63 65 73 73 2d 74 69 6d 65 73 2d 72 65 73 75 6d 65 64 20 74 68 72 65 61 64 29 29 29 0a | process-times-resumed.thread))). |
| 1869e0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 6c 6f 63 6b 20 28 26 | .(defimplementation.make-lock.(& |
| 186a00 | 6b 65 79 20 6e 61 6d 65 29 0a 20 20 28 6d 70 3a 6d 61 6b 65 2d 70 72 6f 63 65 73 73 2d 6c 6f 63 | key.name)...(mp:make-process-loc |
| 186a20 | 6b 20 3a 6e 61 6d 65 20 6e 61 6d 65 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | k.:name.name))..(defimplementati |
| 186a40 | 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 6c 6f 63 6b 20 66 75 6e | on.call-with-lock-held.(lock.fun |
| 186a60 | 63 74 69 6f 6e 29 0a 20 20 28 6d 70 3a 77 69 74 68 2d 70 72 6f 63 65 73 73 2d 6c 6f 63 6b 20 28 | ction)...(mp:with-process-lock.( |
| 186a80 | 6c 6f 63 6b 29 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 | lock).(funcall.function)))..(def |
| 186aa0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 | implementation.current-thread.() |
| 186ac0 | 0a 20 20 6d 70 3a 2a 63 75 72 72 65 6e 74 2d 70 72 6f 63 65 73 73 2a 29 0a 0a 28 64 65 66 69 6d | ...mp:*current-process*)..(defim |
| 186ae0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 28 63 | plementation.all-threads.()...(c |
| 186b00 | 6f 70 79 2d 6c 69 73 74 20 6d 70 3a 2a 61 6c 6c 2d 70 72 6f 63 65 73 73 65 73 2a 29 29 0a 0a 28 | opy-list.mp:*all-processes*))..( |
| 186b20 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 | defimplementation.interrupt-thre |
| 186b40 | 61 64 20 28 74 68 72 65 61 64 20 66 6e 29 0a 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 69 6e 74 | ad.(thread.fn)...(mp:process-int |
| 186b60 | 65 72 72 75 70 74 20 74 68 72 65 61 64 20 66 6e 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | errupt.thread.fn))..(defimplemen |
| 186b80 | 74 61 74 69 6f 6e 20 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 28 6d | tation.kill-thread.(thread)...(m |
| 186ba0 | 70 3a 70 72 6f 63 65 73 73 2d 6b 69 6c 6c 20 74 68 72 65 61 64 29 29 0a 0a 28 64 65 66 76 61 72 | p:process-kill.thread))..(defvar |
| 186bc0 | 20 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 20 28 6d 70 3a 6d 61 6b 65 2d 70 72 6f 63 65 73 73 | .*mailbox-lock*.(mp:make-process |
| 186be0 | 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 6d 61 69 6c 62 6f 78 20 6c 6f 63 6b 22 29 29 0a 0a 28 64 | -lock.:name."mailbox.lock"))..(d |
| 186c00 | 65 66 73 74 72 75 63 74 20 28 6d 61 69 6c 62 6f 78 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 6d 61 | efstruct.(mailbox.(:conc-name.ma |
| 186c20 | 69 6c 62 6f 78 2e 29 29 0a 20 20 28 6c 6f 63 6b 20 28 6d 70 3a 6d 61 6b 65 2d 70 72 6f 63 65 73 | ilbox.))...(lock.(mp:make-proces |
| 186c40 | 73 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 70 72 6f 63 65 73 73 20 6d 61 69 6c 62 6f 78 22 29 29 | s-lock.:name."process.mailbox")) |
| 186c60 | 0a 20 20 28 71 75 65 75 65 20 27 28 29 20 3a 74 79 70 65 20 6c 69 73 74 29 0a 20 20 28 67 61 74 | ...(queue.'().:type.list)...(gat |
| 186c80 | 65 20 28 6d 70 3a 6d 61 6b 65 2d 67 61 74 65 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d | e.(mp:make-gate.nil)))..(defun.m |
| 186ca0 | 61 69 6c 62 6f 78 20 28 74 68 72 65 61 64 29 0a 20 20 22 52 65 74 75 72 6e 20 54 48 52 45 41 44 | ailbox.(thread)..."Return.THREAD |
| 186cc0 | 27 73 20 6d 61 69 6c 62 6f 78 2e 22 0a 20 20 28 6d 70 3a 77 69 74 68 2d 70 72 6f 63 65 73 73 2d | 's.mailbox."...(mp:with-process- |
| 186ce0 | 6c 6f 63 6b 20 28 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 28 6f 72 20 28 67 | lock.(*mailbox-lock*).....(or.(g |
| 186d00 | 65 74 66 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 70 72 6f 70 65 72 74 79 2d 6c 69 73 74 20 74 68 | etf.(mp:process-property-list.th |
| 186d20 | 72 65 61 64 29 20 27 6d 61 69 6c 62 6f 78 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 | read).'mailbox).........(setf.(g |
| 186d40 | 65 74 66 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 70 72 6f 70 65 72 74 79 2d 6c 69 73 74 20 74 68 | etf.(mp:process-property-list.th |
| 186d60 | 72 65 61 64 29 20 27 6d 61 69 6c 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | read).'mailbox)...............(m |
| 186d80 | 61 6b 65 2d 6d 61 69 6c 62 6f 78 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | ake-mailbox)))))..(defimplementa |
| 186da0 | 74 69 6f 6e 20 73 65 6e 64 20 28 74 68 72 65 61 64 20 6d 65 73 73 61 67 65 29 0a 20 20 28 6c 65 | tion.send.(thread.message)...(le |
| 186dc0 | 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 | t*.((mbox.(mailbox.thread))).... |
| 186de0 | 20 28 6d 70 3a 77 69 74 68 2d 70 72 6f 63 65 73 73 2d 6c 6f 63 6b 20 28 28 6d 61 69 6c 62 6f 78 | .(mp:with-process-lock.((mailbox |
| 186e00 | 2e 6c 6f 63 6b 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f | .lock.mbox)).......(setf.(mailbo |
| 186e20 | 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 63 6f 6e 63 | x.queue.mbox).............(nconc |
| 186e40 | 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6c 69 73 74 20 6d 65 73 73 | .(mailbox.queue.mbox).(list.mess |
| 186e60 | 61 67 65 29 29 29 0a 20 20 20 20 20 20 28 6d 70 3a 6f 70 65 6e 2d 67 61 74 65 20 28 6d 61 69 6c | age))).......(mp:open-gate.(mail |
| 186e80 | 62 6f 78 2e 67 61 74 65 20 6d 62 6f 78 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | box.gate.mbox)))))..(defimplemen |
| 186ea0 | 74 61 74 69 6f 6e 20 77 61 6b 65 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 28 6c | tation.wake-thread.(thread)...(l |
| 186ec0 | 65 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 74 68 72 65 61 64 29 29 29 0a 20 20 | et*.((mbox.(mailbox.thread)))... |
| 186ee0 | 20 20 28 6d 70 3a 6f 70 65 6e 2d 67 61 74 65 20 28 6d 61 69 6c 62 6f 78 2e 67 61 74 65 20 6d 62 | ..(mp:open-gate.(mailbox.gate.mb |
| 186f00 | 6f 78 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 69 | ox))))..(defimplementation.recei |
| 186f20 | 76 65 2d 69 66 20 28 74 65 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 | ve-if.(test.&optional.timeout).. |
| 186f40 | 20 28 6c 65 74 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 6d 70 3a 2a 63 75 72 72 65 6e | .(let.((mbox.(mailbox.mp:*curren |
| 186f60 | 74 2d 70 72 6f 63 65 73 73 2a 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 6f 70 65 6e 2d 6d | t-process*))).....(flet.((open-m |
| 186f80 | 61 69 6c 62 6f 78 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 69 73 20 6f | ailbox.()..............;;.this.o |
| 186fa0 | 70 65 6e 73 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 61 6e 64 20 72 65 74 75 72 6e 73 20 69 66 20 | pens.the.mailbox.and.returns.if. |
| 186fc0 | 68 61 73 20 74 68 65 20 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | has.the.message..............;;. |
| 186fe0 | 77 65 20 61 72 65 20 65 78 70 65 63 74 69 6e 67 2e 20 20 42 75 74 20 66 69 72 73 74 2c 20 63 68 | we.are.expecting...But.first,.ch |
| 187000 | 65 63 6b 20 66 6f 72 20 69 6e 74 65 72 72 75 70 74 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | eck.for.interrupts.............. |
| 187020 | 20 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 20 20 | .(check-slime-interrupts)....... |
| 187040 | 20 20 20 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 70 72 6f 63 65 73 73 2d 6c 6f 63 6b 20 28 28 6d | .......(mp:with-process-lock.((m |
| 187060 | 61 69 6c 62 6f 78 2e 6c 6f 63 6b 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ailbox.lock.mbox)).............. |
| 187080 | 20 20 28 6c 65 74 2a 20 28 28 71 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 | ..(let*.((q.(mailbox.queue.mbox) |
| 1870a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 20 28 6d | ).......................(tail.(m |
| 1870c0 | 65 6d 62 65 72 2d 69 66 20 74 65 73 74 20 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ember-if.test.q))).............. |
| 1870e0 | 20 20 20 20 28 77 68 65 6e 20 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(when.tail.................. |
| 187100 | 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6e 63 | ..(setf.(mailbox.queue.mbox).(nc |
| 187120 | 6f 6e 63 20 28 6c 64 69 66 66 20 71 20 74 61 69 6c 29 20 28 63 64 72 20 74 61 69 6c 29 29 29 0a | onc.(ldiff.q.tail).(cdr.tail))). |
| 187140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 | ...................(return-from. |
| 187160 | 72 65 63 65 69 76 65 2d 69 66 20 28 63 61 72 20 74 61 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 | receive-if.(car.tail)))......... |
| 187180 | 20 20 20 20 20 20 20 20 20 3b 3b 20 2e 2e 2e 69 66 20 69 74 20 64 6f 65 73 6e 27 74 2c 20 77 65 | .........;;....if.it.doesn't,.we |
| 1871a0 | 20 63 6c 6f 73 65 20 74 68 65 20 67 61 74 65 20 28 65 76 65 6e 20 69 66 20 69 74 0a 20 20 20 20 | .close.the.gate.(even.if.it..... |
| 1871c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 61 73 20 61 6c 72 65 61 64 79 20 63 6c 6f 73 | .............;;.was.already.clos |
| 1871e0 | 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 70 3a 63 6c 6f 73 65 2d 67 | ed)..................(mp:close-g |
| 187200 | 61 74 65 20 28 6d 61 69 6c 62 6f 78 2e 67 61 74 65 20 6d 62 6f 78 29 29 29 29 29 29 0a 20 20 20 | ate.(mailbox.gate.mbox)))))).... |
| 187220 | 20 20 20 28 63 6f 6e 64 20 28 74 69 6d 65 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | ...(cond.(timeout..............; |
| 187240 | 3b 20 6f 70 65 6e 20 74 68 65 20 6d 61 69 6c 62 6f 78 20 61 6e 64 20 72 65 74 75 72 6e 20 61 73 | ;.open.the.mailbox.and.return.as |
| 187260 | 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 70 65 6e 2d 6d 61 69 6c 62 6f 78 29 0a 20 | ap..............(open-mailbox).. |
| 187280 | 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 72 65 63 65 69 76 65 | ............(return-from.receive |
| 1872a0 | 2d 69 66 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -if.(values.nil.t)))............ |
| 1872c0 | 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 61 69 74 20 75 6e 74 69 6c 20 67 | .(t..............;;.wait.until.g |
| 1872e0 | 61 74 65 20 6f 70 65 6e 2c 20 74 68 65 6e 20 6f 70 65 6e 20 6d 61 69 6c 62 6f 78 2e 20 20 49 66 | ate.open,.then.open.mailbox...If |
| 187300 | 20 74 68 65 72 65 27 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6e 6f 20 6d 65 73 73 | .there's..............;;.no.mess |
| 187320 | 61 67 65 20 74 68 65 72 65 2c 20 72 65 70 65 61 74 20 66 6f 72 65 76 65 72 2e 0a 20 20 20 20 20 | age.there,.repeat.forever....... |
| 187340 | 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 70 | ........(loop................(mp |
| 187360 | 3a 70 72 6f 63 65 73 73 2d 77 61 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 | :process-wait................."r |
| 187380 | 65 63 65 69 76 65 2d 69 66 20 28 77 61 69 74 69 6e 67 20 6f 6e 20 67 61 74 65 29 22 0a 20 20 20 | eceive-if.(waiting.on.gate)".... |
| 1873a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 6d 70 3a 67 61 74 65 2d 6f 70 65 6e 2d 70 20 28 6d | .............#'mp:gate-open-p.(m |
| 1873c0 | 61 69 6c 62 6f 78 2e 67 61 74 65 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ailbox.gate.mbox)).............. |
| 1873e0 | 20 20 28 6f 70 65 6e 2d 6d 61 69 6c 62 6f 78 29 29 29 29 29 29 29 0a 0a 28 6c 65 74 20 28 28 61 | ..(open-mailbox)))))))..(let.((a |
| 187400 | 6c 69 73 74 20 27 28 29 29 0a 20 20 20 20 20 20 28 6c 6f 63 6b 20 28 6d 70 3a 6d 61 6b 65 2d 70 | list.'()).......(lock.(mp:make-p |
| 187420 | 72 6f 63 65 73 73 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 72 65 67 69 73 74 65 72 2d 74 68 72 65 | rocess-lock.:name."register-thre |
| 187440 | 61 64 22 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 67 | ad")))....(defimplementation.reg |
| 187460 | 69 73 74 65 72 2d 74 68 72 65 61 64 20 28 6e 61 6d 65 20 74 68 72 65 61 64 29 0a 20 20 20 20 28 | ister-thread.(name.thread).....( |
| 187480 | 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 29 29 0a 20 20 20 20 | declare.(type.symbol.name))..... |
| 1874a0 | 28 6d 70 3a 77 69 74 68 2d 70 72 6f 63 65 73 73 2d 6c 6f 63 6b 20 28 6c 6f 63 6b 29 0a 20 20 20 | (mp:with-process-lock.(lock).... |
| 1874c0 | 20 20 20 28 65 74 79 70 65 63 61 73 65 20 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 28 6e 75 | ...(etypecase.thread.........(nu |
| 1874e0 | 6c 6c 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 61 6c 69 73 74 20 28 64 65 6c 65 74 65 20 | ll..........(setf.alist.(delete. |
| 187500 | 6e 61 6d 65 20 61 6c 69 73 74 20 3a 6b 65 79 20 23 27 63 61 72 29 29 29 0a 20 20 20 20 20 20 20 | name.alist.:key.#'car)))........ |
| 187520 | 20 28 6d 70 3a 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f | .(mp:process..........(let.((pro |
| 187540 | 62 65 20 28 61 73 73 6f 63 20 6e 61 6d 65 20 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 | be.(assoc.name.alist)))......... |
| 187560 | 20 20 20 28 63 6f 6e 64 20 28 70 72 6f 62 65 20 28 73 65 74 66 20 28 63 64 72 20 70 72 6f 62 65 | ...(cond.(probe.(setf.(cdr.probe |
| 187580 | 29 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 | ).thread))..................(t.( |
| 1875a0 | 73 65 74 66 20 61 6c 69 73 74 20 28 61 63 6f 6e 73 20 6e 61 6d 65 20 74 68 72 65 61 64 20 61 6c | setf.alist.(acons.name.thread.al |
| 1875c0 | 69 73 74 29 29 29 29 29 29 29 29 0a 20 20 20 20 6e 69 6c 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c | ist)))))))).....nil)....(defimpl |
| 1875e0 | 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 72 65 67 69 73 74 65 72 65 64 20 28 6e 61 6d 65 | ementation.find-registered.(name |
| 187600 | 29 0a 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 70 72 6f 63 65 73 73 2d 6c 6f 63 6b 20 28 6c 6f 63 | ).....(mp:with-process-lock.(loc |
| 187620 | 6b 29 0a 20 20 20 20 20 20 28 63 64 72 20 28 61 73 73 6f 63 20 6e 61 6d 65 20 61 6c 69 73 74 29 | k).......(cdr.(assoc.name.alist) |
| 187640 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 | ))))..(defimplementation.set-def |
| 187660 | 61 75 6c 74 2d 69 6e 69 74 69 61 6c 2d 62 69 6e 64 69 6e 67 20 28 76 61 72 20 66 6f 72 6d 29 0a | ault-initial-binding.(var.form). |
| 187680 | 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 76 61 72 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 | ..(push.(cons.var.form)......... |
| 1876a0 | 23 2b 28 76 65 72 73 69 6f 6e 3e 3d 20 39 20 30 29 0a 20 20 20 20 20 20 20 20 65 78 63 6c 3a 2a | #+(version>=.9.0).........excl:* |
| 1876c0 | 72 65 71 75 69 72 65 64 2d 74 68 72 65 61 64 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 20 20 20 20 | required-thread-bindings*....... |
| 1876e0 | 20 20 23 2d 28 76 65 72 73 69 6f 6e 3e 3d 20 39 20 30 29 0a 20 20 20 20 20 20 20 20 65 78 63 6c | ..#-(version>=.9.0).........excl |
| 187700 | 3a 3a 72 65 71 75 69 72 65 64 2d 74 68 72 65 61 64 2d 62 69 6e 64 69 6e 67 73 29 29 0a 0a 28 64 | ::required-thread-bindings))..(d |
| 187720 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 71 75 69 74 2d 6c 69 73 70 20 28 29 0a 20 20 | efimplementation.quit-lisp.()... |
| 187740 | 28 65 78 63 6c 3a 65 78 69 74 20 30 20 3a 71 75 69 65 74 20 74 29 29 0a 0a 0c 0a 3b 3b 54 72 61 | (excl:exit.0.:quiet.t))....;;Tra |
| 187760 | 63 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 0a 3b 3b 49 6e 20 41 6c 6c 65 67 72 6f 20 | ce.implementations.;;In.Allegro. |
| 187780 | 37 2e 30 2c 20 77 65 20 68 61 76 65 3a 0a 3b 3b 20 28 74 72 61 63 65 20 3c 6e 61 6d 65 3e 29 0a | 7.0,.we.have:.;;.(trace.<name>). |
| 1877a0 | 3b 3b 20 28 74 72 61 63 65 20 28 28 6d 65 74 68 6f 64 20 3c 6e 61 6d 65 3e 20 3c 71 75 61 6c 69 | ;;.(trace.((method.<name>.<quali |
| 1877c0 | 66 69 65 72 3e 3f 20 28 3c 73 70 65 63 69 61 6c 69 7a 65 72 3e 2b 29 29 29 29 0a 3b 3b 20 28 74 | fier>?.(<specializer>+)))).;;.(t |
| 1877e0 | 72 61 63 65 20 28 28 6c 61 62 65 6c 73 20 3c 6e 61 6d 65 3e 20 3c 6c 61 62 65 6c 2d 6e 61 6d 65 | race.((labels.<name>.<label-name |
| 187800 | 3e 29 29 29 0a 3b 3b 20 28 74 72 61 63 65 20 28 28 6c 61 62 65 6c 73 20 28 6d 65 74 68 6f 64 20 | >))).;;.(trace.((labels.(method. |
| 187820 | 3c 6e 61 6d 65 3e 20 28 3c 73 70 65 63 69 61 6c 69 7a 65 72 3e 2b 29 29 20 3c 6c 61 62 65 6c 2d | <name>.(<specializer>+)).<label- |
| 187840 | 6e 61 6d 65 3e 29 29 29 0a 3b 3b 20 3c 6e 61 6d 65 3e 20 63 61 6e 20 62 65 20 61 20 6e 6f 72 6d | name>))).;;.<name>.can.be.a.norm |
| 187860 | 61 6c 20 6e 61 6d 65 20 6f 72 20 61 20 28 73 65 74 66 20 6e 61 6d 65 29 0a 0a 28 64 65 66 69 6d | al.name.or.a.(setf.name)..(defim |
| 187880 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 28 73 70 65 63 29 | plementation.toggle-trace.(spec) |
| 1878a0 | 0a 20 20 28 65 63 61 73 65 20 28 63 61 72 20 73 70 65 63 29 0a 20 20 20 20 28 28 73 65 74 66 29 | ...(ecase.(car.spec).....((setf) |
| 1878c0 | 0a 20 20 20 20 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 73 70 65 63 29 29 0a 20 | ......(toggle-trace-aux.spec)).. |
| 1878e0 | 20 20 20 28 3a 64 65 66 67 65 6e 65 72 69 63 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 67 65 | ...(:defgeneric.(toggle-trace-ge |
| 187900 | 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 73 20 28 73 65 63 6f 6e 64 20 73 | neric-function-methods.(second.s |
| 187920 | 70 65 63 29 29 29 0a 20 20 20 20 28 28 73 65 74 66 20 3a 64 65 66 6d 65 74 68 6f 64 20 3a 6c 61 | pec))).....((setf.:defmethod.:la |
| 187940 | 62 65 6c 73 20 3a 66 6c 65 74 29 0a 20 20 20 20 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 | bels.:flet)......(toggle-trace-a |
| 187960 | 75 78 20 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 2d 66 6f 72 2d 61 6c 6c 65 67 72 6f 20 73 70 | ux.(process-fspec-for-allegro.sp |
| 187980 | 65 63 29 29 29 0a 20 20 20 20 28 3a 63 61 6c 6c 0a 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 | ec))).....(:call......(destructu |
| 1879a0 | 72 69 6e 67 2d 62 69 6e 64 20 28 63 61 6c 6c 65 72 20 63 61 6c 6c 65 65 29 20 28 63 64 72 20 73 | ring-bind.(caller.callee).(cdr.s |
| 1879c0 | 70 65 63 29 0a 20 20 20 20 20 20 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 63 61 | pec)........(toggle-trace-aux.ca |
| 1879e0 | 6c 6c 65 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 | llee..........................:i |
| 187a00 | 6e 73 69 64 65 20 28 6c 69 73 74 20 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 2d 66 6f 72 2d 61 | nside.(list.(process-fspec-for-a |
| 187a20 | 6c 6c 65 67 72 6f 20 63 61 6c 6c 65 72 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 61 | llegro.caller)))))))..(defun.tra |
| 187a40 | 63 65 64 70 20 28 66 73 70 65 63 29 0a 20 20 28 6d 65 6d 62 65 72 20 66 73 70 65 63 20 28 65 76 | cedp.(fspec)...(member.fspec.(ev |
| 187a60 | 61 6c 20 27 28 74 72 61 63 65 29 29 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 0a 28 64 | al.'(trace)).:test.#'equal))..(d |
| 187a80 | 65 66 75 6e 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 28 66 73 70 65 63 20 26 72 65 | efun.toggle-trace-aux.(fspec.&re |
| 187aa0 | 73 74 20 61 72 67 73 29 0a 20 20 28 63 6f 6e 64 20 28 28 74 72 61 63 65 64 70 20 66 73 70 65 63 | st.args)...(cond.((tracedp.fspec |
| 187ac0 | 29 0a 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 60 28 75 6e 74 72 61 63 65 20 2c 66 73 70 65 | )..........(eval.`(untrace.,fspe |
| 187ae0 | 63 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 | c))..........(format.nil."~S.is. |
| 187b00 | 6e 6f 77 20 75 6e 74 72 61 63 65 64 2e 22 20 66 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 28 | now.untraced.".fspec)).........( |
| 187b20 | 74 0a 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 60 28 74 72 61 63 65 20 28 2c 66 73 70 65 63 | t..........(eval.`(trace.(,fspec |
| 187b40 | 20 2c 40 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 | .,@args)))..........(format.nil. |
| 187b60 | 22 7e 53 20 69 73 20 6e 6f 77 20 74 72 61 63 65 64 2e 22 20 66 73 70 65 63 29 29 29 29 0a 0a 28 | "~S.is.now.traced.".fspec))))..( |
| 187b80 | 64 65 66 75 6e 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 | defun.toggle-trace-generic-funct |
| 187ba0 | 69 6f 6e 2d 6d 65 74 68 6f 64 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 6d 65 74 68 | ion-methods.(name)...(let.((meth |
| 187bc0 | 6f 64 73 20 28 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 | ods.(mop:generic-function-method |
| 187be0 | 73 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 63 6f 6e | s.(fdefinition.name)))).....(con |
| 187c00 | 64 20 28 28 74 72 61 63 65 64 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 76 | d.((tracedp.name)............(ev |
| 187c20 | 61 6c 20 60 28 75 6e 74 72 61 63 65 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | al.`(untrace.,name))............ |
| 187c40 | 28 64 6f 6c 69 73 74 20 28 6d 65 74 68 6f 64 20 6d 65 74 68 6f 64 73 20 28 66 6f 72 6d 61 74 20 | (dolist.(method.methods.(format. |
| 187c60 | 6e 69 6c 20 22 7e 53 20 69 73 20 6e 6f 77 20 75 6e 74 72 61 63 65 64 2e 22 20 6e 61 6d 65 29 29 | nil."~S.is.now.untraced.".name)) |
| 187c80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 63 6c 3a 66 75 6e 74 72 61 63 65 20 28 6d 6f | ..............(excl:funtrace.(mo |
| 187ca0 | 70 3a 6d 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 29 29 0a 20 20 20 | p:method-function.method)))).... |
| 187cc0 | 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 60 28 74 72 61 | .......(t............(eval.`(tra |
| 187ce0 | 63 65 20 28 2c 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 | ce.(,name)))............(dolist. |
| 187d00 | 28 6d 65 74 68 6f 64 20 6d 65 74 68 6f 64 73 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 | (method.methods.(format.nil."~S. |
| 187d20 | 69 73 20 6e 6f 77 20 74 72 61 63 65 64 2e 22 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 | is.now.traced.".name)).......... |
| 187d40 | 20 20 20 20 28 65 78 63 6c 3a 66 74 72 61 63 65 20 28 6d 6f 70 3a 6d 65 74 68 6f 64 2d 66 75 6e | ....(excl:ftrace.(mop:method-fun |
| 187d60 | 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 6f 63 | ction.method)))))))..(defun.proc |
| 187d80 | 65 73 73 2d 66 73 70 65 63 2d 66 6f 72 2d 61 6c 6c 65 67 72 6f 20 28 66 73 70 65 63 29 0a 20 20 | ess-fspec-for-allegro.(fspec)... |
| 187da0 | 28 63 6f 6e 64 20 28 28 63 6f 6e 73 70 20 66 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 28 65 | (cond.((consp.fspec)..........(e |
| 187dc0 | 63 61 73 65 20 28 66 69 72 73 74 20 66 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 | case.(first.fspec)............(( |
| 187de0 | 73 65 74 66 29 20 66 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 66 75 6e | setf).fspec)............((:defun |
| 187e00 | 20 3a 64 65 66 67 65 6e 65 72 69 63 29 20 28 73 65 63 6f 6e 64 20 66 73 70 65 63 29 29 0a 20 20 | .:defgeneric).(second.fspec))... |
| 187e20 | 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 66 6d 65 74 68 6f 64 29 20 60 28 6d 65 74 68 6f 64 20 | .........((:defmethod).`(method. |
| 187e40 | 2c 40 28 72 65 73 74 20 66 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 6c | ,@(rest.fspec)))............((:l |
| 187e60 | 61 62 65 6c 73 29 20 60 28 6c 61 62 65 6c 73 20 2c 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 2d | abels).`(labels.,(process-fspec- |
| 187e80 | 66 6f 72 2d 61 6c 6c 65 67 72 6f 20 28 73 65 63 6f 6e 64 20 66 73 70 65 63 29 29 0a 20 20 20 20 | for-allegro.(second.fspec))..... |
| 187ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 74 68 69 72 64 20 66 73 70 | .....................,(third.fsp |
| 187ec0 | 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 66 6c 65 74 29 20 60 28 66 6c 65 74 | ec)))............((:flet).`(flet |
| 187ee0 | 20 2c 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 2d 66 6f 72 2d 61 6c 6c 65 67 72 6f 20 28 73 65 | .,(process-fspec-for-allegro.(se |
| 187f00 | 63 6f 6e 64 20 66 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cond.fspec)).................... |
| 187f20 | 20 20 20 20 2c 28 74 68 69 72 64 20 66 73 70 65 63 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 | ....,(third.fspec))))).........( |
| 187f40 | 74 0a 20 20 20 20 20 20 20 20 20 66 73 70 65 63 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 57 65 61 6b | t..........fspec)))....;;;;.Weak |
| 187f60 | 20 68 61 73 68 74 61 62 6c 65 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | .hashtables..(defimplementation. |
| 187f80 | 6d 61 6b 65 2d 77 65 61 6b 2d 6b 65 79 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 26 72 65 73 74 20 | make-weak-key-hash-table.(&rest. |
| 187fa0 | 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 | args)...(apply.#'make-hash-table |
| 187fc0 | 20 3a 77 65 61 6b 2d 6b 65 79 73 20 74 20 61 72 67 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | .:weak-keys.t.args))..(defimplem |
| 187fe0 | 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 77 65 61 6b 2d 76 61 6c 75 65 2d 68 61 73 68 2d 74 61 | entation.make-weak-value-hash-ta |
| 188000 | 62 6c 65 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 | ble.(&rest.args)...(apply.#'make |
| 188020 | 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 76 61 6c 75 65 73 20 3a 77 65 61 6b 20 61 72 67 73 29 29 | -hash-table.:values.:weak.args)) |
| 188040 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 68 61 73 68 2d 74 61 62 6c 65 2d | ..(defimplementation.hash-table- |
| 188060 | 77 65 61 6b 6e 65 73 73 20 28 68 61 73 68 74 61 62 6c 65 29 0a 20 20 28 63 6f 6e 64 20 28 28 65 | weakness.(hashtable)...(cond.((e |
| 188080 | 78 63 6c 3a 68 61 73 68 2d 74 61 62 6c 65 2d 77 65 61 6b 2d 6b 65 79 73 20 68 61 73 68 74 61 62 | xcl:hash-table-weak-keys.hashtab |
| 1880a0 | 6c 65 29 20 3a 6b 65 79 29 0a 20 20 20 20 20 20 20 20 28 28 65 71 20 28 65 78 63 6c 3a 68 61 73 | le).:key).........((eq.(excl:has |
| 1880c0 | 68 2d 74 61 62 6c 65 2d 76 61 6c 75 65 73 20 68 61 73 68 74 61 62 6c 65 29 20 3a 77 65 61 6b 29 | h-table-values.hashtable).:weak) |
| 1880e0 | 20 3a 76 61 6c 75 65 29 29 29 0a 0a 0a 0c 0a 3b 3b 3b 3b 20 43 68 61 72 61 63 74 65 72 20 6e 61 | .:value))).....;;;;.Character.na |
| 188100 | 6d 65 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 68 61 72 61 63 74 65 | mes..(defimplementation.characte |
| 188120 | 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 28 70 72 65 66 69 78 20 6d 61 74 63 68 70 29 | r-completion-set.(prefix.matchp) |
| 188140 | 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6e 61 6d 65 20 62 65 69 6e 67 20 74 68 65 20 68 61 73 68 | ...(loop.for.name.being.the.hash |
| 188160 | 2d 6b 65 79 73 20 6f 66 20 65 78 63 6c 3a 3a 2a 6e 61 6d 65 2d 74 6f 2d 63 68 61 72 2d 74 61 62 | -keys.of.excl::*name-to-char-tab |
| 188180 | 6c 65 2a 0a 20 20 20 20 20 20 20 77 68 65 6e 20 28 66 75 6e 63 61 6c 6c 20 6d 61 74 63 68 70 20 | le*........when.(funcall.matchp. |
| 1881a0 | 70 72 65 66 69 78 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 73 74 72 | prefix.name)........collect.(str |
| 1881c0 | 69 6e 67 2d 63 61 70 69 74 61 6c 69 7a 65 20 6e 61 6d 65 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 77 | ing-capitalize.name)))....;;;;.w |
| 1881e0 | 72 61 70 20 69 6e 74 65 72 66 61 63 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 0a 28 64 | rap.interface.implementation..(d |
| 188200 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 72 61 70 20 28 73 70 65 63 20 69 6e 64 69 | efimplementation.wrap.(spec.indi |
| 188220 | 63 61 74 6f 72 20 26 6b 65 79 20 62 65 66 6f 72 65 20 61 66 74 65 72 20 72 65 70 6c 61 63 65 29 | cator.&key.before.after.replace) |
| 188240 | 0a 20 20 28 6c 65 74 20 28 28 61 6c 6c 65 67 72 6f 2d 73 70 65 63 20 28 70 72 6f 63 65 73 73 2d | ...(let.((allegro-spec.(process- |
| 188260 | 66 73 70 65 63 2d 66 6f 72 2d 61 6c 6c 65 67 72 6f 20 73 70 65 63 29 29 29 0a 20 20 20 20 28 65 | fspec-for-allegro.spec))).....(e |
| 188280 | 78 63 6c 3a 66 77 72 61 70 20 61 6c 6c 65 67 72 6f 2d 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 | xcl:fwrap.allegro-spec.......... |
| 1882a0 | 20 20 20 20 20 20 20 69 6e 64 69 63 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......indicator................ |
| 1882c0 | 20 28 65 78 63 6c 3a 64 65 66 2d 66 77 72 61 70 70 65 72 20 61 6c 6c 65 67 72 6f 2d 77 72 61 70 | .(excl:def-fwrapper.allegro-wrap |
| 1882e0 | 70 65 72 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | per.(&rest.args)................ |
| 188300 | 20 20 20 28 6c 65 74 20 28 72 65 74 6c 69 73 74 20 63 6f 6d 70 6c 65 74 65 64 29 0a 20 20 20 20 | ...(let.(retlist.completed)..... |
| 188320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a | ................(unwind-protect. |
| 188340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a | .........................(progn. |
| 188360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | ...........................(when |
| 188380 | 20 62 65 66 6f 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .before......................... |
| 1883a0 | 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 62 65 66 6f 72 65 20 61 72 67 73 29 29 0a 20 20 20 20 | .....(funcall.before.args))..... |
| 1883c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 74 | .......................(setq.ret |
| 1883e0 | 6c 69 73 74 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 0a 20 20 20 20 20 20 | list.(multiple-value-list....... |
| 188400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 188420 | 20 20 20 20 28 69 66 20 72 65 70 6c 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(if.replace................. |
| 188440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | ..............................(f |
| 188460 | 75 6e 63 61 6c 6c 20 72 65 70 6c 61 63 65 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | uncall.replace.args)............ |
| 188480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1884a0 | 20 20 20 28 65 78 63 6c 3a 63 61 6c 6c 2d 6e 65 78 74 2d 66 77 72 61 70 70 65 72 29 29 29 29 0a | ...(excl:call-next-fwrapper)))). |
| 1884c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | ...........................(setq |
| 1884e0 | 20 63 6f 6d 70 6c 65 74 65 64 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .completed.t)................... |
| 188500 | 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 2d 6c 69 73 74 20 72 65 74 6c 69 73 74 29 29 0a | .........(values-list.retlist)). |
| 188520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 61 66 74 65 | ......................(when.afte |
| 188540 | 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 | r.........................(funca |
| 188560 | 6c 6c 20 61 66 74 65 72 20 28 69 66 20 63 6f 6d 70 6c 65 74 65 64 0a 20 20 20 20 20 20 20 20 20 | ll.after.(if.completed.......... |
| 188580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1885a0 | 20 20 72 65 74 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..retlist....................... |
| 1885c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 69 74 65 64 2d 6e 6f 6e | .....................:exited-non |
| 1885e0 | 2d 6c 6f 63 61 6c 6c 79 29 29 29 29 29 29 29 0a 20 20 20 20 61 6c 6c 65 67 72 6f 2d 73 70 65 63 | -locally))))))).....allegro-spec |
| 188600 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 77 72 61 70 20 28 73 | ))..(defimplementation.unwrap.(s |
| 188620 | 70 65 63 20 69 6e 64 69 63 61 74 6f 72 29 0a 20 20 28 6c 65 74 20 28 28 61 6c 6c 65 67 72 6f 2d | pec.indicator)...(let.((allegro- |
| 188640 | 73 70 65 63 20 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 2d 66 6f 72 2d 61 6c 6c 65 67 72 6f 20 | spec.(process-fspec-for-allegro. |
| 188660 | 73 70 65 63 29 29 29 0a 20 20 20 20 28 65 78 63 6c 3a 66 75 6e 77 72 61 70 20 61 6c 6c 65 67 72 | spec))).....(excl:funwrap.allegr |
| 188680 | 6f 2d 73 70 65 63 20 69 6e 64 69 63 61 74 6f 72 29 0a 20 20 20 20 61 6c 6c 65 67 72 6f 2d 73 70 | o-spec.indicator).....allegro-sp |
| 1886a0 | 65 63 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 72 61 70 70 65 64 | ec))..(defimplementation.wrapped |
| 1886c0 | 2d 70 20 28 73 70 65 63 20 69 6e 64 69 63 61 74 6f 72 29 0a 20 20 28 67 65 74 66 20 28 65 78 63 | -p.(spec.indicator)...(getf.(exc |
| 1886e0 | 6c 3a 66 77 72 61 70 2d 6f 72 64 65 72 20 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 2d 66 6f 72 | l:fwrap-order.(process-fspec-for |
| 188700 | 2d 61 6c 6c 65 67 72 6f 20 73 70 65 63 29 29 20 69 6e 64 69 63 61 74 6f 72 29 29 0a 0a 3b 3b 3b | -allegro.spec)).indicator))..;;; |
| 188720 | 3b 20 50 61 63 6b 61 67 65 73 0a 0a 23 2b 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b | ;.Packages..#+package-local-nick |
| 188740 | 6e 61 6d 65 73 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 61 63 6b 61 67 65 | names.(defimplementation.package |
| 188760 | 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 20 28 70 61 63 6b 61 67 65 29 0a 20 20 28 65 78 | -local-nicknames.(package)...(ex |
| 188780 | 63 6c 3a 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 20 70 61 63 6b 61 | cl:package-local-nicknames.packa |
| 1887a0 | 67 65 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ge))............................ |
| 1887c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1887e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 188800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 67 72 61 79 2e 6c 69 73 70 00 00 00 00 00 00 | slime-2.31/swank/gray.lisp...... |
| 188820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 188840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 188860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 188880 | 30 30 31 36 36 35 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 32 30 34 00 20 30 00 00 00 | 0016657.00000000000.014204..0... |
| 1888a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1888c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1888e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 188900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 188920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 188940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 188960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 188980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1889a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1889c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1889e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 188a00 | 3b 3b 3b 3b 20 2d 2a 2d 20 4d 6f 64 65 3a 20 6c 69 73 70 3b 20 69 6e 64 65 6e 74 2d 74 61 62 73 | ;;;;.-*-.Mode:.lisp;.indent-tabs |
| 188a20 | 2d 6d 6f 64 65 3a 20 6e 69 6c 20 2d 2a 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 67 72 61 | -mode:.nil.-*-.;;;.;;;.swank-gra |
| 188a40 | 79 2e 6c 69 73 70 20 2d 2d 2d 20 47 72 61 79 20 73 74 72 65 61 6d 20 62 61 73 65 64 20 49 4f 20 | y.lisp.---.Gray.stream.based.IO. |
| 188a60 | 72 65 64 69 72 65 63 74 69 6f 6e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 43 72 65 61 74 65 64 20 32 30 30 | redirection..;;;.;;;.Created.200 |
| 188a80 | 33 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 | 3.;;;.;;;.This.code.has.been.pla |
| 188aa0 | 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 | ced.in.the.Public.Domain...All.w |
| 188ac0 | 61 72 72 61 6e 74 69 65 73 0a 3b 3b 3b 20 61 72 65 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 3b 3b | arranties.;;;.are.disclaimed..;; |
| 188ae0 | 3b 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 0a 0a 23 | ;..(in-package.swank/backend)..# |
| 188b00 | 2e 28 70 72 6f 67 6e 0a 20 20 20 20 28 64 65 66 76 61 72 20 2a 67 72 61 79 2d 73 74 72 65 61 6d | .(progn.....(defvar.*gray-stream |
| 188b20 | 2d 73 79 6d 62 6f 6c 73 2a 0a 20 20 20 20 27 28 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 63 68 61 72 | -symbols*.....'(fundamental-char |
| 188b40 | 61 63 74 65 72 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 0a 20 20 20 20 20 20 73 74 72 65 61 6d | acter-output-stream.......stream |
| 188b60 | 2d 77 72 69 74 65 2d 63 68 61 72 0a 20 20 20 20 20 20 73 74 72 65 61 6d 2d 77 72 69 74 65 2d 73 | -write-char.......stream-write-s |
| 188b80 | 74 72 69 6e 67 0a 20 20 20 20 20 20 73 74 72 65 61 6d 2d 66 72 65 73 68 2d 6c 69 6e 65 0a 20 20 | tring.......stream-fresh-line... |
| 188ba0 | 20 20 20 20 73 74 72 65 61 6d 2d 66 6f 72 63 65 2d 6f 75 74 70 75 74 0a 20 20 20 20 20 20 73 74 | ....stream-force-output.......st |
| 188bc0 | 72 65 61 6d 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 0a 0a 20 20 20 20 20 20 66 75 6e 64 61 6d | ream-finish-output........fundam |
| 188be0 | 65 6e 74 61 6c 2d 63 68 61 72 61 63 74 65 72 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 0a 20 20 20 | ental-character-input-stream.... |
| 188c00 | 20 20 20 73 74 72 65 61 6d 2d 72 65 61 64 2d 63 68 61 72 0a 20 20 20 20 20 20 73 74 72 65 61 6d | ...stream-read-char.......stream |
| 188c20 | 2d 70 65 65 6b 2d 63 68 61 72 0a 20 20 20 20 20 20 73 74 72 65 61 6d 2d 72 65 61 64 2d 6c 69 6e | -peek-char.......stream-read-lin |
| 188c40 | 65 0a 20 20 20 20 20 20 73 74 72 65 61 6d 2d 6c 69 73 74 65 6e 0a 20 20 20 20 20 20 73 74 72 65 | e.......stream-listen.......stre |
| 188c60 | 61 6d 2d 75 6e 72 65 61 64 2d 63 68 61 72 0a 20 20 20 20 20 20 73 74 72 65 61 6d 2d 63 6c 65 61 | am-unread-char.......stream-clea |
| 188c80 | 72 2d 69 6e 70 75 74 0a 20 20 20 20 20 20 73 74 72 65 61 6d 2d 6c 69 6e 65 2d 63 6f 6c 75 6d 6e | r-input.......stream-line-column |
| 188ca0 | 0a 20 20 20 20 20 20 73 74 72 65 61 6d 2d 72 65 61 64 2d 63 68 61 72 2d 6e 6f 2d 68 61 6e 67 0a | .......stream-read-char-no-hang. |
| 188cc0 | 0a 20 20 20 20 20 20 23 2b 73 62 63 6c 20 73 74 72 65 61 6d 2d 66 69 6c 65 2d 70 6f 73 69 74 69 | .......#+sbcl.stream-file-positi |
| 188ce0 | 6f 6e 29 29 0a 20 20 20 20 6e 69 6c 29 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b | on)).....nil)..(defpackage.swank |
| 188d00 | 2f 67 72 61 79 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 0a | /gray...(:use.cl.swank/backend). |
| 188d20 | 20 20 28 3a 69 6d 70 6f 72 74 2d 66 72 6f 6d 20 23 2e 28 67 72 61 79 2d 70 61 63 6b 61 67 65 2d | ..(:import-from.#.(gray-package- |
| 188d40 | 6e 61 6d 65 29 20 2e 20 23 2e 2a 67 72 61 79 2d 73 74 72 65 61 6d 2d 73 79 6d 62 6f 6c 73 2a 29 | name)...#.*gray-stream-symbols*) |
| 188d60 | 0a 20 20 28 3a 65 78 70 6f 72 74 20 2e 20 23 2e 2a 67 72 61 79 2d 73 74 72 65 61 6d 2d 73 79 6d | ...(:export...#.*gray-stream-sym |
| 188d80 | 62 6f 6c 73 2a 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 67 72 61 79 29 | bols*))..(in-package.swank/gray) |
| 188da0 | 0a 0a 3b 3b 3b 20 41 76 6f 69 64 20 75 73 69 6e 67 20 43 4c 4f 53 20 69 6e 20 74 68 65 20 61 75 | ..;;;.Avoid.using.CLOS.in.the.au |
| 188dc0 | 74 6f 2d 66 6c 75 73 68 20 74 68 72 65 61 64 20 64 75 65 20 74 6f 20 70 6f 73 73 69 62 6c 65 0a | to-flush.thread.due.to.possible. |
| 188de0 | 3b 3b 3b 20 64 65 61 64 6c 6f 63 6b 73 20 62 65 74 77 65 65 6e 20 43 4c 4f 53 20 61 6e 64 20 73 | ;;;.deadlocks.between.CLOS.and.s |
| 188e00 | 74 72 65 61 6d 73 2e 0a 28 64 65 66 73 74 72 75 63 74 20 73 74 72 65 61 6d 2d 64 61 74 61 0a 20 | treams..(defstruct.stream-data.. |
| 188e20 | 20 28 6f 75 74 70 75 74 2d 66 6e 29 0a 20 20 28 62 75 66 66 65 72 20 28 6d 61 6b 65 2d 73 74 72 | .(output-fn)...(buffer.(make-str |
| 188e40 | 69 6e 67 20 36 34 30 30 30 29 29 0a 20 20 28 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 30 29 0a 20 | ing.64000))...(fill-pointer.0).. |
| 188e60 | 20 28 63 6f 6c 75 6d 6e 20 30 29 0a 20 20 28 6c 6f 63 6b 20 28 6d 61 6b 65 2d 6c 6f 63 6b 20 3a | .(column.0)...(lock.(make-lock.: |
| 188e80 | 6e 61 6d 65 20 22 62 75 66 66 65 72 20 77 72 69 74 65 20 6c 6f 63 6b 22 29 29 0a 20 20 28 66 6c | name."buffer.write.lock"))...(fl |
| 188ea0 | 75 73 68 2d 74 68 72 65 61 64 29 0a 20 20 28 66 6c 75 73 68 2d 73 63 68 65 64 75 6c 65 64 29 29 | ush-thread)...(flush-scheduled)) |
| 188ec0 | 0a 0a 28 64 65 66 63 6c 61 73 73 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 | ..(defclass.slime-output-stream. |
| 188ee0 | 28 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 63 68 61 72 61 63 74 65 72 2d 6f 75 74 70 75 74 2d 73 74 | (fundamental-character-output-st |
| 188f00 | 72 65 61 6d 29 0a 20 20 28 28 64 61 74 61 20 3a 69 6e 69 74 66 6f 72 6d 20 28 6d 61 6b 65 2d 73 | ream)...((data.:initform.(make-s |
| 188f20 | 74 72 65 61 6d 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 61 72 67 20 3a 64 | tream-data)..........:initarg.:d |
| 188f40 | 61 74 61 0a 20 20 20 20 20 20 20 20 20 3a 61 63 63 65 73 73 6f 72 20 64 61 74 61 29 29 29 0a 0a | ata..........:accessor.data))).. |
| 188f60 | 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 73 74 72 65 61 6d 2d 64 61 74 61 20 28 64 61 74 61 | (defmacro.with-stream-data.(data |
| 188f80 | 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 60 28 77 69 74 68 2d 61 63 63 65 73 73 6f 72 73 20 | .&body.body)...`(with-accessors. |
| 188fa0 | 28 28 6c 6f 63 6b 20 73 74 72 65 61 6d 2d 64 61 74 61 2d 6c 6f 63 6b 29 0a 20 20 20 20 20 20 20 | ((lock.stream-data-lock)........ |
| 188fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 75 74 70 75 74 2d 66 6e 20 73 74 72 65 61 6d 2d 64 | .............(output-fn.stream-d |
| 188fe0 | 61 74 61 2d 6f 75 74 70 75 74 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ata-output-fn).................. |
| 189000 | 20 20 20 28 62 75 66 66 65 72 20 73 74 72 65 61 6d 2d 64 61 74 61 2d 62 75 66 66 65 72 29 0a 20 | ...(buffer.stream-data-buffer).. |
| 189020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 | ...................(fill-pointer |
| 189040 | 20 73 74 72 65 61 6d 2d 64 61 74 61 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 29 0a 20 20 20 20 20 | .stream-data-fill-pointer)...... |
| 189060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 75 6d 6e 20 73 74 72 65 61 6d 2d 64 61 | ...............(column.stream-da |
| 189080 | 74 61 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ta-column).....................( |
| 1890a0 | 66 6c 75 73 68 2d 74 68 72 65 61 64 20 73 74 72 65 61 6d 2d 64 61 74 61 2d 66 6c 75 73 68 2d 74 | flush-thread.stream-data-flush-t |
| 1890c0 | 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6c 75 73 | hread).....................(flus |
| 1890e0 | 68 2d 73 63 68 65 64 75 6c 65 64 20 73 74 72 65 61 6d 2d 64 61 74 61 2d 66 6c 75 73 68 2d 73 63 | h-scheduled.stream-data-flush-sc |
| 189100 | 68 65 64 75 6c 65 64 29 29 0a 20 20 20 20 20 20 20 2c 64 61 74 61 0a 20 20 20 20 20 28 63 61 6c | heduled))........,data......(cal |
| 189120 | 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 6c 6f 63 6b 20 28 6c 61 6d 62 64 61 20 28 29 | l-with-lock-held.lock.(lambda.() |
| 189140 | 20 2c 40 62 6f 64 79 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 73 6c 69 6d | .,@body))))..(defmacro.with-slim |
| 189160 | 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 28 73 74 72 65 61 6d 20 26 62 6f 64 79 20 62 6f | e-output-stream.(stream.&body.bo |
| 189180 | 64 79 29 0a 20 20 60 28 6c 65 74 20 28 28 64 61 74 61 20 28 64 61 74 61 20 2c 73 74 72 65 61 6d | dy)...`(let.((data.(data.,stream |
| 1891a0 | 29 29 29 0a 20 20 20 20 20 28 77 69 74 68 2d 73 74 72 65 61 6d 2d 64 61 74 61 20 64 61 74 61 20 | )))......(with-stream-data.data. |
| 1891c0 | 2c 40 62 6f 64 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 79 62 65 2d 73 63 68 65 64 75 6c 65 | ,@body)))..(defun.maybe-schedule |
| 1891e0 | 2d 66 6c 75 73 68 20 28 64 61 74 61 29 0a 20 20 28 77 69 74 68 2d 73 74 72 65 61 6d 2d 64 61 74 | -flush.(data)...(with-stream-dat |
| 189200 | 61 20 64 61 74 61 0a 20 20 20 20 28 77 68 65 6e 20 66 6c 75 73 68 2d 74 68 72 65 61 64 0a 20 20 | a.data.....(when.flush-thread... |
| 189220 | 20 20 20 20 28 6f 72 20 66 6c 75 73 68 2d 73 63 68 65 64 75 6c 65 64 0a 20 20 20 20 20 20 20 20 | ....(or.flush-scheduled......... |
| 189240 | 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 66 6c 75 73 68 | ..(progn.............(setf.flush |
| 189260 | 2d 73 63 68 65 64 75 6c 65 64 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 | -scheduled.t).............(send. |
| 189280 | 66 6c 75 73 68 2d 74 68 72 65 61 64 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 | flush-thread.t).............t))) |
| 1892a0 | 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 74 72 65 61 6d 2d 77 72 69 74 65 2d 63 68 61 72 | ))..(defmethod.stream-write-char |
| 1892c0 | 20 28 28 73 74 72 65 61 6d 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 29 20 63 | .((stream.slime-output-stream).c |
| 1892e0 | 68 61 72 29 0a 20 20 28 77 69 74 68 2d 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d | har)...(with-slime-output-stream |
| 189300 | 20 73 74 72 65 61 6d 0a 20 20 20 20 28 73 65 74 66 20 28 73 63 68 61 72 20 62 75 66 66 65 72 20 | .stream.....(setf.(schar.buffer. |
| 189320 | 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 29 20 63 68 61 72 29 0a 20 20 20 20 28 69 6e 63 66 20 66 69 | fill-pointer).char).....(incf.fi |
| 189340 | 6c 6c 2d 70 6f 69 6e 74 65 72 29 0a 20 20 20 20 28 69 6e 63 66 20 63 6f 6c 75 6d 6e 29 0a 20 20 | ll-pointer).....(incf.column)... |
| 189360 | 20 20 28 77 68 65 6e 20 28 63 68 61 72 3d 20 23 5c 6e 65 77 6c 69 6e 65 20 63 68 61 72 29 0a 20 | ..(when.(char=.#\newline.char).. |
| 189380 | 20 20 20 20 20 28 73 65 74 66 20 63 6f 6c 75 6d 6e 20 30 29 29 0a 20 20 20 20 28 69 66 20 28 3d | .....(setf.column.0)).....(if.(= |
| 1893a0 | 20 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 28 6c 65 6e 67 74 68 20 62 75 66 66 65 72 29 29 0a 20 | .fill-pointer.(length.buffer)).. |
| 1893c0 | 20 20 20 20 20 20 20 28 25 73 74 72 65 61 6d 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 64 61 | .......(%stream-finish-output.da |
| 1893e0 | 74 61 29 0a 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 73 63 68 65 64 75 6c 65 2d 66 6c 75 73 | ta).........(maybe-schedule-flus |
| 189400 | 68 20 64 61 74 61 29 29 29 0a 20 20 63 68 61 72 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 74 | h.data)))...char)..(defmethod.st |
| 189420 | 72 65 61 6d 2d 77 72 69 74 65 2d 73 74 72 69 6e 67 20 28 28 73 74 72 65 61 6d 20 73 6c 69 6d 65 | ream-write-string.((stream.slime |
| 189440 | 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 29 20 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 | -output-stream).string.......... |
| 189460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6f 70 74 69 6f 6e 61 6c | .......................&optional |
| 189480 | 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 77 69 74 68 2d 73 6c 69 6d 65 2d 6f 75 74 70 75 74 | .start.end)...(with-slime-output |
| 1894a0 | 2d 73 74 72 65 61 6d 20 73 74 72 65 61 6d 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 61 72 74 | -stream.stream.....(let*.((start |
| 1894c0 | 20 28 6f 72 20 73 74 61 72 74 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 | .(or.start.0))............(end.( |
| 1894e0 | 6f 72 20 65 6e 64 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 | or.end.(length.string)))........ |
| 189500 | 20 20 20 20 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 | ....(len.(length.buffer))....... |
| 189520 | 20 20 20 20 20 28 63 6f 75 6e 74 20 28 2d 20 65 6e 64 20 73 74 61 72 74 29 29 0a 20 20 20 20 20 | .....(count.(-.end.start))...... |
| 189540 | 20 20 20 20 20 20 28 66 72 65 65 20 28 2d 20 6c 65 6e 20 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 29 | ......(free.(-.len.fill-pointer) |
| 189560 | 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 3d 20 63 6f 75 6e 74 20 66 72 65 65 29 0a 20 | )).......(when.(>=.count.free).. |
| 189580 | 20 20 20 20 20 20 20 28 25 73 74 72 65 61 6d 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 64 61 | .......(%stream-finish-output.da |
| 1895a0 | 74 61 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3c 20 63 6f 75 6e 74 20 6c 65 6e 29 0a | ta)).......(cond.((<.count.len). |
| 1895c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 20 62 75 66 66 65 72 20 73 74 72 | .............(replace.buffer.str |
| 1895e0 | 69 6e 67 20 3a 73 74 61 72 74 31 20 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 0a 20 20 20 20 20 20 20 | ing.:start1.fill-pointer........ |
| 189600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 74 61 72 74 32 20 73 74 61 72 74 20 3a 65 6e | ...............:start2.start.:en |
| 189620 | 64 32 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 66 69 6c 6c 2d | d2.end)..............(incf.fill- |
| 189640 | 70 6f 69 6e 74 65 72 20 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 | pointer.count)..............(may |
| 189660 | 62 65 2d 73 63 68 65 64 75 6c 65 2d 66 6c 75 73 68 20 64 61 74 61 29 29 0a 20 20 20 20 20 20 20 | be-schedule-flush.data))........ |
| 189680 | 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6f 75 | .....(t..............(funcall.ou |
| 1896a0 | 74 70 75 74 2d 66 6e 20 28 73 75 62 73 65 71 20 73 74 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 | tput-fn.(subseq.string.start.end |
| 1896c0 | 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 61 73 74 2d 6e 65 77 6c 69 6e 65 20 28 | )))).......(let.((last-newline.( |
| 1896e0 | 70 6f 73 69 74 69 6f 6e 20 23 5c 6e 65 77 6c 69 6e 65 20 73 74 72 69 6e 67 20 3a 66 72 6f 6d 2d | position.#\newline.string.:from- |
| 189700 | 65 6e 64 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | end.t........................... |
| 189720 | 20 20 20 20 20 20 20 20 20 20 3a 73 74 61 72 74 20 73 74 61 72 74 20 3a 65 6e 64 20 65 6e 64 29 | ..........:start.start.:end.end) |
| 189740 | 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 63 6f 6c 75 6d 6e 20 28 69 66 20 6c 61 73 74 | )).........(setf.column.(if.last |
| 189760 | 2d 6e 65 77 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -newline........................ |
| 189780 | 20 20 28 2d 20 65 6e 64 20 6c 61 73 74 2d 6e 65 77 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 20 | ..(-.end.last-newline.1)........ |
| 1897a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 63 6f 6c 75 6d 6e 20 63 6f 75 6e | ..................(+.column.coun |
| 1897c0 | 74 29 29 29 29 29 29 0a 20 20 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 74 | t))))))...string)..(defmethod.st |
| 1897e0 | 72 65 61 6d 2d 6c 69 6e 65 2d 63 6f 6c 75 6d 6e 20 28 28 73 74 72 65 61 6d 20 73 6c 69 6d 65 2d | ream-line-column.((stream.slime- |
| 189800 | 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 29 29 0a 20 20 28 77 69 74 68 2d 73 6c 69 6d 65 2d 6f 75 | output-stream))...(with-slime-ou |
| 189820 | 74 70 75 74 2d 73 74 72 65 61 6d 20 73 74 72 65 61 6d 20 63 6f 6c 75 6d 6e 29 29 0a 0a 28 64 65 | tput-stream.stream.column))..(de |
| 189840 | 66 75 6e 20 72 65 73 65 74 2d 73 74 72 65 61 6d 2d 6c 69 6e 65 2d 63 6f 6c 75 6d 6e 20 28 73 74 | fun.reset-stream-line-column.(st |
| 189860 | 72 65 61 6d 29 0a 20 20 28 77 69 74 68 2d 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 | ream)...(with-slime-output-strea |
| 189880 | 6d 20 73 74 72 65 61 6d 20 28 73 65 74 66 20 63 6f 6c 75 6d 6e 20 30 29 29 29 0a 0a 28 64 65 66 | m.stream.(setf.column.0)))..(def |
| 1898a0 | 75 6e 20 25 73 74 72 65 61 6d 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 28 64 61 74 61 29 0a | un.%stream-finish-output.(data). |
| 1898c0 | 20 20 28 77 69 74 68 2d 73 74 72 65 61 6d 2d 64 61 74 61 20 64 61 74 61 0a 20 20 20 20 28 75 6e | ..(with-stream-data.data.....(un |
| 1898e0 | 6c 65 73 73 20 28 7a 65 72 6f 70 20 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 29 0a 20 20 20 20 20 20 | less.(zerop.fill-pointer)....... |
| 189900 | 28 66 75 6e 63 61 6c 6c 20 6f 75 74 70 75 74 2d 66 6e 20 28 73 75 62 73 65 71 20 62 75 66 66 65 | (funcall.output-fn.(subseq.buffe |
| 189920 | 72 20 30 20 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 66 | r.0.fill-pointer)).......(setf.f |
| 189940 | 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 30 29 29 0a 20 20 20 20 28 73 65 74 66 20 66 6c 75 73 68 2d | ill-pointer.0)).....(setf.flush- |
| 189960 | 73 63 68 65 64 75 6c 65 64 20 6e 69 6c 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 6d 65 74 68 | scheduled.nil))...nil)..(defmeth |
| 189980 | 6f 64 20 73 74 72 65 61 6d 2d 66 6f 72 63 65 2d 6f 75 74 70 75 74 20 28 28 73 74 72 65 61 6d 20 | od.stream-force-output.((stream. |
| 1899a0 | 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 29 29 0a 20 20 28 73 74 72 65 61 6d 2d | slime-output-stream))...(stream- |
| 1899c0 | 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 73 74 72 65 61 6d 29 29 0a 0a 28 64 65 66 6d 65 74 68 | finish-output.stream))..(defmeth |
| 1899e0 | 6f 64 20 73 74 72 65 61 6d 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 28 28 73 74 72 65 61 6d | od.stream-finish-output.((stream |
| 189a00 | 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 29 29 0a 20 20 28 77 69 74 68 2d 73 | .slime-output-stream))...(with-s |
| 189a20 | 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 73 74 72 65 61 6d 0a 20 20 20 20 28 75 | lime-output-stream.stream.....(u |
| 189a40 | 6e 6c 65 73 73 20 28 6d 61 79 62 65 2d 73 63 68 65 64 75 6c 65 2d 66 6c 75 73 68 20 64 61 74 61 | nless.(maybe-schedule-flush.data |
| 189a60 | 29 0a 20 20 20 20 20 20 28 25 73 74 72 65 61 6d 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 64 | ).......(%stream-finish-output.d |
| 189a80 | 61 74 61 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 74 72 65 61 6d 2d 66 72 65 73 68 | ata))))..(defmethod.stream-fresh |
| 189aa0 | 2d 6c 69 6e 65 20 28 28 73 74 72 65 61 6d 20 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 | -line.((stream.slime-output-stre |
| 189ac0 | 61 6d 29 29 0a 20 20 28 77 69 74 68 2d 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d | am))...(with-slime-output-stream |
| 189ae0 | 20 73 74 72 65 61 6d 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 7a 65 72 6f 70 20 63 6f 6c 75 6d 6e | .stream.....(cond.((zerop.column |
| 189b00 | 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 74 65 72 70 72 69 20 73 74 72 65 | ).nil)...........(t.(terpri.stre |
| 189b20 | 61 6d 29 20 74 29 29 29 29 0a 0a 23 2b 73 62 63 6c 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 74 72 | am).t))))..#+sbcl.(defmethod.str |
| 189b40 | 65 61 6d 2d 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 28 28 73 74 72 65 61 6d 20 73 6c 69 6d 65 | eam-file-position.((stream.slime |
| 189b60 | 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 29 20 26 6f 70 74 69 6f 6e 61 6c 20 70 6f 73 69 74 69 | -output-stream).&optional.positi |
| 189b80 | 6f 6e 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 70 6f 73 69 74 69 6f 6e 29 | on)...(declare.(ignore.position) |
| 189ba0 | 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 63 6c 61 73 73 20 73 6c 69 6d 65 2d 69 6e 70 75 74 2d | )...nil)..(defclass.slime-input- |
| 189bc0 | 73 74 72 65 61 6d 20 28 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 63 68 61 72 61 63 74 65 72 2d 69 6e | stream.(fundamental-character-in |
| 189be0 | 70 75 74 2d 73 74 72 65 61 6d 29 0a 20 20 28 28 69 6e 70 75 74 2d 66 6e 20 3a 69 6e 69 74 61 72 | put-stream)...((input-fn.:initar |
| 189c00 | 67 20 3a 69 6e 70 75 74 2d 66 6e 29 0a 20 20 20 28 62 75 66 66 65 72 20 3a 69 6e 69 74 66 6f 72 | g.:input-fn)....(buffer.:initfor |
| 189c20 | 6d 20 22 22 29 20 28 69 6e 64 65 78 20 3a 69 6e 69 74 66 6f 72 6d 20 30 29 0a 20 20 20 28 6c 6f | m."").(index.:initform.0)....(lo |
| 189c40 | 63 6b 20 3a 69 6e 69 74 66 6f 72 6d 20 28 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 62 | ck.:initform.(make-lock.:name."b |
| 189c60 | 75 66 66 65 72 20 72 65 61 64 20 6c 6f 63 6b 22 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 | uffer.read.lock"))))..(defmethod |
| 189c80 | 20 73 74 72 65 61 6d 2d 72 65 61 64 2d 63 68 61 72 20 28 28 73 20 73 6c 69 6d 65 2d 69 6e 70 75 | .stream-read-char.((s.slime-inpu |
| 189ca0 | 74 2d 73 74 72 65 61 6d 29 29 0a 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c | t-stream))...(call-with-lock-hel |
| 189cc0 | 64 0a 20 20 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 73 20 27 6c 6f 63 6b 29 0a 20 20 20 28 6c 61 | d....(slot-value.s.'lock)....(la |
| 189ce0 | 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 77 69 74 68 2d 73 6c 6f 74 73 20 28 62 75 66 66 65 72 | mbda.()......(with-slots.(buffer |
| 189d00 | 20 69 6e 64 65 78 20 69 6e 70 75 74 2d 66 6e 29 20 73 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 | .index.input-fn).s........(when. |
| 189d20 | 28 3d 20 69 6e 64 65 78 20 28 6c 65 6e 67 74 68 20 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 | (=.index.(length.buffer))....... |
| 189d40 | 20 20 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 20 28 66 75 6e 63 61 6c 6c 20 69 6e 70 75 74 2d | ...(let.((string.(funcall.input- |
| 189d60 | 66 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 7a 65 72 6f 70 20 28 | fn)))............(cond.((zerop.( |
| 189d80 | 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | length.string))................. |
| 189da0 | 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 73 74 72 65 61 6d 2d 72 65 61 64 2d 63 68 61 72 20 | ..(return-from.stream-read-char. |
| 189dc0 | 3a 65 6f 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 | :eof))..................(t...... |
| 189de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 62 75 66 66 65 72 20 73 74 72 69 6e 67 | .............(setf.buffer.string |
| 189e00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 69 6e 64 65 78 20 | )...................(setf.index. |
| 189e20 | 30 29 29 29 29 29 0a 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 70 6c 75 73 70 20 28 6c 65 | 0)))))........(assert.(plusp.(le |
| 189e40 | 6e 67 74 68 20 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 28 61 72 | ngth.buffer)))........(prog1.(ar |
| 189e60 | 65 66 20 62 75 66 66 65 72 20 69 6e 64 65 78 29 20 28 69 6e 63 66 20 69 6e 64 65 78 29 29 29 29 | ef.buffer.index).(incf.index)))) |
| 189e80 | 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 74 72 65 61 6d 2d 6c 69 73 74 65 6e 20 28 28 73 | ))..(defmethod.stream-listen.((s |
| 189ea0 | 20 73 6c 69 6d 65 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 29 29 0a 20 20 28 63 61 6c 6c 2d 77 69 | .slime-input-stream))...(call-wi |
| 189ec0 | 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 0a 20 20 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 73 20 27 6c | th-lock-held....(slot-value.s.'l |
| 189ee0 | 6f 63 6b 29 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 77 69 74 68 2d 73 6c | ock)....(lambda.()......(with-sl |
| 189f00 | 6f 74 73 20 28 62 75 66 66 65 72 20 69 6e 64 65 78 29 20 73 0a 20 20 20 20 20 20 20 28 3c 20 69 | ots.(buffer.index).s........(<.i |
| 189f20 | 6e 64 65 78 20 28 6c 65 6e 67 74 68 20 62 75 66 66 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 6d | ndex.(length.buffer))))))..(defm |
| 189f40 | 65 74 68 6f 64 20 73 74 72 65 61 6d 2d 75 6e 72 65 61 64 2d 63 68 61 72 20 28 28 73 20 73 6c 69 | ethod.stream-unread-char.((s.sli |
| 189f60 | 6d 65 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 29 20 63 68 61 72 29 0a 20 20 28 63 61 6c 6c 2d 77 | me-input-stream).char)...(call-w |
| 189f80 | 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 0a 20 20 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 73 20 27 | ith-lock-held....(slot-value.s.' |
| 189fa0 | 6c 6f 63 6b 29 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 77 69 74 68 2d 73 | lock)....(lambda.()......(with-s |
| 189fc0 | 6c 6f 74 73 20 28 62 75 66 66 65 72 20 69 6e 64 65 78 29 20 73 0a 20 20 20 20 20 20 20 28 64 65 | lots.(buffer.index).s........(de |
| 189fe0 | 63 66 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 6c 20 28 61 72 | cf.index)........(cond.((eql.(ar |
| 18a000 | 65 66 20 62 75 66 66 65 72 20 69 6e 64 65 78 29 20 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 | ef.buffer.index).char).......... |
| 18a020 | 20 20 20 20 20 28 73 65 74 66 20 28 61 72 65 66 20 62 75 66 66 65 72 20 69 6e 64 65 78 29 20 63 | .....(setf.(aref.buffer.index).c |
| 18a040 | 68 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 | har))..............(t........... |
| 18a060 | 20 20 20 20 28 77 61 72 6e 20 22 73 74 72 65 61 6d 2d 75 6e 72 65 61 64 2d 63 68 61 72 3a 20 69 | ....(warn."stream-unread-char:.i |
| 18a080 | 67 6e 6f 72 69 6e 67 20 7e 53 20 28 65 78 70 65 63 74 65 64 20 7e 53 29 22 0a 20 20 20 20 20 20 | gnoring.~S.(expected.~S)"....... |
| 18a0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 61 72 20 28 61 72 65 66 20 62 75 66 66 65 72 20 | ..............char.(aref.buffer. |
| 18a0c0 | 69 6e 64 65 78 29 29 29 29 29 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 | index)))))))...nil)..(defmethod. |
| 18a0e0 | 73 74 72 65 61 6d 2d 63 6c 65 61 72 2d 69 6e 70 75 74 20 28 28 73 20 73 6c 69 6d 65 2d 69 6e 70 | stream-clear-input.((s.slime-inp |
| 18a100 | 75 74 2d 73 74 72 65 61 6d 29 29 0a 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 | ut-stream))...(call-with-lock-he |
| 18a120 | 6c 64 0a 20 20 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 73 20 27 6c 6f 63 6b 29 0a 20 20 20 28 6c | ld....(slot-value.s.'lock)....(l |
| 18a140 | 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 77 69 74 68 2d 73 6c 6f 74 73 20 28 62 75 66 66 65 | ambda.()......(with-slots.(buffe |
| 18a160 | 72 20 69 6e 64 65 78 29 20 73 0a 20 20 20 20 20 20 20 28 73 65 74 66 20 62 75 66 66 65 72 20 22 | r.index).s........(setf.buffer." |
| 18a180 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 20 30 29 29 29 29 0a 20 20 6e 69 6c | "..............index.0))))...nil |
| 18a1a0 | 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 74 72 65 61 6d 2d 6c 69 6e 65 2d 63 6f 6c 75 6d 6e | )..(defmethod.stream-line-column |
| 18a1c0 | 20 28 28 73 20 73 6c 69 6d 65 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 29 29 0a 20 20 6e 69 6c 29 | .((s.slime-input-stream))...nil) |
| 18a1e0 | 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 74 72 65 61 6d 2d 72 65 61 64 2d 63 68 61 72 2d 6e 6f | ..(defmethod.stream-read-char-no |
| 18a200 | 2d 68 61 6e 67 20 28 28 73 20 73 6c 69 6d 65 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 29 29 0a 20 | -hang.((s.slime-input-stream)).. |
| 18a220 | 20 28 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 0a 20 20 20 28 73 6c 6f 74 2d 76 | .(call-with-lock-held....(slot-v |
| 18a240 | 61 6c 75 65 20 73 20 27 6c 6f 63 6b 29 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 | alue.s.'lock)....(lambda.()..... |
| 18a260 | 20 28 77 69 74 68 2d 73 6c 6f 74 73 20 28 62 75 66 66 65 72 20 69 6e 64 65 78 29 20 73 0a 20 20 | .(with-slots.(buffer.index).s... |
| 18a280 | 20 20 20 20 20 28 77 68 65 6e 20 28 3c 20 69 6e 64 65 78 20 28 6c 65 6e 67 74 68 20 62 75 66 66 | .....(when.(<.index.(length.buff |
| 18a2a0 | 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 28 61 72 65 66 20 62 75 66 66 65 | er))..........(prog1.(aref.buffe |
| 18a2c0 | 72 20 69 6e 64 65 78 29 20 28 69 6e 63 66 20 69 6e 64 65 78 29 29 29 29 29 29 29 0a 0a 23 2b 73 | r.index).(incf.index)))))))..#+s |
| 18a2e0 | 62 63 6c 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 74 72 65 61 6d 2d 66 69 6c 65 2d 70 6f 73 69 74 | bcl.(defmethod.stream-file-posit |
| 18a300 | 69 6f 6e 20 28 28 73 74 72 65 61 6d 20 73 6c 69 6d 65 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 29 | ion.((stream.slime-input-stream) |
| 18a320 | 20 26 6f 70 74 69 6f 6e 61 6c 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 28 64 65 63 6c 61 72 65 20 | .&optional.position)...(declare. |
| 18a340 | 28 69 67 6e 6f 72 65 20 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 6e 69 6c 29 0a 0a 0c 0a 3b 3b 3b | (ignore.position))...nil)....;;; |
| 18a360 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 61 75 74 6f 2d 66 | ..(defimplementation.make-auto-f |
| 18a380 | 6c 75 73 68 2d 74 68 72 65 61 64 20 28 73 74 72 65 61 6d 29 0a 20 20 28 69 66 20 28 74 79 70 65 | lush-thread.(stream)...(if.(type |
| 18a3a0 | 70 20 73 74 72 65 61 6d 20 27 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 29 0a 20 | p.stream.'slime-output-stream).. |
| 18a3c0 | 20 20 20 20 20 28 73 65 74 66 20 28 73 74 72 65 61 6d 2d 64 61 74 61 2d 66 6c 75 73 68 2d 74 68 | .....(setf.(stream-data-flush-th |
| 18a3e0 | 72 65 61 64 20 28 64 61 74 61 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | read.(data.stream))............. |
| 18a400 | 28 73 70 61 77 6e 20 28 6c 61 6d 62 64 61 20 28 29 20 28 61 75 74 6f 2d 66 6c 75 73 68 2d 6c 6f | (spawn.(lambda.().(auto-flush-lo |
| 18a420 | 6f 70 20 73 74 72 65 61 6d 20 23 2d 61 6c 6c 65 67 72 6f 20 30 2e 30 30 35 0a 20 20 20 20 20 20 | op.stream.#-allegro.0.005....... |
| 18a440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 18a460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 61 6c 6c 65 67 72 6f 20 30 2e 30 38 0a 20 | ................#+allegro.0.08.. |
| 18a480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 18a4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 20 28 6c 61 6d 62 64 61 20 28 | .....................t.(lambda.( |
| 18a4c0 | 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | stream)......................... |
| 18a4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 18a500 | 20 20 28 25 73 74 72 65 61 6d 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 28 64 61 74 61 20 73 | ..(%stream-finish-output.(data.s |
| 18a520 | 74 72 65 61 6d 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e | tream)))))....................:n |
| 18a540 | 61 6d 65 20 22 61 75 74 6f 2d 66 6c 75 73 68 2d 74 68 72 65 61 64 22 29 29 0a 20 20 20 20 20 20 | ame."auto-flush-thread"))....... |
| 18a560 | 28 73 70 61 77 6e 20 28 6c 61 6d 62 64 61 20 28 29 20 28 61 75 74 6f 2d 66 6c 75 73 68 2d 6c 6f | (spawn.(lambda.().(auto-flush-lo |
| 18a580 | 6f 70 20 73 74 72 65 61 6d 20 2a 61 75 74 6f 2d 66 6c 75 73 68 2d 69 6e 74 65 72 76 61 6c 2a 29 | op.stream.*auto-flush-interval*) |
| 18a5a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 61 6d 65 20 22 61 75 74 6f 2d 66 6c 75 73 68 | )..............:name."auto-flush |
| 18a5c0 | 2d 74 68 72 65 61 64 22 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | -thread")))..(defimplementation. |
| 18a5e0 | 72 65 61 6c 6c 79 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 28 73 74 72 65 61 6d 29 0a 20 20 | really-finish-output.(stream)... |
| 18a600 | 28 6c 65 74 20 28 28 73 74 72 65 61 6d 20 28 73 77 61 6e 6b 3a 3a 72 65 61 6c 2d 6f 75 74 70 75 | (let.((stream.(swank::real-outpu |
| 18a620 | 74 2d 73 74 72 65 61 6d 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 28 69 66 20 28 74 79 70 65 | t-stream.stream))).....(if.(type |
| 18a640 | 70 20 73 74 72 65 61 6d 20 27 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 29 0a 20 | p.stream.'slime-output-stream).. |
| 18a660 | 20 20 20 20 20 20 20 28 25 73 74 72 65 61 6d 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 28 64 | .......(%stream-finish-output.(d |
| 18a680 | 61 74 61 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 | ata.stream)).........(finish-out |
| 18a6a0 | 70 75 74 20 73 74 72 65 61 6d 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | put.stream))))..(defimplementati |
| 18a6c0 | 6f 6e 20 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 28 77 72 69 74 65 2d 73 74 72 | on.make-output-stream.(write-str |
| 18a6e0 | 69 6e 67 29 0a 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 73 6c 69 6d 65 2d 6f 75 74 | ing)...(make-instance.'slime-out |
| 18a700 | 70 75 74 2d 73 74 72 65 61 6d 20 3a 64 61 74 61 20 28 6d 61 6b 65 2d 73 74 72 65 61 6d 2d 64 61 | put-stream.:data.(make-stream-da |
| 18a720 | 74 61 20 3a 6f 75 74 70 75 74 2d 66 6e 20 77 72 69 74 65 2d 73 74 72 69 6e 67 29 29 29 0a 0a 28 | ta.:output-fn.write-string)))..( |
| 18a740 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 69 6e 70 75 74 2d 73 74 72 | defimplementation.make-input-str |
| 18a760 | 65 61 6d 20 28 72 65 61 64 2d 73 74 72 69 6e 67 29 0a 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e | eam.(read-string)...(make-instan |
| 18a780 | 63 65 20 27 73 6c 69 6d 65 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 3a 69 6e 70 75 74 2d 66 6e | ce.'slime-input-stream.:input-fn |
| 18a7a0 | 20 72 65 61 64 2d 73 74 72 69 6e 67 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .read-string)).................. |
| 18a7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 73 6f 75 72 63 65 2d 70 61 74 68 2d 70 61 72 | slime-2.31/swank/source-path-par |
| 18a820 | 73 65 72 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ser.lisp........................ |
| 18a840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 18a880 | 30 30 32 32 37 34 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 37 36 30 00 20 30 00 00 00 | 0022744.00000000000.016760..0... |
| 18a8a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 18a920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 18a940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18aa00 | 3b 3b 3b 3b 20 53 6f 75 72 63 65 2d 70 61 74 68 73 0a 0a 3b 3b 3b 20 43 4d 55 43 4c 2f 53 42 43 | ;;;;.Source-paths..;;;.CMUCL/SBC |
| 18aa20 | 4c 20 75 73 65 20 61 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 20 63 61 6c 6c 65 64 20 22 73 | L.use.a.data.structure.called."s |
| 18aa40 | 6f 75 72 63 65 2d 70 61 74 68 22 20 74 6f 20 6c 6f 63 61 74 65 0a 3b 3b 3b 20 73 75 62 66 6f 72 | ource-path".to.locate.;;;.subfor |
| 18aa60 | 6d 73 2e 20 20 54 68 65 20 63 6f 6d 70 69 6c 65 72 20 61 73 73 69 67 6e 73 20 61 20 73 6f 75 72 | ms...The.compiler.assigns.a.sour |
| 18aa80 | 63 65 2d 70 61 74 68 20 74 6f 20 65 61 63 68 20 66 6f 72 6d 20 69 6e 20 61 0a 3b 3b 3b 20 63 6f | ce-path.to.each.form.in.a.;;;.co |
| 18aaa0 | 6d 70 69 6c 61 74 69 6f 6e 20 75 6e 69 74 2e 20 20 43 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 20 | mpilation.unit...Compiler.notes. |
| 18aac0 | 75 73 75 61 6c 6c 79 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 73 6f 75 72 63 65 2d 70 61 74 68 0a | usually.contain.the.source-path. |
| 18aae0 | 3b 3b 3b 20 6f 66 20 74 68 65 20 65 72 72 6f 72 20 6c 6f 63 61 74 69 6f 6e 2e 0a 3b 3b 3b 0a 3b | ;;;.of.the.error.location..;;;.; |
| 18ab00 | 3b 3b 20 43 6f 6d 70 69 6c 65 64 20 63 6f 64 65 20 6f 62 6a 65 63 74 73 20 64 6f 6e 27 74 20 63 | ;;.Compiled.code.objects.don't.c |
| 18ab20 | 6f 6e 74 61 69 6e 20 73 6f 75 72 63 65 20 70 61 74 68 73 2c 20 6f 6e 6c 79 20 74 68 65 0a 3b 3b | ontain.source.paths,.only.the.;; |
| 18ab40 | 3b 20 22 74 6f 70 6c 65 76 65 6c 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 22 20 61 6e 64 20 74 68 65 | ;."toplevel-form-number".and.the |
| 18ab60 | 20 28 73 75 62 2d 29 20 22 66 6f 72 6d 2d 6e 75 6d 62 65 72 22 2e 20 20 54 6f 20 67 65 74 20 66 | .(sub-)."form-number"...To.get.f |
| 18ab80 | 72 6f 6d 0a 3b 3b 3b 20 74 68 65 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 74 6f 20 74 68 65 20 73 | rom.;;;.the.form-number.to.the.s |
| 18aba0 | 6f 75 72 63 65 2d 70 61 74 68 20 77 65 20 6e 65 65 64 20 74 68 65 20 65 6e 74 69 72 65 20 74 6f | ource-path.we.need.the.entire.to |
| 18abc0 | 70 6c 65 76 65 6c 2d 66 6f 72 6d 0a 3b 3b 3b 20 28 69 2e 65 2e 20 77 65 20 68 61 76 65 20 74 6f | plevel-form.;;;.(i.e..we.have.to |
| 18abe0 | 20 72 65 61 64 20 74 68 65 20 73 6f 75 72 63 65 20 63 6f 64 65 29 2e 20 20 43 4d 55 43 4c 20 68 | .read.the.source.code)...CMUCL.h |
| 18ac00 | 61 73 20 61 6c 72 65 61 64 79 20 73 6f 6d 65 0a 3b 3b 3b 20 75 74 69 6c 69 74 69 65 73 20 74 6f | as.already.some.;;;.utilities.to |
| 18ac20 | 20 64 6f 20 74 68 69 73 20 74 72 61 6e 73 6c 61 74 69 6f 6e 2c 20 62 75 74 20 77 65 20 75 73 65 | .do.this.translation,.but.we.use |
| 18ac40 | 20 73 6f 6d 65 20 65 78 74 65 6e 64 65 64 0a 3b 3b 3b 20 76 65 72 73 69 6f 6e 73 2c 20 62 65 63 | .some.extended.;;;.versions,.bec |
| 18ac60 | 61 75 73 65 20 77 65 20 6e 65 65 64 20 6d 6f 72 65 20 65 78 61 63 74 20 70 6f 73 69 74 69 6f 6e | ause.we.need.more.exact.position |
| 18ac80 | 20 69 6e 66 6f 2e 20 20 41 70 70 61 72 65 6e 74 6c 79 0a 3b 3b 3b 20 48 65 6d 6c 6f 63 6b 20 69 | .info...Apparently.;;;.Hemlock.i |
| 18aca0 | 73 20 68 61 70 70 79 20 77 69 74 68 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 | s.happy.with.the.position.of.the |
| 18acc0 | 20 74 6f 70 6c 65 76 65 6c 2d 66 6f 72 6d 3b 20 77 65 20 61 6c 73 6f 0a 3b 3b 3b 20 6e 65 65 64 | .toplevel-form;.we.also.;;;.need |
| 18ace0 | 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 73 75 62 66 6f 72 6d 73 2e 0a 3b 3b 3b 0a 3b | .the.position.of.subforms..;;;.; |
| 18ad00 | 3b 3b 20 57 65 20 75 73 65 20 61 20 73 70 65 63 69 61 6c 20 72 65 61 64 74 61 62 6c 65 20 74 6f | ;;.We.use.a.special.readtable.to |
| 18ad20 | 20 67 65 74 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 73 20 6f 66 20 74 68 65 20 73 75 62 66 6f 72 | .get.the.positions.of.the.subfor |
| 18ad40 | 6d 73 2e 0a 3b 3b 3b 20 54 68 65 20 72 65 61 64 74 61 62 6c 65 20 73 74 6f 72 65 73 20 74 68 65 | ms..;;;.The.readtable.stores.the |
| 18ad60 | 20 73 74 61 72 74 20 61 6e 64 20 65 6e 64 20 70 6f 73 69 74 69 6f 6e 20 66 6f 72 20 65 61 63 68 | .start.and.end.position.for.each |
| 18ad80 | 20 73 75 62 66 6f 72 6d 20 69 6e 0a 3b 3b 3b 20 68 61 73 68 74 61 62 6c 65 20 66 6f 72 20 6c 61 | .subform.in.;;;.hashtable.for.la |
| 18ada0 | 74 65 72 20 72 65 74 72 69 65 76 61 6c 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 | ter.retrieval..;;;.;;;.This.code |
| 18adc0 | 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 | .has.been.placed.in.the.Public.D |
| 18ade0 | 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 0a 3b 3b 3b 20 61 72 65 20 64 | omain...All.warranties.;;;.are.d |
| 18ae00 | 69 73 63 6c 61 69 6d 65 64 2e 0a 0a 3b 3b 3b 20 54 61 6b 65 6e 20 66 72 6f 6d 20 73 77 61 6e 6b | isclaimed...;;;.Taken.from.swank |
| 18ae20 | 2d 63 6d 75 63 6c 2e 6c 69 73 70 2c 20 62 79 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 0a 0a 28 64 | -cmucl.lisp,.by.Helmut.Eller..(d |
| 18ae40 | 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 73 6f 75 72 63 65 2d 70 61 74 68 2d 70 61 72 73 | efpackage.swank/source-path-pars |
| 18ae60 | 65 72 0a 20 20 28 3a 75 73 65 20 63 6c 29 0a 20 20 28 3a 65 78 70 6f 72 74 0a 20 20 20 72 65 61 | er...(:use.cl)...(:export....rea |
| 18ae80 | 64 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 0a 20 20 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 73 74 72 | d-source-form....source-path-str |
| 18aea0 | 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 66 69 6c 65 | ing-position....source-path-file |
| 18aec0 | 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 73 6f 75 72 63 65 2d | -position....source-path-source- |
| 18aee0 | 70 6f 73 69 74 69 6f 6e 0a 0a 20 20 20 73 65 78 70 2d 69 6e 2d 62 6f 75 6e 64 73 2d 70 0a 20 20 | position.....sexp-in-bounds-p... |
| 18af00 | 20 73 65 78 70 2d 72 65 66 29 0a 20 20 28 3a 73 68 61 64 6f 77 20 69 67 6e 6f 72 65 2d 65 72 72 | .sexp-ref)...(:shadow.ignore-err |
| 18af20 | 6f 72 73 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 73 6f 75 72 63 65 2d | ors))..(in-package.swank/source- |
| 18af40 | 70 61 74 68 2d 70 61 72 73 65 72 29 0a 0a 3b 3b 20 53 6f 6d 65 20 74 65 73 74 20 74 6f 20 65 6e | path-parser)..;;.Some.test.to.en |
| 18af60 | 73 75 72 65 20 74 68 65 20 72 65 71 75 69 72 65 64 20 63 6f 6e 66 6f 72 6d 61 6e 63 65 0a 28 6c | sure.the.required.conformance.(l |
| 18af80 | 65 74 20 28 28 72 74 20 28 63 6f 70 79 2d 72 65 61 64 74 61 62 6c 65 20 6e 69 6c 29 29 29 0a 20 | et.((rt.(copy-readtable.nil))).. |
| 18afa0 | 20 28 61 73 73 65 72 74 20 28 6f 72 20 28 6e 6f 74 20 28 67 65 74 2d 6d 61 63 72 6f 2d 63 68 61 | .(assert.(or.(not.(get-macro-cha |
| 18afc0 | 72 61 63 74 65 72 20 23 5c 73 70 61 63 65 20 72 74 29 29 0a 09 20 20 20 20 20 20 28 6e 74 68 2d | racter.#\space.rt))........(nth- |
| 18afe0 | 76 61 6c 75 65 20 31 20 28 67 65 74 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 20 23 5c 73 | value.1.(get-macro-character.#\s |
| 18b000 | 70 61 63 65 20 72 74 29 29 29 29 0a 20 20 28 61 73 73 65 72 74 20 28 6e 6f 74 20 28 67 65 74 2d | pace.rt))))...(assert.(not.(get- |
| 18b020 | 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 20 23 5c 5c 20 72 74 29 29 29 29 0a 0a 28 65 76 61 | macro-character.#\\.rt))))..(eva |
| 18b040 | 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 29 0a 20 20 28 64 65 | l-when.(:compile-toplevel)...(de |
| 18b060 | 66 6d 61 63 72 6f 20 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 26 72 65 73 74 20 66 6f 72 6d | fmacro.ignore-errors.(&rest.form |
| 18b080 | 73 29 0a 20 20 20 20 3b 3b 60 28 70 72 6f 67 6e 20 2e 20 2c 66 6f 72 6d 73 29 20 3b 20 66 6f 72 | s).....;;`(progn...,forms).;.for |
| 18b0a0 | 20 64 65 62 75 67 67 69 6e 67 0a 20 20 20 20 60 28 63 6c 3a 69 67 6e 6f 72 65 2d 65 72 72 6f 72 | .debugging.....`(cl:ignore-error |
| 18b0c0 | 73 20 2e 20 2c 66 6f 72 6d 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 73 68 61 72 70 | s...,forms)))..(defun.make-sharp |
| 18b0e0 | 64 6f 74 2d 72 65 61 64 65 72 20 28 6f 72 69 67 2d 73 68 61 72 70 64 6f 74 2d 72 65 61 64 65 72 | dot-reader.(orig-sharpdot-reader |
| 18b100 | 29 0a 20 20 28 6c 61 6d 62 64 61 20 28 73 20 63 20 6e 29 0a 20 20 20 20 3b 3b 20 57 65 20 77 61 | )...(lambda.(s.c.n).....;;.We.wa |
| 18b120 | 6e 74 20 74 68 69 6e 67 73 20 6c 69 6b 65 20 4d 2d 2e 20 74 6f 20 77 6f 72 6b 20 72 65 67 61 72 | nt.things.like.M-..to.work.regar |
| 18b140 | 64 6c 65 73 73 20 6f 66 20 61 6e 79 20 23 2e 2d 66 75 20 69 6e 0a 20 20 20 20 3b 3b 20 74 68 65 | dless.of.any.#.-fu.in.....;;.the |
| 18b160 | 20 73 6f 75 72 63 65 20 66 69 6c 65 20 74 68 61 74 20 69 73 20 74 6f 20 62 65 20 76 69 73 69 74 | .source.file.that.is.to.be.visit |
| 18b180 | 65 64 2e 20 28 46 6f 72 20 69 6e 73 74 61 6e 63 65 2c 20 77 68 65 6e 20 61 0a 20 20 20 20 3b 3b | ed..(For.instance,.when.a.....;; |
| 18b1a0 | 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 23 2e 20 66 6f 72 6d 73 20 72 65 66 65 72 65 6e 63 | .file.contains.#..forms.referenc |
| 18b1c0 | 69 6e 67 20 63 6f 6e 73 74 61 6e 74 73 20 74 68 61 74 20 64 6f 20 6e 6f 74 0a 20 20 20 20 3b 3b | ing.constants.that.do.not.....;; |
| 18b1e0 | 20 63 75 72 72 65 6e 74 6c 79 20 65 78 69 73 74 20 69 6e 20 74 68 65 20 69 6d 61 67 65 2e 29 0a | .currently.exist.in.the.image.). |
| 18b200 | 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 75 6e 63 61 6c 6c 20 6f 72 69 67 | ....(ignore-errors.(funcall.orig |
| 18b220 | 2d 73 68 61 72 70 64 6f 74 2d 72 65 61 64 65 72 20 73 20 63 20 6e 29 29 29 29 0a 0a 28 64 65 66 | -sharpdot-reader.s.c.n))))..(def |
| 18b240 | 75 6e 20 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 72 65 63 6f 72 64 65 72 20 28 66 6e 20 73 6f 75 72 | un.make-source-recorder.(fn.sour |
| 18b260 | 63 65 2d 6d 61 70 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6d 61 63 72 6f 20 63 68 61 72 61 63 | ce-map)..."Return.a.macro.charac |
| 18b280 | 74 65 72 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 64 6f 65 73 20 74 68 65 20 73 61 6d 65 20 | ter.function.that.does.the.same. |
| 18b2a0 | 61 73 20 46 4e 2c 20 62 75 74 0a 61 64 64 69 74 69 6f 6e 61 6c 6c 79 20 73 74 6f 72 65 73 20 74 | as.FN,.but.additionally.stores.t |
| 18b2c0 | 68 65 20 72 65 73 75 6c 74 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 74 68 65 20 73 74 72 65 | he.result.together.with.the.stre |
| 18b2e0 | 61 6d 20 70 6f 73 69 74 69 6f 6e 73 0a 62 65 66 6f 72 65 20 61 6e 64 20 61 66 74 65 72 20 6f 66 | am.positions.before.and.after.of |
| 18b300 | 20 63 61 6c 6c 69 6e 67 20 46 4e 20 69 6e 20 74 68 65 20 68 61 73 68 74 61 62 6c 65 20 53 4f 55 | .calling.FN.in.the.hashtable.SOU |
| 18b320 | 52 43 45 2d 4d 41 50 2e 22 0a 20 20 28 6c 61 6d 62 64 61 20 28 73 74 72 65 61 6d 20 63 68 61 72 | RCE-MAP."...(lambda.(stream.char |
| 18b340 | 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 31 2d 20 28 66 69 6c 65 2d 70 6f 73 | ).....(let.((start.(1-.(file-pos |
| 18b360 | 69 74 69 6f 6e 20 73 74 72 65 61 6d 29 29 29 0a 09 20 20 28 76 61 6c 75 65 73 20 28 6d 75 6c 74 | ition.stream)))....(values.(mult |
| 18b380 | 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 73 74 72 65 | iple-value-list.(funcall.fn.stre |
| 18b3a0 | 61 6d 20 63 68 61 72 29 29 29 0a 09 20 20 28 65 6e 64 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f | am.char)))....(end.(file-positio |
| 18b3c0 | 6e 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 20 20 23 2b 28 6f 72 29 0a 20 20 20 20 20 20 28 | n.stream))).......#+(or).......( |
| 18b3e0 | 66 6f 72 6d 61 74 20 74 20 22 5b 7e 44 20 5c 22 7e 7b 7e 41 7e 5e 2c 20 7e 7d 5c 22 20 7e 44 20 | format.t."[~D.\"~{~A~^,.~}\".~D. |
| 18b400 | 7e 44 20 7e 53 5d 7e 25 22 0a 09 20 20 20 20 20 20 73 74 61 72 74 20 76 61 6c 75 65 73 20 65 6e | ~D.~S]~%"........start.values.en |
| 18b420 | 64 20 28 63 68 61 72 2d 63 6f 64 65 20 63 68 61 72 29 20 63 68 61 72 29 0a 20 20 20 20 20 20 28 | d.(char-code.char).char).......( |
| 18b440 | 77 68 65 6e 20 76 61 6c 75 65 73 0a 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 | when.values.........(destructuri |
| 18b460 | 6e 67 2d 62 69 6e 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 65 78 69 73 74 69 6e 67 2d 73 74 61 72 | ng-bind.(&optional.existing-star |
| 18b480 | 74 20 26 72 65 73 74 20 65 78 69 73 74 69 6e 67 2d 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 | t.&rest.existing-end)........... |
| 18b4a0 | 20 20 28 63 61 72 20 28 67 65 74 68 61 73 68 20 28 63 61 72 20 76 61 6c 75 65 73 29 20 73 6f 75 | ..(car.(gethash.(car.values).sou |
| 18b4c0 | 72 63 65 2d 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 6f 6d 65 20 6d 61 63 72 | rce-map))...........;;.Some.macr |
| 18b4e0 | 6f 73 20 6d 61 79 20 72 65 74 75 72 6e 20 77 68 61 74 20 61 20 73 75 62 2d 63 61 6c 6c 20 74 6f | os.may.return.what.a.sub-call.to |
| 18b500 | 20 61 6e 6f 74 68 65 72 20 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 72 6f 64 | .another.macro...........;;.prod |
| 18b520 | 75 63 65 64 2c 20 65 2e 67 2e 20 22 23 2b 28 61 6e 64 29 20 28 61 29 22 20 6d 61 79 20 65 6e 64 | uced,.e.g.."#+(and).(a)".may.end |
| 18b540 | 20 75 70 20 73 61 76 69 6e 67 20 28 61 29 20 74 77 69 63 65 2c 0a 20 20 20 20 20 20 20 20 20 20 | .up.saving.(a).twice,........... |
| 18b560 | 3b 3b 20 6f 6e 63 65 20 66 72 6f 6d 20 23 5c 23 20 61 6e 64 20 6f 6e 63 65 20 66 72 6f 6d 20 23 | ;;.once.from.#\#.and.once.from.# |
| 18b580 | 5c 28 2e 20 49 66 20 74 68 65 20 73 61 76 65 64 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 | \(..If.the.saved.form........... |
| 18b5a0 | 3b 3b 20 69 73 20 61 20 73 75 62 66 6f 72 6d 2c 20 64 6f 6e 27 74 20 73 61 76 65 20 69 74 20 61 | ;;.is.a.subform,.don't.save.it.a |
| 18b5c0 | 67 61 69 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 65 78 69 | gain............(unless.(and.exi |
| 18b5e0 | 73 74 69 6e 67 2d 73 74 61 72 74 20 65 78 69 73 74 69 6e 67 2d 65 6e 64 0a 20 20 20 20 20 20 20 | sting-start.existing-end........ |
| 18b600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 3d 20 73 74 61 72 74 20 65 78 69 73 74 69 | ................(<=.start.existi |
| 18b620 | 6e 67 2d 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-start.end)................... |
| 18b640 | 20 20 20 20 20 28 3c 3d 20 73 74 61 72 74 20 65 78 69 73 74 69 6e 67 2d 65 6e 64 20 65 6e 64 29 | .....(<=.start.existing-end.end) |
| 18b660 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 73 74 61 72 74 20 | ).............(push.(cons.start. |
| 18b680 | 65 6e 64 29 20 28 67 65 74 68 61 73 68 20 28 63 61 72 20 76 61 6c 75 65 73 29 20 73 6f 75 72 63 | end).(gethash.(car.values).sourc |
| 18b6a0 | 65 2d 6d 61 70 29 29 29 29 29 0a 20 20 20 20 20 20 28 76 61 6c 75 65 73 2d 6c 69 73 74 20 76 61 | e-map))))).......(values-list.va |
| 18b6c0 | 6c 75 65 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 72 65 63 | lues))))..(defun.make-source-rec |
| 18b6e0 | 6f 72 64 69 6e 67 2d 72 65 61 64 74 61 62 6c 65 20 28 72 65 61 64 74 61 62 6c 65 20 73 6f 75 72 | ording-readtable.(readtable.sour |
| 18b700 | 63 65 2d 6d 61 70 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 72 65 61 64 74 61 62 | ce-map)...(declare.(type.readtab |
| 18b720 | 6c 65 20 72 65 61 64 74 61 62 6c 65 29 20 28 74 79 70 65 20 68 61 73 68 2d 74 61 62 6c 65 20 73 | le.readtable).(type.hash-table.s |
| 18b740 | 6f 75 72 63 65 2d 6d 61 70 29 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 6f 75 72 63 65 20 70 | ource-map))..."Return.a.source.p |
| 18b760 | 6f 73 69 74 69 6f 6e 20 72 65 63 6f 72 64 69 6e 67 20 63 6f 70 79 20 6f 66 20 52 45 41 44 54 41 | osition.recording.copy.of.READTA |
| 18b780 | 42 4c 45 2e 0a 54 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 73 20 61 72 65 20 73 74 | BLE..The.source.locations.are.st |
| 18b7a0 | 6f 72 65 64 20 69 6e 20 53 4f 55 52 43 45 2d 4d 41 50 2e 22 0a 20 20 28 66 6c 65 74 20 28 28 69 | ored.in.SOURCE-MAP."...(flet.((i |
| 18b7c0 | 6e 73 74 61 6c 6c 2d 73 70 65 63 69 61 6c 2d 73 68 61 72 70 64 6f 74 2d 72 65 61 64 65 72 20 28 | nstall-special-sharpdot-reader.( |
| 18b7e0 | 72 74 29 0a 09 20 20 20 28 6c 65 74 20 28 28 66 75 6e 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 | rt).....(let.((fun.(ignore-error |
| 18b800 | 73 0a 09 09 09 28 67 65 74 2d 64 69 73 70 61 74 63 68 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 | s....(get-dispatch-macro-charact |
| 18b820 | 65 72 20 23 5c 23 20 23 5c 2e 20 72 74 29 29 29 29 0a 09 20 20 20 20 20 28 77 68 65 6e 20 66 75 | er.#\#.#\..rt)))).......(when.fu |
| 18b840 | 6e 0a 09 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 77 72 61 70 70 65 72 20 28 6d 61 6b 65 2d 73 | n.........(let.((wrapper.(make-s |
| 18b860 | 68 61 72 70 64 6f 74 2d 72 65 61 64 65 72 20 66 75 6e 29 29 29 0a 09 09 20 28 73 65 74 2d 64 69 | harpdot-reader.fun)))....(set-di |
| 18b880 | 73 70 61 74 63 68 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 20 23 5c 23 20 23 5c 2e 20 77 | spatch-macro-character.#\#.#\..w |
| 18b8a0 | 72 61 70 70 65 72 20 72 74 29 29 29 29 29 0a 09 20 28 69 6e 73 74 61 6c 6c 2d 77 72 61 70 70 65 | rapper.rt)))))...(install-wrappe |
| 18b8c0 | 72 73 20 28 72 74 29 0a 09 20 20 20 28 64 6f 74 69 6d 65 73 20 28 63 6f 64 65 20 31 32 38 29 0a | rs.(rt).....(dotimes.(code.128). |
| 18b8e0 | 09 20 20 20 20 20 28 6c 65 74 20 28 28 63 68 61 72 20 28 63 6f 64 65 2d 63 68 61 72 20 63 6f 64 | ......(let.((char.(code-char.cod |
| 18b900 | 65 29 29 29 0a 09 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e | e))).........(multiple-value-bin |
| 18b920 | 64 20 28 66 75 6e 20 6e 74 29 20 28 67 65 74 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 20 | d.(fun.nt).(get-macro-character. |
| 18b940 | 63 68 61 72 20 72 74 29 0a 09 09 20 28 77 68 65 6e 20 66 75 6e 0a 09 09 20 20 20 28 6c 65 74 20 | char.rt)....(when.fun......(let. |
| 18b960 | 28 28 77 72 61 70 70 65 72 20 28 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 72 65 63 6f 72 64 65 72 20 | ((wrapper.(make-source-recorder. |
| 18b980 | 66 75 6e 20 73 6f 75 72 63 65 2d 6d 61 70 29 29 29 0a 09 09 20 20 20 20 20 28 73 65 74 2d 6d 61 | fun.source-map)))........(set-ma |
| 18b9a0 | 63 72 6f 2d 63 68 61 72 61 63 74 65 72 20 63 68 61 72 20 77 72 61 70 70 65 72 20 6e 74 20 72 74 | cro-character.char.wrapper.nt.rt |
| 18b9c0 | 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 72 74 20 28 63 6f 70 79 2d 72 65 61 | )))))))).....(let.((rt.(copy-rea |
| 18b9e0 | 64 74 61 62 6c 65 20 72 65 61 64 74 61 62 6c 65 29 29 29 0a 20 20 20 20 20 20 28 69 6e 73 74 61 | dtable.readtable))).......(insta |
| 18ba00 | 6c 6c 2d 73 70 65 63 69 61 6c 2d 73 68 61 72 70 64 6f 74 2d 72 65 61 64 65 72 20 72 74 29 0a 20 | ll-special-sharpdot-reader.rt).. |
| 18ba20 | 20 20 20 20 20 28 69 6e 73 74 61 6c 6c 2d 77 72 61 70 70 65 72 73 20 72 74 29 0a 20 20 20 20 20 | .....(install-wrappers.rt)...... |
| 18ba40 | 20 72 74 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 74 72 79 20 74 6f 20 64 6f 20 74 68 69 73 | .rt)))..;;.FIXME:.try.to.do.this |
| 18ba60 | 20 77 69 74 68 20 2a 52 45 41 44 2d 53 55 50 50 52 45 53 53 2a 20 3d 20 74 20 74 6f 20 61 76 6f | .with.*READ-SUPPRESS*.=.t.to.avo |
| 18ba80 | 69 64 20 69 6e 74 65 72 6e 69 6e 67 2e 0a 3b 3b 20 53 68 6f 75 6c 64 20 62 65 20 70 6f 73 73 69 | id.interning..;;.Should.be.possi |
| 18baa0 | 62 6c 65 20 61 73 20 77 65 20 6f 6e 6c 79 20 6e 65 65 64 20 74 68 65 20 72 69 67 68 74 20 22 6c | ble.as.we.only.need.the.right."l |
| 18bac0 | 69 73 74 20 73 74 72 75 63 74 75 72 65 22 20 61 6e 64 0a 3b 3b 20 6e 6f 74 20 74 68 65 20 72 69 | ist.structure".and.;;.not.the.ri |
| 18bae0 | 67 68 74 20 61 74 6f 6d 73 2e 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 61 6e 64 2d 72 65 63 6f 72 | ght.atoms..(defun.read-and-recor |
| 18bb00 | 64 2d 73 6f 75 72 63 65 2d 6d 61 70 20 28 73 74 72 65 61 6d 29 0a 20 20 22 52 65 61 64 20 74 68 | d-source-map.(stream)..."Read.th |
| 18bb20 | 65 20 6e 65 78 74 20 6f 62 6a 65 63 74 20 66 72 6f 6d 20 53 54 52 45 41 4d 2e 0a 52 65 74 75 72 | e.next.object.from.STREAM..Retur |
| 18bb40 | 6e 20 74 68 65 20 6f 62 6a 65 63 74 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 61 20 68 61 73 | n.the.object.together.with.a.has |
| 18bb60 | 68 74 61 62 6c 65 20 74 68 61 74 20 6d 61 70 73 0a 73 75 62 65 78 70 72 65 73 73 69 6f 6e 73 20 | htable.that.maps.subexpressions. |
| 18bb80 | 6f 66 20 74 68 65 20 6f 62 6a 65 63 74 20 74 6f 20 73 74 72 65 61 6d 20 70 6f 73 69 74 69 6f 6e | of.the.object.to.stream.position |
| 18bba0 | 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 6f 75 72 63 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 68 | s."...(let*.((source-map.(make-h |
| 18bbc0 | 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 29 29 0a 20 20 20 20 20 20 20 20 20 | ash-table.:test.#'eq)).......... |
| 18bbe0 | 28 2a 72 65 61 64 74 61 62 6c 65 2a 20 28 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 72 65 63 6f 72 64 | (*readtable*.(make-source-record |
| 18bc00 | 69 6e 67 2d 72 65 61 64 74 61 62 6c 65 20 2a 72 65 61 64 74 61 62 6c 65 2a 20 73 6f 75 72 63 65 | ing-readtable.*readtable*.source |
| 18bc20 | 2d 6d 61 70 29 29 0a 09 20 28 2a 72 65 61 64 2d 73 75 70 70 72 65 73 73 2a 20 6e 69 6c 29 0a 09 | -map))...(*read-suppress*.nil).. |
| 18bc40 | 20 28 73 74 61 72 74 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 65 61 6d 29 29 0a | .(start.(file-position.stream)). |
| 18bc60 | 09 20 28 66 6f 72 6d 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 72 65 61 64 20 73 74 72 | ..(form.(ignore-errors.(read.str |
| 18bc80 | 65 61 6d 29 29 29 0a 09 20 28 65 6e 64 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 | eam)))...(end.(file-position.str |
| 18bca0 | 65 61 6d 29 29 29 0a 20 20 20 20 3b 3b 20 65 6e 73 75 72 65 20 74 68 61 74 20 61 74 20 6c 65 61 | eam))).....;;.ensure.that.at.lea |
| 18bcc0 | 73 74 20 46 4f 52 4d 20 69 73 20 69 6e 20 74 68 65 20 73 6f 75 72 63 65 2d 6d 61 70 0a 20 20 20 | st.FORM.is.in.the.source-map.... |
| 18bce0 | 20 28 75 6e 6c 65 73 73 20 28 67 65 74 68 61 73 68 20 66 6f 72 6d 20 73 6f 75 72 63 65 2d 6d 61 | .(unless.(gethash.form.source-ma |
| 18bd00 | 70 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 73 74 61 72 74 20 65 6e 64 29 20 | p).......(push.(cons.start.end). |
| 18bd20 | 28 67 65 74 68 61 73 68 20 66 6f 72 6d 20 73 6f 75 72 63 65 2d 6d 61 70 29 29 29 0a 20 20 20 20 | (gethash.form.source-map)))..... |
| 18bd40 | 28 76 61 6c 75 65 73 20 66 6f 72 6d 20 73 6f 75 72 63 65 2d 6d 61 70 29 29 29 0a 0a 28 64 65 66 | (values.form.source-map)))..(def |
| 18bd60 | 75 6e 20 73 74 61 72 74 73 2d 77 69 74 68 2d 70 20 28 73 74 72 69 6e 67 20 70 72 65 66 69 78 29 | un.starts-with-p.(string.prefix) |
| 18bd80 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 73 74 72 69 6e 67 20 73 74 72 69 6e 67 20 | ...(declare.(type.string.string. |
| 18bda0 | 70 72 65 66 69 78 29 29 0a 20 20 28 6e 6f 74 20 28 6d 69 73 6d 61 74 63 68 20 73 74 72 69 6e 67 | prefix))...(not.(mismatch.string |
| 18bdc0 | 20 70 72 65 66 69 78 0a 09 09 20 3a 65 6e 64 31 20 28 6d 69 6e 20 28 6c 65 6e 67 74 68 20 73 74 | .prefix....:end1.(min.(length.st |
| 18bde0 | 72 69 6e 67 29 20 28 6c 65 6e 67 74 68 20 70 72 65 66 69 78 29 29 0a 09 09 20 3a 74 65 73 74 20 | ring).(length.prefix))....:test. |
| 18be00 | 23 27 63 68 61 72 2d 65 71 75 61 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 72 61 63 74 2d | #'char-equal)))..(defun.extract- |
| 18be20 | 70 61 63 6b 61 67 65 20 28 6c 69 6e 65 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 | package.(line)...(declare.(type. |
| 18be40 | 73 74 72 69 6e 67 20 6c 69 6e 65 29 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 63 61 64 | string.line))...(let.((name.(cad |
| 18be60 | 72 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 6c 69 6e 65 29 29 29 29 0a 20 20 20 | r.(read-from-string.line)))).... |
| 18be80 | 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 6e 61 6d 65 29 29 29 0a 0a 23 2b 28 6f 72 29 0a 28 | .(find-package.name)))..#+(or).( |
| 18bea0 | 70 72 6f 67 6e 0a 20 20 28 61 73 73 65 72 74 20 28 65 78 74 72 61 63 74 2d 70 61 63 6b 61 67 65 | progn...(assert.(extract-package |
| 18bec0 | 20 22 28 69 6e 2d 70 61 63 6b 61 67 65 20 63 6c 29 22 29 29 0a 20 20 28 61 73 73 65 72 74 20 28 | ."(in-package.cl)"))...(assert.( |
| 18bee0 | 65 78 74 72 61 63 74 2d 70 61 63 6b 61 67 65 20 22 28 63 6c 3a 69 6e 2d 70 61 63 6b 61 67 65 20 | extract-package."(cl:in-package. |
| 18bf00 | 63 6c 29 22 29 29 0a 20 20 28 61 73 73 65 72 74 20 28 65 78 74 72 61 63 74 2d 70 61 63 6b 61 67 | cl)"))...(assert.(extract-packag |
| 18bf20 | 65 20 22 28 69 6e 2d 70 61 63 6b 61 67 65 20 5c 22 43 4c 5c 22 29 22 29 29 0a 20 20 28 61 73 73 | e."(in-package.\"CL\")"))...(ass |
| 18bf40 | 65 72 74 20 28 65 78 74 72 61 63 74 2d 70 61 63 6b 61 67 65 20 22 28 69 6e 2d 70 61 63 6b 61 67 | ert.(extract-package."(in-packag |
| 18bf60 | 65 20 23 3a 63 6c 29 22 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 64 6f 20 73 6f 6d 65 74 68 | e.#:cl)")))..;;.FIXME:.do.someth |
| 18bf80 | 69 6e 67 20 63 6c 65 61 6e 65 72 20 74 68 61 6e 20 74 68 69 73 2e 0a 28 64 65 66 75 6e 20 72 65 | ing.cleaner.than.this..(defun.re |
| 18bfa0 | 61 64 74 61 62 6c 65 2d 66 6f 72 2d 70 61 63 6b 61 67 65 20 28 70 61 63 6b 61 67 65 29 0a 20 20 | adtable-for-package.(package)... |
| 18bfc0 | 3b 3b 20 4b 4c 55 44 47 45 3a 20 64 75 65 20 74 6f 20 74 68 65 20 6c 6f 61 64 20 6f 72 64 65 72 | ;;.KLUDGE:.due.to.the.load.order |
| 18bfe0 | 20 77 65 20 63 61 6e 27 74 20 72 65 66 65 72 65 6e 63 65 20 74 68 65 20 73 77 61 6e 6b 0a 20 20 | .we.can't.reference.the.swank... |
| 18c000 | 3b 3b 20 70 61 63 6b 61 67 65 2e 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 72 65 61 64 2d 66 72 6f | ;;.package....(funcall.(read-fro |
| 18c020 | 6d 2d 73 74 72 69 6e 67 20 22 73 77 61 6e 6b 3a 3a 67 75 65 73 73 2d 62 75 66 66 65 72 2d 72 65 | m-string."swank::guess-buffer-re |
| 18c040 | 61 64 74 61 62 6c 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 75 70 63 | adtable")............(string-upc |
| 18c060 | 61 73 65 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 29 29 29 0a 0a 3b | ase.(package-name.package))))..; |
| 18c080 | 3b 20 53 65 61 72 63 68 20 53 54 52 45 41 4d 20 66 6f 72 20 61 20 22 28 69 6e 2d 70 61 63 6b 61 | ;.Search.STREAM.for.a."(in-packa |
| 18c0a0 | 67 65 20 2e 2e 2e 29 22 20 66 6f 72 6d 2e 20 20 55 73 65 20 74 68 61 74 20 74 6f 20 64 65 72 69 | ge....)".form...Use.that.to.deri |
| 18c0c0 | 76 65 0a 3b 3b 20 74 68 65 20 76 61 6c 75 65 73 20 66 6f 72 20 2a 50 41 43 4b 41 47 45 2a 20 61 | ve.;;.the.values.for.*PACKAGE*.a |
| 18c0e0 | 6e 64 20 2a 52 45 41 44 54 41 42 4c 45 2a 2e 0a 3b 3b 0a 3b 3b 20 49 44 45 41 3a 20 6d 6f 76 65 | nd.*READTABLE*..;;.;;.IDEA:.move |
| 18c100 | 20 47 55 45 53 53 2d 52 45 41 44 45 52 2d 53 54 41 54 45 20 74 6f 20 73 77 61 6e 6b 2e 6c 69 73 | .GUESS-READER-STATE.to.swank.lis |
| 18c120 | 70 20 73 6f 20 74 68 61 74 20 61 6c 6c 20 62 61 63 6b 65 6e 64 73 0a 3b 3b 20 75 73 65 20 74 68 | p.so.that.all.backends.;;.use.th |
| 18c140 | 65 20 73 61 6d 65 20 68 65 75 72 69 73 74 69 63 20 61 6e 64 20 74 6f 20 61 76 6f 69 64 20 74 68 | e.same.heuristic.and.to.avoid.th |
| 18c160 | 65 20 6e 65 65 64 20 74 6f 20 61 63 63 65 73 73 0a 3b 3b 20 73 77 61 6e 6b 3a 3a 67 75 65 73 73 | e.need.to.access.;;.swank::guess |
| 18c180 | 2d 62 75 66 66 65 72 2d 72 65 61 64 74 61 62 6c 65 20 66 72 6f 6d 20 68 65 72 65 2e 0a 28 64 65 | -buffer-readtable.from.here..(de |
| 18c1a0 | 66 75 6e 20 67 75 65 73 73 2d 72 65 61 64 65 72 2d 73 74 61 74 65 20 28 73 74 72 65 61 6d 29 0a | fun.guess-reader-state.(stream). |
| 18c1c0 | 20 20 28 6c 65 74 2a 20 28 28 70 6f 69 6e 74 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 | ..(let*.((point.(file-position.s |
| 18c1e0 | 74 72 65 61 6d 29 29 0a 09 20 28 70 6b 67 20 2a 70 61 63 6b 61 67 65 2a 29 29 0a 20 20 20 20 28 | tream))...(pkg.*package*)).....( |
| 18c200 | 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 65 61 6d 20 30 29 0a 20 20 20 20 28 6c 6f 6f | file-position.stream.0).....(loo |
| 18c220 | 70 20 66 6f 72 20 6c 69 6e 65 20 3d 20 28 72 65 61 64 2d 6c 69 6e 65 20 73 74 72 65 61 6d 20 6e | p.for.line.=.(read-line.stream.n |
| 18c240 | 69 6c 20 6e 69 6c 29 20 64 6f 0a 09 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 6c 69 6e 65 29 20 28 | il.nil).do....(when.(not.line).( |
| 18c260 | 72 65 74 75 72 6e 29 29 0a 09 20 20 28 77 68 65 6e 20 28 6f 72 20 28 73 74 61 72 74 73 2d 77 69 | return))....(when.(or.(starts-wi |
| 18c280 | 74 68 2d 70 20 6c 69 6e 65 20 22 28 69 6e 2d 70 61 63 6b 61 67 65 20 22 29 0a 09 09 20 20 20 20 | th-p.line."(in-package.")....... |
| 18c2a0 | 28 73 74 61 72 74 73 2d 77 69 74 68 2d 70 20 6c 69 6e 65 20 22 28 63 6c 3a 69 6e 2d 70 61 63 6b | (starts-with-p.line."(cl:in-pack |
| 18c2c0 | 61 67 65 20 22 29 29 0a 09 20 20 20 20 28 6c 65 74 20 28 28 70 20 28 65 78 74 72 61 63 74 2d 70 | age."))......(let.((p.(extract-p |
| 18c2e0 | 61 63 6b 61 67 65 20 6c 69 6e 65 29 29 29 0a 09 20 20 20 20 20 20 28 77 68 65 6e 20 70 20 28 73 | ackage.line)))........(when.p.(s |
| 18c300 | 65 74 66 20 70 6b 67 20 70 29 29 29 0a 09 20 20 20 20 28 72 65 74 75 72 6e 29 29 29 0a 20 20 20 | etf.pkg.p)))......(return))).... |
| 18c320 | 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 65 61 6d 20 70 6f 69 6e 74 29 0a 20 20 | .(file-position.stream.point)... |
| 18c340 | 20 20 28 76 61 6c 75 65 73 20 28 72 65 61 64 74 61 62 6c 65 2d 66 6f 72 2d 70 61 63 6b 61 67 65 | ..(values.(readtable-for-package |
| 18c360 | 20 70 6b 67 29 20 70 6b 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6b 69 70 2d 77 68 69 74 65 73 | .pkg).pkg)))..(defun.skip-whites |
| 18c380 | 70 61 63 65 20 28 73 74 72 65 61 6d 29 0a 20 20 28 70 65 65 6b 2d 63 68 61 72 20 74 20 73 74 72 | pace.(stream)...(peek-char.t.str |
| 18c3a0 | 65 61 6d 20 6e 69 6c 20 6e 69 6c 29 29 0a 0a 3b 3b 20 53 6b 69 70 20 6f 76 65 72 20 4e 20 74 6f | eam.nil.nil))..;;.Skip.over.N.to |
| 18c3c0 | 70 6c 65 76 65 6c 20 66 6f 72 6d 73 2e 0a 28 64 65 66 75 6e 20 73 6b 69 70 2d 74 6f 70 6c 65 76 | plevel.forms..(defun.skip-toplev |
| 18c3e0 | 65 6c 2d 66 6f 72 6d 73 20 28 6e 20 73 74 72 65 61 6d 29 0a 20 20 28 6c 65 74 20 28 28 2a 72 65 | el-forms.(n.stream)...(let.((*re |
| 18c400 | 61 64 2d 73 75 70 70 72 65 73 73 2a 20 74 29 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 | ad-suppress*.t)).....(dotimes.(i |
| 18c420 | 20 6e 29 0a 20 20 20 20 20 20 28 72 65 61 64 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 28 73 6b | .n).......(read.stream)).....(sk |
| 18c440 | 69 70 2d 77 68 69 74 65 73 70 61 63 65 20 73 74 72 65 61 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ip-whitespace.stream)))..(defun. |
| 18c460 | 72 65 61 64 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 20 28 6e 20 73 74 72 65 61 6d 29 0a 20 20 22 52 | read-source-form.(n.stream)..."R |
| 18c480 | 65 61 64 20 74 68 65 20 4e 74 68 20 74 6f 70 6c 65 76 65 6c 20 66 6f 72 6d 20 6e 75 6d 62 65 72 | ead.the.Nth.toplevel.form.number |
| 18c4a0 | 20 77 69 74 68 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 72 65 63 6f 72 64 69 6e 67 2e | .with.source.location.recording. |
| 18c4c0 | 0a 52 65 74 75 72 6e 20 74 68 65 20 66 6f 72 6d 20 61 6e 64 20 74 68 65 20 73 6f 75 72 63 65 2d | .Return.the.form.and.the.source- |
| 18c4e0 | 6d 61 70 2e 22 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 2a 72 | map."...(multiple-value-bind.(*r |
| 18c500 | 65 61 64 74 61 62 6c 65 2a 20 2a 70 61 63 6b 61 67 65 2a 29 20 28 67 75 65 73 73 2d 72 65 61 64 | eadtable*.*package*).(guess-read |
| 18c520 | 65 72 2d 73 74 61 74 65 20 73 74 72 65 61 6d 29 0a 20 20 20 20 28 6c 65 74 20 28 23 2b 73 62 63 | er-state.stream).....(let.(#+sbc |
| 18c540 | 6c 0a 20 20 20 20 20 20 20 20 20 20 28 2a 66 65 61 74 75 72 65 73 2a 20 28 61 70 70 65 6e 64 20 | l...........(*features*.(append. |
| 18c560 | 2a 66 65 61 74 75 72 65 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *features*...................... |
| 18c580 | 20 20 20 20 20 20 20 20 20 27 28 3a 73 62 2d 78 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........'(:sb-xc).............. |
| 18c5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 28 | .................(symbol-value.( |
| 18c5c0 | 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 2b 49 4e 54 45 52 4e 41 4c 2d 46 45 41 54 55 52 45 53 2b | find-symbol."+INTERNAL-FEATURES+ |
| 18c5e0 | 22 20 27 73 62 2d 69 6d 70 6c 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 6b 69 70 2d 74 6f 70 6c | ".'sb-impl))))).......(skip-topl |
| 18c600 | 65 76 65 6c 2d 66 6f 72 6d 73 20 6e 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 72 65 61 64 | evel-forms.n.stream).......(read |
| 18c620 | 2d 61 6e 64 2d 72 65 63 6f 72 64 2d 73 6f 75 72 63 65 2d 6d 61 70 20 73 74 72 65 61 6d 29 29 29 | -and-record-source-map.stream))) |
| 18c640 | 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 73 74 72 65 61 6d 2d 70 6f 73 | )..(defun.source-path-stream-pos |
| 18c660 | 69 74 69 6f 6e 20 28 70 61 74 68 20 73 74 72 65 61 6d 29 0a 20 20 22 53 65 61 72 63 68 20 74 68 | ition.(path.stream)..."Search.th |
| 18c680 | 65 20 73 6f 75 72 63 65 2d 70 61 74 68 20 50 41 54 48 20 69 6e 20 53 54 52 45 41 4d 20 61 6e 64 | e.source-path.PATH.in.STREAM.and |
| 18c6a0 | 20 72 65 74 75 72 6e 20 69 74 73 20 70 6f 73 69 74 69 6f 6e 2e 22 0a 20 20 28 63 68 65 63 6b 2d | .return.its.position."...(check- |
| 18c6c0 | 73 6f 75 72 63 65 2d 70 61 74 68 20 70 61 74 68 29 0a 20 20 28 64 65 73 74 72 75 63 74 75 72 69 | source-path.path)...(destructuri |
| 18c6e0 | 6e 67 2d 62 69 6e 64 20 28 74 6c 66 2d 6e 75 6d 62 65 72 20 2e 20 70 61 74 68 29 20 70 61 74 68 | ng-bind.(tlf-number...path).path |
| 18c700 | 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 6f 72 6d 20 | .....(multiple-value-bind.(form. |
| 18c720 | 73 6f 75 72 63 65 2d 6d 61 70 29 20 28 72 65 61 64 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 20 74 6c | source-map).(read-source-form.tl |
| 18c740 | 66 2d 6e 75 6d 62 65 72 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 | f-number.stream).......(source-p |
| 18c760 | 61 74 68 2d 73 6f 75 72 63 65 2d 70 6f 73 69 74 69 6f 6e 20 28 63 6f 6e 73 20 30 20 70 61 74 68 | ath-source-position.(cons.0.path |
| 18c780 | 29 20 66 6f 72 6d 20 73 6f 75 72 63 65 2d 6d 61 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 68 | ).form.source-map))))..(defun.ch |
| 18c7a0 | 65 63 6b 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 28 70 61 74 68 29 0a 20 20 28 75 6e 6c 65 73 73 | eck-source-path.(path)...(unless |
| 18c7c0 | 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(and.(consp.path).............. |
| 18c7e0 | 20 20 28 65 76 65 72 79 20 23 27 69 6e 74 65 67 65 72 70 20 70 61 74 68 29 29 0a 20 20 20 20 28 | ..(every.#'integerp.path)).....( |
| 18c800 | 65 72 72 6f 72 20 22 54 68 65 20 73 6f 75 72 63 65 2d 70 61 74 68 20 7e 53 20 69 73 20 6e 6f 74 | error."The.source-path.~S.is.not |
| 18c820 | 20 76 61 6c 69 64 2e 22 20 70 61 74 68 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d | .valid.".path)))..(defun.source- |
| 18c840 | 70 61 74 68 2d 73 74 72 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 20 28 70 61 74 68 20 73 74 72 69 6e | path-string-position.(path.strin |
| 18c860 | 67 29 0a 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 20 | g)...(with-input-from-string.(s. |
| 18c880 | 73 74 72 69 6e 67 29 0a 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 68 2d 73 74 72 65 61 6d 2d | string).....(source-path-stream- |
| 18c8a0 | 70 6f 73 69 74 69 6f 6e 20 70 61 74 68 20 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 | position.path.s)))..(defun.sourc |
| 18c8c0 | 65 2d 70 61 74 68 2d 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 28 70 61 74 68 20 66 69 6c 65 6e | e-path-file-position.(path.filen |
| 18c8e0 | 61 6d 65 29 0a 20 20 3b 3b 20 57 65 20 67 6f 20 74 68 69 73 20 6c 6f 6e 67 20 77 61 79 20 72 6f | ame)...;;.We.go.this.long.way.ro |
| 18c900 | 75 6e 64 2c 20 61 6e 64 20 64 6f 6e 27 74 20 64 69 72 65 63 74 6c 79 20 6f 70 65 72 61 74 65 20 | und,.and.don't.directly.operate. |
| 18c920 | 6f 6e 20 74 68 65 20 66 69 6c 65 0a 20 20 3b 3b 20 73 74 72 65 61 6d 20 62 65 63 61 75 73 65 20 | on.the.file...;;.stream.because. |
| 18c940 | 46 49 4c 45 2d 50 4f 53 49 54 49 4f 4e 20 28 75 73 65 64 20 61 62 6f 76 65 29 20 69 73 20 6e 6f | FILE-POSITION.(used.above).is.no |
| 18c960 | 74 20 74 6f 74 61 6c 6c 79 20 73 61 76 79 20 65 76 65 6e 0a 20 20 3b 3b 20 6f 6e 20 66 69 6c 65 | t.totally.savy.even...;;.on.file |
| 18c980 | 20 63 68 61 72 61 63 74 65 72 20 73 74 72 65 61 6d 73 3b 20 6f 6e 20 53 42 43 4c 2c 20 46 49 4c | .character.streams;.on.SBCL,.FIL |
| 18c9a0 | 45 2d 50 4f 53 49 54 49 4f 4e 20 72 65 74 75 72 6e 73 20 74 68 65 20 62 69 6e 61 72 79 0a 20 20 | E-POSITION.returns.the.binary... |
| 18c9c0 | 3b 3b 20 6f 66 66 73 65 74 2c 20 61 6e 64 20 6e 6f 74 20 74 68 65 20 63 68 61 72 61 63 74 65 72 | ;;.offset,.and.not.the.character |
| 18c9e0 | 20 6f 66 66 73 65 74 2d 2d 2d 73 63 72 65 77 69 6e 67 20 75 70 20 6f 6e 20 55 6e 69 63 6f 64 65 | .offset---screwing.up.on.Unicode |
| 18ca00 | 2e 0a 20 20 28 6c 65 74 20 28 28 74 6f 70 6c 65 76 65 6c 2d 6e 75 6d 62 65 72 20 28 66 69 72 73 | ....(let.((toplevel-number.(firs |
| 18ca20 | 74 20 70 61 74 68 29 29 0a 09 28 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 77 69 74 68 2d 6f 70 | t.path))..(buffer)).....(with-op |
| 18ca40 | 65 6e 2d 66 69 6c 65 20 28 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 73 | en-file.(file.filename).......(s |
| 18ca60 | 6b 69 70 2d 74 6f 70 6c 65 76 65 6c 2d 66 6f 72 6d 73 20 28 31 2b 20 74 6f 70 6c 65 76 65 6c 2d | kip-toplevel-forms.(1+.toplevel- |
| 18ca80 | 6e 75 6d 62 65 72 29 20 66 69 6c 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 6e 64 70 6f | number).file).......(let.((endpo |
| 18caa0 | 73 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 29 29 29 0a 09 28 73 65 74 71 20 | s.(file-position.file)))..(setq. |
| 18cac0 | 62 75 66 66 65 72 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 28 6c 69 73 74 20 65 6e 64 70 6f 73 29 | buffer.(make-array.(list.endpos) |
| 18cae0 | 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 27 63 68 61 72 61 63 74 65 72 0a 09 09 09 09 20 3a | .:element-type.'character......: |
| 18cb00 | 69 6e 69 74 69 61 6c 2d 65 6c 65 6d 65 6e 74 20 23 5c 53 70 61 63 65 29 29 0a 09 28 61 73 73 65 | initial-element.#\Space))..(asse |
| 18cb20 | 72 74 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 20 30 29 29 0a 09 28 72 65 61 | rt.(file-position.file.0))..(rea |
| 18cb40 | 64 2d 73 65 71 75 65 6e 63 65 20 62 75 66 66 65 72 20 66 69 6c 65 20 3a 65 6e 64 20 65 6e 64 70 | d-sequence.buffer.file.:end.endp |
| 18cb60 | 6f 73 29 29 29 0a 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 68 2d 73 74 72 69 6e 67 2d 70 6f | os))).....(source-path-string-po |
| 18cb80 | 73 69 74 69 6f 6e 20 70 61 74 68 20 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 67 65 6e 65 72 | sition.path.buffer)))..(defgener |
| 18cba0 | 69 63 20 73 65 78 70 2d 69 6e 2d 62 6f 75 6e 64 73 2d 70 20 28 73 65 78 70 20 69 29 0a 20 20 28 | ic.sexp-in-bounds-p.(sexp.i)...( |
| 18cbc0 | 3a 6d 65 74 68 6f 64 20 28 28 6c 69 73 74 20 6c 69 73 74 29 20 69 29 0a 20 20 20 20 28 3c 20 69 | :method.((list.list).i).....(<.i |
| 18cbe0 | 20 28 6c 6f 6f 70 20 66 6f 72 20 65 20 6f 6e 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 | .(loop.for.e.on.list............ |
| 18cc00 | 20 20 20 20 63 6f 75 6e 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6e | ....count.t................if.(n |
| 18cc20 | 6f 74 20 28 6c 69 73 74 70 20 28 63 64 72 20 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ot.(listp.(cdr.e)))............. |
| 18cc40 | 20 20 20 63 6f 75 6e 74 20 74 29 29 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 28 73 65 78 70 20 | ...count.t)))...(:method.((sexp. |
| 18cc60 | 74 29 20 69 29 20 6e 69 6c 29 29 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 73 65 78 70 2d 72 65 | t).i).nil))..(defgeneric.sexp-re |
| 18cc80 | 66 20 28 73 65 78 70 20 6e 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 28 73 20 6c 69 73 74 29 20 | f.(sexp.n)...(:method.((s.list). |
| 18cca0 | 6e 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 | n).....(loop.for.i.from.0....... |
| 18ccc0 | 20 20 20 20 66 6f 72 20 65 20 6f 6e 20 73 0a 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 3d | ....for.e.on.s...........when.(= |
| 18cce0 | 20 69 20 6e 29 20 72 65 74 75 72 6e 20 28 63 61 72 20 65 29 0a 20 20 20 20 20 20 20 20 20 20 69 | .i.n).return.(car.e)...........i |
| 18cd00 | 66 20 28 61 6e 64 20 28 3d 20 28 31 2b 20 69 29 20 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | f.(and.(=.(1+.i).n)............. |
| 18cd20 | 20 20 20 20 20 20 28 6e 6f 74 20 28 6c 69 73 74 70 20 28 63 64 72 20 65 29 29 29 29 0a 20 20 20 | ......(not.(listp.(cdr.e)))).... |
| 18cd40 | 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 63 64 72 20 65 29 29 29 29 0a 0a 28 64 65 66 75 6e | .......return.(cdr.e))))..(defun |
| 18cd60 | 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 73 6f 75 72 63 65 2d 70 6f 73 69 74 69 6f 6e 20 28 70 61 | .source-path-source-position.(pa |
| 18cd80 | 74 68 20 66 6f 72 6d 20 73 6f 75 72 63 65 2d 6d 61 70 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 | th.form.source-map)..."Return.th |
| 18cda0 | 65 20 73 74 61 72 74 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 50 41 54 48 20 66 72 6f 6d 20 46 4f | e.start.position.of.PATH.from.FO |
| 18cdc0 | 52 4d 20 61 6e 64 20 53 4f 55 52 43 45 2d 4d 41 50 2e 20 20 41 6c 6c 0a 73 75 62 66 6f 72 6d 73 | RM.and.SOURCE-MAP...All.subforms |
| 18cde0 | 20 61 6c 6f 6e 67 20 74 68 65 20 70 61 74 68 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 20 61 | .along.the.path.are.considered.a |
| 18ce00 | 6e 64 20 74 68 65 20 73 74 61 72 74 20 61 6e 64 20 65 6e 64 20 70 6f 73 69 74 69 6f 6e 0a 6f 66 | nd.the.start.and.end.position.of |
| 18ce20 | 20 74 68 65 20 64 65 65 70 65 73 74 20 28 69 2e 65 2e 20 73 6d 61 6c 6c 65 73 74 29 20 70 6f 73 | .the.deepest.(i.e..smallest).pos |
| 18ce40 | 73 69 62 6c 65 20 66 6f 72 6d 20 69 73 20 72 65 74 75 72 6e 65 64 2e 22 0a 20 20 3b 3b 20 63 6f | sible.form.is.returned."...;;.co |
| 18ce60 | 6d 70 75 74 65 20 61 6c 6c 20 73 75 62 66 6f 72 6d 73 20 61 6c 6f 6e 67 20 70 61 74 68 0a 20 20 | mpute.all.subforms.along.path... |
| 18ce80 | 28 6c 65 74 20 28 28 66 6f 72 6d 73 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 69 6e 20 70 61 74 68 | (let.((forms.(loop.for.i.in.path |
| 18cea0 | 0a 09 09 20 20 20 20 20 66 6f 72 20 66 20 3d 20 66 6f 72 6d 20 74 68 65 6e 20 28 69 66 20 28 73 | ........for.f.=.form.then.(if.(s |
| 18cec0 | 65 78 70 2d 69 6e 2d 62 6f 75 6e 64 73 2d 70 20 66 20 69 29 0a 09 09 09 09 09 20 20 20 28 73 65 | exp-in-bounds-p.f.i).........(se |
| 18cee0 | 78 70 2d 72 65 66 20 66 20 69 29 29 0a 09 09 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 66 29 29 29 | xp-ref.f.i))........collect.f))) |
| 18cf00 | 0a 20 20 20 20 3b 3b 20 73 65 6c 65 63 74 20 74 68 65 20 66 69 72 73 74 20 73 75 62 66 6f 72 6d | .....;;.select.the.first.subform |
| 18cf20 | 20 70 72 65 73 65 6e 74 20 69 6e 20 73 6f 75 72 63 65 2d 6d 61 70 0a 20 20 20 20 28 6c 6f 6f 70 | .present.in.source-map.....(loop |
| 18cf40 | 20 66 6f 72 20 66 6f 72 6d 20 69 6e 20 28 6e 72 65 76 65 72 73 65 20 66 6f 72 6d 73 29 0a 09 20 | .for.form.in.(nreverse.forms)... |
| 18cf60 | 20 66 6f 72 20 28 28 73 74 61 72 74 20 2e 20 65 6e 64 29 20 2e 20 72 65 73 74 29 20 3d 20 28 67 | .for.((start...end)...rest).=.(g |
| 18cf80 | 65 74 68 61 73 68 20 66 6f 72 6d 20 73 6f 75 72 63 65 2d 6d 61 70 29 0a 09 20 20 77 68 65 6e 20 | ethash.form.source-map)....when. |
| 18cfa0 | 28 61 6e 64 20 73 74 61 72 74 20 65 6e 64 20 28 6e 6f 74 20 72 65 73 74 29 29 0a 09 20 20 72 65 | (and.start.end.(not.rest))....re |
| 18cfc0 | 74 75 72 6e 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 73 74 61 72 74 20 65 6e 64 29 29 | turn.(return.(values.start.end)) |
| 18cfe0 | 29 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | )))............................. |
| 18d000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 2e 6c 69 73 70 00 00 00 | slime-2.31/swank/backend.lisp... |
| 18d020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 18d080 | 30 31 36 31 33 31 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 36 32 31 00 20 30 00 00 00 | 0161315.00000000000.014621..0... |
| 18d0a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d0c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d0e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 18d120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 18d140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d200 | 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 3b 20 6f | ;;;.-*-.indent-tabs-mode:.nil;.o |
| 18d220 | 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 3a 20 22 3b 3b 3b 3b 3b 2a 22 20 2d 2a 2d 0a 3b 3b 3b 0a | utline-regexp:.";;;;;*".-*-.;;;. |
| 18d240 | 3b 3b 3b 20 73 6c 69 6d 65 2d 62 61 63 6b 65 6e 64 2e 6c 69 73 70 20 2d 2d 2d 20 53 4c 49 4d 45 | ;;;.slime-backend.lisp.---.SLIME |
| 18d260 | 20 62 61 63 6b 65 6e 64 20 69 6e 74 65 72 66 61 63 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 43 72 65 61 | .backend.interface..;;;.;;;.Crea |
| 18d280 | 74 65 64 20 62 79 20 4a 61 6d 65 73 20 42 69 65 6c 6d 61 6e 20 69 6e 20 32 30 30 33 2e 20 52 65 | ted.by.James.Bielman.in.2003..Re |
| 18d2a0 | 6c 65 61 73 65 64 20 69 6e 74 6f 20 74 68 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2e 0a 3b | leased.into.the.public.domain..; |
| 18d2c0 | 3b 3b 0a 3b 3b 3b 3b 20 46 72 6f 6e 74 6d 61 74 74 65 72 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 | ;;.;;;;.Frontmatter.;;;.;;;.This |
| 18d2e0 | 20 66 69 6c 65 20 64 65 66 69 6e 65 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 | .file.defines.the.functions.that |
| 18d300 | 20 6d 75 73 74 20 62 65 20 69 6d 70 6c 65 6d 65 6e 74 65 64 0a 3b 3b 3b 20 73 65 70 61 72 61 74 | .must.be.implemented.;;;.separat |
| 18d320 | 65 6c 79 20 66 6f 72 20 65 61 63 68 20 4c 69 73 70 2e 20 45 61 63 68 20 69 73 20 64 65 63 6c 61 | ely.for.each.Lisp..Each.is.decla |
| 18d340 | 72 65 64 20 61 73 20 61 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 0a 3b 3b 3b 20 66 6f | red.as.a.generic.function.;;;.fo |
| 18d360 | 72 20 77 68 69 63 68 20 73 77 61 6e 6b 2d 3c 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 3e 2e 6c | r.which.swank-<implementation>.l |
| 18d380 | 69 73 70 20 70 72 6f 76 69 64 65 73 20 6d 65 74 68 6f 64 73 2e 0a 0a 28 69 6e 2d 70 61 63 6b 61 | isp.provides.methods...(in-packa |
| 18d3a0 | 67 65 20 73 77 61 6e 6b 29 0a 0a 3b 3b 3b 20 46 6f 72 77 61 72 64 20 72 65 66 65 72 65 6e 63 65 | ge.swank)..;;;.Forward.reference |
| 18d3c0 | 73 0a 28 64 65 66 76 61 72 20 2a 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 2a 29 | s.(defvar.*communication-style*) |
| 18d3e0 | 0a 28 64 65 66 76 61 72 20 2a 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d 63 6f 6e 64 69 74 69 | .(defvar.*swank-debugger-conditi |
| 18d400 | 6f 6e 2a 20 6e 69 6c 0a 20 20 22 54 68 65 20 63 6f 6e 64 69 74 69 6f 6e 20 62 65 69 6e 67 20 64 | on*.nil..."The.condition.being.d |
| 18d420 | 65 62 75 67 67 65 64 2e 22 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 62 61 | ebugged.")..(in-package.swank/ba |
| 18d440 | 63 6b 65 6e 64 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 65 74 61 63 6f 64 65 0a 0a 28 64 65 66 70 61 72 | ckend)....;;;;.Metacode..(defpar |
| 18d460 | 61 6d 65 74 65 72 20 2a 64 65 62 75 67 2d 73 77 61 6e 6b 2d 62 61 63 6b 65 6e 64 2a 20 6e 69 6c | ameter.*debug-swank-backend*.nil |
| 18d480 | 0a 20 20 22 49 66 20 74 68 69 73 20 69 73 20 74 72 75 65 2c 20 62 61 63 6b 65 6e 64 73 20 73 68 | ..."If.this.is.true,.backends.sh |
| 18d4a0 | 6f 75 6c 64 20 6e 6f 74 20 63 61 74 63 68 20 65 72 72 6f 72 73 20 62 75 74 20 65 6e 74 65 72 20 | ould.not.catch.errors.but.enter. |
| 18d4c0 | 74 68 65 0a 64 65 62 75 67 67 65 72 20 77 68 65 72 65 20 61 70 70 72 6f 70 72 69 61 74 65 2e 20 | the.debugger.where.appropriate.. |
| 18d4e0 | 41 6c 73 6f 2c 20 74 68 65 79 20 73 68 6f 75 6c 64 20 6e 6f 74 20 70 65 72 66 6f 72 6d 20 62 61 | Also,.they.should.not.perform.ba |
| 18d500 | 63 6b 74 72 61 63 65 0a 6d 61 67 69 63 20 62 75 74 20 72 65 61 6c 6c 79 20 73 68 6f 77 20 65 76 | cktrace.magic.but.really.show.ev |
| 18d520 | 65 72 79 20 66 72 61 6d 65 20 69 6e 63 6c 75 64 69 6e 67 20 53 57 41 4e 4b 20 72 65 6c 61 74 65 | ery.frame.including.SWANK.relate |
| 18d540 | 64 20 6f 6e 65 73 2e 22 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 69 6e 74 65 72 66 | d.ones.")..(defparameter.*interf |
| 18d560 | 61 63 65 2d 66 75 6e 63 74 69 6f 6e 73 2a 20 27 28 29 0a 20 20 22 54 68 65 20 6e 61 6d 65 73 20 | ace-functions*.'()..."The.names. |
| 18d580 | 6f 66 20 61 6c 6c 20 69 6e 74 65 72 66 61 63 65 20 66 75 6e 63 74 69 6f 6e 73 2e 22 29 0a 0a 28 | of.all.interface.functions.")..( |
| 18d5a0 | 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 75 6e 69 6d 70 6c 65 6d 65 6e 74 65 64 2d 69 6e 74 65 | defparameter.*unimplemented-inte |
| 18d5c0 | 72 66 61 63 65 73 2a 20 27 28 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 69 6e 74 65 72 66 61 63 65 | rfaces*.'()..."List.of.interface |
| 18d5e0 | 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 61 72 65 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e | .functions.that.are.not.implemen |
| 18d600 | 74 65 64 2e 0a 44 45 46 49 4e 54 45 52 46 41 43 45 20 61 64 64 73 20 74 6f 20 74 68 69 73 20 6c | ted..DEFINTERFACE.adds.to.this.l |
| 18d620 | 69 73 74 20 61 6e 64 20 44 45 46 49 4d 50 4c 45 4d 45 4e 54 41 54 49 4f 4e 20 72 65 6d 6f 76 65 | ist.and.DEFIMPLEMENTATION.remove |
| 18d640 | 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 6c 6f 67 2d 6f 75 74 70 75 74 2a 20 6e 69 6c 29 20 | s.")..(defvar.*log-output*.nil). |
| 18d660 | 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 68 6f 75 6c 64 20 62 65 20 6e 69 6c 20 66 6f 72 20 69 | ...........;.should.be.nil.for.i |
| 18d680 | 6d 61 67 65 20 64 75 6d 70 65 72 73 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 6e 74 65 72 | mage.dumpers..(defmacro.definter |
| 18d6a0 | 66 61 63 65 20 28 6e 61 6d 65 20 61 72 67 73 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 26 72 | face.(name.args.documentation.&r |
| 18d6c0 | 65 73 74 20 64 65 66 61 75 6c 74 2d 62 6f 64 79 29 0a 20 20 22 44 65 66 69 6e 65 20 61 6e 20 69 | est.default-body)..."Define.an.i |
| 18d6e0 | 6e 74 65 72 66 61 63 65 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 62 61 63 6b 65 6e | nterface.function.for.the.backen |
| 18d700 | 64 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 2e 0a 41 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 64 65 | d.to.implement..A.function.is.de |
| 18d720 | 66 69 6e 65 64 20 77 69 74 68 20 4e 41 4d 45 2c 20 41 52 47 53 2c 20 61 6e 64 20 44 4f 43 55 4d | fined.with.NAME,.ARGS,.and.DOCUM |
| 18d740 | 45 4e 54 41 54 49 4f 4e 2e 20 20 54 68 69 73 0a 66 75 6e 63 74 69 6f 6e 20 66 69 72 73 74 20 6c | ENTATION...This.function.first.l |
| 18d760 | 6f 6f 6b 73 20 66 6f 72 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c 20 69 6e 20 4e | ooks.for.a.function.to.call.in.N |
| 18d780 | 41 4d 45 27 73 20 70 72 6f 70 65 72 74 79 20 6c 69 73 74 0a 74 68 61 74 20 69 73 20 69 6e 64 69 | AME's.property.list.that.is.indi |
| 18d7a0 | 63 61 74 65 64 20 62 79 20 27 49 4d 50 4c 45 4d 45 4e 54 41 54 49 4f 4e 3b 20 66 61 69 6c 69 6e | cated.by.'IMPLEMENTATION;.failin |
| 18d7c0 | 67 20 74 68 61 74 2c 20 69 74 20 6c 6f 6f 6b 73 20 66 6f 72 20 61 0a 66 75 6e 63 74 69 6f 6e 20 | g.that,.it.looks.for.a.function. |
| 18d7e0 | 69 6e 64 69 63 61 74 65 64 20 62 79 20 27 44 45 46 41 55 4c 54 2e 20 49 66 20 6e 65 69 74 68 65 | indicated.by.'DEFAULT..If.neithe |
| 18d800 | 72 20 69 73 20 70 72 65 73 65 6e 74 2c 20 61 6e 20 65 72 72 6f 72 20 69 73 0a 73 69 67 6e 61 6c | r.is.present,.an.error.is.signal |
| 18d820 | 65 64 2e 0a 0a 49 66 20 61 20 44 45 46 41 55 4c 54 2d 42 4f 44 59 20 69 73 20 73 75 70 70 6c 69 | ed...If.a.DEFAULT-BODY.is.suppli |
| 18d840 | 65 64 2c 20 74 68 65 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 73 61 6d | ed,.then.a.function.with.the.sam |
| 18d860 | 65 20 62 6f 64 79 20 61 6e 64 0a 41 52 47 53 20 77 69 6c 6c 20 62 65 20 61 64 64 65 64 20 74 6f | e.body.and.ARGS.will.be.added.to |
| 18d880 | 20 4e 41 4d 45 27 73 20 70 72 6f 70 65 72 74 79 20 6c 69 73 74 20 61 73 20 74 68 65 20 70 72 6f | .NAME's.property.list.as.the.pro |
| 18d8a0 | 70 65 72 74 79 20 69 6e 64 69 63 61 74 65 64 0a 62 79 20 27 44 45 46 41 55 4c 54 2e 0a 0a 42 61 | perty.indicated.by.'DEFAULT...Ba |
| 18d8c0 | 63 6b 65 6e 64 73 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 73 65 20 66 75 6e 63 74 69 6f 6e 73 | ckends.implement.these.functions |
| 18d8e0 | 20 75 73 69 6e 67 20 44 45 46 49 4d 50 4c 45 4d 45 4e 54 41 54 49 4f 4e 2e 22 0a 20 20 28 63 68 | .using.DEFIMPLEMENTATION."...(ch |
| 18d900 | 65 63 6b 2d 74 79 70 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 20 22 61 | eck-type.documentation.string."a |
| 18d920 | 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 22 29 0a 20 20 28 61 73 73 65 72 | .documentation.string")...(asser |
| 18d940 | 74 20 28 65 76 65 72 79 20 23 27 73 79 6d 62 6f 6c 70 20 61 72 67 73 29 20 28 29 0a 20 20 20 20 | t.(every.#'symbolp.args).()..... |
| 18d960 | 20 20 20 20 20 20 22 43 6f 6d 70 6c 65 78 20 6c 61 6d 62 64 61 2d 6c 69 73 74 20 6e 6f 74 20 73 | ......"Complex.lambda-list.not.s |
| 18d980 | 75 70 70 6f 72 74 65 64 3a 20 7e 53 20 7e 53 22 20 6e 61 6d 65 20 61 72 67 73 29 0a 20 20 28 6c | upported:.~S.~S".name.args)...(l |
| 18d9a0 | 61 62 65 6c 73 20 28 28 67 65 6e 2d 64 65 66 61 75 6c 74 2d 69 6d 70 6c 20 28 29 0a 20 20 20 20 | abels.((gen-default-impl.()..... |
| 18d9c0 | 20 20 20 20 20 20 20 20 20 60 28 73 65 74 66 20 28 67 65 74 20 27 2c 6e 61 6d 65 20 27 64 65 66 | .........`(setf.(get.',name.'def |
| 18d9e0 | 61 75 6c 74 29 20 28 6c 61 6d 62 64 61 20 2c 61 72 67 73 20 2c 40 64 65 66 61 75 6c 74 2d 62 6f | ault).(lambda.,args.,@default-bo |
| 18da00 | 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 73 2d 61 73 2d 6c 69 73 74 20 28 | dy)))............(args-as-list.( |
| 18da20 | 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e | args)..............(destructurin |
| 18da40 | 67 2d 62 69 6e 64 20 28 72 65 71 20 6f 70 74 20 6b 65 79 20 72 65 73 74 29 20 28 70 61 72 73 65 | g-bind.(req.opt.key.rest).(parse |
| 18da60 | 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -lambda-list.args).............. |
| 18da80 | 20 20 60 28 2c 40 72 65 71 20 2c 40 6f 70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..`(,@req.,@opt................. |
| 18daa0 | 20 20 20 20 20 20 20 2c 40 28 6c 6f 6f 70 20 66 6f 72 20 6b 20 69 6e 20 6b 65 79 20 61 70 70 65 | .......,@(loop.for.k.in.key.appe |
| 18dac0 | 6e 64 20 60 28 2c 28 6b 77 20 6b 29 20 2c 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd.`(,(kw.k).,k))............... |
| 18dae0 | 20 20 20 20 20 20 20 20 20 2c 40 28 6f 72 20 72 65 73 74 20 27 28 28 29 29 29 29 29 29 0a 20 20 | .........,@(or.rest.'(())))))... |
| 18db00 | 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 28 61 72 67 | .........(parse-lambda-list.(arg |
| 18db20 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 20 61 72 67 73 20 27 28 26 6f | s)..............(parse.args.'(&o |
| 18db40 | 70 74 69 6f 6e 61 6c 20 26 6b 65 79 20 26 72 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ptional.&key.&rest)............. |
| 18db60 | 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 34 20 3a 69 6e 69 74 69 61 6c 2d 65 | ........(make-array.4.:initial-e |
| 18db80 | 6c 65 6d 65 6e 74 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 20 | lement.nil)))............(parse. |
| 18dba0 | 28 61 72 67 73 20 6b 65 79 77 6f 72 64 73 20 76 61 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (args.keywords.vars)............ |
| 18dbc0 | 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..(cond.((null.args)............ |
| 18dbe0 | 20 20 20 20 20 20 20 20 20 28 72 65 76 65 72 73 65 20 28 6d 61 70 20 27 6c 69 73 74 20 23 27 72 | .........(reverse.(map.'list.#'r |
| 18dc00 | 65 76 65 72 73 65 20 76 61 72 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | everse.vars))).................. |
| 18dc20 | 20 20 28 28 6d 65 6d 62 65 72 20 28 63 61 72 20 61 72 67 73 29 20 6b 65 79 77 6f 72 64 73 29 0a | ..((member.(car.args).keywords). |
| 18dc40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 20 28 63 64 72 20 | ....................(parse.(cdr. |
| 18dc60 | 61 72 67 73 29 20 28 63 64 72 20 28 6d 65 6d 62 65 72 20 28 63 61 72 20 61 72 67 73 29 20 6b 65 | args).(cdr.(member.(car.args).ke |
| 18dc80 | 79 77 6f 72 64 73 29 29 20 76 61 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ywords)).vars))................. |
| 18dca0 | 20 20 20 28 74 20 28 70 75 73 68 20 28 63 61 72 20 61 72 67 73 29 20 28 61 72 65 66 20 76 61 72 | ...(t.(push.(car.args).(aref.var |
| 18dcc0 | 73 20 28 6c 65 6e 67 74 68 20 6b 65 79 77 6f 72 64 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | s.(length.keywords)))........... |
| 18dce0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 20 28 63 64 72 20 61 72 67 73 29 20 6b 65 | ............(parse.(cdr.args).ke |
| 18dd00 | 79 77 6f 72 64 73 20 76 61 72 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6b 77 20 28 | ywords.vars))))............(kw.( |
| 18dd20 | 73 29 20 28 69 6e 74 65 72 6e 20 28 73 74 72 69 6e 67 20 73 29 20 3a 6b 65 79 77 6f 72 64 29 29 | s).(intern.(string.s).:keyword)) |
| 18dd40 | 29 0a 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 28 64 65 66 75 6e 20 2c 6e 61 6d | ).....`(progn........(defun.,nam |
| 18dd60 | 65 20 2c 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 2c 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a | e.,args..........,documentation. |
| 18dd80 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 20 28 6f 72 20 28 67 65 74 20 27 2c 6e 61 6d | .........(let.((f.(or.(get.',nam |
| 18dda0 | 65 20 27 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.'implementation).............. |
| 18ddc0 | 20 20 20 20 20 20 20 20 20 28 67 65 74 20 27 2c 6e 61 6d 65 20 27 64 65 66 61 75 6c 74 29 29 29 | .........(get.',name.'default))) |
| 18dde0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 66 20 28 61 70 70 6c 79 20 66 20 2c | )............(cond.(f.(apply.f., |
| 18de00 | 40 28 61 72 67 73 2d 61 73 2d 6c 69 73 74 20 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 | @(args-as-list.args))).......... |
| 18de20 | 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 7e 53 20 6e 6f 74 20 69 6d 70 6c 65 6d | ........(t.(error."~S.not.implem |
| 18de40 | 65 6e 74 65 64 22 20 27 2c 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 28 70 75 73 68 6e | ented".',name)))))........(pushn |
| 18de60 | 65 77 20 27 2c 6e 61 6d 65 20 2a 69 6e 74 65 72 66 61 63 65 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 | ew.',name.*interface-functions*) |
| 18de80 | 0a 20 20 20 20 20 20 20 2c 28 69 66 20 28 6e 75 6c 6c 20 64 65 66 61 75 6c 74 2d 62 6f 64 79 29 | ........,(if.(null.default-body) |
| 18dea0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 70 75 73 68 6e 65 77 20 27 2c 6e 61 6d 65 20 2a 75 | .............`(pushnew.',name.*u |
| 18dec0 | 6e 69 6d 70 6c 65 6d 65 6e 74 65 64 2d 69 6e 74 65 72 66 61 63 65 73 2a 29 0a 20 20 20 20 20 20 | nimplemented-interfaces*)....... |
| 18dee0 | 20 20 20 20 20 20 28 67 65 6e 2d 64 65 66 61 75 6c 74 2d 69 6d 70 6c 29 29 0a 20 20 20 20 20 20 | ......(gen-default-impl))....... |
| 18df00 | 20 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a | .(eval-when.(:compile-toplevel.: |
| 18df20 | 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 20 20 20 20 20 20 | load-toplevel.:execute)......... |
| 18df40 | 20 28 65 78 70 6f 72 74 20 27 2c 6e 61 6d 65 20 3a 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 29 | .(export.',name.:swank/backend)) |
| 18df60 | 0a 20 20 20 20 20 20 20 27 2c 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 | ........',name)))..(defmacro.def |
| 18df80 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 28 6e 61 6d 65 20 61 72 67 73 20 26 62 6f 64 79 20 | implementation.(name.args.&body. |
| 18dfa0 | 62 6f 64 79 29 0a 20 20 28 61 73 73 65 72 74 20 28 65 76 65 72 79 20 23 27 73 79 6d 62 6f 6c 70 | body)...(assert.(every.#'symbolp |
| 18dfc0 | 20 61 72 67 73 29 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 22 43 6f 6d 70 6c 65 78 20 6c 61 6d | .args).()..........."Complex.lam |
| 18dfe0 | 62 64 61 2d 6c 69 73 74 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 3a 20 7e 53 20 7e 53 22 20 6e | bda-list.not.supported:.~S.~S".n |
| 18e000 | 61 6d 65 20 61 72 67 73 29 0a 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 28 73 65 74 66 20 28 | ame.args)...`(progn......(setf.( |
| 18e020 | 67 65 74 20 27 2c 6e 61 6d 65 20 27 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 | get.',name.'implementation)..... |
| 18e040 | 20 20 20 20 20 20 20 3b 3b 20 46 6f 72 20 69 6d 70 6c 69 63 69 74 20 42 4c 4f 43 4b 2e 20 46 4c | .......;;.For.implicit.BLOCK..FL |
| 18e060 | 45 54 20 62 65 63 61 75 73 65 20 6f 66 20 69 6e 74 65 72 70 6c 61 79 20 77 2f 20 64 65 63 6c 73 | ET.because.of.interplay.w/.decls |
| 18e080 | 2e 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 6c 65 74 20 28 28 2c 6e 61 6d 65 20 2c 61 72 67 73 | .............(flet.((,name.,args |
| 18e0a0 | 20 2c 40 62 6f 64 79 29 29 20 23 27 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 28 69 66 20 28 6d 65 | .,@body)).#',name))......(if.(me |
| 18e0c0 | 6d 62 65 72 20 27 2c 6e 61 6d 65 20 2a 69 6e 74 65 72 66 61 63 65 2d 66 75 6e 63 74 69 6f 6e 73 | mber.',name.*interface-functions |
| 18e0e0 | 2a 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2a 75 6e 69 6d 70 6c 65 6d 65 6e 74 65 64 | *)..........(setq.*unimplemented |
| 18e100 | 2d 69 6e 74 65 72 66 61 63 65 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d | -interfaces*................(rem |
| 18e120 | 6f 76 65 20 27 2c 6e 61 6d 65 20 2a 75 6e 69 6d 70 6c 65 6d 65 6e 74 65 64 2d 69 6e 74 65 72 66 | ove.',name.*unimplemented-interf |
| 18e140 | 61 63 65 73 2a 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 20 22 44 45 46 49 4d 50 4c 45 | aces*))..........(warn."DEFIMPLE |
| 18e160 | 4d 45 4e 54 41 54 49 4f 4e 20 6f 66 20 75 6e 64 65 66 69 6e 65 64 20 69 6e 74 65 72 66 61 63 65 | MENTATION.of.undefined.interface |
| 18e180 | 20 28 7e 53 29 22 20 27 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 27 2c 6e 61 6d 65 29 29 0a 0a 28 | .(~S)".',name))......',name))..( |
| 18e1a0 | 64 65 66 75 6e 20 77 61 72 6e 2d 75 6e 69 6d 70 6c 65 6d 65 6e 74 65 64 2d 69 6e 74 65 72 66 61 | defun.warn-unimplemented-interfa |
| 18e1c0 | 63 65 73 20 28 29 0a 20 20 22 57 61 72 6e 20 74 68 65 20 75 73 65 72 20 61 62 6f 75 74 20 75 6e | ces.()..."Warn.the.user.about.un |
| 18e1e0 | 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 61 63 6b 65 6e 64 20 66 65 61 74 75 72 65 73 2e 0a 54 68 | implemented.backend.features..Th |
| 18e200 | 65 20 70 6f 72 74 61 62 6c 65 20 63 6f 64 65 20 63 61 6c 6c 73 20 74 68 69 73 20 66 75 6e 63 74 | e.portable.code.calls.this.funct |
| 18e220 | 69 6f 6e 20 61 74 20 73 74 61 72 74 75 70 2e 22 0a 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 | ion.at.startup."...(let.((*print |
| 18e240 | 2d 70 72 65 74 74 79 2a 20 74 29 29 0a 20 20 20 20 28 77 61 72 6e 20 22 54 68 65 73 65 20 53 77 | -pretty*.t)).....(warn."These.Sw |
| 18e260 | 61 6e 6b 20 69 6e 74 65 72 66 61 63 65 73 20 61 72 65 20 75 6e 69 6d 70 6c 65 6d 65 6e 74 65 64 | ank.interfaces.are.unimplemented |
| 18e280 | 3a 7e 25 20 7e 3a 3c 7e 7b 7e 41 7e 5e 20 7e 3a 5f 7e 7d 7e 3a 3e 22 0a 20 20 20 20 20 20 20 20 | :~%.~:<~{~A~^.~:_~}~:>"......... |
| 18e2a0 | 20 20 28 6c 69 73 74 20 28 73 6f 72 74 20 28 63 6f 70 79 2d 6c 69 73 74 20 2a 75 6e 69 6d 70 6c | ..(list.(sort.(copy-list.*unimpl |
| 18e2c0 | 65 6d 65 6e 74 65 64 2d 69 6e 74 65 72 66 61 63 65 73 2a 29 20 23 27 73 74 72 69 6e 67 3c 29 29 | emented-interfaces*).#'string<)) |
| 18e2e0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6d 70 6f 72 74 2d 74 6f 2d 73 77 61 6e 6b 2d 6d 6f 70 20 | )))..(defun.import-to-swank-mop. |
| 18e300 | 28 73 79 6d 62 6f 6c 2d 6c 69 73 74 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 73 79 6d 20 73 79 6d | (symbol-list)...(dolist.(sym.sym |
| 18e320 | 62 6f 6c 2d 6c 69 73 74 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 73 77 61 6e 6b 2d 6d 6f 70 2d | bol-list).....(let*.((swank-mop- |
| 18e340 | 73 79 6d 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 | sym.(find-symbol.(symbol-name.sy |
| 18e360 | 6d 29 20 3a 73 77 61 6e 6b 2d 6d 6f 70 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 77 61 | m).:swank-mop))).......(when.swa |
| 18e380 | 6e 6b 2d 6d 6f 70 2d 73 79 6d 0a 20 20 20 20 20 20 20 20 28 75 6e 69 6e 74 65 72 6e 20 73 77 61 | nk-mop-sym.........(unintern.swa |
| 18e3a0 | 6e 6b 2d 6d 6f 70 2d 73 79 6d 20 3a 73 77 61 6e 6b 2d 6d 6f 70 29 29 0a 20 20 20 20 20 20 28 69 | nk-mop-sym.:swank-mop)).......(i |
| 18e3c0 | 6d 70 6f 72 74 20 73 79 6d 20 3a 73 77 61 6e 6b 2d 6d 6f 70 29 0a 20 20 20 20 20 20 28 65 78 70 | mport.sym.:swank-mop).......(exp |
| 18e3e0 | 6f 72 74 20 73 79 6d 20 3a 73 77 61 6e 6b 2d 6d 6f 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 | ort.sym.:swank-mop))))..(defun.i |
| 18e400 | 6d 70 6f 72 74 2d 73 77 61 6e 6b 2d 6d 6f 70 2d 73 79 6d 62 6f 6c 73 20 28 70 61 63 6b 61 67 65 | mport-swank-mop-symbols.(package |
| 18e420 | 20 65 78 63 65 70 74 29 0a 20 20 22 49 6d 70 6f 72 74 20 74 68 65 20 6d 6f 70 20 73 79 6d 62 6f | .except)..."Import.the.mop.symbo |
| 18e440 | 6c 73 20 66 72 6f 6d 20 50 41 43 4b 41 47 45 20 74 6f 20 53 57 41 4e 4b 2d 4d 4f 50 2e 0a 45 58 | ls.from.PACKAGE.to.SWANK-MOP..EX |
| 18e460 | 43 45 50 54 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 73 20 77 | CEPT.is.a.list.of.symbol.names.w |
| 18e480 | 68 69 63 68 20 73 68 6f 75 6c 64 20 62 65 20 69 67 6e 6f 72 65 64 2e 22 0a 20 20 28 64 6f 2d 73 | hich.should.be.ignored."...(do-s |
| 18e4a0 | 79 6d 62 6f 6c 73 20 28 73 20 3a 73 77 61 6e 6b 2d 6d 6f 70 29 0a 20 20 20 20 28 75 6e 6c 65 73 | ymbols.(s.:swank-mop).....(unles |
| 18e4c0 | 73 20 28 6d 65 6d 62 65 72 20 73 20 65 78 63 65 70 74 20 3a 74 65 73 74 20 23 27 73 74 72 69 6e | s.(member.s.except.:test.#'strin |
| 18e4e0 | 67 3d 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 61 6c 2d 73 79 6d 62 6f 6c 20 28 66 69 | g=).......(let.((real-symbol.(fi |
| 18e500 | 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 73 29 20 70 61 63 6b 61 67 65 29 29 29 0a | nd-symbol.(string.s).package))). |
| 18e520 | 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 72 65 61 6c 2d 73 79 6d 62 6f 6c 20 28 29 20 22 | ........(assert.real-symbol.()." |
| 18e540 | 53 79 6d 62 6f 6c 20 7e 41 20 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 70 61 63 6b 61 67 65 20 7e | Symbol.~A.not.found.in.package.~ |
| 18e560 | 41 22 20 73 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 28 75 6e 69 6e 74 65 72 6e 20 | A".s.package).........(unintern. |
| 18e580 | 73 20 3a 73 77 61 6e 6b 2d 6d 6f 70 29 0a 20 20 20 20 20 20 20 20 28 69 6d 70 6f 72 74 20 72 65 | s.:swank-mop).........(import.re |
| 18e5a0 | 61 6c 2d 73 79 6d 62 6f 6c 20 3a 73 77 61 6e 6b 2d 6d 6f 70 29 0a 20 20 20 20 20 20 20 20 28 65 | al-symbol.:swank-mop).........(e |
| 18e5c0 | 78 70 6f 72 74 20 72 65 61 6c 2d 73 79 6d 62 6f 6c 20 3a 73 77 61 6e 6b 2d 6d 6f 70 29 29 29 29 | xport.real-symbol.:swank-mop)))) |
| 18e5e0 | 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 67 72 61 79 2d 70 61 63 6b 61 67 65 2d 6e 61 | )..(definterface.gray-package-na |
| 18e600 | 6d 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 74 | me.()..."Return.a.package-name.t |
| 18e620 | 68 61 74 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 47 72 61 79 20 73 74 72 65 61 6d 20 73 79 6d | hat.contains.the.Gray.stream.sym |
| 18e640 | 62 6f 6c 73 2e 0a 54 68 69 73 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20 6c 69 6b 65 20 73 6f 3a | bols..This.will.be.used.like.so: |
| 18e660 | 0a 20 20 28 64 65 66 70 61 63 6b 61 67 65 20 66 6f 6f 0a 20 20 20 20 28 3a 69 6d 70 6f 72 74 2d | ...(defpackage.foo.....(:import- |
| 18e680 | 66 72 6f 6d 20 23 2e 28 67 72 61 79 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 20 2e 20 23 2e 2a | from.#.(gray-package-name)...#.* |
| 18e6a0 | 67 72 61 79 2d 73 74 72 65 61 6d 2d 73 79 6d 62 6f 6c 73 2a 29 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 | gray-stream-symbols*)")....;;;;. |
| 18e6c0 | 55 74 69 6c 69 74 69 65 73 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 73 74 72 75 63 74 | Utilities..(defmacro.with-struct |
| 18e6e0 | 20 28 28 63 6f 6e 63 2d 6e 61 6d 65 20 26 72 65 73 74 20 6e 61 6d 65 73 29 20 6f 62 6a 20 26 62 | .((conc-name.&rest.names).obj.&b |
| 18e700 | 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 4c 69 6b 65 20 77 69 74 68 2d 73 6c 6f 74 73 20 62 75 74 | ody.body)..."Like.with-slots.but |
| 18e720 | 20 77 6f 72 6b 73 20 6f 6e 6c 79 20 66 6f 72 20 73 74 72 75 63 74 73 2e 22 0a 20 20 28 63 68 65 | .works.only.for.structs."...(che |
| 18e740 | 63 6b 2d 74 79 70 65 20 63 6f 6e 63 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 0a 20 20 28 66 6c 65 | ck-type.conc-name.symbol)...(fle |
| 18e760 | 74 20 28 28 72 65 61 64 65 72 20 28 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e | t.((reader.(slot)............(in |
| 18e780 | 74 65 72 6e 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 0a 20 20 20 20 20 20 | tern.(concatenate.'string....... |
| 18e7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f | ..........................(symbo |
| 18e7c0 | 6c 2d 6e 61 6d 65 20 63 6f 6e 63 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-name.conc-name)............... |
| 18e7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 | ..................(symbol-name.s |
| 18e800 | 6c 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c | lot))....................(symbol |
| 18e820 | 2d 70 61 63 6b 61 67 65 20 63 6f 6e 63 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 | -package.conc-name)))).....(let. |
| 18e840 | 28 28 74 6d 70 20 28 67 65 6e 73 79 6d 20 22 4f 4f 2d 22 29 29 29 0a 20 20 20 20 20 20 60 20 28 | ((tmp.(gensym."OO-"))).......`.( |
| 18e860 | 6c 65 74 20 28 28 2c 74 6d 70 20 2c 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 79 6d | let.((,tmp.,obj))...........(sym |
| 18e880 | 62 6f 6c 2d 6d 61 63 72 6f 6c 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 6f 6f | bol-macrolet...............,(loo |
| 18e8a0 | 70 20 66 6f 72 20 6e 61 6d 65 20 69 6e 20 6e 61 6d 65 73 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 | p.for.name.in.names.collect..... |
| 18e8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 6e 61 6d 65 0a | .................(typecase.name. |
| 18e8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 60 | .......................(symbol.` |
| 18e900 | 28 2c 6e 61 6d 65 20 28 2c 28 72 65 61 64 65 72 20 6e 61 6d 65 29 20 2c 74 6d 70 29 29 29 0a 20 | (,name.(,(reader.name).,tmp))).. |
| 18e920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 60 28 2c 28 | ......................(cons.`(,( |
| 18e940 | 66 69 72 73 74 20 6e 61 6d 65 29 20 28 2c 28 72 65 61 64 65 72 20 28 73 65 63 6f 6e 64 20 6e 61 | first.name).(,(reader.(second.na |
| 18e960 | 6d 65 29 29 20 2c 74 6d 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me)).,tmp))).................... |
| 18e980 | 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 4d 61 6c 66 6f 72 6d 65 64 20 73 79 6e 74 61 78 20 | ....(t.(error."Malformed.syntax. |
| 18e9a0 | 69 6e 20 57 49 54 48 2d 53 54 52 55 43 54 3a 20 7e 41 22 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 | in.WITH-STRUCT:.~A".name)))).... |
| 18e9c0 | 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 | .........,@body)))))..(defmacro. |
| 18e9e0 | 77 68 65 6e 2d 6c 65 74 20 28 28 76 61 72 20 76 61 6c 75 65 29 20 26 62 6f 64 79 20 62 6f 64 79 | when-let.((var.value).&body.body |
| 18ea00 | 29 0a 20 20 60 28 6c 65 74 20 28 28 2c 76 61 72 20 2c 76 61 6c 75 65 29 29 0a 20 20 20 20 20 28 | )...`(let.((,var.,value))......( |
| 18ea20 | 77 68 65 6e 20 2c 76 61 72 20 2c 40 62 6f 64 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 62 6f 6f 6c | when.,var.,@body)))..(defun.bool |
| 18ea40 | 65 61 6e 2d 74 6f 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 20 28 76 61 6c 75 65 | ean-to-feature-expression.(value |
| 18ea60 | 29 0a 20 20 22 43 6f 6e 76 65 72 74 73 20 61 20 62 6f 6f 6c 65 61 6e 20 56 41 4c 55 45 20 74 6f | )..."Converts.a.boolean.VALUE.to |
| 18ea80 | 20 61 20 66 6f 72 6d 20 73 75 69 74 61 62 6c 65 20 66 6f 72 20 74 65 73 74 69 6e 67 20 77 69 74 | .a.form.suitable.for.testing.wit |
| 18eaa0 | 68 20 23 2b 2e 22 0a 20 20 28 69 66 20 76 61 6c 75 65 0a 20 20 20 20 20 20 27 28 3a 61 6e 64 29 | h.#+."...(if.value.......'(:and) |
| 18eac0 | 0a 20 20 20 20 20 20 27 28 3a 6f 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 77 69 74 68 2d 73 79 6d | .......'(:or)))..(defun.with-sym |
| 18eae0 | 62 6f 6c 20 28 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 0a 20 20 22 43 68 65 63 6b 20 69 66 20 61 | bol.(name.package)..."Check.if.a |
| 18eb00 | 20 73 79 6d 62 6f 6c 20 77 69 74 68 20 61 20 67 69 76 65 6e 20 4e 41 4d 45 20 65 78 69 73 74 73 | .symbol.with.a.given.NAME.exists |
| 18eb20 | 20 69 6e 20 50 41 43 4b 41 47 45 20 61 6e 64 20 72 65 74 75 72 6e 73 20 61 0a 66 6f 72 6d 20 73 | .in.PACKAGE.and.returns.a.form.s |
| 18eb40 | 75 69 74 61 62 6c 65 20 66 6f 72 20 74 65 73 74 69 6e 67 20 77 69 74 68 20 23 2b 2e 22 0a 20 20 | uitable.for.testing.with.#+."... |
| 18eb60 | 28 62 6f 6f 6c 65 61 6e 2d 74 6f 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 | (boolean-to-feature-expression.. |
| 18eb80 | 20 20 28 61 6e 64 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 0a 20 20 | ..(and.(find-package.package)... |
| 18eba0 | 20 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 6e 61 6d 65 29 | ......(find-symbol.(string.name) |
| 18ebc0 | 20 70 61 63 6b 61 67 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 68 6f 6f 73 65 2d 73 79 6d 62 | .package))))..(defun.choose-symb |
| 18ebe0 | 6f 6c 20 28 70 61 63 6b 61 67 65 20 6e 61 6d 65 20 61 6c 74 2d 70 61 63 6b 61 67 65 20 61 6c 74 | ol.(package.name.alt-package.alt |
| 18ec00 | 2d 6e 61 6d 65 29 0a 20 20 22 49 66 20 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 3a 6e 61 6d 65 | -name)..."If.symbol.package:name |
| 18ec20 | 20 65 78 69 73 74 73 20 72 65 74 75 72 6e 20 74 68 61 74 20 73 79 6d 62 6f 6c 2c 20 6f 74 68 65 | .exists.return.that.symbol,.othe |
| 18ec40 | 72 77 69 73 65 20 61 6c 74 2d 70 61 63 6b 61 67 65 3a 61 6c 74 2d 6e 61 6d 65 2e 0a 20 20 53 75 | rwise.alt-package:alt-name....Su |
| 18ec60 | 69 74 61 62 6c 65 20 66 6f 72 20 75 73 65 20 77 69 74 68 20 23 2e 22 0a 20 20 28 6f 72 20 28 61 | itable.for.use.with.#."...(or.(a |
| 18ec80 | 6e 64 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 | nd.(find-package.package)....... |
| 18eca0 | 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 6e 61 6d 65 29 20 | .....(find-symbol.(string.name). |
| 18ecc0 | 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 74 | package)).......(find-symbol.(st |
| 18ece0 | 72 69 6e 67 20 61 6c 74 2d 6e 61 6d 65 29 20 61 6c 74 2d 70 61 63 6b 61 67 65 29 29 29 0a 0a 0c | ring.alt-name).alt-package)))... |
| 18ed00 | 0a 3b 3b 3b 3b 20 55 46 54 38 0a 0a 28 64 65 66 74 79 70 65 20 6f 63 74 65 74 20 28 29 20 27 28 | .;;;;.UFT8..(deftype.octet.().'( |
| 18ed20 | 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 38 29 29 0a 28 64 65 66 74 79 70 65 20 6f 63 74 65 74 | unsigned-byte.8)).(deftype.octet |
| 18ed40 | 73 20 28 29 20 27 28 73 69 6d 70 6c 65 2d 61 72 72 61 79 20 6f 63 74 65 74 20 28 2a 29 29 29 0a | s.().'(simple-array.octet.(*))). |
| 18ed60 | 0a 3b 3b 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 2e 20 20 44 65 63 6f 64 65 20 74 68 65 | .;;.Helper.function...Decode.the |
| 18ed80 | 20 6e 65 78 74 20 4e 20 62 79 74 65 73 20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 49 4e 44 45 | .next.N.bytes.starting.from.INDE |
| 18eda0 | 58 2e 0a 3b 3b 20 52 65 74 75 72 6e 20 74 68 65 20 64 65 63 6f 64 65 64 20 63 68 61 72 20 61 6e | X..;;.Return.the.decoded.char.an |
| 18edc0 | 64 20 74 68 65 20 6e 65 77 20 69 6e 64 65 78 2e 0a 28 64 65 66 75 6e 20 75 74 66 38 2d 64 65 63 | d.the.new.index..(defun.utf8-dec |
| 18ede0 | 6f 64 65 2d 61 75 78 20 28 62 75 66 66 65 72 20 69 6e 64 65 78 20 6c 69 6d 69 74 20 62 79 74 65 | ode-aux.(buffer.index.limit.byte |
| 18ee00 | 30 20 6e 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 6f 63 74 65 74 73 20 62 75 66 | 0.n)...(declare.(type.octets.buf |
| 18ee20 | 66 65 72 29 20 28 66 69 78 6e 75 6d 20 69 6e 64 65 78 20 6c 69 6d 69 74 20 62 79 74 65 30 20 6e | fer).(fixnum.index.limit.byte0.n |
| 18ee40 | 29 29 0a 20 20 28 69 66 20 28 3c 20 28 2d 20 6c 69 6d 69 74 20 69 6e 64 65 78 29 20 6e 29 0a 20 | ))...(if.(<.(-.limit.index).n).. |
| 18ee60 | 20 20 20 20 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 28 64 | .....(values.nil.index).......(d |
| 18ee80 | 6f 20 28 28 69 20 30 20 28 31 2b 20 69 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 64 65 | o.((i.0.(1+.i))............(code |
| 18eea0 | 20 62 79 74 65 30 20 28 6c 65 74 20 28 28 62 79 74 65 20 28 61 72 65 66 20 62 75 66 66 65 72 20 | .byte0.(let.((byte.(aref.buffer. |
| 18eec0 | 28 2b 20 69 6e 64 65 78 20 69 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (+.index.i)))).................. |
| 18eee0 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 28 6c 64 62 20 28 62 79 74 65 20 32 20 36 | ........(cond.((=.(ldb.(byte.2.6 |
| 18ef00 | 29 20 62 79 74 65 29 20 23 62 31 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).byte).#b10)................... |
| 18ef20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 28 61 73 68 20 63 6f 64 65 20 36 29 20 28 6c | ..............(+.(ash.code.6).(l |
| 18ef40 | 64 62 20 28 62 79 74 65 20 36 20 30 29 20 62 79 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | db.(byte.6.0).byte)))........... |
| 18ef60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 | .....................(t......... |
| 18ef80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 78 46 46 46 44 29 29 | ........................#xFFFD)) |
| 18efa0 | 29 29 29 20 3b 3b 20 52 65 70 6c 61 63 65 6d 65 6e 74 5f 43 68 61 72 61 63 74 65 72 0a 20 20 20 | ))).;;.Replacement_Character.... |
| 18efc0 | 20 20 20 20 20 20 20 28 28 3d 20 69 20 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 | .......((=.i.n)............(valu |
| 18efe0 | 65 73 20 28 63 6f 6e 64 20 28 28 3c 3d 20 63 6f 64 65 20 23 78 66 66 29 20 28 63 6f 64 65 2d 63 | es.(cond.((<=.code.#xff).(code-c |
| 18f000 | 68 61 72 20 63 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | har.code))...................... |
| 18f020 | 20 20 20 20 28 28 3c 3d 20 23 78 64 38 30 30 20 63 6f 64 65 20 23 78 64 66 66 66 29 0a 20 20 20 | ....((<=.#xd800.code.#xdfff).... |
| 18f040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 64 65 2d 63 68 61 | .......................(code-cha |
| 18f060 | 72 20 23 78 46 46 46 44 29 29 20 3b 3b 20 52 65 70 6c 61 63 65 6d 65 6e 74 5f 43 68 61 72 61 63 | r.#xFFFD)).;;.Replacement_Charac |
| 18f080 | 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 | ter..........................((a |
| 18f0a0 | 6e 64 20 28 3c 20 63 6f 64 65 20 63 68 61 72 2d 63 6f 64 65 2d 6c 69 6d 69 74 29 0a 20 20 20 20 | nd.(<.code.char-code-limit)..... |
| 18f0c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 64 65 | ...........................(code |
| 18f0e0 | 2d 63 68 61 72 20 63 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -char.code)))................... |
| 18f100 | 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(t....................... |
| 18f120 | 20 20 20 20 28 63 6f 64 65 2d 63 68 61 72 20 23 78 46 46 46 44 29 29 29 20 3b 3b 20 52 65 70 6c | ....(code-char.#xFFFD))).;;.Repl |
| 18f140 | 61 63 65 6d 65 6e 74 5f 43 68 61 72 61 63 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | acement_Character............... |
| 18f160 | 20 20 20 20 20 28 2b 20 69 6e 64 65 78 20 6e 29 29 29 29 29 29 0a 0a 3b 3b 20 44 65 63 6f 64 65 | .....(+.index.n))))))..;;.Decode |
| 18f180 | 20 6f 6e 65 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 42 55 46 46 45 52 20 73 74 61 72 74 69 6e | .one.character.in.BUFFER.startin |
| 18f1a0 | 67 20 61 74 20 49 4e 44 45 58 2e 0a 3b 3b 20 52 65 74 75 72 6e 20 32 20 76 61 6c 75 65 73 3a 20 | g.at.INDEX..;;.Return.2.values:. |
| 18f1c0 | 74 68 65 20 63 68 61 72 61 63 74 65 72 20 61 6e 64 20 74 68 65 20 6e 65 77 20 69 6e 64 65 78 2e | the.character.and.the.new.index. |
| 18f1e0 | 0a 3b 3b 20 49 66 20 74 68 65 72 65 20 61 72 65 6e 27 74 20 65 6e 6f 75 67 68 20 62 79 74 65 73 | .;;.If.there.aren't.enough.bytes |
| 18f200 | 20 62 65 74 77 65 65 6e 20 49 4e 44 45 58 20 61 6e 64 20 4c 49 4d 49 54 20 72 65 74 75 72 6e 20 | .between.INDEX.and.LIMIT.return. |
| 18f220 | 6e 69 6c 2e 0a 28 64 65 66 75 6e 20 75 74 66 38 2d 64 65 63 6f 64 65 20 28 62 75 66 66 65 72 20 | nil..(defun.utf8-decode.(buffer. |
| 18f240 | 69 6e 64 65 78 20 6c 69 6d 69 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 6f 63 | index.limit)...(declare.(type.oc |
| 18f260 | 74 65 74 73 20 62 75 66 66 65 72 29 20 28 66 69 78 6e 75 6d 20 69 6e 64 65 78 20 6c 69 6d 69 74 | tets.buffer).(fixnum.index.limit |
| 18f280 | 29 29 0a 20 20 28 69 66 20 28 3d 20 69 6e 64 65 78 20 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 28 | ))...(if.(=.index.limit).......( |
| 18f2a0 | 76 61 6c 75 65 73 20 6e 69 6c 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 | values.nil.index).......(let.((b |
| 18f2c0 | 20 28 61 72 65 66 20 62 75 66 66 65 72 20 69 6e 64 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 28 | .(aref.buffer.index))).........( |
| 18f2e0 | 69 66 20 28 3c 3d 20 62 20 23 78 37 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 | if.(<=.b.#x7f).............(valu |
| 18f300 | 65 73 20 28 63 6f 64 65 2d 63 68 61 72 20 62 29 20 28 31 2b 20 69 6e 64 65 78 29 29 0a 20 20 20 | es.(code-char.b).(1+.index)).... |
| 18f320 | 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 6c 65 74 20 28 28 74 72 79 20 28 6d 61 72 6b 65 72 | .........(macrolet.((try.(marker |
| 18f340 | 20 65 6c 73 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .else).......................... |
| 18f360 | 28 6c 65 74 2a 20 28 28 6c 20 28 69 6e 74 65 67 65 72 2d 6c 65 6e 67 74 68 20 6d 61 72 6b 65 72 | (let*.((l.(integer-length.marker |
| 18f380 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )).............................. |
| 18f3a0 | 20 20 20 28 6e 20 28 2d 20 6c 20 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(n.(-.l.2)))................. |
| 18f3c0 | 20 20 20 20 20 20 20 20 20 20 20 60 28 69 66 20 28 3d 20 28 6c 64 62 20 28 62 79 74 65 20 2c 6c | ...........`(if.(=.(ldb.(byte.,l |
| 18f3e0 | 20 2c 28 2d 20 38 20 6c 29 29 20 62 29 20 2c 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 20 20 20 | .,(-.8.l)).b).,marker).......... |
| 18f400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 74 66 38 2d 64 65 63 | .......................(utf8-dec |
| 18f420 | 6f 64 65 2d 61 75 78 20 62 75 66 66 65 72 20 28 31 2b 20 69 6e 64 65 78 29 20 6c 69 6d 69 74 0a | ode-aux.buffer.(1+.index).limit. |
| 18f440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 18f460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 64 62 20 28 62 79 74 65 20 2c 28 2d 20 | .................(ldb.(byte.,(-. |
| 18f480 | 38 20 6c 29 20 30 29 20 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 8.l).0).b)...................... |
| 18f4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 6e 29 0a | ............................,n). |
| 18f4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 18f4e0 | 2c 65 6c 73 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 79 20 23 62 31 | ,else))))...............(try.#b1 |
| 18f500 | 31 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 79 20 23 62 31 31 31 | 10....................(try.#b111 |
| 18f520 | 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 79 20 23 | 0.........................(try.# |
| 18f540 | 62 31 31 31 31 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | b11110.......................... |
| 18f560 | 20 20 20 20 28 74 72 79 20 23 62 31 31 31 31 31 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(try.#b111110............... |
| 18f580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 79 20 23 62 31 31 31 31 31 | ....................(try.#b11111 |
| 18f5a0 | 31 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 10.............................. |
| 18f5c0 | 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 65 6e 63 6f 64 69 | ..........(error."Invalid.encodi |
| 18f5e0 | 6e 67 22 29 29 29 29 29 29 29 29 29 29 29 0a 0a 3b 3b 20 44 65 63 6f 64 65 20 63 68 61 72 61 63 | ng")))))))))))..;;.Decode.charac |
| 18f600 | 74 65 72 73 20 66 72 6f 6d 20 42 55 46 46 45 52 20 61 6e 64 20 77 72 69 74 65 20 74 68 65 6d 20 | ters.from.BUFFER.and.write.them. |
| 18f620 | 74 6f 20 53 54 52 49 4e 47 2e 0a 3b 3b 20 52 65 74 75 72 6e 20 32 20 76 61 6c 75 65 73 3a 20 4c | to.STRING..;;.Return.2.values:.L |
| 18f640 | 41 53 54 49 4e 44 45 58 20 61 6e 64 20 4c 41 53 54 53 54 41 52 54 20 77 68 65 72 65 0a 3b 3b 20 | ASTINDEX.and.LASTSTART.where.;;. |
| 18f660 | 4c 41 53 54 49 4e 44 45 58 20 69 73 20 74 68 65 20 6c 61 73 74 20 69 6e 64 65 78 20 69 6e 20 42 | LASTINDEX.is.the.last.index.in.B |
| 18f680 | 55 46 46 45 52 20 74 68 61 74 20 77 61 73 20 6e 6f 74 20 64 65 63 6f 64 65 64 0a 3b 3b 20 61 6e | UFFER.that.was.not.decoded.;;.an |
| 18f6a0 | 64 20 4c 41 53 54 53 54 41 52 54 20 69 73 20 74 68 65 20 6c 61 73 74 20 69 6e 64 65 78 20 69 6e | d.LASTSTART.is.the.last.index.in |
| 18f6c0 | 20 53 54 52 49 4e 47 20 6e 6f 74 20 77 72 69 74 74 65 6e 2e 0a 28 64 65 66 75 6e 20 75 74 66 38 | .STRING.not.written..(defun.utf8 |
| 18f6e0 | 2d 64 65 63 6f 64 65 2d 69 6e 74 6f 20 28 62 75 66 66 65 72 20 69 6e 64 65 78 20 6c 69 6d 69 74 | -decode-into.(buffer.index.limit |
| 18f700 | 20 73 74 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 | .string.start.end)...(declare.(s |
| 18f720 | 74 72 69 6e 67 20 73 74 72 69 6e 67 29 20 28 66 69 78 6e 75 6d 20 69 6e 64 65 78 20 6c 69 6d 69 | tring.string).(fixnum.index.limi |
| 18f740 | 74 20 73 74 61 72 74 20 65 6e 64 29 20 28 74 79 70 65 20 6f 63 74 65 74 73 20 62 75 66 66 65 72 | t.start.end).(type.octets.buffer |
| 18f760 | 29 29 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 73 74 61 72 74 20 65 6e | ))...(loop....(cond.((=.start.en |
| 18f780 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 69 6e 64 | d)...........(return.(values.ind |
| 18f7a0 | 65 78 20 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 | ex.start)))..........(t......... |
| 18f7c0 | 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 63 20 69 29 20 28 75 74 | ..(multiple-value-bind.(c.i).(ut |
| 18f7e0 | 66 38 2d 64 65 63 6f 64 65 20 62 75 66 66 65 72 20 69 6e 64 65 78 20 6c 69 6d 69 74 29 0a 20 20 | f8-decode.buffer.index.limit)... |
| 18f800 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(cond.(c.............. |
| 18f820 | 20 20 20 20 20 20 28 73 65 74 66 20 28 61 72 65 66 20 73 74 72 69 6e 67 20 73 74 61 72 74 29 20 | ......(setf.(aref.string.start). |
| 18f840 | 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 6e 64 65 | c)....................(setq.inde |
| 18f860 | 78 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 74 | x.i)....................(setq.st |
| 18f880 | 61 72 74 20 28 31 2b 20 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | art.(1+.start)))................ |
| 18f8a0 | 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e | ...(t....................(return |
| 18f8c0 | 20 28 76 61 6c 75 65 73 20 69 6e 64 65 78 20 73 74 61 72 74 29 29 29 29 29 29 29 29 29 0a 0a 28 | .(values.index.start)))))))))..( |
| 18f8e0 | 64 65 66 75 6e 20 64 65 66 61 75 6c 74 2d 75 74 66 38 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 63 | defun.default-utf8-to-string.(oc |
| 18f900 | 74 65 74 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 6c 69 6d 69 74 20 28 6c 65 6e 67 74 68 20 6f 63 | tets)...(let*.((limit.(length.oc |
| 18f920 | 74 65 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 72 20 28 6d 61 6b 65 2d 73 74 72 69 6e | tets))..........(str.(make-strin |
| 18f940 | 67 20 6c 69 6d 69 74 29 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 | g.limit))).....(multiple-value-b |
| 18f960 | 69 6e 64 20 28 69 20 73 29 20 28 75 74 66 38 2d 64 65 63 6f 64 65 2d 69 6e 74 6f 20 6f 63 74 65 | ind.(i.s).(utf8-decode-into.octe |
| 18f980 | 74 73 20 30 20 6c 69 6d 69 74 20 73 74 72 20 30 20 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 28 69 | ts.0.limit.str.0.limit).......(i |
| 18f9a0 | 66 20 28 3d 20 69 20 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3d 20 6c | f.(=.i.limit)...........(if.(=.l |
| 18f9c0 | 69 6d 69 74 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 0a 20 20 20 20 20 20 | imit.s)...............str....... |
| 18f9e0 | 20 20 20 20 20 20 20 20 28 61 64 6a 75 73 74 2d 61 72 72 61 79 20 73 74 72 20 73 29 29 0a 20 20 | ........(adjust-array.str.s))... |
| 18fa00 | 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | ........(loop............(let.(( |
| 18fa20 | 65 6e 64 20 28 2b 20 28 6c 65 6e 67 74 68 20 73 74 72 29 20 28 2d 20 6c 69 6d 69 74 20 69 29 29 | end.(+.(length.str).(-.limit.i)) |
| 18fa40 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 74 72 20 28 61 64 6a 75 73 | ))..............(setq.str.(adjus |
| 18fa60 | 74 2d 61 72 72 61 79 20 73 74 72 20 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | t-array.str.end))..............( |
| 18fa80 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 69 32 20 73 32 29 0a 20 20 20 20 | multiple-value-bind.(i2.s2)..... |
| 18faa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 74 66 38 2d 64 65 63 6f 64 65 2d 69 6e 74 6f 20 6f | .............(utf8-decode-into.o |
| 18fac0 | 63 74 65 74 73 20 69 20 6c 69 6d 69 74 20 73 74 72 20 73 20 65 6e 64 29 0a 20 20 20 20 20 20 20 | ctets.i.limit.str.s.end)........ |
| 18fae0 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 69 32 20 6c 69 6d 69 74 29 0a 20 20 20 20 | ........(cond.((=.i2.limit)..... |
| 18fb00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 61 64 6a 75 73 | ..................(return.(adjus |
| 18fb20 | 74 2d 61 72 72 61 79 20 73 74 72 20 73 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-array.str.s2)))............... |
| 18fb40 | 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(t....................... |
| 18fb60 | 28 73 65 74 71 20 69 20 69 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (setq.i.i2)..................... |
| 18fb80 | 20 20 28 73 65 74 71 20 73 20 73 32 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 | ..(setq.s.s2))))))))))..(defmacr |
| 18fba0 | 6f 20 75 74 66 38 2d 65 6e 63 6f 64 65 2d 61 75 78 20 28 63 6f 64 65 20 62 75 66 66 65 72 20 73 | o.utf8-encode-aux.(code.buffer.s |
| 18fbc0 | 74 61 72 74 20 65 6e 64 20 6e 29 0a 20 20 60 28 63 6f 6e 64 20 28 28 3c 20 28 2d 20 2c 65 6e 64 | tart.end.n)...`(cond.((<.(-.,end |
| 18fbe0 | 20 2c 73 74 61 72 74 29 20 2c 6e 29 0a 20 20 20 20 20 20 20 20 20 20 2c 73 74 61 72 74 29 0a 20 | .,start).,n)...........,start).. |
| 18fc00 | 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 61 72 65 66 | ........(t...........(setf.(aref |
| 18fc20 | 20 2c 62 75 66 66 65 72 20 2c 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .,buffer.,start)................ |
| 18fc40 | 20 28 64 70 62 20 28 6c 64 62 20 28 62 79 74 65 20 2c 28 2d 20 37 20 6e 29 20 2c 28 2a 20 36 20 | .(dpb.(ldb.(byte.,(-.7.n).,(*.6. |
| 18fc60 | 28 31 2d 20 6e 29 29 29 20 2c 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (1-.n))).,code)................. |
| 18fc80 | 20 20 20 20 20 28 62 79 74 65 20 2c 28 2d 20 37 20 6e 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 | .....(byte.,(-.7.n).0).......... |
| 18fca0 | 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 64 70 62 20 30 20 28 62 79 74 65 20 31 20 28 2d 20 37 | ............,(dpb.0.(byte.1.(-.7 |
| 18fcc0 | 20 6e 29 29 20 23 78 66 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 2c 40 28 6c 6f 6f 70 20 66 | .n)).#xff)))...........,@(loop.f |
| 18fce0 | 6f 72 20 69 20 66 72 6f 6d 20 30 20 75 70 74 6f 20 28 2d 20 6e 20 32 29 20 63 6f 6c 6c 65 63 74 | or.i.from.0.upto.(-.n.2).collect |
| 18fd00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 65 74 66 20 28 61 72 65 66 20 | ...................`(setf.(aref. |
| 18fd20 | 2c 62 75 66 66 65 72 20 28 2b 20 2c 73 74 61 72 74 20 2c 28 2d 20 6e 20 31 20 69 29 29 29 0a 20 | ,buffer.(+.,start.,(-.n.1.i))).. |
| 18fd40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 70 62 20 28 6c 64 | ........................(dpb.(ld |
| 18fd60 | 62 20 28 62 79 74 65 20 36 20 2c 28 2a 20 36 20 69 29 29 20 2c 63 6f 64 65 29 0a 20 20 20 20 20 | b.(byte.6.,(*.6.i)).,code)...... |
| 18fd80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 79 74 65 20 36 | .........................(byte.6 |
| 18fda0 | 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .0)............................. |
| 18fdc0 | 20 20 23 62 31 30 31 31 31 31 31 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 2b 20 2c 73 74 | ..#b10111111)))...........(+.,st |
| 18fde0 | 61 72 74 20 2c 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 25 75 74 66 38 2d 65 6e 63 6f 64 65 20 | art.,n))))..(defun.%utf8-encode. |
| 18fe00 | 28 63 6f 64 65 20 62 75 66 66 65 72 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 64 65 63 6c 61 | (code.buffer.start.end)...(decla |
| 18fe20 | 72 65 20 28 74 79 70 65 20 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 33 31 29 20 63 6f 64 65 | re.(type.(unsigned-byte.31).code |
| 18fe40 | 29 20 28 74 79 70 65 20 6f 63 74 65 74 73 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 | ).(type.octets.buffer).......... |
| 18fe60 | 20 20 28 74 79 70 65 20 28 61 6e 64 20 66 69 78 6e 75 6d 20 75 6e 73 69 67 6e 65 64 2d 62 79 74 | ..(type.(and.fixnum.unsigned-byt |
| 18fe80 | 65 29 20 73 74 61 72 74 20 65 6e 64 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 3c 3d 20 63 6f 64 65 | e).start.end))...(cond.((<=.code |
| 18fea0 | 20 23 78 37 66 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3c 20 73 74 61 72 74 20 | .#x7f)..........(cond.((<.start. |
| 18fec0 | 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 61 72 65 66 | end).................(setf.(aref |
| 18fee0 | 20 62 75 66 66 65 72 20 73 74 61 72 74 29 20 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .buffer.start).code)............ |
| 18ff00 | 20 20 20 20 20 28 31 2b 20 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(1+.start))................ |
| 18ff20 | 28 74 20 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 3c 3d 20 63 6f 64 65 20 23 78 | (t.start))).........((<=.code.#x |
| 18ff40 | 37 66 66 29 20 28 75 74 66 38 2d 65 6e 63 6f 64 65 2d 61 75 78 20 63 6f 64 65 20 62 75 66 66 65 | 7ff).(utf8-encode-aux.code.buffe |
| 18ff60 | 72 20 73 74 61 72 74 20 65 6e 64 20 32 29 29 0a 20 20 20 20 20 20 20 20 28 28 3c 3d 20 23 78 64 | r.start.end.2)).........((<=.#xd |
| 18ff80 | 38 30 30 20 63 6f 64 65 20 23 78 64 66 66 66 29 0a 20 20 20 20 20 20 20 20 20 28 25 75 74 66 38 | 800.code.#xdfff)..........(%utf8 |
| 18ffa0 | 2d 65 6e 63 6f 64 65 20 23 78 46 46 46 44 20 3b 3b 20 52 65 70 6c 61 63 65 6d 65 6e 74 5f 43 68 | -encode.#xFFFD.;;.Replacement_Ch |
| 18ffc0 | 61 72 61 63 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 | aracter........................b |
| 18ffe0 | 75 66 66 65 72 20 73 74 61 72 74 20 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 28 28 3c 3d 20 63 | uffer.start.end)).........((<=.c |
| 190000 | 6f 64 65 20 23 78 66 66 66 66 29 20 28 75 74 66 38 2d 65 6e 63 6f 64 65 2d 61 75 78 20 63 6f 64 | ode.#xffff).(utf8-encode-aux.cod |
| 190020 | 65 20 62 75 66 66 65 72 20 73 74 61 72 74 20 65 6e 64 20 33 29 29 0a 20 20 20 20 20 20 20 20 28 | e.buffer.start.end.3)).........( |
| 190040 | 28 3c 3d 20 63 6f 64 65 20 23 78 31 66 66 66 66 66 29 20 28 75 74 66 38 2d 65 6e 63 6f 64 65 2d | (<=.code.#x1fffff).(utf8-encode- |
| 190060 | 61 75 78 20 63 6f 64 65 20 62 75 66 66 65 72 20 73 74 61 72 74 20 65 6e 64 20 34 29 29 0a 20 20 | aux.code.buffer.start.end.4))... |
| 190080 | 20 20 20 20 20 20 28 28 3c 3d 20 63 6f 64 65 20 23 78 33 66 66 66 66 66 66 29 20 28 75 74 66 38 | ......((<=.code.#x3ffffff).(utf8 |
| 1900a0 | 2d 65 6e 63 6f 64 65 2d 61 75 78 20 63 6f 64 65 20 62 75 66 66 65 72 20 73 74 61 72 74 20 65 6e | -encode-aux.code.buffer.start.en |
| 1900c0 | 64 20 35 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 75 74 66 38 2d 65 6e 63 6f 64 65 2d 61 75 | d.5)).........(t.(utf8-encode-au |
| 1900e0 | 78 20 63 6f 64 65 20 62 75 66 66 65 72 20 73 74 61 72 74 20 65 6e 64 20 36 29 29 29 29 0a 0a 28 | x.code.buffer.start.end.6))))..( |
| 190100 | 64 65 66 75 6e 20 75 74 66 38 2d 65 6e 63 6f 64 65 20 28 63 68 61 72 20 62 75 66 66 65 72 20 73 | defun.utf8-encode.(char.buffer.s |
| 190120 | 74 61 72 74 20 65 6e 64 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 63 68 61 72 61 | tart.end)...(declare.(type.chara |
| 190140 | 63 74 65 72 20 63 68 61 72 29 20 28 74 79 70 65 20 6f 63 74 65 74 73 20 62 75 66 66 65 72 29 0a | cter.char).(type.octets.buffer). |
| 190160 | 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 20 28 61 6e 64 20 66 69 78 6e 75 6d 20 75 6e 73 | ...........(type.(and.fixnum.uns |
| 190180 | 69 67 6e 65 64 2d 62 79 74 65 29 20 73 74 61 72 74 20 65 6e 64 29 29 0a 20 20 28 25 75 74 66 38 | igned-byte).start.end))...(%utf8 |
| 1901a0 | 2d 65 6e 63 6f 64 65 20 28 63 68 61 72 2d 63 6f 64 65 20 63 68 61 72 29 20 62 75 66 66 65 72 20 | -encode.(char-code.char).buffer. |
| 1901c0 | 73 74 61 72 74 20 65 6e 64 29 29 0a 0a 28 64 65 66 75 6e 20 75 74 66 38 2d 65 6e 63 6f 64 65 2d | start.end))..(defun.utf8-encode- |
| 1901e0 | 69 6e 74 6f 20 28 73 74 72 69 6e 67 20 73 74 61 72 74 20 65 6e 64 20 62 75 66 66 65 72 20 69 6e | into.(string.start.end.buffer.in |
| 190200 | 64 65 78 20 6c 69 6d 69 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 74 72 69 6e 67 20 73 74 | dex.limit)...(declare.(string.st |
| 190220 | 72 69 6e 67 29 20 28 74 79 70 65 20 6f 63 74 65 74 73 20 62 75 66 66 65 72 29 20 28 66 69 78 6e | ring).(type.octets.buffer).(fixn |
| 190240 | 75 6d 20 73 74 61 72 74 20 65 6e 64 20 69 6e 64 65 78 20 6c 69 6d 69 74 29 29 0a 20 20 28 6c 6f | um.start.end.index.limit))...(lo |
| 190260 | 6f 70 0a 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 | op....(cond.((=.start.end)...... |
| 190280 | 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 73 74 61 72 74 20 69 6e 64 65 78 | .....(return.(values.start.index |
| 1902a0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 28 3d 20 69 6e 64 65 78 20 6c 69 6d 69 74 29 0a 20 20 | )))..........((=.index.limit)... |
| 1902c0 | 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 73 74 61 72 74 20 69 6e | ........(return.(values.start.in |
| 1902e0 | 64 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 | dex)))..........(t...........(le |
| 190300 | 74 20 28 28 69 32 20 28 75 74 66 38 2d 65 6e 63 6f 64 65 20 28 63 68 61 72 20 73 74 72 69 6e 67 | t.((i2.(utf8-encode.(char.string |
| 190320 | 20 73 74 61 72 74 29 20 62 75 66 66 65 72 20 69 6e 64 65 78 20 6c 69 6d 69 74 29 29 29 0a 20 20 | .start).buffer.index.limit)))... |
| 190340 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 69 32 20 69 6e 64 65 78 29 0a 20 20 | ..........(cond.((=.i2.index)... |
| 190360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 | .................(return.(values |
| 190380 | 20 73 74 61 72 74 20 69 6e 64 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .start.index)))................. |
| 1903a0 | 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 6e | ..(t....................(setq.in |
| 1903c0 | 64 65 78 20 69 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 | dex.i2)....................(incf |
| 1903e0 | 20 73 74 61 72 74 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 61 75 6c 74 2d 73 | .start))))))))..(defun.default-s |
| 190400 | 74 72 69 6e 67 2d 74 6f 2d 75 74 66 38 20 28 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 2a 20 28 | tring-to-utf8.(string)...(let*.( |
| 190420 | 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 | (len.(length.string))..........( |
| 190440 | 62 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 6c 65 6e 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 | b.(make-array.len.:element-type. |
| 190460 | 27 6f 63 74 65 74 29 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 | 'octet))).....(multiple-value-bi |
| 190480 | 6e 64 20 28 73 20 69 29 20 28 75 74 66 38 2d 65 6e 63 6f 64 65 2d 69 6e 74 6f 20 73 74 72 69 6e | nd.(s.i).(utf8-encode-into.strin |
| 1904a0 | 67 20 30 20 6c 65 6e 20 62 20 30 20 6c 65 6e 29 0a 20 20 20 20 20 20 28 69 66 20 28 3d 20 73 20 | g.0.len.b.0.len).......(if.(=.s. |
| 1904c0 | 6c 65 6e 29 0a 20 20 20 20 20 20 20 20 20 20 62 0a 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 | len)...........b...........(loop |
| 1904e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 69 6d 69 74 20 28 2b 20 28 6c 65 6e | ............(let.((limit.(+.(len |
| 190500 | 67 74 68 20 62 29 20 28 2d 20 6c 65 6e 20 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | gth.b).(-.len.s))))............. |
| 190520 | 20 28 73 65 74 71 20 62 20 28 63 6f 65 72 63 65 20 28 61 64 6a 75 73 74 2d 61 72 72 61 79 20 62 | .(setq.b.(coerce.(adjust-array.b |
| 190540 | 20 6c 69 6d 69 74 29 20 27 6f 63 74 65 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .limit).'octets))..............( |
| 190560 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 32 20 69 32 29 0a 20 20 20 20 | multiple-value-bind.(s2.i2)..... |
| 190580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 74 66 38 2d 65 6e 63 6f 64 65 2d 69 6e 74 6f 20 73 | .............(utf8-encode-into.s |
| 1905a0 | 74 72 69 6e 67 20 73 20 6c 65 6e 20 62 20 69 20 6c 69 6d 69 74 29 0a 20 20 20 20 20 20 20 20 20 | tring.s.len.b.i.limit).......... |
| 1905c0 | 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 73 32 20 6c 65 6e 29 0a 20 20 20 20 20 20 20 20 | ......(cond.((=.s2.len)......... |
| 1905e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 63 6f 65 72 63 65 20 28 61 | ..............(return.(coerce.(a |
| 190600 | 64 6a 75 73 74 2d 61 72 72 61 79 20 62 20 69 32 29 20 27 6f 63 74 65 74 73 29 29 29 0a 20 20 20 | djust-array.b.i2).'octets))).... |
| 190620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 | ..................(t............ |
| 190640 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 20 69 32 29 0a 20 20 20 20 20 20 20 20 20 | ...........(setq.i.i2).......... |
| 190660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 20 73 32 29 29 29 29 29 29 29 29 29 | .............(setq.s.s2))))))))) |
| 190680 | 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 73 74 72 69 6e 67 2d 74 6f 2d 75 74 66 38 20 | )..(definterface.string-to-utf8. |
| 1906a0 | 28 73 74 72 69 6e 67 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 74 68 65 20 73 74 72 69 6e 67 20 53 | (string)..."Convert.the.string.S |
| 1906c0 | 54 52 49 4e 47 20 74 6f 20 61 20 28 73 69 6d 70 6c 65 2d 61 72 72 61 79 20 28 75 6e 73 69 67 6e | TRING.to.a.(simple-array.(unsign |
| 1906e0 | 65 64 2d 62 79 74 65 20 38 29 29 22 0a 20 20 28 64 65 66 61 75 6c 74 2d 73 74 72 69 6e 67 2d 74 | ed-byte.8))"...(default-string-t |
| 190700 | 6f 2d 75 74 66 38 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 75 | o-utf8.string))..(definterface.u |
| 190720 | 74 66 38 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 63 74 65 74 73 29 0a 20 20 22 43 6f 6e 76 65 72 | tf8-to-string.(octets)..."Conver |
| 190740 | 74 20 74 68 65 20 28 73 69 6d 70 6c 65 2d 61 72 72 61 79 20 28 75 6e 73 69 67 6e 65 64 2d 62 79 | t.the.(simple-array.(unsigned-by |
| 190760 | 74 65 20 38 29 29 20 4f 43 54 45 54 53 20 74 6f 20 61 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 64 | te.8)).OCTETS.to.a.string."...(d |
| 190780 | 65 66 61 75 6c 74 2d 75 74 66 38 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 63 74 65 74 73 29 29 0a 0a | efault-utf8-to-string.octets)).. |
| 1907a0 | 0c 0a 3b 3b 3b 3b 20 54 43 50 20 73 65 72 76 65 72 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 | ..;;;;.TCP.server..(definterface |
| 1907c0 | 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 28 68 6f 73 74 20 70 6f 72 74 20 26 6b 65 79 20 62 | .create-socket.(host.port.&key.b |
| 1907e0 | 61 63 6b 6c 6f 67 29 0a 20 20 22 43 72 65 61 74 65 20 61 20 6c 69 73 74 65 6e 69 6e 67 20 54 43 | acklog)..."Create.a.listening.TC |
| 190800 | 50 20 73 6f 63 6b 65 74 20 6f 6e 20 69 6e 74 65 72 66 61 63 65 20 48 4f 53 54 20 61 6e 64 20 70 | P.socket.on.interface.HOST.and.p |
| 190820 | 6f 72 74 20 50 4f 52 54 2e 0a 42 41 43 4b 4c 4f 47 20 71 75 65 75 65 20 6c 65 6e 67 74 68 20 66 | ort.PORT..BACKLOG.queue.length.f |
| 190840 | 6f 72 20 69 6e 63 6f 6d 69 6e 67 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 22 29 0a 0a 28 64 65 66 | or.incoming.connections.")..(def |
| 190860 | 69 6e 74 65 72 66 61 63 65 20 6c 6f 63 61 6c 2d 70 6f 72 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 | interface.local-port.(socket)... |
| 190880 | 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 61 6c 20 70 6f 72 74 20 6e 75 6d 62 65 72 20 6f 66 | "Return.the.local.port.number.of |
| 1908a0 | 20 53 4f 43 4b 45 54 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 6c 6f 73 65 2d | .SOCKET.")..(definterface.close- |
| 1908c0 | 73 6f 63 6b 65 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 22 43 6c 6f 73 65 20 74 68 65 20 73 6f 63 | socket.(socket)..."Close.the.soc |
| 1908e0 | 6b 65 74 20 53 4f 43 4b 45 54 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 61 63 63 | ket.SOCKET.")..(definterface.acc |
| 190900 | 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6f 63 6b 65 74 20 26 6b 65 79 20 65 78 74 65 | ept-connection.(socket.&key.exte |
| 190920 | 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rnal-format..................... |
| 190940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 69 6e 67 20 74 69 | ....................buffering.ti |
| 190960 | 6d 65 6f 75 74 29 0a 20 20 20 22 41 63 63 65 70 74 20 61 20 63 6c 69 65 6e 74 20 63 6f 6e 6e 65 | meout)...."Accept.a.client.conne |
| 190980 | 63 74 69 6f 6e 20 6f 6e 20 74 68 65 20 6c 69 73 74 65 6e 69 6e 67 20 73 6f 63 6b 65 74 20 53 4f | ction.on.the.listening.socket.SO |
| 1909a0 | 43 4b 45 54 2e 0a 52 65 74 75 72 6e 20 61 20 73 74 72 65 61 6d 20 66 6f 72 20 74 68 65 20 6e 65 | CKET..Return.a.stream.for.the.ne |
| 1909c0 | 77 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 49 66 20 45 58 54 45 52 4e 41 4c 2d 46 4f 52 4d 41 54 | w.connection..If.EXTERNAL-FORMAT |
| 1909e0 | 20 69 73 20 6e 69 6c 20 72 65 74 75 72 6e 20 61 20 62 69 6e 61 72 79 20 73 74 72 65 61 6d 0a 6f | .is.nil.return.a.binary.stream.o |
| 190a00 | 74 68 65 72 77 69 73 65 20 63 72 65 61 74 65 20 61 20 63 68 61 72 61 63 74 65 72 20 73 74 72 65 | therwise.create.a.character.stre |
| 190a20 | 61 6d 2e 0a 42 55 46 46 45 52 49 4e 47 20 63 61 6e 20 62 65 20 6f 6e 65 20 6f 66 3a 0a 20 20 6e | am..BUFFERING.can.be.one.of:...n |
| 190a40 | 69 6c 20 20 20 2e 2e 2e 20 6e 6f 20 62 75 66 66 65 72 69 6e 67 0a 20 20 74 20 20 20 20 20 2e 2e | il.......no.buffering...t....... |
| 190a60 | 2e 20 65 6e 61 62 6c 65 20 62 75 66 66 65 72 69 6e 67 0a 20 20 3a 6c 69 6e 65 20 2e 2e 2e 20 65 | ..enable.buffering...:line.....e |
| 190a80 | 6e 61 62 6c 65 20 62 75 66 66 65 72 69 6e 67 20 77 69 74 68 20 61 75 74 6f 6d 61 74 69 63 20 66 | nable.buffering.with.automatic.f |
| 190aa0 | 6c 75 73 68 69 6e 67 20 6f 6e 20 65 6f 6c 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 | lushing.on.eol.")..(definterface |
| 190ac0 | 20 61 64 64 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 20 28 73 6f 63 6b 65 74 20 66 6e 29 0a 20 | .add-sigio-handler.(socket.fn).. |
| 190ae0 | 20 22 43 61 6c 6c 20 46 4e 20 77 68 65 6e 65 76 65 72 20 53 4f 43 4b 45 54 20 69 73 20 72 65 61 | ."Call.FN.whenever.SOCKET.is.rea |
| 190b00 | 64 61 62 6c 65 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 72 65 6d 6f 76 65 2d 73 | dable.")..(definterface.remove-s |
| 190b20 | 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 20 28 73 6f 63 6b 65 74 29 0a 20 20 22 52 65 6d 6f 76 65 | igio-handlers.(socket)..."Remove |
| 190b40 | 20 61 6c 6c 20 73 69 67 69 6f 20 68 61 6e 64 6c 65 72 73 20 66 6f 72 20 53 4f 43 4b 45 54 2e 22 | .all.sigio.handlers.for.SOCKET." |
| 190b60 | 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 61 64 64 2d 66 64 2d 68 61 6e 64 6c 65 72 20 | )..(definterface.add-fd-handler. |
| 190b80 | 28 73 6f 63 6b 65 74 20 66 6e 29 0a 20 20 22 43 61 6c 6c 20 46 4e 20 77 68 65 6e 20 4c 69 73 70 | (socket.fn)..."Call.FN.when.Lisp |
| 190ba0 | 20 69 73 20 77 61 69 74 69 6e 67 20 66 6f 72 20 69 6e 70 75 74 20 61 6e 64 20 53 4f 43 4b 45 54 | .is.waiting.for.input.and.SOCKET |
| 190bc0 | 20 69 73 20 72 65 61 64 61 62 6c 65 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 72 | .is.readable.")..(definterface.r |
| 190be0 | 65 6d 6f 76 65 2d 66 64 2d 68 61 6e 64 6c 65 72 73 20 28 73 6f 63 6b 65 74 29 0a 20 20 22 52 65 | emove-fd-handlers.(socket)..."Re |
| 190c00 | 6d 6f 76 65 20 61 6c 6c 20 66 64 2d 68 61 6e 64 6c 65 72 73 20 66 6f 72 20 53 4f 43 4b 45 54 2e | move.all.fd-handlers.for.SOCKET. |
| 190c20 | 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 70 72 65 66 65 72 72 65 64 2d 63 6f 6d 6d | ")..(definterface.preferred-comm |
| 190c40 | 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6f 6e 65 | unication-style.()..."Return.one |
| 190c60 | 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 3a 73 70 61 77 6e 2c 20 3a 73 69 67 69 6f 2c 20 | .of.the.symbols.:spawn,.:sigio,. |
| 190c80 | 3a 66 64 2d 68 61 6e 64 6c 65 72 2c 20 6f 72 20 4e 49 4c 2e 22 0a 20 20 6e 69 6c 29 0a 0a 28 64 | :fd-handler,.or.NIL."...nil)..(d |
| 190ca0 | 65 66 69 6e 74 65 72 66 61 63 65 20 73 65 74 2d 73 74 72 65 61 6d 2d 74 69 6d 65 6f 75 74 20 28 | efinterface.set-stream-timeout.( |
| 190cc0 | 73 74 72 65 61 6d 20 74 69 6d 65 6f 75 74 29 0a 20 20 22 53 65 74 20 74 68 65 20 27 73 74 72 65 | stream.timeout)..."Set.the.'stre |
| 190ce0 | 61 6d 20 27 74 69 6d 65 6f 75 74 2e 20 20 54 68 65 20 74 69 6d 65 6f 75 74 20 69 73 20 65 69 74 | am.'timeout...The.timeout.is.eit |
| 190d00 | 68 65 72 20 74 68 65 20 72 65 61 6c 20 6e 75 6d 62 65 72 0a 20 20 73 70 65 63 69 66 79 69 6e 67 | her.the.real.number...specifying |
| 190d20 | 20 74 68 65 20 74 69 6d 65 6f 75 74 20 69 6e 20 73 65 63 6f 6e 64 73 20 6f 72 20 27 6e 69 6c 20 | .the.timeout.in.seconds.or.'nil. |
| 190d40 | 66 6f 72 20 6e 6f 20 74 69 6d 65 6f 75 74 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e | for.no.timeout."...(declare.(ign |
| 190d60 | 6f 72 65 20 73 74 72 65 61 6d 20 74 69 6d 65 6f 75 74 29 29 0a 20 20 6e 69 6c 29 0a 0a 3b 3b 3b | ore.stream.timeout))...nil)..;;; |
| 190d80 | 20 42 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 20 66 6f 72 20 6e 65 74 77 6f 72 6b 69 6e 67 20 65 | .Base.condition.for.networking.e |
| 190da0 | 72 72 6f 72 73 2e 0a 28 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 6e 65 74 77 6f 72 6b | rrors..(define-condition.network |
| 190dc0 | 2d 65 72 72 6f 72 20 28 73 69 6d 70 6c 65 2d 65 72 72 6f 72 29 20 28 29 29 0a 0a 28 64 65 66 69 | -error.(simple-error).())..(defi |
| 190de0 | 6e 74 65 72 66 61 63 65 20 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 65 64 20 28 29 0a 20 20 20 22 | nterface.emacs-connected.()...." |
| 190e00 | 48 6f 6f 6b 20 63 61 6c 6c 65 64 20 77 68 65 6e 20 74 68 65 20 66 69 72 73 74 20 63 6f 6e 6e 65 | Hook.called.when.the.first.conne |
| 190e20 | 63 74 69 6f 6e 20 66 72 6f 6d 20 45 6d 61 63 73 20 69 73 20 65 73 74 61 62 6c 69 73 68 65 64 2e | ction.from.Emacs.is.established. |
| 190e40 | 0a 43 61 6c 6c 65 64 20 66 72 6f 6d 20 74 68 65 20 49 4e 49 54 2d 46 4e 20 6f 66 20 74 68 65 20 | .Called.from.the.INIT-FN.of.the. |
| 190e60 | 73 6f 63 6b 65 74 20 73 65 72 76 65 72 20 74 68 61 74 20 61 63 63 65 70 74 73 20 74 68 65 0a 63 | socket.server.that.accepts.the.c |
| 190e80 | 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 0a 54 68 69 73 20 69 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 | onnection...This.is.intended.for |
| 190ea0 | 20 73 65 74 74 69 6e 67 20 75 70 20 65 78 74 72 61 20 63 6f 6e 74 65 78 74 2c 20 65 2e 67 2e 20 | .setting.up.extra.context,.e.g.. |
| 190ec0 | 74 6f 20 64 69 73 63 6f 76 65 72 0a 74 68 61 74 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 74 68 72 | to.discover.that.the.calling.thr |
| 190ee0 | 65 61 64 20 69 73 20 74 68 65 20 6f 6e 65 20 74 68 61 74 20 69 6e 74 65 72 61 63 74 73 20 77 69 | ead.is.the.one.that.interacts.wi |
| 190f00 | 74 68 20 45 6d 61 63 73 2e 22 0a 20 20 20 6e 69 6c 29 0a 0a 0c 0a 3b 3b 3b 3b 20 55 6e 69 78 20 | th.Emacs."....nil)....;;;;.Unix. |
| 190f20 | 73 69 67 6e 61 6c 73 0a 0a 28 64 65 66 63 6f 6e 73 74 61 6e 74 20 2b 73 69 67 69 6e 74 2b 20 32 | signals..(defconstant.+sigint+.2 |
| 190f40 | 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 67 65 74 70 69 64 20 28 29 0a 20 20 22 52 65 | )..(definterface.getpid.()..."Re |
| 190f60 | 74 75 72 6e 20 74 68 65 20 28 55 6e 69 78 29 20 70 72 6f 63 65 73 73 20 49 44 20 6f 66 20 74 68 | turn.the.(Unix).process.ID.of.th |
| 190f80 | 69 73 20 73 75 70 65 72 69 6f 72 20 4c 69 73 70 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 | is.superior.Lisp.")..(definterfa |
| 190fa0 | 63 65 20 69 6e 73 74 61 6c 6c 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 28 66 75 6e 63 74 | ce.install-sigint-handler.(funct |
| 190fc0 | 69 6f 6e 29 0a 20 20 22 43 61 6c 6c 20 46 55 4e 43 54 49 4f 4e 20 6f 6e 20 53 49 47 49 4e 54 20 | ion)..."Call.FUNCTION.on.SIGINT. |
| 190fe0 | 28 69 6e 73 74 65 61 64 20 6f 66 20 69 6e 76 6f 6b 69 6e 67 20 74 68 65 20 64 65 62 75 67 67 65 | (instead.of.invoking.the.debugge |
| 191000 | 72 29 2e 0a 52 65 74 75 72 6e 20 6f 6c 64 20 73 69 67 6e 61 6c 20 68 61 6e 64 6c 65 72 2e 22 0a | r)..Return.old.signal.handler.". |
| 191020 | 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 | ..(declare.(ignore.function))... |
| 191040 | 6e 69 6c 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 61 6c 6c 2d 77 69 74 68 2d 75 73 | nil)..(definterface.call-with-us |
| 191060 | 65 72 2d 62 72 65 61 6b 2d 68 61 6e 64 6c 65 72 20 28 68 61 6e 64 6c 65 72 20 66 75 6e 63 74 69 | er-break-handler.(handler.functi |
| 191080 | 6f 6e 29 0a 20 20 22 49 6e 73 74 61 6c 6c 20 74 68 65 20 62 72 65 61 6b 20 68 61 6e 64 6c 65 72 | on)..."Install.the.break.handler |
| 1910a0 | 20 48 41 4e 44 4c 45 52 20 77 68 69 6c 65 20 65 78 65 63 75 74 69 6e 67 20 46 55 4e 43 54 49 4f | .HANDLER.while.executing.FUNCTIO |
| 1910c0 | 4e 2e 22 0a 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d 68 61 6e 64 6c 65 72 20 28 69 6e 73 74 61 6c | N."...(let.((old-handler.(instal |
| 1910e0 | 6c 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 68 61 6e 64 6c 65 72 29 29 29 0a 20 20 20 20 | l-sigint-handler.handler)))..... |
| 191100 | 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f | (unwind-protect.(funcall.functio |
| 191120 | 6e 29 0a 20 20 20 20 20 20 28 69 6e 73 74 61 6c 6c 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 | n).......(install-sigint-handler |
| 191140 | 20 6f 6c 64 2d 68 61 6e 64 6c 65 72 29 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 | .old-handler))))..(definterface. |
| 191160 | 71 75 69 74 2d 6c 69 73 70 20 28 29 0a 20 20 22 45 78 69 74 20 74 68 65 20 63 75 72 72 65 6e 74 | quit-lisp.()..."Exit.the.current |
| 191180 | 20 6c 69 73 70 20 69 6d 61 67 65 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 6c 69 | .lisp.image.")..(definterface.li |
| 1911a0 | 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 20 28 29 0a 20 | sp-implementation-type-name.().. |
| 1911c0 | 20 22 52 65 74 75 72 6e 20 61 20 73 68 6f 72 74 20 6e 61 6d 65 20 66 6f 72 20 74 68 65 20 4c 69 | ."Return.a.short.name.for.the.Li |
| 1911e0 | 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 22 0a 20 20 28 6c 69 73 70 2d 69 6d 70 6c | sp.implementation."...(lisp-impl |
| 191200 | 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 | ementation-type))..(definterface |
| 191220 | 20 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 70 72 6f 67 72 61 6d 20 28 29 0a | .lisp-implementation-program.(). |
| 191240 | 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 61 72 67 76 5b 30 5d 20 6f 66 20 74 68 65 20 72 75 6e | .."Return.the.argv[0].of.the.run |
| 191260 | 6e 69 6e 67 20 4c 69 73 70 20 70 72 6f 63 65 73 73 2c 20 6f 72 20 4e 49 4c 2e 22 0a 20 20 28 6c | ning.Lisp.process,.or.NIL."...(l |
| 191280 | 65 74 20 28 28 66 69 6c 65 20 28 63 61 72 20 28 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 | et.((file.(car.(command-line-arg |
| 1912a0 | 73 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 66 69 6c 65 20 28 70 72 6f 62 65 | s)))).....(when.(and.file.(probe |
| 1912c0 | 2d 66 69 6c 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 | -file.file)).......(namestring.( |
| 1912e0 | 74 72 75 65 6e 61 6d 65 20 66 69 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 | truename.file)))))..(definterfac |
| 191300 | 65 20 73 6f 63 6b 65 74 2d 66 64 20 28 73 6f 63 6b 65 74 2d 73 74 72 65 61 6d 29 0a 20 20 22 52 | e.socket-fd.(socket-stream)..."R |
| 191320 | 65 74 75 72 6e 20 74 68 65 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 66 6f 72 20 53 4f | eturn.the.file.descriptor.for.SO |
| 191340 | 43 4b 45 54 2d 53 54 52 45 41 4d 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 6d 61 | CKET-STREAM.")..(definterface.ma |
| 191360 | 6b 65 2d 66 64 2d 73 74 72 65 61 6d 20 28 66 64 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 | ke-fd-stream.(fd.external-format |
| 191380 | 29 0a 20 20 22 43 72 65 61 74 65 20 61 20 63 68 61 72 61 63 74 65 72 20 73 74 72 65 61 6d 20 66 | )..."Create.a.character.stream.f |
| 1913a0 | 6f 72 20 74 68 65 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 46 44 2e 22 29 0a 0a 28 64 | or.the.file.descriptor.FD.")..(d |
| 1913c0 | 65 66 69 6e 74 65 72 66 61 63 65 20 64 75 70 20 28 66 64 29 0a 20 20 22 44 75 70 6c 69 63 61 74 | efinterface.dup.(fd)..."Duplicat |
| 1913e0 | 65 20 61 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 2e 0a 49 66 20 74 68 65 20 73 79 73 63 | e.a.file.descriptor..If.the.sysc |
| 191400 | 61 6c 6c 20 66 61 69 6c 73 2c 20 73 69 67 6e 61 6c 20 61 20 63 6f 6e 64 69 74 69 6f 6e 2e 0a 53 | all.fails,.signal.a.condition..S |
| 191420 | 65 65 20 64 75 70 28 32 29 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 65 78 65 63 | ee.dup(2).")..(definterface.exec |
| 191440 | 2d 69 6d 61 67 65 20 28 69 6d 61 67 65 2d 66 69 6c 65 20 61 72 67 73 29 0a 20 20 22 52 65 70 6c | -image.(image-file.args)..."Repl |
| 191460 | 61 63 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 72 6f 63 65 73 73 20 77 69 74 68 20 61 20 6e | ace.the.current.process.with.a.n |
| 191480 | 65 77 20 70 72 6f 63 65 73 73 20 69 6d 61 67 65 2e 0a 54 68 65 20 6e 65 77 20 69 6d 61 67 65 20 | ew.process.image..The.new.image. |
| 1914a0 | 69 73 20 63 72 65 61 74 65 64 20 62 79 20 6c 6f 61 64 69 6e 67 20 74 68 65 20 70 72 65 76 69 6f | is.created.by.loading.the.previo |
| 1914c0 | 75 73 6c 79 20 64 75 6d 70 65 64 0a 63 6f 72 65 20 66 69 6c 65 20 49 4d 41 47 45 2d 46 49 4c 45 | usly.dumped.core.file.IMAGE-FILE |
| 1914e0 | 2e 0a 41 52 47 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 20 70 61 73 73 | ..ARGS.is.a.list.of.strings.pass |
| 191500 | 65 64 20 61 73 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 0a 74 68 65 20 6e 65 77 20 69 6d 61 67 65 | ed.as.arguments.to.the.new.image |
| 191520 | 2e 0a 54 68 69 73 20 69 73 20 74 68 69 6e 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 65 78 | ..This.is.thin.wrapper.around.ex |
| 191540 | 65 63 28 33 29 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 6f 6d 6d 61 6e 64 2d | ec(3).")..(definterface.command- |
| 191560 | 6c 69 6e 65 2d 61 72 67 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 | line-args.()..."Return.a.list.of |
| 191580 | 20 73 74 72 69 6e 67 73 20 61 73 20 70 61 73 73 65 64 20 62 79 20 74 68 65 20 4f 53 2e 22 0a 20 | .strings.as.passed.by.the.OS.".. |
| 1915a0 | 20 6e 69 6c 29 0a 0a 0c 0a 3b 3b 20 70 61 74 68 6e 61 6d 65 73 20 61 72 65 20 73 6f 6f 6f 20 75 | .nil)....;;.pathnames.are.sooo.u |
| 1915c0 | 73 65 6c 65 73 73 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 69 6c 65 6e 61 6d 65 2d 74 | seless..(definterface.filename-t |
| 1915e0 | 6f 2d 70 61 74 68 6e 61 6d 65 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 | o-pathname.(filename)..."Return. |
| 191600 | 61 20 70 61 74 68 6e 61 6d 65 20 66 6f 72 20 46 49 4c 45 4e 41 4d 45 2e 0a 41 20 66 69 6c 65 6e | a.pathname.for.FILENAME..A.filen |
| 191620 | 61 6d 65 20 69 6e 20 45 6d 61 63 73 20 6d 61 79 20 66 6f 72 20 65 78 61 6d 70 6c 65 20 63 6f 6e | ame.in.Emacs.may.for.example.con |
| 191640 | 74 61 69 6e 20 61 73 74 65 72 69 73 6b 73 20 77 68 69 63 68 20 73 68 6f 75 6c 64 20 6e 6f 74 0a | tain.asterisks.which.should.not. |
| 191660 | 62 65 20 74 72 61 6e 73 6c 61 74 65 64 20 74 6f 20 77 69 6c 64 63 61 72 64 73 2e 22 0a 20 20 28 | be.translated.to.wildcards."...( |
| 191680 | 70 61 72 73 65 2d 6e 61 6d 65 73 74 72 69 6e 67 20 66 69 6c 65 6e 61 6d 65 29 29 0a 0a 28 64 65 | parse-namestring.filename))..(de |
| 1916a0 | 66 69 6e 74 65 72 66 61 63 65 20 70 61 74 68 6e 61 6d 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 20 | finterface.pathname-to-filename. |
| 1916c0 | 28 70 61 74 68 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 6c 65 6e 61 6d | (pathname)..."Return.the.filenam |
| 1916e0 | 65 20 66 6f 72 20 50 41 54 48 4e 41 4d 45 2e 22 0a 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 70 | e.for.PATHNAME."...(namestring.p |
| 191700 | 61 74 68 6e 61 6d 65 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 64 65 66 61 75 6c 74 | athname))..(definterface.default |
| 191720 | 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 64 65 66 61 | -directory.()..."Return.the.defa |
| 191740 | 75 6c 74 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d | ult.directory."...(directory-nam |
| 191760 | 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 20 2a 64 65 66 61 75 6c 74 2d 70 61 74 68 6e | estring.(truename.*default-pathn |
| 191780 | 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 | ame-defaults*)))..(definterface. |
| 1917a0 | 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 | set-default-directory.(directory |
| 1917c0 | 29 0a 20 20 22 53 65 74 20 74 68 65 20 64 65 66 61 75 6c 74 20 64 69 72 65 63 74 6f 72 79 2e 0a | )..."Set.the.default.directory.. |
| 1917e0 | 54 68 69 73 20 69 73 20 75 73 65 64 20 74 6f 20 72 65 73 6f 6c 76 65 20 66 69 6c 65 6e 61 6d 65 | This.is.used.to.resolve.filename |
| 191800 | 73 20 77 69 74 68 6f 75 74 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6d 70 6f 6e 65 6e 74 2e 22 0a | s.without.directory.component.". |
| 191820 | 20 20 28 73 65 74 66 20 2a 64 65 66 61 75 6c 74 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c | ..(setf.*default-pathname-defaul |
| 191840 | 74 73 2a 20 28 74 72 75 65 6e 61 6d 65 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 64 | ts*.(truename.(merge-pathnames.d |
| 191860 | 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 | irectory)))...(default-directory |
| 191880 | 29 29 0a 0a 0c 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 61 6c 6c 2d 77 69 74 68 2d 73 79 | ))....(definterface.call-with-sy |
| 1918a0 | 6e 74 61 78 2d 68 6f 6f 6b 73 20 28 66 6e 29 0a 20 20 22 43 61 6c 6c 20 46 4e 20 77 69 74 68 20 | ntax-hooks.(fn)..."Call.FN.with. |
| 1918c0 | 68 6f 6f 6b 73 20 74 6f 20 68 61 6e 64 6c 65 20 73 70 65 63 69 61 6c 20 73 79 6e 74 61 78 2e 22 | hooks.to.handle.special.syntax." |
| 1918e0 | 0a 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 50 61 63 6b 61 67 65 | ...(funcall.fn))....;;;;.Package |
| 191900 | 73 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e | s..(definterface.package-local-n |
| 191920 | 69 63 6b 6e 61 6d 65 73 20 28 70 61 63 6b 61 67 65 29 0a 20 20 22 52 65 74 75 72 6e 73 20 61 6e | icknames.(package)..."Returns.an |
| 191940 | 20 61 6c 69 73 74 20 6f 66 20 28 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 20 2e 20 61 63 74 75 | .alist.of.(local-nickname...actu |
| 191960 | 61 6c 2d 70 61 63 6b 61 67 65 29 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 0a 6e 69 63 6b 6e | al-package).describing.the.nickn |
| 191980 | 61 6d 65 73 20 6c 6f 63 61 6c 20 74 6f 20 74 68 65 20 64 65 73 69 67 6e 61 74 65 64 20 70 61 63 | ames.local.to.the.designated.pac |
| 1919a0 | 6b 61 67 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 70 61 63 6b 61 67 | kage."...(declare.(ignore.packag |
| 1919c0 | 65 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 69 6e 64 2d 6c | e))...nil)..(definterface.find-l |
| 1919e0 | 6f 63 61 6c 6c 79 2d 6e 69 63 6b 6e 61 6d 65 64 2d 70 61 63 6b 61 67 65 20 28 6e 61 6d 65 20 62 | ocally-nicknamed-package.(name.b |
| 191a00 | 61 73 65 2d 70 61 63 6b 61 67 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 70 61 63 6b 61 | ase-package)..."Return.the.packa |
| 191a20 | 67 65 20 77 68 6f 73 65 20 6c 6f 63 61 6c 20 6e 69 63 6b 6e 61 6d 65 20 69 6e 20 42 41 53 45 2d | ge.whose.local.nickname.in.BASE- |
| 191a40 | 50 41 43 4b 41 47 45 20 6d 61 74 63 68 65 73 20 4e 41 4d 45 2e 0a 52 65 74 75 72 6e 20 4e 49 4c | PACKAGE.matches.NAME..Return.NIL |
| 191a60 | 20 69 66 20 6c 6f 63 61 6c 20 6e 69 63 6b 6e 61 6d 65 73 20 61 72 65 20 6e 6f 74 20 69 6d 70 6c | .if.local.nicknames.are.not.impl |
| 191a80 | 65 6d 65 6e 74 65 64 20 6f 72 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 0a 73 75 63 68 20 70 | emented.or.if.there.is.no.such.p |
| 191aa0 | 61 63 6b 61 67 65 2e 22 0a 20 20 28 63 64 72 20 28 61 73 73 6f 63 20 6e 61 6d 65 20 28 70 61 63 | ackage."...(cdr.(assoc.name.(pac |
| 191ac0 | 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 20 62 61 73 65 2d 70 61 63 6b 61 67 | kage-local-nicknames.base-packag |
| 191ae0 | 65 29 20 3a 74 65 73 74 20 23 27 73 74 72 69 6e 67 2d 65 71 75 61 6c 29 29 29 0a 0a 0c 0a 3b 3b | e).:test.#'string-equal)))....;; |
| 191b00 | 3b 3b 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 61 | ;;.Compilation..(definterface.ca |
| 191b20 | 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 66 75 6e 63 29 | ll-with-compilation-hooks.(func) |
| 191b40 | 0a 20 20 22 43 61 6c 6c 20 46 55 4e 43 20 77 69 74 68 20 68 6f 6f 6b 73 20 74 6f 20 72 65 63 6f | ..."Call.FUNC.with.hooks.to.reco |
| 191b60 | 72 64 20 63 6f 6d 70 69 6c 65 72 20 63 6f 6e 64 69 74 69 6f 6e 73 2e 22 29 0a 0a 28 64 65 66 6d | rd.compiler.conditions.")..(defm |
| 191b80 | 61 63 72 6f 20 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 28 26 72 | acro.with-compilation-hooks.((&r |
| 191ba0 | 65 73 74 20 69 67 6e 6f 72 65 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 45 78 65 63 75 | est.ignore).&body.body)..."Execu |
| 191bc0 | 74 65 20 42 4f 44 59 20 61 73 20 69 6e 20 43 41 4c 4c 2d 57 49 54 48 2d 43 4f 4d 50 49 4c 41 54 | te.BODY.as.in.CALL-WITH-COMPILAT |
| 191be0 | 49 4f 4e 2d 48 4f 4f 4b 53 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 69 | ION-HOOKS."...(declare.(ignore.i |
| 191c00 | 67 6e 6f 72 65 29 29 0a 20 20 60 28 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f | gnore))...`(call-with-compilatio |
| 191c20 | 6e 2d 68 6f 6f 6b 73 20 28 6c 61 6d 62 64 61 20 28 29 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 | n-hooks.(lambda.().(progn.,@body |
| 191c40 | 29 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c | ))))..(definterface.swank-compil |
| 191c60 | 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 6b 65 79 20 62 75 66 66 65 72 20 70 6f 73 | e-string.(string.&key.buffer.pos |
| 191c80 | 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ition.filename.................. |
| 191ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 20 63 | ..........................line.c |
| 191cc0 | 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 0a 20 20 22 43 6f 6d 70 69 6c 65 20 73 6f 75 72 63 65 20 | olumn.policy)..."Compile.source. |
| 191ce0 | 66 72 6f 6d 20 53 54 52 49 4e 47 2e 0a 44 75 72 69 6e 67 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2c | from.STRING..During.compilation, |
| 191d00 | 20 63 6f 6d 70 69 6c 65 72 20 63 6f 6e 64 69 74 69 6f 6e 73 20 6d 75 73 74 20 62 65 20 74 72 61 | .compiler.conditions.must.be.tra |
| 191d20 | 70 70 65 64 20 61 6e 64 0a 72 65 73 69 67 6e 61 6c 6c 65 64 20 61 73 20 43 4f 4d 50 49 4c 45 52 | pped.and.resignalled.as.COMPILER |
| 191d40 | 2d 43 4f 4e 44 49 54 49 4f 4e 73 2e 0a 0a 49 66 20 73 75 70 70 6c 69 65 64 2c 20 42 55 46 46 45 | -CONDITIONs...If.supplied,.BUFFE |
| 191d60 | 52 20 61 6e 64 20 50 4f 53 49 54 49 4f 4e 20 73 70 65 63 69 66 79 20 74 68 65 20 73 6f 75 72 63 | R.and.POSITION.specify.the.sourc |
| 191d80 | 65 20 6c 6f 63 61 74 69 6f 6e 20 69 6e 20 45 6d 61 63 73 2e 0a 0a 41 64 64 69 74 69 6f 6e 61 6c | e.location.in.Emacs...Additional |
| 191da0 | 6c 79 2c 20 69 66 20 50 4f 53 49 54 49 4f 4e 20 69 73 20 73 75 70 70 6c 69 65 64 2c 20 69 74 20 | ly,.if.POSITION.is.supplied,.it. |
| 191dc0 | 6d 75 73 74 20 62 65 20 61 64 64 65 64 20 74 6f 20 73 6f 75 72 63 65 0a 70 6f 73 69 74 69 6f 6e | must.be.added.to.source.position |
| 191de0 | 73 20 72 65 70 6f 72 74 65 64 20 69 6e 20 63 6f 6d 70 69 6c 65 72 20 63 6f 6e 64 69 74 69 6f 6e | s.reported.in.compiler.condition |
| 191e00 | 73 2e 0a 0a 49 66 20 46 49 4c 45 4e 41 4d 45 20 69 73 20 73 70 65 63 69 66 69 65 64 20 69 74 20 | s...If.FILENAME.is.specified.it. |
| 191e20 | 6d 61 79 20 62 65 20 75 73 65 64 20 62 79 20 63 65 72 74 61 69 6e 20 69 6d 70 6c 65 6d 65 6e 74 | may.be.used.by.certain.implement |
| 191e40 | 61 74 69 6f 6e 73 20 74 6f 0a 72 65 62 69 6e 64 20 2a 44 45 46 41 55 4c 54 2d 50 41 54 48 4e 41 | ations.to.rebind.*DEFAULT-PATHNA |
| 191e60 | 4d 45 2d 44 45 46 41 55 4c 54 53 2a 20 77 68 69 63 68 20 6d 61 79 20 69 6d 70 72 6f 76 65 20 74 | ME-DEFAULTS*.which.may.improve.t |
| 191e80 | 68 65 20 72 65 63 6f 72 64 69 6e 67 20 6f 66 0a 73 6f 75 72 63 65 20 69 6e 66 6f 72 6d 61 74 69 | he.recording.of.source.informati |
| 191ea0 | 6f 6e 2e 0a 0a 49 66 20 50 4f 4c 49 43 59 20 69 73 20 73 75 70 70 6c 69 65 64 2c 20 61 6e 64 20 | on...If.POLICY.is.supplied,.and. |
| 191ec0 | 6e 6f 6e 2d 4e 49 4c 2c 20 69 74 20 6d 61 79 20 62 65 20 75 73 65 64 20 62 79 20 63 65 72 74 61 | non-NIL,.it.may.be.used.by.certa |
| 191ee0 | 69 6e 0a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 74 6f 20 63 6f 6d 70 69 6c 65 20 77 69 | in.implementations.to.compile.wi |
| 191f00 | 74 68 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 20 71 75 61 6c 69 74 69 65 73 20 6f 66 20 69 74 73 | th.optimization.qualities.of.its |
| 191f20 | 0a 76 61 6c 75 65 2e 0a 0a 49 66 20 4c 49 4e 45 20 61 6e 64 20 43 4f 4c 55 4d 4e 20 61 72 65 20 | .value...If.LINE.and.COLUMN.are. |
| 191f40 | 73 75 70 70 6c 69 65 64 2c 20 61 6e 64 20 6e 6f 6e 2d 4e 49 4c 2c 20 74 68 65 79 20 6d 61 79 20 | supplied,.and.non-NIL,.they.may. |
| 191f60 | 62 65 20 75 73 65 64 0a 62 79 20 63 65 72 74 61 69 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | be.used.by.certain.implementatio |
| 191f80 | 6e 73 20 61 73 20 74 68 65 20 6c 69 6e 65 20 61 6e 64 20 63 6f 6c 75 6d 6e 20 6f 66 20 74 68 65 | ns.as.the.line.and.column.of.the |
| 191fa0 | 20 73 74 61 72 74 20 6f 66 0a 74 68 65 20 73 74 72 69 6e 67 20 69 6e 20 46 49 4c 45 4e 41 4d 45 | .start.of.the.string.in.FILENAME |
| 191fc0 | 2e 20 42 6f 74 68 20 4c 49 4e 45 20 61 6e 64 20 43 4f 4c 55 4d 4e 20 61 72 65 20 31 2d 62 61 73 | ..Both.LINE.and.COLUMN.are.1-bas |
| 191fe0 | 65 64 2e 0a 0a 53 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 54 20 6f 6e 20 73 75 63 63 65 73 73 66 | ed...Should.return.T.on.successf |
| 192000 | 75 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2c 20 4e 49 4c 20 6f 74 68 65 72 77 69 73 65 2e 0a 22 | ul.compilation,.NIL.otherwise.." |
| 192020 | 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 66 | )..(definterface.swank-compile-f |
| 192040 | 69 6c 65 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 20 6c 6f 61 64 | ile.(input-file.output-file.load |
| 192060 | 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -p.............................. |
| 192080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a | ................external-format. |
| 1920a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1920c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a 20 20 20 22 43 6f | .............&key.policy)...."Co |
| 1920e0 | 6d 70 69 6c 65 20 49 4e 50 55 54 2d 46 49 4c 45 20 73 69 67 6e 61 6c 6c 69 6e 67 20 43 4f 4d 50 | mpile.INPUT-FILE.signalling.COMP |
| 192100 | 49 4c 45 2d 43 4f 4e 44 49 54 49 4f 4e 73 2e 0a 49 66 20 4c 4f 41 44 2d 50 20 69 73 20 74 72 75 | ILE-CONDITIONs..If.LOAD-P.is.tru |
| 192120 | 65 2c 20 6c 6f 61 64 20 74 68 65 20 66 69 6c 65 20 61 66 74 65 72 20 63 6f 6d 70 69 6c 61 74 69 | e,.load.the.file.after.compilati |
| 192140 | 6f 6e 2e 0a 45 58 54 45 52 4e 41 4c 2d 46 4f 52 4d 41 54 20 69 73 20 61 20 76 61 6c 75 65 20 72 | on..EXTERNAL-FORMAT.is.a.value.r |
| 192160 | 65 74 75 72 6e 65 64 20 62 79 20 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 | eturned.by.find-external-format. |
| 192180 | 6f 72 0a 3a 64 65 66 61 75 6c 74 2e 0a 0a 49 66 20 50 4f 4c 49 43 59 20 69 73 20 73 75 70 70 6c | or.:default...If.POLICY.is.suppl |
| 1921a0 | 69 65 64 2c 20 61 6e 64 20 6e 6f 6e 2d 4e 49 4c 2c 20 69 74 20 6d 61 79 20 62 65 20 75 73 65 64 | ied,.and.non-NIL,.it.may.be.used |
| 1921c0 | 20 62 79 20 63 65 72 74 61 69 6e 0a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 74 6f 20 63 | .by.certain.implementations.to.c |
| 1921e0 | 6f 6d 70 69 6c 65 20 77 69 74 68 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 20 71 75 61 6c 69 74 69 | ompile.with.optimization.qualiti |
| 192200 | 65 73 20 6f 66 20 69 74 73 0a 76 61 6c 75 65 2e 0a 0a 53 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 | es.of.its.value...Should.return. |
| 192220 | 4f 55 54 50 55 54 2d 54 52 55 45 4e 41 4d 45 2c 20 57 41 52 4e 49 4e 47 53 2d 50 20 61 6e 64 20 | OUTPUT-TRUENAME,.WARNINGS-P.and. |
| 192240 | 46 41 49 4c 55 52 45 2d 70 0a 6c 69 6b 65 20 60 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 27 22 29 0a | FAILURE-p.like.`compile-file'"). |
| 192260 | 0a 28 64 65 66 74 79 70 65 20 73 65 76 65 72 69 74 79 20 28 29 0a 20 20 27 28 6d 65 6d 62 65 72 | .(deftype.severity.()...'(member |
| 192280 | 20 3a 65 72 72 6f 72 20 3a 72 65 61 64 2d 65 72 72 6f 72 20 3a 77 61 72 6e 69 6e 67 20 3a 73 74 | .:error.:read-error.:warning.:st |
| 1922a0 | 79 6c 65 2d 77 61 72 6e 69 6e 67 20 3a 6e 6f 74 65 20 3a 72 65 64 65 66 69 6e 69 74 69 6f 6e 29 | yle-warning.:note.:redefinition) |
| 1922c0 | 29 0a 0a 3b 3b 20 42 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 20 74 79 70 65 20 66 6f 72 20 63 6f | )..;;.Base.condition.type.for.co |
| 1922e0 | 6d 70 69 6c 65 72 20 65 72 72 6f 72 73 2c 20 77 61 72 6e 69 6e 67 73 20 61 6e 64 20 6e 6f 74 65 | mpiler.errors,.warnings.and.note |
| 192300 | 73 2e 0a 28 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6d 70 69 6c 65 72 2d 63 6f | s..(define-condition.compiler-co |
| 192320 | 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 28 6f 72 69 67 69 6e 61 6c | ndition.(condition)...((original |
| 192340 | 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 3b 3b 20 54 68 65 20 6f 72 69 67 69 6e 61 6c 20 63 | -condition.....;;.The.original.c |
| 192360 | 6f 6e 64 69 74 69 6f 6e 20 74 68 72 6f 77 6e 20 62 79 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 | ondition.thrown.by.the.compiler. |
| 192380 | 69 66 20 61 70 70 72 6f 70 72 69 61 74 65 2e 0a 20 20 20 20 3b 3b 20 4d 61 79 20 62 65 20 4e 49 | if.appropriate......;;.May.be.NI |
| 1923a0 | 4c 20 69 66 20 61 20 63 6f 6d 70 69 6c 65 72 20 64 6f 65 73 20 6e 6f 74 20 72 65 70 6f 72 74 20 | L.if.a.compiler.does.not.report. |
| 1923c0 | 75 73 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 73 2e 0a 20 20 20 20 3a 74 79 70 65 20 28 6f 72 20 | using.conditions......:type.(or. |
| 1923e0 | 6e 75 6c 6c 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 3a 69 6e 69 74 61 72 67 20 3a 6f 72 | null.condition).....:initarg.:or |
| 192400 | 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 3a 61 63 63 65 73 73 6f 72 20 6f | iginal-condition.....:accessor.o |
| 192420 | 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 0a 20 20 20 28 73 65 76 65 72 69 74 79 | riginal-condition).....(severity |
| 192440 | 20 3a 74 79 70 65 20 73 65 76 65 72 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e | .:type.severity..............:in |
| 192460 | 69 74 61 72 67 20 3a 73 65 76 65 72 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 | itarg.:severity..............:ac |
| 192480 | 63 65 73 73 6f 72 20 73 65 76 65 72 69 74 79 29 0a 0a 20 20 20 28 6d 65 73 73 61 67 65 20 3a 69 | cessor.severity).....(message.:i |
| 1924a0 | 6e 69 74 61 72 67 20 3a 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 63 | nitarg.:message.............:acc |
| 1924c0 | 65 73 73 6f 72 20 6d 65 73 73 61 67 65 29 0a 0a 20 20 20 3b 3b 20 4d 61 63 72 6f 20 65 78 70 61 | essor.message).....;;.Macro.expa |
| 1924e0 | 6e 73 69 6f 6e 20 68 69 73 74 6f 72 79 20 65 74 63 2e 20 77 68 69 63 68 20 6d 61 79 20 62 65 20 | nsion.history.etc..which.may.be. |
| 192500 | 68 65 6c 70 66 75 6c 20 69 6e 20 73 6f 6d 65 20 63 61 73 65 73 0a 20 20 20 3b 3b 20 62 75 74 20 | helpful.in.some.cases....;;.but. |
| 192520 | 69 73 20 6f 66 74 65 6e 20 76 65 72 79 20 76 65 72 62 6f 73 65 2e 0a 20 20 20 28 73 6f 75 72 63 | is.often.very.verbose.....(sourc |
| 192540 | 65 2d 63 6f 6e 74 65 78 74 20 3a 69 6e 69 74 61 72 67 20 3a 73 6f 75 72 63 65 2d 63 6f 6e 74 65 | e-context.:initarg.:source-conte |
| 192560 | 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 79 70 65 20 28 6f 72 20 | xt....................:type.(or. |
| 192580 | 6e 75 6c 6c 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | null.string).................... |
| 1925a0 | 3a 69 6e 69 74 66 6f 72 6d 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :initform.nil................... |
| 1925c0 | 20 3a 61 63 63 65 73 73 6f 72 20 73 6f 75 72 63 65 2d 63 6f 6e 74 65 78 74 29 0a 0a 20 20 20 28 | .:accessor.source-context).....( |
| 1925e0 | 72 65 66 65 72 65 6e 63 65 73 20 3a 69 6e 69 74 61 72 67 20 3a 72 65 66 65 72 65 6e 63 65 73 0a | references.:initarg.:references. |
| 192600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 66 6f 72 6d 20 6e 69 6c 0a 20 20 20 | ...............:initform.nil.... |
| 192620 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 63 65 73 73 6f 72 20 72 65 66 65 72 65 6e 63 65 73 | ............:accessor.references |
| 192640 | 29 0a 0a 20 20 20 28 6c 6f 63 61 74 69 6f 6e 20 3a 69 6e 69 74 61 72 67 20 3a 6c 6f 63 61 74 69 | ).....(location.:initarg.:locati |
| 192660 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 63 65 73 73 6f 72 20 6c 6f 63 61 74 69 | on..............:accessor.locati |
| 192680 | 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 69 6e 64 2d 65 78 74 65 72 6e | on)))..(definterface.find-extern |
| 1926a0 | 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 22 52 65 74 | al-format.(coding-system)..."Ret |
| 1926c0 | 75 72 6e 20 61 20 5c 22 65 78 74 65 72 6e 61 6c 20 66 69 6c 65 20 66 6f 72 6d 61 74 20 64 65 73 | urn.a.\"external.file.format.des |
| 1926e0 | 69 67 6e 61 74 6f 72 5c 22 20 66 6f 72 20 43 4f 44 49 4e 47 2d 53 59 53 54 45 4d 2e 0a 43 4f 44 | ignator\".for.CODING-SYSTEM..COD |
| 192700 | 49 4e 47 2d 53 59 53 54 45 4d 20 69 73 20 45 6d 61 63 73 2d 73 74 79 6c 65 20 63 6f 64 69 6e 67 | ING-SYSTEM.is.Emacs-style.coding |
| 192720 | 20 73 79 73 74 65 6d 20 6e 61 6d 65 20 28 61 20 73 74 72 69 6e 67 29 2c 0a 65 2e 67 2e 20 5c 22 | .system.name.(a.string),.e.g..\" |
| 192740 | 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 5c 22 2e 22 0a 20 20 28 69 66 20 28 65 71 75 61 6c 20 63 6f | latin-1-unix\"."...(if.(equal.co |
| 192760 | 64 69 6e 67 2d 73 79 73 74 65 6d 20 22 69 73 6f 2d 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 29 0a | ding-system."iso-latin-1-unix"). |
| 192780 | 20 20 20 20 20 20 3a 64 65 66 61 75 6c 74 0a 20 20 20 20 20 20 6e 69 6c 29 29 0a 0a 28 64 65 66 | ......:default.......nil))..(def |
| 1927a0 | 69 6e 74 65 72 66 61 63 65 20 67 75 65 73 73 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 | interface.guess-external-format. |
| 1927c0 | 28 70 61 74 68 6e 61 6d 65 29 0a 20 20 22 44 65 74 65 63 74 20 74 68 65 20 65 78 74 65 72 6e 61 | (pathname)..."Detect.the.externa |
| 1927e0 | 6c 20 66 6f 72 6d 61 74 20 66 6f 72 20 74 68 65 20 66 69 6c 65 20 77 69 74 68 20 6e 61 6d 65 20 | l.format.for.the.file.with.name. |
| 192800 | 70 61 74 68 6e 61 6d 65 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 74 68 65 20 66 69 6c 65 | pathname..Return.nil.if.the.file |
| 192820 | 20 63 6f 6e 74 61 69 6e 73 20 6e 6f 20 73 70 65 63 69 61 6c 20 6d 61 72 6b 65 72 73 2e 22 0a 20 | .contains.no.special.markers.".. |
| 192840 | 20 3b 3b 20 4c 6f 6f 6b 20 66 6f 72 20 61 20 45 6d 61 63 73 2d 73 74 79 6c 65 20 2d 2a 2d 20 63 | .;;.Look.for.a.Emacs-style.-*-.c |
| 192860 | 6f 64 69 6e 67 3a 20 2e 2e 2e 20 2d 2a 2d 20 6f 72 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 | oding:.....-*-.or.Local.Variable |
| 192880 | 3a 20 73 65 63 74 69 6f 6e 2e 0a 20 20 28 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 73 20 | :.section....(with-open-file.(s. |
| 1928a0 | 70 61 74 68 6e 61 6d 65 20 3a 69 66 2d 64 6f 65 73 2d 6e 6f 74 2d 65 78 69 73 74 20 6e 69 6c 0a | pathname.:if-does-not-exist.nil. |
| 1928c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 | .....................:external-f |
| 1928e0 | 6f 72 6d 61 74 20 28 6f 72 20 28 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 | ormat.(or.(find-external-format. |
| 192900 | 22 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "latin-1-unix")................. |
| 192920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 66 61 75 | ..........................:defau |
| 192940 | 6c 74 29 29 0a 20 20 20 20 28 69 66 20 73 0a 20 20 20 20 20 20 20 20 28 6f 72 20 28 6c 65 74 2a | lt)).....(if.s.........(or.(let* |
| 192960 | 20 28 28 6c 69 6e 65 20 28 72 65 61 64 2d 6c 69 6e 65 20 73 20 6e 69 6c 29 29 0a 20 20 20 20 20 | .((line.(read-line.s.nil))...... |
| 192980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 20 28 73 65 61 72 63 68 20 22 2d 2a 2d 22 20 6c | ..............(p.(search."-*-".l |
| 1929a0 | 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 0a 20 20 20 | ine)))...............(when.p.... |
| 1929c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 61 72 74 20 28 2b 20 70 20 | .............(let*.((start.(+.p. |
| 1929e0 | 28 6c 65 6e 67 74 68 20 22 2d 2a 2d 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (length."-*-")))................ |
| 192a00 | 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 73 65 61 72 63 68 20 22 2d 2a 2d 22 20 6c 69 6e 65 20 | ........(end.(search."-*-".line. |
| 192a20 | 3a 73 74 61 72 74 32 20 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :start2.start)))................ |
| 192a40 | 20 20 20 28 77 68 65 6e 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(when.end.................... |
| 192a60 | 20 28 25 73 65 61 72 63 68 2d 63 6f 64 69 6e 67 20 6c 69 6e 65 20 73 74 61 72 74 20 65 6e 64 29 | .(%search-coding.line.start.end) |
| 192a80 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 65 6e 20 28 66 69 | )))).............(let*.((len.(fi |
| 192aa0 | 6c 65 2d 6c 65 6e 67 74 68 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-length.s))................... |
| 192ac0 | 20 28 62 75 66 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 6d 69 6e 20 6c 65 6e 20 33 30 30 30 | .(buf.(make-string.(min.len.3000 |
| 192ae0 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f | ))))...............(file-positio |
| 192b00 | 6e 20 73 20 28 2d 20 6c 65 6e 20 28 6c 65 6e 67 74 68 20 62 75 66 29 29 29 0a 20 20 20 20 20 20 | n.s.(-.len.(length.buf)))....... |
| 192b20 | 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 73 65 71 75 65 6e 63 65 20 62 75 66 20 73 29 0a 20 20 | ........(read-sequence.buf.s)... |
| 192b40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 73 65 61 72 63 68 | ............(let.((start.(search |
| 192b60 | 20 22 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 3a 22 20 62 75 66 20 3a 66 72 6f 6d 2d 65 6e | ."Local.Variables:".buf.:from-en |
| 192b80 | 64 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 | d.t)).....................(end.( |
| 192ba0 | 73 65 61 72 63 68 20 22 45 6e 64 3a 22 20 62 75 66 20 3a 66 72 6f 6d 2d 65 6e 64 20 74 29 29 29 | search."End:".buf.:from-end.t))) |
| 192bc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 73 74 61 72 74 20 65 6e 64 20 | .................(and.start.end. |
| 192be0 | 28 3c 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (<.start.end)................... |
| 192c00 | 20 20 20 28 25 73 65 61 72 63 68 2d 63 6f 64 69 6e 67 20 62 75 66 20 73 74 61 72 74 20 65 6e 64 | ...(%search-coding.buf.start.end |
| 192c20 | 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 25 73 65 61 72 63 68 2d 63 6f 64 69 6e 67 20 | ))))))))..(defun.%search-coding. |
| 192c40 | 28 73 74 72 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 6c 65 74 20 28 28 70 20 28 73 65 61 72 | (str.start.end)...(let.((p.(sear |
| 192c60 | 63 68 20 22 63 6f 64 69 6e 67 3a 22 20 73 74 72 20 3a 73 74 61 72 74 32 20 73 74 61 72 74 20 3a | ch."coding:".str.:start2.start.: |
| 192c80 | 65 6e 64 32 20 65 6e 64 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 70 0a 20 20 20 20 20 20 28 69 | end2.end))).....(when.p.......(i |
| 192ca0 | 6e 63 66 20 70 20 28 6c 65 6e 67 74 68 20 22 63 6f 64 69 6e 67 3a 22 29 29 0a 20 20 20 20 20 20 | ncf.p.(length."coding:"))....... |
| 192cc0 | 28 6c 6f 6f 70 20 77 68 69 6c 65 20 28 61 6e 64 20 28 3c 20 70 20 65 6e 64 29 0a 20 20 20 20 20 | (loop.while.(and.(<.p.end)...... |
| 192ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 28 61 72 65 66 20 | ..................(member.(aref. |
| 192d00 | 73 74 72 20 70 29 20 27 28 23 5c 73 70 61 63 65 20 23 5c 74 61 62 29 29 29 0a 20 20 20 20 20 20 | str.p).'(#\space.#\tab)))....... |
| 192d20 | 20 20 20 20 20 20 64 6f 20 28 69 6e 63 66 20 70 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 | ......do.(incf.p)).......(let.(( |
| 192d40 | 65 6e 64 20 28 70 6f 73 69 74 69 6f 6e 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 63 29 20 28 66 69 | end.(position-if.(lambda.(c).(fi |
| 192d60 | 6e 64 20 63 20 27 28 23 5c 73 70 61 63 65 20 23 5c 74 61 62 20 23 5c 6e 65 77 6c 69 6e 65 20 23 | nd.c.'(#\space.#\tab.#\newline.# |
| 192d80 | 5c 3b 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | \;)))........................... |
| 192da0 | 20 20 20 20 73 74 72 20 3a 73 74 61 72 74 20 70 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 69 6e | ....str.:start.p))).........(fin |
| 192dc0 | 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 73 75 62 73 65 71 20 73 74 72 20 70 20 | d-external-format.(subseq.str.p. |
| 192de0 | 65 6e 64 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 53 74 72 65 61 6d 73 0a 0a 28 64 65 66 69 | end))))))....;;;;.Streams..(defi |
| 192e00 | 6e 74 65 72 66 61 63 65 20 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 28 77 72 69 | nterface.make-output-stream.(wri |
| 192e20 | 74 65 2d 73 74 72 69 6e 67 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6e 65 77 20 63 68 61 72 61 | te-string)..."Return.a.new.chara |
| 192e40 | 63 74 65 72 20 6f 75 74 70 75 74 20 73 74 72 65 61 6d 2e 0a 54 68 65 20 73 74 72 65 61 6d 20 63 | cter.output.stream..The.stream.c |
| 192e60 | 61 6c 6c 73 20 57 52 49 54 45 2d 53 54 52 49 4e 47 20 77 68 65 6e 20 6f 75 74 70 75 74 20 69 73 | alls.WRITE-STRING.when.output.is |
| 192e80 | 20 72 65 61 64 79 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 6d 61 6b 65 2d 69 6e | .ready.")..(definterface.make-in |
| 192ea0 | 70 75 74 2d 73 74 72 65 61 6d 20 28 72 65 61 64 2d 73 74 72 69 6e 67 29 0a 20 20 22 52 65 74 75 | put-stream.(read-string)..."Retu |
| 192ec0 | 72 6e 20 61 20 6e 65 77 20 63 68 61 72 61 63 74 65 72 20 69 6e 70 75 74 20 73 74 72 65 61 6d 2e | rn.a.new.character.input.stream. |
| 192ee0 | 0a 54 68 65 20 73 74 72 65 61 6d 20 63 61 6c 6c 73 20 52 45 41 44 2d 53 54 52 49 4e 47 20 77 68 | .The.stream.calls.READ-STRING.wh |
| 192f00 | 65 6e 20 69 6e 70 75 74 20 69 73 20 6e 65 65 64 65 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a | en.input.is.needed.")..(defvar.* |
| 192f20 | 61 75 74 6f 2d 66 6c 75 73 68 2d 69 6e 74 65 72 76 61 6c 2a 20 30 2e 32 29 0a 0a 28 64 65 66 75 | auto-flush-interval*.0.2)..(defu |
| 192f40 | 6e 20 61 75 74 6f 2d 66 6c 75 73 68 2d 6c 6f 6f 70 20 28 73 74 72 65 61 6d 20 69 6e 74 65 72 76 | n.auto-flush-loop.(stream.interv |
| 192f60 | 61 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 63 65 69 76 65 20 28 66 6c 75 73 68 20 23 27 66 6f | al.&optional.receive.(flush.#'fo |
| 192f80 | 72 63 65 2d 6f 75 74 70 75 74 29 29 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 28 77 68 65 6e 20 28 6e | rce-output))...(loop....(when.(n |
| 192fa0 | 6f 74 20 28 61 6e 64 20 28 6f 70 65 6e 2d 73 74 72 65 61 6d 2d 70 20 73 74 72 65 61 6d 29 0a 20 | ot.(and.(open-stream-p.stream).. |
| 192fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 75 74 70 75 74 2d 73 74 72 65 61 6d | ..................(output-stream |
| 192fe0 | 2d 70 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 20 28 72 65 74 75 72 6e 20 6e 69 6c 29 29 0a | -p.stream)))......(return.nil)). |
| 193000 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6c 75 73 68 20 73 74 72 65 61 6d 29 0a 20 20 20 28 77 68 | ...(funcall.flush.stream)....(wh |
| 193020 | 65 6e 20 72 65 63 65 69 76 65 0a 20 20 20 20 20 28 72 65 63 65 69 76 65 2d 69 66 20 23 27 69 64 | en.receive......(receive-if.#'id |
| 193040 | 65 6e 74 69 74 79 29 29 0a 20 20 20 28 73 6c 65 65 70 20 69 6e 74 65 72 76 61 6c 29 29 29 0a 0a | entity))....(sleep.interval))).. |
| 193060 | 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 6d 61 6b 65 2d 61 75 74 6f 2d 66 6c 75 73 68 2d 74 68 | (definterface.make-auto-flush-th |
| 193080 | 72 65 61 64 20 28 73 74 72 65 61 6d 29 0a 20 20 22 4d 61 6b 65 20 61 6e 20 61 75 74 6f 2d 66 6c | read.(stream)..."Make.an.auto-fl |
| 1930a0 | 75 73 68 20 74 68 72 65 61 64 22 0a 20 20 28 73 70 61 77 6e 20 28 6c 61 6d 62 64 61 20 28 29 20 | ush.thread"...(spawn.(lambda.(). |
| 1930c0 | 28 61 75 74 6f 2d 66 6c 75 73 68 2d 6c 6f 6f 70 20 73 74 72 65 61 6d 20 2a 61 75 74 6f 2d 66 6c | (auto-flush-loop.stream.*auto-fl |
| 1930e0 | 75 73 68 2d 69 6e 74 65 72 76 61 6c 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 3a 6e 61 | ush-interval*.nil))..........:na |
| 193100 | 6d 65 20 22 61 75 74 6f 2d 66 6c 75 73 68 2d 74 68 72 65 61 64 22 29 29 0a 0a 28 64 65 66 69 6e | me."auto-flush-thread"))..(defin |
| 193120 | 74 65 72 66 61 63 65 20 72 65 61 6c 6c 79 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 28 73 74 | terface.really-finish-output.(st |
| 193140 | 72 65 61 6d 29 0a 20 20 22 46 49 4e 49 53 48 2d 4f 55 54 50 55 54 20 6f 72 20 6d 6f 72 65 22 0a | ream)..."FINISH-OUTPUT.or.more". |
| 193160 | 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 73 74 72 65 61 6d 29 29 0a 0a 0c 0a 3b 3b 3b | ..(finish-output.stream))....;;; |
| 193180 | 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 61 | ;.Documentation..(definterface.a |
| 1931a0 | 72 67 6c 69 73 74 20 28 6e 61 6d 65 29 0a 20 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 61 6d | rglist.(name)...."Return.the.lam |
| 1931c0 | 62 64 61 20 6c 69 73 74 20 66 6f 72 20 74 68 65 20 73 79 6d 62 6f 6c 20 4e 41 4d 45 2e 20 4e 41 | bda.list.for.the.symbol.NAME..NA |
| 1931e0 | 4d 45 20 63 61 6e 20 61 6c 73 6f 20 62 65 0a 61 20 6c 69 73 70 20 66 75 6e 63 74 69 6f 6e 20 6f | ME.can.also.be.a.lisp.function.o |
| 193200 | 62 6a 65 63 74 2c 20 6f 6e 20 6c 69 73 70 73 20 77 68 69 63 68 20 73 75 70 70 6f 72 74 20 74 68 | bject,.on.lisps.which.support.th |
| 193220 | 69 73 2e 0a 0a 54 68 65 20 72 65 73 75 6c 74 20 63 61 6e 20 62 65 20 61 20 6c 69 73 74 20 6f 72 | is...The.result.can.be.a.list.or |
| 193240 | 20 74 68 65 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 20 6b 65 79 77 6f 72 64 20 69 66 20 74 | .the.:not-available.keyword.if.t |
| 193260 | 68 65 0a 61 72 67 6c 69 73 74 20 63 61 6e 6e 6f 74 20 62 65 20 64 65 74 65 72 6d 69 6e 65 64 2e | he.arglist.cannot.be.determined. |
| 193280 | 22 0a 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6e 61 6d 65 29 29 0a 20 20 20 | "....(declare.(ignore.name)).... |
| 1932a0 | 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 64 65 63 | :not-available)..(defgeneric.dec |
| 1932c0 | 6c 61 72 61 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 28 64 65 63 6c 2d 69 64 65 6e 74 69 66 69 65 | laration-arglist.(decl-identifie |
| 1932e0 | 72 29 0a 20 20 28 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 20 20 20 22 52 65 74 75 72 6e 20 | r)...(:documentation...."Return. |
| 193300 | 74 68 65 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 6f 66 20 74 68 65 20 64 65 63 6c 61 72 61 | the.argument.list.of.the.declara |
| 193320 | 74 69 6f 6e 20 73 70 65 63 69 66 69 65 72 20 62 65 6c 6f 6e 67 69 6e 67 20 74 6f 20 74 68 65 0a | tion.specifier.belonging.to.the. |
| 193340 | 64 65 63 6c 61 72 61 74 69 6f 6e 20 69 64 65 6e 74 69 66 69 65 72 20 44 45 43 4c 2d 49 44 45 4e | declaration.identifier.DECL-IDEN |
| 193360 | 54 49 46 49 45 52 2e 20 49 66 20 74 68 65 20 61 72 67 6c 69 73 74 20 63 61 6e 6e 6f 74 20 62 65 | TIFIER..If.the.arglist.cannot.be |
| 193380 | 20 64 65 74 65 72 6d 69 6e 65 64 2c 0a 74 68 65 20 6b 65 79 77 6f 72 64 20 3a 4e 4f 54 2d 41 56 | .determined,.the.keyword.:NOT-AV |
| 1933a0 | 41 49 4c 41 42 4c 45 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 0a 54 68 65 20 64 69 66 66 65 72 | AILABLE.is.returned...The.differ |
| 1933c0 | 65 6e 74 20 53 57 41 4e 4b 20 62 61 63 6b 65 6e 64 73 20 63 61 6e 20 73 70 65 63 69 61 6c 69 7a | ent.SWANK.backends.can.specializ |
| 1933e0 | 65 20 74 68 69 73 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 74 6f 0a 69 6e 63 6c 75 | e.this.generic.function.to.inclu |
| 193400 | 64 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 64 65 70 65 6e 64 65 6e 64 20 64 65 63 6c | de.implementation-dependend.decl |
| 193420 | 61 72 61 74 69 6f 6e 20 73 70 65 63 69 66 69 65 72 73 2c 20 6f 72 20 74 6f 20 70 72 6f 76 69 64 | aration.specifiers,.or.to.provid |
| 193440 | 65 0a 61 64 64 69 74 69 6f 6e 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 74 68 65 20 | e.additional.information.on.the. |
| 193460 | 73 70 65 63 69 66 69 65 72 73 20 64 65 66 69 6e 65 64 20 69 6e 20 41 4e 53 49 20 43 6f 6d 6d 6f | specifiers.defined.in.ANSI.Commo |
| 193480 | 6e 20 4c 69 73 70 2e 22 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 64 65 63 6c 2d 69 64 65 6e 74 | n.Lisp.")...(:method.(decl-ident |
| 1934a0 | 69 66 69 65 72 29 0a 20 20 20 20 28 63 61 73 65 20 64 65 63 6c 2d 69 64 65 6e 74 69 66 69 65 72 | ifier).....(case.decl-identifier |
| 1934c0 | 0a 20 20 20 20 20 20 28 64 79 6e 61 6d 69 63 2d 65 78 74 65 6e 74 20 27 28 26 72 65 73 74 20 76 | .......(dynamic-extent.'(&rest.v |
| 1934e0 | 61 72 69 61 62 6c 65 73 29 29 0a 20 20 20 20 20 20 28 69 67 6e 6f 72 65 20 20 20 20 20 20 20 20 | ariables)).......(ignore........ |
| 193500 | 20 27 28 26 72 65 73 74 20 76 61 72 69 61 62 6c 65 73 29 29 0a 20 20 20 20 20 20 28 69 67 6e 6f | .'(&rest.variables)).......(igno |
| 193520 | 72 61 62 6c 65 20 20 20 20 20 20 27 28 26 72 65 73 74 20 76 61 72 69 61 62 6c 65 73 29 29 0a 20 | rable......'(&rest.variables)).. |
| 193540 | 20 20 20 20 20 28 73 70 65 63 69 61 6c 20 20 20 20 20 20 20 20 27 28 26 72 65 73 74 20 76 61 72 | .....(special........'(&rest.var |
| 193560 | 69 61 62 6c 65 73 29 29 0a 20 20 20 20 20 20 28 69 6e 6c 69 6e 65 20 20 20 20 20 20 20 20 20 27 | iables)).......(inline.........' |
| 193580 | 28 26 72 65 73 74 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 73 29 29 0a 20 20 20 20 20 20 28 6e | (&rest.function-names)).......(n |
| 1935a0 | 6f 74 69 6e 6c 69 6e 65 20 20 20 20 20 20 27 28 26 72 65 73 74 20 66 75 6e 63 74 69 6f 6e 2d 6e | otinline......'(&rest.function-n |
| 1935c0 | 61 6d 65 73 29 29 0a 20 20 20 20 20 20 28 64 65 63 6c 61 72 61 74 69 6f 6e 20 20 20 20 27 28 26 | ames)).......(declaration....'(& |
| 1935e0 | 72 65 73 74 20 6e 61 6d 65 73 29 29 0a 20 20 20 20 20 20 28 6f 70 74 69 6d 69 7a 65 20 20 20 20 | rest.names)).......(optimize.... |
| 193600 | 20 20 20 27 28 26 61 6e 79 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 73 70 65 65 64 20 64 65 62 75 | ...'(&any.compilation-speed.debu |
| 193620 | 67 20 73 61 66 65 74 79 20 73 70 61 63 65 20 73 70 65 65 64 29 29 0a 20 20 20 20 20 20 28 74 79 | g.safety.space.speed)).......(ty |
| 193640 | 70 65 20 20 20 20 20 20 20 20 20 20 20 27 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 20 26 72 | pe...........'(type-specifier.&r |
| 193660 | 65 73 74 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 28 66 74 79 70 65 20 20 20 20 20 20 20 20 20 | est.args)).......(ftype......... |
| 193680 | 20 27 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 20 26 72 65 73 74 20 66 75 6e 63 74 69 6f 6e | .'(type-specifier.&rest.function |
| 1936a0 | 2d 6e 61 6d 65 73 29 29 0a 20 20 20 20 20 20 28 6f 74 68 65 72 77 69 73 65 0a 20 20 20 20 20 20 | -names)).......(otherwise....... |
| 1936c0 | 20 28 66 6c 65 74 20 28 28 74 79 70 65 73 70 65 63 2d 70 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 | .(flet.((typespec-p.(symbol).... |
| 1936e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 3a 74 79 70 65 20 28 64 65 73 63 | .............(member.:type.(desc |
| 193700 | 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 73 79 6d 62 6f 6c 29 29 29 29 | ribe-symbol-for-emacs.symbol)))) |
| 193720 | 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 64 | ..........(cond.((and.(symbolp.d |
| 193740 | 65 63 6c 2d 69 64 65 6e 74 69 66 69 65 72 29 20 28 74 79 70 65 73 70 65 63 2d 70 20 64 65 63 6c | ecl-identifier).(typespec-p.decl |
| 193760 | 2d 69 64 65 6e 74 69 66 69 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 | -identifier)).................'( |
| 193780 | 26 72 65 73 74 20 76 61 72 69 61 62 6c 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | &rest.variables))............... |
| 1937a0 | 20 28 28 61 6e 64 20 28 6c 69 73 74 70 20 64 65 63 6c 2d 69 64 65 6e 74 69 66 69 65 72 29 0a 20 | .((and.(listp.decl-identifier).. |
| 1937c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 73 70 65 63 2d 70 20 | ....................(typespec-p. |
| 1937e0 | 28 66 69 72 73 74 20 64 65 63 6c 2d 69 64 65 6e 74 69 66 69 65 72 29 29 29 0a 20 20 20 20 20 20 | (first.decl-identifier)))....... |
| 193800 | 20 20 20 20 20 20 20 20 20 20 27 28 26 72 65 73 74 20 76 61 72 69 61 62 6c 65 73 29 29 0a 20 20 | ..........'(&rest.variables))... |
| 193820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 | .............(t.:not-available)) |
| 193840 | 29 29 29 29 29 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 | )))))..(defgeneric.type-specifie |
| 193860 | 72 2d 61 72 67 6c 69 73 74 20 28 74 79 70 65 73 70 65 63 2d 6f 70 65 72 61 74 6f 72 29 0a 20 20 | r-arglist.(typespec-operator)... |
| 193880 | 28 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 20 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 61 | (:documentation...."Return.the.a |
| 1938a0 | 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 6f 66 20 74 68 65 20 74 79 70 65 20 73 70 65 63 69 66 69 | rgument.list.of.the.type.specifi |
| 1938c0 | 65 72 20 62 65 6c 6f 6e 67 69 6e 67 20 74 6f 0a 54 59 50 45 53 50 45 43 2d 4f 50 45 52 41 54 4f | er.belonging.to.TYPESPEC-OPERATO |
| 1938e0 | 52 2e 2e 20 49 66 20 74 68 65 20 61 72 67 6c 69 73 74 20 63 61 6e 6e 6f 74 20 62 65 20 64 65 74 | R...If.the.arglist.cannot.be.det |
| 193900 | 65 72 6d 69 6e 65 64 2c 20 74 68 65 20 6b 65 79 77 6f 72 64 0a 3a 4e 4f 54 2d 41 56 41 49 4c 41 | ermined,.the.keyword.:NOT-AVAILA |
| 193920 | 42 4c 45 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 0a 54 68 65 20 64 69 66 66 65 72 65 6e 74 20 | BLE.is.returned...The.different. |
| 193940 | 53 57 41 4e 4b 20 62 61 63 6b 65 6e 64 73 20 63 61 6e 20 73 70 65 63 69 61 6c 69 7a 65 20 74 68 | SWANK.backends.can.specialize.th |
| 193960 | 69 73 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 74 6f 0a 69 6e 63 6c 75 64 65 20 69 | is.generic.function.to.include.i |
| 193980 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 64 65 70 65 6e 64 65 6e 64 20 64 65 63 6c 61 72 61 74 | mplementation-dependend.declarat |
| 1939a0 | 69 6f 6e 20 73 70 65 63 69 66 69 65 72 73 2c 20 6f 72 20 74 6f 20 70 72 6f 76 69 64 65 0a 61 64 | ion.specifiers,.or.to.provide.ad |
| 1939c0 | 64 69 74 69 6f 6e 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 74 68 65 20 73 70 65 63 | ditional.information.on.the.spec |
| 1939e0 | 69 66 69 65 72 73 20 64 65 66 69 6e 65 64 20 69 6e 20 41 4e 53 49 20 43 6f 6d 6d 6f 6e 20 4c 69 | ifiers.defined.in.ANSI.Common.Li |
| 193a00 | 73 70 2e 22 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 74 79 70 65 73 70 65 63 2d 6f 70 65 72 61 | sp.")...(:method.(typespec-opera |
| 193a20 | 74 6f 72 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 73 70 65 63 69 61 6c 20 2a 74 79 70 65 | tor).....(declare.(special.*type |
| 193a40 | 2d 73 70 65 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 73 2a 29 29 20 3b 20 64 65 66 69 6e 65 64 | -specifier-arglists*)).;.defined |
| 193a60 | 20 61 74 20 65 6e 64 20 6f 66 20 66 69 6c 65 2e 0a 20 20 20 20 28 74 79 70 65 63 61 73 65 20 74 | .at.end.of.file......(typecase.t |
| 193a80 | 79 70 65 73 70 65 63 2d 6f 70 65 72 61 74 6f 72 0a 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 | ypespec-operator.......(symbol.( |
| 193aa0 | 6f 72 20 28 63 64 72 20 28 61 73 73 6f 63 20 74 79 70 65 73 70 65 63 2d 6f 70 65 72 61 74 6f 72 | or.(cdr.(assoc.typespec-operator |
| 193ac0 | 20 2a 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 73 2a 29 29 0a 20 20 20 | .*type-specifier-arglists*)).... |
| 193ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 0a | ...............:not-available)). |
| 193b00 | 20 20 20 20 20 20 28 74 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 29 0a 0a 28 64 65 | ......(t.:not-available))))..(de |
| 193b20 | 66 69 6e 74 65 72 66 61 63 65 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 28 73 79 6d | finterface.type-specifier-p.(sym |
| 193b40 | 62 6f 6c 29 0a 20 20 22 44 65 74 65 72 6d 69 6e 65 20 69 66 20 53 59 4d 42 4f 4c 20 69 73 20 61 | bol)..."Determine.if.SYMBOL.is.a |
| 193b60 | 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2e 22 0a 20 20 28 6f 72 20 28 64 6f 63 75 6d 65 6e | .type-specifier."...(or.(documen |
| 193b80 | 74 61 74 69 6f 6e 20 73 79 6d 62 6f 6c 20 27 74 79 70 65 29 0a 20 20 20 20 20 20 28 6e 6f 74 20 | tation.symbol.'type).......(not. |
| 193ba0 | 28 65 71 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 20 73 79 6d 62 | (eq.(type-specifier-arglist.symb |
| 193bc0 | 6f 6c 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 | ol).:not-available))))..(definte |
| 193be0 | 72 66 61 63 65 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 | rface.function-name.(function).. |
| 193c00 | 20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f | ."Return.the.name.of.the.functio |
| 193c20 | 6e 20 6f 62 6a 65 63 74 20 46 55 4e 43 54 49 4f 4e 2e 0a 0a 54 68 65 20 72 65 73 75 6c 74 20 69 | n.object.FUNCTION...The.result.i |
| 193c40 | 73 20 65 69 74 68 65 72 20 61 20 73 79 6d 62 6f 6c 2c 20 61 20 6c 69 73 74 2c 20 6f 72 20 4e 49 | s.either.a.symbol,.a.list,.or.NI |
| 193c60 | 4c 20 69 66 20 6e 6f 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 69 73 0a 61 76 61 69 6c 61 62 | L.if.no.function.name.is.availab |
| 193c80 | 6c 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 75 6e 63 74 69 6f 6e | le."...(declare.(ignore.function |
| 193ca0 | 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 76 61 6c 69 64 2d 66 | ))...nil)..(definterface.valid-f |
| 193cc0 | 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 20 28 66 6f 72 6d 29 0a 20 20 22 49 73 20 46 4f 52 4d | unction-name-p.(form)..."Is.FORM |
| 193ce0 | 20 73 79 6e 74 61 63 74 69 63 61 6c 6c 79 20 76 61 6c 69 64 20 74 6f 20 6e 61 6d 65 20 61 20 66 | .syntactically.valid.to.name.a.f |
| 193d00 | 75 6e 63 74 69 6f 6e 3f 0a 20 20 20 49 66 20 74 72 75 65 2c 20 46 42 4f 55 4e 44 50 20 73 68 6f | unction?....If.true,.FBOUNDP.sho |
| 193d20 | 75 6c 64 20 6e 6f 74 20 73 69 67 6e 61 6c 20 61 20 74 79 70 65 2d 65 72 72 6f 72 20 66 6f 72 20 | uld.not.signal.a.type-error.for. |
| 193d40 | 46 4f 52 4d 2e 22 0a 20 20 28 66 6c 65 74 20 28 28 6c 65 6e 67 74 68 3d 32 20 28 6c 69 73 74 29 | FORM."...(flet.((length=2.(list) |
| 193d60 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6e 6f 74 20 28 6e 75 6c 6c 20 28 63 64 72 | ............(and.(not.(null.(cdr |
| 193d80 | 20 6c 69 73 74 29 29 29 20 28 6e 75 6c 6c 20 28 63 64 64 72 20 6c 69 73 74 29 29 29 29 29 0a 20 | .list))).(null.(cddr.list))))).. |
| 193da0 | 20 20 20 28 6f 72 20 28 73 79 6d 62 6f 6c 70 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 28 61 | ...(or.(symbolp.form).........(a |
| 193dc0 | 6e 64 20 28 63 6f 6e 73 70 20 66 6f 72 6d 29 20 28 6c 65 6e 67 74 68 3d 32 20 66 6f 72 6d 29 0a | nd.(consp.form).(length=2.form). |
| 193de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 66 69 72 73 74 20 66 6f 72 6d 29 20 27 73 | .............(eq.(first.form).'s |
| 193e00 | 65 74 66 29 20 28 73 79 6d 62 6f 6c 70 20 28 73 65 63 6f 6e 64 20 66 6f 72 6d 29 29 29 29 29 29 | etf).(symbolp.(second.form)))))) |
| 193e20 | 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 | ..(definterface.macroexpand-all. |
| 193e40 | 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 20 22 52 65 63 75 72 73 69 | (form.&optional.env)...."Recursi |
| 193e60 | 76 65 6c 79 20 65 78 70 61 6e 64 20 61 6c 6c 20 6d 61 63 72 6f 73 20 69 6e 20 46 4f 52 4d 2e 0a | vely.expand.all.macros.in.FORM.. |
| 193e80 | 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 66 6f 72 6d 2e 22 29 0a 0a 28 64 | Return.the.resulting.form.")..(d |
| 193ea0 | 65 66 69 6e 74 65 72 66 61 63 65 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 | efinterface.compiler-macroexpand |
| 193ec0 | 2d 31 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 22 43 61 6c 6c 20 | -1.(form.&optional.env)..."Call. |
| 193ee0 | 74 68 65 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 20 66 6f 72 6d 2e 0a 49 66 20 | the.compiler-macro.for.form..If. |
| 193f00 | 46 4f 52 4d 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 20 66 6f 72 20 77 68 69 63 | FORM.is.a.function.call.for.whic |
| 193f20 | 68 20 61 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 61 73 20 62 65 65 6e 0a 64 65 66 69 | h.a.compiler-macro.has.been.defi |
| 193f40 | 6e 65 64 2c 20 69 6e 76 6f 6b 65 20 74 68 65 20 65 78 70 61 6e 64 65 72 20 66 75 6e 63 74 69 6f | ned,.invoke.the.expander.functio |
| 193f60 | 6e 20 75 73 69 6e 67 20 2a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 68 6f 6f 6b 2a 20 61 6e 64 0a 72 | n.using.*macroexpand-hook*.and.r |
| 193f80 | 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 73 20 61 6e 64 20 54 2e 20 20 4f 74 68 65 72 77 | eturn.the.results.and.T...Otherw |
| 193fa0 | 69 73 65 2c 20 72 65 74 75 72 6e 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 66 6f 72 6d 20 61 6e | ise,.return.the.original.form.an |
| 193fc0 | 64 0a 4e 49 4c 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 75 6e 20 28 61 6e 64 20 28 63 6f 6e 73 70 | d.NIL."...(let.((fun.(and.(consp |
| 193fe0 | 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 69 64 2d | .form)...................(valid- |
| 194000 | 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 20 28 63 61 72 20 66 6f 72 6d 29 29 0a 20 20 20 20 | function-name-p.(car.form))..... |
| 194020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 | ..............(compiler-macro-fu |
| 194040 | 6e 63 74 69 6f 6e 20 28 63 61 72 20 66 6f 72 6d 29 20 65 6e 76 29 29 29 29 0a 20 20 20 20 28 69 | nction.(car.form).env)))).....(i |
| 194060 | 66 20 66 75 6e 0a 09 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 66 75 6e 63 61 6c 6c 20 2a 6d | f.fun..(let.((result.(funcall.*m |
| 194080 | 61 63 72 6f 65 78 70 61 6e 64 2d 68 6f 6f 6b 2a 20 66 75 6e 20 66 6f 72 6d 20 65 6e 76 29 29 29 | acroexpand-hook*.fun.form.env))) |
| 1940a0 | 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 72 65 73 75 6c 74 20 28 6e 6f 74 20 28 | ...........(values.result.(not.( |
| 1940c0 | 65 71 20 72 65 73 75 6c 74 20 66 6f 72 6d 29 29 29 29 0a 09 28 76 61 6c 75 65 73 20 66 6f 72 6d | eq.result.form))))..(values.form |
| 1940e0 | 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 6f 6d 70 69 6c 65 72 | .nil))))..(definterface.compiler |
| 194100 | 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 | -macroexpand.(form.&optional.env |
| 194120 | 29 0a 20 20 22 52 65 70 65 74 69 74 69 76 65 6c 79 20 63 61 6c 6c 20 60 63 6f 6d 70 69 6c 65 72 | )..."Repetitively.call.`compiler |
| 194140 | 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 27 2e 22 0a 20 20 28 6c 61 62 65 6c 73 20 28 28 66 72 | -macroexpand-1'."...(labels.((fr |
| 194160 | 6f 62 20 28 66 6f 72 6d 20 65 78 70 61 6e 64 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ob.(form.expanded).............. |
| 194180 | 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6e 65 77 2d 66 6f 72 6d 20 6e | (multiple-value-bind.(new-form.n |
| 1941a0 | 65 77 6c 79 2d 65 78 70 61 6e 64 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ewly-expanded).................. |
| 1941c0 | 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 66 6f 72 6d 20 65 6e 76 | (compiler-macroexpand-1.form.env |
| 1941e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6e 65 77 6c 79 2d 65 78 70 61 6e | )................(if.newly-expan |
| 194200 | 64 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 72 6f 62 20 6e 65 77 | ded....................(frob.new |
| 194220 | 2d 66 6f 72 6d 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c | -form.t)....................(val |
| 194240 | 75 65 73 20 6e 65 77 2d 66 6f 72 6d 20 65 78 70 61 6e 64 65 64 29 29 29 29 29 0a 20 20 20 20 28 | ues.new-form.expanded))))).....( |
| 194260 | 66 72 6f 62 20 66 6f 72 6d 20 65 6e 76 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 | frob.form.env)))..(defmacro.with |
| 194280 | 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 0a 20 20 20 20 28 28 66 6f 72 | -collected-macro-forms.....((for |
| 1942a0 | 6d 73 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 73 75 6c 74 29 20 69 6e 73 74 72 75 6d 65 6e 74 65 | ms.&optional.result).instrumente |
| 1942c0 | 64 2d 66 6f 72 6d 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 43 6f 6c 6c 65 63 74 20 6d 61 | d-form.&body.body)..."Collect.ma |
| 1942e0 | 63 72 6f 20 66 6f 72 6d 73 20 62 79 20 6c 6f 63 61 6c 6c 79 20 62 69 6e 64 69 6e 67 20 2a 4d 41 | cro.forms.by.locally.binding.*MA |
| 194300 | 43 52 4f 45 58 50 41 4e 44 2d 48 4f 4f 4b 2a 2e 0a 0a 45 76 61 6c 75 61 74 65 73 20 49 4e 53 54 | CROEXPAND-HOOK*...Evaluates.INST |
| 194320 | 52 55 4d 45 4e 54 45 44 2d 46 4f 52 4d 20 61 6e 64 20 63 6f 6c 6c 65 63 74 73 20 61 6e 79 20 66 | RUMENTED-FORM.and.collects.any.f |
| 194340 | 6f 72 6d 73 20 77 68 69 63 68 20 75 6e 64 65 72 67 6f 0a 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 | orms.which.undergo.macro-expansi |
| 194360 | 6f 6e 20 69 6e 74 6f 20 61 20 6c 69 73 74 2e 20 20 54 68 65 6e 20 65 76 61 6c 75 61 74 65 73 20 | on.into.a.list...Then.evaluates. |
| 194380 | 42 4f 44 59 20 77 69 74 68 20 46 4f 52 4d 53 20 62 6f 75 6e 64 20 74 6f 0a 74 68 65 20 6c 69 73 | BODY.with.FORMS.bound.to.the.lis |
| 1943a0 | 74 20 6f 66 20 66 6f 72 6d 73 2c 20 61 6e 64 20 52 45 53 55 4c 54 20 28 6f 70 74 69 6f 6e 61 6c | t.of.forms,.and.RESULT.(optional |
| 1943c0 | 6c 79 29 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 0a 49 4e 53 54 52 55 | ly).bound.to.the.value.of.INSTRU |
| 1943e0 | 4d 45 4e 54 45 44 2d 46 4f 52 4d 2e 22 0a 20 20 28 61 73 73 65 72 74 20 28 61 6e 64 20 28 73 79 | MENTED-FORM."...(assert.(and.(sy |
| 194400 | 6d 62 6f 6c 70 20 66 6f 72 6d 73 29 20 28 6e 6f 74 20 28 6e 75 6c 6c 20 66 6f 72 6d 73 29 29 29 | mbolp.forms).(not.(null.forms))) |
| 194420 | 29 0a 20 20 28 61 73 73 65 72 74 20 28 73 79 6d 62 6f 6c 70 20 72 65 73 75 6c 74 29 29 0a 20 20 | )...(assert.(symbolp.result))... |
| 194440 | 28 6c 65 74 20 28 28 72 65 73 75 6c 74 2d 73 79 6d 62 6f 6c 20 28 6f 72 20 72 65 73 75 6c 74 20 | (let.((result-symbol.(or.result. |
| 194460 | 28 67 65 6e 73 79 6d 29 29 29 29 0a 20 20 20 60 28 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6c 6c 65 | (gensym))))....`(call-with-colle |
| 194480 | 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 2c | cted-macro-forms......(lambda.(, |
| 1944a0 | 66 6f 72 6d 73 20 2c 72 65 73 75 6c 74 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 28 64 65 | forms.,result-symbol)........(de |
| 1944c0 | 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 2c 40 28 61 6e 64 20 28 6e 6f 74 20 72 65 73 75 6c 74 | clare.(ignore.,@(and.(not.result |
| 1944e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 194500 | 20 60 28 2c 72 65 73 75 6c 74 2d 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 20 20 20 2c 40 62 | .`(,result-symbol))))........,@b |
| 194520 | 6f 64 79 29 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 2c 69 6e 73 74 72 75 6d 65 6e 74 | ody)......(lambda.().,instrument |
| 194540 | 65 64 2d 66 6f 72 6d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 63 6f | ed-form))))..(defun.call-with-co |
| 194560 | 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 28 62 6f 64 79 2d 66 6e 20 69 6e 73 | llected-macro-forms.(body-fn.ins |
| 194580 | 74 72 75 6d 65 6e 74 65 64 2d 66 6e 29 0a 20 20 28 6c 65 74 20 28 28 72 65 74 75 72 6e 2d 76 61 | trumented-fn)...(let.((return-va |
| 1945a0 | 6c 75 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 74 65 64 2d 66 6f 72 6d | lue.nil).........(collected-form |
| 1945c0 | 73 20 27 28 29 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 72 65 61 6c 2d 6d 61 63 72 6f 65 78 | s.'())).....(let*.((real-macroex |
| 1945e0 | 70 61 6e 64 2d 68 6f 6f 6b 20 2a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 68 6f 6f 6b 2a 29 0a 20 20 | pand-hook.*macroexpand-hook*)... |
| 194600 | 20 20 20 20 20 20 20 20 20 28 2a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 68 6f 6f 6b 2a 0a 20 20 20 | .........(*macroexpand-hook*.... |
| 194620 | 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e | .........(lambda.(macro-function |
| 194640 | 20 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .form.environment).............. |
| 194660 | 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 66 75 6e 63 61 6c 6c 20 72 65 61 6c 2d 6d 61 63 | .(let.((result.(funcall.real-mac |
| 194680 | 72 6f 65 78 70 61 6e 64 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | roexpand-hook................... |
| 1946a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f | ...................macro-functio |
| 1946c0 | 6e 20 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | n.form.environment)))........... |
| 1946e0 | 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 72 65 73 75 6c 74 20 66 6f 72 6d 29 0a 20 | ......(unless.(eq.result.form).. |
| 194700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 6f 72 6d 20 63 6f 6c 6c | .................(push.form.coll |
| 194720 | 65 63 74 65 64 2d 66 6f 72 6d 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 | ected-forms)).................re |
| 194740 | 73 75 6c 74 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 72 65 74 75 72 6e 2d 76 61 6c 75 | sult)))).......(setf.return-valu |
| 194760 | 65 20 28 66 75 6e 63 61 6c 6c 20 69 6e 73 74 72 75 6d 65 6e 74 65 64 2d 66 6e 29 29 29 0a 20 20 | e.(funcall.instrumented-fn)))... |
| 194780 | 20 20 28 66 75 6e 63 61 6c 6c 20 62 6f 64 79 2d 66 6e 20 63 6f 6c 6c 65 63 74 65 64 2d 66 6f 72 | ..(funcall.body-fn.collected-for |
| 1947a0 | 6d 73 20 72 65 74 75 72 6e 2d 76 61 6c 75 65 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 | ms.return-value)))..(definterfac |
| 1947c0 | 65 20 63 6f 6c 6c 65 63 74 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 28 66 6f 72 6d 20 26 6f 70 74 | e.collect-macro-forms.(form.&opt |
| 1947e0 | 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 22 43 6f 6c 6c 65 63 74 20 73 75 62 66 6f 72 6d 73 20 6f | ional.env)..."Collect.subforms.o |
| 194800 | 66 20 46 4f 52 4d 20 77 68 69 63 68 20 75 6e 64 65 72 67 6f 20 28 63 6f 6d 70 69 6c 65 72 2d 29 | f.FORM.which.undergo.(compiler-) |
| 194820 | 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 2e 0a 52 65 74 75 72 6e 73 20 74 77 6f 20 76 61 6c | macro.expansion..Returns.two.val |
| 194840 | 75 65 73 3a 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 63 72 6f 20 66 6f 72 6d 73 20 61 6e 64 20 61 | ues:.a.list.of.macro.forms.and.a |
| 194860 | 20 6c 69 73 74 20 6f 66 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 0a 66 6f 72 6d 73 2e 22 0a | .list.of.compiler.macro.forms.". |
| 194880 | 20 20 28 77 69 74 68 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 28 6d | ..(with-collected-macro-forms.(m |
| 1948a0 | 61 63 72 6f 2d 66 6f 72 6d 73 20 65 78 70 61 6e 73 69 6f 6e 29 0a 20 20 20 20 20 20 28 69 67 6e | acro-forms.expansion).......(ign |
| 1948c0 | 6f 72 65 2d 65 72 72 6f 72 73 20 28 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 66 6f 72 6d | ore-errors.(macroexpand-all.form |
| 1948e0 | 20 65 6e 76 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f | .env)).....(with-collected-macro |
| 194900 | 2d 66 6f 72 6d 73 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 29 0a 20 20 | -forms.(compiler-macro-forms)... |
| 194920 | 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 77 61 72 6e 69 6e 67 20 23 27 | ......(handler-bind.((warning.#' |
| 194940 | 6d 75 66 66 6c 65 2d 77 61 72 6e 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f | muffle-warning))...........(igno |
| 194960 | 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 20 6e | re-errors.............(compile.n |
| 194980 | 69 6c 20 60 28 6c 61 6d 62 64 61 20 28 29 20 2c 65 78 70 61 6e 73 69 6f 6e 29 29 29 29 0a 20 20 | il.`(lambda.().,expansion))))... |
| 1949a0 | 20 20 20 20 28 76 61 6c 75 65 73 20 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 63 6f 6d 70 69 6c 65 72 | ....(values.macro-forms.compiler |
| 1949c0 | 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 29 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 | -macro-forms))))..(definterface. |
| 1949e0 | 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 2d 65 78 70 61 6e 64 20 28 63 6f 6e 74 72 6f 6c 2d 73 74 | format-string-expand.(control-st |
| 194a00 | 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 22 45 78 70 61 6e 64 20 74 68 | ring.&optional.env)..."Expand.th |
| 194a20 | 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 43 4f 4e 54 52 4f 4c 2d 53 54 52 49 4e 47 2e 22 | e.format.string.CONTROL-STRING." |
| 194a40 | 0a 20 20 28 6d 61 63 72 6f 65 78 70 61 6e 64 20 60 28 66 6f 72 6d 61 74 74 65 72 20 2c 63 6f 6e | ...(macroexpand.`(formatter.,con |
| 194a60 | 74 72 6f 6c 2d 73 74 72 69 6e 67 29 20 65 6e 76 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 | trol-string).env))..(definterfac |
| 194a80 | 65 20 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d | e.describe-symbol-for-emacs.(sym |
| 194aa0 | 62 6f 6c 29 0a 20 20 20 22 52 65 74 75 72 6e 20 61 20 70 72 6f 70 65 72 74 79 20 6c 69 73 74 20 | bol)...."Return.a.property.list. |
| 194ac0 | 64 65 73 63 72 69 62 69 6e 67 20 53 59 4d 42 4f 4c 2e 0a 0a 54 68 65 20 70 72 6f 70 65 72 74 79 | describing.SYMBOL...The.property |
| 194ae0 | 20 6c 69 73 74 20 68 61 73 20 61 6e 20 65 6e 74 72 79 20 66 6f 72 20 65 61 63 68 20 69 6e 74 65 | .list.has.an.entry.for.each.inte |
| 194b00 | 72 65 73 74 69 6e 67 20 61 73 70 65 63 74 20 6f 66 20 74 68 65 0a 73 79 6d 62 6f 6c 2e 20 54 68 | resting.aspect.of.the.symbol..Th |
| 194b20 | 65 20 72 65 63 6f 67 6e 69 73 65 64 20 6b 65 79 73 20 61 72 65 3a 0a 0a 20 20 3a 56 41 52 49 41 | e.recognised.keys.are:....:VARIA |
| 194b40 | 42 4c 45 20 3a 46 55 4e 43 54 49 4f 4e 20 3a 53 45 54 46 20 3a 53 50 45 43 49 41 4c 2d 4f 50 45 | BLE.:FUNCTION.:SETF.:SPECIAL-OPE |
| 194b60 | 52 41 54 4f 52 20 3a 4d 41 43 52 4f 20 3a 43 4f 4d 50 49 4c 45 52 2d 4d 41 43 52 4f 0a 20 20 3a | RATOR.:MACRO.:COMPILER-MACRO...: |
| 194b80 | 54 59 50 45 20 3a 43 4c 41 53 53 20 3a 41 4c 49 45 4e 2d 54 59 50 45 20 3a 41 4c 49 45 4e 2d 53 | TYPE.:CLASS.:ALIEN-TYPE.:ALIEN-S |
| 194ba0 | 54 52 55 43 54 20 3a 41 4c 49 45 4e 2d 55 4e 49 4f 4e 20 3a 41 4c 49 45 4e 2d 45 4e 55 4d 0a 0a | TRUCT.:ALIEN-UNION.:ALIEN-ENUM.. |
| 194bc0 | 54 68 65 20 76 61 6c 75 65 20 6f 66 20 65 61 63 68 20 70 72 6f 70 65 72 74 79 20 69 73 20 74 68 | The.value.of.each.property.is.th |
| 194be0 | 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 74 | e.corresponding.documentation.st |
| 194c00 | 72 69 6e 67 2c 0a 6f 72 20 4e 49 4c 20 28 6f 72 20 74 68 65 20 6f 62 73 6f 6c 65 74 65 20 3a 4e | ring,.or.NIL.(or.the.obsolete.:N |
| 194c20 | 4f 54 2d 44 4f 43 55 4d 45 4e 54 45 44 29 2e 20 49 74 20 69 73 20 6c 65 67 61 6c 20 74 6f 20 69 | OT-DOCUMENTED)..It.is.legal.to.i |
| 194c40 | 6e 63 6c 75 64 65 20 6b 65 79 73 0a 6e 6f 74 20 6c 69 73 74 65 64 20 68 65 72 65 20 28 62 75 74 | nclude.keys.not.listed.here.(but |
| 194c60 | 20 73 6c 69 6d 65 2d 70 72 69 6e 74 2d 61 70 72 6f 70 6f 73 20 69 6e 20 45 6d 61 63 73 20 6d 75 | .slime-print-apropos.in.Emacs.mu |
| 194c80 | 73 74 20 6b 6e 6f 77 20 61 62 6f 75 74 0a 74 68 65 6d 29 2e 0a 0a 50 72 6f 70 65 72 74 69 65 73 | st.know.about.them)...Properties |
| 194ca0 | 20 73 68 6f 75 6c 64 20 62 65 20 69 6e 63 6c 75 64 65 64 20 69 66 20 61 6e 64 20 6f 6e 6c 79 20 | .should.be.included.if.and.only. |
| 194cc0 | 69 66 20 74 68 65 79 20 61 72 65 20 61 70 70 6c 69 63 61 62 6c 65 20 74 6f 0a 74 68 65 20 73 79 | if.they.are.applicable.to.the.sy |
| 194ce0 | 6d 62 6f 6c 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 6f 6e 6c 79 20 28 61 6e 64 20 61 6c 6c | mbol..For.example,.only.(and.all |
| 194d00 | 29 20 66 62 6f 75 6e 64 20 73 79 6d 62 6f 6c 73 20 73 68 6f 75 6c 64 20 69 6e 63 6c 75 64 65 0a | ).fbound.symbols.should.include. |
| 194d20 | 74 68 65 20 3a 46 55 4e 43 54 49 4f 4e 20 70 72 6f 70 65 72 74 79 2e 0a 0a 45 78 61 6d 70 6c 65 | the.:FUNCTION.property...Example |
| 194d40 | 3a 0a 5c 28 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 27 76 | :.\(describe-symbol-for-emacs.'v |
| 194d60 | 65 63 74 6f 72 29 0a 20 20 3d 3e 20 28 3a 43 4c 41 53 53 20 3a 4e 4f 54 2d 44 4f 43 55 4d 45 4e | ector)...=>.(:CLASS.:NOT-DOCUMEN |
| 194d80 | 54 45 44 0a 20 20 20 20 20 20 3a 54 59 50 45 20 3a 4e 4f 54 2d 44 4f 43 55 4d 45 4e 54 45 44 0a | TED.......:TYPE.:NOT-DOCUMENTED. |
| 194da0 | 20 20 20 20 20 20 3a 46 55 4e 43 54 49 4f 4e 20 5c 22 43 6f 6e 73 74 72 75 63 74 73 20 61 20 73 | ......:FUNCTION.\"Constructs.a.s |
| 194dc0 | 69 6d 70 6c 65 2d 76 65 63 74 6f 72 20 66 72 6f 6d 20 74 68 65 20 67 69 76 65 6e 20 6f 62 6a 65 | imple-vector.from.the.given.obje |
| 194de0 | 63 74 73 2e 5c 22 29 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 64 65 73 63 72 69 62 | cts.\")")..(definterface.describ |
| 194e00 | 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 6e 61 6d 65 20 74 79 70 65 29 0a 20 20 22 44 65 73 63 | e-definition.(name.type)..."Desc |
| 194e20 | 72 69 62 65 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 4e 41 4d 45 20 6f 66 20 54 59 50 45 | ribe.the.definition.NAME.of.TYPE |
| 194e40 | 2e 0a 54 59 50 45 20 63 61 6e 20 62 65 20 61 6e 79 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65 64 | ..TYPE.can.be.any.value.returned |
| 194e60 | 20 62 79 20 44 45 53 43 52 49 42 45 2d 53 59 4d 42 4f 4c 2d 46 4f 52 2d 45 4d 41 43 53 2e 0a 0a | .by.DESCRIBE-SYMBOL-FOR-EMACS... |
| 194e80 | 52 65 74 75 72 6e 20 61 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 2c 20 6f | Return.a.documentation.string,.o |
| 194ea0 | 72 20 4e 49 4c 20 69 66 20 6e 6f 6e 65 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e 22 29 0a 0a 0c | r.NIL.if.none.is.available.")... |
| 194ec0 | 0a 3b 3b 3b 3b 20 44 65 62 75 67 67 69 6e 67 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 69 | .;;;;.Debugging..(definterface.i |
| 194ee0 | 6e 73 74 61 6c 6c 2d 64 65 62 75 67 67 65 72 2d 67 6c 6f 62 61 6c 6c 79 20 28 66 75 6e 63 74 69 | nstall-debugger-globally.(functi |
| 194f00 | 6f 6e 29 0a 20 20 22 49 6e 73 74 61 6c 6c 20 46 55 4e 43 54 49 4f 4e 20 61 73 20 74 68 65 20 64 | on)..."Install.FUNCTION.as.the.d |
| 194f20 | 65 62 75 67 67 65 72 20 66 6f 72 20 61 6c 6c 20 74 68 72 65 61 64 73 2f 70 72 6f 63 65 73 73 65 | ebugger.for.all.threads/processe |
| 194f40 | 73 2e 20 54 68 69 73 0a 75 73 75 61 6c 6c 79 20 69 6e 76 6f 6c 76 65 73 20 73 65 74 74 69 6e 67 | s..This.usually.involves.setting |
| 194f60 | 20 2a 44 45 42 55 47 47 45 52 2d 48 4f 4f 4b 2a 20 61 6e 64 2c 20 69 66 20 74 68 65 20 69 6d 70 | .*DEBUGGER-HOOK*.and,.if.the.imp |
| 194f80 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 70 65 72 6d 69 74 73 2c 20 68 6f 6f 6b 69 6e 67 20 69 6e 74 | lementation.permits,.hooking.int |
| 194fa0 | 6f 20 42 52 45 41 4b 20 61 73 20 77 65 6c 6c 2e 22 0a 20 20 28 73 65 74 71 20 2a 64 65 62 75 67 | o.BREAK.as.well."...(setq.*debug |
| 194fc0 | 67 65 72 2d 68 6f 6f 6b 2a 20 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 | ger-hook*.function))..(definterf |
| 194fe0 | 61 63 65 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f 6e 6d | ace.call-with-debugging-environm |
| 195000 | 65 6e 74 20 28 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 0a 20 20 20 22 43 61 6c 6c 20 | ent.(debugger-loop-fn)...."Call. |
| 195020 | 44 45 42 55 47 47 45 52 2d 4c 4f 4f 50 2d 46 4e 20 69 6e 20 61 20 73 75 69 74 61 62 6c 65 20 64 | DEBUGGER-LOOP-FN.in.a.suitable.d |
| 195040 | 65 62 75 67 67 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 2e 0a 0a 54 68 69 73 20 66 75 6e 63 | ebugging.environment...This.func |
| 195060 | 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 20 61 74 20 65 61 | tion.is.called.recursively.at.ea |
| 195080 | 63 68 20 64 65 62 75 67 20 6c 65 76 65 6c 20 74 6f 20 69 6e 76 6f 6b 65 20 74 68 65 0a 64 65 62 | ch.debug.level.to.invoke.the.deb |
| 1950a0 | 75 67 67 65 72 20 6c 6f 6f 70 2e 20 54 68 65 20 70 75 72 70 6f 73 65 20 69 73 20 74 6f 20 73 65 | ugger.loop..The.purpose.is.to.se |
| 1950c0 | 74 75 70 20 61 6e 79 20 6e 65 63 65 73 73 61 72 79 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 66 6f | tup.any.necessary.environment.fo |
| 1950e0 | 72 0a 6f 74 68 65 72 20 64 65 62 75 67 67 65 72 20 63 61 6c 6c 62 61 63 6b 73 20 74 68 61 74 20 | r.other.debugger.callbacks.that. |
| 195100 | 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 77 69 74 68 69 6e 20 74 68 65 20 64 65 62 75 67 67 | will.be.called.within.the.debugg |
| 195120 | 65 72 20 6c 6f 6f 70 2e 0a 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 69 73 20 69 73 20 61 | er.loop...For.example,.this.is.a |
| 195140 | 20 72 65 61 73 6f 6e 61 62 6c 65 20 70 6c 61 63 65 20 74 6f 20 63 6f 6d 70 75 74 65 20 61 20 62 | .reasonable.place.to.compute.a.b |
| 195160 | 61 63 6b 74 72 61 63 65 2c 20 73 77 69 74 63 68 0a 74 6f 20 73 61 66 65 20 72 65 61 64 65 72 2f | acktrace,.switch.to.safe.reader/ |
| 195180 | 70 72 69 6e 74 65 72 20 73 65 74 74 69 6e 67 73 2c 20 61 6e 64 20 73 6f 20 6f 6e 2e 22 29 0a 0a | printer.settings,.and.so.on.").. |
| 1951a0 | 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 65 72 | (definterface.call-with-debugger |
| 1951c0 | 2d 68 6f 6f 6b 20 28 68 6f 6f 6b 20 66 75 6e 29 0a 20 20 22 43 61 6c 6c 20 46 55 4e 20 61 6e 64 | -hook.(hook.fun)..."Call.FUN.and |
| 1951e0 | 20 75 73 65 20 48 4f 4f 4b 20 61 73 20 64 65 62 75 67 67 65 72 20 68 6f 6f 6b 2e 20 48 4f 4f 4b | .use.HOOK.as.debugger.hook..HOOK |
| 195200 | 20 63 61 6e 20 62 65 20 4e 49 4c 2e 0a 0a 48 4f 4f 4b 20 73 68 6f 75 6c 64 20 62 65 20 63 61 6c | .can.be.NIL...HOOK.should.be.cal |
| 195220 | 6c 65 64 20 66 6f 72 20 62 6f 74 68 20 42 52 45 41 4b 20 61 6e 64 20 49 4e 56 4f 4b 45 2d 44 45 | led.for.both.BREAK.and.INVOKE-DE |
| 195240 | 42 55 47 47 45 52 2e 22 0a 20 20 28 6c 65 74 20 28 28 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b | BUGGER."...(let.((*debugger-hook |
| 195260 | 2a 20 68 6f 6f 6b 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 29 29 29 0a 0a 28 64 | *.hook)).....(funcall.fun)))..(d |
| 195280 | 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 73 6c 64 62 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 | efine-condition.sldb-condition.( |
| 1952a0 | 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 28 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f | condition)...((original-conditio |
| 1952c0 | 6e 0a 20 20 20 20 3a 69 6e 69 74 61 72 67 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 | n.....:initarg.:original-conditi |
| 1952e0 | 6f 6e 0a 20 20 20 20 3a 61 63 63 65 73 73 6f 72 20 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 | on.....:accessor.original-condit |
| 195300 | 69 6f 6e 29 29 0a 20 20 28 3a 72 65 70 6f 72 74 20 28 6c 61 6d 62 64 61 20 28 63 6f 6e 64 69 74 | ion))...(:report.(lambda.(condit |
| 195320 | 69 6f 6e 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | ion.stream)..............(format |
| 195340 | 20 73 74 72 65 61 6d 20 22 43 6f 6e 64 69 74 69 6f 6e 20 69 6e 20 64 65 62 75 67 67 65 72 20 63 | .stream."Condition.in.debugger.c |
| 195360 | 6f 64 65 7e 40 5b 3a 20 7e 41 7e 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ode~@[:.~A~]"................... |
| 195380 | 20 20 20 28 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e | ...(original-condition.condition |
| 1953a0 | 29 29 29 29 0a 20 20 28 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 20 20 20 22 57 72 61 70 70 | ))))...(:documentation...."Wrapp |
| 1953c0 | 65 72 20 66 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 20 74 68 61 74 20 73 68 6f 75 6c 64 20 6e 6f | er.for.conditions.that.should.no |
| 1953e0 | 74 20 62 65 20 64 65 62 75 67 67 65 64 2e 0a 0a 57 68 65 6e 20 61 20 63 6f 6e 64 69 74 69 6f 6e | t.be.debugged...When.a.condition |
| 195400 | 20 61 72 69 73 65 73 20 66 72 6f 6d 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 73 20 6f 66 20 74 68 | .arises.from.the.internals.of.th |
| 195420 | 65 20 64 65 62 75 67 67 65 72 2c 20 69 74 20 69 73 20 6e 6f 74 0a 64 65 73 69 72 61 62 6c 65 20 | e.debugger,.it.is.not.desirable. |
| 195440 | 74 6f 20 64 65 62 75 67 20 69 74 20 2d 2d 20 77 65 27 64 20 72 69 73 6b 20 65 6e 74 65 72 69 6e | to.debug.it.--.we'd.risk.enterin |
| 195460 | 67 20 61 6e 20 65 6e 64 6c 65 73 73 20 6c 6f 6f 70 20 74 72 79 69 6e 67 20 74 6f 0a 64 65 62 75 | g.an.endless.loop.trying.to.debu |
| 195480 | 67 20 74 68 65 20 64 65 62 75 67 67 65 72 21 20 49 6e 73 74 65 61 64 2c 20 73 75 63 68 20 63 6f | g.the.debugger!.Instead,.such.co |
| 1954a0 | 6e 64 69 74 69 6f 6e 73 20 63 61 6e 20 62 65 20 72 65 70 6f 72 74 65 64 20 74 6f 20 74 68 65 0a | nditions.can.be.reported.to.the. |
| 1954c0 | 75 73 65 72 20 77 69 74 68 6f 75 74 20 28 72 65 29 65 6e 74 65 72 69 6e 67 20 74 68 65 20 64 65 | user.without.(re)entering.the.de |
| 1954e0 | 62 75 67 67 65 72 20 62 79 20 77 72 61 70 70 69 6e 67 20 74 68 65 6d 20 61 73 0a 60 73 6c 64 62 | bugger.by.wrapping.them.as.`sldb |
| 195500 | 2d 63 6f 6e 64 69 74 69 6f 6e 27 73 2e 22 29 29 0a 0a 3b 3b 3b 20 54 68 65 20 66 6f 6c 6c 6f 77 | -condition's."))..;;;.The.follow |
| 195520 | 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 20 74 68 69 73 20 73 65 63 74 69 6f 6e 20 61 72 | ing.functions.in.this.section.ar |
| 195540 | 65 20 73 75 70 70 6f 73 65 64 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 0a 3b 3b 3b 20 77 69 74 68 | e.supposed.to.be.called.;;;.with |
| 195560 | 69 6e 20 74 68 65 20 64 79 6e 61 6d 69 63 20 63 6f 6e 74 6f 75 72 20 6f 66 20 43 41 4c 4c 2d 57 | in.the.dynamic.contour.of.CALL-W |
| 195580 | 49 54 48 2d 44 45 42 55 47 47 49 4e 47 2d 45 4e 56 49 52 4f 4e 4d 45 4e 54 20 6f 6e 6c 79 2e 0a | ITH-DEBUGGING-ENVIRONMENT.only.. |
| 1955a0 | 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 | .(definterface.compute-backtrace |
| 1955c0 | 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 22 52 65 74 75 72 6e 73 20 61 20 62 61 63 6b 74 | .(start.end)...."Returns.a.backt |
| 1955e0 | 72 61 63 65 20 6f 66 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 20 63 75 72 72 65 6e 74 6c 79 20 | race.of.the.condition.currently. |
| 195600 | 62 65 69 6e 67 20 64 65 62 75 67 67 65 64 2c 0a 74 68 61 74 20 69 73 20 61 6e 20 6f 72 64 65 72 | being.debugged,.that.is.an.order |
| 195620 | 65 64 20 6c 69 73 74 20 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 66 72 61 6d 65 73 2e 20 60 60 | ed.list.consisting.of.frames..`` |
| 195640 | 4f 72 64 65 72 65 64 20 6c 69 73 74 27 27 0a 6d 65 61 6e 73 20 74 68 61 74 20 61 6e 20 69 6e 74 | Ordered.list''.means.that.an.int |
| 195660 | 65 67 65 72 20 49 20 63 61 6e 20 62 65 20 6d 61 70 70 65 64 20 62 61 63 6b 20 74 6f 20 74 68 65 | eger.I.can.be.mapped.back.to.the |
| 195680 | 20 69 2d 74 68 20 66 72 61 6d 65 20 6f 66 20 74 68 69 73 0a 62 61 63 6b 74 72 61 63 65 2e 0a 0a | .i-th.frame.of.this.backtrace... |
| 1956a0 | 53 54 41 52 54 20 61 6e 64 20 45 4e 44 20 61 72 65 20 7a 65 72 6f 2d 62 61 73 65 64 20 69 6e 64 | START.and.END.are.zero-based.ind |
| 1956c0 | 69 63 65 73 20 63 6f 6e 73 74 72 61 69 6e 69 6e 67 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 | ices.constraining.the.number.of. |
| 1956e0 | 66 72 61 6d 65 73 0a 72 65 74 75 72 6e 65 64 2e 20 46 72 61 6d 65 20 7a 65 72 6f 20 69 73 20 64 | frames.returned..Frame.zero.is.d |
| 195700 | 65 66 69 6e 65 64 20 61 73 20 74 68 65 20 66 72 61 6d 65 20 77 68 69 63 68 20 69 6e 76 6f 6b 65 | efined.as.the.frame.which.invoke |
| 195720 | 64 20 74 68 65 0a 64 65 62 75 67 67 65 72 2e 20 49 66 20 45 4e 44 20 69 73 20 6e 69 6c 2c 20 72 | d.the.debugger..If.END.is.nil,.r |
| 195740 | 65 74 75 72 6e 20 74 68 65 20 66 72 61 6d 65 73 20 66 72 6f 6d 20 53 54 41 52 54 20 74 6f 20 74 | eturn.the.frames.from.START.to.t |
| 195760 | 68 65 20 65 6e 64 20 6f 66 0a 74 68 65 20 73 74 61 63 6b 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 | he.end.of.the.stack.")..(definte |
| 195780 | 72 66 61 63 65 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 73 74 72 65 61 6d 29 | rface.print-frame.(frame.stream) |
| 1957a0 | 0a 20 20 22 50 72 69 6e 74 20 66 72 61 6d 65 20 74 6f 20 73 74 72 65 61 6d 2e 22 29 0a 0a 28 64 | ..."Print.frame.to.stream.")..(d |
| 1957c0 | 65 66 69 6e 74 65 72 66 61 63 65 20 66 72 61 6d 65 2d 72 65 73 74 61 72 74 61 62 6c 65 2d 70 20 | efinterface.frame-restartable-p. |
| 1957e0 | 28 66 72 61 6d 65 29 0a 20 20 22 49 73 20 74 68 65 20 66 72 61 6d 65 20 46 52 41 4d 45 20 72 65 | (frame)..."Is.the.frame.FRAME.re |
| 195800 | 73 74 61 72 74 61 62 6c 65 3f 2e 0a 52 65 74 75 72 6e 20 54 20 69 66 20 60 72 65 73 74 61 72 74 | startable?..Return.T.if.`restart |
| 195820 | 2d 66 72 61 6d 65 27 20 63 61 6e 20 73 61 66 65 6c 79 20 62 65 20 63 61 6c 6c 65 64 20 6f 6e 20 | -frame'.can.safely.be.called.on. |
| 195840 | 74 68 65 20 66 72 61 6d 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 | the.frame."...(declare.(ignore.f |
| 195860 | 72 61 6d 65 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 72 61 | rame))...nil)..(definterface.fra |
| 195880 | 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 | me-source-location.(frame-number |
| 1958a0 | 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 | )..."Return.the.source.location. |
| 1958c0 | 66 6f 72 20 74 68 65 20 66 72 61 6d 65 20 61 73 73 6f 63 69 61 74 65 64 20 74 6f 20 46 52 41 4d | for.the.frame.associated.to.FRAM |
| 1958e0 | 45 2d 4e 55 4d 42 45 52 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 72 61 6d 65 | E-NUMBER.")..(definterface.frame |
| 195900 | 2d 63 61 74 63 68 2d 74 61 67 73 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 22 52 65 | -catch-tags.(frame-number)..."Re |
| 195920 | 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63 61 74 63 68 20 74 61 67 73 20 66 6f 72 20 62 65 | turn.a.list.of.catch.tags.for.be |
| 195940 | 69 6e 67 20 70 72 69 6e 74 65 64 20 69 6e 20 61 20 64 65 62 75 67 67 65 72 20 73 74 61 63 6b 0a | ing.printed.in.a.debugger.stack. |
| 195960 | 66 72 61 6d 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 72 61 6d 65 | frame."...(declare.(ignore.frame |
| 195980 | 2d 6e 75 6d 62 65 72 29 29 0a 20 20 27 28 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 | -number))...'())..(definterface. |
| 1959a0 | 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 22 52 | frame-locals.(frame-number)..."R |
| 1959c0 | 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 28 28 26 6b 65 79 20 4e 41 4d 45 20 49 44 20 56 | eturn.a.list.of.((&key.NAME.ID.V |
| 1959e0 | 41 4c 55 45 29 20 2e 2e 2e 29 20 77 68 65 72 65 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 | ALUE)....).where.each.element.of |
| 195a00 | 0a 74 68 65 20 6c 69 73 74 20 72 65 70 72 65 73 65 6e 74 73 20 61 20 6c 6f 63 61 6c 20 76 61 72 | .the.list.represents.a.local.var |
| 195a20 | 69 61 62 6c 65 20 69 6e 20 74 68 65 20 73 74 61 63 6b 20 66 72 61 6d 65 20 61 73 73 6f 63 69 61 | iable.in.the.stack.frame.associa |
| 195a40 | 74 65 64 20 74 6f 0a 46 52 41 4d 45 2d 4e 55 4d 42 45 52 2e 0a 0a 4e 41 4d 45 2c 20 61 20 73 79 | ted.to.FRAME-NUMBER...NAME,.a.sy |
| 195a60 | 6d 62 6f 6c 3b 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 6c 6f 63 61 6c 20 76 61 72 69 | mbol;.the.name.of.the.local.vari |
| 195a80 | 61 62 6c 65 2e 0a 0a 49 44 2c 20 61 6e 20 69 6e 74 65 67 65 72 3b 20 75 73 65 64 20 61 73 20 70 | able...ID,.an.integer;.used.as.p |
| 195aa0 | 72 69 6d 61 72 79 20 6b 65 79 20 66 6f 72 20 74 68 65 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c | rimary.key.for.the.local.variabl |
| 195ac0 | 65 2c 20 75 6e 69 71 75 65 0a 72 65 6c 61 74 69 76 65 6c 79 20 74 6f 20 74 68 65 20 66 72 61 6d | e,.unique.relatively.to.the.fram |
| 195ae0 | 65 20 75 6e 64 65 72 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 0a 76 61 6c 75 65 2c 20 61 6e 20 6f 62 | e.under.operation...value,.an.ob |
| 195b00 | 6a 65 63 74 3b 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6c 6f 63 61 6c 20 76 61 72 | ject;.the.value.of.the.local.var |
| 195b20 | 69 61 62 6c 65 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 72 61 6d 65 2d 76 61 | iable.")..(definterface.frame-va |
| 195b40 | 72 2d 76 61 6c 75 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 76 61 72 2d 69 64 29 0a 20 20 | r-value.(frame-number.var-id)... |
| 195b60 | 22 52 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6c 6f 63 61 6c 20 76 | "Return.the.value.of.the.local.v |
| 195b80 | 61 72 69 61 62 6c 65 20 61 73 73 6f 63 69 61 74 65 64 20 74 6f 20 56 41 52 2d 49 44 0a 72 65 6c | ariable.associated.to.VAR-ID.rel |
| 195ba0 | 61 74 69 76 65 6c 79 20 74 6f 20 74 68 65 20 66 72 61 6d 65 20 61 73 73 6f 63 69 61 74 65 64 20 | atively.to.the.frame.associated. |
| 195bc0 | 74 6f 20 46 52 41 4d 45 2d 4e 55 4d 42 45 52 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 | to.FRAME-NUMBER.")..(definterfac |
| 195be0 | 65 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 | e.disassemble-frame.(frame-numbe |
| 195c00 | 72 29 0a 20 20 22 44 69 73 61 73 73 65 6d 62 6c 65 20 74 68 65 20 63 6f 64 65 20 66 6f 72 20 74 | r)..."Disassemble.the.code.for.t |
| 195c20 | 68 65 20 46 52 41 4d 45 2d 4e 55 4d 42 45 52 2e 0a 54 68 65 20 6f 75 74 70 75 74 20 73 68 6f 75 | he.FRAME-NUMBER..The.output.shou |
| 195c40 | 6c 64 20 62 65 20 77 72 69 74 74 65 6e 20 74 6f 20 73 74 61 6e 64 61 72 64 20 6f 75 74 70 75 74 | ld.be.written.to.standard.output |
| 195c60 | 2e 0a 46 52 41 4d 45 2d 4e 55 4d 42 45 52 20 69 73 20 61 20 6e 6f 6e 2d 6e 65 67 61 74 69 76 65 | ..FRAME-NUMBER.is.a.non-negative |
| 195c80 | 20 69 6e 74 65 67 65 72 2e 22 0a 20 20 28 64 69 73 61 73 73 65 6d 62 6c 65 20 28 66 72 61 6d 65 | .integer."...(disassemble.(frame |
| 195ca0 | 2d 66 75 6e 63 74 69 6f 6e 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 0a 0a 28 64 65 66 69 | -function.frame-number)))..(defi |
| 195cc0 | 6e 74 65 72 66 61 63 65 20 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 28 66 72 61 6d 65 2d 6e | nterface.frame-function.(frame-n |
| 195ce0 | 75 6d 62 65 72 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 72 61 6d 65 20 66 75 6e 63 74 | umber)..."Return.the.frame.funct |
| 195d00 | 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 65 76 61 6c 2d 69 6e 2d 66 72 | ion.")..(definterface.eval-in-fr |
| 195d20 | 61 6d 65 20 28 66 6f 72 6d 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 20 22 45 76 61 6c | ame.(form.frame-number)...."Eval |
| 195d40 | 75 61 74 65 20 61 20 4c 69 73 70 20 66 6f 72 6d 20 69 6e 20 74 68 65 20 6c 65 78 69 63 61 6c 20 | uate.a.Lisp.form.in.the.lexical. |
| 195d60 | 63 6f 6e 74 65 78 74 20 6f 66 20 61 20 73 74 61 63 6b 20 66 72 61 6d 65 0a 69 6e 20 74 68 65 20 | context.of.a.stack.frame.in.the. |
| 195d80 | 64 65 62 75 67 67 65 72 2e 0a 0a 46 52 41 4d 45 2d 4e 55 4d 42 45 52 20 6d 75 73 74 20 62 65 20 | debugger...FRAME-NUMBER.must.be. |
| 195da0 | 61 20 70 6f 73 69 74 69 76 65 20 69 6e 74 65 67 65 72 20 77 69 74 68 20 30 20 69 6e 64 69 63 61 | a.positive.integer.with.0.indica |
| 195dc0 | 74 69 6e 67 20 74 68 65 0a 66 72 61 6d 65 20 77 68 69 63 68 20 69 6e 76 6f 6b 65 64 20 74 68 65 | ting.the.frame.which.invoked.the |
| 195de0 | 20 64 65 62 75 67 67 65 72 2e 0a 0a 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 | .debugger...The.return.value.is. |
| 195e00 | 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 65 76 61 75 6c 61 74 69 6e 67 20 46 4f 52 4d 20 69 6e | the.result.of.evaulating.FORM.in |
| 195e20 | 20 74 68 65 0a 61 70 70 72 6f 70 72 69 61 74 65 20 63 6f 6e 74 65 78 74 2e 22 29 0a 0a 28 64 65 | .the.appropriate.context.")..(de |
| 195e40 | 66 69 6e 74 65 72 66 61 63 65 20 66 72 61 6d 65 2d 70 61 63 6b 61 67 65 20 28 66 72 61 6d 65 2d | finterface.frame-package.(frame- |
| 195e60 | 6e 75 6d 62 65 72 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 70 61 63 6b 61 67 65 20 63 6f | number)..."Return.the.package.co |
| 195e80 | 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 68 65 20 66 72 61 6d 65 20 61 74 20 46 52 41 4d | rresponding.to.the.frame.at.FRAM |
| 195ea0 | 45 2d 4e 55 4d 42 45 52 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 74 68 65 20 62 61 63 6b | E-NUMBER..Return.nil.if.the.back |
| 195ec0 | 65 6e 64 20 63 61 6e 27 74 20 66 69 67 75 72 65 20 69 74 20 6f 75 74 2e 22 0a 20 20 28 64 65 63 | end.can't.figure.it.out."...(dec |
| 195ee0 | 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 0a 20 20 6e 69 | lare.(ignore.frame-number))...ni |
| 195f00 | 6c 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 72 61 6d 65 2d 63 61 6c 6c 20 28 66 72 | l)..(definterface.frame-call.(fr |
| 195f20 | 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 72 | ame-number)..."Return.a.string.r |
| 195f40 | 65 70 72 65 73 65 6e 74 69 6e 67 20 61 20 63 61 6c 6c 20 74 6f 20 74 68 65 20 65 6e 74 72 79 20 | epresenting.a.call.to.the.entry. |
| 195f60 | 70 6f 69 6e 74 20 6f 66 20 61 20 66 72 61 6d 65 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 | point.of.a.frame.")..(definterfa |
| 195f80 | 63 65 20 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 | ce.return-from-frame.(frame-numb |
| 195fa0 | 65 72 20 66 6f 72 6d 29 0a 20 20 22 55 6e 77 69 6e 64 20 74 68 65 20 73 74 61 63 6b 20 74 6f 20 | er.form)..."Unwind.the.stack.to. |
| 195fc0 | 74 68 65 20 66 72 61 6d 65 20 46 52 41 4d 45 2d 4e 55 4d 42 45 52 20 61 6e 64 20 72 65 74 75 72 | the.frame.FRAME-NUMBER.and.retur |
| 195fe0 | 6e 20 74 68 65 20 76 61 6c 75 65 28 73 29 0a 70 72 6f 64 75 63 65 64 20 62 79 20 65 76 61 6c 75 | n.the.value(s).produced.by.evalu |
| 196000 | 61 74 69 6e 67 20 46 4f 52 4d 20 69 6e 20 74 68 65 20 66 72 61 6d 65 20 63 6f 6e 74 65 78 74 20 | ating.FORM.in.the.frame.context. |
| 196020 | 74 6f 20 69 74 73 20 63 61 6c 6c 65 72 2e 0a 0a 45 78 65 63 75 74 65 20 61 6e 79 20 63 6c 65 61 | to.its.caller...Execute.any.clea |
| 196040 | 6e 2d 75 70 20 63 6f 64 65 20 66 72 6f 6d 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 66 6f | n-up.code.from.unwind-protect.fo |
| 196060 | 72 6d 73 20 61 62 6f 76 65 20 74 68 65 20 66 72 61 6d 65 0a 64 75 72 69 6e 67 20 75 6e 77 69 6e | rms.above.the.frame.during.unwin |
| 196080 | 64 69 6e 67 2e 0a 0a 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e | ding...Return.a.string.describin |
| 1960a0 | 67 20 74 68 65 20 65 72 72 6f 72 20 69 66 20 69 74 27 73 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 | g.the.error.if.it's.not.possible |
| 1960c0 | 20 74 6f 20 72 65 74 75 72 6e 0a 66 72 6f 6d 20 74 68 65 20 66 72 61 6d 65 2e 22 29 0a 0a 28 64 | .to.return.from.the.frame.")..(d |
| 1960e0 | 65 66 69 6e 74 65 72 66 61 63 65 20 72 65 73 74 61 72 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 | efinterface.restart-frame.(frame |
| 196100 | 2d 6e 75 6d 62 65 72 29 0a 20 20 22 52 65 73 74 61 72 74 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 | -number)..."Restart.execution.of |
| 196120 | 20 74 68 65 20 66 72 61 6d 65 20 46 52 41 4d 45 2d 4e 55 4d 42 45 52 20 77 69 74 68 20 74 68 65 | .the.frame.FRAME-NUMBER.with.the |
| 196140 | 20 73 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 0a 61 73 20 69 74 20 77 61 73 20 63 61 6c 6c 65 64 | .same.arguments.as.it.was.called |
| 196160 | 20 6f 72 69 67 69 6e 61 6c 6c 79 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 70 72 | .originally.")..(definterface.pr |
| 196180 | 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 20 73 74 72 65 61 6d 29 | int-condition.(condition.stream) |
| 1961a0 | 0a 20 20 22 50 72 69 6e 74 20 61 20 63 6f 6e 64 69 74 69 6f 6e 20 66 6f 72 20 64 69 73 70 6c 61 | ..."Print.a.condition.for.displa |
| 1961c0 | 79 20 69 6e 20 53 4c 44 42 2e 22 0a 20 20 28 70 72 69 6e 63 20 63 6f 6e 64 69 74 69 6f 6e 20 73 | y.in.SLDB."...(princ.condition.s |
| 1961e0 | 74 72 65 61 6d 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 64 69 74 69 6f 6e | tream))..(definterface.condition |
| 196200 | 2d 65 78 74 72 61 73 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 | -extras.(condition)..."Return.a. |
| 196220 | 6c 69 73 74 20 6f 66 20 65 78 74 72 61 20 66 6f 72 20 74 68 65 20 64 65 62 75 67 67 65 72 2e 0a | list.of.extra.for.the.debugger.. |
| 196240 | 54 68 65 20 61 6c 6c 6f 77 65 64 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 6f 66 20 74 68 65 20 | The.allowed.elements.are.of.the. |
| 196260 | 66 6f 72 6d 3a 0a 20 20 28 3a 53 48 4f 57 2d 46 52 41 4d 45 2d 53 4f 55 52 43 45 20 66 72 61 6d | form:...(:SHOW-FRAME-SOURCE.fram |
| 196280 | 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 3a 52 45 46 45 52 45 4e 43 45 53 20 26 72 65 73 74 20 72 | e-number)...(:REFERENCES.&rest.r |
| 1962a0 | 65 66 73 29 0a 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 6f 6e 64 69 74 | efs)."...(declare.(ignore.condit |
| 1962c0 | 69 6f 6e 29 29 0a 20 20 27 28 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 67 64 62 2d | ion))...'())..(definterface.gdb- |
| 1962e0 | 69 6e 69 74 69 61 6c 2d 63 6f 6d 6d 61 6e 64 73 20 28 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 67 | initial-commands.()..."List.of.g |
| 196300 | 64 62 20 63 6f 6d 6d 61 6e 64 73 20 73 75 70 70 6f 73 65 64 20 74 6f 20 62 65 20 65 78 65 63 75 | db.commands.supposed.to.be.execu |
| 196320 | 74 65 64 20 66 69 72 73 74 20 66 6f 72 20 74 68 65 0a 20 20 20 41 54 54 41 43 48 2d 47 44 42 20 | ted.first.for.the....ATTACH-GDB. |
| 196340 | 72 65 73 74 61 72 74 2e 22 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 | restart."...nil)..(definterface. |
| 196360 | 61 63 74 69 76 61 74 65 2d 73 74 65 70 70 69 6e 67 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 | activate-stepping.(frame-number) |
| 196380 | 0a 20 20 22 50 72 65 70 61 72 65 20 74 68 65 20 66 72 61 6d 65 20 46 52 41 4d 45 2d 4e 55 4d 42 | ..."Prepare.the.frame.FRAME-NUMB |
| 1963a0 | 45 52 20 66 6f 72 20 73 74 65 70 70 69 6e 67 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 | ER.for.stepping.")..(definterfac |
| 1963c0 | 65 20 73 6c 64 62 2d 62 72 65 61 6b 2d 6f 6e 2d 72 65 74 75 72 6e 20 28 66 72 61 6d 65 2d 6e 75 | e.sldb-break-on-return.(frame-nu |
| 1963e0 | 6d 62 65 72 29 0a 20 20 22 53 65 74 20 61 20 62 72 65 61 6b 70 6f 69 6e 74 20 69 6e 20 74 68 65 | mber)..."Set.a.breakpoint.in.the |
| 196400 | 20 66 72 61 6d 65 20 46 52 41 4d 45 2d 4e 55 4d 42 45 52 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 | .frame.FRAME-NUMBER.")..(definte |
| 196420 | 72 66 61 63 65 20 73 6c 64 62 2d 62 72 65 61 6b 2d 61 74 2d 73 74 61 72 74 20 28 73 79 6d 62 6f | rface.sldb-break-at-start.(symbo |
| 196440 | 6c 29 0a 20 20 22 53 65 74 20 61 20 62 72 65 61 6b 70 6f 69 6e 74 20 6f 6e 20 74 68 65 20 62 65 | l)..."Set.a.breakpoint.on.the.be |
| 196460 | 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 53 59 4d 42 | ginning.of.the.function.for.SYMB |
| 196480 | 4f 4c 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 73 6c 64 62 2d 73 74 65 70 70 65 | OL.")..(definterface.sldb-steppe |
| 1964a0 | 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 70 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 52 65 74 | r-condition-p.(condition)..."Ret |
| 1964c0 | 75 72 6e 20 74 72 75 65 20 69 66 20 53 4c 44 42 20 77 61 73 20 69 6e 76 6f 6b 65 64 20 64 75 65 | urn.true.if.SLDB.was.invoked.due |
| 1964e0 | 20 74 6f 20 61 20 73 69 6e 67 6c 65 2d 73 74 65 70 70 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 2c | .to.a.single-stepping.condition, |
| 196500 | 0a 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 20 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 | .false.otherwise.."...(declare.( |
| 196520 | 69 67 6e 6f 72 65 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 69 | ignore.condition))...nil)..(defi |
| 196540 | 6e 74 65 72 66 61 63 65 20 73 6c 64 62 2d 73 74 65 70 2d 69 6e 74 6f 20 28 29 0a 20 20 22 53 74 | nterface.sldb-step-into.()..."St |
| 196560 | 65 70 20 69 6e 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 69 6e 67 6c 65 2d 73 74 65 70 70 | ep.into.the.current.single-stepp |
| 196580 | 65 72 20 66 6f 72 6d 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 73 6c 64 62 2d 73 | er.form.")..(definterface.sldb-s |
| 1965a0 | 74 65 70 2d 6e 65 78 74 20 28 29 0a 20 20 22 53 74 65 70 20 74 6f 20 74 68 65 20 6e 65 78 74 20 | tep-next.()..."Step.to.the.next. |
| 1965c0 | 66 6f 72 6d 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 75 6e 63 74 69 6f 6e 2e 22 29 0a | form.in.the.current.function."). |
| 1965e0 | 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 73 6c 64 62 2d 73 74 65 70 2d 6f 75 74 20 28 29 0a | .(definterface.sldb-step-out.(). |
| 196600 | 20 20 22 53 74 6f 70 20 73 69 6e 67 6c 65 2d 73 74 65 70 70 69 6e 67 20 74 65 6d 70 6f 72 61 72 | .."Stop.single-stepping.temporar |
| 196620 | 69 6c 79 2c 20 62 75 74 20 72 65 73 75 6d 65 20 69 74 20 6f 6e 63 65 20 74 68 65 20 63 75 72 72 | ily,.but.resume.it.once.the.curr |
| 196640 | 65 6e 74 20 66 75 6e 63 74 69 6f 6e 0a 72 65 74 75 72 6e 73 2e 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 | ent.function.returns.")....;;;;. |
| 196660 | 44 65 66 69 6e 69 74 69 6f 6e 20 66 69 6e 64 69 6e 67 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 | Definition.finding..(defstruct.( |
| 196680 | 6c 6f 63 61 74 69 6f 6e 20 28 3a 74 79 70 65 20 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 | location.(:type.list)........... |
| 1966a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 6d 61 6b 65 2d 6c | ............(:constructor.make-l |
| 1966c0 | 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ocation......................... |
| 1966e0 | 20 20 28 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 68 69 6e | ..(buffer.position.&optional.hin |
| 196700 | 74 73 29 29 29 0a 20 20 28 74 79 70 65 20 3a 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 62 75 66 66 65 | ts)))...(type.:location)...buffe |
| 196720 | 72 20 70 6f 73 69 74 69 6f 6e 0a 20 20 3b 3b 20 48 69 6e 74 73 20 69 73 20 61 20 70 72 6f 70 65 | r.position...;;.Hints.is.a.prope |
| 196740 | 72 74 79 20 6c 69 73 74 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 63 6f 6e 74 61 69 6e 69 6e 67 3a 0a | rty.list.optionally.containing:. |
| 196760 | 20 20 3b 3b 20 20 20 3a 73 6e 69 70 70 65 74 20 53 4f 55 52 43 45 2d 54 45 58 54 0a 20 20 3b 3b | ..;;...:snippet.SOURCE-TEXT...;; |
| 196780 | 20 20 20 20 20 54 68 69 73 20 69 73 20 61 20 73 6e 69 70 70 65 74 20 6f 66 20 74 68 65 20 61 63 | .....This.is.a.snippet.of.the.ac |
| 1967a0 | 74 75 61 6c 20 73 6f 75 72 63 65 20 74 65 78 74 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 | tual.source.text.at.the.start.of |
| 1967c0 | 0a 20 20 3b 3b 20 20 20 20 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 2c 20 77 68 69 63 68 20 | ...;;.....the.definition,.which. |
| 1967e0 | 63 6f 75 6c 64 20 62 65 20 75 73 65 64 20 69 6e 20 61 20 74 65 78 74 20 73 65 61 72 63 68 2e 0a | could.be.used.in.a.text.search.. |
| 196800 | 20 20 68 69 6e 74 73 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 6f 6e 76 65 72 74 69 6e 67 2d 65 | ..hints)..(defmacro.converting-e |
| 196820 | 72 72 6f 72 73 2d 74 6f 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 28 26 62 6f 64 79 20 62 | rrors-to-error-location.(&body.b |
| 196840 | 6f 64 79 29 0a 20 20 22 43 61 74 63 68 65 73 20 65 72 72 6f 72 73 20 64 75 72 69 6e 67 20 42 4f | ody)..."Catches.errors.during.BO |
| 196860 | 44 59 20 61 6e 64 20 63 6f 6e 76 65 72 74 73 20 74 68 65 6d 20 74 6f 20 61 6e 20 65 72 72 6f 72 | DY.and.converts.them.to.an.error |
| 196880 | 20 6c 6f 63 61 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 67 62 6c 6f 63 6b 20 28 67 65 6e | .location."...(let.((gblock.(gen |
| 1968a0 | 73 79 6d 20 22 43 4f 4e 56 45 52 54 49 4e 47 2d 45 52 52 4f 52 53 2b 22 29 29 29 0a 20 20 20 20 | sym."CONVERTING-ERRORS+")))..... |
| 1968c0 | 60 28 62 6c 6f 63 6b 20 2c 67 62 6c 6f 63 6b 0a 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d | `(block.,gblock........(handler- |
| 1968e0 | 62 69 6e 64 20 28 28 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bind.((error.................... |
| 196900 | 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....#'(lambda.(e)............... |
| 196920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 2a 64 65 62 75 67 2d 73 77 61 6e 6b 2d 62 | ..............(if.*debug-swank-b |
| 196940 | 61 63 6b 65 6e 64 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ackend*......................... |
| 196960 | 20 20 20 20 20 20 20 20 6e 69 6c 20 20 20 20 20 3b 64 65 63 6c 69 6e 65 0a 20 20 20 20 20 20 20 | ........nil.....;decline........ |
| 196980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e | .........................(return |
| 1969a0 | 2d 66 72 6f 6d 20 2c 67 62 6c 6f 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -from.,gblock................... |
| 1969c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 | ................(make-error-loca |
| 1969e0 | 74 69 6f 6e 20 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 29 29 29 | tion.e))))))..........,@body)))) |
| 196a00 | 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 28 64 61 | ..(defun.make-error-location.(da |
| 196a20 | 74 75 6d 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 63 6f 6e 64 20 28 28 74 79 70 65 70 20 | tum.&rest.args)...(cond.((typep. |
| 196a40 | 64 61 74 75 6d 20 27 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 60 28 3a 65 72 | datum.'condition)..........`(:er |
| 196a60 | 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 45 72 72 6f 72 3a 20 7e 41 22 20 64 61 74 | ror.,(format.nil."Error:.~A".dat |
| 196a80 | 75 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 70 20 64 61 74 75 6d 29 0a 20 | um))).........((symbolp.datum).. |
| 196aa0 | 20 20 20 20 20 20 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 45 | ........`(:error.,(format.nil."E |
| 196ac0 | 72 72 6f 72 3a 20 7e 41 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rror:.~A"....................... |
| 196ae0 | 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 64 61 74 | .....(apply.#'make-condition.dat |
| 196b00 | 75 6d 20 61 72 67 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 | um.args)))).........(t.......... |
| 196b20 | 28 61 73 73 65 72 74 20 28 73 74 72 69 6e 67 70 20 64 61 74 75 6d 29 29 0a 20 20 20 20 20 20 20 | (assert.(stringp.datum))........ |
| 196b40 | 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 61 70 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 6e 69 6c 20 | ..`(:error.,(apply.#'format.nil. |
| 196b60 | 64 61 74 75 6d 20 61 72 67 73 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 | datum.args)))))..(definterface.f |
| 196b80 | 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 20 22 52 65 74 75 72 | ind-definitions.(name)...."Retur |
| 196ba0 | 6e 20 61 20 6c 69 73 74 20 28 28 44 53 50 45 43 20 4c 4f 43 41 54 49 4f 4e 29 20 2e 2e 2e 29 20 | n.a.list.((DSPEC.LOCATION)....). |
| 196bc0 | 66 6f 72 20 4e 41 4d 45 27 73 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 0a 4e 41 4d 45 20 69 73 | for.NAME's.definitions...NAME.is |
| 196be0 | 20 61 20 5c 22 64 65 66 69 6e 69 74 69 6f 6e 20 73 70 65 63 69 66 69 65 72 5c 22 2e 0a 0a 44 53 | .a.\"definition.specifier\"...DS |
| 196c00 | 50 45 43 20 69 73 20 61 20 5c 22 64 65 66 69 6e 69 74 69 6f 6e 20 73 70 65 63 69 66 69 65 72 5c | PEC.is.a.\"definition.specifier\ |
| 196c20 | 22 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 0a 64 65 66 69 6e 69 74 69 6f 6e 2c 20 65 2e 67 | ".describing.the.definition,.e.g |
| 196c40 | 2e 2c 20 46 4f 4f 20 6f 72 20 28 4d 45 54 48 4f 44 20 46 4f 4f 20 28 53 54 52 49 4e 47 20 4e 55 | .,.FOO.or.(METHOD.FOO.(STRING.NU |
| 196c60 | 4d 42 45 52 29 29 20 6f 72 0a 5c 28 44 45 46 56 41 52 20 46 4f 4f 29 2e 0a 0a 4c 4f 43 41 54 49 | MBER)).or.\(DEFVAR.FOO)...LOCATI |
| 196c80 | 4f 4e 20 69 73 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 74 68 | ON.is.the.source.location.for.th |
| 196ca0 | 65 20 64 65 66 69 6e 69 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 | e.definition.")..(definterface.f |
| 196cc0 | 69 6e 64 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 62 6a 65 63 74 29 0a 20 20 22 | ind-source-location.(object)..." |
| 196ce0 | 52 65 74 75 72 6e 73 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 4f | Returns.the.source.location.of.O |
| 196d00 | 42 4a 45 43 54 2c 20 6f 72 20 4e 49 4c 2e 0a 0a 54 68 61 74 20 69 73 20 74 68 65 20 73 6f 75 72 | BJECT,.or.NIL...That.is.the.sour |
| 196d20 | 63 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 64 61 | ce.location.of.the.underlying.da |
| 196d40 | 74 61 73 74 72 75 63 74 75 72 65 20 6f 66 0a 4f 42 4a 45 43 54 2e 20 45 2e 67 2e 20 6f 6e 20 61 | tastructure.of.OBJECT..E.g..on.a |
| 196d60 | 20 53 54 41 4e 44 41 52 44 2d 4f 42 4a 45 43 54 2c 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 | .STANDARD-OBJECT,.the.source.loc |
| 196d80 | 61 74 69 6f 6e 20 6f 66 20 74 68 65 0a 72 65 73 70 65 63 74 69 76 65 20 44 45 46 43 4c 41 53 53 | ation.of.the.respective.DEFCLASS |
| 196da0 | 20 64 65 66 69 6e 69 74 69 6f 6e 20 69 73 20 72 65 74 75 72 6e 65 64 2c 20 6f 6e 20 61 20 53 54 | .definition.is.returned,.on.a.ST |
| 196dc0 | 52 55 43 54 55 52 45 2d 43 4c 41 53 53 20 74 68 65 0a 72 65 73 70 65 63 74 69 76 65 20 44 45 46 | RUCTURE-CLASS.the.respective.DEF |
| 196de0 | 53 54 52 55 43 54 20 64 65 66 69 6e 69 74 69 6f 6e 2c 20 61 6e 64 20 73 6f 20 6f 6e 2e 22 0a 20 | STRUCT.definition,.and.so.on.".. |
| 196e00 | 20 3b 3b 20 54 68 69 73 20 72 65 74 75 72 6e 73 20 6f 6e 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 | .;;.This.returns.one.source.loca |
| 196e20 | 74 69 6f 6e 20 61 6e 64 20 6e 6f 74 20 61 20 6c 69 73 74 20 6f 66 20 6c 6f 63 61 74 69 6f 6e 73 | tion.and.not.a.list.of.locations |
| 196e40 | 2e 20 49 74 27 73 0a 20 20 3b 3b 20 73 75 70 70 6f 73 65 64 20 74 6f 20 72 65 74 75 72 6e 20 74 | ..It's...;;.supposed.to.return.t |
| 196e60 | 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 44 45 46 47 45 4e 45 52 49 43 20 64 65 | he.location.of.the.DEFGENERIC.de |
| 196e80 | 66 69 6e 69 74 69 6f 6e 20 6f 6e 0a 20 20 3b 3b 20 23 27 53 4f 4d 45 2d 47 45 4e 45 52 49 43 2d | finition.on...;;.#'SOME-GENERIC- |
| 196ea0 | 46 55 4e 43 54 49 4f 4e 2e 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6f 62 6a | FUNCTION....(declare.(ignore.obj |
| 196ec0 | 65 63 74 29 29 0a 20 20 28 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 22 46 49 | ect))...(make-error-location."FI |
| 196ee0 | 4e 44 2d 53 4f 55 52 43 45 2d 4c 4f 43 41 54 49 4f 4e 20 69 73 20 6e 6f 74 20 79 65 74 20 69 6d | ND-SOURCE-LOCATION.is.not.yet.im |
| 196f00 | 70 6c 65 6d 65 6e 74 65 64 20 6f 6e 20 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | plemented.on.~.................. |
| 196f20 | 20 20 20 20 20 20 20 74 68 69 73 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 22 29 29 0a 0a | .......this.implementation.")).. |
| 196f40 | 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 62 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 61 6e 67 | (definterface.buffer-first-chang |
| 196f60 | 65 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 22 43 61 6c 6c 65 64 20 66 6f 72 20 65 66 66 65 63 | e.(filename)..."Called.for.effec |
| 196f80 | 74 20 74 68 65 20 66 69 72 73 74 20 74 69 6d 65 20 46 49 4c 45 4e 41 4d 45 27 73 20 62 75 66 66 | t.the.first.time.FILENAME's.buff |
| 196fa0 | 65 72 20 69 73 20 6d 6f 64 69 66 69 65 64 2e 0a 43 4d 55 43 4c 2f 53 42 43 4c 20 75 73 65 20 74 | er.is.modified..CMUCL/SBCL.use.t |
| 196fc0 | 68 69 73 20 74 6f 20 63 61 63 68 65 20 74 68 65 20 75 6e 6d 6f 64 69 66 69 65 64 20 66 69 6c 65 | his.to.cache.the.unmodified.file |
| 196fe0 | 20 61 6e 64 20 75 73 65 20 74 68 65 0a 75 6e 6d 6f 64 69 66 69 65 64 20 74 65 78 74 20 74 6f 20 | .and.use.the.unmodified.text.to. |
| 197000 | 69 6d 70 72 6f 76 65 20 74 68 65 20 70 72 65 63 69 73 69 6f 6e 20 6f 66 20 73 6f 75 72 63 65 20 | improve.the.precision.of.source. |
| 197020 | 6c 6f 63 61 74 69 6f 6e 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 | locations."...(declare.(ignore.f |
| 197040 | 69 6c 65 6e 61 6d 65 29 29 0a 20 20 6e 69 6c 29 0a 0a 0a 0c 0a 3b 3b 3b 3b 20 58 52 45 46 0a 0a | ilename))...nil).....;;;;.XREF.. |
| 197060 | 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 77 68 6f 2d 63 61 6c 6c 73 20 28 66 75 6e 63 74 69 6f | (definterface.who-calls.(functio |
| 197080 | 6e 2d 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 61 6c 6c 20 73 69 74 65 73 | n-name)..."Return.the.call.sites |
| 1970a0 | 20 6f 66 20 46 55 4e 43 54 49 4f 4e 2d 4e 41 4d 45 20 28 61 20 73 79 6d 62 6f 6c 29 2e 0a 54 68 | .of.FUNCTION-NAME.(a.symbol)..Th |
| 1970c0 | 65 20 72 65 73 75 6c 74 73 20 69 73 20 61 20 6c 69 73 74 20 28 28 44 53 50 45 43 20 4c 4f 43 41 | e.results.is.a.list.((DSPEC.LOCA |
| 1970e0 | 54 49 4f 4e 29 20 2e 2e 2e 29 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 | TION)....)."...(declare.(ignore. |
| 197100 | 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 29 0a 20 20 3a 6e 6f 74 2d 69 6d 70 6c 65 6d 65 6e 74 | function-name))...:not-implement |
| 197120 | 65 64 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 61 6c 6c 73 2d 77 68 6f 20 28 66 75 | ed)..(definterface.calls-who.(fu |
| 197140 | 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 61 6c 6c 20 | nction-name)..."Return.the.call. |
| 197160 | 73 69 74 65 73 20 6f 66 20 46 55 4e 43 54 49 4f 4e 2d 4e 41 4d 45 20 28 61 20 73 79 6d 62 6f 6c | sites.of.FUNCTION-NAME.(a.symbol |
| 197180 | 29 2e 0a 54 68 65 20 72 65 73 75 6c 74 73 20 69 73 20 61 20 6c 69 73 74 20 28 28 44 53 50 45 43 | )..The.results.is.a.list.((DSPEC |
| 1971a0 | 20 4c 4f 43 41 54 49 4f 4e 29 20 2e 2e 2e 29 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 | .LOCATION)....)."...(declare.(ig |
| 1971c0 | 6e 6f 72 65 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 29 0a 20 20 3a 6e 6f 74 2d 69 6d 70 6c | nore.function-name))...:not-impl |
| 1971e0 | 65 6d 65 6e 74 65 64 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 77 68 6f 2d 72 65 66 65 | emented)..(definterface.who-refe |
| 197200 | 72 65 6e 63 65 73 20 28 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e | rences.(variable-name)..."Return |
| 197220 | 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 73 20 77 68 65 72 65 20 56 41 52 49 41 42 4c 45 2d 4e 41 | .the.locations.where.VARIABLE-NA |
| 197240 | 4d 45 20 28 61 20 73 79 6d 62 6f 6c 29 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 2e 0a 53 65 65 | ME.(a.symbol).is.referenced..See |
| 197260 | 20 57 48 4f 2d 43 41 4c 4c 53 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 | .WHO-CALLS.for.a.description.of. |
| 197280 | 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 | the.return.value."...(declare.(i |
| 1972a0 | 67 6e 6f 72 65 20 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 3a 6e 6f 74 2d 69 6d 70 | gnore.variable-name))...:not-imp |
| 1972c0 | 6c 65 6d 65 6e 74 65 64 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 77 68 6f 2d 62 69 6e | lemented)..(definterface.who-bin |
| 1972e0 | 64 73 20 28 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 | ds.(variable-name)..."Return.the |
| 197300 | 20 6c 6f 63 61 74 69 6f 6e 73 20 77 68 65 72 65 20 56 41 52 49 41 42 4c 45 2d 4e 41 4d 45 20 28 | .locations.where.VARIABLE-NAME.( |
| 197320 | 61 20 73 79 6d 62 6f 6c 29 20 69 73 20 62 6f 75 6e 64 2e 0a 53 65 65 20 57 48 4f 2d 43 41 4c 4c | a.symbol).is.bound..See.WHO-CALL |
| 197340 | 53 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 65 74 75 72 | S.for.a.description.of.the.retur |
| 197360 | 6e 20 76 61 6c 75 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 76 61 72 | n.value."...(declare.(ignore.var |
| 197380 | 69 61 62 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 3a 6e 6f 74 2d 69 6d 70 6c 65 6d 65 6e 74 65 64 29 | iable-name))...:not-implemented) |
| 1973a0 | 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 77 68 6f 2d 73 65 74 73 20 28 76 61 72 69 61 62 | ..(definterface.who-sets.(variab |
| 1973c0 | 6c 65 2d 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 73 | le-name)..."Return.the.locations |
| 1973e0 | 20 77 68 65 72 65 20 56 41 52 49 41 42 4c 45 2d 4e 41 4d 45 20 28 61 20 73 79 6d 62 6f 6c 29 20 | .where.VARIABLE-NAME.(a.symbol). |
| 197400 | 69 73 20 73 65 74 2e 0a 53 65 65 20 57 48 4f 2d 43 41 4c 4c 53 20 66 6f 72 20 61 20 64 65 73 63 | is.set..See.WHO-CALLS.for.a.desc |
| 197420 | 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 2e 22 0a 20 20 | ription.of.the.return.value."... |
| 197440 | 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 29 29 | (declare.(ignore.variable-name)) |
| 197460 | 0a 20 20 3a 6e 6f 74 2d 69 6d 70 6c 65 6d 65 6e 74 65 64 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 | ...:not-implemented)..(definterf |
| 197480 | 61 63 65 20 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 20 28 6d 61 63 72 6f 2d 6e 61 6d 65 | ace.who-macroexpands.(macro-name |
| 1974a0 | 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 73 20 77 68 65 72 65 20 | )..."Return.the.locations.where. |
| 1974c0 | 4d 41 43 52 4f 2d 4e 41 4d 45 20 28 61 20 73 79 6d 62 6f 6c 29 20 69 73 20 65 78 70 61 6e 64 65 | MACRO-NAME.(a.symbol).is.expande |
| 1974e0 | 64 2e 0a 53 65 65 20 57 48 4f 2d 43 41 4c 4c 53 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 | d..See.WHO-CALLS.for.a.descripti |
| 197500 | 6f 6e 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 2e 22 0a 20 20 28 64 65 63 6c | on.of.the.return.value."...(decl |
| 197520 | 61 72 65 20 28 69 67 6e 6f 72 65 20 6d 61 63 72 6f 2d 6e 61 6d 65 29 29 0a 20 20 3a 6e 6f 74 2d | are.(ignore.macro-name))...:not- |
| 197540 | 69 6d 70 6c 65 6d 65 6e 74 65 64 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 77 68 6f 2d | implemented)..(definterface.who- |
| 197560 | 73 70 65 63 69 61 6c 69 7a 65 73 20 28 63 6c 61 73 73 2d 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 | specializes.(class-name)..."Retu |
| 197580 | 72 6e 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 73 20 77 68 65 72 65 20 43 4c 41 53 53 2d 4e 41 4d | rn.the.locations.where.CLASS-NAM |
| 1975a0 | 45 20 28 61 20 73 79 6d 62 6f 6c 29 20 69 73 20 73 70 65 63 69 61 6c 69 7a 65 64 2e 0a 53 65 65 | E.(a.symbol).is.specialized..See |
| 1975c0 | 20 57 48 4f 2d 43 41 4c 4c 53 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 | .WHO-CALLS.for.a.description.of. |
| 1975e0 | 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 | the.return.value."...(declare.(i |
| 197600 | 67 6e 6f 72 65 20 63 6c 61 73 73 2d 6e 61 6d 65 29 29 0a 20 20 3a 6e 6f 74 2d 69 6d 70 6c 65 6d | gnore.class-name))...:not-implem |
| 197620 | 65 6e 74 65 64 29 0a 0a 3b 3b 3b 20 53 69 6d 70 6c 65 72 20 76 61 72 69 61 6e 74 73 2e 0a 0a 28 | ented)..;;;.Simpler.variants...( |
| 197640 | 64 65 66 69 6e 74 65 72 66 61 63 65 20 6c 69 73 74 2d 63 61 6c 6c 65 72 73 20 28 66 75 6e 63 74 | definterface.list-callers.(funct |
| 197660 | 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 22 4c 69 73 74 20 74 68 65 20 63 61 6c 6c 65 72 73 20 6f 66 | ion-name)..."List.the.callers.of |
| 197680 | 20 46 55 4e 43 54 49 4f 4e 2d 4e 41 4d 45 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 | .FUNCTION-NAME..This.function.is |
| 1976a0 | 20 6c 69 6b 65 20 57 48 4f 2d 43 41 4c 4c 53 20 65 78 63 65 70 74 20 74 68 61 74 20 69 74 20 69 | .like.WHO-CALLS.except.that.it.i |
| 1976c0 | 73 20 65 78 70 65 63 74 65 64 20 74 6f 20 75 73 65 0a 6c 6f 77 65 72 2d 6c 65 76 65 6c 20 6d 65 | s.expected.to.use.lower-level.me |
| 1976e0 | 61 6e 73 2e 20 57 68 65 72 65 61 73 20 57 48 4f 2d 43 41 4c 4c 53 20 69 73 20 75 73 75 61 6c 6c | ans..Whereas.WHO-CALLS.is.usuall |
| 197700 | 79 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 77 69 74 68 0a 73 70 65 63 69 61 6c 20 63 6f 6d 70 69 | y.implemented.with.special.compi |
| 197720 | 6c 65 72 20 73 75 70 70 6f 72 74 2c 20 4c 49 53 54 2d 43 41 4c 4c 45 52 53 20 69 73 20 75 73 75 | ler.support,.LIST-CALLERS.is.usu |
| 197740 | 61 6c 6c 79 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 0a 67 72 6f 76 65 6c 69 6e 67 20 66 6f | ally.implemented.by.groveling.fo |
| 197760 | 72 20 63 6f 6e 73 74 61 6e 74 73 20 69 6e 20 66 75 6e 63 74 69 6f 6e 20 6f 62 6a 65 63 74 73 20 | r.constants.in.function.objects. |
| 197780 | 74 68 72 6f 75 67 68 6f 75 74 20 74 68 65 20 68 65 61 70 2e 0a 0a 54 68 65 20 72 65 74 75 72 6e | throughout.the.heap...The.return |
| 1977a0 | 20 76 61 6c 75 65 20 69 73 20 61 73 20 66 6f 72 20 57 48 4f 2d 43 41 4c 4c 53 2e 22 29 0a 0a 28 | .value.is.as.for.WHO-CALLS.")..( |
| 1977c0 | 64 65 66 69 6e 74 65 72 66 61 63 65 20 6c 69 73 74 2d 63 61 6c 6c 65 65 73 20 28 66 75 6e 63 74 | definterface.list-callees.(funct |
| 1977e0 | 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 22 4c 69 73 74 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 | ion-name)..."List.the.functions. |
| 197800 | 63 61 6c 6c 65 64 20 62 79 20 46 55 4e 43 54 49 4f 4e 2d 4e 41 4d 45 2e 0a 53 65 65 20 4c 49 53 | called.by.FUNCTION-NAME..See.LIS |
| 197820 | 54 2d 43 41 4c 4c 45 52 53 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 | T-CALLERS.for.a.description.of.t |
| 197840 | 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 2e 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 50 72 6f 66 69 | he.return.value.")....;;;;.Profi |
| 197860 | 6c 69 6e 67 0a 0a 3b 3b 3b 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 75 6e 63 74 69 6f 6e | ling..;;;.The.following.function |
| 197880 | 73 20 64 65 66 69 6e 65 20 61 20 6d 69 6e 69 6d 61 6c 20 70 72 6f 66 69 6c 69 6e 67 20 69 6e 74 | s.define.a.minimal.profiling.int |
| 1978a0 | 65 72 66 61 63 65 2e 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 70 72 6f 66 69 6c 65 20 28 | erface...(definterface.profile.( |
| 1978c0 | 66 6e 61 6d 65 29 0a 20 20 22 4d 61 72 6b 73 20 73 79 6d 62 6f 6c 20 46 4e 41 4d 45 20 66 6f 72 | fname)..."Marks.symbol.FNAME.for |
| 1978e0 | 20 70 72 6f 66 69 6c 69 6e 67 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 70 72 6f | .profiling.")..(definterface.pro |
| 197900 | 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 73 20 61 20 | filed-functions.()..."Returns.a. |
| 197920 | 6c 69 73 74 20 6f 66 20 70 72 6f 66 69 6c 65 64 20 66 75 6e 63 74 69 6f 6e 73 2e 22 29 0a 0a 28 | list.of.profiled.functions.")..( |
| 197940 | 64 65 66 69 6e 74 65 72 66 61 63 65 20 75 6e 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 | definterface.unprofile.(fname).. |
| 197960 | 20 22 4d 61 72 6b 73 20 73 79 6d 62 6f 6c 20 46 4e 41 4d 45 20 61 73 20 6e 6f 74 20 70 72 6f 66 | ."Marks.symbol.FNAME.as.not.prof |
| 197980 | 69 6c 65 64 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 75 6e 70 72 6f 66 69 6c 65 | iled.")..(definterface.unprofile |
| 1979a0 | 2d 61 6c 6c 20 28 29 0a 20 20 22 4d 61 72 6b 73 20 61 6c 6c 20 63 75 72 72 65 6e 74 6c 79 20 70 | -all.()..."Marks.all.currently.p |
| 1979c0 | 72 6f 66 69 6c 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 61 73 20 6e 6f 74 20 70 72 6f 66 69 6c 65 | rofiled.functions.as.not.profile |
| 1979e0 | 64 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 66 20 28 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 | d."...(dolist.(f.(profiled-funct |
| 197a00 | 69 6f 6e 73 29 29 0a 20 20 20 20 28 75 6e 70 72 6f 66 69 6c 65 20 66 29 29 29 0a 0a 28 64 65 66 | ions)).....(unprofile.f)))..(def |
| 197a20 | 69 6e 74 65 72 66 61 63 65 20 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 20 28 29 0a 20 20 22 50 | interface.profile-report.()..."P |
| 197a40 | 72 69 6e 74 73 20 70 72 6f 66 69 6c 65 20 72 65 70 6f 72 74 2e 22 29 0a 0a 28 64 65 66 69 6e 74 | rints.profile.report.")..(defint |
| 197a60 | 65 72 66 61 63 65 20 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 20 28 29 0a 20 20 22 52 65 73 65 74 | erface.profile-reset.()..."Reset |
| 197a80 | 73 20 70 72 6f 66 69 6c 65 20 63 6f 75 6e 74 65 72 73 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 | s.profile.counters.")..(definter |
| 197aa0 | 66 61 63 65 20 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 20 28 70 61 63 6b 61 67 65 20 63 61 | face.profile-package.(package.ca |
| 197ac0 | 6c 6c 65 72 73 2d 70 20 6d 65 74 68 6f 64 73 29 0a 20 20 22 57 72 61 70 20 70 72 6f 66 69 6c 69 | llers-p.methods)..."Wrap.profili |
| 197ae0 | 6e 67 20 63 6f 64 65 20 61 72 6f 75 6e 64 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 20 | ng.code.around.all.functions.in. |
| 197b00 | 50 41 43 4b 41 47 45 2e 20 20 49 66 20 61 20 66 75 6e 63 74 69 6f 6e 0a 69 73 20 61 6c 72 65 61 | PACKAGE...If.a.function.is.alrea |
| 197b20 | 64 79 20 70 72 6f 66 69 6c 65 64 2c 20 74 68 65 6e 20 75 6e 70 72 6f 66 69 6c 65 20 61 6e 64 20 | dy.profiled,.then.unprofile.and. |
| 197b40 | 72 65 70 72 6f 66 69 6c 65 20 28 75 73 65 66 75 6c 20 74 6f 20 6e 6f 74 69 63 65 0a 66 75 6e 63 | reprofile.(useful.to.notice.func |
| 197b60 | 74 69 6f 6e 20 72 65 64 65 66 69 6e 69 74 69 6f 6e 2e 29 0a 0a 49 66 20 43 41 4c 4c 45 52 53 2d | tion.redefinition.)..If.CALLERS- |
| 197b80 | 50 20 69 73 20 54 20 6e 61 6d 65 73 20 68 61 76 65 20 63 6f 75 6e 74 73 20 6f 66 20 74 68 65 20 | P.is.T.names.have.counts.of.the. |
| 197ba0 | 6d 6f 73 74 20 63 6f 6d 6d 6f 6e 20 63 61 6c 6c 69 6e 67 0a 66 75 6e 63 74 69 6f 6e 73 20 72 65 | most.common.calling.functions.re |
| 197bc0 | 63 6f 72 64 65 64 2e 0a 0a 57 68 65 6e 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 72 67 75 6d 65 | corded...When.called.with.argume |
| 197be0 | 6e 74 73 20 3a 4d 45 54 48 4f 44 53 20 54 2c 20 70 72 6f 66 69 6c 65 20 61 6c 6c 20 6d 65 74 68 | nts.:METHODS.T,.profile.all.meth |
| 197c00 | 6f 64 73 20 6f 66 20 61 6c 6c 0a 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 73 20 68 61 76 | ods.of.all.generic.functions.hav |
| 197c20 | 69 6e 67 20 6e 61 6d 65 73 20 69 6e 20 74 68 65 20 67 69 76 65 6e 20 70 61 63 6b 61 67 65 2e 20 | ing.names.in.the.given.package.. |
| 197c40 | 20 47 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 73 0a 74 68 65 6d 73 65 6c 76 65 73 2c 20 74 | .Generic.functions.themselves,.t |
| 197c60 | 68 61 74 20 69 73 2c 20 74 68 65 69 72 20 64 69 73 70 61 74 63 68 20 66 75 6e 63 74 69 6f 6e 73 | hat.is,.their.dispatch.functions |
| 197c80 | 2c 20 61 72 65 20 6c 65 66 74 20 61 6c 6f 6e 65 2e 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 72 61 63 | ,.are.left.alone.")....;;;;.Trac |
| 197ca0 | 65 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 28 73 | e..(definterface.toggle-trace.(s |
| 197cc0 | 70 65 63 29 0a 20 20 22 54 6f 67 67 6c 65 20 74 72 61 63 69 6e 67 20 6f 66 20 74 68 65 20 66 75 | pec)..."Toggle.tracing.of.the.fu |
| 197ce0 | 6e 63 74 69 6f 6e 28 73 29 20 67 69 76 65 6e 20 77 69 74 68 20 53 50 45 43 2e 0a 53 50 45 43 20 | nction(s).given.with.SPEC..SPEC. |
| 197d00 | 63 61 6e 20 62 65 3a 0a 20 28 73 65 74 66 20 4e 41 4d 45 29 20 20 20 20 20 20 20 20 20 20 20 20 | can.be:..(setf.NAME)............ |
| 197d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 20 73 65 74 66 20 66 75 6e 63 74 69 6f | ................;.a.setf.functio |
| 197d40 | 6e 0a 20 28 3a 64 65 66 6d 65 74 68 6f 64 20 4e 41 4d 45 20 51 55 41 4c 49 46 49 45 52 2e 2e 2e | n..(:defmethod.NAME.QUALIFIER... |
| 197d60 | 20 28 53 50 45 43 49 41 4c 49 5a 45 52 2e 2e 2e 29 29 20 3b 20 61 20 73 70 65 63 69 66 69 63 20 | .(SPECIALIZER...)).;.a.specific. |
| 197d80 | 6d 65 74 68 6f 64 0a 20 28 3a 64 65 66 67 65 6e 65 72 69 63 20 4e 41 4d 45 29 20 20 20 20 20 20 | method..(:defgeneric.NAME)...... |
| 197da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 | ...............;.a.generic.funct |
| 197dc0 | 69 6f 6e 20 77 69 74 68 20 61 6c 6c 20 6d 65 74 68 6f 64 73 0a 20 28 3a 63 61 6c 6c 20 43 41 4c | ion.with.all.methods..(:call.CAL |
| 197de0 | 4c 45 52 20 43 41 4c 4c 45 45 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 | LER.CALLEE)..................;.t |
| 197e00 | 72 61 63 65 20 63 61 6c 6c 73 20 66 72 6f 6d 20 43 41 4c 4c 45 52 20 74 6f 20 43 41 4c 4c 45 45 | race.calls.from.CALLER.to.CALLEE |
| 197e20 | 2e 0a 20 28 3a 6c 61 62 65 6c 73 20 54 4f 50 4c 45 56 45 4c 20 4c 4f 43 41 4c 29 0a 20 28 3a 66 | ...(:labels.TOPLEVEL.LOCAL)..(:f |
| 197e40 | 6c 65 74 20 54 4f 50 4c 45 56 45 4c 20 4c 4f 43 41 4c 29 20 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 | let.TOPLEVEL.LOCAL).")....;;;;.I |
| 197e60 | 6e 73 70 65 63 74 6f 72 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 65 6d 61 63 73 2d 69 6e 73 70 | nspector..(defgeneric.emacs-insp |
| 197e80 | 65 63 74 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 20 | ect.(object)...(:documentation.. |
| 197ea0 | 20 20 22 45 78 70 6c 61 69 6e 20 74 6f 20 45 6d 61 63 73 20 68 6f 77 20 74 6f 20 69 6e 73 70 65 | .."Explain.to.Emacs.how.to.inspe |
| 197ec0 | 63 74 20 4f 42 4a 45 43 54 2e 0a 0a 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 73 70 65 63 69 | ct.OBJECT...Returns.a.list.speci |
| 197ee0 | 66 79 69 6e 67 20 68 6f 77 20 74 6f 20 72 65 6e 64 65 72 20 74 68 65 20 6f 62 6a 65 63 74 20 66 | fying.how.to.render.the.object.f |
| 197f00 | 6f 72 20 69 6e 73 70 65 63 74 69 6f 6e 2e 0a 0a 45 76 65 72 79 20 65 6c 65 6d 65 6e 74 20 6f 66 | or.inspection...Every.element.of |
| 197f20 | 20 74 68 65 20 6c 69 73 74 20 6d 75 73 74 20 62 65 20 65 69 74 68 65 72 20 61 20 73 74 72 69 6e | .the.list.must.be.either.a.strin |
| 197f40 | 67 2c 20 77 68 69 63 68 20 77 69 6c 6c 20 62 65 0a 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 74 | g,.which.will.be.inserted.into.t |
| 197f60 | 68 65 20 62 75 66 66 65 72 20 61 73 20 69 73 2c 20 6f 72 20 61 20 6c 69 73 74 20 6f 66 20 74 68 | he.buffer.as.is,.or.a.list.of.th |
| 197f80 | 65 20 66 6f 72 6d 3a 0a 0a 20 28 3a 76 61 6c 75 65 20 6f 62 6a 65 63 74 20 26 6f 70 74 69 6f 6e | e.form:...(:value.object.&option |
| 197fa0 | 61 6c 20 66 6f 72 6d 61 74 29 20 2d 20 52 65 6e 64 65 72 20 61 6e 20 69 6e 73 70 65 63 74 61 62 | al.format).-.Render.an.inspectab |
| 197fc0 | 6c 65 0a 20 6f 62 6a 65 63 74 2e 20 49 66 20 66 6f 72 6d 61 74 20 69 73 20 70 72 6f 76 69 64 65 | le..object..If.format.is.provide |
| 197fe0 | 64 20 69 74 20 6d 75 73 74 20 62 65 20 61 20 73 74 72 69 6e 67 20 61 6e 64 20 77 69 6c 6c 20 62 | d.it.must.be.a.string.and.will.b |
| 198000 | 65 0a 20 72 65 6e 64 65 72 65 64 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 74 68 65 20 76 61 6c 75 | e..rendered.in.place.of.the.valu |
| 198020 | 65 2c 20 6f 74 68 65 72 77 69 73 65 20 75 73 65 20 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 | e,.otherwise.use.princ-to-string |
| 198040 | 2e 0a 0a 20 28 3a 6e 65 77 6c 69 6e 65 29 20 2d 20 52 65 6e 64 65 72 20 61 20 5c 5c 6e 0a 0a 20 | ....(:newline).-.Render.a.\\n... |
| 198060 | 28 3a 61 63 74 69 6f 6e 20 6c 61 62 65 6c 20 6c 61 6d 62 64 61 20 26 6b 65 79 20 28 72 65 66 72 | (:action.label.lambda.&key.(refr |
| 198080 | 65 73 68 20 74 29 29 20 2d 20 52 65 6e 64 65 72 20 4c 41 42 45 4c 20 28 61 20 74 65 78 74 0a 20 | esh.t)).-.Render.LABEL.(a.text.. |
| 1980a0 | 73 74 72 69 6e 67 29 20 77 68 69 63 68 20 77 68 65 6e 20 63 6c 69 63 6b 65 64 20 77 69 6c 6c 20 | string).which.when.clicked.will. |
| 1980c0 | 63 61 6c 6c 20 4c 41 4d 42 44 41 2e 20 49 66 20 52 45 46 52 45 53 48 20 69 73 0a 20 6e 6f 6e 2d | call.LAMBDA..If.REFRESH.is..non- |
| 1980e0 | 4e 49 4c 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 69 6e 73 70 65 63 74 65 64 20 6f 62 6a 65 | NIL.the.currently.inspected.obje |
| 198100 | 63 74 20 77 69 6c 6c 20 62 65 20 72 65 2d 69 6e 73 70 65 63 74 65 64 0a 20 61 66 74 65 72 20 63 | ct.will.be.re-inspected..after.c |
| 198120 | 61 6c 6c 69 6e 67 20 74 68 65 20 6c 61 6d 62 64 61 2e 0a 22 29 29 0a 0a 28 64 65 66 69 6e 74 65 | alling.the.lambda.."))..(definte |
| 198140 | 72 66 61 63 65 20 65 76 61 6c 2d 63 6f 6e 74 65 78 74 20 28 6f 62 6a 65 63 74 29 0a 20 20 22 52 | rface.eval-context.(object)..."R |
| 198160 | 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 62 69 6e 64 69 6e 67 73 20 63 6f 72 72 65 73 70 | eturn.a.list.of.bindings.corresp |
| 198180 | 6f 6e 64 69 6e 67 20 74 6f 20 4f 42 4a 45 43 54 27 73 20 73 6c 6f 74 73 2e 22 0a 20 20 28 64 65 | onding.to.OBJECT's.slots."...(de |
| 1981a0 | 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6f 62 6a 65 63 74 29 29 0a 20 20 27 28 29 29 0a 0a 3b | clare.(ignore.object))...'())..; |
| 1981c0 | 3b 3b 20 55 74 69 6c 69 74 69 65 73 20 66 6f 72 20 69 6e 73 70 65 63 74 6f 72 20 6d 65 74 68 6f | ;;.Utilities.for.inspector.metho |
| 1981e0 | 64 73 2e 0a 3b 3b 3b 0a 0a 28 64 65 66 75 6e 20 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 | ds..;;;..(defun.label-value-line |
| 198200 | 20 28 6c 61 62 65 6c 20 76 61 6c 75 65 20 26 6b 65 79 20 28 6e 65 77 6c 69 6e 65 20 74 29 29 0a | .(label.value.&key.(newline.t)). |
| 198220 | 20 20 22 43 72 65 61 74 65 20 61 20 63 6f 6e 74 72 6f 6c 20 6c 69 73 74 20 77 68 69 63 68 20 70 | .."Create.a.control.list.which.p |
| 198240 | 72 69 6e 74 73 20 5c 22 4c 41 42 45 4c 3a 20 56 41 4c 55 45 5c 22 20 69 6e 20 74 68 65 20 69 6e | rints.\"LABEL:.VALUE\".in.the.in |
| 198260 | 73 70 65 63 74 6f 72 2e 0a 49 66 20 4e 45 57 4c 49 4e 45 20 69 73 20 6e 6f 6e 2d 4e 49 4c 20 61 | spector..If.NEWLINE.is.non-NIL.a |
| 198280 | 20 60 28 3a 6e 65 77 6c 69 6e 65 29 27 20 69 73 20 61 64 64 65 64 20 74 6f 20 74 68 65 20 72 65 | .`(:newline)'.is.added.to.the.re |
| 1982a0 | 73 75 6c 74 2e 22 0a 20 20 28 6c 69 73 74 2a 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 | sult."...(list*.(princ-to-string |
| 1982c0 | 20 6c 61 62 65 6c 29 20 22 3a 20 22 20 60 28 3a 76 61 6c 75 65 20 2c 76 61 6c 75 65 29 0a 20 20 | .label).":.".`(:value.,value)... |
| 1982e0 | 20 20 20 20 20 20 20 28 69 66 20 6e 65 77 6c 69 6e 65 20 27 28 28 3a 6e 65 77 6c 69 6e 65 29 29 | .......(if.newline.'((:newline)) |
| 198300 | 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c | .nil)))..(defmacro.label-value-l |
| 198320 | 69 6e 65 2a 20 28 26 72 65 73 74 20 6c 61 62 65 6c 2d 76 61 6c 75 65 73 29 0a 20 20 60 20 28 61 | ine*.(&rest.label-values)...`.(a |
| 198340 | 70 70 65 6e 64 20 2c 40 28 6c 6f 6f 70 20 66 6f 72 20 28 6c 61 62 65 6c 20 76 61 6c 75 65 29 20 | ppend.,@(loop.for.(label.value). |
| 198360 | 69 6e 20 6c 61 62 65 6c 2d 76 61 6c 75 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | in.label-values................. |
| 198380 | 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 2c | ....collect.`(label-value-line., |
| 1983a0 | 6c 61 62 65 6c 20 2c 76 61 6c 75 65 29 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 | label.,value))))..(definterface. |
| 1983c0 | 64 65 73 63 72 69 62 65 2d 70 72 69 6d 69 74 69 76 65 2d 74 79 70 65 20 28 6f 62 6a 65 63 74 29 | describe-primitive-type.(object) |
| 1983e0 | 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20 74 | ..."Return.a.string.describing.t |
| 198400 | 68 65 20 70 72 69 6d 69 74 69 76 65 20 74 79 70 65 20 6f 66 20 6f 62 6a 65 63 74 2e 22 0a 20 20 | he.primitive.type.of.object."... |
| 198420 | 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6f 62 6a 65 63 74 29 29 0a 20 20 22 4e 2f 41 | (declare.(ignore.object))..."N/A |
| 198440 | 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 0a 3b 3b 3b 0a 3b 3b | ")....;;;;.Multithreading.;;;.;; |
| 198460 | 3b 20 54 68 65 20 64 65 66 61 75 6c 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 61 72 | ;.The.default.implementations.ar |
| 198480 | 65 20 73 75 66 66 69 63 69 65 6e 74 20 66 6f 72 20 6e 6f 6e 2d 6d 75 6c 74 69 70 72 6f 63 65 73 | e.sufficient.for.non-multiproces |
| 1984a0 | 73 69 6e 67 0a 3b 3b 3b 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 0a 0a 28 64 65 66 69 | sing.;;;.implementations...(defi |
| 1984c0 | 6e 74 65 72 66 61 63 65 20 69 6e 69 74 69 61 6c 69 7a 65 2d 6d 75 6c 74 69 70 72 6f 63 65 73 73 | nterface.initialize-multiprocess |
| 1984e0 | 69 6e 67 20 28 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 0a 20 20 20 22 49 6e 69 74 69 61 6c 69 7a | ing.(continuation)...."Initializ |
| 198500 | 65 20 6d 75 6c 74 69 70 72 6f 63 65 73 73 69 6e 67 2c 20 69 66 20 6e 65 63 65 73 73 61 72 79 20 | e.multiprocessing,.if.necessary. |
| 198520 | 61 6e 64 20 74 68 65 6e 20 69 6e 76 6f 6b 65 20 43 4f 4e 54 49 4e 55 41 54 49 4f 4e 2e 0a 0a 44 | and.then.invoke.CONTINUATION...D |
| 198540 | 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 69 6d 70 6c 65 69 6d 65 6e 74 61 69 6f 6e 2c 20 | epending.on.the.impleimentaion,. |
| 198560 | 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 6e 65 76 65 72 20 72 65 74 75 72 6e 2e 22 | this.function.may.never.return." |
| 198580 | 0a 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 29 0a 0a 28 64 65 | ....(funcall.continuation))..(de |
| 1985a0 | 66 69 6e 74 65 72 66 61 63 65 20 73 70 61 77 6e 20 28 66 6e 20 26 6b 65 79 20 6e 61 6d 65 29 0a | finterface.spawn.(fn.&key.name). |
| 1985c0 | 20 20 22 43 72 65 61 74 65 20 61 20 6e 65 77 20 74 68 72 65 61 64 20 74 6f 20 63 61 6c 6c 20 46 | .."Create.a.new.thread.to.call.F |
| 1985e0 | 4e 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 74 68 72 65 61 64 2d 69 64 20 28 74 | N.")..(definterface.thread-id.(t |
| 198600 | 68 72 65 61 64 29 0a 20 20 22 52 65 74 75 72 6e 20 61 6e 20 45 6d 61 63 73 2d 70 61 72 73 61 62 | hread)..."Return.an.Emacs-parsab |
| 198620 | 6c 65 20 6f 62 6a 65 63 74 20 74 6f 20 69 64 65 6e 74 69 66 79 20 54 48 52 45 41 44 2e 0a 0a 49 | le.object.to.identify.THREAD...I |
| 198640 | 64 73 20 73 68 6f 75 6c 64 20 62 65 20 63 6f 6d 70 61 72 61 62 6c 65 20 77 69 74 68 20 65 71 75 | ds.should.be.comparable.with.equ |
| 198660 | 61 6c 2c 20 69 2e 65 2e 3a 0a 20 28 65 71 75 61 6c 20 28 74 68 72 65 61 64 2d 69 64 20 3c 74 31 | al,.i.e.:..(equal.(thread-id.<t1 |
| 198680 | 3e 29 20 28 74 68 72 65 61 64 2d 69 64 20 3c 74 32 3e 29 29 20 3c 3d 3d 3e 20 28 65 71 20 3c 74 | >).(thread-id.<t2>)).<==>.(eq.<t |
| 1986a0 | 31 3e 20 3c 74 32 3e 29 22 0a 20 20 74 68 72 65 61 64 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 | 1>.<t2>)"...thread)..(definterfa |
| 1986c0 | 63 65 20 66 69 6e 64 2d 74 68 72 65 61 64 20 28 69 64 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 | ce.find-thread.(id)..."Return.th |
| 1986e0 | 65 20 74 68 72 65 61 64 20 66 6f 72 20 49 44 2e 0a 49 44 20 73 68 6f 75 6c 64 20 62 65 20 61 6e | e.thread.for.ID..ID.should.be.an |
| 198700 | 20 69 64 20 70 72 65 76 69 6f 75 73 6c 79 20 6f 62 74 61 69 6e 65 64 20 77 69 74 68 20 54 48 52 | .id.previously.obtained.with.THR |
| 198720 | 45 41 44 2d 49 44 2e 0a 43 61 6e 20 72 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 74 68 65 20 74 68 | EAD-ID..Can.return.nil.if.the.th |
| 198740 | 72 65 61 64 20 6e 6f 20 6c 6f 6e 67 65 72 20 65 78 69 73 74 73 2e 22 0a 20 20 28 64 65 63 6c 61 | read.no.longer.exists."...(decla |
| 198760 | 72 65 20 28 69 67 6e 6f 72 65 20 69 64 29 29 0a 20 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 | re.(ignore.id))...(current-threa |
| 198780 | 64 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 74 68 72 65 61 64 2d 6e 61 6d 65 20 28 | d))..(definterface.thread-name.( |
| 1987a0 | 74 68 72 65 61 64 29 0a 20 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 54 | thread)...."Return.the.name.of.T |
| 1987c0 | 48 52 45 41 44 2e 0a 54 68 72 65 61 64 20 6e 61 6d 65 73 20 61 72 65 20 73 68 6f 72 74 20 73 74 | HREAD..Thread.names.are.short.st |
| 1987e0 | 72 69 6e 67 73 20 6d 65 61 6e 69 6e 67 66 75 6c 20 74 6f 20 74 68 65 20 75 73 65 72 2e 20 54 68 | rings.meaningful.to.the.user..Th |
| 198800 | 65 79 20 64 6f 20 6e 6f 74 0a 68 61 76 65 20 74 6f 20 62 65 20 75 6e 69 71 75 65 2e 22 0a 20 20 | ey.do.not.have.to.be.unique."... |
| 198820 | 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 74 68 72 65 61 64 29 29 0a 20 20 20 22 54 | .(declare.(ignore.thread))...."T |
| 198840 | 68 65 20 4f 6e 65 20 54 72 75 65 20 54 68 72 65 61 64 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 | he.One.True.Thread")..(definterf |
| 198860 | 61 63 65 20 74 68 72 65 61 64 2d 73 74 61 74 75 73 20 28 74 68 72 65 61 64 29 0a 20 20 20 22 52 | ace.thread-status.(thread)...."R |
| 198880 | 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20 54 48 52 45 41 44 | eturn.a.string.describing.THREAD |
| 1988a0 | 27 73 20 73 74 61 74 65 2e 22 0a 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 74 | 's.state."....(declare.(ignore.t |
| 1988c0 | 68 72 65 61 64 29 29 0a 20 20 20 22 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 74 68 | hread))...."")..(definterface.th |
| 1988e0 | 72 65 61 64 2d 61 74 74 72 69 62 75 74 65 73 20 28 74 68 72 65 61 64 29 0a 20 20 22 52 65 74 75 | read-attributes.(thread)..."Retu |
| 198900 | 72 6e 20 61 20 70 6c 69 73 74 20 6f 66 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 64 65 70 | rn.a.plist.of.implementation-dep |
| 198920 | 65 6e 64 65 6e 74 20 61 74 74 72 69 62 75 74 65 73 20 66 6f 72 20 54 48 52 45 41 44 22 0a 20 20 | endent.attributes.for.THREAD"... |
| 198940 | 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 74 68 72 65 61 64 29 29 0a 20 20 27 28 29 29 | (declare.(ignore.thread))...'()) |
| 198960 | 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 | ..(definterface.current-thread.( |
| 198980 | 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 65 78 65 63 75 74 | )..."Return.the.currently.execut |
| 1989a0 | 69 6e 67 20 74 68 72 65 61 64 2e 22 0a 20 20 30 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 | ing.thread."...0)..(definterface |
| 1989c0 | 20 61 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 66 72 65 73 | .all-threads.()..."Return.a.fres |
| 1989e0 | 68 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 74 68 72 65 61 64 73 2e 22 0a 20 20 27 28 29 29 0a 0a | h.list.of.all.threads."...'()).. |
| 198a00 | 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 28 74 68 | (definterface.thread-alive-p.(th |
| 198a20 | 72 65 61 64 29 0a 20 20 22 54 65 73 74 20 69 66 20 54 48 52 45 41 44 20 69 73 20 74 65 72 6d 69 | read)..."Test.if.THREAD.is.termi |
| 198a40 | 6e 74 61 74 65 64 2e 22 0a 20 20 28 6d 65 6d 62 65 72 20 74 68 72 65 61 64 20 28 61 6c 6c 2d 74 | ntated."...(member.thread.(all-t |
| 198a60 | 68 72 65 61 64 73 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 69 6e 74 65 72 72 75 | hreads)))..(definterface.interru |
| 198a80 | 70 74 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 20 66 6e 29 0a 20 20 22 43 61 75 73 65 20 54 | pt-thread.(thread.fn)..."Cause.T |
| 198aa0 | 48 52 45 41 44 20 74 6f 20 65 78 65 63 75 74 65 20 46 4e 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 | HREAD.to.execute.FN.")..(definte |
| 198ac0 | 72 66 61 63 65 20 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 22 54 65 | rface.kill-thread.(thread)..."Te |
| 198ae0 | 72 6d 69 6e 61 74 65 20 54 48 52 45 41 44 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 0a 44 6f 6e 27 | rminate.THREAD.immediately..Don' |
| 198b00 | 74 20 65 78 65 63 75 74 65 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 65 64 20 73 65 63 74 69 | t.execute.unwind-protected.secti |
| 198b20 | 6f 6e 73 2c 20 64 6f 6e 27 74 20 72 61 69 73 65 20 63 6f 6e 64 69 74 69 6f 6e 73 2e 0a 28 44 6f | ons,.don't.raise.conditions..(Do |
| 198b40 | 20 6e 6f 74 20 70 61 73 73 20 67 6f 2c 20 64 6f 20 6e 6f 74 20 63 6f 6c 6c 65 63 74 20 24 32 30 | .not.pass.go,.do.not.collect.$20 |
| 198b60 | 30 2e 29 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 74 68 72 65 61 64 29 29 | 0.)"...(declare.(ignore.thread)) |
| 198b80 | 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 73 65 6e 64 20 28 74 68 72 | ...nil)..(definterface.send.(thr |
| 198ba0 | 65 61 64 20 6f 62 6a 65 63 74 29 0a 20 20 22 53 65 6e 64 20 4f 42 4a 45 43 54 20 74 6f 20 74 68 | ead.object)..."Send.OBJECT.to.th |
| 198bc0 | 72 65 61 64 20 54 48 52 45 41 44 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 | read.THREAD."...(declare.(ignore |
| 198be0 | 20 74 68 72 65 61 64 29 29 0a 20 20 6f 62 6a 65 63 74 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 | .thread))...object)..(definterfa |
| 198c00 | 63 65 20 72 65 63 65 69 76 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 | ce.receive.(&optional.timeout).. |
| 198c20 | 20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 65 78 74 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 63 | ."Return.the.next.message.from.c |
| 198c40 | 75 72 72 65 6e 74 20 74 68 72 65 61 64 27 73 20 6d 61 69 6c 62 6f 78 2e 22 0a 20 20 28 72 65 63 | urrent.thread's.mailbox."...(rec |
| 198c60 | 65 69 76 65 2d 69 66 20 28 63 6f 6e 73 74 61 6e 74 6c 79 20 74 29 20 74 69 6d 65 6f 75 74 29 29 | eive-if.(constantly.t).timeout)) |
| 198c80 | 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 72 65 63 65 69 76 65 2d 69 66 20 28 70 72 65 64 | ..(definterface.receive-if.(pred |
| 198ca0 | 69 63 61 74 65 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 22 52 65 74 75 | icate.&optional.timeout)..."Retu |
| 198cc0 | 72 6e 20 74 68 65 20 66 69 72 73 74 20 6d 65 73 73 61 67 65 20 73 61 74 69 73 66 69 79 69 6e 67 | rn.the.first.message.satisfiying |
| 198ce0 | 20 50 52 45 44 49 43 41 54 45 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 77 61 6b | .PREDICATE.")..(definterface.wak |
| 198d00 | 65 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 22 54 72 69 67 67 65 72 20 61 20 63 | e-thread.(thread)..."Trigger.a.c |
| 198d20 | 61 6c 6c 20 74 6f 20 43 48 45 43 4b 2d 53 4c 49 4d 45 2d 49 4e 54 45 52 52 55 50 54 53 20 69 6e | all.to.CHECK-SLIME-INTERRUPTS.in |
| 198d40 | 20 54 48 52 45 41 44 20 77 69 74 68 6f 75 74 20 75 73 69 6e 67 0a 61 73 79 6e 63 68 72 6f 6e 6f | .THREAD.without.using.asynchrono |
| 198d60 | 75 73 20 69 6e 74 65 72 72 75 70 74 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f | us.interrupts."...(declare.(igno |
| 198d80 | 72 65 20 74 68 72 65 61 64 29 29 0a 20 20 3b 3b 20 44 6f 65 73 6e 27 74 20 68 61 76 65 20 74 6f | re.thread))...;;.Doesn't.have.to |
| 198da0 | 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 69 73 20 69 66 20 52 45 43 45 49 56 45 2d 49 46 20 70 65 | .implement.this.if.RECEIVE-IF.pe |
| 198dc0 | 72 69 6f 64 69 63 61 6c 6c 79 20 63 61 6c 6c 73 0a 20 20 3b 3b 20 43 48 45 43 4b 2d 53 4c 49 4d | riodically.calls...;;.CHECK-SLIM |
| 198de0 | 45 2d 49 4e 54 45 52 52 55 50 54 53 2c 20 62 75 74 20 74 68 61 74 27 73 20 65 6e 65 72 67 79 20 | E-INTERRUPTS,.but.that's.energy. |
| 198e00 | 69 6e 65 66 66 69 63 69 65 6e 74 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 | inefficient...nil)..(definterfac |
| 198e20 | 65 20 72 65 67 69 73 74 65 72 2d 74 68 72 65 61 64 20 28 6e 61 6d 65 20 74 68 72 65 61 64 29 0a | e.register-thread.(name.thread). |
| 198e40 | 20 20 22 41 73 73 6f 63 69 61 74 65 20 74 68 65 20 74 68 72 65 61 64 20 54 48 52 45 41 44 20 77 | .."Associate.the.thread.THREAD.w |
| 198e60 | 69 74 68 20 74 68 65 20 73 79 6d 62 6f 6c 20 4e 41 4d 45 2e 0a 54 68 65 20 74 68 72 65 61 64 20 | ith.the.symbol.NAME..The.thread. |
| 198e80 | 63 61 6e 20 74 68 65 6e 20 62 65 20 72 65 74 72 69 65 76 65 64 20 77 69 74 68 20 60 66 69 6e 64 | can.then.be.retrieved.with.`find |
| 198ea0 | 2d 72 65 67 69 73 74 65 72 65 64 27 2e 0a 49 66 20 54 48 52 45 41 44 20 69 73 20 6e 69 6c 20 64 | -registered'..If.THREAD.is.nil.d |
| 198ec0 | 65 6c 65 74 65 20 74 68 65 20 61 73 73 6f 63 69 61 74 69 6f 6e 2e 22 0a 20 20 28 64 65 63 6c 61 | elete.the.association."...(decla |
| 198ee0 | 72 65 20 28 69 67 6e 6f 72 65 20 6e 61 6d 65 20 74 68 72 65 61 64 29 29 0a 20 20 6e 69 6c 29 0a | re.(ignore.name.thread))...nil). |
| 198f00 | 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 69 6e 64 2d 72 65 67 69 73 74 65 72 65 64 20 28 | .(definterface.find-registered.( |
| 198f20 | 6e 61 6d 65 29 0a 20 20 22 46 69 6e 64 20 74 68 65 20 74 68 72 65 61 64 20 74 68 61 74 20 77 61 | name)..."Find.the.thread.that.wa |
| 198f40 | 73 20 72 65 67 69 73 74 65 72 65 64 20 66 6f 72 20 74 68 65 20 73 79 6d 62 6f 6c 20 4e 41 4d 45 | s.registered.for.the.symbol.NAME |
| 198f60 | 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 74 68 65 20 6e 6f 20 74 68 72 65 61 64 20 77 61 | ..Return.nil.if.the.no.thread.wa |
| 198f80 | 73 20 72 65 67 69 73 74 72 65 64 20 6f 72 20 69 66 20 74 68 65 20 74 72 65 61 64 20 69 73 20 64 | s.registred.or.if.the.tread.is.d |
| 198fa0 | 65 61 64 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6e 61 6d 65 29 29 0a | ead."...(declare.(ignore.name)). |
| 198fc0 | 20 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 73 65 74 2d 64 65 66 61 75 6c | ..nil)..(definterface.set-defaul |
| 198fe0 | 74 2d 69 6e 69 74 69 61 6c 2d 62 69 6e 64 69 6e 67 20 28 76 61 72 20 66 6f 72 6d 29 0a 20 20 22 | t-initial-binding.(var.form)..." |
| 199000 | 49 6e 69 74 69 61 6c 69 7a 65 20 73 70 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 20 56 41 52 20 | Initialize.special.variable.VAR. |
| 199020 | 62 79 20 64 65 66 61 75 6c 74 20 77 69 74 68 20 46 4f 52 4d 2e 0a 0a 53 6f 6d 65 20 69 6d 70 6c | by.default.with.FORM...Some.impl |
| 199040 | 65 6d 65 6e 74 61 74 69 6f 6e 73 20 69 6e 69 74 69 61 6c 69 7a 65 20 63 65 72 74 61 69 6e 20 76 | ementations.initialize.certain.v |
| 199060 | 61 72 69 61 62 6c 65 73 20 69 6e 20 65 61 63 68 20 6e 65 77 6c 79 0a 63 72 65 61 74 65 64 20 74 | ariables.in.each.newly.created.t |
| 199080 | 68 72 65 61 64 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 65 74 73 20 74 68 65 20 66 | hread...This.function.sets.the.f |
| 1990a0 | 6f 72 6d 20 77 68 69 63 68 20 69 73 20 75 73 65 64 20 74 6f 20 70 72 6f 64 75 63 65 0a 74 68 65 | orm.which.is.used.to.produce.the |
| 1990c0 | 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 2e 22 0a 20 20 28 73 65 74 20 76 61 72 20 28 65 76 61 | .initial.value."...(set.var.(eva |
| 1990e0 | 6c 20 66 6f 72 6d 29 29 29 0a 0a 3b 3b 20 4c 69 73 74 20 6f 66 20 64 65 6c 61 79 65 64 20 69 6e | l.form)))..;;.List.of.delayed.in |
| 199100 | 74 65 72 72 75 70 74 73 2e 0a 3b 3b 20 54 68 69 73 20 73 68 6f 75 6c 64 20 6f 6e 6c 79 20 68 61 | terrupts..;;.This.should.only.ha |
| 199120 | 76 65 20 74 68 72 65 61 64 2d 6c 6f 63 61 6c 20 62 69 6e 64 69 6e 67 73 2c 20 73 6f 20 6e 6f 20 | ve.thread-local.bindings,.so.no. |
| 199140 | 69 6e 69 74 20 66 6f 72 6d 2e 0a 28 64 65 66 76 61 72 20 2a 70 65 6e 64 69 6e 67 2d 73 6c 69 6d | init.form..(defvar.*pending-slim |
| 199160 | 65 2d 69 6e 74 65 72 72 75 70 74 73 2a 29 0a 0a 28 64 65 66 75 6e 20 63 68 65 63 6b 2d 73 6c 69 | e-interrupts*)..(defun.check-sli |
| 199180 | 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 20 28 29 0a 20 20 22 45 78 65 63 75 74 65 20 70 65 6e 64 | me-interrupts.()..."Execute.pend |
| 1991a0 | 69 6e 67 20 69 6e 74 65 72 72 75 70 74 73 20 69 66 20 61 6e 79 2e 0a 54 68 69 73 20 73 68 6f 75 | ing.interrupts.if.any..This.shou |
| 1991c0 | 6c 64 20 62 65 20 63 61 6c 6c 65 64 20 70 65 72 69 6f 64 69 63 61 6c 6c 79 20 69 6e 20 6f 70 65 | ld.be.called.periodically.in.ope |
| 1991e0 | 72 61 74 69 6f 6e 73 20 77 68 69 63 68 0a 63 61 6e 20 74 61 6b 65 20 61 20 6c 6f 6e 67 20 74 69 | rations.which.can.take.a.long.ti |
| 199200 | 6d 65 20 74 6f 20 63 6f 6d 70 6c 65 74 65 2e 0a 52 65 74 75 72 6e 20 61 20 62 6f 6f 6c 65 61 6e | me.to.complete..Return.a.boolean |
| 199220 | 20 69 6e 64 69 63 61 74 69 6e 67 20 77 68 65 74 68 65 72 20 61 6e 79 20 69 6e 74 65 72 72 75 70 | .indicating.whether.any.interrup |
| 199240 | 74 73 20 77 61 73 20 70 72 6f 63 65 73 73 65 64 2e 22 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 | ts.was.processed."...(when.(and. |
| 199260 | 28 62 6f 75 6e 64 70 20 27 2a 70 65 6e 64 69 6e 67 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 | (boundp.'*pending-slime-interrup |
| 199280 | 74 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 70 65 6e 64 69 6e 67 2d 73 6c 69 6d 65 | ts*)..............*pending-slime |
| 1992a0 | 2d 69 6e 74 65 72 72 75 70 74 73 2a 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 70 6f 70 20 | -interrupts*).....(funcall.(pop. |
| 1992c0 | 2a 70 65 6e 64 69 6e 67 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 2a 29 29 0a 20 20 20 | *pending-slime-interrupts*)).... |
| 1992e0 | 20 74 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 69 6e 74 65 72 72 75 70 74 2d 71 75 65 75 65 64 2d | .t))..(defvar.*interrupt-queued- |
| 199300 | 68 61 6e 64 6c 65 72 2a 20 6e 69 6c 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c | handler*.nil..."Function.to.call |
| 199320 | 20 6f 6e 20 71 75 65 75 65 64 20 69 6e 74 65 72 72 75 70 74 73 2e 0a 49 6e 74 65 72 72 75 70 74 | .on.queued.interrupts..Interrupt |
| 199340 | 73 20 67 65 74 20 71 75 65 75 65 64 20 77 68 65 6e 20 61 6e 20 69 6e 74 65 72 72 75 70 74 20 6f | s.get.queued.when.an.interrupt.o |
| 199360 | 63 63 75 72 73 20 77 68 69 6c 65 20 69 6e 74 65 72 72 75 70 74 0a 68 61 6e 64 6c 69 6e 67 20 69 | ccurs.while.interrupt.handling.i |
| 199380 | 73 20 64 69 73 61 62 6c 65 64 2e 0a 0a 42 61 63 6b 65 6e 64 73 20 63 61 6e 20 75 73 65 20 74 68 | s.disabled...Backends.can.use.th |
| 1993a0 | 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 61 62 6f 72 74 20 73 6c 6f 77 20 6f 70 65 72 61 74 | is.function.to.abort.slow.operat |
| 1993c0 | 69 6f 6e 73 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 77 61 69 74 2d 66 6f 72 2d | ions.")..(definterface.wait-for- |
| 1993e0 | 69 6e 70 75 74 20 28 73 74 72 65 61 6d 73 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 | input.(streams.&optional.timeout |
| 199400 | 29 0a 20 20 22 57 61 69 74 20 66 6f 72 20 69 6e 70 75 74 20 6f 6e 20 61 20 6c 69 73 74 20 6f 66 | )..."Wait.for.input.on.a.list.of |
| 199420 | 20 73 74 72 65 61 6d 73 2e 20 20 52 65 74 75 72 6e 20 74 68 6f 73 65 20 74 68 61 74 20 61 72 65 | .streams...Return.those.that.are |
| 199440 | 20 72 65 61 64 79 2e 0a 53 54 52 45 41 4d 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 | .ready..STREAMS.is.a.list.of.str |
| 199460 | 65 61 6d 73 0a 54 49 4d 45 4f 55 54 20 6e 69 6c 2c 20 74 2c 20 6f 72 20 72 65 61 6c 20 6e 75 6d | eams.TIMEOUT.nil,.t,.or.real.num |
| 199480 | 62 65 72 2e 20 49 66 20 54 49 4d 45 4f 55 54 20 69 73 20 74 2c 20 72 65 74 75 72 6e 20 74 68 6f | ber..If.TIMEOUT.is.t,.return.tho |
| 1994a0 | 73 65 20 73 74 72 65 61 6d 73 0a 77 68 69 63 68 20 61 72 65 20 72 65 61 64 79 20 28 6f 72 20 68 | se.streams.which.are.ready.(or.h |
| 1994c0 | 61 76 65 20 72 65 61 63 68 65 64 20 65 6e 64 2d 6f 66 2d 66 69 6c 65 29 20 77 69 74 68 6f 75 74 | ave.reached.end-of-file).without |
| 1994e0 | 20 77 61 69 74 69 6e 67 2e 0a 49 66 20 54 49 4d 45 4f 55 54 20 69 73 20 61 20 6e 75 6d 62 65 72 | .waiting..If.TIMEOUT.is.a.number |
| 199500 | 20 61 6e 64 20 6e 6f 20 73 74 72 65 61 6d 73 20 69 73 20 72 65 61 64 79 20 61 66 74 65 72 20 54 | .and.no.streams.is.ready.after.T |
| 199520 | 49 4d 45 4f 55 54 20 73 65 63 6f 6e 64 73 2c 0a 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 0a 52 65 74 | IMEOUT.seconds,.return.nil...Ret |
| 199540 | 75 72 6e 20 3a 69 6e 74 65 72 72 75 70 74 20 69 66 20 61 6e 20 69 6e 74 65 72 72 75 70 74 20 6f | urn.:interrupt.if.an.interrupt.o |
| 199560 | 63 63 75 72 73 20 77 68 69 6c 65 20 77 61 69 74 69 6e 67 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 | ccurs.while.waiting."...(declare |
| 199580 | 20 28 69 67 6e 6f 72 65 20 73 74 72 65 61 6d 73 20 74 69 6d 65 6f 75 74 29 29 0a 20 20 3b 3b 20 | .(ignore.streams.timeout))...;;. |
| 1995a0 | 49 6e 76 6f 6b 69 6e 67 20 74 68 65 20 73 6c 69 6d 65 20 64 65 62 75 67 67 65 72 20 77 69 6c 6c | Invoking.the.slime.debugger.will |
| 1995c0 | 20 6a 75 73 74 20 65 6e 64 6c 65 73 73 6c 79 20 6c 6f 6f 70 2e 0a 20 20 28 63 61 6c 6c 2d 77 69 | .just.endlessly.loop....(call-wi |
| 1995e0 | 74 68 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 0a 20 20 20 6e 69 6c 0a 20 20 20 28 6c 61 6d 62 | th-debugger-hook....nil....(lamb |
| 199600 | 64 61 20 28 29 0a 20 20 20 20 20 28 65 72 72 6f 72 20 22 7e 73 20 6e 6f 74 20 69 6d 70 6c 65 6d | da.()......(error."~s.not.implem |
| 199620 | 65 6e 74 65 64 2e 20 43 68 65 63 6b 20 69 66 20 7e 73 20 3d 20 7e 73 20 69 73 20 73 75 70 70 6f | ented..Check.if.~s.=.~s.is.suppo |
| 199640 | 72 74 65 64 20 62 79 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 22 0a 20 20 20 | rted.by.the.implementation.".... |
| 199660 | 20 20 20 20 20 20 20 20 20 27 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 20 27 73 77 61 6e 6b 3a | .........'wait-for-input.'swank: |
| 199680 | 2a 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 2a 20 73 77 61 6e 6b 3a 2a 63 6f 6d | *communication-style*.swank:*com |
| 1996a0 | 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 2a 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 20 4c | munication-style*))))....;;;;..L |
| 1996c0 | 6f 63 6b 73 0a 0a 3b 3b 20 50 6c 65 61 73 65 20 75 73 65 20 6c 6f 63 6b 73 20 6f 6e 6c 79 20 69 | ocks..;;.Please.use.locks.only.i |
| 1996e0 | 6e 20 73 77 61 6e 6b 2d 67 72 61 79 2e 6c 69 73 70 2e 20 20 4c 6f 63 6b 73 20 61 72 65 20 74 6f | n.swank-gray.lisp...Locks.are.to |
| 199700 | 6f 20 6c 6f 77 2d 6c 65 76 65 6c 0a 3b 3b 20 66 6f 72 20 6f 75 72 20 74 61 73 74 65 2e 0a 0a 28 | o.low-level.;;.for.our.taste...( |
| 199720 | 64 65 66 69 6e 74 65 72 66 61 63 65 20 6d 61 6b 65 2d 6c 6f 63 6b 20 28 26 6b 65 79 20 6e 61 6d | definterface.make-lock.(&key.nam |
| 199740 | 65 29 0a 20 20 20 22 4d 61 6b 65 20 61 20 6c 6f 63 6b 20 66 6f 72 20 74 68 72 65 61 64 20 73 79 | e)...."Make.a.lock.for.thread.sy |
| 199760 | 6e 63 68 72 6f 6e 69 7a 61 74 69 6f 6e 2e 0a 4f 6e 6c 79 20 6f 6e 65 20 74 68 72 65 61 64 20 6d | nchronization..Only.one.thread.m |
| 199780 | 61 79 20 68 6f 6c 64 20 74 68 65 20 6c 6f 63 6b 20 28 76 69 61 20 43 41 4c 4c 2d 57 49 54 48 2d | ay.hold.the.lock.(via.CALL-WITH- |
| 1997a0 | 4c 4f 43 4b 2d 48 45 4c 44 29 20 61 74 20 61 20 74 69 6d 65 0a 62 75 74 20 74 68 61 74 20 74 68 | LOCK-HELD).at.a.time.but.that.th |
| 1997c0 | 72 65 61 64 20 6d 61 79 20 68 6f 6c 64 20 69 74 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 63 65 2e | read.may.hold.it.more.than.once. |
| 1997e0 | 22 0a 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6e 61 6d 65 29 29 0a 20 20 20 | "....(declare.(ignore.name)).... |
| 199800 | 3a 6e 75 6c 6c 2d 6c 6f 63 6b 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 63 61 6c 6c 2d | :null-lock)..(definterface.call- |
| 199820 | 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 6c 6f 63 6b 20 66 75 6e 63 74 69 6f 6e 29 0a 20 | with-lock-held.(lock.function).. |
| 199840 | 20 20 22 43 61 6c 6c 20 46 55 4e 43 54 49 4f 4e 20 77 69 74 68 20 4c 4f 43 4b 20 68 65 6c 64 2c | .."Call.FUNCTION.with.LOCK.held, |
| 199860 | 20 71 75 65 75 65 69 6e 67 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 22 0a 20 20 20 28 64 65 63 | .queueing.if.necessary."....(dec |
| 199880 | 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6c 6f 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | lare.(ignore.lock).............( |
| 1998a0 | 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 28 66 75 6e | type.function.function))....(fun |
| 1998c0 | 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d | call.function))..(defmacro.with- |
| 1998e0 | 6c 6f 63 6b 20 28 6c 6f 63 6b 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 60 28 63 61 6c 6c 2d | lock.(lock.&body.body)...`(call- |
| 199900 | 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 2c 6c 6f 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 | with-lock-held.,lock............ |
| 199920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 | .............(lambda.()......... |
| 199940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 29 29 0a 0a 0c 0a 3b | ..................,@body)))....; |
| 199960 | 3b 3b 3b 20 57 65 61 6b 20 64 61 74 61 73 74 72 75 63 74 75 72 65 73 0a 0a 28 64 65 66 69 6e 74 | ;;;.Weak.datastructures..(defint |
| 199980 | 65 72 66 61 63 65 20 6d 61 6b 65 2d 77 65 61 6b 2d 6b 65 79 2d 68 61 73 68 2d 74 61 62 6c 65 20 | erface.make-weak-key-hash-table. |
| 1999a0 | 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 4c 69 6b 65 20 4d 41 4b 45 2d 48 41 53 48 2d 54 | (&rest.args)..."Like.MAKE-HASH-T |
| 1999c0 | 41 42 4c 45 2c 20 62 75 74 20 77 65 61 6b 20 77 2e 72 2e 74 2e 20 74 68 65 20 6b 65 79 73 2e 22 | ABLE,.but.weak.w.r.t..the.keys." |
| 1999e0 | 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 61 72 67 73 | ...(apply.#'make-hash-table.args |
| 199a00 | 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 6d 61 6b 65 2d 77 65 61 6b 2d 76 61 6c 75 | ))..(definterface.make-weak-valu |
| 199a20 | 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 4c 69 6b | e-hash-table.(&rest.args)..."Lik |
| 199a40 | 65 20 4d 41 4b 45 2d 48 41 53 48 2d 54 41 42 4c 45 2c 20 62 75 74 20 77 65 61 6b 20 77 2e 72 2e | e.MAKE-HASH-TABLE,.but.weak.w.r. |
| 199a60 | 74 2e 20 74 68 65 20 76 61 6c 75 65 73 2e 22 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d | t..the.values."...(apply.#'make- |
| 199a80 | 68 61 73 68 2d 74 61 62 6c 65 20 61 72 67 73 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 | hash-table.args))..(definterface |
| 199aa0 | 20 68 61 73 68 2d 74 61 62 6c 65 2d 77 65 61 6b 6e 65 73 73 20 28 68 61 73 68 74 61 62 6c 65 29 | .hash-table-weakness.(hashtable) |
| 199ac0 | 0a 20 20 22 52 65 74 75 72 6e 20 6e 69 6c 20 6f 72 20 6f 6e 65 20 6f 66 20 3a 6b 65 79 20 3a 76 | ..."Return.nil.or.one.of.:key.:v |
| 199ae0 | 61 6c 75 65 20 3a 6b 65 79 2d 6f 72 2d 76 61 6c 75 65 20 3a 6b 65 79 2d 61 6e 64 2d 76 61 6c 75 | alue.:key-or-value.:key-and-valu |
| 199b00 | 65 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 68 61 73 68 74 61 62 6c 65 29 | e"...(declare.(ignore.hashtable) |
| 199b20 | 29 0a 20 20 6e 69 6c 29 0a 0a 0c 0a 3b 3b 3b 3b 20 46 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 0a | )...nil)....;;;;.Floating.point. |
| 199b40 | 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 6c 6f 61 74 2d 6e 61 6e 2d 70 20 28 66 6c 6f 61 | .(definterface.float-nan-p.(floa |
| 199b60 | 74 29 0a 20 20 22 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 46 4c 4f 41 54 20 69 73 20 61 20 | t)..."Return.true.if.FLOAT.is.a. |
| 199b80 | 4e 61 4e 20 76 61 6c 75 65 20 28 4e 6f 74 20 61 20 4e 75 6d 62 65 72 29 2e 22 0a 20 20 3b 3b 20 | NaN.value.(Not.a.Number)."...;;. |
| 199ba0 | 57 68 65 6e 20 74 68 65 20 66 6c 6f 61 74 20 74 79 70 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 49 | When.the.float.type.implements.I |
| 199bc0 | 45 45 45 2d 37 35 34 20 66 6c 6f 61 74 73 2c 20 74 77 6f 20 4e 61 4e 20 76 61 6c 75 65 73 0a 20 | EEE-754.floats,.two.NaN.values.. |
| 199be0 | 20 3b 3b 20 61 72 65 20 6e 65 76 65 72 20 65 71 75 61 6c 3b 20 77 68 65 6e 20 74 68 65 20 69 6d | .;;.are.never.equal;.when.the.im |
| 199c00 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 20 4e 61 | plementation.does.not.support.Na |
| 199c20 | 4e 2c 0a 20 20 3b 3b 20 74 68 65 20 70 72 65 64 69 63 61 74 65 20 73 68 6f 75 6c 64 20 72 65 74 | N,...;;.the.predicate.should.ret |
| 199c40 | 75 72 6e 20 66 61 6c 73 65 2e 20 41 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6e | urn.false..An.implementation.can |
| 199c60 | 0a 20 20 3b 3b 20 69 6d 70 6c 65 6d 65 6e 74 20 63 6f 6d 70 61 72 69 73 6f 6e 20 77 69 74 68 20 | ...;;.implement.comparison.with. |
| 199c80 | 22 75 6e 6f 72 64 65 72 65 64 2d 73 69 67 6e 61 6c 69 6e 67 20 70 72 65 64 69 63 61 74 65 73 22 | "unordered-signaling.predicates" |
| 199ca0 | 2c 20 77 68 69 63 68 0a 20 20 3b 3b 20 65 6d 69 74 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 | ,.which...;;.emit.floating.point |
| 199cc0 | 20 65 78 63 65 70 74 69 6f 6e 73 2e 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 6e 6f | .exceptions....(handler-case.(no |
| 199ce0 | 74 20 28 3d 20 66 6c 6f 61 74 20 66 6c 6f 61 74 29 29 0a 20 20 20 20 3b 3b 20 43 6f 6d 70 61 72 | t.(=.float.float)).....;;.Compar |
| 199d00 | 69 73 6f 6e 73 20 6e 65 76 65 72 20 73 69 67 6e 61 6c 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 | isons.never.signal.an.exception. |
| 199d20 | 6f 74 68 65 72 20 74 68 61 6e 20 74 68 65 20 69 6e 76 61 6c 69 64 0a 20 20 20 20 3b 3b 20 6f 70 | other.than.the.invalid.....;;.op |
| 199d40 | 65 72 61 74 69 6f 6e 20 65 78 63 65 70 74 69 6f 6e 20 28 35 2e 31 31 20 44 65 74 61 69 6c 73 20 | eration.exception.(5.11.Details. |
| 199d60 | 6f 66 20 63 6f 6d 70 61 72 69 73 6f 6e 20 70 72 65 64 69 63 61 74 65 73 29 2e 0a 20 20 20 20 28 | of.comparison.predicates)......( |
| 199d80 | 66 6c 6f 61 74 69 6e 67 2d 70 6f 69 6e 74 2d 69 6e 76 61 6c 69 64 2d 6f 70 65 72 61 74 69 6f 6e | floating-point-invalid-operation |
| 199da0 | 20 28 29 20 74 29 29 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 66 6c 6f 61 74 2d 69 6e | .().t)))..(definterface.float-in |
| 199dc0 | 66 69 6e 69 74 79 2d 70 20 28 66 6c 6f 61 74 29 0a 20 20 22 52 65 74 75 72 6e 20 74 72 75 65 20 | finity-p.(float)..."Return.true. |
| 199de0 | 69 66 20 46 4c 4f 41 54 20 69 73 20 70 6f 73 69 74 69 76 65 20 6f 72 20 6e 65 67 61 74 69 76 65 | if.FLOAT.is.positive.or.negative |
| 199e00 | 20 69 6e 66 69 6e 69 74 79 2e 22 0a 20 20 28 6e 6f 74 20 28 3c 20 6d 6f 73 74 2d 6e 65 67 61 74 | .infinity."...(not.(<.most-negat |
| 199e20 | 69 76 65 2d 6c 6f 6e 67 2d 66 6c 6f 61 74 0a 20 20 20 20 20 20 20 20 20 20 66 6c 6f 61 74 0a 20 | ive-long-float...........float.. |
| 199e40 | 20 20 20 20 20 20 20 20 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 6c 6f 6e 67 2d 66 6c 6f 61 | .........most-positive-long-floa |
| 199e60 | 74 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 68 61 72 61 63 74 65 72 20 6e 61 6d 65 73 0a 0a 28 64 | t)))....;;;;.Character.names..(d |
| 199e80 | 65 66 69 6e 74 65 72 66 61 63 65 20 63 68 61 72 61 63 74 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e | efinterface.character-completion |
| 199ea0 | 2d 73 65 74 20 28 70 72 65 66 69 78 20 6d 61 74 63 68 70 29 0a 20 20 22 52 65 74 75 72 6e 20 61 | -set.(prefix.matchp)..."Return.a |
| 199ec0 | 20 6c 69 73 74 20 6f 66 20 6e 61 6d 65 73 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 74 68 61 | .list.of.names.of.characters.tha |
| 199ee0 | 74 20 6d 61 74 63 68 20 50 52 45 46 49 58 2e 22 0a 20 20 3b 3b 20 48 61 6e 64 6c 65 20 74 68 65 | t.match.PREFIX."...;;.Handle.the |
| 199f00 | 20 73 74 61 6e 64 61 72 64 20 61 6e 64 20 73 65 6d 69 2d 73 74 61 6e 64 61 72 64 20 63 68 61 72 | .standard.and.semi-standard.char |
| 199f20 | 61 63 74 65 72 73 2e 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6e 61 6d 65 20 69 6e 20 27 28 22 4e | acters....(loop.for.name.in.'("N |
| 199f40 | 65 77 6c 69 6e 65 22 20 22 53 70 61 63 65 22 20 22 54 61 62 22 20 22 50 61 67 65 22 20 22 52 75 | ewline"."Space"."Tab"."Page"."Ru |
| 199f60 | 62 6f 75 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4c 69 6e | bout"......................."Lin |
| 199f80 | 65 66 65 65 64 22 20 22 52 65 74 75 72 6e 22 20 22 42 61 63 6b 73 70 61 63 65 22 29 0a 20 20 20 | efeed"."Return"."Backspace").... |
| 199fa0 | 20 20 77 68 65 6e 20 28 66 75 6e 63 61 6c 6c 20 6d 61 74 63 68 70 20 70 72 65 66 69 78 20 6e 61 | ..when.(funcall.matchp.prefix.na |
| 199fc0 | 6d 65 29 0a 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 6e 61 6d 65 29 29 0a 0a 0a 28 64 65 66 70 61 | me)......collect.name))...(defpa |
| 199fe0 | 72 61 6d 65 74 65 72 20 2a 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 73 | rameter.*type-specifier-arglists |
| 19a000 | 2a 0a 20 20 27 28 28 61 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 28 26 72 65 | *...'((and..................(&re |
| 19a020 | 73 74 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 73 29 29 0a 20 20 20 20 28 61 72 72 61 79 20 | st.type-specifiers)).....(array. |
| 19a040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 65 6c 65 6d 65 6e | ...............(&optional.elemen |
| 19a060 | 74 2d 74 79 70 65 20 64 69 6d 65 6e 73 69 6f 6e 2d 73 70 65 63 29 29 0a 20 20 20 20 28 62 61 73 | t-type.dimension-spec)).....(bas |
| 19a080 | 65 2d 73 74 72 69 6e 67 20 20 20 20 20 20 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 69 7a | e-string..........(&optional.siz |
| 19a0a0 | 65 29 29 0a 20 20 20 20 28 62 69 74 2d 76 65 63 74 6f 72 20 20 20 20 20 20 20 20 20 2e 20 28 26 | e)).....(bit-vector...........(& |
| 19a0c0 | 6f 70 74 69 6f 6e 61 6c 20 73 69 7a 65 29 29 0a 20 20 20 20 28 63 6f 6d 70 6c 65 78 20 20 20 20 | optional.size)).....(complex.... |
| 19a0e0 | 20 20 20 20 20 20 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 74 79 70 65 2d 73 70 65 63 69 66 | ..........(&optional.type-specif |
| 19a100 | 69 65 72 29 29 0a 20 20 20 20 28 63 6f 6e 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 | ier)).....(cons................. |
| 19a120 | 28 26 6f 70 74 69 6f 6e 61 6c 20 63 61 72 2d 74 79 70 65 73 70 65 63 20 63 64 72 2d 74 79 70 65 | (&optional.car-typespec.cdr-type |
| 19a140 | 73 70 65 63 29 29 0a 20 20 20 20 28 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 20 20 20 20 20 20 20 2e | spec)).....(double-float........ |
| 19a160 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 77 65 72 2d 6c 69 6d 69 74 20 75 70 70 65 72 2d 6c 69 | .(&optional.lower-limit.upper-li |
| 19a180 | 6d 69 74 29 29 0a 20 20 20 20 28 65 71 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 | mit)).....(eql.................. |
| 19a1a0 | 28 6f 62 6a 65 63 74 29 29 0a 20 20 20 20 28 66 6c 6f 61 74 20 20 20 20 20 20 20 20 20 20 20 20 | (object)).....(float............ |
| 19a1c0 | 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 77 65 72 2d 6c 69 6d 69 74 20 75 70 70 65 72 | ....(&optional.lower-limit.upper |
| 19a1e0 | 2d 6c 69 6d 69 74 29 29 0a 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 | -limit)).....(function.......... |
| 19a200 | 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 2d 74 79 70 65 73 70 65 63 20 76 61 6c 75 65 | ...(&optional.arg-typespec.value |
| 19a220 | 2d 74 79 70 65 73 70 65 63 29 29 0a 20 20 20 20 28 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 | -typespec)).....(integer........ |
| 19a240 | 20 20 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 77 65 72 2d 6c 69 6d 69 74 20 75 70 70 | ......(&optional.lower-limit.upp |
| 19a260 | 65 72 2d 6c 69 6d 69 74 29 29 0a 20 20 20 20 28 6c 6f 6e 67 2d 66 6c 6f 61 74 20 20 20 20 20 20 | er-limit)).....(long-float...... |
| 19a280 | 20 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 77 65 72 2d 6c 69 6d 69 74 20 75 70 70 65 | .....(&optional.lower-limit.uppe |
| 19a2a0 | 72 2d 6c 69 6d 69 74 29 29 0a 20 20 20 20 28 6d 65 6d 62 65 72 20 20 20 20 20 20 20 20 20 20 20 | r-limit)).....(member........... |
| 19a2c0 | 20 20 2e 20 28 26 72 65 73 74 20 65 71 6c 2d 6f 62 6a 65 63 74 73 29 29 0a 20 20 20 20 28 6d 6f | ....(&rest.eql-objects)).....(mo |
| 19a2e0 | 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 28 6e 29 29 0a 20 20 20 20 28 6e 6f 74 | d..................(n)).....(not |
| 19a300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 | ..................(type-specifie |
| 19a320 | 72 29 29 0a 20 20 20 20 28 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 28 26 | r)).....(or...................(& |
| 19a340 | 72 65 73 74 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 73 29 29 0a 20 20 20 20 28 72 61 74 69 | rest.type-specifiers)).....(rati |
| 19a360 | 6f 6e 61 6c 20 20 20 20 20 20 20 20 20 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 77 65 | onal.............(&optional.lowe |
| 19a380 | 72 2d 6c 69 6d 69 74 20 75 70 70 65 72 2d 6c 69 6d 69 74 29 29 0a 20 20 20 20 28 72 65 61 6c 20 | r-limit.upper-limit)).....(real. |
| 19a3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 77 65 72 | ................(&optional.lower |
| 19a3c0 | 2d 6c 69 6d 69 74 20 75 70 70 65 72 2d 6c 69 6d 69 74 29 29 0a 20 20 20 20 28 73 61 74 69 73 66 | -limit.upper-limit)).....(satisf |
| 19a3e0 | 69 65 73 20 20 20 20 20 20 20 20 20 20 2e 20 28 70 72 65 64 69 63 61 74 65 2d 73 79 6d 62 6f 6c | ies............(predicate-symbol |
| 19a400 | 29 29 0a 20 20 20 20 28 73 68 6f 72 74 2d 66 6c 6f 61 74 20 20 20 20 20 20 20 20 2e 20 28 26 6f | )).....(short-float..........(&o |
| 19a420 | 70 74 69 6f 6e 61 6c 20 6c 6f 77 65 72 2d 6c 69 6d 69 74 20 75 70 70 65 72 2d 6c 69 6d 69 74 29 | ptional.lower-limit.upper-limit) |
| 19a440 | 29 0a 20 20 20 20 28 73 69 67 6e 65 64 2d 62 79 74 65 20 20 20 20 20 20 20 20 2e 20 28 26 6f 70 | ).....(signed-byte..........(&op |
| 19a460 | 74 69 6f 6e 61 6c 20 73 69 7a 65 29 29 0a 20 20 20 20 28 73 69 6d 70 6c 65 2d 61 72 72 61 79 20 | tional.size)).....(simple-array. |
| 19a480 | 20 20 20 20 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 | ........(&optional.element-type. |
| 19a4a0 | 64 69 6d 65 6e 73 69 6f 6e 2d 73 70 65 63 29 29 0a 20 20 20 20 28 73 69 6d 70 6c 65 2d 62 61 73 | dimension-spec)).....(simple-bas |
| 19a4c0 | 65 2d 73 74 72 69 6e 67 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 69 7a 65 29 29 0a 20 20 20 | e-string...(&optional.size)).... |
| 19a4e0 | 20 28 73 69 6d 70 6c 65 2d 62 69 74 2d 76 65 63 74 6f 72 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 | .(simple-bit-vector....(&optiona |
| 19a500 | 6c 20 73 69 7a 65 29 29 0a 20 20 20 20 28 73 69 6d 70 6c 65 2d 73 74 72 69 6e 67 20 20 20 20 20 | l.size)).....(simple-string..... |
| 19a520 | 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 69 7a 65 29 29 0a 20 20 20 20 28 73 69 6e 67 6c 65 | ...(&optional.size)).....(single |
| 19a540 | 2d 66 6c 6f 61 74 20 20 20 20 20 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 77 65 72 2d | -float.........(&optional.lower- |
| 19a560 | 6c 69 6d 69 74 20 75 70 70 65 72 2d 6c 69 6d 69 74 29 29 0a 20 20 20 20 28 73 69 6d 70 6c 65 2d | limit.upper-limit)).....(simple- |
| 19a580 | 76 65 63 74 6f 72 20 20 20 20 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 69 7a 65 29 29 0a | vector........(&optional.size)). |
| 19a5a0 | 20 20 20 20 28 73 74 72 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 28 26 6f 70 74 69 | ....(string...............(&opti |
| 19a5c0 | 6f 6e 61 6c 20 73 69 7a 65 29 29 0a 20 20 20 20 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 20 | onal.size)).....(unsigned-byte.. |
| 19a5e0 | 20 20 20 20 2e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 69 7a 65 29 29 0a 20 20 20 20 28 76 61 6c | ......(&optional.size)).....(val |
| 19a600 | 75 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 28 26 72 65 73 74 20 74 79 70 65 73 70 65 | ues...............(&rest.typespe |
| 19a620 | 63 73 29 29 0a 20 20 20 20 28 76 65 63 74 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 28 | cs)).....(vector...............( |
| 19a640 | 26 6f 70 74 69 6f 6e 61 6c 20 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 73 69 7a 65 29 29 0a 20 20 | &optional.element-type.size))... |
| 19a660 | 20 20 29 29 0a 0a 3b 3b 3b 20 48 65 61 70 20 64 75 6d 70 73 0a 0a 28 64 65 66 69 6e 74 65 72 66 | ..))..;;;.Heap.dumps..(definterf |
| 19a680 | 61 63 65 20 73 61 76 65 2d 69 6d 61 67 65 20 28 66 69 6c 65 6e 61 6d 65 20 26 6f 70 74 69 6f 6e | ace.save-image.(filename.&option |
| 19a6a0 | 61 6c 20 72 65 73 74 61 72 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 53 61 76 65 20 61 20 68 | al.restart-function)..."Save.a.h |
| 19a6c0 | 65 61 70 20 69 6d 61 67 65 20 74 6f 20 74 68 65 20 66 69 6c 65 20 46 49 4c 45 4e 41 4d 45 2e 0a | eap.image.to.the.file.FILENAME.. |
| 19a6e0 | 52 45 53 54 41 52 54 2d 46 55 4e 43 54 49 4f 4e 2c 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 73 68 | RESTART-FUNCTION,.if.non-nil,.sh |
| 19a700 | 6f 75 6c 64 20 62 65 20 63 61 6c 6c 65 64 20 77 68 65 6e 20 74 68 65 20 69 6d 61 67 65 20 69 73 | ould.be.called.when.the.image.is |
| 19a720 | 20 6c 6f 61 64 65 64 2e 22 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 62 61 63 6b 67 72 | .loaded.")..(definterface.backgr |
| 19a740 | 6f 75 6e 64 2d 73 61 76 65 2d 69 6d 61 67 65 20 28 66 69 6c 65 6e 61 6d 65 20 26 6b 65 79 20 72 | ound-save-image.(filename.&key.r |
| 19a760 | 65 73 74 61 72 74 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | estart-function................. |
| 19a780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f | ..............................co |
| 19a7a0 | 6d 70 6c 65 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 52 65 71 75 65 73 74 20 73 61 | mpletion-function)..."Request.sa |
| 19a7c0 | 76 69 6e 67 20 61 20 68 65 61 70 20 69 6d 61 67 65 20 74 6f 20 74 68 65 20 66 69 6c 65 20 46 49 | ving.a.heap.image.to.the.file.FI |
| 19a7e0 | 4c 45 4e 41 4d 45 2e 0a 52 45 53 54 41 52 54 2d 46 55 4e 43 54 49 4f 4e 2c 20 69 66 20 6e 6f 6e | LENAME..RESTART-FUNCTION,.if.non |
| 19a800 | 2d 6e 69 6c 2c 20 73 68 6f 75 6c 64 20 62 65 20 63 61 6c 6c 65 64 20 77 68 65 6e 20 74 68 65 20 | -nil,.should.be.called.when.the. |
| 19a820 | 69 6d 61 67 65 20 69 73 20 6c 6f 61 64 65 64 2e 0a 43 4f 4d 50 4c 45 54 49 4f 4e 2d 46 55 4e 43 | image.is.loaded..COMPLETION-FUNC |
| 19a840 | 54 49 4f 4e 2c 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 73 68 6f 75 6c 64 20 62 65 20 63 61 6c 6c | TION,.if.non-nil,.should.be.call |
| 19a860 | 65 64 20 61 66 74 65 72 20 73 61 76 69 6e 67 20 74 68 65 20 69 6d 61 67 65 2e 22 29 0a 0a 28 64 | ed.after.saving.the.image.")..(d |
| 19a880 | 65 66 75 6e 20 64 65 69 6e 69 74 2d 6c 6f 67 2d 6f 75 74 70 75 74 20 28 29 0a 20 20 3b 3b 20 43 | efun.deinit-log-output.()...;;.C |
| 19a8a0 | 61 6e 27 74 20 68 61 6e 67 20 6f 6e 20 74 6f 20 61 6e 20 66 64 2d 73 74 72 65 61 6d 20 66 72 6f | an't.hang.on.to.an.fd-stream.fro |
| 19a8c0 | 6d 20 61 20 70 72 65 76 69 6f 75 73 20 73 65 73 73 69 6f 6e 2e 0a 20 20 28 73 65 74 66 20 2a 6c | m.a.previous.session....(setf.*l |
| 19a8e0 | 6f 67 2d 6f 75 74 70 75 74 2a 20 6e 69 6c 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 57 72 61 70 70 69 6e | og-output*.nil))....;;;;.Wrappin |
| 19a900 | 67 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 77 72 61 70 20 28 73 70 65 63 20 69 6e 64 69 | g..(definterface.wrap.(spec.indi |
| 19a920 | 63 61 74 6f 72 20 26 6b 65 79 20 62 65 66 6f 72 65 20 61 66 74 65 72 20 72 65 70 6c 61 63 65 29 | cator.&key.before.after.replace) |
| 19a940 | 0a 20 20 22 49 6e 74 65 72 63 65 70 74 20 66 75 74 75 72 65 20 63 61 6c 6c 73 20 74 6f 20 53 50 | ..."Intercept.future.calls.to.SP |
| 19a960 | 45 43 20 61 6e 64 20 73 75 72 72 6f 75 6e 64 20 74 68 65 6d 20 69 6e 20 63 61 6c 6c 62 61 63 6b | EC.and.surround.them.in.callback |
| 19a980 | 73 2e 0a 0a 49 4e 44 49 43 41 54 4f 52 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 69 64 65 6e 74 69 | s...INDICATOR.is.a.symbol.identi |
| 19a9a0 | 66 79 69 6e 67 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 77 72 61 70 70 69 6e 67 2c 20 61 6e 64 | fying.a.particular.wrapping,.and |
| 19a9c0 | 20 69 73 20 75 73 65 64 0a 74 6f 20 64 69 66 66 65 72 65 6e 74 69 61 74 65 20 62 65 74 77 65 65 | .is.used.to.differentiate.betwee |
| 19a9e0 | 6e 20 6d 75 6c 74 69 70 6c 65 20 77 72 61 70 70 69 6e 67 73 2e 0a 0a 49 6d 70 6c 65 6d 65 6e 74 | n.multiple.wrappings...Implement |
| 19aa00 | 61 74 69 6f 6e 73 20 69 6e 74 65 72 63 65 70 74 20 63 61 6c 6c 73 20 74 6f 20 53 50 45 43 20 61 | ations.intercept.calls.to.SPEC.a |
| 19aa20 | 6e 64 20 63 61 6c 6c 2c 20 69 6e 20 74 68 69 73 20 6f 72 64 65 72 3a 0a 0a 2a 20 74 68 65 20 42 | nd.call,.in.this.order:..*.the.B |
| 19aa40 | 45 46 4f 52 45 20 63 61 6c 6c 62 61 63 6b 2c 20 69 66 20 69 74 27 73 20 70 72 6f 76 69 64 65 64 | EFORE.callback,.if.it's.provided |
| 19aa60 | 2c 20 77 69 74 68 20 61 20 73 69 6e 67 6c 65 20 61 72 67 75 6d 65 6e 74 20 73 65 74 20 74 6f 0a | ,.with.a.single.argument.set.to. |
| 19aa80 | 20 20 74 68 65 20 6c 69 73 74 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 70 61 73 73 65 64 20 74 | ..the.list.of.arguments.passed.t |
| 19aaa0 | 6f 20 74 68 65 20 69 6e 74 65 72 63 65 70 74 65 64 20 63 61 6c 6c 3b 0a 0a 2a 20 74 68 65 20 6f | o.the.intercepted.call;..*.the.o |
| 19aac0 | 72 69 67 69 6e 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 53 50 45 43 20 72 65 63 75 72 | riginal.definition.of.SPEC.recur |
| 19aae0 | 73 69 76 65 6c 79 20 68 6f 6e 6f 75 72 69 6e 67 20 61 6e 79 20 77 72 61 70 70 69 6e 67 73 0a 20 | sively.honouring.any.wrappings.. |
| 19ab00 | 20 70 72 65 76 69 6f 75 73 6c 79 20 65 73 74 61 62 6c 69 73 68 65 64 20 75 6e 64 65 72 20 64 69 | .previously.established.under.di |
| 19ab20 | 66 66 65 72 65 6e 74 20 76 61 6c 75 65 73 20 6f 66 20 49 4e 44 49 43 41 54 4f 52 2e 20 49 66 20 | fferent.values.of.INDICATOR..If. |
| 19ab40 | 74 68 65 0a 20 20 63 6f 6d 70 61 74 69 62 6c 65 20 66 75 6e 63 74 69 6f 6e 20 52 45 50 4c 41 43 | the...compatible.function.REPLAC |
| 19ab60 | 45 20 69 73 20 70 72 6f 76 69 64 65 64 2c 20 63 61 6c 6c 20 74 68 61 74 20 69 6e 73 74 65 61 64 | E.is.provided,.call.that.instead |
| 19ab80 | 2e 0a 0a 2a 20 74 68 65 20 41 46 54 45 52 20 63 61 6c 6c 62 61 63 6b 2c 20 69 66 20 69 74 27 73 | ...*.the.AFTER.callback,.if.it's |
| 19aba0 | 20 70 72 6f 76 69 64 65 64 2c 20 77 69 74 68 20 61 20 73 69 6e 67 6c 65 20 73 65 74 20 74 6f 20 | .provided,.with.a.single.set.to. |
| 19abc0 | 74 68 65 20 6c 69 73 74 0a 20 20 6f 66 20 76 61 6c 75 65 73 20 72 65 74 75 72 6e 65 64 20 62 79 | the.list...of.values.returned.by |
| 19abe0 | 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 63 61 6c 6c 2c 20 6f 72 2c 20 69 66 20 74 68 61 74 20 | .the.previous.call,.or,.if.that. |
| 19ac00 | 63 61 6c 6c 20 65 78 69 74 65 64 0a 20 20 6e 6f 6e 2d 6c 6f 63 61 6c 6c 79 2c 20 61 20 73 69 6e | call.exited...non-locally,.a.sin |
| 19ac20 | 67 6c 65 20 64 65 73 63 72 69 70 74 69 76 65 20 73 79 6d 62 6f 6c 2c 20 6c 69 6b 65 20 3a 45 58 | gle.descriptive.symbol,.like.:EX |
| 19ac40 | 49 54 45 44 2d 4e 4f 4e 2d 4c 4f 43 41 4c 4c 59 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 | ITED-NON-LOCALLY."...(declare.(i |
| 19ac60 | 67 6e 6f 72 65 20 69 6e 64 69 63 61 74 6f 72 29 29 0a 20 20 28 61 73 73 65 72 74 20 28 73 79 6d | gnore.indicator))...(assert.(sym |
| 19ac80 | 62 6f 6c 70 20 73 70 65 63 29 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 22 54 68 65 20 64 65 | bolp.spec).nil..........."The.de |
| 19aca0 | 66 61 75 6c 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 57 52 41 50 20 61 6c | fault.implementation.for.WRAP.al |
| 19acc0 | 6c 6f 77 73 20 6f 6e 6c 79 20 73 69 6d 70 6c 65 20 6e 61 6d 65 73 22 29 0a 20 20 28 61 73 73 65 | lows.only.simple.names")...(asse |
| 19ace0 | 72 74 20 28 6e 75 6c 6c 20 28 67 65 74 20 73 70 65 63 20 27 73 6c 69 6d 65 2d 77 72 61 70 29 29 | rt.(null.(get.spec.'slime-wrap)) |
| 19ad00 | 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 22 54 68 65 20 64 65 66 61 75 6c 74 20 69 6d 70 6c | .nil..........."The.default.impl |
| 19ad20 | 65 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 57 52 41 50 20 61 6c 6c 6f 77 73 20 61 20 73 69 6e | ementation.for.WRAP.allows.a.sin |
| 19ad40 | 67 6c 65 20 77 72 61 70 70 69 6e 67 22 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 61 76 65 64 20 28 | gle.wrapping")...(let*.((saved.( |
| 19ad60 | 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 | symbol-function.spec)).......... |
| 19ad80 | 28 72 65 70 6c 61 63 65 6d 65 6e 74 20 28 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 61 72 67 73 | (replacement.(lambda.(&rest.args |
| 19ada0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | ).........................(let.( |
| 19adc0 | 72 65 74 6c 69 73 74 20 63 6f 6d 70 6c 65 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | retlist.completed).............. |
| 19ade0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 | .............(unwind-protect.... |
| 19ae00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f | ............................(pro |
| 19ae20 | 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gn.............................. |
| 19ae40 | 20 20 20 20 28 77 68 65 6e 20 62 65 66 6f 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(when.before................ |
| 19ae60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 62 65 66 | ....................(funcall.bef |
| 19ae80 | 6f 72 65 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ore.args))...................... |
| 19aea0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 74 6c 69 73 74 20 28 6d 75 6c 74 69 | ............(setq.retlist.(multi |
| 19aec0 | 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ple-value-list.................. |
| 19aee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 19af00 | 61 70 70 6c 79 20 28 6f 72 20 72 65 70 6c 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | apply.(or.replace............... |
| 19af20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 19af40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 64 29 20 61 72 67 73 29 29 29 0a 20 20 20 20 | .............saved).args)))..... |
| 19af60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | .............................(se |
| 19af80 | 74 71 20 63 6f 6d 70 6c 65 74 65 64 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tq.completed.t)................. |
| 19afa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 2d 6c 69 73 74 20 72 65 | .................(values-list.re |
| 19afc0 | 74 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tlist))......................... |
| 19afe0 | 20 20 20 20 28 77 68 65 6e 20 61 66 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(when.after................. |
| 19b000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 61 66 74 65 72 20 28 69 66 | ..............(funcall.after.(if |
| 19b020 | 20 63 6f 6d 70 6c 65 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .completed...................... |
| 19b040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 6c | ............................retl |
| 19b060 | 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ist............................. |
| 19b080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 69 74 65 64 2d 6e 6f 6e | .....................:exited-non |
| 19b0a0 | 2d 6c 6f 63 61 6c 6c 79 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 67 65 74 20 | -locally)))))))).....(setf.(get. |
| 19b0c0 | 73 70 65 63 20 27 73 6c 69 6d 65 2d 77 72 61 70 29 20 28 6c 69 73 74 20 73 61 76 65 64 20 72 65 | spec.'slime-wrap).(list.saved.re |
| 19b0e0 | 70 6c 61 63 65 6d 65 6e 74 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 73 79 6d 62 6f 6c 2d 66 75 | placement)).....(setf.(symbol-fu |
| 19b100 | 6e 63 74 69 6f 6e 20 73 70 65 63 29 20 72 65 70 6c 61 63 65 6d 65 6e 74 29 29 0a 20 20 73 70 65 | nction.spec).replacement))...spe |
| 19b120 | 63 29 0a 0a 28 64 65 66 69 6e 74 65 72 66 61 63 65 20 75 6e 77 72 61 70 20 28 73 70 65 63 20 69 | c)..(definterface.unwrap.(spec.i |
| 19b140 | 6e 64 69 63 61 74 6f 72 29 0a 20 20 22 52 65 6d 6f 76 65 20 66 72 6f 6d 20 53 50 45 43 20 61 6e | ndicator)..."Remove.from.SPEC.an |
| 19b160 | 79 20 77 72 61 70 70 69 6e 67 73 20 74 61 67 67 65 64 20 77 69 74 68 20 49 4e 44 49 43 41 54 4f | y.wrappings.tagged.with.INDICATO |
| 19b180 | 52 2e 22 0a 20 20 28 69 66 20 28 77 72 61 70 70 65 64 2d 70 20 73 70 65 63 20 69 6e 64 69 63 61 | R."...(if.(wrapped-p.spec.indica |
| 19b1a0 | 74 6f 72 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f | tor).......(setf.(symbol-functio |
| 19b1c0 | 6e 20 73 70 65 63 29 20 28 66 69 72 73 74 20 28 67 65 74 20 73 70 65 63 20 27 73 6c 69 6d 65 2d | n.spec).(first.(get.spec.'slime- |
| 19b1e0 | 77 72 61 70 29 29 29 0a 20 20 20 20 20 20 28 63 65 72 72 6f 72 20 22 41 6c 6c 20 72 69 67 68 74 | wrap))).......(cerror."All.right |
| 19b200 | 2c 20 73 6f 20 49 20 64 69 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 48 6d 6d 6d 2c | ,.so.I.did"..............."Hmmm, |
| 19b220 | 20 7e 61 20 69 73 20 6e 6f 74 20 63 6f 72 72 65 63 74 6c 79 20 77 72 61 70 70 65 64 2c 20 79 6f | .~a.is.not.correctly.wrapped,.yo |
| 19b240 | 75 20 70 72 6f 62 61 62 6c 79 20 72 65 64 65 66 69 6e 65 64 20 69 74 22 0a 20 20 20 20 20 20 20 | u.probably.redefined.it"........ |
| 19b260 | 20 20 20 20 20 20 20 73 70 65 63 29 29 0a 20 20 28 73 65 74 66 20 28 67 65 74 20 73 70 65 63 20 | .......spec))...(setf.(get.spec. |
| 19b280 | 27 73 6c 69 6d 65 2d 77 72 61 70 29 20 6e 69 6c 29 0a 20 20 73 70 65 63 29 0a 0a 28 64 65 66 69 | 'slime-wrap).nil)...spec)..(defi |
| 19b2a0 | 6e 74 65 72 66 61 63 65 20 77 72 61 70 70 65 64 2d 70 20 28 73 70 65 63 20 69 6e 64 69 63 61 74 | nterface.wrapped-p.(spec.indicat |
| 19b2c0 | 6f 72 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 72 75 65 20 69 66 20 53 50 45 43 20 69 73 20 77 | or)..."Returns.true.if.SPEC.is.w |
| 19b2e0 | 72 61 70 70 65 64 20 77 69 74 68 20 49 4e 44 49 43 41 54 4f 52 2e 22 0a 20 20 28 64 65 63 6c 61 | rapped.with.INDICATOR."...(decla |
| 19b300 | 72 65 20 28 69 67 6e 6f 72 65 20 69 6e 64 69 63 61 74 6f 72 29 29 0a 20 20 28 61 6e 64 20 28 73 | re.(ignore.indicator))...(and.(s |
| 19b320 | 79 6d 62 6f 6c 70 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 70 2d | ymbolp.spec)........(let.((prop- |
| 19b340 | 76 61 6c 75 65 20 28 67 65 74 20 73 70 65 63 20 27 73 6c 69 6d 65 2d 77 72 61 70 29 29 29 0a 20 | value.(get.spec.'slime-wrap))).. |
| 19b360 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 70 72 6f 70 2d 76 61 6c 75 65 0a 20 | ........(cond.((and.prop-value.. |
| 19b380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 28 73 65 | ....................(not.(eq.(se |
| 19b3a0 | 63 6f 6e 64 20 70 72 6f 70 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cond.prop-value)................ |
| 19b3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 | ...............(symbol-function. |
| 19b3e0 | 73 70 65 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 20 22 | spec)))).................(warn." |
| 19b400 | 7e 61 20 61 70 70 65 61 72 73 20 74 6f 20 62 65 20 69 6e 63 6f 72 72 65 63 74 6c 79 20 77 72 61 | ~a.appears.to.be.incorrectly.wra |
| 19b420 | 70 70 65 64 22 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 | pped".spec).................nil) |
| 19b440 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 2d 76 61 6c 75 65 20 74 29 0a 20 | ................(prop-value.t).. |
| 19b460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 69 | ..............(t.nil)))))..(defi |
| 19b480 | 6e 74 65 72 66 61 63 65 20 61 75 67 6d 65 6e 74 2d 66 65 61 74 75 72 65 73 20 28 29 0a 20 20 22 | nterface.augment-features.()..." |
| 19b4a0 | 2a 66 65 61 74 75 72 65 73 2a 20 6f 72 20 73 6f 6d 65 74 68 69 6e 67 20 65 6c 73 65 20 22 0a 20 | *features*.or.something.else.".. |
| 19b4c0 | 20 2a 66 65 61 74 75 72 65 73 2a 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .*features*).................... |
| 19b4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 73 62 63 6c 2e 6c 69 73 70 00 00 00 00 00 00 | slime-2.31/swank/sbcl.lisp...... |
| 19b620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 19b680 | 30 32 33 35 34 30 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 31 35 37 00 20 30 00 00 00 | 0235405.00000000000.014157..0... |
| 19b6a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b6c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b6e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 19b720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 19b740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b7a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 19b800 | 3b 3b 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 20 | ;;;;;.-*-.indent-tabs-mode:.nil. |
| 19b820 | 2d 2a 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 73 62 63 6c 2e 6c 69 73 70 20 2d 2d 2d 20 | -*-.;;;.;;;.swank-sbcl.lisp.---. |
| 19b840 | 53 4c 49 4d 45 20 62 61 63 6b 65 6e 64 20 66 6f 72 20 53 42 43 4c 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 | SLIME.backend.for.SBCL..;;;.;;;. |
| 19b860 | 43 72 65 61 74 65 64 20 32 30 30 33 2c 20 44 61 6e 69 65 6c 20 42 61 72 6c 6f 77 20 3c 64 61 6e | Created.2003,.Daniel.Barlow.<dan |
| 19b880 | 40 6d 65 74 61 63 69 72 63 6c 65 73 2e 63 6f 6d 3e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 | @metacircles.com>.;;;.;;;.This.c |
| 19b8a0 | 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 | ode.has.been.placed.in.the.Publi |
| 19b8c0 | 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 20 61 72 65 0a 3b 3b | c.Domain...All.warranties.are.;; |
| 19b8e0 | 3b 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 0a 3b 3b 3b 20 52 65 71 75 69 72 65 73 20 74 68 65 20 | ;.disclaimed...;;;.Requires.the. |
| 19b900 | 53 42 2d 49 4e 54 52 4f 53 50 45 43 54 20 63 6f 6e 74 72 69 62 2e 0a 0a 3b 3b 3b 20 41 64 6d 69 | SB-INTROSPECT.contrib...;;;.Admi |
| 19b920 | 6e 69 73 74 72 69 76 69 61 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 73 62 63 | nistrivia..(defpackage.swank/sbc |
| 19b940 | 6c 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 20 73 77 61 6e 6b | l...(:use.cl.swank/backend.swank |
| 19b960 | 2f 73 6f 75 72 63 65 2d 70 61 74 68 2d 70 61 72 73 65 72 20 73 77 61 6e 6b 2f 73 6f 75 72 63 65 | /source-path-parser.swank/source |
| 19b980 | 2d 66 69 6c 65 2d 63 61 63 68 65 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b | -file-cache))..(in-package.swank |
| 19b9a0 | 2f 73 62 63 6c 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 | /sbcl)..(eval-when.(:compile-top |
| 19b9c0 | 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 | level.:load-toplevel.:execute).. |
| 19b9e0 | 20 28 72 65 71 75 69 72 65 20 27 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 29 0a 20 20 28 72 65 | .(require.'sb-bsd-sockets)...(re |
| 19ba00 | 71 75 69 72 65 20 27 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 29 0a 20 20 28 72 65 71 75 69 72 65 | quire.'sb-introspect)...(require |
| 19ba20 | 20 27 73 62 2d 70 6f 73 69 78 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 62 2d 63 6c 74 6c 32 | .'sb-posix)...(require.'sb-cltl2 |
| 19ba40 | 29 29 0a 0a 28 64 65 63 6c 61 69 6d 20 28 6f 70 74 69 6d 69 7a 65 20 28 64 65 62 75 67 20 32 29 | ))..(declaim.(optimize.(debug.2) |
| 19ba60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 63 3a 3a 69 6e 73 65 72 | ....................(sb-c::inser |
| 19ba80 | 74 2d 73 74 65 70 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 | t-step-conditions.0)............ |
| 19baa0 | 20 20 20 20 20 20 20 20 28 73 62 2d 63 3a 3a 69 6e 73 65 72 74 2d 64 65 62 75 67 2d 63 61 74 63 | ........(sb-c::insert-debug-catc |
| 19bac0 | 68 20 30 29 29 29 0a 0a 3b 3b 3b 20 62 61 63 6b 77 61 72 64 73 20 63 6f 6d 70 61 62 69 6c 69 74 | h.0)))..;;;.backwards.compabilit |
| 19bae0 | 79 20 74 65 73 74 73 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f | y.tests..(eval-when.(:compile-to |
| 19bb00 | 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a | plevel.:load-toplevel.:execute). |
| 19bb20 | 20 20 3b 3b 20 47 65 6e 65 72 61 74 65 20 61 20 66 6f 72 6d 20 73 75 69 74 61 62 6c 65 20 66 6f | ..;;.Generate.a.form.suitable.fo |
| 19bb40 | 72 20 74 65 73 74 69 6e 67 20 66 6f 72 20 73 74 65 70 70 65 72 20 73 75 70 70 6f 72 74 20 28 30 | r.testing.for.stepper.support.(0 |
| 19bb60 | 2e 39 2e 31 37 29 0a 20 20 3b 3b 20 77 69 74 68 20 23 2b 2e 0a 20 20 28 64 65 66 75 6e 20 73 62 | .9.17)...;;.with.#+....(defun.sb |
| 19bb80 | 63 6c 2d 77 69 74 68 2d 6e 65 77 2d 73 74 65 70 70 65 72 2d 70 20 28 29 0a 20 20 20 20 28 77 69 | cl-with-new-stepper-p.().....(wi |
| 19bba0 | 74 68 2d 73 79 6d 62 6f 6c 20 27 65 6e 61 62 6c 65 2d 73 74 65 70 70 69 6e 67 20 27 73 62 2d 69 | th-symbol.'enable-stepping.'sb-i |
| 19bbc0 | 6d 70 6c 29 29 0a 20 20 3b 3b 20 44 69 74 74 6f 20 66 6f 72 20 77 65 61 6b 20 68 61 73 68 2d 74 | mpl))...;;.Ditto.for.weak.hash-t |
| 19bbe0 | 61 62 6c 65 73 0a 20 20 28 64 65 66 75 6e 20 73 62 63 6c 2d 77 69 74 68 2d 77 65 61 6b 2d 68 61 | ables...(defun.sbcl-with-weak-ha |
| 19bc00 | 73 68 2d 74 61 62 6c 65 73 20 28 29 0a 20 20 20 20 28 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 68 | sh-tables.().....(with-symbol.'h |
| 19bc20 | 61 73 68 2d 74 61 62 6c 65 2d 77 65 61 6b 6e 65 73 73 20 27 73 62 2d 65 78 74 29 29 0a 20 20 3b | ash-table-weakness.'sb-ext))...; |
| 19bc40 | 3b 20 41 6e 64 20 66 6f 72 20 78 72 65 66 20 73 75 70 70 6f 72 74 20 28 31 2e 30 2e 31 29 0a 20 | ;.And.for.xref.support.(1.0.1).. |
| 19bc60 | 20 28 64 65 66 75 6e 20 73 62 63 6c 2d 77 69 74 68 2d 78 72 65 66 2d 70 20 28 29 0a 20 20 20 20 | .(defun.sbcl-with-xref-p.()..... |
| 19bc80 | 28 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 77 68 6f 2d 63 61 6c 6c 73 20 27 73 62 2d 69 6e 74 72 | (with-symbol.'who-calls.'sb-intr |
| 19bca0 | 6f 73 70 65 63 74 29 29 0a 20 20 3b 3b 20 2e 2e 2e 20 66 6f 72 20 72 65 73 74 61 72 74 2d 66 72 | ospect))...;;.....for.restart-fr |
| 19bcc0 | 61 6d 65 20 73 75 70 70 6f 72 74 20 28 31 2e 30 2e 32 29 0a 20 20 28 64 65 66 75 6e 20 73 62 63 | ame.support.(1.0.2)...(defun.sbc |
| 19bce0 | 6c 2d 77 69 74 68 2d 72 65 73 74 61 72 74 2d 66 72 61 6d 65 20 28 29 0a 20 20 20 20 28 77 69 74 | l-with-restart-frame.().....(wit |
| 19bd00 | 68 2d 73 79 6d 62 6f 6c 20 27 66 72 61 6d 65 2d 68 61 73 2d 64 65 62 75 67 2d 74 61 67 2d 70 20 | h-symbol.'frame-has-debug-tag-p. |
| 19bd20 | 27 73 62 2d 64 65 62 75 67 29 29 0a 20 20 3b 3b 20 2e 2e 2e 20 66 6f 72 20 3a 73 65 74 66 20 3a | 'sb-debug))...;;.....for.:setf.: |
| 19bd40 | 69 6e 76 65 72 73 65 20 69 6e 66 6f 20 28 31 2e 31 2e 31 37 29 0a 20 20 28 64 65 66 75 6e 20 73 | inverse.info.(1.1.17)...(defun.s |
| 19bd60 | 62 63 6c 2d 77 69 74 68 2d 73 65 74 66 2d 69 6e 76 65 72 73 65 2d 6d 65 74 61 2d 69 6e 66 6f 20 | bcl-with-setf-inverse-meta-info. |
| 19bd80 | 28 29 0a 20 20 20 20 28 62 6f 6f 6c 65 61 6e 2d 74 6f 2d 66 65 61 74 75 72 65 2d 65 78 70 72 65 | ().....(boolean-to-feature-expre |
| 19bda0 | 73 73 69 6f 6e 0a 20 20 20 20 20 3b 3b 20 67 6f 69 6e 67 20 74 68 72 6f 75 67 68 20 46 49 4e 44 | ssion......;;.going.through.FIND |
| 19bdc0 | 2d 53 59 4d 42 4f 4c 20 73 69 6e 63 65 20 4d 45 54 41 2d 49 4e 46 4f 20 77 61 73 20 72 65 6e 61 | -SYMBOL.since.META-INFO.was.rena |
| 19bde0 | 6d 65 64 20 66 72 6f 6d 0a 20 20 20 20 20 3b 3b 20 54 59 50 45 2d 49 4e 46 4f 20 69 6e 20 31 2e | med.from......;;.TYPE-INFO.in.1. |
| 19be00 | 32 2e 31 30 2e 0a 20 20 20 20 20 28 6c 65 74 20 28 28 73 79 6d 20 28 66 69 6e 64 2d 73 79 6d 62 | 2.10.......(let.((sym.(find-symb |
| 19be20 | 6f 6c 20 22 4d 45 54 41 2d 49 4e 46 4f 22 20 22 53 42 2d 43 22 29 29 29 0a 20 20 20 20 20 20 20 | ol."META-INFO"."SB-C")))........ |
| 19be40 | 28 61 6e 64 20 73 79 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 73 79 | (and.sym.............(fboundp.sy |
| 19be60 | 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 73 79 6d 20 3a 73 65 74 | m).............(funcall.sym.:set |
| 19be80 | 66 20 3a 69 6e 76 65 72 73 65 20 28 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 6d | f.:inverse.()))))))..;;;.swank-m |
| 19bea0 | 6f 70 0a 0a 28 69 6d 70 6f 72 74 2d 73 77 61 6e 6b 2d 6d 6f 70 2d 73 79 6d 62 6f 6c 73 20 3a 73 | op..(import-swank-mop-symbols.:s |
| 19bec0 | 62 2d 6d 6f 70 20 27 28 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e | b-mop.'(:slot-definition-documen |
| 19bee0 | 74 61 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d | tation))..(defun.swank-mop:slot- |
| 19bf00 | 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 28 73 6c 6f 74 29 0a | definition-documentation.(slot). |
| 19bf20 | 20 20 28 73 62 2d 70 63 6c 3a 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 6f 74 20 74 29 | ..(sb-pcl::documentation.slot.t) |
| 19bf40 | 29 0a 0a 3b 3b 20 73 74 72 65 61 6d 20 73 75 70 70 6f 72 74 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | )..;;.stream.support..(defimplem |
| 19bf60 | 65 6e 74 61 74 69 6f 6e 20 67 72 61 79 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 29 0a 20 20 | entation.gray-package-name.()... |
| 19bf80 | 22 53 42 2d 47 52 41 59 22 29 0a 0a 3b 3b 20 50 72 65 74 74 79 20 70 72 69 6e 74 65 72 20 63 61 | "SB-GRAY")..;;.Pretty.printer.ca |
| 19bfa0 | 6c 6c 73 20 74 68 69 73 2c 20 61 70 70 61 72 65 6e 74 6c 79 0a 28 64 65 66 6d 65 74 68 6f 64 20 | lls.this,.apparently.(defmethod. |
| 19bfc0 | 73 62 2d 67 72 61 79 3a 73 74 72 65 61 6d 2d 6c 69 6e 65 2d 6c 65 6e 67 74 68 0a 20 20 20 20 28 | sb-gray:stream-line-length.....( |
| 19bfe0 | 28 73 20 73 62 2d 67 72 61 79 3a 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 63 68 61 72 61 63 74 65 72 | (s.sb-gray:fundamental-character |
| 19c000 | 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 29 29 0a 20 20 6e 69 6c 29 0a 0a 3b 3b 3b 20 43 6f 6e 6e | -input-stream))...nil)..;;;.Conn |
| 19c020 | 65 63 74 69 6f 6e 20 69 6e 66 6f 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | ection.info..(defimplementation. |
| 19c040 | 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 20 28 29 | lisp-implementation-type-name.() |
| 19c060 | 0a 20 20 22 73 62 63 6c 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 | ..."sbcl")..(defimplementation.g |
| 19c080 | 65 74 70 69 64 20 28 29 0a 20 20 28 73 62 2d 70 6f 73 69 78 3a 67 65 74 70 69 64 29 29 0a 0a 3b | etpid.()...(sb-posix:getpid))..; |
| 19c0a0 | 3b 3b 20 55 54 46 38 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 | ;;.UTF8..(defimplementation.stri |
| 19c0c0 | 6e 67 2d 74 6f 2d 75 74 66 38 20 28 73 74 72 69 6e 67 29 0a 20 20 28 73 62 2d 65 78 74 3a 73 74 | ng-to-utf8.(string)...(sb-ext:st |
| 19c0e0 | 72 69 6e 67 2d 74 6f 2d 6f 63 74 65 74 73 20 73 74 72 69 6e 67 20 3a 65 78 74 65 72 6e 61 6c 2d | ring-to-octets.string.:external- |
| 19c100 | 66 6f 72 6d 61 74 20 27 28 3a 75 74 66 38 20 3a 72 65 70 6c 61 63 65 6d 65 6e 74 0a 20 20 20 20 | format.'(:utf8.:replacement..... |
| 19c120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 19c140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 73 62 2d 75 6e 69 63 6f 64 65 20 23 5c | .................#+sb-unicode.#\ |
| 19c160 | 52 65 70 6c 61 63 65 6d 65 6e 74 5f 43 68 61 72 61 63 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 | Replacement_Character........... |
| 19c180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 19c1a0 | 20 20 20 20 20 20 20 20 20 20 20 23 2d 73 62 2d 75 6e 69 63 6f 64 65 20 23 5c 3f 20 29 29 29 0a | ...........#-sb-unicode.#\?.))). |
| 19c1c0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 74 66 38 2d 74 6f 2d 73 74 72 69 | .(defimplementation.utf8-to-stri |
| 19c1e0 | 6e 67 20 28 6f 63 74 65 74 73 29 0a 20 20 28 73 62 2d 65 78 74 3a 6f 63 74 65 74 73 2d 74 6f 2d | ng.(octets)...(sb-ext:octets-to- |
| 19c200 | 73 74 72 69 6e 67 20 6f 63 74 65 74 73 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 27 | string.octets.:external-format.' |
| 19c220 | 28 3a 75 74 66 38 20 3a 72 65 70 6c 61 63 65 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (:utf8.:replacement............. |
| 19c240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 19c260 | 20 20 20 20 20 20 20 20 20 23 2b 73 62 2d 75 6e 69 63 6f 64 65 20 23 5c 52 65 70 6c 61 63 65 6d | .........#+sb-unicode.#\Replacem |
| 19c280 | 65 6e 74 5f 43 68 61 72 61 63 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ent_Character................... |
| 19c2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 19c2c0 | 20 20 20 23 2d 73 62 2d 75 6e 69 63 6f 64 65 20 23 5c 3f 20 29 29 29 0a 0a 3b 3b 3b 20 54 43 50 | ...#-sb-unicode.#\?.)))..;;;.TCP |
| 19c2e0 | 20 53 65 72 76 65 72 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 65 66 | .Server..(defimplementation.pref |
| 19c300 | 65 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 28 29 0a 20 20 28 | erred-communication-style.()...( |
| 19c320 | 63 6f 6e 64 0a 20 20 20 20 3b 3b 20 66 69 78 6d 65 3a 20 77 68 65 6e 20 53 42 43 4c 2f 77 69 6e | cond.....;;.fixme:.when.SBCL/win |
| 19c340 | 33 32 20 67 61 69 6e 73 20 62 65 74 74 65 72 20 73 65 6c 65 63 74 28 29 20 73 75 70 70 6f 72 74 | 32.gains.better.select().support |
| 19c360 | 2c 20 72 65 6d 6f 76 65 0a 20 20 20 20 3b 3b 20 74 68 69 73 2e 0a 20 20 20 20 28 28 6d 65 6d 62 | ,.remove.....;;.this......((memb |
| 19c380 | 65 72 20 3a 73 62 2d 74 68 72 65 61 64 20 2a 66 65 61 74 75 72 65 73 2a 29 20 3a 73 70 61 77 6e | er.:sb-thread.*features*).:spawn |
| 19c3a0 | 29 0a 20 20 20 20 28 28 6d 65 6d 62 65 72 20 3a 77 69 6e 33 32 20 2a 66 65 61 74 75 72 65 73 2a | ).....((member.:win32.*features* |
| 19c3c0 | 29 20 6e 69 6c 29 0a 20 20 20 20 28 74 20 3a 66 64 2d 68 61 6e 64 6c 65 72 29 29 29 0a 0a 0a 28 | ).nil).....(t.:fd-handler)))...( |
| 19c3e0 | 64 65 66 75 6e 20 72 65 73 6f 6c 76 65 2d 68 6f 73 74 6e 61 6d 65 20 28 68 6f 73 74 29 0a 20 20 | defun.resolve-hostname.(host)... |
| 19c400 | 22 52 65 74 75 72 6e 73 20 76 61 6c 69 64 20 49 50 76 34 20 6f 72 20 49 50 76 36 20 61 64 64 72 | "Returns.valid.IPv4.or.IPv6.addr |
| 19c420 | 65 73 73 20 66 6f 72 20 74 68 65 20 68 6f 73 74 2e 22 0a 20 20 3b 3b 20 67 65 74 20 61 6c 6c 20 | ess.for.the.host."...;;.get.all. |
| 19c440 | 49 50 76 34 20 61 6e 64 20 49 50 76 36 20 61 64 64 72 65 73 73 65 73 20 61 73 20 61 20 6c 69 73 | IPv4.and.IPv6.addresses.as.a.lis |
| 19c460 | 74 0a 20 20 28 6c 65 74 2a 20 28 28 68 6f 73 74 2d 65 6e 74 73 20 28 6d 75 6c 74 69 70 6c 65 2d | t...(let*.((host-ents.(multiple- |
| 19c480 | 76 61 6c 75 65 2d 6c 69 73 74 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 67 65 74 2d 68 | value-list.(sb-bsd-sockets:get-h |
| 19c4a0 | 6f 73 74 2d 62 79 2d 6e 61 6d 65 20 68 6f 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 | ost-by-name.host)))..........;;. |
| 19c4c0 | 72 65 6d 6f 76 65 20 70 72 6f 74 6f 63 6f 6c 73 20 66 6f 72 20 77 68 69 63 68 20 77 65 20 64 6f | remove.protocols.for.which.we.do |
| 19c4e0 | 6e 27 74 20 68 61 76 65 20 61 6e 20 61 64 64 72 65 73 73 0a 20 20 20 20 20 20 20 20 20 28 61 64 | n't.have.an.address..........(ad |
| 19c500 | 64 72 65 73 73 65 73 20 28 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 27 73 62 2d 62 73 64 2d | dresses.(remove-if-not.#'sb-bsd- |
| 19c520 | 73 6f 63 6b 65 74 73 3a 68 6f 73 74 2d 65 6e 74 2d 61 64 64 72 65 73 73 20 68 6f 73 74 2d 65 6e | sockets:host-ent-address.host-en |
| 19c540 | 74 73 29 29 29 0a 20 20 20 20 3b 3b 20 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 6f 6e | ts))).....;;.Return.the.first.on |
| 19c560 | 65 20 6f 72 20 6e 69 6c 2c 0a 20 20 20 20 3b 3b 20 62 75 74 20 61 63 74 75 61 6c 6c 79 2c 20 69 | e.or.nil,.....;;.but.actually,.i |
| 19c580 | 74 20 73 68 6f 75 6c 6e 27 74 20 72 65 74 75 72 6e 20 6e 69 6c 2c 20 62 65 63 61 75 73 65 0a 20 | t.shouln't.return.nil,.because.. |
| 19c5a0 | 20 20 20 3b 3b 20 67 65 74 2d 68 6f 73 74 2d 62 79 2d 6e 61 6d 65 20 77 69 6c 6c 20 73 69 67 6e | ...;;.get-host-by-name.will.sign |
| 19c5c0 | 61 6c 20 4e 41 4d 45 2d 53 45 52 56 49 43 45 2d 45 52 52 4f 52 20 63 6f 6e 64 69 74 69 6f 6e 0a | al.NAME-SERVICE-ERROR.condition. |
| 19c5e0 | 20 20 20 20 3b 3b 20 69 66 20 74 68 65 72 65 20 69 73 6e 27 74 20 61 6e 79 20 61 64 64 72 65 73 | ....;;.if.there.isn't.any.addres |
| 19c600 | 73 20 66 6f 72 20 74 68 65 20 68 6f 73 74 2e 0a 20 20 20 20 28 66 69 72 73 74 20 61 64 64 72 65 | s.for.the.host......(first.addre |
| 19c620 | 73 73 65 73 29 29 29 0a 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 | sses)))...(defimplementation.cre |
| 19c640 | 61 74 65 2d 73 6f 63 6b 65 74 20 28 68 6f 73 74 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c | ate-socket.(host.port.&key.backl |
| 19c660 | 6f 67 29 0a 20 20 28 6c 65 74 2a 20 28 28 68 6f 73 74 2d 65 6e 74 20 28 72 65 73 6f 6c 76 65 2d | og)...(let*.((host-ent.(resolve- |
| 19c680 | 68 6f 73 74 6e 61 6d 65 20 68 6f 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 6f 63 6b 65 74 | hostname.host))..........(socket |
| 19c6a0 | 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 28 63 6f 6e 64 20 23 2b 23 2e 28 73 77 61 6e 6b | .(make-instance.(cond.#+#.(swank |
| 19c6c0 | 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 69 6e 65 74 36 2d 73 6f 63 6b | /backend:with-symbol.'inet6-sock |
| 19c6e0 | 65 74 20 27 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | et.'sb-bsd-sockets)............. |
| 19c700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 6c 20 | ..........................((eql. |
| 19c720 | 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 68 6f 73 74 2d 65 6e 74 2d 61 64 64 72 65 73 73 | (sb-bsd-sockets:host-ent-address |
| 19c740 | 2d 74 79 70 65 20 68 6f 73 74 2d 65 6e 74 29 20 31 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -type.host-ent).10)............. |
| 19c760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 62 2d 62 | ...........................'sb-b |
| 19c780 | 73 64 2d 73 6f 63 6b 65 74 73 3a 69 6e 65 74 36 2d 73 6f 63 6b 65 74 29 0a 20 20 20 20 20 20 20 | sd-sockets:inet6-socket)........ |
| 19c7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 19c7c0 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t............................... |
| 19c7e0 | 20 20 20 20 20 20 20 20 20 27 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 69 6e 65 74 2d 73 6f | .........'sb-bsd-sockets:inet-so |
| 19c800 | 63 6b 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cket)).......................... |
| 19c820 | 20 20 20 20 20 20 20 3a 74 79 70 65 20 3a 73 74 72 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 | .......:type.:stream............ |
| 19c840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 6f 74 6f 63 6f 6c 20 3a | .....................:protocol.: |
| 19c860 | 74 63 70 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 | tcp))).....(setf.(sb-bsd-sockets |
| 19c880 | 3a 73 6f 63 6b 6f 70 74 2d 72 65 75 73 65 2d 61 64 64 72 65 73 73 20 73 6f 63 6b 65 74 29 20 74 | :sockopt-reuse-address.socket).t |
| 19c8a0 | 29 0a 20 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 62 69 6e | ).....(sb-bsd-sockets:socket-bin |
| 19c8c0 | 64 20 73 6f 63 6b 65 74 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 68 6f 73 74 2d 65 6e | d.socket.(sb-bsd-sockets:host-en |
| 19c8e0 | 74 2d 61 64 64 72 65 73 73 20 68 6f 73 74 2d 65 6e 74 29 20 70 6f 72 74 29 0a 0a 20 20 20 20 28 | t-address.host-ent).port)......( |
| 19c900 | 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 6c 69 73 74 65 6e 20 73 6f 63 | sb-bsd-sockets:socket-listen.soc |
| 19c920 | 6b 65 74 20 28 6f 72 20 62 61 63 6b 6c 6f 67 20 35 29 29 0a 20 20 20 20 73 6f 63 6b 65 74 29 29 | ket.(or.backlog.5)).....socket)) |
| 19c940 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 63 61 6c 2d 70 6f 72 74 20 | ..(defimplementation.local-port. |
| 19c960 | 28 73 6f 63 6b 65 74 29 0a 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 31 20 28 73 62 2d 62 73 64 2d | (socket)...(nth-value.1.(sb-bsd- |
| 19c980 | 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 6e 61 6d 65 20 73 6f 63 6b 65 74 29 29 29 0a 0a 28 | sockets:socket-name.socket)))..( |
| 19c9a0 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 28 | defimplementation.close-socket.( |
| 19c9c0 | 73 6f 63 6b 65 74 29 0a 20 20 28 73 62 2d 73 79 73 3a 69 6e 76 61 6c 69 64 61 74 65 2d 64 65 73 | socket)...(sb-sys:invalidate-des |
| 19c9e0 | 63 72 69 70 74 6f 72 20 28 73 6f 63 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 29 0a 20 20 28 73 | criptor.(socket-fd.socket))...(s |
| 19ca00 | 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 63 6c 6f 73 65 20 73 6f 63 6b 65 | b-bsd-sockets:socket-close.socke |
| 19ca20 | 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 63 63 65 70 74 2d 63 | t))..(defimplementation.accept-c |
| 19ca40 | 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6f 63 6b 65 74 20 26 6b 65 79 0a 20 20 20 20 20 20 20 20 20 | onnection.(socket.&key.......... |
| 19ca60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 74 | .............................ext |
| 19ca80 | 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ernal-format.................... |
| 19caa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 69 6e 67 20 74 69 6d | ...................buffering.tim |
| 19cac0 | 65 6f 75 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 74 69 6d 65 6f 75 74 | eout)...(declare.(ignore.timeout |
| 19cae0 | 29 29 0a 20 20 28 6d 61 6b 65 2d 73 6f 63 6b 65 74 2d 69 6f 2d 73 74 72 65 61 6d 20 28 61 63 63 | ))...(make-socket-io-stream.(acc |
| 19cb00 | 65 70 74 20 73 6f 63 6b 65 74 29 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 | ept.socket).external-format..... |
| 19cb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 62 75 66 66 | .....................(ecase.buff |
| 19cb40 | 65 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ering........................... |
| 19cb60 | 20 28 28 74 20 3a 66 75 6c 6c 29 20 3a 66 75 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .((t.:full).:full).............. |
| 19cb80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 69 6c 20 3a 6e 6f 6e 65 29 20 3a 6e 6f 6e 65 | ..............((nil.:none).:none |
| 19cba0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a | )............................((: |
| 19cbc0 | 6c 69 6e 65 29 20 3a 6c 69 6e 65 29 29 29 29 0a 0a 0c 0a 3b 3b 20 54 68 65 20 53 49 47 49 4f 20 | line).:line))))....;;.The.SIGIO. |
| 19cbe0 | 73 74 75 66 66 20 73 68 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 62 65 20 72 65 6d 6f 76 65 64 | stuff.should.probably.be.removed |
| 19cc00 | 20 61 73 20 69 74 27 73 20 75 6e 6c 69 6b 65 79 20 74 68 61 74 0a 3b 3b 20 61 6e 79 62 6f 64 79 | .as.it's.unlikey.that.;;.anybody |
| 19cc20 | 20 75 73 65 73 20 69 74 2e 0a 23 2d 28 6f 72 20 77 69 6e 33 32 20 68 61 69 6b 75 29 0a 28 70 72 | .uses.it..#-(or.win32.haiku).(pr |
| 19cc40 | 6f 67 6e 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 73 74 61 6c 6c | ogn...(defimplementation.install |
| 19cc60 | 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 28 | -sigint-handler.(function).....( |
| 19cc80 | 73 62 2d 73 79 73 3a 65 6e 61 62 6c 65 2d 69 6e 74 65 72 72 75 70 74 20 73 62 2d 75 6e 69 78 3a | sb-sys:enable-interrupt.sb-unix: |
| 19cca0 | 73 69 67 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sigint.......................... |
| 19ccc0 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 | ....(lambda.(&rest.args)........ |
| 19cce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 | ........................(declare |
| 19cd00 | 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(ignore.args))................. |
| 19cd20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 73 79 73 3a 69 6e 76 6f 6b 65 2d 69 6e | ...............(sb-sys:invoke-in |
| 19cd40 | 74 65 72 72 75 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | terruption...................... |
| 19cd60 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 | ...........(lambda.()........... |
| 19cd80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 73 79 73 3a | ........................(sb-sys: |
| 19cda0 | 77 69 74 68 2d 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | with-interrupts................. |
| 19cdc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e | ....................(funcall.fun |
| 19cde0 | 63 74 69 6f 6e 29 29 29 29 29 29 29 0a 0a 20 20 28 64 65 66 76 61 72 20 2a 73 69 67 69 6f 2d 68 | ction)))))))....(defvar.*sigio-h |
| 19ce00 | 61 6e 64 6c 65 72 73 2a 20 27 28 29 0a 20 20 20 20 22 4c 69 73 74 20 6f 66 20 28 6b 65 79 20 2e | andlers*.'()....."List.of.(key.. |
| 19ce20 | 20 66 6e 29 20 70 61 69 72 73 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 6f 6e 20 53 49 47 49 4f | .fn).pairs.to.be.called.on.SIGIO |
| 19ce40 | 2e 22 29 0a 0a 20 20 28 64 65 66 75 6e 20 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 20 28 73 69 67 | .")....(defun.sigio-handler.(sig |
| 19ce60 | 6e 61 6c 20 63 6f 64 65 20 73 63 70 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f | nal.code.scp).....(declare.(igno |
| 19ce80 | 72 65 20 73 69 67 6e 61 6c 20 63 6f 64 65 20 73 63 70 29 29 0a 20 20 20 20 28 73 62 2d 73 79 73 | re.signal.code.scp)).....(sb-sys |
| 19cea0 | 3a 77 69 74 68 2d 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 20 20 28 6d 61 70 63 20 28 6c 61 | :with-interrupts.......(mapc.(la |
| 19cec0 | 6d 62 64 61 20 28 68 61 6e 64 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 | mbda.(handler)...............(fu |
| 19cee0 | 6e 63 61 6c 6c 20 28 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 28 63 64 72 20 68 61 6e 64 6c 65 72 | ncall.(the.function.(cdr.handler |
| 19cf00 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 | )))).............*sigio-handlers |
| 19cf20 | 2a 29 29 29 0a 0a 20 20 28 64 65 66 75 6e 20 73 65 74 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 | *)))....(defun.set-sigio-handler |
| 19cf40 | 20 28 29 0a 20 20 20 20 28 73 62 2d 73 79 73 3a 65 6e 61 62 6c 65 2d 69 6e 74 65 72 72 75 70 74 | .().....(sb-sys:enable-interrupt |
| 19cf60 | 20 73 62 2d 75 6e 69 78 3a 73 69 67 69 6f 20 23 27 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 29 29 | .sb-unix:sigio.#'sigio-handler)) |
| 19cf80 | 0a 0a 20 20 28 64 65 66 75 6e 20 65 6e 61 62 6c 65 2d 73 69 67 69 6f 2d 6f 6e 2d 66 64 20 28 66 | ....(defun.enable-sigio-on-fd.(f |
| 19cfa0 | 64 29 0a 20 20 20 20 28 73 62 2d 70 6f 73 69 78 3a 3a 66 63 6e 74 6c 20 66 64 20 73 62 2d 70 6f | d).....(sb-posix::fcntl.fd.sb-po |
| 19cfc0 | 73 69 78 3a 3a 66 2d 73 65 74 66 6c 20 73 62 2d 70 6f 73 69 78 3a 3a 6f 2d 61 73 79 6e 63 29 0a | six::f-setfl.sb-posix::o-async). |
| 19cfe0 | 20 20 20 20 28 73 62 2d 70 6f 73 69 78 3a 3a 66 63 6e 74 6c 20 66 64 20 73 62 2d 70 6f 73 69 78 | ....(sb-posix::fcntl.fd.sb-posix |
| 19d000 | 3a 3a 66 2d 73 65 74 6f 77 6e 20 28 67 65 74 70 69 64 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 | ::f-setown.(getpid)).....(values |
| 19d020 | 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 64 64 2d 73 69 67 | ))....(defimplementation.add-sig |
| 19d040 | 69 6f 2d 68 61 6e 64 6c 65 72 20 28 73 6f 63 6b 65 74 20 66 6e 29 0a 20 20 20 20 28 73 65 74 2d | io-handler.(socket.fn).....(set- |
| 19d060 | 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 64 20 28 73 6f | sigio-handler).....(let.((fd.(so |
| 19d080 | 63 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 0a 20 20 20 20 20 20 28 65 6e 61 62 6c 65 2d | cket-fd.socket))).......(enable- |
| 19d0a0 | 73 69 67 69 6f 2d 6f 6e 2d 66 64 20 66 64 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e | sigio-on-fd.fd).......(push.(con |
| 19d0c0 | 73 20 66 64 20 66 6e 29 20 2a 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 2a 29 29 29 0a 0a 20 20 | s.fd.fn).*sigio-handlers*))).... |
| 19d0e0 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 6d 6f 76 65 2d 73 69 67 69 6f 2d | (defimplementation.remove-sigio- |
| 19d100 | 68 61 6e 64 6c 65 72 73 20 28 73 6f 63 6b 65 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 64 20 | handlers.(socket).....(let.((fd. |
| 19d120 | 28 73 6f 63 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 | (socket-fd.socket))).......(setf |
| 19d140 | 20 2a 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 2a 20 28 64 65 6c 65 74 65 20 66 64 20 2a 73 69 | .*sigio-handlers*.(delete.fd.*si |
| 19d160 | 67 69 6f 2d 68 61 6e 64 6c 65 72 73 2a 20 3a 6b 65 79 20 23 27 63 61 72 29 29 0a 20 20 20 20 20 | gio-handlers*.:key.#'car))...... |
| 19d180 | 20 28 73 62 2d 73 79 73 3a 69 6e 76 61 6c 69 64 61 74 65 2d 64 65 73 63 72 69 70 74 6f 72 20 66 | .(sb-sys:invalidate-descriptor.f |
| 19d1a0 | 64 29 29 0a 20 20 20 20 28 63 6c 6f 73 65 20 73 6f 63 6b 65 74 29 29 29 0a 0a 0c 0a 28 64 65 66 | d)).....(close.socket)))....(def |
| 19d1c0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 64 64 2d 66 64 2d 68 61 6e 64 6c 65 72 20 28 73 | implementation.add-fd-handler.(s |
| 19d1e0 | 6f 63 6b 65 74 20 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 66 64 20 28 73 6f 63 6b 65 74 2d 66 | ocket.fun)...(let.((fd.(socket-f |
| 19d200 | 64 20 73 6f 63 6b 65 74 29 29 0a 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 20 6e 69 6c 29 | d.socket)).........(handler.nil) |
| 19d220 | 29 0a 20 20 20 20 28 6c 61 62 65 6c 73 20 28 28 61 64 64 20 28 29 0a 20 20 20 20 20 20 20 20 20 | ).....(labels.((add.().......... |
| 19d240 | 20 20 20 20 20 20 28 73 65 74 71 20 68 61 6e 64 6c 65 72 20 28 73 62 2d 73 79 73 3a 61 64 64 2d | ......(setq.handler.(sb-sys:add- |
| 19d260 | 66 64 2d 68 61 6e 64 6c 65 72 20 66 64 20 3a 69 6e 70 75 74 20 23 27 72 75 6e 29 29 29 0a 20 20 | fd-handler.fd.:input.#'run)))... |
| 19d280 | 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 20 28 66 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ...........(run.(fd)............ |
| 19d2a0 | 20 20 20 20 28 73 62 2d 73 79 73 3a 72 65 6d 6f 76 65 2d 66 64 2d 68 61 6e 64 6c 65 72 20 68 61 | ....(sb-sys:remove-fd-handler.ha |
| 19d2c0 | 6e 64 6c 65 72 29 20 3b 20 70 72 65 76 65 6e 74 20 72 65 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 | ndler).;.prevent.recursion...... |
| 19d2e0 | 20 20 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 | ..........(unwind-protect....... |
| 19d300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 29 0a 20 20 20 20 | ..............(funcall.fun)..... |
| 19d320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 62 2d 75 6e 69 78 3a 75 6e 69 78 | .............(when.(sb-unix:unix |
| 19d340 | 2d 66 73 74 61 74 20 66 64 29 20 3b 20 73 74 69 6c 6c 20 6f 70 65 6e 3f 0a 20 20 20 20 20 20 20 | -fstat.fd).;.still.open?........ |
| 19d360 | 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 29 29 29 29 29 0a 20 20 20 20 20 20 28 61 64 64 | ............(add))))).......(add |
| 19d380 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 6d 6f 76 65 2d | ))))..(defimplementation.remove- |
| 19d3a0 | 66 64 2d 68 61 6e 64 6c 65 72 73 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 73 62 2d 73 79 73 3a 69 | fd-handlers.(socket)...(sb-sys:i |
| 19d3c0 | 6e 76 61 6c 69 64 61 74 65 2d 64 65 73 63 72 69 70 74 6f 72 20 28 73 6f 63 6b 65 74 2d 66 64 20 | nvalidate-descriptor.(socket-fd. |
| 19d3e0 | 73 6f 63 6b 65 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 6f | socket)))..(defimplementation.so |
| 19d400 | 63 6b 65 74 2d 66 64 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 73 6f | cket-fd.(socket)...(etypecase.so |
| 19d420 | 63 6b 65 74 0a 20 20 20 20 28 66 69 78 6e 75 6d 20 73 6f 63 6b 65 74 29 0a 20 20 20 20 28 73 62 | cket.....(fixnum.socket).....(sb |
| 19d440 | 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b | -bsd-sockets:socket.(sb-bsd-sock |
| 19d460 | 65 74 73 3a 73 6f 63 6b 65 74 2d 66 69 6c 65 2d 64 65 73 63 72 69 70 74 6f 72 20 73 6f 63 6b 65 | ets:socket-file-descriptor.socke |
| 19d480 | 74 29 29 0a 20 20 20 20 28 66 69 6c 65 2d 73 74 72 65 61 6d 20 28 73 62 2d 73 79 73 3a 66 64 2d | t)).....(file-stream.(sb-sys:fd- |
| 19d4a0 | 73 74 72 65 61 6d 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | stream-fd.socket))))..(defimplem |
| 19d4c0 | 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 20 28 29 0a 20 20 | entation.command-line-args.()... |
| 19d4e0 | 73 62 2d 65 78 74 3a 2a 70 6f 73 69 78 2d 61 72 67 76 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | sb-ext:*posix-argv*)..(defimplem |
| 19d500 | 65 6e 74 61 74 69 6f 6e 20 64 75 70 20 28 66 64 29 0a 20 20 28 73 62 2d 70 6f 73 69 78 3a 64 75 | entation.dup.(fd)...(sb-posix:du |
| 19d520 | 70 20 66 64 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 2d | p.fd))..(defvar.*wait-for-input- |
| 19d540 | 63 61 6c 6c 65 64 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 61 69 | called*)..(defimplementation.wai |
| 19d560 | 74 2d 66 6f 72 2d 69 6e 70 75 74 20 28 73 74 72 65 61 6d 73 20 26 6f 70 74 69 6f 6e 61 6c 20 74 | t-for-input.(streams.&optional.t |
| 19d580 | 69 6d 65 6f 75 74 29 0a 20 20 28 61 73 73 65 72 74 20 28 6d 65 6d 62 65 72 20 74 69 6d 65 6f 75 | imeout)...(assert.(member.timeou |
| 19d5a0 | 74 20 27 28 6e 69 6c 20 74 29 29 29 0a 20 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 27 2a 77 | t.'(nil.t)))...(when.(boundp.'*w |
| 19d5c0 | 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 2d 63 61 6c 6c 65 64 2a 29 0a 20 20 20 20 28 73 65 74 71 | ait-for-input-called*).....(setq |
| 19d5e0 | 20 2a 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 2d 63 61 6c 6c 65 64 2a 20 74 29 29 0a 20 20 28 | .*wait-for-input-called*.t))...( |
| 19d600 | 6c 65 74 20 28 28 2a 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 2d 63 61 6c 6c 65 64 2a 20 6e 69 | let.((*wait-for-input-called*.ni |
| 19d620 | 6c 29 29 0a 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 61 64 79 | l)).....(loop.......(let.((ready |
| 19d640 | 20 28 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 27 69 6e 70 75 74 2d 72 65 61 64 79 2d 70 20 | .(remove-if-not.#'input-ready-p. |
| 19d660 | 73 74 72 65 61 6d 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 61 64 79 20 28 | streams))).........(when.ready.( |
| 19d680 | 72 65 74 75 72 6e 20 72 65 61 64 79 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 68 65 | return.ready))).......(when.(che |
| 19d6a0 | 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 20 20 20 20 28 72 65 | ck-slime-interrupts).........(re |
| 19d6c0 | 74 75 72 6e 20 3a 69 6e 74 65 72 72 75 70 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 2a 77 | turn.:interrupt)).......(when.*w |
| 19d6e0 | 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 2d 63 61 6c 6c 65 64 2a 0a 20 20 20 20 20 20 20 20 28 72 | ait-for-input-called*.........(r |
| 19d700 | 65 74 75 72 6e 20 3a 69 6e 74 65 72 72 75 70 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 74 | eturn.:interrupt)).......(when.t |
| 19d720 | 69 6d 65 6f 75 74 0a 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 6e 69 6c 29 29 0a 20 20 20 | imeout.........(return.nil)).... |
| 19d740 | 20 20 20 28 73 6c 65 65 70 20 30 2e 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 64 2d 73 74 72 | ...(sleep.0.1))))..(defun.fd-str |
| 19d760 | 65 61 6d 2d 69 6e 70 75 74 2d 62 75 66 66 65 72 2d 65 6d 70 74 79 2d 70 20 28 73 74 72 65 61 6d | eam-input-buffer-empty-p.(stream |
| 19d780 | 29 0a 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 73 62 2d 69 6d 70 6c 3a 3a 66 64 2d 73 | )...(let.((buffer.(sb-impl::fd-s |
| 19d7a0 | 74 72 65 61 6d 2d 69 62 75 66 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 28 6f 72 20 28 6e 6f | tream-ibuf.stream))).....(or.(no |
| 19d7c0 | 74 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 28 3d 20 28 73 62 2d 69 6d 70 6c 3a 3a 62 | t.buffer).........(=.(sb-impl::b |
| 19d7e0 | 75 66 66 65 72 2d 68 65 61 64 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 | uffer-head.buffer)............(s |
| 19d800 | 62 2d 69 6d 70 6c 3a 3a 62 75 66 66 65 72 2d 74 61 69 6c 20 62 75 66 66 65 72 29 29 29 29 29 0a | b-impl::buffer-tail.buffer))))). |
| 19d820 | 0a 23 2d 77 69 6e 33 32 0a 28 64 65 66 75 6e 20 69 6e 70 75 74 2d 72 65 61 64 79 2d 70 20 28 73 | .#-win32.(defun.input-ready-p.(s |
| 19d840 | 74 72 65 61 6d 29 0a 20 20 28 6f 72 20 28 6e 6f 74 20 28 66 64 2d 73 74 72 65 61 6d 2d 69 6e 70 | tream)...(or.(not.(fd-stream-inp |
| 19d860 | 75 74 2d 62 75 66 66 65 72 2d 65 6d 70 74 79 2d 70 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 | ut-buffer-empty-p.stream))...... |
| 19d880 | 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 | .#+#.(swank/backend:with-symbol. |
| 19d8a0 | 27 66 64 2d 73 74 72 65 61 6d 2d 66 64 2d 74 79 70 65 20 27 73 62 2d 69 6d 70 6c 29 0a 20 20 20 | 'fd-stream-fd-type.'sb-impl).... |
| 19d8c0 | 20 20 20 28 65 71 20 3a 72 65 67 75 6c 61 72 20 28 73 62 2d 69 6d 70 6c 3a 3a 66 64 2d 73 74 72 | ...(eq.:regular.(sb-impl::fd-str |
| 19d8e0 | 65 61 6d 2d 66 64 2d 74 79 70 65 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 28 6e 6f 74 20 | eam-fd-type.stream)).......(not. |
| 19d900 | 28 73 62 2d 69 6d 70 6c 3a 3a 73 79 73 72 65 61 64 2d 6d 61 79 2d 62 6c 6f 63 6b 2d 70 20 73 74 | (sb-impl::sysread-may-block-p.st |
| 19d920 | 72 65 61 6d 29 29 29 29 0a 0a 23 2b 77 69 6e 33 32 0a 28 70 72 6f 67 6e 0a 20 20 28 64 65 66 75 | ream))))..#+win32.(progn...(defu |
| 19d940 | 6e 20 69 6e 70 75 74 2d 72 65 61 64 79 2d 70 20 28 73 74 72 65 61 6d 29 0a 20 20 20 20 28 6f 72 | n.input-ready-p.(stream).....(or |
| 19d960 | 20 28 6e 6f 74 20 28 66 64 2d 73 74 72 65 61 6d 2d 69 6e 70 75 74 2d 62 75 66 66 65 72 2d 65 6d | .(not.(fd-stream-input-buffer-em |
| 19d980 | 70 74 79 2d 70 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 2d 6c | pty-p.stream)).........(handle-l |
| 19d9a0 | 69 73 74 65 6e 20 28 73 6f 63 6b 69 6e 74 3a 3a 66 64 2d 3e 68 61 6e 64 6c 65 20 28 73 62 2d 69 | isten.(sockint::fd->handle.(sb-i |
| 19d9c0 | 6d 70 6c 3a 3a 66 64 2d 73 74 72 65 61 6d 2d 66 64 20 73 74 72 65 61 6d 29 29 29 29 29 0a 0a 20 | mpl::fd-stream-fd.stream)))))... |
| 19d9e0 | 20 28 73 62 2d 61 6c 69 65 6e 3a 64 65 66 69 6e 65 2d 61 6c 69 65 6e 2d 72 6f 75 74 69 6e 65 20 | .(sb-alien:define-alien-routine. |
| 19da00 | 28 22 57 53 41 43 72 65 61 74 65 45 76 65 6e 74 22 20 77 73 61 2d 63 72 65 61 74 65 2d 65 76 65 | ("WSACreateEvent".wsa-create-eve |
| 19da20 | 6e 74 29 0a 20 20 20 20 20 20 73 62 2d 77 69 6e 33 32 3a 68 61 6e 64 6c 65 29 0a 0a 20 20 28 73 | nt).......sb-win32:handle)....(s |
| 19da40 | 62 2d 61 6c 69 65 6e 3a 64 65 66 69 6e 65 2d 61 6c 69 65 6e 2d 72 6f 75 74 69 6e 65 20 28 22 57 | b-alien:define-alien-routine.("W |
| 19da60 | 53 41 43 6c 6f 73 65 45 76 65 6e 74 22 20 77 73 61 2d 63 6c 6f 73 65 2d 65 76 65 6e 74 29 0a 20 | SACloseEvent".wsa-close-event).. |
| 19da80 | 20 20 20 20 20 73 62 2d 61 6c 69 65 6e 3a 69 6e 74 0a 20 20 20 20 28 65 76 65 6e 74 20 73 62 2d | .....sb-alien:int.....(event.sb- |
| 19daa0 | 77 69 6e 33 32 3a 68 61 6e 64 6c 65 29 29 0a 0a 20 20 28 64 65 66 63 6f 6e 73 74 61 6e 74 20 2b | win32:handle))....(defconstant.+ |
| 19dac0 | 66 64 2d 72 65 61 64 2b 20 23 2e 28 61 73 68 20 31 20 30 29 29 0a 20 20 28 64 65 66 63 6f 6e 73 | fd-read+.#.(ash.1.0))...(defcons |
| 19dae0 | 74 61 6e 74 20 2b 66 64 2d 63 6c 6f 73 65 2b 20 23 2e 28 61 73 68 20 31 20 35 29 29 0a 0a 20 20 | tant.+fd-close+.#.(ash.1.5)).... |
| 19db00 | 28 73 62 2d 61 6c 69 65 6e 3a 64 65 66 69 6e 65 2d 61 6c 69 65 6e 2d 72 6f 75 74 69 6e 65 20 28 | (sb-alien:define-alien-routine.( |
| 19db20 | 22 57 53 41 45 76 65 6e 74 53 65 6c 65 63 74 22 20 77 73 61 2d 65 76 65 6e 74 2d 73 65 6c 65 63 | "WSAEventSelect".wsa-event-selec |
| 19db40 | 74 29 0a 20 20 20 20 20 20 73 62 2d 61 6c 69 65 6e 3a 69 6e 74 0a 20 20 20 20 28 66 64 20 73 62 | t).......sb-alien:int.....(fd.sb |
| 19db60 | 2d 61 6c 69 65 6e 3a 69 6e 74 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 20 73 62 2d 77 69 6e 33 32 | -alien:int).....(handle.sb-win32 |
| 19db80 | 3a 68 61 6e 64 6c 65 29 0a 20 20 20 20 28 6d 61 73 6b 20 73 62 2d 61 6c 69 65 6e 3a 6c 6f 6e 67 | :handle).....(mask.sb-alien:long |
| 19dba0 | 29 29 0a 0a 20 20 28 73 62 2d 61 6c 69 65 6e 3a 6c 6f 61 64 2d 73 68 61 72 65 64 2d 6f 62 6a 65 | ))....(sb-alien:load-shared-obje |
| 19dbc0 | 63 74 20 22 6b 65 72 6e 65 6c 33 32 2e 64 6c 6c 22 29 0a 20 20 28 73 62 2d 61 6c 69 65 6e 3a 64 | ct."kernel32.dll")...(sb-alien:d |
| 19dbe0 | 65 66 69 6e 65 2d 61 6c 69 65 6e 2d 72 6f 75 74 69 6e 65 20 28 22 57 61 69 74 46 6f 72 53 69 6e | efine-alien-routine.("WaitForSin |
| 19dc00 | 67 6c 65 4f 62 6a 65 63 74 45 78 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gleObjectEx".................... |
| 19dc20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 2d 66 6f 72 2d 73 69 6e 67 6c 65 2d 6f | ...............wait-for-single-o |
| 19dc40 | 62 6a 65 63 74 2d 65 78 29 0a 20 20 20 20 20 20 73 62 2d 61 6c 69 65 6e 3a 69 6e 74 0a 20 20 20 | bject-ex).......sb-alien:int.... |
| 19dc60 | 20 28 65 76 65 6e 74 20 73 62 2d 77 69 6e 33 32 3a 68 61 6e 64 6c 65 29 0a 20 20 20 20 28 6d 69 | .(event.sb-win32:handle).....(mi |
| 19dc80 | 6c 6c 69 73 65 63 6f 6e 64 73 20 73 62 2d 61 6c 69 65 6e 3a 6c 6f 6e 67 29 0a 20 20 20 20 28 61 | lliseconds.sb-alien:long).....(a |
| 19dca0 | 6c 65 72 74 61 62 6c 65 20 73 62 2d 61 6c 69 65 6e 3a 69 6e 74 29 29 0a 0a 20 20 3b 3b 20 73 65 | lertable.sb-alien:int))....;;.se |
| 19dcc0 | 65 20 53 42 2d 57 49 4e 33 32 3a 48 41 4e 44 4c 45 2d 4c 49 53 54 45 4e 0a 20 20 28 64 65 66 75 | e.SB-WIN32:HANDLE-LISTEN...(defu |
| 19dce0 | 6e 20 68 61 6e 64 6c 65 2d 6c 69 73 74 65 6e 20 28 68 61 6e 64 6c 65 29 0a 20 20 20 20 28 73 62 | n.handle-listen.(handle).....(sb |
| 19dd00 | 2d 61 6c 69 65 6e 3a 77 69 74 68 2d 61 6c 69 65 6e 20 28 28 61 76 61 69 6c 20 73 62 2d 77 69 6e | -alien:with-alien.((avail.sb-win |
| 19dd20 | 33 32 3a 64 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 32:dword)....................... |
| 19dd40 | 20 20 20 20 28 62 75 66 20 28 61 72 72 61 79 20 63 68 61 72 20 23 2e 73 62 2d 77 69 6e 33 32 3a | ....(buf.(array.char.#.sb-win32: |
| 19dd60 | 3a 69 6e 70 75 74 2d 72 65 63 6f 72 64 2d 73 69 7a 65 29 29 29 0a 20 20 20 20 20 20 28 75 6e 6c | :input-record-size))).......(unl |
| 19dd80 | 65 73 73 20 28 7a 65 72 6f 70 20 28 73 62 2d 77 69 6e 33 32 3a 70 65 65 6b 2d 6e 61 6d 65 64 2d | ess.(zerop.(sb-win32:peek-named- |
| 19dda0 | 70 69 70 65 20 68 61 6e 64 6c 65 20 6e 69 6c 20 30 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 | pipe.handle.nil.0.nil........... |
| 19ddc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 19dde0 | 20 20 20 20 20 28 73 62 2d 61 6c 69 65 6e 3a 61 6c 69 65 6e 2d 73 61 70 0a 20 20 20 20 20 20 20 | .....(sb-alien:alien-sap........ |
| 19de00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 19de20 | 20 20 20 20 20 20 20 20 20 28 73 62 2d 61 6c 69 65 6e 3a 61 64 64 72 20 61 76 61 69 6c 29 29 0a | .........(sb-alien:addr.avail)). |
| 19de40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 19de60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 | ...............nil)).........(re |
| 19de80 | 74 75 72 6e 2d 66 72 6f 6d 20 68 61 6e 64 6c 65 2d 6c 69 73 74 65 6e 20 28 70 6c 75 73 70 20 61 | turn-from.handle-listen.(plusp.a |
| 19dea0 | 76 61 69 6c 29 29 29 0a 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 7a 65 72 6f 70 20 28 73 | vail)))........(unless.(zerop.(s |
| 19dec0 | 62 2d 77 69 6e 33 32 3a 70 65 65 6b 2d 63 6f 6e 73 6f 6c 65 2d 69 6e 70 75 74 20 68 61 6e 64 6c | b-win32:peek-console-input.handl |
| 19dee0 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e............................... |
| 19df00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 61 6c 69 65 6e 3a 61 6c | ....................(sb-alien:al |
| 19df20 | 69 65 6e 2d 73 61 70 20 62 75 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ien-sap.buf).................... |
| 19df40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 | ...............................s |
| 19df60 | 62 2d 77 69 6e 33 32 3a 3a 69 6e 70 75 74 2d 72 65 63 6f 72 64 2d 73 69 7a 65 0a 20 20 20 20 20 | b-win32::input-record-size...... |
| 19df80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 19dfa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 61 6c 69 65 6e 3a 61 6c 69 65 6e 2d 73 61 70 | .............(sb-alien:alien-sap |
| 19dfc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 19dfe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 61 6c 69 65 6e 3a 61 64 | ....................(sb-alien:ad |
| 19e000 | 64 72 20 61 76 61 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f | dr.avail)))).........(return-fro |
| 19e020 | 6d 20 68 61 6e 64 6c 65 2d 6c 69 73 74 65 6e 20 28 70 6c 75 73 70 20 61 76 61 69 6c 29 29 29 29 | m.handle-listen.(plusp.avail)))) |
| 19e040 | 0a 0a 20 20 20 20 28 6c 65 74 20 28 28 65 76 65 6e 74 20 28 77 73 61 2d 63 72 65 61 74 65 2d 65 | ......(let.((event.(wsa-create-e |
| 19e060 | 76 65 6e 74 29 29 29 0a 20 20 20 20 20 20 28 77 73 61 2d 65 76 65 6e 74 2d 73 65 6c 65 63 74 20 | vent))).......(wsa-event-select. |
| 19e080 | 68 61 6e 64 6c 65 20 65 76 65 6e 74 20 28 6c 6f 67 69 6f 72 20 2b 66 64 2d 72 65 61 64 2b 20 2b | handle.event.(logior.+fd-read+.+ |
| 19e0a0 | 66 64 2d 63 6c 6f 73 65 2b 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 20 28 77 61 | fd-close+)).......(let.((val.(wa |
| 19e0c0 | 69 74 2d 66 6f 72 2d 73 69 6e 67 6c 65 2d 6f 62 6a 65 63 74 2d 65 78 20 65 76 65 6e 74 20 30 20 | it-for-single-object-ex.event.0. |
| 19e0e0 | 30 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 73 61 2d 63 6c 6f 73 65 2d 65 76 65 6e 74 20 65 76 | 0))).........(wsa-close-event.ev |
| 19e100 | 65 6e 74 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 3d 20 76 61 6c 20 2d 31 29 0a | ent).........(unless.(=.val.-1). |
| 19e120 | 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 68 61 6e 64 6c 65 2d 6c 69 | ..........(return-from.handle-li |
| 19e140 | 73 74 65 6e 20 28 7a 65 72 6f 70 20 76 61 6c 29 29 29 29 29 0a 0a 20 20 20 20 6e 69 6c 29 0a 0a | sten.(zerop.val)))))......nil).. |
| 19e160 | 20 20 29 0a 0a 28 64 65 66 76 61 72 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f | ..)..(defvar.*external-format-to |
| 19e180 | 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 0a 20 20 27 28 28 3a 69 73 6f 2d 38 38 35 39 2d 31 | -coding-system*...'((:iso-8859-1 |
| 19e1a0 | 0a 20 20 20 20 20 22 6c 61 74 69 6e 2d 31 22 20 22 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 22 | ......"latin-1"."latin-1-unix"." |
| 19e1c0 | 69 73 6f 2d 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 0a 20 20 20 20 20 22 69 73 6f 2d 38 38 35 39 | iso-latin-1-unix"......"iso-8859 |
| 19e1e0 | 2d 31 22 20 22 69 73 6f 2d 38 38 35 39 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a 75 74 66 | -1"."iso-8859-1-unix").....(:utf |
| 19e200 | 2d 38 20 22 75 74 66 2d 38 22 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a 65 | -8."utf-8"."utf-8-unix").....(:e |
| 19e220 | 75 63 2d 6a 70 20 22 65 75 63 2d 6a 70 22 20 22 65 75 63 2d 6a 70 2d 75 6e 69 78 22 29 0a 20 20 | uc-jp."euc-jp"."euc-jp-unix")... |
| 19e240 | 20 20 28 3a 75 73 2d 61 73 63 69 69 20 22 75 73 2d 61 73 63 69 69 22 20 22 75 73 2d 61 73 63 69 | ..(:us-ascii."us-ascii"."us-asci |
| 19e260 | 69 2d 75 6e 69 78 22 29 29 29 0a 0a 3b 3b 20 43 2e 66 2e 20 52 2e 4d 2e 4b 72 65 75 74 65 72 20 | i-unix")))..;;.C.f..R.M.Kreuter. |
| 19e280 | 69 6e 20 3c 32 30 35 33 36 2e 31 32 31 39 34 31 32 37 37 34 40 70 72 6f 67 6e 2e 6e 65 74 3e 20 | in.<20536.1219412774@progn.net>. |
| 19e2a0 | 6f 6e 20 73 62 63 6c 2d 67 65 6e 65 72 61 6c 2c 0a 3b 3b 20 32 30 30 38 2d 30 38 2d 32 32 2e 0a | on.sbcl-general,.;;.2008-08-22.. |
| 19e2c0 | 28 64 65 66 76 61 72 20 2a 70 68 79 73 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 2d 68 6f 73 74 2a | (defvar.*physical-pathname-host* |
| 19e2e0 | 20 28 70 61 74 68 6e 61 6d 65 2d 68 6f 73 74 20 28 75 73 65 72 2d 68 6f 6d 65 64 69 72 2d 70 61 | .(pathname-host.(user-homedir-pa |
| 19e300 | 74 68 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 | thname)))..(defimplementation.fi |
| 19e320 | 6c 65 6e 61 6d 65 2d 74 6f 2d 70 61 74 68 6e 61 6d 65 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 | lename-to-pathname.(filename)... |
| 19e340 | 28 73 62 2d 65 78 74 3a 70 61 72 73 65 2d 6e 61 74 69 76 65 2d 6e 61 6d 65 73 74 72 69 6e 67 20 | (sb-ext:parse-native-namestring. |
| 19e360 | 66 69 6c 65 6e 61 6d 65 20 2a 70 68 79 73 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 2d 68 6f 73 74 | filename.*physical-pathname-host |
| 19e380 | 2a 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 65 78 74 | *))..(defimplementation.find-ext |
| 19e3a0 | 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 28 | ernal-format.(coding-system)...( |
| 19e3c0 | 63 61 72 20 28 72 61 73 73 6f 63 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 6d 65 6d 62 | car.(rassoc-if.(lambda.(x).(memb |
| 19e3e0 | 65 72 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 78 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c | er.coding-system.x.:test.#'equal |
| 19e400 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 78 74 65 72 6e 61 6c 2d 66 | ))...................*external-f |
| 19e420 | 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 29 29 29 0a 0a 28 64 65 66 | ormat-to-coding-system*)))..(def |
| 19e440 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 | implementation.set-default-direc |
| 19e460 | 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 6c 65 74 20 28 28 64 69 72 65 63 74 | tory.(directory)...(let.((direct |
| 19e480 | 6f 72 79 20 28 74 72 75 65 6e 61 6d 65 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 64 | ory.(truename.(merge-pathnames.d |
| 19e4a0 | 69 72 65 63 74 6f 72 79 29 29 29 29 0a 20 20 20 20 28 73 62 2d 70 6f 73 69 78 3a 63 68 64 69 72 | irectory)))).....(sb-posix:chdir |
| 19e4c0 | 20 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 28 73 65 74 66 20 2a 64 65 66 61 75 6c 74 2d 70 | .directory).....(setf.*default-p |
| 19e4e0 | 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 20 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 | athname-defaults*.directory).... |
| 19e500 | 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d | .(default-directory)))..(defun.m |
| 19e520 | 61 6b 65 2d 73 6f 63 6b 65 74 2d 69 6f 2d 73 74 72 65 61 6d 20 28 73 6f 63 6b 65 74 20 65 78 74 | ake-socket-io-stream.(socket.ext |
| 19e540 | 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 62 75 66 66 65 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 | ernal-format.buffering)...(let.( |
| 19e560 | 28 61 72 67 73 20 60 28 3a 6f 75 74 70 75 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (args.`(:output.t............... |
| 19e580 | 20 20 3a 69 6e 70 75 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d | ..:input.t.................:elem |
| 19e5a0 | 65 6e 74 2d 74 79 70 65 20 2c 28 69 66 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 | ent-type.,(if.external-format... |
| 19e5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 19e5e0 | 20 27 63 68 61 72 61 63 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .'character..................... |
| 19e600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 38 | ...............'(unsigned-byte.8 |
| 19e620 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 75 66 66 65 72 69 6e 67 20 2c 62 | )).................:buffering.,b |
| 19e640 | 75 66 66 65 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 63 6f 6e 64 | uffering.................,@(cond |
| 19e660 | 20 28 28 61 6e 64 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 73 62 2d 69 6e 74 3a 66 | .((and.external-format.(sb-int:f |
| 19e680 | 65 61 74 75 72 65 70 20 3a 73 62 2d 75 6e 69 63 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 | eaturep.:sb-unicode))........... |
| 19e6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 | ...............`(:external-forma |
| 19e6c0 | 74 20 2c 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | t.,external-format))............ |
| 19e6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 27 28 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .............(t.'()))........... |
| 19e700 | 20 20 20 20 20 20 3a 73 65 72 76 65 2d 65 76 65 6e 74 73 20 2c 28 65 71 20 3a 66 64 2d 68 61 6e | ......:serve-events.,(eq.:fd-han |
| 19e720 | 64 6c 65 72 20 73 77 61 6e 6b 3a 2a 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 2a | dler.swank:*communication-style* |
| 19e740 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 42 43 4c 20 3c 20 31 2e | )...................;;.SBCL.<.1. |
| 19e760 | 30 2e 34 32 2e 34 33 20 64 6f 65 73 6e 27 74 20 73 75 70 70 6f 72 74 20 3a 53 45 52 56 45 2d 45 | 0.42.43.doesn't.support.:SERVE-E |
| 19e780 | 56 45 4e 54 53 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 72 67 75 6d | VENTS...................;;.argum |
| 19e7a0 | 65 6e 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 | ent..................:allow-othe |
| 19e7c0 | 72 2d 6b 65 79 73 20 74 29 29 29 0a 20 20 28 61 70 70 6c 79 20 23 27 73 62 2d 62 73 64 2d 73 6f | r-keys.t)))...(apply.#'sb-bsd-so |
| 19e7e0 | 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 6d 61 6b 65 2d 73 74 72 65 61 6d 20 73 6f 63 6b 65 74 20 | ckets:socket-make-stream.socket. |
| 19e800 | 61 72 67 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 63 63 65 70 74 20 28 73 6f 63 6b 65 74 29 0a | args)))..(defun.accept.(socket). |
| 19e820 | 20 20 22 4c 69 6b 65 20 73 6f 63 6b 65 74 2d 61 63 63 65 70 74 2c 20 62 75 74 20 72 65 74 72 79 | .."Like.socket-accept,.but.retry |
| 19e840 | 20 6f 6e 20 45 41 47 41 49 4e 2e 22 0a 20 20 28 6c 6f 6f 70 20 28 68 61 6e 64 6c 65 72 2d 63 61 | .on.EAGAIN."...(loop.(handler-ca |
| 19e860 | 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 73 62 2d 62 73 64 2d 73 | se.............(return.(sb-bsd-s |
| 19e880 | 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 61 63 63 65 70 74 20 73 6f 63 6b 65 74 29 29 0a 20 20 | ockets:socket-accept.socket))... |
| 19e8a0 | 20 20 20 20 20 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 69 6e 74 65 72 72 75 70 | ........(sb-bsd-sockets:interrup |
| 19e8c0 | 74 65 64 2d 65 72 72 6f 72 20 28 29 29 29 29 29 0a 0a 0c 0a 28 64 65 66 75 6e 20 73 62 63 6c 2d | ted-error.()))))....(defun.sbcl- |
| 19e8e0 | 70 61 63 6b 61 67 65 2d 70 20 28 70 61 63 6b 61 67 65 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d | package-p.(package)...(let.((nam |
| 19e900 | 65 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 20 28 | e.(package-name.package))).....( |
| 19e920 | 65 71 6c 20 28 6d 69 73 6d 61 74 63 68 20 22 53 42 2d 22 20 6e 61 6d 65 29 20 33 29 29 29 0a 0a | eql.(mismatch."SB-".name).3))).. |
| 19e940 | 28 64 65 66 75 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 6f 6f 74 73 74 72 61 70 70 69 6e 67 | (defun.call-with-debootstrapping |
| 19e960 | 20 28 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a 66 65 61 74 75 72 65 73 2a 20 28 61 70 70 65 | .(fun)...(let.((*features*.(appe |
| 19e980 | 6e 64 20 2a 66 65 61 74 75 72 65 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd.*features*................... |
| 19e9a0 | 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 | ..........#+#.(swank/backend:wit |
| 19e9c0 | 68 2d 73 79 6d 62 6f 6c 20 27 2b 69 6e 74 65 72 6e 61 6c 2d 66 65 61 74 75 72 65 73 2b 20 27 73 | h-symbol.'+internal-features+.'s |
| 19e9e0 | 62 2d 69 6d 70 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | b-impl)......................... |
| 19ea00 | 20 20 20 20 73 62 2d 69 6d 70 6c 3a 2b 69 6e 74 65 72 6e 61 6c 2d 66 65 61 74 75 72 65 73 2b 29 | ....sb-impl:+internal-features+) |
| 19ea20 | 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 | )).....(funcall.fun)))..(defmacr |
| 19ea40 | 6f 20 77 69 74 68 2d 64 65 62 6f 6f 74 73 74 72 61 70 70 69 6e 67 20 28 26 62 6f 64 79 20 62 6f | o.with-debootstrapping.(&body.bo |
| 19ea60 | 64 79 29 0a 20 20 60 28 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 6f 6f 74 73 74 72 61 70 70 69 6e | dy)...`(call-with-debootstrappin |
| 19ea80 | 67 20 28 6c 61 6d 62 64 61 20 28 29 20 2c 40 62 6f 64 79 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | g.(lambda.().,@body)))..(defimpl |
| 19eaa0 | 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 73 79 6e 74 61 78 2d 68 6f 6f 6b | ementation.call-with-syntax-hook |
| 19eac0 | 73 20 28 66 6e 29 0a 20 20 28 63 6f 6e 64 20 28 28 73 62 63 6c 2d 70 61 63 6b 61 67 65 2d 70 20 | s.(fn)...(cond.((sbcl-package-p. |
| 19eae0 | 2a 70 61 63 6b 61 67 65 2a 29 0a 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 64 65 62 6f 6f 74 | *package*)..........(with-deboot |
| 19eb00 | 73 74 72 61 70 70 69 6e 67 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 29 0a 20 20 20 20 20 20 20 | strapping.(funcall.fn)))........ |
| 19eb20 | 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 29 29 0a 3b 3b 3b | .(t..........(funcall.fn)))).;;; |
| 19eb40 | 20 50 61 63 6b 61 67 65 73 0a 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 | .Packages..#+#.(swank/backend:wi |
| 19eb60 | 74 68 2d 73 79 6d 62 6f 6c 20 27 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d | th-symbol.'package-local-nicknam |
| 19eb80 | 65 73 20 27 73 62 2d 65 78 74 29 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 | es.'sb-ext).(defimplementation.p |
| 19eba0 | 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 20 28 70 61 63 6b 61 67 65 29 | ackage-local-nicknames.(package) |
| 19ebc0 | 0a 20 20 28 73 62 2d 65 78 74 3a 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d | ...(sb-ext:package-local-nicknam |
| 19ebe0 | 65 73 20 70 61 63 6b 61 67 65 29 29 0a 0a 3b 3b 3b 20 55 74 69 6c 69 74 69 65 73 0a 0a 23 2b 23 | es.package))..;;;.Utilities..#+# |
| 19ec00 | 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 66 75 6e | .(swank/backend:with-symbol.'fun |
| 19ec20 | 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 27 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 | ction-lambda-list.'sb-introspect |
| 19ec40 | 29 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 72 67 6c 69 73 74 20 28 66 6e | ).(defimplementation.arglist.(fn |
| 19ec60 | 61 6d 65 29 0a 20 20 28 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 3a 66 75 6e 63 74 69 6f 6e 2d 6c | ame)...(sb-introspect:function-l |
| 19ec80 | 61 6d 62 64 61 2d 6c 69 73 74 20 66 6e 61 6d 65 29 29 0a 0a 23 2d 23 2e 28 73 77 61 6e 6b 2f 62 | ambda-list.fname))..#-#.(swank/b |
| 19eca0 | 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d | ackend:with-symbol.'function-lam |
| 19ecc0 | 62 64 61 2d 6c 69 73 74 20 27 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 29 0a 28 64 65 66 69 6d 70 | bda-list.'sb-introspect).(defimp |
| 19ece0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 72 67 6c 69 73 74 20 28 66 6e 61 6d 65 29 0a 20 20 28 73 | lementation.arglist.(fname)...(s |
| 19ed00 | 62 2d 69 6e 74 72 6f 73 70 65 63 74 3a 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 66 6e | b-introspect:function-arglist.fn |
| 19ed20 | 61 6d 65 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 75 6e 63 74 69 | ame))..(defimplementation.functi |
| 19ed40 | 6f 6e 2d 6e 61 6d 65 20 28 66 29 0a 20 20 28 63 68 65 63 6b 2d 74 79 70 65 20 66 20 66 75 6e 63 | on-name.(f)...(check-type.f.func |
| 19ed60 | 74 69 6f 6e 29 0a 20 20 28 73 62 2d 69 6d 70 6c 3a 3a 25 66 75 6e 2d 6e 61 6d 65 20 66 29 29 0a | tion)...(sb-impl::%fun-name.f)). |
| 19ed80 | 0a 28 64 65 66 6d 65 74 68 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 | .(defmethod.declaration-arglist. |
| 19eda0 | 28 28 64 65 63 6c 2d 69 64 65 6e 74 69 66 69 65 72 20 28 65 71 6c 20 27 6f 70 74 69 6d 69 7a 65 | ((decl-identifier.(eql.'optimize |
| 19edc0 | 29 29 29 0a 20 20 28 66 6c 65 74 20 28 28 65 6e 73 75 72 65 2d 6c 69 73 74 20 28 74 68 69 6e 67 | )))...(flet.((ensure-list.(thing |
| 19ede0 | 29 20 28 69 66 20 28 6c 69 73 74 70 20 74 68 69 6e 67 29 20 74 68 69 6e 67 20 28 6c 69 73 74 20 | ).(if.(listp.thing).thing.(list. |
| 19ee00 | 74 68 69 6e 67 29 29 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 66 6c 61 67 73 20 28 73 62 2d | thing)))).....(let*.((flags.(sb- |
| 19ee20 | 63 6c 74 6c 32 3a 64 65 63 6c 61 72 61 74 69 6f 6e 2d 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 64 65 | cltl2:declaration-information.de |
| 19ee40 | 63 6c 2d 69 64 65 6e 74 69 66 69 65 72 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 66 6c 61 67 73 | cl-identifier))).......(if.flags |
| 19ee60 | 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 79 6d 62 6f 6c 73 20 61 72 65 6e 27 74 20 70 72 69 | ...........;;.Symbols.aren't.pri |
| 19ee80 | 6e 74 65 64 20 77 69 74 68 20 70 61 63 6b 61 67 65 20 71 75 61 6c 69 66 69 65 72 73 2c 20 62 75 | nted.with.package.qualifiers,.bu |
| 19eea0 | 74 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 4c 41 47 53 20 77 6f 75 6c 64 20 68 | t.the...........;;.FLAGS.would.h |
| 19eec0 | 61 76 65 20 74 6f 20 62 65 20 66 75 6c 6c 79 20 71 75 61 6c 69 66 69 65 64 20 77 68 65 6e 20 75 | ave.to.be.fully.qualified.when.u |
| 19eee0 | 73 65 64 20 69 6e 73 69 64 65 20 61 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 65 63 6c 61 72 | sed.inside.a...........;;.declar |
| 19ef00 | 61 74 69 6f 6e 2e 20 53 6f 20 77 65 20 73 74 72 69 70 20 74 68 6f 73 65 20 61 73 20 6c 6f 6e 67 | ation..So.we.strip.those.as.long |
| 19ef20 | 20 61 73 20 74 68 65 72 65 27 73 20 6e 6f 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 65 74 74 | .as.there's.no...........;;.bett |
| 19ef40 | 65 72 20 77 61 79 2e 20 28 46 49 58 4d 45 29 0a 20 20 20 20 20 20 20 20 20 20 60 28 26 61 6e 79 | er.way..(FIXME)...........`(&any |
| 19ef60 | 20 2c 40 28 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .,@(remove-if-not............... |
| 19ef80 | 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 71 75 61 6c 69 66 69 65 72 29 0a 20 20 20 20 | ......#'(lambda.(qualifier)..... |
| 19efa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c | ....................(find-symbol |
| 19efc0 | 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 66 69 72 73 74 20 71 75 61 6c 69 66 69 65 72 29 29 | .(symbol-name.(first.qualifier)) |
| 19efe0 | 20 3a 63 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 73 | .:cl)).....................flags |
| 19f000 | 20 3a 6b 65 79 20 23 27 65 6e 73 75 72 65 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .:key.#'ensure-list))........... |
| 19f020 | 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 29 29 29 0a 0a 23 2b 23 2e 28 73 77 61 | (call-next-method)))))..#+#.(swa |
| 19f040 | 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 64 65 66 74 79 70 65 2d | nk/backend:with-symbol.'deftype- |
| 19f060 | 6c 61 6d 62 64 61 2d 6c 69 73 74 20 27 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 29 0a 28 64 65 66 | lambda-list.'sb-introspect).(def |
| 19f080 | 6d 65 74 68 6f 64 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 20 3a 61 | method.type-specifier-arglist.:a |
| 19f0a0 | 72 6f 75 6e 64 20 28 74 79 70 65 73 70 65 63 2d 6f 70 65 72 61 74 6f 72 29 0a 20 20 28 6d 75 6c | round.(typespec-operator)...(mul |
| 19f0c0 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 61 72 67 6c 69 73 74 20 66 6f 75 6e 64 70 | tiple-value-bind.(arglist.foundp |
| 19f0e0 | 29 0a 20 20 20 20 20 20 28 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 3a 64 65 66 74 79 70 65 2d 6c | ).......(sb-introspect:deftype-l |
| 19f100 | 61 6d 62 64 61 2d 6c 69 73 74 20 74 79 70 65 73 70 65 63 2d 6f 70 65 72 61 74 6f 72 29 0a 20 20 | ambda-list.typespec-operator)... |
| 19f120 | 20 20 28 69 66 20 66 6f 75 6e 64 70 20 61 72 67 6c 69 73 74 20 28 63 61 6c 6c 2d 6e 65 78 74 2d | ..(if.foundp.arglist.(call-next- |
| 19f140 | 6d 65 74 68 6f 64 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 | method))))..(defimplementation.t |
| 19f160 | 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6f 72 20 28 | ype-specifier-p.(symbol)...(or.( |
| 19f180 | 73 62 2d 65 78 74 3a 76 61 6c 69 64 2d 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 73 79 | sb-ext:valid-type-specifier-p.sy |
| 19f1a0 | 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 28 74 79 70 65 2d 73 70 65 63 69 | mbol).......(not.(eq.(type-speci |
| 19f1c0 | 66 69 65 72 2d 61 72 67 6c 69 73 74 20 73 79 6d 62 6f 6c 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 | fier-arglist.symbol).:not-availa |
| 19f1e0 | 62 6c 65 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 6e | ble))))..(defvar.*buffer-name*.n |
| 19f200 | 69 6c 29 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 74 6d 70 66 69 6c 65 2a 20 6e 69 6c | il).(defvar.*buffer-tmpfile*.nil |
| 19f220 | 29 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 6f 66 66 73 65 74 2a 29 0a 28 64 65 66 76 | ).(defvar.*buffer-offset*).(defv |
| 19f240 | 61 72 20 2a 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 | ar.*buffer-substring*.nil)..(def |
| 19f260 | 76 61 72 20 2a 70 72 65 76 69 6f 75 73 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e | var.*previous-compiler-condition |
| 19f280 | 2a 20 6e 69 6c 0a 20 20 22 55 73 65 64 20 74 6f 20 64 65 74 65 63 74 20 64 75 70 6c 69 63 61 74 | *.nil..."Used.to.detect.duplicat |
| 19f2a0 | 65 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 68 61 6e 64 6c 65 2d 6e 6f 74 69 66 69 63 61 74 69 6f | es.")..(defun.handle-notificatio |
| 19f2c0 | 6e 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 48 61 6e 64 6c | n-condition.(condition)..."Handl |
| 19f2e0 | 65 20 61 20 63 6f 6e 64 69 74 69 6f 6e 20 63 61 75 73 65 64 20 62 79 20 61 20 63 6f 6d 70 69 6c | e.a.condition.caused.by.a.compil |
| 19f300 | 65 72 20 77 61 72 6e 69 6e 67 2e 0a 54 68 69 73 20 74 72 61 70 73 20 61 6c 6c 20 63 6f 6d 70 69 | er.warning..This.traps.all.compi |
| 19f320 | 6c 65 72 20 63 6f 6e 64 69 74 69 6f 6e 73 20 61 74 20 61 20 6c 6f 77 65 72 2d 6c 65 76 65 6c 20 | ler.conditions.at.a.lower-level. |
| 19f340 | 74 68 61 6e 20 75 73 69 6e 67 0a 43 3a 2a 43 4f 4d 50 49 4c 45 52 2d 4e 4f 54 49 46 49 43 41 54 | than.using.C:*COMPILER-NOTIFICAT |
| 19f360 | 49 4f 4e 2d 46 55 4e 43 54 49 4f 4e 2a 2e 20 54 68 65 20 61 64 76 61 6e 74 61 67 65 20 69 73 20 | ION-FUNCTION*..The.advantage.is. |
| 19f380 | 74 68 61 74 20 77 65 20 67 65 74 20 74 6f 0a 63 72 61 66 74 20 6f 75 72 20 6f 77 6e 20 65 72 72 | that.we.get.to.craft.our.own.err |
| 19f3a0 | 6f 72 20 6d 65 73 73 61 67 65 73 2c 20 77 68 69 63 68 20 63 61 6e 20 6f 6d 69 74 20 61 20 6c 6f | or.messages,.which.can.omit.a.lo |
| 19f3c0 | 74 20 6f 66 20 72 65 64 75 6e 64 61 6e 74 0a 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 | t.of.redundant.information."...( |
| 19f3e0 | 75 6e 6c 65 73 73 20 28 6f 72 20 28 65 71 20 63 6f 6e 64 69 74 69 6f 6e 20 2a 70 72 65 76 69 6f | unless.(or.(eq.condition.*previo |
| 19f400 | 75 73 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a 29 29 0a 20 20 20 20 3b 3b 20 | us-compiler-condition*)).....;;. |
| 19f420 | 46 69 72 73 74 20 72 65 73 69 67 6e 61 6c 20 77 61 72 6e 69 6e 67 73 2c 20 73 6f 20 74 68 61 74 | First.resignal.warnings,.so.that |
| 19f440 | 20 6f 75 74 65 72 20 68 61 6e 64 6c 65 72 73 20 2d 2d 20 77 68 69 63 68 20 6d 61 79 20 63 68 6f | .outer.handlers.--.which.may.cho |
| 19f460 | 6f 73 65 20 74 6f 0a 20 20 20 20 3b 3b 20 6d 75 66 66 6c 65 20 74 68 69 73 20 2d 2d 20 67 65 74 | ose.to.....;;.muffle.this.--.get |
| 19f480 | 20 61 20 63 68 61 6e 63 65 20 74 6f 20 72 75 6e 2e 0a 20 20 20 20 28 77 68 65 6e 20 28 74 79 70 | .a.chance.to.run......(when.(typ |
| 19f4a0 | 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 77 61 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 28 73 69 | ep.condition.'warning).......(si |
| 19f4c0 | 67 6e 61 6c 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 28 73 65 74 71 20 2a 70 72 65 76 | gnal.condition)).....(setq.*prev |
| 19f4e0 | 69 6f 75 73 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a 20 63 6f 6e 64 69 74 69 | ious-compiler-condition*.conditi |
| 19f500 | 6f 6e 29 0a 20 20 20 20 28 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 | on).....(signal-compiler-conditi |
| 19f520 | 6f 6e 20 28 72 65 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 | on.(real-condition.condition)... |
| 19f540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 | .............................(sb |
| 19f560 | 2d 63 3a 3a 66 69 6e 64 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 20 6e 69 6c 29 29 29 29 0a 0a | -c::find-error-context.nil)))).. |
| 19f580 | 28 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e | (defun.signal-compiler-condition |
| 19f5a0 | 20 28 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 74 65 78 74 29 0a 20 20 28 73 69 67 6e 61 6c 20 27 | .(condition.context)...(signal.' |
| 19f5c0 | 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3a 6f 72 | compiler-condition...........:or |
| 19f5e0 | 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 | iginal-condition.condition...... |
| 19f600 | 20 20 20 20 20 3a 73 65 76 65 72 69 74 79 20 28 65 74 79 70 65 63 61 73 65 20 63 6f 6e 64 69 74 | .....:severity.(etypecase.condit |
| 19f620 | 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 65 78 | ion.......................(sb-ex |
| 19f640 | 74 3a 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 20 3a 6e 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 | t:compiler-note.:note).......... |
| 19f660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 63 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f | .............(sb-c:compiler-erro |
| 19f680 | 72 20 20 3a 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r..:error)...................... |
| 19f6a0 | 20 28 72 65 61 64 65 72 2d 65 72 72 6f 72 20 20 20 20 20 20 20 20 20 3a 72 65 61 64 2d 65 72 72 | .(reader-error.........:read-err |
| 19f6c0 | 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 | or).......................(error |
| 19f6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 | ................:error)......... |
| 19f700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 | ..............#+#.(swank/backend |
| 19f720 | 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 65 61 72 6c 79 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 | :with-symbol.early-deprecation-w |
| 19f740 | 61 72 6e 69 6e 67 20 73 62 2d 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | arning.sb-ext).................. |
| 19f760 | 20 20 20 20 20 28 73 62 2d 65 78 74 3a 3a 65 61 72 6c 79 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d | .....(sb-ext::early-deprecation- |
| 19f780 | 77 61 72 6e 69 6e 67 20 3a 65 61 72 6c 79 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 | warning.:early-deprecation-warni |
| 19f7a0 | 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 | ng).......................#+#.(s |
| 19f7c0 | 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 6c 61 74 65 2d 64 65 | wank/backend:with-symbol.late-de |
| 19f7e0 | 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 20 73 62 2d 65 78 74 29 0a 20 20 20 20 20 20 | precation-warning.sb-ext)....... |
| 19f800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 65 78 74 3a 3a 6c 61 74 65 2d 64 65 | ................(sb-ext::late-de |
| 19f820 | 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 20 3a 6c 61 74 65 2d 64 65 70 72 65 63 61 74 | precation-warning.:late-deprecat |
| 19f840 | 69 6f 6e 2d 77 61 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion-warning).................... |
| 19f860 | 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f | ...#+#.(swank/backend:with-symbo |
| 19f880 | 6c 20 66 69 6e 61 6c 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 20 73 62 2d 65 | l.final-deprecation-warning.sb-e |
| 19f8a0 | 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 65 78 | xt).......................(sb-ex |
| 19f8c0 | 74 3a 3a 66 69 6e 61 6c 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 20 3a 66 69 | t::final-deprecation-warning.:fi |
| 19f8e0 | 6e 61 6c 2d 64 65 70 72 65 63 61 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 | nal-deprecation-warning)........ |
| 19f900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e | ...............#+#.(swank/backen |
| 19f920 | 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 72 65 64 65 66 69 6e 69 74 69 6f 6e 2d 77 61 72 6e 69 | d:with-symbol.redefinition-warni |
| 19f940 | 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 | ng.............................s |
| 19f960 | 62 2d 6b 65 72 6e 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | b-kernel)....................... |
| 19f980 | 28 73 62 2d 6b 65 72 6e 65 6c 3a 72 65 64 65 66 69 6e 69 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 0a | (sb-kernel:redefinition-warning. |
| 19f9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 64 65 66 69 6e 69 | .......................:redefini |
| 19f9c0 | 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 79 | tion).......................(sty |
| 19f9e0 | 6c 65 2d 77 61 72 6e 69 6e 67 20 20 20 20 20 20 20 20 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 | le-warning........:style-warning |
| 19fa00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 69 6e 67 | ).......................(warning |
| 19fa20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 77 61 72 6e 69 6e 67 29 29 0a 20 20 20 20 20 20 20 | ..............:warning))........ |
| 19fa40 | 20 20 20 3a 72 65 66 65 72 65 6e 63 65 73 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 72 65 66 65 72 65 | ...:references.(condition-refere |
| 19fa60 | 6e 63 65 73 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 3a 6d 65 73 73 61 | nces.condition)...........:messa |
| 19fa80 | 67 65 20 28 62 72 69 65 66 2d 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 61 67 65 2d 66 6f 72 2d 65 | ge.(brief-compiler-message-for-e |
| 19faa0 | 6d 61 63 73 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 3a 73 6f 75 72 63 | macs.condition)...........:sourc |
| 19fac0 | 65 2d 63 6f 6e 74 65 78 74 20 28 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 | e-context.(compiler-error-contex |
| 19fae0 | 74 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 20 28 | t.context)...........:location.( |
| 19fb00 | 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e | compiler-note-location.condition |
| 19fb20 | 20 63 6f 6e 74 65 78 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 6c 2d 63 6f 6e 64 69 74 69 | .context)))..(defun.real-conditi |
| 19fb40 | 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 65 6e 63 | on.(condition)..."Return.the.enc |
| 19fb60 | 61 70 73 75 6c 61 74 65 64 20 63 6f 6e 64 69 74 69 6f 6e 20 6f 72 20 43 4f 4e 44 49 54 49 4f 4e | apsulated.condition.or.CONDITION |
| 19fb80 | 20 69 74 73 65 6c 66 2e 22 0a 20 20 28 74 79 70 65 63 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 0a | .itself."...(typecase.condition. |
| 19fba0 | 20 20 20 20 28 73 62 2d 69 6e 74 3a 65 6e 63 61 70 73 75 6c 61 74 65 64 2d 63 6f 6e 64 69 74 69 | ....(sb-int:encapsulated-conditi |
| 19fbc0 | 6f 6e 20 28 73 62 2d 69 6e 74 3a 65 6e 63 61 70 73 75 6c 61 74 65 64 2d 63 6f 6e 64 69 74 69 6f | on.(sb-int:encapsulated-conditio |
| 19fbe0 | 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 28 74 20 63 6f 6e 64 69 74 69 6f 6e 29 29 | n.condition)).....(t.condition)) |
| 19fc00 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 64 69 74 69 6f 6e 2d 72 65 66 65 72 65 6e 63 65 73 20 28 | )..(defun.condition-references.( |
| 19fc20 | 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 69 66 20 28 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f | condition)...(if.(typep.conditio |
| 19fc40 | 6e 20 27 73 62 2d 69 6e 74 3a 72 65 66 65 72 65 6e 63 65 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 | n.'sb-int:reference-condition).. |
| 19fc60 | 20 20 20 20 20 28 65 78 74 65 72 6e 61 6c 69 7a 65 2d 72 65 66 65 72 65 6e 63 65 0a 20 20 20 20 | .....(externalize-reference..... |
| 19fc80 | 20 20 20 28 73 62 2d 69 6e 74 3a 72 65 66 65 72 65 6e 63 65 2d 63 6f 6e 64 69 74 69 6f 6e 2d 72 | ...(sb-int:reference-condition-r |
| 19fca0 | 65 66 65 72 65 6e 63 65 73 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | eferences.condition))))..(defun. |
| 19fcc0 | 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f | compiler-note-location.(conditio |
| 19fce0 | 6e 20 63 6f 6e 74 65 78 74 29 0a 20 20 28 66 6c 65 74 20 28 28 62 61 69 6c 6f 75 74 20 28 29 0a | n.context)...(flet.((bailout.(). |
| 19fd00 | 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 63 6f 6d 70 69 6c 65 72 | ...........(return-from.compiler |
| 19fd20 | 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b | -note-location..............(mak |
| 19fd40 | 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 22 4e 6f 20 65 72 72 6f 72 20 6c 6f 63 61 74 | e-error-location."No.error.locat |
| 19fd60 | 69 6f 6e 20 61 76 61 69 6c 61 62 6c 65 22 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 63 6f | ion.available")))).....(cond.(co |
| 19fd80 | 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 74 65 2d 63 6f 6d 70 69 6c 65 | ntext............(locate-compile |
| 19fda0 | 72 2d 6e 6f 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 63 3a 3a 63 6f 6d 70 69 6c | r-note.............(sb-c::compil |
| 19fdc0 | 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 6f 6e 74 65 | er-error-context-file-name.conte |
| 19fde0 | 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 73 6f 75 72 63 65 | xt).............(compiler-source |
| 19fe00 | 2d 70 61 74 68 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 63 | -path.context).............(sb-c |
| 19fe20 | 3a 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 2d 6f 72 69 67 69 6e 61 | ::compiler-error-context-origina |
| 19fe40 | 6c 2d 73 6f 75 72 63 65 20 63 6f 6e 74 65 78 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 | l-source.context)))...........(( |
| 19fe60 | 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 72 65 61 64 65 72 2d 65 72 72 6f 72 29 0a 20 | typep.condition.'reader-error).. |
| 19fe80 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 72 65 61 6d 20 28 73 74 72 65 61 6d | ..........(let*.((stream.(stream |
| 19fea0 | 2d 65 72 72 6f 72 2d 73 74 72 65 61 6d 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 | -error-stream.condition))....... |
| 19fec0 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 53 54 52 45 41 4d 20 69 73 2c 20 66 6f 72 | ............;;.If.STREAM.is,.for |
| 19fee0 | 20 65 78 61 6d 70 6c 65 2c 20 61 20 53 54 52 49 4e 47 2d 49 4e 50 55 54 2d 53 54 52 45 41 4d 2c | .example,.a.STRING-INPUT-STREAM, |
| 19ff00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 6e 20 65 72 72 6f 72 20 77 | ...................;;.an.error.w |
| 19ff20 | 69 6c 6c 20 62 65 20 73 69 67 6e 61 6c 65 64 20 73 69 6e 63 65 20 50 41 54 48 4e 41 4d 45 20 6f | ill.be.signaled.since.PATHNAME.o |
| 19ff40 | 6e 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 63 63 65 70 74 73 | nly...................;;.accepts |
| 19ff60 | 20 61 20 22 73 74 72 65 61 6d 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 61 20 66 69 6c | .a."stream.associated.with.a.fil |
| 19ff80 | 65 22 20 77 68 69 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 73 | e".which...................;;.is |
| 19ffa0 | 20 61 20 63 6f 6d 70 6c 69 63 61 74 65 64 20 70 72 65 64 69 63 61 74 65 20 61 6e 64 20 68 61 72 | .a.complicated.predicate.and.har |
| 19ffc0 | 64 20 74 6f 20 74 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 | d.to.test...................;;.p |
| 19ffe0 | 6f 72 74 61 62 6c 79 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 | ortably....................(file |
| 1a0000 | 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 70 61 74 68 6e 61 6d 65 20 73 74 72 65 | ...(ignore-errors.(pathname.stre |
| 1a0020 | 61 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 | am))))..............(unless.(and |
| 1a0040 | 20 66 69 6c 65 20 28 6f 70 65 6e 2d 73 74 72 65 61 6d 2d 70 20 73 74 72 65 61 6d 29 29 0a 20 20 | .file.(open-stream-p.stream))... |
| 1a0060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 69 6c 6f 75 74 29 29 0a 20 20 20 20 20 20 20 20 | .............(bailout))......... |
| 1a0080 | 20 20 20 20 20 28 69 66 20 28 63 6f 6d 70 69 6c 69 6e 67 2d 66 72 6f 6d 2d 62 75 66 66 65 72 2d | .....(if.(compiling-from-buffer- |
| 1a00a0 | 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 | p.file)..................;;.The. |
| 1a00c0 | 73 74 72 65 61 6d 20 70 6f 73 69 74 69 6f 6e 20 66 6f 72 20 65 2e 67 2e 20 22 63 6f 6d 6d 61 20 | stream.position.for.e.g.."comma. |
| 1a00e0 | 6e 6f 74 20 69 6e 73 69 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 | not.inside..................;;.b |
| 1a0100 | 61 63 6b 71 75 6f 74 65 22 20 69 73 20 61 74 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 66 6f | ackquote".is.at.the.character.fo |
| 1a0120 | 6c 6c 6f 77 69 6e 67 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | llowing.the..................;;. |
| 1a0140 | 63 6f 6d 6d 61 2c 20 3a 6f 66 66 73 65 74 20 69 73 20 30 2d 62 61 73 65 64 2c 20 68 65 6e 63 65 | comma,.:offset.is.0-based,.hence |
| 1a0160 | 20 74 68 65 20 31 2d 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d | .the.1-...................(make- |
| 1a0180 | 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 2a 62 75 66 66 65 72 2d 6e | location.(list.:buffer.*buffer-n |
| 1a01a0 | 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame*)........................... |
| 1a01c0 | 20 20 20 20 20 20 28 6c 69 73 74 20 3a 6f 66 66 73 65 74 20 2a 62 75 66 66 65 72 2d 6f 66 66 73 | ......(list.:offset.*buffer-offs |
| 1a01e0 | 65 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | et*............................. |
| 1a0200 | 20 20 20 20 20 20 20 20 20 20 28 31 2d 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 | ..........(1-.(file-position.str |
| 1a0220 | 65 61 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a | eam))))..................(progn. |
| 1a0240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 63 6f 6d 70 | ...................(assert.(comp |
| 1a0260 | 69 6c 69 6e 67 2d 66 72 6f 6d 2d 66 69 6c 65 2d 70 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 | iling-from-file-p.file))........ |
| 1a0280 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 20 31 2d 20 62 65 63 61 75 73 65 20 3a 70 6f | ............;;.No.1-.because.:po |
| 1a02a0 | 73 69 74 69 6f 6e 20 69 73 20 31 2d 62 61 73 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | sition.is.1-based............... |
| 1a02c0 | 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 | ......(make-location.(list.:file |
| 1a02e0 | 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .(namestring.file))............. |
| 1a0300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 | ......................(list.:pos |
| 1a0320 | 69 74 69 6f 6e 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 65 61 6d 29 29 29 29 29 | ition.(file-position.stream))))) |
| 1a0340 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 62 61 69 6c 6f 75 74 29 29 29 29 29 0a 0a 28 | ))...........(t.(bailout)))))..( |
| 1a0360 | 64 65 66 75 6e 20 63 6f 6d 70 69 6c 69 6e 67 2d 66 72 6f 6d 2d 62 75 66 66 65 72 2d 70 20 28 66 | defun.compiling-from-buffer-p.(f |
| 1a0380 | 69 6c 65 6e 61 6d 65 29 0a 20 20 28 61 6e 64 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 0a 20 20 | ilename)...(and.*buffer-name*... |
| 1a03a0 | 20 20 20 20 20 3b 3b 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 73 20 74 6f 20 74 72 69 67 | .....;;.The.following.is.to.trig |
| 1a03c0 | 67 65 72 20 43 4f 4d 50 49 4c 49 4e 47 2d 46 52 4f 4d 2d 47 45 4e 45 52 41 54 45 44 2d 43 4f 44 | ger.COMPILING-FROM-GENERATED-COD |
| 1a03e0 | 45 2d 50 0a 20 20 20 20 20 20 20 3b 3b 20 69 6e 20 4c 4f 43 41 54 45 2d 43 4f 4d 50 49 4c 45 52 | E-P........;;.in.LOCATE-COMPILER |
| 1a0400 | 2d 4e 4f 54 45 2c 20 61 6e 64 20 61 6c 6c 6f 77 73 20 68 61 6e 64 6c 69 6e 67 20 6e 65 73 74 65 | -NOTE,.and.allows.handling.neste |
| 1a0420 | 64 0a 20 20 20 20 20 20 20 3b 3b 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 66 72 6f 6d 20 65 67 2e | d........;;.compilation.from.eg. |
| 1a0440 | 20 68 69 74 74 69 6e 67 20 43 2d 43 20 6f 6e 20 28 65 76 61 6c 2d 77 68 65 6e 20 2e 2e 2e 20 28 | .hitting.C-C.on.(eval-when.....( |
| 1a0460 | 72 65 71 75 69 72 65 20 2e 2e 29 29 29 2e 0a 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 | require...))).........;;........ |
| 1a0480 | 3b 3b 20 50 52 4f 42 45 2d 46 49 4c 45 20 74 6f 20 68 61 6e 64 6c 65 20 74 65 6d 70 66 69 6c 65 | ;;.PROBE-FILE.to.handle.tempfile |
| 1a04a0 | 20 64 69 72 65 63 74 6f 72 79 20 62 65 69 6e 67 20 61 20 73 79 6d 6c 69 6e 6b 2e 0a 20 20 20 20 | .directory.being.a.symlink...... |
| 1a04c0 | 20 20 20 28 70 61 74 68 6e 61 6d 65 70 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 | ...(pathnamep.filename)........( |
| 1a04e0 | 6c 65 74 20 28 28 74 72 75 65 31 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 | let.((true1.(probe-file.filename |
| 1a0500 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 75 65 32 20 28 70 72 6f 62 65 2d 66 69 | ))..............(true2.(probe-fi |
| 1a0520 | 6c 65 20 2a 62 75 66 66 65 72 2d 74 6d 70 66 69 6c 65 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 | le.*buffer-tmpfile*))).......... |
| 1a0540 | 28 61 6e 64 20 74 72 75 65 31 20 28 65 71 75 61 6c 20 74 72 75 65 31 20 74 72 75 65 32 29 29 29 | (and.true1.(equal.true1.true2))) |
| 1a0560 | 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 69 6e 67 2d 66 72 6f 6d 2d 66 69 6c 65 2d 70 | ))..(defun.compiling-from-file-p |
| 1a0580 | 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 28 61 6e 64 20 28 70 61 74 68 6e 61 6d 65 70 20 66 69 | .(filename)...(and.(pathnamep.fi |
| 1a05a0 | 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 6f 72 20 28 6e 75 6c 6c 20 2a 62 75 66 66 65 72 | lename)........(or.(null.*buffer |
| 1a05c0 | 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 2a 62 75 66 66 65 72 | -name*)............(null.*buffer |
| 1a05e0 | 2d 74 6d 70 66 69 6c 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 72 75 | -tmpfile*)............(let.((tru |
| 1a0600 | 65 31 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 | e1.(probe-file.filename))....... |
| 1a0620 | 20 20 20 20 20 20 20 20 20 20 20 28 74 72 75 65 32 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 2a 62 | ...........(true2.(probe-file.*b |
| 1a0640 | 75 66 66 65 72 2d 74 6d 70 66 69 6c 65 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | uffer-tmpfile*)))..............( |
| 1a0660 | 6e 6f 74 20 28 61 6e 64 20 74 72 75 65 31 20 28 65 71 75 61 6c 20 74 72 75 65 31 20 74 72 75 65 | not.(and.true1.(equal.true1.true |
| 1a0680 | 32 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 69 6e 67 2d 66 72 6f 6d 2d | 2)))))))..(defun.compiling-from- |
| 1a06a0 | 67 65 6e 65 72 61 74 65 64 2d 63 6f 64 65 2d 70 20 28 66 69 6c 65 6e 61 6d 65 20 73 6f 75 72 63 | generated-code-p.(filename.sourc |
| 1a06c0 | 65 29 0a 20 20 28 61 6e 64 20 28 65 71 20 66 69 6c 65 6e 61 6d 65 20 3a 6c 69 73 70 29 20 28 73 | e)...(and.(eq.filename.:lisp).(s |
| 1a06e0 | 74 72 69 6e 67 70 20 73 6f 75 72 63 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6f 63 61 74 65 2d | tringp.source)))..(defun.locate- |
| 1a0700 | 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 20 28 66 69 6c 65 20 73 6f 75 72 63 65 2d 70 61 74 68 20 | compiler-note.(file.source-path. |
| 1a0720 | 73 6f 75 72 63 65 29 0a 20 20 28 63 6f 6e 64 20 28 28 63 6f 6d 70 69 6c 69 6e 67 2d 66 72 6f 6d | source)...(cond.((compiling-from |
| 1a0740 | 2d 62 75 66 66 65 72 2d 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c | -buffer-p.file)..........(make-l |
| 1a0760 | 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 2a 62 75 66 66 65 72 2d 6e 61 | ocation.(list.:buffer.*buffer-na |
| 1a0780 | 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | me*).........................(li |
| 1a07a0 | 73 74 20 3a 6f 66 66 73 65 74 20 20 2a 62 75 66 66 65 72 2d 6f 66 66 73 65 74 2a 0a 20 20 20 20 | st.:offset..*buffer-offset*..... |
| 1a07c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 | ..........................(sourc |
| 1a07e0 | 65 2d 70 61 74 68 2d 73 74 72 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | e-path-string-position.......... |
| 1a0800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 72 63 65 2d 70 61 74 | ......................source-pat |
| 1a0820 | 68 20 2a 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2a 29 29 29 29 0a 20 20 20 20 20 20 20 | h.*buffer-substring*))))........ |
| 1a0840 | 20 28 28 63 6f 6d 70 69 6c 69 6e 67 2d 66 72 6f 6d 2d 66 69 6c 65 2d 70 20 66 69 6c 65 29 0a 20 | .((compiling-from-file-p.file).. |
| 1a0860 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 69 74 69 6f 6e 20 28 73 6f 75 72 63 65 2d | ........(let.((position.(source- |
| 1a0880 | 70 61 74 68 2d 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 6f 75 72 63 65 2d 70 61 74 68 20 66 | path-file-position.source-path.f |
| 1a08a0 | 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e | ile)))............(make-location |
| 1a08c0 | 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 66 69 6c 65 29 29 0a | .(list.:file.(namestring.file)). |
| 1a08e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | ..........................(list. |
| 1a0900 | 3a 70 6f 73 69 74 69 6f 6e 20 28 61 6e 64 20 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | :position.(and.position......... |
| 1a0920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a0940 | 20 20 20 20 20 20 20 28 31 2b 20 70 6f 73 69 74 69 6f 6e 29 29 29 29 29 29 0a 20 20 20 20 20 20 | .......(1+.position))))))....... |
| 1a0960 | 20 20 28 28 63 6f 6d 70 69 6c 69 6e 67 2d 66 72 6f 6d 2d 67 65 6e 65 72 61 74 65 64 2d 63 6f 64 | ..((compiling-from-generated-cod |
| 1a0980 | 65 2d 70 20 66 69 6c 65 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d | e-p.file.source)..........(make- |
| 1a09a0 | 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 73 6f 75 72 63 65 2d 66 6f 72 6d 20 73 6f 75 72 | location.(list.:source-form.sour |
| 1a09c0 | 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | ce).........................(lis |
| 1a09e0 | 74 20 3a 70 6f 73 69 74 69 6f 6e 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 | t.:position.1))).........(t..... |
| 1a0a00 | 20 20 20 20 20 28 65 72 72 6f 72 20 22 75 6e 68 61 6e 64 6c 65 64 20 63 61 73 65 20 69 6e 20 63 | .....(error."unhandled.case.in.c |
| 1a0a20 | 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 20 7e 53 20 7e 53 20 7e 53 22 0a 20 20 20 20 20 20 20 20 20 | ompiler.note.~S.~S.~S".......... |
| 1a0a40 | 20 20 20 20 20 20 20 66 69 6c 65 20 73 6f 75 72 63 65 2d 70 61 74 68 20 73 6f 75 72 63 65 29 29 | .......file.source-path.source)) |
| 1a0a60 | 29 29 0a 0a 28 64 65 66 75 6e 20 62 72 69 65 66 2d 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 61 67 | ))..(defun.brief-compiler-messag |
| 1a0a80 | 65 2d 66 6f 72 2d 65 6d 61 63 73 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 42 72 69 65 66 | e-for-emacs.(condition)..."Brief |
| 1a0aa0 | 6c 79 20 64 65 73 63 72 69 62 65 20 61 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 20 66 6f 72 | ly.describe.a.compiler.error.for |
| 1a0ac0 | 20 45 6d 61 63 73 2e 0a 57 68 65 6e 20 45 6d 61 63 73 20 70 72 65 73 65 6e 74 73 20 74 68 65 20 | .Emacs..When.Emacs.presents.the. |
| 1a0ae0 | 6d 65 73 73 61 67 65 20 69 74 20 61 6c 72 65 61 64 79 20 68 61 73 20 74 68 65 20 73 6f 75 72 63 | message.it.already.has.the.sourc |
| 1a0b00 | 65 20 70 6f 70 70 65 64 20 75 70 0a 61 6e 64 20 74 68 65 20 73 6f 75 72 63 65 20 66 6f 72 6d 20 | e.popped.up.and.the.source.form. |
| 1a0b20 | 68 69 67 68 6c 69 67 68 74 65 64 2e 20 54 68 69 73 20 6d 61 6b 65 73 20 6d 75 63 68 20 6f 66 20 | highlighted..This.makes.much.of. |
| 1a0b40 | 74 68 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 6e 0a 74 68 65 20 65 72 72 6f 72 2d 63 6f 6e | the.information.in.the.error-con |
| 1a0b60 | 74 65 78 74 20 72 65 64 75 6e 64 61 6e 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 62 2d 69 6e 74 | text.redundant."...(let.((sb-int |
| 1a0b80 | 3a 2a 70 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 2d 72 65 66 65 72 65 6e 63 65 73 2a 20 6e 69 | :*print-condition-references*.ni |
| 1a0ba0 | 6c 29 29 0a 20 20 20 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 6f 6e 64 69 74 69 | l)).....(princ-to-string.conditi |
| 1a0bc0 | 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e | on)))..(defun.compiler-error-con |
| 1a0be0 | 74 65 78 74 20 28 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 29 0a 20 20 22 44 65 73 63 72 69 62 65 | text.(error-context)..."Describe |
| 1a0c00 | 20 61 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 20 66 6f 72 20 45 6d 61 63 73 20 69 6e 63 6c | .a.compiler.error.for.Emacs.incl |
| 1a0c20 | 75 64 69 6e 67 20 63 6f 6e 74 65 78 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 64 | uding.context.information."...(d |
| 1a0c40 | 65 63 6c 61 72 65 20 28 74 79 70 65 20 28 6f 72 20 73 62 2d 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d | eclare.(type.(or.sb-c::compiler- |
| 1a0c60 | 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 20 6e 75 6c 6c 29 20 65 72 72 6f 72 2d 63 6f 6e 74 65 78 | error-context.null).error-contex |
| 1a0c80 | 74 29 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 65 6e 63 6c | t))...(multiple-value-bind.(encl |
| 1a0ca0 | 6f 73 69 6e 67 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 28 69 66 20 65 72 72 6f 72 2d 63 6f | osing.source).......(if.error-co |
| 1a0cc0 | 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 73 62 2d 63 3a 3a 63 | ntext...........(values.(sb-c::c |
| 1a0ce0 | 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 2d 65 6e 63 6c 6f 73 69 6e 67 2d | ompiler-error-context-enclosing- |
| 1a0d00 | 73 6f 75 72 63 65 20 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 | source.error-context)........... |
| 1a0d20 | 20 20 20 20 20 20 20 20 28 73 62 2d 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f | ........(sb-c::compiler-error-co |
| 1a0d40 | 6e 74 65 78 74 2d 73 6f 75 72 63 65 20 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 29 29 29 0a 20 20 | ntext-source.error-context)))... |
| 1a0d60 | 20 20 28 61 6e 64 20 28 6f 72 20 65 6e 63 6c 6f 73 69 6e 67 20 73 6f 75 72 63 65 29 0a 20 20 20 | ..(and.(or.enclosing.source).... |
| 1a0d80 | 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 40 5b 2d 2d 3e 20 7e 7b 7e 3c 7e 25 | ......(format.nil."~@[-->.~{~<~% |
| 1a0da0 | 2d 2d 3e 20 7e 31 3a 3b 7e 41 7e 3e 20 7e 7d 7e 25 7e 5d 7e 40 5b 7e 7b 3d 3d 3e 7e 25 7e 41 7e | -->.~1:;~A~>.~}~%~]~@[~{==>~%~A~ |
| 1a0dc0 | 25 7e 7d 7e 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 63 6c 6f 73 69 6e | %~}~]"..................enclosin |
| 1a0de0 | 67 20 73 6f 75 72 63 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 2d 73 6f | g.source))))..(defun.compiler-so |
| 1a0e00 | 75 72 63 65 2d 70 61 74 68 20 28 63 6f 6e 74 65 78 74 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 | urce-path.(context)..."Return.th |
| 1a0e20 | 65 20 73 6f 75 72 63 65 2d 70 61 74 68 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f | e.source-path.for.the.current.co |
| 1a0e40 | 6d 70 69 6c 65 72 20 65 72 72 6f 72 2e 0a 52 65 74 75 72 6e 73 20 4e 49 4c 20 69 66 20 74 68 69 | mpiler.error..Returns.NIL.if.thi |
| 1a0e60 | 73 20 63 61 6e 6e 6f 74 20 62 65 20 64 65 74 65 72 6d 69 6e 65 64 20 62 79 20 65 78 61 6d 69 6e | s.cannot.be.determined.by.examin |
| 1a0e80 | 69 6e 67 20 69 6e 74 65 72 6e 61 6c 0a 63 6f 6d 70 69 6c 65 72 20 73 74 61 74 65 2e 22 0a 20 20 | ing.internal.compiler.state."... |
| 1a0ea0 | 28 63 6f 6e 64 20 28 28 73 62 2d 63 3a 3a 6e 6f 64 65 2d 70 20 63 6f 6e 74 65 78 74 29 0a 20 20 | (cond.((sb-c::node-p.context)... |
| 1a0ec0 | 20 20 20 20 20 20 20 28 72 65 76 65 72 73 65 0a 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 63 3a | .......(reverse...........(sb-c: |
| 1a0ee0 | 3a 73 6f 75 72 63 65 2d 70 61 74 68 2d 6f 72 69 67 69 6e 61 6c 2d 73 6f 75 72 63 65 0a 20 20 20 | :source-path-original-source.... |
| 1a0f00 | 20 20 20 20 20 20 20 20 28 73 62 2d 63 3a 3a 6e 6f 64 65 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 | ........(sb-c::node-source-path. |
| 1a0f20 | 63 6f 6e 74 65 78 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 62 2d 63 3a 3a 63 6f 6d 70 | context)))).........((sb-c::comp |
| 1a0f40 | 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 2d 70 20 63 6f 6e 74 65 78 74 29 0a 20 20 | iler-error-context-p.context)... |
| 1a0f60 | 20 20 20 20 20 20 20 28 72 65 76 65 72 73 65 0a 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 63 3a | .......(reverse...........(sb-c: |
| 1a0f80 | 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 2d 6f 72 69 67 69 6e 61 6c | :compiler-error-context-original |
| 1a0fa0 | 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 63 6f 6e 74 65 78 74 29 29 29 29 29 0a 0a 28 64 65 66 69 | -source-path.context)))))..(defi |
| 1a0fc0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 | mplementation.call-with-compilat |
| 1a0fe0 | 69 6f 6e 2d 68 6f 6f 6b 73 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 64 65 63 6c 61 72 65 20 | ion-hooks.(function)...(declare. |
| 1a1000 | 28 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 68 61 6e | (type.function.function))...(han |
| 1a1020 | 64 6c 65 72 2d 62 69 6e 64 0a 20 20 20 20 20 20 3b 3b 20 4e 2e 42 2e 20 45 76 65 6e 20 74 68 6f | dler-bind.......;;.N.B..Even.tho |
| 1a1040 | 75 67 68 20 74 68 65 73 65 20 68 61 6e 64 6c 65 72 73 20 61 72 65 20 63 61 6c 6c 65 64 20 48 41 | ugh.these.handlers.are.called.HA |
| 1a1060 | 4e 44 4c 45 2d 46 4f 4f 20 74 68 65 79 0a 20 20 20 20 20 20 3b 3b 20 61 63 74 75 61 6c 6c 79 20 | NDLE-FOO.they.......;;.actually. |
| 1a1080 | 64 65 63 6c 69 6e 65 2c 20 69 2e 65 2e 20 74 68 65 20 73 69 67 6e 61 6c 6c 69 6e 67 20 6f 66 20 | decline,.i.e..the.signalling.of. |
| 1a10a0 | 74 68 65 20 6f 72 69 67 69 6e 61 6c 0a 20 20 20 20 20 20 3b 3b 20 63 6f 6e 64 69 74 69 6f 6e 20 | the.original.......;;.condition. |
| 1a10c0 | 63 6f 6e 74 69 6e 75 65 73 20 75 70 77 61 72 64 2e 0a 20 20 20 20 20 20 28 28 73 62 2d 63 3a 66 | continues.upward........((sb-c:f |
| 1a10e0 | 61 74 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 20 23 27 68 61 6e 64 6c 65 2d 6e 6f 74 | atal-compiler-error.#'handle-not |
| 1a1100 | 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 73 62 2d | ification-condition)........(sb- |
| 1a1120 | 63 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 20 20 20 20 20 20 20 23 27 68 61 6e 64 6c 65 2d | c:compiler-error.......#'handle- |
| 1a1140 | 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 | notification-condition)........( |
| 1a1160 | 73 62 2d 65 78 74 3a 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 20 20 20 20 20 20 23 27 68 61 6e 64 | sb-ext:compiler-note......#'hand |
| 1a1180 | 6c 65 2d 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 | le-notification-condition)...... |
| 1a11a0 | 20 20 28 65 72 72 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 68 | ..(error.....................#'h |
| 1a11c0 | 61 6e 64 6c 65 2d 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 | andle-notification-condition)... |
| 1a11e0 | 20 20 20 20 20 28 77 61 72 6e 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(warning................... |
| 1a1200 | 23 27 68 61 6e 64 6c 65 2d 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f 6e 29 | #'handle-notification-condition) |
| 1a1220 | 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 3b 3b 3b 20 | ).....(funcall.function)))..;;;. |
| 1a1240 | 48 41 43 4b 3a 20 53 42 43 4c 20 31 2e 32 2e 31 32 20 73 68 69 70 70 65 64 20 77 69 74 68 20 61 | HACK:.SBCL.1.2.12.shipped.with.a |
| 1a1260 | 20 62 75 67 20 77 68 65 72 65 0a 3b 3b 3b 20 53 42 2d 45 58 54 3a 52 45 53 54 52 49 43 54 2d 43 | .bug.where.;;;.SB-EXT:RESTRICT-C |
| 1a1280 | 4f 4d 50 49 4c 45 52 2d 50 4f 4c 49 43 59 20 77 6f 75 6c 64 20 73 69 67 6e 61 6c 20 61 6e 20 65 | OMPILER-POLICY.would.signal.an.e |
| 1a12a0 | 72 72 6f 72 20 77 68 65 6e 20 74 68 65 72 65 0a 3b 3b 3b 20 77 65 72 65 20 6e 6f 20 70 6f 6c 69 | rror.when.there.;;;.were.no.poli |
| 1a12c0 | 63 79 20 72 65 73 74 72 69 63 74 69 6f 6e 73 20 69 6e 20 70 6c 61 63 65 2e 20 54 68 69 73 20 77 | cy.restrictions.in.place..This.w |
| 1a12e0 | 6f 72 6b 61 72 6f 75 6e 64 20 65 6e 73 75 72 65 73 20 74 68 65 0a 3b 3b 3b 20 65 78 69 73 74 65 | orkaround.ensures.the.;;;.existe |
| 1a1300 | 6e 63 65 20 6f 66 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 64 75 6d 6d 79 20 72 65 73 74 72 69 | nce.of.at.least.one.dummy.restri |
| 1a1320 | 63 74 69 6f 6e 2e 0a 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 73 62 2d 65 78 74 3a 72 65 73 | ction..(handler-case.(sb-ext:res |
| 1a1340 | 74 72 69 63 74 2d 63 6f 6d 70 69 6c 65 72 2d 70 6f 6c 69 63 79 29 0a 20 20 28 65 72 72 6f 72 20 | trict-compiler-policy)...(error. |
| 1a1360 | 28 29 20 28 73 62 2d 65 78 74 3a 72 65 73 74 72 69 63 74 2d 63 6f 6d 70 69 6c 65 72 2d 70 6f 6c | ().(sb-ext:restrict-compiler-pol |
| 1a1380 | 69 63 79 20 27 64 65 62 75 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 2d 70 | icy.'debug)))..(defun.compiler-p |
| 1a13a0 | 6f 6c 69 63 79 20 28 71 75 61 6c 69 74 69 65 73 29 0a 20 20 22 52 65 74 75 72 6e 20 63 6f 6d 70 | olicy.(qualities)..."Return.comp |
| 1a13c0 | 69 6c 65 72 20 70 6f 6c 69 63 79 20 71 75 61 6c 69 74 69 65 73 20 70 72 65 73 65 6e 74 20 69 6e | iler.policy.qualities.present.in |
| 1a13e0 | 20 74 68 65 20 51 55 41 4c 49 54 49 45 53 20 61 6c 69 73 74 2e 0a 51 55 41 4c 49 54 49 45 53 20 | .the.QUALITIES.alist..QUALITIES. |
| 1a1400 | 69 73 20 61 6e 20 61 6c 69 73 74 20 77 69 74 68 20 28 71 75 61 6c 69 74 79 20 2e 20 76 61 6c 75 | is.an.alist.with.(quality...valu |
| 1a1420 | 65 29 22 0a 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 | e)"...#+#.(swank/backend:with-sy |
| 1a1440 | 6d 62 6f 6c 20 27 72 65 73 74 72 69 63 74 2d 63 6f 6d 70 69 6c 65 72 2d 70 6f 6c 69 63 79 20 27 | mbol.'restrict-compiler-policy.' |
| 1a1460 | 73 62 2d 65 78 74 29 0a 20 20 28 6c 6f 6f 70 20 77 69 74 68 20 70 6f 6c 69 63 79 20 3d 20 28 73 | sb-ext)...(loop.with.policy.=.(s |
| 1a1480 | 62 2d 65 78 74 3a 72 65 73 74 72 69 63 74 2d 63 6f 6d 70 69 6c 65 72 2d 70 6f 6c 69 63 79 29 0a | b-ext:restrict-compiler-policy). |
| 1a14a0 | 20 20 20 20 20 20 20 20 66 6f 72 20 28 71 75 61 6c 69 74 79 29 20 69 6e 20 71 75 61 6c 69 74 69 | ........for.(quality).in.qualiti |
| 1a14c0 | 65 73 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 63 6f 6e 73 20 71 75 61 6c 69 74 79 | es.........collect.(cons.quality |
| 1a14e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 63 64 72 20 | .......................(or.(cdr. |
| 1a1500 | 28 61 73 73 6f 63 20 71 75 61 6c 69 74 79 20 70 6f 6c 69 63 79 29 29 0a 20 20 20 20 20 20 20 20 | (assoc.quality.policy))......... |
| 1a1520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ..................0))))..(defun. |
| 1a1540 | 28 73 65 74 66 20 63 6f 6d 70 69 6c 65 72 2d 70 6f 6c 69 63 79 29 20 28 70 6f 6c 69 63 79 29 0a | (setf.compiler-policy).(policy). |
| 1a1560 | 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 61 62 6c 65 20 70 6f 6c 69 63 79 29 29 0a 20 | ..(declare.(ignorable.policy)).. |
| 1a1580 | 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 | .#+#.(swank/backend:with-symbol. |
| 1a15a0 | 27 72 65 73 74 72 69 63 74 2d 63 6f 6d 70 69 6c 65 72 2d 70 6f 6c 69 63 79 20 27 73 62 2d 65 78 | 'restrict-compiler-policy.'sb-ex |
| 1a15c0 | 74 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 71 75 61 6c 20 2e 20 76 61 6c 75 65 29 20 69 6e | t)...(loop.for.(qual...value).in |
| 1a15e0 | 20 70 6f 6c 69 63 79 0a 20 20 20 20 20 20 20 20 64 6f 20 28 73 62 2d 65 78 74 3a 72 65 73 74 72 | .policy.........do.(sb-ext:restr |
| 1a1600 | 69 63 74 2d 63 6f 6d 70 69 6c 65 72 2d 70 6f 6c 69 63 79 20 71 75 61 6c 20 76 61 6c 75 65 29 29 | ict-compiler-policy.qual.value)) |
| 1a1620 | 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 63 6f 6d 70 69 6c 65 72 2d 70 6f 6c 69 63 | )..(defmacro.with-compiler-polic |
| 1a1640 | 79 20 28 70 6f 6c 69 63 79 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 28 6c 65 74 20 28 28 63 | y.(policy.&body.body)...(let.((c |
| 1a1660 | 75 72 72 65 6e 74 2d 70 6f 6c 69 63 79 20 28 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 60 28 6c | urrent-policy.(gensym))).....`(l |
| 1a1680 | 65 74 20 28 28 2c 63 75 72 72 65 6e 74 2d 70 6f 6c 69 63 79 20 28 63 6f 6d 70 69 6c 65 72 2d 70 | et.((,current-policy.(compiler-p |
| 1a16a0 | 6f 6c 69 63 79 20 2c 70 6f 6c 69 63 79 29 29 29 0a 20 20 20 20 20 20 20 28 73 65 74 66 20 28 63 | olicy.,policy)))........(setf.(c |
| 1a16c0 | 6f 6d 70 69 6c 65 72 2d 70 6f 6c 69 63 79 29 20 2c 70 6f 6c 69 63 79 29 0a 20 20 20 20 20 20 20 | ompiler-policy).,policy)........ |
| 1a16e0 | 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 0a 20 | (unwind-protect.(progn.,@body).. |
| 1a1700 | 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 63 6f 6d 70 69 6c 65 72 2d 70 6f 6c 69 63 79 29 20 | ........(setf.(compiler-policy). |
| 1a1720 | 2c 63 75 72 72 65 6e 74 2d 70 6f 6c 69 63 79 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | ,current-policy)))))..(defimplem |
| 1a1740 | 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 28 69 6e 70 | entation.swank-compile-file.(inp |
| 1a1760 | 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ut-file.output-file............. |
| 1a1780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 61 64 2d | ...........................load- |
| 1a17a0 | 70 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p.external-format............... |
| 1a17c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 70 6f | .........................&key.po |
| 1a17e0 | 6c 69 63 79 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6f 75 | licy)...(multiple-value-bind.(ou |
| 1a1800 | 74 70 75 74 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 2d 70 20 66 61 69 6c 75 72 65 2d 70 29 0a | tput-file.warnings-p.failure-p). |
| 1a1820 | 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 65 72 2d 70 6f 6c 69 63 79 20 70 6f 6c 69 | ......(with-compiler-policy.poli |
| 1a1840 | 63 79 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f | cy.........(with-compilation-hoo |
| 1a1860 | 6b 73 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 69 6e | ks.()...........(compile-file.in |
| 1a1880 | 70 75 74 2d 66 69 6c 65 20 3a 6f 75 74 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c | put-file.:output-file.output-fil |
| 1a18a0 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 | e.........................:exter |
| 1a18c0 | 6e 61 6c 2d 66 6f 72 6d 61 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 29 0a 20 20 | nal-format.external-format)))... |
| 1a18e0 | 20 20 28 76 61 6c 75 65 73 20 6f 75 74 70 75 74 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 2d 70 | ..(values.output-file.warnings-p |
| 1a1900 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 66 61 69 6c 75 72 65 2d 70 0a 20 20 20 20 20 | .............(or.failure-p...... |
| 1a1920 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6c 6f 61 64 2d 70 0a 20 20 20 20 20 20 20 20 | ...........(when.load-p......... |
| 1a1940 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 61 63 68 65 20 74 68 65 20 6c 61 74 65 73 74 20 73 6f | ..........;;.Cache.the.latest.so |
| 1a1960 | 75 72 63 65 20 66 69 6c 65 20 66 6f 72 20 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 | urce.file.for.definition-finding |
| 1a1980 | 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 63 61 63 68 | ....................(source-cach |
| 1a19a0 | 65 2d 67 65 74 20 69 6e 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-get.input-file................ |
| 1a19c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 77 72 69 74 65 | .....................(file-write |
| 1a19e0 | 2d 64 61 74 65 20 69 6e 70 75 74 2d 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -date.input-file)).............. |
| 1a1a00 | 20 20 20 20 20 28 6e 6f 74 20 28 6c 6f 61 64 20 6f 75 74 70 75 74 2d 66 69 6c 65 29 29 29 29 29 | .....(not.(load.output-file))))) |
| 1a1a20 | 29 29 0a 0a 3b 3b 3b 3b 20 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 0a 0a 3b 3b 3b 20 57 65 20 | ))..;;;;.compile-string..;;;.We. |
| 1a1a40 | 63 6f 70 79 20 74 68 65 20 73 74 72 69 6e 67 20 74 6f 20 61 20 74 65 6d 70 6f 72 61 72 79 20 66 | copy.the.string.to.a.temporary.f |
| 1a1a60 | 69 6c 65 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 67 65 74 20 61 64 65 71 75 61 74 65 0a 3b 3b 3b | ile.in.order.to.get.adequate.;;; |
| 1a1a80 | 20 73 65 6d 61 6e 74 69 63 73 20 66 6f 72 20 3a 43 4f 4d 50 49 4c 45 2d 54 4f 50 4c 45 56 45 4c | .semantics.for.:COMPILE-TOPLEVEL |
| 1a1aa0 | 20 61 6e 64 20 3a 4c 4f 41 44 2d 54 4f 50 4c 45 56 45 4c 20 45 56 41 4c 2d 57 48 45 4e 20 66 6f | .and.:LOAD-TOPLEVEL.EVAL-WHEN.fo |
| 1a1ac0 | 72 6d 73 0a 3b 3b 3b 20 77 68 69 63 68 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 61 70 70 72 6f | rms.;;;.which.the.previous.appro |
| 1a1ae0 | 61 63 68 20 75 73 69 6e 67 0a 3b 3b 3b 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 20 6e 69 6c 20 60 | ach.using.;;;.....(compile.nil.` |
| 1a1b00 | 28 6c 61 6d 62 64 61 20 28 29 20 2c 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 | (lambda.().,(read-from-string.st |
| 1a1b20 | 72 69 6e 67 29 29 29 0a 3b 3b 3b 20 64 69 64 20 6e 6f 74 20 70 72 6f 76 69 64 65 2e 0a 0a 28 6c | ring))).;;;.did.not.provide...(l |
| 1a1b40 | 6f 63 61 6c 6c 79 20 28 64 65 63 6c 61 72 65 20 28 73 62 2d 65 78 74 3a 6d 75 66 66 6c 65 2d 63 | ocally.(declare.(sb-ext:muffle-c |
| 1a1b60 | 6f 6e 64 69 74 69 6f 6e 73 20 73 62 2d 65 78 74 3a 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 29 29 | onditions.sb-ext:compiler-note)) |
| 1a1b80 | 0a 0a 28 73 62 2d 61 6c 69 65 6e 3a 64 65 66 69 6e 65 2d 61 6c 69 65 6e 2d 72 6f 75 74 69 6e 65 | ..(sb-alien:define-alien-routine |
| 1a1ba0 | 20 28 23 2d 77 69 6e 33 32 20 22 74 65 6d 70 6e 61 6d 22 20 23 2b 77 69 6e 33 32 20 22 5f 74 65 | .(#-win32."tempnam".#+win32."_te |
| 1a1bc0 | 6d 70 6e 61 6d 22 20 74 65 6d 70 6e 61 6d 29 0a 20 20 20 20 73 62 2d 61 6c 69 65 6e 3a 63 2d 73 | mpnam".tempnam).....sb-alien:c-s |
| 1a1be0 | 74 72 69 6e 67 0a 20 20 28 64 69 72 20 73 62 2d 61 6c 69 65 6e 3a 63 2d 73 74 72 69 6e 67 29 0a | tring...(dir.sb-alien:c-string). |
| 1a1c00 | 20 20 28 70 72 65 66 69 78 20 73 62 2d 61 6c 69 65 6e 3a 63 2d 73 74 72 69 6e 67 29 29 29 0a 0a | ..(prefix.sb-alien:c-string))).. |
| 1a1c20 | 28 64 65 66 75 6e 20 74 65 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 29 0a 20 20 22 52 65 74 75 | (defun.temp-file-name.()..."Retu |
| 1a1c40 | 72 6e 20 61 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 20 6e 61 6d 65 20 74 6f 20 63 6f 6d 70 | rn.a.temporary.file.name.to.comp |
| 1a1c60 | 69 6c 65 20 73 74 72 69 6e 67 73 20 69 6e 74 6f 2e 22 0a 20 20 28 74 65 6d 70 6e 61 6d 20 6e 69 | ile.strings.into."...(tempnam.ni |
| 1a1c80 | 6c 20 22 73 6c 69 6d 65 22 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 74 72 61 70 2d 6c 6f 61 64 2d | l."slime"))..(defvar.*trap-load- |
| 1a1ca0 | 74 69 6d 65 2d 77 61 72 6e 69 6e 67 73 2a 20 74 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | time-warnings*.t)..(defimplement |
| 1a1cc0 | 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 | ation.swank-compile-string.(stri |
| 1a1ce0 | 6e 67 20 26 6b 65 79 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 | ng.&key.buffer.position.filename |
| 1a1d00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a1d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c | .................line.column.pol |
| 1a1d40 | 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6c 69 6e 65 20 63 6f 6c | icy)...(declare.(ignore.line.col |
| 1a1d60 | 75 6d 6e 29 29 0a 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 62 75 66 | umn))...(let.((*buffer-name*.buf |
| 1a1d80 | 66 65 72 29 0a 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 2d 6f 66 66 73 65 74 2a 20 70 6f | fer).........(*buffer-offset*.po |
| 1a1da0 | 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 | sition).........(*buffer-substri |
| 1a1dc0 | 6e 67 2a 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 2d 74 6d 70 | ng*.string).........(*buffer-tmp |
| 1a1de0 | 66 69 6c 65 2a 20 28 74 65 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 6c 61 | file*.(temp-file-name))).....(la |
| 1a1e00 | 62 65 6c 73 20 28 28 6c 6f 61 64 2d 69 74 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 | bels.((load-it.(filename)....... |
| 1a1e20 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 2a 74 72 61 70 2d 6c 6f 61 64 2d 74 69 6d 65 2d | .........(cond.(*trap-load-time- |
| 1a1e40 | 77 61 72 6e 69 6e 67 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | warnings*....................... |
| 1a1e60 | 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 20 28 6c 6f 61 64 | (with-compilation-hooks.().(load |
| 1a1e80 | 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .filename))).................... |
| 1a1ea0 | 20 20 28 74 20 28 6c 6f 61 64 20 66 69 6c 65 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 | ..(t.(load.filename))))......... |
| 1a1ec0 | 20 20 20 20 20 28 63 66 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 | .....(cf.()................(with |
| 1a1ee0 | 2d 63 6f 6d 70 69 6c 65 72 2d 70 6f 6c 69 63 79 20 70 6f 6c 69 63 79 0a 20 20 20 20 20 20 20 20 | -compiler-policy.policy......... |
| 1a1f00 | 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 75 6e 69 74 0a | .........(with-compilation-unit. |
| 1a1f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 6f 75 72 63 65 2d 70 6c | .....................(:source-pl |
| 1a1f40 | 69 73 74 20 28 6c 69 73 74 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 | ist.(list.:emacs-buffer.buffer.. |
| 1a1f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a1f80 | 20 20 20 20 20 20 20 20 20 3a 65 6d 61 63 73 2d 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 6e 61 6d | .........:emacs-filename.filenam |
| 1a1fa0 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e............................... |
| 1a1fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6d 61 63 73 2d 70 61 63 6b 61 67 65 20 28 70 61 63 6b | ............:emacs-package.(pack |
| 1a1fe0 | 61 67 65 2d 6e 61 6d 65 20 2a 70 61 63 6b 61 67 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | age-name.*package*)............. |
| 1a2000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 | ..............................:e |
| 1a2020 | 6d 61 63 73 2d 70 6f 73 69 74 69 6f 6e 20 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | macs-position.position.......... |
| 1a2040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a2060 | 20 3a 65 6d 61 63 73 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 | .:emacs-string.string).......... |
| 1a2080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6f 75 72 63 65 2d 6e 61 6d 65 73 74 72 69 6e 67 20 | .............:source-namestring. |
| 1a20a0 | 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | filename.......................: |
| 1a20c0 | 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | allow-other-keys.t)............. |
| 1a20e0 | 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 2a 62 75 66 66 65 72 2d 74 6d 70 | .......(compile-file.*buffer-tmp |
| 1a2100 | 66 69 6c 65 2a 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 3a 75 74 66 2d 38 29 29 29 | file*.:external-format.:utf-8))) |
| 1a2120 | 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 73 20 2a 62 75 66 | )).......(with-open-file.(s.*buf |
| 1a2140 | 66 65 72 2d 74 6d 70 66 69 6c 65 2a 20 3a 64 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 20 | fer-tmpfile*.:direction.:output. |
| 1a2160 | 3a 69 66 2d 65 78 69 73 74 73 20 3a 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :if-exists.:error............... |
| 1a2180 | 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 3a 75 74 66 | ...........:external-format.:utf |
| 1a21a0 | 2d 38 29 0a 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 | -8).........(write-string.string |
| 1a21c0 | 20 73 29 29 0a 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 | .s)).......(unwind-protect...... |
| 1a21e0 | 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6f 75 74 70 | ......(multiple-value-bind.(outp |
| 1a2200 | 75 74 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 70 20 66 61 69 6c 75 72 65 70 29 0a 20 20 20 20 | ut-file.warningsp.failurep)..... |
| 1a2220 | 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f | ...........(with-compilation-hoo |
| 1a2240 | 6b 73 20 28 29 20 28 63 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 | ks.().(cf))..............(declar |
| 1a2260 | 65 20 28 69 67 6e 6f 72 65 20 77 61 72 6e 69 6e 67 73 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 | e.(ignore.warningsp))........... |
| 1a2280 | 20 20 20 28 77 68 65 6e 20 6f 75 74 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 | ...(when.output-file............ |
| 1a22a0 | 20 20 20 20 28 6c 6f 61 64 2d 69 74 20 6f 75 74 70 75 74 2d 66 69 6c 65 29 29 0a 20 20 20 20 20 | ....(load-it.output-file))...... |
| 1a22c0 | 20 20 20 20 20 20 20 20 28 6e 6f 74 20 66 61 69 6c 75 72 65 70 29 29 0a 20 20 20 20 20 20 20 20 | ........(not.failurep))......... |
| 1a22e0 | 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 | (ignore-errors...........(delete |
| 1a2300 | 2d 66 69 6c 65 20 2a 62 75 66 66 65 72 2d 74 6d 70 66 69 6c 65 2a 29 0a 20 20 20 20 20 20 20 20 | -file.*buffer-tmpfile*)......... |
| 1a2320 | 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 | ..(delete-file.(compile-file-pat |
| 1a2340 | 68 6e 61 6d 65 20 2a 62 75 66 66 65 72 2d 74 6d 70 66 69 6c 65 2a 29 29 29 29 29 29 29 0a 0a 3b | hname.*buffer-tmpfile*)))))))..; |
| 1a2360 | 3b 3b 3b 20 44 65 66 69 6e 69 74 69 6f 6e 73 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a | ;;;.Definitions..(defparameter.* |
| 1a2380 | 64 65 66 69 6e 69 74 69 6f 6e 2d 74 79 70 65 73 2a 0a 20 20 27 28 3a 76 61 72 69 61 62 6c 65 20 | definition-types*...'(:variable. |
| 1a23a0 | 64 65 66 76 61 72 0a 20 20 20 20 3a 63 6f 6e 73 74 61 6e 74 20 64 65 66 63 6f 6e 73 74 61 6e 74 | defvar.....:constant.defconstant |
| 1a23c0 | 0a 20 20 20 20 3a 74 79 70 65 20 64 65 66 74 79 70 65 0a 20 20 20 20 3a 73 79 6d 62 6f 6c 2d 6d | .....:type.deftype.....:symbol-m |
| 1a23e0 | 61 63 72 6f 20 64 65 66 69 6e 65 2d 73 79 6d 62 6f 6c 2d 6d 61 63 72 6f 0a 20 20 20 20 3a 6d 61 | acro.define-symbol-macro.....:ma |
| 1a2400 | 63 72 6f 20 64 65 66 6d 61 63 72 6f 0a 20 20 20 20 3a 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f | cro.defmacro.....:compiler-macro |
| 1a2420 | 20 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 0a 20 20 20 20 3a 66 75 6e 63 | .define-compiler-macro.....:func |
| 1a2440 | 74 69 6f 6e 20 64 65 66 75 6e 0a 20 20 20 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e | tion.defun.....:generic-function |
| 1a2460 | 20 64 65 66 67 65 6e 65 72 69 63 0a 20 20 20 20 3a 6d 65 74 68 6f 64 20 64 65 66 6d 65 74 68 6f | .defgeneric.....:method.defmetho |
| 1a2480 | 64 0a 20 20 20 20 3a 73 65 74 66 2d 65 78 70 61 6e 64 65 72 20 64 65 66 69 6e 65 2d 73 65 74 66 | d.....:setf-expander.define-setf |
| 1a24a0 | 2d 65 78 70 61 6e 64 65 72 0a 20 20 20 20 3a 73 74 72 75 63 74 75 72 65 20 64 65 66 73 74 72 75 | -expander.....:structure.defstru |
| 1a24c0 | 63 74 0a 20 20 20 20 3a 63 6f 6e 64 69 74 69 6f 6e 20 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 | ct.....:condition.define-conditi |
| 1a24e0 | 6f 6e 0a 20 20 20 20 3a 63 6c 61 73 73 20 64 65 66 63 6c 61 73 73 0a 20 20 20 20 3a 6d 65 74 68 | on.....:class.defclass.....:meth |
| 1a2500 | 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 64 65 66 69 6e 65 2d 6d 65 74 68 6f 64 2d 63 6f 6d | od-combination.define-method-com |
| 1a2520 | 62 69 6e 61 74 69 6f 6e 0a 20 20 20 20 3a 70 61 63 6b 61 67 65 20 64 65 66 70 61 63 6b 61 67 65 | bination.....:package.defpackage |
| 1a2540 | 0a 20 20 20 20 3a 74 72 61 6e 73 66 6f 72 6d 20 3a 64 65 66 74 72 61 6e 73 66 6f 72 6d 0a 20 20 | .....:transform.:deftransform... |
| 1a2560 | 20 20 3a 6f 70 74 69 6d 69 7a 65 72 20 3a 64 65 66 6f 70 74 69 6d 69 7a 65 72 0a 20 20 20 20 3a | ..:optimizer.:defoptimizer.....: |
| 1a2580 | 76 6f 70 20 3a 64 65 66 69 6e 65 2d 76 6f 70 0a 20 20 20 20 3a 73 6f 75 72 63 65 2d 74 72 61 6e | vop.:define-vop.....:source-tran |
| 1a25a0 | 73 66 6f 72 6d 20 3a 64 65 66 69 6e 65 2d 73 6f 75 72 63 65 2d 74 72 61 6e 73 66 6f 72 6d 0a 20 | sform.:define-source-transform.. |
| 1a25c0 | 20 20 20 3a 69 72 31 2d 63 6f 6e 76 65 72 74 20 3a 64 65 66 2d 69 72 31 2d 74 72 61 6e 73 6c 61 | ...:ir1-convert.:def-ir1-transla |
| 1a25e0 | 74 6f 72 0a 20 20 20 20 3a 64 65 63 6c 61 72 61 74 69 6f 6e 20 64 65 63 6c 61 69 6d 0a 20 20 20 | tor.....:declaration.declaim.... |
| 1a2600 | 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 3a 64 65 66 69 6e 65 2d 61 6c 69 65 6e 2d 74 79 70 65 29 | .:alien-type.:define-alien-type) |
| 1a2620 | 0a 20 20 22 4d 61 70 20 53 42 2d 49 4e 54 52 4f 53 50 45 43 54 20 64 65 66 69 6e 69 74 69 6f 6e | ..."Map.SB-INTROSPECT.definition |
| 1a2640 | 20 74 79 70 65 20 6e 61 6d 65 73 20 74 6f 20 53 6c 69 6d 65 2d 66 72 69 65 6e 64 6c 79 20 66 6f | .type.names.to.Slime-friendly.fo |
| 1a2660 | 72 6d 73 22 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 70 65 63 69 66 69 | rms")..(defun.definition-specifi |
| 1a2680 | 65 72 20 28 74 79 70 65 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 70 72 65 74 74 79 20 73 70 65 | er.(type)..."Return.a.pretty.spe |
| 1a26a0 | 63 69 66 69 65 72 20 66 6f 72 20 4e 41 4d 45 20 72 65 70 72 65 73 65 6e 74 69 6e 67 20 61 20 64 | cifier.for.NAME.representing.a.d |
| 1a26c0 | 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 79 70 65 20 54 59 50 45 2e 22 0a 20 20 28 67 65 74 66 | efinition.of.type.TYPE."...(getf |
| 1a26e0 | 20 2a 64 65 66 69 6e 69 74 69 6f 6e 2d 74 79 70 65 73 2a 20 74 79 70 65 29 29 0a 0a 28 64 65 66 | .*definition-types*.type))..(def |
| 1a2700 | 75 6e 20 6d 61 6b 65 2d 64 73 70 65 63 20 28 74 79 70 65 20 6e 61 6d 65 20 73 6f 75 72 63 65 2d | un.make-dspec.(type.name.source- |
| 1a2720 | 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6c 69 73 74 2a 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 | location)...(list*.(definition-s |
| 1a2740 | 70 65 63 69 66 69 65 72 20 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 6e 61 6d 65 0a 20 20 20 | pecifier.type)..........name.... |
| 1a2760 | 20 20 20 20 20 20 28 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 3a 3a 64 65 66 69 6e 69 74 69 6f 6e | ......(sb-introspect::definition |
| 1a2780 | 2d 73 6f 75 72 63 65 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 | -source-description.source-locat |
| 1a27a0 | 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d | ion)))..(defimplementation.find- |
| 1a27c0 | 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 74 | definitions.(name)...(loop.for.t |
| 1a27e0 | 79 70 65 20 69 6e 20 2a 64 65 66 69 6e 69 74 69 6f 6e 2d 74 79 70 65 73 2a 20 62 79 20 23 27 63 | ype.in.*definition-types*.by.#'c |
| 1a2800 | 64 64 72 0a 20 20 20 20 20 20 20 20 66 6f 72 20 64 65 66 73 72 63 73 20 3d 20 28 73 62 2d 69 6e | ddr.........for.defsrcs.=.(sb-in |
| 1a2820 | 74 72 6f 73 70 65 63 74 3a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 73 | trospect:find-definition-sources |
| 1a2840 | 2d 62 79 2d 6e 61 6d 65 20 6e 61 6d 65 20 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 66 6f 72 20 | -by-name.name.type).........for. |
| 1a2860 | 66 69 6c 74 65 72 65 64 2d 64 65 66 73 72 63 73 20 3d 20 28 69 66 20 28 65 71 20 74 79 70 65 20 | filtered-defsrcs.=.(if.(eq.type. |
| 1a2880 | 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | :generic-function).............. |
| 1a28a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 3a 69 | ......................(remove.:i |
| 1a28c0 | 6e 76 61 6c 69 64 20 64 65 66 73 72 63 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nvalid.defsrcs.................. |
| 1a28e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 | ..........................:key.# |
| 1a2900 | 27 63 61 74 65 67 6f 72 69 7a 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 29 0a 20 | 'categorize-definition-source).. |
| 1a2920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a2940 | 20 20 64 65 66 73 72 63 73 29 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c 6f 6f 70 20 | ..defsrcs).........append.(loop. |
| 1a2960 | 66 6f 72 20 64 65 66 73 72 63 20 69 6e 20 66 69 6c 74 65 72 65 64 2d 64 65 66 73 72 63 73 20 63 | for.defsrc.in.filtered-defsrcs.c |
| 1a2980 | 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | ollect......................(lis |
| 1a29a0 | 74 20 28 6d 61 6b 65 2d 64 73 70 65 63 20 74 79 70 65 20 6e 61 6d 65 20 64 65 66 73 72 63 29 0a | t.(make-dspec.type.name.defsrc). |
| 1a29c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 76 | ...........................(conv |
| 1a29e0 | 65 72 74 69 6e 67 2d 65 72 72 6f 72 73 2d 74 6f 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 0a | erting-errors-to-error-location. |
| 1a2a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 | .............................(de |
| 1a2a20 | 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 6f 72 2d 65 6d 61 63 73 20 64 65 66 73 72 63 | finition-source-for-emacs.defsrc |
| 1a2a40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a2a60 | 20 20 74 79 70 65 20 6e 61 6d 65 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | ..type.name))))))..(defimplement |
| 1a2a80 | 61 74 69 6f 6e 20 66 69 6e 64 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 62 6a 29 | ation.find-source-location.(obj) |
| 1a2aa0 | 0a 20 20 28 66 6c 65 74 20 28 28 67 65 6e 65 72 61 6c 2d 74 79 70 65 2d 6f 66 20 28 6f 62 6a 29 | ...(flet.((general-type-of.(obj) |
| 1a2ac0 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 6f 62 6a 0a 20 20 20 20 20 20 | ............(typecase.obj....... |
| 1a2ae0 | 20 20 20 20 20 20 20 28 6d 65 74 68 6f 64 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 65 74 68 | .......(method.............:meth |
| 1a2b00 | 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 | od)..............(generic-functi |
| 1a2b20 | 6f 6e 20 20 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | on...:generic-function)......... |
| 1a2b40 | 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 3a 66 75 6e 63 74 69 | .....(function...........:functi |
| 1a2b60 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 75 63 74 75 72 65 2d 63 6c 61 73 | on)..............(structure-clas |
| 1a2b80 | 73 20 20 20 20 3a 73 74 72 75 63 74 75 72 65 2d 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 | s....:structure-class).......... |
| 1a2ba0 | 20 20 20 20 28 63 6c 61 73 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6c 61 73 73 29 0a | ....(class..............:class). |
| 1a2bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e | .............(method-combination |
| 1a2be0 | 20 3a 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 | .:method-combination)........... |
| 1a2c00 | 20 20 20 28 70 61 63 6b 61 67 65 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 61 63 6b 61 67 65 29 | ...(package............:package) |
| 1a2c20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 20 20 20 20 20 20 20 20 | ..............(condition........ |
| 1a2c40 | 20 20 3a 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 75 | ..:condition)..............(stru |
| 1a2c60 | 63 74 75 72 65 2d 6f 62 6a 65 63 74 20 20 20 3a 73 74 72 75 63 74 75 72 65 2d 6f 62 6a 65 63 74 | cture-object...:structure-object |
| 1a2c80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 61 6e 64 61 72 64 2d 6f 62 6a 65 63 74 20 | )..............(standard-object. |
| 1a2ca0 | 20 20 20 3a 73 74 61 6e 64 61 72 64 2d 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ...:standard-object)............ |
| 1a2cc0 | 20 20 28 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 68 69 6e 67 29 29 29 0a | ..(t..................:thing))). |
| 1a2ce0 | 20 20 20 20 20 20 20 20 20 28 74 6f 2d 73 74 72 69 6e 67 20 28 6f 62 6a 29 0a 20 20 20 20 20 20 | .........(to-string.(obj)....... |
| 1a2d00 | 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 6f 62 6a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(typecase.obj.............. |
| 1a2d20 | 3b 3b 20 50 61 63 6b 61 67 65 73 20 61 72 65 20 70 6f 73 73 69 62 6c 79 20 6e 61 6d 65 64 20 65 | ;;.Packages.are.possibly.named.e |
| 1a2d40 | 6e 74 69 74 69 65 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 61 67 65 20 28 | ntities...............(package.( |
| 1a2d60 | 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 20 | princ-to-string.obj))........... |
| 1a2d80 | 20 20 20 28 28 6f 72 20 73 74 72 75 63 74 75 72 65 2d 6f 62 6a 65 63 74 20 73 74 61 6e 64 61 72 | ...((or.structure-object.standar |
| 1a2da0 | 64 2d 6f 62 6a 65 63 74 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | d-object.condition)............. |
| 1a2dc0 | 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 29 0a 20 20 20 | ..(with-output-to-string.(s).... |
| 1a2de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f | .............(print-unreadable-o |
| 1a2e00 | 62 6a 65 63 74 20 28 6f 62 6a 20 73 20 3a 74 79 70 65 20 74 20 3a 69 64 65 6e 74 69 74 79 20 74 | bject.(obj.s.:type.t.:identity.t |
| 1a2e20 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 70 72 69 6e 63 2d 74 6f 2d 73 | ))))..............(t.(princ-to-s |
| 1a2e40 | 74 72 69 6e 67 20 6f 62 6a 29 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 76 65 72 74 69 6e 67 2d 65 | tring.obj))))).....(converting-e |
| 1a2e60 | 72 72 6f 72 73 2d 74 6f 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 28 6c | rrors-to-error-location.......(l |
| 1a2e80 | 65 74 20 28 28 64 65 66 73 72 63 20 28 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 3a 66 69 6e 64 2d | et.((defsrc.(sb-introspect:find- |
| 1a2ea0 | 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 20 6f 62 6a 29 29 29 0a 20 20 20 20 20 20 20 | definition-source.obj)))........ |
| 1a2ec0 | 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 6f 72 2d 65 6d 61 63 73 20 64 65 | .(definition-source-for-emacs.de |
| 1a2ee0 | 66 73 72 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fsrc............................ |
| 1a2f00 | 20 20 20 20 20 20 20 20 20 20 28 67 65 6e 65 72 61 6c 2d 74 79 70 65 2d 6f 66 20 6f 62 6a 29 0a | ..........(general-type-of.obj). |
| 1a2f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a2f40 | 20 20 20 20 20 28 74 6f 2d 73 74 72 69 6e 67 20 6f 62 6a 29 29 29 29 29 29 0a 0a 28 64 65 66 6d | .....(to-string.obj))))))..(defm |
| 1a2f60 | 61 63 72 6f 20 77 69 74 68 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 20 28 28 26 72 | acro.with-definition-source.((&r |
| 1a2f80 | 65 73 74 20 6e 61 6d 65 73 29 20 6f 62 6a 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 4c 69 | est.names).obj.&body.body)..."Li |
| 1a2fa0 | 6b 65 20 77 69 74 68 2d 73 6c 6f 74 73 20 62 75 74 20 77 6f 72 6b 73 20 6f 6e 6c 79 20 66 6f 72 | ke.with-slots.but.works.only.for |
| 1a2fc0 | 20 73 74 72 75 63 74 73 2e 22 0a 20 20 28 66 6c 65 74 20 28 28 72 65 61 64 65 72 20 28 73 6c 6f | .structs."...(flet.((reader.(slo |
| 1a2fe0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 55 73 65 20 72 65 61 64 2d 66 72 6f 6d 2d 73 | t)............;;.Use.read-from-s |
| 1a3000 | 74 72 69 6e 67 20 69 6e 73 74 65 61 64 20 6f 66 20 69 6e 74 65 72 6e 20 73 6f 20 74 68 61 74 0a | tring.instead.of.intern.so.that. |
| 1a3020 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6e 63 2d 6e 61 6d 65 20 63 61 6e 20 62 65 20 61 | ...........;;.conc-name.can.be.a |
| 1a3040 | 20 73 74 72 69 6e 67 20 73 75 63 68 20 61 73 20 65 78 74 3a 73 74 72 75 63 74 2d 20 61 6e 64 20 | .string.such.as.ext:struct-.and. |
| 1a3060 | 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 61 75 73 65 20 65 72 72 6f 72 73 20 61 | not............;;.cause.errors.a |
| 1a3080 | 6e 64 20 6e 6f 74 20 66 6f 72 63 65 20 69 6e 74 65 72 6e 69 6e 67 20 65 78 74 3a 3a 73 74 72 75 | nd.not.force.interning.ext::stru |
| 1a30a0 | 63 74 2d 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 | ct-............(read-from-string |
| 1a30c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e | .............(concatenate.'strin |
| 1a30e0 | 67 20 22 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 3a 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 | g."sb-introspect:definition-sour |
| 1a3100 | 63 65 2d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ce-"..........................(s |
| 1a3120 | 74 72 69 6e 67 20 73 6c 6f 74 29 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 74 6d 70 20 28 | tring.slot))))).....(let.((tmp.( |
| 1a3140 | 67 65 6e 73 79 6d 20 22 4f 4f 2d 22 29 29 29 0a 20 20 20 20 20 20 60 20 28 6c 65 74 20 28 28 2c | gensym."OO-"))).......`.(let.((, |
| 1a3160 | 74 6d 70 20 2c 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6d 61 63 | tmp.,obj))...........(symbol-mac |
| 1a3180 | 72 6f 6c 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 6f 6f 70 20 66 6f 72 20 6e | rolet...............,(loop.for.n |
| 1a31a0 | 61 6d 65 20 69 6e 20 6e 61 6d 65 73 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 | ame.in.names.collect............ |
| 1a31c0 | 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 | ..........(typecase.name........ |
| 1a31e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 60 28 2c 6e 61 6d 65 20 | ................(symbol.`(,name. |
| 1a3200 | 28 2c 28 72 65 61 64 65 72 20 6e 61 6d 65 29 20 2c 74 6d 70 29 29 29 0a 20 20 20 20 20 20 20 20 | (,(reader.name).,tmp)))......... |
| 1a3220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 60 28 2c 28 66 69 72 73 74 20 6e | ...............(cons.`(,(first.n |
| 1a3240 | 61 6d 65 29 20 28 2c 28 72 65 61 64 65 72 20 28 73 65 63 6f 6e 64 20 6e 61 6d 65 29 29 20 2c 74 | ame).(,(reader.(second.name)).,t |
| 1a3260 | 6d 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 | mp)))........................(t. |
| 1a3280 | 28 65 72 72 6f 72 20 22 4d 61 6c 66 6f 72 6d 65 64 20 73 79 6e 74 61 78 20 69 6e 20 57 49 54 48 | (error."Malformed.syntax.in.WITH |
| 1a32a0 | 2d 53 54 52 55 43 54 3a 20 7e 41 22 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -STRUCT:.~A".name))))........... |
| 1a32c0 | 20 20 2c 40 62 6f 64 79 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 74 65 67 6f 72 69 7a 65 | ..,@body)))))..(defun.categorize |
| 1a32e0 | 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 | -definition-source.(definition-s |
| 1a3300 | 6f 75 72 63 65 29 0a 20 20 28 77 69 74 68 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 | ource)...(with-definition-source |
| 1a3320 | 20 28 70 61 74 68 6e 61 6d 65 20 66 6f 72 6d 2d 70 61 74 68 20 63 68 61 72 61 63 74 65 72 2d 6f | .(pathname.form-path.character-o |
| 1a3340 | 66 66 73 65 74 20 70 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ffset.plist).................... |
| 1a3360 | 20 20 20 20 20 20 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 0a 20 20 20 20 28 6c 65 | .......definition-source.....(le |
| 1a3380 | 74 20 28 28 66 69 6c 65 2d 70 20 28 61 6e 64 20 70 61 74 68 6e 61 6d 65 20 28 70 72 6f 62 65 2d | t.((file-p.(and.pathname.(probe- |
| 1a33a0 | 66 69 6c 65 20 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | file.pathname).................. |
| 1a33c0 | 20 20 20 20 20 20 28 6f 72 20 66 6f 72 6d 2d 70 61 74 68 20 63 68 61 72 61 63 74 65 72 2d 6f 66 | ......(or.form-path.character-of |
| 1a33e0 | 66 73 65 74 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 67 65 74 66 | fset)))).......(cond.((and.(getf |
| 1a3400 | 20 70 6c 69 73 74 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 29 20 66 69 6c 65 2d 70 29 20 3a 62 | .plist.:emacs-buffer).file-p).:b |
| 1a3420 | 75 66 66 65 72 2d 61 6e 64 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 67 65 | uffer-and-file).............((ge |
| 1a3440 | 74 66 20 70 6c 69 73 74 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 29 20 3a 62 75 66 66 65 72 29 | tf.plist.:emacs-buffer).:buffer) |
| 1a3460 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 70 20 3a 66 69 6c 65 29 0a 20 20 20 20 | .............(file-p.:file)..... |
| 1a3480 | 20 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 20 3a 66 69 6c 65 2d 77 69 74 68 6f 75 74 2d | ........(pathname.:file-without- |
| 1a34a0 | 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 3a 69 6e 76 61 6c 69 | position).............(t.:invali |
| 1a34c0 | 64 29 29 29 29 29 0a 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d | d)))))..#+#.(swank/backend:with- |
| 1a34e0 | 73 79 6d 62 6f 6c 20 27 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 2d 6e | symbol.'definition-source-form-n |
| 1a3500 | 75 6d 62 65 72 20 27 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 29 0a 28 64 65 66 75 6e 20 66 6f 72 | umber.'sb-introspect).(defun.for |
| 1a3520 | 6d 2d 6e 75 6d 62 65 72 2d 70 6f 73 69 74 69 6f 6e 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f | m-number-position.(definition-so |
| 1a3540 | 75 72 63 65 20 73 74 72 65 61 6d 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 6c 66 2d 6e 75 6d 62 65 | urce.stream)...(let*.((tlf-numbe |
| 1a3560 | 72 20 28 63 61 72 20 28 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 3a 64 65 66 69 6e 69 74 69 6f 6e | r.(car.(sb-introspect:definition |
| 1a3580 | 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 2d 70 61 74 68 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 | -source-form-path.definition-sou |
| 1a35a0 | 72 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 28 73 62 | rce)))..........(form-number.(sb |
| 1a35c0 | 2d 69 6e 74 72 6f 73 70 65 63 74 3a 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 6f | -introspect:definition-source-fo |
| 1a35e0 | 72 6d 2d 6e 75 6d 62 65 72 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 29 29 29 0a 20 | rm-number.definition-source))).. |
| 1a3600 | 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 74 6c 66 20 70 6f 73 | ...(multiple-value-bind.(tlf.pos |
| 1a3620 | 2d 6d 61 70 29 20 28 72 65 61 64 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 20 74 6c 66 2d 6e 75 6d 62 | -map).(read-source-form.tlf-numb |
| 1a3640 | 65 72 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 74 68 2d 74 61 | er.stream).......(let*.((path-ta |
| 1a3660 | 62 6c 65 20 28 73 62 2d 64 69 3a 3a 66 6f 72 6d 2d 6e 75 6d 62 65 72 2d 74 72 61 6e 73 6c 61 74 | ble.(sb-di::form-number-translat |
| 1a3680 | 69 6f 6e 73 20 74 6c 66 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 20 | ions.tlf.0))..............(path. |
| 1a36a0 | 28 63 6f 6e 64 20 28 28 3c 3d 20 28 6c 65 6e 67 74 68 20 70 61 74 68 2d 74 61 62 6c 65 29 20 66 | (cond.((<=.(length.path-table).f |
| 1a36c0 | 6f 72 6d 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | orm-number)..................... |
| 1a36e0 | 20 20 20 20 20 20 28 77 61 72 6e 20 22 69 6e 63 6f 6e 73 69 73 74 65 6e 74 20 66 6f 72 6d 2d 6e | ......(warn."inconsistent.form-n |
| 1a3700 | 75 6d 62 65 72 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 | umber-translations")............ |
| 1a3720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 30 29 29 0a 20 20 20 20 20 20 20 | ...............(list.0))........ |
| 1a3740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 | ..................(t............ |
| 1a3760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 76 65 72 73 65 20 28 63 64 72 20 28 61 72 | ...............(reverse.(cdr.(ar |
| 1a3780 | 65 66 20 70 61 74 68 2d 74 61 62 6c 65 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 29 29 29 29 29 29 29 | ef.path-table.form-number))))))) |
| 1a37a0 | 0a 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 68 2d 73 6f 75 72 63 65 2d 70 6f 73 | .........(source-path-source-pos |
| 1a37c0 | 69 74 69 6f 6e 20 70 61 74 68 20 74 6c 66 20 70 6f 73 2d 6d 61 70 29 29 29 29 29 0a 0a 23 2b 23 | ition.path.tlf.pos-map)))))..#+# |
| 1a37e0 | 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 64 65 66 | .(swank/backend:with-symbol.'def |
| 1a3800 | 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 27 73 62 2d 69 | inition-source-form-number.'sb-i |
| 1a3820 | 6e 74 72 6f 73 70 65 63 74 29 0a 28 64 65 66 75 6e 20 66 69 6c 65 2d 66 6f 72 6d 2d 6e 75 6d 62 | ntrospect).(defun.file-form-numb |
| 1a3840 | 65 72 2d 70 6f 73 69 74 69 6f 6e 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 29 0a | er-position.(definition-source). |
| 1a3860 | 20 20 28 6c 65 74 2a 20 28 28 63 6f 64 65 2d 64 61 74 65 20 28 73 62 2d 69 6e 74 72 6f 73 70 65 | ..(let*.((code-date.(sb-introspe |
| 1a3880 | 63 74 3a 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 69 6c 65 2d 77 72 69 74 65 2d | ct:definition-source-file-write- |
| 1a38a0 | 64 61 74 65 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 20 | date.definition-source))........ |
| 1a38c0 | 20 20 28 66 69 6c 65 6e 61 6d 65 20 28 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 3a 64 65 66 69 6e | ..(filename.(sb-introspect:defin |
| 1a38e0 | 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 70 61 74 68 6e 61 6d 65 20 64 65 66 69 6e 69 74 69 6f 6e | ition-source-pathname.definition |
| 1a3900 | 2d 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 72 65 61 64 74 61 62 6c 65 2a 20 | -source))..........(*readtable*. |
| 1a3920 | 2a 72 65 61 64 74 61 62 6c 65 2a 29 0a 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 63 6f | *readtable*)..........(source-co |
| 1a3940 | 64 65 20 28 67 65 74 2d 73 6f 75 72 63 65 2d 63 6f 64 65 20 66 69 6c 65 6e 61 6d 65 20 63 6f 64 | de.(get-source-code.filename.cod |
| 1a3960 | 65 2d 64 61 74 65 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 64 65 62 6f 6f 74 73 74 72 61 70 70 | e-date))).....(with-debootstrapp |
| 1a3980 | 69 6e 67 0a 20 20 20 20 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e | ing.......(with-input-from-strin |
| 1a39a0 | 67 20 28 73 20 73 6f 75 72 63 65 2d 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 2d | g.(s.source-code).........(form- |
| 1a39c0 | 6e 75 6d 62 65 72 2d 70 6f 73 69 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 | number-position.definition-sourc |
| 1a39e0 | 65 20 73 29 29 29 29 29 0a 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 | e.s)))))..#+#.(swank/backend:wit |
| 1a3a00 | 68 2d 73 79 6d 62 6f 6c 20 27 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 6f 72 6d | h-symbol.'definition-source-form |
| 1a3a20 | 2d 6e 75 6d 62 65 72 20 27 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 29 0a 28 64 65 66 75 6e 20 73 | -number.'sb-introspect).(defun.s |
| 1a3a40 | 74 72 69 6e 67 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 2d 70 6f 73 69 74 69 6f 6e 20 28 64 65 66 69 | tring-form-number-position.(defi |
| 1a3a60 | 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 20 73 74 72 69 6e 67 29 0a 20 20 28 77 69 74 68 2d 69 6e | nition-source.string)...(with-in |
| 1a3a80 | 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 | put-from-string.(s.string).....( |
| 1a3aa0 | 66 6f 72 6d 2d 6e 75 6d 62 65 72 2d 70 6f 73 69 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d | form-number-position.definition- |
| 1a3ac0 | 73 6f 75 72 63 65 20 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 | source.s)))..(defun.definition-s |
| 1a3ae0 | 6f 75 72 63 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 74 69 6f 6e 20 28 64 65 66 69 6e 69 74 69 6f | ource-buffer-location.(definitio |
| 1a3b00 | 6e 2d 73 6f 75 72 63 65 29 0a 20 20 28 77 69 74 68 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 | n-source)...(with-definition-sou |
| 1a3b20 | 72 63 65 20 28 66 6f 72 6d 2d 70 61 74 68 20 63 68 61 72 61 63 74 65 72 2d 6f 66 66 73 65 74 20 | rce.(form-path.character-offset. |
| 1a3b40 | 70 6c 69 73 74 29 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 0a 20 20 20 20 28 64 65 | plist).definition-source.....(de |
| 1a3b60 | 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 6b 65 79 20 65 6d 61 63 73 2d 62 75 66 | structuring-bind.(&key.emacs-buf |
| 1a3b80 | 66 65 72 20 65 6d 61 63 73 2d 70 6f 73 69 74 69 6f 6e 20 65 6d 61 63 73 2d 73 74 72 69 6e 67 20 | fer.emacs-position.emacs-string. |
| 1a3ba0 | 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 0a 20 20 20 20 20 20 20 20 70 6c 69 73 74 | &allow-other-keys).........plist |
| 1a3bc0 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 72 65 61 64 74 61 62 6c 65 2a 20 2a 72 65 61 64 74 | .......(let.((*readtable*.*readt |
| 1a3be0 | 61 62 6c 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 | able*).............start........ |
| 1a3c00 | 20 20 20 20 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 64 65 62 6f 6f 74 73 74 | .....end).........(with-debootst |
| 1a3c20 | 72 61 70 70 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 28 6f 72 0a 20 20 20 20 20 20 20 20 20 20 | rapping...........(or........... |
| 1a3c40 | 20 28 61 6e 64 20 66 6f 72 6d 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(and.form-path................. |
| 1a3c60 | 28 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f | (or..................#+#.(swank/ |
| 1a3c80 | 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 64 65 66 69 6e 69 74 69 6f 6e 2d | backend:with-symbol.'definition- |
| 1a3ca0 | 73 6f 75 72 63 65 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 27 73 62 2d 69 6e 74 72 6f 73 70 65 63 | source-form-number.'sb-introspec |
| 1a3cc0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 76 61 6c 75 65 | t)..................(setf.(value |
| 1a3ce0 | 73 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.start.end).................... |
| 1a3d00 | 20 20 20 20 28 61 6e 64 20 28 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 3a 64 65 66 69 6e 69 74 69 | ....(and.(sb-introspect:definiti |
| 1a3d20 | 6f 6e 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 64 65 66 69 6e 69 74 69 6f 6e | on-source-form-number.definition |
| 1a3d40 | 2d 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -source)........................ |
| 1a3d60 | 20 20 20 20 20 28 73 74 72 69 6e 67 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 2d 70 6f 73 69 74 69 6f | .....(string-form-number-positio |
| 1a3d80 | 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 20 65 6d 61 63 73 2d 73 74 72 69 6e 67 | n.definition-source.emacs-string |
| 1a3da0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 76 61 6c 75 | )))..................(setf.(valu |
| 1a3dc0 | 65 73 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | es.start.end)................... |
| 1a3de0 | 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 68 2d 73 74 72 69 6e 67 2d 70 6f 73 69 74 69 6f | .....(source-path-string-positio |
| 1a3e00 | 6e 20 66 6f 72 6d 2d 70 61 74 68 20 65 6d 61 63 73 2d 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 | n.form-path.emacs-string)))).... |
| 1a3e20 | 20 20 20 20 20 20 20 20 28 73 65 74 66 20 73 74 61 72 74 20 63 68 61 72 61 63 74 65 72 2d 6f 66 | ........(setf.start.character-of |
| 1a3e40 | 66 73 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 6d 6f 73 74 2d 70 | fset..................end.most-p |
| 1a3e60 | 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d | ositive-fixnum))).........(make- |
| 1a3e80 | 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 60 28 3a 62 75 66 66 65 72 20 2c 65 6d 61 | location..........`(:buffer.,ema |
| 1a3ea0 | 63 73 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 60 28 3a 6f 66 66 73 65 74 20 2c 65 | cs-buffer)..........`(:offset.,e |
| 1a3ec0 | 6d 61 63 73 2d 70 6f 73 69 74 69 6f 6e 20 2c 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 60 | macs-position.,start)..........` |
| 1a3ee0 | 28 3a 73 6e 69 70 70 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 2c 28 73 75 62 73 65 71 20 65 6d | (:snippet............,(subseq.em |
| 1a3f00 | 61 63 73 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 | acs-string.....................s |
| 1a3f20 | 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 69 6e 20 65 6e | tart.....................(min.en |
| 1a3f40 | 64 20 28 2b 20 73 74 61 72 74 20 2a 73 6f 75 72 63 65 2d 73 6e 69 70 70 65 74 2d 73 69 7a 65 2a | d.(+.start.*source-snippet-size* |
| 1a3f60 | 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 | )))))))))..(defun.definition-sou |
| 1a3f80 | 72 63 65 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f | rce-file-location.(definition-so |
| 1a3fa0 | 75 72 63 65 29 0a 20 20 28 77 69 74 68 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 20 | urce)...(with-definition-source. |
| 1a3fc0 | 28 70 61 74 68 6e 61 6d 65 20 66 6f 72 6d 2d 70 61 74 68 20 63 68 61 72 61 63 74 65 72 2d 6f 66 | (pathname.form-path.character-of |
| 1a3fe0 | 66 73 65 74 20 70 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fset.plist...................... |
| 1a4000 | 20 20 20 20 20 20 66 69 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 29 20 64 65 66 69 6e 69 74 69 6f | ......file-write-date).definitio |
| 1a4020 | 6e 2d 73 6f 75 72 63 65 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6e 61 6d 65 73 74 72 69 6e 67 20 | n-source.....(let*.((namestring. |
| 1a4040 | 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 61 6e 73 6c 61 74 65 2d 6c 6f 67 69 63 61 6c 2d 70 | (namestring.(translate-logical-p |
| 1a4060 | 61 74 68 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | athname.pathname)))............( |
| 1a4080 | 70 6f 73 20 28 6f 72 20 28 61 6e 64 20 66 6f 72 6d 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 | pos.(or.(and.form-path.......... |
| 1a40a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ................(or............. |
| 1a40c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 | ..............#+#.(swank/backend |
| 1a40e0 | 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d | :with-symbol.'definition-source- |
| 1a4100 | 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 27 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 29 0a 20 20 20 20 | form-number.'sb-introspect)..... |
| 1a4120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 62 2d 69 | ......................(and.(sb-i |
| 1a4140 | 6e 74 72 6f 73 70 65 63 74 3a 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 6f 72 6d | ntrospect:definition-source-form |
| 1a4160 | 2d 6e 75 6d 62 65 72 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 29 0a 20 20 20 20 20 | -number.definition-source)...... |
| 1a4180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 | ..........................(ignor |
| 1a41a0 | 65 2d 65 72 72 6f 72 73 20 28 66 69 6c 65 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 2d 70 6f 73 69 74 | e-errors.(file-form-number-posit |
| 1a41c0 | 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 29 29 29 0a 20 20 20 20 20 20 20 | ion.definition-source)))........ |
| 1a41e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 | ...................(ignore-error |
| 1a4200 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f | s............................(so |
| 1a4220 | 75 72 63 65 2d 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 6e 61 6d 65 73 74 72 69 6e 67 20 66 69 | urce-file-position.namestring.fi |
| 1a4240 | 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-write-date................... |
| 1a4260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 | ...............................f |
| 1a4280 | 6f 72 6d 2d 70 61 74 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | orm-path)))).................... |
| 1a42a0 | 20 63 68 61 72 61 63 74 65 72 2d 6f 66 66 73 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .character-offset............... |
| 1a42c0 | 20 20 20 20 20 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6e 69 70 70 65 74 20 28 73 | ......0))............(snippet.(s |
| 1a42e0 | 6f 75 72 63 65 2d 68 69 6e 74 2d 73 6e 69 70 70 65 74 20 6e 61 6d 65 73 74 72 69 6e 67 20 66 69 | ource-hint-snippet.namestring.fi |
| 1a4300 | 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 20 70 6f 73 29 29 29 0a 20 20 20 20 20 20 28 6d 61 6b 65 | le-write-date.pos))).......(make |
| 1a4320 | 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c 65 20 2c 6e 61 6d 65 73 74 72 69 6e 67 29 0a 20 | -location.`(:file.,namestring).. |
| 1a4340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 2f 66 69 6c 65 20 70 6f 73 | ....................;;./file.pos |
| 1a4360 | 69 74 69 6f 6e 73 2f 20 69 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 73 74 61 72 74 20 66 72 6f | itions/.in.Common.Lisp.start.fro |
| 1a4380 | 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 30 2c 20 62 75 66 | m......................;;.0,.buf |
| 1a43a0 | 66 65 72 20 70 6f 73 69 74 69 6f 6e 73 20 69 6e 20 45 6d 61 63 73 20 73 74 61 72 74 20 66 72 6f | fer.positions.in.Emacs.start.fro |
| 1a43c0 | 6d 20 31 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 70 6f 73 | m.1.......................`(:pos |
| 1a43e0 | 69 74 69 6f 6e 20 2c 28 31 2b 20 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ition.,(1+.pos))................ |
| 1a4400 | 20 20 20 20 20 20 60 28 3a 73 6e 69 70 70 65 74 20 2c 73 6e 69 70 70 65 74 29 29 29 29 29 0a 0a | ......`(:snippet.,snippet))))).. |
| 1a4420 | 28 64 65 66 75 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 62 75 66 66 65 72 2d | (defun.definition-source-buffer- |
| 1a4440 | 61 6e 64 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f | and-file-location.(definition-so |
| 1a4460 | 75 72 63 65 29 0a 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 64 65 66 69 6e 69 74 69 6f | urce)...(let.((buffer.(definitio |
| 1a4480 | 6e 2d 73 6f 75 72 63 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 74 69 6f 6e 20 64 65 66 69 6e 69 74 | n-source-buffer-location.definit |
| 1a44a0 | 69 6f 6e 2d 73 6f 75 72 63 65 29 29 29 0a 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e | ion-source))).....(make-location |
| 1a44c0 | 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 2d 61 6e 64 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 | .(list.:buffer-and-file......... |
| 1a44e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 72 20 28 6c 6f 63 61 74 69 6f 6e | .................(cadr.(location |
| 1a4500 | 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -buffer.buffer))................ |
| 1a4520 | 20 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 73 62 2d 69 6e 74 72 6f 73 | ..........(namestring.(sb-intros |
| 1a4540 | 70 65 63 74 3a 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 70 61 74 68 6e 61 6d 65 0a | pect:definition-source-pathname. |
| 1a4560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a4580 | 20 20 20 20 20 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 29 29 29 0a 20 20 20 20 20 | ......definition-source)))...... |
| 1a45a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 74 69 6f 6e 2d 70 6f 73 69 74 69 6f 6e | ..............(location-position |
| 1a45c0 | 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 | .buffer)....................(loc |
| 1a45e0 | 61 74 69 6f 6e 2d 68 69 6e 74 73 20 62 75 66 66 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 | ation-hints.buffer))))..(defun.d |
| 1a4600 | 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 6f 72 2d 65 6d 61 63 73 20 28 64 65 66 69 | efinition-source-for-emacs.(defi |
| 1a4620 | 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 20 74 79 70 65 20 6e 61 6d 65 29 0a 20 20 28 77 69 74 68 | nition-source.type.name)...(with |
| 1a4640 | 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 20 28 70 61 74 68 6e 61 6d 65 20 66 6f 72 | -definition-source.(pathname.for |
| 1a4660 | 6d 2d 70 61 74 68 20 63 68 61 72 61 63 74 65 72 2d 6f 66 66 73 65 74 20 70 6c 69 73 74 0a 20 20 | m-path.character-offset.plist... |
| 1a4680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a46a0 | 20 20 66 69 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 29 0a 20 20 20 20 20 20 64 65 66 69 6e 69 74 | ..file-write-date).......definit |
| 1a46c0 | 69 6f 6e 2d 73 6f 75 72 63 65 0a 20 20 20 20 28 65 63 61 73 65 20 28 63 61 74 65 67 6f 72 69 7a | ion-source.....(ecase.(categoriz |
| 1a46e0 | 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 | e-definition-source.definition-s |
| 1a4700 | 6f 75 72 63 65 29 0a 20 20 20 20 20 20 28 3a 62 75 66 66 65 72 2d 61 6e 64 2d 66 69 6c 65 0a 20 | ource).......(:buffer-and-file.. |
| 1a4720 | 20 20 20 20 20 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 62 75 66 66 65 72 2d | ......(definition-source-buffer- |
| 1a4740 | 61 6e 64 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 | and-file-location.definition-sou |
| 1a4760 | 72 63 65 29 29 0a 20 20 20 20 20 20 28 3a 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 28 64 65 66 | rce)).......(:buffer........(def |
| 1a4780 | 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 74 69 6f 6e 20 64 | inition-source-buffer-location.d |
| 1a47a0 | 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 28 3a 66 69 6c 65 0a | efinition-source)).......(:file. |
| 1a47c0 | 20 20 20 20 20 20 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 69 6c 65 2d 6c | .......(definition-source-file-l |
| 1a47e0 | 6f 63 61 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 29 29 0a 20 20 20 20 | ocation.definition-source))..... |
| 1a4800 | 20 20 28 3a 66 69 6c 65 2d 77 69 74 68 6f 75 74 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 | ..(:file-without-position....... |
| 1a4820 | 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c 65 20 2c 28 6e 61 6d 65 73 74 | .(make-location.`(:file.,(namest |
| 1a4840 | 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ring............................ |
| 1a4860 | 20 20 20 20 20 28 74 72 61 6e 73 6c 61 74 65 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 | .....(translate-logical-pathname |
| 1a4880 | 20 70 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .pathname))).................... |
| 1a48a0 | 20 20 20 27 28 3a 70 6f 73 69 74 69 6f 6e 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...'(:position.1)............... |
| 1a48c0 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 65 71 6c 20 74 79 70 65 20 3a 66 75 | ........(when.(and.(eql.type.:fu |
| 1a48e0 | 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nction)......................... |
| 1a4900 | 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 | .........(symbolp.name))........ |
| 1a4920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 73 6e 69 70 70 65 74 20 2c 28 66 6f | .................`(:snippet.,(fo |
| 1a4940 | 72 6d 61 74 20 6e 69 6c 20 22 28 64 65 66 75 6e 20 7e 61 20 22 0a 20 20 20 20 20 20 20 20 20 20 | rmat.nil."(defun.~a."........... |
| 1a4960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a4980 | 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6e 61 6d 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 | ..(symbol-name.name))))))....... |
| 1a49a0 | 28 3a 69 6e 76 61 6c 69 64 0a 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 44 45 46 49 4e 49 54 | (:invalid........(error."DEFINIT |
| 1a49c0 | 49 4f 4e 2d 53 4f 55 52 43 45 20 6f 66 20 7e 28 7e 41 7e 29 20 7e 41 20 64 69 64 20 6e 6f 74 20 | ION-SOURCE.of.~(~A~).~A.did.not. |
| 1a49e0 | 63 6f 6e 74 61 69 6e 20 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 61 6e 69 6e 67 | contain.~................meaning |
| 1a4a00 | 66 75 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ful.information."............... |
| 1a4a20 | 74 79 70 65 20 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d 66 69 | type.name)))))..(defun.source-fi |
| 1a4a40 | 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 28 66 69 6c 65 6e 61 6d 65 20 77 72 69 74 65 2d 64 61 74 65 | le-position.(filename.write-date |
| 1a4a60 | 20 66 6f 72 6d 2d 70 61 74 68 29 0a 20 20 28 6c 65 74 20 28 28 73 6f 75 72 63 65 20 28 67 65 74 | .form-path)...(let.((source.(get |
| 1a4a80 | 2d 73 6f 75 72 63 65 2d 63 6f 64 65 20 66 69 6c 65 6e 61 6d 65 20 77 72 69 74 65 2d 64 61 74 65 | -source-code.filename.write-date |
| 1a4aa0 | 29 29 0a 20 20 20 20 20 20 20 20 28 2a 72 65 61 64 74 61 62 6c 65 2a 20 2a 72 65 61 64 74 61 62 | )).........(*readtable*.*readtab |
| 1a4ac0 | 6c 65 2a 29 29 0a 20 20 20 20 28 77 69 74 68 2d 64 65 62 6f 6f 74 73 74 72 61 70 70 69 6e 67 0a | le*)).....(with-debootstrapping. |
| 1a4ae0 | 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 68 2d 73 74 72 69 6e 67 2d 70 6f 73 69 74 69 | ......(source-path-string-positi |
| 1a4b00 | 6f 6e 20 66 6f 72 6d 2d 70 61 74 68 20 73 6f 75 72 63 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | on.form-path.source))))..(defun. |
| 1a4b20 | 73 6f 75 72 63 65 2d 68 69 6e 74 2d 73 6e 69 70 70 65 74 20 28 66 69 6c 65 6e 61 6d 65 20 77 72 | source-hint-snippet.(filename.wr |
| 1a4b40 | 69 74 65 2d 64 61 74 65 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 28 72 65 61 64 2d 73 6e 69 70 70 | ite-date.position)...(read-snipp |
| 1a4b60 | 65 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 67 65 74 2d 73 6f 75 72 63 65 2d 63 6f 64 65 20 | et-from-string.(get-source-code. |
| 1a4b80 | 66 69 6c 65 6e 61 6d 65 20 77 72 69 74 65 2d 64 61 74 65 29 20 70 6f 73 69 74 69 6f 6e 29 29 0a | filename.write-date).position)). |
| 1a4ba0 | 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e | .(defun.function-source-location |
| 1a4bc0 | 20 28 66 75 6e 63 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 61 6d 65 29 0a 20 20 28 64 65 | .(function.&optional.name)...(de |
| 1a4be0 | 63 6c 61 72 65 20 28 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a | clare.(type.function.function)). |
| 1a4c00 | 20 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 6f 72 2d 65 6d 61 63 73 20 28 | ..(definition-source-for-emacs.( |
| 1a4c20 | 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 3a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f | sb-introspect:find-definition-so |
| 1a4c40 | 75 72 63 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | urce.function).................. |
| 1a4c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | ..............:function......... |
| 1a4c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 6e 61 6d 65 20 | .......................(or.name. |
| 1a4ca0 | 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 | (function-name.function))))..(de |
| 1a4cc0 | 66 75 6e 20 73 65 74 66 2d 65 78 70 61 6e 64 65 72 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6f 72 | fun.setf-expander.(symbol)...(or |
| 1a4ce0 | 0a 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 69 74 68 2d 73 | ....#+#.(swank/sbcl::sbcl-with-s |
| 1a4d00 | 65 74 66 2d 69 6e 76 65 72 73 65 2d 6d 65 74 61 2d 69 6e 66 6f 29 0a 20 20 20 28 73 62 2d 69 6e | etf-inverse-meta-info)....(sb-in |
| 1a4d20 | 74 3a 69 6e 66 6f 20 3a 73 65 74 66 20 3a 69 6e 76 65 72 73 65 20 73 79 6d 62 6f 6c 29 0a 20 20 | t:info.:setf.:inverse.symbol)... |
| 1a4d40 | 20 28 73 62 2d 69 6e 74 3a 69 6e 66 6f 20 3a 73 65 74 66 20 3a 65 78 70 61 6e 64 65 72 20 73 79 | .(sb-int:info.:setf.:expander.sy |
| 1a4d60 | 6d 62 6f 6c 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 | mbol)))..(defimplementation.desc |
| 1a4d80 | 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 0a 20 | ribe-symbol-for-emacs.(symbol).. |
| 1a4da0 | 20 22 52 65 74 75 72 6e 20 61 20 70 6c 69 73 74 20 64 65 73 63 72 69 62 69 6e 67 20 53 59 4d 42 | ."Return.a.plist.describing.SYMB |
| 1a4dc0 | 4f 4c 2e 0a 52 65 74 75 72 6e 20 4e 49 4c 20 69 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 | OL..Return.NIL.if.the.symbol.is. |
| 1a4de0 | 75 6e 62 6f 75 6e 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a | unbound."...(let.((result.'())). |
| 1a4e00 | 20 20 20 20 28 66 6c 65 74 20 28 28 64 6f 63 20 28 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 | ....(flet.((doc.(kind).......... |
| 1a4e20 | 20 20 20 20 28 6f 72 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 79 6d 62 6f 6c 20 6b 69 | ....(or.(documentation.symbol.ki |
| 1a4e40 | 6e 64 29 20 3a 6e 6f 74 2d 64 6f 63 75 6d 65 6e 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 | nd).:not-documented))........... |
| 1a4e60 | 20 28 6d 61 79 62 65 2d 70 75 73 68 20 28 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 29 0a 20 20 | .(maybe-push.(property.value)... |
| 1a4e80 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 | ...........(when.value.......... |
| 1a4ea0 | 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 28 6c 69 73 74 2a 20 70 72 6f 70 65 72 | ......(setf.result.(list*.proper |
| 1a4ec0 | 74 79 20 76 61 6c 75 65 20 72 65 73 75 6c 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 | ty.value.result))))).......(mayb |
| 1a4ee0 | 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 76 61 72 69 61 62 6c 65 20 28 6d 75 6c 74 69 70 6c | e-push........:variable.(multipl |
| 1a4f00 | 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6b 69 6e 64 20 72 65 63 6f 72 64 65 64 2d 70 29 0a 20 | e-value-bind.(kind.recorded-p).. |
| 1a4f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 69 6e 74 3a 69 6e 66 6f | ....................(sb-int:info |
| 1a4f40 | 20 3a 76 61 72 69 61 62 6c 65 20 3a 6b 69 6e 64 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 | .:variable.:kind.symbol)........ |
| 1a4f60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6b 69 6e | ............(declare.(ignore.kin |
| 1a4f80 | 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 | d))....................(if.(or.( |
| 1a4fa0 | 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 20 72 65 63 6f 72 64 65 64 2d 70 29 0a 20 20 20 20 20 | boundp.symbol).recorded-p)...... |
| 1a4fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 76 61 72 69 61 62 6c 65 | ..................(doc.'variable |
| 1a4fe0 | 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c | )))).......(when.(fboundp.symbol |
| 1a5000 | 29 0a 09 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 | )..(maybe-push..........(cond.(( |
| 1a5020 | 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 20 20 20 20 20 3a 6d 61 63 72 | macro-function.symbol).....:macr |
| 1a5040 | 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 70 65 63 69 61 6c 2d 6f 70 65 72 | o)................((special-oper |
| 1a5060 | 61 74 6f 72 2d 70 20 73 79 6d 62 6f 6c 29 20 3a 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 | ator-p.symbol).:special-operator |
| 1a5080 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 74 79 70 65 70 20 28 66 64 65 66 69 6e | )................((typep.(fdefin |
| 1a50a0 | 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 20 27 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 | ition.symbol).'generic-function) |
| 1a50c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 | .................:generic-functi |
| 1a50e0 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 3a 66 75 6e 63 74 69 6f 6e 29 | on)................(t.:function) |
| 1a5100 | 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 | )..........(doc.'function))).... |
| 1a5120 | 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 73 65 74 66 20 28 61 6e 64 | ...(maybe-push........:setf.(and |
| 1a5140 | 20 28 73 65 74 66 2d 65 78 70 61 6e 64 65 72 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 | .(setf-expander.symbol)......... |
| 1a5160 | 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 73 65 74 66 29 29 29 0a 20 20 20 20 20 20 28 6d | ..........(doc.'setf))).......(m |
| 1a5180 | 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 74 79 70 65 20 28 69 66 20 28 73 62 2d 69 | aybe-push........:type.(if.(sb-i |
| 1a51a0 | 6e 74 3a 69 6e 66 6f 20 3a 74 79 70 65 20 3a 6b 69 6e 64 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 | nt:info.:type.:kind.symbol)..... |
| 1a51c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 74 79 70 65 29 29 29 0a 20 20 20 20 20 | .............(doc.'type)))...... |
| 1a51e0 | 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 | .result)))..(defimplementation.d |
| 1a5200 | 65 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 20 74 79 70 65 29 | escribe-definition.(symbol.type) |
| 1a5220 | 0a 20 20 28 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 28 3a 76 61 72 69 61 62 6c 65 0a 20 20 20 | ...(case.type.....(:variable.... |
| 1a5240 | 20 20 28 64 65 73 63 72 69 62 65 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 28 3a 66 75 6e 63 74 | ..(describe.symbol)).....(:funct |
| 1a5260 | 69 6f 6e 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 | ion......(describe.(symbol-funct |
| 1a5280 | 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 3a 73 65 74 66 0a 20 20 20 20 20 28 64 | ion.symbol))).....(:setf......(d |
| 1a52a0 | 65 73 63 72 69 62 65 20 28 73 65 74 66 2d 65 78 70 61 6e 64 65 72 20 73 79 6d 62 6f 6c 29 29 29 | escribe.(setf-expander.symbol))) |
| 1a52c0 | 0a 20 20 20 20 28 3a 63 6c 61 73 73 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 28 66 69 6e | .....(:class......(describe.(fin |
| 1a52e0 | 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 3a 74 79 70 65 0a 20 20 20 | d-class.symbol))).....(:type.... |
| 1a5300 | 20 20 28 64 65 73 63 72 69 62 65 20 28 73 62 2d 6b 65 72 6e 65 6c 3a 76 61 6c 75 65 73 2d 73 70 | ..(describe.(sb-kernel:values-sp |
| 1a5320 | 65 63 69 66 69 65 72 2d 74 79 70 65 20 73 79 6d 62 6f 6c 29 29 29 29 29 0a 0a 23 2b 23 2e 28 73 | ecifier-type.symbol)))))..#+#.(s |
| 1a5340 | 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 69 74 68 2d 78 72 65 66 2d 70 29 0a 28 70 72 | wank/sbcl::sbcl-with-xref-p).(pr |
| 1a5360 | 6f 67 6e 0a 20 20 28 64 65 66 6d 61 63 72 6f 20 64 65 66 78 72 65 66 20 28 6e 61 6d 65 20 26 6f | ogn...(defmacro.defxref.(name.&o |
| 1a5380 | 70 74 69 6f 6e 61 6c 20 66 6e 2d 6e 61 6d 65 29 0a 20 20 20 20 60 28 64 65 66 69 6d 70 6c 65 6d | ptional.fn-name).....`(defimplem |
| 1a53a0 | 65 6e 74 61 74 69 6f 6e 20 2c 6e 61 6d 65 20 28 77 68 61 74 29 0a 20 20 20 20 20 20 20 28 73 61 | entation.,name.(what)........(sa |
| 1a53c0 | 6e 69 74 69 7a 65 2d 78 72 65 66 73 0a 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 73 | nitize-xrefs.........(mapcar.#'s |
| 1a53e0 | 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 2d 78 72 65 66 2d 64 61 74 61 0a 20 20 20 | ource-location-for-xref-data.... |
| 1a5400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 79 6d | .............(,(find-symbol.(sym |
| 1a5420 | 62 6f 6c 2d 6e 61 6d 65 20 28 69 66 20 66 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 | bol-name.(if.fn-name............ |
| 1a5440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a5460 | 20 20 20 20 20 66 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....fn-name.................... |
| 1a5480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d | .............................nam |
| 1a54a0 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e))............................. |
| 1a54c0 | 20 20 20 22 53 42 2d 49 4e 54 52 4f 53 50 45 43 54 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..."SB-INTROSPECT")............. |
| 1a54e0 | 20 20 20 20 20 20 77 68 61 74 29 29 29 29 29 0a 20 20 28 64 65 66 78 72 65 66 20 77 68 6f 2d 63 | ......what)))))...(defxref.who-c |
| 1a5500 | 61 6c 6c 73 29 0a 20 20 28 64 65 66 78 72 65 66 20 77 68 6f 2d 62 69 6e 64 73 29 0a 20 20 28 64 | alls)...(defxref.who-binds)...(d |
| 1a5520 | 65 66 78 72 65 66 20 77 68 6f 2d 73 65 74 73 29 0a 20 20 28 64 65 66 78 72 65 66 20 77 68 6f 2d | efxref.who-sets)...(defxref.who- |
| 1a5540 | 72 65 66 65 72 65 6e 63 65 73 29 0a 20 20 28 64 65 66 78 72 65 66 20 77 68 6f 2d 6d 61 63 72 6f | references)...(defxref.who-macro |
| 1a5560 | 65 78 70 61 6e 64 73 29 0a 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 | expands)...#+#.(swank/backend:wi |
| 1a5580 | 74 68 2d 73 79 6d 62 6f 6c 20 27 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 2d 64 69 72 65 63 | th-symbol.'who-specializes-direc |
| 1a55a0 | 74 6c 79 20 27 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 29 0a 20 20 28 64 65 66 78 72 65 66 20 77 | tly.'sb-introspect)...(defxref.w |
| 1a55c0 | 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 20 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 2d 64 | ho-specializes.who-specializes-d |
| 1a55e0 | 69 72 65 63 74 6c 79 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | irectly))..(defun.source-locatio |
| 1a5600 | 6e 2d 66 6f 72 2d 78 72 65 66 2d 64 61 74 61 20 28 78 72 65 66 2d 64 61 74 61 29 0a 20 20 28 64 | n-for-xref-data.(xref-data)...(d |
| 1a5620 | 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6e 61 6d 65 20 2e 20 64 65 66 73 72 63 | estructuring-bind.(name...defsrc |
| 1a5640 | 29 20 78 72 65 66 2d 64 61 74 61 0a 20 20 20 20 28 6c 69 73 74 20 6e 61 6d 65 20 28 63 6f 6e 76 | ).xref-data.....(list.name.(conv |
| 1a5660 | 65 72 74 69 6e 67 2d 65 72 72 6f 72 73 2d 74 6f 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 0a | erting-errors-to-error-location. |
| 1a5680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 | .................(definition-sou |
| 1a56a0 | 72 63 65 2d 66 6f 72 2d 65 6d 61 63 73 20 64 65 66 73 72 63 20 27 66 75 6e 63 74 69 6f 6e 20 6e | rce-for-emacs.defsrc.'function.n |
| 1a56c0 | 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 | ame)))))..(defimplementation.lis |
| 1a56e0 | 74 2d 63 61 6c 6c 65 72 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 20 28 28 66 6e 20 28 | t-callers.(symbol)...(let.((fn.( |
| 1a5700 | 66 64 65 66 69 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 73 61 6e 69 74 | fdefinition.symbol))).....(sanit |
| 1a5720 | 69 7a 65 2d 78 72 65 66 73 0a 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 66 75 6e 63 74 69 6f | ize-xrefs......(mapcar.#'functio |
| 1a5740 | 6e 2d 64 73 70 65 63 20 28 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 3a 66 69 6e 64 2d 66 75 6e 63 | n-dspec.(sb-introspect:find-func |
| 1a5760 | 74 69 6f 6e 2d 63 61 6c 6c 65 72 73 20 66 6e 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | tion-callers.fn)))))..(defimplem |
| 1a5780 | 65 6e 74 61 74 69 6f 6e 20 6c 69 73 74 2d 63 61 6c 6c 65 65 73 20 28 73 79 6d 62 6f 6c 29 0a 20 | entation.list-callees.(symbol).. |
| 1a57a0 | 20 28 6c 65 74 20 28 28 66 6e 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 | .(let.((fn.(fdefinition.symbol)) |
| 1a57c0 | 29 0a 20 20 20 20 28 73 61 6e 69 74 69 7a 65 2d 78 72 65 66 73 0a 20 20 20 20 20 28 6d 61 70 63 | ).....(sanitize-xrefs......(mapc |
| 1a57e0 | 61 72 20 23 27 66 75 6e 63 74 69 6f 6e 2d 64 73 70 65 63 20 28 73 62 2d 69 6e 74 72 6f 73 70 65 | ar.#'function-dspec.(sb-introspe |
| 1a5800 | 63 74 3a 66 69 6e 64 2d 66 75 6e 63 74 69 6f 6e 2d 63 61 6c 6c 65 65 73 20 66 6e 29 29 29 29 29 | ct:find-function-callees.fn))))) |
| 1a5820 | 0a 0a 28 64 65 66 75 6e 20 73 61 6e 69 74 69 7a 65 2d 78 72 65 66 73 20 28 78 72 65 66 73 29 0a | ..(defun.sanitize-xrefs.(xrefs). |
| 1a5840 | 20 20 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 0a 20 20 20 28 72 65 6d 6f 76 65 2d | ..(remove-duplicates....(remove- |
| 1a5860 | 69 66 20 28 6c 61 6d 62 64 61 20 28 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | if.(lambda.(f).................( |
| 1a5880 | 6d 65 6d 62 65 72 20 66 20 28 69 67 6e 6f 72 65 64 2d 78 72 65 66 2d 66 75 6e 63 74 69 6f 6e 2d | member.f.(ignored-xref-function- |
| 1a58a0 | 6e 61 6d 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 | names)))...............(loop.for |
| 1a58c0 | 20 65 6e 74 72 79 20 69 6e 20 78 72 65 66 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .entry.in.xrefs................. |
| 1a58e0 | 20 20 20 20 66 6f 72 20 6e 61 6d 65 20 3d 20 28 63 61 72 20 65 6e 74 72 79 29 0a 20 20 20 20 20 | ....for.name.=.(car.entry)...... |
| 1a5900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 69 66 20 28 61 6e 64 20 | ...............collect.(if.(and. |
| 1a5920 | 28 63 6f 6e 73 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (consp.name).................... |
| 1a5940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 28 63 61 72 20 6e | ..................(member.(car.n |
| 1a5960 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame)............................ |
| 1a5980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 73 62 2d 70 63 6c 3a 3a 66 61 73 74 | ..................'(sb-pcl::fast |
| 1a59a0 | 2d 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -method......................... |
| 1a59c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 62 2d 70 63 6c 3a 3a 73 | .......................sb-pcl::s |
| 1a59e0 | 6c 6f 77 2d 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | low-method...................... |
| 1a5a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 62 2d 70 63 6c | ..........................sb-pcl |
| 1a5a20 | 3a 3a 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ::method)))..................... |
| 1a5a40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 63 6f 6e 73 20 27 64 65 66 6d 65 74 68 | ............(cons.(cons.'defmeth |
| 1a5a60 | 6f 64 20 28 63 64 72 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | od.(cdr.name)).................. |
| 1a5a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 65 6e 74 72 79 29 | .....................(cdr.entry) |
| 1a5aa0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 1a5ac0 | 20 20 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 63 | ..entry))...............:key.#'c |
| 1a5ae0 | 61 72 29 0a 20 20 20 3a 74 65 73 74 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 0a 20 20 20 20 20 | ar)....:test.(lambda.(a.b)...... |
| 1a5b00 | 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 28 66 69 72 73 74 20 61 29 20 28 66 69 72 73 74 20 | ......(and.(eq.(first.a).(first. |
| 1a5b20 | 62 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 28 73 65 63 6f | b)).................(equal.(seco |
| 1a5b40 | 6e 64 20 61 29 20 28 73 65 63 6f 6e 64 20 62 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 67 | nd.a).(second.b))))))..(defun.ig |
| 1a5b60 | 6e 6f 72 65 64 2d 78 72 65 66 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 73 20 28 29 0a 20 20 23 | nored-xref-function-names.()...# |
| 1a5b80 | 2d 23 2e 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 69 74 68 2d 6e 65 77 2d 73 74 | -#.(swank/sbcl::sbcl-with-new-st |
| 1a5ba0 | 65 70 70 65 72 2d 70 29 0a 20 20 27 28 6e 69 6c 20 73 62 2d 63 3a 3a 73 74 65 70 2d 66 6f 72 6d | epper-p)...'(nil.sb-c::step-form |
| 1a5bc0 | 20 73 62 2d 63 3a 3a 73 74 65 70 2d 76 61 6c 75 65 73 29 0a 20 20 23 2b 23 2e 28 73 77 61 6e 6b | .sb-c::step-values)...#+#.(swank |
| 1a5be0 | 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 69 74 68 2d 6e 65 77 2d 73 74 65 70 70 65 72 2d 70 29 0a | /sbcl::sbcl-with-new-stepper-p). |
| 1a5c00 | 20 20 27 28 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 64 73 70 65 63 | ..'(nil))..(defun.function-dspec |
| 1a5c20 | 20 28 66 6e 29 0a 20 20 22 44 65 73 63 72 69 62 65 20 77 68 65 72 65 20 74 68 65 20 66 75 6e 63 | .(fn)..."Describe.where.the.func |
| 1a5c40 | 74 69 6f 6e 20 46 4e 20 77 61 73 20 64 65 66 69 6e 65 64 2e 0a 52 65 74 75 72 6e 20 61 20 6c 69 | tion.FN.was.defined..Return.a.li |
| 1a5c60 | 73 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 4e 41 4d 45 20 4c 4f 43 41 54 49 4f 4e 29 2e 22 | st.of.the.form.(NAME.LOCATION)." |
| 1a5c80 | 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 6e | ...(let.((name.(function-name.fn |
| 1a5ca0 | 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 6e 61 6d 65 20 28 63 6f 6e 76 65 72 74 69 6e 67 2d 65 | ))).....(list.name.(converting-e |
| 1a5cc0 | 72 72 6f 72 73 2d 74 6f 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | rrors-to-error-location......... |
| 1a5ce0 | 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 | .........(function-source-locati |
| 1a5d00 | 6f 6e 20 66 6e 20 6e 61 6d 65 29 29 29 29 29 0a 0a 3b 3b 3b 20 6d 61 63 72 6f 65 78 70 61 6e 73 | on.fn.name)))))..;;;.macroexpans |
| 1a5d20 | 69 6f 6e 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 63 72 6f 65 78 70 | ion..(defimplementation.macroexp |
| 1a5d40 | 61 6e 64 2d 61 6c 6c 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 28 | and-all.(form.&optional.env)...( |
| 1a5d60 | 73 62 2d 63 6c 74 6c 32 3a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 66 6f 72 6d 20 65 6e | sb-cltl2:macroexpand-all.form.en |
| 1a5d80 | 76 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6c 6c 65 63 74 2d | v))..(defimplementation.collect- |
| 1a5da0 | 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 | macro-forms.(form.&optional.envi |
| 1a5dc0 | 72 6f 6e 6d 65 6e 74 29 0a 20 20 28 6c 65 74 20 28 28 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 27 28 | ronment)...(let.((macro-forms.'( |
| 1a5de0 | 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 | )).........(compiler-macro-forms |
| 1a5e00 | 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 71 75 6f 74 65 64 2d 66 | .'()).........(function-quoted-f |
| 1a5e20 | 6f 72 6d 73 20 27 28 29 29 29 0a 20 20 20 20 28 73 62 2d 77 61 6c 6b 65 72 3a 77 61 6c 6b 2d 66 | orms.'())).....(sb-walker:walk-f |
| 1a5e40 | 6f 72 6d 0a 20 20 20 20 20 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 0a 20 20 20 20 20 28 | orm......form.environment......( |
| 1a5e60 | 6c 61 6d 62 64 61 20 28 66 6f 72 6d 20 63 6f 6e 74 65 78 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 | lambda.(form.context.environment |
| 1a5e80 | 29 0a 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 6f 6e 74 65 78 | )........(declare.(ignore.contex |
| 1a5ea0 | 74 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 66 6f 72 | t))........(when.(and.(consp.for |
| 1a5ec0 | 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 70 20 28 63 | m)...................(symbolp.(c |
| 1a5ee0 | 61 72 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 28 | ar.form)))..........(cond.((eq.( |
| 1a5f00 | 63 61 72 20 66 6f 72 6d 29 20 27 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | car.form).'function)............ |
| 1a5f20 | 20 20 20 20 20 28 70 75 73 68 20 28 63 61 64 72 20 66 6f 72 6d 29 20 66 75 6e 63 74 69 6f 6e 2d | .....(push.(cadr.form).function- |
| 1a5f40 | 71 75 6f 74 65 64 2d 66 6f 72 6d 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 | quoted-forms))................(( |
| 1a5f60 | 6d 65 6d 62 65 72 20 66 6f 72 6d 20 66 75 6e 63 74 69 6f 6e 2d 71 75 6f 74 65 64 2d 66 6f 72 6d | member.form.function-quoted-form |
| 1a5f80 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 | s).................nil)......... |
| 1a5fa0 | 20 20 20 20 20 20 20 28 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 28 63 61 72 20 66 6f 72 | .......((macro-function.(car.for |
| 1a5fc0 | 6d 29 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m).environment)................. |
| 1a5fe0 | 28 70 75 73 68 20 66 6f 72 6d 20 6d 61 63 72 6f 2d 66 6f 72 6d 73 29 29 0a 20 20 20 20 20 20 20 | (push.form.macro-forms))........ |
| 1a6000 | 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 65 71 20 66 6f 72 6d 20 28 63 6f 6d 70 69 6c 65 72 | ........((not.(eq.form.(compiler |
| 1a6020 | 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 | -macroexpand-1.form.environment) |
| 1a6040 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 6f 72 6d 20 63 6f | )).................(push.form.co |
| 1a6060 | 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 29 29 29 29 0a 20 20 20 20 20 20 20 66 6f | mpiler-macro-forms))))........fo |
| 1a6080 | 72 6d 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 63 6f 6d | rm)).....(values.macro-forms.com |
| 1a60a0 | 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 44 65 62 75 | piler-macro-forms)))....;;;.Debu |
| 1a60c0 | 67 67 69 6e 67 0a 0a 3b 3b 3b 20 4e 6f 74 69 63 65 20 74 68 61 74 20 53 42 2d 45 58 54 3a 2a 49 | gging..;;;.Notice.that.SB-EXT:*I |
| 1a60e0 | 4e 56 4f 4b 45 2d 44 45 42 55 47 47 45 52 2d 48 4f 4f 4b 2a 20 69 73 20 73 6c 69 67 68 74 6c 79 | NVOKE-DEBUGGER-HOOK*.is.slightly |
| 1a6100 | 20 73 74 72 6f 6e 67 65 72 0a 3b 3b 3b 20 74 68 61 6e 20 6a 75 73 74 20 61 20 68 6f 6f 6b 20 69 | .stronger.;;;.than.just.a.hook.i |
| 1a6120 | 6e 74 6f 20 42 52 45 41 4b 2e 20 49 6e 20 70 61 72 74 69 63 75 6c 61 72 2c 20 69 74 27 6c 6c 20 | nto.BREAK..In.particular,.it'll. |
| 1a6140 | 6d 61 6b 65 0a 3b 3b 3b 20 28 4c 45 54 20 28 28 2a 44 45 42 55 47 47 45 52 2d 48 4f 4f 4b 2a 20 | make.;;;.(LET.((*DEBUGGER-HOOK*. |
| 1a6160 | 4e 49 4c 29 29 20 2e 2e 65 72 72 6f 72 2e 2e 29 20 64 72 6f 70 20 69 6e 74 6f 20 53 4c 44 42 20 | NIL))...error..).drop.into.SLDB. |
| 1a6180 | 72 61 74 68 65 72 0a 3b 3b 3b 20 74 68 61 6e 20 74 68 65 20 6e 61 74 69 76 65 20 64 65 62 75 67 | rather.;;;.than.the.native.debug |
| 1a61a0 | 67 65 72 2e 20 54 68 61 74 20 73 68 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 62 65 20 63 6f 6e | ger..That.should.probably.be.con |
| 1a61c0 | 73 69 64 65 72 65 64 20 61 0a 3b 3b 3b 20 66 65 61 74 75 72 65 2e 0a 0a 28 64 65 66 75 6e 20 6d | sidered.a.;;;.feature...(defun.m |
| 1a61e0 | 61 6b 65 2d 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 28 68 6f 6f 6b 29 0a | ake-invoke-debugger-hook.(hook). |
| 1a6200 | 20 20 28 77 68 65 6e 20 68 6f 6f 6b 0a 20 20 20 20 23 27 28 73 62 2d 69 6e 74 3a 6e 61 6d 65 64 | ..(when.hook.....#'(sb-int:named |
| 1a6220 | 2d 6c 61 6d 62 64 61 20 73 77 61 6e 6b 2d 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f | -lambda.swank-invoke-debugger-ho |
| 1a6240 | 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 20 6f 6c 64 2d 68 6f 6f 6b | ok...........(condition.old-hook |
| 1a6260 | 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 0a 20 20 | ).........(if.*debugger-hook*... |
| 1a6280 | 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 20 20 20 20 20 20 20 20 3b 20 64 65 63 6c 69 6e 65 2c | ..........nil.........;.decline, |
| 1a62a0 | 20 2a 44 45 42 55 47 47 45 52 2d 48 4f 4f 4b 2a 20 77 69 6c 6c 20 62 65 20 74 72 69 65 64 20 6e | .*DEBUGGER-HOOK*.will.be.tried.n |
| 1a62c0 | 65 78 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 68 6f 6f 6b 20 63 | ext..............(funcall.hook.c |
| 1a62e0 | 6f 6e 64 69 74 69 6f 6e 20 6f 6c 64 2d 68 6f 6f 6b 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | ondition.old-hook)))))..(defun.s |
| 1a6300 | 65 74 2d 62 72 65 61 6b 2d 68 6f 6f 6b 20 28 68 6f 6f 6b 29 0a 20 20 28 73 65 74 71 20 73 62 2d | et-break-hook.(hook)...(setq.sb- |
| 1a6320 | 65 78 74 3a 2a 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 28 6d 61 6b 65 | ext:*invoke-debugger-hook*.(make |
| 1a6340 | 2d 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 68 6f 6f 6b 29 29 29 0a 0a 28 | -invoke-debugger-hook.hook)))..( |
| 1a6360 | 64 65 66 75 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 62 72 65 61 6b 2d 68 6f 6f 6b 20 28 68 6f 6f 6b | defun.call-with-break-hook.(hook |
| 1a6380 | 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 73 62 2d 65 78 74 3a 2a | .continuation)...(let.((sb-ext:* |
| 1a63a0 | 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 28 6d 61 6b 65 2d 69 6e 76 6f | invoke-debugger-hook*.(make-invo |
| 1a63c0 | 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 68 6f 6f 6b 29 29 29 0a 20 20 20 20 28 66 75 | ke-debugger-hook.hook))).....(fu |
| 1a63e0 | 6e 63 61 6c 6c 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | ncall.continuation)))..(defimple |
| 1a6400 | 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 73 74 61 6c 6c 2d 64 65 62 75 67 67 65 72 2d 67 6c 6f 62 61 | mentation.install-debugger-globa |
| 1a6420 | 6c 6c 79 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 73 65 74 71 20 2a 64 65 62 75 67 67 65 72 | lly.(function)...(setq.*debugger |
| 1a6440 | 2d 68 6f 6f 6b 2a 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 73 65 74 2d 62 72 65 61 6b 2d 68 6f | -hook*.function)...(set-break-ho |
| 1a6460 | 6f 6b 20 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | ok.function))..(defimplementatio |
| 1a6480 | 6e 20 63 6f 6e 64 69 74 69 6f 6e 2d 65 78 74 72 61 73 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 | n.condition-extras.(condition).. |
| 1a64a0 | 20 28 63 6f 6e 64 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 69 74 | .(cond.#+#.(swank/sbcl::sbcl-wit |
| 1a64c0 | 68 2d 6e 65 77 2d 73 74 65 70 70 65 72 2d 70 29 0a 20 20 20 20 20 20 20 20 28 28 74 79 70 65 70 | h-new-stepper-p).........((typep |
| 1a64e0 | 20 63 6f 6e 64 69 74 69 6f 6e 20 27 73 62 2d 69 6d 70 6c 3a 3a 73 74 65 70 2d 66 6f 72 6d 2d 63 | .condition.'sb-impl::step-form-c |
| 1a6500 | 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 60 28 28 3a 73 68 6f 77 2d 66 72 61 6d | ondition)..........`((:show-fram |
| 1a6520 | 65 2d 73 6f 75 72 63 65 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 74 79 70 65 70 20 63 6f | e-source.0))).........((typep.co |
| 1a6540 | 6e 64 69 74 69 6f 6e 20 27 73 62 2d 69 6e 74 3a 72 65 66 65 72 65 6e 63 65 2d 63 6f 6e 64 69 74 | ndition.'sb-int:reference-condit |
| 1a6560 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 66 73 20 28 73 62 2d 69 6e | ion)..........(let.((refs.(sb-in |
| 1a6580 | 74 3a 72 65 66 65 72 65 6e 63 65 2d 63 6f 6e 64 69 74 69 6f 6e 2d 72 65 66 65 72 65 6e 63 65 73 | t:reference-condition-references |
| 1a65a0 | 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 72 65 66 | .condition)))............(if.ref |
| 1a65c0 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 72 65 66 65 72 65 6e 63 65 73 20 | s................`((:references. |
| 1a65e0 | 2c 28 65 78 74 65 72 6e 61 6c 69 7a 65 2d 72 65 66 65 72 65 6e 63 65 20 72 65 66 73 29 29 29 29 | ,(externalize-reference.refs)))) |
| 1a6600 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 65 72 6e 61 6c 69 7a 65 2d 72 65 66 65 72 65 6e | ))))..(defun.externalize-referen |
| 1a6620 | 63 65 20 28 72 65 66 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 72 65 66 0a 20 20 20 20 28 6e | ce.(ref)...(etypecase.ref.....(n |
| 1a6640 | 75 6c 6c 20 6e 69 6c 29 0a 20 20 20 20 28 63 6f 6e 73 20 28 63 6f 6e 73 20 28 65 78 74 65 72 6e | ull.nil).....(cons.(cons.(extern |
| 1a6660 | 61 6c 69 7a 65 2d 72 65 66 65 72 65 6e 63 65 20 28 63 61 72 20 72 65 66 29 29 0a 20 20 20 20 20 | alize-reference.(car.ref))...... |
| 1a6680 | 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 65 72 6e 61 6c 69 7a 65 2d 72 65 66 65 72 65 6e 63 | ...........(externalize-referenc |
| 1a66a0 | 65 20 28 63 64 72 20 72 65 66 29 29 29 29 0a 20 20 20 20 28 28 6f 72 20 73 74 72 69 6e 67 20 6e | e.(cdr.ref)))).....((or.string.n |
| 1a66c0 | 75 6d 62 65 72 29 20 72 65 66 29 0a 20 20 20 20 28 73 79 6d 62 6f 6c 0a 20 20 20 20 20 28 63 6f | umber).ref).....(symbol......(co |
| 1a66e0 | 6e 64 20 28 28 65 71 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 72 65 66 29 20 28 73 79 | nd.((eq.(symbol-package.ref).(sy |
| 1a6700 | 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 3a 74 65 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | mbol-package.:test))............ |
| 1a6720 | 20 72 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | .ref)............(t.(symbol-name |
| 1a6740 | 20 72 65 66 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c 64 62 2d 73 74 61 63 6b 2d | .ref))))))..(defvar.*sldb-stack- |
| 1a6760 | 74 6f 70 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 | top*)..(defimplementation.call-w |
| 1a6780 | 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 64 65 62 75 67 | ith-debugging-environment.(debug |
| 1a67a0 | 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 66 75 | ger-loop-fn)...(declare.(type.fu |
| 1a67c0 | 6e 63 74 69 6f 6e 20 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 29 0a 20 20 28 6c 65 74 | nction.debugger-loop-fn))...(let |
| 1a67e0 | 20 28 28 2a 73 6c 64 62 2d 73 74 61 63 6b 2d 74 6f 70 2a 0a 20 20 20 20 20 20 20 20 20 20 28 69 | .((*sldb-stack-top*...........(i |
| 1a6800 | 66 20 28 61 6e 64 20 28 6e 6f 74 20 2a 64 65 62 75 67 2d 73 77 61 6e 6b 2d 62 61 63 6b 65 6e 64 | f.(and.(not.*debug-swank-backend |
| 1a6820 | 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 62 2d 64 65 62 75 67 3a 2a | *)....................sb-debug:* |
| 1a6840 | 73 74 61 63 6b 2d 74 6f 70 2d 68 69 6e 74 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 | stack-top-hint*)...............# |
| 1a6860 | 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 72 | +#.(swank/backend:with-symbol.'r |
| 1a6880 | 65 73 6f 6c 76 65 2d 73 74 61 63 6b 2d 74 6f 70 2d 68 69 6e 74 20 27 73 62 2d 64 65 62 75 67 29 | esolve-stack-top-hint.'sb-debug) |
| 1a68a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 65 62 75 67 3a 3a 72 65 73 6f 6c 76 | ...............(sb-debug::resolv |
| 1a68c0 | 65 2d 73 74 61 63 6b 2d 74 6f 70 2d 68 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-stack-top-hint)............... |
| 1a68e0 | 23 2d 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 | #-#.(swank/backend:with-symbol.' |
| 1a6900 | 72 65 73 6f 6c 76 65 2d 73 74 61 63 6b 2d 74 6f 70 2d 68 69 6e 74 20 27 73 62 2d 64 65 62 75 67 | resolve-stack-top-hint.'sb-debug |
| 1a6920 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 62 2d 64 65 62 75 67 3a 2a 73 74 61 63 6b 2d | )...............sb-debug:*stack- |
| 1a6940 | 74 6f 70 2d 68 69 6e 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 69 3a 74 | top-hint*...............(sb-di:t |
| 1a6960 | 6f 70 2d 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 62 2d 64 65 62 75 67 3a 2a 73 | op-frame))).........(sb-debug:*s |
| 1a6980 | 74 61 63 6b 2d 74 6f 70 2d 68 69 6e 74 2a 20 6e 69 6c 29 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 | tack-top-hint*.nil)).....(handle |
| 1a69a0 | 72 2d 62 69 6e 64 20 28 28 73 62 2d 64 69 3a 64 65 62 75 67 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 | r-bind.((sb-di:debug-condition.. |
| 1a69c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 6f 6e | ....................(lambda.(con |
| 1a69e0 | 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | dition)........................( |
| 1a6a00 | 73 69 67 6e 61 6c 20 27 73 6c 64 62 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | signal.'sldb-condition.......... |
| 1a6a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d | ......................:original- |
| 1a6a40 | 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 28 66 | condition.condition)))).......(f |
| 1a6a60 | 75 6e 63 61 6c 6c 20 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 29 29 29 0a 0a 23 2b 23 | uncall.debugger-loop-fn))))..#+# |
| 1a6a80 | 2e 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 69 74 68 2d 6e 65 77 2d 73 74 65 70 | .(swank/sbcl::sbcl-with-new-step |
| 1a6aa0 | 70 65 72 2d 70 29 0a 28 70 72 6f 67 6e 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | per-p).(progn...(defimplementati |
| 1a6ac0 | 6f 6e 20 61 63 74 69 76 61 74 65 2d 73 74 65 70 70 69 6e 67 20 28 66 72 61 6d 65 29 0a 20 20 20 | on.activate-stepping.(frame).... |
| 1a6ae0 | 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 72 61 6d 65 29 29 0a 20 20 20 20 28 73 | .(declare.(ignore.frame)).....(s |
| 1a6b00 | 62 2d 69 6d 70 6c 3a 3a 65 6e 61 62 6c 65 2d 73 74 65 70 70 69 6e 67 29 29 0a 20 20 28 64 65 66 | b-impl::enable-stepping))...(def |
| 1a6b20 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 64 62 2d 73 74 65 70 70 65 72 2d 63 6f 6e 64 | implementation.sldb-stepper-cond |
| 1a6b40 | 69 74 69 6f 6e 2d 70 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 28 74 79 70 65 70 20 63 | ition-p.(condition).....(typep.c |
| 1a6b60 | 6f 6e 64 69 74 69 6f 6e 20 27 73 62 2d 65 78 74 3a 73 74 65 70 2d 66 6f 72 6d 2d 63 6f 6e 64 69 | ondition.'sb-ext:step-form-condi |
| 1a6b80 | 74 69 6f 6e 29 29 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 64 62 | tion))...(defimplementation.sldb |
| 1a6ba0 | 2d 73 74 65 70 2d 69 6e 74 6f 20 28 29 0a 20 20 20 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 | -step-into.().....(invoke-restar |
| 1a6bc0 | 74 20 27 73 62 2d 65 78 74 3a 73 74 65 70 2d 69 6e 74 6f 29 29 0a 20 20 28 64 65 66 69 6d 70 6c | t.'sb-ext:step-into))...(defimpl |
| 1a6be0 | 65 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 64 62 2d 73 74 65 70 2d 6e 65 78 74 20 28 29 0a 20 20 20 | ementation.sldb-step-next.().... |
| 1a6c00 | 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 27 73 62 2d 65 78 74 3a 73 74 65 70 2d 6e 65 | .(invoke-restart.'sb-ext:step-ne |
| 1a6c20 | 78 74 29 29 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 64 62 2d 73 | xt))...(defimplementation.sldb-s |
| 1a6c40 | 74 65 70 2d 6f 75 74 20 28 29 0a 20 20 20 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 27 | tep-out.().....(invoke-restart.' |
| 1a6c60 | 73 62 2d 65 78 74 3a 73 74 65 70 2d 6f 75 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | sb-ext:step-out)))..(defimplemen |
| 1a6c80 | 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 28 | tation.call-with-debugger-hook.( |
| 1a6ca0 | 68 6f 6f 6b 20 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f | hook.fun)...(let.((*debugger-hoo |
| 1a6cc0 | 6b 2a 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 73 62 63 6c | k*.hook).........#+#.(swank/sbcl |
| 1a6ce0 | 3a 3a 73 62 63 6c 2d 77 69 74 68 2d 6e 65 77 2d 73 74 65 70 70 65 72 2d 70 29 0a 20 20 20 20 20 | ::sbcl-with-new-stepper-p)...... |
| 1a6d00 | 20 20 20 28 73 62 2d 65 78 74 3a 2a 73 74 65 70 70 65 72 2d 68 6f 6f 6b 2a 0a 20 20 20 20 20 20 | ...(sb-ext:*stepper-hook*....... |
| 1a6d20 | 20 20 20 28 6c 61 6d 62 64 61 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | ...(lambda.(condition).......... |
| 1a6d40 | 20 20 28 74 79 70 65 63 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 | ..(typecase.condition........... |
| 1a6d60 | 20 20 20 28 73 62 2d 65 78 74 3a 73 74 65 70 2d 66 6f 72 6d 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 | ...(sb-ext:step-form-condition.. |
| 1a6d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 62 2d 64 65 62 75 67 3a 2a 73 74 | .............(let.((sb-debug:*st |
| 1a6da0 | 61 63 6b 2d 74 6f 70 2d 68 69 6e 74 2a 20 28 73 62 2d 64 69 3a 3a 66 69 6e 64 2d 73 74 65 70 70 | ack-top-hint*.(sb-di::find-stepp |
| 1a6dc0 | 65 64 2d 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d | ed-frame))).................(sb- |
| 1a6de0 | 69 6d 70 6c 3a 3a 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 20 63 6f 6e 64 69 74 69 6f 6e 29 | impl::invoke-debugger.condition) |
| 1a6e00 | 29 29 29 29 29 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 23 2b 23 2e 28 73 | )))))).....(handler-bind.(#+#.(s |
| 1a6e20 | 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 69 74 68 2d 6e 65 77 2d 73 74 65 70 70 65 72 | wank/sbcl::sbcl-with-new-stepper |
| 1a6e40 | 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 65 78 74 3a 73 | -p)....................(sb-ext:s |
| 1a6e60 | 74 65 70 2d 63 6f 6e 64 69 74 69 6f 6e 20 23 27 73 62 2d 69 6d 70 6c 3a 3a 69 6e 76 6f 6b 65 2d | tep-condition.#'sb-impl::invoke- |
| 1a6e80 | 73 74 65 70 70 65 72 29 29 0a 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 62 72 65 61 6b | stepper)).......(call-with-break |
| 1a6ea0 | 2d 68 6f 6f 6b 20 68 6f 6f 6b 20 66 75 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 74 68 2d 66 | -hook.hook.fun))))..(defun.nth-f |
| 1a6ec0 | 72 61 6d 65 20 28 69 6e 64 65 78 29 0a 20 20 28 64 6f 20 28 28 66 72 61 6d 65 20 2a 73 6c 64 62 | rame.(index)...(do.((frame.*sldb |
| 1a6ee0 | 2d 73 74 61 63 6b 2d 74 6f 70 2a 20 28 73 62 2d 64 69 3a 66 72 61 6d 65 2d 64 6f 77 6e 20 66 72 | -stack-top*.(sb-di:frame-down.fr |
| 1a6f00 | 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 69 20 69 6e 64 65 78 20 28 31 2d 20 69 29 29 29 0a 20 | ame))........(i.index.(1-.i))).. |
| 1a6f20 | 20 20 20 20 20 28 28 7a 65 72 6f 70 20 69 29 20 66 72 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d | .....((zerop.i).frame)))..(defim |
| 1a6f40 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 28 | plementation.compute-backtrace.( |
| 1a6f60 | 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 66 | start.end)..."Return.a.list.of.f |
| 1a6f80 | 72 61 6d 65 73 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 66 72 61 6d 65 20 6e 75 6d 62 65 72 | rames.starting.with.frame.number |
| 1a6fa0 | 20 53 54 41 52 54 20 61 6e 64 0a 63 6f 6e 74 69 6e 75 69 6e 67 20 74 6f 20 66 72 61 6d 65 20 6e | .START.and.continuing.to.frame.n |
| 1a6fc0 | 75 6d 62 65 72 20 45 4e 44 20 6f 72 2c 20 69 66 20 45 4e 44 20 69 73 20 6e 69 6c 2c 20 74 68 65 | umber.END.or,.if.END.is.nil,.the |
| 1a6fe0 | 20 6c 61 73 74 20 66 72 61 6d 65 20 6f 6e 20 74 68 65 0a 73 74 61 63 6b 2e 22 0a 20 20 28 6c 65 | .last.frame.on.the.stack."...(le |
| 1a7000 | 74 20 28 28 65 6e 64 20 28 6f 72 20 65 6e 64 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 | t.((end.(or.end.most-positive-fi |
| 1a7020 | 78 6e 75 6d 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 20 3d 20 28 6e 74 68 2d 66 | xnum))).....(loop.for.f.=.(nth-f |
| 1a7040 | 72 61 6d 65 20 73 74 61 72 74 29 20 74 68 65 6e 20 28 73 62 2d 64 69 3a 66 72 61 6d 65 2d 64 6f | rame.start).then.(sb-di:frame-do |
| 1a7060 | 77 6e 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 73 74 61 72 74 | wn.f)...........for.i.from.start |
| 1a7080 | 20 62 65 6c 6f 77 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 66 20 63 6f 6c | .below.end...........while.f.col |
| 1a70a0 | 6c 65 63 74 20 66 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 | lect.f)))..(defimplementation.pr |
| 1a70c0 | 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 73 74 72 65 61 6d 29 0a 20 20 28 73 62 2d 64 | int-frame.(frame.stream)...(sb-d |
| 1a70e0 | 65 62 75 67 3a 3a 70 72 69 6e 74 2d 66 72 61 6d 65 2d 63 61 6c 6c 20 66 72 61 6d 65 20 73 74 72 | ebug::print-frame-call.frame.str |
| 1a7100 | 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eam............................. |
| 1a7120 | 20 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 74 0a 20 20 20 20 20 20 20 20 20 20 | ..:allow-other-keys.t........... |
| 1a7140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6d 65 72 67 65 6e 63 79 2d 62 | ....................:emergency-b |
| 1a7160 | 65 73 74 2d 65 66 66 6f 72 74 20 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | est-effort.t))..(defimplementati |
| 1a7180 | 6f 6e 20 66 72 61 6d 65 2d 72 65 73 74 61 72 74 61 62 6c 65 2d 70 20 28 66 72 61 6d 65 29 0a 20 | on.frame-restartable-p.(frame).. |
| 1a71a0 | 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 69 74 68 2d 72 65 73 74 | .#+#.(swank/sbcl::sbcl-with-rest |
| 1a71c0 | 61 72 74 2d 66 72 61 6d 65 29 0a 20 20 28 6e 6f 74 20 28 6e 75 6c 6c 20 28 73 62 2d 64 65 62 75 | art-frame)...(not.(null.(sb-debu |
| 1a71e0 | 67 3a 66 72 61 6d 65 2d 68 61 73 2d 64 65 62 75 67 2d 74 61 67 2d 70 20 66 72 61 6d 65 29 29 29 | g:frame-has-debug-tag-p.frame))) |
| 1a7200 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 63 61 6c 6c | )..(defimplementation.frame-call |
| 1a7220 | 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | .(frame-number)...(multiple-valu |
| 1a7240 | 65 2d 62 69 6e 64 20 28 6e 61 6d 65 20 61 72 67 73 29 0a 20 20 20 20 20 20 28 73 62 2d 64 65 62 | e-bind.(name.args).......(sb-deb |
| 1a7260 | 75 67 3a 3a 66 72 61 6d 65 2d 63 61 6c 6c 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d | ug::frame-call.(nth-frame.frame- |
| 1a7280 | 6e 75 6d 62 65 72 29 29 0a 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 | number)).....(with-output-to-str |
| 1a72a0 | 69 6e 67 20 28 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 6c 6f 63 61 6c 6c 79 20 28 64 65 63 | ing.(stream).......(locally.(dec |
| 1a72c0 | 6c 61 72 65 20 28 73 62 2d 65 78 74 3a 6d 75 66 66 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 73 | lare.(sb-ext:muffle-conditions.s |
| 1a72e0 | 62 2d 65 78 74 3a 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 28 70 | b-ext:compiler-note)).........(p |
| 1a7300 | 70 72 69 6e 74 2d 6c 6f 67 69 63 61 6c 2d 62 6c 6f 63 6b 20 28 73 74 72 65 61 6d 20 6e 69 6c 20 | print-logical-block.(stream.nil. |
| 1a7320 | 3a 70 72 65 66 69 78 20 22 28 22 20 3a 73 75 66 66 69 78 20 22 29 22 29 0a 20 20 20 20 20 20 20 | :prefix."(".:suffix.")")........ |
| 1a7340 | 20 20 20 28 6c 6f 63 61 6c 6c 79 20 28 64 65 63 6c 61 72 65 20 28 73 62 2d 65 78 74 3a 75 6e 6d | ...(locally.(declare.(sb-ext:unm |
| 1a7360 | 75 66 66 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 73 62 2d 65 78 74 3a 63 6f 6d 70 69 6c 65 72 | uffle-conditions.sb-ext:compiler |
| 1a7380 | 2d 6e 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e | -note)).............(let.((*prin |
| 1a73a0 | 74 2d 6c 65 6e 67 74 68 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-length*.nil).................. |
| 1a73c0 | 20 28 2a 70 72 69 6e 74 2d 6c 65 76 65 6c 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .(*print-level*.nil))........... |
| 1a73e0 | 20 20 20 20 28 70 72 69 6e 31 20 28 73 62 2d 64 65 62 75 67 3a 3a 65 6e 73 75 72 65 2d 70 72 69 | ....(prin1.(sb-debug::ensure-pri |
| 1a7400 | 6e 74 61 62 6c 65 2d 6f 62 6a 65 63 74 20 6e 61 6d 65 29 20 73 74 72 65 61 6d 29 29 0a 20 20 20 | ntable-object.name).stream)).... |
| 1a7420 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 28 73 62 2d 64 65 62 75 67 3a 3a | .........(let.((args.(sb-debug:: |
| 1a7440 | 65 6e 73 75 72 65 2d 70 72 69 6e 74 61 62 6c 65 2d 6f 62 6a 65 63 74 20 61 72 67 73 29 29 29 0a | ensure-printable-object.args))). |
| 1a7460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 20 61 72 67 73 29 0a 20 | ..............(if.(listp.args).. |
| 1a7480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 | .................(format.stream. |
| 1a74a0 | 22 7e 7b 20 7e 5f 7e 53 7e 7d 22 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "~{.~_~S~}".args)............... |
| 1a74c0 | 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 20 7e 53 22 20 61 72 67 73 29 29 29 | ....(format.stream.".~S".args))) |
| 1a74e0 | 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 43 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 2d 3e 20 73 6f | ))))))..;;;;.Code-location.->.so |
| 1a7500 | 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 74 72 61 6e 73 6c 61 74 69 6f 6e 0a 0a 3b 3b 3b 20 49 | urce-location.translation..;;;.I |
| 1a7520 | 66 20 64 65 62 75 67 2d 62 6c 6f 63 6b 20 69 6e 66 6f 20 69 73 20 61 76 61 69 62 61 6c 65 2c 20 | f.debug-block.info.is.avaibale,. |
| 1a7540 | 77 65 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 66 69 6c 65 20 70 6f 73 69 74 69 6f 6e 20 6f | we.determine.the.file.position.o |
| 1a7560 | 66 0a 3b 3b 3b 20 74 68 65 20 73 6f 75 72 63 65 2d 70 61 74 68 20 66 6f 72 20 61 20 63 6f 64 65 | f.;;;.the.source-path.for.a.code |
| 1a7580 | 2d 6c 6f 63 61 74 69 6f 6e 2e 20 20 49 66 20 74 68 65 20 63 6f 64 65 20 77 61 73 20 63 6f 6d 70 | -location...If.the.code.was.comp |
| 1a75a0 | 69 6c 65 64 0a 3b 3b 3b 20 77 69 74 68 20 43 2d 63 20 43 2d 63 2c 20 77 65 20 68 61 76 65 20 74 | iled.;;;.with.C-c.C-c,.we.have.t |
| 1a75c0 | 6f 20 73 65 61 72 63 68 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 74 68 65 20 73 6f 75 | o.search.the.position.in.the.sou |
| 1a75e0 | 72 63 65 20 73 74 72 69 6e 67 2e 0a 3b 3b 3b 20 49 66 20 74 68 65 72 65 27 73 20 6e 6f 20 64 65 | rce.string..;;;.If.there's.no.de |
| 1a7600 | 62 75 67 2d 62 6c 6f 63 6b 20 69 6e 66 6f 2c 20 77 65 20 72 65 74 75 72 6e 20 74 68 65 20 28 6c | bug-block.info,.we.return.the.(l |
| 1a7620 | 65 73 73 20 70 72 65 63 69 73 65 29 0a 3b 3b 3b 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e | ess.precise).;;;.source-location |
| 1a7640 | 20 6f 66 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 66 75 6e 63 74 69 6f 6e 2e 0a | .of.the.corresponding.function.. |
| 1a7660 | 0a 28 64 65 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 | .(defun.code-location-source-loc |
| 1a7680 | 61 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 | ation.(code-location)...(let*.(( |
| 1a76a0 | 64 73 6f 75 72 63 65 20 28 73 62 2d 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 62 | dsource.(sb-di:code-location-deb |
| 1a76c0 | 75 67 2d 73 6f 75 72 63 65 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 | ug-source.code-location))....... |
| 1a76e0 | 20 20 20 28 70 6c 69 73 74 20 28 73 62 2d 63 3a 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 70 6c | ...(plist.(sb-c::debug-source-pl |
| 1a7700 | 69 73 74 20 64 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 61 67 65 20 | ist.dsource))..........(package. |
| 1a7720 | 28 67 65 74 66 20 70 6c 69 73 74 20 3a 65 6d 61 63 73 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 | (getf.plist.:emacs-package)).... |
| 1a7740 | 20 20 20 20 20 20 28 2a 70 61 63 6b 61 67 65 2a 20 28 6f 72 20 28 61 6e 64 20 70 61 63 6b 61 67 | ......(*package*.(or.(and.packag |
| 1a7760 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | e..............................( |
| 1a7780 | 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 | find-package.package)).......... |
| 1a77a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 70 61 63 6b 61 67 65 2a 29 29 29 0a 20 20 20 20 | ...............*package*)))..... |
| 1a77c0 | 28 69 66 20 28 67 65 74 66 20 70 6c 69 73 74 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 29 0a 20 | (if.(getf.plist.:emacs-buffer).. |
| 1a77e0 | 20 20 20 20 20 20 20 28 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 | .......(emacs-buffer-source-loca |
| 1a7800 | 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 70 6c 69 73 74 29 0a 20 20 20 20 20 20 | tion.code-location.plist)....... |
| 1a7820 | 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c | ..#+#.(swank/backend:with-symbol |
| 1a7840 | 20 27 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 66 72 6f 6d 20 27 73 62 2d 64 69 29 0a 20 20 20 20 | .'debug-source-from.'sb-di)..... |
| 1a7860 | 20 20 20 20 28 65 63 61 73 65 20 28 73 62 2d 64 69 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 66 | ....(ecase.(sb-di:debug-source-f |
| 1a7880 | 72 6f 6d 20 64 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 28 66 | rom.dsource)...........(:file.(f |
| 1a78a0 | 69 6c 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f | ile-source-location.code-locatio |
| 1a78c0 | 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 3a 6c 69 73 70 20 28 6c 69 73 70 2d 73 6f 75 72 63 | n))...........(:lisp.(lisp-sourc |
| 1a78e0 | 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 | e-location.code-location)))..... |
| 1a7900 | 20 20 20 20 23 2d 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 | ....#-#.(swank/backend:with-symb |
| 1a7920 | 6f 6c 20 27 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 66 72 6f 6d 20 27 73 62 2d 64 69 29 0a 20 20 | ol.'debug-source-from.'sb-di)... |
| 1a7940 | 20 20 20 20 20 20 28 69 66 20 28 73 62 2d 64 69 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 6e 61 | ......(if.(sb-di:debug-source-na |
| 1a7960 | 6d 65 73 74 72 69 6e 67 20 64 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | mestring.dsource).............(f |
| 1a7980 | 69 6c 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f | ile-source-location.code-locatio |
| 1a79a0 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 70 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 | n).............(lisp-source-loca |
| 1a79c0 | 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 3b 3b 3b 20 46 49 58 | tion.code-location)))))..;;;.FIX |
| 1a79e0 | 4d 45 3a 20 54 68 65 20 6e 61 6d 69 6e 67 20 70 6f 6c 69 63 79 20 6f 66 20 73 6f 75 72 63 65 2d | ME:.The.naming.policy.of.source- |
| 1a7a00 | 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 73 20 69 73 20 61 20 62 69 74 0a 3b 3b 3b 20 | location.functions.is.a.bit.;;;. |
| 1a7a20 | 66 75 7a 7a 79 3a 20 77 65 20 68 61 76 65 20 46 55 4e 43 54 49 4f 4e 2d 53 4f 55 52 43 45 2d 4c | fuzzy:.we.have.FUNCTION-SOURCE-L |
| 1a7a40 | 4f 43 41 54 49 4f 4e 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 20 74 68 65 0a 3b 3b 3b 20 73 6f | OCATION.which.returns.the.;;;.so |
| 1a7a60 | 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 61 20 66 75 6e 63 74 69 6f 6e 2c 20 61 6e | urce-location.for.a.function,.an |
| 1a7a80 | 64 20 77 65 20 61 6c 73 6f 20 68 61 76 65 20 46 49 4c 45 2d 53 4f 55 52 43 45 2d 4c 4f 43 41 54 | d.we.also.have.FILE-SOURCE-LOCAT |
| 1a7aa0 | 49 4f 4e 20 26 63 6f 0a 3b 3b 3b 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 20 74 68 65 20 73 6f | ION.&co.;;;.which.returns.the.so |
| 1a7ac0 | 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 61 20 5f 63 6f 64 65 2d 6c 6f 63 61 74 69 | urce.location.for.a._code-locati |
| 1a7ae0 | 6f 6e 5f 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4d 61 79 62 65 20 74 68 65 73 65 20 73 68 6f 75 6c 64 20 | on_..;;;.;;;.Maybe.these.should. |
| 1a7b00 | 62 65 20 6e 61 6d 65 64 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 69 6c 65 2d 73 6f 75 72 | be.named.code-location-file-sour |
| 1a7b20 | 63 65 2d 6c 6f 63 61 74 69 6f 6e 2c 0a 3b 3b 3b 20 65 74 63 2c 20 74 75 72 6e 65 64 20 69 6e 74 | ce-location,.;;;.etc,.turned.int |
| 1a7b40 | 6f 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 73 2c 20 6f 72 20 73 6f 6d 65 74 68 69 6e | o.generic.functions,.or.somethin |
| 1a7b60 | 67 2e 20 49 6e 20 74 68 65 20 76 65 72 79 0a 3b 3b 3b 20 6c 65 61 73 74 20 74 68 65 20 6e 61 6d | g..In.the.very.;;;.least.the.nam |
| 1a7b80 | 65 73 20 73 68 6f 75 6c 64 20 69 6e 64 69 63 61 74 65 20 74 68 65 20 6d 61 69 6e 20 65 6e 74 72 | es.should.indicate.the.main.entr |
| 1a7ba0 | 79 20 70 6f 69 6e 74 20 76 73 2e 20 68 65 6c 70 65 72 0a 3b 3b 3b 20 73 74 61 74 75 73 2e 0a 0a | y.point.vs..helper.;;;.status... |
| 1a7bc0 | 28 64 65 66 75 6e 20 66 69 6c 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 64 | (defun.file-source-location.(cod |
| 1a7be0 | 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 69 66 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e | e-location)...(if.(code-location |
| 1a7c00 | 2d 68 61 73 2d 64 65 62 75 67 2d 62 6c 6f 63 6b 2d 69 6e 66 6f 2d 70 20 63 6f 64 65 2d 6c 6f 63 | -has-debug-block-info-p.code-loc |
| 1a7c20 | 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 66 69 6c 65 2d 73 6f 75 72 63 65 | ation).......(source-file-source |
| 1a7c40 | 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 | -location.code-location).......( |
| 1a7c60 | 66 61 6c 6c 62 61 63 6b 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f | fallback-source-location.code-lo |
| 1a7c80 | 63 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 61 6c 6c 62 61 63 6b 2d 73 6f 75 72 63 | cation)))..(defun.fallback-sourc |
| 1a7ca0 | 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6c 65 | e-location.(code-location)...(le |
| 1a7cc0 | 74 20 28 28 66 75 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 62 75 67 2d 66 75 6e | t.((fun.(code-location-debug-fun |
| 1a7ce0 | 2d 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | -fun.code-location))).....(cond. |
| 1a7d00 | 28 66 75 6e 20 28 66 75 6e 63 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 | (fun.(function-source-location.f |
| 1a7d20 | 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 43 61 6e 6e 6f 74 | un))...........(t.(error."Cannot |
| 1a7d40 | 20 66 69 6e 64 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 3a 20 7e 41 20 22 20 | .find.source.location.for:.~A.". |
| 1a7d60 | 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d | code-location)))))..(defun.lisp- |
| 1a7d80 | 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a | source-location.(code-location). |
| 1a7da0 | 20 20 28 6c 65 74 20 28 28 73 6f 75 72 63 65 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 | ..(let.((source.(prin1-to-string |
| 1a7dc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 65 62 75 67 3a 3a 63 6f 64 | ..................(sb-debug::cod |
| 1a7de0 | 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 20 63 6f 64 65 2d 6c 6f 63 61 | e-location-source-form.code-loca |
| 1a7e00 | 74 69 6f 6e 20 31 30 30 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 20 73 | tion.100))).........(condition.s |
| 1a7e20 | 77 61 6e 6b 3a 2a 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a 29 | wank:*swank-debugger-condition*) |
| 1a7e40 | 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 | ).....(if.(and.(typep.condition. |
| 1a7e60 | 27 73 62 2d 69 6d 70 6c 3a 3a 73 74 65 70 2d 66 6f 72 6d 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 | 'sb-impl::step-form-condition).. |
| 1a7e80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 20 22 53 42 2d 49 4d 50 4c 3a 3a 57 49 | ............(search."SB-IMPL::WI |
| 1a7ea0 | 54 48 2d 53 54 45 50 50 49 4e 47 2d 45 4e 41 42 4c 45 44 22 20 73 6f 75 72 63 65 0a 20 20 20 20 | TH-STEPPING-ENABLED".source..... |
| 1a7ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 63 68 61 72 2d 65 71 | .................:test.#'char-eq |
| 1a7ee0 | 75 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 20 22 53 42 2d 49 4d | ual)..............(search."SB-IM |
| 1a7f00 | 50 4c 3a 3a 53 54 45 50 2d 46 49 4e 49 53 48 45 44 22 20 73 6f 75 72 63 65 20 3a 74 65 73 74 20 | PL::STEP-FINISHED".source.:test. |
| 1a7f20 | 23 27 63 68 61 72 2d 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 69 6e | #'char-equal)).........;;.The.in |
| 1a7f40 | 69 74 69 61 6c 20 66 6f 72 6d 20 69 73 20 75 74 74 65 72 6c 79 20 75 6e 69 6e 74 65 72 65 73 74 | itial.form.is.utterly.uninterest |
| 1a7f60 | 69 6e 67 20 2d 2d 20 61 6e 64 20 61 6c 6d 6f 73 74 0a 20 20 20 20 20 20 20 20 3b 3b 20 63 65 72 | ing.--.and.almost.........;;.cer |
| 1a7f80 | 74 61 69 6e 6c 79 20 72 69 67 68 74 20 74 68 65 72 65 20 69 6e 20 74 68 65 20 52 45 50 4c 2e 0a | tainly.right.there.in.the.REPL.. |
| 1a7fa0 | 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 22 53 74 | ........(make-error-location."St |
| 1a7fc0 | 65 70 70 69 6e 67 2e 2e 2e 22 29 0a 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 | epping...").........(make-locati |
| 1a7fe0 | 6f 6e 20 60 28 3a 73 6f 75 72 63 65 2d 66 6f 72 6d 20 2c 73 6f 75 72 63 65 29 20 27 28 3a 70 6f | on.`(:source-form.,source).'(:po |
| 1a8000 | 73 69 74 69 6f 6e 20 31 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 6d 61 63 73 2d 62 75 66 66 | sition.1)))))..(defun.emacs-buff |
| 1a8020 | 65 72 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f | er-source-location.(code-locatio |
| 1a8040 | 6e 20 70 6c 69 73 74 29 0a 20 20 28 69 66 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 68 61 | n.plist)...(if.(code-location-ha |
| 1a8060 | 73 2d 64 65 62 75 67 2d 62 6c 6f 63 6b 2d 69 6e 66 6f 2d 70 20 63 6f 64 65 2d 6c 6f 63 61 74 69 | s-debug-block-info-p.code-locati |
| 1a8080 | 6f 6e 29 0a 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 | on).......(destructuring-bind.(& |
| 1a80a0 | 6b 65 79 20 65 6d 61 63 73 2d 62 75 66 66 65 72 20 65 6d 61 63 73 2d 70 6f 73 69 74 69 6f 6e 20 | key.emacs-buffer.emacs-position. |
| 1a80c0 | 65 6d 61 63 73 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | emacs-string.................... |
| 1a80e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 0a | .............&allow-other-keys). |
| 1a8100 | 20 20 20 20 20 20 20 20 20 20 70 6c 69 73 74 0a 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 | ..........plist.........(let*.(( |
| 1a8120 | 70 6f 73 20 28 73 74 72 69 6e 67 2d 73 6f 75 72 63 65 2d 70 6f 73 69 74 69 6f 6e 20 63 6f 64 65 | pos.(string-source-position.code |
| 1a8140 | 2d 6c 6f 63 61 74 69 6f 6e 20 65 6d 61 63 73 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 | -location.emacs-string))........ |
| 1a8160 | 20 20 20 20 20 20 20 20 28 73 6e 69 70 70 65 64 20 28 72 65 61 64 2d 73 6e 69 70 70 65 74 2d 66 | ........(snipped.(read-snippet-f |
| 1a8180 | 72 6f 6d 2d 73 74 72 69 6e 67 20 65 6d 61 63 73 2d 73 74 72 69 6e 67 20 70 6f 73 29 29 29 0a 20 | rom-string.emacs-string.pos))).. |
| 1a81a0 | 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 62 75 66 66 65 | .........(make-location.`(:buffe |
| 1a81c0 | 72 20 2c 65 6d 61 63 73 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.,emacs-buffer)................ |
| 1a81e0 | 20 20 20 20 20 20 20 20 20 20 60 28 3a 6f 66 66 73 65 74 20 2c 65 6d 61 63 73 2d 70 6f 73 69 74 | ..........`(:offset.,emacs-posit |
| 1a8200 | 69 6f 6e 20 2c 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion.,pos)....................... |
| 1a8220 | 20 20 20 60 28 3a 73 6e 69 70 70 65 74 20 2c 73 6e 69 70 70 65 64 29 29 29 29 0a 20 20 20 20 20 | ...`(:snippet.,snipped))))...... |
| 1a8240 | 20 28 66 61 6c 6c 62 61 63 6b 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2d | .(fallback-source-location.code- |
| 1a8260 | 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d 66 69 6c 65 2d | location)))..(defun.source-file- |
| 1a8280 | 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a | source-location.(code-location). |
| 1a82a0 | 20 20 28 6c 65 74 2a 20 28 28 63 6f 64 65 2d 64 61 74 65 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 | ..(let*.((code-date.(code-locati |
| 1a82c0 | 6f 6e 2d 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 63 72 65 61 74 65 64 20 63 6f 64 65 2d 6c 6f 63 | on-debug-source-created.code-loc |
| 1a82e0 | 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 6e 61 6d 65 20 28 63 6f 64 65 | ation))..........(filename.(code |
| 1a8300 | 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 6e 61 6d 65 20 63 6f 64 65 | -location-debug-source-name.code |
| 1a8320 | 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 72 65 61 64 74 61 62 6c 65 | -location))..........(*readtable |
| 1a8340 | 2a 20 2a 72 65 61 64 74 61 62 6c 65 2a 29 0a 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d | *.*readtable*)..........(source- |
| 1a8360 | 63 6f 64 65 20 28 67 65 74 2d 73 6f 75 72 63 65 2d 63 6f 64 65 20 66 69 6c 65 6e 61 6d 65 20 63 | code.(get-source-code.filename.c |
| 1a8380 | 6f 64 65 2d 64 61 74 65 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 64 65 62 6f 6f 74 73 74 72 61 | ode-date))).....(with-debootstra |
| 1a83a0 | 70 70 69 6e 67 0a 20 20 20 20 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 | pping.......(with-input-from-str |
| 1a83c0 | 69 6e 67 20 28 73 20 73 6f 75 72 63 65 2d 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 | ing.(s.source-code).........(let |
| 1a83e0 | 2a 20 28 28 70 6f 73 20 28 73 74 72 65 61 6d 2d 73 6f 75 72 63 65 2d 70 6f 73 69 74 69 6f 6e 20 | *.((pos.(stream-source-position. |
| 1a8400 | 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | code-location.s))............... |
| 1a8420 | 20 28 73 6e 69 70 70 65 74 20 28 72 65 61 64 2d 73 6e 69 70 70 65 74 20 73 20 70 6f 73 29 29 29 | .(snippet.(read-snippet.s.pos))) |
| 1a8440 | 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c | ...........(make-location.`(:fil |
| 1a8460 | 65 20 2c 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.,filename).................... |
| 1a8480 | 20 20 20 20 20 20 60 28 3a 70 6f 73 69 74 69 6f 6e 20 2c 70 6f 73 29 0a 20 20 20 20 20 20 20 20 | ......`(:position.,pos)......... |
| 1a84a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 73 6e 69 70 70 65 74 20 2c 73 6e 69 | .................`(:snippet.,sni |
| 1a84c0 | 70 70 65 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f | ppet)))))))..(defun.code-locatio |
| 1a84e0 | 6e 2d 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 6e 61 6d 65 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 | n-debug-source-name.(code-locati |
| 1a8500 | 6f 6e 29 0a 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 20 28 23 2e 28 | on)...(namestring.(truename.(#.( |
| 1a8520 | 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 63 68 6f 6f 73 65 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 | swank/backend:choose-symbol..... |
| 1a8540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 62 2d 63 20 27 64 | ........................'sb-c.'d |
| 1a8560 | 65 62 75 67 2d 73 6f 75 72 63 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ebug-source-name................ |
| 1a8580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 62 2d 63 20 27 64 65 62 75 67 2d 73 6f 75 72 63 65 | .............'sb-c.'debug-source |
| 1a85a0 | 2d 6e 61 6d 65 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -namestring).................... |
| 1a85c0 | 20 20 20 20 20 20 20 20 28 73 62 2d 64 69 3a 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 | ........(sb-di::code-location-de |
| 1a85e0 | 62 75 67 2d 73 6f 75 72 63 65 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 28 | bug-source.code-location)))))..( |
| 1a8600 | 64 65 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 62 75 67 2d 73 6f 75 72 63 65 | defun.code-location-debug-source |
| 1a8620 | 2d 63 72 65 61 74 65 64 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 73 62 2d 63 | -created.(code-location)...(sb-c |
| 1a8640 | 3a 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 63 72 65 61 74 65 64 0a 20 20 20 28 73 62 2d 64 69 | ::debug-source-created....(sb-di |
| 1a8660 | 3a 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 62 75 67 2d 73 6f 75 72 63 65 20 63 6f 64 | ::code-location-debug-source.cod |
| 1a8680 | 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 | e-location)))..(defun.code-locat |
| 1a86a0 | 69 6f 6e 2d 64 65 62 75 67 2d 66 75 6e 2d 66 75 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e | ion-debug-fun-fun.(code-location |
| 1a86c0 | 29 0a 20 20 28 73 62 2d 64 69 3a 64 65 62 75 67 2d 66 75 6e 2d 66 75 6e 20 28 73 62 2d 64 69 3a | )...(sb-di:debug-fun-fun.(sb-di: |
| 1a86e0 | 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 62 75 67 2d 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 | code-location-debug-fun.code-loc |
| 1a8700 | 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 68 | ation)))..(defun.code-location-h |
| 1a8720 | 61 73 2d 64 65 62 75 67 2d 62 6c 6f 63 6b 2d 69 6e 66 6f 2d 70 20 28 63 6f 64 65 2d 6c 6f 63 61 | as-debug-block-info-p.(code-loca |
| 1a8740 | 74 69 6f 6e 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 28 70 72 6f | tion)...(handler-case.......(pro |
| 1a8760 | 67 6e 20 28 73 62 2d 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 62 75 67 2d 62 6c | gn.(sb-di:code-location-debug-bl |
| 1a8780 | 6f 63 6b 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ock.code-location).............. |
| 1a87a0 | 74 29 0a 20 20 20 20 28 73 62 2d 64 69 3a 6e 6f 2d 64 65 62 75 67 2d 62 6c 6f 63 6b 73 20 20 28 | t).....(sb-di:no-debug-blocks..( |
| 1a87c0 | 29 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 72 65 61 6d 2d 73 6f 75 72 63 65 2d 70 | ).nil)))..(defun.stream-source-p |
| 1a87e0 | 6f 73 69 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 74 72 65 61 6d 29 0a 20 | osition.(code-location.stream).. |
| 1a8800 | 20 28 6c 65 74 2a 20 28 28 63 6c 6f 63 20 28 73 62 2d 64 65 62 75 67 3a 3a 6d 61 79 62 65 2d 62 | .(let*.((cloc.(sb-debug::maybe-b |
| 1a8820 | 6c 6f 63 6b 2d 73 74 61 72 74 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f | lock-start-location.code-locatio |
| 1a8840 | 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 6c 66 2d 6e 75 6d 62 65 72 20 28 73 62 2d 64 69 3a | n))..........(tlf-number.(sb-di: |
| 1a8860 | 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 6c 65 76 65 6c 2d 66 6f 72 6d 2d 6f 66 66 | :code-location-toplevel-form-off |
| 1a8880 | 73 65 74 20 63 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 2d 6e 75 6d 62 65 72 | set.cloc))..........(form-number |
| 1a88a0 | 20 28 73 62 2d 64 69 3a 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 2d 6e 75 6d 62 | .(sb-di::code-location-form-numb |
| 1a88c0 | 65 72 20 63 6c 6f 63 29 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 | er.cloc))).....(multiple-value-b |
| 1a88e0 | 69 6e 64 20 28 74 6c 66 20 70 6f 73 2d 6d 61 70 29 20 28 72 65 61 64 2d 73 6f 75 72 63 65 2d 66 | ind.(tlf.pos-map).(read-source-f |
| 1a8900 | 6f 72 6d 20 74 6c 66 2d 6e 75 6d 62 65 72 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 6c 65 | orm.tlf-number.stream).......(le |
| 1a8920 | 74 2a 20 28 28 70 61 74 68 2d 74 61 62 6c 65 20 28 73 62 2d 64 69 3a 3a 66 6f 72 6d 2d 6e 75 6d | t*.((path-table.(sb-di::form-num |
| 1a8940 | 62 65 72 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 74 6c 66 20 30 29 29 0a 20 20 20 20 20 20 20 | ber-translations.tlf.0))........ |
| 1a8960 | 20 20 20 20 20 20 28 70 61 74 68 20 28 63 6f 6e 64 20 28 28 3c 3d 20 28 6c 65 6e 67 74 68 20 70 | ......(path.(cond.((<=.(length.p |
| 1a8980 | 61 74 68 2d 74 61 62 6c 65 29 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 20 20 20 20 | ath-table).form-number)......... |
| 1a89a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 20 22 69 6e 63 6f 6e 73 69 | ..................(warn."inconsi |
| 1a89c0 | 73 74 65 6e 74 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 22 29 | stent.form-number-translations") |
| 1a89e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 | ...........................(list |
| 1a8a00 | 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 | .0))..........................(t |
| 1a8a20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 76 65 | ...........................(reve |
| 1a8a40 | 72 73 65 20 28 63 64 72 20 28 61 72 65 66 20 70 61 74 68 2d 74 61 62 6c 65 20 66 6f 72 6d 2d 6e | rse.(cdr.(aref.path-table.form-n |
| 1a8a60 | 75 6d 62 65 72 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 | umber))))))).........(source-pat |
| 1a8a80 | 68 2d 73 6f 75 72 63 65 2d 70 6f 73 69 74 69 6f 6e 20 70 61 74 68 20 74 6c 66 20 70 6f 73 2d 6d | h-source-position.path.tlf.pos-m |
| 1a8aa0 | 61 70 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 72 69 6e 67 2d 73 6f 75 72 63 65 2d 70 6f | ap)))))..(defun.string-source-po |
| 1a8ac0 | 73 69 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 74 72 69 6e 67 29 0a 20 20 | sition.(code-location.string)... |
| 1a8ae0 | 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 20 73 74 72 69 6e | (with-input-from-string.(s.strin |
| 1a8b00 | 67 29 0a 20 20 20 20 28 73 74 72 65 61 6d 2d 73 6f 75 72 63 65 2d 70 6f 73 69 74 69 6f 6e 20 63 | g).....(stream-source-position.c |
| 1a8b20 | 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 29 29 29 0a 0a 3b 3b 3b 20 73 6f 75 72 63 65 2d 70 61 | ode-location.s)))..;;;.source-pa |
| 1a8b40 | 74 68 2d 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 61 6e 64 20 66 72 69 65 6e 64 73 20 61 72 65 | th-file-position.and.friends.are |
| 1a8b60 | 20 69 6e 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 70 61 72 73 65 72 0a 0a 28 64 65 66 69 6d 70 6c | .in.source-path-parser..(defimpl |
| 1a8b80 | 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e | ementation.frame-source-location |
| 1a8ba0 | 20 28 69 6e 64 65 78 29 0a 20 20 28 63 6f 6e 76 65 72 74 69 6e 67 2d 65 72 72 6f 72 73 2d 74 6f | .(index)...(converting-errors-to |
| 1a8bc0 | 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 | -error-location.....(code-locati |
| 1a8be0 | 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 28 73 62 2d 64 69 3a 66 | on-source-location......(sb-di:f |
| 1a8c00 | 72 61 6d 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e | rame-code-location.(nth-frame.in |
| 1a8c20 | 64 65 78 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 6b 65 65 70 2d 6e 6f 6e 2d 76 61 6c 69 | dex)))))..(defvar.*keep-non-vali |
| 1a8c40 | 64 2d 6c 6f 63 61 6c 73 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 64 65 62 | d-locals*.nil)..(defun.frame-deb |
| 1a8c60 | 75 67 2d 76 61 72 73 20 28 66 72 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 76 65 63 74 | ug-vars.(frame)..."Return.a.vect |
| 1a8c80 | 6f 72 20 6f 66 20 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 73 20 69 6e 20 66 72 61 6d 65 2e 22 | or.of.debug-variables.in.frame." |
| 1a8ca0 | 0a 20 20 28 6c 65 74 2a 20 28 28 61 6c 6c 2d 76 61 72 73 20 28 73 62 2d 64 69 3a 3a 64 65 62 75 | ...(let*.((all-vars.(sb-di::debu |
| 1a8cc0 | 67 2d 66 75 6e 2d 64 65 62 75 67 2d 76 61 72 73 20 28 73 62 2d 64 69 3a 66 72 61 6d 65 2d 64 65 | g-fun-debug-vars.(sb-di:frame-de |
| 1a8ce0 | 62 75 67 2d 66 75 6e 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 63 20 28 | bug-fun.frame)))..........(loc.( |
| 1a8d00 | 73 62 2d 64 69 3a 66 72 61 6d 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 | sb-di:frame-code-location.frame) |
| 1a8d20 | 29 0a 20 20 20 20 20 20 20 20 20 28 76 61 72 73 20 28 69 66 20 2a 6b 65 65 70 2d 6e 6f 6e 2d 76 | )..........(vars.(if.*keep-non-v |
| 1a8d40 | 61 6c 69 64 2d 6c 6f 63 61 6c 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | alid-locals*.................... |
| 1a8d60 | 61 6c 6c 2d 76 61 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d | all-vars....................(rem |
| 1a8d80 | 6f 76 65 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 76 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ove-if.(lambda.(var)............ |
| 1a8da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 28 73 62 2d | .....................(ecase.(sb- |
| 1a8dc0 | 64 69 3a 64 65 62 75 67 2d 76 61 72 2d 76 61 6c 69 64 69 74 79 20 76 61 72 20 6c 6f 63 29 0a 20 | di:debug-var-validity.var.loc).. |
| 1a8de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a8e00 | 20 28 3a 76 61 6c 69 64 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(:valid.nil)................... |
| 1a8e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 69 6e 76 61 6c 69 64 20 3a 75 6e 6b 6e | ................((:invalid.:unkn |
| 1a8e40 | 6f 77 6e 29 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | own).t)))....................... |
| 1a8e60 | 20 20 20 20 20 20 20 20 61 6c 6c 2d 76 61 72 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 6d 6f 72 | ........all-vars)))..........mor |
| 1a8e80 | 65 2d 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 6d 6f 72 65 2d 63 6f 75 6e 74 29 0a 20 | e-context..........more-count).. |
| 1a8ea0 | 20 20 20 28 76 61 6c 75 65 73 20 28 77 68 65 6e 20 76 61 72 73 0a 20 20 20 20 20 20 20 20 20 20 | ...(values.(when.vars........... |
| 1a8ec0 | 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 76 20 61 63 72 6f 73 73 20 76 61 72 73 0a 20 20 20 20 | ....(loop.for.v.across.vars..... |
| 1a8ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 6c 65 73 73 0a 20 20 20 20 20 20 20 20 20 | ................unless.......... |
| 1a8f00 | 20 20 20 20 20 20 20 20 20 20 20 28 63 61 73 65 20 28 64 65 62 75 67 2d 76 61 72 2d 69 6e 66 6f | ...........(case.(debug-var-info |
| 1a8f20 | 20 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6d 6f 72 65 | .v).......................(:more |
| 1a8f40 | 2d 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -context........................ |
| 1a8f60 | 28 73 65 74 66 20 6d 6f 72 65 2d 63 6f 6e 74 65 78 74 20 28 64 65 62 75 67 2d 76 61 72 2d 76 61 | (setf.more-context.(debug-var-va |
| 1a8f80 | 6c 75 65 20 76 20 66 72 61 6d 65 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lue.v.frame.loc))............... |
| 1a8fa0 | 20 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........t)..................... |
| 1a8fc0 | 20 20 28 3a 6d 6f 72 65 2d 63 6f 75 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(:more-count.................. |
| 1a8fe0 | 20 20 20 20 20 20 28 73 65 74 66 20 6d 6f 72 65 2d 63 6f 75 6e 74 20 28 64 65 62 75 67 2d 76 61 | ......(setf.more-count.(debug-va |
| 1a9000 | 72 2d 76 61 6c 75 65 20 76 20 66 72 61 6d 65 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 | r-value.v.frame.loc))........... |
| 1a9020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............t))................ |
| 1a9040 | 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 72 | .....collect.v)).............mor |
| 1a9060 | 65 2d 63 6f 6e 74 65 78 74 20 6d 6f 72 65 2d 63 6f 75 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 | e-context.more-count)))..(defun. |
| 1a9080 | 64 65 62 75 67 2d 76 61 72 2d 76 61 6c 75 65 20 28 76 61 72 20 66 72 61 6d 65 20 6c 6f 63 61 74 | debug-var-value.(var.frame.locat |
| 1a90a0 | 69 6f 6e 29 0a 20 20 28 65 63 61 73 65 20 28 73 62 2d 64 69 3a 64 65 62 75 67 2d 76 61 72 2d 76 | ion)...(ecase.(sb-di:debug-var-v |
| 1a90c0 | 61 6c 69 64 69 74 79 20 76 61 72 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 28 3a 76 61 6c 69 | alidity.var.location).....(:vali |
| 1a90e0 | 64 20 28 73 62 2d 64 69 3a 64 65 62 75 67 2d 76 61 72 2d 76 61 6c 75 65 20 76 61 72 20 66 72 61 | d.(sb-di:debug-var-value.var.fra |
| 1a9100 | 6d 65 29 29 0a 20 20 20 20 28 28 3a 69 6e 76 61 6c 69 64 20 3a 75 6e 6b 6e 6f 77 6e 29 20 27 3a | me)).....((:invalid.:unknown).': |
| 1a9120 | 3c 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 3e 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 | <not-available>)))..(defun.debug |
| 1a9140 | 2d 76 61 72 2d 69 6e 66 6f 20 28 76 61 72 29 0a 20 20 3b 3b 20 49 6e 74 72 6f 64 75 63 65 64 20 | -var-info.(var)...;;.Introduced. |
| 1a9160 | 62 79 20 53 42 43 4c 20 31 2e 30 2e 34 39 2e 37 36 2e 0a 20 20 28 6c 65 74 20 28 28 73 20 28 66 | by.SBCL.1.0.49.76....(let.((s.(f |
| 1a9180 | 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 44 45 42 55 47 2d 56 41 52 2d 49 4e 46 4f 22 20 3a 73 62 2d | ind-symbol."DEBUG-VAR-INFO".:sb- |
| 1a91a0 | 64 69 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 73 20 28 66 62 6f 75 6e 64 70 20 | di))).....(when.(and.s.(fboundp. |
| 1a91c0 | 73 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 73 20 76 61 72 29 29 29 29 0a 0a 28 64 | s)).......(funcall.s.var))))..(d |
| 1a91e0 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 28 69 | efimplementation.frame-locals.(i |
| 1a9200 | 6e 64 65 78 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 | ndex)...(let*.((frame.(nth-frame |
| 1a9220 | 20 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 63 20 28 73 62 2d 64 69 3a 66 72 | .index))..........(loc.(sb-di:fr |
| 1a9240 | 61 6d 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 | ame-code-location.frame))).....( |
| 1a9260 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 76 61 72 73 20 6d 6f 72 65 2d 63 | multiple-value-bind.(vars.more-c |
| 1a9280 | 6f 6e 74 65 78 74 20 6d 6f 72 65 2d 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20 28 66 72 61 6d | ontext.more-count).........(fram |
| 1a92a0 | 65 2d 64 65 62 75 67 2d 76 61 72 73 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 | e-debug-vars.frame).......(let.( |
| 1a92c0 | 28 6c 6f 63 61 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 | (locals...............(loop.for. |
| 1a92e0 | 76 20 69 6e 20 76 61 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f | v.in.vars.....................co |
| 1a9300 | 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | llect.....................(list. |
| 1a9320 | 3a 6e 61 6d 65 20 28 73 62 2d 64 69 3a 64 65 62 75 67 2d 76 61 72 2d 73 79 6d 62 6f 6c 20 76 29 | :name.(sb-di:debug-var-symbol.v) |
| 1a9340 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 28 | ...........................:id.( |
| 1a9360 | 73 62 2d 64 69 3a 64 65 62 75 67 2d 76 61 72 2d 69 64 20 76 29 0a 20 20 20 20 20 20 20 20 20 20 | sb-di:debug-var-id.v)........... |
| 1a9380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 61 6c 75 65 20 28 64 65 62 75 67 2d 76 61 | ................:value.(debug-va |
| 1a93a0 | 72 2d 76 61 6c 75 65 20 76 20 66 72 61 6d 65 20 6c 6f 63 29 29 29 29 29 0a 20 20 20 20 20 20 20 | r-value.v.frame.loc)))))........ |
| 1a93c0 | 20 28 69 66 20 28 61 6e 64 20 6d 6f 72 65 2d 63 6f 6e 74 65 78 74 20 6d 6f 72 65 2d 63 6f 75 6e | .(if.(and.more-context.more-coun |
| 1a93e0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 6c 6f 63 61 6c 73 0a 20 20 | t).............(append.locals... |
| 1a9400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 | ..................(list......... |
| 1a9420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 6e 61 6d 65 0a 20 20 20 20 20 20 20 | .............(list.:name........ |
| 1a9440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 69 6e 63 65 20 53 42 43 | ....................;;.Since.SBC |
| 1a9460 | 4c 20 31 2e 30 2e 34 39 2e 37 36 20 50 52 45 50 52 4f 43 45 53 53 2d 46 4f 52 2d 45 56 41 4c 20 | L.1.0.49.76.PREPROCESS-FOR-EVAL. |
| 1a9480 | 75 6e 64 65 72 73 74 61 6e 64 73 20 53 42 2d 44 45 42 55 47 3a 3a 4d 4f 52 45 0a 20 20 20 20 20 | understands.SB-DEBUG::MORE...... |
| 1a94a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 70 65 63 69 61 6c | ......................;;.special |
| 1a94c0 | 6c 79 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ly.............................( |
| 1a94e0 | 6f 72 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 4d 4f 52 45 22 20 3a 73 62 2d 64 65 62 75 67 | or.(find-symbol."MORE".:sb-debug |
| 1a9500 | 29 20 27 6d 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).'more)........................ |
| 1a9520 | 20 20 20 20 3a 69 64 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....:id.0....................... |
| 1a9540 | 20 20 20 20 20 3a 76 61 6c 75 65 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 | .....:value.(multiple-value-list |
| 1a9560 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a9580 | 20 20 20 20 28 73 62 2d 63 3a 25 6d 6f 72 65 2d 61 72 67 2d 76 61 6c 75 65 73 0a 20 20 20 20 20 | ....(sb-c:%more-arg-values...... |
| 1a95a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d | ...............................m |
| 1a95c0 | 6f 72 65 2d 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ore-context..................... |
| 1a95e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 6d 6f 72 65 2d 63 6f 75 6e 74 29 29 29 29 | ................0.more-count)))) |
| 1a9600 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 61 6c 73 29 29 29 29 29 0a 0a 28 64 65 66 69 | ).............locals)))))..(defi |
| 1a9620 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 66 | mplementation.frame-var-value.(f |
| 1a9640 | 72 61 6d 65 20 76 61 72 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 | rame.var)...(let.((frame.(nth-fr |
| 1a9660 | 61 6d 65 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | ame.frame))).....(multiple-value |
| 1a9680 | 2d 62 69 6e 64 20 28 76 61 72 73 20 6d 6f 72 65 2d 63 6f 6e 74 65 78 74 20 6d 6f 72 65 2d 63 6f | -bind.(vars.more-context.more-co |
| 1a96a0 | 75 6e 74 29 0a 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 2d 64 65 62 75 67 2d 76 61 72 73 20 66 | unt).........(frame-debug-vars.f |
| 1a96c0 | 72 61 6d 65 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 6f 63 20 28 73 62 2d 64 69 3a 66 | rame).......(let*.((loc.(sb-di:f |
| 1a96e0 | 72 61 6d 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 | rame-code-location.frame))...... |
| 1a9700 | 20 20 20 20 20 20 20 20 28 64 76 61 72 20 28 69 66 20 28 3d 20 76 61 72 20 28 6c 65 6e 67 74 68 | ........(dvar.(if.(=.var.(length |
| 1a9720 | 20 76 61 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | .vars))........................; |
| 1a9740 | 3b 20 49 66 20 56 41 52 20 69 73 20 6f 75 74 20 6f 66 20 62 6f 75 6e 64 73 2c 20 69 74 20 6d 75 | ;.If.VAR.is.out.of.bounds,.it.mu |
| 1a9760 | 73 74 20 62 65 20 74 68 65 20 66 61 6b 65 20 76 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | st.be.the.fake.var.............. |
| 1a9780 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 65 20 6d 61 64 65 20 75 70 20 66 6f 72 20 26 4d 4f 52 | ..........;;.we.made.up.for.&MOR |
| 1a97a0 | 45 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 | E.........................(retur |
| 1a97c0 | 6e 2d 66 72 6f 6d 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 | n-from.frame-var-value.......... |
| 1a97e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d | ................(multiple-value- |
| 1a9800 | 6c 69 73 74 20 28 73 62 2d 63 3a 25 6d 6f 72 65 2d 61 72 67 2d 76 61 6c 75 65 73 0a 20 20 20 20 | list.(sb-c:%more-arg-values..... |
| 1a9820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a9840 | 20 20 20 20 20 20 20 20 20 20 20 6d 6f 72 65 2d 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 | ...........more-context......... |
| 1a9860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a9880 | 20 20 20 20 20 20 20 30 20 6d 6f 72 65 2d 63 6f 75 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 | .......0.more-count))).......... |
| 1a98a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 76 61 72 20 76 61 72 73 29 29 29 29 0a | ..............(nth.var.vars)))). |
| 1a98c0 | 20 20 20 20 20 20 20 20 28 64 65 62 75 67 2d 76 61 72 2d 76 61 6c 75 65 20 64 76 61 72 20 66 72 | ........(debug-var-value.dvar.fr |
| 1a98e0 | 61 6d 65 20 6c 6f 63 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ame.loc)))))..(defimplementation |
| 1a9900 | 20 66 72 61 6d 65 2d 63 61 74 63 68 2d 74 61 67 73 20 28 69 6e 64 65 78 29 0a 20 20 28 6d 61 70 | .frame-catch-tags.(index)...(map |
| 1a9920 | 63 61 72 20 23 27 63 61 72 20 28 73 62 2d 64 69 3a 66 72 61 6d 65 2d 63 61 74 63 68 65 73 20 28 | car.#'car.(sb-di:frame-catches.( |
| 1a9940 | 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | nth-frame.index))))..(defimpleme |
| 1a9960 | 6e 74 61 74 69 6f 6e 20 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 28 66 6f 72 6d 20 69 6e 64 65 | ntation.eval-in-frame.(form.inde |
| 1a9980 | 78 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 | x)...(let.((frame.(nth-frame.ind |
| 1a99a0 | 65 78 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 74 68 65 20 66 75 6e 63 74 69 6f 6e | ex))).....(funcall.(the.function |
| 1a99c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 69 3a 70 72 65 70 72 6f 63 65 73 | ................(sb-di:preproces |
| 1a99e0 | 73 2d 66 6f 72 2d 65 76 61 6c 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s-for-eval.form................. |
| 1a9a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 69 | ..........................(sb-di |
| 1a9a20 | 3a 66 72 61 6d 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 0a 20 20 | :frame-code-location.frame)))... |
| 1a9a40 | 20 20 20 20 20 20 20 20 20 20 20 66 72 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | ...........frame)))..(defimpleme |
| 1a9a60 | 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 70 61 63 6b 61 67 65 20 28 66 72 61 6d 65 2d 6e 75 6d | ntation.frame-package.(frame-num |
| 1a9a80 | 62 65 72 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 | ber)...(let*.((frame.(nth-frame. |
| 1a9aa0 | 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 73 62 | frame-number))..........(fun.(sb |
| 1a9ac0 | 2d 64 69 3a 64 65 62 75 67 2d 66 75 6e 2d 66 75 6e 20 28 73 62 2d 64 69 3a 66 72 61 6d 65 2d 64 | -di:debug-fun-fun.(sb-di:frame-d |
| 1a9ae0 | 65 62 75 67 2d 66 75 6e 20 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 66 75 6e | ebug-fun.frame)))).....(when.fun |
| 1a9b00 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d | .......(let.((name.(function-nam |
| 1a9b20 | 65 20 66 75 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 6e 61 6d 65 0a | e.fun))).........(typecase.name. |
| 1a9b40 | 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 | ..........(null.nil)...........( |
| 1a9b60 | 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 6e 61 6d 65 29 29 0a 20 20 | symbol.(symbol-package.name))... |
| 1a9b80 | 20 20 20 20 20 20 20 20 28 28 63 6f 6e 73 20 28 65 71 6c 20 73 65 74 66 29 20 28 63 6f 6e 73 20 | ........((cons.(eql.setf).(cons. |
| 1a9ba0 | 73 79 6d 62 6f 6c 29 29 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 28 63 61 64 72 20 6e | symbol)).(symbol-package.(cadr.n |
| 1a9bc0 | 61 6d 65 29 29 29 29 29 29 29 29 0a 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 | ame))))))))..#+#.(swank/sbcl::sb |
| 1a9be0 | 63 6c 2d 77 69 74 68 2d 72 65 73 74 61 72 74 2d 66 72 61 6d 65 29 0a 28 70 72 6f 67 6e 0a 20 20 | cl-with-restart-frame).(progn... |
| 1a9c00 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 | (defimplementation.return-from-f |
| 1a9c20 | 72 61 6d 65 20 28 69 6e 64 65 78 20 66 6f 72 6d 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 66 72 | rame.(index.form).....(let*.((fr |
| 1a9c40 | 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 29 0a 20 20 20 20 20 20 28 63 | ame.(nth-frame.index))).......(c |
| 1a9c60 | 6f 6e 64 20 28 28 73 62 2d 64 65 62 75 67 3a 66 72 61 6d 65 2d 68 61 73 2d 64 65 62 75 67 2d 74 | ond.((sb-debug:frame-has-debug-t |
| 1a9c80 | 61 67 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | ag-p.frame)..............(let.(( |
| 1a9ca0 | 76 61 6c 75 65 73 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 65 76 61 | values.(multiple-value-list.(eva |
| 1a9cc0 | 6c 2d 69 6e 2d 66 72 61 6d 65 20 66 6f 72 6d 20 69 6e 64 65 78 29 29 29 29 0a 20 20 20 20 20 20 | l-in-frame.form.index))))....... |
| 1a9ce0 | 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 65 62 75 67 3a 75 6e 77 69 6e 64 2d 74 6f 2d 66 72 61 | .........(sb-debug:unwind-to-fra |
| 1a9d00 | 6d 65 2d 61 6e 64 2d 63 61 6c 6c 20 66 72 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me-and-call.frame............... |
| 1a9d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a9d40 | 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(lambda.()................. |
| 1a9d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1a9d80 | 20 20 20 20 20 28 76 61 6c 75 65 73 2d 6c 69 73 74 20 76 61 6c 75 65 73 29 29 29 29 29 0a 20 20 | .....(values-list.values)))))... |
| 1a9da0 | 20 20 20 20 20 20 20 20 20 20 28 74 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 43 61 6e 6e 6f 74 | ..........(t.(format.nil."Cannot |
| 1a9dc0 | 20 72 65 74 75 72 6e 20 66 72 6f 6d 20 66 72 61 6d 65 3a 20 7e 53 22 20 66 72 61 6d 65 29 29 29 | .return.from.frame:.~S".frame))) |
| 1a9de0 | 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 73 74 61 72 74 | ))....(defimplementation.restart |
| 1a9e00 | 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 | -frame.(index).....(let.((frame. |
| 1a9e20 | 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 62 | (nth-frame.index))...........(sb |
| 1a9e40 | 2d 64 65 62 75 67 3a 2a 6d 65 74 68 6f 64 2d 66 72 61 6d 65 2d 73 74 79 6c 65 2a 20 3a 6d 69 6e | -debug:*method-frame-style*.:min |
| 1a9e60 | 69 6d 61 6c 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 62 2d 64 65 62 75 67 3a 66 72 61 | imal)).......(when.(sb-debug:fra |
| 1a9e80 | 6d 65 2d 68 61 73 2d 64 65 62 75 67 2d 74 61 67 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 | me-has-debug-tag-p.frame)....... |
| 1a9ea0 | 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 6e 61 6d 65 20 61 72 | ..(multiple-value-bind.(fname.ar |
| 1a9ec0 | 67 73 29 20 28 73 62 2d 64 65 62 75 67 3a 3a 66 72 61 6d 65 2d 63 61 6c 6c 20 66 72 61 6d 65 29 | gs).(sb-debug::frame-call.frame) |
| 1a9ee0 | 0a 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 | ...........(multiple-value-bind. |
| 1a9f00 | 28 66 75 6e 20 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | (fun.arglist)...............(if. |
| 1a9f20 | 28 61 6e 64 20 28 73 62 2d 69 6e 74 3a 6c 65 67 61 6c 2d 66 75 6e 2d 6e 61 6d 65 2d 70 20 66 6e | (and.(sb-int:legal-fun-name-p.fn |
| 1a9f40 | 61 6d 65 29 20 28 66 62 6f 75 6e 64 70 20 66 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ame).(fboundp.fname))........... |
| 1a9f60 | 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 66 6e 61 | ........(values.(fdefinition.fna |
| 1a9f80 | 6d 65 29 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c | me).args)...................(val |
| 1a9fa0 | 75 65 73 20 28 73 62 2d 64 69 3a 64 65 62 75 67 2d 66 75 6e 2d 66 75 6e 20 28 73 62 2d 64 69 3a | ues.(sb-di:debug-fun-fun.(sb-di: |
| 1a9fc0 | 66 72 61 6d 65 2d 64 65 62 75 67 2d 66 75 6e 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 | frame-debug-fun.frame))......... |
| 1a9fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 65 62 75 67 3a 3a 66 72 61 | ..................(sb-debug::fra |
| 1aa000 | 6d 65 2d 61 72 67 73 2d 61 73 2d 6c 69 73 74 20 66 72 61 6d 65 20 0a 20 20 20 20 20 20 20 20 20 | me-args-as-list.frame........... |
| 1aa020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1aa040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e | ...............#+#.(swank/backen |
| 1aa060 | 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 2a 64 65 66 61 75 6c 74 2d 61 72 67 75 6d 65 6e 74 | d:with-symbol.'*default-argument |
| 1aa080 | 2d 6c 69 6d 69 74 2a 20 27 73 62 2d 64 65 62 75 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -limit*.'sb-debug).............. |
| 1aa0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1aa0c0 | 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 2d 61 72 67 75 6d 65 6e 74 73 2d 6c 69 6d 69 74 29 | ...........call-arguments-limit) |
| 1aa0e0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 75 6e 63 74 69 6f 6e 70 20 | )).............(when.(functionp. |
| 1aa100 | 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 65 62 75 67 3a 75 6e 77 | fun)...............(sb-debug:unw |
| 1aa120 | 69 6e 64 2d 74 6f 2d 66 72 61 6d 65 2d 61 6e 64 2d 63 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 | ind-to-frame-and-call........... |
| 1aa140 | 20 20 20 20 20 66 72 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 | .....frame................(lambd |
| 1aa160 | 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 45 6e 73 75 72 65 20 | a.()..................;;.Ensure. |
| 1aa180 | 54 43 4f 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 | TCO...................(declare.( |
| 1aa1a0 | 6f 70 74 69 6d 69 7a 65 20 28 64 65 62 75 67 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | optimize.(debug.0)))............ |
| 1aa1c0 | 20 20 20 20 20 20 28 61 70 70 6c 79 20 66 75 6e 20 61 72 67 6c 69 73 74 29 29 29 29 29 29 29 0a | ......(apply.fun.arglist))))))). |
| 1aa1e0 | 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 43 61 6e 6e 6f 74 20 72 65 73 74 61 72 | ......(format.nil."Cannot.restar |
| 1aa200 | 74 20 66 72 61 6d 65 3a 20 7e 53 22 20 66 72 61 6d 65 29 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 | t.frame:.~S".frame))))..;;.FIXME |
| 1aa220 | 3a 20 74 68 69 73 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 6f 65 73 6e 27 74 20 75 6e | :.this.implementation.doesn't.un |
| 1aa240 | 77 69 6e 64 20 74 68 65 20 73 74 61 63 6b 20 62 65 66 6f 72 65 0a 3b 3b 20 72 65 2d 69 6e 76 6f | wind.the.stack.before.;;.re-invo |
| 1aa260 | 6b 69 6e 67 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 2c 20 62 75 74 20 69 74 27 73 20 62 65 74 74 | king.the.function,.but.it's.bett |
| 1aa280 | 65 72 20 74 68 61 6e 20 6e 6f 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 74 0a 3b 3b 20 | er.than.no.implementation.at.;;. |
| 1aa2a0 | 61 6c 6c 2e 0a 23 2d 23 2e 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 69 74 68 2d | all..#-#.(swank/sbcl::sbcl-with- |
| 1aa2c0 | 72 65 73 74 61 72 74 2d 66 72 61 6d 65 29 0a 28 70 72 6f 67 6e 0a 20 20 28 64 65 66 75 6e 20 73 | restart-frame).(progn...(defun.s |
| 1aa2e0 | 62 2d 64 65 62 75 67 2d 63 61 74 63 68 2d 74 61 67 2d 70 20 28 74 61 67 29 0a 20 20 20 20 28 61 | b-debug-catch-tag-p.(tag).....(a |
| 1aa300 | 6e 64 20 28 73 79 6d 62 6f 6c 70 20 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 | nd.(symbolp.tag)..........(not.( |
| 1aa320 | 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 74 61 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 | symbol-package.tag))..........(s |
| 1aa340 | 74 72 69 6e 67 3d 20 74 61 67 20 3a 73 62 2d 64 65 62 75 67 2d 63 61 74 63 68 2d 74 61 67 29 29 | tring=.tag.:sb-debug-catch-tag)) |
| 1aa360 | 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 74 75 72 6e 2d 66 | )....(defimplementation.return-f |
| 1aa380 | 72 6f 6d 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 20 66 6f 72 6d 29 0a 20 20 20 20 28 6c 65 74 2a | rom-frame.(index.form).....(let* |
| 1aa3a0 | 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 0a 20 20 20 20 | .((frame.(nth-frame.index))..... |
| 1aa3c0 | 20 20 20 20 20 20 20 28 70 72 6f 62 65 20 28 61 73 73 6f 63 2d 69 66 20 23 27 73 62 2d 64 65 62 | .......(probe.(assoc-if.#'sb-deb |
| 1aa3e0 | 75 67 2d 63 61 74 63 68 2d 74 61 67 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ug-catch-tag-p.................. |
| 1aa400 | 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 69 3a 3a 66 72 61 6d 65 2d 63 61 74 63 68 65 73 | ...........(sb-di::frame-catches |
| 1aa420 | 20 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 70 72 6f 62 65 20 28 74 | .frame)))).......(cond.(probe.(t |
| 1aa440 | 68 72 6f 77 20 28 63 61 72 20 70 72 6f 62 65 29 20 28 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 | hrow.(car.probe).(eval-in-frame. |
| 1aa460 | 66 6f 72 6d 20 69 6e 64 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 66 6f | form.index))).............(t.(fo |
| 1aa480 | 72 6d 61 74 20 6e 69 6c 20 22 43 61 6e 6e 6f 74 20 72 65 74 75 72 6e 20 66 72 6f 6d 20 66 72 61 | rmat.nil."Cannot.return.from.fra |
| 1aa4a0 | 6d 65 3a 20 7e 53 22 20 66 72 61 6d 65 29 29 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d | me:.~S".frame)))))....(defimplem |
| 1aa4c0 | 65 6e 74 61 74 69 6f 6e 20 72 65 73 74 61 72 74 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 29 0a 20 | entation.restart-frame.(index).. |
| 1aa4e0 | 20 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 | ...(let.((frame.(nth-frame.index |
| 1aa500 | 29 29 29 0a 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 20 69 6e 64 | ))).......(return-from-frame.ind |
| 1aa520 | 65 78 20 28 73 62 2d 64 65 62 75 67 3a 3a 66 72 61 6d 65 2d 63 61 6c 6c 2d 61 73 2d 6c 69 73 74 | ex.(sb-debug::frame-call-as-list |
| 1aa540 | 20 66 72 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | .frame)))))..(defimplementation. |
| 1aa560 | 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 | frame-function.(frame-number)... |
| 1aa580 | 28 73 62 2d 64 69 3a 64 65 62 75 67 2d 66 75 6e 2d 66 75 6e 20 28 73 62 2d 64 69 3a 66 72 61 6d | (sb-di:debug-fun-fun.(sb-di:fram |
| 1aa5a0 | 65 2d 64 65 62 75 67 2d 66 75 6e 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d | e-debug-fun.(nth-frame.frame-num |
| 1aa5c0 | 62 65 72 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 72 65 66 65 72 65 6e 63 65 2d 63 6f 6e 64 69 74 69 | ber))))..;;;;;.reference-conditi |
| 1aa5e0 | 6f 6e 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 69 6e 74 2d 63 6f | ons..(defimplementation.print-co |
| 1aa600 | 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 20 73 74 72 65 61 6d 29 0a 20 20 28 6c 65 | ndition.(condition.stream)...(le |
| 1aa620 | 74 20 28 28 73 62 2d 69 6e 74 3a 2a 70 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 2d 72 65 66 65 | t.((sb-int:*print-condition-refe |
| 1aa640 | 72 65 6e 63 65 73 2a 20 6e 69 6c 29 29 0a 20 20 20 20 28 70 72 69 6e 63 20 63 6f 6e 64 69 74 69 | rences*.nil)).....(princ.conditi |
| 1aa660 | 6f 6e 20 73 74 72 65 61 6d 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 50 72 6f 66 69 6c 69 6e 67 0a 0a | on.stream)))....;;;;.Profiling.. |
| 1aa680 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d | (defimplementation.profile.(fnam |
| 1aa6a0 | 65 29 0a 20 20 28 77 68 65 6e 20 66 6e 61 6d 65 20 28 65 76 61 6c 20 60 28 73 62 2d 70 72 6f 66 | e)...(when.fname.(eval.`(sb-prof |
| 1aa6c0 | 69 6c 65 3a 70 72 6f 66 69 6c 65 20 2c 66 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | ile:profile.,fname))))..(defimpl |
| 1aa6e0 | 65 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 | ementation.unprofile.(fname)...( |
| 1aa700 | 77 68 65 6e 20 66 6e 61 6d 65 20 28 65 76 61 6c 20 60 28 73 62 2d 70 72 6f 66 69 6c 65 3a 75 6e | when.fname.(eval.`(sb-profile:un |
| 1aa720 | 70 72 6f 66 69 6c 65 20 2c 66 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | profile.,fname))))..(defimplemen |
| 1aa740 | 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c 20 28 29 0a 20 20 28 73 62 2d 70 72 | tation.unprofile-all.()...(sb-pr |
| 1aa760 | 6f 66 69 6c 65 3a 75 6e 70 72 6f 66 69 6c 65 29 0a 20 20 22 41 6c 6c 20 66 75 6e 63 74 69 6f 6e | ofile:unprofile)..."All.function |
| 1aa780 | 73 20 75 6e 70 72 6f 66 69 6c 65 64 2e 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | s.unprofiled.")..(defimplementat |
| 1aa7a0 | 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 20 28 29 0a 20 20 28 73 62 2d 70 72 6f 66 | ion.profile-report.()...(sb-prof |
| 1aa7c0 | 69 6c 65 3a 72 65 70 6f 72 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ile:report))..(defimplementation |
| 1aa7e0 | 20 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 20 28 29 0a 20 20 28 73 62 2d 70 72 6f 66 69 6c 65 3a | .profile-reset.()...(sb-profile: |
| 1aa800 | 72 65 73 65 74 29 0a 20 20 22 52 65 73 65 74 20 70 72 6f 66 69 6c 69 6e 67 20 63 6f 75 6e 74 65 | reset)..."Reset.profiling.counte |
| 1aa820 | 72 73 2e 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c | rs.")..(defimplementation.profil |
| 1aa840 | 65 64 2d 66 75 6e 63 74 69 6f 6e 73 20 28 29 0a 20 20 28 73 62 2d 70 72 6f 66 69 6c 65 3a 70 72 | ed-functions.()...(sb-profile:pr |
| 1aa860 | 6f 66 69 6c 65 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 | ofile))..(defimplementation.prof |
| 1aa880 | 69 6c 65 2d 70 61 63 6b 61 67 65 20 28 70 61 63 6b 61 67 65 20 63 61 6c 6c 65 72 73 20 6d 65 74 | ile-package.(package.callers.met |
| 1aa8a0 | 68 6f 64 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 61 6c 6c 65 72 73 | hods)...(declare.(ignore.callers |
| 1aa8c0 | 20 6d 65 74 68 6f 64 73 29 29 0a 20 20 28 65 76 61 6c 20 60 28 73 62 2d 70 72 6f 66 69 6c 65 3a | .methods))...(eval.`(sb-profile: |
| 1aa8e0 | 70 72 6f 66 69 6c 65 20 2c 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 66 69 6e 64 2d 70 61 63 | profile.,(package-name.(find-pac |
| 1aa900 | 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 | kage.package)))))....;;;;.Inspec |
| 1aa920 | 74 6f 72 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f | tor.(defmethod.emacs-inspect.((o |
| 1aa940 | 20 74 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 73 62 2d 64 69 3a 3a 69 6e 64 69 72 65 63 74 2d 76 | .t))...(cond.((sb-di::indirect-v |
| 1aa960 | 61 6c 75 65 2d 63 65 6c 6c 2d 70 20 6f 29 0a 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 | alue-cell-p.o)..........(label-v |
| 1aa980 | 61 6c 75 65 2d 6c 69 6e 65 2a 20 28 3a 76 61 6c 75 65 20 28 73 62 2d 6b 65 72 6e 65 6c 3a 76 61 | alue-line*.(:value.(sb-kernel:va |
| 1aa9a0 | 6c 75 65 2d 63 65 6c 6c 2d 72 65 66 20 6f 29 29 29 29 0a 09 28 74 0a 20 20 20 20 20 20 20 20 20 | lue-cell-ref.o))))..(t.......... |
| 1aa9c0 | 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 74 65 78 74 20 6c 61 62 65 6c | (multiple-value-bind.(text.label |
| 1aa9e0 | 20 70 61 72 74 73 29 20 28 73 62 2d 69 6d 70 6c 3a 3a 69 6e 73 70 65 63 74 65 64 2d 70 61 72 74 | .parts).(sb-impl::inspected-part |
| 1aaa00 | 73 20 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 28 73 74 72 69 6e 67 2d 72 | s.o)............(list*.(string-r |
| 1aaa20 | 69 67 68 74 2d 74 72 69 6d 20 27 28 23 5c 4e 65 77 6c 69 6e 65 29 20 74 65 78 74 29 0a 20 20 20 | ight-trim.'(#\Newline).text).... |
| 1aaa40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 | ...............'(:newline)...... |
| 1aaa60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6c 61 62 65 6c 0a 20 20 20 20 20 20 20 20 20 | .............(if.label.......... |
| 1aaa80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 6c 20 2e 20 76 29 20 69 | .............(loop.for.(l...v).i |
| 1aaaa0 | 6e 20 70 61 72 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.parts......................... |
| 1aaac0 | 20 20 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 6c 20 76 | ....append.(label-value-line.l.v |
| 1aaae0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 | )).......................(loop.f |
| 1aab00 | 6f 72 20 76 61 6c 75 65 20 69 6e 20 70 61 72 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | or.value.in.parts............... |
| 1aab20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 | ..............for.i.from.0...... |
| 1aab40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c | .......................append.(l |
| 1aab60 | 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 69 20 76 61 6c 75 65 29 29 29 29 29 29 29 29 0a | abel-value-line.i.value)))))))). |
| 1aab80 | 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 66 75 | .(defmethod.emacs-inspect.((o.fu |
| 1aaba0 | 6e 63 74 69 6f 6e 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 73 62 2d 6b 65 72 6e 65 6c 3a 73 69 6d | nction))...(cond.((sb-kernel:sim |
| 1aabc0 | 70 6c 65 2d 66 75 6e 2d 70 20 6f 29 0a 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 | ple-fun-p.o)..........(append... |
| 1aabe0 | 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 | ........(label-value-line*...... |
| 1aac00 | 20 20 20 20 20 20 28 22 4e 61 6d 65 22 20 28 73 62 2d 6b 65 72 6e 65 6c 3a 25 73 69 6d 70 6c 65 | ......("Name".(sb-kernel:%simple |
| 1aac20 | 2d 66 75 6e 2d 6e 61 6d 65 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 22 41 72 67 6c 69 | -fun-name.o))............("Argli |
| 1aac40 | 73 74 22 20 28 73 62 2d 6b 65 72 6e 65 6c 3a 25 73 69 6d 70 6c 65 2d 66 75 6e 2d 61 72 67 6c 69 | st".(sb-kernel:%simple-fun-argli |
| 1aac60 | 73 74 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 22 54 79 70 65 22 20 28 73 62 2d 6b 65 | st.o))............("Type".(sb-ke |
| 1aac80 | 72 6e 65 6c 3a 25 73 69 6d 70 6c 65 2d 66 75 6e 2d 74 79 70 65 20 6f 29 29 0a 20 20 20 20 20 20 | rnel:%simple-fun-type.o))....... |
| 1aaca0 | 20 20 20 20 20 28 22 43 6f 64 65 22 20 28 73 62 2d 6b 65 72 6e 65 6c 3a 66 75 6e 2d 63 6f 64 65 | .....("Code".(sb-kernel:fun-code |
| 1aacc0 | 2d 68 65 61 64 65 72 20 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 60 28 22 44 69 73 61 73 73 | -header.o)))...........`("Disass |
| 1aace0 | 65 6d 62 6c 79 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | embly:".(:newline).............. |
| 1aad00 | 2c 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 29 0a 20 20 20 20 | ,(with-output-to-string.(s)..... |
| 1aad20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 69 73 61 73 73 65 6d 3a 64 69 73 61 73 73 65 | ............(sb-disassem:disasse |
| 1aad40 | 6d 62 6c 65 2d 66 75 6e 20 6f 20 3a 73 74 72 65 61 6d 20 73 29 29 29 29 29 0a 20 20 20 20 20 20 | mble-fun.o.:stream.s)))))....... |
| 1aad60 | 20 20 28 28 73 62 2d 6b 65 72 6e 65 6c 3a 63 6c 6f 73 75 72 65 70 20 6f 29 0a 20 20 20 20 20 20 | ..((sb-kernel:closurep.o)....... |
| 1aad80 | 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 | ...(append...........(label-valu |
| 1aada0 | 65 2d 6c 69 6e 65 20 3a 66 75 6e 63 74 69 6f 6e 20 28 73 62 2d 6b 65 72 6e 65 6c 3a 25 63 6c 6f | e-line.:function.(sb-kernel:%clo |
| 1aadc0 | 73 75 72 65 2d 66 75 6e 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 60 28 22 43 6c 6f 73 65 64 | sure-fun.o))...........`("Closed |
| 1aade0 | 20 6f 76 65 72 20 76 61 6c 75 65 73 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 20 20 | .over.values:".(:newline))...... |
| 1aae00 | 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 62 65 6c 6f 77 20 28 31 2d 20 28 73 62 2d 6b | .....(loop.for.i.below.(1-.(sb-k |
| 1aae20 | 65 72 6e 65 6c 3a 67 65 74 2d 63 6c 6f 73 75 72 65 2d 6c 65 6e 67 74 68 20 6f 29 29 0a 20 20 20 | ernel:get-closure-length.o)).... |
| 1aae40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 | .............append.(label-value |
| 1aae60 | 2d 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 20 | -line.........................i. |
| 1aae80 | 28 73 62 2d 6b 65 72 6e 65 6c 3a 25 63 6c 6f 73 75 72 65 2d 69 6e 64 65 78 2d 72 65 66 20 6f 20 | (sb-kernel:%closure-index-ref.o. |
| 1aaea0 | 69 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 | i))))).........(t.(call-next-met |
| 1aaec0 | 68 6f 64 20 6f 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 | hod.o))))..(defmethod.emacs-insp |
| 1aaee0 | 65 63 74 20 28 28 6f 20 73 62 2d 6b 65 72 6e 65 6c 3a 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 | ect.((o.sb-kernel:code-component |
| 1aaf00 | 29 29 0a 20 20 28 61 70 70 65 6e 64 0a 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e | ))...(append....(label-value-lin |
| 1aaf20 | 65 2a 0a 20 20 20 20 28 22 53 69 7a 65 22 20 28 73 62 2d 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d | e*.....("Size".(sb-kernel:%code- |
| 1aaf40 | 63 6f 64 65 2d 73 69 7a 65 20 6f 29 29 0a 20 20 20 20 28 22 44 65 62 75 67 20 69 6e 66 6f 22 20 | code-size.o)).....("Debug.info". |
| 1aaf60 | 28 73 62 2d 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 6f 29 29 0a | (sb-kernel:%code-debug-info.o)). |
| 1aaf80 | 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 | ....#+#.(swank/backend:with-symb |
| 1aafa0 | 6f 6c 20 22 25 43 4f 44 45 2d 46 49 58 55 50 53 22 20 22 53 42 2d 56 4d 22 29 0a 20 20 20 20 28 | ol."%CODE-FIXUPS"."SB-VM").....( |
| 1aafc0 | 22 46 69 78 75 70 73 22 20 28 73 62 2d 76 6d 3a 3a 25 63 6f 64 65 2d 66 69 78 75 70 73 20 6f 29 | "Fixups".(sb-vm::%code-fixups.o) |
| 1aafe0 | 29 29 0a 20 20 20 60 28 22 45 6e 74 72 79 20 70 6f 69 6e 74 73 3a 20 22 20 28 3a 6e 65 77 6c 69 | ))....`("Entry.points:.".(:newli |
| 1ab000 | 6e 65 29 29 0a 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 62 65 6c 6f 77 | ne))....(loop.for.i.from.0.below |
| 1ab020 | 20 28 73 62 2d 76 6d 3a 3a 63 6f 64 65 2d 6e 2d 65 6e 74 72 69 65 73 20 6f 29 0a 20 20 20 20 20 | .(sb-vm::code-n-entries.o)...... |
| 1ab040 | 20 20 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 69 20 28 | ....append.(label-value-line.i.( |
| 1ab060 | 73 62 2d 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 20 6f 20 69 29 | sb-kernel:%code-entry-point.o.i) |
| 1ab080 | 29 29 0a 20 20 20 60 28 22 43 6f 6e 73 74 61 6e 74 73 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 29 | ))....`("Constants:".(:newline)) |
| 1ab0a0 | 0a 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 73 62 2d 76 6d 3a 63 6f 64 65 2d | ....(loop.for.i.from.sb-vm:code- |
| 1ab0c0 | 63 6f 6e 73 74 61 6e 74 73 2d 6f 66 66 73 65 74 0a 20 20 20 20 20 20 20 20 20 62 65 6c 6f 77 0a | constants-offset..........below. |
| 1ab0e0 | 20 20 20 20 20 20 20 20 20 28 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 63 68 6f 6f 73 | .........(#.(swank/backend:choos |
| 1ab100 | 65 2d 73 79 6d 62 6f 6c 20 27 73 62 2d 6b 65 72 6e 65 6c 20 27 63 6f 64 65 2d 68 65 61 64 65 72 | e-symbol.'sb-kernel.'code-header |
| 1ab120 | 2d 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -words.......................... |
| 1ab140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 62 2d 6b 65 72 6e 65 6c 20 27 67 65 74 2d | ................'sb-kernel.'get- |
| 1ab160 | 68 65 61 64 65 72 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 29 0a 20 20 20 20 | header-data).............o)..... |
| 1ab180 | 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 69 20 | .....append.(label-value-line.i. |
| 1ab1a0 | 28 73 62 2d 6b 65 72 6e 65 6c 3a 63 6f 64 65 2d 68 65 61 64 65 72 2d 72 65 66 20 6f 20 69 29 29 | (sb-kernel:code-header-ref.o.i)) |
| 1ab1c0 | 29 0a 20 20 20 60 28 22 43 6f 64 65 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 | )....`("Code:".(:newline)....... |
| 1ab1e0 | 20 20 20 20 20 20 20 2c 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 | .......,(with-output-to-string.( |
| 1ab200 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 69 73 61 73 73 65 6d 3a | s).................(sb-disassem: |
| 1ab220 | 64 69 73 61 73 73 65 6d 62 6c 65 2d 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 20 6f 20 3a 73 74 | disassemble-code-component.o.:st |
| 1ab240 | 72 65 61 6d 20 73 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e | ream.s)))))..(defmethod.emacs-in |
| 1ab260 | 73 70 65 63 74 20 28 28 6f 20 73 62 2d 65 78 74 3a 77 65 61 6b 2d 70 6f 69 6e 74 65 72 29 29 0a | spect.((o.sb-ext:weak-pointer)). |
| 1ab280 | 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 | ..........(label-value-line*.... |
| 1ab2a0 | 20 20 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 28 73 62 2d 65 78 74 3a 77 65 61 6b 2d 70 6f 69 | ........(:value.(sb-ext:weak-poi |
| 1ab2c0 | 6e 74 65 72 2d 76 61 6c 75 65 20 6f 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 | nter-value.o))))..(defmethod.ema |
| 1ab2e0 | 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 73 62 2d 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 29 29 | cs-inspect.((o.sb-kernel:fdefn)) |
| 1ab300 | 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 | ...........(label-value-line*... |
| 1ab320 | 20 20 20 20 20 20 20 20 20 28 3a 6e 61 6d 65 20 28 73 62 2d 6b 65 72 6e 65 6c 3a 66 64 65 66 6e | .........(:name.(sb-kernel:fdefn |
| 1ab340 | 2d 6e 61 6d 65 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 75 6e 63 74 69 6f 6e 20 | -name.o))............(:function. |
| 1ab360 | 28 73 62 2d 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 2d 66 75 6e 20 6f 29 29 29 29 0a 0a 28 64 65 66 | (sb-kernel:fdefn-fun.o))))..(def |
| 1ab380 | 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 3a 61 72 6f 75 6e 64 20 28 28 6f | method.emacs-inspect.:around.((o |
| 1ab3a0 | 20 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .generic-function))............. |
| 1ab3c0 | 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d | (append..............(call-next- |
| 1ab3e0 | 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 | method)..............(label-valu |
| 1ab400 | 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 70 72 65 74 74 79 2d 61 | e-line*...............(:pretty-a |
| 1ab420 | 72 67 6c 69 73 74 20 28 73 62 2d 70 63 6c 3a 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e | rglist.(sb-pcl::generic-function |
| 1ab440 | 2d 70 72 65 74 74 79 2d 61 72 67 6c 69 73 74 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -pretty-arglist.o))............. |
| 1ab460 | 20 20 28 3a 69 6e 69 74 69 61 6c 2d 6d 65 74 68 6f 64 73 20 28 73 62 2d 70 63 6c 3a 3a 67 65 6e | ..(:initial-methods.(sb-pcl::gen |
| 1ab480 | 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 69 6e 69 74 69 61 6c 2d 6d 65 74 68 6f 64 73 20 6f 29 | eric-function-initial-methods.o) |
| 1ab4a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 75 6c 74 | )...............)))....;;;;.Mult |
| 1ab4c0 | 69 70 72 6f 63 65 73 73 69 6e 67 0a 0a 23 2b 28 61 6e 64 20 73 62 2d 74 68 72 65 61 64 0a 20 20 | iprocessing..#+(and.sb-thread... |
| 1ab4e0 | 20 20 20 20 20 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f | .....#.(swank/backend:with-symbo |
| 1ab500 | 6c 20 22 54 48 52 45 41 44 2d 4e 41 4d 45 22 20 22 53 42 2d 54 48 52 45 41 44 22 29 29 0a 28 70 | l."THREAD-NAME"."SB-THREAD")).(p |
| 1ab520 | 72 6f 67 6e 0a 20 20 23 2d 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 | rogn...#-#.(swank/backend:with-s |
| 1ab540 | 79 6d 62 6f 6c 20 22 54 48 52 45 41 44 2d 4f 53 2d 54 49 44 22 20 22 53 42 2d 54 48 52 45 41 44 | ymbol."THREAD-OS-TID"."SB-THREAD |
| 1ab560 | 22 29 0a 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d | ")...(progn.....(defvar.*thread- |
| 1ab580 | 69 64 2d 63 6f 75 6e 74 65 72 2a 20 30 29 0a 0a 20 20 20 20 28 64 65 66 76 61 72 20 2a 74 68 72 | id-counter*.0)......(defvar.*thr |
| 1ab5a0 | 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2d 6c 6f 63 6b 2a 0a 20 20 20 20 20 20 28 73 62 2d 74 | ead-id-counter-lock*.......(sb-t |
| 1ab5c0 | 68 72 65 61 64 3a 6d 61 6b 65 2d 6d 75 74 65 78 20 3a 6e 61 6d 65 20 22 74 68 72 65 61 64 20 69 | hread:make-mutex.:name."thread.i |
| 1ab5e0 | 64 20 63 6f 75 6e 74 65 72 20 6c 6f 63 6b 22 29 29 0a 0a 20 20 20 20 28 64 65 66 75 6e 20 6e 65 | d.counter.lock"))......(defun.ne |
| 1ab600 | 78 74 2d 74 68 72 65 61 64 2d 69 64 20 28 29 0a 20 20 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 | xt-thread-id.().......(sb-thread |
| 1ab620 | 3a 77 69 74 68 2d 6d 75 74 65 78 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2d | :with-mutex.(*thread-id-counter- |
| 1ab640 | 6c 6f 63 6b 2a 29 0a 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 2a 74 68 72 65 61 64 2d 69 64 2d | lock*).........(incf.*thread-id- |
| 1ab660 | 63 6f 75 6e 74 65 72 2a 29 29 29 0a 0a 20 20 20 20 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 | counter*)))......(defvar.*thread |
| 1ab680 | 2d 69 64 2d 6d 61 70 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 0a 20 20 20 | -id-map*.(make-hash-table))..... |
| 1ab6a0 | 20 3b 3b 20 54 68 69 73 20 73 68 6f 75 6c 64 20 62 65 20 61 20 74 68 72 65 61 64 20 2d 3e 20 69 | .;;.This.should.be.a.thread.->.i |
| 1ab6c0 | 64 20 6d 61 70 20 62 75 74 20 61 73 20 77 65 61 6b 20 6b 65 79 73 20 61 72 65 20 6e 6f 74 0a 20 | d.map.but.as.weak.keys.are.not.. |
| 1ab6e0 | 20 20 20 3b 3b 20 73 75 70 70 6f 72 74 65 64 20 69 74 20 69 73 20 69 64 20 2d 3e 20 6d 61 70 20 | ...;;.supported.it.is.id.->.map. |
| 1ab700 | 69 6e 73 74 65 61 64 2e 0a 20 20 20 20 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d | instead......(defvar.*thread-id- |
| 1ab720 | 6d 61 70 2d 6c 6f 63 6b 2a 0a 20 20 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 6d 61 6b 65 2d | map-lock*.......(sb-thread:make- |
| 1ab740 | 6d 75 74 65 78 20 3a 6e 61 6d 65 20 22 74 68 72 65 61 64 20 69 64 20 6d 61 70 20 6c 6f 63 6b 22 | mutex.:name."thread.id.map.lock" |
| 1ab760 | 29 29 0a 0a 20 20 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 | ))......(defimplementation.threa |
| 1ab780 | 64 2d 69 64 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 28 62 6c 6f 63 6b 20 74 68 72 65 61 | d-id.(thread).......(block.threa |
| 1ab7a0 | 64 2d 69 64 0a 20 20 20 20 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 77 69 74 68 2d 6d 75 74 | d-id.........(sb-thread:with-mut |
| 1ab7c0 | 65 78 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 20 20 | ex.(*thread-id-map-lock*)....... |
| 1ab7e0 | 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 64 20 62 65 69 6e 67 20 74 68 65 20 68 61 73 68 2d | ....(loop.for.id.being.the.hash- |
| 1ab800 | 6b 65 79 20 69 6e 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 0a 20 20 20 20 20 20 20 20 20 | key.in.*thread-id-map*.......... |
| 1ab820 | 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 68 61 73 68 2d 76 61 6c 75 65 20 74 68 72 65 61 64 2d | .......using.(hash-value.thread- |
| 1ab840 | 70 6f 69 6e 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 | pointer).................do..... |
| 1ab860 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 79 62 65 2d 74 68 72 65 61 64 20 | ............(let.((maybe-thread. |
| 1ab880 | 28 73 62 2d 65 78 74 3a 77 65 61 6b 2d 70 6f 69 6e 74 65 72 2d 76 61 6c 75 65 20 74 68 72 65 61 | (sb-ext:weak-pointer-value.threa |
| 1ab8a0 | 64 2d 70 6f 69 6e 74 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | d-pointer)))...................( |
| 1ab8c0 | 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 6d 61 79 62 65 2d 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 | cond.((null.maybe-thread)....... |
| 1ab8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 76 61 6c 75 65 20 | ...................;;.the.value. |
| 1ab900 | 69 73 20 67 63 27 64 2c 20 72 65 6d 6f 76 65 20 69 74 20 6d 61 6e 75 61 6c 6c 79 0a 20 20 20 20 | is.gc'd,.remove.it.manually..... |
| 1ab920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 68 61 73 68 20 69 64 | .....................(remhash.id |
| 1ab940 | 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .*thread-id-map*)).............. |
| 1ab960 | 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 74 68 72 65 61 64 20 6d 61 79 62 65 2d 74 68 72 | ...........((eq.thread.maybe-thr |
| 1ab980 | 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 | ead)..........................(r |
| 1ab9a0 | 65 74 75 72 6e 2d 66 72 6f 6d 20 74 68 72 65 61 64 2d 69 64 20 69 64 29 29 29 29 29 0a 20 20 20 | eturn-from.thread-id.id))))).... |
| 1ab9c0 | 20 20 20 20 20 20 20 3b 3b 20 6c 61 7a 79 20 6e 75 6d 62 65 72 69 6e 67 0a 20 20 20 20 20 20 20 | .......;;.lazy.numbering........ |
| 1ab9e0 | 20 20 20 28 6c 65 74 20 28 28 69 64 20 28 6e 65 78 74 2d 74 68 72 65 61 64 2d 69 64 29 29 29 0a | ...(let.((id.(next-thread-id))). |
| 1aba00 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 69 64 20 2a 74 | ............(setf.(gethash.id.*t |
| 1aba20 | 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 29 20 28 73 62 2d 65 78 74 3a 6d 61 6b 65 2d 77 65 61 6b | hread-id-map*).(sb-ext:make-weak |
| 1aba40 | 2d 70 6f 69 6e 74 65 72 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 64 | -pointer.thread)).............id |
| 1aba60 | 29 29 29 29 0a 0a 20 20 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e | ))))......(defimplementation.fin |
| 1aba80 | 64 2d 74 68 72 65 61 64 20 28 69 64 29 0a 20 20 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 77 | d-thread.(id).......(sb-thread:w |
| 1abaa0 | 69 74 68 2d 6d 75 74 65 78 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2d 6c 6f 63 6b 2a 29 | ith-mutex.(*thread-id-map-lock*) |
| 1abac0 | 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 68 72 65 61 64 2d 70 6f 69 6e 74 65 72 20 28 | .........(let.((thread-pointer.( |
| 1abae0 | 67 65 74 68 61 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 29 29 29 0a 20 20 | gethash.id.*thread-id-map*)))... |
| 1abb00 | 20 20 20 20 20 20 20 20 28 69 66 20 74 68 72 65 61 64 2d 70 6f 69 6e 74 65 72 0a 20 20 20 20 20 | ........(if.thread-pointer...... |
| 1abb20 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 79 62 65 2d 74 68 72 65 61 64 20 28 73 62 | .........(let.((maybe-thread.(sb |
| 1abb40 | 2d 65 78 74 3a 77 65 61 6b 2d 70 6f 69 6e 74 65 72 2d 76 61 6c 75 65 20 74 68 72 65 61 64 2d 70 | -ext:weak-pointer-value.thread-p |
| 1abb60 | 6f 69 6e 74 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6d 61 | ointer))).................(if.ma |
| 1abb80 | 79 62 65 2d 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d | ybe-thread.....................m |
| 1abba0 | 61 79 62 65 2d 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | aybe-thread..................... |
| 1abbc0 | 3b 3b 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 67 63 27 64 2c 20 72 65 6d 6f 76 65 20 69 74 20 | ;;.the.value.is.gc'd,.remove.it. |
| 1abbe0 | 6d 61 6e 75 61 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 | manually.....................(pr |
| 1abc00 | 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 68 61 | ogn.......................(remha |
| 1abc20 | 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 29 0a 20 20 20 20 20 20 20 20 20 | sh.id.*thread-id-map*).......... |
| 1abc40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .............nil)))............. |
| 1abc60 | 20 20 6e 69 6c 29 29 29 29 29 0a 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a | ..nil)))))...#+#.(swank/backend: |
| 1abc80 | 77 69 74 68 2d 73 79 6d 62 6f 6c 20 22 54 48 52 45 41 44 2d 4f 53 2d 54 49 44 22 20 22 53 42 2d | with-symbol."THREAD-OS-TID"."SB- |
| 1abca0 | 54 48 52 45 41 44 22 29 0a 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 28 64 65 66 69 6d 70 6c 65 6d | THREAD")...(progn.....(defimplem |
| 1abcc0 | 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 | entation.thread-id.(thread)..... |
| 1abce0 | 20 20 28 73 62 2d 74 68 72 65 61 64 3a 3a 74 68 72 65 61 64 2d 6f 73 2d 74 69 64 20 74 68 72 65 | ..(sb-thread::thread-os-tid.thre |
| 1abd00 | 61 64 29 29 0a 20 20 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 | ad)).....(defimplementation.find |
| 1abd20 | 2d 74 68 72 65 61 64 20 28 69 64 29 0a 20 20 20 20 20 20 28 66 69 6e 64 20 69 64 20 28 73 62 2d | -thread.(id).......(find.id.(sb- |
| 1abd40 | 74 68 72 65 61 64 3a 6c 69 73 74 2d 61 6c 6c 2d 74 68 72 65 61 64 73 29 20 3a 6b 65 79 20 23 27 | thread:list-all-threads).:key.#' |
| 1abd60 | 73 62 2d 74 68 72 65 61 64 3a 3a 74 68 72 65 61 64 2d 6f 73 2d 74 69 64 29 29 29 0a 0a 20 20 28 | sb-thread::thread-os-tid)))....( |
| 1abd80 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 70 61 77 6e 20 28 66 6e 20 26 6b 65 79 | defimplementation.spawn.(fn.&key |
| 1abda0 | 20 6e 61 6d 65 29 0a 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 6d 61 6b 65 2d 74 68 72 65 61 | .name).....(sb-thread:make-threa |
| 1abdc0 | 64 20 66 6e 20 3a 6e 61 6d 65 20 6e 61 6d 65 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 | d.fn.:name.name))....(defimpleme |
| 1abde0 | 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 6e 61 6d 65 20 28 74 68 72 65 61 64 29 0a 20 20 20 | ntation.thread-name.(thread).... |
| 1abe00 | 20 3b 3b 20 73 6f 6d 65 74 69 6d 65 73 20 74 68 65 20 6e 61 6d 65 20 69 73 20 6e 6f 74 20 61 20 | .;;.sometimes.the.name.is.not.a. |
| 1abe20 | 73 74 72 69 6e 67 20 28 65 2e 67 2e 20 4e 49 4c 29 0a 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 | string.(e.g..NIL).....(sb-thread |
| 1abe40 | 3a 74 68 72 65 61 64 2d 6e 61 6d 65 20 74 68 72 65 61 64 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 | :thread-name.thread))....(defimp |
| 1abe60 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 73 74 61 74 75 73 20 28 74 68 72 65 61 | lementation.thread-status.(threa |
| 1abe80 | 64 29 0a 20 20 20 20 23 2b 73 62 2d 74 68 72 65 61 64 0a 20 20 20 20 28 6c 65 74 20 28 28 77 61 | d).....#+sb-thread.....(let.((wa |
| 1abea0 | 69 74 69 6e 67 20 28 73 62 2d 74 68 72 65 61 64 3a 3a 74 68 72 65 61 64 2d 77 61 69 74 69 6e 67 | iting.(sb-thread::thread-waiting |
| 1abec0 | 2d 66 6f 72 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 | -for.thread))).......(cond.((and |
| 1abee0 | 20 28 74 79 70 65 70 20 77 61 69 74 69 6e 67 20 27 73 62 2d 74 68 72 65 61 64 3a 6d 75 74 65 78 | .(typep.waiting.'sb-thread:mutex |
| 1abf00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 77 6e 65 72 | )...................(let.((owner |
| 1abf20 | 20 28 73 62 2d 74 68 72 65 61 64 3a 6d 75 74 65 78 2d 6f 77 6e 65 72 20 77 61 69 74 69 6e 67 29 | .(sb-thread:mutex-owner.waiting) |
| 1abf40 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 6f 77 6e 65 | )).....................(and.owne |
| 1abf60 | 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d | r..........................(form |
| 1abf80 | 61 74 20 6e 69 6c 20 22 57 61 69 74 69 6e 67 20 6f 6e 20 61 20 6d 75 74 65 78 7e 40 5b 20 28 7e | at.nil."Waiting.on.a.mutex~@[.(~ |
| 1abfa0 | 61 29 7e 5d 20 68 65 6c 64 20 62 79 20 7e 61 7e 40 5b 20 7e 61 7e 5d 22 0a 20 20 20 20 20 20 20 | a)~].held.by.~a~@[.~a~]"........ |
| 1abfc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 74 68 | ..........................(sb-th |
| 1abfe0 | 72 65 61 64 3a 6d 75 74 65 78 2d 6e 61 6d 65 20 77 61 69 74 69 6e 67 29 0a 20 20 20 20 20 20 20 | read:mutex-name.waiting)........ |
| 1ac000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 | ..........................(threa |
| 1ac020 | 64 2d 69 64 20 6f 77 6e 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-id.owner)..................... |
| 1ac040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 2d 6e 61 6d 65 20 6f 77 6e 65 72 29 | .............(thread-name.owner) |
| 1ac060 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 62 2d 74 68 72 65 61 64 3a 74 68 | ))))).............((sb-thread:th |
| 1ac080 | 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 | read-alive-p.thread)............ |
| 1ac0a0 | 20 20 22 52 75 6e 6e 69 6e 67 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 | .."Running").............(t..... |
| 1ac0c0 | 20 20 20 20 20 20 20 20 20 22 53 74 6f 70 70 65 64 22 29 29 29 29 0a 0a 20 20 28 64 65 66 69 6d | ........."Stopped"))))....(defim |
| 1ac0e0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 6c 6f 63 6b 20 28 26 6b 65 79 20 6e 61 6d | plementation.make-lock.(&key.nam |
| 1ac100 | 65 29 0a 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 6d 61 6b 65 2d 6d 75 74 65 78 20 3a 6e 61 | e).....(sb-thread:make-mutex.:na |
| 1ac120 | 6d 65 20 6e 61 6d 65 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | me.name))....(defimplementation. |
| 1ac140 | 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 6c 6f 63 6b 20 66 75 6e 63 74 69 | call-with-lock-held.(lock.functi |
| 1ac160 | 6f 6e 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 | on).....(declare.(type.function. |
| 1ac180 | 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 77 69 74 68 2d 72 | function)).....(sb-thread:with-r |
| 1ac1a0 | 65 63 75 72 73 69 76 65 2d 6c 6f 63 6b 20 28 6c 6f 63 6b 29 20 28 66 75 6e 63 61 6c 6c 20 66 75 | ecursive-lock.(lock).(funcall.fu |
| 1ac1c0 | 6e 63 74 69 6f 6e 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | nction)))....(defimplementation. |
| 1ac1e0 | 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 20 20 73 62 2d 74 68 72 65 61 64 3a | current-thread.().....sb-thread: |
| 1ac200 | 2a 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2a 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 | *current-thread*)....(defimpleme |
| 1ac220 | 6e 74 61 74 69 6f 6e 20 61 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 20 20 28 73 62 2d 74 | ntation.all-threads.().....(sb-t |
| 1ac240 | 68 72 65 61 64 3a 6c 69 73 74 2d 61 6c 6c 2d 74 68 72 65 61 64 73 29 29 0a 0a 20 20 28 64 65 66 | hread:list-all-threads))....(def |
| 1ac260 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 | implementation.interrupt-thread. |
| 1ac280 | 28 74 68 72 65 61 64 20 66 6e 29 0a 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 69 6e 74 65 72 | (thread.fn).....(sb-thread:inter |
| 1ac2a0 | 72 75 70 74 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 20 66 6e 29 29 0a 0a 20 20 28 64 65 66 69 | rupt-thread.thread.fn))....(defi |
| 1ac2c0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 | mplementation.kill-thread.(threa |
| 1ac2e0 | 64 29 0a 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 74 65 72 6d 69 6e 61 74 65 2d 74 68 72 65 | d).....(sb-thread:terminate-thre |
| 1ac300 | 61 64 20 74 68 72 65 61 64 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | ad.thread))....(defimplementatio |
| 1ac320 | 6e 20 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 73 | n.thread-alive-p.(thread).....(s |
| 1ac340 | 62 2d 74 68 72 65 61 64 3a 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 74 68 72 65 61 64 29 29 | b-thread:thread-alive-p.thread)) |
| 1ac360 | 0a 0a 20 20 28 64 65 66 76 61 72 20 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 20 28 73 62 2d 74 | ....(defvar.*mailbox-lock*.(sb-t |
| 1ac380 | 68 72 65 61 64 3a 6d 61 6b 65 2d 6d 75 74 65 78 20 3a 6e 61 6d 65 20 22 6d 61 69 6c 62 6f 78 20 | hread:make-mutex.:name."mailbox. |
| 1ac3a0 | 6c 6f 63 6b 22 29 29 0a 20 20 28 64 65 66 76 61 72 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 20 28 29 | lock"))...(defvar.*mailboxes*.() |
| 1ac3c0 | 29 0a 20 20 28 64 65 63 6c 61 69 6d 20 28 74 79 70 65 20 6c 69 73 74 20 2a 6d 61 69 6c 62 6f 78 | )...(declaim.(type.list.*mailbox |
| 1ac3e0 | 65 73 2a 29 29 0a 0a 20 20 23 2b 64 61 72 77 69 6e 0a 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 28 | es*))....#+darwin...(progn.....( |
| 1ac400 | 64 65 66 75 6e 20 6d 61 6b 65 2d 73 65 6d 20 28 29 0a 20 20 20 20 20 20 28 73 62 2d 61 6c 69 65 | defun.make-sem.().......(sb-alie |
| 1ac420 | 6e 3a 61 6c 69 65 6e 2d 66 75 6e 63 61 6c 6c 0a 20 20 20 20 20 20 20 28 73 62 2d 61 6c 69 65 6e | n:alien-funcall........(sb-alien |
| 1ac440 | 3a 65 78 74 65 72 6e 2d 61 6c 69 65 6e 0a 20 20 20 20 20 20 20 20 22 64 69 73 70 61 74 63 68 5f | :extern-alien........."dispatch_ |
| 1ac460 | 73 65 6d 61 70 68 6f 72 65 5f 63 72 65 61 74 65 22 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 | semaphore_create".........(funct |
| 1ac480 | 69 6f 6e 20 73 62 2d 73 79 73 3a 73 79 73 74 65 6d 2d 61 72 65 61 2d 70 6f 69 6e 74 65 72 20 73 | ion.sb-sys:system-area-pointer.s |
| 1ac4a0 | 62 2d 61 6c 69 65 6e 3a 6c 6f 6e 67 29 29 0a 20 20 20 20 20 20 20 30 29 29 0a 0a 20 20 20 20 28 | b-alien:long))........0))......( |
| 1ac4c0 | 64 65 66 75 6e 20 77 61 69 74 2d 73 65 6d 20 28 73 65 6d 29 0a 20 20 20 20 20 20 28 73 62 2d 61 | defun.wait-sem.(sem).......(sb-a |
| 1ac4e0 | 6c 69 65 6e 3a 61 6c 69 65 6e 2d 66 75 6e 63 61 6c 6c 0a 20 20 20 20 20 20 20 28 73 62 2d 61 6c | lien:alien-funcall........(sb-al |
| 1ac500 | 69 65 6e 3a 65 78 74 65 72 6e 2d 61 6c 69 65 6e 20 22 64 69 73 70 61 74 63 68 5f 73 65 6d 61 70 | ien:extern-alien."dispatch_semap |
| 1ac520 | 68 6f 72 65 5f 77 61 69 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hore_wait"...................... |
| 1ac540 | 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 73 62 2d 61 6c 69 65 6e 3a 6c 6f 6e 67 | .........(function.sb-alien:long |
| 1ac560 | 20 73 62 2d 73 79 73 3a 73 79 73 74 65 6d 2d 61 72 65 61 2d 70 6f 69 6e 74 65 72 20 73 62 2d 61 | .sb-sys:system-area-pointer.sb-a |
| 1ac580 | 6c 69 65 6e 3a 6c 6f 6e 67 2d 6c 6f 6e 67 29 29 0a 20 20 20 20 20 20 20 73 65 6d 0a 20 20 20 20 | lien:long-long))........sem..... |
| 1ac5a0 | 20 20 20 2d 31 29 29 0a 0a 20 20 20 20 28 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d 73 65 6d 20 28 | ...-1))......(defun.signal-sem.( |
| 1ac5c0 | 73 65 6d 29 0a 20 20 20 20 20 20 28 73 62 2d 61 6c 69 65 6e 3a 61 6c 69 65 6e 2d 66 75 6e 63 61 | sem).......(sb-alien:alien-funca |
| 1ac5e0 | 6c 6c 0a 20 20 20 20 20 20 20 28 73 62 2d 61 6c 69 65 6e 3a 65 78 74 65 72 6e 2d 61 6c 69 65 6e | ll........(sb-alien:extern-alien |
| 1ac600 | 20 22 64 69 73 70 61 74 63 68 5f 73 65 6d 61 70 68 6f 72 65 5f 73 69 67 6e 61 6c 22 0a 20 20 20 | ."dispatch_semaphore_signal".... |
| 1ac620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 | ...........................(func |
| 1ac640 | 74 69 6f 6e 20 73 62 2d 61 6c 69 65 6e 3a 6c 6f 6e 67 20 73 62 2d 73 79 73 3a 73 79 73 74 65 6d | tion.sb-alien:long.sb-sys:system |
| 1ac660 | 2d 61 72 65 61 2d 70 6f 69 6e 74 65 72 29 29 0a 20 20 20 20 20 20 20 73 65 6d 29 29 29 0a 0a 20 | -area-pointer))........sem)))... |
| 1ac680 | 20 28 64 65 66 73 74 72 75 63 74 20 28 6d 61 69 6c 62 6f 78 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 | .(defstruct.(mailbox.(:conc-name |
| 1ac6a0 | 20 6d 61 69 6c 62 6f 78 2e 29 29 0a 20 20 20 20 74 68 72 65 61 64 0a 20 20 20 20 28 6d 75 74 65 | .mailbox.)).....thread.....(mute |
| 1ac6c0 | 78 20 28 73 62 2d 74 68 72 65 61 64 3a 6d 61 6b 65 2d 6d 75 74 65 78 29 29 0a 20 20 20 20 23 2d | x.(sb-thread:make-mutex)).....#- |
| 1ac6e0 | 64 61 72 77 69 6e 0a 20 20 20 20 28 77 61 69 74 71 75 65 75 65 20 28 73 62 2d 74 68 72 65 61 64 | darwin.....(waitqueue.(sb-thread |
| 1ac700 | 3a 6d 61 6b 65 2d 77 61 69 74 71 75 65 75 65 29 29 0a 20 20 20 20 23 2b 64 61 72 77 69 6e 0a 20 | :make-waitqueue)).....#+darwin.. |
| 1ac720 | 20 20 20 28 73 65 6d 20 28 6d 61 6b 65 2d 73 65 6d 29 29 0a 20 20 20 20 28 71 75 65 75 65 20 27 | ...(sem.(make-sem)).....(queue.' |
| 1ac740 | 28 29 20 3a 74 79 70 65 20 6c 69 73 74 29 29 0a 0a 20 20 28 64 65 66 75 6e 20 6d 61 69 6c 62 6f | ().:type.list))....(defun.mailbo |
| 1ac760 | 78 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 22 52 65 74 75 72 6e 20 54 48 52 45 41 44 27 73 20 | x.(thread)....."Return.THREAD's. |
| 1ac780 | 6d 61 69 6c 62 6f 78 2e 22 0a 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 77 69 74 68 2d 6d 75 | mailbox.".....(sb-thread:with-mu |
| 1ac7a0 | 74 65 78 20 28 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 20 20 28 6f 72 20 28 | tex.(*mailbox-lock*).......(or.( |
| 1ac7c0 | 66 69 6e 64 20 74 68 72 65 61 64 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 20 3a 6b 65 79 20 23 27 6d | find.thread.*mailboxes*.:key.#'m |
| 1ac7e0 | 61 69 6c 62 6f 78 2e 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | ailbox.thread)...........(let.(( |
| 1ac800 | 6d 62 20 28 6d 61 6b 65 2d 6d 61 69 6c 62 6f 78 20 3a 74 68 72 65 61 64 20 74 68 72 65 61 64 29 | mb.(make-mailbox.:thread.thread) |
| 1ac820 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6d 62 20 2a 6d 61 69 6c 62 6f 78 | )).............(push.mb.*mailbox |
| 1ac840 | 65 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 62 29 29 29 29 0a 0a 20 20 28 64 65 66 69 | es*).............mb))))....(defi |
| 1ac860 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 61 6b 65 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 | mplementation.wake-thread.(threa |
| 1ac880 | 64 29 0a 20 20 20 20 23 2d 64 61 72 77 69 6e 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 | d).....#-darwin.....(let*.((mbox |
| 1ac8a0 | 20 28 6d 61 69 6c 62 6f 78 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d | .(mailbox.thread))............(m |
| 1ac8c0 | 75 74 65 78 20 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 29 0a 20 20 20 20 | utex.(mailbox.mutex.mbox)))..... |
| 1ac8e0 | 20 20 28 73 62 2d 74 68 72 65 61 64 3a 77 69 74 68 2d 72 65 63 75 72 73 69 76 65 2d 6c 6f 63 6b | ..(sb-thread:with-recursive-lock |
| 1ac900 | 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 63 6f 6e 64 | .(mutex).........(sb-thread:cond |
| 1ac920 | 69 74 69 6f 6e 2d 62 72 6f 61 64 63 61 73 74 20 28 6d 61 69 6c 62 6f 78 2e 77 61 69 74 71 75 65 | ition-broadcast.(mailbox.waitque |
| 1ac940 | 75 65 20 6d 62 6f 78 29 29 29 29 0a 20 20 20 20 23 2b 64 61 72 77 69 6e 0a 20 20 20 20 28 73 69 | ue.mbox)))).....#+darwin.....(si |
| 1ac960 | 67 6e 61 6c 2d 73 65 6d 20 28 6d 61 69 6c 62 6f 78 2e 73 65 6d 20 28 6d 61 69 6c 62 6f 78 20 74 | gnal-sem.(mailbox.sem.(mailbox.t |
| 1ac980 | 68 72 65 61 64 29 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | hread))))....(defimplementation. |
| 1ac9a0 | 73 65 6e 64 20 28 74 68 72 65 61 64 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 28 6c 65 74 2a 20 | send.(thread.message).....(let*. |
| 1ac9c0 | 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 | ((mbox.(mailbox.thread))........ |
| 1ac9e0 | 20 20 20 20 28 6d 75 74 65 78 20 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 | ....(mutex.(mailbox.mutex.mbox)) |
| 1aca00 | 29 0a 20 20 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 77 69 74 68 2d 6d 75 74 65 78 20 28 6d | ).......(sb-thread:with-mutex.(m |
| 1aca20 | 75 74 65 78 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 | utex).........(setf.(mailbox.que |
| 1aca40 | 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 63 6f 6e 63 20 28 6d | ue.mbox)...............(nconc.(m |
| 1aca60 | 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6c 69 73 74 20 6d 65 73 73 61 67 65 | ailbox.queue.mbox).(list.message |
| 1aca80 | 29 29 29 0a 20 20 20 20 20 20 20 20 23 2d 64 61 72 77 69 6e 0a 20 20 20 20 20 20 20 20 28 73 62 | ))).........#-darwin.........(sb |
| 1acaa0 | 2d 74 68 72 65 61 64 3a 63 6f 6e 64 69 74 69 6f 6e 2d 62 72 6f 61 64 63 61 73 74 20 28 6d 61 69 | -thread:condition-broadcast.(mai |
| 1acac0 | 6c 62 6f 78 2e 77 61 69 74 71 75 65 75 65 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 23 2b | lbox.waitqueue.mbox)).........#+ |
| 1acae0 | 64 61 72 77 69 6e 0a 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 73 65 6d 20 28 6d 61 69 6c | darwin.........(signal-sem.(mail |
| 1acb00 | 62 6f 78 2e 73 65 6d 20 6d 62 6f 78 29 29 29 29 29 0a 20 20 0a 20 20 28 64 65 66 69 6d 70 6c 65 | box.sem.mbox)))))......(defimple |
| 1acb20 | 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 69 76 65 2d 69 66 20 28 74 65 73 74 20 26 6f 70 74 69 | mentation.receive-if.(test.&opti |
| 1acb40 | 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 | onal.timeout).....(let*.((mbox.( |
| 1acb60 | 6d 61 69 6c 62 6f 78 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 | mailbox.(current-thread)))...... |
| 1acb80 | 20 20 20 20 20 20 28 6d 75 74 65 78 20 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 | ......(mutex.(mailbox.mutex.mbox |
| 1acba0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 23 2d 64 61 72 77 69 6e 0a 20 20 20 20 20 20 20 20 20 | ))............#-darwin.......... |
| 1acbc0 | 20 20 28 77 61 69 74 71 20 28 6d 61 69 6c 62 6f 78 2e 77 61 69 74 71 75 65 75 65 20 6d 62 6f 78 | ..(waitq.(mailbox.waitqueue.mbox |
| 1acbe0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 23 2b 64 61 72 77 69 6e 0a 20 20 20 20 20 20 20 20 20 | ))............#+darwin.......... |
| 1acc00 | 20 20 28 73 65 6d 20 28 6d 61 69 6c 62 6f 78 2e 73 65 6d 20 6d 62 6f 78 29 29 29 0a 20 20 20 20 | ..(sem.(mailbox.sem.mbox)))..... |
| 1acc20 | 20 20 28 61 73 73 65 72 74 20 28 6f 72 20 28 6e 6f 74 20 74 69 6d 65 6f 75 74 29 20 28 65 71 20 | ..(assert.(or.(not.timeout).(eq. |
| 1acc40 | 74 69 6d 65 6f 75 74 20 74 29 29 29 0a 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 | timeout.t))).......(loop........ |
| 1acc60 | 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 20 20 20 | (check-slime-interrupts)........ |
| 1acc80 | 28 73 62 2d 74 68 72 65 61 64 3a 77 69 74 68 2d 6d 75 74 65 78 20 28 6d 75 74 65 78 29 0a 20 20 | (sb-thread:with-mutex.(mutex)... |
| 1acca0 | 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 71 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 | .......(let*.((q.(mailbox.queue. |
| 1accc0 | 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 20 28 6d 65 | mbox)).................(tail.(me |
| 1acce0 | 6d 62 65 72 2d 69 66 20 74 65 73 74 20 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | mber-if.test.q)))............(wh |
| 1acd00 | 65 6e 20 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c | en.tail..............(setf.(mail |
| 1acd20 | 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6e 63 6f 6e 63 20 28 6c 64 69 66 66 20 71 20 | box.queue.mbox).(nconc.(ldiff.q. |
| 1acd40 | 74 61 69 6c 29 20 28 63 64 72 20 74 61 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | tail).(cdr.tail))).............. |
| 1acd60 | 28 72 65 74 75 72 6e 20 28 63 61 72 20 74 61 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (return.(car.tail)))............ |
| 1acd80 | 28 77 68 65 6e 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 20 28 72 65 74 75 72 6e 20 28 76 61 | (when.(eq.timeout.t).(return.(va |
| 1acda0 | 6c 75 65 73 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 23 2d 64 61 72 77 69 | lues.nil.t)))............#-darwi |
| 1acdc0 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 63 6f 6e 64 69 74 69 6f | n............(sb-thread:conditio |
| 1acde0 | 6e 2d 77 61 69 74 20 77 61 69 74 71 20 6d 75 74 65 78 29 29 29 0a 20 20 20 20 20 20 20 23 2b 64 | n-wait.waitq.mutex)))........#+d |
| 1ace00 | 61 72 77 69 6e 0a 20 20 20 20 20 20 20 28 77 61 69 74 2d 73 65 6d 20 73 65 6d 29 29 29 29 0a 0a | arwin........(wait-sem.sem)))).. |
| 1ace20 | 20 20 28 6c 65 74 20 28 28 61 6c 69 73 74 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 6d 75 74 | ..(let.((alist.'()).........(mut |
| 1ace40 | 65 78 20 28 73 62 2d 74 68 72 65 61 64 3a 6d 61 6b 65 2d 6d 75 74 65 78 20 3a 6e 61 6d 65 20 22 | ex.(sb-thread:make-mutex.:name." |
| 1ace60 | 72 65 67 69 73 74 65 72 2d 74 68 72 65 61 64 22 29 29 29 0a 0a 20 20 20 20 28 64 65 66 69 6d 70 | register-thread")))......(defimp |
| 1ace80 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 67 69 73 74 65 72 2d 74 68 72 65 61 64 20 28 6e 61 6d | lementation.register-thread.(nam |
| 1acea0 | 65 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 73 | e.thread).......(declare.(type.s |
| 1acec0 | 79 6d 62 6f 6c 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 77 69 | ymbol.name)).......(sb-thread:wi |
| 1acee0 | 74 68 2d 6d 75 74 65 78 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 | th-mutex.(mutex).........(etypec |
| 1acf00 | 61 73 65 20 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 0a 20 20 20 20 20 | ase.thread...........(null...... |
| 1acf20 | 20 20 20 20 20 20 28 73 65 74 66 20 61 6c 69 73 74 20 28 64 65 6c 65 74 65 20 6e 61 6d 65 20 61 | ......(setf.alist.(delete.name.a |
| 1acf40 | 6c 69 73 74 20 3a 6b 65 79 20 23 27 63 61 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 62 | list.:key.#'car)))...........(sb |
| 1acf60 | 2d 74 68 72 65 61 64 3a 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | -thread:thread............(let.( |
| 1acf80 | 28 70 72 6f 62 65 20 28 61 73 73 6f 63 20 6e 61 6d 65 20 61 6c 69 73 74 29 29 29 0a 20 20 20 20 | (probe.(assoc.name.alist)))..... |
| 1acfa0 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 70 72 6f 62 65 20 28 73 65 74 66 20 28 63 64 72 | .........(cond.(probe.(setf.(cdr |
| 1acfc0 | 20 70 72 6f 62 65 29 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .probe).thread))................ |
| 1acfe0 | 20 20 20 20 28 74 20 28 73 65 74 66 20 61 6c 69 73 74 20 28 61 63 6f 6e 73 20 6e 61 6d 65 20 74 | ....(t.(setf.alist.(acons.name.t |
| 1ad000 | 68 72 65 61 64 20 61 6c 69 73 74 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 6e 69 6c 29 0a 0a | hread.alist)))))))).......nil).. |
| 1ad020 | 20 20 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 72 65 67 69 | ....(defimplementation.find-regi |
| 1ad040 | 73 74 65 72 65 64 20 28 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 73 62 2d 74 68 72 65 61 64 3a 77 | stered.(name).......(sb-thread:w |
| 1ad060 | 69 74 68 2d 6d 75 74 65 78 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 20 20 20 28 63 64 72 20 28 | ith-mutex.(mutex).........(cdr.( |
| 1ad080 | 61 73 73 6f 63 20 6e 61 6d 65 20 61 6c 69 73 74 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | assoc.name.alist))))))..(defimpl |
| 1ad0a0 | 65 6d 65 6e 74 61 74 69 6f 6e 20 71 75 69 74 2d 6c 69 73 70 20 28 29 0a 20 20 23 2b 23 2e 28 73 | ementation.quit-lisp.()...#+#.(s |
| 1ad0c0 | 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 65 78 69 74 20 27 | wank/backend:with-symbol.'exit.' |
| 1ad0e0 | 73 62 2d 65 78 74 29 0a 20 20 28 73 62 2d 65 78 74 3a 65 78 69 74 29 0a 20 20 23 2d 23 2e 28 73 | sb-ext)...(sb-ext:exit)...#-#.(s |
| 1ad100 | 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 65 78 69 74 20 27 | wank/backend:with-symbol.'exit.' |
| 1ad120 | 73 62 2d 65 78 74 29 0a 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 23 2b 73 62 2d 74 68 72 65 61 64 | sb-ext)...(progn.....#+sb-thread |
| 1ad140 | 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 74 68 72 65 61 64 20 28 72 65 6d 6f 76 65 20 28 63 75 | .....(dolist.(thread.(remove.(cu |
| 1ad160 | 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 28 61 6c 6c 2d 74 68 72 65 61 64 73 29 29 29 0a 20 20 | rrent-thread).(all-threads)))... |
| 1ad180 | 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 62 2d 74 68 72 65 61 64 3a 74 65 | ....(ignore-errors.(sb-thread:te |
| 1ad1a0 | 72 6d 69 6e 61 74 65 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 28 73 62 | rminate-thread.thread))).....(sb |
| 1ad1c0 | 2d 65 78 74 3a 71 75 69 74 29 29 29 0a 0a 0a 0c 0a 3b 3b 54 72 61 63 65 20 69 6d 70 6c 65 6d 65 | -ext:quit))).....;;Trace.impleme |
| 1ad1e0 | 6e 74 61 74 69 6f 6e 73 0a 3b 3b 49 6e 20 53 42 43 4c 2c 20 77 65 20 68 61 76 65 3a 0a 3b 3b 20 | ntations.;;In.SBCL,.we.have:.;;. |
| 1ad200 | 28 74 72 61 63 65 20 3c 6e 61 6d 65 3e 29 0a 3b 3b 20 28 74 72 61 63 65 20 3a 6d 65 74 68 6f 64 | (trace.<name>).;;.(trace.:method |
| 1ad220 | 73 20 27 3c 6e 61 6d 65 3e 29 20 3b 74 6f 20 74 72 61 63 65 20 61 6c 6c 20 6d 65 74 68 6f 64 73 | s.'<name>).;to.trace.all.methods |
| 1ad240 | 20 6f 66 20 74 68 65 20 67 66 20 3c 6e 61 6d 65 3e 0a 3b 3b 20 28 74 72 61 63 65 20 28 6d 65 74 | .of.the.gf.<name>.;;.(trace.(met |
| 1ad260 | 68 6f 64 20 3c 6e 61 6d 65 3e 20 3c 71 75 61 6c 69 66 69 65 72 3e 3f 20 28 3c 73 70 65 63 69 61 | hod.<name>.<qualifier>?.(<specia |
| 1ad280 | 6c 69 7a 65 72 3e 2b 29 29 29 0a 3b 3b 20 3c 6e 61 6d 65 3e 20 63 61 6e 20 62 65 20 61 20 6e 6f | lizer>+))).;;.<name>.can.be.a.no |
| 1ad2a0 | 72 6d 61 6c 20 6e 61 6d 65 20 6f 72 20 61 20 28 73 65 74 66 20 6e 61 6d 65 29 0a 0a 28 64 65 66 | rmal.name.or.a.(setf.name)..(def |
| 1ad2c0 | 75 6e 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 28 66 73 70 65 63 20 26 72 65 73 74 | un.toggle-trace-aux.(fspec.&rest |
| 1ad2e0 | 20 61 72 67 73 29 0a 20 20 28 63 6f 6e 64 20 28 28 6d 65 6d 62 65 72 20 66 73 70 65 63 20 28 65 | .args)...(cond.((member.fspec.(e |
| 1ad300 | 76 61 6c 20 27 28 74 72 61 63 65 29 29 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 20 | val.'(trace)).:test.#'equal).... |
| 1ad320 | 20 20 20 20 20 20 28 65 76 61 6c 20 60 28 75 6e 74 72 61 63 65 20 2c 66 73 70 65 63 29 29 0a 20 | ......(eval.`(untrace.,fspec)).. |
| 1ad340 | 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 6e 6f 77 20 75 | ........(format.nil."~S.is.now.u |
| 1ad360 | 6e 74 72 61 63 65 64 2e 22 20 66 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 | ntraced.".fspec)).........(t.... |
| 1ad380 | 20 20 20 20 20 20 28 65 76 61 6c 20 60 28 74 72 61 63 65 20 2c 40 28 69 66 20 61 72 67 73 20 60 | ......(eval.`(trace.,@(if.args.` |
| 1ad3a0 | 28 3a 65 6e 63 61 70 73 75 6c 61 74 65 20 6e 69 6c 29 20 28 6c 69 73 74 29 29 20 2c 66 73 70 65 | (:encapsulate.nil).(list)).,fspe |
| 1ad3c0 | 63 20 2c 40 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 | c.,@args))..........(format.nil. |
| 1ad3e0 | 22 7e 53 20 69 73 20 6e 6f 77 20 74 72 61 63 65 64 2e 22 20 66 73 70 65 63 29 29 29 29 0a 0a 28 | "~S.is.now.traced.".fspec))))..( |
| 1ad400 | 64 65 66 75 6e 20 70 72 6f 63 65 73 73 2d 66 73 70 65 63 20 28 66 73 70 65 63 29 0a 20 20 28 63 | defun.process-fspec.(fspec)...(c |
| 1ad420 | 6f 6e 64 20 28 28 63 6f 6e 73 70 20 66 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 28 65 63 61 | ond.((consp.fspec)..........(eca |
| 1ad440 | 73 65 20 28 66 69 72 73 74 20 66 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 | se.(first.fspec)............((:d |
| 1ad460 | 65 66 75 6e 20 3a 64 65 66 67 65 6e 65 72 69 63 29 20 28 73 65 63 6f 6e 64 20 66 73 70 65 63 29 | efun.:defgeneric).(second.fspec) |
| 1ad480 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 66 6d 65 74 68 6f 64 29 20 60 28 6d 65 74 | )............((:defmethod).`(met |
| 1ad4a0 | 68 6f 64 20 2c 40 28 72 65 73 74 20 66 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | hod.,@(rest.fspec)))............ |
| 1ad4c0 | 28 28 3a 6c 61 62 65 6c 73 29 20 60 28 6c 61 62 65 6c 73 20 2c 28 70 72 6f 63 65 73 73 2d 66 73 | ((:labels).`(labels.,(process-fs |
| 1ad4e0 | 70 65 63 20 28 73 65 63 6f 6e 64 20 66 73 70 65 63 29 29 20 2c 28 74 68 69 72 64 20 66 73 70 65 | pec.(second.fspec)).,(third.fspe |
| 1ad500 | 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 66 6c 65 74 29 20 60 28 66 6c 65 74 20 | c)))............((:flet).`(flet. |
| 1ad520 | 2c 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 20 28 73 65 63 6f 6e 64 20 66 73 70 65 63 29 29 20 | ,(process-fspec.(second.fspec)). |
| 1ad540 | 2c 28 74 68 69 72 64 20 66 73 70 65 63 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 | ,(third.fspec))))).........(t... |
| 1ad560 | 20 20 20 20 20 20 20 66 73 70 65 63 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | .......fspec)))..(defimplementat |
| 1ad580 | 69 6f 6e 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 28 73 70 65 63 29 0a 20 20 28 65 63 61 73 65 | ion.toggle-trace.(spec)...(ecase |
| 1ad5a0 | 20 28 63 61 72 20 73 70 65 63 29 0a 20 20 20 20 28 28 73 65 74 66 29 0a 20 20 20 20 20 28 74 6f | .(car.spec).....((setf)......(to |
| 1ad5c0 | 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 73 70 65 63 29 29 0a 20 20 20 20 28 28 3a 64 65 66 | ggle-trace-aux.spec)).....((:def |
| 1ad5e0 | 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 60 | method)......(toggle-trace-aux.` |
| 1ad600 | 28 73 62 2d 70 63 6c 3a 3a 66 61 73 74 2d 6d 65 74 68 6f 64 20 2c 40 28 72 65 73 74 20 28 70 72 | (sb-pcl::fast-method.,@(rest.(pr |
| 1ad620 | 6f 63 65 73 73 2d 66 73 70 65 63 20 73 70 65 63 29 29 29 29 29 0a 20 20 20 20 28 28 3a 64 65 66 | ocess-fspec.spec))))).....((:def |
| 1ad640 | 67 65 6e 65 72 69 63 29 0a 20 20 20 20 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 | generic)......(toggle-trace-aux. |
| 1ad660 | 28 73 65 63 6f 6e 64 20 73 70 65 63 29 20 3a 6d 65 74 68 6f 64 73 20 74 29 29 0a 20 20 20 20 28 | (second.spec).:methods.t)).....( |
| 1ad680 | 28 3a 63 61 6c 6c 29 0a 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 | (:call)......(destructuring-bind |
| 1ad6a0 | 20 28 63 61 6c 6c 65 72 20 63 61 6c 6c 65 65 29 20 28 63 64 72 20 73 70 65 63 29 0a 20 20 20 20 | .(caller.callee).(cdr.spec)..... |
| 1ad6c0 | 20 20 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 63 61 6c 6c 65 65 20 3a 77 68 65 | ...(toggle-trace-aux.callee.:whe |
| 1ad6e0 | 72 65 69 6e 20 28 6c 69 73 74 20 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 20 63 61 6c 6c 65 72 | rein.(list.(process-fspec.caller |
| 1ad700 | 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 20 57 65 61 6b 20 64 61 74 61 73 74 72 75 63 74 75 72 65 73 | )))))))..;;;.Weak.datastructures |
| 1ad720 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 77 65 61 6b 2d 6b | ..(defimplementation.make-weak-k |
| 1ad740 | 65 79 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 23 2b 23 | ey-hash-table.(&rest.args)...#+# |
| 1ad760 | 2e 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 69 74 68 2d 77 65 61 6b 2d 68 61 73 | .(swank/sbcl::sbcl-with-weak-has |
| 1ad780 | 68 2d 74 61 62 6c 65 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 68 61 73 68 2d 74 | h-tables)...(apply.#'make-hash-t |
| 1ad7a0 | 61 62 6c 65 20 3a 77 65 61 6b 6e 65 73 73 20 3a 6b 65 79 20 61 72 67 73 29 0a 20 20 23 2d 23 2e | able.:weakness.:key.args)...#-#. |
| 1ad7c0 | 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 69 74 68 2d 77 65 61 6b 2d 68 61 73 68 | (swank/sbcl::sbcl-with-weak-hash |
| 1ad7e0 | 2d 74 61 62 6c 65 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 68 61 73 68 2d 74 61 | -tables)...(apply.#'make-hash-ta |
| 1ad800 | 62 6c 65 20 61 72 67 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d | ble.args))..(defimplementation.m |
| 1ad820 | 61 6b 65 2d 77 65 61 6b 2d 76 61 6c 75 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 26 72 65 73 74 | ake-weak-value-hash-table.(&rest |
| 1ad840 | 20 61 72 67 73 29 0a 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d 77 | .args)...#+#.(swank/sbcl::sbcl-w |
| 1ad860 | 69 74 68 2d 77 65 61 6b 2d 68 61 73 68 2d 74 61 62 6c 65 73 29 0a 20 20 28 61 70 70 6c 79 20 23 | ith-weak-hash-tables)...(apply.# |
| 1ad880 | 27 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 77 65 61 6b 6e 65 73 73 20 3a 76 61 6c 75 | 'make-hash-table.:weakness.:valu |
| 1ad8a0 | 65 20 61 72 67 73 29 0a 20 20 23 2d 23 2e 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a 73 62 63 6c 2d | e.args)...#-#.(swank/sbcl::sbcl- |
| 1ad8c0 | 77 69 74 68 2d 77 65 61 6b 2d 68 61 73 68 2d 74 61 62 6c 65 73 29 0a 20 20 28 61 70 70 6c 79 20 | with-weak-hash-tables)...(apply. |
| 1ad8e0 | 23 27 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 61 72 67 73 29 29 0a 0a 28 64 65 66 69 6d | #'make-hash-table.args))..(defim |
| 1ad900 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 68 61 73 68 2d 74 61 62 6c 65 2d 77 65 61 6b 6e 65 73 73 | plementation.hash-table-weakness |
| 1ad920 | 20 28 68 61 73 68 74 61 62 6c 65 29 0a 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 73 62 63 6c 3a 3a | .(hashtable)...#+#.(swank/sbcl:: |
| 1ad940 | 73 62 63 6c 2d 77 69 74 68 2d 77 65 61 6b 2d 68 61 73 68 2d 74 61 62 6c 65 73 29 0a 20 20 28 73 | sbcl-with-weak-hash-tables)...(s |
| 1ad960 | 62 2d 65 78 74 3a 68 61 73 68 2d 74 61 62 6c 65 2d 77 65 61 6b 6e 65 73 73 20 68 61 73 68 74 61 | b-ext:hash-table-weakness.hashta |
| 1ad980 | 62 6c 65 29 29 0a 0a 3b 3b 3b 20 46 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 0a 0a 28 64 65 66 69 | ble))..;;;.Floating.point..(defi |
| 1ad9a0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 6c 6f 61 74 2d 6e 61 6e 2d 70 20 28 66 6c 6f 61 74 | mplementation.float-nan-p.(float |
| 1ad9c0 | 29 0a 20 20 28 73 62 2d 65 78 74 3a 66 6c 6f 61 74 2d 6e 61 6e 2d 70 20 66 6c 6f 61 74 29 29 0a | )...(sb-ext:float-nan-p.float)). |
| 1ad9e0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 6c 6f 61 74 2d 69 6e 66 69 6e 69 | .(defimplementation.float-infini |
| 1ada00 | 74 79 2d 70 20 28 66 6c 6f 61 74 29 0a 20 20 28 73 62 2d 65 78 74 3a 66 6c 6f 61 74 2d 69 6e 66 | ty-p.(float)...(sb-ext:float-inf |
| 1ada20 | 69 6e 69 74 79 2d 70 20 66 6c 6f 61 74 29 29 0a 0a 23 2d 77 69 6e 33 32 0a 28 64 65 66 69 6d 70 | inity-p.float))..#-win32.(defimp |
| 1ada40 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 61 76 65 2d 69 6d 61 67 65 20 28 66 69 6c 65 6e 61 6d 65 | lementation.save-image.(filename |
| 1ada60 | 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 73 74 61 72 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 | .&optional.restart-function)...( |
| 1ada80 | 66 6c 65 74 20 28 28 72 65 73 74 61 72 74 2d 73 62 63 6c 20 28 29 0a 20 20 20 20 20 20 20 20 20 | flet.((restart-sbcl.().......... |
| 1adaa0 | 20 20 28 73 62 2d 64 65 62 75 67 3a 3a 65 6e 61 62 6c 65 2d 64 65 62 75 67 67 65 72 29 0a 20 20 | ..(sb-debug::enable-debugger)... |
| 1adac0 | 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 73 62 2d 69 6d 70 6c 3a 3a 2a 64 65 73 63 72 69 70 | .........(setf.sb-impl::*descrip |
| 1adae0 | 74 6f 72 2d 68 61 6e 64 6c 65 72 73 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 | tor-handlers*.nil)............(f |
| 1adb00 | 75 6e 63 61 6c 6c 20 72 65 73 74 61 72 74 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 | uncall.restart-function))).....( |
| 1adb20 | 6c 65 74 20 28 28 70 69 64 20 28 73 62 2d 70 6f 73 69 78 3a 66 6f 72 6b 29 29 29 0a 20 20 20 20 | let.((pid.(sb-posix:fork)))..... |
| 1adb40 | 20 20 28 63 6f 6e 64 20 28 28 3d 20 70 69 64 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(cond.((=.pid.0).............. |
| 1adb60 | 28 73 62 2d 64 65 62 75 67 3a 3a 64 69 73 61 62 6c 65 2d 64 65 62 75 67 67 65 72 29 0a 20 20 20 | (sb-debug::disable-debugger).... |
| 1adb80 | 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 62 2d 65 78 74 3a 73 61 76 65 2d 6c | ..........(apply.#'sb-ext:save-l |
| 1adba0 | 69 73 70 2d 61 6e 64 2d 64 69 65 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 | isp-and-die.filename............ |
| 1adbc0 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 73 74 61 72 74 2d 66 75 6e 63 74 69 6f 6e 0a | .........(when.restart-function. |
| 1adbe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 74 6f 70 | ......................(list.:top |
| 1adc00 | 6c 65 76 65 6c 20 23 27 72 65 73 74 61 72 74 2d 73 62 63 6c 29 29 29 29 0a 20 20 20 20 20 20 20 | level.#'restart-sbcl))))........ |
| 1adc20 | 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 | .....(t..............(multiple-v |
| 1adc40 | 61 6c 75 65 2d 62 69 6e 64 20 28 72 70 69 64 20 73 74 61 74 75 73 29 20 28 73 62 2d 70 6f 73 69 | alue-bind.(rpid.status).(sb-posi |
| 1adc60 | 78 3a 77 61 69 74 70 69 64 20 70 69 64 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | x:waitpid.pid.0)................ |
| 1adc80 | 28 61 73 73 65 72 74 20 28 3d 20 70 69 64 20 72 70 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 | (assert.(=.pid.rpid))........... |
| 1adca0 | 20 20 20 20 20 28 61 73 73 65 72 74 20 28 61 6e 64 20 28 73 62 2d 70 6f 73 69 78 3a 77 69 66 65 | .....(assert.(and.(sb-posix:wife |
| 1adcc0 | 78 69 74 65 64 20 73 74 61 74 75 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | xited.status)................... |
| 1adce0 | 20 20 20 20 20 20 20 20 20 20 28 7a 65 72 6f 70 20 28 73 62 2d 70 6f 73 69 78 3a 77 65 78 69 74 | ..........(zerop.(sb-posix:wexit |
| 1add00 | 73 74 61 74 75 73 20 73 74 61 74 75 73 29 29 29 29 29 29 29 29 29 29 0a 0a 23 2b 75 6e 69 78 0a | status.status))))))))))..#+unix. |
| 1add20 | 28 70 72 6f 67 6e 0a 20 20 28 73 62 2d 61 6c 69 65 6e 3a 64 65 66 69 6e 65 2d 61 6c 69 65 6e 2d | (progn...(sb-alien:define-alien- |
| 1add40 | 72 6f 75 74 69 6e 65 20 28 22 65 78 65 63 76 22 20 73 79 73 2d 65 78 65 63 76 29 20 73 62 2d 61 | routine.("execv".sys-execv).sb-a |
| 1add60 | 6c 69 65 6e 3a 69 6e 74 0a 20 20 20 20 28 70 72 6f 67 72 61 6d 20 73 62 2d 61 6c 69 65 6e 3a 63 | lien:int.....(program.sb-alien:c |
| 1add80 | 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 28 61 72 67 76 20 28 2a 20 73 62 2d 61 6c 69 65 6e 3a 63 | -string).....(argv.(*.sb-alien:c |
| 1adda0 | 2d 73 74 72 69 6e 67 29 29 29 0a 0a 20 20 28 64 65 66 75 6e 20 65 78 65 63 76 20 28 70 72 6f 67 | -string)))....(defun.execv.(prog |
| 1addc0 | 72 61 6d 20 61 72 67 73 29 0a 20 20 20 20 22 52 65 70 6c 61 63 65 20 63 75 72 72 65 6e 74 20 65 | ram.args)....."Replace.current.e |
| 1adde0 | 78 65 63 75 74 61 62 6c 65 20 77 69 74 68 20 61 6e 6f 74 68 65 72 20 6f 6e 65 2e 22 0a 20 20 20 | xecutable.with.another.one.".... |
| 1ade00 | 20 28 6c 65 74 20 28 28 61 2d 61 72 67 73 20 28 73 62 2d 61 6c 69 65 6e 3a 6d 61 6b 65 2d 61 6c | .(let.((a-args.(sb-alien:make-al |
| 1ade20 | 69 65 6e 20 73 62 2d 61 6c 69 65 6e 3a 63 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 | ien.sb-alien:c-string........... |
| 1ade40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 | .............................(+. |
| 1ade60 | 31 20 28 6c 65 6e 67 74 68 20 61 72 67 73 29 29 29 29 29 0a 20 20 20 20 20 20 28 75 6e 77 69 6e | 1.(length.args))))).......(unwin |
| 1ade80 | 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 | d-protect............(progn..... |
| 1adea0 | 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 6e 64 65 78 20 66 72 6f 6d 20 30 20 | .........(loop.for.index.from.0. |
| 1adec0 | 62 79 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 69 74 65 6d | by.1....................and.item |
| 1adee0 | 20 69 6e 20 28 61 70 70 65 6e 64 20 61 72 67 73 20 27 28 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 | .in.(append.args.'(nil))........ |
| 1adf00 | 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 65 74 66 20 28 73 62 2d 61 6c 69 65 6e 3a 64 | ............do.(setf.(sb-alien:d |
| 1adf20 | 65 72 65 66 20 61 2d 61 72 67 73 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | eref.a-args.index).............. |
| 1adf40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 74 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ...............item))........... |
| 1adf60 | 20 20 20 28 77 68 65 6e 20 28 6d 69 6e 75 73 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(when.(minusp................ |
| 1adf80 | 20 20 20 20 20 28 73 79 73 2d 65 78 65 63 76 20 70 72 6f 67 72 61 6d 20 61 2d 61 72 67 73 29 29 | .....(sys-execv.program.a-args)) |
| 1adfa0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 65 78 65 63 76 28 33 29 | ................(error."execv(3) |
| 1adfc0 | 20 72 65 74 75 72 6e 65 64 2e 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 62 2d 61 6c 69 65 6e | .returned."))).........(sb-alien |
| 1adfe0 | 3a 66 72 65 65 2d 61 6c 69 65 6e 20 61 2d 61 72 67 73 29 29 29 29 0a 0a 20 20 28 64 65 66 75 6e | :free-alien.a-args))))....(defun |
| 1ae000 | 20 72 75 6e 74 69 6d 65 2d 70 61 74 68 6e 61 6d 65 20 28 29 0a 20 20 20 20 23 2b 23 2e 28 73 77 | .runtime-pathname.().....#+#.(sw |
| 1ae020 | 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 | ank/backend:with-symbol......... |
| 1ae040 | 20 20 20 20 27 2a 72 75 6e 74 69 6d 65 2d 70 61 74 68 6e 61 6d 65 2a 20 27 73 62 2d 65 78 74 29 | ....'*runtime-pathname*.'sb-ext) |
| 1ae060 | 0a 20 20 20 20 73 62 2d 65 78 74 3a 2a 72 75 6e 74 69 6d 65 2d 70 61 74 68 6e 61 6d 65 2a 0a 20 | .....sb-ext:*runtime-pathname*.. |
| 1ae080 | 20 20 20 23 2d 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f | ...#-#.(swank/backend:with-symbo |
| 1ae0a0 | 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 2a 72 75 6e 74 69 6d 65 2d 70 61 74 68 6e 61 6d 65 | l.............'*runtime-pathname |
| 1ae0c0 | 2a 20 27 73 62 2d 65 78 74 29 0a 20 20 20 20 28 63 61 72 20 73 62 2d 65 78 74 3a 2a 70 6f 73 69 | *.'sb-ext).....(car.sb-ext:*posi |
| 1ae0e0 | 78 2d 61 72 67 76 2a 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | x-argv*))....(defimplementation. |
| 1ae100 | 65 78 65 63 2d 69 6d 61 67 65 20 28 69 6d 61 67 65 2d 66 69 6c 65 20 61 72 67 73 29 0a 20 20 20 | exec-image.(image-file.args).... |
| 1ae120 | 20 28 6c 6f 6f 70 20 77 69 74 68 20 66 64 2d 61 72 67 20 3d 0a 20 20 20 20 20 20 20 20 20 20 28 | .(loop.with.fd-arg.=...........( |
| 1ae140 | 6c 6f 6f 70 20 66 6f 72 20 61 72 67 20 69 6e 20 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 | loop.for.arg.in.args............ |
| 1ae160 | 20 20 20 20 20 61 6e 64 20 6b 65 79 20 3d 20 22 22 20 74 68 65 6e 20 61 72 67 0a 20 20 20 20 20 | .....and.key.=."".then.arg...... |
| 1ae180 | 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 6b 65 | ...........when.(string-equal.ke |
| 1ae1a0 | 79 20 22 2d 2d 73 77 61 6e 6b 2d 66 64 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | y."--swank-fd")................. |
| 1ae1c0 | 72 65 74 75 72 6e 20 28 70 61 72 73 65 2d 69 6e 74 65 67 65 72 20 61 72 67 29 29 0a 20 20 20 20 | return.(parse-integer.arg))..... |
| 1ae1e0 | 20 20 20 20 20 20 66 6f 72 20 6d 79 2d 66 64 20 66 72 6f 6d 20 33 20 74 6f 20 31 30 32 34 0a 20 | ......for.my-fd.from.3.to.1024.. |
| 1ae200 | 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 2f 3d 20 6d 79 2d 66 64 20 66 64 2d 61 72 67 29 0a | .........when.(/=.my-fd.fd-arg). |
| 1ae220 | 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 62 2d | ..........do.(ignore-errors.(sb- |
| 1ae240 | 70 6f 73 69 78 3a 66 63 6e 74 6c 20 6d 79 2d 66 64 20 73 62 2d 70 6f 73 69 78 3a 66 2d 73 65 74 | posix:fcntl.my-fd.sb-posix:f-set |
| 1ae260 | 66 64 20 31 29 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 73 65 6c 66 2d 73 74 72 69 6e 67 20 | fd.1))).....(let*.((self-string. |
| 1ae280 | 28 70 61 74 68 6e 61 6d 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 20 28 72 75 6e 74 69 6d 65 2d 70 | (pathname-to-filename.(runtime-p |
| 1ae2a0 | 61 74 68 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 28 65 78 65 63 76 0a 20 20 20 20 20 20 20 | athname)))).......(execv........ |
| 1ae2c0 | 73 65 6c 66 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 27 6c 69 73 74 20 | self-string........(apply.'list. |
| 1ae2e0 | 73 65 6c 66 2d 73 74 72 69 6e 67 20 22 2d 2d 63 6f 72 65 22 20 69 6d 61 67 65 2d 66 69 6c 65 20 | self-string."--core".image-file. |
| 1ae300 | 61 72 67 73 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 | args)))))..(defimplementation.ma |
| 1ae320 | 6b 65 2d 66 64 2d 73 74 72 65 61 6d 20 28 66 64 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 | ke-fd-stream.(fd.external-format |
| 1ae340 | 29 0a 20 20 28 73 62 2d 73 79 73 3a 6d 61 6b 65 2d 66 64 2d 73 74 72 65 61 6d 20 66 64 20 3a 69 | )...(sb-sys:make-fd-stream.fd.:i |
| 1ae360 | 6e 70 75 74 20 74 20 3a 6f 75 74 70 75 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nput.t.:output.t................ |
| 1ae380 | 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 27 63 68 61 72 61 63 74 | ..........:element-type.'charact |
| 1ae3a0 | 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 75 66 | er..........................:buf |
| 1ae3c0 | 66 65 72 69 6e 67 20 3a 66 75 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fering.:full.................... |
| 1ae3e0 | 20 20 20 20 20 20 3a 64 75 61 6c 2d 63 68 61 6e 6e 65 6c 2d 70 20 74 0a 20 20 20 20 20 20 20 20 | ......:dual-channel-p.t......... |
| 1ae400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 | .................:external-forma |
| 1ae420 | 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 0a 0a 23 2d 77 69 6e 33 32 0a 28 64 65 | t.external-format))..#-win32.(de |
| 1ae440 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 62 61 63 6b 67 72 6f 75 6e 64 2d 73 61 76 65 2d | fimplementation.background-save- |
| 1ae460 | 69 6d 61 67 65 20 28 66 69 6c 65 6e 61 6d 65 20 26 6b 65 79 20 72 65 73 74 61 72 74 2d 66 75 6e | image.(filename.&key.restart-fun |
| 1ae480 | 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ction........................... |
| 1ae4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 6c 65 74 | .........................complet |
| 1ae4c0 | 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 66 6c 65 74 20 28 28 72 65 73 74 61 72 74 2d | ion-function)...(flet.((restart- |
| 1ae4e0 | 73 62 63 6c 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 65 62 75 67 3a 3a 65 6e | sbcl.()............(sb-debug::en |
| 1ae500 | 61 62 6c 65 2d 64 65 62 75 67 67 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 | able-debugger)............(setf. |
| 1ae520 | 73 62 2d 69 6d 70 6c 3a 3a 2a 64 65 73 63 72 69 70 74 6f 72 2d 68 61 6e 64 6c 65 72 73 2a 20 6e | sb-impl::*descriptor-handlers*.n |
| 1ae540 | 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 72 65 73 74 61 72 74 2d | il)............(funcall.restart- |
| 1ae560 | 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d | function))).....(multiple-value- |
| 1ae580 | 62 69 6e 64 20 28 70 69 70 65 2d 69 6e 20 70 69 70 65 2d 6f 75 74 29 20 28 73 62 2d 70 6f 73 69 | bind.(pipe-in.pipe-out).(sb-posi |
| 1ae5a0 | 78 3a 70 69 70 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 69 64 20 28 73 62 2d 70 6f 73 | x:pipe).......(let.((pid.(sb-pos |
| 1ae5c0 | 69 78 3a 66 6f 72 6b 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 70 69 64 | ix:fork))).........(cond.((=.pid |
| 1ae5e0 | 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 70 6f 73 69 78 3a 63 6c 6f | .0)................(sb-posix:clo |
| 1ae600 | 73 65 20 70 69 70 65 2d 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 64 | se.pipe-in)................(sb-d |
| 1ae620 | 65 62 75 67 3a 3a 64 69 73 61 62 6c 65 2d 64 65 62 75 67 67 65 72 29 0a 20 20 20 20 20 20 20 20 | ebug::disable-debugger)......... |
| 1ae640 | 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 62 2d 65 78 74 3a 73 61 76 65 2d 6c 69 73 70 | .......(apply.#'sb-ext:save-lisp |
| 1ae660 | 2d 61 6e 64 2d 64 69 65 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -and-die.filename............... |
| 1ae680 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 73 74 61 72 74 2d 66 75 6e 63 74 69 6f 6e 0a 20 | ........(when.restart-function.. |
| 1ae6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 74 6f | .......................(list.:to |
| 1ae6c0 | 70 6c 65 76 65 6c 20 23 27 72 65 73 74 61 72 74 2d 73 62 63 6c 29 29 29 29 0a 20 20 20 20 20 20 | plevel.#'restart-sbcl))))....... |
| 1ae6e0 | 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 70 6f | ........(t................(sb-po |
| 1ae700 | 73 69 78 3a 63 6c 6f 73 65 20 70 69 70 65 2d 6f 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | six:close.pipe-out)............. |
| 1ae720 | 20 20 20 28 73 62 2d 73 79 73 3a 61 64 64 2d 66 64 2d 68 61 6e 64 6c 65 72 0a 20 20 20 20 20 20 | ...(sb-sys:add-fd-handler....... |
| 1ae740 | 20 20 20 20 20 20 20 20 20 20 70 69 70 65 2d 69 6e 20 3a 69 6e 70 75 74 0a 20 20 20 20 20 20 20 | ..........pipe-in.:input........ |
| 1ae760 | 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 66 64 29 0a 20 20 20 20 20 20 20 20 20 20 | .........(lambda.(fd)........... |
| 1ae780 | 20 20 20 20 20 20 20 20 28 73 62 2d 73 79 73 3a 69 6e 76 61 6c 69 64 61 74 65 2d 64 65 73 63 72 | ........(sb-sys:invalidate-descr |
| 1ae7a0 | 69 70 74 6f 72 20 66 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d | iptor.fd)...................(sb- |
| 1ae7c0 | 70 6f 73 69 78 3a 63 6c 6f 73 65 20 66 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | posix:close.fd)................. |
| 1ae7e0 | 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 72 70 69 64 20 73 74 61 | ..(multiple-value-bind.(rpid.sta |
| 1ae800 | 74 75 73 29 20 28 73 62 2d 70 6f 73 69 78 3a 77 61 69 74 70 69 64 20 70 69 64 20 30 29 0a 20 20 | tus).(sb-posix:waitpid.pid.0)... |
| 1ae820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 3d 20 70 69 64 | ..................(assert.(=.pid |
| 1ae840 | 20 72 70 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 | .rpid)).....................(ass |
| 1ae860 | 65 72 74 20 28 73 62 2d 70 6f 73 69 78 3a 77 69 66 65 78 69 74 65 64 20 73 74 61 74 75 73 29 29 | ert.(sb-posix:wifexited.status)) |
| 1ae880 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f | .....................(funcall.co |
| 1ae8a0 | 6d 70 6c 65 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mpletion-function............... |
| 1ae8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 7a 65 72 6f 70 20 28 73 62 2d 70 6f 73 69 78 3a | ...............(zerop.(sb-posix: |
| 1ae8e0 | 77 65 78 69 74 73 74 61 74 75 73 20 73 74 61 74 75 73 29 29 29 29 29 29 29 29 29 29 29 29 0a 0a | wexitstatus.status)))))))))))).. |
| 1ae900 | 28 70 75 73 68 6e 65 77 20 27 64 65 69 6e 69 74 2d 6c 6f 67 2d 6f 75 74 70 75 74 20 73 62 2d 65 | (pushnew.'deinit-log-output.sb-e |
| 1ae920 | 78 74 3a 2a 73 61 76 65 2d 68 6f 6f 6b 73 2a 29 0a 0a 0c 0a 3b 3b 3b 3b 20 77 72 61 70 20 69 6e | xt:*save-hooks*)....;;;;.wrap.in |
| 1ae940 | 74 65 72 66 61 63 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 73 | terface.implementation..(defun.s |
| 1ae960 | 62 63 6c 2d 76 65 72 73 69 6f 6e 3e 3d 20 28 26 72 65 73 74 20 73 75 62 76 65 72 73 69 6f 6e 73 | bcl-version>=.(&rest.subversions |
| 1ae980 | 29 0a 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 | )...#+#.(swank/backend:with-symb |
| 1ae9a0 | 6f 6c 20 27 61 73 73 65 72 74 2d 76 65 72 73 69 6f 6e 2d 3e 3d 20 27 73 62 2d 65 78 74 29 0a 20 | ol.'assert-version->=.'sb-ext).. |
| 1ae9c0 | 20 28 76 61 6c 75 65 73 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 61 70 70 6c 79 20 23 | .(values.(ignore-errors.(apply.# |
| 1ae9e0 | 27 73 62 2d 65 78 74 3a 61 73 73 65 72 74 2d 76 65 72 73 69 6f 6e 2d 3e 3d 20 73 75 62 76 65 72 | 'sb-ext:assert-version->=.subver |
| 1aea00 | 73 69 6f 6e 73 29 20 74 29 29 0a 20 20 23 2d 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a | sions).t))...#-#.(swank/backend: |
| 1aea20 | 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 61 73 73 65 72 74 2d 76 65 72 73 69 6f 6e 2d 3e 3d 20 27 | with-symbol.'assert-version->=.' |
| 1aea40 | 73 62 2d 65 78 74 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | sb-ext)...nil)..(defimplementati |
| 1aea60 | 6f 6e 20 77 72 61 70 20 28 73 70 65 63 20 69 6e 64 69 63 61 74 6f 72 20 26 6b 65 79 20 62 65 66 | on.wrap.(spec.indicator.&key.bef |
| 1aea80 | 6f 72 65 20 61 66 74 65 72 20 72 65 70 6c 61 63 65 29 0a 20 20 28 77 68 65 6e 20 28 77 72 61 70 | ore.after.replace)...(when.(wrap |
| 1aeaa0 | 70 65 64 2d 70 20 73 70 65 63 20 69 6e 64 69 63 61 74 6f 72 29 0a 20 20 20 20 28 77 61 72 6e 20 | ped-p.spec.indicator).....(warn. |
| 1aeac0 | 22 7e 61 20 61 6c 72 65 61 64 79 20 77 72 61 70 70 65 64 20 77 69 74 68 20 69 6e 64 69 63 61 74 | "~a.already.wrapped.with.indicat |
| 1aeae0 | 6f 72 20 7e 61 2c 20 75 6e 77 72 61 70 70 69 6e 67 20 66 69 72 73 74 22 0a 20 20 20 20 20 20 20 | or.~a,.unwrapping.first"........ |
| 1aeb00 | 20 20 20 73 70 65 63 20 69 6e 64 69 63 61 74 6f 72 29 0a 20 20 20 20 28 73 62 2d 69 6e 74 3a 75 | ...spec.indicator).....(sb-int:u |
| 1aeb20 | 6e 65 6e 63 61 70 73 75 6c 61 74 65 20 73 70 65 63 20 69 6e 64 69 63 61 74 6f 72 29 29 0a 20 20 | nencapsulate.spec.indicator))... |
| 1aeb40 | 28 73 62 2d 69 6e 74 3a 65 6e 63 61 70 73 75 6c 61 74 65 20 73 70 65 63 20 69 6e 64 69 63 61 74 | (sb-int:encapsulate.spec.indicat |
| 1aeb60 | 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2d 23 2e 28 73 77 | or.......................#-#.(sw |
| 1aeb80 | 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 61 72 67 2d 6c 69 73 | ank/backend:with-symbol.'arg-lis |
| 1aeba0 | 74 20 27 73 62 2d 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.'sb-int)...................... |
| 1aebc0 | 20 28 6c 61 6d 62 64 61 20 28 66 75 6e 63 74 69 6f 6e 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 | .(lambda.(function.&rest.args).. |
| 1aebe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 63 6c 2d 77 72 61 | .......................(sbcl-wra |
| 1aec00 | 70 20 73 70 65 63 20 62 65 66 6f 72 65 20 61 66 74 65 72 20 72 65 70 6c 61 63 65 20 66 75 6e 63 | p.spec.before.after.replace.func |
| 1aec20 | 74 69 6f 6e 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion.args))..................... |
| 1aec40 | 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c | ..#+#.(swank/backend:with-symbol |
| 1aec60 | 20 27 61 72 67 2d 6c 69 73 74 20 27 73 62 2d 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .'arg-list.'sb-int)............. |
| 1aec80 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 62 63 6c 2d 76 65 72 73 69 6f 6e 3e 3d 20 31 20 | ..........(if.(sbcl-version>=.1. |
| 1aeca0 | 31 20 31 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1.16)........................... |
| 1aecc0 | 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (lambda.()...................... |
| 1aece0 | 20 20 20 20 20 20 20 28 73 62 63 6c 2d 77 72 61 70 20 73 70 65 63 20 62 65 66 6f 72 65 20 61 66 | .......(sbcl-wrap.spec.before.af |
| 1aed00 | 74 65 72 20 72 65 70 6c 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ter.replace..................... |
| 1aed20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 | ...................(symbol-value |
| 1aed40 | 20 27 73 62 2d 69 6e 74 3a 62 61 73 69 63 2d 64 65 66 69 6e 69 74 69 6f 6e 29 0a 20 20 20 20 20 | .'sb-int:basic-definition)...... |
| 1aed60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1aed80 | 20 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 27 73 62 2d 69 6e 74 3a 61 72 67 2d 6c 69 73 74 | ..(symbol-value.'sb-int:arg-list |
| 1aeda0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 | )))...........................`( |
| 1aedc0 | 73 62 63 6c 2d 77 72 61 70 20 27 2c 73 70 65 63 20 2c 62 65 66 6f 72 65 20 2c 61 66 74 65 72 20 | sbcl-wrap.',spec.,before.,after. |
| 1aede0 | 2c 72 65 70 6c 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ,replace........................ |
| 1aee00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 27 73 62 | ...............(symbol-value.'sb |
| 1aee20 | 2d 69 6e 74 3a 62 61 73 69 63 2d 64 65 66 69 6e 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | -int:basic-definition).......... |
| 1aee40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 | .............................(sy |
| 1aee60 | 6d 62 6f 6c 2d 76 61 6c 75 65 20 27 73 62 2d 69 6e 74 3a 61 72 67 2d 6c 69 73 74 29 29 29 29 29 | mbol-value.'sb-int:arg-list))))) |
| 1aee80 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 77 72 61 70 20 28 73 70 65 | ..(defimplementation.unwrap.(spe |
| 1aeea0 | 63 20 69 6e 64 69 63 61 74 6f 72 29 0a 20 20 28 73 62 2d 69 6e 74 3a 75 6e 65 6e 63 61 70 73 75 | c.indicator)...(sb-int:unencapsu |
| 1aeec0 | 6c 61 74 65 20 73 70 65 63 20 69 6e 64 69 63 61 74 6f 72 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | late.spec.indicator))..(defimple |
| 1aeee0 | 6d 65 6e 74 61 74 69 6f 6e 20 77 72 61 70 70 65 64 2d 70 20 28 73 70 65 63 20 69 6e 64 69 63 61 | mentation.wrapped-p.(spec.indica |
| 1aef00 | 74 6f 72 29 0a 20 20 28 73 62 2d 69 6e 74 3a 65 6e 63 61 70 73 75 6c 61 74 65 64 2d 70 20 73 70 | tor)...(sb-int:encapsulated-p.sp |
| 1aef20 | 65 63 20 69 6e 64 69 63 61 74 6f 72 29 29 0a 0a 28 64 65 66 75 6e 20 73 62 63 6c 2d 77 72 61 70 | ec.indicator))..(defun.sbcl-wrap |
| 1aef40 | 20 28 73 70 65 63 20 62 65 66 6f 72 65 20 61 66 74 65 72 20 72 65 70 6c 61 63 65 20 66 75 6e 63 | .(spec.before.after.replace.func |
| 1aef60 | 74 69 6f 6e 20 61 72 67 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 73 70 | tion.args)...(declare.(ignore.sp |
| 1aef80 | 65 63 29 29 0a 20 20 28 6c 65 74 20 28 72 65 74 6c 69 73 74 20 63 6f 6d 70 6c 65 74 65 64 29 0a | ec))...(let.(retlist.completed). |
| 1aefa0 | 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 28 70 72 | ....(unwind-protect..........(pr |
| 1aefc0 | 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 62 65 66 6f 72 65 0a 20 20 20 20 | ogn............(when.before..... |
| 1aefe0 | 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 62 65 66 6f 72 65 20 61 72 67 73 29 29 0a | .........(funcall.before.args)). |
| 1af000 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 74 6c 69 73 74 20 28 6d 75 6c 74 69 70 | ...........(setq.retlist.(multip |
| 1af020 | 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 69 66 20 72 65 70 6c 61 63 65 0a 20 20 20 20 20 20 | le-value-list.(if.replace....... |
| 1af040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1af060 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 72 65 70 6c 61 63 65 0a 20 20 20 | ............(funcall.replace.... |
| 1af080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1af0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 0a 20 20 | ........................args)... |
| 1af0c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1af0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 66 75 6e 63 74 69 6f 6e 20 | ................(apply.function. |
| 1af100 | 61 72 67 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6d 70 6c 65 | args))))............(setq.comple |
| 1af120 | 74 65 64 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 2d 6c 69 73 74 20 72 | ted.t)............(values-list.r |
| 1af140 | 65 74 6c 69 73 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 61 66 74 65 72 0a 20 20 20 20 20 | etlist)).......(when.after...... |
| 1af160 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 61 66 74 65 72 20 28 69 66 20 63 6f 6d 70 6c 65 74 65 64 20 | ...(funcall.after.(if.completed. |
| 1af180 | 72 65 74 6c 69 73 74 20 3a 65 78 69 74 65 64 2d 6e 6f 6e 2d 6c 6f 63 61 6c 6c 79 29 29 29 29 29 | retlist.:exited-non-locally))))) |
| 1af1a0 | 29 0a 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f | )..#+#.(swank/backend:with-symbo |
| 1af1c0 | 6c 20 27 63 6f 6d 6d 61 2d 65 78 70 72 20 27 73 62 2d 69 6d 70 6c 29 0a 28 70 72 6f 67 6e 0a 20 | l.'comma-expr.'sb-impl).(progn.. |
| 1af1e0 | 20 28 64 65 66 6d 65 74 68 6f 64 20 73 65 78 70 2d 69 6e 2d 62 6f 75 6e 64 73 2d 70 20 28 28 73 | .(defmethod.sexp-in-bounds-p.((s |
| 1af200 | 20 73 62 2d 69 6d 70 6c 3a 3a 63 6f 6d 6d 61 29 20 69 29 0a 20 20 20 20 28 73 65 78 70 2d 69 6e | .sb-impl::comma).i).....(sexp-in |
| 1af220 | 2d 62 6f 75 6e 64 73 2d 70 20 28 73 62 2d 69 6d 70 6c 3a 3a 63 6f 6d 6d 61 2d 65 78 70 72 20 73 | -bounds-p.(sb-impl::comma-expr.s |
| 1af240 | 29 20 69 29 29 0a 0a 20 20 28 64 65 66 6d 65 74 68 6f 64 20 73 65 78 70 2d 72 65 66 20 28 28 73 | ).i))....(defmethod.sexp-ref.((s |
| 1af260 | 20 73 62 2d 69 6d 70 6c 3a 3a 63 6f 6d 6d 61 29 20 69 29 0a 20 20 20 20 28 73 65 78 70 2d 72 65 | .sb-impl::comma).i).....(sexp-re |
| 1af280 | 66 20 28 73 62 2d 69 6d 70 6c 3a 3a 63 6f 6d 6d 61 2d 65 78 70 72 20 73 29 20 69 29 29 29 0a 0a | f.(sb-impl::comma-expr.s).i))).. |
| 1af2a0 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 75 67 6d 65 6e 74 2d 66 65 61 74 75 | (defimplementation.augment-featu |
| 1af2c0 | 72 65 73 20 28 29 0a 20 20 28 61 70 70 65 6e 64 20 2a 66 65 61 74 75 72 65 73 2a 20 23 2b 73 62 | res.()...(append.*features*.#+sb |
| 1af2e0 | 2d 64 65 76 65 6c 20 73 62 2d 69 6d 70 6c 3a 2b 69 6e 74 65 72 6e 61 6c 2d 66 65 61 74 75 72 65 | -devel.sb-impl:+internal-feature |
| 1af300 | 73 2b 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | s+))............................ |
| 1af320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 63 63 6c 2e 6c 69 73 70 00 00 00 00 00 00 00 | slime-2.31/swank/ccl.lisp....... |
| 1af420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 1af480 | 30 30 37 35 37 33 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 30 30 31 00 20 30 00 00 00 | 0075731.00000000000.014001..0... |
| 1af4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 1af520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 1af540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1af600 | 3b 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 20 2d | ;;;;.-*-.indent-tabs-mode:.nil.- |
| 1af620 | 2a 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 63 63 6c 2e 6c 69 73 70 20 2d 2d 2d 20 53 4c | *-.;;;.;;;.swank-ccl.lisp.---.SL |
| 1af640 | 49 4d 45 20 62 61 63 6b 65 6e 64 20 66 6f 72 20 43 6c 6f 7a 75 72 65 20 43 4c 2e 0a 3b 3b 3b 0a | IME.backend.for.Clozure.CL..;;;. |
| 1af660 | 3b 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 33 2c 20 4a 61 6d 65 73 20 42 69 | ;;;.Copyright.(C).2003,.James.Bi |
| 1af680 | 65 6c 6d 61 6e 20 20 3c 6a 61 6d 65 73 6a 62 40 6a 61 6d 65 73 6a 62 2e 63 6f 6d 3e 0a 3b 3b 3b | elman..<jamesjb@jamesjb.com>.;;; |
| 1af6a0 | 0a 3b 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 6c 69 63 65 6e 73 65 64 20 75 6e | .;;;.This.program.is.licensed.un |
| 1af6c0 | 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 4c 69 73 70 20 4c 65 73 73 65 72 | der.the.terms.of.the.Lisp.Lesser |
| 1af6e0 | 20 47 4e 55 0a 3b 3b 3b 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 2c 20 6b 6e 6f 77 6e 20 61 | .GNU.;;;.Public.License,.known.a |
| 1af700 | 73 20 74 68 65 20 4c 4c 47 50 4c 2c 20 61 6e 64 20 64 69 73 74 72 69 62 75 74 65 64 20 77 69 74 | s.the.LLGPL,.and.distributed.wit |
| 1af720 | 68 20 43 6c 6f 7a 75 72 65 20 43 4c 0a 3b 3b 3b 20 61 73 20 74 68 65 20 66 69 6c 65 20 22 4c 49 | h.Clozure.CL.;;;.as.the.file."LI |
| 1af740 | 43 45 4e 53 45 22 2e 20 20 54 68 65 20 4c 4c 47 50 4c 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 61 | CENSE"...The.LLGPL.consists.of.a |
| 1af760 | 20 70 72 65 61 6d 62 6c 65 20 61 6e 64 20 74 68 65 0a 3b 3b 3b 20 4c 47 50 4c 2c 20 77 68 69 63 | .preamble.and.the.;;;.LGPL,.whic |
| 1af780 | 68 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 77 69 74 68 20 43 6c 6f 7a 75 72 65 20 43 4c | h.is.distributed.with.Clozure.CL |
| 1af7a0 | 20 61 73 20 74 68 65 20 66 69 6c 65 20 22 4c 47 50 4c 22 2e 20 20 57 68 65 72 65 0a 3b 3b 3b 20 | .as.the.file."LGPL"...Where.;;;. |
| 1af7c0 | 74 68 65 73 65 20 63 6f 6e 66 6c 69 63 74 2c 20 74 68 65 20 70 72 65 61 6d 62 6c 65 20 74 61 6b | these.conflict,.the.preamble.tak |
| 1af7e0 | 65 73 20 70 72 65 63 65 64 65 6e 63 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 4c 4c 47 50 4c | es.precedence..;;;.;;;.The.LLGPL |
| 1af800 | 20 69 73 20 61 6c 73 6f 20 61 76 61 69 6c 61 62 6c 65 20 6f 6e 6c 69 6e 65 20 61 74 0a 3b 3b 3b | .is.also.available.online.at.;;; |
| 1af820 | 20 68 74 74 70 3a 2f 2f 6f 70 65 6e 73 6f 75 72 63 65 2e 66 72 61 6e 7a 2e 63 6f 6d 2f 70 72 65 | .http://opensource.franz.com/pre |
| 1af840 | 61 6d 62 6c 65 2e 68 74 6d 6c 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 63 63 | amble.html..(defpackage.swank/cc |
| 1af860 | 6c 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 29 0a 0a 28 69 | l...(:use.cl.swank/backend))..(i |
| 1af880 | 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 63 63 6c 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e | n-package.swank/ccl)..(eval-when |
| 1af8a0 | 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 20 3a 6c 6f | .(:compile-toplevel.:execute.:lo |
| 1af8c0 | 61 64 2d 74 6f 70 6c 65 76 65 6c 29 0a 20 20 28 61 73 73 65 72 74 20 28 61 6e 64 20 28 3d 20 63 | ad-toplevel)...(assert.(and.(=.c |
| 1af8e0 | 63 6c 3a 3a 2a 6f 70 65 6e 6d 63 6c 2d 6d 61 6a 6f 72 2d 76 65 72 73 69 6f 6e 2a 20 31 29 0a 20 | cl::*openmcl-major-version*.1).. |
| 1af900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 3d 20 63 63 6c 3a 3a 2a 6f 70 65 6e 6d 63 6c 2d | ..............(>=.ccl::*openmcl- |
| 1af920 | 6d 69 6e 6f 72 2d 76 65 72 73 69 6f 6e 2a 20 34 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 29 20 | minor-version*.4))...........(). |
| 1af940 | 22 54 68 69 73 20 66 69 6c 65 20 6e 65 65 64 73 20 43 43 4c 20 76 65 72 73 69 6f 6e 20 31 2e 34 | "This.file.needs.CCL.version.1.4 |
| 1af960 | 20 6f 72 20 6e 65 77 65 72 22 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | .or.newer"))..(defimplementation |
| 1af980 | 20 67 72 61 79 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 29 0a 20 20 22 43 43 4c 22 29 0a 0a | .gray-package-name.()..."CCL").. |
| 1af9a0 | 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c | (eval-when.(:compile-toplevel.:l |
| 1af9c0 | 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 6d 75 6c 74 69 70 | oad-toplevel.:execute)...(multip |
| 1af9e0 | 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6f 6b 20 65 72 72 29 20 28 69 67 6e 6f 72 65 2d 65 | le-value-bind.(ok.err).(ignore-e |
| 1afa00 | 72 72 6f 72 73 20 28 72 65 71 75 69 72 65 20 27 78 72 65 66 29 29 0a 20 20 20 20 28 75 6e 6c 65 | rrors.(require.'xref)).....(unle |
| 1afa20 | 73 73 20 6f 6b 0a 20 20 20 20 20 20 28 77 61 72 6e 20 22 7e 61 7e 25 22 20 65 72 72 29 29 29 29 | ss.ok.......(warn."~a~%".err)))) |
| 1afa40 | 0a 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 6d 6f 70 0a 0a 28 69 6d 70 6f 72 74 2d 74 6f 2d 73 77 61 6e | ..;;;.swank-mop..(import-to-swan |
| 1afa60 | 6b 2d 6d 6f 70 0a 20 27 28 20 3b 3b 20 63 6c 61 73 73 65 73 0a 20 20 20 63 6c 3a 73 74 61 6e 64 | k-mop..'(.;;.classes....cl:stand |
| 1afa80 | 61 72 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 63 63 6c 3a 73 74 61 6e | ard-generic-function....ccl:stan |
| 1afaa0 | 64 61 72 64 2d 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 0a 20 20 20 63 6c 3a 6d 65 74 68 6f | dard-slot-definition....cl:metho |
| 1afac0 | 64 0a 20 20 20 63 6c 3a 73 74 61 6e 64 61 72 64 2d 63 6c 61 73 73 0a 20 20 20 63 63 6c 3a 65 71 | d....cl:standard-class....ccl:eq |
| 1afae0 | 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 66 69 6e | l-specializer....openmcl-mop:fin |
| 1afb00 | 61 6c 69 7a 65 2d 69 6e 68 65 72 69 74 61 6e 63 65 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 | alize-inheritance....openmcl-mop |
| 1afb20 | 3a 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 75 73 69 6e | :compute-applicable-methods-usin |
| 1afb40 | 67 2d 63 6c 61 73 73 65 73 0a 20 20 20 3b 3b 20 73 74 61 6e 64 61 72 64 2d 63 6c 61 73 73 20 72 | g-classes....;;.standard-class.r |
| 1afb60 | 65 61 64 65 72 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 65 66 61 | eaders....openmcl-mop:class-defa |
| 1afb80 | 75 6c 74 2d 69 6e 69 74 61 72 67 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 63 6c 61 73 | ult-initargs....openmcl-mop:clas |
| 1afba0 | 73 2d 64 69 72 65 63 74 2d 64 65 66 61 75 6c 74 2d 69 6e 69 74 61 72 67 73 0a 20 20 20 6f 70 65 | s-direct-default-initargs....ope |
| 1afbc0 | 6e 6d 63 6c 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 6c 6f 74 73 0a 20 20 20 6f | nmcl-mop:class-direct-slots....o |
| 1afbe0 | 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 75 62 63 6c 61 73 73 | penmcl-mop:class-direct-subclass |
| 1afc00 | 65 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 | es....openmcl-mop:class-direct-s |
| 1afc20 | 75 70 65 72 63 6c 61 73 73 65 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 63 6c 61 73 73 | uperclasses....openmcl-mop:class |
| 1afc40 | 2d 66 69 6e 61 6c 69 7a 65 64 2d 70 0a 20 20 20 63 6c 3a 63 6c 61 73 73 2d 6e 61 6d 65 0a 20 20 | -finalized-p....cl:class-name... |
| 1afc60 | 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 63 6c 61 73 73 2d 70 72 65 63 65 64 65 6e 63 65 2d 6c 69 | .openmcl-mop:class-precedence-li |
| 1afc80 | 73 74 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 63 6c 61 73 73 2d 70 72 6f 74 6f 74 79 70 | st....openmcl-mop:class-prototyp |
| 1afca0 | 65 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 63 6c 61 73 73 2d 73 6c 6f 74 73 0a 20 20 20 | e....openmcl-mop:class-slots.... |
| 1afcc0 | 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 73 70 65 63 69 61 6c 69 7a 65 72 2d 64 69 72 65 63 74 2d 6d | openmcl-mop:specializer-direct-m |
| 1afce0 | 65 74 68 6f 64 73 0a 20 20 20 3b 3b 20 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 20 61 63 63 | ethods....;;.eql-specializer.acc |
| 1afd00 | 65 73 73 6f 72 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 65 71 6c 2d 73 70 65 63 69 61 | essors....openmcl-mop:eql-specia |
| 1afd20 | 6c 69 7a 65 72 2d 6f 62 6a 65 63 74 0a 20 20 20 3b 3b 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 | lizer-object....;;.generic.funct |
| 1afd40 | 69 6f 6e 20 72 65 61 64 65 72 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 67 65 6e 65 72 | ion.readers....openmcl-mop:gener |
| 1afd60 | 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 2d 70 72 65 63 65 64 65 6e 63 65 2d | ic-function-argument-precedence- |
| 1afd80 | 6f 72 64 65 72 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e | order....openmcl-mop:generic-fun |
| 1afda0 | 63 74 69 6f 6e 2d 64 65 63 6c 61 72 61 74 69 6f 6e 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f | ction-declarations....openmcl-mo |
| 1afdc0 | 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 20 | p:generic-function-lambda-list.. |
| 1afde0 | 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d | ..openmcl-mop:generic-function-m |
| 1afe00 | 65 74 68 6f 64 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 | ethods....openmcl-mop:generic-fu |
| 1afe20 | 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 2d 63 6c 61 73 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d | nction-method-class....openmcl-m |
| 1afe40 | 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 | op:generic-function-method-combi |
| 1afe60 | 6e 61 74 69 6f 6e 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 | nation....openmcl-mop:generic-fu |
| 1afe80 | 6e 63 74 69 6f 6e 2d 6e 61 6d 65 0a 20 20 20 3b 3b 20 6d 65 74 68 6f 64 20 72 65 61 64 65 72 73 | nction-name....;;.method.readers |
| 1afea0 | 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 6d 65 74 68 6f 64 2d 67 65 6e 65 72 69 63 2d 66 | ....openmcl-mop:method-generic-f |
| 1afec0 | 75 6e 63 74 69 6f 6e 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 6d 65 74 68 6f 64 2d 66 75 | unction....openmcl-mop:method-fu |
| 1afee0 | 6e 63 74 69 6f 6e 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 6d 65 74 68 6f 64 2d 6c 61 6d | nction....openmcl-mop:method-lam |
| 1aff00 | 62 64 61 2d 6c 69 73 74 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 6d 65 74 68 6f 64 2d 73 | bda-list....openmcl-mop:method-s |
| 1aff20 | 70 65 63 69 61 6c 69 7a 65 72 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 6d 65 74 68 6f | pecializers....openmcl-mop:metho |
| 1aff40 | 64 2d 71 75 61 6c 69 66 69 65 72 73 0a 20 20 20 3b 3b 20 73 6c 6f 74 20 72 65 61 64 65 72 73 0a | d-qualifiers....;;.slot.readers. |
| 1aff60 | 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 61 | ...openmcl-mop:slot-definition-a |
| 1aff80 | 6c 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 | llocation....openmcl-mop:slot-de |
| 1affa0 | 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 20 20 20 6f 70 65 6e 6d 63 | finition-documentation....openmc |
| 1affc0 | 6c 2d 6d 6f 70 3a 73 6c 6f 74 2d 76 61 6c 75 65 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 | l-mop:slot-value-using-class.... |
| 1affe0 | 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 74 | openmcl-mop:slot-definition-init |
| 1b0000 | 61 72 67 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 | args....openmcl-mop:slot-definit |
| 1b0020 | 69 6f 6e 2d 69 6e 69 74 66 6f 72 6d 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 73 6c 6f 74 | ion-initform....openmcl-mop:slot |
| 1b0040 | 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 74 66 75 6e 63 74 69 6f 6e 0a 20 20 20 6f 70 65 6e | -definition-initfunction....open |
| 1b0060 | 6d 63 6c 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 0a 20 20 20 | mcl-mop:slot-definition-name.... |
| 1b0080 | 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 74 79 70 65 | openmcl-mop:slot-definition-type |
| 1b00a0 | 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d | ....openmcl-mop:slot-definition- |
| 1b00c0 | 72 65 61 64 65 72 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 | readers....openmcl-mop:slot-defi |
| 1b00e0 | 6e 69 74 69 6f 6e 2d 77 72 69 74 65 72 73 0a 20 20 20 6f 70 65 6e 6d 63 6c 2d 6d 6f 70 3a 73 6c | nition-writers....openmcl-mop:sl |
| 1b0100 | 6f 74 2d 62 6f 75 6e 64 70 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 6f 70 65 6e 6d 63 6c | ot-boundp-using-class....openmcl |
| 1b0120 | 2d 6d 6f 70 3a 73 6c 6f 74 2d 6d 61 6b 75 6e 62 6f 75 6e 64 2d 75 73 69 6e 67 2d 63 6c 61 73 73 | -mop:slot-makunbound-using-class |
| 1b0140 | 29 29 0a 0a 3b 3b 3b 20 55 54 46 38 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ))..;;;.UTF8..(defimplementation |
| 1b0160 | 20 73 74 72 69 6e 67 2d 74 6f 2d 75 74 66 38 20 28 73 74 72 69 6e 67 29 0a 20 20 28 63 63 6c 3a | .string-to-utf8.(string)...(ccl: |
| 1b0180 | 65 6e 63 6f 64 65 2d 73 74 72 69 6e 67 2d 74 6f 2d 6f 63 74 65 74 73 20 73 74 72 69 6e 67 20 3a | encode-string-to-octets.string.: |
| 1b01a0 | 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 3a 75 74 66 2d 38 29 29 0a 0a 28 64 65 66 69 6d | external-format.:utf-8))..(defim |
| 1b01c0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 74 66 38 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 63 74 | plementation.utf8-to-string.(oct |
| 1b01e0 | 65 74 73 29 0a 20 20 28 63 63 6c 3a 64 65 63 6f 64 65 2d 73 74 72 69 6e 67 2d 66 72 6f 6d 2d 6f | ets)...(ccl:decode-string-from-o |
| 1b0200 | 63 74 65 74 73 20 6f 63 74 65 74 73 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 3a 75 | ctets.octets.:external-format.:u |
| 1b0220 | 74 66 2d 38 29 29 0a 0a 3b 3b 3b 20 54 43 50 20 53 65 72 76 65 72 0a 0a 28 64 65 66 69 6d 70 6c | tf-8))..;;;.TCP.Server..(defimpl |
| 1b0240 | 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 65 66 65 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 | ementation.preferred-communicati |
| 1b0260 | 6f 6e 2d 73 74 79 6c 65 20 28 29 0a 20 20 3a 73 70 61 77 6e 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | on-style.()...:spawn)..(defimple |
| 1b0280 | 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 28 68 6f 73 74 20 70 6f | mentation.create-socket.(host.po |
| 1b02a0 | 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 63 63 6c 3a 6d 61 6b 65 2d 73 6f 63 | rt.&key.backlog)...(ccl:make-soc |
| 1b02c0 | 6b 65 74 20 3a 63 6f 6e 6e 65 63 74 20 3a 70 61 73 73 69 76 65 20 3a 6c 6f 63 61 6c 2d 70 6f 72 | ket.:connect.:passive.:local-por |
| 1b02e0 | 74 20 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 6c | t.port....................:local |
| 1b0300 | 2d 68 6f 73 74 20 68 6f 73 74 20 3a 72 65 75 73 65 2d 61 64 64 72 65 73 73 20 74 0a 20 20 20 20 | -host.host.:reuse-address.t..... |
| 1b0320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 61 63 6b 6c 6f 67 20 28 6f 72 20 62 61 63 6b | ...............:backlog.(or.back |
| 1b0340 | 6c 6f 67 20 35 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 63 | log.5)))..(defimplementation.loc |
| 1b0360 | 61 6c 2d 70 6f 72 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 63 63 6c 3a 6c 6f 63 61 6c 2d 70 6f | al-port.(socket)...(ccl:local-po |
| 1b0380 | 72 74 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | rt.socket))..(defimplementation. |
| 1b03a0 | 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 63 6c 6f 73 65 20 73 | close-socket.(socket)...(close.s |
| 1b03c0 | 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 63 63 65 | ocket))..(defimplementation.acce |
| 1b03e0 | 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6f 63 6b 65 74 20 26 6b 65 79 20 65 78 74 65 72 | pt-connection.(socket.&key.exter |
| 1b0400 | 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nal-format...................... |
| 1b0420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 69 6e 67 20 74 69 6d 65 6f | .................buffering.timeo |
| 1b0440 | 75 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 62 75 66 66 65 72 69 6e 67 | ut)...(declare.(ignore.buffering |
| 1b0460 | 20 74 69 6d 65 6f 75 74 29 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 65 61 6d 2d 61 72 67 73 20 | .timeout))...(let.((stream-args. |
| 1b0480 | 28 61 6e 64 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 | (and.external-format............ |
| 1b04a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 | ...............`(:external-forma |
| 1b04c0 | 74 20 2c 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 29 29 0a 20 20 20 20 28 63 63 6c 3a | t.,external-format)))).....(ccl: |
| 1b04e0 | 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 6f 63 6b 65 74 20 3a 77 61 69 74 20 74 | accept-connection.socket.:wait.t |
| 1b0500 | 20 3a 73 74 72 65 61 6d 2d 61 72 67 73 20 73 74 72 65 61 6d 2d 61 72 67 73 29 29 29 0a 0a 28 64 | .:stream-args.stream-args)))..(d |
| 1b0520 | 65 66 76 61 72 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 | efvar.*external-format-to-coding |
| 1b0540 | 2d 73 79 73 74 65 6d 2a 0a 20 20 27 28 28 3a 69 73 6f 2d 38 38 35 39 2d 31 0a 20 20 20 20 20 22 | -system*...'((:iso-8859-1......" |
| 1b0560 | 6c 61 74 69 6e 2d 31 22 20 22 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 22 69 73 6f 2d 6c 61 74 | latin-1"."latin-1-unix"."iso-lat |
| 1b0580 | 69 6e 2d 31 2d 75 6e 69 78 22 0a 20 20 20 20 20 22 69 73 6f 2d 38 38 35 39 2d 31 22 20 22 69 73 | in-1-unix"......"iso-8859-1"."is |
| 1b05a0 | 6f 2d 38 38 35 39 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a 75 74 66 2d 38 20 22 75 74 66 | o-8859-1-unix").....(:utf-8."utf |
| 1b05c0 | 2d 38 22 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | -8"."utf-8-unix")))..(defimpleme |
| 1b05e0 | 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f | ntation.find-external-format.(co |
| 1b0600 | 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 28 63 61 72 20 28 72 61 73 73 6f 63 2d 69 66 20 28 | ding-system)...(car.(rassoc-if.( |
| 1b0620 | 6c 61 6d 62 64 61 20 28 78 29 20 28 6d 65 6d 62 65 72 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d | lambda.(x).(member.coding-system |
| 1b0640 | 20 78 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .x.:test.#'equal)).............. |
| 1b0660 | 20 20 20 20 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d | .....*external-format-to-coding- |
| 1b0680 | 73 79 73 74 65 6d 2a 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 | system*)))..(defimplementation.s |
| 1b06a0 | 6f 63 6b 65 74 2d 66 64 20 28 73 74 72 65 61 6d 29 0a 20 20 28 63 63 6c 3a 3a 69 6f 62 6c 6f 63 | ocket-fd.(stream)...(ccl::iobloc |
| 1b06c0 | 6b 2d 64 65 76 69 63 65 20 28 63 63 6c 3a 3a 73 74 72 65 61 6d 2d 69 6f 62 6c 6f 63 6b 20 73 74 | k-device.(ccl::stream-ioblock.st |
| 1b06e0 | 72 65 61 6d 20 74 29 29 29 0a 0a 3b 3b 3b 20 55 6e 69 78 20 73 69 67 6e 61 6c 73 0a 0a 28 64 65 | ream.t)))..;;;.Unix.signals..(de |
| 1b0700 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65 74 70 69 64 20 28 29 0a 20 20 28 63 63 6c | fimplementation.getpid.()...(ccl |
| 1b0720 | 3a 3a 67 65 74 70 69 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c | ::getpid))..(defimplementation.l |
| 1b0740 | 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 20 28 29 0a | isp-implementation-type-name.(). |
| 1b0760 | 20 20 22 63 63 6c 22 29 0a 0a 3b 3b 3b 20 41 72 67 6c 69 73 74 0a 0a 28 64 65 66 69 6d 70 6c 65 | .."ccl")..;;;.Arglist..(defimple |
| 1b0780 | 6d 65 6e 74 61 74 69 6f 6e 20 61 72 67 6c 69 73 74 20 28 66 6e 61 6d 65 29 0a 20 20 28 6d 75 6c | mentation.arglist.(fname)...(mul |
| 1b07a0 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 61 72 67 6c 69 73 74 20 62 69 6e 64 69 6e | tiple-value-bind.(arglist.bindin |
| 1b07c0 | 67 29 20 28 6c 65 74 20 28 28 2a 62 72 65 61 6b 2d 6f 6e 2d 73 69 67 6e 61 6c 73 2a 20 6e 69 6c | g).(let.((*break-on-signals*.nil |
| 1b07e0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )).............................. |
| 1b0800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 61 72 67 6c 69 73 74 20 66 6e 61 6d 65 | ..............(ccl:arglist.fname |
| 1b0820 | 29 29 0a 20 20 20 20 28 69 66 20 62 69 6e 64 69 6e 67 0a 20 20 20 20 20 20 61 72 67 6c 69 73 74 | )).....(if.binding.......arglist |
| 1b0840 | 0a 20 20 20 20 20 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 69 6d | .......:not-available)))..(defim |
| 1b0860 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 66 75 6e 63 | plementation.function-name.(func |
| 1b0880 | 74 69 6f 6e 29 0a 20 20 28 63 63 6c 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 63 74 | tion)...(ccl:function-name.funct |
| 1b08a0 | 69 6f 6e 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 2d 61 72 | ion))..(defmethod.declaration-ar |
| 1b08c0 | 67 6c 69 73 74 20 28 28 64 65 63 6c 2d 69 64 65 6e 74 69 66 69 65 72 20 28 65 71 6c 20 27 6f 70 | glist.((decl-identifier.(eql.'op |
| 1b08e0 | 74 69 6d 69 7a 65 29 29 29 0a 20 20 28 6c 65 74 20 28 28 66 6c 61 67 73 20 28 63 63 6c 3a 64 65 | timize)))...(let.((flags.(ccl:de |
| 1b0900 | 63 6c 61 72 61 74 69 6f 6e 2d 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 64 65 63 6c 2d 69 64 65 6e 74 | claration-information.decl-ident |
| 1b0920 | 69 66 69 65 72 29 29 29 0a 20 20 20 20 28 69 66 20 66 6c 61 67 73 0a 20 20 20 20 20 20 20 20 60 | ifier))).....(if.flags.........` |
| 1b0940 | 28 26 61 6e 79 20 2c 66 6c 61 67 73 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 | (&any.,flags).........(call-next |
| 1b0960 | 2d 6d 65 74 68 6f 64 29 29 29 29 0a 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 0a 0a 28 64 | -method))))..;;;.Compilation..(d |
| 1b0980 | 65 66 75 6e 20 68 61 6e 64 6c 65 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 20 28 63 6f | efun.handle-compiler-warning.(co |
| 1b09a0 | 6e 64 69 74 69 6f 6e 29 0a 20 20 22 52 65 73 69 67 6e 61 6c 20 61 20 63 63 6c 3a 63 6f 6d 70 69 | ndition)..."Resignal.a.ccl:compi |
| 1b09c0 | 6c 65 72 2d 77 61 72 6e 69 6e 67 20 61 73 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 63 6f 6d | ler-warning.as.swank/backend:com |
| 1b09e0 | 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 2e 22 0a 20 20 28 73 69 67 6e 61 6c 20 27 63 6f 6d 70 69 | piler-warning."...(signal.'compi |
| 1b0a00 | 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 | ler-condition...........:origina |
| 1b0a20 | 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 | l-condition.condition........... |
| 1b0a40 | 3a 6d 65 73 73 61 67 65 20 28 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 2d 73 68 6f 72 74 | :message.(compiler-warning-short |
| 1b0a60 | 2d 6d 65 73 73 61 67 65 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 3a 73 | -message.condition)...........:s |
| 1b0a80 | 6f 75 72 63 65 2d 63 6f 6e 74 65 78 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 3a 73 65 76 | ource-context.nil...........:sev |
| 1b0aa0 | 65 72 69 74 79 20 28 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 2d 73 65 76 65 72 69 74 79 | erity.(compiler-warning-severity |
| 1b0ac0 | 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 20 | .condition)...........:location. |
| 1b0ae0 | 28 73 6f 75 72 63 65 2d 6e 6f 74 65 2d 74 6f 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a | (source-note-to-source-location. |
| 1b0b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 63 6f 6d 70 69 6c | .....................(ccl:compil |
| 1b0b20 | 65 72 2d 77 61 72 6e 69 6e 67 2d 73 6f 75 72 63 65 2d 6e 6f 74 65 20 63 6f 6e 64 69 74 69 6f 6e | er-warning-source-note.condition |
| 1b0b40 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | )......................(lambda.( |
| 1b0b60 | 29 20 22 55 6e 6b 6e 6f 77 6e 20 73 6f 75 72 63 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | )."Unknown.source")............. |
| 1b0b80 | 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 2d 66 | .........(ccl:compiler-warning-f |
| 1b0ba0 | 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 | unction-name.condition))))..(def |
| 1b0bc0 | 67 65 6e 65 72 69 63 20 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 2d 73 65 76 65 72 69 74 | generic.compiler-warning-severit |
| 1b0be0 | 79 20 28 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 28 64 65 66 6d 65 74 68 6f 64 20 63 6f 6d 70 69 6c | y.(condition)).(defmethod.compil |
| 1b0c00 | 65 72 2d 77 61 72 6e 69 6e 67 2d 73 65 76 65 72 69 74 79 20 28 28 63 20 63 63 6c 3a 63 6f 6d 70 | er-warning-severity.((c.ccl:comp |
| 1b0c20 | 69 6c 65 72 2d 77 61 72 6e 69 6e 67 29 29 20 3a 77 61 72 6e 69 6e 67 29 0a 28 64 65 66 6d 65 74 | iler-warning)).:warning).(defmet |
| 1b0c40 | 68 6f 64 20 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 2d 73 65 76 65 72 69 74 79 20 28 28 | hod.compiler-warning-severity.(( |
| 1b0c60 | 63 20 63 63 6c 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 29 29 20 3a 73 74 79 6c 65 2d 77 61 72 | c.ccl:style-warning)).:style-war |
| 1b0c80 | 6e 69 6e 67 29 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e | ning)..(defgeneric.compiler-warn |
| 1b0ca0 | 69 6e 67 2d 73 68 6f 72 74 2d 6d 65 73 73 61 67 65 20 28 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 0a | ing-short-message.(condition)).. |
| 1b0cc0 | 3b 3b 20 50 72 65 74 74 79 20 6d 75 63 68 20 74 68 65 20 73 61 6d 65 20 61 73 20 63 63 6c 3a 72 | ;;.Pretty.much.the.same.as.ccl:r |
| 1b0ce0 | 65 70 6f 72 74 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 20 62 75 74 0a 3b 3b 20 77 69 | eport-compiler-warning.but.;;.wi |
| 1b0d00 | 74 68 6f 75 74 20 74 68 65 20 73 6f 75 72 63 65 20 70 6f 73 69 74 69 6f 6e 20 61 6e 64 20 66 75 | thout.the.source.position.and.fu |
| 1b0d20 | 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 73 74 75 66 66 2e 0a 28 64 65 66 6d 65 74 68 6f 64 20 63 6f | nction.name.stuff..(defmethod.co |
| 1b0d40 | 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 2d 73 68 6f 72 74 2d 6d 65 73 73 61 67 65 20 28 28 63 | mpiler-warning-short-message.((c |
| 1b0d60 | 20 63 63 6c 3a 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 29 29 0a 20 20 28 77 69 74 68 2d | .ccl:compiler-warning))...(with- |
| 1b0d80 | 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 74 72 65 61 6d 29 0a 20 20 20 20 28 63 | output-to-string.(stream).....(c |
| 1b0da0 | 63 6c 3a 72 65 70 6f 72 74 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 20 63 20 73 74 72 | cl:report-compiler-warning.c.str |
| 1b0dc0 | 65 61 6d 20 3a 73 68 6f 72 74 20 74 29 29 29 0a 0a 3b 3b 20 4e 65 65 64 65 64 20 62 65 63 61 75 | eam.:short.t)))..;;.Needed.becau |
| 1b0de0 | 73 65 20 60 63 63 6c 3a 72 65 70 6f 72 74 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 27 | se.`ccl:report-compiler-warning' |
| 1b0e00 | 20 77 6f 75 6c 64 20 72 65 74 75 72 6e 0a 3b 3b 20 22 4e 6f 6e 73 70 65 63 69 66 69 63 20 77 61 | .would.return.;;."Nonspecific.wa |
| 1b0e20 | 72 6e 69 6e 67 22 2e 0a 28 64 65 66 6d 65 74 68 6f 64 20 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e | rning"..(defmethod.compiler-warn |
| 1b0e40 | 69 6e 67 2d 73 68 6f 72 74 2d 6d 65 73 73 61 67 65 20 28 28 63 20 63 63 6c 3a 3a 73 68 61 64 6f | ing-short-message.((c.ccl::shado |
| 1b0e60 | 77 65 64 2d 74 79 70 65 63 61 73 65 2d 63 6c 61 75 73 65 29 29 0a 20 20 28 70 72 69 6e 63 2d 74 | wed-typecase-clause))...(princ-t |
| 1b0e80 | 6f 2d 73 74 72 69 6e 67 20 63 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | o-string.c))..(defimplementation |
| 1b0ea0 | 20 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 66 75 | .call-with-compilation-hooks.(fu |
| 1b0ec0 | 6e 63 74 69 6f 6e 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 63 63 6c 3a 63 6f | nction)...(handler-bind.((ccl:co |
| 1b0ee0 | 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 20 27 68 61 6e 64 6c 65 2d 63 6f 6d 70 69 6c 65 72 2d | mpiler-warning.'handle-compiler- |
| 1b0f00 | 77 61 72 6e 69 6e 67 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 63 6c 3a 2a 6d 65 72 67 65 2d | warning)).....(let.((ccl:*merge- |
| 1b0f20 | 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 73 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 | compiler-warnings*.nil)).......( |
| 1b0f40 | 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | funcall.function))))..(defimplem |
| 1b0f60 | 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 28 69 6e 70 | entation.swank-compile-file.(inp |
| 1b0f80 | 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ut-file.output-file............. |
| 1b0fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 61 64 2d | ...........................load- |
| 1b0fc0 | 70 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p.external-format............... |
| 1b0fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 70 6f | .........................&key.po |
| 1b1000 | 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 70 6f 6c 69 63 79 29 | licy)...(declare.(ignore.policy) |
| 1b1020 | 29 0a 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 | )...(with-compilation-hooks.().. |
| 1b1040 | 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 69 6e 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 | ...(compile-file.input-file..... |
| 1b1060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 75 74 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 | ..............:output-file.outpu |
| 1b1080 | 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 61 64 20 6c | t-file...................:load.l |
| 1b10a0 | 6f 61 64 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 | oad-p...................:externa |
| 1b10c0 | 6c 2d 66 6f 72 6d 61 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 29 0a 0a 3b 3b 20 | l-format.external-format)))..;;. |
| 1b10e0 | 55 73 65 20 61 20 74 65 6d 70 20 66 69 6c 65 20 72 61 74 68 65 72 20 74 68 61 6e 20 69 6e 2d 63 | Use.a.temp.file.rather.than.in-c |
| 1b1100 | 6f 72 65 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 68 61 6e 64 | ore.compilation.in.order.to.hand |
| 1b1120 | 6c 65 0a 3b 3b 20 65 76 61 6c 2d 77 68 65 6e 27 73 20 61 73 20 63 6f 6d 70 69 6c 65 2d 74 69 6d | le.;;.eval-when's.as.compile-tim |
| 1b1140 | 65 2e 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 | e..(defimplementation.swank-comp |
| 1b1160 | 69 6c 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 6b 65 79 20 62 75 66 66 65 72 20 70 | ile-string.(string.&key.buffer.p |
| 1b1180 | 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | osition.filename................ |
| 1b11a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1b11c0 | 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 | .line.column.policy)...(declare. |
| 1b11e0 | 28 69 67 6e 6f 72 65 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 | (ignore.line.column.policy))...( |
| 1b1200 | 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 6c | with-compilation-hooks.().....(l |
| 1b1220 | 65 74 20 28 28 74 65 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 63 63 6c 3a 74 65 6d 70 2d 70 61 | et.((temp-file-name.(ccl:temp-pa |
| 1b1240 | 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 2a 73 61 76 65 2d 73 6f | thname))...........(ccl:*save-so |
| 1b1260 | 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 73 2a 20 74 29 29 0a 20 20 20 20 20 20 28 75 6e 77 69 6e | urce-locations*.t)).......(unwin |
| 1b1280 | 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 | d-protect............(progn..... |
| 1b12a0 | 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 73 20 74 65 6d 70 | .........(with-open-file.(s.temp |
| 1b12c0 | 2d 66 69 6c 65 2d 6e 61 6d 65 20 3a 64 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 0a 20 20 | -file-name.:direction.:output... |
| 1b12e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 | ..............................:i |
| 1b1300 | 66 2d 65 78 69 73 74 73 20 3a 65 72 72 6f 72 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 | f-exists.:error.:external-format |
| 1b1320 | 20 3a 75 74 66 2d 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 | .:utf-8)................(write-s |
| 1b1340 | 74 72 69 6e 67 20 73 74 72 69 6e 67 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | tring.string.s))..............(l |
| 1b1360 | 65 74 20 28 28 62 69 6e 61 72 79 2d 66 69 6c 65 6e 61 6d 65 20 28 63 6f 6d 70 69 6c 65 2d 74 65 | et.((binary-filename.(compile-te |
| 1b1380 | 6d 70 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mp-file......................... |
| 1b13a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 | .............temp-file-name.file |
| 1b13c0 | 6e 61 6d 65 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 | name.buffer.position)))......... |
| 1b13e0 | 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 62 69 6e 61 72 79 2d 66 69 6c 65 6e | .......(delete-file.binary-filen |
| 1b1400 | 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 74 65 6d 70 | ame))).........(delete-file.temp |
| 1b1420 | 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 74 65 6d 70 2d 66 | -file-name)))))..(defvar.*temp-f |
| 1b1440 | 69 6c 65 2d 6d 61 70 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 | ile-map*.(make-hash-table.:test. |
| 1b1460 | 23 27 65 71 75 61 6c 29 0a 20 20 22 41 20 6d 61 70 70 69 6e 67 20 66 72 6f 6d 20 74 65 6d 70 66 | #'equal)..."A.mapping.from.tempf |
| 1b1480 | 69 6c 65 20 6e 61 6d 65 73 20 74 6f 20 45 6d 61 63 73 20 62 75 66 66 65 72 20 6e 61 6d 65 73 2e | ile.names.to.Emacs.buffer.names. |
| 1b14a0 | 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 74 65 6d 70 2d 66 69 6c 65 20 28 74 65 | ")..(defun.compile-temp-file.(te |
| 1b14c0 | 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 62 75 | mp-file-name.buffer-file-name.bu |
| 1b14e0 | 66 66 65 72 2d 6e 61 6d 65 20 6f 66 66 73 65 74 29 0a 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c | ffer-name.offset)...(compile-fil |
| 1b1500 | 65 20 74 65 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.temp-file-name................ |
| 1b1520 | 20 3a 6c 6f 61 64 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6d 70 69 6c | .:load.t.................:compil |
| 1b1540 | 65 2d 66 69 6c 65 2d 6f 72 69 67 69 6e 61 6c 2d 74 72 75 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 | e-file-original-truename........ |
| 1b1560 | 20 20 20 20 20 20 20 20 20 28 6f 72 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 | .........(or.buffer-file-name... |
| 1b1580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 | ..................(progn........ |
| 1b15a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 74 65 | ...............(setf.(gethash.te |
| 1b15c0 | 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 2a 74 65 6d 70 2d 66 69 6c 65 2d 6d 61 70 2a 29 0a 20 20 | mp-file-name.*temp-file-map*)... |
| 1b15e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 | ..........................buffer |
| 1b1600 | 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d | -name).......................tem |
| 1b1620 | 70 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 | p-file-name)).................:c |
| 1b1640 | 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 72 69 67 69 6e 61 6c 2d 62 75 66 66 65 72 2d 6f 66 66 73 | ompile-file-original-buffer-offs |
| 1b1660 | 65 74 20 28 31 2d 20 6f 66 66 73 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | et.(1-.offset).................: |
| 1b1680 | 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 3a 75 74 66 2d 38 29 29 0a 0a 28 64 65 66 69 6d | external-format.:utf-8))..(defim |
| 1b16a0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 61 76 65 2d 69 6d 61 67 65 20 28 66 69 6c 65 6e 61 6d | plementation.save-image.(filenam |
| 1b16c0 | 65 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 73 74 61 72 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 | e.&optional.restart-function)... |
| 1b16e0 | 28 63 63 6c 3a 73 61 76 65 2d 61 70 70 6c 69 63 61 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 20 3a | (ccl:save-application.filename.: |
| 1b1700 | 74 6f 70 6c 65 76 65 6c 2d 66 75 6e 63 74 69 6f 6e 20 72 65 73 74 61 72 74 2d 66 75 6e 63 74 69 | toplevel-function.restart-functi |
| 1b1720 | 6f 6e 29 29 0a 0a 3b 3b 3b 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 69 6e 67 0a 0a 28 64 65 | on))..;;;.Cross-referencing..(de |
| 1b1740 | 66 75 6e 20 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 73 20 28 72 65 6c 61 74 69 6f 6e 20 6e 61 6d | fun.xref-locations.(relation.nam |
| 1b1760 | 65 20 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 76 65 72 73 65 29 0a 20 20 28 64 65 6c 65 74 65 2d 64 | e.&optional.inverse)...(delete-d |
| 1b1780 | 75 70 6c 69 63 61 74 65 73 0a 20 20 20 28 6d 61 70 63 61 6e 20 23 27 66 69 6e 64 2d 64 65 66 69 | uplicates....(mapcan.#'find-defi |
| 1b17a0 | 6e 69 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 69 6e 76 65 72 73 65 0a 20 | nitions............(if.inverse.. |
| 1b17c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 3a 67 65 74 2d 72 65 6c 61 74 69 6f 6e 20 72 | ............(ccl::get-relation.r |
| 1b17e0 | 65 6c 61 74 69 6f 6e 20 6e 61 6d 65 20 3a 77 69 6c 64 20 3a 65 78 68 61 75 73 74 69 76 65 20 74 | elation.name.:wild.:exhaustive.t |
| 1b1800 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 3a 67 65 74 2d 72 65 6c 61 74 69 6f | )..............(ccl::get-relatio |
| 1b1820 | 6e 20 72 65 6c 61 74 69 6f 6e 20 3a 77 69 6c 64 20 6e 61 6d 65 20 3a 65 78 68 61 75 73 74 69 76 | n.relation.:wild.name.:exhaustiv |
| 1b1840 | 65 20 74 29 29 29 0a 20 20 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 0a 28 64 65 66 69 6d | e.t)))....:test.'equal))..(defim |
| 1b1860 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 68 6f 2d 62 69 6e 64 73 20 28 6e 61 6d 65 29 0a 20 20 | plementation.who-binds.(name)... |
| 1b1880 | 28 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 73 20 3a 62 69 6e 64 73 20 6e 61 6d 65 29 29 0a 0a 28 | (xref-locations.:binds.name))..( |
| 1b18a0 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e | defimplementation.who-macroexpan |
| 1b18c0 | 64 73 20 28 6e 61 6d 65 29 0a 20 20 28 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 73 20 3a 6d 61 63 | ds.(name)...(xref-locations.:mac |
| 1b18e0 | 72 6f 2d 63 61 6c 6c 73 20 6e 61 6d 65 20 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | ro-calls.name.t))..(defimplement |
| 1b1900 | 61 74 69 6f 6e 20 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 20 28 6e 61 6d 65 29 0a 20 20 28 72 | ation.who-references.(name)...(r |
| 1b1920 | 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 0a 20 20 20 28 61 70 70 65 6e 64 20 28 78 72 65 | emove-duplicates....(append.(xre |
| 1b1940 | 66 2d 6c 6f 63 61 74 69 6f 6e 73 20 3a 72 65 66 65 72 65 6e 63 65 73 20 6e 61 6d 65 29 0a 20 20 | f-locations.:references.name)... |
| 1b1960 | 20 20 20 20 20 20 20 20 20 28 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 73 20 3a 73 65 74 73 20 6e | .........(xref-locations.:sets.n |
| 1b1980 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 73 20 | ame)............(xref-locations. |
| 1b19a0 | 3a 62 69 6e 64 73 20 6e 61 6d 65 29 29 0a 20 20 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a | :binds.name))....:test.'equal)). |
| 1b19c0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 68 6f 2d 73 65 74 73 20 28 6e 61 | .(defimplementation.who-sets.(na |
| 1b19e0 | 6d 65 29 0a 20 20 28 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 73 20 3a 73 65 74 73 20 6e 61 6d 65 | me)...(xref-locations.:sets.name |
| 1b1a00 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 68 6f 2d 63 61 6c 6c 73 | ))..(defimplementation.who-calls |
| 1b1a20 | 20 28 6e 61 6d 65 29 0a 20 20 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 0a 20 20 20 | .(name)...(remove-duplicates.... |
| 1b1a40 | 28 61 70 70 65 6e 64 0a 20 20 20 20 28 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 73 20 3a 64 69 72 | (append.....(xref-locations.:dir |
| 1b1a60 | 65 63 74 2d 63 61 6c 6c 73 20 6e 61 6d 65 29 0a 20 20 20 20 28 78 72 65 66 2d 6c 6f 63 61 74 69 | ect-calls.name).....(xref-locati |
| 1b1a80 | 6f 6e 73 20 3a 69 6e 64 69 72 65 63 74 2d 63 61 6c 6c 73 20 6e 61 6d 65 29 0a 20 20 20 20 28 78 | ons.:indirect-calls.name).....(x |
| 1b1aa0 | 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 73 20 3a 6d 61 63 72 6f 2d 63 61 6c 6c 73 20 6e 61 6d 65 20 | ref-locations.:macro-calls.name. |
| 1b1ac0 | 74 29 29 0a 20 20 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | t))....:test.'equal))..(defimple |
| 1b1ae0 | 6d 65 6e 74 61 74 69 6f 6e 20 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 20 28 63 6c 61 73 73 | mentation.who-specializes.(class |
| 1b1b00 | 29 0a 20 20 28 77 68 65 6e 20 28 73 79 6d 62 6f 6c 70 20 63 6c 61 73 73 29 0a 20 20 20 20 28 73 | )...(when.(symbolp.class).....(s |
| 1b1b20 | 65 74 71 20 63 6c 61 73 73 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 63 6c 61 73 73 20 6e 69 6c 29 | etq.class.(find-class.class.nil) |
| 1b1b40 | 29 29 0a 20 20 28 77 68 65 6e 20 63 6c 61 73 73 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 64 75 70 | ))...(when.class.....(delete-dup |
| 1b1b60 | 6c 69 63 61 74 65 73 0a 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 6d 29 | licates......(mapcar.(lambda.(m) |
| 1b1b80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 28 66 69 6e 64 2d 64 65 66 69 6e | ................(car.(find-defin |
| 1b1ba0 | 69 74 69 6f 6e 73 20 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 73 70 | itions.m)))..............(ccl:sp |
| 1b1bc0 | 65 63 69 61 6c 69 7a 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 20 63 6c 61 73 73 29 29 | ecializer-direct-methods.class)) |
| 1b1be0 | 0a 20 20 20 20 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | ......:test.'equal)))..(defimple |
| 1b1c00 | 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 74 2d 63 61 6c 6c 65 65 73 20 28 6e 61 6d 65 29 0a 20 20 | mentation.list-callees.(name)... |
| 1b1c20 | 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 0a 20 20 20 28 61 70 70 65 6e 64 0a 20 20 | (remove-duplicates....(append... |
| 1b1c40 | 20 28 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 73 20 3a 64 69 72 65 63 74 2d 63 61 6c 6c 73 20 6e | .(xref-locations.:direct-calls.n |
| 1b1c60 | 61 6d 65 20 74 29 0a 20 20 20 28 78 72 65 66 2d 6c 6f 63 61 74 69 6f 6e 73 20 3a 6d 61 63 72 6f | ame.t)....(xref-locations.:macro |
| 1b1c80 | 2d 63 61 6c 6c 73 20 6e 61 6d 65 20 6e 69 6c 29 29 0a 20 20 20 3a 74 65 73 74 20 27 65 71 75 61 | -calls.name.nil))....:test.'equa |
| 1b1ca0 | 6c 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 74 2d 63 61 6c | l))..(defimplementation.list-cal |
| 1b1cc0 | 6c 65 72 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 64 65 6c 65 74 65 2d 64 75 70 6c 69 63 61 74 | lers.(symbol)...(delete-duplicat |
| 1b1ce0 | 65 73 0a 20 20 20 28 6d 61 70 63 61 6e 20 23 27 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 | es....(mapcan.#'find-definitions |
| 1b1d00 | 20 28 63 63 6c 3a 63 61 6c 6c 65 72 2d 66 75 6e 63 74 69 6f 6e 73 20 73 79 6d 62 6f 6c 29 29 0a | .(ccl:caller-functions.symbol)). |
| 1b1d20 | 20 20 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 0a 3b 3b 3b 20 50 72 6f 66 69 6c 69 6e | ...:test.#'equal))..;;;.Profilin |
| 1b1d40 | 67 20 28 61 6c 61 6e 72 3a 20 6c 69 66 74 65 64 20 66 72 6f 6d 20 73 77 61 6e 6b 2d 63 6c 69 73 | g.(alanr:.lifted.from.swank-clis |
| 1b1d60 | 70 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 20 28 | p)..(defimplementation.profile.( |
| 1b1d80 | 66 6e 61 6d 65 29 0a 20 20 28 65 76 61 6c 20 60 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 6d | fname)...(eval.`(swank-monitor:m |
| 1b1da0 | 6f 6e 69 74 6f 72 20 2c 66 6e 61 6d 65 29 29 29 09 09 3b 6d 6f 6e 69 74 6f 72 20 69 73 20 61 20 | onitor.,fname)))..;monitor.is.a. |
| 1b1dc0 | 6d 61 63 72 6f 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c | macro..(defimplementation.profil |
| 1b1de0 | 65 64 2d 66 75 6e 63 74 69 6f 6e 73 20 28 29 0a 20 20 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a | ed-functions.()...swank-monitor: |
| 1b1e00 | 2a 6d 6f 6e 69 74 6f 72 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 0a 0a 28 64 65 66 69 6d 70 6c | *monitored-functions*)..(defimpl |
| 1b1e20 | 65 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 | ementation.unprofile.(fname)...( |
| 1b1e40 | 65 76 61 6c 20 60 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 75 6e 6d 6f 6e 69 74 6f 72 20 2c | eval.`(swank-monitor:unmonitor., |
| 1b1e60 | 66 6e 61 6d 65 29 29 29 09 3b 75 6e 6d 6f 6e 69 74 6f 72 20 69 73 20 61 20 6d 61 63 72 6f 0a 0a | fname))).;unmonitor.is.a.macro.. |
| 1b1e80 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c | (defimplementation.unprofile-all |
| 1b1ea0 | 20 28 29 0a 20 20 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 75 6e 6d 6f 6e 69 74 6f 72 29 29 | .()...(swank-monitor:unmonitor)) |
| 1b1ec0 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 72 65 70 | ..(defimplementation.profile-rep |
| 1b1ee0 | 6f 72 74 20 28 29 0a 20 20 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 72 65 70 6f 72 74 2d 6d | ort.()...(swank-monitor:report-m |
| 1b1f00 | 6f 6e 69 74 6f 72 69 6e 67 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | onitoring))..(defimplementation. |
| 1b1f20 | 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 20 28 29 0a 20 20 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f | profile-reset.()...(swank-monito |
| 1b1f40 | 72 3a 72 65 73 65 74 2d 61 6c 6c 2d 6d 6f 6e 69 74 6f 72 69 6e 67 29 29 0a 0a 28 64 65 66 69 6d | r:reset-all-monitoring))..(defim |
| 1b1f60 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 20 28 70 61 | plementation.profile-package.(pa |
| 1b1f80 | 63 6b 61 67 65 20 63 61 6c 6c 65 72 73 2d 70 20 6d 65 74 68 6f 64 73 29 0a 20 20 28 64 65 63 6c | ckage.callers-p.methods)...(decl |
| 1b1fa0 | 61 72 65 20 28 69 67 6e 6f 72 65 20 63 61 6c 6c 65 72 73 2d 70 20 6d 65 74 68 6f 64 73 29 29 0a | are.(ignore.callers-p.methods)). |
| 1b1fc0 | 20 20 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 6d 6f 6e 69 74 6f 72 2d 61 6c 6c 20 70 61 63 | ..(swank-monitor:monitor-all.pac |
| 1b1fe0 | 6b 61 67 65 29 29 0a 0a 3b 3b 3b 20 44 65 62 75 67 67 69 6e 67 0a 0a 28 64 65 66 69 6d 70 6c 65 | kage))..;;;.Debugging..(defimple |
| 1b2000 | 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e | mentation.call-with-debugging-en |
| 1b2020 | 76 69 72 6f 6e 6d 65 6e 74 20 28 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 0a 20 20 28 | vironment.(debugger-loop-fn)...( |
| 1b2040 | 6c 65 74 2a 20 28 3b 3b 28 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 6e 69 6c 29 0a 20 20 | let*.(;;(*debugger-hook*.nil)... |
| 1b2060 | 20 20 20 20 20 20 20 3b 3b 20 64 6f 6e 27 74 20 6c 65 74 20 65 72 72 6f 72 20 77 68 69 6c 65 20 | .......;;.don't.let.error.while. |
| 1b2080 | 70 72 69 6e 74 69 6e 67 20 65 72 72 6f 72 20 74 61 6b 65 20 75 73 20 64 6f 77 6e 0a 20 20 20 20 | printing.error.take.us.down..... |
| 1b20a0 | 20 20 20 20 20 28 63 63 6c 3a 2a 73 69 67 6e 61 6c 2d 70 72 69 6e 74 69 6e 67 2d 65 72 72 6f 72 | .....(ccl:*signal-printing-error |
| 1b20c0 | 73 2a 20 6e 69 6c 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 64 65 62 75 67 67 65 72 2d 6c | s*.nil)).....(funcall.debugger-l |
| 1b20e0 | 6f 6f 70 2d 66 6e 29 29 29 0a 0a 3b 3b 20 54 68 69 73 20 69 73 20 63 61 6c 6c 65 64 20 66 6f 72 | oop-fn)))..;;.This.is.called.for |
| 1b2100 | 20 61 6e 20 61 73 79 6e 63 20 69 6e 74 65 72 72 75 70 74 20 61 6e 64 20 69 73 20 72 75 6e 6e 69 | .an.async.interrupt.and.is.runni |
| 1b2120 | 6e 67 20 69 6e 20 61 20 72 61 6e 64 6f 6d 0a 3b 3b 20 74 68 72 65 61 64 20 6e 6f 74 20 73 65 6c | ng.in.a.random.;;.thread.not.sel |
| 1b2140 | 65 63 74 65 64 20 62 79 20 74 68 65 20 75 73 65 72 2c 20 73 6f 20 64 6f 6e 27 74 20 75 73 65 20 | ected.by.the.user,.so.don't.use. |
| 1b2160 | 74 68 72 65 61 64 2d 6c 6f 63 61 6c 20 76 61 72 73 0a 3b 3b 20 73 75 63 68 20 61 73 20 2a 65 6d | thread-local.vars.;;.such.as.*em |
| 1b2180 | 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 2e 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 72 65 70 | acs-connection*..(defun.find-rep |
| 1b21a0 | 6c 2d 74 68 72 65 61 64 20 28 29 0a 20 20 28 6c 65 74 2a 20 28 28 2a 62 72 65 61 6b 2d 6f 6e 2d | l-thread.()...(let*.((*break-on- |
| 1b21c0 | 73 69 67 6e 61 6c 73 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 6e 20 28 73 77 | signals*.nil)..........(conn.(sw |
| 1b21e0 | 61 6e 6b 3a 3a 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 | ank::default-connection))).....( |
| 1b2200 | 61 6e 64 20 28 73 77 61 6e 6b 3a 3a 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 | and.(swank::multithreaded-connec |
| 1b2220 | 74 69 6f 6e 2d 70 20 63 6f 6e 6e 29 0a 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 3a 3a 6d 63 | tion-p.conn)..........(swank::mc |
| 1b2240 | 6f 6e 6e 2e 72 65 70 6c 2d 74 68 72 65 61 64 20 63 6f 6e 6e 29 29 29 29 0a 0a 28 64 65 66 69 6d | onn.repl-thread.conn))))..(defim |
| 1b2260 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 65 72 2d | plementation.call-with-debugger- |
| 1b2280 | 68 6f 6f 6b 20 28 68 6f 6f 6b 20 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a 64 65 62 75 67 67 | hook.(hook.fun)...(let.((*debugg |
| 1b22a0 | 65 72 2d 68 6f 6f 6b 2a 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 28 63 63 6c 3a 2a 62 72 65 | er-hook*.hook).........(ccl:*bre |
| 1b22c0 | 61 6b 2d 68 6f 6f 6b 2a 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 28 63 63 6c 3a 2a 73 65 6c | ak-hook*.hook).........(ccl:*sel |
| 1b22e0 | 65 63 74 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 70 72 6f 63 65 73 73 2d 68 6f 6f 6b 2a 20 27 66 | ect-interactive-process-hook*.'f |
| 1b2300 | 69 6e 64 2d 72 65 70 6c 2d 74 68 72 65 61 64 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 | ind-repl-thread)).....(funcall.f |
| 1b2320 | 75 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 73 74 61 6c | un)))..(defimplementation.instal |
| 1b2340 | 6c 2d 64 65 62 75 67 67 65 72 2d 67 6c 6f 62 61 6c 6c 79 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 | l-debugger-globally.(function).. |
| 1b2360 | 20 28 73 65 74 71 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 66 75 6e 63 74 69 6f 6e 29 | .(setq.*debugger-hook*.function) |
| 1b2380 | 0a 20 20 28 73 65 74 71 20 63 63 6c 3a 2a 62 72 65 61 6b 2d 68 6f 6f 6b 2a 20 66 75 6e 63 74 69 | ...(setq.ccl:*break-hook*.functi |
| 1b23a0 | 6f 6e 29 0a 20 20 28 73 65 74 71 20 63 63 6c 3a 2a 73 65 6c 65 63 74 2d 69 6e 74 65 72 61 63 74 | on)...(setq.ccl:*select-interact |
| 1b23c0 | 69 76 65 2d 70 72 6f 63 65 73 73 2d 68 6f 6f 6b 2a 20 27 66 69 6e 64 2d 72 65 70 6c 2d 74 68 72 | ive-process-hook*.'find-repl-thr |
| 1b23e0 | 65 61 64 29 0a 20 20 29 0a 0a 28 64 65 66 75 6e 20 6d 61 70 2d 62 61 63 6b 74 72 61 63 65 20 28 | ead)...)..(defun.map-backtrace.( |
| 1b2400 | 66 75 6e 63 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | function.&optional.............. |
| 1b2420 | 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 30 29 0a | .........(start-frame-number.0). |
| 1b2440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 2d 66 72 61 6d 65 2d | ......................end-frame- |
| 1b2460 | 6e 75 6d 62 65 72 29 0a 20 20 22 43 61 6c 6c 20 46 55 4e 43 54 49 4f 4e 20 70 61 73 73 69 6e 67 | number)..."Call.FUNCTION.passing |
| 1b2480 | 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 65 61 63 68 20 73 74 61 63 6b 20 66 72 | .information.about.each.stack.fr |
| 1b24a0 | 61 6d 65 0a 20 66 72 6f 6d 20 66 72 61 6d 65 73 20 53 54 41 52 54 2d 46 52 41 4d 45 2d 4e 55 4d | ame..from.frames.START-FRAME-NUM |
| 1b24c0 | 42 45 52 20 74 6f 20 45 4e 44 2d 46 52 41 4d 45 2d 4e 55 4d 42 45 52 2e 22 0a 20 20 28 6c 65 74 | BER.to.END-FRAME-NUMBER."...(let |
| 1b24e0 | 20 28 28 65 6e 64 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 28 6f 72 20 65 6e 64 2d 66 72 61 6d | .((end-frame-number.(or.end-fram |
| 1b2500 | 65 2d 6e 75 6d 62 65 72 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d 29 29 29 | e-number.most-positive-fixnum))) |
| 1b2520 | 0a 20 20 20 20 28 63 63 6c 3a 6d 61 70 2d 63 61 6c 6c 2d 66 72 61 6d 65 73 20 66 75 6e 63 74 69 | .....(ccl:map-call-frames.functi |
| 1b2540 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 72 69 | on..........................:ori |
| 1b2560 | 67 69 6e 20 63 63 6c 3a 2a 74 6f 70 2d 65 72 72 6f 72 2d 66 72 61 6d 65 2a 0a 20 20 20 20 20 20 | gin.ccl:*top-error-frame*....... |
| 1b2580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 74 61 72 74 2d 66 72 61 6d 65 2d | ...................:start-frame- |
| 1b25a0 | 6e 75 6d 62 65 72 20 73 74 61 72 74 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 | number.start-frame-number....... |
| 1b25c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 75 6e 74 20 28 2d 20 65 6e 64 | ...................:count.(-.end |
| 1b25e0 | 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 73 74 61 72 74 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 | -frame-number.start-frame-number |
| 1b2600 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 70 75 74 65 | ))))..(defimplementation.compute |
| 1b2620 | 2d 62 61 63 6b 74 72 61 63 65 20 28 73 74 61 72 74 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 65 | -backtrace.(start-frame-number.e |
| 1b2640 | 6e 64 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 20 28 72 65 73 75 6c 74 29 | nd-frame-number)...(let.(result) |
| 1b2660 | 0a 20 20 20 20 28 6d 61 70 2d 62 61 63 6b 74 72 61 63 65 20 28 6c 61 6d 62 64 61 20 28 70 20 63 | .....(map-backtrace.(lambda.(p.c |
| 1b2680 | 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 | ontext)......................(pu |
| 1b26a0 | 73 68 20 28 6c 69 73 74 20 3a 66 72 61 6d 65 20 70 20 63 6f 6e 74 65 78 74 29 20 72 65 73 75 6c | sh.(list.:frame.p.context).resul |
| 1b26c0 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 2d 66 72 61 | t))....................start-fra |
| 1b26e0 | 6d 65 2d 6e 75 6d 62 65 72 20 65 6e 64 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 | me-number.end-frame-number)..... |
| 1b2700 | 28 6e 72 65 76 65 72 73 65 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | (nreverse.result)))..(defimpleme |
| 1b2720 | 6e 74 61 74 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 73 74 72 65 61 | ntation.print-frame.(frame.strea |
| 1b2740 | 6d 29 0a 20 20 28 61 73 73 65 72 74 20 28 65 71 20 28 66 69 72 73 74 20 66 72 61 6d 65 29 20 3a | m)...(assert.(eq.(first.frame).: |
| 1b2760 | 66 72 61 6d 65 29 29 0a 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 70 | frame))...(destructuring-bind.(p |
| 1b2780 | 20 63 6f 6e 74 65 78 74 29 20 28 72 65 73 74 20 66 72 61 6d 65 29 0a 20 20 20 20 28 6c 65 74 20 | .context).(rest.frame).....(let. |
| 1b27a0 | 28 28 6c 66 75 6e 20 28 63 63 6c 3a 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 70 20 63 6f 6e | ((lfun.(ccl:frame-function.p.con |
| 1b27c0 | 74 65 78 74 29 29 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 28 7e | text))).......(format.stream."(~ |
| 1b27e0 | 53 22 20 28 6f 72 20 28 63 63 6c 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 6c 66 75 6e 29 20 | S".(or.(ccl:function-name.lfun). |
| 1b2800 | 6c 66 75 6e 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 75 6e 61 76 61 69 6c 61 62 6c 65 | lfun)).......(let*.((unavailable |
| 1b2820 | 20 28 63 6f 6e 73 20 6e 69 6c 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | .(cons.nil.nil))..............(a |
| 1b2840 | 72 67 73 20 28 63 63 6c 3a 66 72 61 6d 65 2d 73 75 70 70 6c 69 65 64 2d 61 72 67 75 6d 65 6e 74 | rgs.(ccl:frame-supplied-argument |
| 1b2860 | 73 20 70 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.p.context..................... |
| 1b2880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 75 6e | .............................:un |
| 1b28a0 | 6b 6e 6f 77 6e 2d 6d 61 72 6b 65 72 20 75 6e 61 76 61 69 6c 61 62 6c 65 29 29 29 0a 20 20 20 20 | known-marker.unavailable)))..... |
| 1b28c0 | 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 64 79 6e 61 6d 69 63 2d 65 78 74 65 6e 74 20 75 6e 61 | ....(declare.(dynamic-extent.una |
| 1b28e0 | 76 61 69 6c 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 61 72 67 73 20 | vailable)).........(if.(eq.args. |
| 1b2900 | 75 6e 61 76 61 69 6c 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | unavailable).............(format |
| 1b2920 | 20 73 74 72 65 61 6d 20 22 20 23 3c 55 6e 6b 6e 6f 77 6e 20 41 72 67 75 6d 65 6e 74 73 3e 22 29 | .stream.".#<Unknown.Arguments>") |
| 1b2940 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 61 72 67 20 61 72 67 73 29 0a | .............(dolist.(arg.args). |
| 1b2960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 61 72 67 20 75 6e 61 76 61 69 | ..............(if.(eq.arg.unavai |
| 1b2980 | 6c 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | lable)...................(format |
| 1b29a0 | 20 73 74 72 65 61 6d 20 22 20 23 3c 55 6e 61 76 61 69 6c 61 62 6c 65 3e 22 29 0a 20 20 20 20 20 | .stream.".#<Unavailable>")...... |
| 1b29c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 20 7e 73 | .............(format.stream.".~s |
| 1b29e0 | 22 20 61 72 67 29 29 29 29 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 | ".arg))))).......(format.stream. |
| 1b2a00 | 22 29 22 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 66 72 61 6d 65 20 28 28 | ")"))))..(defmacro.with-frame.(( |
| 1b2a20 | 70 20 63 6f 6e 74 65 78 74 29 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 26 62 6f 64 79 20 62 6f | p.context).frame-number.&body.bo |
| 1b2a40 | 64 79 29 0a 20 20 60 28 63 61 6c 6c 2f 66 72 61 6d 65 20 2c 66 72 61 6d 65 2d 6e 75 6d 62 65 72 | dy)...`(call/frame.,frame-number |
| 1b2a60 | 20 28 6c 61 6d 62 64 61 20 28 2c 70 20 2c 63 6f 6e 74 65 78 74 29 20 2e 20 2c 62 6f 64 79 29 29 | .(lambda.(,p.,context)...,body)) |
| 1b2a80 | 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 6c 2f 66 72 61 6d 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 | )..(defun.call/frame.(frame-numb |
| 1b2aa0 | 65 72 20 69 66 2d 66 6f 75 6e 64 29 0a 20 20 28 6d 61 70 2d 62 61 63 6b 74 72 61 63 65 0a 20 20 | er.if-found)...(map-backtrace... |
| 1b2ac0 | 20 28 6c 61 6d 62 64 61 20 28 70 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 28 72 65 74 75 72 | .(lambda.(p.context)......(retur |
| 1b2ae0 | 6e 2d 66 72 6f 6d 20 63 61 6c 6c 2f 66 72 61 6d 65 0a 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c | n-from.call/frame........(funcal |
| 1b2b00 | 6c 20 69 66 2d 66 6f 75 6e 64 20 70 20 63 6f 6e 74 65 78 74 29 29 29 0a 20 20 20 66 72 61 6d 65 | l.if-found.p.context)))....frame |
| 1b2b20 | 2d 6e 75 6d 62 65 72 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 | -number))..(defimplementation.fr |
| 1b2b40 | 61 6d 65 2d 63 61 6c 6c 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 77 69 74 68 2d | ame-call.(frame-number)...(with- |
| 1b2b60 | 66 72 61 6d 65 20 28 70 20 63 6f 6e 74 65 78 74 29 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 0a 20 | frame.(p.context).frame-number.. |
| 1b2b80 | 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 74 72 65 61 | ...(with-output-to-string.(strea |
| 1b2ba0 | 6d 29 0a 20 20 20 20 20 20 28 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 6c 69 73 74 20 3a 66 72 61 | m).......(print-frame.(list.:fra |
| 1b2bc0 | 6d 65 20 70 20 63 6f 6e 74 65 78 74 29 20 73 74 72 65 61 6d 29 29 29 29 0a 0a 28 64 65 66 69 6d | me.p.context).stream))))..(defim |
| 1b2be0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 66 72 | plementation.frame-var-value.(fr |
| 1b2c00 | 61 6d 65 20 76 61 72 29 0a 20 20 28 77 69 74 68 2d 66 72 61 6d 65 20 28 70 20 63 6f 6e 74 65 78 | ame.var)...(with-frame.(p.contex |
| 1b2c20 | 74 29 20 66 72 61 6d 65 0a 20 20 20 20 28 63 64 72 20 28 6e 74 68 20 76 61 72 20 28 63 63 6c 3a | t).frame.....(cdr.(nth.var.(ccl: |
| 1b2c40 | 66 72 61 6d 65 2d 6e 61 6d 65 64 2d 76 61 72 69 61 62 6c 65 73 20 70 20 63 6f 6e 74 65 78 74 29 | frame-named-variables.p.context) |
| 1b2c60 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 6c | ))))..(defimplementation.frame-l |
| 1b2c80 | 6f 63 61 6c 73 20 28 69 6e 64 65 78 29 0a 20 20 28 77 69 74 68 2d 66 72 61 6d 65 20 28 70 20 63 | ocals.(index)...(with-frame.(p.c |
| 1b2ca0 | 6f 6e 74 65 78 74 29 20 69 6e 64 65 78 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 6e 61 6d | ontext).index.....(loop.for.(nam |
| 1b2cc0 | 65 20 2e 20 76 61 6c 75 65 29 20 69 6e 20 28 63 63 6c 3a 66 72 61 6d 65 2d 6e 61 6d 65 64 2d 76 | e...value).in.(ccl:frame-named-v |
| 1b2ce0 | 61 72 69 61 62 6c 65 73 20 70 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 63 6f | ariables.p.context)...........co |
| 1b2d00 | 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 6e 61 6d 65 20 6e 61 6d 65 20 3a 76 61 6c 75 65 20 76 61 | llect.(list.:name.name.:value.va |
| 1b2d20 | 6c 75 65 20 3a 69 64 20 30 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | lue.:id.0))))..(defimplementatio |
| 1b2d40 | 6e 20 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 69 6e 64 65 78 29 0a | n.frame-source-location.(index). |
| 1b2d60 | 20 20 28 77 69 74 68 2d 66 72 61 6d 65 20 28 70 20 63 6f 6e 74 65 78 74 29 20 69 6e 64 65 78 0a | ..(with-frame.(p.context).index. |
| 1b2d80 | 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6c 66 75 6e 20 70 | ....(multiple-value-bind.(lfun.p |
| 1b2da0 | 63 29 20 28 63 63 6c 3a 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 70 20 63 6f 6e 74 65 78 74 | c).(ccl:frame-function.p.context |
| 1b2dc0 | 29 0a 20 20 20 20 20 20 28 69 66 20 70 63 0a 20 20 20 20 20 20 20 20 28 70 63 2d 73 6f 75 72 63 | ).......(if.pc.........(pc-sourc |
| 1b2de0 | 65 2d 6c 6f 63 61 74 69 6f 6e 20 6c 66 75 6e 20 70 63 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e | e-location.lfun.pc).........(fun |
| 1b2e00 | 63 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6c 66 75 6e 29 29 29 29 29 0a | ction-source-location.lfun))))). |
| 1b2e20 | 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 61 63 6b 61 67 65 20 28 6e | .(defun.function-name-package.(n |
| 1b2e40 | 61 6d 65 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 6e 61 6d 65 0a 20 20 20 20 28 6e 75 6c 6c | ame)...(etypecase.name.....(null |
| 1b2e60 | 20 6e 69 6c 29 0a 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 | .nil).....(symbol.(symbol-packag |
| 1b2e80 | 65 20 6e 61 6d 65 29 29 0a 20 20 20 20 28 28 63 6f 6e 73 20 28 65 71 6c 20 63 63 6c 3a 3a 74 72 | e.name)).....((cons.(eql.ccl::tr |
| 1b2ea0 | 61 63 65 64 29 29 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 61 63 6b 61 67 65 20 28 73 | aced)).(function-name-package.(s |
| 1b2ec0 | 65 63 6f 6e 64 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 28 63 6f 6e 73 20 28 65 71 6c 20 73 65 | econd.name))).....((cons.(eql.se |
| 1b2ee0 | 74 66 29 29 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 28 73 65 63 6f 6e 64 20 6e 61 6d | tf)).(symbol-package.(second.nam |
| 1b2f00 | 65 29 29 29 0a 20 20 20 20 28 28 63 6f 6e 73 20 28 65 71 6c 20 3a 69 6e 74 65 72 6e 61 6c 29 29 | e))).....((cons.(eql.:internal)) |
| 1b2f20 | 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 61 63 6b 61 67 65 20 28 63 61 72 20 28 6c 61 | .(function-name-package.(car.(la |
| 1b2f40 | 73 74 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 28 63 6f 6e 73 20 28 61 6e 64 20 73 79 6d 62 | st.name)))).....((cons.(and.symb |
| 1b2f60 | 6f 6c 20 28 6e 6f 74 20 6b 65 79 77 6f 72 64 29 29 20 28 6f 72 20 28 63 6f 6e 73 20 6c 69 73 74 | ol.(not.keyword)).(or.(cons.list |
| 1b2f80 | 20 6e 75 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .null).......................... |
| 1b2fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 6b 65 79 77 6f 72 64 20 28 | .................(cons.keyword.( |
| 1b2fc0 | 63 6f 6e 73 20 6c 69 73 74 20 6e 75 6c 6c 29 29 29 29 0a 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d | cons.list.null))))......(symbol- |
| 1b2fe0 | 70 61 63 6b 61 67 65 20 28 63 61 72 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 73 74 61 6e 64 61 | package.(car.name))).....(standa |
| 1b3000 | 72 64 2d 6d 65 74 68 6f 64 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 61 63 6b 61 67 65 | rd-method.(function-name-package |
| 1b3020 | 20 28 63 63 6c 3a 6d 65 74 68 6f 64 2d 6e 61 6d 65 20 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 | .(ccl:method-name.name)))))..(de |
| 1b3040 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 70 61 63 6b 61 67 65 20 28 66 | fimplementation.frame-package.(f |
| 1b3060 | 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 77 69 74 68 2d 66 72 61 6d 65 20 28 70 20 63 6f | rame-number)...(with-frame.(p.co |
| 1b3080 | 6e 74 65 78 74 29 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 | ntext).frame-number.....(let*.(( |
| 1b30a0 | 6c 66 75 6e 20 28 63 63 6c 3a 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 70 20 63 6f 6e 74 65 | lfun.(ccl:frame-function.p.conte |
| 1b30c0 | 78 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 63 63 6c 3a 66 75 6e 63 74 | xt))............(name.(ccl:funct |
| 1b30e0 | 69 6f 6e 2d 6e 61 6d 65 20 6c 66 75 6e 29 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e | ion-name.lfun))).......(function |
| 1b3100 | 2d 6e 61 6d 65 2d 70 61 63 6b 61 67 65 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | -name-package.name))))..(defimpl |
| 1b3120 | 65 6d 65 6e 74 61 74 69 6f 6e 20 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 28 66 6f 72 6d 20 69 | ementation.eval-in-frame.(form.i |
| 1b3140 | 6e 64 65 78 29 0a 20 20 28 77 69 74 68 2d 66 72 61 6d 65 20 28 70 20 63 6f 6e 74 65 78 74 29 20 | ndex)...(with-frame.(p.context). |
| 1b3160 | 69 6e 64 65 78 0a 20 20 20 20 28 6c 65 74 20 28 28 76 61 72 73 20 28 63 63 6c 3a 66 72 61 6d 65 | index.....(let.((vars.(ccl:frame |
| 1b3180 | 2d 6e 61 6d 65 64 2d 76 61 72 69 61 62 6c 65 73 20 70 20 63 6f 6e 74 65 78 74 29 29 29 0a 20 20 | -named-variables.p.context)))... |
| 1b31a0 | 20 20 20 20 28 65 76 61 6c 20 60 28 6c 65 74 20 2c 28 6c 6f 6f 70 20 66 6f 72 20 28 76 61 72 20 | ....(eval.`(let.,(loop.for.(var. |
| 1b31c0 | 2e 20 76 61 6c 29 20 69 6e 20 76 61 72 73 20 63 6f 6c 6c 65 63 74 20 60 28 2c 76 61 72 20 27 2c | ..val).in.vars.collect.`(,var.', |
| 1b31e0 | 76 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 | val))................(declare.(i |
| 1b3200 | 67 6e 6f 72 61 62 6c 65 20 2c 40 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 76 61 72 73 29 29 29 | gnorable.,@(mapcar.#'car.vars))) |
| 1b3220 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 66 6f 72 6d 29 29 29 29 29 0a 0a 28 64 65 66 | ................,form)))))..(def |
| 1b3240 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 | implementation.return-from-frame |
| 1b3260 | 20 28 69 6e 64 65 78 20 66 6f 72 6d 29 0a 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 73 20 28 6d | .(index.form)...(let.((values.(m |
| 1b3280 | 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 65 76 61 6c 2d 69 6e 2d 66 72 61 6d | ultiple-value-list.(eval-in-fram |
| 1b32a0 | 65 20 66 6f 72 6d 20 69 6e 64 65 78 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 66 72 61 6d 65 | e.form.index)))).....(with-frame |
| 1b32c0 | 20 28 70 20 63 6f 6e 74 65 78 74 29 20 69 6e 64 65 78 0a 20 20 20 20 20 20 20 28 64 65 63 6c 61 | .(p.context).index........(decla |
| 1b32e0 | 72 65 20 28 69 67 6e 6f 72 65 20 63 6f 6e 74 65 78 74 29 29 0a 20 20 20 20 20 20 20 28 63 63 6c | re.(ignore.context))........(ccl |
| 1b3300 | 3a 61 70 70 6c 79 2d 69 6e 2d 66 72 61 6d 65 20 70 20 23 27 76 61 6c 75 65 73 20 76 61 6c 75 65 | :apply-in-frame.p.#'values.value |
| 1b3320 | 73 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 73 74 61 72 | s))))..(defimplementation.restar |
| 1b3340 | 74 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 29 0a 20 20 28 77 69 74 68 2d 66 72 61 6d 65 20 28 70 | t-frame.(index)...(with-frame.(p |
| 1b3360 | 20 63 6f 6e 74 65 78 74 29 20 69 6e 64 65 78 0a 20 20 20 20 28 63 63 6c 3a 61 70 70 6c 79 2d 69 | .context).index.....(ccl:apply-i |
| 1b3380 | 6e 2d 66 72 61 6d 65 20 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n-frame.p....................... |
| 1b33a0 | 20 20 28 63 63 6c 3a 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 70 20 63 6f 6e 74 65 78 74 29 | ..(ccl:frame-function.p.context) |
| 1b33c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 66 72 | .........................(ccl:fr |
| 1b33e0 | 61 6d 65 2d 73 75 70 70 6c 69 65 64 2d 61 72 67 75 6d 65 6e 74 73 20 70 20 63 6f 6e 74 65 78 74 | ame-supplied-arguments.p.context |
| 1b3400 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 69 73 61 73 73 65 | ))))..(defimplementation.disasse |
| 1b3420 | 6d 62 6c 65 2d 66 72 61 6d 65 20 28 74 68 65 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 | mble-frame.(the-frame-number)... |
| 1b3440 | 28 77 69 74 68 2d 66 72 61 6d 65 20 28 70 20 63 6f 6e 74 65 78 74 29 20 74 68 65 2d 66 72 61 6d | (with-frame.(p.context).the-fram |
| 1b3460 | 65 2d 6e 75 6d 62 65 72 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e | e-number.....(multiple-value-bin |
| 1b3480 | 64 20 28 6c 66 75 6e 20 70 63 29 20 28 63 63 6c 3a 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 | d.(lfun.pc).(ccl:frame-function. |
| 1b34a0 | 70 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 4c 46 55 4e | p.context).......(format.t."LFUN |
| 1b34c0 | 3a 20 7e 61 7e 25 50 43 3a 20 7e 61 20 20 46 50 3a 20 23 78 7e 78 20 20 43 4f 4e 54 45 58 54 3a | :.~a~%PC:.~a..FP:.#x~x..CONTEXT: |
| 1b34e0 | 20 7e 61 7e 25 22 20 6c 66 75 6e 20 70 63 20 70 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 | .~a~%".lfun.pc.p.context)....... |
| 1b3500 | 28 64 69 73 61 73 73 65 6d 62 6c 65 20 6c 66 75 6e 29 29 29 29 0a 0a 3b 3b 20 43 43 4c 20 63 6f | (disassemble.lfun))))..;;.CCL.co |
| 1b3520 | 6d 6d 69 74 20 72 31 31 33 37 33 20 7c 20 67 7a 20 7c 20 32 30 30 38 2d 31 31 2d 31 36 20 31 36 | mmit.r11373.|.gz.|.2008-11-16.16 |
| 1b3540 | 3a 33 35 3a 32 38 20 2b 30 31 30 30 20 28 53 75 6e 2c 20 31 36 20 4e 6f 76 20 32 30 30 38 29 0a | :35:28.+0100.(Sun,.16.Nov.2008). |
| 1b3560 | 3b 3b 20 63 6f 6e 74 61 69 6e 73 20 73 6f 6d 65 20 69 6e 74 65 72 65 73 74 69 6e 67 20 64 65 74 | ;;.contains.some.interesting.det |
| 1b3580 | 61 69 6c 73 3a 0a 3b 3b 0a 3b 3b 20 53 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 61 72 65 20 | ails:.;;.;;.Source.location.are. |
| 1b35a0 | 72 65 63 6f 72 64 65 64 20 69 6e 20 43 43 4c 3a 53 4f 55 52 43 45 2d 4e 4f 54 45 27 73 2c 20 77 | recorded.in.CCL:SOURCE-NOTE's,.w |
| 1b35c0 | 68 69 63 68 20 61 72 65 20 6f 62 6a 65 63 74 73 0a 3b 3b 20 77 69 74 68 20 61 63 63 65 73 73 6f | hich.are.objects.;;.with.accesso |
| 1b35e0 | 72 73 20 43 43 4c 3a 53 4f 55 52 43 45 2d 4e 4f 54 45 2d 46 49 4c 45 4e 41 4d 45 2c 20 43 43 4c | rs.CCL:SOURCE-NOTE-FILENAME,.CCL |
| 1b3600 | 3a 53 4f 55 52 43 45 2d 4e 4f 54 45 2d 53 54 41 52 54 2d 50 4f 53 2c 0a 3b 3b 20 43 43 4c 3a 53 | :SOURCE-NOTE-START-POS,.;;.CCL:S |
| 1b3620 | 4f 55 52 43 45 2d 4e 4f 54 45 2d 45 4e 44 2d 50 4f 53 20 61 6e 64 20 43 43 4c 3a 53 4f 55 52 43 | OURCE-NOTE-END-POS.and.CCL:SOURC |
| 1b3640 | 45 2d 4e 4f 54 45 2d 54 45 58 54 2e 20 20 54 68 65 20 73 74 61 72 74 20 61 6e 64 20 65 6e 64 0a | E-NOTE-TEXT...The.start.and.end. |
| 1b3660 | 3b 3b 20 70 6f 73 69 74 69 6f 6e 73 20 61 72 65 20 66 69 6c 65 20 70 6f 73 69 74 69 6f 6e 73 20 | ;;.positions.are.file.positions. |
| 1b3680 | 28 6e 6f 74 20 63 68 61 72 61 63 74 65 72 20 70 6f 73 69 74 69 6f 6e 73 29 2e 20 20 54 68 65 20 | (not.character.positions)...The. |
| 1b36a0 | 74 65 78 74 20 77 69 6c 6c 0a 3b 3b 20 62 65 20 4e 49 4c 20 75 6e 6c 65 73 73 20 74 65 78 74 20 | text.will.;;.be.NIL.unless.text. |
| 1b36c0 | 72 65 63 6f 72 64 69 6e 67 20 77 61 73 20 6f 6e 20 61 74 20 72 65 61 64 2d 74 69 6d 65 2e 20 20 | recording.was.on.at.read-time... |
| 1b36e0 | 49 66 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 0a 3b 3b 20 66 69 6c 65 20 69 73 20 73 74 69 6c 6c | If.the.original.;;.file.is.still |
| 1b3700 | 20 61 76 61 69 6c 61 62 6c 65 2c 20 79 6f 75 20 63 61 6e 20 66 6f 72 63 65 20 6d 69 73 73 69 6e | .available,.you.can.force.missin |
| 1b3720 | 67 20 73 6f 75 72 63 65 20 74 65 78 74 20 74 6f 20 62 65 20 72 65 61 64 0a 3b 3b 20 66 72 6f 6d | g.source.text.to.be.read.;;.from |
| 1b3740 | 20 74 68 65 20 66 69 6c 65 20 61 74 20 72 75 6e 74 69 6d 65 20 76 69 61 20 43 43 4c 3a 45 4e 53 | .the.file.at.runtime.via.CCL:ENS |
| 1b3760 | 55 52 45 2d 53 4f 55 52 43 45 2d 4e 4f 54 45 2d 54 45 58 54 2e 0a 3b 3b 0a 3b 3b 20 53 6f 75 72 | URE-SOURCE-NOTE-TEXT..;;.;;.Sour |
| 1b3780 | 63 65 2d 6e 6f 74 65 27 73 20 61 72 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 64 65 | ce-note's.are.associated.with.de |
| 1b37a0 | 66 69 6e 69 74 69 6f 6e 73 20 28 76 69 61 20 72 65 63 6f 72 64 2d 73 6f 75 72 63 65 2d 66 69 6c | finitions.(via.record-source-fil |
| 1b37c0 | 65 29 0a 3b 3b 20 61 6e 64 20 61 6c 73 6f 20 73 74 6f 72 65 64 20 69 6e 20 66 75 6e 63 74 69 6f | e).;;.and.also.stored.in.functio |
| 1b37e0 | 6e 20 6f 62 6a 65 63 74 73 20 28 69 6e 63 6c 75 64 69 6e 67 20 61 6e 6f 6e 79 6d 6f 75 73 20 61 | n.objects.(including.anonymous.a |
| 1b3800 | 6e 64 20 6e 65 73 74 65 64 0a 3b 3b 20 66 75 6e 63 74 69 6f 6e 73 29 2e 20 20 54 68 65 20 66 6f | nd.nested.;;.functions)...The.fo |
| 1b3820 | 72 6d 65 72 20 63 61 6e 20 62 65 20 72 65 74 72 69 65 76 65 64 20 76 69 61 0a 3b 3b 20 43 43 4c | rmer.can.be.retrieved.via.;;.CCL |
| 1b3840 | 3a 46 49 4e 44 2d 44 45 46 49 4e 49 54 49 4f 4e 2d 53 4f 55 52 43 45 53 2c 20 74 68 65 20 6c 61 | :FIND-DEFINITION-SOURCES,.the.la |
| 1b3860 | 74 74 65 72 20 76 69 61 20 43 43 4c 3a 46 55 4e 43 54 49 4f 4e 2d 53 4f 55 52 43 45 2d 4e 4f 54 | tter.via.CCL:FUNCTION-SOURCE-NOT |
| 1b3880 | 45 2e 0a 3b 3b 0a 3b 3b 20 54 68 65 20 72 65 63 6f 72 64 69 6e 67 20 62 65 68 61 76 69 6f 72 20 | E..;;.;;.The.recording.behavior. |
| 1b38a0 | 69 73 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 79 20 74 68 65 20 6e 65 77 20 76 61 72 69 61 62 6c | is.controlled.by.the.new.variabl |
| 1b38c0 | 65 0a 3b 3b 20 43 43 4c 3a 2a 53 41 56 45 2d 53 4f 55 52 43 45 2d 4c 4f 43 41 54 49 4f 4e 53 2a | e.;;.CCL:*SAVE-SOURCE-LOCATIONS* |
| 1b38e0 | 3a 0a 3b 3b 0a 3b 3b 20 20 20 49 66 20 4e 49 4c 2c 20 64 6f 6e 27 74 20 73 74 6f 72 65 20 73 6f | :.;;.;;...If.NIL,.don't.store.so |
| 1b3900 | 75 72 63 65 2d 6e 6f 74 65 73 20 69 6e 20 66 75 6e 63 74 69 6f 6e 20 6f 62 6a 65 63 74 73 2c 20 | urce-notes.in.function.objects,. |
| 1b3920 | 61 6e 64 20 73 74 6f 72 65 20 6f 6e 6c 79 0a 3b 3b 20 20 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 | and.store.only.;;...the.filename |
| 1b3940 | 20 66 6f 72 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 74 68 65 20 6c 61 74 74 65 72 20 6f 6e 6c | .for.definitions.(the.latter.onl |
| 1b3960 | 79 20 69 66 0a 3b 3b 20 20 20 2a 72 65 63 6f 72 64 2d 73 6f 75 72 63 65 2d 66 69 6c 65 2a 20 69 | y.if.;;...*record-source-file*.i |
| 1b3980 | 73 20 74 72 75 65 29 2e 0a 3b 3b 0a 3b 3b 20 20 20 49 66 20 54 2c 20 73 74 6f 72 65 20 73 6f 75 | s.true)..;;.;;...If.T,.store.sou |
| 1b39a0 | 72 63 65 2d 6e 6f 74 65 73 2c 20 69 6e 63 6c 75 64 69 6e 67 20 61 20 63 6f 70 79 20 6f 66 20 74 | rce-notes,.including.a.copy.of.t |
| 1b39c0 | 68 65 20 6f 72 69 67 69 6e 61 6c 20 73 6f 75 72 63 65 0a 3b 3b 20 20 20 74 65 78 74 2c 20 66 6f | he.original.source.;;...text,.fo |
| 1b39e0 | 72 20 66 75 6e 63 74 69 6f 6e 20 6f 62 6a 65 63 74 73 20 61 6e 64 20 64 65 66 69 6e 69 74 69 6f | r.function.objects.and.definitio |
| 1b3a00 | 6e 73 20 28 74 68 65 20 6c 61 74 74 65 72 20 6f 6e 6c 79 20 69 66 0a 3b 3b 20 20 20 2a 72 65 63 | ns.(the.latter.only.if.;;...*rec |
| 1b3a20 | 6f 72 64 2d 73 6f 75 72 63 65 2d 66 69 6c 65 2a 20 69 73 20 74 72 75 65 29 2e 0a 3b 3b 0a 3b 3b | ord-source-file*.is.true)..;;.;; |
| 1b3a40 | 20 20 20 49 66 20 3a 4e 4f 2d 54 45 58 54 2c 20 73 74 6f 72 65 20 73 6f 75 72 63 65 2d 6e 6f 74 | ...If.:NO-TEXT,.store.source-not |
| 1b3a60 | 65 73 2c 20 62 75 74 20 77 69 74 68 6f 75 74 20 73 61 76 65 64 20 74 65 78 74 2c 20 66 6f 72 0a | es,.but.without.saved.text,.for. |
| 1b3a80 | 3b 3b 20 20 20 66 75 6e 63 74 69 6f 6e 20 6f 62 6a 65 63 74 73 20 61 6e 64 20 64 65 66 69 6e 74 | ;;...function.objects.and.defint |
| 1b3aa0 | 69 6f 6e 73 20 28 74 68 65 20 6c 61 74 74 65 72 20 6f 6e 6c 79 20 69 66 0a 3b 3b 20 20 20 2a 72 | ions.(the.latter.only.if.;;...*r |
| 1b3ac0 | 65 63 6f 72 64 2d 73 6f 75 72 63 65 2d 66 69 6c 65 2a 20 69 73 20 74 72 75 65 29 2e 20 20 54 68 | ecord-source-file*.is.true)...Th |
| 1b3ae0 | 69 73 20 69 73 20 74 68 65 20 64 65 66 61 75 6c 74 2e 0a 3b 3b 0a 3b 3b 20 50 43 20 74 6f 20 73 | is.is.the.default..;;.;;.PC.to.s |
| 1b3b00 | 6f 75 72 63 65 20 6d 61 70 70 69 6e 67 20 69 73 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 79 20 74 | ource.mapping.is.controlled.by.t |
| 1b3b20 | 68 65 20 6e 65 77 20 76 61 72 69 61 62 6c 65 0a 3b 3b 20 43 43 4c 3a 2a 52 45 43 4f 52 44 2d 50 | he.new.variable.;;.CCL:*RECORD-P |
| 1b3b40 | 43 2d 4d 41 50 50 49 4e 47 2a 2e 20 20 49 66 20 74 72 75 65 20 28 74 68 65 20 64 65 66 61 75 6c | C-MAPPING*...If.true.(the.defaul |
| 1b3b60 | 74 29 2c 20 66 75 6e 63 74 69 6f 6e 73 20 73 74 6f 72 65 20 61 0a 3b 3b 20 63 6f 6d 70 72 65 73 | t),.functions.store.a.;;.compres |
| 1b3b80 | 73 65 64 20 74 61 62 6c 65 20 6d 61 70 70 69 6e 67 20 70 63 20 6f 66 66 73 65 74 73 20 74 6f 20 | sed.table.mapping.pc.offsets.to. |
| 1b3ba0 | 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 73 2e 0a | corresponding.source.locations.. |
| 1b3bc0 | 3b 3b 20 54 68 69 73 20 63 61 6e 20 62 65 20 72 65 74 72 69 65 76 65 64 20 62 79 20 28 43 43 4c | ;;.This.can.be.retrieved.by.(CCL |
| 1b3be0 | 3a 46 49 4e 44 2d 53 4f 55 52 43 45 2d 4e 4f 54 45 2d 41 54 2d 50 43 20 66 75 6e 63 74 69 6f 6e | :FIND-SOURCE-NOTE-AT-PC.function |
| 1b3c00 | 20 70 63 29 0a 3b 3b 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 20 61 20 73 6f 75 72 63 65 2d 6e | .pc).;;.which.returns.a.source-n |
| 1b3c20 | 6f 74 65 20 66 6f 72 20 74 68 65 20 73 6f 75 72 63 65 20 61 74 20 6f 66 66 73 65 74 20 70 63 20 | ote.for.the.source.at.offset.pc. |
| 1b3c40 | 69 6e 20 74 68 65 0a 3b 3b 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 | in.the.;;.function...(defun.func |
| 1b3c60 | 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 29 0a | tion-source-location.(function). |
| 1b3c80 | 20 20 28 73 6f 75 72 63 65 2d 6e 6f 74 65 2d 74 6f 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | ..(source-note-to-source-locatio |
| 1b3ca0 | 6e 0a 20 20 20 28 6f 72 20 28 63 63 6c 3a 66 75 6e 63 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6e 6f | n....(or.(ccl:function-source-no |
| 1b3cc0 | 74 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 | te.function)........(function-na |
| 1b3ce0 | 6d 65 2d 73 6f 75 72 63 65 2d 6e 6f 74 65 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 28 6c 61 | me-source-note.function))....(la |
| 1b3d00 | 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 46 75 6e 63 74 69 | mbda.()......(format.nil."Functi |
| 1b3d20 | 6f 6e 20 68 61 73 20 6e 6f 20 73 6f 75 72 63 65 20 6e 6f 74 65 3a 20 7e 41 22 20 66 75 6e 63 74 | on.has.no.source.note:.~A".funct |
| 1b3d40 | 69 6f 6e 29 29 0a 20 20 20 28 63 63 6c 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 63 | ion))....(ccl:function-name.func |
| 1b3d60 | 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 63 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 | tion)))..(defun.pc-source-locati |
| 1b3d80 | 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 20 70 63 29 0a 20 20 28 73 6f 75 72 63 65 2d 6e 6f 74 65 2d | on.(function.pc)...(source-note- |
| 1b3da0 | 74 6f 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 28 6f 72 20 28 63 63 6c 3a 66 | to-source-location....(or.(ccl:f |
| 1b3dc0 | 69 6e 64 2d 73 6f 75 72 63 65 2d 6e 6f 74 65 2d 61 74 2d 70 63 20 66 75 6e 63 74 69 6f 6e 20 70 | ind-source-note-at-pc.function.p |
| 1b3de0 | 63 29 0a 20 20 20 20 20 20 20 28 63 63 6c 3a 66 75 6e 63 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6e | c)........(ccl:function-source-n |
| 1b3e00 | 6f 74 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6e | ote.function)........(function-n |
| 1b3e20 | 61 6d 65 2d 73 6f 75 72 63 65 2d 6e 6f 74 65 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 28 6c | ame-source-note.function))....(l |
| 1b3e40 | 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4e 6f 20 73 6f | ambda.()......(format.nil."No.so |
| 1b3e60 | 75 72 63 65 20 6e 6f 74 65 20 61 74 20 50 43 3a 20 7e 61 5b 7e 64 5d 22 20 66 75 6e 63 74 69 6f | urce.note.at.PC:.~a[~d]".functio |
| 1b3e80 | 6e 20 70 63 29 29 0a 20 20 20 28 63 63 6c 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e | n.pc))....(ccl:function-name.fun |
| 1b3ea0 | 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 73 | ction)))..(defun.function-name-s |
| 1b3ec0 | 6f 75 72 63 65 2d 6e 6f 74 65 20 28 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 64 65 66 73 20 28 | ource-note.(fun)...(let.((defs.( |
| 1b3ee0 | 63 63 6c 3a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 73 20 28 63 63 6c | ccl:find-definition-sources.(ccl |
| 1b3f00 | 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 29 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 | :function-name.fun).'function))) |
| 1b3f20 | 0a 20 20 20 20 28 61 6e 64 20 64 65 66 73 0a 20 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 | .....(and.defs..........(destruc |
| 1b3f40 | 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 28 74 79 70 65 20 2e 20 6e 61 6d 65 29 20 73 72 63 6c 6f | turing-bind.((type...name).srclo |
| 1b3f60 | 63 20 2e 20 73 72 63 6c 6f 63 73 29 20 28 63 61 72 20 64 65 66 73 29 0a 20 20 20 20 20 20 20 20 | c...srclocs).(car.defs)......... |
| 1b3f80 | 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 74 79 70 65 20 6e 61 6d 65 20 73 72 | ...(declare.(ignore.type.name.sr |
| 1b3fa0 | 63 6c 6f 63 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 73 72 63 6c 6f 63 29 29 29 29 0a 0a 28 | clocs))............srcloc))))..( |
| 1b3fc0 | 64 65 66 75 6e 20 73 6f 75 72 63 65 2d 6e 6f 74 65 2d 74 6f 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 | defun.source-note-to-source-loca |
| 1b3fe0 | 74 69 6f 6e 20 28 73 6f 75 72 63 65 20 69 66 2d 6e 69 6c 2d 74 68 75 6e 6b 20 26 6f 70 74 69 6f | tion.(source.if-nil-thunk.&optio |
| 1b4000 | 6e 61 6c 20 6e 61 6d 65 29 0a 20 20 28 6c 61 62 65 6c 73 20 28 28 66 69 6c 65 6e 61 6d 65 2d 74 | nal.name)...(labels.((filename-t |
| 1b4020 | 6f 2d 62 75 66 66 65 72 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | o-buffer.(filename)............. |
| 1b4040 | 20 28 63 6f 6e 64 20 28 28 67 65 74 68 61 73 68 20 66 69 6c 65 6e 61 6d 65 20 2a 74 65 6d 70 2d | .(cond.((gethash.filename.*temp- |
| 1b4060 | 66 69 6c 65 2d 6d 61 70 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | file-map*).....................( |
| 1b4080 | 6c 69 73 74 20 3a 62 75 66 66 65 72 20 28 67 65 74 68 61 73 68 20 66 69 6c 65 6e 61 6d 65 20 2a | list.:buffer.(gethash.filename.* |
| 1b40a0 | 74 65 6d 70 2d 66 69 6c 65 2d 6d 61 70 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | temp-file-map*)))............... |
| 1b40c0 | 20 20 20 20 20 28 28 70 72 6f 62 65 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 | .....((probe-file.filename)..... |
| 1b40e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 63 63 6c | ................(list.:file.(ccl |
| 1b4100 | 3a 6e 61 74 69 76 65 2d 74 72 61 6e 73 6c 61 74 65 64 2d 6e 61 6d 65 73 74 72 69 6e 67 0a 20 20 | :native-translated-namestring... |
| 1b4120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1b4140 | 74 72 75 65 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | truename.filename))))........... |
| 1b4160 | 20 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 46 69 6c 65 20 7e 73 20 64 6f 65 73 | .........(t.(error."File.~s.does |
| 1b4180 | 6e 27 74 20 65 78 69 73 74 22 20 66 69 6c 65 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 28 68 61 | n't.exist".filename))))).....(ha |
| 1b41a0 | 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 63 63 6c 3a 73 | ndler-case.........(cond.((ccl:s |
| 1b41c0 | 6f 75 72 63 65 2d 6e 6f 74 65 2d 70 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ource-note-p.source)............ |
| 1b41e0 | 20 20 20 20 28 6c 65 74 2a 20 28 28 66 75 6c 6c 2d 74 65 78 74 20 28 63 63 6c 3a 73 6f 75 72 63 | ....(let*.((full-text.(ccl:sourc |
| 1b4200 | 65 2d 6e 6f 74 65 2d 74 65 78 74 20 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | e-note-text.source))............ |
| 1b4220 | 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 20 28 63 63 6c 3a 73 6f 75 72 63 | ...........(file-name.(ccl:sourc |
| 1b4240 | 65 2d 6e 6f 74 65 2d 66 69 6c 65 6e 61 6d 65 20 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 20 | e-note-filename.source))........ |
| 1b4260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 2d 70 6f 73 20 28 63 63 6c 3a 73 | ...............(start-pos.(ccl:s |
| 1b4280 | 6f 75 72 63 65 2d 6e 6f 74 65 2d 73 74 61 72 74 2d 70 6f 73 20 73 6f 75 72 63 65 29 29 29 0a 20 | ource-note-start-pos.source))).. |
| 1b42a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 | ................(make-location.. |
| 1b42c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 66 69 6c 65 2d 6e 61 6d 65 | .................(when.file-name |
| 1b42e0 | 20 28 66 69 6c 65 6e 61 6d 65 2d 74 6f 2d 62 75 66 66 65 72 20 28 70 61 74 68 6e 61 6d 65 20 66 | .(filename-to-buffer.(pathname.f |
| 1b4300 | 69 6c 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 | ile-name)))...................(w |
| 1b4320 | 68 65 6e 20 73 74 61 72 74 2d 70 6f 73 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 28 31 | hen.start-pos.(list.:position.(1 |
| 1b4340 | 2b 20 73 74 61 72 74 2d 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | +.start-pos))).................. |
| 1b4360 | 20 28 77 68 65 6e 20 66 75 6c 6c 2d 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(when.full-text................ |
| 1b4380 | 20 20 20 20 20 28 6c 69 73 74 20 3a 73 6e 69 70 70 65 74 20 28 73 75 62 73 65 71 20 66 75 6c 6c | .....(list.:snippet.(subseq.full |
| 1b43a0 | 2d 74 65 78 74 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -text.0......................... |
| 1b43c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 69 6e 20 34 30 20 28 6c 65 6e 67 | ...................(min.40.(leng |
| 1b43e0 | 74 68 20 66 75 6c 6c 2d 74 65 78 74 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | th.full-text))))))))............ |
| 1b4400 | 20 20 20 28 28 61 6e 64 20 73 6f 75 72 63 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ...((and.source.name)........... |
| 1b4420 | 20 20 20 20 20 3b 3b 20 54 68 69 73 20 62 72 61 6e 63 68 20 69 73 20 70 72 6f 62 61 62 6c 79 20 | .....;;.This.branch.is.probably. |
| 1b4440 | 6e 65 76 65 72 20 75 73 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d | never.used................(make- |
| 1b4460 | 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 6e 61 | location.................(filena |
| 1b4480 | 6d 65 2d 74 6f 2d 62 75 66 66 65 72 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | me-to-buffer.source)............ |
| 1b44a0 | 20 20 20 20 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 70 72 69 6e 63 | .....(list.:function-name.(princ |
| 1b44c0 | 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -to-string...................... |
| 1b44e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 | .................(if.(functionp. |
| 1b4500 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name)........................... |
| 1b4520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 | ................(ccl:function-na |
| 1b4540 | 6d 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me.name)........................ |
| 1b4560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 | ...................name))))).... |
| 1b4580 | 20 20 20 20 20 20 20 20 20 20 20 28 74 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 75 6e 63 61 6c 6c | ...........(t.`(:error.,(funcall |
| 1b45a0 | 20 69 66 2d 6e 69 6c 2d 74 68 75 6e 6b 29 29 29 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 | .if-nil-thunk)))).......(error.( |
| 1b45c0 | 63 29 20 60 28 3a 65 72 72 6f 72 20 2c 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 29 | c).`(:error.,(princ-to-string.c) |
| 1b45e0 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 6c 70 68 61 74 69 7a 65 72 2d 64 65 66 69 6e 69 74 | )))))..(defun.alphatizer-definit |
| 1b4600 | 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 61 6c 70 68 61 20 28 67 65 74 68 | ions.(name)...(let.((alpha.(geth |
| 1b4620 | 61 73 68 20 6e 61 6d 65 20 63 63 6c 3a 3a 2a 6e 78 31 2d 61 6c 70 68 61 74 69 7a 65 72 73 2a 29 | ash.name.ccl::*nx1-alphatizers*) |
| 1b4640 | 29 29 0a 20 20 20 20 28 61 6e 64 20 61 6c 70 68 61 20 28 63 63 6c 3a 66 69 6e 64 2d 64 65 66 69 | )).....(and.alpha.(ccl:find-defi |
| 1b4660 | 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 73 20 61 6c 70 68 61 29 29 29 29 0a 0a 28 64 65 66 75 6e | nition-sources.alpha))))..(defun |
| 1b4680 | 20 70 32 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 | .p2-definitions.(name)...(let.(( |
| 1b46a0 | 6e 78 31 2d 6f 70 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 63 63 6c 3a 3a 2a 6e 78 31 2d 6f | nx1-op.(gethash.name.ccl::*nx1-o |
| 1b46c0 | 70 65 72 61 74 6f 72 73 2a 29 29 29 0a 20 20 20 20 28 61 6e 64 20 6e 78 31 2d 6f 70 0a 20 20 20 | perators*))).....(and.nx1-op.... |
| 1b46e0 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 73 70 61 74 63 68 20 28 63 63 6c 3a 3a 62 61 63 6b | ......(let.((dispatch.(ccl::back |
| 1b4700 | 65 6e 64 2d 70 32 2d 64 69 73 70 61 74 63 68 20 63 63 6c 3a 3a 2a 74 61 72 67 65 74 2d 62 61 63 | end-p2-dispatch.ccl::*target-bac |
| 1b4720 | 6b 65 6e 64 2a 29 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 61 72 72 61 79 | kend*)).)............(and.(array |
| 1b4740 | 2d 69 6e 2d 62 6f 75 6e 64 73 2d 70 20 64 69 73 70 61 74 63 68 20 6e 78 31 2d 6f 70 29 0a 20 20 | -in-bounds-p.dispatch.nx1-op)... |
| 1b4760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 32 20 28 61 72 65 66 20 64 69 | ..............(let.((p2.(aref.di |
| 1b4780 | 73 70 61 74 63 68 20 6e 78 31 2d 6f 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | spatch.nx1-op)))................ |
| 1b47a0 | 20 20 20 28 61 6e 64 20 70 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(and.p2...................... |
| 1b47c0 | 20 20 28 63 63 6c 3a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 73 20 70 | ..(ccl:find-definition-sources.p |
| 1b47e0 | 32 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 | 2))))))))..(defimplementation.fi |
| 1b4800 | 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 64 | nd-definitions.(name)...(let.((d |
| 1b4820 | 65 66 73 20 28 61 70 70 65 6e 64 20 28 6f 72 20 28 63 63 6c 3a 66 69 6e 64 2d 64 65 66 69 6e 69 | efs.(append.(or.(ccl:find-defini |
| 1b4840 | 74 69 6f 6e 2d 73 6f 75 72 63 65 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion-sources.name).............. |
| 1b4860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 | .............(and.(symbolp.name) |
| 1b4880 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1b48a0 | 28 66 62 6f 75 6e 64 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (fboundp.name).................. |
| 1b48c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 | ..............(ccl:find-definiti |
| 1b48e0 | 6f 6e 2d 73 6f 75 72 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on-sources...................... |
| 1b4900 | 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 | ...........(symbol-function.name |
| 1b4920 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6c 70 68 | )))).......................(alph |
| 1b4940 | 61 74 69 7a 65 72 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | atizer-definitions.name)........ |
| 1b4960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 32 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e | ...............(p2-definitions.n |
| 1b4980 | 61 6d 65 29 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 28 74 79 70 65 20 2e 20 6e | ame)))).....(loop.for.((type...n |
| 1b49a0 | 61 6d 65 29 20 2e 20 73 6f 75 72 63 65 73 29 20 69 6e 20 64 65 66 73 0a 20 20 20 20 20 20 20 20 | ame)...sources).in.defs......... |
| 1b49c0 | 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 | ..collect.(list.(definition-name |
| 1b49e0 | 20 74 79 70 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .type.name)..................... |
| 1b4a00 | 20 20 20 20 28 73 6f 75 72 63 65 2d 6e 6f 74 65 2d 74 6f 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 | ....(source-note-to-source-locat |
| 1b4a20 | 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 | ion..........................(fi |
| 1b4a40 | 6e 64 2d 69 66 2d 6e 6f 74 20 23 27 6e 75 6c 6c 20 73 6f 75 72 63 65 73 29 0a 20 20 20 20 20 20 | nd-if-not.#'null.sources)....... |
| 1b4a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 22 4e | ...................(lambda.()."N |
| 1b4a80 | 6f 20 73 6f 75 72 63 65 2d 6e 6f 74 65 20 61 76 61 69 6c 61 62 6c 65 22 29 0a 20 20 20 20 20 20 | o.source-note.available")....... |
| 1b4aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 | ...................name)))))..(d |
| 1b4ac0 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 73 6f 75 72 63 65 2d 6c 6f 63 | efimplementation.find-source-loc |
| 1b4ae0 | 61 74 69 6f 6e 20 28 6f 62 6a 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 65 66 73 20 28 63 63 6c 3a | ation.(obj)...(let*.((defs.(ccl: |
| 1b4b00 | 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 73 20 6f 62 6a 29 29 0a 20 20 | find-definition-sources.obj))... |
| 1b4b20 | 20 20 20 20 20 20 20 28 62 65 73 74 2d 64 65 66 20 28 6f 72 20 28 66 69 6e 64 20 28 63 63 6c 3a | .......(best-def.(or.(find.(ccl: |
| 1b4b40 | 6e 61 6d 65 2d 6f 66 20 6f 62 6a 29 20 64 65 66 73 20 3a 6b 65 79 20 23 27 63 64 61 72 20 3a 74 | name-of.obj).defs.:key.#'cdar.:t |
| 1b4b60 | 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | est.#'equal).................... |
| 1b4b80 | 20 20 20 20 28 63 61 72 20 64 65 66 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 65 20 | ....(car.defs)))..........(note. |
| 1b4ba0 | 28 66 69 6e 64 2d 69 66 2d 6e 6f 74 20 23 27 6e 75 6c 6c 20 28 63 64 72 20 62 65 73 74 2d 64 65 | (find-if-not.#'null.(cdr.best-de |
| 1b4bc0 | 66 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 6e 6f 74 65 0a 20 20 20 20 20 20 28 73 6f 75 72 | f)))).....(when.note.......(sour |
| 1b4be0 | 63 65 2d 6e 6f 74 65 2d 74 6f 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 | ce-note-to-source-location...... |
| 1b4c00 | 20 20 6e 6f 74 65 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 22 4e 6f 20 73 6f 75 | ..note........(lambda.()."No.sou |
| 1b4c20 | 72 63 65 20 6e 6f 74 65 20 61 76 61 69 6c 61 62 6c 65 22 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | rce.note.available")))))..(defun |
| 1b4c40 | 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 28 74 79 70 65 20 6f 62 6a 65 63 74 29 0a 20 | .definition-name.(type.object).. |
| 1b4c60 | 20 28 63 61 73 65 20 28 63 63 6c 3a 64 65 66 69 6e 69 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 | .(case.(ccl:definition-type-name |
| 1b4c80 | 20 74 79 70 65 29 0a 20 20 20 20 28 6d 65 74 68 6f 64 20 28 63 63 6c 3a 6e 61 6d 65 2d 6f 66 20 | .type).....(method.(ccl:name-of. |
| 1b4ca0 | 6f 62 6a 65 63 74 29 29 0a 20 20 20 20 28 74 20 28 6c 69 73 74 20 28 63 63 6c 3a 64 65 66 69 6e | object)).....(t.(list.(ccl:defin |
| 1b4cc0 | 69 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 20 74 79 70 65 29 20 28 63 63 6c 3a 6e 61 6d 65 2d | ition-type-name.type).(ccl:name- |
| 1b4ce0 | 6f 66 20 6f 62 6a 65 63 74 29 29 29 29 29 0a 0a 3b 3b 3b 20 50 61 63 6b 61 67 65 73 0a 0a 23 2b | of.object)))))..;;;.Packages..#+ |
| 1b4d00 | 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 0a 28 64 65 66 69 6d 70 6c | package-local-nicknames.(defimpl |
| 1b4d20 | 65 6d 65 6e 74 61 74 69 6f 6e 20 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d | ementation.package-local-nicknam |
| 1b4d40 | 65 73 20 28 70 61 63 6b 61 67 65 29 0a 20 20 28 63 63 6c 3a 70 61 63 6b 61 67 65 2d 6c 6f 63 61 | es.(package)...(ccl:package-loca |
| 1b4d60 | 6c 2d 6e 69 63 6b 6e 61 6d 65 73 20 70 61 63 6b 61 67 65 29 29 0a 0a 3b 3b 3b 20 55 74 69 6c 69 | l-nicknames.package))..;;;.Utili |
| 1b4d80 | 74 69 65 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 | ties..(defimplementation.describ |
| 1b4da0 | 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c | e-symbol-for-emacs.(symbol)...(l |
| 1b4dc0 | 65 74 20 28 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 64 6f | et.((result.'())).....(flet.((do |
| 1b4de0 | 63 20 28 6b 69 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 28 73 79 6d 20 73 79 6d 62 6f 6c 29 29 0a | c.(kind.&optional.(sym.symbol)). |
| 1b4e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 | .............(or.(documentation. |
| 1b4e20 | 73 79 6d 20 6b 69 6e 64 29 20 3a 6e 6f 74 2d 64 6f 63 75 6d 65 6e 74 65 64 29 29 0a 20 20 20 20 | sym.kind).:not-documented))..... |
| 1b4e40 | 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 20 28 70 72 6f 70 65 72 74 79 20 76 61 6c | .......(maybe-push.(property.val |
| 1b4e60 | 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 76 61 6c 75 65 0a 20 20 20 | ue)..............(when.value.... |
| 1b4e80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 28 6c 69 73 74 2a 20 | ............(setf.result.(list*. |
| 1b4ea0 | 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 20 72 65 73 75 6c 74 29 29 29 29 29 0a 20 20 20 20 20 | property.value.result)))))...... |
| 1b4ec0 | 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 76 61 72 69 61 62 6c 65 20 28 77 | .(maybe-push........:variable.(w |
| 1b4ee0 | 68 65 6e 20 28 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | hen.(boundp.symbol)............. |
| 1b4f00 | 20 20 20 20 20 20 20 28 64 6f 63 20 27 76 61 72 69 61 62 6c 65 29 29 29 0a 20 20 20 20 20 20 28 | .......(doc.'variable))).......( |
| 1b4f20 | 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 66 75 6e 63 74 69 6f 6e 20 28 69 66 20 | maybe-push........:function.(if. |
| 1b4f40 | 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (fboundp.symbol)................ |
| 1b4f60 | 20 20 20 20 20 20 28 64 6f 63 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 6d | ......(doc.'function))).......(m |
| 1b4f80 | 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 73 65 74 66 20 28 6c 65 74 20 28 28 73 65 | aybe-push........:setf.(let.((se |
| 1b4fa0 | 74 66 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 63 63 6c 3a 73 65 74 66 2d 66 75 6e 63 74 | tf-function-name.(ccl:setf-funct |
| 1b4fc0 | 69 6f 6e 2d 73 70 65 63 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion-spec-name................... |
| 1b4fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 65 74 66 20 2c 73 79 | ......................`(setf.,sy |
| 1b5000 | 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 | mbol))))................(when.(f |
| 1b5020 | 62 6f 75 6e 64 70 20 73 65 74 66 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 20 20 20 | boundp.setf-function-name)...... |
| 1b5040 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 66 75 6e 63 74 69 6f 6e 20 73 65 74 66 2d | ............(doc.'function.setf- |
| 1b5060 | 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 | function-name)))).......(maybe-p |
| 1b5080 | 75 73 68 0a 20 20 20 20 20 20 20 3a 74 79 70 65 20 28 77 68 65 6e 20 28 63 63 6c 3a 74 79 70 65 | ush........:type.(when.(ccl:type |
| 1b50a0 | 2d 73 70 65 63 69 66 69 65 72 2d 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -specifier-p.symbol)............ |
| 1b50c0 | 20 20 20 20 28 64 6f 63 20 27 74 79 70 65 29 29 29 0a 20 20 20 20 20 20 72 65 73 75 6c 74 29 29 | ....(doc.'type))).......result)) |
| 1b50e0 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 64 | )..(defimplementation.describe-d |
| 1b5100 | 65 66 69 6e 69 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 20 6e 61 6d 65 73 70 61 63 65 29 0a 20 20 28 | efinition.(symbol.namespace)...( |
| 1b5120 | 65 63 61 73 65 20 6e 61 6d 65 73 70 61 63 65 0a 20 20 20 20 28 3a 76 61 72 69 61 62 6c 65 0a 20 | ecase.namespace.....(:variable.. |
| 1b5140 | 20 20 20 20 28 64 65 73 63 72 69 62 65 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 28 28 3a 66 75 | ....(describe.symbol)).....((:fu |
| 1b5160 | 6e 63 74 69 6f 6e 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 28 | nction.:generic-function)......( |
| 1b5180 | 64 65 73 63 72 69 62 65 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c | describe.(symbol-function.symbol |
| 1b51a0 | 29 29 29 0a 20 20 20 20 28 3a 73 65 74 66 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 28 63 | ))).....(:setf......(describe.(c |
| 1b51c0 | 63 6c 3a 73 65 74 66 2d 66 75 6e 63 74 69 6f 6e 2d 73 70 65 63 2d 6e 61 6d 65 20 60 28 73 65 74 | cl:setf-function-spec-name.`(set |
| 1b51e0 | 66 20 2c 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 28 3a 63 6c 61 73 73 0a 20 20 20 20 20 28 | f.,symbol)))).....(:class......( |
| 1b5200 | 64 65 73 63 72 69 62 65 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 29 29 29 0a 20 | describe.(find-class.symbol))).. |
| 1b5220 | 20 20 20 28 3a 74 79 70 65 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 28 6f 72 20 28 66 69 | ...(:type......(describe.(or.(fi |
| 1b5240 | 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 20 6e 69 6c 29 20 73 79 6d 62 6f 6c 29 29 29 29 29 | nd-class.symbol.nil).symbol))))) |
| 1b5260 | 0a 0a 3b 3b 20 73 70 65 63 20 3a 3a 3d 20 28 3a 64 65 66 6d 65 74 68 6f 64 20 3c 6e 61 6d 65 3e | ..;;.spec.::=.(:defmethod.<name> |
| 1b5280 | 20 7b 3c 71 75 61 6c 69 66 69 65 72 3e 7d 2a 20 28 7b 3c 73 70 65 63 69 61 6c 69 7a 65 72 3e 7d | .{<qualifier>}*.({<specializer>} |
| 1b52a0 | 2a 29 29 0a 28 64 65 66 75 6e 20 70 61 72 73 65 2d 64 65 66 6d 65 74 68 6f 64 2d 73 70 65 63 20 | *)).(defun.parse-defmethod-spec. |
| 1b52c0 | 28 73 70 65 63 29 0a 20 20 28 76 61 6c 75 65 73 20 28 73 65 63 6f 6e 64 20 73 70 65 63 29 0a 20 | (spec)...(values.(second.spec).. |
| 1b52e0 | 20 20 20 20 20 20 20 20 20 28 73 75 62 73 65 71 20 73 70 65 63 20 32 20 28 70 6f 73 69 74 69 6f | .........(subseq.spec.2.(positio |
| 1b5300 | 6e 2d 69 66 20 23 27 63 6f 6e 73 70 20 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 | n-if.#'consp.spec))...........(f |
| 1b5320 | 69 6e 64 2d 69 66 20 23 27 63 6f 6e 73 70 20 28 63 64 64 72 20 73 70 65 63 29 29 29 29 0a 0a 28 | ind-if.#'consp.(cddr.spec))))..( |
| 1b5340 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 28 | defimplementation.toggle-trace.( |
| 1b5360 | 73 70 65 63 29 0a 20 20 22 57 65 20 63 75 72 72 65 6e 74 6c 79 20 69 67 6e 6f 72 65 20 6a 75 73 | spec)..."We.currently.ignore.jus |
| 1b5380 | 74 20 61 62 6f 75 74 20 65 76 65 72 79 74 68 69 6e 67 2e 22 0a 20 20 28 6c 65 74 20 28 28 77 68 | t.about.everything."...(let.((wh |
| 1b53a0 | 61 74 20 28 65 63 61 73 65 20 28 66 69 72 73 74 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 | at.(ecase.(first.spec).......... |
| 1b53c0 | 20 20 20 20 20 20 20 28 28 73 65 74 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......((setf).................. |
| 1b53e0 | 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 66 67 65 6e 65 | spec).................((:defgene |
| 1b5400 | 72 69 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 63 6f 6e 64 20 73 70 | ric)..................(second.sp |
| 1b5420 | 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 66 6d 65 74 68 6f | ec)).................((:defmetho |
| 1b5440 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 | d)..................(multiple-va |
| 1b5460 | 6c 75 65 2d 62 69 6e 64 20 28 6e 61 6d 65 20 71 75 61 6c 69 66 69 65 72 73 20 73 70 65 63 69 61 | lue-bind.(name.qualifiers.specia |
| 1b5480 | 6c 69 7a 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 | lizers)......................(pa |
| 1b54a0 | 72 73 65 2d 64 65 66 6d 65 74 68 6f 64 2d 73 70 65 63 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 | rse-defmethod-spec.spec)........ |
| 1b54c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 6d 65 74 68 6f 64 20 28 66 64 65 66 69 6e | ............(find-method.(fdefin |
| 1b54e0 | 69 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ition.name)..................... |
| 1b5500 | 20 20 20 20 20 20 20 20 20 20 20 20 71 75 61 6c 69 66 69 65 72 73 0a 20 20 20 20 20 20 20 20 20 | ............qualifiers.......... |
| 1b5520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 65 63 69 61 6c 69 7a | .......................specializ |
| 1b5540 | 65 72 73 29 29 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6d 65 6d 62 65 72 20 77 68 61 | ers)))))).....(cond.((member.wha |
| 1b5560 | 74 20 28 74 72 61 63 65 29 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 20 20 20 20 20 | t.(trace).:test.#'equal)........ |
| 1b5580 | 20 20 20 20 28 63 63 6c 3a 3a 25 75 6e 74 72 61 63 65 20 77 68 61 74 29 0a 20 20 20 20 20 20 20 | ....(ccl::%untrace.what)........ |
| 1b55a0 | 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 6e 6f 77 20 75 6e 74 72 61 | ....(format.nil."~S.is.now.untra |
| 1b55c0 | 63 65 64 2e 22 20 77 68 61 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 | ced.".what))...........(t....... |
| 1b55e0 | 20 20 20 20 20 28 63 63 6c 3a 74 72 61 63 65 2d 66 75 6e 63 74 69 6f 6e 20 77 68 61 74 29 0a 20 | .....(ccl:trace-function.what).. |
| 1b5600 | 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 6e 6f 77 | ..........(format.nil."~S.is.now |
| 1b5620 | 20 74 72 61 63 65 64 2e 22 20 77 68 61 74 29 29 29 29 29 0a 0a 3b 3b 3b 20 4d 61 63 72 6f 65 78 | .traced.".what)))))..;;;.Macroex |
| 1b5640 | 70 61 6e 73 69 6f 6e 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 63 72 | pansion..(defimplementation.macr |
| 1b5660 | 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 | oexpand-all.(form.&optional.env) |
| 1b5680 | 0a 20 20 28 63 63 6c 3a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 66 6f 72 6d 20 65 6e 76 | ...(ccl:macroexpand-all.form.env |
| 1b56a0 | 29 29 0a 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d | ))..;;;;.Inspection..(defun.comm |
| 1b56c0 | 65 6e 74 2d 74 79 70 65 2d 70 20 28 74 79 70 65 29 0a 20 20 28 6f 72 20 28 65 71 20 74 79 70 65 | ent-type-p.(type)...(or.(eq.type |
| 1b56e0 | 20 3a 63 6f 6d 6d 65 6e 74 29 0a 20 20 20 20 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 74 79 70 | .:comment).......(and.(consp.typ |
| 1b5700 | 65 29 20 28 65 71 20 28 63 61 72 20 74 79 70 65 29 20 3a 63 6f 6d 6d 65 6e 74 29 29 29 29 0a 0a | e).(eq.(car.type).:comment)))).. |
| 1b5720 | 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 74 29 29 | (defmethod.emacs-inspect.((o.t)) |
| 1b5740 | 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e 73 70 65 63 74 6f 72 3a 2a 69 6e 73 70 65 63 74 6f 72 2d | ...(let*.((inspector:*inspector- |
| 1b5760 | 64 69 73 61 73 73 65 6d 62 6c 79 2a 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 69 20 28 69 6e 73 | disassembly*.t)..........(i.(ins |
| 1b5780 | 70 65 63 74 6f 72 3a 6d 61 6b 65 2d 69 6e 73 70 65 63 74 6f 72 20 6f 29 29 0a 20 20 20 20 20 20 | pector:make-inspector.o))....... |
| 1b57a0 | 20 20 20 28 63 6f 75 6e 74 20 28 69 6e 73 70 65 63 74 6f 72 3a 63 6f 6d 70 75 74 65 2d 6c 69 6e | ...(count.(inspector:compute-lin |
| 1b57c0 | 65 2d 63 6f 75 6e 74 20 69 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6c 20 66 72 6f | e-count.i))).....(loop.for.l.fro |
| 1b57e0 | 6d 20 30 20 62 65 6c 6f 77 20 63 6f 75 6e 74 20 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 | m.0.below.count.append.......... |
| 1b5800 | 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 76 61 6c 75 65 20 6c 61 62 | .(multiple-value-bind.(value.lab |
| 1b5820 | 65 6c 20 74 79 70 65 29 20 28 69 6e 73 70 65 63 74 6f 72 3a 6c 69 6e 65 2d 6e 20 69 20 6c 29 0a | el.type).(inspector:line-n.i.l). |
| 1b5840 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 | ............(etypecase.type..... |
| 1b5860 | 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 6e 69 6c 20 3a 6e 6f 72 6d 61 6c 29 0a | ..........((member.nil.:normal). |
| 1b5880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 28 6f 72 20 6c 61 62 65 6c 20 22 22 29 20 | ...............`(,(or.label.""). |
| 1b58a0 | 28 3a 76 61 6c 75 65 20 2c 76 61 6c 75 65 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 | (:value.,value).(:newline))).... |
| 1b58c0 | 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 3a 63 6f 6c 6f 6e 29 0a 20 20 20 20 | ...........((member.:colon)..... |
| 1b58e0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 6c 61 62 | ...........(label-value-line.lab |
| 1b5900 | 65 6c 20 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 | el.value))...............((membe |
| 1b5920 | 72 20 3a 73 74 61 74 69 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | r.:static)................(list. |
| 1b5940 | 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 6c 61 62 65 6c 29 20 22 20 22 20 60 28 3a 76 | (princ-to-string.label).".".`(:v |
| 1b5960 | 61 6c 75 65 20 2c 76 61 6c 75 65 29 20 27 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 | alue.,value).'(:newline)))...... |
| 1b5980 | 20 20 20 20 20 20 20 20 20 28 28 73 61 74 69 73 66 69 65 73 20 63 6f 6d 6d 65 6e 74 2d 74 79 70 | .........((satisfies.comment-typ |
| 1b59a0 | 65 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 70 72 69 6e 63 | e-p)................(list.(princ |
| 1b59c0 | 2d 74 6f 2d 73 74 72 69 6e 67 20 6c 61 62 65 6c 29 20 27 28 3a 6e 65 77 6c 69 6e 65 29 29 29 29 | -to-string.label).'(:newline)))) |
| 1b59e0 | 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 3a | ))))..(defmethod.emacs-inspect.: |
| 1b5a00 | 61 72 6f 75 6e 64 20 28 28 6f 20 74 29 29 0a 20 20 28 69 66 20 28 6f 72 20 28 75 76 65 63 74 6f | around.((o.t))...(if.(or.(uvecto |
| 1b5a20 | 72 2d 69 6e 73 70 65 63 74 6f 72 2d 70 20 6f 29 0a 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 | r-inspector-p.o)...........(not. |
| 1b5a40 | 28 63 63 6c 3a 75 76 65 63 74 6f 72 70 20 6f 29 29 29 0a 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e | (ccl:uvectorp.o))).......(call-n |
| 1b5a60 | 65 78 74 2d 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 20 28 | ext-method).......(let.((value.( |
| 1b5a80 | 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e | call-next-method))).........(con |
| 1b5aa0 | 64 20 28 28 6c 69 73 74 70 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.((listp.value)................ |
| 1b5ac0 | 28 61 70 70 65 6e 64 20 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (append.value................... |
| 1b5ae0 | 20 20 20 20 20 60 28 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....`((:newline)............... |
| 1b5b00 | 20 20 20 20 20 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 6d 61 6b 65 2d 69 6e 73 74 61 6e | ...........(:value.,(make-instan |
| 1b5b20 | 63 65 20 27 75 76 65 63 74 6f 72 2d 69 6e 73 70 65 63 74 6f 72 20 3a 6f 62 6a 65 63 74 20 6f 29 | ce.'uvector-inspector.:object.o) |
| 1b5b40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1b5b60 | 20 20 22 55 6e 64 65 72 6c 79 69 6e 67 20 55 56 45 43 54 4f 52 22 29 29 29 29 0a 20 20 20 20 20 | .."Underlying.UVECTOR"))))...... |
| 1b5b80 | 20 20 20 20 20 20 20 20 20 28 74 20 76 61 6c 75 65 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 | .........(t.value)))))..(defmeth |
| 1b5ba0 | 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 66 20 66 75 6e 63 74 69 6f 6e 29 29 0a | od.emacs-inspect.((f.function)). |
| 1b5bc0 | 20 20 28 61 70 70 65 6e 64 0a 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 22 | ..(append....(label-value-line." |
| 1b5be0 | 4e 61 6d 65 22 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 29 0a 20 20 20 60 28 22 49 | Name".(function-name.f))....`("I |
| 1b5c00 | 74 73 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 69 73 3a 20 22 0a 20 20 20 20 20 2c 28 70 72 | ts.argument.list.is:."......,(pr |
| 1b5c20 | 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 28 61 72 67 6c 69 73 74 20 66 29 29 20 28 3a 6e 65 77 | inc-to-string.(arglist.f)).(:new |
| 1b5c40 | 6c 69 6e 65 29 29 0a 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 22 44 6f 63 | line))....(label-value-line."Doc |
| 1b5c60 | 75 6d 65 6e 74 61 74 69 6f 6e 22 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 20 66 20 74 29 | umentation".(documentation..f.t) |
| 1b5c80 | 29 0a 20 20 20 28 77 68 65 6e 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 65 78 70 72 | )....(when.(function-lambda-expr |
| 1b5ca0 | 65 73 73 69 6f 6e 20 66 29 0a 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 | ession.f)......(label-value-line |
| 1b5cc0 | 20 22 4c 61 6d 62 64 61 20 45 78 70 72 65 73 73 69 6f 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 | ."Lambda.Expression"............ |
| 1b5ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 65 78 70 | ............(function-lambda-exp |
| 1b5d00 | 72 65 73 73 69 6f 6e 20 66 29 29 29 0a 20 20 20 28 77 68 65 6e 20 28 63 63 6c 3a 66 75 6e 63 74 | ression.f)))....(when.(ccl:funct |
| 1b5d20 | 69 6f 6e 2d 73 6f 75 72 63 65 2d 6e 6f 74 65 20 66 29 0a 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 | ion-source-note.f)......(label-v |
| 1b5d40 | 61 6c 75 65 2d 6c 69 6e 65 20 22 53 6f 75 72 63 65 20 6e 6f 74 65 22 0a 20 20 20 20 20 20 20 20 | alue-line."Source.note"......... |
| 1b5d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 66 75 6e 63 74 69 6f 6e 2d 73 6f 75 | ...............(ccl:function-sou |
| 1b5d80 | 72 63 65 2d 6e 6f 74 65 20 66 29 29 29 0a 20 20 20 28 77 68 65 6e 20 28 74 79 70 65 70 20 66 20 | rce-note.f)))....(when.(typep.f. |
| 1b5da0 | 27 63 63 6c 3a 63 6f 6d 70 69 6c 65 64 2d 6c 65 78 69 63 61 6c 2d 63 6c 6f 73 75 72 65 29 0a 20 | 'ccl:compiled-lexical-closure).. |
| 1b5dc0 | 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c | ....(append.......(label-value-l |
| 1b5de0 | 69 6e 65 20 22 49 6e 6e 65 72 20 66 75 6e 63 74 69 6f 6e 22 20 28 63 63 6c 3a 3a 63 6c 6f 73 75 | ine."Inner.function".(ccl::closu |
| 1b5e00 | 72 65 2d 66 75 6e 63 74 69 6f 6e 20 66 29 29 0a 20 20 20 20 20 20 27 28 22 43 6c 6f 73 65 64 20 | re-function.f)).......'("Closed. |
| 1b5e20 | 6f 76 65 72 20 76 61 6c 75 65 73 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 | over.values:".(:newline))....... |
| 1b5e40 | 28 6c 6f 6f 70 20 66 6f 72 20 28 6e 61 6d 65 20 76 61 6c 75 65 29 20 69 6e 20 28 63 63 6c 3a 3a | (loop.for.(name.value).in.(ccl:: |
| 1b5e60 | 63 6c 6f 73 75 72 65 2d 63 6c 6f 73 65 64 2d 6f 76 65 72 2d 76 61 6c 75 65 73 20 66 29 0a 20 20 | closure-closed-over-values.f)... |
| 1b5e80 | 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 | ..........append.(label-value-li |
| 1b5ea0 | 6e 65 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 20 7e 61 22 20 6e 61 6d 65 29 0a 20 20 20 20 20 | ne.(format.nil.".~a".name)...... |
| 1b5ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1b5ee0 | 76 61 6c 75 65 29 29 29 29 29 29 0a 0a 28 64 65 66 63 6c 61 73 73 20 75 76 65 63 74 6f 72 2d 69 | value))))))..(defclass.uvector-i |
| 1b5f00 | 6e 73 70 65 63 74 6f 72 20 28 29 0a 20 20 28 28 6f 62 6a 65 63 74 20 3a 69 6e 69 74 61 72 67 20 | nspector.()...((object.:initarg. |
| 1b5f20 | 3a 6f 62 6a 65 63 74 29 29 29 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 75 76 65 63 74 6f 72 2d | :object)))..(defgeneric.uvector- |
| 1b5f40 | 69 6e 73 70 65 63 74 6f 72 2d 70 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 | inspector-p.(object)...(:method. |
| 1b5f60 | 28 28 6f 62 6a 65 63 74 20 74 29 29 20 6e 69 6c 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 28 6f | ((object.t)).nil)...(:method.((o |
| 1b5f80 | 62 6a 65 63 74 20 75 76 65 63 74 6f 72 2d 69 6e 73 70 65 63 74 6f 72 29 29 20 74 29 29 0a 0a 28 | bject.uvector-inspector)).t))..( |
| 1b5fa0 | 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 75 76 20 75 76 65 | defmethod.emacs-inspect.((uv.uve |
| 1b5fc0 | 63 74 6f 72 2d 69 6e 73 70 65 63 74 6f 72 29 29 0a 20 20 28 77 69 74 68 2d 73 6c 6f 74 73 20 28 | ctor-inspector))...(with-slots.( |
| 1b5fe0 | 6f 62 6a 65 63 74 29 20 75 76 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 62 65 6c 6f 77 | object).uv.....(loop.for.i.below |
| 1b6000 | 20 28 63 63 6c 3a 75 76 73 69 7a 65 20 6f 62 6a 65 63 74 29 20 61 70 70 65 6e 64 0a 20 20 20 20 | .(ccl:uvsize.object).append..... |
| 1b6020 | 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 28 70 72 69 6e 63 2d 74 | ......(label-value-line.(princ-t |
| 1b6040 | 6f 2d 73 74 72 69 6e 67 20 69 29 20 28 63 63 6c 3a 75 76 72 65 66 20 6f 62 6a 65 63 74 20 69 29 | o-string.i).(ccl:uvref.object.i) |
| 1b6060 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 79 70 65 2d 73 70 | ))))..(defimplementation.type-sp |
| 1b6080 | 65 63 69 66 69 65 72 2d 70 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6f 72 20 28 63 63 6c 3a 74 79 | ecifier-p.(symbol)...(or.(ccl:ty |
| 1b60a0 | 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 6e 6f | pe-specifier-p.symbol).......(no |
| 1b60c0 | 74 20 28 65 71 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 20 73 79 | t.(eq.(type-specifier-arglist.sy |
| 1b60e0 | 6d 62 6f 6c 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 29 0a 0a 3b 3b 3b 20 4d 75 | mbol).:not-available))))..;;;.Mu |
| 1b6100 | 6c 74 69 70 72 6f 63 65 73 73 69 6e 67 0a 0a 28 64 65 66 76 61 72 20 2a 6b 6e 6f 77 6e 2d 70 72 | ltiprocessing..(defvar.*known-pr |
| 1b6120 | 6f 63 65 73 73 65 73 2a 0a 20 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 73 69 7a | ocesses*...(make-hash-table.:siz |
| 1b6140 | 65 20 32 30 20 3a 77 65 61 6b 20 3a 6b 65 79 20 3a 74 65 73 74 20 23 27 65 71 29 0a 20 20 22 41 | e.20.:weak.:key.:test.#'eq)..."A |
| 1b6160 | 20 6d 61 70 20 66 72 6f 6d 20 74 68 72 65 61 64 73 20 74 6f 20 6d 61 69 6c 62 6f 78 65 73 2e 22 | .map.from.threads.to.mailboxes." |
| 1b6180 | 29 0a 0a 28 64 65 66 76 61 72 20 2a 6b 6e 6f 77 6e 2d 70 72 6f 63 65 73 73 65 73 2d 6c 6f 63 6b | )..(defvar.*known-processes-lock |
| 1b61a0 | 2a 20 28 63 63 6c 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 22 2a 6b 6e 6f 77 6e 2d 70 72 6f 63 65 73 73 | *.(ccl:make-lock."*known-process |
| 1b61c0 | 65 73 2d 6c 6f 63 6b 2a 22 29 29 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 6d 61 69 6c 62 6f 78 | es-lock*"))..(defstruct.(mailbox |
| 1b61e0 | 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 6d 61 69 6c 62 6f 78 2e 29 29 0a 20 20 28 6d 75 74 65 78 | .(:conc-name.mailbox.))...(mutex |
| 1b6200 | 20 28 63 63 6c 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 22 74 68 72 65 61 64 20 6d 61 69 6c 62 6f 78 22 | .(ccl:make-lock."thread.mailbox" |
| 1b6220 | 29 29 0a 20 20 28 73 65 6d 61 70 68 6f 72 65 20 28 63 63 6c 3a 6d 61 6b 65 2d 73 65 6d 61 70 68 | ))...(semaphore.(ccl:make-semaph |
| 1b6240 | 6f 72 65 29 29 0a 20 20 28 71 75 65 75 65 20 27 28 29 20 3a 74 79 70 65 20 6c 69 73 74 29 29 0a | ore))...(queue.'().:type.list)). |
| 1b6260 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 70 61 77 6e 20 28 66 75 6e 20 26 | .(defimplementation.spawn.(fun.& |
| 1b6280 | 6b 65 79 20 6e 61 6d 65 29 0a 20 20 28 63 63 6c 3a 70 72 6f 63 65 73 73 2d 72 75 6e 2d 66 75 6e | key.name)...(ccl:process-run-fun |
| 1b62a0 | 63 74 69 6f 6e 20 28 6f 72 20 6e 61 6d 65 20 22 41 6e 6f 6e 79 6d 6f 75 73 20 28 53 77 61 6e 6b | ction.(or.name."Anonymous.(Swank |
| 1b62c0 | 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )")............................. |
| 1b62e0 | 66 75 6e 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 | fun))..(defimplementation.thread |
| 1b6300 | 2d 69 64 20 28 74 68 72 65 61 64 29 0a 20 20 28 63 63 6c 3a 70 72 6f 63 65 73 73 2d 73 65 72 69 | -id.(thread)...(ccl:process-seri |
| 1b6320 | 61 6c 2d 6e 75 6d 62 65 72 20 74 68 72 65 61 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | al-number.thread))..(defimplemen |
| 1b6340 | 74 61 74 69 6f 6e 20 66 69 6e 64 2d 74 68 72 65 61 64 20 28 69 64 29 0a 20 20 28 66 69 6e 64 20 | tation.find-thread.(id)...(find. |
| 1b6360 | 69 64 20 28 63 63 6c 3a 61 6c 6c 2d 70 72 6f 63 65 73 73 65 73 29 20 3a 6b 65 79 20 23 27 63 63 | id.(ccl:all-processes).:key.#'cc |
| 1b6380 | 6c 3a 70 72 6f 63 65 73 73 2d 73 65 72 69 61 6c 2d 6e 75 6d 62 65 72 29 29 0a 0a 28 64 65 66 69 | l:process-serial-number))..(defi |
| 1b63a0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 6e 61 6d 65 20 28 74 68 72 65 61 | mplementation.thread-name.(threa |
| 1b63c0 | 64 29 0a 20 20 28 63 63 6c 3a 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 74 68 72 65 61 64 29 29 0a | d)...(ccl:process-name.thread)). |
| 1b63e0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 73 74 61 74 75 | .(defimplementation.thread-statu |
| 1b6400 | 73 20 28 74 68 72 65 61 64 29 0a 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 22 20 28 63 | s.(thread)...(format.nil."~A".(c |
| 1b6420 | 63 6c 3a 70 72 6f 63 65 73 73 2d 77 68 6f 73 74 61 74 65 20 74 68 72 65 61 64 29 29 29 0a 0a 28 | cl:process-whostate.thread)))..( |
| 1b6440 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 61 74 74 72 69 62 75 | defimplementation.thread-attribu |
| 1b6460 | 74 65 73 20 28 74 68 72 65 61 64 29 0a 20 20 20 28 6c 69 73 74 20 3a 70 72 69 6f 72 69 74 79 20 | tes.(thread)....(list.:priority. |
| 1b6480 | 28 63 63 6c 3a 70 72 6f 63 65 73 73 2d 70 72 69 6f 72 69 74 79 20 74 68 72 65 61 64 29 29 29 0a | (ccl:process-priority.thread))). |
| 1b64a0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 6c 6f 63 6b 20 28 26 | .(defimplementation.make-lock.(& |
| 1b64c0 | 6b 65 79 20 6e 61 6d 65 29 0a 20 20 28 63 63 6c 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 6e 61 6d 65 29 | key.name)...(ccl:make-lock.name) |
| 1b64e0 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d | )..(defimplementation.call-with- |
| 1b6500 | 6c 6f 63 6b 2d 68 65 6c 64 20 28 6c 6f 63 6b 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 63 63 6c | lock-held.(lock.function)...(ccl |
| 1b6520 | 3a 77 69 74 68 2d 6c 6f 63 6b 2d 67 72 61 62 62 65 64 20 28 6c 6f 63 6b 29 0a 20 20 20 20 28 66 | :with-lock-grabbed.(lock).....(f |
| 1b6540 | 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | uncall.function)))..(defimplemen |
| 1b6560 | 74 61 74 69 6f 6e 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 63 63 6c 3a 2a | tation.current-thread.()...ccl:* |
| 1b6580 | 63 75 72 72 65 6e 74 2d 70 72 6f 63 65 73 73 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | current-process*)..(defimplement |
| 1b65a0 | 61 74 69 6f 6e 20 61 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 28 63 63 6c 3a 61 6c 6c 2d | ation.all-threads.()...(ccl:all- |
| 1b65c0 | 70 72 6f 63 65 73 73 65 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | processes))..(defimplementation. |
| 1b65e0 | 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 3b 3b 28 63 63 6c 3a 70 72 | kill-thread.(thread)...;;(ccl:pr |
| 1b6600 | 6f 63 65 73 73 2d 6b 69 6c 6c 20 74 68 72 65 61 64 29 20 3b 20 64 6f 65 73 6e 27 74 20 63 75 74 | ocess-kill.thread).;.doesn't.cut |
| 1b6620 | 20 69 74 0a 20 20 28 63 63 6c 3a 3a 70 72 6f 63 65 73 73 2d 69 6e 69 74 69 61 6c 2d 66 6f 72 6d | .it...(ccl::process-initial-form |
| 1b6640 | 2d 65 78 69 74 65 64 20 74 68 72 65 61 64 20 3a 6b 69 6c 6c 29 29 0a 0a 28 64 65 66 69 6d 70 6c | -exited.thread.:kill))..(defimpl |
| 1b6660 | 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 28 74 68 72 65 61 | ementation.thread-alive-p.(threa |
| 1b6680 | 64 29 0a 20 20 28 6e 6f 74 20 28 63 63 6c 3a 70 72 6f 63 65 73 73 2d 65 78 68 61 75 73 74 65 64 | d)...(not.(ccl:process-exhausted |
| 1b66a0 | 2d 70 20 74 68 72 65 61 64 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | -p.thread)))..(defimplementation |
| 1b66c0 | 20 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 20 66 75 6e 63 74 69 | .interrupt-thread.(thread.functi |
| 1b66e0 | 6f 6e 29 0a 20 20 28 63 63 6c 3a 70 72 6f 63 65 73 73 2d 69 6e 74 65 72 72 75 70 74 0a 20 20 20 | on)...(ccl:process-interrupt.... |
| 1b6700 | 74 68 72 65 61 64 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 6c 65 74 20 28 | thread....(lambda.()......(let.( |
| 1b6720 | 28 63 63 6c 3a 2a 74 6f 70 2d 65 72 72 6f 72 2d 66 72 61 6d 65 2a 20 28 63 63 6c 3a 3a 25 63 75 | (ccl:*top-error-frame*.(ccl::%cu |
| 1b6740 | 72 72 65 6e 74 2d 65 78 63 65 70 74 69 6f 6e 2d 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 | rrent-exception-frame)))........ |
| 1b6760 | 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d | (funcall.function)))))..(defun.m |
| 1b6780 | 61 69 6c 62 6f 78 20 28 74 68 72 65 61 64 29 0a 20 20 28 63 63 6c 3a 77 69 74 68 2d 6c 6f 63 6b | ailbox.(thread)...(ccl:with-lock |
| 1b67a0 | 2d 67 72 61 62 62 65 64 20 28 2a 6b 6e 6f 77 6e 2d 70 72 6f 63 65 73 73 65 73 2d 6c 6f 63 6b 2a | -grabbed.(*known-processes-lock* |
| 1b67c0 | 29 0a 20 20 20 20 28 6f 72 20 28 67 65 74 68 61 73 68 20 74 68 72 65 61 64 20 2a 6b 6e 6f 77 6e | ).....(or.(gethash.thread.*known |
| 1b67e0 | 2d 70 72 6f 63 65 73 73 65 73 2a 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 | -processes*).........(setf.(geth |
| 1b6800 | 61 73 68 20 74 68 72 65 61 64 20 2a 6b 6e 6f 77 6e 2d 70 72 6f 63 65 73 73 65 73 2a 29 20 28 6d | ash.thread.*known-processes*).(m |
| 1b6820 | 61 6b 65 2d 6d 61 69 6c 62 6f 78 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | ake-mailbox)))))..(defimplementa |
| 1b6840 | 74 69 6f 6e 20 73 65 6e 64 20 28 74 68 72 65 61 64 20 6d 65 73 73 61 67 65 29 0a 20 20 28 61 73 | tion.send.(thread.message)...(as |
| 1b6860 | 73 65 72 74 20 6d 65 73 73 61 67 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 | sert.message)...(let*.((mbox.(ma |
| 1b6880 | 69 6c 62 6f 78 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 75 74 65 78 20 28 | ilbox.thread))..........(mutex.( |
| 1b68a0 | 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 29 0a 20 20 20 20 28 63 63 6c 3a 77 | mailbox.mutex.mbox))).....(ccl:w |
| 1b68c0 | 69 74 68 2d 6c 6f 63 6b 2d 67 72 61 62 62 65 64 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 20 28 | ith-lock-grabbed.(mutex).......( |
| 1b68e0 | 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 | setf.(mailbox.queue.mbox)....... |
| 1b6900 | 20 20 20 20 20 20 28 6e 63 6f 6e 63 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 | ......(nconc.(mailbox.queue.mbox |
| 1b6920 | 29 20 28 6c 69 73 74 20 6d 65 73 73 61 67 65 29 29 29 0a 20 20 20 20 20 20 28 63 63 6c 3a 73 69 | ).(list.message))).......(ccl:si |
| 1b6940 | 67 6e 61 6c 2d 73 65 6d 61 70 68 6f 72 65 20 28 6d 61 69 6c 62 6f 78 2e 73 65 6d 61 70 68 6f 72 | gnal-semaphore.(mailbox.semaphor |
| 1b6960 | 65 20 6d 62 6f 78 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | e.mbox)))))..(defimplementation. |
| 1b6980 | 77 61 6b 65 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d | wake-thread.(thread)...(let*.((m |
| 1b69a0 | 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 | box.(mailbox.thread))..........( |
| 1b69c0 | 6d 75 74 65 78 20 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 29 0a 20 20 20 | mutex.(mailbox.mutex.mbox))).... |
| 1b69e0 | 20 28 63 63 6c 3a 77 69 74 68 2d 6c 6f 63 6b 2d 67 72 61 62 62 65 64 20 28 6d 75 74 65 78 29 0a | .(ccl:with-lock-grabbed.(mutex). |
| 1b6a00 | 20 20 20 20 20 20 28 63 63 6c 3a 73 69 67 6e 61 6c 2d 73 65 6d 61 70 68 6f 72 65 20 28 6d 61 69 | ......(ccl:signal-semaphore.(mai |
| 1b6a20 | 6c 62 6f 78 2e 73 65 6d 61 70 68 6f 72 65 20 6d 62 6f 78 29 29 29 29 29 0a 0a 28 64 65 66 69 6d | lbox.semaphore.mbox)))))..(defim |
| 1b6a40 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 69 76 65 2d 69 66 20 28 74 65 73 74 20 26 6f | plementation.receive-if.(test.&o |
| 1b6a60 | 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 | ptional.timeout)...(let*.((mbox. |
| 1b6a80 | 28 6d 61 69 6c 62 6f 78 20 63 63 6c 3a 2a 63 75 72 72 65 6e 74 2d 70 72 6f 63 65 73 73 2a 29 29 | (mailbox.ccl:*current-process*)) |
| 1b6aa0 | 0a 20 20 20 20 20 20 20 20 20 28 6d 75 74 65 78 20 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 | ..........(mutex.(mailbox.mutex. |
| 1b6ac0 | 6d 62 6f 78 29 29 29 0a 20 20 20 20 28 61 73 73 65 72 74 20 28 6f 72 20 28 6e 6f 74 20 74 69 6d | mbox))).....(assert.(or.(not.tim |
| 1b6ae0 | 65 6f 75 74 29 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 | eout).(eq.timeout.t))).....(loop |
| 1b6b00 | 0a 20 20 20 20 20 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 | ......(check-slime-interrupts).. |
| 1b6b20 | 20 20 20 20 28 63 63 6c 3a 77 69 74 68 2d 6c 6f 63 6b 2d 67 72 61 62 62 65 64 20 28 6d 75 74 65 | ....(ccl:with-lock-grabbed.(mute |
| 1b6b40 | 78 29 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 71 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 | x)........(let*.((q.(mailbox.que |
| 1b6b60 | 75 65 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 20 28 6d | ue.mbox))...............(tail.(m |
| 1b6b80 | 65 6d 62 65 72 2d 69 66 20 74 65 73 74 20 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 | ember-if.test.q)))..........(whe |
| 1b6ba0 | 6e 20 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 | n.tail............(setf.(mailbox |
| 1b6bc0 | 2e 71 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e | .queue.mbox)..................(n |
| 1b6be0 | 63 6f 6e 63 20 28 6c 64 69 66 66 20 71 20 74 61 69 6c 29 20 28 63 64 72 20 74 61 69 6c 29 29 29 | conc.(ldiff.q.tail).(cdr.tail))) |
| 1b6c00 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 63 61 72 20 74 61 69 6c 29 29 29 | ............(return.(car.tail))) |
| 1b6c20 | 29 29 0a 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 20 28 72 65 | ))......(when.(eq.timeout.t).(re |
| 1b6c40 | 74 75 72 6e 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 28 63 63 6c 3a | turn.(values.nil.t)))......(ccl: |
| 1b6c60 | 77 61 69 74 2d 6f 6e 2d 73 65 6d 61 70 68 6f 72 65 20 28 6d 61 69 6c 62 6f 78 2e 73 65 6d 61 70 | wait-on-semaphore.(mailbox.semap |
| 1b6c80 | 68 6f 72 65 20 6d 62 6f 78 29 29 29 29 29 0a 0a 28 6c 65 74 20 28 28 61 6c 69 73 74 20 27 28 29 | hore.mbox)))))..(let.((alist.'() |
| 1b6ca0 | 29 0a 20 20 20 20 20 20 28 6c 6f 63 6b 20 28 63 63 6c 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 22 72 65 | ).......(lock.(ccl:make-lock."re |
| 1b6cc0 | 67 69 73 74 65 72 2d 74 68 72 65 61 64 22 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 | gister-thread")))....(defimpleme |
| 1b6ce0 | 6e 74 61 74 69 6f 6e 20 72 65 67 69 73 74 65 72 2d 74 68 72 65 61 64 20 28 6e 61 6d 65 20 74 68 | ntation.register-thread.(name.th |
| 1b6d00 | 72 65 61 64 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 73 79 6d 62 6f 6c 20 | read).....(declare.(type.symbol. |
| 1b6d20 | 6e 61 6d 65 29 29 0a 20 20 20 20 28 63 63 6c 3a 77 69 74 68 2d 6c 6f 63 6b 2d 67 72 61 62 62 65 | name)).....(ccl:with-lock-grabbe |
| 1b6d40 | 64 20 28 6c 6f 63 6b 29 0a 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 74 68 72 65 61 64 | d.(lock).......(etypecase.thread |
| 1b6d60 | 0a 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 61 6c | .........(null..........(setf.al |
| 1b6d80 | 69 73 74 20 28 64 65 6c 65 74 65 20 6e 61 6d 65 20 61 6c 69 73 74 20 3a 6b 65 79 20 23 27 63 61 | ist.(delete.name.alist.:key.#'ca |
| 1b6da0 | 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 63 6c 3a 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 | r))).........(ccl:process....... |
| 1b6dc0 | 20 20 20 28 6c 65 74 20 28 28 70 72 6f 62 65 20 28 61 73 73 6f 63 20 6e 61 6d 65 20 61 6c 69 73 | ...(let.((probe.(assoc.name.alis |
| 1b6de0 | 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 70 72 6f 62 65 20 28 73 65 | t)))............(cond.(probe.(se |
| 1b6e00 | 74 66 20 28 63 64 72 20 70 72 6f 62 65 29 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 | tf.(cdr.probe).thread))......... |
| 1b6e20 | 20 20 20 20 20 20 20 20 20 28 74 20 28 73 65 74 66 20 61 6c 69 73 74 20 28 61 63 6f 6e 73 20 6e | .........(t.(setf.alist.(acons.n |
| 1b6e40 | 61 6d 65 20 74 68 72 65 61 64 20 61 6c 69 73 74 29 29 29 29 29 29 29 29 0a 20 20 20 20 6e 69 6c | ame.thread.alist)))))))).....nil |
| 1b6e60 | 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 72 65 67 | )....(defimplementation.find-reg |
| 1b6e80 | 69 73 74 65 72 65 64 20 28 6e 61 6d 65 29 0a 20 20 20 20 28 63 63 6c 3a 77 69 74 68 2d 6c 6f 63 | istered.(name).....(ccl:with-loc |
| 1b6ea0 | 6b 2d 67 72 61 62 62 65 64 20 28 6c 6f 63 6b 29 0a 20 20 20 20 20 20 28 63 64 72 20 28 61 73 73 | k-grabbed.(lock).......(cdr.(ass |
| 1b6ec0 | 6f 63 20 6e 61 6d 65 20 61 6c 69 73 74 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | oc.name.alist)))))..(defimplemen |
| 1b6ee0 | 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 61 75 6c 74 2d 69 6e 69 74 69 61 6c 2d 62 69 6e 64 69 | tation.set-default-initial-bindi |
| 1b6f00 | 6e 67 20 28 76 61 72 20 66 6f 72 6d 29 0a 20 20 28 65 76 61 6c 20 60 28 63 63 6c 3a 3a 64 65 66 | ng.(var.form)...(eval.`(ccl::def |
| 1b6f20 | 2d 73 74 61 6e 64 61 72 64 2d 69 6e 69 74 69 61 6c 2d 62 69 6e 64 69 6e 67 20 2c 76 61 72 20 2c | -standard-initial-binding.,var., |
| 1b6f40 | 66 6f 72 6d 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 71 75 69 74 | form)))..(defimplementation.quit |
| 1b6f60 | 2d 6c 69 73 70 20 28 29 0a 20 20 28 63 63 6c 3a 71 75 69 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c | -lisp.()...(ccl:quit))..(defimpl |
| 1b6f80 | 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 | ementation.set-default-directory |
| 1b6fa0 | 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 74 72 75 65 6e | .(directory)...(let.((dir.(truen |
| 1b6fc0 | 61 6d 65 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 64 69 72 65 63 74 6f 72 79 29 29 | ame.(merge-pathnames.directory)) |
| 1b6fe0 | 29 29 0a 20 20 20 20 28 73 65 74 66 20 2a 64 65 66 61 75 6c 74 2d 70 61 74 68 6e 61 6d 65 2d 64 | )).....(setf.*default-pathname-d |
| 1b7000 | 65 66 61 75 6c 74 73 2a 20 28 74 72 75 65 6e 61 6d 65 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 | efaults*.(truename.(merge-pathna |
| 1b7020 | 6d 65 73 20 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 28 63 63 6c 3a 63 77 64 20 64 69 | mes.directory))).....(ccl:cwd.di |
| 1b7040 | 72 29 0a 20 20 20 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 0a 3b 3b | r).....(default-directory)))..;; |
| 1b7060 | 3b 20 57 65 61 6b 20 64 61 74 61 73 74 72 75 63 74 75 72 65 73 0a 0a 28 64 65 66 69 6d 70 6c 65 | ;.Weak.datastructures..(defimple |
| 1b7080 | 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 77 65 61 6b 2d 6b 65 79 2d 68 61 73 68 2d 74 61 62 | mentation.make-weak-key-hash-tab |
| 1b70a0 | 6c 65 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d | le.(&rest.args)...(apply.#'make- |
| 1b70c0 | 68 61 73 68 2d 74 61 62 6c 65 20 3a 77 65 61 6b 20 3a 6b 65 79 20 61 72 67 73 29 29 0a 0a 28 64 | hash-table.:weak.:key.args))..(d |
| 1b70e0 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 77 65 61 6b 2d 76 61 6c 75 65 | efimplementation.make-weak-value |
| 1b7100 | 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c | -hash-table.(&rest.args)...(appl |
| 1b7120 | 79 20 23 27 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 77 65 61 6b 20 3a 76 61 6c 75 65 | y.#'make-hash-table.:weak.:value |
| 1b7140 | 20 61 72 67 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 68 61 73 68 | .args))..(defimplementation.hash |
| 1b7160 | 2d 74 61 62 6c 65 2d 77 65 61 6b 6e 65 73 73 20 28 68 61 73 68 74 61 62 6c 65 29 0a 20 20 28 63 | -table-weakness.(hashtable)...(c |
| 1b7180 | 63 6c 3a 68 61 73 68 2d 74 61 62 6c 65 2d 77 65 61 6b 2d 70 20 68 61 73 68 74 61 62 6c 65 29 29 | cl:hash-table-weak-p.hashtable)) |
| 1b71a0 | 0a 0a 28 70 75 73 68 6e 65 77 20 27 64 65 69 6e 69 74 2d 6c 6f 67 2d 6f 75 74 70 75 74 20 63 63 | ..(pushnew.'deinit-log-output.cc |
| 1b71c0 | 6c 3a 2a 73 61 76 65 2d 65 78 69 74 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 0a 00 00 00 00 00 00 00 | l:*save-exit-functions*)........ |
| 1b71e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b7200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 63 6c 69 73 70 2e 6c 69 73 70 00 00 00 00 00 | slime-2.31/swank/clisp.lisp..... |
| 1b7220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b7240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b7260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 1b7280 | 30 31 30 34 33 35 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 33 34 31 00 20 30 00 00 00 | 0104351.00000000000.014341..0... |
| 1b72a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b72c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b72e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b7300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 1b7320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 1b7340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b7360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b7380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b73a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b73c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b73e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1b7400 | 3b 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 20 2d | ;;;;.-*-.indent-tabs-mode:.nil.- |
| 1b7420 | 2a 2d 0a 0a 3b 3b 3b 3b 20 53 57 41 4e 4b 20 73 75 70 70 6f 72 74 20 66 6f 72 20 43 4c 49 53 50 | *-..;;;;.SWANK.support.for.CLISP |
| 1b7440 | 2e 0a 0a 3b 3b 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 33 2c 20 32 30 30 34 | ...;;;;.Copyright.(C).2003,.2004 |
| 1b7460 | 20 57 2e 20 4a 65 6e 6b 6e 65 72 2c 20 56 2e 20 53 65 64 61 63 68 0a 0a 3b 3b 3b 3b 20 54 68 69 | .W..Jenkner,.V..Sedach..;;;;.Thi |
| 1b7480 | 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 | s.program.is.free.software;.you. |
| 1b74a0 | 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 3b 3b 3b 3b 20 | can.redistribute.it.and/or.;;;;. |
| 1b74c0 | 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 | modify.it.under.the.terms.of.the |
| 1b74e0 | 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 0a 3b | .GNU.General.Public.License.as.; |
| 1b7500 | 3b 3b 3b 20 70 75 62 6c 69 73 68 65 64 20 62 79 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 | ;;;.published.by.the.Free.Softwa |
| 1b7520 | 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 32 20 | re.Foundation;.either.version.2. |
| 1b7540 | 6f 66 0a 3b 3b 3b 3b 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 20 28 61 74 20 79 6f 75 72 | of.;;;;.the.License,.or.(at.your |
| 1b7560 | 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 3b | .option).any.later.version...;;; |
| 1b7580 | 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e | ;.This.program.is.distributed.in |
| 1b75a0 | 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c | .the.hope.that.it.will.be.useful |
| 1b75c0 | 2c 0a 3b 3b 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b | ,.;;;;.but.WITHOUT.ANY.WARRANTY; |
| 1b75e0 | 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e | .without.even.the.implied.warran |
| 1b7600 | 74 79 20 6f 66 0a 3b 3b 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 | ty.of.;;;;.MERCHANTABILITY.or.FI |
| 1b7620 | 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 | TNESS.FOR.A.PARTICULAR.PURPOSE.. |
| 1b7640 | 53 65 65 20 74 68 65 0a 3b 3b 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 | See.the.;;;;.GNU.General.Public. |
| 1b7660 | 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 3b 3b 20 | License.for.more.details...;;;;. |
| 1b7680 | 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 | You.should.have.received.a.copy. |
| 1b76a0 | 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 0a 3b 3b 3b 3b 20 4c | of.the.GNU.General.Public.;;;;.L |
| 1b76c0 | 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 3b 20 | icense.along.with.this.program;. |
| 1b76e0 | 69 66 20 6e 6f 74 2c 20 77 72 69 74 65 20 74 6f 20 74 68 65 20 46 72 65 65 0a 3b 3b 3b 3b 20 53 | if.not,.write.to.the.Free.;;;;.S |
| 1b7700 | 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 54 65 6d | oftware.Foundation,.Inc.,.59.Tem |
| 1b7720 | 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 75 69 74 65 20 33 33 30 2c 20 42 6f 73 74 6f 6e 2c 0a 3b | ple.Place.-.Suite.330,.Boston,.; |
| 1b7740 | 3b 3b 3b 20 4d 41 20 30 32 31 31 31 2d 31 33 30 37 2c 20 55 53 41 2e 0a 0a 3b 3b 3b 20 54 68 69 | ;;;.MA.02111-1307,.USA...;;;.Thi |
| 1b7760 | 73 20 69 73 20 77 6f 72 6b 20 69 6e 20 70 72 6f 67 72 65 73 73 2c 20 62 75 74 20 69 74 27 73 20 | s.is.work.in.progress,.but.it's. |
| 1b7780 | 61 6c 72 65 61 64 79 20 75 73 61 62 6c 65 2e 20 20 4d 61 6e 79 20 74 68 69 6e 67 73 0a 3b 3b 3b | already.usable...Many.things.;;; |
| 1b77a0 | 20 61 72 65 20 61 64 61 70 74 65 64 20 66 72 6f 6d 20 6f 74 68 65 72 20 73 77 61 6e 6b 2d 2a 2e | .are.adapted.from.other.swank-*. |
| 1b77c0 | 6c 69 73 70 2c 20 69 6e 20 70 61 72 74 69 63 75 6c 61 72 20 66 72 6f 6d 0a 3b 3b 3b 20 73 77 61 | lisp,.in.particular.from.;;;.swa |
| 1b77e0 | 6e 6b 2d 61 6c 6c 65 67 72 6f 20 28 49 20 64 6f 6e 27 74 20 75 73 65 20 61 6c 6c 65 67 72 6f 20 | nk-allegro.(I.don't.use.allegro. |
| 1b7800 | 61 74 20 61 6c 6c 2c 20 62 75 74 20 69 74 27 73 20 74 68 65 20 73 68 6f 72 74 65 73 74 0a 3b 3b | at.all,.but.it's.the.shortest.;; |
| 1b7820 | 3b 20 6f 6e 65 20 61 6e 64 20 49 20 66 6f 75 6e 64 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 27 73 | ;.one.and.I.found.Helmut.Eller's |
| 1b7840 | 20 63 6f 64 65 20 74 68 65 72 65 20 65 6e 6c 69 67 68 74 65 6e 69 6e 67 29 2e 0a 0a 3b 3b 3b 20 | .code.there.enlightening)...;;;. |
| 1b7860 | 54 68 69 73 20 63 6f 64 65 20 77 69 6c 6c 20 77 6f 72 6b 20 62 65 74 74 65 72 20 77 69 74 68 20 | This.code.will.work.better.with. |
| 1b7880 | 72 65 63 65 6e 74 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 43 4c 49 53 50 20 28 73 61 79 2c 20 74 | recent.versions.of.CLISP.(say,.t |
| 1b78a0 | 68 65 0a 3b 3b 3b 20 6c 61 73 74 20 72 65 6c 65 61 73 65 20 6f 72 20 43 56 53 20 48 45 41 44 29 | he.;;;.last.release.or.CVS.HEAD) |
| 1b78c0 | 20 77 68 69 6c 65 20 69 74 20 6d 61 79 20 6e 6f 74 20 77 6f 72 6b 20 61 74 20 61 6c 6c 20 77 69 | .while.it.may.not.work.at.all.wi |
| 1b78e0 | 74 68 20 6f 6c 64 65 72 0a 3b 3b 3b 20 76 65 72 73 69 6f 6e 73 2e 20 20 49 74 20 69 73 20 72 65 | th.older.;;;.versions...It.is.re |
| 1b7900 | 61 73 6f 6e 61 62 6c 65 20 74 6f 20 65 78 70 65 63 74 20 69 74 20 74 6f 20 77 6f 72 6b 20 6f 6e | asonable.to.expect.it.to.work.on |
| 1b7920 | 20 70 6c 61 74 66 6f 72 6d 73 20 77 69 74 68 0a 3b 3b 3b 20 61 20 22 53 4f 43 4b 45 54 22 20 70 | .platforms.with.;;;.a."SOCKET".p |
| 1b7940 | 61 63 6b 61 67 65 2c 20 69 6e 20 70 61 72 74 69 63 75 6c 61 72 20 6f 6e 20 47 4e 55 2f 4c 69 6e | ackage,.in.particular.on.GNU/Lin |
| 1b7960 | 75 78 20 6f 72 20 55 6e 69 78 2d 6c 69 6b 65 0a 3b 3b 3b 20 73 79 73 74 65 6d 73 2c 20 62 75 74 | ux.or.Unix-like.;;;.systems,.but |
| 1b7980 | 20 61 6c 73 6f 20 6f 6e 20 57 69 6e 33 32 2e 20 20 54 68 69 73 20 62 61 63 6b 65 6e 64 20 75 73 | .also.on.Win32...This.backend.us |
| 1b79a0 | 65 73 20 74 68 65 20 70 6f 72 74 61 62 6c 65 20 78 72 65 66 0a 3b 3b 3b 20 66 72 6f 6d 20 74 68 | es.the.portable.xref.;;;.from.th |
| 1b79c0 | 65 20 43 4d 55 20 41 49 20 72 65 70 6f 73 69 74 6f 72 79 20 61 6e 64 20 6d 65 74 65 72 69 6e 67 | e.CMU.AI.repository.and.metering |
| 1b79e0 | 2e 6c 69 73 70 20 66 72 6f 6d 20 43 4c 4f 43 43 20 5b 31 5d 2c 20 77 68 69 63 68 0a 3b 3b 3b 20 | .lisp.from.CLOCC.[1],.which.;;;. |
| 1b7a00 | 61 72 65 20 63 6f 6e 76 65 6e 69 65 6e 74 6c 79 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 53 4c 49 | are.conveniently.included.in.SLI |
| 1b7a20 | 4d 45 2e 0a 0a 3b 3b 3b 20 5b 31 5d 20 68 74 74 70 3a 2f 2f 63 76 73 2e 73 6f 75 72 63 65 66 6f | ME...;;;.[1].http://cvs.sourcefo |
| 1b7a40 | 72 67 65 2e 6e 65 74 2f 76 69 65 77 63 76 73 2e 70 79 2f 63 6c 6f 63 63 2f 63 6c 6f 63 63 2f 73 | rge.net/viewcvs.py/clocc/clocc/s |
| 1b7a60 | 72 63 2f 74 6f 6f 6c 73 2f 6d 65 74 65 72 69 6e 67 2f 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 | rc/tools/metering/..(defpackage. |
| 1b7a80 | 73 77 61 6e 6b 2f 63 6c 69 73 70 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 | swank/clisp...(:use.cl.swank/bac |
| 1b7aa0 | 6b 65 6e 64 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 63 6c 69 73 70 29 | kend))..(in-package.swank/clisp) |
| 1b7ac0 | 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 29 | ..(eval-when.(:compile-toplevel) |
| 1b7ae0 | 0a 20 20 28 75 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 3c 20 22 32 2e 34 34 22 20 28 6c 69 73 70 | ...(unless.(string<."2.44".(lisp |
| 1b7b00 | 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 6f 6e 29 29 0a 20 20 20 20 28 65 | -implementation-version)).....(e |
| 1b7b20 | 72 72 6f 72 20 22 4e 65 65 64 20 61 74 20 6c 65 61 73 74 20 43 4c 49 53 50 20 76 65 72 73 69 6f | rror."Need.at.least.CLISP.versio |
| 1b7b40 | 6e 20 32 2e 34 34 22 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 | n.2.44")))..(defimplementation.g |
| 1b7b60 | 72 61 79 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 29 0a 20 20 22 47 52 41 59 22 29 0a 0a 3b | ray-package-name.()..."GRAY")..; |
| 1b7b80 | 3b 3b 3b 20 69 66 20 74 68 69 73 20 6c 69 73 70 20 68 61 73 20 74 68 65 20 63 6f 6d 70 6c 65 74 | ;;;.if.this.lisp.has.the.complet |
| 1b7ba0 | 65 20 43 4c 4f 53 20 74 68 65 6e 20 77 65 20 75 73 65 20 69 74 2c 20 6f 74 68 65 72 77 69 73 65 | e.CLOS.then.we.use.it,.otherwise |
| 1b7bc0 | 20 77 65 0a 3b 3b 3b 3b 20 62 75 69 6c 64 20 75 70 20 61 20 22 66 61 6b 65 22 20 73 77 61 6e 6b | .we.;;;;.build.up.a."fake".swank |
| 1b7be0 | 2d 6d 6f 70 20 61 6e 64 20 74 68 65 6e 20 6f 76 65 72 72 69 64 65 20 74 68 65 20 6d 65 74 68 6f | -mop.and.then.override.the.metho |
| 1b7c00 | 64 73 20 69 6e 20 74 68 65 0a 3b 3b 3b 3b 20 69 6e 73 70 65 63 74 6f 72 2e 0a 0a 28 65 76 61 6c | ds.in.the.;;;;.inspector...(eval |
| 1b7c20 | 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 | -when.(:compile-toplevel.:load-t |
| 1b7c40 | 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 64 65 66 76 61 72 20 2a 68 61 76 | oplevel.:execute)...(defvar.*hav |
| 1b7c60 | 65 2d 6d 6f 70 2a 0a 20 20 20 20 28 61 6e 64 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 63 | e-mop*.....(and.(find-package.:c |
| 1b7c80 | 6c 6f 73 29 0a 20 20 20 20 20 20 20 20 20 28 65 71 6c 20 3a 65 78 74 65 72 6e 61 6c 0a 20 20 20 | los)..........(eql.:external.... |
| 1b7ca0 | 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 31 20 28 66 69 6e 64 2d 73 79 | ...........(nth-value.1.(find-sy |
| 1b7cc0 | 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 27 3a 73 74 61 6e 64 61 72 64 2d 73 6c 6f 74 2d 64 65 66 | mbol.(string.':standard-slot-def |
| 1b7ce0 | 69 6e 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | inition)........................ |
| 1b7d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6c 6f 73 29 29 29 29 0a 20 20 20 20 22 | .................:clos))))....." |
| 1b7d20 | 54 72 75 65 20 69 6e 20 74 68 6f 73 65 20 43 4c 49 53 50 20 69 6d 61 67 65 73 20 77 68 69 63 68 | True.in.those.CLISP.images.which |
| 1b7d40 | 20 68 61 76 65 20 61 20 63 6f 6d 70 6c 65 74 65 20 4d 4f 50 20 69 6d 70 6c 65 6d 65 6e 74 61 74 | .have.a.complete.MOP.implementat |
| 1b7d60 | 69 6f 6e 2e 22 29 29 0a 0a 23 2b 23 2e 28 63 6c 3a 69 66 20 73 77 61 6e 6b 2f 63 6c 69 73 70 3a | ion."))..#+#.(cl:if.swank/clisp: |
| 1b7d80 | 3a 2a 68 61 76 65 2d 6d 6f 70 2a 20 27 28 63 6c 3a 61 6e 64 29 20 27 28 63 6c 3a 6f 72 29 29 0a | :*have-mop*.'(cl:and).'(cl:or)). |
| 1b7da0 | 28 70 72 6f 67 6e 0a 20 20 28 69 6d 70 6f 72 74 2d 73 77 61 6e 6b 2d 6d 6f 70 2d 73 79 6d 62 6f | (progn...(import-swank-mop-symbo |
| 1b7dc0 | 6c 73 20 3a 63 6c 6f 73 20 27 28 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 | ls.:clos.'(:slot-definition-docu |
| 1b7de0 | 6d 65 6e 74 61 74 69 6f 6e 29 29 0a 0a 20 20 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a | mentation))....(defun.swank-mop: |
| 1b7e00 | 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 28 73 | slot-definition-documentation.(s |
| 1b7e20 | 6c 6f 74 29 0a 20 20 20 20 28 63 6c 6f 73 3a 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d | lot).....(clos::slot-definition- |
| 1b7e40 | 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 6f 74 29 29 29 0a 0a 23 2d 23 2e 28 63 6c 3a 69 | documentation.slot)))..#-#.(cl:i |
| 1b7e60 | 66 20 73 77 61 6e 6b 2f 63 6c 69 73 70 3a 3a 2a 68 61 76 65 2d 6d 6f 70 2a 20 27 28 61 6e 64 29 | f.swank/clisp::*have-mop*.'(and) |
| 1b7e80 | 20 27 28 6f 72 29 29 0a 28 64 65 66 63 6c 61 73 73 20 73 77 61 6e 6b 2d 6d 6f 70 3a 73 74 61 6e | .'(or)).(defclass.swank-mop:stan |
| 1b7ea0 | 64 61 72 64 2d 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 29 0a 20 20 28 29 0a 20 20 28 | dard-slot-definition.()...()...( |
| 1b7ec0 | 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 20 20 20 22 44 75 6d 6d 79 20 63 6c 61 73 73 20 63 | :documentation...."Dummy.class.c |
| 1b7ee0 | 72 65 61 74 65 64 20 73 6f 20 74 68 61 74 20 73 77 61 6e 6b 2e 6c 69 73 70 20 77 69 6c 6c 20 63 | reated.so.that.swank.lisp.will.c |
| 1b7f00 | 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 2e 22 29 29 0a 0a 28 6c 65 74 20 28 28 67 65 74 70 | ompile.and.load."))..(let.((getp |
| 1b7f20 | 69 64 20 28 6f 72 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 50 52 4f 43 45 53 53 2d 49 44 22 | id.(or.(find-symbol."PROCESS-ID" |
| 1b7f40 | 20 3a 73 79 73 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6f | .:system)...................;;.o |
| 1b7f60 | 6c 64 20 6e 61 6d 65 20 70 72 69 6f 72 20 74 6f 20 32 30 30 35 2d 30 33 2d 30 31 2c 20 63 6c 69 | ld.name.prior.to.2005-03-01,.cli |
| 1b7f80 | 73 70 20 3c 3d 20 32 2e 33 33 2e 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | sp.<=.2.33.2...................( |
| 1b7fa0 | 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 50 52 4f 47 52 41 4d 2d 49 44 22 20 3a 73 79 73 74 65 6d | find-symbol."PROGRAM-ID".:system |
| 1b7fc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 77 69 6e 33 32 20 3b 20 69 6e | )...................#+win32.;.in |
| 1b7fe0 | 74 65 67 72 61 74 65 64 20 69 6e 74 6f 20 74 68 65 20 61 62 6f 76 65 20 73 69 6e 63 65 20 32 30 | tegrated.into.the.above.since.20 |
| 1b8000 | 30 35 2d 30 32 2d 32 34 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 | 05-02-24...................(and. |
| 1b8020 | 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 77 69 6e 33 32 29 20 3b 20 6f 70 74 69 6f 6e 61 6c | (find-package.:win32).;.optional |
| 1b8040 | 20 6d 6f 64 75 6c 65 73 2f 77 69 6e 33 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .modules/win32.................. |
| 1b8060 | 20 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 47 65 74 43 75 72 72 65 6e 74 50 72 | ......(find-symbol."GetCurrentPr |
| 1b8080 | 6f 63 65 73 73 49 64 22 20 3a 77 69 6e 33 32 29 29 29 29 29 0a 20 20 28 64 65 66 69 6d 70 6c 65 | ocessId".:win32)))))...(defimple |
| 1b80a0 | 6d 65 6e 74 61 74 69 6f 6e 20 67 65 74 70 69 64 20 28 29 20 3b 20 61 20 72 65 71 75 69 72 65 64 | mentation.getpid.().;.a.required |
| 1b80c0 | 20 69 6e 74 65 72 66 61 63 65 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 28 67 65 74 70 | .interface.....(cond.......(getp |
| 1b80e0 | 69 64 20 28 66 75 6e 63 61 6c 6c 20 67 65 74 70 69 64 29 29 0a 20 20 20 20 20 20 23 2b 77 69 6e | id.(funcall.getpid)).......#+win |
| 1b8100 | 33 32 20 28 28 65 78 74 3a 67 65 74 65 6e 76 20 22 50 49 44 22 29 29 20 3b 20 77 68 65 72 65 20 | 32.((ext:getenv."PID")).;.where. |
| 1b8120 | 64 6f 65 73 20 74 68 61 74 20 63 6f 6d 65 20 66 72 6f 6d 3f 0a 20 20 20 20 20 20 28 74 20 2d 31 | does.that.come.from?.......(t.-1 |
| 1b8140 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 | ))))..(defimplementation.call-wi |
| 1b8160 | 74 68 2d 75 73 65 72 2d 62 72 65 61 6b 2d 68 61 6e 64 6c 65 72 20 28 68 61 6e 64 6c 65 72 20 66 | th-user-break-handler.(handler.f |
| 1b8180 | 75 6e 63 74 69 6f 6e 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 73 79 73 74 65 | unction)...(handler-bind.((syste |
| 1b81a0 | 6d 3a 3a 73 69 6d 70 6c 65 2d 69 6e 74 65 72 72 75 70 74 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 | m::simple-interrupt-condition... |
| 1b81c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 29 0a 20 20 20 20 | ................(lambda.(c)..... |
| 1b81e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 | ................(declare.(ignore |
| 1b8200 | 20 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c | .c)).....................(funcal |
| 1b8220 | 6c 20 68 61 6e 64 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | l.handler).....................( |
| 1b8240 | 77 68 65 6e 20 28 66 69 6e 64 2d 72 65 73 74 61 72 74 20 27 73 6f 63 6b 65 74 2d 73 74 61 74 75 | when.(find-restart.'socket-statu |
| 1b8260 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 76 6f 6b 65 | s).......................(invoke |
| 1b8280 | 2d 72 65 73 74 61 72 74 20 28 66 69 6e 64 2d 72 65 73 74 61 72 74 20 27 73 6f 63 6b 65 74 2d 73 | -restart.(find-restart.'socket-s |
| 1b82a0 | 74 61 74 75 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | tatus))).....................(co |
| 1b82c0 | 6e 74 69 6e 75 65 29 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e | ntinue)))).....(funcall.function |
| 1b82e0 | 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 70 2d 69 6d 70 | )))..(defimplementation.lisp-imp |
| 1b8300 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 20 28 29 0a 20 20 22 63 6c 69 73 | lementation-type-name.()..."clis |
| 1b8320 | 70 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 61 | p")..(defimplementation.set-defa |
| 1b8340 | 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 73 65 74 | ult-directory.(directory)...(set |
| 1b8360 | 66 20 28 65 78 74 3a 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 20 64 69 72 65 63 74 | f.(ext:default-directory).direct |
| 1b8380 | 6f 72 79 29 0a 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 73 65 74 66 20 2a 64 65 66 61 75 6c | ory)...(namestring.(setf.*defaul |
| 1b83a0 | 74 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 20 28 65 78 74 3a 64 65 66 61 75 6c | t-pathname-defaults*.(ext:defaul |
| 1b83c0 | 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | t-directory))))..(defimplementat |
| 1b83e0 | 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 2d 74 6f 2d 70 61 74 68 6e 61 6d 65 20 28 73 74 72 69 6e 67 | ion.filename-to-pathname.(string |
| 1b8400 | 29 0a 20 20 28 63 6f 6e 64 20 28 28 6d 65 6d 62 65 72 20 3a 63 79 67 77 69 6e 20 2a 66 65 61 74 | )...(cond.((member.:cygwin.*feat |
| 1b8420 | 75 72 65 73 2a 29 0a 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 2d 63 79 67 77 69 6e 2d 66 69 | ures*)..........(parse-cygwin-fi |
| 1b8440 | 6c 65 6e 61 6d 65 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 70 61 72 73 | lename.string)).........(t.(pars |
| 1b8460 | 65 2d 6e 61 6d 65 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | e-namestring.string))))..(defun. |
| 1b8480 | 70 61 72 73 65 2d 63 79 67 77 69 6e 2d 66 69 6c 65 6e 61 6d 65 20 28 73 74 72 69 6e 67 29 0a 20 | parse-cygwin-filename.(string).. |
| 1b84a0 | 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6d 61 74 63 68 20 5f 20 64 | .(multiple-value-bind.(match._.d |
| 1b84c0 | 72 69 76 65 20 61 62 73 6f 6c 75 74 65 29 0a 20 20 20 20 20 20 28 72 65 67 65 78 70 3a 6d 61 74 | rive.absolute).......(regexp:mat |
| 1b84e0 | 63 68 20 22 5e 28 28 5b 61 2d 7a 41 2d 5a 5c 5c 5d 2b 29 3a 29 3f 28 5b 5c 5c 2f 5d 29 3f 22 20 | ch."^(([a-zA-Z\\]+):)?([\\/])?". |
| 1b8500 | 73 74 72 69 6e 67 20 3a 65 78 74 65 6e 64 65 64 20 74 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 | string.:extended.t).....(declare |
| 1b8520 | 20 28 69 67 6e 6f 72 65 20 5f 29 29 0a 20 20 20 20 28 61 73 73 65 72 74 20 28 61 6e 64 20 6d 61 | .(ignore._)).....(assert.(and.ma |
| 1b8540 | 74 63 68 20 28 69 66 20 64 72 69 76 65 20 61 62 73 6f 6c 75 74 65 20 74 29 29 20 28 29 0a 20 20 | tch.(if.drive.absolute.t)).()... |
| 1b8560 | 20 20 20 20 20 20 20 20 20 20 22 49 6e 76 61 6c 69 64 20 66 69 6c 65 6e 61 6d 65 20 73 79 6e 74 | .........."Invalid.filename.synt |
| 1b8580 | 61 78 3a 20 7e 61 22 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 73 61 6e 73 | ax:.~a".string).....(let*.((sans |
| 1b85a0 | 2d 70 72 65 66 69 78 20 28 73 75 62 73 65 71 20 73 74 72 69 6e 67 20 28 72 65 67 65 78 70 3a 6d | -prefix.(subseq.string.(regexp:m |
| 1b85c0 | 61 74 63 68 2d 65 6e 64 20 6d 61 74 63 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 61 | atch-end.match)))............(pa |
| 1b85e0 | 74 68 20 28 72 65 6d 6f 76 65 20 22 22 20 28 72 65 67 65 78 70 3a 72 65 67 65 78 70 2d 73 70 6c | th.(remove."".(regexp:regexp-spl |
| 1b8600 | 69 74 20 22 5b 5c 5c 2f 5d 22 20 73 61 6e 73 2d 70 72 65 66 69 78 29 29 29 0a 20 20 20 20 20 20 | it."[\\/]".sans-prefix)))....... |
| 1b8620 | 20 20 20 20 20 28 70 61 74 68 20 28 6c 6f 6f 70 20 66 6f 72 20 6e 61 6d 65 20 69 6e 20 70 61 74 | .....(path.(loop.for.name.in.pat |
| 1b8640 | 68 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h.collect....................... |
| 1b8660 | 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 6e 61 6d 65 20 22 2e 2e 22 29 20 27 3a 62 61 63 6b | .(cond.((equal.name."..").':back |
| 1b8680 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | )..............................( |
| 1b86a0 | 74 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 63 74 6f 72 79 | t.name))))............(directory |
| 1b86c0 | 70 20 28 6f 72 20 28 65 71 75 61 6c 20 73 74 72 69 6e 67 20 22 22 29 0a 20 20 20 20 20 20 20 20 | p.(or.(equal.string."")......... |
| 1b86e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 20 28 61 72 65 66 20 73 | ...................(find.(aref.s |
| 1b8700 | 74 72 69 6e 67 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 29 29 20 22 5c 5c 2f | tring.(1-.(length.string)))."\\/ |
| 1b8720 | 22 29 29 29 29 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 | ")))).......(multiple-value-bind |
| 1b8740 | 20 28 66 69 6c 65 20 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 | .(file.type)...........(cond.((a |
| 1b8760 | 6e 64 20 28 6e 6f 74 20 64 69 72 65 63 74 6f 72 79 70 29 20 28 6c 61 73 74 20 70 61 74 68 29 29 | nd.(not.directoryp).(last.path)) |
| 1b8780 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 65 20 28 | ..................(let*.((file.( |
| 1b87a0 | 63 61 72 20 28 6c 61 73 74 20 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | car.(last.path)))............... |
| 1b87c0 | 20 20 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 70 6f 73 69 74 69 6f 6e 20 23 5c 2e 20 66 69 6c | ..........(pos.(position.#\..fil |
| 1b87e0 | 65 20 3a 66 72 6f 6d 2d 65 6e 64 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.:from-end.t)))................ |
| 1b8800 | 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 70 6f 73 20 28 3e 20 70 6f 73 20 30 29 29 20 0a | ....(cond.((and.pos.(>.pos.0)).. |
| 1b8820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 | ..........................(value |
| 1b8840 | 73 20 28 73 75 62 73 65 71 20 66 69 6c 65 20 30 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 | s.(subseq.file.0.pos)........... |
| 1b8860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 65 71 20 | ........................(subseq. |
| 1b8880 | 66 69 6c 65 20 28 31 2b 20 70 6f 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | file.(1+.pos))))................ |
| 1b88a0 | 20 20 20 20 20 20 20 20 20 20 28 74 20 66 69 6c 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 | ..........(t.file))))).........( |
| 1b88c0 | 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 68 6f 73 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 | make-pathname.:host.nil......... |
| 1b88e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 76 69 63 65 20 6e 69 6c 0a 20 20 20 20 20 | ...............:device.nil...... |
| 1b8900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 69 72 65 63 74 6f 72 79 20 28 63 6f | ..................:directory.(co |
| 1b8920 | 6e 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ns.............................. |
| 1b8940 | 20 20 20 20 20 20 20 28 69 66 20 61 62 73 6f 6c 75 74 65 20 3a 61 62 73 6f 6c 75 74 65 20 3a 72 | .......(if.absolute.:absolute.:r |
| 1b8960 | 65 6c 61 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | elative)........................ |
| 1b8980 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 61 74 68 20 28 69 66 20 64 69 72 65 | ............(let.((path.(if.dire |
| 1b89a0 | 63 74 6f 72 79 70 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ctoryp.......................... |
| 1b89c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 20 | ...........................path. |
| 1b89e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1b8a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 74 6c 61 73 74 20 70 61 74 | ....................(butlast.pat |
| 1b8a20 | 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h))))........................... |
| 1b8a40 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 64 72 69 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 | ...........(if.drive............ |
| 1b8a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | ..............................(c |
| 1b8a80 | 6f 6e 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ons............................. |
| 1b8aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 67 65 78 70 3a 6d 61 74 63 68 2d 73 74 72 | ...............(regexp:match-str |
| 1b8ac0 | 69 6e 67 20 73 74 72 69 6e 67 20 64 72 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing.string.drive)............... |
| 1b8ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 | ............................path |
| 1b8b00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 1b8b20 | 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........path))).............. |
| 1b8b40 | 20 20 20 20 20 20 20 20 20 20 3a 6e 61 6d 65 20 66 69 6c 65 20 0a 20 20 20 20 20 20 20 20 20 20 | ..........:name.file............ |
| 1b8b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 79 70 65 20 74 79 70 65 29 29 29 29 29 0a 0a 3b 3b | .............:type.type)))))..;; |
| 1b8b80 | 3b 3b 20 55 54 46 20 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 | ;;.UTF...(defimplementation.stri |
| 1b8ba0 | 6e 67 2d 74 6f 2d 75 74 66 38 20 28 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 63 | ng-to-utf8.(string)...(let.((enc |
| 1b8bc0 | 20 28 6c 6f 61 64 2d 74 69 6d 65 2d 76 61 6c 75 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(load-time-value............... |
| 1b8be0 | 20 28 65 78 74 3a 6d 61 6b 65 2d 65 6e 63 6f 64 69 6e 67 20 3a 63 68 61 72 73 65 74 20 22 75 74 | .(ext:make-encoding.:charset."ut |
| 1b8c00 | 66 2d 38 22 20 3a 6c 69 6e 65 2d 74 65 72 6d 69 6e 61 74 6f 72 20 3a 75 6e 69 78 29 0a 20 20 20 | f-8".:line-terminator.:unix).... |
| 1b8c20 | 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 0a 20 20 20 20 28 65 78 74 3a 63 6f 6e 76 65 72 74 | ...........t))).....(ext:convert |
| 1b8c40 | 2d 73 74 72 69 6e 67 2d 74 6f 2d 62 79 74 65 73 20 73 74 72 69 6e 67 20 65 6e 63 29 29 29 0a 0a | -string-to-bytes.string.enc))).. |
| 1b8c60 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 74 66 38 2d 74 6f 2d 73 74 72 69 6e | (defimplementation.utf8-to-strin |
| 1b8c80 | 67 20 28 6f 63 74 65 74 73 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 63 20 28 6c 6f 61 64 2d 74 69 | g.(octets)...(let.((enc.(load-ti |
| 1b8ca0 | 6d 65 2d 76 61 6c 75 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 6d 61 6b | me-value................(ext:mak |
| 1b8cc0 | 65 2d 65 6e 63 6f 64 69 6e 67 20 3a 63 68 61 72 73 65 74 20 22 75 74 66 2d 38 22 20 3a 6c 69 6e | e-encoding.:charset."utf-8".:lin |
| 1b8ce0 | 65 2d 74 65 72 6d 69 6e 61 74 6f 72 20 3a 75 6e 69 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e-terminator.:unix)............. |
| 1b8d00 | 20 20 74 29 29 29 0a 20 20 20 20 28 65 78 74 3a 63 6f 6e 76 65 72 74 2d 73 74 72 69 6e 67 2d 66 | ..t))).....(ext:convert-string-f |
| 1b8d20 | 72 6f 6d 2d 62 79 74 65 73 20 6f 63 74 65 74 73 20 65 6e 63 29 29 29 0a 0a 3b 3b 3b 3b 20 54 43 | rom-bytes.octets.enc)))..;;;;.TC |
| 1b8d40 | 50 20 53 65 72 76 65 72 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 | P.Server..(defimplementation.cre |
| 1b8d60 | 61 74 65 2d 73 6f 63 6b 65 74 20 28 68 6f 73 74 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c | ate-socket.(host.port.&key.backl |
| 1b8d80 | 6f 67 29 0a 20 20 28 73 6f 63 6b 65 74 3a 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 20 70 6f 72 74 | og)...(socket:socket-server.port |
| 1b8da0 | 20 3a 69 6e 74 65 72 66 61 63 65 20 68 6f 73 74 20 3a 62 61 63 6b 6c 6f 67 20 28 6f 72 20 62 61 | .:interface.host.:backlog.(or.ba |
| 1b8dc0 | 63 6b 6c 6f 67 20 35 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c | cklog.5)))..(defimplementation.l |
| 1b8de0 | 6f 63 61 6c 2d 70 6f 72 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 73 6f 63 6b 65 74 3a 73 6f 63 | ocal-port.(socket)...(socket:soc |
| 1b8e00 | 6b 65 74 2d 73 65 72 76 65 72 2d 70 6f 72 74 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6d | ket-server-port.socket))..(defim |
| 1b8e20 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 28 73 6f 63 6b 65 | plementation.close-socket.(socke |
| 1b8e40 | 74 29 0a 20 20 28 73 6f 63 6b 65 74 3a 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 63 6c 6f 73 65 | t)...(socket:socket-server-close |
| 1b8e60 | 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 63 | .socket))..(defimplementation.ac |
| 1b8e80 | 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6f 63 6b 65 74 0a 20 20 20 20 20 20 20 20 | cept-connection.(socket......... |
| 1b8ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b | ..............................&k |
| 1b8ec0 | 65 79 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 62 75 66 66 65 72 69 6e 67 20 74 69 6d | ey.external-format.buffering.tim |
| 1b8ee0 | 65 6f 75 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 62 75 66 66 65 72 69 | eout)...(declare.(ignore.bufferi |
| 1b8f00 | 6e 67 20 74 69 6d 65 6f 75 74 29 29 0a 20 20 28 73 6f 63 6b 65 74 3a 73 6f 63 6b 65 74 2d 61 63 | ng.timeout))...(socket:socket-ac |
| 1b8f20 | 63 65 70 74 20 73 6f 63 6b 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cept.socket..................... |
| 1b8f40 | 20 20 20 20 3a 62 75 66 66 65 72 65 64 20 62 75 66 66 65 72 69 6e 67 20 3b 3b 20 58 58 58 20 6d | ....:buffered.buffering.;;.XXX.m |
| 1b8f60 | 61 79 20 6e 6f 74 20 77 6f 72 6b 20 69 66 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ay.not.work.if.t................ |
| 1b8f80 | 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 28 69 66 20 65 78 74 65 72 | .........:element-type.(if.exter |
| 1b8fa0 | 6e 61 6c 2d 66 6f 72 6d 61 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nal-format...................... |
| 1b8fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 68 61 72 61 63 74 65 72 | ......................'character |
| 1b8fe0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1b9000 | 20 20 20 20 20 20 20 20 20 20 20 27 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 38 29 29 0a 20 | ...........'(unsigned-byte.8)).. |
| 1b9020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c | .......................:external |
| 1b9040 | 2d 66 6f 72 6d 61 74 20 28 6f 72 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 3a 64 65 66 | -format.(or.external-format.:def |
| 1b9060 | 61 75 6c 74 29 29 29 0a 0a 23 2d 77 69 6e 33 32 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | ault)))..#-win32.(defimplementat |
| 1b9080 | 69 6f 6e 20 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 20 28 73 74 72 65 61 6d 73 20 26 6f 70 74 | ion.wait-for-input.(streams.&opt |
| 1b90a0 | 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 61 73 73 65 72 74 20 28 6d 65 6d 62 65 72 | ional.timeout)...(assert.(member |
| 1b90c0 | 20 74 69 6d 65 6f 75 74 20 27 28 6e 69 6c 20 74 29 29 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 | .timeout.'(nil.t)))...(let.((str |
| 1b90e0 | 65 61 6d 73 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 73 29 20 28 6c 69 73 74 2a 20 | eams.(mapcar.(lambda.(s).(list*. |
| 1b9100 | 73 20 3a 69 6e 70 75 74 20 6e 69 6c 29 29 20 73 74 72 65 61 6d 73 29 29 29 0a 20 20 20 20 28 6c | s.:input.nil)).streams))).....(l |
| 1b9120 | 6f 6f 70 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 | oop......(cond.((check-slime-int |
| 1b9140 | 65 72 72 75 70 74 73 29 20 28 72 65 74 75 72 6e 20 3a 69 6e 74 65 72 72 75 70 74 29 29 0a 20 20 | errupts).(return.:interrupt))... |
| 1b9160 | 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | .........(timeout.............(s |
| 1b9180 | 6f 63 6b 65 74 3a 73 6f 63 6b 65 74 2d 73 74 61 74 75 73 20 73 74 72 65 61 6d 73 20 30 20 30 29 | ocket:socket-status.streams.0.0) |
| 1b91a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 6c 6f 6f 70 20 66 6f 72 20 28 | .............(return.(loop.for.( |
| 1b91c0 | 73 20 6e 69 6c 20 2e 20 78 29 20 69 6e 20 73 74 72 65 61 6d 73 0a 20 20 20 20 20 20 20 20 20 20 | s.nil...x).in.streams........... |
| 1b91e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 78 20 63 6f 6c 6c 65 63 74 20 73 29 29 | ................if.x.collect.s)) |
| 1b9200 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 | )............(t.............(wit |
| 1b9220 | 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 20 28 73 6f 63 6b 65 74 2d 73 74 61 74 75 73 20 | h-simple-restart.(socket-status. |
| 1b9240 | 22 52 65 74 75 72 6e 20 66 72 6f 6d 20 73 6f 63 6b 65 74 2d 73 74 61 74 75 73 2e 22 29 0a 20 20 | "Return.from.socket-status.")... |
| 1b9260 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 63 6b 65 74 3a 73 6f 63 6b 65 74 2d 73 74 61 74 75 | ............(socket:socket-statu |
| 1b9280 | 73 20 73 74 72 65 61 6d 73 20 30 20 35 30 30 30 30 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | s.streams.0.500000))............ |
| 1b92a0 | 20 28 6c 65 74 20 28 28 72 65 61 64 79 20 28 6c 6f 6f 70 20 66 6f 72 20 28 73 20 6e 69 6c 20 2e | .(let.((ready.(loop.for.(s.nil.. |
| 1b92c0 | 20 78 29 20 69 6e 20 73 74 72 65 61 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .x).in.streams.................. |
| 1b92e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 78 20 63 6f 6c 6c 65 63 74 20 73 29 29 29 0a | ..............if.x.collect.s))). |
| 1b9300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 61 64 79 20 28 72 65 74 75 72 | ..............(when.ready.(retur |
| 1b9320 | 6e 20 72 65 61 64 79 29 29 29 29 29 29 29 29 0a 0a 23 2b 77 69 6e 33 32 0a 28 64 65 66 69 6d 70 | n.ready))))))))..#+win32.(defimp |
| 1b9340 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 20 28 73 74 72 65 | lementation.wait-for-input.(stre |
| 1b9360 | 61 6d 73 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 61 73 73 65 72 74 | ams.&optional.timeout)...(assert |
| 1b9380 | 20 28 6d 65 6d 62 65 72 20 74 69 6d 65 6f 75 74 20 27 28 6e 69 6c 20 74 29 29 29 0a 20 20 28 6c | .(member.timeout.'(nil.t)))...(l |
| 1b93a0 | 6f 6f 70 0a 20 20 20 28 63 6f 6e 64 20 28 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 | oop....(cond.((check-slime-inter |
| 1b93c0 | 72 75 70 74 73 29 20 28 72 65 74 75 72 6e 20 3a 69 6e 74 65 72 72 75 70 74 29 29 0a 20 20 20 20 | rupts).(return.:interrupt))..... |
| 1b93e0 | 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 61 64 79 20 28 | .....(t...........(let.((ready.( |
| 1b9400 | 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 27 69 6e 70 75 74 2d 61 76 61 69 6c 61 62 6c 65 2d | remove-if-not.#'input-available- |
| 1b9420 | 70 20 73 74 72 65 61 6d 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 72 | p.streams))).............(when.r |
| 1b9440 | 65 61 64 79 20 28 72 65 74 75 72 6e 20 72 65 61 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | eady.(return.ready)))........... |
| 1b9460 | 28 77 68 65 6e 20 74 69 6d 65 6f 75 74 20 28 72 65 74 75 72 6e 20 6e 69 6c 29 29 0a 20 20 20 20 | (when.timeout.(return.nil))..... |
| 1b9480 | 20 20 20 20 20 20 28 73 6c 65 65 70 20 30 2e 31 29 29 29 29 29 0a 0a 23 2b 77 69 6e 33 32 0a 3b | ......(sleep.0.1)))))..#+win32.; |
| 1b94a0 | 3b 20 53 6f 6d 65 20 66 61 63 74 73 20 74 6f 20 72 65 6d 65 6d 62 65 72 20 28 66 6f 72 20 74 68 | ;.Some.facts.to.remember.(for.th |
| 1b94c0 | 65 20 6e 65 78 74 20 74 69 6d 65 20 77 65 20 6e 65 65 64 20 74 6f 20 64 65 62 75 67 20 74 68 69 | e.next.time.we.need.to.debug.thi |
| 1b94e0 | 73 29 3a 0a 3b 3b 20 20 2d 20 69 6e 74 65 72 61 63 74 69 76 65 2d 73 72 65 61 6d 2d 70 20 72 65 | s):.;;..-.interactive-sream-p.re |
| 1b9500 | 74 75 72 6e 73 20 74 20 66 6f 72 20 73 6f 63 6b 65 74 2d 73 74 72 65 61 6d 73 0a 3b 3b 20 20 2d | turns.t.for.socket-streams.;;..- |
| 1b9520 | 20 6c 69 73 74 65 6e 20 72 65 74 75 72 6e 73 20 6e 69 6c 20 66 6f 72 20 73 6f 63 6b 65 74 2d 73 | .listen.returns.nil.for.socket-s |
| 1b9540 | 74 72 65 61 6d 73 0a 3b 3b 20 20 2d 20 28 74 79 70 65 2d 6f 66 20 3c 73 6f 63 6b 65 74 2d 73 74 | treams.;;..-.(type-of.<socket-st |
| 1b9560 | 72 65 61 6d 3e 29 20 69 73 20 27 73 74 72 65 61 6d 0a 3b 3b 20 20 2d 20 28 74 79 70 65 2d 6f 66 | ream>).is.'stream.;;..-.(type-of |
| 1b9580 | 20 2a 74 65 72 6d 69 6e 61 6c 2d 69 6f 2a 29 20 69 73 20 27 74 77 6f 2d 77 61 79 2d 73 74 72 65 | .*terminal-io*).is.'two-way-stre |
| 1b95a0 | 61 6d 0a 3b 3b 20 20 2d 20 73 74 72 65 61 6d 2d 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 6f 6e 20 | am.;;..-.stream-element-type.on. |
| 1b95c0 | 6f 75 72 20 73 6f 63 6b 65 74 73 20 69 73 20 75 73 75 61 6c 6c 79 20 28 55 4e 53 49 47 4e 45 44 | our.sockets.is.usually.(UNSIGNED |
| 1b95e0 | 2d 42 59 54 45 20 38 29 0a 3b 3b 20 20 2d 20 63 61 6c 6c 69 6e 67 20 73 6f 63 6b 65 74 3a 73 6f | -BYTE.8).;;..-.calling.socket:so |
| 1b9600 | 63 6b 65 74 2d 73 74 61 74 75 73 20 6f 6e 20 6e 6f 6e 20 73 6f 63 6b 65 74 73 20 73 69 67 6e 61 | cket-status.on.non.sockets.signa |
| 1b9620 | 6c 73 20 61 6e 20 65 72 72 6f 72 2c 0a 3b 3b 20 20 20 20 62 75 74 20 73 65 65 6d 73 20 74 6f 20 | ls.an.error,.;;....but.seems.to. |
| 1b9640 | 6d 65 73 73 20 75 70 20 73 6f 6d 65 74 68 69 6e 67 20 69 6e 74 65 72 6e 61 6c 6c 79 2e 0a 3b 3b | mess.up.something.internally..;; |
| 1b9660 | 20 20 2d 20 63 61 6c 6c 69 6e 67 20 72 65 61 64 2d 63 68 61 72 2d 6e 6f 2d 68 61 6e 67 20 6f 6e | ..-.calling.read-char-no-hang.on |
| 1b9680 | 20 73 6f 63 6b 65 74 73 20 64 6f 65 73 20 6e 6f 74 20 73 69 67 6e 61 6c 20 61 6e 20 65 72 72 6f | .sockets.does.not.signal.an.erro |
| 1b96a0 | 72 2c 0a 3b 3b 20 20 20 20 62 75 74 20 73 65 65 6d 73 20 74 6f 20 6d 65 73 73 20 75 70 20 73 6f | r,.;;....but.seems.to.mess.up.so |
| 1b96c0 | 6d 65 74 68 69 6e 67 20 69 6e 74 65 72 6e 61 6c 6c 79 2e 0a 28 64 65 66 75 6e 20 69 6e 70 75 74 | mething.internally..(defun.input |
| 1b96e0 | 2d 61 76 61 69 6c 61 62 6c 65 2d 70 20 28 73 74 72 65 61 6d 29 0a 20 20 28 63 61 73 65 20 28 73 | -available-p.(stream)...(case.(s |
| 1b9700 | 74 72 65 61 6d 2d 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 73 74 72 65 61 6d 29 0a 20 20 20 20 28 | tream-element-type.stream).....( |
| 1b9720 | 63 68 61 72 61 63 74 65 72 0a 20 20 20 20 20 28 6c 65 74 20 28 28 63 20 28 72 65 61 64 2d 63 68 | character......(let.((c.(read-ch |
| 1b9740 | 61 72 2d 6e 6f 2d 68 61 6e 67 20 73 74 72 65 61 6d 20 6e 69 6c 20 6e 69 6c 29 29 29 0a 20 20 20 | ar-no-hang.stream.nil.nil))).... |
| 1b9760 | 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(cond.((not.c).............. |
| 1b9780 | 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 | .nil)..............(t........... |
| 1b97a0 | 20 20 20 20 28 75 6e 72 65 61 64 2d 63 68 61 72 20 63 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 | ....(unread-char.c.stream)...... |
| 1b97c0 | 20 20 20 20 20 20 20 20 20 74 29 29 29 29 0a 20 20 20 20 28 74 0a 20 20 20 20 20 28 65 71 20 28 | .........t)))).....(t......(eq.( |
| 1b97e0 | 73 6f 63 6b 65 74 3a 73 6f 63 6b 65 74 2d 73 74 61 74 75 73 20 28 63 6f 6e 73 20 73 74 72 65 61 | socket:socket-status.(cons.strea |
| 1b9800 | 6d 20 3a 69 6e 70 75 74 29 20 30 20 30 29 0a 20 20 20 20 20 20 20 20 20 3a 69 6e 70 75 74 29 29 | m.:input).0.0)..........:input)) |
| 1b9820 | 29 29 0a 0a 3b 3b 3b 3b 20 43 6f 64 69 6e 67 20 73 79 73 74 65 6d 73 0a 0a 28 64 65 66 76 61 72 | ))..;;;;.Coding.systems..(defvar |
| 1b9840 | 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 | .*external-format-to-coding-syst |
| 1b9860 | 65 6d 2a 0a 20 20 27 28 28 28 3a 63 68 61 72 73 65 74 20 22 69 73 6f 2d 38 38 35 39 2d 31 22 20 | em*...'(((:charset."iso-8859-1". |
| 1b9880 | 3a 6c 69 6e 65 2d 74 65 72 6d 69 6e 61 74 6f 72 20 3a 75 6e 69 78 29 0a 20 20 20 20 20 22 6c 61 | :line-terminator.:unix)......"la |
| 1b98a0 | 74 69 6e 2d 31 2d 75 6e 69 78 22 20 22 69 73 6f 2d 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 22 | tin-1-unix"."iso-latin-1-unix"." |
| 1b98c0 | 69 73 6f 2d 38 38 35 39 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 28 3a 63 68 61 72 73 65 74 | iso-8859-1-unix").....((:charset |
| 1b98e0 | 20 22 69 73 6f 2d 38 38 35 39 2d 31 22 29 0a 20 20 20 20 20 22 6c 61 74 69 6e 2d 31 22 20 22 69 | ."iso-8859-1")......"latin-1"."i |
| 1b9900 | 73 6f 2d 6c 61 74 69 6e 2d 31 22 20 22 69 73 6f 2d 38 38 35 39 2d 31 22 29 0a 20 20 20 20 28 28 | so-latin-1"."iso-8859-1").....(( |
| 1b9920 | 3a 63 68 61 72 73 65 74 20 22 75 74 66 2d 38 22 29 20 22 75 74 66 2d 38 22 29 0a 20 20 20 20 28 | :charset."utf-8")."utf-8").....( |
| 1b9940 | 28 3a 63 68 61 72 73 65 74 20 22 75 74 66 2d 38 22 20 3a 6c 69 6e 65 2d 74 65 72 6d 69 6e 61 74 | (:charset."utf-8".:line-terminat |
| 1b9960 | 6f 72 20 3a 75 6e 69 78 29 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 28 3a 63 | or.:unix)."utf-8-unix").....((:c |
| 1b9980 | 68 61 72 73 65 74 20 22 65 75 63 2d 6a 70 22 29 20 22 65 75 63 2d 6a 70 22 29 0a 20 20 20 20 28 | harset."euc-jp")."euc-jp").....( |
| 1b99a0 | 28 3a 63 68 61 72 73 65 74 20 22 65 75 63 2d 6a 70 22 20 3a 6c 69 6e 65 2d 74 65 72 6d 69 6e 61 | (:charset."euc-jp".:line-termina |
| 1b99c0 | 74 6f 72 20 3a 75 6e 69 78 29 20 22 65 75 63 2d 6a 70 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 28 | tor.:unix)."euc-jp-unix").....(( |
| 1b99e0 | 3a 63 68 61 72 73 65 74 20 22 75 73 2d 61 73 63 69 69 22 29 20 22 75 73 2d 61 73 63 69 69 22 29 | :charset."us-ascii")."us-ascii") |
| 1b9a00 | 0a 20 20 20 20 28 28 3a 63 68 61 72 73 65 74 20 22 75 73 2d 61 73 63 69 69 22 20 3a 6c 69 6e 65 | .....((:charset."us-ascii".:line |
| 1b9a20 | 2d 74 65 72 6d 69 6e 61 74 6f 72 20 3a 75 6e 69 78 29 20 22 75 73 2d 61 73 63 69 69 2d 75 6e 69 | -terminator.:unix)."us-ascii-uni |
| 1b9a40 | 78 22 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 65 | x")))..(defimplementation.find-e |
| 1b9a60 | 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 | xternal-format.(coding-system).. |
| 1b9a80 | 20 28 6c 65 74 20 28 28 61 72 67 73 20 28 63 61 72 20 28 72 61 73 73 6f 63 2d 69 66 20 28 6c 61 | .(let.((args.(car.(rassoc-if.(la |
| 1b9aa0 | 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mbda.(x)........................ |
| 1b9ac0 | 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 78 | .........(member.coding-system.x |
| 1b9ae0 | 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:test.#'equal))................ |
| 1b9b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d | ...............*external-format- |
| 1b9b20 | 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 29 29 29 29 0a 20 20 20 20 28 61 6e 64 20 61 | to-coding-system*)))).....(and.a |
| 1b9b40 | 72 67 73 20 28 61 70 70 6c 79 20 23 27 65 78 74 3a 6d 61 6b 65 2d 65 6e 63 6f 64 69 6e 67 20 61 | rgs.(apply.#'ext:make-encoding.a |
| 1b9b60 | 72 67 73 29 29 29 29 0a 0a 0a 3b 3b 3b 3b 20 53 77 61 6e 6b 20 66 75 6e 63 74 69 6f 6e 73 0a 0a | rgs))))...;;;;.Swank.functions.. |
| 1b9b80 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 | (defimplementation.function-name |
| 1b9ba0 | 20 28 66 29 0a 20 20 28 63 68 65 63 6b 2d 74 79 70 65 20 66 20 66 75 6e 63 74 69 6f 6e 29 0a 20 | .(f)...(check-type.f.function).. |
| 1b9bc0 | 20 28 73 79 73 74 65 6d 3a 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 29 0a 0a 28 64 65 | .(system::function-name.f))..(de |
| 1b9be0 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 72 67 6c 69 73 74 20 28 66 6e 61 6d 65 29 0a | fimplementation.arglist.(fname). |
| 1b9c00 | 20 20 28 62 6c 6f 63 6b 20 6e 69 6c 0a 20 20 20 20 28 6f 72 20 28 69 67 6e 6f 72 65 2d 65 72 72 | ..(block.nil.....(or.(ignore-err |
| 1b9c20 | 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 65 78 74 3a 61 72 67 6c 69 | ors...........(return.(ext:argli |
| 1b9c40 | 73 74 20 66 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 46 6f 72 20 74 72 61 63 65 | st.fname))).........;;.For.trace |
| 1b9c60 | 64 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 69 73 20 72 65 74 75 72 6e 73 20 74 68 65 20 65 6e 74 | d.functions.this.returns.the.ent |
| 1b9c80 | 69 72 65 20 65 6e 63 61 70 73 75 6c 61 74 69 6e 67 0a 20 20 20 20 20 20 20 20 3b 3b 20 6c 61 6d | ire.encapsulating.........;;.lam |
| 1b9ca0 | 62 64 61 2e 0a 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 | bda..........(ignore-errors..... |
| 1b9cc0 | 20 20 20 20 20 28 6c 65 74 20 28 28 65 78 70 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 | .....(let.((exp.(function-lambda |
| 1b9ce0 | 2d 65 78 70 72 65 73 73 69 6f 6e 20 66 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -expression.fname)))............ |
| 1b9d00 | 28 61 6e 64 20 65 78 70 20 28 72 65 74 75 72 6e 20 28 73 65 63 6f 6e 64 20 65 78 70 29 29 29 29 | (and.exp.(return.(second.exp)))) |
| 1b9d20 | 29 0a 20 20 20 20 20 20 20 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 0a 0a 28 64 65 | ).........:not-available)))..(de |
| 1b9d40 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 | fimplementation.macroexpand-all. |
| 1b9d60 | 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 28 64 65 63 6c 61 72 65 20 | (form.&optional.env)...(declare. |
| 1b9d80 | 28 69 67 6e 6f 72 65 20 65 6e 76 29 29 0a 20 20 28 65 78 74 3a 65 78 70 61 6e 64 2d 66 6f 72 6d | (ignore.env))...(ext:expand-form |
| 1b9da0 | 20 66 6f 72 6d 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6c 6c | .form))..(defimplementation.coll |
| 1b9dc0 | 65 63 74 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 | ect-macro-forms.(form.&optional. |
| 1b9de0 | 65 6e 76 29 0a 20 20 3b 3b 20 43 75 72 72 65 6e 74 6c 79 20 64 65 74 65 63 74 73 20 6f 6e 6c 79 | env)...;;.Currently.detects.only |
| 1b9e00 | 20 6e 6f 72 6d 61 6c 20 6d 61 63 72 6f 73 2c 20 6e 6f 74 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 | .normal.macros,.not.compiler.mac |
| 1b9e20 | 72 6f 73 2e 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 65 6e 76 29 29 0a 20 20 | ros....(declare.(ignore.env))... |
| 1b9e40 | 28 77 69 74 68 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 28 6d 61 63 | (with-collected-macro-forms.(mac |
| 1b9e60 | 72 6f 2d 66 6f 72 6d 73 29 0a 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 | ro-forms).......(handler-bind.(( |
| 1b9e80 | 77 61 72 6e 69 6e 67 20 23 27 6d 75 66 66 6c 65 2d 77 61 72 6e 69 6e 67 29 29 0a 20 20 20 20 20 | warning.#'muffle-warning))...... |
| 1b9ea0 | 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d | ...(ignore-errors...........(com |
| 1b9ec0 | 70 69 6c 65 20 6e 69 6c 20 60 28 6c 61 6d 62 64 61 20 28 29 20 2c 66 6f 72 6d 29 29 29 29 0a 20 | pile.nil.`(lambda.().,form)))).. |
| 1b9ee0 | 20 20 20 28 76 61 6c 75 65 73 20 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 6e 69 6c 29 29 29 0a 0a 28 | ...(values.macro-forms.nil)))..( |
| 1b9f00 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f | defimplementation.describe-symbo |
| 1b9f20 | 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 61 | l-for-emacs.(symbol)..."Return.a |
| 1b9f40 | 20 70 6c 69 73 74 20 64 65 73 63 72 69 62 69 6e 67 20 53 59 4d 42 4f 4c 2e 0a 52 65 74 75 72 6e | .plist.describing.SYMBOL..Return |
| 1b9f60 | 20 4e 49 4c 20 69 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 75 6e 62 6f 75 6e 64 2e 22 0a | .NIL.if.the.symbol.is.unbound.". |
| 1b9f80 | 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 | ..(let.((result.())).....(flet.( |
| 1b9fa0 | 28 64 6f 63 20 28 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 64 6f | (doc.(kind)..............(or.(do |
| 1b9fc0 | 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 79 6d 62 6f 6c 20 6b 69 6e 64 29 20 3a 6e 6f 74 2d 64 6f | cumentation.symbol.kind).:not-do |
| 1b9fe0 | 63 75 6d 65 6e 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 | cumented))............(maybe-pus |
| 1ba000 | 68 20 28 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | h.(property.value).............. |
| 1ba020 | 28 77 68 65 6e 20 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 | (when.value................(setf |
| 1ba040 | 20 72 65 73 75 6c 74 20 28 6c 69 73 74 2a 20 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 20 72 65 | .result.(list*.property.value.re |
| 1ba060 | 73 75 6c 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 20 3a 76 61 72 | sult))))).......(maybe-push.:var |
| 1ba080 | 69 61 62 6c 65 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 20 28 64 6f 63 | iable.(when.(boundp.symbol).(doc |
| 1ba0a0 | 20 27 76 61 72 69 61 62 6c 65 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e | .'variable))).......(when.(fboun |
| 1ba0c0 | 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 | dp.symbol).........(maybe-push.. |
| 1ba0e0 | 20 20 20 20 20 20 20 20 3b 3b 20 52 65 70 6f 72 74 20 57 48 45 4e 20 65 74 63 2e 20 61 73 20 6d | ........;;.Report.WHEN.etc..as.m |
| 1ba100 | 61 63 72 6f 73 2c 20 65 76 65 6e 20 74 68 6f 75 67 68 20 74 68 65 79 20 6d 61 79 20 62 65 0a 20 | acros,.even.though.they.may.be.. |
| 1ba120 | 20 20 20 20 20 20 20 20 3b 3b 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 61 73 20 73 70 65 63 69 61 | ........;;.implemented.as.specia |
| 1ba140 | 6c 20 6f 70 65 72 61 74 6f 72 73 2e 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6d 61 63 72 6f | l.operators...........(if.(macro |
| 1ba160 | 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 20 3a 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 | -function.symbol).:macro........ |
| 1ba180 | 20 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 73 79 6d | ......(typecase.(fdefinition.sym |
| 1ba1a0 | 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 6e 65 72 69 63 2d 66 75 6e | bol)................(generic-fun |
| 1ba1c0 | 63 74 69 6f 6e 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 | ction.:generic-function)........ |
| 1ba1e0 | 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 20 20 20 20 20 20 20 20 3a 66 75 6e 63 74 | ........(function.........:funct |
| 1ba200 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 74 79 70 65 2d 6f 66 20 | ion)................;;.(type-of. |
| 1ba220 | 27 70 72 6f 67 6e 29 20 2d 3e 20 65 78 74 3a 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 0a | 'progn).->.ext:special-operator. |
| 1ba240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............(t............... |
| 1ba260 | 20 3a 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 | .:special-operator)))..........( |
| 1ba280 | 64 6f 63 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 | doc.'function))).......(when.(or |
| 1ba2a0 | 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 27 73 79 73 74 65 6d 3a 3a 73 65 74 66 2d 66 75 6e 63 74 | .(get.symbol.'system::setf-funct |
| 1ba2c0 | 69 6f 6e 29 20 3b 20 65 2e 67 2e 20 23 27 28 73 65 74 66 20 65 6c 74 29 0a 20 20 20 20 20 20 20 | ion).;.e.g..#'(setf.elt)........ |
| 1ba2e0 | 20 20 20 20 20 20 20 20 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 27 73 79 73 74 65 6d 3a 3a 73 65 | .........(get.symbol.'system::se |
| 1ba300 | 74 66 2d 65 78 70 61 6e 64 65 72 29 29 3b 20 64 65 66 73 65 74 66 0a 20 20 20 20 20 20 20 20 28 | tf-expander));.defsetf.........( |
| 1ba320 | 6d 61 79 62 65 2d 70 75 73 68 20 3a 73 65 74 66 20 28 64 6f 63 20 27 73 65 74 66 29 29 29 0a 20 | maybe-push.:setf.(doc.'setf))).. |
| 1ba340 | 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 27 73 79 73 74 | .....(when.(or.(get.symbol.'syst |
| 1ba360 | 65 6d 3a 3a 74 79 70 65 2d 73 79 6d 62 6f 6c 29 3b 20 63 66 2e 20 63 6c 69 73 70 2f 73 72 63 2f | em::type-symbol);.cf..clisp/src/ |
| 1ba380 | 64 65 73 63 72 69 62 65 2e 6c 69 73 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 | describe.lisp.................(g |
| 1ba3a0 | 65 74 20 73 79 6d 62 6f 6c 20 27 73 79 73 74 65 6d 3a 3a 64 65 66 73 74 72 75 63 74 2d 64 65 73 | et.symbol.'system::defstruct-des |
| 1ba3c0 | 63 72 69 70 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 20 73 | cription).................(get.s |
| 1ba3e0 | 79 6d 62 6f 6c 20 27 73 79 73 74 65 6d 3a 3a 64 65 66 74 79 70 65 2d 65 78 70 61 6e 64 65 72 29 | ymbol.'system::deftype-expander) |
| 1ba400 | 29 0a 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 20 3a 74 79 70 65 20 28 64 6f 63 | ).........(maybe-push.:type.(doc |
| 1ba420 | 20 27 74 79 70 65 29 29 29 20 3b 20 65 76 65 6e 20 66 6f 72 20 27 73 74 72 75 63 74 75 72 65 0a | .'type))).;.even.for.'structure. |
| 1ba440 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 20 6e | ......(when.(find-class.symbol.n |
| 1ba460 | 69 6c 29 0a 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 20 3a 63 6c 61 73 73 20 28 | il).........(maybe-push.:class.( |
| 1ba480 | 64 6f 63 20 27 74 79 70 65 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 4c 65 74 20 74 68 69 73 20 63 | doc.'type))).......;;.Let.this.c |
| 1ba4a0 | 6f 64 65 20 77 6f 72 6b 20 63 6f 6d 70 69 6c 65 64 20 69 6e 20 69 6d 61 67 65 73 20 77 69 74 68 | ode.work.compiled.in.images.with |
| 1ba4c0 | 6f 75 74 20 46 46 49 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 79 70 65 73 20 28 6c 6f 61 64 | out.FFI.......(let.((types.(load |
| 1ba4e0 | 2d 74 69 6d 65 2d 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -time-value..................... |
| 1ba500 | 28 61 6e 64 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 22 46 46 49 22 29 0a 20 20 20 20 20 20 | (and.(find-package."FFI")....... |
| 1ba520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 | ...................(symbol-value |
| 1ba540 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 | ...........................(find |
| 1ba560 | 2d 73 79 6d 62 6f 6c 20 22 2a 43 2d 54 59 50 45 2d 54 41 42 4c 45 2a 22 20 22 46 46 49 22 29 29 | -symbol."*C-TYPE-TABLE*"."FFI")) |
| 1ba580 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 55 73 65 20 66 66 69 3a 3a 2a 63 2d 74 79 70 65 | )))).........;;.Use.ffi::*c-type |
| 1ba5a0 | 2d 74 61 62 6c 65 2a 20 73 6f 20 61 73 20 6e 6f 74 20 74 6f 20 73 75 66 66 65 72 20 74 68 65 20 | -table*.so.as.not.to.suffer.the. |
| 1ba5c0 | 6f 76 65 72 68 65 61 64 20 6f 66 0a 20 20 20 20 20 20 20 20 3b 3b 20 28 69 67 6e 6f 72 65 2d 65 | overhead.of.........;;.(ignore-e |
| 1ba5e0 | 72 72 6f 72 73 20 28 66 66 69 3a 70 61 72 73 65 2d 63 2d 74 79 70 65 20 73 79 6d 62 6f 6c 29 29 | rrors.(ffi:parse-c-type.symbol)) |
| 1ba600 | 20 66 6f 72 20 39 39 2e 39 25 20 6f 66 20 73 79 6d 62 6f 6c 73 0a 20 20 20 20 20 20 20 20 3b 3b | .for.99.9%.of.symbols.........;; |
| 1ba620 | 20 77 68 69 63 68 20 61 72 65 20 6e 6f 74 20 46 46 49 20 74 79 70 65 20 6e 61 6d 65 73 2e 0a 20 | .which.are.not.FFI.type.names... |
| 1ba640 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 74 79 70 65 73 20 28 6e 74 68 2d 76 61 6c | .......(when.(and.types.(nth-val |
| 1ba660 | 75 65 20 31 20 28 67 65 74 68 61 73 68 20 73 79 6d 62 6f 6c 20 74 79 70 65 73 29 29 29 0a 20 20 | ue.1.(gethash.symbol.types)))... |
| 1ba680 | 20 20 20 20 20 20 20 20 3b 3b 20 4d 61 79 62 65 20 75 73 65 20 28 63 61 73 65 20 28 68 65 61 64 | ........;;.Maybe.use.(case.(head |
| 1ba6a0 | 20 28 66 66 69 3a 64 65 70 61 72 73 65 2d 63 2d 74 79 70 65 29 29 29 0a 20 20 20 20 20 20 20 20 | .(ffi:deparse-c-type)))......... |
| 1ba6c0 | 20 20 3b 3b 20 74 6f 20 64 69 73 74 69 6e 67 75 69 73 68 20 73 74 72 75 63 74 20 61 6e 64 20 75 | ..;;.to.distinguish.struct.and.u |
| 1ba6e0 | 6e 69 6f 6e 20 74 79 70 65 73 3f 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 | nion.types?...........(maybe-pus |
| 1ba700 | 68 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 3a 6e 6f 74 2d 64 6f 63 75 6d 65 6e 74 65 64 29 29 29 | h.:alien-type.:not-documented))) |
| 1ba720 | 0a 20 20 20 20 20 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | .......result)))..(defimplementa |
| 1ba740 | 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 73 79 6d 62 6f 6c | tion.describe-definition.(symbol |
| 1ba760 | 20 6e 61 6d 65 73 70 61 63 65 29 0a 20 20 28 65 63 61 73 65 20 6e 61 6d 65 73 70 61 63 65 0a 20 | .namespace)...(ecase.namespace.. |
| 1ba780 | 20 20 20 28 3a 76 61 72 69 61 62 6c 65 20 28 64 65 73 63 72 69 62 65 20 73 79 6d 62 6f 6c 29 29 | ...(:variable.(describe.symbol)) |
| 1ba7a0 | 0a 20 20 20 20 28 3a 6d 61 63 72 6f 20 28 64 65 73 63 72 69 62 65 20 28 6d 61 63 72 6f 2d 66 75 | .....(:macro.(describe.(macro-fu |
| 1ba7c0 | 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 3a 66 75 6e 63 74 69 6f 6e 20 | nction.symbol))).....(:function. |
| 1ba7e0 | 28 64 65 73 63 72 69 62 65 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f | (describe.(symbol-function.symbo |
| 1ba800 | 6c 29 29 29 0a 20 20 20 20 28 3a 63 6c 61 73 73 20 28 64 65 73 63 72 69 62 65 20 28 66 69 6e 64 | l))).....(:class.(describe.(find |
| 1ba820 | 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | -class.symbol)))))..(defimplemen |
| 1ba840 | 74 61 74 69 6f 6e 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 28 73 79 6d 62 6f 6c 29 | tation.type-specifier-p.(symbol) |
| 1ba860 | 0a 20 20 28 6f 72 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 28 73 75 | ...(or.(ignore-errors........(su |
| 1ba880 | 62 74 79 70 65 70 20 6e 69 6c 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 28 6e 6f 74 20 28 | btypep.nil.symbol)).......(not.( |
| 1ba8a0 | 65 71 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 20 73 79 6d 62 6f | eq.(type-specifier-arglist.symbo |
| 1ba8c0 | 6c 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 73 | l).:not-available))))..(defun.fs |
| 1ba8e0 | 70 65 63 2d 70 61 74 68 6e 61 6d 65 20 28 73 70 65 63 29 0a 20 20 28 6c 65 74 20 28 28 70 61 74 | pec-pathname.(spec)...(let.((pat |
| 1ba900 | 68 20 73 70 65 63 29 0a 09 74 79 70 65 0a 20 20 20 20 20 20 20 20 6c 69 6e 65 73 29 0a 20 20 20 | h.spec)..type.........lines).... |
| 1ba920 | 20 28 77 68 65 6e 20 28 63 6f 6e 73 70 20 70 61 74 68 29 0a 20 20 20 20 20 20 28 70 73 65 74 71 | .(when.(consp.path).......(psetq |
| 1ba940 | 20 74 79 70 65 20 28 63 61 72 20 70 61 74 68 29 0a 09 20 20 20 20 20 70 61 74 68 20 28 63 61 64 | .type.(car.path).......path.(cad |
| 1ba960 | 72 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 73 20 28 63 64 64 72 | r.path)..............lines.(cddr |
| 1ba980 | 20 70 61 74 68 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 70 61 74 68 0a 20 20 20 | .path))).....(when.(and.path.... |
| 1ba9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 28 70 61 74 68 6e 61 6d 65 2d 74 79 | ............(member.(pathname-ty |
| 1ba9c0 | 70 65 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pe.path)........................ |
| 1ba9e0 | 63 75 73 74 6f 6d 3a 2a 63 6f 6d 70 69 6c 65 64 2d 66 69 6c 65 2d 74 79 70 65 73 2a 20 3a 74 65 | custom:*compiled-file-types*.:te |
| 1baa00 | 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 70 61 74 68 0a 20 20 | st.#'equal)).......(setq.path... |
| 1baa20 | 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 75 66 66 69 78 20 69 6e 20 63 75 | ..........(loop.for.suffix.in.cu |
| 1baa40 | 73 74 6f 6d 3a 2a 73 6f 75 72 63 65 2d 66 69 6c 65 2d 74 79 70 65 73 2a 0a 20 20 20 20 20 20 20 | stom:*source-file-types*........ |
| 1baa60 | 20 20 20 20 20 20 20 20 74 68 65 72 65 69 73 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 28 6d 61 6b | ........thereis.(probe-file.(mak |
| 1baa80 | 65 2d 70 61 74 68 6e 61 6d 65 20 3a 64 65 66 61 75 6c 74 73 20 70 61 74 68 0a 20 20 20 20 20 20 | e-pathname.:defaults.path....... |
| 1baaa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1baac0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 79 70 65 20 73 75 66 66 69 78 29 29 29 29 29 0a 20 20 | ............:type.suffix)))))... |
| 1baae0 | 20 20 28 76 61 6c 75 65 73 20 70 61 74 68 20 74 79 70 65 20 6c 69 6e 65 73 29 29 29 0a 0a 28 64 | ..(values.path.type.lines)))..(d |
| 1bab00 | 65 66 75 6e 20 66 73 70 65 63 2d 6c 6f 63 61 74 69 6f 6e 20 28 6e 61 6d 65 20 66 73 70 65 63 29 | efun.fspec-location.(name.fspec) |
| 1bab20 | 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 69 6c 65 20 74 79 | ...(multiple-value-bind.(file.ty |
| 1bab40 | 70 65 20 6c 69 6e 65 73 29 0a 20 20 20 20 20 20 28 66 73 70 65 63 2d 70 61 74 68 6e 61 6d 65 20 | pe.lines).......(fspec-pathname. |
| 1bab60 | 66 73 70 65 63 29 0a 20 20 20 20 28 6c 69 73 74 20 28 69 66 20 74 79 70 65 20 28 6c 69 73 74 20 | fspec).....(list.(if.type.(list. |
| 1bab80 | 6e 61 6d 65 20 74 79 70 65 29 20 6e 61 6d 65 29 0a 09 20 20 28 63 6f 6e 64 20 28 66 69 6c 65 0a | name.type).name)....(cond.(file. |
| 1baba0 | 09 09 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 74 72 75 65 6e 61 6d | ...(multiple-value-bind.(truenam |
| 1babc0 | 65 20 63 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f | e.c).......................(igno |
| 1babe0 | 72 65 2d 65 72 72 6f 72 73 20 28 74 72 75 65 6e 61 6d 65 20 66 69 6c 65 29 29 0a 09 09 20 20 20 | re-errors.(truename.file))...... |
| 1bac00 | 28 63 6f 6e 64 20 28 74 72 75 65 6e 61 6d 65 0a 09 09 09 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 | (cond.(truename......(make-locat |
| 1bac20 | 69 6f 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion............................. |
| 1bac40 | 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 74 72 75 65 6e 61 6d 65 | (list.:file.(namestring.truename |
| 1bac60 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | ))............................(i |
| 1bac80 | 66 20 28 63 6f 6e 73 70 20 6c 69 6e 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | f.(consp.lines)................. |
| 1baca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 3a 6c 69 6e 65 20 6c 69 6e 65 | ...............(list*.:line.line |
| 1bacc0 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s).............................. |
| 1bace0 | 20 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 74 72 69 6e 67 20 6e | ..(list.:function-name.(string.n |
| 1bad00 | 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame))).......................... |
| 1bad20 | 20 20 28 77 68 65 6e 20 28 63 6f 6e 73 70 20 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..(when.(consp.type)............ |
| 1bad40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 73 6e 69 70 70 65 74 | ..................(list.:snippet |
| 1bad60 | 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 22 20 74 79 70 65 29 29 29 29 29 0a 09 09 09 20 | .(format.nil."~A".type)))))..... |
| 1bad80 | 28 74 20 28 6c 69 73 74 20 3a 65 72 72 6f 72 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 | (t.(list.:error.(princ-to-string |
| 1bada0 | 20 63 29 29 29 29 29 29 0a 09 09 28 74 20 28 6c 69 73 74 20 3a 65 72 72 6f 72 20 0a 20 20 20 20 | .c))))))...(t.(list.:error...... |
| 1badc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c | .....................(format.nil |
| 1bade0 | 20 22 4e 6f 20 73 6f 75 72 63 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 76 61 69 6c 61 62 6c | ."No.source.information.availabl |
| 1bae00 | 65 20 66 6f 72 3a 20 7e 53 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.for:.~S"...................... |
| 1bae20 | 20 20 20 20 20 20 20 20 20 20 20 20 66 73 70 65 63 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d | ............fspec)))))))..(defim |
| 1bae40 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e | plementation.find-definitions.(n |
| 1bae60 | 61 6d 65 29 0a 20 20 28 6d 61 70 63 61 72 20 23 27 28 6c 61 6d 62 64 61 20 28 65 29 20 28 66 73 | ame)...(mapcar.#'(lambda.(e).(fs |
| 1bae80 | 70 65 63 2d 6c 6f 63 61 74 69 6f 6e 20 6e 61 6d 65 20 65 29 29 20 0a 20 20 20 20 20 20 20 20 20 | pec-location.name.e))........... |
| 1baea0 | 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6e 61 6d 65 20 27 73 79 73 3a 3a 66 69 6c 65 29 | .(documentation.name.'sys::file) |
| 1baec0 | 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 69 6d 2d 77 68 69 74 65 73 70 61 63 65 20 28 73 74 72 69 | ))..(defun.trim-whitespace.(stri |
| 1baee0 | 6e 67 29 0a 20 20 28 73 74 72 69 6e 67 2d 74 72 69 6d 20 23 28 23 5c 6e 65 77 6c 69 6e 65 20 23 | ng)...(string-trim.#(#\newline.# |
| 1baf00 | 5c 73 70 61 63 65 20 23 5c 74 61 62 29 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 76 61 72 20 | \space.#\tab).string))..(defvar. |
| 1baf20 | 2a 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 2a 29 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 62 | *sldb-backtrace*)..(defun.sldb-b |
| 1baf40 | 61 63 6b 74 72 61 63 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 28 28 41 | acktrace.()..."Return.a.list.((A |
| 1baf60 | 44 44 52 45 53 53 20 2e 20 44 45 53 43 52 49 50 54 49 4f 4e 29 20 2e 2e 2e 29 20 6f 66 20 66 72 | DDRESS...DESCRIPTION)....).of.fr |
| 1baf80 | 61 6d 65 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6d 6f 64 65 73 20 27 28 28 3a 61 6c 6c 2d 73 | ames."...(let*.((modes.'((:all-s |
| 1bafa0 | 74 61 63 6b 2d 65 6c 65 6d 65 6e 74 73 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tack-elements.1)................ |
| 1bafc0 | 20 20 20 28 3a 61 6c 6c 2d 66 72 61 6d 65 73 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(:all-frames.2).............. |
| 1bafe0 | 20 20 20 20 20 28 3a 6f 6e 6c 79 2d 6c 65 78 69 63 61 6c 2d 66 72 61 6d 65 73 20 33 29 0a 20 20 | .....(:only-lexical-frames.3)... |
| 1bb000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6f 6e 6c 79 2d 65 76 61 6c 2d 61 6e 64 2d | ................(:only-eval-and- |
| 1bb020 | 61 70 70 6c 79 2d 66 72 61 6d 65 73 20 34 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | apply-frames.4)................. |
| 1bb040 | 20 20 28 3a 6f 6e 6c 79 2d 61 70 70 6c 79 2d 66 72 61 6d 65 73 20 35 29 29 29 0a 20 20 20 20 20 | ..(:only-apply-frames.5)))...... |
| 1bb060 | 20 20 20 20 28 6d 6f 64 65 20 28 63 61 64 72 20 28 61 73 73 6f 63 20 3a 61 6c 6c 2d 73 74 61 63 | ....(mode.(cadr.(assoc.:all-stac |
| 1bb080 | 6b 2d 65 6c 65 6d 65 6e 74 73 20 6d 6f 64 65 73 29 29 29 29 0a 20 20 20 20 28 64 6f 20 28 28 66 | k-elements.modes)))).....(do.((f |
| 1bb0a0 | 72 61 6d 65 73 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 61 73 74 20 6e 69 6c 20 66 72 | rames.'())..........(last.nil.fr |
| 1bb0c0 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 20 28 73 79 73 3a 3a 74 68 65 2d 66 | ame)..........(frame.(sys::the-f |
| 1bb0e0 | 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 3a 66 72 61 6d | rame).................(sys::fram |
| 1bb100 | 65 2d 75 70 20 31 20 66 72 61 6d 65 20 6d 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 | e-up.1.frame.mode))).........((e |
| 1bb120 | 71 20 66 72 61 6d 65 20 6c 61 73 74 29 20 28 6e 72 65 76 65 72 73 65 20 66 72 61 6d 65 73 29 29 | q.frame.last).(nreverse.frames)) |
| 1bb140 | 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 62 6f 72 69 6e 67 2d 66 72 61 6d 65 2d 70 20 66 | .......(unless.(boring-frame-p.f |
| 1bb160 | 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 72 61 6d 65 20 66 72 61 6d 65 73 | rame).........(push.frame.frames |
| 1bb180 | 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 | )))))..(defimplementation.call-w |
| 1bb1a0 | 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 64 65 62 75 67 | ith-debugging-environment.(debug |
| 1bb1c0 | 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 0a 20 20 28 6c 65 74 2a 20 28 3b 3b 28 73 79 73 3a 3a 2a 62 | ger-loop-fn)...(let*.(;;(sys::*b |
| 1bb1e0 | 72 65 61 6b 2d 63 6f 75 6e 74 2a 20 28 31 2b 20 73 79 73 3a 3a 2a 62 72 65 61 6b 2d 63 6f 75 6e | reak-count*.(1+.sys::*break-coun |
| 1bb200 | 74 2a 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 28 73 79 73 3a 3a 2a 64 72 69 76 65 72 2a 20 64 | t*))..........;;(sys::*driver*.d |
| 1bb220 | 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 28 73 79 73 | ebugger-loop-fn)..........;;(sys |
| 1bb240 | 3a 3a 2a 66 61 73 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 | ::*fasoutput-stream*.nil)....... |
| 1bb260 | 20 20 20 28 2a 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 2a 0a 20 20 20 20 20 20 20 20 20 20 28 | ...(*sldb-backtrace*...........( |
| 1bb280 | 6c 65 74 2a 20 28 28 66 20 28 73 79 73 3a 3a 74 68 65 2d 66 72 61 6d 65 29 29 0a 20 20 20 20 20 | let*.((f.(sys::the-frame))...... |
| 1bb2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 62 74 20 28 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 29 | ............(bt.(sldb-backtrace) |
| 1bb2c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 74 20 28 6d 65 6d 62 65 72 | )..................(rest.(member |
| 1bb2e0 | 20 66 20 62 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 72 65 73 74 20 28 6e | .f.bt))).............(if.rest.(n |
| 1bb300 | 74 68 63 64 72 20 38 20 72 65 73 74 29 20 62 74 29 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c | thcdr.8.rest).bt)))).....(funcal |
| 1bb320 | 6c 20 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 74 | l.debugger-loop-fn)))..(defun.nt |
| 1bb340 | 68 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 29 0a 20 20 28 6e 74 68 20 69 6e 64 65 78 20 2a 73 6c | h-frame.(index)...(nth.index.*sl |
| 1bb360 | 64 62 2d 62 61 63 6b 74 72 61 63 65 2a 29 29 0a 0a 28 64 65 66 75 6e 20 62 6f 72 69 6e 67 2d 66 | db-backtrace*))..(defun.boring-f |
| 1bb380 | 72 61 6d 65 2d 70 20 28 66 72 61 6d 65 29 0a 20 20 28 6d 65 6d 62 65 72 20 28 66 72 61 6d 65 2d | rame-p.(frame)...(member.(frame- |
| 1bb3a0 | 74 79 70 65 20 66 72 61 6d 65 29 20 27 28 73 74 61 63 6b 2d 76 61 6c 75 65 20 62 69 6e 64 2d 76 | type.frame).'(stack-value.bind-v |
| 1bb3c0 | 61 72 20 62 69 6e 64 2d 65 6e 76 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ar.bind-env..................... |
| 1bb3e0 | 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 64 2d 74 61 67 62 6f 64 79 20 63 6f 6d 70 | ...........compiled-tagbody.comp |
| 1bb400 | 69 6c 65 64 2d 62 6c 6f 63 6b 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 74 6f 2d 73 | iled-block)))..(defun.frame-to-s |
| 1bb420 | 74 72 69 6e 67 20 28 66 72 61 6d 65 29 0a 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d | tring.(frame)...(with-output-to- |
| 1bb440 | 73 74 72 69 6e 67 20 28 73 29 0a 20 20 20 20 28 73 79 73 3a 3a 64 65 73 63 72 69 62 65 2d 66 72 | string.(s).....(sys::describe-fr |
| 1bb460 | 61 6d 65 20 73 20 66 72 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 74 79 70 | ame.s.frame)))..(defun.frame-typ |
| 1bb480 | 65 20 28 66 72 61 6d 65 29 0a 20 20 3b 3b 20 46 49 58 4d 45 3a 20 73 68 6f 75 6c 64 20 62 69 6e | e.(frame)...;;.FIXME:.should.bin |
| 1bb4a0 | 64 20 2a 70 72 69 6e 74 2d 6c 65 6e 67 74 68 2a 20 65 74 63 2e 20 74 6f 20 73 6d 61 6c 6c 20 76 | d.*print-length*.etc..to.small.v |
| 1bb4c0 | 61 6c 75 65 73 2e 0a 20 20 28 66 72 61 6d 65 2d 73 74 72 69 6e 67 2d 74 79 70 65 20 28 66 72 61 | alues....(frame-string-type.(fra |
| 1bb4e0 | 6d 65 2d 74 6f 2d 73 74 72 69 6e 67 20 66 72 61 6d 65 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a | me-to-string.frame)))..;;.FIXME: |
| 1bb500 | 20 74 68 65 79 20 63 68 61 6e 67 65 64 20 74 68 65 20 6c 61 79 6f 75 74 20 69 6e 20 32 2e 34 34 | .they.changed.the.layout.in.2.44 |
| 1bb520 | 20 61 6e 64 20 6e 6f 74 20 61 6c 6c 20 70 61 74 74 65 72 6e 73 20 68 61 76 65 0a 3b 3b 20 62 65 | .and.not.all.patterns.have.;;.be |
| 1bb540 | 65 6e 20 75 70 64 61 74 65 64 2e 0a 28 64 65 66 76 61 72 20 2a 66 72 61 6d 65 2d 70 72 65 66 69 | en.updated..(defvar.*frame-prefi |
| 1bb560 | 78 65 73 2a 0a 20 20 27 28 28 22 5c 5c 5b 5b 30 2d 39 5d 5c 5c 2b 5c 5c 5d 20 66 72 61 6d 65 20 | xes*...'(("\\[[0-9]\\+\\].frame. |
| 1bb580 | 62 69 6e 64 69 6e 67 20 76 61 72 69 61 62 6c 65 73 22 20 62 69 6e 64 2d 76 61 72 29 0a 20 20 20 | binding.variables".bind-var).... |
| 1bb5a0 | 20 28 22 3c 31 3e 20 23 3c 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 22 20 63 6f 6d 70 | .("<1>.#<compiled-function".comp |
| 1bb5c0 | 69 6c 65 64 2d 66 75 6e 29 0a 20 20 20 20 28 22 3c 31 3e 20 23 3c 73 79 73 74 65 6d 2d 66 75 6e | iled-fun).....("<1>.#<system-fun |
| 1bb5e0 | 63 74 69 6f 6e 22 20 73 79 73 2d 66 75 6e 29 0a 20 20 20 20 28 22 3c 31 3e 20 23 3c 73 70 65 63 | ction".sys-fun).....("<1>.#<spec |
| 1bb600 | 69 61 6c 2d 6f 70 65 72 61 74 6f 72 22 20 73 70 65 63 69 61 6c 2d 6f 70 29 0a 20 20 20 20 28 22 | ial-operator".special-op).....(" |
| 1bb620 | 45 56 41 4c 20 66 72 61 6d 65 22 20 65 76 61 6c 29 0a 20 20 20 20 28 22 41 50 50 4c 59 20 66 72 | EVAL.frame".eval).....("APPLY.fr |
| 1bb640 | 61 6d 65 22 20 61 70 70 6c 79 29 0a 20 20 20 20 28 22 5c 5c 5b 5b 30 2d 39 5d 5c 5c 2b 5c 5c 5d | ame".apply).....("\\[[0-9]\\+\\] |
| 1bb660 | 20 63 6f 6d 70 69 6c 65 64 20 74 61 67 62 6f 64 79 20 66 72 61 6d 65 22 20 63 6f 6d 70 69 6c 65 | .compiled.tagbody.frame".compile |
| 1bb680 | 64 2d 74 61 67 62 6f 64 79 29 0a 20 20 20 20 28 22 5c 5c 5b 5b 30 2d 39 5d 5c 5c 2b 5c 5c 5d 20 | d-tagbody).....("\\[[0-9]\\+\\]. |
| 1bb6a0 | 63 6f 6d 70 69 6c 65 64 20 62 6c 6f 63 6b 20 66 72 61 6d 65 22 20 63 6f 6d 70 69 6c 65 64 2d 62 | compiled.block.frame".compiled-b |
| 1bb6c0 | 6c 6f 63 6b 29 0a 20 20 20 20 28 22 62 6c 6f 63 6b 20 66 72 61 6d 65 22 20 62 6c 6f 63 6b 29 0a | lock).....("block.frame".block). |
| 1bb6e0 | 20 20 20 20 28 22 6e 65 73 74 65 64 20 62 6c 6f 63 6b 20 66 72 61 6d 65 22 20 62 6c 6f 63 6b 29 | ....("nested.block.frame".block) |
| 1bb700 | 0a 20 20 20 20 28 22 74 61 67 62 6f 64 79 20 66 72 61 6d 65 22 20 74 61 67 62 6f 64 79 29 0a 20 | .....("tagbody.frame".tagbody).. |
| 1bb720 | 20 20 20 28 22 6e 65 73 74 65 64 20 74 61 67 62 6f 64 79 20 66 72 61 6d 65 22 20 74 61 67 62 6f | ...("nested.tagbody.frame".tagbo |
| 1bb740 | 64 79 29 0a 20 20 20 20 28 22 63 61 74 63 68 20 66 72 61 6d 65 22 20 63 61 74 63 68 29 0a 20 20 | dy).....("catch.frame".catch)... |
| 1bb760 | 20 20 28 22 68 61 6e 64 6c 65 72 20 66 72 61 6d 65 22 20 68 61 6e 64 6c 65 72 29 0a 20 20 20 20 | ..("handler.frame".handler)..... |
| 1bb780 | 28 22 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 66 72 61 6d 65 22 20 75 6e 77 69 6e 64 2d 70 | ("unwind-protect.frame".unwind-p |
| 1bb7a0 | 72 6f 74 65 63 74 29 0a 20 20 20 20 28 22 64 72 69 76 65 72 20 66 72 61 6d 65 22 20 64 72 69 76 | rotect).....("driver.frame".driv |
| 1bb7c0 | 65 72 29 0a 20 20 20 20 28 22 5c 5c 5b 5b 30 2d 39 5d 5c 5c 2b 5c 5c 5d 20 66 72 61 6d 65 20 62 | er).....("\\[[0-9]\\+\\].frame.b |
| 1bb7e0 | 69 6e 64 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 22 20 62 69 6e 64 2d 65 6e 76 29 0a 20 | inding.environments".bind-env).. |
| 1bb800 | 20 20 20 28 22 43 41 4c 4c 42 41 43 4b 20 66 72 61 6d 65 22 20 63 61 6c 6c 62 61 63 6b 29 0a 20 | ...("CALLBACK.frame".callback).. |
| 1bb820 | 20 20 20 28 22 2d 20 22 20 73 74 61 63 6b 2d 76 61 6c 75 65 29 0a 20 20 20 20 28 22 3c 31 3e 20 | ...("-.".stack-value).....("<1>. |
| 1bb840 | 22 20 66 75 6e 29 0a 20 20 20 20 28 22 3c 32 3e 20 22 20 32 6e 64 2d 66 72 61 6d 65 29 0a 20 20 | ".fun).....("<2>.".2nd-frame)... |
| 1bb860 | 20 20 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 73 74 72 69 6e 67 2d 74 79 70 65 20 28 | ..))..(defun.frame-string-type.( |
| 1bb880 | 73 74 72 69 6e 67 29 0a 20 20 28 63 61 64 72 20 28 61 73 73 6f 63 2d 69 66 20 28 6c 61 6d 62 64 | string)...(cadr.(assoc-if.(lambd |
| 1bb8a0 | 61 20 28 70 61 74 74 65 72 6e 29 20 28 69 73 2d 70 72 65 66 69 78 2d 70 20 70 61 74 74 65 72 6e | a.(pattern).(is-prefix-p.pattern |
| 1bb8c0 | 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 66 72 61 | .string))...................*fra |
| 1bb8e0 | 6d 65 2d 70 72 65 66 69 78 65 73 2a 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | me-prefixes*)))..(defimplementat |
| 1bb900 | 69 6f 6e 20 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 28 73 74 61 72 74 20 65 6e 64 | ion.compute-backtrace.(start.end |
| 1bb920 | 29 0a 20 20 28 6c 65 74 2a 20 28 28 62 74 20 2a 73 6c 64 62 2d 62 61 63 6b 74 72 61 63 65 2a 29 | )...(let*.((bt.*sldb-backtrace*) |
| 1bb940 | 0a 20 20 20 20 20 20 20 20 20 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 62 74 29 29 29 0a 20 20 20 | ..........(len.(length.bt))).... |
| 1bb960 | 20 28 6c 6f 6f 70 20 66 6f 72 20 66 20 69 6e 20 28 73 75 62 73 65 71 20 62 74 20 73 74 61 72 74 | .(loop.for.f.in.(subseq.bt.start |
| 1bb980 | 20 28 6d 69 6e 20 28 6f 72 20 65 6e 64 20 6c 65 6e 29 20 6c 65 6e 29 29 0a 20 20 20 20 20 20 20 | .(min.(or.end.len).len))........ |
| 1bb9a0 | 20 20 20 63 6f 6c 6c 65 63 74 20 66 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | ...collect.f)))..(defimplementat |
| 1bb9c0 | 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 73 74 72 65 61 6d 29 0a 20 | ion.print-frame.(frame.stream).. |
| 1bb9e0 | 20 28 6c 65 74 2a 20 28 28 73 74 72 20 28 66 72 61 6d 65 2d 74 6f 2d 73 74 72 69 6e 67 20 66 72 | .(let*.((str.(frame-to-string.fr |
| 1bba00 | 61 6d 65 29 29 29 0a 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 28 65 78 74 72 61 63 | ame))).....(write-string.(extrac |
| 1bba20 | 74 2d 66 72 61 6d 65 2d 6c 69 6e 65 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-frame-line.str)............... |
| 1bba40 | 20 20 20 20 73 74 72 65 61 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 72 61 63 74 2d 66 72 | ....stream)))..(defun.extract-fr |
| 1bba60 | 61 6d 65 2d 6c 69 6e 65 20 28 66 72 61 6d 65 2d 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 | ame-line.(frame-string)...(let.( |
| 1bba80 | 28 73 20 66 72 61 6d 65 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 28 74 72 69 6d 2d 77 68 69 74 | (s.frame-string)).....(trim-whit |
| 1bbaa0 | 65 73 70 61 63 65 0a 20 20 20 20 20 28 63 61 73 65 20 28 66 72 61 6d 65 2d 73 74 72 69 6e 67 2d | espace......(case.(frame-string- |
| 1bbac0 | 74 79 70 65 20 73 29 0a 20 20 20 20 20 20 20 28 28 65 76 61 6c 20 73 70 65 63 69 61 6c 2d 6f 70 | type.s)........((eval.special-op |
| 1bbae0 | 29 0a 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 45 56 41 4c 20 66 72 | ).........(string-match."EVAL.fr |
| 1bbb00 | 61 6d 65 20 2e 2a 66 6f 72 20 66 6f 72 6d 20 5c 5c 28 2e 2a 5c 5c 29 22 20 73 20 31 29 29 0a 20 | ame..*for.form.\\(.*\\)".s.1)).. |
| 1bbb20 | 20 20 20 20 20 20 28 61 70 70 6c 79 0a 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 | ......(apply.........(string-mat |
| 1bbb40 | 63 68 20 22 41 50 50 4c 59 20 66 72 61 6d 65 20 66 6f 72 20 63 61 6c 6c 20 5c 5c 28 2e 2a 5c 5c | ch."APPLY.frame.for.call.\\(.*\\ |
| 1bbb60 | 29 22 20 73 20 31 29 29 0a 20 20 20 20 20 20 20 28 28 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 20 73 | )".s.1))........((compiled-fun.s |
| 1bbb80 | 79 73 2d 66 75 6e 20 66 75 6e 29 0a 20 20 20 20 20 20 20 20 28 65 78 74 72 61 63 74 2d 66 75 6e | ys-fun.fun).........(extract-fun |
| 1bbba0 | 63 74 69 6f 6e 2d 6e 61 6d 65 20 73 29 29 0a 20 20 20 20 20 20 20 28 74 20 73 29 29 29 29 29 0a | ction-name.s))........(t.s))))). |
| 1bbbc0 | 0a 28 64 65 66 75 6e 20 65 78 74 72 61 63 74 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 | .(defun.extract-function-name.(s |
| 1bbbe0 | 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 31 73 74 20 28 63 61 72 20 28 73 70 6c 69 74 2d | tring)...(let.((1st.(car.(split- |
| 1bbc00 | 66 72 61 6d 65 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 28 6f 72 20 | frame-string.string)))).....(or. |
| 1bbc20 | 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 5e 3c 31 3e 5b | (string-match.(format.nil."^<1>[ |
| 1bbc40 | 20 7e 25 5d 2a 23 3c 5b 2d 41 2d 5a 61 2d 7a 5d 2a 20 5c 5c 28 2e 2a 5c 5c 29 3e 22 29 0a 20 20 | .~%]*#<[-A-Za-z]*.\\(.*\\)>")... |
| 1bbc60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 73 74 0a 20 20 20 20 20 20 20 20 | ....................1st......... |
| 1bbc80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 29 0a 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 | ..............1).........(string |
| 1bbca0 | 2d 6d 61 74 63 68 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 5e 3c 31 3e 5b 20 7e 25 5d 2a 5c 5c | -match.(format.nil."^<1>[.~%]*\\ |
| 1bbcc0 | 28 2e 2a 5c 5c 29 22 29 20 31 73 74 20 31 29 0a 20 20 20 20 20 20 20 20 31 73 74 29 29 29 0a 0a | (.*\\)").1st.1).........1st))).. |
| 1bbce0 | 28 64 65 66 75 6e 20 73 70 6c 69 74 2d 66 72 61 6d 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e | (defun.split-frame-string.(strin |
| 1bbd00 | 67 29 0a 20 20 28 6c 65 74 20 28 28 72 78 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 25 5c 5c | g)...(let.((rx.(format.nil."~%\\ |
| 1bbd20 | 28 7e 7b 7e 41 7e 5e 5c 5c 7c 7e 7d 5c 5c 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (~{~A~^\\|~}\\)"................ |
| 1bbd40 | 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 2a 66 72 61 6d 65 2d 70 72 65 66 69 78 | .....(mapcar.#'car.*frame-prefix |
| 1bbd60 | 65 73 2a 29 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 70 6f 73 20 3d 20 30 20 74 68 | es*)))).....(loop.for.pos.=.0.th |
| 1bbd80 | 65 6e 20 28 31 2b 20 28 72 65 67 65 78 70 3a 6d 61 74 63 68 2d 73 74 61 72 74 20 6d 61 74 63 68 | en.(1+.(regexp:match-start.match |
| 1bbda0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6d 61 74 63 68 20 3d 20 28 72 65 67 65 78 70 | ))...........for.match.=.(regexp |
| 1bbdc0 | 3a 6d 61 74 63 68 20 72 78 20 73 74 72 69 6e 67 20 3a 73 74 61 72 74 20 70 6f 73 29 0a 20 20 20 | :match.rx.string.:start.pos).... |
| 1bbde0 | 20 20 20 20 20 20 20 69 66 20 6d 61 74 63 68 20 63 6f 6c 6c 65 63 74 20 28 73 75 62 73 65 71 20 | .......if.match.collect.(subseq. |
| 1bbe00 | 73 74 72 69 6e 67 20 70 6f 73 20 28 72 65 67 65 78 70 3a 6d 61 74 63 68 2d 73 74 61 72 74 20 6d | string.pos.(regexp:match-start.m |
| 1bbe20 | 61 74 63 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 63 6f 6c 6c 65 63 74 20 28 73 | atch))...........else.collect.(s |
| 1bbe40 | 75 62 73 65 71 20 73 74 72 69 6e 67 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c | ubseq.string.pos)...........whil |
| 1bbe60 | 65 20 6d 61 74 63 68 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 | e.match)))..(defun.string-match. |
| 1bbe80 | 28 70 61 74 74 65 72 6e 20 73 74 72 69 6e 67 20 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 61 74 | (pattern.string.n)...(let*.((mat |
| 1bbea0 | 63 68 20 28 6e 74 68 2d 76 61 6c 75 65 20 6e 20 28 72 65 67 65 78 70 3a 6d 61 74 63 68 20 70 61 | ch.(nth-value.n.(regexp:match.pa |
| 1bbec0 | 74 74 65 72 6e 20 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 28 69 66 20 6d 61 74 63 68 20 28 | ttern.string)))).....(if.match.( |
| 1bbee0 | 72 65 67 65 78 70 3a 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 20 6d 61 74 63 68 | regexp:match-string.string.match |
| 1bbf00 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 65 76 61 6c 2d 69 6e | ))))..(defimplementation.eval-in |
| 1bbf20 | 2d 66 72 61 6d 65 20 28 66 6f 72 6d 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 73 79 | -frame.(form.frame-number)...(sy |
| 1bbf40 | 73 3a 3a 65 76 61 6c 2d 61 74 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 | s::eval-at.(nth-frame.frame-numb |
| 1bbf60 | 65 72 29 20 66 6f 72 6d 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 | er).form))..(defimplementation.f |
| 1bbf80 | 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 | rame-locals.(frame-number)...(le |
| 1bbfa0 | 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 | t.((frame.(nth-frame.frame-numbe |
| 1bbfc0 | 72 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 62 65 6c 6f 77 20 28 25 66 72 61 | r))).....(loop.for.i.below.(%fra |
| 1bbfe0 | 6d 65 2d 63 6f 75 6e 74 2d 76 61 72 73 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 63 | me-count-vars.frame)...........c |
| 1bc000 | 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 6e 61 6d 65 20 28 25 66 72 61 6d 65 2d 76 61 72 2d 6e | ollect.(list.:name.(%frame-var-n |
| 1bc020 | 61 6d 65 20 66 72 61 6d 65 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame.frame.i).................... |
| 1bc040 | 20 20 20 20 20 3a 76 61 6c 75 65 20 28 25 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 66 72 | .....:value.(%frame-var-value.fr |
| 1bc060 | 61 6d 65 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ame.i).........................: |
| 1bc080 | 69 64 20 30 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 | id.0))))..(defimplementation.fra |
| 1bc0a0 | 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 66 72 61 6d 65 20 76 61 72 29 0a 20 20 28 25 66 72 61 | me-var-value.(frame.var)...(%fra |
| 1bc0c0 | 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 20 76 | me-var-value.(nth-frame.frame).v |
| 1bc0e0 | 61 72 29 29 0a 0a 3b 3b 3b 20 49 6e 74 65 72 70 72 65 74 65 72 2d 56 61 72 69 61 62 6c 65 6e 2d | ar))..;;;.Interpreter-Variablen- |
| 1bc100 | 45 6e 76 69 72 6f 6e 6d 65 6e 74 20 68 61 73 20 74 68 65 20 73 68 61 70 65 0a 3b 3b 3b 20 4e 49 | Environment.has.the.shape.;;;.NI |
| 1bc120 | 4c 20 6f 72 20 23 28 76 31 20 76 61 6c 31 20 2e 2e 2e 20 76 6e 20 76 61 6c 6e 20 4e 45 58 54 2d | L.or.#(v1.val1.....vn.valn.NEXT- |
| 1bc140 | 45 4e 56 29 2e 0a 0a 28 64 65 66 75 6e 20 25 66 72 61 6d 65 2d 63 6f 75 6e 74 2d 76 61 72 73 20 | ENV)...(defun.%frame-count-vars. |
| 1bc160 | 28 66 72 61 6d 65 29 0a 20 20 28 63 6f 6e 64 20 28 28 73 79 73 3a 3a 65 76 61 6c 2d 66 72 61 6d | (frame)...(cond.((sys::eval-fram |
| 1bc180 | 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 20 28 28 76 65 6e 76 20 28 | e-p.frame)..........(do.((venv.( |
| 1bc1a0 | 66 72 61 6d 65 2d 76 65 6e 76 20 66 72 61 6d 65 29 20 28 6e 65 78 74 2d 76 65 6e 76 20 76 65 6e | frame-venv.frame).(next-venv.ven |
| 1bc1c0 | 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 74 20 30 20 28 2b 20 63 6f | v))...............(count.0.(+.co |
| 1bc1e0 | 75 6e 74 20 28 2f 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 76 65 6e 76 29 29 20 32 29 29 29 29 0a | unt.(/.(1-.(length.venv)).2)))). |
| 1bc200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 76 65 6e 76 29 20 63 6f 75 6e 74 29 29 | .............((not.venv).count)) |
| 1bc220 | 29 0a 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 28 66 72 61 6d 65 2d 74 79 70 65 20 66 | ).........((member.(frame-type.f |
| 1bc240 | 72 61 6d 65 29 20 27 28 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 20 73 79 73 2d 66 75 6e 20 66 75 6e | rame).'(compiled-fun.sys-fun.fun |
| 1bc260 | 20 73 70 65 63 69 61 6c 2d 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 28 | .special-op))..........(length.( |
| 1bc280 | 25 70 61 72 73 65 2d 73 74 61 63 6b 2d 76 61 6c 75 65 73 20 66 72 61 6d 65 29 29 29 0a 20 20 20 | %parse-stack-values.frame))).... |
| 1bc2a0 | 20 20 20 20 20 28 74 20 30 29 29 29 0a 0a 28 64 65 66 75 6e 20 25 66 72 61 6d 65 2d 76 61 72 2d | .....(t.0)))..(defun.%frame-var- |
| 1bc2c0 | 6e 61 6d 65 20 28 66 72 61 6d 65 20 69 29 0a 20 20 28 63 6f 6e 64 20 28 28 73 79 73 3a 3a 65 76 | name.(frame.i)...(cond.((sys::ev |
| 1bc2e0 | 61 6c 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 28 6e 74 68 2d | al-frame-p.frame)..........(nth- |
| 1bc300 | 76 61 6c 75 65 20 30 20 28 76 65 6e 76 2d 72 65 66 20 28 66 72 61 6d 65 2d 76 65 6e 76 20 66 72 | value.0.(venv-ref.(frame-venv.fr |
| 1bc320 | 61 6d 65 29 20 69 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 66 6f 72 6d 61 74 20 6e 69 6c | ame).i))).........(t.(format.nil |
| 1bc340 | 20 22 7e 44 22 20 69 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 25 66 72 61 6d 65 2d 76 61 72 2d 76 | ."~D".i))))..(defun.%frame-var-v |
| 1bc360 | 61 6c 75 65 20 28 66 72 61 6d 65 20 69 29 0a 20 20 28 63 6f 6e 64 20 28 28 73 79 73 3a 3a 65 76 | alue.(frame.i)...(cond.((sys::ev |
| 1bc380 | 61 6c 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | al-frame-p.frame)..........(let. |
| 1bc3a0 | 28 28 6e 61 6d 65 20 28 76 65 6e 76 2d 72 65 66 20 28 66 72 61 6d 65 2d 76 65 6e 76 20 66 72 61 | ((name.(venv-ref.(frame-venv.fra |
| 1bc3c0 | 6d 65 29 20 69 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 | me).i)))............(multiple-va |
| 1bc3e0 | 6c 75 65 2d 62 69 6e 64 20 28 76 20 63 29 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 | lue-bind.(v.c).(ignore-errors.(s |
| 1bc400 | 79 73 3a 3a 65 76 61 6c 2d 61 74 20 66 72 61 6d 65 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 | ys::eval-at.frame.name))........ |
| 1bc420 | 20 20 20 20 20 20 28 69 66 20 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f | ......(if.c..................(fo |
| 1bc440 | 72 6d 61 74 2d 73 6c 64 62 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 29 0a 20 20 20 20 20 20 20 20 20 | rmat-sldb-condition.c).......... |
| 1bc460 | 20 20 20 20 20 20 20 20 76 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 28 | ........v)))).........((member.( |
| 1bc480 | 66 72 61 6d 65 2d 74 79 70 65 20 66 72 61 6d 65 29 20 27 28 63 6f 6d 70 69 6c 65 64 2d 66 75 6e | frame-type.frame).'(compiled-fun |
| 1bc4a0 | 20 73 79 73 2d 66 75 6e 20 66 75 6e 20 73 70 65 63 69 61 6c 2d 6f 70 29 29 0a 20 20 20 20 20 20 | .sys-fun.fun.special-op))....... |
| 1bc4c0 | 20 20 20 28 6c 65 74 20 28 28 73 74 72 20 28 6e 74 68 20 69 20 28 25 70 61 72 73 65 2d 73 74 61 | ...(let.((str.(nth.i.(%parse-sta |
| 1bc4e0 | 63 6b 2d 76 61 6c 75 65 73 20 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | ck-values.frame))))............( |
| 1bc500 | 74 72 69 6d 2d 77 68 69 74 65 73 70 61 63 65 20 28 73 75 62 73 65 71 20 73 74 72 20 32 29 29 29 | trim-whitespace.(subseq.str.2))) |
| 1bc520 | 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 62 72 65 61 6b 20 22 4e 6f 74 20 69 6d 70 6c 65 6d 65 | ).........(t.(break."Not.impleme |
| 1bc540 | 6e 74 65 64 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 76 65 6e 76 20 28 66 72 | nted"))))..(defun.frame-venv.(fr |
| 1bc560 | 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 76 20 28 73 79 73 3a 3a 65 76 61 6c 2d 61 74 20 | ame)...(let.((env.(sys::eval-at. |
| 1bc580 | 66 72 61 6d 65 20 27 28 73 79 73 3a 3a 74 68 65 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 29 | frame.'(sys::the-environment)))) |
| 1bc5a0 | 0a 20 20 20 20 28 73 76 72 65 66 20 65 6e 76 20 30 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 65 78 | .....(svref.env.0)))..(defun.nex |
| 1bc5c0 | 74 2d 76 65 6e 76 20 28 76 65 6e 76 29 20 28 73 76 72 65 66 20 76 65 6e 76 20 28 31 2d 20 28 6c | t-venv.(venv).(svref.venv.(1-.(l |
| 1bc5e0 | 65 6e 67 74 68 20 76 65 6e 76 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 65 6e 76 2d 72 65 66 20 | ength.venv))))..(defun.venv-ref. |
| 1bc600 | 28 65 6e 76 20 69 29 0a 20 20 22 52 65 66 65 72 65 6e 63 65 20 74 68 65 20 49 74 68 20 62 69 6e | (env.i)..."Reference.the.Ith.bin |
| 1bc620 | 64 69 6e 67 20 69 6e 20 45 4e 56 2e 0a 52 65 74 75 72 6e 20 74 77 6f 20 76 61 6c 75 65 73 3a 20 | ding.in.ENV..Return.two.values:. |
| 1bc640 | 4e 41 4d 45 20 61 6e 64 20 56 41 4c 55 45 22 0a 20 20 28 6c 65 74 20 28 28 69 64 78 20 28 2a 20 | NAME.and.VALUE"...(let.((idx.(*. |
| 1bc660 | 69 20 32 29 29 29 0a 20 20 20 20 28 69 66 20 28 3c 20 69 64 78 20 28 31 2d 20 28 6c 65 6e 67 74 | i.2))).....(if.(<.idx.(1-.(lengt |
| 1bc680 | 68 20 65 6e 76 29 29 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 73 76 72 65 66 20 | h.env))).........(values.(svref. |
| 1bc6a0 | 65 6e 76 20 69 64 78 29 20 28 73 76 72 65 66 20 65 6e 76 20 28 31 2b 20 69 64 78 29 29 29 0a 20 | env.idx).(svref.env.(1+.idx))).. |
| 1bc6c0 | 20 20 20 20 20 20 20 28 76 65 6e 76 2d 72 65 66 20 28 6e 65 78 74 2d 76 65 6e 76 20 65 6e 76 29 | .......(venv-ref.(next-venv.env) |
| 1bc6e0 | 20 28 2d 20 69 20 28 2f 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 65 6e 76 29 29 20 32 29 29 29 29 | .(-.i.(/.(1-.(length.env)).2)))) |
| 1bc700 | 29 29 0a 0a 28 64 65 66 75 6e 20 25 70 61 72 73 65 2d 73 74 61 63 6b 2d 76 61 6c 75 65 73 20 28 | ))..(defun.%parse-stack-values.( |
| 1bc720 | 66 72 61 6d 65 29 0a 20 20 28 6c 61 62 65 6c 73 20 28 28 6e 65 78 74 20 28 66 70 29 20 28 73 79 | frame)...(labels.((next.(fp).(sy |
| 1bc740 | 73 3a 3a 66 72 61 6d 65 2d 64 6f 77 6e 20 31 20 66 70 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 | s::frame-down.1.fp.1)).......... |
| 1bc760 | 20 20 28 70 61 72 73 65 20 28 66 70 20 61 63 63 75 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(parse.(fp.accu).............. |
| 1bc780 | 28 6c 65 74 20 28 28 73 74 72 20 28 66 72 61 6d 65 2d 74 6f 2d 73 74 72 69 6e 67 20 66 70 29 29 | (let.((str.(frame-to-string.fp)) |
| 1bc7a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 69 73 2d 70 72 65 66 | )................(cond.((is-pref |
| 1bc7c0 | 69 78 2d 70 20 22 2d 20 22 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ix-p."-.".str).................. |
| 1bc7e0 | 20 20 20 20 20 28 70 61 72 73 65 20 20 28 6e 65 78 74 20 66 70 29 20 28 63 6f 6e 73 20 73 74 72 | .....(parse..(next.fp).(cons.str |
| 1bc800 | 20 61 63 63 75 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 | .accu)))......................(( |
| 1bc820 | 69 73 2d 70 72 65 66 69 78 2d 70 20 22 3c 31 3e 20 22 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 | is-prefix-p."<1>.".str)......... |
| 1bc840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 77 68 65 6e 20 28 65 71 20 28 66 72 61 6d 65 | ..............;;(when.(eq.(frame |
| 1bc860 | 2d 74 79 70 65 20 66 72 61 6d 65 29 20 27 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 29 0a 20 20 20 20 | -type.frame).'compiled-fun)..... |
| 1bc880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 28 70 6f 70 20 61 63 63 75 29 | ..................;;..(pop.accu) |
| 1bc8a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 | ).......................(dolist. |
| 1bc8c0 | 28 73 74 72 20 28 63 64 72 20 28 73 70 6c 69 74 2d 66 72 61 6d 65 2d 73 74 72 69 6e 67 20 73 74 | (str.(cdr.(split-frame-string.st |
| 1bc8e0 | 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | r))).........................(wh |
| 1bc900 | 65 6e 20 28 69 73 2d 70 72 65 66 69 78 2d 70 20 22 2d 20 22 20 73 74 72 29 0a 20 20 20 20 20 20 | en.(is-prefix-p."-.".str)....... |
| 1bc920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 73 74 72 20 61 63 | ....................(push.str.ac |
| 1bc940 | 63 75 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 72 65 | cu))).......................(nre |
| 1bc960 | 76 65 72 73 65 20 61 63 63 75 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | verse.accu)).................... |
| 1bc980 | 20 20 28 74 20 28 70 61 72 73 65 20 28 6e 65 78 74 20 66 70 29 20 61 63 63 75 29 29 29 29 29 29 | ..(t.(parse.(next.fp).accu)))))) |
| 1bc9a0 | 0a 20 20 20 20 28 70 61 72 73 65 20 28 6e 65 78 74 20 66 72 61 6d 65 29 20 27 28 29 29 29 29 0a | .....(parse.(next.frame).'()))). |
| 1bc9c0 | 0a 28 64 65 66 75 6e 20 69 73 2d 70 72 65 66 69 78 2d 70 20 28 72 65 67 65 78 70 20 73 74 72 69 | .(defun.is-prefix-p.(regexp.stri |
| 1bc9e0 | 6e 67 29 0a 20 20 28 69 66 20 28 72 65 67 65 78 70 3a 6d 61 74 63 68 20 28 63 6f 6e 63 61 74 65 | ng)...(if.(regexp:match.(concate |
| 1bca00 | 6e 61 74 65 20 27 73 74 72 69 6e 67 20 22 5e 22 20 72 65 67 65 78 70 29 20 73 74 72 69 6e 67 29 | nate.'string."^".regexp).string) |
| 1bca20 | 20 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 74 75 72 6e 2d | .t))..(defimplementation.return- |
| 1bca40 | 66 72 6f 6d 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 20 66 6f 72 6d 29 0a 20 20 28 73 79 73 3a 3a | from-frame.(index.form)...(sys:: |
| 1bca60 | 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 65 76 61 6c 2d 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d | return-from-eval-frame.(nth-fram |
| 1bca80 | 65 20 69 6e 64 65 78 29 20 66 6f 72 6d 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | e.index).form))..(defimplementat |
| 1bcaa0 | 69 6f 6e 20 72 65 73 74 61 72 74 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 29 0a 20 20 28 73 79 73 | ion.restart-frame.(index)...(sys |
| 1bcac0 | 3a 3a 72 65 64 6f 2d 65 76 61 6c 2d 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 | ::redo-eval-frame.(nth-frame.ind |
| 1bcae0 | 65 78 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d | ex)))..(defimplementation.frame- |
| 1bcb00 | 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 69 6e 64 65 78 29 0a 20 20 60 28 3a 65 72 72 | source-location.(index)...`(:err |
| 1bcb20 | 6f 72 0a 20 20 20 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 66 72 61 6d 65 2d 73 6f 75 72 63 | or.....,(format.nil."frame-sourc |
| 1bcb40 | 65 2d 6c 6f 63 61 74 69 6f 6e 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 2e 20 28 66 72 61 | e-location.not.implemented..(fra |
| 1bcb60 | 6d 65 3a 20 7e 41 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 2d 66 72 61 6d 65 | me:.~A)"..............(nth-frame |
| 1bcb80 | 20 69 6e 64 65 78 29 29 29 29 0a 0a 3b 3b 3b 3b 20 50 72 6f 66 69 6c 69 6e 67 0a 0a 28 64 65 66 | .index))))..;;;;.Profiling..(def |
| 1bcba0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 | implementation.profile.(fname).. |
| 1bcbc0 | 20 28 65 76 61 6c 20 60 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 6d 6f 6e 69 74 6f 72 20 2c | .(eval.`(swank-monitor:monitor., |
| 1bcbe0 | 66 6e 61 6d 65 29 29 29 20 20 20 20 20 20 20 20 20 3b 6d 6f 6e 69 74 6f 72 20 69 73 20 61 20 6d | fname))).........;monitor.is.a.m |
| 1bcc00 | 61 63 72 6f 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 | acro..(defimplementation.profile |
| 1bcc20 | 64 2d 66 75 6e 63 74 69 6f 6e 73 20 28 29 0a 20 20 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 2a | d-functions.()...swank-monitor:* |
| 1bcc40 | 6d 6f 6e 69 74 6f 72 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | monitored-functions*)..(defimple |
| 1bcc60 | 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 65 | mentation.unprofile.(fname)...(e |
| 1bcc80 | 76 61 6c 20 60 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 75 6e 6d 6f 6e 69 74 6f 72 20 2c 66 | val.`(swank-monitor:unmonitor.,f |
| 1bcca0 | 6e 61 6d 65 29 29 29 20 20 20 20 20 20 20 3b 75 6e 6d 6f 6e 69 74 6f 72 20 69 73 20 61 20 6d 61 | name))).......;unmonitor.is.a.ma |
| 1bccc0 | 63 72 6f 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 69 6c | cro..(defimplementation.unprofil |
| 1bcce0 | 65 2d 61 6c 6c 20 28 29 0a 20 20 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 75 6e 6d 6f 6e 69 | e-all.()...(swank-monitor:unmoni |
| 1bcd00 | 74 6f 72 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c | tor))..(defimplementation.profil |
| 1bcd20 | 65 2d 72 65 70 6f 72 74 20 28 29 0a 20 20 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 72 65 70 | e-report.()...(swank-monitor:rep |
| 1bcd40 | 6f 72 74 2d 6d 6f 6e 69 74 6f 72 69 6e 67 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | ort-monitoring))..(defimplementa |
| 1bcd60 | 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 20 28 29 0a 20 20 28 73 77 61 6e 6b 2d 6d | tion.profile-reset.()...(swank-m |
| 1bcd80 | 6f 6e 69 74 6f 72 3a 72 65 73 65 74 2d 61 6c 6c 2d 6d 6f 6e 69 74 6f 72 69 6e 67 29 29 0a 0a 28 | onitor:reset-all-monitoring))..( |
| 1bcda0 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 | defimplementation.profile-packag |
| 1bcdc0 | 65 20 28 70 61 63 6b 61 67 65 20 63 61 6c 6c 65 72 73 2d 70 20 6d 65 74 68 6f 64 73 29 0a 20 20 | e.(package.callers-p.methods)... |
| 1bcde0 | 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 61 6c 6c 65 72 73 2d 70 20 6d 65 74 68 6f | (declare.(ignore.callers-p.metho |
| 1bce00 | 64 73 29 29 0a 20 20 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 6d 6f 6e 69 74 6f 72 2d 61 6c | ds))...(swank-monitor:monitor-al |
| 1bce20 | 6c 20 70 61 63 6b 61 67 65 29 29 0a 0a 3b 3b 3b 3b 20 48 61 6e 64 6c 65 20 63 6f 6d 70 69 6c 65 | l.package))..;;;;.Handle.compile |
| 1bce40 | 72 20 63 6f 6e 64 69 74 69 6f 6e 73 20 28 66 69 6e 64 20 6f 75 74 20 6c 6f 63 61 74 69 6f 6e 20 | r.conditions.(find.out.location. |
| 1bce60 | 6f 66 20 65 72 72 6f 72 20 65 74 63 2e 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 6f 6d 70 69 6c | of.error.etc.)..(defmacro.compil |
| 1bce80 | 65 2d 66 69 6c 65 2d 66 72 6f 62 62 69 6e 67 2d 6e 6f 74 65 73 20 28 28 26 72 65 73 74 20 61 72 | e-file-frobbing-notes.((&rest.ar |
| 1bcea0 | 67 73 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 50 61 73 73 20 41 52 47 53 20 74 6f 20 | gs).&body.body)..."Pass.ARGS.to. |
| 1bcec0 | 43 4f 4d 50 49 4c 45 2d 46 49 4c 45 2c 20 73 65 6e 64 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 | COMPILE-FILE,.send.the.compiler. |
| 1bcee0 | 6e 6f 74 65 73 20 74 6f 0a 2a 53 54 41 4e 44 41 52 44 2d 49 4e 50 55 54 2a 20 61 6e 64 20 66 72 | notes.to.*STANDARD-INPUT*.and.fr |
| 1bcf00 | 6f 62 20 74 68 65 6d 20 69 6e 20 42 4f 44 59 2e 22 0a 20 20 60 28 6c 65 74 20 28 28 2a 65 72 72 | ob.them.in.BODY."...`(let.((*err |
| 1bcf20 | 6f 72 2d 6f 75 74 70 75 74 2a 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 2d 6f 75 74 70 75 74 2d 73 | or-output*.(make-string-output-s |
| 1bcf40 | 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 63 6f 6d 70 69 6c 65 2d 76 65 72 62 6f | tream))..........(*compile-verbo |
| 1bcf60 | 73 65 2a 20 74 29 29 0a 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 70 72 6f | se*.t))......(multiple-value-pro |
| 1bcf80 | 67 31 0a 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 2c 40 61 72 67 73 29 0a 20 | g1.......(compile-file.,@args).. |
| 1bcfa0 | 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d | .....(handler-case........(with- |
| 1bcfc0 | 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 28 2a 73 74 61 6e | input-from-string.........(*stan |
| 1bcfe0 | 64 61 72 64 2d 69 6e 70 75 74 2a 20 28 67 65 74 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 73 | dard-input*.(get-output-stream-s |
| 1bd000 | 74 72 69 6e 67 20 2a 65 72 72 6f 72 2d 6f 75 74 70 75 74 2a 29 29 0a 20 20 20 20 20 20 20 20 2c | tring.*error-output*))........., |
| 1bd020 | 40 62 6f 64 79 29 0a 20 20 20 20 20 20 20 28 73 79 73 3a 3a 73 69 6d 70 6c 65 2d 65 6e 64 2d 6f | @body)........(sys::simple-end-o |
| 1bd040 | 66 2d 66 69 6c 65 20 28 29 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 6f 72 69 | f-file.().nil)))))..(defvar.*ori |
| 1bd060 | 67 2d 63 2d 77 61 72 6e 2a 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 73 79 73 74 | g-c-warn*.(symbol-function.'syst |
| 1bd080 | 65 6d 3a 3a 63 2d 77 61 72 6e 29 29 0a 28 64 65 66 76 61 72 20 2a 6f 72 69 67 2d 63 2d 73 74 79 | em::c-warn)).(defvar.*orig-c-sty |
| 1bd0a0 | 6c 65 2d 77 61 72 6e 2a 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 73 79 73 74 65 | le-warn*.(symbol-function.'syste |
| 1bd0c0 | 6d 3a 3a 63 2d 73 74 79 6c 65 2d 77 61 72 6e 29 29 0a 28 64 65 66 76 61 72 20 2a 6f 72 69 67 2d | m::c-style-warn)).(defvar.*orig- |
| 1bd0e0 | 63 2d 65 72 72 6f 72 2a 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 73 79 73 74 65 | c-error*.(symbol-function.'syste |
| 1bd100 | 6d 3a 3a 63 2d 65 72 72 6f 72 29 29 0a 28 64 65 66 76 61 72 20 2a 6f 72 69 67 2d 63 2d 72 65 70 | m::c-error)).(defvar.*orig-c-rep |
| 1bd120 | 6f 72 74 2d 70 72 6f 62 6c 65 6d 73 2a 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 | ort-problems*.(symbol-function.' |
| 1bd140 | 73 79 73 74 65 6d 3a 3a 63 2d 72 65 70 6f 72 74 2d 70 72 6f 62 6c 65 6d 73 29 29 0a 0a 28 64 65 | system::c-report-problems))..(de |
| 1bd160 | 66 6d 61 63 72 6f 20 64 79 6e 61 6d 69 63 2d 66 6c 65 74 20 28 6e 61 6d 65 73 2d 66 75 6e 63 74 | fmacro.dynamic-flet.(names-funct |
| 1bd180 | 69 6f 6e 73 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 28 64 79 6e 61 6d 69 63 2d 66 6c 65 | ions.&body.body)..."(dynamic-fle |
| 1bd1a0 | 74 20 28 28 4e 41 4d 45 20 46 55 4e 43 54 49 4f 4e 29 20 2e 2e 2e 29 20 42 4f 44 59 20 2e 2e 2e | t.((NAME.FUNCTION)....).BODY.... |
| 1bd1c0 | 29 0a 45 78 65 63 75 74 65 20 42 4f 44 59 20 77 69 74 68 20 4e 41 4d 45 27 73 20 66 75 6e 63 74 | ).Execute.BODY.with.NAME's.funct |
| 1bd1e0 | 69 6f 6e 20 73 6c 6f 74 20 73 65 74 20 74 6f 20 46 55 4e 43 54 49 4f 4e 2e 22 0a 20 20 60 28 65 | ion.slot.set.to.FUNCTION."...`(e |
| 1bd200 | 78 74 3a 6c 65 74 66 2a 20 2c 28 6c 6f 6f 70 20 66 6f 72 20 28 6e 61 6d 65 20 66 75 6e 63 74 69 | xt:letf*.,(loop.for.(name.functi |
| 1bd220 | 6f 6e 29 20 69 6e 20 6e 61 6d 65 73 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 | on).in.names-functions.......... |
| 1bd240 | 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 28 73 79 6d 62 6f 6c 2d 66 75 | ............collect.`((symbol-fu |
| 1bd260 | 6e 63 74 69 6f 6e 20 27 2c 6e 61 6d 65 29 20 2c 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 2c | nction.',name).,function))....., |
| 1bd280 | 40 62 6f 64 79 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 6e | @body))..(defvar.*buffer-name*.n |
| 1bd2a0 | 69 6c 29 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 6f 66 66 73 65 74 2a 29 0a 0a 28 64 | il).(defvar.*buffer-offset*)..(d |
| 1bd2c0 | 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 29 0a 20 | efun.compiler-note-location.().. |
| 1bd2e0 | 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6d 70 69 6c 65 72 20 6c 6f | ."Return.the.current.compiler.lo |
| 1bd300 | 63 61 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 6c 69 6e 65 6e 6f 31 20 73 79 73 3a 3a 2a | cation."...(let.((lineno1.sys::* |
| 1bd320 | 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 6c 69 6e 65 6e 6f 31 2a 29 0a 20 20 20 20 20 20 20 20 28 | compile-file-lineno1*).........( |
| 1bd340 | 6c 69 6e 65 6e 6f 32 20 73 79 73 3a 3a 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 6c 69 6e 65 6e | lineno2.sys::*compile-file-linen |
| 1bd360 | 6f 32 2a 29 0a 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 73 79 73 3a 3a 2a 63 6f 6d 70 69 6c 65 | o2*).........(file.sys::*compile |
| 1bd380 | 2d 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 2a 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e | -file-truename*)).....(cond.((an |
| 1bd3a0 | 64 20 66 69 6c 65 20 6c 69 6e 65 6e 6f 31 20 6c 69 6e 65 6e 6f 32 29 0a 20 20 20 20 20 20 20 20 | d.file.lineno1.lineno2)......... |
| 1bd3c0 | 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 27 3a 66 69 6c 65 20 28 | ...(make-location.(list.':file.( |
| 1bd3e0 | 6e 61 6d 65 73 74 72 69 6e 67 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | namestring.file))............... |
| 1bd400 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 3a 6c 69 6e 65 20 6c 69 6e 65 6e 6f 31 | ............(list.':line.lineno1 |
| 1bd420 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 0a 20 20 20 | )))...........(*buffer-name*.... |
| 1bd440 | 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 27 3a 62 | ........(make-location.(list.':b |
| 1bd460 | 75 66 66 65 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 | uffer.*buffer-name*)............ |
| 1bd480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 3a 6f 66 66 73 65 74 20 2a 62 | ...............(list.':offset.*b |
| 1bd4a0 | 75 66 66 65 72 2d 6f 66 66 73 65 74 2a 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a | uffer-offset*.0)))...........(t. |
| 1bd4c0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 65 72 72 6f 72 20 22 4e 6f 20 65 72 72 6f | ...........(list.:error."No.erro |
| 1bd4e0 | 72 20 6c 6f 63 61 74 69 6f 6e 20 61 76 61 69 6c 61 62 6c 65 22 29 29 29 29 29 0a 0a 28 64 65 66 | r.location.available")))))..(def |
| 1bd500 | 75 6e 20 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 20 28 63 73 74 72 | un.signal-compiler-warning.(cstr |
| 1bd520 | 69 6e 67 20 61 72 67 73 20 73 65 76 65 72 69 74 79 20 6f 72 69 67 2d 66 6e 29 0a 20 20 28 73 69 | ing.args.severity.orig-fn)...(si |
| 1bd540 | 67 6e 61 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 | gnal.'compiler-condition........ |
| 1bd560 | 20 20 20 3a 73 65 76 65 72 69 74 79 20 73 65 76 65 72 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 | ...:severity.severity........... |
| 1bd580 | 3a 6d 65 73 73 61 67 65 20 28 61 70 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 6e 69 6c 20 63 73 74 | :message.(apply.#'format.nil.cst |
| 1bd5a0 | 72 69 6e 67 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 20 28 | ring.args)...........:location.( |
| 1bd5c0 | 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 28 61 70 70 6c | compiler-note-location))...(appl |
| 1bd5e0 | 79 20 6f 72 69 67 2d 66 6e 20 63 73 74 72 69 6e 67 20 61 72 67 73 29 29 0a 0a 28 64 65 66 75 6e | y.orig-fn.cstring.args))..(defun |
| 1bd600 | 20 63 2d 77 61 72 6e 20 28 63 73 74 72 69 6e 67 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 | .c-warn.(cstring.&rest.args)...( |
| 1bd620 | 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 20 63 73 74 72 69 6e 67 20 | signal-compiler-warning.cstring. |
| 1bd640 | 61 72 67 73 20 3a 77 61 72 6e 69 6e 67 20 2a 6f 72 69 67 2d 63 2d 77 61 72 6e 2a 29 29 0a 0a 28 | args.:warning.*orig-c-warn*))..( |
| 1bd660 | 64 65 66 75 6e 20 63 2d 73 74 79 6c 65 2d 77 61 72 6e 20 28 63 73 74 72 69 6e 67 20 26 72 65 73 | defun.c-style-warn.(cstring.&res |
| 1bd680 | 74 20 61 72 67 73 29 0a 20 20 28 64 79 6e 61 6d 69 63 2d 66 6c 65 74 20 28 28 73 79 73 3a 3a 63 | t.args)...(dynamic-flet.((sys::c |
| 1bd6a0 | 2d 77 61 72 6e 20 2a 6f 72 69 67 2d 63 2d 77 61 72 6e 2a 29 29 0a 20 20 20 20 28 73 69 67 6e 61 | -warn.*orig-c-warn*)).....(signa |
| 1bd6c0 | 6c 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 20 63 73 74 72 69 6e 67 20 61 72 67 73 20 | l-compiler-warning.cstring.args. |
| 1bd6e0 | 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 20 2a 6f 72 69 67 2d 63 2d 73 74 79 6c 65 2d 77 61 72 | :style-warning.*orig-c-style-war |
| 1bd700 | 6e 2a 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 2d 65 72 72 6f 72 20 28 26 72 65 73 74 20 61 72 67 | n*)))..(defun.c-error.(&rest.arg |
| 1bd720 | 73 29 0a 20 20 28 73 69 67 6e 61 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e | s)...(signal.'compiler-condition |
| 1bd740 | 0a 20 20 20 20 20 20 20 20 20 20 3a 73 65 76 65 72 69 74 79 20 3a 65 72 72 6f 72 0a 20 20 20 20 | ...........:severity.:error..... |
| 1bd760 | 20 20 20 20 20 20 3a 6d 65 73 73 61 67 65 20 28 61 70 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 6e | ......:message.(apply.#'format.n |
| 1bd780 | 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 | il...........................(if |
| 1bd7a0 | 20 28 3d 20 28 6c 65 6e 67 74 68 20 61 72 67 73 29 20 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(=.(length.args).3)............ |
| 1bd7c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 61 72 67 73 29 0a 20 20 | ...................(cdr.args)... |
| 1bd7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 | ............................args |
| 1bd800 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6d 70 69 6c 65 72 | ))...........:location.(compiler |
| 1bd820 | 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 28 61 70 70 6c 79 20 2a 6f 72 69 67 2d | -note-location))...(apply.*orig- |
| 1bd840 | 63 2d 65 72 72 6f 72 2a 20 61 72 67 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | c-error*.args))..(defimplementat |
| 1bd860 | 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 | ion.call-with-compilation-hooks. |
| 1bd880 | 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 77 61 72 | (function)...(handler-bind.((war |
| 1bd8a0 | 6e 69 6e 67 20 23 27 68 61 6e 64 6c 65 2d 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 | ning.#'handle-notification-condi |
| 1bd8c0 | 74 69 6f 6e 29 29 0a 20 20 20 20 28 64 79 6e 61 6d 69 63 2d 66 6c 65 74 20 28 28 73 79 73 74 65 | tion)).....(dynamic-flet.((syste |
| 1bd8e0 | 6d 3a 3a 63 2d 77 61 72 6e 20 23 27 63 2d 77 61 72 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | m::c-warn.#'c-warn)............. |
| 1bd900 | 20 20 20 20 20 20 20 28 73 79 73 74 65 6d 3a 3a 63 2d 73 74 79 6c 65 2d 77 61 72 6e 20 23 27 63 | .......(system::c-style-warn.#'c |
| 1bd920 | 2d 73 74 79 6c 65 2d 77 61 72 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -style-warn).................... |
| 1bd940 | 28 73 79 73 74 65 6d 3a 3a 63 2d 65 72 72 6f 72 20 23 27 63 2d 65 72 72 6f 72 29 29 0a 20 20 20 | (system::c-error.#'c-error)).... |
| 1bd960 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e | ...(funcall.function))))..(defun |
| 1bd980 | 20 68 61 6e 64 6c 65 2d 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 | .handle-notification-condition.( |
| 1bd9a0 | 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 48 61 6e 64 6c 65 20 61 20 63 6f 6e 64 69 74 69 6f 6e | condition)..."Handle.a.condition |
| 1bd9c0 | 20 63 61 75 73 65 64 20 62 79 20 61 20 63 6f 6d 70 69 6c 65 72 20 77 61 72 6e 69 6e 67 2e 22 0a | .caused.by.a.compiler.warning.". |
| 1bd9e0 | 20 20 28 73 69 67 6e 61 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 | ..(signal.'compiler-condition... |
| 1bda00 | 20 20 20 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 | ........:original-condition.cond |
| 1bda20 | 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3a 73 65 76 65 72 69 74 79 20 3a 77 61 72 6e 69 | ition...........:severity.:warni |
| 1bda40 | 6e 67 0a 20 20 20 20 20 20 20 20 20 20 3a 6d 65 73 73 61 67 65 20 28 70 72 69 6e 63 2d 74 6f 2d | ng...........:message.(princ-to- |
| 1bda60 | 73 74 72 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 | string.condition)...........:loc |
| 1bda80 | 61 74 69 6f 6e 20 28 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 | ation.(compiler-note-location))) |
| 1bdaa0 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 | ..(defimplementation.swank-compi |
| 1bdac0 | 6c 65 2d 66 69 6c 65 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 0a | le-file.(input-file.output-file. |
| 1bdae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1bdb00 | 20 20 20 20 20 20 20 6c 6f 61 64 2d 70 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 | .......load-p.external-format... |
| 1bdb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1bdb40 | 20 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 | .....&key.policy)...(declare.(ig |
| 1bdb60 | 6e 6f 72 65 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f | nore.policy))...(with-compilatio |
| 1bdb80 | 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e | n-hooks.().....(with-compilation |
| 1bdba0 | 2d 75 6e 69 74 20 28 29 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 | -unit.().......(multiple-value-b |
| 1bdbc0 | 69 6e 64 20 28 66 61 73 6c 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 70 20 66 61 69 6c 75 72 65 | ind.(fasl-file.warningsp.failure |
| 1bdbe0 | 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 69 6e 70 75 74 | p)...........(compile-file.input |
| 1bdc00 | 2d 66 69 6c 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | -file..........................: |
| 1bdc20 | 6f 75 74 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 | output-file.output-file......... |
| 1bdc40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 | ................:external-format |
| 1bdc60 | 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 | .external-format).........(value |
| 1bdc80 | 73 20 66 61 73 6c 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 70 0a 20 20 20 20 20 20 20 20 20 20 | s.fasl-file.warningsp........... |
| 1bdca0 | 20 20 20 20 20 20 28 6f 72 20 66 61 69 6c 75 72 65 70 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(or.failurep.............. |
| 1bdcc0 | 20 20 20 20 20 20 20 20 28 61 6e 64 20 6c 6f 61 64 2d 70 20 0a 20 20 20 20 20 20 20 20 20 20 20 | ........(and.load-p............. |
| 1bdce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6c 6f 61 64 20 66 61 73 6c 2d 66 69 | ..............(not.(load.fasl-fi |
| 1bdd00 | 6c 65 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | le)))))))))..(defimplementation. |
| 1bdd20 | 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 6b 65 | swank-compile-string.(string.&ke |
| 1bdd40 | 79 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 | y.buffer.position.filename...... |
| 1bdd60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1bdd80 | 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 0a 20 | ...........line.column.policy).. |
| 1bdda0 | 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 69 6c 65 6e 61 6d 65 20 6c 69 6e 65 20 | .(declare.(ignore.filename.line. |
| 1bddc0 | 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 | column.policy))...(with-compilat |
| 1bdde0 | 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d | ion-hooks.().....(let.((*buffer- |
| 1bde00 | 6e 61 6d 65 2a 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 | name*.buffer)...........(*buffer |
| 1bde20 | 2d 6f 66 66 73 65 74 2a 20 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 | -offset*.position)).......(funca |
| 1bde40 | 6c 6c 20 28 63 6f 6d 70 69 6c 65 20 6e 69 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e | ll.(compile.nil.(read-from-strin |
| 1bde60 | 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | g..............................( |
| 1bde80 | 66 6f 72 6d 61 74 20 6e 69 6c 20 22 28 7e 53 20 28 29 20 7e 41 29 22 20 27 6c 61 6d 62 64 61 20 | format.nil."(~S.().~A)".'lambda. |
| 1bdea0 | 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 74 29 29 29 0a 0a 3b 3b 3b 3b 20 50 6f 72 74 | string)))).......t)))..;;;;.Port |
| 1bdec0 | 61 62 6c 65 20 58 52 45 46 20 66 72 6f 6d 20 74 68 65 20 43 4d 55 20 41 49 20 72 65 70 6f 73 69 | able.XREF.from.the.CMU.AI.reposi |
| 1bdee0 | 74 6f 72 79 2e 0a 0a 28 73 65 74 71 20 70 78 72 65 66 3a 3a 2a 68 61 6e 64 6c 65 2d 70 61 63 6b | tory...(setq.pxref::*handle-pack |
| 1bdf00 | 61 67 65 2d 66 6f 72 6d 73 2a 20 27 28 63 6c 3a 69 6e 2d 70 61 63 6b 61 67 65 29 29 0a 0a 28 64 | age-forms*.'(cl:in-package))..(d |
| 1bdf20 | 65 66 6d 61 63 72 6f 20 64 65 66 78 72 65 66 20 28 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 0a | efmacro.defxref.(name.function). |
| 1bdf40 | 20 20 60 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 2c 6e 61 6d 65 20 28 6e 61 6d | ..`(defimplementation.,name.(nam |
| 1bdf60 | 65 29 0a 20 20 20 20 28 78 72 65 66 2d 72 65 73 75 6c 74 73 20 28 2c 66 75 6e 63 74 69 6f 6e 20 | e).....(xref-results.(,function. |
| 1bdf80 | 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 78 72 65 66 20 77 68 6f 2d 63 61 6c 6c 73 20 20 20 20 | name))))..(defxref.who-calls.... |
| 1bdfa0 | 20 20 70 78 72 65 66 3a 6c 69 73 74 2d 63 61 6c 6c 65 72 73 29 0a 28 64 65 66 78 72 65 66 20 77 | ..pxref:list-callers).(defxref.w |
| 1bdfc0 | 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 20 70 78 72 65 66 3a 6c 69 73 74 2d 72 65 61 64 65 72 73 | ho-references.pxref:list-readers |
| 1bdfe0 | 29 0a 28 64 65 66 78 72 65 66 20 77 68 6f 2d 62 69 6e 64 73 20 20 20 20 20 20 70 78 72 65 66 3a | ).(defxref.who-binds......pxref: |
| 1be000 | 6c 69 73 74 2d 73 65 74 74 65 72 73 29 0a 28 64 65 66 78 72 65 66 20 77 68 6f 2d 73 65 74 73 20 | list-setters).(defxref.who-sets. |
| 1be020 | 20 20 20 20 20 20 70 78 72 65 66 3a 6c 69 73 74 2d 73 65 74 74 65 72 73 29 0a 28 64 65 66 78 72 | ......pxref:list-setters).(defxr |
| 1be040 | 65 66 20 6c 69 73 74 2d 63 61 6c 6c 65 72 73 20 20 20 70 78 72 65 66 3a 6c 69 73 74 2d 63 61 6c | ef.list-callers...pxref:list-cal |
| 1be060 | 6c 65 72 73 29 0a 28 64 65 66 78 72 65 66 20 6c 69 73 74 2d 63 61 6c 6c 65 65 73 20 20 20 70 78 | lers).(defxref.list-callees...px |
| 1be080 | 72 65 66 3a 6c 69 73 74 2d 63 61 6c 6c 65 65 73 29 0a 0a 28 64 65 66 75 6e 20 78 72 65 66 2d 72 | ref:list-callees)..(defun.xref-r |
| 1be0a0 | 65 73 75 6c 74 73 20 28 73 79 6d 62 6f 6c 73 29 0a 20 20 28 6c 65 74 20 28 28 78 72 65 66 73 20 | esults.(symbols)...(let.((xrefs. |
| 1be0c0 | 27 28 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c | '())).....(dolist.(symbol.symbol |
| 1be0e0 | 73 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 28 66 73 70 65 63 2d 6c 6f 63 61 74 69 6f 6e 20 73 | s).......(push.(fspec-location.s |
| 1be100 | 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 29 20 78 72 65 66 73 29 29 0a 20 20 20 20 78 72 65 66 73 29 | ymbol.symbol).xrefs)).....xrefs) |
| 1be120 | 29 0a 0a 28 77 68 65 6e 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2d 6c 6f | )..(when.(find-package.:swank-lo |
| 1be140 | 61 64 65 72 29 0a 20 20 28 73 65 74 66 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 28 | ader)...(setf.(symbol-function.( |
| 1be160 | 69 6e 74 65 72 6e 20 22 55 53 45 52 2d 49 4e 49 54 2d 46 49 4c 45 22 20 3a 73 77 61 6e 6b 2d 6c | intern."USER-INIT-FILE".:swank-l |
| 1be180 | 6f 61 64 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 | oader)).........(lambda.()...... |
| 1be1a0 | 20 20 20 20 20 28 6c 65 74 20 28 28 68 6f 6d 65 20 28 75 73 65 72 2d 68 6f 6d 65 64 69 72 2d 70 | .....(let.((home.(user-homedir-p |
| 1be1c0 | 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 78 74 | athname))).............(and.(ext |
| 1be1e0 | 3a 70 72 6f 62 65 2d 64 69 72 65 63 74 6f 72 79 20 68 6f 6d 65 29 0a 20 20 20 20 20 20 20 20 20 | :probe-directory.home).......... |
| 1be200 | 20 20 20 20 20 20 20 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 | ........(probe-file.(format.nil. |
| 1be220 | 22 7e 41 2f 2e 73 77 61 6e 6b 2e 6c 69 73 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "~A/.swank.lisp"................ |
| 1be240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 73 74 72 69 6e | ......................(namestrin |
| 1be260 | 67 20 28 74 72 75 65 6e 61 6d 65 20 68 6f 6d 65 29 29 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 20 44 | g.(truename.home)))))))))..;;;.D |
| 1be280 | 6f 6e 27 74 20 73 65 74 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 74 6f 20 6e 69 6c 20 | on't.set.*debugger-hook*.to.nil. |
| 1be2a0 | 6f 6e 20 62 72 65 61 6b 2e 0a 28 65 78 74 3a 77 69 74 68 6f 75 74 2d 70 61 63 6b 61 67 65 2d 6c | on.break..(ext:without-package-l |
| 1be2c0 | 6f 63 6b 20 28 29 0a 20 28 64 65 66 75 6e 20 62 72 65 61 6b 20 28 26 6f 70 74 69 6f 6e 61 6c 20 | ock.()..(defun.break.(&optional. |
| 1be2e0 | 28 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 22 42 72 65 61 6b 22 29 20 26 72 65 73 74 20 61 72 | (format-string."Break").&rest.ar |
| 1be300 | 67 73 29 0a 20 20 20 28 69 66 20 28 6e 6f 74 20 73 79 73 3a 3a 2a 75 73 65 2d 63 6c 63 73 2a 29 | gs)....(if.(not.sys::*use-clcs*) |
| 1be320 | 0a 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 28 74 65 72 70 72 69 20 | ........(progn..........(terpri. |
| 1be340 | 2a 65 72 72 6f 72 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 | *error-output*)..........(apply. |
| 1be360 | 23 27 66 6f 72 6d 61 74 20 2a 65 72 72 6f 72 2d 6f 75 74 70 75 74 2a 0a 20 20 20 20 20 20 20 20 | #'format.*error-output*......... |
| 1be380 | 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 20 22 2a 2a | ........(concatenate.'string."** |
| 1be3a0 | 2a 20 2d 20 22 20 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 | *.-.".format-string)............ |
| 1be3c0 | 20 20 20 20 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 65 78 74 | .....args)..........(funcall.ext |
| 1be3e0 | 3a 2a 62 72 65 61 6b 2d 64 72 69 76 65 72 2a 20 74 29 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 | :*break-driver*.t))........(let. |
| 1be400 | 28 28 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d | ((condition...............(make- |
| 1be420 | 63 6f 6e 64 69 74 69 6f 6e 20 27 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 | condition.'simple-condition..... |
| 1be440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 6f 72 6d 61 | ..........................:forma |
| 1be460 | 74 2d 63 6f 6e 74 72 6f 6c 20 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 | t-control.format-string......... |
| 1be480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 6f 72 6d 61 74 2d 61 72 | ......................:format-ar |
| 1be4a0 | 67 75 6d 65 6e 74 73 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 28 2a | guments.args))..............;;(* |
| 1be4c0 | 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | debugger-hook*.nil)............. |
| 1be4e0 | 20 3b 3b 20 49 73 73 75 65 20 39 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 | .;;.Issue.91..............)..... |
| 1be500 | 20 20 20 20 20 28 65 78 74 3a 77 69 74 68 2d 72 65 73 74 61 72 74 73 0a 20 20 20 20 20 20 20 20 | .....(ext:with-restarts......... |
| 1be520 | 20 20 20 20 20 28 28 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | .....((continue................: |
| 1be540 | 72 65 70 6f 72 74 20 28 6c 61 6d 62 64 61 20 28 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 | report.(lambda.(stream)......... |
| 1be560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 | .................(format.stream. |
| 1be580 | 28 73 79 73 3a 3a 74 65 78 74 20 22 52 65 74 75 72 6e 20 66 72 6f 6d 20 7e 53 20 6c 6f 6f 70 22 | (sys::text."Return.from.~S.loop" |
| 1be5a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 1be5c0 | 20 20 20 27 62 72 65 61 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 29 29 29 0a | ...'break))................())). |
| 1be5e0 | 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6e 64 69 74 69 6f 6e 2d 72 65 73 74 61 | ...........(with-condition-resta |
| 1be600 | 72 74 73 20 63 6f 6e 64 69 74 69 6f 6e 20 28 6c 69 73 74 20 28 66 69 6e 64 2d 72 65 73 74 61 72 | rts.condition.(list.(find-restar |
| 1be620 | 74 20 27 63 6f 6e 74 69 6e 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.'continue))................... |
| 1be640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 | ..................(invoke-debugg |
| 1be660 | 65 72 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 6e 69 6c 29 29 0a 0a 3b 3b 3b 3b | er.condition)))))....nil))..;;;; |
| 1be680 | 20 49 6e 73 70 65 63 74 69 6e 67 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e | .Inspecting..(defmethod.emacs-in |
| 1be6a0 | 73 70 65 63 74 20 28 28 6f 20 74 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 2a 70 72 69 6e 74 2d 61 | spect.((o.t))...(let*.((*print-a |
| 1be6c0 | 72 72 61 79 2a 20 6e 69 6c 29 20 28 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a 20 74 29 0a 20 20 | rray*.nil).(*print-pretty*.t)... |
| 1be6e0 | 20 20 20 20 20 20 20 28 2a 70 72 69 6e 74 2d 63 69 72 63 6c 65 2a 20 74 29 20 28 2a 70 72 69 6e | .......(*print-circle*.t).(*prin |
| 1be700 | 74 2d 65 73 63 61 70 65 2a 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 2a 70 72 69 6e 74 2d 6c 69 | t-escape*.t)..........(*print-li |
| 1be720 | 6e 65 73 2a 20 63 75 73 74 6f 6d 3a 2a 69 6e 73 70 65 63 74 2d 70 72 69 6e 74 2d 6c 69 6e 65 73 | nes*.custom:*inspect-print-lines |
| 1be740 | 2a 29 0a 20 20 20 20 20 20 20 20 20 28 2a 70 72 69 6e 74 2d 6c 65 76 65 6c 2a 20 63 75 73 74 6f | *)..........(*print-level*.custo |
| 1be760 | 6d 3a 2a 69 6e 73 70 65 63 74 2d 70 72 69 6e 74 2d 6c 65 76 65 6c 2a 29 0a 20 20 20 20 20 20 20 | m:*inspect-print-level*)........ |
| 1be780 | 20 20 28 2a 70 72 69 6e 74 2d 6c 65 6e 67 74 68 2a 20 63 75 73 74 6f 6d 3a 2a 69 6e 73 70 65 63 | ..(*print-length*.custom:*inspec |
| 1be7a0 | 74 2d 70 72 69 6e 74 2d 6c 65 6e 67 74 68 2a 29 0a 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 3a | t-print-length*)..........(sys:: |
| 1be7c0 | 2a 69 6e 73 70 65 63 74 2d 61 6c 6c 2a 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 31 30 20 3a 66 69 | *inspect-all*.(make-array.10.:fi |
| 1be7e0 | 6c 6c 2d 70 6f 69 6e 74 65 72 20 30 20 3a 61 64 6a 75 73 74 61 62 6c 65 20 74 29 29 0a 20 20 20 | ll-pointer.0.:adjustable.t)).... |
| 1be800 | 20 20 20 20 20 20 28 74 6d 70 2d 70 61 63 6b 20 28 6d 61 6b 65 2d 70 61 63 6b 61 67 65 20 28 67 | ......(tmp-pack.(make-package.(g |
| 1be820 | 65 6e 73 79 6d 20 22 49 4e 53 50 45 43 54 2d 54 4d 50 2d 50 41 43 4b 41 47 45 2d 22 29 29 29 0a | ensym."INSPECT-TMP-PACKAGE-"))). |
| 1be840 | 20 20 20 20 20 20 20 20 20 28 2a 70 61 63 6b 61 67 65 2a 20 74 6d 70 2d 70 61 63 6b 29 0a 20 20 | .........(*package*.tmp-pack)... |
| 1be860 | 20 20 20 20 20 20 20 28 73 79 73 3a 3a 2a 69 6e 73 70 65 63 74 2d 75 6e 62 6f 75 6e 64 2d 76 61 | .......(sys::*inspect-unbound-va |
| 1be880 | 6c 75 65 2a 20 28 69 6e 74 65 72 6e 20 22 23 3c 75 6e 62 6f 75 6e 64 3e 22 20 74 6d 70 2d 70 61 | lue*.(intern."#<unbound>".tmp-pa |
| 1be8a0 | 63 6b 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 73 70 65 63 74 69 6f 6e 20 28 73 79 73 | ck))).....(let.((inspection.(sys |
| 1be8c0 | 3a 3a 69 6e 73 70 65 63 74 2d 62 61 63 6b 65 6e 64 20 6f 29 29 29 0a 20 20 20 20 20 20 28 61 70 | ::inspect-backend.o))).......(ap |
| 1be8e0 | 70 65 6e 64 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 | pend.(list................(forma |
| 1be900 | 74 20 6e 69 6c 20 22 7e 53 7e 25 20 7e 41 7e 7b 7e 25 7e 41 7e 7d 7e 25 22 20 6f 0a 20 20 20 20 | t.nil."~S~%.~A~{~%~A~}~%".o..... |
| 1be920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 3a 69 6e 73 70 2d 74 69 74 | ..................(sys::insp-tit |
| 1be940 | 6c 65 20 69 6e 73 70 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le.inspection).................. |
| 1be960 | 20 20 20 20 20 28 73 79 73 3a 3a 69 6e 73 70 2d 62 6c 75 72 62 20 69 6e 73 70 65 63 74 69 6f 6e | .....(sys::insp-blurb.inspection |
| 1be980 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 77 69 74 68 20 63 6f 75 | )))...............(loop.with.cou |
| 1be9a0 | 6e 74 20 3d 20 28 73 79 73 3a 3a 69 6e 73 70 2d 6e 75 6d 2d 73 6c 6f 74 73 20 69 6e 73 70 65 63 | nt.=.(sys::insp-num-slots.inspec |
| 1be9c0 | 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 | tion).....................for.i. |
| 1be9e0 | 62 65 6c 6f 77 20 63 6f 75 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | below.count..................... |
| 1bea00 | 61 70 70 65 6e 64 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 76 61 6c | append.(multiple-value-bind.(val |
| 1bea20 | 75 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ue.name)........................ |
| 1bea40 | 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 73 79 73 3a 3a 69 6e 73 70 2d 6e 74 68 2d | ........(funcall.(sys::insp-nth- |
| 1bea60 | 73 6c 6f 74 20 69 6e 73 70 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | slot.inspection)................ |
| 1bea80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 29 0a 20 20 20 20 | .........................i)..... |
| 1beaa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 76 61 6c | .........................`((:val |
| 1beac0 | 75 65 20 2c 6e 61 6d 65 29 20 22 20 3d 20 22 20 28 3a 76 61 6c 75 65 20 2c 76 61 6c 75 65 29 0a | ue.,name).".=.".(:value.,value). |
| 1beae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1beb00 | 3a 6e 65 77 6c 69 6e 65 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | :newline))))))))..(defimplementa |
| 1beb20 | 74 69 6f 6e 20 71 75 69 74 2d 6c 69 73 70 20 28 29 0a 20 20 23 2b 6c 69 73 70 3d 63 6c 20 28 65 | tion.quit-lisp.()...#+lisp=cl.(e |
| 1beb40 | 78 74 3a 71 75 69 74 29 0a 20 20 23 2d 6c 69 73 70 3d 63 6c 20 28 6c 69 73 70 3a 71 75 69 74 29 | xt:quit)...#-lisp=cl.(lisp:quit) |
| 1beb60 | 29 0a 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 65 66 65 72 72 65 64 | )...(defimplementation.preferred |
| 1beb80 | 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 28 29 0a 20 20 6e 69 6c 29 0a 0a | -communication-style.()...nil).. |
| 1beba0 | 3b 3b 3b 20 46 49 58 4d 45 0a 3b 3b 3b 0a 3b 3b 3b 20 43 6c 69 73 70 20 32 2e 34 38 20 61 64 64 | ;;;.FIXME.;;;.;;;.Clisp.2.48.add |
| 1bebc0 | 65 64 20 65 78 70 65 72 69 6d 65 6e 74 61 6c 20 73 75 70 70 6f 72 74 20 66 6f 72 20 74 68 72 65 | ed.experimental.support.for.thre |
| 1bebe0 | 61 64 73 2e 20 42 61 73 69 63 61 6c 6c 79 2c 20 79 6f 75 0a 3b 3b 3b 20 63 61 6e 20 75 73 65 20 | ads..Basically,.you.;;;.can.use. |
| 1bec00 | 3a 53 50 41 57 4e 20 6e 6f 77 2c 20 42 55 54 3a 0a 3b 3b 3b 20 0a 3b 3b 3b 20 20 20 2d 20 74 68 | :SPAWN.now,.BUT:.;;;..;;;...-.th |
| 1bec20 | 65 72 65 20 61 72 65 20 70 72 6f 62 6c 65 6d 73 20 77 69 74 68 20 47 43 2c 20 61 6e 64 20 74 68 | ere.are.problems.with.GC,.and.th |
| 1bec40 | 72 65 61 64 73 20 73 74 75 66 66 65 64 20 69 6e 74 6f 20 77 65 61 6b 0a 3b 3b 3b 20 20 20 20 20 | reads.stuffed.into.weak.;;;..... |
| 1bec60 | 68 61 73 68 2d 74 61 62 6c 65 73 20 61 73 20 69 73 20 74 68 65 20 63 61 73 65 20 66 6f 72 20 2a | hash-tables.as.is.the.case.for.* |
| 1bec80 | 54 48 52 45 41 44 2d 50 4c 49 53 54 2d 54 41 42 4c 45 2a 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 | THREAD-PLIST-TABLE*..;;;.;;;.... |
| 1beca0 | 20 53 65 65 20 74 65 73 74 20 63 61 73 65 20 61 74 0a 3b 3b 3b 20 20 20 20 20 20 20 68 74 74 70 | .See.test.case.at.;;;.......http |
| 1becc0 | 3a 2f 2f 74 68 72 65 61 64 2e 67 6d 61 6e 65 2e 6f 72 67 2f 67 6d 61 6e 65 2e 6c 69 73 70 2e 63 | ://thread.gmane.org/gmane.lisp.c |
| 1bece0 | 6c 69 73 70 2e 64 65 76 65 6c 2f 32 30 34 32 39 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 20 45 76 65 | lisp.devel/20429.;;;.;;;.....Eve |
| 1bed00 | 6e 20 74 68 6f 75 67 68 20 73 61 69 64 20 74 6f 20 62 65 20 66 69 78 65 64 2c 20 69 74 27 73 20 | n.though.said.to.be.fixed,.it's. |
| 1bed20 | 6e 6f 74 3a 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 20 20 20 68 74 74 70 3a 2f 2f 74 68 72 65 61 64 | not:.;;;.;;;.......http://thread |
| 1bed40 | 2e 67 6d 61 6e 65 2e 6f 72 67 2f 67 6d 61 6e 65 2e 6c 69 73 70 2e 63 6c 69 73 70 2e 64 65 76 65 | .gmane.org/gmane.lisp.clisp.deve |
| 1bed60 | 6c 2f 32 30 34 32 39 2f 66 6f 63 75 73 3d 32 30 34 34 33 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 2d 20 | l/20429/focus=20443.;;;.;;;...-. |
| 1bed80 | 54 68 65 20 44 59 4e 41 4d 49 43 2d 46 4c 45 54 20 61 62 6f 76 65 20 69 73 20 61 6e 20 69 6d 70 | The.DYNAMIC-FLET.above.is.an.imp |
| 1beda0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 65 63 68 6e 69 71 75 65 20 74 68 61 74 27 73 0a 3b 3b 3b | lementation.technique.that's.;;; |
| 1bedc0 | 20 20 20 20 20 70 72 6f 62 61 62 6c 79 20 6e 6f 74 20 73 75 73 74 61 69 6e 61 62 6c 65 20 69 6e | .....probably.not.sustainable.in |
| 1bede0 | 20 6c 69 67 68 74 20 6f 66 20 74 68 72 65 61 64 73 2e 20 54 68 69 73 20 67 6f 74 20 74 6f 20 62 | .light.of.threads..This.got.to.b |
| 1bee00 | 65 0a 3b 3b 3b 20 20 20 20 20 72 65 77 72 69 74 74 65 6e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 43 52 | e.;;;.....rewritten..;;;.;;;.TCR |
| 1bee20 | 20 28 32 30 30 39 2d 30 37 2d 33 30 29 0a 0a 23 2b 23 2e 28 63 6c 3a 69 66 20 28 63 6c 3a 66 69 | .(2009-07-30)..#+#.(cl:if.(cl:fi |
| 1bee40 | 6e 64 2d 70 61 63 6b 61 67 65 20 22 4d 50 22 29 20 27 28 3a 61 6e 64 29 20 27 28 3a 6f 72 29 29 | nd-package."MP").'(:and).'(:or)) |
| 1bee60 | 20 0a 28 70 72 6f 67 6e 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 70 | ..(progn...(defimplementation.sp |
| 1bee80 | 61 77 6e 20 28 66 6e 20 26 6b 65 79 20 6e 61 6d 65 29 0a 20 20 20 20 28 6d 70 3a 6d 61 6b 65 2d | awn.(fn.&key.name).....(mp:make- |
| 1beea0 | 74 68 72 65 61 64 20 66 6e 20 3a 6e 61 6d 65 20 6e 61 6d 65 29 29 0a 0a 20 20 28 64 65 66 76 61 | thread.fn.:name.name))....(defva |
| 1beec0 | 72 20 2a 74 68 72 65 61 64 2d 70 6c 69 73 74 2d 74 61 62 6c 65 2d 6c 6f 63 6b 2a 0a 20 20 20 20 | r.*thread-plist-table-lock*..... |
| 1beee0 | 28 6d 70 3a 6d 61 6b 65 2d 6d 75 74 65 78 20 3a 6e 61 6d 65 20 22 54 48 52 45 41 44 2d 50 4c 49 | (mp:make-mutex.:name."THREAD-PLI |
| 1bef00 | 53 54 2d 54 41 42 4c 45 2d 4c 4f 43 4b 22 29 29 0a 0a 20 20 28 64 65 66 76 61 72 20 2a 74 68 72 | ST-TABLE-LOCK"))....(defvar.*thr |
| 1bef20 | 65 61 64 2d 70 6c 69 73 74 2d 74 61 62 6c 65 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c | ead-plist-table*.(make-hash-tabl |
| 1bef40 | 65 20 3a 77 65 61 6b 20 3a 6b 65 79 29 0a 20 20 20 20 22 41 20 68 61 73 68 74 61 62 6c 65 20 6d | e.:weak.:key)....."A.hashtable.m |
| 1bef60 | 61 70 70 69 6e 67 20 74 68 72 65 61 64 73 20 74 6f 20 61 20 70 6c 69 73 74 2e 22 29 0a 0a 20 20 | apping.threads.to.a.plist.").... |
| 1bef80 | 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2a 20 30 29 0a 0a | (defvar.*thread-id-counter*.0).. |
| 1befa0 | 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 20 28 | ..(defimplementation.thread-id.( |
| 1befc0 | 74 68 72 65 61 64 29 0a 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6d 75 74 65 78 2d 6c 6f 63 6b 20 | thread).....(mp:with-mutex-lock. |
| 1befe0 | 28 2a 74 68 72 65 61 64 2d 70 6c 69 73 74 2d 74 61 62 6c 65 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 | (*thread-plist-table-lock*)..... |
| 1bf000 | 20 20 28 6f 72 20 28 67 65 74 66 20 28 67 65 74 68 61 73 68 20 74 68 72 65 61 64 20 2a 74 68 72 | ..(or.(getf.(gethash.thread.*thr |
| 1bf020 | 65 61 64 2d 70 6c 69 73 74 2d 74 61 62 6c 65 2a 29 20 27 74 68 72 65 61 64 2d 69 64 29 0a 20 20 | ead-plist-table*).'thread-id)... |
| 1bf040 | 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 28 67 65 74 68 61 73 68 20 74 68 72 | ........(setf.(getf.(gethash.thr |
| 1bf060 | 65 61 64 20 2a 74 68 72 65 61 64 2d 70 6c 69 73 74 2d 74 61 62 6c 65 2a 29 20 27 74 68 72 65 61 | ead.*thread-plist-table*).'threa |
| 1bf080 | 64 2d 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 2a 74 68 72 | d-id).................(incf.*thr |
| 1bf0a0 | 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2a 29 29 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c | ead-id-counter*)))))....(defimpl |
| 1bf0c0 | 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 74 68 72 65 61 64 20 28 69 64 29 0a 20 20 20 20 | ementation.find-thread.(id)..... |
| 1bf0e0 | 28 66 69 6e 64 20 69 64 20 28 61 6c 6c 2d 74 68 72 65 61 64 73 29 0a 20 20 20 20 20 20 20 20 20 | (find.id.(all-threads).......... |
| 1bf100 | 20 3a 6b 65 79 20 28 6c 61 6d 62 64 61 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 | .:key.(lambda.(thread).......... |
| 1bf120 | 20 20 20 20 20 20 20 20 28 67 65 74 66 20 28 67 65 74 68 61 73 68 20 74 68 72 65 61 64 20 2a 74 | ........(getf.(gethash.thread.*t |
| 1bf140 | 68 72 65 61 64 2d 70 6c 69 73 74 2d 74 61 62 6c 65 2a 29 20 27 74 68 72 65 61 64 2d 69 64 29 29 | hread-plist-table*).'thread-id)) |
| 1bf160 | 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d | ))....(defimplementation.thread- |
| 1bf180 | 6e 61 6d 65 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 3b 3b 20 54 6f 20 67 75 61 72 64 20 61 67 | name.(thread).....;;.To.guard.ag |
| 1bf1a0 | 61 69 6e 73 74 20 72 65 74 75 72 6e 69 6e 67 20 23 3c 55 4e 42 4f 55 4e 44 3e 2e 0a 20 20 20 20 | ainst.returning.#<UNBOUND>...... |
| 1bf1c0 | 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6d 70 3a 74 68 72 65 61 64 2d 6e 61 6d 65 | (princ-to-string.(mp:thread-name |
| 1bf1e0 | 20 74 68 72 65 61 64 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | .thread)))....(defimplementation |
| 1bf200 | 20 74 68 72 65 61 64 2d 73 74 61 74 75 73 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 69 66 20 | .thread-status.(thread).....(if. |
| 1bf220 | 28 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 | (thread-alive-p.thread)......... |
| 1bf240 | 22 52 55 4e 4e 49 4e 47 22 0a 20 20 20 20 20 20 20 20 22 53 54 4f 50 50 45 44 22 29 29 0a 0a 20 | "RUNNING"........."STOPPED"))... |
| 1bf260 | 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 6c 6f 63 6b 20 28 26 | .(defimplementation.make-lock.(& |
| 1bf280 | 6b 65 79 20 6e 61 6d 65 29 0a 20 20 20 20 28 6d 70 3a 6d 61 6b 65 2d 6d 75 74 65 78 20 3a 6e 61 | key.name).....(mp:make-mutex.:na |
| 1bf2a0 | 6d 65 20 6e 61 6d 65 20 3a 72 65 63 75 72 73 69 76 65 2d 70 20 74 29 29 0a 0a 20 20 28 64 65 66 | me.name.:recursive-p.t))....(def |
| 1bf2c0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 | implementation.call-with-lock-he |
| 1bf2e0 | 6c 64 20 28 6c 6f 63 6b 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 28 6d 70 3a 77 69 74 68 2d | ld.(lock.function).....(mp:with- |
| 1bf300 | 6d 75 74 65 78 2d 6c 6f 63 6b 20 28 6c 6f 63 6b 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c | mutex-lock.(lock).......(funcall |
| 1bf320 | 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | .function)))....(defimplementati |
| 1bf340 | 6f 6e 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 20 20 28 6d 70 3a 63 75 72 | on.current-thread.().....(mp:cur |
| 1bf360 | 72 65 6e 74 2d 74 68 72 65 61 64 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | rent-thread))....(defimplementat |
| 1bf380 | 69 6f 6e 20 61 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 20 20 28 6d 70 3a 6c 69 73 74 2d | ion.all-threads.().....(mp:list- |
| 1bf3a0 | 74 68 72 65 61 64 73 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | threads))....(defimplementation. |
| 1bf3c0 | 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 20 66 6e 29 0a 20 20 20 | interrupt-thread.(thread.fn).... |
| 1bf3e0 | 20 28 6d 70 3a 74 68 72 65 61 64 2d 69 6e 74 65 72 72 75 70 74 20 74 68 72 65 61 64 20 3a 66 75 | .(mp:thread-interrupt.thread.:fu |
| 1bf400 | 6e 63 74 69 6f 6e 20 66 6e 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | nction.fn))....(defimplementatio |
| 1bf420 | 6e 20 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 6d 70 3a 74 | n.kill-thread.(thread).....(mp:t |
| 1bf440 | 68 72 65 61 64 2d 69 6e 74 65 72 72 75 70 74 20 74 68 72 65 61 64 20 3a 66 75 6e 63 74 69 6f 6e | hread-interrupt.thread.:function |
| 1bf460 | 20 74 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 | .t))....(defimplementation.threa |
| 1bf480 | 64 2d 61 6c 69 76 65 2d 70 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 6d 70 3a 74 68 72 65 61 | d-alive-p.(thread).....(mp:threa |
| 1bf4a0 | 64 2d 61 63 74 69 76 65 2d 70 20 74 68 72 65 61 64 29 29 0a 0a 20 20 28 64 65 66 76 61 72 20 2a | d-active-p.thread))....(defvar.* |
| 1bf4c0 | 6d 61 69 6c 62 6f 78 65 73 2d 6c 6f 63 6b 2a 20 28 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 | mailboxes-lock*.(make-lock.:name |
| 1bf4e0 | 20 22 4d 41 49 4c 42 4f 58 45 53 2d 4c 4f 43 4b 22 29 29 0a 20 20 28 64 65 66 76 61 72 20 2a 6d | ."MAILBOXES-LOCK"))...(defvar.*m |
| 1bf500 | 61 69 6c 62 6f 78 65 73 2a 20 28 6c 69 73 74 29 29 0a 0a 20 20 28 64 65 66 73 74 72 75 63 74 20 | ailboxes*.(list))....(defstruct. |
| 1bf520 | 28 6d 61 69 6c 62 6f 78 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 6d 61 69 6c 62 6f 78 2e 29 29 0a | (mailbox.(:conc-name.mailbox.)). |
| 1bf540 | 20 20 20 20 74 68 72 65 61 64 0a 20 20 20 20 28 6c 6f 63 6b 20 28 6d 61 6b 65 2d 6c 6f 63 6b 20 | ....thread.....(lock.(make-lock. |
| 1bf560 | 3a 6e 61 6d 65 20 22 4d 41 49 4c 42 4f 58 2e 4c 4f 43 4b 22 29 29 0a 20 20 20 20 28 77 61 69 74 | :name."MAILBOX.LOCK")).....(wait |
| 1bf580 | 71 75 65 75 65 20 20 28 6d 70 3a 6d 61 6b 65 2d 65 78 65 6d 70 74 69 6f 6e 20 3a 6e 61 6d 65 20 | queue..(mp:make-exemption.:name. |
| 1bf5a0 | 22 4d 41 49 4c 42 4f 58 2e 57 41 49 54 51 55 45 55 45 22 29 29 0a 20 20 20 20 28 71 75 65 75 65 | "MAILBOX.WAITQUEUE")).....(queue |
| 1bf5c0 | 20 27 28 29 20 3a 74 79 70 65 20 6c 69 73 74 29 29 0a 0a 20 20 28 64 65 66 75 6e 20 6d 61 69 6c | .'().:type.list))....(defun.mail |
| 1bf5e0 | 62 6f 78 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 22 52 65 74 75 72 6e 20 54 48 52 45 41 44 27 | box.(thread)....."Return.THREAD' |
| 1bf600 | 73 20 6d 61 69 6c 62 6f 78 2e 22 0a 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6d 75 74 65 78 2d 6c | s.mailbox.".....(mp:with-mutex-l |
| 1bf620 | 6f 63 6b 20 28 2a 6d 61 69 6c 62 6f 78 65 73 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 20 20 28 6f 72 | ock.(*mailboxes-lock*).......(or |
| 1bf640 | 20 28 66 69 6e 64 20 74 68 72 65 61 64 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 20 3a 6b 65 79 20 23 | .(find.thread.*mailboxes*.:key.# |
| 1bf660 | 27 6d 61 69 6c 62 6f 78 2e 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | 'mailbox.thread)...........(let. |
| 1bf680 | 28 28 6d 62 20 28 6d 61 6b 65 2d 6d 61 69 6c 62 6f 78 20 3a 74 68 72 65 61 64 20 74 68 72 65 61 | ((mb.(make-mailbox.:thread.threa |
| 1bf6a0 | 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6d 62 20 2a 6d 61 69 6c 62 | d))).............(push.mb.*mailb |
| 1bf6c0 | 6f 78 65 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 62 29 29 29 29 0a 0a 20 20 28 64 65 | oxes*).............mb))))....(de |
| 1bf6e0 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 6e 64 20 28 74 68 72 65 61 64 20 6d 65 73 | fimplementation.send.(thread.mes |
| 1bf700 | 73 61 67 65 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 | sage).....(let*.((mbox.(mailbox. |
| 1bf720 | 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 6b 20 28 6d 61 69 6c 62 | thread))............(lock.(mailb |
| 1bf740 | 6f 78 2e 6c 6f 63 6b 20 6d 62 6f 78 29 29 29 0a 20 20 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6d | ox.lock.mbox))).......(mp:with-m |
| 1bf760 | 75 74 65 78 2d 6c 6f 63 6b 20 28 6c 6f 63 6b 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 | utex-lock.(lock).........(setf.( |
| 1bf780 | 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | mailbox.queue.mbox)............. |
| 1bf7a0 | 20 20 28 6e 63 6f 6e 63 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6c | ..(nconc.(mailbox.queue.mbox).(l |
| 1bf7c0 | 69 73 74 20 6d 65 73 73 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 6d 70 3a 65 78 65 6d 70 | ist.message))).........(mp:exemp |
| 1bf7e0 | 74 69 6f 6e 2d 62 72 6f 61 64 63 61 73 74 20 28 6d 61 69 6c 62 6f 78 2e 77 61 69 74 71 75 65 75 | tion-broadcast.(mailbox.waitqueu |
| 1bf800 | 65 20 6d 62 6f 78 29 29 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | e.mbox)))))....(defimplementatio |
| 1bf820 | 6e 20 72 65 63 65 69 76 65 2d 69 66 20 28 74 65 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d | n.receive-if.(test.&optional.tim |
| 1bf840 | 65 6f 75 74 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 | eout).....(let*.((mbox.(mailbox. |
| 1bf860 | 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c | (current-thread)))............(l |
| 1bf880 | 6f 63 6b 20 28 6d 61 69 6c 62 6f 78 2e 6c 6f 63 6b 20 6d 62 6f 78 29 29 29 0a 20 20 20 20 20 20 | ock.(mailbox.lock.mbox)))....... |
| 1bf8a0 | 28 61 73 73 65 72 74 20 28 6f 72 20 28 6e 6f 74 20 74 69 6d 65 6f 75 74 29 20 28 65 71 20 74 69 | (assert.(or.(not.timeout).(eq.ti |
| 1bf8c0 | 6d 65 6f 75 74 20 74 29 29 29 0a 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 28 63 | meout.t))).......(loop........(c |
| 1bf8e0 | 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 20 20 20 28 6d | heck-slime-interrupts)........(m |
| 1bf900 | 70 3a 77 69 74 68 2d 6d 75 74 65 78 2d 6c 6f 63 6b 20 28 6c 6f 63 6b 29 0a 20 20 20 20 20 20 20 | p:with-mutex-lock.(lock)........ |
| 1bf920 | 20 20 28 6c 65 74 2a 20 28 28 71 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 | ..(let*.((q.(mailbox.queue.mbox) |
| 1bf940 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 20 28 6d 65 6d 62 65 72 2d | ).................(tail.(member- |
| 1bf960 | 69 66 20 74 65 73 74 20 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 74 61 | if.test.q)))............(when.ta |
| 1bf980 | 69 6c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e | il...............(setf.(mailbox. |
| 1bf9a0 | 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6e 63 6f 6e 63 20 28 6c 64 69 66 66 20 71 20 74 61 69 6c | queue.mbox).(nconc.(ldiff.q.tail |
| 1bf9c0 | 29 20 28 63 64 72 20 74 61 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 | ).(cdr.tail)))..............(ret |
| 1bf9e0 | 75 72 6e 20 28 63 61 72 20 74 61 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | urn.(car.tail))))..........(when |
| 1bfa00 | 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 | .(eq.timeout.t).(return.(values. |
| 1bfa20 | 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 70 3a 65 78 65 6d 70 74 69 6f 6e 2d | nil.t)))..........(mp:exemption- |
| 1bfa40 | 77 61 69 74 20 28 6d 61 69 6c 62 6f 78 2e 77 61 69 74 71 75 65 75 65 20 6d 62 6f 78 29 20 6c 6f | wait.(mailbox.waitqueue.mbox).lo |
| 1bfa60 | 63 6b 20 3a 74 69 6d 65 6f 75 74 20 30 2e 32 29 29 29 29 29 29 0a 20 0a 0a 3b 3b 3b 3b 20 57 65 | ck.:timeout.0.2))))))....;;;;.We |
| 1bfa80 | 61 6b 20 68 61 73 68 74 61 62 6c 65 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | ak.hashtables..(defimplementatio |
| 1bfaa0 | 6e 20 6d 61 6b 65 2d 77 65 61 6b 2d 6b 65 79 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 26 72 65 73 | n.make-weak-key-hash-table.(&res |
| 1bfac0 | 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 | t.args)...(apply.#'make-hash-tab |
| 1bfae0 | 6c 65 20 3a 77 65 61 6b 20 3a 6b 65 79 20 61 72 67 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | le.:weak.:key.args))..(defimplem |
| 1bfb00 | 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 77 65 61 6b 2d 76 61 6c 75 65 2d 68 61 73 68 2d 74 61 | entation.make-weak-value-hash-ta |
| 1bfb20 | 62 6c 65 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 | ble.(&rest.args)...(apply.#'make |
| 1bfb40 | 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 77 65 61 6b 20 3a 76 61 6c 75 65 20 61 72 67 73 29 29 0a | -hash-table.:weak.:value.args)). |
| 1bfb60 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 61 76 65 2d 69 6d 61 67 65 20 28 | .(defimplementation.save-image.( |
| 1bfb80 | 66 69 6c 65 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 73 74 61 72 74 2d 66 75 6e 63 74 | filename.&optional.restart-funct |
| 1bfba0 | 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 60 28 2c 66 69 6c 65 6e 61 6d 65 20 0a | ion)...(let.((args.`(,filename.. |
| 1bfbc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 69 66 20 72 65 73 74 61 72 74 2d 66 75 | ................,@(if.restart-fu |
| 1bfbe0 | 6e 63 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 | nction........................`( |
| 1bfc00 | 28 3a 69 6e 69 74 2d 66 75 6e 63 74 69 6f 6e 20 2c 72 65 73 74 61 72 74 2d 66 75 6e 63 74 69 6f | (:init-function.,restart-functio |
| 1bfc20 | 6e 29 29 29 29 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 65 78 74 3a 73 61 76 65 69 6e 69 | n)))))).....(apply.#'ext:saveini |
| 1bfc40 | 74 6d 65 6d 20 61 72 67 73 29 29 29 0a 0a 28 70 75 73 68 6e 65 77 20 28 6c 61 6d 62 64 61 20 28 | tmem.args)))..(pushnew.(lambda.( |
| 1bfc60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 2a 6c 6f 67 2d 6f 75 74 70 75 74 2a 0a | )............(when.*log-output*. |
| 1bfc80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 2a 6c 6f 67 2d 6f 75 74 70 75 74 2a 20 | .............(setf.*log-output*. |
| 1bfca0 | 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 3a 3a 69 6e 69 74 2d 6c 6f | nil))............(swank::init-lo |
| 1bfcc0 | 67 2d 6f 75 74 70 75 74 29 29 0a 20 20 20 20 20 20 20 20 20 63 75 73 74 6f 6d 3a 2a 69 6e 69 74 | g-output))..........custom:*init |
| 1bfce0 | 2d 68 6f 6f 6b 73 2a 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | -hooks*)........................ |
| 1bfd00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfd20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfd40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfd60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfd80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfdc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfe00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 73 63 6c 2e 6c 69 73 70 00 00 00 00 00 00 00 | slime-2.31/swank/scl.lisp....... |
| 1bfe20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfe40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfe60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 1bfe80 | 30 32 30 33 37 33 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 30 31 37 00 20 30 00 00 00 | 0203736.00000000000.014017..0... |
| 1bfea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bfee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bff00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 1bff20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 1bff40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bff60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bff80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bffa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bffc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1bffe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1c0000 | 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 3b 20 6f | ;;;.-*-.indent-tabs-mode:.nil;.o |
| 1c0020 | 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 3a 20 22 3b 3b 3b 3b 2b 22 20 2d 2a 2d 0a 3b 3b 3b 0a 3b | utline-regexp:.";;;;+".-*-.;;;.; |
| 1c0040 | 3b 3b 20 53 63 69 65 6e 65 65 72 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 63 6f 64 65 20 66 6f 72 | ;;.Scieneer.Common.Lisp.code.for |
| 1c0060 | 20 53 4c 49 4d 45 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 | .SLIME..;;;.;;;.This.code.has.be |
| 1c0080 | 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 | en.placed.in.the.Public.Domain.. |
| 1c00a0 | 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 0a 3b 3b 3b 20 61 72 65 20 64 69 73 63 6c 61 69 6d | .All.warranties.;;;.are.disclaim |
| 1c00c0 | 65 64 2e 0a 3b 3b 3b 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 73 63 6c 0a 20 | ed..;;;..(defpackage.swank/scl.. |
| 1c00e0 | 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 20 73 77 61 6e 6b 2f 73 6f | .(:use.cl.swank/backend.swank/so |
| 1c0100 | 75 72 63 65 2d 70 61 74 68 2d 70 61 72 73 65 72 20 73 77 61 6e 6b 2f 73 6f 75 72 63 65 2d 66 69 | urce-path-parser.swank/source-fi |
| 1c0120 | 6c 65 2d 63 61 63 68 65 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 73 63 | le-cache))..(in-package.swank/sc |
| 1c0140 | 6c 29 0a 0a 0c 0a 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 6d 6f 70 0a 0a 28 69 6d 70 6f 72 74 2d 73 77 | l).....;;;.swank-mop..(import-sw |
| 1c0160 | 61 6e 6b 2d 6d 6f 70 2d 73 79 6d 62 6f 6c 73 20 3a 63 6c 6f 73 20 27 28 3a 73 6c 6f 74 2d 64 65 | ank-mop-symbols.:clos.'(:slot-de |
| 1c0180 | 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e | finition-documentation))..(defun |
| 1c01a0 | 20 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d | .swank-mop:slot-definition-docum |
| 1c01c0 | 65 6e 74 61 74 69 6f 6e 20 28 73 6c 6f 74 29 0a 20 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | entation.(slot)...(documentation |
| 1c01e0 | 20 73 6c 6f 74 20 74 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 43 50 20 73 65 72 76 65 72 0a 3b 3b 3b | .slot.t))....;;;;.TCP.server.;;; |
| 1c0200 | 0a 3b 3b 3b 20 53 43 4c 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 73 20 74 68 65 20 3a 73 70 61 77 | .;;;.SCL.only.supports.the.:spaw |
| 1c0220 | 6e 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 2e 0a 3b 3b 3b 0a 0a 28 64 65 66 | n.communication.style..;;;..(def |
| 1c0240 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 65 66 65 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 | implementation.preferred-communi |
| 1c0260 | 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 28 29 0a 20 20 3a 73 70 61 77 6e 29 0a 0a 28 64 65 66 69 | cation-style.()...:spawn)..(defi |
| 1c0280 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 28 68 6f 73 | mplementation.create-socket.(hos |
| 1c02a0 | 74 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 6c 65 74 20 28 28 61 64 | t.port.&key.backlog)...(let.((ad |
| 1c02c0 | 64 72 20 28 72 65 73 6f 6c 76 65 2d 68 6f 73 74 6e 61 6d 65 20 68 6f 73 74 29 29 29 0a 20 20 20 | dr.(resolve-hostname.host))).... |
| 1c02e0 | 20 28 65 78 74 3a 63 72 65 61 74 65 2d 69 6e 65 74 2d 6c 69 73 74 65 6e 65 72 20 70 6f 72 74 20 | .(ext:create-inet-listener.port. |
| 1c0300 | 3a 73 74 72 65 61 6d 20 3a 68 6f 73 74 20 61 64 64 72 20 3a 72 65 75 73 65 2d 61 64 64 72 65 73 | :stream.:host.addr.:reuse-addres |
| 1c0320 | 73 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.t............................. |
| 1c0340 | 20 20 3a 62 61 63 6b 6c 6f 67 20 28 6f 72 20 62 61 63 6b 6c 6f 67 20 35 29 29 29 29 0a 0a 28 64 | ..:backlog.(or.backlog.5))))..(d |
| 1c0360 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 63 61 6c 2d 70 6f 72 74 20 28 73 6f 63 | efimplementation.local-port.(soc |
| 1c0380 | 6b 65 74 29 0a 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 31 20 28 65 78 74 3a 3a 67 65 74 2d 73 6f | ket)...(nth-value.1.(ext::get-so |
| 1c03a0 | 63 6b 65 74 2d 68 6f 73 74 2d 61 6e 64 2d 70 6f 72 74 20 28 73 6f 63 6b 65 74 2d 66 64 20 73 6f | cket-host-and-port.(socket-fd.so |
| 1c03c0 | 63 6b 65 74 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6c 6f | cket))))..(defimplementation.clo |
| 1c03e0 | 73 65 2d 73 6f 63 6b 65 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 65 78 74 3a 63 6c 6f 73 65 2d | se-socket.(socket)...(ext:close- |
| 1c0400 | 73 6f 63 6b 65 74 20 28 73 6f 63 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 0a 0a 28 64 65 | socket.(socket-fd.socket)))..(de |
| 1c0420 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f | fimplementation.accept-connectio |
| 1c0440 | 6e 20 28 73 6f 63 6b 65 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.(socket....................... |
| 1c0460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 65 78 74 65 72 6e 61 6c 2d 66 | .................&key.external-f |
| 1c0480 | 6f 72 6d 61 74 20 62 75 66 66 65 72 69 6e 67 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 6c 65 74 20 | ormat.buffering.timeout)...(let. |
| 1c04a0 | 28 28 62 75 66 66 65 72 69 6e 67 20 28 6f 72 20 62 75 66 66 65 72 69 6e 67 20 3a 66 75 6c 6c 29 | ((buffering.(or.buffering.:full) |
| 1c04c0 | 29 0a 20 20 20 20 20 20 20 20 28 66 64 20 28 73 6f 63 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 | ).........(fd.(socket-fd.socket) |
| 1c04e0 | 29 29 0a 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 61 | )).......(loop........(let.((rea |
| 1c0500 | 64 79 20 28 73 79 73 3a 77 61 69 74 2d 75 6e 74 69 6c 2d 66 64 2d 75 73 61 62 6c 65 20 66 64 20 | dy.(sys:wait-until-fd-usable.fd. |
| 1c0520 | 3a 69 6e 70 75 74 20 74 69 6d 65 6f 75 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 | :input.timeout)))..........(unle |
| 1c0540 | 73 73 20 72 65 61 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 54 69 6d 65 | ss.ready............(error."Time |
| 1c0560 | 6f 75 74 20 61 63 63 65 70 74 69 6e 67 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6f 6e 20 73 6f 63 6b | out.accepting.connection.on.sock |
| 1c0580 | 65 74 3a 20 7e 53 7e 25 22 20 73 6f 63 6b 65 74 29 29 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 | et:.~S~%".socket)))........(let. |
| 1c05a0 | 28 28 6e 65 77 2d 66 64 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 65 78 74 3a 61 63 63 | ((new-fd.(ignore-errors.(ext:acc |
| 1c05c0 | 65 70 74 2d 74 63 70 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 64 29 29 29 29 0a 20 20 20 20 20 20 | ept-tcp-connection.fd))))....... |
| 1c05e0 | 20 20 20 28 77 68 65 6e 20 6e 65 77 2d 66 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 | ...(when.new-fd............(retu |
| 1c0600 | 72 6e 20 28 6d 61 6b 65 2d 73 6f 63 6b 65 74 2d 69 6f 2d 73 74 72 65 61 6d 20 6e 65 77 2d 66 64 | rn.(make-socket-io-stream.new-fd |
| 1c0620 | 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .external-format................ |
| 1c0640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 | ............................(eca |
| 1c0660 | 73 65 20 62 75 66 66 65 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | se.buffering.................... |
| 1c0680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 74 29 20 3a 66 | .........................((t).:f |
| 1c06a0 | 75 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ull)............................ |
| 1c06c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 69 6c 29 20 3a 6e 6f 6e 65 29 0a 20 | .................((nil).:none).. |
| 1c06e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1c0700 | 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 69 6e 65 20 3a 6c 69 6e 65 29 29 29 29 29 29 29 29 29 | ...........(:line.:line))))))))) |
| 1c0720 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 73 74 72 65 61 6d 2d | ..(defimplementation.set-stream- |
| 1c0740 | 74 69 6d 65 6f 75 74 20 28 73 74 72 65 61 6d 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 63 68 65 63 | timeout.(stream.timeout)...(chec |
| 1c0760 | 6b 2d 74 79 70 65 20 74 69 6d 65 6f 75 74 20 28 6f 72 20 6e 75 6c 6c 20 72 65 61 6c 29 29 0a 20 | k-type.timeout.(or.null.real)).. |
| 1c0780 | 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 65 78 74 3a 3a 73 74 72 65 61 6d 2d 74 69 6d 65 6f | .(if.(fboundp.'ext::stream-timeo |
| 1c07a0 | 75 74 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 65 78 74 3a 3a 73 74 72 65 61 6d 2d 74 69 6d | ut).......(setf.(ext::stream-tim |
| 1c07c0 | 65 6f 75 74 20 73 74 72 65 61 6d 29 20 74 69 6d 65 6f 75 74 29 0a 20 20 20 20 20 20 28 73 65 74 | eout.stream).timeout).......(set |
| 1c07e0 | 66 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 73 74 72 65 61 6d | f.(slot-value.(slot-value.stream |
| 1c0800 | 20 27 6c 69 73 70 3a 3a 73 74 72 65 61 6d 29 20 27 6c 69 73 70 3a 3a 74 69 6d 65 6f 75 74 29 0a | .'lisp::stream).'lisp::timeout). |
| 1c0820 | 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 6f 75 74 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 53 6f | ............timeout)))..;;;;;.So |
| 1c0840 | 63 6b 65 74 73 0a 0a 28 64 65 66 75 6e 20 73 6f 63 6b 65 74 2d 66 64 20 28 73 6f 63 6b 65 74 29 | ckets..(defun.socket-fd.(socket) |
| 1c0860 | 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 66 | ..."Return.the.file.descriptor.f |
| 1c0880 | 6f 72 20 74 68 65 20 73 6f 63 6b 65 74 20 72 65 70 72 65 73 65 6e 74 65 64 20 62 79 20 27 73 6f | or.the.socket.represented.by.'so |
| 1c08a0 | 63 6b 65 74 2e 22 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 73 6f 63 6b 65 74 0a 20 20 20 20 28 | cket."...(etypecase.socket.....( |
| 1c08c0 | 66 69 78 6e 75 6d 20 73 6f 63 6b 65 74 29 0a 20 20 20 20 28 73 74 72 65 61 6d 20 28 73 79 73 3a | fixnum.socket).....(stream.(sys: |
| 1c08e0 | 66 64 2d 73 74 72 65 61 6d 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | fd-stream-fd.socket))))..(defun. |
| 1c0900 | 72 65 73 6f 6c 76 65 2d 68 6f 73 74 6e 61 6d 65 20 28 68 6f 73 74 6e 61 6d 65 29 0a 20 20 22 52 | resolve-hostname.(hostname)..."R |
| 1c0920 | 65 74 75 72 6e 20 74 68 65 20 49 50 20 61 64 64 72 65 73 73 20 6f 66 20 27 68 6f 73 74 6e 61 6d | eturn.the.IP.address.of.'hostnam |
| 1c0940 | 65 20 61 73 20 61 6e 20 69 6e 74 65 67 65 72 20 28 69 6e 20 68 6f 73 74 20 62 79 74 65 2d 6f 72 | e.as.an.integer.(in.host.byte-or |
| 1c0960 | 64 65 72 29 2e 22 0a 20 20 28 6c 65 74 20 28 28 68 6f 73 74 65 6e 74 20 28 65 78 74 3a 6c 6f 6f | der)."...(let.((hostent.(ext:loo |
| 1c0980 | 6b 75 70 2d 68 6f 73 74 2d 65 6e 74 72 79 20 68 6f 73 74 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 | kup-host-entry.hostname))).....( |
| 1c09a0 | 63 61 72 20 28 65 78 74 3a 68 6f 73 74 2d 65 6e 74 72 79 2d 61 64 64 72 2d 6c 69 73 74 20 68 6f | car.(ext:host-entry-addr-list.ho |
| 1c09c0 | 73 74 65 6e 74 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 | stent))))..(defvar.*external-for |
| 1c09e0 | 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 0a 20 20 27 28 28 3a 69 73 6f 2d | mat-to-coding-system*...'((:iso- |
| 1c0a00 | 38 38 35 39 2d 31 20 0a 20 20 20 20 20 22 6c 61 74 69 6e 2d 31 22 20 22 6c 61 74 69 6e 2d 31 2d | 8859-1......."latin-1"."latin-1- |
| 1c0a20 | 75 6e 69 78 22 20 22 69 73 6f 2d 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 0a 20 20 20 20 20 22 | unix"."iso-latin-1-unix"......." |
| 1c0a40 | 69 73 6f 2d 38 38 35 39 2d 31 22 20 22 69 73 6f 2d 38 38 35 39 2d 31 2d 75 6e 69 78 22 29 0a 20 | iso-8859-1"."iso-8859-1-unix").. |
| 1c0a60 | 20 20 20 28 3a 75 74 66 2d 38 20 22 75 74 66 2d 38 22 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 | ...(:utf-8."utf-8"."utf-8-unix") |
| 1c0a80 | 0a 20 20 20 20 28 3a 65 75 63 2d 6a 70 20 22 65 75 63 2d 6a 70 22 20 22 65 75 63 2d 6a 70 2d 75 | .....(:euc-jp."euc-jp"."euc-jp-u |
| 1c0aa0 | 6e 69 78 22 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 | nix")))..(defimplementation.find |
| 1c0ac0 | 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 | -external-format.(coding-system) |
| 1c0ae0 | 0a 20 20 28 63 61 72 20 28 72 61 73 73 6f 63 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 | ...(car.(rassoc-if.(lambda.(x).( |
| 1c0b00 | 6d 65 6d 62 65 72 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 78 20 3a 74 65 73 74 20 23 27 65 | member.coding-system.x.:test.#'e |
| 1c0b20 | 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 78 74 65 72 6e | qual))...................*extern |
| 1c0b40 | 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 29 29 29 0a 0a | al-format-to-coding-system*))).. |
| 1c0b60 | 28 64 65 66 75 6e 20 6d 61 6b 65 2d 73 6f 63 6b 65 74 2d 69 6f 2d 73 74 72 65 61 6d 20 28 66 64 | (defun.make-socket-io-stream.(fd |
| 1c0b80 | 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 62 75 66 66 65 72 69 6e 67 29 0a 20 20 22 43 | .external-format.buffering)..."C |
| 1c0ba0 | 72 65 61 74 65 20 61 20 6e 65 77 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 20 66 64 2d 73 74 72 65 | reate.a.new.input/output.fd-stre |
| 1c0bc0 | 61 6d 20 66 6f 72 20 27 66 64 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 65 78 74 65 72 | am.for.'fd."...(cond.((not.exter |
| 1c0be0 | 6e 61 6c 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 6d 61 6b 65 2d 66 | nal-format)..........(sys:make-f |
| 1c0c00 | 64 2d 73 74 72 65 61 6d 20 66 64 20 3a 69 6e 70 75 74 20 74 20 3a 6f 75 74 70 75 74 20 74 20 3a | d-stream.fd.:input.t.:output.t.: |
| 1c0c20 | 62 75 66 66 65 72 69 6e 67 20 62 75 66 66 65 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 | buffering.buffering............. |
| 1c0c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 27 | .................:element-type.' |
| 1c0c60 | 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 38 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 | (unsigned-byte.8))).........(t.. |
| 1c0c80 | 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 72 65 61 6d 20 28 73 79 73 3a 6d 61 6b 65 | ........(let*.((stream.(sys:make |
| 1c0ca0 | 2d 66 64 2d 73 74 72 65 61 6d 20 66 64 20 3a 69 6e 70 75 74 20 74 20 3a 6f 75 74 70 75 74 20 74 | -fd-stream.fd.:input.t.:output.t |
| 1c0cc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1c0ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 27 62 61 73 65 | .............:element-type.'base |
| 1c0d00 | 2d 63 68 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -char........................... |
| 1c0d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 75 66 66 65 72 69 6e 67 20 62 75 66 | ..................:buffering.buf |
| 1c0d40 | 66 65 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fering.......................... |
| 1c0d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 | ...................:external-for |
| 1c0d80 | 6d 61 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 | mat.external-format))).......... |
| 1c0da0 | 20 20 3b 3b 20 49 67 6e 6f 72 65 20 63 68 61 72 61 63 74 65 72 20 63 6f 6e 76 65 72 73 69 6f 6e | ..;;.Ignore.character.conversion |
| 1c0dc0 | 20 65 72 72 6f 72 73 2e 20 20 57 69 74 68 6f 75 74 20 74 68 69 73 20 74 68 65 0a 20 20 20 20 20 | .errors...Without.this.the...... |
| 1c0de0 | 20 20 20 20 20 20 3b 3b 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 63 68 61 6e 6e 65 6c 20 69 | ......;;.communication.channel.i |
| 1c0e00 | 73 20 70 72 6f 6e 65 20 74 6f 20 6c 6f 63 6b 75 70 20 69 66 20 61 20 63 68 61 72 61 63 74 65 72 | s.prone.to.lockup.if.a.character |
| 1c0e20 | 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6e 76 65 72 73 69 6f 6e 20 65 72 72 6f 72 20 | ............;;.conversion.error. |
| 1c0e40 | 6f 63 63 75 72 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6c 69 73 70 3a 3a | occurs.............(setf.(lisp:: |
| 1c0e60 | 63 68 61 72 61 63 74 65 72 2d 63 6f 6e 76 65 72 73 69 6f 6e 2d 73 74 72 65 61 6d 2d 69 6e 70 75 | character-conversion-stream-inpu |
| 1c0e80 | 74 2d 65 72 72 6f 72 2d 76 61 6c 75 65 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 | t-error-value.stream)........... |
| 1c0ea0 | 20 20 20 20 20 20 20 23 5c 3f 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6c 69 | .......#\?)............(setf.(li |
| 1c0ec0 | 73 70 3a 3a 63 68 61 72 61 63 74 65 72 2d 63 6f 6e 76 65 72 73 69 6f 6e 2d 73 74 72 65 61 6d 2d | sp::character-conversion-stream- |
| 1c0ee0 | 6f 75 74 70 75 74 2d 65 72 72 6f 72 2d 76 61 6c 75 65 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 | output-error-value.stream)...... |
| 1c0f00 | 20 20 20 20 20 20 20 20 20 20 20 20 23 5c 3f 29 0a 20 20 20 20 20 20 20 20 20 20 20 73 74 72 65 | ............#\?)............stre |
| 1c0f20 | 61 6d 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 53 74 72 65 61 6d 20 68 61 6e 64 6c 69 6e 67 0a 0a | am))))....;;;;.Stream.handling.. |
| 1c0f40 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 72 61 79 2d 70 61 63 6b 61 67 65 2d | (defimplementation.gray-package- |
| 1c0f60 | 6e 61 6d 65 20 28 29 0a 20 20 27 23 3a 65 78 74 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 6f 6d 70 69 6c | name.()...'#:ext)....;;;;.Compil |
| 1c0f80 | 61 74 69 6f 6e 20 43 6f 6d 6d 61 6e 64 73 0a 0a 28 64 65 66 76 61 72 20 2a 70 72 65 76 69 6f 75 | ation.Commands..(defvar.*previou |
| 1c0fa0 | 73 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a 20 6e 69 6c 0a 20 20 22 55 73 65 | s-compiler-condition*.nil..."Use |
| 1c0fc0 | 64 20 74 6f 20 64 65 74 65 63 74 20 64 75 70 6c 69 63 61 74 65 73 2e 22 29 0a 0a 28 64 65 66 76 | d.to.detect.duplicates.")..(defv |
| 1c0fe0 | 61 72 20 2a 70 72 65 76 69 6f 75 73 2d 63 6f 6e 74 65 78 74 2a 20 6e 69 6c 0a 20 20 22 50 72 65 | ar.*previous-context*.nil..."Pre |
| 1c1000 | 76 69 6f 75 73 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 20 63 6f 6e 74 65 78 74 2e 22 29 0a | vious.compiler.error.context."). |
| 1c1020 | 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 6e 69 6c 0a 20 20 22 54 68 | .(defvar.*buffer-name*.nil..."Th |
| 1c1040 | 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 45 6d 61 63 73 20 62 75 66 66 65 72 20 77 65 20 61 72 | e.name.of.the.Emacs.buffer.we.ar |
| 1c1060 | 65 20 63 6f 6d 70 69 6c 69 6e 67 20 66 72 6f 6d 2e 0a 20 20 4e 69 6c 20 69 66 20 77 65 20 61 72 | e.compiling.from....Nil.if.we.ar |
| 1c1080 | 65 6e 27 74 20 63 6f 6d 70 69 6c 69 6e 67 20 66 72 6f 6d 20 61 20 62 75 66 66 65 72 2e 22 29 0a | en't.compiling.from.a.buffer."). |
| 1c10a0 | 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a | .(defvar.*buffer-start-position* |
| 1c10c0 | 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2a | .nil).(defvar.*buffer-substring* |
| 1c10e0 | 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 | .nil)..(defimplementation.call-w |
| 1c1100 | 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 66 75 6e 63 74 69 6f 6e 29 | ith-compilation-hooks.(function) |
| 1c1120 | 0a 20 20 28 6c 65 74 20 28 28 2a 70 72 65 76 69 6f 75 73 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e | ...(let.((*previous-compiler-con |
| 1c1140 | 64 69 74 69 6f 6e 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 2a 70 72 65 76 69 6f 75 73 2d | dition*.nil).........(*previous- |
| 1c1160 | 63 6f 6e 74 65 78 74 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 2a 70 72 69 6e 74 2d 72 65 | context*.nil).........(*print-re |
| 1c1180 | 61 64 61 62 6c 79 2a 20 6e 69 6c 29 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 | adably*.nil)).....(handler-bind. |
| 1c11a0 | 28 28 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 20 23 27 68 61 6e 64 6c 65 2d 6e 6f 74 | ((c::compiler-error.#'handle-not |
| 1c11c0 | 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ification-condition)............ |
| 1c11e0 | 20 20 20 20 20 20 20 20 28 63 3a 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 20 20 23 27 68 61 6e | ........(c::style-warning..#'han |
| 1c1200 | 64 6c 65 2d 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 | dle-notification-condition)..... |
| 1c1220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 3a 3a 77 61 72 6e 69 6e 67 20 20 20 20 20 20 | ...............(c::warning...... |
| 1c1240 | 20 20 23 27 68 61 6e 64 6c 65 2d 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f | ..#'handle-notification-conditio |
| 1c1260 | 6e 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a | n)).......(funcall.function)))). |
| 1c1280 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c | .(defimplementation.swank-compil |
| 1c12a0 | 65 2d 66 69 6c 65 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 20 0a | e-file.(input-file.output-file.. |
| 1c12c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1c12e0 | 20 20 20 20 20 20 20 6c 6f 61 64 2d 70 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 | .......load-p.external-format... |
| 1c1300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1c1320 | 20 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 | .....&key.policy)...(declare.(ig |
| 1c1340 | 6e 6f 72 65 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f | nore.policy))...(with-compilatio |
| 1c1360 | 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d 6e 61 | n-hooks.().....(let.((*buffer-na |
| 1c1380 | 6d 65 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 2a 69 67 6e 6f 72 65 2d | me*.nil)...........(ext:*ignore- |
| 1c13a0 | 65 78 74 72 61 2d 63 6c 6f 73 65 2d 70 61 72 65 6e 74 68 65 73 65 73 2a 20 6e 69 6c 29 29 0a 20 | extra-close-parentheses*.nil)).. |
| 1c13c0 | 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6f 75 74 70 75 | .....(multiple-value-bind.(outpu |
| 1c13e0 | 74 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 2d 70 20 66 61 69 6c 75 72 65 2d 70 29 0a 20 20 20 | t-file.warnings-p.failure-p).... |
| 1c1400 | 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 69 6e 70 75 74 2d 66 69 6c 65 20 | .......(compile-file.input-file. |
| 1c1420 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 75 74 70 75 74 | .........................:output |
| 1c1440 | 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -file.output-file............... |
| 1c1460 | 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 65 78 74 65 72 | ..........:external-format.exter |
| 1c1480 | 6e 61 6c 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 6f 75 74 70 | nal-format).........(values.outp |
| 1c14a0 | 75 74 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ut-file.warnings-p.............. |
| 1c14c0 | 20 20 20 28 6f 72 20 66 61 69 6c 75 72 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(or.failure-p................ |
| 1c14e0 | 20 20 20 20 20 28 77 68 65 6e 20 6c 6f 61 64 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(when.load-p............... |
| 1c1500 | 20 20 20 20 20 20 20 20 3b 3b 20 43 61 63 68 65 20 74 68 65 20 6c 61 74 65 73 74 20 73 6f 75 72 | ........;;.Cache.the.latest.sour |
| 1c1520 | 63 65 20 66 69 6c 65 20 66 6f 72 20 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 2e 0a | ce.file.for.definition-finding.. |
| 1c1540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 63 61 | ......................(source-ca |
| 1c1560 | 63 68 65 2d 67 65 74 20 69 6e 70 75 74 2d 66 69 6c 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 | che-get.input-file.............. |
| 1c1580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c | ............................(fil |
| 1c15a0 | 65 2d 77 72 69 74 65 2d 64 61 74 65 20 69 6e 70 75 74 2d 66 69 6c 65 29 29 0a 20 20 20 20 20 20 | e-write-date.input-file))....... |
| 1c15c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6c 6f 61 64 20 6f 75 74 70 75 | ................(not.(load.outpu |
| 1c15e0 | 74 2d 66 69 6c 65 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | t-file)))))))))..(defimplementat |
| 1c1600 | 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 | ion.swank-compile-string.(string |
| 1c1620 | 20 26 6b 65 79 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 0a 20 | .&key.buffer.position.filename.. |
| 1c1640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1c1660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 | ...............line.column.polic |
| 1c1680 | 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 69 6c 65 6e 61 6d 65 20 6c | y)...(declare.(ignore.filename.l |
| 1c16a0 | 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 77 69 74 68 2d 63 6f 6d 70 | ine.column.policy))...(with-comp |
| 1c16c0 | 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 | ilation-hooks.().....(let.((*buf |
| 1c16e0 | 66 65 72 2d 6e 61 6d 65 2a 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 2a 62 75 | fer-name*.buffer)...........(*bu |
| 1c1700 | 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 20 70 6f 73 69 74 69 6f 6e 29 0a 20 | ffer-start-position*.position).. |
| 1c1720 | 20 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2a 20 73 74 72 | .........(*buffer-substring*.str |
| 1c1740 | 69 6e 67 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 | ing)).......(with-input-from-str |
| 1c1760 | 69 6e 67 20 28 73 74 72 65 61 6d 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 28 65 78 74 | ing.(stream.string).........(ext |
| 1c1780 | 3a 63 6f 6d 70 69 6c 65 2d 66 72 6f 6d 2d 73 74 72 65 61 6d 20 0a 20 20 20 20 20 20 20 20 20 73 | :compile-from-stream...........s |
| 1c17a0 | 74 72 65 61 6d 20 0a 20 20 20 20 20 20 20 20 20 3a 73 6f 75 72 63 65 2d 69 6e 66 6f 20 60 28 3a | tream...........:source-info.`(: |
| 1c17c0 | 65 6d 61 63 73 2d 62 75 66 66 65 72 20 2c 62 75 66 66 65 72 20 0a 20 20 20 20 20 20 20 20 20 20 | emacs-buffer.,buffer............ |
| 1c17e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 6f 66 66 73 | ..............:emacs-buffer-offs |
| 1c1800 | 65 74 20 2c 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | et.,position.................... |
| 1c1820 | 20 20 20 20 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 73 74 72 69 6e 67 20 2c 73 74 72 69 6e | .....:emacs-buffer-string.,strin |
| 1c1840 | 67 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 54 72 61 70 70 69 6e 67 20 6e 6f 74 65 73 0a | g))))))....;;;;;.Trapping.notes. |
| 1c1860 | 3b 3b 3b 0a 3b 3b 3b 20 57 65 20 69 6e 74 65 72 63 65 70 74 20 63 6f 6e 64 69 74 69 6f 6e 73 20 | ;;;.;;;.We.intercept.conditions. |
| 1c1880 | 66 72 6f 6d 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 61 6e 64 20 72 65 73 69 67 6e 61 6c 20 74 | from.the.compiler.and.resignal.t |
| 1c18a0 | 68 65 6d 20 61 73 0a 3b 3b 3b 20 60 73 77 61 6e 6b 3a 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 | hem.as.;;;.`swank:compiler-condi |
| 1c18c0 | 74 69 6f 6e 27 73 2e 0a 0a 28 64 65 66 75 6e 20 68 61 6e 64 6c 65 2d 6e 6f 74 69 66 69 63 61 74 | tion's...(defun.handle-notificat |
| 1c18e0 | 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 48 61 6e | ion-condition.(condition)..."Han |
| 1c1900 | 64 6c 65 20 61 20 63 6f 6e 64 69 74 69 6f 6e 20 63 61 75 73 65 64 20 62 79 20 61 20 63 6f 6d 70 | dle.a.condition.caused.by.a.comp |
| 1c1920 | 69 6c 65 72 20 77 61 72 6e 69 6e 67 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 63 6f 6e | iler.warning."...(unless.(eq.con |
| 1c1940 | 64 69 74 69 6f 6e 20 2a 70 72 65 76 69 6f 75 73 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 | dition.*previous-compiler-condit |
| 1c1960 | 69 6f 6e 2a 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 78 74 20 28 63 3a 3a 66 69 6e | ion*).....(let.((context.(c::fin |
| 1c1980 | 64 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 28 73 65 | d-error-context.nil))).......(se |
| 1c19a0 | 74 71 20 2a 70 72 65 76 69 6f 75 73 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a | tq.*previous-compiler-condition* |
| 1c19c0 | 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 2a 70 72 65 76 69 6f 75 | .condition).......(setq.*previou |
| 1c19e0 | 73 2d 63 6f 6e 74 65 78 74 2a 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 28 73 69 67 6e 61 | s-context*.context).......(signa |
| 1c1a00 | 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 20 63 | l-compiler-condition.condition.c |
| 1c1a20 | 6f 6e 74 65 78 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c | ontext))))..(defun.signal-compil |
| 1c1a40 | 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 74 65 78 74 29 | er-condition.(condition.context) |
| 1c1a60 | 0a 20 20 28 73 69 67 6e 61 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 | ...(signal.'compiler-condition.. |
| 1c1a80 | 20 20 20 20 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e | .........:original-condition.con |
| 1c1aa0 | 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3a 73 65 76 65 72 69 74 79 20 28 73 65 76 65 | dition...........:severity.(seve |
| 1c1ac0 | 72 69 74 79 2d 66 6f 72 2d 65 6d 61 63 73 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 | rity-for-emacs.condition)....... |
| 1c1ae0 | 20 20 20 20 3a 6d 65 73 73 61 67 65 20 28 62 72 69 65 66 2d 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 | ....:message.(brief-compiler-mes |
| 1c1b00 | 73 61 67 65 2d 66 6f 72 2d 65 6d 61 63 73 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 | sage-for-emacs.condition)....... |
| 1c1b20 | 20 20 20 20 3a 73 6f 75 72 63 65 2d 63 6f 6e 74 65 78 74 20 28 63 6f 6d 70 69 6c 65 72 2d 65 72 | ....:source-context.(compiler-er |
| 1c1b40 | 72 6f 72 2d 63 6f 6e 74 65 78 74 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 3a | ror-context.context)...........: |
| 1c1b60 | 6c 6f 63 61 74 69 6f 6e 20 28 69 66 20 28 72 65 61 64 2d 65 72 72 6f 72 2d 70 20 63 6f 6e 64 69 | location.(if.(read-error-p.condi |
| 1c1b80 | 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 | tion).........................(r |
| 1c1ba0 | 65 61 64 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 | ead-error-location.condition)... |
| 1c1bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d | ......................(compiler- |
| 1c1be0 | 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 6e 74 65 78 74 29 29 29 29 0a 0a 28 64 65 66 75 | note-location.context))))..(defu |
| 1c1c00 | 6e 20 73 65 76 65 72 69 74 79 2d 66 6f 72 2d 65 6d 61 63 73 20 28 63 6f 6e 64 69 74 69 6f 6e 29 | n.severity-for-emacs.(condition) |
| 1c1c20 | 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 65 76 65 72 69 74 79 20 6f 66 20 27 63 6f 6e 64 | ..."Return.the.severity.of.'cond |
| 1c1c40 | 69 74 69 6f 6e 2e 22 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 | ition."...(etypecase.condition.. |
| 1c1c60 | 20 20 20 28 28 73 61 74 69 73 66 69 65 73 20 72 65 61 64 2d 65 72 72 6f 72 2d 70 29 20 3a 72 65 | ...((satisfies.read-error-p).:re |
| 1c1c80 | 61 64 2d 65 72 72 6f 72 29 0a 20 20 20 20 28 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 | ad-error).....(c::compiler-error |
| 1c1ca0 | 20 3a 65 72 72 6f 72 29 0a 20 20 20 20 28 63 3a 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 20 3a | .:error).....(c::style-warning.: |
| 1c1cc0 | 6e 6f 74 65 29 0a 20 20 20 20 28 63 3a 3a 77 61 72 6e 69 6e 67 20 3a 77 61 72 6e 69 6e 67 29 29 | note).....(c::warning.:warning)) |
| 1c1ce0 | 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 65 72 72 6f 72 2d 70 20 28 63 6f 6e 64 69 74 69 6f | )..(defun.read-error-p.(conditio |
| 1c1d00 | 6e 29 0a 20 20 28 65 71 20 28 74 79 70 65 2d 6f 66 20 63 6f 6e 64 69 74 69 6f 6e 29 20 27 63 3a | n)...(eq.(type-of.condition).'c: |
| 1c1d20 | 3a 63 6f 6d 70 69 6c 65 72 2d 72 65 61 64 2d 65 72 72 6f 72 29 29 0a 0a 28 64 65 66 75 6e 20 62 | :compiler-read-error))..(defun.b |
| 1c1d40 | 72 69 65 66 2d 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 61 67 65 2d 66 6f 72 2d 65 6d 61 63 73 20 | rief-compiler-message-for-emacs. |
| 1c1d60 | 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 42 72 69 65 66 6c 79 20 64 65 73 63 72 69 62 65 20 | (condition)..."Briefly.describe. |
| 1c1d80 | 61 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 20 66 6f 72 20 45 6d 61 63 73 2e 0a 20 20 57 68 | a.compiler.error.for.Emacs....Wh |
| 1c1da0 | 65 6e 20 45 6d 61 63 73 20 70 72 65 73 65 6e 74 73 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 74 | en.Emacs.presents.the.message.it |
| 1c1dc0 | 20 61 6c 72 65 61 64 79 20 68 61 73 20 74 68 65 20 73 6f 75 72 63 65 20 70 6f 70 70 65 64 20 75 | .already.has.the.source.popped.u |
| 1c1de0 | 70 0a 20 20 61 6e 64 20 74 68 65 20 73 6f 75 72 63 65 20 66 6f 72 6d 20 68 69 67 68 6c 69 67 68 | p...and.the.source.form.highligh |
| 1c1e00 | 74 65 64 2e 20 54 68 69 73 20 6d 61 6b 65 73 20 6d 75 63 68 20 6f 66 20 74 68 65 20 69 6e 66 6f | ted..This.makes.much.of.the.info |
| 1c1e20 | 72 6d 61 74 69 6f 6e 20 69 6e 0a 20 20 74 68 65 20 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 20 72 | rmation.in...the.error-context.r |
| 1c1e40 | 65 64 75 6e 64 61 6e 74 2e 22 0a 20 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 6f | edundant."...(princ-to-string.co |
| 1c1e60 | 6e 64 69 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 | ndition))..(defun.compiler-error |
| 1c1e80 | 2d 63 6f 6e 74 65 78 74 20 28 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 29 0a 20 20 22 44 65 73 63 | -context.(error-context)..."Desc |
| 1c1ea0 | 72 69 62 65 20 61 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 20 66 6f 72 20 45 6d 61 63 73 20 | ribe.a.compiler.error.for.Emacs. |
| 1c1ec0 | 69 6e 63 6c 75 64 69 6e 67 20 63 6f 6e 74 65 78 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a | including.context.information.". |
| 1c1ee0 | 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 28 6f 72 20 63 3a 3a 63 6f 6d 70 69 6c 65 72 | ..(declare.(type.(or.c::compiler |
| 1c1f00 | 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 20 6e 75 6c 6c 29 20 65 72 72 6f 72 2d 63 6f 6e 74 65 | -error-context.null).error-conte |
| 1c1f20 | 78 74 29 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 65 6e 63 | xt))...(multiple-value-bind.(enc |
| 1c1f40 | 6c 6f 73 69 6e 67 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 28 69 66 20 65 72 72 6f 72 2d 63 | losing.source).......(if.error-c |
| 1c1f60 | 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 63 3a 3a 63 6f 6d | ontext...........(values.(c::com |
| 1c1f80 | 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 2d 65 6e 63 6c 6f 73 69 6e 67 2d 73 6f | piler-error-context-enclosing-so |
| 1c1fa0 | 75 72 63 65 20 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | urce.error-context)............. |
| 1c1fc0 | 20 20 20 20 20 20 28 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 | ......(c::compiler-error-context |
| 1c1fe0 | 2d 73 6f 75 72 63 65 20 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 29 29 29 0a 20 20 20 20 28 69 66 | -source.error-context))).....(if |
| 1c2000 | 20 28 61 6e 64 20 65 6e 63 6c 6f 73 69 6e 67 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 | .(and.enclosing.source)......... |
| 1c2020 | 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 40 5b 2d 2d 3e 20 7e 7b 7e 3c 7e 25 2d 2d 3e 20 7e 31 | (format.nil."~@[-->.~{~<~%-->.~1 |
| 1c2040 | 3a 3b 7e 41 7e 3e 20 7e 7d 7e 25 7e 5d 7e 40 5b 7e 7b 3d 3d 3e 7e 25 7e 41 7e 5e 7e 25 7e 7d 7e | :;~A~>.~}~%~]~@[~{==>~%~A~^~%~}~ |
| 1c2060 | 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 63 6c 6f 73 69 6e 67 20 73 6f 75 | ]".................enclosing.sou |
| 1c2080 | 72 63 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 | rce))))..(defun.read-error-locat |
| 1c20a0 | 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 69 6e 66 6f 20 | ion.(condition)...(let*.((finfo. |
| 1c20c0 | 28 63 61 72 20 28 63 3a 3a 73 6f 75 72 63 65 2d 69 6e 66 6f 2d 63 75 72 72 65 6e 74 2d 66 69 6c | (car.(c::source-info-current-fil |
| 1c20e0 | 65 20 63 3a 3a 2a 73 6f 75 72 63 65 2d 69 6e 66 6f 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 | e.c::*source-info*)))..........( |
| 1c2100 | 66 69 6c 65 20 28 63 3a 3a 66 69 6c 65 2d 69 6e 66 6f 2d 6e 61 6d 65 20 66 69 6e 66 6f 29 29 0a | file.(c::file-info-name.finfo)). |
| 1c2120 | 20 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d 72 65 61 64 2d | .........(pos.(c::compiler-read- |
| 1c2140 | 65 72 72 6f 72 2d 70 6f 73 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 | error-position.condition)))..... |
| 1c2160 | 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 65 71 20 66 69 6c 65 20 3a 73 74 72 65 61 6d 29 20 2a 62 | (cond.((and.(eq.file.:stream).*b |
| 1c2180 | 75 66 66 65 72 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f | uffer-name*)............(make-lo |
| 1c21a0 | 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d | cation.(list.:buffer.*buffer-nam |
| 1c21c0 | 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | e*)...........................(l |
| 1c21e0 | 69 73 74 20 3a 6f 66 66 73 65 74 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 | ist.:offset.*buffer-start-positi |
| 1c2200 | 6f 6e 2a 20 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 70 61 74 68 | on*.pos)))...........((and.(path |
| 1c2220 | 6e 61 6d 65 70 20 66 69 6c 65 29 20 28 6e 6f 74 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 29 29 | namep.file).(not.*buffer-name*)) |
| 1c2240 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 | ............(make-location.(list |
| 1c2260 | 20 3a 66 69 6c 65 20 28 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 66 69 6c 65 29 29 0a 20 20 20 | .:file.(unix-truename.file)).... |
| 1c2280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f | .......................(list.:po |
| 1c22a0 | 73 69 74 69 6f 6e 20 28 31 2b 20 70 6f 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 | sition.(1+.pos))))...........(t. |
| 1c22c0 | 28 62 72 65 61 6b 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 | (break)))))..(defun.compiler-not |
| 1c22e0 | 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6e 74 65 78 74 29 0a 20 20 22 44 65 72 69 76 65 20 74 | e-location.(context)..."Derive.t |
| 1c2300 | 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 61 20 63 6f 6d 70 6c 69 65 72 20 6d 65 73 73 61 67 | he.location.of.a.complier.messag |
| 1c2320 | 65 20 66 72 6f 6d 20 69 74 73 20 63 6f 6e 74 65 78 74 2e 0a 20 20 52 65 74 75 72 6e 20 61 20 60 | e.from.its.context....Return.a.` |
| 1c2340 | 6c 6f 63 61 74 69 6f 6e 27 20 72 65 63 6f 72 64 2c 20 6f 72 20 28 3a 65 72 72 6f 72 20 3c 72 65 | location'.record,.or.(:error.<re |
| 1c2360 | 61 73 6f 6e 3e 29 20 6f 6e 20 66 61 69 6c 75 72 65 2e 22 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 | ason>).on.failure."...(if.(null. |
| 1c2380 | 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 28 6e 6f 74 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 | context).......(note-error-locat |
| 1c23a0 | 69 6f 6e 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 63 3a 3a 63 6f 6d 70 69 | ion).......(let.((file.(c::compi |
| 1c23c0 | 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 6f 6e 74 | ler-error-context-file-name.cont |
| 1c23e0 | 65 78 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 20 28 63 3a 3a 63 6f | ext)).............(source.(c::co |
| 1c2400 | 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 2d 6f 72 69 67 69 6e 61 6c 2d 73 6f | mpiler-error-context-original-so |
| 1c2420 | 75 72 63 65 20 63 6f 6e 74 65 78 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 | urce.context)).............(path |
| 1c2440 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 76 65 72 73 65 20 0a 20 20 20 20 20 20 20 20 | ..............(reverse.......... |
| 1c2460 | 20 20 20 20 20 20 28 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 | ......(c::compiler-error-context |
| 1c2480 | 2d 6f 72 69 67 69 6e 61 6c 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 63 6f 6e 74 65 78 74 29 29 29 | -original-source-path.context))) |
| 1c24a0 | 29 0a 20 20 20 20 20 20 20 20 28 6f 72 20 28 6c 6f 63 61 74 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e | ).........(or.(locate-compiler-n |
| 1c24c0 | 6f 74 65 20 66 69 6c 65 20 73 6f 75 72 63 65 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 | ote.file.source.path)........... |
| 1c24e0 | 20 20 28 6e 6f 74 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 | ..(note-error-location)))))..(de |
| 1c2500 | 66 75 6e 20 6e 6f 74 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 28 29 0a 20 20 22 50 73 | fun.note-error-location.()..."Ps |
| 1c2520 | 65 75 64 6f 2d 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 6e 6f 74 65 73 20 74 68 61 74 20 63 61 6e | eudo-location.for.notes.that.can |
| 1c2540 | 27 74 20 62 65 20 6c 6f 63 61 74 65 64 2e 22 0a 20 20 28 6c 69 73 74 20 3a 65 72 72 6f 72 20 22 | 't.be.located."...(list.:error." |
| 1c2560 | 4e 6f 20 65 72 72 6f 72 20 6c 6f 63 61 74 69 6f 6e 20 61 76 61 69 6c 61 62 6c 65 2e 22 29 29 0a | No.error.location.available.")). |
| 1c2580 | 0a 28 64 65 66 75 6e 20 6c 6f 63 61 74 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 20 28 66 69 | .(defun.locate-compiler-note.(fi |
| 1c25a0 | 6c 65 20 73 6f 75 72 63 65 20 73 6f 75 72 63 65 2d 70 61 74 68 29 0a 20 20 28 63 6f 6e 64 20 28 | le.source.source-path)...(cond.( |
| 1c25c0 | 28 61 6e 64 20 28 65 71 20 66 69 6c 65 20 3a 73 74 72 65 61 6d 29 20 2a 62 75 66 66 65 72 2d 6e | (and.(eq.file.:stream).*buffer-n |
| 1c25e0 | 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6f 6d 70 69 6c 69 6e 67 20 66 72 6f 6d | ame*)..........;;.Compiling.from |
| 1c2600 | 20 61 20 62 75 66 66 65 72 0a 09 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 | .a.buffer...(make-location.(list |
| 1c2620 | 20 3a 62 75 66 66 65 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 29 0a 09 09 09 28 6c 69 73 74 | .:buffer.*buffer-name*)....(list |
| 1c2640 | 20 3a 6f 66 66 73 65 74 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a | .:offset.*buffer-start-position* |
| 1c2660 | 0a 09 09 09 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 68 2d 73 74 72 69 6e 67 2d 70 6f | ..........(source-path-string-po |
| 1c2680 | 73 69 74 69 6f 6e 0a 09 09 09 20 20 20 20 20 20 20 73 6f 75 72 63 65 2d 70 61 74 68 20 2a 62 75 | sition...........source-path.*bu |
| 1c26a0 | 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2a 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e | ffer-substring*)))).........((an |
| 1c26c0 | 64 20 28 70 61 74 68 6e 61 6d 65 70 20 66 69 6c 65 29 20 28 6e 75 6c 6c 20 2a 62 75 66 66 65 72 | d.(pathnamep.file).(null.*buffer |
| 1c26e0 | 2d 6e 61 6d 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6f 6d 70 69 6c 69 6e 67 20 66 | -name*))..........;;.Compiling.f |
| 1c2700 | 72 6f 6d 20 61 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 | rom.a.file..........(make-locati |
| 1c2720 | 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 66 69 | on.(list.:file.(unix-truename.fi |
| 1c2740 | 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | le)).........................(li |
| 1c2760 | 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 28 31 2b 20 28 73 6f 75 72 63 65 2d 70 61 74 68 2d 66 69 | st.:position.(1+.(source-path-fi |
| 1c2780 | 6c 65 2d 70 6f 73 69 74 69 6f 6e 0a 09 09 09 09 09 20 20 20 20 20 73 6f 75 72 63 65 2d 70 61 74 | le-position...........source-pat |
| 1c27a0 | 68 20 66 69 6c 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 65 71 20 66 69 | h.file))))).........((and.(eq.fi |
| 1c27c0 | 6c 65 20 3a 6c 69 73 70 29 20 28 73 74 72 69 6e 67 70 20 73 6f 75 72 63 65 29 29 0a 20 20 20 20 | le.:lisp).(stringp.source))..... |
| 1c27e0 | 20 20 20 20 20 3b 3b 20 4e 6f 20 6c 6f 63 61 74 69 6f 6e 20 6b 6e 6f 77 6e 2c 20 62 75 74 20 77 | .....;;.No.location.known,.but.w |
| 1c2800 | 65 20 68 61 76 65 20 74 68 65 20 73 6f 75 72 63 65 20 66 6f 72 6d 2e 0a 20 20 20 20 20 20 20 20 | e.have.the.source.form.......... |
| 1c2820 | 20 3b 3b 20 58 58 58 20 48 6f 77 20 69 73 20 74 68 69 73 20 63 61 73 65 20 74 72 69 67 67 65 72 | .;;.XXX.How.is.this.case.trigger |
| 1c2840 | 65 64 3f 20 20 2d 6c 75 6b 65 20 28 31 36 2f 4d 61 79 2f 32 30 30 34 29 20 0a 20 20 20 20 20 20 | ed?..-luke.(16/May/2004)........ |
| 1c2860 | 20 20 20 3b 3b 20 54 68 69 73 20 63 61 6e 20 68 61 70 70 65 6e 20 69 66 20 74 68 65 20 63 6f 6d | ...;;.This.can.happen.if.the.com |
| 1c2880 | 70 69 6c 65 72 20 6e 65 65 64 73 20 74 6f 20 65 78 70 61 6e 64 20 61 20 6d 61 63 72 6f 0a 20 20 | piler.needs.to.expand.a.macro... |
| 1c28a0 | 20 20 20 20 20 20 20 3b 3b 20 62 75 74 20 74 68 65 20 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 | .......;;.but.the.macro-expander |
| 1c28c0 | 20 69 73 20 6e 6f 74 20 79 65 74 20 63 6f 6d 70 69 6c 65 64 2e 20 20 43 61 6c 6c 69 6e 67 20 74 | .is.not.yet.compiled...Calling.t |
| 1c28e0 | 68 65 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 28 69 6e 74 65 72 70 72 65 74 65 64 29 20 6d 61 63 | he..........;;.(interpreted).mac |
| 1c2900 | 72 6f 2d 65 78 70 61 6e 64 65 72 20 74 72 69 67 67 65 72 73 20 49 52 31 20 63 6f 6e 76 65 72 73 | ro-expander.triggers.IR1.convers |
| 1c2920 | 69 6f 6e 20 6f 66 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 6c 61 6d 62 64 61 20 65 78 | ion.of..........;;.the.lambda.ex |
| 1c2940 | 70 72 65 73 73 69 6f 6e 20 66 6f 72 20 74 68 65 20 65 78 70 61 6e 64 65 72 20 61 6e 64 20 69 6e | pression.for.the.expander.and.in |
| 1c2960 | 76 6f 6b 65 73 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6d 70 69 6c 65 72 20 72 | vokes.the..........;;.compiler.r |
| 1c2980 | 65 63 75 72 73 69 76 65 6c 79 2e 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 | ecursively...........(make-locat |
| 1c29a0 | 69 6f 6e 20 28 6c 69 73 74 20 3a 73 6f 75 72 63 65 2d 66 6f 72 6d 20 73 6f 75 72 63 65 29 0a 20 | ion.(list.:source-form.source).. |
| 1c29c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f | .......................(list.:po |
| 1c29e0 | 73 69 74 69 6f 6e 20 31 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 69 78 2d 74 72 75 65 6e | sition.1)))))..(defun.unix-truen |
| 1c2a00 | 61 6d 65 20 28 70 61 74 68 6e 61 6d 65 29 0a 20 20 28 65 78 74 3a 75 6e 69 78 2d 6e 61 6d 65 73 | ame.(pathname)...(ext:unix-names |
| 1c2a20 | 74 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 29 29 29 0a 0a 0c 0a 0a | tring.(truename.pathname)))..... |
| 1c2a40 | 3b 3b 3b 20 54 4f 44 4f 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 68 6f 2d | ;;;.TODO.(defimplementation.who- |
| 1c2a60 | 63 61 6c 6c 73 20 28 6e 61 6d 65 29 20 6e 69 6c 29 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | calls.(name).nil).(defimplementa |
| 1c2a80 | 74 69 6f 6e 20 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 20 28 6e 61 6d 65 29 20 6e 69 6c 29 0a | tion.who-references.(name).nil). |
| 1c2aa0 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 68 6f 2d 62 69 6e 64 73 20 28 6e 61 | (defimplementation.who-binds.(na |
| 1c2ac0 | 6d 65 29 20 6e 69 6c 29 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 68 6f 2d | me).nil).(defimplementation.who- |
| 1c2ae0 | 73 65 74 73 20 28 6e 61 6d 65 29 20 6e 69 6c 29 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | sets.(name).nil).(defimplementat |
| 1c2b00 | 69 6f 6e 20 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 20 28 73 79 6d 62 6f 6c 29 20 6e 69 6c | ion.who-specializes.(symbol).nil |
| 1c2b20 | 29 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 68 6f 2d 6d 61 63 72 6f 65 78 | ).(defimplementation.who-macroex |
| 1c2b40 | 70 61 6e 64 73 20 28 6e 61 6d 65 29 20 6e 69 6c 29 0a 0a 0c 0a 3b 3b 3b 3b 20 46 69 6e 64 20 63 | pands.(name).nil)....;;;;.Find.c |
| 1c2b60 | 61 6c 6c 65 72 73 20 61 6e 64 20 63 61 6c 6c 65 65 73 0a 3b 3b 3b 0a 3b 3b 3b 20 46 69 6e 64 20 | allers.and.callees.;;;.;;;.Find. |
| 1c2b80 | 63 61 6c 6c 65 72 73 20 61 6e 64 20 63 61 6c 6c 65 65 73 20 62 79 20 6c 6f 6f 6b 69 6e 67 20 61 | callers.and.callees.by.looking.a |
| 1c2ba0 | 74 20 74 68 65 20 63 6f 6e 73 74 61 6e 74 20 70 6f 6f 6c 20 6f 66 0a 3b 3b 3b 20 63 6f 6d 70 69 | t.the.constant.pool.of.;;;.compi |
| 1c2bc0 | 6c 65 64 20 63 6f 64 65 20 6f 62 6a 65 63 74 73 2e 20 20 57 65 20 61 73 73 75 6d 65 20 65 76 65 | led.code.objects...We.assume.eve |
| 1c2be0 | 72 79 20 66 64 65 66 6e 20 6f 62 6a 65 63 74 20 69 6e 20 74 68 65 0a 3b 3b 3b 20 63 6f 6e 73 74 | ry.fdefn.object.in.the.;;;.const |
| 1c2c00 | 61 6e 74 20 70 6f 6f 6c 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f 20 61 20 63 61 6c 6c 20 74 | ant.pool.corresponds.to.a.call.t |
| 1c2c20 | 6f 20 74 68 61 74 20 66 75 6e 63 74 69 6f 6e 2e 20 20 41 20 62 65 74 74 65 72 0a 3b 3b 3b 20 73 | o.that.function...A.better.;;;.s |
| 1c2c40 | 74 72 61 74 65 67 79 20 77 6f 75 6c 64 20 62 65 20 74 6f 20 75 73 65 20 74 68 65 20 64 69 73 61 | trategy.would.be.to.use.the.disa |
| 1c2c60 | 73 73 65 6d 62 6c 65 72 20 74 6f 20 66 69 6e 64 20 61 63 74 75 61 6c 0a 3b 3b 3b 20 63 61 6c 6c | ssembler.to.find.actual.;;;.call |
| 1c2c80 | 2d 73 69 74 65 73 2e 0a 0a 28 64 65 63 6c 61 69 6d 20 28 69 6e 6c 69 6e 65 20 6d 61 70 2d 63 6f | -sites...(declaim.(inline.map-co |
| 1c2ca0 | 64 65 2d 63 6f 6e 73 74 61 6e 74 73 29 29 0a 28 64 65 66 75 6e 20 6d 61 70 2d 63 6f 64 65 2d 63 | de-constants)).(defun.map-code-c |
| 1c2cc0 | 6f 6e 73 74 61 6e 74 73 20 28 63 6f 64 65 20 66 6e 29 0a 20 20 22 43 61 6c 6c 20 27 66 6e 20 66 | onstants.(code.fn)..."Call.'fn.f |
| 1c2ce0 | 6f 72 20 65 61 63 68 20 63 6f 6e 73 74 61 6e 74 20 69 6e 20 27 63 6f 64 65 27 73 20 63 6f 6e 73 | or.each.constant.in.'code's.cons |
| 1c2d00 | 74 61 6e 74 20 70 6f 6f 6c 2e 22 0a 20 20 28 63 68 65 63 6b 2d 74 79 70 65 20 63 6f 64 65 20 6b | tant.pool."...(check-type.code.k |
| 1c2d20 | 65 72 6e 65 6c 3a 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 29 0a 20 20 28 6c 6f 6f 70 20 66 6f | ernel:code-component)...(loop.fo |
| 1c2d40 | 72 20 69 20 66 72 6f 6d 20 76 6d 3a 63 6f 64 65 2d 63 6f 6e 73 74 61 6e 74 73 2d 6f 66 66 73 65 | r.i.from.vm:code-constants-offse |
| 1c2d60 | 74 20 62 65 6c 6f 77 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 68 65 61 64 65 72 2d 64 61 74 61 20 | t.below.(kernel:get-header-data. |
| 1c2d80 | 63 6f 64 65 29 0a 09 64 6f 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 28 6b 65 72 6e 65 6c 3a 63 6f | code)..do.(funcall.fn.(kernel:co |
| 1c2da0 | 64 65 2d 68 65 61 64 65 72 2d 72 65 66 20 63 6f 64 65 20 69 29 29 29 29 0a 0a 28 64 65 66 75 6e | de-header-ref.code.i))))..(defun |
| 1c2dc0 | 20 66 75 6e 63 74 69 6f 6e 2d 63 61 6c 6c 65 65 73 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 | .function-callees.(function)..." |
| 1c2de0 | 52 65 74 75 72 6e 20 27 66 75 6e 63 74 69 6f 6e 27 73 20 63 61 6c 6c 65 65 73 20 61 73 20 61 20 | Return.'function's.callees.as.a. |
| 1c2e00 | 6c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 61 6c | list.of.functions."...(let.((cal |
| 1c2e20 | 6c 65 65 73 20 27 28 29 29 29 0a 20 20 20 20 28 6d 61 70 2d 63 6f 64 65 2d 63 6f 6e 73 74 61 6e | lees.'())).....(map-code-constan |
| 1c2e40 | 74 73 20 0a 20 20 20 20 20 28 76 6d 3a 3a 66 69 6e 64 2d 63 6f 64 65 2d 6f 62 6a 65 63 74 20 66 | ts.......(vm::find-code-object.f |
| 1c2e60 | 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6f 62 6a 29 0a 20 20 20 20 | unction)......(lambda.(obj)..... |
| 1c2e80 | 20 20 20 28 77 68 65 6e 20 28 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 2d 70 20 6f 62 6a 29 0a 09 20 | ...(when.(kernel:fdefn-p.obj)... |
| 1c2ea0 | 28 70 75 73 68 20 28 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 2d 66 75 6e 63 74 69 6f 6e 20 6f 62 6a | (push.(kernel:fdefn-function.obj |
| 1c2ec0 | 29 20 63 61 6c 6c 65 65 73 29 29 29 29 0a 20 20 20 20 63 61 6c 6c 65 65 73 29 29 0a 0a 28 64 65 | ).callees)))).....callees))..(de |
| 1c2ee0 | 63 6c 61 69 6d 20 28 65 78 74 3a 6d 61 79 62 65 2d 69 6e 6c 69 6e 65 20 6d 61 70 2d 61 6c 6c 6f | claim.(ext:maybe-inline.map-allo |
| 1c2f00 | 63 61 74 65 64 2d 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 29 0a 28 64 65 66 75 6e 20 6d | cated-code-components)).(defun.m |
| 1c2f20 | 61 70 2d 61 6c 6c 6f 63 61 74 65 64 2d 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 73 20 28 73 70 | ap-allocated-code-components.(sp |
| 1c2f40 | 61 63 65 73 20 66 6e 29 0a 20 20 22 43 61 6c 6c 20 46 4e 20 66 6f 72 20 65 61 63 68 20 61 6c 6c | aces.fn)..."Call.FN.for.each.all |
| 1c2f60 | 6f 63 61 74 65 64 20 63 6f 64 65 20 63 6f 6d 70 6f 6e 65 6e 74 20 69 6e 20 6f 6e 65 20 6f 66 20 | ocated.code.component.in.one.of. |
| 1c2f80 | 27 73 70 61 63 65 73 2e 20 20 46 4e 0a 20 20 72 65 63 65 69 76 65 73 20 74 68 65 20 6f 62 6a 65 | 'spaces...FN...receives.the.obje |
| 1c2fa0 | 63 74 20 61 73 20 61 72 67 75 6d 65 6e 74 2e 20 20 27 73 70 61 63 65 73 20 73 68 6f 75 6c 64 20 | ct.as.argument...'spaces.should. |
| 1c2fc0 | 62 65 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 0a 20 20 73 79 6d 62 6f 6c 73 20 3a 64 79 6e 61 | be.a.list.of.the...symbols.:dyna |
| 1c2fe0 | 6d 69 63 2c 20 3a 73 74 61 74 69 63 2c 20 6f 72 20 3a 72 65 61 64 2d 6f 6e 6c 79 2e 22 0a 20 20 | mic,.:static,.or.:read-only."... |
| 1c3000 | 28 64 6f 6c 69 73 74 20 28 73 70 61 63 65 20 73 70 61 63 65 73 29 0a 20 20 20 20 28 64 65 63 6c | (dolist.(space.spaces).....(decl |
| 1c3020 | 61 72 65 20 28 69 6e 6c 69 6e 65 20 76 6d 3a 3a 6d 61 70 2d 61 6c 6c 6f 63 61 74 65 64 2d 6f 62 | are.(inline.vm::map-allocated-ob |
| 1c3040 | 6a 65 63 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 70 74 69 6d 69 7a 65 20 28 65 | jects)..............(optimize.(e |
| 1c3060 | 78 74 3a 69 6e 68 69 62 69 74 2d 77 61 72 6e 69 6e 67 73 20 33 29 29 29 0a 20 20 20 20 28 76 6d | xt:inhibit-warnings.3))).....(vm |
| 1c3080 | 3a 3a 6d 61 70 2d 61 6c 6c 6f 63 61 74 65 64 2d 6f 62 6a 65 63 74 73 0a 20 20 20 20 20 28 6c 61 | ::map-allocated-objects......(la |
| 1c30a0 | 6d 62 64 61 20 28 6f 62 6a 20 68 65 61 64 65 72 20 73 69 7a 65 29 0a 20 20 20 20 20 20 20 28 64 | mbda.(obj.header.size)........(d |
| 1c30c0 | 65 63 6c 61 72 65 20 28 74 79 70 65 20 66 69 78 6e 75 6d 20 73 69 7a 65 29 20 28 69 67 6e 6f 72 | eclare.(type.fixnum.size).(ignor |
| 1c30e0 | 65 20 73 69 7a 65 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3d 20 76 6d 3a 63 6f 64 65 | e.size))........(when.(=.vm:code |
| 1c3100 | 2d 68 65 61 64 65 72 2d 74 79 70 65 20 68 65 61 64 65 72 29 0a 09 20 28 66 75 6e 63 61 6c 6c 20 | -header-type.header)...(funcall. |
| 1c3120 | 66 6e 20 6f 62 6a 29 29 29 0a 20 20 20 20 20 73 70 61 63 65 29 29 29 0a 0a 28 64 65 63 6c 61 69 | fn.obj)))......space)))..(declai |
| 1c3140 | 6d 20 28 65 78 74 3a 6d 61 79 62 65 2d 69 6e 6c 69 6e 65 20 6d 61 70 2d 63 61 6c 6c 65 72 2d 63 | m.(ext:maybe-inline.map-caller-c |
| 1c3160 | 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 29 0a 28 64 65 66 75 6e 20 6d 61 70 2d 63 61 6c 6c | ode-components)).(defun.map-call |
| 1c3180 | 65 72 2d 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 73 20 28 66 75 6e 63 74 69 6f 6e 20 73 70 61 | er-code-components.(function.spa |
| 1c31a0 | 63 65 73 20 66 6e 29 0a 20 20 22 43 61 6c 6c 20 27 66 6e 20 66 6f 72 20 65 61 63 68 20 63 6f 64 | ces.fn)..."Call.'fn.for.each.cod |
| 1c31c0 | 65 20 63 6f 6d 70 6f 6e 65 6e 74 20 77 69 74 68 20 61 20 66 64 65 66 6e 20 66 6f 72 20 27 66 75 | e.component.with.a.fdefn.for.'fu |
| 1c31e0 | 6e 63 74 69 6f 6e 20 69 6e 20 69 74 73 0a 20 20 63 6f 6e 73 74 61 6e 74 20 70 6f 6f 6c 2e 22 0a | nction.in.its...constant.pool.". |
| 1c3200 | 20 20 28 6c 65 74 20 28 28 66 75 6e 63 74 69 6f 6e 20 28 63 6f 65 72 63 65 20 66 75 6e 63 74 69 | ..(let.((function.(coerce.functi |
| 1c3220 | 6f 6e 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e | on.'function))).....(declare.(in |
| 1c3240 | 6c 69 6e 65 20 6d 61 70 2d 61 6c 6c 6f 63 61 74 65 64 2d 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e | line.map-allocated-code-componen |
| 1c3260 | 74 73 29 29 0a 20 20 20 20 28 6d 61 70 2d 61 6c 6c 6f 63 61 74 65 64 2d 63 6f 64 65 2d 63 6f 6d | ts)).....(map-allocated-code-com |
| 1c3280 | 70 6f 6e 65 6e 74 73 0a 20 20 20 20 20 73 70 61 63 65 73 20 0a 20 20 20 20 20 28 6c 61 6d 62 64 | ponents......spaces.......(lambd |
| 1c32a0 | 61 20 28 6f 62 6a 29 0a 20 20 20 20 20 20 20 28 6d 61 70 2d 63 6f 64 65 2d 63 6f 6e 73 74 61 6e | a.(obj)........(map-code-constan |
| 1c32c0 | 74 73 20 0a 09 6f 62 6a 20 0a 09 28 6c 61 6d 62 64 61 20 28 63 6f 6e 73 74 61 6e 74 29 0a 09 20 | ts...obj...(lambda.(constant)... |
| 1c32e0 | 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 2d 70 20 63 6f 6e 73 | .(when.(and.(kernel:fdefn-p.cons |
| 1c3300 | 74 61 6e 74 29 0a 09 09 20 20 20 20 20 28 65 71 20 28 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 2d 66 | tant)........(eq.(kernel:fdefn-f |
| 1c3320 | 75 6e 63 74 69 6f 6e 20 63 6f 6e 73 74 61 6e 74 29 0a 09 09 09 20 66 75 6e 63 74 69 6f 6e 29 29 | unction.constant).....function)) |
| 1c3340 | 0a 09 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 6f 62 6a 29 29 29 29 29 29 29 29 0a 0a 28 | ......(funcall.fn.obj))))))))..( |
| 1c3360 | 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 63 61 6c 6c 65 72 73 20 28 66 75 6e 63 74 69 6f 6e | defun.function-callers.(function |
| 1c3380 | 20 26 6f 70 74 69 6f 6e 61 6c 20 28 73 70 61 63 65 73 20 27 28 3a 72 65 61 64 2d 6f 6e 6c 79 20 | .&optional.(spaces.'(:read-only. |
| 1c33a0 | 3a 73 74 61 74 69 63 20 0a 09 09 09 09 09 09 20 20 20 20 20 20 3a 64 79 6e 61 6d 69 63 29 29 29 | :static..............:dynamic))) |
| 1c33c0 | 0a 20 20 22 52 65 74 75 72 6e 20 27 66 75 6e 63 74 69 6f 6e 27 73 20 63 61 6c 6c 65 72 73 2e 20 | ..."Return.'function's.callers.. |
| 1c33e0 | 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 64 65 2d 6f 62 | .The.result.is.a.list.of.code-ob |
| 1c3400 | 6a 65 63 74 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 72 65 66 65 72 72 65 72 73 20 27 28 29 29 29 | jects."...(let.((referrers.'())) |
| 1c3420 | 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 6c 69 6e 65 20 6d 61 70 2d 63 61 6c 6c 65 72 | .....(declare.(inline.map-caller |
| 1c3440 | 2d 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 29 0a 20 20 20 20 28 6d 61 70 2d 63 61 6c 6c | -code-components)).....(map-call |
| 1c3460 | 65 72 2d 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 73 20 66 75 6e 63 74 69 6f 6e 20 73 70 61 63 | er-code-components.function.spac |
| 1c3480 | 65 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | es.............................. |
| 1c34a0 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 6f 64 65 29 20 28 70 75 73 68 20 63 6f 64 65 20 72 65 | ....(lambda.(code).(push.code.re |
| 1c34c0 | 66 65 72 72 65 72 73 29 29 29 0a 20 20 20 20 72 65 66 65 72 72 65 72 73 29 29 0a 0a 28 64 65 66 | ferrers))).....referrers))..(def |
| 1c34e0 | 75 6e 20 64 65 62 75 67 2d 69 6e 66 6f 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 64 65 62 75 67 | un.debug-info-definitions.(debug |
| 1c3500 | 2d 69 6e 66 6f 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 64 65 66 69 6e 74 69 6f 6e 73 20 | -info)..."Return.the.defintions. |
| 1c3520 | 66 6f 72 20 61 20 64 65 62 75 67 2d 69 6e 66 6f 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20 6f | for.a.debug-info...This.should.o |
| 1c3540 | 6e 6c 79 20 62 65 20 75 73 65 64 0a 20 20 66 6f 72 20 63 6f 64 65 2d 6f 62 6a 65 63 74 20 77 69 | nly.be.used...for.code-object.wi |
| 1c3560 | 74 68 6f 75 74 20 65 6e 74 72 79 20 70 6f 69 6e 74 73 2c 20 69 2e 65 2e 2c 20 62 79 74 65 20 63 | thout.entry.points,.i.e.,.byte.c |
| 1c3580 | 6f 6d 70 69 6c 65 64 0a 20 20 63 6f 64 65 20 28 61 72 65 20 74 68 65 72 65 65 20 6f 74 68 65 72 | ompiled...code.(are.theree.other |
| 1c35a0 | 73 3f 29 22 0a 20 20 3b 3b 20 54 68 69 73 20 6d 65 73 73 20 68 61 73 20 6f 6e 6c 79 20 62 65 65 | s?)"...;;.This.mess.has.only.bee |
| 1c35c0 | 6e 20 74 65 73 74 65 64 20 77 69 74 68 20 23 27 65 78 74 3a 3a 73 6b 69 70 2d 77 68 69 74 65 73 | n.tested.with.#'ext::skip-whites |
| 1c35e0 | 70 61 63 65 2c 20 61 0a 20 20 3b 3b 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 64 20 63 61 6c 6c 65 | pace,.a...;;.byte-compiled.calle |
| 1c3600 | 72 20 6f 66 20 23 27 72 65 61 64 2d 63 68 61 72 20 2e 0a 20 20 28 63 68 65 63 6b 2d 74 79 70 65 | r.of.#'read-char.....(check-type |
| 1c3620 | 20 64 65 62 75 67 2d 69 6e 66 6f 20 28 61 6e 64 20 28 6e 6f 74 20 63 3a 3a 63 6f 6d 70 69 6c 65 | .debug-info.(and.(not.c::compile |
| 1c3640 | 64 2d 64 65 62 75 67 2d 69 6e 66 6f 29 20 63 3a 3a 64 65 62 75 67 2d 69 6e 66 6f 29 29 0a 20 20 | d-debug-info).c::debug-info))... |
| 1c3660 | 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 63 3a 3a 64 65 62 75 67 2d 69 6e 66 6f 2d 6e 61 6d 65 20 | (let.((name.(c::debug-info-name. |
| 1c3680 | 64 65 62 75 67 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 20 28 63 3a | debug-info)).........(source.(c: |
| 1c36a0 | 3a 64 65 62 75 67 2d 69 6e 66 6f 2d 73 6f 75 72 63 65 20 64 65 62 75 67 2d 69 6e 66 6f 29 29 29 | :debug-info-source.debug-info))) |
| 1c36c0 | 0a 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 66 69 72 73 74 29 | .....(destructuring-bind.(first) |
| 1c36e0 | 20 73 6f 75 72 63 65 20 0a 20 20 20 20 20 20 28 65 63 61 73 65 20 28 63 3a 3a 64 65 62 75 67 2d | .source........(ecase.(c::debug- |
| 1c3700 | 73 6f 75 72 63 65 2d 66 72 6f 6d 20 66 69 72 73 74 29 0a 20 20 20 20 20 20 20 20 28 3a 66 69 6c | source-from.first).........(:fil |
| 1c3720 | 65 20 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 6e 61 6d 65 0a 20 20 20 | e...........(list.(list.name.... |
| 1c3740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e | ..................(make-location |
| 1c3760 | 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 | ........................(list.:f |
| 1c3780 | 69 6c 65 20 28 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 28 63 3a 3a 64 65 62 75 67 2d 73 6f 75 | ile.(unix-truename.(c::debug-sou |
| 1c37a0 | 72 63 65 2d 6e 61 6d 65 20 66 69 72 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rce-name.first)))............... |
| 1c37c0 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 74 | ........(list.:function-name.(st |
| 1c37e0 | 72 69 6e 67 20 6e 61 6d 65 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 61 6c 69 | ring.name))))))))))..(defun.vali |
| 1c3800 | 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 20 28 6e 61 6d 65 29 0a 20 20 28 6f 72 20 28 | d-function-name-p.(name)...(or.( |
| 1c3820 | 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 6e 61 6d 65 29 0a | symbolp.name).(and.(consp.name). |
| 1c3840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 63 | ..........................(eq.(c |
| 1c3860 | 61 72 20 6e 61 6d 65 29 20 27 73 65 74 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ar.name).'setf)................. |
| 1c3880 | 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 70 20 28 63 61 64 72 20 6e 61 6d 65 29 29 0a | ..........(symbolp.(cadr.name)). |
| 1c38a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 | ..........................(not.( |
| 1c38c0 | 63 64 64 72 20 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 64 65 2d 63 6f 6d 70 | cddr.name)))))..(defun.code-comp |
| 1c38e0 | 6f 6e 65 6e 74 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 73 20 28 63 6f 64 65 29 0a 20 20 22 52 65 74 | onent-entry-points.(code)..."Ret |
| 1c3900 | 75 72 6e 20 61 20 6c 69 73 74 20 28 28 6e 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 29 20 2e 2e 2e 29 | urn.a.list.((name.location)....) |
| 1c3920 | 20 6f 66 20 66 75 6e 63 74 69 6f 6e 20 64 65 66 69 6e 69 74 6f 6e 73 20 66 6f 72 0a 20 20 74 68 | .of.function.definitons.for...th |
| 1c3940 | 65 20 63 6f 64 65 20 6f 6d 70 6f 6e 65 6e 74 20 27 63 6f 64 65 2e 22 0a 20 20 28 6c 65 74 20 28 | e.code.omponent.'code."...(let.( |
| 1c3960 | 28 6e 61 6d 65 73 20 27 28 29 29 29 0a 20 20 20 20 28 64 6f 20 28 28 66 20 28 6b 65 72 6e 65 6c | (names.'())).....(do.((f.(kernel |
| 1c3980 | 3a 25 63 6f 64 65 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 73 20 63 6f 64 65 29 20 28 6b 65 72 6e 65 | :%code-entry-points.code).(kerne |
| 1c39a0 | 6c 3a 3a 25 66 75 6e 63 74 69 6f 6e 2d 6e 65 78 74 20 66 29 29 29 0a 20 20 20 20 20 20 20 20 28 | l::%function-next.f))).........( |
| 1c39c0 | 28 6e 6f 74 20 66 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 6b 65 72 6e | (not.f)).......(let.((name.(kern |
| 1c39e0 | 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 29 29 0a 20 20 20 20 20 20 20 20 28 | el:%function-name.f))).........( |
| 1c3a00 | 77 68 65 6e 20 28 76 61 6c 69 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 20 6e 61 6d 65 | when.(valid-function-name-p.name |
| 1c3a20 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 6e 61 6d 65 20 28 66 75 | )...........(push.(list.name.(fu |
| 1c3a40 | 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 66 29 29 20 6e 61 6d 65 73 29 29 29 29 0a 20 20 | nction-location.f)).names))))... |
| 1c3a60 | 20 20 6e 61 6d 65 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 | ..names))..(defimplementation.li |
| 1c3a80 | 73 74 2d 63 61 6c 6c 65 72 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 | st-callers.(symbol)..."Return.a. |
| 1c3aa0 | 6c 69 73 74 20 28 28 6e 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 29 20 2e 2e 2e 29 20 6f 66 20 63 61 | list.((name.location)....).of.ca |
| 1c3ac0 | 6c 6c 65 72 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 6f 6e 65 6e 74 73 20 28 66 75 6e | llers."...(let.((components.(fun |
| 1c3ae0 | 63 74 69 6f 6e 2d 63 61 6c 6c 65 72 73 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 28 | ction-callers.symbol)).........( |
| 1c3b00 | 78 72 65 66 73 20 27 28 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 63 6f 64 65 20 63 6f | xrefs.'())).....(dolist.(code.co |
| 1c3b20 | 6d 70 6f 6e 65 6e 74 73 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 65 6e 74 72 79 20 28 6b | mponents).......(let*.((entry.(k |
| 1c3b40 | 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 73 20 63 6f 64 65 29 29 0a | ernel:%code-entry-points.code)). |
| 1c3b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 73 20 28 69 66 20 65 6e 74 72 79 0a 20 20 20 | .............(defs.(if.entry.... |
| 1c3b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 64 65 2d 63 6f 6d 70 6f 6e | ....................(code-compon |
| 1c3ba0 | 65 6e 74 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 73 20 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 | ent-entry-points.code).......... |
| 1c3bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 79 74 65 20 63 6f 6d 70 69 6c 65 64 20 73 | ..............;;.byte.compiled.s |
| 1c3be0 | 74 75 66 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 | tuff........................(deb |
| 1c3c00 | 75 67 2d 69 6e 66 6f 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 | ug-info-definitions............. |
| 1c3c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 64 65 62 75 67 | .............(kernel:%code-debug |
| 1c3c40 | 2d 69 6e 66 6f 20 63 6f 64 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 78 72 | -info.code))))).........(setq.xr |
| 1c3c60 | 65 66 73 20 28 6e 63 6f 6e 63 20 64 65 66 73 20 78 72 65 66 73 29 29 29 29 0a 20 20 20 20 78 72 | efs.(nconc.defs.xrefs)))).....xr |
| 1c3c80 | 65 66 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 74 2d 63 | efs))..(defimplementation.list-c |
| 1c3ca0 | 61 6c 6c 65 65 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 20 28 28 66 6e 73 20 28 66 75 | allees.(symbol)...(let.((fns.(fu |
| 1c3cc0 | 6e 63 74 69 6f 6e 2d 63 61 6c 6c 65 65 73 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 6d 61 | nction-callees.symbol))).....(ma |
| 1c3ce0 | 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pcar.(lambda.(fn)............... |
| 1c3d00 | 28 6c 69 73 74 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 6e 29 | (list.(kernel:%function-name.fn) |
| 1c3d20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c | .....................(function-l |
| 1c3d40 | 6f 63 61 74 69 6f 6e 20 66 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6e 73 29 29 29 | ocation.fn))).............fns))) |
| 1c3d60 | 0a 0a 0c 0a 3b 3b 3b 3b 20 52 65 73 6f 6c 76 69 6e 67 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 | ....;;;;.Resolving.source.locati |
| 1c3d80 | 6f 6e 73 0a 3b 3b 3b 0a 3b 3b 3b 20 4f 75 72 20 6d 69 73 73 69 6f 6e 20 68 65 72 65 20 69 73 20 | ons.;;;.;;;.Our.mission.here.is. |
| 1c3da0 | 74 6f 20 22 72 65 73 6f 6c 76 65 22 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 63 6f 64 65 20 | to."resolve".references.to.code. |
| 1c3dc0 | 6c 6f 63 61 74 69 6f 6e 73 20 69 6e 74 6f 0a 3b 3b 3b 20 61 63 74 75 61 6c 20 66 69 6c 65 2f 62 | locations.into.;;;.actual.file/b |
| 1c3de0 | 75 66 66 65 72 20 6e 61 6d 65 73 20 61 6e 64 20 63 68 61 72 61 63 74 65 72 20 70 6f 73 69 74 69 | uffer.names.and.character.positi |
| 1c3e00 | 6f 6e 73 2e 20 54 68 65 20 72 65 66 65 72 65 6e 63 65 73 0a 3b 3b 3b 20 77 65 20 77 6f 72 6b 20 | ons..The.references.;;;.we.work. |
| 1c3e20 | 66 72 6f 6d 20 63 6f 6d 65 20 6f 75 74 20 6f 66 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 27 73 20 | from.come.out.of.the.compiler's. |
| 1c3e40 | 73 74 61 74 69 63 61 6c 6c 79 2d 67 65 6e 65 72 61 74 65 64 20 64 65 62 75 67 0a 3b 3b 3b 20 69 | statically-generated.debug.;;;.i |
| 1c3e60 | 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 73 75 63 68 20 61 73 20 60 63 6f 64 65 2d 6c 6f 63 61 74 69 | nformation,.such.as.`code-locati |
| 1c3e80 | 6f 6e 27 27 73 20 61 6e 64 20 60 64 65 62 75 67 2d 73 6f 75 72 63 65 27 27 73 2e 20 46 6f 72 0a | on''s.and.`debug-source''s..For. |
| 1c3ea0 | 3b 3b 3b 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2c 20 73 65 65 20 74 68 65 20 22 44 65 62 75 67 | ;;;.more.details,.see.the."Debug |
| 1c3ec0 | 67 65 72 20 50 72 6f 67 72 61 6d 6d 65 72 27 73 20 49 6e 74 65 72 66 61 63 65 22 20 73 65 63 74 | ger.Programmer's.Interface".sect |
| 1c3ee0 | 69 6f 6e 20 6f 66 0a 3b 3b 3b 20 74 68 65 20 53 43 4c 20 6d 61 6e 75 61 6c 2e 0a 3b 3b 3b 0a 3b | ion.of.;;;.the.SCL.manual..;;;.; |
| 1c3f00 | 3b 3b 20 54 68 65 20 66 69 72 73 74 20 73 74 65 70 20 69 73 20 75 73 75 61 6c 6c 79 20 74 6f 20 | ;;.The.first.step.is.usually.to. |
| 1c3f20 | 66 69 6e 64 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 22 73 6f 75 72 63 65 2d 70 | find.the.corresponding."source-p |
| 1c3f40 | 61 74 68 22 0a 3b 3b 3b 20 66 6f 72 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 2e 20 4f 6e 63 65 20 | ath".;;;.for.the.location..Once. |
| 1c3f60 | 77 65 20 68 61 76 65 20 74 68 65 20 73 6f 75 72 63 65 2d 70 61 74 68 20 77 65 20 63 61 6e 20 70 | we.have.the.source-path.we.can.p |
| 1c3f80 | 75 6c 6c 20 75 70 20 74 68 65 0a 3b 3b 3b 20 73 6f 75 72 63 65 20 66 69 6c 65 20 61 6e 64 20 60 | ull.up.the.;;;.source.file.and.` |
| 1c3fa0 | 52 45 41 44 27 20 6f 75 72 20 77 61 79 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65 20 72 69 67 | READ'.our.way.through.to.the.rig |
| 1c3fc0 | 68 74 20 70 6f 73 69 74 69 6f 6e 2e 20 54 68 65 0a 3b 3b 3b 20 6d 61 69 6e 20 73 6f 75 72 63 65 | ht.position..The.;;;.main.source |
| 1c3fe0 | 2d 63 6f 64 65 20 67 72 6f 76 65 6c 69 6e 67 20 77 6f 72 6b 20 69 73 20 64 6f 6e 65 20 69 6e 0a | -code.groveling.work.is.done.in. |
| 1c4000 | 3b 3b 3b 20 60 73 6f 75 72 63 65 2d 70 61 74 68 2d 70 61 72 73 65 72 2e 6c 69 73 70 27 2e 0a 0a | ;;;.`source-path-parser.lisp'... |
| 1c4020 | 28 64 65 66 76 61 72 20 2a 64 65 62 75 67 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e | (defvar.*debug-definition-findin |
| 1c4040 | 67 2a 20 6e 69 6c 0a 20 20 22 57 68 65 6e 20 74 72 75 65 20 64 6f 6e 27 74 20 68 61 6e 64 6c 65 | g*.nil..."When.true.don't.handle |
| 1c4060 | 20 65 72 72 6f 72 73 20 77 68 69 6c 65 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 20 64 65 66 69 6e 69 | .errors.while.looking.for.defini |
| 1c4080 | 74 69 6f 6e 73 2e 0a 20 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 77 68 65 6e 20 64 65 62 | tions....This.is.useful.when.deb |
| 1c40a0 | 75 67 67 69 6e 67 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 20 63 6f | ugging.the.definition-finding.co |
| 1c40c0 | 64 65 2e 22 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 61 66 65 2d 64 65 66 69 6e 69 74 69 6f 6e | de.")..(defmacro.safe-definition |
| 1c40e0 | 2d 66 69 6e 64 69 6e 67 20 28 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 45 78 65 63 75 74 65 | -finding.(&body.body)..."Execute |
| 1c4100 | 20 27 62 6f 64 79 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 73 6f 75 72 63 65 2d 6c 6f 63 | .'body.and.return.the.source-loc |
| 1c4120 | 61 74 69 6f 6e 20 69 74 20 72 65 74 75 72 6e 73 2e 0a 20 20 49 66 20 61 6e 20 65 72 72 6f 72 20 | ation.it.returns....If.an.error. |
| 1c4140 | 6f 63 63 75 72 73 20 61 6e 64 20 60 2a 64 65 62 75 67 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 | occurs.and.`*debug-definition-fi |
| 1c4160 | 6e 64 69 6e 67 2a 27 20 69 73 20 66 61 6c 73 65 2c 20 74 68 65 6e 0a 20 20 72 65 74 75 72 6e 20 | nding*'.is.false,.then...return. |
| 1c4180 | 61 6e 20 65 72 72 6f 72 20 70 73 65 75 64 6f 2d 6c 6f 63 61 74 69 6f 6e 2e 0a 0a 20 20 54 68 65 | an.error.pseudo-location.....The |
| 1c41a0 | 20 73 65 63 6f 6e 64 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 27 6e 69 6c 20 69 66 20 | .second.return.value.is.'nil.if. |
| 1c41c0 | 6e 6f 20 65 72 72 6f 72 20 6f 63 63 75 72 73 2c 20 6f 74 68 65 72 77 69 73 65 20 69 74 20 69 73 | no.error.occurs,.otherwise.it.is |
| 1c41e0 | 20 74 68 65 0a 20 20 63 6f 6e 64 69 74 69 6f 6e 20 6f 62 6a 65 63 74 2e 22 0a 20 20 60 28 66 6c | .the...condition.object."...`(fl |
| 1c4200 | 65 74 20 28 28 62 6f 64 79 20 28 29 20 2c 40 62 6f 64 79 29 29 0a 20 20 20 20 28 69 66 20 2a 64 | et.((body.().,@body)).....(if.*d |
| 1c4220 | 65 62 75 67 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 2a 0a 20 20 20 20 20 20 20 | ebug-definition-finding*........ |
| 1c4240 | 20 28 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 76 | .(body).........(handler-case.(v |
| 1c4260 | 61 6c 75 65 73 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 | alues.(progn.,@body).nil)....... |
| 1c4280 | 20 20 20 20 28 65 72 72 6f 72 20 28 63 29 20 28 76 61 6c 75 65 73 20 28 6c 69 73 74 20 3a 65 72 | ....(error.(c).(values.(list.:er |
| 1c42a0 | 72 6f 72 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 29 29 20 63 29 29 29 29 29 29 | ror.(princ-to-string.c)).c)))))) |
| 1c42c0 | 0a 0a 28 64 65 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f | ..(defun.code-location-source-lo |
| 1c42e0 | 63 61 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 53 61 66 65 20 77 | cation.(code-location)..."Safe.w |
| 1c4300 | 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 60 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 72 6f | rapper.around.`code-location-fro |
| 1c4320 | 6d 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 27 2e 22 0a 20 20 28 73 61 66 65 2d 64 65 66 | m-source-location'."...(safe-def |
| 1c4340 | 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 0a 20 20 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 | inition-finding....(source-locat |
| 1c4360 | 69 6f 6e 2d 66 72 6f 6d 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 | ion-from-code-location.code-loca |
| 1c4380 | 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d | tion)))..(defun.source-location- |
| 1c43a0 | 66 72 6f 6d 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f | from-code-location.(code-locatio |
| 1c43c0 | 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e | n)..."Return.the.source.location |
| 1c43e0 | 20 66 6f 72 20 27 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 | .for.'code-location."...(let.((d |
| 1c4400 | 65 62 75 67 2d 66 75 6e 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 62 75 67 | ebug-fun.(di:code-location-debug |
| 1c4420 | 2d 66 75 6e 63 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 | -function.code-location))).....( |
| 1c4440 | 77 68 65 6e 20 28 64 69 3a 3a 62 6f 67 75 73 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 70 | when.(di::bogus-debug-function-p |
| 1c4460 | 20 64 65 62 75 67 2d 66 75 6e 29 0a 20 20 20 20 20 20 3b 3b 20 54 68 6f 73 65 20 6c 6f 75 73 79 | .debug-fun).......;;.Those.lousy |
| 1c4480 | 20 63 68 65 61 70 73 6b 61 74 65 73 21 20 54 68 65 79 27 76 65 20 70 75 74 20 69 6e 20 61 20 62 | .cheapskates!.They've.put.in.a.b |
| 1c44a0 | 6f 67 75 73 20 64 65 62 75 67 20 73 6f 75 72 63 65 0a 20 20 20 20 20 20 3b 3b 20 62 65 63 61 75 | ogus.debug.source.......;;.becau |
| 1c44c0 | 73 65 20 74 68 65 20 63 6f 64 65 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20 61 74 20 61 20 6c 6f | se.the.code.was.compiled.at.a.lo |
| 1c44e0 | 77 20 64 65 62 75 67 20 73 65 74 74 69 6e 67 2e 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 42 | w.debug.setting........(error."B |
| 1c4500 | 6f 67 75 73 20 64 65 62 75 67 20 66 75 6e 63 74 69 6f 6e 3a 20 7e 41 22 20 64 65 62 75 67 2d 66 | ogus.debug.function:.~A".debug-f |
| 1c4520 | 75 6e 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 65 62 75 67 2d 73 6f 75 72 63 65 20 28 64 69 | un)))...(let*.((debug-source.(di |
| 1c4540 | 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 62 75 67 2d 73 6f 75 72 63 65 20 63 6f 64 65 | :code-location-debug-source.code |
| 1c4560 | 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 72 6f 6d 20 28 64 69 3a 64 | -location))..........(from.(di:d |
| 1c4580 | 65 62 75 67 2d 73 6f 75 72 63 65 2d 66 72 6f 6d 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 29 0a | ebug-source-from.debug-source)). |
| 1c45a0 | 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 64 69 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 2d | .........(name.(di:debug-source- |
| 1c45c0 | 6e 61 6d 65 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 29 29 0a 20 20 20 20 28 65 63 61 73 65 20 | name.debug-source))).....(ecase. |
| 1c45e0 | 66 72 6f 6d 0a 20 20 20 20 20 20 28 3a 66 69 6c 65 20 0a 20 20 20 20 20 20 20 28 6c 6f 63 61 74 | from.......(:file.........(locat |
| 1c4600 | 69 6f 6e 2d 69 6e 2d 66 69 6c 65 20 6e 61 6d 65 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 64 | ion-in-file.name.code-location.d |
| 1c4620 | 65 62 75 67 2d 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 28 3a 73 74 72 65 61 6d 0a 20 20 20 | ebug-source)).......(:stream.... |
| 1c4640 | 20 20 20 20 28 6c 6f 63 61 74 69 6f 6e 2d 69 6e 2d 73 74 72 65 61 6d 20 63 6f 64 65 2d 6c 6f 63 | ....(location-in-stream.code-loc |
| 1c4660 | 61 74 69 6f 6e 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 28 3a 6c 69 73 | ation.debug-source)).......(:lis |
| 1c4680 | 70 0a 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 63 6f 6d 65 73 20 66 | p........;;.The.location.comes.f |
| 1c46a0 | 72 6f 6d 20 61 20 66 6f 72 6d 20 70 61 73 73 65 64 20 74 6f 20 60 63 6f 6d 70 69 6c 65 27 2e 0a | rom.a.form.passed.to.`compile'.. |
| 1c46c0 | 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 62 65 73 74 20 77 65 20 63 61 6e 20 64 6f 20 69 73 20 | .......;;.The.best.we.can.do.is. |
| 1c46e0 | 72 65 74 75 72 6e 20 74 68 65 20 66 6f 72 6d 20 69 74 73 65 6c 66 20 66 6f 72 20 70 72 69 6e 74 | return.the.form.itself.for.print |
| 1c4700 | 69 6e 67 2e 0a 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 | ing.........(make-location...... |
| 1c4720 | 20 20 20 28 6c 69 73 74 20 3a 73 6f 75 72 63 65 2d 66 6f 72 6d 20 28 77 69 74 68 2d 6f 75 74 70 | ...(list.:source-form.(with-outp |
| 1c4740 | 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 | ut-to-string.(*standard-output*) |
| 1c4760 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | ..............................(d |
| 1c4780 | 65 62 75 67 3a 3a 70 72 69 6e 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 6f 75 72 63 65 | ebug::print-code-location-source |
| 1c47a0 | 2d 66 6f 72 6d 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -form........................... |
| 1c47c0 | 20 20 20 20 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 31 30 30 20 74 29 29 29 0a 20 20 20 20 | .....code-location.100.t)))..... |
| 1c47e0 | 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 31 29 29 29 29 29 29 0a 0a 28 64 65 | ....(list.:position.1))))))..(de |
| 1c4800 | 66 75 6e 20 6c 6f 63 61 74 69 6f 6e 2d 69 6e 2d 66 69 6c 65 20 28 66 69 6c 65 6e 61 6d 65 20 63 | fun.location-in-file.(filename.c |
| 1c4820 | 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 0a 20 20 22 52 65 | ode-location.debug-source)..."Re |
| 1c4840 | 73 6f 6c 76 65 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 27 63 | solve.the.source.location.for.'c |
| 1c4860 | 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 69 6e 20 27 66 69 6c 65 6e 61 6d 65 2e 22 0a 20 20 28 6c | ode-location.in.'filename."...(l |
| 1c4880 | 65 74 2a 20 28 28 63 6f 64 65 2d 64 61 74 65 20 28 64 69 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 | et*.((code-date.(di:debug-source |
| 1c48a0 | 2d 63 72 65 61 74 65 64 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 20 20 | -created.debug-source))......... |
| 1c48c0 | 20 28 73 6f 75 72 63 65 2d 63 6f 64 65 20 28 67 65 74 2d 73 6f 75 72 63 65 2d 63 6f 64 65 20 66 | .(source-code.(get-source-code.f |
| 1c48e0 | 69 6c 65 6e 61 6d 65 20 63 6f 64 65 2d 64 61 74 65 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 69 | ilename.code-date))).....(with-i |
| 1c4900 | 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 20 73 6f 75 72 63 65 2d 63 6f 64 65 29 | nput-from-string.(s.source-code) |
| 1c4920 | 0a 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c | .......(make-location.(list.:fil |
| 1c4940 | 65 20 28 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 | e.(unix-truename.filename))..... |
| 1c4960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e | .................(list.:position |
| 1c4980 | 20 28 31 2b 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 74 72 65 61 6d 2d 70 6f 73 69 74 | .(1+.(code-location-stream-posit |
| 1c49a0 | 69 6f 6e 0a 09 09 09 09 09 20 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 29 29 29 0a 20 20 | ion........code-location.s)))... |
| 1c49c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 73 6e 69 70 70 65 74 20 2c 28 | ...................`(:snippet.,( |
| 1c49e0 | 72 65 61 64 2d 73 6e 69 70 70 65 74 20 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6f 63 | read-snippet.s))))))..(defun.loc |
| 1c4a00 | 61 74 69 6f 6e 2d 69 6e 2d 73 74 72 65 61 6d 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 64 | ation-in-stream.(code-location.d |
| 1c4a20 | 65 62 75 67 2d 73 6f 75 72 63 65 29 0a 20 20 22 52 65 73 6f 6c 76 65 20 74 68 65 20 73 6f 75 72 | ebug-source)..."Resolve.the.sour |
| 1c4a40 | 63 65 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 61 20 27 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e | ce.location.for.a.'code-location |
| 1c4a60 | 20 66 72 6f 6d 20 61 20 73 74 72 65 61 6d 2e 0a 20 20 54 68 69 73 20 6f 6e 6c 79 20 73 75 63 63 | .from.a.stream....This.only.succ |
| 1c4a80 | 65 65 64 73 20 69 66 20 74 68 65 20 63 6f 64 65 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20 66 72 | eeds.if.the.code.was.compiled.fr |
| 1c4aa0 | 6f 6d 20 61 6e 20 45 6d 61 63 73 20 62 75 66 66 65 72 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 | om.an.Emacs.buffer."...(unless.( |
| 1c4ac0 | 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 69 6e 66 6f 2d 66 72 6f 6d 2d 65 6d 61 63 73 2d 62 75 66 | debug-source-info-from-emacs-buf |
| 1c4ae0 | 66 65 72 2d 70 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 | fer-p.debug-source).....(error." |
| 1c4b00 | 54 68 65 20 63 6f 64 65 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 66 72 6f 6d 20 61 20 6e 6f 6e 2d | The.code.is.compiled.from.a.non- |
| 1c4b20 | 53 4c 49 4d 45 20 73 74 72 65 61 6d 2e 22 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e 66 6f 20 | SLIME.stream."))...(let*.((info. |
| 1c4b40 | 28 63 3a 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 69 6e 66 6f 20 64 65 62 75 67 2d 73 6f 75 72 | (c::debug-source-info.debug-sour |
| 1c4b60 | 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 28 67 65 74 66 20 69 6e 66 6f | ce))..........(string.(getf.info |
| 1c4b80 | 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 | .:emacs-buffer-string))......... |
| 1c4ba0 | 20 28 70 6f 73 69 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 74 72 69 6e 67 | .(position.(code-location-string |
| 1c4bc0 | 2d 6f 66 66 73 65 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 64 | -offset......................cod |
| 1c4be0 | 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 | e-location.....................s |
| 1c4c00 | 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 | tring))).....(make-location..... |
| 1c4c20 | 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 28 67 65 74 66 20 69 6e 66 6f 20 3a 65 6d 61 63 73 | .(list.:buffer.(getf.info.:emacs |
| 1c4c40 | 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 28 6c 69 73 74 20 3a 6f 66 66 73 65 74 20 28 67 65 | -buffer))......(list.:offset.(ge |
| 1c4c60 | 74 66 20 69 6e 66 6f 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 6f 66 66 73 65 74 29 20 70 6f | tf.info.:emacs-buffer-offset).po |
| 1c4c80 | 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 28 6c 69 73 74 20 3a 73 6e 69 70 70 65 74 20 28 77 69 74 | sition)......(list.:snippet.(wit |
| 1c4ca0 | 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 20 73 74 72 69 6e 67 29 0a 20 | h-input-from-string.(s.string).. |
| 1c4cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 70 6f 73 69 74 | .....................(file-posit |
| 1c4ce0 | 69 6f 6e 20 73 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion.s.position)................. |
| 1c4d00 | 20 20 20 20 20 20 28 72 65 61 64 2d 73 6e 69 70 70 65 74 20 73 29 29 29 29 29 29 0a 0a 3b 3b 3b | ......(read-snippet.s))))))..;;; |
| 1c4d20 | 3b 3b 20 46 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 73 0a 3b 3b 3b 0a 28 | ;;.Function-name.locations.;;;.( |
| 1c4d40 | 64 65 66 75 6e 20 64 65 62 75 67 2d 69 6e 66 6f 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 6c | defun.debug-info-function-name-l |
| 1c4d60 | 6f 63 61 74 69 6f 6e 20 28 64 65 62 75 67 2d 69 6e 66 6f 29 0a 20 20 22 52 65 74 75 72 6e 20 61 | ocation.(debug-info)..."Return.a |
| 1c4d80 | 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 | .function-name.source-location.f |
| 1c4da0 | 6f 72 20 27 64 65 62 75 67 2d 69 6e 66 6f 2e 0a 20 20 46 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 | or.'debug-info....Function-name. |
| 1c4dc0 | 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 61 72 65 20 61 20 66 61 6c 6c 62 61 63 6b 20 | source-locations.are.a.fallback. |
| 1c4de0 | 66 6f 72 20 77 68 65 6e 20 70 72 65 63 69 73 65 0a 20 20 70 6f 73 69 74 69 6f 6e 73 20 61 72 65 | for.when.precise...positions.are |
| 1c4e00 | 6e 27 74 20 61 76 61 69 6c 61 62 6c 65 2e 22 0a 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 | n't.available."...(with-struct.( |
| 1c4e20 | 63 3a 3a 64 65 62 75 67 2d 69 6e 66 6f 2d 20 28 66 6e 61 6d 65 20 6e 61 6d 65 29 20 73 6f 75 72 | c::debug-info-.(fname.name).sour |
| 1c4e40 | 63 65 29 20 64 65 62 75 67 2d 69 6e 66 6f 0a 20 20 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 20 | ce).debug-info.....(with-struct. |
| 1c4e60 | 28 63 3a 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 20 69 6e 66 6f 20 66 72 6f 6d 20 6e 61 6d 65 | (c::debug-source-.info.from.name |
| 1c4e80 | 29 20 28 63 61 72 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 28 65 63 61 73 65 20 66 72 6f 6d | ).(car.source).......(ecase.from |
| 1c4ea0 | 0a 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d | .........(:file...........(make- |
| 1c4ec0 | 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 6e 61 6d 65 73 74 72 69 6e 67 | location.(list.:file.(namestring |
| 1c4ee0 | 20 28 74 72 75 65 6e 61 6d 65 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(truename.name))).............. |
| 1c4f00 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 | ...........(list.:function-name. |
| 1c4f20 | 28 73 74 72 69 6e 67 20 66 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 3a 73 74 72 65 | (string.fname)))).........(:stre |
| 1c4f40 | 61 6d 0a 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 64 65 62 75 67 2d 73 6f 75 72 63 | am..........(assert.(debug-sourc |
| 1c4f60 | 65 2d 69 6e 66 6f 2d 66 72 6f 6d 2d 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 70 20 28 63 61 72 20 | e-info-from-emacs-buffer-p.(car. |
| 1c4f80 | 73 6f 75 72 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f | source)))..........(make-locatio |
| 1c4fa0 | 6e 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 28 67 65 74 66 20 69 6e 66 6f 20 3a 65 6d 61 63 | n.(list.:buffer.(getf.info.:emac |
| 1c4fc0 | 73 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s-buffer))...................... |
| 1c4fe0 | 20 20 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 74 72 69 6e 67 20 | ...(list.:function-name.(string. |
| 1c5000 | 66 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 3a 6c 69 73 70 0a 20 20 20 20 20 20 20 | fname)))).........(:lisp........ |
| 1c5020 | 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 73 6f 75 72 63 65 2d 66 | ..(make-location.(list.:source-f |
| 1c5040 | 6f 72 6d 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 28 61 72 65 66 20 6e 61 6d 65 20 | orm.(princ-to-string.(aref.name. |
| 1c5060 | 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | 0))).........................(li |
| 1c5080 | 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 31 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 | st.:position.1)))))))..(defun.de |
| 1c50a0 | 62 75 67 2d 73 6f 75 72 63 65 2d 69 6e 66 6f 2d 66 72 6f 6d 2d 65 6d 61 63 73 2d 62 75 66 66 65 | bug-source-info-from-emacs-buffe |
| 1c50c0 | 72 2d 70 20 28 64 65 62 75 67 2d 73 6f 75 72 63 65 29 0a 20 20 22 44 6f 65 73 20 74 68 65 20 60 | r-p.(debug-source)..."Does.the.` |
| 1c50e0 | 69 6e 66 6f 27 20 73 6c 6f 74 20 6f 66 20 27 64 65 62 75 67 2d 73 6f 75 72 63 65 20 63 6f 6e 74 | info'.slot.of.'debug-source.cont |
| 1c5100 | 61 69 6e 20 61 6e 20 45 6d 61 63 73 20 62 75 66 66 65 72 20 6c 6f 63 61 74 69 6f 6e 3f 0a 20 20 | ain.an.Emacs.buffer.location?... |
| 1c5120 | 54 68 69 73 20 69 73 20 74 72 75 65 20 66 6f 72 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 | This.is.true.for.functions.that. |
| 1c5140 | 77 65 72 65 20 63 6f 6d 70 69 6c 65 64 20 64 69 72 65 63 74 6c 79 20 66 72 6f 6d 20 62 75 66 66 | were.compiled.directly.from.buff |
| 1c5160 | 65 72 73 2e 22 0a 20 20 28 69 6e 66 6f 2d 66 72 6f 6d 2d 65 6d 61 63 73 2d 62 75 66 66 65 72 2d | ers."...(info-from-emacs-buffer- |
| 1c5180 | 70 20 28 63 3a 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 69 6e 66 6f 20 64 65 62 75 67 2d 73 6f | p.(c::debug-source-info.debug-so |
| 1c51a0 | 75 72 63 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 66 6f 2d 66 72 6f 6d 2d 65 6d 61 63 73 2d | urce)))..(defun.info-from-emacs- |
| 1c51c0 | 62 75 66 66 65 72 2d 70 20 28 69 6e 66 6f 29 0a 20 20 28 61 6e 64 20 69 6e 66 6f 20 0a 20 20 20 | buffer-p.(info)...(and.info..... |
| 1c51e0 | 20 20 20 20 28 63 6f 6e 73 70 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 28 65 71 20 3a 65 6d 61 | ....(consp.info)........(eq.:ema |
| 1c5200 | 63 73 2d 62 75 66 66 65 72 20 28 63 61 72 20 69 6e 66 6f 29 29 29 29 0a 0a 0a 3b 3b 3b 3b 3b 20 | cs-buffer.(car.info))))...;;;;;. |
| 1c5220 | 47 72 6f 76 65 6c 69 6e 67 20 73 6f 75 72 63 65 2d 63 6f 64 65 20 66 6f 72 20 70 6f 73 69 74 69 | Groveling.source-code.for.positi |
| 1c5240 | 6f 6e 73 0a 0a 28 64 65 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 74 72 65 61 6d | ons..(defun.code-location-stream |
| 1c5260 | 2d 70 6f 73 69 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 74 72 65 61 6d 29 | -position.(code-location.stream) |
| 1c5280 | 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 62 79 74 65 20 6f 66 66 73 65 74 20 6f 66 20 27 63 | ..."Return.the.byte.offset.of.'c |
| 1c52a0 | 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 69 6e 20 27 73 74 72 65 61 6d 2e 20 20 45 78 74 72 61 63 | ode-location.in.'stream...Extrac |
| 1c52c0 | 74 20 74 68 65 0a 20 20 74 6f 70 6c 65 76 65 6c 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 61 6e 64 | t.the...toplevel-form-number.and |
| 1c52e0 | 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 66 72 6f 6d 20 27 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e | .form-number.from.'code-location |
| 1c5300 | 20 61 6e 64 20 75 73 65 20 74 68 61 74 0a 20 20 74 6f 20 66 69 6e 64 20 74 68 65 20 70 6f 73 69 | .and.use.that...to.find.the.posi |
| 1c5320 | 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 66 6f 72 6d 2e 0a | tion.of.the.corresponding.form.. |
| 1c5340 | 0a 20 20 46 69 6e 69 73 68 20 77 69 74 68 20 27 73 74 72 65 61 6d 20 70 6f 73 69 74 69 6f 6e 65 | ...Finish.with.'stream.positione |
| 1c5360 | 64 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 63 6f 64 65 20 6c 6f 63 61 74 | d.at.the.start.of.the.code.locat |
| 1c5380 | 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6c 6f 63 61 74 69 6f 6e 20 28 64 65 62 75 67 3a | ion."...(let*.((location.(debug: |
| 1c53a0 | 3a 6d 61 79 62 65 2d 62 6c 6f 63 6b 2d 73 74 61 72 74 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 | :maybe-block-start-location.code |
| 1c53c0 | 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 09 20 28 74 6c 66 2d 6f 66 66 73 65 74 20 28 64 69 3a 63 6f | -location))...(tlf-offset.(di:co |
| 1c53e0 | 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 2d 6c 65 76 65 6c 2d 66 6f 72 6d 2d 6f 66 66 73 65 | de-location-top-level-form-offse |
| 1c5400 | 74 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 09 20 28 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 28 64 69 3a | t.location))...(form-number.(di: |
| 1c5420 | 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 6c 6f 63 61 74 69 | code-location-form-number.locati |
| 1c5440 | 6f 6e 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 66 6f 72 6d 2d 6e 75 6d 62 65 | on))).....(let.((pos.(form-numbe |
| 1c5460 | 72 2d 73 74 72 65 61 6d 2d 70 6f 73 69 74 69 6f 6e 20 74 6c 66 2d 6f 66 66 73 65 74 20 66 6f 72 | r-stream-position.tlf-offset.for |
| 1c5480 | 6d 2d 6e 75 6d 62 65 72 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 20 20 28 66 69 6c 65 2d 70 | m-number.stream))).......(file-p |
| 1c54a0 | 6f 73 69 74 69 6f 6e 20 73 74 72 65 61 6d 20 70 6f 73 29 0a 20 20 20 20 20 20 70 6f 73 29 29 29 | osition.stream.pos).......pos))) |
| 1c54c0 | 0a 0a 28 64 65 66 75 6e 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 2d 73 74 72 65 61 6d 2d 70 6f 73 69 | ..(defun.form-number-stream-posi |
| 1c54e0 | 74 69 6f 6e 20 28 74 6c 66 2d 6e 75 6d 62 65 72 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 73 74 72 | tion.(tlf-number.form-number.str |
| 1c5500 | 65 61 6d 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 74 61 72 74 69 6e 67 20 63 68 61 72 | eam)..."Return.the.starting.char |
| 1c5520 | 61 63 74 65 72 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 61 20 66 6f 72 6d 20 69 6e 20 27 73 74 72 | acter.position.of.a.form.in.'str |
| 1c5540 | 65 61 6d 2e 0a 20 20 27 74 6c 66 2d 6e 75 6d 62 65 72 20 69 73 20 74 68 65 20 74 6f 70 2d 6c 65 | eam....'tlf-number.is.the.top-le |
| 1c5560 | 76 65 6c 2d 66 6f 72 6d 20 6e 75 6d 62 65 72 2e 0a 20 20 27 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 | vel-form.number....'form-number. |
| 1c5580 | 69 73 20 61 6e 20 69 6e 64 65 78 20 69 6e 74 6f 20 61 20 73 6f 75 72 63 65 2d 70 61 74 68 20 74 | is.an.index.into.a.source-path.t |
| 1c55a0 | 61 62 6c 65 20 66 6f 72 20 74 68 65 20 54 4c 46 2e 22 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 | able.for.the.TLF."...(multiple-v |
| 1c55c0 | 61 6c 75 65 2d 62 69 6e 64 20 28 74 6c 66 20 70 6f 73 69 74 69 6f 6e 2d 6d 61 70 29 20 28 72 65 | alue-bind.(tlf.position-map).(re |
| 1c55e0 | 61 64 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 20 74 6c 66 2d 6e 75 6d 62 65 72 20 73 74 72 65 61 6d | ad-source-form.tlf-number.stream |
| 1c5600 | 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 74 68 2d 74 61 62 6c 65 20 28 64 69 3a 66 6f 72 | ).....(let*.((path-table.(di:for |
| 1c5620 | 6d 2d 6e 75 6d 62 65 72 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 74 6c 66 20 30 29 29 0a 20 20 | m-number-translations.tlf.0))... |
| 1c5640 | 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 | .........(source-path........... |
| 1c5660 | 20 20 28 69 66 20 28 3c 3d 20 28 6c 65 6e 67 74 68 20 70 61 74 68 2d 74 61 62 6c 65 29 20 66 6f | ..(if.(<=.(length.path-table).fo |
| 1c5680 | 72 6d 2d 6e 75 6d 62 65 72 29 20 3b 20 73 6f 75 72 63 65 20 6f 75 74 20 6f 66 20 73 79 6e 63 3f | rm-number).;.source.out.of.sync? |
| 1c56a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 30 29 20 20 20 20 20 20 20 | .................(list.0)....... |
| 1c56c0 | 20 20 20 20 20 20 20 20 20 3b 20 73 68 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 73 69 67 6e 61 | .........;.should.probably.signa |
| 1c56e0 | 6c 20 61 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 | l.a.condition.................(r |
| 1c5700 | 65 76 65 72 73 65 20 28 63 64 72 20 28 61 72 65 66 20 70 61 74 68 2d 74 61 62 6c 65 20 66 6f 72 | everse.(cdr.(aref.path-table.for |
| 1c5720 | 6d 2d 6e 75 6d 62 65 72 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 | m-number)))))).......(source-pat |
| 1c5740 | 68 2d 73 6f 75 72 63 65 2d 70 6f 73 69 74 69 6f 6e 20 73 6f 75 72 63 65 2d 70 61 74 68 20 74 6c | h-source-position.source-path.tl |
| 1c5760 | 66 20 70 6f 73 69 74 69 6f 6e 2d 6d 61 70 29 29 29 29 0a 20 20 0a 28 64 65 66 75 6e 20 63 6f 64 | f.position-map))))....(defun.cod |
| 1c5780 | 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 74 72 69 6e 67 2d 6f 66 66 73 65 74 20 28 63 6f 64 65 2d 6c | e-location-string-offset.(code-l |
| 1c57a0 | 6f 63 61 74 69 6f 6e 20 73 74 72 69 6e 67 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 62 79 | ocation.string)..."Return.the.by |
| 1c57c0 | 74 65 20 6f 66 66 73 65 74 20 6f 66 20 27 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 69 6e 20 27 | te.offset.of.'code-location.in.' |
| 1c57e0 | 73 74 72 69 6e 67 2e 0a 20 20 53 65 65 20 27 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 74 72 | string....See.'code-location-str |
| 1c5800 | 65 61 6d 2d 70 6f 73 69 74 69 6f 6e 2e 22 0a 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f | eam-position."...(with-input-fro |
| 1c5820 | 6d 2d 73 74 72 69 6e 67 20 28 73 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 63 6f 64 65 2d 6c 6f | m-string.(s.string).....(code-lo |
| 1c5840 | 63 61 74 69 6f 6e 2d 73 74 72 65 61 6d 2d 70 6f 73 69 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 | cation-stream-position.code-loca |
| 1c5860 | 74 69 6f 6e 20 73 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 | tion.s)))....;;;;.Finding.defini |
| 1c5880 | 74 69 6f 6e 73 0a 0a 3b 3b 3b 20 54 68 65 72 65 20 61 72 65 20 61 20 67 72 65 61 74 20 6d 61 6e | tions..;;;.There.are.a.great.man |
| 1c58a0 | 79 20 64 69 66 66 65 72 65 6e 74 20 74 79 70 65 73 20 6f 66 20 64 65 66 69 6e 69 74 69 6f 6e 20 | y.different.types.of.definition. |
| 1c58c0 | 66 6f 72 20 75 73 20 74 6f 0a 3b 3b 3b 20 66 69 6e 64 2e 20 57 65 20 73 65 61 72 63 68 20 66 6f | for.us.to.;;;.find..We.search.fo |
| 1c58e0 | 72 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 6f 66 20 65 76 65 72 79 20 6b 69 6e 64 20 61 6e 64 20 | r.definitions.of.every.kind.and. |
| 1c5900 | 72 65 74 75 72 6e 20 74 68 65 6d 20 69 6e 20 61 0a 3b 3b 3b 20 6c 69 73 74 2e 0a 0a 28 64 65 66 | return.them.in.a.;;;.list...(def |
| 1c5920 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 | implementation.find-definitions. |
| 1c5940 | 28 6e 61 6d 65 29 0a 20 20 28 61 70 70 65 6e 64 20 28 66 75 6e 63 74 69 6f 6e 2d 64 65 66 69 6e | (name)...(append.(function-defin |
| 1c5960 | 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 2d 64 65 66 | itions.name)...........(setf-def |
| 1c5980 | 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 72 69 61 62 | initions.name)...........(variab |
| 1c59a0 | 6c 65 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 | le-definitions.name)...........( |
| 1c59c0 | 63 6c 61 73 73 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 | class-definitions.name)......... |
| 1c59e0 | 20 20 28 74 79 70 65 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 | ..(type-definitions.name)....... |
| 1c5a00 | 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 | ....(compiler-macro-definitions. |
| 1c5a20 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 74 72 61 6e 73 66 6f 72 | name)...........(source-transfor |
| 1c5a40 | 6d 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 | m-definitions.name)...........(f |
| 1c5a60 | 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 | unction-info-definitions.name).. |
| 1c5a80 | 20 20 20 20 20 20 20 20 20 28 69 72 31 2d 74 72 61 6e 73 6c 61 74 6f 72 2d 64 65 66 69 6e 69 74 | .........(ir1-translator-definit |
| 1c5aa0 | 69 6f 6e 73 20 6e 61 6d 65 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 46 75 6e 63 74 69 6f 6e 73 2c 20 6d | ions.name)))..;;;;;.Functions,.m |
| 1c5ac0 | 61 63 72 6f 73 2c 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 73 2c 20 6d 65 74 68 6f 64 | acros,.generic.functions,.method |
| 1c5ae0 | 73 0a 3b 3b 3b 0a 3b 3b 3b 20 57 65 20 6d 61 6b 65 20 65 78 74 65 6e 73 69 76 65 20 75 73 65 20 | s.;;;.;;;.We.make.extensive.use. |
| 1c5b00 | 6f 66 20 74 68 65 20 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 64 65 62 75 67 20 69 6e 66 6f 72 6d | of.the.compile-time.debug.inform |
| 1c5b20 | 61 74 69 6f 6e 20 74 68 61 74 0a 3b 3b 3b 20 53 43 4c 20 72 65 63 6f 72 64 73 2c 20 69 6e 20 70 | ation.that.;;;.SCL.records,.in.p |
| 1c5b40 | 61 72 74 69 63 75 6c 61 72 20 22 64 65 62 75 67 20 66 75 6e 63 74 69 6f 6e 73 22 20 61 6e 64 20 | articular."debug.functions".and. |
| 1c5b60 | 22 63 6f 64 65 0a 3b 3b 3b 20 6c 6f 63 61 74 69 6f 6e 73 2e 22 20 52 65 66 65 72 20 74 6f 20 74 | "code.;;;.locations.".Refer.to.t |
| 1c5b80 | 68 65 20 22 44 65 62 75 67 67 65 72 20 50 72 6f 67 72 61 6d 6d 65 72 27 73 20 49 6e 74 65 72 66 | he."Debugger.Programmer's.Interf |
| 1c5ba0 | 61 63 65 22 20 73 65 63 74 69 6f 6e 0a 3b 3b 3b 20 6f 66 20 74 68 65 20 53 43 4c 20 6d 61 6e 75 | ace".section.;;;.of.the.SCL.manu |
| 1c5bc0 | 61 6c 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 28 64 65 66 75 6e 20 66 75 6e | al.for.more.details...(defun.fun |
| 1c5be0 | 63 74 69 6f 6e 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 | ction-definitions.(name)..."Retu |
| 1c5c00 | 72 6e 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 6f 72 20 27 6e 61 6d 65 20 69 6e 20 74 68 65 20 | rn.definitions.for.'name.in.the. |
| 1c5c20 | 5c 22 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 70 61 63 65 5c 22 2c 20 69 2e 65 2e 2c 0a 20 20 | \"function.namespace\",.i.e.,... |
| 1c5c40 | 72 65 67 75 6c 61 72 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 | regular.functions,.generic.funct |
| 1c5c60 | 69 6f 6e 73 2c 20 6d 65 74 68 6f 64 73 20 61 6e 64 20 6d 61 63 72 6f 73 2e 0a 20 20 27 6e 61 6d | ions,.methods.and.macros....'nam |
| 1c5c80 | 65 20 63 61 6e 20 61 6e 79 20 76 61 6c 69 64 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 28 65 | e.can.any.valid.function.name.(e |
| 1c5ca0 | 2e 67 2c 20 28 73 65 74 66 20 63 61 72 29 29 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 61 63 72 6f | .g,.(setf.car))."...(let.((macro |
| 1c5cc0 | 3f 20 20 20 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 20 28 6d 61 63 72 6f 2d | ?....(and.(symbolp.name).(macro- |
| 1c5ce0 | 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 70 65 63 69 61 | function.name))).........(specia |
| 1c5d00 | 6c 3f 20 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 20 28 73 70 65 63 69 61 6c | l?..(and.(symbolp.name).(special |
| 1c5d20 | 2d 6f 70 65 72 61 74 6f 72 2d 70 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e | -operator-p.name))).........(fun |
| 1c5d40 | 63 74 69 6f 6e 3f 20 28 61 6e 64 20 28 76 61 6c 69 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 | ction?.(and.(valid-function-name |
| 1c5d60 | 2d 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -p.name)........................ |
| 1c5d80 | 20 28 65 78 74 3a 69 6e 66 6f 20 3a 66 75 6e 63 74 69 6f 6e 20 3a 64 65 66 69 6e 69 74 69 6f 6e | .(ext:info.:function.:definition |
| 1c5da0 | 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .name).........................( |
| 1c5dc0 | 69 66 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 20 28 66 62 6f 75 6e 64 70 20 6e 61 6d 65 29 | if.(symbolp.name).(fboundp.name) |
| 1c5de0 | 20 74 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 6d 61 63 72 6f 3f 20 0a 20 20 20 20 20 20 | .t)))).....(cond.(macro?........ |
| 1c5e00 | 20 20 20 20 20 28 6c 69 73 74 20 60 28 28 64 65 66 6d 61 63 72 6f 20 2c 6e 61 6d 65 29 0a 20 20 | .....(list.`((defmacro.,name)... |
| 1c5e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 | .................,(function-loca |
| 1c5e40 | 74 69 6f 6e 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 29 29 29 0a 20 | tion.(macro-function.name))))).. |
| 1c5e60 | 20 20 20 20 20 20 20 20 20 28 73 70 65 63 69 61 6c 3f 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c | .........(special?............(l |
| 1c5e80 | 69 73 74 20 60 28 28 3a 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 20 2c 6e 61 6d 65 29 20 | ist.`((:special-operator.,name). |
| 1c5ea0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 65 72 72 6f 72 20 2c 28 66 6f | ....................(:error.,(fo |
| 1c5ec0 | 72 6d 61 74 20 6e 69 6c 20 22 53 70 65 63 69 61 6c 20 6f 70 65 72 61 74 6f 72 3a 20 7e 53 22 20 | rmat.nil."Special.operator:.~S". |
| 1c5ee0 | 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 3f 0a 20 | name)))))...........(function?.. |
| 1c5f00 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 75 6e 63 74 69 6f 6e 20 28 66 64 65 66 69 | ..........(let.((function.(fdefi |
| 1c5f20 | 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | nition.name)))..............(if. |
| 1c5f40 | 28 67 65 6e 65 72 69 63 70 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (genericp.function)............. |
| 1c5f60 | 20 20 20 20 20 28 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 64 65 66 69 6e 69 74 69 6f | .....(generic-function-definitio |
| 1c5f80 | 6e 73 20 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ns.name.function)............... |
| 1c5fa0 | 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 60 28 66 75 6e 63 74 69 6f 6e 20 2c 6e 61 6d 65 29 | ...(list.(list.`(function.,name) |
| 1c5fc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | ..............................(f |
| 1c5fe0 | 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 29 29 29 | unction-location.function))))))) |
| 1c6000 | 29 29 0a 0a 3b 3b 3b 3b 3b 3b 20 4f 72 64 69 6e 61 72 79 20 28 6e 6f 6e 2d 67 65 6e 65 72 69 63 | ))..;;;;;;.Ordinary.(non-generic |
| 1c6020 | 2f 6d 61 63 72 6f 2f 73 70 65 63 69 61 6c 29 20 66 75 6e 63 74 69 6f 6e 73 0a 3b 3b 3b 0a 3b 3b | /macro/special).functions.;;;.;; |
| 1c6040 | 3b 20 46 69 72 73 74 20 77 65 20 74 65 73 74 20 69 66 20 46 55 4e 43 54 49 4f 4e 20 69 73 20 61 | ;.First.we.test.if.FUNCTION.is.a |
| 1c6060 | 20 63 6c 6f 73 75 72 65 20 63 72 65 61 74 65 64 20 62 79 20 64 65 66 73 74 72 75 63 74 2c 20 61 | .closure.created.by.defstruct,.a |
| 1c6080 | 6e 64 0a 3b 3b 3b 20 69 66 20 73 6f 20 65 78 74 72 61 63 74 20 74 68 65 20 64 65 66 73 74 72 75 | nd.;;;.if.so.extract.the.defstru |
| 1c60a0 | 63 74 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 28 60 64 64 27 29 20 66 72 6f 6d 20 74 68 65 20 63 | ct-description.(`dd').from.the.c |
| 1c60c0 | 6c 6f 73 75 72 65 0a 3b 3b 3b 20 61 6e 64 20 66 69 6e 64 20 74 68 65 20 63 6f 6e 73 74 72 75 63 | losure.;;;.and.find.the.construc |
| 1c60e0 | 74 6f 72 20 66 6f 72 20 74 68 65 20 73 74 72 75 63 74 2e 20 20 44 65 66 73 74 72 75 63 74 20 63 | tor.for.the.struct...Defstruct.c |
| 1c6100 | 72 65 61 74 65 73 20 61 0a 3b 3b 3b 20 64 65 66 75 6e 20 66 6f 72 20 74 68 65 20 64 65 66 61 75 | reates.a.;;;.defun.for.the.defau |
| 1c6120 | 6c 74 20 63 6f 6e 73 74 72 75 63 74 6f 72 20 61 6e 64 20 77 65 20 75 73 65 20 74 68 61 74 20 61 | lt.constructor.and.we.use.that.a |
| 1c6140 | 73 20 61 6e 0a 3b 3b 3b 20 61 70 70 72 6f 78 69 6d 61 74 69 6f 6e 20 74 6f 20 74 68 65 20 73 6f | s.an.;;;.approximation.to.the.so |
| 1c6160 | 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 65 66 73 74 72 75 63 74 2e 0a | urce.location.of.the.defstruct.. |
| 1c6180 | 3b 3b 3b 0a 3b 3b 3b 20 46 6f 72 20 61 6e 20 6f 72 64 69 6e 61 72 79 20 66 75 6e 63 74 69 6f 6e | ;;;.;;;.For.an.ordinary.function |
| 1c61a0 | 20 77 65 20 72 65 74 75 72 6e 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 6f | .we.return.the.source.location.o |
| 1c61c0 | 66 20 74 68 65 0a 3b 3b 3b 20 66 69 72 73 74 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 77 65 | f.the.;;;.first.code-location.we |
| 1c61e0 | 20 66 69 6e 64 2e 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 | .find..;;;.(defun.function-locat |
| 1c6200 | 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 6f 75 | ion.(function)..."Return.the.sou |
| 1c6220 | 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 46 55 4e 43 54 49 4f 4e 2e 22 0a 20 20 28 63 | rce.location.for.FUNCTION."...(c |
| 1c6240 | 6f 6e 64 20 28 28 73 74 72 75 63 74 2d 63 6c 6f 73 75 72 65 2d 70 20 66 75 6e 63 74 69 6f 6e 29 | ond.((struct-closure-p.function) |
| 1c6260 | 0a 20 20 20 20 20 20 20 20 20 28 73 74 72 75 63 74 2d 63 6c 6f 73 75 72 65 2d 6c 6f 63 61 74 69 | ..........(struct-closure-locati |
| 1c6280 | 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 28 63 3a 3a 62 79 74 65 2d | on.function)).........((c::byte- |
| 1c62a0 | 66 75 6e 63 74 69 6f 6e 2d 6f 72 2d 63 6c 6f 73 75 72 65 2d 70 20 66 75 6e 63 74 69 6f 6e 29 0a | function-or-closure-p.function). |
| 1c62c0 | 20 20 20 20 20 20 20 20 20 28 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e | .........(byte-function-location |
| 1c62e0 | 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 | .function)).........(t.......... |
| 1c6300 | 28 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 | (compiled-function-location.func |
| 1c6320 | 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 | tion))))..(defun.compiled-functi |
| 1c6340 | 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e | on-location.(function)..."Return |
| 1c6360 | 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 61 20 72 65 67 75 6c 61 72 20 63 6f 6d 70 69 | .the.location.of.a.regular.compi |
| 1c6380 | 6c 65 64 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | led.function."...(multiple-value |
| 1c63a0 | 2d 62 69 6e 64 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 29 0a 20 20 20 20 | -bind.(code-location.error)..... |
| 1c63c0 | 20 20 28 73 61 66 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 20 28 66 75 6e 63 | ..(safe-definition-finding.(func |
| 1c63e0 | 74 69 6f 6e 2d 66 69 72 73 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f | tion-first-code-location.functio |
| 1c6400 | 6e 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 65 72 72 6f 72 20 28 6c 69 73 74 20 3a 65 72 72 6f | n)).....(cond.(error.(list.:erro |
| 1c6420 | 72 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 65 72 72 6f 72 29 29 29 0a 20 20 20 20 | r.(princ-to-string.error)))..... |
| 1c6440 | 20 20 20 20 20 20 28 74 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c | ......(t.(code-location-source-l |
| 1c6460 | 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 | ocation.code-location)))))..(def |
| 1c6480 | 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 66 69 72 73 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 | un.function-first-code-location. |
| 1c64a0 | 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 63 | (function)..."Return.the.first.c |
| 1c64c0 | 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 77 65 20 63 61 6e 20 66 69 6e 64 20 66 6f 72 20 27 66 75 | ode-location.we.can.find.for.'fu |
| 1c64e0 | 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e 2d 68 61 73 2d 64 65 | nction."...(and.(function-has-de |
| 1c6500 | 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 | bug-function-p.function)........ |
| 1c6520 | 28 64 69 3a 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 73 74 61 72 74 2d 6c 6f 63 61 74 69 6f | (di:debug-function-start-locatio |
| 1c6540 | 6e 0a 20 20 20 20 20 20 20 20 28 64 69 3a 66 75 6e 63 74 69 6f 6e 2d 64 65 62 75 67 2d 66 75 6e | n.........(di:function-debug-fun |
| 1c6560 | 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 | ction.function))))..(defun.funct |
| 1c6580 | 69 6f 6e 2d 68 61 73 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 28 66 75 6e 63 74 69 | ion-has-debug-function-p.(functi |
| 1c65a0 | 6f 6e 29 0a 20 20 28 64 69 3a 66 75 6e 63 74 69 6f 6e 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f | on)...(di:function-debug-functio |
| 1c65c0 | 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 63 6f | n.function))..(defun.function-co |
| 1c65e0 | 64 65 2d 6f 62 6a 65 63 74 3d 20 28 63 6c 6f 73 75 72 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 | de-object=.(closure.function)... |
| 1c6600 | 28 61 6e 64 20 28 65 71 20 28 76 6d 3a 3a 66 69 6e 64 2d 63 6f 64 65 2d 6f 62 6a 65 63 74 20 63 | (and.(eq.(vm::find-code-object.c |
| 1c6620 | 6c 6f 73 75 72 65 29 0a 09 20 20 20 28 76 6d 3a 3a 66 69 6e 64 2d 63 6f 64 65 2d 6f 62 6a 65 63 | losure).....(vm::find-code-objec |
| 1c6640 | 74 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 63 6c 6f | t.function))........(not.(eq.clo |
| 1c6660 | 73 75 72 65 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 62 79 74 65 2d | sure.function))))...(defun.byte- |
| 1c6680 | 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 6e 29 0a 20 20 22 52 65 74 75 72 6e | function-location.(fn)..."Return |
| 1c66a0 | 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 62 79 74 65 2d 63 6f 6d 70 69 6c | .the.location.of.the.byte-compil |
| 1c66c0 | 65 64 20 66 75 6e 63 74 69 6f 6e 20 27 66 6e 2e 22 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 66 | ed.function.'fn."...(etypecase.f |
| 1c66e0 | 6e 0a 20 20 20 20 28 28 6f 72 20 63 3a 3a 68 61 69 72 79 2d 62 79 74 65 2d 66 75 6e 63 74 69 6f | n.....((or.c::hairy-byte-functio |
| 1c6700 | 6e 20 63 3a 3a 73 69 6d 70 6c 65 2d 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 | n.c::simple-byte-function)...... |
| 1c6720 | 28 6c 65 74 2a 20 28 28 63 6f 6d 70 6f 6e 65 6e 74 20 28 63 3a 3a 62 79 74 65 2d 66 75 6e 63 74 | (let*.((component.(c::byte-funct |
| 1c6740 | 69 6f 6e 2d 63 6f 6d 70 6f 6e 65 6e 74 20 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | ion-component.fn)).............( |
| 1c6760 | 64 65 62 75 67 2d 69 6e 66 6f 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 64 65 62 75 67 2d 69 | debug-info.(kernel:%code-debug-i |
| 1c6780 | 6e 66 6f 20 63 6f 6d 70 6f 6e 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 28 64 65 62 75 67 2d 69 | nfo.component)))........(debug-i |
| 1c67a0 | 6e 66 6f 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 6c 6f 63 61 74 69 6f 6e 20 64 65 62 75 67 | nfo-function-name-location.debug |
| 1c67c0 | 2d 69 6e 66 6f 29 29 29 0a 20 20 20 20 28 63 3a 3a 62 79 74 65 2d 63 6c 6f 73 75 72 65 0a 20 20 | -info))).....(c::byte-closure... |
| 1c67e0 | 20 20 20 28 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 3a 3a 62 | ...(byte-function-location.(c::b |
| 1c6800 | 79 74 65 2d 63 6c 6f 73 75 72 65 2d 66 75 6e 63 74 69 6f 6e 20 66 6e 29 29 29 29 29 0a 0a 3b 3b | yte-closure-function.fn)))))..;; |
| 1c6820 | 3b 20 48 65 72 65 20 77 65 20 64 65 61 6c 20 77 69 74 68 20 73 74 72 75 63 74 75 72 65 20 61 63 | ;.Here.we.deal.with.structure.ac |
| 1c6840 | 63 65 73 73 6f 72 73 2e 20 4e 6f 74 65 20 74 68 61 74 20 60 64 64 27 20 69 73 20 61 0a 3b 3b 3b | cessors..Note.that.`dd'.is.a.;;; |
| 1c6860 | 20 22 64 65 66 73 74 72 75 63 74 20 64 65 73 63 72 69 70 74 6f 72 22 20 73 74 72 75 63 74 75 72 | ."defstruct.descriptor".structur |
| 1c6880 | 65 20 69 6e 20 53 43 4c 2e 20 41 20 60 64 64 27 20 64 65 73 63 72 69 62 65 73 20 61 0a 3b 3b 3b | e.in.SCL..A.`dd'.describes.a.;;; |
| 1c68a0 | 20 60 64 65 66 73 74 72 75 63 74 27 27 64 20 73 74 72 75 63 74 75 72 65 2e 0a 0a 28 64 65 66 75 | .`defstruct''d.structure...(defu |
| 1c68c0 | 6e 20 73 74 72 75 63 74 2d 63 6c 6f 73 75 72 65 2d 70 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 | n.struct-closure-p.(function)... |
| 1c68e0 | 22 49 73 20 27 66 75 6e 63 74 69 6f 6e 20 61 20 63 6c 6f 73 75 72 65 20 63 72 65 61 74 65 64 20 | "Is.'function.a.closure.created. |
| 1c6900 | 62 79 20 64 65 66 73 74 72 75 63 74 3f 22 0a 20 20 28 6f 72 20 28 66 75 6e 63 74 69 6f 6e 2d 63 | by.defstruct?"...(or.(function-c |
| 1c6920 | 6f 64 65 2d 6f 62 6a 65 63 74 3d 20 66 75 6e 63 74 69 6f 6e 20 23 27 6b 65 72 6e 65 6c 3a 3a 73 | ode-object=.function.#'kernel::s |
| 1c6940 | 74 72 75 63 74 75 72 65 2d 73 6c 6f 74 2d 61 63 63 65 73 73 6f 72 29 0a 20 20 20 20 20 20 28 66 | tructure-slot-accessor).......(f |
| 1c6960 | 75 6e 63 74 69 6f 6e 2d 63 6f 64 65 2d 6f 62 6a 65 63 74 3d 20 66 75 6e 63 74 69 6f 6e 20 23 27 | unction-code-object=.function.#' |
| 1c6980 | 6b 65 72 6e 65 6c 3a 3a 73 74 72 75 63 74 75 72 65 2d 73 6c 6f 74 2d 73 65 74 74 65 72 29 0a 20 | kernel::structure-slot-setter).. |
| 1c69a0 | 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 63 6f 64 65 2d 6f 62 6a 65 63 74 3d 20 66 75 6e 63 | .....(function-code-object=.func |
| 1c69c0 | 74 69 6f 6e 20 23 27 6b 65 72 6e 65 6c 3a 3a 25 64 65 66 73 74 72 75 63 74 29 29 29 0a 0a 28 64 | tion.#'kernel::%defstruct)))..(d |
| 1c69e0 | 65 66 75 6e 20 73 74 72 75 63 74 2d 63 6c 6f 73 75 72 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 75 | efun.struct-closure-location.(fu |
| 1c6a00 | 6e 63 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f | nction)..."Return.the.location.o |
| 1c6a20 | 66 20 74 68 65 20 73 74 72 75 63 74 75 72 65 20 74 68 61 74 20 27 66 75 6e 63 74 69 6f 6e 20 62 | f.the.structure.that.'function.b |
| 1c6a40 | 65 6c 6f 6e 67 73 20 74 6f 2e 22 0a 20 20 28 61 73 73 65 72 74 20 28 73 74 72 75 63 74 2d 63 6c | elongs.to."...(assert.(struct-cl |
| 1c6a60 | 6f 73 75 72 65 2d 70 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 73 61 66 65 2d 64 65 66 69 6e | osure-p.function))...(safe-defin |
| 1c6a80 | 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 0a 20 20 20 20 28 64 64 2d 6c 6f 63 61 74 69 6f 6e 20 28 | ition-finding.....(dd-location.( |
| 1c6aa0 | 73 74 72 75 63 74 2d 63 6c 6f 73 75 72 65 2d 64 64 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a | struct-closure-dd.function)))).. |
| 1c6ac0 | 28 64 65 66 75 6e 20 73 74 72 75 63 74 2d 63 6c 6f 73 75 72 65 2d 64 64 20 28 66 75 6e 63 74 69 | (defun.struct-closure-dd.(functi |
| 1c6ae0 | 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 64 65 66 73 74 72 75 63 74 2d 64 65 66 69 | on)..."Return.the.defstruct-defi |
| 1c6b00 | 6e 69 74 69 6f 6e 20 28 64 64 29 20 6f 66 20 46 55 4e 43 54 49 4f 4e 2e 22 0a 20 20 28 61 73 73 | nition.(dd).of.FUNCTION."...(ass |
| 1c6b20 | 65 72 74 20 28 3d 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 74 79 70 65 20 66 75 6e 63 74 69 6f 6e | ert.(=.(kernel:get-type.function |
| 1c6b40 | 29 20 76 6d 3a 63 6c 6f 73 75 72 65 2d 68 65 61 64 65 72 2d 74 79 70 65 29 29 0a 20 20 28 66 6c | ).vm:closure-header-type))...(fl |
| 1c6b60 | 65 74 20 28 28 66 69 6e 64 2d 6c 61 79 6f 75 74 20 28 66 75 6e 63 74 69 6f 6e 29 0a 09 20 20 20 | et.((find-layout.(function)..... |
| 1c6b80 | 28 73 79 73 3a 66 69 6e 64 2d 69 66 2d 69 6e 2d 63 6c 6f 73 75 72 65 20 0a 09 20 20 20 20 28 6c | (sys:find-if-in-closure.......(l |
| 1c6ba0 | 61 6d 62 64 61 20 28 78 29 20 0a 09 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 20 28 | ambda.(x).........(let.((value.( |
| 1c6bc0 | 69 66 20 28 64 69 3a 3a 69 6e 64 69 72 65 63 74 2d 76 61 6c 75 65 2d 63 65 6c 6c 2d 70 20 78 29 | if.(di::indirect-value-cell-p.x) |
| 1c6be0 | 0a 09 09 09 20 20 20 20 20 20 20 28 63 3a 76 61 6c 75 65 2d 63 65 6c 6c 2d 72 65 66 20 78 29 20 | ...........(c:value-cell-ref.x). |
| 1c6c00 | 0a 09 09 09 20 20 20 20 20 20 20 78 29 29 29 0a 09 09 28 77 68 65 6e 20 28 6b 65 72 6e 65 6c 3a | ...........x)))...(when.(kernel: |
| 1c6c20 | 3a 6c 61 79 6f 75 74 2d 70 20 76 61 6c 75 65 29 0a 09 09 20 20 28 72 65 74 75 72 6e 2d 66 72 6f | :layout-p.value).....(return-fro |
| 1c6c40 | 6d 20 66 69 6e 64 2d 6c 61 79 6f 75 74 20 76 61 6c 75 65 29 29 29 29 0a 09 20 20 20 20 66 75 6e | m.find-layout.value))))......fun |
| 1c6c60 | 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 6b 65 72 6e 65 6c 3a 6c 61 79 6f 75 74 2d 69 6e 66 6f | ction))).....(kernel:layout-info |
| 1c6c80 | 20 28 66 69 6e 64 2d 6c 61 79 6f 75 74 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 | .(find-layout.function))))..(def |
| 1c6ca0 | 75 6e 20 64 64 2d 6c 6f 63 61 74 69 6f 6e 20 28 64 64 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 | un.dd-location.(dd)..."Return.th |
| 1c6cc0 | 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 61 20 60 64 65 66 73 74 72 75 63 74 27 2e 22 0a 20 20 | e.location.of.a.`defstruct'."... |
| 1c6ce0 | 3b 3b 20 46 69 6e 64 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 69 6e 20 61 20 63 6f 6e 73 74 72 | ;;.Find.the.location.in.a.constr |
| 1c6d00 | 75 63 74 6f 72 2e 0a 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 73 74 72 | uctor....(function-location.(str |
| 1c6d20 | 75 63 74 2d 63 6f 6e 73 74 72 75 63 74 6f 72 20 64 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 | uct-constructor.dd)))..(defun.st |
| 1c6d40 | 72 75 63 74 2d 63 6f 6e 73 74 72 75 63 74 6f 72 20 28 64 64 29 0a 20 20 22 52 65 74 75 72 6e 20 | ruct-constructor.(dd)..."Return. |
| 1c6d60 | 61 20 63 6f 6e 73 74 72 75 63 74 6f 72 20 66 75 6e 63 74 69 6f 6e 20 66 72 6f 6d 20 61 20 64 65 | a.constructor.function.from.a.de |
| 1c6d80 | 66 73 74 72 75 63 74 20 64 65 66 69 6e 69 74 69 6f 6e 2e 0a 53 69 67 6e 61 6c 20 61 6e 20 65 72 | fstruct.definition..Signal.an.er |
| 1c6da0 | 72 6f 72 20 69 66 20 6e 6f 20 63 6f 6e 73 74 72 75 63 74 6f 72 20 63 61 6e 20 62 65 20 66 6f 75 | ror.if.no.constructor.can.be.fou |
| 1c6dc0 | 6e 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 73 74 72 75 63 74 6f 72 20 28 6f 72 20 28 6b | nd."...(let.((constructor.(or.(k |
| 1c6de0 | 65 72 6e 65 6c 3a 64 64 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 73 74 72 75 63 74 6f 72 20 64 64 29 | ernel:dd-default-constructor.dd) |
| 1c6e00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 28 | ..........................(car.( |
| 1c6e20 | 6b 65 72 6e 65 6c 3a 3a 64 64 2d 63 6f 6e 73 74 72 75 63 74 6f 72 73 20 64 64 29 29 29 29 29 0a | kernel::dd-constructors.dd))))). |
| 1c6e40 | 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 6e 75 6c 6c 20 63 6f 6e 73 74 72 75 63 74 6f 72 29 | ....(when.(or.(null.constructor) |
| 1c6e60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 63 6f 6e 73 74 | ...............(and.(consp.const |
| 1c6e80 | 72 75 63 74 6f 72 29 20 28 6e 75 6c 6c 20 28 63 61 72 20 63 6f 6e 73 74 72 75 63 74 6f 72 29 29 | ructor).(null.(car.constructor)) |
| 1c6ea0 | 29 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 61 6e 6e 6f 74 20 66 69 6e 64 20 73 74 72 | )).......(error."Cannot.find.str |
| 1c6ec0 | 75 63 74 75 72 65 27 73 20 63 6f 6e 73 74 72 75 63 74 6f 72 3a 20 7e 53 22 0a 20 20 20 20 20 20 | ucture's.constructor:.~S"....... |
| 1c6ee0 | 20 20 20 20 20 20 20 28 6b 65 72 6e 65 6c 3a 3a 64 64 2d 6e 61 6d 65 20 64 64 29 29 29 0a 20 20 | .......(kernel::dd-name.dd)))... |
| 1c6f00 | 20 20 28 63 6f 65 72 63 65 20 28 69 66 20 28 63 6f 6e 73 70 20 63 6f 6e 73 74 72 75 63 74 6f 72 | ..(coerce.(if.(consp.constructor |
| 1c6f20 | 29 20 28 66 69 72 73 74 20 63 6f 6e 73 74 72 75 63 74 6f 72 29 20 63 6f 6e 73 74 72 75 63 74 6f | ).(first.constructor).constructo |
| 1c6f40 | 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 3b 3b 3b | r).............'function)))..;;; |
| 1c6f60 | 3b 3b 3b 20 47 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 6d 65 74 68 6f 64 | ;;;.Generic.functions.and.method |
| 1c6f80 | 73 0a 0a 28 64 65 66 75 6e 20 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 64 65 66 69 6e | s..(defun.generic-function-defin |
| 1c6fa0 | 69 74 69 6f 6e 73 20 28 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e | itions.(name.function)..."Return |
| 1c6fc0 | 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 6f 66 20 61 20 67 65 6e 65 72 69 63 20 66 75 | .the.definitions.of.a.generic.fu |
| 1c6fe0 | 6e 63 74 69 6f 6e 20 61 6e 64 20 69 74 73 20 6d 65 74 68 6f 64 73 2e 22 0a 20 20 28 63 6f 6e 73 | nction.and.its.methods."...(cons |
| 1c7000 | 20 28 6c 69 73 74 20 60 28 64 65 66 67 65 6e 65 72 69 63 20 2c 6e 61 6d 65 29 20 28 67 66 2d 6c | .(list.`(defgeneric.,name).(gf-l |
| 1c7020 | 6f 63 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 67 66 2d 6d | ocation.function)).........(gf-m |
| 1c7040 | 65 74 68 6f 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 | ethod-definitions.function)))..( |
| 1c7060 | 64 65 66 75 6e 20 67 66 2d 6c 6f 63 61 74 69 6f 6e 20 28 67 66 29 0a 20 20 22 52 65 74 75 72 6e | defun.gf-location.(gf)..."Return |
| 1c7080 | 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 67 65 6e 65 72 69 63 20 66 75 6e | .the.location.of.the.generic.fun |
| 1c70a0 | 63 74 69 6f 6e 20 47 46 2e 22 0a 20 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d | ction.GF."...(definition-source- |
| 1c70c0 | 6c 6f 63 61 74 69 6f 6e 20 67 66 20 28 63 6c 6f 73 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 | location.gf.(clos:generic-functi |
| 1c70e0 | 6f 6e 2d 6e 61 6d 65 20 67 66 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 66 2d 6d 65 74 68 6f 64 2d | on-name.gf)))..(defun.gf-method- |
| 1c7100 | 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 67 66 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c | definitions.(gf)..."Return.the.l |
| 1c7120 | 6f 63 61 74 69 6f 6e 73 20 6f 66 20 61 6c 6c 20 6d 65 74 68 6f 64 73 20 6f 66 20 74 68 65 20 67 | ocations.of.all.methods.of.the.g |
| 1c7140 | 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 47 46 2e 22 0a 20 20 28 6d 61 70 63 61 72 20 23 | eneric.function.GF."...(mapcar.# |
| 1c7160 | 27 6d 65 74 68 6f 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 63 6c 6f 73 3a 67 65 6e 65 72 69 63 | 'method-definition.(clos:generic |
| 1c7180 | 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 73 20 67 66 29 29 29 0a 0a 28 64 65 66 75 6e 20 | -function-methods.gf)))..(defun. |
| 1c71a0 | 6d 65 74 68 6f 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 6d 65 74 68 6f 64 29 0a 20 20 28 6c 69 | method-definition.(method)...(li |
| 1c71c0 | 73 74 20 28 6d 65 74 68 6f 64 2d 64 73 70 65 63 20 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 | st.(method-dspec.method)........ |
| 1c71e0 | 20 28 6d 65 74 68 6f 64 2d 6c 6f 63 61 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 29 0a 0a 28 64 65 | .(method-location.method)))..(de |
| 1c7200 | 66 75 6e 20 6d 65 74 68 6f 64 2d 64 73 70 65 63 20 28 6d 65 74 68 6f 64 29 0a 20 20 22 52 65 74 | fun.method-dspec.(method)..."Ret |
| 1c7220 | 75 72 6e 20 61 20 68 75 6d 61 6e 2d 72 65 61 64 61 62 6c 65 20 5c 22 64 65 66 69 6e 69 74 69 6f | urn.a.human-readable.\"definitio |
| 1c7240 | 6e 20 73 70 65 63 69 66 69 65 72 5c 22 20 66 6f 72 20 4d 45 54 48 4f 44 2e 22 0a 20 20 28 6c 65 | n.specifier\".for.METHOD."...(le |
| 1c7260 | 74 2a 20 28 28 67 66 20 28 63 6c 6f 73 3a 6d 65 74 68 6f 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e | t*.((gf.(clos:method-generic-fun |
| 1c7280 | 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 63 | ction.method))..........(name.(c |
| 1c72a0 | 6c 6f 73 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 67 66 29 29 0a 20 | los:generic-function-name.gf)).. |
| 1c72c0 | 20 20 20 20 20 20 20 20 28 73 70 65 63 69 61 6c 69 7a 65 72 73 20 28 63 6c 6f 73 3a 6d 65 74 68 | ........(specializers.(clos:meth |
| 1c72e0 | 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 20 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 20 20 20 | od-specializers.method))........ |
| 1c7300 | 20 20 28 71 75 61 6c 69 66 69 65 72 73 20 28 63 6c 6f 73 3a 6d 65 74 68 6f 64 2d 71 75 61 6c 69 | ..(qualifiers.(clos:method-quali |
| 1c7320 | 66 69 65 72 73 20 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 60 28 6d 65 74 68 6f 64 20 2c 6e 61 | fiers.method))).....`(method.,na |
| 1c7340 | 6d 65 20 2c 40 71 75 61 6c 69 66 69 65 72 73 20 2c 73 70 65 63 69 61 6c 69 7a 65 72 73 20 0a 20 | me.,@qualifiers.,specializers... |
| 1c7360 | 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 6e 69 6c 20 28 63 6c 6f 73 3a 3a 75 6e 70 61 72 73 65 | ............#+nil.(clos::unparse |
| 1c7380 | 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 20 73 70 65 63 69 61 6c 69 7a 65 72 73 29 29 29 29 0a 0a | -specializers.specializers)))).. |
| 1c73a0 | 3b 3b 20 58 58 58 20 6d 61 79 62 65 20 73 70 65 63 69 61 6c 20 63 61 73 65 20 73 65 74 74 65 72 | ;;.XXX.maybe.special.case.setter |
| 1c73c0 | 73 2f 67 65 74 74 65 72 73 0a 28 64 65 66 75 6e 20 6d 65 74 68 6f 64 2d 6c 6f 63 61 74 69 6f 6e | s/getters.(defun.method-location |
| 1c73e0 | 20 28 6d 65 74 68 6f 64 29 0a 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 | .(method)...(function-location.( |
| 1c7400 | 63 6c 6f 73 3a 6d 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 29 0a 0a | clos:method-function.method))).. |
| 1c7420 | 28 64 65 66 75 6e 20 67 65 6e 65 72 69 63 70 20 28 66 6e 29 0a 20 20 28 74 79 70 65 70 20 66 6e | (defun.genericp.(fn)...(typep.fn |
| 1c7440 | 20 27 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 3b 3b 3b 3b 3b 3b 20 54 79 70 | .'generic-function))..;;;;;;.Typ |
| 1c7460 | 65 73 20 61 6e 64 20 63 6c 61 73 73 65 73 0a 0a 28 64 65 66 75 6e 20 74 79 70 65 2d 64 65 66 69 | es.and.classes..(defun.type-defi |
| 1c7480 | 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 60 64 65 66 74 79 70 | nitions.(name)..."Return.`deftyp |
| 1c74a0 | 65 27 20 6c 6f 63 61 74 69 6f 6e 73 20 66 6f 72 20 74 79 70 65 20 4e 41 4d 45 2e 22 0a 20 20 28 | e'.locations.for.type.NAME."...( |
| 1c74c0 | 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 65 78 74 3a 69 6e 66 6f 20 | maybe-make-definition.(ext:info. |
| 1c74e0 | 3a 74 79 70 65 20 3a 65 78 70 61 6e 64 65 72 20 6e 61 6d 65 29 20 27 64 65 66 74 79 70 65 20 6e | :type.:expander.name).'deftype.n |
| 1c7500 | 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 | ame))..(defun.maybe-make-definit |
| 1c7520 | 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 20 6b 69 6e 64 20 6e 61 6d 65 29 0a 20 20 22 49 66 20 46 | ion.(function.kind.name)..."If.F |
| 1c7540 | 55 4e 43 54 49 4f 4e 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 74 68 65 6e 20 72 65 74 75 72 6e 20 69 | UNCTION.is.non-nil.then.return.i |
| 1c7560 | 74 73 20 64 65 66 69 6e 69 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 2e 22 0a 20 20 28 69 66 20 66 | ts.definition.location."...(if.f |
| 1c7580 | 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 60 28 2c 6b 69 6e | unction.......(list.(list.`(,kin |
| 1c75a0 | 64 20 2c 6e 61 6d 65 29 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 | d.,name).(function-location.func |
| 1c75c0 | 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 61 73 73 2d 64 65 66 69 6e 69 74 69 | tion)))))..(defun.class-definiti |
| 1c75e0 | 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 64 65 66 69 6e 69 74 | ons.(name)..."Return.the.definit |
| 1c7600 | 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 73 20 66 6f 72 20 74 68 65 20 63 6c 61 73 73 20 63 61 6c 6c | ion.locations.for.the.class.call |
| 1c7620 | 65 64 20 4e 41 4d 45 2e 22 0a 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 0a 20 | ed.NAME."...(if.(symbolp.name).. |
| 1c7640 | 20 20 20 20 20 28 6c 65 74 20 28 28 63 6c 61 73 73 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 6e 61 | .....(let.((class.(find-class.na |
| 1c7660 | 6d 65 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 63 6c 61 | me.nil))).........(etypecase.cla |
| 1c7680 | 73 73 0a 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 | ss...........(null.'())......... |
| 1c76a0 | 20 20 28 73 74 72 75 63 74 75 72 65 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c | ..(structure-class............(l |
| 1c76c0 | 69 73 74 20 28 6c 69 73 74 20 60 28 64 65 66 73 74 72 75 63 74 20 2c 6e 61 6d 65 29 0a 20 20 20 | ist.(list.`(defstruct.,name).... |
| 1c76e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 64 2d 6c 6f 63 61 74 69 6f 6e | ....................(dd-location |
| 1c7700 | 20 28 66 69 6e 64 2d 64 64 20 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 | .(find-dd.name)))))...........(s |
| 1c7720 | 74 61 6e 64 61 72 64 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 | tandard-class............(list.( |
| 1c7740 | 6c 69 73 74 20 60 28 64 65 66 63 6c 61 73 73 20 2c 6e 61 6d 65 29 20 0a 20 20 20 20 20 20 20 20 | list.`(defclass.,name).......... |
| 1c7760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 61 73 73 2d 6c 6f 63 61 74 69 6f 6e 20 28 | ...............(class-location.( |
| 1c7780 | 66 69 6e 64 2d 63 6c 61 73 73 20 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | find-class.name)))))...........( |
| 1c77a0 | 28 6f 72 20 62 75 69 6c 74 2d 69 6e 2d 63 6c 61 73 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (or.built-in-class.............. |
| 1c77c0 | 20 20 20 6b 65 72 6e 65 6c 3a 66 75 6e 63 61 6c 6c 61 62 6c 65 2d 73 74 72 75 63 74 75 72 65 2d | ...kernel:funcallable-structure- |
| 1c77e0 | 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 60 28 | class)............(list.(list.`( |
| 1c7800 | 6b 65 72 6e 65 6c 3a 3a 64 65 66 69 6e 65 2d 74 79 70 65 2d 63 6c 61 73 73 20 2c 6e 61 6d 65 29 | kernel::define-type-class.,name) |
| 1c7820 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 72 72 6f 72 | ........................`(:error |
| 1c7840 | 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 66 6f 72 | ...........................,(for |
| 1c7860 | 6d 61 74 20 6e 69 6c 20 22 4e 6f 20 73 6f 75 72 63 65 20 69 6e 66 6f 20 66 6f 72 20 7e 41 22 20 | mat.nil."No.source.info.for.~A". |
| 1c7880 | 6e 61 6d 65 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 61 73 73 2d 6c 6f 63 61 | name)))))))))..(defun.class-loca |
| 1c78a0 | 74 69 6f 6e 20 28 63 6c 61 73 73 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 60 64 65 66 63 | tion.(class)..."Return.the.`defc |
| 1c78c0 | 6c 61 73 73 27 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 43 4c 41 53 53 2e 22 0a 20 20 28 64 65 | lass'.location.for.CLASS."...(de |
| 1c78e0 | 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6c 61 73 73 20 28 | finition-source-location.class.( |
| 1c7900 | 63 6c 61 73 73 2d 6e 61 6d 65 20 63 6c 61 73 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 | class-name.class)))..(defun.find |
| 1c7920 | 2d 64 64 20 28 6e 61 6d 65 29 0a 20 20 22 46 69 6e 64 20 74 68 65 20 64 65 66 73 74 72 75 63 74 | -dd.(name)..."Find.the.defstruct |
| 1c7940 | 2d 64 65 66 69 6e 69 74 69 6f 6e 20 62 79 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 69 74 73 20 73 | -definition.by.the.name.of.its.s |
| 1c7960 | 74 72 75 63 74 75 72 65 2d 63 6c 61 73 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 6c 61 79 6f 75 74 | tructure-class."...(let.((layout |
| 1c7980 | 20 28 65 78 74 3a 69 6e 66 6f 20 3a 74 79 70 65 20 3a 63 6f 6d 70 69 6c 65 72 2d 6c 61 79 6f 75 | .(ext:info.:type.:compiler-layou |
| 1c79a0 | 74 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 69 66 20 6c 61 79 6f 75 74 20 0a 20 20 20 20 20 20 | t.name))).....(if.layout........ |
| 1c79c0 | 20 20 28 6b 65 72 6e 65 6c 3a 6c 61 79 6f 75 74 2d 69 6e 66 6f 20 6c 61 79 6f 75 74 29 29 29 29 | ..(kernel:layout-info.layout)))) |
| 1c79e0 | 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 64 69 74 69 6f 6e 2d 63 6c 61 73 73 2d 6c 6f 63 61 74 69 6f | ..(defun.condition-class-locatio |
| 1c7a00 | 6e 20 28 63 6c 61 73 73 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 63 6c 61 73 73 2d 6e | n.(class)...(let.((name.(class-n |
| 1c7a20 | 61 6d 65 20 63 6c 61 73 73 29 29 29 0a 20 20 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d | ame.class))).....`(:error.,(form |
| 1c7a40 | 61 74 20 6e 69 6c 20 22 4e 6f 20 6c 6f 63 61 74 69 6f 6e 20 69 6e 66 6f 20 66 6f 72 20 63 6f 6e | at.nil."No.location.info.for.con |
| 1c7a60 | 64 69 74 69 6f 6e 3a 20 7e 41 22 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b | dition:.~A".name))))..(defun.mak |
| 1c7a80 | 65 2d 6e 61 6d 65 2d 69 6e 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 69 6c 65 20 73 74 | e-name-in-file-location.(file.st |
| 1c7aa0 | 72 69 6e 67 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 69 | ring)...(multiple-value-bind.(fi |
| 1c7ac0 | 6c 65 6e 61 6d 65 20 63 29 0a 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 0a | lename.c).......(ignore-errors.. |
| 1c7ae0 | 20 20 20 20 20 20 20 20 28 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 28 6d 65 72 67 65 2d 70 61 | ........(unix-truename.(merge-pa |
| 1c7b00 | 74 68 6e 61 6d 65 73 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 74 79 70 65 20 22 6c 69 | thnames.(make-pathname.:type."li |
| 1c7b20 | 73 70 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sp")............................ |
| 1c7b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 | .............file))).....(cond.( |
| 1c7b60 | 66 69 6c 65 6e 61 6d 65 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c 65 20 | filename.(make-location.`(:file. |
| 1c7b80 | 2c 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ,filename)...................... |
| 1c7ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 2c | ..............`(:function-name., |
| 1c7bc0 | 28 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 | (string.string))))...........(t. |
| 1c7be0 | 28 6c 69 73 74 20 3a 65 72 72 6f 72 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 29 | (list.:error.(princ-to-string.c) |
| 1c7c00 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d | )))))..(defun.definition-source- |
| 1c7c20 | 6c 6f 63 61 74 69 6f 6e 20 28 6f 62 6a 65 63 74 20 6e 61 6d 65 29 0a 20 20 60 28 3a 65 72 72 6f | location.(object.name)...`(:erro |
| 1c7c40 | 72 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4e 6f 20 73 6f 75 72 63 65 20 69 6e 66 6f 20 66 | r.,(format.nil."No.source.info.f |
| 1c7c60 | 6f 72 3a 20 7e 41 22 20 6f 62 6a 65 63 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 74 66 2d 64 | or:.~A".object)))..(defun.setf-d |
| 1c7c80 | 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 66 75 6e 63 74 | efinitions.(name)...(let.((funct |
| 1c7ca0 | 69 6f 6e 20 28 6f 72 20 28 65 78 74 3a 69 6e 66 6f 20 3a 73 65 74 66 20 3a 69 6e 76 65 72 73 65 | ion.(or.(ext:info.:setf.:inverse |
| 1c7cc0 | 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 | .name).......................(ex |
| 1c7ce0 | 74 3a 69 6e 66 6f 20 3a 73 65 74 66 20 3a 65 78 70 61 6e 64 65 72 20 6e 61 6d 65 29 29 29 29 0a | t:info.:setf.:expander.name)))). |
| 1c7d00 | 20 20 20 20 28 69 66 20 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 | ....(if.function.........(list.( |
| 1c7d20 | 6c 69 73 74 20 60 28 73 65 74 66 20 2c 6e 61 6d 65 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 | list.`(setf.,name).............. |
| 1c7d40 | 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 65 72 | ........(function-location.(coer |
| 1c7d60 | 63 65 20 66 75 6e 63 74 69 6f 6e 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 29 29 29 29 0a 0a 0a 28 | ce.function.'function)))))))...( |
| 1c7d80 | 64 65 66 75 6e 20 76 61 72 69 61 62 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 29 | defun.variable-location.(symbol) |
| 1c7da0 | 0a 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4e 6f 20 73 6f 75 | ...`(:error.,(format.nil."No.sou |
| 1c7dc0 | 72 63 65 20 69 6e 66 6f 20 66 6f 72 20 76 61 72 69 61 62 6c 65 20 7e 53 22 20 73 79 6d 62 6f 6c | rce.info.for.variable.~S".symbol |
| 1c7de0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 61 72 69 61 62 6c 65 2d 64 65 66 69 6e 69 74 69 6f 6e 73 | )))..(defun.variable-definitions |
| 1c7e00 | 20 28 6e 61 6d 65 29 0a 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 0a 20 20 20 | .(name)...(if.(symbolp.name).... |
| 1c7e20 | 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6b 69 6e 64 20 72 65 | ...(multiple-value-bind.(kind.re |
| 1c7e40 | 63 6f 72 64 65 64 2d 70 29 20 28 65 78 74 3a 69 6e 66 6f 20 3a 76 61 72 69 61 62 6c 65 20 3a 6b | corded-p).(ext:info.:variable.:k |
| 1c7e60 | 69 6e 64 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 72 65 63 6f 72 64 65 64 2d 70 | ind.name).........(if.recorded-p |
| 1c7e80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 60 28 76 61 72 69 61 | .............(list.(list.`(varia |
| 1c7ea0 | 62 6c 65 20 2c 6b 69 6e 64 20 2c 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ble.,kind.,name)................ |
| 1c7ec0 | 20 20 20 20 20 20 20 20 20 28 76 61 72 69 61 62 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 6e 61 6d 65 | .........(variable-location.name |
| 1c7ee0 | 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 64 | )))))))..(defun.compiler-macro-d |
| 1c7f00 | 65 66 69 6e 69 74 69 6f 6e 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6d 61 79 62 65 2d 6d 61 6b | efinitions.(symbol)...(maybe-mak |
| 1c7f20 | 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 6e | e-definition.(compiler-macro-fun |
| 1c7f40 | 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ction.symbol)................... |
| 1c7f60 | 20 20 20 20 20 20 20 27 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 0a 20 20 | .......'define-compiler-macro... |
| 1c7f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 29 29 0a | .......................symbol)). |
| 1c7fa0 | 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d 74 72 61 6e 73 66 6f 72 6d 2d 64 65 66 69 6e 69 74 | .(defun.source-transform-definit |
| 1c7fc0 | 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 | ions.(name)...(maybe-make-defini |
| 1c7fe0 | 74 69 6f 6e 20 28 65 78 74 3a 69 6e 66 6f 20 3a 66 75 6e 63 74 69 6f 6e 20 3a 73 6f 75 72 63 65 | tion.(ext:info.:function.:source |
| 1c8000 | 2d 74 72 61 6e 73 66 6f 72 6d 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -transform.name)................ |
| 1c8020 | 20 20 20 20 20 20 20 20 20 20 27 63 3a 64 65 66 2d 73 6f 75 72 63 65 2d 74 72 61 6e 73 66 6f 72 | ..........'c:def-source-transfor |
| 1c8040 | 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 | m..........................name) |
| 1c8060 | 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 64 65 66 69 6e 69 74 69 | )..(defun.function-info-definiti |
| 1c8080 | 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 66 6f 20 28 65 78 74 3a 69 6e | ons.(name)...(let.((info.(ext:in |
| 1c80a0 | 66 6f 20 3a 66 75 6e 63 74 69 6f 6e 20 3a 69 6e 66 6f 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 | fo.:function.:info.name))).....( |
| 1c80c0 | 69 66 20 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 6c 6f 6f 70 20 66 6f | if.info.........(append.(loop.fo |
| 1c80e0 | 72 20 74 72 61 6e 73 66 6f 72 6d 20 69 6e 20 28 63 3a 3a 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f | r.transform.in.(c::function-info |
| 1c8100 | 2d 74 72 61 6e 73 66 6f 72 6d 73 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -transforms.info)............... |
| 1c8120 | 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 60 28 63 3a 64 65 66 74 72 61 | ........collect.(list.`(c:deftra |
| 1c8140 | 6e 73 66 6f 72 6d 20 2c 6e 61 6d 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nsform.,name.................... |
| 1c8160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 3a 3a 74 79 70 65 2d 73 70 | ....................,(c::type-sp |
| 1c8180 | 65 63 69 66 69 65 72 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ecifier......................... |
| 1c81a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 3a 3a 74 72 61 6e 73 66 6f 72 6d 2d 74 | .................(c::transform-t |
| 1c81c0 | 79 70 65 20 74 72 61 6e 73 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ype.transform)))................ |
| 1c81e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c | .....................(function-l |
| 1c8200 | 6f 63 61 74 69 6f 6e 20 28 63 3a 3a 74 72 61 6e 73 66 6f 72 6d 2d 66 75 6e 63 74 69 6f 6e 20 0a | ocation.(c::transform-function.. |
| 1c8220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1c8240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 66 6f 72 | ........................transfor |
| 1c8260 | 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 6d 61 6b | m)))).................(maybe-mak |
| 1c8280 | 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 63 3a 3a 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 64 | e-definition.(c::function-info-d |
| 1c82a0 | 65 72 69 76 65 2d 74 79 70 65 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | erive-type.info)................ |
| 1c82c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 3a 3a 64 65 72 69 | ........................'c::deri |
| 1c82e0 | 76 65 2d 74 79 70 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | ve-type.name).................(m |
| 1c8300 | 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 63 3a 3a 66 75 6e 63 74 69 6f | aybe-make-definition.(c::functio |
| 1c8320 | 6e 2d 69 6e 66 6f 2d 6f 70 74 69 6d 69 7a 65 72 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 | n-info-optimizer.info).......... |
| 1c8340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 | ..............................'c |
| 1c8360 | 3a 3a 6f 70 74 69 6d 69 7a 65 72 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ::optimizer.name)............... |
| 1c8380 | 20 20 28 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 63 3a 3a 66 75 6e | ..(maybe-make-definition.(c::fun |
| 1c83a0 | 63 74 69 6f 6e 2d 69 6e 66 6f 2d 6c 74 6e 2d 61 6e 6e 6f 74 61 74 65 20 69 6e 66 6f 29 0a 20 20 | ction-info-ltn-annotate.info)... |
| 1c83c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1c83e0 | 20 20 20 20 20 27 63 3a 3a 6c 74 6e 2d 61 6e 6e 6f 74 61 74 65 20 6e 61 6d 65 29 0a 20 20 20 20 | .....'c::ltn-annotate.name)..... |
| 1c8400 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 | ............(maybe-make-definiti |
| 1c8420 | 6f 6e 20 28 63 3a 3a 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 69 72 32 2d 63 6f 6e 76 65 72 74 | on.(c::function-info-ir2-convert |
| 1c8440 | 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .info).......................... |
| 1c8460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 3a 3a 69 72 32 2d 63 6f 6e 76 65 72 74 20 6e 61 | ..............'c::ir2-convert.na |
| 1c8480 | 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 74 65 | me).................(loop.for.te |
| 1c84a0 | 6d 70 6c 61 74 65 20 69 6e 20 28 63 3a 3a 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 74 65 6d 70 | mplate.in.(c::function-info-temp |
| 1c84c0 | 6c 61 74 65 73 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lates.info)..................... |
| 1c84e0 | 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 60 28 63 3a 3a 76 6f 70 20 2c 28 63 3a 3a 74 65 | ..collect.(list.`(c::vop.,(c::te |
| 1c8500 | 6d 70 6c 61 74 65 2d 6e 61 6d 65 20 74 65 6d 70 6c 61 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 | mplate-name.template)).......... |
| 1c8520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 | ...........................(func |
| 1c8540 | 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion-location................... |
| 1c8560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 3a 3a 76 6f 70 2d 69 6e 66 6f | ....................(c::vop-info |
| 1c8580 | 2d 67 65 6e 65 72 61 74 6f 72 2d 66 75 6e 63 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 | -generator-function............. |
| 1c85a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 70 6c | ...........................templ |
| 1c85c0 | 61 74 65 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 72 31 2d 74 72 61 6e 73 6c 61 74 | ate))))))))..(defun.ir1-translat |
| 1c85e0 | 6f 72 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6d 61 79 62 65 2d 6d | or-definitions.(name)...(maybe-m |
| 1c8600 | 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 65 78 74 3a 69 6e 66 6f 20 3a 66 75 6e 63 74 69 | ake-definition.(ext:info.:functi |
| 1c8620 | 6f 6e 20 3a 69 72 31 2d 63 6f 6e 76 65 72 74 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | on.:ir1-convert.name)........... |
| 1c8640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 3a 64 65 66 2d 69 72 31 2d 74 72 61 6e 73 6c | ...............'c:def-ir1-transl |
| 1c8660 | 61 74 6f 72 20 6e 61 6d 65 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f | ator.name))....;;;;.Documentatio |
| 1c8680 | 6e 2e 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d | n...(defimplementation.describe- |
| 1c86a0 | 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 | symbol-for-emacs.(symbol)...(let |
| 1c86c0 | 20 28 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 64 6f 63 20 | .((result.'())).....(flet.((doc. |
| 1c86e0 | 28 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 64 6f 63 75 6d 65 6e | (kind)..............(or.(documen |
| 1c8700 | 74 61 74 69 6f 6e 20 73 79 6d 62 6f 6c 20 6b 69 6e 64 29 20 3a 6e 6f 74 2d 64 6f 63 75 6d 65 6e | tation.symbol.kind).:not-documen |
| 1c8720 | 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 20 28 70 72 | ted))............(maybe-push.(pr |
| 1c8740 | 6f 70 65 72 74 79 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | operty.value)..............(when |
| 1c8760 | 20 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 | .value................(setf.resu |
| 1c8780 | 6c 74 20 28 6c 69 73 74 2a 20 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 20 72 65 73 75 6c 74 29 | lt.(list*.property.value.result) |
| 1c87a0 | 29 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 76 | )))).......(maybe-push........:v |
| 1c87c0 | 61 72 69 61 62 6c 65 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6b 69 | ariable.(multiple-value-bind.(ki |
| 1c87e0 | 6e 64 20 72 65 63 6f 72 64 65 64 2d 70 29 0a 09 09 20 20 20 20 20 28 65 78 74 3a 69 6e 66 6f 20 | nd.recorded-p)........(ext:info. |
| 1c8800 | 76 61 72 69 61 62 6c 65 20 6b 69 6e 64 20 73 79 6d 62 6f 6c 29 0a 09 09 20 20 20 28 64 65 63 6c | variable.kind.symbol)......(decl |
| 1c8820 | 61 72 65 20 28 69 67 6e 6f 72 65 20 6b 69 6e 64 29 29 0a 09 09 20 20 20 28 69 66 20 28 6f 72 20 | are.(ignore.kind))......(if.(or. |
| 1c8840 | 28 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 20 72 65 63 6f 72 64 65 64 2d 70 29 0a 09 09 20 20 | (boundp.symbol).recorded-p)..... |
| 1c8860 | 20 20 20 20 20 28 64 6f 63 20 27 76 61 72 69 61 62 6c 65 29 29 29 29 0a 20 20 20 20 20 20 28 77 | .....(doc.'variable)))).......(w |
| 1c8880 | 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 09 28 6d 61 79 62 65 2d 70 75 73 | hen.(fboundp.symbol)..(maybe-pus |
| 1c88a0 | 68 0a 09 20 28 63 6f 6e 64 20 28 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f | h...(cond.((macro-function.symbo |
| 1c88c0 | 6c 29 20 20 20 20 20 3a 6d 61 63 72 6f 29 0a 09 20 20 20 20 20 20 20 28 28 73 70 65 63 69 61 6c | l).....:macro).........((special |
| 1c88e0 | 2d 6f 70 65 72 61 74 6f 72 2d 70 20 73 79 6d 62 6f 6c 29 20 3a 73 70 65 63 69 61 6c 2d 6f 70 65 | -operator-p.symbol).:special-ope |
| 1c8900 | 72 61 74 6f 72 29 0a 09 20 20 20 20 20 20 20 28 28 67 65 6e 65 72 69 63 70 20 28 66 64 65 66 69 | rator).........((genericp.(fdefi |
| 1c8920 | 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f | nition.symbol)).:generic-functio |
| 1c8940 | 6e 29 0a 09 20 20 20 20 20 20 20 28 74 20 3a 66 75 6e 63 74 69 6f 6e 29 29 0a 09 20 28 64 6f 63 | n).........(t.:function))...(doc |
| 1c8960 | 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a | .'function))).......(maybe-push. |
| 1c8980 | 20 20 20 20 20 20 20 3a 73 65 74 66 20 28 69 66 20 28 6f 72 20 28 65 78 74 3a 69 6e 66 6f 20 73 | .......:setf.(if.(or.(ext:info.s |
| 1c89a0 | 65 74 66 20 69 6e 76 65 72 73 65 20 73 79 6d 62 6f 6c 29 0a 09 09 20 20 20 20 20 28 65 78 74 3a | etf.inverse.symbol)........(ext: |
| 1c89c0 | 69 6e 66 6f 20 73 65 74 66 20 65 78 70 61 6e 64 65 72 20 73 79 6d 62 6f 6c 29 29 0a 09 09 20 28 | info.setf.expander.symbol))....( |
| 1c89e0 | 64 6f 63 20 27 73 65 74 66 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 | doc.'setf))).......(maybe-push.. |
| 1c8a00 | 20 20 20 20 20 20 3a 74 79 70 65 20 28 69 66 20 28 65 78 74 3a 69 6e 66 6f 20 74 79 70 65 20 6b | ......:type.(if.(ext:info.type.k |
| 1c8a20 | 69 6e 64 20 73 79 6d 62 6f 6c 29 0a 09 09 20 28 64 6f 63 20 27 74 79 70 65 29 29 29 0a 20 20 20 | ind.symbol)....(doc.'type))).... |
| 1c8a40 | 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 63 6c 61 73 73 20 28 69 66 | ...(maybe-push........:class.(if |
| 1c8a60 | 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 20 6e 69 6c 29 20 0a 09 09 20 20 28 64 | .(find-class.symbol.nil)......(d |
| 1c8a80 | 6f 63 20 27 63 6c 61 73 73 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 | oc.'class))).......(maybe-push.. |
| 1c8aa0 | 20 20 20 20 20 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 28 69 66 20 28 6e 6f 74 20 28 65 71 20 28 | ......:alien-type.(if.(not.(eq.( |
| 1c8ac0 | 65 78 74 3a 69 6e 66 6f 20 61 6c 69 65 6e 2d 74 79 70 65 20 6b 69 6e 64 20 73 79 6d 62 6f 6c 29 | ext:info.alien-type.kind.symbol) |
| 1c8ae0 | 20 3a 75 6e 6b 6e 6f 77 6e 29 29 0a 09 09 20 20 20 20 20 20 20 28 64 6f 63 20 27 61 6c 69 65 6e | .:unknown))..........(doc.'alien |
| 1c8b00 | 2d 74 79 70 65 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 | -type))).......(maybe-push...... |
| 1c8b20 | 20 20 3a 61 6c 69 65 6e 2d 73 74 72 75 63 74 20 28 69 66 20 28 65 78 74 3a 69 6e 66 6f 20 61 6c | ..:alien-struct.(if.(ext:info.al |
| 1c8b40 | 69 65 6e 2d 74 79 70 65 20 73 74 72 75 63 74 20 73 79 6d 62 6f 6c 29 0a 09 09 09 20 28 64 6f 63 | ien-type.struct.symbol).....(doc |
| 1c8b60 | 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 | .nil))).......(maybe-push....... |
| 1c8b80 | 20 3a 61 6c 69 65 6e 2d 75 6e 69 6f 6e 20 28 69 66 20 28 65 78 74 3a 69 6e 66 6f 20 61 6c 69 65 | .:alien-union.(if.(ext:info.alie |
| 1c8ba0 | 6e 2d 74 79 70 65 20 75 6e 69 6f 6e 20 73 79 6d 62 6f 6c 29 0a 09 09 09 20 28 64 6f 63 20 6e 69 | n-type.union.symbol).....(doc.ni |
| 1c8bc0 | 6c 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 61 | l))).......(maybe-push........:a |
| 1c8be0 | 6c 69 65 6e 2d 65 6e 75 6d 20 28 69 66 20 28 65 78 74 3a 69 6e 66 6f 20 61 6c 69 65 6e 2d 74 79 | lien-enum.(if.(ext:info.alien-ty |
| 1c8c00 | 70 65 20 65 6e 75 6d 20 73 79 6d 62 6f 6c 29 0a 09 09 20 20 20 20 20 20 20 28 64 6f 63 20 6e 69 | pe.enum.symbol)..........(doc.ni |
| 1c8c20 | 6c 29 29 29 0a 20 20 20 20 20 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | l))).......result)))..(defimplem |
| 1c8c40 | 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 73 79 | entation.describe-definition.(sy |
| 1c8c60 | 6d 62 6f 6c 20 6e 61 6d 65 73 70 61 63 65 29 0a 20 20 28 64 65 73 63 72 69 62 65 20 28 65 63 61 | mbol.namespace)...(describe.(eca |
| 1c8c80 | 73 65 20 6e 61 6d 65 73 70 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 76 61 72 | se.namespace...............(:var |
| 1c8ca0 | 69 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 29 0a 20 20 20 | iable................symbol).... |
| 1c8cc0 | 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 66 75 6e 63 74 69 6f 6e 20 3a 67 65 6e 65 72 69 63 2d | ...........((:function.:generic- |
| 1c8ce0 | 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c | function)................(symbol |
| 1c8d00 | 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -function.symbol)).............. |
| 1c8d20 | 20 28 3a 73 65 74 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 65 78 74 3a | .(:setf................(or.(ext: |
| 1c8d40 | 69 6e 66 6f 20 73 65 74 66 20 69 6e 76 65 72 73 65 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 | info.setf.inverse.symbol)....... |
| 1c8d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 69 6e 66 6f 20 73 65 74 66 20 65 78 70 61 | .............(ext:info.setf.expa |
| 1c8d80 | 6e 64 65 72 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 74 | nder.symbol)))...............(:t |
| 1c8da0 | 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 72 6e 65 6c 3a 76 61 6c 75 65 | ype................(kernel:value |
| 1c8dc0 | 73 2d 73 70 65 63 69 66 69 65 72 2d 74 79 70 65 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 | s-specifier-type.symbol))....... |
| 1c8de0 | 20 20 20 20 20 20 20 20 28 3a 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ........(:class................( |
| 1c8e00 | 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | find-class.symbol))............. |
| 1c8e20 | 20 20 28 3a 61 6c 69 65 6e 2d 73 74 72 75 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(:alien-struct................ |
| 1c8e40 | 28 65 78 74 3a 69 6e 66 6f 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 3a 73 74 72 75 63 74 20 73 79 | (ext:info.:alien-type.:struct.sy |
| 1c8e60 | 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 69 65 6e 2d 75 6e 69 | mbol))...............(:alien-uni |
| 1c8e80 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 69 6e 66 6f 20 3a 61 6c 69 | on................(ext:info.:ali |
| 1c8ea0 | 65 6e 2d 74 79 70 65 20 3a 75 6e 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 | en-type.:union.symbol))......... |
| 1c8ec0 | 20 20 20 20 20 20 28 3a 61 6c 69 65 6e 2d 65 6e 75 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(:alien-enum.............. |
| 1c8ee0 | 20 20 28 65 78 74 3a 69 6e 66 6f 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 3a 65 6e 75 6d 20 73 79 | ..(ext:info.:alien-type.:enum.sy |
| 1c8f00 | 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 69 65 6e 2d 74 79 70 | mbol))...............(:alien-typ |
| 1c8f20 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 28 65 78 74 3a 69 6e 66 | e................(ecase.(ext:inf |
| 1c8f40 | 6f 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 3a 6b 69 6e 64 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 | o.:alien-type.:kind.symbol)..... |
| 1c8f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 70 72 69 6d 69 74 69 76 65 0a 20 20 20 20 20 20 20 | .............(:primitive........ |
| 1c8f80 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 6c 69 65 6e 3a 3a 2a 76 61 6c 75 65 73 | ...........(let.((alien::*values |
| 1c8fa0 | 2d 74 79 70 65 2d 6f 6b 61 79 2a 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -type-okay*.t))................. |
| 1c8fc0 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 65 78 74 3a 69 6e 66 6f 20 3a 61 6c 69 65 6e 2d 74 79 | ....(funcall.(ext:info.:alien-ty |
| 1c8fe0 | 70 65 20 3a 74 72 61 6e 73 6c 61 74 6f 72 20 73 79 6d 62 6f 6c 29 20 0a 20 20 20 20 20 20 20 20 | pe.:translator.symbol).......... |
| 1c9000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 73 79 6d 62 6f | .....................(list.symbo |
| 1c9020 | 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 66 69 6e 65 | l))))..................((:define |
| 1c9040 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 69 6e 66 6f 20 3a | d)...................(ext:info.: |
| 1c9060 | 61 6c 69 65 6e 2d 74 79 70 65 20 3a 64 65 66 69 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 0a | alien-type.:definition.symbol)). |
| 1c9080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 75 6e 6b 6e 6f 77 6e 20 3a 75 6e 6b 6e | .................(:unknown.:unkn |
| 1c90a0 | 6f 77 6e 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 41 72 67 75 6d 65 6e 74 20 6c 69 73 74 73 0a | own))))))..;;;;;.Argument.lists. |
| 1c90c0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 72 67 6c 69 73 74 20 28 66 75 6e | .(defimplementation.arglist.(fun |
| 1c90e0 | 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 61 72 67 73 20 77 | )...(multiple-value-bind.(args.w |
| 1c9100 | 69 6e 70 29 0a 20 20 20 20 20 20 28 65 78 74 3a 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 | inp).......(ext:function-arglist |
| 1c9120 | 20 66 75 6e 29 0a 20 20 20 20 28 69 66 20 77 69 6e 70 20 61 72 67 73 20 3a 6e 6f 74 2d 61 76 61 | .fun).....(if.winp.args.:not-ava |
| 1c9140 | 69 6c 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 75 | ilable)))..(defimplementation.fu |
| 1c9160 | 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 63 6f 6e 64 20 28 | nction-name.(function)...(cond.( |
| 1c9180 | 28 65 76 61 6c 3a 69 6e 74 65 72 70 72 65 74 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 66 75 6e | (eval:interpreted-function-p.fun |
| 1c91a0 | 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 3a 69 6e 74 65 72 70 72 65 74 65 | ction)..........(eval:interprete |
| 1c91c0 | 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 | d-function-name.function))...... |
| 1c91e0 | 20 20 20 28 28 74 79 70 65 70 20 66 75 6e 63 74 69 6f 6e 20 27 67 65 6e 65 72 69 63 2d 66 75 6e | ...((typep.function.'generic-fun |
| 1c9200 | 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 63 6c 6f 73 3a 67 65 6e 65 72 69 63 2d 66 75 | ction)..........(clos:generic-fu |
| 1c9220 | 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 | nction-name.function)).........( |
| 1c9240 | 28 63 3a 3a 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 6f 72 2d 63 6c 6f 73 75 72 65 2d 70 20 66 | (c::byte-function-or-closure-p.f |
| 1c9260 | 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 63 3a 3a 62 79 74 65 2d 66 75 6e 63 74 | unction)..........(c::byte-funct |
| 1c9280 | 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 | ion-name.function)).........(t.( |
| 1c92a0 | 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 6b 65 72 6e 65 6c 3a 25 66 | kernel:%function-name.(kernel:%f |
| 1c92c0 | 75 6e 63 74 69 6f 6e 2d 73 65 6c 66 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 29 0a 0a 0a 3b 3b 3b | unction-self.function)))))...;;; |
| 1c92e0 | 20 41 20 68 61 72 64 65 72 20 63 61 73 65 3a 20 61 6e 20 61 70 70 72 6f 78 69 6d 61 74 65 20 61 | .A.harder.case:.an.approximate.a |
| 1c9300 | 72 67 6c 69 73 74 20 69 73 20 64 65 72 69 76 65 64 20 66 72 6f 6d 20 61 76 61 69 6c 61 62 6c 65 | rglist.is.derived.from.available |
| 1c9320 | 0a 3b 3b 3b 20 64 65 62 75 67 67 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 0a 28 64 65 | .;;;.debugging.information...(de |
| 1c9340 | 66 75 6e 20 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 28 64 65 62 75 | fun.debug-function-arglist.(debu |
| 1c9360 | 67 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 44 65 72 69 76 65 20 74 68 65 20 61 72 67 75 6d 65 | g-function)..."Derive.the.argume |
| 1c9380 | 6e 74 20 6c 69 73 74 20 6f 66 20 44 45 42 55 47 2d 46 55 4e 43 54 49 4f 4e 20 66 72 6f 6d 20 64 | nt.list.of.DEBUG-FUNCTION.from.d |
| 1c93a0 | 65 62 75 67 20 69 6e 66 6f 2e 22 0a 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 28 64 69 3a 3a 64 | ebug.info."...(let.((args.(di::d |
| 1c93c0 | 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 64 65 62 75 67 2d | ebug-function-lambda-list.debug- |
| 1c93e0 | 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 64 20 27 28 29 | function)).........(required.'() |
| 1c9400 | 29 0a 20 20 20 20 20 20 20 20 28 6f 70 74 69 6f 6e 61 6c 20 27 28 29 29 0a 20 20 20 20 20 20 20 | ).........(optional.'())........ |
| 1c9420 | 20 28 72 65 73 74 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 6b 65 79 20 27 28 29 29 29 0a 20 | .(rest.'()).........(key.'())).. |
| 1c9440 | 20 20 20 3b 3b 20 63 6f 6c 6c 65 63 74 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 64 65 62 75 67 | ...;;.collect.the.names.of.debug |
| 1c9460 | 2d 76 61 72 73 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 61 72 67 20 61 72 67 73 29 0a 20 20 20 | -vars.....(dolist.(arg.args).... |
| 1c9480 | 20 20 20 28 65 74 79 70 65 63 61 73 65 20 61 72 67 0a 20 20 20 20 20 20 20 20 28 64 69 3a 3a 64 | ...(etypecase.arg.........(di::d |
| 1c94a0 | 65 62 75 67 2d 76 61 72 69 61 62 6c 65 20 0a 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 64 | ebug-variable...........(push.(d |
| 1c94c0 | 69 3a 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 73 79 6d 62 6f 6c 20 61 72 67 29 20 72 65 | i::debug-variable-symbol.arg).re |
| 1c94e0 | 71 75 69 72 65 64 29 29 0a 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 3a 64 65 6c 65 74 | quired)).........((member.:delet |
| 1c9500 | 65 64 29 0a 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 27 3a 64 65 6c 65 74 65 64 20 72 65 71 | ed)..........(push.':deleted.req |
| 1c9520 | 75 69 72 65 64 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 28 | uired)).........(cons..........( |
| 1c9540 | 65 63 61 73 65 20 28 63 61 72 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3a 6b 65 79 | ecase.(car.arg)............(:key |
| 1c9560 | 77 6f 72 64 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 73 65 63 6f 6e 64 20 | word..............(push.(second. |
| 1c9580 | 61 72 67 29 20 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3a 6f 70 74 69 6f 6e 61 6c | arg).key))............(:optional |
| 1c95a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 64 65 62 75 67 2d 76 61 72 69 61 62 | .............(push.(debug-variab |
| 1c95c0 | 6c 65 2d 73 79 6d 62 6f 6c 2d 6f 72 2d 64 65 6c 65 74 65 64 20 28 73 65 63 6f 6e 64 20 61 72 67 | le-symbol-or-deleted.(second.arg |
| 1c95e0 | 29 29 20 6f 70 74 69 6f 6e 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3a 72 65 73 74 20 | )).optional))............(:rest. |
| 1c9600 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 64 65 62 75 67 2d 76 61 72 69 61 62 | .............(push.(debug-variab |
| 1c9620 | 6c 65 2d 73 79 6d 62 6f 6c 2d 6f 72 2d 64 65 6c 65 74 65 64 20 28 73 65 63 6f 6e 64 20 61 72 67 | le-symbol-or-deleted.(second.arg |
| 1c9640 | 29 29 20 72 65 73 74 29 29 29 29 29 29 0a 20 20 20 20 3b 3b 20 69 6e 74 65 72 73 70 65 72 73 65 | )).rest)))))).....;;.intersperse |
| 1c9660 | 20 6c 61 6d 62 64 61 20 6b 65 79 77 6f 72 64 73 20 61 73 20 6e 65 65 64 65 64 0a 20 20 20 20 28 | .lambda.keywords.as.needed.....( |
| 1c9680 | 61 70 70 65 6e 64 20 28 6e 72 65 76 65 72 73 65 20 72 65 71 75 69 72 65 64 29 0a 20 20 20 20 20 | append.(nreverse.required)...... |
| 1c96a0 | 20 20 20 20 20 20 20 28 69 66 20 6f 70 74 69 6f 6e 61 6c 20 28 63 6f 6e 73 20 27 26 6f 70 74 69 | .......(if.optional.(cons.'&opti |
| 1c96c0 | 6f 6e 61 6c 20 28 6e 72 65 76 65 72 73 65 20 6f 70 74 69 6f 6e 61 6c 29 29 29 0a 20 20 20 20 20 | onal.(nreverse.optional)))...... |
| 1c96e0 | 20 20 20 20 20 20 20 28 69 66 20 72 65 73 74 20 28 63 6f 6e 73 20 27 26 72 65 73 74 20 28 6e 72 | .......(if.rest.(cons.'&rest.(nr |
| 1c9700 | 65 76 65 72 73 65 20 72 65 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6b | everse.rest))).............(if.k |
| 1c9720 | 65 79 20 28 63 6f 6e 73 20 27 26 6b 65 79 20 28 6e 72 65 76 65 72 73 65 20 6b 65 79 29 29 29 29 | ey.(cons.'&key.(nreverse.key)))) |
| 1c9740 | 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 73 79 6d 62 6f 6c | ))..(defun.debug-variable-symbol |
| 1c9760 | 2d 6f 72 2d 64 65 6c 65 74 65 64 20 28 76 61 72 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 76 | -or-deleted.(var)...(etypecase.v |
| 1c9780 | 61 72 0a 20 20 20 20 28 64 69 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 0a 20 20 20 20 20 28 | ar.....(di:debug-variable......( |
| 1c97a0 | 64 69 3a 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 73 79 6d 62 6f 6c 20 76 61 72 29 29 0a | di::debug-variable-symbol.var)). |
| 1c97c0 | 20 20 20 20 28 28 6d 65 6d 62 65 72 20 3a 64 65 6c 65 74 65 64 29 0a 20 20 20 20 20 27 23 3a 64 | ....((member.:deleted)......'#:d |
| 1c97e0 | 65 6c 65 74 65 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 79 6d 62 6f 6c 2d 64 65 62 75 67 2d 66 | eleted)))..(defun.symbol-debug-f |
| 1c9800 | 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 28 66 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 | unction-arglist.(fname)..."Retur |
| 1c9820 | 6e 20 46 4e 41 4d 45 27 73 20 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 | n.FNAME's.debug-function-arglist |
| 1c9840 | 20 61 6e 64 20 25 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 2e 0a 20 20 41 20 75 74 69 6c | .and.%function-arglist....A.util |
| 1c9860 | 69 74 79 20 66 6f 72 20 64 65 62 75 67 67 69 6e 67 20 44 45 42 55 47 2d 46 55 4e 43 54 49 4f 4e | ity.for.debugging.DEBUG-FUNCTION |
| 1c9880 | 2d 41 52 47 4c 49 53 54 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 6e 20 28 66 64 65 66 69 6e 69 74 | -ARGLIST."...(let.((fn.(fdefinit |
| 1c98a0 | 69 6f 6e 20 66 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 28 64 65 62 75 67 2d | ion.fname))).....(values.(debug- |
| 1c98c0 | 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 28 64 69 3a 3a 66 75 6e 63 74 69 6f 6e 2d 64 | function-arglist.(di::function-d |
| 1c98e0 | 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | ebug-function.fn)).............( |
| 1c9900 | 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 28 6b 65 72 6e 65 6c | kernel:%function-arglist.(kernel |
| 1c9920 | 3a 25 66 75 6e 63 74 69 6f 6e 2d 73 65 6c 66 20 66 6e 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 | :%function-self.fn)))))....;;;;. |
| 1c9940 | 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2e 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | Miscellaneous...(defimplementati |
| 1c9960 | 6f 6e 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e | on.macroexpand-all.(form.&option |
| 1c9980 | 61 6c 20 65 6e 76 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 65 6e 76 29 29 | al.env)...(declare.(ignore.env)) |
| 1c99a0 | 0a 20 20 28 6d 61 63 72 6f 65 78 70 61 6e 64 20 66 6f 72 6d 29 29 0a 0a 28 64 65 66 69 6d 70 6c | ...(macroexpand.form))..(defimpl |
| 1c99c0 | 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 | ementation.set-default-directory |
| 1c99e0 | 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 73 65 74 66 20 28 65 78 74 3a 64 65 66 61 75 6c | .(directory)...(setf.(ext:defaul |
| 1c9a00 | 74 2d 64 69 72 65 63 74 6f 72 79 29 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 64 69 72 65 63 74 6f | t-directory).(namestring.directo |
| 1c9a20 | 72 79 29 29 0a 20 20 3b 3b 20 53 65 74 74 69 6e 67 20 2a 64 65 66 61 75 6c 74 2d 70 61 74 68 6e | ry))...;;.Setting.*default-pathn |
| 1c9a40 | 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 20 74 6f 20 61 6e 20 61 62 73 6f 6c 75 74 65 20 64 69 72 | ame-defaults*.to.an.absolute.dir |
| 1c9a60 | 65 63 74 6f 72 79 0a 20 20 3b 3b 20 6d 61 6b 65 73 20 74 68 65 20 62 65 68 61 76 69 6f 72 20 6f | ectory...;;.makes.the.behavior.o |
| 1c9a80 | 66 20 4d 45 52 47 45 2d 50 41 54 48 4e 41 4d 45 53 20 61 20 62 69 74 20 6d 6f 72 65 20 69 6e 74 | f.MERGE-PATHNAMES.a.bit.more.int |
| 1c9aa0 | 75 69 74 69 76 65 2e 0a 20 20 28 73 65 74 66 20 2a 64 65 66 61 75 6c 74 2d 70 61 74 68 6e 61 6d | uitive....(setf.*default-pathnam |
| 1c9ac0 | 65 2d 64 65 66 61 75 6c 74 73 2a 20 28 70 61 74 68 6e 61 6d 65 20 28 65 78 74 3a 64 65 66 61 75 | e-defaults*.(pathname.(ext:defau |
| 1c9ae0 | 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 | lt-directory)))...(default-direc |
| 1c9b00 | 74 6f 72 79 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 66 61 75 | tory))..(defimplementation.defau |
| 1c9b20 | 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 65 | lt-directory.()...(namestring.(e |
| 1c9b40 | 78 74 3a 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 69 6d 70 | xt:default-directory)))..(defimp |
| 1c9b60 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 61 74 68 6e 61 6d 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 | lementation.pathname-to-filename |
| 1c9b80 | 20 28 70 61 74 68 6e 61 6d 65 29 0a 20 20 28 65 78 74 3a 75 6e 69 78 2d 6e 61 6d 65 73 74 72 69 | .(pathname)...(ext:unix-namestri |
| 1c9ba0 | 6e 67 20 70 61 74 68 6e 61 6d 65 20 6e 69 6c 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | ng.pathname.nil))..(defimplement |
| 1c9bc0 | 61 74 69 6f 6e 20 67 65 74 70 69 64 20 28 29 0a 20 20 28 75 6e 69 78 3a 75 6e 69 78 2d 67 65 74 | ation.getpid.()...(unix:unix-get |
| 1c9be0 | 70 69 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 70 2d 69 | pid))..(defimplementation.lisp-i |
| 1c9c00 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 20 28 29 0a 20 20 28 69 66 | mplementation-type-name.()...(if |
| 1c9c20 | 20 28 65 71 20 65 78 74 3a 2a 63 61 73 65 2d 6d 6f 64 65 2a 20 3a 75 70 70 65 72 29 20 22 73 63 | .(eq.ext:*case-mode*.:upper)."sc |
| 1c9c40 | 6c 22 20 22 73 63 6c 2d 6c 6f 77 65 72 22 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | l"."scl-lower"))..(defimplementa |
| 1c9c60 | 74 69 6f 6e 20 71 75 69 74 2d 6c 69 73 70 20 28 29 0a 20 20 28 65 78 74 3a 71 75 69 74 29 29 0a | tion.quit-lisp.()...(ext:quit)). |
| 1c9c80 | 0a 3b 3b 3b 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 7b 73 74 72 65 61 6d 2c 66 69 6c 65 2c 73 74 | .;;;.source-path-{stream,file,st |
| 1c9ca0 | 72 69 6e 67 2c 65 74 63 7d 2d 70 6f 73 69 74 69 6f 6e 20 6d 6f 76 65 64 20 69 6e 74 6f 20 0a 3b | ring,etc}-position.moved.into..; |
| 1c9cc0 | 3b 3b 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 70 61 72 73 65 72 0a 0a 0c 0a 3b 3b 3b 3b 20 44 65 | ;;.source-path-parser....;;;;.De |
| 1c9ce0 | 62 75 67 67 69 6e 67 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c 64 62 2d 73 74 61 63 6b 2d 74 6f 70 | bugging..(defvar.*sldb-stack-top |
| 1c9d00 | 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 | *)..(defimplementation.call-with |
| 1c9d20 | 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 64 65 62 75 67 67 65 72 | -debugging-environment.(debugger |
| 1c9d40 | 2d 6c 6f 6f 70 2d 66 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 2a 73 6c 64 62 2d 73 74 61 63 6b 2d | -loop-fn)...(let*.((*sldb-stack- |
| 1c9d60 | 74 6f 70 2a 20 28 6f 72 20 64 65 62 75 67 3a 2a 73 74 61 63 6b 2d 74 6f 70 2d 68 69 6e 74 2a 20 | top*.(or.debug:*stack-top-hint*. |
| 1c9d80 | 28 64 69 3a 74 6f 70 2d 66 72 61 6d 65 29 29 29 0a 09 20 28 64 65 62 75 67 3a 2a 73 74 61 63 6b | (di:top-frame)))...(debug:*stack |
| 1c9da0 | 2d 74 6f 70 2d 68 69 6e 74 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 6b 65 72 6e 65 6c | -top-hint*.nil)..........(kernel |
| 1c9dc0 | 3a 2a 63 75 72 72 65 6e 74 2d 6c 65 76 65 6c 2a 20 30 29 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 | :*current-level*.0)).....(handle |
| 1c9de0 | 72 2d 62 69 6e 64 20 28 28 64 69 3a 3a 75 6e 68 61 6e 64 6c 65 64 2d 63 6f 6e 64 69 74 69 6f 6e | r-bind.((di::unhandled-condition |
| 1c9e00 | 0a 09 09 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 | .......(lambda.(condition)...... |
| 1c9e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 27 73 6c 64 62 2d 63 6f | .................(error.'sldb-co |
| 1c9e40 | 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ndition......................... |
| 1c9e60 | 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 | .....:original-condition.conditi |
| 1c9e80 | 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 64 65 62 75 67 67 65 72 2d 6c | on)))).......(funcall.debugger-l |
| 1c9ea0 | 6f 6f 70 2d 66 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 64 6f 77 6e 20 28 66 | oop-fn))))..(defun.frame-down.(f |
| 1c9ec0 | 72 61 6d 65 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 64 69 3a 66 72 61 6d 65 2d | rame)...(handler-case.(di:frame- |
| 1c9ee0 | 64 6f 77 6e 20 66 72 61 6d 65 29 0a 20 20 20 20 28 64 69 3a 6e 6f 2d 64 65 62 75 67 2d 69 6e 66 | down.frame).....(di:no-debug-inf |
| 1c9f00 | 6f 20 28 29 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 74 68 2d 66 72 61 6d 65 20 28 69 | o.().nil)))..(defun.nth-frame.(i |
| 1c9f20 | 6e 64 65 78 29 0a 20 20 28 64 6f 20 28 28 66 72 61 6d 65 20 2a 73 6c 64 62 2d 73 74 61 63 6b 2d | ndex)...(do.((frame.*sldb-stack- |
| 1c9f40 | 74 6f 70 2a 20 28 66 72 61 6d 65 2d 64 6f 77 6e 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 | top*.(frame-down.frame))........ |
| 1c9f60 | 28 69 20 69 6e 64 65 78 20 28 31 2d 20 69 29 29 29 0a 20 20 20 20 20 20 28 28 7a 65 72 6f 70 20 | (i.index.(1-.i))).......((zerop. |
| 1c9f80 | 69 29 20 66 72 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | i).frame)))..(defimplementation. |
| 1c9fa0 | 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 | compute-backtrace.(start.end)... |
| 1c9fc0 | 28 6c 65 74 20 28 28 65 6e 64 20 28 6f 72 20 65 6e 64 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 | (let.((end.(or.end.most-positive |
| 1c9fe0 | 2d 66 69 78 6e 75 6d 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 20 3d 20 28 6e 74 | -fixnum))).....(loop.for.f.=.(nt |
| 1ca000 | 68 2d 66 72 61 6d 65 20 73 74 61 72 74 29 20 74 68 65 6e 20 28 66 72 61 6d 65 2d 64 6f 77 6e 20 | h-frame.start).then.(frame-down. |
| 1ca020 | 66 29 0a 09 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 73 74 61 72 74 20 62 65 6c 6f 77 20 65 6e 64 | f)....for.i.from.start.below.end |
| 1ca040 | 0a 09 20 20 77 68 69 6c 65 20 66 20 63 6f 6c 6c 65 63 74 20 66 29 29 29 0a 0a 28 64 65 66 69 6d | ....while.f.collect.f)))..(defim |
| 1ca060 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 | plementation.print-frame.(frame. |
| 1ca080 | 73 74 72 65 61 6d 29 0a 20 20 28 6c 65 74 20 28 28 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 | stream)...(let.((*standard-outpu |
| 1ca0a0 | 74 2a 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 0a 20 | t*.stream)).....(handler-case... |
| 1ca0c0 | 20 20 20 20 20 20 20 28 64 65 62 75 67 3a 3a 70 72 69 6e 74 2d 66 72 61 6d 65 2d 63 61 6c 6c 20 | .......(debug::print-frame-call. |
| 1ca0e0 | 66 72 61 6d 65 20 3a 76 65 72 62 6f 73 69 74 79 20 31 20 3a 6e 75 6d 62 65 72 20 6e 69 6c 29 0a | frame.:verbosity.1.:number.nil). |
| 1ca100 | 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 65 29 0a 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 | ......(error.(e).........(ignore |
| 1ca120 | 2d 65 72 72 6f 72 73 20 28 70 72 69 6e 63 20 65 20 73 74 72 65 61 6d 29 29 29 29 29 29 0a 0a 28 | -errors.(princ.e.stream))))))..( |
| 1ca140 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c | defimplementation.frame-source-l |
| 1ca160 | 6f 63 61 74 69 6f 6e 20 28 69 6e 64 65 78 29 0a 20 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e | ocation.(index)...(code-location |
| 1ca180 | 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 64 69 3a 66 72 61 6d 65 2d 63 6f 64 65 2d | -source-location.(di:frame-code- |
| 1ca1a0 | 6c 6f 63 61 74 69 6f 6e 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 29 29 0a 0a 28 | location.(nth-frame.index))))..( |
| 1ca1c0 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 | defimplementation.eval-in-frame. |
| 1ca1e0 | 28 66 6f 72 6d 20 69 6e 64 65 78 29 0a 20 20 28 64 69 3a 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 | (form.index)...(di:eval-in-frame |
| 1ca200 | 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 20 66 6f 72 6d 29 29 0a 0a 28 64 65 66 75 | .(nth-frame.index).form))..(defu |
| 1ca220 | 6e 20 66 72 61 6d 65 2d 64 65 62 75 67 2d 76 61 72 73 20 28 66 72 61 6d 65 29 0a 20 20 22 52 65 | n.frame-debug-vars.(frame)..."Re |
| 1ca240 | 74 75 72 6e 20 61 20 76 65 63 74 6f 72 20 6f 66 20 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 73 | turn.a.vector.of.debug-variables |
| 1ca260 | 20 69 6e 20 66 72 61 6d 65 2e 22 0a 20 20 28 64 69 3a 3a 64 65 62 75 67 2d 66 75 6e 63 74 69 6f | .in.frame."...(di::debug-functio |
| 1ca280 | 6e 2d 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 73 20 28 64 69 3a 66 72 61 6d 65 2d 64 65 62 75 | n-debug-variables.(di:frame-debu |
| 1ca2a0 | 67 2d 66 75 6e 63 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 | g-function.frame)))..(defun.debu |
| 1ca2c0 | 67 2d 76 61 72 2d 76 61 6c 75 65 20 28 76 61 72 20 66 72 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 29 | g-var-value.(var.frame.location) |
| 1ca2e0 | 0a 20 20 28 6c 65 74 20 28 28 76 61 6c 69 64 69 74 79 20 28 64 69 3a 64 65 62 75 67 2d 76 61 72 | ...(let.((validity.(di:debug-var |
| 1ca300 | 69 61 62 6c 65 2d 76 61 6c 69 64 69 74 79 20 76 61 72 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 | iable-validity.var.location))).. |
| 1ca320 | 20 20 20 28 65 63 61 73 65 20 76 61 6c 69 64 69 74 79 0a 20 20 20 20 20 20 28 3a 76 61 6c 69 64 | ...(ecase.validity.......(:valid |
| 1ca340 | 20 28 64 69 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 76 61 6c 75 65 20 76 61 72 20 66 72 | .(di:debug-variable-value.var.fr |
| 1ca360 | 61 6d 65 29 29 0a 20 20 20 20 20 20 28 28 3a 69 6e 76 61 6c 69 64 20 3a 75 6e 6b 6e 6f 77 6e 29 | ame)).......((:invalid.:unknown) |
| 1ca380 | 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 76 61 6c 69 64 69 74 79 29 29 | .(make-symbol.(string.validity)) |
| 1ca3a0 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 6c | ))))..(defimplementation.frame-l |
| 1ca3c0 | 6f 63 61 6c 73 20 28 69 6e 64 65 78 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6e | ocals.(index)...(let*.((frame.(n |
| 1ca3e0 | 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 0a 09 20 28 6c 6f 63 20 28 64 69 3a 66 72 61 6d | th-frame.index))...(loc.(di:fram |
| 1ca400 | 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 29 0a 09 20 28 76 61 72 73 20 | e-code-location.frame))...(vars. |
| 1ca420 | 28 66 72 61 6d 65 2d 64 65 62 75 67 2d 76 61 72 73 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 | (frame-debug-vars.frame))).....( |
| 1ca440 | 6c 6f 6f 70 20 66 6f 72 20 76 20 61 63 72 6f 73 73 20 76 61 72 73 20 63 6f 6c 6c 65 63 74 0a 20 | loop.for.v.across.vars.collect.. |
| 1ca460 | 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 6e 61 6d 65 20 28 64 69 3a 64 65 62 75 67 2d 76 | .........(list.:name.(di:debug-v |
| 1ca480 | 61 72 69 61 62 6c 65 2d 73 79 6d 62 6f 6c 20 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ariable-symbol.v)............... |
| 1ca4a0 | 20 20 3a 69 64 20 28 64 69 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 69 64 20 76 29 0a 20 | ..:id.(di:debug-variable-id.v).. |
| 1ca4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 61 6c 75 65 20 28 64 65 62 75 67 2d 76 61 72 | ...............:value.(debug-var |
| 1ca4e0 | 2d 76 61 6c 75 65 20 76 20 66 72 61 6d 65 20 6c 6f 63 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 | -value.v.frame.loc)))))..(defimp |
| 1ca500 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 66 72 61 | lementation.frame-var-value.(fra |
| 1ca520 | 6d 65 20 76 61 72 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 | me.var)...(let*.((frame.(nth-fra |
| 1ca540 | 6d 65 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 76 61 72 20 28 61 72 65 66 20 | me.frame))..........(dvar.(aref. |
| 1ca560 | 28 66 72 61 6d 65 2d 64 65 62 75 67 2d 76 61 72 73 20 66 72 61 6d 65 29 20 76 61 72 29 29 29 0a | (frame-debug-vars.frame).var))). |
| 1ca580 | 20 20 20 20 28 64 65 62 75 67 2d 76 61 72 2d 76 61 6c 75 65 20 64 76 61 72 20 66 72 61 6d 65 20 | ....(debug-var-value.dvar.frame. |
| 1ca5a0 | 28 64 69 3a 66 72 61 6d 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 | (di:frame-code-location.frame))) |
| 1ca5c0 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 63 61 74 63 | )..(defimplementation.frame-catc |
| 1ca5e0 | 68 2d 74 61 67 73 20 28 69 6e 64 65 78 29 0a 20 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 28 | h-tags.(index)...(mapcar.#'car.( |
| 1ca600 | 64 69 3a 66 72 61 6d 65 2d 63 61 74 63 68 65 73 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 | di:frame-catches.(nth-frame.inde |
| 1ca620 | 78 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 74 75 72 6e | x))))..(defimplementation.return |
| 1ca640 | 2d 66 72 6f 6d 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 20 66 6f 72 6d 29 0a 20 20 28 6c 65 74 20 | -from-frame.(index.form)...(let. |
| 1ca660 | 28 28 73 79 6d 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 | ((sym.(find-symbol.(symbol-name. |
| 1ca680 | 27 23 3a 66 69 6e 64 2d 64 65 62 75 67 2d 74 61 67 2d 66 6f 72 2d 66 72 61 6d 65 29 0a 20 20 20 | '#:find-debug-tag-for-frame).... |
| 1ca6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 62 75 67 2d 69 6e | .......................:debug-in |
| 1ca6c0 | 74 65 72 6e 61 6c 73 29 29 29 0a 20 20 20 20 28 69 66 20 73 79 6d 0a 20 20 20 20 20 20 20 20 28 | ternals))).....(if.sym.........( |
| 1ca6e0 | 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 0a | let*.((frame.(nth-frame.index)). |
| 1ca700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 62 65 20 28 66 75 6e 63 61 6c 6c 20 73 | ...............(probe.(funcall.s |
| 1ca720 | 79 6d 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 70 72 6f | ym.frame)))...........(cond.(pro |
| 1ca740 | 62 65 20 28 74 68 72 6f 77 20 28 63 61 72 20 70 72 6f 62 65 29 20 28 65 76 61 6c 2d 69 6e 2d 66 | be.(throw.(car.probe).(eval-in-f |
| 1ca760 | 72 61 6d 65 20 66 6f 72 6d 20 69 6e 64 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | rame.form.index))).............. |
| 1ca780 | 20 20 20 28 74 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 43 61 6e 6e 6f 74 20 72 65 74 75 72 6e | ...(t.(format.nil."Cannot.return |
| 1ca7a0 | 20 66 72 6f 6d 20 66 72 61 6d 65 3a 20 7e 53 22 20 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 20 | .from.frame:.~S".frame))))...... |
| 1ca7c0 | 20 20 20 22 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 20 69 73 20 6e 6f 74 20 69 6d 70 | ..."return-from-frame.is.not.imp |
| 1ca7e0 | 6c 65 6d 65 6e 74 65 64 20 69 6e 20 74 68 69 73 20 76 65 72 73 69 6f 6e 20 6f 66 20 53 43 4c 2e | lemented.in.this.version.of.SCL. |
| 1ca800 | 22 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 63 74 69 76 61 74 | ")))..(defimplementation.activat |
| 1ca820 | 65 2d 73 74 65 70 70 69 6e 67 20 28 66 72 61 6d 65 29 0a 20 20 28 73 65 74 2d 73 74 65 70 2d 62 | e-stepping.(frame)...(set-step-b |
| 1ca840 | 72 65 61 6b 70 6f 69 6e 74 73 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 29 29 0a 0a | reakpoints.(nth-frame.frame))).. |
| 1ca860 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 64 62 2d 62 72 65 61 6b 2d 6f 6e | (defimplementation.sldb-break-on |
| 1ca880 | 2d 72 65 74 75 72 6e 20 28 66 72 61 6d 65 29 0a 20 20 28 62 72 65 61 6b 2d 6f 6e 2d 72 65 74 75 | -return.(frame)...(break-on-retu |
| 1ca8a0 | 72 6e 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 29 29 0a 0a 3b 3b 3b 20 57 65 20 73 | rn.(nth-frame.frame)))..;;;.We.s |
| 1ca8c0 | 65 74 20 74 68 65 20 62 72 65 61 6b 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 63 61 6c 6c 65 72 20 | et.the.breakpoint.in.the.caller. |
| 1ca8e0 | 77 68 69 63 68 20 6d 69 67 68 74 20 62 65 20 61 20 62 69 74 20 63 6f 6e 66 75 73 69 6e 67 2e 0a | which.might.be.a.bit.confusing.. |
| 1ca900 | 3b 3b 3b 0a 28 64 65 66 75 6e 20 62 72 65 61 6b 2d 6f 6e 2d 72 65 74 75 72 6e 20 28 66 72 61 6d | ;;;.(defun.break-on-return.(fram |
| 1ca920 | 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 61 6c 6c 65 72 20 28 64 69 3a 66 72 61 6d 65 2d 64 6f | e)...(let*.((caller.(di:frame-do |
| 1ca940 | 77 6e 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6c 20 28 64 69 3a 66 72 61 6d | wn.frame))..........(cl.(di:fram |
| 1ca960 | 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 61 6c 6c 65 72 29 29 29 0a 20 20 20 20 28 66 | e-code-location.caller))).....(f |
| 1ca980 | 6c 65 74 20 28 28 68 6f 6f 6b 20 28 66 72 61 6d 65 20 62 70 29 0a 20 20 20 20 20 20 20 20 20 20 | let.((hook.(frame.bp)........... |
| 1ca9a0 | 20 20 20 28 77 68 65 6e 20 28 66 72 61 6d 65 2d 70 6f 69 6e 74 65 72 3d 20 66 72 61 6d 65 20 63 | ...(when.(frame-pointer=.frame.c |
| 1ca9c0 | 61 6c 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 3a 64 65 6c 65 74 65 | aller)................(di:delete |
| 1ca9e0 | 2d 62 72 65 61 6b 70 6f 69 6e 74 20 62 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -breakpoint.bp)................( |
| 1caa00 | 73 69 67 6e 61 6c 2d 62 72 65 61 6b 70 6f 69 6e 74 20 62 70 20 66 72 61 6d 65 29 29 29 29 0a 20 | signal-breakpoint.bp.frame)))).. |
| 1caa20 | 20 20 20 20 20 28 6c 65 74 2a 20 28 28 69 6e 66 6f 20 28 65 63 61 73 65 20 28 64 69 3a 63 6f 64 | .....(let*.((info.(ecase.(di:cod |
| 1caa40 | 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6b 69 6e 64 20 63 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e-location-kind.cl)............. |
| 1caa60 | 20 20 20 20 20 20 20 20 20 28 28 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e 20 | .........((:single-value-return. |
| 1caa80 | 3a 75 6e 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | :unknown-return).nil)........... |
| 1caaa0 | 20 20 20 20 20 20 20 20 20 20 20 28 3a 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 20 28 64 65 62 75 67 | ...........(:known-return.(debug |
| 1caac0 | 2d 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -function-returns............... |
| 1caae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 3a 66 72 61 6d | ........................(di:fram |
| 1cab00 | 65 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 29 29 0a 20 20 20 20 | e-debug-function.frame)))))..... |
| 1cab20 | 20 20 20 20 20 20 20 20 20 28 62 70 20 28 64 69 3a 6d 61 6b 65 2d 62 72 65 61 6b 70 6f 69 6e 74 | .........(bp.(di:make-breakpoint |
| 1cab40 | 20 23 27 68 6f 6f 6b 20 63 6c 20 3a 6b 69 6e 64 20 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 0a | .#'hook.cl.:kind.:code-location. |
| 1cab60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1cab80 | 20 20 20 20 20 3a 69 6e 66 6f 20 69 6e 66 6f 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 3a 61 | .....:info.info))).........(di:a |
| 1caba0 | 63 74 69 76 61 74 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 62 70 29 0a 20 20 20 20 20 20 20 20 60 | ctivate-breakpoint.bp).........` |
| 1cabc0 | 28 3a 6f 6b 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 53 65 74 20 62 72 65 61 6b 70 6f 69 6e | (:ok.,(format.nil."Set.breakpoin |
| 1cabe0 | 74 20 69 6e 20 7e 41 22 20 63 61 6c 6c 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 | t.in.~A".caller))))))..(defun.fr |
| 1cac00 | 61 6d 65 2d 70 6f 69 6e 74 65 72 3d 20 28 66 72 61 6d 65 31 20 66 72 61 6d 65 32 29 0a 20 20 22 | ame-pointer=.(frame1.frame2)..." |
| 1cac20 | 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 65 20 66 72 61 6d 65 20 70 6f 69 6e 74 65 72 | Return.true.if.the.frame.pointer |
| 1cac40 | 73 20 6f 66 20 46 52 41 4d 45 31 20 61 6e 64 20 46 52 41 4d 45 32 20 61 72 65 20 74 68 65 20 73 | s.of.FRAME1.and.FRAME2.are.the.s |
| 1cac60 | 61 6d 65 2e 22 0a 20 20 28 73 79 73 3a 73 61 70 3d 20 28 64 69 3a 3a 66 72 61 6d 65 2d 70 6f 69 | ame."...(sys:sap=.(di::frame-poi |
| 1cac80 | 6e 74 65 72 20 66 72 61 6d 65 31 29 20 28 64 69 3a 3a 66 72 61 6d 65 2d 70 6f 69 6e 74 65 72 20 | nter.frame1).(di::frame-pointer. |
| 1caca0 | 66 72 61 6d 65 32 29 29 29 0a 0a 3b 3b 3b 20 54 68 65 20 50 43 20 69 6e 20 65 73 63 61 70 65 64 | frame2)))..;;;.The.PC.in.escaped |
| 1cacc0 | 20 66 72 61 6d 65 73 20 61 74 20 61 20 73 69 6e 67 6c 65 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 | .frames.at.a.single-return-value |
| 1cace0 | 20 70 6f 69 6e 74 20 69 73 0a 3b 3b 3b 20 61 63 74 75 61 6c 6c 79 20 76 6d 3a 73 69 6e 67 6c 65 | .point.is.;;;.actually.vm:single |
| 1cad00 | 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e 2d 62 79 74 65 2d 6f 66 66 73 65 74 20 62 79 74 65 73 20 | -value-return-byte-offset.bytes. |
| 1cad20 | 61 66 74 65 72 20 74 68 65 0a 3b 3b 3b 20 70 6f 73 69 74 69 6f 6e 20 67 69 76 65 6e 20 69 6e 20 | after.the.;;;.position.given.in. |
| 1cad40 | 74 68 65 20 64 65 62 75 67 20 69 6e 66 6f 2e 20 20 48 65 72 65 20 77 65 20 74 72 79 20 74 6f 20 | the.debug.info...Here.we.try.to. |
| 1cad60 | 72 65 63 6f 67 6e 69 7a 65 20 73 75 63 68 0a 3b 3b 3b 20 63 61 73 65 73 2e 0a 3b 3b 3b 0a 28 64 | recognize.such.;;;.cases..;;;.(d |
| 1cad80 | 65 66 75 6e 20 6e 65 78 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 28 66 72 61 6d 65 20 | efun.next-code-locations.(frame. |
| 1cada0 | 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 4c 69 6b 65 20 60 64 65 62 75 67 3a 3a 6e | code-location)..."Like.`debug::n |
| 1cadc0 | 65 78 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 73 27 20 62 75 74 20 62 65 20 63 61 72 65 66 | ext-code-locations'.but.be.caref |
| 1cade0 | 75 6c 20 69 6e 20 65 73 63 61 70 65 64 20 66 72 61 6d 65 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 | ul.in.escaped.frames."...(let.(( |
| 1cae00 | 6e 65 78 74 20 28 64 65 62 75 67 3a 3a 6e 65 78 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 73 | next.(debug::next-code-locations |
| 1cae20 | 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 61 64 | .code-location))).....(flet.((ad |
| 1cae40 | 6a 75 73 74 2d 70 63 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 | just-pc.()..............(let.((c |
| 1cae60 | 6c 20 28 64 69 3a 3a 63 6f 70 79 2d 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 | l.(di::copy-compiled-code-locati |
| 1cae80 | 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | on.code-location)))............. |
| 1caea0 | 20 20 20 28 69 6e 63 66 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 2d 6c 6f 63 61 | ...(incf.(di::compiled-code-loca |
| 1caec0 | 74 69 6f 6e 2d 70 63 20 63 6c 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion-pc.cl)..................... |
| 1caee0 | 20 20 76 6d 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e 2d 62 79 74 65 2d 6f 66 | ..vm:single-value-return-byte-of |
| 1caf00 | 66 73 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 29 29 29 0a 20 20 20 20 20 | fset)................cl)))...... |
| 1caf20 | 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 66 72 61 6d 65 | .(cond.((and.(di::compiled-frame |
| 1caf40 | 2d 65 73 63 61 70 65 64 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -escaped.frame)................. |
| 1caf60 | 20 20 28 65 71 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6b 69 6e 64 20 63 6f 64 | ..(eq.(di:code-location-kind.cod |
| 1caf80 | 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-location)..................... |
| 1cafa0 | 20 20 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e 29 0a 20 20 20 20 20 20 20 20 | ..:single-value-return)......... |
| 1cafc0 | 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6c 65 6e 67 74 68 20 6e 65 78 74 29 20 31 29 0a 20 20 | ..........(=.(length.next).1)... |
| 1cafe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f | ................(di:code-locatio |
| 1cb000 | 6e 3d 20 28 63 61 72 20 6e 65 78 74 29 20 28 61 64 6a 75 73 74 2d 70 63 29 29 29 0a 20 20 20 20 | n=.(car.next).(adjust-pc)))..... |
| 1cb020 | 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 3a 3a 6e 65 78 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 | .........(debug::next-code-locat |
| 1cb040 | 69 6f 6e 73 20 28 63 61 72 20 6e 65 78 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 | ions.(car.next))).............(t |
| 1cb060 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ..............next)))))..(defun. |
| 1cb080 | 73 65 74 2d 73 74 65 70 2d 62 72 65 61 6b 70 6f 69 6e 74 73 20 28 66 72 61 6d 65 29 0a 20 20 28 | set-step-breakpoints.(frame)...( |
| 1cb0a0 | 6c 65 74 20 28 28 63 6c 20 28 64 69 3a 66 72 61 6d 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e | let.((cl.(di:frame-code-location |
| 1cb0c0 | 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 64 69 3a 64 65 62 75 67 2d 62 6c | .frame))).....(when.(di:debug-bl |
| 1cb0e0 | 6f 63 6b 2d 65 6c 73 65 77 68 65 72 65 2d 70 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f | ock-elsewhere-p.(di:code-locatio |
| 1cb100 | 6e 2d 64 65 62 75 67 2d 62 6c 6f 63 6b 20 63 6c 29 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 | n-debug-block.cl)).......(error. |
| 1cb120 | 22 43 61 6e 6e 6f 74 20 73 74 65 70 20 69 6e 20 65 6c 73 65 77 68 65 72 65 20 63 6f 64 65 22 29 | "Cannot.step.in.elsewhere.code") |
| 1cb140 | 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 64 65 62 75 67 3a 3a 2a 62 61 64 2d 63 6f 64 65 2d 6c | ).....(let*.((debug::*bad-code-l |
| 1cb160 | 6f 63 61 74 69 6f 6e 2d 74 79 70 65 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f | ocation-types*.............(remo |
| 1cb180 | 76 65 20 3a 63 61 6c 6c 2d 73 69 74 65 20 64 65 62 75 67 3a 3a 2a 62 61 64 2d 63 6f 64 65 2d 6c | ve.:call-site.debug::*bad-code-l |
| 1cb1a0 | 6f 63 61 74 69 6f 6e 2d 74 79 70 65 73 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 78 | ocation-types*))............(nex |
| 1cb1c0 | 74 20 28 6e 65 78 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 66 72 61 6d 65 20 63 6c 29 | t.(next-code-locations.frame.cl) |
| 1cb1e0 | 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 6e 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 | )).......(cond.(next............ |
| 1cb200 | 20 20 28 6c 65 74 20 28 28 73 74 65 70 70 6f 69 6e 74 73 20 27 28 29 29 29 0a 20 20 20 20 20 20 | ..(let.((steppoints.'()))....... |
| 1cb220 | 20 20 20 20 20 20 20 20 20 28 66 6c 65 74 20 28 28 68 6f 6f 6b 20 28 62 70 2d 66 72 61 6d 65 20 | .........(flet.((hook.(bp-frame. |
| 1cb240 | 62 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 | bp).........................(sig |
| 1cb260 | 6e 61 6c 2d 62 72 65 61 6b 70 6f 69 6e 74 20 62 70 20 62 70 2d 66 72 61 6d 65 29 0a 20 20 20 20 | nal-breakpoint.bp.bp-frame)..... |
| 1cb280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 20 23 27 64 69 3a 64 | ....................(mapc.#'di:d |
| 1cb2a0 | 65 6c 65 74 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 73 74 65 70 70 6f 69 6e 74 73 29 29 29 0a 20 | elete-breakpoint.steppoints))).. |
| 1cb2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 63 6f 64 65 2d 6c 6f | ................(dolist.(code-lo |
| 1cb2e0 | 63 61 74 69 6f 6e 20 6e 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cation.next).................... |
| 1cb300 | 28 6c 65 74 20 28 28 62 70 20 28 64 69 3a 6d 61 6b 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 23 27 | (let.((bp.(di:make-breakpoint.#' |
| 1cb320 | 68 6f 6f 6b 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | hook.code-location.............. |
| 1cb340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1cb360 | 20 20 20 20 3a 6b 69 6e 64 20 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 | ....:kind.:code-location)))..... |
| 1cb380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 3a 61 63 74 69 76 61 74 65 2d 62 72 | .................(di:activate-br |
| 1cb3a0 | 65 61 6b 70 6f 69 6e 74 20 62 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eakpoint.bp).................... |
| 1cb3c0 | 20 20 28 70 75 73 68 20 62 70 20 73 74 65 70 70 6f 69 6e 74 73 29 29 29 29 29 29 0a 20 20 20 20 | ..(push.bp.steppoints))))))..... |
| 1cb3e0 | 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 72 65 61 6b 2d 6f | ........(t..............(break-o |
| 1cb400 | 6e 2d 72 65 74 75 72 6e 20 66 72 61 6d 65 29 29 29 29 29 29 0a 0a 0a 3b 3b 20 58 58 58 20 74 68 | n-return.frame))))))...;;.XXX.th |
| 1cb420 | 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 73 20 61 74 20 72 65 74 75 72 6e 20 62 72 65 61 6b 70 | e.return.values.at.return.breakp |
| 1cb440 | 6f 69 6e 74 73 20 73 68 6f 75 6c 64 20 62 65 20 70 61 73 73 65 64 20 74 6f 20 74 68 65 0a 3b 3b | oints.should.be.passed.to.the.;; |
| 1cb460 | 20 75 73 65 72 20 68 6f 6f 6b 73 2e 20 64 65 62 75 67 2d 69 6e 74 2e 6c 69 73 70 20 73 68 6f 75 | .user.hooks..debug-int.lisp.shou |
| 1cb480 | 6c 64 20 62 65 20 63 68 61 6e 67 65 64 20 74 6f 20 64 6f 20 74 68 69 73 20 63 6c 65 61 6e 6c 79 | ld.be.changed.to.do.this.cleanly |
| 1cb4a0 | 2e 0a 0a 3b 3b 3b 20 54 68 65 20 73 69 67 63 6f 6e 74 65 78 74 20 61 6e 64 20 74 68 65 20 50 43 | ...;;;.The.sigcontext.and.the.PC |
| 1cb4c0 | 20 66 6f 72 20 61 20 62 72 65 61 6b 70 6f 69 6e 74 20 69 6e 76 6f 63 61 74 69 6f 6e 20 61 72 65 | .for.a.breakpoint.invocation.are |
| 1cb4e0 | 20 6e 6f 74 0a 3b 3b 3b 20 70 61 73 73 65 64 20 74 6f 20 75 73 65 72 20 68 6f 6f 6b 20 66 75 6e | .not.;;;.passed.to.user.hook.fun |
| 1cb500 | 63 74 69 6f 6e 73 2c 20 62 75 74 20 77 65 20 6e 65 65 64 20 74 68 65 6d 20 74 6f 20 65 78 74 72 | ctions,.but.we.need.them.to.extr |
| 1cb520 | 61 63 74 20 72 65 74 75 72 6e 0a 3b 3b 3b 20 76 61 6c 75 65 73 2e 20 53 6f 20 77 65 20 61 64 76 | act.return.;;;.values..So.we.adv |
| 1cb540 | 69 63 65 20 64 69 3a 3a 68 61 6e 64 6c 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 61 6e 64 20 62 69 | ice.di::handle-breakpoint.and.bi |
| 1cb560 | 6e 64 20 74 68 65 20 76 61 6c 75 65 73 20 74 6f 0a 3b 3b 3b 20 73 70 65 63 69 61 6c 20 76 61 72 | nd.the.values.to.;;;.special.var |
| 1cb580 | 69 61 62 6c 65 73 2e 20 20 0a 3b 3b 3b 0a 28 64 65 66 76 61 72 20 2a 62 72 65 61 6b 70 6f 69 6e | iables....;;;.(defvar.*breakpoin |
| 1cb5a0 | 74 2d 73 69 67 63 6f 6e 74 65 78 74 2a 29 0a 28 64 65 66 76 61 72 20 2a 62 72 65 61 6b 70 6f 69 | t-sigcontext*).(defvar.*breakpoi |
| 1cb5c0 | 6e 74 2d 70 63 2a 29 0a 0a 28 64 65 66 75 6e 20 73 69 67 63 6f 6e 74 65 78 74 2d 6f 62 6a 65 63 | nt-pc*)..(defun.sigcontext-objec |
| 1cb5e0 | 74 20 28 73 63 20 69 6e 64 65 78 29 0a 20 20 22 45 78 74 72 61 63 74 20 74 68 65 20 6c 69 73 70 | t.(sc.index)..."Extract.the.lisp |
| 1cb600 | 20 6f 62 6a 65 63 74 20 69 6e 20 73 69 67 63 6f 6e 74 65 78 74 20 53 43 20 61 74 20 6f 66 66 73 | .object.in.sigcontext.SC.at.offs |
| 1cb620 | 65 74 20 49 4e 44 45 58 2e 22 0a 20 20 28 6b 65 72 6e 65 6c 3a 6d 61 6b 65 2d 6c 69 73 70 2d 6f | et.INDEX."...(kernel:make-lisp-o |
| 1cb640 | 62 6a 20 28 76 6d 3a 75 63 6f 6e 74 65 78 74 2d 72 65 67 69 73 74 65 72 20 73 63 20 69 6e 64 65 | bj.(vm:ucontext-register.sc.inde |
| 1cb660 | 78 29 29 29 0a 0a 28 64 65 66 75 6e 20 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 2d 70 6f 69 6e 74 2d | x)))..(defun.known-return-point- |
| 1cb680 | 76 61 6c 75 65 73 20 28 73 69 67 63 6f 6e 74 65 78 74 20 73 63 2d 6f 66 66 73 65 74 73 29 0a 20 | values.(sigcontext.sc-offsets).. |
| 1cb6a0 | 20 28 6c 65 74 20 28 28 66 70 20 28 73 79 73 74 65 6d 3a 69 6e 74 2d 73 61 70 20 28 76 6d 3a 75 | .(let.((fp.(system:int-sap.(vm:u |
| 1cb6c0 | 63 6f 6e 74 65 78 74 2d 72 65 67 69 73 74 65 72 20 73 69 67 63 6f 6e 74 65 78 74 0a 20 20 20 20 | context-register.sigcontext..... |
| 1cb6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1cb700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6d 3a 3a 63 66 70 2d 6f 66 66 73 65 74 29 29 29 29 | ..............vm::cfp-offset)))) |
| 1cb720 | 0a 20 20 20 20 28 73 79 73 74 65 6d 3a 77 69 74 68 6f 75 74 2d 67 63 69 6e 67 0a 20 20 20 20 20 | .....(system:without-gcing...... |
| 1cb740 | 28 6c 6f 6f 70 20 66 6f 72 20 73 63 2d 6f 66 66 73 65 74 20 61 63 72 6f 73 73 20 73 63 2d 6f 66 | (loop.for.sc-offset.across.sc-of |
| 1cb760 | 66 73 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 64 69 3a 3a 73 75 | fsets............collect.(di::su |
| 1cb780 | 62 2d 61 63 63 65 73 73 2d 64 65 62 75 67 2d 76 61 72 2d 73 6c 6f 74 20 66 70 20 73 63 2d 6f 66 | b-access-debug-var-slot.fp.sc-of |
| 1cb7a0 | 66 73 65 74 20 73 69 67 63 6f 6e 74 65 78 74 29 29 29 29 29 0a 0a 3b 3b 3b 20 53 43 4c 20 72 65 | fset.sigcontext)))))..;;;.SCL.re |
| 1cb7c0 | 74 75 72 6e 73 20 74 68 65 20 66 69 72 73 74 20 66 65 77 20 76 61 6c 75 65 73 20 69 6e 20 72 65 | turns.the.first.few.values.in.re |
| 1cb7e0 | 67 69 73 74 65 72 73 20 61 6e 64 20 74 68 65 20 72 65 73 74 20 6f 6e 0a 3b 3b 3b 20 74 68 65 20 | gisters.and.the.rest.on.;;;.the. |
| 1cb800 | 73 74 61 63 6b 2e 20 49 6e 20 74 68 65 20 6d 75 6c 74 69 70 6c 65 20 76 61 6c 75 65 20 63 61 73 | stack..In.the.multiple.value.cas |
| 1cb820 | 65 2c 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 76 61 6c 75 65 73 20 69 73 0a 3b 3b 3b 20 73 | e,.the.number.of.values.is.;;;.s |
| 1cb840 | 74 6f 72 65 64 20 69 6e 20 61 20 64 65 64 69 63 61 74 65 64 20 72 65 67 69 73 74 65 72 2e 20 54 | tored.in.a.dedicated.register..T |
| 1cb860 | 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 72 65 67 69 73 74 65 72 73 20 63 61 6e 20 62 | he.values.of.the.registers.can.b |
| 1cb880 | 65 0a 3b 3b 3b 20 61 63 63 65 73 73 65 64 20 69 6e 20 74 68 65 20 73 69 67 63 6f 6e 74 65 78 74 | e.;;;.accessed.in.the.sigcontext |
| 1cb8a0 | 20 66 6f 72 20 74 68 65 20 62 72 65 61 6b 70 6f 69 6e 74 2e 20 20 54 68 65 72 65 20 61 72 65 20 | .for.the.breakpoint...There.are. |
| 1cb8c0 | 33 20 6b 69 6e 64 73 0a 3b 3b 3b 20 6f 66 20 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e | 3.kinds.;;;.of.return.convention |
| 1cb8e0 | 73 3a 20 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e 2c 20 3a 75 6e 6b 6e 6f 77 | s:.:single-value-return,.:unknow |
| 1cb900 | 6e 2d 72 65 74 75 72 6e 2c 20 61 6e 64 0a 3b 3b 3b 20 3a 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 2e | n-return,.and.;;;.:known-return. |
| 1cb920 | 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 | .;;;.;;;.The.:single-value-retur |
| 1cb940 | 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65 20 69 | n.convention.returns.the.value.i |
| 1cb960 | 6e 20 61 0a 3b 3b 3b 20 72 65 67 69 73 74 65 72 20 77 69 74 68 6f 75 74 20 73 65 74 74 69 6e 67 | n.a.;;;.register.without.setting |
| 1cb980 | 20 74 68 65 20 6e 61 72 67 73 20 72 65 67 69 73 74 65 72 73 2e 20 20 0a 3b 3b 3b 0a 3b 3b 3b 20 | .the.nargs.registers....;;;.;;;. |
| 1cb9a0 | 54 68 65 20 3a 75 6e 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 20 76 61 72 69 61 6e 74 20 69 73 20 75 | The.:unknown-return.variant.is.u |
| 1cb9c0 | 73 65 64 20 66 6f 72 20 6d 75 6c 74 69 70 6c 65 20 76 61 6c 75 65 73 2e 20 41 0a 3b 3b 3b 20 3a | sed.for.multiple.values..A.;;;.: |
| 1cb9e0 | 75 6e 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 20 70 6f 69 6e 74 20 63 6f 6e 73 69 73 74 73 20 61 63 | unknown-return.point.consists.ac |
| 1cba00 | 74 75 61 6c 6c 79 20 6f 66 20 32 20 62 72 65 61 6b 70 6f 69 6e 74 73 3a 20 6f 6e 65 20 66 6f 72 | tually.of.2.breakpoints:.one.for |
| 1cba20 | 0a 3b 3b 3b 20 74 68 65 20 73 69 6e 67 6c 65 20 76 61 6c 75 65 20 63 61 73 65 20 61 6e 64 20 6f | .;;;.the.single.value.case.and.o |
| 1cba40 | 6e 65 20 66 6f 72 20 74 68 65 20 67 65 6e 65 72 61 6c 20 63 61 73 65 2e 20 20 54 68 65 20 73 69 | ne.for.the.general.case...The.si |
| 1cba60 | 6e 67 6c 65 0a 3b 3b 3b 20 76 61 6c 75 65 20 62 72 65 61 6b 70 6f 69 6e 74 20 63 6f 6d 65 73 20 | ngle.;;;.value.breakpoint.comes. |
| 1cba80 | 76 6d 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e 2d 62 79 74 65 2d 6f 66 66 73 | vm:single-value-return-byte-offs |
| 1cbaa0 | 65 74 20 61 66 74 65 72 0a 3b 3b 3b 20 74 68 65 20 6d 75 6c 74 69 70 6c 65 20 76 61 6c 75 65 20 | et.after.;;;.the.multiple.value. |
| 1cbac0 | 62 72 65 61 6b 70 6f 69 6e 74 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 3a 6b 6e 6f 77 6e 2d 72 | breakpoint..;;;.;;;.The.:known-r |
| 1cbae0 | 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 69 73 20 75 73 65 64 20 62 79 20 6c 6f 63 61 | eturn.convention.is.used.by.loca |
| 1cbb00 | 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 3b 3b 3b 20 3a 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 20 69 | l.functions..;;;.:known-return.i |
| 1cbb20 | 73 20 63 75 72 72 65 6e 74 6c 79 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 62 65 63 61 75 73 | s.currently.not.supported.becaus |
| 1cbb40 | 65 20 77 65 20 64 6f 6e 27 74 20 6b 6e 6f 77 0a 3b 3b 3b 20 77 68 65 72 65 20 74 68 65 20 76 61 | e.we.don't.know.;;;.where.the.va |
| 1cbb60 | 6c 75 65 73 20 61 72 65 20 70 61 73 73 65 64 2e 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 62 72 65 61 | lues.are.passed..;;;.(defun.brea |
| 1cbb80 | 6b 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 28 62 72 65 61 6b 70 6f 69 6e 74 29 0a 20 20 22 52 65 | kpoint-values.(breakpoint)..."Re |
| 1cbba0 | 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65 74 75 72 6e 20 76 61 6c 75 65 73 20 66 | turn.the.list.of.return.values.f |
| 1cbbc0 | 6f 72 20 61 20 72 65 74 75 72 6e 20 70 6f 69 6e 74 2e 22 0a 20 20 28 66 6c 65 74 20 28 28 31 73 | or.a.return.point."...(flet.((1s |
| 1cbbe0 | 74 20 28 73 63 29 20 28 73 69 67 63 6f 6e 74 65 78 74 2d 6f 62 6a 65 63 74 20 73 63 20 28 63 61 | t.(sc).(sigcontext-object.sc.(ca |
| 1cbc00 | 72 20 76 6d 3a 3a 72 65 67 69 73 74 65 72 2d 61 72 67 2d 6f 66 66 73 65 74 73 29 29 29 29 0a 20 | r.vm::register-arg-offsets)))).. |
| 1cbc20 | 20 20 20 28 6c 65 74 20 28 28 73 63 20 28 6c 6f 63 61 6c 6c 79 20 28 64 65 63 6c 61 72 65 20 28 | ...(let.((sc.(locally.(declare.( |
| 1cbc40 | 6f 70 74 69 6d 69 7a 65 20 28 65 78 74 3a 69 6e 68 69 62 69 74 2d 77 61 72 6e 69 6e 67 73 20 33 | optimize.(ext:inhibit-warnings.3 |
| 1cbc60 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6c 69 65 6e 3a 73 61 70 2d 61 | ))).................(alien:sap-a |
| 1cbc80 | 6c 69 65 6e 20 2a 62 72 65 61 6b 70 6f 69 6e 74 2d 73 69 67 63 6f 6e 74 65 78 74 2a 20 28 2a 20 | lien.*breakpoint-sigcontext*.(*. |
| 1cbca0 | 75 6e 69 78 3a 75 63 6f 6e 74 65 78 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 20 | unix:ucontext))))...........(cl. |
| 1cbcc0 | 28 64 69 3a 62 72 65 61 6b 70 6f 69 6e 74 2d 77 68 61 74 20 62 72 65 61 6b 70 6f 69 6e 74 29 29 | (di:breakpoint-what.breakpoint)) |
| 1cbce0 | 29 0a 20 20 20 20 20 20 28 65 63 61 73 65 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e | ).......(ecase.(di:code-location |
| 1cbd00 | 2d 6b 69 6e 64 20 63 6c 29 0a 20 20 20 20 20 20 20 20 28 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 | -kind.cl).........(:single-value |
| 1cbd20 | 2d 72 65 74 75 72 6e 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 31 73 74 20 73 63 29 29 | -return..........(list.(1st.sc)) |
| 1cbd40 | 29 0a 20 20 20 20 20 20 20 20 28 3a 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 0a 20 20 20 20 20 20 20 | ).........(:known-return........ |
| 1cbd60 | 20 20 28 6c 65 74 20 28 28 69 6e 66 6f 20 28 64 69 3a 62 72 65 61 6b 70 6f 69 6e 74 2d 69 6e 66 | ..(let.((info.(di:breakpoint-inf |
| 1cbd80 | 6f 20 62 72 65 61 6b 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | o.breakpoint)))............(if.( |
| 1cbda0 | 76 65 63 74 6f 72 70 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 6e | vectorp.info)................(kn |
| 1cbdc0 | 6f 77 6e 2d 72 65 74 75 72 6e 2d 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 73 63 20 69 6e 66 6f 29 | own-return-point-values.sc.info) |
| 1cbde0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 0a 20 20 20 20 20 20 20 20 | ................(progn.......... |
| 1cbe00 | 20 20 20 20 20 20 20 20 20 3b 3b 28 62 72 65 61 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........;;(break).............. |
| 1cbe20 | 20 20 20 20 28 6c 69 73 74 20 22 3c 3c 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e | ....(list."<<known-return.conven |
| 1cbe40 | 74 69 6f 6e 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 3e 3e 22 20 69 6e 66 6f 29 29 29 29 29 0a | tion.not.supported>>".info))))). |
| 1cbe60 | 20 20 20 20 20 20 20 20 28 3a 75 6e 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 0a 20 20 20 20 20 20 20 | ........(:unknown-return........ |
| 1cbe80 | 20 20 28 6c 65 74 20 28 28 6d 76 2d 72 65 74 75 72 6e 2d 70 63 20 28 64 69 3a 3a 63 6f 6d 70 69 | ..(let.((mv-return-pc.(di::compi |
| 1cbea0 | 6c 65 64 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 63 20 63 6c 29 29 29 0a 20 20 20 20 20 | led-code-location-pc.cl)))...... |
| 1cbec0 | 20 20 20 20 20 20 28 69 66 20 28 3d 20 6d 76 2d 72 65 74 75 72 6e 2d 70 63 20 2a 62 72 65 61 6b | ......(if.(=.mv-return-pc.*break |
| 1cbee0 | 70 6f 69 6e 74 2d 70 63 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 76 2d 66 75 | point-pc*)................(mv-fu |
| 1cbf00 | 6e 63 74 69 6f 6e 2d 65 6e 64 2d 62 72 65 61 6b 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 73 63 29 | nction-end-breakpoint-values.sc) |
| 1cbf20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 31 73 74 20 73 63 29 29 29 | ................(list.(1st.sc))) |
| 1cbf40 | 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 76 2d 66 75 6e 63 74 69 6f 6e 2d 65 6e 64 2d 62 | ))))))..(defun.mv-function-end-b |
| 1cbf60 | 72 65 61 6b 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 28 73 69 67 63 6f 6e 74 65 78 74 29 0a 20 20 | reakpoint-values.(sigcontext)... |
| 1cbf80 | 28 6c 65 74 20 28 28 73 79 6d 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 0a 20 20 20 20 20 20 20 | (let.((sym.(find-symbol......... |
| 1cbfa0 | 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 27 23 3a 66 75 6e 63 74 69 6f 6e 2d | .......(symbol-name.'#:function- |
| 1cbfc0 | 65 6e 64 2d 62 72 65 61 6b 70 6f 69 6e 74 2d 76 61 6c 75 65 73 2f 73 74 61 6e 64 61 72 64 29 0a | end-breakpoint-values/standard). |
| 1cbfe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 62 75 67 2d 69 6e 74 65 72 6e 61 6c 73 29 29 | ..............:debug-internals)) |
| 1cc000 | 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 73 79 6d 20 28 66 75 6e 63 61 6c 6c 20 73 79 6d 20 73 69 | ).....(cond.(sym.(funcall.sym.si |
| 1cc020 | 67 63 6f 6e 74 65 78 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 64 69 3a 3a 67 65 74 | gcontext))...........(t.(di::get |
| 1cc040 | 2d 66 75 6e 63 74 69 6f 6e 2d 65 6e 64 2d 62 72 65 61 6b 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 | -function-end-breakpoint-values. |
| 1cc060 | 73 69 67 63 6f 6e 74 65 78 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 2d 66 75 | sigcontext)))))..(defun.debug-fu |
| 1cc080 | 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 73 20 28 64 65 62 75 67 2d 66 75 6e 29 0a 20 20 22 52 65 | nction-returns.(debug-fun)..."Re |
| 1cc0a0 | 74 75 72 6e 20 74 68 65 20 72 65 74 75 72 6e 20 73 74 79 6c 65 20 6f 66 20 44 45 42 55 47 2d 46 | turn.the.return.style.of.DEBUG-F |
| 1cc0c0 | 55 4e 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 63 64 66 75 6e 20 28 64 69 3a 3a 63 6f 6d 70 69 6c | UN."...(let*.((cdfun.(di::compil |
| 1cc0e0 | 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 63 6f 6d 70 69 6c 65 72 2d 64 65 62 75 67 | ed-debug-function-compiler-debug |
| 1cc100 | 2d 66 75 6e 20 64 65 62 75 67 2d 66 75 6e 29 29 29 0a 20 20 20 20 28 63 3a 3a 63 6f 6d 70 69 6c | -fun.debug-fun))).....(c::compil |
| 1cc120 | 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 73 20 63 64 66 75 6e 29 | ed-debug-function-returns.cdfun) |
| 1cc140 | 29 29 0a 0a 28 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 62 72 65 61 6b 70 6f 69 6e 74 | ))..(define-condition.breakpoint |
| 1cc160 | 20 28 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 29 20 0a 20 20 28 28 6d 65 73 73 61 67 65 | .(simple-condition)....((message |
| 1cc180 | 20 3a 69 6e 69 74 61 72 67 20 3a 6d 65 73 73 61 67 65 20 3a 72 65 61 64 65 72 20 62 72 65 61 6b | .:initarg.:message.:reader.break |
| 1cc1a0 | 70 6f 69 6e 74 2e 6d 65 73 73 61 67 65 29 0a 20 20 20 28 76 61 6c 75 65 73 20 20 3a 69 6e 69 74 | point.message)....(values..:init |
| 1cc1c0 | 61 72 67 20 3a 76 61 6c 75 65 73 20 20 3a 72 65 61 64 65 72 20 62 72 65 61 6b 70 6f 69 6e 74 2e | arg.:values..:reader.breakpoint. |
| 1cc1e0 | 76 61 6c 75 65 73 29 29 0a 20 20 28 3a 72 65 70 6f 72 74 20 28 6c 61 6d 62 64 61 20 28 63 20 73 | values))...(:report.(lambda.(c.s |
| 1cc200 | 74 72 65 61 6d 29 20 28 70 72 69 6e 63 20 28 62 72 65 61 6b 70 6f 69 6e 74 2e 6d 65 73 73 61 67 | tream).(princ.(breakpoint.messag |
| 1cc220 | 65 20 63 29 20 73 74 72 65 61 6d 29 29 29 29 0a 0a 23 2b 6e 69 6c 0a 28 64 65 66 69 6d 70 6c 65 | e.c).stream))))..#+nil.(defimple |
| 1cc240 | 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 2d 65 78 74 72 61 73 20 28 28 63 20 62 | mentation.condition-extras.((c.b |
| 1cc260 | 72 65 61 6b 70 6f 69 6e 74 29 29 0a 20 20 3b 3b 20 73 69 6d 70 6c 79 20 70 6f 70 20 75 70 20 74 | reakpoint))...;;.simply.pop.up.t |
| 1cc280 | 68 65 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 0a 20 20 60 28 28 3a 73 68 6f 72 74 2d 66 72 61 | he.source.buffer...`((:short-fra |
| 1cc2a0 | 6d 65 2d 73 6f 75 72 63 65 20 30 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d 62 72 | me-source.0)))..(defun.signal-br |
| 1cc2c0 | 65 61 6b 70 6f 69 6e 74 20 28 62 72 65 61 6b 70 6f 69 6e 74 20 66 72 61 6d 65 29 0a 20 20 22 53 | eakpoint.(breakpoint.frame)..."S |
| 1cc2e0 | 69 67 6e 61 6c 20 61 20 62 72 65 61 6b 70 6f 69 6e 74 20 63 6f 6e 64 69 74 69 6f 6e 20 66 6f 72 | ignal.a.breakpoint.condition.for |
| 1cc300 | 20 42 52 45 41 4b 50 4f 49 4e 54 20 69 6e 20 46 52 41 4d 45 2e 0a 54 72 79 20 74 6f 20 63 72 65 | .BREAKPOINT.in.FRAME..Try.to.cre |
| 1cc320 | 61 74 65 20 61 20 69 6e 66 6f 72 6d 61 74 69 76 65 20 6d 65 73 73 61 67 65 2e 22 0a 20 20 28 66 | ate.a.informative.message."...(f |
| 1cc340 | 6c 65 74 20 28 28 62 72 6b 20 28 76 61 6c 75 65 73 20 66 73 74 72 69 6e 67 20 26 72 65 73 74 20 | let.((brk.(values.fstring.&rest. |
| 1cc360 | 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 73 67 20 28 61 70 70 | args)............(let.((msg.(app |
| 1cc380 | 6c 79 20 23 27 66 6f 72 6d 61 74 20 6e 69 6c 20 66 73 74 72 69 6e 67 20 61 72 67 73 29 29 0a 20 | ly.#'format.nil.fstring.args)).. |
| 1cc3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 3a 2a 73 74 61 63 6b 2d 74 6f | ................(debug:*stack-to |
| 1cc3c0 | 70 2d 68 69 6e 74 2a 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 72 | p-hint*.frame))..............(br |
| 1cc3e0 | 65 61 6b 20 27 62 72 65 61 6b 70 6f 69 6e 74 20 3a 6d 65 73 73 61 67 65 20 6d 73 67 20 3a 76 61 | eak.'breakpoint.:message.msg.:va |
| 1cc400 | 6c 75 65 73 20 76 61 6c 75 65 73 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 | lues.values)))).....(with-struct |
| 1cc420 | 20 28 64 69 3a 3a 62 72 65 61 6b 70 6f 69 6e 74 2d 20 6b 69 6e 64 20 77 68 61 74 29 20 62 72 65 | .(di::breakpoint-.kind.what).bre |
| 1cc440 | 61 6b 70 6f 69 6e 74 0a 20 20 20 20 20 20 28 63 61 73 65 20 6b 69 6e 64 0a 20 20 20 20 20 20 20 | akpoint.......(case.kind........ |
| 1cc460 | 20 28 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 63 61 73 65 20 | .(:code-location..........(case. |
| 1cc480 | 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6b 69 6e 64 20 77 68 61 74 29 0a 20 20 20 | (di:code-location-kind.what).... |
| 1cc4a0 | 20 20 20 20 20 20 20 20 28 28 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e 20 3a | ........((:single-value-return.: |
| 1cc4c0 | 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 20 3a 75 6e 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 29 0a 20 20 | known-return.:unknown-return)... |
| 1cc4e0 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 73 20 28 62 72 65 61 6b 70 6f | ..........(let.((values.(breakpo |
| 1cc500 | 69 6e 74 2d 76 61 6c 75 65 73 20 62 72 65 61 6b 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 | int-values.breakpoint)))........ |
| 1cc520 | 20 20 20 20 20 20 20 28 62 72 6b 20 76 61 6c 75 65 73 20 22 52 65 74 75 72 6e 20 76 61 6c 75 65 | .......(brk.values."Return.value |
| 1cc540 | 3a 20 7e 7b 7e 53 20 7e 7d 22 20 76 61 6c 75 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | :.~{~S.~}".values)))............ |
| 1cc560 | 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 28 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 | (t.............#+(or)........... |
| 1cc580 | 20 20 28 77 68 65 6e 20 28 65 71 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6b 69 | ..(when.(eq.(di:code-location-ki |
| 1cc5a0 | 6e 64 20 77 68 61 74 29 20 3a 63 61 6c 6c 2d 73 69 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | nd.what).:call-site)............ |
| 1cc5c0 | 20 20 20 28 63 61 6c 6c 2d 73 69 74 65 2d 66 75 6e 63 74 69 6f 6e 20 62 72 65 61 6b 70 6f 69 6e | ...(call-site-function.breakpoin |
| 1cc5e0 | 74 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 72 6b 20 6e 69 6c 20 22 | t.frame)).............(brk.nil." |
| 1cc600 | 42 72 65 61 6b 70 6f 69 6e 74 3a 20 7e 53 20 7e 53 22 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 | Breakpoint:.~S.~S".............. |
| 1cc620 | 20 20 20 20 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6b 69 6e 64 20 77 68 61 74 | .....(di:code-location-kind.what |
| 1cc640 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 | )..................(di::compiled |
| 1cc660 | 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 63 20 77 68 61 74 29 29 29 29 29 0a 20 20 20 20 | -code-location-pc.what)))))..... |
| 1cc680 | 20 20 20 20 28 3a 66 75 6e 63 74 69 6f 6e 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 28 62 | ....(:function-start..........(b |
| 1cc6a0 | 72 6b 20 6e 69 6c 20 22 46 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 20 62 72 65 61 6b 70 6f 69 6e | rk.nil."Function.start.breakpoin |
| 1cc6c0 | 74 22 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 62 72 6b 20 6e 69 6c 20 22 42 72 65 61 6b 70 | t")).........(t.(brk.nil."Breakp |
| 1cc6e0 | 6f 69 6e 74 3a 20 7e 41 20 69 6e 20 7e 41 22 20 62 72 65 61 6b 70 6f 69 6e 74 20 66 72 61 6d 65 | oint:.~A.in.~A".breakpoint.frame |
| 1cc700 | 29 29 29 29 29 29 0a 0a 23 2b 6e 69 6c 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ))))))..#+nil.(defimplementation |
| 1cc720 | 20 73 6c 64 62 2d 62 72 65 61 6b 2d 61 74 2d 73 74 61 72 74 20 28 66 6e 61 6d 65 29 0a 20 20 28 | .sldb-break-at-start.(fname)...( |
| 1cc740 | 6c 65 74 20 28 28 64 65 62 75 67 2d 66 75 6e 20 28 64 69 3a 66 75 6e 63 74 69 6f 6e 2d 64 65 62 | let.((debug-fun.(di:function-deb |
| 1cc760 | 75 67 2d 66 75 6e 63 74 69 6f 6e 20 28 63 6f 65 72 63 65 20 66 6e 61 6d 65 20 27 66 75 6e 63 74 | ug-function.(coerce.fname.'funct |
| 1cc780 | 69 6f 6e 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 64 65 62 75 67 2d 66 75 | ion)))).....(cond.((not.debug-fu |
| 1cc7a0 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 | n)............`(:error.,(format. |
| 1cc7c0 | 6e 69 6c 20 22 7e 53 20 68 61 73 20 6e 6f 20 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 22 20 66 | nil."~S.has.no.debug-function".f |
| 1cc7e0 | 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 | name)))...........(t............ |
| 1cc800 | 28 66 6c 65 74 20 28 28 68 6f 6f 6b 20 28 66 72 61 6d 65 20 62 70 20 26 6f 70 74 69 6f 6e 61 6c | (flet.((hook.(frame.bp.&optional |
| 1cc820 | 20 61 72 67 73 20 63 6f 6f 6b 69 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .args.cookie)................... |
| 1cc840 | 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 20 63 6f 6f 6b 69 65 29 29 | ..(declare.(ignore.args.cookie)) |
| 1cc860 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 62 72 65 | .....................(signal-bre |
| 1cc880 | 61 6b 70 6f 69 6e 74 20 62 70 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | akpoint.bp.frame)))............. |
| 1cc8a0 | 20 28 6c 65 74 20 28 28 62 70 20 28 64 69 3a 6d 61 6b 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 23 | .(let.((bp.(di:make-breakpoint.# |
| 1cc8c0 | 27 68 6f 6f 6b 20 64 65 62 75 67 2d 66 75 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 'hook.debug-fun................. |
| 1cc8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 69 6e 64 | ...........................:kind |
| 1cc900 | 20 3a 66 75 6e 63 74 69 6f 6e 2d 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .:function-start)))............. |
| 1cc920 | 20 20 20 28 64 69 3a 61 63 74 69 76 61 74 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 62 70 29 0a 20 | ...(di:activate-breakpoint.bp).. |
| 1cc940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 6f 6b 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c | ..............`(:ok.,(format.nil |
| 1cc960 | 20 22 53 65 74 20 62 72 65 61 6b 70 6f 69 6e 74 20 69 6e 20 7e 53 22 20 66 6e 61 6d 65 29 29 29 | ."Set.breakpoint.in.~S".fname))) |
| 1cc980 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 63 66 70 20 28 66 72 61 6d 65 29 0a | )))))..(defun.frame-cfp.(frame). |
| 1cc9a0 | 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 43 6f 6e 74 72 6f 6c 2d 53 74 61 63 6b 2d 46 72 61 6d | .."Return.the.Control-Stack-Fram |
| 1cc9c0 | 65 2d 50 6f 69 6e 74 65 72 20 66 6f 72 20 46 52 41 4d 45 2e 22 0a 20 20 28 65 74 79 70 65 63 61 | e-Pointer.for.FRAME."...(etypeca |
| 1cc9e0 | 73 65 20 66 72 61 6d 65 0a 20 20 20 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 66 72 61 6d 65 | se.frame.....(di::compiled-frame |
| 1cca00 | 20 28 64 69 3a 3a 66 72 61 6d 65 2d 70 6f 69 6e 74 65 72 20 66 72 61 6d 65 29 29 0a 20 20 20 20 | .(di::frame-pointer.frame))..... |
| 1cca20 | 28 28 6f 72 20 64 69 3a 3a 69 6e 74 65 72 70 72 65 74 65 64 2d 66 72 61 6d 65 20 6e 75 6c 6c 29 | ((or.di::interpreted-frame.null) |
| 1cca40 | 20 2d 31 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 69 70 20 28 66 72 61 6d 65 29 0a | .-1)))..(defun.frame-ip.(frame). |
| 1cca60 | 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 28 61 62 73 6f 6c 75 74 65 29 20 69 6e 73 74 72 75 63 | .."Return.the.(absolute).instruc |
| 1cca80 | 74 69 6f 6e 20 70 6f 69 6e 74 65 72 20 61 6e 64 20 74 68 65 20 72 65 6c 61 74 69 76 65 20 70 63 | tion.pointer.and.the.relative.pc |
| 1ccaa0 | 20 6f 66 20 46 52 41 4d 45 2e 22 0a 20 20 28 69 66 20 28 6e 6f 74 20 66 72 61 6d 65 29 0a 20 20 | .of.FRAME."...(if.(not.frame)... |
| 1ccac0 | 20 20 20 20 2d 31 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 62 75 67 2d 66 75 6e 20 28 64 | ....-1.......(let.((debug-fun.(d |
| 1ccae0 | 69 3a 3a 66 72 61 6d 65 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 | i::frame-debug-function.frame))) |
| 1ccb00 | 0a 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 64 65 62 75 67 2d 66 75 6e 0a 20 20 | .........(etypecase.debug-fun... |
| 1ccb20 | 20 20 20 20 20 20 20 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 | ........(di::compiled-debug-func |
| 1ccb40 | 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 64 65 2d 6c 6f | tion.............(let*.((code-lo |
| 1ccb60 | 63 20 28 64 69 3a 66 72 61 6d 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 | c.(di:frame-code-location.frame) |
| 1ccb80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6f 6e 65 6e 74 20 28 | )...................(component.( |
| 1ccba0 | 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 63 6f 6d 70 | di::compiled-debug-function-comp |
| 1ccbc0 | 6f 6e 65 6e 74 20 64 65 62 75 67 2d 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | onent.debug-fun))............... |
| 1ccbe0 | 20 20 20 20 28 70 63 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 2d 6c 6f 63 61 74 | ....(pc.(di::compiled-code-locat |
| 1ccc00 | 69 6f 6e 2d 70 63 20 63 6f 64 65 2d 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion-pc.code-loc))............... |
| 1ccc20 | 20 20 20 20 28 69 70 20 28 73 79 73 3a 77 69 74 68 6f 75 74 2d 67 63 69 6e 67 0a 20 20 20 20 20 | ....(ip.(sys:without-gcing...... |
| 1ccc40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 73 61 70 2d 69 6e 74 0a 20 | ..................(sys:sap-int.. |
| 1ccc60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 73 61 70 2b | .......................(sys:sap+ |
| 1ccc80 | 20 28 6b 65 72 6e 65 6c 3a 63 6f 64 65 2d 69 6e 73 74 72 75 63 74 69 6f 6e 73 20 63 6f 6d 70 6f | .(kernel:code-instructions.compo |
| 1ccca0 | 6e 65 6e 74 29 20 70 63 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 | nent).pc)))))..............(valu |
| 1cccc0 | 65 73 20 69 70 20 70 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 64 69 3a 3a 62 | es.ip.pc)))...........((or.di::b |
| 1ccce0 | 6f 67 75 73 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 64 69 3a 3a 69 6e 74 65 72 70 72 65 | ogus-debug-function.di::interpre |
| 1ccd00 | 74 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 2d | ted-debug-function)............- |
| 1ccd20 | 31 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 72 65 67 69 73 74 65 72 73 20 28 | 1)))))..(defun.frame-registers.( |
| 1ccd40 | 66 72 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 69 73 70 20 72 65 67 69 73 74 | frame)..."Return.the.lisp.regist |
| 1ccd60 | 65 72 73 20 43 53 50 2c 20 43 46 50 2c 20 49 50 2c 20 4f 43 46 50 2c 20 4c 52 41 20 66 6f 72 20 | ers.CSP,.CFP,.IP,.OCFP,.LRA.for. |
| 1ccd80 | 46 52 41 4d 45 2d 4e 55 4d 42 45 52 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 63 66 70 20 28 66 72 | FRAME-NUMBER."...(let*.((cfp.(fr |
| 1ccda0 | 61 6d 65 2d 63 66 70 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 73 70 20 28 66 | ame-cfp.frame))..........(csp.(f |
| 1ccdc0 | 72 61 6d 65 2d 63 66 70 20 28 64 69 3a 3a 66 72 61 6d 65 2d 75 70 20 66 72 61 6d 65 29 29 29 0a | rame-cfp.(di::frame-up.frame))). |
| 1ccde0 | 20 20 20 20 20 20 20 20 20 28 69 70 20 28 66 72 61 6d 65 2d 69 70 20 66 72 61 6d 65 29 29 0a 20 | .........(ip.(frame-ip.frame)).. |
| 1cce00 | 20 20 20 20 20 20 20 20 28 6f 63 66 70 20 28 66 72 61 6d 65 2d 63 66 70 20 28 64 69 3a 3a 66 72 | ........(ocfp.(frame-cfp.(di::fr |
| 1cce20 | 61 6d 65 2d 64 6f 77 6e 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 72 61 20 | ame-down.frame)))..........(lra. |
| 1cce40 | 28 66 72 61 6d 65 2d 69 70 20 28 64 69 3a 3a 66 72 61 6d 65 2d 64 6f 77 6e 20 66 72 61 6d 65 29 | (frame-ip.(di::frame-down.frame) |
| 1cce60 | 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 63 73 70 20 63 66 70 20 69 70 20 6f 63 66 70 20 | ))).....(values.csp.cfp.ip.ocfp. |
| 1cce80 | 6c 72 61 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 2d 72 65 67 69 73 | lra)))..(defun.print-frame-regis |
| 1ccea0 | 74 65 72 73 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 | ters.(frame-number)...(let.((fra |
| 1ccec0 | 6d 65 20 28 64 69 3a 3a 66 72 61 6d 65 2d 72 65 61 6c 2d 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 | me.(di::frame-real-frame.(nth-fr |
| 1ccee0 | 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 | ame.frame-number)))).....(flet.( |
| 1ccf00 | 28 66 69 78 6e 75 6d 20 28 70 29 20 28 65 74 79 70 65 63 61 73 65 20 70 0a 20 20 20 20 20 20 20 | (fixnum.(p).(etypecase.p........ |
| 1ccf20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 67 65 72 20 70 29 0a 20 20 | ..................(integer.p)... |
| 1ccf40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 73 79 73 74 | .......................(sys:syst |
| 1ccf60 | 65 6d 2d 61 72 65 61 2d 70 6f 69 6e 74 65 72 20 28 73 79 73 3a 73 61 70 2d 69 6e 74 20 70 29 29 | em-area-pointer.(sys:sap-int.p)) |
| 1ccf80 | 29 29 29 0a 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 74 20 22 7e 0a 43 | ))).......(apply.#'format.t."~.C |
| 1ccfa0 | 53 50 20 20 3d 20 20 7e 58 0a 43 46 50 20 20 3d 20 20 7e 58 0a 49 50 20 20 20 3d 20 20 7e 58 0a | SP..=..~X.CFP..=..~X.IP...=..~X. |
| 1ccfc0 | 4f 43 46 50 20 3d 20 20 7e 58 0a 4c 52 41 20 20 3d 20 20 7e 58 7e 25 22 20 28 6d 61 70 63 61 72 | OCFP.=..~X.LRA..=..~X~%".(mapcar |
| 1ccfe0 | 20 23 27 66 69 78 6e 75 6d 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .#'fixnum....................... |
| 1cd000 | 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 66 72 61 6d 65 2d 72 65 67 | .(multiple-value-list.(frame-reg |
| 1cd020 | 69 73 74 65 72 73 20 66 72 61 6d 65 29 29 29 29 29 29 29 0a 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | isters.frame)))))))...(defimplem |
| 1cd040 | 65 6e 74 61 74 69 6f 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 72 61 6d 65 20 28 66 72 61 6d | entation.disassemble-frame.(fram |
| 1cd060 | 65 2d 6e 75 6d 62 65 72 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 77 69 74 | e-number)..."Return.a.string.wit |
| 1cd080 | 68 20 74 68 65 20 64 69 73 61 73 73 65 6d 62 6c 79 20 6f 66 20 66 72 61 6d 65 73 20 63 6f 64 65 | h.the.disassembly.of.frames.code |
| 1cd0a0 | 2e 22 0a 20 20 28 70 72 69 6e 74 2d 66 72 61 6d 65 2d 72 65 67 69 73 74 65 72 73 20 66 72 61 6d | ."...(print-frame-registers.fram |
| 1cd0c0 | 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 74 65 72 70 72 69 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 | e-number)...(terpri)...(let*.((f |
| 1cd0e0 | 72 61 6d 65 20 28 64 69 3a 3a 66 72 61 6d 65 2d 72 65 61 6c 2d 66 72 61 6d 65 20 28 6e 74 68 2d | rame.(di::frame-real-frame.(nth- |
| 1cd100 | 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 | frame.frame-number)))..........( |
| 1cd120 | 64 65 62 75 67 2d 66 75 6e 20 28 64 69 3a 3a 66 72 61 6d 65 2d 64 65 62 75 67 2d 66 75 6e 63 74 | debug-fun.(di::frame-debug-funct |
| 1cd140 | 69 6f 6e 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 64 65 62 75 | ion.frame))).....(etypecase.debu |
| 1cd160 | 67 2d 66 75 6e 0a 20 20 20 20 20 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d | g-fun.......(di::compiled-debug- |
| 1cd180 | 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 6d 70 6f 6e 65 6e | function........(let*.((componen |
| 1cd1a0 | 74 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 63 | t.(di::compiled-debug-function-c |
| 1cd1c0 | 6f 6d 70 6f 6e 65 6e 74 20 64 65 62 75 67 2d 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | omponent.debug-fun))............ |
| 1cd1e0 | 20 20 20 28 66 75 6e 20 28 64 69 3a 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 66 75 6e 63 74 | ...(fun.(di:debug-function-funct |
| 1cd200 | 69 6f 6e 20 64 65 62 75 67 2d 66 75 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 66 75 | ion.debug-fun)))..........(if.fu |
| 1cd220 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 62 6c 65 20 66 75 6e 29 | n..............(disassemble.fun) |
| 1cd240 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 3a 64 69 73 61 73 73 65 6d | ..............(disassem:disassem |
| 1cd260 | 62 6c 65 2d 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 20 63 6f 6d 70 6f 6e 65 6e 74 29 29 29 29 | ble-code-component.component)))) |
| 1cd280 | 0a 20 20 20 20 20 20 28 64 69 3a 3a 62 6f 67 75 73 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e | .......(di::bogus-debug-function |
| 1cd2a0 | 0a 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 25 5b 44 69 73 61 73 73 65 6d 62 6c | ........(format.t."~%[Disassembl |
| 1cd2c0 | 69 6e 67 20 62 6f 67 75 73 20 66 72 61 6d 65 73 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 | ing.bogus.frames.not.implemented |
| 1cd2e0 | 5d 22 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 74 69 6e 67 0a 0a 28 64 65 66 | ]")))))....;;;;.Inspecting..(def |
| 1cd300 | 63 6f 6e 73 74 61 6e 74 20 2b 6c 6f 77 74 61 67 2d 73 79 6d 62 6f 6c 73 2b 20 0a 20 20 27 28 76 | constant.+lowtag-symbols+....'(v |
| 1cd320 | 6d 3a 65 76 65 6e 2d 66 69 78 6e 75 6d 2d 74 79 70 65 0a 20 20 20 20 76 6d 3a 69 6e 73 74 61 6e | m:even-fixnum-type.....vm:instan |
| 1cd340 | 63 65 2d 70 6f 69 6e 74 65 72 2d 74 79 70 65 0a 20 20 20 20 76 6d 3a 6f 74 68 65 72 2d 69 6d 6d | ce-pointer-type.....vm:other-imm |
| 1cd360 | 65 64 69 61 74 65 2d 30 2d 74 79 70 65 0a 20 20 20 20 76 6d 3a 6c 69 73 74 2d 70 6f 69 6e 74 65 | ediate-0-type.....vm:list-pointe |
| 1cd380 | 72 2d 74 79 70 65 0a 20 20 20 20 76 6d 3a 6f 64 64 2d 66 69 78 6e 75 6d 2d 74 79 70 65 0a 20 20 | r-type.....vm:odd-fixnum-type... |
| 1cd3a0 | 20 20 76 6d 3a 66 75 6e 63 74 69 6f 6e 2d 70 6f 69 6e 74 65 72 2d 74 79 70 65 0a 20 20 20 20 76 | ..vm:function-pointer-type.....v |
| 1cd3c0 | 6d 3a 6f 74 68 65 72 2d 69 6d 6d 65 64 69 61 74 65 2d 31 2d 74 79 70 65 0a 20 20 20 20 76 6d 3a | m:other-immediate-1-type.....vm: |
| 1cd3e0 | 6f 74 68 65 72 2d 70 6f 69 6e 74 65 72 2d 74 79 70 65 29 0a 20 20 22 4e 61 6d 65 73 20 6f 66 20 | other-pointer-type)..."Names.of. |
| 1cd400 | 74 68 65 20 63 6f 6e 73 74 61 6e 74 73 20 74 68 61 74 20 73 70 65 63 69 66 79 20 74 79 70 65 20 | the.constants.that.specify.type. |
| 1cd420 | 74 61 67 73 2e 0a 54 68 65 20 60 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 27 20 6f 66 20 65 61 63 68 | tags..The.`symbol-value'.of.each |
| 1cd440 | 20 65 6c 65 6d 65 6e 74 20 69 73 20 61 20 74 79 70 65 20 74 61 67 2e 22 29 0a 0a 28 64 65 66 63 | .element.is.a.type.tag.")..(defc |
| 1cd460 | 6f 6e 73 74 61 6e 74 20 2b 68 65 61 64 65 72 2d 74 79 70 65 2d 73 79 6d 62 6f 6c 73 2b 0a 20 20 | onstant.+header-type-symbols+... |
| 1cd480 | 28 6c 61 62 65 6c 73 20 28 28 73 75 66 66 69 78 70 20 28 73 75 66 66 69 78 20 73 74 72 69 6e 67 | (labels.((suffixp.(suffix.string |
| 1cd4a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 3e 3d 20 28 6c 65 6e 67 74 68 20 | )..............(and.(>=.(length. |
| 1cd4c0 | 73 74 72 69 6e 67 29 20 28 6c 65 6e 67 74 68 20 73 75 66 66 69 78 29 29 0a 20 20 20 20 20 20 20 | string).(length.suffix))........ |
| 1cd4e0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3d 20 73 74 72 69 6e 67 20 73 75 66 66 69 | ...........(string=.string.suffi |
| 1cd500 | 78 20 3a 73 74 61 72 74 31 20 28 2d 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 20 0a 20 20 | x.:start1.(-.(length.string).... |
| 1cd520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1cd540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 73 75 66 66 69 78 | ..................(length.suffix |
| 1cd560 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 68 65 61 64 65 72 2d 74 79 70 65 2d 73 79 | )))))............(header-type-sy |
| 1cd580 | 6d 62 6f 6c 2d 70 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 75 | mbol-p.(x)..............(and.(su |
| 1cd5a0 | 66 66 69 78 70 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 27 23 3a 2d 74 79 70 65 29 20 28 73 79 | ffixp.(symbol-name.'#:-type).(sy |
| 1cd5c0 | 6d 62 6f 6c 2d 6e 61 6d 65 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mbol-name.x))................... |
| 1cd5e0 | 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 78 20 2b 6c 6f 77 74 61 67 2d 73 79 6d 62 6f 6c 73 2b 29 | (not.(member.x.+lowtag-symbols+) |
| 1cd600 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6f 75 6e 64 70 20 78 29 0a 20 | )...................(boundp.x).. |
| 1cd620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 70 20 28 73 79 6d 62 6f 6c 2d | .................(typep.(symbol- |
| 1cd640 | 76 61 6c 75 65 20 78 29 20 27 66 69 78 6e 75 6d 29 29 29 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 | value.x).'fixnum)))).....(remove |
| 1cd660 | 2d 69 66 2d 6e 6f 74 20 23 27 68 65 61 64 65 72 2d 74 79 70 65 2d 73 79 6d 62 6f 6c 2d 70 0a 20 | -if-not.#'header-type-symbol-p.. |
| 1cd680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 61 70 72 6f 70 | ..................(append.(aprop |
| 1cd6a0 | 6f 73 2d 6c 69 73 74 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 27 23 3a 2d 74 79 70 65 29 20 3a | os-list.(symbol-name.'#:-type).: |
| 1cd6c0 | 76 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | vm)............................( |
| 1cd6e0 | 61 70 72 6f 70 6f 73 2d 6c 69 73 74 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 27 23 3a 2d 74 79 | apropos-list.(symbol-name.'#:-ty |
| 1cd700 | 70 65 29 20 3a 62 69 67 6e 75 6d 29 29 29 29 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 6e 61 6d | pe).:bignum))))..."A.list.of.nam |
| 1cd720 | 65 73 20 6f 66 20 74 68 65 20 74 79 70 65 20 63 6f 64 65 73 20 69 6e 20 62 6f 78 65 64 20 6f 62 | es.of.the.type.codes.in.boxed.ob |
| 1cd740 | 6a 65 63 74 73 2e 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 | jects.")..(defimplementation.des |
| 1cd760 | 63 72 69 62 65 2d 70 72 69 6d 69 74 69 76 65 2d 74 79 70 65 20 28 6f 62 6a 65 63 74 29 0a 20 20 | cribe-primitive-type.(object)... |
| 1cd780 | 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2a 73 74 61 6e 64 61 72 | (with-output-to-string.(*standar |
| 1cd7a0 | 64 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 6f 77 74 61 67 20 28 6b | d-output*).....(let*.((lowtag.(k |
| 1cd7c0 | 65 72 6e 65 6c 3a 67 65 74 2d 6c 6f 77 74 61 67 20 6f 62 6a 65 63 74 29 29 0a 09 20 20 20 28 6c | ernel:get-lowtag.object)).....(l |
| 1cd7e0 | 6f 77 74 61 67 2d 73 79 6d 62 6f 6c 20 28 66 69 6e 64 20 6c 6f 77 74 61 67 20 2b 6c 6f 77 74 61 | owtag-symbol.(find.lowtag.+lowta |
| 1cd800 | 67 2d 73 79 6d 62 6f 6c 73 2b 20 3a 6b 65 79 20 23 27 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 29 29 | g-symbols+.:key.#'symbol-value)) |
| 1cd820 | 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 6c 6f 77 74 61 67 3a 20 7e 41 22 20 6c | ).......(format.t."lowtag:.~A".l |
| 1cd840 | 6f 77 74 61 67 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 65 6d 62 65 | owtag-symbol).......(when.(membe |
| 1cd860 | 72 20 6c 6f 77 74 61 67 20 28 6c 69 73 74 20 76 6d 3a 6f 74 68 65 72 2d 70 6f 69 6e 74 65 72 2d | r.lowtag.(list.vm:other-pointer- |
| 1cd880 | 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | type............................ |
| 1cd8a0 | 20 20 20 20 20 20 76 6d 3a 66 75 6e 63 74 69 6f 6e 2d 70 6f 69 6e 74 65 72 2d 74 79 70 65 0a 20 | ......vm:function-pointer-type.. |
| 1cd8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1cd8e0 | 76 6d 3a 6f 74 68 65 72 2d 69 6d 6d 65 64 69 61 74 65 2d 30 2d 74 79 70 65 0a 20 20 20 20 20 20 | vm:other-immediate-0-type....... |
| 1cd900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6d 3a 6f 74 | ...........................vm:ot |
| 1cd920 | 68 65 72 2d 69 6d 6d 65 64 69 61 74 65 2d 31 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 | her-immediate-1-type............ |
| 1cd940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 0a 20 20 20 20 20 20 20 | ......................))........ |
| 1cd960 | 20 28 6c 65 74 2a 20 28 28 74 79 70 65 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 74 79 70 65 20 6f | .(let*.((type.(kernel:get-type.o |
| 1cd980 | 62 6a 65 63 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 2d 73 79 6d | bject))................(type-sym |
| 1cd9a0 | 62 6f 6c 20 28 66 69 6e 64 20 74 79 70 65 20 2b 68 65 61 64 65 72 2d 74 79 70 65 2d 73 79 6d 62 | bol.(find.type.+header-type-symb |
| 1cd9c0 | 6f 6c 73 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ols+............................ |
| 1cd9e0 | 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 29 29 29 0a 20 20 | .......:key.#'symbol-value)))... |
| 1cda00 | 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 2c 20 74 79 70 65 3a 20 7e 41 22 20 74 | ........(format.t.",.type:.~A".t |
| 1cda20 | 79 70 65 2d 73 79 6d 62 6f 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 | ype-symbol))))))..(defmethod.ema |
| 1cda40 | 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 74 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 64 69 3a | cs-inspect.((o.t))...(cond.((di: |
| 1cda60 | 3a 69 6e 64 69 72 65 63 74 2d 76 61 6c 75 65 2d 63 65 6c 6c 2d 70 20 6f 29 0a 20 20 20 20 20 20 | :indirect-value-cell-p.o)....... |
| 1cda80 | 20 20 20 20 20 20 20 20 20 20 20 60 28 22 56 61 6c 75 65 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c | ...........`("Value:.".(:value., |
| 1cdaa0 | 28 63 3a 76 61 6c 75 65 2d 63 65 6c 6c 2d 72 65 66 20 6f 29 29 29 29 0a 20 20 20 20 20 20 20 20 | (c:value-cell-ref.o))))......... |
| 1cdac0 | 28 28 61 6c 69 65 6e 3a 3a 61 6c 69 65 6e 2d 76 61 6c 75 65 2d 70 20 6f 29 0a 20 20 20 20 20 20 | ((alien::alien-value-p.o)....... |
| 1cdae0 | 20 20 20 28 69 6e 73 70 65 63 74 2d 61 6c 69 65 6e 2d 76 61 6c 75 65 20 6f 29 29 0a 09 28 74 0a | ...(inspect-alien-value.o))..(t. |
| 1cdb00 | 20 20 20 20 20 20 20 20 20 28 73 63 6c 2d 69 6e 73 70 65 63 74 20 6f 29 29 29 29 0a 0a 28 64 65 | .........(scl-inspect.o))))..(de |
| 1cdb20 | 66 75 6e 20 73 63 6c 2d 69 6e 73 70 65 63 74 20 28 6f 29 0a 20 20 28 64 65 73 74 72 75 63 74 75 | fun.scl-inspect.(o)...(destructu |
| 1cdb40 | 72 69 6e 67 2d 62 69 6e 64 20 28 74 65 78 74 20 6c 61 62 65 6c 65 64 70 20 2e 20 70 61 72 74 73 | ring-bind.(text.labeledp...parts |
| 1cdb60 | 29 0a 20 20 20 20 20 20 28 69 6e 73 70 65 63 74 3a 3a 64 65 73 63 72 69 62 65 2d 70 61 72 74 73 | ).......(inspect::describe-parts |
| 1cdb80 | 20 6f 29 0a 20 20 20 20 28 6c 69 73 74 2a 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 7e | .o).....(list*..(format.nil."~A~ |
| 1cdba0 | 25 22 20 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6c 61 62 65 6c 65 64 | %".text).............(if.labeled |
| 1cdbc0 | 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 6c 61 62 | p.................(loop.for.(lab |
| 1cdbe0 | 65 6c 20 2e 20 76 61 6c 75 65 29 20 69 6e 20 70 61 72 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 | el...value).in.parts............ |
| 1cdc00 | 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c | ...........append.(label-value-l |
| 1cdc20 | 69 6e 65 20 6c 61 62 65 6c 20 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ine.label.value))............... |
| 1cdc40 | 20 20 28 6c 6f 6f 70 20 66 6f 72 20 76 61 6c 75 65 20 69 6e 20 70 61 72 74 73 20 20 66 6f 72 20 | ..(loop.for.value.in.parts..for. |
| 1cdc60 | 69 20 66 72 6f 6d 20 30 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | i.from.0........................ |
| 1cdc80 | 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 69 20 76 61 6c 75 65 | append.(label-value-line.i.value |
| 1cdca0 | 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 | ))))))..(defmethod.emacs-inspect |
| 1cdcc0 | 20 28 28 6f 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 6c 65 74 20 28 28 68 65 61 64 65 72 20 | .((o.function))...(let.((header. |
| 1cdce0 | 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 74 79 70 65 20 6f 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | (kernel:get-type.o))).....(cond. |
| 1cdd00 | 28 28 3d 20 68 65 61 64 65 72 20 76 6d 3a 66 75 6e 63 74 69 6f 6e 2d 68 65 61 64 65 72 2d 74 79 | ((=.header.vm:function-header-ty |
| 1cdd20 | 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 20 28 66 6f 72 6d 61 74 20 6e | pe)............(list*..(format.n |
| 1cdd40 | 69 6c 20 22 7e 41 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 2e 7e 25 22 20 6f 29 0a 20 20 20 20 | il."~A.is.a.function.~%".o)..... |
| 1cdd60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 | ...............(append.(label-va |
| 1cdd80 | 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lue-line*....................... |
| 1cdda0 | 20 20 20 20 20 20 28 22 53 65 6c 66 22 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d | ......("Self".(kernel:%function- |
| 1cddc0 | 73 65 6c 66 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | self.o))........................ |
| 1cdde0 | 20 20 20 20 20 28 22 4e 65 78 74 22 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 6e | .....("Next".(kernel:%function-n |
| 1cde00 | 65 78 74 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ext.o))......................... |
| 1cde20 | 20 20 20 20 28 22 4e 61 6d 65 22 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 6e 61 | ....("Name".(kernel:%function-na |
| 1cde40 | 6d 65 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me.o)).......................... |
| 1cde60 | 20 20 20 28 22 41 72 67 6c 69 73 74 22 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d | ...("Arglist".(kernel:%function- |
| 1cde80 | 61 72 67 6c 69 73 74 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | arglist.o))..................... |
| 1cdea0 | 20 20 20 20 20 20 20 20 28 22 54 79 70 65 22 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f | ........("Type".(kernel:%functio |
| 1cdec0 | 6e 2d 74 79 70 65 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n-type.o))...................... |
| 1cdee0 | 20 20 20 20 20 20 20 28 22 43 6f 64 65 22 20 28 6b 65 72 6e 65 6c 3a 66 75 6e 63 74 69 6f 6e 2d | .......("Code".(kernel:function- |
| 1cdf00 | 63 6f 64 65 2d 68 65 61 64 65 72 20 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | code-header.o)))................ |
| 1cdf20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............(list............... |
| 1cdf40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 | ...............(with-output-to-s |
| 1cdf60 | 74 72 69 6e 67 20 28 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tring.(s)....................... |
| 1cdf80 | 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 3a 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 75 | ........(disassem:disassemble-fu |
| 1cdfa0 | 6e 63 74 69 6f 6e 20 6f 20 3a 73 74 72 65 61 6d 20 73 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 | nction.o.:stream.s))))))........ |
| 1cdfc0 | 20 20 20 28 28 3d 20 68 65 61 64 65 72 20 76 6d 3a 63 6c 6f 73 75 72 65 2d 68 65 61 64 65 72 2d | ...((=.header.vm:closure-header- |
| 1cdfe0 | 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 28 66 6f 72 6d 61 74 20 | type)............(list*.(format. |
| 1ce000 | 6e 69 6c 20 22 7e 41 20 69 73 20 61 20 63 6c 6f 73 75 72 65 2e 7e 25 22 20 6f 29 0a 20 20 20 20 | nil."~A.is.a.closure.~%".o)..... |
| 1ce020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 0a 20 20 20 20 20 20 20 20 | ...............(append.......... |
| 1ce040 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 22 46 | ............(label-value-line."F |
| 1ce060 | 75 6e 63 74 69 6f 6e 22 20 28 6b 65 72 6e 65 6c 3a 25 63 6c 6f 73 75 72 65 2d 66 75 6e 63 74 69 | unction".(kernel:%closure-functi |
| 1ce080 | 6f 6e 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 45 6e | on.o)).....................`("En |
| 1ce0a0 | 76 69 72 6f 6e 6d 65 6e 74 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 | vironment:".(:newline))......... |
| 1ce0c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 62 | ............(loop.for.i.from.0.b |
| 1ce0e0 | 65 6c 6f 77 20 28 2d 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 63 6c 6f 73 75 72 65 2d 6c 65 6e 67 | elow.(-.(kernel:get-closure-leng |
| 1ce100 | 74 68 20 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | th.o)........................... |
| 1ce120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2d 20 76 6d 3a 63 6c 6f | ......................(1-.vm:clo |
| 1ce140 | 73 75 72 65 2d 69 6e 66 6f 2d 6f 66 66 73 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | sure-info-offset)).............. |
| 1ce160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 | .............append.(label-value |
| 1ce180 | 2d 6c 69 6e 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -line........................... |
| 1ce1a0 | 20 20 20 20 20 20 20 20 20 69 20 28 6b 65 72 6e 65 6c 3a 25 63 6c 6f 73 75 72 65 2d 69 6e 64 65 | .........i.(kernel:%closure-inde |
| 1ce1c0 | 78 2d 72 65 66 20 6f 20 69 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 65 76 61 6c | x-ref.o.i))))))...........((eval |
| 1ce1e0 | 3a 3a 69 6e 74 65 72 70 72 65 74 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 6f 29 0a 20 20 20 20 | ::interpreted-function-p.o)..... |
| 1ce200 | 20 20 20 20 20 20 20 28 73 63 6c 2d 69 6e 73 70 65 63 74 20 6f 29 29 0a 20 20 20 20 20 20 20 20 | .......(scl-inspect.o))......... |
| 1ce220 | 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f | ..(t............(call-next-metho |
| 1ce240 | 64 29 29 29 29 29 0a 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 | d)))))...(defmethod.emacs-inspec |
| 1ce260 | 74 20 28 28 6f 20 6b 65 72 6e 65 6c 3a 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 29 29 0a 20 20 | t.((o.kernel:code-component))... |
| 1ce280 | 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 | ........(append.............(lab |
| 1ce2a0 | 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 22 63 6f | el-value-line*..............("co |
| 1ce2c0 | 64 65 2d 73 69 7a 65 22 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 63 6f 64 65 2d 73 69 7a 65 | de-size".(kernel:%code-code-size |
| 1ce2e0 | 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 22 65 6e 74 72 79 2d 70 6f 69 6e 74 73 22 | .o)).............("entry-points" |
| 1ce300 | 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 73 20 6f 29 29 0a | .(kernel:%code-entry-points.o)). |
| 1ce320 | 20 20 20 20 20 20 20 20 20 20 20 20 28 22 64 65 62 75 67 2d 69 6e 66 6f 22 20 28 6b 65 72 6e 65 | ............("debug-info".(kerne |
| 1ce340 | 6c 3a 25 63 6f 64 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 | l:%code-debug-info.o)).......... |
| 1ce360 | 20 20 20 28 22 74 72 61 63 65 2d 74 61 62 6c 65 2d 6f 66 66 73 65 74 22 20 28 6b 65 72 6e 65 6c | ...("trace-table-offset".(kernel |
| 1ce380 | 3a 63 6f 64 65 2d 68 65 61 64 65 72 2d 72 65 66 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :code-header-ref................ |
| 1ce3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 20 76 6d 3a 63 6f 64 65 2d 74 | .....................o.vm:code-t |
| 1ce3c0 | 72 61 63 65 2d 74 61 62 6c 65 2d 6f 66 66 73 65 74 2d 73 6c 6f 74 29 29 29 0a 20 20 20 20 20 20 | race-table-offset-slot)))....... |
| 1ce3e0 | 20 20 20 20 20 60 28 22 43 6f 6e 73 74 61 6e 74 73 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a | .....`("Constants:".(:newline)). |
| 1ce400 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 76 6d 3a 63 | ...........(loop.for.i.from.vm:c |
| 1ce420 | 6f 64 65 2d 63 6f 6e 73 74 61 6e 74 73 2d 6f 66 66 73 65 74 20 0a 20 20 20 20 20 20 20 20 20 20 | ode-constants-offset............ |
| 1ce440 | 20 20 20 20 20 20 20 62 65 6c 6f 77 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 68 65 61 64 65 72 2d | .......below.(kernel:get-header- |
| 1ce460 | 64 61 74 61 20 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 | data.o)..................append. |
| 1ce480 | 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 69 20 28 6b 65 72 6e 65 6c 3a 63 6f 64 65 | (label-value-line.i.(kernel:code |
| 1ce4a0 | 2d 68 65 61 64 65 72 2d 72 65 66 20 6f 20 69 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 | -header-ref.o.i)))............`( |
| 1ce4c0 | 22 43 6f 64 65 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | "Code:".(:newline).............. |
| 1ce4e0 | 2c 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 29 0a 20 20 20 | ,.(with-output-to-string.(s).... |
| 1ce500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6b 65 72 6e 65 6c 3a 25 63 6f | ..............(cond.((kernel:%co |
| 1ce520 | 64 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | de-debug-info.o)................ |
| 1ce540 | 20 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 3a 64 69 73 61 73 73 65 6d 62 6c 65 2d 63 | .........(disassem:disassemble-c |
| 1ce560 | 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 20 6f 20 3a 73 74 72 65 61 6d 20 73 29 29 0a 20 20 20 20 | ode-component.o.:stream.s))..... |
| 1ce580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 | ...................(t........... |
| 1ce5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 3a 64 69 73 61 73 73 65 6d | ..............(disassem:disassem |
| 1ce5c0 | 62 6c 65 2d 6d 65 6d 6f 72 79 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ble-memory...................... |
| 1ce5e0 | 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 3a 3a 61 6c 69 67 6e 20 0a 20 20 20 20 20 20 20 20 20 | .....(disassem::align........... |
| 1ce600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 28 6c 6f 67 61 6e 64 63 32 20 28 6b | .................(+.(logandc2.(k |
| 1ce620 | 65 72 6e 65 6c 3a 67 65 74 2d 6c 69 73 70 2d 6f 62 6a 2d 61 64 64 72 65 73 73 20 6f 29 0a 20 20 | ernel:get-lisp-obj-address.o)... |
| 1ce640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ce660 | 20 20 20 20 20 76 6d 3a 6c 6f 77 74 61 67 2d 6d 61 73 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .....vm:lowtag-mask)............ |
| 1ce680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 76 6d 3a 63 6f 64 65 2d 63 6f 6e | ..................(*.vm:code-con |
| 1ce6a0 | 73 74 61 6e 74 73 2d 6f 66 66 73 65 74 20 76 6d 3a 77 6f 72 64 2d 62 79 74 65 73 29 29 0a 20 20 | stants-offset.vm:word-bytes))... |
| 1ce6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 68 20 31 20 76 | ........................(ash.1.v |
| 1ce6e0 | 6d 3a 6c 6f 77 74 61 67 2d 62 69 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m:lowtag-bits))................. |
| 1ce700 | 20 20 20 20 20 20 20 20 20 28 61 73 68 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 63 6f 64 65 | .........(ash.(kernel:%code-code |
| 1ce720 | 2d 73 69 7a 65 20 6f 29 20 76 6d 3a 77 6f 72 64 2d 73 68 69 66 74 29 0a 20 20 20 20 20 20 20 20 | -size.o).vm:word-shift)......... |
| 1ce740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 74 72 65 61 6d 20 73 29 29 29 29 29 29 | .................:stream.s)))))) |
| 1ce760 | 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 | )..(defmethod.emacs-inspect.((o. |
| 1ce780 | 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 29 29 0a 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 | kernel:fdefn))...(label-value-li |
| 1ce7a0 | 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 28 22 6e 61 6d 65 22 20 28 6b 65 72 6e 65 6c 3a 66 | ne*............("name".(kernel:f |
| 1ce7c0 | 64 65 66 6e 2d 6e 61 6d 65 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 22 66 75 6e 63 74 | defn-name.o))............("funct |
| 1ce7e0 | 69 6f 6e 22 20 28 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 2d 66 75 6e 63 74 69 6f 6e 20 6f 29 29 0a | ion".(kernel:fdefn-function.o)). |
| 1ce800 | 20 20 20 20 20 20 20 20 20 20 20 28 22 72 61 77 2d 61 64 64 72 22 20 28 73 79 73 3a 73 61 70 2d | ...........("raw-addr".(sys:sap- |
| 1ce820 | 72 65 66 2d 33 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ref-32.........................( |
| 1ce840 | 73 79 73 3a 69 6e 74 2d 73 61 70 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 6c 69 73 70 2d 6f 62 6a | sys:int-sap.(kernel:get-lisp-obj |
| 1ce860 | 2d 61 64 64 72 65 73 73 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -address.o)).................... |
| 1ce880 | 20 20 20 20 20 28 2a 20 76 6d 3a 66 64 65 66 6e 2d 72 61 77 2d 61 64 64 72 2d 73 6c 6f 74 20 76 | .....(*.vm:fdefn-raw-addr-slot.v |
| 1ce8a0 | 6d 3a 77 6f 72 64 2d 62 79 74 65 73 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d | m:word-bytes)))))..(defmethod.em |
| 1ce8c0 | 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 61 72 72 61 79 29 29 0a 20 20 28 63 6f 6e 64 20 | acs-inspect.((o.array))...(cond. |
| 1ce8e0 | 28 28 6b 65 72 6e 65 6c 3a 61 72 72 61 79 2d 68 65 61 64 65 72 2d 70 20 6f 29 0a 20 20 20 20 20 | ((kernel:array-header-p.o)...... |
| 1ce900 | 20 20 20 20 28 6c 69 73 74 2a 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 20 69 73 20 61 | ....(list*..(format.nil."~A.is.a |
| 1ce920 | 6e 20 61 72 72 61 79 2e 7e 25 22 20 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.array.~%".o).................. |
| 1ce940 | 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (label-value-line*.............. |
| 1ce960 | 20 20 20 20 20 28 3a 68 65 61 64 65 72 20 28 64 65 73 63 72 69 62 65 2d 70 72 69 6d 69 74 69 76 | .....(:header.(describe-primitiv |
| 1ce980 | 65 2d 74 79 70 65 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 72 | e-type.o))...................(:r |
| 1ce9a0 | 61 6e 6b 20 28 61 72 72 61 79 2d 72 61 6e 6b 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ank.(array-rank.o))............. |
| 1ce9c0 | 20 20 20 20 20 20 28 3a 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 28 6b 65 72 6e 65 6c 3a 25 61 72 | ......(:fill-pointer.(kernel:%ar |
| 1ce9e0 | 72 61 79 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ray-fill-pointer.o))............ |
| 1cea00 | 20 20 20 20 20 20 20 28 3a 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 2d 70 20 28 6b 65 72 6e 65 6c 3a | .......(:fill-pointer-p.(kernel: |
| 1cea20 | 25 61 72 72 61 79 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 2d 70 20 6f 29 29 0a 20 20 20 20 20 20 | %array-fill-pointer-p.o))....... |
| 1cea40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 65 6c 65 6d 65 6e 74 73 20 28 6b 65 72 6e 65 6c 3a 25 | ............(:elements.(kernel:% |
| 1cea60 | 61 72 72 61 79 2d 61 76 61 69 6c 61 62 6c 65 2d 65 6c 65 6d 65 6e 74 73 20 6f 29 29 20 20 20 20 | array-available-elements.o)).... |
| 1cea80 | 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 64 61 74 61 | ..........................(:data |
| 1ceaa0 | 20 28 6b 65 72 6e 65 6c 3a 25 61 72 72 61 79 2d 64 61 74 61 2d 76 65 63 74 6f 72 20 6f 29 29 0a | .(kernel:%array-data-vector.o)). |
| 1ceac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 64 69 73 70 6c 61 63 65 6d 65 6e 74 | ..................(:displacement |
| 1ceae0 | 20 28 6b 65 72 6e 65 6c 3a 25 61 72 72 61 79 2d 64 69 73 70 6c 61 63 65 6d 65 6e 74 20 6f 29 29 | .(kernel:%array-displacement.o)) |
| 1ceb00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 64 69 73 70 6c 61 63 65 64 2d 70 | ...................(:displaced-p |
| 1ceb20 | 20 28 6b 65 72 6e 65 6c 3a 25 61 72 72 61 79 2d 64 69 73 70 6c 61 63 65 64 2d 70 20 6f 29 29 0a | .(kernel:%array-displaced-p.o)). |
| 1ceb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 64 69 6d 65 6e 73 69 6f 6e 73 20 28 | ..................(:dimensions.( |
| 1ceb60 | 61 72 72 61 79 2d 64 69 6d 65 6e 73 69 6f 6e 73 20 6f 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 | array-dimensions.o)))))......... |
| 1ceb80 | 28 74 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 | (t..........(list*..(format.nil. |
| 1ceba0 | 22 7e 41 20 69 73 20 61 6e 20 73 69 6d 70 6c 65 2d 61 72 72 61 79 2e 7e 25 22 20 6f 29 0a 20 20 | "~A.is.an.simple-array.~%".o)... |
| 1cebc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 | ...............(label-value-line |
| 1cebe0 | 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 68 65 61 64 65 72 20 28 64 65 | *...................(:header.(de |
| 1cec00 | 73 63 72 69 62 65 2d 70 72 69 6d 69 74 69 76 65 2d 74 79 70 65 20 6f 29 29 0a 20 20 20 20 20 20 | scribe-primitive-type.o))....... |
| 1cec20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 65 6e 67 74 68 20 28 6c 65 6e 67 74 68 20 6f 29 29 | ............(:length.(length.o)) |
| 1cec40 | 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 | )))))..(defmethod.emacs-inspect. |
| 1cec60 | 28 28 6f 20 73 69 6d 70 6c 65 2d 76 65 63 74 6f 72 29 29 0a 20 20 28 6c 69 73 74 2a 20 20 28 66 | ((o.simple-vector))...(list*..(f |
| 1cec80 | 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 20 69 73 20 61 20 76 65 63 74 6f 72 2e 7e 25 22 20 6f 29 | ormat.nil."~A.is.a.vector.~%".o) |
| 1ceca0 | 0a 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 0a 20 20 20 20 20 20 20 20 20 20 20 28 | ...........(append.............( |
| 1cecc0 | 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a | label-value-line*.............(: |
| 1cece0 | 68 65 61 64 65 72 20 28 64 65 73 63 72 69 62 65 2d 70 72 69 6d 69 74 69 76 65 2d 74 79 70 65 20 | header.(describe-primitive-type. |
| 1ced00 | 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 65 6e 67 74 68 20 28 63 3a 3a 76 65 63 | o)).............(:length.(c::vec |
| 1ced20 | 74 6f 72 2d 6c 65 6e 67 74 68 20 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 | tor-length.o)))............(unle |
| 1ced40 | 73 73 20 28 65 71 20 28 61 72 72 61 79 2d 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 6f 29 20 27 6e | ss.(eq.(array-element-type.o).'n |
| 1ced60 | 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 62 65 6c | il)..............(loop.for.i.bel |
| 1ced80 | 6f 77 20 28 6c 65 6e 67 74 68 20 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ow.(length.o)................... |
| 1ceda0 | 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 69 20 28 61 72 65 | .append.(label-value-line.i.(are |
| 1cedc0 | 66 20 6f 20 69 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 61 6c 69 | f.o.i)))))))..(defun.inspect-ali |
| 1cede0 | 65 6e 2d 72 65 63 6f 72 64 20 28 61 6c 69 65 6e 29 0a 20 20 20 28 77 69 74 68 2d 73 74 72 75 63 | en-record.(alien)....(with-struc |
| 1cee00 | 74 20 28 61 6c 69 65 6e 3a 3a 61 6c 69 65 6e 2d 76 61 6c 75 65 2d 20 73 61 70 20 74 79 70 65 29 | t.(alien::alien-value-.sap.type) |
| 1cee20 | 20 61 6c 69 65 6e 0a 20 20 20 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 61 6c 69 65 6e 3a | .alien......(with-struct.(alien: |
| 1cee40 | 3a 61 6c 69 65 6e 2d 72 65 63 6f 72 64 2d 74 79 70 65 2d 20 6b 69 6e 64 20 6e 61 6d 65 20 66 69 | :alien-record-type-.kind.name.fi |
| 1cee60 | 65 6c 64 73 29 20 74 79 70 65 0a 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 | elds).type........(append....... |
| 1cee80 | 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 28 3a | ..(label-value-line*..........(: |
| 1ceea0 | 73 61 70 20 73 61 70 29 0a 20 20 20 20 20 20 20 20 20 28 3a 6b 69 6e 64 20 6b 69 6e 64 29 0a 20 | sap.sap)..........(:kind.kind).. |
| 1ceec0 | 20 20 20 20 20 20 20 20 28 3a 6e 61 6d 65 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 6c | ........(:name.name)).........(l |
| 1ceee0 | 6f 6f 70 20 66 6f 72 20 66 69 65 6c 64 20 69 6e 20 66 69 65 6c 64 73 20 0a 20 20 20 20 20 20 20 | oop.for.field.in.fields......... |
| 1cef00 | 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c 65 74 20 28 28 73 6c 6f 74 20 28 61 6c 69 65 6e | .......append.(let.((slot.(alien |
| 1cef20 | 3a 3a 61 6c 69 65 6e 2d 72 65 63 6f 72 64 2d 66 69 65 6c 64 2d 6e 61 6d 65 20 66 69 65 6c 64 29 | ::alien-record-field-name.field) |
| 1cef40 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c | ))........................(label |
| 1cef60 | 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 73 6c 6f 74 20 28 61 6c 69 65 6e 3a 73 6c 6f 74 20 61 6c 69 | -value-line.slot.(alien:slot.ali |
| 1cef80 | 65 6e 20 73 6c 6f 74 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 70 65 63 74 2d | en.slot))))))))..(defun.inspect- |
| 1cefa0 | 61 6c 69 65 6e 2d 70 6f 69 6e 74 65 72 20 28 61 6c 69 65 6e 29 0a 20 20 28 77 69 74 68 2d 73 74 | alien-pointer.(alien)...(with-st |
| 1cefc0 | 72 75 63 74 20 28 61 6c 69 65 6e 3a 3a 61 6c 69 65 6e 2d 76 61 6c 75 65 2d 20 73 61 70 20 74 79 | ruct.(alien::alien-value-.sap.ty |
| 1cefe0 | 70 65 29 20 61 6c 69 65 6e 0a 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 | pe).alien......(label-value-line |
| 1cf000 | 2a 20 0a 20 20 20 20 20 20 28 3a 73 61 70 20 73 61 70 29 0a 20 20 20 20 20 20 28 3a 74 79 70 65 | *........(:sap.sap).......(:type |
| 1cf020 | 20 74 79 70 65 29 0a 20 20 20 20 20 20 28 3a 74 6f 20 28 61 6c 69 65 6e 3a 3a 64 65 72 65 66 20 | .type).......(:to.(alien::deref. |
| 1cf040 | 61 6c 69 65 6e 29 29 29 29 29 0a 20 20 0a 28 64 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 61 6c 69 | alien)))))....(defun.inspect-ali |
| 1cf060 | 65 6e 2d 76 61 6c 75 65 20 28 61 6c 69 65 6e 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 28 61 6c | en-value.(alien)...(typecase.(al |
| 1cf080 | 69 65 6e 3a 3a 61 6c 69 65 6e 2d 76 61 6c 75 65 2d 74 79 70 65 20 61 6c 69 65 6e 29 0a 20 20 20 | ien::alien-value-type.alien).... |
| 1cf0a0 | 20 28 61 6c 69 65 6e 3a 3a 61 6c 69 65 6e 2d 72 65 63 6f 72 64 2d 74 79 70 65 20 28 69 6e 73 70 | .(alien::alien-record-type.(insp |
| 1cf0c0 | 65 63 74 2d 61 6c 69 65 6e 2d 72 65 63 6f 72 64 20 61 6c 69 65 6e 29 29 0a 20 20 20 20 28 61 6c | ect-alien-record.alien)).....(al |
| 1cf0e0 | 69 65 6e 3a 3a 61 6c 69 65 6e 2d 70 6f 69 6e 74 65 72 2d 74 79 70 65 20 28 69 6e 73 70 65 63 74 | ien::alien-pointer-type.(inspect |
| 1cf100 | 2d 61 6c 69 65 6e 2d 70 6f 69 6e 74 65 72 20 61 6c 69 65 6e 29 29 0a 20 20 20 20 28 74 20 28 73 | -alien-pointer.alien)).....(t.(s |
| 1cf120 | 63 6c 2d 69 6e 73 70 65 63 74 20 61 6c 69 65 6e 29 29 29 29 0a 0c 0a 3b 3b 3b 3b 20 50 72 6f 66 | cl-inspect.alien))))...;;;;.Prof |
| 1cf140 | 69 6c 69 6e 67 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 | iling.(defimplementation.profile |
| 1cf160 | 20 28 66 6e 61 6d 65 29 0a 20 20 28 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 70 72 6f 66 69 | .(fname)...(eval.`(profile:profi |
| 1cf180 | 6c 65 20 2c 66 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | le.,fname)))..(defimplementation |
| 1cf1a0 | 20 75 6e 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 65 76 61 6c 20 60 28 70 72 6f | .unprofile.(fname)...(eval.`(pro |
| 1cf1c0 | 66 69 6c 65 3a 75 6e 70 72 6f 66 69 6c 65 20 2c 66 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d | file:unprofile.,fname)))..(defim |
| 1cf1e0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c 20 28 29 0a 20 20 | plementation.unprofile-all.()... |
| 1cf200 | 28 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 75 6e 70 72 6f 66 69 6c 65 29 29 0a 20 20 22 41 | (eval.`(profile:unprofile))..."A |
| 1cf220 | 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 75 6e 70 72 6f 66 69 6c 65 64 2e 22 29 0a 0a 28 64 65 66 | ll.functions.unprofiled.")..(def |
| 1cf240 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 20 28 29 | implementation.profile-report.() |
| 1cf260 | 0a 20 20 28 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 72 65 70 6f 72 74 2d 74 69 6d 65 29 29 | ...(eval.`(profile:report-time)) |
| 1cf280 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 72 65 | )..(defimplementation.profile-re |
| 1cf2a0 | 73 65 74 20 28 29 0a 20 20 28 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 72 65 73 65 74 2d 74 | set.()...(eval.`(profile:reset-t |
| 1cf2c0 | 69 6d 65 29 29 0a 20 20 22 52 65 73 65 74 20 70 72 6f 66 69 6c 69 6e 67 20 63 6f 75 6e 74 65 72 | ime))..."Reset.profiling.counter |
| 1cf2e0 | 73 2e 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 | s.")..(defimplementation.profile |
| 1cf300 | 64 2d 66 75 6e 63 74 69 6f 6e 73 20 28 29 0a 20 20 70 72 6f 66 69 6c 65 3a 2a 74 69 6d 65 64 2d | d-functions.()...profile:*timed- |
| 1cf320 | 66 75 6e 63 74 69 6f 6e 73 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | functions*)..(defimplementation. |
| 1cf340 | 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 20 28 70 61 63 6b 61 67 65 20 63 61 6c 6c 65 72 73 | profile-package.(package.callers |
| 1cf360 | 20 6d 65 74 68 6f 64 73 29 0a 20 20 28 70 72 6f 66 69 6c 65 3a 70 72 6f 66 69 6c 65 2d 61 6c 6c | .methods)...(profile:profile-all |
| 1cf380 | 20 3a 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:package.package............... |
| 1cf3a0 | 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 73 2d 70 20 63 61 6c 6c 65 72 73 0a 20 20 20 20 | .........:callers-p.callers..... |
| 1cf3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 6e 69 6c 20 3a 6d 65 74 68 6f 64 | ...................#+nil.:method |
| 1cf3e0 | 73 20 23 2b 6e 69 6c 20 6d 65 74 68 6f 64 73 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 75 6c 74 69 70 | s.#+nil.methods))....;;;;.Multip |
| 1cf400 | 72 6f 63 65 73 73 69 6e 67 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 70 | rocessing..(defimplementation.sp |
| 1cf420 | 61 77 6e 20 28 66 6e 20 26 6b 65 79 20 6e 61 6d 65 29 0a 20 20 28 74 68 72 65 61 64 3a 74 68 72 | awn.(fn.&key.name)...(thread:thr |
| 1cf440 | 65 61 64 2d 63 72 65 61 74 65 20 66 6e 20 3a 6e 61 6d 65 20 28 6f 72 20 6e 61 6d 65 20 22 41 6e | ead-create.fn.:name.(or.name."An |
| 1cf460 | 6f 6e 79 6d 6f 75 73 22 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d | onymous")))..(defvar.*thread-id- |
| 1cf480 | 63 6f 75 6e 74 65 72 2a 20 30 29 0a 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 | counter*.0).(defvar.*thread-id-c |
| 1cf4a0 | 6f 75 6e 74 65 72 2d 6c 6f 63 6b 2a 20 28 74 68 72 65 61 64 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 22 | ounter-lock*.(thread:make-lock." |
| 1cf4c0 | 54 68 72 65 61 64 20 49 44 20 63 6f 75 6e 74 65 72 22 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | Thread.ID.counter"))..(defimplem |
| 1cf4e0 | 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 20 28 74 68 72 65 61 64 29 0a 20 20 28 74 | entation.thread-id.(thread)...(t |
| 1cf500 | 68 72 65 61 64 3a 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 2a 74 68 72 65 61 64 2d 69 64 | hread:with-lock-held.(*thread-id |
| 1cf520 | 2d 63 6f 75 6e 74 65 72 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 28 6f 72 20 28 67 65 74 66 20 28 74 | -counter-lock*).....(or.(getf.(t |
| 1cf540 | 68 72 65 61 64 3a 74 68 72 65 61 64 2d 70 6c 69 73 74 20 74 68 72 65 61 64 29 20 27 69 64 29 0a | hread:thread-plist.thread).'id). |
| 1cf560 | 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 28 74 68 72 65 61 64 3a 74 68 72 65 | ........(setf.(getf.(thread:thre |
| 1cf580 | 61 64 2d 70 6c 69 73 74 20 74 68 72 65 61 64 29 20 27 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 | ad-plist.thread).'id)........... |
| 1cf5a0 | 20 20 20 20 28 69 6e 63 66 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2a 29 29 29 | ....(incf.*thread-id-counter*))) |
| 1cf5c0 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 74 68 72 65 | ))..(defimplementation.find-thre |
| 1cf5e0 | 61 64 20 28 69 64 29 0a 20 20 28 62 6c 6f 63 6b 20 66 69 6e 64 2d 74 68 72 65 61 64 0a 20 20 20 | ad.(id)...(block.find-thread.... |
| 1cf600 | 20 28 74 68 72 65 61 64 3a 6d 61 70 2d 6f 76 65 72 2d 74 68 72 65 61 64 73 0a 20 20 20 20 20 23 | .(thread:map-over-threads......# |
| 1cf620 | 27 28 6c 61 6d 62 64 61 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | '(lambda.(thread)..........(when |
| 1cf640 | 20 28 65 71 6c 20 28 67 65 74 66 20 28 74 68 72 65 61 64 3a 74 68 72 65 61 64 2d 70 6c 69 73 74 | .(eql.(getf.(thread:thread-plist |
| 1cf660 | 20 74 68 72 65 61 64 29 20 27 69 64 29 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 | .thread).'id).id)............(re |
| 1cf680 | 74 75 72 6e 2d 66 72 6f 6d 20 66 69 6e 64 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 29 29 29 29 | turn-from.find-thread.thread)))) |
| 1cf6a0 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 6e 61 | ))..(defimplementation.thread-na |
| 1cf6c0 | 6d 65 20 28 74 68 72 65 61 64 29 0a 20 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 28 | me.(thread)...(princ-to-string.( |
| 1cf6e0 | 74 68 72 65 61 64 3a 74 68 72 65 61 64 2d 6e 61 6d 65 20 74 68 72 65 61 64 29 29 29 0a 0a 28 64 | thread:thread-name.thread)))..(d |
| 1cf700 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 73 74 61 74 75 73 20 28 | efimplementation.thread-status.( |
| 1cf720 | 74 68 72 65 61 64 29 0a 20 20 28 6c 65 74 20 28 28 64 79 6e 61 6d 69 63 2d 76 61 6c 75 65 73 20 | thread)...(let.((dynamic-values. |
| 1cf740 | 28 74 68 72 65 61 64 3a 3a 74 68 72 65 61 64 2d 64 79 6e 61 6d 69 63 2d 76 61 6c 75 65 73 20 74 | (thread::thread-dynamic-values.t |
| 1cf760 | 68 72 65 61 64 29 29 29 0a 20 20 20 20 28 69 66 20 28 7a 65 72 6f 70 20 64 79 6e 61 6d 69 63 2d | hread))).....(if.(zerop.dynamic- |
| 1cf780 | 76 61 6c 75 65 73 29 20 22 45 78 69 74 65 64 22 20 22 52 75 6e 6e 69 6e 67 22 29 29 29 0a 0a 28 | values)."Exited"."Running")))..( |
| 1cf7a0 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 6c 6f 63 6b 20 28 26 6b 65 | defimplementation.make-lock.(&ke |
| 1cf7c0 | 79 20 6e 61 6d 65 29 0a 20 20 28 74 68 72 65 61 64 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 6e 61 6d 65 | y.name)...(thread:make-lock.name |
| 1cf7e0 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 | ))..(defimplementation.call-with |
| 1cf800 | 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 6c 6f 63 6b 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 64 65 | -lock-held.(lock.function)...(de |
| 1cf820 | 63 6c 61 72 65 20 28 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a | clare.(type.function.function)). |
| 1cf840 | 20 20 28 74 68 72 65 61 64 3a 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 6c 6f 63 6b 29 20 | ..(thread:with-lock-held.(lock). |
| 1cf860 | 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | (funcall.function)))..(defimplem |
| 1cf880 | 65 6e 74 61 74 69 6f 6e 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 74 68 72 | entation.current-thread.()...thr |
| 1cf8a0 | 65 61 64 3a 2a 74 68 72 65 61 64 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | ead:*thread*)..(defimplementatio |
| 1cf8c0 | 6e 20 61 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 28 6c 65 74 20 28 28 61 6c 6c 2d 74 68 | n.all-threads.()...(let.((all-th |
| 1cf8e0 | 72 65 61 64 73 20 6e 69 6c 29 29 0a 20 20 20 20 28 74 68 72 65 61 64 3a 6d 61 70 2d 6f 76 65 72 | reads.nil)).....(thread:map-over |
| 1cf900 | 2d 74 68 72 65 61 64 73 20 23 27 28 6c 61 6d 62 64 61 20 28 74 68 72 65 61 64 29 20 28 70 75 73 | -threads.#'(lambda.(thread).(pus |
| 1cf920 | 68 20 74 68 72 65 61 64 20 61 6c 6c 2d 74 68 72 65 61 64 73 29 29 29 0a 20 20 20 20 61 6c 6c 2d | h.thread.all-threads))).....all- |
| 1cf940 | 74 68 72 65 61 64 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e | threads))..(defimplementation.in |
| 1cf960 | 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 20 66 6e 29 0a 20 20 28 74 68 | terrupt-thread.(thread.fn)...(th |
| 1cf980 | 72 65 61 64 3a 74 68 72 65 61 64 2d 69 6e 74 65 72 72 75 70 74 20 74 68 72 65 61 64 20 23 27 28 | read:thread-interrupt.thread.#'( |
| 1cf9a0 | 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lambda.()....................... |
| 1cf9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 77 69 74 68 2d 69 6e 74 65 72 72 | ................(sys:with-interr |
| 1cf9e0 | 75 70 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | upts............................ |
| 1cfa00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 29 29 29 0a 0a 28 | .............(funcall.fn)))))..( |
| 1cfa20 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 | defimplementation.kill-thread.(t |
| 1cfa40 | 68 72 65 61 64 29 0a 20 20 28 74 68 72 65 61 64 3a 64 65 73 74 72 6f 79 2d 74 68 72 65 61 64 20 | hread)...(thread:destroy-thread. |
| 1cfa60 | 74 68 72 65 61 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 | thread))..(defimplementation.thr |
| 1cfa80 | 65 61 64 2d 61 6c 69 76 65 2d 70 20 28 74 68 72 65 61 64 29 0a 20 20 28 6e 6f 74 20 28 7a 65 72 | ead-alive-p.(thread)...(not.(zer |
| 1cfaa0 | 6f 70 20 28 74 68 72 65 61 64 3a 3a 74 68 72 65 61 64 2d 64 79 6e 61 6d 69 63 2d 76 61 6c 75 65 | op.(thread::thread-dynamic-value |
| 1cfac0 | 73 20 74 68 72 65 61 64 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 6d 61 69 6c 62 6f 78 2d 6c | s.thread))))..(defvar.*mailbox-l |
| 1cfae0 | 6f 63 6b 2a 20 28 74 68 72 65 61 64 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 22 4d 61 69 6c 62 6f 78 20 | ock*.(thread:make-lock."Mailbox. |
| 1cfb00 | 6c 6f 63 6b 22 20 3a 69 6e 74 65 72 72 75 70 74 69 62 6c 65 20 6e 69 6c 29 29 0a 20 20 0a 28 64 | lock".:interruptible.nil))....(d |
| 1cfb20 | 65 66 73 74 72 75 63 74 20 28 6d 61 69 6c 62 6f 78 29 0a 20 20 28 6c 6f 63 6b 20 28 74 68 72 65 | efstruct.(mailbox)...(lock.(thre |
| 1cfb40 | 61 64 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 22 54 68 72 65 61 64 20 6d 61 69 6c 62 6f 78 22 20 3a 74 | ad:make-lock."Thread.mailbox".:t |
| 1cfb60 | 79 70 65 20 3a 65 72 72 6f 72 2d 63 68 65 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ype.:error-check................ |
| 1cfb80 | 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 74 65 72 72 75 70 74 69 62 6c 65 20 6e 69 6c 29 0a 20 | ...........:interruptible.nil).. |
| 1cfba0 | 20 20 20 20 20 20 20 3a 74 79 70 65 20 74 68 72 65 61 64 3a 65 72 72 6f 72 2d 63 68 65 63 6b 2d | .......:type.thread:error-check- |
| 1cfbc0 | 6c 6f 63 6b 29 0a 20 20 28 71 75 65 75 65 20 27 28 29 20 3a 74 79 70 65 20 6c 69 73 74 29 29 0a | lock)...(queue.'().:type.list)). |
| 1cfbe0 | 0a 28 64 65 66 75 6e 20 6d 61 69 6c 62 6f 78 20 28 74 68 72 65 61 64 29 0a 20 20 22 52 65 74 75 | .(defun.mailbox.(thread)..."Retu |
| 1cfc00 | 72 6e 20 27 74 68 72 65 61 64 27 73 20 6d 61 69 6c 62 6f 78 2e 22 0a 20 20 28 73 79 73 3a 77 69 | rn.'thread's.mailbox."...(sys:wi |
| 1cfc20 | 74 68 6f 75 74 2d 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 28 74 68 72 65 61 64 3a 77 69 74 | thout-interrupts.....(thread:wit |
| 1cfc40 | 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 29 0a 20 20 20 | h-lock-held.(*mailbox-lock*).... |
| 1cfc60 | 20 20 20 28 6f 72 20 28 67 65 74 66 20 28 74 68 72 65 61 64 3a 74 68 72 65 61 64 2d 70 6c 69 73 | ...(or.(getf.(thread:thread-plis |
| 1cfc80 | 74 20 74 68 72 65 61 64 29 20 27 6d 61 69 6c 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 | t.thread).'mailbox)...........(s |
| 1cfca0 | 65 74 66 20 28 67 65 74 66 20 28 74 68 72 65 61 64 3a 74 68 72 65 61 64 2d 70 6c 69 73 74 20 74 | etf.(getf.(thread:thread-plist.t |
| 1cfcc0 | 68 72 65 61 64 29 20 27 6d 61 69 6c 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hread).'mailbox)................ |
| 1cfce0 | 20 28 6d 61 6b 65 2d 6d 61 69 6c 62 6f 78 29 29 29 29 29 29 0a 20 20 0a 28 64 65 66 69 6d 70 6c | .(make-mailbox))))))....(defimpl |
| 1cfd00 | 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 6e 64 20 28 74 68 72 65 61 64 20 6d 65 73 73 61 67 65 29 | ementation.send.(thread.message) |
| 1cfd20 | 0a 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 74 68 72 65 61 64 29 | ...(let*.((mbox.(mailbox.thread) |
| 1cfd40 | 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 63 6b 20 28 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 20 6d | )..........(lock.(mailbox-lock.m |
| 1cfd60 | 62 6f 78 29 29 29 0a 20 20 20 20 28 73 79 73 3a 77 69 74 68 6f 75 74 2d 69 6e 74 65 72 72 75 70 | box))).....(sys:without-interrup |
| 1cfd80 | 74 73 0a 20 20 20 20 20 20 28 74 68 72 65 61 64 3a 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 | ts.......(thread:with-lock-held. |
| 1cfda0 | 28 6c 6f 63 6b 20 22 4d 61 69 6c 62 6f 78 20 53 65 6e 64 22 29 0a 20 20 20 20 20 20 20 20 28 73 | (lock."Mailbox.Send").........(s |
| 1cfdc0 | 65 74 66 20 28 6d 61 69 6c 62 6f 78 2d 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6e 63 6f 6e 63 20 | etf.(mailbox-queue.mbox).(nconc. |
| 1cfde0 | 28 6d 61 69 6c 62 6f 78 2d 71 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (mailbox-queue.mbox)............ |
| 1cfe00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1cfe20 | 6c 69 73 74 20 6d 65 73 73 61 67 65 29 29 29 29 29 0a 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 | list.message))))).....(mp:proces |
| 1cfe40 | 73 2d 77 61 6b 65 75 70 20 74 68 72 65 61 64 29 29 29 0a 0a 23 2b 6e 69 6c 0a 28 64 65 66 69 6d | s-wakeup.thread)))..#+nil.(defim |
| 1cfe60 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 69 76 65 20 28 29 0a 20 20 28 72 65 63 65 69 | plementation.receive.()...(recei |
| 1cfe80 | 76 65 2d 69 66 20 28 63 6f 6e 73 74 61 6e 74 6c 79 20 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | ve-if.(constantly.t)))..(defimpl |
| 1cfea0 | 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 69 76 65 2d 69 66 20 28 74 65 73 74 20 26 6f 70 74 | ementation.receive-if.(test.&opt |
| 1cfec0 | 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 6c 65 74 20 28 28 6d 62 6f 78 20 28 6d 61 | ional.timeout)...(let.((mbox.(ma |
| 1cfee0 | 69 6c 62 6f 78 20 74 68 72 65 61 64 3a 2a 74 68 72 65 61 64 2a 29 29 29 0a 20 20 20 20 28 61 73 | ilbox.thread:*thread*))).....(as |
| 1cff00 | 73 65 72 74 20 28 6f 72 20 28 6e 6f 74 20 74 69 6d 65 6f 75 74 29 20 28 65 71 20 74 69 6d 65 6f | sert.(or.(not.timeout).(eq.timeo |
| 1cff20 | 75 74 20 74 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 28 63 68 65 63 6b 2d 73 6c | ut.t))).....(loop......(check-sl |
| 1cff40 | 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 20 28 73 79 73 3a 77 69 74 68 6f 75 | ime-interrupts)......(sys:withou |
| 1cff60 | 74 2d 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 | t-interrupts........(mp:with-loc |
| 1cff80 | 6b 2d 68 65 6c 64 20 28 28 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 20 6d 62 6f 78 29 29 0a 20 20 20 | k-held.((mailbox-lock.mbox)).... |
| 1cffa0 | 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 71 20 28 6d 61 69 6c 62 6f 78 2d 71 75 65 75 65 20 6d | ......(let*.((q.(mailbox-queue.m |
| 1cffc0 | 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 20 28 6d 65 6d | box)).................(tail.(mem |
| 1cffe0 | 62 65 72 2d 69 66 20 74 65 73 74 20 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 | ber-if.test.q)))............(whe |
| 1d0000 | 6e 20 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 | n.tail..............(setf.(mailb |
| 1d0020 | 6f 78 2d 71 75 65 75 65 20 6d 62 6f 78 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ox-queue.mbox).................. |
| 1d0040 | 20 20 20 28 6e 63 6f 6e 63 20 28 6c 64 69 66 66 20 71 20 74 61 69 6c 29 20 28 63 64 72 20 74 61 | ...(nconc.(ldiff.q.tail).(cdr.ta |
| 1d0060 | 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 63 61 72 20 | il)))..............(return.(car. |
| 1d0080 | 74 61 69 6c 29 29 29 29 29 29 0a 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 74 69 6d 65 6f 75 | tail))))))......(when.(eq.timeou |
| 1d00a0 | 74 20 74 29 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 74 29 29 29 0a 20 20 | t.t).(return.(values.nil.t)))... |
| 1d00c0 | 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 77 61 69 74 2d 77 69 74 68 2d 74 69 6d 65 6f 75 74 | ...(mp:process-wait-with-timeout |
| 1d00e0 | 0a 20 20 20 20 20 20 22 4d 61 69 6c 62 6f 78 20 72 65 61 64 20 77 61 69 74 22 20 30 2e 35 20 28 | ......."Mailbox.read.wait".0.5.( |
| 1d0100 | 6c 61 6d 62 64 61 20 28 29 20 28 73 6f 6d 65 20 74 65 73 74 20 28 6d 61 69 6c 62 6f 78 2d 71 75 | lambda.().(some.test.(mailbox-qu |
| 1d0120 | 65 75 65 20 6d 62 6f 78 29 29 29 29 29 29 29 0a 0a 0c 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | eue.mbox))))))).....(defimplemen |
| 1d0140 | 74 61 74 69 6f 6e 20 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 65 64 20 28 29 29 0a 0a 0c 0a 3b 3b | tation.emacs-connected.())....;; |
| 1d0160 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 1d0180 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 1d01a0 | 3b 3b 3b 3b 0a 3b 3b 54 72 61 63 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 0a 3b 3b 20 | ;;;;.;;Trace.implementations.;;. |
| 1d01c0 | 49 6e 20 53 43 4c 2c 20 77 65 20 68 61 76 65 3a 0a 3b 3b 20 20 28 74 72 61 63 65 20 3c 6e 61 6d | In.SCL,.we.have:.;;..(trace.<nam |
| 1d01e0 | 65 3e 29 0a 3b 3b 20 20 28 74 72 61 63 65 20 28 6d 65 74 68 6f 64 20 3c 6e 61 6d 65 3e 20 3c 71 | e>).;;..(trace.(method.<name>.<q |
| 1d0200 | 75 61 6c 69 66 69 65 72 3e 3f 20 28 3c 73 70 65 63 69 61 6c 69 7a 65 72 3e 2b 29 29 29 0a 3b 3b | ualifier>?.(<specializer>+))).;; |
| 1d0220 | 20 20 28 74 72 61 63 65 20 3a 6d 65 74 68 6f 64 73 20 74 20 27 3c 6e 61 6d 65 3e 29 20 3b 3b 74 | ..(trace.:methods.t.'<name>).;;t |
| 1d0240 | 6f 20 74 72 61 63 65 20 61 6c 6c 20 6d 65 74 68 6f 64 73 20 6f 66 20 74 68 65 20 67 66 20 3c 6e | o.trace.all.methods.of.the.gf.<n |
| 1d0260 | 61 6d 65 3e 0a 3b 3b 20 20 3c 6e 61 6d 65 3e 20 63 61 6e 20 62 65 20 61 20 6e 6f 72 6d 61 6c 20 | ame>.;;..<name>.can.be.a.normal. |
| 1d0280 | 6e 61 6d 65 20 6f 72 20 61 20 28 73 65 74 66 20 6e 61 6d 65 29 0a 0a 28 64 65 66 75 6e 20 74 72 | name.or.a.(setf.name)..(defun.tr |
| 1d02a0 | 61 63 65 64 70 20 28 73 70 65 63 29 0a 20 20 28 6d 65 6d 62 65 72 20 73 70 65 63 20 28 65 76 61 | acedp.(spec)...(member.spec.(eva |
| 1d02c0 | 6c 20 27 28 74 72 61 63 65 29 29 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 0a 28 64 65 | l.'(trace)).:test.#'equal))..(de |
| 1d02e0 | 66 75 6e 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 28 73 70 65 63 20 26 72 65 73 74 | fun.toggle-trace-aux.(spec.&rest |
| 1d0300 | 20 6f 70 74 69 6f 6e 73 29 0a 20 20 28 63 6f 6e 64 20 28 28 74 72 61 63 65 64 70 20 73 70 65 63 | .options)...(cond.((tracedp.spec |
| 1d0320 | 29 0a 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 60 28 75 6e 74 72 61 63 65 20 2c 73 70 65 63 | )..........(eval.`(untrace.,spec |
| 1d0340 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 6e | ))..........(format.nil."~S.is.n |
| 1d0360 | 6f 77 20 75 6e 74 72 61 63 65 64 2e 22 20 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a | ow.untraced.".spec)).........(t. |
| 1d0380 | 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 60 28 74 72 61 63 65 20 2c 73 70 65 63 20 2c 40 6f | .........(eval.`(trace.,spec.,@o |
| 1d03a0 | 70 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e | ptions))..........(format.nil."~ |
| 1d03c0 | 53 20 69 73 20 6e 6f 77 20 74 72 61 63 65 64 2e 22 20 73 70 65 63 29 29 29 29 0a 0a 28 64 65 66 | S.is.now.traced.".spec))))..(def |
| 1d03e0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 28 73 70 65 | implementation.toggle-trace.(spe |
| 1d0400 | 63 29 0a 20 20 28 65 63 61 73 65 20 28 63 61 72 20 73 70 65 63 29 0a 20 20 20 20 28 28 73 65 74 | c)...(ecase.(car.spec).....((set |
| 1d0420 | 66 29 0a 20 20 20 20 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 73 70 65 63 29 29 | f)......(toggle-trace-aux.spec)) |
| 1d0440 | 0a 20 20 20 20 28 28 3a 64 65 66 67 65 6e 65 72 69 63 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 | .....((:defgeneric)......(let.(( |
| 1d0460 | 6e 61 6d 65 20 28 73 65 63 6f 6e 64 20 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 28 74 6f 67 | name.(second.spec)))........(tog |
| 1d0480 | 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 6e 61 6d 65 20 3a 6d 65 74 68 6f 64 73 20 6e 61 6d 65 | gle-trace-aux.name.:methods.name |
| 1d04a0 | 29 29 29 0a 20 20 20 20 28 28 3a 64 65 66 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 6e 69 6c 29 0a | ))).....((:defmethod)......nil). |
| 1d04c0 | 20 20 20 20 28 28 3a 63 61 6c 6c 29 0a 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 | ....((:call)......(destructuring |
| 1d04e0 | 2d 62 69 6e 64 20 28 63 61 6c 6c 65 72 20 63 61 6c 6c 65 65 29 20 28 63 64 72 20 73 70 65 63 29 | -bind.(caller.callee).(cdr.spec) |
| 1d0500 | 0a 20 20 20 20 20 20 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 28 70 72 6f 63 65 | ........(toggle-trace-aux.(proce |
| 1d0520 | 73 73 2d 66 73 70 65 63 20 63 61 6c 6c 65 65 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ss-fspec.callee)................ |
| 1d0540 | 20 20 20 20 20 20 20 20 20 20 20 3a 77 68 65 72 65 69 6e 20 28 6c 69 73 74 20 28 70 72 6f 63 65 | ...........:wherein.(list.(proce |
| 1d0560 | 73 73 2d 66 73 70 65 63 20 63 61 6c 6c 65 72 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 | ss-fspec.caller)))))))..(defun.p |
| 1d0580 | 72 6f 63 65 73 73 2d 66 73 70 65 63 20 28 66 73 70 65 63 29 0a 20 20 28 63 6f 6e 64 20 28 28 63 | rocess-fspec.(fspec)...(cond.((c |
| 1d05a0 | 6f 6e 73 70 20 66 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 28 66 69 72 | onsp.fspec)..........(ecase.(fir |
| 1d05c0 | 73 74 20 66 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 66 75 6e 20 3a 64 | st.fspec)............((:defun.:d |
| 1d05e0 | 65 66 67 65 6e 65 72 69 63 29 20 28 73 65 63 6f 6e 64 20 66 73 70 65 63 29 29 0a 20 20 20 20 20 | efgeneric).(second.fspec))...... |
| 1d0600 | 20 20 20 20 20 20 28 28 3a 64 65 66 6d 65 74 68 6f 64 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 | ......((:defmethod)............. |
| 1d0620 | 20 60 28 6d 65 74 68 6f 64 20 2c 28 73 65 63 6f 6e 64 20 66 73 70 65 63 29 20 2c 40 28 74 68 69 | .`(method.,(second.fspec).,@(thi |
| 1d0640 | 72 64 20 66 73 70 65 63 29 20 2c 28 66 6f 75 72 74 68 20 66 73 70 65 63 29 29 29 0a 20 20 20 20 | rd.fspec).,(fourth.fspec)))..... |
| 1d0660 | 20 20 20 20 20 20 20 3b 3b 20 74 68 69 73 20 69 73 6e 27 74 20 61 63 74 75 61 6c 6c 79 20 73 75 | .......;;.this.isn't.actually.su |
| 1d0680 | 70 70 6f 72 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 6c 61 62 65 6c 73 29 20 60 28 | pported............((:labels).`( |
| 1d06a0 | 6c 61 62 65 6c 73 20 2c 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 20 28 73 65 63 6f 6e 64 20 66 | labels.,(process-fspec.(second.f |
| 1d06c0 | 73 70 65 63 29 29 20 2c 28 74 68 69 72 64 20 66 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 | spec)).,(third.fspec)))......... |
| 1d06e0 | 20 20 20 28 28 3a 66 6c 65 74 29 20 60 28 66 6c 65 74 20 2c 28 70 72 6f 63 65 73 73 2d 66 73 70 | ...((:flet).`(flet.,(process-fsp |
| 1d0700 | 65 63 20 28 73 65 63 6f 6e 64 20 66 73 70 65 63 29 29 20 2c 28 74 68 69 72 64 20 66 73 70 65 63 | ec.(second.fspec)).,(third.fspec |
| 1d0720 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 66 73 70 65 63 29 | ))))).........(t..........fspec) |
| 1d0740 | 29 29 0a 0a 3b 3b 3b 20 57 65 61 6b 20 64 61 74 61 73 74 72 75 63 74 75 72 65 73 0a 0a 3b 3b 3b | ))..;;;.Weak.datastructures..;;; |
| 1d0760 | 20 4e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 6e 20 53 43 4c 2e 0a 28 64 65 66 69 6d 70 | .Not.implemented.in.SCL..(defimp |
| 1d0780 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 77 65 61 6b 2d 6b 65 79 2d 68 61 73 68 2d 74 | lementation.make-weak-key-hash-t |
| 1d07a0 | 61 62 6c 65 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b | able.(&rest.args)...(apply.#'mak |
| 1d07c0 | 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 77 65 61 6b 2d 70 20 74 20 61 72 67 73 29 29 0a 00 00 | e-hash-table.:weak-p.t.args))... |
| 1d07e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d0800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 63 6f 72 6d 61 6e 2e 6c 69 73 70 00 00 00 00 | slime-2.31/swank/corman.lisp.... |
| 1d0820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d0840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d0860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 1d0880 | 30 30 34 36 35 30 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 35 31 31 00 20 30 00 00 00 | 0046502.00000000000.014511..0... |
| 1d08a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d08c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d08e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d0900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 1d0920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 1d0940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d0960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d0980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d09a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d09c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d09e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d0a00 | 3b 3b 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 63 6f 72 6d 61 6e 2e 6c 69 73 70 20 2d 2d 2d 20 43 6f | ;;;.;;;.swank-corman.lisp.---.Co |
| 1d0a20 | 72 6d 61 6e 20 4c 69 73 70 20 73 70 65 63 69 66 69 63 20 63 6f 64 65 20 66 6f 72 20 53 4c 49 4d | rman.Lisp.specific.code.for.SLIM |
| 1d0a40 | 45 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 34 2c 20 32 | E..;;;.;;;.Copyright.(C).2004,.2 |
| 1d0a60 | 30 30 35 20 45 73 70 65 6e 20 57 69 62 6f 72 67 20 28 65 73 70 65 6e 68 77 40 67 72 75 6d 62 6c | 005.Espen.Wiborg.(espenhw@grumbl |
| 1d0a80 | 65 73 6d 75 72 66 2e 6f 72 67 29 0a 3b 3b 3b 0a 3b 3b 3b 20 4c 69 63 65 6e 73 65 0a 3b 3b 3b 20 | esmurf.org).;;;.;;;.License.;;;. |
| 1d0aa0 | 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 3b 20 54 68 69 73 20 73 6f 66 74 77 61 72 65 20 69 73 20 70 72 6f | =======.;;;.This.software.is.pro |
| 1d0ac0 | 76 69 64 65 64 20 27 61 73 2d 69 73 27 2c 20 77 69 74 68 6f 75 74 20 61 6e 79 20 65 78 70 72 65 | vided.'as-is',.without.any.expre |
| 1d0ae0 | 73 73 20 6f 72 20 69 6d 70 6c 69 65 64 0a 3b 3b 3b 20 77 61 72 72 61 6e 74 79 2e 20 49 6e 20 6e | ss.or.implied.;;;.warranty..In.n |
| 1d0b00 | 6f 20 65 76 65 6e 74 20 77 69 6c 6c 20 74 68 65 20 61 75 74 68 6f 72 20 62 65 20 68 65 6c 64 20 | o.event.will.the.author.be.held. |
| 1d0b20 | 6c 69 61 62 6c 65 20 66 6f 72 20 61 6e 79 20 64 61 6d 61 67 65 73 0a 3b 3b 3b 20 61 72 69 73 69 | liable.for.any.damages.;;;.arisi |
| 1d0b40 | 6e 67 20 66 72 6f 6d 20 74 68 65 20 75 73 65 20 6f 66 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 | ng.from.the.use.of.this.software |
| 1d0b60 | 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 50 65 72 6d 69 73 73 69 6f 6e 20 69 73 20 67 72 61 6e 74 65 64 20 | ..;;;.;;;.Permission.is.granted. |
| 1d0b80 | 74 6f 20 61 6e 79 6f 6e 65 20 74 6f 20 75 73 65 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 20 66 | to.anyone.to.use.this.software.f |
| 1d0ba0 | 6f 72 20 61 6e 79 20 70 75 72 70 6f 73 65 2c 0a 3b 3b 3b 20 69 6e 63 6c 75 64 69 6e 67 20 63 6f | or.any.purpose,.;;;.including.co |
| 1d0bc0 | 6d 6d 65 72 63 69 61 6c 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 2c 20 61 6e 64 20 74 6f 20 61 6c | mmercial.applications,.and.to.al |
| 1d0be0 | 74 65 72 20 69 74 20 61 6e 64 20 72 65 64 69 73 74 72 69 62 75 74 65 0a 3b 3b 3b 20 69 74 20 66 | ter.it.and.redistribute.;;;.it.f |
| 1d0c00 | 72 65 65 6c 79 2c 20 73 75 62 6a 65 63 74 20 74 6f 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 | reely,.subject.to.the.following. |
| 1d0c20 | 72 65 73 74 72 69 63 74 69 6f 6e 73 3a 0a 3b 3b 3b 0a 3b 3b 3b 20 31 2e 20 54 68 65 20 6f 72 69 | restrictions:.;;;.;;;.1..The.ori |
| 1d0c40 | 67 69 6e 20 6f 66 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 20 6d 75 73 74 20 6e 6f 74 20 62 65 | gin.of.this.software.must.not.be |
| 1d0c60 | 20 6d 69 73 72 65 70 72 65 73 65 6e 74 65 64 3b 20 79 6f 75 20 6d 75 73 74 0a 3b 3b 3b 20 20 20 | .misrepresented;.you.must.;;;... |
| 1d0c80 | 20 6e 6f 74 20 63 6c 61 69 6d 20 74 68 61 74 20 79 6f 75 20 77 72 6f 74 65 20 74 68 65 20 6f 72 | .not.claim.that.you.wrote.the.or |
| 1d0ca0 | 69 67 69 6e 61 6c 20 73 6f 66 74 77 61 72 65 2e 20 49 66 20 79 6f 75 20 75 73 65 20 74 68 69 73 | iginal.software..If.you.use.this |
| 1d0cc0 | 0a 3b 3b 3b 20 20 20 20 73 6f 66 74 77 61 72 65 20 69 6e 20 61 20 70 72 6f 64 75 63 74 2c 20 61 | .;;;....software.in.a.product,.a |
| 1d0ce0 | 6e 20 61 63 6b 6e 6f 77 6c 65 64 67 6d 65 6e 74 20 69 6e 20 74 68 65 20 70 72 6f 64 75 63 74 20 | n.acknowledgment.in.the.product. |
| 1d0d00 | 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 3b 3b 3b 20 20 20 20 77 6f 75 6c 64 20 62 65 20 61 70 | documentation.;;;....would.be.ap |
| 1d0d20 | 70 72 65 63 69 61 74 65 64 20 62 75 74 20 69 73 20 6e 6f 74 20 72 65 71 75 69 72 65 64 2e 0a 3b | preciated.but.is.not.required..; |
| 1d0d40 | 3b 3b 0a 3b 3b 3b 20 32 2e 20 41 6c 74 65 72 65 64 20 73 6f 75 72 63 65 20 76 65 72 73 69 6f 6e | ;;.;;;.2..Altered.source.version |
| 1d0d60 | 73 20 6d 75 73 74 20 62 65 20 70 6c 61 69 6e 6c 79 20 6d 61 72 6b 65 64 20 61 73 20 73 75 63 68 | s.must.be.plainly.marked.as.such |
| 1d0d80 | 2c 20 61 6e 64 20 6d 75 73 74 0a 3b 3b 3b 20 20 20 20 6e 6f 74 20 62 65 20 6d 69 73 72 65 70 72 | ,.and.must.;;;....not.be.misrepr |
| 1d0da0 | 65 73 65 6e 74 65 64 20 61 73 20 62 65 69 6e 67 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 73 6f | esented.as.being.the.original.so |
| 1d0dc0 | 66 74 77 61 72 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 33 2e 20 54 68 69 73 20 6e 6f 74 69 63 65 20 6d | ftware..;;;.;;;.3..This.notice.m |
| 1d0de0 | 61 79 20 6e 6f 74 20 62 65 20 72 65 6d 6f 76 65 64 20 6f 72 20 61 6c 74 65 72 65 64 20 66 72 6f | ay.not.be.removed.or.altered.fro |
| 1d0e00 | 6d 20 61 6e 79 20 73 6f 75 72 63 65 20 0a 3b 3b 3b 20 20 20 20 64 69 73 74 72 69 62 75 74 69 6f | m.any.source..;;;....distributio |
| 1d0e20 | 6e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4e 6f 74 65 73 0a 3b 3b 3b 20 3d 3d 3d 3d 3d 0a 3b 3b 3b 20 59 | n..;;;.;;;.Notes.;;;.=====.;;;.Y |
| 1d0e40 | 6f 75 20 77 69 6c 6c 20 6e 65 65 64 20 43 43 4c 20 32 2e 35 31 2c 20 61 6e 64 20 79 6f 75 20 77 | ou.will.need.CCL.2.51,.and.you.w |
| 1d0e60 | 69 6c 6c 20 2a 64 65 66 69 6e 69 74 65 6c 79 2a 20 6e 65 65 64 20 74 6f 20 70 61 74 63 68 0a 3b | ill.*definitely*.need.to.patch.; |
| 1d0e80 | 3b 3b 20 43 43 4c 20 77 69 74 68 20 74 68 65 20 70 61 74 63 68 65 73 20 61 74 0a 3b 3b 3b 20 68 | ;;.CCL.with.the.patches.at.;;;.h |
| 1d0ea0 | 74 74 70 3a 2f 2f 77 77 77 2e 67 72 75 6d 62 6c 65 73 6d 75 72 66 2e 6f 72 67 2f 6c 69 73 70 2f | ttp://www.grumblesmurf.org/lisp/ |
| 1d0ec0 | 63 6f 72 6d 61 6e 2d 70 61 74 63 68 65 73 2c 20 6f 74 68 65 72 77 69 73 65 20 53 4c 49 4d 45 0a | corman-patches,.otherwise.SLIME. |
| 1d0ee0 | 3b 3b 3b 20 77 69 6c 6c 20 62 6c 6f 77 20 75 70 20 69 6e 20 79 6f 75 72 20 66 61 63 65 2e 20 20 | ;;;.will.blow.up.in.your.face... |
| 1d0f00 | 59 6f 75 20 73 68 6f 75 6c 64 20 61 6c 73 6f 20 66 6f 6c 6c 6f 77 20 74 68 65 0a 3b 3b 3b 20 69 | You.should.also.follow.the.;;;.i |
| 1d0f20 | 6e 73 74 72 75 63 74 69 6f 6e 73 20 6f 6e 20 68 74 74 70 3a 2f 2f 77 77 77 2e 67 72 75 6d 62 6c | nstructions.on.http://www.grumbl |
| 1d0f40 | 65 73 6d 75 72 66 2e 6f 72 67 2f 6c 69 73 70 2f 63 6f 72 6d 61 6e 2d 73 6c 69 6d 65 2e 0a 3b 3b | esmurf.org/lisp/corman-slime..;; |
| 1d0f60 | 3b 0a 3b 3b 3b 20 54 68 65 20 6f 6e 6c 79 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 | ;.;;;.The.only.communication.sty |
| 1d0f80 | 6c 65 20 63 75 72 72 65 6e 74 6c 79 20 73 75 70 70 6f 72 74 65 64 20 69 73 20 4e 49 4c 2e 0a 3b | le.currently.supported.is.NIL..; |
| 1d0fa0 | 3b 3b 0a 3b 3b 3b 20 53 74 61 72 74 69 6e 67 20 43 43 4c 20 69 6e 73 69 64 65 20 65 6d 61 63 73 | ;;.;;;.Starting.CCL.inside.emacs |
| 1d0fc0 | 20 28 77 69 74 68 20 4d 2d 78 20 73 6c 69 6d 65 29 20 73 65 65 6d 73 20 74 6f 20 77 6f 72 6b 20 | .(with.M-x.slime).seems.to.work. |
| 1d0fe0 | 66 6f 72 20 6d 65 0a 3b 3b 3b 20 77 69 74 68 20 43 6f 72 6d 61 6e 20 4c 69 73 70 20 32 2e 35 31 | for.me.;;;.with.Corman.Lisp.2.51 |
| 1d1000 | 2c 20 62 75 74 20 49 20 68 61 76 65 20 73 65 65 6e 20 72 61 6e 64 6f 6d 20 66 61 69 6c 75 72 65 | ,.but.I.have.seen.random.failure |
| 1d1020 | 73 20 77 69 74 68 20 32 2e 35 0a 3b 3b 3b 20 28 73 6f 6d 65 74 69 6d 65 73 20 69 74 20 77 6f 72 | s.with.2.5.;;;.(sometimes.it.wor |
| 1d1040 | 6b 73 2c 20 6f 74 68 65 72 20 74 69 6d 65 73 20 69 74 20 68 61 6e 67 73 20 6f 6e 20 73 74 61 72 | ks,.other.times.it.hangs.on.star |
| 1d1060 | 74 20 6f 72 20 68 61 6e 67 73 20 77 68 65 6e 0a 3b 3b 3b 20 69 6e 69 74 69 61 6c 69 7a 69 6e 67 | t.or.hangs.when.;;;.initializing |
| 1d1080 | 20 57 69 6e 53 6f 63 6b 29 20 2d 20 73 74 61 72 74 69 6e 67 20 43 43 4c 20 65 78 74 65 72 6e 61 | .WinSock).-.starting.CCL.externa |
| 1d10a0 | 6c 6c 79 20 61 6e 64 20 75 73 69 6e 67 20 4d 2d 78 0a 3b 3b 3b 20 73 6c 69 6d 65 2d 63 6f 6e 6e | lly.and.using.M-x.;;;.slime-conn |
| 1d10c0 | 65 63 74 20 61 6c 77 61 79 73 20 77 6f 72 6b 73 20 66 69 6e 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 53 | ect.always.works.fine..;;;.;;;.S |
| 1d10e0 | 6f 6d 65 74 69 6d 65 73 20 43 43 4c 20 67 65 74 73 20 63 6f 6e 66 75 73 65 64 20 61 6e 64 20 73 | ometimes.CCL.gets.confused.and.s |
| 1d1100 | 74 61 72 74 73 20 67 69 76 69 6e 67 20 79 6f 75 20 72 61 6e 64 6f 6d 20 6d 65 6d 6f 72 79 0a 3b | tarts.giving.you.random.memory.; |
| 1d1120 | 3b 3b 20 61 63 63 65 73 73 20 76 69 6f 6c 61 74 69 6f 6e 20 65 72 72 6f 72 73 20 6f 6e 20 73 74 | ;;.access.violation.errors.on.st |
| 1d1140 | 61 72 74 75 70 3b 20 69 66 20 74 68 69 73 20 68 61 70 70 65 6e 73 2c 20 74 72 79 20 72 65 64 75 | artup;.if.this.happens,.try.redu |
| 1d1160 | 6d 70 69 6e 67 0a 3b 3b 3b 20 79 6f 75 72 20 69 6d 61 67 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 57 68 | mping.;;;.your.image..;;;.;;;.Wh |
| 1d1180 | 61 74 20 77 6f 72 6b 73 0a 3b 3b 3b 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 3b 20 2a 20 42 61 | at.works.;;;.==========.;;;.*.Ba |
| 1d11a0 | 73 69 63 20 65 64 69 74 69 6e 67 20 61 6e 64 20 65 76 61 6c 75 61 74 69 6f 6e 0a 3b 3b 3b 20 2a | sic.editing.and.evaluation.;;;.* |
| 1d11c0 | 20 41 72 67 6c 69 73 74 20 64 69 73 70 6c 61 79 0a 3b 3b 3b 20 2a 20 43 6f 6d 70 69 6c 61 74 69 | .Arglist.display.;;;.*.Compilati |
| 1d11e0 | 6f 6e 0a 3b 3b 3b 20 2a 20 4c 6f 61 64 69 6e 67 20 66 69 6c 65 73 0a 3b 3b 3b 20 2a 20 61 70 72 | on.;;;.*.Loading.files.;;;.*.apr |
| 1d1200 | 6f 70 6f 73 2f 64 65 73 63 72 69 62 65 0a 3b 3b 3b 20 2a 20 44 65 62 75 67 67 65 72 0a 3b 3b 3b | opos/describe.;;;.*.Debugger.;;; |
| 1d1220 | 20 2a 20 49 6e 73 70 65 63 74 6f 72 0a 3b 3b 3b 20 0a 3b 3b 3b 20 54 4f 44 4f 0a 3b 3b 3b 20 3d | .*.Inspector.;;;..;;;.TODO.;;;.= |
| 1d1240 | 3d 3d 3d 0a 3b 3b 3b 20 2a 20 4d 6f 72 65 20 64 65 62 75 67 67 65 72 20 66 75 6e 63 74 69 6f 6e | ===.;;;.*.More.debugger.function |
| 1d1260 | 61 6c 69 74 79 20 28 6d 69 73 73 69 6e 67 20 62 69 74 73 3a 20 72 65 73 74 61 72 74 2d 66 72 61 | ality.(missing.bits:.restart-fra |
| 1d1280 | 6d 65 2c 0a 3b 3b 3b 20 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 2c 20 64 69 73 61 73 | me,.;;;.return-from-frame,.disas |
| 1d12a0 | 73 65 6d 62 6c 65 2d 66 72 61 6d 65 2c 20 61 63 74 69 76 61 74 65 2d 73 74 65 70 70 69 6e 67 2c | semble-frame,.activate-stepping, |
| 1d12c0 | 0a 3b 3b 3b 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 29 0a 3b 3b 3b 20 2a 20 58 52 45 46 0a 3b 3b | .;;;.toggle-trace).;;;.*.XREF.;; |
| 1d12e0 | 3b 20 2a 20 50 72 6f 66 69 6c 69 6e 67 0a 3b 3b 3b 20 2a 20 4d 6f 72 65 20 73 6f 70 68 69 73 74 | ;.*.Profiling.;;;.*.More.sophist |
| 1d1300 | 69 63 61 74 65 64 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 73 20 74 68 61 6e | icated.communication.styles.than |
| 1d1320 | 20 4e 49 4c 0a 3b 3b 3b 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2f 62 61 63 | .NIL.;;;..(in-package.:swank/bac |
| 1d1340 | 6b 65 6e 64 29 0a 0a 3b 3b 3b 20 50 75 6c 6c 20 69 6e 20 76 61 72 69 6f 75 73 20 6e 65 65 64 65 | kend)..;;;.Pull.in.various.neede |
| 1d1360 | 64 20 62 69 74 73 0a 28 72 65 71 75 69 72 65 20 3a 63 6f 6d 70 6f 73 69 74 65 2d 73 74 72 65 61 | d.bits.(require.:composite-strea |
| 1d1380 | 6d 73 29 0a 28 72 65 71 75 69 72 65 20 3a 73 6f 63 6b 65 74 73 29 0a 28 72 65 71 75 69 72 65 20 | ms).(require.:sockets).(require. |
| 1d13a0 | 3a 77 69 6e 62 61 73 65 29 0a 28 72 65 71 75 69 72 65 20 3a 6c 70 29 0a 0a 28 75 73 65 2d 70 61 | :winbase).(require.:lp)..(use-pa |
| 1d13c0 | 63 6b 61 67 65 20 3a 67 73 29 0a 0a 3b 3b 20 4d 4f 50 20 73 74 75 66 66 0a 0a 28 64 65 66 63 6c | ckage.:gs)..;;.MOP.stuff..(defcl |
| 1d13e0 | 61 73 73 20 73 77 61 6e 6b 2d 6d 6f 70 3a 73 74 61 6e 64 61 72 64 2d 73 6c 6f 74 2d 64 65 66 69 | ass.swank-mop:standard-slot-defi |
| 1d1400 | 6e 69 74 69 6f 6e 20 28 29 0a 20 20 28 29 0a 20 20 28 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | nition.()...()...(:documentation |
| 1d1420 | 20 0a 20 20 20 22 44 75 6d 6d 79 20 63 6c 61 73 73 20 63 72 65 61 74 65 64 20 73 6f 20 74 68 61 | ....."Dummy.class.created.so.tha |
| 1d1440 | 74 20 73 77 61 6e 6b 2e 6c 69 73 70 20 77 69 6c 6c 20 63 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f | t.swank.lisp.will.compile.and.lo |
| 1d1460 | 61 64 2e 22 29 29 0a 0a 28 64 65 66 75 6e 20 6e 61 6d 65 64 2d 62 79 2d 67 65 6e 73 79 6d 2d 70 | ad."))..(defun.named-by-gensym-p |
| 1d1480 | 20 28 63 29 0a 20 20 28 6e 75 6c 6c 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 28 63 6c | .(c)...(null.(symbol-package.(cl |
| 1d14a0 | 61 73 73 2d 6e 61 6d 65 20 63 29 29 29 29 0a 0a 28 64 65 66 74 79 70 65 20 73 77 61 6e 6b 2d 6d | ass-name.c))))..(deftype.swank-m |
| 1d14c0 | 6f 70 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 20 28 29 0a 20 20 27 28 73 61 74 69 73 66 | op:eql-specializer.()...'(satisf |
| 1d14e0 | 69 65 73 20 6e 61 6d 65 64 2d 62 79 2d 67 65 6e 73 79 6d 2d 70 29 29 0a 0a 28 64 65 66 75 6e 20 | ies.named-by-gensym-p))..(defun. |
| 1d1500 | 73 77 61 6e 6b 2d 6d 6f 70 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 2d 6f 62 6a 65 63 74 | swank-mop:eql-specializer-object |
| 1d1520 | 20 28 73 70 65 63 69 61 6c 69 7a 65 72 29 0a 20 20 28 77 69 74 68 2d 68 61 73 68 2d 74 61 62 6c | .(specializer)...(with-hash-tabl |
| 1d1540 | 65 2d 69 74 65 72 61 74 6f 72 20 28 6e 65 78 74 2d 65 6e 74 72 79 20 63 6c 3a 3a 2a 63 6c 6f 73 | e-iterator.(next-entry.cl::*clos |
| 1d1560 | 2d 73 69 6e 67 6c 65 74 6f 6e 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 2a 29 0a 20 20 20 20 28 6c | -singleton-specializers*).....(l |
| 1d1580 | 6f 6f 70 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6d 6f 72 65 20 6b | oop.(multiple-value-bind.(more.k |
| 1d15a0 | 65 79 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 78 74 2d 65 6e | ey.value)...............(next-en |
| 1d15c0 | 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 6d 6f 72 65 20 28 72 | try).............(unless.more.(r |
| 1d15e0 | 65 74 75 72 6e 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 | eturn.nil)).............(when.(e |
| 1d1600 | 71 20 73 70 65 63 69 61 6c 69 7a 65 72 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | q.specializer.value)............ |
| 1d1620 | 20 20 20 28 72 65 74 75 72 6e 20 6b 65 79 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 | ...(return.key))))))..(defun.swa |
| 1d1640 | 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 66 69 6e 61 6c 69 7a 65 64 2d 70 20 28 63 6c 61 73 73 29 | nk-mop:class-finalized-p.(class) |
| 1d1660 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 6c 61 73 73 29 29 0a 20 20 74 29 | ...(declare.(ignore.class))...t) |
| 1d1680 | 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 70 72 6f 74 6f 74 79 | ..(defun.swank-mop:class-prototy |
| 1d16a0 | 70 65 20 28 63 6c 61 73 73 29 0a 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 63 6c 61 73 | pe.(class)...(make-instance.clas |
| 1d16c0 | 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a 73 70 65 63 69 61 6c 69 7a 65 | s))..(defun.swank-mop:specialize |
| 1d16e0 | 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 20 28 6f 62 6a 29 0a 20 20 28 64 65 63 6c 61 72 | r-direct-methods.(obj)...(declar |
| 1d1700 | 65 20 28 69 67 6e 6f 72 65 20 6f 62 6a 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 73 | e.(ignore.obj))...nil)..(defun.s |
| 1d1720 | 77 61 6e 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 75 6d 65 | wank-mop:generic-function-argume |
| 1d1740 | 6e 74 2d 70 72 65 63 65 64 65 6e 63 65 2d 6f 72 64 65 72 20 28 67 66 29 0a 20 20 28 67 65 6e 65 | nt-precedence-order.(gf)...(gene |
| 1d1760 | 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 67 66 29 29 0a 0a 28 | ric-function-lambda-list.gf))..( |
| 1d1780 | 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e | defun.swank-mop:generic-function |
| 1d17a0 | 2d 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 28 67 66 29 0a 20 20 28 64 65 63 6c | -method-combination.(gf)...(decl |
| 1d17c0 | 61 72 65 20 28 69 67 6e 6f 72 65 20 67 66 29 29 0a 20 20 3a 73 74 61 6e 64 61 72 64 29 0a 0a 28 | are.(ignore.gf))...:standard)..( |
| 1d17e0 | 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e | defun.swank-mop:generic-function |
| 1d1800 | 2d 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 28 67 66 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 | -declarations.(gf)...(declare.(i |
| 1d1820 | 67 6e 6f 72 65 20 67 66 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d | gnore.gf))...nil)..(defun.swank- |
| 1d1840 | 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f | mop:slot-definition-documentatio |
| 1d1860 | 6e 20 28 73 6c 6f 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 73 6c 6f 74 | n.(slot)...(declare.(ignore.slot |
| 1d1880 | 29 29 0a 20 20 28 67 65 74 66 20 73 6c 6f 74 20 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6e | ))...(getf.slot.:documentation.n |
| 1d18a0 | 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 | il))..(defun.swank-mop:slot-defi |
| 1d18c0 | 6e 69 74 69 6f 6e 2d 74 79 70 65 20 28 73 6c 6f 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 | nition-type.(slot)...(declare.(i |
| 1d18e0 | 67 6e 6f 72 65 20 73 6c 6f 74 29 29 0a 20 20 74 29 0a 0a 28 69 6d 70 6f 72 74 2d 73 77 61 6e 6b | gnore.slot))...t)..(import-swank |
| 1d1900 | 2d 6d 6f 70 2d 73 79 6d 62 6f 6c 73 20 3a 63 6c 20 27 28 3b 3b 20 63 6c 61 73 73 65 73 0a 20 20 | -mop-symbols.:cl.'(;;.classes... |
| 1d1920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 | ..............................:s |
| 1d1940 | 74 61 6e 64 61 72 64 2d 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | tandard-slot-definition......... |
| 1d1960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 71 6c 2d 73 70 65 | ........................:eql-spe |
| 1d1980 | 63 69 61 6c 69 7a 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cializer........................ |
| 1d19a0 | 20 20 20 20 20 20 20 20 20 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 2d 6f 62 6a 65 63 74 | .........:eql-specializer-object |
| 1d19c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d19e0 | 20 3b 3b 20 73 74 61 6e 64 61 72 64 20 63 6c 61 73 73 20 72 65 61 64 65 72 73 0a 20 20 20 20 20 | .;;.standard.class.readers...... |
| 1d1a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6c 61 73 | ...........................:clas |
| 1d1a20 | 73 2d 64 65 66 61 75 6c 74 2d 69 6e 69 74 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | s-default-initargs.............. |
| 1d1a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 | ...................:class-direct |
| 1d1a60 | 2d 64 65 66 61 75 6c 74 2d 69 6e 69 74 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -default-initargs............... |
| 1d1a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6c 61 73 73 2d 66 69 6e 61 6c 69 7a | ..................:class-finaliz |
| 1d1aa0 | 65 64 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-p............................ |
| 1d1ac0 | 20 20 20 20 20 3a 63 6c 61 73 73 2d 70 72 6f 74 6f 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 | .....:class-prototype........... |
| 1d1ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 70 65 63 69 61 6c 69 7a | ......................:specializ |
| 1d1b00 | 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er-direct-methods............... |
| 1d1b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 67 66 20 72 65 61 64 65 72 73 0a | ..................;;.gf.readers. |
| 1d1b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d1b60 | 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 2d 70 72 65 63 65 | :generic-function-argument-prece |
| 1d1b80 | 64 65 6e 63 65 2d 6f 72 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dence-order..................... |
| 1d1ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 64 65 | ............:generic-function-de |
| 1d1bc0 | 63 6c 61 72 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | clarations...................... |
| 1d1be0 | 20 20 20 20 20 20 20 20 20 20 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 | ...........:generic-function-met |
| 1d1c00 | 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hod-combination................. |
| 1d1c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6d 65 74 68 6f 64 20 72 65 61 64 65 72 | ................;;.method.reader |
| 1d1c40 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s............................... |
| 1d1c60 | 20 20 3b 3b 20 73 6c 6f 74 20 72 65 61 64 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..;;.slot.readers............... |
| 1d1c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 | ..................:slot-definiti |
| 1d1ca0 | 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on-documentation................ |
| 1d1cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f | .................:slot-definitio |
| 1d1ce0 | 6e 2d 74 79 70 65 29 29 0a 0a 3b 3b 3b 3b 20 73 77 61 6e 6b 20 69 6d 70 6c 65 6d 65 6e 74 61 74 | n-type))..;;;;.swank.implementat |
| 1d1d00 | 69 6f 6e 73 0a 0a 3b 3b 3b 20 44 65 62 75 67 67 65 72 0a 0a 28 64 65 66 76 61 72 20 2a 73 74 61 | ions..;;;.Debugger..(defvar.*sta |
| 1d1d20 | 63 6b 2d 74 72 61 63 65 2a 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 2a 66 72 61 6d 65 2d 74 72 | ck-trace*.nil).(defvar.*frame-tr |
| 1d1d40 | 61 63 65 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 73 74 72 75 63 74 20 66 72 61 6d 65 0a 20 20 6e 61 | ace*.nil)..(defstruct.frame...na |
| 1d1d60 | 6d 65 20 66 75 6e 63 74 69 6f 6e 20 61 64 64 72 65 73 73 20 64 65 62 75 67 2d 69 6e 66 6f 20 76 | me.function.address.debug-info.v |
| 1d1d80 | 61 72 69 61 62 6c 65 73 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 | ariables)..(defimplementation.ca |
| 1d1da0 | 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 66 | ll-with-debugging-environment.(f |
| 1d1dc0 | 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 72 65 61 6c 2d 73 74 61 63 6b 2d 74 72 61 63 65 20 28 63 | n)...(let*.((real-stack-trace.(c |
| 1d1de0 | 6c 3a 3a 73 74 61 63 6b 2d 74 72 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 73 74 61 63 | l::stack-trace))..........(*stac |
| 1d1e00 | 6b 2d 74 72 61 63 65 2a 20 28 63 64 72 20 28 6d 65 6d 62 65 72 20 27 63 6c 3a 69 6e 76 6f 6b 65 | k-trace*.(cdr.(member.'cl:invoke |
| 1d1e20 | 2d 64 65 62 75 67 67 65 72 20 72 65 61 6c 2d 73 74 61 63 6b 2d 74 72 61 63 65 0a 20 20 20 20 20 | -debugger.real-stack-trace...... |
| 1d1e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d1e60 | 3a 6b 65 79 20 23 27 63 61 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 66 72 61 6d 65 2d 74 | :key.#'car)))..........(*frame-t |
| 1d1e80 | 72 61 63 65 2a 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 64 62 3a 3a 2a 64 65 62 | race*...........(let*.((db::*deb |
| 1d1ea0 | 75 67 2d 6c 65 76 65 6c 2a 20 20 20 20 20 20 20 20 20 28 31 2b 20 64 62 3a 3a 2a 64 65 62 75 67 | ug-level*.........(1+.db::*debug |
| 1d1ec0 | 2d 6c 65 76 65 6c 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 62 3a 3a | -level*))..................(db:: |
| 1d1ee0 | 2a 64 65 62 75 67 2d 66 72 61 6d 65 2d 70 6f 69 6e 74 65 72 2a 20 28 64 62 3a 3a 73 74 61 73 68 | *debug-frame-pointer*.(db::stash |
| 1d1f00 | 2d 65 62 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -ebp............................ |
| 1d1f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 74 3a 63 72 65 61 74 65 2d 66 6f 72 | ..................(ct:create-for |
| 1d1f40 | 65 69 67 6e 2d 70 74 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 62 | eign-ptr)))..................(db |
| 1d1f60 | 3a 3a 2a 64 65 62 75 67 2d 6d 61 78 2d 6c 65 76 65 6c 2a 20 20 20 20 20 28 6c 65 6e 67 74 68 20 | ::*debug-max-level*.....(length. |
| 1d1f80 | 72 65 61 6c 2d 73 74 61 63 6b 2d 74 72 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | real-stack-trace)).............. |
| 1d1fa0 | 20 20 20 20 28 64 62 3a 3a 2a 64 65 62 75 67 2d 6d 69 6e 2d 6c 65 76 65 6c 2a 20 20 20 20 20 31 | ....(db::*debug-min-level*.....1 |
| 1d1fc0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 6d 65 6d 62 65 72 20 23 27 63 6c | )).............(cdr.(member.#'cl |
| 1d1fe0 | 3a 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :invoke-debugger................ |
| 1d2000 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(cons................. |
| 1d2020 | 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 66 72 61 6d 65 20 3a 66 75 6e 63 74 69 6f 6e 20 | ..........(make-frame.:function. |
| 1d2040 | 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | nil)...........................( |
| 1d2060 | 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 64 62 3a 3a 2a 64 65 62 75 67 2d 6d 69 6e 2d 6c | loop.for.i.from.db::*debug-min-l |
| 1d2080 | 65 76 65 6c 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | evel*........................... |
| 1d20a0 | 20 20 20 75 70 74 6f 20 64 62 3a 3a 2a 64 65 62 75 67 2d 6d 61 78 2d 6c 65 76 65 6c 2a 0a 20 20 | ...upto.db::*debug-max-level*... |
| 1d20c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 74 69 6c | ...........................until |
| 1d20e0 | 20 28 65 71 20 28 64 62 3a 3a 67 65 74 2d 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 69 29 20 | .(eq.(db::get-frame-function.i). |
| 1d2100 | 0a 09 09 09 09 20 20 20 20 20 20 20 63 6c 3a 3a 2a 74 6f 70 2d 6c 65 76 65 6c 2a 29 0a 20 20 20 | ............cl::*top-level*).... |
| 1d2120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 | ..........................collec |
| 1d2140 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t............................... |
| 1d2160 | 20 28 6d 61 6b 65 2d 66 72 61 6d 65 20 0a 09 09 09 09 3a 66 75 6e 63 74 69 6f 6e 20 28 64 62 3a | .(make-frame......:function.(db: |
| 1d2180 | 3a 67 65 74 2d 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 69 29 0a 09 09 09 09 3a 61 64 64 72 | :get-frame-function.i).....:addr |
| 1d21a0 | 65 73 73 20 28 64 62 3a 3a 67 65 74 2d 66 72 61 6d 65 2d 61 64 64 72 65 73 73 20 69 29 29 29 29 | ess.(db::get-frame-address.i)))) |
| 1d21c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 | ..........................:key.# |
| 1d21e0 | 27 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c | 'frame-function))))).....(funcal |
| 1d2200 | 6c 20 66 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 70 | l.fn)))..(defimplementation.comp |
| 1d2220 | 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 6c 6f 6f | ute-backtrace.(start.end)...(loo |
| 1d2240 | 70 20 66 6f 72 20 66 20 69 6e 20 28 73 75 62 73 65 71 20 2a 73 74 61 63 6b 2d 74 72 61 63 65 2a | p.for.f.in.(subseq.*stack-trace* |
| 1d2260 | 20 73 74 61 72 74 20 28 6d 69 6e 20 65 6e 64 20 28 6c 65 6e 67 74 68 20 2a 73 74 61 63 6b 2d 74 | .start.(min.end.(length.*stack-t |
| 1d2280 | 72 61 63 65 2a 29 29 29 0a 09 63 6f 6c 6c 65 63 74 20 66 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | race*)))..collect.f))..(defimple |
| 1d22a0 | 6d 65 6e 74 61 74 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 73 74 72 | mentation.print-frame.(frame.str |
| 1d22c0 | 65 61 6d 29 0a 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 53 22 20 66 72 61 6d 65 | eam)...(format.stream."~S".frame |
| 1d22e0 | 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 74 2d 66 72 61 6d 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 | ))..(defun.get-frame-debug-info. |
| 1d2300 | 28 66 72 61 6d 65 29 0a 20 20 28 6f 72 20 28 66 72 61 6d 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 | (frame)...(or.(frame-debug-info. |
| 1d2320 | 66 72 61 6d 65 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 66 72 61 6d 65 2d 64 65 62 75 67 2d | frame).......(setf.(frame-debug- |
| 1d2340 | 69 6e 66 6f 20 66 72 61 6d 65 29 0a 09 20 20 20 20 28 64 62 3a 3a 70 72 65 70 61 72 65 2d 66 72 | info.frame)......(db::prepare-fr |
| 1d2360 | 61 6d 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 28 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 66 | ame-debug-info.(frame-function.f |
| 1d2380 | 72 61 6d 65 29 0a 09 09 09 09 09 20 20 28 66 72 61 6d 65 2d 61 64 64 72 65 73 73 20 66 72 61 6d | rame)........(frame-address.fram |
| 1d23a0 | 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 | e)))))..(defimplementation.frame |
| 1d23c0 | 2d 6c 6f 63 61 6c 73 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 2a 20 28 | -locals.(frame-number)...(let*.( |
| 1d23e0 | 28 66 72 61 6d 65 20 28 65 6c 74 20 2a 66 72 61 6d 65 2d 74 72 61 63 65 2a 20 66 72 61 6d 65 2d | (frame.(elt.*frame-trace*.frame- |
| 1d2400 | 6e 75 6d 62 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 66 6f 20 28 67 65 74 2d 66 72 61 | number))..........(info.(get-fra |
| 1d2420 | 6d 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 6c 65 74 20 | me-debug-info.frame))).....(let. |
| 1d2440 | 28 28 76 61 72 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 | ((var-list............(loop.for. |
| 1d2460 | 69 20 66 72 6f 6d 20 34 20 62 65 6c 6f 77 20 28 6c 65 6e 67 74 68 20 69 6e 66 6f 29 20 62 79 20 | i.from.4.below.(length.info).by. |
| 1d2480 | 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 6c 69 73 74 20 3a | 2...............collect.`(list.: |
| 1d24a0 | 6e 61 6d 65 20 27 2c 28 73 76 72 65 66 20 69 6e 66 6f 20 69 29 20 3a 69 64 20 30 0a 20 20 20 20 | name.',(svref.info.i).:id.0..... |
| 1d24c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 61 6c 75 65 20 | .........................:value. |
| 1d24e0 | 28 64 62 3a 3a 64 65 62 75 67 2d 66 69 6c 74 65 72 20 2c 28 73 76 72 65 66 20 69 6e 66 6f 20 69 | (db::debug-filter.,(svref.info.i |
| 1d2500 | 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 72 73 20 28 65 76 61 6c 2d 69 | )))))).......(let.((vars.(eval-i |
| 1d2520 | 6e 2d 66 72 61 6d 65 20 60 28 6c 69 73 74 20 2c 40 76 61 72 2d 6c 69 73 74 29 20 66 72 61 6d 65 | n-frame.`(list.,@var-list).frame |
| 1d2540 | 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 66 72 61 6d 65 2d | -number))).........(setf.(frame- |
| 1d2560 | 76 61 72 69 61 62 6c 65 73 20 66 72 61 6d 65 29 20 76 61 72 73 29 29 29 29 29 0a 0a 28 64 65 66 | variables.frame).vars)))))..(def |
| 1d2580 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 28 66 6f | implementation.eval-in-frame.(fo |
| 1d25a0 | 72 6d 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 | rm.frame-number)...(let.((frame. |
| 1d25c0 | 28 65 6c 74 20 2a 66 72 61 6d 65 2d 74 72 61 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 | (elt.*frame-trace*.frame-number) |
| 1d25e0 | 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6c 3a 3a 2a 63 6f 6d 70 69 6c 65 72 2d 65 6e 76 69 | )).....(let.((cl::*compiler-envi |
| 1d2600 | 72 6f 6e 6d 65 6e 74 2a 20 28 67 65 74 2d 66 72 61 6d 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 66 | ronment*.(get-frame-debug-info.f |
| 1d2620 | 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 28 65 76 61 6c 20 66 6f 72 6d 29 29 29 29 0a 0a 28 64 | rame))).......(eval.form))))..(d |
| 1d2640 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 | efimplementation.frame-var-value |
| 1d2660 | 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 76 61 72 29 0a 20 20 28 6c 65 74 20 28 28 76 61 72 | .(frame-number.var)...(let.((var |
| 1d2680 | 73 20 28 66 72 61 6d 65 2d 76 61 72 69 61 62 6c 65 73 20 28 65 6c 74 20 2a 66 72 61 6d 65 2d 74 | s.(frame-variables.(elt.*frame-t |
| 1d26a0 | 72 61 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e | race*.frame-number)))).....(when |
| 1d26c0 | 20 76 61 72 73 0a 20 20 20 20 20 20 28 73 65 63 6f 6e 64 20 28 65 6c 74 20 76 61 72 73 20 76 61 | .vars.......(second.(elt.vars.va |
| 1d26e0 | 72 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 | r)))))..(defimplementation.frame |
| 1d2700 | 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a | -source-location.(frame-number). |
| 1d2720 | 20 20 28 66 73 70 65 63 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f | ..(fspec-location.(frame-functio |
| 1d2740 | 6e 20 28 65 6c 74 20 2a 66 72 61 6d 65 2d 74 72 61 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 65 | n.(elt.*frame-trace*.frame-numbe |
| 1d2760 | 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 62 72 65 61 6b 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 | r))))..(defun.break.(&optional.( |
| 1d2780 | 66 6f 72 6d 61 74 2d 63 6f 6e 74 72 6f 6c 20 22 42 72 65 61 6b 22 29 20 26 72 65 73 74 20 66 6f | format-control."Break").&rest.fo |
| 1d27a0 | 72 6d 61 74 2d 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 28 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 | rmat-arguments)...(with-simple-r |
| 1d27c0 | 65 73 74 61 72 74 20 28 63 6f 6e 74 69 6e 75 65 20 22 52 65 74 75 72 6e 20 66 72 6f 6d 20 42 52 | estart.(continue."Return.from.BR |
| 1d27e0 | 45 41 4b 2e 22 29 0a 20 20 20 20 28 6c 65 74 20 28 29 3b 28 2a 64 65 62 75 67 67 65 72 2d 68 6f | EAK.").....(let.();(*debugger-ho |
| 1d2800 | 6f 6b 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 64 69 74 69 6f 6e | ok*.nil)).......(let.((condition |
| 1d2820 | 20 0a 09 20 20 20 20 20 28 6d 61 6b 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 27 73 69 6d 70 6c 65 2d | ........(make-condition.'simple- |
| 1d2840 | 63 6f 6e 64 69 74 69 6f 6e 0a 09 09 09 20 20 20 20 20 3a 66 6f 72 6d 61 74 2d 63 6f 6e 74 72 6f | condition.........:format-contro |
| 1d2860 | 6c 20 66 6f 72 6d 61 74 2d 63 6f 6e 74 72 6f 6c 0a 09 09 09 20 20 20 20 20 3a 66 6f 72 6d 61 74 | l.format-control.........:format |
| 1d2880 | 2d 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 6d 61 74 2d 61 72 67 75 6d 65 6e 74 73 29 29 29 0a 09 | -arguments.format-arguments))).. |
| 1d28a0 | 3b 3b 28 66 6f 72 6d 61 74 20 2a 64 65 62 75 67 2d 69 6f 2a 20 22 3b 3b 3b 20 55 73 65 72 20 62 | ;;(format.*debug-io*.";;;.User.b |
| 1d28c0 | 72 65 61 6b 3a 20 7e 41 7e 25 22 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 09 28 69 6e 76 6f 6b 65 2d | reak:.~A~%".condition)..(invoke- |
| 1d28e0 | 64 65 62 75 67 67 65 72 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 0a 20 20 6e 69 6c 29 0a 0a 3b | debugger.condition))))...nil)..; |
| 1d2900 | 3b 3b 20 53 6f 63 6b 65 74 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 0a 0a 28 64 65 66 69 6d 70 | ;;.Socket.communication..(defimp |
| 1d2920 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 28 68 6f 73 74 20 | lementation.create-socket.(host. |
| 1d2940 | 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 73 6f 63 6b 65 74 73 3a 73 74 | port.&key.backlog)...(sockets:st |
| 1d2960 | 61 72 74 2d 73 6f 63 6b 65 74 73 29 0a 20 20 28 73 6f 63 6b 65 74 73 3a 6d 61 6b 65 2d 73 65 72 | art-sockets)...(sockets:make-ser |
| 1d2980 | 76 65 72 2d 73 6f 63 6b 65 74 20 3a 68 6f 73 74 20 68 6f 73 74 20 3a 70 6f 72 74 20 70 6f 72 74 | ver-socket.:host.host.:port.port |
| 1d29a0 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 63 61 6c 2d 70 6f 72 | ))..(defimplementation.local-por |
| 1d29c0 | 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 70 6f 72 | t.(socket)...(sockets:socket-por |
| 1d29e0 | 74 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 | t.socket))..(defimplementation.c |
| 1d2a00 | 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 63 6c 6f 73 65 20 73 6f | lose-socket.(socket)...(close.so |
| 1d2a20 | 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 63 63 65 70 | cket))..(defimplementation.accep |
| 1d2a40 | 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6f 63 6b 65 74 0a 09 09 09 09 20 20 20 20 20 20 26 | t-connection.(socket...........& |
| 1d2a60 | 6b 65 79 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 62 75 66 66 65 72 69 6e 67 20 74 69 | key.external-format.buffering.ti |
| 1d2a80 | 6d 65 6f 75 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 62 75 66 66 65 72 | meout)...(declare.(ignore.buffer |
| 1d2aa0 | 69 6e 67 20 74 69 6d 65 6f 75 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 0a 20 20 | ing.timeout.external-format))... |
| 1d2ac0 | 28 73 6f 63 6b 65 74 73 3a 6d 61 6b 65 2d 73 6f 63 6b 65 74 2d 73 74 72 65 61 6d 20 28 73 6f 63 | (sockets:make-socket-stream.(soc |
| 1d2ae0 | 6b 65 74 73 3a 61 63 63 65 70 74 2d 73 6f 63 6b 65 74 20 73 6f 63 6b 65 74 29 29 29 0a 0a 3b 3b | kets:accept-socket.socket)))..;; |
| 1d2b00 | 3b 20 4d 69 73 63 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 65 66 65 | ;.Misc..(defimplementation.prefe |
| 1d2b20 | 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 28 29 0a 20 20 6e 69 | rred-communication-style.()...ni |
| 1d2b40 | 6c 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65 74 70 69 64 20 28 29 | l)..(defimplementation.getpid.() |
| 1d2b60 | 0a 20 20 63 63 6c 3a 2a 63 75 72 72 65 6e 74 2d 70 72 6f 63 65 73 73 2d 69 64 2a 29 0a 0a 28 64 | ...ccl:*current-process-id*)..(d |
| 1d2b80 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 | efimplementation.lisp-implementa |
| 1d2ba0 | 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 20 28 29 0a 20 20 22 63 6f 72 6d 61 6e 6c 69 73 70 22 | tion-type-name.()..."cormanlisp" |
| 1d2bc0 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 71 75 69 74 2d 6c 69 73 70 20 | )..(defimplementation.quit-lisp. |
| 1d2be0 | 28 29 0a 20 20 28 73 6f 63 6b 65 74 73 3a 73 74 6f 70 2d 73 6f 63 6b 65 74 73 29 0a 20 20 28 77 | ()...(sockets:stop-sockets)...(w |
| 1d2c00 | 69 6e 33 32 3a 65 78 69 74 70 72 6f 63 65 73 73 20 30 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | in32:exitprocess.0))..(defimplem |
| 1d2c20 | 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 | entation.set-default-directory.( |
| 1d2c40 | 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 73 65 74 66 20 28 63 63 6c 3a 63 75 72 72 65 6e 74 2d | directory)...(setf.(ccl:current- |
| 1d2c60 | 64 69 72 65 63 74 6f 72 79 29 20 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 64 69 72 65 63 74 6f | directory).directory)...(directo |
| 1d2c80 | 72 79 2d 6e 61 6d 65 73 74 72 69 6e 67 20 28 73 65 74 66 20 2a 64 65 66 61 75 6c 74 2d 70 61 74 | ry-namestring.(setf.*default-pat |
| 1d2ca0 | 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hname-defaults*................. |
| 1d2cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 75 65 6e 61 6d 65 20 28 6d 65 72 67 65 2d | ...............(truename.(merge- |
| 1d2ce0 | 70 61 74 68 6e 61 6d 65 73 20 64 69 72 65 63 74 6f 72 79 29 29 29 29 29 0a 0a 28 64 65 66 69 6d | pathnames.directory)))))..(defim |
| 1d2d00 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 | plementation.default-directory.( |
| 1d2d20 | 29 0a 20 20 28 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 73 74 72 69 6e 67 20 28 63 63 6c 3a 63 | )...(directory-namestring.(ccl:c |
| 1d2d40 | 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | urrent-directory)))..(defimpleme |
| 1d2d60 | 6e 74 61 74 69 6f 6e 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 28 66 6f 72 6d 20 26 6f | ntation.macroexpand-all.(form.&o |
| 1d2d80 | 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 | ptional.env)...(declare.(ignore. |
| 1d2da0 | 65 6e 76 29 29 0a 20 20 28 63 63 6c 3a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 66 6f 72 | env))...(ccl:macroexpand-all.for |
| 1d2dc0 | 6d 29 29 0a 0a 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 66 | m))..;;;.Documentation..(defun.f |
| 1d2de0 | 73 70 65 63 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 73 70 65 63 29 0a 20 20 28 77 68 65 6e 20 28 73 | spec-location.(fspec)...(when.(s |
| 1d2e00 | 79 6d 62 6f 6c 70 20 66 73 70 65 63 29 0a 20 20 20 20 28 73 65 74 71 20 66 73 70 65 63 20 28 73 | ymbolp.fspec).....(setq.fspec.(s |
| 1d2e20 | 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 66 73 70 65 63 29 29 29 0a 20 20 28 6c 65 74 20 28 | ymbol-function.fspec)))...(let.( |
| 1d2e40 | 28 66 69 6c 65 20 28 63 63 6c 3a 3a 66 75 6e 63 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 66 69 6c 65 | (file.(ccl::function-source-file |
| 1d2e60 | 20 66 73 70 65 63 29 29 29 0a 20 20 20 20 28 69 66 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 28 | .fspec))).....(if.file.........( |
| 1d2e80 | 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | handler-case.............(let.(( |
| 1d2ea0 | 74 72 75 65 6e 61 6d 65 20 28 74 72 75 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | truename.(truename.............. |
| 1d2ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 | ................(merge-pathnames |
| 1d2ee0 | 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .file........................... |
| 1d2f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 63 6c 3a 2a 63 6f 72 6d 61 6e 6c | ....................ccl:*cormanl |
| 1d2f20 | 69 73 70 2d 64 69 72 65 63 74 6f 72 79 2a 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | isp-directory*)))).............. |
| 1d2f40 | 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 6e 61 6d | .(make-location.(list.:file.(nam |
| 1d2f60 | 65 73 74 72 69 6e 67 20 74 72 75 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | estring.truename)).............. |
| 1d2f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 63 6c 3a 3a 66 75 6e 63 74 69 | ................(if.(ccl::functi |
| 1d2fa0 | 6f 6e 2d 73 6f 75 72 63 65 2d 6c 69 6e 65 20 66 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 | on-source-line.fspec)........... |
| 1d2fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 6c 69 | .......................(list.:li |
| 1d2fe0 | 6e 65 20 0a 09 09 09 09 20 20 20 20 20 20 20 28 31 2b 20 28 63 63 6c 3a 3a 66 75 6e 63 74 69 6f | ne.............(1+.(ccl::functio |
| 1d3000 | 6e 2d 73 6f 75 72 63 65 2d 6c 69 6e 65 20 66 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 | n-source-line.fspec))).......... |
| 1d3020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 | ........................(list.:f |
| 1d3040 | 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 0a 09 09 09 09 20 20 20 20 20 20 20 28 70 72 69 6e 63 2d | unction-name.............(princ- |
| 1d3060 | 74 6f 2d 73 74 72 69 6e 67 0a 09 09 09 09 09 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 73 | to-string......(function-name.fs |
| 1d3080 | 70 65 63 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 63 29 20 28 | pec))))))...........(error.(c).( |
| 1d30a0 | 6c 69 73 74 20 3a 65 72 72 6f 72 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 29 29 | list.:error.(princ-to-string.c)) |
| 1d30c0 | 29 29 0a 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 65 72 72 6f 72 20 28 66 6f 72 6d 61 74 20 | )).........(list.:error.(format. |
| 1d30e0 | 6e 69 6c 20 22 4e 6f 20 73 6f 75 72 63 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 76 61 69 6c | nil."No.source.information.avail |
| 1d3100 | 61 62 6c 65 20 66 6f 72 20 7e 53 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | able.for.~S".................... |
| 1d3120 | 20 20 20 20 20 20 20 20 20 20 66 73 70 65 63 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | ..........fspec)))))..(defimplem |
| 1d3140 | 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 | entation.find-definitions.(name) |
| 1d3160 | 0a 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 6e 61 6d 65 20 28 66 73 70 65 63 2d 6c 6f 63 61 74 | ...(list.(list.name.(fspec-locat |
| 1d3180 | 69 6f 6e 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ion.name))))..(defimplementation |
| 1d31a0 | 20 61 72 67 6c 69 73 74 20 28 6e 61 6d 65 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a | .arglist.(name)...(handler-case. |
| 1d31c0 | 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 | ......(cond.((and.(symbolp.name) |
| 1d31e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 | ...................(macro-functi |
| 1d3200 | 6f 6e 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 3a 6d 61 63 | on.name))..............(ccl::mac |
| 1d3220 | 72 6f 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 | ro-lambda-list.(symbol-function. |
| 1d3240 | 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 | name))).............(t.......... |
| 1d3260 | 20 20 20 20 28 77 68 65 6e 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | ....(when.(symbolp.name)........ |
| 1d3280 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 61 6d 65 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 | ........(setq.name.(symbol-funct |
| 1d32a0 | 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 | ion.name)))..............(if.(eq |
| 1d32c0 | 20 28 63 6c 61 73 73 2d 6f 66 20 6e 61 6d 65 29 20 63 6c 3a 3a 74 68 65 2d 63 6c 61 73 73 2d 73 | .(class-of.name).cl::the-class-s |
| 1d32e0 | 74 61 6e 64 61 72 64 2d 67 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 | tandard-gf)..................(ge |
| 1d3300 | 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 6e 61 6d 65 29 | neric-function-lambda-list.name) |
| 1d3320 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 63 6c 3a 66 75 6e 63 74 69 6f 6e 2d | ..................(ccl:function- |
| 1d3340 | 6c 61 6d 62 64 61 2d 6c 69 73 74 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 65 72 72 6f 72 20 | lambda-list.name)))).....(error. |
| 1d3360 | 28 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | ().:not-available)))..(defimplem |
| 1d3380 | 65 6e 74 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 66 6e 29 0a 20 20 28 68 | entation.function-name.(fn)...(h |
| 1d33a0 | 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 67 65 74 66 20 28 63 6c 3a 3a 66 75 6e 63 74 69 6f 6e 2d | andler-case.(getf.(cl::function- |
| 1d33c0 | 69 6e 66 6f 2d 6c 69 73 74 20 66 6e 29 20 27 63 6c 3a 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 | info-list.fn).'cl::function-name |
| 1d33e0 | 29 0a 20 20 20 20 28 65 72 72 6f 72 20 28 29 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | ).....(error.().nil)))..(defimpl |
| 1d3400 | 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 | ementation.describe-symbol-for-e |
| 1d3420 | 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 27 28 | macs.(symbol)...(let.((result.'( |
| 1d3440 | 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 64 6f 63 20 28 6b 69 6e 64 20 26 6f 70 74 69 6f | ))).....(flet.((doc.(kind.&optio |
| 1d3460 | 6e 61 6c 20 28 73 79 6d 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | nal.(sym.symbol))..............( |
| 1d3480 | 6f 72 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 79 6d 20 6b 69 6e 64 29 20 3a 6e 6f 74 | or.(documentation.sym.kind).:not |
| 1d34a0 | 2d 64 6f 63 75 6d 65 6e 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d | -documented))............(maybe- |
| 1d34c0 | 70 75 73 68 20 28 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 | push.(property.value)........... |
| 1d34e0 | 20 20 20 28 77 68 65 6e 20 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ...(when.value................(s |
| 1d3500 | 65 74 66 20 72 65 73 75 6c 74 20 28 6c 69 73 74 2a 20 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 | etf.result.(list*.property.value |
| 1d3520 | 20 72 65 73 75 6c 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 | .result))))).......(maybe-push.. |
| 1d3540 | 20 20 20 20 20 20 3a 76 61 72 69 61 62 6c 65 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 73 79 | ......:variable.(when.(boundp.sy |
| 1d3560 | 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 76 | mbol)....................(doc.'v |
| 1d3580 | 61 72 69 61 62 6c 65 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 | ariable))).......(maybe-push.... |
| 1d35a0 | 20 20 20 20 3a 66 75 6e 63 74 69 6f 6e 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f | ....:function.(if.(fboundp.symbo |
| 1d35c0 | 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 66 75 | l)......................(doc.'fu |
| 1d35e0 | 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 | nction))).......(maybe-push..... |
| 1d3600 | 20 20 20 3a 63 6c 61 73 73 20 28 69 66 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c | ...:class.(if.(find-class.symbol |
| 1d3620 | 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 63 6c | .nil)...................(doc.'cl |
| 1d3640 | 61 73 73 29 29 29 0a 20 20 20 20 20 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | ass))).......result)))..(defimpl |
| 1d3660 | 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 | ementation.describe-definition.( |
| 1d3680 | 73 79 6d 62 6f 6c 20 6e 61 6d 65 73 70 61 63 65 29 0a 20 20 28 65 63 61 73 65 20 6e 61 6d 65 73 | symbol.namespace)...(ecase.names |
| 1d36a0 | 70 61 63 65 0a 20 20 20 20 28 3a 76 61 72 69 61 62 6c 65 20 0a 20 20 20 20 20 28 64 65 73 63 72 | pace.....(:variable.......(descr |
| 1d36c0 | 69 62 65 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 28 28 3a 66 75 6e 63 74 69 6f 6e 20 3a 67 65 | ibe.symbol)).....((:function.:ge |
| 1d36e0 | 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 28 | neric-function)......(describe.( |
| 1d3700 | 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 3a | symbol-function.symbol))).....(: |
| 1d3720 | 63 6c 61 73 73 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 28 66 69 6e 64 2d 63 6c 61 73 73 | class......(describe.(find-class |
| 1d3740 | 20 73 79 6d 62 6f 6c 29 29 29 29 29 0a 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 72 20 0a 0a 28 64 65 | .symbol)))))..;;;.Compiler...(de |
| 1d3760 | 66 76 61 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 | fvar.*buffer-name*.nil).(defvar. |
| 1d3780 | 2a 62 75 66 66 65 72 2d 70 6f 73 69 74 69 6f 6e 2a 29 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 | *buffer-position*).(defvar.*buff |
| 1d37a0 | 65 72 2d 73 74 72 69 6e 67 2a 29 0a 28 64 65 66 76 61 72 20 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c | er-string*).(defvar.*compile-fil |
| 1d37c0 | 65 6e 61 6d 65 2a 20 6e 69 6c 29 0a 0a 3b 3b 20 46 49 58 4d 45 0a 28 64 65 66 69 6d 70 6c 65 6d | ename*.nil)..;;.FIXME.(defimplem |
| 1d37e0 | 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 | entation.call-with-compilation-h |
| 1d3800 | 6f 6f 6b 73 20 28 46 4e 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 65 72 72 6f | ooks.(FN)...(handler-bind.((erro |
| 1d3820 | 72 20 28 6c 61 6d 62 64 61 20 28 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.(lambda.(c)................... |
| 1d3840 | 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 | ........(signal.'compiler-condit |
| 1d3860 | 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion............................. |
| 1d3880 | 20 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 0a 20 20 20 20 | ......:original-condition.c..... |
| 1d38a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 | ..............................:s |
| 1d38c0 | 65 76 65 72 69 74 79 20 3a 77 61 72 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | everity.:warning................ |
| 1d38e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 65 73 73 61 67 65 20 28 66 6f 72 | ...................:message.(for |
| 1d3900 | 6d 61 74 20 6e 69 6c 20 22 7e 41 22 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mat.nil."~A".c)................. |
| 1d3920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 | ..................:location..... |
| 1d3940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | ..............................(c |
| 1d3960 | 6f 6e 64 20 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ond.(*buffer-name*.............. |
| 1d3980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b | ............................(mak |
| 1d39a0 | 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-location...................... |
| 1d39c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 62 75 66 66 | .....................(list.:buff |
| 1d39e0 | 65 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er.*buffer-name*)............... |
| 1d3a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | ............................(lis |
| 1d3a20 | 74 20 3a 6f 66 66 73 65 74 20 2a 62 75 66 66 65 72 2d 70 6f 73 69 74 69 6f 6e 2a 20 30 29 29 29 | t.:offset.*buffer-position*.0))) |
| 1d3a40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d3a60 | 20 20 20 20 20 20 20 20 20 28 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 6e 61 6d 65 2a 0a 20 20 20 | .........(*compile-filename*.... |
| 1d3a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d3aa0 | 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | ......(make-location............ |
| 1d3ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1d3ae0 | 6c 69 73 74 20 3a 66 69 6c 65 20 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 6e 61 6d 65 2a 29 0a 20 | list.:file.*compile-filename*).. |
| 1d3b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d3b20 | 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 31 29 29 29 0a 20 20 | .........(list.:position.1)))... |
| 1d3b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d3b60 | 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(t........................ |
| 1d3b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 65 72 72 6f 72 20 22 | ..................(list.:error." |
| 1d3ba0 | 4e 6f 20 6c 6f 63 61 74 69 6f 6e 22 29 29 29 29 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c | No.location"))))))).....(funcall |
| 1d3bc0 | 20 66 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b | .fn)))..(defimplementation.swank |
| 1d3be0 | 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 | -compile-file.(input-file.output |
| 1d3c00 | 2d 66 69 6c 65 20 0a 09 09 09 09 20 20 20 20 20 20 20 6c 6f 61 64 2d 70 20 65 78 74 65 72 6e 61 | -file.............load-p.externa |
| 1d3c20 | 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-format........................ |
| 1d3c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a 20 20 28 | ................&key.policy)...( |
| 1d3c60 | 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 | declare.(ignore.external-format. |
| 1d3c80 | 70 6f 6c 69 63 79 29 29 0a 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f | policy))...(with-compilation-hoo |
| 1d3ca0 | 6b 73 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 6e | ks.().....(let.((*buffer-name*.n |
| 1d3cc0 | 69 6c 29 0a 09 20 20 28 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 6e 61 6d 65 2a 20 69 6e 70 75 74 | il)....(*compile-filename*.input |
| 1d3ce0 | 2d 66 69 6c 65 29 29 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 | -file)).......(multiple-value-bi |
| 1d3d00 | 6e 64 20 28 6f 75 74 70 75 74 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 3f 20 66 61 69 6c 75 72 | nd.(output-file.warnings?.failur |
| 1d3d20 | 65 3f 29 0a 09 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 69 6e 70 75 74 2d 66 69 6c 65 20 | e?)....(compile-file.input-file. |
| 1d3d40 | 3a 6f 75 74 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 29 0a 09 28 76 61 6c 75 | :output-file.output-file)..(valu |
| 1d3d60 | 65 73 20 6f 75 74 70 75 74 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 3f 0a 09 09 28 6f 72 20 66 | es.output-file.warnings?...(or.f |
| 1d3d80 | 61 69 6c 75 72 65 3f 20 28 61 6e 64 20 6c 6f 61 64 2d 70 20 28 6c 6f 61 64 20 6f 75 74 70 75 74 | ailure?.(and.load-p.(load.output |
| 1d3da0 | 2d 66 69 6c 65 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | -file))))))))..(defimplementatio |
| 1d3dc0 | 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 | n.swank-compile-string.(string.& |
| 1d3de0 | 6b 65 79 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 | key.buffer.position.filename.... |
| 1d3e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d3e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 | .............line.column.policy) |
| 1d3e40 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 69 6c 65 6e 61 6d 65 20 6c 69 6e | ...(declare.(ignore.filename.lin |
| 1d3e60 | 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c | e.column.policy))...(with-compil |
| 1d3e80 | 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 | ation-hooks.().....(let.((*buffe |
| 1d3ea0 | 72 2d 6e 61 6d 65 2a 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 | r-name*.buffer)...........(*buff |
| 1d3ec0 | 65 72 2d 70 6f 73 69 74 69 6f 6e 2a 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | er-position*.position).......... |
| 1d3ee0 | 20 28 2a 62 75 66 66 65 72 2d 73 74 72 69 6e 67 2a 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 | .(*buffer-string*.string))...... |
| 1d3f00 | 20 28 66 75 6e 63 61 6c 6c 20 28 63 6f 6d 70 69 6c 65 20 6e 69 6c 20 28 72 65 61 64 2d 66 72 6f | .(funcall.(compile.nil.(read-fro |
| 1d3f20 | 6d 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m-string........................ |
| 1d3f40 | 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 28 7e 53 20 28 29 20 7e 41 29 22 20 27 | ......(format.nil."(~S.().~A)".' |
| 1d3f60 | 6c 61 6d 62 64 61 20 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 74 29 29 29 0a 0a 3b 3b | lambda.string)))).......t)))..;; |
| 1d3f80 | 3b 3b 20 49 6e 73 70 65 63 74 69 6e 67 0a 0a 3b 3b 20 48 61 63 6b 20 74 6f 20 6d 61 6b 65 20 73 | ;;.Inspecting..;;.Hack.to.make.s |
| 1d3fa0 | 77 61 6e 6b 2e 6c 69 73 70 20 6c 6f 61 64 2c 20 61 74 20 6c 65 61 73 74 0a 28 64 65 66 63 6c 61 | wank.lisp.load,.at.least.(defcla |
| 1d3fc0 | 73 73 20 66 69 6c 65 2d 73 74 72 65 61 6d 20 28 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 61 | ss.file-stream.())..(defun.comma |
| 1d3fe0 | 2d 73 65 70 61 72 61 74 65 64 20 28 6c 69 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 28 63 61 6c 6c | -separated.(list.&optional.(call |
| 1d4000 | 62 61 63 6b 20 28 6c 61 6d 62 64 61 20 28 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | back.(lambda.(v)................ |
| 1d4020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d4040 | 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 76 29 29 29 29 0a 20 20 28 62 75 74 6c 61 73 74 20 28 | ....`(:value.,v))))...(butlast.( |
| 1d4060 | 6c 6f 6f 70 20 66 6f 72 20 65 20 69 6e 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | loop.for.e.in.list.............. |
| 1d4080 | 20 63 6f 6c 6c 65 63 74 20 28 66 75 6e 63 61 6c 6c 20 63 61 6c 6c 62 61 63 6b 20 65 29 0a 20 20 | .collect.(funcall.callback.e)... |
| 1d40a0 | 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 22 2c 20 22 29 29 29 0a 0a 28 64 65 | ............collect.",.")))..(de |
| 1d40c0 | 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 63 6c 61 73 73 20 73 74 | fmethod.emacs-inspect.((class.st |
| 1d40e0 | 61 6e 64 61 72 64 2d 63 6c 61 73 73 29 29 0a 20 20 60 28 22 4e 61 6d 65 3a 20 22 20 0a 20 20 20 | andard-class))...`("Name:."..... |
| 1d4100 | 20 28 3a 76 61 6c 75 65 20 2c 28 63 6c 61 73 73 2d 6e 61 6d 65 20 63 6c 61 73 73 29 29 0a 20 20 | .(:value.,(class-name.class))... |
| 1d4120 | 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 22 53 75 70 65 72 20 63 6c 61 73 73 65 73 3a | ..(:newline)....."Super.classes: |
| 1d4140 | 20 22 0a 20 20 20 20 2c 40 28 63 6f 6d 6d 61 2d 73 65 70 61 72 61 74 65 64 20 28 73 77 61 6e 6b | .".....,@(comma-separated.(swank |
| 1d4160 | 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 75 70 65 72 63 6c 61 73 73 65 73 20 63 | -mop:class-direct-superclasses.c |
| 1d4180 | 6c 61 73 73 29 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 22 44 69 72 65 63 | lass)).....(:newline)....."Direc |
| 1d41a0 | 74 20 53 6c 6f 74 73 3a 20 22 0a 20 20 20 20 2c 40 28 63 6f 6d 6d 61 2d 73 65 70 61 72 61 74 65 | t.Slots:.".....,@(comma-separate |
| 1d41c0 | 64 0a 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 | d........(swank-mop:class-direct |
| 1d41e0 | 2d 73 6c 6f 74 73 20 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 6c | -slots.class)........(lambda.(sl |
| 1d4200 | 6f 74 29 0a 09 20 60 28 3a 76 61 6c 75 65 20 2c 73 6c 6f 74 20 0a 09 09 20 20 2c 28 70 72 69 6e | ot)...`(:value.,slot......,(prin |
| 1d4220 | 63 2d 74 6f 2d 73 74 72 69 6e 67 20 0a 09 09 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c | c-to-string........(swank-mop:sl |
| 1d4240 | 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 29 29 29 29 29 0a 20 20 20 | ot-definition-name.slot))))).... |
| 1d4260 | 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 22 45 66 66 65 63 74 69 76 65 20 53 6c 6f 74 73 | .(:newline)....."Effective.Slots |
| 1d4280 | 3a 20 22 0a 20 20 20 20 2c 40 28 69 66 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 66 | :.".....,@(if.(swank-mop:class-f |
| 1d42a0 | 69 6e 61 6c 69 7a 65 64 2d 70 20 63 6c 61 73 73 29 0a 09 20 20 28 63 6f 6d 6d 61 2d 73 65 70 61 | inalized-p.class)....(comma-sepa |
| 1d42c0 | 72 61 74 65 64 0a 09 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 73 6c 6f 74 73 | rated.....(swank-mop:class-slots |
| 1d42e0 | 20 63 6c 61 73 73 29 0a 09 20 20 20 28 6c 61 6d 62 64 61 20 28 73 6c 6f 74 29 0a 09 20 20 20 20 | .class).....(lambda.(slot)...... |
| 1d4300 | 20 60 28 3a 76 61 6c 75 65 20 2c 73 6c 6f 74 20 2c 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e | .`(:value.,slot.,(princ-to-strin |
| 1d4320 | 67 0a 09 09 09 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e | g..........(swank-mop:slot-defin |
| 1d4340 | 69 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 29 29 29 29 29 0a 09 20 20 27 28 22 23 3c 4e 2f 41 | ition-name.slot)))))....'("#<N/A |
| 1d4360 | 20 28 63 6c 61 73 73 20 6e 6f 74 20 66 69 6e 61 6c 69 7a 65 64 29 3e 22 29 29 0a 20 20 20 20 28 | .(class.not.finalized)>")).....( |
| 1d4380 | 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 2c 40 28 77 68 65 6e 20 28 64 6f 63 75 6d 65 6e 74 61 | :newline).....,@(when.(documenta |
| 1d43a0 | 74 69 6f 6e 20 63 6c 61 73 73 20 74 29 0a 09 20 20 20 20 60 28 22 44 6f 63 75 6d 65 6e 74 61 74 | tion.class.t)......`("Documentat |
| 1d43c0 | 69 6f 6e 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 20 2c 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | ion:".(:newline).,(documentation |
| 1d43e0 | 20 63 6c 61 73 73 20 74 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 22 53 75 62 20 | .class.t).(:newline)))....."Sub. |
| 1d4400 | 63 6c 61 73 73 65 73 3a 20 22 0a 20 20 20 20 2c 40 28 63 6f 6d 6d 61 2d 73 65 70 61 72 61 74 65 | classes:.".....,@(comma-separate |
| 1d4420 | 64 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 75 62 63 6c 61 | d.(swank-mop:class-direct-subcla |
| 1d4440 | 73 73 65 73 20 63 6c 61 73 73 29 0a 09 09 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 75 | sses.class)..........(lambda.(su |
| 1d4460 | 62 29 0a 09 09 09 20 60 28 3a 76 61 6c 75 65 20 2c 73 75 62 20 2c 28 70 72 69 6e 63 2d 74 6f 2d | b).....`(:value.,sub.,(princ-to- |
| 1d4480 | 73 74 72 69 6e 67 20 28 63 6c 61 73 73 2d 6e 61 6d 65 20 73 75 62 29 29 29 29 29 0a 20 20 20 20 | string.(class-name.sub)))))..... |
| 1d44a0 | 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 22 50 72 65 63 65 64 65 6e 63 65 20 4c 69 73 74 3a | (:newline)....."Precedence.List: |
| 1d44c0 | 20 22 0a 20 20 20 20 2c 40 28 69 66 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 66 69 | .".....,@(if.(swank-mop:class-fi |
| 1d44e0 | 6e 61 6c 69 7a 65 64 2d 70 20 63 6c 61 73 73 29 0a 09 20 20 28 63 6f 6d 6d 61 2d 73 65 70 61 72 | nalized-p.class)....(comma-separ |
| 1d4500 | 61 74 65 64 20 0a 09 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 70 72 65 63 65 | ated......(swank-mop:class-prece |
| 1d4520 | 64 65 6e 63 65 2d 6c 69 73 74 20 63 6c 61 73 73 29 0a 09 20 20 20 28 6c 61 6d 62 64 61 20 28 63 | dence-list.class).....(lambda.(c |
| 1d4540 | 6c 61 73 73 29 0a 09 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 63 6c 61 73 73 20 0a 09 09 20 | lass).......`(:value.,class..... |
| 1d4560 | 20 20 20 20 20 2c 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 28 63 6c 61 73 73 2d 6e 61 | .....,(princ-to-string.(class-na |
| 1d4580 | 6d 65 20 63 6c 61 73 73 29 29 29 29 29 0a 09 20 20 27 28 22 23 3c 4e 2f 41 20 28 63 6c 61 73 73 | me.class)))))....'("#<N/A.(class |
| 1d45a0 | 20 6e 6f 74 20 66 69 6e 61 6c 69 7a 65 64 29 3e 22 29 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e | .not.finalized)>")).....(:newlin |
| 1d45c0 | 65 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 | e)))..(defmethod.emacs-inspect.( |
| 1d45e0 | 28 73 6c 6f 74 20 63 6f 6e 73 29 29 0a 20 20 3b 3b 20 49 6e 73 70 65 63 74 73 20 73 6c 6f 74 20 | (slot.cons))...;;.Inspects.slot. |
| 1d4600 | 64 65 66 69 6e 69 74 69 6f 6e 73 0a 20 20 28 69 66 20 28 65 71 20 28 63 61 72 20 73 6c 6f 74 29 | definitions...(if.(eq.(car.slot) |
| 1d4620 | 20 3a 6e 61 6d 65 29 0a 20 20 20 20 20 20 60 28 22 4e 61 6d 65 3a 20 22 20 28 3a 76 61 6c 75 65 | .:name).......`("Name:.".(:value |
| 1d4640 | 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d | .,(swank-mop:slot-definition-nam |
| 1d4660 | 65 20 73 6c 6f 74 29 29 0a 09 09 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 09 09 20 2c 40 28 77 68 65 | e.slot))....(:newline)....,@(whe |
| 1d4680 | 6e 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 | n.(swank-mop:slot-definition-doc |
| 1d46a0 | 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 6f 74 29 0a 09 09 09 20 60 28 22 44 6f 63 75 6d 65 6e 74 | umentation.slot).....`("Document |
| 1d46c0 | 61 74 69 6f 6e 3a 22 20 20 0a 09 09 09 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 09 09 09 20 20 | ation:".........(:newline)...... |
| 1d46e0 | 20 28 3a 76 61 6c 75 65 20 0a 09 09 09 20 20 20 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f | .(:value.........,(swank-mop:slo |
| 1d4700 | 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 6f 74 29 | t-definition-documentation.slot) |
| 1d4720 | 29 0a 09 09 09 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 09 09 20 22 49 6e 69 74 20 61 72 | ).......(:newline)))...."Init.ar |
| 1d4740 | 67 73 3a 20 22 20 28 3a 76 61 6c 75 65 20 0a 09 09 09 09 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 | gs:.".(:value......,(swank-mop:s |
| 1d4760 | 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 74 61 72 67 73 20 73 6c 6f 74 29 29 0a 09 | lot-definition-initargs.slot)).. |
| 1d4780 | 09 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 09 09 20 22 49 6e 69 74 20 66 6f 72 6d 3a 20 22 0a 09 09 | ..(:newline)...."Init.form:."... |
| 1d47a0 | 20 2c 28 69 66 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e | .,(if.(swank-mop:slot-definition |
| 1d47c0 | 2d 69 6e 69 74 66 75 6e 63 74 69 6f 6e 20 73 6c 6f 74 29 0a 09 09 20 20 20 20 20 20 60 28 3a 76 | -initfunction.slot).........`(:v |
| 1d47e0 | 61 6c 75 65 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e | alue.,(swank-mop:slot-definition |
| 1d4800 | 2d 69 6e 69 74 66 6f 72 6d 20 73 6c 6f 74 29 29 0a 09 09 20 20 20 20 20 20 22 23 3c 75 6e 73 70 | -initform.slot))........."#<unsp |
| 1d4820 | 65 63 69 66 69 65 64 3e 22 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 09 09 20 20 20 20 20 20 22 49 | ecified>").(:newline)........."I |
| 1d4840 | 6e 69 74 20 66 75 6e 63 74 69 6f 6e 3a 20 22 20 0a 09 09 20 20 20 20 20 20 28 3a 76 61 6c 75 65 | nit.function:."..........(:value |
| 1d4860 | 20 2c 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 | .,(swank-mop:slot-definition-ini |
| 1d4880 | 74 66 75 6e 63 74 69 6f 6e 20 73 6c 6f 74 29 29 0a 09 09 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 | tfunction.slot)).........(:newli |
| 1d48a0 | 6e 65 29 29 0a 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 29 0a | ne)).......(call-next-method))). |
| 1d48c0 | 20 20 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 70 61 | ...(defmethod.emacs-inspect.((pa |
| 1d48e0 | 74 68 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 73 3a 3a 70 61 74 68 6e 61 6d 65 2d 69 6e 74 65 72 | thname.pathnames::pathname-inter |
| 1d4900 | 6e 61 6c 29 29 0a 20 20 28 6c 69 73 74 2a 20 20 28 69 66 20 28 77 69 6c 64 2d 70 61 74 68 6e 61 | nal))...(list*..(if.(wild-pathna |
| 1d4920 | 6d 65 2d 70 20 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 41 20 | me-p.pathname)..............."A. |
| 1d4940 | 77 69 6c 64 20 70 61 74 68 6e 61 6d 65 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 41 | wild.pathname."..............."A |
| 1d4960 | 20 70 61 74 68 6e 61 6d 65 2e 22 29 0a 09 20 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 | .pathname.")....'(:newline)..... |
| 1d4980 | 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a | ......(append.(label-value-line* |
| 1d49a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 4e 61 6d 65 73 74 72 69 6e 67 | ....................("Namestring |
| 1d49c0 | 22 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 | ".(namestring.pathname))........ |
| 1d49e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 22 48 6f 73 74 22 20 20 20 20 20 20 20 28 70 61 74 68 6e | ............("Host".......(pathn |
| 1d4a00 | 61 6d 65 2d 68 6f 73 74 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ame-host.pathname))............. |
| 1d4a20 | 20 20 20 20 20 20 20 28 22 44 65 76 69 63 65 22 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 64 | .......("Device".....(pathname-d |
| 1d4a40 | 65 76 69 63 65 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | evice.pathname))................ |
| 1d4a60 | 20 20 20 20 28 22 44 69 72 65 63 74 6f 72 79 22 20 20 28 70 61 74 68 6e 61 6d 65 2d 64 69 72 65 | ....("Directory"..(pathname-dire |
| 1d4a80 | 63 74 6f 72 79 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ctory.pathname))................ |
| 1d4aa0 | 20 20 20 20 28 22 4e 61 6d 65 22 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 | ....("Name".......(pathname-name |
| 1d4ac0 | 20 70 61 74 68 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .pathname))....................( |
| 1d4ae0 | 22 54 79 70 65 22 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 20 70 61 74 68 | "Type".......(pathname-type.path |
| 1d4b00 | 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 56 65 72 73 | name))....................("Vers |
| 1d4b20 | 69 6f 6e 22 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 76 65 72 73 69 6f 6e 20 70 61 74 68 6e 61 | ion"....(pathname-version.pathna |
| 1d4b40 | 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 | me)))...................(unless. |
| 1d4b60 | 28 6f 72 20 28 77 69 6c 64 2d 70 61 74 68 6e 61 6d 65 2d 70 20 70 61 74 68 6e 61 6d 65 29 0a 20 | (or.(wild-pathname-p.pathname).. |
| 1d4b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f | .............................(no |
| 1d4ba0 | 74 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 70 61 74 68 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 | t.(probe-file.pathname)))....... |
| 1d4bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 | ..............(label-value-line. |
| 1d4be0 | 22 54 72 75 65 6e 61 6d 65 22 20 28 74 72 75 65 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 29 29 29 | "Truename".(truename.pathname))) |
| 1d4c00 | 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 | )))..(defmethod.emacs-inspect.(( |
| 1d4c20 | 6f 20 74 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 63 6c 3a 3a 73 74 72 75 63 74 75 72 65 70 20 6f | o.t))...(cond.((cl::structurep.o |
| 1d4c40 | 29 20 28 69 6e 73 70 65 63 74 2d 73 74 72 75 63 74 75 72 65 20 6f 29 29 0a 09 28 74 20 28 63 61 | ).(inspect-structure.o))..(t.(ca |
| 1d4c60 | 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 70 65 | ll-next-method))))..(defun.inspe |
| 1d4c80 | 63 74 2d 73 74 72 75 63 74 75 72 65 20 28 6f 29 0a 20 20 20 28 6c 65 74 2a 20 28 28 74 65 6d 70 | ct-structure.(o)....(let*.((temp |
| 1d4ca0 | 6c 61 74 65 20 28 63 6c 3a 3a 75 72 65 66 20 6f 20 31 29 29 0a 09 20 20 28 6e 75 6d 2d 73 6c 6f | late.(cl::uref.o.1))....(num-slo |
| 1d4cc0 | 74 73 20 28 63 6c 3a 3a 73 74 72 75 63 74 2d 74 65 6d 70 6c 61 74 65 2d 6e 75 6d 2d 73 6c 6f 74 | ts.(cl::struct-template-num-slot |
| 1d4ce0 | 73 20 74 65 6d 70 6c 61 74 65 29 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 79 6d 62 6f | s.template)))......(cond.((symbo |
| 1d4d00 | 6c 70 20 74 65 6d 70 6c 61 74 65 29 0a 09 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 62 65 | lp.template)......(loop.for.i.be |
| 1d4d20 | 6c 6f 77 20 6e 75 6d 2d 73 6c 6f 74 73 0a 09 09 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d | low.num-slots.....append.(label- |
| 1d4d40 | 76 61 6c 75 65 2d 6c 69 6e 65 20 69 20 28 63 6c 3a 3a 75 72 65 66 20 6f 20 28 2b 20 32 20 69 29 | value-line.i.(cl::uref.o.(+.2.i) |
| 1d4d60 | 29 29 29 29 0a 09 20 20 20 28 74 0a 09 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 62 65 6c | )))).....(t......(loop.for.i.bel |
| 1d4d80 | 6f 77 20 6e 75 6d 2d 73 6c 6f 74 73 0a 09 09 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 | ow.num-slots.....append.(label-v |
| 1d4da0 | 61 6c 75 65 2d 6c 69 6e 65 20 28 65 6c 74 20 74 65 6d 70 6c 61 74 65 20 28 2b 20 36 20 28 2a 20 | alue-line.(elt.template.(+.6.(*. |
| 1d4dc0 | 69 20 35 29 29 29 0a 09 09 09 09 09 20 20 20 28 63 6c 3a 3a 75 72 65 66 20 6f 20 28 2b 20 32 20 | i.5))).........(cl::uref.o.(+.2. |
| 1d4de0 | 69 29 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 54 68 72 65 61 64 73 0a 0a 28 72 65 71 75 69 | i))))))))....;;;.Threads..(requi |
| 1d4e00 | 72 65 20 27 74 68 72 65 61 64 73 29 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 6d 61 69 6c 62 6f | re.'threads)..(defstruct.(mailbo |
| 1d4e20 | 78 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 6d 61 69 6c 62 6f 78 2e 29 29 20 0a 20 20 74 68 72 65 | x.(:conc-name.mailbox.))....thre |
| 1d4e40 | 61 64 0a 20 20 28 6c 6f 63 6b 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 74 68 72 65 61 | ad...(lock.(make-instance.'threa |
| 1d4e60 | 64 73 3a 63 72 69 74 69 63 61 6c 2d 73 65 63 74 69 6f 6e 29 29 0a 20 20 28 71 75 65 75 65 20 27 | ds:critical-section))...(queue.' |
| 1d4e80 | 28 29 20 3a 74 79 70 65 20 6c 69 73 74 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 6d 61 69 6c 62 6f | ().:type.list))..(defvar.*mailbo |
| 1d4ea0 | 78 2d 6c 6f 63 6b 2a 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 74 68 72 65 61 64 73 3a | x-lock*.(make-instance.'threads: |
| 1d4ec0 | 63 72 69 74 69 63 61 6c 2d 73 65 63 74 69 6f 6e 29 29 0a 28 64 65 66 76 61 72 20 2a 6d 61 69 6c | critical-section)).(defvar.*mail |
| 1d4ee0 | 62 6f 78 65 73 2a 20 28 6c 69 73 74 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 6c | boxes*.(list))..(defmacro.with-l |
| 1d4f00 | 6f 63 6b 20 20 28 6c 6f 63 6b 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 60 28 74 68 72 65 61 | ock..(lock.&body.body)...`(threa |
| 1d4f20 | 64 73 3a 77 69 74 68 2d 73 79 6e 63 68 72 6f 6e 69 7a 61 74 69 6f 6e 20 28 74 68 72 65 61 64 73 | ds:with-synchronization.(threads |
| 1d4f40 | 3a 63 73 20 2c 6c 6f 63 6b 29 0a 20 20 20 20 2c 40 62 6f 64 79 29 29 0a 0a 28 64 65 66 69 6d 70 | :cs.,lock).....,@body))..(defimp |
| 1d4f60 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 70 61 77 6e 20 28 66 75 6e 20 26 6b 65 79 20 6e 61 6d 65 | lementation.spawn.(fun.&key.name |
| 1d4f80 | 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6e 61 6d 65 29 29 0a 20 20 28 74 | )...(declare.(ignore.name))...(t |
| 1d4fa0 | 68 3a 63 72 65 61 74 65 2d 74 68 72 65 61 64 20 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 | h:create-thread.....(lambda.().. |
| 1d4fc0 | 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 73 65 72 69 6f 75 73 2d 63 6f 6e 64 | ....(handler-bind.((serious-cond |
| 1d4fe0 | 69 74 69 6f 6e 20 23 27 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 29 29 0a 20 20 20 20 20 20 | ition.#'invoke-debugger))....... |
| 1d5000 | 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 29 0a 09 | .(unwind-protect.(funcall.fun).. |
| 1d5020 | 20 28 77 69 74 68 2d 6c 6f 63 6b 20 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 0a 09 20 20 20 28 | .(with-lock.*mailbox-lock*.....( |
| 1d5040 | 73 65 74 71 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 20 28 72 65 6d 6f 76 65 20 63 6f 72 6d 61 6e 6c | setq.*mailboxes*.(remove.cormanl |
| 1d5060 | 69 73 70 3a 2a 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 2a 0a 09 09 09 09 20 20 20 20 | isp:*current-thread-id*......... |
| 1d5080 | 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 20 3a 6b 65 79 20 23 27 6d 61 69 6c 62 6f 78 2e 74 68 72 65 | .*mailboxes*.:key.#'mailbox.thre |
| 1d50a0 | 61 64 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 | ad))))))))..(defimplementation.t |
| 1d50c0 | 68 72 65 61 64 2d 69 64 20 28 74 68 72 65 61 64 29 0a 20 20 74 68 72 65 61 64 29 0a 0a 28 64 65 | hread-id.(thread)...thread)..(de |
| 1d50e0 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 74 68 72 65 61 64 20 28 74 68 72 | fimplementation.find-thread.(thr |
| 1d5100 | 65 61 64 29 0a 20 20 28 69 66 20 28 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 74 68 72 65 61 | ead)...(if.(thread-alive-p.threa |
| 1d5120 | 64 29 0a 20 20 20 20 20 20 74 68 72 65 61 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | d).......thread))..(defimplement |
| 1d5140 | 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 28 74 68 72 65 61 64 29 0a 20 20 | ation.thread-alive-p.(thread)... |
| 1d5160 | 28 69 66 20 28 74 68 72 65 61 64 73 3a 74 68 72 65 61 64 2d 68 61 6e 64 6c 65 20 74 68 72 65 61 | (if.(threads:thread-handle.threa |
| 1d5180 | 64 29 20 74 20 6e 69 6c 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 | d).t.nil))..(defimplementation.c |
| 1d51a0 | 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 63 6f 72 6d 61 6e 6c 69 73 70 3a 2a 63 | urrent-thread.()...cormanlisp:*c |
| 1d51c0 | 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 2a 29 0a 0a 3b 3b 20 58 58 58 20 69 6d 70 6c 65 | urrent-thread-id*)..;;.XXX.imple |
| 1d51e0 | 6d 65 6e 74 20 69 74 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 6c 6c 2d 74 | ment.it.(defimplementation.all-t |
| 1d5200 | 68 72 65 61 64 73 20 28 29 0a 20 20 27 28 29 29 0a 0a 3b 3b 20 58 58 58 20 73 6f 6d 65 74 68 69 | hreads.()...'())..;;.XXX.somethi |
| 1d5220 | 6e 67 20 68 65 72 65 20 69 73 20 62 72 6f 6b 65 6e 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | ng.here.is.broken.(defimplementa |
| 1d5240 | 74 69 6f 6e 20 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 28 74 68 72 | tion.kill-thread.(thread)...(thr |
| 1d5260 | 65 61 64 73 3a 74 65 72 6d 69 6e 61 74 65 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 20 27 6b 69 | eads:terminate-thread.thread.'ki |
| 1d5280 | 6c 6c 65 64 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c 62 6f 78 20 28 74 68 72 65 61 64 29 0a | lled))..(defun.mailbox.(thread). |
| 1d52a0 | 20 20 28 77 69 74 68 2d 6c 6f 63 6b 20 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 0a 20 20 20 20 | ..(with-lock.*mailbox-lock*..... |
| 1d52c0 | 28 6f 72 20 28 66 69 6e 64 20 74 68 72 65 61 64 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 20 3a 6b 65 | (or.(find.thread.*mailboxes*.:ke |
| 1d52e0 | 79 20 23 27 6d 61 69 6c 62 6f 78 2e 74 68 72 65 61 64 29 0a 09 28 6c 65 74 20 28 28 6d 62 20 28 | y.#'mailbox.thread)..(let.((mb.( |
| 1d5300 | 6d 61 6b 65 2d 6d 61 69 6c 62 6f 78 20 3a 74 68 72 65 61 64 20 74 68 72 65 61 64 29 29 29 0a 09 | make-mailbox.:thread.thread))).. |
| 1d5320 | 20 20 28 70 75 73 68 20 6d 62 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 29 0a 09 20 20 6d 62 29 29 29 | ..(push.mb.*mailboxes*)....mb))) |
| 1d5340 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 6e 64 20 28 74 68 72 65 | )..(defimplementation.send.(thre |
| 1d5360 | 61 64 20 6d 65 73 73 61 67 65 29 0a 20 20 28 6c 65 74 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 | ad.message)...(let.((mbox.(mailb |
| 1d5380 | 6f 78 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 6c 6f 63 6b 20 28 6d 61 69 | ox.thread))).....(with-lock.(mai |
| 1d53a0 | 6c 62 6f 78 2e 6c 6f 63 6b 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 | lbox.lock.mbox).......(setf.(mai |
| 1d53c0 | 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 0a 09 20 20 20 20 28 6e 63 6f 6e 63 20 28 6d 61 | lbox.queue.mbox)......(nconc.(ma |
| 1d53e0 | 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6c 69 73 74 20 6d 65 73 73 61 67 65 29 | ilbox.queue.mbox).(list.message) |
| 1d5400 | 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 69 76 | )))))..(defimplementation.receiv |
| 1d5420 | 65 20 28 29 0a 20 20 28 6c 65 74 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 63 6f 72 6d | e.()...(let.((mbox.(mailbox.corm |
| 1d5440 | 61 6e 6c 69 73 70 3a 2a 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 2a 29 29 29 0a 20 20 | anlisp:*current-thread-id*)))... |
| 1d5460 | 20 20 28 6c 6f 6f 70 20 0a 20 20 20 20 20 28 77 69 74 68 2d 6c 6f 63 6b 20 28 6d 61 69 6c 62 6f | ..(loop.......(with-lock.(mailbo |
| 1d5480 | 78 2e 6c 6f 63 6b 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 61 69 6c 62 | x.lock.mbox)........(when.(mailb |
| 1d54a0 | 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 0a 09 20 28 72 65 74 75 72 6e 20 28 70 6f 70 20 28 6d | ox.queue.mbox)...(return.(pop.(m |
| 1d54c0 | 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 29 29 29 29 0a 20 20 20 20 20 28 73 6c 65 | ailbox.queue.mbox)))))......(sle |
| 1d54e0 | 65 70 20 30 2e 31 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 54 68 69 73 20 69 73 20 70 72 6f 62 61 62 | ep.0.1))))....;;;.This.is.probab |
| 1d5500 | 6c 79 20 6e 6f 74 20 67 6f 6f 64 2c 20 62 75 74 20 69 74 20 57 46 4d 0a 28 69 6e 2d 70 61 63 6b | ly.not.good,.but.it.WFM.(in-pack |
| 1d5520 | 61 67 65 20 3a 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 29 0a 0a 28 64 65 66 76 61 72 20 2a 6f 6c 64 2d | age.:common-lisp)..(defvar.*old- |
| 1d5540 | 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2a 20 23 27 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 29 0a | documentation*.#'documentation). |
| 1d5560 | 28 64 65 66 75 6e 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 28 74 68 69 6e 67 20 26 6f 70 74 | (defun.documentation.(thing.&opt |
| 1d5580 | 69 6f 6e 61 6c 20 28 74 79 70 65 20 27 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 69 66 20 28 73 | ional.(type.'function))...(if.(s |
| 1d55a0 | 79 6d 62 6f 6c 70 20 74 68 69 6e 67 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 2a 6f 6c | ymbolp.thing).......(funcall.*ol |
| 1d55c0 | 64 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2a 20 74 68 69 6e 67 20 74 79 70 65 29 0a 20 20 20 | d-documentation*.thing.type).... |
| 1d55e0 | 20 20 20 28 76 61 6c 75 65 73 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 70 72 69 6e 74 2d | ...(values)))..(defmethod.print- |
| 1d5600 | 6f 62 6a 65 63 74 20 28 28 72 65 73 74 61 72 74 20 72 65 73 74 61 72 74 29 20 73 74 72 65 61 6d | object.((restart.restart).stream |
| 1d5620 | 29 0a 20 20 28 69 66 20 28 6f 72 20 2a 70 72 69 6e 74 2d 65 73 63 61 70 65 2a 0a 20 20 20 20 20 | )...(if.(or.*print-escape*...... |
| 1d5640 | 20 20 20 20 20 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 29 0a 20 20 20 20 20 20 28 70 72 | .....*print-readably*).......(pr |
| 1d5660 | 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 20 28 72 65 73 74 61 72 74 20 73 | int-unreadable-object.(restart.s |
| 1d5680 | 74 72 65 61 6d 20 3a 74 79 70 65 20 74 20 3a 69 64 65 6e 74 69 74 79 20 74 29 0a 20 20 20 20 20 | tream.:type.t.:identity.t)...... |
| 1d56a0 | 20 20 20 28 70 72 69 6e 63 20 28 72 65 73 74 61 72 74 2d 6e 61 6d 65 20 72 65 73 74 61 72 74 29 | ...(princ.(restart-name.restart) |
| 1d56c0 | 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 75 6e 63 74 69 6f 6e 70 | .stream)).......(when.(functionp |
| 1d56e0 | 20 28 72 65 73 74 61 72 74 2d 72 65 70 6f 72 74 2d 66 75 6e 63 74 69 6f 6e 20 72 65 73 74 61 72 | .(restart-report-function.restar |
| 1d5700 | 74 29 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 72 65 73 74 61 72 74 2d 72 65 | t)).........(funcall.(restart-re |
| 1d5720 | 70 6f 72 74 2d 66 75 6e 63 74 69 6f 6e 20 72 65 73 74 61 72 74 29 20 73 74 72 65 61 6d 29 29 29 | port-function.restart).stream))) |
| 1d5740 | 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | )............................... |
| 1d5760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d5780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d57a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d57c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d57e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d5800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 6d 65 7a 7a 61 6e 6f 2e 6c 69 73 70 00 00 00 | slime-2.31/swank/mezzano.lisp... |
| 1d5820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d5840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d5860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 1d5880 | 30 30 36 31 34 35 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 37 31 35 00 20 30 00 00 00 | 0061451.00000000000.014715..0... |
| 1d58a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d58c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d58e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d5900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 1d5920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 1d5940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d5960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d5980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d59a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d59c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d59e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1d5a00 | 3b 3b 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 20 | ;;;;;.-*-.indent-tabs-mode:.nil. |
| 1d5a20 | 2d 2a 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 6d 65 7a 7a 61 6e 6f 2e 6c 69 73 70 20 2d | -*-.;;;.;;;.swank-mezzano.lisp.- |
| 1d5a40 | 2d 2d 20 53 4c 49 4d 45 20 62 61 63 6b 65 6e 64 20 66 6f 72 20 4d 65 7a 7a 61 6e 6f 0a 3b 3b 3b | --.SLIME.backend.for.Mezzano.;;; |
| 1d5a60 | 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 | .;;;.This.code.has.been.placed.i |
| 1d5a80 | 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 6e | n.the.Public.Domain...All.warran |
| 1d5aa0 | 74 69 65 73 20 61 72 65 0a 3b 3b 3b 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 3b 3b 3b 0a 0a 3b 3b | ties.are.;;;.disclaimed..;;;..;; |
| 1d5ac0 | 3b 20 41 64 6d 69 6e 69 73 74 72 69 76 69 61 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 | ;.Administrivia..(defpackage.swa |
| 1d5ae0 | 6e 6b 2f 6d 65 7a 7a 61 6e 6f 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b | nk/mezzano...(:use.cl.swank/back |
| 1d5b00 | 65 6e 64 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 6d 65 7a 7a 61 6e 6f | end))..(in-package.swank/mezzano |
| 1d5b20 | 29 0a 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 6d 6f 70 0a 0a 28 69 6d 70 6f 72 74 2d 73 77 61 6e 6b 2d | )..;;;.swank-mop..(import-swank- |
| 1d5b40 | 6d 6f 70 2d 73 79 6d 62 6f 6c 73 20 3a 6d 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 20 27 28 3a 63 6c 61 | mop-symbols.:mezzano.clos.'(:cla |
| 1d5b60 | 73 73 2d 64 65 66 61 75 6c 74 2d 69 6e 69 74 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ss-default-initargs............. |
| 1d5b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 | ..............................:c |
| 1d5ba0 | 6c 61 73 73 2d 64 69 72 65 63 74 2d 64 65 66 61 75 6c 74 2d 69 6e 69 74 61 72 67 73 0a 20 20 20 | lass-direct-default-initargs.... |
| 1d5bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d5be0 | 20 20 20 20 20 20 20 3a 73 70 65 63 69 61 6c 69 7a 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f | .......:specializer-direct-metho |
| 1d5c00 | 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ds.............................. |
| 1d5c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 64 | .............:generic-function-d |
| 1d5c40 | 65 63 6c 61 72 61 74 69 6f 6e 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a | eclarations))..(defun.swank-mop: |
| 1d5c60 | 73 70 65 63 69 61 6c 69 7a 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 20 28 6f 62 6a 29 | specializer-direct-methods.(obj) |
| 1d5c80 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6f 62 6a 29 29 0a 20 20 27 28 29 29 | ...(declare.(ignore.obj))...'()) |
| 1d5ca0 | 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 | ..(defun.swank-mop:generic-funct |
| 1d5cc0 | 69 6f 6e 2d 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 28 67 66 29 0a 20 20 28 64 65 63 6c 61 72 65 | ion-declarations.(gf)...(declare |
| 1d5ce0 | 20 28 69 67 6e 6f 72 65 20 67 66 29 29 0a 20 20 27 28 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | .(ignore.gf))...'())..(defimplem |
| 1d5d00 | 65 6e 74 61 74 69 6f 6e 20 67 72 61 79 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 29 0a 20 20 | entation.gray-package-name.()... |
| 1d5d20 | 22 4d 45 5a 5a 41 4e 4f 2e 47 52 41 59 22 29 0a 0a 3b 3b 3b 3b 20 54 43 50 20 73 65 72 76 65 72 | "MEZZANO.GRAY")..;;;;.TCP.server |
| 1d5d40 | 0a 0a 28 64 65 66 63 6c 61 73 73 20 6c 69 73 74 65 6e 2d 73 6f 63 6b 65 74 20 28 29 0a 20 20 28 | ..(defclass.listen-socket.()...( |
| 1d5d60 | 28 25 6c 69 73 74 65 6e 65 72 20 3a 69 6e 69 74 61 72 67 20 3a 6c 69 73 74 65 6e 65 72 29 29 29 | (%listener.:initarg.:listener))) |
| 1d5d80 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 61 74 65 2d 73 6f 63 6b | ..(defimplementation.create-sock |
| 1d5da0 | 65 74 20 28 68 6f 73 74 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 6d | et.(host.port.&key.backlog)...(m |
| 1d5dc0 | 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 6c 69 73 74 65 6e 2d 73 6f 63 6b 65 74 0a 20 20 20 20 | ake-instance.'listen-socket..... |
| 1d5de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 73 74 65 6e 65 72 20 28 6d 65 7a 7a 61 6e 6f 2e | .............:listener.(mezzano. |
| 1d5e00 | 6e 65 74 77 6f 72 6b 2e 74 63 70 3a 74 63 70 2d 6c 69 73 74 65 6e 0a 20 20 20 20 20 20 20 20 20 | network.tcp:tcp-listen.......... |
| 1d5e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 73 74 0a 20 20 20 20 20 20 20 20 | ...................host......... |
| 1d5e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 72 74 0a 20 20 20 20 20 20 20 | ....................port........ |
| 1d5e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 61 63 6b 6c 6f 67 20 28 6f | .....................:backlog.(o |
| 1d5e80 | 72 20 62 61 63 6b 6c 6f 67 20 31 30 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | r.backlog.10))))..(defimplementa |
| 1d5ea0 | 74 69 6f 6e 20 6c 6f 63 61 6c 2d 70 6f 72 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 6d 65 7a 7a | tion.local-port.(socket)...(mezz |
| 1d5ec0 | 61 6e 6f 2e 6e 65 74 77 6f 72 6b 2e 74 63 70 3a 74 63 70 2d 6c 69 73 74 65 6e 65 72 2d 6c 6f 63 | ano.network.tcp:tcp-listener-loc |
| 1d5ee0 | 61 6c 2d 70 6f 72 74 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 73 6f 63 6b 65 74 20 27 25 6c 69 73 | al-port.(slot-value.socket.'%lis |
| 1d5f00 | 74 65 6e 65 72 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6c 6f | tener)))..(defimplementation.clo |
| 1d5f20 | 73 65 2d 73 6f 63 6b 65 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 6d 65 7a 7a 61 6e 6f 2e 6e 65 | se-socket.(socket)...(mezzano.ne |
| 1d5f40 | 74 77 6f 72 6b 2e 74 63 70 3a 63 6c 6f 73 65 2d 74 63 70 2d 6c 69 73 74 65 6e 65 72 20 28 73 6c | twork.tcp:close-tcp-listener.(sl |
| 1d5f60 | 6f 74 2d 76 61 6c 75 65 20 73 6f 63 6b 65 74 20 27 25 6c 69 73 74 65 6e 65 72 29 29 29 0a 0a 28 | ot-value.socket.'%listener)))..( |
| 1d5f80 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 | defimplementation.accept-connect |
| 1d5fa0 | 69 6f 6e 20 28 73 6f 63 6b 65 74 20 26 6b 65 79 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 | ion.(socket.&key.external-format |
| 1d5fc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d5fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 69 6e 67 20 74 69 6d 65 6f 75 74 29 | ..............buffering.timeout) |
| 1d6000 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 | ...(declare.(ignore.external-for |
| 1d6020 | 6d 61 74 20 62 75 66 66 65 72 69 6e 67 20 74 69 6d 65 6f 75 74 29 29 0a 20 20 28 6c 6f 6f 70 0a | mat.buffering.timeout))...(loop. |
| 1d6040 | 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 20 28 6d 65 7a 7a 61 6e 6f 2e 6e 65 74 77 6f 72 | ....(let.((value.(mezzano.networ |
| 1d6060 | 6b 2e 74 63 70 3a 74 63 70 2d 61 63 63 65 70 74 20 28 73 6c 6f 74 2d 76 61 6c 75 65 20 73 6f 63 | k.tcp:tcp-accept.(slot-value.soc |
| 1d6080 | 6b 65 74 20 27 25 6c 69 73 74 65 6e 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ket.'%listener)................. |
| 1d60a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d60c0 | 20 3a 77 61 69 74 2d 70 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 76 61 6c 75 65 0a | .:wait-p.nil))).......(if.value. |
| 1d60e0 | 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 | ..........(return.value)........ |
| 1d6100 | 20 20 20 3b 3b 20 50 6f 6b 65 20 73 74 61 6e 64 61 72 64 2d 69 6e 70 75 74 20 65 76 65 72 79 20 | ...;;.Poke.standard-input.every. |
| 1d6120 | 6e 6f 77 20 61 6e 64 20 74 68 65 6e 20 74 6f 20 6b 65 65 70 20 74 68 65 20 63 6f 6e 73 6f 6c 65 | now.and.then.to.keep.the.console |
| 1d6140 | 20 61 6c 69 76 65 2e 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 6c 69 73 74 65 6e | .alive............(progn.(listen |
| 1d6160 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 65 65 70 20 30 2e 30 35 29 29 | )..................(sleep.0.05)) |
| 1d6180 | 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 65 66 65 72 72 | ))))..(defimplementation.preferr |
| 1d61a0 | 65 64 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 28 29 0a 20 20 3a 73 70 61 | ed-communication-style.()...:spa |
| 1d61c0 | 77 6e 29 0a 0a 3b 3b 3b 3b 20 55 6e 69 78 20 73 69 67 6e 61 6c 73 0a 3b 3b 3b 3b 20 3f 3f 3f 3f | wn)..;;;;.Unix.signals.;;;;.???? |
| 1d61e0 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65 74 70 69 64 20 28 29 0a 20 | ..(defimplementation.getpid.().. |
| 1d6200 | 20 30 29 0a 0a 3b 3b 3b 3b 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 73 69 | .0)..;;;;.Compilation..(defun.si |
| 1d6220 | 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 | gnal-compiler-condition.(conditi |
| 1d6240 | 6f 6e 20 73 65 76 65 72 69 74 79 29 0a 20 20 28 73 69 67 6e 61 6c 20 27 63 6f 6d 70 69 6c 65 72 | on.severity)...(signal.'compiler |
| 1d6260 | 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 | -condition...........:original-c |
| 1d6280 | 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3a 73 65 | ondition.condition...........:se |
| 1d62a0 | 76 65 72 69 74 79 20 73 65 76 65 72 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 3a 6d 65 73 73 61 | verity.severity...........:messa |
| 1d62c0 | 67 65 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 22 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 | ge.(format.nil."~A".condition).. |
| 1d62e0 | 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e 20 6e 69 6c 29 29 0a 0a 28 64 65 66 69 6d | .........:location.nil))..(defim |
| 1d6300 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 | plementation.call-with-compilati |
| 1d6320 | 6f 6e 2d 68 6f 6f 6b 73 20 28 66 75 6e 63 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 0a | on-hooks.(func)...(handler-bind. |
| 1d6340 | 20 20 20 20 20 20 28 28 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 | ......((error.........(lambda.(c |
| 1d6360 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e | )...........(signal-compiler-con |
| 1d6380 | 64 69 74 69 6f 6e 20 63 20 3a 65 72 72 6f 72 29 29 29 0a 20 20 20 20 20 20 20 28 77 61 72 6e 69 | dition.c.:error)))........(warni |
| 1d63a0 | 6e 67 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 29 0a 20 20 20 20 20 20 20 20 20 | ng.........(lambda.(c).......... |
| 1d63c0 | 20 28 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 20 3a 77 | .(signal-compiler-condition.c.:w |
| 1d63e0 | 61 72 6e 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 28 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 0a | arning)))........(style-warning. |
| 1d6400 | 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 | ........(lambda.(c)...........(s |
| 1d6420 | 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 20 3a 73 74 79 6c | ignal-compiler-condition.c.:styl |
| 1d6440 | 65 2d 77 61 72 6e 69 6e 67 29 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 29 | e-warning)))).....(funcall.func) |
| 1d6460 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d | ))..(defimplementation.swank-com |
| 1d6480 | 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 6b 65 79 20 62 75 66 66 65 72 20 | pile-string.(string.&key.buffer. |
| 1d64a0 | 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | position.filename............... |
| 1d64c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d64e0 | 20 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 | ..line.column.policy)...(declare |
| 1d6500 | 20 28 69 67 6e 6f 72 65 20 62 75 66 66 65 72 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 | .(ignore.buffer.line.column.poli |
| 1d6520 | 63 79 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 2a 6c 6f 61 64 2d 70 61 74 68 6e 61 6d 65 2a 20 28 | cy))...(let*.((*load-pathname*.( |
| 1d6540 | 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 70 61 74 68 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 | ignore-errors.(pathname.filename |
| 1d6560 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 6c 6f 61 64 2d 74 72 75 65 6e 61 6d 65 2a 20 28 77 | )))..........(*load-truename*.(w |
| 1d6580 | 68 65 6e 20 2a 6c 6f 61 64 2d 70 61 74 68 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 | hen.*load-pathname*............. |
| 1d65a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 | ................(ignore-errors.( |
| 1d65c0 | 74 72 75 65 6e 61 6d 65 20 2a 6c 6f 61 64 2d 70 61 74 68 6e 61 6d 65 2a 29 29 29 29 0a 20 20 20 | truename.*load-pathname*)))).... |
| 1d65e0 | 20 20 20 20 20 20 28 73 79 73 2e 69 6e 74 3a 3a 2a 74 6f 70 2d 6c 65 76 65 6c 2d 66 6f 72 6d 2d | ......(sys.int::*top-level-form- |
| 1d6600 | 6e 75 6d 62 65 72 2a 20 60 28 3a 70 6f 73 69 74 69 6f 6e 20 2c 70 6f 73 69 74 69 6f 6e 29 29 29 | number*.`(:position.,position))) |
| 1d6620 | 0a 20 20 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a | .....(with-compilation-hooks.(). |
| 1d6640 | 20 20 20 20 20 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 63 | ......(eval.(read-from-string.(c |
| 1d6660 | 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 20 22 28 70 72 6f 67 6e 20 22 20 73 74 72 | oncatenate.'string."(progn.".str |
| 1d6680 | 69 6e 67 20 22 20 29 22 29 29 29 29 29 0a 20 20 74 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | ing.".)")))))...t)..(defimplemen |
| 1d66a0 | 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 28 69 6e 70 75 74 | tation.swank-compile-file.(input |
| 1d66c0 | 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 20 6c 6f 61 64 2d 70 0a 20 20 20 20 20 20 20 | -file.output-file.load-p........ |
| 1d66e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d6700 | 20 20 20 20 20 20 20 20 20 20 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 | ...........external-format...... |
| 1d6720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d6740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a 20 20 28 77 69 74 | .............&key.policy)...(wit |
| 1d6760 | 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 6d 75 6c 74 | h-compilation-hooks.().....(mult |
| 1d6780 | 69 70 6c 65 2d 76 61 6c 75 65 2d 70 72 6f 67 31 0a 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c | iple-value-prog1.........(compil |
| 1d67a0 | 65 2d 66 69 6c 65 20 69 6e 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-file.input-file............... |
| 1d67c0 | 20 20 20 20 20 20 20 20 3a 6f 75 74 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 | ........:output-file.output-file |
| 1d67e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c | .......................:external |
| 1d6800 | 2d 66 6f 72 6d 61 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 28 | -format.external-format).......( |
| 1d6820 | 77 68 65 6e 20 6c 6f 61 64 2d 70 0a 20 20 20 20 20 20 20 20 28 6c 6f 61 64 20 6f 75 74 70 75 74 | when.load-p.........(load.output |
| 1d6840 | 2d 66 69 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 | -file)))))..(defimplementation.f |
| 1d6860 | 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 | ind-external-format.(coding-syst |
| 1d6880 | 65 6d 29 0a 20 20 28 69 66 20 28 6f 72 20 28 65 71 75 61 6c 20 63 6f 64 69 6e 67 2d 73 79 73 74 | em)...(if.(or.(equal.coding-syst |
| 1d68a0 | 65 6d 20 22 75 74 66 2d 38 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 63 6f 64 | em."utf-8")...........(equal.cod |
| 1d68c0 | 69 6e 67 2d 73 79 73 74 65 6d 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 29 0a 20 20 20 20 20 20 | ing-system."utf-8-unix"))....... |
| 1d68e0 | 3a 64 65 66 61 75 6c 74 0a 20 20 20 20 20 20 6e 69 6c 29 29 0a 0a 3b 3b 3b 3b 20 44 65 62 75 67 | :default.......nil))..;;;;.Debug |
| 1d6900 | 67 69 6e 67 0a 0a 3b 3b 20 44 65 66 69 6e 69 74 65 6c 79 20 64 6f 6e 27 74 20 61 6c 6c 6f 77 20 | ging..;;.Definitely.don't.allow. |
| 1d6920 | 74 68 69 73 2e 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 73 74 61 6c 6c | this..(defimplementation.install |
| 1d6940 | 2d 64 65 62 75 67 67 65 72 2d 67 6c 6f 62 61 6c 6c 79 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 | -debugger-globally.(function)... |
| 1d6960 | 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 6e 69 | (declare.(ignore.function))...ni |
| 1d6980 | 6c 29 0a 0a 28 64 65 66 76 61 72 20 2a 63 75 72 72 65 6e 74 2d 62 61 63 6b 74 72 61 63 65 2a 29 | l)..(defvar.*current-backtrace*) |
| 1d69a0 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 | ..(defimplementation.call-with-d |
| 1d69c0 | 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 64 65 62 75 67 67 65 72 2d 6c | ebugging-environment.(debugger-l |
| 1d69e0 | 6f 6f 70 2d 66 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a 63 75 72 72 65 6e 74 2d 62 61 63 6b 74 72 | oop-fn)...(let.((*current-backtr |
| 1d6a00 | 61 63 65 2a 20 27 28 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 72 65 76 2d 66 70 20 6e 69 | ace*.'())).....(let.((prev-fp.ni |
| 1d6a20 | 6c 29 29 0a 20 20 20 20 20 20 28 73 79 73 2e 69 6e 74 3a 3a 6d 61 70 2d 62 61 63 6b 74 72 61 63 | l)).......(sys.int::map-backtrac |
| 1d6a40 | 65 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 69 20 66 70 29 0a 20 20 20 20 20 20 20 20 | e........(lambda.(i.fp)......... |
| 1d6a60 | 20 28 70 75 73 68 20 28 6c 69 73 74 20 28 31 2d 20 69 29 20 66 70 20 70 72 65 76 2d 66 70 29 20 | .(push.(list.(1-.i).fp.prev-fp). |
| 1d6a80 | 2a 63 75 72 72 65 6e 74 2d 62 61 63 6b 74 72 61 63 65 2a 29 0a 20 20 20 20 20 20 20 20 20 28 73 | *current-backtrace*)..........(s |
| 1d6aa0 | 65 74 66 20 70 72 65 76 2d 66 70 20 66 70 29 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 2a 63 75 | etf.prev-fp.fp)))).....(setf.*cu |
| 1d6ac0 | 72 72 65 6e 74 2d 62 61 63 6b 74 72 61 63 65 2a 20 28 72 65 76 65 72 73 65 20 2a 63 75 72 72 65 | rrent-backtrace*.(reverse.*curre |
| 1d6ae0 | 6e 74 2d 62 61 63 6b 74 72 61 63 65 2a 29 29 0a 20 20 20 20 3b 3b 20 44 72 6f 70 20 74 68 65 20 | nt-backtrace*)).....;;.Drop.the. |
| 1d6b00 | 74 6f 70 6d 6f 73 74 20 66 72 61 6d 65 2c 20 77 68 69 63 68 20 69 73 20 66 69 6e 69 73 68 65 64 | topmost.frame,.which.is.finished |
| 1d6b20 | 20 63 61 6c 6c 20 74 6f 20 4d 41 50 2d 42 41 43 4b 54 52 41 43 45 2e 0a 20 20 20 20 28 70 6f 70 | .call.to.MAP-BACKTRACE......(pop |
| 1d6b40 | 20 2a 63 75 72 72 65 6e 74 2d 62 61 63 6b 74 72 61 63 65 2a 29 0a 20 20 20 20 3b 3b 20 41 6e 64 | .*current-backtrace*).....;;.And |
| 1d6b60 | 20 74 68 65 20 6e 65 78 74 20 6f 6e 65 20 66 6f 72 20 67 6f 6f 64 20 6d 65 61 73 75 72 65 2e 0a | .the.next.one.for.good.measure.. |
| 1d6b80 | 20 20 20 20 28 70 6f 70 20 2a 63 75 72 72 65 6e 74 2d 62 61 63 6b 74 72 61 63 65 2a 29 0a 20 20 | ....(pop.*current-backtrace*)... |
| 1d6ba0 | 20 20 28 66 75 6e 63 61 6c 6c 20 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 29 29 0a 0a | ..(funcall.debugger-loop-fn))).. |
| 1d6bc0 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 | (defimplementation.compute-backt |
| 1d6be0 | 72 61 63 65 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 73 75 62 73 65 71 20 2a 63 75 72 72 | race.(start.end)...(subseq.*curr |
| 1d6c00 | 65 6e 74 2d 62 61 63 6b 74 72 61 63 65 2a 20 73 74 61 72 74 20 65 6e 64 29 29 0a 0a 28 64 65 66 | ent-backtrace*.start.end))..(def |
| 1d6c20 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d | implementation.print-frame.(fram |
| 1d6c40 | 65 20 73 74 72 65 61 6d 29 0a 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 53 22 20 | e.stream)...(format.stream."~S". |
| 1d6c60 | 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 20 66 72 | (sys.int::function-from-frame.fr |
| 1d6c80 | 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 | ame)))..(defimplementation.frame |
| 1d6ca0 | 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a | -source-location.(frame-number). |
| 1d6cc0 | 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 20 66 72 61 6d 65 2d 6e 75 6d 62 65 | ..(let*.((frame.(nth.frame-numbe |
| 1d6ce0 | 72 20 2a 63 75 72 72 65 6e 74 2d 62 61 63 6b 74 72 61 63 65 2a 29 29 0a 20 20 20 20 20 20 20 20 | r.*current-backtrace*))......... |
| 1d6d00 | 20 28 66 6e 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e 2d 66 72 6f 6d 2d 66 72 61 | .(fn.(sys.int::function-from-fra |
| 1d6d20 | 6d 65 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 | me.frame))).....(function-locati |
| 1d6d40 | 6f 6e 20 66 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 | on.fn)))..(defimplementation.fra |
| 1d6d60 | 6d 65 2d 6c 6f 63 61 6c 73 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 6f 6f 70 | me-locals.(frame-number)...(loop |
| 1d6d80 | 0a 20 20 20 20 20 77 69 74 68 20 66 72 61 6d 65 20 3d 20 28 6e 74 68 20 66 72 61 6d 65 2d 6e 75 | ......with.frame.=.(nth.frame-nu |
| 1d6da0 | 6d 62 65 72 20 2a 63 75 72 72 65 6e 74 2d 62 61 63 6b 74 72 61 63 65 2a 29 0a 20 20 20 20 20 66 | mber.*current-backtrace*)......f |
| 1d6dc0 | 6f 72 20 28 6e 61 6d 65 20 69 64 20 6c 6f 63 61 74 69 6f 6e 20 72 65 70 72 29 20 69 6e 20 28 73 | or.(name.id.location.repr).in.(s |
| 1d6de0 | 79 73 2e 69 6e 74 3a 3a 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 66 72 61 6d 65 29 0a 20 20 20 20 | ys.int::frame-locals.frame)..... |
| 1d6e00 | 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 6e 61 6d 65 20 6e 61 6d 65 0a 20 20 20 20 20 20 | .collect.(list.:name.name....... |
| 1d6e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .............:id.id............. |
| 1d6e40 | 20 20 20 20 20 20 20 3a 76 61 6c 75 65 20 28 73 79 73 2e 69 6e 74 3a 3a 72 65 61 64 2d 66 72 61 | .......:value.(sys.int::read-fra |
| 1d6e60 | 6d 65 2d 73 6c 6f 74 20 66 72 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 20 72 65 70 72 29 29 29 29 0a | me-slot.frame.location.repr)))). |
| 1d6e80 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 | .(defimplementation.frame-var-va |
| 1d6ea0 | 6c 75 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 76 61 72 2d 69 64 29 0a 20 20 28 6c 65 74 | lue.(frame-number.var-id)...(let |
| 1d6ec0 | 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 2a 63 75 72 | *.((frame.(nth.frame-number.*cur |
| 1d6ee0 | 72 65 6e 74 2d 62 61 63 6b 74 72 61 63 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 | rent-backtrace*))..........(loca |
| 1d6f00 | 6c 73 20 28 73 79 73 2e 69 6e 74 3a 3a 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 66 72 61 6d 65 29 | ls.(sys.int::frame-locals.frame) |
| 1d6f20 | 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 66 6f 20 28 6e 74 68 20 76 61 72 2d 69 64 20 6c 6f 63 | )..........(info.(nth.var-id.loc |
| 1d6f40 | 61 6c 73 29 29 29 0a 20 20 20 20 28 69 66 20 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 28 64 65 73 | als))).....(if.info.........(des |
| 1d6f60 | 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6e 61 6d 65 20 69 64 20 6c 6f 63 61 74 69 6f | tructuring-bind.(name.id.locatio |
| 1d6f80 | 6e 20 72 65 70 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 66 6f 0a 20 20 20 20 20 20 20 | n.repr).............info........ |
| 1d6fa0 | 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 69 64 29 29 0a 20 20 20 20 20 20 20 | ...(declare.(ignore.id))........ |
| 1d6fc0 | 20 20 20 28 76 61 6c 75 65 73 20 28 73 79 73 2e 69 6e 74 3a 3a 72 65 61 64 2d 66 72 61 6d 65 2d | ...(values.(sys.int::read-frame- |
| 1d6fe0 | 73 6c 6f 74 20 66 72 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 20 72 65 70 72 29 20 6e 61 6d 65 29 29 | slot.frame.location.repr).name)) |
| 1d7000 | 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 76 61 72 69 61 62 6c | .........(error."Invalid.variabl |
| 1d7020 | 65 20 69 64 20 7e 44 20 66 6f 72 20 66 72 61 6d 65 20 6e 75 6d 62 65 72 20 7e 44 2e 22 0a 20 20 | e.id.~D.for.frame.number.~D."... |
| 1d7040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 72 2d 69 64 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 | .............var-id.frame-number |
| 1d7060 | 29 29 29 29 0a 0a 3b 3b 3b 3b 20 44 65 66 69 6e 69 74 69 6f 6e 20 66 69 6e 64 69 6e 67 0a 0a 28 | ))))..;;;;.Definition.finding..( |
| 1d7080 | 64 65 66 75 6e 20 74 6f 70 2d 6c 65 76 65 6c 2d 66 6f 72 6d 2d 70 6f 73 69 74 69 6f 6e 20 28 70 | defun.top-level-form-position.(p |
| 1d70a0 | 61 74 68 6e 61 6d 65 20 74 6c 66 29 0a 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 | athname.tlf)...(ignore-errors... |
| 1d70c0 | 20 20 28 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 73 20 70 61 74 68 6e 61 6d 65 29 0a 20 | ..(with-open-file.(s.pathname).. |
| 1d70e0 | 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 72 65 70 65 61 74 20 74 6c 66 0a 20 | .....(loop..........repeat.tlf.. |
| 1d7100 | 20 20 20 20 20 20 20 20 64 6f 20 28 77 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e | ........do.(with-standard-io-syn |
| 1d7120 | 74 61 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 72 65 61 64 2d 73 | tax...............(let.((*read-s |
| 1d7140 | 75 70 70 72 65 73 73 2a 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uppress*.t)..................... |
| 1d7160 | 28 2a 72 65 61 64 2d 65 76 61 6c 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (*read-eval*.nil)).............. |
| 1d7180 | 20 20 20 28 72 65 61 64 20 73 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 | ...(read.s.nil)))).......(let.(( |
| 1d71a0 | 64 65 66 61 75 6c 74 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 68 6f 73 74 20 28 70 61 | default.(make-pathname.:host.(pa |
| 1d71c0 | 74 68 6e 61 6d 65 2d 68 6f 73 74 20 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d | thname-host.s)))).........(make- |
| 1d71e0 | 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c 65 20 2c 28 65 6e 6f 75 67 68 2d 6e 61 6d 65 73 74 | location.`(:file.,(enough-namest |
| 1d7200 | 72 69 6e 67 20 73 20 64 65 66 61 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ring.s.default))................ |
| 1d7220 | 20 20 20 20 20 20 20 20 60 28 3a 70 6f 73 69 74 69 6f 6e 20 2c 28 31 2b 20 28 66 69 6c 65 2d 70 | ........`(:position.,(1+.(file-p |
| 1d7240 | 6f 73 69 74 69 6f 6e 20 73 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 | osition.s))))))))..(defun.functi |
| 1d7260 | 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e | on-location.(function)..."Return |
| 1d7280 | 20 61 20 6c 6f 63 61 74 69 6f 6e 20 6f 62 6a 65 63 74 20 66 6f 72 20 46 55 4e 43 54 49 4f 4e 2e | .a.location.object.for.FUNCTION. |
| 1d72a0 | 22 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e 66 6f 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 | "...(let*.((info.(sys.int::funct |
| 1d72c0 | 69 6f 6e 2d 64 65 62 75 67 2d 69 6e 66 6f 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 | ion-debug-info.function))....... |
| 1d72e0 | 20 20 20 28 70 61 74 68 6e 61 6d 65 20 28 73 79 73 2e 69 6e 74 3a 3a 64 65 62 75 67 2d 69 6e 66 | ...(pathname.(sys.int::debug-inf |
| 1d7300 | 6f 2d 73 6f 75 72 63 65 2d 70 61 74 68 6e 61 6d 65 20 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 | o-source-pathname.info))........ |
| 1d7320 | 20 20 28 74 6c 66 20 28 73 79 73 2e 69 6e 74 3a 3a 64 65 62 75 67 2d 69 6e 66 6f 2d 73 6f 75 72 | ..(tlf.(sys.int::debug-info-sour |
| 1d7340 | 63 65 2d 74 6f 70 2d 6c 65 76 65 6c 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 69 6e 66 6f 29 29 29 | ce-top-level-form-number.info))) |
| 1d7360 | 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 63 6f 6e 73 70 20 74 6c 66 29 0a 20 20 20 | .....(cond.((and.(consp.tlf).... |
| 1d7380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 6c 20 28 66 69 72 73 74 20 74 6c 66 29 20 3a 70 | .............(eql.(first.tlf).:p |
| 1d73a0 | 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 61 | osition))............(let.((defa |
| 1d73c0 | 75 6c 74 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 68 6f 73 74 20 28 70 61 74 68 6e 61 | ult.(make-pathname.:host.(pathna |
| 1d73e0 | 6d 65 2d 68 6f 73 74 20 70 61 74 68 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | me-host.pathname))))............ |
| 1d7400 | 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c 65 20 2c 28 65 6e 6f 75 67 | ..(make-location.`(:file.,(enoug |
| 1d7420 | 68 2d 6e 61 6d 65 73 74 72 69 6e 67 20 70 61 74 68 6e 61 6d 65 20 64 65 66 61 75 6c 74 29 29 0a | h-namestring.pathname.default)). |
| 1d7440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 70 | ............................`(:p |
| 1d7460 | 6f 73 69 74 69 6f 6e 20 2c 28 73 65 63 6f 6e 64 20 74 6c 66 29 29 29 29 29 0a 20 20 20 20 20 20 | osition.,(second.tlf)))))....... |
| 1d7480 | 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 6f 70 2d 6c 65 76 65 6c 2d 66 6f 72 | ....(t............(top-level-for |
| 1d74a0 | 6d 2d 70 6f 73 69 74 69 6f 6e 20 70 61 74 68 6e 61 6d 65 20 74 6c 66 29 29 29 29 29 0a 0a 28 64 | m-position.pathname.tlf)))))..(d |
| 1d74c0 | 65 66 75 6e 20 6d 65 74 68 6f 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 28 6e 61 6d | efun.method-definition-name.(nam |
| 1d74e0 | 65 20 6d 65 74 68 6f 64 29 0a 20 20 60 28 64 65 66 6d 65 74 68 6f 64 20 2c 6e 61 6d 65 0a 20 20 | e.method)...`(defmethod.,name... |
| 1d7500 | 20 20 20 20 20 2c 40 28 6d 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 3a 6d 65 74 68 6f 64 2d 71 75 61 6c | .....,@(mezzano.clos:method-qual |
| 1d7520 | 69 66 69 65 72 73 20 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 2c 28 6d 61 70 63 61 72 20 28 6c 61 | ifiers.method)......,(mapcar.(la |
| 1d7540 | 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 | mbda.(x).................(typeca |
| 1d7560 | 73 65 20 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 7a 7a 61 6e 6f 2e | se.x...................(mezzano. |
| 1d7580 | 63 6c 6f 73 3a 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | clos:class....................(m |
| 1d75a0 | 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 3a 63 6c 61 73 73 2d 6e 61 6d 65 20 78 29 29 0a 20 20 20 20 20 | ezzano.clos:class-name.x))...... |
| 1d75c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 3a 65 71 6c 2d 73 | .............(mezzano.clos:eql-s |
| 1d75e0 | 70 65 63 69 61 6c 69 7a 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 | pecializer....................`( |
| 1d7600 | 65 71 6c 20 2c 28 6d 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a | eql.,(mezzano.clos:eql-specializ |
| 1d7620 | 65 72 2d 6f 62 6a 65 63 74 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er-object.x))).................. |
| 1d7640 | 20 28 74 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 7a 7a 61 6e 6f 2e | .(t.x)))...............(mezzano. |
| 1d7660 | 63 6c 6f 73 3a 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 20 6d 65 74 68 6f 64 29 | clos:method-specializers.method) |
| 1d7680 | 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 64 65 66 | )))..(defimplementation.find-def |
| 1d76a0 | 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 | initions.(name)...(let.((result. |
| 1d76c0 | 27 28 29 29 29 0a 20 20 20 20 28 6c 61 62 65 6c 73 0a 20 20 20 20 20 20 20 20 28 28 66 72 6f 62 | '())).....(labels.........((frob |
| 1d76e0 | 2d 66 6e 20 28 64 73 70 65 63 20 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | -fn.(dspec.fn)............(let.( |
| 1d7700 | 28 6c 6f 63 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 66 6e 29 29 29 0a 20 20 | (loc.(function-location.fn)))... |
| 1d7720 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6c 6f 63 0a 20 20 20 20 20 20 20 20 20 20 20 | ...........(when.loc............ |
| 1d7740 | 20 20 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 64 73 70 65 63 20 6c 6f 63 29 20 72 65 73 75 6c | ....(push.(list.dspec.loc).resul |
| 1d7760 | 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 72 79 2d 66 6e 20 28 6e 61 6d 65 29 0a 20 20 | t))))..........(try-fn.(name)... |
| 1d7780 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 76 61 6c 69 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e | .........(when.(valid-function-n |
| 1d77a0 | 61 6d 65 2d 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 | ame-p.name)..............(when.( |
| 1d77c0 | 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | and.(fboundp.name).............. |
| 1d77e0 | 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 | ...........(not.(and.(symbolp.na |
| 1d7800 | 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me)............................. |
| 1d7820 | 20 20 20 20 20 20 28 6f 72 20 28 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 2d 70 20 6e 61 | ......(or.(special-operator-p.na |
| 1d7840 | 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me)............................. |
| 1d7860 | 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 | ..........(macro-function.name)) |
| 1d7880 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 6e 20 28 66 64 | )))................(let.((fn.(fd |
| 1d78a0 | 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | efinition.name)))............... |
| 1d78c0 | 20 20 20 28 63 6f 6e 64 20 28 28 74 79 70 65 70 20 66 6e 20 27 6d 65 7a 7a 61 6e 6f 2e 63 6c 6f | ...(cond.((typep.fn.'mezzano.clo |
| 1d78e0 | 73 3a 73 74 61 6e 64 61 72 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 | s:standard-generic-function).... |
| 1d7900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6d 20 | .....................(dolist.(m. |
| 1d7920 | 28 6d 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d | (mezzano.clos:generic-function-m |
| 1d7940 | 65 74 68 6f 64 73 20 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ethods.fn))..................... |
| 1d7960 | 20 20 20 20 20 20 28 66 72 6f 62 2d 66 6e 20 28 6d 65 74 68 6f 64 2d 64 65 66 69 6e 69 74 69 6f | ......(frob-fn.(method-definitio |
| 1d7980 | 6e 2d 6e 61 6d 65 20 6e 61 6d 65 20 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n-name.name.m).................. |
| 1d79a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 3a | ..................(mezzano.clos: |
| 1d79c0 | 6d 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 20 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | method-function.m))))........... |
| 1d79e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............(t................. |
| 1d7a00 | 20 20 20 20 20 20 20 20 28 66 72 6f 62 2d 66 6e 20 60 28 64 65 66 75 6e 20 2c 6e 61 6d 65 29 20 | ........(frob-fn.`(defun.,name). |
| 1d7a20 | 66 6e 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 6f 6d 70 | fn)))))..............(when.(comp |
| 1d7a40 | 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 | iler-macro-function.name)....... |
| 1d7a60 | 20 20 20 20 20 20 20 20 20 28 66 72 6f 62 2d 66 6e 20 60 28 64 65 66 69 6e 65 2d 63 6f 6d 70 69 | .........(frob-fn.`(define-compi |
| 1d7a80 | 6c 65 72 2d 6d 61 63 72 6f 20 2c 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ler-macro.,name)................ |
| 1d7aa0 | 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f | .........(compiler-macro-functio |
| 1d7ac0 | 6e 20 6e 61 6d 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 74 72 79 2d 66 6e 20 6e 61 6d 65 29 | n.name)))))).......(try-fn.name) |
| 1d7ae0 | 0a 20 20 20 20 20 20 28 74 72 79 2d 66 6e 20 60 28 73 65 74 66 20 6e 61 6d 65 29 29 0a 20 20 20 | .......(try-fn.`(setf.name)).... |
| 1d7b00 | 20 20 20 28 74 72 79 2d 66 6e 20 60 28 73 79 73 2e 69 6e 74 3a 3a 63 61 73 20 6e 61 6d 65 29 29 | ...(try-fn.`(sys.int::cas.name)) |
| 1d7b20 | 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 | .......(when.(and.(symbolp.name) |
| 1d7b40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 20 6e 61 6d 65 20 27 73 79 73 | ..................(get.name.'sys |
| 1d7b60 | 2e 69 6e 74 3a 3a 73 65 74 66 2d 65 78 70 61 6e 64 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 66 | .int::setf-expander)).........(f |
| 1d7b80 | 72 6f 62 2d 66 6e 20 60 28 64 65 66 69 6e 65 2d 73 65 74 66 2d 65 78 70 61 6e 64 65 72 20 2c 6e | rob-fn.`(define-setf-expander.,n |
| 1d7ba0 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 20 6e 61 6d 65 20 | ame)..................(get.name. |
| 1d7bc0 | 27 73 79 73 2e 69 6e 74 3a 3a 73 65 74 66 2d 65 78 70 61 6e 64 65 72 29 29 29 0a 20 20 20 20 20 | 'sys.int::setf-expander)))...... |
| 1d7be0 | 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 | .(when.(and.(symbolp.name)...... |
| 1d7c00 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 | ............(macro-function.name |
| 1d7c20 | 29 29 0a 20 20 20 20 20 20 20 20 28 66 72 6f 62 2d 66 6e 20 60 28 64 65 66 6d 61 63 72 6f 20 2c | )).........(frob-fn.`(defmacro., |
| 1d7c40 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 66 75 | name)..................(macro-fu |
| 1d7c60 | 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 72 65 73 75 6c 74 29 29 0a 0a 3b 3b | nction.name)))).....result))..;; |
| 1d7c80 | 3b 3b 20 58 52 45 46 0a 3b 3b 3b 20 53 69 6d 70 6c 65 72 20 76 61 72 69 61 6e 74 73 2e 0a 0a 28 | ;;.XREF.;;;.Simpler.variants...( |
| 1d7ca0 | 64 65 66 75 6e 20 66 69 6e 64 2d 61 6c 6c 2d 66 72 65 66 73 20 28 29 0a 20 20 28 6c 65 74 20 28 | defun.find-all-frefs.()...(let.( |
| 1d7cc0 | 28 66 72 65 66 73 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 35 30 30 20 3a 61 64 6a 75 73 74 61 62 | (frefs.(make-array.500.:adjustab |
| 1d7ce0 | 6c 65 20 74 20 3a 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 30 29 29 0a 20 20 20 20 20 20 20 20 28 | le.t.:fill-pointer.0)).........( |
| 1d7d00 | 6b 65 65 70 2d 67 6f 69 6e 67 20 74 29 29 0a 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 | keep-going.t)).....(loop........ |
| 1d7d20 | 28 77 68 65 6e 20 28 6e 6f 74 20 6b 65 65 70 2d 67 6f 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 | (when.(not.keep-going).......... |
| 1d7d40 | 28 72 65 74 75 72 6e 29 29 0a 20 20 20 20 20 20 20 28 61 64 6a 75 73 74 2d 61 72 72 61 79 20 66 | (return))........(adjust-array.f |
| 1d7d60 | 72 65 66 73 20 28 2a 20 28 61 72 72 61 79 2d 64 69 6d 65 6e 73 69 6f 6e 20 66 72 65 66 73 20 30 | refs.(*.(array-dimension.frefs.0 |
| 1d7d80 | 29 20 32 29 29 0a 20 20 20 20 20 20 20 28 73 65 74 66 20 6b 65 65 70 2d 67 6f 69 6e 67 20 6e 69 | ).2))........(setf.keep-going.ni |
| 1d7da0 | 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 66 72 65 | l..............(fill-pointer.fre |
| 1d7dc0 | 66 73 29 20 30 29 0a 20 20 20 20 20 20 20 3b 3b 20 57 61 6c 6b 20 74 68 65 20 77 69 72 65 64 20 | fs).0)........;;.Walk.the.wired. |
| 1d7de0 | 61 72 65 61 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 20 46 52 45 46 73 2e 0a 20 20 20 20 20 20 20 28 | area.looking.for.FREFs.........( |
| 1d7e00 | 73 79 73 2e 69 6e 74 3a 3a 77 61 6c 6b 2d 61 72 65 61 0a 20 20 20 20 20 20 20 20 3a 77 69 72 65 | sys.int::walk-area.........:wire |
| 1d7e20 | 64 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6f 62 6a 65 63 74 20 61 64 64 72 65 73 | d.........(lambda.(object.addres |
| 1d7e40 | 73 20 73 69 7a 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 79 73 2e 69 6e 74 | s.size)...........(when.(sys.int |
| 1d7e60 | 3a 3a 66 75 6e 63 74 69 6f 6e 2d 72 65 66 65 72 65 6e 63 65 2d 70 20 6f 62 6a 65 63 74 29 0a 20 | ::function-reference-p.object).. |
| 1d7e80 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 28 76 65 63 74 6f 72 2d 70 75 | ...........(when.(not.(vector-pu |
| 1d7ea0 | 73 68 20 6f 62 6a 65 63 74 20 66 72 65 66 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sh.object.frefs))............... |
| 1d7ec0 | 28 73 65 74 66 20 6b 65 65 70 2d 67 6f 69 6e 67 20 74 29 29 29 29 29 29 0a 20 20 20 20 28 72 65 | (setf.keep-going.t)))))).....(re |
| 1d7ee0 | 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 20 28 63 6f 65 72 63 65 20 66 72 65 66 73 20 27 6c | move-duplicates.(coerce.frefs.'l |
| 1d7f00 | 69 73 74 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 74 | ist))))..(defimplementation.list |
| 1d7f20 | 2d 63 61 6c 6c 65 72 73 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 | -callers.(function-name)...(let. |
| 1d7f40 | 28 28 66 72 65 66 2d 66 6f 72 2d 66 6e 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e | ((fref-for-fn.(sys.int::function |
| 1d7f60 | 2d 72 65 66 65 72 65 6e 63 65 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 | -reference.function-name))...... |
| 1d7f80 | 20 20 20 28 63 61 6c 6c 65 72 73 20 27 28 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 | ...(callers.'())).....(loop..... |
| 1d7fa0 | 20 20 20 66 6f 72 20 66 72 65 66 20 69 6e 20 28 66 69 6e 64 2d 61 6c 6c 2d 66 72 65 66 73 29 0a | ...for.fref.in.(find-all-frefs). |
| 1d7fc0 | 20 20 20 20 20 20 20 66 6f 72 20 66 6e 20 3d 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 | .......for.fn.=.(sys.int::functi |
| 1d7fe0 | 6f 6e 2d 72 65 66 65 72 65 6e 63 65 2d 66 75 6e 63 74 69 6f 6e 20 66 72 65 66 29 0a 20 20 20 20 | on-reference-function.fref)..... |
| 1d8000 | 20 20 20 66 6f 72 20 6e 61 6d 65 20 3d 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e | ...for.name.=.(sys.int::function |
| 1d8020 | 2d 72 65 66 65 72 65 6e 63 65 2d 6e 61 6d 65 20 66 72 65 66 29 0a 20 20 20 20 20 20 20 77 68 65 | -reference-name.fref)........whe |
| 1d8040 | 6e 20 66 6e 0a 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 | n.fn........do..........(cond.(( |
| 1d8060 | 74 79 70 65 70 20 66 6e 20 27 73 74 61 6e 64 61 72 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 | typep.fn.'standard-generic-funct |
| 1d8080 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6d 20 | ion).................(dolist.(m. |
| 1d80a0 | 28 6d 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d | (mezzano.clos:generic-function-m |
| 1d80c0 | 65 74 68 6f 64 73 20 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ethods.fn))...................(l |
| 1d80e0 | 65 74 2a 20 28 28 6d 66 20 28 6d 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 3a 6d 65 74 68 6f 64 2d 66 75 | et*.((mf.(mezzano.clos:method-fu |
| 1d8100 | 6e 63 74 69 6f 6e 20 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nction.m))...................... |
| 1d8120 | 20 20 20 20 28 6d 66 2d 66 72 65 66 73 20 28 67 65 74 2d 61 6c 6c 2d 66 72 65 66 73 2d 69 6e 2d | ....(mf-frefs.(get-all-frefs-in- |
| 1d8140 | 66 75 6e 63 74 69 6f 6e 20 6d 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | function.mf))).................. |
| 1d8160 | 20 20 20 28 77 68 65 6e 20 28 6d 65 6d 62 65 72 20 66 72 65 66 2d 66 6f 72 2d 66 6e 20 6d 66 2d | ...(when.(member.fref-for-fn.mf- |
| 1d8180 | 66 72 65 66 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 | frefs).......................(pu |
| 1d81a0 | 73 68 20 60 28 28 64 65 66 6d 65 74 68 6f 64 20 2c 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 | sh.`((defmethod.,name........... |
| 1d81c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 6d 65 7a 7a 61 | ........................,@(mezza |
| 1d81e0 | 6e 6f 2e 63 6c 6f 73 3a 6d 65 74 68 6f 64 2d 71 75 61 6c 69 66 69 65 72 73 20 6d 29 0a 20 20 20 | no.clos:method-qualifiers.m).... |
| 1d8200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6d | .............................,(m |
| 1d8220 | 61 70 63 61 72 20 23 27 73 70 65 63 69 61 6c 69 7a 65 72 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 | apcar.#'specializer-name........ |
| 1d8240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d8260 | 20 20 28 6d 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 3a 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 6c 69 7a | ..(mezzano.clos:method-specializ |
| 1d8280 | 65 72 73 20 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ers.m)))........................ |
| 1d82a0 | 20 20 20 20 20 20 20 2c 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 6d 66 29 29 0a | .......,(function-location.mf)). |
| 1d82c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c | ............................call |
| 1d82e0 | 65 72 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 | ers)))))................((member |
| 1d8300 | 20 66 72 65 66 2d 66 6f 72 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .fref-for-fn.................... |
| 1d8320 | 20 20 20 20 20 28 67 65 74 2d 61 6c 6c 2d 66 72 65 66 73 2d 69 6e 2d 66 75 6e 63 74 69 6f 6e 20 | .....(get-all-frefs-in-function. |
| 1d8340 | 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 28 64 65 | fn)).................(push.`((de |
| 1d8360 | 66 75 6e 20 2c 6e 61 6d 65 29 20 2c 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 66 | fun.,name).,(function-location.f |
| 1d8380 | 6e 29 29 20 63 61 6c 6c 65 72 73 29 29 29 29 0a 20 20 20 20 63 61 6c 6c 65 72 73 29 29 0a 0a 28 | n)).callers)))).....callers))..( |
| 1d83a0 | 64 65 66 75 6e 20 73 70 65 63 69 61 6c 69 7a 65 72 2d 6e 61 6d 65 20 28 73 70 65 63 69 61 6c 69 | defun.specializer-name.(speciali |
| 1d83c0 | 7a 65 72 29 0a 20 20 28 69 66 20 28 74 79 70 65 70 20 73 70 65 63 69 61 6c 69 7a 65 72 20 27 73 | zer)...(if.(typep.specializer.'s |
| 1d83e0 | 74 61 6e 64 61 72 64 2d 63 6c 61 73 73 29 0a 20 20 20 20 20 20 28 6d 65 7a 7a 61 6e 6f 2e 63 6c | tandard-class).......(mezzano.cl |
| 1d8400 | 6f 73 3a 63 6c 61 73 73 2d 6e 61 6d 65 20 73 70 65 63 69 61 6c 69 7a 65 72 29 0a 20 20 20 20 20 | os:class-name.specializer)...... |
| 1d8420 | 20 73 70 65 63 69 61 6c 69 7a 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 74 2d 61 6c 6c 2d 66 | .specializer))..(defun.get-all-f |
| 1d8440 | 72 65 66 73 2d 69 6e 2d 66 75 6e 63 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 77 | refs-in-function.(function)...(w |
| 1d8460 | 68 65 6e 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 61 6c 6c 61 62 6c 65 2d 73 74 64 2d 69 6e | hen.(sys.int::funcallable-std-in |
| 1d8480 | 73 74 61 6e 63 65 2d 70 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 28 73 65 74 66 20 66 75 6e | stance-p.function).....(setf.fun |
| 1d84a0 | 63 74 69 6f 6e 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 61 6c 6c 61 62 6c 65 2d 73 74 64 2d | ction.(sys.int::funcallable-std- |
| 1d84c0 | 69 6e 73 74 61 6e 63 65 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 | instance-function.function)))... |
| 1d84e0 | 28 77 68 65 6e 20 28 73 79 73 2e 69 6e 74 3a 3a 63 6c 6f 73 75 72 65 2d 70 20 66 75 6e 63 74 69 | (when.(sys.int::closure-p.functi |
| 1d8500 | 6f 6e 29 0a 20 20 20 20 28 73 65 74 66 20 66 75 6e 63 74 69 6f 6e 20 28 73 79 73 2e 69 6e 74 3a | on).....(setf.function.(sys.int: |
| 1d8520 | 3a 25 63 6c 6f 73 75 72 65 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 | :%closure-function.function))).. |
| 1d8540 | 20 28 6c 6f 6f 70 0a 20 20 20 20 20 66 6f 72 20 69 20 62 65 6c 6f 77 20 28 73 79 73 2e 69 6e 74 | .(loop......for.i.below.(sys.int |
| 1d8560 | 3a 3a 66 75 6e 63 74 69 6f 6e 2d 70 6f 6f 6c 2d 73 69 7a 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 | ::function-pool-size.function).. |
| 1d8580 | 20 20 20 20 66 6f 72 20 65 6e 74 72 79 20 3d 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 | ....for.entry.=.(sys.int::functi |
| 1d85a0 | 6f 6e 2d 70 6f 6f 6c 2d 6f 62 6a 65 63 74 20 66 75 6e 63 74 69 6f 6e 20 69 29 0a 20 20 20 20 20 | on-pool-object.function.i)...... |
| 1d85c0 | 77 68 65 6e 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e 2d 72 65 66 65 72 65 6e 63 | when.(sys.int::function-referenc |
| 1d85e0 | 65 2d 70 20 65 6e 74 72 79 29 0a 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 65 6e 74 72 79 0a 20 20 | e-p.entry)......collect.entry... |
| 1d8600 | 20 20 20 77 68 65 6e 20 28 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 65 6e 74 | ...when.(compiled-function-p.ent |
| 1d8620 | 72 79 29 20 3b 20 63 6c 6f 73 75 72 65 73 0a 20 20 20 20 20 61 70 70 65 6e 64 20 28 67 65 74 2d | ry).;.closures......append.(get- |
| 1d8640 | 61 6c 6c 2d 66 72 65 66 73 2d 69 6e 2d 66 75 6e 63 74 69 6f 6e 20 65 6e 74 72 79 29 29 29 0a 0a | all-frefs-in-function.entry))).. |
| 1d8660 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 74 2d 63 61 6c 6c 65 65 73 20 | (defimplementation.list-callees. |
| 1d8680 | 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 6e 20 28 66 64 | (function-name)...(let*.((fn.(fd |
| 1d86a0 | 65 66 69 6e 69 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 | efinition.function-name))....... |
| 1d86c0 | 20 20 20 3b 3b 20 47 72 6f 76 65 6c 20 61 72 6f 75 6e 64 20 69 6e 20 74 68 65 20 66 75 6e 63 74 | ...;;.Grovel.around.in.the.funct |
| 1d86e0 | 69 6f 6e 27 73 20 63 6f 6e 73 74 61 6e 74 20 70 6f 6f 6c 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 0a | ion's.constant.pool.looking.for. |
| 1d8700 | 20 20 20 20 20 20 20 20 20 3b 3b 20 66 75 6e 63 74 69 6f 6e 2d 72 65 66 65 72 65 6e 63 65 73 2e | .........;;.function-references. |
| 1d8720 | 20 20 54 68 65 73 65 20 6d 61 79 20 62 65 20 66 6f 72 20 23 27 2c 20 62 75 74 20 74 68 65 79 27 | ..These.may.be.for.#',.but.they' |
| 1d8740 | 72 65 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 70 72 6f 62 61 62 6c 79 20 67 6f 69 6e 67 20 74 6f | re..........;;.probably.going.to |
| 1d8760 | 20 62 65 20 66 6f 72 20 6e 6f 72 6d 61 6c 20 63 61 6c 6c 73 2e 0a 20 20 20 20 20 20 20 20 20 3b | .be.for.normal.calls...........; |
| 1d8780 | 3b 20 54 4f 44 4f 3a 20 54 68 69 73 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b 20 77 65 6c 6c 20 6f | ;.TODO:.This.doesn't.work.well.o |
| 1d87a0 | 6e 20 69 6e 74 65 72 70 72 65 74 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 6f 72 0a 20 20 20 20 20 | n.interpreted.functions.or...... |
| 1d87c0 | 20 20 20 20 3b 3b 20 66 75 6e 63 61 6c 6c 61 62 6c 65 20 69 6e 73 74 61 6e 63 65 73 2e 0a 20 20 | ....;;.funcallable.instances.... |
| 1d87e0 | 20 20 20 20 20 20 20 28 63 61 6c 6c 65 65 73 20 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 | .......(callees.(remove-duplicat |
| 1d8800 | 65 73 20 28 67 65 74 2d 61 6c 6c 2d 66 72 65 66 73 2d 69 6e 2d 66 75 6e 63 74 69 6f 6e 20 66 6e | es.(get-all-frefs-in-function.fn |
| 1d8820 | 29 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 66 6f 72 20 66 72 65 66 20 69 | )))).....(loop........for.fref.i |
| 1d8840 | 6e 20 63 61 6c 6c 65 65 73 0a 20 20 20 20 20 20 20 66 6f 72 20 6e 61 6d 65 20 3d 20 28 73 79 73 | n.callees........for.name.=.(sys |
| 1d8860 | 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e 2d 72 65 66 65 72 65 6e 63 65 2d 6e 61 6d 65 20 66 72 | .int::function-reference-name.fr |
| 1d8880 | 65 66 29 0a 20 20 20 20 20 20 20 66 6f 72 20 66 6e 20 3d 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 | ef)........for.fn.=.(sys.int::fu |
| 1d88a0 | 6e 63 74 69 6f 6e 2d 72 65 66 65 72 65 6e 63 65 2d 66 75 6e 63 74 69 6f 6e 20 66 72 65 66 29 0a | nction-reference-function.fref). |
| 1d88c0 | 20 20 20 20 20 20 20 77 68 65 6e 20 66 6e 0a 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 | .......when.fn........collect.`( |
| 1d88e0 | 28 64 65 66 75 6e 20 2c 6e 61 6d 65 29 20 2c 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f | (defun.,name).,(function-locatio |
| 1d8900 | 6e 20 66 6e 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 0a 28 | n.fn)))))..;;;;.Documentation..( |
| 1d8920 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 72 67 6c 69 73 74 20 28 6e 61 6d 65 29 | defimplementation.arglist.(name) |
| 1d8940 | 0a 20 20 28 6c 65 74 20 28 28 6d 61 63 72 6f 20 28 77 68 65 6e 20 28 73 79 6d 62 6f 6c 70 20 6e | ...(let.((macro.(when.(symbolp.n |
| 1d8960 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 66 75 6e | ame)..................(macro-fun |
| 1d8980 | 63 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 6e 20 28 69 66 20 28 66 | ction.name))).........(fn.(if.(f |
| 1d89a0 | 75 6e 63 74 69 6f 6e 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e | unctionp.name).................n |
| 1d89c0 | 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f | ame.................(ignore-erro |
| 1d89e0 | 72 73 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 28 63 | rs.(fdefinition.name))))).....(c |
| 1d8a00 | 6f 6e 64 0a 20 20 20 20 20 20 28 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 28 67 65 74 20 6e 61 6d | ond.......(macro........(get.nam |
| 1d8a20 | 65 20 27 73 79 73 2e 69 6e 74 3a 3a 6d 61 63 72 6f 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 29 29 0a | e.'sys.int::macro-lambda-list)). |
| 1d8a40 | 20 20 20 20 20 20 28 66 6e 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 | ......(fn........(cond.......... |
| 1d8a60 | 28 28 74 79 70 65 70 20 66 6e 20 27 6d 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 3a 73 74 61 6e 64 61 72 | ((typep.fn.'mezzano.clos:standar |
| 1d8a80 | 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d | d-generic-function)...........(m |
| 1d8aa0 | 65 7a 7a 61 6e 6f 2e 63 6c 6f 73 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d | ezzano.clos:generic-function-lam |
| 1d8ac0 | 62 64 61 2d 6c 69 73 74 20 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 | bda-list.fn))..........(t....... |
| 1d8ae0 | 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 66 6e 29 29 29 29 | ....(function-lambda-list.fn)))) |
| 1d8b00 | 0a 20 20 20 20 20 20 28 74 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 29 0a 0a 28 64 | .......(t.:not-available))))..(d |
| 1d8b20 | 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 28 66 75 6e 63 74 | efun.function-lambda-list.(funct |
| 1d8b40 | 69 6f 6e 29 0a 20 20 28 73 79 73 2e 69 6e 74 3a 3a 64 65 62 75 67 2d 69 6e 66 6f 2d 6c 61 6d 62 | ion)...(sys.int::debug-info-lamb |
| 1d8b60 | 64 61 2d 6c 69 73 74 0a 20 20 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e 2d 64 65 | da-list....(sys.int::function-de |
| 1d8b80 | 62 75 67 2d 69 6e 66 6f 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | bug-info.function)))..(defimplem |
| 1d8ba0 | 65 6e 74 61 74 69 6f 6e 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 28 73 79 6d 62 6f | entation.type-specifier-p.(symbo |
| 1d8bc0 | 6c 29 0a 20 20 28 63 6f 6e 64 0a 20 20 20 20 28 28 6f 72 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 | l)...(cond.....((or.(get.symbol. |
| 1d8be0 | 27 73 79 73 2e 69 6e 74 3a 3a 74 79 70 65 2d 65 78 70 61 6e 64 65 72 29 0a 20 20 20 20 20 20 20 | 'sys.int::type-expander)........ |
| 1d8c00 | 20 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 27 73 79 73 2e 69 6e 74 3a 3a 63 6f 6d 70 6f 75 6e 64 | ..(get.symbol.'sys.int::compound |
| 1d8c20 | 2d 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 27 73 79 73 | -type)..........(get.symbol.'sys |
| 1d8c40 | 2e 69 6e 74 3a 3a 74 79 70 65 2d 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 74 29 0a 20 20 20 20 | .int::type-symbol))......t)..... |
| 1d8c60 | 28 74 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | (t.:not-available)))..(defimplem |
| 1d8c80 | 65 6e 74 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 66 75 6e 63 74 69 6f 6e | entation.function-name.(function |
| 1d8ca0 | 29 0a 20 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 63 | )...(sys.int::function-name.func |
| 1d8cc0 | 74 69 6f 6e 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 76 61 6c 69 64 | tion))..(defimplementation.valid |
| 1d8ce0 | 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 20 28 66 6f 72 6d 29 0a 20 20 22 49 73 20 46 4f | -function-name-p.(form)..."Is.FO |
| 1d8d00 | 52 4d 20 73 79 6e 74 61 63 74 69 63 61 6c 6c 79 20 76 61 6c 69 64 20 74 6f 20 6e 61 6d 65 20 61 | RM.syntactically.valid.to.name.a |
| 1d8d20 | 20 66 75 6e 63 74 69 6f 6e 3f 0a 20 20 20 49 66 20 74 72 75 65 2c 20 46 42 4f 55 4e 44 50 20 73 | .function?....If.true,.FBOUNDP.s |
| 1d8d40 | 68 6f 75 6c 64 20 6e 6f 74 20 73 69 67 6e 61 6c 20 61 20 74 79 70 65 2d 65 72 72 6f 72 20 66 6f | hould.not.signal.a.type-error.fo |
| 1d8d60 | 72 20 46 4f 52 4d 2e 22 0a 20 20 28 66 6c 65 74 20 28 28 6c 65 6e 67 74 68 3d 32 20 28 6c 69 73 | r.FORM."...(flet.((length=2.(lis |
| 1d8d80 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6e 6f 74 20 28 6e 75 6c 6c 20 28 63 | t)............(and.(not.(null.(c |
| 1d8da0 | 64 72 20 6c 69 73 74 29 29 29 20 28 6e 75 6c 6c 20 28 63 64 64 72 20 6c 69 73 74 29 29 29 29 29 | dr.list))).(null.(cddr.list))))) |
| 1d8dc0 | 0a 20 20 20 20 28 6f 72 20 28 73 79 6d 62 6f 6c 70 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 | .....(or.(symbolp.form)......... |
| 1d8de0 | 28 61 6e 64 20 28 63 6f 6e 73 70 20 66 6f 72 6d 29 20 28 6c 65 6e 67 74 68 3d 32 20 66 6f 72 6d | (and.(consp.form).(length=2.form |
| 1d8e00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 65 71 20 28 66 69 72 73 74 20 66 6f | )..............(or.(eq.(first.fo |
| 1d8e20 | 72 6d 29 20 27 73 65 74 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 | rm).'setf)..................(eq. |
| 1d8e40 | 28 66 69 72 73 74 20 66 6f 72 6d 29 20 27 73 79 73 2e 69 6e 74 3a 3a 63 61 73 29 29 0a 20 20 20 | (first.form).'sys.int::cas)).... |
| 1d8e60 | 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 70 20 28 73 65 63 6f 6e 64 20 66 6f 72 6d 29 | ..........(symbolp.(second.form) |
| 1d8e80 | 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 | )))))..(defimplementation.descri |
| 1d8ea0 | 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 | be-symbol-for-emacs.(symbol)...( |
| 1d8ec0 | 6c 65 74 20 28 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 62 6f | let.((result.'())).....(when.(bo |
| 1d8ee0 | 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 72 | undp.symbol).......(setf.(getf.r |
| 1d8f00 | 65 73 75 6c 74 20 3a 76 61 72 69 61 62 6c 65 29 20 6e 69 6c 29 29 0a 20 20 20 20 28 77 68 65 6e | esult.:variable).nil)).....(when |
| 1d8f20 | 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 | .(and.(fboundp.symbol).......... |
| 1d8f40 | 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f | ......(not.(macro-function.symbo |
| 1d8f60 | 6c 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 72 65 73 75 6c 74 20 3a 66 | l))).......(setf.(getf.result.:f |
| 1d8f80 | 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 64 | unction).............(function-d |
| 1d8fa0 | 6f 63 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 66 62 | ocstring.symbol))).....(when.(fb |
| 1d8fc0 | 6f 75 6e 64 70 20 60 28 73 65 74 66 20 2c 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 28 73 65 | oundp.`(setf.,symbol)).......(se |
| 1d8fe0 | 74 66 20 28 67 65 74 66 20 72 65 73 75 6c 74 20 3a 73 65 74 66 29 0a 20 20 20 20 20 20 20 20 20 | tf.(getf.result.:setf).......... |
| 1d9000 | 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 64 6f 63 73 74 72 69 6e 67 20 60 28 73 65 74 66 20 2c 73 | ...(function-docstring.`(setf.,s |
| 1d9020 | 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 | ymbol)))).....(when.(get.symbol. |
| 1d9040 | 27 73 79 73 2e 69 6e 74 3a 3a 73 65 74 66 2d 65 78 70 61 6e 64 65 72 29 0a 20 20 20 20 20 20 28 | 'sys.int::setf-expander).......( |
| 1d9060 | 73 65 74 66 20 28 67 65 74 66 20 72 65 73 75 6c 74 20 3a 73 65 74 66 29 20 6e 69 6c 29 29 0a 20 | setf.(getf.result.:setf).nil)).. |
| 1d9080 | 20 20 20 28 77 68 65 6e 20 28 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 2d 70 20 73 79 6d | ...(when.(special-operator-p.sym |
| 1d90a0 | 62 6f 6c 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 72 65 73 75 6c 74 20 3a 73 | bol).......(setf.(getf.result.:s |
| 1d90c0 | 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 29 20 6e 69 6c 29 29 0a 20 20 20 20 28 77 68 65 6e | pecial-operator).nil)).....(when |
| 1d90e0 | 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 | .(macro-function.symbol).......( |
| 1d9100 | 73 65 74 66 20 28 67 65 74 66 20 72 65 73 75 6c 74 20 3a 6d 61 63 72 6f 29 20 6e 69 6c 29 29 0a | setf.(getf.result.:macro).nil)). |
| 1d9120 | 20 20 20 20 28 77 68 65 6e 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 6e 63 74 69 | ....(when.(compiler-macro-functi |
| 1d9140 | 6f 6e 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 72 65 73 | on.symbol).......(setf.(getf.res |
| 1d9160 | 75 6c 74 20 3a 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 29 20 6e 69 6c 29 29 0a 20 20 20 20 28 | ult.:compiler-macro).nil)).....( |
| 1d9180 | 77 68 65 6e 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 73 79 6d 62 6f 6c 29 0a 20 | when.(type-specifier-p.symbol).. |
| 1d91a0 | 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 72 65 73 75 6c 74 20 3a 74 79 70 65 29 20 6e | .....(setf.(getf.result.:type).n |
| 1d91c0 | 69 6c 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f | il)).....(when.(find-class.symbo |
| 1d91e0 | 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 72 65 73 75 6c 74 20 | l.nil).......(setf.(getf.result. |
| 1d9200 | 3a 63 6c 61 73 73 29 20 6e 69 6c 29 29 0a 20 20 20 20 72 65 73 75 6c 74 29 29 0a 0a 28 64 65 66 | :class).nil)).....result))..(def |
| 1d9220 | 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 64 6f 63 73 74 72 69 6e 67 20 28 66 75 6e 63 74 69 6f 6e 2d | un.function-docstring.(function- |
| 1d9240 | 6e 61 6d 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 65 66 69 6e 69 74 69 6f 6e 20 28 66 64 65 66 | name)...(let*.((definition.(fdef |
| 1d9260 | 69 6e 69 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 | inition.function-name))......... |
| 1d9280 | 20 28 64 65 62 75 67 2d 69 6e 66 6f 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e 2d | .(debug-info.(sys.int::function- |
| 1d92a0 | 64 65 62 75 67 2d 69 6e 66 6f 20 64 65 66 69 6e 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 73 79 | debug-info.definition))).....(sy |
| 1d92c0 | 73 2e 69 6e 74 3a 3a 64 65 62 75 67 2d 69 6e 66 6f 2d 64 6f 63 73 74 72 69 6e 67 20 64 65 62 75 | s.int::debug-info-docstring.debu |
| 1d92e0 | 67 2d 69 6e 66 6f 29 29 29 0a 0a 3b 3b 3b 3b 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 0a 0a | g-info)))..;;;;.Multithreading.. |
| 1d9300 | 3b 3b 20 46 49 58 4d 45 3a 20 54 68 69 73 20 73 68 6f 75 6c 64 20 62 65 20 61 20 77 65 61 6b 20 | ;;.FIXME:.This.should.be.a.weak. |
| 1d9320 | 74 61 62 6c 65 2e 0a 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 73 2d 66 6f 72 2d 65 | table..(defvar.*thread-ids-for-e |
| 1d9340 | 6d 61 63 73 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 28 64 65 66 76 61 72 | macs*.(make-hash-table)).(defvar |
| 1d9360 | 20 2a 6e 65 78 74 2d 74 68 72 65 61 64 2d 69 64 2d 66 6f 72 2d 65 6d 61 63 73 2a 20 30 29 0a 28 | .*next-thread-id-for-emacs*.0).( |
| 1d9380 | 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 66 6f 72 2d 65 6d 61 63 73 2d 6c 6f 63 6b | defvar.*thread-id-for-emacs-lock |
| 1d93a0 | 2a 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 6d 61 6b 65 2d 6d 75 74 65 78 | *.(mezzano.supervisor:make-mutex |
| 1d93c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1d93e0 | 20 20 20 20 20 22 53 57 41 4e 4b 20 74 68 72 65 61 64 20 49 44 20 74 61 62 6c 65 22 29 29 0a 0a | ....."SWANK.thread.ID.table")).. |
| 1d9400 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 70 61 77 6e 20 28 66 6e 20 26 6b 65 | (defimplementation.spawn.(fn.&ke |
| 1d9420 | 79 20 6e 61 6d 65 29 0a 20 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 6d 61 | y.name)...(mezzano.supervisor:ma |
| 1d9440 | 6b 65 2d 74 68 72 65 61 64 20 66 6e 20 3a 6e 61 6d 65 20 6e 61 6d 65 29 29 0a 0a 28 64 65 66 69 | ke-thread.fn.:name.name))..(defi |
| 1d9460 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 20 28 74 68 72 65 61 64 29 | mplementation.thread-id.(thread) |
| 1d9480 | 0a 20 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 77 69 74 68 2d 6d 75 74 65 | ...(mezzano.supervisor:with-mute |
| 1d94a0 | 78 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 66 6f 72 2d 65 6d 61 63 73 2d 6c 6f 63 6b 2a 29 0a 20 | x.(*thread-id-for-emacs-lock*).. |
| 1d94c0 | 20 20 20 28 6c 65 74 20 28 28 69 64 20 28 67 65 74 68 61 73 68 20 74 68 72 65 61 64 20 2a 74 68 | ...(let.((id.(gethash.thread.*th |
| 1d94e0 | 72 65 61 64 2d 69 64 73 2d 66 6f 72 2d 65 6d 61 63 73 2a 29 29 29 0a 20 20 20 20 20 20 28 77 68 | read-ids-for-emacs*))).......(wh |
| 1d9500 | 65 6e 20 28 6e 75 6c 6c 20 69 64 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 69 64 20 28 69 | en.(null.id).........(setf.id.(i |
| 1d9520 | 6e 63 66 20 2a 6e 65 78 74 2d 74 68 72 65 61 64 2d 69 64 2d 66 6f 72 2d 65 6d 61 63 73 2a 29 0a | ncf.*next-thread-id-for-emacs*). |
| 1d9540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 68 61 73 68 20 74 68 72 65 61 64 20 2a 74 | ..............(gethash.thread.*t |
| 1d9560 | 68 72 65 61 64 2d 69 64 73 2d 66 6f 72 2d 65 6d 61 63 73 2a 29 20 69 64 0a 20 20 20 20 20 20 20 | hread-ids-for-emacs*).id........ |
| 1d9580 | 20 20 20 20 20 20 20 28 67 65 74 68 61 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 73 2d 66 | .......(gethash.id.*thread-ids-f |
| 1d95a0 | 6f 72 2d 65 6d 61 63 73 2a 29 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 69 64 29 29 29 0a | or-emacs*).thread)).......id))). |
| 1d95c0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 74 68 72 65 61 64 20 | .(defimplementation.find-thread. |
| 1d95e0 | 28 69 64 29 0a 20 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 77 69 74 68 2d | (id)...(mezzano.supervisor:with- |
| 1d9600 | 6d 75 74 65 78 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 66 6f 72 2d 65 6d 61 63 73 2d 6c 6f 63 6b | mutex.(*thread-id-for-emacs-lock |
| 1d9620 | 2a 29 0a 20 20 20 20 28 67 65 74 68 61 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 73 2d 66 | *).....(gethash.id.*thread-ids-f |
| 1d9640 | 6f 72 2d 65 6d 61 63 73 2a 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | or-emacs*)))..(defimplementation |
| 1d9660 | 20 74 68 72 65 61 64 2d 6e 61 6d 65 20 28 74 68 72 65 61 64 29 0a 20 20 28 6d 65 7a 7a 61 6e 6f | .thread-name.(thread)...(mezzano |
| 1d9680 | 2e 73 75 70 65 72 76 69 73 6f 72 3a 74 68 72 65 61 64 2d 6e 61 6d 65 20 74 68 72 65 61 64 29 29 | .supervisor:thread-name.thread)) |
| 1d96a0 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 73 74 61 74 | ..(defimplementation.thread-stat |
| 1d96c0 | 75 73 20 28 74 68 72 65 61 64 29 0a 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 3a 28 7e 41 | us.(thread)...(format.nil."~:(~A |
| 1d96e0 | 7e 29 22 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 74 68 72 65 61 64 2d 73 | ~)".(mezzano.supervisor:thread-s |
| 1d9700 | 74 61 74 65 20 74 68 72 65 61 64 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | tate.thread)))..(defimplementati |
| 1d9720 | 6f 6e 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 28 6d 65 7a 7a 61 6e 6f 2e | on.current-thread.()...(mezzano. |
| 1d9740 | 73 75 70 65 72 76 69 73 6f 72 3a 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 0a 0a 28 64 65 | supervisor:current-thread))..(de |
| 1d9760 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 | fimplementation.all-threads.().. |
| 1d9780 | 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 61 6c 6c 2d 74 68 72 65 61 64 73 | .(mezzano.supervisor:all-threads |
| 1d97a0 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 61 6c | ))..(defimplementation.thread-al |
| 1d97c0 | 69 76 65 2d 70 20 28 74 68 72 65 61 64 29 0a 20 20 28 6e 6f 74 20 28 65 71 6c 20 28 6d 65 7a 7a | ive-p.(thread)...(not.(eql.(mezz |
| 1d97e0 | 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 74 68 72 65 61 64 2d 73 74 61 74 65 20 74 68 72 65 | ano.supervisor:thread-state.thre |
| 1d9800 | 61 64 29 20 3a 64 65 61 64 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ad).:dead)))..(defimplementation |
| 1d9820 | 20 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 20 66 6e 29 0a 20 20 | .interrupt-thread.(thread.fn)... |
| 1d9840 | 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 65 73 74 61 62 6c 69 73 68 2d 74 68 | (mezzano.supervisor:establish-th |
| 1d9860 | 72 65 61 64 2d 66 6f 6f 74 68 6f 6c 64 20 74 68 72 65 61 64 20 66 6e 29 29 0a 0a 28 64 65 66 69 | read-foothold.thread.fn))..(defi |
| 1d9880 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 | mplementation.kill-thread.(threa |
| 1d98a0 | 64 29 0a 20 20 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 61 79 73 20 6e 6f 74 20 74 | d)...;;.Documentation.says.not.t |
| 1d98c0 | 6f 20 65 78 65 63 75 74 65 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 65 64 20 73 65 63 74 69 | o.execute.unwind-protected.secti |
| 1d98e0 | 6f 6e 73 2c 20 62 75 74 20 74 68 65 72 65 27 73 0a 20 20 3b 3b 20 6e 6f 20 77 61 79 20 74 6f 20 | ons,.but.there's...;;.no.way.to. |
| 1d9900 | 64 6f 20 74 68 61 74 2e 0a 20 20 3b 3b 20 41 6e 64 20 6b 69 6c 6c 69 6e 67 20 74 68 72 65 61 64 | do.that....;;.And.killing.thread |
| 1d9920 | 73 20 61 74 20 61 72 62 69 74 72 61 72 79 20 70 6f 69 6e 74 73 20 77 69 74 68 6f 75 74 20 75 6e | s.at.arbitrary.points.without.un |
| 1d9940 | 77 69 6e 64 69 6e 67 20 74 68 65 6d 20 69 73 20 61 20 67 6f 6f 64 0a 20 20 3b 3b 20 77 61 79 20 | winding.them.is.a.good...;;.way. |
| 1d9960 | 74 6f 20 68 6f 73 65 20 74 68 65 20 73 79 73 74 65 6d 2e 0a 20 20 28 6d 65 7a 7a 61 6e 6f 2e 73 | to.hose.the.system....(mezzano.s |
| 1d9980 | 75 70 65 72 76 69 73 6f 72 3a 74 65 72 6d 69 6e 61 74 65 2d 74 68 72 65 61 64 20 74 68 72 65 61 | upervisor:terminate-thread.threa |
| 1d99a0 | 64 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 20 28 6d 65 7a | d))..(defvar.*mailbox-lock*.(mez |
| 1d99c0 | 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 6d 61 6b 65 2d 6d 75 74 65 78 20 22 6d 61 69 6c | zano.supervisor:make-mutex."mail |
| 1d99e0 | 62 6f 78 20 6c 6f 63 6b 22 29 29 0a 28 64 65 66 76 61 72 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 20 | box.lock")).(defvar.*mailboxes*. |
| 1d9a00 | 28 6c 69 73 74 29 29 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 6d 61 69 6c 62 6f 78 20 28 3a 63 | (list))..(defstruct.(mailbox.(:c |
| 1d9a20 | 6f 6e 63 2d 6e 61 6d 65 20 6d 61 69 6c 62 6f 78 2e 29 29 0a 20 20 74 68 72 65 61 64 0a 20 20 28 | onc-name.mailbox.))...thread...( |
| 1d9a40 | 6d 75 74 65 78 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 6d 61 6b 65 2d 6d | mutex.(mezzano.supervisor:make-m |
| 1d9a60 | 75 74 65 78 29 29 0a 20 20 28 71 75 65 75 65 20 27 28 29 20 3a 74 79 70 65 20 6c 69 73 74 29 29 | utex))...(queue.'().:type.list)) |
| 1d9a80 | 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c 62 6f 78 20 28 74 68 72 65 61 64 29 0a 20 20 22 52 65 74 | ..(defun.mailbox.(thread)..."Ret |
| 1d9aa0 | 75 72 6e 20 54 48 52 45 41 44 27 73 20 6d 61 69 6c 62 6f 78 2e 22 0a 20 20 3b 3b 20 55 73 65 20 | urn.THREAD's.mailbox."...;;.Use. |
| 1d9ac0 | 77 65 61 6b 20 70 6f 69 6e 74 65 72 73 20 74 6f 20 61 76 6f 69 64 20 68 6f 6c 64 69 6e 67 20 6f | weak.pointers.to.avoid.holding.o |
| 1d9ae0 | 6e 20 74 6f 20 64 65 61 64 20 74 68 72 65 61 64 73 20 66 6f 72 65 76 65 72 2e 0a 20 20 28 6d 65 | n.to.dead.threads.forever....(me |
| 1d9b00 | 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 77 69 74 68 2d 6d 75 74 65 78 20 28 2a 6d 61 | zzano.supervisor:with-mutex.(*ma |
| 1d9b20 | 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 3b 3b 20 46 6c 75 73 68 20 66 6f 72 67 6f 74 | ilbox-lock*).....;;.Flush.forgot |
| 1d9b40 | 74 65 6e 20 74 68 72 65 61 64 73 2e 0a 20 20 20 20 28 73 65 74 66 20 2a 6d 61 69 6c 62 6f 78 65 | ten.threads......(setf.*mailboxe |
| 1d9b60 | 73 2a 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 27 73 79 | s*...........(remove-if-not.#'sy |
| 1d9b80 | 73 2e 69 6e 74 3a 3a 77 65 61 6b 2d 70 6f 69 6e 74 65 72 2d 76 61 6c 75 65 20 2a 6d 61 69 6c 62 | s.int::weak-pointer-value.*mailb |
| 1d9ba0 | 6f 78 65 73 2a 29 29 0a 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 66 6f 72 20 65 6e 74 | oxes*)).....(loop........for.ent |
| 1d9bc0 | 72 79 20 69 6e 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 0a 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 | ry.in.*mailboxes*........do..... |
| 1d9be0 | 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6b 65 79 20 76 | .....(multiple-value-bind.(key.v |
| 1d9c00 | 61 6c 75 65 20 6c 69 76 65 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 2e 69 6e | alue.livep)..............(sys.in |
| 1d9c20 | 74 3a 3a 77 65 61 6b 2d 70 6f 69 6e 74 65 72 2d 70 61 69 72 20 65 6e 74 72 79 29 0a 20 20 20 20 | t::weak-pointer-pair.entry)..... |
| 1d9c40 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 6c 20 6b 65 79 20 74 68 72 65 61 64 29 0a 20 20 | .......(when.(eql.key.thread)... |
| 1d9c60 | 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 76 61 6c 75 65 29 29 29 0a 20 20 20 20 | ...........(return.value)))..... |
| 1d9c80 | 20 20 20 66 69 6e 61 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 62 20 28 6d | ...finally..........(let.((mb.(m |
| 1d9ca0 | 61 6b 65 2d 6d 61 69 6c 62 6f 78 20 3a 74 68 72 65 61 64 20 74 68 72 65 61 64 29 29 29 0a 20 20 | ake-mailbox.:thread.thread)))... |
| 1d9cc0 | 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 73 79 73 2e 69 6e 74 3a 3a 6d 61 6b 65 2d 77 65 | .........(push.(sys.int::make-we |
| 1d9ce0 | 61 6b 2d 70 6f 69 6e 74 65 72 20 74 68 72 65 61 64 20 6d 62 29 20 2a 6d 61 69 6c 62 6f 78 65 73 | ak-pointer.thread.mb).*mailboxes |
| 1d9d00 | 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 6d 62 29 29 29 29 29 0a 0a 28 | *)............(return.mb)))))..( |
| 1d9d20 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 6e 64 20 28 74 68 72 65 61 64 20 6d | defimplementation.send.(thread.m |
| 1d9d40 | 65 73 73 61 67 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 | essage)...(let*.((mbox.(mailbox. |
| 1d9d60 | 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 75 74 65 78 20 28 6d 61 69 6c 62 6f | thread))..........(mutex.(mailbo |
| 1d9d80 | 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 29 0a 20 20 20 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 | x.mutex.mbox))).....(mezzano.sup |
| 1d9da0 | 65 72 76 69 73 6f 72 3a 77 69 74 68 2d 6d 75 74 65 78 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 | ervisor:with-mutex.(mutex)...... |
| 1d9dc0 | 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 | .(setf.(mailbox.queue.mbox)..... |
| 1d9de0 | 20 20 20 20 20 20 20 20 28 6e 63 6f 6e 63 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 | ........(nconc.(mailbox.queue.mb |
| 1d9e00 | 6f 78 29 20 28 6c 69 73 74 20 6d 65 73 73 61 67 65 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 | ox).(list.message))))))..(defvar |
| 1d9e20 | 20 2a 72 65 63 65 69 76 65 2d 69 66 2d 73 6c 65 65 70 2d 74 69 6d 65 2a 20 30 2e 30 32 29 0a 0a | .*receive-if-sleep-time*.0.02).. |
| 1d9e40 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 69 76 65 2d 69 66 20 28 74 | (defimplementation.receive-if.(t |
| 1d9e60 | 65 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 6c 65 74 2a 20 28 | est.&optional.timeout)...(let*.( |
| 1d9e80 | 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 | (mbox.(mailbox.(current-thread)) |
| 1d9ea0 | 29 0a 20 20 20 20 20 20 20 20 20 28 6d 75 74 65 78 20 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 | )..........(mutex.(mailbox.mutex |
| 1d9ec0 | 20 6d 62 6f 78 29 29 29 0a 20 20 20 20 28 61 73 73 65 72 74 20 28 6f 72 20 28 6e 6f 74 20 74 69 | .mbox))).....(assert.(or.(not.ti |
| 1d9ee0 | 6d 65 6f 75 74 29 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 29 29 0a 20 20 20 20 28 6c 6f 6f | meout).(eq.timeout.t))).....(loo |
| 1d9f00 | 70 0a 20 20 20 20 20 20 20 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 | p........(check-slime-interrupts |
| 1d9f20 | 29 0a 20 20 20 20 20 20 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 77 69 74 | )........(mezzano.supervisor:wit |
| 1d9f40 | 68 2d 6d 75 74 65 78 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 | h-mutex.(mutex)..........(let*.( |
| 1d9f60 | 28 71 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 | (q.(mailbox.queue.mbox))........ |
| 1d9f80 | 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 20 28 6d 65 6d 62 65 72 2d 69 66 20 74 65 73 74 20 71 | .........(tail.(member-if.test.q |
| 1d9fa0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 74 61 69 6c 0a 20 20 20 20 20 20 | )))............(when.tail....... |
| 1d9fc0 | 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 | .......(setf.(mailbox.queue.mbox |
| 1d9fe0 | 29 20 28 6e 63 6f 6e 63 20 28 6c 64 69 66 66 20 71 20 74 61 69 6c 29 20 28 63 64 72 20 74 61 69 | ).(nconc.(ldiff.q.tail).(cdr.tai |
| 1da000 | 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 63 61 72 20 74 | l)))..............(return.(car.t |
| 1da020 | 61 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 74 69 6d 65 6f | ail))))..........(when.(eq.timeo |
| 1da040 | 75 74 20 74 29 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 74 29 29 29 29 0a | ut.t).(return.(values.nil.t)))). |
| 1da060 | 20 20 20 20 20 20 20 28 73 6c 65 65 70 20 2a 72 65 63 65 69 76 65 2d 69 66 2d 73 6c 65 65 70 2d | .......(sleep.*receive-if-sleep- |
| 1da080 | 74 69 6d 65 2a 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 72 65 67 69 73 74 65 72 65 64 2d 74 | time*))))..(defvar.*registered-t |
| 1da0a0 | 68 72 65 61 64 73 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 28 64 65 66 76 | hreads*.(make-hash-table)).(defv |
| 1da0c0 | 61 72 20 2a 72 65 67 69 73 74 65 72 65 64 2d 74 68 72 65 61 64 73 2d 6c 6f 63 6b 2a 0a 20 20 28 | ar.*registered-threads-lock*...( |
| 1da0e0 | 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 6d 61 6b 65 2d 6d 75 74 65 78 20 22 72 | mezzano.supervisor:make-mutex."r |
| 1da100 | 65 67 69 73 74 65 72 65 64 20 74 68 72 65 61 64 73 20 6c 6f 63 6b 22 29 29 0a 0a 28 64 65 66 69 | egistered.threads.lock"))..(defi |
| 1da120 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 67 69 73 74 65 72 2d 74 68 72 65 61 64 20 28 6e | mplementation.register-thread.(n |
| 1da140 | 61 6d 65 20 74 68 72 65 61 64 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 73 79 6d | ame.thread)...(declare.(type.sym |
| 1da160 | 62 6f 6c 20 6e 61 6d 65 29 29 0a 20 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 | bol.name))...(mezzano.supervisor |
| 1da180 | 3a 77 69 74 68 2d 6d 75 74 65 78 20 28 2a 72 65 67 69 73 74 65 72 65 64 2d 74 68 72 65 61 64 73 | :with-mutex.(*registered-threads |
| 1da1a0 | 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 74 68 72 65 61 64 0a 20 20 | -lock*).....(etypecase.thread... |
| 1da1c0 | 20 20 20 20 28 6e 75 6c 6c 0a 20 20 20 20 20 20 20 28 72 65 6d 68 61 73 68 20 6e 61 6d 65 20 2a | ....(null........(remhash.name.* |
| 1da1e0 | 72 65 67 69 73 74 65 72 65 64 2d 74 68 72 65 61 64 73 2a 29 29 0a 20 20 20 20 20 20 28 6d 65 7a | registered-threads*)).......(mez |
| 1da200 | 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 28 73 | zano.supervisor:thread........(s |
| 1da220 | 65 74 66 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 2a 72 65 67 69 73 74 65 72 65 64 2d 74 68 | etf.(gethash.name.*registered-th |
| 1da240 | 72 65 61 64 73 2a 29 20 74 68 72 65 61 64 29 29 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 69 | reads*).thread))))...nil)..(defi |
| 1da260 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 72 65 67 69 73 74 65 72 65 64 20 28 6e | mplementation.find-registered.(n |
| 1da280 | 61 6d 65 29 0a 20 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 77 69 74 68 2d | ame)...(mezzano.supervisor:with- |
| 1da2a0 | 6d 75 74 65 78 20 28 2a 72 65 67 69 73 74 65 72 65 64 2d 74 68 72 65 61 64 73 2d 6c 6f 63 6b 2a | mutex.(*registered-threads-lock* |
| 1da2c0 | 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 2a 72 65 67 | ).....(values.(gethash.name.*reg |
| 1da2e0 | 69 73 74 65 72 65 64 2d 74 68 72 65 61 64 73 2a 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | istered-threads*))))..(defimplem |
| 1da300 | 65 6e 74 61 74 69 6f 6e 20 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 20 28 73 74 72 65 61 6d 73 | entation.wait-for-input.(streams |
| 1da320 | 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 20 | .&optional.timeout)...(loop..... |
| 1da340 | 20 20 20 28 6c 65 74 20 28 28 72 65 61 64 79 20 27 28 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 | ...(let.((ready.'()))..........( |
| 1da360 | 64 6f 6c 69 73 74 20 28 73 20 73 74 72 65 61 6d 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 | dolist.(s.streams)............(w |
| 1da380 | 68 65 6e 20 28 6f 72 20 28 6c 69 73 74 65 6e 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | hen.(or.(listen.s).............. |
| 1da3a0 | 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 74 79 70 65 70 20 73 20 27 6d 65 7a 7a 61 6e 6f 2e 6e | ........(and.(typep.s.'mezzano.n |
| 1da3c0 | 65 74 77 6f 72 6b 2e 74 63 70 3a 3a 74 63 70 2d 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 | etwork.tcp::tcp-stream)......... |
| 1da3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 7a 7a 61 6e 6f 2e 6e 65 74 77 6f | ..................(mezzano.netwo |
| 1da400 | 72 6b 2e 74 63 70 3a 3a 74 63 70 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6c 6f 73 65 64 2d 70 20 | rk.tcp::tcp-connection-closed-p. |
| 1da420 | 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 73 20 72 65 61 64 79 29 | s)))..............(push.s.ready) |
| 1da440 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 61 64 79 0a 20 20 20 20 20 20 20 20 | ))..........(when.ready......... |
| 1da460 | 20 20 20 28 72 65 74 75 72 6e 20 72 65 61 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 | ...(return.ready))..........(whe |
| 1da480 | 6e 20 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 20 | n.(check-slime-interrupts)...... |
| 1da4a0 | 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 3a 69 6e 74 65 72 72 75 70 74 29 29 0a 20 20 20 20 20 | ......(return.:interrupt))...... |
| 1da4c0 | 20 20 20 20 28 77 68 65 6e 20 74 69 6d 65 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 | ....(when.timeout............(re |
| 1da4e0 | 74 75 72 6e 20 27 28 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 6c 65 65 70 20 31 29 0a 20 20 | turn.'()))..........(sleep.1)... |
| 1da500 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e 75 6d 62 65 72 70 20 74 69 6d 65 6f 75 74 29 0a 20 | .......(when.(numberp.timeout).. |
| 1da520 | 20 20 20 20 20 20 20 20 20 20 28 64 65 63 66 20 74 69 6d 65 6f 75 74 20 31 29 0a 20 20 20 20 20 | ..........(decf.timeout.1)...... |
| 1da540 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 28 70 6c 75 73 70 20 74 69 6d 65 6f 75 74 29 | ......(when.(not.(plusp.timeout) |
| 1da560 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 27 28 29 29 29 29 29 29 29 | )..............(return.'())))))) |
| 1da580 | 0a 0a 3b 3b 3b 3b 20 20 4c 6f 63 6b 73 0a 0a 28 64 65 66 73 74 72 75 63 74 20 72 65 63 75 72 73 | ..;;;;..Locks..(defstruct.recurs |
| 1da5a0 | 69 76 65 2d 6c 6f 63 6b 0a 20 20 6d 75 74 65 78 0a 20 20 28 64 65 70 74 68 20 30 29 29 0a 0a 28 | ive-lock...mutex...(depth.0))..( |
| 1da5c0 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 6c 6f 63 6b 20 28 26 6b 65 | defimplementation.make-lock.(&ke |
| 1da5e0 | 79 20 6e 61 6d 65 29 0a 20 20 28 6d 61 6b 65 2d 72 65 63 75 72 73 69 76 65 2d 6c 6f 63 6b 0a 20 | y.name)...(make-recursive-lock.. |
| 1da600 | 20 20 3a 6d 75 74 65 78 20 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 69 73 6f 72 3a 6d 61 6b | ..:mutex.(mezzano.supervisor:mak |
| 1da620 | 65 2d 6d 75 74 65 78 20 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | e-mutex.name)))..(defimplementat |
| 1da640 | 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 6c 6f 63 6b 20 66 75 | ion.call-with-lock-held.(lock.fu |
| 1da660 | 6e 63 74 69 6f 6e 29 0a 20 20 28 63 6f 6e 64 20 28 28 6d 65 7a 7a 61 6e 6f 2e 73 75 70 65 72 76 | nction)...(cond.((mezzano.superv |
| 1da680 | 69 73 6f 72 3a 6d 75 74 65 78 2d 68 65 6c 64 2d 70 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 63 | isor:mutex-held-p...........(rec |
| 1da6a0 | 75 72 73 69 76 65 2d 6c 6f 63 6b 2d 6d 75 74 65 78 20 6c 6f 63 6b 29 29 0a 20 20 20 20 20 20 20 | ursive-lock-mutex.lock))........ |
| 1da6c0 | 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(unwind-protect............... |
| 1da6e0 | 28 70 72 6f 67 6e 20 28 69 6e 63 66 20 28 72 65 63 75 72 73 69 76 65 2d 6c 6f 63 6b 2d 64 65 70 | (progn.(incf.(recursive-lock-dep |
| 1da700 | 74 68 20 6c 6f 63 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | th.lock))......................( |
| 1da720 | 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 | funcall.function))............(d |
| 1da740 | 65 63 66 20 28 72 65 63 75 72 73 69 76 65 2d 6c 6f 63 6b 2d 64 65 70 74 68 20 6c 6f 63 6b 29 29 | ecf.(recursive-lock-depth.lock)) |
| 1da760 | 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 6d 65 7a 7a 61 6e 6f 2e | )).........(t..........(mezzano. |
| 1da780 | 73 75 70 65 72 76 69 73 6f 72 3a 77 69 74 68 2d 6d 75 74 65 78 20 28 28 72 65 63 75 72 73 69 76 | supervisor:with-mutex.((recursiv |
| 1da7a0 | 65 2d 6c 6f 63 6b 2d 6d 75 74 65 78 20 6c 6f 63 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | e-lock-mutex.lock))............( |
| 1da7c0 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 70 72 6f 67 31 0a 20 20 20 20 20 20 20 20 20 20 20 | multiple-value-prog1............ |
| 1da7e0 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | ....(funcall.function).......... |
| 1da800 | 20 20 20 20 28 61 73 73 65 72 74 20 28 65 71 6c 20 28 72 65 63 75 72 73 69 76 65 2d 6c 6f 63 6b | ....(assert.(eql.(recursive-lock |
| 1da820 | 2d 64 65 70 74 68 20 6c 6f 63 6b 29 20 30 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 43 68 61 72 | -depth.lock).0)))))))..;;;;.Char |
| 1da840 | 61 63 74 65 72 20 6e 61 6d 65 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | acter.names..(defimplementation. |
| 1da860 | 63 68 61 72 61 63 74 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 28 70 72 65 66 69 78 | character-completion-set.(prefix |
| 1da880 | 20 6d 61 74 63 68 70 29 0a 20 20 3b 3b 20 54 4f 44 4f 3a 20 55 6e 69 63 6f 64 65 20 63 68 61 72 | .matchp)...;;.TODO:.Unicode.char |
| 1da8a0 | 61 63 74 65 72 73 20 74 6f 6f 2e 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 66 6f 72 20 6e 61 6d | acters.too....(loop......for.nam |
| 1da8c0 | 65 73 20 69 6e 20 73 79 73 2e 69 6e 74 3a 3a 2a 63 68 61 72 2d 6e 61 6d 65 2d 61 6c 69 73 74 2a | es.in.sys.int::*char-name-alist* |
| 1da8e0 | 0a 20 20 20 20 20 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 | ......append........(loop....... |
| 1da900 | 20 20 20 20 66 6f 72 20 6e 61 6d 65 20 69 6e 20 28 72 65 73 74 20 6e 61 6d 65 73 29 0a 20 20 20 | ....for.name.in.(rest.names).... |
| 1da920 | 20 20 20 20 20 20 20 77 68 65 6e 20 28 66 75 6e 63 61 6c 6c 20 6d 61 74 63 68 70 20 70 72 65 66 | .......when.(funcall.matchp.pref |
| 1da940 | 69 78 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 6e 61 6d 65 29 | ix.name)...........collect.name) |
| 1da960 | 29 29 0a 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 74 6f 72 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 | ))..;;;;.Inspector..(defmethod.e |
| 1da980 | 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 63 | macs-inspect.((o.function))...(c |
| 1da9a0 | 61 73 65 20 28 73 79 73 2e 69 6e 74 3a 3a 25 6f 62 6a 65 63 74 2d 74 61 67 20 6f 29 0a 20 20 20 | ase.(sys.int::%object-tag.o).... |
| 1da9c0 | 20 28 23 2e 73 79 73 2e 69 6e 74 3a 3a 2b 6f 62 6a 65 63 74 2d 74 61 67 2d 66 75 6e 63 74 69 6f | .(#.sys.int::+object-tag-functio |
| 1da9e0 | 6e 2b 0a 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 | n+......(label-value-line*...... |
| 1daa00 | 20 28 3a 6e 61 6d 65 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 | .(:name.(sys.int::function-name. |
| 1daa20 | 6f 29 29 0a 20 20 20 20 20 20 28 3a 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 74 20 6f 29 29 | o)).......(:arglist.(arglist.o)) |
| 1daa40 | 0a 20 20 20 20 20 20 28 3a 64 65 62 75 67 2d 69 6e 66 6f 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 | .......(:debug-info.(sys.int::fu |
| 1daa60 | 6e 63 74 69 6f 6e 2d 64 65 62 75 67 2d 69 6e 66 6f 20 6f 29 29 29 29 0a 20 20 20 20 28 23 2e 73 | nction-debug-info.o)))).....(#.s |
| 1daa80 | 79 73 2e 69 6e 74 3a 3a 2b 6f 62 6a 65 63 74 2d 74 61 67 2d 63 6c 6f 73 75 72 65 2b 0a 20 20 20 | ys.int::+object-tag-closure+.... |
| 1daaa0 | 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e | ..(append.......(label-value-lin |
| 1daac0 | 65 20 3a 66 75 6e 63 74 69 6f 6e 20 28 73 79 73 2e 69 6e 74 3a 3a 25 63 6c 6f 73 75 72 65 2d 66 | e.:function.(sys.int::%closure-f |
| 1daae0 | 75 6e 63 74 69 6f 6e 20 6f 29 29 0a 20 20 20 20 20 20 60 28 22 43 6c 6f 73 65 64 20 6f 76 65 72 | unction.o)).......`("Closed.over |
| 1dab00 | 20 76 61 6c 75 65 73 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 28 6c 6f 6f | .values:".(:newline)).......(loo |
| 1dab20 | 70 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 62 65 6c 6f 77 20 28 73 79 73 2e 69 6e 74 3a | p..........for.i.below.(sys.int: |
| 1dab40 | 3a 25 63 6c 6f 73 75 72 65 2d 6c 65 6e 67 74 68 20 6f 29 0a 20 20 20 20 20 20 20 20 20 61 70 70 | :%closure-length.o)..........app |
| 1dab60 | 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 69 20 28 73 79 73 2e 69 6e 74 | end.(label-value-line.i.(sys.int |
| 1dab80 | 3a 3a 25 63 6c 6f 73 75 72 65 2d 76 61 6c 75 65 20 6f 20 69 29 29 29 29 29 0a 20 20 20 20 28 74 | ::%closure-value.o.i))))).....(t |
| 1daba0 | 0a 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 29 29 0a 0a 28 64 65 | ......(call-next-method))))..(de |
| 1dabc0 | 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 73 79 73 2e 69 6e | fmethod.emacs-inspect.((o.sys.in |
| 1dabe0 | 74 3a 3a 77 65 61 6b 2d 70 6f 69 6e 74 65 72 29 29 0a 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 | t::weak-pointer))...(label-value |
| 1dac00 | 2d 6c 69 6e 65 2a 0a 20 20 20 28 3a 6b 65 79 20 28 73 79 73 2e 69 6e 74 3a 3a 77 65 61 6b 2d 70 | -line*....(:key.(sys.int::weak-p |
| 1dac20 | 6f 69 6e 74 65 72 2d 6b 65 79 20 6f 29 29 0a 20 20 20 28 3a 76 61 6c 75 65 20 28 73 79 73 2e 69 | ointer-key.o))....(:value.(sys.i |
| 1dac40 | 6e 74 3a 3a 77 65 61 6b 2d 70 6f 69 6e 74 65 72 2d 76 61 6c 75 65 20 6f 29 29 29 29 0a 0a 28 64 | nt::weak-pointer-value.o))))..(d |
| 1dac60 | 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 73 79 73 2e 69 | efmethod.emacs-inspect.((o.sys.i |
| 1dac80 | 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e 2d 72 65 66 65 72 65 6e 63 65 29 29 0a 20 20 28 6c 61 62 65 | nt::function-reference))...(labe |
| 1daca0 | 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 28 3a 6e 61 6d 65 20 28 73 79 73 2e 69 6e 74 | l-value-line*....(:name.(sys.int |
| 1dacc0 | 3a 3a 66 75 6e 63 74 69 6f 6e 2d 72 65 66 65 72 65 6e 63 65 2d 6e 61 6d 65 20 6f 29 29 0a 20 20 | ::function-reference-name.o))... |
| 1dace0 | 20 28 3a 66 75 6e 63 74 69 6f 6e 20 28 73 79 73 2e 69 6e 74 3a 3a 66 75 6e 63 74 69 6f 6e 2d 72 | .(:function.(sys.int::function-r |
| 1dad00 | 65 66 65 72 65 6e 63 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 | eference-function.o))))..(defmet |
| 1dad20 | 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 62 6a 65 63 74 20 73 74 72 75 63 | hod.emacs-inspect.((object.struc |
| 1dad40 | 74 75 72 65 2d 6f 62 6a 65 63 74 29 29 0a 20 20 28 6c 65 74 20 28 28 63 6c 61 73 73 20 28 63 6c | ture-object))...(let.((class.(cl |
| 1dad60 | 61 73 73 2d 6f 66 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 60 28 22 43 6c 61 73 73 3a 20 22 | ass-of.object))).....`("Class:." |
| 1dad80 | 20 28 3a 76 61 6c 75 65 20 2c 63 6c 61 73 73 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 | .(:value.,class).(:newline)..... |
| 1dada0 | 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 73 77 61 6e 6b 3a 3a 61 6c 6c 2d 73 6c 6f 74 73 2d | ............,@(swank::all-slots- |
| 1dadc0 | 66 6f 72 2d 69 6e 73 70 65 63 74 6f 72 20 6f 62 6a 65 63 74 29 29 29 29 0a 0a 28 69 6e 2d 70 61 | for-inspector.object))))..(in-pa |
| 1dade0 | 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 61 6c 6c 2d 73 6c | ckage.:swank)..(defmethod.all-sl |
| 1dae00 | 6f 74 73 2d 66 6f 72 2d 69 6e 73 70 65 63 74 6f 72 20 28 28 6f 62 6a 65 63 74 20 73 74 72 75 63 | ots-for-inspector.((object.struc |
| 1dae20 | 74 75 72 65 2d 6f 62 6a 65 63 74 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6c 61 73 73 20 20 20 | ture-object))...(let*.((class... |
| 1dae40 | 20 20 20 20 20 20 20 20 28 63 6c 61 73 73 2d 6f 66 20 6f 62 6a 65 63 74 29 29 0a 20 20 20 20 20 | ........(class-of.object))...... |
| 1dae60 | 20 20 20 20 28 64 69 72 65 63 74 2d 73 6c 6f 74 73 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a | ....(direct-slots....(swank-mop: |
| 1dae80 | 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 6c 6f 74 73 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 | class-direct-slots.class))...... |
| 1daea0 | 20 20 20 20 28 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a | ....(effective-slots.(swank-mop: |
| 1daec0 | 63 6c 61 73 73 2d 73 6c 6f 74 73 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f | class-slots.class))..........(lo |
| 1daee0 | 6e 67 65 73 74 2d 73 6c 6f 74 2d 6e 61 6d 65 2d 6c 65 6e 67 74 68 0a 20 20 20 20 20 20 20 20 20 | ngest-slot-name-length.......... |
| 1daf00 | 20 28 6c 6f 6f 70 20 66 6f 72 20 73 6c 6f 74 20 3a 69 6e 20 65 66 66 65 63 74 69 76 65 2d 73 6c | .(loop.for.slot.:in.effective-sl |
| 1daf20 | 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 69 6d 69 7a 65 20 28 6c 65 | ots.................maximize.(le |
| 1daf40 | 6e 67 74 68 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ngth.(symbol-name............... |
| 1daf60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 | ....................(swank-mop:s |
| 1daf80 | 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 29 29 29 29 29 0a 20 20 | lot-definition-name.slot)))))... |
| 1dafa0 | 20 20 20 20 20 20 20 28 63 68 65 63 6b 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 69 | .......(checklist...........(rei |
| 1dafc0 | 6e 69 74 69 61 6c 69 7a 65 2d 63 68 65 63 6b 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 | nitialize-checklist............( |
| 1dafe0 | 65 6e 73 75 72 65 2d 69 73 74 61 74 65 2d 6d 65 74 61 64 61 74 61 20 6f 62 6a 65 63 74 20 3a 63 | ensure-istate-metadata.object.:c |
| 1db000 | 68 65 63 6b 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hecklist........................ |
| 1db020 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 63 68 65 63 6b 6c 69 73 74 20 28 6c 65 6e | ............(make-checklist.(len |
| 1db040 | 67 74 68 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 | gth.effective-slots)))))........ |
| 1db060 | 20 20 28 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 | ..(grouping-kind...........;;.We |
| 1db080 | 20 62 6f 78 20 74 68 65 20 76 61 6c 75 65 20 73 6f 20 77 65 20 63 61 6e 20 72 65 2d 73 65 74 20 | .box.the.value.so.we.can.re-set. |
| 1db0a0 | 69 74 2e 0a 20 20 20 20 20 20 20 20 20 20 28 65 6e 73 75 72 65 2d 69 73 74 61 74 65 2d 6d 65 74 | it............(ensure-istate-met |
| 1db0c0 | 61 64 61 74 61 20 6f 62 6a 65 63 74 20 3a 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 0a 20 20 20 20 | adata.object.:grouping-kind..... |
| 1db0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 | ..............................(b |
| 1db100 | 6f 78 20 2a 69 6e 73 70 65 63 74 6f 72 2d 73 6c 6f 74 73 2d 64 65 66 61 75 6c 74 2d 67 72 6f 75 | ox.*inspector-slots-default-grou |
| 1db120 | 70 69 6e 67 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 6f 72 74 2d 6f 72 64 65 72 0a 20 20 | ping*)))..........(sort-order... |
| 1db140 | 20 20 20 20 20 20 20 20 28 65 6e 73 75 72 65 2d 69 73 74 61 74 65 2d 6d 65 74 61 64 61 74 61 20 | ........(ensure-istate-metadata. |
| 1db160 | 6f 62 6a 65 63 74 20 3a 73 6f 72 74 2d 6f 72 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | object.:sort-order.............. |
| 1db180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6f 78 20 2a 69 6e 73 70 65 | .....................(box.*inspe |
| 1db1a0 | 63 74 6f 72 2d 73 6c 6f 74 73 2d 64 65 66 61 75 6c 74 2d 6f 72 64 65 72 2a 29 29 29 0a 20 20 20 | ctor-slots-default-order*))).... |
| 1db1c0 | 20 20 20 20 20 20 28 73 6f 72 74 2d 70 72 65 64 69 63 61 74 65 20 28 65 63 61 73 65 20 28 72 65 | ......(sort-predicate.(ecase.(re |
| 1db1e0 | 66 20 73 6f 72 74 2d 6f 72 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | f.sort-order)................... |
| 1db200 | 20 20 20 20 20 20 20 20 20 28 3a 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 20 23 27 73 74 72 69 | .........(:alphabetically.#'stri |
| 1db220 | 6e 67 3c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng<)............................ |
| 1db240 | 28 3a 75 6e 73 6f 72 74 65 64 20 28 63 6f 6e 73 74 61 6e 74 6c 79 20 6e 69 6c 29 29 29 29 0a 20 | (:unsorted.(constantly.nil)))).. |
| 1db260 | 20 20 20 20 20 20 20 20 28 73 6f 72 74 65 64 2d 73 6c 6f 74 73 20 28 73 6f 72 74 20 28 63 6f 70 | ........(sorted-slots.(sort.(cop |
| 1db280 | 79 2d 73 65 71 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 29 0a 20 20 20 20 20 20 20 20 20 | y-seq.effective-slots).......... |
| 1db2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 72 74 2d 70 72 65 64 69 63 61 | ....................sort-predica |
| 1db2c0 | 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | te.............................. |
| 1db2e0 | 3a 6b 65 79 20 23 27 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e | :key.#'swank-mop:slot-definition |
| 1db300 | 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 | -name))..........(effective-slot |
| 1db320 | 73 0a 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 28 72 65 66 20 67 72 6f 75 70 69 6e 67 | s...........(ecase.(ref.grouping |
| 1db340 | 2d 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 6c 20 73 6f 72 74 65 64 2d | -kind).............(:all.sorted- |
| 1db360 | 73 6c 6f 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 69 6e 68 65 72 69 74 61 6e 63 65 | slots).............(:inheritance |
| 1db380 | 20 28 73 74 61 62 6c 65 2d 73 6f 72 74 2d 62 79 2d 69 6e 68 65 72 69 74 61 6e 63 65 20 73 6f 72 | .(stable-sort-by-inheritance.sor |
| 1db3a0 | 74 65 64 2d 73 6c 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ted-slots....................... |
| 1db3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1db3e0 | 63 6c 61 73 73 20 73 6f 72 74 2d 70 72 65 64 69 63 61 74 65 29 29 29 29 29 0a 20 20 20 20 60 28 | class.sort-predicate))))).....`( |
| 1db400 | 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 0a 20 20 20 20 20 20 28 3a 6e | "--------------------".......(:n |
| 1db420 | 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 22 20 47 72 6f 75 70 20 73 6c 6f 74 73 20 62 79 20 69 | ewline).......".Group.slots.by.i |
| 1db440 | 6e 68 65 72 69 74 61 6e 63 65 20 22 0a 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 2c 28 65 63 | nheritance.".......(:action.,(ec |
| 1db460 | 61 73 65 20 28 72 65 66 20 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 | ase.(ref.grouping-kind)......... |
| 1db480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 6c 20 22 5b 20 5d 22 29 0a 20 20 20 20 | ...............(:all."[.]")..... |
| 1db4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 69 6e 68 65 72 69 74 61 6e 63 65 | ...................(:inheritance |
| 1db4c0 | 20 22 5b 58 5d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 | ."[X]"))................,(lambda |
| 1db4e0 | 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 | .().........................;;.W |
| 1db500 | 65 20 68 61 76 65 20 74 6f 20 64 6f 20 74 68 69 73 20 61 73 20 74 68 65 20 6f 72 64 65 72 20 6f | e.have.to.do.this.as.the.order.o |
| 1db520 | 66 20 73 6c 6f 74 73 20 77 69 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | f.slots.will.................... |
| 1db540 | 20 20 20 20 20 3b 3b 20 62 65 20 73 6f 72 74 65 64 20 64 69 66 66 65 72 65 6e 74 6c 79 2e 0a 20 | .....;;.be.sorted.differently... |
| 1db560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 6c 20 28 63 68 | .......................(fill.(ch |
| 1db580 | 65 63 6b 6c 69 73 74 2e 62 75 74 74 6f 6e 73 20 63 68 65 63 6b 6c 69 73 74 29 20 6e 69 6c 29 0a | ecklist.buttons.checklist).nil). |
| 1db5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 72 | ........................(setf.(r |
| 1db5c0 | 65 66 20 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ef.grouping-kind)............... |
| 1db5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 28 72 65 66 20 67 72 6f 75 | ................(ecase.(ref.grou |
| 1db600 | 70 69 6e 67 2d 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ping-kind)...................... |
| 1db620 | 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 6c 20 3a 69 6e 68 65 72 69 74 61 6e 63 65 29 0a 20 | ...........(:all.:inheritance).. |
| 1db640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1db660 | 3a 69 6e 68 65 72 69 74 61 6e 63 65 20 3a 61 6c 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | :inheritance.:all))))........... |
| 1db680 | 20 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 74 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e | .....:refreshp.t).......(:newlin |
| 1db6a0 | 65 29 0a 20 20 20 20 20 20 22 20 53 6f 72 74 20 73 6c 6f 74 73 20 61 6c 70 68 61 62 65 74 69 63 | e).......".Sort.slots.alphabetic |
| 1db6c0 | 61 6c 6c 79 20 20 22 0a 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 2c 28 65 63 61 73 65 20 28 | ally..".......(:action.,(ecase.( |
| 1db6e0 | 72 65 66 20 73 6f 72 74 2d 6f 72 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ref.sort-order)................. |
| 1db700 | 20 20 20 20 20 20 20 28 3a 75 6e 73 6f 72 74 65 64 20 22 5b 20 5d 22 29 0a 20 20 20 20 20 20 20 | .......(:unsorted."[.]")........ |
| 1db720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 | ................(:alphabetically |
| 1db740 | 20 22 5b 58 5d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 | ."[X]"))................,(lambda |
| 1db760 | 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c | .().........................(fil |
| 1db780 | 6c 20 28 63 68 65 63 6b 6c 69 73 74 2e 62 75 74 74 6f 6e 73 20 63 68 65 63 6b 6c 69 73 74 29 20 | l.(checklist.buttons.checklist). |
| 1db7a0 | 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | nil).........................(se |
| 1db7c0 | 74 66 20 28 72 65 66 20 73 6f 72 74 2d 6f 72 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | tf.(ref.sort-order)............. |
| 1db7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 28 72 65 66 20 73 6f | ..................(ecase.(ref.so |
| 1db800 | 72 74 2d 6f 72 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rt-order)....................... |
| 1db820 | 20 20 20 20 20 20 20 20 20 20 28 3a 75 6e 73 6f 72 74 65 64 20 3a 61 6c 70 68 61 62 65 74 69 63 | ..........(:unsorted.:alphabetic |
| 1db840 | 61 6c 6c 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ally)........................... |
| 1db860 | 20 20 20 20 20 20 28 3a 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 20 3a 75 6e 73 6f 72 74 65 64 | ......(:alphabetically.:unsorted |
| 1db880 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 74 29 | ))))................:refreshp.t) |
| 1db8a0 | 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 2c 40 20 28 63 61 73 65 | .......(:newline).......,@.(case |
| 1db8c0 | 20 28 72 65 66 20 67 72 6f 75 70 69 6e 67 2d 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(ref.grouping-kind)............ |
| 1db8e0 | 28 3a 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 | (:all.............`((:newline).. |
| 1db900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 22 41 6c 6c 20 53 6c 6f 74 73 3a 22 0a 20 20 20 20 20 20 | ............."All.Slots:"....... |
| 1db920 | 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(:newline).............. |
| 1db940 | 20 2c 40 28 6d 61 6b 65 2d 73 6c 6f 74 2d 6c 69 73 74 69 6e 67 20 63 68 65 63 6b 6c 69 73 74 20 | .,@(make-slot-listing.checklist. |
| 1db960 | 6f 62 6a 65 63 74 20 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | object.class.................... |
| 1db980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 20 | ................effective-slots. |
| 1db9a0 | 64 69 72 65 63 74 2d 73 6c 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | direct-slots.................... |
| 1db9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 65 73 74 2d 73 6c 6f 74 2d 6e 61 6d | ................longest-slot-nam |
| 1db9e0 | 65 2d 6c 65 6e 67 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3a 69 6e 68 65 72 69 74 | e-length)))............(:inherit |
| 1dba00 | 61 6e 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2d 61 6c 6c 2d 73 6c 6f 74 73 | ance.............(list-all-slots |
| 1dba20 | 2d 62 79 2d 69 6e 68 65 72 69 74 61 6e 63 65 20 63 68 65 63 6b 6c 69 73 74 20 6f 62 6a 65 63 74 | -by-inheritance.checklist.object |
| 1dba40 | 20 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .class.......................... |
| 1dba60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 | ..................effective-slot |
| 1dba80 | 73 20 64 69 72 65 63 74 2d 73 6c 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.direct-slots.................. |
| 1dbaa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 65 73 | ..........................longes |
| 1dbac0 | 74 2d 73 6c 6f 74 2d 6e 61 6d 65 2d 6c 65 6e 67 74 68 29 29 29 0a 20 20 20 20 20 20 28 3a 6e 65 | t-slot-name-length))).......(:ne |
| 1dbae0 | 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 22 5b 73 65 74 20 76 61 6c 75 | wline).......(:action."[set.valu |
| 1dbb00 | 65 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 20 28 29 0a 20 | e]"................,(lambda.().. |
| 1dbb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 2d 63 68 65 63 6b | .......................(do-check |
| 1dbb40 | 6c 69 73 74 20 28 69 64 78 20 63 68 65 63 6b 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | list.(idx.checklist)............ |
| 1dbb60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 71 75 65 72 79 2d 61 6e 64 2d 73 65 74 2d 73 6c | ...............(query-and-set-sl |
| 1dbb80 | 6f 74 20 63 6c 61 73 73 20 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ot.class.object................. |
| 1dbba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e | ..............................(n |
| 1dbbc0 | 74 68 20 69 64 78 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 29 29 29 29 0a 20 20 20 20 20 | th.idx.effective-slots))))...... |
| 1dbbe0 | 20 20 20 20 20 20 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 74 29 0a 20 20 20 20 20 20 22 20 20 | ..........:refreshp.t).......".. |
| 1dbc00 | 22 0a 20 20 20 20 20 20 28 3a 61 63 74 69 6f 6e 20 22 5b 6d 61 6b 65 20 75 6e 62 6f 75 6e 64 5d | ".......(:action."[make.unbound] |
| 1dbc20 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 | "................,(lambda.().... |
| 1dbc40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 2d 63 68 65 63 6b 6c 69 | .....................(do-checkli |
| 1dbc60 | 73 74 20 28 69 64 78 20 63 68 65 63 6b 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | st.(idx.checklist).............. |
| 1dbc80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 6d 61 6b | .............(swank-mop:slot-mak |
| 1dbca0 | 75 6e 62 6f 75 6e 64 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | unbound-using-class............. |
| 1dbcc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 61 73 73 20 6f 62 6a 65 63 74 20 28 6e 74 68 | ...............class.object.(nth |
| 1dbce0 | 20 69 64 78 20 65 66 66 65 63 74 69 76 65 2d 73 6c 6f 74 73 29 29 29 29 0a 20 20 20 20 20 20 20 | .idx.effective-slots))))........ |
| 1dbd00 | 20 20 20 20 20 20 20 20 3a 72 65 66 72 65 73 68 70 20 74 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 | ........:refreshp.t).......(:new |
| 1dbd20 | 6c 69 6e 65 29 29 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | line))))........................ |
| 1dbd40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbd60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbd80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbdc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbe00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 6c 69 73 70 77 6f 72 6b 73 2e 6c 69 73 70 00 | slime-2.31/swank/lispworks.lisp. |
| 1dbe20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbe40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbe60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 1dbe80 | 30 31 31 30 33 34 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 32 36 32 00 20 30 00 00 00 | 0110343.00000000000.015262..0... |
| 1dbea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbf00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 1dbf20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 1dbf40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbf60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbf80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbfa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbfc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dbfe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1dc000 | 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 20 2d 2a | ;;;.-*-.indent-tabs-mode:.nil.-* |
| 1dc020 | 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 6c 69 73 70 77 6f 72 6b 73 2e 6c 69 73 70 20 2d | -.;;;.;;;.swank-lispworks.lisp.- |
| 1dc040 | 2d 2d 20 4c 69 73 70 57 6f 72 6b 73 20 73 70 65 63 69 66 69 63 20 63 6f 64 65 20 66 6f 72 20 53 | --.LispWorks.specific.code.for.S |
| 1dc060 | 4c 49 4d 45 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 43 72 65 61 74 65 64 20 32 30 30 33 2c 20 48 65 6c 6d | LIME..;;;.;;;.Created.2003,.Helm |
| 1dc080 | 75 74 20 45 6c 6c 65 72 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 | ut.Eller.;;;.;;;.This.code.has.b |
| 1dc0a0 | 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e | een.placed.in.the.Public.Domain. |
| 1dc0c0 | 20 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 0a 3b 3b 3b 20 61 72 65 20 64 69 73 63 6c 61 69 | ..All.warranties.;;;.are.disclai |
| 1dc0e0 | 6d 65 64 2e 0a 3b 3b 3b 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 6c 69 73 70 | med..;;;..(defpackage.swank/lisp |
| 1dc100 | 77 6f 72 6b 73 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 29 | works...(:use.cl.swank/backend)) |
| 1dc120 | 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 6c 69 73 70 77 6f 72 6b 73 29 0a 0a | ..(in-package.swank/lispworks).. |
| 1dc140 | 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c | (eval-when.(:compile-toplevel.:l |
| 1dc160 | 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 72 65 71 75 69 72 | oad-toplevel.:execute)...(requir |
| 1dc180 | 65 20 22 63 6f 6d 6d 22 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 | e."comm"))..(defimplementation.g |
| 1dc1a0 | 72 61 79 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 29 0a 20 20 22 53 54 52 45 41 4d 22 29 0a | ray-package-name.()..."STREAM"). |
| 1dc1c0 | 0a 28 69 6d 70 6f 72 74 2d 73 77 61 6e 6b 2d 6d 6f 70 2d 73 79 6d 62 6f 6c 73 20 3a 63 6c 6f 73 | .(import-swank-mop-symbols.:clos |
| 1dc1e0 | 20 27 28 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f | .'(:slot-definition-documentatio |
| 1dc200 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n............................... |
| 1dc220 | 20 20 20 20 3a 73 6c 6f 74 2d 62 6f 75 6e 64 70 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 | ....:slot-boundp-using-class.... |
| 1dc240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ...............................: |
| 1dc260 | 73 6c 6f 74 2d 76 61 6c 75 65 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 | slot-value-using-class.......... |
| 1dc280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6c 6f 74 2d 6d | .........................:slot-m |
| 1dc2a0 | 61 6b 75 6e 62 6f 75 6e 64 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 | akunbound-using-class........... |
| 1dc2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 71 6c 2d 73 70 65 | ........................:eql-spe |
| 1dc2e0 | 63 69 61 6c 69 7a 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cializer........................ |
| 1dc300 | 20 20 20 20 20 20 20 20 20 20 20 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 2d 6f 62 6a 65 | ...........:eql-specializer-obje |
| 1dc320 | 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ct.............................. |
| 1dc340 | 20 20 20 20 20 3a 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 | .....:compute-applicable-methods |
| 1dc360 | 2d 75 73 69 6e 67 2d 63 6c 61 73 73 65 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d | -using-classes))..(defun.swank-m |
| 1dc380 | 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | op:slot-definition-documentation |
| 1dc3a0 | 20 28 73 6c 6f 74 29 0a 20 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 6f 74 20 74 29 | .(slot)...(documentation.slot.t) |
| 1dc3c0 | 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 62 6f 75 6e 64 70 2d | )..(defun.swank-mop:slot-boundp- |
| 1dc3e0 | 75 73 69 6e 67 2d 63 6c 61 73 73 20 28 63 6c 61 73 73 20 6f 62 6a 65 63 74 20 73 6c 6f 74 64 29 | using-class.(class.object.slotd) |
| 1dc400 | 0a 20 20 28 63 6c 6f 73 3a 73 6c 6f 74 2d 62 6f 75 6e 64 70 2d 75 73 69 6e 67 2d 63 6c 61 73 73 | ...(clos:slot-boundp-using-class |
| 1dc420 | 20 63 6c 61 73 73 20 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .class.object................... |
| 1dc440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 6f 73 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 | ..............(clos:slot-definit |
| 1dc460 | 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d | ion-name.slotd)))..(defun.swank- |
| 1dc480 | 6d 6f 70 3a 73 6c 6f 74 2d 76 61 6c 75 65 2d 75 73 69 6e 67 2d 63 6c 61 73 73 20 28 63 6c 61 73 | mop:slot-value-using-class.(clas |
| 1dc4a0 | 73 20 6f 62 6a 65 63 74 20 73 6c 6f 74 64 29 0a 20 20 28 63 6c 6f 73 3a 73 6c 6f 74 2d 76 61 6c | s.object.slotd)...(clos:slot-val |
| 1dc4c0 | 75 65 2d 75 73 69 6e 67 2d 63 6c 61 73 73 20 63 6c 61 73 73 20 6f 62 6a 65 63 74 0a 20 20 20 20 | ue-using-class.class.object..... |
| 1dc4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 6f 73 | ...........................(clos |
| 1dc500 | 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 64 29 29 29 0a 0a | :slot-definition-name.slotd))).. |
| 1dc520 | 28 64 65 66 75 6e 20 28 73 65 74 66 20 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 76 61 6c 75 | (defun.(setf.swank-mop:slot-valu |
| 1dc540 | 65 2d 75 73 69 6e 67 2d 63 6c 61 73 73 29 20 28 76 61 6c 75 65 20 63 6c 61 73 73 20 6f 62 6a 65 | e-using-class).(value.class.obje |
| 1dc560 | 63 74 20 73 6c 6f 74 64 29 0a 20 20 28 73 65 74 66 20 28 63 6c 6f 73 3a 73 6c 6f 74 2d 76 61 6c | ct.slotd)...(setf.(clos:slot-val |
| 1dc580 | 75 65 2d 75 73 69 6e 67 2d 63 6c 61 73 73 20 63 6c 61 73 73 20 6f 62 6a 65 63 74 0a 20 20 20 20 | ue-using-class.class.object..... |
| 1dc5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1dc5c0 | 20 28 63 6c 6f 73 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 | .(clos:slot-definition-name.slot |
| 1dc5e0 | 64 29 29 0a 20 20 20 20 20 20 20 20 76 61 6c 75 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e | d)).........value))..(defun.swan |
| 1dc600 | 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 6d 61 6b 75 6e 62 6f 75 6e 64 2d 75 73 69 6e 67 2d 63 6c 61 73 | k-mop:slot-makunbound-using-clas |
| 1dc620 | 73 20 28 63 6c 61 73 73 20 6f 62 6a 65 63 74 20 73 6c 6f 74 64 29 0a 20 20 28 63 6c 6f 73 3a 73 | s.(class.object.slotd)...(clos:s |
| 1dc640 | 6c 6f 74 2d 6d 61 6b 75 6e 62 6f 75 6e 64 2d 75 73 69 6e 67 2d 63 6c 61 73 73 20 63 6c 61 73 73 | lot-makunbound-using-class.class |
| 1dc660 | 20 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .object......................... |
| 1dc680 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 6f 73 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f | ............(clos:slot-definitio |
| 1dc6a0 | 6e 2d 6e 61 6d 65 20 73 6c 6f 74 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f | n-name.slotd)))..(defun.swank-mo |
| 1dc6c0 | 70 3a 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 75 73 69 | p:compute-applicable-methods-usi |
| 1dc6e0 | 6e 67 2d 63 6c 61 73 73 65 73 20 28 67 66 20 63 6c 61 73 73 65 73 29 0a 20 20 28 63 6c 6f 73 3a | ng-classes.(gf.classes)...(clos: |
| 1dc700 | 3a 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 66 72 6f 6d | :compute-applicable-methods-from |
| 1dc720 | 2d 63 6c 61 73 73 65 73 20 67 66 20 63 6c 61 73 73 65 73 29 29 0a 0a 3b 3b 20 6c 69 73 70 77 6f | -classes.gf.classes))..;;.lispwo |
| 1dc740 | 72 6b 73 20 64 6f 65 73 6e 27 74 20 68 61 76 65 20 74 68 65 20 65 71 6c 2d 73 70 65 63 69 61 6c | rks.doesn't.have.the.eql-special |
| 1dc760 | 69 7a 65 72 20 63 6c 61 73 73 2c 20 69 74 20 72 65 70 72 65 73 65 6e 74 73 0a 3b 3b 20 74 68 65 | izer.class,.it.represents.;;.the |
| 1dc780 | 6d 20 61 73 20 61 20 6c 69 73 74 20 6f 66 20 60 28 45 51 4c 20 2c 4f 42 4a 45 43 54 29 0a 28 64 | m.as.a.list.of.`(EQL.,OBJECT).(d |
| 1dc7a0 | 65 66 74 79 70 65 20 73 77 61 6e 6b 2d 6d 6f 70 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 | eftype.swank-mop:eql-specializer |
| 1dc7c0 | 20 28 29 20 27 63 6f 6e 73 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a 65 71 6c | .().'cons)..(defun.swank-mop:eql |
| 1dc7e0 | 2d 73 70 65 63 69 61 6c 69 7a 65 72 2d 6f 62 6a 65 63 74 20 28 65 71 6c 2d 73 70 65 63 29 0a 20 | -specializer-object.(eql-spec).. |
| 1dc800 | 20 28 73 65 63 6f 6e 64 20 65 71 6c 2d 73 70 65 63 29 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 | .(second.eql-spec))..(eval-when. |
| 1dc820 | 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 20 3a 6c 6f 61 | (:compile-toplevel.:execute.:loa |
| 1dc840 | 64 2d 74 6f 70 6c 65 76 65 6c 29 0a 20 20 28 64 65 66 76 61 72 20 2a 6f 72 69 67 69 6e 61 6c 2d | d-toplevel)...(defvar.*original- |
| 1dc860 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2a 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 | defimplementation*.(macro-functi |
| 1dc880 | 6f 6e 20 27 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 29 29 0a 20 20 28 64 65 66 6d 61 | on.'defimplementation))...(defma |
| 1dc8a0 | 63 72 6f 20 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 28 26 77 68 6f 6c 65 20 77 68 | cro.defimplementation.(&whole.wh |
| 1dc8c0 | 6f 6c 65 20 6e 61 6d 65 20 61 72 67 73 20 26 62 6f 64 79 20 62 6f 64 79 20 0a 20 20 20 20 20 20 | ole.name.args.&body.body........ |
| 1dc8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 65 6e 76 69 72 6f | .........................&enviro |
| 1dc900 | 6e 6d 65 6e 74 20 65 6e 76 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 | nment.env).....(declare.(ignore. |
| 1dc920 | 61 72 67 73 20 62 6f 64 79 29 29 0a 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 28 | args.body)).....`(progn........( |
| 1dc940 | 64 73 70 65 63 3a 72 65 63 6f 72 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 27 28 64 65 66 75 6e 20 | dspec:record-definition.'(defun. |
| 1dc960 | 2c 6e 61 6d 65 29 20 28 64 73 70 65 63 3a 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | ,name).(dspec:location)......... |
| 1dc980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 68 65 63 6b 2d 72 | ........................:check-r |
| 1dc9a0 | 65 64 65 66 69 6e 69 74 69 6f 6e 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 2c 28 66 75 6e 63 | edefinition-p.nil)........,(func |
| 1dc9c0 | 61 6c 6c 20 2a 6f 72 69 67 69 6e 61 6c 2d 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2a | all.*original-defimplementation* |
| 1dc9e0 | 20 77 68 6f 6c 65 20 65 6e 76 29 29 29 29 0a 0a 3b 3b 3b 20 55 54 46 38 0a 0a 28 64 65 66 69 6d | .whole.env))))..;;;.UTF8..(defim |
| 1dca00 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 2d 74 6f 2d 75 74 66 38 20 28 73 74 72 | plementation.string-to-utf8.(str |
| 1dca20 | 69 6e 67 29 0a 20 20 28 65 66 3a 65 6e 63 6f 64 65 2d 6c 69 73 70 2d 73 74 72 69 6e 67 20 73 74 | ing)...(ef:encode-lisp-string.st |
| 1dca40 | 72 69 6e 67 20 27 28 3a 75 74 66 2d 38 20 3a 65 6f 6c 2d 73 74 79 6c 65 20 3a 6c 66 29 29 29 0a | ring.'(:utf-8.:eol-style.:lf))). |
| 1dca60 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 74 66 38 2d 74 6f 2d 73 74 72 69 | .(defimplementation.utf8-to-stri |
| 1dca80 | 6e 67 20 28 6f 63 74 65 74 73 29 0a 20 20 28 65 66 3a 64 65 63 6f 64 65 2d 65 78 74 65 72 6e 61 | ng.(octets)...(ef:decode-externa |
| 1dcaa0 | 6c 2d 73 74 72 69 6e 67 20 6f 63 74 65 74 73 20 27 28 3a 75 74 66 2d 38 20 3a 65 6f 6c 2d 73 74 | l-string.octets.'(:utf-8.:eol-st |
| 1dcac0 | 79 6c 65 20 3a 6c 66 29 29 29 0a 0a 3b 3b 3b 20 54 43 50 20 73 65 72 76 65 72 0a 0a 28 64 65 66 | yle.:lf)))..;;;.TCP.server..(def |
| 1dcae0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 65 66 65 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 | implementation.preferred-communi |
| 1dcb00 | 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 28 29 0a 20 20 3a 73 70 61 77 6e 29 0a 0a 28 64 65 66 75 | cation-style.()...:spawn)..(defu |
| 1dcb20 | 6e 20 73 6f 63 6b 65 74 2d 66 64 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 65 74 79 70 65 63 61 73 | n.socket-fd.(socket)...(etypecas |
| 1dcb40 | 65 20 73 6f 63 6b 65 74 0a 20 20 20 20 28 66 69 78 6e 75 6d 20 73 6f 63 6b 65 74 29 0a 20 20 20 | e.socket.....(fixnum.socket).... |
| 1dcb60 | 20 28 63 6f 6d 6d 3a 73 6f 63 6b 65 74 2d 73 74 72 65 61 6d 20 28 63 6f 6d 6d 3a 73 6f 63 6b 65 | .(comm:socket-stream.(comm:socke |
| 1dcb80 | 74 2d 73 74 72 65 61 6d 2d 73 6f 63 6b 65 74 20 73 6f 63 6b 65 74 29 29 29 29 0a 0a 28 64 65 66 | t-stream-socket.socket))))..(def |
| 1dcba0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 28 68 6f | implementation.create-socket.(ho |
| 1dcbc0 | 73 74 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 6d 75 6c 74 69 70 6c | st.port.&key.backlog)...(multipl |
| 1dcbe0 | 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 6f 63 6b 65 74 20 77 68 65 72 65 20 65 72 72 6e 6f | e-value-bind.(socket.where.errno |
| 1dcc00 | 29 0a 20 20 20 20 20 20 23 2d 28 6f 72 20 6c 69 73 70 77 6f 72 6b 73 34 2e 31 20 28 61 6e 64 20 | ).......#-(or.lispworks4.1.(and. |
| 1dcc20 | 6d 61 63 6f 73 78 20 6c 69 73 70 77 6f 72 6b 73 34 2e 33 29 29 0a 20 20 20 20 20 20 28 63 6f 6d | macosx.lispworks4.3)).......(com |
| 1dcc40 | 6d 3a 3a 63 72 65 61 74 65 2d 74 63 70 2d 73 6f 63 6b 65 74 2d 66 6f 72 2d 73 65 72 76 69 63 65 | m::create-tcp-socket-for-service |
| 1dcc60 | 20 70 6f 72 74 20 3a 61 64 64 72 65 73 73 20 68 6f 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .port.:address.host............. |
| 1dcc80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ...............................: |
| 1dcca0 | 62 61 63 6b 6c 6f 67 20 28 6f 72 20 62 61 63 6b 6c 6f 67 20 35 29 29 0a 20 20 20 20 20 20 23 2b | backlog.(or.backlog.5)).......#+ |
| 1dccc0 | 28 6f 72 20 6c 69 73 70 77 6f 72 6b 73 34 2e 31 20 28 61 6e 64 20 6d 61 63 6f 73 78 20 6c 69 73 | (or.lispworks4.1.(and.macosx.lis |
| 1dcce0 | 70 77 6f 72 6b 73 34 2e 33 29 29 0a 20 20 20 20 20 20 28 63 6f 6d 6d 3a 3a 63 72 65 61 74 65 2d | pworks4.3)).......(comm::create- |
| 1dcd00 | 74 63 70 2d 73 6f 63 6b 65 74 2d 66 6f 72 2d 73 65 72 76 69 63 65 20 70 6f 72 74 29 0a 20 20 20 | tcp-socket-for-service.port).... |
| 1dcd20 | 20 28 63 6f 6e 64 20 28 73 6f 63 6b 65 74 20 73 6f 63 6b 65 74 29 0a 20 20 20 20 20 20 20 20 20 | .(cond.(socket.socket).......... |
| 1dcd40 | 20 28 74 20 28 65 72 72 6f 72 20 27 6e 65 74 77 6f 72 6b 2d 65 72 72 6f 72 20 0a 20 20 20 20 20 | .(t.(error.'network-error....... |
| 1dcd60 | 20 20 20 20 20 20 20 20 20 3a 66 6f 72 6d 61 74 2d 63 6f 6e 74 72 6f 6c 20 22 7e 41 20 66 61 69 | .........:format-control."~A.fai |
| 1dcd80 | 6c 65 64 3a 20 7e 41 20 28 7e 44 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 6f 72 | led:.~A.(~D)"...............:for |
| 1dcda0 | 6d 61 74 2d 61 72 67 75 6d 65 6e 74 73 20 28 6c 69 73 74 20 77 68 65 72 65 20 0a 20 20 20 20 20 | mat-arguments.(list.where....... |
| 1dcdc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1dcde0 | 20 28 6c 69 73 74 20 23 2b 75 6e 69 78 20 28 6c 77 3a 67 65 74 2d 75 6e 69 78 2d 65 72 72 6f 72 | .(list.#+unix.(lw:get-unix-error |
| 1dce00 | 20 65 72 72 6e 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .errno))........................ |
| 1dce20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6e 6f 29 29 29 29 29 29 0a 0a 28 64 65 66 | ...............errno))))))..(def |
| 1dce40 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 63 61 6c 2d 70 6f 72 74 20 28 73 6f 63 6b 65 | implementation.local-port.(socke |
| 1dce60 | 74 29 0a 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 31 20 28 63 6f 6d 6d 3a 67 65 74 2d 73 6f 63 6b | t)...(nth-value.1.(comm:get-sock |
| 1dce80 | 65 74 2d 61 64 64 72 65 73 73 20 28 73 6f 63 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 29 | et-address.(socket-fd.socket)))) |
| 1dcea0 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6c 6f 73 65 2d 73 6f 63 6b 65 | ..(defimplementation.close-socke |
| 1dcec0 | 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 63 6f 6d 6d 3a 3a 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 | t.(socket)...(comm::close-socket |
| 1dcee0 | 20 28 73 6f 63 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | .(socket-fd.socket)))..(defimple |
| 1dcf00 | 6d 65 6e 74 61 74 69 6f 6e 20 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6f 63 | mentation.accept-connection.(soc |
| 1dcf20 | 6b 65 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ket............................. |
| 1dcf40 | 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 | ...........&key.external-format. |
| 1dcf60 | 62 75 66 66 65 72 69 6e 67 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 | buffering.timeout)...(declare.(i |
| 1dcf80 | 67 6e 6f 72 65 20 62 75 66 66 65 72 69 6e 67 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 64 20 28 | gnore.buffering))...(let*.((fd.( |
| 1dcfa0 | 63 6f 6d 6d 3a 3a 67 65 74 2d 66 64 2d 66 72 6f 6d 2d 73 6f 63 6b 65 74 20 73 6f 63 6b 65 74 29 | comm::get-fd-from-socket.socket) |
| 1dcfc0 | 29 29 0a 20 20 20 20 28 61 73 73 65 72 74 20 28 2f 3d 20 66 64 20 2d 31 29 29 0a 20 20 20 20 28 | )).....(assert.(/=.fd.-1)).....( |
| 1dcfe0 | 63 6f 6e 64 20 28 28 6e 6f 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 | cond.((not.external-format)..... |
| 1dd000 | 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 63 6f 6d 6d 3a 73 6f 63 6b | .......(make-instance.'comm:sock |
| 1dd020 | 65 74 2d 73 74 72 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | et-stream....................... |
| 1dd040 | 20 20 20 20 3a 73 6f 63 6b 65 74 20 66 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....:socket.fd.................. |
| 1dd060 | 20 20 20 20 20 20 20 20 20 3a 64 69 72 65 63 74 69 6f 6e 20 3a 69 6f 0a 20 20 20 20 20 20 20 20 | .........:direction.:io......... |
| 1dd080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 61 64 2d 74 69 6d 65 6f 75 74 20 | ..................:read-timeout. |
| 1dd0a0 | 74 69 6d 65 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | timeout......................... |
| 1dd0c0 | 20 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 27 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 | ..:element-type.'(unsigned-byte. |
| 1dd0e0 | 38 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 73 | 8)))...........(t............(as |
| 1dd100 | 73 65 72 74 20 28 76 61 6c 69 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 70 20 65 78 | sert.(valid-external-format-p.ex |
| 1dd120 | 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 | ternal-format))............(ecas |
| 1dd140 | 65 20 28 66 69 72 73 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 | e.(first.external-format)....... |
| 1dd160 | 20 20 20 20 20 20 20 28 28 3a 6c 61 74 69 6e 2d 31 20 3a 61 73 63 69 69 29 0a 20 20 20 20 20 20 | .......((:latin-1.:ascii)....... |
| 1dd180 | 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 63 6f 6d 6d 3a 73 6f 63 | ........(make-instance.'comm:soc |
| 1dd1a0 | 6b 65 74 2d 73 74 72 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ket-stream...................... |
| 1dd1c0 | 20 20 20 20 20 20 20 20 3a 73 6f 63 6b 65 74 20 66 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........:socket.fd.............. |
| 1dd1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 69 72 65 63 74 69 6f 6e 20 3a 69 6f 0a 20 | ................:direction.:io.. |
| 1dd200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 61 | ............................:rea |
| 1dd220 | 64 2d 74 69 6d 65 6f 75 74 20 74 69 6d 65 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-timeout.timeout............... |
| 1dd240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 27 62 61 | ...............:element-type.'ba |
| 1dd260 | 73 65 2d 63 68 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 75 74 66 2d 38 0a 20 | se-char))..............(:utf-8.. |
| 1dd280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 66 6c 65 78 69 2d 73 74 72 65 61 6d 20 | .............(make-flexi-stream. |
| 1dd2a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 | ................(make-instance.' |
| 1dd2c0 | 63 6f 6d 6d 3a 73 6f 63 6b 65 74 2d 73 74 72 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | comm:socket-stream.............. |
| 1dd2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6f 63 6b 65 74 20 66 64 0a 20 20 20 20 | .................:socket.fd..... |
| 1dd300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 69 72 65 63 | ..........................:direc |
| 1dd320 | 74 69 6f 6e 20 3a 69 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion.:io........................ |
| 1dd340 | 20 20 20 20 20 20 20 3a 72 65 61 64 2d 74 69 6d 65 6f 75 74 20 74 69 6d 65 6f 75 74 0a 20 20 20 | .......:read-timeout.timeout.... |
| 1dd360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d | ...........................:elem |
| 1dd380 | 65 6e 74 2d 74 79 70 65 20 27 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 38 29 29 0a 20 20 20 | ent-type.'(unsigned-byte.8)).... |
| 1dd3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 29 29 29 | ............external-format))))) |
| 1dd3c0 | 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 66 6c 65 78 69 2d 73 74 72 65 61 6d 20 28 73 74 | ))..(defun.make-flexi-stream.(st |
| 1dd3e0 | 72 65 61 6d 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 0a 20 20 28 75 6e 6c 65 73 73 20 | ream.external-format)...(unless. |
| 1dd400 | 28 6d 65 6d 62 65 72 20 3a 66 6c 65 78 69 2d 73 74 72 65 61 6d 73 20 2a 66 65 61 74 75 72 65 73 | (member.:flexi-streams.*features |
| 1dd420 | 2a 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 43 61 6e 6e 6f 74 20 75 73 65 20 65 78 74 65 72 6e | *).....(error."Cannot.use.extern |
| 1dd440 | 61 6c 20 66 6f 72 6d 61 74 20 7e 41 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 6f 75 | al.format.~A~.............withou |
| 1dd460 | 74 20 68 61 76 69 6e 67 20 69 6e 73 74 61 6c 6c 65 64 20 66 6c 65 78 69 2d 73 74 72 65 61 6d 73 | t.having.installed.flexi-streams |
| 1dd480 | 20 69 6e 20 74 68 65 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2e 22 0a 20 20 20 20 20 20 20 20 | .in.the.inferior-lisp."......... |
| 1dd4a0 | 20 20 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 | ...external-format))...(funcall. |
| 1dd4c0 | 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 22 46 4c 45 58 49 2d 53 54 52 45 41 4d 53 | (read-from-string."FLEXI-STREAMS |
| 1dd4e0 | 3a 4d 41 4b 45 2d 46 4c 45 58 49 2d 53 54 52 45 41 4d 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 | :MAKE-FLEXI-STREAM")............ |
| 1dd500 | 73 74 72 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d | stream............:external-form |
| 1dd520 | 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 28 72 65 61 64 2d 66 72 6f 6d 2d | at............(apply.(read-from- |
| 1dd540 | 73 74 72 69 6e 67 20 22 46 4c 45 58 49 2d 53 54 52 45 41 4d 53 3a 4d 41 4b 45 2d 45 58 54 45 52 | string."FLEXI-STREAMS:MAKE-EXTER |
| 1dd560 | 4e 41 4c 2d 46 4f 52 4d 41 54 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 | NAL-FORMAT")...................e |
| 1dd580 | 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 29 0a 0a 3b 3b 3b 20 43 6f 64 69 6e 67 20 53 79 | xternal-format)))..;;;.Coding.Sy |
| 1dd5a0 | 73 74 65 6d 73 0a 0a 28 64 65 66 75 6e 20 76 61 6c 69 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 | stems..(defun.valid-external-for |
| 1dd5c0 | 6d 61 74 2d 70 20 28 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 0a 20 20 28 6d 65 6d 62 65 | mat-p.(external-format)...(membe |
| 1dd5e0 | 72 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d | r.external-format.*external-form |
| 1dd600 | 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 0a 20 20 20 20 20 20 20 20 20 20 3a | at-to-coding-system*...........: |
| 1dd620 | 74 65 73 74 20 23 27 65 71 75 61 6c 20 3a 6b 65 79 20 23 27 63 61 72 29 29 0a 0a 28 64 65 66 76 | test.#'equal.:key.#'car))..(defv |
| 1dd640 | 61 72 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 | ar.*external-format-to-coding-sy |
| 1dd660 | 73 74 65 6d 2a 0a 20 20 27 28 28 28 3a 6c 61 74 69 6e 2d 31 20 3a 65 6f 6c 2d 73 74 79 6c 65 20 | stem*...'(((:latin-1.:eol-style. |
| 1dd680 | 3a 6c 66 29 20 0a 20 20 20 20 20 22 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 22 69 73 6f 2d 6c | :lf)......."latin-1-unix"."iso-l |
| 1dd6a0 | 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 22 69 73 6f 2d 38 38 35 39 2d 31 2d 75 6e 69 78 22 29 0a | atin-1-unix"."iso-8859-1-unix"). |
| 1dd6c0 | 20 20 20 20 3b 3b 28 28 3a 6c 61 74 69 6e 2d 31 29 20 22 6c 61 74 69 6e 2d 31 22 20 22 69 73 6f | ....;;((:latin-1)."latin-1"."iso |
| 1dd6e0 | 2d 6c 61 74 69 6e 2d 31 22 20 22 69 73 6f 2d 38 38 35 39 2d 31 22 29 0a 20 20 20 20 3b 3b 28 28 | -latin-1"."iso-8859-1").....;;(( |
| 1dd700 | 3a 75 74 66 2d 38 29 20 22 75 74 66 2d 38 22 29 0a 20 20 20 20 28 28 3a 75 74 66 2d 38 20 3a 65 | :utf-8)."utf-8").....((:utf-8.:e |
| 1dd720 | 6f 6c 2d 73 74 79 6c 65 20 3a 6c 66 29 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 0a 20 20 20 20 | ol-style.:lf)."utf-8-unix")..... |
| 1dd740 | 3b 3b 28 28 3a 65 75 63 2d 6a 70 29 20 22 65 75 63 2d 6a 70 22 29 0a 20 20 20 20 28 28 3a 65 75 | ;;((:euc-jp)."euc-jp").....((:eu |
| 1dd760 | 63 2d 6a 70 20 3a 65 6f 6c 2d 73 74 79 6c 65 20 3a 6c 66 29 20 22 65 75 63 2d 6a 70 2d 75 6e 69 | c-jp.:eol-style.:lf)."euc-jp-uni |
| 1dd780 | 78 22 29 0a 20 20 20 20 3b 3b 28 28 3a 61 73 63 69 69 29 20 22 75 73 2d 61 73 63 69 69 22 29 0a | x").....;;((:ascii)."us-ascii"). |
| 1dd7a0 | 20 20 20 20 28 28 3a 61 73 63 69 69 20 3a 65 6f 6c 2d 73 74 79 6c 65 20 3a 6c 66 29 20 22 75 73 | ....((:ascii.:eol-style.:lf)."us |
| 1dd7c0 | 2d 61 73 63 69 69 2d 75 6e 69 78 22 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | -ascii-unix")))..(defimplementat |
| 1dd7e0 | 69 6f 6e 20 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 | ion.find-external-format.(coding |
| 1dd800 | 2d 73 79 73 74 65 6d 29 0a 20 20 28 63 61 72 20 28 72 61 73 73 6f 63 2d 69 66 20 28 6c 61 6d 62 | -system)...(car.(rassoc-if.(lamb |
| 1dd820 | 64 61 20 28 78 29 20 28 6d 65 6d 62 65 72 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 78 20 3a | da.(x).(member.coding-system.x.: |
| 1dd840 | 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | test.#'equal)).................. |
| 1dd860 | 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 | .*external-format-to-coding-syst |
| 1dd880 | 65 6d 2a 29 29 29 0a 0a 3b 3b 3b 20 55 6e 69 78 20 73 69 67 6e 61 6c 73 0a 0a 28 64 65 66 75 6e | em*)))..;;;.Unix.signals..(defun |
| 1dd8a0 | 20 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 28 29 0a 20 20 28 77 69 74 68 2d 73 69 6d 70 6c | .sigint-handler.()...(with-simpl |
| 1dd8c0 | 65 2d 72 65 73 74 61 72 74 20 20 28 63 6f 6e 74 69 6e 75 65 20 22 43 6f 6e 74 69 6e 75 65 20 66 | e-restart..(continue."Continue.f |
| 1dd8e0 | 72 6f 6d 20 53 49 47 49 4e 54 20 68 61 6e 64 6c 65 72 2e 22 29 0a 20 20 20 20 28 69 6e 76 6f 6b | rom.SIGINT.handler.").....(invok |
| 1dd900 | 65 2d 64 65 62 75 67 67 65 72 20 22 53 49 47 49 4e 54 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d | e-debugger."SIGINT")))..(defun.m |
| 1dd920 | 61 6b 65 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 28 70 72 6f 63 65 73 73 29 0a 20 20 28 | ake-sigint-handler.(process)...( |
| 1dd940 | 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 | lambda.(&rest.args).....(declare |
| 1dd960 | 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d | .(ignore.args)).....(mp:process- |
| 1dd980 | 69 6e 74 65 72 72 75 70 74 20 70 72 6f 63 65 73 73 20 23 27 73 69 67 69 6e 74 2d 68 61 6e 64 6c | interrupt.process.#'sigint-handl |
| 1dd9a0 | 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 74 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 | er)))..(defun.set-sigint-handler |
| 1dd9c0 | 20 28 29 0a 20 20 3b 3b 20 53 65 74 20 53 49 47 49 4e 54 20 68 61 6e 64 6c 65 72 20 6f 6e 20 53 | .()...;;.Set.SIGINT.handler.on.S |
| 1dd9e0 | 77 61 6e 6b 20 72 65 71 75 65 73 74 20 68 61 6e 64 6c 65 72 20 74 68 72 65 61 64 2e 0a 20 20 23 | wank.request.handler.thread....# |
| 1dda00 | 2d 77 69 6e 33 32 0a 20 20 28 73 79 73 3a 3a 73 65 74 2d 73 69 67 6e 61 6c 2d 68 61 6e 64 6c 65 | -win32...(sys::set-signal-handle |
| 1dda20 | 72 20 2b 73 69 67 69 6e 74 2b 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.+sigint+...................... |
| 1dda40 | 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 6d 70 3a 2a | .......(make-sigint-handler.mp:* |
| 1dda60 | 63 75 72 72 65 6e 74 2d 70 72 6f 63 65 73 73 2a 29 29 29 0a 0a 23 2d 77 69 6e 33 32 20 0a 28 64 | current-process*)))..#-win32..(d |
| 1dda80 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 73 74 61 6c 6c 2d 73 69 67 69 6e 74 2d | efimplementation.install-sigint- |
| 1ddaa0 | 68 61 6e 64 6c 65 72 20 28 68 61 6e 64 6c 65 72 29 0a 20 20 28 73 79 73 3a 3a 73 65 74 2d 73 69 | handler.(handler)...(sys::set-si |
| 1ddac0 | 67 6e 61 6c 2d 68 61 6e 64 6c 65 72 20 2b 73 69 67 69 6e 74 2b 0a 20 20 20 20 20 20 20 20 20 20 | gnal-handler.+sigint+........... |
| 1ddae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 65 6c 66 20 6d 70 3a | .................(let.((self.mp: |
| 1ddb00 | 2a 63 75 72 72 65 6e 74 2d 70 72 6f 63 65 73 73 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | *current-process*))............. |
| 1ddb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 | .................(lambda.(&rest. |
| 1ddb40 | 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | args)........................... |
| 1ddb60 | 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 20 20 20 | .....(declare.(ignore.args)).... |
| 1ddb80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 70 3a | ............................(mp: |
| 1ddba0 | 70 72 6f 63 65 73 73 2d 69 6e 74 65 72 72 75 70 74 20 73 65 6c 66 20 68 61 6e 64 6c 65 72 29 29 | process-interrupt.self.handler)) |
| 1ddbc0 | 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65 74 70 69 64 20 28 | )))..(defimplementation.getpid.( |
| 1ddbe0 | 29 0a 20 20 23 2b 77 69 6e 33 32 20 28 77 69 6e 33 32 3a 67 65 74 2d 63 75 72 72 65 6e 74 2d 70 | )...#+win32.(win32:get-current-p |
| 1ddc00 | 72 6f 63 65 73 73 2d 69 64 29 0a 20 20 23 2d 77 69 6e 33 32 20 28 73 79 73 74 65 6d 3a 3a 67 65 | rocess-id)...#-win32.(system::ge |
| 1ddc20 | 74 70 69 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 70 2d | tpid))..(defimplementation.lisp- |
| 1ddc40 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 20 28 29 0a 20 20 22 6c | implementation-type-name.()..."l |
| 1ddc60 | 69 73 70 77 6f 72 6b 73 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 | ispworks")..(defimplementation.s |
| 1ddc80 | 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 29 | et-default-directory.(directory) |
| 1ddca0 | 0a 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 68 63 6c 3a 63 68 61 6e 67 65 2d 64 69 72 65 63 | ...(namestring.(hcl:change-direc |
| 1ddcc0 | 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 29 29 29 0a 0a 3b 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 | tory.directory)))..;;;;.Document |
| 1ddce0 | 61 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 6d 61 70 2d 6c 69 73 74 20 28 66 75 6e 63 74 69 6f 6e | ation..(defun.map-list.(function |
| 1ddd00 | 20 6c 69 73 74 29 0a 20 20 22 4d 61 70 20 6f 76 65 72 20 70 72 6f 70 65 72 20 61 6e 64 20 6e 6f | .list)..."Map.over.proper.and.no |
| 1ddd20 | 74 20 70 72 6f 70 65 72 20 6c 69 73 74 73 2e 22 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 63 61 | t.proper.lists."...(loop.for.(ca |
| 1ddd40 | 72 20 2e 20 63 64 72 29 20 6f 6e 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 | r...cdr).on.list.........collect |
| 1ddd60 | 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 63 61 72 29 20 69 6e 74 6f 20 72 65 73 | .(funcall.function.car).into.res |
| 1ddd80 | 75 6c 74 0a 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 6e 75 6c 6c 20 63 64 72 29 20 72 65 74 75 | ult.........when.(null.cdr).retu |
| 1ddda0 | 72 6e 20 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 61 74 6f 6d 20 63 64 72 | rn.result.........when.(atom.cdr |
| 1dddc0 | 29 20 72 65 74 75 72 6e 20 28 6e 63 6f 6e 63 20 72 65 73 75 6c 74 20 28 66 75 6e 63 61 6c 6c 20 | ).return.(nconc.result.(funcall. |
| 1ddde0 | 66 75 6e 63 74 69 6f 6e 20 63 64 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 70 6c 61 63 65 | function.cdr))))..(defun.replace |
| 1dde00 | 2d 73 74 72 69 6e 67 73 2d 77 69 74 68 2d 73 79 6d 62 6f 6c 73 20 28 74 72 65 65 29 0a 20 20 28 | -strings-with-symbols.(tree)...( |
| 1dde20 | 6d 61 70 2d 6c 69 73 74 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 28 74 79 | map-list....(lambda.(x)......(ty |
| 1dde40 | 70 65 63 61 73 65 20 78 0a 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 28 72 | pecase.x........(list.........(r |
| 1dde60 | 65 70 6c 61 63 65 2d 73 74 72 69 6e 67 73 2d 77 69 74 68 2d 73 79 6d 62 6f 6c 73 20 78 29 29 0a | eplace-strings-with-symbols.x)). |
| 1dde80 | 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 78 29 0a 20 20 20 20 20 20 | .......(symbol.........x)....... |
| 1ddea0 | 20 28 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 78 29 29 0a 20 20 20 | .(string.........(intern.x)).... |
| 1ddec0 | 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 28 77 72 69 74 65 2d 74 6f | ....(t.........(intern.(write-to |
| 1ddee0 | 2d 73 74 72 69 6e 67 20 78 29 29 29 29 29 0a 20 20 20 74 72 65 65 29 29 0a 20 20 20 20 20 20 20 | -string.x)))))....tree))........ |
| 1ddf00 | 20 20 20 20 20 20 20 20 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 72 67 6c | .........(defimplementation.argl |
| 1ddf20 | 69 73 74 20 28 73 79 6d 62 6f 6c 2d 6f 72 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 | ist.(symbol-or-function)...(let. |
| 1ddf40 | 28 28 61 72 67 6c 69 73 74 20 28 6c 77 3a 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 | ((arglist.(lw:function-lambda-li |
| 1ddf60 | 73 74 20 73 79 6d 62 6f 6c 2d 6f 72 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 65 74 | st.symbol-or-function))).....(et |
| 1ddf80 | 79 70 65 63 61 73 65 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 3a | ypecase.arglist.......((member.: |
| 1ddfa0 | 64 6f 6e 74 2d 6b 6e 6f 77 29 20 0a 20 20 20 20 20 20 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c | dont-know).........:not-availabl |
| 1ddfc0 | 65 29 0a 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 73 | e).......(list........(replace-s |
| 1ddfe0 | 74 72 69 6e 67 73 2d 77 69 74 68 2d 73 79 6d 62 6f 6c 73 20 61 72 67 6c 69 73 74 29 29 29 29 29 | trings-with-symbols.arglist))))) |
| 1de000 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 | ..(defimplementation.function-na |
| 1de020 | 6d 65 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 32 20 28 66 75 | me.(function)...(nth-value.2.(fu |
| 1de040 | 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 65 78 70 72 65 73 73 69 6f 6e 20 66 75 6e 63 74 69 6f | nction-lambda-expression.functio |
| 1de060 | 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 63 72 6f 65 78 | n)))..(defimplementation.macroex |
| 1de080 | 70 61 6e 64 2d 61 6c 6c 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 | pand-all.(form.&optional.env)... |
| 1de0a0 | 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 65 6e 76 29 29 0a 20 20 28 77 61 6c 6b 65 72 | (declare.(ignore.env))...(walker |
| 1de0c0 | 3a 77 61 6c 6b 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 6e 65 72 69 | :walk-form.form))..(defun.generi |
| 1de0e0 | 63 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 74 79 70 65 70 20 6f | c-function-p.(object)...(typep.o |
| 1de100 | 62 6a 65 63 74 20 27 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 69 | bject.'generic-function))..(defi |
| 1de120 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f | mplementation.describe-symbol-fo |
| 1de140 | 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 70 6c 69 | r-emacs.(symbol)..."Return.a.pli |
| 1de160 | 73 74 20 64 65 73 63 72 69 62 69 6e 67 20 53 59 4d 42 4f 4c 2e 0a 52 65 74 75 72 6e 20 4e 49 4c | st.describing.SYMBOL..Return.NIL |
| 1de180 | 20 69 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 75 6e 62 6f 75 6e 64 2e 22 0a 20 20 28 6c | .if.the.symbol.is.unbound."...(l |
| 1de1a0 | 65 74 20 28 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 6c 61 62 65 6c 73 20 28 28 | et.((result.'())).....(labels.(( |
| 1de1c0 | 66 69 72 73 74 2d 6c 69 6e 65 20 28 73 74 72 69 6e 67 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 | first-line.(string)............. |
| 1de1e0 | 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 70 6f 73 69 74 69 6f 6e 20 23 5c 6e 65 77 6c 69 | ....(let.((pos.(position.#\newli |
| 1de200 | 6e 65 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | ne.string)))..................(i |
| 1de220 | 66 20 28 6e 75 6c 6c 20 70 6f 73 29 20 73 74 72 69 6e 67 20 28 73 75 62 73 65 71 20 73 74 72 69 | f.(null.pos).string.(subseq.stri |
| 1de240 | 6e 67 20 30 20 70 6f 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 28 | ng.0.pos))))..............(doc.( |
| 1de260 | 6b 69 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 28 73 79 6d 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 | kind.&optional.(sym.symbol)).... |
| 1de280 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 20 28 6f 72 20 28 64 | ............(let.((string.(or.(d |
| 1de2a0 | 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 79 6d 20 6b 69 6e 64 29 29 29 29 0a 20 20 20 20 20 20 | ocumentation.sym.kind))))....... |
| 1de2c0 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 73 74 72 69 6e 67 20 0a 20 20 20 20 20 20 20 20 20 | ...........(if.string........... |
| 1de2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 72 73 74 2d 6c 69 6e 65 20 73 74 72 69 6e 67 29 0a | ............(first-line.string). |
| 1de300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 6f 74 2d 64 6f 63 75 6d 65 | .....................:not-docume |
| 1de320 | 6e 74 65 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 | nted)))..............(maybe-push |
| 1de340 | 20 28 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(property.value)............... |
| 1de360 | 20 28 77 68 65 6e 20 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | .(when.value..................(s |
| 1de380 | 65 74 66 20 72 65 73 75 6c 74 20 28 6c 69 73 74 2a 20 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 | etf.result.(list*.property.value |
| 1de3a0 | 20 72 65 73 75 6c 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 | .result))))).......(maybe-push.. |
| 1de3c0 | 20 20 20 20 20 20 3a 76 61 72 69 61 62 6c 65 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 73 79 | ......:variable.(when.(boundp.sy |
| 1de3e0 | 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 76 | mbol)....................(doc.'v |
| 1de400 | 61 72 69 61 62 6c 65 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 | ariable))).......(maybe-push.... |
| 1de420 | 20 20 20 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 28 69 66 20 28 61 6e 64 20 28 | ....:generic-function.(if.(and.( |
| 1de440 | 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fboundp.symbol)................. |
| 1de460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 | ..................(generic-funct |
| 1de480 | 69 6f 6e 2d 70 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 | ion-p.(fdefinition.symbol))).... |
| 1de4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 | ..........................(doc.' |
| 1de4c0 | 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 | function))).......(maybe-push... |
| 1de4e0 | 20 20 20 20 20 3a 66 75 6e 63 74 69 6f 6e 20 28 69 66 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 | .....:function.(if.(and.(fboundp |
| 1de500 | 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .symbol)........................ |
| 1de520 | 20 20 20 28 6e 6f 74 20 28 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 28 66 64 65 | ...(not.(generic-function-p.(fde |
| 1de540 | 66 69 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | finition.symbol))))............. |
| 1de560 | 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 | .........(doc.'function)))...... |
| 1de580 | 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 73 65 74 66 20 28 6c 65 74 20 28 | .(maybe-push........:setf.(let.( |
| 1de5a0 | 28 73 65 74 66 2d 6e 61 6d 65 20 28 73 79 73 3a 75 6e 64 65 72 6c 79 69 6e 67 2d 73 65 74 66 2d | (setf-name.(sys:underlying-setf- |
| 1de5c0 | 6e 61 6d 65 20 60 28 73 65 74 66 20 2c 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 | name.`(setf.,symbol))))......... |
| 1de5e0 | 20 20 20 20 20 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 73 65 74 66 2d 6e 61 6d 65 29 0a 20 | .......(if.(fboundp.setf-name).. |
| 1de600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 73 65 74 66 29 29 29 29 | ..................(doc.'setf)))) |
| 1de620 | 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 63 6c 61 73 73 | .......(maybe-push........:class |
| 1de640 | 20 28 69 66 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 20 6e 69 6c 29 20 0a 20 20 | .(if.(find-class.symbol.nil).... |
| 1de660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 63 6c 61 73 73 29 29 29 0a 20 | ................(doc.'class))).. |
| 1de680 | 20 20 20 20 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | .....result)))..(defimplementati |
| 1de6a0 | 6f 6e 20 64 65 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 20 74 | on.describe-definition.(symbol.t |
| 1de6c0 | 79 70 65 29 0a 20 20 28 65 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 28 3a 76 61 72 69 61 62 6c | ype)...(ecase.type.....(:variabl |
| 1de6e0 | 65 20 28 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 | e.(describe-symbol.symbol))..... |
| 1de700 | 28 3a 63 6c 61 73 73 20 28 64 65 73 63 72 69 62 65 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 | (:class.(describe.(find-class.sy |
| 1de720 | 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 28 3a 66 75 6e 63 74 69 6f 6e 20 3a 67 65 6e 65 72 69 63 | mbol))).....((:function.:generic |
| 1de740 | 2d 66 75 6e 63 74 69 6f 6e 29 20 28 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 20 73 79 | -function).(describe-function.sy |
| 1de760 | 6d 62 6f 6c 29 29 0a 20 20 20 20 28 3a 73 65 74 66 20 28 64 65 73 63 72 69 62 65 2d 66 75 6e 63 | mbol)).....(:setf.(describe-func |
| 1de780 | 74 69 6f 6e 20 28 73 79 73 3a 75 6e 64 65 72 6c 79 69 6e 67 2d 73 65 74 66 2d 6e 61 6d 65 20 60 | tion.(sys:underlying-setf-name.` |
| 1de7a0 | 28 73 65 74 66 20 2c 73 79 6d 62 6f 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 73 63 | (setf.,symbol))))))..(defun.desc |
| 1de7c0 | 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 63 6f 6e 64 20 28 | ribe-function.(symbol)...(cond.( |
| 1de7e0 | 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 | (fboundp.symbol)..........(forma |
| 1de800 | 74 20 74 20 22 28 7e 41 20 7e 2f 70 70 72 69 6e 74 2d 66 69 6c 6c 2f 29 7e 25 7e 25 7e 3a 5b 28 | t.t."(~A.~/pprint-fill/)~%~%~:[( |
| 1de820 | 6e 6f 74 20 64 6f 63 75 6d 65 6e 74 65 64 29 7e 3b 7e 3a 2a 7e 41 7e 5d 7e 25 22 0a 20 20 20 20 | not.documented)~;~:*~A~]~%"..... |
| 1de840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .............symbol............. |
| 1de860 | 20 20 20 20 20 28 6c 69 73 70 77 6f 72 6b 73 3a 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d | .....(lispworks:function-lambda- |
| 1de880 | 6c 69 73 74 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | list.symbol)..................(d |
| 1de8a0 | 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 79 6d 62 6f 6c 20 27 66 75 6e 63 74 69 6f 6e 29 29 0a | ocumentation.symbol.'function)). |
| 1de8c0 | 20 20 20 20 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 | .........(describe.(fdefinition. |
| 1de8e0 | 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 66 6f 72 6d 61 74 20 74 20 22 | symbol))).........(t.(format.t." |
| 1de900 | 7e 53 20 69 73 20 6e 6f 74 20 66 62 6f 75 6e 64 22 20 73 79 6d 62 6f 6c 29 29 29 29 0a 0a 28 64 | ~S.is.not.fbound".symbol))))..(d |
| 1de920 | 65 66 75 6e 20 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 29 0a 20 20 28 66 6f | efun.describe-symbol.(sym)...(fo |
| 1de940 | 72 6d 61 74 20 74 20 22 7e 41 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 69 6e 20 70 61 63 6b 61 67 | rmat.t."~A.is.a.symbol.in.packag |
| 1de960 | 65 20 7e 41 2e 22 20 73 79 6d 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 73 79 6d 29 29 | e.~A.".sym.(symbol-package.sym)) |
| 1de980 | 0a 20 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 28 66 6f 72 6d 61 | ...(when.(boundp.sym).....(forma |
| 1de9a0 | 74 20 74 20 22 7e 25 7e 25 56 61 6c 75 65 3a 20 7e 41 22 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 | t.t."~%~%Value:.~A".(symbol-valu |
| 1de9c0 | 65 20 73 79 6d 29 29 29 0a 20 20 28 6c 65 74 20 28 28 64 6f 63 20 28 64 6f 63 75 6d 65 6e 74 61 | e.sym)))...(let.((doc.(documenta |
| 1de9e0 | 74 69 6f 6e 20 73 79 6d 20 27 76 61 72 69 61 62 6c 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 | tion.sym.'variable))).....(when. |
| 1dea00 | 64 6f 63 20 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 25 7e 25 56 61 72 69 61 62 | doc........(format.t."~%~%Variab |
| 1dea20 | 6c 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 7e 25 7e 41 22 20 20 64 6f 63 29 29 29 0a 20 | le.documentation:~%~A"..doc))).. |
| 1dea40 | 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 28 64 65 73 63 72 69 | .(when.(fboundp.sym).....(descri |
| 1dea60 | 62 65 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | be-function.sym)))..(defimplemen |
| 1dea80 | 74 61 74 69 6f 6e 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 28 73 79 6d 62 6f 6c 29 | tation.type-specifier-p.(symbol) |
| 1deaa0 | 0a 20 20 28 6f 72 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 28 73 75 | ...(or.(ignore-errors........(su |
| 1deac0 | 62 74 79 70 65 70 20 6e 69 6c 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 28 6e 6f 74 20 28 | btypep.nil.symbol)).......(not.( |
| 1deae0 | 65 71 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 20 73 79 6d 62 6f | eq.(type-specifier-arglist.symbo |
| 1deb00 | 6c 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 29 0a 0a 3b 3b 3b 20 44 65 62 75 67 | l).:not-available))))..;;;.Debug |
| 1deb20 | 67 69 6e 67 0a 0a 28 64 65 66 63 6c 61 73 73 20 73 6c 69 6d 65 2d 65 6e 76 20 28 65 6e 76 3a 65 | ging..(defclass.slime-env.(env:e |
| 1deb40 | 6e 76 69 72 6f 6e 6d 65 6e 74 29 20 0a 20 20 28 28 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 3a | nvironment)....((debugger-hook.: |
| 1deb60 | 69 6e 69 74 61 72 67 20 3a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6f 6b 29 29 29 0a 0a 28 64 65 66 | initarg.:debugger-hoook)))..(def |
| 1deb80 | 75 6e 20 73 6c 69 6d 65 2d 65 6e 76 20 28 68 6f 6f 6b 20 69 6f 2d 62 69 6e 64 69 6e 67 73 29 20 | un.slime-env.(hook.io-bindings). |
| 1deba0 | 0a 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 73 6c 69 6d 65 2d 65 6e 76 20 3a 6e 61 | ...(make-instance.'slime-env.:na |
| 1debc0 | 6d 65 20 22 53 4c 49 4d 45 20 45 6e 76 69 72 6f 6e 6d 65 6e 74 22 20 0a 20 20 20 20 20 20 20 20 | me."SLIME.Environment".......... |
| 1debe0 | 20 20 20 20 20 20 20 20 20 3a 69 6f 2d 62 69 6e 64 69 6e 67 73 20 69 6f 2d 62 69 6e 64 69 6e 67 | .........:io-bindings.io-binding |
| 1dec00 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 62 75 67 67 65 72 2d 68 6f 6f | s..................:debugger-hoo |
| 1dec20 | 6f 6b 20 68 6f 6f 6b 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6e 76 2d 69 6e 74 65 72 6e | ok.hook))..(defmethod.env-intern |
| 1dec40 | 61 6c 73 3a 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 64 69 73 70 6c 61 79 2d 6e 6f 74 69 66 69 65 72 | als:environment-display-notifier |
| 1dec60 | 20 0a 20 20 20 20 28 28 65 6e 76 20 73 6c 69 6d 65 2d 65 6e 76 29 20 26 6b 65 79 20 72 65 73 74 | ......((env.slime-env).&key.rest |
| 1dec80 | 61 72 74 73 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f | arts.condition)...(declare.(igno |
| 1deca0 | 72 65 20 72 65 73 74 61 72 74 73 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 28 73 77 61 6e 6b | re.restarts.condition))...(swank |
| 1decc0 | 3a 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 63 6f 6e 64 69 74 69 6f 6e 20 2a | :swank-debugger-hook.condition.* |
| 1dece0 | 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6e 76 | debugger-hook*))..(defmethod.env |
| 1ded00 | 2d 69 6e 74 65 72 6e 61 6c 73 3a 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 64 69 73 70 6c 61 79 2d 64 | -internals:environment-display-d |
| 1ded20 | 65 62 75 67 67 65 72 20 28 28 65 6e 76 20 73 6c 69 6d 65 2d 65 6e 76 29 29 0a 20 20 2a 64 65 62 | ebugger.((env.slime-env))...*deb |
| 1ded40 | 75 67 2d 69 6f 2a 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6e 76 2d 69 6e 74 65 72 6e 61 6c | ug-io*)..(defmethod.env-internal |
| 1ded60 | 73 3a 63 6f 6e 66 69 72 6d 2d 70 20 28 28 65 20 73 6c 69 6d 65 2d 65 6e 76 29 20 26 6f 70 74 69 | s:confirm-p.((e.slime-env).&opti |
| 1ded80 | 6f 6e 61 6c 20 6d 73 67 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 | onal.msg.&rest.args)...(apply.#' |
| 1deda0 | 73 77 61 6e 6b 3a 79 2d 6f 72 2d 6e 2d 70 2d 69 6e 2d 65 6d 61 63 73 20 6d 73 67 20 61 72 67 73 | swank:y-or-n-p-in-emacs.msg.args |
| 1dedc0 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 | ))..(defimplementation.call-with |
| 1dede0 | 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 28 68 6f 6f 6b 20 66 75 6e 29 0a 20 20 28 6c 65 74 | -debugger-hook.(hook.fun)...(let |
| 1dee00 | 20 28 28 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 68 6f 6f 6b 29 29 0a 20 20 20 20 28 65 | .((*debugger-hook*.hook)).....(e |
| 1dee20 | 6e 76 3a 77 69 74 68 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 28 73 6c 69 6d 65 2d 65 6e 76 20 | nv:with-environment.((slime-env. |
| 1dee40 | 68 6f 6f 6b 20 27 28 29 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 29 29 29 | hook.'())).......(funcall.fun))) |
| 1dee60 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 73 74 61 6c 6c 2d 64 65 | )..(defimplementation.install-de |
| 1dee80 | 62 75 67 67 65 72 2d 67 6c 6f 62 61 6c 6c 79 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 73 65 | bugger-globally.(function)...(se |
| 1deea0 | 74 71 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 | tq.*debugger-hook*.function)...( |
| 1deec0 | 73 65 74 66 20 28 65 6e 76 3a 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 20 28 73 6c 69 6d 65 2d 65 6e | setf.(env:environment).(slime-en |
| 1deee0 | 76 20 66 75 6e 63 74 69 6f 6e 20 27 28 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c 64 62 | v.function.'())))..(defvar.*sldb |
| 1def00 | 2d 74 6f 70 2d 66 72 61 6d 65 2a 29 0a 0a 28 64 65 66 75 6e 20 69 6e 74 65 72 65 73 74 69 6e 67 | -top-frame*)..(defun.interesting |
| 1def20 | 2d 66 72 61 6d 65 2d 70 20 28 66 72 61 6d 65 29 0a 20 20 28 63 6f 6e 64 20 28 28 6f 72 20 28 64 | -frame-p.(frame)...(cond.((or.(d |
| 1def40 | 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 | bg::call-frame-p.frame)......... |
| 1def60 | 20 20 20 20 20 28 64 62 67 3a 3a 64 65 72 69 76 65 64 2d 63 61 6c 6c 2d 66 72 61 6d 65 2d 70 20 | .....(dbg::derived-call-frame-p. |
| 1def80 | 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 62 67 3a 3a 66 6f 72 65 69 67 | frame)..............(dbg::foreig |
| 1defa0 | 6e 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | n-frame-p.frame)..............(d |
| 1defc0 | 62 67 3a 3a 69 6e 74 65 72 70 72 65 74 65 64 2d 63 61 6c 6c 2d 66 72 61 6d 65 2d 70 20 66 72 61 | bg::interpreted-call-frame-p.fra |
| 1defe0 | 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 20 28 28 64 62 67 3a 3a | me))..........t).........((dbg:: |
| 1df000 | 63 61 74 63 68 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 29 20 64 62 67 3a 2a 70 72 69 6e 74 2d | catch-frame-p.frame).dbg:*print- |
| 1df020 | 63 61 74 63 68 2d 66 72 61 6d 65 73 2a 29 0a 20 20 20 20 20 20 20 20 28 28 64 62 67 3a 3a 62 69 | catch-frames*).........((dbg::bi |
| 1df040 | 6e 64 69 6e 67 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 29 20 64 62 67 3a 2a 70 72 69 6e 74 2d | nding-frame-p.frame).dbg:*print- |
| 1df060 | 62 69 6e 64 69 6e 67 2d 66 72 61 6d 65 73 2a 29 0a 20 20 20 20 20 20 20 20 28 28 64 62 67 3a 3a | binding-frames*).........((dbg:: |
| 1df080 | 68 61 6e 64 6c 65 72 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 29 20 64 62 67 3a 2a 70 72 69 6e | handler-frame-p.frame).dbg:*prin |
| 1df0a0 | 74 2d 68 61 6e 64 6c 65 72 2d 66 72 61 6d 65 73 2a 29 0a 20 20 20 20 20 20 20 20 28 28 64 62 67 | t-handler-frames*).........((dbg |
| 1df0c0 | 3a 3a 72 65 73 74 61 72 74 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 29 20 64 62 67 3a 2a 70 72 | ::restart-frame-p.frame).dbg:*pr |
| 1df0e0 | 69 6e 74 2d 72 65 73 74 61 72 74 2d 66 72 61 6d 65 73 2a 29 0a 20 20 20 20 20 20 20 20 28 74 20 | int-restart-frames*).........(t. |
| 1df100 | 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 74 68 2d 6e 65 78 74 2d 66 72 61 6d 65 20 28 66 | nil)))..(defun.nth-next-frame.(f |
| 1df120 | 72 61 6d 65 20 6e 29 0a 20 20 22 55 6e 77 69 6e 64 20 46 52 41 4d 45 20 4e 20 74 69 6d 65 73 2e | rame.n)..."Unwind.FRAME.N.times. |
| 1df140 | 22 0a 20 20 28 64 6f 20 28 28 66 72 61 6d 65 20 66 72 61 6d 65 20 28 64 62 67 3a 3a 66 72 61 6d | "...(do.((frame.frame.(dbg::fram |
| 1df160 | 65 2d 6e 65 78 74 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 69 20 6e 20 28 69 66 20 28 | e-next.frame))........(i.n.(if.( |
| 1df180 | 69 6e 74 65 72 65 73 74 69 6e 67 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 29 20 28 31 2d 20 69 | interesting-frame-p.frame).(1-.i |
| 1df1a0 | 29 20 69 29 29 29 0a 20 20 20 20 20 20 28 28 6f 72 20 28 6e 6f 74 20 66 72 61 6d 65 29 0a 20 20 | ).i))).......((or.(not.frame)... |
| 1df1c0 | 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 69 6e 74 65 72 65 73 74 69 6e 67 2d 66 72 61 6d 65 | .........(and.(interesting-frame |
| 1df1e0 | 2d 70 20 66 72 61 6d 65 29 20 28 7a 65 72 6f 70 20 69 29 29 29 0a 20 20 20 20 20 20 20 66 72 61 | -p.frame).(zerop.i)))........fra |
| 1df200 | 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 74 68 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 29 0a | me)))..(defun.nth-frame.(index). |
| 1df220 | 20 20 28 6e 74 68 2d 6e 65 78 74 2d 66 72 61 6d 65 20 2a 73 6c 64 62 2d 74 6f 70 2d 66 72 61 6d | ..(nth-next-frame.*sldb-top-fram |
| 1df240 | 65 2a 20 69 6e 64 65 78 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 74 6f 70 2d 66 72 61 6d | e*.index))..(defun.find-top-fram |
| 1df260 | 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6d 6f 73 74 20 73 75 69 74 61 62 6c 65 | e.()..."Return.the.most.suitable |
| 1df280 | 20 74 6f 70 2d 66 72 61 6d 65 20 66 6f 72 20 74 68 65 20 64 65 62 75 67 67 65 72 2e 22 0a 20 20 | .top-frame.for.the.debugger."... |
| 1df2a0 | 28 66 6c 65 74 20 28 28 66 69 6e 64 2d 6e 61 6d 65 64 2d 66 72 61 6d 65 20 28 6e 61 6d 65 29 0a | (flet.((find-named-frame.(name). |
| 1df2c0 | 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 20 28 28 66 72 61 6d 65 20 28 64 62 67 3a 3a 64 65 62 | ...........(do.((frame.(dbg::deb |
| 1df2e0 | 75 67 67 65 72 2d 73 74 61 63 6b 2d 63 75 72 72 65 6e 74 2d 66 72 61 6d 65 0a 20 20 20 20 20 20 | ugger-stack-current-frame....... |
| 1df300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 62 67 3a 3a 2a 64 65 62 75 67 67 65 72 | ..................dbg::*debugger |
| 1df320 | 2d 73 74 61 63 6b 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -stack*)........................ |
| 1df340 | 28 6e 74 68 2d 6e 65 78 74 2d 66 72 61 6d 65 20 66 72 61 6d 65 20 31 29 29 29 0a 20 20 20 20 20 | (nth-next-frame.frame.1)))...... |
| 1df360 | 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 28 6e 75 6c 6c 20 66 72 61 6d 65 29 20 20 20 20 20 | ..........((or.(null.frame)..... |
| 1df380 | 20 20 20 3b 20 6e 6f 20 66 72 61 6d 65 20 66 6f 75 6e 64 21 0a 20 20 20 20 20 20 20 20 20 20 20 | ...;.no.frame.found!............ |
| 1df3a0 | 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 64 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 70 | .........(and.(dbg::call-frame-p |
| 1df3c0 | 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .frame)......................... |
| 1df3e0 | 20 28 65 71 20 28 64 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 2d 6e | .(eq.(dbg::call-frame-function-n |
| 1df400 | 61 6d 65 20 66 72 61 6d 65 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame.frame)...................... |
| 1df420 | 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........name)))................ |
| 1df440 | 20 28 6e 74 68 2d 6e 65 78 74 2d 66 72 61 6d 65 20 66 72 61 6d 65 20 31 29 29 29 29 29 0a 20 20 | .(nth-next-frame.frame.1)))))... |
| 1df460 | 20 20 28 6f 72 20 28 66 69 6e 64 2d 6e 61 6d 65 64 2d 66 72 61 6d 65 20 27 69 6e 76 6f 6b 65 2d | ..(or.(find-named-frame.'invoke- |
| 1df480 | 64 65 62 75 67 67 65 72 29 0a 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 6e 61 6d 65 64 2d 66 72 | debugger).........(find-named-fr |
| 1df4a0 | 61 6d 65 20 27 73 77 61 6e 6b 3a 3a 73 61 66 65 2d 62 61 63 6b 74 72 61 63 65 29 0a 20 20 20 20 | ame.'swank::safe-backtrace)..... |
| 1df4c0 | 20 20 20 20 3b 3b 20 69 66 20 77 65 20 63 61 6e 27 74 20 66 69 6e 64 20 61 20 6c 69 6b 65 6c 79 | ....;;.if.we.can't.find.a.likely |
| 1df4e0 | 20 74 6f 70 20 66 72 61 6d 65 2c 20 74 61 6b 65 20 61 6e 79 20 6f 6c 64 20 66 72 61 6d 65 0a 20 | .top.frame,.take.any.old.frame.. |
| 1df500 | 20 20 20 20 20 20 20 3b 3b 20 61 74 20 74 68 65 20 74 6f 70 0a 20 20 20 20 20 20 20 20 28 64 62 | .......;;.at.the.top.........(db |
| 1df520 | 67 3a 3a 64 65 62 75 67 67 65 72 2d 73 74 61 63 6b 2d 63 75 72 72 65 6e 74 2d 66 72 61 6d 65 20 | g::debugger-stack-current-frame. |
| 1df540 | 64 62 67 3a 3a 2a 64 65 62 75 67 67 65 72 2d 73 74 61 63 6b 2a 29 29 29 29 0a 20 20 0a 28 64 65 | dbg::*debugger-stack*))))....(de |
| 1df560 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 | fimplementation.call-with-debugg |
| 1df580 | 69 6e 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 66 6e 29 0a 20 20 28 64 62 67 3a 3a 77 69 74 | ing-environment.(fn)...(dbg::wit |
| 1df5a0 | 68 2d 64 65 62 75 67 67 65 72 2d 73 74 61 63 6b 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a | h-debugger-stack.().....(let.((* |
| 1df5c0 | 73 6c 64 62 2d 74 6f 70 2d 66 72 61 6d 65 2a 20 28 66 69 6e 64 2d 74 6f 70 2d 66 72 61 6d 65 29 | sldb-top-frame*.(find-top-frame) |
| 1df5e0 | 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 29 29 0a 0a 28 64 65 66 69 6d | )).......(funcall.fn))))..(defim |
| 1df600 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 28 | plementation.compute-backtrace.( |
| 1df620 | 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 64 20 28 6f 72 20 65 6e 64 20 | start.end)...(let.((end.(or.end. |
| 1df640 | 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d 29 29 0a 09 28 62 61 63 6b 74 72 61 | most-positive-fixnum))..(backtra |
| 1df660 | 63 65 20 27 28 29 29 29 0a 20 20 20 20 28 64 6f 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 | ce.'())).....(do.((frame.(nth-fr |
| 1df680 | 61 6d 65 20 73 74 61 72 74 29 20 28 64 62 67 3a 3a 66 72 61 6d 65 2d 6e 65 78 74 20 66 72 61 6d | ame.start).(dbg::frame-next.fram |
| 1df6a0 | 65 29 29 0a 09 20 28 69 20 73 74 61 72 74 29 29 0a 09 28 28 6f 72 20 28 6e 6f 74 20 66 72 61 6d | e))...(i.start))..((or.(not.fram |
| 1df6c0 | 65 29 20 28 3d 20 69 20 65 6e 64 29 29 20 28 6e 72 65 76 65 72 73 65 20 62 61 63 6b 74 72 61 63 | e).(=.i.end)).(nreverse.backtrac |
| 1df6e0 | 65 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 69 6e 74 65 72 65 73 74 69 6e 67 2d 66 72 61 | e)).......(when.(interesting-fra |
| 1df700 | 6d 65 2d 70 20 66 72 61 6d 65 29 0a 09 28 69 6e 63 66 20 69 29 0a 09 28 70 75 73 68 20 66 72 61 | me-p.frame)..(incf.i)..(push.fra |
| 1df720 | 6d 65 20 62 61 63 6b 74 72 61 63 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d | me.backtrace)))))..(defun.frame- |
| 1df740 | 61 63 74 75 61 6c 2d 61 72 67 73 20 28 66 72 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 2a 62 72 | actual-args.(frame)...(let.((*br |
| 1df760 | 65 61 6b 2d 6f 6e 2d 73 69 67 6e 61 6c 73 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 6b 69 | eak-on-signals*.nil).........(ki |
| 1df780 | 6e 64 20 6e 69 6c 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 61 72 67 20 69 6e 20 28 64 | nd.nil)).....(loop.for.arg.in.(d |
| 1df7a0 | 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 61 72 67 6c 69 73 74 20 66 72 61 6d 65 29 0a 20 20 | bg::call-frame-arglist.frame)... |
| 1df7c0 | 20 20 20 20 20 20 20 20 69 66 20 28 65 71 20 6b 69 6e 64 20 27 26 72 65 73 74 29 0a 20 20 20 20 | ........if.(eq.kind.'&rest)..... |
| 1df7e0 | 20 20 20 20 20 20 6e 63 6f 6e 63 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 | ......nconc.(handler-case....... |
| 1df800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 62 67 3a 3a 64 62 67 2d 65 76 61 6c 20 61 72 67 | ..............(dbg::dbg-eval.arg |
| 1df820 | 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 | .frame)...................(error |
| 1df840 | 20 28 65 29 20 28 6c 69 73 74 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 3c 7e 41 3e 22 20 61 72 | .(e).(list.(format.nil."<~A>".ar |
| 1df860 | 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 64 6f 20 28 6c 6f 6f 70 2d 66 69 6e | g))))...........and.do.(loop-fin |
| 1df880 | 69 73 68 29 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 | ish)...........else...........if |
| 1df8a0 | 20 28 6d 65 6d 62 65 72 20 61 72 67 20 27 28 26 72 65 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 26 | .(member.arg.'(&rest.&optional.& |
| 1df8c0 | 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 65 74 71 20 6b 69 6e 64 20 61 72 | key))...........do.(setq.kind.ar |
| 1df8e0 | 67 29 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 6e 63 6f 6e | g)...........else...........ncon |
| 1df900 | 63 0a 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 | c...........(handler-case....... |
| 1df920 | 20 20 20 20 20 20 20 20 28 6e 63 6f 6e 63 20 28 61 6e 64 20 28 65 71 20 6b 69 6e 64 20 27 26 6b | ........(nconc.(and.(eq.kind.'&k |
| 1df940 | 65 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ey)...........................(l |
| 1df960 | 69 73 74 20 28 63 6f 6e 64 20 28 28 73 79 6d 62 6f 6c 70 20 61 72 67 29 0a 20 20 20 20 20 20 20 | ist.(cond.((symbolp.arg)........ |
| 1df980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1df9a0 | 28 69 6e 74 65 72 6e 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 61 72 67 29 20 3a 6b 65 79 77 6f | (intern.(symbol-name.arg).:keywo |
| 1df9c0 | 72 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rd))............................ |
| 1df9e0 | 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 63 6f 6e 73 70 20 61 72 67 29 20 28 73 79 | ...........((and.(consp.arg).(sy |
| 1dfa00 | 6d 62 6f 6c 70 20 28 63 61 72 20 61 72 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mbolp.(car.arg)))............... |
| 1dfa20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e | .........................(intern |
| 1dfa40 | 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 63 61 72 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 | .(symbol-name.(car.arg))........ |
| 1dfa60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1dfa80 | 20 20 20 20 20 20 20 20 3a 6b 65 79 77 6f 72 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........:keyword)).............. |
| 1dfaa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 63 61 61 | .........................(t.(caa |
| 1dfac0 | 72 20 61 72 67 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.arg)))))...................... |
| 1dfae0 | 28 6c 69 73 74 20 28 64 62 67 3a 3a 64 62 67 2d 65 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 | (list.(dbg::dbg-eval............ |
| 1dfb00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 79 6d 62 6f 6c 70 | .................(cond.((symbolp |
| 1dfb20 | 20 61 72 67 29 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .arg).arg)...................... |
| 1dfb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 63 6f 6e 73 70 20 61 72 67 29 20 28 | .............((and.(consp.arg).( |
| 1dfb60 | 73 79 6d 62 6f 6c 70 20 28 63 61 72 20 61 72 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | symbolp.(car.arg)))............. |
| 1dfb80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 61 72 67 29 | .......................(car.arg) |
| 1dfba0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 1dfbc0 | 20 20 20 20 28 74 20 28 63 61 64 61 72 20 61 72 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ....(t.(cadar.arg)))............ |
| 1dfbe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 | .................frame)))....... |
| 1dfc00 | 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 65 29 20 28 6c 69 73 74 20 28 66 6f 72 6d 61 74 20 6e | ......(error.(e).(list.(format.n |
| 1dfc20 | 69 6c 20 22 3c 7e 41 3e 22 20 61 72 67 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | il."<~A>".arg)))))))..(defimplem |
| 1dfc40 | 65 6e 74 61 74 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 73 74 72 65 | entation.print-frame.(frame.stre |
| 1dfc60 | 61 6d 29 0a 20 20 28 63 6f 6e 64 20 28 28 64 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 70 20 | am)...(cond.((dbg::call-frame-p. |
| 1dfc80 | 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 20 28 63 6f 6e 73 20 28 64 62 | frame)..........(prin1.(cons.(db |
| 1dfca0 | 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 72 61 6d | g::call-frame-function-name.fram |
| 1dfcc0 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 2d | e).......................(frame- |
| 1dfce0 | 61 63 74 75 61 6c 2d 61 72 67 73 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | actual-args.frame))............. |
| 1dfd00 | 20 20 20 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 70 72 69 6e 63 20 66 | ....stream)).........(t.(princ.f |
| 1dfd20 | 72 61 6d 65 20 73 74 72 65 61 6d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 76 61 | rame.stream))))..(defun.frame-va |
| 1dfd40 | 72 73 20 28 66 72 61 6d 65 29 0a 20 20 28 66 69 72 73 74 20 28 64 62 67 3a 3a 66 72 61 6d 65 2d | rs.(frame)...(first.(dbg::frame- |
| 1dfd60 | 6c 6f 63 61 6c 73 2d 66 6f 72 6d 61 74 2d 6c 69 73 74 20 66 72 61 6d 65 20 23 27 6c 69 73 74 20 | locals-format-list.frame.#'list. |
| 1dfd80 | 37 35 20 30 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d | 75.0)))..(defimplementation.fram |
| 1dfda0 | 65 2d 6c 6f 63 61 6c 73 20 28 6e 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 | e-locals.(n)...(let.((frame.(nth |
| 1dfdc0 | 2d 66 72 61 6d 65 20 6e 29 29 29 0a 20 20 20 20 28 69 66 20 28 64 62 67 3a 3a 63 61 6c 6c 2d 66 | -frame.n))).....(if.(dbg::call-f |
| 1dfde0 | 72 61 6d 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c | rame-p.frame).........(mapcar.(l |
| 1dfe00 | 61 6d 62 64 61 20 28 76 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | ambda.(var)...................(d |
| 1dfe20 | 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6e 61 6d 65 20 76 61 6c 75 65 20 73 79 | estructuring-bind.(name.value.sy |
| 1dfe40 | 6d 62 6f 6c 20 6c 6f 63 61 74 69 6f 6e 29 20 76 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | mbol.location).var.............. |
| 1dfe60 | 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6e 61 6d 65 20 6c 6f 63 | .......(declare.(ignore.name.loc |
| 1dfe80 | 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | ation)).....................(lis |
| 1dfea0 | 74 20 3a 6e 61 6d 65 20 73 79 6d 62 6f 6c 20 3a 69 64 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 | t.:name.symbol.:id.0............ |
| 1dfec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 61 6c 75 65 20 76 61 6c 75 65 29 29 29 0a 20 | ...............:value.value))).. |
| 1dfee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 2d 76 61 72 73 20 66 72 61 6d 65 | ...............(frame-vars.frame |
| 1dff00 | 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d | )))))..(defimplementation.frame- |
| 1dff20 | 76 61 72 2d 76 61 6c 75 65 20 28 66 72 61 6d 65 20 76 61 72 29 0a 20 20 28 6c 65 74 20 28 28 66 | var-value.(frame.var)...(let.((f |
| 1dff40 | 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 64 65 | rame.(nth-frame.frame))).....(de |
| 1dff60 | 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 5f 6e 20 76 61 6c 75 65 20 5f 73 20 5f 6c | structuring-bind.(_n.value._s._l |
| 1dff80 | 29 20 28 6e 74 68 20 76 61 72 20 28 66 72 61 6d 65 2d 76 61 72 73 20 66 72 61 6d 65 29 29 0a 20 | ).(nth.var.(frame-vars.frame)).. |
| 1dffa0 | 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 5f 6e 20 5f 73 20 5f 6c 29 29 | .....(declare.(ignore._n._s._l)) |
| 1dffc0 | 0a 20 20 20 20 20 20 76 61 6c 75 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | .......value)))..(defimplementat |
| 1dffe0 | 69 6f 6e 20 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 72 61 6d 65 | ion.frame-source-location.(frame |
| 1e0000 | 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d | )...(let.((frame.(nth-frame.fram |
| 1e0020 | 65 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 6c 65 65 20 28 69 66 20 28 70 6c 75 73 70 20 66 | e)).........(callee.(if.(plusp.f |
| 1e0040 | 72 61 6d 65 29 20 28 6e 74 68 2d 66 72 61 6d 65 20 28 31 2d 20 66 72 61 6d 65 29 29 29 29 29 0a | rame).(nth-frame.(1-.frame))))). |
| 1e0060 | 20 20 20 20 28 69 66 20 28 64 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 | ....(if.(dbg::call-frame-p.frame |
| 1e0080 | 29 0a 09 28 6c 65 74 20 28 28 64 73 70 65 63 20 28 64 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 | )..(let.((dspec.(dbg::call-frame |
| 1e00a0 | 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 | -function-name.frame)).......... |
| 1e00c0 | 20 20 20 20 20 28 63 6e 61 6d 65 20 28 61 6e 64 20 28 64 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d | .....(cname.(and.(dbg::call-fram |
| 1e00e0 | 65 2d 70 20 63 61 6c 6c 65 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-p.callee)..................... |
| 1e0100 | 20 20 20 20 20 20 28 64 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 2d | ......(dbg::call-frame-function- |
| 1e0120 | 6e 61 6d 65 20 63 61 6c 6c 65 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 | name.callee)))...............(pa |
| 1e0140 | 74 68 20 28 61 6e 64 20 28 64 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 | th.(and.(dbg::call-frame-p.frame |
| 1e0160 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 62 67 3a | )..........................(dbg: |
| 1e0180 | 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 65 64 69 74 2d 70 61 74 68 20 66 72 61 6d 65 29 29 29 29 0a | :call-frame-edit-path.frame)))). |
| 1e01a0 | 09 20 20 28 69 66 20 64 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 72 61 6d | ...(if.dspec...............(fram |
| 1e01c0 | 65 2d 6c 6f 63 61 74 69 6f 6e 20 64 73 70 65 63 20 63 6e 61 6d 65 20 70 61 74 68 29 29 29 29 29 | e-location.dspec.cname.path))))) |
| 1e01e0 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 65 76 61 6c 2d 69 6e 2d 66 72 | )..(defimplementation.eval-in-fr |
| 1e0200 | 61 6d 65 20 28 66 6f 72 6d 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 20 28 | ame.(form.frame-number)...(let.( |
| 1e0220 | 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 | (frame.(nth-frame.frame-number)) |
| 1e0240 | 29 0a 20 20 20 20 28 64 62 67 3a 3a 64 62 67 2d 65 76 61 6c 20 66 6f 72 6d 20 66 72 61 6d 65 29 | ).....(dbg::dbg-eval.form.frame) |
| 1e0260 | 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 61 63 6b 61 67 65 | ))..(defun.function-name-package |
| 1e0280 | 20 28 6e 61 6d 65 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 6e 61 6d 65 0a 20 20 20 20 28 6e 75 | .(name)...(typecase.name.....(nu |
| 1e02a0 | 6c 6c 20 6e 69 6c 29 0a 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b | ll.nil).....(symbol.(symbol-pack |
| 1e02c0 | 61 67 65 20 6e 61 6d 65 29 29 0a 20 20 20 20 28 28 63 6f 6e 73 20 28 65 71 6c 20 68 63 6c 3a 73 | age.name)).....((cons.(eql.hcl:s |
| 1e02e0 | 75 62 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 | ubfunction))......(destructuring |
| 1e0300 | 2d 62 69 6e 64 20 28 6e 61 6d 65 20 70 61 72 65 6e 74 29 20 28 63 64 72 20 6e 61 6d 65 29 0a 20 | -bind.(name.parent).(cdr.name).. |
| 1e0320 | 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6e 61 6d 65 29 29 0a 20 20 | ......(declare.(ignore.name))... |
| 1e0340 | 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 61 63 6b 61 67 65 20 70 61 72 65 | .....(function-name-package.pare |
| 1e0360 | 6e 74 29 29 29 0a 20 20 20 20 28 28 63 6f 6e 73 20 28 65 71 6c 20 6c 77 3a 74 6f 70 2d 6c 65 76 | nt))).....((cons.(eql.lw:top-lev |
| 1e0380 | 65 6c 2d 66 6f 72 6d 29 29 20 6e 69 6c 29 0a 20 20 20 20 28 74 20 6e 69 6c 29 29 29 0a 0a 28 64 | el-form)).nil).....(t.nil)))..(d |
| 1e03a0 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 70 61 63 6b 61 67 65 20 28 | efimplementation.frame-package.( |
| 1e03c0 | 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e 74 | frame-number)...(let.((frame.(nt |
| 1e03e0 | 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 28 69 66 20 | h-frame.frame-number))).....(if. |
| 1e0400 | 28 64 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 | (dbg::call-frame-p.frame)....... |
| 1e0420 | 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 61 63 6b 61 67 65 20 28 64 62 67 3a 3a 63 | ..(function-name-package.(dbg::c |
| 1e0440 | 61 6c 6c 2d 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 72 61 6d 65 29 29 29 | all-frame-function-name.frame))) |
| 1e0460 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 74 75 72 6e 2d 66 72 | ))..(defimplementation.return-fr |
| 1e0480 | 6f 6d 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 66 6f 72 6d 29 0a 20 20 28 | om-frame.(frame-number.form)...( |
| 1e04a0 | 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 | let*.((frame.(nth-frame.frame-nu |
| 1e04c0 | 6d 62 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 61 6d 65 20 28 64 | mber))..........(return-frame.(d |
| 1e04e0 | 62 67 3a 3a 66 69 6e 64 2d 66 72 61 6d 65 2d 66 6f 72 2d 72 65 74 75 72 6e 20 66 72 61 6d 65 29 | bg::find-frame-for-return.frame) |
| 1e0500 | 29 29 0a 20 20 20 20 28 64 62 67 3a 3a 64 62 67 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 63 61 6c | )).....(dbg::dbg-return-from-cal |
| 1e0520 | 6c 2d 66 72 61 6d 65 20 66 72 61 6d 65 20 66 6f 72 6d 20 72 65 74 75 72 6e 2d 66 72 61 6d 65 0a | l-frame.frame.form.return-frame. |
| 1e0540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1e0560 | 20 20 20 20 20 64 62 67 3a 3a 2a 64 65 62 75 67 67 65 72 2d 73 74 61 63 6b 2a 29 29 29 0a 0a 28 | .....dbg::*debugger-stack*)))..( |
| 1e0580 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 73 74 61 72 74 2d 66 72 61 6d 65 20 | defimplementation.restart-frame. |
| 1e05a0 | 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e | (frame-number)...(let.((frame.(n |
| 1e05c0 | 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 28 64 62 | th-frame.frame-number))).....(db |
| 1e05e0 | 67 3a 3a 72 65 73 74 61 72 74 2d 66 72 61 6d 65 20 66 72 61 6d 65 20 3a 73 61 6d 65 2d 61 72 67 | g::restart-frame.frame.:same-arg |
| 1e0600 | 73 20 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 69 73 61 73 | s.t)))..(defimplementation.disas |
| 1e0620 | 73 65 6d 62 6c 65 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c | semble-frame.(frame-number)...(l |
| 1e0640 | 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d | et*.((frame.(nth-frame.frame-num |
| 1e0660 | 62 65 72 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 64 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d | ber))).....(when.(dbg::call-fram |
| 1e0680 | 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 75 6e 63 74 69 6f 6e | e-p.frame).......(let.((function |
| 1e06a0 | 20 28 64 62 67 3a 3a 67 65 74 2d 63 61 6c 6c 2d 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 66 | .(dbg::get-call-frame-function.f |
| 1e06c0 | 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 62 6c 65 20 66 75 6e | rame))).........(disassemble.fun |
| 1e06e0 | 63 74 69 6f 6e 29 29 29 29 29 0a 0a 3b 3b 3b 20 44 65 66 69 6e 69 74 69 6f 6e 20 66 69 6e 64 69 | ction)))))..;;;.Definition.findi |
| 1e0700 | 6e 67 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 64 73 70 65 63 | ng..(defun.frame-location.(dspec |
| 1e0720 | 20 63 61 6c 6c 65 65 2d 6e 61 6d 65 20 65 64 69 74 2d 70 61 74 68 29 0a 20 20 28 6c 65 74 20 28 | .callee-name.edit-path)...(let.( |
| 1e0740 | 28 69 6e 66 6f 73 20 28 64 73 70 65 63 3a 66 69 6e 64 2d 64 73 70 65 63 2d 6c 6f 63 61 74 69 6f | (infos.(dspec:find-dspec-locatio |
| 1e0760 | 6e 73 20 64 73 70 65 63 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 69 6e 66 6f 73 20 0a 20 20 | ns.dspec))).....(cond.(infos.... |
| 1e0780 | 20 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 28 72 | .........(destructuring-bind.((r |
| 1e07a0 | 64 73 70 65 63 20 6c 6f 63 61 74 69 6f 6e 29 20 26 72 65 73 74 20 5f 29 20 69 6e 66 6f 73 0a 20 | dspec.location).&rest._).infos.. |
| 1e07c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 5f 29 29 | ............(declare.(ignore._)) |
| 1e07e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 61 6e 64 20 63 | ..............(let.((name.(and.c |
| 1e0800 | 61 6c 6c 65 65 2d 6e 61 6d 65 20 28 73 79 6d 62 6f 6c 70 20 63 61 6c 6c 65 65 2d 6e 61 6d 65 29 | allee-name.(symbolp.callee-name) |
| 1e0820 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1e0840 | 73 74 72 69 6e 67 20 63 61 6c 6c 65 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | string.callee-name)))........... |
| 1e0860 | 20 20 20 20 20 20 20 20 20 28 70 61 74 68 20 28 65 64 69 74 2d 70 61 74 68 2d 74 6f 2d 63 6d 75 | .........(path.(edit-path-to-cmu |
| 1e0880 | 63 6c 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 65 64 69 74 2d 70 61 74 68 29 29 29 0a 20 20 20 20 | cl-source-path.edit-path)))..... |
| 1e08a0 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 64 73 70 65 63 2d 6c 6f 63 61 74 69 6f 6e 20 | ...........(make-dspec-location. |
| 1e08c0 | 72 64 73 70 65 63 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rdspec.location................. |
| 1e08e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 63 61 6c 6c 2d 73 69 74 65 | ....................`(:call-site |
| 1e0900 | 20 2c 6e 61 6d 65 20 3a 65 64 69 74 2d 70 61 74 68 20 2c 70 61 74 68 29 29 29 29 29 0a 20 20 20 | .,name.:edit-path.,path))))).... |
| 1e0920 | 20 20 20 20 20 20 20 28 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 65 72 72 | .......(t.............(list.:err |
| 1e0940 | 6f 72 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 53 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 | or.(format.nil."Source.location. |
| 1e0960 | 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 66 6f 72 3a 20 7e 53 22 20 0a 20 20 20 20 20 20 20 20 | not.available.for:.~S".......... |
| 1e0980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 73 70 65 63 29 29 29 | ........................dspec))) |
| 1e09a0 | 29 29 29 0a 0a 3b 3b 20 64 62 67 3a 3a 63 61 6c 6c 2d 66 72 61 6d 65 2d 65 64 69 74 2d 70 61 74 | )))..;;.dbg::call-frame-edit-pat |
| 1e09c0 | 68 20 69 73 20 6e 6f 74 20 64 6f 63 75 6d 65 6e 74 65 64 20 62 75 74 20 6c 65 74 73 20 61 73 73 | h.is.not.documented.but.lets.ass |
| 1e09e0 | 75 6d 65 20 74 68 65 0a 3b 3b 20 62 69 6e 61 72 79 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e | ume.the.;;.binary.representation |
| 1e0a00 | 20 6f 66 20 74 68 65 20 69 6e 74 65 67 65 72 20 45 44 49 54 2d 50 41 54 48 20 73 68 6f 75 6c 64 | .of.the.integer.EDIT-PATH.should |
| 1e0a20 | 20 62 65 0a 3b 3b 20 69 6e 74 65 72 70 72 65 74 65 64 20 61 73 20 61 20 73 65 71 75 65 6e 63 65 | .be.;;.interpreted.as.a.sequence |
| 1e0a40 | 20 6f 66 20 43 41 52 20 6f 72 20 43 44 52 2e 20 20 23 62 31 31 31 31 30 31 30 20 69 73 20 72 6f | .of.CAR.or.CDR...#b1111010.is.ro |
| 1e0a60 | 75 67 68 6c 79 20 74 68 65 0a 3b 3b 20 73 61 6d 65 20 61 73 20 63 61 64 61 64 64 64 72 2e 20 20 | ughly.the.;;.same.as.cadadddr... |
| 1e0a80 | 53 6f 6d 65 74 68 69 6e 67 20 69 73 20 6f 64 64 20 77 69 74 68 20 74 68 65 20 68 69 67 68 65 73 | Something.is.odd.with.the.highes |
| 1e0aa0 | 74 20 62 69 74 2e 0a 28 64 65 66 75 6e 20 65 64 69 74 2d 70 61 74 68 2d 74 6f 2d 63 6d 75 63 6c | t.bit..(defun.edit-path-to-cmucl |
| 1e0ac0 | 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 28 65 64 69 74 2d 70 61 74 68 29 0a 20 20 28 61 6e 64 20 | -source-path.(edit-path)...(and. |
| 1e0ae0 | 65 64 69 74 2d 70 61 74 68 0a 20 20 20 20 20 20 20 28 63 6f 6e 73 20 30 0a 20 20 20 20 20 20 20 | edit-path........(cons.0........ |
| 1e0b00 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 20 2d 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(let.((n.-1))............. |
| 1e0b20 | 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 28 31 2d 20 28 69 6e 74 65 67 65 72 | ...(loop.for.i.from.(1-.(integer |
| 1e0b40 | 2d 6c 65 6e 67 74 68 20 65 64 69 74 2d 70 61 74 68 29 29 20 64 6f 77 6e 74 6f 20 30 0a 20 20 20 | -length.edit-path)).downto.0.... |
| 1e0b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 6f 67 62 69 74 70 20 69 20 | ..................if.(logbitp.i. |
| 1e0b80 | 65 64 69 74 2d 70 61 74 68 29 20 64 6f 20 28 69 6e 63 66 20 6e 29 0a 20 20 20 20 20 20 20 20 20 | edit-path).do.(incf.n).......... |
| 1e0ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 63 6f 6c 6c 65 63 74 20 28 70 72 6f 67 31 20 | ............else.collect.(prog1. |
| 1e0bc0 | 6e 20 28 73 65 74 71 20 6e 20 30 29 29 29 29 29 29 29 0a 0a 3b 3b 20 28 65 64 69 74 2d 70 61 74 | n.(setq.n.0)))))))..;;.(edit-pat |
| 1e0be0 | 68 2d 74 6f 2d 63 6d 75 63 6c 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 23 62 31 31 31 31 30 31 30 | h-to-cmucl-source-path.#b1111010 |
| 1e0c00 | 29 20 3d 3e 20 28 30 20 33 20 31 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ).=>.(0.3.1)..(defimplementation |
| 1e0c20 | 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 | .find-definitions.(name)...(let. |
| 1e0c40 | 28 28 6c 6f 63 61 74 69 6f 6e 73 20 28 64 73 70 65 63 3a 66 69 6e 64 2d 6e 61 6d 65 2d 6c 6f 63 | ((locations.(dspec:find-name-loc |
| 1e0c60 | 61 74 69 6f 6e 73 20 64 73 70 65 63 3a 2a 64 73 70 65 63 2d 63 6c 61 73 73 65 73 2a 20 6e 61 6d | ations.dspec:*dspec-classes*.nam |
| 1e0c80 | 65 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 64 73 70 65 63 20 6c 6f 63 61 74 69 | e))).....(loop.for.(dspec.locati |
| 1e0ca0 | 6f 6e 29 20 69 6e 20 6c 6f 63 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 | on).in.locations...........colle |
| 1e0cc0 | 63 74 20 28 6c 69 73 74 20 64 73 70 65 63 20 28 6d 61 6b 65 2d 64 73 70 65 63 2d 6c 6f 63 61 74 | ct.(list.dspec.(make-dspec-locat |
| 1e0ce0 | 69 6f 6e 20 64 73 70 65 63 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 43 | ion.dspec.location)))))....;;;.C |
| 1e0d00 | 6f 6d 70 69 6c 61 74 69 6f 6e 20 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 73 77 61 6e | ompilation...(defmacro.with-swan |
| 1e0d20 | 6b 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 75 6e 69 74 20 28 28 6c 6f 63 61 74 69 6f 6e 20 26 72 | k-compilation-unit.((location.&r |
| 1e0d40 | 65 73 74 20 6f 70 74 69 6f 6e 73 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 28 6c 77 3a 72 | est.options).&body.body)...(lw:r |
| 1e0d60 | 65 62 69 6e 64 69 6e 67 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 | ebinding.(location).....`(let.(( |
| 1e0d80 | 63 6f 6d 70 69 6c 65 72 3a 3a 2a 65 72 72 6f 72 2d 64 61 74 61 62 61 73 65 2a 20 27 28 29 29 29 | compiler::*error-database*.'())) |
| 1e0da0 | 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 75 6e 69 74 20 2c | ........(with-compilation-unit., |
| 1e0dc0 | 6f 70 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | options..........(multiple-value |
| 1e0de0 | 2d 70 72 6f 67 31 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 | -prog1.(progn.,@body)........... |
| 1e0e00 | 20 28 73 69 67 6e 61 6c 2d 65 72 72 6f 72 2d 64 61 74 61 2d 62 61 73 65 20 63 6f 6d 70 69 6c 65 | .(signal-error-data-base.compile |
| 1e0e20 | 72 3a 3a 2a 65 72 72 6f 72 2d 64 61 74 61 62 61 73 65 2a 20 0a 20 20 20 20 20 20 20 20 20 20 20 | r::*error-database*............. |
| 1e0e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 6c 6f 63 61 74 69 6f | ........................,locatio |
| 1e0e60 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 75 6e 64 65 66 69 6e 65 64 2d | n)............(signal-undefined- |
| 1e0e80 | 66 75 6e 63 74 69 6f 6e 73 20 63 6f 6d 70 69 6c 65 72 3a 3a 2a 75 6e 6b 6e 6f 77 6e 2d 66 75 6e | functions.compiler::*unknown-fun |
| 1e0ea0 | 63 74 69 6f 6e 73 2a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ctions*......................... |
| 1e0ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 29 0a | ................,location)))))). |
| 1e0ee0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c | .(defimplementation.swank-compil |
| 1e0f00 | 65 2d 66 69 6c 65 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 0a 20 | e-file.(input-file.output-file.. |
| 1e0f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1e0f40 | 20 20 20 20 20 20 6c 6f 61 64 2d 70 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 | ......load-p.external-format.... |
| 1e0f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1e0f80 | 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e | ....&key.policy)...(declare.(ign |
| 1e0fa0 | 6f 72 65 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 77 69 74 68 2d 73 77 61 6e 6b 2d 63 6f 6d 70 69 | ore.policy))...(with-swank-compi |
| 1e0fc0 | 6c 61 74 69 6f 6e 2d 75 6e 69 74 20 28 69 6e 70 75 74 2d 66 69 6c 65 29 0a 20 20 20 20 28 63 6f | lation-unit.(input-file).....(co |
| 1e0fe0 | 6d 70 69 6c 65 2d 66 69 6c 65 20 69 6e 70 75 74 2d 66 69 6c 65 20 0a 20 20 20 20 20 20 20 20 20 | mpile-file.input-file........... |
| 1e1000 | 20 20 20 20 20 20 20 20 20 3a 6f 75 74 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c | .........:output-file.output-fil |
| 1e1020 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 61 64 20 6c 6f 61 64 2d 70 | e...................:load.load-p |
| 1e1040 | 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f | ....................:external-fo |
| 1e1060 | 72 6d 61 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 29 0a 0a 28 64 65 66 76 61 72 | rmat.external-format)))..(defvar |
| 1e1080 | 20 2a 77 69 74 68 69 6e 2d 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 | .*within-call-with-compilation-h |
| 1e10a0 | 6f 6f 6b 73 2a 20 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 43 4f 4d 50 49 4c 45 2d 46 49 4c | ooks*.nil..."Whether.COMPILE-FIL |
| 1e10c0 | 45 20 77 61 73 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 43 41 4c 4c 2d 57 49 | E.was.called.from.within.CALL-WI |
| 1e10e0 | 54 48 2d 43 4f 4d 50 49 4c 41 54 49 4f 4e 2d 48 4f 4f 4b 53 2e 22 29 0a 0a 28 64 65 66 76 61 72 | TH-COMPILATION-HOOKS.")..(defvar |
| 1e1100 | 20 2a 75 6e 64 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2d 68 61 73 68 2a 20 6e 69 6c 0a | .*undefined-functions-hash*.nil. |
| 1e1120 | 20 20 22 48 61 73 68 20 74 61 62 6c 65 20 74 6f 20 6d 61 70 20 69 6e 66 6f 20 61 62 6f 75 74 20 | .."Hash.table.to.map.info.about. |
| 1e1140 | 75 6e 64 65 66 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 70 61 74 68 6e 61 6d 65 73 | undefined.functions.to.pathnames |
| 1e1160 | 2e 22 29 0a 0a 28 6c 77 3a 64 65 66 61 64 76 69 63 65 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 | .")..(lw:defadvice.(compile-file |
| 1e1180 | 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 61 6e 64 2d 63 6f 6c 6c 65 63 74 2d 6e 6f 74 65 73 20 | .compile-file-and-collect-notes. |
| 1e11a0 | 3a 61 72 6f 75 6e 64 29 0a 20 20 20 20 28 70 61 74 68 6e 61 6d 65 20 26 72 65 73 74 20 72 65 73 | :around).....(pathname.&rest.res |
| 1e11c0 | 74 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 70 72 6f 67 31 20 28 61 70 70 6c | t)...(multiple-value-prog1.(appl |
| 1e11e0 | 79 20 23 27 6c 77 3a 63 61 6c 6c 2d 6e 65 78 74 2d 61 64 76 69 63 65 20 70 61 74 68 6e 61 6d 65 | y.#'lw:call-next-advice.pathname |
| 1e1200 | 20 72 65 73 74 29 0a 20 20 20 20 28 77 68 65 6e 20 2a 77 69 74 68 69 6e 2d 63 61 6c 6c 2d 77 69 | .rest).....(when.*within-call-wi |
| 1e1220 | 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 2a 0a 20 20 20 20 20 20 28 6d 61 70 | th-compilation-hooks*.......(map |
| 1e1240 | 68 61 73 68 20 28 6c 61 6d 62 64 61 20 28 75 6e 66 75 6e 20 64 73 70 65 63 73 29 0a 20 20 20 20 | hash.(lambda.(unfun.dspecs)..... |
| 1e1260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 64 73 70 65 63 20 64 73 70 65 | .............(dolist.(dspec.dspe |
| 1e1280 | 63 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 75 6e | cs)....................(let.((un |
| 1e12a0 | 66 75 6e 2d 69 6e 66 6f 20 28 6c 69 73 74 20 75 6e 66 75 6e 20 64 73 70 65 63 29 29 29 0a 20 20 | fun-info.(list.unfun.dspec)))... |
| 1e12c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 67 65 74 68 | ...................(unless.(geth |
| 1e12e0 | 61 73 68 20 75 6e 66 75 6e 2d 69 6e 66 6f 20 2a 75 6e 64 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 | ash.unfun-info.*undefined-functi |
| 1e1300 | 6f 6e 73 2d 68 61 73 68 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ons-hash*)...................... |
| 1e1320 | 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 75 6e 66 75 6e 2d 69 6e 66 6f 20 2a 75 6e 64 | ..(setf.(gethash.unfun-info.*und |
| 1e1340 | 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2d 68 61 73 68 2a 29 0a 20 20 20 20 20 20 20 20 | efined-functions-hash*)......... |
| 1e1360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 6e 61 6d 65 29 | .......................pathname) |
| 1e1380 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 72 3a 3a 2a 75 | ))))................compiler::*u |
| 1e13a0 | 6e 6b 6e 6f 77 6e 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | nknown-functions*))))..(defimple |
| 1e13c0 | 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d | mentation.call-with-compilation- |
| 1e13e0 | 68 6f 6f 6b 73 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 69 6c | hooks.(function)...(let.((compil |
| 1e1400 | 65 72 3a 3a 2a 65 72 72 6f 72 2d 64 61 74 61 62 61 73 65 2a 20 27 28 29 29 0a 20 20 20 20 20 20 | er::*error-database*.'())....... |
| 1e1420 | 20 20 28 2a 75 6e 64 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2d 68 61 73 68 2a 20 28 6d | ..(*undefined-functions-hash*.(m |
| 1e1440 | 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 20 20 | ake-hash-table.:test.'equal))... |
| 1e1460 | 20 20 20 20 20 20 28 2a 77 69 74 68 69 6e 2d 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 | ......(*within-call-with-compila |
| 1e1480 | 74 69 6f 6e 2d 68 6f 6f 6b 73 2a 20 74 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c | tion-hooks*.t)).....(with-compil |
| 1e14a0 | 61 74 69 6f 6e 2d 75 6e 69 74 20 28 29 0a 20 20 20 20 20 20 28 70 72 6f 67 31 20 28 66 75 6e 63 | ation-unit.().......(prog1.(func |
| 1e14c0 | 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 65 72 | all.function).........(signal-er |
| 1e14e0 | 72 6f 72 2d 64 61 74 61 2d 62 61 73 65 20 63 6f 6d 70 69 6c 65 72 3a 3a 2a 65 72 72 6f 72 2d 64 | ror-data-base.compiler::*error-d |
| 1e1500 | 61 74 61 62 61 73 65 2a 29 0a 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 75 6e 64 65 66 69 | atabase*).........(signal-undefi |
| 1e1520 | 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 73 20 63 6f 6d 70 69 6c 65 72 3a 3a 2a 75 6e 6b 6e 6f 77 6e | ned-functions.compiler::*unknown |
| 1e1540 | 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 70 2d 65 72 72 | -functions*)))))..(defun.map-err |
| 1e1560 | 6f 72 2d 64 61 74 61 62 61 73 65 20 28 64 61 74 61 62 61 73 65 20 66 6e 29 0a 20 20 28 6c 6f 6f | or-database.(database.fn)...(loo |
| 1e1580 | 70 20 66 6f 72 20 28 66 69 6c 65 6e 61 6d 65 20 2e 20 64 65 66 73 29 20 69 6e 20 64 61 74 61 62 | p.for.(filename...defs).in.datab |
| 1e15a0 | 61 73 65 20 64 6f 0a 09 28 6c 6f 6f 70 20 66 6f 72 20 28 64 73 70 65 63 20 2e 20 63 6f 6e 64 69 | ase.do..(loop.for.(dspec...condi |
| 1e15c0 | 74 69 6f 6e 73 29 20 69 6e 20 64 65 66 73 20 64 6f 0a 09 20 20 20 20 20 20 28 64 6f 6c 69 73 74 | tions).in.defs.do........(dolist |
| 1e15e0 | 20 28 63 20 63 6f 6e 64 69 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(c.conditions)................. |
| 1e1600 | 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 63 6f 6e 64 69 74 69 6f 6e 20 | (multiple-value-bind.(condition. |
| 1e1620 | 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 | path).....................(if.(c |
| 1e1640 | 6f 6e 73 70 20 63 29 20 28 76 61 6c 75 65 73 20 28 63 61 72 20 63 29 20 28 63 64 72 20 63 29 29 | onsp.c).(values.(car.c).(cdr.c)) |
| 1e1660 | 20 28 76 61 6c 75 65 73 20 63 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(values.c.nil))................ |
| 1e1680 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 66 69 6c 65 6e 61 6d 65 20 64 73 70 65 63 20 63 6f | ...(funcall.fn.filename.dspec.co |
| 1e16a0 | 6e 64 69 74 69 6f 6e 20 70 61 74 68 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 77 | ndition.path))))))..(defun.lispw |
| 1e16c0 | 6f 72 6b 73 2d 73 65 76 65 72 69 74 79 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 63 6f 6e | orks-severity.(condition)...(con |
| 1e16e0 | 64 20 28 28 6e 6f 74 20 63 6f 6e 64 69 74 69 6f 6e 29 20 3a 77 61 72 6e 69 6e 67 29 0a 09 28 74 | d.((not.condition).:warning)..(t |
| 1e1700 | 20 28 65 74 79 70 65 63 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 | .(etypecase.condition........... |
| 1e1720 | 20 20 20 23 2d 28 6f 72 20 6c 69 73 70 77 6f 72 6b 73 34 20 6c 69 73 70 77 6f 72 6b 73 35 29 0a | ...#-(or.lispworks4.lispworks5). |
| 1e1740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 73 3a 63 6f 6d 70 69 6c 65 | .............(conditions:compile |
| 1e1760 | 72 2d 6e 6f 74 65 20 3a 6e 6f 74 65 29 0a 09 20 20 20 20 20 28 65 72 72 6f 72 20 3a 65 72 72 6f | r-note.:note).......(error.:erro |
| 1e1780 | 72 29 0a 09 20 20 20 20 20 28 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 20 3a 77 61 72 6e 69 6e 67 | r).......(style-warning.:warning |
| 1e17a0 | 29 0a 09 20 20 20 20 20 28 77 61 72 6e 69 6e 67 20 3a 77 61 72 6e 69 6e 67 29 29 29 29 29 0a 0a | ).......(warning.:warning))))).. |
| 1e17c0 | 28 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e | (defun.signal-compiler-condition |
| 1e17e0 | 20 28 6d 65 73 73 61 67 65 20 6c 6f 63 61 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 | .(message.location.condition)... |
| 1e1800 | 28 63 68 65 63 6b 2d 74 79 70 65 20 6d 65 73 73 61 67 65 20 73 74 72 69 6e 67 29 0a 20 20 28 73 | (check-type.message.string)...(s |
| 1e1820 | 69 67 6e 61 6c 20 0a 20 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 63 6f 6d 70 69 6c | ignal.....(make-instance.'compil |
| 1e1840 | 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 3a 6d 65 73 73 61 67 65 20 6d 65 73 73 61 67 65 20 0a 09 | er-condition.:message.message... |
| 1e1860 | 09 20 20 3a 73 65 76 65 72 69 74 79 20 28 6c 69 73 70 77 6f 72 6b 73 2d 73 65 76 65 72 69 74 79 | ...:severity.(lispworks-severity |
| 1e1880 | 20 63 6f 6e 64 69 74 69 6f 6e 29 20 0a 09 09 20 20 3a 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 | .condition)......:location.locat |
| 1e18a0 | 69 6f 6e 0a 09 09 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 | ion.....:original-condition.cond |
| 1e18c0 | 69 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 74 65 6d 70 2d 66 69 6c 65 2d 66 6f 72 | ition)))..(defvar.*temp-file-for |
| 1e18e0 | 6d 61 74 2a 20 27 28 3a 75 74 66 2d 38 20 3a 65 6f 6c 2d 73 74 79 6c 65 20 3a 6c 66 29 29 0a 0a | mat*.'(:utf-8.:eol-style.:lf)).. |
| 1e1900 | 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 66 72 6f 6d 2d 74 65 6d 70 2d 66 69 6c 65 20 28 73 | (defun.compile-from-temp-file.(s |
| 1e1920 | 74 72 69 6e 67 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 | tring.filename)...(unwind-protec |
| 1e1940 | 74 0a 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 09 20 28 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c | t........(progn...(with-open-fil |
| 1e1960 | 65 20 28 73 20 66 69 6c 65 6e 61 6d 65 20 3a 64 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 | e.(s.filename.:direction.:output |
| 1e1980 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1e19a0 | 20 20 20 20 20 20 3a 69 66 2d 65 78 69 73 74 73 20 3a 73 75 70 65 72 73 65 64 65 0a 20 20 20 20 | ......:if-exists.:supersede..... |
| 1e19c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1e19e0 | 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 2a 74 65 6d 70 2d 66 69 6c 65 2d 66 6f 72 | .:external-format.*temp-file-for |
| 1e1a00 | 6d 61 74 2a 29 0a 0a 09 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 20 | mat*)......(write-string.string. |
| 1e1a20 | 73 29 0a 09 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 73 29 29 0a 20 20 20 20 20 20 | s).....(finish-output.s))....... |
| 1e1a40 | 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 62 69 6e 61 72 79 2d | ...(multiple-value-bind.(binary- |
| 1e1a60 | 66 69 6c 65 6e 61 6d 65 20 77 61 72 6e 69 6e 67 73 3f 20 66 61 69 6c 75 72 65 3f 29 0a 20 20 20 | filename.warnings?.failure?).... |
| 1e1a80 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 | ..........(compile-file.filename |
| 1e1aa0 | 20 3a 6c 6f 61 64 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:load.t........................ |
| 1e1ac0 | 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 2a 74 65 6d 70 2d 66 69 6c 65 2d | ....:external-format.*temp-file- |
| 1e1ae0 | 66 6f 72 6d 61 74 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 | format*)............(declare.(ig |
| 1e1b00 | 6e 6f 72 65 20 77 61 72 6e 69 6e 67 73 3f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 | nore.warnings?))............(whe |
| 1e1b20 | 6e 20 62 69 6e 61 72 79 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | n.binary-filename..............( |
| 1e1b40 | 64 65 6c 65 74 65 2d 66 69 6c 65 20 62 69 6e 61 72 79 2d 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 | delete-file.binary-filename))... |
| 1e1b60 | 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 66 61 69 6c 75 72 65 3f 29 29 29 0a 20 20 20 20 28 64 | .........(not.failure?))).....(d |
| 1e1b80 | 65 6c 65 74 65 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 | elete-file.filename)))..(defun.d |
| 1e1ba0 | 73 70 65 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 6f 73 69 74 69 6f 6e 20 28 64 73 70 | spec-function-name-position.(dsp |
| 1e1bc0 | 65 63 20 66 61 6c 6c 62 61 63 6b 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 64 73 70 65 63 0a | ec.fallback)...(etypecase.dspec. |
| 1e1be0 | 20 20 20 20 28 63 6f 6e 73 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 64 73 70 65 63 3a 64 73 70 | ....(cons.(let.((name.(dspec:dsp |
| 1e1c00 | 65 63 2d 70 72 69 6d 61 72 79 2d 6e 61 6d 65 20 64 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 | ec-primary-name.dspec)))........ |
| 1e1c20 | 20 20 20 20 20 28 74 79 70 65 63 61 73 65 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .....(typecase.name............. |
| 1e1c40 | 20 20 28 28 6f 72 20 73 79 6d 62 6f 6c 20 73 74 72 69 6e 67 29 20 0a 20 20 20 20 20 20 20 20 20 | ..((or.symbol.string)........... |
| 1e1c60 | 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 74 72 69 | ......(list.:function-name.(stri |
| 1e1c80 | 6e 67 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 66 61 6c 6c | ng.name)))...............(t.fall |
| 1e1ca0 | 62 61 63 6b 29 29 29 29 0a 20 20 20 20 28 6e 75 6c 6c 20 66 61 6c 6c 62 61 63 6b 29 0a 20 20 20 | back)))).....(null.fallback).... |
| 1e1cc0 | 20 28 73 79 6d 62 6f 6c 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 | .(symbol.(list.:function-name.(s |
| 1e1ce0 | 74 72 69 6e 67 20 64 73 70 65 63 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 | tring.dspec)))))..(defmacro.with |
| 1e1d00 | 2d 66 61 69 72 6c 79 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 20 28 26 62 6f 64 | -fairly-standard-io-syntax.(&bod |
| 1e1d20 | 79 20 62 6f 64 79 29 0a 20 20 22 4c 69 6b 65 20 57 49 54 48 2d 53 54 41 4e 44 41 52 44 2d 49 4f | y.body)..."Like.WITH-STANDARD-IO |
| 1e1d40 | 2d 53 59 4e 54 41 58 20 62 75 74 20 70 72 65 73 65 72 76 65 20 2a 50 41 43 4b 41 47 45 2a 20 61 | -SYNTAX.but.preserve.*PACKAGE*.a |
| 1e1d60 | 6e 64 20 2a 52 45 41 44 54 41 42 4c 45 2a 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 | nd.*READTABLE*."...(let.((packag |
| 1e1d80 | 65 20 28 67 65 6e 73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 61 64 74 61 62 6c 65 20 28 | e.(gensym)).........(readtable.( |
| 1e1da0 | 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 70 61 63 6b 61 67 65 20 2a | gensym))).....`(let.((,package.* |
| 1e1dc0 | 70 61 63 6b 61 67 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 2c 72 65 61 64 74 61 62 6c 65 | package*)............(,readtable |
| 1e1de0 | 20 2a 72 65 61 64 74 61 62 6c 65 2a 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 73 74 61 6e 64 | .*readtable*)).......(with-stand |
| 1e1e00 | 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 70 61 | ard-io-syntax.........(let.((*pa |
| 1e1e20 | 63 6b 61 67 65 2a 20 2c 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ckage*.,package)...............( |
| 1e1e40 | 2a 72 65 61 64 74 61 62 6c 65 2a 20 2c 72 65 61 64 74 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 | *readtable*.,readtable))........ |
| 1e1e60 | 20 20 20 2c 40 62 6f 64 79 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6b 69 70 2d 63 6f 6d 6d | ...,@body)))))..(defun.skip-comm |
| 1e1e80 | 65 6e 74 73 20 28 73 74 72 65 61 6d 29 0a 20 20 28 6c 65 74 20 28 28 70 6f 73 30 20 28 66 69 6c | ents.(stream)...(let.((pos0.(fil |
| 1e1ea0 | 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 | e-position.stream))).....(cond.( |
| 1e1ec0 | 28 65 71 75 61 6c 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 6c 69 73 74 20 28 72 65 61 | (equal.(ignore-errors.(list.(rea |
| 1e1ee0 | 64 2d 64 65 6c 69 6d 69 74 65 64 2d 6c 69 73 74 20 23 5c 28 20 73 74 72 65 61 6d 29 29 29 0a 20 | d-delimited-list.#\(.stream))).. |
| 1e1f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 28 29 29 29 0a 20 20 20 20 20 20 20 20 | .................'(()))......... |
| 1e1f20 | 20 20 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 65 61 6d 20 28 31 2d 20 28 66 69 | ...(file-position.stream.(1-.(fi |
| 1e1f40 | 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 65 61 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | le-position.stream)))).......... |
| 1e1f60 | 20 28 74 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 65 61 6d 20 70 6f 73 30 29 29 | .(t.(file-position.stream.pos0)) |
| 1e1f80 | 29 29 29 0a 0a 23 2d 28 6f 72 20 6c 69 73 70 77 6f 72 6b 73 34 2e 31 20 6c 69 73 70 77 6f 72 6b | )))..#-(or.lispworks4.1.lispwork |
| 1e1fa0 | 73 34 2e 32 29 20 3b 20 6e 6f 20 64 73 70 65 63 3a 70 61 72 73 65 2d 66 6f 72 6d 2d 64 73 70 65 | s4.2).;.no.dspec:parse-form-dspe |
| 1e1fc0 | 63 20 70 72 69 6f 72 20 74 6f 20 34 2e 33 0a 28 64 65 66 75 6e 20 64 73 70 65 63 2d 73 74 72 65 | c.prior.to.4.3.(defun.dspec-stre |
| 1e1fe0 | 61 6d 2d 70 6f 73 69 74 69 6f 6e 20 28 73 74 72 65 61 6d 20 64 73 70 65 63 29 0a 20 20 28 77 69 | am-position.(stream.dspec)...(wi |
| 1e2000 | 74 68 2d 66 61 69 72 6c 79 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 | th-fairly-standard-io-syntax.... |
| 1e2020 | 20 28 6c 6f 6f 70 20 28 6c 65 74 2a 20 28 28 70 6f 73 20 28 70 72 6f 67 6e 20 28 73 6b 69 70 2d | .(loop.(let*.((pos.(progn.(skip- |
| 1e2040 | 63 6f 6d 6d 65 6e 74 73 20 73 74 72 65 61 6d 29 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 | comments.stream).(file-position. |
| 1e2060 | 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d | stream)))..................(form |
| 1e2080 | 20 28 72 65 61 64 20 73 74 72 65 61 6d 20 6e 69 6c 20 27 23 31 3d 23 3a 65 6f 66 29 29 29 0a 20 | .(read.stream.nil.'#1=#:eof))).. |
| 1e20a0 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 66 6f 72 6d 20 27 23 31 23 29 0a | ...........(when.(eq.form.'#1#). |
| 1e20c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 6e 69 6c 29 29 0a 20 20 20 20 | ..............(return.nil))..... |
| 1e20e0 | 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 73 20 28 28 63 68 65 63 6b 2d 64 73 70 65 63 20 28 66 | ........(labels.((check-dspec.(f |
| 1e2100 | 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 | orm)........................(whe |
| 1e2120 | 6e 20 28 63 6f 6e 73 70 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.(consp.form).................. |
| 1e2140 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 70 65 72 61 74 6f 72 20 28 63 61 72 20 66 6f 72 | ........(let.((operator.(car.for |
| 1e2160 | 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m)))............................ |
| 1e2180 | 28 63 61 73 65 20 6f 70 65 72 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (case.operator.................. |
| 1e21a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 28 70 72 6f 67 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ............((progn)............ |
| 1e21c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 63 68 65 | ...................(mapcar.#'che |
| 1e21e0 | 63 6b 2d 64 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ck-dspec........................ |
| 1e2200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 | ...............(cdr.form)))..... |
| 1e2220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 76 61 6c 2d | .........................((eval- |
| 1e2240 | 77 68 65 6e 20 6c 6f 63 61 6c 6c 79 20 6d 61 63 72 6f 6c 65 74 20 73 79 6d 62 6f 6c 2d 6d 61 63 | when.locally.macrolet.symbol-mac |
| 1e2260 | 72 6f 6c 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rolet).......................... |
| 1e2280 | 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 63 68 65 63 6b 2d 64 73 70 65 63 0a 20 20 20 20 20 | .....(mapcar.#'check-dspec...... |
| 1e22a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1e22c0 | 20 28 63 64 64 72 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(cddr.form))).................. |
| 1e22e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 28 69 6e 2d 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 | ............((in-package)....... |
| 1e2300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 | ........................(let.((p |
| 1e2320 | 61 63 6b 61 67 65 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 28 73 65 63 6f 6e 64 20 66 6f 72 | ackage.(find-package.(second.for |
| 1e2340 | 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m))))........................... |
| 1e2360 | 20 20 20 20 20 20 28 77 68 65 6e 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(when.package............. |
| 1e2380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2a 70 61 63 | ......................(setq.*pac |
| 1e23a0 | 6b 61 67 65 2a 20 70 61 63 6b 61 67 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kage*.package))))............... |
| 1e23c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 74 68 65 72 77 69 73 65 0a 20 20 20 20 20 20 | ...............(otherwise....... |
| 1e23e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 | ........................(let.((f |
| 1e2400 | 6f 72 6d 2d 64 73 70 65 63 20 28 64 73 70 65 63 3a 70 61 72 73 65 2d 66 6f 72 6d 2d 64 73 70 65 | orm-dspec.(dspec:parse-form-dspe |
| 1e2420 | 63 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | c.form)))....................... |
| 1e2440 | 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 64 73 70 65 63 3a 64 73 70 65 63 2d 65 71 75 | ..........(when.(dspec:dspec-equ |
| 1e2460 | 61 6c 20 64 73 70 65 63 20 66 6f 72 6d 2d 64 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 | al.dspec.form-dspec)............ |
| 1e2480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 70 | .......................(return.p |
| 1e24a0 | 6f 73 29 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 65 63 6b | os)))))))))...............(check |
| 1e24c0 | 2d 64 73 70 65 63 20 66 6f 72 6d 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 73 70 65 63 2d | -dspec.form))))))..(defun.dspec- |
| 1e24e0 | 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 28 66 69 6c 65 20 64 73 70 65 63 29 0a 20 20 28 6c 65 | file-position.(file.dspec)...(le |
| 1e2500 | 74 2a 20 28 28 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 68 6e 61 6d 65 2a 20 28 70 61 | t*.((*compile-file-pathname*.(pa |
| 1e2520 | 74 68 6e 61 6d 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 63 6f 6d 70 69 6c 65 | thname.file))..........(*compile |
| 1e2540 | 2d 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 2a 20 28 74 72 75 65 6e 61 6d 65 20 2a 63 6f 6d 70 69 | -file-truename*.(truename.*compi |
| 1e2560 | 6c 65 2d 66 69 6c 65 2d 70 61 74 68 6e 61 6d 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 6c | le-file-pathname*))..........(*l |
| 1e2580 | 6f 61 64 2d 70 61 74 68 6e 61 6d 65 2a 20 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 68 | oad-pathname*.*compile-file-path |
| 1e25a0 | 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 28 2a 6c 6f 61 64 2d 74 72 75 65 6e 61 6d 65 2a | name*)..........(*load-truename* |
| 1e25c0 | 20 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 2a 29 29 0a 20 20 20 20 28 | .*compile-file-truename*)).....( |
| 1e25e0 | 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 73 74 72 65 61 6d 20 66 69 6c 65 29 0a 20 20 20 | with-open-file.(stream.file).... |
| 1e2600 | 20 20 20 28 6c 65 74 20 28 28 70 6f 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2d 28 6f | ...(let.((pos...............#-(o |
| 1e2620 | 72 20 6c 69 73 70 77 6f 72 6b 73 34 2e 31 20 6c 69 73 70 77 6f 72 6b 73 34 2e 32 29 0a 20 20 20 | r.lispworks4.1.lispworks4.2).... |
| 1e2640 | 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 64 73 70 65 63 2d | ..........(ignore-errors.(dspec- |
| 1e2660 | 73 74 72 65 61 6d 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 65 61 6d 20 64 73 70 65 63 29 29 29 29 | stream-position.stream.dspec)))) |
| 1e2680 | 0a 20 20 20 20 20 20 20 20 28 69 66 20 70 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | .........(if.pos.............(li |
| 1e26a0 | 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 28 31 2b 20 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 | st.:position.(1+.pos)).......... |
| 1e26c0 | 20 20 20 28 64 73 70 65 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 6f 73 69 74 69 6f 6e | ...(dspec-function-name-position |
| 1e26e0 | 20 64 73 70 65 63 20 60 28 3a 70 6f 73 69 74 69 6f 6e 20 31 29 29 29 29 29 29 29 0a 0a 28 64 65 | .dspec.`(:position.1)))))))..(de |
| 1e2700 | 66 75 6e 20 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 28 6c 6f 63 | fun.emacs-buffer-location-p.(loc |
| 1e2720 | 61 74 69 6f 6e 29 0a 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 | ation)...(and.(consp.location).. |
| 1e2740 | 20 20 20 20 20 20 28 65 71 20 28 63 61 72 20 6c 6f 63 61 74 69 6f 6e 29 20 3a 65 6d 61 63 73 2d | ......(eq.(car.location).:emacs- |
| 1e2760 | 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 64 73 70 65 63 2d 6c 6f 63 | buffer)))..(defun.make-dspec-loc |
| 1e2780 | 61 74 69 6f 6e 20 28 64 73 70 65 63 20 6c 6f 63 61 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 | ation.(dspec.location.&optional. |
| 1e27a0 | 68 69 6e 74 73 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 | hints)...(etypecase.location.... |
| 1e27c0 | 20 28 28 6f 72 20 70 61 74 68 6e 61 6d 65 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 28 6d 75 6c | .((or.pathname.string)......(mul |
| 1e27e0 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 69 6c 65 20 65 72 72 29 20 0a 20 20 20 | tiple-value-bind.(file.err)..... |
| 1e2800 | 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 6e 61 6d 65 73 74 72 69 6e 67 | ......(ignore-errors.(namestring |
| 1e2820 | 20 28 74 72 75 65 6e 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 28 69 | .(truename.location)))........(i |
| 1e2840 | 66 20 65 72 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 65 72 72 6f 72 20 28 70 | f.err............(list.:error.(p |
| 1e2860 | 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 65 72 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | rinc-to-string.err))............ |
| 1e2880 | 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c 65 20 2c 66 69 6c 65 29 0a 20 20 | (make-location.`(:file.,file)... |
| 1e28a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 73 70 65 63 2d 66 | ........................(dspec-f |
| 1e28c0 | 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 20 64 73 70 65 63 29 0a 20 20 20 20 20 20 20 | ile-position.file.dspec)........ |
| 1e28e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 69 6e 74 73 29 29 29 29 0a 20 20 20 | ...................hints)))).... |
| 1e2900 | 20 28 73 79 6d 62 6f 6c 20 0a 20 20 20 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 | .(symbol.......`(:error.,(format |
| 1e2920 | 20 6e 69 6c 20 22 43 61 6e 6e 6f 74 20 72 65 73 6f 6c 76 65 20 6c 6f 63 61 74 69 6f 6e 3a 20 7e | .nil."Cannot.resolve.location:.~ |
| 1e2940 | 53 22 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 28 73 61 74 69 73 66 69 65 73 20 65 | S".location))).....((satisfies.e |
| 1e2960 | 6d 61 63 73 2d 62 75 66 66 65 72 2d 6c 6f 63 61 74 69 6f 6e 2d 70 29 0a 20 20 20 20 20 28 64 65 | macs-buffer-location-p)......(de |
| 1e2980 | 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 5f 20 62 75 66 66 65 72 20 6f 66 66 73 65 | structuring-bind.(_.buffer.offse |
| 1e29a0 | 74 29 20 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e | t).location........(declare.(ign |
| 1e29c0 | 6f 72 65 20 5f 29 29 0a 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 | ore._))........(make-location.`( |
| 1e29e0 | 3a 62 75 66 66 65 72 20 2c 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :buffer.,buffer)................ |
| 1e2a00 | 20 20 20 20 20 20 20 28 64 73 70 65 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 6f 73 69 | .......(dspec-function-name-posi |
| 1e2a20 | 74 69 6f 6e 20 64 73 70 65 63 20 60 28 3a 6f 66 66 73 65 74 20 2c 6f 66 66 73 65 74 20 30 29 29 | tion.dspec.`(:offset.,offset.0)) |
| 1e2a40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 69 6e 74 73 29 29 29 29 | .......................hints)))) |
| 1e2a60 | 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 64 73 70 65 63 2d 70 72 6f 67 65 6e 69 74 6f 72 2d | )..(defun.make-dspec-progenitor- |
| 1e2a80 | 6c 6f 63 61 74 69 6f 6e 20 28 64 73 70 65 63 20 6c 6f 63 61 74 69 6f 6e 20 65 64 69 74 2d 70 61 | location.(dspec.location.edit-pa |
| 1e2aa0 | 74 68 29 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 6f 6e 2d 64 73 70 65 63 20 28 64 73 70 65 63 3a | th)...(let.((canon-dspec.(dspec: |
| 1e2ac0 | 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 2d 64 73 70 65 63 20 64 73 70 65 63 29 29 29 0a 20 20 20 20 | canonicalize-dspec.dspec)))..... |
| 1e2ae0 | 28 6d 61 6b 65 2d 64 73 70 65 63 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 28 69 66 20 63 61 | (make-dspec-location......(if.ca |
| 1e2b00 | 6e 6f 6e 2d 64 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 64 73 70 65 63 3a 6c 6f | non-dspec..........(if.(dspec:lo |
| 1e2b20 | 63 61 6c 2d 64 73 70 65 63 2d 70 20 63 61 6e 6f 6e 2d 64 73 70 65 63 29 0a 20 20 20 20 20 20 20 | cal-dspec-p.canon-dspec)........ |
| 1e2b40 | 20 20 20 20 20 20 28 64 73 70 65 63 3a 64 73 70 65 63 2d 70 72 6f 67 65 6e 69 74 6f 72 20 63 61 | ......(dspec:dspec-progenitor.ca |
| 1e2b60 | 6e 6f 6e 2d 64 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6e 6f 6e 2d 64 73 | non-dspec)..............canon-ds |
| 1e2b80 | 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 6c 6f 63 61 74 69 6f 6e | pec)..........nil)......location |
| 1e2ba0 | 0a 20 20 20 20 20 28 69 66 20 65 64 69 74 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 28 6c 69 | ......(if.edit-path..........(li |
| 1e2bc0 | 73 74 20 3a 65 64 69 74 2d 70 61 74 68 20 28 65 64 69 74 2d 70 61 74 68 2d 74 6f 2d 63 6d 75 63 | st.:edit-path.(edit-path-to-cmuc |
| 1e2be0 | 6c 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 65 64 69 74 2d 70 61 74 68 29 29 29 29 29 29 0a 0a 28 | l-source-path.edit-path))))))..( |
| 1e2c00 | 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d 65 72 72 6f 72 2d 64 61 74 61 2d 62 61 73 65 20 28 64 61 | defun.signal-error-data-base.(da |
| 1e2c20 | 74 61 62 61 73 65 20 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6d 61 | tabase.&optional.location)...(ma |
| 1e2c40 | 70 2d 65 72 72 6f 72 2d 64 61 74 61 62 61 73 65 20 0a 20 20 20 64 61 74 61 62 61 73 65 0a 20 20 | p-error-database.....database... |
| 1e2c60 | 20 28 6c 61 6d 62 64 61 20 28 66 69 6c 65 6e 61 6d 65 20 64 73 70 65 63 20 63 6f 6e 64 69 74 69 | .(lambda.(filename.dspec.conditi |
| 1e2c80 | 6f 6e 20 65 64 69 74 2d 70 61 74 68 29 0a 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 | on.edit-path)......(signal-compi |
| 1e2ca0 | 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 | ler-condition.......(format.nil. |
| 1e2cc0 | 22 7e 41 22 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 6d 61 6b 65 2d 64 73 70 65 | "~A".condition).......(make-dspe |
| 1e2ce0 | 63 2d 70 72 6f 67 65 6e 69 74 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 64 73 70 65 63 20 28 6f 72 20 | c-progenitor-location.dspec.(or. |
| 1e2d00 | 6c 6f 63 61 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 29 20 65 64 69 74 2d 70 61 74 68 29 0a 20 20 | location.filename).edit-path)... |
| 1e2d20 | 20 20 20 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 6d 61 6e 67 | ....condition))))..(defun.unmang |
| 1e2d40 | 6c 65 2d 75 6e 66 75 6e 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 43 6f 6e 76 65 72 74 73 20 73 79 | le-unfun.(symbol)..."Converts.sy |
| 1e2d60 | 6d 62 6f 6c 73 20 6c 69 6b 65 20 27 53 45 54 46 3a 3a 7c 5c 22 43 4c 2d 55 53 45 52 5c 22 20 5c | mbols.like.'SETF::|\"CL-USER\".\ |
| 1e2d80 | 22 47 45 54 5c 22 7c 20 74 6f 0a 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 20 6c 69 6b 65 20 5c | "GET\"|.to.function.names.like.\ |
| 1e2da0 | 28 53 45 54 46 20 47 45 54 29 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 73 79 73 3a 3a 73 65 74 66 | (SETF.GET)."...(cond.((sys::setf |
| 1e2dc0 | 2d 73 79 6d 62 6f 6c 2d 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 28 73 79 73 3a | -symbol-p.symbol)..........(sys: |
| 1e2de0 | 3a 73 65 74 66 2d 70 61 69 72 2d 66 72 6f 6d 2d 75 6e 64 65 72 6c 79 69 6e 67 2d 6e 61 6d 65 20 | :setf-pair-from-underlying-name. |
| 1e2e00 | 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 | symbol)).........(t.symbol)))... |
| 1e2e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 28 64 65 66 75 6e 20 73 69 67 6e 61 6c | ...................(defun.signal |
| 1e2e40 | 2d 75 6e 64 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 73 20 28 68 74 61 62 20 26 6f 70 74 69 | -undefined-functions.(htab.&opti |
| 1e2e60 | 6f 6e 61 6c 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 28 6d 61 70 68 61 73 68 20 28 6c 61 6d 62 64 | onal.filename)...(maphash.(lambd |
| 1e2e80 | 61 20 28 75 6e 66 75 6e 20 64 73 70 65 63 73 29 0a 09 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 | a.(unfun.dspecs).......(dolist.( |
| 1e2ea0 | 64 73 70 65 63 20 64 73 70 65 63 73 29 0a 09 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 63 6f | dspec.dspecs).........(signal-co |
| 1e2ec0 | 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 0a 09 09 28 66 6f 72 6d 61 74 20 6e 69 6c 20 | mpiler-condition....(format.nil. |
| 1e2ee0 | 22 55 6e 64 65 66 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20 7e 41 22 20 28 75 6e 6d 61 6e 67 6c | "Undefined.function.~A".(unmangl |
| 1e2f00 | 65 2d 75 6e 66 75 6e 20 75 6e 66 75 6e 29 29 0a 09 09 28 6d 61 6b 65 2d 64 73 70 65 63 2d 70 72 | e-unfun.unfun))...(make-dspec-pr |
| 1e2f20 | 6f 67 65 6e 69 74 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ogenitor-location............... |
| 1e2f40 | 20 20 20 20 64 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 66 | ....dspec..................(or.f |
| 1e2f60 | 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 | ilename......................(ge |
| 1e2f80 | 74 68 61 73 68 20 28 6c 69 73 74 20 75 6e 66 75 6e 20 64 73 70 65 63 29 20 2a 75 6e 64 65 66 69 | thash.(list.unfun.dspec).*undefi |
| 1e2fa0 | 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2d 68 61 73 68 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ned-functions-hash*))........... |
| 1e2fc0 | 20 20 20 20 20 20 20 6e 69 6c 29 0a 09 09 6e 69 6c 29 29 29 0a 09 20 20 20 68 74 61 62 29 29 0a | .......nil)...nil))).....htab)). |
| 1e2fe0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c | .(defimplementation.swank-compil |
| 1e3000 | 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 6b 65 79 20 62 75 66 66 65 72 20 70 6f 73 | e-string.(string.&key.buffer.pos |
| 1e3020 | 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ition.filename.................. |
| 1e3040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c | ...............................l |
| 1e3060 | 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 | ine.column.policy)...(declare.(i |
| 1e3080 | 67 6e 6f 72 65 20 66 69 6c 65 6e 61 6d 65 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 | gnore.filename.line.column.polic |
| 1e30a0 | 79 29 29 0a 20 20 28 61 73 73 65 72 74 20 62 75 66 66 65 72 29 0a 20 20 28 61 73 73 65 72 74 20 | y))...(assert.buffer)...(assert. |
| 1e30c0 | 70 6f 73 69 74 69 6f 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 | position)...(let*.((location.(li |
| 1e30e0 | 73 74 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e | st.:emacs-buffer.buffer.position |
| 1e3100 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 6d 70 6e 61 6d 65 20 28 68 63 6c 3a 6d 61 6b 65 2d 74 | ))..........(tmpname.(hcl:make-t |
| 1e3120 | 65 6d 70 2d 66 69 6c 65 20 6e 69 6c 20 22 6c 69 73 70 22 29 29 29 0a 20 20 20 20 28 77 69 74 68 | emp-file.nil."lisp"))).....(with |
| 1e3140 | 2d 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 75 6e 69 74 20 28 6c 6f 63 61 74 69 6f | -swank-compilation-unit.(locatio |
| 1e3160 | 6e 29 0a 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 72 6f 6d 2d 74 65 6d 70 2d 66 69 6c 65 | n).......(compile-from-temp-file |
| 1e3180 | 20 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 | .........(with-output-to-string. |
| 1e31a0 | 28 73 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 72 61 64 69 78 | (s)..........(let.((*print-radix |
| 1e31c0 | 2a 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 20 60 28 65 76 61 6c 2d 77 | *.t))............(print.`(eval-w |
| 1e31e0 | 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 | hen.(:compile-toplevel)......... |
| 1e3200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 73 70 65 63 3a 3a 2a 6c 6f 63 61 74 | .............(setq.dspec::*locat |
| 1e3220 | 69 6f 6e 2a 20 28 6c 69 73 74 20 2c 40 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 | ion*.(list.,@location)))........ |
| 1e3240 | 20 20 20 20 20 20 20 20 20 20 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 | ...........s))..........(write-s |
| 1e3260 | 74 72 69 6e 67 20 73 74 72 69 6e 67 20 73 29 29 0a 20 20 20 20 20 20 20 74 6d 70 6e 61 6d 65 29 | tring.string.s))........tmpname) |
| 1e3280 | 29 29 29 0a 0a 3b 3b 3b 20 78 72 65 66 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 78 72 65 66 | )))..;;;.xref..(defmacro.defxref |
| 1e32a0 | 20 28 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 60 28 64 65 66 69 6d 70 6c 65 6d 65 6e | .(name.function)...`(defimplemen |
| 1e32c0 | 74 61 74 69 6f 6e 20 2c 6e 61 6d 65 20 28 6e 61 6d 65 29 0a 20 20 20 20 28 78 72 65 66 2d 72 65 | tation.,name.(name).....(xref-re |
| 1e32e0 | 73 75 6c 74 73 20 28 2c 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 78 | sults.(,function.name))))..(defx |
| 1e3300 | 72 65 66 20 77 68 6f 2d 63 61 6c 6c 73 20 20 20 20 20 20 68 63 6c 3a 77 68 6f 2d 63 61 6c 6c 73 | ref.who-calls......hcl:who-calls |
| 1e3320 | 29 0a 28 64 65 66 78 72 65 66 20 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 20 68 63 6c 3a | ).(defxref.who-macroexpands.hcl: |
| 1e3340 | 77 68 6f 2d 63 61 6c 6c 73 29 20 3b 20 6d 61 63 72 6f 73 20 61 72 65 20 69 6e 20 74 68 65 20 63 | who-calls).;.macros.are.in.the.c |
| 1e3360 | 61 6c 6c 73 20 74 61 62 6c 65 20 74 6f 6f 0a 28 64 65 66 78 72 65 66 20 63 61 6c 6c 73 2d 77 68 | alls.table.too.(defxref.calls-wh |
| 1e3380 | 6f 20 20 20 20 20 20 68 63 6c 3a 63 61 6c 6c 73 2d 77 68 6f 29 0a 28 64 65 66 78 72 65 66 20 6c | o......hcl:calls-who).(defxref.l |
| 1e33a0 | 69 73 74 2d 63 61 6c 6c 65 72 73 20 20 20 6c 69 73 74 2d 63 61 6c 6c 65 72 73 2d 69 6e 74 65 72 | ist-callers...list-callers-inter |
| 1e33c0 | 6e 61 6c 29 0a 28 64 65 66 78 72 65 66 20 6c 69 73 74 2d 63 61 6c 6c 65 65 73 20 20 20 6c 69 73 | nal).(defxref.list-callees...lis |
| 1e33e0 | 74 2d 63 61 6c 6c 65 65 73 2d 69 6e 74 65 72 6e 61 6c 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 74 | t-callees-internal)..(defun.list |
| 1e3400 | 2d 63 61 6c 6c 65 72 73 2d 69 6e 74 65 72 6e 61 6c 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 | -callers-internal.(name)...(let. |
| 1e3420 | 28 28 63 61 6c 6c 65 72 73 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 31 30 30 0a 20 20 20 20 20 20 | ((callers.(make-array.100....... |
| 1e3440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 69 6c 6c 2d 70 6f 69 | .......................:fill-poi |
| 1e3460 | 6e 74 65 72 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nter.0.......................... |
| 1e3480 | 20 20 20 20 3a 61 64 6a 75 73 74 61 62 6c 65 20 74 29 29 29 0a 20 20 20 20 28 68 63 6c 3a 73 77 | ....:adjustable.t))).....(hcl:sw |
| 1e34a0 | 65 65 70 2d 61 6c 6c 2d 6f 62 6a 65 63 74 73 0a 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 | eep-all-objects......#'(lambda.( |
| 1e34c0 | 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 23 2b 48 61 | object)..........(when.(and.#+Ha |
| 1e34e0 | 72 6c 65 71 75 69 6e 2d 50 43 2d 4c 69 73 70 20 28 6c 6f 77 3a 63 6f 6d 70 69 6c 65 64 2d 63 6f | rlequin-PC-Lisp.(low:compiled-co |
| 1e3500 | 64 65 2d 70 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | de-p.object).................... |
| 1e3520 | 20 23 2b 48 61 72 6c 65 71 75 69 6e 2d 55 6e 69 78 2d 4c 69 73 70 20 28 73 79 73 3a 63 61 6c 6c | .#+Harlequin-Unix-Lisp.(sys:call |
| 1e3540 | 61 62 6c 65 70 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ablep.object)................... |
| 1e3560 | 20 20 23 2d 28 6f 72 20 48 61 72 6c 65 71 75 69 6e 2d 50 43 2d 4c 69 73 70 20 48 61 72 6c 65 71 | ..#-(or.Harlequin-PC-Lisp.Harleq |
| 1e3580 | 75 69 6e 2d 55 6e 69 78 2d 4c 69 73 70 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uin-Unix-Lisp).................. |
| 1e35a0 | 20 20 20 20 28 73 79 73 3a 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 2d 70 20 6f 62 6a 65 63 74 29 | ....(sys:compiled-code-p.object) |
| 1e35c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 74 65 6d 3a 3a 66 69 | .....................(system::fi |
| 1e35e0 | 6e 64 2d 63 6f 6e 73 74 61 6e 74 24 66 75 6e 63 61 6c 6c 61 62 6c 65 20 6e 61 6d 65 20 6f 62 6a | nd-constant$funcallable.name.obj |
| 1e3600 | 65 63 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d 70 75 73 68 2d 65 78 | ect))............(vector-push-ex |
| 1e3620 | 74 65 6e 64 20 6f 62 6a 65 63 74 20 63 61 6c 6c 65 72 73 29 29 29 29 0a 20 20 20 20 3b 3b 20 44 | tend.object.callers)))).....;;.D |
| 1e3640 | 65 6c 61 79 20 64 73 70 65 63 3a 6f 62 6a 65 63 74 2d 64 73 70 65 63 20 75 6e 74 69 6c 20 61 66 | elay.dspec:object-dspec.until.af |
| 1e3660 | 74 65 72 20 73 77 65 65 70 2d 61 6c 6c 2d 6f 62 6a 65 63 74 73 0a 20 20 20 20 3b 3b 20 74 6f 20 | ter.sweep-all-objects.....;;.to. |
| 1e3680 | 72 65 64 75 63 65 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 70 72 6f 62 6c 65 6d 73 2e 0a 20 20 20 20 | reduce.allocation.problems...... |
| 1e36a0 | 28 6c 6f 6f 70 20 66 6f 72 20 6f 62 6a 65 63 74 20 61 63 72 6f 73 73 20 63 61 6c 6c 65 72 73 0a | (loop.for.object.across.callers. |
| 1e36c0 | 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 6f | ..........collect.(if.(symbolp.o |
| 1e36e0 | 62 6a 65 63 74 29 0a 09 09 20 20 20 20 20 20 28 6c 69 73 74 20 27 66 75 6e 63 74 69 6f 6e 20 6f | bject).........(list.'function.o |
| 1e3700 | 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 | bject).......................(or |
| 1e3720 | 20 28 64 73 70 65 63 3a 6f 62 6a 65 63 74 2d 64 73 70 65 63 20 6f 62 6a 65 63 74 29 20 6f 62 6a | .(dspec:object-dspec.object).obj |
| 1e3740 | 65 63 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 74 2d 63 61 6c 6c 65 65 73 2d 69 6e | ect)))))..(defun.list-callees-in |
| 1e3760 | 74 65 72 6e 61 6c 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 63 61 6c 6c 65 65 73 20 27 | ternal.(name)...(let.((callees.' |
| 1e3780 | 28 29 29 29 0a 20 20 20 20 28 73 79 73 74 65 6d 3a 3a 66 69 6e 64 2d 63 6f 6e 73 74 61 6e 74 24 | ())).....(system::find-constant$ |
| 1e37a0 | 66 75 6e 63 61 6c 6c 61 62 6c 65 0a 20 20 20 20 20 27 6a 75 6e 6b 20 6e 61 6d 65 0a 20 20 20 20 | funcallable......'junk.name..... |
| 1e37c0 | 20 3a 74 65 73 74 20 23 27 28 6c 61 6d 62 64 61 20 28 6a 75 6e 6b 20 63 6f 6e 73 74 61 6e 74 29 | .:test.#'(lambda.(junk.constant) |
| 1e37e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 | ................(declare.(ignore |
| 1e3800 | 20 6a 75 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e | .junk))................(when.(an |
| 1e3820 | 64 20 28 73 79 6d 62 6f 6c 70 20 63 6f 6e 73 74 61 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | d.(symbolp.constant)............ |
| 1e3840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 63 6f 6e 73 74 61 6e 74 | ...............(fboundp.constant |
| 1e3860 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 6e 65 77 20 28 6c 69 | ))..................(pushnew.(li |
| 1e3880 | 73 74 20 27 66 75 6e 63 74 69 6f 6e 20 63 6f 6e 73 74 61 6e 74 29 20 63 61 6c 6c 65 65 73 20 3a | st.'function.constant).callees.: |
| 1e38a0 | 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | test.'equal))................;;. |
| 1e38c0 | 52 65 74 75 72 6e 20 6e 69 6c 20 73 6f 20 77 65 20 69 74 65 72 61 74 65 20 6f 76 65 72 20 61 6c | Return.nil.so.we.iterate.over.al |
| 1e38e0 | 6c 20 63 6f 6e 73 74 61 6e 74 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 | l.constants.................nil) |
| 1e3900 | 29 0a 20 20 20 20 63 61 6c 6c 65 65 73 29 29 0a 0a 3b 3b 20 6f 6e 6c 79 20 66 6f 72 20 6c 69 73 | ).....callees))..;;.only.for.lis |
| 1e3920 | 70 77 6f 72 6b 73 20 34 2e 32 20 61 6e 64 20 61 62 6f 76 65 0a 23 2d 6c 69 73 70 77 6f 72 6b 73 | pworks.4.2.and.above.#-lispworks |
| 1e3940 | 34 2e 31 0a 28 70 72 6f 67 6e 0a 20 20 28 64 65 66 78 72 65 66 20 77 68 6f 2d 72 65 66 65 72 65 | 4.1.(progn...(defxref.who-refere |
| 1e3960 | 6e 63 65 73 20 68 63 6c 3a 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 29 0a 20 20 28 64 65 66 78 | nces.hcl:who-references)...(defx |
| 1e3980 | 72 65 66 20 77 68 6f 2d 62 69 6e 64 73 20 20 20 20 20 20 68 63 6c 3a 77 68 6f 2d 62 69 6e 64 73 | ref.who-binds......hcl:who-binds |
| 1e39a0 | 29 0a 20 20 28 64 65 66 78 72 65 66 20 77 68 6f 2d 73 65 74 73 20 20 20 20 20 20 20 68 63 6c 3a | )...(defxref.who-sets.......hcl: |
| 1e39c0 | 77 68 6f 2d 73 65 74 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 | who-sets))..(defimplementation.w |
| 1e39e0 | 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 20 28 63 6c 61 73 73 6e 61 6d 65 29 0a 20 20 28 6c 65 | ho-specializes.(classname)...(le |
| 1e3a00 | 74 20 28 28 63 6c 61 73 73 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 63 6c 61 73 73 6e 61 6d 65 20 | t.((class.(find-class.classname. |
| 1e3a20 | 6e 69 6c 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 63 6c 61 73 73 0a 20 20 20 20 20 20 28 6c 65 | nil))).....(when.class.......(le |
| 1e3a40 | 74 20 28 28 6d 65 74 68 6f 64 73 20 28 63 6c 6f 73 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 6d | t.((methods.(clos:class-direct-m |
| 1e3a60 | 65 74 68 6f 64 73 20 63 6c 61 73 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 78 72 65 66 2d 72 65 | ethods.class))).........(xref-re |
| 1e3a80 | 73 75 6c 74 73 20 28 6d 61 70 63 61 72 20 23 27 64 73 70 65 63 3a 6f 62 6a 65 63 74 2d 64 73 70 | sults.(mapcar.#'dspec:object-dsp |
| 1e3aa0 | 65 63 20 6d 65 74 68 6f 64 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 78 72 65 66 2d 72 65 | ec.methods))))))..(defun.xref-re |
| 1e3ac0 | 73 75 6c 74 73 20 28 64 73 70 65 63 73 29 0a 20 20 28 66 6c 65 74 20 28 28 66 72 6f 62 2d 6c 6f | sults.(dspecs)...(flet.((frob-lo |
| 1e3ae0 | 63 73 20 28 64 73 70 65 63 20 6c 6f 63 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 | cs.(dspec.locs)............(cond |
| 1e3b00 | 20 28 6c 6f 63 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 | .(locs...................(loop.f |
| 1e3b20 | 6f 72 20 28 6e 61 6d 65 20 6c 6f 63 29 20 69 6e 20 6c 6f 63 73 0a 20 20 20 20 20 20 20 20 20 20 | or.(name.loc).in.locs........... |
| 1e3b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 6e 61 6d 65 | ..............collect.(list.name |
| 1e3b60 | 20 28 6d 61 6b 65 2d 64 73 70 65 63 2d 6c 6f 63 61 74 69 6f 6e 20 6e 61 6d 65 20 6c 6f 63 29 29 | .(make-dspec-location.name.loc)) |
| 1e3b80 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 60 28 28 2c 64 73 70 65 63 | ))..................(t.`((,dspec |
| 1e3ba0 | 20 28 3a 65 72 72 6f 72 20 22 53 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 6e 6f 74 20 61 76 | .(:error."Source.location.not.av |
| 1e3bc0 | 61 69 6c 61 62 6c 65 22 29 29 29 29 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 64 73 | ailable"))))))).....(loop.for.ds |
| 1e3be0 | 70 65 63 20 69 6e 20 64 73 70 65 63 73 0a 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 | pec.in.dspecs...........append.( |
| 1e3c00 | 66 72 6f 62 2d 6c 6f 63 73 20 64 73 70 65 63 20 28 64 73 70 65 63 3a 64 73 70 65 63 2d 64 65 66 | frob-locs.dspec.(dspec:dspec-def |
| 1e3c20 | 69 6e 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 73 20 64 73 70 65 63 29 29 29 29 29 0a 0a 3b 3b | inition-locations.dspec)))))..;; |
| 1e3c40 | 3b 20 49 6e 73 70 65 63 74 6f 72 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e | ;.Inspector..(defmethod.emacs-in |
| 1e3c60 | 73 70 65 63 74 20 28 28 6f 20 74 29 29 0a 20 20 28 6c 69 73 70 77 6f 72 6b 73 2d 69 6e 73 70 65 | spect.((o.t))...(lispworks-inspe |
| 1e3c80 | 63 74 20 6f 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 | ct.o))..(defmethod.emacs-inspect |
| 1e3ca0 | 20 28 28 6f 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 6c 69 73 70 77 6f 72 6b 73 2d 69 6e 73 | .((o.function))...(lispworks-ins |
| 1e3cc0 | 70 65 63 74 20 6f 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 73 6c 6f 74 2d 62 6f 75 6e 64 70 2d | pect.o))..;;.FIXME:.slot-boundp- |
| 1e3ce0 | 75 73 69 6e 67 2d 63 6c 61 73 73 20 69 6e 20 4c 57 20 77 6f 72 6b 73 20 77 69 74 68 20 6e 61 6d | using-class.in.LW.works.with.nam |
| 1e3d00 | 65 73 20 73 6f 20 77 65 20 63 61 6e 27 74 0a 3b 3b 20 75 73 65 20 6f 75 72 20 6d 65 74 68 6f 64 | es.so.we.can't.;;.use.our.method |
| 1e3d20 | 20 69 6e 20 73 77 61 6e 6b 2e 6c 69 73 70 2e 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 | .in.swank.lisp..(defmethod.emacs |
| 1e3d40 | 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 73 74 61 6e 64 61 72 64 2d 6f 62 6a 65 63 74 29 29 0a 20 | -inspect.((o.standard-object)).. |
| 1e3d60 | 20 28 6c 69 73 70 77 6f 72 6b 73 2d 69 6e 73 70 65 63 74 20 6f 29 29 0a 0a 28 64 65 66 75 6e 20 | .(lispworks-inspect.o))..(defun. |
| 1e3d80 | 6c 69 73 70 77 6f 72 6b 73 2d 69 6e 73 70 65 63 74 20 28 6f 29 0a 20 20 28 6d 75 6c 74 69 70 6c | lispworks-inspect.(o)...(multipl |
| 1e3da0 | 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6e 61 6d 65 73 20 76 61 6c 75 65 73 20 5f 67 65 74 74 | e-value-bind.(names.values._gett |
| 1e3dc0 | 65 72 20 5f 73 65 74 74 65 72 20 74 79 70 65 29 0a 20 20 20 20 20 20 28 6c 77 3a 67 65 74 2d 69 | er._setter.type).......(lw:get-i |
| 1e3de0 | 6e 73 70 65 63 74 6f 72 2d 76 61 6c 75 65 73 20 6f 20 6e 69 6c 29 0a 20 20 20 20 28 64 65 63 6c | nspector-values.o.nil).....(decl |
| 1e3e00 | 61 72 65 20 28 69 67 6e 6f 72 65 20 5f 67 65 74 74 65 72 20 5f 73 65 74 74 65 72 29 29 0a 20 20 | are.(ignore._getter._setter))... |
| 1e3e20 | 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(append............... |
| 1e3e40 | 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 22 54 79 70 65 22 20 74 79 70 65 29 0a 20 | (label-value-line."Type".type).. |
| 1e3e60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6e 61 6d 65 20 69 6e 20 6e 61 | ............(loop.for.name.in.na |
| 1e3e80 | 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 76 61 6c 75 65 | mes....................for.value |
| 1e3ea0 | 20 69 6e 20 76 61 6c 75 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 | .in.values....................ap |
| 1e3ec0 | 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 6e 61 6d 65 20 76 61 6c 75 | pend.(label-value-line.name.valu |
| 1e3ee0 | 65 29 29 29 29 29 0a 0a 3b 3b 3b 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 0a 0a 28 64 65 66 69 | e)))))..;;;.Miscellaneous..(defi |
| 1e3f00 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 71 75 69 74 2d 6c 69 73 70 20 28 29 0a 20 20 28 6c 69 | mplementation.quit-lisp.()...(li |
| 1e3f20 | 73 70 77 6f 72 6b 73 3a 71 75 69 74 29 29 0a 0a 3b 3b 3b 20 54 72 61 63 69 6e 67 0a 0a 28 64 65 | spworks:quit))..;;;.Tracing..(de |
| 1e3f40 | 66 75 6e 20 70 61 72 73 65 2d 66 73 70 65 63 20 28 66 73 70 65 63 29 0a 20 20 22 52 65 74 75 72 | fun.parse-fspec.(fspec)..."Retur |
| 1e3f60 | 6e 20 61 20 64 73 70 65 63 20 66 6f 72 20 46 53 50 45 43 2e 22 0a 20 20 28 65 63 61 73 65 20 28 | n.a.dspec.for.FSPEC."...(ecase.( |
| 1e3f80 | 63 61 72 20 66 73 70 65 63 29 0a 20 20 20 20 28 28 3a 64 65 66 6d 65 74 68 6f 64 29 20 60 28 6d | car.fspec).....((:defmethod).`(m |
| 1e3fa0 | 65 74 68 6f 64 20 2c 28 63 64 72 20 66 73 70 65 63 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 | ethod.,(cdr.fspec)))))..(defun.t |
| 1e3fc0 | 72 61 63 65 64 70 20 28 64 73 70 65 63 29 20 0a 20 20 28 6d 65 6d 62 65 72 20 64 73 70 65 63 20 | racedp.(dspec)....(member.dspec. |
| 1e3fe0 | 28 65 76 61 6c 20 27 28 74 72 61 63 65 29 29 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a | (eval.'(trace)).:test.#'equal)). |
| 1e4000 | 0a 28 64 65 66 75 6e 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 28 64 73 70 65 63 29 | .(defun.toggle-trace-aux.(dspec) |
| 1e4020 | 0a 20 20 28 63 6f 6e 64 20 28 28 74 72 61 63 65 64 70 20 64 73 70 65 63 29 0a 20 20 20 20 20 20 | ...(cond.((tracedp.dspec)....... |
| 1e4040 | 20 20 20 28 65 76 61 6c 20 60 28 75 6e 74 72 61 63 65 20 2c 64 73 70 65 63 29 29 0a 20 20 20 20 | ...(eval.`(untrace.,dspec))..... |
| 1e4060 | 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 6e 6f 77 20 75 6e 74 72 | .....(format.nil."~S.is.now.untr |
| 1e4080 | 61 63 65 64 2e 22 20 64 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 | aced.".dspec)).........(t....... |
| 1e40a0 | 20 20 20 28 65 76 61 6c 20 60 28 74 72 61 63 65 20 28 2c 64 73 70 65 63 29 29 29 0a 20 20 20 20 | ...(eval.`(trace.(,dspec)))..... |
| 1e40c0 | 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 6e 6f 77 20 74 72 61 63 | .....(format.nil."~S.is.now.trac |
| 1e40e0 | 65 64 2e 22 20 64 73 70 65 63 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | ed.".dspec))))..(defimplementati |
| 1e4100 | 6f 6e 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 28 66 73 70 65 63 29 0a 20 20 28 74 6f 67 67 6c | on.toggle-trace.(fspec)...(toggl |
| 1e4120 | 65 2d 74 72 61 63 65 2d 61 75 78 20 28 70 61 72 73 65 2d 66 73 70 65 63 20 66 73 70 65 63 29 29 | e-trace-aux.(parse-fspec.fspec)) |
| 1e4140 | 29 0a 0a 3b 3b 3b 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 0a 0a 28 64 65 66 69 6d 70 6c 65 | )..;;;.Multithreading..(defimple |
| 1e4160 | 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 69 74 69 61 6c 69 7a 65 2d 6d 75 6c 74 69 70 72 6f 63 65 73 | mentation.initialize-multiproces |
| 1e4180 | 73 69 6e 67 20 28 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 6f | sing.(continuation)...(cond.((no |
| 1e41a0 | 74 20 6d 70 3a 3a 2a 6d 75 6c 74 69 70 72 6f 63 65 73 73 69 6e 67 2a 29 0a 20 20 20 20 20 20 20 | t.mp::*multiprocessing*)........ |
| 1e41c0 | 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 22 49 6e 69 74 69 61 6c 69 7a 65 20 53 4c 49 4d 45 22 | ..(push.(list."Initialize.SLIME" |
| 1e41e0 | 20 27 28 29 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .'().continuation).............. |
| 1e4200 | 20 20 20 6d 70 3a 2a 69 6e 69 74 69 61 6c 2d 70 72 6f 63 65 73 73 65 73 2a 29 0a 20 20 20 20 20 | ...mp:*initial-processes*)...... |
| 1e4220 | 20 20 20 20 28 6d 70 3a 69 6e 69 74 69 61 6c 69 7a 65 2d 6d 75 6c 74 69 70 72 6f 63 65 73 73 69 | ....(mp:initialize-multiprocessi |
| 1e4240 | 6e 67 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6e 74 69 6e 75 | ng)).........(t.(funcall.continu |
| 1e4260 | 61 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 70 | ation))))..(defimplementation.sp |
| 1e4280 | 61 77 6e 20 28 66 6e 20 26 6b 65 79 20 6e 61 6d 65 29 0a 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 | awn.(fn.&key.name)...(mp:process |
| 1e42a0 | 2d 72 75 6e 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 28 29 20 66 6e 29 29 0a 0a 28 64 65 66 | -run-function.name.().fn))..(def |
| 1e42c0 | 76 61 72 20 2a 69 64 2d 6c 6f 63 6b 2a 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 29 29 0a 28 64 | var.*id-lock*.(mp:make-lock)).(d |
| 1e42e0 | 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2a 20 30 29 0a 0a 28 64 | efvar.*thread-id-counter*.0)..(d |
| 1e4300 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 20 28 74 68 72 65 | efimplementation.thread-id.(thre |
| 1e4320 | 61 64 29 0a 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 69 64 2d 6c 6f 63 6b 2a 29 0a | ad)...(mp:with-lock.(*id-lock*). |
| 1e4340 | 20 20 20 20 28 6f 72 20 28 67 65 74 66 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 70 6c 69 73 74 20 | ....(or.(getf.(mp:process-plist. |
| 1e4360 | 74 68 72 65 61 64 29 20 27 69 64 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 | thread).'id).........(setf.(getf |
| 1e4380 | 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 70 6c 69 73 74 20 74 68 72 65 61 64 29 20 27 69 64 29 0a | .(mp:process-plist.thread).'id). |
| 1e43a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 | ..............(incf.*thread-id-c |
| 1e43c0 | 6f 75 6e 74 65 72 2a 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ounter*)))))..(defimplementation |
| 1e43e0 | 20 66 69 6e 64 2d 74 68 72 65 61 64 20 28 69 64 29 0a 20 20 28 66 69 6e 64 20 69 64 20 28 6d 70 | .find-thread.(id)...(find.id.(mp |
| 1e4400 | 3a 6c 69 73 74 2d 61 6c 6c 2d 70 72 6f 63 65 73 73 65 73 29 20 0a 20 20 20 20 20 20 20 20 3a 6b | :list-all-processes)..........:k |
| 1e4420 | 65 79 20 28 6c 61 6d 62 64 61 20 28 70 29 20 28 67 65 74 66 20 28 6d 70 3a 70 72 6f 63 65 73 73 | ey.(lambda.(p).(getf.(mp:process |
| 1e4440 | 2d 70 6c 69 73 74 20 70 29 20 27 69 64 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | -plist.p).'id))))..(defimplement |
| 1e4460 | 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 6e 61 6d 65 20 28 74 68 72 65 61 64 29 0a 20 20 28 6d 70 | ation.thread-name.(thread)...(mp |
| 1e4480 | 3a 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 74 68 72 65 61 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c | :process-name.thread))..(defimpl |
| 1e44a0 | 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 73 74 61 74 75 73 20 28 74 68 72 65 61 64 | ementation.thread-status.(thread |
| 1e44c0 | 29 0a 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 20 7e 44 22 20 0a 20 20 20 20 20 20 20 | )...(format.nil."~A.~D"......... |
| 1e44e0 | 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 77 68 6f 73 74 61 74 65 20 74 68 72 65 61 64 29 0a | ...(mp:process-whostate.thread). |
| 1e4500 | 20 20 20 20 20 20 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 70 72 69 6f 72 69 74 79 20 74 | ..........(mp:process-priority.t |
| 1e4520 | 68 72 65 61 64 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b | hread)))..(defimplementation.mak |
| 1e4540 | 65 2d 6c 6f 63 6b 20 28 26 6b 65 79 20 6e 61 6d 65 29 0a 20 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f | e-lock.(&key.name)...(mp:make-lo |
| 1e4560 | 63 6b 20 3a 6e 61 6d 65 20 6e 61 6d 65 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | ck.:name.name))..(defimplementat |
| 1e4580 | 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 6c 6f 63 6b 20 66 75 | ion.call-with-lock-held.(lock.fu |
| 1e45a0 | 6e 63 74 69 6f 6e 29 0a 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6c 6f 63 6b 29 20 28 | nction)...(mp:with-lock.(lock).( |
| 1e45c0 | 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | funcall.function)))..(defimpleme |
| 1e45e0 | 6e 74 61 74 69 6f 6e 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 6d 70 3a 2a | ntation.current-thread.()...mp:* |
| 1e4600 | 63 75 72 72 65 6e 74 2d 70 72 6f 63 65 73 73 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | current-process*)..(defimplement |
| 1e4620 | 61 74 69 6f 6e 20 61 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 28 6d 70 3a 6c 69 73 74 2d | ation.all-threads.()...(mp:list- |
| 1e4640 | 61 6c 6c 2d 70 72 6f 63 65 73 73 65 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | all-processes))..(defimplementat |
| 1e4660 | 69 6f 6e 20 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 20 66 6e 29 | ion.interrupt-thread.(thread.fn) |
| 1e4680 | 0a 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 69 6e 74 65 72 72 75 70 74 20 74 68 72 65 61 64 20 | ...(mp:process-interrupt.thread. |
| 1e46a0 | 66 6e 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6b 69 6c 6c 2d 74 68 | fn))..(defimplementation.kill-th |
| 1e46c0 | 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 6b 69 6c 6c | read.(thread)...(mp:process-kill |
| 1e46e0 | 20 74 68 72 65 61 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 | .thread))..(defimplementation.th |
| 1e4700 | 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 28 74 68 72 65 61 64 29 0a 20 20 28 6d 70 3a 70 72 6f 63 | read-alive-p.(thread)...(mp:proc |
| 1e4720 | 65 73 73 2d 61 6c 69 76 65 2d 70 20 74 68 72 65 61 64 29 29 0a 0a 28 64 65 66 73 74 72 75 63 74 | ess-alive-p.thread))..(defstruct |
| 1e4740 | 20 28 6d 61 69 6c 62 6f 78 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 6d 61 69 6c 62 6f 78 2e 29 29 | .(mailbox.(:conc-name.mailbox.)) |
| 1e4760 | 20 0a 20 20 28 6d 75 74 65 78 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 | ....(mutex.(mp:make-lock.:name." |
| 1e4780 | 74 68 72 65 61 64 20 6d 61 69 6c 62 6f 78 22 29 29 0a 20 20 28 71 75 65 75 65 20 27 28 29 20 3a | thread.mailbox"))...(queue.'().: |
| 1e47a0 | 74 79 70 65 20 6c 69 73 74 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 6d 61 69 6c 62 6f 78 2d 6c 6f | type.list))..(defvar.*mailbox-lo |
| 1e47c0 | 63 6b 2a 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c | ck*.(mp:make-lock))..(defun.mail |
| 1e47e0 | 62 6f 78 20 28 74 68 72 65 61 64 29 0a 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 6d | box.(thread)...(mp:with-lock.(*m |
| 1e4800 | 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 28 6f 72 20 28 67 65 74 66 20 28 6d 70 3a | ailbox-lock*).....(or.(getf.(mp: |
| 1e4820 | 70 72 6f 63 65 73 73 2d 70 6c 69 73 74 20 74 68 72 65 61 64 29 20 27 6d 61 69 6c 62 6f 78 29 0a | process-plist.thread).'mailbox). |
| 1e4840 | 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d | ........(setf.(getf.(mp:process- |
| 1e4860 | 70 6c 69 73 74 20 74 68 72 65 61 64 29 20 27 6d 61 69 6c 62 6f 78 29 0a 20 20 20 20 20 20 20 20 | plist.thread).'mailbox)......... |
| 1e4880 | 20 20 20 20 20 20 28 6d 61 6b 65 2d 6d 61 69 6c 62 6f 78 29 29 29 29 29 0a 0a 28 64 65 66 69 6d | ......(make-mailbox)))))..(defim |
| 1e48a0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 69 76 65 2d 69 66 20 28 74 65 73 74 20 26 6f | plementation.receive-if.(test.&o |
| 1e48c0 | 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 | ptional.timeout)...(let*.((mbox. |
| 1e48e0 | 28 6d 61 69 6c 62 6f 78 20 6d 70 3a 2a 63 75 72 72 65 6e 74 2d 70 72 6f 63 65 73 73 2a 29 29 0a | (mailbox.mp:*current-process*)). |
| 1e4900 | 20 20 20 20 20 20 20 20 20 28 6c 6f 63 6b 20 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 | .........(lock.(mailbox.mutex.mb |
| 1e4920 | 6f 78 29 29 29 0a 20 20 20 20 28 61 73 73 65 72 74 20 28 6f 72 20 28 6e 6f 74 20 74 69 6d 65 6f | ox))).....(assert.(or.(not.timeo |
| 1e4940 | 75 74 29 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 0a 20 | ut).(eq.timeout.t))).....(loop.. |
| 1e4960 | 20 20 20 20 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 | ....(check-slime-interrupts).... |
| 1e4980 | 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6c 6f 63 6b 20 22 72 65 63 65 69 76 65 2d 69 | ..(mp:with-lock.(lock."receive-i |
| 1e49a0 | 66 2f 74 72 79 22 29 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 71 20 28 6d 61 69 6c 62 6f | f/try")........(let*.((q.(mailbo |
| 1e49c0 | 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 | x.queue.mbox))...............(ta |
| 1e49e0 | 69 6c 20 28 6d 65 6d 62 65 72 2d 69 66 20 74 65 73 74 20 71 29 29 29 0a 20 20 20 20 20 20 20 20 | il.(member-if.test.q)))......... |
| 1e4a00 | 20 28 77 68 65 6e 20 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 | .(when.tail............(setf.(ma |
| 1e4a20 | 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6e 63 6f 6e 63 20 28 6c 64 69 66 66 20 | ilbox.queue.mbox).(nconc.(ldiff. |
| 1e4a40 | 71 20 74 61 69 6c 29 20 28 63 64 72 20 74 61 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | q.tail).(cdr.tail)))............ |
| 1e4a60 | 28 72 65 74 75 72 6e 20 28 63 61 72 20 74 61 69 6c 29 29 29 29 29 0a 20 20 20 20 20 28 77 68 65 | (return.(car.tail)))))......(whe |
| 1e4a80 | 6e 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 | n.(eq.timeout.t).(return.(values |
| 1e4aa0 | 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 77 61 69 74 2d | .nil.t)))......(mp:process-wait- |
| 1e4ac0 | 77 69 74 68 2d 74 69 6d 65 6f 75 74 20 0a 20 20 20 20 20 20 22 72 65 63 65 69 76 65 2d 69 66 22 | with-timeout........"receive-if" |
| 1e4ae0 | 20 30 2e 33 20 28 6c 61 6d 62 64 61 20 28 29 20 28 73 6f 6d 65 20 74 65 73 74 20 28 6d 61 69 6c | .0.3.(lambda.().(some.test.(mail |
| 1e4b00 | 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | box.queue.mbox)))))))..(defimple |
| 1e4b20 | 6d 65 6e 74 61 74 69 6f 6e 20 73 65 6e 64 20 28 74 68 72 65 61 64 20 6d 65 73 73 61 67 65 29 0a | mentation.send.(thread.message). |
| 1e4b40 | 20 20 28 6c 65 74 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 74 68 72 65 61 64 29 29 29 | ..(let.((mbox.(mailbox.thread))) |
| 1e4b60 | 0a 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 | .....(mp:with-lock.((mailbox.mut |
| 1e4b80 | 65 78 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 71 | ex.mbox)).......(setf.(mailbox.q |
| 1e4ba0 | 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 63 6f 6e 63 20 28 6d | ueue.mbox).............(nconc.(m |
| 1e4bc0 | 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6c 69 73 74 20 6d 65 73 73 61 67 65 | ailbox.queue.mbox).(list.message |
| 1e4be0 | 29 29 29 29 29 29 0a 0a 28 6c 65 74 20 28 28 61 6c 69 73 74 20 27 28 29 29 0a 20 20 20 20 20 20 | ))))))..(let.((alist.'())....... |
| 1e4c00 | 28 6c 6f 63 6b 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 72 65 67 69 73 | (lock.(mp:make-lock.:name."regis |
| 1e4c20 | 74 65 72 2d 74 68 72 65 61 64 22 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | ter-thread")))....(defimplementa |
| 1e4c40 | 74 69 6f 6e 20 72 65 67 69 73 74 65 72 2d 74 68 72 65 61 64 20 28 6e 61 6d 65 20 74 68 72 65 61 | tion.register-thread.(name.threa |
| 1e4c60 | 64 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 73 79 6d 62 6f 6c 20 6e 61 6d | d).....(declare.(type.symbol.nam |
| 1e4c80 | 65 29 29 0a 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6c 6f 63 6b 29 0a 20 20 20 | e)).....(mp:with-lock.(lock).... |
| 1e4ca0 | 20 20 20 28 65 74 79 70 65 63 61 73 65 20 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 28 6e 75 | ...(etypecase.thread.........(nu |
| 1e4cc0 | 6c 6c 20 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 61 6c 69 73 74 20 28 64 65 6c 65 74 65 | ll...........(setf.alist.(delete |
| 1e4ce0 | 20 6e 61 6d 65 20 61 6c 69 73 74 20 3a 6b 65 79 20 23 27 63 61 72 29 29 29 0a 20 20 20 20 20 20 | .name.alist.:key.#'car)))....... |
| 1e4d00 | 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 | ..(mp:process..........(let.((pr |
| 1e4d20 | 6f 62 65 20 28 61 73 73 6f 63 20 6e 61 6d 65 20 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 | obe.(assoc.name.alist)))........ |
| 1e4d40 | 20 20 20 20 28 63 6f 6e 64 20 28 70 72 6f 62 65 20 28 73 65 74 66 20 28 63 64 72 20 70 72 6f 62 | ....(cond.(probe.(setf.(cdr.prob |
| 1e4d60 | 65 29 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 | e).thread))..................(t. |
| 1e4d80 | 28 73 65 74 66 20 61 6c 69 73 74 20 28 61 63 6f 6e 73 20 6e 61 6d 65 20 74 68 72 65 61 64 20 61 | (setf.alist.(acons.name.thread.a |
| 1e4da0 | 6c 69 73 74 29 29 29 29 29 29 29 29 0a 20 20 20 20 6e 69 6c 29 0a 0a 20 20 28 64 65 66 69 6d 70 | list)))))))).....nil)....(defimp |
| 1e4dc0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 72 65 67 69 73 74 65 72 65 64 20 28 6e 61 6d | lementation.find-registered.(nam |
| 1e4de0 | 65 29 0a 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6c 6f 63 6b 29 0a 20 20 20 20 | e).....(mp:with-lock.(lock)..... |
| 1e4e00 | 20 20 28 63 64 72 20 28 61 73 73 6f 63 20 6e 61 6d 65 20 61 6c 69 73 74 29 29 29 29 29 0a 0a 0a | ..(cdr.(assoc.name.alist)))))... |
| 1e4e20 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 61 75 6c 74 2d 69 | (defimplementation.set-default-i |
| 1e4e40 | 6e 69 74 69 61 6c 2d 62 69 6e 64 69 6e 67 20 28 76 61 72 20 66 6f 72 6d 29 0a 20 20 28 73 65 74 | nitial-binding.(var.form)...(set |
| 1e4e60 | 71 20 6d 70 3a 2a 70 72 6f 63 65 73 73 2d 69 6e 69 74 69 61 6c 2d 62 69 6e 64 69 6e 67 73 2a 20 | q.mp:*process-initial-bindings*. |
| 1e4e80 | 0a 20 20 20 20 20 20 20 20 28 61 63 6f 6e 73 20 76 61 72 20 60 28 65 76 61 6c 20 28 71 75 6f 74 | .........(acons.var.`(eval.(quot |
| 1e4ea0 | 65 20 2c 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 70 3a 2a 70 72 6f | e.,form))................mp:*pro |
| 1e4ec0 | 63 65 73 73 2d 69 6e 69 74 69 61 6c 2d 62 69 6e 64 69 6e 67 73 2a 20 29 29 29 0a 0a 28 64 65 66 | cess-initial-bindings*.)))..(def |
| 1e4ee0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 61 74 74 72 69 62 75 74 65 73 | implementation.thread-attributes |
| 1e4f00 | 20 28 74 68 72 65 61 64 29 0a 20 20 28 6c 69 73 74 20 3a 70 72 69 6f 72 69 74 79 20 28 6d 70 3a | .(thread)...(list.:priority.(mp: |
| 1e4f20 | 70 72 6f 63 65 73 73 2d 70 72 69 6f 72 69 74 79 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 | process-priority.thread)........ |
| 1e4f40 | 20 3a 69 64 6c 65 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 69 64 6c 65 2d 74 69 6d 65 20 74 68 72 | .:idle.(mp:process-idle-time.thr |
| 1e4f60 | 65 61 64 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 57 65 61 6b 20 68 61 73 68 74 61 62 6c 65 73 0a 0a | ead)))....;;;;.Weak.hashtables.. |
| 1e4f80 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 77 65 61 6b 2d 6b 65 79 | (defimplementation.make-weak-key |
| 1e4fa0 | 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c | -hash-table.(&rest.args)...(appl |
| 1e4fc0 | 79 20 23 27 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 77 65 61 6b 2d 6b 69 6e 64 20 3a | y.#'make-hash-table.:weak-kind.: |
| 1e4fe0 | 6b 65 79 20 61 72 67 73 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d | key.args))..(defimplementation.m |
| 1e5000 | 61 6b 65 2d 77 65 61 6b 2d 76 61 6c 75 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 26 72 65 73 74 | ake-weak-value-hash-table.(&rest |
| 1e5020 | 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c | .args)...(apply.#'make-hash-tabl |
| 1e5040 | 65 20 3a 77 65 61 6b 2d 6b 69 6e 64 20 3a 76 61 6c 75 65 20 61 72 67 73 29 29 0a 0a 3b 3b 3b 3b | e.:weak-kind.:value.args))..;;;; |
| 1e5060 | 20 50 61 63 6b 61 67 65 73 0a 0a 23 2b 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e | .Packages..#+package-local-nickn |
| 1e5080 | 61 6d 65 73 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 61 63 6b 61 67 65 2d | ames.(defimplementation.package- |
| 1e50a0 | 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 20 28 70 61 63 6b 61 67 65 29 0a 20 20 28 68 63 6c | local-nicknames.(package)...(hcl |
| 1e50c0 | 3a 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 20 70 61 63 6b 61 67 65 | :package-local-nicknames.package |
| 1e50e0 | 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | )).............................. |
| 1e5100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e5120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e5140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e5160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e5180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e51a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e51c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e51e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e5200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 73 6f 75 72 63 65 2d 66 69 6c 65 2d 63 61 63 | slime-2.31/swank/source-file-cac |
| 1e5220 | 68 65 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | he.lisp......................... |
| 1e5240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e5260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 1e5280 | 30 30 31 32 31 37 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 30 32 00 20 30 00 00 00 | 0012170.00000000000.016502..0... |
| 1e52a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e52c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e52e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e5300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 1e5320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 1e5340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e5360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e5380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e53a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e53c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e53e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e5400 | 3b 3b 3b 3b 20 53 6f 75 72 63 65 2d 66 69 6c 65 20 63 61 63 68 65 0a 3b 3b 3b 0a 3b 3b 3b 20 54 | ;;;;.Source-file.cache.;;;.;;;.T |
| 1e5420 | 6f 20 72 6f 62 75 73 74 6c 79 20 66 69 6e 64 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 73 | o.robustly.find.source.locations |
| 1e5440 | 20 69 6e 20 43 4d 55 43 4c 20 61 6e 64 20 53 42 43 4c 20 69 74 27 73 20 75 73 65 66 75 6c 20 74 | .in.CMUCL.and.SBCL.it's.useful.t |
| 1e5460 | 6f 0a 3b 3b 3b 20 68 61 76 65 20 74 68 65 20 65 78 61 63 74 20 73 6f 75 72 63 65 20 63 6f 64 65 | o.;;;.have.the.exact.source.code |
| 1e5480 | 20 74 68 61 74 20 74 68 65 20 6c 6f 61 64 65 64 20 63 6f 64 65 20 77 61 73 20 63 6f 6d 70 69 6c | .that.the.loaded.code.was.compil |
| 1e54a0 | 65 64 20 66 72 6f 6d 2e 0a 3b 3b 3b 20 49 6e 20 74 68 69 73 20 73 6f 75 72 63 65 20 77 65 20 63 | ed.from..;;;.In.this.source.we.c |
| 1e54c0 | 61 6e 20 61 63 63 75 72 61 74 65 6c 79 20 66 69 6e 64 20 74 68 65 20 72 69 67 68 74 20 6c 6f 63 | an.accurately.find.the.right.loc |
| 1e54e0 | 61 74 69 6f 6e 2c 20 61 6e 64 20 66 72 6f 6d 0a 3b 3b 3b 20 74 68 61 74 20 6c 6f 63 61 74 69 6f | ation,.and.from.;;;.that.locatio |
| 1e5500 | 6e 20 77 65 20 63 61 6e 20 65 78 74 72 61 63 74 20 61 20 22 73 6e 69 70 70 65 74 22 20 6f 66 20 | n.we.can.extract.a."snippet".of. |
| 1e5520 | 63 6f 64 65 20 74 6f 20 73 68 6f 77 20 77 68 61 74 20 74 68 65 0a 3b 3b 3b 20 64 65 66 69 6e 69 | code.to.show.what.the.;;;.defini |
| 1e5540 | 74 69 6f 6e 20 6c 6f 6f 6b 73 20 6c 69 6b 65 2e 20 45 6d 61 63 73 20 63 61 6e 20 75 73 65 20 74 | tion.looks.like..Emacs.can.use.t |
| 1e5560 | 68 69 73 20 73 6e 69 70 70 65 74 20 69 6e 20 61 20 62 65 73 74 2d 6d 61 74 63 68 0a 3b 3b 3b 20 | his.snippet.in.a.best-match.;;;. |
| 1e5580 | 73 65 61 72 63 68 20 74 6f 20 6c 6f 63 61 74 65 20 74 68 65 20 72 69 67 68 74 20 64 65 66 69 6e | search.to.locate.the.right.defin |
| 1e55a0 | 69 74 69 6f 6e 2c 20 77 68 69 63 68 20 77 6f 72 6b 73 20 77 65 6c 6c 20 65 76 65 6e 20 69 66 0a | ition,.which.works.well.even.if. |
| 1e55c0 | 3b 3b 3b 20 74 68 65 20 62 75 66 66 65 72 20 68 61 73 20 62 65 65 6e 20 6d 6f 64 69 66 69 65 64 | ;;;.the.buffer.has.been.modified |
| 1e55e0 | 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 69 64 65 61 20 69 73 20 74 68 61 74 20 69 66 20 61 20 | ..;;;.;;;.The.idea.is.that.if.a. |
| 1e5600 | 64 65 66 69 6e 69 74 69 6f 6e 20 70 72 65 76 69 6f 75 73 6c 79 20 73 74 61 72 74 65 64 20 77 69 | definition.previously.started.wi |
| 1e5620 | 74 68 0a 3b 3b 3b 20 60 28 64 65 66 69 6e 65 2d 66 6f 6f 20 62 61 72 27 20 74 68 65 6e 20 69 74 | th.;;;.`(define-foo.bar'.then.it |
| 1e5640 | 20 70 72 6f 62 61 62 6c 79 20 73 74 69 6c 6c 20 64 6f 65 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 57 68 | .probably.still.does..;;;.;;;.Wh |
| 1e5660 | 65 6e 65 76 65 72 20 77 65 20 73 65 65 20 74 68 61 74 20 74 68 65 20 66 69 6c 65 20 6f 6e 20 64 | enever.we.see.that.the.file.on.d |
| 1e5680 | 69 73 6b 20 68 61 73 20 74 68 65 20 73 61 6d 65 0a 3b 3b 3b 20 60 66 69 6c 65 2d 77 72 69 74 65 | isk.has.the.same.;;;.`file-write |
| 1e56a0 | 2d 64 61 74 65 27 20 61 73 20 61 20 6c 6f 63 61 74 69 6f 6e 20 77 65 27 72 65 20 6c 6f 6f 6b 69 | -date'.as.a.location.we're.looki |
| 1e56c0 | 6e 67 20 66 6f 72 20 77 65 20 63 61 63 68 65 20 74 68 65 0a 3b 3b 3b 20 77 68 6f 6c 65 20 66 69 | ng.for.we.cache.the.;;;.whole.fi |
| 1e56e0 | 6c 65 20 69 6e 73 69 64 65 20 4c 69 73 70 2e 20 54 68 61 74 20 77 61 79 20 77 65 20 77 69 6c 6c | le.inside.Lisp..That.way.we.will |
| 1e5700 | 20 73 74 69 6c 6c 20 68 61 76 65 20 74 68 65 20 6d 61 74 63 68 69 6e 67 0a 3b 3b 3b 20 76 65 72 | .still.have.the.matching.;;;.ver |
| 1e5720 | 73 69 6f 6e 20 65 76 65 6e 20 69 66 20 74 68 65 20 66 69 6c 65 20 69 73 20 6c 61 74 65 72 20 6d | sion.even.if.the.file.is.later.m |
| 1e5740 | 6f 64 69 66 69 65 64 20 6f 6e 20 64 69 73 6b 2e 20 49 66 20 74 68 65 20 66 69 6c 65 20 69 73 0a | odified.on.disk..If.the.file.is. |
| 1e5760 | 3b 3b 3b 20 6c 61 74 65 72 20 72 65 63 6f 6d 70 69 6c 65 64 20 61 6e 64 20 72 65 6c 6f 61 64 65 | ;;;.later.recompiled.and.reloade |
| 1e5780 | 64 20 74 68 65 6e 20 77 65 20 72 65 70 6c 61 63 65 20 6f 75 72 20 63 61 63 68 65 20 65 6e 74 72 | d.then.we.replace.our.cache.entr |
| 1e57a0 | 79 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c | y..;;;.;;;.This.code.has.been.pl |
| 1e57c0 | 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 | aced.in.the.Public.Domain...All. |
| 1e57e0 | 77 61 72 72 61 6e 74 69 65 73 0a 3b 3b 3b 20 61 72 65 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 0a | warranties.;;;.are.disclaimed... |
| 1e5800 | 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 73 6f 75 72 63 65 2d 66 69 6c 65 2d 63 61 | (defpackage.swank/source-file-ca |
| 1e5820 | 63 68 65 0a 20 20 28 3a 75 73 65 20 63 6c 29 0a 20 20 28 3a 69 6d 70 6f 72 74 2d 66 72 6f 6d 20 | che...(:use.cl)...(:import-from. |
| 1e5840 | 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 0a 09 09 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | swank/backend...defimplementatio |
| 1e5860 | 6e 20 62 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 61 6e 67 65 0a 09 09 67 75 65 73 73 2d 65 78 | n.buffer-first-change...guess-ex |
| 1e5880 | 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 09 09 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f | ternal-format...find-external-fo |
| 1e58a0 | 72 6d 61 74 29 0a 20 20 28 3a 65 78 70 6f 72 74 0a 20 20 20 67 65 74 2d 73 6f 75 72 63 65 2d 63 | rmat)...(:export....get-source-c |
| 1e58c0 | 6f 64 65 0a 20 20 20 73 6f 75 72 63 65 2d 63 61 63 68 65 2d 67 65 74 20 3b 46 49 58 4d 45 3a 20 | ode....source-cache-get.;FIXME:. |
| 1e58e0 | 69 73 6e 27 74 20 69 74 20 6f 64 64 20 74 68 61 74 20 62 6f 74 68 20 61 72 65 20 65 78 70 6f 72 | isn't.it.odd.that.both.are.expor |
| 1e5900 | 74 65 64 3f 0a 0a 20 20 20 2a 73 6f 75 72 63 65 2d 73 6e 69 70 70 65 74 2d 73 69 7a 65 2a 0a 20 | ted?.....*source-snippet-size*.. |
| 1e5920 | 20 20 72 65 61 64 2d 73 6e 69 70 70 65 74 0a 20 20 20 72 65 61 64 2d 73 6e 69 70 70 65 74 2d 66 | ..read-snippet....read-snippet-f |
| 1e5940 | 72 6f 6d 2d 73 74 72 69 6e 67 0a 20 20 20 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 | rom-string....))..(in-package.sw |
| 1e5960 | 61 6e 6b 2f 73 6f 75 72 63 65 2d 66 69 6c 65 2d 63 61 63 68 65 29 0a 0a 28 64 65 66 76 61 72 20 | ank/source-file-cache)..(defvar. |
| 1e5980 | 2a 63 61 63 68 65 2d 73 6f 75 72 63 65 63 6f 64 65 2a 20 74 0a 20 20 22 57 68 65 6e 20 74 72 75 | *cache-sourcecode*.t..."When.tru |
| 1e59a0 | 65 20 63 6f 6d 70 6c 65 74 65 20 73 6f 75 72 63 65 20 66 69 6c 65 73 20 61 72 65 20 63 61 63 68 | e.complete.source.files.are.cach |
| 1e59c0 | 65 64 2e 0a 54 68 65 20 63 61 63 68 65 20 69 73 20 75 73 65 64 20 74 6f 20 6b 65 65 70 20 6b 6e | ed..The.cache.is.used.to.keep.kn |
| 1e59e0 | 6f 77 6e 20 67 6f 6f 64 20 63 6f 70 69 65 73 20 6f 66 20 74 68 65 20 73 6f 75 72 63 65 20 74 65 | own.good.copies.of.the.source.te |
| 1e5a00 | 78 74 20 77 68 69 63 68 0a 63 6f 72 72 65 73 70 6f 6e 64 20 74 6f 20 74 68 65 20 6c 6f 61 64 65 | xt.which.correspond.to.the.loade |
| 1e5a20 | 64 20 63 6f 64 65 2e 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 69 73 20 6d | d.code..Finding.definitions.is.m |
| 1e5a40 | 75 63 68 20 6d 6f 72 65 0a 72 65 6c 69 61 62 6c 65 20 77 68 65 6e 20 74 68 65 20 65 78 61 63 74 | uch.more.reliable.when.the.exact |
| 1e5a60 | 20 73 6f 75 72 63 65 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 73 6f 20 77 65 20 63 61 63 68 | .source.is.available,.so.we.cach |
| 1e5a80 | 65 20 69 74 20 69 6e 20 63 61 73 65 20 69 74 0a 67 65 74 73 20 65 64 69 74 65 64 20 6f 6e 20 64 | e.it.in.case.it.gets.edited.on.d |
| 1e5aa0 | 69 73 6b 20 6c 61 74 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 6f 75 72 63 65 2d 66 69 | isk.later.")..(defvar.*source-fi |
| 1e5ac0 | 6c 65 2d 63 61 63 68 65 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 | le-cache*.(make-hash-table.:test |
| 1e5ae0 | 20 27 65 71 75 61 6c 29 0a 20 20 22 43 61 63 68 65 20 6f 66 20 73 6f 75 72 63 65 20 66 69 6c 65 | .'equal)..."Cache.of.source.file |
| 1e5b00 | 20 63 6f 6e 74 65 6e 74 73 2e 0a 4d 61 70 73 20 66 72 6f 6d 20 74 72 75 65 6e 61 6d 65 20 74 6f | .contents..Maps.from.truename.to |
| 1e5b20 | 20 73 6f 75 72 63 65 2d 63 61 63 68 65 2d 65 6e 74 72 79 20 73 74 72 75 63 74 75 72 65 2e 22 29 | .source-cache-entry.structure.") |
| 1e5b40 | 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 73 6f 75 72 63 65 2d 63 61 63 68 65 2d 65 6e 74 72 79 | ..(defstruct.(source-cache-entry |
| 1e5b60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 73 6f 75 72 63 65 | ..............(:conc-name.source |
| 1e5b80 | 2d 63 61 63 68 65 2d 65 6e 74 72 79 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f | -cache-entry.)..............(:co |
| 1e5ba0 | 6e 73 74 72 75 63 74 6f 72 20 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 63 61 63 68 65 2d 65 6e 74 72 | nstructor.make-source-cache-entr |
| 1e5bc0 | 79 20 28 74 65 78 74 20 64 61 74 65 29 29 29 0a 20 20 74 65 78 74 20 64 61 74 65 29 0a 0a 28 64 | y.(text.date)))...text.date)..(d |
| 1e5be0 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 62 75 66 66 65 72 2d 66 69 72 73 74 2d 63 68 | efimplementation.buffer-first-ch |
| 1e5c00 | 61 6e 67 65 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 22 4c 6f 61 64 20 61 20 66 69 6c 65 20 69 | ange.(filename)..."Load.a.file.i |
| 1e5c20 | 6e 74 6f 20 74 68 65 20 63 61 63 68 65 20 77 68 65 6e 20 74 68 65 20 75 73 65 72 20 6d 6f 64 69 | nto.the.cache.when.the.user.modi |
| 1e5c40 | 66 69 65 73 20 69 74 73 20 62 75 66 66 65 72 2e 0a 54 68 69 73 20 69 73 20 61 20 77 69 6e 20 69 | fies.its.buffer..This.is.a.win.i |
| 1e5c60 | 66 20 74 68 65 20 75 73 65 72 20 74 68 65 6e 20 73 61 76 65 73 20 74 68 65 20 66 69 6c 65 20 61 | f.the.user.then.saves.the.file.a |
| 1e5c80 | 6e 64 20 74 72 69 65 73 20 74 6f 20 4d 2d 2e 20 69 6e 74 6f 20 69 74 2e 22 0a 20 20 28 75 6e 6c | nd.tries.to.M-..into.it."...(unl |
| 1e5ca0 | 65 73 73 20 28 73 6f 75 72 63 65 2d 63 61 63 68 65 64 2d 70 20 66 69 6c 65 6e 61 6d 65 29 0a 20 | ess.(source-cached-p.filename).. |
| 1e5cc0 | 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d | ...(ignore-errors.......(source- |
| 1e5ce0 | 63 61 63 68 65 2d 67 65 74 20 66 69 6c 65 6e 61 6d 65 20 28 66 69 6c 65 2d 77 72 69 74 65 2d 64 | cache-get.filename.(file-write-d |
| 1e5d00 | 61 74 65 20 66 69 6c 65 6e 61 6d 65 29 29 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 | ate.filename))))...nil)..(defun. |
| 1e5d20 | 67 65 74 2d 73 6f 75 72 63 65 2d 63 6f 64 65 20 28 66 69 6c 65 6e 61 6d 65 20 63 6f 64 65 2d 64 | get-source-code.(filename.code-d |
| 1e5d40 | 61 74 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 6f 75 72 63 65 20 63 6f 64 65 20 66 | ate)..."Return.the.source.code.f |
| 1e5d60 | 6f 72 20 46 49 4c 45 4e 41 4d 45 20 61 73 20 77 72 69 74 74 65 6e 20 6f 6e 20 44 41 54 45 20 69 | or.FILENAME.as.written.on.DATE.i |
| 1e5d80 | 6e 20 61 20 73 74 72 69 6e 67 2e 0a 49 66 20 74 68 65 20 65 78 61 63 74 20 76 65 72 73 69 6f 6e | n.a.string..If.the.exact.version |
| 1e5da0 | 20 63 61 6e 6e 6f 74 20 62 65 20 66 6f 75 6e 64 20 74 68 65 6e 20 72 65 74 75 72 6e 20 74 68 65 | .cannot.be.found.then.return.the |
| 1e5dc0 | 20 63 75 72 72 65 6e 74 20 6f 6e 65 20 66 72 6f 6d 20 64 69 73 6b 2e 22 0a 20 20 28 6f 72 20 28 | .current.one.from.disk."...(or.( |
| 1e5de0 | 73 6f 75 72 63 65 2d 63 61 63 68 65 2d 67 65 74 20 66 69 6c 65 6e 61 6d 65 20 63 6f 64 65 2d 64 | source-cache-get.filename.code-d |
| 1e5e00 | 61 74 65 29 0a 20 20 20 20 20 20 28 72 65 61 64 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 29 | ate).......(read-file.filename)) |
| 1e5e20 | 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d 63 61 63 68 65 2d 67 65 74 20 28 66 69 6c 65 | )..(defun.source-cache-get.(file |
| 1e5e40 | 6e 61 6d 65 20 64 61 74 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 6f 75 72 63 65 20 | name.date)..."Return.the.source. |
| 1e5e60 | 63 6f 64 65 20 66 6f 72 20 46 49 4c 45 4e 41 4d 45 20 61 73 20 77 72 69 74 74 65 6e 20 6f 6e 20 | code.for.FILENAME.as.written.on. |
| 1e5e80 | 44 41 54 45 20 69 6e 20 61 20 73 74 72 69 6e 67 2e 0a 52 65 74 75 72 6e 20 4e 49 4c 20 69 66 20 | DATE.in.a.string..Return.NIL.if. |
| 1e5ea0 | 74 68 65 20 72 69 67 68 74 20 76 65 72 73 69 6f 6e 20 63 61 6e 6e 6f 74 20 62 65 20 66 6f 75 6e | the.right.version.cannot.be.foun |
| 1e5ec0 | 64 2e 22 0a 20 20 28 77 68 65 6e 20 2a 63 61 63 68 65 2d 73 6f 75 72 63 65 63 6f 64 65 2a 0a 20 | d."...(when.*cache-sourcecode*.. |
| 1e5ee0 | 20 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 65 6e 61 6d 65 20 28 74 72 75 65 6e 61 6d 65 20 66 69 | ...(let*.((filename.(truename.fi |
| 1e5f00 | 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 74 72 79 20 28 67 65 74 68 | lename))............(entry.(geth |
| 1e5f20 | 61 73 68 20 66 69 6c 65 6e 61 6d 65 20 2a 73 6f 75 72 63 65 2d 66 69 6c 65 2d 63 61 63 68 65 2a | ash.filename.*source-file-cache* |
| 1e5f40 | 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 65 6e 74 72 79 20 28 65 71 75 | ))).......(cond.((and.entry.(equ |
| 1e5f60 | 61 6c 20 64 61 74 65 20 28 73 6f 75 72 63 65 2d 63 61 63 68 65 2d 65 6e 74 72 79 2e 64 61 74 65 | al.date.(source-cache-entry.date |
| 1e5f80 | 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 61 63 68 65 20 | .entry)))..............;;.Cache. |
| 1e5fa0 | 68 69 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 63 61 63 68 65 2d | hit...............(source-cache- |
| 1e5fc0 | 65 6e 74 72 79 2e 74 65 78 74 20 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | entry.text.entry)).............( |
| 1e5fe0 | 28 6f 72 20 28 6e 75 6c 6c 20 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (or.(null.entry)................ |
| 1e6000 | 20 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 64 61 74 65 20 28 73 6f 75 72 63 65 2d 63 61 63 68 65 | ..(not.(equal.date.(source-cache |
| 1e6020 | 2d 65 6e 74 72 79 2e 64 61 74 65 20 65 6e 74 72 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -entry.date.entry))))........... |
| 1e6040 | 20 20 20 3b 3b 20 43 61 63 68 65 20 6d 69 73 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...;;.Cache.miss...............( |
| 1e6060 | 69 66 20 28 65 71 75 61 6c 20 28 66 69 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 20 66 69 6c 65 6e | if.(equal.(file-write-date.filen |
| 1e6080 | 61 6d 65 29 20 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 | ame).date)..................;;.F |
| 1e60a0 | 69 6c 65 20 6f 6e 20 64 69 73 6b 20 68 61 73 20 74 68 65 20 63 6f 72 72 65 63 74 20 76 65 72 73 | ile.on.disk.has.the.correct.vers |
| 1e60c0 | 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 6f 75 | ion...................(let.((sou |
| 1e60e0 | 72 63 65 20 28 72 65 61 64 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 | rce.(read-file.filename)))...... |
| 1e6100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 66 69 6c | ..............(setf.(gethash.fil |
| 1e6120 | 65 6e 61 6d 65 20 2a 73 6f 75 72 63 65 2d 66 69 6c 65 2d 63 61 63 68 65 2a 29 0a 20 20 20 20 20 | ename.*source-file-cache*)...... |
| 1e6140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 6f 75 72 63 65 | ....................(make-source |
| 1e6160 | 2d 63 61 63 68 65 2d 65 6e 74 72 79 20 73 6f 75 72 63 65 20 64 61 74 65 29 29 0a 20 20 20 20 20 | -cache-entry.source.date))...... |
| 1e6180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ..............source)........... |
| 1e61a0 | 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d | .......nil))))))..(defun.source- |
| 1e61c0 | 63 61 63 68 65 64 2d 70 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 22 49 73 20 61 6e 79 20 76 65 | cached-p.(filename)..."Is.any.ve |
| 1e61e0 | 72 73 69 6f 6e 20 6f 66 20 46 49 4c 45 4e 41 4d 45 20 69 6e 20 74 68 65 20 73 6f 75 72 63 65 20 | rsion.of.FILENAME.in.the.source. |
| 1e6200 | 63 61 63 68 65 3f 22 0a 20 20 28 69 66 20 28 67 65 74 68 61 73 68 20 28 74 72 75 65 6e 61 6d 65 | cache?"...(if.(gethash.(truename |
| 1e6220 | 20 66 69 6c 65 6e 61 6d 65 29 20 2a 73 6f 75 72 63 65 2d 66 69 6c 65 2d 63 61 63 68 65 2a 29 20 | .filename).*source-file-cache*). |
| 1e6240 | 74 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 66 69 6c 65 20 28 66 69 6c 65 6e 61 6d 65 29 | t))..(defun.read-file.(filename) |
| 1e6260 | 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 65 6e 74 69 72 65 20 63 6f 6e 74 65 6e 74 73 20 6f | ..."Return.the.entire.contents.o |
| 1e6280 | 66 20 46 49 4c 45 4e 41 4d 45 20 61 73 20 61 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 77 69 74 68 | f.FILENAME.as.a.string."...(with |
| 1e62a0 | 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 73 20 66 69 6c 65 6e 61 6d 65 20 3a 64 69 72 65 63 74 69 6f | -open-file.(s.filename.:directio |
| 1e62c0 | 6e 20 3a 69 6e 70 75 74 0a 09 09 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 | n.:input........:external-format |
| 1e62e0 | 20 28 6f 72 20 28 67 75 65 73 73 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 66 69 6c 65 | .(or.(guess-external-format.file |
| 1e6300 | 6e 61 6d 65 29 0a 09 09 09 09 09 20 20 28 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d | name)........(find-external-form |
| 1e6320 | 61 74 20 22 6c 61 74 69 6e 2d 31 22 29 0a 09 09 09 09 09 20 20 3a 64 65 66 61 75 6c 74 29 29 0a | at."latin-1")........:default)). |
| 1e6340 | 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 72 69 6e 67 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 | ....(let*.((string.(make-string. |
| 1e6360 | 28 66 69 6c 65 2d 6c 65 6e 67 74 68 20 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | (file-length.s)))............(le |
| 1e6380 | 6e 67 74 68 20 28 72 65 61 64 2d 73 65 71 75 65 6e 63 65 20 73 74 72 69 6e 67 20 73 29 29 29 0a | ngth.(read-sequence.string.s))). |
| 1e63a0 | 20 20 20 20 20 20 28 73 75 62 73 65 71 20 73 74 72 69 6e 67 20 30 20 6c 65 6e 67 74 68 29 29 29 | ......(subseq.string.0.length))) |
| 1e63c0 | 29 0a 0a 3b 3b 3b 3b 20 53 6e 69 70 70 65 74 73 0a 0a 28 64 65 66 76 61 72 20 2a 73 6f 75 72 63 | )..;;;;.Snippets..(defvar.*sourc |
| 1e63e0 | 65 2d 73 6e 69 70 70 65 74 2d 73 69 7a 65 2a 20 32 35 36 0a 20 20 22 4d 61 78 69 6d 75 6d 20 6e | e-snippet-size*.256..."Maximum.n |
| 1e6400 | 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 61 20 73 6e 69 70 70 65 74 | umber.of.characters.in.a.snippet |
| 1e6420 | 20 6f 66 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 0a 53 6e 69 70 70 65 74 73 20 61 74 20 74 68 65 | .of.source.code..Snippets.at.the |
| 1e6440 | 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 61 72 65 20 75 73 | .beginning.of.definitions.are.us |
| 1e6460 | 65 64 20 74 6f 20 74 65 6c 6c 20 45 6d 61 63 73 20 77 68 61 74 0a 74 68 65 20 64 65 66 69 6e 69 | ed.to.tell.Emacs.what.the.defini |
| 1e6480 | 74 69 6f 6e 73 20 6c 6f 6f 6b 73 20 6c 69 6b 65 2c 20 73 6f 20 74 68 61 74 20 69 74 20 63 61 6e | tions.looks.like,.so.that.it.can |
| 1e64a0 | 20 61 63 63 75 72 61 74 65 6c 79 20 66 69 6e 64 20 74 68 65 6d 20 62 79 0a 74 65 78 74 20 73 65 | .accurately.find.them.by.text.se |
| 1e64c0 | 61 72 63 68 2e 22 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 73 6e 69 70 70 65 74 20 28 73 74 | arch.")..(defun.read-snippet.(st |
| 1e64e0 | 72 65 61 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 22 52 65 61 64 | ream.&optional.position)..."Read |
| 1e6500 | 20 61 20 73 74 72 69 6e 67 20 6f 66 20 75 70 74 6f 20 2a 53 4f 55 52 43 45 2d 53 4e 49 50 50 45 | .a.string.of.upto.*SOURCE-SNIPPE |
| 1e6520 | 54 2d 53 49 5a 45 2a 20 63 68 61 72 61 63 74 65 72 73 20 66 72 6f 6d 20 53 54 52 45 41 4d 2e 0a | T-SIZE*.characters.from.STREAM.. |
| 1e6540 | 49 66 20 50 4f 53 49 54 49 4f 4e 20 69 73 20 67 69 76 65 6e 2c 20 73 65 74 20 74 68 65 20 53 54 | If.POSITION.is.given,.set.the.ST |
| 1e6560 | 52 45 41 4d 27 73 20 66 69 6c 65 20 70 6f 73 69 74 69 6f 6e 20 66 69 72 73 74 2e 22 0a 20 20 28 | REAM's.file.position.first."...( |
| 1e6580 | 77 68 65 6e 20 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e | when.position.....(file-position |
| 1e65a0 | 20 73 74 72 65 61 6d 20 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 23 2b 73 62 63 6c 20 28 73 6b 69 | .stream.position))...#+sbcl.(ski |
| 1e65c0 | 70 2d 63 6f 6d 6d 65 6e 74 73 2d 61 6e 64 2d 77 68 69 74 65 73 70 61 63 65 20 73 74 72 65 61 6d | p-comments-and-whitespace.stream |
| 1e65e0 | 29 0a 20 20 28 72 65 61 64 2d 75 70 74 6f 2d 6e 2d 63 68 61 72 73 20 73 74 72 65 61 6d 20 2a 73 | )...(read-upto-n-chars.stream.*s |
| 1e6600 | 6f 75 72 63 65 2d 73 6e 69 70 70 65 74 2d 73 69 7a 65 2a 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 | ource-snippet-size*))..(defun.re |
| 1e6620 | 61 64 2d 73 6e 69 70 70 65 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 | ad-snippet-from-string.(string.& |
| 1e6640 | 6f 70 74 69 6f 6e 61 6c 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 28 77 69 74 68 2d 69 6e 70 75 74 | optional.position)...(with-input |
| 1e6660 | 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 72 65 61 | -from-string.(s.string).....(rea |
| 1e6680 | 64 2d 73 6e 69 70 70 65 74 20 73 20 70 6f 73 69 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 | d-snippet.s.position)))..(defun. |
| 1e66a0 | 73 6b 69 70 2d 63 6f 6d 6d 65 6e 74 73 2d 61 6e 64 2d 77 68 69 74 65 73 70 61 63 65 20 28 73 74 | skip-comments-and-whitespace.(st |
| 1e66c0 | 72 65 61 6d 29 0a 20 20 28 63 61 73 65 20 28 70 65 65 6b 2d 63 68 61 72 20 6e 69 6c 20 73 74 72 | ream)...(case.(peek-char.nil.str |
| 1e66e0 | 65 61 6d 20 6e 69 6c 20 6e 69 6c 29 0a 20 20 20 20 28 28 23 5c 53 70 61 63 65 20 23 5c 54 61 62 | eam.nil.nil).....((#\Space.#\Tab |
| 1e6700 | 20 23 5c 4e 65 77 6c 69 6e 65 20 23 5c 4c 69 6e 65 66 65 65 64 20 23 5c 50 61 67 65 29 0a 20 20 | .#\Newline.#\Linefeed.#\Page)... |
| 1e6720 | 20 20 20 28 72 65 61 64 2d 63 68 61 72 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 28 73 6b 69 70 | ...(read-char.stream)......(skip |
| 1e6740 | 2d 63 6f 6d 6d 65 6e 74 73 2d 61 6e 64 2d 77 68 69 74 65 73 70 61 63 65 20 73 74 72 65 61 6d 29 | -comments-and-whitespace.stream) |
| 1e6760 | 29 0a 20 20 20 20 28 23 5c 3b 0a 20 20 20 20 20 28 72 65 61 64 2d 6c 69 6e 65 20 73 74 72 65 61 | ).....(#\;......(read-line.strea |
| 1e6780 | 6d 29 0a 20 20 20 20 20 28 73 6b 69 70 2d 63 6f 6d 6d 65 6e 74 73 2d 61 6e 64 2d 77 68 69 74 65 | m)......(skip-comments-and-white |
| 1e67a0 | 73 70 61 63 65 20 73 74 72 65 61 6d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 75 70 | space.stream))))..(defun.read-up |
| 1e67c0 | 74 6f 2d 6e 2d 63 68 61 72 73 20 28 73 74 72 65 61 6d 20 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 | to-n-chars.(stream.n)..."Return. |
| 1e67e0 | 61 20 73 74 72 69 6e 67 20 6f 66 20 75 70 74 6f 20 4e 20 63 68 61 72 73 20 66 72 6f 6d 20 53 54 | a.string.of.upto.N.chars.from.ST |
| 1e6800 | 52 45 41 4d 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 74 72 69 6e 67 20 28 6d 61 6b 65 2d 73 74 | REAM."...(let*.((string.(make-st |
| 1e6820 | 72 69 6e 67 20 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 68 61 72 73 20 20 28 72 65 61 64 2d | ring.n))..........(chars..(read- |
| 1e6840 | 73 65 71 75 65 6e 63 65 20 73 74 72 69 6e 67 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 28 73 | sequence.string.stream))).....(s |
| 1e6860 | 75 62 73 65 71 20 73 74 72 69 6e 67 20 30 20 63 68 61 72 73 29 29 29 0a 00 00 00 00 00 00 00 00 | ubseq.string.0.chars)))......... |
| 1e6880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e68a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e68c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e68e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e69a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e69c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e69e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 61 62 63 6c 2e 6c 69 73 70 00 00 00 00 00 00 | slime-2.31/swank/abcl.lisp...... |
| 1e6a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 1e6a80 | 30 32 31 32 36 36 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 31 34 30 00 20 30 00 00 00 | 0212665.00000000000.014140..0... |
| 1e6aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 1e6b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 1e6b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1e6c00 | 3b 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 3b 20 | ;;;;.-*-.indent-tabs-mode:.nil;. |
| 1e6c20 | 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 3a 20 22 3b 3b 3b 3b 3b 2a 22 3b 20 2d 2a 2d 0a 3b 3b | outline-regexp:.";;;;;*";.-*-.;; |
| 1e6c40 | 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 61 62 63 6c 2e 6c 69 73 70 20 2d 2d 2d 20 41 72 6d 65 64 20 | ;.;;;.swank-abcl.lisp.---.Armed. |
| 1e6c60 | 42 65 61 72 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 73 70 65 63 69 66 69 63 20 63 6f 64 65 20 66 | Bear.Common.Lisp.specific.code.f |
| 1e6c80 | 6f 72 20 53 4c 49 4d 45 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 41 64 61 70 74 65 64 20 66 72 6f 6d 20 73 | or.SLIME..;;;.;;;.Adapted.from.s |
| 1e6ca0 | 77 61 6e 6b 2d 61 63 6c 2e 6c 69 73 70 2c 20 41 6e 64 72 61 73 20 53 69 6d 6f 6e 2c 20 32 30 30 | wank-acl.lisp,.Andras.Simon,.200 |
| 1e6cc0 | 34 0a 3b 3b 3b 20 4e 65 77 20 77 6f 72 6b 20 62 79 20 41 6c 61 6e 20 52 75 74 74 65 6e 62 65 72 | 4.;;;.New.work.by.Alan.Ruttenber |
| 1e6ce0 | 67 2c 20 32 30 31 36 2d 37 0a 3b 3b 3b 20 6d 61 69 6e 74 61 69 6e 65 64 20 62 79 20 4d 61 72 6b | g,.2016-7.;;;.maintained.by.Mark |
| 1e6d00 | 20 45 76 65 6e 73 6f 6e 2c 20 32 30 30 39 2d 32 30 32 33 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 | .Evenson,.2009-2023.;;;.;;;.This |
| 1e6d20 | 20 63 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 | .code.has.been.placed.in.the.Pub |
| 1e6d40 | 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 0a 3b 3b 3b 20 | lic.Domain...All.warranties.;;;. |
| 1e6d60 | 61 72 65 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 | are.disclaimed...(defpackage.swa |
| 1e6d80 | 6e 6b 2f 61 62 63 6c 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 | nk/abcl...(:use.cl.swank/backend |
| 1e6da0 | 29 0a 20 20 28 3a 69 6d 70 6f 72 74 2d 66 72 6f 6d 20 3a 6a 61 76 61 0a 20 20 20 20 20 20 20 20 | )...(:import-from.:java......... |
| 1e6dc0 | 20 20 20 20 20 20 20 20 23 3a 6a 63 61 6c 6c 20 23 3a 6a 73 74 61 74 69 63 0a 20 20 20 20 20 20 | ........#:jcall.#:jstatic....... |
| 1e6de0 | 20 20 20 20 20 20 20 20 20 20 23 3a 6a 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..........#:jmethod............. |
| 1e6e00 | 20 20 20 20 23 3a 6a 66 69 65 6c 64 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 3a | ....#:jfield..................#: |
| 1e6e20 | 6a 63 6f 6e 73 74 72 75 63 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 6a | jconstructor.................#:j |
| 1e6e40 | 6e 65 77 2d 61 72 72 61 79 20 23 3a 6a 61 72 72 61 79 2d 6c 65 6e 67 74 68 20 23 3a 6a 61 72 72 | new-array.#:jarray-length.#:jarr |
| 1e6e60 | 61 79 2d 72 65 66 20 23 3a 6a 6e 65 77 2d 61 72 72 61 79 2d 66 72 6f 6d 2d 61 72 72 61 79 0a 20 | ay-ref.#:jnew-array-from-array.. |
| 1e6e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 6a 63 6c 61 73 73 20 23 3a 6a 6e 65 77 20 23 | ...............#:jclass.#:jnew.# |
| 1e6ea0 | 3a 6a 61 76 61 2d 6f 62 6a 65 63 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | :java-object..................;; |
| 1e6ec0 | 20 62 65 20 63 6f 6e 73 65 72 76 61 74 69 76 65 20 61 6e 64 20 61 64 64 20 61 6e 79 20 69 6d 70 | .be.conservative.and.add.any.imp |
| 1e6ee0 | 6f 72 74 20 6a 61 76 61 20 66 75 6e 63 74 69 6f 6e 73 20 6f 6e 6c 79 20 66 6f 72 20 6c 61 74 65 | ort.java.functions.only.for.late |
| 1e6f00 | 72 20 6c 69 73 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 | r.lisps.................#+#.(swa |
| 1e6f20 | 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 6a 66 69 65 6c 64 2d 6e | nk/backend:with-symbol.'jfield-n |
| 1e6f40 | 61 6d 65 20 27 6a 61 76 61 29 20 23 3a 6a 66 69 65 6c 64 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 | ame.'java).#:jfield-name........ |
| 1e6f60 | 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 | .........#+#.(swank/backend:with |
| 1e6f80 | 2d 73 79 6d 62 6f 6c 20 27 6a 69 6e 73 74 61 6e 63 65 2d 6f 66 2d 70 20 27 6a 61 76 61 29 20 23 | -symbol.'jinstance-of-p.'java).# |
| 1e6fa0 | 3a 6a 69 6e 73 74 61 6e 63 65 2d 6f 66 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :jinstance-of-p................. |
| 1e6fc0 | 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 | #+#.(swank/backend:with-symbol.' |
| 1e6fe0 | 6a 63 6c 61 73 73 2d 73 75 70 65 72 63 6c 61 73 73 20 27 6a 61 76 61 29 20 23 3a 6a 63 6c 61 73 | jclass-superclass.'java).#:jclas |
| 1e7000 | 73 2d 73 75 70 65 72 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 | s-superclass.................#+# |
| 1e7020 | 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 6a 63 6c | .(swank/backend:with-symbol.'jcl |
| 1e7040 | 61 73 73 2d 69 6e 74 65 72 66 61 63 65 73 20 27 6a 61 76 61 29 20 23 3a 6a 63 6c 61 73 73 2d 69 | ass-interfaces.'java).#:jclass-i |
| 1e7060 | 6e 74 65 72 66 61 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 | nterfaces.................#+#.(s |
| 1e7080 | 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 6a 61 76 61 2d 65 | wank/backend:with-symbol.'java-e |
| 1e70a0 | 78 63 65 70 74 69 6f 6e 20 27 6a 61 76 61 29 20 23 3a 6a 61 76 61 2d 65 78 63 65 70 74 69 6f 6e | xception.'java).#:java-exception |
| 1e70c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b | .................#+#.(swank/back |
| 1e70e0 | 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 6a 6f 62 6a 65 63 74 2d 63 6c 61 73 73 20 27 | end:with-symbol.'jobject-class.' |
| 1e7100 | 6a 61 76 61 29 20 23 3a 6a 6f 62 6a 65 63 74 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 | java).#:jobject-class........... |
| 1e7120 | 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 | ......#+#.(swank/backend:with-sy |
| 1e7140 | 6d 62 6f 6c 20 27 6a 63 6c 61 73 73 2d 6e 61 6d 65 20 27 6a 61 76 61 29 20 23 3a 6a 63 6c 61 73 | mbol.'jclass-name.'java).#:jclas |
| 1e7160 | 73 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e | s-name.................#+#.(swan |
| 1e7180 | 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 6a 61 76 61 2d 6f 62 6a 65 | k/backend:with-symbol.'java-obje |
| 1e71a0 | 63 74 2d 70 20 27 6a 61 76 61 29 20 23 3a 6a 61 76 61 2d 6f 62 6a 65 63 74 2d 70 29 29 0a 0a 28 | ct-p.'java).#:java-object-p))..( |
| 1e71c0 | 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 61 62 63 6c 29 0a 0a 28 65 76 61 6c 2d 77 68 | in-package.swank/abcl)..(eval-wh |
| 1e71e0 | 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c | en.(:compile-toplevel.:load-topl |
| 1e7200 | 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 3a 63 6f 6c 6c 65 | evel.:execute)...(require.:colle |
| 1e7220 | 63 74 29 20 3b 6a 75 73 74 20 73 6f 20 74 68 61 74 20 69 74 20 64 6f 65 73 6e 27 74 20 73 70 6f | ct).;just.so.that.it.doesn't.spo |
| 1e7240 | 69 6c 20 74 68 65 20 66 6c 79 69 6e 67 20 6c 65 74 74 65 72 73 0a 20 20 28 72 65 71 75 69 72 65 | il.the.flying.letters...(require |
| 1e7260 | 20 3a 70 70 72 69 6e 74 29 0a 20 20 28 72 65 71 75 69 72 65 20 3a 67 72 61 79 2d 73 74 72 65 61 | .:pprint)...(require.:gray-strea |
| 1e7280 | 6d 73 29 0a 20 20 28 72 65 71 75 69 72 65 20 3a 61 62 63 6c 2d 63 6f 6e 74 72 69 62 29 0a 0a 20 | ms)...(require.:abcl-contrib)... |
| 1e72a0 | 20 3b 3b 3b 20 50 72 6f 62 65 20 61 6e 64 20 6c 6f 61 64 20 41 42 43 4c 2d 49 4e 54 52 4f 53 50 | .;;;.Probe.and.load.ABCL-INTROSP |
| 1e72c0 | 45 43 54 20 70 75 73 68 69 6e 67 20 74 6f 20 2a 46 45 41 54 55 52 45 53 2a 20 6f 6e 20 73 75 63 | ECT.pushing.to.*FEATURES*.on.suc |
| 1e72e0 | 63 65 73 73 0a 20 20 3b 3b 3b 20 61 6c 6c 6f 77 69 6e 67 20 75 73 20 74 6f 20 63 6f 6e 64 69 74 | cess...;;;.allowing.us.to.condit |
| 1e7300 | 69 6f 6e 61 6c 69 7a 65 20 75 73 61 67 65 20 76 69 61 20 60 23 2b 61 62 63 6c 2d 69 6e 74 72 6f | ionalize.usage.via.`#+abcl-intro |
| 1e7320 | 73 70 65 63 74 60 20 66 6f 72 6d 73 2e 0a 20 20 28 77 68 65 6e 20 28 69 67 6e 6f 72 65 2d 65 72 | spect`.forms....(when.(ignore-er |
| 1e7340 | 72 6f 72 73 20 28 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rors.(and....................... |
| 1e7360 | 20 20 28 66 62 6f 75 6e 64 70 20 27 28 73 65 74 66 20 73 79 73 3a 3a 66 75 6e 63 74 69 6f 6e 2d | ..(fboundp.'(setf.sys::function- |
| 1e7380 | 70 6c 69 73 74 29 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | plist))......................... |
| 1e73a0 | 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(progn......................... |
| 1e73c0 | 20 20 28 72 65 71 75 69 72 65 20 3a 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 29 0a 20 20 20 | ..(require.:abcl-introspect).... |
| 1e73e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 20 22 41 42 | .......................(find."AB |
| 1e7400 | 43 4c 2d 49 4e 54 52 4f 53 50 45 43 54 22 20 2a 6d 6f 64 75 6c 65 73 2a 20 3a 74 65 73 74 0a 20 | CL-INTROSPECT".*modules*.:test.. |
| 1e7420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | ...............................' |
| 1e7440 | 65 71 75 61 6c 29 29 29 29 0a 20 20 20 20 28 70 75 73 68 6e 65 77 20 3a 61 62 63 6c 2d 69 6e 74 | equal)))).....(pushnew.:abcl-int |
| 1e7460 | 72 6f 73 70 65 63 74 20 2a 66 65 61 74 75 72 65 73 2a 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | rospect.*features*)))..(defimple |
| 1e7480 | 6d 65 6e 74 61 74 69 6f 6e 20 67 72 61 79 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 29 0a 20 | mentation.gray-package-name.().. |
| 1e74a0 | 20 22 47 52 41 59 2d 53 54 52 45 41 4d 53 22 29 0a 0a 3b 3b 3b 3b 20 61 62 63 6c 2d 31 2e 39 2e | ."GRAY-STREAMS")..;;;;.abcl-1.9. |
| 1e74c0 | 32 20 72 65 76 61 6d 70 65 64 20 47 72 61 79 20 53 74 72 65 61 6d 73 2c 20 73 6f 20 69 74 20 75 | 2.revamped.Gray.Streams,.so.it.u |
| 1e74e0 | 73 65 73 20 74 68 65 20 64 65 66 61 75 6c 74 0a 3b 3b 3b 3b 20 69 6d 70 6c 65 6d 65 6e 74 61 74 | ses.the.default.;;;;.implementat |
| 1e7500 | 69 6f 6e 20 6f 66 20 4d 41 4b 45 2d 7b 49 4e 50 55 54 2c 4f 55 54 50 55 54 7d 2d 53 54 52 45 41 | ion.of.MAKE-{INPUT,OUTPUT}-STREA |
| 1e7520 | 4d 2e 0a 0a 3b 3b 3b 3b 20 50 72 65 76 69 6f 75 73 20 41 42 43 4c 20 76 65 72 73 69 6f 6e 73 20 | M...;;;;.Previous.ABCL.versions. |
| 1e7540 | 75 73 65 20 74 68 65 20 73 70 65 63 69 61 6c 69 7a 65 64 20 4a 61 76 61 20 69 6d 70 6c 65 6d 65 | use.the.specialized.Java.impleme |
| 1e7560 | 6e 74 61 74 69 6f 6e 73 2c 0a 3b 3b 3b 3b 20 77 68 69 63 68 20 77 6f 6e 27 74 20 77 6f 72 6b 20 | ntations,.;;;;.which.won't.work. |
| 1e7580 | 77 69 74 68 20 61 6c 6c 20 53 4c 49 4d 45 20 63 6f 6e 74 72 69 62 73 2c 20 6e 6f 74 61 62 6c 79 | with.all.SLIME.contribs,.notably |
| 1e75a0 | 20 74 68 65 0a 3b 3b 3b 3b 20 3c 66 69 6c 65 3a 2e 2e 2f 63 6f 6e 74 72 69 62 2f 73 6c 69 6d 65 | .the.;;;;.<file:../contrib/slime |
| 1e75c0 | 2d 72 65 70 6c 2e 6c 69 73 70 3e 20 6f 6e 65 0a 23 2d 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 | -repl.lisp>.one.#-#.(swank/backe |
| 1e75e0 | 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 6a 61 76 61 2f 65 6c 65 6d 65 6e 74 2d 74 79 70 | nd:with-symbol.'java/element-typ |
| 1e7600 | 65 20 27 67 72 61 79 2d 73 74 72 65 61 6d 73 2f 6a 61 76 61 29 0a 28 70 72 6f 67 6e 0a 20 20 28 | e.'gray-streams/java).(progn...( |
| 1e7620 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 73 74 | defimplementation.make-output-st |
| 1e7640 | 72 65 61 6d 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 28 65 78 74 3a 6d 61 6b | ream.(write-string).....(ext:mak |
| 1e7660 | 65 2d 73 6c 69 6d 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 77 72 69 74 65 2d 73 74 72 69 | e-slime-output-stream.write-stri |
| 1e7680 | 6e 67 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d | ng))....(defimplementation.make- |
| 1e76a0 | 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 28 72 65 61 64 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 28 | input-stream.(read-string).....( |
| 1e76c0 | 65 78 74 3a 6d 61 6b 65 2d 73 6c 69 6d 65 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 72 65 61 64 | ext:make-slime-input-stream.read |
| 1e76e0 | 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -string......................... |
| 1e7700 | 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 79 6e 6f 6e 79 6d 2d 73 74 72 65 61 6d 20 27 2a | .........(make-synonym-stream.'* |
| 1e7720 | 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 29 29 29 0a 0a 3b 3b 3b 20 48 61 76 65 20 43 | standard-output*))))..;;;.Have.C |
| 1e7740 | 4c 3a 49 4e 53 50 45 43 54 20 75 73 65 20 53 4c 49 4d 45 0a 3b 3b 3b 0a 3b 3b 3b 20 53 69 6e 63 | L:INSPECT.use.SLIME.;;;.;;;.Sinc |
| 1e7760 | 65 20 53 77 61 6e 6b 20 6d 61 79 20 61 6c 73 6f 20 62 65 20 72 75 6e 20 69 6e 20 61 20 73 65 72 | e.Swank.may.also.be.run.in.a.ser |
| 1e7780 | 76 65 72 20 6e 6f 74 20 72 75 6e 6e 69 6e 67 20 75 6e 64 65 72 20 45 6d 61 63 73 0a 3b 3b 3b 20 | ver.not.running.under.Emacs.;;;. |
| 1e77a0 | 61 6e 64 20 70 6f 74 65 6e 74 69 61 6c 6c 79 20 77 69 74 68 20 6f 74 68 65 72 20 52 45 50 4c 73 | and.potentially.with.other.REPLs |
| 1e77c0 | 2c 20 77 65 20 65 78 70 6f 72 74 20 61 20 66 75 6e 63 74 69 6f 6e 61 6c 20 74 6f 67 67 6c 65 0a | ,.we.export.a.functional.toggle. |
| 1e77e0 | 3b 3b 3b 20 66 6f 72 20 74 68 65 20 75 73 65 72 20 74 6f 20 63 61 6c 6c 20 61 66 74 65 72 20 6c | ;;;.for.the.user.to.call.after.l |
| 1e7800 | 6f 61 64 69 6e 67 20 74 68 65 73 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 28 64 65 66 75 6e | oading.these.definitions..(defun |
| 1e7820 | 20 65 6e 61 62 6c 65 2d 63 6c 2d 69 6e 73 70 65 63 74 2d 69 6e 2d 65 6d 61 63 73 20 28 29 0a 20 | .enable-cl-inspect-in-emacs.().. |
| 1e7840 | 20 28 73 77 61 6e 6b 3a 3a 77 72 61 70 20 27 63 6c 3a 69 6e 73 70 65 63 74 20 3a 75 73 65 2d 73 | .(swank::wrap.'cl:inspect.:use-s |
| 1e7860 | 6c 69 6d 65 20 3a 72 65 70 6c 61 63 65 20 27 73 77 61 6e 6b 3a 3a 69 6e 73 70 65 63 74 2d 69 6e | lime.:replace.'swank::inspect-in |
| 1e7880 | 2d 65 6d 61 63 73 29 29 0a 0a 3b 3b 20 3f 3f 3f 20 72 65 70 61 69 72 20 62 61 72 65 20 70 72 69 | -emacs))..;;.???.repair.bare.pri |
| 1e78a0 | 6e 74 20 6f 62 6a 65 63 74 20 73 6f 20 69 6e 73 70 65 63 74 6f 72 20 74 69 74 6c 65 73 20 73 68 | nt.object.so.inspector.titles.sh |
| 1e78c0 | 6f 77 20 6a 61 76 61 20 63 6c 61 73 73 0a 28 64 65 66 75 6e 20 25 70 72 69 6e 74 2d 75 6e 72 65 | ow.java.class.(defun.%print-unre |
| 1e78e0 | 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 2d 6a 61 76 61 2d 74 6f 6f 20 28 6f 62 6a 65 63 74 20 73 | adable-object-java-too.(object.s |
| 1e7900 | 74 72 65 61 6d 20 74 79 70 65 20 69 64 65 6e 74 69 74 79 20 62 6f 64 79 29 0a 20 20 28 73 65 74 | tream.type.identity.body)...(set |
| 1e7920 | 66 20 73 74 72 65 61 6d 20 28 73 79 73 3a 3a 6f 75 74 2d 73 79 6e 6f 6e 79 6d 2d 6f 66 20 73 74 | f.stream.(sys::out-synonym-of.st |
| 1e7940 | 72 65 61 6d 29 29 0a 20 20 28 77 68 65 6e 20 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 0a | ream))...(when.*print-readably*. |
| 1e7960 | 20 20 20 20 28 65 72 72 6f 72 20 27 70 72 69 6e 74 2d 6e 6f 74 2d 72 65 61 64 61 62 6c 65 20 3a | ....(error.'print-not-readable.: |
| 1e7980 | 6f 62 6a 65 63 74 20 6f 62 6a 65 63 74 29 29 0a 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d | object.object))...(format.stream |
| 1e79a0 | 20 22 23 3c 22 29 0a 20 20 28 77 68 65 6e 20 74 79 70 65 0a 20 20 20 20 28 69 66 20 28 6a 61 76 | ."#<")...(when.type.....(if.(jav |
| 1e79c0 | 61 2d 6f 62 6a 65 63 74 2d 70 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 53 70 | a-object-p.object).........;;.Sp |
| 1e79e0 | 65 63 69 61 6c 20 68 61 6e 64 6c 69 6e 67 20 66 6f 72 20 6a 61 76 61 20 6f 62 6a 65 63 74 73 0a | ecial.handling.for.java.objects. |
| 1e7a00 | 20 20 20 20 20 20 20 20 28 69 66 20 28 6a 69 6e 73 74 61 6e 63 65 2d 6f 66 2d 70 20 6f 62 6a 65 | ........(if.(jinstance-of-p.obje |
| 1e7a20 | 63 74 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 43 6c 61 73 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 | ct."java.lang.Class")........... |
| 1e7a40 | 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 | ..(progn...............(write-st |
| 1e7a60 | 72 69 6e 67 20 22 6a 63 6c 61 73 73 20 22 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 | ring."jclass.".stream).......... |
| 1e7a80 | 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 61 22 20 28 6a 63 6c 61 73 73 | .....(format.stream."~a".(jclass |
| 1e7aa0 | 2d 6e 61 6d 65 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 | -name.object))).............(for |
| 1e7ac0 | 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 61 22 20 28 6a 63 6c 61 73 73 2d 6e 61 6d 65 20 28 6a 6f | mat.stream."~a".(jclass-name.(jo |
| 1e7ae0 | 62 6a 65 63 74 2d 63 6c 61 73 73 20 6f 62 6a 65 63 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 3b | bject-class.object)))).........; |
| 1e7b00 | 3b 20 75 73 75 61 6c 20 68 61 6e 64 6c 69 6e 67 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | ;.usual.handling.........(format |
| 1e7b20 | 20 73 74 72 65 61 6d 20 22 7e 53 22 20 28 74 79 70 65 2d 6f 66 20 6f 62 6a 65 63 74 29 29 29 0a | .stream."~S".(type-of.object))). |
| 1e7b40 | 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 20 22 29 29 0a 20 20 28 77 68 65 6e | ....(format.stream."."))...(when |
| 1e7b60 | 20 62 6f 64 79 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 62 6f 64 79 29 29 0a 20 20 28 77 68 65 | .body.....(funcall.body))...(whe |
| 1e7b80 | 6e 20 69 64 65 6e 74 69 74 79 0a 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 62 6f 64 79 20 28 6e | n.identity.....(when.(or.body.(n |
| 1e7ba0 | 6f 74 20 74 79 70 65 29 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 | ot.type)).......(format.stream." |
| 1e7bc0 | 20 22 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7b 7e 58 7d 22 20 28 | .")).....(format.stream."{~X}".( |
| 1e7be0 | 73 79 73 3a 3a 69 64 65 6e 74 69 74 79 2d 68 61 73 68 2d 63 6f 64 65 20 6f 62 6a 65 63 74 29 29 | sys::identity-hash-code.object)) |
| 1e7c00 | 29 0a 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 3e 22 29 0a 20 20 6e 69 6c 29 0a 0a | )...(format.stream.">")...nil).. |
| 1e7c20 | 3b 3b 3b 20 54 4f 44 4f 3a 20 6d 6f 76 65 20 73 75 63 68 20 69 6e 76 6f 63 61 74 69 6f 6e 73 20 | ;;;.TODO:.move.such.invocations. |
| 1e7c40 | 6f 75 74 20 6f 66 20 74 6f 70 6c 65 76 65 6c 3f 20 20 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a | out.of.toplevel?...(eval-when.(: |
| 1e7c60 | 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 67 65 74 20 27 73 | load-toplevel)...(unless.(get.'s |
| 1e7c80 | 79 73 3a 3a 25 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 20 27 73 77 | ys::%print-unreadable-object.'sw |
| 1e7ca0 | 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 3a 73 6c 69 6d 65 2d 77 72 61 70 29 20 0a 20 20 20 20 28 77 | ank/backend::slime-wrap)......(w |
| 1e7cc0 | 72 61 70 20 27 73 79 73 3a 3a 25 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 | rap.'sys::%print-unreadable-obje |
| 1e7ce0 | 63 74 20 3a 6d 6f 72 65 2d 69 6e 66 6f 72 6d 61 74 69 76 65 20 3a 72 65 70 6c 61 63 65 20 27 25 | ct.:more-informative.:replace.'% |
| 1e7d00 | 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 2d 6a 61 76 61 2d 74 6f 6f | print-unreadable-object-java-too |
| 1e7d20 | 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 | )))..(defimplementation.call-wit |
| 1e7d40 | 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 | h-compilation-hooks.(function).. |
| 1e7d60 | 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 4f 50 | .(funcall.function))....;;;;.MOP |
| 1e7d80 | 0a 0a 3b 3b 64 75 6d 6d 69 65 73 20 61 6e 64 20 64 65 66 69 6e 69 74 69 6f 6e 0a 0a 28 64 65 66 | ..;;dummies.and.definition..(def |
| 1e7da0 | 63 6c 61 73 73 20 73 74 61 6e 64 61 72 64 2d 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 | class.standard-slot-definition.( |
| 1e7dc0 | 29 28 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 | )())..(defun.slot-definition-doc |
| 1e7de0 | 75 6d 65 6e 74 61 74 69 6f 6e 20 28 73 6c 6f 74 29 0a 20 20 23 2d 61 62 63 6c 2d 69 6e 74 72 6f | umentation.(slot)...#-abcl-intro |
| 1e7e00 | 73 70 65 63 74 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 73 6c 6f 74 29 29 0a | spect...(declare.(ignore.slot)). |
| 1e7e20 | 20 20 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 28 64 6f 63 75 6d 65 6e 74 61 | ..#+abcl-introspect...(documenta |
| 1e7e40 | 74 69 6f 6e 20 73 6c 6f 74 20 27 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 6f 74 2d 64 65 66 69 | tion.slot.'t))..(defun.slot-defi |
| 1e7e60 | 6e 69 74 69 6f 6e 2d 74 79 70 65 20 28 73 6c 6f 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 | nition-type.(slot)...(declare.(i |
| 1e7e80 | 67 6e 6f 72 65 20 73 6c 6f 74 29 29 0a 20 20 74 29 0a 0a 28 64 65 66 75 6e 20 63 6c 61 73 73 2d | gnore.slot))...t)..(defun.class- |
| 1e7ea0 | 70 72 6f 74 6f 74 79 70 65 20 28 63 6c 61 73 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 | prototype.(class)...(declare.(ig |
| 1e7ec0 | 6e 6f 72 65 20 63 6c 61 73 73 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 67 65 6e 65 | nore.class))...nil)..(defun.gene |
| 1e7ee0 | 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 28 67 66 29 0a 20 | ric-function-declarations.(gf).. |
| 1e7f00 | 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 67 66 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 | .(declare.(ignore.gf))...nil)..( |
| 1e7f20 | 64 65 66 75 6e 20 73 70 65 63 69 61 6c 69 7a 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 | defun.specializer-direct-methods |
| 1e7f40 | 20 28 73 70 65 63 29 0a 20 20 28 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 6d 65 74 68 | .(spec)...(mop:class-direct-meth |
| 1e7f60 | 6f 64 73 20 73 70 65 63 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 | ods.spec))..(defun.slot-definiti |
| 1e7f80 | 6f 6e 2d 6e 61 6d 65 20 28 73 6c 6f 74 29 0a 20 20 28 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e | on-name.(slot)...(mop:slot-defin |
| 1e7fa0 | 69 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 61 73 73 2d | ition-name.slot))..(defun.class- |
| 1e7fc0 | 73 6c 6f 74 73 20 28 63 6c 61 73 73 29 0a 20 20 28 6d 6f 70 3a 63 6c 61 73 73 2d 73 6c 6f 74 73 | slots.(class)...(mop:class-slots |
| 1e7fe0 | 20 63 6c 61 73 73 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 74 68 6f 64 2d 67 65 6e 65 72 69 63 2d | .class))..(defun.method-generic- |
| 1e8000 | 66 75 6e 63 74 69 6f 6e 20 28 6d 65 74 68 6f 64 29 0a 20 20 28 6d 6f 70 3a 6d 65 74 68 6f 64 2d | function.(method)...(mop:method- |
| 1e8020 | 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 0a 0a 28 64 65 66 75 | generic-function.method))..(defu |
| 1e8040 | 6e 20 6d 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 20 28 6d 65 74 68 6f 64 29 0a 20 20 28 6d 6f | n.method-function.(method)...(mo |
| 1e8060 | 70 3a 6d 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 0a 0a 28 64 65 66 | p:method-function.method))..(def |
| 1e8080 | 75 6e 20 73 6c 6f 74 2d 62 6f 75 6e 64 70 2d 75 73 69 6e 67 2d 63 6c 61 73 73 20 28 63 6c 61 73 | un.slot-boundp-using-class.(clas |
| 1e80a0 | 73 20 6f 62 6a 65 63 74 20 73 6c 6f 74 64 65 66 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 | s.object.slotdef)...(declare.(ig |
| 1e80c0 | 6e 6f 72 65 20 63 6c 61 73 73 29 29 0a 20 20 28 73 79 73 74 65 6d 3a 3a 73 6c 6f 74 2d 62 6f 75 | nore.class))...(system::slot-bou |
| 1e80e0 | 6e 64 70 20 6f 62 6a 65 63 74 20 28 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 | ndp.object.(slot-definition-name |
| 1e8100 | 20 73 6c 6f 74 64 65 66 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 6f 74 2d 76 61 6c 75 65 2d 75 | .slotdef)))..(defun.slot-value-u |
| 1e8120 | 73 69 6e 67 2d 63 6c 61 73 73 20 28 63 6c 61 73 73 20 6f 62 6a 65 63 74 20 73 6c 6f 74 64 65 66 | sing-class.(class.object.slotdef |
| 1e8140 | 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 6c 61 73 73 29 29 0a 20 20 28 | )...(declare.(ignore.class))...( |
| 1e8160 | 73 79 73 74 65 6d 3a 3a 73 6c 6f 74 2d 76 61 6c 75 65 20 6f 62 6a 65 63 74 20 28 73 6c 6f 74 2d | system::slot-value.object.(slot- |
| 1e8180 | 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 64 65 66 29 29 29 0a 0a 28 64 65 66 | definition-name.slotdef)))..(def |
| 1e81a0 | 75 6e 20 28 73 65 74 66 20 73 6c 6f 74 2d 76 61 6c 75 65 2d 75 73 69 6e 67 2d 63 6c 61 73 73 29 | un.(setf.slot-value-using-class) |
| 1e81c0 | 20 28 6e 65 77 20 63 6c 61 73 73 20 6f 62 6a 65 63 74 20 73 6c 6f 74 64 65 66 20 29 0a 20 20 28 | .(new.class.object.slotdef.)...( |
| 1e81e0 | 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 6c 61 73 73 29 29 0a 20 20 28 6d 6f 70 3a 3a | declare.(ignore.class))...(mop:: |
| 1e8200 | 25 73 65 74 2d 73 6c 6f 74 2d 76 61 6c 75 65 20 6f 62 6a 65 63 74 20 28 73 6c 6f 74 2d 64 65 66 | %set-slot-value.object.(slot-def |
| 1e8220 | 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 64 65 66 29 20 6e 65 77 29 29 0a 0a 28 69 6d | inition-name.slotdef).new))..(im |
| 1e8240 | 70 6f 72 74 2d 74 6f 2d 73 77 61 6e 6b 2d 6d 6f 70 0a 20 27 28 20 3b 3b 20 63 6c 61 73 73 65 73 | port-to-swank-mop..'(.;;.classes |
| 1e8260 | 0a 20 20 20 63 6c 3a 73 74 61 6e 64 61 72 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e | ....cl:standard-generic-function |
| 1e8280 | 0a 20 20 20 73 74 61 6e 64 61 72 64 2d 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 3b 3b 64 | ....standard-slot-definition.;;d |
| 1e82a0 | 75 6d 6d 79 0a 20 20 20 63 6c 3a 6d 65 74 68 6f 64 0a 20 20 20 63 6c 3a 73 74 61 6e 64 61 72 64 | ummy....cl:method....cl:standard |
| 1e82c0 | 2d 63 6c 61 73 73 0a 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 | -class....#+#.(swank/backend:wit |
| 1e82e0 | 68 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 27 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 | h-symbol..........'compute-appli |
| 1e8300 | 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 75 73 69 6e 67 2d 63 6c 61 73 73 65 73 20 27 6d 6f 70 | cable-methods-using-classes.'mop |
| 1e8320 | 29 0a 20 20 20 6d 6f 70 3a 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 63 61 62 6c 65 2d 6d 65 74 68 | )....mop:compute-applicable-meth |
| 1e8340 | 6f 64 73 2d 75 73 69 6e 67 2d 63 6c 61 73 73 65 73 0a 20 20 20 3b 3b 20 73 74 61 6e 64 61 72 64 | ods-using-classes....;;.standard |
| 1e8360 | 2d 63 6c 61 73 73 20 72 65 61 64 65 72 73 0a 20 20 20 6d 6f 70 3a 63 6c 61 73 73 2d 64 65 66 61 | -class.readers....mop:class-defa |
| 1e8380 | 75 6c 74 2d 69 6e 69 74 61 72 67 73 0a 20 20 20 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 | ult-initargs....mop:class-direct |
| 1e83a0 | 2d 64 65 66 61 75 6c 74 2d 69 6e 69 74 61 72 67 73 0a 20 20 20 6d 6f 70 3a 63 6c 61 73 73 2d 64 | -default-initargs....mop:class-d |
| 1e83c0 | 69 72 65 63 74 2d 73 6c 6f 74 73 0a 20 20 20 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d | irect-slots....mop:class-direct- |
| 1e83e0 | 73 75 62 63 6c 61 73 73 65 73 0a 20 20 20 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 | subclasses....mop:class-direct-s |
| 1e8400 | 75 70 65 72 63 6c 61 73 73 65 73 0a 20 20 20 6d 6f 70 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a | uperclasses....mop:eql-specializ |
| 1e8420 | 65 72 0a 20 20 20 6d 6f 70 3a 63 6c 61 73 73 2d 66 69 6e 61 6c 69 7a 65 64 2d 70 0a 20 20 20 6d | er....mop:class-finalized-p....m |
| 1e8440 | 6f 70 3a 66 69 6e 61 6c 69 7a 65 2d 69 6e 68 65 72 69 74 61 6e 63 65 0a 20 20 20 63 6c 3a 63 6c | op:finalize-inheritance....cl:cl |
| 1e8460 | 61 73 73 2d 6e 61 6d 65 0a 20 20 20 6d 6f 70 3a 63 6c 61 73 73 2d 70 72 65 63 65 64 65 6e 63 65 | ass-name....mop:class-precedence |
| 1e8480 | 2d 6c 69 73 74 0a 20 20 20 63 6c 61 73 73 2d 70 72 6f 74 6f 74 79 70 65 20 3b 3b 64 75 6d 6d 79 | -list....class-prototype.;;dummy |
| 1e84a0 | 0a 20 20 20 63 6c 61 73 73 2d 73 6c 6f 74 73 0a 20 20 20 73 70 65 63 69 61 6c 69 7a 65 72 2d 64 | ....class-slots....specializer-d |
| 1e84c0 | 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 0a 20 20 20 3b 3b 20 65 71 6c 2d 73 70 65 63 69 61 6c 69 | irect-methods....;;.eql-speciali |
| 1e84e0 | 7a 65 72 20 61 63 63 65 73 73 6f 72 73 0a 20 20 20 6d 6f 70 3a 3a 65 71 6c 2d 73 70 65 63 69 61 | zer.accessors....mop::eql-specia |
| 1e8500 | 6c 69 7a 65 72 2d 6f 62 6a 65 63 74 0a 20 20 20 3b 3b 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 | lizer-object....;;.generic.funct |
| 1e8520 | 69 6f 6e 20 72 65 61 64 65 72 73 0a 20 20 20 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 | ion.readers....mop:generic-funct |
| 1e8540 | 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 2d 70 72 65 63 65 64 65 6e 63 65 2d 6f 72 64 65 72 0a 20 20 | ion-argument-precedence-order... |
| 1e8560 | 20 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 3b | .generic-function-declarations.; |
| 1e8580 | 3b 64 75 6d 6d 79 0a 20 20 20 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6c | ;dummy....mop:generic-function-l |
| 1e85a0 | 61 6d 62 64 61 2d 6c 69 73 74 0a 20 20 20 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 | ambda-list....mop:generic-functi |
| 1e85c0 | 6f 6e 2d 6d 65 74 68 6f 64 73 0a 20 20 20 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 | on-methods....mop:generic-functi |
| 1e85e0 | 6f 6e 2d 6d 65 74 68 6f 64 2d 63 6c 61 73 73 0a 20 20 20 6d 6f 70 3a 67 65 6e 65 72 69 63 2d 66 | on-method-class....mop:generic-f |
| 1e8600 | 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 0a 20 20 20 6d 6f | unction-method-combination....mo |
| 1e8620 | 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 0a 20 20 20 3b 3b 20 6d 65 | p:generic-function-name....;;.me |
| 1e8640 | 74 68 6f 64 20 72 65 61 64 65 72 73 0a 20 20 20 6d 65 74 68 6f 64 2d 67 65 6e 65 72 69 63 2d 66 | thod.readers....method-generic-f |
| 1e8660 | 75 6e 63 74 69 6f 6e 0a 20 20 20 6d 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 6d 6f | unction....method-function....mo |
| 1e8680 | 70 3a 6d 65 74 68 6f 64 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 0a 20 20 20 6d 6f 70 3a 6d 65 74 68 | p:method-lambda-list....mop:meth |
| 1e86a0 | 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 0a 20 20 20 6d 6f 70 3a 6d 65 74 68 6f 64 2d 71 75 | od-specializers....mop:method-qu |
| 1e86c0 | 61 6c 69 66 69 65 72 73 0a 20 20 20 3b 3b 20 73 6c 6f 74 20 72 65 61 64 65 72 73 0a 20 20 20 6d | alifiers....;;.slot.readers....m |
| 1e86e0 | 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 61 6c 6c 6f 63 61 74 69 6f 6e 0a 20 20 | op:slot-definition-allocation... |
| 1e8700 | 20 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 3b | .slot-definition-documentation.; |
| 1e8720 | 3b 64 75 6d 6d 79 0a 20 20 20 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e | ;dummy....mop:slot-definition-in |
| 1e8740 | 69 74 61 72 67 73 0a 20 20 20 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e | itargs....mop:slot-definition-in |
| 1e8760 | 69 74 66 6f 72 6d 0a 20 20 20 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e | itform....mop:slot-definition-in |
| 1e8780 | 69 74 66 75 6e 63 74 69 6f 6e 0a 20 20 20 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 | itfunction....slot-definition-na |
| 1e87a0 | 6d 65 0a 20 20 20 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 74 79 70 65 20 3b 3b 64 75 6d | me....slot-definition-type.;;dum |
| 1e87c0 | 6d 79 0a 20 20 20 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 72 65 61 64 65 72 | my....mop:slot-definition-reader |
| 1e87e0 | 73 0a 20 20 20 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 77 72 69 74 65 72 73 | s....mop:slot-definition-writers |
| 1e8800 | 0a 20 20 20 73 6c 6f 74 2d 62 6f 75 6e 64 70 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 73 | ....slot-boundp-using-class....s |
| 1e8820 | 6c 6f 74 2d 76 61 6c 75 65 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 73 65 74 2d 73 6c 6f | lot-value-using-class....set-slo |
| 1e8840 | 74 2d 76 61 6c 75 65 2d 75 73 69 6e 67 2d 63 6c 61 73 73 0a 20 20 20 23 2b 23 2e 28 73 77 61 6e | t-value-using-class....#+#.(swan |
| 1e8860 | 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 27 | k/backend:with-symbol..........' |
| 1e8880 | 73 6c 6f 74 2d 6d 61 6b 75 6e 62 6f 75 6e 64 2d 75 73 69 6e 67 2d 63 6c 61 73 73 20 27 6d 6f 70 | slot-makunbound-using-class.'mop |
| 1e88a0 | 29 0a 20 20 20 6d 6f 70 3a 73 6c 6f 74 2d 6d 61 6b 75 6e 62 6f 75 6e 64 2d 75 73 69 6e 67 2d 63 | )....mop:slot-makunbound-using-c |
| 1e88c0 | 6c 61 73 73 29 29 0a 0a 3b 3b 3b 3b 20 54 43 50 20 53 65 72 76 65 72 0a 0a 28 64 65 66 69 6d 70 | lass))..;;;;.TCP.Server..(defimp |
| 1e88e0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 65 66 65 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 63 61 74 | lementation.preferred-communicat |
| 1e8900 | 69 6f 6e 2d 73 74 79 6c 65 20 28 29 0a 20 20 3a 73 70 61 77 6e 29 0a 0a 28 64 65 66 69 6d 70 6c | ion-style.()...:spawn)..(defimpl |
| 1e8920 | 65 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 28 68 6f 73 74 20 70 | ementation.create-socket.(host.p |
| 1e8940 | 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 65 78 74 3a 6d 61 6b 65 2d 73 65 | ort.&key.backlog)...(ext:make-se |
| 1e8960 | 72 76 65 72 2d 73 6f 63 6b 65 74 20 70 6f 72 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | rver-socket.port))..(defimplemen |
| 1e8980 | 74 61 74 69 6f 6e 20 6c 6f 63 61 6c 2d 70 6f 72 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 6a 63 | tation.local-port.(socket)...(jc |
| 1e89a0 | 61 6c 6c 20 28 6a 6d 65 74 68 6f 64 20 22 6a 61 76 61 2e 6e 65 74 2e 53 65 72 76 65 72 53 6f 63 | all.(jmethod."java.net.ServerSoc |
| 1e89c0 | 6b 65 74 22 20 22 67 65 74 4c 6f 63 61 6c 50 6f 72 74 22 29 20 73 6f 63 6b 65 74 29 29 0a 0a 28 | ket"."getLocalPort").socket))..( |
| 1e89e0 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 28 | defimplementation.close-socket.( |
| 1e8a00 | 73 6f 63 6b 65 74 29 0a 20 20 28 65 78 74 3a 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 2d 63 6c 6f | socket)...(ext:server-socket-clo |
| 1e8a20 | 73 65 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | se.socket))..(defimplementation. |
| 1e8a40 | 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6f 63 6b 65 74 0a 20 20 20 20 20 20 | accept-connection.(socket....... |
| 1e8a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1e8a80 | 26 6b 65 79 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 62 75 66 66 65 72 69 6e 67 20 74 | &key.external-format.buffering.t |
| 1e8aa0 | 69 6d 65 6f 75 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 62 75 66 66 65 | imeout)...(declare.(ignore.buffe |
| 1e8ac0 | 72 69 6e 67 20 74 69 6d 65 6f 75 74 29 29 0a 20 20 28 65 78 74 3a 67 65 74 2d 73 6f 63 6b 65 74 | ring.timeout))...(ext:get-socket |
| 1e8ae0 | 2d 73 74 72 65 61 6d 20 28 65 78 74 3a 73 6f 63 6b 65 74 2d 61 63 63 65 70 74 20 73 6f 63 6b 65 | -stream.(ext:socket-accept.socke |
| 1e8b00 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 | t)..........................:ele |
| 1e8b20 | 6d 65 6e 74 2d 74 79 70 65 20 28 69 66 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 | ment-type.(if.external-format... |
| 1e8b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1e8b60 | 20 20 20 20 20 20 20 20 20 27 63 68 61 72 61 63 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .........'character............. |
| 1e8b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | ...............................' |
| 1e8ba0 | 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 38 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (unsigned-byte.8)).............. |
| 1e8bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 6f 72 | ............:external-format.(or |
| 1e8be0 | 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 3a 64 65 66 61 75 6c 74 29 29 29 0a 0a 3b 3b | .external-format.:default)))..;; |
| 1e8c00 | 3b 3b 20 55 54 46 38 0a 0a 3b 3b 20 66 61 73 74 65 72 20 70 6c 65 61 73 65 21 0a 28 64 65 66 69 | ;;.UTF8..;;.faster.please!.(defi |
| 1e8c20 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 2d 74 6f 2d 75 74 66 38 20 28 73 29 | mplementation.string-to-utf8.(s) |
| 1e8c40 | 0a 20 20 28 6a 62 79 74 65 73 2d 74 6f 2d 6f 63 74 65 74 73 0a 20 20 20 28 6a 61 76 61 3a 6a 63 | ...(jbytes-to-octets....(java:jc |
| 1e8c60 | 61 6c 6c 0a 20 20 20 20 28 6a 61 76 61 3a 6a 6d 65 74 68 6f 64 20 22 6a 61 76 61 2e 6c 61 6e 67 | all.....(java:jmethod."java.lang |
| 1e8c80 | 2e 53 74 72 69 6e 67 22 20 22 67 65 74 42 79 74 65 73 22 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 53 | .String"."getBytes"."java.lang.S |
| 1e8ca0 | 74 72 69 6e 67 22 29 0a 20 20 20 20 73 0a 20 20 20 20 22 55 54 46 38 22 29 29 29 0a 0a 28 64 65 | tring").....s....."UTF8")))..(de |
| 1e8cc0 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 74 66 38 2d 74 6f 2d 73 74 72 69 6e 67 20 28 | fimplementation.utf8-to-string.( |
| 1e8ce0 | 75 29 0a 20 20 28 6a 61 76 61 3a 6a 6e 65 77 0a 20 20 20 28 6a 61 76 61 3a 6a 63 6f 6e 73 74 72 | u)...(java:jnew....(java:jconstr |
| 1e8d00 | 75 63 74 6f 72 20 22 6f 72 67 2e 61 72 6d 65 64 62 65 61 72 2e 6c 69 73 70 2e 53 69 6d 70 6c 65 | uctor."org.armedbear.lisp.Simple |
| 1e8d20 | 53 74 72 69 6e 67 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6a | String"......................."j |
| 1e8d40 | 61 76 61 2e 6c 61 6e 67 2e 53 74 72 69 6e 67 22 29 0a 20 20 20 28 6a 61 76 61 3a 6a 6e 65 77 20 | ava.lang.String")....(java:jnew. |
| 1e8d60 | 28 6a 61 76 61 3a 6a 63 6f 6e 73 74 72 75 63 74 6f 72 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 | (java:jconstructor."java.lang.St |
| 1e8d80 | 72 69 6e 67 22 20 22 5b 42 22 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 72 69 6e 67 22 29 0a 20 | ring"."[B"."java.lang.String").. |
| 1e8da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 63 74 65 74 73 2d 74 6f 2d 6a 62 79 74 65 73 20 75 | .............(octets-to-jbytes.u |
| 1e8dc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 55 54 46 38 22 29 29 29 0a 0a 28 64 65 66 75 | )..............."UTF8")))..(defu |
| 1e8de0 | 6e 20 6f 63 74 65 74 73 2d 74 6f 2d 6a 62 79 74 65 73 20 28 6f 63 74 65 74 73 29 0a 20 20 28 64 | n.octets-to-jbytes.(octets)...(d |
| 1e8e00 | 65 63 6c 61 72 65 20 28 74 79 70 65 20 6f 63 74 65 74 73 20 28 73 69 6d 70 6c 65 2d 61 72 72 61 | eclare.(type.octets.(simple-arra |
| 1e8e20 | 79 20 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 38 29 20 28 2a 29 29 29 29 0a 20 20 28 6c 65 | y.(unsigned-byte.8).(*))))...(le |
| 1e8e40 | 74 2a 20 28 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 6f 63 74 65 74 73 29 29 0a 20 20 20 20 20 20 | t*.((len.(length.octets))....... |
| 1e8e60 | 20 20 20 28 62 79 74 65 73 20 28 6a 61 76 61 3a 6a 6e 65 77 2d 61 72 72 61 79 20 22 62 79 74 65 | ...(bytes.(java:jnew-array."byte |
| 1e8e80 | 22 20 6c 65 6e 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 62 79 74 65 20 61 63 72 6f | ".len))).....(loop.for.byte.acro |
| 1e8ea0 | 73 73 20 6f 63 74 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 | ss.octets...........for.i.from.0 |
| 1e8ec0 | 0a 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 6a 61 76 61 3a 6a 73 74 61 74 69 63 20 28 6a 61 76 | ...........do.(java:jstatic.(jav |
| 1e8ee0 | 61 3a 6a 6d 65 74 68 6f 64 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 72 65 66 6c 65 63 74 2e 41 72 72 | a:jmethod."java.lang.reflect.Arr |
| 1e8f00 | 61 79 22 20 20 22 73 65 74 42 79 74 65 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ay".."setByte".................. |
| 1e8f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6a 61 76 61 2e 6c 61 | ........................"java.la |
| 1e8f40 | 6e 67 2e 4f 62 6a 65 63 74 22 20 22 69 6e 74 22 20 22 62 79 74 65 22 29 0a 20 20 20 20 20 20 20 | ng.Object"."int"."byte")........ |
| 1e8f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 72 | ...................."java.lang.r |
| 1e8f80 | 65 66 6c 65 63 74 2e 41 72 72 61 79 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eflect.Array"................... |
| 1e8fa0 | 20 20 20 20 20 20 20 20 20 62 79 74 65 73 20 69 20 62 79 74 65 29 29 0a 20 20 20 20 62 79 74 65 | .........bytes.i.byte)).....byte |
| 1e8fc0 | 73 29 29 0a 0a 28 64 65 66 75 6e 20 6a 62 79 74 65 73 2d 74 6f 2d 6f 63 74 65 74 73 20 28 6a 62 | s))..(defun.jbytes-to-octets.(jb |
| 1e8fe0 | 79 74 65 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 6c 65 6e 20 28 6a 61 76 61 3a 6a 61 72 72 61 79 | ytes)...(let*.((len.(java:jarray |
| 1e9000 | 2d 6c 65 6e 67 74 68 20 6a 62 79 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 63 74 65 74 | -length.jbytes))..........(octet |
| 1e9020 | 73 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 6c 65 6e 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 | s.(make-array.len.:element-type. |
| 1e9040 | 27 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 38 29 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 | '(unsigned-byte.8)))).....(loop. |
| 1e9060 | 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 62 65 6c 6f 77 20 6c 65 6e 0a 20 20 20 20 20 20 20 20 20 | for.i.from.0.below.len.......... |
| 1e9080 | 20 66 6f 72 20 6a 62 79 74 65 20 3d 20 28 6a 61 76 61 3a 6a 61 72 72 61 79 2d 72 65 66 20 6a 62 | .for.jbyte.=.(java:jarray-ref.jb |
| 1e90a0 | 79 74 65 73 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 65 74 66 20 28 61 72 65 66 | ytes.i)...........do.(setf.(aref |
| 1e90c0 | 20 6f 63 74 65 74 73 20 69 29 20 6a 62 79 74 65 29 29 0a 20 20 20 20 6f 63 74 65 74 73 29 29 0a | .octets.i).jbyte)).....octets)). |
| 1e90e0 | 0a 3b 3b 3b 3b 20 45 78 74 65 72 6e 61 6c 20 66 6f 72 6d 61 74 73 0a 0a 28 64 65 66 76 61 72 20 | .;;;;.External.formats..(defvar. |
| 1e9100 | 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 | *external-format-to-coding-syste |
| 1e9120 | 6d 2a 0a 20 20 27 28 28 3a 69 73 6f 2d 38 38 35 39 2d 31 20 22 6c 61 74 69 6e 2d 31 22 20 22 69 | m*...'((:iso-8859-1."latin-1"."i |
| 1e9140 | 73 6f 2d 6c 61 74 69 6e 2d 31 22 20 22 69 73 6f 2d 38 38 35 39 2d 31 22 29 0a 20 20 20 20 28 28 | so-latin-1"."iso-8859-1").....(( |
| 1e9160 | 3a 69 73 6f 2d 38 38 35 39 2d 31 20 3a 65 6f 6c 2d 73 74 79 6c 65 20 3a 6c 66 29 0a 20 20 20 20 | :iso-8859-1.:eol-style.:lf)..... |
| 1e9180 | 20 22 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 22 69 73 6f 2d 6c 61 74 69 6e 2d 31 2d 75 6e 69 | ."latin-1-unix"."iso-latin-1-uni |
| 1e91a0 | 78 22 20 22 69 73 6f 2d 38 38 35 39 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a 75 74 66 2d | x"."iso-8859-1-unix").....(:utf- |
| 1e91c0 | 38 20 22 75 74 66 2d 38 22 29 0a 20 20 20 20 28 28 3a 75 74 66 2d 38 20 3a 65 6f 6c 2d 73 74 79 | 8."utf-8").....((:utf-8.:eol-sty |
| 1e91e0 | 6c 65 20 3a 6c 66 29 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a 65 75 63 2d | le.:lf)."utf-8-unix").....(:euc- |
| 1e9200 | 6a 70 20 22 65 75 63 2d 6a 70 22 29 0a 20 20 20 20 28 28 3a 65 75 63 2d 6a 70 20 3a 65 6f 6c 2d | jp."euc-jp").....((:euc-jp.:eol- |
| 1e9220 | 73 74 79 6c 65 20 3a 6c 66 29 20 22 65 75 63 2d 6a 70 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a | style.:lf)."euc-jp-unix").....(: |
| 1e9240 | 75 73 2d 61 73 63 69 69 20 22 75 73 2d 61 73 63 69 69 22 29 0a 20 20 20 20 28 28 3a 75 73 2d 61 | us-ascii."us-ascii").....((:us-a |
| 1e9260 | 73 63 69 69 20 3a 65 6f 6c 2d 73 74 79 6c 65 20 3a 6c 66 29 20 22 75 73 2d 61 73 63 69 69 2d 75 | scii.:eol-style.:lf)."us-ascii-u |
| 1e9280 | 6e 69 78 22 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 | nix")))..(defimplementation.find |
| 1e92a0 | 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 | -external-format.(coding-system) |
| 1e92c0 | 0a 20 20 28 63 61 72 20 28 72 61 73 73 6f 63 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 | ...(car.(rassoc-if.(lambda.(x).. |
| 1e92e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 63 6f 64 69 6e | ...................(member.codin |
| 1e9300 | 67 2d 73 79 73 74 65 6d 20 78 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 | g-system.x.:test.#'equal))...... |
| 1e9320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f | .............*external-format-to |
| 1e9340 | 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 29 29 29 0a 0a 3b 3b 3b 3b 20 55 6e 69 78 20 73 69 | -coding-system*)))..;;;;.Unix.si |
| 1e9360 | 67 6e 61 6c 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65 74 70 69 64 | gnals..(defimplementation.getpid |
| 1e9380 | 20 28 29 0a 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 65 78 74 3a 3a 67 65 74 2d 70 69 64 | .()...(if.(fboundp.'ext::get-pid |
| 1e93a0 | 29 0a 20 20 20 20 20 20 28 65 78 74 3a 3a 67 65 74 2d 70 69 64 29 20 20 20 20 20 20 20 3b 3b 3b | ).......(ext::get-pid).......;;; |
| 1e93c0 | 20 49 6e 74 72 6f 64 75 63 65 64 20 77 69 74 68 20 61 62 63 6c 2d 31 2e 35 2e 30 0a 20 20 20 20 | .Introduced.with.abcl-1.5.0..... |
| 1e93e0 | 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 | ..(handler-case...........(let*. |
| 1e9400 | 28 28 72 75 6e 74 69 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 61 | ((runtime....................(ja |
| 1e9420 | 76 61 3a 6a 73 74 61 74 69 63 20 22 67 65 74 52 75 6e 74 69 6d 65 22 20 22 6a 61 76 61 2e 6c 61 | va:jstatic."getRuntime"."java.la |
| 1e9440 | 6e 67 2e 52 75 6e 74 69 6d 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ng.Runtime"))..................( |
| 1e9460 | 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 61 76 61 | command....................(java |
| 1e9480 | 3a 6a 6e 65 77 2d 61 72 72 61 79 2d 66 72 6f 6d 2d 61 72 72 61 79 0a 20 20 20 20 20 20 20 20 20 | :jnew-array-from-array.......... |
| 1e94a0 | 20 20 20 20 20 20 20 20 20 20 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 72 69 6e 67 22 20 23 28 | ..........."java.lang.String".#( |
| 1e94c0 | 22 73 68 22 20 22 2d 63 22 20 22 65 63 68 6f 20 24 50 50 49 44 22 29 29 29 0a 20 20 20 20 20 20 | "sh"."-c"."echo.$PPID")))....... |
| 1e94e0 | 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 74 69 6d 65 2d 65 78 65 63 2d 6a 6d 65 74 68 6f 64 | ...........(runtime-exec-jmethod |
| 1e9500 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6f 6d 70 6c 69 63 61 74 | ....................;;.Complicat |
| 1e9520 | 65 64 20 62 65 63 61 75 73 65 20 6a 61 76 61 2e 6c 61 6e 67 2e 52 75 6e 74 69 6d 65 2e 65 78 65 | ed.because.java.lang.Runtime.exe |
| 1e9540 | 63 28 29 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6f 76 65 | c().is....................;;.ove |
| 1e9560 | 72 6c 6f 61 64 65 64 20 6f 6e 20 61 20 6e 6f 6e 2d 70 72 69 6d 69 74 69 76 65 20 74 79 70 65 20 | rloaded.on.a.non-primitive.type. |
| 1e9580 | 28 61 72 72 61 79 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | (array.of....................;;. |
| 1e95a0 | 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 72 69 6e 67 29 2c 20 73 6f 20 77 65 20 68 61 76 65 20 74 6f | java.lang.String),.so.we.have.to |
| 1e95c0 | 20 75 73 65 20 74 68 65 20 61 63 74 75 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .use.the.actual................. |
| 1e95e0 | 20 20 20 3b 3b 20 70 61 72 61 6d 65 74 65 72 20 69 6e 73 74 61 6e 63 65 20 74 6f 20 67 65 74 20 | ...;;.parameter.instance.to.get. |
| 1e9600 | 6a 61 76 61 2e 6c 61 6e 67 2e 43 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | java.lang.Class................. |
| 1e9620 | 20 20 20 28 6a 61 76 61 3a 6a 6d 65 74 68 6f 64 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 52 75 6e 74 | ...(java:jmethod."java.lang.Runt |
| 1e9640 | 69 6d 65 22 20 22 65 78 65 63 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ime"."exec"..................... |
| 1e9660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 61 76 61 3a 6a 63 61 6c 6c 0a 20 20 20 20 20 20 20 | .............(java:jcall........ |
| 1e9680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 61 76 61 | ...........................(java |
| 1e96a0 | 3a 6a 6d 65 74 68 6f 64 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 4f 62 6a 65 63 74 22 20 22 67 65 74 | :jmethod."java.lang.Object"."get |
| 1e96c0 | 43 6c 61 73 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | Class")......................... |
| 1e96e0 | 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..........command)))............ |
| 1e9700 | 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(process.................. |
| 1e9720 | 20 20 28 6a 61 76 61 3a 6a 63 61 6c 6c 20 72 75 6e 74 69 6d 65 2d 65 78 65 63 2d 6a 6d 65 74 68 | ..(java:jcall.runtime-exec-jmeth |
| 1e9740 | 6f 64 20 72 75 6e 74 69 6d 65 20 63 6f 6d 6d 61 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | od.runtime.command))............ |
| 1e9760 | 20 20 20 20 20 20 28 6f 75 74 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(output................... |
| 1e9780 | 20 28 6a 61 76 61 3a 6a 63 61 6c 6c 20 28 6a 61 76 61 3a 6a 6d 65 74 68 6f 64 20 22 6a 61 76 61 | .(java:jcall.(java:jmethod."java |
| 1e97a0 | 2e 6c 61 6e 67 2e 50 72 6f 63 65 73 73 22 20 22 67 65 74 49 6e 70 75 74 53 74 72 65 61 6d 22 29 | .lang.Process"."getInputStream") |
| 1e97c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1e97e0 | 70 72 6f 63 65 73 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 61 76 61 3a 6a 63 61 | process))).............(java:jca |
| 1e9800 | 6c 6c 20 28 6a 61 76 61 3a 6a 6d 65 74 68 6f 64 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 50 72 6f 63 | ll.(java:jmethod."java.lang.Proc |
| 1e9820 | 65 73 73 22 20 22 77 61 69 74 46 6f 72 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ess"."waitFor")................. |
| 1e9840 | 20 20 20 20 20 20 20 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f | ........process).............(lo |
| 1e9860 | 6f 70 20 3a 77 69 74 68 20 62 20 3a 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | op.:with.b.:do...............(se |
| 1e9880 | 74 71 20 62 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 61 76 61 3a 6a | tq.b.....................(java:j |
| 1e98a0 | 63 61 6c 6c 20 28 6a 61 76 61 3a 6a 6d 65 74 68 6f 64 20 22 6a 61 76 61 2e 69 6f 2e 49 6e 70 75 | call.(java:jmethod."java.io.Inpu |
| 1e98c0 | 74 53 74 72 65 61 6d 22 20 22 72 65 61 64 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tStream"."read")................ |
| 1e98e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 29 29 0a 20 20 20 20 20 20 | .................output))....... |
| 1e9900 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 75 6e 74 69 6c 20 28 6d 65 6d 62 65 72 20 62 20 27 28 2d | ............:until.(member.b.'(- |
| 1e9920 | 31 20 23 78 30 61 29 29 20 20 20 20 20 3b 20 45 69 74 68 65 72 20 45 4f 46 20 6f 72 20 4c 46 0a | 1.#x0a)).....;.Either.EOF.or.LF. |
| 1e9940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6c 6c 65 63 74 69 6e 67 20 28 63 | ..................:collecting.(c |
| 1e9960 | 6f 64 65 2d 63 68 61 72 20 62 29 20 3a 69 6e 74 6f 20 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 | ode-char.b).:into.result........ |
| 1e9980 | 20 20 20 20 20 20 20 20 20 20 20 3a 66 69 6e 61 6c 6c 79 20 28 72 65 74 75 72 6e 0a 20 20 20 20 | ...........:finally.(return..... |
| 1e99a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 2d | .........................(parse- |
| 1e99c0 | 69 6e 74 65 67 65 72 20 28 63 6f 65 72 63 65 20 72 65 73 75 6c 74 20 27 73 74 72 69 6e 67 29 29 | integer.(coerce.result.'string)) |
| 1e99e0 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 29 20 30 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 | ))).........(t.().0))))..(defimp |
| 1e9a00 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d | lementation.lisp-implementation- |
| 1e9a20 | 74 79 70 65 2d 6e 61 6d 65 20 28 29 0a 20 20 22 61 72 6d 65 64 62 65 61 72 22 29 0a 0a 28 64 65 | type-name.()..."armedbear")..(de |
| 1e9a40 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 | fimplementation.set-default-dire |
| 1e9a60 | 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 | ctory.(directory)...(let.((dir.( |
| 1e9a80 | 73 79 73 3a 3a 70 72 6f 62 65 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 29 29 | sys::probe-directory.directory)) |
| 1e9aa0 | 29 0a 20 20 20 20 28 77 68 65 6e 20 64 69 72 20 28 73 65 74 66 20 2a 64 65 66 61 75 6c 74 2d 70 | ).....(when.dir.(setf.*default-p |
| 1e9ac0 | 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 20 64 69 72 29 29 0a 20 20 20 20 28 6e 61 6d | athname-defaults*.dir)).....(nam |
| 1e9ae0 | 65 73 74 72 69 6e 67 20 64 69 72 29 29 29 0a 0a 0a 3b 3b 3b 3b 20 4d 69 73 63 0a 0a 28 64 65 66 | estring.dir)))...;;;;.Misc..(def |
| 1e9b00 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 72 67 6c 69 73 74 20 28 66 75 6e 29 0a 20 20 28 | implementation.arglist.(fun)...( |
| 1e9b20 | 63 6f 6e 64 20 28 28 73 79 6d 62 6f 6c 70 20 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 28 6d 75 | cond.((symbolp.fun)..........(mu |
| 1e9b40 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 61 72 67 6c 69 73 74 20 70 72 65 73 65 | ltiple-value-bind.(arglist.prese |
| 1e9b60 | 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 3a 61 72 67 6c 69 73 74 20 66 | nt)..............(sys::arglist.f |
| 1e9b80 | 75 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6e 6f 74 20 70 | un)............(when.(and.(not.p |
| 1e9ba0 | 72 65 73 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | resent).......................(f |
| 1e9bc0 | 62 6f 75 6e 64 70 20 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | boundp.fun)..................... |
| 1e9be0 | 20 20 28 74 79 70 65 70 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 29 0a 20 | ..(typep.(symbol-function.fun).. |
| 1e9c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 74 61 | ............................'sta |
| 1e9c20 | 6e 64 61 72 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 | ndard-generic-function))........ |
| 1e9c40 | 20 20 20 20 20 20 28 73 65 74 71 20 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(setq.arglist............. |
| 1e9c60 | 20 20 20 20 20 20 20 28 6d 6f 70 3a 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 | .......(mop::generic-function-la |
| 1e9c80 | 6d 62 64 61 2d 6c 69 73 74 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 29 29 | mbda-list.(symbol-function.fun)) |
| 1e9ca0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 73 65 6e 74 0a 20 20 20 20 | ....................present..... |
| 1e9cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 | ...............t))............(i |
| 1e9ce0 | 66 20 70 72 65 73 65 6e 74 20 61 72 67 6c 69 73 74 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 | f.present.arglist.:not-available |
| 1e9d00 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 | ))).........(t.:not-available))) |
| 1e9d20 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 | ..(defimplementation.function-na |
| 1e9d40 | 6d 65 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 73 79 | me.(function)...(if.(fboundp.'sy |
| 1e9d60 | 73 3a 3a 61 6e 79 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 3b 3b 20 61 | s::any-function-name).......;;.a |
| 1e9d80 | 62 63 6c 2d 31 2e 35 2e 30 0a 20 20 20 20 20 20 28 73 79 73 3a 3a 61 6e 79 2d 66 75 6e 63 74 69 | bcl-1.5.0.......(sys::any-functi |
| 1e9da0 | 6f 6e 2d 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 3b 3b 20 70 72 65 20 61 | on-name.function).......;;.pre.a |
| 1e9dc0 | 62 63 6c 2d 31 2e 35 2e 30 0a 20 20 20 20 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 32 20 28 66 75 | bcl-1.5.0.......(nth-value.2.(fu |
| 1e9de0 | 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 65 78 70 72 65 73 73 69 6f 6e 20 66 75 6e 63 74 69 6f | nction-lambda-expression.functio |
| 1e9e00 | 6e 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 63 72 6f 65 | n))))..(defimplementation.macroe |
| 1e9e20 | 78 70 61 6e 64 2d 61 6c 6c 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 | xpand-all.(form.&optional.env).. |
| 1e9e40 | 20 28 65 78 74 3a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 66 6f 72 6d 20 65 6e 76 29 29 | .(ext:macroexpand-all.form.env)) |
| 1e9e60 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6c 6c 65 63 74 2d 6d 61 63 | ..(defimplementation.collect-mac |
| 1e9e80 | 72 6f 2d 66 6f 72 6d 73 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 | ro-forms.(form.&optional.env)... |
| 1e9ea0 | 3b 3b 20 43 75 72 72 65 6e 74 6c 79 20 64 65 74 65 63 74 73 20 6f 6e 6c 79 20 6e 6f 72 6d 61 6c | ;;.Currently.detects.only.normal |
| 1e9ec0 | 20 6d 61 63 72 6f 73 2c 20 6e 6f 74 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 73 2e 0a 20 20 | .macros,.not.compiler.macros.... |
| 1e9ee0 | 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 65 6e 76 29 29 0a 20 20 28 77 69 74 68 2d 63 | (declare.(ignore.env))...(with-c |
| 1e9f00 | 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 28 6d 61 63 72 6f 2d 66 6f 72 6d | ollected-macro-forms.(macro-form |
| 1e9f20 | 73 29 0a 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 77 61 72 6e 69 6e 67 | s).......(handler-bind.((warning |
| 1e9f40 | 20 23 27 6d 75 66 66 6c 65 2d 77 61 72 6e 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 28 69 67 6e | .#'muffle-warning)).........(ign |
| 1e9f60 | 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 20 6e 69 6c | ore-errors..........(compile.nil |
| 1e9f80 | 20 60 28 6c 61 6d 62 64 61 20 28 29 20 2c 28 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 66 | .`(lambda.().,(macroexpand-all.f |
| 1e9fa0 | 6f 72 6d 20 65 6e 76 29 29 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 6d 61 63 72 6f 2d 66 | orm.env))))).....(values.macro-f |
| 1e9fc0 | 6f 72 6d 73 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | orms.nil)))..(defimplementation. |
| 1e9fe0 | 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f | describe-symbol-for-emacs.(symbo |
| 1ea000 | 6c 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 66 6c | l)...(let.((result.'())).....(fl |
| 1ea020 | 65 74 20 28 28 64 6f 63 20 28 6b 69 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 28 73 79 6d 20 73 79 | et.((doc.(kind.&optional.(sym.sy |
| 1ea040 | 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 64 6f 63 75 6d 65 6e | mbol))..............(or.(documen |
| 1ea060 | 74 61 74 69 6f 6e 20 73 79 6d 20 6b 69 6e 64 29 20 3a 6e 6f 74 2d 64 6f 63 75 6d 65 6e 74 65 64 | tation.sym.kind).:not-documented |
| 1ea080 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 20 28 70 72 6f 70 65 | ))............(maybe-push.(prope |
| 1ea0a0 | 72 74 79 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 76 61 | rty.value)..............(when.va |
| 1ea0c0 | 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 | lue................(setf.result. |
| 1ea0e0 | 28 6c 69 73 74 2a 20 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 20 72 65 73 75 6c 74 29 29 29 29 | (list*.property.value.result)))) |
| 1ea100 | 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 76 61 72 69 | ).......(maybe-push........:vari |
| 1ea120 | 61 62 6c 65 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 | able.(when.(boundp.symbol)...... |
| 1ea140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 76 61 72 69 61 62 6c 65 29 29 29 0a | ..............(doc.'variable))). |
| 1ea160 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 | ......(when.(fboundp.symbol).... |
| 1ea180 | 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 | .....(maybe-push..........(cond. |
| 1ea1a0 | 28 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 20 20 20 20 20 3a 6d 61 | ((macro-function.symbol).....:ma |
| 1ea1c0 | 63 72 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 70 65 63 69 61 6c 2d 6f 70 | cro)................((special-op |
| 1ea1e0 | 65 72 61 74 6f 72 2d 70 20 73 79 6d 62 6f 6c 29 20 3a 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 | erator-p.symbol).:special-operat |
| 1ea200 | 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 74 79 70 65 70 20 28 66 64 65 66 | or)................((typep.(fdef |
| 1ea220 | 69 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 20 27 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f | inition.symbol).'generic-functio |
| 1ea240 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 | n).................:generic-func |
| 1ea260 | 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 3a 66 75 6e 63 74 69 6f | tion)................(t.:functio |
| 1ea280 | 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 | n))..........(doc.'function))).. |
| 1ea2a0 | 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 63 6c 61 73 73 20 28 | .....(maybe-push........:class.( |
| 1ea2c0 | 69 66 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 20 6e 69 6c 29 0a 20 20 20 20 20 | if.(find-class.symbol.nil)...... |
| 1ea2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 63 6c 61 73 73 29 29 29 0a 20 20 20 20 | .............(doc.'class)))..... |
| 1ea300 | 20 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | ..result)))..(defimplementation. |
| 1ea320 | 64 65 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 20 6e 61 6d 65 | describe-definition.(symbol.name |
| 1ea340 | 73 70 61 63 65 29 0a 20 20 28 65 63 61 73 65 20 6e 61 6d 65 73 70 61 63 65 0a 20 20 20 20 28 28 | space)...(ecase.namespace.....(( |
| 1ea360 | 3a 76 61 72 69 61 62 6c 65 20 3a 6d 61 63 72 6f 29 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 | :variable.:macro)......(describe |
| 1ea380 | 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 28 28 3a 66 75 6e 63 74 69 6f 6e 20 3a 67 65 6e 65 72 | .symbol)).....((:function.:gener |
| 1ea3a0 | 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 28 73 79 6d | ic-function)......(describe.(sym |
| 1ea3c0 | 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 3a 63 6c 61 | bol-function.symbol))).....(:cla |
| 1ea3e0 | 73 73 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 | ss......(describe.(find-class.sy |
| 1ea400 | 6d 62 6f 6c 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 | mbol)))))..(defimplementation.de |
| 1ea420 | 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 20 6e 61 6d 65 73 70 | scribe-definition.(symbol.namesp |
| 1ea440 | 61 63 65 29 0a 20 20 28 65 63 61 73 65 20 6e 61 6d 65 73 70 61 63 65 0a 20 20 20 20 28 3a 76 61 | ace)...(ecase.namespace.....(:va |
| 1ea460 | 72 69 61 62 6c 65 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 73 79 6d 62 6f 6c 29 29 0a 20 | riable......(describe.symbol)).. |
| 1ea480 | 20 20 20 28 28 3a 66 75 6e 63 74 69 6f 6e 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e | ...((:function.:generic-function |
| 1ea4a0 | 29 0a 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f | )......(describe.(symbol-functio |
| 1ea4c0 | 6e 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 3a 63 6c 61 73 73 0a 20 20 20 20 20 28 64 65 | n.symbol))).....(:class......(de |
| 1ea4e0 | 73 63 72 69 62 65 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 29 29 29 29 29 0a 0a | scribe.(find-class.symbol))))).. |
| 1ea500 | 3b 3b 3b 3b 20 44 65 62 75 67 67 65 72 0a 0a 3b 3b 20 43 6f 70 69 65 64 20 66 72 6f 6d 20 73 77 | ;;;;.Debugger..;;.Copied.from.sw |
| 1ea520 | 61 6e 6b 2d 73 62 63 6c 2e 6c 69 73 70 2e 0a 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 | ank-sbcl.lisp..#+abcl-introspect |
| 1ea540 | 0a 28 64 65 66 76 61 72 20 73 79 73 3a 3a 2a 63 61 75 67 68 74 2d 66 72 61 6d 65 73 2a 29 0a 3b | .(defvar.sys::*caught-frames*).; |
| 1ea560 | 3b 0a 3b 3b 20 4e 6f 74 69 63 65 20 74 68 61 74 20 2a 49 4e 56 4f 4b 45 2d 44 45 42 55 47 47 45 | ;.;;.Notice.that.*INVOKE-DEBUGGE |
| 1ea580 | 52 2d 48 4f 4f 4b 2a 20 69 73 20 74 72 69 65 64 20 62 65 66 6f 72 65 20 2a 44 45 42 55 47 47 45 | R-HOOK*.is.tried.before.*DEBUGGE |
| 1ea5a0 | 52 2d 48 4f 4f 4b 2a 2c 0a 3b 3b 20 73 6f 20 77 65 20 68 61 76 65 20 74 6f 20 6d 61 6b 65 20 73 | R-HOOK*,.;;.so.we.have.to.make.s |
| 1ea5c0 | 75 72 65 20 74 68 61 74 20 74 68 65 20 6c 61 74 74 65 72 20 67 65 74 73 20 72 75 6e 20 77 68 65 | ure.that.the.latter.gets.run.whe |
| 1ea5e0 | 6e 20 69 74 20 77 61 73 0a 3b 3b 20 65 73 74 61 62 6c 69 73 68 65 64 20 6c 6f 63 61 6c 6c 79 20 | n.it.was.;;.established.locally. |
| 1ea600 | 62 79 20 61 20 75 73 65 72 20 28 69 2e 65 2e 20 63 68 61 6e 67 65 64 20 6d 65 61 6e 77 68 69 6c | by.a.user.(i.e..changed.meanwhil |
| 1ea620 | 65 2e 29 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d | e.).(defun.make-invoke-debugger- |
| 1ea640 | 68 6f 6f 6b 20 28 68 6f 6f 6b 29 0a 20 20 28 6c 61 6d 62 64 61 20 28 63 6f 6e 64 69 74 69 6f 6e | hook.(hook)...(lambda.(condition |
| 1ea660 | 20 6f 6c 64 2d 68 6f 6f 6b 29 0a 20 20 20 20 28 70 72 6f 67 31 20 28 6c 65 74 20 28 23 2b 61 62 | .old-hook).....(prog1.(let.(#+ab |
| 1ea680 | 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | cl-introspect..................( |
| 1ea6a0 | 73 79 73 3a 3a 2a 63 61 75 67 68 74 2d 66 72 61 6d 65 73 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 | sys::*caught-frames*.nil))...... |
| 1ea6c0 | 20 20 20 20 20 20 20 20 3b 3b 3b 20 74 68 65 20 6e 65 78 74 20 6d 69 67 68 74 20 62 65 20 74 68 | ........;;;.the.next.might.be.th |
| 1ea6e0 | 65 20 72 69 67 68 74 20 74 68 69 6e 67 20 66 6f 72 20 65 61 72 6c 69 65 72 20 6c 69 73 70 73 0a | e.right.thing.for.earlier.lisps. |
| 1ea700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 3b 20 58 58 58 20 70 72 6f 62 61 62 6c 79 20 64 6f | .............;;;.XXX.probably.do |
| 1ea720 | 65 73 6e 27 74 20 77 6f 72 6b 20 69 6e 20 61 62 73 65 6e 63 65 0a 20 20 20 20 20 20 20 20 20 20 | esn't.work.in.absence........... |
| 1ea740 | 20 20 20 3b 3b 3b 20 6f 66 20 41 42 43 4c 2d 49 4e 54 52 4f 53 50 45 43 54 20 6f 6e 20 61 62 63 | ...;;;.of.ABCL-INTROSPECT.on.abc |
| 1ea760 | 6c 2d 31 2e 34 20 61 6e 64 20 65 61 72 6c 69 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | l-1.4.and.earlier..............( |
| 1ea780 | 6c 65 74 20 28 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 20 20 20 20 20 20 20 | let.(#+abcl-introspect.......... |
| 1ea7a0 | 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 3a 2a 73 61 76 65 64 2d 62 61 63 6b 74 72 61 63 65 | ..........(sys::*saved-backtrace |
| 1ea7c0 | 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 62 6f 75 | *......................(if.(fbou |
| 1ea7e0 | 6e 64 70 20 27 73 79 73 3a 3a 6e 65 77 2d 62 61 63 6b 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 | ndp.'sys::new-backtrace)........ |
| 1ea800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 3a 6e 65 77 2d 62 61 63 6b | ..................(sys::new-back |
| 1ea820 | 74 72 61 63 65 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | trace.condition)................ |
| 1ea840 | 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 3a 62 61 63 6b 74 72 61 63 65 29 29 29 29 0a 20 20 | ..........(sys::backtrace))))... |
| 1ea860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a | .............(if.*debugger-hook* |
| 1ea880 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 2a 64 65 | ....................(funcall.*de |
| 1ea8a0 | 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 63 6f 6e 64 69 74 69 6f 6e 20 6f 6c 64 2d 68 6f 6f 6b 29 | bugger-hook*.condition.old-hook) |
| 1ea8c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 68 6f 6f | ....................(funcall.hoo |
| 1ea8e0 | 6b 20 63 6f 6e 64 69 74 69 6f 6e 20 6f 6c 64 2d 68 6f 6f 6b 29 29 29 29 29 29 29 0a 0a 28 64 65 | k.condition.old-hook)))))))..(de |
| 1ea900 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 | fimplementation.call-with-debugg |
| 1ea920 | 65 72 2d 68 6f 6f 6b 20 28 68 6f 6f 6b 20 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a 64 65 62 | er-hook.(hook.fun)...(let.((*deb |
| 1ea940 | 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 28 73 79 73 3a 3a | ugger-hook*.hook).........(sys:: |
| 1ea960 | 2a 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 28 6d 61 6b 65 2d 69 6e 76 | *invoke-debugger-hook*.(make-inv |
| 1ea980 | 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 68 6f 6f 6b 29 29 29 0a 20 20 20 20 28 66 | oke-debugger-hook.hook))).....(f |
| 1ea9a0 | 75 6e 63 61 6c 6c 20 66 75 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | uncall.fun)))..(defimplementatio |
| 1ea9c0 | 6e 20 69 6e 73 74 61 6c 6c 2d 64 65 62 75 67 67 65 72 2d 67 6c 6f 62 61 6c 6c 79 20 28 66 75 6e | n.install-debugger-globally.(fun |
| 1ea9e0 | 63 74 69 6f 6e 29 0a 20 20 28 73 65 74 71 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 66 | ction)...(setq.*debugger-hook*.f |
| 1eaa00 | 75 6e 63 74 69 6f 6e 29 0a 20 20 28 73 65 74 71 20 73 79 73 3a 3a 2a 69 6e 76 6f 6b 65 2d 64 65 | unction)...(setq.sys::*invoke-de |
| 1eaa20 | 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 28 6d 61 6b 65 2d 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 | bugger-hook*.(make-invoke-debugg |
| 1eaa40 | 65 72 2d 68 6f 6f 6b 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c | er-hook.function)))..(defvar.*sl |
| 1eaa60 | 64 62 2d 74 6f 70 66 72 61 6d 65 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | db-topframe*)..(defimplementatio |
| 1eaa80 | 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e | n.call-with-debugging-environmen |
| 1eaaa0 | 74 20 28 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d | t.(debugger-loop-fn)...(let*.((m |
| 1eaac0 | 61 67 69 63 2d 74 6f 6b 65 6e 20 28 69 6e 74 65 72 6e 20 22 53 57 41 4e 4b 2d 44 45 42 55 47 47 | agic-token.(intern."SWANK-DEBUGG |
| 1eaae0 | 45 52 2d 48 4f 4f 4b 22 20 27 73 77 61 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 73 6c 64 | ER-HOOK".'swank))..........(*sld |
| 1eab00 | 62 2d 74 6f 70 66 72 61 6d 65 2a 20 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 0a 20 20 20 20 | b-topframe*.............(or..... |
| 1eab20 | 20 20 20 20 20 20 20 20 28 73 65 63 6f 6e 64 20 28 6d 65 6d 62 65 72 20 6d 61 67 69 63 2d 74 6f | ........(second.(member.magic-to |
| 1eab40 | 6b 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ken............................. |
| 1eab60 | 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 20 73 79 73 3a 3a 2a 73 61 76 65 64 2d 62 61 | #+abcl-introspect.sys::*saved-ba |
| 1eab80 | 63 6b 74 72 61 63 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cktrace*........................ |
| 1eaba0 | 20 20 20 20 20 23 2d 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 20 28 73 79 73 3a 62 61 63 6b | .....#-abcl-introspect.(sys:back |
| 1eabc0 | 74 72 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | trace).......................... |
| 1eabe0 | 20 20 20 3a 6b 65 79 20 28 6c 61 6d 62 64 61 20 28 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 | ...:key.(lambda.(frame)......... |
| 1eac00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 72 73 | ...........................(firs |
| 1eac20 | 74 20 28 73 79 73 3a 66 72 61 6d 65 2d 74 6f 2d 6c 69 73 74 20 66 72 61 6d 65 29 29 29 29 29 0a | t.(sys:frame-to-list.frame))))). |
| 1eac40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 73 79 73 3a 3a 2a 73 61 76 65 64 2d 62 61 63 | ............(car.sys::*saved-bac |
| 1eac60 | 6b 74 72 61 63 65 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 | ktrace*)))..........#+#.(swank/b |
| 1eac80 | 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 2a 64 65 62 75 67 2d 63 6f 6e 64 69 74 | ackend:with-symbol.*debug-condit |
| 1eaca0 | 69 6f 6e 2a 20 27 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 3a 2a 64 65 62 75 67 | ion*.'ext)..........(ext::*debug |
| 1eacc0 | 2d 63 6f 6e 64 69 74 69 6f 6e 2a 20 73 77 61 6e 6b 3a 3a 2a 73 77 61 6e 6b 2d 64 65 62 75 67 67 | -condition*.swank::*swank-debugg |
| 1eace0 | 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 64 65 62 | er-condition*)).....(funcall.deb |
| 1ead00 | 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 74 72 61 | ugger-loop-fn)))..(defun.backtra |
| 1ead20 | 63 65 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 41 20 62 61 63 6b 74 72 61 63 65 20 77 69 | ce.(start.end)..."A.backtrace.wi |
| 1ead40 | 74 68 6f 75 74 20 69 6e 69 74 69 61 6c 20 53 57 41 4e 4b 20 66 72 61 6d 65 73 2e 22 0a 20 20 28 | thout.initial.SWANK.frames."...( |
| 1ead60 | 6c 65 74 20 28 28 62 61 63 6b 74 72 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 23 2b 61 62 63 6c | let.((backtrace...........#+abcl |
| 1ead80 | 2d 69 6e 74 72 6f 73 70 65 63 74 20 73 79 73 3a 3a 2a 73 61 76 65 64 2d 62 61 63 6b 74 72 61 63 | -introspect.sys::*saved-backtrac |
| 1eada0 | 65 2a 0a 20 20 20 20 20 20 20 20 20 20 23 2d 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 20 28 | e*...........#-abcl-introspect.( |
| 1eadc0 | 73 79 73 3a 62 61 63 6b 74 72 61 63 65 29 29 29 0a 20 20 20 20 28 73 75 62 73 65 71 20 28 6f 72 | sys:backtrace))).....(subseq.(or |
| 1eade0 | 20 28 6d 65 6d 62 65 72 20 2a 73 6c 64 62 2d 74 6f 70 66 72 61 6d 65 2a 20 62 61 63 6b 74 72 61 | .(member.*sldb-topframe*.backtra |
| 1eae00 | 63 65 29 20 62 61 63 6b 74 72 61 63 65 29 20 73 74 61 72 74 20 65 6e 64 29 29 29 0a 0a 28 64 65 | ce).backtrace).start.end)))..(de |
| 1eae20 | 66 75 6e 20 6e 74 68 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 29 0a 20 20 28 6e 74 68 20 69 6e 64 | fun.nth-frame.(index)...(nth.ind |
| 1eae40 | 65 78 20 28 62 61 63 6b 74 72 61 63 65 20 30 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | ex.(backtrace.0.nil)))..(defimpl |
| 1eae60 | 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 28 73 74 | ementation.compute-backtrace.(st |
| 1eae80 | 61 72 74 20 65 6e 64 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 64 20 28 6f 72 20 65 6e 64 20 6d 6f | art.end)...(let.((end.(or.end.mo |
| 1eaea0 | 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d 29 29 29 0a 20 20 20 20 28 62 61 63 6b 74 | st-positive-fixnum))).....(backt |
| 1eaec0 | 72 61 63 65 20 73 74 61 72 74 20 65 6e 64 29 29 29 0a 0a 3b 3b 20 44 6f 6e 27 74 20 63 6f 75 6e | race.start.end)))..;;.Don't.coun |
| 1eaee0 | 74 20 6f 6e 20 4a 53 53 20 62 65 69 6e 67 20 6c 6f 61 64 65 64 2c 20 62 75 74 20 69 66 20 69 74 | t.on.JSS.being.loaded,.but.if.it |
| 1eaf00 | 20 69 73 20 74 68 65 6e 20 74 68 65 72 65 27 73 20 73 6f 6d 65 20 6d 6f 72 65 20 73 74 75 66 66 | .is.then.there's.some.more.stuff |
| 1eaf20 | 20 77 65 20 63 61 6e 20 64 6f 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 | .we.can.do.#+#.(swank/backend:wi |
| 1eaf40 | 74 68 2d 73 79 6d 62 6f 6c 20 27 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 67 73 20 27 6a 73 73 29 | th-symbol.'invoke-restargs.'jss) |
| 1eaf60 | 0a 28 64 65 66 75 6e 20 6a 73 73 2d 70 20 28 29 0a 20 20 28 61 6e 64 20 28 6d 65 6d 62 65 72 20 | .(defun.jss-p.()...(and.(member. |
| 1eaf80 | 22 4a 53 53 22 20 2a 6d 6f 64 75 6c 65 73 2a 20 3a 74 65 73 74 20 27 73 74 72 69 6e 67 3d 29 20 | "JSS".*modules*.:test.'string=). |
| 1eafa0 | 28 69 6e 74 65 72 6e 20 22 49 4e 56 4f 4b 45 2d 52 45 53 54 41 52 47 53 22 20 22 4a 53 53 22 29 | (intern."INVOKE-RESTARGS"."JSS") |
| 1eafc0 | 29 29 0a 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 | ))..#+#.(swank/backend:with-symb |
| 1eafe0 | 6f 6c 20 27 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 67 73 20 27 6a 73 73 29 0a 28 64 65 66 75 6e | ol.'invoke-restargs.'jss).(defun |
| 1eb000 | 20 6d 61 74 63 68 65 73 2d 6a 73 73 2d 63 61 6c 6c 20 28 66 6f 72 6d 29 0a 20 20 28 66 6c 65 74 | .matches-jss-call.(form)...(flet |
| 1eb020 | 20 28 28 67 65 6e 73 79 6d 70 20 28 73 29 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 73 29 20 | .((gensymp.(s).(and.(symbolp.s). |
| 1eb040 | 28 6e 75 6c 6c 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 73 29 29 29 29 0a 20 20 20 20 | (null.(symbol-package.s))))..... |
| 1eb060 | 20 20 20 20 20 28 69 6e 76 6f 6b 65 70 20 28 73 29 20 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 | .....(invokep.(s)..(and.(symbolp |
| 1eb080 | 20 73 29 20 28 65 71 20 73 20 28 6a 73 73 2d 70 29 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 | .s).(eq.s.(jss-p))))).....(let.( |
| 1eb0a0 | 28 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2f 6d 61 74 63 68 | (method.............(swank/match |
| 1eb0c0 | 3a 3a 73 65 6c 65 63 74 2d 6d 61 74 63 68 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 | ::select-match...............for |
| 1eb0e0 | 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 28 4c 41 4d 42 44 41 20 28 28 23 27 67 65 6e | m..............(((LAMBDA.((#'gen |
| 1eb100 | 73 79 6d 70 20 61 29 20 26 52 45 53 54 20 28 23 27 67 65 6e 73 79 6d 70 20 62 29 29 20 0a 20 20 | symp.a).&REST.(#'gensymp.b)).... |
| 1eb120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 23 27 69 6e 76 6f 6b 65 70 20 66 75 6e 29 20 | ...............((#'invokep.fun). |
| 1eb140 | 28 23 27 73 74 72 69 6e 67 70 20 63 29 20 28 23 27 67 65 6e 73 79 6d 70 20 64 29 20 28 23 27 67 | (#'stringp.c).(#'gensymp.d).(#'g |
| 1eb160 | 65 6e 73 79 6d 70 20 65 29 20 2e 20 61 72 67 73 29 29 20 2e 20 61 72 67 73 29 20 27 3d 3e 20 63 | ensymp.e)...args))...args).'=>.c |
| 1eb180 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 74 68 65 72 20 6e 69 6c 29 29 29 29 0a 20 20 | )..............(other.nil))))... |
| 1eb1a0 | 20 20 20 20 6d 65 74 68 6f 64 29 29 29 0a 0a 23 2d 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 | ....method)))..#-abcl-introspect |
| 1eb1c0 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 | .(defimplementation.print-frame. |
| 1eb1e0 | 28 66 72 61 6d 65 20 73 74 72 65 61 6d 29 0a 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 28 | (frame.stream)...(write-string.( |
| 1eb200 | 73 79 73 3a 66 72 61 6d 65 2d 74 6f 2d 73 74 72 69 6e 67 20 66 72 61 6d 65 29 0a 20 20 20 20 20 | sys:frame-to-string.frame)...... |
| 1eb220 | 20 20 20 20 20 20 20 20 20 20 20 73 74 72 65 61 6d 29 29 0a 0a 3b 3b 20 55 73 65 20 70 72 69 6e | ...........stream))..;;.Use.prin |
| 1eb240 | 63 20 63 73 20 77 72 69 74 65 2d 73 74 72 69 6e 67 20 66 6f 72 20 6c 69 73 70 20 66 72 61 6d 65 | c.cs.write-string.for.lisp.frame |
| 1eb260 | 73 20 61 73 20 69 74 20 72 65 73 70 65 63 74 73 20 28 70 72 69 6e 74 2d 6f 62 6a 65 63 74 20 28 | s.as.it.respects.(print-object.( |
| 1eb280 | 66 75 6e 63 74 69 6f 6e 20 74 29 29 0a 3b 3b 20 52 65 77 72 69 74 65 20 6a 73 73 20 65 78 70 61 | function.t)).;;.Rewrite.jss.expa |
| 1eb2a0 | 6e 73 69 6f 6e 73 20 74 6f 20 74 68 65 69 72 20 75 6e 65 78 70 61 6e 64 65 64 20 73 74 61 74 65 | nsions.to.their.unexpanded.state |
| 1eb2c0 | 0a 3b 3b 20 53 68 6f 77 20 6a 61 76 61 20 65 78 63 65 70 74 69 6f 6e 20 66 72 61 6d 65 73 20 75 | .;;.Show.java.exception.frames.u |
| 1eb2e0 | 70 20 74 6f 20 77 68 65 72 65 20 61 20 6a 61 76 61 20 65 78 63 65 70 74 69 6f 6e 20 68 61 70 70 | p.to.where.a.java.exception.happ |
| 1eb300 | 65 6e 65 64 20 77 69 74 68 20 61 20 22 21 22 20 0a 3b 3b 20 43 68 65 63 6b 20 69 66 20 61 20 6a | ened.with.a."!"..;;.Check.if.a.j |
| 1eb320 | 61 76 61 20 63 6c 61 73 73 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f 20 61 20 6c 69 73 70 20 | ava.class.corresponds.to.a.lisp. |
| 1eb340 | 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 74 65 6c 6c 20 75 73 20 69 66 20 74 6f 0a 28 64 65 66 76 | function.and.tell.us.if.to.(defv |
| 1eb360 | 61 72 20 2a 64 65 62 75 67 67 65 72 2d 70 61 63 6b 61 67 65 2a 20 28 66 69 6e 64 2d 70 61 63 6b | ar.*debugger-package*.(find-pack |
| 1eb380 | 61 67 65 20 27 63 6c 2d 75 73 65 72 29 29 0a 0a 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 | age.'cl-user))..#+abcl-introspec |
| 1eb3a0 | 74 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 | t.(defimplementation.print-frame |
| 1eb3c0 | 20 28 66 72 61 6d 65 20 73 74 72 65 61 6d 29 0a 20 20 3b 3b 20 6d 61 6b 65 20 63 6c 65 61 72 20 | .(frame.stream)...;;.make.clear. |
| 1eb3e0 | 77 68 69 63 68 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 6e 27 74 20 43 6f 6d 6d 6f 6e 20 4c 69 | which.functions.aren't.Common.Li |
| 1eb400 | 73 70 2e 20 4f 74 68 65 72 77 69 73 65 20 75 73 65 73 0a 20 20 3b 3b 20 64 65 66 61 75 6c 74 20 | sp..Otherwise.uses...;;.default. |
| 1eb420 | 70 61 63 6b 61 67 65 2c 20 77 68 69 63 68 20 69 73 20 69 6e 76 69 73 69 62 6c 65 0a 20 20 28 6c | package,.which.is.invisible...(l |
| 1eb440 | 65 74 20 28 28 2a 70 61 63 6b 61 67 65 2a 20 28 6f 72 20 2a 64 65 62 75 67 67 65 72 2d 70 61 63 | et.((*package*.(or.*debugger-pac |
| 1eb460 | 6b 61 67 65 2a 20 2a 70 61 63 6b 61 67 65 2a 29 29 29 20 0a 20 20 20 20 28 69 66 20 28 74 79 70 | kage*.*package*)))......(if.(typ |
| 1eb480 | 65 70 20 66 72 61 6d 65 20 27 73 79 73 3a 3a 6c 69 73 70 2d 73 74 61 63 6b 2d 66 72 61 6d 65 29 | ep.frame.'sys::lisp-stack-frame) |
| 1eb4a0 | 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 6a 73 73 2d 70 29 29 0a 20 20 20 20 20 | .........(if.(not.(jss-p))...... |
| 1eb4c0 | 20 20 20 20 20 20 20 28 70 72 69 6e 63 20 28 73 79 73 74 65 6d 3a 66 72 61 6d 65 2d 74 6f 2d 6c | .......(princ.(system:frame-to-l |
| 1eb4e0 | 69 73 74 20 66 72 61 6d 65 29 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b | ist.frame).stream).............; |
| 1eb500 | 3b 20 72 65 77 72 69 74 65 20 6a 73 73 20 66 6f 72 6d 73 20 61 73 20 74 68 65 79 20 77 6f 75 6c | ;.rewrite.jss.forms.as.they.woul |
| 1eb520 | 64 20 62 65 20 77 72 69 74 74 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | d.be.written.............(let.(( |
| 1eb540 | 66 6f 72 6d 20 28 73 79 73 74 65 6d 3a 66 72 61 6d 65 2d 74 6f 2d 6c 69 73 74 20 66 72 61 6d 65 | form.(system:frame-to-list.frame |
| 1eb560 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 28 63 61 72 20 66 | )))...............(if.(eq.(car.f |
| 1eb580 | 6f 72 6d 29 20 28 6a 73 73 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | orm).(jss-p))................... |
| 1eb5a0 | 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 28 23 7e 73 20 7e 7b 7e 73 7e 5e 7e 7d 29 22 20 | (format.stream."(#~s.~{~s~^~})". |
| 1eb5c0 | 28 73 65 63 6f 6e 64 20 66 6f 72 6d 29 20 28 6c 69 73 74 2a 20 28 74 68 69 72 64 20 20 66 6f 72 | (second.form).(list*.(third..for |
| 1eb5e0 | 6d 29 20 28 66 6f 75 72 74 68 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | m).(fourth.form))).............. |
| 1eb600 | 20 20 20 20 20 28 6c 6f 6f 70 20 69 6e 69 74 69 61 6c 6c 79 20 20 28 77 72 69 74 65 2d 63 68 61 | .....(loop.initially..(write-cha |
| 1eb620 | 72 20 23 5c 28 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.#\(.stream)................... |
| 1eb640 | 20 20 20 20 20 20 66 6f 72 20 28 65 6c 20 2e 20 72 65 73 74 29 20 6f 6e 20 66 6f 72 6d 0a 20 20 | ......for.(el...rest).on.form... |
| 1eb660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6d 65 74 68 6f 64 | ......................for.method |
| 1eb680 | 20 3d 20 20 28 73 77 61 6e 6b 2f 61 62 63 6c 3a 3a 6d 61 74 63 68 65 73 2d 6a 73 73 2d 63 61 6c | .=..(swank/abcl::matches-jss-cal |
| 1eb6a0 | 6c 20 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f | l.el).........................do |
| 1eb6c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e | ............................(con |
| 1eb6e0 | 64 20 28 6d 65 74 68 6f 64 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.(method....................... |
| 1eb700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 28 23 7e | .............(format.stream."(#~ |
| 1eb720 | 73 20 7e 7b 7e 73 7e 5e 7e 7d 29 22 20 6d 65 74 68 6f 64 20 28 63 64 72 20 65 6c 29 29 29 0a 20 | s.~{~s~^~})".method.(cdr.el))).. |
| 1eb740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1eb760 | 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (t.............................. |
| 1eb780 | 20 20 20 20 20 28 70 72 69 6e 31 20 65 6c 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 20 20 20 | .....(prin1.el.stream)))........ |
| 1eb7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6e 75 6c | ....................(unless.(nul |
| 1eb7c0 | 6c 20 72 65 73 74 29 20 28 77 72 69 74 65 2d 63 68 61 72 20 23 5c 73 70 61 63 65 20 73 74 72 65 | l.rest).(write-char.#\space.stre |
| 1eb7e0 | 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e | am)).........................fin |
| 1eb800 | 61 6c 6c 79 20 28 77 72 69 74 65 2d 63 68 61 72 20 23 5c 29 20 73 74 72 65 61 6d 29 29 29 29 29 | ally.(write-char.#\).stream))))) |
| 1eb820 | 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6c 61 73 73 6e 61 6d 65 20 28 67 65 74 66 20 | .........(let.((classname.(getf. |
| 1eb840 | 28 73 79 73 3a 66 72 61 6d 65 2d 74 6f 2d 6c 69 73 74 20 66 72 61 6d 65 29 20 3a 63 6c 61 73 73 | (sys:frame-to-list.frame).:class |
| 1eb860 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 | )))...........(if.(and.(fboundp. |
| 1eb880 | 27 73 79 73 3a 3a 6a 61 76 61 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 'sys::javaframe)................ |
| 1eb8a0 | 20 20 20 20 28 6d 65 6d 62 65 72 20 28 73 79 73 3a 3a 6a 61 76 61 66 72 61 6d 65 20 66 72 61 6d | ....(member.(sys::javaframe.fram |
| 1eb8c0 | 65 29 20 73 79 73 3a 3a 2a 63 61 75 67 68 74 2d 66 72 61 6d 65 73 2a 20 3a 74 65 73 74 20 27 65 | e).sys::*caught-frames*.:test.'e |
| 1eb8e0 | 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 | qual))...............(write-stri |
| 1eb900 | 6e 67 20 22 21 20 22 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 | ng."!.".stream))...........(writ |
| 1eb920 | 65 2d 73 74 72 69 6e 67 20 28 73 79 73 3a 66 72 61 6d 65 2d 74 6f 2d 73 74 72 69 6e 67 20 66 72 | e-string.(sys:frame-to-string.fr |
| 1eb940 | 61 6d 65 29 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 | ame).stream)...........(if.(and. |
| 1eb960 | 63 6c 61 73 73 6e 61 6d 65 20 28 73 79 73 3a 3a 6a 61 76 61 2d 63 6c 61 73 73 2d 6c 69 73 70 2d | classname.(sys::java-class-lisp- |
| 1eb980 | 66 75 6e 63 74 69 6f 6e 20 63 6c 61 73 73 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | function.classname))............ |
| 1eb9a0 | 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 20 3d 20 7e 61 22 20 28 73 79 73 3a 3a | ...(format.stream.".=.~a".(sys:: |
| 1eb9c0 | 6a 61 76 61 2d 63 6c 61 73 73 2d 6c 69 73 70 2d 66 75 6e 63 74 69 6f 6e 20 63 6c 61 73 73 6e 61 | java-class-lisp-function.classna |
| 1eb9e0 | 6d 65 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 20 4d 61 63 68 69 6e 65 72 79 20 66 6f 72 20 44 45 46 | me)))))))..;;;.Machinery.for.DEF |
| 1eba00 | 49 4d 50 4c 45 4d 45 4e 54 41 54 49 4f 4e 0a 3b 3b 3b 20 46 49 58 4d 45 20 63 61 6e 27 74 20 73 | IMPLEMENTATION.;;;.FIXME.can't.s |
| 1eba20 | 65 65 6d 20 74 6f 20 75 73 65 20 46 4c 45 54 20 66 6f 72 6d 73 20 77 69 74 68 20 44 45 46 49 4d | eem.to.use.FLET.forms.with.DEFIM |
| 1eba40 | 50 4c 45 4d 45 4e 54 41 54 49 4f 4e 20 2d 2d 4d 45 20 32 30 31 35 30 34 30 33 0a 28 64 65 66 75 | PLEMENTATION.--ME.20150403.(defu |
| 1eba60 | 6e 20 6e 74 68 2d 66 72 61 6d 65 2d 6c 69 73 74 20 28 69 6e 64 65 78 29 0a 20 20 28 6a 63 61 6c | n.nth-frame-list.(index)...(jcal |
| 1eba80 | 6c 20 22 74 6f 4c 69 73 70 4c 69 73 74 22 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 | l."toLispList".(nth-frame.index) |
| 1ebaa0 | 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 74 63 68 2d 6c 61 6d 62 64 61 20 28 6f 70 65 72 61 74 6f | ))..(defun.match-lambda.(operato |
| 1ebac0 | 72 20 76 61 6c 75 65 73 29 0a 20 20 28 6a 76 6d 3a 3a 6d 61 74 63 68 2d 6c 61 6d 62 64 61 2d 6c | r.values)...(jvm::match-lambda-l |
| 1ebae0 | 69 73 74 0a 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 0a 20 20 20 20 | ist....(multiple-value-list..... |
| 1ebb00 | 28 6a 76 6d 3a 3a 70 61 72 73 65 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 28 65 78 74 3a 61 72 67 | (jvm::parse-lambda-list.(ext:arg |
| 1ebb20 | 6c 69 73 74 20 6f 70 65 72 61 74 6f 72 29 29 29 0a 20 20 20 76 61 6c 75 65 73 29 29 0a 0a 3b 3b | list.operator)))....values))..;; |
| 1ebb40 | 20 53 77 69 74 63 68 20 74 6f 20 65 6e 61 62 6c 65 20 6f 72 20 64 69 73 61 62 6c 65 20 6c 6f 63 | .Switch.to.enable.or.disable.loc |
| 1ebb60 | 61 6c 73 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 | als.functionality.#+#.(swank/bac |
| 1ebb80 | 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 66 69 6e 64 2d 6c 6f 63 61 6c 73 20 27 61 | kend:with-symbol.'find-locals.'a |
| 1ebba0 | 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 2f 73 79 73 29 0a 28 64 65 66 76 61 72 20 2a 65 6e 61 | bcl-introspect/sys).(defvar.*ena |
| 1ebbc0 | 62 6c 65 2d 6c 6f 63 61 6c 73 2a 20 74 29 0a 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 | ble-locals*.t)..#+#.(swank/backe |
| 1ebbe0 | 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 66 69 6e 64 2d 6c 6f 63 61 6c 73 20 27 61 62 63 | nd:with-symbol.'find-locals.'abc |
| 1ebc00 | 6c 2d 69 6e 74 72 6f 73 70 65 63 74 2f 73 79 73 29 0a 28 64 65 66 75 6e 20 61 72 65 2d 74 68 65 | l-introspect/sys).(defun.are-the |
| 1ebc20 | 72 65 2d 6c 6f 63 61 6c 73 3f 20 28 66 72 61 6d 65 20 69 6e 64 65 78 29 0a 20 20 28 61 6e 64 20 | re-locals?.(frame.index)...(and. |
| 1ebc40 | 2a 65 6e 61 62 6c 65 2d 6c 6f 63 61 6c 73 2a 0a 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 | *enable-locals*........(fboundp. |
| 1ebc60 | 27 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 2f 73 79 73 3a 66 69 6e 64 2d 6c 6f 63 61 6c 73 | 'abcl-introspect/sys:find-locals |
| 1ebc80 | 29 0a 20 20 20 20 20 20 20 28 74 79 70 65 70 20 66 72 61 6d 65 20 27 73 79 73 3a 3a 6c 69 73 70 | )........(typep.frame.'sys::lisp |
| 1ebca0 | 2d 73 74 61 63 6b 2d 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 70 65 72 | -stack-frame)........(let.((oper |
| 1ebcc0 | 61 74 6f 72 20 28 6a 73 73 3a 3a 67 65 74 2d 6a 61 76 61 2d 66 69 65 6c 64 20 28 6e 74 68 2d 66 | ator.(jss::get-java-field.(nth-f |
| 1ebce0 | 72 61 6d 65 20 69 6e 64 65 78 29 20 22 6f 70 65 72 61 74 6f 72 22 20 74 29 29 29 0a 20 20 20 20 | rame.index)."operator".t)))..... |
| 1ebd00 | 20 20 20 20 20 28 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 65 78 70 72 65 | .....(and.(function-lambda-expre |
| 1ebd20 | 73 73 69 6f 6e 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 6f 70 65 72 61 74 6f 72 29 20 6f | ssion.(if.(functionp.operator).o |
| 1ebd40 | 70 65 72 61 74 6f 72 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 6f 70 65 72 61 74 6f | perator.(symbol-function.operato |
| 1ebd60 | 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 | r)))...............(not.(member. |
| 1ebd80 | 6f 70 65 72 61 74 6f 72 20 27 28 6a 61 76 61 3a 3a 6a 63 61 6c 6c 20 6a 61 76 61 3a 3a 6a 63 61 | operator.'(java::jcall.java::jca |
| 1ebda0 | 6c 6c 2d 73 74 61 74 69 63 29 29 29 20 3b 3b 20 57 54 46 2c 20 6c 65 6e 67 74 68 20 69 73 20 61 | ll-static))).;;.WTF,.length.is.a |
| 1ebdc0 | 6e 20 69 6e 74 65 72 70 72 65 74 65 64 20 66 75 6e 63 74 69 6f 6e 3f 3f 0a 20 20 20 20 20 20 20 | n.interpreted.function??........ |
| 1ebde0 | 20 20 20 20 20 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 6f 70 65 72 61 74 6f 72 29 0a 20 20 | .......(if.(symbolp.operator)... |
| 1ebe00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 28 73 79 6d 62 6f 6c | ................(not.(eq.(symbol |
| 1ebe20 | 2d 70 61 63 6b 61 67 65 20 6f 70 65 72 61 74 6f 72 29 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 | -package.operator).(find-package |
| 1ebe40 | 20 27 63 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 29 29 | .'cl)))...................t))))) |
| 1ebe60 | 0a 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c | ..#+#.(swank/backend:with-symbol |
| 1ebe80 | 20 27 66 69 6e 64 2d 6c 6f 63 61 6c 73 20 27 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 2f 73 | .'find-locals.'abcl-introspect/s |
| 1ebea0 | 79 73 29 0a 28 64 65 66 75 6e 20 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 2f 66 72 61 6d 65 | ys).(defun.abcl-introspect/frame |
| 1ebec0 | 2d 6c 6f 63 61 6c 73 20 28 66 72 61 6d 65 20 69 6e 64 65 78 29 0a 20 20 3b 3b 20 46 49 58 4d 45 | -locals.(frame.index)...;;.FIXME |
| 1ebee0 | 20 69 6e 74 72 6f 73 70 65 63 74 20 6c 6f 63 61 6c 73 20 69 6e 20 53 59 53 3a 3a 4a 41 56 41 2d | .introspect.locals.in.SYS::JAVA- |
| 1ebf00 | 53 54 41 43 4b 2d 46 52 41 4d 45 0a 20 20 28 6f 72 20 28 61 6e 64 20 28 61 72 65 2d 74 68 65 72 | STACK-FRAME...(or.(and.(are-ther |
| 1ebf20 | 65 2d 6c 6f 63 61 6c 73 3f 20 66 72 61 6d 65 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 | e-locals?.frame.index).......... |
| 1ebf40 | 20 20 28 6c 65 74 20 28 28 6c 6f 63 61 6c 73 20 28 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 | ..(let.((locals.(abcl-introspect |
| 1ebf60 | 2f 73 79 73 3a 66 69 6e 64 2d 6c 6f 63 61 6c 73 20 69 6e 64 65 78 20 28 62 61 63 6b 74 72 61 63 | /sys:find-locals.index.(backtrac |
| 1ebf80 | 65 20 30 20 28 31 2b 20 69 6e 64 65 78 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.0.(1+.index))))).............. |
| 1ebfa0 | 28 6c 65 74 20 28 28 61 72 67 63 6f 75 6e 74 20 28 6c 65 6e 67 74 68 20 28 63 64 72 20 28 6e 74 | (let.((argcount.(length.(cdr.(nt |
| 1ebfc0 | 68 2d 66 72 61 6d 65 2d 6c 69 73 74 20 69 6e 64 65 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | h-frame-list.index)))).......... |
| 1ebfe0 | 20 20 20 20 20 20 20 20 20 20 28 74 68 65 6d 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(them................. |
| 1ec000 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 70 65 72 61 74 6f 72 20 28 6a 73 73 3a 3a 67 65 74 2d | ......(let.((operator.(jss::get- |
| 1ec020 | 6a 61 76 61 2d 66 69 65 6c 64 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 20 22 6f 70 | java-field.(nth-frame.index)."op |
| 1ec040 | 65 72 61 74 6f 72 22 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | erator".t))).................... |
| 1ec060 | 20 20 20 20 28 6c 65 74 2a 20 28 28 65 6e 76 20 28 61 6e 64 20 28 6a 73 73 3a 3a 6a 74 79 70 65 | ....(let*.((env.(and.(jss::jtype |
| 1ec080 | 70 20 6f 70 65 72 61 74 6f 72 20 27 6c 69 73 70 2e 63 6c 6f 73 75 72 65 29 0a 20 20 20 20 20 20 | p.operator.'lisp.closure)....... |
| 1ec0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ec0c0 | 20 20 28 6a 73 73 3a 3a 67 65 74 2d 6a 61 76 61 2d 66 69 65 6c 64 20 6f 70 65 72 61 74 6f 72 20 | ..(jss::get-java-field.operator. |
| 1ec0e0 | 22 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | "environment".t))).............. |
| 1ec100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 6f 73 65 64 2d 63 6f 75 6e 74 20 28 | .................(closed-count.( |
| 1ec120 | 69 66 20 65 6e 76 20 28 6c 65 6e 67 74 68 20 28 73 79 73 3a 3a 65 6e 76 69 72 6f 6e 6d 65 6e 74 | if.env.(length.(sys::environment |
| 1ec140 | 2d 70 61 72 74 73 20 65 6e 76 29 29 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -parts.env)).0)))............... |
| 1ec160 | 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 6c 6f 73 | ...........(declare.(ignore.clos |
| 1ec180 | 65 64 2d 63 6f 75 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-count))...................... |
| 1ec1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 46 49 58 4d 45 20 63 6c 6f 73 65 | ...................;.FIXME.close |
| 1ec1c0 | 64 2d 6f 76 65 72 20 61 72 65 20 69 6e 20 70 61 72 74 73 20 62 75 74 20 61 6c 73 6f 20 69 6e 20 | d-over.are.in.parts.but.also.in. |
| 1ec1e0 | 6c 6f 63 61 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | locals.......................... |
| 1ec200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 46 49 58 4d 45 20 63 6c 6f 73 65 64 2d 6f 76 | ...............;.FIXME.closed-ov |
| 1ec220 | 65 72 20 61 72 65 20 69 6e 20 63 6f 6d 70 69 6c 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 | er.are.in.compiled.functions.to. |
| 1ec240 | 62 75 74 20 61 72 65 20 76 61 6c 75 65 20 6f 66 20 69 6e 74 65 72 6e 61 6c 20 66 69 65 6c 64 0a | but.are.value.of.internal.field. |
| 1ec260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ec280 | 20 20 20 20 20 20 20 20 3b 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 69 73 20 74 68 65 20 65 6e 76 | ........;.environment.is.the.env |
| 1ec2a0 | 69 72 6f 6d 6e 65 74 20 6f 66 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | iromnet.of...................... |
| 1ec2c0 | 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 6b 69 6e 64 20 73 79 6d 62 6f 6c 20 76 61 6c 75 | .....(loop.for.(kind.symbol.valu |
| 1ec2e0 | 65 29 20 69 6e 20 28 63 61 61 72 20 6c 6f 63 61 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e).in.(caar.locals)............. |
| 1ec300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 65 71 20 6b 69 6e 64 | ...................when.(eq.kind |
| 1ec320 | 20 3a 6c 65 78 69 63 61 6c 2d 76 61 72 69 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .:lexical-variable)............. |
| 1ec340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 46 49 | ............................;.FI |
| 1ec360 | 58 4d 45 20 73 68 6f 75 6c 64 20 49 20 71 75 61 6c 69 66 79 20 65 61 63 68 20 62 79 20 77 68 65 | XME.should.I.qualify.each.by.whe |
| 1ec380 | 74 68 65 72 20 61 72 67 2c 20 63 6c 6f 73 65 64 2d 6f 76 65 72 2c 20 6c 65 74 2d 62 6f 75 6e 64 | ther.arg,.closed-over,.let-bound |
| 1ec3a0 | 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ?............................... |
| 1ec3c0 | 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 6e 61 6d 65 20 73 79 6d 62 6f 6c 20 0a 20 | ...collect.(list.:name.symbol... |
| 1ec3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ec400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 30 20 20 20 20 20 20 20 20 0a 20 20 20 20 | ..............:id.0............. |
| 1ec420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ec440 | 20 20 20 20 20 20 20 20 20 20 20 3a 76 61 6c 75 65 20 76 61 6c 75 65 29 29 29 29 29 29 0a 20 20 | ...........:value.value))))))... |
| 1ec460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 | .............(declare.(ignore.ar |
| 1ec480 | 67 63 6f 75 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 76 65 72 73 65 | gcount))................(reverse |
| 1ec4a0 | 20 74 68 65 6d 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | .them))))))..(defimplementation. |
| 1ec4c0 | 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 28 69 6e 64 65 78 29 0a 20 20 28 6c 65 74 20 28 28 66 72 | frame-locals.(index)...(let.((fr |
| 1ec4e0 | 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 29 20 20 20 20 20 20 20 20 20 | ame.(nth-frame.index)))......... |
| 1ec500 | 3b 3b 28 69 64 20 2d 31 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 2d 6c 6f 63 61 6c | ;;(id.-1).....(let.((frame-local |
| 1ec520 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a | s.............#+abcl-introspect. |
| 1ec540 | 20 20 20 20 20 20 20 20 20 20 20 20 28 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 2f 66 72 61 | ............(abcl-introspect/fra |
| 1ec560 | 6d 65 2d 6c 6f 63 61 6c 73 20 66 72 61 6d 65 20 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 | me-locals.frame.index))......... |
| 1ec580 | 20 20 3b 3b 3b 20 57 65 20 69 6e 63 6c 75 64 65 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 74 | ..;;;.We.include.the.arguments.t |
| 1ec5a0 | 6f 20 74 68 65 20 66 72 61 6d 65 20 74 6f 20 74 68 65 20 6c 69 73 74 20 6f 66 0a 20 20 20 20 20 | o.the.frame.to.the.list.of...... |
| 1ec5c0 | 20 20 20 20 20 3b 3b 3b 20 6c 6f 63 61 6c 73 2e 20 20 54 4f 44 4f 3a 20 66 69 67 75 72 65 20 6f | .....;;;.locals...TODO:.figure.o |
| 1ec5e0 | 75 74 20 69 66 20 74 68 65 72 65 20 69 73 20 61 20 62 65 74 74 65 72 20 70 6c 61 63 65 2c 0a 20 | ut.if.there.is.a.better.place,.. |
| 1ec600 | 20 20 20 20 20 20 20 20 20 3b 3b 3b 20 61 6e 64 20 61 74 20 6c 65 61 73 74 20 64 65 63 6f 72 61 | .........;;;.and.at.least.decora |
| 1ec620 | 74 65 20 61 72 67 75 6d 65 6e 74 73 20 64 69 66 66 65 72 65 6e 74 6c 79 20 66 72 6f 6d 20 6c 6f | te.arguments.differently.from.lo |
| 1ec640 | 63 61 6c 73 0a 20 20 20 20 20 20 20 20 20 20 28 66 72 61 6d 65 2d 61 72 67 75 6d 65 6e 74 73 20 | cals...........(frame-arguments. |
| 1ec660 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............(loop.............. |
| 1ec680 | 20 3a 77 69 74 68 20 66 72 61 6d 65 20 3d 20 28 6e 74 68 2d 66 72 61 6d 65 2d 6c 69 73 74 20 69 | .:with.frame.=.(nth-frame-list.i |
| 1ec6a0 | 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 77 69 74 68 20 6f 70 65 72 61 74 | ndex)...............:with.operat |
| 1ec6c0 | 6f 72 20 3d 20 28 66 69 72 73 74 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | or.=.(first.frame).............. |
| 1ec6e0 | 20 3a 77 69 74 68 20 76 61 6c 75 65 73 20 3d 20 28 72 65 73 74 20 66 72 61 6d 65 29 0a 20 20 20 | .:with.values.=.(rest.frame).... |
| 1ec700 | 20 20 20 20 20 20 20 20 20 20 20 3a 77 69 74 68 20 61 72 67 6c 69 73 74 20 3d 20 28 69 66 20 28 | ...........:with.arglist.=.(if.( |
| 1ec720 | 61 6e 64 20 6f 70 65 72 61 74 6f 72 20 28 63 6f 6e 73 70 20 76 61 6c 75 65 73 29 20 28 6e 6f 74 | and.operator.(consp.values).(not |
| 1ec740 | 20 28 6e 75 6c 6c 20 76 61 6c 75 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(null.values)))................ |
| 1ec760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 | ...................(handler-case |
| 1ec780 | 20 28 6d 61 74 63 68 2d 6c 61 6d 62 64 61 20 6f 70 65 72 61 74 6f 72 20 76 61 6c 75 65 73 29 0a | .(match-lambda.operator.values). |
| 1ec7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ec7c0 | 20 20 20 20 28 6a 76 6d 3a 3a 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6d 69 73 6d 61 74 63 68 20 28 | ....(jvm::lambda-list-mismatch.( |
| 1ec7e0 | 65 29 20 28 64 65 63 6c 61 72 65 28 69 67 6e 6f 72 65 20 65 29 29 0a 20 20 20 20 20 20 20 20 20 | e).(declare(ignore.e)).......... |
| 1ec800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 61 | .............................:la |
| 1ec820 | 6d 62 64 61 2d 6c 69 73 74 2d 6d 69 73 6d 61 74 63 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | mbda-list-mismatch))............ |
| 1ec840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 6f 74 2d 61 76 61 69 | .......................:not-avai |
| 1ec860 | 6c 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 6f 72 20 76 61 6c 75 65 20 | lable)...............:for.value. |
| 1ec880 | 3a 69 6e 20 76 61 6c 75 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 6f 72 20 69 64 | :in.values...............:for.id |
| 1ec8a0 | 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6c 6c 65 63 74 69 6e | .from.0...............:collectin |
| 1ec8c0 | 67 20 28 6c 69 73 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g.(list......................... |
| 1ec8e0 | 20 20 20 20 3a 6e 61 6d 65 20 28 69 66 20 28 6e 6f 74 20 28 6b 65 79 77 6f 72 64 70 20 61 72 67 | ....:name.(if.(not.(keywordp.arg |
| 1ec900 | 6c 69 73 74 29 29 20 3b 3b 20 46 49 58 4d 45 3a 20 57 48 61 74 20 64 6f 65 73 20 74 68 69 73 20 | list)).;;.FIXME:.WHat.does.this. |
| 1ec920 | 64 6f 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | do?............................. |
| 1ec940 | 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 61 72 67 2d 7e 61 22 20 28 66 | .........(format.nil."arg-~a".(f |
| 1ec960 | 69 72 73 74 20 28 6e 74 68 20 69 64 20 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 | irst.(nth.id.arglist)))......... |
| 1ec980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f | .............................(fo |
| 1ec9a0 | 72 6d 61 74 20 6e 69 6c 20 22 61 72 67 7e 41 22 20 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 | rmat.nil."arg~A".id))........... |
| 1ec9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 20 30 20 3b 3b 20 46 49 58 4d 45 3a | .................:id.0.;;.FIXME: |
| 1ec9e0 | 20 64 65 74 65 72 6d 69 6e 65 20 68 6f 77 20 69 73 20 3a 49 44 20 73 75 70 70 6f 73 65 64 20 74 | .determine.how.is.:ID.supposed.t |
| 1eca00 | 6f 20 62 65 20 75 73 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o.be.used....................... |
| 1eca20 | 20 20 20 20 20 3a 76 61 6c 75 65 20 76 61 6c 75 65 29 29 29 29 0a 20 20 20 20 20 20 28 61 70 70 | .....:value.value)))).......(app |
| 1eca40 | 65 6e 64 20 66 72 61 6d 65 2d 61 72 67 75 6d 65 6e 74 73 20 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 | end.frame-arguments.frame-locals |
| 1eca60 | 29 29 29 29 0a 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 | ))))..#+#.(swank/backend:with-sy |
| 1eca80 | 6d 62 6f 6c 20 27 66 69 6e 64 2d 6c 6f 63 61 6c 73 20 27 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 | mbol.'find-locals.'abcl-introspe |
| 1ecaa0 | 63 74 2f 73 79 73 29 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 | ct/sys).(defimplementation.frame |
| 1ecac0 | 2d 63 61 74 63 68 2d 74 61 67 73 20 28 69 6e 64 65 78 29 0a 20 20 28 6d 61 70 63 61 72 20 27 73 | -catch-tags.(index)...(mapcar.'s |
| 1ecae0 | 65 63 6f 6e 64 20 28 72 65 6d 6f 76 65 20 3a 63 61 74 63 68 20 28 63 61 61 72 20 28 61 62 63 6c | econd.(remove.:catch.(caar.(abcl |
| 1ecb00 | 2d 69 6e 74 72 6f 73 70 65 63 74 2f 73 79 73 3a 66 69 6e 64 2d 6c 6f 63 61 6c 73 20 69 6e 64 65 | -introspect/sys:find-locals.inde |
| 1ecb20 | 78 20 28 62 61 63 6b 74 72 61 63 65 20 30 20 28 31 2b 20 69 6e 64 65 78 29 29 29 29 0a 20 20 20 | x.(backtrace.0.(1+.index)))).... |
| 1ecb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 2d 6e 6f 74 | .......................:test-not |
| 1ecb60 | 20 27 65 71 20 3a 6b 65 79 20 27 63 61 72 29 29 29 0a 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 | .'eq.:key.'car)))..#+#.(swank/ba |
| 1ecb80 | 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 66 69 6e 64 2d 6c 6f 63 61 6c 73 20 27 | ckend:with-symbol.'find-locals.' |
| 1ecba0 | 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 2f 73 79 73 29 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | abcl-introspect/sys).(defimpleme |
| 1ecbc0 | 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 69 6e 64 65 78 20 69 | ntation.frame-var-value.(index.i |
| 1ecbe0 | 64 29 0a 20 20 28 69 66 20 28 61 72 65 2d 74 68 65 72 65 2d 6c 6f 63 61 6c 73 3f 20 28 6e 74 68 | d)...(if.(are-there-locals?.(nth |
| 1ecc00 | 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 28 74 68 69 72 | -frame.index).index).......(thir |
| 1ecc20 | 64 20 28 6e 74 68 20 69 64 20 28 72 65 76 65 72 73 65 20 28 72 65 6d 6f 76 65 20 3a 6c 65 78 69 | d.(nth.id.(reverse.(remove.:lexi |
| 1ecc40 | 63 61 6c 2d 76 61 72 69 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cal-variable.................... |
| 1ecc60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 61 72 20 28 61 62 63 6c 2d 69 | ...................(caar.(abcl-i |
| 1ecc80 | 6e 74 72 6f 73 70 65 63 74 2f 73 79 73 3a 66 69 6e 64 2d 6c 6f 63 61 6c 73 20 69 6e 64 65 78 20 | ntrospect/sys:find-locals.index. |
| 1ecca0 | 28 62 61 63 6b 74 72 61 63 65 20 30 20 28 31 2b 20 69 6e 64 65 78 29 29 29 29 0a 20 20 20 20 20 | (backtrace.0.(1+.index))))...... |
| 1eccc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ecce0 | 20 3a 74 65 73 74 2d 6e 6f 74 20 27 65 71 20 3a 6b 65 79 20 27 63 61 72 29 29 29 29 0a 20 20 20 | .:test-not.'eq.:key.'car)))).... |
| 1ecd00 | 20 20 20 28 65 6c 74 20 28 72 65 73 74 20 28 6a 63 61 6c 6c 20 22 74 6f 4c 69 73 70 4c 69 73 74 | ...(elt.(rest.(jcall."toLispList |
| 1ecd20 | 22 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 29 20 69 64 29 29 29 0a 0a 23 2b 23 | ".(nth-frame.index))).id)))..#+# |
| 1ecd40 | 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 66 69 6e | .(swank/backend:with-symbol.'fin |
| 1ecd60 | 64 2d 6c 6f 63 61 6c 73 20 27 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 2f 73 79 73 29 0a 28 | d-locals.'abcl-introspect/sys).( |
| 1ecd80 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 72 | defimplementation.disassemble-fr |
| 1ecda0 | 61 6d 65 20 28 69 6e 64 65 78 29 0a 20 20 28 73 79 73 3a 3a 64 69 73 61 73 73 65 6d 62 6c 65 20 | ame.(index)...(sys::disassemble. |
| 1ecdc0 | 28 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 | (frame-function.(nth-frame.index |
| 1ecde0 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 28 66 72 61 | ))))..(defun.frame-function.(fra |
| 1ece00 | 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 6c 69 73 74 20 28 73 79 73 3a 3a 66 72 61 6d 65 2d 74 6f | me)...(let.((list.(sys::frame-to |
| 1ece20 | 2d 6c 69 73 74 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 0a 20 20 20 20 20 20 | -list.frame))).....(cond........ |
| 1ece40 | 28 28 6b 65 79 77 6f 72 64 70 20 28 63 61 72 20 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 28 66 | ((keywordp.(car.list))........(f |
| 1ece60 | 69 6e 64 20 28 67 65 74 66 20 6c 69 73 74 20 3a 6d 65 74 68 6f 64 29 20 0a 20 20 20 20 20 20 20 | ind.(getf.list.:method)......... |
| 1ece80 | 20 20 20 20 20 20 28 6a 63 61 6c 6c 20 22 67 65 74 44 65 63 6c 61 72 65 64 4d 65 74 68 6f 64 73 | ......(jcall."getDeclaredMethods |
| 1ecea0 | 22 20 28 6a 63 6c 61 73 73 20 28 67 65 74 66 20 6c 69 73 74 20 3a 63 6c 61 73 73 29 29 29 0a 20 | ".(jclass.(getf.list.:class))).. |
| 1ecec0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 28 6c 61 6d 62 64 61 28 65 29 28 6a 63 61 6c | ............:key.(lambda(e)(jcal |
| 1ecee0 | 6c 20 22 67 65 74 4e 61 6d 65 22 20 65 29 29 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 20 | l."getName".e)).:test.'equal)).. |
| 1ecf00 | 20 20 20 20 20 28 74 20 28 63 61 72 20 6c 69 73 74 29 20 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 | .....(t.(car.list).))))..(defimp |
| 1ecf20 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | lementation.frame-source-locatio |
| 1ecf40 | 6e 20 28 69 6e 64 65 78 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 | n.(index)...(let.((frame.(nth-fr |
| 1ecf60 | 61 6d 65 20 69 6e 64 65 78 29 29 29 0a 20 20 20 20 28 6f 72 20 28 73 6f 75 72 63 65 2d 6c 6f 63 | ame.index))).....(or.(source-loc |
| 1ecf80 | 61 74 69 6f 6e 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 | ation.(nth-frame.index))........ |
| 1ecfa0 | 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4e 6f 20 73 6f 75 72 63 | .`(:error.,(format.nil."No.sourc |
| 1ecfc0 | 65 20 66 6f 72 20 66 72 61 6d 65 3a 20 7e 61 22 20 66 72 61 6d 65 29 29 29 29 29 0a 0a 0a 3b 3b | e.for.frame:.~a".frame)))))...;; |
| 1ecfe0 | 3b 3b 20 43 6f 6d 70 69 6c 65 72 20 68 6f 6f 6b 73 0a 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 | ;;.Compiler.hooks..(defvar.*buff |
| 1ed000 | 65 72 2d 6e 61 6d 65 2a 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 73 74 | er-name*.nil).(defvar.*buffer-st |
| 1ed020 | 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 29 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 73 | art-position*).(defvar.*buffer-s |
| 1ed040 | 74 72 69 6e 67 2a 29 0a 28 64 65 66 76 61 72 20 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 6e 61 6d | tring*).(defvar.*compile-filenam |
| 1ed060 | 65 2a 29 0a 0a 28 64 65 66 76 61 72 20 2a 61 62 63 6c 2d 73 69 67 6e 61 6c 65 64 2d 63 6f 6e 64 | e*)..(defvar.*abcl-signaled-cond |
| 1ed080 | 69 74 69 6f 6e 73 2a 29 0a 0a 28 64 65 66 75 6e 20 68 61 6e 64 6c 65 2d 63 6f 6d 70 69 6c 65 72 | itions*)..(defun.handle-compiler |
| 1ed0a0 | 2d 77 61 72 6e 69 6e 67 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 6c 6f | -warning.(condition)...(let.((lo |
| 1ed0c0 | 63 20 28 77 68 65 6e 20 28 61 6e 64 20 6a 76 6d 3a 3a 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d | c.(when.(and.jvm::*compile-file- |
| 1ed0e0 | 70 61 74 68 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pathname*....................... |
| 1ed100 | 20 20 73 79 73 74 65 6d 3a 3a 2a 73 6f 75 72 63 65 2d 70 6f 73 69 74 69 6f 6e 2a 29 0a 20 20 20 | ..system::*source-position*).... |
| 1ed120 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 6a 76 6d 3a 3a 2a 63 6f 6d 70 69 6c 65 2d | ............(cons.jvm::*compile- |
| 1ed140 | 66 69 6c 65 2d 70 61 74 68 6e 61 6d 65 2a 20 73 79 73 74 65 6d 3a 3a 2a 73 6f 75 72 63 65 2d 70 | file-pathname*.system::*source-p |
| 1ed160 | 6f 73 69 74 69 6f 6e 2a 29 29 29 29 0a 20 20 20 20 3b 3b 20 66 69 6c 74 65 72 20 63 6f 6e 64 69 | osition*)))).....;;.filter.condi |
| 1ed180 | 74 69 6f 6e 20 73 69 67 6e 61 6c 65 64 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 63 65 2e 0a 20 20 | tion.signaled.more.than.once.... |
| 1ed1a0 | 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 63 6f 6e 64 69 74 69 6f 6e 20 2a 61 62 63 | ..(unless.(member.condition.*abc |
| 1ed1c0 | 6c 2d 73 69 67 6e 61 6c 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 73 2a 29 0a 20 20 20 20 20 20 28 70 | l-signaled-conditions*).......(p |
| 1ed1e0 | 75 73 68 20 63 6f 6e 64 69 74 69 6f 6e 20 2a 61 62 63 6c 2d 73 69 67 6e 61 6c 65 64 2d 63 6f 6e | ush.condition.*abcl-signaled-con |
| 1ed200 | 64 69 74 69 6f 6e 73 2a 29 0a 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 27 63 6f 6d 70 69 6c 65 | ditions*).......(signal.'compile |
| 1ed220 | 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 72 69 67 69 | r-condition...............:origi |
| 1ed240 | 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | nal-condition.condition......... |
| 1ed260 | 20 20 20 20 20 20 3a 73 65 76 65 72 69 74 79 20 3a 77 61 72 6e 69 6e 67 0a 20 20 20 20 20 20 20 | ......:severity.:warning........ |
| 1ed280 | 20 20 20 20 20 20 20 3a 6d 65 73 73 61 67 65 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 22 | .......:message.(format.nil."~A" |
| 1ed2a0 | 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 | .condition)...............:locat |
| 1ed2c0 | 69 6f 6e 20 28 63 6f 6e 64 20 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 | ion.(cond.(*buffer-name*........ |
| 1ed2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f | ........................(make-lo |
| 1ed300 | 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cation.......................... |
| 1ed320 | 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d | .......(list.:buffer.*buffer-nam |
| 1ed340 | 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e*)............................. |
| 1ed360 | 20 20 20 20 28 6c 69 73 74 20 3a 6f 66 66 73 65 74 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d | ....(list.:offset.*buffer-start- |
| 1ed380 | 70 6f 73 69 74 69 6f 6e 2a 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | position*.0))).................. |
| 1ed3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............(loc............... |
| 1ed3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d | .................(destructuring- |
| 1ed3e0 | 62 69 6e 64 20 28 66 69 6c 65 20 2e 20 70 6f 73 29 20 6c 6f 63 0a 20 20 20 20 20 20 20 20 20 20 | bind.(file...pos).loc........... |
| 1ed400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 | .......................(make-loc |
| 1ed420 | 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ation........................... |
| 1ed440 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 | ........(list.:file.(namestring. |
| 1ed460 | 28 74 72 75 65 6e 61 6d 65 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (truename.file)))............... |
| 1ed480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 | ....................(list.:posit |
| 1ed4a0 | 69 6f 6e 20 28 31 2b 20 70 6f 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion.(1+.pos)))))................ |
| 1ed4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............(t............... |
| 1ed4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 0a | .................(make-location. |
| 1ed500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ed520 | 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 2a 63 6f 6d 70 69 6c 65 | (list.:file.(namestring.*compile |
| 1ed540 | 2d 66 69 6c 65 6e 61 6d 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -filename*)).................... |
| 1ed560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 31 29 29 | .............(list.:position.1)) |
| 1ed580 | 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b | ))))))..(defimplementation.swank |
| 1ed5a0 | 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 | -compile-file.(input-file.output |
| 1ed5c0 | 2d 66 69 6c 65 20 6c 6f 61 64 2d 70 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 | -file.load-p.external-format.... |
| 1ed5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ed600 | 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e | ....&key.policy)...(declare.(ign |
| 1ed620 | 6f 72 65 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 | ore.external-format.policy))...( |
| 1ed640 | 6c 65 74 20 28 28 6a 76 6d 3a 3a 2a 72 65 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 | let.((jvm::*resignal-compiler-wa |
| 1ed660 | 72 6e 69 6e 67 73 2a 20 74 29 0a 20 20 20 20 20 20 20 20 28 2a 61 62 63 6c 2d 73 69 67 6e 61 6c | rnings*.t).........(*abcl-signal |
| 1ed680 | 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 73 2a 20 6e 69 6c 29 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 | ed-conditions*.nil)).....(handle |
| 1ed6a0 | 72 2d 62 69 6e 64 20 28 28 77 61 72 6e 69 6e 67 20 23 27 68 61 6e 64 6c 65 2d 63 6f 6d 70 69 6c | r-bind.((warning.#'handle-compil |
| 1ed6c0 | 65 72 2d 77 61 72 6e 69 6e 67 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 | er-warning)).......(let.((*buffe |
| 1ed6e0 | 72 2d 6e 61 6d 65 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 63 6f 6d 70 69 | r-name*.nil).............(*compi |
| 1ed700 | 6c 65 2d 66 69 6c 65 6e 61 6d 65 2a 20 69 6e 70 75 74 2d 66 69 6c 65 29 29 0a 20 20 20 20 20 20 | le-filename*.input-file))....... |
| 1ed720 | 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 6e 20 77 61 72 6e 20 | ..(multiple-value-bind.(fn.warn. |
| 1ed740 | 66 61 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 | fail).............(compile-file. |
| 1ed760 | 69 6e 70 75 74 2d 66 69 6c 65 20 3a 6f 75 74 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 | input-file.:output-file.output-f |
| 1ed780 | 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 66 6e 20 77 61 72 6e 0a 20 | ile)...........(values.fn.warn.. |
| 1ed7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 66 6e 20 6c 6f 61 64 2d 70 0a | .................(and.fn.load-p. |
| 1ed7c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6c 6f 61 | .......................(not.(loa |
| 1ed7e0 | 64 20 66 6e 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | d.fn)))))))))..(defimplementatio |
| 1ed800 | 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 | n.swank-compile-string.(string.& |
| 1ed820 | 6b 65 79 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 | key.buffer.position.filename.... |
| 1ed840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ed860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 | .............line.column.policy) |
| 1ed880 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 69 6c 65 6e 61 6d 65 20 6c 69 6e | ...(declare.(ignore.filename.lin |
| 1ed8a0 | 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 6c 65 74 20 28 28 6a 76 6d 3a 3a | e.column.policy))...(let.((jvm:: |
| 1ed8c0 | 2a 72 65 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 73 2a 20 74 29 0a | *resignal-compiler-warnings*.t). |
| 1ed8e0 | 20 20 20 20 20 20 20 20 28 2a 61 62 63 6c 2d 73 69 67 6e 61 6c 65 64 2d 63 6f 6e 64 69 74 69 6f | ........(*abcl-signaled-conditio |
| 1ed900 | 6e 73 2a 20 6e 69 6c 29 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 77 61 | ns*.nil)).....(handler-bind.((wa |
| 1ed920 | 72 6e 69 6e 67 20 23 27 68 61 6e 64 6c 65 2d 63 6f 6d 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 29 | rning.#'handle-compiler-warning) |
| 1ed940 | 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 62 75 66 | ).......(let.((*buffer-name*.buf |
| 1ed960 | 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d | fer).............(*buffer-start- |
| 1ed980 | 70 6f 73 69 74 69 6f 6e 2a 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | position*.position)............. |
| 1ed9a0 | 28 2a 62 75 66 66 65 72 2d 73 74 72 69 6e 67 2a 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 | (*buffer-string*.string)........ |
| 1ed9c0 | 20 20 20 20 20 28 73 79 73 3a 3a 2a 73 6f 75 72 63 65 2a 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 | .....(sys::*source*.(make-pathna |
| 1ed9e0 | 6d 65 20 3a 64 65 76 69 63 65 20 22 65 6d 61 63 73 2d 62 75 66 66 65 72 22 20 3a 6e 61 6d 65 20 | me.:device."emacs-buffer".:name. |
| 1eda00 | 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 3a 2a 73 6f 75 72 | buffer)).............(sys::*sour |
| 1eda20 | 63 65 2d 70 6f 73 69 74 69 6f 6e 2a 20 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 | ce-position*.position))......... |
| 1eda40 | 28 66 75 6e 63 61 6c 6c 20 28 63 6f 6d 70 69 6c 65 20 6e 69 6c 20 28 72 65 61 64 2d 66 72 6f 6d | (funcall.(compile.nil.(read-from |
| 1eda60 | 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -string......................... |
| 1eda80 | 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 28 7e 53 20 28 29 20 7e 41 29 22 20 | .......(format.nil."(~S.().~A)". |
| 1edaa0 | 27 6c 61 6d 62 64 61 20 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 74 29 29 29 29 | 'lambda.string)))).........t)))) |
| 1edac0 | 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ..;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 1edae0 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 1edb00 | 3b 3b 0a 3b 3b 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 61 6e 64 20 75 73 65 72 73 20 | ;;.;;.source.location.and.users. |
| 1edb20 | 6f 66 20 69 74 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 73 | of.it..(defimplementation.find-s |
| 1edb40 | 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 74 68 69 6e 67 29 0a 20 20 28 73 6f 75 72 63 65 | ource-location.(thing)...(source |
| 1edb60 | 2d 6c 6f 63 61 74 69 6f 6e 20 74 68 69 6e 67 29 29 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 20 73 | -location.thing))..(defgeneric.s |
| 1edb80 | 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 62 6a 65 63 74 29 29 0a 0a 3b 3b 20 74 72 79 | ource-location.(object))..;;.try |
| 1edba0 | 20 74 6f 20 66 69 6e 64 20 73 6f 6d 65 20 6b 69 6e 64 20 6f 66 20 73 6f 75 72 63 65 20 66 6f 72 | .to.find.some.kind.of.source.for |
| 1edbc0 | 20 69 6e 74 65 72 6e 61 6c 73 0a 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 28 64 65 | .internals.#+abcl-introspect.(de |
| 1edbe0 | 66 75 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 | fun.implementation-source-locati |
| 1edc00 | 6f 6e 20 28 61 72 67 29 0a 20 20 28 6c 65 74 20 28 28 66 75 6e 63 74 69 6f 6e 20 28 63 6f 6e 64 | on.(arg)...(let.((function.(cond |
| 1edc20 | 20 28 28 66 75 6e 63 74 69 6f 6e 70 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .((functionp.arg)............... |
| 1edc40 | 20 20 20 20 20 20 20 20 20 20 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........arg)................. |
| 1edc60 | 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 61 72 67 29 20 28 66 62 6f | ........((and.(symbolp.arg).(fbo |
| 1edc80 | 75 6e 64 70 20 61 72 67 29 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | undp.arg))...................... |
| 1edca0 | 20 20 20 20 20 28 6f 72 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 61 72 67 29 20 28 | .....(or.(symbol-function.arg).( |
| 1edcc0 | 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 61 72 67 29 29 29 29 29 29 0a 20 20 20 20 28 77 68 | macro-function.arg)))))).....(wh |
| 1edce0 | 65 6e 20 28 74 79 70 65 70 20 66 75 6e 63 74 69 6f 6e 20 27 67 65 6e 65 72 69 63 2d 66 75 6e 63 | en.(typep.function.'generic-func |
| 1edd00 | 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 66 75 6e 63 74 69 6f 6e 20 28 6d 6f 70 3a | tion).......(setf.function.(mop: |
| 1edd20 | 3a 66 75 6e 63 61 6c 6c 61 62 6c 65 2d 69 6e 73 74 61 6e 63 65 2d 66 75 6e 63 74 69 6f 6e 20 66 | :funcallable-instance-function.f |
| 1edd40 | 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 3b 3b 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 | unction))).....;;.functions.are. |
| 1edd60 | 65 78 65 63 75 74 65 20 6d 65 74 68 6f 64 73 20 6f 66 20 63 6c 61 73 73 0a 20 20 20 20 28 77 68 | execute.methods.of.class.....(wh |
| 1edd80 | 65 6e 20 28 6f 72 20 28 66 75 6e 63 74 69 6f 6e 70 20 66 75 6e 63 74 69 6f 6e 29 20 28 73 70 65 | en.(or.(functionp.function).(spe |
| 1edda0 | 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 2d 70 20 61 72 67 29 29 0a 20 20 20 20 20 20 28 6c 65 74 | cial-operator-p.arg)).......(let |
| 1eddc0 | 20 28 28 66 63 6c 61 73 73 20 28 6a 63 61 6c 6c 20 22 67 65 74 43 6c 61 73 73 22 20 66 75 6e 63 | .((fclass.(jcall."getClass".func |
| 1edde0 | 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6c 61 73 73 6e 61 6d 65 | tion))).........(let.((classname |
| 1ede00 | 20 28 6a 63 61 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 66 63 6c 61 73 73 29 29 29 0a 20 20 20 20 | .(jcall."getName".fclass)))..... |
| 1ede20 | 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 63 6c 61 73 73 | ......(destructuring-bind.(class |
| 1ede40 | 20 6c 6f 63 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 69 6e 64 20 | .local)...............(if.(find. |
| 1ede60 | 23 5c 24 20 63 6c 61 73 73 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | #\$.classname).................. |
| 1ede80 | 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 63 6c 61 73 73 6e 61 6d 65 20 22 5c 5c 24 22 29 0a | .(split-string.classname."\\$"). |
| 1edea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 63 6c 61 73 73 6e 61 6d | ..................(list.classnam |
| 1edec0 | 65 20 28 6a 63 61 6c 6c 20 22 72 65 70 6c 61 63 65 46 69 72 73 74 22 20 63 6c 61 73 73 6e 61 6d | e.(jcall."replaceFirst".classnam |
| 1edee0 | 65 20 22 28 5b 5e 2e 5d 2a 5c 5c 2e 29 2a 22 20 22 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | e."([^.]*\\.)*"."")))........... |
| 1edf00 | 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 6c 6f 63 61 6c 20 27 28 22 4d 61 63 72 6f | ..(unless.(member.local.'("Macro |
| 1edf20 | 4f 62 6a 65 63 74 22 20 22 43 6f 6d 70 69 6c 65 64 43 6c 6f 73 75 72 65 22 20 22 43 6c 6f 73 75 | Object"."CompiledClosure"."Closu |
| 1edf40 | 72 65 22 29 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | re").:test.'equal).............. |
| 1edf60 | 20 3b 3b 20 6c 6f 6f 6b 20 66 6f 72 20 6a 61 76 61 20 73 6f 75 72 63 65 0a 20 20 20 20 20 20 20 | .;;.look.for.java.source........ |
| 1edf80 | 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 72 74 69 61 6c 2d 70 61 74 68 20 20 20 28 73 | .......(let*.((partial-path...(s |
| 1edfa0 | 75 62 73 74 69 74 75 74 65 20 23 5c 2f 20 23 5c 2e 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 | ubstitute.#\/.#\..class))....... |
| 1edfc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 61 76 61 2d 70 61 74 68 20 28 63 6f 6e 63 61 | ...............(java-path.(conca |
| 1edfe0 | 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 20 70 61 72 74 69 61 6c 2d 70 61 74 68 20 22 2e 6a 61 | tenate.'string.partial-path.".ja |
| 1ee000 | 76 61 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 75 6e | va"))......................(foun |
| 1ee020 | 64 2d 69 6e 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 28 66 69 6e 64 2d 66 69 6c 65 2d 69 6e 2d 70 | d-in-source-path.(find-file-in-p |
| 1ee040 | 61 74 68 20 6a 61 76 61 2d 70 61 74 68 20 2a 73 6f 75 72 63 65 2d 70 61 74 68 2a 29 29 29 20 0a | ath.java-path.*source-path*))).. |
| 1ee060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 6e 69 70 70 65 74 20 66 6f 72 20 66 | ................;;.snippet.for.f |
| 1ee080 | 69 6e 64 69 6e 67 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 63 6c 61 73 73 20 77 69 74 68 69 6e | inding.the.internal.class.within |
| 1ee0a0 | 20 74 68 65 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 66 6f | .the.file.................(if.fo |
| 1ee0c0 | 75 6e 64 2d 69 6e 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 | und-in-source-path.............. |
| 1ee0e0 | 20 20 20 20 20 20 20 20 60 28 28 3a 70 72 69 6d 69 74 69 76 65 20 2c 6c 6f 63 61 6c 29 0a 20 20 | ........`((:primitive.,local)... |
| 1ee100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 6f 63 61 74 69 6f 6e 20 2c | ....................(:location., |
| 1ee120 | 66 6f 75 6e 64 2d 69 6e 2d 73 6f 75 72 63 65 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 | found-in-source-path............ |
| 1ee140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 69 6e 65 20 30 29 0a | ......................(:line.0). |
| 1ee160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ee180 | 20 28 3a 73 6e 69 70 70 65 74 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 63 6c 61 73 73 20 7e | .(:snippet.,(format.nil."class.~ |
| 1ee1a0 | 61 22 20 6c 6f 63 61 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | a".local)))).................... |
| 1ee1c0 | 20 3b 3b 20 69 66 20 6e 6f 74 2c 20 6c 6f 6f 6b 20 66 6f 72 20 74 68 65 20 63 6c 61 73 73 20 66 | .;;.if.not,.look.for.the.class.f |
| 1ee1e0 | 69 6c 65 2c 20 61 6e 64 20 68 6f 70 65 20 74 68 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile,.and.hope.that.............. |
| 1ee200 | 20 20 20 20 20 20 20 3b 3b 20 65 6d 61 63 73 20 69 73 20 63 6f 6e 66 69 67 75 72 65 64 20 74 6f | .......;;.emacs.is.configured.to |
| 1ee220 | 20 64 69 73 61 73 73 65 6d 62 6c 65 20 63 6c 61 73 73 20 65 6e 74 72 69 65 73 0a 20 20 20 20 20 | .disassemble.class.entries...... |
| 1ee240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 6e 20 6a 61 72 73 2e 0a 0a 20 20 20 20 | ...............;;.in.jars....... |
| 1ee260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 6c 61 6e 20 75 73 65 73 20 6a 64 63 | ................;;.Alan.uses.jdc |
| 1ee280 | 2e 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 3c 68 74 74 70 | .el.....................;;.<http |
| 1ee2a0 | 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6d 30 73 6d 69 74 68 2f 64 6f 74 66 69 6c 65 73 2f | s://github.com/m0smith/dotfiles/ |
| 1ee2c0 | 62 6c 6f 62 2f 6d 61 73 74 65 72 2f 2e 65 6d 61 63 73 2e 64 2f 73 69 74 65 2d 6c 69 73 70 2f 6a | blob/master/.emacs.d/site-lisp/j |
| 1ee2e0 | 64 63 2e 65 6c 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 69 | dc.el>.....................;;.wi |
| 1ee300 | 74 68 20 6a 61 64 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6d 6f 70 61 72 | th.jad.<https://github.com/mopar |
| 1ee320 | 69 73 74 68 65 62 65 73 74 2f 6a 61 64 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | isthebest/jad>.................. |
| 1ee340 | 20 20 20 3b 3b 20 41 6c 73 6f 20 28 73 65 74 71 20 73 79 73 3a 3a 2a 64 69 73 61 73 73 65 6d 62 | ...;;.Also.(setq.sys::*disassemb |
| 1ee360 | 6c 65 72 2a 20 22 6a 61 64 20 2d 61 20 2d 70 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ler*."jad.-a.-p")............... |
| 1ee380 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6c 61 73 73 2d 69 6e 2d 73 6f 75 72 63 65 2d 70 61 74 | ......(let.((class-in-source-pat |
| 1ee3a0 | 68 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | h..............................( |
| 1ee3c0 | 66 69 6e 64 2d 66 69 6c 65 2d 69 6e 2d 70 61 74 68 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 | find-file-in-path.(concatenate.' |
| 1ee3e0 | 73 74 72 69 6e 67 20 70 61 72 74 69 61 6c 2d 70 61 74 68 20 22 2e 63 6c 61 73 73 22 29 20 2a 73 | string.partial-path.".class").*s |
| 1ee400 | 6f 75 72 63 65 2d 70 61 74 68 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ource-path*))).................. |
| 1ee420 | 20 20 20 20 20 3b 3b 20 6e 6f 20 73 6e 69 70 70 65 74 2c 20 73 69 6e 63 65 20 69 6e 74 65 72 6e | .....;;.no.snippet,.since.intern |
| 1ee440 | 61 6c 20 63 6c 61 73 73 20 69 73 20 69 6e 20 69 74 73 20 6f 77 6e 20 66 69 6c 65 0a 20 20 20 20 | al.class.is.in.its.own.file..... |
| 1ee460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 6c 61 73 73 2d 69 6e | ..................(when.class-in |
| 1ee480 | 2d 73 6f 75 72 63 65 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -source-path.................... |
| 1ee4a0 | 20 20 20 20 20 60 28 3a 70 72 69 6d 69 74 69 76 65 20 28 3a 6c 6f 63 61 74 69 6f 6e 20 2c 63 6c | .....`(:primitive.(:location.,cl |
| 1ee4c0 | 61 73 73 2d 69 6e 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 28 3a 6c 69 6e 65 20 30 29 20 6e 69 6c | ass-in-source-path.(:line.0).nil |
| 1ee4e0 | 29 29 29 29 29 29 29 29 29 29 29 29 29 0a 0a 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 | )))))))))))))..#+abcl-introspect |
| 1ee500 | 0a 28 64 65 66 75 6e 20 67 65 74 2d 64 65 63 6c 61 72 65 64 2d 66 69 65 6c 64 20 28 63 6c 61 73 | .(defun.get-declared-field.(clas |
| 1ee520 | 73 20 66 69 65 6c 64 6e 61 6d 65 29 0a 20 20 28 66 69 6e 64 20 66 69 65 6c 64 6e 61 6d 65 20 28 | s.fieldname)...(find.fieldname.( |
| 1ee540 | 6a 63 61 6c 6c 20 22 67 65 74 44 65 63 6c 61 72 65 64 46 69 65 6c 64 73 22 20 63 6c 61 73 73 29 | jcall."getDeclaredFields".class) |
| 1ee560 | 20 3a 6b 65 79 20 27 6a 66 69 65 6c 64 2d 6e 61 6d 65 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 | .:key.'jfield-name.:test.'equal) |
| 1ee580 | 29 0a 0a 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 28 64 65 66 75 6e 20 73 79 6d 62 | )..#+abcl-introspect.(defun.symb |
| 1ee5a0 | 6f 6c 2d 64 65 66 69 6e 65 64 2d 69 6e 2d 6a 61 76 61 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c | ol-defined-in-java.(symbol)...(l |
| 1ee5c0 | 6f 6f 70 20 20 77 69 74 68 20 69 6e 74 65 72 6e 61 6c 2d 6e 61 6d 65 31 20 3d 20 28 6a 63 61 6c | oop..with.internal-name1.=.(jcal |
| 1ee5e0 | 6c 20 22 72 65 70 6c 61 63 65 41 6c 6c 22 20 28 6a 63 61 6c 6c 20 22 72 65 70 6c 61 63 65 41 6c | l."replaceAll".(jcall."replaceAl |
| 1ee600 | 6c 22 20 28 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 20 22 5c 5c 2a 22 20 22 22 29 20 22 2d 22 | l".(string.symbol)."\\*"."")."-" |
| 1ee620 | 20 22 5f 22 29 0a 20 20 20 20 20 20 20 20 20 77 69 74 68 20 69 6e 74 65 72 6e 61 6c 2d 6e 61 6d | ."_")..........with.internal-nam |
| 1ee640 | 65 32 20 3d 20 28 6a 63 61 6c 6c 20 22 72 65 70 6c 61 63 65 41 6c 6c 22 20 28 6a 63 61 6c 6c 20 | e2.=.(jcall."replaceAll".(jcall. |
| 1ee660 | 22 72 65 70 6c 61 63 65 41 6c 6c 22 20 28 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 20 22 5c 5c | "replaceAll".(string.symbol)."\\ |
| 1ee680 | 2a 22 20 22 5f 22 29 20 22 2d 22 20 22 5f 22 29 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 63 6c | *"."_")."-"."_")..........for.cl |
| 1ee6a0 | 61 73 73 20 69 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 61 64 | ass.in.....................(load |
| 1ee6c0 | 2d 74 69 6d 65 2d 76 61 6c 75 65 20 28 6d 61 70 63 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -time-value.(mapcar............. |
| 1ee6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6a 63 6c 61 73 73 | .........................'jclass |
| 1ee700 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ee720 | 20 20 20 20 20 20 27 28 22 6f 72 67 2e 61 72 6d 65 64 62 65 61 72 2e 6c 69 73 70 2e 50 61 63 6b | ......'("org.armedbear.lisp.Pack |
| 1ee740 | 61 67 65 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | age"............................ |
| 1ee760 | 20 20 20 20 20 20 20 20 20 20 20 20 22 6f 72 67 2e 61 72 6d 65 64 62 65 61 72 2e 6c 69 73 70 2e | ............"org.armedbear.lisp. |
| 1ee780 | 53 79 6d 62 6f 6c 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | Symbol"......................... |
| 1ee7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6f 72 67 2e 61 72 6d 65 64 62 65 61 72 2e 6c 69 | ..............."org.armedbear.li |
| 1ee7c0 | 73 70 2e 44 65 62 75 67 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sp.Debug"....................... |
| 1ee7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6f 72 67 2e 61 72 6d 65 64 62 65 61 72 2e | ................."org.armedbear. |
| 1ee800 | 6c 69 73 70 2e 45 78 74 65 6e 73 69 6f 6e 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lisp.Extensions"................ |
| 1ee820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6f 72 67 2e 61 72 6d | ........................"org.arm |
| 1ee840 | 65 64 62 65 61 72 2e 6c 69 73 70 2e 4a 61 76 61 4f 62 6a 65 63 74 22 0a 20 20 20 20 20 20 20 20 | edbear.lisp.JavaObject"......... |
| 1ee860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | ..............................." |
| 1ee880 | 6f 72 67 2e 61 72 6d 65 64 62 65 61 72 2e 6c 69 73 70 2e 4c 69 73 70 22 0a 20 20 20 20 20 20 20 | org.armedbear.lisp.Lisp"........ |
| 1ee8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ee8c0 | 22 6f 72 67 2e 61 72 6d 65 64 62 65 61 72 2e 6c 69 73 70 2e 50 61 74 68 6e 61 6d 65 22 0a 20 20 | "org.armedbear.lisp.Pathname"... |
| 1ee8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1ee900 | 20 20 20 20 20 22 6f 72 67 2e 61 72 6d 65 64 62 65 61 72 2e 6c 69 73 70 2e 53 69 74 65 22 29 29 | ....."org.armedbear.lisp.Site")) |
| 1ee920 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 74 68 65 72 65 69 73 20 0a 20 20 20 20 20 20 20 20 20 20 | )............thereis............ |
| 1ee940 | 20 28 6f 72 20 28 67 65 74 2d 64 65 63 6c 61 72 65 64 2d 66 69 65 6c 64 20 63 6c 61 73 73 20 69 | .(or.(get-declared-field.class.i |
| 1ee960 | 6e 74 65 72 6e 61 6c 2d 6e 61 6d 65 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 | nternal-name1)................(g |
| 1ee980 | 65 74 2d 64 65 63 6c 61 72 65 64 2d 66 69 65 6c 64 20 63 6c 61 73 73 20 69 6e 74 65 72 6e 61 6c | et-declared-field.class.internal |
| 1ee9a0 | 2d 6e 61 6d 65 32 29 29 29 29 0a 0a 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 28 64 | -name2))))..#+abcl-introspect.(d |
| 1ee9c0 | 65 66 75 6e 20 6d 61 79 62 65 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 61 72 69 61 62 | efun.maybe-implementation-variab |
| 1ee9e0 | 6c 65 20 28 73 29 0a 20 20 28 6c 65 74 20 28 28 66 69 65 6c 64 20 28 73 79 6d 62 6f 6c 2d 64 65 | le.(s)...(let.((field.(symbol-de |
| 1eea00 | 66 69 6e 65 64 2d 69 6e 2d 6a 61 76 61 20 73 29 29 29 0a 20 20 20 20 28 61 6e 64 20 66 69 65 6c | fined-in-java.s))).....(and.fiel |
| 1eea20 | 64 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6c 61 73 73 20 28 6a 63 61 6c 6c 20 22 | d..........(let.((class.(jcall." |
| 1eea40 | 67 65 74 4e 61 6d 65 22 20 28 6a 63 61 6c 6c 20 22 67 65 74 44 65 63 6c 61 72 69 6e 67 43 6c 61 | getName".(jcall."getDeclaringCla |
| 1eea60 | 73 73 22 20 66 69 65 6c 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 | ss".field))))............(let*.( |
| 1eea80 | 28 70 61 72 74 69 61 6c 2d 70 61 74 68 20 28 73 75 62 73 74 69 74 75 74 65 20 23 5c 2f 20 23 5c | (partial-path.(substitute.#\/.#\ |
| 1eeaa0 | 2e 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 61 76 | ..class))...................(jav |
| 1eeac0 | 61 2d 70 61 74 68 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 20 70 61 72 74 | a-path.(concatenate.'string.part |
| 1eeae0 | 69 61 6c 2d 70 61 74 68 20 22 2e 6a 61 76 61 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ial-path.".java")).............. |
| 1eeb00 | 20 20 20 20 20 28 66 6f 75 6e 64 2d 69 6e 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 28 66 69 6e 64 | .....(found-in-source-path.(find |
| 1eeb20 | 2d 66 69 6c 65 2d 69 6e 2d 70 61 74 68 20 6a 61 76 61 2d 70 61 74 68 20 2a 73 6f 75 72 63 65 2d | -file-in-path.java-path.*source- |
| 1eeb40 | 70 61 74 68 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 66 6f 75 6e | path*)))..............(when.foun |
| 1eeb60 | 64 2d 69 6e 2d 73 6f 75 72 63 65 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-in-source-path................ |
| 1eeb80 | 60 28 73 79 6d 62 6f 6c 20 28 3a 6c 6f 63 61 74 69 6f 6e 20 2c 66 6f 75 6e 64 2d 69 6e 2d 73 6f | `(symbol.(:location.,found-in-so |
| 1eeba0 | 75 72 63 65 2d 70 61 74 68 20 28 3a 6c 69 6e 65 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | urce-path.(:line.0)............. |
| 1eebc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 6e 69 70 70 65 74 | .......................(:snippet |
| 1eebe0 | 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 20 22 7e 73 22 20 28 73 74 72 69 6e 67 20 73 29 29 29 | .,(format.nil.."~s".(string.s))) |
| 1eec00 | 29 29 29 29 29 29 29 29 0a 0a 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 28 64 65 66 | ))))))))..#+abcl-introspect.(def |
| 1eec20 | 75 6e 20 69 66 2d 77 65 2d 68 61 76 65 2d 74 6f 2d 63 68 6f 6f 73 65 2d 6f 6e 65 2d 63 68 6f 6f | un.if-we-have-to-choose-one-choo |
| 1eec40 | 73 65 2d 74 68 65 2d 66 75 6e 63 74 69 6f 6e 20 28 73 6f 75 72 63 65 73 29 0a 20 20 28 6f 72 20 | se-the-function.(sources)...(or. |
| 1eec60 | 28 6c 6f 6f 70 20 66 6f 72 20 73 70 65 63 20 69 6e 20 20 73 6f 75 72 63 65 73 0a 20 20 20 20 20 | (loop.for.spec.in..sources...... |
| 1eec80 | 20 20 20 20 20 20 20 66 6f 72 20 28 64 73 70 65 63 29 20 3d 20 73 70 65 63 0a 20 20 20 20 20 20 | .......for.(dspec).=.spec....... |
| 1eeca0 | 20 20 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 64 73 70 65 63 29 20 28 65 | ......when.(and.(consp.dspec).(e |
| 1eecc0 | 71 20 28 63 61 72 20 64 73 70 65 63 29 20 3a 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 | q.(car.dspec).:function))....... |
| 1eece0 | 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 64 73 70 65 63 29 20 | ........when.(and.(consp.dspec). |
| 1eed00 | 28 6d 65 6d 62 65 72 20 28 63 61 72 20 64 73 70 65 63 29 20 27 28 3a 73 77 61 6e 6b 2d 69 6d 70 | (member.(car.dspec).'(:swank-imp |
| 1eed20 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 3a 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 | lementation.:function)))........ |
| 1eed40 | 20 20 20 20 20 20 20 20 20 64 6f 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 69 66 2d 77 65 2d 68 | .........do.(return-from.if-we-h |
| 1eed60 | 61 76 65 2d 74 6f 2d 63 68 6f 6f 73 65 2d 6f 6e 65 2d 63 68 6f 6f 73 65 2d 74 68 65 2d 66 75 6e | ave-to-choose-one-choose-the-fun |
| 1eed80 | 63 74 69 6f 6e 20 73 70 65 63 29 29 0a 20 20 20 20 20 20 28 63 61 72 20 73 6f 75 72 63 65 73 29 | ction.spec)).......(car.sources) |
| 1eeda0 | 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 | ))..(defmethod.source-location.( |
| 1eedc0 | 28 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 29 29 0a 20 20 28 6f 72 20 23 2b 61 62 63 6c 2d 69 6e | (symbol.symbol))...(or.#+abcl-in |
| 1eede0 | 74 72 6f 73 70 65 63 74 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 79 62 65 20 28 69 66 2d | trospect.......(let.((maybe.(if- |
| 1eee00 | 77 65 2d 68 61 76 65 2d 74 6f 2d 63 68 6f 6f 73 65 2d 6f 6e 65 2d 63 68 6f 6f 73 65 2d 74 68 65 | we-have-to-choose-one-choose-the |
| 1eee20 | 2d 66 75 6e 63 74 69 6f 6e 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 27 73 79 73 3a 3a 73 6f 75 72 | -function.(get.symbol.'sys::sour |
| 1eee40 | 63 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 61 6e 64 20 6d 61 79 62 65 20 28 73 65 63 6f 6e | ce)))).........(and.maybe.(secon |
| 1eee60 | 64 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 72 6f 6d 2d 73 6f 75 72 63 65 2d 61 6e | d.(slime-location-from-source-an |
| 1eee80 | 6e 6f 74 61 74 69 6f 6e 20 73 79 6d 62 6f 6c 20 6d 61 79 62 65 29 29 29 29 0a 20 20 20 20 20 20 | notation.symbol.maybe))))....... |
| 1eeea0 | 3b 3b 20 54 68 69 73 20 62 65 6c 6f 77 20 73 68 6f 75 6c 64 20 62 65 20 6f 62 73 6f 6c 65 74 65 | ;;.This.below.should.be.obsolete |
| 1eeec0 | 20 2d 20 69 74 20 75 73 65 73 20 74 68 65 20 6f 6c 64 20 73 79 73 3a 25 73 6f 75 72 63 65 0a 20 | .-.it.uses.the.old.sys:%source.. |
| 1eeee0 | 20 20 20 20 20 3b 3b 20 6c 65 61 76 65 20 69 74 20 68 65 72 65 20 66 6f 72 20 6e 6f 77 20 6a 75 | .....;;.leave.it.here.for.now.ju |
| 1eef00 | 73 74 20 69 6e 20 63 61 73 65 0a 20 20 20 20 20 20 28 61 6e 64 20 28 70 61 74 68 6e 61 6d 65 70 | st.in.case.......(and.(pathnamep |
| 1eef20 | 20 28 65 78 74 3a 73 6f 75 72 63 65 2d 70 61 74 68 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 0a 20 | .(ext:source-pathname.symbol)).. |
| 1eef40 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 65 78 74 3a 73 6f 75 72 63 65 | ..........(let.((pos.(ext:source |
| 1eef60 | 2d 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 | -file-position.symbol))......... |
| 1eef80 | 20 20 20 20 20 20 20 20 20 28 70 61 74 68 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 65 78 74 3a | .........(path.(namestring.(ext: |
| 1eefa0 | 73 6f 75 72 63 65 2d 70 61 74 68 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 20 | source-pathname.symbol))))...... |
| 1eefc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1eefe0 | 20 20 20 3b 20 62 6f 6f 74 2e 6c 69 73 70 20 67 65 74 73 20 72 65 63 6f 72 64 65 64 20 77 72 6f | ...;.boot.lisp.gets.recorded.wro |
| 1ef000 | 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 70 61 74 | ng..............(when.(equal.pat |
| 1ef020 | 68 20 22 62 6f 6f 74 2e 6c 69 73 70 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | h."boot.lisp")................(s |
| 1ef040 | 65 74 71 20 70 61 74 68 20 28 73 65 63 6f 6e 64 20 28 66 69 6e 64 2d 66 69 6c 65 2d 69 6e 2d 70 | etq.path.(second.(find-file-in-p |
| 1ef060 | 61 74 68 20 22 6f 72 67 2f 61 72 6d 65 64 62 65 61 72 2f 6c 69 73 70 2f 62 6f 6f 74 2e 6c 69 73 | ath."org/armedbear/lisp/boot.lis |
| 1ef080 | 70 22 20 2a 73 6f 75 72 63 65 2d 70 61 74 68 2a 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | p".*source-path*))))............ |
| 1ef0a0 | 20 20 28 63 6f 6e 64 20 28 28 65 78 74 3a 70 61 74 68 6e 61 6d 65 2d 6a 61 72 2d 70 20 70 61 74 | ..(cond.((ext:pathname-jar-p.pat |
| 1ef0c0 | 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 6c 6f 63 61 74 69 | h).....................`(:locati |
| 1ef0e0 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 74 72 69 | on.......................;;.stri |
| 1ef100 | 70 20 6f 66 66 20 22 6a 61 72 3a 66 69 6c 65 3a 22 20 3d 20 39 20 63 68 61 72 61 63 74 65 72 73 | p.off."jar:file:".=.9.characters |
| 1ef120 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 7a 69 70 20 2c 40 28 | .......................(:zip.,@( |
| 1ef140 | 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 73 75 62 73 65 71 20 70 61 74 68 20 28 6c 65 6e 67 74 | split-string.(subseq.path.(lengt |
| 1ef160 | 68 20 22 6a 61 72 3a 66 69 6c 65 3a 22 29 29 20 22 21 2f 22 29 29 0a 20 20 20 20 20 20 20 20 20 | h."jar:file:"))."!/")).......... |
| 1ef180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 6f 73 20 6e 65 76 65 72 20 73 65 65 6d 73 20 | .............;;.pos.never.seems. |
| 1ef1a0 | 72 69 67 68 74 2e 20 55 73 65 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 2e 0a 20 20 20 20 20 20 | right..Use.function.name........ |
| 1ef1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 | ................(:function-name. |
| 1ef1e0 | 2c 28 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ,(string.symbol))............... |
| 1ef200 | 20 20 20 20 20 20 20 20 28 3a 61 6c 69 67 6e 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ........(:align.t)))............ |
| 1ef220 | 20 20 20 20 20 20 20 20 28 28 65 71 75 61 6c 20 28 70 61 74 68 6e 61 6d 65 2d 64 65 76 69 63 65 | ........((equal.(pathname-device |
| 1ef240 | 20 28 65 78 74 3a 73 6f 75 72 63 65 2d 70 61 74 68 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 20 22 | .(ext:source-pathname.symbol))." |
| 1ef260 | 65 6d 61 63 73 2d 62 75 66 66 65 72 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | emacs-buffer").................. |
| 1ef280 | 20 20 20 3b 3b 20 63 6f 6e 73 70 69 72 65 20 77 69 74 68 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c | ...;;.conspire.with.swank-compil |
| 1ef2a0 | 65 2d 73 74 72 69 6e 67 20 74 6f 20 6b 65 65 70 20 74 68 65 20 62 75 66 66 65 72 0a 20 20 20 20 | e-string.to.keep.the.buffer..... |
| 1ef2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6e 61 6d 65 20 69 6e 20 61 20 70 61 74 | ................;;.name.in.a.pat |
| 1ef2e0 | 68 6e 61 6d 65 20 77 68 6f 73 65 20 64 65 76 69 63 65 20 69 73 20 22 65 6d 61 63 73 2d 62 75 66 | hname.whose.device.is."emacs-buf |
| 1ef300 | 66 65 72 22 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 6c 6f 63 | fer"......................`(:loc |
| 1ef320 | 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 62 75 | ation.......................(:bu |
| 1ef340 | 66 66 65 72 20 2c 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 28 65 78 74 3a 73 6f 75 72 63 65 | ffer.,(pathname-name.(ext:source |
| 1ef360 | 2d 70 61 74 68 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -pathname.symbol)))............. |
| 1ef380 | 20 20 20 20 20 20 20 20 20 20 28 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 2c 28 73 74 72 69 | ..........(:function-name.,(stri |
| 1ef3a0 | 6e 67 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng.symbol))..................... |
| 1ef3c0 | 20 20 28 3a 61 6c 69 67 6e 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(:align.t))).................. |
| 1ef3e0 | 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 6c 6f 63 61 | ..(t.....................`(:loca |
| 1ef400 | 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c | tion.......................(:fil |
| 1ef420 | 65 20 2c 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c | e.,path)......................., |
| 1ef440 | 28 69 66 20 70 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (if.pos......................... |
| 1ef460 | 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 28 31 2b 20 70 6f 73 29 29 0a 20 20 20 | ...(list.:position.(1+.pos)).... |
| 1ef480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 | ........................(list.:f |
| 1ef4a0 | 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 29 29 0a 20 | unction-name.(string.symbol))).. |
| 1ef4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 69 67 6e 20 74 29 29 | .....................(:align.t)) |
| 1ef4e0 | 29 29 29 29 0a 20 20 20 20 20 20 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 20 | )))).......#+abcl-introspect.... |
| 1ef500 | 20 20 20 28 73 65 63 6f 6e 64 20 28 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 73 6f 75 72 63 | ...(second.(implementation-sourc |
| 1ef520 | 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f | e-location.symbol))))..(defmetho |
| 1ef540 | 64 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 28 66 72 61 6d 65 20 73 79 73 3a 3a 6a | d.source-location.((frame.sys::j |
| 1ef560 | 61 76 61 2d 73 74 61 63 6b 2d 66 72 61 6d 65 29 29 0a 20 20 28 64 65 73 74 72 75 63 74 75 72 69 | ava-stack-frame))...(destructuri |
| 1ef580 | 6e 67 2d 62 69 6e 64 20 28 26 6b 65 79 20 63 6c 61 73 73 20 6d 65 74 68 6f 64 20 66 69 6c 65 20 | ng-bind.(&key.class.method.file. |
| 1ef5a0 | 6c 69 6e 65 29 20 28 73 79 73 3a 66 72 61 6d 65 2d 74 6f 2d 6c 69 73 74 20 66 72 61 6d 65 29 0a | line).(sys:frame-to-list.frame). |
| 1ef5c0 | 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6d 65 74 68 6f 64 29 29 0a 20 20 | ....(declare.(ignore.method))... |
| 1ef5e0 | 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 6f 72 20 28 66 69 6e 64 2d 66 69 6c 65 2d 69 6e 2d | ..(let.((file.(or.(find-file-in- |
| 1ef600 | 70 61 74 68 20 66 69 6c 65 20 2a 73 6f 75 72 63 65 2d 70 61 74 68 2a 29 0a 20 20 20 20 20 20 20 | path.file.*source-path*)........ |
| 1ef620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 20 28 66 6f 72 6d 61 74 20 6e 69 | .............(let.((f.(format.ni |
| 1ef640 | 6c 20 22 7e 7b 7e 61 2f 7e 7d 7e 61 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l."~{~a/~}~a"................... |
| 1ef660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 74 6c 61 73 74 20 28 73 70 6c | ...................(butlast.(spl |
| 1ef680 | 69 74 2d 73 74 72 69 6e 67 20 63 6c 61 73 73 20 22 5c 5c 2e 22 29 29 0a 20 20 20 20 20 20 20 20 | it-string.class."\\."))......... |
| 1ef6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c | .............................fil |
| 1ef6c0 | 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 | e))).......................(find |
| 1ef6e0 | 2d 66 69 6c 65 2d 69 6e 2d 70 61 74 68 20 66 20 2a 73 6f 75 72 63 65 2d 70 61 74 68 2a 29 29 29 | -file-in-path.f.*source-path*))) |
| 1ef700 | 29 29 0a 20 20 20 20 20 20 28 61 6e 64 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 | )).......(and.file............`( |
| 1ef720 | 3a 6c 6f 63 61 74 69 6f 6e 20 2c 66 69 6c 65 20 28 3a 6c 69 6e 65 20 2c 6c 69 6e 65 29 20 28 29 | :location.,file.(:line.,line).() |
| 1ef740 | 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | )))))..(defmethod.source-locatio |
| 1ef760 | 6e 20 28 28 66 72 61 6d 65 20 73 79 73 3a 3a 6c 69 73 70 2d 73 74 61 63 6b 2d 66 72 61 6d 65 29 | n.((frame.sys::lisp-stack-frame) |
| 1ef780 | 29 0a 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6f 70 65 72 61 74 6f | )...(destructuring-bind.(operato |
| 1ef7a0 | 72 20 26 72 65 73 74 20 61 72 67 73 29 20 28 73 79 73 3a 66 72 61 6d 65 2d 74 6f 2d 6c 69 73 74 | r.&rest.args).(sys:frame-to-list |
| 1ef7c0 | 20 66 72 61 6d 65 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 | .frame).....(declare.(ignore.arg |
| 1ef7e0 | 73 29 29 0a 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 6f 70 65 72 61 74 6f 72 0a 20 20 20 20 | s)).....(etypecase.operator..... |
| 1ef800 | 20 20 28 66 75 6e 63 74 69 6f 6e 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6f 70 65 | ..(function.(source-location.ope |
| 1ef820 | 72 61 74 6f 72 29 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 | rator)).......(list.nil).......( |
| 1ef840 | 73 79 6d 62 6f 6c 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6f 70 65 72 61 74 6f 72 | symbol.(source-location.operator |
| 1ef860 | 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | )))))..(defmethod.source-locatio |
| 1ef880 | 6e 20 28 28 66 75 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 69 66 20 23 2b 61 62 63 6c 2d | n.((fun.function))...(if.#+abcl- |
| 1ef8a0 | 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 20 20 20 20 28 73 79 73 3a 3a 6c 6f 63 61 6c 2d 66 75 6e | introspect.......(sys::local-fun |
| 1ef8c0 | 63 74 69 6f 6e 2d 70 20 66 75 6e 29 0a 20 20 20 20 20 20 23 2d 61 62 63 6c 2d 69 6e 74 72 6f 73 | ction-p.fun).......#-abcl-intros |
| 1ef8e0 | 70 65 63 74 0a 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 6c 6f 63 | pect.......nil.......(source-loc |
| 1ef900 | 61 74 69 6f 6e 20 28 73 79 73 3a 3a 6c 6f 63 61 6c 2d 66 75 6e 63 74 69 6f 6e 2d 6f 77 6e 65 72 | ation.(sys::local-function-owner |
| 1ef920 | 20 66 75 6e 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 66 75 6e 63 74 69 | .fun)).......(let.((name.(functi |
| 1ef940 | 6f 6e 2d 6e 61 6d 65 20 66 75 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 61 6e 64 20 6e 61 6d 65 | on-name.fun))).........(and.name |
| 1ef960 | 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 | .(source-location.name)))))..(de |
| 1ef980 | 66 6d 65 74 68 6f 64 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 28 6d 65 74 68 6f 64 | fmethod.source-location.((method |
| 1ef9a0 | 20 6d 65 74 68 6f 64 29 29 0a 20 20 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 | .method))...#+abcl-introspect... |
| 1ef9c0 | 28 6c 65 74 20 28 28 66 6f 75 6e 64 20 0a 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 20 60 28 | (let.((found............(find.`( |
| 1ef9e0 | 3a 6d 65 74 68 6f 64 20 2c 40 28 73 79 73 3a 3a 6d 65 74 68 6f 64 2d 73 70 65 63 2d 6c 69 73 74 | :method.,@(sys::method-spec-list |
| 1efa00 | 20 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 20 28 | .method)).................(get.( |
| 1efa20 | 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 6d 65 74 68 6f 64 29 20 27 73 79 73 3a 3a 73 6f 75 72 | function-name.method).'sys::sour |
| 1efa40 | 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 27 63 61 72 20 3a 74 | ce).................:key.'car.:t |
| 1efa60 | 65 73 74 20 27 65 71 75 61 6c 70 29 29 29 0a 20 20 20 20 28 61 6e 64 20 66 6f 75 6e 64 20 28 73 | est.'equalp))).....(and.found.(s |
| 1efa80 | 65 63 6f 6e 64 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 72 6f 6d 2d 73 6f 75 72 63 | econd.(slime-location-from-sourc |
| 1efaa0 | 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 6d 65 74 68 | e-annotation.(function-name.meth |
| 1efac0 | 6f 64 29 20 66 6f 75 6e 64 29 29 29 29 0a 20 20 23 2d 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 | od).found))))...#-abcl-introspec |
| 1efae0 | 74 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 | t...(let.((name.(function-name.f |
| 1efb00 | 75 6e 29 29 29 0a 20 20 20 20 28 61 6e 64 20 6e 61 6d 65 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 | un))).....(and.name.(source-loca |
| 1efb20 | 74 69 6f 6e 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 79 73 74 65 6d 2d 70 72 6f | tion.name))))..(defun.system-pro |
| 1efb40 | 70 65 72 74 79 20 28 6e 61 6d 65 29 0a 20 20 28 6a 73 74 61 74 69 63 20 22 67 65 74 50 72 6f 70 | perty.(name)...(jstatic."getProp |
| 1efb60 | 65 72 74 79 22 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 53 79 73 74 65 6d 22 20 6e 61 6d 65 29 29 0a | erty"."java.lang.System".name)). |
| 1efb80 | 0a 28 64 65 66 75 6e 20 70 61 74 68 6e 61 6d 65 2d 70 61 72 65 6e 74 20 28 70 61 74 68 6e 61 6d | .(defun.pathname-parent.(pathnam |
| 1efba0 | 65 29 0a 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 64 69 72 65 63 74 6f 72 79 20 28 | e)...(make-pathname.:directory.( |
| 1efbc0 | 62 75 74 6c 61 73 74 20 28 70 61 74 68 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 70 61 74 68 | butlast.(pathname-directory.path |
| 1efbe0 | 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 61 74 68 6e 61 6d 65 2d 61 62 73 6f 6c 75 | name))))..(defun.pathname-absolu |
| 1efc00 | 74 65 2d 70 20 28 70 61 74 68 6e 61 6d 65 29 0a 20 20 28 65 71 20 28 63 61 72 20 28 70 61 74 68 | te-p.(pathname)...(eq.(car.(path |
| 1efc20 | 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 70 61 74 68 6e 61 6d 65 29 29 20 27 3a 61 62 73 6f | name-directory.pathname)).':abso |
| 1efc40 | 6c 75 74 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 73 74 72 | lute))..(defun.split-string.(str |
| 1efc60 | 69 6e 67 20 72 65 67 65 78 70 29 0a 20 20 28 63 6f 65 72 63 65 0a 20 20 20 28 6a 63 61 6c 6c 20 | ing.regexp)...(coerce....(jcall. |
| 1efc80 | 28 6a 6d 65 74 68 6f 64 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 72 69 6e 67 22 20 22 73 70 6c | (jmethod."java.lang.String"."spl |
| 1efca0 | 69 74 22 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 72 69 6e 67 22 29 0a 20 20 20 20 20 20 20 20 | it"."java.lang.String")......... |
| 1efcc0 | 20 20 73 74 72 69 6e 67 20 72 65 67 65 78 70 29 0a 20 20 20 27 6c 69 73 74 29 29 0a 0a 28 64 65 | ..string.regexp)....'list))..(de |
| 1efce0 | 66 75 6e 20 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 20 28 29 0a 20 20 28 6a 66 69 65 6c 64 20 | fun.path-separator.()...(jfield. |
| 1efd00 | 22 6a 61 76 61 2e 69 6f 2e 46 69 6c 65 22 20 22 70 61 74 68 53 65 70 61 72 61 74 6f 72 22 29 29 | "java.io.File"."pathSeparator")) |
| 1efd20 | 0a 0a 28 64 65 66 75 6e 20 73 65 61 72 63 68 2d 70 61 74 68 2d 70 72 6f 70 65 72 74 79 20 28 70 | ..(defun.search-path-property.(p |
| 1efd40 | 72 6f 70 2d 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 20 28 73 79 73 74 65 | rop-name)...(let.((string.(syste |
| 1efd60 | 6d 2d 70 72 6f 70 65 72 74 79 20 70 72 6f 70 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 61 6e 64 | m-property.prop-name))).....(and |
| 1efd80 | 20 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 6e 69 6c 0a 20 20 20 | .string..........(remove.nil.... |
| 1efda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 74 72 75 65 6e 61 6d 65 | ..............(mapcar.#'truename |
| 1efdc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 | ..........................(split |
| 1efde0 | 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 20 28 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 29 29 | -string.string.(path-separator)) |
| 1efe00 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6a 64 6b 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 28 29 | )))))..(defun.jdk-source-path.() |
| 1efe20 | 0a 20 20 28 6c 65 74 2a 20 28 28 6a 72 65 2d 68 6f 6d 65 20 28 74 72 75 65 6e 61 6d 65 20 28 73 | ...(let*.((jre-home.(truename.(s |
| 1efe40 | 79 73 74 65 6d 2d 70 72 6f 70 65 72 74 79 20 22 6a 61 76 61 2e 68 6f 6d 65 22 29 29 29 0a 20 20 | ystem-property."java.home")))... |
| 1efe60 | 20 20 20 20 20 20 20 28 73 72 63 2d 7a 69 70 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 | .......(src-zip.(merge-pathnames |
| 1efe80 | 20 22 73 72 63 2e 7a 69 70 22 20 28 70 61 74 68 6e 61 6d 65 2d 70 61 72 65 6e 74 20 6a 72 65 2d | ."src.zip".(pathname-parent.jre- |
| 1efea0 | 68 6f 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 72 75 65 6e 61 6d 65 20 28 70 72 6f 62 | home)))..........(truename.(prob |
| 1efec0 | 65 2d 66 69 6c 65 20 73 72 63 2d 7a 69 70 29 29 29 0a 20 20 20 20 28 61 6e 64 20 74 72 75 65 6e | e-file.src-zip))).....(and.truen |
| 1efee0 | 61 6d 65 20 28 6c 69 73 74 20 74 72 75 65 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 | ame.(list.truename))))..(defun.c |
| 1eff00 | 6c 61 73 73 2d 70 61 74 68 20 28 29 0a 20 20 28 61 70 70 65 6e 64 20 28 73 65 61 72 63 68 2d 70 | lass-path.()...(append.(search-p |
| 1eff20 | 61 74 68 2d 70 72 6f 70 65 72 74 79 20 22 6a 61 76 61 2e 63 6c 61 73 73 2e 70 61 74 68 22 29 0a | ath-property."java.class.path"). |
| 1eff40 | 20 20 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 70 61 74 68 2d 70 72 6f 70 65 72 74 79 20 | ..........(search-path-property. |
| 1eff60 | 22 73 75 6e 2e 62 6f 6f 74 2e 63 6c 61 73 73 2e 70 61 74 68 22 29 29 29 0a 0a 28 64 65 66 76 61 | "sun.boot.class.path")))..(defva |
| 1eff80 | 72 20 2a 73 6f 75 72 63 65 2d 70 61 74 68 2a 0a 20 20 28 72 65 6d 6f 76 65 20 6e 69 6c 20 0a 20 | r.*source-path*...(remove.nil... |
| 1effa0 | 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 73 65 61 72 63 68 2d 70 61 74 68 2d 70 72 | .........(append.(search-path-pr |
| 1effc0 | 6f 70 65 72 74 79 20 22 75 73 65 72 2e 64 69 72 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | operty."user.dir").............. |
| 1effe0 | 20 20 20 20 20 28 6a 64 6b 2d 73 6f 75 72 63 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 | .....(jdk-source-path).......... |
| 1f0000 | 20 20 20 20 20 20 20 20 20 3b 3b 20 69 6e 63 6c 75 64 65 20 6c 69 62 20 6a 61 72 20 66 69 6c 65 | .........;;.include.lib.jar.file |
| 1f0020 | 73 2e 20 63 6f 6e 74 72 69 62 20 68 61 73 20 6c 69 73 70 20 63 6f 64 65 2e 20 57 6f 75 6c 64 20 | s..contrib.has.lisp.code..Would. |
| 1f0040 | 62 65 20 67 6f 6f 64 20 74 6f 20 62 75 69 6c 64 20 61 62 63 6c 2e 6a 61 72 20 77 69 74 68 20 73 | be.good.to.build.abcl.jar.with.s |
| 1f0060 | 6f 75 72 63 65 20 63 6f 64 65 20 61 73 20 77 65 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ource.code.as.well.............. |
| 1f0080 | 20 20 20 20 20 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 20 20 20 20 20 20 20 | .....#+abcl-introspect.......... |
| 1f00a0 | 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 73 79 73 3a 3a 66 69 6e 64 2d 73 79 73 74 65 6d | .........(list.(sys::find-system |
| 1f00c0 | 2d 6a 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | -jar).........................(s |
| 1f00e0 | 79 73 3a 3a 66 69 6e 64 2d 63 6f 6e 74 72 69 62 2d 6a 61 72 29 29 29 29 0a 20 20 3b 3b 20 79 6f | ys::find-contrib-jar))))...;;.yo |
| 1f0100 | 75 20 73 68 6f 75 6c 64 20 74 65 6c 6c 20 73 6c 69 6d 65 20 77 68 65 72 65 20 74 68 65 20 61 62 | u.should.tell.slime.where.the.ab |
| 1f0120 | 63 6c 20 73 6f 75 72 63 65 73 20 61 72 65 2e 20 49 6e 20 2e 73 77 61 6e 6b 2e 6c 69 73 70 20 49 | cl.sources.are..In..swank.lisp.I |
| 1f0140 | 20 68 61 76 65 3a 0a 20 20 3b 3b 20 28 70 75 73 68 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 22 2f | .have:...;;.(push.(probe-file."/ |
| 1f0160 | 55 73 65 72 73 2f 61 6c 61 6e 72 2f 72 65 70 6f 73 2f 61 62 63 6c 2f 73 72 63 2f 22 29 20 2a 53 | Users/alanr/repos/abcl/src/").*S |
| 1f0180 | 4f 55 52 43 45 2d 50 41 54 48 2a 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 64 69 72 65 63 74 6f 72 | OURCE-PATH*)..."List.of.director |
| 1f01a0 | 69 65 73 20 74 6f 20 73 65 61 72 63 68 20 66 6f 72 20 73 6f 75 72 63 65 20 66 69 6c 65 73 2e 22 | ies.to.search.for.source.files." |
| 1f01c0 | 29 0a 0a 28 64 65 66 75 6e 20 7a 69 70 66 69 6c 65 2d 63 6f 6e 74 61 69 6e 73 2d 70 20 28 7a 69 | )..(defun.zipfile-contains-p.(zi |
| 1f01e0 | 70 66 69 6c 65 2d 6e 61 6d 65 20 65 6e 74 72 79 2d 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 | pfile-name.entry-name)...(let.(( |
| 1f0200 | 7a 69 70 66 69 6c 65 20 28 6a 6e 65 77 20 28 6a 63 6f 6e 73 74 72 75 63 74 6f 72 20 22 6a 61 76 | zipfile.(jnew.(jconstructor."jav |
| 1f0220 | 61 2e 75 74 69 6c 2e 7a 69 70 2e 5a 69 70 46 69 6c 65 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | a.util.zip.ZipFile"............. |
| 1f0240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6a 61 76 61 2e 6c | ........................."java.l |
| 1f0260 | 61 6e 67 2e 53 74 72 69 6e 67 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ang.String").................... |
| 1f0280 | 20 20 20 20 7a 69 70 66 69 6c 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 6a 63 61 6c 6c 0a 20 | ....zipfile-name))).....(jcall.. |
| 1f02a0 | 20 20 20 20 28 6a 6d 65 74 68 6f 64 20 22 6a 61 76 61 2e 75 74 69 6c 2e 7a 69 70 2e 5a 69 70 46 | ....(jmethod."java.util.zip.ZipF |
| 1f02c0 | 69 6c 65 22 20 22 67 65 74 45 6e 74 72 79 22 20 22 6a 61 76 61 2e 6c 61 6e 67 2e 53 74 72 69 6e | ile"."getEntry"."java.lang.Strin |
| 1f02e0 | 67 22 29 0a 20 20 20 20 20 7a 69 70 66 69 6c 65 20 65 6e 74 72 79 2d 6e 61 6d 65 29 29 29 0a 0a | g")......zipfile.entry-name))).. |
| 1f0300 | 3b 3b 20 54 72 79 20 74 6f 20 66 69 6e 64 20 46 49 4c 45 4e 41 4d 45 20 69 6e 20 50 41 54 48 2e | ;;.Try.to.find.FILENAME.in.PATH. |
| 1f0320 | 20 20 49 66 20 66 6f 75 6e 64 2c 20 72 65 74 75 72 6e 20 61 20 66 69 6c 65 20 73 70 65 63 20 61 | ..If.found,.return.a.file.spec.a |
| 1f0340 | 73 0a 3b 3b 20 6e 65 65 64 65 64 20 62 79 20 45 6d 61 63 73 2e 20 20 57 65 20 61 6c 73 6f 20 6c | s.;;.needed.by.Emacs...We.also.l |
| 1f0360 | 6f 6f 6b 20 69 6e 20 7a 69 70 20 66 69 6c 65 73 2e 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 66 69 | ook.in.zip.files..(defun.find-fi |
| 1f0380 | 6c 65 2d 69 6e 2d 70 61 74 68 20 28 66 69 6c 65 6e 61 6d 65 20 70 61 74 68 29 0a 20 20 28 6c 61 | le-in-path.(filename.path)...(la |
| 1f03a0 | 62 65 6c 73 20 28 28 74 72 79 20 28 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | bels.((try.(dir)..............(c |
| 1f03c0 | 6f 6e 64 20 28 28 6e 6f 74 20 28 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 20 64 69 72 29 29 0a 20 | ond.((not.(pathname-type.dir)).. |
| 1f03e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 20 28 70 72 6f | ...................(let.((f.(pro |
| 1f0400 | 62 65 2d 66 69 6c 65 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 66 69 6c 65 6e 61 6d | be-file.(merge-pathnames.filenam |
| 1f0420 | 65 20 64 69 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.dir))))....................... |
| 1f0440 | 28 61 6e 64 20 66 20 60 28 3a 66 69 6c 65 20 2c 28 6e 61 6d 65 73 74 72 69 6e 67 20 66 29 29 29 | (and.f.`(:file.,(namestring.f))) |
| 1f0460 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 28 | ))....................((member.( |
| 1f0480 | 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 20 64 69 72 29 20 27 28 22 7a 69 70 22 20 22 6a 61 72 22 | pathname-type.dir).'("zip"."jar" |
| 1f04a0 | 29 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).:test.'equal)................. |
| 1f04c0 | 20 20 20 20 28 74 72 79 2d 7a 69 70 20 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(try-zip.dir)).............. |
| 1f04e0 | 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 73 74 72 61 6e 67 65 20 70 61 74 68 20 65 6c | ......(t.(error."strange.path.el |
| 1f0500 | 65 6d 65 6e 74 3a 20 7e 73 22 20 70 61 74 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | ement:.~s".path))))............( |
| 1f0520 | 74 72 79 2d 7a 69 70 20 28 7a 69 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a | try-zip.(zip)..............(let* |
| 1f0540 | 20 28 28 7a 69 70 66 69 6c 65 2d 6e 61 6d 65 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 | .((zipfile-name.(namestring.(tru |
| 1f0560 | 65 6e 61 6d 65 20 7a 69 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e | ename.zip))))................(an |
| 1f0580 | 64 20 28 7a 69 70 66 69 6c 65 2d 63 6f 6e 74 61 69 6e 73 2d 70 20 7a 69 70 66 69 6c 65 2d 6e 61 | d.(zipfile-contains-p.zipfile-na |
| 1f05a0 | 6d 65 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me.filename).................... |
| 1f05c0 | 20 60 28 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 | .`(#+abcl-introspect............ |
| 1f05e0 | 20 20 20 20 20 20 20 20 20 20 20 3a 7a 69 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........:zip................. |
| 1f0600 | 20 20 20 20 20 20 23 2d 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 20 20 20 20 20 20 | ......#-abcl-introspect......... |
| 1f0620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..............:dir.............. |
| 1f0640 | 20 20 20 20 20 20 20 20 20 2c 7a 69 70 66 69 6c 65 2d 6e 61 6d 65 20 20 2c 66 69 6c 65 6e 61 6d | .........,zipfile-name..,filenam |
| 1f0660 | 65 29 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 70 61 74 68 6e 61 6d 65 2d 61 62 73 6f | e))))).....(cond.((pathname-abso |
| 1f0680 | 6c 75 74 65 2d 70 20 66 69 6c 65 6e 61 6d 65 29 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 66 69 6c | lute-p.filename).(probe-file.fil |
| 1f06a0 | 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 | ename))...........(t............ |
| 1f06c0 | 28 6c 6f 6f 70 20 66 6f 72 20 64 69 72 20 69 6e 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 | (loop.for.dir.in.path........... |
| 1f06e0 | 20 20 20 20 20 20 20 69 66 20 28 74 72 79 20 64 69 72 29 20 72 65 74 75 72 6e 20 69 74 29 29 29 | .......if.(try.dir).return.it))) |
| 1f0700 | 29 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 64 65 66 69 6e 69 74 69 6f 6e 2d 74 79 | ))..(defparameter.*definition-ty |
| 1f0720 | 70 65 73 2a 0a 20 20 27 28 3a 76 61 72 69 61 62 6c 65 20 64 65 66 76 61 72 0a 20 20 20 20 3a 63 | pes*...'(:variable.defvar.....:c |
| 1f0740 | 6f 6e 73 74 61 6e 74 20 64 65 66 63 6f 6e 73 74 61 6e 74 0a 20 20 20 20 3a 74 79 70 65 20 64 65 | onstant.defconstant.....:type.de |
| 1f0760 | 66 74 79 70 65 0a 20 20 20 20 3a 73 79 6d 62 6f 6c 2d 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 73 | ftype.....:symbol-macro.define-s |
| 1f0780 | 79 6d 62 6f 6c 2d 6d 61 63 72 6f 0a 20 20 20 20 3a 6d 61 63 72 6f 20 64 65 66 6d 61 63 72 6f 0a | ymbol-macro.....:macro.defmacro. |
| 1f07a0 | 20 20 20 20 3a 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 63 6f 6d 70 69 | ....:compiler-macro.define-compi |
| 1f07c0 | 6c 65 72 2d 6d 61 63 72 6f 0a 20 20 20 20 3a 66 75 6e 63 74 69 6f 6e 20 64 65 66 75 6e 0a 20 20 | ler-macro.....:function.defun... |
| 1f07e0 | 20 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 64 65 66 67 65 6e 65 72 69 63 0a 20 | ..:generic-function.defgeneric.. |
| 1f0800 | 20 20 20 3a 6d 65 74 68 6f 64 20 64 65 66 6d 65 74 68 6f 64 0a 20 20 20 20 3a 73 65 74 66 2d 65 | ...:method.defmethod.....:setf-e |
| 1f0820 | 78 70 61 6e 64 65 72 20 64 65 66 69 6e 65 2d 73 65 74 66 2d 65 78 70 61 6e 64 65 72 0a 20 20 20 | xpander.define-setf-expander.... |
| 1f0840 | 20 3a 73 74 72 75 63 74 75 72 65 20 64 65 66 73 74 72 75 63 74 0a 20 20 20 20 3a 63 6f 6e 64 69 | .:structure.defstruct.....:condi |
| 1f0860 | 74 69 6f 6e 20 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 3a 63 6c 61 73 73 | tion.define-condition.....:class |
| 1f0880 | 20 64 65 66 63 6c 61 73 73 0a 20 20 20 20 3a 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f | .defclass.....:method-combinatio |
| 1f08a0 | 6e 20 64 65 66 69 6e 65 2d 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 0a 20 20 20 20 | n.define-method-combination..... |
| 1f08c0 | 3a 70 61 63 6b 61 67 65 20 64 65 66 70 61 63 6b 61 67 65 0a 20 20 20 20 3a 74 72 61 6e 73 66 6f | :package.defpackage.....:transfo |
| 1f08e0 | 72 6d 20 3a 64 65 66 74 72 61 6e 73 66 6f 72 6d 0a 20 20 20 20 3a 6f 70 74 69 6d 69 7a 65 72 20 | rm.:deftransform.....:optimizer. |
| 1f0900 | 3a 64 65 66 6f 70 74 69 6d 69 7a 65 72 0a 20 20 20 20 3a 76 6f 70 20 3a 64 65 66 69 6e 65 2d 76 | :defoptimizer.....:vop.:define-v |
| 1f0920 | 6f 70 0a 20 20 20 20 3a 73 6f 75 72 63 65 2d 74 72 61 6e 73 66 6f 72 6d 20 3a 64 65 66 69 6e 65 | op.....:source-transform.:define |
| 1f0940 | 2d 73 6f 75 72 63 65 2d 74 72 61 6e 73 66 6f 72 6d 0a 20 20 20 20 3a 69 72 31 2d 63 6f 6e 76 65 | -source-transform.....:ir1-conve |
| 1f0960 | 72 74 20 3a 64 65 66 2d 69 72 31 2d 74 72 61 6e 73 6c 61 74 6f 72 0a 20 20 20 20 3a 64 65 63 6c | rt.:def-ir1-translator.....:decl |
| 1f0980 | 61 72 61 74 69 6f 6e 20 64 65 63 6c 61 69 6d 0a 20 20 20 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 | aration.declaim.....:alien-type. |
| 1f09a0 | 3a 64 65 66 69 6e 65 2d 61 6c 69 65 6e 2d 74 79 70 65 29 0a 20 20 22 4d 61 70 20 64 65 66 69 6e | :define-alien-type)..."Map.defin |
| 1f09c0 | 69 74 69 6f 6e 20 74 79 70 65 20 6e 61 6d 65 73 20 74 6f 20 53 6c 69 6d 65 2d 66 72 69 65 6e 64 | ition.type.names.to.Slime-friend |
| 1f09e0 | 6c 79 20 66 6f 72 6d 73 22 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 70 | ly.forms")..(defun.definition-sp |
| 1f0a00 | 65 63 69 66 69 65 72 20 28 74 79 70 65 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 70 72 65 74 74 | ecifier.(type)..."Return.a.prett |
| 1f0a20 | 79 20 73 70 65 63 69 66 69 65 72 20 66 6f 72 20 4e 41 4d 45 20 72 65 70 72 65 73 65 6e 74 69 6e | y.specifier.for.NAME.representin |
| 1f0a40 | 67 20 61 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 79 70 65 20 54 59 50 45 2e 22 0a 20 20 | g.a.definition.of.type.TYPE."... |
| 1f0a60 | 28 6f 72 20 28 69 66 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 74 79 70 65 29 20 28 67 65 74 66 20 | (or.(if.(and.(consp.type).(getf. |
| 1f0a80 | 2a 64 65 66 69 6e 69 74 69 6f 6e 2d 74 79 70 65 73 2a 20 28 63 61 72 20 74 79 70 65 29 29 29 0a | *definition-types*.(car.type))). |
| 1f0aa0 | 20 20 20 20 20 20 20 20 20 20 60 28 2c 28 67 65 74 66 20 2a 64 65 66 69 6e 69 74 69 6f 6e 2d 74 | ..........`(,(getf.*definition-t |
| 1f0ac0 | 79 70 65 73 2a 20 28 63 61 72 20 74 79 70 65 29 29 20 2c 28 73 65 63 6f 6e 64 20 74 79 70 65 29 | ypes*.(car.type)).,(second.type) |
| 1f0ae0 | 20 2c 40 28 74 68 69 72 64 20 74 79 70 65 29 20 2c 40 28 63 64 64 64 72 20 74 79 70 65 29 29 0a | .,@(third.type).,@(cdddr.type)). |
| 1f0b00 | 20 20 20 20 20 20 20 20 20 20 28 67 65 74 66 20 2a 64 65 66 69 6e 69 74 69 6f 6e 2d 74 79 70 65 | ..........(getf.*definition-type |
| 1f0b20 | 73 2a 20 74 79 70 65 29 29 0a 20 20 20 20 20 20 74 79 70 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 | s*.type)).......type))..(defun.s |
| 1f0b40 | 74 72 69 6e 67 69 66 79 2d 6d 65 74 68 6f 64 2d 73 70 65 63 73 20 28 74 79 70 65 29 0a 20 20 22 | tringify-method-specs.(type)..." |
| 1f0b60 | 72 65 74 75 72 6e 20 61 20 28 3a 6d 65 74 68 6f 64 20 2e 2e 29 20 6c 6f 63 61 74 69 6f 6e 20 66 | return.a.(:method...).location.f |
| 1f0b80 | 6f 72 20 73 6c 69 6d 65 22 0a 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 63 61 73 65 2a 20 | or.slime"...(let.((*print-case*. |
| 1f0ba0 | 3a 64 6f 77 6e 63 61 73 65 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 70 20 28 61 29 20 28 70 | :downcase)).....(flet.((p.(a).(p |
| 1f0bc0 | 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 61 29 29 29 0a 20 20 20 20 20 20 28 64 65 73 74 72 | rinc-to-string.a))).......(destr |
| 1f0be0 | 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6e 61 6d 65 20 71 75 61 6c 69 66 69 65 72 73 20 73 | ucturing-bind.(name.qualifiers.s |
| 1f0c00 | 70 65 63 69 61 6c 69 7a 65 72 73 29 20 28 63 64 72 20 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 | pecializers).(cdr.type)......... |
| 1f0c20 | 60 28 2c 28 63 61 72 20 74 79 70 65 29 20 2c 28 70 20 6e 61 6d 65 29 20 2c 28 6d 61 70 63 61 72 | `(,(car.type).,(p.name).,(mapcar |
| 1f0c40 | 20 23 27 70 20 73 70 65 63 69 61 6c 69 7a 65 72 73 29 20 2c 40 28 6d 61 70 63 61 72 20 23 27 70 | .#'p.specializers).,@(mapcar.#'p |
| 1f0c60 | 20 71 75 61 6c 69 66 69 65 72 73 29 29 29 29 29 29 0a 0a 3b 3b 20 66 6f 72 20 61 62 63 6c 20 73 | .qualifiers))))))..;;.for.abcl.s |
| 1f0c80 | 6f 75 72 63 65 2c 20 63 68 65 63 6b 20 69 66 20 69 74 20 69 73 20 73 74 69 6c 6c 20 74 68 65 72 | ource,.check.if.it.is.still.ther |
| 1f0ca0 | 65 2c 20 61 6e 64 20 69 66 20 6e 6f 74 2c 20 6c 6f 6f 6b 20 69 6e 20 61 62 63 6c 20 6a 61 72 20 | e,.and.if.not,.look.in.abcl.jar. |
| 1f0cc0 | 69 6e 73 74 65 61 64 0a 28 64 65 66 75 6e 20 6d 61 79 62 65 2d 72 65 64 69 72 65 63 74 2d 74 6f | instead.(defun.maybe-redirect-to |
| 1f0ce0 | 2d 6a 61 72 20 28 70 61 74 68 29 0a 20 20 28 73 65 74 71 20 70 61 74 68 20 28 6e 61 6d 65 73 74 | -jar.(path)...(setq.path.(namest |
| 1f0d00 | 72 69 6e 67 20 70 61 74 68 29 29 0a 20 20 28 69 66 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 70 61 | ring.path))...(if.(probe-file.pa |
| 1f0d20 | 74 68 29 0a 20 20 20 20 20 20 70 61 74 68 0a 20 20 20 20 20 20 28 69 66 20 28 73 65 61 72 63 68 | th).......path.......(if.(search |
| 1f0d40 | 20 22 2f 6f 72 67 2f 61 72 6d 65 64 62 65 61 72 2f 6c 69 73 70 22 20 70 61 74 68 20 3a 74 65 73 | ."/org/armedbear/lisp".path.:tes |
| 1f0d60 | 74 20 27 73 74 72 69 6e 67 3d 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6a 61 72 | t.'string=)...........(let.((jar |
| 1f0d80 | 70 61 74 68 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 6a 61 72 3a 66 69 6c 65 3a 7e 61 21 7e 61 | path.(format.nil."jar:file:~a!~a |
| 1f0da0 | 22 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 73 79 73 3a 3a 66 69 6e 64 2d 73 79 73 74 65 6d 2d | ".(namestring.(sys::find-system- |
| 1f0dc0 | 6a 61 72 29 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | jar))........................... |
| 1f0de0 | 20 20 20 20 20 20 20 20 28 73 75 62 73 65 71 20 70 61 74 68 20 28 73 65 61 72 63 68 20 22 2f 6f | ........(subseq.path.(search."/o |
| 1f0e00 | 72 67 2f 61 72 6d 65 64 62 65 61 72 2f 6c 69 73 70 22 20 70 61 74 68 29 29 29 29 29 0a 20 20 20 | rg/armedbear/lisp".path))))).... |
| 1f0e20 | 20 20 20 20 20 20 20 20 20 28 69 66 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 6a 61 72 70 61 74 68 | .........(if.(probe-file.jarpath |
| 1f0e40 | 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 61 72 70 61 74 68 0a 20 20 20 20 20 | )..................jarpath...... |
| 1f0e60 | 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 70 61 74 68 | ...........path))...........path |
| 1f0e80 | 29 29 29 0a 0a 23 2d 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 28 64 65 66 69 6d 70 6c 65 | )))..#-abcl-introspect.(defimple |
| 1f0ea0 | 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 73 79 6d 62 | mentation.find-definitions.(symb |
| 1f0ec0 | 6f 6c 29 0a 20 20 28 65 78 74 3a 72 65 73 6f 6c 76 65 20 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 | ol)...(ext:resolve.symbol)...(le |
| 1f0ee0 | 74 20 28 28 73 72 63 6c 6f 63 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 79 6d 62 | t.((srcloc.(source-location.symb |
| 1f0f00 | 6f 6c 29 29 29 0a 20 20 20 20 28 61 6e 64 20 73 72 63 6c 6f 63 20 60 28 28 2c 73 79 6d 62 6f 6c | ol))).....(and.srcloc.`((,symbol |
| 1f0f20 | 20 2c 73 72 63 6c 6f 63 29 29 29 29 29 0a 0a 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 | .,srcloc)))))..#+abcl-introspect |
| 1f0f40 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 | .(defimplementation.find-definit |
| 1f0f60 | 69 6f 6e 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 70 20 73 | ions.(symbol)...(when.(stringp.s |
| 1f0f80 | 79 6d 62 6f 6c 29 20 0a 20 20 20 20 3b 3b 20 61 6c 6c 6f 77 20 61 20 73 74 72 69 6e 67 20 74 6f | ymbol)......;;.allow.a.string.to |
| 1f0fa0 | 20 62 65 20 70 61 73 73 65 64 2e 20 49 66 20 69 74 20 69 73 20 70 61 63 6b 61 67 65 20 70 72 65 | .be.passed..If.it.is.package.pre |
| 1f0fc0 | 66 69 78 65 64 2c 20 72 65 6d 6f 76 65 20 74 68 65 20 70 72 65 66 69 78 20 0a 20 20 20 20 28 73 | fixed,.remove.the.prefix......(s |
| 1f0fe0 | 65 74 71 20 73 79 6d 62 6f 6c 20 28 69 6e 74 65 72 6e 20 28 73 74 72 69 6e 67 2d 75 70 63 61 73 | etq.symbol.(intern.(string-upcas |
| 1f1000 | 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 | e............................(su |
| 1f1020 | 62 73 65 71 20 73 79 6d 62 6f 6c 20 28 31 2b 20 28 6f 72 20 28 70 6f 73 69 74 69 6f 6e 20 23 5c | bseq.symbol.(1+.(or.(position.#\ |
| 1f1040 | 3a 20 73 79 6d 62 6f 6c 20 3a 66 72 6f 6d 2d 65 6e 64 20 74 29 20 2d 31 29 29 29 29 0a 20 20 20 | :.symbol.:from-end.t).-1)))).... |
| 1f1060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6b 65 79 77 6f 72 64 29 29 | ......................'keyword)) |
| 1f1080 | 29 0a 20 20 28 6c 65 74 20 28 28 73 6f 75 72 63 65 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 | )...(let.((sources.nil)......... |
| 1f10a0 | 28 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 61 72 69 61 62 6c 65 73 20 6e 69 6c 29 0a 20 | (implementation-variables.nil).. |
| 1f10c0 | 20 20 20 20 20 20 20 28 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 73 | .......(implementation-functions |
| 1f10e0 | 20 6e 69 6c 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 70 61 63 6b 61 67 65 20 69 6e 20 | .nil)).....(loop.for.package.in. |
| 1f1100 | 28 6c 69 73 74 2d 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 66 6f | (list-all-packages)...........fo |
| 1f1120 | 72 20 73 79 6d 20 3d 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 73 79 6d | r.sym.=.(find-symbol.(string.sym |
| 1f1140 | 62 6f 6c 29 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 61 6e | bol).package)...........when.(an |
| 1f1160 | 64 20 73 79 6d 20 28 65 71 75 61 6c 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 73 79 6d | d.sym.(equal.(symbol-package.sym |
| 1f1180 | 29 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 | ).package)).............do...... |
| 1f11a0 | 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 79 73 3a 3a 61 75 74 6f 6c 6f 61 64 70 20 | ..........(when.(sys::autoloadp. |
| 1f11c0 | 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 3a 72 | symbol)..................(sys::r |
| 1f11e0 | 65 73 6f 6c 76 65 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | esolve.symbol))................( |
| 1f1200 | 6c 65 74 20 28 28 73 6f 75 72 63 65 20 28 6f 72 20 28 67 65 74 20 73 79 6d 20 27 65 78 74 3a 3a | let.((source.(or.(get.sym.'ext:: |
| 1f1220 | 73 6f 75 72 63 65 29 20 28 67 65 74 20 73 79 6d 20 27 73 79 73 3a 3a 73 6f 75 72 63 65 29 29 29 | source).(get.sym.'sys::source))) |
| 1f1240 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 2d 76 61 72 20 20 28 6d | ......................(i-var..(m |
| 1f1260 | 61 79 62 65 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 61 72 69 61 62 6c 65 20 73 79 6d | aybe-implementation-variable.sym |
| 1f1280 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 2d 66 75 6e 20 20 | ))......................(i-fun.. |
| 1f12a0 | 28 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 | (implementation-source-location. |
| 1f12c0 | 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 6f | sym)))..................(when.so |
| 1f12e0 | 75 72 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6f | urce....................(setq.so |
| 1f1300 | 75 72 63 65 73 20 28 61 70 70 65 6e 64 20 73 6f 75 72 63 65 73 20 28 6f 72 20 28 67 65 74 20 73 | urces.(append.sources.(or.(get.s |
| 1f1320 | 79 6d 20 27 65 78 74 3a 3a 73 6f 75 72 63 65 29 20 28 67 65 74 20 73 79 6d 20 27 73 79 73 3a 3a | ym.'ext::source).(get.sym.'sys:: |
| 1f1340 | 73 6f 75 72 63 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | source)))))..................(wh |
| 1f1360 | 65 6e 20 69 2d 76 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 | en.i-var....................(pus |
| 1f1380 | 68 20 69 2d 76 61 72 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 61 72 69 61 62 6c 65 73 | h.i-var.implementation-variables |
| 1f13a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 69 2d 66 75 6e 0a | ))..................(when.i-fun. |
| 1f13c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 69 2d 66 75 6e 20 69 | ...................(push.i-fun.i |
| 1f13e0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 73 29 29 29 29 0a 20 20 20 20 | mplementation-functions))))..... |
| 1f1400 | 28 73 65 74 71 20 73 6f 75 72 63 65 73 20 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 | (setq.sources.(remove-duplicates |
| 1f1420 | 20 73 6f 75 72 63 65 73 20 3a 74 65 73 74 20 27 65 71 75 61 6c 70 29 29 0a 20 20 20 20 28 61 70 | .sources.:test.'equalp)).....(ap |
| 1f1440 | 70 65 6e 64 20 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 20 69 6d 70 6c 65 6d 65 6e | pend.(remove-duplicates.implemen |
| 1f1460 | 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 73 20 3a 74 65 73 74 20 27 65 71 75 61 6c 70 29 0a | tation-functions.:test.'equalp). |
| 1f1480 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 28 73 29 20 28 | ............(mapcar.(lambda(s).( |
| 1f14a0 | 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 72 6f 6d 2d 73 6f 75 72 63 65 2d 61 6e 6e 6f 74 | slime-location-from-source-annot |
| 1f14c0 | 61 74 69 6f 6e 20 73 79 6d 62 6f 6c 20 73 29 29 20 73 6f 75 72 63 65 73 29 0a 20 20 20 20 20 20 | ation.symbol.s)).sources)....... |
| 1f14e0 | 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 20 69 6d 70 6c 65 6d 65 | ......(remove-duplicates.impleme |
| 1f1500 | 6e 74 61 74 69 6f 6e 2d 76 61 72 69 61 62 6c 65 73 20 3a 74 65 73 74 20 27 65 71 75 61 6c 70 29 | ntation-variables.:test.'equalp) |
| 1f1520 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 72 6f 6d 2d | )))..(defun.slime-location-from- |
| 1f1540 | 73 6f 75 72 63 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 28 73 79 6d 20 69 74 29 0a 20 20 28 64 65 | source-annotation.(sym.it)...(de |
| 1f1560 | 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 77 68 61 74 20 70 61 74 68 20 70 6f 73 29 | structuring-bind.(what.path.pos) |
| 1f1580 | 20 69 74 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 69 73 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 | .it.....(let*.((isfunction...... |
| 1f15a0 | 20 20 20 20 20 20 20 20 3b 3b 20 61 6c 6c 20 6f 66 20 74 68 65 73 65 20 61 72 65 20 28 64 65 66 | ........;;.all.of.these.are.(def |
| 1f15c0 | 78 78 78 20 66 6f 72 6d 73 2c 20 77 68 69 63 68 20 69 73 20 77 68 61 74 20 3a 66 75 6e 63 74 69 | xxx.forms,.which.is.what.:functi |
| 1f15e0 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6c 6f 63 61 74 69 6f 6e 73 20 6c 6f 6f | on..............;;.locations.loo |
| 1f1600 | 6b 20 66 6f 72 20 69 6e 20 73 6c 69 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 | k.for.in.slime..............(and |
| 1f1620 | 20 28 63 6f 6e 73 70 20 77 68 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(consp.what)................... |
| 1f1640 | 28 6d 65 6d 62 65 72 20 28 63 61 72 20 77 68 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (member.(car.what).............. |
| 1f1660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 66 75 6e 63 74 69 6f 6e 20 3a 67 65 6e 65 72 69 | .............'(:function.:generi |
| 1f1680 | 63 2d 66 75 6e 63 74 69 6f 6e 20 3a 6d 61 63 72 6f 20 3a 63 6c 61 73 73 20 3a 63 6f 6d 70 69 6c | c-function.:macro.:class.:compil |
| 1f16a0 | 65 72 2d 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er-macro........................ |
| 1f16c0 | 20 20 20 20 20 3a 74 79 70 65 20 3a 63 6f 6e 73 74 61 6e 74 20 3a 76 61 72 69 61 62 6c 65 20 3a | .....:type.:constant.:variable.: |
| 1f16e0 | 70 61 63 6b 61 67 65 20 3a 73 74 72 75 63 74 75 72 65 20 3a 63 6f 6e 64 69 74 69 6f 6e 29 29 29 | package.:structure.:condition))) |
| 1f1700 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 73 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 | )............(ismethod.......... |
| 1f1720 | 20 20 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 77 68 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 | ....(and.(consp.what)........... |
| 1f1740 | 20 20 20 20 20 20 20 20 28 65 71 20 28 63 61 72 20 77 68 61 74 29 20 3a 6d 65 74 68 6f 64 29 29 | ........(eq.(car.what).:method)) |
| 1f1760 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 3b 20 3c 66 69 6c 65 3a 2e 2e 2f 73 6c 69 6d 65 2f | )............;;;.<file:../slime/ |
| 1f1780 | 73 6c 69 6d 65 2e 65 6c 3e 20 64 6f 63 73 74 72 69 6e 67 20 66 6f 72 0a 20 20 20 20 20 20 20 20 | slime.el>.docstring.for......... |
| 1f17a0 | 20 20 20 3b 3b 3b 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | ...;;;.slime-goto-source-locatio |
| 1f17c0 | 6e 20 63 6f 6e 73 74 61 69 6e 73 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 74 6f 20 61 0a 20 20 | n.constains.the.position.to.a... |
| 1f17e0 | 20 20 20 20 20 20 20 20 20 3b 3b 3b 20 73 69 6e 67 6c 65 20 63 6c 61 75 73 65 2e 20 20 57 65 20 | .........;;;.single.clause...We. |
| 1f1800 | 70 72 69 6f 72 69 74 69 7a 65 20 61 20 3a 50 4f 53 49 54 49 4f 4e 20 63 6c 61 75 73 65 20 6f 76 | prioritize.a.:POSITION.clause.ov |
| 1f1820 | 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 3b 20 6f 74 68 65 72 73 2e 0a 20 20 20 20 20 20 | er............;;;.others........ |
| 1f1840 | 20 20 20 20 20 28 3c 70 6f 73 69 74 69 6f 6e 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | .....(<position>..............(c |
| 1f1860 | 6f 6e 64 20 28 69 73 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ond.(isfunction................. |
| 1f1880 | 20 20 20 20 28 69 66 20 70 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(if.pos..................... |
| 1f18a0 | 20 20 20 20 60 28 3a 70 6f 73 69 74 69 6f 6e 20 2c 28 31 2b 20 28 6f 72 20 70 6f 73 20 30 29 29 | ....`(:position.,(1+.(or.pos.0)) |
| 1f18c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 66 75 6e | ).........................`(:fun |
| 1f18e0 | 63 74 69 6f 6e 2d 6e 61 6d 65 20 2c 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 65 | ction-name.,(princ-to-string.(se |
| 1f1900 | 63 6f 6e 64 20 77 68 61 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cond.what))))).................. |
| 1f1920 | 20 20 28 69 73 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(ismethod..................... |
| 1f1940 | 28 69 66 20 70 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (if.pos......................... |
| 1f1960 | 60 28 3a 70 6f 73 69 74 69 6f 6e 20 2c 28 31 2b 20 28 6f 72 20 70 6f 73 20 30 29 29 29 0a 20 20 | `(:position.,(1+.(or.pos.0)))... |
| 1f1980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 69 66 79 | ......................(stringify |
| 1f19a0 | 2d 6d 65 74 68 6f 64 2d 73 70 65 63 73 20 77 68 61 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -method-specs.what)))........... |
| 1f19c0 | 20 20 20 20 20 20 20 20 20 28 74 20 3b 3b 20 41 72 65 20 77 65 20 65 76 65 72 20 63 61 6c 6c 65 | .........(t.;;.Are.we.ever.calle |
| 1f19e0 | 64 20 77 69 74 68 20 61 20 6e 69 6c 20 50 4f 53 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.with.a.nil.POS?............... |
| 1f1a00 | 20 20 20 20 20 20 60 28 3a 70 6f 73 69 74 69 6f 6e 20 2c 28 31 2b 20 28 6f 72 20 70 6f 73 20 30 | ......`(:position.,(1+.(or.pos.0 |
| 1f1a20 | 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 32 0a 20 20 20 20 20 20 20 | ))))))............(path2........ |
| 1f1a40 | 20 20 20 20 20 20 28 69 66 20 28 65 71 20 70 61 74 68 20 3a 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 | ......(if.(eq.path.:top-level).. |
| 1f1a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 69 73 20 69 73 20 62 6f 67 75 73 | ................;;.this.is.bogus |
| 1f1a80 | 20 2d 20 66 69 67 75 72 65 20 6f 75 74 20 73 6f 6d 65 20 77 61 79 20 74 6f 20 67 75 65 73 73 20 | .-.figure.out.some.way.to.guess. |
| 1f1aa0 | 77 68 69 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 73 20 74 68 65 | which..................;;.is.the |
| 1f1ac0 | 20 72 65 70 6c 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 3a 74 6f 70 6c 65 76 65 6c 20 | .repl.associated.with.:toplevel. |
| 1f1ae0 | 6f 72 20 67 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 72 69 64 20 6f | or.get..................;;.rid.o |
| 1f1b00 | 66 20 74 68 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 65 6d 61 63 73 2d 62 | f.this.................."emacs-b |
| 1f1b20 | 75 66 66 65 72 3a 2a 73 6c 69 6d 65 2d 72 65 70 6c 2a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | uffer:*slime-repl*"............. |
| 1f1b40 | 20 20 20 20 20 28 6d 61 79 62 65 2d 72 65 64 69 72 65 63 74 2d 74 6f 2d 6a 61 72 20 70 61 74 68 | .....(maybe-redirect-to-jar.path |
| 1f1b60 | 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 74 6f 6d 20 77 68 61 74 29 0a 20 20 20 | )))).......(when.(atom.what).... |
| 1f1b80 | 20 20 20 20 20 28 73 65 74 71 20 77 68 61 74 20 28 6c 69 73 74 20 77 68 61 74 20 73 79 6d 29 29 | .....(setq.what.(list.what.sym)) |
| 1f1ba0 | 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 70 65 63 69 66 | ).......(list.(definition-specif |
| 1f1bc0 | 69 65 72 20 77 68 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 78 74 3a 70 | ier.what).............(if.(ext:p |
| 1f1be0 | 61 74 68 6e 61 6d 65 2d 6a 61 72 2d 70 20 28 70 61 74 68 6e 61 6d 65 20 70 61 74 68 32 29 29 0a | athname-jar-p.(pathname.path2)). |
| 1f1c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 | ................`(:location..... |
| 1f1c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 7a 69 70 20 2c 40 28 73 70 6c 69 74 2d 73 74 72 | ..............(:zip.,@(split-str |
| 1f1c40 | 69 6e 67 20 28 73 75 62 73 65 71 20 70 61 74 68 32 20 28 6c 65 6e 67 74 68 20 22 6a 61 72 3a 66 | ing.(subseq.path2.(length."jar:f |
| 1f1c60 | 69 6c 65 3a 22 29 29 20 22 21 2f 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile:"))."!/")).................. |
| 1f1c80 | 20 3b 3b 20 70 6f 73 20 6e 65 76 65 72 20 73 65 65 6d 73 20 72 69 67 68 74 2e 20 55 73 65 20 66 | .;;.pos.never.seems.right..Use.f |
| 1f1ca0 | 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | unction.name.................... |
| 1f1cc0 | 2c 3c 70 6f 73 69 74 69 6f 6e 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a | ,<position>...................(: |
| 1f1ce0 | 61 6c 69 67 6e 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6e | align.t)).................;;.con |
| 1f1d00 | 73 70 69 72 65 20 77 69 74 68 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 | spire.with.swank-compile-string. |
| 1f1d20 | 74 6f 20 6b 65 65 70 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 | to.keep.the.................;;.b |
| 1f1d40 | 75 66 66 65 72 20 6e 61 6d 65 20 69 6e 20 61 20 70 61 74 68 6e 61 6d 65 20 77 68 6f 73 65 20 64 | uffer.name.in.a.pathname.whose.d |
| 1f1d60 | 65 76 69 63 65 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 22 65 6d 61 | evice.is.................;;."ema |
| 1f1d80 | 63 73 2d 62 75 66 66 65 72 22 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | cs-buffer"..................(if. |
| 1f1da0 | 28 65 71 6c 20 30 20 28 73 65 61 72 63 68 20 22 65 6d 61 63 73 2d 62 75 66 66 65 72 3a 22 20 70 | (eql.0.(search."emacs-buffer:".p |
| 1f1dc0 | 61 74 68 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 6c 6f | ath2)).....................`(:lo |
| 1f1de0 | 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 62 | cation.......................(:b |
| 1f1e00 | 75 66 66 65 72 20 2c 28 73 75 62 73 65 71 20 70 61 74 68 32 20 20 28 6c 6f 61 64 2d 74 69 6d 65 | uffer.,(subseq.path2..(load-time |
| 1f1e20 | 2d 76 61 6c 75 65 20 28 6c 65 6e 67 74 68 20 22 65 6d 61 63 73 2d 62 75 66 66 65 72 3a 22 29 29 | -value.(length."emacs-buffer:")) |
| 1f1e40 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 3c 70 6f 73 69 74 | )).......................,<posit |
| 1f1e60 | 69 6f 6e 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 69 | ion>.......................(:ali |
| 1f1e80 | 67 6e 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 6c 6f | gn.t)).....................`(:lo |
| 1f1ea0 | 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 | cation.......................(:f |
| 1f1ec0 | 69 6c 65 20 2c 70 61 74 68 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile.,path2)..................... |
| 1f1ee0 | 20 20 2c 3c 70 6f 73 69 74 69 6f 6e 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..,<position>................... |
| 1f1f00 | 20 20 20 20 28 3a 61 6c 69 67 6e 20 74 29 29 29 29 29 29 29 29 0a 0a 23 2b 61 62 63 6c 2d 69 6e | ....(:align.t))))))))..#+abcl-in |
| 1f1f20 | 74 72 6f 73 70 65 63 74 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 74 | trospect.(defimplementation.list |
| 1f1f40 | 2d 63 61 6c 6c 65 72 73 20 28 74 68 69 6e 67 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 61 6c | -callers.(thing)...(loop.for.cal |
| 1f1f60 | 6c 65 72 20 69 6e 20 28 73 79 73 3a 3a 63 61 6c 6c 65 72 73 20 74 68 69 6e 67 29 0a 20 20 20 20 | ler.in.(sys::callers.thing)..... |
| 1f1f80 | 20 20 20 20 77 68 65 6e 20 28 74 79 70 65 70 20 63 61 6c 6c 65 72 20 27 6d 65 74 68 6f 64 29 0a | ....when.(typep.caller.'method). |
| 1f1fa0 | 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 6d 6f | ..........append.(let.((name.(mo |
| 1f1fc0 | 70 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 | p:generic-function-name......... |
| 1f1fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 70 3a 6d 65 74 68 6f | ......................(mop:metho |
| 1f2000 | 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 65 72 29 29 29 29 0a 20 20 | d-generic-function.caller))))... |
| 1f2020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 | .................(mapcar.(lambda |
| 1f2040 | 28 73 29 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 72 6f 6d 2d 73 6f 75 72 63 65 2d | (s).(slime-location-from-source- |
| 1f2060 | 61 6e 6e 6f 74 61 74 69 6f 6e 20 74 68 69 6e 67 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | annotation.thing.s))............ |
| 1f2080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 60 28 3a 6d 65 74 68 6f | ................(remove.`(:metho |
| 1f20a0 | 64 20 2c 40 28 73 79 73 3a 3a 6d 65 74 68 6f 64 2d 73 70 65 63 2d 6c 69 73 74 20 63 61 6c 6c 65 | d.,@(sys::method-spec-list.calle |
| 1f20c0 | 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r))............................. |
| 1f20e0 | 20 20 20 20 20 20 20 28 67 65 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(get..................... |
| 1f2100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 6f 6e 73 70 20 6e 61 6d 65 | .................(if.(consp.name |
| 1f2120 | 29 20 28 73 65 63 6f 6e 64 20 6e 61 6d 65 29 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ).(second.name).name)........... |
| 1f2140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 79 73 3a 3a | ..........................'sys:: |
| 1f2160 | 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | source)......................... |
| 1f2180 | 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 27 63 61 72 20 3a 74 65 73 74 2d 6e 6f 74 20 27 | ...........:key.'car.:test-not.' |
| 1f21a0 | 65 71 75 61 6c 70 29 29 29 0a 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 73 79 6d 62 6f 6c 70 20 | equalp))).........when.(symbolp. |
| 1f21c0 | 63 61 6c 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 20 20 28 6d 61 70 63 | caller)...........append...(mapc |
| 1f21e0 | 61 72 20 28 6c 61 6d 62 64 61 28 73 29 20 28 73 6c 69 6d 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 72 | ar.(lambda(s).(slime-location-fr |
| 1f2200 | 6f 6d 2d 73 6f 75 72 63 65 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 63 61 6c 6c 65 72 20 73 29 29 0a | om-source-annotation.caller.s)). |
| 1f2220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 20 | ...........................(get. |
| 1f2240 | 63 61 6c 6c 65 72 20 27 73 79 73 3a 3a 73 6f 75 72 63 65 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b | caller.'sys::source))))..;;;;;;; |
| 1f2260 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 1f2280 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 20 49 | ;;;;;;;;;;;;;;;;;;;;;;;;;.;;;;.I |
| 1f22a0 | 6e 73 70 65 63 74 69 6e 67 0a 0a 3b 3b 3b 20 42 45 47 49 4e 20 46 49 58 4d 45 20 6d 6f 76 65 20 | nspecting..;;;.BEGIN.FIXME.move. |
| 1f22c0 | 69 6e 74 6f 20 67 65 6e 65 72 61 6c 69 7a 65 64 20 53 77 61 6e 6b 20 69 6e 66 72 61 73 74 72 75 | into.generalized.Swank.infrastru |
| 1f22e0 | 63 74 75 72 65 2c 20 6f 72 20 61 64 64 20 74 6f 20 63 6f 6e 74 72 69 62 20 6d 65 63 68 61 6e 69 | cture,.or.add.to.contrib.mechani |
| 1f2300 | 73 6d 0a 3b 3b 20 74 68 69 73 20 69 73 20 6f 6e 6c 79 20 66 6f 72 20 68 79 70 65 72 73 70 65 63 | sm.;;.this.is.only.for.hyperspec |
| 1f2320 | 20 72 65 71 75 65 73 74 20 69 6e 20 61 6e 20 69 6e 73 70 65 63 74 6f 72 20 77 69 6e 64 6f 77 0a | .request.in.an.inspector.window. |
| 1f2340 | 3b 3b 20 54 4f 44 4f 20 68 61 76 65 20 73 6c 69 6d 65 2d 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f | ;;.TODO.have.slime-hyperspec-loo |
| 1f2360 | 6b 75 70 20 72 65 73 70 65 63 74 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 74 6f 6f 0a 28 64 | kup.respect.this.variable.too.(d |
| 1f2380 | 65 66 76 61 72 20 2a 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 68 79 70 65 72 73 70 65 63 | efvar.*slime-inspector-hyperspec |
| 1f23a0 | 2d 69 6e 2d 62 72 6f 77 73 65 72 2a 20 74 0a 20 20 22 49 66 20 74 20 74 68 65 6e 20 69 6e 76 6f | -in-browser*.t..."If.t.then.invo |
| 1f23c0 | 6b 69 6e 67 20 68 79 70 65 72 73 70 65 63 20 77 69 74 68 69 6e 20 74 68 65 20 69 6e 73 70 65 63 | king.hyperspec.within.the.inspec |
| 1f23e0 | 74 6f 72 20 62 72 6f 77 73 65 73 20 74 68 65 20 68 79 70 65 72 73 70 65 63 20 69 6e 20 61 6e 20 | tor.browses.the.hyperspec.in.an. |
| 1f2400 | 65 6d 61 63 73 20 62 75 66 66 65 72 2c 20 6f 74 68 65 72 77 69 73 65 20 72 65 73 70 65 63 74 69 | emacs.buffer,.otherwise.respecti |
| 1f2420 | 6e 67 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 62 72 6f 77 73 65 2d 75 72 6c 2d 62 72 6f 77 73 | ng.the.value.of.browse-url-brows |
| 1f2440 | 65 72 2d 66 75 6e 63 74 69 6f 6e 22 29 0a 0a 28 64 65 66 75 6e 20 68 79 70 65 72 73 70 65 63 2d | er-function")..(defun.hyperspec- |
| 1f2460 | 64 6f 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 20 60 28 6c 65 74 20 28 28 | do.(name)...(let.((form.`(let.(( |
| 1f2480 | 62 72 6f 77 73 65 2d 75 72 6c 2d 62 72 6f 77 73 65 72 2d 66 75 6e 63 74 69 6f 6e 20 0a 20 20 20 | browse-url-browser-function..... |
| 1f24a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 69 66 20 2a 73 6c 69 6d 65 2d | ....................,(if.*slime- |
| 1f24c0 | 69 6e 73 70 65 63 74 6f 72 2d 68 79 70 65 72 73 70 65 63 2d 69 6e 2d 62 72 6f 77 73 65 72 2a 20 | inspector-hyperspec-in-browser*. |
| 1f24e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 6c | .............................'(l |
| 1f2500 | 61 6d 62 64 61 28 61 20 76 29 20 28 65 77 77 20 61 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ambda(a.v).(eww.a))............. |
| 1f2520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 62 72 6f 77 73 65 2d 75 72 6c 2d 62 72 6f 77 | ................'browse-url-brow |
| 1f2540 | 73 65 72 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ser-function)))................. |
| 1f2560 | 20 28 73 6c 69 6d 65 2d 68 79 70 65 72 64 6f 63 2d 6c 6f 6f 6b 75 70 20 2c 6e 61 6d 65 29 29 29 | .(slime-hyperdoc-lookup.,name))) |
| 1f2580 | 29 0a 20 20 20 20 28 73 77 61 6e 6b 3a 3a 65 76 61 6c 2d 69 6e 2d 65 6d 61 63 73 20 66 6f 72 6d | ).....(swank::eval-in-emacs.form |
| 1f25a0 | 20 74 29 29 29 0a 3b 3b 3b 20 45 4e 44 20 46 49 58 4d 45 20 6d 6f 76 65 20 69 6e 74 6f 20 67 65 | .t))).;;;.END.FIXME.move.into.ge |
| 1f25c0 | 6e 65 72 61 6c 69 7a 65 64 20 53 77 61 6e 6b 20 69 6e 66 72 61 73 74 72 75 63 74 75 72 65 2c 20 | neralized.Swank.infrastructure,. |
| 1f25e0 | 6f 72 20 61 64 64 20 74 6f 20 63 6f 6e 74 72 69 62 20 6d 65 63 68 61 6e 69 73 6d 0a 0a 3b 3b 3b | or.add.to.contrib.mechanism..;;; |
| 1f2600 | 20 41 6c 74 68 6f 75 67 68 20 62 79 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 74 6f 53 74 72 69 6e 67 | .Although.by.convention.toString |
| 1f2620 | 28 29 20 69 73 20 73 75 70 70 6f 73 65 64 20 74 6f 20 62 65 20 61 0a 3b 3b 3b 20 6e 6f 6e 2d 63 | ().is.supposed.to.be.a.;;;.non-c |
| 1f2640 | 6f 6d 70 75 74 61 74 69 6f 6e 61 6c 6c 79 20 65 78 70 65 6e 73 69 76 65 20 6f 70 65 72 61 74 69 | omputationally.expensive.operati |
| 1f2660 | 6f 6e 20 74 68 69 73 20 69 73 6e 27 74 20 61 6c 77 61 79 73 20 74 68 65 0a 3b 3b 3b 20 63 61 73 | on.this.isn't.always.the.;;;.cas |
| 1f2680 | 65 2c 20 73 6f 20 6d 61 6b 65 20 69 74 73 20 63 6f 6d 70 75 74 61 74 69 6f 6e 20 61 20 75 73 65 | e,.so.make.its.computation.a.use |
| 1f26a0 | 72 20 69 6e 74 65 72 61 63 74 69 6f 6e 2e 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 74 6f | r.interaction..(defparameter.*to |
| 1f26c0 | 2d 73 74 72 69 6e 67 2d 68 61 73 68 74 61 62 6c 65 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 | -string-hashtable*.(make-hash-ta |
| 1f26e0 | 62 6c 65 20 3a 77 65 61 6b 6e 65 73 73 20 3a 6b 65 79 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 | ble.:weakness.:key))..(defmethod |
| 1f2700 | 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 74 29 29 0a 20 20 28 6c 65 74 2a 20 28 | .emacs-inspect.((o.t))...(let*.( |
| 1f2720 | 28 74 79 70 65 20 28 74 79 70 65 2d 6f 66 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6c 61 | (type.(type-of.o))..........(cla |
| 1f2740 | 73 73 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 74 79 | ss.(ignore-errors.(find-class.ty |
| 1f2760 | 70 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6a 63 6c 61 73 73 20 28 61 6e 64 20 28 74 79 70 | pe)))..........(jclass.(and.(typ |
| 1f2780 | 65 70 20 20 63 6c 61 73 73 20 27 73 79 73 3a 3a 62 75 69 6c 74 2d 69 6e 2d 63 6c 61 73 73 29 0a | ep..class.'sys::built-in-class). |
| 1f27a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 63 61 6c 6c 20 22 67 65 | ......................(jcall."ge |
| 1f27c0 | 74 43 6c 61 73 73 22 20 6f 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 61 72 74 73 20 28 | tClass".o)))).....(let.((parts.( |
| 1f27e0 | 73 79 73 3a 69 6e 73 70 65 63 74 65 64 2d 70 61 72 74 73 20 6f 29 29 29 0a 20 20 20 20 20 20 60 | sys:inspected-parts.o))).......` |
| 1f2800 | 28 28 3a 6c 61 62 65 6c 20 22 54 79 70 65 3a 20 22 29 20 28 3a 76 61 6c 75 65 20 2c 28 6f 72 20 | ((:label."Type:.").(:value.,(or. |
| 1f2820 | 63 6c 61 73 73 20 74 79 70 65 29 29 20 28 3a 4e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 | class.type)).(:Newline)......... |
| 1f2840 | 2c 40 28 69 66 20 6a 63 6c 61 73 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a | ,@(if.jclass................`((: |
| 1f2860 | 6c 61 62 65 6c 20 22 4a 61 76 61 20 74 79 70 65 3a 20 22 29 20 28 3a 76 61 6c 75 65 20 2c 6a 63 | label."Java.type:.").(:value.,jc |
| 1f2880 | 6c 61 73 73 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 2c 40 28 69 66 | lass).(:newline))).........,@(if |
| 1f28a0 | 20 70 61 72 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 3a 66 6f 72 20 | .parts...............(loop.:for. |
| 1f28c0 | 28 6c 61 62 65 6c 20 2e 20 76 61 6c 75 65 29 20 3a 69 6e 20 70 61 72 74 73 0a 20 20 20 20 20 20 | (label...value).:in.parts....... |
| 1f28e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 70 70 65 6e 64 69 6e 67 20 28 6c 69 73 74 0a 20 | ..............:appending.(list.. |
| 1f2900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1f2920 | 6c 69 73 74 20 3a 6c 61 62 65 6c 20 28 73 74 72 69 6e 67 2d 63 61 70 69 74 61 6c 69 7a 65 20 6c | list.:label.(string-capitalize.l |
| 1f2940 | 61 62 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | abel)).......................... |
| 1f2960 | 20 20 20 20 20 20 20 22 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......":."..................... |
| 1f2980 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 76 61 6c 75 65 20 76 61 6c 75 65 20 28 | ............(list.:value.value.( |
| 1f29a0 | 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 76 61 6c 75 65 29 29 20 27 28 3a 6e 65 77 6c 69 | princ-to-string.value)).'(:newli |
| 1f29c0 | 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 28 3a 6c 61 62 | ne)))...............(list.'(:lab |
| 1f29e0 | 65 6c 20 22 4e 6f 20 69 6e 73 70 65 63 74 61 62 6c 65 20 70 61 72 74 73 2c 20 64 75 6d 70 69 6e | el."No.inspectable.parts,.dumpin |
| 1f2a00 | 67 20 6f 75 74 70 75 74 20 6f 66 20 43 4c 3a 44 45 53 43 52 49 42 45 3a 22 29 0a 20 20 20 20 20 | g.output.of.CL:DESCRIBE:")...... |
| 1f2a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 | ...............'(:newline)...... |
| 1f2a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 | ...............(with-output-to-s |
| 1f2a60 | 74 72 69 6e 67 20 28 64 65 73 63 29 20 28 64 65 73 63 72 69 62 65 20 6f 20 64 65 73 63 29 29 29 | tring.(desc).(describe.o.desc))) |
| 1f2a80 | 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 | )))))..(defmethod.emacs-inspect. |
| 1f2aa0 | 28 28 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 0a 20 20 28 73 77 61 6e 6b 3a 3a 6c 63 6f 6e | ((string.string))...(swank::lcon |
| 1f2ac0 | 73 2a 20 0a 20 20 20 27 28 3a 6c 61 62 65 6c 20 22 56 61 6c 75 65 3a 20 22 29 20 20 60 28 3a 76 | s*.....'(:label."Value:.")..`(:v |
| 1f2ae0 | 61 6c 75 65 20 2c 73 74 72 69 6e 67 20 2c 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 | alue.,string.,(concatenate.'stri |
| 1f2b00 | 6e 67 20 22 5c 22 22 20 73 74 72 69 6e 67 20 22 5c 22 22 29 29 20 20 27 28 3a 6e 65 77 6c 69 6e | ng."\"".string."\""))..'(:newlin |
| 1f2b20 | 65 29 0a 20 20 20 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 20 3b 3b 20 3f 3f 3f 20 54 | e)....#+abcl-introspect.;;.???.T |
| 1f2b40 | 68 69 73 20 64 6f 65 73 6e 27 74 20 61 70 70 65 61 72 20 64 65 70 65 6e 64 20 6f 6e 20 41 42 43 | his.doesn't.appear.depend.on.ABC |
| 1f2b60 | 4c 2d 49 4e 54 52 4f 53 50 45 43 54 2e 20 20 57 68 79 20 64 69 73 61 62 6c 65 3f 0a 20 20 20 60 | L-INTROSPECT...Why.disable?....` |
| 1f2b80 | 28 3a 61 63 74 69 6f 6e 20 22 5b 45 64 69 74 20 69 6e 20 65 6d 61 63 73 20 62 75 66 66 65 72 5d | (:action."[Edit.in.emacs.buffer] |
| 1f2ba0 | 22 20 2c 28 6c 61 6d 62 64 61 28 29 20 28 73 77 61 6e 6b 3a 3a 65 64 2d 69 6e 2d 65 6d 61 63 73 | ".,(lambda().(swank::ed-in-emacs |
| 1f2bc0 | 20 60 28 3a 73 74 72 69 6e 67 20 2c 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 27 28 3a 6e 65 77 | .`(:string.,string))))....'(:new |
| 1f2be0 | 6c 69 6e 65 29 0a 20 20 20 28 69 66 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 6a 63 6c | line)....(if.(ignore-errors.(jcl |
| 1f2c00 | 61 73 73 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 60 28 3a 6c 69 6e 65 20 22 4e 61 6d | ass.string))........`(:line."Nam |
| 1f2c20 | 65 73 20 6a 61 76 61 20 63 6c 61 73 73 22 20 2c 28 6a 63 6c 61 73 73 20 73 74 72 69 6e 67 29 29 | es.java.class".,(jclass.string)) |
| 1f2c40 | 0a 20 20 20 20 20 20 20 22 22 29 0a 20 20 20 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 | ........"")....#+abcl-introspect |
| 1f2c60 | 0a 20 20 20 28 69 66 20 28 61 6e 64 20 28 6a 73 73 2d 70 29 20 0a 20 20 20 20 20 20 20 20 20 20 | ....(if.(and.(jss-p)............ |
| 1f2c80 | 20 20 28 73 74 72 69 6e 67 70 20 28 66 75 6e 63 61 6c 6c 20 28 69 6e 74 65 72 6e 20 22 4c 4f 4f | ..(stringp.(funcall.(intern."LOO |
| 1f2ca0 | 4b 55 50 2d 43 4c 41 53 53 2d 4e 41 4d 45 22 20 3a 6a 73 73 29 20 73 74 72 69 6e 67 20 3a 72 65 | KUP-CLASS-NAME".:jss).string.:re |
| 1f2cc0 | 74 75 72 6e 2d 61 6d 62 69 67 75 6f 75 73 20 74 20 3a 6d 75 66 66 6c 65 2d 77 61 72 6e 69 6e 67 | turn-ambiguous.t.:muffle-warning |
| 1f2ce0 | 20 74 29 29 29 0a 20 20 20 20 20 20 20 60 28 3a 6d 75 6c 74 69 70 6c 65 0a 20 20 20 20 20 20 20 | .t)))........`(:multiple........ |
| 1f2d00 | 20 20 28 3a 6c 61 62 65 6c 20 22 41 62 62 72 65 76 69 61 74 65 73 20 6a 61 76 61 20 63 6c 61 73 | ..(:label."Abbreviates.java.clas |
| 1f2d20 | 73 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 2c 28 6c 65 74 20 28 28 69 74 20 28 66 75 6e 63 61 | s:.")..........,(let.((it.(funca |
| 1f2d40 | 6c 6c 20 28 69 6e 74 65 72 6e 20 22 4c 4f 4f 4b 55 50 2d 43 4c 41 53 53 2d 4e 41 4d 45 22 20 3a | ll.(intern."LOOKUP-CLASS-NAME".: |
| 1f2d60 | 6a 73 73 29 20 73 74 72 69 6e 67 20 3a 72 65 74 75 72 6e 2d 61 6d 62 69 67 75 6f 75 73 20 74 20 | jss).string.:return-ambiguous.t. |
| 1f2d80 | 3a 6d 75 66 66 6c 65 2d 77 61 72 6e 69 6e 67 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | :muffle-warning.t)))............ |
| 1f2da0 | 20 60 28 3a 76 61 6c 75 65 20 2c 28 6a 63 6c 61 73 73 20 69 74 29 29 29 0a 20 20 20 20 20 20 20 | .`(:value.,(jclass.it)))........ |
| 1f2dc0 | 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 22 22 29 0a 20 20 20 28 69 66 20 | ..(:newline))........"")....(if. |
| 1f2de0 | 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 28 73 74 | (ignore-errors.(find-package.(st |
| 1f2e00 | 72 69 6e 67 2d 75 70 63 61 73 65 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 60 28 3a | ring-upcase.string)))........`(: |
| 1f2e20 | 6c 69 6e 65 20 22 4e 61 6d 65 73 20 70 61 63 6b 61 67 65 22 20 2c 28 66 69 6e 64 2d 70 61 63 6b | line."Names.package".,(find-pack |
| 1f2e40 | 61 67 65 20 28 73 74 72 69 6e 67 2d 75 70 63 61 73 65 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 | age.(string-upcase.string))).... |
| 1f2e60 | 20 20 20 20 22 22 29 0a 20 20 20 28 6c 65 74 20 28 28 73 79 6d 62 6f 6c 73 20 28 6c 6f 6f 70 20 | ...."")....(let.((symbols.(loop. |
| 1f2e80 | 66 6f 72 20 70 20 69 6e 20 28 6c 69 73 74 2d 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 0a 20 20 20 | for.p.in.(list-all-packages).... |
| 1f2ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 66 6f 75 6e 64 20 3d | .....................for.found.= |
| 1f2ec0 | 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 2d 75 70 63 61 73 65 20 73 74 72 | .(find-symbol.(string-upcase.str |
| 1f2ee0 | 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 | ing)).........................wh |
| 1f2f00 | 65 6e 20 28 61 6e 64 20 66 6f 75 6e 64 20 28 65 71 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 | en.(and.found.(eq.(symbol-packag |
| 1f2f20 | 65 20 66 6f 75 6e 64 29 20 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.found).p)..................... |
| 1f2f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 66 62 6f 75 6e 64 70 20 66 6f 75 6e 64 | ..............(or.(fboundp.found |
| 1f2f60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 1f2f80 | 20 20 20 20 20 20 20 20 28 62 6f 75 6e 64 70 20 66 6f 75 6e 64 29 0a 20 20 20 20 20 20 20 20 20 | ........(boundp.found).......... |
| 1f2fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 | .............................(sy |
| 1f2fc0 | 6d 62 6f 6c 2d 70 6c 69 73 74 20 66 6f 75 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mbol-plist.found)............... |
| 1f2fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d | ........................(ignore- |
| 1f3000 | 65 72 72 6f 72 73 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 66 6f 75 6e 64 29 29 29 29 0a 20 20 20 | errors.(find-class.found)))).... |
| 1f3020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 66 | .......................collect.f |
| 1f3040 | 6f 75 6e 64 29 29 29 0a 20 20 20 20 20 28 69 66 20 73 79 6d 62 6f 6c 73 0a 20 20 20 20 20 20 20 | ound)))......(if.symbols........ |
| 1f3060 | 20 20 60 28 3a 6d 75 6c 74 69 70 6c 65 20 28 3a 6c 61 62 65 6c 20 22 4e 61 6d 65 73 20 73 79 6d | ..`(:multiple.(:label."Names.sym |
| 1f3080 | 62 6f 6c 73 3a 20 22 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c | bols:.")......................., |
| 1f30a0 | 40 28 6c 6f 6f 70 20 66 6f 72 20 73 20 69 6e 20 73 79 6d 62 6f 6c 73 0a 20 20 20 20 20 20 20 20 | @(loop.for.s.in.symbols......... |
| 1f30c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 0a 20 20 20 | .....................collect.... |
| 1f30e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 4c 65 74 20 28 | ..........................(Let.( |
| 1f3100 | 28 2a 70 61 63 6b 61 67 65 2a 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 6b 65 79 77 6f 72 | (*package*.(find-package.:keywor |
| 1f3120 | 64 29 29 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d)))............................ |
| 1f3140 | 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 73 20 2c 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 | .....`(:value.,s.,(prin1-to-stri |
| 1f3160 | 6e 67 20 73 29 29 29 20 63 6f 6c 6c 65 63 74 20 22 20 22 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 | ng.s))).collect.".").(:newline)) |
| 1f3180 | 0a 20 20 20 20 20 20 20 20 20 22 22 29 29 0a 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 | ..........""))....(call-next-met |
| 1f31a0 | 68 6f 64 29 29 29 0a 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d | hod)))..#+#.(swank/backend:with- |
| 1f31c0 | 73 79 6d 62 6f 6c 20 27 6a 61 76 61 2d 65 78 63 65 70 74 69 6f 6e 20 27 6a 61 76 61 29 0a 28 64 | symbol.'java-exception.'java).(d |
| 1f31e0 | 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 6a 61 76 61 3a | efmethod.emacs-inspect.((o.java: |
| 1f3200 | 6a 61 76 61 2d 65 78 63 65 70 74 69 6f 6e 29 29 0a 20 20 28 61 70 70 65 6e 64 20 28 63 61 6c 6c | java-exception))...(append.(call |
| 1f3220 | 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 28 | -next-method)...........(list.'( |
| 1f3240 | 3a 6e 65 77 6c 69 6e 65 29 20 27 28 3a 6c 61 62 65 6c 20 22 53 74 61 63 6b 20 74 72 61 63 65 22 | :newline).'(:label."Stack.trace" |
| 1f3260 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 | ).................'(:newline)... |
| 1f3280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 77 20 28 6a 6e 65 77 20 22 6a 61 | ..............(let.((w.(jnew."ja |
| 1f32a0 | 76 61 2e 69 6f 2e 53 74 72 69 6e 67 57 72 69 74 65 72 22 29 29 29 20 0a 20 20 20 20 20 20 20 20 | va.io.StringWriter"))).......... |
| 1f32c0 | 20 20 20 20 20 20 20 20 20 20 28 6a 63 61 6c 6c 20 22 70 72 69 6e 74 53 74 61 63 6b 54 72 61 63 | ..........(jcall."printStackTrac |
| 1f32e0 | 65 22 20 28 6a 61 76 61 3a 6a 61 76 61 2d 65 78 63 65 70 74 69 6f 6e 2d 63 61 75 73 65 20 6f 29 | e".(java:java-exception-cause.o) |
| 1f3300 | 20 28 6a 6e 65 77 20 22 6a 61 76 61 2e 69 6f 2e 50 72 69 6e 74 57 72 69 74 65 72 22 20 77 29 29 | .(jnew."java.io.PrintWriter".w)) |
| 1f3320 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 63 61 6c 6c 20 22 74 6f 53 74 72 | ...................(jcall."toStr |
| 1f3340 | 69 6e 67 22 20 77 29 29 29 29 29 0a 0a 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d | ing".w)))))....(defmethod.emacs- |
| 1f3360 | 69 6e 73 70 65 63 74 20 28 28 6f 20 73 79 73 74 65 6d 3a 3a 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 | inspect.((o.system::environment) |
| 1f3380 | 29 0a 20 20 28 6c 65 74 20 28 28 70 61 72 74 73 20 28 73 79 73 3a 3a 65 6e 76 69 72 6f 6e 6d 65 | )...(let.((parts.(sys::environme |
| 1f33a0 | 6e 74 2d 70 61 72 74 73 20 6f 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 65 78 69 63 61 6c | nt-parts.o))).....(let.((lexical |
| 1f33c0 | 73 20 28 6d 61 70 63 61 72 20 27 63 64 72 20 28 72 65 6d 6f 76 65 20 3a 6c 65 78 69 63 61 6c 2d | s.(mapcar.'cdr.(remove.:lexical- |
| 1f33e0 | 76 61 72 69 61 62 6c 65 20 70 61 72 74 73 20 3a 74 65 73 74 2d 6e 6f 74 20 27 65 71 20 3a 6b 65 | variable.parts.:test-not.'eq.:ke |
| 1f3400 | 79 20 27 63 61 72 29 29 29 0a 09 20 20 28 73 70 65 63 69 61 6c 73 20 28 6d 61 70 63 61 72 20 27 | y.'car)))....(specials.(mapcar.' |
| 1f3420 | 63 64 72 20 28 72 65 6d 6f 76 65 20 3a 73 70 65 63 69 61 6c 20 70 61 72 74 73 20 3a 74 65 73 74 | cdr.(remove.:special.parts.:test |
| 1f3440 | 2d 6e 6f 74 20 27 65 71 20 3a 6b 65 79 20 27 63 61 72 29 29 29 0a 09 20 20 28 66 75 6e 63 74 69 | -not.'eq.:key.'car)))....(functi |
| 1f3460 | 6f 6e 73 20 28 6d 61 70 63 61 72 20 27 63 64 72 20 28 72 65 6d 6f 76 65 20 3a 6c 65 78 69 63 61 | ons.(mapcar.'cdr.(remove.:lexica |
| 1f3480 | 6c 2d 66 75 6e 63 74 69 6f 6e 20 70 61 72 74 73 20 3a 74 65 73 74 2d 6e 6f 74 20 27 65 71 20 3a | l-function.parts.:test-not.'eq.: |
| 1f34a0 | 6b 65 79 20 27 63 61 72 29 29 29 29 0a 20 20 20 20 20 20 60 28 2c 40 28 69 66 20 6c 65 78 69 63 | key.'car)))).......`(,@(if.lexic |
| 1f34c0 | 61 6c 73 20 20 0a 09 20 20 20 20 20 20 28 6c 69 73 74 2a 20 27 28 3a 6c 61 62 65 6c 20 22 4c 65 | als..........(list*.'(:label."Le |
| 1f34e0 | 78 69 63 61 6c 73 3a 22 29 20 27 28 3a 6e 65 77 6c 69 6e 65 29 20 0a 09 09 20 20 20 20 20 28 6c | xicals:").'(:newline).........(l |
| 1f3500 | 6f 6f 70 20 66 6f 72 20 28 76 61 72 20 76 61 6c 75 65 29 20 69 6e 20 6c 65 78 69 63 61 6c 73 20 | oop.for.(var.value).in.lexicals. |
| 1f3520 | 0a 09 09 09 20 20 20 61 70 70 65 6e 64 20 60 28 22 20 20 22 20 28 3a 6c 61 62 65 6c 20 2c 28 66 | .......append.`("..".(:label.,(f |
| 1f3540 | 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 73 22 20 76 61 72 29 29 20 22 3a 20 22 20 28 3a 76 61 6c 75 | ormat.nil."~s".var)).":.".(:valu |
| 1f3560 | 65 20 2c 76 61 6c 75 65 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 29 29 0a 09 2c 40 28 69 66 20 | e.,value).(:newline)))))..,@(if. |
| 1f3580 | 66 75 6e 63 74 69 6f 6e 73 20 20 0a 09 20 20 20 20 20 20 28 6c 69 73 74 2a 20 27 28 3a 6c 61 62 | functions..........(list*.'(:lab |
| 1f35a0 | 65 6c 20 22 46 75 6e 63 74 69 6f 6e 73 3a 22 29 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 09 09 20 | el."Functions:").'(:newline).... |
| 1f35c0 | 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 76 61 72 20 76 61 6c 75 65 29 20 69 6e 20 66 75 6e | ....(loop.for.(var.value).in.fun |
| 1f35e0 | 63 74 69 6f 6e 73 20 0a 09 09 09 20 20 20 61 70 70 65 6e 64 20 60 28 22 20 20 22 28 3a 6c 61 62 | ctions........append.`(".."(:lab |
| 1f3600 | 65 6c 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 73 22 20 76 61 72 29 29 20 22 3a 20 22 20 | el.,(format.nil."~s".var)).":.". |
| 1f3620 | 28 3a 76 61 6c 75 65 20 2c 76 61 6c 75 65 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 29 29 0a 09 | (:value.,value).(:newline))))).. |
| 1f3640 | 2c 40 28 69 66 20 73 70 65 63 69 61 6c 73 20 20 0a 09 20 20 20 20 20 20 28 6c 69 73 74 2a 20 27 | ,@(if.specials..........(list*.' |
| 1f3660 | 28 3a 6c 61 62 65 6c 20 22 53 70 65 63 69 61 6c 73 3a 22 29 20 27 28 3a 6e 65 77 6c 69 6e 65 29 | (:label."Specials:").'(:newline) |
| 1f3680 | 20 0a 09 09 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 76 61 72 20 76 61 6c 75 65 29 20 69 | .........(loop.for.(var.value).i |
| 1f36a0 | 6e 20 73 70 65 63 69 61 6c 73 20 0a 09 09 09 20 20 20 61 70 70 65 6e 64 20 60 28 22 20 20 22 20 | n.specials........append.`("..". |
| 1f36c0 | 28 3a 6c 61 62 65 6c 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 73 22 20 76 61 72 29 29 20 | (:label.,(format.nil."~s".var)). |
| 1f36e0 | 22 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 76 61 6c 75 65 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 | ":.".(:value.,value).(:newline)) |
| 1f3700 | 29 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 | )))))))..(defmethod.emacs-inspec |
| 1f3720 | 74 20 28 28 73 6c 6f 74 20 6d 6f 70 3a 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 29 29 0a | t.((slot.mop::slot-definition)). |
| 1f3740 | 20 20 60 28 22 4e 61 6d 65 3a 20 22 0a 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 6d 6f 70 3a 73 | ..`("Name:.".....(:value.,(mop:s |
| 1f3760 | 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 73 6c 6f 74 29 29 0a 20 20 20 20 28 | lot-definition-name.slot)).....( |
| 1f3780 | 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 22 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 22 20 28 | :newline)....."Documentation:".( |
| 1f37a0 | 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 2c 40 28 77 68 65 6e 20 28 73 6c 6f 74 2d 64 65 66 69 | :newline).....,@(when.(slot-defi |
| 1f37c0 | 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 6f 74 29 0a 20 20 20 20 20 | nition-documentation.slot)...... |
| 1f37e0 | 20 20 20 60 28 28 3a 76 61 6c 75 65 20 2c 28 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 | ...`((:value.,(slot-definition-d |
| 1f3800 | 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 6f 74 29 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 | ocumentation.slot)).(:newline))) |
| 1f3820 | 0a 20 20 20 20 22 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 | ....."Initialization:".(:newline |
| 1f3840 | 29 0a 20 20 20 20 28 3a 6c 61 62 65 6c 20 22 20 20 41 72 67 73 3a 20 22 29 20 28 3a 76 61 6c 75 | ).....(:label."..Args:.").(:valu |
| 1f3860 | 65 20 2c 28 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 74 61 72 67 73 | e.,(mop:slot-definition-initargs |
| 1f3880 | 20 73 6c 6f 74 29 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 28 3a 6c 61 62 65 6c 20 22 | .slot)).(:newline).....(:label." |
| 1f38a0 | 20 20 46 6f 72 6d 3a 20 22 29 20 20 2c 28 69 66 20 28 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e | ..Form:.")..,(if.(mop:slot-defin |
| 1f38c0 | 69 74 69 6f 6e 2d 69 6e 69 74 66 75 6e 63 74 69 6f 6e 20 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 | ition-initfunction.slot)........ |
| 1f38e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 | .......................`(:value. |
| 1f3900 | 2c 28 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 74 66 6f 72 6d 20 73 | ,(mop:slot-definition-initform.s |
| 1f3920 | 6c 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lot))........................... |
| 1f3940 | 20 20 20 20 22 23 3c 75 6e 73 70 65 63 69 66 69 65 64 3e 22 29 20 28 3a 6e 65 77 6c 69 6e 65 29 | ...."#<unspecified>").(:newline) |
| 1f3960 | 0a 20 20 20 20 28 3a 6c 61 62 65 6c 20 22 20 20 46 75 6e 63 74 69 6f 6e 3a 20 22 29 0a 20 20 20 | .....(:label."..Function:.").... |
| 1f3980 | 20 28 3a 76 61 6c 75 65 20 2c 28 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 | .(:value.,(mop:slot-definition-i |
| 1f39a0 | 6e 69 74 66 75 6e 63 74 69 6f 6e 20 73 6c 6f 74 29 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 | nitfunction.slot)).....(:newline |
| 1f39c0 | 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 | )))..(defmethod.emacs-inspect.(( |
| 1f39e0 | 66 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 60 28 2c 40 28 77 68 65 6e 20 28 66 75 6e 63 74 69 | f.function))...`(,@(when.(functi |
| 1f3a00 | 6f 6e 2d 6e 61 6d 65 20 66 29 0a 20 20 20 20 20 20 20 20 60 28 28 3a 6c 61 62 65 6c 20 22 4e 61 | on-name.f).........`((:label."Na |
| 1f3a20 | 6d 65 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 2c 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 | me:.")...........,(princ-to-stri |
| 1f3a40 | 6e 67 20 28 73 79 73 3a 3a 61 6e 79 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 29 20 28 | ng.(sys::any-function-name.f)).( |
| 1f3a60 | 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 2c 40 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | :newline))).....,@(multiple-valu |
| 1f3a80 | 65 2d 62 69 6e 64 20 28 61 72 67 73 20 70 72 65 73 65 6e 74 29 20 28 73 79 73 3a 3a 61 72 67 6c | e-bind.(args.present).(sys::argl |
| 1f3aa0 | 69 73 74 20 66 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 72 65 73 65 6e 74 0a 20 20 20 | ist.f).........(when.present.... |
| 1f3ac0 | 20 20 20 20 20 20 20 60 28 28 3a 6c 61 62 65 6c 20 22 41 72 67 75 6d 65 6e 74 20 6c 69 73 74 3a | .......`((:label."Argument.list: |
| 1f3ae0 | 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e | .").............,(princ-to-strin |
| 1f3b00 | 67 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 | g.args).............(:newline))) |
| 1f3b20 | 29 0a 20 20 20 20 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 20 20 2c 40 28 77 | ).....#+abcl-introspect.....,@(w |
| 1f3b40 | 68 65 6e 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 20 74 29 0a 20 20 20 20 20 20 20 20 | hen.(documentation.f.t)......... |
| 1f3b60 | 60 28 22 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 | `("Documentation:".(:newline)... |
| 1f3b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 64 6f 63 75 6d | .........................,(docum |
| 1f3ba0 | 65 6e 74 61 74 69 6f 6e 20 66 20 74 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 2c | entation.f.t).(:newline)))....., |
| 1f3bc0 | 40 28 77 68 65 6e 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 65 78 70 72 65 73 73 69 | @(when.(function-lambda-expressi |
| 1f3be0 | 6f 6e 20 66 29 0a 20 20 20 20 20 20 20 20 60 28 28 3a 6c 61 62 65 6c 20 22 4c 61 6d 62 64 61 20 | on.f).........`((:label."Lambda. |
| 1f3c00 | 65 78 70 72 65 73 73 69 6f 6e 3a 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e | expression:")...........(:newlin |
| 1f3c20 | 65 29 20 2c 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 | e).,(princ-to-string............ |
| 1f3c40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 65 78 70 | ............(function-lambda-exp |
| 1f3c60 | 72 65 73 73 69 6f 6e 20 66 29 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 28 3a 6c | ression.f)).(:newline))).....(:l |
| 1f3c80 | 61 62 65 6c 20 22 46 75 6e 63 74 69 6f 6e 20 6a 61 76 61 20 63 6c 61 73 73 3a 20 22 29 20 28 3a | abel."Function.java.class:.").(: |
| 1f3ca0 | 76 61 6c 75 65 20 2c 28 6a 63 61 6c 6c 20 22 67 65 74 43 6c 61 73 73 22 20 66 29 29 20 28 3a 6e | value.,(jcall."getClass".f)).(:n |
| 1f3cc0 | 65 77 6c 69 6e 65 29 0a 20 20 20 20 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 | ewline).....#+abcl-introspect... |
| 1f3ce0 | 20 20 2c 40 28 77 68 65 6e 20 28 6a 63 61 6c 6c 20 22 69 73 49 6e 73 74 61 6e 63 65 22 20 20 28 | ..,@(when.(jcall."isInstance"..( |
| 1f3d00 | 6a 61 76 61 3a 3a 6a 63 6c 61 73 73 20 22 6f 72 67 2e 61 72 6d 65 64 62 65 61 72 2e 6c 69 73 70 | java::jclass."org.armedbear.lisp |
| 1f3d20 | 2e 43 6f 6d 70 69 6c 65 64 43 6c 6f 73 75 72 65 22 29 20 66 29 0a 20 20 20 20 20 20 20 20 60 28 | .CompiledClosure").f).........`( |
| 1f3d40 | 28 3a 6c 61 62 65 6c 20 22 43 6c 6f 73 65 64 20 6f 76 65 72 3a 20 22 29 0a 20 20 20 20 20 20 20 | (:label."Closed.over:.")........ |
| 1f3d60 | 20 20 20 2c 40 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 65 6c 20 | ...,@(loop...............for.el. |
| 1f3d80 | 69 6e 20 28 73 79 73 3a 3a 63 6f 6d 70 69 6c 65 64 2d 63 6c 6f 73 75 72 65 2d 63 6f 6e 74 65 78 | in.(sys::compiled-closure-contex |
| 1f3da0 | 74 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 3a 76 61 | t.f)...............collect.`(:va |
| 1f3dc0 | 6c 75 65 20 2c 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 22 | lue.,el)...............collect." |
| 1f3de0 | 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 23 | .")...........(:newline))).....# |
| 1f3e00 | 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 20 20 2c 40 28 77 68 65 6e 20 28 73 79 | +abcl-introspect.....,@(when.(sy |
| 1f3e20 | 73 3a 3a 67 65 74 2d 6c 6f 61 64 65 64 2d 66 72 6f 6d 20 66 29 0a 20 20 20 20 20 20 20 20 28 6c | s::get-loaded-from.f).........(l |
| 1f3e40 | 69 73 74 20 60 28 3a 6c 61 62 65 6c 20 22 44 65 66 69 6e 65 64 20 69 6e 3a 20 22 29 0a 20 20 20 | ist.`(:label."Defined.in:.").... |
| 1f3e60 | 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 28 73 79 73 3a 3a 67 65 74 2d 6c | ...........`(:value.,(sys::get-l |
| 1f3e80 | 6f 61 64 65 64 2d 66 72 6f 6d 20 66 29 20 2c 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 73 79 73 3a | oaded-from.f).,(namestring.(sys: |
| 1f3ea0 | 3a 67 65 74 2d 6c 6f 61 64 65 64 2d 66 72 6f 6d 20 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | :get-loaded-from.f)))........... |
| 1f3ec0 | 20 20 20 20 27 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 3b 3b 20 49 20 74 68 69 6e 6b | ....'(:newline))).....;;.I.think |
| 1f3ee0 | 20 74 68 69 73 20 73 68 6f 75 6c 64 20 77 6f 72 6b 20 69 6e 20 6f 6c 64 65 72 20 6c 69 73 70 73 | .this.should.work.in.older.lisps |
| 1f3f00 | 20 74 6f 6f 20 2d 2d 20 61 6c 61 6e 72 0a 20 20 20 20 2c 40 28 6c 65 74 20 28 28 66 69 65 6c 64 | .too.--.alanr.....,@(let.((field |
| 1f3f20 | 73 20 28 6a 63 61 6c 6c 20 22 67 65 74 44 65 63 6c 61 72 65 64 46 69 65 6c 64 73 22 20 28 6a 63 | s.(jcall."getDeclaredFields".(jc |
| 1f3f40 | 61 6c 6c 20 22 67 65 74 43 6c 61 73 73 22 20 66 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 | all."getClass".f)))).........(wh |
| 1f3f60 | 65 6e 20 28 70 6c 75 73 70 20 28 6c 65 6e 67 74 68 20 66 69 65 6c 64 73 29 29 0a 20 20 20 20 20 | en.(plusp.(length.fields))...... |
| 1f3f80 | 20 20 20 20 20 28 6c 69 73 74 2a 20 27 28 3a 6c 61 62 65 6c 20 22 49 6e 74 65 72 6e 61 6c 20 66 | .....(list*.'(:label."Internal.f |
| 1f3fa0 | 69 65 6c 64 73 3a 20 22 29 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ields:.").'(:newline)........... |
| 1f3fc0 | 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 69 65 6c 64 20 61 63 72 6f 73 73 20 66 69 | .......(loop.for.field.across.fi |
| 1f3fe0 | 65 6c 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 | elds........................do.( |
| 1f4000 | 6a 63 61 6c 6c 20 22 73 65 74 41 63 63 65 73 73 69 62 6c 65 22 20 66 69 65 6c 64 20 74 29 20 3b | jcall."setAccessible".field.t).; |
| 1f4020 | 3b 3b 20 6e 6f 74 20 61 20 67 72 65 61 74 20 69 64 65 61 20 65 73 70 2e 20 77 72 74 2e 20 4a 61 | ;;.not.a.great.idea.esp..wrt..Ja |
| 1f4040 | 76 61 39 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e | va9........................appen |
| 1f4060 | 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | d........................(let.(( |
| 1f4080 | 76 61 6c 75 65 20 28 6a 63 61 6c 6c 20 22 67 65 74 22 20 66 69 65 6c 64 20 66 29 29 29 0a 20 20 | value.(jcall."get".field.f)))... |
| 1f40a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 22 20 20 | .......................(list.".. |
| 1f40c0 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "............................... |
| 1f40e0 | 20 60 28 3a 6c 61 62 65 6c 20 2c 28 6a 63 61 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 66 69 65 6c | .`(:label.,(jcall."getName".fiel |
| 1f4100 | 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d))............................. |
| 1f4120 | 20 20 20 22 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...":."......................... |
| 1f4140 | 20 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 76 61 6c 75 65 20 2c 28 70 72 69 6e 63 2d 74 | .......`(:value.,value.,(princ-t |
| 1f4160 | 6f 2d 73 74 72 69 6e 67 20 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o-string.value))................ |
| 1f4180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 6e 65 77 6c 69 6e 65 29 29 29 29 29 29 | ................'(:newline)))))) |
| 1f41a0 | 29 0a 20 20 20 20 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 0a 20 20 20 20 2c 40 28 77 | ).....#+abcl-introspect.....,@(w |
| 1f41c0 | 68 65 6e 20 28 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 20 28 73 79 6d 62 | hen.(and.(function-name.f).(symb |
| 1f41e0 | 6f 6c 70 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 | olp.(function-name.f)).......... |
| 1f4200 | 20 20 20 20 20 20 20 20 28 65 71 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 28 66 75 6e | ........(eq.(symbol-package.(fun |
| 1f4220 | 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 29 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 63 6c | ction-name.f)).(find-package.:cl |
| 1f4240 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 28 3a 6e 65 77 6c 69 6e 65 29 20 28 6c | ))).........(list.'(:newline).(l |
| 1f4260 | 69 73 74 20 3a 61 63 74 69 6f 6e 20 22 4c 6f 6f 6b 75 70 20 69 6e 20 68 79 70 65 72 73 70 65 63 | ist.:action."Lookup.in.hyperspec |
| 1f4280 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "............................... |
| 1f42a0 | 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 68 79 70 65 72 73 70 65 63 2d 64 6f 20 28 73 79 6d 62 | ..(lambda.().(hyperspec-do.(symb |
| 1f42c0 | 6f 6c 2d 6e 61 6d 65 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 29 29 29 0a 20 20 20 | ol-name.(function-name.f)))).... |
| 1f42e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 | .............................:re |
| 1f4300 | 66 72 65 73 68 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 6e 65 77 | freshp.nil)...............'(:new |
| 1f4320 | 6c 69 6e 65 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 | line)))))..(defmethod.emacs-insp |
| 1f4340 | 65 63 74 20 28 28 6f 20 6a 61 76 61 3a 6a 61 76 61 2d 6f 62 6a 65 63 74 29 29 0a 20 20 28 69 66 | ect.((o.java:java-object))...(if |
| 1f4360 | 20 28 6a 69 6e 73 74 61 6e 63 65 2d 6f 66 2d 70 20 6f 20 28 6a 63 6c 61 73 73 20 22 6a 61 76 61 | .(jinstance-of-p.o.(jclass."java |
| 1f4380 | 2e 6c 61 6e 67 2e 43 6c 61 73 73 22 29 29 0a 20 20 20 20 20 20 28 65 6d 61 63 73 2d 69 6e 73 70 | .lang.Class")).......(emacs-insp |
| 1f43a0 | 65 63 74 2d 6a 61 76 61 2d 63 6c 61 73 73 20 6f 29 0a 20 20 20 20 20 20 28 65 6d 61 63 73 2d 69 | ect-java-class.o).......(emacs-i |
| 1f43c0 | 6e 73 70 65 63 74 2d 6a 61 76 61 2d 6f 62 6a 65 63 74 20 6f 29 29 29 0a 0a 28 64 65 66 76 61 72 | nspect-java-object.o)))..(defvar |
| 1f43e0 | 20 2a 73 6c 69 6d 65 2d 74 6f 73 74 72 69 6e 67 2d 6f 6e 2d 64 65 6d 61 6e 64 2a 20 6e 69 6c 0a | .*slime-tostring-on-demand*.nil. |
| 1f4400 | 20 20 22 53 65 74 20 74 6f 20 74 20 69 66 20 79 6f 75 20 64 6f 6e 27 74 20 77 61 6e 74 20 74 6f | .."Set.to.t.if.you.don't.want.to |
| 1f4420 | 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 68 6f 77 20 74 6f 53 74 72 69 6e 67 28 29 20 66 | .automatically.show.toString().f |
| 1f4440 | 6f 72 20 6a 61 76 61 20 6f 62 6a 65 63 74 73 20 61 6e 64 20 69 6e 73 74 65 61 64 20 68 61 76 65 | or.java.objects.and.instead.have |
| 1f4460 | 20 69 6e 73 70 65 63 74 6f 72 20 61 63 74 69 6f 6e 20 74 6f 20 63 6f 6d 70 75 74 65 22 29 0a 0a | .inspector.action.to.compute").. |
| 1f4480 | 28 64 65 66 75 6e 20 73 74 61 74 69 63 2d 66 69 65 6c 64 3f 20 28 66 69 65 6c 64 29 0a 20 20 3b | (defun.static-field?.(field)...; |
| 1f44a0 | 3b 20 28 70 6c 75 73 70 20 28 6c 6f 67 61 6e 64 20 23 22 72 65 66 6c 65 63 74 2e 4d 6f 64 69 66 | ;.(plusp.(logand.#"reflect.Modif |
| 1f44c0 | 69 65 72 2e 53 54 41 54 49 43 22 20 28 6a 63 61 6c 6c 20 22 67 65 74 4d 6f 64 69 66 69 65 72 73 | ier.STATIC".(jcall."getModifiers |
| 1f44e0 | 22 20 66 69 65 6c 64 29 29 29 0a 20 20 3b 3b 20 75 67 6c 79 20 72 65 70 6c 61 63 65 20 77 69 74 | ".field)))...;;.ugly.replace.wit |
| 1f4500 | 68 20 61 6e 73 77 65 72 20 74 6f 20 61 76 6f 69 64 20 75 73 69 6e 67 20 6a 73 73 0a 20 20 28 70 | h.answer.to.avoid.using.jss...(p |
| 1f4520 | 6c 75 73 70 20 28 6c 6f 67 61 6e 64 20 38 20 28 6a 63 61 6c 6c 20 22 67 65 74 4d 6f 64 69 66 69 | lusp.(logand.8.(jcall."getModifi |
| 1f4540 | 65 72 73 22 20 66 69 65 6c 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 70 65 63 74 6f 72 | ers".field))))..(defun.inspector |
| 1f4560 | 2d 6a 61 76 61 2d 6f 62 6a 65 63 74 2d 66 69 65 6c 64 73 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 | -java-object-fields.(object)...( |
| 1f4580 | 6c 6f 6f 70 0a 20 20 20 20 66 6f 72 20 73 75 70 65 72 20 3d 20 28 6a 61 76 61 3a 3a 6a 6f 62 6a | loop.....for.super.=.(java::jobj |
| 1f45a0 | 65 63 74 2d 63 6c 61 73 73 20 6f 62 6a 65 63 74 29 20 74 68 65 6e 20 28 6a 63 6c 61 73 73 2d 73 | ect-class.object).then.(jclass-s |
| 1f45c0 | 75 70 65 72 63 6c 61 73 73 20 73 75 70 65 72 29 0a 20 20 20 20 77 68 69 6c 65 20 73 75 70 65 72 | uperclass.super).....while.super |
| 1f45e0 | 0a 20 20 20 20 20 20 20 20 3b 3b 3b 20 4e 4f 54 45 3a 20 49 6e 20 74 68 65 20 6e 65 78 74 20 6c | .........;;;.NOTE:.In.the.next.l |
| 1f4600 | 69 6e 65 2c 20 69 66 20 49 20 77 72 69 74 65 20 23 27 28 6c 61 6d 62 64 61 2e 2e 2e 2e 20 74 68 | ine,.if.I.write.#'(lambda.....th |
| 1f4620 | 65 6e 20 49 0a 20 20 20 20 20 20 20 20 3b 3b 3b 20 67 65 74 20 61 6e 20 65 72 72 6f 72 20 63 6f | en.I.........;;;.get.an.error.co |
| 1f4640 | 6d 70 69 6c 69 6e 67 20 22 41 74 74 65 6d 70 74 20 74 6f 20 74 68 72 6f 77 20 74 6f 20 74 68 65 | mpiling."Attempt.to.throw.to.the |
| 1f4660 | 0a 20 20 20 20 20 20 20 20 3b 3b 3b 20 6e 6f 6e 65 78 69 73 74 65 6e 74 20 74 61 67 20 44 55 50 | .........;;;.nonexistent.tag.DUP |
| 1f4680 | 4c 49 43 41 54 41 42 4c 45 2d 43 4f 44 45 2d 50 2e 22 2e 20 57 54 46 0a 20 20 20 20 66 6f 72 20 | LICATABLE-CODE-P."..WTF.....for. |
| 1f46a0 | 66 69 65 6c 64 73 0a 20 20 20 20 20 20 3d 20 28 73 6f 72 74 20 28 6a 63 61 6c 6c 20 22 67 65 74 | fields.......=.(sort.(jcall."get |
| 1f46c0 | 44 65 63 6c 61 72 65 64 46 69 65 6c 64 73 22 20 73 75 70 65 72 29 20 27 73 74 72 69 6e 67 2d 6c | DeclaredFields".super).'string-l |
| 1f46e0 | 65 73 73 70 20 3a 6b 65 79 20 28 6c 61 6d 62 64 61 28 78 29 20 28 6a 63 61 6c 6c 20 22 67 65 74 | essp.:key.(lambda(x).(jcall."get |
| 1f4700 | 4e 61 6d 65 22 20 78 29 29 29 0a 20 20 20 20 66 6f 72 20 66 72 6f 6d 6c 69 6e 65 0a 20 20 20 20 | Name".x))).....for.fromline..... |
| 1f4720 | 20 20 3d 20 6e 69 6c 20 74 68 65 6e 20 28 6c 69 73 74 20 60 28 3a 6c 61 62 65 6c 20 22 46 72 6f | ..=.nil.then.(list.`(:label."Fro |
| 1f4740 | 6d 3a 20 22 29 20 60 28 3a 76 61 6c 75 65 20 2c 73 75 70 65 72 20 20 2c 28 6a 63 61 6c 6c 20 22 | m:.").`(:value.,super..,(jcall." |
| 1f4760 | 67 65 74 4e 61 6d 65 22 20 73 75 70 65 72 29 29 20 27 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 | getName".super)).'(:newline))... |
| 1f4780 | 20 20 77 68 65 6e 20 28 61 6e 64 20 28 70 6c 75 73 70 20 28 6c 65 6e 67 74 68 20 66 69 65 6c 64 | ..when.(and.(plusp.(length.field |
| 1f47a0 | 73 29 29 20 66 72 6f 6d 6c 69 6e 65 29 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 66 72 6f 6d 6c | s)).fromline).......append.froml |
| 1f47c0 | 69 6e 65 0a 20 20 20 20 61 70 70 65 6e 64 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 74 68 69 | ine.....append.....(loop.for.thi |
| 1f47e0 | 73 20 61 63 72 6f 73 73 20 66 69 65 6c 64 73 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 3b 20 6f 70 | s.across.fields...........;;;.op |
| 1f4800 | 65 6e 6a 64 6b 31 37 20 77 6f 72 6b 61 72 6f 75 6e 64 20 66 6f 72 20 73 65 74 41 63 63 65 73 73 | enjdk17.workaround.for.setAccess |
| 1f4820 | 69 62 6c 65 28 29 3a 20 72 65 74 75 72 6e 20 61 6e 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 3b 20 | ible():.return.an...........;;;. |
| 1f4840 | 22 75 6e 61 76 61 69 6c 61 62 6c 65 22 20 6c 61 62 65 6c 20 66 6f 72 20 66 69 65 6c 64 20 76 61 | "unavailable".label.for.field.va |
| 1f4860 | 6c 75 65 73 20 77 68 69 63 68 20 61 72 65 20 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 3b | lues.which.are.not...........;;; |
| 1f4880 | 20 61 63 63 65 73 73 69 62 6c 65 20 66 6f 72 20 73 6f 6d 65 20 72 65 61 73 6f 6e 2e 0a 20 20 20 | .accessible.for.some.reason..... |
| 1f48a0 | 20 20 20 20 20 20 20 3b 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 3b 20 54 4f 44 4f 3a 20 6d | .......;;;...........;;;.TODO:.m |
| 1f48c0 | 61 6b 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 72 65 61 73 6f 6e 20 66 6f 72 20 72 65 66 6c 65 63 | ake.underlying.reason.for.reflec |
| 1f48e0 | 74 69 6f 6e 20 66 61 69 6c 75 72 65 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 3b 20 61 76 61 69 6c | tion.failure...........;;;.avail |
| 1f4900 | 61 62 6c 65 20 73 6f 6d 65 68 6f 77 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 76 61 6c 75 65 | able.somehow...........for.value |
| 1f4920 | 2d 61 6e 64 2d 72 65 73 75 6c 74 20 3d 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 0a 20 20 20 20 | -and-result.=.(let.((result..... |
| 1f4940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1f4960 | 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .....(ignore-errors............. |
| 1f4980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6a | ..............................(j |
| 1f49a0 | 63 61 6c 6c 20 22 67 65 74 22 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | call."get".(progn............... |
| 1f49c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1f49e0 | 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 6a 63 61 6c 6c | ...........(ignore-errors.(jcall |
| 1f4a00 | 20 22 73 65 74 41 63 63 65 73 73 69 62 6c 65 22 20 74 68 69 73 20 74 29 29 20 74 68 69 73 29 0a | ."setAccessible".this.t)).this). |
| 1f4a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1f4a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 29 29 29 29 0a 20 20 20 20 | .................object))))..... |
| 1f4a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1f4a80 | 69 66 20 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | if.result....................... |
| 1f4aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 76 61 6c 75 65 20 2c 72 65 73 75 6c | .................`(:value.,resul |
| 1f4ac0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t).............................. |
| 1f4ae0 | 20 20 20 20 20 20 20 20 20 20 27 28 3a 6c 61 62 65 6c 20 22 75 6e 61 76 61 69 6c 61 62 6c 65 22 | ..........'(:label."unavailable" |
| 1f4b00 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6c 69 6e 65 20 3d 20 60 28 22 20 20 22 20 | )))...........for.line.=.`("..". |
| 1f4b20 | 28 3a 6c 61 62 65 6c 20 2c 28 6a 63 61 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 74 68 69 73 29 29 | (:label.,(jcall."getName".this)) |
| 1f4b40 | 20 22 3a 20 22 20 2c 76 61 6c 75 65 2d 61 6e 64 2d 72 65 73 75 6c 74 20 28 3a 6e 65 77 6c 69 6e | .":.".,value-and-result.(:newlin |
| 1f4b60 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 28 73 74 61 74 69 63 2d 66 69 65 6c 64 3f 20 | e))...........if.(static-field?. |
| 1f4b80 | 74 68 69 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 6c 69 6e 65 20 69 6e | this).............append.line.in |
| 1f4ba0 | 74 6f 20 73 74 61 74 69 63 73 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 61 70 70 65 6e 64 | to.statics...........else.append |
| 1f4bc0 | 20 6c 69 6e 65 20 69 6e 74 6f 20 6d 65 6d 62 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 66 69 6e | .line.into.members...........fin |
| 1f4be0 | 61 6c 6c 79 20 28 72 65 74 75 72 6e 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 | ally.(return.(append............ |
| 1f4c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6d 65 6d 62 65 72 73 0a 20 20 | ................(when.members... |
| 1f4c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 6c | ...........................`((:l |
| 1f4c40 | 61 62 65 6c 20 22 4d 65 6d 62 65 72 20 66 69 65 6c 64 73 3a 20 22 29 20 28 3a 6e 65 77 6c 69 6e | abel."Member.fields:.").(:newlin |
| 1f4c60 | 65 29 20 2c 40 6d 65 6d 62 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e).,@members)).................. |
| 1f4c80 | 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 74 61 74 69 63 73 0a 20 20 20 20 20 20 20 20 | ..........(when.statics......... |
| 1f4ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 6c 61 62 65 6c 20 22 | .....................`((:label." |
| 1f4cc0 | 53 74 61 74 69 63 20 66 69 65 6c 64 73 3a 20 22 29 20 28 3a 6e 65 77 6c 69 6e 65 29 20 2c 40 73 | Static.fields:.").(:newline).,@s |
| 1f4ce0 | 74 61 74 69 63 73 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 6d 61 63 73 2d 69 6e 73 70 | tatics)))))))..(defun.emacs-insp |
| 1f4d00 | 65 63 74 2d 6a 61 76 61 2d 6f 62 6a 65 63 74 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 6c 65 74 20 | ect-java-object.(object)...(let. |
| 1f4d20 | 28 28 74 6f 2d 73 74 72 69 6e 67 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 | ((to-string.(lambda.().......... |
| 1f4d40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 | ............(handler-case....... |
| 1f4d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 | ...................(setf.(gethas |
| 1f4d80 | 68 20 6f 62 6a 65 63 74 20 2a 74 6f 2d 73 74 72 69 6e 67 2d 68 61 73 68 74 61 62 6c 65 2a 29 0a | h.object.*to-string-hashtable*). |
| 1f4da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1f4dc0 | 6a 63 61 6c 6c 20 22 74 6f 53 74 72 69 6e 67 22 20 6f 62 6a 65 63 74 29 29 0a 20 20 20 20 20 20 | jcall."toString".object))....... |
| 1f4de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 65 29 0a 20 20 20 20 20 20 20 20 | .................(t.(e)......... |
| 1f4e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 | .................(setf.(gethash. |
| 1f4e20 | 6f 62 6a 65 63 74 20 2a 74 6f 2d 73 74 72 69 6e 67 2d 68 61 73 68 74 61 62 6c 65 2a 29 0a 20 20 | object.*to-string-hashtable*)... |
| 1f4e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f | .............................(fo |
| 1f4e60 | 72 6d 61 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rmat.nil........................ |
| 1f4e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 43 6f 75 6c 64 20 6e 6f 74 20 69 6e 76 6f 6b | ................"Could.not.invok |
| 1f4ea0 | 65 20 74 6f 53 74 72 69 6e 67 28 29 3a 20 7e 41 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.toString():.~A"............... |
| 1f4ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 29 29 29 29 29 29 | .........................e)))))) |
| 1f4ee0 | 0a 20 20 20 20 20 20 20 20 28 69 6e 74 65 6e 64 65 64 2d 63 6c 61 73 73 20 28 63 64 72 20 28 61 | .........(intended-class.(cdr.(a |
| 1f4f00 | 73 73 6f 63 20 22 69 6e 74 65 6e 64 65 64 43 6c 61 73 73 22 20 28 73 79 73 3a 3a 69 6e 73 70 65 | ssoc."intendedClass".(sys::inspe |
| 1f4f20 | 63 74 65 64 2d 70 61 72 74 73 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | cted-parts.object).............. |
| 1f4f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 27 65 71 | .......................:test.'eq |
| 1f4f60 | 75 61 6c 29 29 29 29 0a 20 20 20 20 60 28 28 3a 6c 61 62 65 6c 20 22 43 6c 61 73 73 3a 20 22 29 | ual)))).....`((:label."Class:.") |
| 1f4f80 | 0a 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 6a 63 61 6c 6c 20 22 67 65 74 43 6c 61 73 73 | .......(:value.,(jcall."getClass |
| 1f4fa0 | 22 20 6f 62 6a 65 63 74 29 20 2c 28 6a 63 61 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 28 6a 63 61 | ".object).,(jcall."getName".(jca |
| 1f4fc0 | 6c 6c 20 22 67 65 74 43 6c 61 73 73 22 20 6f 62 6a 65 63 74 29 20 29 29 20 28 3a 6e 65 77 6c 69 | ll."getClass".object).)).(:newli |
| 1f4fe0 | 6e 65 29 0a 20 20 20 20 20 20 2c 40 28 69 66 20 28 61 6e 64 20 69 6e 74 65 6e 64 65 64 2d 63 6c | ne).......,@(if.(and.intended-cl |
| 1f5000 | 61 73 73 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 69 6e 74 65 6e 64 65 64 2d 63 6c 61 73 73 20 28 | ass.(not.(equal.intended-class.( |
| 1f5020 | 6a 63 61 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 28 6a 63 61 6c 6c 20 22 67 65 74 43 6c 61 73 73 | jcall."getName".(jcall."getClass |
| 1f5040 | 22 20 6f 62 6a 65 63 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 6c 61 | ".object))))).............`((:la |
| 1f5060 | 62 65 6c 20 22 49 6e 74 65 6e 64 65 64 20 43 6c 61 73 73 3a 20 22 29 0a 20 20 20 20 20 20 20 20 | bel."Intended.Class:.")......... |
| 1f5080 | 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 6a 63 6c 61 73 73 20 69 6e 74 65 6e 64 65 64 2d | ......(:value.,(jclass.intended- |
| 1f50a0 | 63 6c 61 73 73 29 20 2c 69 6e 74 65 6e 64 65 64 2d 63 6c 61 73 73 29 20 28 3a 6e 65 77 6c 69 6e | class).,intended-class).(:newlin |
| 1f50c0 | 65 29 29 29 0a 20 20 20 20 20 20 2c 40 28 69 66 20 28 6f 72 20 28 67 65 74 68 61 73 68 20 6f 62 | e))).......,@(if.(or.(gethash.ob |
| 1f50e0 | 6a 65 63 74 20 2a 74 6f 2d 73 74 72 69 6e 67 2d 68 61 73 68 74 61 62 6c 65 2a 29 20 28 6e 6f 74 | ject.*to-string-hashtable*).(not |
| 1f5100 | 20 2a 73 6c 69 6d 65 2d 74 6f 73 74 72 69 6e 67 2d 6f 6e 2d 64 65 6d 61 6e 64 2a 29 29 0a 20 20 | .*slime-tostring-on-demand*))... |
| 1f5120 | 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 22 74 6f 53 | ..........(label-value-line."toS |
| 1f5140 | 74 72 69 6e 67 28 29 22 20 28 66 75 6e 63 61 6c 6c 20 74 6f 2d 73 74 72 69 6e 67 29 29 0a 20 20 | tring()".(funcall.to-string))... |
| 1f5160 | 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 61 63 74 69 6f 6e 20 22 5b 63 6f 6d 70 75 74 65 20 74 | ..........`((:action."[compute.t |
| 1f5180 | 6f 53 74 72 69 6e 67 28 29 5d 22 20 2c 74 6f 2d 73 74 72 69 6e 67 29 20 28 3a 6e 65 77 6c 69 6e | oString()]".,to-string).(:newlin |
| 1f51a0 | 65 29 29 29 0a 20 20 20 20 20 20 2c 40 28 69 6e 73 70 65 63 74 6f 72 2d 6a 61 76 61 2d 6f 62 6a | e))).......,@(inspector-java-obj |
| 1f51c0 | 65 63 74 2d 66 69 65 6c 64 73 20 6f 62 6a 65 63 74 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f | ect-fields.object))))..(defmetho |
| 1f51e0 | 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 73 6c 6f 74 20 6d 6f 70 3a 3a 73 6c 6f 74 | d.emacs-inspect.((slot.mop::slot |
| 1f5200 | 2d 64 65 66 69 6e 69 74 69 6f 6e 29 29 0a 20 20 60 28 22 4e 61 6d 65 3a 20 22 0a 20 20 20 20 28 | -definition))...`("Name:.".....( |
| 1f5220 | 3a 76 61 6c 75 65 20 2c 28 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d | :value.,(mop:slot-definition-nam |
| 1f5240 | 65 20 73 6c 6f 74 29 29 0a 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 22 44 6f 63 | e.slot)).....(:newline)....."Doc |
| 1f5260 | 75 6d 65 6e 74 61 74 69 6f 6e 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 2c 40 28 77 | umentation:".(:newline).....,@(w |
| 1f5280 | 68 65 6e 20 28 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 | hen.(slot-definition-documentati |
| 1f52a0 | 6f 6e 20 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 60 28 28 3a 76 61 6c 75 65 20 2c 28 73 6c 6f | on.slot).........`((:value.,(slo |
| 1f52c0 | 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 6f 74 29 | t-definition-documentation.slot) |
| 1f52e0 | 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 28 3a 6c 61 62 65 6c 20 22 49 6e 69 74 | ).(:newline))).....(:label."Init |
| 1f5300 | 69 61 6c 69 7a 61 74 69 6f 6e 3a 22 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 28 3a 6c | ialization:").(:newline).....(:l |
| 1f5320 | 61 62 65 6c 20 22 20 20 41 72 67 73 3a 20 22 29 20 28 3a 76 61 6c 75 65 20 2c 28 6d 6f 70 3a 73 | abel."..Args:.").(:value.,(mop:s |
| 1f5340 | 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 74 61 72 67 73 20 73 6c 6f 74 29 29 20 28 | lot-definition-initargs.slot)).( |
| 1f5360 | 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 28 3a 6c 61 62 65 6c 20 22 20 20 46 6f 72 6d 3a 20 22 | :newline).....(:label."..Form:." |
| 1f5380 | 29 0a 20 20 20 20 2c 28 69 66 20 28 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d | ).....,(if.(mop:slot-definition- |
| 1f53a0 | 69 6e 69 74 66 75 6e 63 74 69 6f 6e 20 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 20 60 28 3a 76 | initfunction.slot)..........`(:v |
| 1f53c0 | 61 6c 75 65 20 2c 28 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 69 6e 69 74 66 | alue.,(mop:slot-definition-initf |
| 1f53e0 | 6f 72 6d 20 73 6c 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 22 23 3c 75 6e 73 70 65 63 69 66 69 | orm.slot)).........."#<unspecifi |
| 1f5400 | 65 64 3e 22 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 22 20 20 46 75 6e 63 74 69 6f 6e | ed>").(:newline)....."..Function |
| 1f5420 | 3a 20 22 0a 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e | :.".....(:value.,(mop:slot-defin |
| 1f5440 | 69 74 69 6f 6e 2d 69 6e 69 74 66 75 6e 63 74 69 6f 6e 20 73 6c 6f 74 29 29 0a 20 20 20 20 28 3a | ition-initfunction.slot)).....(: |
| 1f5460 | 6e 65 77 6c 69 6e 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 70 65 63 74 6f 72 2d 6a 61 76 | newline)))..(defun.inspector-jav |
| 1f5480 | 61 2d 66 69 65 6c 64 73 20 28 63 6c 61 73 73 29 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 20 66 6f 72 | a-fields.(class)...(loop.....for |
| 1f54a0 | 20 73 75 70 65 72 0a 20 20 20 20 20 20 3d 20 63 6c 61 73 73 20 74 68 65 6e 20 28 6a 63 6c 61 73 | .super.......=.class.then.(jclas |
| 1f54c0 | 73 2d 73 75 70 65 72 63 6c 61 73 73 20 73 75 70 65 72 29 0a 20 20 20 20 77 68 69 6c 65 20 73 75 | s-superclass.super).....while.su |
| 1f54e0 | 70 65 72 0a 20 20 20 20 66 6f 72 20 66 69 65 6c 64 73 0a 20 20 20 20 20 20 3d 20 28 6a 63 61 6c | per.....for.fields.......=.(jcal |
| 1f5500 | 6c 20 22 67 65 74 44 65 63 6c 61 72 65 64 46 69 65 6c 64 73 22 20 73 75 70 65 72 29 0a 20 20 20 | l."getDeclaredFields".super).... |
| 1f5520 | 20 66 6f 72 20 66 72 6f 6d 6c 69 6e 65 0a 20 20 20 20 20 20 3d 20 6e 69 6c 20 74 68 65 6e 20 28 | .for.fromline.......=.nil.then.( |
| 1f5540 | 6c 69 73 74 20 60 28 3a 6c 61 62 65 6c 20 22 46 72 6f 6d 3a 20 22 29 20 60 28 3a 76 61 6c 75 65 | list.`(:label."From:.").`(:value |
| 1f5560 | 20 2c 73 75 70 65 72 20 20 2c 28 6a 63 61 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 73 75 70 65 72 | .,super..,(jcall."getName".super |
| 1f5580 | 29 29 20 27 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 28 70 | )).'(:newline)).....when.(and.(p |
| 1f55a0 | 6c 75 73 70 20 28 6c 65 6e 67 74 68 20 66 69 65 6c 64 73 29 29 20 66 72 6f 6d 6c 69 6e 65 29 0a | lusp.(length.fields)).fromline). |
| 1f55c0 | 20 20 20 20 20 20 61 70 70 65 6e 64 20 66 72 6f 6d 6c 69 6e 65 0a 20 20 20 20 61 70 70 65 6e 64 | ......append.fromline.....append |
| 1f55e0 | 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 74 68 69 73 20 61 63 72 6f 73 73 20 66 69 65 6c 64 | .....(loop.for.this.across.field |
| 1f5600 | 73 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 72 65 20 3d 20 28 73 75 62 73 65 71 20 28 6a | s...........for.pre.=.(subseq.(j |
| 1f5620 | 63 61 6c 6c 20 22 74 6f 53 74 72 69 6e 67 22 20 74 68 69 73 29 0a 20 20 20 20 20 20 20 20 20 20 | call."toString".this)........... |
| 1f5640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 0a 20 20 20 20 20 20 20 20 20 20 20 | ..................0............. |
| 1f5660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2b 20 28 70 6f 73 69 74 69 6f 6e 20 23 | .................(1+.(position.# |
| 1f5680 | 5c 2e 20 28 6a 63 61 6c 6c 20 22 74 6f 53 74 72 69 6e 67 22 20 74 68 69 73 29 20 20 3a 66 72 6f | \..(jcall."toString".this)..:fro |
| 1f56a0 | 6d 2d 65 6e 64 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 22 20 20 | m-end.t)))...........collect.".. |
| 1f56c0 | 22 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 76 61 6c 75 65 | "...........collect.(list.:value |
| 1f56e0 | 20 74 68 69 73 20 70 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 | .this.pre)...........collect.(li |
| 1f5700 | 73 74 20 3a 76 61 6c 75 65 20 74 68 69 73 20 28 6a 63 61 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 | st.:value.this.(jcall."getName". |
| 1f5720 | 74 68 69 73 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 27 28 3a 6e 65 77 | this).)...........collect.'(:new |
| 1f5740 | 6c 69 6e 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 70 65 63 74 6f 72 2d 6a 61 76 61 2d | line))))..(defun.inspector-java- |
| 1f5760 | 6d 65 74 68 6f 64 73 20 28 63 6c 61 73 73 29 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 20 66 6f 72 20 | methods.(class)...(loop.....for. |
| 1f5780 | 73 75 70 65 72 0a 20 20 20 20 20 20 3d 20 63 6c 61 73 73 20 74 68 65 6e 20 28 6a 63 6c 61 73 73 | super.......=.class.then.(jclass |
| 1f57a0 | 2d 73 75 70 65 72 63 6c 61 73 73 20 73 75 70 65 72 29 0a 20 20 20 20 77 68 69 6c 65 20 73 75 70 | -superclass.super).....while.sup |
| 1f57c0 | 65 72 0a 20 20 20 20 66 6f 72 20 6d 65 74 68 6f 64 73 0a 20 20 20 20 20 20 3d 20 28 6a 63 61 6c | er.....for.methods.......=.(jcal |
| 1f57e0 | 6c 20 22 67 65 74 44 65 63 6c 61 72 65 64 4d 65 74 68 6f 64 73 22 20 73 75 70 65 72 29 0a 20 20 | l."getDeclaredMethods".super)... |
| 1f5800 | 20 20 66 6f 72 20 66 72 6f 6d 6c 69 6e 65 0a 20 20 20 20 20 20 3d 20 6e 69 6c 20 74 68 65 6e 20 | ..for.fromline.......=.nil.then. |
| 1f5820 | 28 6c 69 73 74 20 60 28 3a 6c 61 62 65 6c 20 22 46 72 6f 6d 3a 20 22 29 20 60 28 3a 76 61 6c 75 | (list.`(:label."From:.").`(:valu |
| 1f5840 | 65 20 2c 73 75 70 65 72 20 20 2c 28 6a 63 61 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 73 75 70 65 | e.,super..,(jcall."getName".supe |
| 1f5860 | 72 29 29 20 27 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 28 | r)).'(:newline)).....when.(and.( |
| 1f5880 | 70 6c 75 73 70 20 28 6c 65 6e 67 74 68 20 6d 65 74 68 6f 64 73 29 29 20 66 72 6f 6d 6c 69 6e 65 | plusp.(length.methods)).fromline |
| 1f58a0 | 29 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 66 72 6f 6d 6c 69 6e 65 0a 20 20 20 20 61 70 70 65 | ).......append.fromline.....appe |
| 1f58c0 | 6e 64 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 74 68 69 73 20 61 63 72 6f 73 73 20 6d 65 74 | nd.....(loop.for.this.across.met |
| 1f58e0 | 68 6f 64 73 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 64 65 73 63 20 3d 20 28 6a 63 61 6c 6c | hods...........for.desc.=.(jcall |
| 1f5900 | 20 22 74 6f 53 74 72 69 6e 67 22 20 74 68 69 73 29 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 | ."toString".this)...........for. |
| 1f5920 | 70 61 72 65 6e 20 3d 20 20 28 70 6f 73 69 74 69 6f 6e 20 23 5c 28 20 64 65 73 63 29 0a 20 20 20 | paren.=..(position.#\(.desc).... |
| 1f5940 | 20 20 20 20 20 20 20 66 6f 72 20 64 6f 74 20 3d 20 28 70 6f 73 69 74 69 6f 6e 20 23 5c 2e 20 28 | .......for.dot.=.(position.#\..( |
| 1f5960 | 73 75 62 73 65 71 20 64 65 73 63 20 30 20 70 61 72 65 6e 29 20 3a 66 72 6f 6d 2d 65 6e 64 20 74 | subseq.desc.0.paren).:from-end.t |
| 1f5980 | 29 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 72 65 20 3d 20 28 73 75 62 73 65 71 20 64 65 | )...........for.pre.=.(subseq.de |
| 1f59a0 | 73 63 20 30 20 64 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6e 61 6d 65 20 3d 20 28 | sc.0.dot)...........for.name.=.( |
| 1f59c0 | 73 75 62 73 65 71 20 64 65 73 63 20 64 6f 74 20 70 61 72 65 6e 29 0a 20 20 20 20 20 20 20 20 20 | subseq.desc.dot.paren).......... |
| 1f59e0 | 20 66 6f 72 20 61 66 74 65 72 20 3d 20 28 73 75 62 73 65 71 20 64 65 73 63 20 70 61 72 65 6e 29 | .for.after.=.(subseq.desc.paren) |
| 1f5a00 | 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 22 20 20 22 0a 20 20 20 20 20 20 20 20 | ...........collect.".."......... |
| 1f5a20 | 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 76 61 6c 75 65 20 74 68 69 73 20 70 72 65 29 | ..collect.(list.:value.this.pre) |
| 1f5a40 | 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 76 61 6c 75 65 20 | ...........collect.(list.:value. |
| 1f5a60 | 74 68 69 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 | this.name)...........collect.(li |
| 1f5a80 | 73 74 20 3a 76 61 6c 75 65 20 74 68 69 73 20 61 66 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 | st.:value.this.after)........... |
| 1f5aa0 | 63 6f 6c 6c 65 63 74 20 27 28 3a 6e 65 77 6c 69 6e 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 | collect.'(:newline))))..(defun.e |
| 1f5ac0 | 6d 61 63 73 2d 69 6e 73 70 65 63 74 2d 6a 61 76 61 2d 63 6c 61 73 73 20 28 63 6c 61 73 73 29 0a | macs-inspect-java-class.(class). |
| 1f5ae0 | 20 20 28 6c 65 74 20 28 28 68 61 73 2d 73 75 70 65 72 63 6c 61 73 73 65 73 20 28 6a 63 6c 61 73 | ..(let.((has-superclasses.(jclas |
| 1f5b00 | 73 2d 73 75 70 65 72 63 6c 61 73 73 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 28 68 61 | s-superclass.class)).........(ha |
| 1f5b20 | 73 2d 69 6e 74 65 72 66 61 63 65 73 20 28 70 6c 75 73 70 20 28 6c 65 6e 67 74 68 20 28 6a 63 6c | s-interfaces.(plusp.(length.(jcl |
| 1f5b40 | 61 73 73 2d 69 6e 74 65 72 66 61 63 65 73 20 63 6c 61 73 73 29 29 29 29 0a 20 20 20 20 20 20 20 | ass-interfaces.class))))........ |
| 1f5b60 | 20 28 66 69 65 6c 64 73 20 28 69 6e 73 70 65 63 74 6f 72 2d 6a 61 76 61 2d 66 69 65 6c 64 73 20 | .(fields.(inspector-java-fields. |
| 1f5b80 | 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 28 70 61 74 68 20 28 6a 63 61 6c 6c 20 22 72 65 | class)).........(path.(jcall."re |
| 1f5ba0 | 70 6c 61 63 65 46 69 72 73 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | placeFirst"..................... |
| 1f5bc0 | 20 28 6a 63 61 6c 6c 20 22 72 65 70 6c 61 63 65 46 69 72 73 74 22 20 20 0a 20 20 20 20 20 20 20 | .(jcall."replaceFirst".......... |
| 1f5be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6a 63 61 6c 6c 20 22 74 6f 53 | .....................(jcall."toS |
| 1f5c00 | 74 72 69 6e 67 22 20 28 6a 63 61 6c 6c 20 22 67 65 74 52 65 73 6f 75 72 63 65 22 20 0a 20 20 20 | tring".(jcall."getResource"..... |
| 1f5c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1f5c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 | ..................class......... |
| 1f5c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1f5c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e | .............(concatenate.'strin |
| 1f5ca0 | 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g............................... |
| 1f5cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1f5ce0 | 20 20 20 20 22 2f 22 20 28 73 75 62 73 74 69 74 75 74 65 20 23 5c 2f 20 23 5c 2e 20 28 6a 63 61 | ...."/".(substitute.#\/.#\..(jca |
| 1f5d00 | 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ll."getName".class))............ |
| 1f5d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1f5d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2e 63 6c 61 73 73 22 29 | .......................".class") |
| 1f5d60 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | ))............................." |
| 1f5d80 | 6a 61 72 3a 66 69 6c 65 3a 22 20 22 22 29 20 22 21 2e 2a 22 20 22 22 29 29 29 0a 20 20 20 20 60 | jar:file:"."")."!.*".""))).....` |
| 1f5da0 | 28 28 3a 6c 61 62 65 6c 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4a 61 76 61 20 43 6c 61 73 | ((:label.,(format.nil."Java.Clas |
| 1f5dc0 | 73 3a 20 7e 61 22 20 28 6a 63 61 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 63 6c 61 73 73 29 20 29 | s:.~a".(jcall."getName".class).) |
| 1f5de0 | 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 2c 40 28 77 68 65 6e | ).......(:newline).......,@(when |
| 1f5e00 | 20 70 61 74 68 20 28 6c 69 73 74 20 60 28 3a 6c 61 62 65 6c 20 2c 22 4c 6f 61 64 65 64 20 66 72 | .path.(list.`(:label.,"Loaded.fr |
| 1f5e20 | 6f 6d 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | om:.").......................... |
| 1f5e40 | 60 28 3a 76 61 6c 75 65 20 2c 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | `(:value.,path)................. |
| 1f5e60 | 20 20 20 20 20 20 20 20 20 22 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........".".................... |
| 1f5e80 | 20 20 20 20 20 20 60 28 3a 61 63 74 69 6f 6e 20 22 5b 6f 70 65 6e 20 69 6e 20 65 6d 61 63 73 20 | ......`(:action."[open.in.emacs. |
| 1f5ea0 | 62 75 66 66 65 72 5d 22 20 2c 28 6c 61 6d 62 64 61 28 29 20 28 73 77 61 6e 6b 3a 3a 65 64 2d 69 | buffer]".,(lambda().(swank::ed-i |
| 1f5ec0 | 6e 2d 65 6d 61 63 73 20 60 28 20 2c 70 61 74 68 29 29 29 29 20 27 28 3a 6e 65 77 6c 69 6e 65 29 | n-emacs.`(.,path)))).'(:newline) |
| 1f5ee0 | 29 29 0a 20 20 20 20 20 20 2c 40 28 69 66 20 68 61 73 2d 73 75 70 65 72 63 6c 61 73 73 65 73 20 | )).......,@(if.has-superclasses. |
| 1f5f00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 27 28 3a 6c 61 62 65 6c 20 22 53 75 | .............(list*.'(:label."Su |
| 1f5f20 | 70 65 72 63 6c 61 73 73 65 73 3a 20 22 29 20 28 62 75 74 6c 61 73 74 20 28 6c 6f 6f 70 20 66 6f | perclasses:.").(butlast.(loop.fo |
| 1f5f40 | 72 20 73 75 70 65 72 20 3d 20 28 6a 63 6c 61 73 73 2d 73 75 70 65 72 63 6c 61 73 73 20 63 6c 61 | r.super.=.(jclass-superclass.cla |
| 1f5f60 | 73 73 29 20 74 68 65 6e 20 28 6a 63 6c 61 73 73 2d 73 75 70 65 72 63 6c 61 73 73 20 73 75 70 65 | ss).then.(jclass-superclass.supe |
| 1f5f80 | 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r).............................. |
| 1f5fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1f5fc0 | 77 68 69 6c 65 20 73 75 70 65 72 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 76 61 6c 75 65 | while.super.collect.(list.:value |
| 1f5fe0 | 20 73 75 70 65 72 20 28 6a 63 61 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 73 75 70 65 72 29 29 20 | .super.(jcall."getName".super)). |
| 1f6000 | 63 6f 6c 6c 65 63 74 20 22 2c 20 22 29 29 29 29 0a 20 20 20 20 20 20 2c 40 28 69 66 20 68 61 73 | collect.",.")))).......,@(if.has |
| 1f6020 | 2d 69 6e 74 65 72 66 61 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 27 | -interfaces.............(list*.' |
| 1f6040 | 28 3a 6e 65 77 6c 69 6e 65 29 20 27 28 3a 6c 61 62 65 6c 20 22 49 6d 70 6c 65 6d 65 6e 74 73 20 | (:newline).'(:label."Implements. |
| 1f6060 | 49 6e 74 65 72 66 61 63 65 73 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | Interfaces:.").................. |
| 1f6080 | 20 20 28 62 75 74 6c 61 73 74 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 61 63 72 6f 73 73 20 28 6a | ..(butlast.(loop.for.i.across.(j |
| 1f60a0 | 63 6c 61 73 73 2d 69 6e 74 65 72 66 61 63 65 73 20 63 6c 61 73 73 29 20 63 6f 6c 6c 65 63 74 20 | class-interfaces.class).collect. |
| 1f60c0 | 28 6c 69 73 74 20 3a 76 61 6c 75 65 20 69 20 28 6a 63 61 6c 6c 20 22 67 65 74 4e 61 6d 65 22 20 | (list.:value.i.(jcall."getName". |
| 1f60e0 | 69 29 29 20 63 6f 6c 6c 65 63 74 20 22 2c 20 22 29 29 29 29 0a 20 20 20 20 20 20 28 3a 6e 65 77 | i)).collect.",.")))).......(:new |
| 1f6100 | 6c 69 6e 65 29 20 28 3a 6c 61 62 65 6c 20 22 4d 65 74 68 6f 64 73 3a 22 29 20 28 3a 6e 65 77 6c | line).(:label."Methods:").(:newl |
| 1f6120 | 69 6e 65 29 0a 20 20 20 20 20 20 2c 40 28 69 6e 73 70 65 63 74 6f 72 2d 6a 61 76 61 2d 6d 65 74 | ine).......,@(inspector-java-met |
| 1f6140 | 68 6f 64 73 20 63 6c 61 73 73 29 0a 20 20 20 20 20 20 2c 40 28 69 66 20 66 69 65 6c 64 73 0a 20 | hods.class).......,@(if.fields.. |
| 1f6160 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | ...........(list*..............' |
| 1f6180 | 28 3a 6e 65 77 6c 69 6e 65 29 20 27 28 3a 6c 61 62 65 6c 20 22 46 69 65 6c 64 73 3a 22 29 20 27 | (:newline).'(:label."Fields:").' |
| 1f61a0 | 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 65 6c 64 73 29 29 | (:newline)..............fields)) |
| 1f61c0 | 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 | )))..(defmethod.emacs-inspect.(( |
| 1f61e0 | 6f 62 6a 65 63 74 20 73 79 73 3a 3a 73 74 72 75 63 74 75 72 65 2d 6f 62 6a 65 63 74 29 29 0a 20 | object.sys::structure-object)).. |
| 1f6200 | 20 60 28 28 3a 6c 61 62 65 6c 20 22 54 79 70 65 3a 20 22 29 20 28 3a 76 61 6c 75 65 20 2c 28 74 | .`((:label."Type:.").(:value.,(t |
| 1f6220 | 79 70 65 2d 6f 66 20 6f 62 6a 65 63 74 29 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 28 | ype-of.object)).(:newline).....( |
| 1f6240 | 3a 6c 61 62 65 6c 20 22 43 6c 61 73 73 3a 20 22 29 20 28 3a 76 61 6c 75 65 20 2c 28 63 6c 61 73 | :label."Class:.").(:value.,(clas |
| 1f6260 | 73 2d 6f 66 20 6f 62 6a 65 63 74 29 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 2c 40 28 | s-of.object)).(:newline).....,@( |
| 1f6280 | 69 6e 73 70 65 63 74 6f 72 2d 73 74 72 75 63 74 75 72 65 2d 73 6c 6f 74 2d 6e 61 6d 65 73 2d 61 | inspector-structure-slot-names-a |
| 1f62a0 | 6e 64 2d 76 61 6c 75 65 73 20 6f 62 6a 65 63 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 70 | nd-values.object)))..(defun.insp |
| 1f62c0 | 65 63 74 6f 72 2d 73 74 72 75 63 74 75 72 65 2d 73 6c 6f 74 2d 6e 61 6d 65 73 2d 61 6e 64 2d 76 | ector-structure-slot-names-and-v |
| 1f62e0 | 61 6c 75 65 73 20 28 73 74 72 75 63 74 75 72 65 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 75 63 | alues.(structure)...(let.((struc |
| 1f6300 | 74 75 72 65 2d 64 65 66 20 28 67 65 74 20 28 74 79 70 65 2d 6f 66 20 73 74 72 75 63 74 75 72 65 | ture-def.(get.(type-of.structure |
| 1f6320 | 29 20 27 73 79 73 74 65 6d 3a 3a 73 74 72 75 63 74 75 72 65 2d 64 65 66 69 6e 69 74 69 6f 6e 29 | ).'system::structure-definition) |
| 1f6340 | 29 29 0a 20 20 20 20 28 69 66 20 73 74 72 75 63 74 75 72 65 2d 64 65 66 0a 20 20 20 20 20 20 20 | )).....(if.structure-def........ |
| 1f6360 | 20 60 28 28 3a 6c 61 62 65 6c 20 22 53 6c 6f 74 73 3a 20 22 29 20 28 3a 6e 65 77 6c 69 6e 65 29 | .`((:label."Slots:.").(:newline) |
| 1f6380 | 0a 20 20 20 20 20 20 20 20 20 20 2c 40 28 6c 6f 6f 70 20 66 6f 72 20 73 6c 6f 74 64 65 66 20 69 | ...........,@(loop.for.slotdef.i |
| 1f63a0 | 6e 20 28 73 79 73 3a 3a 64 64 2d 73 6c 6f 74 73 20 73 74 72 75 63 74 75 72 65 2d 64 65 66 29 0a | n.(sys::dd-slots.structure-def). |
| 1f63c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6e 61 6d 65 20 3d 20 28 73 79 | ..................for.name.=.(sy |
| 1f63e0 | 73 3a 3a 64 73 64 2d 6e 61 6d 65 20 73 6c 6f 74 64 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 | s::dsd-name.slotdef)............ |
| 1f6400 | 20 20 20 20 20 20 20 66 6f 72 20 72 65 61 64 65 72 20 3d 20 28 73 79 73 3a 3a 64 73 64 2d 72 65 | .......for.reader.=.(sys::dsd-re |
| 1f6420 | 61 64 65 72 20 73 6c 6f 74 64 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ader.slotdef)................... |
| 1f6440 | 66 6f 72 20 76 61 6c 75 65 20 3d 20 28 65 76 61 6c 20 60 28 2c 72 65 61 64 65 72 20 2c 73 74 72 | for.value.=.(eval.`(,reader.,str |
| 1f6460 | 75 63 74 75 72 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e | ucture))...................appen |
| 1f6480 | 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 20 20 22 20 28 3a 6c 61 62 | d...................`("..".(:lab |
| 1f64a0 | 65 6c 20 2c 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 28 73 74 72 69 6e 67 20 6e 61 6d | el.,(string-downcase.(string.nam |
| 1f64c0 | 65 29 29 29 20 22 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 76 61 6c 75 65 29 20 28 3a 6e 65 77 6c | e))).":.".(:value.,value).(:newl |
| 1f64e0 | 69 6e 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 60 28 22 4e 6f 20 73 6c 6f 74 73 20 61 76 61 69 | ine)))).........`("No.slots.avai |
| 1f6500 | 6c 61 62 6c 65 20 66 6f 72 20 69 6e 73 70 65 63 74 69 6f 6e 2e 22 29 29 29 29 0a 0a 23 2b 23 2e | lable.for.inspection."))))..#+#. |
| 1f6520 | 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 67 65 74 2d | (swank/backend:with-symbol.'get- |
| 1f6540 | 6a 61 76 61 2d 66 69 65 6c 64 20 27 6a 73 73 29 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 | java-field.'jss).(defmethod.emac |
| 1f6560 | 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 62 6a 65 63 74 20 73 79 73 3a 3a 73 74 72 75 63 74 75 72 | s-inspect.((object.sys::structur |
| 1f6580 | 65 2d 63 6c 61 73 73 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 6e 61 6d 65 20 28 6a 73 73 3a 3a 67 | e-class))...(let*.((name.(jss::g |
| 1f65a0 | 65 74 2d 6a 61 76 61 2d 66 69 65 6c 64 20 6f 62 6a 65 63 74 20 22 6e 61 6d 65 22 20 74 29 29 0a | et-java-field.object."name".t)). |
| 1f65c0 | 20 20 20 20 20 20 20 20 20 28 64 65 66 20 28 67 65 74 20 6e 61 6d 65 20 20 27 73 79 73 74 65 6d | .........(def.(get.name..'system |
| 1f65e0 | 3a 3a 73 74 72 75 63 74 75 72 65 2d 64 65 66 69 6e 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 60 28 | ::structure-definition))).....`( |
| 1f6600 | 28 3a 6c 61 62 65 6c 20 22 43 6c 61 73 73 3a 20 22 29 20 28 3a 76 61 6c 75 65 20 2c 6f 62 6a 65 | (:label."Class:.").(:value.,obje |
| 1f6620 | 63 74 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 28 3a 6c 61 62 65 6c 20 22 52 61 | ct).(:newline).......(:label."Ra |
| 1f6640 | 77 20 64 65 66 73 74 72 75 63 74 20 64 65 66 69 6e 69 74 69 6f 6e 3a 20 22 29 20 28 3a 76 61 6c | w.defstruct.definition:.").(:val |
| 1f6660 | 75 65 20 2c 64 65 66 20 20 2c 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 61 72 72 61 79 2a 20 6e | ue.,def..,(let.((*print-array*.n |
| 1f6680 | 69 6c 29 29 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 64 65 66 29 29 29 20 28 3a 6e | il)).(prin1-to-string.def))).(:n |
| 1f66a0 | 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 2c 40 28 70 61 72 74 73 2d 66 6f 72 2d 73 74 72 75 63 | ewline).......,@(parts-for-struc |
| 1f66c0 | 74 75 72 65 2d 64 65 66 20 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 3b 3b 20 63 6f 70 79 2d 70 61 | ture-def..name).......;;.copy-pa |
| 1f66e0 | 73 74 65 20 66 72 6f 6d 20 73 77 61 6e 6b 20 66 61 6e 63 79 20 69 6e 73 70 65 63 74 6f 72 0a 20 | ste.from.swank.fancy.inspector.. |
| 1f6700 | 20 20 20 20 20 2c 40 28 77 68 65 6e 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 73 70 65 63 69 61 6c 69 | .....,@(when.(swank-mop:speciali |
| 1f6720 | 7a 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 | zer-direct-methods.object)...... |
| 1f6740 | 20 20 20 20 20 60 28 28 3a 6c 61 62 65 6c 20 22 49 74 20 69 73 20 75 73 65 64 20 61 73 20 61 20 | .....`((:label."It.is.used.as.a. |
| 1f6760 | 64 69 72 65 63 74 20 73 70 65 63 69 61 6c 69 7a 65 72 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 | direct.specializer.in.the.follow |
| 1f6780 | 69 6e 67 20 6d 65 74 68 6f 64 73 3a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 | ing.methods:").............(:new |
| 1f67a0 | 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 6c 6f 6f 70 0a 20 20 20 20 20 20 | line).............,@(loop....... |
| 1f67c0 | 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6d 65 74 68 6f 64 20 69 6e 20 28 73 70 65 63 69 61 6c | ..........for.method.in.(special |
| 1f67e0 | 69 7a 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 | izer-direct-methods.object)..... |
| 1f6800 | 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6d 65 74 68 6f 64 2d 73 70 65 63 20 3d 20 28 73 | ............for.method-spec.=.(s |
| 1f6820 | 77 61 6e 6b 3a 3a 6d 65 74 68 6f 64 2d 66 6f 72 2d 69 6e 73 70 65 63 74 2d 76 61 6c 75 65 20 6d | wank::method-for-inspect-value.m |
| 1f6840 | 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 22 | ethod).................collect." |
| 1f6860 | 20 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 3a 76 | ..".................collect.`(:v |
| 1f6880 | 61 6c 75 65 20 2c 6d 65 74 68 6f 64 20 2c 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 28 | alue.,method.,(string-downcase.( |
| 1f68a0 | 73 74 72 69 6e 67 20 28 63 61 72 20 6d 65 74 68 6f 64 2d 73 70 65 63 29 29 29 29 0a 20 20 20 20 | string.(car.method-spec))))..... |
| 1f68c0 | 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 3a 76 61 6c 75 65 20 2c 6d 65 | ............collect.`(:value.,me |
| 1f68e0 | 74 68 6f 64 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 20 28 7e 7b 7e 61 7e 5e 20 7e 7d 29 22 | thod.,(format.nil.".(~{~a~^.~})" |
| 1f6900 | 20 28 63 64 72 20 6d 65 74 68 6f 64 2d 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(cdr.method-spec)))............ |
| 1f6920 | 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c 65 74 20 28 28 6d 65 74 68 6f 64 20 6d 65 74 68 6f 64 | .....append.(let.((method.method |
| 1f6940 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 20 | ))..........................`(". |
| 1f6960 | 22 20 28 3a 61 63 74 69 6f 6e 20 22 5b 72 65 6d 6f 76 65 5d 22 0a 20 20 20 20 20 20 20 20 20 20 | ".(:action."[remove]"........... |
| 1f6980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 | ..............................,( |
| 1f69a0 | 6c 61 6d 62 64 61 20 28 29 20 28 72 65 6d 6f 76 65 2d 6d 65 74 68 6f 64 20 28 73 77 61 6e 6b 2d | lambda.().(remove-method.(swank- |
| 1f69c0 | 6d 6f 70 3a 3a 6d 65 74 68 6f 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 | mop::method-generic-function.met |
| 1f69e0 | 68 6f 64 29 20 6d 65 74 68 6f 64 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hod).method)))))................ |
| 1f6a00 | 20 63 6f 6c 6c 65 63 74 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .collect.'(:newline)............ |
| 1f6a20 | 20 20 20 20 20 69 66 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6d 65 74 68 6f 64 20 74 29 | .....if.(documentation.method.t) |
| 1f6a40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 22 20 20 20 20 | ...................collect.".... |
| 1f6a60 | 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 20 22 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 | Documentation:.".and............ |
| 1f6a80 | 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 73 77 61 6e 6b 3a 3a 61 62 62 72 65 76 2d 64 6f 63 20 | .....collect.(swank::abbrev-doc. |
| 1f6aa0 | 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6d 65 74 68 6f 64 20 74 29 29 20 61 6e 64 0a 20 | .(documentation.method.t)).and.. |
| 1f6ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 27 28 3a 6e 65 77 6c 69 6e | ...............collect.'(:newlin |
| 1f6ae0 | 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 61 72 74 73 2d 66 6f 72 2d 73 74 72 75 63 | e)))))))..(defun.parts-for-struc |
| 1f6b00 | 74 75 72 65 2d 64 65 66 2d 73 6c 6f 74 20 28 64 65 66 29 0a 20 20 60 28 28 3a 6c 61 62 65 6c 20 | ture-def-slot.(def)...`((:label. |
| 1f6b20 | 2c 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 28 73 79 73 3a 3a 64 73 64 2d 6e 61 6d 65 | ,(string-downcase.(sys::dsd-name |
| 1f6b40 | 20 64 65 66 29 29 29 20 22 20 72 65 61 64 65 72 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 28 73 79 | .def))).".reader:.".(:value.,(sy |
| 1f6b60 | 73 3a 3a 64 73 64 2d 72 65 61 64 65 72 20 64 65 66 29 20 2c 28 73 74 72 69 6e 67 2d 64 6f 77 6e | s::dsd-reader.def).,(string-down |
| 1f6b80 | 63 61 73 65 20 28 73 74 72 69 6e 67 20 28 73 79 73 3a 3a 64 73 64 72 65 61 64 65 72 20 64 65 66 | case.(string.(sys::dsdreader.def |
| 1f6ba0 | 29 29 29 29 0a 20 20 20 20 22 2c 20 69 6e 64 65 78 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 28 73 | )))).....",.index:.".(:value.,(s |
| 1f6bc0 | 79 73 3a 3a 64 73 64 2d 69 6e 64 65 78 20 64 65 66 29 29 0a 20 20 20 20 2c 40 28 69 66 20 28 73 | ys::dsd-index.def)).....,@(if.(s |
| 1f6be0 | 79 73 3a 3a 64 73 64 2d 69 6e 69 74 66 6f 72 6d 20 64 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 | ys::dsd-initform.def)........... |
| 1f6c00 | 60 28 22 2c 20 69 6e 69 74 66 6f 72 6d 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 28 73 79 73 3a 3a | `(",.initform:.".(:value.,(sys:: |
| 1f6c20 | 64 73 64 2d 69 6e 69 74 66 6f 72 6d 20 64 65 66 29 29 29 29 0a 20 20 20 20 2c 40 28 69 66 20 28 | dsd-initform.def)))).....,@(if.( |
| 1f6c40 | 73 79 73 3a 3a 64 73 64 2d 72 65 61 64 2d 6f 6e 6c 79 20 64 65 66 29 0a 20 20 20 20 20 20 20 20 | sys::dsd-read-only.def)......... |
| 1f6c60 | 20 20 27 28 22 2c 20 52 65 61 64 20 6f 6e 6c 79 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 61 | ..'(",.Read.only"))))..(defun.pa |
| 1f6c80 | 72 74 73 2d 66 6f 72 2d 73 74 72 75 63 74 75 72 65 2d 64 65 66 20 28 6e 61 6d 65 29 0a 20 20 28 | rts-for-structure-def.(name)...( |
| 1f6ca0 | 6c 65 74 20 28 28 73 74 72 75 63 74 75 72 65 2d 64 65 66 20 28 67 65 74 20 6e 61 6d 65 20 27 73 | let.((structure-def.(get.name.'s |
| 1f6cc0 | 79 73 74 65 6d 3a 3a 73 74 72 75 63 74 75 72 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 29 29 29 0a | ystem::structure-definition.))). |
| 1f6ce0 | 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 61 63 63 65 73 | ....(append......(loop.for.acces |
| 1f6d00 | 73 6f 72 20 69 6e 20 27 28 64 64 2d 6e 61 6d 65 20 64 64 2d 63 6f 6e 63 2d 6e 61 6d 65 20 64 64 | sor.in.'(dd-name.dd-conc-name.dd |
| 1f6d20 | 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 73 74 72 75 63 74 6f 72 20 64 64 2d 63 6f 6e 73 74 72 75 63 | -default-constructor.dd-construc |
| 1f6d40 | 74 6f 72 73 20 64 64 2d 63 6f 70 69 65 72 20 64 64 2d 69 6e 63 6c 75 64 65 20 64 64 2d 74 79 70 | tors.dd-copier.dd-include.dd-typ |
| 1f6d60 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 | e..............................d |
| 1f6d80 | 64 2d 6e 61 6d 65 64 20 64 64 2d 69 6e 69 74 69 61 6c 2d 6f 66 66 73 65 74 20 64 64 2d 70 72 65 | d-named.dd-initial-offset.dd-pre |
| 1f6da0 | 64 69 63 61 74 65 20 64 64 2d 70 72 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 64 64 2d 70 72 69 6e | dicate.dd-print-function.dd-prin |
| 1f6dc0 | 74 2d 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-object........................ |
| 1f6de0 | 20 20 20 20 20 20 64 64 2d 69 6e 68 65 72 69 74 65 64 2d 61 63 63 65 73 73 6f 72 73 29 0a 20 20 | ......dd-inherited-accessors)... |
| 1f6e00 | 20 20 20 20 20 20 20 20 20 66 6f 72 20 6b 65 79 20 3d 20 28 69 6e 74 65 72 6e 20 28 73 75 62 73 | .........for.key.=.(intern.(subs |
| 1f6e20 | 65 71 20 28 73 74 72 69 6e 67 20 61 63 63 65 73 73 6f 72 29 20 33 29 20 27 6b 65 79 77 6f 72 64 | eq.(string.accessor).3).'keyword |
| 1f6e40 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 66 73 79 6d 20 3d 20 28 66 69 6e 64 2d 73 79 | )............for.fsym.=.(find-sy |
| 1f6e60 | 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 61 63 63 65 73 73 6f 72 29 20 27 73 79 73 74 65 6d 29 0a | mbol.(string.accessor).'system). |
| 1f6e80 | 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 76 61 6c 75 65 20 3d 20 28 65 76 61 6c 20 60 28 2c | ...........for.value.=.(eval.`(, |
| 1f6ea0 | 66 73 79 6d 20 2c 73 74 72 75 63 74 75 72 65 2d 64 65 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 | fsym.,structure-def))........... |
| 1f6ec0 | 20 61 70 70 65 6e 64 20 60 28 28 3a 6c 61 62 65 6c 20 2c 28 73 74 72 69 6e 67 2d 63 61 70 69 74 | .append.`((:label.,(string-capit |
| 1f6ee0 | 61 6c 69 7a 65 20 28 73 74 72 69 6e 67 20 6b 65 79 29 29 29 20 22 3a 20 22 20 28 3a 76 61 6c 75 | alize.(string.key))).":.".(:valu |
| 1f6f00 | 65 20 2c 76 61 6c 75 65 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 28 6c 65 74 | e.,value).(:newline)))......(let |
| 1f6f20 | 2a 20 28 28 64 69 72 65 63 74 20 28 73 79 73 3a 3a 64 64 2d 64 69 72 65 63 74 2d 73 6c 6f 74 73 | *.((direct.(sys::dd-direct-slots |
| 1f6f40 | 20 73 74 72 75 63 74 75 72 65 2d 64 65 66 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | .structure-def).).............(a |
| 1f6f60 | 6c 6c 20 28 73 79 73 3a 3a 64 64 2d 73 6c 6f 74 73 20 73 74 72 75 63 74 75 72 65 2d 64 65 66 29 | ll.(sys::dd-slots.structure-def) |
| 1f6f80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 68 65 72 69 74 65 64 20 28 73 65 74 2d 64 69 | ).............(inherited.(set-di |
| 1f6fa0 | 66 66 65 72 65 6e 63 65 20 61 6c 6c 20 64 69 72 65 63 74 29 29 29 0a 20 20 20 20 20 20 20 60 28 | fference.all.direct)))........`( |
| 1f6fc0 | 28 3a 6c 61 62 65 6c 20 22 44 69 72 65 63 74 20 73 6c 6f 74 73 3a 20 22 29 20 28 3a 6e 65 77 6c | (:label."Direct.slots:.").(:newl |
| 1f6fe0 | 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 2c 40 28 6c 6f 6f 70 20 66 6f 72 20 73 6c 6f 74 64 65 | ine)..........,@(loop.for.slotde |
| 1f7000 | 66 20 69 6e 20 64 69 72 65 63 74 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 | f.in.direct....................a |
| 1f7020 | 70 70 65 6e 64 20 60 28 22 20 20 22 20 2c 40 28 70 61 72 74 73 2d 66 6f 72 2d 73 74 72 75 63 74 | ppend.`("..".,@(parts-for-struct |
| 1f7040 | 75 72 65 2d 64 65 66 2d 73 6c 6f 74 20 73 6c 6f 74 64 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 | ure-def-slot.slotdef)........... |
| 1f7060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 29 | .....................(:newline)) |
| 1f7080 | 29 0a 20 20 20 20 20 20 20 20 20 2c 40 28 69 66 20 69 6e 68 65 72 69 74 65 64 20 0a 20 20 20 20 | )..........,@(if.inherited...... |
| 1f70a0 | 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 27 28 28 3a 6c 61 62 65 6c 20 22 49 6e | ...........(append.'((:label."In |
| 1f70c0 | 68 65 72 69 74 65 64 20 73 6c 6f 74 73 3a 20 22 29 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 | herited.slots:.").(:newline))... |
| 1f70e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 | .....................(loop.for.s |
| 1f7100 | 6c 6f 74 64 65 66 20 69 6e 20 69 6e 68 65 72 69 74 65 64 20 20 0a 20 20 20 20 20 20 20 20 20 20 | lotdef.in.inherited............. |
| 1f7120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 60 28 22 20 20 22 | ...................append.`(".." |
| 1f7140 | 20 28 3a 6c 61 62 65 6c 20 2c 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 28 73 74 72 69 | .(:label.,(string-downcase.(stri |
| 1f7160 | 6e 67 20 28 73 79 73 3a 3a 64 73 64 2d 6e 61 6d 65 20 73 6c 6f 74 64 65 66 29 29 29 29 0a 20 20 | ng.(sys::dsd-name.slotdef))))... |
| 1f7180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1f71a0 | 20 20 20 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 73 6c 6f 74 64 65 66 20 22 73 6c 6f 74 20 | .........(:value.,slotdef."slot. |
| 1f71c0 | 64 65 66 69 6e 69 74 69 6f 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | definition").................... |
| 1f71e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e | ........................(:newlin |
| 1f7200 | 65 29 29 29 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 | e))))))))))..;;;;.Multithreading |
| 1f7220 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 70 61 77 6e 20 28 66 6e 20 26 | ..(defimplementation.spawn.(fn.& |
| 1f7240 | 6b 65 79 20 6e 61 6d 65 29 0a 20 20 28 74 68 72 65 61 64 73 3a 6d 61 6b 65 2d 74 68 72 65 61 64 | key.name)...(threads:make-thread |
| 1f7260 | 20 28 6c 61 6d 62 64 61 20 28 29 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 20 3a 6e 61 6d 65 20 | .(lambda.().(funcall.fn)).:name. |
| 1f7280 | 6e 61 6d 65 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 70 6c 69 73 74 73 2a 20 | name))..(defvar.*thread-plists*. |
| 1f72a0 | 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 20 3b 20 73 68 6f 75 6c 64 20 62 65 20 61 20 | (make-hash-table).;.should.be.a. |
| 1f72c0 | 77 65 61 6b 20 74 61 62 6c 65 0a 20 20 22 41 20 68 61 73 68 74 61 62 6c 65 20 6d 61 70 70 69 6e | weak.table..."A.hashtable.mappin |
| 1f72e0 | 67 20 74 68 72 65 61 64 73 20 74 6f 20 61 20 70 6c 69 73 74 2e 22 29 0a 0a 28 64 65 66 76 61 72 | g.threads.to.a.plist.")..(defvar |
| 1f7300 | 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2a 20 30 29 0a 0a 28 64 65 66 69 6d 70 | .*thread-id-counter*.0)..(defimp |
| 1f7320 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 20 28 74 68 72 65 61 64 29 0a 20 | lementation.thread-id.(thread).. |
| 1f7340 | 20 28 74 68 72 65 61 64 73 3a 73 79 6e 63 68 72 6f 6e 69 7a 65 64 2d 6f 6e 20 2a 74 68 72 65 61 | .(threads:synchronized-on.*threa |
| 1f7360 | 64 2d 70 6c 69 73 74 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-plists*....................... |
| 1f7380 | 20 20 20 20 20 28 6f 72 20 28 67 65 74 66 20 28 67 65 74 68 61 73 68 20 74 68 72 65 61 64 20 2a | .....(or.(getf.(gethash.thread.* |
| 1f73a0 | 74 68 72 65 61 64 2d 70 6c 69 73 74 73 2a 29 20 27 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 | thread-plists*).'id)............ |
| 1f73c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 | ....................(setf.(getf. |
| 1f73e0 | 28 67 65 74 68 61 73 68 20 74 68 72 65 61 64 20 2a 74 68 72 65 61 64 2d 70 6c 69 73 74 73 2a 29 | (gethash.thread.*thread-plists*) |
| 1f7400 | 20 27 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .'id)........................... |
| 1f7420 | 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e | ...........(incf.*thread-id-coun |
| 1f7440 | 74 65 72 2a 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 | ter*)))))..(defimplementation.fi |
| 1f7460 | 6e 64 2d 74 68 72 65 61 64 20 28 69 64 29 0a 20 20 28 66 69 6e 64 20 69 64 20 28 61 6c 6c 2d 74 | nd-thread.(id)...(find.id.(all-t |
| 1f7480 | 68 72 65 61 64 73 29 0a 20 20 20 20 20 20 20 20 3a 6b 65 79 20 28 6c 61 6d 62 64 61 20 28 74 68 | hreads).........:key.(lambda.(th |
| 1f74a0 | 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 66 20 28 67 65 74 68 | read)................(getf.(geth |
| 1f74c0 | 61 73 68 20 74 68 72 65 61 64 20 2a 74 68 72 65 61 64 2d 70 6c 69 73 74 73 2a 29 20 27 69 64 29 | ash.thread.*thread-plists*).'id) |
| 1f74e0 | 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 6e | )))..(defimplementation.thread-n |
| 1f7500 | 61 6d 65 20 28 74 68 72 65 61 64 29 0a 20 20 28 74 68 72 65 61 64 73 3a 74 68 72 65 61 64 2d 6e | ame.(thread)...(threads:thread-n |
| 1f7520 | 61 6d 65 20 74 68 72 65 61 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ame.thread))..(defimplementation |
| 1f7540 | 20 74 68 72 65 61 64 2d 73 74 61 74 75 73 20 28 74 68 72 65 61 64 29 0a 20 20 28 66 6f 72 6d 61 | .thread-status.(thread)...(forma |
| 1f7560 | 74 20 6e 69 6c 20 22 54 68 72 65 61 64 20 69 73 20 7e 3a 5b 64 65 61 64 7e 3b 61 6c 69 76 65 7e | t.nil."Thread.is.~:[dead~;alive~ |
| 1f7580 | 5d 22 20 28 74 68 72 65 61 64 73 3a 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 74 68 72 65 61 | ]".(threads:thread-alive-p.threa |
| 1f75a0 | 64 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 6c 6f | d)))..(defimplementation.make-lo |
| 1f75c0 | 63 6b 20 28 26 6b 65 79 20 6e 61 6d 65 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 | ck.(&key.name)...(declare.(ignor |
| 1f75e0 | 65 20 6e 61 6d 65 29 29 0a 20 20 28 74 68 72 65 61 64 73 3a 6d 61 6b 65 2d 74 68 72 65 61 64 2d | e.name))...(threads:make-thread- |
| 1f7600 | 6c 6f 63 6b 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d | lock))..(defimplementation.call- |
| 1f7620 | 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 6c 6f 63 6b 20 66 75 6e 63 74 69 6f 6e 29 0a 20 | with-lock-held.(lock.function).. |
| 1f7640 | 20 28 74 68 72 65 61 64 73 3a 77 69 74 68 2d 74 68 72 65 61 64 2d 6c 6f 63 6b 20 28 6c 6f 63 6b | .(threads:with-thread-lock.(lock |
| 1f7660 | 29 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | ).(funcall.function)))..(defimpl |
| 1f7680 | 65 6d 65 6e 74 61 74 69 6f 6e 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 28 | ementation.current-thread.()...( |
| 1f76a0 | 74 68 72 65 61 64 73 3a 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 0a 0a 28 64 65 66 69 6d | threads:current-thread))..(defim |
| 1f76c0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 28 63 | plementation.all-threads.()...(c |
| 1f76e0 | 6f 70 79 2d 6c 69 73 74 20 28 74 68 72 65 61 64 73 3a 6d 61 70 63 61 72 2d 74 68 72 65 61 64 73 | opy-list.(threads:mapcar-threads |
| 1f7700 | 20 23 27 69 64 65 6e 74 69 74 79 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | .#'identity)))..(defimplementati |
| 1f7720 | 6f 6e 20 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 28 74 68 72 65 61 64 29 0a 20 20 28 6d 65 | on.thread-alive-p.(thread)...(me |
| 1f7740 | 6d 62 65 72 20 74 68 72 65 61 64 20 28 61 6c 6c 2d 74 68 72 65 61 64 73 29 29 29 0a 0a 28 64 65 | mber.thread.(all-threads)))..(de |
| 1f7760 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 | fimplementation.interrupt-thread |
| 1f7780 | 20 28 74 68 72 65 61 64 20 66 6e 29 0a 20 20 28 74 68 72 65 61 64 73 3a 69 6e 74 65 72 72 75 70 | .(thread.fn)...(threads:interrup |
| 1f77a0 | 74 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 20 66 6e 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | t-thread.thread.fn))..(defimplem |
| 1f77c0 | 65 6e 74 61 74 69 6f 6e 20 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 | entation.kill-thread.(thread)... |
| 1f77e0 | 28 74 68 72 65 61 64 73 3a 64 65 73 74 72 6f 79 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 29 29 | (threads:destroy-thread.thread)) |
| 1f7800 | 0a 0a 28 64 65 66 73 74 72 75 63 74 20 6d 61 69 6c 62 6f 78 0a 20 20 28 71 75 65 75 65 20 27 28 | ..(defstruct.mailbox...(queue.'( |
| 1f7820 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c 62 6f 78 20 28 74 68 72 65 61 64 29 0a 20 20 22 | )))..(defun.mailbox.(thread)..." |
| 1f7840 | 52 65 74 75 72 6e 20 54 48 52 45 41 44 27 73 20 6d 61 69 6c 62 6f 78 2e 22 0a 20 20 28 74 68 72 | Return.THREAD's.mailbox."...(thr |
| 1f7860 | 65 61 64 73 3a 73 79 6e 63 68 72 6f 6e 69 7a 65 64 2d 6f 6e 20 2a 74 68 72 65 61 64 2d 70 6c 69 | eads:synchronized-on.*thread-pli |
| 1f7880 | 73 74 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sts*............................ |
| 1f78a0 | 28 6f 72 20 28 67 65 74 66 20 28 67 65 74 68 61 73 68 20 74 68 72 65 61 64 20 2a 74 68 72 65 61 | (or.(getf.(gethash.thread.*threa |
| 1f78c0 | 64 2d 70 6c 69 73 74 73 2a 29 20 27 6d 61 69 6c 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 | d-plists*).'mailbox)............ |
| 1f78e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 | ....................(setf.(getf. |
| 1f7900 | 28 67 65 74 68 61 73 68 20 74 68 72 65 61 64 20 2a 74 68 72 65 61 64 2d 70 6c 69 73 74 73 2a 29 | (gethash.thread.*thread-plists*) |
| 1f7920 | 20 27 6d 61 69 6c 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .'mailbox)...................... |
| 1f7940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6d 61 69 6c 62 6f 78 29 29 29 | ................(make-mailbox))) |
| 1f7960 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 6e 64 20 28 74 68 72 | ))..(defimplementation.send.(thr |
| 1f7980 | 65 61 64 20 6d 65 73 73 61 67 65 29 0a 20 20 28 6c 65 74 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c | ead.message)...(let.((mbox.(mail |
| 1f79a0 | 62 6f 78 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 28 74 68 72 65 61 64 73 3a 73 79 6e 63 68 | box.thread))).....(threads:synch |
| 1f79c0 | 72 6f 6e 69 7a 65 64 2d 6f 6e 20 6d 62 6f 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ronized-on.mbox................. |
| 1f79e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2d 71 75 65 75 | .............(setf.(mailbox-queu |
| 1f7a00 | 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.mbox)......................... |
| 1f7a20 | 20 20 20 20 20 20 20 20 20 20 20 28 6e 63 6f 6e 63 20 28 6d 61 69 6c 62 6f 78 2d 71 75 65 75 65 | ...........(nconc.(mailbox-queue |
| 1f7a40 | 20 6d 62 6f 78 29 20 28 6c 69 73 74 20 6d 65 73 73 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 20 | .mbox).(list.message)))......... |
| 1f7a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 73 3a 6f 62 | .....................(threads:ob |
| 1f7a80 | 6a 65 63 74 2d 6e 6f 74 69 66 79 2d 61 6c 6c 20 6d 62 6f 78 29 29 29 29 0a 0a 28 64 65 66 69 6d | ject-notify-all.mbox))))..(defim |
| 1f7aa0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 69 76 65 2d 69 66 20 28 74 65 73 74 20 26 6f | plementation.receive-if.(test.&o |
| 1f7ac0 | 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 | ptional.timeout)...(let*.((mbox. |
| 1f7ae0 | 28 6d 61 69 6c 62 6f 78 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 29 29 0a 20 20 20 | (mailbox.(current-thread)))).... |
| 1f7b00 | 20 28 61 73 73 65 72 74 20 28 6f 72 20 28 6e 6f 74 20 74 69 6d 65 6f 75 74 29 20 28 65 71 20 74 | .(assert.(or.(not.timeout).(eq.t |
| 1f7b20 | 69 6d 65 6f 75 74 20 74 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 28 63 68 65 | imeout.t))).....(loop.......(che |
| 1f7b40 | 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 20 20 28 74 68 72 65 | ck-slime-interrupts).......(thre |
| 1f7b60 | 61 64 73 3a 73 79 6e 63 68 72 6f 6e 69 7a 65 64 2d 6f 6e 20 6d 62 6f 78 0a 20 20 20 20 20 20 20 | ads:synchronized-on.mbox........ |
| 1f7b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 | ........................(let*.(( |
| 1f7ba0 | 71 20 28 6d 61 69 6c 62 6f 78 2d 71 75 65 75 65 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 | q.(mailbox-queue.mbox))......... |
| 1f7bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 | ..............................(t |
| 1f7be0 | 61 69 6c 20 28 6d 65 6d 62 65 72 2d 69 66 20 74 65 73 74 20 71 29 29 29 0a 20 20 20 20 20 20 20 | ail.(member-if.test.q)))........ |
| 1f7c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | ..........................(when. |
| 1f7c20 | 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tail............................ |
| 1f7c40 | 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2d 71 75 65 75 65 20 6d 62 6f | ........(setf.(mailbox-queue.mbo |
| 1f7c60 | 78 29 20 28 6e 63 6f 6e 63 20 28 6c 64 69 66 66 20 71 20 74 61 69 6c 29 20 28 63 64 72 20 74 61 | x).(nconc.(ldiff.q.tail).(cdr.ta |
| 1f7c80 | 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | il)))........................... |
| 1f7ca0 | 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 63 61 72 20 74 61 69 6c 29 29 29 0a 20 20 | .........(return.(car.tail)))... |
| 1f7cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 1f7ce0 | 77 68 65 6e 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 20 28 72 65 74 75 72 6e 20 28 76 61 6c | when.(eq.timeout.t).(return.(val |
| 1f7d00 | 75 65 73 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ues.nil.t))).................... |
| 1f7d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 73 3a 6f 62 6a 65 63 74 2d 77 61 | ..............(threads:object-wa |
| 1f7d40 | 69 74 20 6d 62 6f 78 20 30 2e 33 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | it.mbox.0.3))))))..(defimplement |
| 1f7d60 | 61 74 69 6f 6e 20 71 75 69 74 2d 6c 69 73 70 20 28 29 0a 20 20 28 65 78 74 3a 65 78 69 74 29 29 | ation.quit-lisp.()...(ext:exit)) |
| 1f7d80 | 0a 0a 3b 3b 20 46 49 58 4d 45 20 70 72 6f 62 61 62 6c 79 20 73 68 6f 75 6c 64 20 62 65 20 70 72 | ..;;.FIXME.probably.should.be.pr |
| 1f7da0 | 6f 6d 6f 74 65 64 20 74 6f 20 6f 74 68 65 72 20 6c 69 73 70 73 20 62 75 74 20 49 20 64 6f 6e 27 | omoted.to.other.lisps.but.I.don' |
| 1f7dc0 | 74 20 77 61 6e 74 20 74 6f 20 6d 65 73 73 20 77 69 74 68 20 74 68 65 6d 0a 28 64 65 66 76 61 72 | t.want.to.mess.with.them.(defvar |
| 1f7de0 | 20 2a 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 74 2d 63 61 73 65 2a 20 2a 70 72 69 6e 74 2d 63 | .*inspector-print-case*.*print-c |
| 1f7e00 | 61 73 65 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 | ase*)..(defimplementation.call-w |
| 1f7e20 | 69 74 68 2d 73 79 6e 74 61 78 2d 68 6f 6f 6b 73 20 28 66 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a | ith-syntax-hooks.(fn)...(let.((* |
| 1f7e40 | 70 72 69 6e 74 2d 63 61 73 65 2a 20 2a 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 74 2d 63 61 73 | print-case*.*inspector-print-cas |
| 1f7e60 | 65 2a 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 29 0a 0a 3b 3b 3b 0a 23 2b 23 | e*)).....(funcall.fn)))..;;;.#+# |
| 1f7e80 | 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 70 61 63 | .(swank/backend:with-symbol.'pac |
| 1f7ea0 | 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 20 27 65 78 74 29 0a 28 64 65 66 69 | kage-local-nicknames.'ext).(defi |
| 1f7ec0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b | mplementation.package-local-nick |
| 1f7ee0 | 6e 61 6d 65 73 20 28 70 61 63 6b 61 67 65 29 0a 20 20 28 65 78 74 3a 70 61 63 6b 61 67 65 2d 6c | names.(package)...(ext:package-l |
| 1f7f00 | 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 20 70 61 63 6b 61 67 65 29 29 0a 0a 3b 3b 20 61 6c 6c | ocal-nicknames.package))..;;.all |
| 1f7f20 | 20 74 68 65 20 64 65 66 69 6d 70 6c 65 6e 74 61 74 69 6f 6e 73 20 61 72 65 6e 27 74 20 63 6f 6d | .the.defimplentations.aren't.com |
| 1f7f40 | 70 69 6c 65 64 2e 20 43 6f 6d 70 69 6c 65 20 74 68 65 6d 2e 20 53 65 74 20 74 68 65 69 72 0a 3b | piled..Compile.them..Set.their.; |
| 1f7f60 | 3b 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 74 6f 20 62 65 20 74 68 65 20 73 61 6d 65 20 61 | ;.function.name.to.be.the.same.a |
| 1f7f80 | 73 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6e 61 6d 65 20 73 6f 0a 3b 3b 20 | s.the.implementation.name.so.;;. |
| 1f7fa0 | 6d 65 74 61 2d 2e 20 77 6f 72 6b 73 2e 0a 0a 23 2b 61 62 63 6c 2d 69 6e 74 72 6f 73 70 65 63 74 | meta-..works...#+abcl-introspect |
| 1f7fc0 | 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 | .(eval-when.(:load-toplevel.:exe |
| 1f7fe0 | 63 75 74 65 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 20 69 6e 20 73 77 61 6e 6b 2d 62 61 63 | cute)...(loop.for.s.in.swank-bac |
| 1f8000 | 6b 65 6e 64 3a 3a 2a 69 6e 74 65 72 66 61 63 65 2d 66 75 6e 63 74 69 6f 6e 73 2a 0a 20 20 20 20 | kend::*interface-functions*..... |
| 1f8020 | 20 20 20 20 66 6f 72 20 69 6d 70 6c 20 3d 20 28 67 65 74 20 73 20 27 73 77 61 6e 6b 2d 62 61 63 | ....for.impl.=.(get.s.'swank-bac |
| 1f8040 | 6b 65 6e 64 3a 3a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 64 6f | kend::implementation).........do |
| 1f8060 | 20 28 77 68 65 6e 20 28 61 6e 64 20 69 6d 70 6c 20 28 6e 6f 74 20 28 63 6f 6d 70 69 6c 65 64 2d | .(when.(and.impl.(not.(compiled- |
| 1f8080 | 66 75 6e 63 74 69 6f 6e 2d 70 20 69 6d 70 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | function-p.impl))).............. |
| 1f80a0 | 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 | (let.((name.(gensym))).......... |
| 1f80c0 | 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 20 6e 61 6d 65 20 69 6d 70 6c 29 0a 20 20 20 20 20 20 | ......(compile.name.impl)....... |
| 1f80e0 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 69 6c 65 64 20 28 73 79 6d 62 6f 6c | .........(let.((compiled.(symbol |
| 1f8100 | 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -function.name)))............... |
| 1f8120 | 20 20 20 28 73 79 73 74 65 6d 3a 3a 25 73 65 74 2d 6c 61 6d 62 64 61 2d 6e 61 6d 65 20 63 6f 6d | ...(system::%set-lambda-name.com |
| 1f8140 | 70 69 6c 65 64 20 28 73 65 63 6f 6e 64 20 28 73 79 73 3a 3a 6c 61 6d 62 64 61 2d 6e 61 6d 65 20 | piled.(second.(sys::lambda-name. |
| 1f8160 | 69 6d 70 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 | impl)))..................(setf.( |
| 1f8180 | 67 65 74 20 73 20 27 73 77 61 6e 6b 2d 62 61 63 6b 65 6e 64 3a 3a 69 6d 70 6c 65 6d 65 6e 74 61 | get.s.'swank-backend::implementa |
| 1f81a0 | 74 69 6f 6e 29 20 63 6f 6d 70 69 6c 65 64 29 29 29 29 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 | tion).compiled))))))............ |
| 1f81c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f81e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f8200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 72 70 63 2e 6c 69 73 70 00 00 00 00 00 00 00 | slime-2.31/swank/rpc.lisp....... |
| 1f8220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f8240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f8260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 1f8280 | 30 30 31 32 33 33 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 30 31 34 00 20 30 00 00 00 | 0012336.00000000000.014014..0... |
| 1f82a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f82c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f82e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f8300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 1f8320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 1f8340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f8360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f8380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f83a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f83c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f83e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f8400 | 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 3b 20 63 | ;;;.-*-.indent-tabs-mode:.nil;.c |
| 1f8420 | 6f 64 69 6e 67 3a 20 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 20 2d 2a 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 | oding:.latin-1-unix.-*-.;;;.;;;. |
| 1f8440 | 73 77 61 6e 6b 2d 72 70 63 2e 6c 69 73 70 20 20 2d 2d 20 50 61 73 73 20 72 65 6d 6f 74 65 20 63 | swank-rpc.lisp..--.Pass.remote.c |
| 1f8460 | 61 6c 6c 73 20 61 6e 64 20 72 65 73 70 6f 6e 73 65 73 20 62 65 74 77 65 65 6e 20 6c 69 73 70 20 | alls.and.responses.between.lisp. |
| 1f8480 | 73 79 73 74 65 6d 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 43 72 65 61 74 65 64 20 32 30 31 30 2c 20 54 | systems..;;;.;;;.Created.2010,.T |
| 1f84a0 | 65 72 6a 65 20 4e 6f 72 64 65 72 68 61 75 67 20 3c 74 65 72 6a 65 40 69 6e 2d 70 72 6f 67 72 65 | erje.Norderhaug.<terje@in-progre |
| 1f84c0 | 73 73 2e 63 6f 6d 3e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 | ss.com>.;;;.;;;.This.code.has.be |
| 1f84e0 | 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 | en.placed.in.the.Public.Domain.. |
| 1f8500 | 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 0a 3b 3b 3b 20 61 72 65 20 64 69 73 63 6c 61 69 6d | .All.warranties.;;;.are.disclaim |
| 1f8520 | 65 64 2e 0a 3b 3b 3b 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 72 70 63 29 0a | ed..;;;..(in-package.swank/rpc). |
| 1f8540 | 0a 0c 0a 3b 3b 3b 3b 3b 20 49 6e 70 75 74 0a 0a 28 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f | ...;;;;;.Input..(define-conditio |
| 1f8560 | 6e 20 73 77 61 6e 6b 2d 72 65 61 64 65 72 2d 65 72 72 6f 72 20 28 72 65 61 64 65 72 2d 65 72 72 | n.swank-reader-error.(reader-err |
| 1f8580 | 6f 72 29 0a 20 20 28 28 70 61 63 6b 65 74 20 3a 74 79 70 65 20 73 74 72 69 6e 67 20 3a 69 6e 69 | or)...((packet.:type.string.:ini |
| 1f85a0 | 74 61 72 67 20 3a 70 61 63 6b 65 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 61 64 65 72 | targ.:packet.............:reader |
| 1f85c0 | 20 73 77 61 6e 6b 2d 72 65 61 64 65 72 2d 65 72 72 6f 72 2e 70 61 63 6b 65 74 29 0a 20 20 20 28 | .swank-reader-error.packet)....( |
| 1f85e0 | 63 61 75 73 65 20 3a 74 79 70 65 20 72 65 61 64 65 72 2d 65 72 72 6f 72 20 3a 69 6e 69 74 61 72 | cause.:type.reader-error.:initar |
| 1f8600 | 67 20 3a 63 61 75 73 65 20 0a 20 20 20 20 20 20 20 20 20 20 3a 72 65 61 64 65 72 20 73 77 61 6e | g.:cause............:reader.swan |
| 1f8620 | 6b 2d 72 65 61 64 65 72 2d 65 72 72 6f 72 2e 63 61 75 73 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 | k-reader-error.cause)))..(defun. |
| 1f8640 | 72 65 61 64 2d 6d 65 73 73 61 67 65 20 28 73 74 72 65 61 6d 20 70 61 63 6b 61 67 65 29 0a 20 20 | read-message.(stream.package)... |
| 1f8660 | 28 6c 65 74 20 28 28 70 61 63 6b 65 74 20 28 72 65 61 64 2d 70 61 63 6b 65 74 20 73 74 72 65 61 | (let.((packet.(read-packet.strea |
| 1f8680 | 6d 29 29 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 76 61 6c 75 65 73 20 28 | m))).....(handler-case.(values.( |
| 1f86a0 | 72 65 61 64 2d 66 6f 72 6d 20 70 61 63 6b 65 74 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 | read-form.packet.package))...... |
| 1f86c0 | 20 28 72 65 61 64 65 72 2d 65 72 72 6f 72 20 28 63 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f | .(reader-error.(c).........(erro |
| 1f86e0 | 72 20 27 73 77 61 6e 6b 2d 72 65 61 64 65 72 2d 65 72 72 6f 72 20 0a 20 20 20 20 20 20 20 20 20 | r.'swank-reader-error........... |
| 1f8700 | 20 20 20 20 20 20 3a 70 61 63 6b 65 74 20 70 61 63 6b 65 74 20 3a 63 61 75 73 65 20 63 29 29 29 | ......:packet.packet.:cause.c))) |
| 1f8720 | 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 70 61 63 6b 65 74 20 28 73 74 72 65 61 6d 29 0a | ))..(defun.read-packet.(stream). |
| 1f8740 | 20 20 28 6c 65 74 2a 20 28 28 6c 65 6e 67 74 68 20 28 70 61 72 73 65 2d 68 65 61 64 65 72 20 73 | ..(let*.((length.(parse-header.s |
| 1f8760 | 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 63 74 65 74 73 20 28 72 65 61 64 2d 63 | tream))..........(octets.(read-c |
| 1f8780 | 68 75 6e 6b 20 73 74 72 65 61 6d 20 6c 65 6e 67 74 68 29 29 29 0a 20 20 20 20 28 68 61 6e 64 6c | hunk.stream.length))).....(handl |
| 1f87a0 | 65 72 2d 63 61 73 65 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 75 74 66 38 2d 74 6f 2d 73 | er-case.(swank/backend:utf8-to-s |
| 1f87c0 | 74 72 69 6e 67 20 6f 63 74 65 74 73 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 63 29 20 0a | tring.octets).......(error.(c).. |
| 1f87e0 | 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 27 73 77 61 6e 6b 2d 72 65 61 64 65 72 2d 65 72 72 | ........(error.'swank-reader-err |
| 1f8800 | 6f 72 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 61 63 6b 65 74 20 28 61 73 63 69 | or.................:packet.(asci |
| 1f8820 | 69 66 79 20 6f 63 74 65 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 75 73 | ify.octets)................:caus |
| 1f8840 | 65 20 63 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 73 63 69 69 66 79 20 28 70 61 63 6b 65 74 | e.c)))))..(defun.asciify.(packet |
| 1f8860 | 29 0a 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2a 73 74 61 | )...(with-output-to-string.(*sta |
| 1f8880 | 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 6f 64 | ndard-output*).....(loop.for.cod |
| 1f88a0 | 65 20 61 63 72 6f 73 73 20 28 65 74 79 70 65 63 61 73 65 20 70 61 63 6b 65 74 20 0a 20 20 20 20 | e.across.(etypecase.packet...... |
| 1f88c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 | ........................(string. |
| 1f88e0 | 28 6d 61 70 20 27 76 65 63 74 6f 72 20 23 27 63 68 61 72 2d 63 6f 64 65 20 70 61 63 6b 65 74 29 | (map.'vector.#'char-code.packet) |
| 1f8900 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 | ).............................(v |
| 1f8920 | 65 63 74 6f 72 20 70 61 63 6b 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 63 6f 6e | ector.packet))...........do.(con |
| 1f8940 | 64 20 28 28 3c 3d 20 63 6f 64 65 20 23 78 37 66 29 20 28 77 72 69 74 65 2d 63 68 61 72 20 28 63 | d.((<=.code.#x7f).(write-char.(c |
| 1f8960 | 6f 64 65 2d 63 68 61 72 20 63 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ode-char.code)))................ |
| 1f8980 | 20 20 20 20 28 74 20 28 66 6f 72 6d 61 74 20 74 20 22 5c 5c 78 7e 78 22 20 63 6f 64 65 29 29 29 | ....(t.(format.t."\\x~x".code))) |
| 1f89a0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 61 72 73 65 2d 68 65 61 64 65 72 20 28 73 74 72 65 61 6d | )))..(defun.parse-header.(stream |
| 1f89c0 | 29 0a 20 20 28 70 61 72 73 65 2d 69 6e 74 65 67 65 72 20 28 6d 61 70 20 27 73 74 72 69 6e 67 20 | )...(parse-integer.(map.'string. |
| 1f89e0 | 23 27 63 6f 64 65 2d 63 68 61 72 20 28 72 65 61 64 2d 63 68 75 6e 6b 20 73 74 72 65 61 6d 20 36 | #'code-char.(read-chunk.stream.6 |
| 1f8a00 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 61 64 69 78 20 31 36 29 29 0a | ))..................:radix.16)). |
| 1f8a20 | 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 63 68 75 6e 6b 20 28 73 74 72 65 61 6d 20 6c 65 6e 67 74 | .(defun.read-chunk.(stream.lengt |
| 1f8a40 | 68 29 0a 20 20 28 6c 65 74 2a 20 28 28 62 75 66 66 65 72 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 | h)...(let*.((buffer.(make-array. |
| 1f8a60 | 6c 65 6e 67 74 68 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 27 28 75 6e 73 69 67 6e 65 64 2d | length.:element-type.'(unsigned- |
| 1f8a80 | 62 79 74 65 20 38 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 74 20 28 72 65 61 64 2d | byte.8)))..........(count.(read- |
| 1f8aa0 | 73 65 71 75 65 6e 63 65 20 62 75 66 66 65 72 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 28 63 | sequence.buffer.stream))).....(c |
| 1f8ac0 | 6f 6e 64 20 28 28 3d 20 63 6f 75 6e 74 20 6c 65 6e 67 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 | ond.((=.count.length)........... |
| 1f8ae0 | 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 7a 65 72 6f 70 20 63 6f 75 6e 74 | .buffer)...........((zerop.count |
| 1f8b00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 27 65 6e 64 2d 6f 66 2d 66 69 6c 65 | )............(error.'end-of-file |
| 1f8b20 | 20 3a 73 74 72 65 61 6d 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 | .:stream.stream))...........(t.. |
| 1f8b40 | 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 53 68 6f 72 74 20 72 65 61 64 3a 20 6c 65 | ..........(error."Short.read:.le |
| 1f8b60 | 6e 67 74 68 3d 7e 44 20 20 63 6f 75 6e 74 3d 7e 44 22 20 6c 65 6e 67 74 68 20 63 6f 75 6e 74 29 | ngth=~D..count=~D".length.count) |
| 1f8b80 | 29 29 29 29 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 76 61 6c 69 64 61 74 65 2d 69 6e | ))))..(defparameter.*validate-in |
| 1f8ba0 | 70 75 74 2a 20 6e 69 6c 0a 20 20 22 53 65 74 20 74 6f 20 74 72 75 65 20 74 6f 20 72 65 71 75 69 | put*.nil..."Set.to.true.to.requi |
| 1f8bc0 | 72 65 20 69 6e 70 75 74 20 74 68 61 74 20 6d 6f 72 65 20 73 74 72 69 63 74 6c 79 20 63 6f 6e 66 | re.input.that.more.strictly.conf |
| 1f8be0 | 6f 72 6d 73 20 74 6f 20 74 68 65 20 70 72 6f 74 6f 63 6f 6c 22 29 0a 0a 28 64 65 66 75 6e 20 72 | orms.to.the.protocol")..(defun.r |
| 1f8c00 | 65 61 64 2d 66 6f 72 6d 20 28 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 29 0a 20 20 28 77 69 74 | ead-form.(string.package)...(wit |
| 1f8c20 | 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 20 28 6c 65 74 20 28 28 | h-standard-io-syntax.....(let.(( |
| 1f8c40 | 2a 70 61 63 6b 61 67 65 2a 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 28 69 66 20 2a 76 | *package*.package)).......(if.*v |
| 1f8c60 | 61 6c 69 64 61 74 65 2d 69 6e 70 75 74 2a 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 69 64 61 | alidate-input*...........(valida |
| 1f8c80 | 74 69 6e 67 2d 72 65 61 64 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 61 | ting-read.string)...........(rea |
| 1f8ca0 | 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 75 | d-from-string.string)))))..(defu |
| 1f8cc0 | 6e 20 76 61 6c 69 64 61 74 69 6e 67 2d 72 65 61 64 20 28 73 74 72 69 6e 67 29 0a 20 20 28 77 69 | n.validating-read.(string)...(wi |
| 1f8ce0 | 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 2a 73 74 61 6e 64 61 72 64 2d | th-input-from-string.(*standard- |
| 1f8d00 | 69 6e 70 75 74 2a 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 73 69 6d 70 6c 65 2d 72 65 61 64 29 | input*.string).....(simple-read) |
| 1f8d20 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d 70 6c 65 2d 72 65 61 64 20 28 29 0a 20 20 20 22 52 65 | ))..(defun.simple-read.()...."Re |
| 1f8d40 | 61 64 20 61 20 66 6f 72 6d 20 74 68 61 74 20 63 6f 6e 66 6f 72 6d 73 20 74 6f 20 74 68 65 20 70 | ad.a.form.that.conforms.to.the.p |
| 1f8d60 | 72 6f 74 6f 63 6f 6c 2c 20 6f 74 68 65 72 77 69 73 65 20 73 69 67 6e 61 6c 20 61 6e 20 65 72 72 | rotocol,.otherwise.signal.an.err |
| 1f8d80 | 6f 72 2e 22 0a 20 20 20 28 6c 65 74 20 28 28 63 20 28 72 65 61 64 2d 63 68 61 72 29 29 29 0a 20 | or."....(let.((c.(read-char))).. |
| 1f8da0 | 20 20 20 20 28 63 61 73 65 20 63 0a 20 20 20 20 20 20 20 28 23 5c 28 20 28 6c 6f 6f 70 20 63 6f | ....(case.c........(#\(.(loop.co |
| 1f8dc0 | 6c 6c 65 63 74 20 28 73 69 6d 70 6c 65 2d 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | llect.(simple-read)............. |
| 1f8de0 | 20 20 20 20 20 20 77 68 69 6c 65 20 28 65 63 61 73 65 20 28 72 65 61 64 2d 63 68 61 72 29 0a 20 | ......while.(ecase.(read-char).. |
| 1f8e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 5c 29 20 6e 69 | .........................(#\).ni |
| 1f8e20 | 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 5c | l)...........................(#\ |
| 1f8e40 | 73 70 61 63 65 20 74 29 29 29 29 0a 20 20 20 20 20 20 20 28 23 5c 27 20 60 28 71 75 6f 74 65 20 | space.t))))........(#\'.`(quote. |
| 1f8e60 | 2c 28 73 69 6d 70 6c 65 2d 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 | ,(simple-read)))........(t...... |
| 1f8e80 | 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 28 28 64 69 67 69 74 2d 63 68 61 72 2d | ...(cond...........((digit-char- |
| 1f8ea0 | 70 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 2d 69 6e 74 65 67 65 72 0a 20 | p.c)............(parse-integer.. |
| 1f8ec0 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 27 73 69 6d 70 6c 65 2d 73 74 72 69 6e 67 20 23 | ...........(map.'simple-string.# |
| 1f8ee0 | 27 69 64 65 6e 74 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 | 'identity..................(loop |
| 1f8f00 | 20 66 6f 72 20 63 68 20 3d 20 63 20 74 68 65 6e 20 28 72 65 61 64 2d 63 68 61 72 20 6e 69 6c 20 | .for.ch.=.c.then.(read-char.nil. |
| 1f8f20 | 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c | nil)........................whil |
| 1f8f40 | 65 20 28 61 6e 64 20 63 68 20 28 64 69 67 69 74 2d 63 68 61 72 2d 70 20 63 68 29 29 0a 20 20 20 | e.(and.ch.(digit-char-p.ch)).... |
| 1f8f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 63 68 0a 20 | ....................collect.ch.. |
| 1f8f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 75 | ......................finally.(u |
| 1f8fa0 | 6e 72 65 61 64 2d 63 68 61 72 20 63 68 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6f | nread-char.ch)))))...........((o |
| 1f8fc0 | 72 20 28 6d 65 6d 62 65 72 20 63 20 27 28 23 5c 3a 20 23 5c 22 29 29 20 28 61 6c 70 68 61 2d 63 | r.(member.c.'(#\:.#\")).(alpha-c |
| 1f8fe0 | 68 61 72 2d 70 20 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 72 65 61 64 2d 63 68 61 | har-p.c))............(unread-cha |
| 1f9000 | 72 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 70 72 65 73 65 72 76 69 6e 67 | r.c)............(read-preserving |
| 1f9020 | 2d 77 68 69 74 65 73 70 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f | -whitespace))...........(t.(erro |
| 1f9040 | 72 20 22 49 6e 76 61 6c 69 64 20 63 68 61 72 61 63 74 65 72 20 7e 3a 63 22 20 63 29 29 29 29 29 | r."Invalid.character.~:c".c))))) |
| 1f9060 | 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 4f 75 74 70 75 74 0a 0a 28 64 65 66 75 6e 20 77 72 69 74 65 | ))....;;;;;.Output..(defun.write |
| 1f9080 | 2d 6d 65 73 73 61 67 65 20 28 6d 65 73 73 61 67 65 20 70 61 63 6b 61 67 65 20 73 74 72 65 61 6d | -message.(message.package.stream |
| 1f90a0 | 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 74 72 69 6e 67 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 | )...(let*.((string.(prin1-to-str |
| 1f90c0 | 69 6e 67 2d 66 6f 72 2d 65 6d 61 63 73 20 6d 65 73 73 61 67 65 20 70 61 63 6b 61 67 65 29 29 0a | ing-for-emacs.message.package)). |
| 1f90e0 | 20 20 20 20 20 20 20 20 20 28 6f 63 74 65 74 73 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 | .........(octets.(handler-case.( |
| 1f9100 | 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 73 74 72 69 6e 67 2d 74 6f 2d 75 74 66 38 20 73 74 72 | swank/backend:string-to-utf8.str |
| 1f9120 | 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 | ing)....................(error.( |
| 1f9140 | 63 29 20 28 65 6e 63 6f 64 69 6e 67 2d 65 72 72 6f 72 20 63 20 73 74 72 69 6e 67 29 29 29 29 0a | c).(encoding-error.c.string)))). |
| 1f9160 | 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 28 6c 65 6e 67 74 68 20 6f 63 74 65 74 73 29 | .........(length.(length.octets) |
| 1f9180 | 29 29 0a 20 20 20 20 28 77 72 69 74 65 2d 68 65 61 64 65 72 20 73 74 72 65 61 6d 20 6c 65 6e 67 | )).....(write-header.stream.leng |
| 1f91a0 | 74 68 29 0a 20 20 20 20 28 77 72 69 74 65 2d 73 65 71 75 65 6e 63 65 20 6f 63 74 65 74 73 20 73 | th).....(write-sequence.octets.s |
| 1f91c0 | 74 72 65 61 6d 29 0a 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 73 74 72 65 61 6d | tream).....(finish-output.stream |
| 1f91e0 | 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 66 6f 72 20 6e 6f 77 20 6a 75 73 74 20 74 65 6c 6c | )))..;;.FIXME:.for.now.just.tell |
| 1f9200 | 20 65 6d 61 63 73 20 74 68 61 74 20 77 65 20 61 6e 64 20 61 6e 20 65 6e 63 6f 64 69 6e 67 20 70 | .emacs.that.we.and.an.encoding.p |
| 1f9220 | 72 6f 62 6c 65 6d 2e 0a 28 64 65 66 75 6e 20 65 6e 63 6f 64 69 6e 67 2d 65 72 72 6f 72 20 28 63 | roblem..(defun.encoding-error.(c |
| 1f9240 | 6f 6e 64 69 74 69 6f 6e 20 73 74 72 69 6e 67 29 0a 20 20 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e | ondition.string)...(swank/backen |
| 1f9260 | 64 3a 73 74 72 69 6e 67 2d 74 6f 2d 75 74 66 38 0a 20 20 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 | d:string-to-utf8....(prin1-to-st |
| 1f9280 | 72 69 6e 67 2d 66 6f 72 2d 65 6d 61 63 73 0a 20 20 20 20 60 28 3a 72 65 61 64 65 72 2d 65 72 72 | ring-for-emacs.....`(:reader-err |
| 1f92a0 | 6f 72 0a 20 20 20 20 20 20 2c 28 61 73 63 69 69 66 79 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 | or.......,(asciify.string)...... |
| 1f92c0 | 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 45 72 72 6f 72 20 64 75 72 69 6e 67 20 73 74 72 69 | .,(format.nil."Error.during.stri |
| 1f92e0 | 6e 67 2d 74 6f 2d 75 74 66 38 3a 20 7e 61 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ng-to-utf8:.~a"................( |
| 1f9300 | 6f 72 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 61 73 63 69 69 66 79 20 28 70 72 69 6e | or.(ignore-errors.(asciify.(prin |
| 1f9320 | 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 | c-to-string.condition)))........ |
| 1f9340 | 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 63 69 69 66 79 20 28 70 72 69 6e 63 2d 74 6f 2d 73 | ............(asciify.(princ-to-s |
| 1f9360 | 74 72 69 6e 67 20 28 74 79 70 65 2d 6f 66 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 29 29 0a 20 | tring.(type-of.condition)))))).. |
| 1f9380 | 20 20 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 63 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e | ...(find-package.:cl))))..(defun |
| 1f93a0 | 20 77 72 69 74 65 2d 68 65 61 64 65 72 20 28 73 74 72 65 61 6d 20 6c 65 6e 67 74 68 29 0a 20 20 | .write-header.(stream.length)... |
| 1f93c0 | 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 32 34 | (declare.(type.(unsigned-byte.24 |
| 1f93e0 | 29 20 6c 65 6e 67 74 68 29 29 0a 20 20 3b 3b 28 66 6f 72 6d 61 74 20 2a 74 72 61 63 65 2d 6f 75 | ).length))...;;(format.*trace-ou |
| 1f9400 | 74 70 75 74 2a 20 22 6c 65 6e 67 74 68 3a 20 7e 64 20 28 23 78 7e 78 29 7e 25 22 20 6c 65 6e 67 | tput*."length:.~d.(#x~x)~%".leng |
| 1f9420 | 74 68 20 6c 65 6e 67 74 68 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 20 61 63 72 6f 73 73 20 | th.length)...(loop.for.c.across. |
| 1f9440 | 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 36 2c 27 30 78 22 20 6c 65 6e 67 74 68 29 0a 20 20 20 | (format.nil."~6,'0x".length).... |
| 1f9460 | 20 20 20 20 20 64 6f 20 28 77 72 69 74 65 2d 62 79 74 65 20 28 63 68 61 72 2d 63 6f 64 65 20 63 | .....do.(write-byte.(char-code.c |
| 1f9480 | 29 20 73 74 72 65 61 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 69 74 63 68 2d 74 6f 2d 64 6f | ).stream)))..(defun.switch-to-do |
| 1f94a0 | 75 62 6c 65 2d 66 6c 6f 61 74 73 20 28 78 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 78 0a 20 20 | uble-floats.(x)...(typecase.x... |
| 1f94c0 | 20 20 28 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 20 78 29 0a 20 20 20 20 28 66 6c 6f 61 74 20 28 63 | ..(double-float.x).....(float.(c |
| 1f94e0 | 6f 65 72 63 65 20 78 20 27 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 29 29 0a 20 20 20 20 28 6e 75 6c | oerce.x.'double-float)).....(nul |
| 1f9500 | 6c 20 78 29 0a 20 20 20 20 28 6c 69 73 74 20 28 6c 6f 6f 70 20 66 6f 72 20 28 78 20 2e 20 63 64 | l.x).....(list.(loop.for.(x...cd |
| 1f9520 | 72 29 20 6f 6e 20 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 | r).on.x.................collect. |
| 1f9540 | 28 73 77 69 74 63 68 2d 74 6f 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 73 20 78 29 20 69 6e 74 6f | (switch-to-double-floats.x).into |
| 1f9560 | 20 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 74 69 6c 20 28 61 | .result.................until.(a |
| 1f9580 | 74 6f 6d 20 63 64 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 | tom.cdr).................finally |
| 1f95a0 | 20 28 72 65 74 75 72 6e 20 28 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 28 73 77 69 74 63 68 2d | .(return.(append.result.(switch- |
| 1f95c0 | 74 6f 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 73 20 63 64 72 29 29 29 29 29 0a 20 20 20 20 28 74 | to-double-floats.cdr))))).....(t |
| 1f95e0 | 20 78 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 2d 66 6f | .x)))..(defun.prin1-to-string-fo |
| 1f9600 | 72 2d 65 6d 61 63 73 20 28 6f 62 6a 65 63 74 20 70 61 63 6b 61 67 65 29 0a 20 20 28 77 69 74 68 | r-emacs.(object.package)...(with |
| 1f9620 | 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 20 28 6c 65 74 20 28 28 2a | -standard-io-syntax.....(let.((* |
| 1f9640 | 70 72 69 6e 74 2d 63 61 73 65 2a 20 3a 64 6f 77 6e 63 61 73 65 29 0a 20 20 20 20 20 20 20 20 20 | print-case*.:downcase).......... |
| 1f9660 | 20 28 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 | .(*print-readably*.nil)......... |
| 1f9680 | 20 20 28 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 | ..(*print-pretty*.nil).......... |
| 1f96a0 | 20 28 2a 70 61 63 6b 61 67 65 2a 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 3b | .(*package*.package)...........; |
| 1f96c0 | 3b 20 45 6d 61 63 73 20 68 61 73 20 6f 6e 6c 79 20 64 6f 75 62 6c 65 20 66 6c 6f 61 74 73 2e 0a | ;.Emacs.has.only.double.floats.. |
| 1f96e0 | 20 20 20 20 20 20 20 20 20 20 28 2a 72 65 61 64 2d 64 65 66 61 75 6c 74 2d 66 6c 6f 61 74 2d 66 | ..........(*read-default-float-f |
| 1f9700 | 6f 72 6d 61 74 2a 20 27 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 29 29 0a 20 20 20 20 20 20 28 70 72 | ormat*.'double-float)).......(pr |
| 1f9720 | 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 77 69 74 63 68 2d 74 6f 2d 64 6f 75 62 6c 65 2d | in1-to-string.(switch-to-double- |
| 1f9740 | 66 6c 6f 61 74 73 20 6f 62 6a 65 63 74 29 29 29 29 29 0a 0a 0c 0a 23 7c 20 54 45 53 54 2f 44 45 | floats.object)))))....#|.TEST/DE |
| 1f9760 | 4d 4f 3a 0a 0a 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 74 72 61 6e 73 70 6f 72 74 2a 0a 20 | MO:..(defparameter.*transport*.. |
| 1f9780 | 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 75 74 29 0a 20 20 | .(with-output-to-string.(out)... |
| 1f97a0 | 20 20 28 77 72 69 74 65 2d 6d 65 73 73 61 67 65 20 27 28 3a 6d 65 73 73 61 67 65 20 28 68 65 6c | ..(write-message.'(:message.(hel |
| 1f97c0 | 6c 6f 20 22 77 6f 72 6c 64 22 29 29 20 2a 70 61 63 6b 61 67 65 2a 20 6f 75 74 29 0a 20 20 20 20 | lo."world")).*package*.out)..... |
| 1f97e0 | 28 77 72 69 74 65 2d 6d 65 73 73 61 67 65 20 27 28 3a 72 65 74 75 72 6e 20 35 29 20 2a 70 61 63 | (write-message.'(:return.5).*pac |
| 1f9800 | 6b 61 67 65 2a 20 6f 75 74 29 0a 20 20 20 20 28 77 72 69 74 65 2d 6d 65 73 73 61 67 65 20 27 28 | kage*.out).....(write-message.'( |
| 1f9820 | 3a 65 6d 61 63 73 2d 72 65 78 20 4e 49 4c 29 20 2a 70 61 63 6b 61 67 65 2a 20 6f 75 74 29 29 29 | :emacs-rex.NIL).*package*.out))) |
| 1f9840 | 0a 0a 2a 74 72 61 6e 73 70 6f 72 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a | ..*transport*................... |
| 1f9860 | 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 69 6e 20 2a 74 72 61 | (with-input-from-string.(in.*tra |
| 1f9880 | 6e 73 70 6f 72 74 2a 29 0a 20 20 28 6c 6f 6f 70 20 77 68 69 6c 65 20 28 70 65 65 6b 2d 63 68 61 | nsport*)...(loop.while.(peek-cha |
| 1f98a0 | 72 20 54 20 69 6e 20 4e 49 4c 29 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 72 65 61 | r.T.in.NIL).........collect.(rea |
| 1f98c0 | 64 2d 6d 65 73 73 61 67 65 20 69 6e 20 2a 70 61 63 6b 61 67 65 2a 29 29 29 0a 0a 7c 23 0a 00 00 | d-message.in.*package*)))..|#... |
| 1f98e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f99a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f99c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f99e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9a00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 63 6d 75 63 6c 2e 6c 69 73 70 00 00 00 00 00 | slime-2.31/swank/cmucl.lisp..... |
| 1f9a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 1f9a80 | 30 32 37 34 37 34 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 33 35 31 00 20 30 00 00 00 | 0274745.00000000000.014351..0... |
| 1f9aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 1f9b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 1f9b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f9c00 | 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 3b 20 6f | ;;;.-*-.indent-tabs-mode:.nil;.o |
| 1f9c20 | 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 3a 20 22 3b 3b 3b 3b 2b 22 20 2d 2a 2d 0a 3b 3b 3b 0a 3b | utline-regexp:.";;;;+".-*-.;;;.; |
| 1f9c40 | 3b 3b 20 4c 69 63 65 6e 73 65 3a 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 0a 3b 3b 3b 0a 3b 3b | ;;.License:.Public.Domain.;;;.;; |
| 1f9c60 | 3b 3b 20 49 6e 74 72 6f 64 75 63 74 69 6f 6e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 69 73 20 | ;;.Introduction.;;;.;;;.This.is. |
| 1f9c80 | 74 68 65 20 43 4d 55 43 4c 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 | the.CMUCL.implementation.of.the. |
| 1f9ca0 | 60 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 27 20 70 61 63 6b 61 67 65 2e 0a 0a 28 64 65 66 70 61 | `swank/backend'.package...(defpa |
| 1f9cc0 | 63 6b 61 67 65 20 73 77 61 6e 6b 2f 63 6d 75 63 6c 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 | ckage.swank/cmucl...(:use.cl.swa |
| 1f9ce0 | 6e 6b 2f 62 61 63 6b 65 6e 64 20 73 77 61 6e 6b 2f 73 6f 75 72 63 65 2d 70 61 74 68 2d 70 61 72 | nk/backend.swank/source-path-par |
| 1f9d00 | 73 65 72 20 73 77 61 6e 6b 2f 73 6f 75 72 63 65 2d 66 69 6c 65 2d 63 61 63 68 65 0a 20 20 20 20 | ser.swank/source-file-cache..... |
| 1f9d20 | 20 20 20 20 66 77 72 61 70 70 65 72 73 29 29 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 | ....fwrappers))..(in-package.swa |
| 1f9d40 | 6e 6b 2f 63 6d 75 63 6c 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d | nk/cmucl)..(eval-when.(:compile- |
| 1f9d60 | 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 | toplevel.:load-toplevel.:execute |
| 1f9d80 | 29 0a 0a 20 20 28 6c 65 74 20 28 28 6d 69 6e 2d 76 65 72 73 69 6f 6e 20 23 78 32 30 63 29 29 0a | )....(let.((min-version.#x20c)). |
| 1f9da0 | 20 20 20 20 28 61 73 73 65 72 74 20 28 3e 3d 20 63 3a 62 79 74 65 2d 66 61 73 6c 2d 66 69 6c 65 | ....(assert.(>=.c:byte-fasl-file |
| 1f9dc0 | 2d 76 65 72 73 69 6f 6e 20 6d 69 6e 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 | -version.min-version)........... |
| 1f9de0 | 20 20 28 29 20 22 54 68 69 73 20 66 69 6c 65 20 72 65 71 75 69 72 65 73 20 43 4d 55 43 4c 20 76 | ..()."This.file.requires.CMUCL.v |
| 1f9e00 | 65 72 73 69 6f 6e 20 7e 78 20 6f 72 20 6e 65 77 65 72 22 20 6d 69 6e 2d 76 65 72 73 69 6f 6e 29 | ersion.~x.or.newer".min-version) |
| 1f9e20 | 29 0a 0a 20 20 28 72 65 71 75 69 72 65 20 27 67 72 61 79 2d 73 74 72 65 61 6d 73 29 29 0a 0a 0c | )....(require.'gray-streams))... |
| 1f9e40 | 0a 28 69 6d 70 6f 72 74 2d 73 77 61 6e 6b 2d 6d 6f 70 2d 73 79 6d 62 6f 6c 73 20 3a 70 63 6c 20 | .(import-swank-mop-symbols.:pcl. |
| 1f9e60 | 27 28 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | '(:slot-definition-documentation |
| 1f9e80 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 6f 70 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 | ))..(defun.swank-mop:slot-defini |
| 1f9ea0 | 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 28 73 6c 6f 74 29 0a 20 20 28 64 6f 63 | tion-documentation.(slot)...(doc |
| 1f9ec0 | 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 6f 74 20 74 29 29 0a 0a 3b 3b 3b 20 55 54 46 38 0a 0a 28 | umentation.slot.t))..;;;.UTF8..( |
| 1f9ee0 | 6c 6f 63 61 6c 6c 79 20 28 64 65 63 6c 61 72 65 20 28 6f 70 74 69 6d 69 7a 65 20 28 65 78 74 3a | locally.(declare.(optimize.(ext: |
| 1f9f00 | 69 6e 68 69 62 69 74 2d 77 61 72 6e 69 6e 67 73 20 33 29 29 29 0a 20 20 3b 3b 20 43 6f 6d 70 69 | inhibit-warnings.3)))...;;.Compi |
| 1f9f20 | 6c 65 20 61 6e 64 20 6c 6f 61 64 20 74 68 65 20 75 74 66 38 20 66 6f 72 6d 61 74 2c 20 69 66 20 | le.and.load.the.utf8.format,.if. |
| 1f9f40 | 6e 6f 74 20 61 6c 72 65 61 64 79 20 6c 6f 61 64 65 64 2e 0a 20 20 28 73 74 72 65 61 6d 3a 3a 66 | not.already.loaded....(stream::f |
| 1f9f60 | 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 3a 75 74 66 2d 38 29 29 0a 0a 28 64 | ind-external-format.:utf-8))..(d |
| 1f9f80 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 2d 74 6f 2d 75 74 66 38 20 | efimplementation.string-to-utf8. |
| 1f9fa0 | 28 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 65 66 20 28 6c 6f 61 64 2d 74 69 6d 65 2d | (string)...(let.((ef.(load-time- |
| 1f9fc0 | 76 61 6c 75 65 20 28 73 74 72 65 61 6d 3a 3a 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 | value.(stream::find-external-for |
| 1f9fe0 | 6d 61 74 20 3a 75 74 66 2d 38 29 20 74 29 29 29 0a 20 20 20 20 28 73 74 72 65 61 6d 3a 73 74 72 | mat.:utf-8).t))).....(stream:str |
| 1fa000 | 69 6e 67 2d 74 6f 2d 6f 63 74 65 74 73 20 73 74 72 69 6e 67 20 3a 65 78 74 65 72 6e 61 6c 2d 66 | ing-to-octets.string.:external-f |
| 1fa020 | 6f 72 6d 61 74 20 65 66 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | ormat.ef)))..(defimplementation. |
| 1fa040 | 75 74 66 38 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 63 74 65 74 73 29 0a 20 20 28 6c 65 74 20 28 | utf8-to-string.(octets)...(let.( |
| 1fa060 | 28 65 66 20 28 6c 6f 61 64 2d 74 69 6d 65 2d 76 61 6c 75 65 20 28 73 74 72 65 61 6d 3a 3a 66 69 | (ef.(load-time-value.(stream::fi |
| 1fa080 | 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 3a 75 74 66 2d 38 29 20 74 29 29 29 0a | nd-external-format.:utf-8).t))). |
| 1fa0a0 | 20 20 20 20 28 73 74 72 65 61 6d 3a 6f 63 74 65 74 73 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 63 74 | ....(stream:octets-to-string.oct |
| 1fa0c0 | 65 74 73 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 65 66 29 29 29 0a 0a 0c 0a 3b 3b | ets.:external-format.ef)))....;; |
| 1fa0e0 | 3b 3b 20 54 43 50 20 73 65 72 76 65 72 0a 3b 3b 3b 0a 3b 3b 3b 20 49 6e 20 43 4d 55 43 4c 20 77 | ;;.TCP.server.;;;.;;;.In.CMUCL.w |
| 1fa100 | 65 20 73 75 70 70 6f 72 74 20 61 6c 6c 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c | e.support.all.communication.styl |
| 1fa120 | 65 73 2e 20 42 79 20 64 65 66 61 75 6c 74 20 77 65 20 75 73 65 0a 3b 3b 3b 20 60 3a 53 49 47 49 | es..By.default.we.use.;;;.`:SIGI |
| 1fa140 | 4f 27 20 62 65 63 61 75 73 65 20 69 74 20 69 73 20 74 68 65 20 6d 6f 73 74 20 72 65 73 70 6f 6e | O'.because.it.is.the.most.respon |
| 1fa160 | 73 69 76 65 2c 20 62 75 74 20 69 74 27 73 20 73 6f 6d 65 77 68 61 74 0a 3b 3b 3b 20 64 61 6e 67 | sive,.but.it's.somewhat.;;;.dang |
| 1fa180 | 65 72 6f 75 73 3a 20 43 4d 55 43 4c 20 69 73 20 6e 6f 74 20 69 6e 20 67 65 6e 65 72 61 6c 20 22 | erous:.CMUCL.is.not.in.general." |
| 1fa1a0 | 73 69 67 6e 61 6c 20 73 61 66 65 22 2c 20 61 6e 64 20 79 6f 75 20 64 6f 6e 27 74 0a 3b 3b 3b 20 | signal.safe",.and.you.don't.;;;. |
| 1fa1c0 | 6b 6e 6f 77 20 66 6f 72 20 73 75 72 65 20 77 68 61 74 20 79 6f 75 27 6c 6c 20 62 65 20 69 6e 74 | know.for.sure.what.you'll.be.int |
| 1fa1e0 | 65 72 72 75 70 74 69 6e 67 2e 20 42 6f 74 68 20 60 3a 46 44 2d 48 41 4e 44 4c 45 52 27 20 61 6e | errupting..Both.`:FD-HANDLER'.an |
| 1fa200 | 64 0a 3b 3b 3b 20 60 3a 53 50 41 57 4e 27 20 61 72 65 20 72 65 61 73 6f 6e 61 62 6c 65 20 61 6c | d.;;;.`:SPAWN'.are.reasonable.al |
| 1fa220 | 74 65 72 6e 61 74 69 76 65 73 2e 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | ternatives...(defimplementation. |
| 1fa240 | 70 72 65 66 65 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 28 29 | preferred-communication-style.() |
| 1fa260 | 0a 20 20 3a 73 69 67 69 6f 29 0a 0a 23 2d 28 6f 72 20 64 61 72 77 69 6e 20 6d 69 70 73 29 0a 28 | ...:sigio)..#-(or.darwin.mips).( |
| 1fa280 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 | defimplementation.create-socket. |
| 1fa2a0 | 28 68 6f 73 74 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 6c 65 74 2a | (host.port.&key.backlog)...(let* |
| 1fa2c0 | 20 28 28 61 64 64 72 20 28 72 65 73 6f 6c 76 65 2d 68 6f 73 74 6e 61 6d 65 20 68 6f 73 74 29 29 | .((addr.(resolve-hostname.host)) |
| 1fa2e0 | 0a 20 20 20 20 20 20 20 20 20 28 61 64 64 72 20 28 69 66 20 28 6e 6f 74 20 28 66 69 6e 64 2d 73 | ..........(addr.(if.(not.(find-s |
| 1fa300 | 79 6d 62 6f 6c 20 22 53 4f 43 4b 45 54 2d 45 52 52 4f 52 22 20 3a 65 78 74 29 29 0a 20 20 20 20 | ymbol."SOCKET-ERROR".:ext))..... |
| 1fa320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 68 74 6f 6e 6c 20 61 64 64 72 29 0a | ...............(ext:htonl.addr). |
| 1fa340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 64 72 29 29 29 0a 20 20 20 20 28 | ...................addr))).....( |
| 1fa360 | 65 78 74 3a 63 72 65 61 74 65 2d 69 6e 65 74 2d 6c 69 73 74 65 6e 65 72 20 70 6f 72 74 20 3a 73 | ext:create-inet-listener.port.:s |
| 1fa380 | 74 72 65 61 6d 20 3a 72 65 75 73 65 2d 61 64 64 72 65 73 73 20 74 20 3a 68 6f 73 74 20 61 64 64 | tream.:reuse-address.t.:host.add |
| 1fa3a0 | 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r............................... |
| 1fa3c0 | 3a 62 61 63 6b 6c 6f 67 20 28 6f 72 20 62 61 63 6b 6c 6f 67 20 35 29 29 29 29 0a 0a 3b 3b 20 54 | :backlog.(or.backlog.5))))..;;.T |
| 1fa3e0 | 68 65 72 65 20 73 65 65 6d 73 20 74 6f 20 62 65 20 61 20 62 75 67 20 69 6e 20 63 72 65 61 74 65 | here.seems.to.be.a.bug.in.create |
| 1fa400 | 2d 69 6e 65 74 2d 6c 69 73 74 65 6e 65 72 20 6f 6e 20 4d 61 63 2f 4f 53 58 20 61 6e 64 20 49 72 | -inet-listener.on.Mac/OSX.and.Ir |
| 1fa420 | 69 78 2e 0a 23 2b 28 6f 72 20 64 61 72 77 69 6e 20 6d 69 70 73 29 0a 28 64 65 66 69 6d 70 6c 65 | ix..#+(or.darwin.mips).(defimple |
| 1fa440 | 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 28 68 6f 73 74 20 70 6f | mentation.create-socket.(host.po |
| 1fa460 | 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e | rt.&key.backlog)...(declare.(ign |
| 1fa480 | 6f 72 65 20 68 6f 73 74 29 29 0a 20 20 28 65 78 74 3a 63 72 65 61 74 65 2d 69 6e 65 74 2d 6c 69 | ore.host))...(ext:create-inet-li |
| 1fa4a0 | 73 74 65 6e 65 72 20 70 6f 72 74 20 3a 73 74 72 65 61 6d 20 3a 72 65 75 73 65 2d 61 64 64 72 65 | stener.port.:stream.:reuse-addre |
| 1fa4c0 | 73 73 20 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 63 61 6c | ss.t))..(defimplementation.local |
| 1fa4e0 | 2d 70 6f 72 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 31 20 28 65 | -port.(socket)...(nth-value.1.(e |
| 1fa500 | 78 74 3a 3a 67 65 74 2d 73 6f 63 6b 65 74 2d 68 6f 73 74 2d 61 6e 64 2d 70 6f 72 74 20 28 73 6f | xt::get-socket-host-and-port.(so |
| 1fa520 | 63 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | cket-fd.socket))))..(defimplemen |
| 1fa540 | 74 61 74 69 6f 6e 20 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 | tation.close-socket.(socket)...( |
| 1fa560 | 6c 65 74 20 28 28 66 64 20 28 73 6f 63 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 0a 20 20 | let.((fd.(socket-fd.socket)))... |
| 1fa580 | 20 20 28 73 79 73 3a 69 6e 76 61 6c 69 64 61 74 65 2d 64 65 73 63 72 69 70 74 6f 72 20 66 64 29 | ..(sys:invalidate-descriptor.fd) |
| 1fa5a0 | 0a 20 20 20 20 28 65 78 74 3a 63 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 66 64 29 29 29 0a 0a 28 64 | .....(ext:close-socket.fd)))..(d |
| 1fa5c0 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 | efimplementation.accept-connecti |
| 1fa5e0 | 6f 6e 20 28 73 6f 63 6b 65 74 20 26 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on.(socket.&key................. |
| 1fa600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 74 65 72 6e 61 6c 2d 66 | ......................external-f |
| 1fa620 | 6f 72 6d 61 74 20 62 75 66 66 65 72 69 6e 67 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 64 65 63 6c | ormat.buffering.timeout)...(decl |
| 1fa640 | 61 72 65 20 28 69 67 6e 6f 72 65 20 74 69 6d 65 6f 75 74 29 29 0a 20 20 28 6d 61 6b 65 2d 73 6f | are.(ignore.timeout))...(make-so |
| 1fa660 | 63 6b 65 74 2d 69 6f 2d 73 74 72 65 61 6d 20 28 65 78 74 3a 61 63 63 65 70 74 2d 74 63 70 2d 63 | cket-io-stream.(ext:accept-tcp-c |
| 1fa680 | 6f 6e 6e 65 63 74 69 6f 6e 20 73 6f 63 6b 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | onnection.socket)............... |
| 1fa6a0 | 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 62 75 66 66 65 72 69 6e 67 0a 20 20 20 20 | ...........(ecase.buffering..... |
| 1fa6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 74 29 20 3a 66 75 6c | .......................((t).:ful |
| 1fa6e0 | 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a | l)............................(: |
| 1fa700 | 6c 69 6e 65 20 3a 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | line.:line)..................... |
| 1fa720 | 20 20 20 20 20 20 20 28 28 6e 69 6c 29 20 3a 6e 6f 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .......((nil).:none))........... |
| 1fa740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 | ...............external-format)) |
| 1fa760 | 0a 0a 3b 3b 3b 3b 3b 20 53 6f 63 6b 65 74 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | ..;;;;;.Sockets..(defimplementat |
| 1fa780 | 69 6f 6e 20 73 6f 63 6b 65 74 2d 66 64 20 28 73 6f 63 6b 65 74 29 0a 20 20 22 52 65 74 75 72 6e | ion.socket-fd.(socket)..."Return |
| 1fa7a0 | 20 74 68 65 20 66 69 6c 65 64 65 73 63 72 69 70 74 6f 72 20 66 6f 72 20 74 68 65 20 73 6f 63 6b | .the.filedescriptor.for.the.sock |
| 1fa7c0 | 65 74 20 72 65 70 72 65 73 65 6e 74 65 64 20 62 79 20 53 4f 43 4b 45 54 2e 22 0a 20 20 28 65 74 | et.represented.by.SOCKET."...(et |
| 1fa7e0 | 79 70 65 63 61 73 65 20 73 6f 63 6b 65 74 0a 20 20 20 20 28 66 69 78 6e 75 6d 20 73 6f 63 6b 65 | ypecase.socket.....(fixnum.socke |
| 1fa800 | 74 29 0a 20 20 20 20 28 73 79 73 3a 66 64 2d 73 74 72 65 61 6d 20 28 73 79 73 3a 66 64 2d 73 74 | t).....(sys:fd-stream.(sys:fd-st |
| 1fa820 | 72 65 61 6d 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 73 6f 6c | ream-fd.socket))))..(defun.resol |
| 1fa840 | 76 65 2d 68 6f 73 74 6e 61 6d 65 20 28 68 6f 73 74 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e | ve-hostname.(hostname)..."Return |
| 1fa860 | 20 74 68 65 20 49 50 20 61 64 64 72 65 73 73 20 6f 66 20 48 4f 53 54 4e 41 4d 45 20 61 73 20 61 | .the.IP.address.of.HOSTNAME.as.a |
| 1fa880 | 6e 20 69 6e 74 65 67 65 72 20 28 69 6e 20 68 6f 73 74 20 62 79 74 65 2d 6f 72 64 65 72 29 2e 22 | n.integer.(in.host.byte-order)." |
| 1fa8a0 | 0a 20 20 28 6c 65 74 20 28 28 68 6f 73 74 65 6e 74 20 28 65 78 74 3a 6c 6f 6f 6b 75 70 2d 68 6f | ...(let.((hostent.(ext:lookup-ho |
| 1fa8c0 | 73 74 2d 65 6e 74 72 79 20 68 6f 73 74 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 63 61 72 20 28 65 | st-entry.hostname))).....(car.(e |
| 1fa8e0 | 78 74 3a 68 6f 73 74 2d 65 6e 74 72 79 2d 61 64 64 72 2d 6c 69 73 74 20 68 6f 73 74 65 6e 74 29 | xt:host-entry-addr-list.hostent) |
| 1fa900 | 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f | )))..(defvar.*external-format-to |
| 1fa920 | 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 0a 20 20 27 28 28 3a 69 73 6f 2d 38 38 35 39 2d 31 | -coding-system*...'((:iso-8859-1 |
| 1fa940 | 20 22 69 73 6f 2d 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 23 2b 75 6e 69 63 6f | ."iso-latin-1-unix").....#+unico |
| 1fa960 | 64 65 0a 20 20 20 20 28 3a 75 74 66 2d 38 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 29 29 0a 0a | de.....(:utf-8."utf-8-unix"))).. |
| 1fa980 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c | (defimplementation.find-external |
| 1fa9a0 | 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 28 63 61 72 20 28 | -format.(coding-system)...(car.( |
| 1fa9c0 | 72 61 73 73 6f 63 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 6d 65 6d 62 65 72 20 63 6f | rassoc-if.(lambda.(x).(member.co |
| 1fa9e0 | 64 69 6e 67 2d 73 79 73 74 65 6d 20 78 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 | ding-system.x.:test.#'equal))... |
| 1faa00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 | ................*external-format |
| 1faa20 | 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 | -to-coding-system*)))..(defun.ma |
| 1faa40 | 6b 65 2d 73 6f 63 6b 65 74 2d 69 6f 2d 73 74 72 65 61 6d 20 28 66 64 20 62 75 66 66 65 72 69 6e | ke-socket-io-stream.(fd.bufferin |
| 1faa60 | 67 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 0a 20 20 22 43 72 65 61 74 65 20 61 20 6e | g.external-format)..."Create.a.n |
| 1faa80 | 65 77 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 20 66 64 2d 73 74 72 65 61 6d 20 66 6f 72 20 46 44 | ew.input/output.fd-stream.for.FD |
| 1faaa0 | 2e 22 0a 20 20 28 63 6f 6e 64 20 28 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 | ."...(cond.(external-format..... |
| 1faac0 | 20 20 20 20 20 28 73 79 73 3a 6d 61 6b 65 2d 66 64 2d 73 74 72 65 61 6d 20 66 64 20 3a 69 6e 70 | .....(sys:make-fd-stream.fd.:inp |
| 1faae0 | 75 74 20 74 20 3a 6f 75 74 70 75 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ut.t.:output.t.................. |
| 1fab00 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 27 63 68 61 72 61 | ............:element-type.'chara |
| 1fab20 | 63 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cter............................ |
| 1fab40 | 20 20 3a 62 75 66 66 65 72 69 6e 67 20 62 75 66 66 65 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 | ..:buffering.buffering.......... |
| 1fab60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f | ....................:external-fo |
| 1fab80 | 72 6d 61 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 28 | rmat.external-format)).........( |
| 1faba0 | 74 0a 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 6d 61 6b 65 2d 66 64 2d 73 74 72 65 61 6d 20 66 | t..........(sys:make-fd-stream.f |
| 1fabc0 | 64 20 3a 69 6e 70 75 74 20 74 20 3a 6f 75 74 70 75 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 | d.:input.t.:output.t............ |
| 1fabe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 | ..................:element-type. |
| 1fac00 | 27 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | '(unsigned-byte.8).............. |
| 1fac20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 75 66 66 65 72 69 6e 67 20 62 75 66 66 65 | ................:buffering.buffe |
| 1fac40 | 72 69 6e 67 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b | ring))))..(defimplementation.mak |
| 1fac60 | 65 2d 66 64 2d 73 74 72 65 61 6d 20 28 66 64 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 | e-fd-stream.(fd.external-format) |
| 1fac80 | 0a 20 20 28 6d 61 6b 65 2d 73 6f 63 6b 65 74 2d 69 6f 2d 73 74 72 65 61 6d 20 66 64 20 3a 66 75 | ...(make-socket-io-stream.fd.:fu |
| 1faca0 | 6c 6c 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | ll.external-format))..(defimplem |
| 1facc0 | 65 6e 74 61 74 69 6f 6e 20 64 75 70 20 28 66 64 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 | entation.dup.(fd)...(multiple-va |
| 1face0 | 6c 75 65 2d 62 69 6e 64 20 28 63 6c 6f 6e 65 20 65 72 72 6f 72 29 20 28 75 6e 69 78 3a 75 6e 69 | lue-bind.(clone.error).(unix:uni |
| 1fad00 | 78 2d 64 75 70 20 66 64 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 63 6c 6f 6e 65 20 28 65 72 72 | x-dup.fd).....(unless.clone.(err |
| 1fad20 | 6f 72 20 22 64 75 70 20 66 61 69 6c 65 64 3a 20 7e 61 22 20 28 75 6e 69 78 3a 67 65 74 2d 75 6e | or."dup.failed:.~a".(unix:get-un |
| 1fad40 | 69 78 2d 65 72 72 6f 72 2d 6d 73 67 20 65 72 72 6f 72 29 29 29 0a 20 20 20 20 63 6c 6f 6e 65 29 | ix-error-msg.error))).....clone) |
| 1fad60 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2d 6c 69 | )..(defimplementation.command-li |
| 1fad80 | 6e 65 2d 61 72 67 73 20 28 29 0a 20 20 65 78 74 3a 2a 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 73 | ne-args.()...ext:*command-line-s |
| 1fada0 | 74 72 69 6e 67 73 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 65 78 65 | trings*)..(defimplementation.exe |
| 1fadc0 | 63 2d 69 6d 61 67 65 20 28 69 6d 61 67 65 2d 66 69 6c 65 20 61 72 67 73 29 0a 20 20 28 6d 75 6c | c-image.(image-file.args)...(mul |
| 1fade0 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6f 6b 20 65 72 72 6f 72 29 0a 20 20 20 20 | tiple-value-bind.(ok.error)..... |
| 1fae00 | 20 20 28 75 6e 69 78 3a 75 6e 69 78 2d 65 78 65 63 76 65 20 28 63 61 72 20 28 63 6f 6d 6d 61 6e | ..(unix:unix-execve.(car.(comman |
| 1fae20 | 64 2d 6c 69 6e 65 2d 61 72 67 73 29 29 0a 09 09 09 28 6c 69 73 74 2a 20 28 63 61 72 20 28 63 6f | d-line-args))....(list*.(car.(co |
| 1fae40 | 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mmand-line-args))............... |
| 1fae60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 63 6f 72 65 22 20 69 6d 61 67 65 2d 66 | ................."-core".image-f |
| 1fae80 | 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile............................. |
| 1faea0 | 20 20 20 22 2d 6e 6f 69 6e 69 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..."-noinit".................... |
| 1faec0 | 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 7e | ............args)).....(error."~ |
| 1faee0 | 61 22 20 28 75 6e 69 78 3a 67 65 74 2d 75 6e 69 78 2d 65 72 72 6f 72 2d 6d 73 67 20 65 72 72 6f | a".(unix:get-unix-error-msg.erro |
| 1faf00 | 72 29 29 0a 20 20 20 20 6f 6b 29 29 0a 0a 3b 3b 3b 3b 3b 20 53 69 67 6e 61 6c 2d 64 72 69 76 65 | r)).....ok))..;;;;;.Signal-drive |
| 1faf20 | 6e 20 49 2f 4f 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 73 74 61 6c | n.I/O..(defimplementation.instal |
| 1faf40 | 6c 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 73 | l-sigint-handler.(function)...(s |
| 1faf60 | 79 73 3a 65 6e 61 62 6c 65 2d 69 6e 74 65 72 72 75 70 74 20 3a 73 69 67 69 6e 74 20 28 6c 61 6d | ys:enable-interrupt.:sigint.(lam |
| 1faf80 | 62 64 61 20 28 73 69 67 6e 61 6c 20 63 6f 64 65 20 73 63 70 29 0a 20 20 20 20 20 20 20 20 20 20 | bda.(signal.code.scp)........... |
| 1fafa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 | ........................(declare |
| 1fafc0 | 20 28 69 67 6e 6f 72 65 20 73 69 67 6e 61 6c 20 63 6f 64 65 20 73 63 70 29 29 0a 20 20 20 20 20 | .(ignore.signal.code.scp))...... |
| 1fafe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 | .............................(fu |
| 1fb000 | 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 69 67 | ncall.function))))..(defvar.*sig |
| 1fb020 | 69 6f 2d 68 61 6e 64 6c 65 72 73 2a 20 27 28 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 28 6b 65 79 | io-handlers*.'()..."List.of.(key |
| 1fb040 | 20 2e 20 66 75 6e 63 74 69 6f 6e 29 20 70 61 69 72 73 2e 0a 41 6c 6c 20 66 75 6e 63 74 69 6f 6e | ...function).pairs..All.function |
| 1fb060 | 73 20 61 72 65 20 63 61 6c 6c 65 64 20 6f 6e 20 53 49 47 49 4f 2c 20 61 6e 64 20 74 68 65 20 6b | s.are.called.on.SIGIO,.and.the.k |
| 1fb080 | 65 79 20 69 73 20 75 73 65 64 20 66 6f 72 20 72 65 6d 6f 76 69 6e 67 0a 73 70 65 63 69 66 69 63 | ey.is.used.for.removing.specific |
| 1fb0a0 | 20 66 75 6e 63 74 69 6f 6e 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 72 65 73 65 74 2d 73 69 67 69 | .functions.")..(defun.reset-sigi |
| 1fb0c0 | 6f 2d 68 61 6e 64 6c 65 72 73 20 28 29 20 28 73 65 74 71 20 2a 73 69 67 69 6f 2d 68 61 6e 64 6c | o-handlers.().(setq.*sigio-handl |
| 1fb0e0 | 65 72 73 2a 20 27 28 29 29 29 0a 3b 3b 20 41 6c 6c 20 66 69 6c 65 20 68 61 6e 64 6c 65 72 73 20 | ers*.'())).;;.All.file.handlers. |
| 1fb100 | 61 72 65 20 69 6e 76 61 6c 69 64 20 61 66 65 72 20 72 65 6c 6f 61 64 2e 0a 28 70 75 73 68 6e 65 | are.invalid.afer.reload..(pushne |
| 1fb120 | 77 20 27 72 65 73 65 74 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 20 65 78 74 3a 2a 61 66 74 | w.'reset-sigio-handlers.ext:*aft |
| 1fb140 | 65 72 2d 73 61 76 65 2d 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 73 2a 29 0a 0a 28 64 65 66 75 | er-save-initializations*)..(defu |
| 1fb160 | 6e 20 73 65 74 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 20 28 29 0a 20 20 28 73 79 73 3a 65 6e | n.set-sigio-handler.()...(sys:en |
| 1fb180 | 61 62 6c 65 2d 69 6e 74 65 72 72 75 70 74 20 3a 73 69 67 69 6f 20 28 6c 61 6d 62 64 61 20 28 73 | able-interrupt.:sigio.(lambda.(s |
| 1fb1a0 | 69 67 6e 61 6c 20 63 6f 64 65 20 73 63 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ignal.code.scp)................. |
| 1fb1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 20 | .................(sigio-handler. |
| 1fb1e0 | 73 69 67 6e 61 6c 20 63 6f 64 65 20 73 63 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 67 69 | signal.code.scp))))..(defun.sigi |
| 1fb200 | 6f 2d 68 61 6e 64 6c 65 72 20 28 73 69 67 6e 61 6c 20 63 6f 64 65 20 73 63 70 29 0a 20 20 28 64 | o-handler.(signal.code.scp)...(d |
| 1fb220 | 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 73 69 67 6e 61 6c 20 63 6f 64 65 20 73 63 70 29 29 | eclare.(ignore.signal.code.scp)) |
| 1fb240 | 0a 20 20 28 6d 61 70 63 20 23 27 66 75 6e 63 61 6c 6c 20 28 6d 61 70 63 61 72 20 23 27 63 64 72 | ...(mapc.#'funcall.(mapcar.#'cdr |
| 1fb260 | 20 2a 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 2a 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 63 6e | .*sigio-handlers*)))..(defun.fcn |
| 1fb280 | 74 6c 20 28 66 64 20 63 6f 6d 6d 61 6e 64 20 61 72 67 29 0a 20 20 22 66 63 6e 74 6c 28 32 29 20 | tl.(fd.command.arg)..."fcntl(2). |
| 1fb2a0 | 2d 20 6d 61 6e 69 70 75 6c 61 74 65 20 61 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 2e 22 | -.manipulate.a.file.descriptor." |
| 1fb2c0 | 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6f 6b 20 65 72 72 6f | ...(multiple-value-bind.(ok.erro |
| 1fb2e0 | 72 29 20 28 75 6e 69 78 3a 75 6e 69 78 2d 66 63 6e 74 6c 20 66 64 20 63 6f 6d 6d 61 6e 64 20 61 | r).(unix:unix-fcntl.fd.command.a |
| 1fb300 | 72 67 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 6f 6b 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 | rg).....(cond.(ok)...........(t. |
| 1fb320 | 28 65 72 72 6f 72 20 22 66 63 6e 74 6c 3a 20 7e 41 22 20 28 75 6e 69 78 3a 67 65 74 2d 75 6e 69 | (error."fcntl:.~A".(unix:get-uni |
| 1fb340 | 78 2d 65 72 72 6f 72 2d 6d 73 67 20 65 72 72 6f 72 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 | x-error-msg.error))))))..(defimp |
| 1fb360 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 64 64 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 20 28 73 | lementation.add-sigio-handler.(s |
| 1fb380 | 6f 63 6b 65 74 20 66 6e 29 0a 20 20 28 73 65 74 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 29 0a | ocket.fn)...(set-sigio-handler). |
| 1fb3a0 | 20 20 28 6c 65 74 20 28 28 66 64 20 28 73 6f 63 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 | ..(let.((fd.(socket-fd.socket))) |
| 1fb3c0 | 0a 20 20 20 20 28 66 63 6e 74 6c 20 66 64 20 75 6e 69 78 3a 66 2d 73 65 74 6f 77 6e 20 28 75 6e | .....(fcntl.fd.unix:f-setown.(un |
| 1fb3e0 | 69 78 3a 75 6e 69 78 2d 67 65 74 70 69 64 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d | ix:unix-getpid)).....(let.((old- |
| 1fb400 | 66 6c 61 67 73 20 28 66 63 6e 74 6c 20 66 64 20 75 6e 69 78 3a 66 2d 67 65 74 66 6c 20 30 29 29 | flags.(fcntl.fd.unix:f-getfl.0)) |
| 1fb420 | 29 0a 20 20 20 20 20 20 28 66 63 6e 74 6c 20 66 64 20 75 6e 69 78 3a 66 2d 73 65 74 66 6c 20 28 | ).......(fcntl.fd.unix:f-setfl.( |
| 1fb440 | 6c 6f 67 69 6f 72 20 6f 6c 64 2d 66 6c 61 67 73 20 75 6e 69 78 3a 66 61 73 79 6e 63 29 29 29 0a | logior.old-flags.unix:fasync))). |
| 1fb460 | 20 20 20 20 28 61 73 73 65 72 74 20 28 6e 6f 74 20 28 61 73 73 6f 63 20 66 64 20 2a 73 69 67 69 | ....(assert.(not.(assoc.fd.*sigi |
| 1fb480 | 6f 2d 68 61 6e 64 6c 65 72 73 2a 29 29 29 0a 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 66 | o-handlers*))).....(push.(cons.f |
| 1fb4a0 | 64 20 66 6e 29 20 2a 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 2a 29 29 29 0a 0a 28 64 65 66 69 | d.fn).*sigio-handlers*)))..(defi |
| 1fb4c0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 6d 6f 76 65 2d 73 69 67 69 6f 2d 68 61 6e 64 6c | mplementation.remove-sigio-handl |
| 1fb4e0 | 65 72 73 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 6c 65 74 20 28 28 66 64 20 28 73 6f 63 6b 65 74 | ers.(socket)...(let.((fd.(socket |
| 1fb500 | 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 73 73 6f 63 20 66 | -fd.socket))).....(when.(assoc.f |
| 1fb520 | 64 20 2a 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 2a 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 | d.*sigio-handlers*).......(setf. |
| 1fb540 | 2a 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 2a 20 28 72 65 6d 6f 76 65 20 66 64 20 2a 73 69 67 | *sigio-handlers*.(remove.fd.*sig |
| 1fb560 | 69 6f 2d 68 61 6e 64 6c 65 72 73 2a 20 3a 6b 65 79 20 23 27 63 61 72 29 29 0a 20 20 20 20 20 20 | io-handlers*.:key.#'car))....... |
| 1fb580 | 28 6c 65 74 20 28 28 6f 6c 64 2d 66 6c 61 67 73 20 28 66 63 6e 74 6c 20 66 64 20 75 6e 69 78 3a | (let.((old-flags.(fcntl.fd.unix: |
| 1fb5a0 | 66 2d 67 65 74 66 6c 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 63 6e 74 6c 20 66 64 20 75 | f-getfl.0))).........(fcntl.fd.u |
| 1fb5c0 | 6e 69 78 3a 66 2d 73 65 74 66 6c 20 28 6c 6f 67 61 6e 64 63 32 20 6f 6c 64 2d 66 6c 61 67 73 20 | nix:f-setfl.(logandc2.old-flags. |
| 1fb5e0 | 75 6e 69 78 3a 66 61 73 79 6e 63 29 29 29 0a 20 20 20 20 20 20 28 73 79 73 3a 69 6e 76 61 6c 69 | unix:fasync))).......(sys:invali |
| 1fb600 | 64 61 74 65 2d 64 65 73 63 72 69 70 74 6f 72 20 66 64 29 29 0a 20 20 20 20 28 61 73 73 65 72 74 | date-descriptor.fd)).....(assert |
| 1fb620 | 20 28 6e 6f 74 20 28 61 73 73 6f 63 20 66 64 20 2a 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 2a | .(not.(assoc.fd.*sigio-handlers* |
| 1fb640 | 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6e 75 6c 6c 20 2a 73 69 67 69 6f 2d 68 61 6e 64 6c | ))).....(when.(null.*sigio-handl |
| 1fb660 | 65 72 73 2a 29 0a 20 20 20 20 20 20 28 73 79 73 3a 64 65 66 61 75 6c 74 2d 69 6e 74 65 72 72 75 | ers*).......(sys:default-interru |
| 1fb680 | 70 74 20 3a 73 69 67 69 6f 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 53 45 52 56 45 2d 45 56 45 4e 54 | pt.:sigio))))..;;;;;.SERVE-EVENT |
| 1fb6a0 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 64 64 2d 66 64 2d 68 61 6e 64 | ..(defimplementation.add-fd-hand |
| 1fb6c0 | 6c 65 72 20 28 73 6f 63 6b 65 74 20 66 6e 29 0a 20 20 28 6c 65 74 20 28 28 66 64 20 28 73 6f 63 | ler.(socket.fn)...(let.((fd.(soc |
| 1fb6e0 | 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 0a 20 20 20 20 28 73 79 73 3a 61 64 64 2d 66 64 | ket-fd.socket))).....(sys:add-fd |
| 1fb700 | 2d 68 61 6e 64 6c 65 72 20 66 64 20 3a 69 6e 70 75 74 20 28 6c 61 6d 62 64 61 20 28 5f 29 20 5f | -handler.fd.:input.(lambda.(_)._ |
| 1fb720 | 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | .(funcall.fn)))))..(defimplement |
| 1fb740 | 61 74 69 6f 6e 20 72 65 6d 6f 76 65 2d 66 64 2d 68 61 6e 64 6c 65 72 73 20 28 73 6f 63 6b 65 74 | ation.remove-fd-handlers.(socket |
| 1fb760 | 29 0a 20 20 28 73 79 73 3a 69 6e 76 61 6c 69 64 61 74 65 2d 64 65 73 63 72 69 70 74 6f 72 20 28 | )...(sys:invalidate-descriptor.( |
| 1fb780 | 73 6f 63 6b 65 74 2d 66 64 20 73 6f 63 6b 65 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | socket-fd.socket)))..(defimpleme |
| 1fb7a0 | 6e 74 61 74 69 6f 6e 20 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 20 28 73 74 72 65 61 6d 73 20 | ntation.wait-for-input.(streams. |
| 1fb7c0 | 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 61 73 73 65 72 74 20 28 6d 65 | &optional.timeout)...(assert.(me |
| 1fb7e0 | 6d 62 65 72 20 74 69 6d 65 6f 75 74 20 27 28 6e 69 6c 20 74 29 29 29 0a 20 20 28 6c 6f 6f 70 0a | mber.timeout.'(nil.t)))...(loop. |
| 1fb800 | 20 20 20 28 6c 65 74 20 28 28 72 65 61 64 79 20 28 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 | ...(let.((ready.(remove-if-not.# |
| 1fb820 | 27 6c 69 73 74 65 6e 20 73 74 72 65 61 6d 73 29 29 29 0a 20 20 20 20 20 28 77 68 65 6e 20 72 65 | 'listen.streams)))......(when.re |
| 1fb840 | 61 64 79 20 28 72 65 74 75 72 6e 20 72 65 61 64 79 29 29 29 0a 20 20 20 28 77 68 65 6e 20 74 69 | ady.(return.ready)))....(when.ti |
| 1fb860 | 6d 65 6f 75 74 20 28 72 65 74 75 72 6e 20 6e 69 6c 29 29 0a 20 20 20 28 6d 75 6c 74 69 70 6c 65 | meout.(return.nil))....(multiple |
| 1fb880 | 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 69 6e 20 6f 75 74 29 20 28 6d 61 6b 65 2d 70 69 70 65 29 | -value-bind.(in.out).(make-pipe) |
| 1fb8a0 | 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 66 20 28 63 6f 6e 73 74 61 6e 74 6c 79 20 74 29 29 0a | ......(let*.((f.(constantly.t)). |
| 1fb8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 73 20 28 6c 6f 6f 70 20 66 6f 72 20 | ............(handlers.(loop.for. |
| 1fb8e0 | 73 20 69 6e 20 28 63 6f 6e 73 20 69 6e 20 28 6d 61 70 63 61 72 20 23 27 74 6f 2d 66 64 2d 73 74 | s.in.(cons.in.(mapcar.#'to-fd-st |
| 1fb900 | 72 65 61 6d 20 73 74 72 65 61 6d 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ream.streams)).................. |
| 1fb920 | 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 61 64 64 2d 6f 6e 65 2d 73 68 6f 74 | ...........collect.(add-one-shot |
| 1fb940 | 2d 68 61 6e 64 6c 65 72 20 73 20 66 29 29 29 29 0a 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d | -handler.s.f))))........(unwind- |
| 1fb960 | 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 69 6e 74 65 | protect.............(let.((*inte |
| 1fb980 | 72 72 75 70 74 2d 71 75 65 75 65 64 2d 68 61 6e 64 6c 65 72 2a 20 28 6c 61 6d 62 64 61 20 28 29 | rrupt-queued-handler*.(lambda.() |
| 1fb9a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1fb9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 63 68 61 72 20 23 5c 21 | .................(write-char.#\! |
| 1fb9e0 | 20 6f 75 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 68 | .out))))...............(when.(ch |
| 1fba00 | 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 20 28 72 65 74 75 72 6e 20 3a 69 | eck-slime-interrupts).(return.:i |
| 1fba20 | 6e 74 65 72 72 75 70 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 73 65 | nterrupt))...............(sys:se |
| 1fba40 | 72 76 65 2d 65 76 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 20 23 27 73 79 73 | rve-event))..........(mapc.#'sys |
| 1fba60 | 3a 72 65 6d 6f 76 65 2d 66 64 2d 68 61 6e 64 6c 65 72 20 68 61 6e 64 6c 65 72 73 29 0a 20 20 20 | :remove-fd-handler.handlers).... |
| 1fba80 | 20 20 20 20 20 20 28 63 6c 6f 73 65 20 69 6e 29 0a 20 20 20 20 20 20 20 20 20 28 63 6c 6f 73 65 | ......(close.in)..........(close |
| 1fbaa0 | 20 6f 75 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 6f 2d 66 64 2d 73 74 72 65 61 6d 20 | .out))))))..(defun.to-fd-stream. |
| 1fbac0 | 28 73 74 72 65 61 6d 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 73 74 72 65 61 6d 0a 20 20 20 | (stream)...(etypecase.stream.... |
| 1fbae0 | 20 28 73 79 73 3a 66 64 2d 73 74 72 65 61 6d 20 73 74 72 65 61 6d 29 0a 20 20 20 20 28 73 79 6e | .(sys:fd-stream.stream).....(syn |
| 1fbb00 | 6f 6e 79 6d 2d 73 74 72 65 61 6d 0a 20 20 20 20 20 28 74 6f 2d 66 64 2d 73 74 72 65 61 6d 0a 20 | onym-stream......(to-fd-stream.. |
| 1fbb20 | 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 28 73 79 6e 6f 6e 79 6d 2d 73 74 72 65 | .....(symbol-value.(synonym-stre |
| 1fbb40 | 61 6d 2d 73 79 6d 62 6f 6c 20 73 74 72 65 61 6d 29 29 29 29 0a 20 20 20 20 28 74 77 6f 2d 77 61 | am-symbol.stream)))).....(two-wa |
| 1fbb60 | 79 2d 73 74 72 65 61 6d 0a 20 20 20 20 20 28 74 6f 2d 66 64 2d 73 74 72 65 61 6d 20 28 74 77 6f | y-stream......(to-fd-stream.(two |
| 1fbb80 | 2d 77 61 79 2d 73 74 72 65 61 6d 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 73 74 72 65 61 6d 29 | -way-stream-input-stream.stream) |
| 1fbba0 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 64 2d 6f 6e 65 2d 73 68 6f 74 2d 68 61 6e 64 6c 65 | ))))..(defun.add-one-shot-handle |
| 1fbbc0 | 72 20 28 73 74 72 65 61 6d 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 68 61 6e 64 | r.(stream.function)...(let.(hand |
| 1fbbe0 | 6c 65 72 29 0a 20 20 20 20 28 73 65 74 71 20 68 61 6e 64 6c 65 72 20 28 73 79 73 3a 61 64 64 2d | ler).....(setq.handler.(sys:add- |
| 1fbc00 | 66 64 2d 68 61 6e 64 6c 65 72 20 28 73 79 73 3a 66 64 2d 73 74 72 65 61 6d 2d 66 64 20 73 74 72 | fd-handler.(sys:fd-stream-fd.str |
| 1fbc20 | 65 61 6d 29 20 3a 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eam).:input..................... |
| 1fbc40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 66 64 29 0a 20 | ..................(lambda.(fd).. |
| 1fbc60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1fbc80 | 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 66 64 29 29 0a 20 20 20 | .......(declare.(ignore.fd)).... |
| 1fbca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1fbcc0 | 20 20 20 20 20 28 73 79 73 3a 72 65 6d 6f 76 65 2d 66 64 2d 68 61 6e 64 6c 65 72 20 68 61 6e 64 | .....(sys:remove-fd-handler.hand |
| 1fbce0 | 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ler)............................ |
| 1fbd00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 73 | .............(funcall.function.s |
| 1fbd20 | 74 72 65 61 6d 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 70 69 70 65 20 28 29 | tream))))))..(defun.make-pipe.() |
| 1fbd40 | 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 69 6e 20 6f 75 74 29 | ...(multiple-value-bind.(in.out) |
| 1fbd60 | 20 28 75 6e 69 78 3a 75 6e 69 78 2d 70 69 70 65 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 28 73 | .(unix:unix-pipe).....(values.(s |
| 1fbd80 | 79 73 3a 6d 61 6b 65 2d 66 64 2d 73 74 72 65 61 6d 20 69 6e 20 3a 69 6e 70 75 74 20 74 20 3a 62 | ys:make-fd-stream.in.:input.t.:b |
| 1fbda0 | 75 66 66 65 72 69 6e 67 20 3a 6e 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 | uffering.:none).............(sys |
| 1fbdc0 | 3a 6d 61 6b 65 2d 66 64 2d 73 74 72 65 61 6d 20 6f 75 74 20 3a 6f 75 74 70 75 74 20 74 20 3a 62 | :make-fd-stream.out.:output.t.:b |
| 1fbde0 | 75 66 66 65 72 69 6e 67 20 3a 6e 6f 6e 65 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 53 74 72 65 61 | uffering.:none))))....;;;;.Strea |
| 1fbe00 | 6d 20 68 61 6e 64 6c 69 6e 67 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 | m.handling..(defimplementation.g |
| 1fbe20 | 72 61 79 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 29 0a 20 20 22 45 58 54 22 29 0a 0a 0c 0a | ray-package-name.()..."EXT").... |
| 1fbe40 | 3b 3b 3b 3b 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 43 6f 6d 6d 61 6e 64 73 0a 0a 28 64 65 66 76 | ;;;;.Compilation.Commands..(defv |
| 1fbe60 | 61 72 20 2a 70 72 65 76 69 6f 75 73 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a | ar.*previous-compiler-condition* |
| 1fbe80 | 20 6e 69 6c 0a 20 20 22 55 73 65 64 20 74 6f 20 64 65 74 65 63 74 20 64 75 70 6c 69 63 61 74 65 | .nil..."Used.to.detect.duplicate |
| 1fbea0 | 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 70 72 65 76 69 6f 75 73 2d 63 6f 6e 74 65 78 74 2a | s.")..(defvar.*previous-context* |
| 1fbec0 | 20 6e 69 6c 0a 20 20 22 50 72 65 76 69 6f 75 73 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 20 | .nil..."Previous.compiler.error. |
| 1fbee0 | 63 6f 6e 74 65 78 74 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 | context.")..(defvar.*buffer-name |
| 1fbf00 | 2a 20 6e 69 6c 0a 20 20 22 54 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 45 6d 61 63 73 20 62 | *.nil..."The.name.of.the.Emacs.b |
| 1fbf20 | 75 66 66 65 72 20 77 65 20 61 72 65 20 63 6f 6d 70 69 6c 69 6e 67 20 66 72 6f 6d 2e 0a 4e 49 4c | uffer.we.are.compiling.from..NIL |
| 1fbf40 | 20 69 66 20 77 65 20 61 72 65 6e 27 74 20 63 6f 6d 70 69 6c 69 6e 67 20 66 72 6f 6d 20 61 20 62 | .if.we.aren't.compiling.from.a.b |
| 1fbf60 | 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d | uffer.")..(defvar.*buffer-start- |
| 1fbf80 | 70 6f 73 69 74 69 6f 6e 2a 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 73 | position*.nil).(defvar.*buffer-s |
| 1fbfa0 | 75 62 73 74 72 69 6e 67 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | ubstring*.nil)..(defimplementati |
| 1fbfc0 | 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 | on.call-with-compilation-hooks.( |
| 1fbfe0 | 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a 70 72 65 76 69 6f 75 73 2d 63 6f 6d | function)...(let.((*previous-com |
| 1fc000 | 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 2a | piler-condition*.nil).........(* |
| 1fc020 | 70 72 65 76 69 6f 75 73 2d 63 6f 6e 74 65 78 74 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 | previous-context*.nil).........( |
| 1fc040 | 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 20 6e 69 6c 29 29 0a 20 20 20 20 28 68 61 6e 64 | *print-readably*.nil)).....(hand |
| 1fc060 | 6c 65 72 2d 62 69 6e 64 20 28 28 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 20 23 27 68 | ler-bind.((c::compiler-error.#'h |
| 1fc080 | 61 6e 64 6c 65 2d 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 | andle-notification-condition)... |
| 1fc0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 3a 3a 73 74 79 6c 65 2d 77 61 72 6e 69 | .................(c::style-warni |
| 1fc0c0 | 6e 67 20 20 23 27 68 61 6e 64 6c 65 2d 6e 6f 74 69 66 69 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 | ng..#'handle-notification-condit |
| 1fc0e0 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 3a 3a 77 61 72 6e | ion)....................(c::warn |
| 1fc100 | 69 6e 67 20 20 20 20 20 20 20 20 23 27 68 61 6e 64 6c 65 2d 6e 6f 74 69 66 69 63 61 74 69 6f 6e | ing........#'handle-notification |
| 1fc120 | 2d 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 | -condition)).......(funcall.func |
| 1fc140 | 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 | tion))))..(defimplementation.swa |
| 1fc160 | 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 | nk-compile-file.(input-file.outp |
| 1fc180 | 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ut-file......................... |
| 1fc1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 61 64 2d 70 20 65 78 74 65 72 6e 61 6c 2d 66 | ...............load-p.external-f |
| 1fc1c0 | 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ormat........................... |
| 1fc1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 | .............&key.policy)...(dec |
| 1fc200 | 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 63 6c 65 61 72 2d 78 | lare.(ignore.policy))...(clear-x |
| 1fc220 | 72 65 66 2d 69 6e 66 6f 20 69 6e 70 75 74 2d 66 69 6c 65 29 0a 20 20 28 77 69 74 68 2d 63 6f 6d | ref-info.input-file)...(with-com |
| 1fc240 | 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 | pilation-hooks.().....(let.((*bu |
| 1fc260 | 66 66 65 72 2d 6e 61 6d 65 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 2a | ffer-name*.nil)...........(ext:* |
| 1fc280 | 69 67 6e 6f 72 65 2d 65 78 74 72 61 2d 63 6c 6f 73 65 2d 70 61 72 65 6e 74 68 65 73 65 73 2a 20 | ignore-extra-close-parentheses*. |
| 1fc2a0 | 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 | nil)).......(multiple-value-bind |
| 1fc2c0 | 20 28 6f 75 74 70 75 74 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 2d 70 20 66 61 69 6c 75 72 65 | .(output-file.warnings-p.failure |
| 1fc2e0 | 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 69 6e 70 75 | -p)...........(compile-file.inpu |
| 1fc300 | 74 2d 66 69 6c 65 20 3a 6f 75 74 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 6c 65 0a | t-file.:output-file.output-file. |
| 1fc320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 | ........................:externa |
| 1fc340 | 6c 2d 66 6f 72 6d 61 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 | l-format.external-format)....... |
| 1fc360 | 20 20 28 76 61 6c 75 65 73 20 6f 75 74 70 75 74 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 2d 70 | ..(values.output-file.warnings-p |
| 1fc380 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 66 61 69 6c 75 72 65 2d 70 0a 20 | .................(or.failure-p.. |
| 1fc3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6c 6f 61 64 2d 70 0a | ...................(when.load-p. |
| 1fc3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 61 63 68 65 20 74 | ......................;;.Cache.t |
| 1fc3e0 | 68 65 20 6c 61 74 65 73 74 20 73 6f 75 72 63 65 20 66 69 6c 65 20 66 6f 72 20 64 65 66 69 6e 69 | he.latest.source.file.for.defini |
| 1fc400 | 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion-finding.................... |
| 1fc420 | 20 20 20 20 28 73 6f 75 72 63 65 2d 63 61 63 68 65 2d 67 65 74 20 69 6e 70 75 74 2d 66 69 6c 65 | ....(source-cache-get.input-file |
| 1fc440 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1fc460 | 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 20 69 6e 70 75 74 2d | .........(file-write-date.input- |
| 1fc480 | 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f | file)).......................(no |
| 1fc4a0 | 74 20 28 6c 6f 61 64 20 6f 75 74 70 75 74 2d 66 69 6c 65 29 29 29 29 29 29 29 29 29 0a 0a 28 64 | t.(load.output-file)))))))))..(d |
| 1fc4c0 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 | efimplementation.swank-compile-s |
| 1fc4e0 | 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 6b 65 79 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 | tring.(string.&key.buffer.positi |
| 1fc500 | 6f 6e 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on.filename..................... |
| 1fc520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 | ............................line |
| 1fc540 | 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f | .column.policy)...(declare.(igno |
| 1fc560 | 72 65 20 66 69 6c 65 6e 61 6d 65 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 29 | re.filename.line.column.policy)) |
| 1fc580 | 0a 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 | ...(with-compilation-hooks.()... |
| 1fc5a0 | 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 62 75 66 66 65 72 29 0a 20 | ..(let.((*buffer-name*.buffer).. |
| 1fc5c0 | 20 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e | .........(*buffer-start-position |
| 1fc5e0 | 2a 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 2d 73 | *.position)...........(*buffer-s |
| 1fc600 | 75 62 73 74 72 69 6e 67 2a 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 | ubstring*.string)...........(sou |
| 1fc620 | 72 63 65 2d 69 6e 66 6f 20 28 6c 69 73 74 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 20 62 75 66 | rce-info.(list.:emacs-buffer.buf |
| 1fc640 | 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fer............................. |
| 1fc660 | 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 6f 66 66 73 65 74 20 70 6f 73 69 74 69 6f 6e 0a 20 | .:emacs-buffer-offset.position.. |
| 1fc680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6d 61 | ............................:ema |
| 1fc6a0 | 63 73 2d 62 75 66 66 65 72 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 | cs-buffer-string.string)))...... |
| 1fc6c0 | 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 74 72 65 61 6d | .(with-input-from-string.(stream |
| 1fc6e0 | 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 61 69 6c 75 72 65 70 | .string).........(let.((failurep |
| 1fc700 | 20 28 65 78 74 3a 63 6f 6d 70 69 6c 65 2d 66 72 6f 6d 2d 73 74 72 65 61 6d 20 73 74 72 65 61 6d | .(ext:compile-from-stream.stream |
| 1fc720 | 20 3a 73 6f 75 72 63 65 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:source-info................... |
| 1fc740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f | ..............................so |
| 1fc760 | 75 72 63 65 2d 69 6e 66 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 66 61 69 6c | urce-info)))...........(not.fail |
| 1fc780 | 75 72 65 70 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 54 72 61 70 70 69 6e 67 20 6e 6f 74 | urep))))))....;;;;;.Trapping.not |
| 1fc7a0 | 65 73 0a 3b 3b 3b 0a 3b 3b 3b 20 57 65 20 69 6e 74 65 72 63 65 70 74 20 63 6f 6e 64 69 74 69 6f | es.;;;.;;;.We.intercept.conditio |
| 1fc7c0 | 6e 73 20 66 72 6f 6d 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 61 6e 64 20 72 65 73 69 67 6e 61 | ns.from.the.compiler.and.resigna |
| 1fc7e0 | 6c 20 74 68 65 6d 20 61 73 0a 3b 3b 3b 20 60 53 57 41 4e 4b 3a 43 4f 4d 50 49 4c 45 52 2d 43 4f | l.them.as.;;;.`SWANK:COMPILER-CO |
| 1fc800 | 4e 44 49 54 49 4f 4e 27 73 2e 0a 0a 28 64 65 66 75 6e 20 68 61 6e 64 6c 65 2d 6e 6f 74 69 66 69 | NDITION's...(defun.handle-notifi |
| 1fc820 | 63 61 74 69 6f 6e 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 | cation-condition.(condition)..." |
| 1fc840 | 48 61 6e 64 6c 65 20 61 20 63 6f 6e 64 69 74 69 6f 6e 20 63 61 75 73 65 64 20 62 79 20 61 20 63 | Handle.a.condition.caused.by.a.c |
| 1fc860 | 6f 6d 70 69 6c 65 72 20 77 61 72 6e 69 6e 67 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 | ompiler.warning."...(unless.(eq. |
| 1fc880 | 63 6f 6e 64 69 74 69 6f 6e 20 2a 70 72 65 76 69 6f 75 73 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e | condition.*previous-compiler-con |
| 1fc8a0 | 64 69 74 69 6f 6e 2a 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 78 74 20 28 63 3a 3a | dition*).....(let.((context.(c:: |
| 1fc8c0 | 66 69 6e 64 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 | find-error-context.nil)))....... |
| 1fc8e0 | 28 73 65 74 71 20 2a 70 72 65 76 69 6f 75 73 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 | (setq.*previous-compiler-conditi |
| 1fc900 | 6f 6e 2a 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 2a 70 72 65 76 | on*.condition).......(setq.*prev |
| 1fc920 | 69 6f 75 73 2d 63 6f 6e 74 65 78 74 2a 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 28 73 69 | ious-context*.context).......(si |
| 1fc940 | 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f | gnal-compiler-condition.conditio |
| 1fc960 | 6e 20 63 6f 6e 74 65 78 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d 63 6f 6d | n.context))))..(defun.signal-com |
| 1fc980 | 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 74 65 | piler-condition.(condition.conte |
| 1fc9a0 | 78 74 29 0a 20 20 28 73 69 67 6e 61 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f | xt)...(signal.'compiler-conditio |
| 1fc9c0 | 6e 0a 20 20 20 20 20 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 | n...........:original-condition. |
| 1fc9e0 | 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3a 73 65 76 65 72 69 74 79 20 28 73 | condition...........:severity.(s |
| 1fca00 | 65 76 65 72 69 74 79 2d 66 6f 72 2d 65 6d 61 63 73 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 | everity-for-emacs.condition).... |
| 1fca20 | 20 20 20 20 20 20 20 3a 6d 65 73 73 61 67 65 20 28 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 | .......:message.(compiler-condit |
| 1fca40 | 69 6f 6e 2d 6d 65 73 73 61 67 65 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | ion-message.condition).......... |
| 1fca60 | 20 3a 73 6f 75 72 63 65 2d 63 6f 6e 74 65 78 74 20 28 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 | .:source-context.(compiler-error |
| 1fca80 | 2d 63 6f 6e 74 65 78 74 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 | -context.context)...........:loc |
| 1fcaa0 | 61 74 69 6f 6e 20 28 69 66 20 28 72 65 61 64 2d 65 72 72 6f 72 2d 70 20 63 6f 6e 64 69 74 69 6f | ation.(if.(read-error-p.conditio |
| 1fcac0 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 | n).........................(read |
| 1fcae0 | 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 | -error-location.condition)...... |
| 1fcb00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 | ...................(compiler-not |
| 1fcb20 | 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 6e 74 65 78 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | e-location.context))))..(defun.s |
| 1fcb40 | 65 76 65 72 69 74 79 2d 66 6f 72 2d 65 6d 61 63 73 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 | everity-for-emacs.(condition)... |
| 1fcb60 | 22 52 65 74 75 72 6e 20 74 68 65 20 73 65 76 65 72 69 74 79 20 6f 66 20 43 4f 4e 44 49 54 49 4f | "Return.the.severity.of.CONDITIO |
| 1fcb80 | 4e 2e 22 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 28 | N."...(etypecase.condition.....( |
| 1fcba0 | 28 73 61 74 69 73 66 69 65 73 20 72 65 61 64 2d 65 72 72 6f 72 2d 70 29 20 3a 72 65 61 64 2d 65 | (satisfies.read-error-p).:read-e |
| 1fcbc0 | 72 72 6f 72 29 0a 20 20 20 20 28 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 20 3a 65 72 | rror).....(c::compiler-error.:er |
| 1fcbe0 | 72 6f 72 29 0a 20 20 20 20 28 63 3a 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 20 3a 6e 6f 74 65 | ror).....(c::style-warning.:note |
| 1fcc00 | 29 0a 20 20 20 20 28 63 3a 3a 77 61 72 6e 69 6e 67 20 3a 77 61 72 6e 69 6e 67 29 29 29 0a 0a 28 | ).....(c::warning.:warning)))..( |
| 1fcc20 | 64 65 66 75 6e 20 72 65 61 64 2d 65 72 72 6f 72 2d 70 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 | defun.read-error-p.(condition).. |
| 1fcc40 | 20 28 65 71 20 28 74 79 70 65 2d 6f 66 20 63 6f 6e 64 69 74 69 6f 6e 29 20 27 63 3a 3a 63 6f 6d | .(eq.(type-of.condition).'c::com |
| 1fcc60 | 70 69 6c 65 72 2d 72 65 61 64 2d 65 72 72 6f 72 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 | piler-read-error))..(defun.compi |
| 1fcc80 | 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 6d 65 73 73 61 67 65 20 28 63 6f 6e 64 69 74 69 6f 6e | ler-condition-message.(condition |
| 1fcca0 | 29 0a 20 20 22 42 72 69 65 66 6c 79 20 64 65 73 63 72 69 62 65 20 61 20 63 6f 6d 70 69 6c 65 72 | )..."Briefly.describe.a.compiler |
| 1fccc0 | 20 65 72 72 6f 72 20 66 6f 72 20 45 6d 61 63 73 2e 0a 57 68 65 6e 20 45 6d 61 63 73 20 70 72 65 | .error.for.Emacs..When.Emacs.pre |
| 1fcce0 | 73 65 6e 74 73 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 74 20 61 6c 72 65 61 64 79 20 68 61 73 | sents.the.message.it.already.has |
| 1fcd00 | 20 74 68 65 20 73 6f 75 72 63 65 20 70 6f 70 70 65 64 20 75 70 0a 61 6e 64 20 74 68 65 20 73 6f | .the.source.popped.up.and.the.so |
| 1fcd20 | 75 72 63 65 20 66 6f 72 6d 20 68 69 67 68 6c 69 67 68 74 65 64 2e 20 54 68 69 73 20 6d 61 6b 65 | urce.form.highlighted..This.make |
| 1fcd40 | 73 20 6d 75 63 68 20 6f 66 20 74 68 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 6e 0a 74 68 65 | s.much.of.the.information.in.the |
| 1fcd60 | 20 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 20 72 65 64 75 6e 64 61 6e 74 2e 22 0a 20 20 28 70 72 | .error-context.redundant."...(pr |
| 1fcd80 | 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 0a 28 64 65 66 75 | inc-to-string.condition))..(defu |
| 1fcda0 | 6e 20 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 20 28 65 72 72 6f 72 2d | n.compiler-error-context.(error- |
| 1fcdc0 | 63 6f 6e 74 65 78 74 29 0a 20 20 22 44 65 73 63 72 69 62 65 20 63 6f 6e 74 65 78 74 20 69 6e 66 | context)..."Describe.context.inf |
| 1fcde0 | 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 45 6d 61 63 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 | ormation.for.Emacs."...(declare. |
| 1fce00 | 28 74 79 70 65 20 28 6f 72 20 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 | (type.(or.c::compiler-error-cont |
| 1fce20 | 65 78 74 20 6e 75 6c 6c 29 20 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 29 29 0a 20 20 28 6d 75 6c | ext.null).error-context))...(mul |
| 1fce40 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 65 6e 63 6c 6f 73 69 6e 67 20 73 6f 75 72 | tiple-value-bind.(enclosing.sour |
| 1fce60 | 63 65 29 0a 20 20 20 20 20 20 28 69 66 20 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 0a 20 20 20 20 | ce).......(if.error-context..... |
| 1fce80 | 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 | ......(values.(c::compiler-error |
| 1fcea0 | 2d 63 6f 6e 74 65 78 74 2d 65 6e 63 6c 6f 73 69 6e 67 2d 73 6f 75 72 63 65 20 65 72 72 6f 72 2d | -context-enclosing-source.error- |
| 1fcec0 | 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 3a 3a 63 | context)...................(c::c |
| 1fcee0 | 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 2d 73 6f 75 72 63 65 20 65 72 72 | ompiler-error-context-source.err |
| 1fcf00 | 6f 72 2d 63 6f 6e 74 65 78 74 29 29 29 0a 20 20 20 20 28 69 66 20 28 6f 72 20 65 6e 63 6c 6f 73 | or-context))).....(if.(or.enclos |
| 1fcf20 | 69 6e 67 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 | ing.source).........(format.nil. |
| 1fcf40 | 22 7e 40 5b 2d 2d 3e 20 7e 7b 7e 3c 7e 25 2d 2d 3e 20 7e 31 3a 3b 7e 41 20 7e 3e 7e 7d 7e 25 7e | "~@[-->.~{~<~%-->.~1:;~A.~>~}~%~ |
| 1fcf60 | 5d 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7e 40 5b 3d 3d 3e 7e 7b | ]~......................~@[==>~{ |
| 1fcf80 | 7e 26 7e 41 7e 7d 7e 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 63 6c 6f 73 | ~&~A~}~]".................enclos |
| 1fcfa0 | 69 6e 67 20 73 6f 75 72 63 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 65 72 72 6f | ing.source))))..(defun.read-erro |
| 1fcfc0 | 72 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 6c 65 74 2a 20 28 | r-location.(condition)...(let*.( |
| 1fcfe0 | 28 66 69 6e 66 6f 20 28 63 61 72 20 28 63 3a 3a 73 6f 75 72 63 65 2d 69 6e 66 6f 2d 63 75 72 72 | (finfo.(car.(c::source-info-curr |
| 1fd000 | 65 6e 74 2d 66 69 6c 65 20 63 3a 3a 2a 73 6f 75 72 63 65 2d 69 6e 66 6f 2a 29 29 29 0a 20 20 20 | ent-file.c::*source-info*))).... |
| 1fd020 | 20 20 20 20 20 20 28 66 69 6c 65 20 28 63 3a 3a 66 69 6c 65 2d 69 6e 66 6f 2d 6e 61 6d 65 20 66 | ......(file.(c::file-info-name.f |
| 1fd040 | 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 63 3a 3a 63 6f 6d 70 69 6c 65 | info))..........(pos.(c::compile |
| 1fd060 | 72 2d 72 65 61 64 2d 65 72 72 6f 72 2d 70 6f 73 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 | r-read-error-position.condition) |
| 1fd080 | 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 65 71 20 66 69 6c 65 20 3a 73 74 72 | )).....(cond.((and.(eq.file.:str |
| 1fd0a0 | 65 61 6d 29 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | eam).*buffer-name*)............( |
| 1fd0c0 | 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 2a 62 75 66 | make-location.(list.:buffer.*buf |
| 1fd0e0 | 66 65 72 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fer-name*)...................... |
| 1fd100 | 20 20 20 20 20 28 6c 69 73 74 20 3a 6f 66 66 73 65 74 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 | .....(list.:offset.*buffer-start |
| 1fd120 | 2d 70 6f 73 69 74 69 6f 6e 2a 20 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e | -position*.pos)))...........((an |
| 1fd140 | 64 20 28 70 61 74 68 6e 61 6d 65 70 20 66 69 6c 65 29 20 28 6e 6f 74 20 2a 62 75 66 66 65 72 2d | d.(pathnamep.file).(not.*buffer- |
| 1fd160 | 6e 61 6d 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f | name*))............(make-locatio |
| 1fd180 | 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 66 69 6c | n.(list.:file.(unix-truename.fil |
| 1fd1a0 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | e))...........................(l |
| 1fd1c0 | 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 28 31 2b 20 70 6f 73 29 29 29 29 0a 20 20 20 20 20 20 | ist.:position.(1+.pos))))....... |
| 1fd1e0 | 20 20 20 20 28 74 20 28 62 72 65 61 6b 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 | ....(t.(break)))))..(defun.compi |
| 1fd200 | 6c 65 72 2d 6e 6f 74 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6e 74 65 78 74 29 0a 20 20 22 44 | ler-note-location.(context)..."D |
| 1fd220 | 65 72 69 76 65 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 61 20 63 6f 6d 70 6c 69 65 72 | erive.the.location.of.a.complier |
| 1fd240 | 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 69 74 73 20 63 6f 6e 74 65 78 74 2e 0a 52 65 74 75 72 | .message.from.its.context..Retur |
| 1fd260 | 6e 20 61 20 60 6c 6f 63 61 74 69 6f 6e 27 20 72 65 63 6f 72 64 2c 20 6f 72 20 28 3a 65 72 72 6f | n.a.`location'.record,.or.(:erro |
| 1fd280 | 72 20 52 45 41 53 4f 4e 29 20 6f 6e 20 66 61 69 6c 75 72 65 2e 22 0a 20 20 28 69 66 20 28 6e 75 | r.REASON).on.failure."...(if.(nu |
| 1fd2a0 | 6c 6c 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 28 6e 6f 74 65 2d 65 72 72 6f 72 2d 6c 6f | ll.context).......(note-error-lo |
| 1fd2c0 | 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 63 3a 3a 63 | cation).......(with-struct.(c::c |
| 1fd2e0 | 6f 6d 70 69 6c 65 72 2d 65 72 72 6f 72 2d 63 6f 6e 74 65 78 74 2d 20 66 69 6c 65 2d 6e 61 6d 65 | ompiler-error-context-.file-name |
| 1fd300 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1fd320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 69 67 69 6e 61 6c 2d 73 6f 75 72 63 65 0a | ................original-source. |
| 1fd340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1fd360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 69 67 69 6e 61 6c 2d 73 6f 75 72 63 65 2d 70 | ...............original-source-p |
| 1fd380 | 61 74 68 29 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 28 6f 72 20 28 6c 6f 63 61 74 65 | ath).context.........(or.(locate |
| 1fd3a0 | 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 20 66 69 6c 65 2d 6e 61 6d 65 20 6f 72 69 67 69 6e 61 | -compiler-note.file-name.origina |
| 1fd3c0 | 6c 2d 73 6f 75 72 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-source........................ |
| 1fd3e0 | 20 20 20 20 20 20 20 20 20 20 20 28 72 65 76 65 72 73 65 20 6f 72 69 67 69 6e 61 6c 2d 73 6f 75 | ...........(reverse.original-sou |
| 1fd400 | 72 63 65 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 65 2d 65 72 72 | rce-path)).............(note-err |
| 1fd420 | 6f 72 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 6f 74 65 2d 65 72 | or-location)))))..(defun.note-er |
| 1fd440 | 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 28 29 0a 20 20 22 50 73 65 75 64 6f 2d 6c 6f 63 61 74 69 | ror-location.()..."Pseudo-locati |
| 1fd460 | 6f 6e 20 66 6f 72 20 6e 6f 74 65 73 20 74 68 61 74 20 63 61 6e 27 74 20 62 65 20 6c 6f 63 61 74 | on.for.notes.that.can't.be.locat |
| 1fd480 | 65 64 2e 22 0a 20 20 28 63 6f 6e 64 20 28 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 74 72 75 65 | ed."...(cond.(*compile-file-true |
| 1fd4a0 | 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c | name*..........(make-location.(l |
| 1fd4c0 | 69 73 74 20 3a 66 69 6c 65 20 28 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 2a 63 6f 6d 70 69 6c | ist.:file.(unix-truename.*compil |
| 1fd4e0 | 65 2d 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-file-truename*)).............. |
| 1fd500 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 65 6f 66 29 29 29 0a 20 20 20 20 20 20 20 | ...........(list.:eof)))........ |
| 1fd520 | 20 28 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c | .(*buffer-name*..........(make-l |
| 1fd540 | 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 2a 62 75 66 66 65 72 2d 6e 61 | ocation.(list.:buffer.*buffer-na |
| 1fd560 | 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | me*).........................(li |
| 1fd580 | 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 | st.:position.*buffer-start-posit |
| 1fd5a0 | 69 6f 6e 2a 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 6c 69 73 74 20 3a 65 72 72 6f 72 20 | ion*))).........(t.(list.:error. |
| 1fd5c0 | 22 4e 6f 20 65 72 72 6f 72 20 6c 6f 63 61 74 69 6f 6e 20 61 76 61 69 6c 61 62 6c 65 2e 22 29 29 | "No.error.location.available.")) |
| 1fd5e0 | 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6f 63 61 74 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 20 | ))..(defun.locate-compiler-note. |
| 1fd600 | 28 66 69 6c 65 20 73 6f 75 72 63 65 20 73 6f 75 72 63 65 2d 70 61 74 68 29 0a 20 20 28 63 6f 6e | (file.source.source-path)...(con |
| 1fd620 | 64 20 28 28 61 6e 64 20 28 65 71 20 66 69 6c 65 20 3a 73 74 72 65 61 6d 29 20 2a 62 75 66 66 65 | d.((and.(eq.file.:stream).*buffe |
| 1fd640 | 72 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6f 6d 70 69 6c 69 6e 67 20 66 | r-name*)..........;;.Compiling.f |
| 1fd660 | 72 6f 6d 20 61 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 | rom.a.buffer..........(make-loca |
| 1fd680 | 74 69 6f 6e 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a | tion.(list.:buffer.*buffer-name* |
| 1fd6a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | ).........................(list. |
| 1fd6c0 | 3a 6f 66 66 73 65 74 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 0a | :offset.*buffer-start-position*. |
| 1fd6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ..............................(s |
| 1fd700 | 6f 75 72 63 65 2d 70 61 74 68 2d 73 74 72 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 | ource-path-string-position...... |
| 1fd720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 72 63 65 | ..........................source |
| 1fd740 | 2d 70 61 74 68 20 2a 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2a 29 29 29 29 0a 20 20 20 | -path.*buffer-substring*)))).... |
| 1fd760 | 20 20 20 20 20 28 28 61 6e 64 20 28 70 61 74 68 6e 61 6d 65 70 20 66 69 6c 65 29 20 28 6e 75 6c | .....((and.(pathnamep.file).(nul |
| 1fd780 | 6c 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6f | l.*buffer-name*))..........;;.Co |
| 1fd7a0 | 6d 70 69 6c 69 6e 67 20 66 72 6f 6d 20 61 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 28 6d 61 | mpiling.from.a.file..........(ma |
| 1fd7c0 | 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 75 6e 69 78 2d 74 72 | ke-location.(list.:file.(unix-tr |
| 1fd7e0 | 75 65 6e 61 6d 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uename.file))................... |
| 1fd800 | 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 28 31 2b 20 28 73 6f 75 72 63 | ......(list.:position.(1+.(sourc |
| 1fd820 | 65 2d 70 61 74 68 2d 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | e-path-file-position............ |
| 1fd840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 1fd860 | 20 20 73 6f 75 72 63 65 2d 70 61 74 68 20 66 69 6c 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 | ..source-path.file)))))......... |
| 1fd880 | 28 28 61 6e 64 20 28 65 71 20 66 69 6c 65 20 3a 6c 69 73 70 29 20 28 73 74 72 69 6e 67 70 20 73 | ((and.(eq.file.:lisp).(stringp.s |
| 1fd8a0 | 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 20 6c 6f 63 61 74 69 6f 6e 20 | ource))..........;;.No.location. |
| 1fd8c0 | 6b 6e 6f 77 6e 2c 20 62 75 74 20 77 65 20 68 61 76 65 20 74 68 65 20 73 6f 75 72 63 65 20 66 6f | known,.but.we.have.the.source.fo |
| 1fd8e0 | 72 6d 2e 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 58 58 58 20 48 6f 77 20 69 73 20 74 68 69 73 20 | rm...........;;.XXX.How.is.this. |
| 1fd900 | 63 61 73 65 20 74 72 69 67 67 65 72 65 64 3f 20 20 2d 6c 75 6b 65 20 28 31 36 2f 4d 61 79 2f 32 | case.triggered?..-luke.(16/May/2 |
| 1fd920 | 30 30 34 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 69 73 20 63 61 6e 20 68 61 70 70 65 6e | 004)..........;;.This.can.happen |
| 1fd940 | 20 69 66 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6e 65 65 64 73 20 74 6f 20 65 78 70 61 6e 64 | .if.the.compiler.needs.to.expand |
| 1fd960 | 20 61 20 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 62 75 74 20 74 68 65 20 6d 61 63 | .a.macro..........;;.but.the.mac |
| 1fd980 | 72 6f 2d 65 78 70 61 6e 64 65 72 20 69 73 20 6e 6f 74 20 79 65 74 20 63 6f 6d 70 69 6c 65 64 2e | ro-expander.is.not.yet.compiled. |
| 1fd9a0 | 20 20 43 61 6c 6c 69 6e 67 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 28 69 6e 74 65 72 | ..Calling.the..........;;.(inter |
| 1fd9c0 | 70 72 65 74 65 64 29 20 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 20 74 72 69 67 67 65 72 73 20 | preted).macro-expander.triggers. |
| 1fd9e0 | 49 52 31 20 63 6f 6e 76 65 72 73 69 6f 6e 20 6f 66 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 | IR1.conversion.of..........;;.th |
| 1fda00 | 65 20 6c 61 6d 62 64 61 20 65 78 70 72 65 73 73 69 6f 6e 20 66 6f 72 20 74 68 65 20 65 78 70 61 | e.lambda.expression.for.the.expa |
| 1fda20 | 6e 64 65 72 20 61 6e 64 20 69 6e 76 6f 6b 65 73 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 3b 3b | nder.and.invokes.the..........;; |
| 1fda40 | 20 63 6f 6d 70 69 6c 65 72 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 20 20 20 20 20 20 20 20 20 | .compiler.recursively........... |
| 1fda60 | 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 73 6f 75 72 63 65 2d 66 6f 72 | (make-location.(list.:source-for |
| 1fda80 | 6d 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m.source)....................... |
| 1fdaa0 | 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 31 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | ..(list.:position.1)))))..(defun |
| 1fdac0 | 20 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 28 70 61 74 68 6e 61 6d 65 29 0a 20 20 28 65 78 74 | .unix-truename.(pathname)...(ext |
| 1fdae0 | 3a 75 6e 69 78 2d 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 20 70 61 74 68 6e | :unix-namestring.(truename.pathn |
| 1fdb00 | 61 6d 65 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 58 52 45 46 0a 3b 3b 3b 0a 3b 3b 3b 20 43 72 6f 73 | ame)))....;;;;.XREF.;;;.;;;.Cros |
| 1fdb20 | 73 2d 72 65 66 65 72 65 6e 63 65 20 73 75 70 70 6f 72 74 20 69 73 20 62 61 73 65 64 20 6f 6e 20 | s-reference.support.is.based.on. |
| 1fdb40 | 74 68 65 20 73 74 61 6e 64 61 72 64 20 43 4d 55 43 4c 20 60 58 52 45 46 27 0a 3b 3b 3b 20 70 61 | the.standard.CMUCL.`XREF'.;;;.pa |
| 1fdb60 | 63 6b 61 67 65 2e 20 54 68 69 73 20 70 61 63 6b 61 67 65 20 68 61 73 20 73 6f 6d 65 20 63 61 76 | ckage..This.package.has.some.cav |
| 1fdb80 | 65 61 74 73 3a 20 58 52 45 46 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 0a 3b 3b 3b 20 72 65 | eats:.XREF.information.is.;;;.re |
| 1fdba0 | 63 6f 72 64 65 64 20 64 75 72 69 6e 67 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 61 6e 64 20 6e 6f | corded.during.compilation.and.no |
| 1fdbc0 | 74 20 70 72 65 73 65 72 76 65 64 20 69 6e 20 66 61 73 6c 20 66 69 6c 65 73 2c 20 61 6e 64 0a 3b | t.preserved.in.fasl.files,.and.; |
| 1fdbe0 | 3b 3b 20 58 52 45 46 20 72 65 63 6f 72 64 69 6e 67 20 69 73 20 64 69 73 61 62 6c 65 64 20 62 79 | ;;.XREF.recording.is.disabled.by |
| 1fdc00 | 20 64 65 66 61 75 6c 74 2e 20 52 65 64 65 66 69 6e 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 20 63 | .default..Redefining.functions.c |
| 1fdc20 | 61 6e 0a 3b 3b 3b 20 61 6c 73 6f 20 63 61 75 73 65 20 64 75 70 6c 69 63 61 74 65 20 72 65 66 65 | an.;;;.also.cause.duplicate.refe |
| 1fdc40 | 72 65 6e 63 65 73 20 74 6f 20 61 63 63 75 6d 75 6c 61 74 65 2c 20 62 75 74 0a 3b 3b 3b 20 60 73 | rences.to.accumulate,.but.;;;.`s |
| 1fdc60 | 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 27 20 77 69 6c 6c 20 61 75 74 6f 6d 61 74 69 | wank-compile-file'.will.automati |
| 1fdc80 | 63 61 6c 6c 79 20 63 6c 65 61 72 20 6f 75 74 20 61 6e 79 20 6f 6c 64 20 72 65 63 6f 72 64 73 0a | cally.clear.out.any.old.records. |
| 1fdca0 | 3b 3b 3b 20 66 72 6f 6d 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 6e 61 6d 65 2e 0a 3b 3b 3b 0a | ;;;.from.the.same.filename..;;;. |
| 1fdcc0 | 3b 3b 3b 20 54 6f 20 65 6e 61 62 6c 65 20 58 52 45 46 20 72 65 63 6f 72 64 69 6e 67 2c 20 73 65 | ;;;.To.enable.XREF.recording,.se |
| 1fdce0 | 74 20 60 63 3a 2a 72 65 63 6f 72 64 2d 78 72 65 66 2d 69 6e 66 6f 2a 27 20 74 6f 20 74 72 75 65 | t.`c:*record-xref-info*'.to.true |
| 1fdd00 | 2e 20 54 6f 0a 3b 3b 3b 20 63 6c 65 61 72 20 6f 75 74 20 74 68 65 20 58 52 45 46 20 64 61 74 61 | ..To.;;;.clear.out.the.XREF.data |
| 1fdd20 | 62 61 73 65 20 63 61 6c 6c 20 60 78 72 65 66 3a 69 6e 69 74 2d 78 72 65 66 2d 64 61 74 61 62 61 | base.call.`xref:init-xref-databa |
| 1fdd40 | 73 65 27 2e 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 78 72 65 66 20 28 6e 61 6d 65 20 66 75 | se'...(defmacro.defxref.(name.fu |
| 1fdd60 | 6e 63 74 69 6f 6e 29 0a 20 20 60 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 2c 6e | nction)...`(defimplementation.,n |
| 1fdd80 | 61 6d 65 20 28 6e 61 6d 65 29 0a 20 20 20 20 28 78 72 65 66 2d 72 65 73 75 6c 74 73 20 28 2c 66 | ame.(name).....(xref-results.(,f |
| 1fdda0 | 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 78 72 65 66 20 77 68 6f 2d 63 | unction.name))))..(defxref.who-c |
| 1fddc0 | 61 6c 6c 73 20 20 20 20 20 20 78 72 65 66 3a 77 68 6f 2d 63 61 6c 6c 73 29 0a 28 64 65 66 78 72 | alls......xref:who-calls).(defxr |
| 1fdde0 | 65 66 20 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 20 78 72 65 66 3a 77 68 6f 2d 72 65 66 65 72 | ef.who-references.xref:who-refer |
| 1fde00 | 65 6e 63 65 73 29 0a 28 64 65 66 78 72 65 66 20 77 68 6f 2d 62 69 6e 64 73 20 20 20 20 20 20 78 | ences).(defxref.who-binds......x |
| 1fde20 | 72 65 66 3a 77 68 6f 2d 62 69 6e 64 73 29 0a 28 64 65 66 78 72 65 66 20 77 68 6f 2d 73 65 74 73 | ref:who-binds).(defxref.who-sets |
| 1fde40 | 20 20 20 20 20 20 20 78 72 65 66 3a 77 68 6f 2d 73 65 74 73 29 0a 0a 3b 3b 3b 20 4d 6f 72 65 20 | .......xref:who-sets)..;;;.More. |
| 1fde60 | 74 79 70 65 73 20 6f 66 20 58 52 45 46 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 65 72 65 20 61 | types.of.XREF.information.were.a |
| 1fde80 | 64 64 65 64 20 73 69 6e 63 65 20 31 38 65 3a 0a 3b 3b 3b 0a 0a 28 64 65 66 78 72 65 66 20 77 68 | dded.since.18e:.;;;..(defxref.wh |
| 1fdea0 | 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 20 78 72 65 66 3a 77 68 6f 2d 6d 61 63 72 6f 65 78 70 | o-macroexpands.xref:who-macroexp |
| 1fdec0 | 61 6e 64 73 29 0a 3b 3b 20 58 58 58 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | ands).;;.XXX.(defimplementation. |
| 1fdee0 | 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 2a | who-specializes.(symbol)...(let* |
| 1fdf00 | 20 28 28 6d 65 74 68 6f 64 73 20 28 78 72 65 66 3a 3a 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 | .((methods.(xref::who-specialize |
| 1fdf20 | 73 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 | s.(find-class.symbol)))......... |
| 1fdf40 | 20 28 6c 6f 63 61 74 69 6f 6e 73 20 28 6d 61 70 63 61 72 20 23 27 6d 65 74 68 6f 64 2d 6c 6f 63 | .(locations.(mapcar.#'method-loc |
| 1fdf60 | 61 74 69 6f 6e 20 6d 65 74 68 6f 64 73 29 29 29 0a 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 6c | ation.methods))).....(mapcar.#'l |
| 1fdf80 | 69 73 74 20 6d 65 74 68 6f 64 73 20 6c 6f 63 61 74 69 6f 6e 73 29 29 29 0a 0a 28 64 65 66 75 6e | ist.methods.locations)))..(defun |
| 1fdfa0 | 20 78 72 65 66 2d 72 65 73 75 6c 74 73 20 28 63 6f 6e 74 65 78 74 73 29 0a 20 20 28 6d 61 70 63 | .xref-results.(contexts)...(mapc |
| 1fdfc0 | 61 72 20 28 6c 61 6d 62 64 61 20 28 78 72 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ar.(lambda.(xref).............(l |
| 1fdfe0 | 69 73 74 20 28 78 72 65 66 3a 78 72 65 66 2d 63 6f 6e 74 65 78 74 2d 6e 61 6d 65 20 78 72 65 66 | ist.(xref:xref-context-name.xref |
| 1fe000 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 6f 6c 76 65 2d 78 72 65 | )...................(resolve-xre |
| 1fe020 | 66 2d 6c 6f 63 61 74 69 6f 6e 20 78 72 65 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6e | f-location.xref)))...........con |
| 1fe040 | 74 65 78 74 73 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 73 6f 6c 76 65 2d 78 72 65 66 2d 6c 6f 63 | texts))..(defun.resolve-xref-loc |
| 1fe060 | 61 74 69 6f 6e 20 28 78 72 65 66 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 78 72 65 66 | ation.(xref)...(let.((name.(xref |
| 1fe080 | 3a 78 72 65 66 2d 63 6f 6e 74 65 78 74 2d 6e 61 6d 65 20 78 72 65 66 29 29 0a 20 20 20 20 20 20 | :xref-context-name.xref))....... |
| 1fe0a0 | 20 20 28 66 69 6c 65 20 28 78 72 65 66 3a 78 72 65 66 2d 63 6f 6e 74 65 78 74 2d 66 69 6c 65 20 | ..(file.(xref:xref-context-file. |
| 1fe0c0 | 78 72 65 66 29 29 0a 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 68 20 28 78 72 65 | xref)).........(source-path.(xre |
| 1fe0e0 | 66 3a 78 72 65 66 2d 63 6f 6e 74 65 78 74 2d 73 6f 75 72 63 65 2d 70 61 74 68 20 78 72 65 66 29 | f:xref-context-source-path.xref) |
| 1fe100 | 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 66 69 6c 65 20 73 6f 75 72 63 65 2d 70 | )).....(cond.((and.file.source-p |
| 1fe120 | 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 69 74 69 6f 6e 20 | ath)............(let.((position. |
| 1fe140 | 28 73 6f 75 72 63 65 2d 70 61 74 68 2d 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 6f 75 72 63 | (source-path-file-position.sourc |
| 1fe160 | 65 2d 70 61 74 68 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b | e-path.file)))..............(mak |
| 1fe180 | 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 75 6e 69 78 2d 74 72 75 | e-location.(list.:file.(unix-tru |
| 1fe1a0 | 65 6e 61 6d 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ename.file)).................... |
| 1fe1c0 | 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 28 31 2b 20 70 6f 73 | .........(list.:position.(1+.pos |
| 1fe1e0 | 69 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 0a 20 20 20 20 20 | ition)))))...........(file...... |
| 1fe200 | 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 | ......(make-location.(list.:file |
| 1fe220 | 20 28 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 | .(unix-truename.file)).......... |
| 1fe240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e | .................(list.:function |
| 1fe260 | 2d 6e 61 6d 65 20 28 73 74 72 69 6e 67 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | -name.(string.name)))).......... |
| 1fe280 | 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 | .(t............`(:error.,(format |
| 1fe2a0 | 20 6e 69 6c 20 22 55 6e 6b 6e 6f 77 6e 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 3a 20 7e | .nil."Unknown.source.location:.~ |
| 1fe2c0 | 53 20 7e 53 20 7e 53 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | S.~S.~S."....................... |
| 1fe2e0 | 20 20 20 20 20 20 20 6e 61 6d 65 20 66 69 6c 65 20 73 6f 75 72 63 65 2d 70 61 74 68 29 29 29 29 | .......name.file.source-path)))) |
| 1fe300 | 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 65 61 72 2d 78 72 65 66 2d 69 6e 66 6f 20 28 6e 61 6d 65 | ))..(defun.clear-xref-info.(name |
| 1fe320 | 73 74 72 69 6e 67 29 0a 20 20 22 43 6c 65 61 72 20 58 52 45 46 20 6e 6f 74 65 73 20 70 65 72 74 | string)..."Clear.XREF.notes.pert |
| 1fe340 | 61 69 6e 69 6e 67 20 74 6f 20 4e 41 4d 45 53 54 52 49 4e 47 2e 0a 54 68 69 73 20 69 73 20 61 20 | aining.to.NAMESTRING..This.is.a. |
| 1fe360 | 77 6f 72 6b 61 72 6f 75 6e 64 20 66 6f 72 20 61 20 43 4d 55 43 4c 20 62 75 67 3a 20 58 52 45 46 | workaround.for.a.CMUCL.bug:.XREF |
| 1fe380 | 20 72 65 63 6f 72 64 73 20 61 72 65 20 63 75 6d 75 6c 61 74 69 76 65 2e 22 0a 20 20 28 77 68 65 | .records.are.cumulative."...(whe |
| 1fe3a0 | 6e 20 63 3a 2a 72 65 63 6f 72 64 2d 78 72 65 66 2d 69 6e 66 6f 2a 0a 20 20 20 20 28 6c 65 74 20 | n.c:*record-xref-info*.....(let. |
| 1fe3c0 | 28 28 66 69 6c 65 6e 61 6d 65 20 28 74 72 75 65 6e 61 6d 65 20 6e 61 6d 65 73 74 72 69 6e 67 29 | ((filename.(truename.namestring) |
| 1fe3e0 | 29 29 0a 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 64 62 20 28 6c 69 73 74 20 78 72 65 66 3a | )).......(dolist.(db.(list.xref: |
| 1fe400 | 3a 2a 77 68 6f 2d 63 61 6c 6c 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :*who-calls*.................... |
| 1fe420 | 20 20 20 20 20 78 72 65 66 3a 3a 2a 77 68 6f 2d 69 73 2d 63 61 6c 6c 65 64 2a 0a 20 20 20 20 20 | .....xref::*who-is-called*...... |
| 1fe440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 72 65 66 3a 3a 2a 77 68 6f 2d 6d 61 | ...................xref::*who-ma |
| 1fe460 | 63 72 6f 65 78 70 61 6e 64 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | croexpands*..................... |
| 1fe480 | 20 20 20 20 78 72 65 66 3a 3a 2a 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 2a 0a 20 20 20 20 20 | ....xref::*who-references*...... |
| 1fe4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 72 65 66 3a 3a 2a 77 68 6f 2d 62 69 | ...................xref::*who-bi |
| 1fe4c0 | 6e 64 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 72 65 | nds*.........................xre |
| 1fe4e0 | 66 3a 3a 2a 77 68 6f 2d 73 65 74 73 2a 29 29 0a 20 20 20 20 20 20 20 20 28 6d 61 70 68 61 73 68 | f::*who-sets*)).........(maphash |
| 1fe500 | 20 28 6c 61 6d 62 64 61 20 28 74 61 72 67 65 74 20 63 6f 6e 74 65 78 74 73 29 0a 20 20 20 20 20 | .(lambda.(target.contexts)...... |
| 1fe520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 58 58 58 20 75 70 64 61 74 65 20 64 75 72 69 | ..............;;.XXX.update.duri |
| 1fe540 | 6e 67 20 74 72 61 76 65 72 73 61 6c 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng.traversal?................... |
| 1fe560 | 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 74 61 72 67 65 74 20 64 62 29 0a 20 20 20 20 20 | .(setf.(gethash.target.db)...... |
| 1fe580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 20 66 69 6c 65 | ....................(delete.file |
| 1fe5a0 | 6e 61 6d 65 20 63 6f 6e 74 65 78 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name.contexts................... |
| 1fe5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 78 72 65 66 3a 78 72 65 66 2d | ...............:key.#'xref:xref- |
| 1fe5e0 | 63 6f 6e 74 65 78 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | context-file.................... |
| 1fe600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 70 29 29 29 0a | ..............:test.#'equalp))). |
| 1fe620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 62 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b | .................db)))))....;;;; |
| 1fe640 | 20 46 69 6e 64 20 63 61 6c 6c 65 72 73 20 61 6e 64 20 63 61 6c 6c 65 65 73 0a 3b 3b 3b 0a 3b 3b | .Find.callers.and.callees.;;;.;; |
| 1fe660 | 3b 20 46 69 6e 64 20 63 61 6c 6c 65 72 73 20 61 6e 64 20 63 61 6c 6c 65 65 73 20 62 79 20 6c 6f | ;.Find.callers.and.callees.by.lo |
| 1fe680 | 6f 6b 69 6e 67 20 61 74 20 74 68 65 20 63 6f 6e 73 74 61 6e 74 20 70 6f 6f 6c 20 6f 66 0a 3b 3b | oking.at.the.constant.pool.of.;; |
| 1fe6a0 | 3b 20 63 6f 6d 70 69 6c 65 64 20 63 6f 64 65 20 6f 62 6a 65 63 74 73 2e 20 20 57 65 20 61 73 73 | ;.compiled.code.objects...We.ass |
| 1fe6c0 | 75 6d 65 20 65 76 65 72 79 20 66 64 65 66 6e 20 6f 62 6a 65 63 74 20 69 6e 20 74 68 65 0a 3b 3b | ume.every.fdefn.object.in.the.;; |
| 1fe6e0 | 3b 20 63 6f 6e 73 74 61 6e 74 20 70 6f 6f 6c 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f 20 61 | ;.constant.pool.corresponds.to.a |
| 1fe700 | 20 63 61 6c 6c 20 74 6f 20 74 68 61 74 20 66 75 6e 63 74 69 6f 6e 2e 20 20 41 20 62 65 74 74 65 | .call.to.that.function...A.bette |
| 1fe720 | 72 0a 3b 3b 3b 20 73 74 72 61 74 65 67 79 20 77 6f 75 6c 64 20 62 65 20 74 6f 20 75 73 65 20 74 | r.;;;.strategy.would.be.to.use.t |
| 1fe740 | 68 65 20 64 69 73 61 73 73 65 6d 62 6c 65 72 20 74 6f 20 66 69 6e 64 20 61 63 74 75 61 6c 0a 3b | he.disassembler.to.find.actual.; |
| 1fe760 | 3b 3b 20 63 61 6c 6c 2d 73 69 74 65 73 2e 0a 0a 28 6c 61 62 65 6c 73 20 28 28 6d 61 6b 65 2d 73 | ;;.call-sites...(labels.((make-s |
| 1fe780 | 74 61 63 6b 20 28 29 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 31 30 30 20 3a 66 69 6c 6c 2d 70 6f | tack.().(make-array.100.:fill-po |
| 1fe7a0 | 69 6e 74 65 72 20 30 20 3a 61 64 6a 75 73 74 61 62 6c 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 | inter.0.:adjustable.t))......... |
| 1fe7c0 | 20 28 6d 61 70 2d 63 70 6f 6f 6c 20 28 63 6f 64 65 20 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 | .(map-cpool.(code.fun).......... |
| 1fe7e0 | 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 6b 65 72 6e 65 6c 3a 63 6f 64 65 2d 63 6f 6d | ..(declare.(type.kernel:code-com |
| 1fe800 | 70 6f 6e 65 6e 74 20 63 6f 64 65 29 20 28 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 66 75 6e 29 | ponent.code).(type.function.fun) |
| 1fe820 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 76 6d | )............(loop.for.i.from.vm |
| 1fe840 | 3a 63 6f 64 65 2d 63 6f 6e 73 74 61 6e 74 73 2d 6f 66 66 73 65 74 0a 20 20 20 20 20 20 20 20 20 | :code-constants-offset.......... |
| 1fe860 | 20 20 20 20 20 20 20 20 62 65 6c 6f 77 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 68 65 61 64 65 72 | ........below.(kernel:get-header |
| 1fe880 | 2d 64 61 74 61 20 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 | -data.code)..................do. |
| 1fe8a0 | 28 66 75 6e 63 61 6c 6c 20 66 75 6e 20 28 6b 65 72 6e 65 6c 3a 63 6f 64 65 2d 68 65 61 64 65 72 | (funcall.fun.(kernel:code-header |
| 1fe8c0 | 2d 72 65 66 20 63 6f 64 65 20 69 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 65 | -ref.code.i))))...........(calle |
| 1fe8e0 | 65 73 20 28 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 61 6c 6c 65 | es.(fun)............(let.((calle |
| 1fe900 | 65 73 20 28 6d 61 6b 65 2d 73 74 61 63 6b 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | es.(make-stack)))..............( |
| 1fe920 | 6d 61 70 2d 63 70 6f 6f 6c 20 28 76 6d 3a 3a 66 69 6e 64 2d 63 6f 64 65 2d 6f 62 6a 65 63 74 20 | map-cpool.(vm::find-code-object. |
| 1fe940 | 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 | fun).........................(la |
| 1fe960 | 6d 62 64 61 20 28 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mbda.(o)........................ |
| 1fe980 | 20 20 20 28 77 68 65 6e 20 28 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 2d 70 20 6f 29 0a 20 20 20 20 | ...(when.(kernel:fdefn-p.o)..... |
| 1fe9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d | ........................(vector- |
| 1fe9c0 | 70 75 73 68 2d 65 78 74 65 6e 64 20 28 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 2d 66 75 6e 63 74 69 | push-extend.(kernel:fdefn-functi |
| 1fe9e0 | 6f 6e 20 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on.o)........................... |
| 1fea00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 65 65 73 29 29 29 | ......................callees))) |
| 1fea20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 65 72 63 65 20 63 61 6c 6c 65 65 73 20 27 | )..............(coerce.callees.' |
| 1fea40 | 6c 69 73 74 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 65 72 73 20 28 66 75 6e 29 | list)))...........(callers.(fun) |
| 1fea60 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 66 75 6e 63 74 69 6f 6e 20 66 | ............(declare.(function.f |
| 1fea80 | 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 61 6c 6c 65 72 73 20 28 | un))............(let.((callers.( |
| 1feaa0 | 6d 61 6b 65 2d 73 74 61 63 6b 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a | make-stack)))..............(ext: |
| 1feac0 | 67 63 20 3a 66 75 6c 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 63 61 6e | gc.:full.t)..............;;.scan |
| 1feae0 | 20 3a 64 79 6e 61 6d 69 63 20 66 69 72 73 74 20 74 6f 20 61 76 6f 69 64 20 74 68 65 20 6e 65 65 | .:dynamic.first.to.avoid.the.nee |
| 1feb00 | 64 20 66 6f 72 20 65 76 65 6e 20 6d 6f 72 65 20 67 63 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 | d.for.even.more.gcing........... |
| 1feb20 | 20 20 20 28 64 6f 6c 69 73 74 20 28 73 70 61 63 65 20 27 28 3a 64 79 6e 61 6d 69 63 20 3a 72 65 | ...(dolist.(space.'(:dynamic.:re |
| 1feb40 | 61 64 2d 6f 6e 6c 79 20 3a 73 74 61 74 69 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ad-only.:static))............... |
| 1feb60 | 20 28 76 6d 3a 3a 6d 61 70 2d 61 6c 6c 6f 63 61 74 65 64 2d 6f 62 6a 65 63 74 73 0a 20 20 20 20 | .(vm::map-allocated-objects..... |
| 1feb80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6f 62 6a 20 68 65 61 64 65 72 20 | ............(lambda.(obj.header. |
| 1feba0 | 73 69 7a 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 | size)...................(declare |
| 1febc0 | 20 28 74 79 70 65 20 66 69 78 6e 75 6d 20 68 65 61 64 65 72 29 20 28 69 67 6e 6f 72 65 20 73 69 | .(type.fixnum.header).(ignore.si |
| 1febe0 | 7a 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3d 20 | ze))...................(when.(=. |
| 1fec00 | 76 6d 3a 63 6f 64 65 2d 68 65 61 64 65 72 2d 74 79 70 65 20 68 65 61 64 65 72 29 0a 20 20 20 20 | vm:code-header-type.header)..... |
| 1fec20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 2d 63 70 6f 6f 6c 20 6f 62 6a 0a 20 | ................(map-cpool.obj.. |
| 1fec40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ..............................(l |
| 1fec60 | 61 6d 62 64 61 20 28 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ambda.(c)....................... |
| 1fec80 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6b 65 72 6e 65 6c 3a 66 64 | ...........(when.(and.(kernel:fd |
| 1feca0 | 65 66 6e 2d 70 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | efn-p.c)........................ |
| 1fecc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 6b 65 72 6e 65 6c | .....................(eq.(kernel |
| 1fece0 | 3a 66 64 65 66 6e 2d 66 75 6e 63 74 69 6f 6e 20 63 29 20 66 75 6e 29 29 0a 20 20 20 20 20 20 20 | :fdefn-function.c).fun))........ |
| 1fed00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 65 63 | ............................(vec |
| 1fed20 | 74 6f 72 2d 70 75 73 68 2d 65 78 74 65 6e 64 20 6f 62 6a 20 63 61 6c 6c 65 72 73 29 29 29 29 29 | tor-push-extend.obj.callers))))) |
| 1fed40 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 | ).................space)........ |
| 1fed60 | 20 20 20 20 20 20 20 20 28 65 78 74 3a 67 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ........(ext:gc))..............( |
| 1fed80 | 63 6f 65 72 63 65 20 63 61 6c 6c 65 72 73 20 27 6c 69 73 74 29 29 29 0a 0a 20 20 20 20 20 20 20 | coerce.callers.'list)))......... |
| 1feda0 | 20 20 28 65 6e 74 72 79 2d 70 6f 69 6e 74 73 20 28 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 | ..(entry-points.(code).......... |
| 1fedc0 | 20 20 28 6c 6f 6f 70 20 66 6f 72 20 65 6e 74 72 79 20 3d 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 | ..(loop.for.entry.=.(kernel:%cod |
| 1fede0 | 65 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 73 20 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | e-entry-points.code)............ |
| 1fee00 | 20 20 20 20 20 20 74 68 65 6e 20 28 6b 65 72 6e 65 6c 3a 3a 25 66 75 6e 63 74 69 6f 6e 2d 6e 65 | ......then.(kernel::%function-ne |
| 1fee20 | 78 74 20 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 | xt.entry)..................while |
| 1fee40 | 20 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 | .entry..................collect. |
| 1fee60 | 65 6e 74 72 79 29 29 0a 0a 20 20 20 20 20 20 20 20 20 28 67 75 65 73 73 2d 6d 61 69 6e 2d 65 6e | entry))...........(guess-main-en |
| 1fee80 | 74 72 79 2d 70 6f 69 6e 74 20 28 65 6e 74 72 79 2d 70 6f 69 6e 74 73 29 0a 20 20 20 20 20 20 20 | try-point.(entry-points)........ |
| 1feea0 | 20 20 20 20 28 6f 72 20 28 66 69 6e 64 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 66 75 6e 29 0a 20 | ....(or.(find-if.(lambda.(fun).. |
| 1feec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 76 61 | .........................(ext:va |
| 1feee0 | 6c 69 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 | lid-function-name-p............. |
| 1fef00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e | ...............(kernel:%function |
| 1fef20 | 2d 6e 61 6d 65 20 66 75 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -name.fun))).................... |
| 1fef40 | 20 20 20 20 20 65 6e 74 72 79 2d 70 6f 69 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....entry-points).............. |
| 1fef60 | 20 20 28 63 61 72 20 65 6e 74 72 79 2d 70 6f 69 6e 74 73 29 29 29 0a 0a 20 20 20 20 20 20 20 20 | ..(car.entry-points))).......... |
| 1fef80 | 20 28 66 75 6e 2d 64 73 70 65 63 20 28 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | .(fun-dspec.(fun)............(li |
| 1fefa0 | 73 74 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 29 20 28 | st.(kernel:%function-name.fun).( |
| 1fefc0 | 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 29 29 29 0a 0a 20 20 20 20 20 20 | function-location.fun)))........ |
| 1fefe0 | 20 20 20 28 63 6f 64 65 2d 64 73 70 65 63 20 28 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ...(code-dspec.(code)........... |
| 1ff000 | 20 28 6c 65 74 20 28 28 65 70 73 20 28 65 6e 74 72 79 2d 70 6f 69 6e 74 73 20 63 6f 64 65 29 29 | .(let.((eps.(entry-points.code)) |
| 1ff020 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 20 28 6b 65 72 6e 65 6c 3a 25 63 | ..................(di.(kernel:%c |
| 1ff040 | 6f 64 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 63 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ode-debug-info.code))).......... |
| 1ff060 | 20 20 20 20 28 63 6f 6e 64 20 28 65 70 73 20 28 66 75 6e 2d 64 73 70 65 63 20 28 67 75 65 73 73 | ....(cond.(eps.(fun-dspec.(guess |
| 1ff080 | 2d 6d 61 69 6e 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 20 65 70 73 29 29 29 0a 20 20 20 20 20 20 20 | -main-entry-point.eps)))........ |
| 1ff0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 20 28 6c 69 73 74 20 28 63 3a 3a 64 65 62 75 67 2d | ............(di.(list.(c::debug- |
| 1ff0c0 | 69 6e 66 6f 2d 6e 61 6d 65 20 64 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | info-name.di)................... |
| 1ff0e0 | 20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 2d 69 6e 66 6f 2d 66 75 6e 63 74 69 6f 6e 2d | ...........(debug-info-function- |
| 1ff100 | 6e 61 6d 65 2d 6c 6f 63 61 74 69 6f 6e 20 64 69 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | name-location.di)))............. |
| 1ff120 | 20 20 20 20 20 20 20 28 74 20 28 6c 69 73 74 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 | .......(t.(list.(princ-to-string |
| 1ff140 | 20 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .code).......................... |
| 1ff160 | 20 20 20 60 28 3a 65 72 72 6f 72 20 22 4e 6f 20 73 72 63 2d 6c 6f 63 20 61 76 61 69 6c 61 62 6c | ...`(:error."No.src-loc.availabl |
| 1ff180 | 65 22 29 29 29 29 29 29 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 6c 69 6e 65 20 6d 61 70 | e")))))))...(declare.(inline.map |
| 1ff1a0 | 2d 63 70 6f 6f 6c 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c | -cpool))....(defimplementation.l |
| 1ff1c0 | 69 73 74 2d 63 61 6c 6c 65 72 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 28 6d 61 70 63 61 72 | ist-callers.(symbol).....(mapcar |
| 1ff1e0 | 20 23 27 63 6f 64 65 2d 64 73 70 65 63 20 28 63 61 6c 6c 65 72 73 20 28 63 6f 65 72 63 65 20 73 | .#'code-dspec.(callers.(coerce.s |
| 1ff200 | 79 6d 62 6f 6c 20 27 66 75 6e 63 74 69 6f 6e 29 20 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c | ymbol.'function).)))....(defimpl |
| 1ff220 | 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 73 74 2d 63 61 6c 6c 65 65 73 20 28 73 79 6d 62 6f 6c 29 | ementation.list-callees.(symbol) |
| 1ff240 | 0a 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 66 75 6e 2d 64 73 70 65 63 20 28 63 61 6c 6c 65 65 | .....(mapcar.#'fun-dspec.(callee |
| 1ff260 | 73 20 73 79 6d 62 6f 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 73 74 2d 6c 69 73 74 2d 63 | s.symbol))))..(defun.test-list-c |
| 1ff280 | 61 6c 6c 65 72 73 20 28 63 6f 75 6e 74 29 0a 20 20 28 6c 65 74 20 28 28 66 75 6e 73 79 6d 73 20 | allers.(count)...(let.((funsyms. |
| 1ff2a0 | 27 28 29 29 29 0a 20 20 20 20 28 64 6f 2d 61 6c 6c 2d 73 79 6d 62 6f 6c 73 20 28 73 29 0a 20 20 | '())).....(do-all-symbols.(s)... |
| 1ff2c0 | 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 73 29 0a 20 20 20 20 20 | ....(when.(and.(fboundp.s)...... |
| 1ff2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 70 20 28 73 79 6d 62 6f 6c 2d 66 | ............(functionp.(symbol-f |
| 1ff300 | 75 6e 63 74 69 6f 6e 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f | unction.s))..................(no |
| 1ff320 | 74 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 | t.(macro-function.s))........... |
| 1ff340 | 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 2d 70 20 | .......(not.(special-operator-p. |
| 1ff360 | 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 75 73 68 20 73 20 66 75 6e 73 79 6d 73 29 29 29 0a | s))).........(push.s.funsyms))). |
| 1ff380 | 20 20 20 20 28 6c 65 74 20 28 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 66 75 6e 73 79 6d 73 29 29 | ....(let.((len.(length.funsyms)) |
| 1ff3a0 | 29 0a 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 63 6f 75 6e 74 29 0a 20 20 20 20 20 | ).......(dotimes.(i.count)...... |
| 1ff3c0 | 20 20 20 28 6c 65 74 20 28 28 73 79 6d 20 28 6e 74 68 20 28 72 61 6e 64 6f 6d 20 6c 65 6e 29 20 | ...(let.((sym.(nth.(random.len). |
| 1ff3e0 | 66 75 6e 73 79 6d 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 | funsyms)))...........(format.t." |
| 1ff400 | 7e 73 20 2d 3e 20 7e 61 7e 25 22 20 73 79 6d 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 28 6c | ~s.->.~a~%".sym.(mapcar.#'car.(l |
| 1ff420 | 69 73 74 2d 63 61 6c 6c 65 72 73 20 73 79 6d 29 29 29 29 29 29 29 29 0a 0a 3b 3b 20 28 74 65 73 | ist-callers.sym))))))))..;;.(tes |
| 1ff440 | 74 2d 6c 69 73 74 2d 63 61 6c 6c 65 72 73 20 31 30 30 29 0a 0a 0c 0a 3b 3b 3b 3b 20 52 65 73 6f | t-list-callers.100)....;;;;.Reso |
| 1ff460 | 6c 76 69 6e 67 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 73 0a 3b 3b 3b 0a 3b 3b 3b 20 4f | lving.source.locations.;;;.;;;.O |
| 1ff480 | 75 72 20 6d 69 73 73 69 6f 6e 20 68 65 72 65 20 69 73 20 74 6f 20 22 72 65 73 6f 6c 76 65 22 20 | ur.mission.here.is.to."resolve". |
| 1ff4a0 | 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 63 6f 64 65 20 6c 6f 63 61 74 69 6f 6e 73 20 69 6e 74 | references.to.code.locations.int |
| 1ff4c0 | 6f 0a 3b 3b 3b 20 61 63 74 75 61 6c 20 66 69 6c 65 2f 62 75 66 66 65 72 20 6e 61 6d 65 73 20 61 | o.;;;.actual.file/buffer.names.a |
| 1ff4e0 | 6e 64 20 63 68 61 72 61 63 74 65 72 20 70 6f 73 69 74 69 6f 6e 73 2e 20 54 68 65 20 72 65 66 65 | nd.character.positions..The.refe |
| 1ff500 | 72 65 6e 63 65 73 0a 3b 3b 3b 20 77 65 20 77 6f 72 6b 20 66 72 6f 6d 20 63 6f 6d 65 20 6f 75 74 | rences.;;;.we.work.from.come.out |
| 1ff520 | 20 6f 66 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 27 73 20 73 74 61 74 69 63 61 6c 6c 79 2d 67 65 | .of.the.compiler's.statically-ge |
| 1ff540 | 6e 65 72 61 74 65 64 20 64 65 62 75 67 0a 3b 3b 3b 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 73 | nerated.debug.;;;.information,.s |
| 1ff560 | 75 63 68 20 61 73 20 60 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 27 27 73 20 61 6e 64 20 60 64 65 | uch.as.`code-location''s.and.`de |
| 1ff580 | 62 75 67 2d 73 6f 75 72 63 65 27 27 73 2e 20 46 6f 72 0a 3b 3b 3b 20 6d 6f 72 65 20 64 65 74 61 | bug-source''s..For.;;;.more.deta |
| 1ff5a0 | 69 6c 73 2c 20 73 65 65 20 74 68 65 20 22 44 65 62 75 67 67 65 72 20 50 72 6f 67 72 61 6d 6d 65 | ils,.see.the."Debugger.Programme |
| 1ff5c0 | 72 27 73 20 49 6e 74 65 72 66 61 63 65 22 20 73 65 63 74 69 6f 6e 20 6f 66 0a 3b 3b 3b 20 74 68 | r's.Interface".section.of.;;;.th |
| 1ff5e0 | 65 20 43 4d 55 43 4c 20 6d 61 6e 75 61 6c 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 66 69 72 73 | e.CMUCL.manual..;;;.;;;.The.firs |
| 1ff600 | 74 20 73 74 65 70 20 69 73 20 75 73 75 61 6c 6c 79 20 74 6f 20 66 69 6e 64 20 74 68 65 20 63 6f | t.step.is.usually.to.find.the.co |
| 1ff620 | 72 72 65 73 70 6f 6e 64 69 6e 67 20 22 73 6f 75 72 63 65 2d 70 61 74 68 22 0a 3b 3b 3b 20 66 6f | rresponding."source-path".;;;.fo |
| 1ff640 | 72 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 2e 20 4f 6e 63 65 20 77 65 20 68 61 76 65 20 74 68 65 | r.the.location..Once.we.have.the |
| 1ff660 | 20 73 6f 75 72 63 65 2d 70 61 74 68 20 77 65 20 63 61 6e 20 70 75 6c 6c 20 75 70 20 74 68 65 0a | .source-path.we.can.pull.up.the. |
| 1ff680 | 3b 3b 3b 20 73 6f 75 72 63 65 20 66 69 6c 65 20 61 6e 64 20 60 52 45 41 44 27 20 6f 75 72 20 77 | ;;;.source.file.and.`READ'.our.w |
| 1ff6a0 | 61 79 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65 20 72 69 67 68 74 20 70 6f 73 69 74 69 6f 6e | ay.through.to.the.right.position |
| 1ff6c0 | 2e 20 54 68 65 0a 3b 3b 3b 20 6d 61 69 6e 20 73 6f 75 72 63 65 2d 63 6f 64 65 20 67 72 6f 76 65 | ..The.;;;.main.source-code.grove |
| 1ff6e0 | 6c 69 6e 67 20 77 6f 72 6b 20 69 73 20 64 6f 6e 65 20 69 6e 0a 3b 3b 3b 20 60 73 6f 75 72 63 65 | ling.work.is.done.in.;;;.`source |
| 1ff700 | 2d 70 61 74 68 2d 70 61 72 73 65 72 2e 6c 69 73 70 27 2e 0a 0a 28 64 65 66 76 61 72 20 2a 64 65 | -path-parser.lisp'...(defvar.*de |
| 1ff720 | 62 75 67 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 2a 20 6e 69 6c 0a 20 20 22 57 | bug-definition-finding*.nil..."W |
| 1ff740 | 68 65 6e 20 74 72 75 65 20 64 6f 6e 27 74 20 68 61 6e 64 6c 65 20 65 72 72 6f 72 73 20 77 68 69 | hen.true.don't.handle.errors.whi |
| 1ff760 | 6c 65 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 54 68 69 73 | le.looking.for.definitions..This |
| 1ff780 | 20 69 73 20 75 73 65 66 75 6c 20 77 68 65 6e 20 64 65 62 75 67 67 69 6e 67 20 74 68 65 20 64 65 | .is.useful.when.debugging.the.de |
| 1ff7a0 | 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 20 63 6f 64 65 2e 22 29 0a 0a 28 64 65 66 6d 61 | finition-finding.code.")..(defma |
| 1ff7c0 | 63 72 6f 20 73 61 66 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 20 28 26 62 6f | cro.safe-definition-finding.(&bo |
| 1ff7e0 | 64 79 20 62 6f 64 79 29 0a 20 20 22 45 78 65 63 75 74 65 20 42 4f 44 59 20 61 6e 64 20 72 65 74 | dy.body)..."Execute.BODY.and.ret |
| 1ff800 | 75 72 6e 20 74 68 65 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 69 74 20 72 65 74 75 72 | urn.the.source-location.it.retur |
| 1ff820 | 6e 73 2e 0a 49 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 73 20 61 6e 64 20 60 2a 64 65 62 | ns..If.an.error.occurs.and.`*deb |
| 1ff840 | 75 67 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 2a 27 20 69 73 20 66 61 6c 73 65 | ug-definition-finding*'.is.false |
| 1ff860 | 2c 20 74 68 65 6e 0a 72 65 74 75 72 6e 20 61 6e 20 65 72 72 6f 72 20 70 73 65 75 64 6f 2d 6c 6f | ,.then.return.an.error.pseudo-lo |
| 1ff880 | 63 61 74 69 6f 6e 2e 0a 0a 54 68 65 20 73 65 63 6f 6e 64 20 72 65 74 75 72 6e 20 76 61 6c 75 65 | cation...The.second.return.value |
| 1ff8a0 | 20 69 73 20 4e 49 4c 20 69 66 20 6e 6f 20 65 72 72 6f 72 20 6f 63 63 75 72 73 2c 20 6f 74 68 65 | .is.NIL.if.no.error.occurs,.othe |
| 1ff8c0 | 72 77 69 73 65 20 69 74 20 69 73 20 74 68 65 0a 63 6f 6e 64 69 74 69 6f 6e 20 6f 62 6a 65 63 74 | rwise.it.is.the.condition.object |
| 1ff8e0 | 2e 22 0a 20 20 60 28 66 6c 65 74 20 28 28 62 6f 64 79 20 28 29 20 2c 40 62 6f 64 79 29 29 0a 20 | ."...`(flet.((body.().,@body)).. |
| 1ff900 | 20 20 20 28 69 66 20 2a 64 65 62 75 67 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 | ...(if.*debug-definition-finding |
| 1ff920 | 2a 0a 20 20 20 20 20 20 20 20 28 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 | *.........(body).........(handle |
| 1ff940 | 72 2d 63 61 73 65 20 28 76 61 6c 75 65 73 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 20 6e 69 | r-case.(values.(progn.,@body).ni |
| 1ff960 | 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 63 29 20 28 76 61 6c 75 65 73 20 | l)...........(error.(c).(values. |
| 1ff980 | 60 28 3a 65 72 72 6f 72 20 2c 28 74 72 69 6d 2d 77 68 69 74 65 73 70 61 63 65 20 28 70 72 69 6e | `(:error.,(trim-whitespace.(prin |
| 1ff9a0 | 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | c-to-string.c)))................ |
| 1ff9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 | ..............c))))))..(defun.tr |
| 1ff9e0 | 69 6d 2d 77 68 69 74 65 73 70 61 63 65 20 28 73 74 72 69 6e 67 29 0a 20 20 28 73 74 72 69 6e 67 | im-whitespace.(string)...(string |
| 1ffa00 | 2d 74 72 69 6d 20 23 28 23 5c 6e 65 77 6c 69 6e 65 20 23 5c 73 70 61 63 65 20 23 5c 74 61 62 29 | -trim.#(#\newline.#\space.#\tab) |
| 1ffa20 | 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d | .string))..(defun.code-location- |
| 1ffa40 | 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a | source-location.(code-location). |
| 1ffa60 | 20 20 22 53 61 66 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 60 63 6f 64 65 2d 6c 6f 63 | .."Safe.wrapper.around.`code-loc |
| 1ffa80 | 61 74 69 6f 6e 2d 66 72 6f 6d 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 27 2e 22 0a 20 20 | ation-from-source-location'."... |
| 1ffaa0 | 28 73 61 66 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 0a 20 20 20 28 73 6f 75 | (safe-definition-finding....(sou |
| 1ffac0 | 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 72 6f 6d 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 | rce-location-from-code-location. |
| 1ffae0 | 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d | code-location)))..(defun.source- |
| 1ffb00 | 6c 6f 63 61 74 69 6f 6e 2d 66 72 6f 6d 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 64 | location-from-code-location.(cod |
| 1ffb20 | 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 6f 75 72 63 65 | e-location)..."Return.the.source |
| 1ffb40 | 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 43 4f 44 45 2d 4c 4f 43 41 54 49 4f 4e 2e 22 0a 20 20 | .location.for.CODE-LOCATION."... |
| 1ffb60 | 28 6c 65 74 20 28 28 64 65 62 75 67 2d 66 75 6e 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 | (let.((debug-fun.(di:code-locati |
| 1ffb80 | 6f 6e 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 | on-debug-function.code-location) |
| 1ffba0 | 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 64 69 3a 3a 62 6f 67 75 73 2d 64 65 62 75 67 2d 66 75 | )).....(when.(di::bogus-debug-fu |
| 1ffbc0 | 6e 63 74 69 6f 6e 2d 70 20 64 65 62 75 67 2d 66 75 6e 29 0a 20 20 20 20 20 20 3b 3b 20 54 68 6f | nction-p.debug-fun).......;;.Tho |
| 1ffbe0 | 73 65 20 6c 6f 75 73 79 20 63 68 65 61 70 73 6b 61 74 65 73 21 20 54 68 65 79 27 76 65 20 70 75 | se.lousy.cheapskates!.They've.pu |
| 1ffc00 | 74 20 69 6e 20 61 20 62 6f 67 75 73 20 64 65 62 75 67 20 73 6f 75 72 63 65 0a 20 20 20 20 20 20 | t.in.a.bogus.debug.source....... |
| 1ffc20 | 3b 3b 20 62 65 63 61 75 73 65 20 74 68 65 20 63 6f 64 65 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 | ;;.because.the.code.was.compiled |
| 1ffc40 | 20 61 74 20 61 20 6c 6f 77 20 64 65 62 75 67 20 73 65 74 74 69 6e 67 2e 0a 20 20 20 20 20 20 28 | .at.a.low.debug.setting........( |
| 1ffc60 | 65 72 72 6f 72 20 22 42 6f 67 75 73 20 64 65 62 75 67 20 66 75 6e 63 74 69 6f 6e 3a 20 7e 41 22 | error."Bogus.debug.function:.~A" |
| 1ffc80 | 20 64 65 62 75 67 2d 66 75 6e 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 65 62 75 67 2d 73 6f | .debug-fun)))...(let*.((debug-so |
| 1ffca0 | 75 72 63 65 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 62 75 67 2d 73 6f 75 | urce.(di:code-location-debug-sou |
| 1ffcc0 | 72 63 65 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 72 | rce.code-location))..........(fr |
| 1ffce0 | 6f 6d 20 28 64 69 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 66 72 6f 6d 20 64 65 62 75 67 2d 73 | om.(di:debug-source-from.debug-s |
| 1ffd00 | 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 64 69 3a 64 65 62 75 67 | ource))..........(name.(di:debug |
| 1ffd20 | 2d 73 6f 75 72 63 65 2d 6e 61 6d 65 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 29 29 0a 20 20 20 | -source-name.debug-source))).... |
| 1ffd40 | 20 28 65 63 61 73 65 20 66 72 6f 6d 0a 20 20 20 20 20 20 28 3a 66 69 6c 65 0a 20 20 20 20 20 20 | .(ecase.from.......(:file....... |
| 1ffd60 | 20 28 6c 6f 63 61 74 69 6f 6e 2d 69 6e 2d 66 69 6c 65 20 6e 61 6d 65 20 63 6f 64 65 2d 6c 6f 63 | .(location-in-file.name.code-loc |
| 1ffd80 | 61 74 69 6f 6e 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 28 3a 73 74 72 | ation.debug-source)).......(:str |
| 1ffda0 | 65 61 6d 0a 20 20 20 20 20 20 20 28 6c 6f 63 61 74 69 6f 6e 2d 69 6e 2d 73 74 72 65 61 6d 20 63 | eam........(location-in-stream.c |
| 1ffdc0 | 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 29 0a 20 20 20 20 | ode-location.debug-source))..... |
| 1ffde0 | 20 20 28 3a 6c 69 73 70 0a 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 | ..(:lisp........;;.The.location. |
| 1ffe00 | 63 6f 6d 65 73 20 66 72 6f 6d 20 61 20 66 6f 72 6d 20 70 61 73 73 65 64 20 74 6f 20 60 63 6f 6d | comes.from.a.form.passed.to.`com |
| 1ffe20 | 70 69 6c 65 27 2e 0a 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 62 65 73 74 20 77 65 20 63 61 6e | pile'.........;;.The.best.we.can |
| 1ffe40 | 20 64 6f 20 69 73 20 72 65 74 75 72 6e 20 74 68 65 20 66 6f 72 6d 20 69 74 73 65 6c 66 20 66 6f | .do.is.return.the.form.itself.fo |
| 1ffe60 | 72 20 70 72 69 6e 74 69 6e 67 2e 0a 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f | r.printing.........(make-locatio |
| 1ffe80 | 6e 0a 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 73 6f 75 72 63 65 2d 66 6f 72 6d 20 28 77 69 | n.........(list.:source-form.(wi |
| 1ffea0 | 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2a 73 74 61 6e 64 61 72 64 2d 6f | th-output-to-string.(*standard-o |
| 1ffec0 | 75 74 70 75 74 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | utput*)......................... |
| 1ffee0 | 20 20 20 20 20 28 64 65 62 75 67 3a 3a 70 72 69 6e 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e | .....(debug::print-code-location |
| 1fff00 | 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -source-form.................... |
| 1fff20 | 20 20 20 20 20 20 20 20 20 20 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 31 30 30 20 74 29 29 | ...........code-location.100.t)) |
| 1fff40 | 29 0a 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 31 29 29 29 29 29 | ).........(list.:position.1))))) |
| 1fff60 | 29 0a 0a 28 64 65 66 75 6e 20 6c 6f 63 61 74 69 6f 6e 2d 69 6e 2d 66 69 6c 65 20 28 66 69 6c 65 | )..(defun.location-in-file.(file |
| 1fff80 | 6e 61 6d 65 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 | name.code-location.debug-source) |
| 1fffa0 | 0a 20 20 22 52 65 73 6f 6c 76 65 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 | ..."Resolve.the.source.location. |
| 1fffc0 | 66 6f 72 20 43 4f 44 45 2d 4c 4f 43 41 54 49 4f 4e 20 69 6e 20 46 49 4c 45 4e 41 4d 45 2e 22 0a | for.CODE-LOCATION.in.FILENAME.". |
| 1fffe0 | 20 20 28 6c 65 74 2a 20 28 28 63 6f 64 65 2d 64 61 74 65 20 28 64 69 3a 64 65 62 75 67 2d 73 6f | ..(let*.((code-date.(di:debug-so |
| 200000 | 75 72 63 65 2d 63 72 65 61 74 65 64 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 29 0a 20 20 20 20 | urce-created.debug-source))..... |
| 200020 | 20 20 20 20 20 28 72 6f 6f 74 2d 6e 75 6d 62 65 72 20 28 64 69 3a 64 65 62 75 67 2d 73 6f 75 72 | .....(root-number.(di:debug-sour |
| 200040 | 63 65 2d 72 6f 6f 74 2d 6e 75 6d 62 65 72 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 29 0a 20 20 | ce-root-number.debug-source))... |
| 200060 | 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 63 6f 64 65 20 28 67 65 74 2d 73 6f 75 72 63 65 2d | .......(source-code.(get-source- |
| 200080 | 63 6f 64 65 20 66 69 6c 65 6e 61 6d 65 20 63 6f 64 65 2d 64 61 74 65 29 29 29 0a 20 20 20 20 28 | code.filename.code-date))).....( |
| 2000a0 | 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 20 73 6f 75 72 63 65 | with-input-from-string.(s.source |
| 2000c0 | 2d 63 6f 64 65 29 0a 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 | -code).......(make-location.(lis |
| 2000e0 | 74 20 3a 66 69 6c 65 20 28 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 | t.:file.(unix-truename.filename) |
| 200100 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f | )......................(list.:po |
| 200120 | 73 69 74 69 6f 6e 20 28 31 2b 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 74 72 65 61 6d | sition.(1+.(code-location-stream |
| 200140 | 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -position....................... |
| 200160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f | ....................code-locatio |
| 200180 | 6e 20 73 20 72 6f 6f 74 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.s.root-number))).............. |
| 2001a0 | 20 20 20 20 20 20 20 20 60 28 3a 73 6e 69 70 70 65 74 20 2c 28 72 65 61 64 2d 73 6e 69 70 70 65 | ........`(:snippet.,(read-snippe |
| 2001c0 | 74 20 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6f 63 61 74 69 6f 6e 2d 69 6e 2d 73 74 | t.s))))))..(defun.location-in-st |
| 2001e0 | 72 65 61 6d 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 64 65 62 75 67 2d 73 6f 75 72 63 65 | ream.(code-location.debug-source |
| 200200 | 29 0a 20 20 22 52 65 73 6f 6c 76 65 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e | )..."Resolve.the.source.location |
| 200220 | 20 66 6f 72 20 61 20 43 4f 44 45 2d 4c 4f 43 41 54 49 4f 4e 20 66 72 6f 6d 20 61 20 73 74 72 65 | .for.a.CODE-LOCATION.from.a.stre |
| 200240 | 61 6d 2e 0a 54 68 69 73 20 6f 6e 6c 79 20 73 75 63 63 65 65 64 73 20 69 66 20 74 68 65 20 63 6f | am..This.only.succeeds.if.the.co |
| 200260 | 64 65 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20 66 72 6f 6d 20 61 6e 20 45 6d 61 63 73 20 62 75 | de.was.compiled.from.an.Emacs.bu |
| 200280 | 66 66 65 72 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 69 | ffer."...(unless.(debug-source-i |
| 2002a0 | 6e 66 6f 2d 66 72 6f 6d 2d 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 70 20 64 65 62 75 67 2d 73 6f | nfo-from-emacs-buffer-p.debug-so |
| 2002c0 | 75 72 63 65 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 54 68 65 20 63 6f 64 65 20 69 73 20 63 6f | urce).....(error."The.code.is.co |
| 2002e0 | 6d 70 69 6c 65 64 20 66 72 6f 6d 20 61 20 6e 6f 6e 2d 53 4c 49 4d 45 20 73 74 72 65 61 6d 2e 22 | mpiled.from.a.non-SLIME.stream." |
| 200300 | 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e 66 6f 20 28 63 3a 3a 64 65 62 75 67 2d 73 6f 75 72 | ))...(let*.((info.(c::debug-sour |
| 200320 | 63 65 2d 69 6e 66 6f 20 64 65 62 75 67 2d 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 | ce-info.debug-source)).......... |
| 200340 | 28 73 74 72 69 6e 67 20 28 67 65 74 66 20 69 6e 66 6f 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 | (string.(getf.info.:emacs-buffer |
| 200360 | 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 6f 73 69 74 69 6f 6e 20 28 63 6f | -string))..........(position.(co |
| 200380 | 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 74 72 69 6e 67 2d 6f 66 66 73 65 74 0a 20 20 20 20 20 20 | de-location-string-offset....... |
| 2003a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 | ..............code-location..... |
| 2003c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 6d | ................string))).....(m |
| 2003e0 | 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 | ake-location......(list.:buffer. |
| 200400 | 28 67 65 74 66 20 69 6e 66 6f 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 | (getf.info.:emacs-buffer))...... |
| 200420 | 28 6c 69 73 74 20 3a 6f 66 66 73 65 74 20 28 67 65 74 66 20 69 6e 66 6f 20 3a 65 6d 61 63 73 2d | (list.:offset.(getf.info.:emacs- |
| 200440 | 62 75 66 66 65 72 2d 6f 66 66 73 65 74 29 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 28 6c | buffer-offset).position)......(l |
| 200460 | 69 73 74 20 3a 73 6e 69 70 70 65 74 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 | ist.:snippet.(with-input-from-st |
| 200480 | 72 69 6e 67 20 28 73 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ring.(s.string)................. |
| 2004a0 | 20 20 20 20 20 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 20 70 6f 73 69 74 69 6f 6e 29 | ......(file-position.s.position) |
| 2004c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 73 6e 69 | .......................(read-sni |
| 2004e0 | 70 70 65 74 20 73 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 46 75 6e 63 74 69 6f 6e 2d 6e 61 6d | ppet.s))))))..;;;;;.Function-nam |
| 200500 | 65 20 6c 6f 63 61 74 69 6f 6e 73 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 64 65 62 75 67 2d 69 6e 66 | e.locations.;;;.(defun.debug-inf |
| 200520 | 6f 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 64 65 62 75 67 2d | o-function-name-location.(debug- |
| 200540 | 69 6e 66 6f 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 | info)..."Return.a.function-name. |
| 200560 | 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 44 45 42 55 47 2d 49 4e 46 4f 2e 0a | source-location.for.DEBUG-INFO.. |
| 200580 | 46 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 61 | Function-name.source-locations.a |
| 2005a0 | 72 65 20 61 20 66 61 6c 6c 62 61 63 6b 20 66 6f 72 20 77 68 65 6e 20 70 72 65 63 69 73 65 0a 70 | re.a.fallback.for.when.precise.p |
| 2005c0 | 6f 73 69 74 69 6f 6e 73 20 61 72 65 6e 27 74 20 61 76 61 69 6c 61 62 6c 65 2e 22 0a 20 20 28 77 | ositions.aren't.available."...(w |
| 2005e0 | 69 74 68 2d 73 74 72 75 63 74 20 28 63 3a 3a 64 65 62 75 67 2d 69 6e 66 6f 2d 20 28 66 6e 61 6d | ith-struct.(c::debug-info-.(fnam |
| 200600 | 65 20 6e 61 6d 65 29 20 73 6f 75 72 63 65 29 20 64 65 62 75 67 2d 69 6e 66 6f 0a 20 20 20 20 28 | e.name).source).debug-info.....( |
| 200620 | 77 69 74 68 2d 73 74 72 75 63 74 20 28 63 3a 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 20 69 6e | with-struct.(c::debug-source-.in |
| 200640 | 66 6f 20 66 72 6f 6d 20 6e 61 6d 65 29 20 28 63 61 72 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 | fo.from.name).(car.source)...... |
| 200660 | 20 28 65 63 61 73 65 20 66 72 6f 6d 0a 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 0a 20 20 20 20 | .(ecase.from.........(:file..... |
| 200680 | 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 | .....(make-location.(list.:file. |
| 2006a0 | 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 20 6e 61 6d 65 29 29 29 0a 20 20 | (namestring.(truename.name)))... |
| 2006c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 75 6e | ......................(list.:fun |
| 2006e0 | 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 74 72 69 6e 67 20 66 6e 61 6d 65 29 29 29 29 0a 20 20 20 | ction-name.(string.fname)))).... |
| 200700 | 20 20 20 20 20 28 3a 73 74 72 65 61 6d 0a 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 | .....(:stream..........(assert.( |
| 200720 | 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 69 6e 66 6f 2d 66 72 6f 6d 2d 65 6d 61 63 73 2d 62 75 66 | debug-source-info-from-emacs-buf |
| 200740 | 66 65 72 2d 70 20 28 63 61 72 20 73 6f 75 72 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d | fer-p.(car.source)))..........(m |
| 200760 | 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 62 75 66 66 65 72 20 28 67 65 74 66 | ake-location.(list.:buffer.(getf |
| 200780 | 20 69 6e 66 6f 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .info.:emacs-buffer))........... |
| 2007a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 | ..............(list.:function-na |
| 2007c0 | 6d 65 20 28 73 74 72 69 6e 67 20 66 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 3a 6c | me.(string.fname)))).........(:l |
| 2007e0 | 69 73 70 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 | isp..........(make-location.(lis |
| 200800 | 74 20 3a 73 6f 75 72 63 65 2d 66 6f 72 6d 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 | t.:source-form.(princ-to-string. |
| 200820 | 28 61 72 65 66 20 6e 61 6d 65 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (aref.name.0)))................. |
| 200840 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 31 29 29 29 29 29 29 29 | ........(list.:position.1))))))) |
| 200860 | 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 69 6e 66 6f 2d 66 72 6f 6d 2d | ..(defun.debug-source-info-from- |
| 200880 | 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 70 20 28 64 65 62 75 67 2d 73 6f 75 72 63 65 29 0a 20 20 | emacs-buffer-p.(debug-source)... |
| 2008a0 | 22 44 6f 65 73 20 74 68 65 20 60 69 6e 66 6f 27 20 73 6c 6f 74 20 6f 66 20 44 45 42 55 47 2d 53 | "Does.the.`info'.slot.of.DEBUG-S |
| 2008c0 | 4f 55 52 43 45 20 63 6f 6e 74 61 69 6e 20 61 6e 20 45 6d 61 63 73 20 62 75 66 66 65 72 20 6c 6f | OURCE.contain.an.Emacs.buffer.lo |
| 2008e0 | 63 61 74 69 6f 6e 3f 0a 54 68 69 73 20 69 73 20 74 72 75 65 20 66 6f 72 20 66 75 6e 63 74 69 6f | cation?.This.is.true.for.functio |
| 200900 | 6e 73 20 74 68 61 74 20 77 65 72 65 20 63 6f 6d 70 69 6c 65 64 20 64 69 72 65 63 74 6c 79 20 66 | ns.that.were.compiled.directly.f |
| 200920 | 72 6f 6d 20 62 75 66 66 65 72 73 2e 22 0a 20 20 28 69 6e 66 6f 2d 66 72 6f 6d 2d 65 6d 61 63 73 | rom.buffers."...(info-from-emacs |
| 200940 | 2d 62 75 66 66 65 72 2d 70 20 28 63 3a 3a 64 65 62 75 67 2d 73 6f 75 72 63 65 2d 69 6e 66 6f 20 | -buffer-p.(c::debug-source-info. |
| 200960 | 64 65 62 75 67 2d 73 6f 75 72 63 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 66 6f 2d 66 72 6f | debug-source)))..(defun.info-fro |
| 200980 | 6d 2d 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 70 20 28 69 6e 66 6f 29 0a 20 20 28 61 6e 64 20 69 | m-emacs-buffer-p.(info)...(and.i |
| 2009a0 | 6e 66 6f 0a 20 20 20 20 20 20 20 28 63 6f 6e 73 70 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 28 | nfo........(consp.info)........( |
| 2009c0 | 65 71 20 3a 65 6d 61 63 73 2d 62 75 66 66 65 72 20 28 63 61 72 20 69 6e 66 6f 29 29 29 29 0a 0a | eq.:emacs-buffer.(car.info)))).. |
| 2009e0 | 0a 3b 3b 3b 3b 3b 20 47 72 6f 76 65 6c 69 6e 67 20 73 6f 75 72 63 65 2d 63 6f 64 65 20 66 6f 72 | .;;;;;.Groveling.source-code.for |
| 200a00 | 20 70 6f 73 69 74 69 6f 6e 73 0a 0a 28 64 65 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e | .positions..(defun.code-location |
| 200a20 | 2d 73 74 72 65 61 6d 2d 70 6f 73 69 74 69 6f 6e 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 | -stream-position.(code-location. |
| 200a40 | 73 74 72 65 61 6d 20 72 6f 6f 74 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 62 79 74 65 20 | stream.root)..."Return.the.byte. |
| 200a60 | 6f 66 66 73 65 74 20 6f 66 20 43 4f 44 45 2d 4c 4f 43 41 54 49 4f 4e 20 69 6e 20 53 54 52 45 41 | offset.of.CODE-LOCATION.in.STREA |
| 200a80 | 4d 2e 20 20 45 78 74 72 61 63 74 20 74 68 65 0a 74 6f 70 6c 65 76 65 6c 2d 66 6f 72 6d 2d 6e 75 | M...Extract.the.toplevel-form-nu |
| 200aa0 | 6d 62 65 72 20 61 6e 64 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 66 72 6f 6d 20 43 4f 44 45 2d 4c | mber.and.form-number.from.CODE-L |
| 200ac0 | 4f 43 41 54 49 4f 4e 20 61 6e 64 20 75 73 65 20 74 68 61 74 0a 74 6f 20 66 69 6e 64 20 74 68 65 | OCATION.and.use.that.to.find.the |
| 200ae0 | 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 66 | .position.of.the.corresponding.f |
| 200b00 | 6f 72 6d 2e 0a 0a 46 69 6e 69 73 68 20 77 69 74 68 20 53 54 52 45 41 4d 20 70 6f 73 69 74 69 6f | orm...Finish.with.STREAM.positio |
| 200b20 | 6e 65 64 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 63 6f 64 65 20 6c 6f 63 | ned.at.the.start.of.the.code.loc |
| 200b40 | 61 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6c 6f 63 61 74 69 6f 6e 20 28 64 65 62 75 | ation."...(let*.((location.(debu |
| 200b60 | 67 3a 3a 6d 61 79 62 65 2d 62 6c 6f 63 6b 2d 73 74 61 72 74 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f | g::maybe-block-start-location.co |
| 200b80 | 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 6c 66 2d 6f 66 66 73 | de-location))..........(tlf-offs |
| 200ba0 | 65 74 20 28 2d 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6f 70 2d 6c 65 76 65 | et.(-.(di:code-location-top-leve |
| 200bc0 | 6c 2d 66 6f 72 6d 2d 6f 66 66 73 65 74 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | l-form-offset.location)......... |
| 200be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 | ................root)).......... |
| 200c00 | 28 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 | (form-number.(di:code-location-f |
| 200c20 | 6f 72 6d 2d 6e 75 6d 62 65 72 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 6c 65 74 20 | orm-number.location))).....(let. |
| 200c40 | 28 28 70 6f 73 20 28 66 6f 72 6d 2d 6e 75 6d 62 65 72 2d 73 74 72 65 61 6d 2d 70 6f 73 69 74 69 | ((pos.(form-number-stream-positi |
| 200c60 | 6f 6e 20 74 6c 66 2d 6f 66 66 73 65 74 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 73 74 72 65 61 6d | on.tlf-offset.form-number.stream |
| 200c80 | 29 29 29 0a 20 20 20 20 20 20 28 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 73 74 72 65 61 6d 20 | ))).......(file-position.stream. |
| 200ca0 | 70 6f 73 29 0a 20 20 20 20 20 20 70 6f 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 6d 2d 6e | pos).......pos)))..(defun.form-n |
| 200cc0 | 75 6d 62 65 72 2d 73 74 72 65 61 6d 2d 70 6f 73 69 74 69 6f 6e 20 28 74 6c 66 2d 6e 75 6d 62 65 | umber-stream-position.(tlf-numbe |
| 200ce0 | 72 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 73 74 72 65 61 6d 29 0a 20 20 22 52 65 74 75 72 6e 20 | r.form-number.stream)..."Return. |
| 200d00 | 74 68 65 20 73 74 61 72 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 70 6f 73 69 74 69 6f 6e 20 | the.starting.character.position. |
| 200d20 | 6f 66 20 61 20 66 6f 72 6d 20 69 6e 20 53 54 52 45 41 4d 2e 0a 54 4c 46 2d 4e 55 4d 42 45 52 20 | of.a.form.in.STREAM..TLF-NUMBER. |
| 200d40 | 69 73 20 74 68 65 20 74 6f 70 2d 6c 65 76 65 6c 2d 66 6f 72 6d 20 6e 75 6d 62 65 72 2e 0a 46 4f | is.the.top-level-form.number..FO |
| 200d60 | 52 4d 2d 4e 55 4d 42 45 52 20 69 73 20 61 6e 20 69 6e 64 65 78 20 69 6e 74 6f 20 61 20 73 6f 75 | RM-NUMBER.is.an.index.into.a.sou |
| 200d80 | 72 63 65 2d 70 61 74 68 20 74 61 62 6c 65 20 66 6f 72 20 74 68 65 20 54 4c 46 2e 22 0a 20 20 28 | rce-path.table.for.the.TLF."...( |
| 200da0 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 74 6c 66 20 70 6f 73 69 74 69 6f | multiple-value-bind.(tlf.positio |
| 200dc0 | 6e 2d 6d 61 70 29 20 28 72 65 61 64 2d 73 6f 75 72 63 65 2d 66 6f 72 6d 20 74 6c 66 2d 6e 75 6d | n-map).(read-source-form.tlf-num |
| 200de0 | 62 65 72 20 73 74 72 65 61 6d 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 74 68 2d 74 61 62 | ber.stream).....(let*.((path-tab |
| 200e00 | 6c 65 20 28 64 69 3a 66 6f 72 6d 2d 6e 75 6d 62 65 72 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 | le.(di:form-number-translations. |
| 200e20 | 74 6c 66 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 70 61 74 68 0a | tlf.0))............(source-path. |
| 200e40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3c 3d 20 28 6c 65 6e 67 74 68 20 70 61 74 68 | ............(if.(<=.(length.path |
| 200e60 | 2d 74 61 62 6c 65 29 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 29 20 3b 20 73 6f 75 72 63 65 20 6f 75 | -table).form-number).;.source.ou |
| 200e80 | 74 20 6f 66 20 73 79 6e 63 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 | t.of.sync?.................(list |
| 200ea0 | 20 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 68 6f 75 6c 64 20 70 72 6f 62 | .0)................;.should.prob |
| 200ec0 | 61 62 6c 79 20 73 69 67 6e 61 6c 20 61 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | ably.signal.a.condition......... |
| 200ee0 | 20 20 20 20 20 20 20 20 28 72 65 76 65 72 73 65 20 28 63 64 72 20 28 61 72 65 66 20 70 61 74 68 | ........(reverse.(cdr.(aref.path |
| 200f00 | 2d 74 61 62 6c 65 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 | -table.form-number)))))).......( |
| 200f20 | 73 6f 75 72 63 65 2d 70 61 74 68 2d 73 6f 75 72 63 65 2d 70 6f 73 69 74 69 6f 6e 20 73 6f 75 72 | source-path-source-position.sour |
| 200f40 | 63 65 2d 70 61 74 68 20 74 6c 66 20 70 6f 73 69 74 69 6f 6e 2d 6d 61 70 29 29 29 29 0a 0a 28 64 | ce-path.tlf.position-map))))..(d |
| 200f60 | 65 66 75 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 73 74 72 69 6e 67 2d 6f 66 66 73 65 74 | efun.code-location-string-offset |
| 200f80 | 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 74 72 69 6e 67 29 0a 20 20 22 52 65 74 75 72 | .(code-location.string)..."Retur |
| 200fa0 | 6e 20 74 68 65 20 62 79 74 65 20 6f 66 66 73 65 74 20 6f 66 20 43 4f 44 45 2d 4c 4f 43 41 54 49 | n.the.byte.offset.of.CODE-LOCATI |
| 200fc0 | 4f 4e 20 69 6e 20 53 54 52 49 4e 47 2e 0a 53 65 65 20 43 4f 44 45 2d 4c 4f 43 41 54 49 4f 4e 2d | ON.in.STRING..See.CODE-LOCATION- |
| 200fe0 | 53 54 52 45 41 4d 2d 50 4f 53 49 54 49 4f 4e 2e 22 0a 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d | STREAM-POSITION."...(with-input- |
| 201000 | 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 63 6f 64 65 | from-string.(s.string).....(code |
| 201020 | 2d 6c 6f 63 61 74 69 6f 6e 2d 73 74 72 65 61 6d 2d 70 6f 73 69 74 69 6f 6e 20 63 6f 64 65 2d 6c | -location-stream-position.code-l |
| 201040 | 6f 63 61 74 69 6f 6e 20 73 20 30 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 46 69 6e 64 69 6e 67 20 64 | ocation.s.0)))....;;;;.Finding.d |
| 201060 | 65 66 69 6e 69 74 69 6f 6e 73 0a 0a 3b 3b 3b 20 54 68 65 72 65 20 61 72 65 20 61 20 67 72 65 61 | efinitions..;;;.There.are.a.grea |
| 201080 | 74 20 6d 61 6e 79 20 64 69 66 66 65 72 65 6e 74 20 74 79 70 65 73 20 6f 66 20 64 65 66 69 6e 69 | t.many.different.types.of.defini |
| 2010a0 | 74 69 6f 6e 20 66 6f 72 20 75 73 20 74 6f 0a 3b 3b 3b 20 66 69 6e 64 2e 20 57 65 20 73 65 61 72 | tion.for.us.to.;;;.find..We.sear |
| 2010c0 | 63 68 20 66 6f 72 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 6f 66 20 65 76 65 72 79 20 6b 69 6e 64 | ch.for.definitions.of.every.kind |
| 2010e0 | 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 6d 20 69 6e 20 61 0a 3b 3b 3b 20 6c 69 73 74 2e 0a | .and.return.them.in.a.;;;.list.. |
| 201100 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 | .(defimplementation.find-definit |
| 201120 | 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 61 70 70 65 6e 64 20 28 66 75 6e 63 74 69 6f 6e 2d | ions.(name)...(append.(function- |
| 201140 | 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | definitions.name)...........(set |
| 201160 | 66 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 76 | f-definitions.name)...........(v |
| 201180 | 61 72 69 61 62 6c 65 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 | ariable-definitions.name)....... |
| 2011a0 | 20 20 20 20 28 63 6c 61 73 73 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 | ....(class-definitions.name).... |
| 2011c0 | 20 20 20 20 20 20 20 28 74 79 70 65 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 | .......(type-definitions.name).. |
| 2011e0 | 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 64 65 66 69 6e 69 74 | .........(compiler-macro-definit |
| 201200 | 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 74 72 61 | ions.name)...........(source-tra |
| 201220 | 6e 73 66 6f 72 6d 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | nsform-definitions.name)........ |
| 201240 | 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 | ...(function-info-definitions.na |
| 201260 | 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 72 31 2d 74 72 61 6e 73 6c 61 74 6f 72 2d 64 65 | me)...........(ir1-translator-de |
| 201280 | 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 65 6d 70 6c | finitions.name)...........(templ |
| 2012a0 | 61 74 65 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ate-definitions.name)........... |
| 2012c0 | 28 70 72 69 6d 69 74 69 76 65 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 | (primitive-definitions.name).... |
| 2012e0 | 20 20 20 20 20 20 20 28 76 6d 2d 73 75 70 70 6f 72 74 2d 72 6f 75 74 69 6e 65 2d 64 65 66 69 6e | .......(vm-support-routine-defin |
| 201300 | 69 74 69 6f 6e 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 29 29 0a 0a 3b 3b 3b 3b 3b | itions.name)...........))..;;;;; |
| 201320 | 20 46 75 6e 63 74 69 6f 6e 73 2c 20 6d 61 63 72 6f 73 2c 20 67 65 6e 65 72 69 63 20 66 75 6e 63 | .Functions,.macros,.generic.func |
| 201340 | 74 69 6f 6e 73 2c 20 6d 65 74 68 6f 64 73 0a 3b 3b 3b 0a 3b 3b 3b 20 57 65 20 6d 61 6b 65 20 65 | tions,.methods.;;;.;;;.We.make.e |
| 201360 | 78 74 65 6e 73 69 76 65 20 75 73 65 20 6f 66 20 74 68 65 20 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 | xtensive.use.of.the.compile-time |
| 201380 | 20 64 65 62 75 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 68 61 74 0a 3b 3b 3b 20 43 4d 55 43 | .debug.information.that.;;;.CMUC |
| 2013a0 | 4c 20 72 65 63 6f 72 64 73 2c 20 69 6e 20 70 61 72 74 69 63 75 6c 61 72 20 22 64 65 62 75 67 20 | L.records,.in.particular."debug. |
| 2013c0 | 66 75 6e 63 74 69 6f 6e 73 22 20 61 6e 64 20 22 63 6f 64 65 0a 3b 3b 3b 20 6c 6f 63 61 74 69 6f | functions".and."code.;;;.locatio |
| 2013e0 | 6e 73 2e 22 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 22 44 65 62 75 67 67 65 72 20 50 72 6f 67 | ns.".Refer.to.the."Debugger.Prog |
| 201400 | 72 61 6d 6d 65 72 27 73 20 49 6e 74 65 72 66 61 63 65 22 20 73 65 63 74 69 6f 6e 0a 3b 3b 3b 20 | rammer's.Interface".section.;;;. |
| 201420 | 6f 66 20 74 68 65 20 43 4d 55 43 4c 20 6d 61 6e 75 61 6c 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 | of.the.CMUCL.manual.for.more.det |
| 201440 | 61 69 6c 73 2e 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 64 65 66 69 6e 69 74 69 6f | ails...(defun.function-definitio |
| 201460 | 6e 73 20 28 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 | ns.(name)..."Return.definitions. |
| 201480 | 66 6f 72 20 4e 41 4d 45 20 69 6e 20 74 68 65 20 5c 22 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 | for.NAME.in.the.\"function.names |
| 2014a0 | 70 61 63 65 5c 22 2c 20 69 2e 65 2e 2c 0a 72 65 67 75 6c 61 72 20 66 75 6e 63 74 69 6f 6e 73 2c | pace\",.i.e.,.regular.functions, |
| 2014c0 | 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 73 2c 20 6d 65 74 68 6f 64 73 20 61 6e 64 20 | .generic.functions,.methods.and. |
| 2014e0 | 6d 61 63 72 6f 73 2e 0a 4e 41 4d 45 20 63 61 6e 20 61 6e 79 20 76 61 6c 69 64 20 66 75 6e 63 74 | macros..NAME.can.any.valid.funct |
| 201500 | 69 6f 6e 20 6e 61 6d 65 20 28 65 2e 67 2c 20 28 73 65 74 66 20 63 61 72 29 29 2e 22 0a 20 20 28 | ion.name.(e.g,.(setf.car))."...( |
| 201520 | 6c 65 74 20 28 28 6d 61 63 72 6f 3f 20 20 20 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 | let.((macro?....(and.(symbolp.na |
| 201540 | 6d 65 29 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 | me).(macro-function.name)))..... |
| 201560 | 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 3f 20 28 61 6e 64 20 28 65 78 74 3a 76 61 6c 69 64 2d 66 | ....(function?.(and.(ext:valid-f |
| 201580 | 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | unction-name-p.name)............ |
| 2015a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 69 6e 66 6f 20 3a 66 75 6e 63 74 69 6f 6e | .............(ext:info.:function |
| 2015c0 | 20 3a 64 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:definition.name).............. |
| 2015e0 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 20 28 66 | ...........(if.(symbolp.name).(f |
| 201600 | 62 6f 75 6e 64 70 20 6e 61 6d 65 29 20 74 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 6d 61 | boundp.name).t)))).....(cond.(ma |
| 201620 | 63 72 6f 3f 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 60 28 28 64 65 66 6d 61 63 72 | cro?............(list.`((defmacr |
| 201640 | 6f 20 2c 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 66 75 | o.,name)....................,(fu |
| 201660 | 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 | nction-location.(macro-function. |
| 201680 | 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 3f 0a 20 | name)))))...........(function?.. |
| 2016a0 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 75 6e 63 74 69 6f 6e 20 28 66 64 65 66 69 | ..........(let.((function.(fdefi |
| 2016c0 | 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | nition.name)))..............(if. |
| 2016e0 | 28 67 65 6e 65 72 69 63 70 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (genericp.function)............. |
| 201700 | 20 20 20 20 20 28 67 66 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 61 6d 65 20 66 75 6e 63 74 69 | .....(gf-definitions.name.functi |
| 201720 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 | on)..................(list.(list |
| 201740 | 20 60 28 66 75 6e 63 74 69 6f 6e 20 2c 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .`(function.,name).............. |
| 201760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 | ................(function-locati |
| 201780 | 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 3b 20 4f 72 64 | on.function)))))))))..;;;;;;.Ord |
| 2017a0 | 69 6e 61 72 79 20 28 6e 6f 6e 2d 67 65 6e 65 72 69 63 2f 6d 61 63 72 6f 2f 73 70 65 63 69 61 6c | inary.(non-generic/macro/special |
| 2017c0 | 29 20 66 75 6e 63 74 69 6f 6e 73 0a 3b 3b 3b 0a 3b 3b 3b 20 46 69 72 73 74 20 77 65 20 74 65 73 | ).functions.;;;.;;;.First.we.tes |
| 2017e0 | 74 20 69 66 20 46 55 4e 43 54 49 4f 4e 20 69 73 20 61 20 63 6c 6f 73 75 72 65 20 63 72 65 61 74 | t.if.FUNCTION.is.a.closure.creat |
| 201800 | 65 64 20 62 79 20 64 65 66 73 74 72 75 63 74 2c 20 61 6e 64 0a 3b 3b 3b 20 69 66 20 73 6f 20 65 | ed.by.defstruct,.and.;;;.if.so.e |
| 201820 | 78 74 72 61 63 74 20 74 68 65 20 64 65 66 73 74 72 75 63 74 2d 64 65 73 63 72 69 70 74 69 6f 6e | xtract.the.defstruct-description |
| 201840 | 20 28 60 64 64 27 29 20 66 72 6f 6d 20 74 68 65 20 63 6c 6f 73 75 72 65 0a 3b 3b 3b 20 61 6e 64 | .(`dd').from.the.closure.;;;.and |
| 201860 | 20 66 69 6e 64 20 74 68 65 20 63 6f 6e 73 74 72 75 63 74 6f 72 20 66 6f 72 20 74 68 65 20 73 74 | .find.the.constructor.for.the.st |
| 201880 | 72 75 63 74 2e 20 20 44 65 66 73 74 72 75 63 74 20 63 72 65 61 74 65 73 20 61 0a 3b 3b 3b 20 64 | ruct...Defstruct.creates.a.;;;.d |
| 2018a0 | 65 66 75 6e 20 66 6f 72 20 74 68 65 20 64 65 66 61 75 6c 74 20 63 6f 6e 73 74 72 75 63 74 6f 72 | efun.for.the.default.constructor |
| 2018c0 | 20 61 6e 64 20 77 65 20 75 73 65 20 74 68 61 74 20 61 73 20 61 6e 0a 3b 3b 3b 20 61 70 70 72 6f | .and.we.use.that.as.an.;;;.appro |
| 2018e0 | 78 69 6d 61 74 69 6f 6e 20 74 6f 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 | ximation.to.the.source.location. |
| 201900 | 6f 66 20 74 68 65 20 64 65 66 73 74 72 75 63 74 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 46 6f 72 20 61 6e | of.the.defstruct..;;;.;;;.For.an |
| 201920 | 20 6f 72 64 69 6e 61 72 79 20 66 75 6e 63 74 69 6f 6e 20 77 65 20 72 65 74 75 72 6e 20 74 68 65 | .ordinary.function.we.return.the |
| 201940 | 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 0a 3b 3b 3b 20 66 69 72 73 | .source.location.of.the.;;;.firs |
| 201960 | 74 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 77 65 20 66 69 6e 64 2e 0a 3b 3b 3b 0a 28 64 65 | t.code-location.we.find..;;;.(de |
| 201980 | 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 29 | fun.function-location.(function) |
| 2019a0 | 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 66 | ..."Return.the.source.location.f |
| 2019c0 | 6f 72 20 46 55 4e 43 54 49 4f 4e 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 73 74 72 75 63 74 2d 63 | or.FUNCTION."...(cond.((struct-c |
| 2019e0 | 6c 6f 73 75 72 65 2d 70 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 72 | losure-p.function)..........(str |
| 201a00 | 75 63 74 2d 63 6c 6f 73 75 72 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a | uct-closure-location.function)). |
| 201a20 | 20 20 20 20 20 20 20 20 28 28 63 3a 3a 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 6f 72 2d 63 6c | ........((c::byte-function-or-cl |
| 201a40 | 6f 73 75 72 65 2d 70 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 62 79 74 65 | osure-p.function)..........(byte |
| 201a60 | 2d 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 | -function-location.function))... |
| 201a80 | 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 | ......(t..........(compiled-func |
| 201aa0 | 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 | tion-location.function))))..(def |
| 201ac0 | 75 6e 20 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 | un.compiled-function-location.(f |
| 201ae0 | 75 6e 63 74 69 6f 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 | unction)..."Return.the.location. |
| 201b00 | 6f 66 20 61 20 72 65 67 75 6c 61 72 20 63 6f 6d 70 69 6c 65 64 20 66 75 6e 63 74 69 6f 6e 2e 22 | of.a.regular.compiled.function." |
| 201b20 | 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 63 6f 64 65 2d 6c 6f | ...(multiple-value-bind.(code-lo |
| 201b40 | 63 61 74 69 6f 6e 20 65 72 72 6f 72 29 0a 20 20 20 20 20 20 28 73 61 66 65 2d 64 65 66 69 6e 69 | cation.error).......(safe-defini |
| 201b60 | 74 69 6f 6e 2d 66 69 6e 64 69 6e 67 20 28 66 75 6e 63 74 69 6f 6e 2d 66 69 72 73 74 2d 63 6f 64 | tion-finding.(function-first-cod |
| 201b80 | 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | e-location.function)).....(cond. |
| 201ba0 | 28 65 72 72 6f 72 20 28 6c 69 73 74 20 3a 65 72 72 6f 72 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 | (error.(list.:error.(princ-to-st |
| 201bc0 | 72 69 6e 67 20 65 72 72 6f 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 63 6f 64 65 | ring.error)))...........(t.(code |
| 201be0 | 2d 6c 6f 63 61 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2d 6c | -location-source-location.code-l |
| 201c00 | 6f 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 66 69 | ocation)))))..(defun.function-fi |
| 201c20 | 72 73 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 | rst-code-location.(function)..." |
| 201c40 | 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 77 | Return.the.first.code-location.w |
| 201c60 | 65 20 63 61 6e 20 66 69 6e 64 20 66 6f 72 20 46 55 4e 43 54 49 4f 4e 2e 22 0a 20 20 28 61 6e 64 | e.can.find.for.FUNCTION."...(and |
| 201c80 | 20 28 66 75 6e 63 74 69 6f 6e 2d 68 61 73 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 | .(function-has-debug-function-p. |
| 201ca0 | 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 64 69 3a 64 65 62 75 67 2d 66 75 6e 63 74 | function)........(di:debug-funct |
| 201cc0 | 69 6f 6e 2d 73 74 61 72 74 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 64 69 3a 66 | ion-start-location.........(di:f |
| 201ce0 | 75 6e 63 74 69 6f 6e 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 | unction-debug-function.function) |
| 201d00 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 68 61 73 2d 64 65 62 75 67 2d 66 | )))..(defun.function-has-debug-f |
| 201d20 | 75 6e 63 74 69 6f 6e 2d 70 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 64 69 3a 66 75 6e 63 74 | unction-p.(function)...(di:funct |
| 201d40 | 69 6f 6e 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 28 | ion-debug-function.function))..( |
| 201d60 | 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 63 6f 64 65 2d 6f 62 6a 65 63 74 3d 20 28 63 6c 6f | defun.function-code-object=.(clo |
| 201d80 | 73 75 72 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 61 6e 64 20 28 65 71 20 28 76 6d 3a 3a 66 | sure.function)...(and.(eq.(vm::f |
| 201da0 | 69 6e 64 2d 63 6f 64 65 2d 6f 62 6a 65 63 74 20 63 6c 6f 73 75 72 65 29 0a 20 20 20 20 20 20 20 | ind-code-object.closure)........ |
| 201dc0 | 20 20 20 20 28 76 6d 3a 3a 66 69 6e 64 2d 63 6f 64 65 2d 6f 62 6a 65 63 74 20 66 75 6e 63 74 69 | ....(vm::find-code-object.functi |
| 201de0 | 6f 6e 29 29 0a 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 63 6c 6f 73 75 72 65 20 66 75 6e | on))........(not.(eq.closure.fun |
| 201e00 | 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d | ction))))..(defun.byte-function- |
| 201e20 | 6c 6f 63 61 74 69 6f 6e 20 28 66 75 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 | location.(fun)..."Return.the.loc |
| 201e40 | 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 64 20 66 75 6e 63 74 | ation.of.the.byte-compiled.funct |
| 201e60 | 69 6f 6e 20 46 55 4e 2e 22 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 66 75 6e 0a 20 20 20 20 28 | ion.FUN."...(etypecase.fun.....( |
| 201e80 | 28 6f 72 20 63 3a 3a 68 61 69 72 79 2d 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 20 63 3a 3a 73 69 | (or.c::hairy-byte-function.c::si |
| 201ea0 | 6d 70 6c 65 2d 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 | mple-byte-function)......(let*.( |
| 201ec0 | 28 64 69 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 28 63 3a | (di.(kernel:%code-debug-info.(c: |
| 201ee0 | 3a 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 63 6f 6d 70 6f 6e 65 6e 74 20 66 75 6e 29 29 29 29 | :byte-function-component.fun)))) |
| 201f00 | 0a 20 20 20 20 20 20 20 28 69 66 20 64 69 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 | ........(if.di............(debug |
| 201f20 | 2d 69 6e 66 6f 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 6c 6f 63 61 74 69 6f 6e 20 64 69 29 | -info-function-name-location.di) |
| 201f40 | 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 | ............`(:error............ |
| 201f60 | 20 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 42 79 74 65 2d 66 75 6e 63 74 69 6f 6e 20 77 69 | ..,(format.nil."Byte-function.wi |
| 201f80 | 74 68 6f 75 74 20 64 65 62 75 67 2d 69 6e 66 6f 3a 20 7e 61 22 20 66 75 6e 29 29 29 29 29 0a 20 | thout.debug-info:.~a".fun))))).. |
| 201fa0 | 20 20 20 28 63 3a 3a 62 79 74 65 2d 63 6c 6f 73 75 72 65 0a 20 20 20 20 20 28 62 79 74 65 2d 66 | ...(c::byte-closure......(byte-f |
| 201fc0 | 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 3a 3a 62 79 74 65 2d 63 6c 6f 73 75 72 | unction-location.(c::byte-closur |
| 201fe0 | 65 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 29 29 29 29 29 0a 0a 3b 3b 3b 20 48 65 72 65 20 77 65 | e-function.fun)))))..;;;.Here.we |
| 202000 | 20 64 65 61 6c 20 77 69 74 68 20 73 74 72 75 63 74 75 72 65 20 61 63 63 65 73 73 6f 72 73 2e 20 | .deal.with.structure.accessors.. |
| 202020 | 4e 6f 74 65 20 74 68 61 74 20 60 64 64 27 20 69 73 20 61 0a 3b 3b 3b 20 22 64 65 66 73 74 72 75 | Note.that.`dd'.is.a.;;;."defstru |
| 202040 | 63 74 20 64 65 73 63 72 69 70 74 6f 72 22 20 73 74 72 75 63 74 75 72 65 20 69 6e 20 43 4d 55 43 | ct.descriptor".structure.in.CMUC |
| 202060 | 4c 2e 20 41 20 60 64 64 27 20 64 65 73 63 72 69 62 65 73 20 61 0a 3b 3b 3b 20 60 64 65 66 73 74 | L..A.`dd'.describes.a.;;;.`defst |
| 202080 | 72 75 63 74 27 27 64 20 73 74 72 75 63 74 75 72 65 2e 0a 0a 28 64 65 66 75 6e 20 73 74 72 75 63 | ruct''d.structure...(defun.struc |
| 2020a0 | 74 2d 63 6c 6f 73 75 72 65 2d 70 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 49 73 20 46 55 4e | t-closure-p.(function)..."Is.FUN |
| 2020c0 | 43 54 49 4f 4e 20 61 20 63 6c 6f 73 75 72 65 20 63 72 65 61 74 65 64 20 62 79 20 64 65 66 73 74 | CTION.a.closure.created.by.defst |
| 2020e0 | 72 75 63 74 3f 22 0a 20 20 28 6f 72 20 28 66 75 6e 63 74 69 6f 6e 2d 63 6f 64 65 2d 6f 62 6a 65 | ruct?"...(or.(function-code-obje |
| 202100 | 63 74 3d 20 66 75 6e 63 74 69 6f 6e 20 23 27 6b 65 72 6e 65 6c 3a 3a 73 74 72 75 63 74 75 72 65 | ct=.function.#'kernel::structure |
| 202120 | 2d 73 6c 6f 74 2d 61 63 63 65 73 73 6f 72 29 0a 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d | -slot-accessor).......(function- |
| 202140 | 63 6f 64 65 2d 6f 62 6a 65 63 74 3d 20 66 75 6e 63 74 69 6f 6e 20 23 27 6b 65 72 6e 65 6c 3a 3a | code-object=.function.#'kernel:: |
| 202160 | 73 74 72 75 63 74 75 72 65 2d 73 6c 6f 74 2d 73 65 74 74 65 72 29 0a 20 20 20 20 20 20 28 66 75 | structure-slot-setter).......(fu |
| 202180 | 6e 63 74 69 6f 6e 2d 63 6f 64 65 2d 6f 62 6a 65 63 74 3d 20 66 75 6e 63 74 69 6f 6e 20 23 27 6b | nction-code-object=.function.#'k |
| 2021a0 | 65 72 6e 65 6c 3a 3a 25 64 65 66 73 74 72 75 63 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 72 | ernel::%defstruct)))..(defun.str |
| 2021c0 | 75 63 74 2d 63 6c 6f 73 75 72 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 29 0a | uct-closure-location.(function). |
| 2021e0 | 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 74 | .."Return.the.location.of.the.st |
| 202200 | 72 75 63 74 75 72 65 20 74 68 61 74 20 46 55 4e 43 54 49 4f 4e 20 62 65 6c 6f 6e 67 73 20 74 6f | ructure.that.FUNCTION.belongs.to |
| 202220 | 2e 22 0a 20 20 28 61 73 73 65 72 74 20 28 73 74 72 75 63 74 2d 63 6c 6f 73 75 72 65 2d 70 20 66 | ."...(assert.(struct-closure-p.f |
| 202240 | 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 73 61 66 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 69 6e | unction))...(safe-definition-fin |
| 202260 | 64 69 6e 67 0a 20 20 20 20 28 64 64 2d 6c 6f 63 61 74 69 6f 6e 20 28 73 74 72 75 63 74 2d 63 6c | ding.....(dd-location.(struct-cl |
| 202280 | 6f 73 75 72 65 2d 64 64 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 | osure-dd.function))))..(defun.st |
| 2022a0 | 72 75 63 74 2d 63 6c 6f 73 75 72 65 2d 64 64 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 52 65 | ruct-closure-dd.(function)..."Re |
| 2022c0 | 74 75 72 6e 20 74 68 65 20 64 65 66 73 74 72 75 63 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 64 | turn.the.defstruct-definition.(d |
| 2022e0 | 64 29 20 6f 66 20 46 55 4e 43 54 49 4f 4e 2e 22 0a 20 20 28 61 73 73 65 72 74 20 28 3d 20 28 6b | d).of.FUNCTION."...(assert.(=.(k |
| 202300 | 65 72 6e 65 6c 3a 67 65 74 2d 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 29 20 76 6d 3a 63 6c 6f 73 | ernel:get-type.function).vm:clos |
| 202320 | 75 72 65 2d 68 65 61 64 65 72 2d 74 79 70 65 29 29 0a 20 20 28 66 6c 65 74 20 28 28 66 69 6e 64 | ure-header-type))...(flet.((find |
| 202340 | 2d 6c 61 79 6f 75 74 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 | -layout.(function)............(s |
| 202360 | 79 73 3a 66 69 6e 64 2d 69 66 2d 69 6e 2d 63 6c 6f 73 75 72 65 0a 20 20 20 20 20 20 20 20 20 20 | ys:find-if-in-closure........... |
| 202380 | 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | ..(lambda.(x)...............(let |
| 2023a0 | 20 28 28 76 61 6c 75 65 20 28 69 66 20 28 64 69 3a 3a 69 6e 64 69 72 65 63 74 2d 76 61 6c 75 65 | .((value.(if.(di::indirect-value |
| 2023c0 | 2d 63 65 6c 6c 2d 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -cell-p.x)...................... |
| 2023e0 | 20 20 20 20 20 20 20 20 20 20 28 63 3a 76 61 6c 75 65 2d 63 65 6c 6c 2d 72 65 66 20 78 29 0a 20 | ..........(c:value-cell-ref.x).. |
| 202400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 29 | ..............................x) |
| 202420 | 29 29 0a 09 09 28 77 68 65 6e 20 28 6b 65 72 6e 65 6c 3a 3a 6c 61 79 6f 75 74 2d 70 20 76 61 6c | ))...(when.(kernel::layout-p.val |
| 202440 | 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 | ue)...................(return-fr |
| 202460 | 6f 6d 20 66 69 6e 64 2d 6c 61 79 6f 75 74 20 76 61 6c 75 65 29 29 29 29 0a 20 20 20 20 20 20 20 | om.find-layout.value))))........ |
| 202480 | 20 20 20 20 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 6b 65 72 6e 65 6c 3a 6c 61 79 | .....function))).....(kernel:lay |
| 2024a0 | 6f 75 74 2d 69 6e 66 6f 20 28 66 69 6e 64 2d 6c 61 79 6f 75 74 20 66 75 6e 63 74 69 6f 6e 29 29 | out-info.(find-layout.function)) |
| 2024c0 | 29 29 0a 0a 28 64 65 66 75 6e 20 64 64 2d 6c 6f 63 61 74 69 6f 6e 20 28 64 64 29 0a 20 20 22 52 | ))..(defun.dd-location.(dd)..."R |
| 2024e0 | 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 61 20 60 64 65 66 73 74 72 75 | eturn.the.location.of.a.`defstru |
| 202500 | 63 74 27 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 74 6f 72 20 28 73 74 72 75 63 74 2d 63 6f 6e 73 | ct'."...(let.((ctor.(struct-cons |
| 202520 | 74 72 75 63 74 6f 72 20 64 64 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 63 74 6f 72 0a 20 20 | tructor.dd))).....(cond.(ctor... |
| 202540 | 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 65 | .........(function-location.(coe |
| 202560 | 72 63 65 20 63 74 6f 72 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | rce.ctor.'function)))........... |
| 202580 | 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 6b 65 72 6e 65 | (t............(let.((name.(kerne |
| 2025a0 | 6c 3a 64 64 2d 6e 61 6d 65 20 64 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 | l:dd-name.dd)))..............(mu |
| 2025c0 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6c 6f 63 61 74 69 6f 6e 20 66 6f 75 6e | ltiple-value-bind.(location.foun |
| 2025e0 | 64 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 69 6e 66 6f 20 3a | dp)..................(ext:info.: |
| 202600 | 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 3a 64 65 66 76 61 72 20 6e 61 6d 65 29 0a 20 20 | source-location.:defvar.name)... |
| 202620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 66 6f 75 6e 64 70 0a 20 20 20 20 20 | .............(cond.(foundp...... |
| 202640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 6f 6c 76 65 2d 73 6f 75 72 63 65 | .................(resolve-source |
| 202660 | 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -location.location))............ |
| 202680 | 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(t.................... |
| 2026a0 | 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 20 64 65 66 73 74 | ...(error."No.location.for.defst |
| 2026c0 | 72 75 63 74 3a 20 7e 53 22 20 6e 61 6d 65 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ruct:.~S".name)))))))))..(defun. |
| 2026e0 | 73 74 72 75 63 74 2d 63 6f 6e 73 74 72 75 63 74 6f 72 20 28 64 64 29 0a 20 20 22 52 65 74 75 72 | struct-constructor.(dd)..."Retur |
| 202700 | 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 63 6f 6e 73 74 72 75 63 74 6f 72 20 66 72 | n.the.name.of.the.constructor.fr |
| 202720 | 6f 6d 20 61 20 64 65 66 73 74 72 75 63 74 20 64 65 66 69 6e 69 74 69 6f 6e 2e 22 0a 20 20 28 6c | om.a.defstruct.definition."...(l |
| 202740 | 65 74 2a 20 28 28 63 6f 6e 73 74 72 75 63 74 6f 72 20 28 6f 72 20 28 6b 65 72 6e 65 6c 3a 64 64 | et*.((constructor.(or.(kernel:dd |
| 202760 | 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 73 74 72 75 63 74 6f 72 20 64 64 29 0a 20 20 20 20 20 20 20 | -default-constructor.dd)........ |
| 202780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 28 6b 65 72 6e 65 6c 3a | ...................(car.(kernel: |
| 2027a0 | 3a 64 64 2d 63 6f 6e 73 74 72 75 63 74 6f 72 73 20 64 64 29 29 29 29 29 0a 20 20 20 20 28 69 66 | :dd-constructors.dd))))).....(if |
| 2027c0 | 20 28 63 6f 6e 73 70 20 63 6f 6e 73 74 72 75 63 74 6f 72 29 20 28 63 61 72 20 63 6f 6e 73 74 72 | .(consp.constructor).(car.constr |
| 2027e0 | 75 63 74 6f 72 29 20 63 6f 6e 73 74 72 75 63 74 6f 72 29 29 29 0a 0a 3b 3b 3b 3b 3b 3b 20 47 65 | uctor).constructor)))..;;;;;;.Ge |
| 202800 | 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 6d 65 74 68 6f 64 73 0a 0a 28 64 65 | neric.functions.and.methods..(de |
| 202820 | 66 75 6e 20 67 66 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 20 66 75 6e 63 74 69 6f | fun.gf-definitions.(name.functio |
| 202840 | 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 6f 66 20 | n)..."Return.the.definitions.of. |
| 202860 | 61 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 69 74 73 20 6d 65 74 68 6f | a.generic.function.and.its.metho |
| 202880 | 64 73 2e 22 0a 20 20 28 63 6f 6e 73 20 28 6c 69 73 74 20 60 28 64 65 66 67 65 6e 65 72 69 63 20 | ds."...(cons.(list.`(defgeneric. |
| 2028a0 | 2c 6e 61 6d 65 29 20 28 67 66 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 | ,name).(gf-location.function)).. |
| 2028c0 | 20 20 20 20 20 20 20 28 67 66 2d 6d 65 74 68 6f 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 75 | .......(gf-method-definitions.fu |
| 2028e0 | 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 66 2d 6c 6f 63 61 74 69 6f 6e 20 28 67 | nction)))..(defun.gf-location.(g |
| 202900 | 66 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 | f)..."Return.the.location.of.the |
| 202920 | 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 47 46 2e 22 0a 20 20 28 64 65 66 69 6e 69 | .generic.function.GF."...(defini |
| 202940 | 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 67 66 20 28 70 63 6c 3a 3a 67 65 | tion-source-location.gf.(pcl::ge |
| 202960 | 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 67 66 29 29 29 0a 0a 28 64 65 66 75 | neric-function-name.gf)))..(defu |
| 202980 | 6e 20 67 66 2d 6d 65 74 68 6f 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 67 66 29 0a 20 20 22 | n.gf-method-definitions.(gf)..." |
| 2029a0 | 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 73 20 6f 66 20 61 6c 6c 20 6d 65 74 68 | Return.the.locations.of.all.meth |
| 2029c0 | 6f 64 73 20 6f 66 20 74 68 65 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 47 46 2e 22 | ods.of.the.generic.function.GF." |
| 2029e0 | 0a 20 20 28 6d 61 70 63 61 72 20 23 27 6d 65 74 68 6f 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 | ...(mapcar.#'method-definition.( |
| 202a00 | 70 63 6c 3a 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 73 20 67 66 | pcl::generic-function-methods.gf |
| 202a20 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 74 68 6f 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 6d | )))..(defun.method-definition.(m |
| 202a40 | 65 74 68 6f 64 29 0a 20 20 28 6c 69 73 74 20 28 6d 65 74 68 6f 64 2d 64 73 70 65 63 20 6d 65 74 | ethod)...(list.(method-dspec.met |
| 202a60 | 68 6f 64 29 0a 20 20 20 20 20 20 20 20 28 6d 65 74 68 6f 64 2d 6c 6f 63 61 74 69 6f 6e 20 6d 65 | hod).........(method-location.me |
| 202a80 | 74 68 6f 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 74 68 6f 64 2d 64 73 70 65 63 20 28 6d 65 | thod)))..(defun.method-dspec.(me |
| 202aa0 | 74 68 6f 64 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 68 75 6d 61 6e 2d 72 65 61 64 61 62 6c 65 | thod)..."Return.a.human-readable |
| 202ac0 | 20 5c 22 64 65 66 69 6e 69 74 69 6f 6e 20 73 70 65 63 69 66 69 65 72 5c 22 20 66 6f 72 20 4d 45 | .\"definition.specifier\".for.ME |
| 202ae0 | 54 48 4f 44 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 67 66 20 28 70 63 6c 3a 6d 65 74 68 6f 64 2d | THOD."...(let*.((gf.(pcl:method- |
| 202b00 | 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 20 20 | generic-function.method))....... |
| 202b20 | 20 20 20 28 6e 61 6d 65 20 28 70 63 6c 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e | ...(name.(pcl:generic-function-n |
| 202b40 | 61 6d 65 20 67 66 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 70 65 63 69 61 6c 69 7a 65 72 73 20 | ame.gf))..........(specializers. |
| 202b60 | 28 70 63 6c 3a 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 20 6d 65 74 68 6f 64 29 | (pcl:method-specializers.method) |
| 202b80 | 29 0a 20 20 20 20 20 20 20 20 20 28 71 75 61 6c 69 66 69 65 72 73 20 28 70 63 6c 3a 6d 65 74 68 | )..........(qualifiers.(pcl:meth |
| 202ba0 | 6f 64 2d 71 75 61 6c 69 66 69 65 72 73 20 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 60 28 6d 65 | od-qualifiers.method))).....`(me |
| 202bc0 | 74 68 6f 64 20 2c 6e 61 6d 65 20 2c 40 71 75 61 6c 69 66 69 65 72 73 20 2c 28 70 63 6c 3a 3a 75 | thod.,name.,@qualifiers.,(pcl::u |
| 202be0 | 6e 70 61 72 73 65 2d 73 70 65 63 69 61 6c 69 7a 65 72 73 20 73 70 65 63 69 61 6c 69 7a 65 72 73 | nparse-specializers.specializers |
| 202c00 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 74 68 6f 64 2d 6c 6f 63 61 74 69 6f 6e 20 28 6d 65 | ))))..(defun.method-location.(me |
| 202c20 | 74 68 6f 64 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 6d 65 74 68 6f 64 0a 20 20 20 20 28 70 63 | thod)...(typecase.method.....(pc |
| 202c40 | 6c 3a 3a 73 74 61 6e 64 61 72 64 2d 61 63 63 65 73 73 6f 72 2d 6d 65 74 68 6f 64 0a 20 20 20 20 | l::standard-accessor-method..... |
| 202c60 | 20 28 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 | .(definition-source-location.... |
| 202c80 | 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 70 63 6c 3a 3a 64 65 66 69 6e 69 74 69 6f 6e 2d 73 6f | ......(cond.((pcl::definition-so |
| 202ca0 | 75 72 63 65 20 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 74 | urce.method).................met |
| 202cc0 | 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 | hod)................(t.......... |
| 202ce0 | 20 20 20 20 20 20 20 28 70 63 6c 3a 3a 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 63 6c 61 | .......(pcl::slot-definition-cla |
| 202d00 | 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 63 6c 3a 3a 61 63 63 65 73 73 | ss..................(pcl::access |
| 202d20 | 6f 72 2d 6d 65 74 68 6f 64 2d 73 6c 6f 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6d 65 74 68 6f 64 | or-method-slot-definition.method |
| 202d40 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 63 6c 3a 3a 61 63 63 65 73 73 6f 72 2d 6d 65 74 | ))))..........(pcl::accessor-met |
| 202d60 | 68 6f 64 2d 73 6c 6f 74 2d 6e 61 6d 65 20 6d 65 74 68 6f 64 29 29 29 0a 20 20 20 20 28 74 0a 20 | hod-slot-name.method))).....(t.. |
| 202d80 | 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 72 20 28 70 63 6c 3a | ....(function-location.(or.(pcl: |
| 202da0 | 3a 6d 65 74 68 6f 64 2d 66 61 73 74 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 0a 20 20 | :method-fast-function.method)... |
| 202dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 63 6c 3a 6d | ..........................(pcl:m |
| 202de0 | 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 29 29 29 29 29 29 0a 0a 28 64 65 | ethod-function.method))))))..(de |
| 202e00 | 66 75 6e 20 67 65 6e 65 72 69 63 70 20 28 66 6e 29 0a 20 20 28 74 79 70 65 70 20 66 6e 20 27 67 | fun.genericp.(fn)...(typep.fn.'g |
| 202e20 | 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 3b 3b 3b 3b 3b 3b 20 54 79 70 65 73 20 | eneric-function))..;;;;;;.Types. |
| 202e40 | 61 6e 64 20 63 6c 61 73 73 65 73 0a 0a 28 64 65 66 75 6e 20 74 79 70 65 2d 64 65 66 69 6e 69 74 | and.classes..(defun.type-definit |
| 202e60 | 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 60 64 65 66 74 79 70 65 27 20 | ions.(name)..."Return.`deftype'. |
| 202e80 | 6c 6f 63 61 74 69 6f 6e 73 20 66 6f 72 20 74 79 70 65 20 4e 41 4d 45 2e 22 0a 20 20 28 6d 61 79 | locations.for.type.NAME."...(may |
| 202ea0 | 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 65 78 74 3a 69 6e 66 6f 20 3a 74 79 | be-make-definition.(ext:info.:ty |
| 202ec0 | 70 65 20 3a 65 78 70 61 6e 64 65 72 20 6e 61 6d 65 29 20 27 64 65 66 74 79 70 65 20 6e 61 6d 65 | pe.:expander.name).'deftype.name |
| 202ee0 | 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e | ))..(defun.maybe-make-definition |
| 202f00 | 20 28 66 75 6e 63 74 69 6f 6e 20 6b 69 6e 64 20 6e 61 6d 65 29 0a 20 20 22 49 66 20 46 55 4e 43 | .(function.kind.name)..."If.FUNC |
| 202f20 | 54 49 4f 4e 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 74 68 65 6e 20 72 65 74 75 72 6e 20 69 74 73 20 | TION.is.non-nil.then.return.its. |
| 202f40 | 64 65 66 69 6e 69 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 2e 22 0a 20 20 28 69 66 20 66 75 6e 63 | definition.location."...(if.func |
| 202f60 | 74 69 6f 6e 0a 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 60 28 2c 6b 69 6e 64 20 2c | tion.......(list.(list.`(,kind., |
| 202f80 | 6e 61 6d 65 29 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f | name).(function-location.functio |
| 202fa0 | 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 61 73 73 2d 64 65 66 69 6e 69 74 69 6f 6e 73 | n)))))..(defun.class-definitions |
| 202fc0 | 20 28 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e | .(name)..."Return.the.definition |
| 202fe0 | 20 6c 6f 63 61 74 69 6f 6e 73 20 66 6f 72 20 74 68 65 20 63 6c 61 73 73 20 63 61 6c 6c 65 64 20 | .locations.for.the.class.called. |
| 203000 | 4e 41 4d 45 2e 22 0a 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 0a 20 20 20 20 | NAME."...(if.(symbolp.name)..... |
| 203020 | 20 20 28 6c 65 74 20 28 28 63 6c 61 73 73 20 28 6b 65 72 6e 65 6c 3a 3a 66 69 6e 64 2d 63 6c 61 | ..(let.((class.(kernel::find-cla |
| 203040 | 73 73 20 6e 61 6d 65 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 | ss.name.nil))).........(etypecas |
| 203060 | 65 20 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 27 28 29 29 0a 20 20 20 | e.class...........(null.'()).... |
| 203080 | 20 20 20 20 20 20 20 28 6b 65 72 6e 65 6c 3a 3a 73 74 72 75 63 74 75 72 65 2d 63 6c 61 73 73 0a | .......(kernel::structure-class. |
| 2030a0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 60 28 64 65 66 73 74 72 75 | ...........(list.(list.`(defstru |
| 2030c0 | 63 74 20 2c 6e 61 6d 65 29 20 28 64 64 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 69 6e 64 2d 64 64 20 | ct.,name).(dd-location.(find-dd. |
| 2030e0 | 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 23 2b 28 6f 72 29 0a 20 20 20 20 20 | name)))))...........#+(or)...... |
| 203100 | 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 73 3a 3a 63 6f 6e 64 69 74 69 6f 6e 2d 63 6c 61 73 | .....(conditions::condition-clas |
| 203120 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 60 28 64 65 66 69 6e | s............(list.(list.`(defin |
| 203140 | 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 2c 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-condition.,name).............. |
| 203160 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 6c 61 73 73 2d 6c 6f 63 61 74 | ..........(condition-class-locat |
| 203180 | 69 6f 6e 20 63 6c 61 73 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6b 65 72 6e 65 6c 3a | ion.class))))...........(kernel: |
| 2031a0 | 3a 73 74 61 6e 64 61 72 64 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 | :standard-class............(list |
| 2031c0 | 20 28 6c 69 73 74 20 60 28 64 65 66 63 6c 61 73 73 20 2c 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | .(list.`(defclass.,name)........ |
| 2031e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 63 6c 2d 63 6c 61 73 73 2d 6c 6f 63 61 74 | ................(pcl-class-locat |
| 203200 | 69 6f 6e 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 | ion.(find-class.name)))))....... |
| 203220 | 20 20 20 20 28 28 6f 72 20 6b 65 72 6e 65 6c 3a 3a 62 75 69 6c 74 2d 69 6e 2d 63 6c 61 73 73 0a | ....((or.kernel::built-in-class. |
| 203240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 64 69 74 69 6f 6e 73 3a 3a 63 6f 6e 64 69 | ...............conditions::condi |
| 203260 | 74 69 6f 6e 2d 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 72 6e 65 6c | tion-class................kernel |
| 203280 | 3a 66 75 6e 63 61 6c 6c 61 62 6c 65 2d 73 74 72 75 63 74 75 72 65 2d 63 6c 61 73 73 29 0a 20 20 | :funcallable-structure-class)... |
| 2032a0 | 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 60 28 63 6c 61 73 73 20 2c 6e 61 | .........(list.(list.`(class.,na |
| 2032c0 | 6d 65 29 20 28 63 6c 61 73 73 2d 6c 6f 63 61 74 69 6f 6e 20 63 6c 61 73 73 29 29 29 29 29 29 29 | me).(class-location.class))))))) |
| 2032e0 | 29 0a 0a 28 64 65 66 75 6e 20 70 63 6c 2d 63 6c 61 73 73 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6c | )..(defun.pcl-class-location.(cl |
| 203300 | 61 73 73 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 60 64 65 66 63 6c 61 73 73 27 20 6c 6f | ass)..."Return.the.`defclass'.lo |
| 203320 | 63 61 74 69 6f 6e 20 66 6f 72 20 43 4c 41 53 53 2e 22 0a 20 20 28 64 65 66 69 6e 69 74 69 6f 6e | cation.for.CLASS."...(definition |
| 203340 | 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6c 61 73 73 20 28 70 63 6c 3a 63 6c 61 73 | -source-location.class.(pcl:clas |
| 203360 | 73 2d 6e 61 6d 65 20 63 6c 61 73 73 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 65 76 61 6c 20 | s-name.class)))..;;.FIXME:.eval. |
| 203380 | 75 73 65 64 20 66 6f 72 20 62 61 63 6b 77 61 72 64 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 2e | used.for.backward.compatibility. |
| 2033a0 | 0a 28 64 65 66 75 6e 20 63 6c 61 73 73 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6c 61 73 73 29 0a 20 | .(defun.class-location.(class).. |
| 2033c0 | 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 6b 65 72 6e 65 6c 3a 3a 63 6c 61 73 73 20 63 6c | .(declare.(type.kernel::class.cl |
| 2033e0 | 61 73 73 29 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 6b 65 72 6e 65 6c 3a 25 63 6c 61 | ass))...(let.((name.(kernel:%cla |
| 203400 | 73 73 2d 6e 61 6d 65 20 63 6c 61 73 73 29 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 | ss-name.class))).....(multiple-v |
| 203420 | 61 6c 75 65 2d 62 69 6e 64 20 28 6c 6f 63 20 66 6f 75 6e 64 3f 29 0a 20 20 20 20 20 20 20 20 28 | alue-bind.(loc.found?).........( |
| 203440 | 6c 65 74 20 28 28 78 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 | let.((x.(ignore-errors.......... |
| 203460 | 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 0a 20 | ..........(multiple-value-list.. |
| 203480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 60 28 65 78 74 3a 69 | ...................(eval.`(ext:i |
| 2034a0 | 6e 66 6f 20 3a 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 3a 63 6c 61 73 73 20 27 2c 6e 61 | nfo.:source-location.:class.',na |
| 2034c0 | 6d 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 2d 6c 69 73 74 20 | me))))))...........(values-list. |
| 2034e0 | 78 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 66 6f 75 6e 64 3f 20 28 72 65 73 6f 6c 76 65 | x)).......(cond.(found?.(resolve |
| 203500 | 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 | -source-location.loc)).......... |
| 203520 | 20 20 20 28 60 28 3a 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 66 6f | ...(`(:error................,(fo |
| 203540 | 72 6d 61 74 20 6e 69 6c 20 22 4e 6f 20 6c 6f 63 61 74 69 6f 6e 20 72 65 63 6f 72 64 65 64 20 66 | rmat.nil."No.location.recorded.f |
| 203560 | 6f 72 20 63 6c 61 73 73 3a 20 7e 53 22 20 6e 61 6d 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 | or.class:.~S".name)))))))..(defu |
| 203580 | 6e 20 66 69 6e 64 2d 64 64 20 28 6e 61 6d 65 29 0a 20 20 22 46 69 6e 64 20 74 68 65 20 64 65 66 | n.find-dd.(name)..."Find.the.def |
| 2035a0 | 73 74 72 75 63 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 62 79 20 74 68 65 20 6e 61 6d 65 20 6f 66 | struct-definition.by.the.name.of |
| 2035c0 | 20 69 74 73 20 73 74 72 75 63 74 75 72 65 2d 63 6c 61 73 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 | .its.structure-class."...(let.(( |
| 2035e0 | 6c 61 79 6f 75 74 20 28 65 78 74 3a 69 6e 66 6f 20 3a 74 79 70 65 20 3a 63 6f 6d 70 69 6c 65 72 | layout.(ext:info.:type.:compiler |
| 203600 | 2d 6c 61 79 6f 75 74 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 69 66 20 6c 61 79 6f 75 74 0a 20 | -layout.name))).....(if.layout.. |
| 203620 | 20 20 20 20 20 20 20 28 6b 65 72 6e 65 6c 3a 6c 61 79 6f 75 74 2d 69 6e 66 6f 20 6c 61 79 6f 75 | .......(kernel:layout-info.layou |
| 203640 | 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 64 69 74 69 6f 6e 2d 63 6c 61 73 73 2d 6c 6f | t))))..(defun.condition-class-lo |
| 203660 | 63 61 74 69 6f 6e 20 28 63 6c 61 73 73 29 0a 20 20 28 6c 65 74 20 28 28 73 6c 6f 74 73 20 28 63 | cation.(class)...(let.((slots.(c |
| 203680 | 6f 6e 64 69 74 69 6f 6e 73 3a 3a 63 6f 6e 64 69 74 69 6f 6e 2d 63 6c 61 73 73 2d 73 6c 6f 74 73 | onditions::condition-class-slots |
| 2036a0 | 20 63 6c 61 73 73 29 29 0a 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 63 6f 6e 64 69 74 69 6f | .class)).........(name.(conditio |
| 2036c0 | 6e 73 3a 3a 63 6f 6e 64 69 74 69 6f 6e 2d 63 6c 61 73 73 2d 6e 61 6d 65 20 63 6c 61 73 73 29 29 | ns::condition-class-name.class)) |
| 2036e0 | 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 73 6c 6f 74 73 29 0a 20 20 20 20 20 20 | ).....(cond.((null.slots)....... |
| 203700 | 20 20 20 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4e 6f 20 6c | .....`(:error.,(format.nil."No.l |
| 203720 | 6f 63 61 74 69 6f 6e 20 69 6e 66 6f 20 66 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 3a 20 7e 41 22 20 | ocation.info.for.condition:.~A". |
| 203740 | 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 | name)))...........(t............ |
| 203760 | 3b 3b 20 46 69 6e 64 20 74 68 65 20 63 6c 61 73 73 20 76 69 61 20 6f 6e 65 20 6f 66 20 69 74 73 | ;;.Find.the.class.via.one.of.its |
| 203780 | 20 73 6c 6f 74 2d 72 65 61 64 65 72 20 6d 65 74 68 6f 64 73 2e 0a 20 20 20 20 20 20 20 20 20 20 | .slot-reader.methods............ |
| 2037a0 | 20 28 6c 65 74 2a 20 28 28 73 6c 6f 74 20 28 66 69 72 73 74 20 73 6c 6f 74 73 29 29 0a 20 20 20 | .(let*.((slot.(first.slots)).... |
| 2037c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 66 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 0a | ...............(gf.(fdefinition. |
| 2037e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 72 73 74 20 28 63 | .......................(first.(c |
| 203800 | 6f 6e 64 69 74 69 6f 6e 73 3a 3a 63 6f 6e 64 69 74 69 6f 6e 2d 73 6c 6f 74 2d 72 65 61 64 65 72 | onditions::condition-slot-reader |
| 203820 | 73 20 73 6c 6f 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 74 68 6f 64 | s.slot)))))..............(method |
| 203840 | 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 72 73 74 0a 20 | -location...............(first.. |
| 203860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 63 6c 3a 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 | ..............(pcl:compute-appli |
| 203880 | 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 75 73 69 6e 67 2d 63 6c 61 73 73 65 73 0a 20 20 20 20 | cable-methods-using-classes..... |
| 2038a0 | 20 20 20 20 20 20 20 20 20 20 20 20 67 66 20 28 6c 69 73 74 20 28 66 69 6e 64 2d 63 6c 61 73 73 | ............gf.(list.(find-class |
| 2038c0 | 20 6e 61 6d 65 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 6e 61 6d | .name))))))))))..(defun.make-nam |
| 2038e0 | 65 2d 69 6e 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 69 6c 65 20 73 74 72 69 6e 67 29 | e-in-file-location.(file.string) |
| 203900 | 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 69 6c 65 6e 61 6d | ...(multiple-value-bind.(filenam |
| 203920 | 65 20 63 29 0a 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 | e.c).......(ignore-errors....... |
| 203940 | 20 20 28 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 | ..(unix-truename.(merge-pathname |
| 203960 | 73 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 74 79 70 65 20 22 6c 69 73 70 22 29 0a 20 | s.(make-pathname.:type."lisp").. |
| 203980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2039a0 | 20 20 20 20 20 20 20 66 69 6c 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 66 69 6c 65 6e 61 | .......file))).....(cond.(filena |
| 2039c0 | 6d 65 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c 65 20 2c 66 69 6c 65 6e | me.(make-location.`(:file.,filen |
| 2039e0 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame)............................ |
| 203a00 | 20 20 20 20 20 20 20 20 60 28 3a 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 2c 28 73 74 72 69 6e | ........`(:function-name.,(strin |
| 203a20 | 67 20 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6c 69 73 74 20 | g.string))))...........(t.(list. |
| 203a40 | 3a 65 72 72 6f 72 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 63 29 29 29 29 29 29 0a | :error.(princ-to-string.c)))))). |
| 203a60 | 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 2d 6e 75 6d | .(defun.source-location-form-num |
| 203a80 | 62 65 72 73 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 63 3a 3a 64 65 63 6f 64 65 2d 66 6f 72 | bers.(location)...(c::decode-for |
| 203aa0 | 6d 2d 6e 75 6d 62 65 72 73 20 28 63 3a 3a 66 6f 72 6d 2d 6e 75 6d 62 65 72 73 2d 66 6f 72 6d 2d | m-numbers.(c::form-numbers-form- |
| 203ac0 | 6e 75 6d 62 65 72 73 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 | numbers.location)))..(defun.sour |
| 203ae0 | 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6c 66 2d 6e 75 6d 62 65 72 20 28 6c 6f 63 61 74 69 6f 6e | ce-location-tlf-number.(location |
| 203b00 | 29 0a 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 30 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | )...(nth-value.0.(source-locatio |
| 203b20 | 6e 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 73 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 | n-form-numbers.location)))..(def |
| 203b40 | 75 6e 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 28 | un.source-location-form-number.( |
| 203b60 | 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 31 20 28 73 6f 75 72 63 65 | location)...(nth-value.1.(source |
| 203b80 | 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 73 20 6c 6f 63 61 74 69 6f 6e 29 | -location-form-numbers.location) |
| 203ba0 | 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 73 6f 6c 76 65 2d 66 69 6c 65 2d 73 6f 75 72 63 65 2d 6c | ))..(defun.resolve-file-source-l |
| 203bc0 | 6f 63 61 74 69 6f 6e 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 | ocation.(location)...(let.((file |
| 203be0 | 6e 61 6d 65 20 28 63 3a 3a 66 69 6c 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 61 | name.(c::file-source-location-pa |
| 203c00 | 74 68 6e 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 74 6c 66 2d 6e | thname.location)).........(tlf-n |
| 203c20 | 75 6d 62 65 72 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6c 66 2d 6e 75 6d 62 65 | umber.(source-location-tlf-numbe |
| 203c40 | 72 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 2d 6e 75 6d 62 65 | r.location)).........(form-numbe |
| 203c60 | 72 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 6c | r.(source-location-form-number.l |
| 203c80 | 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 | ocation))).....(with-open-file.( |
| 203ca0 | 73 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 66 6f | s.filename).......(let.((pos.(fo |
| 203cc0 | 72 6d 2d 6e 75 6d 62 65 72 2d 73 74 72 65 61 6d 2d 70 6f 73 69 74 69 6f 6e 20 74 6c 66 2d 6e 75 | rm-number-stream-position.tlf-nu |
| 203ce0 | 6d 62 65 72 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 6d | mber.form-number.s))).........(m |
| 203d00 | 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c 65 20 2c 28 75 6e 69 78 2d 74 72 75 65 | ake-location.`(:file.,(unix-true |
| 203d20 | 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name.filename))................. |
| 203d40 | 20 20 20 20 20 20 20 60 28 3a 70 6f 73 69 74 69 6f 6e 20 2c 28 31 2b 20 70 6f 73 29 29 29 29 29 | .......`(:position.,(1+.pos))))) |
| 203d60 | 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 73 6f 6c 76 65 2d 73 74 72 65 61 6d 2d 73 6f 75 72 63 65 | ))..(defun.resolve-stream-source |
| 203d80 | 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 69 6e | -location.(location)...(let.((in |
| 203da0 | 66 6f 20 28 63 3a 3a 73 74 72 65 61 6d 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 75 73 | fo.(c::stream-source-location-us |
| 203dc0 | 65 72 2d 69 6e 66 6f 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 74 6c 66 2d | er-info.location)).........(tlf- |
| 203de0 | 6e 75 6d 62 65 72 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 74 6c 66 2d 6e 75 6d 62 | number.(source-location-tlf-numb |
| 203e00 | 65 72 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 2d 6e 75 6d 62 | er.location)).........(form-numb |
| 203e20 | 65 72 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 | er.(source-location-form-number. |
| 203e40 | 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 3b 3b 20 58 58 58 20 64 75 70 6c 69 63 61 74 69 | location))).....;;.XXX.duplicati |
| 203e60 | 6f 6e 20 69 6e 20 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 | on.in.frame-source-location..... |
| 203e80 | 28 61 73 73 65 72 74 20 28 69 6e 66 6f 2d 66 72 6f 6d 2d 65 6d 61 63 73 2d 62 75 66 66 65 72 2d | (assert.(info-from-emacs-buffer- |
| 203ea0 | 70 20 69 6e 66 6f 29 29 0a 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 | p.info)).....(destructuring-bind |
| 203ec0 | 20 28 26 6b 65 79 20 65 6d 61 63 73 2d 62 75 66 66 65 72 20 65 6d 61 63 73 2d 62 75 66 66 65 72 | .(&key.emacs-buffer.emacs-buffer |
| 203ee0 | 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -string......................... |
| 203f00 | 20 20 20 20 20 20 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 6f 66 66 73 65 74 29 20 69 6e 66 6f 0a | ......emacs-buffer-offset).info. |
| 203f20 | 20 20 20 20 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 | ......(with-input-from-string.(s |
| 203f40 | 20 65 6d 61 63 73 2d 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 28 6c | .emacs-buffer-string).........(l |
| 203f60 | 65 74 20 28 28 70 6f 73 20 28 66 6f 72 6d 2d 6e 75 6d 62 65 72 2d 73 74 72 65 61 6d 2d 70 6f 73 | et.((pos.(form-number-stream-pos |
| 203f80 | 69 74 69 6f 6e 20 74 6c 66 2d 6e 75 6d 62 65 72 20 66 6f 72 6d 2d 6e 75 6d 62 65 72 20 73 29 29 | ition.tlf-number.form-number.s)) |
| 203fa0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 62 75 | )...........(make-location.`(:bu |
| 203fc0 | 66 66 65 72 20 2c 65 6d 61 63 73 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ffer.,emacs-buffer)............. |
| 203fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 6f 66 66 73 65 74 20 2c 65 6d 61 63 73 2d 62 75 | .............`(:offset.,emacs-bu |
| 204000 | 66 66 65 72 2d 6f 66 66 73 65 74 20 2c 70 6f 73 29 29 29 29 29 29 29 0a 0a 3b 3b 20 58 58 58 20 | ffer-offset.,pos)))))))..;;.XXX. |
| 204020 | 70 72 65 64 69 63 61 74 65 73 20 66 6f 72 20 31 38 65 20 62 61 63 6b 77 61 72 64 20 63 6f 6d 70 | predicates.for.18e.backward.comp |
| 204040 | 61 74 69 62 69 6c 74 79 2e 20 20 52 65 6d 6f 76 65 20 74 68 65 6d 20 77 68 65 6e 0a 3b 3b 20 77 | atibilty...Remove.them.when.;;.w |
| 204060 | 65 27 72 65 20 31 39 61 20 6f 6e 6c 79 2e 0a 28 64 65 66 75 6e 20 66 69 6c 65 2d 73 6f 75 72 63 | e're.19a.only..(defun.file-sourc |
| 204080 | 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 77 68 65 6e 20 28 66 | e-location-p.(object)...(when.(f |
| 2040a0 | 62 6f 75 6e 64 70 20 27 63 3a 3a 66 69 6c 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d | boundp.'c::file-source-location- |
| 2040c0 | 70 29 0a 20 20 20 20 28 63 3a 3a 66 69 6c 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d | p).....(c::file-source-location- |
| 2040e0 | 70 20 6f 62 6a 65 63 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 72 65 61 6d 2d 73 6f 75 72 63 | p.object)))..(defun.stream-sourc |
| 204100 | 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 77 68 65 6e 20 28 66 | e-location-p.(object)...(when.(f |
| 204120 | 62 6f 75 6e 64 70 20 27 63 3a 3a 73 74 72 65 61 6d 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | boundp.'c::stream-source-locatio |
| 204140 | 6e 2d 70 29 0a 20 20 20 20 28 63 3a 3a 73 74 72 65 61 6d 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 | n-p).....(c::stream-source-locat |
| 204160 | 69 6f 6e 2d 70 20 6f 62 6a 65 63 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 75 72 63 65 2d 6c | ion-p.object)))..(defun.source-l |
| 204180 | 6f 63 61 74 69 6f 6e 2d 70 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 6f 72 20 28 66 69 6c 65 2d 73 | ocation-p.(object)...(or.(file-s |
| 2041a0 | 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 28 | ource-location-p.object).......( |
| 2041c0 | 73 74 72 65 61 6d 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 20 6f 62 6a 65 63 74 29 | stream-source-location-p.object) |
| 2041e0 | 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 73 6f 6c 76 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 | ))..(defun.resolve-source-locati |
| 204200 | 6f 6e 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 6c 6f 63 61 74 | on.(location)...(etypecase.locat |
| 204220 | 69 6f 6e 0a 20 20 20 20 28 28 73 61 74 69 73 66 69 65 73 20 66 69 6c 65 2d 73 6f 75 72 63 65 2d | ion.....((satisfies.file-source- |
| 204240 | 6c 6f 63 61 74 69 6f 6e 2d 70 29 0a 20 20 20 20 20 28 72 65 73 6f 6c 76 65 2d 66 69 6c 65 2d 73 | location-p)......(resolve-file-s |
| 204260 | 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 0a 20 20 20 20 28 28 | ource-location.location)).....(( |
| 204280 | 73 61 74 69 73 66 69 65 73 20 73 74 72 65 61 6d 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e | satisfies.stream-source-location |
| 2042a0 | 2d 70 29 0a 20 20 20 20 20 28 72 65 73 6f 6c 76 65 2d 73 74 72 65 61 6d 2d 73 6f 75 72 63 65 2d | -p)......(resolve-stream-source- |
| 2042c0 | 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 | location.location))))..(defun.de |
| 2042e0 | 66 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 62 6a 65 63 74 | finition-source-location.(object |
| 204300 | 20 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 73 6f 75 72 63 65 20 28 70 63 6c 3a 3a 64 65 66 | .name)...(let.((source.(pcl::def |
| 204320 | 69 6e 69 74 69 6f 6e 2d 73 6f 75 72 63 65 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 28 65 74 | inition-source.object))).....(et |
| 204340 | 79 70 65 63 61 73 65 20 73 6f 75 72 63 65 0a 20 20 20 20 20 20 28 6e 75 6c 6c 0a 20 20 20 20 20 | ypecase.source.......(null...... |
| 204360 | 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4e 6f 20 73 6f 75 72 | ..`(:error.,(format.nil."No.sour |
| 204380 | 63 65 20 69 6e 66 6f 20 66 6f 72 3a 20 7e 41 22 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 20 | ce.info.for:.~A".object)))...... |
| 2043a0 | 20 28 28 73 61 74 69 73 66 69 65 73 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 29 0a | .((satisfies.source-location-p). |
| 2043c0 | 20 20 20 20 20 20 20 28 72 65 73 6f 6c 76 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 | .......(resolve-source-location. |
| 2043e0 | 73 6f 75 72 63 65 29 29 0a 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 0a 20 20 20 20 20 20 20 | source)).......(pathname........ |
| 204400 | 28 6d 61 6b 65 2d 6e 61 6d 65 2d 69 6e 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 6f 75 72 | (make-name-in-file-location.sour |
| 204420 | 63 65 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 20 28 64 65 | ce.name)).......(cons........(de |
| 204440 | 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 28 64 67 20 6e 61 6d 65 29 20 70 61 74 68 | structuring-bind.((dg.name).path |
| 204460 | 6e 61 6d 65 29 20 73 6f 75 72 63 65 0a 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 | name).source..........(declare.( |
| 204480 | 69 67 6e 6f 72 65 20 64 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 | ignore.dg))..........(etypecase. |
| 2044a0 | 70 61 74 68 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 20 28 6d | pathname............(pathname.(m |
| 2044c0 | 61 6b 65 2d 6e 61 6d 65 2d 69 6e 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 70 61 74 68 6e 61 | ake-name-in-file-location.pathna |
| 2044e0 | 6d 65 20 28 73 74 72 69 6e 67 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e | me.(string.name)))............(n |
| 204500 | 75 6c 6c 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 43 61 6e 6e 6f | ull.`(:error.,(format.nil."Canno |
| 204520 | 74 20 72 65 73 6f 6c 76 65 3a 20 7e 53 22 20 73 6f 75 72 63 65 29 29 29 29 29 29 29 29 29 0a 0a | t.resolve:.~S".source))))))))).. |
| 204540 | 28 64 65 66 75 6e 20 73 65 74 66 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 | (defun.setf-definitions.(name).. |
| 204560 | 20 28 6c 65 74 20 28 28 66 20 28 6f 72 20 28 65 78 74 3a 69 6e 66 6f 20 3a 73 65 74 66 20 3a 69 | .(let.((f.(or.(ext:info.:setf.:i |
| 204580 | 6e 76 65 72 73 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 | nverse.name)................(ext |
| 2045a0 | 3a 69 6e 66 6f 20 3a 73 65 74 66 20 3a 65 78 70 61 6e 64 65 72 20 6e 61 6d 65 29 0a 20 20 20 20 | :info.:setf.:expander.name)..... |
| 2045c0 | 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 0a 20 | ...........(and.(symbolp.name).. |
| 2045e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 60 28 73 65 | ...................(fboundp.`(se |
| 204600 | 74 66 20 2c 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | tf.,name)).....................( |
| 204620 | 66 64 65 66 69 6e 69 74 69 6f 6e 20 60 28 73 65 74 66 20 2c 6e 61 6d 65 29 29 29 29 29 29 0a 20 | fdefinition.`(setf.,name)))))).. |
| 204640 | 20 20 20 28 69 66 20 66 0a 20 20 20 20 20 20 20 20 60 28 28 28 73 65 74 66 20 2c 6e 61 6d 65 29 | ...(if.f.........`(((setf.,name) |
| 204660 | 20 2c 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6e 64 20 28 28 66 75 6e | .,(function-location.(cond.((fun |
| 204680 | 63 74 69 6f 6e 70 20 20 66 29 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ctionp..f).f)................... |
| 2046a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2046c0 | 28 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ((macro-function.f))............ |
| 2046e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 204700 | 20 20 20 20 20 20 20 28 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 66 29 29 29 29 29 29 29 29 29 0a | .......((fdefinition.f))))))))). |
| 204720 | 0a 28 64 65 66 75 6e 20 76 61 72 69 61 62 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 73 79 6d 62 6f | .(defun.variable-location.(symbo |
| 204740 | 6c 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6c 6f 63 61 74 | l)...(multiple-value-bind.(locat |
| 204760 | 69 6f 6e 20 66 6f 75 6e 64 70 29 0a 20 20 20 20 20 20 3b 3b 20 58 58 58 20 66 6f 72 20 31 38 65 | ion.foundp).......;;.XXX.for.18e |
| 204780 | 20 63 6f 6d 70 61 74 69 62 69 6c 74 79 2e 20 72 65 77 72 69 74 65 20 74 68 69 73 20 77 68 65 6e | .compatibilty..rewrite.this.when |
| 2047a0 | 20 77 65 20 64 72 6f 70 20 31 38 65 0a 20 20 20 20 20 20 3b 3b 20 73 75 70 70 6f 72 74 2e 0a 20 | .we.drop.18e.......;;.support... |
| 2047c0 | 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 65 76 61 6c 20 60 28 65 78 74 3a | .....(ignore-errors.(eval.`(ext: |
| 2047e0 | 69 6e 66 6f 20 3a 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 3a 64 65 66 76 61 72 20 27 2c | info.:source-location.:defvar.', |
| 204800 | 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 66 6f 75 6e 64 70 20 6c 6f | symbol))).....(if.(and.foundp.lo |
| 204820 | 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 72 65 73 6f 6c 76 65 2d 73 6f 75 72 63 65 2d | cation).........(resolve-source- |
| 204840 | 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 60 28 3a 65 72 | location.location).........`(:er |
| 204860 | 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4e 6f 20 73 6f 75 72 63 65 20 69 6e 66 6f | ror.,(format.nil."No.source.info |
| 204880 | 20 66 6f 72 20 76 61 72 69 61 62 6c 65 20 7e 53 22 20 73 79 6d 62 6f 6c 29 29 29 29 29 0a 0a 28 | .for.variable.~S".symbol)))))..( |
| 2048a0 | 64 65 66 75 6e 20 76 61 72 69 61 62 6c 65 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 | defun.variable-definitions.(name |
| 2048c0 | 29 0a 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 6d 75 | )...(if.(symbolp.name).......(mu |
| 2048e0 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6b 69 6e 64 20 72 65 63 6f 72 64 65 64 | ltiple-value-bind.(kind.recorded |
| 204900 | 2d 70 29 20 28 65 78 74 3a 69 6e 66 6f 20 3a 76 61 72 69 61 62 6c 65 20 3a 6b 69 6e 64 20 6e 61 | -p).(ext:info.:variable.:kind.na |
| 204920 | 6d 65 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 72 65 63 6f 72 64 65 64 2d 70 0a 20 20 20 20 20 | me).........(if.recorded-p...... |
| 204940 | 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 60 28 76 61 72 69 61 62 6c 65 20 2c 6b | .......(list.(list.`(variable.,k |
| 204960 | 69 6e 64 20 2c 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ind.,name)...................... |
| 204980 | 20 20 20 28 76 61 72 69 61 62 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 6e 61 6d 65 29 29 29 29 29 29 | ...(variable-location.name)))))) |
| 2049a0 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 64 65 66 69 6e 69 74 | )..(defun.compiler-macro-definit |
| 2049c0 | 69 6f 6e 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 | ions.(symbol)...(maybe-make-defi |
| 2049e0 | 6e 69 74 69 6f 6e 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 | nition.(compiler-macro-function. |
| 204a00 | 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | symbol)......................... |
| 204a20 | 20 27 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 20 | .'define-compiler-macro......... |
| 204a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 29 29 0a 0a 28 64 65 66 75 | .................symbol))..(defu |
| 204a60 | 6e 20 73 6f 75 72 63 65 2d 74 72 61 6e 73 66 6f 72 6d 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 | n.source-transform-definitions.( |
| 204a80 | 6e 61 6d 65 29 0a 20 20 28 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 | name)...(maybe-make-definition.( |
| 204aa0 | 65 78 74 3a 69 6e 66 6f 20 3a 66 75 6e 63 74 69 6f 6e 20 3a 73 6f 75 72 63 65 2d 74 72 61 6e 73 | ext:info.:function.:source-trans |
| 204ac0 | 66 6f 72 6d 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | form.name)...................... |
| 204ae0 | 20 20 20 20 27 63 3a 64 65 66 2d 73 6f 75 72 63 65 2d 74 72 61 6e 73 66 6f 72 6d 0a 20 20 20 20 | ....'c:def-source-transform..... |
| 204b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 0a 0a 28 64 65 | .....................name))..(de |
| 204b20 | 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e | fun.function-info-definitions.(n |
| 204b40 | 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 66 6f 20 28 65 78 74 3a 69 6e 66 6f 20 3a 66 75 | ame)...(let.((info.(ext:info.:fu |
| 204b60 | 6e 63 74 69 6f 6e 20 3a 69 6e 66 6f 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 69 66 20 69 6e 66 | nction.:info.name))).....(if.inf |
| 204b80 | 6f 0a 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 6c 6f 6f 70 20 66 6f 72 20 74 72 61 6e | o.........(append.(loop.for.tran |
| 204ba0 | 73 66 6f 72 6d 20 69 6e 20 28 63 3a 3a 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 74 72 61 6e 73 | sform.in.(c::function-info-trans |
| 204bc0 | 66 6f 72 6d 73 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | forms.info)..................... |
| 204be0 | 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 60 28 63 3a 64 65 66 74 72 61 6e 73 66 6f 72 6d | ..collect.(list.`(c:deftransform |
| 204c00 | 20 2c 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .,name.......................... |
| 204c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 3a 3a 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 | .............,(c::type-specifier |
| 204c40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 204c60 | 20 20 20 20 20 20 20 20 20 28 63 3a 3a 74 72 61 6e 73 66 6f 72 6d 2d 74 79 70 65 20 74 72 61 6e | .........(c::transform-type.tran |
| 204c80 | 73 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sform)))........................ |
| 204ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 | .............(function-location. |
| 204cc0 | 28 63 3a 3a 74 72 61 6e 73 66 6f 72 6d 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | (c::transform-function.......... |
| 204ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 204d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 66 6f 72 6d 29 29 29 29 0a 20 20 20 | ...............transform)))).... |
| 204d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 | .............(maybe-make-definit |
| 204d40 | 69 6f 6e 20 28 63 3a 3a 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 64 65 72 69 76 65 2d 74 79 70 | ion.(c::function-info-derive-typ |
| 204d60 | 65 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.info)......................... |
| 204d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 3a 3a 64 65 72 69 76 65 2d 74 79 70 65 20 6e | ...............'c::derive-type.n |
| 204da0 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 6d 61 6b 65 | ame).................(maybe-make |
| 204dc0 | 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 63 3a 3a 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 6f 70 | -definition.(c::function-info-op |
| 204de0 | 74 69 6d 69 7a 65 72 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | timizer.info)................... |
| 204e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 3a 3a 6f 70 74 69 6d 69 7a | .....................'c::optimiz |
| 204e20 | 65 72 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d | er.name).................(maybe- |
| 204e40 | 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 63 3a 3a 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 | make-definition.(c::function-inf |
| 204e60 | 6f 2d 6c 74 6e 2d 61 6e 6e 6f 74 61 74 65 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 | o-ltn-annotate.info)............ |
| 204e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 3a 3a | ............................'c:: |
| 204ea0 | 6c 74 6e 2d 61 6e 6e 6f 74 61 74 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ltn-annotate.name).............. |
| 204ec0 | 20 20 20 28 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 63 3a 3a 66 75 | ...(maybe-make-definition.(c::fu |
| 204ee0 | 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 69 72 32 2d 63 6f 6e 76 65 72 74 20 69 6e 66 6f 29 0a 20 20 | nction-info-ir2-convert.info)... |
| 204f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 204f20 | 20 20 20 20 20 27 63 3a 3a 69 72 32 2d 63 6f 6e 76 65 72 74 20 6e 61 6d 65 29 0a 20 20 20 20 20 | .....'c::ir2-convert.name)...... |
| 204f40 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 74 65 6d 70 6c 61 74 65 20 69 6e | ...........(loop.for.template.in |
| 204f60 | 20 28 63 3a 3a 66 75 6e 63 74 69 6f 6e 2d 69 6e 66 6f 2d 74 65 6d 70 6c 61 74 65 73 20 69 6e 66 | .(c::function-info-templates.inf |
| 204f80 | 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 | o).......................collect |
| 204fa0 | 20 28 6c 69 73 74 20 60 28 2c 28 74 79 70 65 2d 6f 66 20 74 65 6d 70 6c 61 74 65 29 0a 20 20 20 | .(list.`(,(type-of.template).... |
| 204fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 204fe0 | 20 20 20 20 2c 28 63 3a 3a 74 65 6d 70 6c 61 74 65 2d 6e 61 6d 65 20 74 65 6d 70 6c 61 74 65 29 | ....,(c::template-name.template) |
| 205000 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 205020 | 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 | ......(function-location........ |
| 205040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | ..............................(c |
| 205060 | 3a 3a 76 6f 70 2d 69 6e 66 6f 2d 67 65 6e 65 72 61 74 6f 72 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 | ::vop-info-generator-function... |
| 205080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2050a0 | 20 20 20 20 74 65 6d 70 6c 61 74 65 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 72 31 | ....template))))))))..(defun.ir1 |
| 2050c0 | 2d 74 72 61 6e 73 6c 61 74 6f 72 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 | -translator-definitions.(name).. |
| 2050e0 | 20 28 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 65 78 74 3a 69 6e 66 | .(maybe-make-definition.(ext:inf |
| 205100 | 6f 20 3a 66 75 6e 63 74 69 6f 6e 20 3a 69 72 31 2d 63 6f 6e 76 65 72 74 20 6e 61 6d 65 29 0a 20 | o.:function.:ir1-convert.name).. |
| 205120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 3a 64 65 66 2d 69 | ........................'c:def-i |
| 205140 | 72 31 2d 74 72 61 6e 73 6c 61 74 6f 72 20 6e 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 74 65 6d | r1-translator.name))..(defun.tem |
| 205160 | 70 6c 61 74 65 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 2a | plate-definitions.(name)...(let* |
| 205180 | 20 28 28 74 65 6d 70 6c 61 74 65 73 20 28 63 3a 3a 62 61 63 6b 65 6e 64 2d 74 65 6d 70 6c 61 74 | .((templates.(c::backend-templat |
| 2051a0 | 65 2d 6e 61 6d 65 73 20 63 3a 3a 2a 62 61 63 6b 65 6e 64 2a 29 29 0a 20 20 20 20 20 20 20 20 20 | e-names.c::*backend*)).......... |
| 2051c0 | 28 74 65 6d 70 6c 61 74 65 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 74 65 6d 70 6c 61 74 65 | (template.(gethash.name.template |
| 2051e0 | 73 29 29 29 0a 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 74 65 6d 70 6c 61 74 65 0a 20 20 20 | s))).....(etypecase.template.... |
| 205200 | 20 20 20 28 6e 75 6c 6c 29 0a 20 20 20 20 20 20 28 63 3a 3a 76 6f 70 2d 69 6e 66 6f 0a 20 20 20 | ...(null).......(c::vop-info.... |
| 205220 | 20 20 20 20 28 6d 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 63 3a 3a 76 | ....(maybe-make-definition.(c::v |
| 205240 | 6f 70 2d 69 6e 66 6f 2d 67 65 6e 65 72 61 74 6f 72 2d 66 75 6e 63 74 69 6f 6e 20 74 65 6d 70 6c | op-info-generator-function.templ |
| 205260 | 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ate)............................ |
| 205280 | 20 20 20 28 74 79 70 65 2d 6f 66 20 74 65 6d 70 6c 61 74 65 29 20 6e 61 6d 65 29 29 29 29 29 0a | ...(type-of.template).name))))). |
| 2052a0 | 0a 3b 3b 20 66 6f 72 20 63 61 73 65 73 20 6c 69 6b 65 3a 20 28 25 70 72 69 6d 69 74 69 76 65 20 | .;;.for.cases.like:.(%primitive. |
| 2052c0 | 4e 41 4d 45 20 2e 2e 2e 29 0a 28 64 65 66 75 6e 20 70 72 69 6d 69 74 69 76 65 2d 64 65 66 69 6e | NAME....).(defun.primitive-defin |
| 2052e0 | 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 63 73 79 6d 20 28 66 69 6e | itions.(name)...(let.((csym.(fin |
| 205300 | 64 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 6e 61 6d 65 29 20 27 63 29 29 29 0a 20 20 20 | d-symbol.(string.name).'c))).... |
| 205320 | 20 28 61 6e 64 20 63 73 79 6d 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 63 73 79 | .(and.csym..........(not.(eq.csy |
| 205340 | 6d 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 65 6d 70 6c 61 74 65 2d 64 65 66 69 | m.name))..........(template-defi |
| 205360 | 6e 69 74 69 6f 6e 73 20 63 73 79 6d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 6d 2d 73 75 70 70 | nitions.csym))))..(defun.vm-supp |
| 205380 | 6f 72 74 2d 72 6f 75 74 69 6e 65 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 6d 65 29 0a 20 | ort-routine-definitions.(name).. |
| 2053a0 | 20 28 6c 65 74 20 28 28 73 72 20 28 63 3a 3a 62 61 63 6b 65 6e 64 2d 73 75 70 70 6f 72 74 2d 72 | .(let.((sr.(c::backend-support-r |
| 2053c0 | 6f 75 74 69 6e 65 73 20 63 3a 3a 2a 62 61 63 6b 65 6e 64 2a 29 29 0a 20 20 20 20 20 20 20 20 28 | outines.c::*backend*)).........( |
| 2053e0 | 6e 61 6d 65 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 6e 61 6d 65 29 20 | name.(find-symbol.(string.name). |
| 205400 | 27 63 29 29 29 0a 20 20 20 20 28 61 6e 64 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 28 73 6c | 'c))).....(and.name..........(sl |
| 205420 | 6f 74 2d 65 78 69 73 74 73 2d 70 20 73 72 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 28 6d | ot-exists-p.sr.name)..........(m |
| 205440 | 61 79 62 65 2d 6d 61 6b 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 73 6c 6f 74 2d 76 61 6c 75 65 | aybe-make-definition.(slot-value |
| 205460 | 20 73 72 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .sr.name)....................... |
| 205480 | 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 27 | ..........(find-symbol.(string.' |
| 2054a0 | 76 6d 2d 73 75 70 70 6f 72 74 2d 72 6f 75 74 69 6e 65 29 20 27 63 29 0a 20 20 20 20 20 20 20 20 | vm-support-routine).'c)......... |
| 2054c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 29 29 29 | ........................name)))) |
| 2054e0 | 0a 0a 0c 0a 3b 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 0a 0a 28 64 65 66 69 6d 70 | ....;;;;.Documentation...(defimp |
| 205500 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d | lementation.describe-symbol-for- |
| 205520 | 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 27 | emacs.(symbol)...(let.((result.' |
| 205540 | 28 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 64 6f 63 20 28 6b 69 6e 64 29 0a 20 20 20 20 | ())).....(flet.((doc.(kind)..... |
| 205560 | 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 79 6d 62 | .........(or.(documentation.symb |
| 205580 | 6f 6c 20 6b 69 6e 64 29 20 3a 6e 6f 74 2d 64 6f 63 75 6d 65 6e 74 65 64 29 29 0a 20 20 20 20 20 | ol.kind).:not-documented))...... |
| 2055a0 | 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 20 28 70 72 6f 70 65 72 74 79 20 76 61 6c 75 | ......(maybe-push.(property.valu |
| 2055c0 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 76 61 6c 75 65 0a 20 20 20 20 | e)..............(when.value..... |
| 2055e0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 28 6c 69 73 74 2a 20 70 | ...........(setf.result.(list*.p |
| 205600 | 72 6f 70 65 72 74 79 20 76 61 6c 75 65 20 72 65 73 75 6c 74 29 29 29 29 29 0a 20 20 20 20 20 20 | roperty.value.result)))))....... |
| 205620 | 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 76 61 72 69 61 62 6c 65 20 28 6d 75 | (maybe-push........:variable.(mu |
| 205640 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6b 69 6e 64 20 72 65 63 6f 72 64 65 64 | ltiple-value-bind.(kind.recorded |
| 205660 | 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 69 6e | -p)......................(ext:in |
| 205680 | 66 6f 20 76 61 72 69 61 62 6c 65 20 6b 69 6e 64 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 | fo.variable.kind.symbol)........ |
| 2056a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6b 69 6e | ............(declare.(ignore.kin |
| 2056c0 | 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 | d))....................(if.(or.( |
| 2056e0 | 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 20 72 65 63 6f 72 64 65 64 2d 70 29 0a 20 20 20 20 20 | boundp.symbol).recorded-p)...... |
| 205700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 76 61 72 69 61 62 6c 65 | ..................(doc.'variable |
| 205720 | 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c | )))).......(when.(fboundp.symbol |
| 205740 | 29 0a 09 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 | )..(maybe-push..........(cond.(( |
| 205760 | 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 20 20 20 20 20 3a 6d 61 63 72 | macro-function.symbol).....:macr |
| 205780 | 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 70 65 63 69 61 6c 2d 6f 70 65 72 | o)................((special-oper |
| 2057a0 | 61 74 6f 72 2d 70 20 73 79 6d 62 6f 6c 29 20 3a 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 | ator-p.symbol).:special-operator |
| 2057c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 67 65 6e 65 72 69 63 70 20 28 66 64 65 | )................((genericp.(fde |
| 2057e0 | 66 69 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 | finition.symbol)).:generic-funct |
| 205800 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 3a 66 75 6e 63 74 69 6f 6e | ion)................(t.:function |
| 205820 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 | ))..........(doc.'function)))... |
| 205840 | 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 73 65 74 66 20 28 69 66 | ....(maybe-push........:setf.(if |
| 205860 | 20 28 6f 72 20 28 65 78 74 3a 69 6e 66 6f 20 73 65 74 66 20 69 6e 76 65 72 73 65 20 73 79 6d 62 | .(or.(ext:info.setf.inverse.symb |
| 205880 | 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 69 6e | ol)......................(ext:in |
| 2058a0 | 66 6f 20 73 65 74 66 20 65 78 70 61 6e 64 65 72 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 | fo.setf.expander.symbol))....... |
| 2058c0 | 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 73 65 74 66 29 29 29 0a 20 20 20 20 20 20 28 | ...........(doc.'setf))).......( |
| 2058e0 | 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 74 79 70 65 20 28 69 66 20 28 65 78 74 | maybe-push........:type.(if.(ext |
| 205900 | 3a 69 6e 66 6f 20 74 79 70 65 20 6b 69 6e 64 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 | :info.type.kind.symbol)......... |
| 205920 | 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 74 79 70 65 29 29 29 0a 20 20 20 20 20 20 28 6d 61 | .........(doc.'type))).......(ma |
| 205940 | 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 63 6c 61 73 73 20 28 69 66 20 28 66 69 6e 64 | ybe-push........:class.(if.(find |
| 205960 | 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -class.symbol.nil).............. |
| 205980 | 20 20 20 20 20 28 64 6f 63 20 27 63 6c 61 73 73 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 | .....(doc.'class))).......(maybe |
| 2059a0 | 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 28 69 66 20 28 6e 6f | -push........:alien-type.(if.(no |
| 2059c0 | 74 20 28 65 71 20 28 65 78 74 3a 69 6e 66 6f 20 61 6c 69 65 6e 2d 74 79 70 65 20 6b 69 6e 64 20 | t.(eq.(ext:info.alien-type.kind. |
| 2059e0 | 73 79 6d 62 6f 6c 29 20 3a 75 6e 6b 6e 6f 77 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | symbol).:unknown)).............. |
| 205a00 | 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 27 61 6c 69 65 6e 2d 74 79 70 65 29 29 29 0a 20 20 | ..........(doc.'alien-type)))... |
| 205a20 | 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 61 6c 69 65 6e 2d 73 74 | ....(maybe-push........:alien-st |
| 205a40 | 72 75 63 74 20 28 69 66 20 28 65 78 74 3a 69 6e 66 6f 20 61 6c 69 65 6e 2d 74 79 70 65 20 73 74 | ruct.(if.(ext:info.alien-type.st |
| 205a60 | 72 75 63 74 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ruct.symbol).................... |
| 205a80 | 20 20 20 20 20 20 28 64 6f 63 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 | ......(doc.nil))).......(maybe-p |
| 205aa0 | 75 73 68 0a 20 20 20 20 20 20 20 3a 61 6c 69 65 6e 2d 75 6e 69 6f 6e 20 28 69 66 20 28 65 78 74 | ush........:alien-union.(if.(ext |
| 205ac0 | 3a 69 6e 66 6f 20 61 6c 69 65 6e 2d 74 79 70 65 20 75 6e 69 6f 6e 20 73 79 6d 62 6f 6c 29 0a 20 | :info.alien-type.union.symbol).. |
| 205ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 6e 69 6c | ........................(doc.nil |
| 205b00 | 29 29 29 0a 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 75 73 68 0a 20 20 20 20 20 20 20 3a 61 6c | ))).......(maybe-push........:al |
| 205b20 | 69 65 6e 2d 65 6e 75 6d 20 28 69 66 20 28 65 78 74 3a 69 6e 66 6f 20 61 6c 69 65 6e 2d 74 79 70 | ien-enum.(if.(ext:info.alien-typ |
| 205b40 | 65 20 65 6e 75 6d 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.enum.symbol).................. |
| 205b60 | 20 20 20 20 20 20 28 64 6f 63 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 72 65 73 75 6c 74 29 29 | ......(doc.nil))).......result)) |
| 205b80 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 64 | )..(defimplementation.describe-d |
| 205ba0 | 65 66 69 6e 69 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 20 6e 61 6d 65 73 70 61 63 65 29 0a 20 20 28 | efinition.(symbol.namespace)...( |
| 205bc0 | 64 65 73 63 72 69 62 65 20 28 65 63 61 73 65 20 6e 61 6d 65 73 70 61 63 65 0a 20 20 20 20 20 20 | describe.(ecase.namespace....... |
| 205be0 | 20 20 20 20 20 20 20 20 28 3a 76 61 72 69 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(:variable.............. |
| 205c00 | 20 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 66 75 6e 63 74 | ..symbol)...............((:funct |
| 205c20 | 69 6f 6e 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | ion.:generic-function).......... |
| 205c40 | 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 0a | ......(symbol-function.symbol)). |
| 205c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 65 74 66 0a 20 20 20 20 20 20 20 20 20 20 20 | ..............(:setf............ |
| 205c80 | 20 20 20 20 28 6f 72 20 28 65 78 74 3a 69 6e 66 6f 20 73 65 74 66 20 69 6e 76 65 72 73 65 20 73 | ....(or.(ext:info.setf.inverse.s |
| 205ca0 | 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 69 | ymbol)....................(ext:i |
| 205cc0 | 6e 66 6f 20 73 65 74 66 20 65 78 70 61 6e 64 65 72 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 | nfo.setf.expander.symbol)))..... |
| 205ce0 | 20 20 20 20 20 20 20 20 20 20 28 3a 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(:type................ |
| 205d00 | 28 6b 65 72 6e 65 6c 3a 76 61 6c 75 65 73 2d 73 70 65 63 69 66 69 65 72 2d 74 79 70 65 20 73 79 | (kernel:values-specifier-type.sy |
| 205d20 | 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6c 61 73 73 0a 20 20 20 | mbol))...............(:class.... |
| 205d40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 73 79 6d 62 6f 6c 29 29 | ............(find-class.symbol)) |
| 205d60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 69 65 6e 2d 73 74 72 75 63 74 0a 20 20 | ...............(:alien-struct... |
| 205d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 69 6e 66 6f 20 3a 61 6c 69 65 6e 2d 74 79 | .............(ext:info.:alien-ty |
| 205da0 | 70 65 20 3a 73 74 72 75 63 74 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | pe.:struct.symbol))............. |
| 205dc0 | 20 20 28 3a 61 6c 69 65 6e 2d 75 6e 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ..(:alien-union................( |
| 205de0 | 65 78 74 3a 69 6e 66 6f 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 3a 75 6e 69 6f 6e 20 73 79 6d 62 | ext:info.:alien-type.:union.symb |
| 205e00 | 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 61 6c 69 65 6e 2d 65 6e 75 6d 0a | ol))...............(:alien-enum. |
| 205e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 69 6e 66 6f 20 3a 61 6c 69 65 6e 2d | ...............(ext:info.:alien- |
| 205e40 | 74 79 70 65 20 3a 65 6e 75 6d 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | type.:enum.symbol))............. |
| 205e60 | 20 20 28 3a 61 6c 69 65 6e 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 | ..(:alien-type................(e |
| 205e80 | 63 61 73 65 20 28 65 78 74 3a 69 6e 66 6f 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 3a 6b 69 6e 64 | case.(ext:info.:alien-type.:kind |
| 205ea0 | 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 70 72 69 6d | .symbol)..................(:prim |
| 205ec0 | 69 74 69 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 | itive...................(let.((a |
| 205ee0 | 6c 69 65 6e 3a 3a 2a 76 61 6c 75 65 73 2d 74 79 70 65 2d 6f 6b 61 79 2a 20 74 29 29 0a 20 20 20 | lien::*values-type-okay*.t)).... |
| 205f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 65 78 74 3a 69 | .................(funcall.(ext:i |
| 205f20 | 6e 66 6f 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 3a 74 72 61 6e 73 6c 61 74 6f 72 20 73 79 6d 62 | nfo.:alien-type.:translator.symb |
| 205f40 | 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ol)............................. |
| 205f60 | 20 28 6c 69 73 74 20 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(list.symbol))))............... |
| 205f80 | 20 20 20 28 28 3a 64 65 66 69 6e 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...((:defined).................. |
| 205fa0 | 20 28 65 78 74 3a 69 6e 66 6f 20 3a 61 6c 69 65 6e 2d 74 79 70 65 20 3a 64 65 66 69 6e 69 74 69 | .(ext:info.:alien-type.:definiti |
| 205fc0 | 6f 6e 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 75 | on.symbol))..................(:u |
| 205fe0 | 6e 6b 6e 6f 77 6e 20 3a 75 6e 6b 6f 77 6e 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 41 72 67 75 | nknown.:unkown))))))..;;;;;.Argu |
| 206000 | 6d 65 6e 74 20 6c 69 73 74 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 | ment.lists..(defimplementation.a |
| 206020 | 72 67 6c 69 73 74 20 28 66 75 6e 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 66 75 6e 0a 20 20 | rglist.(fun)...(etypecase.fun... |
| 206040 | 20 20 28 66 75 6e 63 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 66 75 | ..(function.(function-arglist.fu |
| 206060 | 6e 29 29 0a 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 | n)).....(symbol.(function-arglis |
| 206080 | 74 20 28 6f 72 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 29 0a 20 20 20 20 20 | t.(or.(macro-function.fun)...... |
| 2060a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 | .............................(sy |
| 2060c0 | 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | mbol-function.fun))))))..(defun. |
| 2060e0 | 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 28 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 | function-arglist.(fun)...(let.(( |
| 206100 | 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 76 61 6c 3a 69 6e | arglist..........(cond.((eval:in |
| 206120 | 74 65 72 70 72 65 74 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 66 75 6e 29 0a 20 20 20 20 20 20 | terpreted-function-p.fun)....... |
| 206140 | 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 3a 69 6e 74 65 72 70 72 65 74 65 64 2d 66 75 6e 63 | ..........(eval:interpreted-func |
| 206160 | 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion-arglist.fun)).............. |
| 206180 | 20 20 28 28 70 63 6c 3a 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 66 75 6e 29 | ..((pcl::generic-function-p.fun) |
| 2061a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 63 6c 3a 67 65 6e 65 72 69 63 2d 66 75 | .................(pcl:generic-fu |
| 2061c0 | 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 66 75 6e 29 29 0a 20 20 20 20 20 20 20 | nction-lambda-list.fun))........ |
| 2061e0 | 20 20 20 20 20 20 20 20 28 28 63 3a 3a 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 6f 72 2d 63 6c | ........((c::byte-function-or-cl |
| 206200 | 6f 73 75 72 65 2d 70 20 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 79 | osure-p.fun).................(by |
| 206220 | 74 65 2d 63 6f 64 65 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 66 75 6e 29 29 0a 20 | te-code-function-arglist.fun)).. |
| 206240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e | ..............((kernel:%function |
| 206260 | 2d 61 72 67 6c 69 73 74 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 73 65 6c 66 20 | -arglist.(kernel:%function-self. |
| 206280 | 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 | fun)).................(handler-c |
| 2062a0 | 61 73 65 20 28 72 65 61 64 2d 61 72 67 6c 69 73 74 20 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 | ase.(read-arglist.fun).......... |
| 2062c0 | 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c | .........(error.().:not-availabl |
| 2062e0 | 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 69 73 20 73 68 6f 75 | e)))................;;.this.shou |
| 206300 | 6c 64 20 77 6f 72 6b 20 62 6f 74 68 20 66 6f 72 20 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d | ld.work.both.for.compiled-debug- |
| 206320 | 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 6e 64 20 66 | function................;;.and.f |
| 206340 | 6f 72 20 69 6e 74 65 72 70 72 65 74 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 | or.interpreted-debug-function... |
| 206360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............(t................. |
| 206380 | 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 | (handler-case.(debug-function-ar |
| 2063a0 | 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | glist........................... |
| 2063c0 | 20 20 20 20 20 28 64 69 3a 3a 66 75 6e 63 74 69 6f 6e 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f | .....(di::function-debug-functio |
| 2063e0 | 6e 20 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 3a 75 6e | n.fun))...................(di:un |
| 206400 | 68 61 6e 64 6c 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 | handled-condition.().:not-availa |
| 206420 | 62 6c 65 29 29 29 29 29 29 0a 20 20 20 20 28 63 68 65 63 6b 2d 74 79 70 65 20 61 72 67 6c 69 73 | ble)))))).....(check-type.arglis |
| 206440 | 74 20 28 6f 72 20 6c 69 73 74 20 28 6d 65 6d 62 65 72 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c | t.(or.list.(member.:not-availabl |
| 206460 | 65 29 29 29 0a 20 20 20 20 61 72 67 6c 69 73 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | e))).....arglist))..(defimplemen |
| 206480 | 74 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 66 75 6e 63 74 69 6f 6e 29 0a | tation.function-name.(function). |
| 2064a0 | 20 20 28 63 6f 6e 64 20 28 28 65 76 61 6c 3a 69 6e 74 65 72 70 72 65 74 65 64 2d 66 75 6e 63 74 | ..(cond.((eval:interpreted-funct |
| 2064c0 | 69 6f 6e 2d 70 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 3a 69 | ion-p.function)..........(eval:i |
| 2064e0 | 6e 74 65 72 70 72 65 74 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 63 74 69 6f | nterpreted-function-name.functio |
| 206500 | 6e 29 29 0a 20 20 20 20 20 20 20 20 28 28 70 63 6c 3a 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 | n)).........((pcl::generic-funct |
| 206520 | 69 6f 6e 2d 70 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 70 63 6c 3a 3a 67 | ion-p.function)..........(pcl::g |
| 206540 | 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 29 0a | eneric-function-name.function)). |
| 206560 | 20 20 20 20 20 20 20 20 28 28 63 3a 3a 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 6f 72 2d 63 6c | ........((c::byte-function-or-cl |
| 206580 | 6f 73 75 72 65 2d 70 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 63 3a 3a 62 | osure-p.function)..........(c::b |
| 2065a0 | 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 | yte-function-name.function)).... |
| 2065c0 | 20 20 20 20 20 28 74 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 | .....(t.(kernel:%function-name.( |
| 2065e0 | 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 73 65 6c 66 20 66 75 6e 63 74 69 6f 6e 29 29 | kernel:%function-self.function)) |
| 206600 | 29 29 29 0a 0a 3b 3b 3b 20 41 20 73 69 6d 70 6c 65 20 63 61 73 65 3a 20 74 68 65 20 61 72 67 6c | )))..;;;.A.simple.case:.the.argl |
| 206620 | 69 73 74 20 69 73 20 61 76 61 69 6c 61 62 6c 65 20 61 73 20 61 20 73 74 72 69 6e 67 20 74 68 61 | ist.is.available.as.a.string.tha |
| 206640 | 74 20 77 65 20 63 61 6e 0a 3b 3b 3b 20 60 72 65 61 64 27 2e 0a 0a 28 64 65 66 75 6e 20 72 65 61 | t.we.can.;;;.`read'...(defun.rea |
| 206660 | 64 2d 61 72 67 6c 69 73 74 20 28 66 6e 29 0a 20 20 22 50 61 72 73 65 20 74 68 65 20 61 72 67 6c | d-arglist.(fn)..."Parse.the.argl |
| 206680 | 69 73 74 2d 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 6f 62 6a 65 63 | ist-string.of.the.function.objec |
| 2066a0 | 74 20 46 4e 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 20 28 6b 65 72 6e 65 6c 3a 25 | t.FN."...(let.((string.(kernel:% |
| 2066c0 | 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | function-arglist................ |
| 2066e0 | 20 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 73 65 6c 66 20 66 6e 29 29 29 0a 20 | ..(kernel:%function-self.fn))).. |
| 206700 | 20 20 20 20 20 20 20 28 70 61 63 6b 61 67 65 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 0a 20 20 | .......(package.(find-package... |
| 206720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 62 | ................(c::compiled-deb |
| 206740 | 75 67 2d 69 6e 66 6f 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ug-info-package................. |
| 206760 | 20 20 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 64 65 62 75 67 2d 69 6e 66 6f 0a 20 20 20 20 | ...(kernel:%code-debug-info..... |
| 206780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 6d 3a 3a 66 69 6e 64 2d 63 6f 64 65 2d 6f | ................(vm::find-code-o |
| 2067a0 | 62 6a 65 63 74 20 66 6e 29 29 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 73 74 61 6e 64 61 72 | bject.fn)))))).....(with-standar |
| 2067c0 | 64 2d 69 6f 2d 73 79 6e 74 61 78 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 70 61 63 6b 61 67 | d-io-syntax.......(let.((*packag |
| 2067e0 | 65 2a 20 28 6f 72 20 70 61 63 6b 61 67 65 20 2a 70 61 63 6b 61 67 65 2a 29 29 29 0a 20 20 20 20 | e*.(or.package.*package*)))..... |
| 206800 | 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 | ....(read-from-string.string)))) |
| 206820 | 29 0a 0a 3b 3b 3b 20 41 20 68 61 72 64 65 72 20 63 61 73 65 3a 20 61 6e 20 61 70 70 72 6f 78 69 | )..;;;.A.harder.case:.an.approxi |
| 206840 | 6d 61 74 65 20 61 72 67 6c 69 73 74 20 69 73 20 64 65 72 69 76 65 64 20 66 72 6f 6d 20 61 76 61 | mate.arglist.is.derived.from.ava |
| 206860 | 69 6c 61 62 6c 65 0a 3b 3b 3b 20 64 65 62 75 67 67 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e | ilable.;;;.debugging.information |
| 206880 | 2e 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 | ...(defun.debug-function-arglist |
| 2068a0 | 20 28 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 44 65 72 69 76 65 20 74 68 65 20 | .(debug-function)..."Derive.the. |
| 2068c0 | 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 6f 66 20 44 45 42 55 47 2d 46 55 4e 43 54 49 4f 4e 20 | argument.list.of.DEBUG-FUNCTION. |
| 2068e0 | 66 72 6f 6d 20 64 65 62 75 67 20 69 6e 66 6f 2e 22 0a 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 | from.debug.info."...(let.((args. |
| 206900 | 28 64 69 3a 3a 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 | (di::debug-function-lambda-list. |
| 206920 | 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 | debug-function)).........(requir |
| 206940 | 65 64 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 6f 70 74 69 6f 6e 61 6c 20 27 28 29 29 0a 20 | ed.'()).........(optional.'()).. |
| 206960 | 20 20 20 20 20 20 20 28 72 65 73 74 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 6b 65 79 20 27 | .......(rest.'()).........(key.' |
| 206980 | 28 29 29 29 0a 20 20 20 20 3b 3b 20 63 6f 6c 6c 65 63 74 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 | ())).....;;.collect.the.names.of |
| 2069a0 | 20 64 65 62 75 67 2d 76 61 72 73 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 61 72 67 20 61 72 67 | .debug-vars.....(dolist.(arg.arg |
| 2069c0 | 73 29 0a 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 61 72 67 0a 20 20 20 20 20 20 20 20 | s).......(etypecase.arg......... |
| 2069e0 | 28 64 69 3a 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 28 70 75 | (di::debug-variable..........(pu |
| 206a00 | 73 68 20 28 64 69 3a 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 73 79 6d 62 6f 6c 20 61 72 | sh.(di::debug-variable-symbol.ar |
| 206a20 | 67 29 20 72 65 71 75 69 72 65 64 29 29 0a 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 3a | g).required)).........((member.: |
| 206a40 | 64 65 6c 65 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 27 3a 64 65 6c 65 74 65 | deleted)..........(push.':delete |
| 206a60 | 64 20 72 65 71 75 69 72 65 64 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 | d.required)).........(cons...... |
| 206a80 | 20 20 20 20 28 65 63 61 73 65 20 28 63 61 72 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ....(ecase.(car.arg)............ |
| 206aa0 | 28 3a 6b 65 79 77 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 73 65 63 | (:keyword.............(push.(sec |
| 206ac0 | 6f 6e 64 20 61 72 67 29 20 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3a 6f 70 74 69 | ond.arg).key))............(:opti |
| 206ae0 | 6f 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 64 65 62 75 67 2d 76 61 | onal.............(push.(debug-va |
| 206b00 | 72 69 61 62 6c 65 2d 73 79 6d 62 6f 6c 2d 6f 72 2d 64 65 6c 65 74 65 64 20 28 73 65 63 6f 6e 64 | riable-symbol-or-deleted.(second |
| 206b20 | 20 61 72 67 29 29 20 6f 70 74 69 6f 6e 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3a 72 | .arg)).optional))............(:r |
| 206b40 | 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 64 65 62 75 67 2d 76 61 72 | est.............(push.(debug-var |
| 206b60 | 69 61 62 6c 65 2d 73 79 6d 62 6f 6c 2d 6f 72 2d 64 65 6c 65 74 65 64 20 28 73 65 63 6f 6e 64 20 | iable-symbol-or-deleted.(second. |
| 206b80 | 61 72 67 29 29 20 72 65 73 74 29 29 29 29 29 29 0a 20 20 20 20 3b 3b 20 69 6e 74 65 72 73 70 65 | arg)).rest)))))).....;;.interspe |
| 206ba0 | 72 73 65 20 6c 61 6d 62 64 61 20 6b 65 79 77 6f 72 64 73 20 61 73 20 6e 65 65 64 65 64 0a 20 20 | rse.lambda.keywords.as.needed... |
| 206bc0 | 20 20 28 61 70 70 65 6e 64 20 28 6e 72 65 76 65 72 73 65 20 72 65 71 75 69 72 65 64 29 0a 20 20 | ..(append.(nreverse.required)... |
| 206be0 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6f 70 74 69 6f 6e 61 6c 20 28 63 6f 6e 73 20 27 26 6f | ..........(if.optional.(cons.'&o |
| 206c00 | 70 74 69 6f 6e 61 6c 20 28 6e 72 65 76 65 72 73 65 20 6f 70 74 69 6f 6e 61 6c 29 29 29 0a 20 20 | ptional.(nreverse.optional)))... |
| 206c20 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 72 65 73 74 20 28 63 6f 6e 73 20 27 26 72 65 73 74 20 | ..........(if.rest.(cons.'&rest. |
| 206c40 | 28 6e 72 65 76 65 72 73 65 20 72 65 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | (nreverse.rest))).............(i |
| 206c60 | 66 20 6b 65 79 20 28 63 6f 6e 73 20 27 26 6b 65 79 20 28 6e 72 65 76 65 72 73 65 20 6b 65 79 29 | f.key.(cons.'&key.(nreverse.key) |
| 206c80 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 73 79 6d | )))))..(defun.debug-variable-sym |
| 206ca0 | 62 6f 6c 2d 6f 72 2d 64 65 6c 65 74 65 64 20 28 76 61 72 29 0a 20 20 28 65 74 79 70 65 63 61 73 | bol-or-deleted.(var)...(etypecas |
| 206cc0 | 65 20 76 61 72 0a 20 20 20 20 28 64 69 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 0a 20 20 20 | e.var.....(di:debug-variable.... |
| 206ce0 | 20 20 28 64 69 3a 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 73 79 6d 62 6f 6c 20 76 61 72 | ..(di::debug-variable-symbol.var |
| 206d00 | 29 29 0a 20 20 20 20 28 28 6d 65 6d 62 65 72 20 3a 64 65 6c 65 74 65 64 29 0a 20 20 20 20 20 27 | )).....((member.:deleted)......' |
| 206d20 | 23 3a 64 65 6c 65 74 65 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 79 6d 62 6f 6c 2d 64 65 62 75 | #:deleted)))..(defun.symbol-debu |
| 206d40 | 67 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 28 66 6e 61 6d 65 29 0a 20 20 22 52 65 | g-function-arglist.(fname)..."Re |
| 206d60 | 74 75 72 6e 20 46 4e 41 4d 45 27 73 20 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c | turn.FNAME's.debug-function-argl |
| 206d80 | 69 73 74 20 61 6e 64 20 25 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 2e 0a 41 20 75 74 69 | ist.and.%function-arglist..A.uti |
| 206da0 | 6c 69 74 79 20 66 6f 72 20 64 65 62 75 67 67 69 6e 67 20 44 45 42 55 47 2d 46 55 4e 43 54 49 4f | lity.for.debugging.DEBUG-FUNCTIO |
| 206dc0 | 4e 2d 41 52 47 4c 49 53 54 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 6e 20 28 66 64 65 66 69 6e 69 | N-ARGLIST."...(let.((fn.(fdefini |
| 206de0 | 74 69 6f 6e 20 66 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 28 64 65 62 75 67 | tion.fname))).....(values.(debug |
| 206e00 | 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 28 64 69 3a 3a 66 75 6e 63 74 69 6f 6e 2d | -function-arglist.(di::function- |
| 206e20 | 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | debug-function.fn))............. |
| 206e40 | 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 28 6b 65 72 6e 65 | (kernel:%function-arglist.(kerne |
| 206e60 | 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 73 65 6c 66 20 66 6e 29 29 29 29 29 0a 0a 3b 3b 3b 20 44 65 | l:%function-self.fn)))))..;;;.De |
| 206e80 | 72 69 76 69 6e 67 20 61 72 67 6c 69 73 74 73 20 66 6f 72 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 | riving.arglists.for.byte-compile |
| 206ea0 | 64 20 66 75 6e 63 74 69 6f 6e 73 3a 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 62 79 74 65 2d 63 6f 64 | d.functions:.;;;.(defun.byte-cod |
| 206ec0 | 65 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 28 66 6e 29 0a 20 20 3b 3b 20 54 68 65 | e-function-arglist.(fn)...;;.The |
| 206ee0 | 72 65 20 64 6f 65 73 6e 27 74 20 73 65 65 6d 20 74 6f 20 62 65 20 6d 75 63 68 20 61 72 67 6c 69 | re.doesn't.seem.to.be.much.argli |
| 206f00 | 73 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 72 6f 75 6e 64 20 66 6f 72 0a 20 20 3b 3b 20 62 | st.information.around.for...;;.b |
| 206f20 | 79 74 65 2d 63 6f 64 65 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 55 73 65 20 74 68 65 20 61 72 67 | yte-code.functions...Use.the.arg |
| 206f40 | 2d 63 6f 75 6e 74 20 61 6e 64 20 72 65 74 75 72 6e 20 73 6f 6d 65 74 68 69 6e 67 20 6c 69 6b 65 | -count.and.return.something.like |
| 206f60 | 0a 20 20 3b 3b 20 28 61 72 67 30 20 61 72 67 31 20 2e 2e 2e 29 0a 20 20 28 65 74 79 70 65 63 61 | ...;;.(arg0.arg1....)...(etypeca |
| 206f80 | 73 65 20 66 6e 0a 20 20 20 20 28 63 3a 3a 73 69 6d 70 6c 65 2d 62 79 74 65 2d 66 75 6e 63 74 69 | se.fn.....(c::simple-byte-functi |
| 206fa0 | 6f 6e 0a 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 62 65 6c 6f 77 | on......(loop.for.i.from.0.below |
| 206fc0 | 20 28 63 3a 3a 73 69 6d 70 6c 65 2d 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 6e 75 6d 2d 61 72 | .(c::simple-byte-function-num-ar |
| 206fe0 | 67 73 20 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6d 61 6b 65 2d | gs.fn)............collect.(make- |
| 207000 | 61 72 67 2d 73 79 6d 62 6f 6c 20 69 29 29 29 0a 20 20 20 20 28 63 3a 3a 68 61 69 72 79 2d 62 79 | arg-symbol.i))).....(c::hairy-by |
| 207020 | 74 65 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 28 68 61 69 72 79 2d 62 79 74 65 2d 66 75 6e | te-function......(hairy-byte-fun |
| 207040 | 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 66 6e 29 29 0a 20 20 20 20 28 63 3a 3a 62 79 74 65 2d | ction-arglist.fn)).....(c::byte- |
| 207060 | 63 6c 6f 73 75 72 65 0a 20 20 20 20 20 28 62 79 74 65 2d 63 6f 64 65 2d 66 75 6e 63 74 69 6f 6e | closure......(byte-code-function |
| 207080 | 2d 61 72 67 6c 69 73 74 20 28 63 3a 3a 62 79 74 65 2d 63 6c 6f 73 75 72 65 2d 66 75 6e 63 74 69 | -arglist.(c::byte-closure-functi |
| 2070a0 | 6f 6e 20 66 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 61 72 67 2d 73 79 6d 62 | on.fn)))))..(defun.make-arg-symb |
| 2070c0 | 6f 6c 20 28 69 29 0a 20 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 28 66 6f 72 6d 61 74 20 6e 69 | ol.(i)...(make-symbol.(format.ni |
| 2070e0 | 6c 20 22 7e 41 7e 44 22 20 28 73 74 72 69 6e 67 20 27 61 72 67 29 20 69 29 29 29 0a 0a 3b 3b 3b | l."~A~D".(string.'arg).i)))..;;; |
| 207100 | 20 41 20 22 68 61 69 72 79 22 20 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 20 69 73 20 6f 6e 65 20 | .A."hairy".byte-function.is.one. |
| 207120 | 74 68 61 74 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 0a | that.takes.a.variable.number.of. |
| 207140 | 3b 3b 3b 20 61 72 67 75 6d 65 6e 74 73 2e 20 60 68 61 69 72 79 2d 62 79 74 65 2d 66 75 6e 63 74 | ;;;.arguments..`hairy-byte-funct |
| 207160 | 69 6f 6e 27 20 69 73 20 61 20 74 79 70 65 20 66 72 6f 6d 20 74 68 65 20 62 79 74 65 63 6f 64 65 | ion'.is.a.type.from.the.bytecode |
| 207180 | 0a 3b 3b 3b 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 68 61 69 | .;;;.interpreter..;;;.(defun.hai |
| 2071a0 | 72 79 2d 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 28 66 6e 29 0a 20 20 | ry-byte-function-arglist.(fn)... |
| 2071c0 | 28 6c 65 74 20 28 28 63 6f 75 6e 74 65 72 20 2d 31 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 | (let.((counter.-1)).....(flet.(( |
| 2071e0 | 6e 65 78 74 2d 61 72 67 20 28 29 20 28 6d 61 6b 65 2d 61 72 67 2d 73 79 6d 62 6f 6c 20 28 69 6e | next-arg.().(make-arg-symbol.(in |
| 207200 | 63 66 20 63 6f 75 6e 74 65 72 29 29 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 73 74 72 75 63 | cf.counter)))).......(with-struc |
| 207220 | 74 20 28 63 3a 3a 68 61 69 72 79 2d 62 79 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 20 6d 69 6e 2d 61 | t.(c::hairy-byte-function-.min-a |
| 207240 | 72 67 73 20 6d 61 78 2d 61 72 67 73 20 72 65 73 74 2d 61 72 67 2d 70 0a 20 20 20 20 20 20 20 20 | rgs.max-args.rest-arg-p......... |
| 207260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 207280 | 20 20 20 20 6b 65 79 77 6f 72 64 73 2d 70 20 6b 65 79 77 6f 72 64 73 29 20 66 6e 0a 20 20 20 20 | ....keywords-p.keywords).fn..... |
| 2072a0 | 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 6c 69 73 74 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 | ....(let.((arglist.'())......... |
| 2072c0 | 20 20 20 20 20 20 28 6f 70 74 69 6f 6e 61 6c 20 28 2d 20 6d 61 78 2d 61 72 67 73 20 6d 69 6e 2d | ......(optional.(-.max-args.min- |
| 2072e0 | 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 58 58 58 20 69 73 6e 27 74 20 74 | args)))...........;;.XXX.isn't.t |
| 207300 | 68 65 72 65 20 61 20 62 65 74 74 65 72 20 77 61 79 20 74 6f 20 77 72 69 74 65 20 74 68 69 73 3f | here.a.better.way.to.write.this? |
| 207320 | 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 4c 6f 6f 6b 73 20 66 69 6e 65 20 74 6f 20 6d 65 2e | ...........;;.(Looks.fine.to.me. |
| 207340 | 20 2d 6c 75 6b 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 6d 69 | .-luke)...........(dotimes.(i.mi |
| 207360 | 6e 2d 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6e 65 78 74 2d | n-args).............(push.(next- |
| 207380 | 61 72 67 29 20 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 | arg).arglist))...........(when.( |
| 2073a0 | 70 6c 75 73 70 20 6f 70 74 69 6f 6e 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 | plusp.optional).............(pus |
| 2073c0 | 68 20 27 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 | h.'&optional.arglist)........... |
| 2073e0 | 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 6f 70 74 69 6f 6e 61 6c 29 0a 20 20 20 20 20 20 20 20 | ..(dotimes.(i.optional)......... |
| 207400 | 20 20 20 20 20 20 28 70 75 73 68 20 28 6e 65 78 74 2d 61 72 67 29 20 61 72 67 6c 69 73 74 29 29 | ......(push.(next-arg).arglist)) |
| 207420 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 73 74 2d 61 72 67 2d 70 0a 20 20 20 | )...........(when.rest-arg-p.... |
| 207440 | 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 27 26 72 65 73 74 20 61 72 67 6c 69 73 74 29 0a 20 | .........(push.'&rest.arglist).. |
| 207460 | 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6e 65 78 74 2d 61 72 67 29 20 61 72 67 6c | ...........(push.(next-arg).argl |
| 207480 | 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6b 65 79 77 6f 72 64 73 2d 70 | ist))...........(when.keywords-p |
| 2074a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 27 26 6b 65 79 20 61 72 67 6c 69 73 74 | .............(push.'&key.arglist |
| 2074c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 6b 65 79 20 5f 20 5f | ).............(loop.for.(key._._ |
| 2074e0 | 5f 29 20 69 6e 20 6b 65 79 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | _).in.keywords.................. |
| 207500 | 20 64 6f 20 28 70 75 73 68 20 6b 65 79 20 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 | .do.(push.key.arglist))......... |
| 207520 | 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 6b 65 79 77 6f 72 64 73 2d 70 20 3a 61 6c 6c 6f 77 2d | ....(when.(eq.keywords-p.:allow- |
| 207540 | 6f 74 68 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 27 26 61 6c | others)...............(push.'&al |
| 207560 | 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 | low-other-keys.arglist)))....... |
| 207580 | 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 61 72 67 6c 69 73 74 29 29 29 29 29 29 0a 0a 0c 0a 3b | ....(nreverse.arglist))))))....; |
| 2075a0 | 3b 3b 3b 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2e 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | ;;;.Miscellaneous...(defimplemen |
| 2075c0 | 74 61 74 69 6f 6e 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 28 66 6f 72 6d 20 26 6f 70 | tation.macroexpand-all.(form.&op |
| 2075e0 | 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 28 77 61 6c 6b 65 72 3a 6d 61 63 72 6f 65 78 70 61 6e | tional.env)...(walker:macroexpan |
| 207600 | 64 2d 61 6c 6c 20 66 6f 72 6d 20 65 6e 76 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | d-all.form.env))..(defimplementa |
| 207620 | 74 69 6f 6e 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 28 66 6f 72 | tion.compiler-macroexpand-1.(for |
| 207640 | 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 28 65 78 74 3a 63 6f 6d 70 69 6c 65 72 | m.&optional.env)...(ext:compiler |
| 207660 | 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 66 6f 72 6d 20 65 6e 76 29 29 0a 0a 28 64 65 66 69 | -macroexpand-1.form.env))..(defi |
| 207680 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 | mplementation.compiler-macroexpa |
| 2076a0 | 6e 64 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 28 65 78 74 3a 63 | nd.(form.&optional.env)...(ext:c |
| 2076c0 | 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 66 6f 72 6d 20 65 6e 76 29 29 0a 0a | ompiler-macroexpand.form.env)).. |
| 2076e0 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 | (defimplementation.set-default-d |
| 207700 | 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 73 65 74 66 20 28 65 78 | irectory.(directory)...(setf.(ex |
| 207720 | 74 3a 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 20 28 6e 61 6d 65 73 74 72 69 6e 67 | t:default-directory).(namestring |
| 207740 | 20 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 3b 3b 20 53 65 74 74 69 6e 67 20 2a 64 65 66 61 75 | .directory))...;;.Setting.*defau |
| 207760 | 6c 74 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 20 74 6f 20 61 6e 20 61 62 73 6f | lt-pathname-defaults*.to.an.abso |
| 207780 | 6c 75 74 65 20 64 69 72 65 63 74 6f 72 79 0a 20 20 3b 3b 20 6d 61 6b 65 73 20 74 68 65 20 62 65 | lute.directory...;;.makes.the.be |
| 2077a0 | 68 61 76 69 6f 72 20 6f 66 20 4d 45 52 47 45 2d 50 41 54 48 4e 41 4d 45 53 20 61 20 62 69 74 20 | havior.of.MERGE-PATHNAMES.a.bit. |
| 2077c0 | 6d 6f 72 65 20 69 6e 74 75 69 74 69 76 65 2e 0a 20 20 28 73 65 74 66 20 2a 64 65 66 61 75 6c 74 | more.intuitive....(setf.*default |
| 2077e0 | 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 20 28 70 61 74 68 6e 61 6d 65 20 28 65 | -pathname-defaults*.(pathname.(e |
| 207800 | 78 74 3a 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 28 64 65 66 61 75 | xt:default-directory)))...(defau |
| 207820 | 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | lt-directory))..(defimplementati |
| 207840 | 6f 6e 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 28 6e 61 6d 65 73 | on.default-directory.()...(names |
| 207860 | 74 72 69 6e 67 20 28 65 78 74 3a 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a | tring.(ext:default-directory))). |
| 207880 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65 74 70 69 64 20 28 29 0a 20 20 | .(defimplementation.getpid.()... |
| 2078a0 | 28 75 6e 69 78 3a 75 6e 69 78 2d 67 65 74 70 69 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | (unix:unix-getpid))..(defimpleme |
| 2078c0 | 6e 74 61 74 69 6f 6e 20 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 | ntation.lisp-implementation-type |
| 2078e0 | 2d 6e 61 6d 65 20 28 29 0a 20 20 22 63 6d 75 63 6c 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | -name.()..."cmucl")..(defimpleme |
| 207900 | 6e 74 61 74 69 6f 6e 20 71 75 69 74 2d 6c 69 73 70 20 28 29 0a 20 20 28 65 78 74 3a 3a 71 75 69 | ntation.quit-lisp.()...(ext::qui |
| 207920 | 74 29 29 0a 0a 3b 3b 3b 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 7b 73 74 72 65 61 6d 2c 66 69 6c | t))..;;;.source-path-{stream,fil |
| 207940 | 65 2c 73 74 72 69 6e 67 2c 65 74 63 7d 2d 70 6f 73 69 74 69 6f 6e 20 6d 6f 76 65 64 20 69 6e 74 | e,string,etc}-position.moved.int |
| 207960 | 6f 0a 3b 3b 3b 20 73 6f 75 72 63 65 2d 70 61 74 68 2d 70 61 72 73 65 72 0a 0a 0c 0a 3b 3b 3b 3b | o.;;;.source-path-parser....;;;; |
| 207980 | 20 44 65 62 75 67 67 69 6e 67 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c 64 62 2d 73 74 61 63 6b 2d | .Debugging..(defvar.*sldb-stack- |
| 2079a0 | 74 6f 70 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 | top*)..(defimplementation.call-w |
| 2079c0 | 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 64 65 62 75 67 | ith-debugging-environment.(debug |
| 2079e0 | 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 0a 20 20 28 75 6e 69 78 3a 75 6e 69 78 2d 73 69 67 73 65 74 | ger-loop-fn)...(unix:unix-sigset |
| 207a00 | 6d 61 73 6b 20 30 29 0a 20 20 28 6c 65 74 2a 20 28 28 2a 73 6c 64 62 2d 73 74 61 63 6b 2d 74 6f | mask.0)...(let*.((*sldb-stack-to |
| 207a20 | 70 2a 20 28 6f 72 20 64 65 62 75 67 3a 2a 73 74 61 63 6b 2d 74 6f 70 2d 68 69 6e 74 2a 20 28 64 | p*.(or.debug:*stack-top-hint*.(d |
| 207a40 | 69 3a 74 6f 70 2d 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 3a 2a | i:top-frame)))..........(debug:* |
| 207a60 | 73 74 61 63 6b 2d 74 6f 70 2d 68 69 6e 74 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 6b | stack-top-hint*.nil)..........(k |
| 207a80 | 65 72 6e 65 6c 3a 2a 63 75 72 72 65 6e 74 2d 6c 65 76 65 6c 2a 20 30 29 29 0a 20 20 20 20 28 68 | ernel:*current-level*.0)).....(h |
| 207aa0 | 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 64 69 3a 3a 75 6e 68 61 6e 64 6c 65 64 2d 63 6f 6e 64 | andler-bind.((di::unhandled-cond |
| 207ac0 | 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 | ition.....................(lambd |
| 207ae0 | 61 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | a.(condition)................... |
| 207b00 | 20 20 20 20 28 65 72 72 6f 72 20 27 73 6c 64 62 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 | ....(error.'sldb-condition...... |
| 207b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 | ........................:origina |
| 207b40 | 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 | l-condition.condition))))....... |
| 207b60 | 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 | (unwind-protect............(prog |
| 207b80 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 28 6f 72 29 28 73 79 73 3a 73 63 72 75 62 2d | n..............#+(or)(sys:scrub- |
| 207ba0 | 63 6f 6e 74 72 6f 6c 2d 73 74 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e | control-stack)..............(fun |
| 207bc0 | 63 61 6c 6c 20 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 29 0a 20 20 20 20 20 20 20 20 | call.debugger-loop-fn))......... |
| 207be0 | 23 2b 28 6f 72 29 28 73 79 73 3a 73 63 72 75 62 2d 63 6f 6e 74 72 6f 6c 2d 73 74 61 63 6b 29 0a | #+(or)(sys:scrub-control-stack). |
| 207c00 | 20 20 20 20 20 20 20 20 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 64 6f 77 6e 20 | ........))))..(defun.frame-down. |
| 207c20 | 28 66 72 61 6d 65 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 64 69 3a 66 72 61 6d | (frame)...(handler-case.(di:fram |
| 207c40 | 65 2d 64 6f 77 6e 20 66 72 61 6d 65 29 0a 20 20 20 20 28 64 69 3a 6e 6f 2d 64 65 62 75 67 2d 69 | e-down.frame).....(di:no-debug-i |
| 207c60 | 6e 66 6f 20 28 29 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 74 68 2d 66 72 61 6d 65 20 | nfo.().nil)))..(defun.nth-frame. |
| 207c80 | 28 69 6e 64 65 78 29 0a 20 20 28 64 6f 20 28 28 66 72 61 6d 65 20 2a 73 6c 64 62 2d 73 74 61 63 | (index)...(do.((frame.*sldb-stac |
| 207ca0 | 6b 2d 74 6f 70 2a 20 28 66 72 61 6d 65 2d 64 6f 77 6e 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 | k-top*.(frame-down.frame))...... |
| 207cc0 | 20 20 28 69 20 69 6e 64 65 78 20 28 31 2d 20 69 29 29 29 0a 20 20 20 20 20 20 28 28 7a 65 72 6f | ..(i.index.(1-.i))).......((zero |
| 207ce0 | 70 20 69 29 20 66 72 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | p.i).frame)))..(defimplementatio |
| 207d00 | 6e 20 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 28 73 74 61 72 74 20 65 6e 64 29 0a | n.compute-backtrace.(start.end). |
| 207d20 | 20 20 28 6c 65 74 20 28 28 65 6e 64 20 28 6f 72 20 65 6e 64 20 6d 6f 73 74 2d 70 6f 73 69 74 69 | ..(let.((end.(or.end.most-positi |
| 207d40 | 76 65 2d 66 69 78 6e 75 6d 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 20 3d 20 28 | ve-fixnum))).....(loop.for.f.=.( |
| 207d60 | 6e 74 68 2d 66 72 61 6d 65 20 73 74 61 72 74 29 20 74 68 65 6e 20 28 66 72 61 6d 65 2d 64 6f 77 | nth-frame.start).then.(frame-dow |
| 207d80 | 6e 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 73 74 61 72 74 20 | n.f)...........for.i.from.start. |
| 207da0 | 62 65 6c 6f 77 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 66 20 63 6f 6c 6c | below.end...........while.f.coll |
| 207dc0 | 65 63 74 20 66 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 69 | ect.f)))..(defimplementation.pri |
| 207de0 | 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 73 74 72 65 61 6d 29 0a 20 20 28 6c 65 74 20 28 | nt-frame.(frame.stream)...(let.( |
| 207e00 | 28 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 | (*standard-output*.stream))..... |
| 207e20 | 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 28 64 65 62 75 67 3a 3a 70 72 | (handler-case.........(debug::pr |
| 207e40 | 69 6e 74 2d 66 72 61 6d 65 2d 63 61 6c 6c 20 66 72 61 6d 65 20 3a 76 65 72 62 6f 73 69 74 79 20 | int-frame-call.frame.:verbosity. |
| 207e60 | 31 20 3a 6e 75 6d 62 65 72 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 65 29 0a | 1.:number.nil).......(error.(e). |
| 207e80 | 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 70 72 69 6e 63 20 65 20 | ........(ignore-errors.(princ.e. |
| 207ea0 | 73 74 72 65 61 6d 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | stream))))))..(defimplementation |
| 207ec0 | 20 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 69 6e 64 65 78 29 0a 20 | .frame-source-location.(index).. |
| 207ee0 | 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 | .(let.((frame.(nth-frame.index)) |
| 207f00 | 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 66 6f 72 65 69 67 6e 2d 66 72 61 6d 65 2d 70 20 66 72 | ).....(cond.((foreign-frame-p.fr |
| 207f20 | 61 6d 65 29 20 28 66 6f 72 65 69 67 6e 2d 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 | ame).(foreign-frame-source-locat |
| 207f40 | 69 6f 6e 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 63 6f 64 65 2d 6c 6f 63 | ion.frame))...........((code-loc |
| 207f60 | 61 74 69 6f 6e 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 64 69 3a 66 72 61 6d 65 2d | ation-source-location.(di:frame- |
| 207f80 | 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 29 29 29 0a 0a 28 64 65 66 69 | code-location.frame))))))..(defi |
| 207fa0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 28 66 6f 72 | mplementation.eval-in-frame.(for |
| 207fc0 | 6d 20 69 6e 64 65 78 29 0a 20 20 28 64 69 3a 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 28 6e 74 | m.index)...(di:eval-in-frame.(nt |
| 207fe0 | 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 20 66 6f 72 6d 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 | h-frame.index).form))..(defun.fr |
| 208000 | 61 6d 65 2d 64 65 62 75 67 2d 76 61 72 73 20 28 66 72 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e | ame-debug-vars.(frame)..."Return |
| 208020 | 20 61 20 76 65 63 74 6f 72 20 6f 66 20 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 73 20 69 6e 20 | .a.vector.of.debug-variables.in. |
| 208040 | 66 72 61 6d 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 6c 6f 63 20 28 64 69 3a 66 72 61 6d 65 2d 63 | frame."...(let.((loc.(di:frame-c |
| 208060 | 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 72 65 6d 6f 76 | ode-location.frame))).....(remov |
| 208080 | 65 2d 69 66 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 76 29 0a 20 20 20 20 20 20 20 28 6e 6f | e-if......(lambda.(v)........(no |
| 2080a0 | 74 20 28 65 71 20 28 64 69 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 76 61 6c 69 64 69 74 | t.(eq.(di:debug-variable-validit |
| 2080c0 | 79 20 76 20 6c 6f 63 29 20 3a 76 61 6c 69 64 29 29 29 0a 20 20 20 20 20 28 64 69 3a 3a 64 65 62 | y.v.loc).:valid)))......(di::deb |
| 2080e0 | 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 73 20 28 64 69 3a | ug-function-debug-variables.(di: |
| 208100 | 66 72 61 6d 65 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 29 29 0a | frame-debug-function.frame))))). |
| 208120 | 0a 28 64 65 66 75 6e 20 64 65 62 75 67 2d 76 61 72 2d 76 61 6c 75 65 20 28 76 61 72 20 66 72 61 | .(defun.debug-var-value.(var.fra |
| 208140 | 6d 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 6c 6f 63 20 28 64 69 3a 66 72 61 6d 65 2d 63 6f 64 65 | me)...(let*.((loc.(di:frame-code |
| 208160 | 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 76 61 6c 69 | -location.frame))..........(vali |
| 208180 | 64 69 74 79 20 28 64 69 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 76 61 6c 69 64 69 74 79 | dity.(di:debug-variable-validity |
| 2081a0 | 20 76 61 72 20 6c 6f 63 29 29 29 0a 20 20 20 20 28 65 63 61 73 65 20 76 61 6c 69 64 69 74 79 0a | .var.loc))).....(ecase.validity. |
| 2081c0 | 20 20 20 20 20 20 28 3a 76 61 6c 69 64 20 28 64 69 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 | ......(:valid.(di:debug-variable |
| 2081e0 | 2d 76 61 6c 75 65 20 76 61 72 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 28 28 3a 69 6e 76 61 | -value.var.frame)).......((:inva |
| 208200 | 6c 69 64 20 3a 75 6e 6b 6e 6f 77 6e 29 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 | lid.:unknown).(make-symbol.(stri |
| 208220 | 6e 67 20 76 61 6c 69 64 69 74 79 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | ng.validity))))))..(defimplement |
| 208240 | 61 74 69 6f 6e 20 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 28 69 6e 64 65 78 29 0a 20 20 28 6c 65 | ation.frame-locals.(index)...(le |
| 208260 | 74 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 69 6e 64 65 78 29 29 29 0a 20 20 | t.((frame.(nth-frame.index)))... |
| 208280 | 20 20 28 6c 6f 6f 70 20 66 6f 72 20 76 20 61 63 72 6f 73 73 20 28 66 72 61 6d 65 2d 64 65 62 75 | ..(loop.for.v.across.(frame-debu |
| 2082a0 | 67 2d 76 61 72 73 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 | g-vars.frame)...........collect. |
| 2082c0 | 28 6c 69 73 74 20 3a 6e 61 6d 65 20 28 64 69 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 73 | (list.:name.(di:debug-variable-s |
| 2082e0 | 79 6d 62 6f 6c 20 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ymbol.v)........................ |
| 208300 | 20 3a 69 64 20 28 64 69 3a 64 65 62 75 67 2d 76 61 72 69 61 62 6c 65 2d 69 64 20 76 29 0a 20 20 | .:id.(di:debug-variable-id.v)... |
| 208320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 61 6c 75 65 20 28 64 65 | ......................:value.(de |
| 208340 | 62 75 67 2d 76 61 72 2d 76 61 6c 75 65 20 76 20 66 72 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 | bug-var-value.v.frame)))))..(def |
| 208360 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 | implementation.frame-var-value.( |
| 208380 | 66 72 61 6d 65 20 76 61 72 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d | frame.var)...(let*.((frame.(nth- |
| 2083a0 | 66 72 61 6d 65 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 76 61 72 20 28 61 72 | frame.frame))..........(dvar.(ar |
| 2083c0 | 65 66 20 28 66 72 61 6d 65 2d 64 65 62 75 67 2d 76 61 72 73 20 66 72 61 6d 65 29 20 76 61 72 29 | ef.(frame-debug-vars.frame).var) |
| 2083e0 | 29 29 0a 20 20 20 20 28 64 65 62 75 67 2d 76 61 72 2d 76 61 6c 75 65 20 64 76 61 72 20 66 72 61 | )).....(debug-var-value.dvar.fra |
| 208400 | 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d | me)))..(defimplementation.frame- |
| 208420 | 63 61 74 63 68 2d 74 61 67 73 20 28 69 6e 64 65 78 29 0a 20 20 28 6d 61 70 63 61 72 20 23 27 63 | catch-tags.(index)...(mapcar.#'c |
| 208440 | 61 72 20 28 64 69 3a 66 72 61 6d 65 2d 63 61 74 63 68 65 73 20 28 6e 74 68 2d 66 72 61 6d 65 20 | ar.(di:frame-catches.(nth-frame. |
| 208460 | 69 6e 64 65 78 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 | index))))..(defimplementation.fr |
| 208480 | 61 6d 65 2d 70 61 63 6b 61 67 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 | ame-package.(frame-number)...(le |
| 2084a0 | 74 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 | t*.((frame.(nth-frame.frame-numb |
| 2084c0 | 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 62 67 2d 66 75 6e 20 28 64 69 3a 66 72 61 6d 65 | er))..........(dbg-fun.(di:frame |
| 2084e0 | 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 74 79 | -debug-function.frame))).....(ty |
| 208500 | 70 65 63 61 73 65 20 64 62 67 2d 66 75 6e 0a 20 20 20 20 20 20 28 64 69 3a 3a 63 6f 6d 70 69 6c | pecase.dbg-fun.......(di::compil |
| 208520 | 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 | ed-debug-function........(let*.( |
| 208540 | 28 63 6f 6d 70 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 | (comp.(di::compiled-debug-functi |
| 208560 | 6f 6e 2d 63 6f 6d 70 6f 6e 65 6e 74 20 64 62 67 2d 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 | on-component.dbg-fun)).......... |
| 208580 | 20 20 20 20 20 28 64 62 67 2d 69 6e 66 6f 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 64 65 62 | .....(dbg-info.(kernel:%code-deb |
| 2085a0 | 75 67 2d 69 6e 66 6f 20 63 6f 6d 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 79 70 65 63 61 | ug-info.comp)))..........(typeca |
| 2085c0 | 73 65 20 64 62 67 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 3a 3a 63 6f 6d 70 69 | se.dbg-info............(c::compi |
| 2085e0 | 6c 65 64 2d 64 65 62 75 67 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 | led-debug-info.............(find |
| 208600 | 2d 70 61 63 6b 61 67 65 20 28 63 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d 69 6e 66 6f | -package.(c::compiled-debug-info |
| 208620 | 2d 70 61 63 6b 61 67 65 20 64 62 67 2d 69 6e 66 6f 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 | -package.dbg-info)))))))))..(def |
| 208640 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 | implementation.return-from-frame |
| 208660 | 20 28 69 6e 64 65 78 20 66 6f 72 6d 29 0a 20 20 28 6c 65 74 20 28 28 73 79 6d 20 28 66 69 6e 64 | .(index.form)...(let.((sym.(find |
| 208680 | 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 20 27 66 69 6e 64 2d 64 65 62 75 67 2d 74 61 67 2d | -symbol.(string.'find-debug-tag- |
| 2086a0 | 66 6f 72 2d 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | for-frame)...................... |
| 2086c0 | 20 20 20 20 20 3a 64 65 62 75 67 2d 69 6e 74 65 72 6e 61 6c 73 29 29 29 0a 20 20 20 20 28 69 66 | .....:debug-internals))).....(if |
| 2086e0 | 20 73 79 6d 0a 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6e 74 68 2d | .sym.........(let*.((frame.(nth- |
| 208700 | 66 72 61 6d 65 20 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 | frame.index))................(pr |
| 208720 | 6f 62 65 20 28 66 75 6e 63 61 6c 6c 20 73 79 6d 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 | obe.(funcall.sym.frame)))....... |
| 208740 | 20 20 20 20 28 63 6f 6e 64 20 28 70 72 6f 62 65 20 28 74 68 72 6f 77 20 28 63 61 72 20 70 72 6f | ....(cond.(probe.(throw.(car.pro |
| 208760 | 62 65 29 20 28 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 66 6f 72 6d 20 69 6e 64 65 78 29 29 29 | be).(eval-in-frame.form.index))) |
| 208780 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 | .................(t.(format.nil. |
| 2087a0 | 22 43 61 6e 6e 6f 74 20 72 65 74 75 72 6e 20 66 72 6f 6d 20 66 72 61 6d 65 3a 20 7e 53 22 20 66 | "Cannot.return.from.frame:.~S".f |
| 2087c0 | 72 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 22 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 | rame))))........."return-from-fr |
| 2087e0 | 61 6d 65 20 69 73 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 6e 20 74 68 69 73 20 76 | ame.is.not.implemented.in.this.v |
| 208800 | 65 72 73 69 6f 6e 20 6f 66 20 43 4d 55 43 4c 2e 22 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | ersion.of.CMUCL.")))..(defimplem |
| 208820 | 65 6e 74 61 74 69 6f 6e 20 61 63 74 69 76 61 74 65 2d 73 74 65 70 70 69 6e 67 20 28 66 72 61 6d | entation.activate-stepping.(fram |
| 208840 | 65 29 0a 20 20 28 73 65 74 2d 73 74 65 70 2d 62 72 65 61 6b 70 6f 69 6e 74 73 20 28 6e 74 68 2d | e)...(set-step-breakpoints.(nth- |
| 208860 | 66 72 61 6d 65 20 66 72 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | frame.frame)))..(defimplementati |
| 208880 | 6f 6e 20 73 6c 64 62 2d 62 72 65 61 6b 2d 6f 6e 2d 72 65 74 75 72 6e 20 28 66 72 61 6d 65 29 0a | on.sldb-break-on-return.(frame). |
| 2088a0 | 20 20 28 62 72 65 61 6b 2d 6f 6e 2d 72 65 74 75 72 6e 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 | ..(break-on-return.(nth-frame.fr |
| 2088c0 | 61 6d 65 29 29 29 0a 0a 3b 3b 3b 20 57 65 20 73 65 74 20 74 68 65 20 62 72 65 61 6b 70 6f 69 6e | ame)))..;;;.We.set.the.breakpoin |
| 2088e0 | 74 20 69 6e 20 74 68 65 20 63 61 6c 6c 65 72 20 77 68 69 63 68 20 6d 69 67 68 74 20 62 65 20 61 | t.in.the.caller.which.might.be.a |
| 208900 | 20 62 69 74 20 63 6f 6e 66 75 73 69 6e 67 2e 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 62 72 65 61 6b | .bit.confusing..;;;.(defun.break |
| 208920 | 2d 6f 6e 2d 72 65 74 75 72 6e 20 28 66 72 61 6d 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 61 6c | -on-return.(frame)...(let*.((cal |
| 208940 | 6c 65 72 20 28 64 69 3a 66 72 61 6d 65 2d 64 6f 77 6e 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 | ler.(di:frame-down.frame))...... |
| 208960 | 20 20 20 20 28 63 6c 20 28 64 69 3a 66 72 61 6d 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 | ....(cl.(di:frame-code-location. |
| 208980 | 63 61 6c 6c 65 72 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 68 6f 6f 6b 20 28 66 72 61 6d | caller))).....(flet.((hook.(fram |
| 2089a0 | 65 20 62 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 72 61 6d 65 2d | e.bp)..............(when.(frame- |
| 2089c0 | 70 6f 69 6e 74 65 72 3d 20 66 72 61 6d 65 20 63 61 6c 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 | pointer=.frame.caller).......... |
| 2089e0 | 20 20 20 20 20 20 28 64 69 3a 64 65 6c 65 74 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 62 70 29 0a | ......(di:delete-breakpoint.bp). |
| 208a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 62 72 65 61 6b 70 6f 69 6e | ...............(signal-breakpoin |
| 208a20 | 74 20 62 70 20 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 69 6e 66 | t.bp.frame)))).......(let*.((inf |
| 208a40 | 6f 20 28 65 63 61 73 65 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6b 69 6e 64 20 | o.(ecase.(di:code-location-kind. |
| 208a60 | 63 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 73 69 6e 67 | cl)......................((:sing |
| 208a80 | 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e 20 3a 75 6e 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 29 | le-value-return.:unknown-return) |
| 208aa0 | 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6b 6e 6f | .nil)......................(:kno |
| 208ac0 | 77 6e 2d 72 65 74 75 72 6e 20 28 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e | wn-return.(debug-function-return |
| 208ae0 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s............................... |
| 208b00 | 20 20 20 20 20 20 20 28 64 69 3a 66 72 61 6d 65 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 | .......(di:frame-debug-function. |
| 208b20 | 66 72 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 70 20 28 64 69 3a | frame)))))..............(bp.(di: |
| 208b40 | 6d 61 6b 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 23 27 68 6f 6f 6b 20 63 6c 20 3a 6b 69 6e 64 20 | make-breakpoint.#'hook.cl.:kind. |
| 208b60 | 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :code-location.................. |
| 208b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 66 6f 20 69 6e 66 6f 29 29 | ....................:info.info)) |
| 208ba0 | 29 0a 20 20 20 20 20 20 20 20 28 64 69 3a 61 63 74 69 76 61 74 65 2d 62 72 65 61 6b 70 6f 69 6e | ).........(di:activate-breakpoin |
| 208bc0 | 74 20 62 70 29 0a 20 20 20 20 20 20 20 20 60 28 3a 6f 6b 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c | t.bp).........`(:ok.,(format.nil |
| 208be0 | 20 22 53 65 74 20 62 72 65 61 6b 70 6f 69 6e 74 20 69 6e 20 7e 41 22 20 63 61 6c 6c 65 72 29 29 | ."Set.breakpoint.in.~A".caller)) |
| 208c00 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 70 6f 69 6e 74 65 72 3d 20 28 66 72 61 | ))))..(defun.frame-pointer=.(fra |
| 208c20 | 6d 65 31 20 66 72 61 6d 65 32 29 0a 20 20 22 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 | me1.frame2)..."Return.true.if.th |
| 208c40 | 65 20 66 72 61 6d 65 20 70 6f 69 6e 74 65 72 73 20 6f 66 20 46 52 41 4d 45 31 20 61 6e 64 20 46 | e.frame.pointers.of.FRAME1.and.F |
| 208c60 | 52 41 4d 45 32 20 61 72 65 20 74 68 65 20 73 61 6d 65 2e 22 0a 20 20 28 73 79 73 3a 73 61 70 3d | RAME2.are.the.same."...(sys:sap= |
| 208c80 | 20 28 64 69 3a 3a 66 72 61 6d 65 2d 70 6f 69 6e 74 65 72 20 66 72 61 6d 65 31 29 20 28 64 69 3a | .(di::frame-pointer.frame1).(di: |
| 208ca0 | 3a 66 72 61 6d 65 2d 70 6f 69 6e 74 65 72 20 66 72 61 6d 65 32 29 29 29 0a 0a 3b 3b 3b 20 54 68 | :frame-pointer.frame2)))..;;;.Th |
| 208cc0 | 65 20 50 43 20 69 6e 20 65 73 63 61 70 65 64 20 66 72 61 6d 65 73 20 61 74 20 61 20 73 69 6e 67 | e.PC.in.escaped.frames.at.a.sing |
| 208ce0 | 6c 65 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 70 6f 69 6e 74 20 69 73 0a 3b 3b 3b 20 61 63 74 | le-return-value.point.is.;;;.act |
| 208d00 | 75 61 6c 6c 79 20 76 6d 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e 2d 62 79 74 | ually.vm:single-value-return-byt |
| 208d20 | 65 2d 6f 66 66 73 65 74 20 62 79 74 65 73 20 61 66 74 65 72 20 74 68 65 0a 3b 3b 3b 20 70 6f 73 | e-offset.bytes.after.the.;;;.pos |
| 208d40 | 69 74 69 6f 6e 20 67 69 76 65 6e 20 69 6e 20 74 68 65 20 64 65 62 75 67 20 69 6e 66 6f 2e 20 20 | ition.given.in.the.debug.info... |
| 208d60 | 48 65 72 65 20 77 65 20 74 72 79 20 74 6f 20 72 65 63 6f 67 6e 69 7a 65 20 73 75 63 68 0a 3b 3b | Here.we.try.to.recognize.such.;; |
| 208d80 | 3b 20 63 61 73 65 73 2e 0a 3b 3b 3b 0a 28 64 65 66 75 6e 20 6e 65 78 74 2d 63 6f 64 65 2d 6c 6f | ;.cases..;;;.(defun.next-code-lo |
| 208da0 | 63 61 74 69 6f 6e 73 20 28 66 72 61 6d 65 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 | cations.(frame.code-location)... |
| 208dc0 | 22 4c 69 6b 65 20 60 64 65 62 75 67 3a 3a 6e 65 78 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e | "Like.`debug::next-code-location |
| 208de0 | 73 27 20 62 75 74 20 62 65 20 63 61 72 65 66 75 6c 20 69 6e 20 65 73 63 61 70 65 64 20 66 72 61 | s'.but.be.careful.in.escaped.fra |
| 208e00 | 6d 65 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 6e 65 78 74 20 28 64 65 62 75 67 3a 3a 6e 65 78 74 | mes."...(let.((next.(debug::next |
| 208e20 | 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 29 29 | -code-locations.code-location))) |
| 208e40 | 0a 20 20 20 20 28 66 6c 65 74 20 28 28 61 64 6a 75 73 74 2d 70 63 20 28 29 0a 20 20 20 20 20 20 | .....(flet.((adjust-pc.()....... |
| 208e60 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6c 20 28 64 69 3a 3a 63 6f 70 79 2d 63 6f 6d 70 69 | .......(let.((cl.(di::copy-compi |
| 208e80 | 6c 65 64 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 | led-code-location.code-location) |
| 208ea0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 28 64 69 3a 3a 63 6f 6d | ))................(incf.(di::com |
| 208ec0 | 70 69 6c 65 64 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 63 20 63 6c 29 0a 20 20 20 20 20 | piled-code-location-pc.cl)...... |
| 208ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6d 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d | ................vm:single-value- |
| 208f00 | 72 65 74 75 72 6e 2d 62 79 74 65 2d 6f 66 66 73 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | return-byte-offset)............. |
| 208f20 | 20 20 20 63 6c 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 64 69 3a 3a | ...cl))).......(cond.((and.(di:: |
| 208f40 | 63 6f 6d 70 69 6c 65 64 2d 66 72 61 6d 65 2d 65 73 63 61 70 65 64 20 66 72 61 6d 65 29 0a 20 20 | compiled-frame-escaped.frame)... |
| 208f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 | ................(eq.(di:code-loc |
| 208f80 | 61 74 69 6f 6e 2d 6b 69 6e 64 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 | ation-kind.code-location)....... |
| 208fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 | ................:single-value-re |
| 208fc0 | 74 75 72 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6c 65 6e 67 | turn)...................(=.(leng |
| 208fe0 | 74 68 20 6e 65 78 74 29 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | th.next).1)...................(d |
| 209000 | 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 3d 20 28 63 61 72 20 6e 65 78 74 29 20 28 61 64 6a | i:code-location=.(car.next).(adj |
| 209020 | 75 73 74 2d 70 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 3a 3a 6e | ust-pc)))..............(debug::n |
| 209040 | 65 78 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 73 20 28 63 61 72 20 6e 65 78 74 29 29 29 0a | ext-code-locations.(car.next))). |
| 209060 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 | ............(t..............next |
| 209080 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 74 2d 73 74 65 70 2d 62 72 65 61 6b 70 6f 69 6e | )))))..(defun.set-step-breakpoin |
| 2090a0 | 74 73 20 28 66 72 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 63 6c 20 28 64 69 3a 66 72 61 6d 65 | ts.(frame)...(let.((cl.(di:frame |
| 2090c0 | 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 77 68 65 | -code-location.frame))).....(whe |
| 2090e0 | 6e 20 28 64 69 3a 64 65 62 75 67 2d 62 6c 6f 63 6b 2d 65 6c 73 65 77 68 65 72 65 2d 70 20 28 64 | n.(di:debug-block-elsewhere-p.(d |
| 209100 | 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 64 65 62 75 67 2d 62 6c 6f 63 6b 20 63 6c 29 29 | i:code-location-debug-block.cl)) |
| 209120 | 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 61 6e 6e 6f 74 20 73 74 65 70 20 69 6e 20 65 6c | .......(error."Cannot.step.in.el |
| 209140 | 73 65 77 68 65 72 65 20 63 6f 64 65 22 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 64 65 62 75 | sewhere.code")).....(let*.((debu |
| 209160 | 67 3a 3a 2a 62 61 64 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 74 79 70 65 73 2a 0a 20 20 20 | g::*bad-code-location-types*.... |
| 209180 | 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 3a 63 61 6c 6c 2d 73 69 74 65 20 64 65 62 75 | .........(remove.:call-site.debu |
| 2091a0 | 67 3a 3a 2a 62 61 64 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 74 79 70 65 73 2a 29 29 0a 20 | g::*bad-code-location-types*)).. |
| 2091c0 | 20 20 20 20 20 20 20 20 20 20 28 6e 65 78 74 20 28 6e 65 78 74 2d 63 6f 64 65 2d 6c 6f 63 61 74 | ..........(next.(next-code-locat |
| 2091e0 | 69 6f 6e 73 20 66 72 61 6d 65 20 63 6c 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 6e 65 | ions.frame.cl))).......(cond.(ne |
| 209200 | 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 65 70 70 6f 69 6e 74 | xt..............(let.((steppoint |
| 209220 | 73 20 27 28 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6c 65 74 20 28 28 68 | s.'()))................(flet.((h |
| 209240 | 6f 6f 6b 20 28 62 70 2d 66 72 61 6d 65 20 62 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ook.(bp-frame.bp)............... |
| 209260 | 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 62 72 65 61 6b 70 6f 69 6e 74 20 62 70 20 | ..........(signal-breakpoint.bp. |
| 209280 | 62 70 2d 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bp-frame)....................... |
| 2092a0 | 20 20 28 6d 61 70 63 20 23 27 64 69 3a 64 65 6c 65 74 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 73 | ..(mapc.#'di:delete-breakpoint.s |
| 2092c0 | 74 65 70 70 6f 69 6e 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | teppoints)))..................(d |
| 2092e0 | 6f 6c 69 73 74 20 28 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 6e 65 78 74 29 0a 20 20 20 20 20 | olist.(code-location.next)...... |
| 209300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 70 20 28 64 69 3a 6d 61 6b 65 | ..............(let.((bp.(di:make |
| 209320 | 2d 62 72 65 61 6b 70 6f 69 6e 74 20 23 27 68 6f 6f 6b 20 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e | -breakpoint.#'hook.code-location |
| 209340 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 209360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 69 6e 64 20 3a 63 6f 64 65 2d 6c 6f | ..................:kind.:code-lo |
| 209380 | 63 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | cation)))......................( |
| 2093a0 | 64 69 3a 61 63 74 69 76 61 74 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 62 70 29 0a 20 20 20 20 20 | di:activate-breakpoint.bp)...... |
| 2093c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 62 70 20 73 74 65 70 70 6f 69 | ................(push.bp.steppoi |
| 2093e0 | 6e 74 73 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 | nts)))))).............(t........ |
| 209400 | 20 20 20 20 20 20 28 62 72 65 61 6b 2d 6f 6e 2d 72 65 74 75 72 6e 20 66 72 61 6d 65 29 29 29 29 | ......(break-on-return.frame)))) |
| 209420 | 29 29 0a 0a 0a 3b 3b 20 58 58 58 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 73 20 61 74 | ))...;;.XXX.the.return.values.at |
| 209440 | 20 72 65 74 75 72 6e 20 62 72 65 61 6b 70 6f 69 6e 74 73 20 73 68 6f 75 6c 64 20 62 65 20 70 61 | .return.breakpoints.should.be.pa |
| 209460 | 73 73 65 64 20 74 6f 20 74 68 65 0a 3b 3b 20 75 73 65 72 20 68 6f 6f 6b 73 2e 20 64 65 62 75 67 | ssed.to.the.;;.user.hooks..debug |
| 209480 | 2d 69 6e 74 2e 6c 69 73 70 20 73 68 6f 75 6c 64 20 62 65 20 63 68 61 6e 67 65 64 20 74 6f 20 64 | -int.lisp.should.be.changed.to.d |
| 2094a0 | 6f 20 74 68 69 73 20 63 6c 65 61 6e 6c 79 2e 0a 0a 3b 3b 3b 20 54 68 65 20 73 69 67 63 6f 6e 74 | o.this.cleanly...;;;.The.sigcont |
| 2094c0 | 65 78 74 20 61 6e 64 20 74 68 65 20 50 43 20 66 6f 72 20 61 20 62 72 65 61 6b 70 6f 69 6e 74 20 | ext.and.the.PC.for.a.breakpoint. |
| 2094e0 | 69 6e 76 6f 63 61 74 69 6f 6e 20 61 72 65 20 6e 6f 74 0a 3b 3b 3b 20 70 61 73 73 65 64 20 74 6f | invocation.are.not.;;;.passed.to |
| 209500 | 20 75 73 65 72 20 68 6f 6f 6b 20 66 75 6e 63 74 69 6f 6e 73 2c 20 62 75 74 20 77 65 20 6e 65 65 | .user.hook.functions,.but.we.nee |
| 209520 | 64 20 74 68 65 6d 20 74 6f 20 65 78 74 72 61 63 74 20 72 65 74 75 72 6e 0a 3b 3b 3b 20 76 61 6c | d.them.to.extract.return.;;;.val |
| 209540 | 75 65 73 2e 20 53 6f 20 77 65 20 61 64 76 69 63 65 20 64 69 3a 3a 68 61 6e 64 6c 65 2d 62 72 65 | ues..So.we.advice.di::handle-bre |
| 209560 | 61 6b 70 6f 69 6e 74 20 61 6e 64 20 62 69 6e 64 20 74 68 65 20 76 61 6c 75 65 73 20 74 6f 0a 3b | akpoint.and.bind.the.values.to.; |
| 209580 | 3b 3b 20 73 70 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 0a 3b 3b 3b 0a 28 64 65 66 76 61 | ;;.special.variables..;;;.(defva |
| 2095a0 | 72 20 2a 62 72 65 61 6b 70 6f 69 6e 74 2d 73 69 67 63 6f 6e 74 65 78 74 2a 29 0a 28 64 65 66 76 | r.*breakpoint-sigcontext*).(defv |
| 2095c0 | 61 72 20 2a 62 72 65 61 6b 70 6f 69 6e 74 2d 70 63 2a 29 0a 0a 28 64 65 66 69 6e 65 2d 66 77 72 | ar.*breakpoint-pc*)..(define-fwr |
| 2095e0 | 61 70 70 65 72 20 62 69 6e 64 2d 62 72 65 61 6b 70 6f 69 6e 74 2d 73 69 67 63 6f 6e 74 65 78 74 | apper.bind-breakpoint-sigcontext |
| 209600 | 20 28 6f 66 66 73 65 74 20 63 20 73 69 67 63 6f 6e 74 65 78 74 29 0a 20 20 28 6c 65 74 20 28 28 | .(offset.c.sigcontext)...(let.(( |
| 209620 | 2a 62 72 65 61 6b 70 6f 69 6e 74 2d 73 69 67 63 6f 6e 74 65 78 74 2a 20 73 69 67 63 6f 6e 74 65 | *breakpoint-sigcontext*.sigconte |
| 209640 | 78 74 29 0a 20 20 20 20 20 20 20 20 28 2a 62 72 65 61 6b 70 6f 69 6e 74 2d 70 63 2a 20 6f 66 66 | xt).........(*breakpoint-pc*.off |
| 209660 | 73 65 74 29 29 0a 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 66 75 6e 63 74 69 6f 6e 29 29 29 | set)).....(call-next-function))) |
| 209680 | 0a 28 73 65 74 2d 66 77 72 61 70 70 65 72 73 20 27 64 69 3a 3a 68 61 6e 64 6c 65 2d 62 72 65 61 | .(set-fwrappers.'di::handle-brea |
| 2096a0 | 6b 70 6f 69 6e 74 20 27 28 29 29 0a 28 66 77 72 61 70 20 27 64 69 3a 3a 68 61 6e 64 6c 65 2d 62 | kpoint.'()).(fwrap.'di::handle-b |
| 2096c0 | 72 65 61 6b 70 6f 69 6e 74 20 23 27 62 69 6e 64 2d 62 72 65 61 6b 70 6f 69 6e 74 2d 73 69 67 63 | reakpoint.#'bind-breakpoint-sigc |
| 2096e0 | 6f 6e 74 65 78 74 29 0a 0a 28 64 65 66 75 6e 20 73 69 67 63 6f 6e 74 65 78 74 2d 6f 62 6a 65 63 | ontext)..(defun.sigcontext-objec |
| 209700 | 74 20 28 73 63 20 69 6e 64 65 78 29 0a 20 20 22 45 78 74 72 61 63 74 20 74 68 65 20 6c 69 73 70 | t.(sc.index)..."Extract.the.lisp |
| 209720 | 20 6f 62 6a 65 63 74 20 69 6e 20 73 69 67 63 6f 6e 74 65 78 74 20 53 43 20 61 74 20 6f 66 66 73 | .object.in.sigcontext.SC.at.offs |
| 209740 | 65 74 20 49 4e 44 45 58 2e 22 0a 20 20 28 6b 65 72 6e 65 6c 3a 6d 61 6b 65 2d 6c 69 73 70 2d 6f | et.INDEX."...(kernel:make-lisp-o |
| 209760 | 62 6a 20 28 76 6d 3a 73 69 67 63 6f 6e 74 65 78 74 2d 72 65 67 69 73 74 65 72 20 73 63 20 69 6e | bj.(vm:sigcontext-register.sc.in |
| 209780 | 64 65 78 29 29 29 0a 0a 28 64 65 66 75 6e 20 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 2d 70 6f 69 6e | dex)))..(defun.known-return-poin |
| 2097a0 | 74 2d 76 61 6c 75 65 73 20 28 73 69 67 63 6f 6e 74 65 78 74 20 73 63 2d 6f 66 66 73 65 74 73 29 | t-values.(sigcontext.sc-offsets) |
| 2097c0 | 0a 20 20 28 6c 65 74 20 28 28 66 70 20 28 73 79 73 74 65 6d 3a 69 6e 74 2d 73 61 70 20 28 76 6d | ...(let.((fp.(system:int-sap.(vm |
| 2097e0 | 3a 73 69 67 63 6f 6e 74 65 78 74 2d 72 65 67 69 73 74 65 72 20 73 69 67 63 6f 6e 74 65 78 74 0a | :sigcontext-register.sigcontext. |
| 209800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 209820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6d 3a 3a 63 66 70 2d 6f 66 66 73 | ....................vm::cfp-offs |
| 209840 | 65 74 29 29 29 29 0a 20 20 20 20 28 73 79 73 74 65 6d 3a 77 69 74 68 6f 75 74 2d 67 63 69 6e 67 | et)))).....(system:without-gcing |
| 209860 | 0a 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 63 2d 6f 66 66 73 65 74 20 61 63 72 6f 73 73 | ......(loop.for.sc-offset.across |
| 209880 | 20 73 63 2d 6f 66 66 73 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 | .sc-offsets............collect.( |
| 2098a0 | 64 69 3a 3a 73 75 62 2d 61 63 63 65 73 73 2d 64 65 62 75 67 2d 76 61 72 2d 73 6c 6f 74 20 66 70 | di::sub-access-debug-var-slot.fp |
| 2098c0 | 20 73 63 2d 6f 66 66 73 65 74 20 73 69 67 63 6f 6e 74 65 78 74 29 29 29 29 29 0a 0a 3b 3b 3b 20 | .sc-offset.sigcontext)))))..;;;. |
| 2098e0 | 43 4d 55 43 4c 20 72 65 74 75 72 6e 73 20 74 68 65 20 66 69 72 73 74 20 66 65 77 20 76 61 6c 75 | CMUCL.returns.the.first.few.valu |
| 209900 | 65 73 20 69 6e 20 72 65 67 69 73 74 65 72 73 20 61 6e 64 20 74 68 65 20 72 65 73 74 20 6f 6e 0a | es.in.registers.and.the.rest.on. |
| 209920 | 3b 3b 3b 20 74 68 65 20 73 74 61 63 6b 2e 20 49 6e 20 74 68 65 20 6d 75 6c 74 69 70 6c 65 20 76 | ;;;.the.stack..In.the.multiple.v |
| 209940 | 61 6c 75 65 20 63 61 73 65 2c 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 76 61 6c 75 65 73 20 | alue.case,.the.number.of.values. |
| 209960 | 69 73 0a 3b 3b 3b 20 73 74 6f 72 65 64 20 69 6e 20 61 20 64 65 64 69 63 61 74 65 64 20 72 65 67 | is.;;;.stored.in.a.dedicated.reg |
| 209980 | 69 73 74 65 72 2e 20 54 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 72 65 67 69 73 74 65 | ister..The.values.of.the.registe |
| 2099a0 | 72 73 20 63 61 6e 20 62 65 0a 3b 3b 3b 20 61 63 63 65 73 73 65 64 20 69 6e 20 74 68 65 20 73 69 | rs.can.be.;;;.accessed.in.the.si |
| 2099c0 | 67 63 6f 6e 74 65 78 74 20 66 6f 72 20 74 68 65 20 62 72 65 61 6b 70 6f 69 6e 74 2e 20 20 54 68 | gcontext.for.the.breakpoint...Th |
| 2099e0 | 65 72 65 20 61 72 65 20 33 20 6b 69 6e 64 73 0a 3b 3b 3b 20 6f 66 20 72 65 74 75 72 6e 20 63 6f | ere.are.3.kinds.;;;.of.return.co |
| 209a00 | 6e 76 65 6e 74 69 6f 6e 73 3a 20 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e 2c | nventions:.:single-value-return, |
| 209a20 | 20 3a 75 6e 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 2c 20 61 6e 64 0a 3b 3b 3b 20 3a 6b 6e 6f 77 6e | .:unknown-return,.and.;;;.:known |
| 209a40 | 2d 72 65 74 75 72 6e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 3a 73 69 6e 67 6c 65 2d 76 61 6c | -return..;;;.;;;.The.:single-val |
| 209a60 | 75 65 2d 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 74 68 65 | ue-return.convention.returns.the |
| 209a80 | 20 76 61 6c 75 65 20 69 6e 20 61 0a 3b 3b 3b 20 72 65 67 69 73 74 65 72 20 77 69 74 68 6f 75 74 | .value.in.a.;;;.register.without |
| 209aa0 | 20 73 65 74 74 69 6e 67 20 74 68 65 20 6e 61 72 67 73 20 72 65 67 69 73 74 65 72 73 2e 0a 3b 3b | .setting.the.nargs.registers..;; |
| 209ac0 | 3b 0a 3b 3b 3b 20 54 68 65 20 3a 75 6e 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 20 76 61 72 69 61 6e | ;.;;;.The.:unknown-return.varian |
| 209ae0 | 74 20 69 73 20 75 73 65 64 20 66 6f 72 20 6d 75 6c 74 69 70 6c 65 20 76 61 6c 75 65 73 2e 20 41 | t.is.used.for.multiple.values..A |
| 209b00 | 0a 3b 3b 3b 20 3a 75 6e 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 20 70 6f 69 6e 74 20 63 6f 6e 73 69 | .;;;.:unknown-return.point.consi |
| 209b20 | 73 74 73 20 61 63 74 75 61 6c 6c 79 20 6f 66 20 32 20 62 72 65 61 6b 70 6f 69 6e 74 73 3a 20 6f | sts.actually.of.2.breakpoints:.o |
| 209b40 | 6e 65 20 66 6f 72 0a 3b 3b 3b 20 74 68 65 20 73 69 6e 67 6c 65 20 76 61 6c 75 65 20 63 61 73 65 | ne.for.;;;.the.single.value.case |
| 209b60 | 20 61 6e 64 20 6f 6e 65 20 66 6f 72 20 74 68 65 20 67 65 6e 65 72 61 6c 20 63 61 73 65 2e 20 20 | .and.one.for.the.general.case... |
| 209b80 | 54 68 65 20 73 69 6e 67 6c 65 0a 3b 3b 3b 20 76 61 6c 75 65 20 62 72 65 61 6b 70 6f 69 6e 74 20 | The.single.;;;.value.breakpoint. |
| 209ba0 | 63 6f 6d 65 73 20 76 6d 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e 2d 62 79 74 | comes.vm:single-value-return-byt |
| 209bc0 | 65 2d 6f 66 66 73 65 74 20 61 66 74 65 72 0a 3b 3b 3b 20 74 68 65 20 6d 75 6c 74 69 70 6c 65 20 | e-offset.after.;;;.the.multiple. |
| 209be0 | 76 61 6c 75 65 20 62 72 65 61 6b 70 6f 69 6e 74 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 3a 6b | value.breakpoint..;;;.;;;.The.:k |
| 209c00 | 6e 6f 77 6e 2d 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 69 73 20 75 73 65 64 20 62 | nown-return.convention.is.used.b |
| 209c20 | 79 20 6c 6f 63 61 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 3b 3b 3b 20 3a 6b 6e 6f 77 6e 2d 72 65 | y.local.functions..;;;.:known-re |
| 209c40 | 74 75 72 6e 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 | turn.is.currently.not.supported. |
| 209c60 | 62 65 63 61 75 73 65 20 77 65 20 64 6f 6e 27 74 20 6b 6e 6f 77 0a 3b 3b 3b 20 77 68 65 72 65 20 | because.we.don't.know.;;;.where. |
| 209c80 | 74 68 65 20 76 61 6c 75 65 73 20 61 72 65 20 70 61 73 73 65 64 2e 0a 3b 3b 3b 0a 28 64 65 66 75 | the.values.are.passed..;;;.(defu |
| 209ca0 | 6e 20 62 72 65 61 6b 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 28 62 72 65 61 6b 70 6f 69 6e 74 29 | n.breakpoint-values.(breakpoint) |
| 209cc0 | 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65 74 75 72 6e 20 76 61 | ..."Return.the.list.of.return.va |
| 209ce0 | 6c 75 65 73 20 66 6f 72 20 61 20 72 65 74 75 72 6e 20 70 6f 69 6e 74 2e 22 0a 20 20 28 66 6c 65 | lues.for.a.return.point."...(fle |
| 209d00 | 74 20 28 28 31 73 74 20 28 73 63 29 20 28 73 69 67 63 6f 6e 74 65 78 74 2d 6f 62 6a 65 63 74 20 | t.((1st.(sc).(sigcontext-object. |
| 209d20 | 73 63 20 28 63 61 72 20 76 6d 3a 3a 72 65 67 69 73 74 65 72 2d 61 72 67 2d 6f 66 66 73 65 74 73 | sc.(car.vm::register-arg-offsets |
| 209d40 | 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 63 20 28 6c 6f 63 61 6c 6c 79 20 28 64 65 63 | )))).....(let.((sc.(locally.(dec |
| 209d60 | 6c 61 72 65 20 28 6f 70 74 69 6d 69 7a 65 20 28 73 70 65 65 64 20 30 29 29 29 0a 20 20 20 20 20 | lare.(optimize.(speed.0)))...... |
| 209d80 | 20 20 20 20 20 20 20 20 20 20 20 28 61 6c 69 65 6e 3a 73 61 70 2d 61 6c 69 65 6e 20 2a 62 72 65 | ...........(alien:sap-alien.*bre |
| 209da0 | 61 6b 70 6f 69 6e 74 2d 73 69 67 63 6f 6e 74 65 78 74 2a 20 28 2a 20 75 6e 69 78 3a 73 69 67 63 | akpoint-sigcontext*.(*.unix:sigc |
| 209dc0 | 6f 6e 74 65 78 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 20 28 64 69 3a 62 72 65 | ontext))))...........(cl.(di:bre |
| 209de0 | 61 6b 70 6f 69 6e 74 2d 77 68 61 74 20 62 72 65 61 6b 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 | akpoint-what.breakpoint)))...... |
| 209e00 | 20 28 65 63 61 73 65 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6b 69 6e 64 20 63 | .(ecase.(di:code-location-kind.c |
| 209e20 | 6c 29 0a 20 20 20 20 20 20 20 20 28 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e | l).........(:single-value-return |
| 209e40 | 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 31 73 74 20 73 63 29 29 29 0a 20 20 20 20 20 | ..........(list.(1st.sc)))...... |
| 209e60 | 20 20 20 28 3a 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | ...(:known-return..........(let. |
| 209e80 | 28 28 69 6e 66 6f 20 28 64 69 3a 62 72 65 61 6b 70 6f 69 6e 74 2d 69 6e 66 6f 20 62 72 65 61 6b | ((info.(di:breakpoint-info.break |
| 209ea0 | 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 76 65 63 74 6f 72 70 | point)))............(if.(vectorp |
| 209ec0 | 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 6e 6f 77 6e 2d 72 65 74 | .info)................(known-ret |
| 209ee0 | 75 72 6e 2d 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 73 63 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 | urn-point-values.sc.info)....... |
| 209f00 | 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(progn................. |
| 209f20 | 20 3b 3b 28 62 72 65 61 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | .;;(break)..................(lis |
| 209f40 | 74 20 22 3c 3c 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 6e 6f 74 | t."<<known-return.convention.not |
| 209f60 | 20 73 75 70 70 6f 72 74 65 64 3e 3e 22 20 69 6e 66 6f 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 | .supported>>".info)))))......... |
| 209f80 | 28 3a 75 6e 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | (:unknown-return..........(let.( |
| 209fa0 | 28 6d 76 2d 72 65 74 75 72 6e 2d 70 63 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 | (mv-return-pc.(di::compiled-code |
| 209fc0 | 2d 6c 6f 63 61 74 69 6f 6e 2d 70 63 20 63 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 | -location-pc.cl)))............(i |
| 209fe0 | 66 20 28 3d 20 6d 76 2d 72 65 74 75 72 6e 2d 70 63 20 2a 62 72 65 61 6b 70 6f 69 6e 74 2d 70 63 | f.(=.mv-return-pc.*breakpoint-pc |
| 20a000 | 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 76 2d 66 75 6e 63 74 69 6f 6e 2d 65 | *)................(mv-function-e |
| 20a020 | 6e 64 2d 62 72 65 61 6b 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 73 63 29 0a 20 20 20 20 20 20 20 | nd-breakpoint-values.sc)........ |
| 20a040 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 31 73 74 20 73 63 29 29 29 29 29 29 29 29 29 0a 0a | ........(list.(1st.sc))))))))).. |
| 20a060 | 3b 3b 20 58 58 58 3a 20 64 69 3a 3a 67 65 74 2d 66 75 6e 63 74 69 6f 6e 2d 65 6e 64 2d 62 72 65 | ;;.XXX:.di::get-function-end-bre |
| 20a080 | 61 6b 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 74 61 6b 65 73 20 32 20 61 72 67 75 6d 65 6e 74 73 | akpoint-values.takes.2.arguments |
| 20a0a0 | 20 69 6e 0a 3b 3b 20 6e 65 77 65 72 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 43 4d 55 43 4c 20 28 | .in.;;.newer.versions.of.CMUCL.( |
| 20a0c0 | 61 66 74 65 72 20 7e 4d 61 72 63 68 20 32 30 30 35 29 2e 0a 28 64 65 66 75 6e 20 6d 76 2d 66 75 | after.~March.2005)..(defun.mv-fu |
| 20a0e0 | 6e 63 74 69 6f 6e 2d 65 6e 64 2d 62 72 65 61 6b 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 28 73 69 | nction-end-breakpoint-values.(si |
| 20a100 | 67 63 6f 6e 74 65 78 74 29 0a 20 20 28 6c 65 74 20 28 28 73 79 6d 20 28 66 69 6e 64 2d 73 79 6d | gcontext)...(let.((sym.(find-sym |
| 20a120 | 62 6f 6c 20 22 46 55 4e 43 54 49 4f 4e 2d 45 4e 44 2d 42 52 45 41 4b 50 4f 49 4e 54 2d 56 41 4c | bol."FUNCTION-END-BREAKPOINT-VAL |
| 20a140 | 55 45 53 2f 53 54 41 4e 44 41 52 44 22 20 3a 64 69 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 | UES/STANDARD".:di))).....(cond.( |
| 20a160 | 73 79 6d 20 28 66 75 6e 63 61 6c 6c 20 73 79 6d 20 73 69 67 63 6f 6e 74 65 78 74 29 29 0a 20 20 | sym.(funcall.sym.sigcontext))... |
| 20a180 | 20 20 20 20 20 20 20 20 28 74 20 28 66 75 6e 63 61 6c 6c 20 27 64 69 3a 3a 67 65 74 2d 66 75 6e | ........(t.(funcall.'di::get-fun |
| 20a1a0 | 63 74 69 6f 6e 2d 65 6e 64 2d 62 72 65 61 6b 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 73 69 67 63 | ction-end-breakpoint-values.sigc |
| 20a1c0 | 6f 6e 74 65 78 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 2d 66 75 6e 63 74 69 | ontext)))))..(defun.debug-functi |
| 20a1e0 | 6f 6e 2d 72 65 74 75 72 6e 73 20 28 64 65 62 75 67 2d 66 75 6e 29 0a 20 20 22 52 65 74 75 72 6e | on-returns.(debug-fun)..."Return |
| 20a200 | 20 74 68 65 20 72 65 74 75 72 6e 20 73 74 79 6c 65 20 6f 66 20 44 45 42 55 47 2d 46 55 4e 2e 22 | .the.return.style.of.DEBUG-FUN." |
| 20a220 | 0a 20 20 28 6c 65 74 2a 20 28 28 63 64 66 75 6e 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 | ...(let*.((cdfun.(di::compiled-d |
| 20a240 | 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 63 6f 6d 70 69 6c 65 72 2d 64 65 62 75 67 2d 66 75 6e | ebug-function-compiler-debug-fun |
| 20a260 | 20 64 65 62 75 67 2d 66 75 6e 29 29 29 0a 20 20 20 20 28 63 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 | .debug-fun))).....(c::compiled-d |
| 20a280 | 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 73 20 63 64 66 75 6e 29 29 29 0a 0a | ebug-function-returns.cdfun))).. |
| 20a2a0 | 28 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 62 72 65 61 6b 70 6f 69 6e 74 20 28 73 69 | (define-condition.breakpoint.(si |
| 20a2c0 | 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 28 6d 65 73 73 61 67 65 20 3a 69 6e 69 | mple-condition)...((message.:ini |
| 20a2e0 | 74 61 72 67 20 3a 6d 65 73 73 61 67 65 20 3a 72 65 61 64 65 72 20 62 72 65 61 6b 70 6f 69 6e 74 | targ.:message.:reader.breakpoint |
| 20a300 | 2e 6d 65 73 73 61 67 65 29 0a 20 20 20 28 76 61 6c 75 65 73 20 20 3a 69 6e 69 74 61 72 67 20 3a | .message)....(values..:initarg.: |
| 20a320 | 76 61 6c 75 65 73 20 20 3a 72 65 61 64 65 72 20 62 72 65 61 6b 70 6f 69 6e 74 2e 76 61 6c 75 65 | values..:reader.breakpoint.value |
| 20a340 | 73 29 29 0a 20 20 28 3a 72 65 70 6f 72 74 20 28 6c 61 6d 62 64 61 20 28 63 20 73 74 72 65 61 6d | s))...(:report.(lambda.(c.stream |
| 20a360 | 29 20 28 70 72 69 6e 63 20 28 62 72 65 61 6b 70 6f 69 6e 74 2e 6d 65 73 73 61 67 65 20 63 29 20 | ).(princ.(breakpoint.message.c). |
| 20a380 | 73 74 72 65 61 6d 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 | stream))))..(defimplementation.c |
| 20a3a0 | 6f 6e 64 69 74 69 6f 6e 2d 65 78 74 72 61 73 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 74 | ondition-extras.(condition)...(t |
| 20a3c0 | 79 70 65 63 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 28 62 72 65 61 6b 70 6f 69 6e | ypecase.condition.....(breakpoin |
| 20a3e0 | 74 0a 20 20 20 20 20 3b 3b 20 70 6f 70 20 75 70 20 74 68 65 20 73 6f 75 72 63 65 20 62 75 66 66 | t......;;.pop.up.the.source.buff |
| 20a400 | 65 72 0a 20 20 20 20 20 60 28 28 3a 73 68 6f 77 2d 66 72 61 6d 65 2d 73 6f 75 72 63 65 20 30 29 | er......`((:show-frame-source.0) |
| 20a420 | 29 29 0a 20 20 20 20 28 74 20 27 28 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d | )).....(t.'())))..(defun.signal- |
| 20a440 | 62 72 65 61 6b 70 6f 69 6e 74 20 28 62 72 65 61 6b 70 6f 69 6e 74 20 66 72 61 6d 65 29 0a 20 20 | breakpoint.(breakpoint.frame)... |
| 20a460 | 22 53 69 67 6e 61 6c 20 61 20 62 72 65 61 6b 70 6f 69 6e 74 20 63 6f 6e 64 69 74 69 6f 6e 20 66 | "Signal.a.breakpoint.condition.f |
| 20a480 | 6f 72 20 42 52 45 41 4b 50 4f 49 4e 54 20 69 6e 20 46 52 41 4d 45 2e 0a 54 72 79 20 74 6f 20 63 | or.BREAKPOINT.in.FRAME..Try.to.c |
| 20a4a0 | 72 65 61 74 65 20 61 20 69 6e 66 6f 72 6d 61 74 69 76 65 20 6d 65 73 73 61 67 65 2e 22 0a 20 20 | reate.a.informative.message."... |
| 20a4c0 | 28 66 6c 65 74 20 28 28 62 72 6b 20 28 76 61 6c 75 65 73 20 66 73 74 72 69 6e 67 20 26 72 65 73 | (flet.((brk.(values.fstring.&res |
| 20a4e0 | 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 73 67 20 28 61 | t.args)............(let.((msg.(a |
| 20a500 | 70 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 6e 69 6c 20 66 73 74 72 69 6e 67 20 61 72 67 73 29 29 | pply.#'format.nil.fstring.args)) |
| 20a520 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 3a 2a 73 74 61 63 6b 2d | ..................(debug:*stack- |
| 20a540 | 74 6f 70 2d 68 69 6e 74 2a 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | top-hint*.frame))..............( |
| 20a560 | 62 72 65 61 6b 20 27 62 72 65 61 6b 70 6f 69 6e 74 20 3a 6d 65 73 73 61 67 65 20 6d 73 67 20 3a | break.'breakpoint.:message.msg.: |
| 20a580 | 76 61 6c 75 65 73 20 76 61 6c 75 65 73 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 73 74 72 75 | values.values)))).....(with-stru |
| 20a5a0 | 63 74 20 28 64 69 3a 3a 62 72 65 61 6b 70 6f 69 6e 74 2d 20 6b 69 6e 64 20 77 68 61 74 29 20 62 | ct.(di::breakpoint-.kind.what).b |
| 20a5c0 | 72 65 61 6b 70 6f 69 6e 74 0a 20 20 20 20 20 20 28 63 61 73 65 20 6b 69 6e 64 0a 20 20 20 20 20 | reakpoint.......(case.kind...... |
| 20a5e0 | 20 20 20 28 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 63 61 73 | ...(:code-location..........(cas |
| 20a600 | 65 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6b 69 6e 64 20 77 68 61 74 29 0a 20 | e.(di:code-location-kind.what).. |
| 20a620 | 20 20 20 20 20 20 20 20 20 20 28 28 3a 73 69 6e 67 6c 65 2d 76 61 6c 75 65 2d 72 65 74 75 72 6e | ..........((:single-value-return |
| 20a640 | 20 3a 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 20 3a 75 6e 6b 6e 6f 77 6e 2d 72 65 74 75 72 6e 29 0a | .:known-return.:unknown-return). |
| 20a660 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 73 20 28 62 72 65 61 6b | ............(let.((values.(break |
| 20a680 | 70 6f 69 6e 74 2d 76 61 6c 75 65 73 20 62 72 65 61 6b 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 | point-values.breakpoint)))...... |
| 20a6a0 | 20 20 20 20 20 20 20 20 20 28 62 72 6b 20 76 61 6c 75 65 73 20 22 52 65 74 75 72 6e 20 76 61 6c | .........(brk.values."Return.val |
| 20a6c0 | 75 65 3a 20 7e 7b 7e 53 20 7e 7d 22 20 76 61 6c 75 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ue:.~{~S.~}".values))).......... |
| 20a6e0 | 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 28 6f 72 29 0a 20 20 20 20 20 20 20 20 | ..(t.............#+(or)......... |
| 20a700 | 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d | ....(when.(eq.(di:code-location- |
| 20a720 | 6b 69 6e 64 20 77 68 61 74 29 20 3a 63 61 6c 6c 2d 73 69 74 65 29 0a 20 20 20 20 20 20 20 20 20 | kind.what).:call-site).......... |
| 20a740 | 20 20 20 20 20 28 63 61 6c 6c 2d 73 69 74 65 2d 66 75 6e 63 74 69 6f 6e 20 62 72 65 61 6b 70 6f | .....(call-site-function.breakpo |
| 20a760 | 69 6e 74 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 72 6b 20 6e 69 6c | int.frame)).............(brk.nil |
| 20a780 | 20 22 42 72 65 61 6b 70 6f 69 6e 74 3a 20 7e 53 20 7e 53 22 0a 20 20 20 20 20 20 20 20 20 20 20 | ."Breakpoint:.~S.~S"............ |
| 20a7a0 | 20 20 20 20 20 20 28 64 69 3a 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6b 69 6e 64 20 77 68 61 | ......(di:code-location-kind.wha |
| 20a7c0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 | t)..................(di::compile |
| 20a7e0 | 64 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 63 20 77 68 61 74 29 29 29 29 29 0a 20 20 20 | d-code-location-pc.what))))).... |
| 20a800 | 20 20 20 20 20 28 3a 66 75 6e 63 74 69 6f 6e 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 28 | .....(:function-start..........( |
| 20a820 | 62 72 6b 20 6e 69 6c 20 22 46 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 20 62 72 65 61 6b 70 6f 69 | brk.nil."Function.start.breakpoi |
| 20a840 | 6e 74 22 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 62 72 6b 20 6e 69 6c 20 22 42 72 65 61 6b | nt")).........(t.(brk.nil."Break |
| 20a860 | 70 6f 69 6e 74 3a 20 7e 41 20 69 6e 20 7e 41 22 20 62 72 65 61 6b 70 6f 69 6e 74 20 66 72 61 6d | point:.~A.in.~A".breakpoint.fram |
| 20a880 | 65 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 64 62 | e))))))..(defimplementation.sldb |
| 20a8a0 | 2d 62 72 65 61 6b 2d 61 74 2d 73 74 61 72 74 20 28 66 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 | -break-at-start.(fname)...(let.( |
| 20a8c0 | 28 64 65 62 75 67 2d 66 75 6e 20 28 64 69 3a 66 75 6e 63 74 69 6f 6e 2d 64 65 62 75 67 2d 66 75 | (debug-fun.(di:function-debug-fu |
| 20a8e0 | 6e 63 74 69 6f 6e 20 28 63 6f 65 72 63 65 20 66 6e 61 6d 65 20 27 66 75 6e 63 74 69 6f 6e 29 29 | nction.(coerce.fname.'function)) |
| 20a900 | 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 64 65 62 75 67 2d 66 75 6e 29 0a 20 20 | )).....(cond.((not.debug-fun)... |
| 20a920 | 20 20 20 20 20 20 20 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 | .........`(:error.,(format.nil." |
| 20a940 | 7e 53 20 68 61 73 20 6e 6f 20 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 22 20 66 6e 61 6d 65 29 | ~S.has.no.debug-function".fname) |
| 20a960 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 6c 65 74 | ))...........(t............(flet |
| 20a980 | 20 28 28 68 6f 6f 6b 20 28 66 72 61 6d 65 20 62 70 20 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 73 | .((hook.(frame.bp.&optional.args |
| 20a9a0 | 20 63 6f 6f 6b 69 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 | .cookie).....................(de |
| 20a9c0 | 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 20 63 6f 6f 6b 69 65 29 29 0a 20 20 20 20 | clare.(ignore.args.cookie))..... |
| 20a9e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 2d 62 72 65 61 6b 70 6f 69 | ................(signal-breakpoi |
| 20aa00 | 6e 74 20 62 70 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | nt.bp.frame)))..............(let |
| 20aa20 | 20 28 28 62 70 20 28 64 69 3a 6d 61 6b 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 23 27 68 6f 6f 6b | .((bp.(di:make-breakpoint.#'hook |
| 20aa40 | 20 64 65 62 75 67 2d 66 75 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .debug-fun...................... |
| 20aa60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 69 6e 64 20 3a 66 75 6e | ......................:kind.:fun |
| 20aa80 | 63 74 69 6f 6e 2d 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | ction-start)))................(d |
| 20aaa0 | 69 3a 61 63 74 69 76 61 74 65 2d 62 72 65 61 6b 70 6f 69 6e 74 20 62 70 29 0a 20 20 20 20 20 20 | i:activate-breakpoint.bp)....... |
| 20aac0 | 20 20 20 20 20 20 20 20 20 60 28 3a 6f 6b 20 2c 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 53 65 74 | .........`(:ok.,(format.nil."Set |
| 20aae0 | 20 62 72 65 61 6b 70 6f 69 6e 74 20 69 6e 20 7e 53 22 20 66 6e 61 6d 65 29 29 29 29 29 29 29 29 | .breakpoint.in.~S".fname)))))))) |
| 20ab00 | 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 63 66 70 20 28 66 72 61 6d 65 29 0a 20 20 22 52 65 | ..(defun.frame-cfp.(frame)..."Re |
| 20ab20 | 74 75 72 6e 20 74 68 65 20 43 6f 6e 74 72 6f 6c 2d 53 74 61 63 6b 2d 46 72 61 6d 65 2d 50 6f 69 | turn.the.Control-Stack-Frame-Poi |
| 20ab40 | 6e 74 65 72 20 66 6f 72 20 46 52 41 4d 45 2e 22 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 66 72 | nter.for.FRAME."...(etypecase.fr |
| 20ab60 | 61 6d 65 0a 20 20 20 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 66 72 61 6d 65 20 28 64 69 3a | ame.....(di::compiled-frame.(di: |
| 20ab80 | 3a 66 72 61 6d 65 2d 70 6f 69 6e 74 65 72 20 66 72 61 6d 65 29 29 0a 20 20 20 20 28 28 6f 72 20 | :frame-pointer.frame)).....((or. |
| 20aba0 | 64 69 3a 3a 69 6e 74 65 72 70 72 65 74 65 64 2d 66 72 61 6d 65 20 6e 75 6c 6c 29 20 2d 31 29 29 | di::interpreted-frame.null).-1)) |
| 20abc0 | 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 69 70 20 28 66 72 61 6d 65 29 0a 20 20 22 52 65 | )..(defun.frame-ip.(frame)..."Re |
| 20abe0 | 74 75 72 6e 20 74 68 65 20 28 61 62 73 6f 6c 75 74 65 29 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 | turn.the.(absolute).instruction. |
| 20ac00 | 70 6f 69 6e 74 65 72 20 61 6e 64 20 74 68 65 20 72 65 6c 61 74 69 76 65 20 70 63 20 6f 66 20 46 | pointer.and.the.relative.pc.of.F |
| 20ac20 | 52 41 4d 45 2e 22 0a 20 20 28 69 66 20 28 6e 6f 74 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 2d | RAME."...(if.(not.frame).......- |
| 20ac40 | 31 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 62 75 67 2d 66 75 6e 20 28 64 69 3a 3a 66 72 | 1.......(let.((debug-fun.(di::fr |
| 20ac60 | 61 6d 65 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 | ame-debug-function.frame)))..... |
| 20ac80 | 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 64 65 62 75 67 2d 66 75 6e 0a 20 20 20 20 20 20 20 | ....(etypecase.debug-fun........ |
| 20aca0 | 20 20 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 0a | ...(di::compiled-debug-function. |
| 20acc0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 64 65 2d 6c 6f 63 20 28 64 69 3a | ...........(let*.((code-loc.(di: |
| 20ace0 | 66 72 61 6d 65 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 72 61 6d 65 29 29 0a 20 20 20 20 | frame-code-location.frame))..... |
| 20ad00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6f 6e 65 6e 74 20 28 64 69 3a 3a 63 6f | ..............(component.(di::co |
| 20ad20 | 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 63 6f 6d 70 6f 6e 65 6e 74 20 | mpiled-debug-function-component. |
| 20ad40 | 64 65 62 75 67 2d 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | debug-fun))...................(p |
| 20ad60 | 63 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 63 6f 64 65 2d 6c 6f 63 61 74 69 6f 6e 2d 70 63 | c.(di::compiled-code-location-pc |
| 20ad80 | 20 63 6f 64 65 2d 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | .code-loc))...................(i |
| 20ada0 | 70 20 28 73 79 73 3a 77 69 74 68 6f 75 74 2d 67 63 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 | p.(sys:without-gcing............ |
| 20adc0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 73 61 70 2d 69 6e 74 0a 20 20 20 20 20 20 20 | ............(sys:sap-int........ |
| 20ade0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 73 61 70 2b 20 28 6b 65 72 6e | .................(sys:sap+.(kern |
| 20ae00 | 65 6c 3a 63 6f 64 65 2d 69 6e 73 74 72 75 63 74 69 6f 6e 73 20 63 6f 6d 70 6f 6e 65 6e 74 29 20 | el:code-instructions.component). |
| 20ae20 | 70 63 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 69 70 20 | pc)))))..............(values.ip. |
| 20ae40 | 70 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 3a 3a 69 6e 74 65 72 70 72 65 74 65 64 | pc)))...........(di::interpreted |
| 20ae60 | 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 20 2d 31 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 | -debug-function.-1)...........(d |
| 20ae80 | 69 3a 3a 62 6f 67 75 73 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | i::bogus-debug-function......... |
| 20aea0 | 20 20 20 23 2d 78 38 36 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 72 65 61 6c | ...#-x86............(let*.((real |
| 20aec0 | 20 28 64 69 3a 3a 66 72 61 6d 65 2d 72 65 61 6c 2d 66 72 61 6d 65 20 28 64 69 3a 3a 66 72 61 6d | .(di::frame-real-frame.(di::fram |
| 20aee0 | 65 2d 75 70 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-up.frame)))................... |
| 20af00 | 28 66 70 20 28 64 69 3a 3a 66 72 61 6d 65 2d 70 6f 69 6e 74 65 72 20 72 65 61 6c 29 29 29 0a 20 | (fp.(di::frame-pointer.real))).. |
| 20af20 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 23 2b 28 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ............;;#+(or)............ |
| 20af40 | 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 | ..(progn................(format. |
| 20af60 | 2a 64 65 62 75 67 2d 69 6f 2a 20 22 46 72 61 6d 65 2d 72 65 61 6c 2d 66 72 61 6d 65 20 3d 20 7e | *debug-io*."Frame-real-frame.=.~ |
| 20af80 | 53 7e 25 22 20 72 65 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 | S~%".real)................(forma |
| 20afa0 | 74 20 2a 64 65 62 75 67 2d 69 6f 2a 20 22 66 70 20 3d 20 7e 53 7e 25 22 20 66 70 29 0a 20 20 20 | t.*debug-io*."fp.=.~S~%".fp).... |
| 20afc0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 2a 64 65 62 75 67 2d 69 6f 2a 20 22 | ............(format.*debug-io*." |
| 20afe0 | 6c 72 61 20 3d 20 7e 53 7e 25 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lra.=.~S~%"..................... |
| 20b000 | 20 20 20 28 6b 65 72 6e 65 6c 3a 73 74 61 63 6b 2d 72 65 66 20 66 70 20 76 6d 3a 3a 6c 72 61 2d | ...(kernel:stack-ref.fp.vm::lra- |
| 20b020 | 73 61 76 65 2d 6f 66 66 73 65 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c | save-offset)))..............(val |
| 20b040 | 75 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 69 6e 74 2d 73 61 70 0a 20 | ues...............(sys:int-sap.. |
| 20b060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 6c 69 73 | ..............(-.(kernel:get-lis |
| 20b080 | 70 2d 6f 62 6a 2d 61 64 64 72 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p-obj-address................... |
| 20b0a0 | 20 28 6b 65 72 6e 65 6c 3a 73 74 61 63 6b 2d 72 65 66 20 66 70 20 76 6d 3a 3a 6c 72 61 2d 73 61 | .(kernel:stack-ref.fp.vm::lra-sa |
| 20b0c0 | 76 65 2d 6f 66 66 73 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d | ve-offset))...................(- |
| 20b0e0 | 20 28 61 73 68 20 76 6d 3a 66 75 6e 63 74 69 6f 6e 2d 63 6f 64 65 2d 6f 66 66 73 65 74 20 76 6d | .(ash.vm:function-code-offset.vm |
| 20b100 | 3a 77 6f 72 64 2d 73 68 69 66 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :word-shift).................... |
| 20b120 | 20 20 76 6d 3a 66 75 6e 63 74 69 6f 6e 2d 70 6f 69 6e 74 65 72 2d 74 79 70 65 29 29 29 0a 20 20 | ..vm:function-pointer-type)))... |
| 20b140 | 20 20 20 20 20 20 20 20 20 20 20 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 23 2b 78 38 36 | ............0))............#+x86 |
| 20b160 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 70 20 28 64 69 3a 3a 66 72 61 6d 65 | ............(let.((fp.(di::frame |
| 20b180 | 2d 70 6f 69 6e 74 65 72 20 28 64 69 3a 66 72 61 6d 65 2d 75 70 20 66 72 61 6d 65 29 29 29 29 0a | -pointer.(di:frame-up.frame)))). |
| 20b1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e | .............(multiple-value-bin |
| 20b1c0 | 64 20 28 72 61 20 6f 66 70 29 20 28 64 69 3a 3a 78 38 36 2d 63 61 6c 6c 2d 63 6f 6e 74 65 78 74 | d.(ra.ofp).(di::x86-call-context |
| 20b1e0 | 20 66 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 | .fp)................(declare.(ig |
| 20b200 | 6e 6f 72 65 20 6f 66 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 | nore.ofp))................(value |
| 20b220 | 73 20 72 61 20 30 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 72 65 67 | s.ra.0))))))))..(defun.frame-reg |
| 20b240 | 69 73 74 65 72 73 20 28 66 72 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 69 73 | isters.(frame)..."Return.the.lis |
| 20b260 | 70 20 72 65 67 69 73 74 65 72 73 20 43 53 50 2c 20 43 46 50 2c 20 49 50 2c 20 4f 43 46 50 2c 20 | p.registers.CSP,.CFP,.IP,.OCFP,. |
| 20b280 | 4c 52 41 20 66 6f 72 20 46 52 41 4d 45 2d 4e 55 4d 42 45 52 2e 22 0a 20 20 28 6c 65 74 2a 20 28 | LRA.for.FRAME-NUMBER."...(let*.( |
| 20b2a0 | 28 63 66 70 20 28 66 72 61 6d 65 2d 63 66 70 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 | (cfp.(frame-cfp.frame))......... |
| 20b2c0 | 20 28 63 73 70 20 28 66 72 61 6d 65 2d 63 66 70 20 28 64 69 3a 3a 66 72 61 6d 65 2d 75 70 20 66 | .(csp.(frame-cfp.(di::frame-up.f |
| 20b2e0 | 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 70 20 28 66 72 61 6d 65 2d 69 70 20 66 | rame)))..........(ip.(frame-ip.f |
| 20b300 | 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 63 66 70 20 28 66 72 61 6d 65 2d 63 66 70 | rame))..........(ocfp.(frame-cfp |
| 20b320 | 20 28 64 69 3a 3a 66 72 61 6d 65 2d 64 6f 77 6e 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 | .(di::frame-down.frame)))....... |
| 20b340 | 20 20 20 28 6c 72 61 20 28 66 72 61 6d 65 2d 69 70 20 28 64 69 3a 3a 66 72 61 6d 65 2d 64 6f 77 | ...(lra.(frame-ip.(di::frame-dow |
| 20b360 | 6e 20 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 63 73 70 20 63 66 70 20 | n.frame)))).....(values.csp.cfp. |
| 20b380 | 69 70 20 6f 63 66 70 20 6c 72 61 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 66 72 61 | ip.ocfp.lra)))..(defun.print-fra |
| 20b3a0 | 6d 65 2d 72 65 67 69 73 74 65 72 73 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c | me-registers.(frame-number)...(l |
| 20b3c0 | 65 74 20 28 28 66 72 61 6d 65 20 28 64 69 3a 3a 66 72 61 6d 65 2d 72 65 61 6c 2d 66 72 61 6d 65 | et.((frame.(di::frame-real-frame |
| 20b3e0 | 20 28 6e 74 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 29 0a 20 20 20 | .(nth-frame.frame-number)))).... |
| 20b400 | 20 28 66 6c 65 74 20 28 28 66 69 78 6e 75 6d 20 28 70 29 20 28 65 74 79 70 65 63 61 73 65 20 70 | .(flet.((fixnum.(p).(etypecase.p |
| 20b420 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 67 | ..........................(integ |
| 20b440 | 65 72 20 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | er.p)..........................( |
| 20b460 | 73 79 73 3a 73 79 73 74 65 6d 2d 61 72 65 61 2d 70 6f 69 6e 74 65 72 20 28 73 79 73 3a 73 61 70 | sys:system-area-pointer.(sys:sap |
| 20b480 | 2d 69 6e 74 20 70 29 29 29 29 29 0a 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 66 6f 72 6d 61 | -int.p))))).......(apply.#'forma |
| 20b4a0 | 74 20 74 20 22 7e 0a 7e 38 58 20 20 53 74 61 63 6b 20 50 6f 69 6e 74 65 72 0a 7e 38 58 20 20 46 | t.t."~.~8X..Stack.Pointer.~8X..F |
| 20b4c0 | 72 61 6d 65 20 50 6f 69 6e 74 65 72 0a 7e 38 58 20 20 49 6e 73 74 72 75 63 74 69 6f 6e 20 50 6f | rame.Pointer.~8X..Instruction.Po |
| 20b4e0 | 69 6e 74 65 72 0a 7e 38 58 20 20 53 61 76 65 64 20 46 72 61 6d 65 20 50 6f 69 6e 74 65 72 0a 7e | inter.~8X..Saved.Frame.Pointer.~ |
| 20b500 | 38 58 20 20 53 61 76 65 64 20 49 6e 73 74 72 75 63 74 69 6f 6e 20 50 6f 69 6e 74 65 72 7e 25 22 | 8X..Saved.Instruction.Pointer~%" |
| 20b520 | 20 28 6d 61 70 63 61 72 20 23 27 66 69 78 6e 75 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(mapcar.#'fixnum............... |
| 20b540 | 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 66 72 | ........(multiple-value-list.(fr |
| 20b560 | 61 6d 65 2d 72 65 67 69 73 74 65 72 73 20 66 72 61 6d 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 | ame-registers.frame)))))))..(def |
| 20b580 | 76 61 72 20 2a 67 64 62 2d 70 72 6f 67 72 61 6d 2d 6e 61 6d 65 2a 0a 20 20 28 65 78 74 3a 65 6e | var.*gdb-program-name*...(ext:en |
| 20b5a0 | 75 6d 65 72 61 74 65 2d 73 65 61 72 63 68 2d 6c 69 73 74 20 28 70 20 22 70 61 74 68 3a 67 64 62 | umerate-search-list.(p."path:gdb |
| 20b5c0 | 22 29 0a 20 20 20 20 28 77 68 65 6e 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 70 29 0a 20 20 20 20 | ").....(when.(probe-file.p)..... |
| 20b5e0 | 20 20 28 72 65 74 75 72 6e 20 70 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | ..(return.p))))..(defimplementat |
| 20b600 | 69 6f 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 2d 6e 75 6d | ion.disassemble-frame.(frame-num |
| 20b620 | 62 65 72 29 0a 20 20 28 70 72 69 6e 74 2d 66 72 61 6d 65 2d 72 65 67 69 73 74 65 72 73 20 66 72 | ber)...(print-frame-registers.fr |
| 20b640 | 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 74 65 72 70 72 69 29 0a 20 20 28 6c 65 74 2a 20 28 | ame-number)...(terpri)...(let*.( |
| 20b660 | 28 66 72 61 6d 65 20 28 64 69 3a 3a 66 72 61 6d 65 2d 72 65 61 6c 2d 66 72 61 6d 65 20 28 6e 74 | (frame.(di::frame-real-frame.(nt |
| 20b680 | 68 2d 66 72 61 6d 65 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 | h-frame.frame-number)))......... |
| 20b6a0 | 20 28 64 65 62 75 67 2d 66 75 6e 20 28 64 69 3a 3a 66 72 61 6d 65 2d 64 65 62 75 67 2d 66 75 6e | .(debug-fun.(di::frame-debug-fun |
| 20b6c0 | 63 74 69 6f 6e 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 64 65 | ction.frame))).....(etypecase.de |
| 20b6e0 | 62 75 67 2d 66 75 6e 0a 20 20 20 20 20 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 | bug-fun.......(di::compiled-debu |
| 20b700 | 67 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 6d 70 6f 6e | g-function........(let*.((compon |
| 20b720 | 65 6e 74 20 28 64 69 3a 3a 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e | ent.(di::compiled-debug-function |
| 20b740 | 2d 63 6f 6d 70 6f 6e 65 6e 74 20 64 65 62 75 67 2d 66 75 6e 29 29 0a 20 20 20 20 20 20 20 20 20 | -component.debug-fun)).......... |
| 20b760 | 20 20 20 20 20 28 66 75 6e 20 28 64 69 3a 64 65 62 75 67 2d 66 75 6e 63 74 69 6f 6e 2d 66 75 6e | .....(fun.(di:debug-function-fun |
| 20b780 | 63 74 69 6f 6e 20 64 65 62 75 67 2d 66 75 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 | ction.debug-fun)))..........(if. |
| 20b7a0 | 66 75 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 62 6c 65 20 66 75 | fun..............(disassemble.fu |
| 20b7c0 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 3a 64 69 73 61 73 73 | n)..............(disassem:disass |
| 20b7e0 | 65 6d 62 6c 65 2d 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e 74 20 63 6f 6d 70 6f 6e 65 6e 74 29 29 | emble-code-component.component)) |
| 20b800 | 29 29 0a 20 20 20 20 20 20 28 64 69 3a 3a 62 6f 67 75 73 2d 64 65 62 75 67 2d 66 75 6e 63 74 69 | )).......(di::bogus-debug-functi |
| 20b820 | 6f 6e 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 70 72 6f 62 65 2d 66 69 6c 65 20 2a 67 64 | on........(cond.((probe-file.*gd |
| 20b840 | 62 2d 70 72 6f 67 72 61 6d 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | b-program-name*)...............( |
| 20b860 | 6c 65 74 20 28 28 69 70 20 28 73 79 73 3a 73 61 70 2d 69 6e 74 20 28 66 72 61 6d 65 2d 69 70 20 | let.((ip.(sys:sap-int.(frame-ip. |
| 20b880 | 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 63 | frame)))).................(princ |
| 20b8a0 | 20 28 67 64 62 2d 63 6f 6d 6d 61 6e 64 20 22 64 69 73 61 73 20 30 78 7e 78 22 20 69 70 29 29 29 | .(gdb-command."disas.0x~x".ip))) |
| 20b8c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )..............(t............... |
| 20b8e0 | 28 66 6f 72 6d 61 74 20 74 20 22 7e 25 5b 44 69 73 61 73 73 65 6d 62 6c 69 6e 67 20 62 6f 67 75 | (format.t."~%[Disassembling.bogu |
| 20b900 | 73 20 66 72 61 6d 65 73 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 5d 22 29 29 29 29 29 29 | s.frames.not.implemented]")))))) |
| 20b920 | 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 | )..(defmacro.with-temporary-file |
| 20b940 | 20 28 28 73 74 72 65 61 6d 20 66 69 6c 65 6e 61 6d 65 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a | .((stream.filename).&body.body). |
| 20b960 | 20 20 60 28 63 61 6c 6c 2f 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 20 28 6c 61 6d 62 64 61 20 | ..`(call/temporary-file.(lambda. |
| 20b980 | 28 2c 73 74 72 65 61 6d 20 2c 66 69 6c 65 6e 61 6d 65 29 20 2e 20 2c 62 6f 64 79 29 29 29 0a 0a | (,stream.,filename)...,body))).. |
| 20b9a0 | 28 64 65 66 75 6e 20 63 61 6c 6c 2f 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 20 28 66 75 6e 29 | (defun.call/temporary-file.(fun) |
| 20b9c0 | 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 73 79 73 74 65 6d 3a 3a 70 69 63 6b 2d 74 65 6d | ...(let.((name.(system::pick-tem |
| 20b9e0 | 70 6f 72 61 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 75 6e 77 69 6e 64 2d | porary-file-name))).....(unwind- |
| 20ba00 | 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 | protect..........(with-open-file |
| 20ba20 | 20 28 73 74 72 65 61 6d 20 6e 61 6d 65 20 3a 64 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 | .(stream.name.:direction.:output |
| 20ba40 | 20 3a 69 66 2d 65 78 69 73 74 73 20 3a 73 75 70 65 72 73 65 64 65 29 0a 20 20 20 20 20 20 20 20 | .:if-exists.:supersede)......... |
| 20ba60 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 20 73 74 72 65 61 6d 20 6e 61 6d 65 29 29 0a 20 20 | ...(funcall.fun.stream.name))... |
| 20ba80 | 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 | ....(delete-file.name))))..(defu |
| 20baa0 | 6e 20 67 64 62 2d 63 6f 6d 6d 61 6e 64 20 28 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 26 72 65 | n.gdb-command.(format-string.&re |
| 20bac0 | 73 74 20 61 72 67 73 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 20 28 67 64 62 2d 65 78 65 63 20 | st.args)...(let.((str.(gdb-exec. |
| 20bae0 | 28 66 6f 72 6d 61 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (format.nil..................... |
| 20bb00 | 20 20 20 20 20 20 20 20 20 20 20 22 69 6e 74 65 72 70 72 65 74 65 72 2d 65 78 65 63 20 6d 69 32 | ..........."interpreter-exec.mi2 |
| 20bb20 | 20 5c 22 61 74 74 61 63 68 20 7e 64 5c 22 7e 25 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .\"attach.~d\"~%~............... |
| 20bb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 72 65 74 65 72 2d 65 78 | ..................interpreter-ex |
| 20bb60 | 65 63 20 63 6f 6e 73 6f 6c 65 20 7e 73 7e 25 64 65 74 61 63 68 22 0a 20 20 20 20 20 20 20 20 20 | ec.console.~s~%detach".......... |
| 20bb80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 70 69 64 29 0a 20 | ......................(getpid).. |
| 20bba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | ..............................(a |
| 20bbc0 | 70 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 6e 69 6c 20 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 | pply.#'format.nil.format-string. |
| 20bbe0 | 61 72 67 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 6d 70 74 20 28 66 6f 72 6d 61 74 | args)))).........(prompt.(format |
| 20bc00 | 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2d 28 | .nil.........................#-( |
| 20bc20 | 61 6e 64 20 64 61 72 77 69 6e 20 78 38 36 29 20 22 7e 25 5e 64 6f 6e 65 7e 25 28 67 64 62 29 20 | and.darwin.x86)."~%^done~%(gdb). |
| 20bc40 | 7e 25 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 28 61 | ~%".........................#+(a |
| 20bc60 | 6e 64 20 64 61 72 77 69 6e 20 78 38 36 29 0a 22 7e 25 5e 64 6f 6e 65 2c 74 68 72 65 61 64 2d 69 | nd.darwin.x86)."~%^done,thread-i |
| 20bc80 | 64 3d 5c 22 31 5c 22 7e 25 28 67 64 62 29 20 7e 25 22 29 29 29 0a 20 20 20 20 28 73 75 62 73 65 | d=\"1\"~%(gdb).~%"))).....(subse |
| 20bca0 | 71 20 73 74 72 20 28 2b 20 28 6f 72 20 28 73 65 61 72 63 68 20 70 72 6f 6d 70 74 20 73 74 72 29 | q.str.(+.(or.(search.prompt.str) |
| 20bcc0 | 20 30 29 20 28 6c 65 6e 67 74 68 20 70 72 6f 6d 70 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | .0).(length.prompt)))))..(defun. |
| 20bce0 | 67 64 62 2d 65 78 65 63 20 28 63 6d 64 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 6f 72 61 72 79 | gdb-exec.(cmd)...(with-temporary |
| 20bd00 | 2d 66 69 6c 65 20 28 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 28 77 72 69 74 65 | -file.(file.filename).....(write |
| 20bd20 | 2d 73 74 72 69 6e 67 20 63 6d 64 20 66 69 6c 65 29 0a 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 | -string.cmd.file).....(force-out |
| 20bd40 | 70 75 74 20 66 69 6c 65 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6f 75 74 70 75 74 20 28 6d 61 | put.file).....(let*.((output.(ma |
| 20bd60 | 6b 65 2d 73 74 72 69 6e 67 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 | ke-string-output-stream))....... |
| 20bd80 | 20 20 20 20 20 3b 3b 20 67 64 62 20 6f 6e 20 73 70 61 72 63 20 6e 65 65 64 73 20 74 6f 20 6b 6e | .....;;.gdb.on.sparc.needs.to.kn |
| 20bda0 | 6f 77 20 74 68 65 20 65 78 65 63 75 74 61 62 6c 65 20 74 6f 20 66 69 6e 64 20 74 68 65 0a 20 20 | ow.the.executable.to.find.the... |
| 20bdc0 | 20 20 20 20 20 20 20 20 20 3b 3b 20 73 79 6d 62 6f 6c 73 2e 20 20 57 69 74 68 6f 75 74 20 74 68 | .........;;.symbols...Without.th |
| 20bde0 | 69 73 2c 20 67 64 62 20 63 61 6e 27 74 20 64 69 73 61 73 73 65 6d 62 6c 65 20 61 6e 79 74 68 69 | is,.gdb.can't.disassemble.anythi |
| 20be00 | 6e 67 2e 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 4f 54 45 3a 20 57 65 20 61 73 73 75 6d | ng.............;;.NOTE:.We.assum |
| 20be20 | 65 20 74 68 61 74 20 74 68 65 20 66 69 72 73 74 20 65 6e 74 72 79 20 69 6e 0a 20 20 20 20 20 20 | e.that.the.first.entry.in....... |
| 20be40 | 20 20 20 20 20 3b 3b 20 6c 69 73 70 3a 3a 2a 63 6d 75 63 6c 2d 6c 69 62 2a 20 69 73 20 74 68 65 | .....;;.lisp::*cmucl-lib*.is.the |
| 20be60 | 20 62 69 6e 20 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 20 6c 69 73 70 20 69 73 0a 20 20 20 | .bin.directory.where.lisp.is.... |
| 20be80 | 20 20 20 20 20 20 20 20 3b 3b 20 6c 6f 63 61 74 65 64 2e 20 20 49 66 20 74 68 69 73 20 69 73 20 | ........;;.located...If.this.is. |
| 20bea0 | 6e 6f 74 20 74 72 75 65 2c 20 77 65 27 6c 6c 20 68 61 76 65 20 74 6f 20 64 6f 0a 20 20 20 20 20 | not.true,.we'll.have.to.do...... |
| 20bec0 | 20 20 20 20 20 20 3b 3b 20 73 6f 6d 65 74 68 69 6e 67 20 62 65 74 74 65 72 20 74 6f 20 66 69 6e | ......;;.something.better.to.fin |
| 20bee0 | 64 20 74 68 65 20 6c 69 73 70 20 65 78 65 63 75 74 61 62 6c 65 2e 0a 20 20 20 20 20 20 20 20 20 | d.the.lisp.executable........... |
| 20bf00 | 20 20 28 6c 69 73 70 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 73 70 61 72 63 | ..(lisp-path.............#+sparc |
| 20bf20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..............(list............. |
| 20bf40 | 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 | ..(namestring................(pr |
| 20bf60 | 6f 62 65 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 72 67 65 2d | obe-file.................(merge- |
| 20bf80 | 70 61 74 68 6e 61 6d 65 73 20 22 6c 69 73 70 22 20 28 63 61 72 20 28 6c 69 73 70 3a 3a 70 61 72 | pathnames."lisp".(car.(lisp::par |
| 20bfa0 | 73 65 2d 75 6e 69 78 2d 73 65 61 72 63 68 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 | se-unix-search-path............. |
| 20bfc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 20bfe0 | 20 20 6c 69 73 70 3a 3a 2a 63 6d 75 63 6c 2d 6c 69 62 2a 29 29 29 29 29 29 0a 20 20 20 20 20 20 | ..lisp::*cmucl-lib*))))))....... |
| 20c000 | 20 20 20 20 20 20 20 23 2d 73 70 61 72 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 | .......#-sparc..............nil) |
| 20c020 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 20 28 65 78 74 3a 72 75 6e 2d 70 72 6f 67 72 | ............(proc.(ext:run-progr |
| 20c040 | 61 6d 20 2a 67 64 62 2d 70 72 6f 67 72 61 6d 2d 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 20 20 20 | am.*gdb-program-name*........... |
| 20c060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 40 6c 69 73 70 | ........................`(,@lisp |
| 20c080 | 2d 70 61 74 68 20 22 2d 62 61 74 63 68 22 20 22 2d 78 22 20 2c 66 69 6c 65 6e 61 6d 65 29 0a 20 | -path."-batch"."-x".,filename).. |
| 20c0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 20c0c0 | 20 3a 77 61 69 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:wait.t........................ |
| 20c0e0 | 20 20 20 20 20 20 20 20 20 20 20 3a 6f 75 74 70 75 74 20 6f 75 74 70 75 74 29 29 29 0a 20 20 20 | ...........:output.output))).... |
| 20c100 | 20 20 20 28 61 73 73 65 72 74 20 28 65 71 20 28 65 78 74 3a 70 72 6f 63 65 73 73 2d 73 74 61 74 | ...(assert.(eq.(ext:process-stat |
| 20c120 | 75 73 20 70 72 6f 63 29 20 3a 65 78 69 74 65 64 29 29 0a 20 20 20 20 20 20 28 61 73 73 65 72 74 | us.proc).:exited)).......(assert |
| 20c140 | 20 28 65 71 20 28 65 78 74 3a 70 72 6f 63 65 73 73 2d 65 78 69 74 2d 63 6f 64 65 20 70 72 6f 63 | .(eq.(ext:process-exit-code.proc |
| 20c160 | 29 20 30 29 29 0a 20 20 20 20 20 20 28 67 65 74 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 73 | ).0)).......(get-output-stream-s |
| 20c180 | 74 72 69 6e 67 20 6f 75 74 70 75 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 65 69 67 6e | tring.output))))..(defun.foreign |
| 20c1a0 | 2d 66 72 61 6d 65 2d 70 20 28 66 72 61 6d 65 29 0a 20 20 23 2d 78 38 36 0a 20 20 28 6c 65 74 20 | -frame-p.(frame)...#-x86...(let. |
| 20c1c0 | 28 28 69 70 20 28 66 72 61 6d 65 2d 69 70 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 61 6e 64 | ((ip.(frame-ip.frame))).....(and |
| 20c1e0 | 20 28 73 79 73 3a 73 79 73 74 65 6d 2d 61 72 65 61 2d 70 6f 69 6e 74 65 72 2d 70 20 69 70 29 0a | .(sys:system-area-pointer-p.ip). |
| 20c200 | 20 20 20 20 20 20 20 20 20 28 74 79 70 65 70 20 28 64 69 3a 3a 66 72 61 6d 65 2d 64 65 62 75 67 | .........(typep.(di::frame-debug |
| 20c220 | 2d 66 75 6e 63 74 69 6f 6e 20 66 72 61 6d 65 29 20 27 64 69 3a 3a 62 6f 67 75 73 2d 64 65 62 75 | -function.frame).'di::bogus-debu |
| 20c240 | 67 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 23 2b 78 38 36 0a 20 20 28 6c 65 74 20 28 28 69 | g-function)))...#+x86...(let.((i |
| 20c260 | 70 20 28 66 72 61 6d 65 2d 69 70 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 61 6e 64 20 28 73 | p.(frame-ip.frame))).....(and.(s |
| 20c280 | 79 73 3a 73 79 73 74 65 6d 2d 61 72 65 61 2d 70 6f 69 6e 74 65 72 2d 70 20 69 70 29 0a 20 20 20 | ys:system-area-pointer-p.ip).... |
| 20c2a0 | 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 63 20 63 | ......(multiple-value-bind.(pc.c |
| 20c2c0 | 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 3a 3a 63 6f 6d 70 75 74 65 2d 6c | ode)..............(di::compute-l |
| 20c2e0 | 72 61 2d 64 61 74 61 2d 66 72 6f 6d 2d 70 63 20 69 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | ra-data-from-pc.ip)............( |
| 20c300 | 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 70 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | declare.(ignore.pc))............ |
| 20c320 | 28 6e 6f 74 20 63 6f 64 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 65 69 67 6e 2d 66 | (not.code)))))..(defun.foreign-f |
| 20c340 | 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 72 61 6d 65 29 0a 20 20 28 | rame-source-location.(frame)...( |
| 20c360 | 6c 65 74 20 28 28 69 70 20 28 73 79 73 3a 73 61 70 2d 69 6e 74 20 28 66 72 61 6d 65 2d 69 70 20 | let.((ip.(sys:sap-int.(frame-ip. |
| 20c380 | 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 70 72 6f 62 65 2d 66 69 6c 65 | frame)))).....(cond.((probe-file |
| 20c3a0 | 20 2a 67 64 62 2d 70 72 6f 67 72 61 6d 2d 6e 61 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .*gdb-program-name*)............ |
| 20c3c0 | 28 70 61 72 73 65 2d 67 64 62 2d 6c 69 6e 65 2d 69 6e 66 6f 20 28 67 64 62 2d 63 6f 6d 6d 61 6e | (parse-gdb-line-info.(gdb-comman |
| 20c3e0 | 64 20 22 69 6e 66 6f 20 6c 69 6e 65 20 2a 30 78 7e 78 22 20 69 70 29 29 29 0a 20 20 20 20 20 20 | d."info.line.*0x~x".ip)))....... |
| 20c400 | 20 20 20 20 28 74 20 60 28 3a 65 72 72 6f 72 20 22 6e 6f 20 73 72 63 6c 6f 63 20 61 76 61 69 6c | ....(t.`(:error."no.srcloc.avail |
| 20c420 | 61 62 6c 65 20 66 6f 72 20 7e 61 22 20 66 72 61 6d 65 29 29 29 29 29 0a 0a 3b 3b 20 54 68 65 20 | able.for.~a".frame)))))..;;.The. |
| 20c440 | 6f 75 74 70 75 74 20 6f 66 20 67 64 62 20 6c 6f 6f 6b 73 20 6c 69 6b 65 3a 0a 3b 3b 20 4c 69 6e | output.of.gdb.looks.like:.;;.Lin |
| 20c460 | 65 20 32 31 35 20 6f 66 20 22 2e 2e 2f 2e 2e 2f 73 72 63 2f 6c 69 73 70 2f 78 38 36 2d 61 73 73 | e.215.of."../../src/lisp/x86-ass |
| 20c480 | 65 6d 2e 53 22 0a 3b 3b 20 20 20 20 73 74 61 72 74 73 20 61 74 20 61 64 64 72 65 73 73 20 30 78 | em.S".;;....starts.at.address.0x |
| 20c4a0 | 38 30 35 33 31 38 63 20 3c 4c 64 6f 6e 65 2b 31 31 3e 0a 3b 3b 20 20 20 20 61 6e 64 20 65 6e 64 | 805318c.<Ldone+11>.;;....and.end |
| 20c4c0 | 73 20 61 74 20 30 78 38 30 35 33 31 38 65 20 3c 4c 64 6f 6e 65 2b 31 33 3e 2e 0a 3b 3b 20 54 68 | s.at.0x805318e.<Ldone+13>..;;.Th |
| 20c4e0 | 65 20 2e 2e 2f 2e 2e 2f 20 61 72 65 20 66 69 78 65 64 20 75 70 20 77 69 74 68 20 74 68 65 20 22 | e.../../.are.fixed.up.with.the." |
| 20c500 | 74 61 72 67 65 74 3a 22 20 73 65 61 72 63 68 20 6c 69 73 74 20 77 68 69 63 68 20 6d 69 67 68 74 | target:".search.list.which.might |
| 20c520 | 0a 3b 3b 20 62 65 20 77 72 6f 6e 67 20 73 6f 6d 65 74 69 6d 65 73 2e 0a 28 64 65 66 75 6e 20 70 | .;;.be.wrong.sometimes..(defun.p |
| 20c540 | 61 72 73 65 2d 67 64 62 2d 6c 69 6e 65 2d 69 6e 66 6f 20 28 73 74 72 69 6e 67 29 0a 20 20 28 77 | arse-gdb-line-info.(string)...(w |
| 20c560 | 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 2a 73 74 61 6e 64 61 72 64 | ith-input-from-string.(*standard |
| 20c580 | 2d 69 6e 70 75 74 2a 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 6c 65 74 20 28 28 77 31 20 28 72 | -input*.string).....(let.((w1.(r |
| 20c5a0 | 65 61 64 2d 77 6f 72 64 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 | ead-word))).......(cond.((equal. |
| 20c5c0 | 77 31 20 22 4c 69 6e 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c | w1."Line")..............(let.((l |
| 20c5e0 | 69 6e 65 20 28 72 65 61 64 2d 77 6f 72 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ine.(read-word)))............... |
| 20c600 | 20 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 20 28 72 65 61 64 2d 77 6f 72 64 29 20 22 6f 66 22 | .(assert.(equal.(read-word)."of" |
| 20c620 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 65 20 28 | ))................(let*.((file.( |
| 20c640 | 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 72 65 61 64 2d 77 6f 72 64 29 29 29 0a 20 | read-from-string.(read-word))).. |
| 20c660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 0a 20 | .....................(pathname.. |
| 20c680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 70 72 6f 62 65 | ......................(or.(probe |
| 20c6a0 | 2d 66 69 6c 65 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -file.file)..................... |
| 20c6c0 | 20 20 20 20 20 20 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 | .......(probe-file.(format.nil." |
| 20c6e0 | 74 61 72 67 65 74 3a 6c 69 73 70 2f 7e 61 22 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 | target:lisp/~a".file)).......... |
| 20c700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 | ..................file)))....... |
| 20c720 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 | ...........(make-location.(list. |
| 20c740 | 3a 66 69 6c 65 20 28 75 6e 69 78 2d 74 72 75 65 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 29 29 0a | :file.(unix-truename.pathname)). |
| 20c760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 20c780 | 28 6c 69 73 74 20 3a 6c 69 6e 65 20 28 70 61 72 73 65 2d 69 6e 74 65 67 65 72 20 6c 69 6e 65 29 | (list.:line.(parse-integer.line) |
| 20c7a0 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 | ))))).............(t............ |
| 20c7c0 | 20 20 60 28 3a 65 72 72 6f 72 20 2c 73 74 72 69 6e 67 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | ..`(:error.,string))))))..(defun |
| 20c7e0 | 20 72 65 61 64 2d 77 6f 72 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 73 74 72 65 61 6d 20 2a 73 | .read-word.(&optional.(stream.*s |
| 20c800 | 74 61 6e 64 61 72 64 2d 69 6e 70 75 74 2a 29 29 0a 20 20 28 70 65 65 6b 2d 63 68 61 72 20 74 20 | tandard-input*))...(peek-char.t. |
| 20c820 | 73 74 72 65 61 6d 29 0a 20 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 20 28 | stream)...(concatenate.'string.( |
| 20c840 | 6c 6f 6f 70 20 75 6e 74 69 6c 20 28 77 68 69 74 65 73 70 61 63 65 70 20 28 70 65 65 6b 2d 63 68 | loop.until.(whitespacep.(peek-ch |
| 20c860 | 61 72 20 6e 69 6c 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ar.nil.stream))................. |
| 20c880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 72 65 61 64 2d 63 68 61 72 20 | .............collect.(read-char. |
| 20c8a0 | 73 74 72 65 61 6d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 77 68 69 74 65 73 70 61 63 65 70 20 28 | stream))))..(defun.whitespacep.( |
| 20c8c0 | 63 68 61 72 29 0a 20 20 28 6d 65 6d 62 65 72 20 63 68 61 72 20 27 28 23 5c 73 70 61 63 65 20 23 | char)...(member.char.'(#\space.# |
| 20c8e0 | 5c 6e 65 77 6c 69 6e 65 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 74 69 6e 67 0a 0a | \newline)))....;;;;.Inspecting.. |
| 20c900 | 28 64 65 66 63 6f 6e 73 74 61 6e 74 20 2b 6c 6f 77 74 61 67 2d 73 79 6d 62 6f 6c 73 2b 0a 20 20 | (defconstant.+lowtag-symbols+... |
| 20c920 | 27 28 76 6d 3a 65 76 65 6e 2d 66 69 78 6e 75 6d 2d 74 79 70 65 0a 20 20 20 20 76 6d 3a 66 75 6e | '(vm:even-fixnum-type.....vm:fun |
| 20c940 | 63 74 69 6f 6e 2d 70 6f 69 6e 74 65 72 2d 74 79 70 65 0a 20 20 20 20 76 6d 3a 6f 74 68 65 72 2d | ction-pointer-type.....vm:other- |
| 20c960 | 69 6d 6d 65 64 69 61 74 65 2d 30 2d 74 79 70 65 0a 20 20 20 20 76 6d 3a 6c 69 73 74 2d 70 6f 69 | immediate-0-type.....vm:list-poi |
| 20c980 | 6e 74 65 72 2d 74 79 70 65 0a 20 20 20 20 76 6d 3a 6f 64 64 2d 66 69 78 6e 75 6d 2d 74 79 70 65 | nter-type.....vm:odd-fixnum-type |
| 20c9a0 | 0a 20 20 20 20 76 6d 3a 69 6e 73 74 61 6e 63 65 2d 70 6f 69 6e 74 65 72 2d 74 79 70 65 0a 20 20 | .....vm:instance-pointer-type... |
| 20c9c0 | 20 20 76 6d 3a 6f 74 68 65 72 2d 69 6d 6d 65 64 69 61 74 65 2d 31 2d 74 79 70 65 0a 20 20 20 20 | ..vm:other-immediate-1-type..... |
| 20c9e0 | 76 6d 3a 6f 74 68 65 72 2d 70 6f 69 6e 74 65 72 2d 74 79 70 65 29 0a 20 20 22 4e 61 6d 65 73 20 | vm:other-pointer-type)..."Names. |
| 20ca00 | 6f 66 20 74 68 65 20 63 6f 6e 73 74 61 6e 74 73 20 74 68 61 74 20 73 70 65 63 69 66 79 20 74 79 | of.the.constants.that.specify.ty |
| 20ca20 | 70 65 20 74 61 67 73 2e 0a 54 68 65 20 60 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 27 20 6f 66 20 65 | pe.tags..The.`symbol-value'.of.e |
| 20ca40 | 61 63 68 20 65 6c 65 6d 65 6e 74 20 69 73 20 61 20 74 79 70 65 20 74 61 67 2e 22 29 0a 0a 28 64 | ach.element.is.a.type.tag.")..(d |
| 20ca60 | 65 66 63 6f 6e 73 74 61 6e 74 20 2b 68 65 61 64 65 72 2d 74 79 70 65 2d 73 79 6d 62 6f 6c 73 2b | efconstant.+header-type-symbols+ |
| 20ca80 | 0a 20 20 28 6c 61 62 65 6c 73 20 28 28 73 75 66 66 69 78 70 20 28 73 75 66 66 69 78 20 73 74 72 | ...(labels.((suffixp.(suffix.str |
| 20caa0 | 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 3e 3d 20 28 6c 65 6e 67 | ing)..............(and.(>=.(leng |
| 20cac0 | 74 68 20 73 74 72 69 6e 67 29 20 28 6c 65 6e 67 74 68 20 73 75 66 66 69 78 29 29 0a 20 20 20 20 | th.string).(length.suffix))..... |
| 20cae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3d 20 73 74 72 69 6e 67 20 73 75 | ..............(string=.string.su |
| 20cb00 | 66 66 69 78 20 3a 73 74 61 72 74 31 20 28 2d 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 0a | ffix.:start1.(-.(length.string). |
| 20cb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 20cb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 73 75 66 66 | ....................(length.suff |
| 20cb60 | 69 78 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 68 65 61 64 65 72 2d 74 79 70 65 2d | ix)))))............(header-type- |
| 20cb80 | 73 79 6d 62 6f 6c 2d 70 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 | symbol-p.(x)..............(and.( |
| 20cba0 | 73 75 66 66 69 78 70 20 22 2d 54 59 50 45 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 78 29 29 | suffixp."-TYPE".(symbol-name.x)) |
| 20cbc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 | ...................(not.(member. |
| 20cbe0 | 78 20 2b 6c 6f 77 74 61 67 2d 73 79 6d 62 6f 6c 73 2b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | x.+lowtag-symbols+))............ |
| 20cc00 | 20 20 20 20 20 20 20 28 62 6f 75 6e 64 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(boundp.x)............... |
| 20cc20 | 20 20 20 20 28 74 79 70 65 70 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 78 29 20 27 66 69 78 | ....(typep.(symbol-value.x).'fix |
| 20cc40 | 6e 75 6d 29 29 29 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 27 68 65 61 | num)))).....(remove-if-not.#'hea |
| 20cc60 | 64 65 72 2d 74 79 70 65 2d 73 79 6d 62 6f 6c 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | der-type-symbol-p............... |
| 20cc80 | 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 61 70 72 6f 70 6f 73 2d 6c 69 73 74 20 22 2d 54 59 50 | .....(append.(apropos-list."-TYP |
| 20cca0 | 45 22 20 22 56 4d 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | E"."VM")........................ |
| 20ccc0 | 20 20 20 20 28 61 70 72 6f 70 6f 73 2d 6c 69 73 74 20 22 2d 54 59 50 45 22 20 22 42 49 47 4e 55 | ....(apropos-list."-TYPE"."BIGNU |
| 20cce0 | 4d 22 29 29 29 29 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 6e 61 6d 65 73 20 6f 66 20 74 68 65 | M"))))..."A.list.of.names.of.the |
| 20cd00 | 20 74 79 70 65 20 63 6f 64 65 73 20 69 6e 20 62 6f 78 65 64 20 6f 62 6a 65 63 74 73 2e 22 29 0a | .type.codes.in.boxed.objects."). |
| 20cd20 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 70 72 69 | .(defimplementation.describe-pri |
| 20cd40 | 6d 69 74 69 76 65 2d 74 79 70 65 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 77 69 74 68 2d 6f 75 74 | mitive-type.(object)...(with-out |
| 20cd60 | 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a | put-to-string.(*standard-output* |
| 20cd80 | 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 6f 77 74 61 67 20 28 6b 65 72 6e 65 6c 3a 67 65 74 | ).....(let*.((lowtag.(kernel:get |
| 20cda0 | 2d 6c 6f 77 74 61 67 20 6f 62 6a 65 63 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 77 | -lowtag.object))............(low |
| 20cdc0 | 74 61 67 2d 73 79 6d 62 6f 6c 20 28 66 69 6e 64 20 6c 6f 77 74 61 67 20 2b 6c 6f 77 74 61 67 2d | tag-symbol.(find.lowtag.+lowtag- |
| 20cde0 | 73 79 6d 62 6f 6c 73 2b 20 3a 6b 65 79 20 23 27 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 29 29 29 0a | symbols+.:key.#'symbol-value))). |
| 20ce00 | 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 6c 6f 77 74 61 67 3a 20 7e 41 22 20 6c 6f 77 | ......(format.t."lowtag:.~A".low |
| 20ce20 | 74 61 67 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 65 6d 62 65 72 20 | tag-symbol).......(when.(member. |
| 20ce40 | 6c 6f 77 74 61 67 20 28 6c 69 73 74 20 76 6d 3a 6f 74 68 65 72 2d 70 6f 69 6e 74 65 72 2d 74 79 | lowtag.(list.vm:other-pointer-ty |
| 20ce60 | 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pe.............................. |
| 20ce80 | 20 20 20 20 76 6d 3a 66 75 6e 63 74 69 6f 6e 2d 70 6f 69 6e 74 65 72 2d 74 79 70 65 0a 20 20 20 | ....vm:function-pointer-type.... |
| 20cea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6d | ..............................vm |
| 20cec0 | 3a 6f 74 68 65 72 2d 69 6d 6d 65 64 69 61 74 65 2d 30 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 | :other-immediate-0-type......... |
| 20cee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6d 3a 6f 74 68 65 | .........................vm:othe |
| 20cf00 | 72 2d 69 6d 6d 65 64 69 61 74 65 2d 31 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-immediate-1-type.............. |
| 20cf20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 0a 20 20 20 20 20 20 20 20 28 | ....................)).........( |
| 20cf40 | 6c 65 74 2a 20 28 28 74 79 70 65 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 74 79 70 65 20 6f 62 6a | let*.((type.(kernel:get-type.obj |
| 20cf60 | 65 63 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 2d 73 79 6d 62 6f | ect))................(type-symbo |
| 20cf80 | 6c 20 28 66 69 6e 64 20 74 79 70 65 20 2b 68 65 61 64 65 72 2d 74 79 70 65 2d 73 79 6d 62 6f 6c | l.(find.type.+header-type-symbol |
| 20cfa0 | 73 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s+.............................. |
| 20cfc0 | 20 20 20 20 20 3a 6b 65 79 20 23 27 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 29 29 29 0a 20 20 20 20 | .....:key.#'symbol-value)))..... |
| 20cfe0 | 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 2c 20 74 79 70 65 3a 20 7e 41 22 20 74 79 70 | ......(format.t.",.type:.~A".typ |
| 20d000 | 65 2d 73 79 6d 62 6f 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 | e-symbol))))))..(defmethod.emacs |
| 20d020 | 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 74 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 64 69 3a 3a 69 | -inspect.((o.t))...(cond.((di::i |
| 20d040 | 6e 64 69 72 65 63 74 2d 76 61 6c 75 65 2d 63 65 6c 6c 2d 70 20 6f 29 0a 20 20 20 20 20 20 20 20 | ndirect-value-cell-p.o)......... |
| 20d060 | 20 60 28 22 56 61 6c 75 65 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 28 63 3a 76 61 6c 75 65 2d 63 | .`("Value:.".(:value.,(c:value-c |
| 20d080 | 65 6c 6c 2d 72 65 66 20 6f 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6c 69 65 6e 3a 3a 61 | ell-ref.o)))).........((alien::a |
| 20d0a0 | 6c 69 65 6e 2d 76 61 6c 75 65 2d 70 20 6f 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 73 70 65 63 | lien-value-p.o)..........(inspec |
| 20d0c0 | 74 2d 61 6c 69 65 6e 2d 76 61 6c 75 65 20 6f 29 29 0a 09 28 74 0a 20 20 20 20 20 20 20 20 20 28 | t-alien-value.o))..(t..........( |
| 20d0e0 | 63 6d 75 63 6c 2d 69 6e 73 70 65 63 74 20 6f 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6d 75 63 | cmucl-inspect.o))))..(defun.cmuc |
| 20d100 | 6c 2d 69 6e 73 70 65 63 74 20 28 6f 29 0a 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 | l-inspect.(o)...(destructuring-b |
| 20d120 | 69 6e 64 20 28 74 65 78 74 20 6c 61 62 65 6c 65 64 70 20 2e 20 70 61 72 74 73 29 20 28 69 6e 73 | ind.(text.labeledp...parts).(ins |
| 20d140 | 70 65 63 74 3a 3a 64 65 73 63 72 69 62 65 2d 70 61 72 74 73 20 6f 29 0a 20 20 20 20 28 6c 69 73 | pect::describe-parts.o).....(lis |
| 20d160 | 74 2a 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 7e 25 22 20 74 65 78 74 29 0a 20 20 20 20 | t*.(format.nil."~A~%".text)..... |
| 20d180 | 20 20 20 20 20 20 20 28 69 66 20 6c 61 62 65 6c 65 64 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .......(if.labeledp............. |
| 20d1a0 | 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 6c 61 62 65 6c 20 2e 20 76 61 6c 75 65 29 20 69 6e 20 | ...(loop.for.(label...value).in. |
| 20d1c0 | 70 61 72 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e | parts......................appen |
| 20d1e0 | 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 6c 61 62 65 6c 20 76 61 6c 75 65 29 | d.(label-value-line.label.value) |
| 20d200 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 76 61 6c 75 65 | )................(loop.for.value |
| 20d220 | 20 69 6e 20 70 61 72 74 73 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 20 | .in.parts..for.i.from.0......... |
| 20d240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 | .............append.(label-value |
| 20d260 | 2d 6c 69 6e 65 20 69 20 76 61 6c 75 65 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 | -line.i.value))))))..(defmethod. |
| 20d280 | 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 | emacs-inspect.((o.function))...( |
| 20d2a0 | 6c 65 74 20 28 28 68 65 61 64 65 72 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 74 79 70 65 20 6f 29 | let.((header.(kernel:get-type.o) |
| 20d2c0 | 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 68 65 61 64 65 72 20 76 6d 3a 66 75 6e 63 74 | )).....(cond.((=.header.vm:funct |
| 20d2e0 | 69 6f 6e 2d 68 65 61 64 65 72 2d 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 | ion-header-type)............(app |
| 20d300 | 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 | end.(label-value-line*.......... |
| 20d320 | 20 20 20 20 20 20 20 20 20 20 20 28 22 53 65 6c 66 22 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 | ...........("Self".(kernel:%func |
| 20d340 | 74 69 6f 6e 2d 73 65 6c 66 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion-self.o))................... |
| 20d360 | 20 20 28 22 4e 65 78 74 22 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 6e 65 78 74 | ..("Next".(kernel:%function-next |
| 20d380 | 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 4e 61 6d 65 22 | .o)).....................("Name" |
| 20d3a0 | 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 6f 29 29 0a 20 20 20 20 | .(kernel:%function-name.o))..... |
| 20d3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 41 72 67 6c 69 73 74 22 20 28 6b 65 72 6e | ................("Arglist".(kern |
| 20d3e0 | 65 6c 3a 25 66 75 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 6f 29 29 0a 20 20 20 20 20 20 20 | el:%function-arglist.o))........ |
| 20d400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 54 79 70 65 22 20 28 6b 65 72 6e 65 6c 3a 25 66 75 | .............("Type".(kernel:%fu |
| 20d420 | 6e 63 74 69 6f 6e 2d 74 79 70 65 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nction-type.o))................. |
| 20d440 | 20 20 20 20 28 22 43 6f 64 65 22 20 28 6b 65 72 6e 65 6c 3a 66 75 6e 63 74 69 6f 6e 2d 63 6f 64 | ....("Code".(kernel:function-cod |
| 20d460 | 65 2d 68 65 61 64 65 72 20 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-header.o)))................... |
| 20d480 | 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 | .(list.....................(with |
| 20d4a0 | 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 29 0a 20 20 20 20 20 20 20 20 20 20 | -output-to-string.(s)........... |
| 20d4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 3a 64 69 73 61 73 73 65 6d 62 6c | ............(disassem:disassembl |
| 20d4e0 | 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 20 3a 73 74 72 65 61 6d 20 73 29 29 29 29 29 0a 20 20 20 20 | e-function.o.:stream.s)))))..... |
| 20d500 | 20 20 20 20 20 20 28 28 3d 20 68 65 61 64 65 72 20 76 6d 3a 63 6c 6f 73 75 72 65 2d 68 65 61 64 | ......((=.header.vm:closure-head |
| 20d520 | 65 72 2d 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 28 66 6f 72 6d | er-type)............(list*.(form |
| 20d540 | 61 74 20 6e 69 6c 20 22 7e 41 20 69 73 20 61 20 63 6c 6f 73 75 72 65 2e 7e 25 22 20 6f 29 0a 20 | at.nil."~A.is.a.closure.~%".o).. |
| 20d560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 | .................(append........ |
| 20d580 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 22 46 | ............(label-value-line."F |
| 20d5a0 | 75 6e 63 74 69 6f 6e 22 20 28 6b 65 72 6e 65 6c 3a 25 63 6c 6f 73 75 72 65 2d 66 75 6e 63 74 69 | unction".(kernel:%closure-functi |
| 20d5c0 | 6f 6e 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 22 45 6e 76 | on.o))....................`("Env |
| 20d5e0 | 69 72 6f 6e 6d 65 6e 74 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 | ironment:".(:newline)).......... |
| 20d600 | 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 62 65 6c | ..........(loop.for.i.from.0.bel |
| 20d620 | 6f 77 20 28 31 2d 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 63 6c 6f 73 75 72 65 2d 6c 65 6e 67 74 | ow.(1-.(kernel:get-closure-lengt |
| 20d640 | 68 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 | h.o))..........................a |
| 20d660 | 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 | ppend.(label-value-line......... |
| 20d680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 20 28 6b 65 72 6e | .........................i.(kern |
| 20d6a0 | 65 6c 3a 25 63 6c 6f 73 75 72 65 2d 69 6e 64 65 78 2d 72 65 66 20 6f 20 69 29 29 29 29 29 29 0a | el:%closure-index-ref.o.i)))))). |
| 20d6c0 | 20 20 20 20 20 20 20 20 20 20 28 28 65 76 61 6c 3a 3a 69 6e 74 65 72 70 72 65 74 65 64 2d 66 75 | ..........((eval::interpreted-fu |
| 20d6e0 | 6e 63 74 69 6f 6e 2d 70 20 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6d 75 63 6c 2d 69 6e | nction-p.o)............(cmucl-in |
| 20d700 | 73 70 65 63 74 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 | spect.o))...........(t.......... |
| 20d720 | 20 20 28 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 | ..(call-next-method)))))..(defme |
| 20d740 | 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 6b 65 72 6e 65 6c 3a 66 75 | thod.emacs-inspect.((o.kernel:fu |
| 20d760 | 6e 63 61 6c 6c 61 62 6c 65 2d 69 6e 73 74 61 6e 63 65 29 29 0a 20 20 28 61 70 70 65 6e 64 20 28 | ncallable-instance))...(append.( |
| 20d780 | 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 | label-value-line*............(:f |
| 20d7a0 | 75 6e 63 74 69 6f 6e 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 61 6c 6c 61 62 6c 65 2d 69 6e 73 | unction.(kernel:%funcallable-ins |
| 20d7c0 | 74 61 6e 63 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3a | tance-function.o))............(: |
| 20d7e0 | 6c 65 78 65 6e 76 20 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 61 6c 6c 61 62 6c 65 2d 69 6e 73 | lexenv..(kernel:%funcallable-ins |
| 20d800 | 74 61 6e 63 65 2d 6c 65 78 65 6e 76 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 61 | tance-lexenv.o))............(:la |
| 20d820 | 79 6f 75 74 20 20 28 6b 65 72 6e 65 6c 3a 25 66 75 6e 63 61 6c 6c 61 62 6c 65 2d 69 6e 73 74 61 | yout..(kernel:%funcallable-insta |
| 20d840 | 6e 63 65 2d 6c 61 79 6f 75 74 20 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6d 75 63 6c | nce-layout.o)))...........(cmucl |
| 20d860 | 2d 69 6e 73 70 65 63 74 20 6f 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d | -inspect.o)))..(defmethod.emacs- |
| 20d880 | 69 6e 73 70 65 63 74 20 28 28 6f 20 6b 65 72 6e 65 6c 3a 63 6f 64 65 2d 63 6f 6d 70 6f 6e 65 6e | inspect.((o.kernel:code-componen |
| 20d8a0 | 74 29 29 0a 20 20 28 61 70 70 65 6e 64 0a 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 | t))...(append....(label-value-li |
| 20d8c0 | 6e 65 2a 0a 20 20 20 20 28 22 63 6f 64 65 2d 73 69 7a 65 22 20 28 6b 65 72 6e 65 6c 3a 25 63 6f | ne*.....("code-size".(kernel:%co |
| 20d8e0 | 64 65 2d 63 6f 64 65 2d 73 69 7a 65 20 6f 29 29 0a 20 20 20 20 28 22 65 6e 74 72 79 2d 70 6f 69 | de-code-size.o)).....("entry-poi |
| 20d900 | 6e 74 73 22 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 65 6e 74 72 79 2d 70 6f 69 6e 74 73 20 | nts".(kernel:%code-entry-points. |
| 20d920 | 6f 29 29 0a 20 20 20 20 28 22 64 65 62 75 67 2d 69 6e 66 6f 22 20 28 6b 65 72 6e 65 6c 3a 25 63 | o)).....("debug-info".(kernel:%c |
| 20d940 | 6f 64 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 6f 29 29 0a 20 20 20 20 28 22 74 72 61 63 65 2d 74 | ode-debug-info.o)).....("trace-t |
| 20d960 | 61 62 6c 65 2d 6f 66 66 73 65 74 22 20 28 6b 65 72 6e 65 6c 3a 63 6f 64 65 2d 68 65 61 64 65 72 | able-offset".(kernel:code-header |
| 20d980 | 2d 72 65 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -ref............................ |
| 20d9a0 | 6f 20 76 6d 3a 63 6f 64 65 2d 74 72 61 63 65 2d 74 61 62 6c 65 2d 6f 66 66 73 65 74 2d 73 6c 6f | o.vm:code-trace-table-offset-slo |
| 20d9c0 | 74 29 29 29 0a 20 20 20 60 28 22 43 6f 6e 73 74 61 6e 74 73 3a 22 20 28 3a 6e 65 77 6c 69 6e 65 | t)))....`("Constants:".(:newline |
| 20d9e0 | 29 29 0a 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 76 6d 3a 63 6f 64 65 2d 63 | ))....(loop.for.i.from.vm:code-c |
| 20da00 | 6f 6e 73 74 61 6e 74 73 2d 6f 66 66 73 65 74 0a 20 20 20 20 20 20 20 20 20 62 65 6c 6f 77 20 28 | onstants-offset..........below.( |
| 20da20 | 6b 65 72 6e 65 6c 3a 67 65 74 2d 68 65 61 64 65 72 2d 64 61 74 61 20 6f 29 0a 20 20 20 20 20 20 | kernel:get-header-data.o)....... |
| 20da40 | 20 20 20 61 70 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 69 20 28 6b | ...append.(label-value-line.i.(k |
| 20da60 | 65 72 6e 65 6c 3a 63 6f 64 65 2d 68 65 61 64 65 72 2d 72 65 66 20 6f 20 69 29 29 29 0a 20 20 20 | ernel:code-header-ref.o.i))).... |
| 20da80 | 60 28 22 43 6f 64 65 3a 22 0a 20 20 20 20 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 2c | `("Code:"......(:newline)......, |
| 20daa0 | 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2a 73 74 61 6e 64 61 | .(with-output-to-string.(*standa |
| 20dac0 | 72 64 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 63 3a 3a | rd-output*)..........(cond.((c:: |
| 20dae0 | 63 6f 6d 70 69 6c 65 64 2d 64 65 62 75 67 2d 69 6e 66 6f 2d 70 20 28 6b 65 72 6e 65 6c 3a 25 63 | compiled-debug-info-p.(kernel:%c |
| 20db00 | 6f 64 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ode-debug-info.o)).............. |
| 20db20 | 20 20 20 28 64 69 73 61 73 73 65 6d 3a 64 69 73 61 73 73 65 6d 62 6c 65 2d 63 6f 64 65 2d 63 6f | ...(disassem:disassemble-code-co |
| 20db40 | 6d 70 6f 6e 65 6e 74 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 0a | mponent.o))................((or. |
| 20db60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 3a 3a 64 65 62 75 67 2d 69 6e 66 6f 2d | .................(c::debug-info- |
| 20db80 | 70 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 64 65 62 75 67 2d 69 6e 66 6f 20 6f 29 29 0a 20 | p.(kernel:%code-debug-info.o)).. |
| 20dba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 70 20 28 6b 65 72 6e 65 6c 3a 63 | ................(consp.(kernel:c |
| 20dbc0 | 6f 64 65 2d 68 65 61 64 65 72 2d 72 65 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ode-header-ref.................. |
| 20dbe0 | 20 20 20 20 20 20 20 20 6f 20 76 6d 3a 63 6f 64 65 2d 74 72 61 63 65 2d 74 61 62 6c 65 2d 6f 66 | ........o.vm:code-trace-table-of |
| 20dc00 | 66 73 65 74 2d 73 6c 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 3a | fset-slot))).................(c: |
| 20dc20 | 64 69 73 61 73 73 65 6d 2d 62 79 74 65 2d 63 6f 6d 70 6f 6e 65 6e 74 20 6f 29 29 0a 20 20 20 20 | disassem-byte-component.o))..... |
| 20dc40 | 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | ...........(t.................(d |
| 20dc60 | 69 73 61 73 73 65 6d 3a 64 69 73 61 73 73 65 6d 62 6c 65 2d 6d 65 6d 6f 72 79 0a 20 20 20 20 20 | isassem:disassemble-memory...... |
| 20dc80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 3a 3a 61 6c 69 67 6e 0a 20 20 20 | ............(disassem::align.... |
| 20dca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 28 6c 6f 67 61 6e 64 63 32 20 28 6b 65 72 | ...............(+.(logandc2.(ker |
| 20dcc0 | 6e 65 6c 3a 67 65 74 2d 6c 69 73 70 2d 6f 62 6a 2d 61 64 64 72 65 73 73 20 6f 29 0a 20 20 20 20 | nel:get-lisp-obj-address.o)..... |
| 20dce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6d 3a 6c 6f | ...........................vm:lo |
| 20dd00 | 77 74 61 67 2d 6d 61 73 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | wtag-mask)...................... |
| 20dd20 | 28 2a 20 76 6d 3a 63 6f 64 65 2d 63 6f 6e 73 74 61 6e 74 73 2d 6f 66 66 73 65 74 20 76 6d 3a 77 | (*.vm:code-constants-offset.vm:w |
| 20dd40 | 6f 72 64 2d 62 79 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | ord-bytes))...................(a |
| 20dd60 | 73 68 20 31 20 76 6d 3a 6c 6f 77 74 61 67 2d 62 69 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 | sh.1.vm:lowtag-bits))........... |
| 20dd80 | 20 20 20 20 20 20 20 28 61 73 68 20 28 6b 65 72 6e 65 6c 3a 25 63 6f 64 65 2d 63 6f 64 65 2d 73 | .......(ash.(kernel:%code-code-s |
| 20dda0 | 69 7a 65 20 6f 29 20 76 6d 3a 77 6f 72 64 2d 73 68 69 66 74 29 29 29 29 29 29 29 29 0a 0a 28 64 | ize.o).vm:word-shift))))))))..(d |
| 20ddc0 | 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 6b 65 72 6e 65 | efmethod.emacs-inspect.((o.kerne |
| 20dde0 | 6c 3a 66 64 65 66 6e 29 29 0a 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 | l:fdefn))...(label-value-line*.. |
| 20de00 | 20 20 28 22 6e 61 6d 65 22 20 28 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 2d 6e 61 6d 65 20 6f 29 29 | ..("name".(kernel:fdefn-name.o)) |
| 20de20 | 0a 20 20 20 28 22 66 75 6e 63 74 69 6f 6e 22 20 28 6b 65 72 6e 65 6c 3a 66 64 65 66 6e 2d 66 75 | ....("function".(kernel:fdefn-fu |
| 20de40 | 6e 63 74 69 6f 6e 20 6f 29 29 0a 20 20 20 28 22 72 61 77 2d 61 64 64 72 22 20 28 73 79 73 3a 73 | nction.o))....("raw-addr".(sys:s |
| 20de60 | 61 70 2d 72 65 66 2d 33 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 69 | ap-ref-32.................(sys:i |
| 20de80 | 6e 74 2d 73 61 70 20 28 6b 65 72 6e 65 6c 3a 67 65 74 2d 6c 69 73 70 2d 6f 62 6a 2d 61 64 64 72 | nt-sap.(kernel:get-lisp-obj-addr |
| 20dea0 | 65 73 73 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 76 6d 3a 66 64 | ess.o)).................(*.vm:fd |
| 20dec0 | 65 66 6e 2d 72 61 77 2d 61 64 64 72 2d 73 6c 6f 74 20 76 6d 3a 77 6f 72 64 2d 62 79 74 65 73 29 | efn-raw-addr-slot.vm:word-bytes) |
| 20dee0 | 29 29 29 29 0a 0a 23 2b 28 6f 72 29 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e | ))))..#+(or).(defmethod.emacs-in |
| 20df00 | 73 70 65 63 74 20 28 28 6f 20 61 72 72 61 79 29 29 0a 20 20 28 69 66 20 28 74 79 70 65 70 20 6f | spect.((o.array))...(if.(typep.o |
| 20df20 | 20 27 73 69 6d 70 6c 65 2d 61 72 72 61 79 29 0a 20 20 20 20 20 20 28 63 61 6c 6c 2d 6e 65 78 74 | .'simple-array).......(call-next |
| 20df40 | 2d 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 | -method).......(label-value-line |
| 20df60 | 2a 0a 20 20 20 20 20 20 20 28 3a 68 65 61 64 65 72 20 28 64 65 73 63 72 69 62 65 2d 70 72 69 6d | *........(:header.(describe-prim |
| 20df80 | 69 74 69 76 65 2d 74 79 70 65 20 6f 29 29 0a 20 20 20 20 20 20 20 28 3a 72 61 6e 6b 20 28 61 72 | itive-type.o))........(:rank.(ar |
| 20dfa0 | 72 61 79 2d 72 61 6e 6b 20 6f 29 29 0a 20 20 20 20 20 20 20 28 3a 66 69 6c 6c 2d 70 6f 69 6e 74 | ray-rank.o))........(:fill-point |
| 20dfc0 | 65 72 20 28 6b 65 72 6e 65 6c 3a 25 61 72 72 61 79 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 6f | er.(kernel:%array-fill-pointer.o |
| 20dfe0 | 29 29 0a 20 20 20 20 20 20 20 28 3a 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 2d 70 20 28 6b 65 72 6e | ))........(:fill-pointer-p.(kern |
| 20e000 | 65 6c 3a 25 61 72 72 61 79 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 2d 70 20 6f 29 29 0a 20 20 20 | el:%array-fill-pointer-p.o)).... |
| 20e020 | 20 20 20 20 28 3a 65 6c 65 6d 65 6e 74 73 20 28 6b 65 72 6e 65 6c 3a 25 61 72 72 61 79 2d 61 76 | ....(:elements.(kernel:%array-av |
| 20e040 | 61 69 6c 61 62 6c 65 2d 65 6c 65 6d 65 6e 74 73 20 6f 29 29 0a 20 20 20 20 20 20 20 28 3a 64 61 | ailable-elements.o))........(:da |
| 20e060 | 74 61 20 28 6b 65 72 6e 65 6c 3a 25 61 72 72 61 79 2d 64 61 74 61 2d 76 65 63 74 6f 72 20 6f 29 | ta.(kernel:%array-data-vector.o) |
| 20e080 | 29 0a 20 20 20 20 20 20 20 28 3a 64 69 73 70 6c 61 63 65 6d 65 6e 74 20 28 6b 65 72 6e 65 6c 3a | )........(:displacement.(kernel: |
| 20e0a0 | 25 61 72 72 61 79 2d 64 69 73 70 6c 61 63 65 6d 65 6e 74 20 6f 29 29 0a 20 20 20 20 20 20 20 28 | %array-displacement.o))........( |
| 20e0c0 | 3a 64 69 73 70 6c 61 63 65 64 2d 70 20 28 6b 65 72 6e 65 6c 3a 25 61 72 72 61 79 2d 64 69 73 70 | :displaced-p.(kernel:%array-disp |
| 20e0e0 | 6c 61 63 65 64 2d 70 20 6f 29 29 0a 20 20 20 20 20 20 20 28 3a 64 69 6d 65 6e 73 69 6f 6e 73 20 | laced-p.o))........(:dimensions. |
| 20e100 | 28 61 72 72 61 79 2d 64 69 6d 65 6e 73 69 6f 6e 73 20 6f 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 | (array-dimensions.o)))))..(defme |
| 20e120 | 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 73 69 6d 70 6c 65 2d 76 65 | thod.emacs-inspect.((o.simple-ve |
| 20e140 | 63 74 6f 72 29 29 0a 20 20 28 61 70 70 65 6e 64 0a 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 | ctor))...(append....(label-value |
| 20e160 | 2d 6c 69 6e 65 2a 0a 20 20 20 20 28 3a 68 65 61 64 65 72 20 28 64 65 73 63 72 69 62 65 2d 70 72 | -line*.....(:header.(describe-pr |
| 20e180 | 69 6d 69 74 69 76 65 2d 74 79 70 65 20 6f 29 29 0a 20 20 20 20 28 3a 6c 65 6e 67 74 68 20 28 63 | imitive-type.o)).....(:length.(c |
| 20e1a0 | 3a 3a 76 65 63 74 6f 72 2d 6c 65 6e 67 74 68 20 6f 29 29 29 0a 20 20 20 28 6c 6f 6f 70 20 66 6f | ::vector-length.o)))....(loop.fo |
| 20e1c0 | 72 20 69 20 62 65 6c 6f 77 20 28 6c 65 6e 67 74 68 20 6f 29 0a 20 20 20 20 20 20 20 20 20 61 70 | r.i.below.(length.o)..........ap |
| 20e1e0 | 70 65 6e 64 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 69 20 28 61 72 65 66 20 6f | pend.(label-value-line.i.(aref.o |
| 20e200 | 20 69 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 61 6c 69 65 6e 2d 72 65 | .i)))))..(defun.inspect-alien-re |
| 20e220 | 63 6f 72 64 20 28 61 6c 69 65 6e 29 0a 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 61 6c 69 | cord.(alien)...(with-struct.(ali |
| 20e240 | 65 6e 3a 3a 61 6c 69 65 6e 2d 76 61 6c 75 65 2d 20 73 61 70 20 74 79 70 65 29 20 61 6c 69 65 6e | en::alien-value-.sap.type).alien |
| 20e260 | 0a 20 20 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 61 6c 69 65 6e 3a 3a 61 6c 69 65 6e 2d | .....(with-struct.(alien::alien- |
| 20e280 | 72 65 63 6f 72 64 2d 74 79 70 65 2d 20 6b 69 6e 64 20 6e 61 6d 65 20 66 69 65 6c 64 73 29 20 74 | record-type-.kind.name.fields).t |
| 20e2a0 | 79 70 65 0a 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d | ype.......(append........(label- |
| 20e2c0 | 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 20 20 20 20 28 3a 73 61 70 20 73 61 70 29 0a 20 | value-line*.........(:sap.sap).. |
| 20e2e0 | 20 20 20 20 20 20 20 28 3a 6b 69 6e 64 20 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 28 3a 6e 61 | .......(:kind.kind).........(:na |
| 20e300 | 6d 65 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 69 65 6c 64 | me.name))........(loop.for.field |
| 20e320 | 20 69 6e 20 66 69 65 6c 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 28 | .in.fields..............append.( |
| 20e340 | 6c 65 74 20 28 28 73 6c 6f 74 20 28 61 6c 69 65 6e 3a 3a 61 6c 69 65 6e 2d 72 65 63 6f 72 64 2d | let.((slot.(alien::alien-record- |
| 20e360 | 66 69 65 6c 64 2d 6e 61 6d 65 20 66 69 65 6c 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | field-name.field)))............. |
| 20e380 | 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 6f 70 74 69 6d 69 7a 65 20 28 73 70 | ..........(declare.(optimize.(sp |
| 20e3a0 | 65 65 64 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | eed.0))).......................( |
| 20e3c0 | 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 73 6c 6f 74 20 28 61 6c 69 65 6e 3a 73 6c 6f | label-value-line.slot.(alien:slo |
| 20e3e0 | 74 20 61 6c 69 65 6e 20 73 6c 6f 74 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 | t.alien.slot))))))))..(defun.ins |
| 20e400 | 70 65 63 74 2d 61 6c 69 65 6e 2d 70 6f 69 6e 74 65 72 20 28 61 6c 69 65 6e 29 0a 20 20 28 77 69 | pect-alien-pointer.(alien)...(wi |
| 20e420 | 74 68 2d 73 74 72 75 63 74 20 28 61 6c 69 65 6e 3a 3a 61 6c 69 65 6e 2d 76 61 6c 75 65 2d 20 73 | th-struct.(alien::alien-value-.s |
| 20e440 | 61 70 20 74 79 70 65 29 20 61 6c 69 65 6e 0a 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d | ap.type).alien.....(label-value- |
| 20e460 | 6c 69 6e 65 2a 0a 20 20 20 20 20 28 3a 73 61 70 20 73 61 70 29 0a 20 20 20 20 20 28 3a 74 79 70 | line*......(:sap.sap)......(:typ |
| 20e480 | 65 20 74 79 70 65 29 0a 20 20 20 20 20 28 3a 74 6f 20 28 61 6c 69 65 6e 3a 3a 64 65 72 65 66 20 | e.type)......(:to.(alien::deref. |
| 20e4a0 | 61 6c 69 65 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 61 6c 69 65 6e | alien)))))..(defun.inspect-alien |
| 20e4c0 | 2d 76 61 6c 75 65 20 28 61 6c 69 65 6e 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 28 61 6c 69 65 | -value.(alien)...(typecase.(alie |
| 20e4e0 | 6e 3a 3a 61 6c 69 65 6e 2d 76 61 6c 75 65 2d 74 79 70 65 20 61 6c 69 65 6e 29 0a 20 20 20 20 28 | n::alien-value-type.alien).....( |
| 20e500 | 61 6c 69 65 6e 3a 3a 61 6c 69 65 6e 2d 72 65 63 6f 72 64 2d 74 79 70 65 20 28 69 6e 73 70 65 63 | alien::alien-record-type.(inspec |
| 20e520 | 74 2d 61 6c 69 65 6e 2d 72 65 63 6f 72 64 20 61 6c 69 65 6e 29 29 0a 20 20 20 20 28 61 6c 69 65 | t-alien-record.alien)).....(alie |
| 20e540 | 6e 3a 3a 61 6c 69 65 6e 2d 70 6f 69 6e 74 65 72 2d 74 79 70 65 20 28 69 6e 73 70 65 63 74 2d 61 | n::alien-pointer-type.(inspect-a |
| 20e560 | 6c 69 65 6e 2d 70 6f 69 6e 74 65 72 20 61 6c 69 65 6e 29 29 0a 20 20 20 20 28 74 20 28 63 6d 75 | lien-pointer.alien)).....(t.(cmu |
| 20e580 | 63 6c 2d 69 6e 73 70 65 63 74 20 61 6c 69 65 6e 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | cl-inspect.alien))))..(defimplem |
| 20e5a0 | 65 6e 74 61 74 69 6f 6e 20 65 76 61 6c 2d 63 6f 6e 74 65 78 74 20 28 6f 62 6a 29 0a 20 20 28 63 | entation.eval-context.(obj)...(c |
| 20e5c0 | 6f 6e 64 20 28 28 74 79 70 65 70 20 28 63 6c 61 73 73 2d 6f 66 20 6f 62 6a 29 20 27 73 74 72 75 | ond.((typep.(class-of.obj).'stru |
| 20e5e0 | 63 74 75 72 65 2d 63 6c 61 73 73 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 64 64 | cture-class)..........(let*.((dd |
| 20e600 | 20 28 6b 65 72 6e 65 6c 3a 6c 61 79 6f 75 74 2d 69 6e 66 6f 20 28 6b 65 72 6e 65 6c 3a 6c 61 79 | .(kernel:layout-info.(kernel:lay |
| 20e620 | 6f 75 74 2d 6f 66 20 6f 62 6a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | out-of.obj))).................(s |
| 20e640 | 6c 6f 74 73 20 28 6b 65 72 6e 65 6c 3a 64 64 2d 73 6c 6f 74 73 20 64 64 29 29 29 0a 20 20 20 20 | lots.(kernel:dd-slots.dd)))..... |
| 20e660 | 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 28 63 6f 6e 73 20 27 2a 70 61 63 6b 61 67 65 2a 0a 20 | .......(list*.(cons.'*package*.. |
| 20e680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 70 | .......................(symbol-p |
| 20e6a0 | 61 63 6b 61 67 65 20 28 69 66 20 73 6c 6f 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ackage.(if.slots................ |
| 20e6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 | .............................(ke |
| 20e6e0 | 72 6e 65 6c 3a 64 73 64 2d 6e 61 6d 65 20 28 63 61 72 20 73 6c 6f 74 73 29 29 0a 20 20 20 20 20 | rnel:dsd-name.(car.slots))...... |
| 20e700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 20e720 | 20 20 20 20 20 20 20 28 6b 65 72 6e 65 6c 3a 64 64 2d 6e 61 6d 65 20 64 64 29 29 29 29 0a 20 20 | .......(kernel:dd-name.dd))))... |
| 20e740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 6c 6f 74 20 69 | ................(loop.for.slot.i |
| 20e760 | 6e 20 73 6c 6f 74 73 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.slots.collect................. |
| 20e780 | 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 6b 65 72 6e 65 6c 3a 64 73 64 2d 6e 61 6d 65 20 73 | ........(cons.(kernel:dsd-name.s |
| 20e7a0 | 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lot)............................ |
| 20e7c0 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 6b 65 72 6e 65 6c 3a 64 73 64 2d 61 63 63 65 73 73 6f 72 | ...(funcall.(kernel:dsd-accessor |
| 20e7e0 | 20 73 6c 6f 74 29 20 6f 62 6a 29 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 50 72 6f 66 69 | .slot).obj))))))))....;;;;.Profi |
| 20e800 | 6c 69 6e 67 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 20 | ling.(defimplementation.profile. |
| 20e820 | 28 66 6e 61 6d 65 29 0a 20 20 28 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 70 72 6f 66 69 6c | (fname)...(eval.`(profile:profil |
| 20e840 | 65 20 2c 66 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | e.,fname)))..(defimplementation. |
| 20e860 | 75 6e 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 65 76 61 6c 20 60 28 70 72 6f 66 | unprofile.(fname)...(eval.`(prof |
| 20e880 | 69 6c 65 3a 75 6e 70 72 6f 66 69 6c 65 20 2c 66 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 | ile:unprofile.,fname)))..(defimp |
| 20e8a0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c 20 28 29 0a 20 20 28 | lementation.unprofile-all.()...( |
| 20e8c0 | 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 75 6e 70 72 6f 66 69 6c 65 29 29 0a 20 20 22 41 6c | eval.`(profile:unprofile))..."Al |
| 20e8e0 | 6c 20 66 75 6e 63 74 69 6f 6e 73 20 75 6e 70 72 6f 66 69 6c 65 64 2e 22 29 0a 0a 28 64 65 66 69 | l.functions.unprofiled.")..(defi |
| 20e900 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 20 28 29 0a | mplementation.profile-report.(). |
| 20e920 | 20 20 28 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 72 65 70 6f 72 74 2d 74 69 6d 65 29 29 29 | ..(eval.`(profile:report-time))) |
| 20e940 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 72 65 73 | ..(defimplementation.profile-res |
| 20e960 | 65 74 20 28 29 0a 20 20 28 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 72 65 73 65 74 2d 74 69 | et.()...(eval.`(profile:reset-ti |
| 20e980 | 6d 65 29 29 0a 20 20 22 52 65 73 65 74 20 70 72 6f 66 69 6c 69 6e 67 20 63 6f 75 6e 74 65 72 73 | me))..."Reset.profiling.counters |
| 20e9a0 | 2e 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 64 | .")..(defimplementation.profiled |
| 20e9c0 | 2d 66 75 6e 63 74 69 6f 6e 73 20 28 29 0a 20 20 70 72 6f 66 69 6c 65 3a 2a 74 69 6d 65 64 2d 66 | -functions.()...profile:*timed-f |
| 20e9e0 | 75 6e 63 74 69 6f 6e 73 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 | unctions*)..(defimplementation.p |
| 20ea00 | 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 20 28 70 61 63 6b 61 67 65 20 63 61 6c 6c 65 72 73 20 | rofile-package.(package.callers. |
| 20ea20 | 6d 65 74 68 6f 64 73 29 0a 20 20 28 70 72 6f 66 69 6c 65 3a 70 72 6f 66 69 6c 65 2d 61 6c 6c 20 | methods)...(profile:profile-all. |
| 20ea40 | 3a 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :package.package................ |
| 20ea60 | 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 73 2d 70 20 63 61 6c 6c 65 72 73 0a 20 20 20 20 20 | ........:callers-p.callers...... |
| 20ea80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 65 74 68 6f 64 73 20 6d 65 74 68 6f | ..................:methods.metho |
| 20eaa0 | 64 73 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 75 6c 74 69 70 72 6f 63 65 73 73 69 6e 67 0a 0a 23 2b | ds))....;;;;.Multiprocessing..#+ |
| 20eac0 | 6d 70 0a 28 70 72 6f 67 6e 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 | mp.(progn...(defimplementation.i |
| 20eae0 | 6e 69 74 69 61 6c 69 7a 65 2d 6d 75 6c 74 69 70 72 6f 63 65 73 73 69 6e 67 20 28 63 6f 6e 74 69 | nitialize-multiprocessing.(conti |
| 20eb00 | 6e 75 61 74 69 6f 6e 29 0a 20 20 20 20 28 6d 70 3a 3a 69 6e 69 74 2d 6d 75 6c 74 69 2d 70 72 6f | nuation).....(mp::init-multi-pro |
| 20eb20 | 63 65 73 73 69 6e 67 29 0a 20 20 20 20 28 6d 70 3a 6d 61 6b 65 2d 70 72 6f 63 65 73 73 20 63 6f | cessing).....(mp:make-process.co |
| 20eb40 | 6e 74 69 6e 75 61 74 69 6f 6e 20 3a 6e 61 6d 65 20 22 73 77 61 6e 6b 22 29 0a 20 20 20 20 3b 3b | ntinuation.:name."swank").....;; |
| 20eb60 | 20 54 68 72 65 61 64 73 20 6d 61 67 69 63 3a 20 74 68 69 73 20 6e 65 76 65 72 20 72 65 74 75 72 | .Threads.magic:.this.never.retur |
| 20eb80 | 6e 73 21 20 42 75 74 20 74 6f 70 2d 6c 65 76 65 6c 20 62 65 63 6f 6d 65 73 0a 20 20 20 20 3b 3b | ns!.But.top-level.becomes.....;; |
| 20eba0 | 20 61 76 61 69 6c 61 62 6c 65 20 61 67 61 69 6e 2e 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 6d 70 | .available.again......(unless.mp |
| 20ebc0 | 3a 3a 2a 69 64 6c 65 2d 70 72 6f 63 65 73 73 2a 0a 20 20 20 20 20 20 28 6d 70 3a 3a 73 74 61 72 | ::*idle-process*.......(mp::star |
| 20ebe0 | 74 75 70 2d 69 64 6c 65 2d 61 6e 64 2d 74 6f 70 2d 6c 65 76 65 6c 2d 6c 6f 6f 70 73 29 29 29 0a | tup-idle-and-top-level-loops))). |
| 20ec00 | 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 70 61 77 6e 20 28 66 6e 20 | ...(defimplementation.spawn.(fn. |
| 20ec20 | 26 6b 65 79 20 6e 61 6d 65 29 0a 20 20 20 20 28 6d 70 3a 6d 61 6b 65 2d 70 72 6f 63 65 73 73 20 | &key.name).....(mp:make-process. |
| 20ec40 | 66 6e 20 3a 6e 61 6d 65 20 28 6f 72 20 6e 61 6d 65 20 22 41 6e 6f 6e 79 6d 6f 75 73 22 29 29 29 | fn.:name.(or.name."Anonymous"))) |
| 20ec60 | 0a 0a 20 20 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2a 20 | ....(defvar.*thread-id-counter*. |
| 20ec80 | 30 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d | 0)....(defimplementation.thread- |
| 20eca0 | 69 64 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 6f 72 20 28 67 65 74 66 20 28 6d 70 3a 70 72 | id.(thread).....(or.(getf.(mp:pr |
| 20ecc0 | 6f 63 65 73 73 2d 70 72 6f 70 65 72 74 79 2d 6c 69 73 74 20 74 68 72 65 61 64 29 20 27 69 64 29 | ocess-property-list.thread).'id) |
| 20ece0 | 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 28 6d 70 3a 70 72 6f 63 65 73 73 | .........(setf.(getf.(mp:process |
| 20ed00 | 2d 70 72 6f 70 65 72 74 79 2d 6c 69 73 74 20 74 68 72 65 61 64 29 20 27 69 64 29 0a 20 20 20 20 | -property-list.thread).'id)..... |
| 20ed20 | 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 | ..........(incf.*thread-id-count |
| 20ed40 | 65 72 2a 29 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 | er*))))....(defimplementation.fi |
| 20ed60 | 6e 64 2d 74 68 72 65 61 64 20 28 69 64 29 0a 20 20 20 20 28 66 69 6e 64 20 69 64 20 28 61 6c 6c | nd-thread.(id).....(find.id.(all |
| 20ed80 | 2d 74 68 72 65 61 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 28 6c 61 6d 62 64 61 | -threads)...........:key.(lambda |
| 20eda0 | 20 28 70 29 20 28 67 65 74 66 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 70 72 6f 70 65 72 74 79 2d | .(p).(getf.(mp:process-property- |
| 20edc0 | 6c 69 73 74 20 70 29 20 27 69 64 29 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | list.p).'id))))....(defimplement |
| 20ede0 | 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 6e 61 6d 65 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 | ation.thread-name.(thread).....( |
| 20ee00 | 6d 70 3a 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 74 68 72 65 61 64 29 29 0a 0a 20 20 28 64 65 66 | mp:process-name.thread))....(def |
| 20ee20 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 73 74 61 74 75 73 20 28 74 68 | implementation.thread-status.(th |
| 20ee40 | 72 65 61 64 29 0a 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 77 68 6f 73 74 61 74 65 20 74 | read).....(mp:process-whostate.t |
| 20ee60 | 68 72 65 61 64 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 75 | hread))....(defimplementation.cu |
| 20ee80 | 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 20 20 6d 70 3a 2a 63 75 72 72 65 6e 74 2d | rrent-thread.().....mp:*current- |
| 20eea0 | 70 72 6f 63 65 73 73 2a 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | process*)....(defimplementation. |
| 20eec0 | 61 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 20 20 28 63 6f 70 79 2d 6c 69 73 74 20 6d 70 | all-threads.().....(copy-list.mp |
| 20eee0 | 3a 2a 61 6c 6c 2d 70 72 6f 63 65 73 73 65 73 2a 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d | :*all-processes*))....(defimplem |
| 20ef00 | 65 6e 74 61 74 69 6f 6e 20 69 6e 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 | entation.interrupt-thread.(threa |
| 20ef20 | 64 20 66 6e 29 0a 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 69 6e 74 65 72 72 75 70 74 20 | d.fn).....(mp:process-interrupt. |
| 20ef40 | 74 68 72 65 61 64 20 66 6e 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | thread.fn))....(defimplementatio |
| 20ef60 | 6e 20 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 6d 70 3a 64 | n.kill-thread.(thread).....(mp:d |
| 20ef80 | 65 73 74 72 6f 79 2d 70 72 6f 63 65 73 73 20 74 68 72 65 61 64 29 29 0a 0a 20 20 28 64 65 66 76 | estroy-process.thread))....(defv |
| 20efa0 | 61 72 20 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 | ar.*mailbox-lock*.(mp:make-lock. |
| 20efc0 | 22 6d 61 69 6c 62 6f 78 20 6c 6f 63 6b 22 29 29 0a 0a 20 20 28 64 65 66 73 74 72 75 63 74 20 28 | "mailbox.lock"))....(defstruct.( |
| 20efe0 | 6d 61 69 6c 62 6f 78 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 6d 61 69 6c 62 6f 78 2e 29 29 0a 20 | mailbox.(:conc-name.mailbox.)).. |
| 20f000 | 20 20 20 28 6d 75 74 65 78 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 22 70 72 6f 63 65 73 73 | ...(mutex.(mp:make-lock."process |
| 20f020 | 20 6d 61 69 6c 62 6f 78 22 29 29 0a 20 20 20 20 28 71 75 65 75 65 20 27 28 29 20 3a 74 79 70 65 | .mailbox")).....(queue.'().:type |
| 20f040 | 20 6c 69 73 74 29 29 0a 0a 20 20 28 64 65 66 75 6e 20 6d 61 69 6c 62 6f 78 20 28 74 68 72 65 61 | .list))....(defun.mailbox.(threa |
| 20f060 | 64 29 0a 20 20 20 20 22 52 65 74 75 72 6e 20 54 48 52 45 41 44 27 73 20 6d 61 69 6c 62 6f 78 2e | d)....."Return.THREAD's.mailbox. |
| 20f080 | 22 0a 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 2a 6d 61 69 6c 62 | ".....(mp:with-lock-held.(*mailb |
| 20f0a0 | 6f 78 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 20 20 28 6f 72 20 28 67 65 74 66 20 28 6d 70 3a 70 72 | ox-lock*).......(or.(getf.(mp:pr |
| 20f0c0 | 6f 63 65 73 73 2d 70 72 6f 70 65 72 74 79 2d 6c 69 73 74 20 74 68 72 65 61 64 29 20 27 6d 61 69 | ocess-property-list.thread).'mai |
| 20f0e0 | 6c 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 66 20 28 6d 70 3a | lbox)...........(setf.(getf.(mp: |
| 20f100 | 70 72 6f 63 65 73 73 2d 70 72 6f 70 65 72 74 79 2d 6c 69 73 74 20 74 68 72 65 61 64 29 20 27 6d | process-property-list.thread).'m |
| 20f120 | 61 69 6c 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6d 61 | ailbox).................(make-ma |
| 20f140 | 69 6c 62 6f 78 29 29 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ilbox)))))....(defimplementation |
| 20f160 | 20 73 65 6e 64 20 28 74 68 72 65 61 64 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 28 63 68 65 63 | .send.(thread.message).....(chec |
| 20f180 | 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 | k-slime-interrupts).....(let*.(( |
| 20f1a0 | 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 28 6d | mbox.(mailbox.thread))).......(m |
| 20f1c0 | 70 3a 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 | p:with-lock-held.((mailbox.mutex |
| 20f1e0 | 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 71 | .mbox)).........(setf.(mailbox.q |
| 20f200 | 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 63 6f 6e 63 20 | ueue.mbox)...............(nconc. |
| 20f220 | 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6c 69 73 74 20 6d 65 73 73 61 | (mailbox.queue.mbox).(list.messa |
| 20f240 | 67 65 29 29 29 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 | ge))))))....(defimplementation.r |
| 20f260 | 65 63 65 69 76 65 2d 69 66 20 28 74 65 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 | eceive-if.(test.&optional.timeou |
| 20f280 | 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 6d 70 3a 2a | t).....(let.((mbox.(mailbox.mp:* |
| 20f2a0 | 63 75 72 72 65 6e 74 2d 70 72 6f 63 65 73 73 2a 29 29 29 0a 20 20 20 20 20 20 28 61 73 73 65 72 | current-process*))).......(asser |
| 20f2c0 | 74 20 28 6f 72 20 28 6e 6f 74 20 74 69 6d 65 6f 75 74 29 20 28 65 71 20 74 69 6d 65 6f 75 74 20 | t.(or.(not.timeout).(eq.timeout. |
| 20f2e0 | 74 29 29 29 0a 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 28 63 68 65 63 6b 2d 73 | t))).......(loop........(check-s |
| 20f300 | 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 20 20 20 28 6d 70 3a 77 69 74 68 | lime-interrupts)........(mp:with |
| 20f320 | 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 | -lock-held.((mailbox.mutex.mbox) |
| 20f340 | 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 71 20 28 6d 61 69 6c 62 6f 78 2e 71 75 | )..........(let*.((q.(mailbox.qu |
| 20f360 | 65 75 65 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c | eue.mbox)).................(tail |
| 20f380 | 20 28 6d 65 6d 62 65 72 2d 69 66 20 74 65 73 74 20 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .(member-if.test.q)))........... |
| 20f3a0 | 20 28 77 68 65 6e 20 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 | .(when.tail..............(setf.( |
| 20f3c0 | 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | mailbox.queue.mbox)............. |
| 20f3e0 | 20 20 20 20 20 20 20 28 6e 63 6f 6e 63 20 28 6c 64 69 66 66 20 71 20 74 61 69 6c 29 20 28 63 64 | .......(nconc.(ldiff.q.tail).(cd |
| 20f400 | 72 20 74 61 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 | r.tail)))..............(return.( |
| 20f420 | 63 61 72 20 74 61 69 6c 29 29 29 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 74 | car.tail)))))........(when.(eq.t |
| 20f440 | 69 6d 65 6f 75 74 20 74 29 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 74 29 | imeout.t).(return.(values.nil.t) |
| 20f460 | 29 29 0a 20 20 20 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 77 61 69 74 2d 77 69 74 68 2d | ))........(mp:process-wait-with- |
| 20f480 | 74 69 6d 65 6f 75 74 0a 20 20 20 20 20 20 20 20 22 72 65 63 65 69 76 65 2d 69 66 22 20 30 2e 35 | timeout........."receive-if".0.5 |
| 20f4a0 | 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 73 6f 6d 65 20 74 65 73 74 20 28 | .........(lambda.().(some.test.( |
| 20f4c0 | 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 29 29 29 29 29 29 0a 0a 0a 20 20 29 20 | mailbox.queue.mbox))))))).....). |
| 20f4e0 | 3b 3b 20 23 2b 6d 70 0a 0a 0a 0c 0a 3b 3b 3b 3b 20 47 43 20 68 6f 6f 6b 73 0a 3b 3b 3b 0a 3b 3b | ;;.#+mp.....;;;;.GC.hooks.;;;.;; |
| 20f500 | 3b 20 44 69 73 70 6c 61 79 20 47 43 20 6d 65 73 73 61 67 65 73 20 69 6e 20 74 68 65 20 65 63 68 | ;.Display.GC.messages.in.the.ech |
| 20f520 | 6f 20 61 72 65 61 20 74 6f 20 61 76 6f 69 64 20 63 6c 75 74 74 65 72 69 6e 67 20 74 68 65 0a 3b | o.area.to.avoid.cluttering.the.; |
| 20f540 | 3b 3b 20 6e 6f 72 6d 61 6c 20 6f 75 74 70 75 74 2e 0a 3b 3b 3b 0a 0a 3b 3b 20 74 68 69 73 20 73 | ;;.normal.output..;;;..;;.this.s |
| 20f560 | 68 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 6e 6f 74 20 62 65 20 68 65 72 65 2c 20 62 75 74 20 | hould.probably.not.be.here,.but. |
| 20f580 | 77 68 65 72 65 20 65 6c 73 65 3f 0a 28 64 65 66 75 6e 20 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 | where.else?.(defun.background-me |
| 20f5a0 | 73 73 61 67 65 20 28 6d 65 73 73 61 67 65 29 0a 20 20 28 73 77 61 6e 6b 3a 3a 62 61 63 6b 67 72 | ssage.(message)...(swank::backgr |
| 20f5c0 | 6f 75 6e 64 2d 6d 65 73 73 61 67 65 20 6d 65 73 73 61 67 65 29 29 0a 0a 28 64 65 66 75 6e 20 70 | ound-message.message))..(defun.p |
| 20f5e0 | 72 69 6e 74 2d 62 79 74 65 73 20 28 6e 62 79 74 65 73 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 | rint-bytes.(nbytes.&optional.str |
| 20f600 | 65 61 6d 29 0a 20 20 22 50 72 69 6e 74 20 74 68 65 20 6e 75 6d 62 65 72 20 4e 42 59 54 45 53 20 | eam)..."Print.the.number.NBYTES. |
| 20f620 | 74 6f 20 53 54 52 45 41 4d 20 69 6e 20 4b 42 2c 20 4d 42 2c 20 6f 72 20 47 42 20 75 6e 69 74 73 | to.STREAM.in.KB,.MB,.or.GB.units |
| 20f640 | 2e 22 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 73 20 27 28 28 30 20 62 79 74 65 73 29 20 28 31 | ."...(let.((names.'((0.bytes).(1 |
| 20f660 | 30 20 6b 62 29 20 28 32 30 20 6d 62 29 20 28 33 30 20 67 62 29 20 28 34 30 20 74 62 29 20 28 35 | 0.kb).(20.mb).(30.gb).(40.tb).(5 |
| 20f680 | 30 20 65 62 29 29 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e | 0.eb)))).....(multiple-value-bin |
| 20f6a0 | 64 20 28 70 6f 77 65 72 20 6e 61 6d 65 29 0a 09 28 6c 6f 6f 70 20 66 6f 72 20 28 28 70 31 20 6e | d.(power.name)..(loop.for.((p1.n |
| 20f6c0 | 31 29 20 28 70 32 20 6e 32 29 29 20 6f 6e 20 6e 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 | 1).(p2.n2)).on.names............ |
| 20f6e0 | 20 20 20 77 68 69 6c 65 20 6e 32 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | ...while.n2.do...............(wh |
| 20f700 | 65 6e 20 28 3c 3d 20 28 65 78 70 74 20 32 20 70 31 29 20 6e 62 79 74 65 73 20 28 31 2d 20 28 65 | en.(<=.(expt.2.p1).nbytes.(1-.(e |
| 20f720 | 78 70 74 20 32 20 70 32 29 29 29 0a 09 09 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 70 31 | xpt.2.p2)))...(return.(values.p1 |
| 20f740 | 20 6e 31 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 6e 61 6d 65 0a 20 20 20 20 20 20 | .n1)))).......(cond.(name....... |
| 20f760 | 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 2c 31 46 20 7e 41 22 20 | .......(format.stream."~,1F.~A". |
| 20f780 | 28 2f 20 6e 62 79 74 65 73 20 28 65 78 70 74 20 32 20 70 6f 77 65 72 29 29 20 6e 61 6d 65 29 29 | (/.nbytes.(expt.2.power)).name)) |
| 20f7a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f | .............(t..............(fo |
| 20f7c0 | 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 3a 44 20 62 79 74 65 73 22 20 6e 62 79 74 65 73 29 29 | rmat.stream."~:D.bytes".nbytes)) |
| 20f7e0 | 29 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 61 6e 74 20 67 63 2d 67 65 6e 65 72 61 74 69 6f 6e | ))))..(defconstant.gc-generation |
| 20f800 | 73 20 36 29 0a 0a 23 2b 67 65 6e 63 67 63 0a 28 64 65 66 75 6e 20 67 65 6e 65 72 61 74 69 6f 6e | s.6)..#+gencgc.(defun.generation |
| 20f820 | 2d 73 74 61 74 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 64 65 73 | -stats.()..."Return.a.string.des |
| 20f840 | 63 72 69 62 69 6e 67 20 74 68 65 20 73 69 7a 65 20 64 69 73 74 72 69 62 75 74 69 6f 6e 20 61 6d | cribing.the.size.distribution.am |
| 20f860 | 6f 6e 67 20 74 68 65 20 67 65 6e 65 72 61 74 69 6f 6e 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 | ong.the.generations."...(let*.(( |
| 20f880 | 61 6c 6c 6f 63 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 62 65 6c 6f 77 20 67 63 2d 67 65 6e 65 72 | alloc.(loop.for.i.below.gc-gener |
| 20f8a0 | 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c | ations.......................col |
| 20f8c0 | 6c 65 63 74 20 28 6c 69 73 70 3a 3a 67 65 6e 63 67 63 2d 73 74 61 74 73 20 69 29 29 29 0a 20 20 | lect.(lisp::gencgc-stats.i)))... |
| 20f8e0 | 20 20 20 20 20 20 20 28 73 75 6d 20 28 63 6f 65 72 63 65 20 28 72 65 64 75 63 65 20 23 27 2b 20 | .......(sum.(coerce.(reduce.#'+. |
| 20f900 | 61 6c 6c 6f 63 29 20 27 66 6c 6f 61 74 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c | alloc).'float))).....(format.nil |
| 20f920 | 20 22 7e 7b 7e 33 46 7e 5e 2f 7e 7d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 | ."~{~3F~^/~}".............(mapca |
| 20f940 | 72 20 28 6c 61 6d 62 64 61 20 28 73 69 7a 65 29 20 28 2f 20 73 69 7a 65 20 73 75 6d 29 29 0a 20 | r.(lambda.(size).(/.size.sum)).. |
| 20f960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 6c 6f 63 29 29 29 29 0a 0a 28 64 | ...................alloc))))..(d |
| 20f980 | 65 66 76 61 72 20 2a 67 63 2d 73 74 61 72 74 2d 74 69 6d 65 2a 20 30 29 0a 0a 28 64 65 66 75 6e | efvar.*gc-start-time*.0)..(defun |
| 20f9a0 | 20 70 72 65 2d 67 63 2d 68 6f 6f 6b 20 28 62 79 74 65 73 2d 69 6e 2d 75 73 65 29 0a 20 20 28 73 | .pre-gc-hook.(bytes-in-use)...(s |
| 20f9c0 | 65 74 71 20 2a 67 63 2d 73 74 61 72 74 2d 74 69 6d 65 2a 20 28 67 65 74 2d 69 6e 74 65 72 6e 61 | etq.*gc-start-time*.(get-interna |
| 20f9e0 | 6c 2d 72 65 61 6c 2d 74 69 6d 65 29 29 0a 20 20 28 6c 65 74 20 28 28 6d 73 67 20 28 66 6f 72 6d | l-real-time))...(let.((msg.(form |
| 20fa00 | 61 74 20 6e 69 6c 20 22 5b 43 6f 6d 6d 65 6e 63 69 6e 67 20 47 43 20 77 69 74 68 20 7e 41 20 69 | at.nil."[Commencing.GC.with.~A.i |
| 20fa20 | 6e 20 75 73 65 2e 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | n.use.]"......................(p |
| 20fa40 | 72 69 6e 74 2d 62 79 74 65 73 20 62 79 74 65 73 2d 69 6e 2d 75 73 65 29 29 29 29 0a 20 20 20 20 | rint-bytes.bytes-in-use))))..... |
| 20fa60 | 28 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 73 73 61 67 65 20 6d 73 67 29 29 29 0a 0a 28 64 65 66 | (background-message.msg)))..(def |
| 20fa80 | 75 6e 20 70 6f 73 74 2d 67 63 2d 68 6f 6f 6b 20 28 62 79 74 65 73 2d 72 65 74 61 69 6e 65 64 20 | un.post-gc-hook.(bytes-retained. |
| 20faa0 | 62 79 74 65 73 2d 66 72 65 65 64 20 74 72 69 67 67 65 72 29 0a 20 20 28 64 65 63 6c 61 72 65 20 | bytes-freed.trigger)...(declare. |
| 20fac0 | 28 69 67 6e 6f 72 65 20 74 72 69 67 67 65 72 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 65 63 6f | (ignore.trigger))...(let*.((seco |
| 20fae0 | 6e 64 73 20 28 2f 20 28 2d 20 28 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 65 61 6c 2d 74 69 6d | nds.(/.(-.(get-internal-real-tim |
| 20fb00 | 65 29 20 2a 67 63 2d 73 74 61 72 74 2d 74 69 6d 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e).*gc-start-time*)............. |
| 20fb20 | 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 6e 61 6c 2d 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 | .........internal-time-units-per |
| 20fb40 | 2d 73 65 63 6f 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 73 67 20 28 66 6f 72 6d 61 74 20 | -second))..........(msg.(format. |
| 20fb60 | 6e 69 6c 20 22 5b 47 43 20 64 6f 6e 65 2e 20 7e 41 20 66 72 65 65 64 20 20 7e 41 20 72 65 74 61 | nil."[GC.done..~A.freed..~A.reta |
| 20fb80 | 69 6e 65 64 20 20 7e 41 20 20 7e 34 46 20 73 65 63 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ined..~A..~4F.sec]"............. |
| 20fba0 | 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 62 79 74 65 73 20 62 79 74 65 73 2d 66 72 65 65 | .........(print-bytes.bytes-free |
| 20fbc0 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 62 | d)......................(print-b |
| 20fbe0 | 79 74 65 73 20 62 79 74 65 73 2d 72 65 74 61 69 6e 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ytes.bytes-retained)............ |
| 20fc00 | 20 20 20 20 20 20 20 20 20 20 23 2b 67 65 6e 63 67 63 28 67 65 6e 65 72 61 74 69 6f 6e 2d 73 74 | ..........#+gencgc(generation-st |
| 20fc20 | 61 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2d 67 65 6e 63 | ats)......................#-genc |
| 20fc40 | 67 63 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 63 6f 6e 64 | gc""......................second |
| 20fc60 | 73 29 29 29 0a 20 20 20 20 28 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 73 73 61 67 65 20 6d 73 67 | s))).....(background-message.msg |
| 20fc80 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 74 61 6c 6c 2d 67 63 2d 68 6f 6f 6b 73 20 28 29 0a | )))..(defun.install-gc-hooks.(). |
| 20fca0 | 20 20 28 73 65 74 71 20 65 78 74 3a 2a 67 63 2d 6e 6f 74 69 66 79 2d 62 65 66 6f 72 65 2a 20 23 | ..(setq.ext:*gc-notify-before*.# |
| 20fcc0 | 27 70 72 65 2d 67 63 2d 68 6f 6f 6b 29 0a 20 20 28 73 65 74 71 20 65 78 74 3a 2a 67 63 2d 6e 6f | 'pre-gc-hook)...(setq.ext:*gc-no |
| 20fce0 | 74 69 66 79 2d 61 66 74 65 72 2a 20 23 27 70 6f 73 74 2d 67 63 2d 68 6f 6f 6b 29 29 0a 0a 28 64 | tify-after*.#'post-gc-hook))..(d |
| 20fd00 | 65 66 75 6e 20 72 65 6d 6f 76 65 2d 67 63 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 28 73 65 74 71 20 | efun.remove-gc-hooks.()...(setq. |
| 20fd20 | 65 78 74 3a 2a 67 63 2d 6e 6f 74 69 66 79 2d 62 65 66 6f 72 65 2a 20 23 27 6c 69 73 70 3a 3a 64 | ext:*gc-notify-before*.#'lisp::d |
| 20fd40 | 65 66 61 75 6c 74 2d 67 63 2d 6e 6f 74 69 66 79 2d 62 65 66 6f 72 65 29 0a 20 20 28 73 65 74 71 | efault-gc-notify-before)...(setq |
| 20fd60 | 20 65 78 74 3a 2a 67 63 2d 6e 6f 74 69 66 79 2d 61 66 74 65 72 2a 20 23 27 6c 69 73 70 3a 3a 64 | .ext:*gc-notify-after*.#'lisp::d |
| 20fd80 | 65 66 61 75 6c 74 2d 67 63 2d 6e 6f 74 69 66 79 2d 61 66 74 65 72 29 29 0a 0a 28 64 65 66 76 61 | efault-gc-notify-after))..(defva |
| 20fda0 | 72 20 2a 69 6e 73 74 61 6c 6c 2d 67 63 2d 68 6f 6f 6b 73 2a 20 74 0a 20 20 22 49 66 20 6e 6f 6e | r.*install-gc-hooks*.t..."If.non |
| 20fdc0 | 2d 6e 69 6c 20 69 6e 73 74 61 6c 6c 20 47 43 20 68 6f 6f 6b 73 22 29 0a 0a 28 64 65 66 69 6d 70 | -nil.install.GC.hooks")..(defimp |
| 20fde0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 65 64 20 28 29 0a 20 | lementation.emacs-connected.().. |
| 20fe00 | 20 28 77 68 65 6e 20 2a 69 6e 73 74 61 6c 6c 2d 67 63 2d 68 6f 6f 6b 73 2a 0a 20 20 20 20 28 69 | .(when.*install-gc-hooks*.....(i |
| 20fe20 | 6e 73 74 61 6c 6c 2d 67 63 2d 68 6f 6f 6b 73 29 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | nstall-gc-hooks)))..;;;;;;;;;;;; |
| 20fe40 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 20fe60 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 54 72 61 | ;;;;;;;;;;;;;;;;;;;;;;;;;;.;;Tra |
| 20fe80 | 63 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 0a 3b 3b 49 6e 20 43 4d 55 43 4c 2c 20 77 | ce.implementations.;;In.CMUCL,.w |
| 20fea0 | 65 20 68 61 76 65 3a 0a 3b 3b 20 28 74 72 61 63 65 20 3c 6e 61 6d 65 3e 29 0a 3b 3b 20 28 74 72 | e.have:.;;.(trace.<name>).;;.(tr |
| 20fec0 | 61 63 65 20 28 6d 65 74 68 6f 64 20 3c 6e 61 6d 65 3e 20 3c 71 75 61 6c 69 66 69 65 72 3e 3f 20 | ace.(method.<name>.<qualifier>?. |
| 20fee0 | 28 3c 73 70 65 63 69 61 6c 69 7a 65 72 3e 2b 29 29 29 0a 3b 3b 20 28 74 72 61 63 65 20 3a 6d 65 | (<specializer>+))).;;.(trace.:me |
| 20ff00 | 74 68 6f 64 73 20 74 20 27 3c 6e 61 6d 65 3e 29 20 3b 3b 74 6f 20 74 72 61 63 65 20 61 6c 6c 20 | thods.t.'<name>).;;to.trace.all. |
| 20ff20 | 6d 65 74 68 6f 64 73 20 6f 66 20 74 68 65 20 67 66 20 3c 6e 61 6d 65 3e 0a 3b 3b 20 3c 6e 61 6d | methods.of.the.gf.<name>.;;.<nam |
| 20ff40 | 65 3e 20 63 61 6e 20 62 65 20 61 20 6e 6f 72 6d 61 6c 20 6e 61 6d 65 20 6f 72 20 61 20 28 73 65 | e>.can.be.a.normal.name.or.a.(se |
| 20ff60 | 74 66 20 6e 61 6d 65 29 0a 0a 28 64 65 66 75 6e 20 74 72 61 63 65 64 70 20 28 73 70 65 63 29 0a | tf.name)..(defun.tracedp.(spec). |
| 20ff80 | 20 20 28 6d 65 6d 62 65 72 20 73 70 65 63 20 28 65 76 61 6c 20 27 28 74 72 61 63 65 29 29 20 3a | ..(member.spec.(eval.'(trace)).: |
| 20ffa0 | 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 0a 28 64 65 66 75 6e 20 74 6f 67 67 6c 65 2d 74 72 | test.#'equal))..(defun.toggle-tr |
| 20ffc0 | 61 63 65 2d 61 75 78 20 28 73 70 65 63 20 26 72 65 73 74 20 6f 70 74 69 6f 6e 73 29 0a 20 20 28 | ace-aux.(spec.&rest.options)...( |
| 20ffe0 | 63 6f 6e 64 20 28 28 74 72 61 63 65 64 70 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 28 65 | cond.((tracedp.spec)..........(e |
| 210000 | 76 61 6c 20 60 28 75 6e 74 72 61 63 65 20 2c 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 28 | val.`(untrace.,spec))..........( |
| 210020 | 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 6e 6f 77 20 75 6e 74 72 61 63 65 64 2e 22 | format.nil."~S.is.now.untraced." |
| 210040 | 20 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 65 76 61 | .spec)).........(t..........(eva |
| 210060 | 6c 20 60 28 74 72 61 63 65 20 2c 73 70 65 63 20 2c 40 6f 70 74 69 6f 6e 73 29 29 0a 20 20 20 20 | l.`(trace.,spec.,@options))..... |
| 210080 | 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 6e 6f 77 20 74 72 61 63 | .....(format.nil."~S.is.now.trac |
| 2100a0 | 65 64 2e 22 20 73 70 65 63 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | ed.".spec))))..(defimplementatio |
| 2100c0 | 6e 20 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 28 73 70 65 63 29 0a 20 20 28 65 63 61 73 65 20 28 | n.toggle-trace.(spec)...(ecase.( |
| 2100e0 | 63 61 72 20 73 70 65 63 29 0a 20 20 20 20 28 28 73 65 74 66 29 0a 20 20 20 20 20 28 74 6f 67 67 | car.spec).....((setf)......(togg |
| 210100 | 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 73 70 65 63 29 29 0a 20 20 20 20 28 28 3a 64 65 66 67 65 | le-trace-aux.spec)).....((:defge |
| 210120 | 6e 65 72 69 63 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 73 65 63 6f 6e 64 20 | neric)......(let.((name.(second. |
| 210140 | 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 | spec)))........(toggle-trace-aux |
| 210160 | 20 6e 61 6d 65 20 3a 6d 65 74 68 6f 64 73 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 28 3a 64 65 | .name.:methods.name))).....((:de |
| 210180 | 66 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 66 62 6f 75 6e 64 70 20 60 28 | fmethod)......(cond.((fboundp.`( |
| 2101a0 | 6d 65 74 68 6f 64 20 2c 40 28 63 64 72 20 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | method.,@(cdr.spec)))........... |
| 2101c0 | 20 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 20 60 28 6d 65 74 68 6f 64 20 2c 28 63 | ..(toggle-trace-aux.`(method.,(c |
| 2101e0 | 64 72 20 73 70 65 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4d 61 6e 2c 20 69 | dr.spec))))............;;.Man,.i |
| 210200 | 73 20 74 68 69 73 20 75 67 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 66 62 6f 75 6e 64 70 | s.this.ugly............((fboundp |
| 210220 | 20 60 28 70 63 6c 3a 3a 66 61 73 74 2d 6d 65 74 68 6f 64 20 2c 40 28 63 64 72 20 73 70 65 63 29 | .`(pcl::fast-method.,@(cdr.spec) |
| 210240 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 61 75 78 | )).............(toggle-trace-aux |
| 210260 | 20 60 28 70 63 6c 3a 3a 66 61 73 74 2d 6d 65 74 68 6f 64 20 2c 40 28 63 64 72 20 73 70 65 63 29 | .`(pcl::fast-method.,@(cdr.spec) |
| 210280 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 | )))............(t.............(e |
| 2102a0 | 72 72 6f 72 20 27 75 6e 64 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 20 3a 6e 61 6d 65 20 28 | rror.'undefined-function.:name.( |
| 2102c0 | 63 64 72 20 73 70 65 63 29 29 29 29 29 0a 20 20 20 20 28 28 3a 63 61 6c 6c 29 0a 20 20 20 20 20 | cdr.spec))))).....((:call)...... |
| 2102e0 | 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 63 61 6c 6c 65 72 20 63 61 6c 6c | (destructuring-bind.(caller.call |
| 210300 | 65 65 29 20 28 63 64 72 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 28 74 6f 67 67 6c 65 2d 74 72 | ee).(cdr.spec)........(toggle-tr |
| 210320 | 61 63 65 2d 61 75 78 20 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 20 63 61 6c 6c 65 65 29 0a 20 | ace-aux.(process-fspec.callee).. |
| 210340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 77 68 65 72 65 69 6e | ........................:wherein |
| 210360 | 20 28 6c 69 73 74 20 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 20 63 61 6c 6c 65 72 29 29 29 29 | .(list.(process-fspec.caller)))) |
| 210380 | 29 0a 20 20 20 20 3b 3b 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b 20 70 72 6f 70 65 72 6c 79 0a 20 | ).....;;.doesn't.work.properly.. |
| 2103a0 | 20 20 20 3b 3b 20 28 28 3a 6c 61 62 65 6c 73 20 3a 66 6c 65 74 29 20 28 74 6f 67 67 6c 65 2d 74 | ...;;.((:labels.:flet).(toggle-t |
| 2103c0 | 72 61 63 65 2d 61 75 78 20 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 20 73 70 65 63 29 29 29 0a | race-aux.(process-fspec.spec))). |
| 2103e0 | 20 20 20 20 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 6f 63 65 73 73 2d 66 73 70 65 63 20 28 66 73 | ....))..(defun.process-fspec.(fs |
| 210400 | 70 65 63 29 0a 20 20 28 63 6f 6e 64 20 28 28 63 6f 6e 73 70 20 66 73 70 65 63 29 0a 20 20 20 20 | pec)...(cond.((consp.fspec)..... |
| 210420 | 20 20 20 20 20 28 65 63 61 73 65 20 28 66 69 72 73 74 20 66 73 70 65 63 29 0a 20 20 20 20 20 20 | .....(ecase.(first.fspec)....... |
| 210440 | 20 20 20 20 20 28 28 3a 64 65 66 75 6e 20 3a 64 65 66 67 65 6e 65 72 69 63 29 20 28 73 65 63 6f | .....((:defun.:defgeneric).(seco |
| 210460 | 6e 64 20 66 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 64 65 66 6d 65 74 68 | nd.fspec))............((:defmeth |
| 210480 | 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6d 65 74 68 6f 64 20 2c 28 73 65 63 6f 6e | od).............`(method.,(secon |
| 2104a0 | 64 20 66 73 70 65 63 29 20 2c 40 28 74 68 69 72 64 20 66 73 70 65 63 29 20 2c 28 66 6f 75 72 74 | d.fspec).,@(third.fspec).,(fourt |
| 2104c0 | 68 20 66 73 70 65 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 6c 61 62 65 6c 73 29 | h.fspec)))............((:labels) |
| 2104e0 | 20 60 28 6c 61 62 65 6c 73 20 2c 28 74 68 69 72 64 20 66 73 70 65 63 29 20 2c 28 70 72 6f 63 65 | .`(labels.,(third.fspec).,(proce |
| 210500 | 73 73 2d 66 73 70 65 63 20 28 73 65 63 6f 6e 64 20 66 73 70 65 63 29 29 29 29 0a 20 20 20 20 20 | ss-fspec.(second.fspec))))...... |
| 210520 | 20 20 20 20 20 20 28 28 3a 66 6c 65 74 29 20 60 28 66 6c 65 74 20 2c 28 74 68 69 72 64 20 66 73 | ......((:flet).`(flet.,(third.fs |
| 210540 | 70 65 63 29 20 2c 28 70 72 6f 63 65 73 73 2d 66 73 70 65 63 20 28 73 65 63 6f 6e 64 20 66 73 70 | pec).,(process-fspec.(second.fsp |
| 210560 | 65 63 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 66 73 70 | ec)))))).........(t..........fsp |
| 210580 | 65 63 29 29 29 0a 0a 3b 3b 3b 20 57 65 61 6b 20 64 61 74 61 73 74 72 75 63 74 75 72 65 73 0a 0a | ec)))..;;;.Weak.datastructures.. |
| 2105a0 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 77 65 61 6b 2d 6b 65 79 | (defimplementation.make-weak-key |
| 2105c0 | 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c | -hash-table.(&rest.args)...(appl |
| 2105e0 | 79 20 23 27 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 77 65 61 6b 2d 70 20 74 20 61 72 | y.#'make-hash-table.:weak-p.t.ar |
| 210600 | 67 73 29 29 0a 0a 0a 3b 3b 3b 20 53 61 76 65 20 69 6d 61 67 65 0a 0a 28 64 65 66 69 6d 70 6c 65 | gs))...;;;.Save.image..(defimple |
| 210620 | 6d 65 6e 74 61 74 69 6f 6e 20 73 61 76 65 2d 69 6d 61 67 65 20 28 66 69 6c 65 6e 61 6d 65 20 26 | mentation.save-image.(filename.& |
| 210640 | 6f 70 74 69 6f 6e 61 6c 20 72 65 73 74 61 72 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 6d 75 | optional.restart-function)...(mu |
| 210660 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 69 64 20 65 72 72 6f 72 29 20 28 75 | ltiple-value-bind.(pid.error).(u |
| 210680 | 6e 69 78 3a 75 6e 69 78 2d 66 6f 72 6b 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 70 69 | nix:unix-fork).....(when.(not.pi |
| 2106a0 | 64 29 20 28 65 72 72 6f 72 20 22 66 6f 72 6b 3a 20 7e 41 22 20 28 75 6e 69 78 3a 67 65 74 2d 75 | d).(error."fork:.~A".(unix:get-u |
| 2106c0 | 6e 69 78 2d 65 72 72 6f 72 2d 6d 73 67 20 65 72 72 6f 72 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 | nix-error-msg.error))).....(cond |
| 2106e0 | 20 28 28 3d 20 70 69 64 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 | .((=.pid.0)............(apply.#' |
| 210700 | 65 78 74 3a 73 61 76 65 2d 6c 69 73 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ext:save-lisp................... |
| 210720 | 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 72 | filename...................(if.r |
| 210740 | 65 73 74 61 72 74 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | estart-function................. |
| 210760 | 20 20 20 20 20 20 60 28 3a 69 6e 69 74 2d 66 75 6e 63 74 69 6f 6e 20 2c 72 65 73 74 61 72 74 2d | ......`(:init-function.,restart- |
| 210780 | 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 | function))))...........(t....... |
| 2107a0 | 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 74 75 73 20 28 77 61 69 74 70 69 64 20 70 69 64 29 | .....(let.((status.(waitpid.pid) |
| 2107c0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 | ))..............(destructuring-b |
| 2107e0 | 69 6e 64 20 28 26 6b 65 79 20 65 78 69 74 65 64 3f 20 73 74 61 74 75 73 20 26 61 6c 6c 6f 77 2d | ind.(&key.exited?.status.&allow- |
| 210800 | 6f 74 68 65 72 2d 6b 65 79 73 29 20 73 74 61 74 75 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | other-keys).status.............. |
| 210820 | 20 20 28 61 73 73 65 72 74 20 28 61 6e 64 20 65 78 69 74 65 64 3f 20 28 65 71 75 61 6c 20 73 74 | ..(assert.(and.exited?.(equal.st |
| 210840 | 61 74 75 73 20 30 29 29 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | atus.0)).()..................... |
| 210860 | 20 20 20 22 49 6e 76 61 6c 69 64 20 65 78 69 74 20 73 74 61 74 75 73 3a 20 7e 61 22 20 73 74 61 | ..."Invalid.exit.status:.~a".sta |
| 210880 | 74 75 73 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 77 61 69 74 70 69 64 20 28 70 69 64 29 | tus)))))))..(defun.waitpid.(pid) |
| 2108a0 | 0a 20 20 28 61 6c 69 65 6e 3a 77 69 74 68 2d 61 6c 69 65 6e 20 28 28 73 74 61 74 75 73 20 63 2d | ...(alien:with-alien.((status.c- |
| 2108c0 | 63 61 6c 6c 3a 69 6e 74 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6f 64 65 20 28 61 6c 69 65 | call:int)).....(let.((code.(alie |
| 2108e0 | 6e 3a 61 6c 69 65 6e 2d 66 75 6e 63 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n:alien-funcall................. |
| 210900 | 20 28 61 6c 69 65 6e 3a 65 78 74 65 72 6e 2d 61 6c 69 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | .(alien:extern-alien............ |
| 210920 | 20 20 20 20 20 20 20 77 61 69 74 70 69 64 20 28 61 6c 69 65 6e 3a 66 75 6e 63 74 69 6f 6e 20 63 | .......waitpid.(alien:function.c |
| 210940 | 2d 63 61 6c 6c 3a 69 6e 74 20 63 2d 63 61 6c 6c 3a 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 | -call:int.c-call:int............ |
| 210960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 210980 | 2a 20 63 2d 63 61 6c 6c 3a 69 6e 74 29 20 63 2d 63 61 6c 6c 3a 69 6e 74 29 29 0a 20 20 20 20 20 | *.c-call:int).c-call:int))...... |
| 2109a0 | 20 20 20 20 20 20 20 20 20 20 20 20 70 69 64 20 28 61 6c 69 65 6e 3a 61 64 64 72 20 73 74 61 74 | ............pid.(alien:addr.stat |
| 2109c0 | 75 73 29 20 30 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 63 6f 64 65 20 2d 31 | us).0))).......(cond.((=.code.-1 |
| 2109e0 | 29 20 28 65 72 72 6f 72 20 22 77 61 69 74 70 69 64 3a 20 7e 41 22 20 28 75 6e 69 78 3a 67 65 74 | ).(error."waitpid:.~A".(unix:get |
| 210a00 | 2d 75 6e 69 78 2d 65 72 72 6f 72 2d 6d 73 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | -unix-error-msg))).............( |
| 210a20 | 74 20 28 61 73 73 65 72 74 20 28 3d 20 63 6f 64 65 20 70 69 64 29 29 0a 20 20 20 20 20 20 20 20 | t.(assert.(=.code.pid))......... |
| 210a40 | 20 20 20 20 20 20 20 28 64 65 63 6f 64 65 2d 77 61 69 74 2d 73 74 61 74 75 73 20 73 74 61 74 75 | .......(decode-wait-status.statu |
| 210a60 | 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 63 6f 64 65 2d 77 61 69 74 2d 73 74 61 74 | s))))))..(defun.decode-wait-stat |
| 210a80 | 75 73 20 28 73 74 61 74 75 73 29 0a 20 20 28 6c 65 74 20 28 28 6f 75 74 70 75 74 20 28 77 69 74 | us.(status)...(let.((output.(wit |
| 210aa0 | 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 29 0a 20 20 20 20 20 20 20 20 20 | h-output-to-string.(s).......... |
| 210ac0 | 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 70 72 6f 67 72 61 6d 20 28 6c 69 73 74 20 28 70 72 | .........(call-program.(list.(pr |
| 210ae0 | 6f 63 65 73 73 2d 73 74 61 74 75 73 2d 70 72 6f 67 72 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 | ocess-status-program)........... |
| 210b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 | ............................(for |
| 210b20 | 6d 61 74 20 6e 69 6c 20 22 7e 64 22 20 73 74 61 74 75 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 | mat.nil."~d".status))........... |
| 210b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 75 74 70 75 74 20 73 29 | ......................:output.s) |
| 210b60 | 29 29 29 0a 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 6f 75 74 70 75 74 | ))).....(read-from-string.output |
| 210b80 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 6c 2d 70 72 6f 67 72 61 6d 20 28 61 72 67 73 20 26 | )))..(defun.call-program.(args.& |
| 210ba0 | 6b 65 79 20 6f 75 74 70 75 74 29 0a 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e | key.output)...(destructuring-bin |
| 210bc0 | 64 20 28 70 72 6f 67 72 61 6d 20 26 72 65 73 74 20 61 72 67 73 29 20 61 72 67 73 0a 20 20 20 20 | d.(program.&rest.args).args..... |
| 210be0 | 28 6c 65 74 20 28 28 70 72 6f 63 65 73 73 20 28 65 78 74 3a 72 75 6e 2d 70 72 6f 67 72 61 6d 20 | (let.((process.(ext:run-program. |
| 210c00 | 70 72 6f 67 72 61 6d 20 61 72 67 73 20 3a 6f 75 74 70 75 74 20 6f 75 74 70 75 74 29 29 29 0a 20 | program.args.:output.output))).. |
| 210c20 | 20 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 70 72 6f 67 72 61 6d 29 20 28 65 72 72 6f 72 20 | .....(when.(not.program).(error. |
| 210c40 | 22 66 6f 72 6b 20 66 61 69 6c 65 64 22 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 | "fork.failed")).......(unless.(a |
| 210c60 | 6e 64 20 28 65 71 20 28 65 78 74 3a 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 70 72 6f 63 65 | nd.(eq.(ext:process-status.proce |
| 210c80 | 73 73 29 20 3a 65 78 69 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ss).:exited).................... |
| 210ca0 | 28 3d 20 28 65 78 74 3a 70 72 6f 63 65 73 73 2d 65 78 69 74 2d 63 6f 64 65 20 70 72 6f 63 65 73 | (=.(ext:process-exit-code.proces |
| 210cc0 | 73 29 20 30 29 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 6e 2d 7a 65 72 6f 20 | s).0)).........(error."Non-zero. |
| 210ce0 | 65 78 69 74 20 73 74 61 74 75 73 22 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 70 72 6f 63 | exit.status")))))..(defvar.*proc |
| 210d00 | 65 73 73 2d 73 74 61 74 75 73 2d 70 72 6f 67 72 61 6d 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e | ess-status-program*.nil)..(defun |
| 210d20 | 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 2d 70 72 6f 67 72 61 6d 20 28 29 0a 20 20 28 6f 72 | .process-status-program.()...(or |
| 210d40 | 20 2a 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 2d 70 72 6f 67 72 61 6d 2a 0a 20 20 20 20 20 20 | .*process-status-program*....... |
| 210d60 | 28 73 65 74 71 20 2a 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 2d 70 72 6f 67 72 61 6d 2a 0a 20 | (setq.*process-status-program*.. |
| 210d80 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 70 72 6f 63 65 73 73 2d 73 74 61 74 | ...........(compile-process-stat |
| 210da0 | 75 73 2d 70 72 6f 67 72 61 6d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 70 | us-program))))..(defun.compile-p |
| 210dc0 | 72 6f 63 65 73 73 2d 73 74 61 74 75 73 2d 70 72 6f 67 72 61 6d 20 28 29 0a 20 20 28 6c 65 74 20 | rocess-status-program.()...(let. |
| 210de0 | 28 28 69 6e 66 69 6c 65 20 28 73 79 73 74 65 6d 3a 3a 70 69 63 6b 2d 74 65 6d 70 6f 72 61 72 79 | ((infile.(system::pick-temporary |
| 210e00 | 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2f 74 6d | -file-name.................."/tm |
| 210e20 | 70 2f 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 7e 64 7e 63 2e 63 22 29 29 29 0a 20 20 20 20 28 | p/process-status~d~c.c"))).....( |
| 210e40 | 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 73 74 72 65 61 6d 20 69 6e 66 69 6c 65 20 3a 64 | with-open-file.(stream.infile.:d |
| 210e60 | 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 20 3a 69 66 2d 65 78 69 73 74 73 20 3a 73 75 70 | irection.:output.:if-exists.:sup |
| 210e80 | 65 72 73 65 64 65 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 0a 23 | ersede).......(format.stream.".# |
| 210ea0 | 69 6e 63 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c | include.<stdio.h>.#include.<stdl |
| 210ec0 | 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 74 79 70 65 73 2e 68 3e 0a 23 69 6e | ib.h>.#include.<sys/types.h>.#in |
| 210ee0 | 63 6c 75 64 65 20 3c 73 79 73 2f 77 61 69 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 61 73 73 | clude.<sys/wait.h>.#include.<ass |
| 210f00 | 65 72 74 2e 68 3e 0a 0a 23 64 65 66 69 6e 65 20 46 4c 41 47 28 76 61 6c 75 65 29 20 28 76 61 6c | ert.h>..#define.FLAG(value).(val |
| 210f20 | 75 65 20 3f 20 5c 22 74 5c 22 20 3a 20 5c 22 6e 69 6c 5c 22 29 0a 0a 69 6e 74 20 6d 61 69 6e 20 | ue.?.\"t\".:.\"nil\")..int.main. |
| 210f40 | 28 69 6e 74 20 61 72 67 63 2c 20 63 68 61 72 2a 2a 20 61 72 67 76 29 20 7b 0a 20 20 61 73 73 65 | (int.argc,.char**.argv).{...asse |
| 210f60 | 72 74 20 28 61 72 67 63 20 3d 3d 20 32 29 3b 0a 20 20 7b 0a 20 20 20 20 63 68 61 72 2a 20 65 6e | rt.(argc.==.2);...{.....char*.en |
| 210f80 | 64 70 74 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 2a 20 61 72 67 20 3d 20 61 72 67 | dptr.=.NULL;.....char*.arg.=.arg |
| 210fa0 | 76 5b 31 5d 3b 0a 20 20 20 20 6c 6f 6e 67 20 69 6e 74 20 73 74 61 74 75 73 20 3d 20 73 74 72 74 | v[1];.....long.int.status.=.strt |
| 210fc0 | 6f 6c 20 28 61 72 67 2c 20 26 65 6e 64 70 74 72 2c 20 31 30 29 3b 0a 20 20 20 20 61 73 73 65 72 | ol.(arg,.&endptr,.10);.....asser |
| 210fe0 | 74 20 28 65 6e 64 70 74 72 20 21 3d 20 61 72 67 20 26 26 20 2a 65 6e 64 70 74 72 20 3d 3d 20 27 | t.(endptr.!=.arg.&&.*endptr.==.' |
| 211000 | 5c 5c 30 27 29 3b 0a 20 20 20 20 70 72 69 6e 74 66 20 28 5c 22 28 3a 65 78 69 74 65 64 3f 20 25 | \\0');.....printf.(\"(:exited?.% |
| 211020 | 73 20 3a 73 74 61 74 75 73 20 25 64 20 3a 73 69 67 6e 61 6c 3f 20 25 73 20 3a 73 69 67 6e 61 6c | s.:status.%d.:signal?.%s.:signal |
| 211040 | 20 25 64 20 3a 63 6f 72 65 64 75 6d 70 3f 20 25 73 5c 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .%d.:coredump?.%s\"............. |
| 211060 | 5c 22 20 3a 73 74 6f 70 70 65 64 3f 20 25 73 20 3a 73 74 6f 70 73 69 67 20 25 64 29 5c 5c 6e 5c | \".:stopped?.%s.:stopsig.%d)\\n\ |
| 211080 | 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 46 4c 41 47 28 57 49 46 45 58 49 54 45 44 28 73 74 | ",.............FLAG(WIFEXITED(st |
| 2110a0 | 61 74 75 73 29 29 2c 20 57 45 58 49 54 53 54 41 54 55 53 28 73 74 61 74 75 73 29 2c 0a 20 20 20 | atus)),.WEXITSTATUS(status),.... |
| 2110c0 | 20 20 20 20 20 20 20 20 20 46 4c 41 47 28 57 49 46 53 49 47 4e 41 4c 45 44 28 73 74 61 74 75 73 | .........FLAG(WIFSIGNALED(status |
| 2110e0 | 29 29 2c 20 57 54 45 52 4d 53 49 47 28 73 74 61 74 75 73 29 2c 0a 20 20 20 20 20 20 20 20 20 20 | )),.WTERMSIG(status),........... |
| 211100 | 20 20 46 4c 41 47 28 57 43 4f 52 45 44 55 4d 50 28 73 74 61 74 75 73 29 29 2c 0a 20 20 20 20 20 | ..FLAG(WCOREDUMP(status)),...... |
| 211120 | 20 20 20 20 20 20 20 46 4c 41 47 28 57 49 46 53 54 4f 50 50 45 44 28 73 74 61 74 75 73 29 29 2c | .......FLAG(WIFSTOPPED(status)), |
| 211140 | 20 57 53 54 4f 50 53 49 47 28 73 74 61 74 75 73 29 29 3b 0a 20 20 20 20 66 66 6c 75 73 68 20 28 | .WSTOPSIG(status));.....fflush.( |
| 211160 | 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 7d 0a 22 29 0a 20 20 | NULL);.....return.0;...}.}.")... |
| 211180 | 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 | ....(finish-output.stream))..... |
| 2111a0 | 28 6c 65 74 2a 20 28 28 6f 75 74 66 69 6c 65 20 28 73 79 73 74 65 6d 3a 3a 70 69 63 6b 2d 74 65 | (let*.((outfile.(system::pick-te |
| 2111c0 | 6d 70 6f 72 61 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | mporary-file-name))............( |
| 2111e0 | 61 72 67 73 20 28 6c 69 73 74 20 22 63 63 22 20 22 2d 6f 22 20 6f 75 74 66 69 6c 65 20 69 6e 66 | args.(list."cc"."-o".outfile.inf |
| 211200 | 69 6c 65 29 29 29 0a 20 20 20 20 20 20 28 77 61 72 6e 20 22 52 75 6e 6e 69 6e 67 20 63 63 3a 20 | ile))).......(warn."Running.cc:. |
| 211220 | 7e 7b 7e 61 20 7e 7d 7e 25 22 20 61 72 67 73 29 0a 20 20 20 20 20 20 28 63 61 6c 6c 2d 70 72 6f | ~{~a.~}~%".args).......(call-pro |
| 211240 | 67 72 61 6d 20 61 72 67 73 20 3a 6f 75 74 70 75 74 20 74 29 0a 20 20 20 20 20 20 28 64 65 6c 65 | gram.args.:output.t).......(dele |
| 211260 | 74 65 2d 66 69 6c 65 20 69 6e 66 69 6c 65 29 0a 20 20 20 20 20 20 6f 75 74 66 69 6c 65 29 29 29 | te-file.infile).......outfile))) |
| 211280 | 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 6c 69 73 70 3a 75 6e 69 63 6f 64 65 2d 63 6f 6d 70 6c 65 74 | ..;;.FIXME:.lisp:unicode-complet |
| 2112a0 | 65 20 69 6e 74 72 6f 64 75 63 65 64 20 69 6e 20 76 65 72 73 69 6f 6e 20 32 30 64 2e 0a 23 2b 23 | e.introduced.in.version.20d..#+# |
| 2112c0 | 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 75 6e 69 | .(swank/backend:with-symbol.'uni |
| 2112e0 | 63 6f 64 65 2d 63 6f 6d 70 6c 65 74 65 20 27 6c 69 73 70 29 0a 28 64 65 66 75 6e 20 6d 61 74 63 | code-complete.'lisp).(defun.matc |
| 211300 | 68 2d 73 65 6d 69 2d 73 74 61 6e 64 61 72 64 20 28 70 72 65 66 69 78 20 6d 61 74 63 68 70 29 0a | h-semi-standard.(prefix.matchp). |
| 211320 | 20 20 3b 3b 20 48 61 6e 64 6c 65 20 74 68 65 20 43 4d 55 43 4c 27 73 20 73 68 6f 72 74 20 63 68 | ..;;.Handle.the.CMUCL's.short.ch |
| 211340 | 61 72 61 63 74 65 72 20 6e 61 6d 65 73 2e 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6e 61 6d 65 20 | aracter.names....(loop.for.name. |
| 211360 | 69 6e 20 6c 69 73 70 3a 3a 63 68 61 72 2d 6e 61 6d 65 2d 61 6c 69 73 74 0a 20 20 20 20 20 77 68 | in.lisp::char-name-alist......wh |
| 211380 | 65 6e 20 28 66 75 6e 63 61 6c 6c 20 6d 61 74 63 68 70 20 70 72 65 66 69 78 20 28 63 61 72 20 6e | en.(funcall.matchp.prefix.(car.n |
| 2113a0 | 61 6d 65 29 29 0a 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 63 61 72 20 6e 61 6d 65 29 29 29 0a | ame))......collect.(car.name))). |
| 2113c0 | 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 | .#+#.(swank/backend:with-symbol. |
| 2113e0 | 27 75 6e 69 63 6f 64 65 2d 63 6f 6d 70 6c 65 74 65 20 27 6c 69 73 70 29 0a 28 64 65 66 69 6d 70 | 'unicode-complete.'lisp).(defimp |
| 211400 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 68 61 72 61 63 74 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e | lementation.character-completion |
| 211420 | 2d 73 65 74 20 28 70 72 65 66 69 78 20 6d 61 74 63 68 70 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 | -set.(prefix.matchp)...(let.((na |
| 211440 | 6d 65 73 20 28 6c 69 73 70 3a 3a 75 6e 69 63 6f 64 65 2d 63 6f 6d 70 6c 65 74 65 20 70 72 65 66 | mes.(lisp::unicode-complete.pref |
| 211460 | 69 78 29 29 29 0a 20 20 20 20 3b 3b 20 4d 61 74 63 68 20 70 72 65 66 69 78 20 61 67 61 69 6e 73 | ix))).....;;.Match.prefix.agains |
| 211480 | 74 20 73 65 6d 69 73 74 61 6e 64 61 72 64 20 6e 61 6d 65 73 2e 20 20 49 66 20 74 68 65 72 65 27 | t.semistandard.names...If.there' |
| 2114a0 | 73 20 61 20 6d 61 74 63 68 2c 0a 20 20 20 20 3b 3b 20 61 64 64 20 69 74 20 74 6f 20 6f 75 72 20 | s.a.match,.....;;.add.it.to.our. |
| 2114c0 | 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 65 73 2e 0a 20 20 20 20 28 6c 65 74 20 28 28 73 65 6d 69 | list.of.matches......(let.((semi |
| 2114e0 | 2d 73 74 61 6e 64 61 72 64 20 28 6d 61 74 63 68 2d 73 65 6d 69 2d 73 74 61 6e 64 61 72 64 20 70 | -standard.(match-semi-standard.p |
| 211500 | 72 65 66 69 78 20 6d 61 74 63 68 70 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 65 6d 69 | refix.matchp))).......(when.semi |
| 211520 | 2d 73 74 61 6e 64 61 72 64 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 6e 61 6d 65 73 20 28 61 | -standard.........(setf.names.(a |
| 211540 | 70 70 65 6e 64 20 73 65 6d 69 2d 73 74 61 6e 64 61 72 64 20 6e 61 6d 65 73 29 29 29 29 0a 20 20 | ppend.semi-standard.names))))... |
| 211560 | 20 20 28 73 65 74 66 20 6e 61 6d 65 73 20 28 6d 61 70 63 61 72 20 23 27 73 74 72 69 6e 67 2d 63 | ..(setf.names.(mapcar.#'string-c |
| 211580 | 61 70 69 74 61 6c 69 7a 65 20 6e 61 6d 65 73 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 | apitalize.names)).....(loop.for. |
| 2115a0 | 6e 20 69 6e 20 6e 61 6d 65 73 0a 20 20 20 20 20 20 20 77 68 65 6e 20 28 66 75 6e 63 61 6c 6c 20 | n.in.names........when.(funcall. |
| 2115c0 | 6d 61 74 63 68 70 20 70 72 65 66 69 78 20 6e 29 0a 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 | matchp.prefix.n)........collect. |
| 2115e0 | 6e 29 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | n)))............................ |
| 211600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 63 6c 61 73 70 2e 6c 69 73 70 00 00 00 00 00 | slime-2.31/swank/clasp.lisp..... |
| 211620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 211640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 211660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 211680 | 30 30 36 32 37 32 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 33 34 30 00 20 30 00 00 00 | 0062724.00000000000.014340..0... |
| 2116a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2116c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2116e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 211700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 211720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 211740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 211760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 211780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2117a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2117c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2117e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 211800 | 3b 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 20 2d | ;;;;.-*-.indent-tabs-mode:.nil.- |
| 211820 | 2a 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 63 6c 61 73 70 2e 6c 69 73 70 20 2d 2d 2d 20 | *-.;;;.;;;.swank-clasp.lisp.---. |
| 211840 | 53 4c 49 4d 45 20 62 61 63 6b 65 6e 64 20 66 6f 72 20 43 4c 41 53 50 2e 0a 3b 3b 3b 0a 3b 3b 3b | SLIME.backend.for.CLASP..;;;.;;; |
| 211860 | 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 | .This.code.has.been.placed.in.th |
| 211880 | 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 | e.Public.Domain...All.warranties |
| 2118a0 | 0a 3b 3b 3b 20 61 72 65 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 3b 3b 3b 0a 0a 3b 3b 3b 20 41 64 | .;;;.are.disclaimed..;;;..;;;.Ad |
| 2118c0 | 6d 69 6e 69 73 74 72 69 76 69 61 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 63 | ministrivia..(defpackage.swank/c |
| 2118e0 | 6c 61 73 70 0a 20 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 29 0a | lasp...(:use.cl.swank/backend)). |
| 211900 | 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 63 6c 61 73 70 29 0a 0a 3b 3b 20 48 61 | .(in-package.swank/clasp)..;;.Ha |
| 211920 | 72 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f | rd.dependencies..(eval-when.(:co |
| 211940 | 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 | mpile-toplevel.:load-toplevel.:e |
| 211960 | 78 65 63 75 74 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6f 63 6b 65 74 73 29 29 0a 0a 3b | xecute)...(require.'sockets))..; |
| 211980 | 3b 20 53 6f 66 74 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 0a 28 65 76 61 6c 2d 77 68 65 6e 20 | ;.Soft.dependencies..(eval-when. |
| 2119a0 | 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 | (:compile-toplevel.:load-topleve |
| 2119c0 | 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 77 68 65 6e 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 | l.:execute)...(when.(probe-file. |
| 2119e0 | 22 73 79 73 3a 70 72 6f 66 69 6c 65 2e 66 61 73 22 29 0a 20 20 20 20 28 72 65 71 75 69 72 65 20 | "sys:profile.fas").....(require. |
| 211a00 | 3a 70 72 6f 66 69 6c 65 29 0a 20 20 20 20 28 70 75 73 68 6e 65 77 20 3a 70 72 6f 66 69 6c 65 20 | :profile).....(pushnew.:profile. |
| 211a20 | 2a 66 65 61 74 75 72 65 73 2a 29 29 0a 20 20 28 77 68 65 6e 20 28 70 72 6f 62 65 2d 66 69 6c 65 | *features*))...(when.(probe-file |
| 211a40 | 20 22 73 79 73 3a 73 72 63 3b 6c 69 73 70 3b 6d 6f 64 75 6c 65 73 3b 73 65 72 76 65 2d 65 76 65 | ."sys:src;lisp;modules;serve-eve |
| 211a60 | 6e 74 3b 22 29 0a 20 20 20 20 28 72 65 71 75 69 72 65 20 3a 73 65 72 76 65 2d 65 76 65 6e 74 29 | nt;").....(require.:serve-event) |
| 211a80 | 0a 20 20 20 20 28 70 75 73 68 6e 65 77 20 3a 73 65 72 76 65 2d 65 76 65 6e 74 20 2a 66 65 61 74 | .....(pushnew.:serve-event.*feat |
| 211aa0 | 75 72 65 73 2a 29 29 0a 20 20 28 77 68 65 6e 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 54 45 | ures*))...(when.(find-symbol."TE |
| 211ac0 | 4d 50 4f 52 41 52 59 2d 44 49 52 45 43 54 4f 52 59 22 20 22 45 58 54 22 29 0a 20 20 20 20 28 70 | MPORARY-DIRECTORY"."EXT").....(p |
| 211ae0 | 75 73 68 6e 65 77 20 3a 74 65 6d 70 6f 72 61 72 79 2d 64 69 72 65 63 74 6f 72 79 20 2a 66 65 61 | ushnew.:temporary-directory.*fea |
| 211b00 | 74 75 72 65 73 2a 29 29 29 0a 0a 3b 3b 3b 20 43 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 74 65 73 | tures*)))..;;;.Compatibility.tes |
| 211b20 | 74 73 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 | ts..(eval-when.(:compile-topleve |
| 211b40 | 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 3b 3b 20 | l.:load-toplevel.:execute)...;;. |
| 211b60 | 78 72 65 66 20 73 75 70 70 6f 72 74 20 28 32 2e 34 29 0a 20 20 28 64 65 66 75 6e 20 63 6c 61 73 | xref.support.(2.4)...(defun.clas |
| 211b80 | 70 2d 77 69 74 68 2d 78 72 65 66 2d 70 20 28 29 0a 20 20 20 28 77 69 74 68 2d 73 79 6d 62 6f 6c | p-with-xref-p.()....(with-symbol |
| 211ba0 | 20 27 77 68 6f 2d 63 61 6c 6c 73 20 27 65 78 74 29 29 29 0a 0a 3b 3b 3b 20 53 77 61 6e 6b 2d 6d | .'who-calls.'ext)))..;;;.Swank-m |
| 211bc0 | 6f 70 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 | op..(eval-when.(:compile-topleve |
| 211be0 | 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 28 69 6d | l.:load-toplevel.:execute)...(im |
| 211c00 | 70 6f 72 74 2d 73 77 61 6e 6b 2d 6d 6f 70 2d 73 79 6d 62 6f 6c 73 20 3a 63 6c 6f 73 20 6e 69 6c | port-swank-mop-symbols.:clos.nil |
| 211c20 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 72 61 79 2d 70 61 63 6b | ))..(defimplementation.gray-pack |
| 211c40 | 61 67 65 2d 6e 61 6d 65 20 28 29 0a 20 20 22 47 52 41 59 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 43 | age-name.()..."GRAY")....;;;;.TC |
| 211c60 | 50 20 53 65 72 76 65 72 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 65 | P.Server..(defimplementation.pre |
| 211c80 | 66 65 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 28 29 0a 20 20 | ferred-communication-style.()... |
| 211ca0 | 3a 73 70 61 77 6e 0a 23 7c 20 20 23 2b 74 68 72 65 61 64 73 20 3a 73 70 61 77 6e 0a 20 20 23 2d | :spawn.#|..#+threads.:spawn...#- |
| 211cc0 | 74 68 72 65 61 64 73 20 6e 69 6c 0a 7c 23 0a 20 20 29 0a 0a 28 64 65 66 75 6e 20 72 65 73 6f 6c | threads.nil.|#...)..(defun.resol |
| 211ce0 | 76 65 2d 68 6f 73 74 6e 61 6d 65 20 28 6e 61 6d 65 29 0a 20 20 28 63 61 72 20 28 73 62 2d 62 73 | ve-hostname.(name)...(car.(sb-bs |
| 211d00 | 64 2d 73 6f 63 6b 65 74 73 3a 68 6f 73 74 2d 65 6e 74 2d 61 64 64 72 65 73 73 65 73 0a 20 20 20 | d-sockets:host-ent-addresses.... |
| 211d20 | 20 20 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 67 65 74 2d 68 6f 73 74 2d 62 79 | .....(sb-bsd-sockets:get-host-by |
| 211d40 | 2d 6e 61 6d 65 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | -name.name))))..(defimplementati |
| 211d60 | 6f 6e 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 28 68 6f 73 74 20 70 6f 72 74 20 26 6b 65 79 | on.create-socket.(host.port.&key |
| 211d80 | 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 6c 65 74 20 28 28 73 6f 63 6b 65 74 20 28 6d 61 6b 65 2d | .backlog)...(let.((socket.(make- |
| 211da0 | 69 6e 73 74 61 6e 63 65 20 27 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 69 6e 65 74 2d 73 6f | instance.'sb-bsd-sockets:inet-so |
| 211dc0 | 63 6b 65 74 0a 09 09 09 20 20 20 20 20 20 20 3a 74 79 70 65 20 3a 73 74 72 65 61 6d 0a 09 09 09 | cket...........:type.:stream.... |
| 211de0 | 20 20 20 20 20 20 20 3a 70 72 6f 74 6f 63 6f 6c 20 3a 74 63 70 29 29 29 0a 20 20 20 20 28 73 65 | .......:protocol.:tcp))).....(se |
| 211e00 | 74 66 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 6f 70 74 2d 72 65 75 73 65 | tf.(sb-bsd-sockets:sockopt-reuse |
| 211e20 | 2d 61 64 64 72 65 73 73 20 73 6f 63 6b 65 74 29 20 74 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 72 | -address.socket).t).....(handler |
| 211e40 | 2d 62 69 6e 64 0a 20 20 20 20 20 20 20 20 28 28 53 42 2d 42 53 44 2d 53 4f 43 4b 45 54 53 3a 41 | -bind.........((SB-BSD-SOCKETS:A |
| 211e60 | 44 44 52 45 53 53 2d 49 4e 2d 55 53 45 2d 45 52 52 4f 52 20 28 6c 61 6d 62 64 61 20 28 65 72 72 | DDRESS-IN-USE-ERROR.(lambda.(err |
| 211e80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 211ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f | ..................(declare.(igno |
| 211ec0 | 72 65 20 65 72 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | re.err))........................ |
| 211ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 76 6f 6b 65 2d | ........................(invoke- |
| 211f00 | 72 65 73 74 61 72 74 20 27 75 73 65 2d 76 61 6c 75 65 29 29 29 29 0a 20 20 20 20 20 20 28 73 62 | restart.'use-value)))).......(sb |
| 211f20 | 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 62 69 6e 64 20 73 6f 63 6b 65 74 20 | -bsd-sockets:socket-bind.socket. |
| 211f40 | 28 72 65 73 6f 6c 76 65 2d 68 6f 73 74 6e 61 6d 65 20 68 6f 73 74 29 20 70 6f 72 74 29 29 0a 20 | (resolve-hostname.host).port)).. |
| 211f60 | 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 6c 69 73 74 65 6e | ...(sb-bsd-sockets:socket-listen |
| 211f80 | 20 73 6f 63 6b 65 74 20 28 6f 72 20 62 61 63 6b 6c 6f 67 20 35 29 29 0a 20 20 20 20 73 6f 63 6b | .socket.(or.backlog.5)).....sock |
| 211fa0 | 65 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 63 61 6c 2d 70 | et))..(defimplementation.local-p |
| 211fc0 | 6f 72 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 31 20 28 73 62 2d | ort.(socket)...(nth-value.1.(sb- |
| 211fe0 | 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 6e 61 6d 65 20 73 6f 63 6b 65 74 29 29 | bsd-sockets:socket-name.socket)) |
| 212000 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6c 6f 73 65 2d 73 6f 63 6b | )..(defimplementation.close-sock |
| 212020 | 65 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f | et.(socket)...(sb-bsd-sockets:so |
| 212040 | 63 6b 65 74 2d 63 6c 6f 73 65 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | cket-close.socket))..(defimpleme |
| 212060 | 6e 74 61 74 69 6f 6e 20 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6f 63 6b 65 | ntation.accept-connection.(socke |
| 212080 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t............................... |
| 2120a0 | 20 20 20 20 20 20 20 20 26 6b 65 79 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 | ........&key.external-format.... |
| 2120c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2120e0 | 20 20 20 62 75 66 66 65 72 69 6e 67 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 64 65 63 6c 61 72 65 | ...buffering.timeout)...(declare |
| 212100 | 20 28 69 67 6e 6f 72 65 20 74 69 6d 65 6f 75 74 29 29 0a 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 | .(ignore.timeout))...(sb-bsd-soc |
| 212120 | 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 6d 61 6b 65 2d 73 74 72 65 61 6d 20 28 61 63 63 65 70 74 20 | kets:socket-make-stream.(accept. |
| 212140 | 73 6f 63 6b 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | socket)......................... |
| 212160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6f 75 74 70 75 74 20 74 0a 20 20 20 20 20 20 20 20 20 | .............:output.t.......... |
| 212180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 70 | ............................:inp |
| 2121a0 | 75 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ut.t............................ |
| 2121c0 | 20 20 20 20 20 20 20 20 20 20 3a 62 75 66 66 65 72 69 6e 67 20 28 65 63 61 73 65 20 62 75 66 66 | ..........:buffering.(ecase.buff |
| 2121e0 | 65 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ering........................... |
| 212200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 74 29 20 3a 66 75 | ........................((t).:fu |
| 212220 | 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ll)............................. |
| 212240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 69 6c 29 20 3a 6e 6f | ......................((nil).:no |
| 212260 | 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ne)............................. |
| 212280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6c 69 6e 65 20 3a 6c 69 | ......................(:line.:li |
| 2122a0 | 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ne))............................ |
| 2122c0 | 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 28 69 66 20 65 78 74 65 | ..........:element-type.(if.exte |
| 2122e0 | 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rnal-format..................... |
| 212300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 212320 | 20 20 20 27 63 68 61 72 61 63 74 65 72 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...'character................... |
| 212340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 212360 | 20 20 20 20 20 20 27 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 38 29 29 0a 20 20 20 20 20 20 | ......'(unsigned-byte.8))....... |
| 212380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ...............................: |
| 2123a0 | 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 | external-format.external-format) |
| 2123c0 | 29 0a 28 64 65 66 75 6e 20 61 63 63 65 70 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 22 4c 69 6b 65 | ).(defun.accept.(socket)..."Like |
| 2123e0 | 20 73 6f 63 6b 65 74 2d 61 63 63 65 70 74 2c 20 62 75 74 20 72 65 74 72 79 20 6f 6e 20 45 41 47 | .socket-accept,.but.retry.on.EAG |
| 212400 | 41 49 4e 2e 22 0a 20 20 28 6c 6f 6f 70 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 | AIN."...(loop.(handler-case..... |
| 212420 | 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a | ........(return.(sb-bsd-sockets: |
| 212440 | 73 6f 63 6b 65 74 2d 61 63 63 65 70 74 20 73 6f 63 6b 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 | socket-accept.socket)).......... |
| 212460 | 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 69 6e 74 65 72 72 75 70 74 65 64 2d 65 72 72 | .(sb-bsd-sockets:interrupted-err |
| 212480 | 6f 72 20 28 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 6f | or.()))))..(defimplementation.so |
| 2124a0 | 63 6b 65 74 2d 66 64 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 73 6f | cket-fd.(socket)...(etypecase.so |
| 2124c0 | 63 6b 65 74 0a 20 20 20 20 28 66 69 78 6e 75 6d 20 73 6f 63 6b 65 74 29 0a 20 20 20 20 28 74 77 | cket.....(fixnum.socket).....(tw |
| 2124e0 | 6f 2d 77 61 79 2d 73 74 72 65 61 6d 20 28 73 6f 63 6b 65 74 2d 66 64 20 28 74 77 6f 2d 77 61 79 | o-way-stream.(socket-fd.(two-way |
| 212500 | 2d 73 74 72 65 61 6d 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 73 6f 63 6b 65 74 29 29 29 0a 20 | -stream-input-stream.socket))).. |
| 212520 | 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 20 28 73 62 2d 62 73 | ...(sb-bsd-sockets:socket.(sb-bs |
| 212540 | 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 66 69 6c 65 2d 64 65 73 63 72 69 70 74 6f 72 | d-sockets:socket-file-descriptor |
| 212560 | 20 73 6f 63 6b 65 74 29 29 0a 20 20 20 20 28 66 69 6c 65 2d 73 74 72 65 61 6d 20 28 65 78 74 3a | .socket)).....(file-stream.(ext: |
| 212580 | 66 69 6c 65 2d 73 74 72 65 61 6d 2d 66 69 6c 65 2d 64 65 73 63 72 69 70 74 6f 72 20 73 6f 63 6b | file-stream-file-descriptor.sock |
| 2125a0 | 65 74 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 | et))))..(defvar.*external-format |
| 2125c0 | 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 0a 20 20 27 28 28 3a 6c 61 74 69 6e 2d 31 | -to-coding-system*...'((:latin-1 |
| 2125e0 | 0a 20 20 20 20 20 22 6c 61 74 69 6e 2d 31 22 20 22 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 22 | ......"latin-1"."latin-1-unix"." |
| 212600 | 69 73 6f 2d 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 0a 20 20 20 20 20 22 69 73 6f 2d 38 38 35 | iso-latin-1-unix"......."iso-885 |
| 212620 | 39 2d 31 22 20 22 69 73 6f 2d 38 38 35 39 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a 75 74 | 9-1"."iso-8859-1-unix").....(:ut |
| 212640 | 66 2d 38 20 22 75 74 66 2d 38 22 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 29 29 0a 0a 28 64 65 | f-8."utf-8"."utf-8-unix")))..(de |
| 212660 | 66 75 6e 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 | fun.external-format.(coding-syst |
| 212680 | 65 6d 29 0a 20 20 28 6f 72 20 28 63 61 72 20 28 72 61 73 73 6f 63 2d 69 66 20 28 6c 61 6d 62 64 | em)...(or.(car.(rassoc-if.(lambd |
| 2126a0 | 61 20 28 78 29 20 28 6d 65 6d 62 65 72 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 78 20 3a 74 | a.(x).(member.coding-system.x.:t |
| 2126c0 | 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | est.#'equal))................... |
| 2126e0 | 20 20 20 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 | ....*external-format-to-coding-s |
| 212700 | 79 73 74 65 6d 2a 29 29 0a 20 20 20 20 20 20 28 66 69 6e 64 20 63 6f 64 69 6e 67 2d 73 79 73 74 | ystem*)).......(find.coding-syst |
| 212720 | 65 6d 20 28 65 78 74 3a 61 6c 6c 2d 65 6e 63 6f 64 69 6e 67 73 29 20 3a 74 65 73 74 20 23 27 73 | em.(ext:all-encodings).:test.#'s |
| 212740 | 74 72 69 6e 67 2d 65 71 75 61 6c 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | tring-equal)))..(defimplementati |
| 212760 | 6f 6e 20 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d | on.find-external-format.(coding- |
| 212780 | 73 79 73 74 65 6d 29 0a 20 20 23 2b 75 6e 69 63 6f 64 65 20 28 65 78 74 65 72 6e 61 6c 2d 66 6f | system)...#+unicode.(external-fo |
| 2127a0 | 72 6d 61 74 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 3b 3b 20 57 69 74 68 6f 75 74 | rmat.coding-system)...;;.Without |
| 2127c0 | 20 75 6e 69 63 6f 64 65 20 73 75 70 70 6f 72 74 2c 20 43 4c 41 53 50 20 75 73 65 73 20 74 68 65 | .unicode.support,.CLASP.uses.the |
| 2127e0 | 20 6f 6e 65 2d 62 79 74 65 20 65 6e 63 6f 64 69 6e 67 20 6f 66 20 74 68 65 0a 20 20 3b 3b 20 75 | .one-byte.encoding.of.the...;;.u |
| 212800 | 6e 64 65 72 6c 79 69 6e 67 20 4f 53 2c 20 61 6e 64 20 77 69 6c 6c 20 62 61 72 66 20 6f 6e 20 61 | nderlying.OS,.and.will.barf.on.a |
| 212820 | 6e 79 74 68 69 6e 67 20 65 78 63 65 70 74 20 3a 44 45 46 41 55 4c 54 2e 20 20 57 65 0a 20 20 3b | nything.except.:DEFAULT...We...; |
| 212840 | 3b 20 72 65 74 75 72 6e 20 4e 49 4c 20 68 65 72 65 20 66 6f 72 20 6b 6e 6f 77 6e 20 6d 75 6c 74 | ;.return.NIL.here.for.known.mult |
| 212860 | 69 62 79 74 65 20 65 6e 63 6f 64 69 6e 67 73 2c 20 73 6f 0a 20 20 3b 3b 20 53 57 41 4e 4b 3a 43 | ibyte.encodings,.so...;;.SWANK:C |
| 212880 | 52 45 41 54 45 2d 53 45 52 56 45 52 20 77 69 6c 6c 20 62 61 72 66 2e 0a 20 20 23 2d 75 6e 69 63 | REATE-SERVER.will.barf....#-unic |
| 2128a0 | 6f 64 65 20 28 6c 65 74 20 28 28 78 66 20 28 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 63 | ode.(let.((xf.(external-format.c |
| 2128c0 | 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | oding-system)))...............(i |
| 2128e0 | 66 20 28 6d 65 6d 62 65 72 20 78 66 20 27 28 3a 75 74 66 2d 38 29 29 0a 20 20 20 20 20 20 20 20 | f.(member.xf.'(:utf-8))......... |
| 212900 | 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........nil................... |
| 212920 | 3a 64 65 66 61 75 6c 74 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 55 6e 69 78 20 49 6e 74 65 67 72 61 | :default)))....;;;;.Unix.Integra |
| 212940 | 74 69 6f 6e 0a 0a 3b 3b 3b 20 49 66 20 43 4c 41 53 50 20 69 73 20 62 75 69 6c 74 20 77 69 74 68 | tion..;;;.If.CLASP.is.built.with |
| 212960 | 20 74 68 72 65 61 64 20 73 75 70 70 6f 72 74 2c 20 69 74 27 6c 6c 20 73 70 61 77 6e 20 61 20 68 | .thread.support,.it'll.spawn.a.h |
| 212980 | 65 6c 70 65 72 20 74 68 72 65 61 64 0a 3b 3b 3b 20 65 78 65 63 75 74 69 6e 67 20 74 68 65 20 53 | elper.thread.;;;.executing.the.S |
| 2129a0 | 49 47 49 4e 54 20 68 61 6e 64 6c 65 72 2e 20 57 65 20 64 6f 20 6e 6f 74 20 77 61 6e 74 20 74 6f | IGINT.handler..We.do.not.want.to |
| 2129c0 | 20 42 52 45 41 4b 20 69 6e 74 6f 20 74 68 61 74 0a 3b 3b 3b 20 68 65 6c 70 65 72 20 62 75 74 20 | .BREAK.into.that.;;;.helper.but. |
| 2129e0 | 69 6e 74 6f 20 74 68 65 20 6d 61 69 6e 20 74 68 72 65 61 64 2c 20 74 68 6f 75 67 68 2e 20 54 68 | into.the.main.thread,.though..Th |
| 212a00 | 69 73 20 69 73 20 63 6f 75 70 6c 65 64 20 77 69 74 68 20 74 68 65 0a 3b 3b 3b 20 63 75 72 72 65 | is.is.coupled.with.the.;;;.curre |
| 212a20 | 6e 74 20 63 68 6f 69 63 65 20 6f 66 20 4e 49 4c 20 61 73 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f | nt.choice.of.NIL.as.communicatio |
| 212a40 | 6e 2d 73 74 79 6c 65 20 69 6e 20 73 6f 20 66 61 72 20 61 73 20 43 4c 41 53 50 27 73 0a 3b 3b 3b | n-style.in.so.far.as.CLASP's.;;; |
| 212a60 | 20 6d 61 69 6e 2d 74 68 72 65 61 64 20 69 73 20 61 6c 73 6f 20 74 68 65 20 53 6c 69 6d 65 27 73 | .main-thread.is.also.the.Slime's |
| 212a80 | 20 52 45 50 4c 20 74 68 72 65 61 64 2e 0a 0a 23 2b 63 6c 61 73 70 2d 77 6f 72 6b 69 6e 67 0a 28 | .REPL.thread...#+clasp-working.( |
| 212aa0 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 75 73 65 72 | defimplementation.call-with-user |
| 212ac0 | 2d 62 72 65 61 6b 2d 68 61 6e 64 6c 65 72 20 28 72 65 61 6c 2d 68 61 6e 64 6c 65 72 20 66 75 6e | -break-handler.(real-handler.fun |
| 212ae0 | 63 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d 68 61 6e 64 6c 65 72 20 23 27 73 69 | ction)...(let.((old-handler.#'si |
| 212b00 | 3a 74 65 72 6d 69 6e 61 6c 2d 69 6e 74 65 72 72 75 70 74 29 29 0a 20 20 20 20 28 73 65 74 66 20 | :terminal-interrupt)).....(setf. |
| 212b20 | 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 73 69 3a 74 65 72 6d 69 6e 61 6c 2d 69 6e | (symbol-function.'si:terminal-in |
| 212b40 | 74 65 72 72 75 70 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 69 6e 74 65 72 72 75 | terrupt)...........(make-interru |
| 212b60 | 70 74 2d 68 61 6e 64 6c 65 72 20 72 65 61 6c 2d 68 61 6e 64 6c 65 72 29 29 0a 20 20 20 20 28 75 | pt-handler.real-handler)).....(u |
| 212b80 | 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 | nwind-protect.(funcall.function) |
| 212ba0 | 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 73 | .......(setf.(symbol-function.'s |
| 212bc0 | 69 3a 74 65 72 6d 69 6e 61 6c 2d 69 6e 74 65 72 72 75 70 74 29 20 6f 6c 64 2d 68 61 6e 64 6c 65 | i:terminal-interrupt).old-handle |
| 212be0 | 72 29 29 29 29 0a 0a 23 2b 74 68 72 65 61 64 73 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 69 6e 74 | r))))..#+threads.(defun.make-int |
| 212c00 | 65 72 72 75 70 74 2d 68 61 6e 64 6c 65 72 20 28 72 65 61 6c 2d 68 61 6e 64 6c 65 72 29 0a 20 20 | errupt-handler.(real-handler)... |
| 212c20 | 28 6c 65 74 20 28 28 6d 61 69 6e 2d 74 68 72 65 61 64 20 28 66 69 6e 64 20 27 73 69 3a 74 6f 70 | (let.((main-thread.(find.'si:top |
| 212c40 | 2d 6c 65 76 65 6c 20 28 6d 70 3a 61 6c 6c 2d 70 72 6f 63 65 73 73 65 73 29 0a 20 20 20 20 20 20 | -level.(mp:all-processes)....... |
| 212c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 6d 70 3a 70 | .....................:key.#'mp:p |
| 212c80 | 72 6f 63 65 73 73 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 26 72 | rocess-name))).....#'(lambda.(&r |
| 212ca0 | 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f | est.args).........(declare.(igno |
| 212cc0 | 72 65 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 28 6d 70 3a 69 6e 74 65 72 72 75 70 74 2d | re.args)).........(mp:interrupt- |
| 212ce0 | 70 72 6f 63 65 73 73 20 6d 61 69 6e 2d 74 68 72 65 61 64 20 72 65 61 6c 2d 68 61 6e 64 6c 65 72 | process.main-thread.real-handler |
| 212d00 | 29 29 29 29 0a 0a 23 2d 74 68 72 65 61 64 73 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 69 6e 74 65 | ))))..#-threads.(defun.make-inte |
| 212d20 | 72 72 75 70 74 2d 68 61 6e 64 6c 65 72 20 28 72 65 61 6c 2d 68 61 6e 64 6c 65 72 29 0a 20 20 23 | rrupt-handler.(real-handler)...# |
| 212d40 | 27 28 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 28 64 65 63 | '(lambda.(&rest.args).......(dec |
| 212d60 | 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 | lare.(ignore.args)).......(funca |
| 212d80 | 6c 6c 20 72 65 61 6c 2d 68 61 6e 64 6c 65 72 29 29 29 0a 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | ll.real-handler)))...(defimpleme |
| 212da0 | 6e 74 61 74 69 6f 6e 20 67 65 74 70 69 64 20 28 29 0a 20 20 28 63 6c 61 73 70 2d 70 6f 73 69 78 | ntation.getpid.()...(clasp-posix |
| 212dc0 | 3a 67 65 74 70 69 64 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 | :getpid))..(defimplementation.se |
| 212de0 | 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 29 0a | t-default-directory.(directory). |
| 212e00 | 20 20 28 65 78 74 3a 63 68 64 69 72 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 64 69 72 65 63 74 6f | ..(ext:chdir.(namestring.directo |
| 212e20 | 72 79 29 29 20 20 3b 20 61 64 61 70 74 73 20 2a 44 45 46 41 55 4c 54 2d 50 41 54 48 4e 41 4d 45 | ry))..;.adapts.*DEFAULT-PATHNAME |
| 212e40 | 2d 44 45 46 41 55 4c 54 53 2a 2e 0a 20 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 | -DEFAULTS*....(default-directory |
| 212e60 | 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 66 61 75 6c 74 2d 64 | ))..(defimplementation.default-d |
| 212e80 | 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 65 78 74 3a 67 | irectory.()...(namestring.(ext:g |
| 212ea0 | 65 74 63 77 64 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 71 75 69 | etcwd)))..(defimplementation.qui |
| 212ec0 | 74 2d 6c 69 73 70 20 28 29 0a 20 20 28 73 79 73 3a 71 75 69 74 29 29 0a 0a 0c 0a 0a 3b 3b 3b 20 | t-lisp.()...(sys:quit)).....;;;. |
| 212ee0 | 49 6e 73 74 65 61 64 20 6f 66 20 62 75 73 79 20 77 61 69 74 69 6e 67 20 77 69 74 68 20 63 6f 6d | Instead.of.busy.waiting.with.com |
| 212f00 | 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 4e 49 4c 2c 20 75 73 65 20 73 65 6c 65 63 74 | munication-style.NIL,.use.select |
| 212f20 | 28 29 0a 3b 3b 3b 20 6f 6e 20 74 68 65 20 73 6f 63 6b 65 74 73 27 20 73 74 72 65 61 6d 73 2e 0a | ().;;;.on.the.sockets'.streams.. |
| 212f40 | 23 2b 73 65 72 76 65 2d 65 76 65 6e 74 0a 28 70 72 6f 67 6e 0a 20 20 28 64 65 66 75 6e 20 70 6f | #+serve-event.(progn...(defun.po |
| 212f60 | 6c 6c 2d 73 74 72 65 61 6d 73 20 28 73 74 72 65 61 6d 73 20 74 69 6d 65 6f 75 74 29 0a 20 20 20 | ll-streams.(streams.timeout).... |
| 212f80 | 20 28 6c 65 74 2a 20 28 28 73 65 72 76 65 2d 65 76 65 6e 74 3a 3a 2a 64 65 73 63 72 69 70 74 6f | .(let*.((serve-event::*descripto |
| 212fa0 | 72 2d 68 61 6e 64 6c 65 72 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 70 79 2d 6c 69 | r-handlers*.............(copy-li |
| 212fc0 | 73 74 20 73 65 72 76 65 2d 65 76 65 6e 74 3a 3a 2a 64 65 73 63 72 69 70 74 6f 72 2d 68 61 6e 64 | st.serve-event::*descriptor-hand |
| 212fe0 | 6c 65 72 73 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 63 74 69 76 65 2d 66 64 73 20 27 | lers*))............(active-fds.' |
| 213000 | 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 64 2d 73 74 72 65 61 6d 2d 61 6c 69 73 74 0a | ())............(fd-stream-alist. |
| 213020 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 20 69 6e 20 73 74 72 65 61 | ............(loop.for.s.in.strea |
| 213040 | 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 66 64 20 3d 20 28 73 | ms...................for.fd.=.(s |
| 213060 | 6f 63 6b 65 74 2d 66 64 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f | ocket-fd.s)...................co |
| 213080 | 6c 6c 65 63 74 20 28 63 6f 6e 73 20 66 64 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | llect.(cons.fd.s)............... |
| 2130a0 | 20 20 20 20 64 6f 20 28 73 65 72 76 65 2d 65 76 65 6e 74 3a 61 64 64 2d 66 64 2d 68 61 6e 64 6c | ....do.(serve-event:add-fd-handl |
| 2130c0 | 65 72 20 66 64 20 3a 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er.fd.:input.................... |
| 2130e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 | ..............................#' |
| 213100 | 28 6c 61 6d 62 64 61 20 28 66 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (lambda.(fd).................... |
| 213120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 213140 | 20 20 28 70 75 73 68 20 66 64 20 61 63 74 69 76 65 2d 66 64 73 29 29 29 29 29 29 0a 20 20 20 20 | ..(push.fd.active-fds))))))..... |
| 213160 | 20 20 28 73 65 72 76 65 2d 65 76 65 6e 74 3a 73 65 72 76 65 2d 65 76 65 6e 74 20 74 69 6d 65 6f | ..(serve-event:serve-event.timeo |
| 213180 | 75 74 29 0a 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 64 20 69 6e 20 61 63 74 69 76 65 | ut).......(loop.for.fd.in.active |
| 2131a0 | 2d 66 64 73 20 63 6f 6c 6c 65 63 74 20 28 63 64 72 20 28 61 73 73 6f 63 20 66 64 20 66 64 2d 73 | -fds.collect.(cdr.(assoc.fd.fd-s |
| 2131c0 | 74 72 65 61 6d 2d 61 6c 69 73 74 29 29 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e | tream-alist)))))....(defimplemen |
| 2131e0 | 74 61 74 69 6f 6e 20 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 20 28 73 74 72 65 61 6d 73 20 26 | tation.wait-for-input.(streams.& |
| 213200 | 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 20 20 28 61 73 73 65 72 74 20 28 6d | optional.timeout).....(assert.(m |
| 213220 | 65 6d 62 65 72 20 74 69 6d 65 6f 75 74 20 27 28 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 28 6c 6f | ember.timeout.'(nil.t))).....(lo |
| 213240 | 6f 70 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e | op........(cond.((check-slime-in |
| 213260 | 74 65 72 72 75 70 74 73 29 20 28 72 65 74 75 72 6e 20 3a 69 6e 74 65 72 72 75 70 74 29 29 0a 20 | terrupts).(return.:interrupt)).. |
| 213280 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 6f 75 74 20 28 72 65 74 75 72 6e 20 28 70 6f | ............(timeout.(return.(po |
| 2132a0 | 6c 6c 2d 73 74 72 65 61 6d 73 20 73 74 72 65 61 6d 73 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 | ll-streams.streams.0)))......... |
| 2132c0 | 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 | .....(t...............(when-let. |
| 2132e0 | 28 72 65 61 64 79 20 28 70 6f 6c 6c 2d 73 74 72 65 61 6d 73 20 73 74 72 65 61 6d 73 20 30 2e 32 | (ready.(poll-streams.streams.0.2 |
| 213300 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 | )).........................(retu |
| 213320 | 72 6e 20 72 65 61 64 79 29 29 29 29 29 29 20 20 0a 0a 29 20 3b 20 23 2b 73 65 72 76 65 2d 65 76 | rn.ready))))))....).;.#+serve-ev |
| 213340 | 65 6e 74 20 28 70 72 6f 67 6e 20 2e 2e 2e 0a 0a 23 2d 73 65 72 76 65 2d 65 76 65 6e 74 0a 28 64 | ent.(progn......#-serve-event.(d |
| 213360 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 20 | efimplementation.wait-for-input. |
| 213380 | 28 73 74 72 65 61 6d 73 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 61 | (streams.&optional.timeout)...(a |
| 2133a0 | 73 73 65 72 74 20 28 6d 65 6d 62 65 72 20 74 69 6d 65 6f 75 74 20 27 28 6e 69 6c 20 74 29 29 29 | ssert.(member.timeout.'(nil.t))) |
| 2133c0 | 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 28 63 6f 6e 64 20 28 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d | ...(loop....(cond.((check-slime- |
| 2133e0 | 69 6e 74 65 72 72 75 70 74 73 29 20 28 72 65 74 75 72 6e 20 3a 69 6e 74 65 72 72 75 70 74 29 29 | interrupts).(return.:interrupt)) |
| 213400 | 0a 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 6f 75 74 20 28 72 65 74 75 72 6e 20 28 72 65 6d 6f | ..........(timeout.(return.(remo |
| 213420 | 76 65 2d 69 66 2d 6e 6f 74 20 23 27 6c 69 73 74 65 6e 20 73 74 72 65 61 6d 73 29 29 29 0a 20 20 | ve-if-not.#'listen.streams)))... |
| 213440 | 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 61 64 79 | .......(t...........(let.((ready |
| 213460 | 20 28 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 27 6c 69 73 74 65 6e 20 73 74 72 65 61 6d 73 | .(remove-if-not.#'listen.streams |
| 213480 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 72 65 61 64 79 20 28 72 65 74 75 72 | ))).............(if.ready.(retur |
| 2134a0 | 6e 20 72 65 61 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 65 65 70 20 30 2e 31 | n.ready)).............(sleep.0.1 |
| 2134c0 | 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 0a 0a 28 64 65 66 | ))))))....;;;;.Compilation..(def |
| 2134e0 | 76 61 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 2a | var.*buffer-name*.nil).(defvar.* |
| 213500 | 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 29 0a 0a 28 64 65 66 75 6e 20 | buffer-start-position*)..(defun. |
| 213520 | 63 6f 6e 64 69 74 69 6f 6e 2d 73 65 76 65 72 69 74 79 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 | condition-severity.(condition).. |
| 213540 | 20 28 65 74 79 70 65 63 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 28 63 6d 70 3a 72 | .(etypecase.condition.....(cmp:r |
| 213560 | 65 64 65 66 69 6e 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 77 61 72 6e 69 6e 67 20 3a 72 65 64 65 66 | edefined-function-warning.:redef |
| 213580 | 69 6e 69 74 69 6f 6e 29 0a 20 20 20 20 28 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 20 20 20 20 20 | inition).....(style-warning..... |
| 2135a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 29 0a 20 20 20 | .............:style-warning).... |
| 2135c0 | 20 28 77 61 72 6e 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(warning....................... |
| 2135e0 | 20 3a 77 61 72 6e 69 6e 67 29 0a 20 20 20 20 28 72 65 61 64 65 72 2d 65 72 72 6f 72 20 20 20 20 | .:warning).....(reader-error.... |
| 213600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 61 64 2d 65 72 72 6f 72 29 0a 20 20 20 20 | ...............:read-error)..... |
| 213620 | 28 65 72 72 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (error.......................... |
| 213640 | 3a 65 72 72 6f 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 25 63 6f 6e 64 69 74 69 6f 6e 2d 6c 6f 63 | :error)))..(defun.%condition-loc |
| 213660 | 61 74 69 6f 6e 20 28 6f 72 69 67 69 6e 29 0a 20 20 3b 3b 20 4e 4f 54 45 3a 20 49 66 20 77 65 27 | ation.(origin)...;;.NOTE:.If.we' |
| 213680 | 72 65 20 63 6f 6d 70 69 6c 69 6e 67 20 69 6e 20 61 20 62 75 66 66 65 72 2c 20 74 68 65 20 6f 72 | re.compiling.in.a.buffer,.the.or |
| 2136a0 | 69 67 69 6e 0a 20 20 3b 3b 20 77 69 6c 6c 20 61 6c 72 65 61 64 79 20 62 65 20 73 65 74 20 75 70 | igin...;;.will.already.be.set.up |
| 2136c0 | 20 77 69 74 68 20 74 68 65 20 6f 66 66 73 65 74 20 63 6f 72 72 65 63 74 6c 79 0a 20 20 3b 3b 20 | .with.the.offset.correctly...;;. |
| 2136e0 | 64 75 65 20 74 6f 20 74 68 65 20 3a 73 6f 75 72 63 65 2d 64 65 62 75 67 20 70 61 72 61 6d 65 74 | due.to.the.:source-debug.paramet |
| 213700 | 65 72 73 20 66 72 6f 6d 0a 20 20 3b 3b 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 | ers.from...;;.swank-compile-stri |
| 213720 | 6e 67 20 28 62 65 6c 6f 77 29 2e 0a 20 20 28 6d 61 6b 65 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f | ng.(below)....(make-file-locatio |
| 213740 | 6e 0a 20 20 20 28 73 79 73 3a 66 69 6c 65 2d 73 63 6f 70 65 2d 70 61 74 68 6e 61 6d 65 0a 20 20 | n....(sys:file-scope-pathname... |
| 213760 | 20 20 28 73 79 73 3a 66 69 6c 65 2d 73 63 6f 70 65 20 6f 72 69 67 69 6e 29 29 0a 20 20 20 28 73 | ..(sys:file-scope.origin))....(s |
| 213780 | 79 73 3a 73 6f 75 72 63 65 2d 70 6f 73 2d 69 6e 66 6f 2d 66 69 6c 65 70 6f 73 20 6f 72 69 67 69 | ys:source-pos-info-filepos.origi |
| 2137a0 | 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 64 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 | n)))..(defun.condition-location. |
| 2137c0 | 28 6f 72 69 67 69 6e 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 6f 72 69 67 69 6e 0a 20 20 20 20 | (origin)...(typecase.origin..... |
| 2137e0 | 28 6e 75 6c 6c 20 28 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 22 4e 6f 20 65 | (null.(make-error-location."No.e |
| 213800 | 72 72 6f 72 20 6c 6f 63 61 74 69 6f 6e 20 61 76 61 69 6c 61 62 6c 65 22 29 29 0a 20 20 20 20 28 | rror.location.available")).....( |
| 213820 | 63 6f 6e 73 20 28 25 63 6f 6e 64 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 61 72 20 6f | cons.(%condition-location.(car.o |
| 213840 | 72 69 67 69 6e 29 29 29 0a 20 20 20 20 28 74 20 28 25 63 6f 6e 64 69 74 69 6f 6e 2d 6c 6f 63 61 | rigin))).....(t.(%condition-loca |
| 213860 | 74 69 6f 6e 20 6f 72 69 67 69 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d 63 | tion.origin))))..(defun.signal-c |
| 213880 | 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 20 6f 72 69 | ompiler-condition.(condition.ori |
| 2138a0 | 67 69 6e 29 0a 20 20 28 73 69 67 6e 61 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 | gin)...(signal.'compiler-conditi |
| 2138c0 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e | on...........:original-condition |
| 2138e0 | 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 3a 73 65 76 65 72 69 74 79 20 28 | .condition...........:severity.( |
| 213900 | 63 6f 6e 64 69 74 69 6f 6e 2d 73 65 76 65 72 69 74 79 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 | condition-severity.condition)... |
| 213920 | 20 20 20 20 20 20 20 20 3a 6d 65 73 73 61 67 65 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e | ........:message.(princ-to-strin |
| 213940 | 67 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e | g.condition)...........:location |
| 213960 | 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 6f 72 69 67 69 6e 29 29 29 0a 0a | .(condition-location.origin))).. |
| 213980 | 28 64 65 66 75 6e 20 68 61 6e 64 6c 65 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e | (defun.handle-compiler-condition |
| 2139a0 | 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 3b 3b 20 46 69 72 73 74 20 72 65 73 69 67 6e 61 6c | .(condition)...;;.First.resignal |
| 2139c0 | 20 77 61 72 6e 69 6e 67 73 2c 20 73 6f 20 74 68 61 74 20 6f 75 74 65 72 20 68 61 6e 64 6c 65 72 | .warnings,.so.that.outer.handler |
| 2139e0 | 73 20 2d 20 77 68 69 63 68 20 6d 61 79 20 63 68 6f 6f 73 65 20 74 6f 0a 20 20 3b 3b 20 6d 75 66 | s.-.which.may.choose.to...;;.muf |
| 213a00 | 66 6c 65 20 74 68 69 73 20 2d 20 67 65 74 20 61 20 63 68 61 6e 63 65 20 74 6f 20 72 75 6e 2e 0a | fle.this.-.get.a.chance.to.run.. |
| 213a20 | 20 20 28 77 68 65 6e 20 28 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 77 61 72 6e 69 6e | ..(when.(typep.condition.'warnin |
| 213a40 | 67 29 0a 20 20 20 20 28 73 69 67 6e 61 6c 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 28 73 69 | g).....(signal.condition))...(si |
| 213a60 | 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6d 70 3a 64 65 65 | gnal-compiler-condition.(cmp:dee |
| 213a80 | 6e 63 61 70 73 75 6c 61 74 65 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f | ncapsulate-compiler-condition.co |
| 213aa0 | 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ndition)........................ |
| 213ac0 | 20 20 20 20 20 20 28 63 6d 70 3a 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 6f 72 | ......(cmp:compiler-condition-or |
| 213ae0 | 69 67 69 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | igin.condition)))..(defimplement |
| 213b00 | 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b | ation.call-with-compilation-hook |
| 213b20 | 73 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 0a 20 20 20 | s.(function)...(handler-bind.... |
| 213b40 | 20 20 20 28 28 28 6f 72 20 65 72 72 6f 72 20 77 61 72 6e 69 6e 67 29 20 23 27 68 61 6e 64 6c 65 | ...(((or.error.warning).#'handle |
| 213b60 | 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 28 66 75 6e 63 61 | -compiler-condition)).....(funca |
| 213b80 | 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6b 73 74 65 6d 70 20 28 | ll.function)))..(defun.mkstemp.( |
| 213ba0 | 6e 61 6d 65 29 0a 20 20 28 65 78 74 3a 6d 6b 73 74 65 6d 70 20 23 2b 74 65 6d 70 6f 72 61 72 79 | name)...(ext:mkstemp.#+temporary |
| 213bc0 | 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 73 | -directory................(names |
| 213be0 | 74 72 69 6e 67 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 6e 61 6d 65 20 6e 61 6d 65 0a | tring.(make-pathname.:name.name. |
| 213c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 213c20 | 20 20 20 20 20 20 20 20 20 20 3a 64 65 66 61 75 6c 74 73 20 28 65 78 74 3a 74 65 6d 70 6f 72 61 | ..........:defaults.(ext:tempora |
| 213c40 | 72 79 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 | ry-directory)))................# |
| 213c60 | 2d 74 65 6d 70 6f 72 61 72 79 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 | -temporary-directory............ |
| 213c80 | 20 20 20 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 20 22 74 6d 70 3a 22 20 | ....(concatenate.'string."tmp:". |
| 213ca0 | 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e | name)))..(defimplementation.swan |
| 213cc0 | 6b 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 | k-compile-file.(input-file.outpu |
| 213ce0 | 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-file.......................... |
| 213d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 61 64 2d 70 20 65 78 74 65 72 6e 61 6c 2d 66 6f | ..............load-p.external-fo |
| 213d20 | 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rmat............................ |
| 213d40 | 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c | ............&key.policy)...(decl |
| 213d60 | 61 72 65 20 28 69 67 6e 6f 72 65 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 | are.(ignore.policy))...(multiple |
| 213d80 | 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 61 73 6c 20 77 61 72 6e 69 6e 67 73 2d 70 20 66 61 69 | -value-bind.(fasl.warnings-p.fai |
| 213da0 | 6c 75 72 65 2d 70 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d | lure-p).......(with-compilation- |
| 213dc0 | 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 69 | hooks.().........(compile-file.i |
| 213de0 | 6e 70 75 74 2d 66 69 6c 65 20 3a 6f 75 74 70 75 74 2d 66 69 6c 65 20 6f 75 74 70 75 74 2d 66 69 | nput-file.:output-file.output-fi |
| 213e00 | 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le.............................. |
| 213e20 | 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f | ....:external-format.external-fo |
| 213e40 | 72 6d 61 74 29 29 0a 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 66 61 73 6c 20 77 61 72 6e 69 6e | rmat)).......(values.fasl.warnin |
| 213e60 | 67 73 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 66 61 69 6c 75 72 65 2d 70 | gs-p...............(or.failure-p |
| 213e80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6c 6f 61 64 2d 70 0a | ...................(when.load-p. |
| 213ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6c 6f 61 64 20 66 | ....................(not.(load.f |
| 213ec0 | 61 73 6c 29 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 74 6d 70 66 69 6c 65 2d 6d 61 70 | asl)))))))..(defvar.*tmpfile-map |
| 213ee0 | 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c | *.(make-hash-table.:test.#'equal |
| 213f00 | 29 29 0a 0a 28 64 65 66 75 6e 20 6e 6f 74 65 2d 62 75 66 66 65 72 2d 74 6d 70 66 69 6c 65 20 28 | ))..(defun.note-buffer-tmpfile.( |
| 213f20 | 74 6d 70 2d 66 69 6c 65 20 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 3b 3b 20 45 58 54 3a 43 | tmp-file.buffer-name)...;;.EXT:C |
| 213f40 | 4f 4d 50 49 4c 45 44 2d 46 55 4e 43 54 49 4f 4e 2d 46 49 4c 45 20 62 65 6c 6f 77 20 77 69 6c 6c | OMPILED-FUNCTION-FILE.below.will |
| 213f60 | 20 72 65 74 75 72 6e 20 61 20 6e 61 6d 65 73 74 72 69 6e 67 2e 0a 20 20 28 6c 65 74 20 28 28 74 | .return.a.namestring....(let.((t |
| 213f80 | 6d 70 2d 6e 61 6d 65 73 74 72 69 6e 67 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e | mp-namestring.(namestring.(truen |
| 213fa0 | 61 6d 65 20 74 6d 70 2d 66 69 6c 65 29 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 | ame.tmp-file)))).....(setf.(geth |
| 213fc0 | 61 73 68 20 74 6d 70 2d 6e 61 6d 65 73 74 72 69 6e 67 20 2a 74 6d 70 66 69 6c 65 2d 6d 61 70 2a | ash.tmp-namestring.*tmpfile-map* |
| 213fe0 | 29 20 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 74 6d 70 2d 6e 61 6d 65 73 74 72 69 6e | ).buffer-name).....tmp-namestrin |
| 214000 | 67 29 29 0a 0a 28 64 65 66 75 6e 20 74 6d 70 66 69 6c 65 2d 74 6f 2d 62 75 66 66 65 72 20 28 74 | g))..(defun.tmpfile-to-buffer.(t |
| 214020 | 6d 70 2d 66 69 6c 65 29 0a 20 20 28 67 65 74 68 61 73 68 20 74 6d 70 2d 66 69 6c 65 20 2a 74 6d | mp-file)...(gethash.tmp-file.*tm |
| 214040 | 70 66 69 6c 65 2d 6d 61 70 2a 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | pfile-map*))..(defimplementation |
| 214060 | 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 26 6b | .swank-compile-string.(string.&k |
| 214080 | 65 79 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 20 6c 69 6e 65 | ey.buffer.position.filename.line |
| 2140a0 | 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f | .column.policy)...(declare.(igno |
| 2140c0 | 72 65 20 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 29 20 3b 3b 20 57 65 20 6d 61 79 20 75 73 65 | re.column.policy)).;;.We.may.use |
| 2140e0 | 20 63 6f 6c 75 6d 6e 20 69 6e 20 74 68 65 20 66 75 74 75 72 65 0a 20 20 28 77 69 74 68 2d 63 6f | .column.in.the.future...(with-co |
| 214100 | 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 62 | mpilation-hooks.().....(let.((*b |
| 214120 | 75 66 66 65 72 2d 6e 61 6d 65 2a 20 62 75 66 66 65 72 29 20 20 20 20 20 20 20 20 3b 20 66 6f 72 | uffer-name*.buffer)........;.for |
| 214140 | 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 68 6f 6f 6b 73 0a 20 20 20 20 20 20 20 20 20 20 28 2a 62 | .compilation.hooks...........(*b |
| 214160 | 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 20 70 6f 73 69 74 69 6f 6e 29 29 | uffer-start-position*.position)) |
| 214180 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 6d 70 2d 66 69 6c 65 20 28 6d 6b 73 74 65 6d 70 20 | .......(let.((tmp-file.(mkstemp. |
| 2141a0 | 22 63 6c 61 73 70 2d 73 77 61 6e 6b 2d 74 6d 70 66 69 6c 65 2d 22 29 29 0a 20 20 20 20 20 20 20 | "clasp-swank-tmpfile-"))........ |
| 2141c0 | 20 20 20 20 20 28 66 61 73 6c 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 | .....(fasl-file).............(wa |
| 2141e0 | 72 6e 69 6e 67 73 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 61 69 6c 75 72 65 2d 70 | rnings-p).............(failure-p |
| 214200 | 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 | )).........(unwind-protect...... |
| 214220 | 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 | ........(progn................(w |
| 214240 | 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 74 6d 70 2d 73 74 72 65 61 6d 20 74 6d 70 2d 66 69 | ith-open-file.(tmp-stream.tmp-fi |
| 214260 | 6c 65 20 3a 64 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 | le.:direction.:output........... |
| 214280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2142a0 | 20 20 20 20 20 20 20 20 20 20 3a 69 66 2d 65 78 69 73 74 73 20 3a 6f 76 65 72 77 72 69 74 65 29 | ..........:if-exists.:overwrite) |
| 2142c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 | ..................(write-string. |
| 2142e0 | 73 74 72 69 6e 67 20 74 6d 70 2d 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | string.tmp-stream))............. |
| 214300 | 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 66 61 73 6c 2d 66 69 | ...(multiple-value-setq.(fasl-fi |
| 214320 | 6c 65 20 77 61 72 6e 69 6e 67 73 2d 70 20 66 61 69 6c 75 72 65 2d 70 29 0a 20 20 20 20 20 20 20 | le.warnings-p.failure-p)........ |
| 214340 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 72 75 65 6e 61 6d 65 20 28 6f 72 20 66 69 | ..........(let.((truename.(or.fi |
| 214360 | 6c 65 6e 61 6d 65 20 28 6e 6f 74 65 2d 62 75 66 66 65 72 2d 74 6d 70 66 69 6c 65 20 74 6d 70 2d | lename.(note-buffer-tmpfile.tmp- |
| 214380 | 66 69 6c 65 20 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | file.buffer))))................. |
| 2143a0 | 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 74 6d 70 2d 66 69 6c 65 0a 20 20 20 20 20 20 | ...(compile-file.tmp-file....... |
| 2143c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6f 75 72 | ...........................:sour |
| 2143e0 | 63 65 2d 64 65 62 75 67 2d 70 61 74 68 6e 61 6d 65 20 28 70 61 74 68 6e 61 6d 65 20 74 72 75 65 | ce-debug-pathname.(pathname.true |
| 214400 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name)........................... |
| 214420 | 20 20 20 20 20 20 20 3b 3b 20 65 6d 61 63 73 20 6e 75 6d 62 65 72 73 20 61 72 65 20 31 2d 62 61 | .......;;.emacs.numbers.are.1-ba |
| 214440 | 73 65 64 20 69 6e 73 74 65 61 64 20 6f 66 20 30 2d 62 61 73 65 64 2c 0a 20 20 20 20 20 20 20 20 | sed.instead.of.0-based,......... |
| 214460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 6f 20 77 | .........................;;.so.w |
| 214480 | 65 20 68 61 76 65 20 74 6f 20 73 75 62 74 72 61 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.have.to.subtract.............. |
| 2144a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6f 75 72 63 65 2d 64 65 62 75 | ....................:source-debu |
| 2144c0 | 67 2d 6c 69 6e 65 6e 6f 20 28 31 2d 20 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | g-lineno.(1-.line).............. |
| 2144e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6f 75 72 63 65 2d 64 65 62 75 | ....................:source-debu |
| 214500 | 67 2d 6f 66 66 73 65 74 20 28 31 2d 20 70 6f 73 69 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 20 | g-offset.(1-.position)))))...... |
| 214520 | 20 20 20 20 20 28 77 68 65 6e 20 66 61 73 6c 2d 66 69 6c 65 20 28 6c 6f 61 64 20 66 61 73 6c 2d | .....(when.fasl-file.(load.fasl- |
| 214540 | 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 70 72 6f 62 65 2d 66 69 | file))...........(when.(probe-fi |
| 214560 | 6c 65 20 74 6d 70 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 | le.tmp-file).............(delete |
| 214580 | 2d 66 69 6c 65 20 74 6d 70 2d 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | -file.tmp-file))...........(when |
| 2145a0 | 20 66 61 73 6c 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 | .fasl-file.............(delete-f |
| 2145c0 | 69 6c 65 20 66 61 73 6c 2d 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 6e 6f 74 20 66 61 | ile.fasl-file))).........(not.fa |
| 2145e0 | 69 6c 75 72 65 2d 70 29 29 29 29 29 0a 0c 0a 3b 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f | ilure-p)))))...;;;;.Documentatio |
| 214600 | 6e 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 72 67 6c 69 73 74 20 28 6e | n..(defimplementation.arglist.(n |
| 214620 | 61 6d 65 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 61 72 67 | ame)...(multiple-value-bind.(arg |
| 214640 | 6c 69 73 74 20 66 6f 75 6e 64 70 29 0a 20 20 20 20 20 20 28 65 78 74 3a 66 75 6e 63 74 69 6f 6e | list.foundp).......(ext:function |
| 214660 | 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 20 6e 61 6d 65 29 20 20 20 20 20 3b 3b 20 55 73 65 73 20 62 | -lambda-list.name).....;;.Uses.b |
| 214680 | 63 2d 73 70 6c 69 74 0a 20 20 20 20 28 69 66 20 66 6f 75 6e 64 70 20 61 72 67 6c 69 73 74 20 3a | c-split.....(if.foundp.arglist.: |
| 2146a0 | 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | not-available)))..(defimplementa |
| 2146c0 | 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 66 29 0a 20 20 28 74 79 70 65 63 61 | tion.function-name.(f)...(typeca |
| 2146e0 | 73 65 20 66 0a 20 20 20 20 28 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 28 63 6c 6f 73 | se.f.....(generic-function.(clos |
| 214700 | 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 29 0a 20 20 20 20 28 | :generic-function-name.f)).....( |
| 214720 | 66 75 6e 63 74 69 6f 6e 20 28 65 78 74 3a 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d | function.(ext:compiled-function- |
| 214740 | 6e 61 6d 65 20 66 29 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | name.f))))..;;.FIXME.(defimpleme |
| 214760 | 6e 74 61 74 69 6f 6e 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 28 66 6f 72 6d 20 26 6f | ntation.macroexpand-all.(form.&o |
| 214780 | 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 | ptional.env)...(declare.(ignore. |
| 2147a0 | 65 6e 76 29 29 0a 20 20 28 6d 61 63 72 6f 65 78 70 61 6e 64 20 66 6f 72 6d 29 29 0a 0a 3b 3b 3b | env))...(macroexpand.form))..;;; |
| 2147c0 | 20 6d 6f 64 69 66 69 65 64 20 66 72 6f 6d 20 73 62 63 6c 2e 6c 69 73 70 0a 28 64 65 66 69 6d 70 | .modified.from.sbcl.lisp.(defimp |
| 2147e0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6c 6c 65 63 74 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 | lementation.collect-macro-forms. |
| 214800 | 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 28 | (form.&optional.environment)...( |
| 214820 | 6c 65 74 20 28 28 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 | let.((macro-forms.'()).........( |
| 214840 | 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 27 28 29 29 0a 20 20 20 20 20 20 | compiler-macro-forms.'())....... |
| 214860 | 20 20 28 66 75 6e 63 74 69 6f 6e 2d 71 75 6f 74 65 64 2d 66 6f 72 6d 73 20 27 28 29 29 29 0a 20 | ..(function-quoted-forms.'())).. |
| 214880 | 20 20 20 28 63 6d 70 3a 63 6f 64 65 2d 77 61 6c 6b 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | ...(cmp:code-walk......(lambda.( |
| 2148a0 | 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 | form.environment)........(when.( |
| 2148c0 | 61 6e 64 20 28 63 6f 6e 73 70 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | and.(consp.form)................ |
| 2148e0 | 20 20 20 28 73 79 6d 62 6f 6c 70 20 28 63 61 72 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 | ...(symbolp.(car.form)))........ |
| 214900 | 20 20 28 63 6f 6e 64 20 28 28 65 71 20 28 63 61 72 20 66 6f 72 6d 29 20 27 66 75 6e 63 74 69 6f | ..(cond.((eq.(car.form).'functio |
| 214920 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 61 64 72 20 66 | n).................(push.(cadr.f |
| 214940 | 6f 72 6d 29 20 66 75 6e 63 74 69 6f 6e 2d 71 75 6f 74 65 64 2d 66 6f 72 6d 73 29 29 0a 20 20 20 | orm).function-quoted-forms)).... |
| 214960 | 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 66 6f 72 6d 20 66 75 6e 63 74 69 | ............((member.form.functi |
| 214980 | 6f 6e 2d 71 75 6f 74 65 64 2d 66 6f 72 6d 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on-quoted-forms)................ |
| 2149a0 | 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 61 63 72 6f 2d 66 75 6e | .nil)................((macro-fun |
| 2149c0 | 63 74 69 6f 6e 20 28 63 61 72 20 66 6f 72 6d 29 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 | ction.(car.form).environment)... |
| 2149e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 6f 72 6d 20 6d 61 63 72 6f 2d 66 | ..............(push.form.macro-f |
| 214a00 | 6f 72 6d 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 65 71 20 | orms))................((not.(eq. |
| 214a20 | 66 6f 72 6d 20 28 73 79 73 3a 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 | form.(sys:compiler-macroexpand-1 |
| 214a40 | 20 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .form.environment)))............ |
| 214a60 | 20 20 20 20 20 28 70 75 73 68 20 66 6f 72 6d 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 | .....(push.form.compiler-macro-f |
| 214a80 | 6f 72 6d 73 29 29 29 29 0a 20 20 20 20 20 20 20 66 6f 72 6d 29 0a 20 20 20 20 20 66 6f 72 6d 20 | orms))))........form)......form. |
| 214aa0 | 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 6d 61 63 72 6f 2d 66 | environment).....(values.macro-f |
| 214ac0 | 6f 72 6d 73 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 29 29 29 0a 0a 0a 0a | orms.compiler-macro-forms))).... |
| 214ae0 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 73 79 | ..(defimplementation.describe-sy |
| 214b00 | 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 20 28 | mbol-for-emacs.(symbol)...(let.( |
| 214b20 | 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 66 72 6f 62 20 28 | (result.'())).....(flet.((frob.( |
| 214b40 | 74 79 70 65 20 62 6f 75 6e 64 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | type.boundp)..............(when. |
| 214b60 | 28 66 75 6e 63 61 6c 6c 20 62 6f 75 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 | (funcall.boundp.symbol)......... |
| 214b80 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 6f 63 20 28 64 65 73 63 72 69 62 65 2d 64 65 66 69 | .......(let.((doc.(describe-defi |
| 214ba0 | 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c 20 74 79 70 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | nition.symbol.type)))........... |
| 214bc0 | 20 20 20 20 20 20 20 28 73 65 74 66 20 72 65 73 75 6c 74 20 28 6c 69 73 74 2a 20 74 79 70 65 20 | .......(setf.result.(list*.type. |
| 214be0 | 64 6f 63 20 72 65 73 75 6c 74 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 66 72 6f 62 20 3a 56 41 | doc.result)))))).......(frob.:VA |
| 214c00 | 52 49 41 42 4c 45 20 23 27 62 6f 75 6e 64 70 29 0a 20 20 20 20 20 20 28 66 72 6f 62 20 3a 46 55 | RIABLE.#'boundp).......(frob.:FU |
| 214c20 | 4e 43 54 49 4f 4e 20 23 27 66 62 6f 75 6e 64 70 29 0a 20 20 20 20 20 20 28 66 72 6f 62 20 3a 43 | NCTION.#'fboundp).......(frob.:C |
| 214c40 | 4c 41 53 53 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 78 20 6e | LASS.(lambda.(x).(find-class.x.n |
| 214c60 | 69 6c 29 29 29 29 0a 20 20 20 20 72 65 73 75 6c 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | il)))).....result))..(defimpleme |
| 214c80 | 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 6e 61 6d | ntation.describe-definition.(nam |
| 214ca0 | 65 20 74 79 70 65 29 0a 20 20 28 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 28 3a 76 61 72 69 61 | e.type)...(case.type.....(:varia |
| 214cc0 | 62 6c 65 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6e 61 6d 65 20 27 76 61 72 69 61 62 6c | ble.(documentation.name.'variabl |
| 214ce0 | 65 29 29 0a 20 20 20 20 28 3a 66 75 6e 63 74 69 6f 6e 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f | e)).....(:function.(documentatio |
| 214d00 | 6e 20 6e 61 6d 65 20 27 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 28 3a 63 6c 61 73 73 20 28 | n.name.'function)).....(:class.( |
| 214d20 | 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6e 61 6d 65 20 27 63 6c 61 73 73 29 29 0a 20 20 20 20 | documentation.name.'class))..... |
| 214d40 | 28 74 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 79 | (t.nil)))..(defimplementation.ty |
| 214d60 | 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6f 72 20 28 73 | pe-specifier-p.(symbol)...(or.(s |
| 214d80 | 75 62 74 79 70 65 70 20 6e 69 6c 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 6e 6f 74 20 28 | ubtypep.nil.symbol).......(not.( |
| 214da0 | 65 71 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 72 67 6c 69 73 74 20 73 79 6d 62 6f | eq.(type-specifier-arglist.symbo |
| 214dc0 | 6c 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 29 0a 0a 3b 3b 3b 20 58 52 45 46 0a | l).:not-available))))..;;;.XREF. |
| 214de0 | 0a 23 2b 23 2e 28 73 77 61 6e 6b 2f 63 6c 61 73 70 3a 3a 63 6c 61 73 70 2d 77 69 74 68 2d 78 72 | .#+#.(swank/clasp::clasp-with-xr |
| 214e00 | 65 66 2d 70 29 0a 28 6d 61 63 72 6f 6c 65 74 20 28 28 64 65 66 78 72 65 66 20 28 6e 61 6d 65 20 | ef-p).(macrolet.((defxref.(name. |
| 214e20 | 26 6f 70 74 69 6f 6e 61 6c 20 28 66 6e 61 6d 65 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 | &optional.(fname.name))......... |
| 214e40 | 20 20 20 20 20 60 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 2c 6e 61 6d 65 20 28 | .....`(defimplementation.,name.( |
| 214e60 | 77 68 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 20 28 | what).................(let.((r.( |
| 214e80 | 2c 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 66 6e 61 6d 65 | ,(find-symbol.(symbol-name.fname |
| 214ea0 | 29 20 22 45 58 54 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )."EXT")........................ |
| 214ec0 | 20 20 20 77 68 61 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f | ...what)))...................(lo |
| 214ee0 | 6f 70 20 66 6f 72 20 28 66 6e 61 6d 65 20 2e 20 73 70 69 29 20 69 6e 20 72 0a 20 20 20 20 20 20 | op.for.(fname...spi).in.r....... |
| 214f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 | ..................collect.(list. |
| 214f20 | 66 6e 61 6d 65 20 28 74 72 61 6e 73 6c 61 74 65 2d 73 70 69 20 73 70 69 29 29 29 29 29 29 29 0a | fname.(translate-spi.spi))))))). |
| 214f40 | 20 20 28 64 65 66 78 72 65 66 20 77 68 6f 2d 63 61 6c 6c 73 29 0a 20 20 28 64 65 66 78 72 65 66 | ..(defxref.who-calls)...(defxref |
| 214f60 | 20 77 68 6f 2d 62 69 6e 64 73 29 0a 20 20 28 64 65 66 78 72 65 66 20 77 68 6f 2d 73 65 74 73 29 | .who-binds)...(defxref.who-sets) |
| 214f80 | 0a 20 20 28 64 65 66 78 72 65 66 20 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 29 0a 20 20 28 64 | ...(defxref.who-references)...(d |
| 214fa0 | 65 66 78 72 65 66 20 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 29 0a 20 20 28 64 65 66 78 | efxref.who-macroexpands)...(defx |
| 214fc0 | 72 65 66 20 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 20 77 68 6f 2d 73 70 65 63 69 61 6c 69 | ref.who-specializes.who-speciali |
| 214fe0 | 7a 65 73 2d 64 69 72 65 63 74 6c 79 29 0a 20 20 28 64 65 66 78 72 65 66 20 6c 69 73 74 2d 63 61 | zes-directly)...(defxref.list-ca |
| 215000 | 6c 6c 65 72 73 29 0a 20 20 28 64 65 66 78 72 65 66 20 6c 69 73 74 2d 63 61 6c 6c 65 65 73 29 29 | llers)...(defxref.list-callees)) |
| 215020 | 0a 0a 0c 0a 3b 3b 3b 20 44 65 62 75 67 67 69 6e 67 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 69 | ....;;;.Debugging..(defun.make-i |
| 215040 | 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 28 68 6f 6f 6b 29 0a 20 20 28 77 68 | nvoke-debugger-hook.(hook)...(wh |
| 215060 | 65 6e 20 68 6f 6f 6b 0a 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 63 6f 6e 64 69 74 69 6f 6e | en.hook.....#'(lambda.(condition |
| 215080 | 20 6f 6c 64 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 52 65 67 61 72 64 20 2a 64 65 | .old-hook).........;;.Regard.*de |
| 2150a0 | 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 69 66 20 73 65 74 20 62 79 20 75 73 65 72 2e 0a 20 20 20 | bugger-hook*.if.set.by.user..... |
| 2150c0 | 20 20 20 20 20 28 69 66 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 0a 20 20 20 20 20 20 20 | .....(if.*debugger-hook*........ |
| 2150e0 | 20 20 20 20 20 6e 69 6c 20 20 20 20 20 20 20 20 20 3b 20 64 65 63 6c 69 6e 65 2c 20 2a 44 45 42 | .....nil.........;.decline,.*DEB |
| 215100 | 55 47 47 45 52 2d 48 4f 4f 4b 2a 20 77 69 6c 6c 20 62 65 20 74 72 69 65 64 20 6e 65 78 74 2e 0a | UGGER-HOOK*.will.be.tried.next.. |
| 215120 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 68 6f 6f 6b 20 63 6f 6e 64 69 74 | ............(funcall.hook.condit |
| 215140 | 69 6f 6e 20 6f 6c 64 2d 68 6f 6f 6b 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | ion.old-hook)))))..(defimplement |
| 215160 | 61 74 69 6f 6e 20 69 6e 73 74 61 6c 6c 2d 64 65 62 75 67 67 65 72 2d 67 6c 6f 62 61 6c 6c 79 20 | ation.install-debugger-globally. |
| 215180 | 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 73 65 74 71 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f | (function)...(setq.*debugger-hoo |
| 2151a0 | 6b 2a 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 73 65 74 71 20 65 78 74 3a 2a 69 6e 76 6f 6b 65 | k*.function)...(setq.ext:*invoke |
| 2151c0 | 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 28 6d 61 6b 65 2d 69 6e 76 6f 6b 65 2d 64 65 62 | -debugger-hook*.(make-invoke-deb |
| 2151e0 | 75 67 67 65 72 2d 68 6f 6f 6b 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | ugger-hook.function)))..(defimpl |
| 215200 | 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 65 72 2d 68 6f | ementation.call-with-debugger-ho |
| 215220 | 6f 6b 20 28 68 6f 6f 6b 20 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a 64 65 62 75 67 67 65 72 | ok.(hook.fun)...(let.((*debugger |
| 215240 | 2d 68 6f 6f 6b 2a 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 28 65 78 74 3a 2a 69 6e 76 6f 6b | -hook*.hook).........(ext:*invok |
| 215260 | 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 28 6d 61 6b 65 2d 69 6e 76 6f 6b 65 2d 64 65 | e-debugger-hook*.(make-invoke-de |
| 215280 | 62 75 67 67 65 72 2d 68 6f 6f 6b 20 68 6f 6f 6b 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c | bugger-hook.hook))).....(funcall |
| 2152a0 | 20 66 75 6e 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 27 28 29 | .fun)))..(defvar.*backtrace*.'() |
| 2152c0 | 29 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 65 64 20 6f 75 74 3b 20 69 74 27 73 20 6e 6f 74 20 63 | )..;;;.Commented.out;.it's.not.c |
| 2152e0 | 6c 65 61 72 20 74 68 69 73 20 69 73 20 61 20 67 6f 6f 64 20 77 61 79 20 6f 66 20 64 6f 69 6e 67 | lear.this.is.a.good.way.of.doing |
| 215300 | 20 69 74 2e 20 49 6e 0a 3b 3b 3b 20 70 61 72 74 69 63 75 6c 61 72 20 62 65 63 61 75 73 65 20 69 | .it..In.;;;.particular.because.i |
| 215320 | 74 20 6d 61 6b 65 73 20 65 72 72 6f 72 73 20 73 74 65 6d 6d 69 6e 67 20 66 72 6f 6d 20 74 68 69 | t.makes.errors.stemming.from.thi |
| 215340 | 73 20 66 69 6c 65 20 68 61 72 64 65 72 0a 3b 3b 3b 20 74 6f 20 64 65 62 75 67 2c 20 61 6e 64 20 | s.file.harder.;;;.to.debug,.and. |
| 215360 | 67 69 76 65 6e 20 74 68 65 20 22 79 6f 75 6e 67 22 20 61 67 65 20 6f 66 20 43 4c 41 53 50 27 73 | given.the."young".age.of.CLASP's |
| 215380 | 20 73 77 61 6e 6b 20 62 61 63 6b 65 6e 64 2c 20 74 68 61 74 27 73 0a 3b 3b 3b 20 61 20 62 61 64 | .swank.backend,.that's.;;;.a.bad |
| 2153a0 | 20 69 64 65 61 2e 0a 0a 3b 3b 20 28 64 65 66 75 6e 20 69 6e 2d 73 77 61 6e 6b 2d 70 61 63 6b 61 | .idea...;;.(defun.in-swank-packa |
| 2153c0 | 67 65 2d 70 20 28 78 29 0a 3b 3b 20 20 20 28 61 6e 64 0a 3b 3b 20 20 20 20 28 73 79 6d 62 6f 6c | ge-p.(x).;;...(and.;;....(symbol |
| 2153e0 | 70 20 78 29 0a 3b 3b 20 20 20 20 28 6d 65 6d 62 65 72 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 | p.x).;;....(member.(symbol-packa |
| 215400 | 67 65 20 78 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 23 2e 28 66 69 6e | ge.x).;;............(list.#.(fin |
| 215420 | 64 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 | d-package.:swank).;;............ |
| 215440 | 20 20 20 20 20 20 23 2e 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2f 62 61 63 | ......#.(find-package.:swank/bac |
| 215460 | 6b 65 6e 64 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2e 28 69 67 6e | kend).;;..................#.(ign |
| 215480 | 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2d | ore-errors.(find-package.:swank- |
| 2154a0 | 6d 6f 70 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2e 28 69 67 6e | mop)).;;..................#.(ign |
| 2154c0 | 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2d | ore-errors.(find-package.:swank- |
| 2154e0 | 6c 6f 61 64 65 72 29 29 29 29 0a 3b 3b 20 20 20 20 74 29 29 0a 0a 3b 3b 20 28 64 65 66 75 6e 20 | loader)))).;;....t))..;;.(defun. |
| 215500 | 69 73 2d 73 77 61 6e 6b 2d 73 6f 75 72 63 65 2d 70 20 28 6e 61 6d 65 29 0a 3b 3b 20 20 20 28 73 | is-swank-source-p.(name).;;...(s |
| 215520 | 65 74 66 20 6e 61 6d 65 20 28 70 61 74 68 6e 61 6d 65 20 6e 61 6d 65 29 29 0a 3b 3b 20 20 20 28 | etf.name.(pathname.name)).;;...( |
| 215540 | 70 61 74 68 6e 61 6d 65 2d 6d 61 74 63 68 2d 70 0a 3b 3b 20 20 20 20 6e 61 6d 65 0a 3b 3b 20 20 | pathname-match-p.;;....name.;;.. |
| 215560 | 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 64 65 66 61 75 6c 74 73 20 73 77 61 6e 6b | ..(make-pathname.:defaults.swank |
| 215580 | 2d 6c 6f 61 64 65 72 3a 3a 2a 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 2a 0a 3b 3b 20 20 | -loader::*source-directory*.;;.. |
| 2155a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 61 6d 65 20 28 70 61 74 68 6e 61 6d 65 | .................:name.(pathname |
| 2155c0 | 2d 6e 61 6d 65 20 6e 61 6d 65 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -name.name).;;.................. |
| 2155e0 | 20 3a 74 79 70 65 20 28 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 20 6e 61 6d 65 29 0a 3b 3b 20 20 | .:type.(pathname-type.name).;;.. |
| 215600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 65 72 73 69 6f 6e 20 28 70 61 74 68 6e | .................:version.(pathn |
| 215620 | 61 6d 65 2d 76 65 72 73 69 6f 6e 20 6e 61 6d 65 29 29 29 29 0a 0a 3b 3b 20 28 64 65 66 75 6e 20 | ame-version.name))))..;;.(defun. |
| 215640 | 69 73 2d 69 67 6e 6f 72 61 62 6c 65 2d 66 75 6e 2d 70 20 28 78 29 0a 3b 3b 20 20 20 28 6f 72 0a | is-ignorable-fun-p.(x).;;...(or. |
| 215660 | 3b 3b 20 20 20 20 28 69 6e 2d 73 77 61 6e 6b 2d 70 61 63 6b 61 67 65 2d 70 20 28 66 72 61 6d 65 | ;;....(in-swank-package-p.(frame |
| 215680 | 2d 6e 61 6d 65 20 78 29 29 0a 3b 3b 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d | -name.x)).;;....(multiple-value- |
| 2156a0 | 62 69 6e 64 20 28 66 69 6c 65 20 70 6f 73 69 74 69 6f 6e 29 0a 3b 3b 20 20 20 20 20 20 20 20 28 | bind.(file.position).;;........( |
| 2156c0 | 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 69 3a 3a 62 63 2d 66 69 6c 65 20 28 63 61 72 20 | ignore-errors.(si::bc-file.(car. |
| 2156e0 | 78 29 29 29 0a 3b 3b 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 70 6f | x))).;;......(declare.(ignore.po |
| 215700 | 73 69 74 69 6f 6e 29 29 0a 3b 3b 20 20 20 20 20 20 28 69 66 20 66 69 6c 65 20 28 69 73 2d 73 77 | sition)).;;......(if.file.(is-sw |
| 215720 | 61 6e 6b 2d 73 6f 75 72 63 65 2d 70 20 66 69 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c | ank-source-p.file)))))..(defimpl |
| 215740 | 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 | ementation.call-with-debugging-e |
| 215760 | 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 0a 20 20 | nvironment.(debugger-loop-fn)... |
| 215780 | 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 62 75 67 67 65 72 | (declare.(type.function.debugger |
| 2157a0 | 2d 6c 6f 6f 70 2d 66 6e 29 29 0a 20 20 28 63 6c 61 73 70 2d 64 65 62 75 67 3a 77 69 74 68 2d 73 | -loop-fn))...(clasp-debug:with-s |
| 2157c0 | 74 61 63 6b 20 28 73 74 61 63 6b 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 62 61 63 6b 74 72 61 | tack.(stack).....(let.((*backtra |
| 2157e0 | 63 65 2a 20 28 63 6c 61 73 70 2d 64 65 62 75 67 3a 6c 69 73 74 2d 73 74 61 63 6b 20 73 74 61 63 | ce*.(clasp-debug:list-stack.stac |
| 215800 | 6b 29 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 64 65 62 75 67 67 65 72 2d 6c 6f 6f | k))).......(funcall.debugger-loo |
| 215820 | 70 2d 66 6e 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d | p-fn))))..(defimplementation.com |
| 215840 | 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 73 75 | pute-backtrace.(start.end)...(su |
| 215860 | 62 73 65 71 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 | bseq.*backtrace*.start.......... |
| 215880 | 20 28 61 6e 64 20 28 6e 75 6d 62 65 72 70 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .(and.(numberp.end)............. |
| 2158a0 | 20 20 20 28 6d 69 6e 20 65 6e 64 20 28 6c 65 6e 67 74 68 20 2a 62 61 63 6b 74 72 61 63 65 2a 29 | ...(min.end.(length.*backtrace*) |
| 2158c0 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 66 72 6f 6d 2d 6e 75 6d 62 65 72 20 28 | ))))..(defun.frame-from-number.( |
| 2158e0 | 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 65 6c 74 20 2a 62 61 63 6b 74 72 61 63 65 2a | frame-number)...(elt.*backtrace* |
| 215900 | 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | .frame-number))..(defimplementat |
| 215920 | 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 73 74 72 65 61 6d 29 0a 20 | ion.print-frame.(frame.stream).. |
| 215940 | 20 28 63 6c 61 73 70 2d 64 65 62 75 67 3a 70 72 69 6e 31 2d 66 72 61 6d 65 2d 63 61 6c 6c 20 66 | .(clasp-debug:prin1-frame-call.f |
| 215960 | 72 61 6d 65 20 73 74 72 65 61 6d 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 61 6e 73 6c 61 74 65 2d | rame.stream))..(defun.translate- |
| 215980 | 73 70 69 20 28 73 70 69 29 0a 20 20 28 69 66 20 73 70 69 0a 20 20 20 20 20 20 28 6c 65 74 20 28 | spi.(spi)...(if.spi.......(let.( |
| 2159a0 | 28 70 61 74 68 6e 61 6d 65 20 28 63 6c 61 73 70 2d 64 65 62 75 67 3a 63 6f 64 65 2d 73 6f 75 72 | (pathname.(clasp-debug:code-sour |
| 2159c0 | 63 65 2d 6c 69 6e 65 2d 70 61 74 68 6e 61 6d 65 20 73 70 69 29 29 29 0a 20 20 20 20 20 20 20 20 | ce-line-pathname.spi)))......... |
| 2159e0 | 28 69 66 20 70 61 74 68 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c | (if.pathname.............(make-l |
| 215a00 | 6f 63 61 74 69 6f 6e 20 28 6c 69 73 74 20 3a 66 69 6c 65 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 | ocation.(list.:file.(namestring. |
| 215a20 | 28 74 72 61 6e 73 6c 61 74 65 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 20 70 61 74 68 | (translate-logical-pathname.path |
| 215a40 | 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name)))......................... |
| 215a60 | 20 20 20 28 6c 69 73 74 20 3a 6c 69 6e 65 20 28 63 6c 61 73 70 2d 64 65 62 75 67 3a 63 6f 64 65 | ...(list.:line.(clasp-debug:code |
| 215a80 | 2d 73 6f 75 72 63 65 2d 6c 69 6e 65 2d 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 73 70 69 29 29 0a 20 | -source-line-line-number.spi)).. |
| 215aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 61 6c 69 | ..........................'(:ali |
| 215ac0 | 67 6e 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 6e | gn.t)).............nil)).......n |
| 215ae0 | 69 6c 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 73 | il))..(defimplementation.frame-s |
| 215b00 | 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 | ource-location.(frame-number)... |
| 215b20 | 28 6f 72 20 28 74 72 61 6e 73 6c 61 74 65 2d 73 70 69 0a 20 20 20 20 20 20 20 28 63 6c 61 73 70 | (or.(translate-spi........(clasp |
| 215b40 | 2d 64 65 62 75 67 3a 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 | -debug:frame-source-position.... |
| 215b60 | 20 20 20 20 20 28 66 72 61 6d 65 2d 66 72 6f 6d 2d 6e 75 6d 62 65 72 20 66 72 61 6d 65 2d 6e 75 | .....(frame-from-number.frame-nu |
| 215b80 | 6d 62 65 72 29 29 29 0a 20 20 20 20 20 20 60 28 3a 65 72 72 6f 72 20 2c 28 66 6f 72 6d 61 74 20 | mber))).......`(:error.,(format. |
| 215ba0 | 6e 69 6c 20 22 4e 6f 20 73 6f 75 72 63 65 20 66 6f 72 20 66 72 61 6d 65 3a 20 7e 61 22 20 66 72 | nil."No.source.for.frame:.~a".fr |
| 215bc0 | 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | ame-number))))..(defimplementati |
| 215be0 | 6f 6e 20 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 | on.frame-locals.(frame-number).. |
| 215c00 | 20 28 6c 6f 6f 70 20 66 6f 72 20 28 76 61 72 20 2e 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 | .(loop.for.(var...value)........ |
| 215c20 | 20 20 20 69 6e 20 28 63 6c 61 73 70 2d 64 65 62 75 67 3a 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 | ...in.(clasp-debug:frame-locals. |
| 215c40 | 28 66 72 61 6d 65 2d 66 72 6f 6d 2d 6e 75 6d 62 65 72 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 | (frame-from-number.frame-number) |
| 215c60 | 29 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 20 63 | ).........for.i.from.0.........c |
| 215c80 | 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 6e 61 6d 65 20 76 61 72 20 3a 69 64 20 69 20 3a 76 61 | ollect.(list.:name.var.:id.i.:va |
| 215ca0 | 6c 75 65 20 76 61 6c 75 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | lue.value)))..(defimplementation |
| 215cc0 | 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 76 | .frame-var-value.(frame-number.v |
| 215ce0 | 61 72 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 66 72 61 6d | ar-number)...(let*.((frame.(fram |
| 215d00 | 65 2d 66 72 6f 6d 2d 6e 75 6d 62 65 72 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 0a 20 20 20 | e-from-number.frame-number)).... |
| 215d20 | 20 20 20 20 20 20 28 6c 6f 63 61 6c 73 20 28 63 6c 61 73 70 2d 64 65 62 75 67 3a 66 72 61 6d 65 | ......(locals.(clasp-debug:frame |
| 215d40 | 2d 6c 6f 63 61 6c 73 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 63 64 72 20 28 6e 74 68 20 76 | -locals.frame))).....(cdr.(nth.v |
| 215d60 | 61 72 2d 6e 75 6d 62 65 72 20 6c 6f 63 61 6c 73 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | ar-number.locals))))..(defimplem |
| 215d80 | 65 6e 74 61 74 69 6f 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 72 61 6d 65 20 28 66 72 61 6d | entation.disassemble-frame.(fram |
| 215da0 | 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 63 6c 61 73 70 2d 64 65 62 75 67 3a 64 69 73 61 73 73 65 | e-number)...(clasp-debug:disasse |
| 215dc0 | 6d 62 6c 65 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 2d 66 72 6f 6d 2d 6e 75 6d 62 65 72 20 66 72 | mble-frame.(frame-from-number.fr |
| 215de0 | 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | ame-number)))..(defimplementatio |
| 215e00 | 6e 20 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 28 66 6f 72 6d 20 66 72 61 6d 65 2d 6e 75 6d 62 | n.eval-in-frame.(form.frame-numb |
| 215e20 | 65 72 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 66 72 61 6d 65 2d 66 72 6f 6d 2d | er)...(let*.((frame.(frame-from- |
| 215e40 | 6e 75 6d 62 65 72 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 28 65 76 61 6c | number.frame-number))).....(eval |
| 215e60 | 0a 20 20 20 20 20 60 28 6c 65 74 20 28 2c 40 28 6c 6f 6f 70 20 66 6f 72 20 28 76 61 72 20 2e 20 | ......`(let.(,@(loop.for.(var... |
| 215e80 | 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 20 | value).......................in. |
| 215ea0 | 28 63 6c 61 73 70 2d 64 65 62 75 67 3a 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 66 72 61 6d 65 29 | (clasp-debug:frame-locals.frame) |
| 215ec0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 2c | .....................collect.`(, |
| 215ee0 | 76 61 72 20 27 2c 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 2c 66 | var.',value))).........(progn.,f |
| 215f00 | 6f 72 6d 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 63 74 | orm)))))..(defimplementation.act |
| 215f20 | 69 76 61 74 65 2d 73 74 65 70 70 69 6e 67 20 28 66 72 61 6d 65 29 0a 20 20 28 64 65 63 6c 61 72 | ivate-stepping.(frame)...(declar |
| 215f40 | 65 20 28 69 67 6e 6f 72 65 20 66 72 61 6d 65 29 29 0a 20 20 28 63 6f 72 65 3a 73 65 74 2d 62 72 | e.(ignore.frame))...(core:set-br |
| 215f60 | 65 61 6b 73 74 65 70 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 6c | eakstep))..(defimplementation.sl |
| 215f80 | 64 62 2d 73 74 65 70 70 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 70 20 28 63 6f 6e 64 69 74 69 6f | db-stepper-condition-p.(conditio |
| 215fa0 | 6e 29 0a 20 20 28 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 63 6c 61 73 70 2d 64 65 62 | n)...(typep.condition.'clasp-deb |
| 215fc0 | 75 67 3a 73 74 65 70 2d 66 6f 72 6d 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | ug:step-form))..(defimplementati |
| 215fe0 | 6f 6e 20 73 6c 64 62 2d 73 74 65 70 2d 69 6e 74 6f 20 28 29 0a 20 20 28 69 6e 76 6f 6b 65 2d 72 | on.sldb-step-into.()...(invoke-r |
| 216000 | 65 73 74 61 72 74 20 27 63 6c 61 73 70 2d 64 65 62 75 67 3a 73 74 65 70 2d 69 6e 74 6f 29 29 0a | estart.'clasp-debug:step-into)). |
| 216020 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 6c 64 62 2d 73 74 65 70 2d 6e 65 | .(defimplementation.sldb-step-ne |
| 216040 | 78 74 20 28 29 0a 20 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 27 63 6c 61 73 70 2d 64 | xt.()...(invoke-restart.'clasp-d |
| 216060 | 65 62 75 67 3a 73 74 65 70 2d 6f 76 65 72 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | ebug:step-over))..(defimplementa |
| 216080 | 74 69 6f 6e 20 73 6c 64 62 2d 73 74 65 70 2d 6f 75 74 20 28 29 0a 20 20 3b 3b 20 46 49 58 4d 45 | tion.sldb-step-out.()...;;.FIXME |
| 2160a0 | 3a 20 54 68 69 73 20 73 74 6f 70 73 20 73 74 65 70 70 69 6e 67 20 65 6e 74 69 72 65 6c 79 2e 20 | :.This.stops.stepping.entirely.. |
| 2160c0 | 43 6c 61 73 70 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 73 74 65 70 20 6f 75 74 20 79 65 74 | Clasp.does.not.have.step.out.yet |
| 2160e0 | 2e 0a 20 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 27 63 6f 6e 74 69 6e 75 65 29 29 0a | ....(invoke-restart.'continue)). |
| 216100 | 0a 23 2b 63 6c 61 73 70 2d 77 6f 72 6b 69 6e 67 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | .#+clasp-working.(defimplementat |
| 216120 | 69 6f 6e 20 67 64 62 2d 69 6e 69 74 69 61 6c 2d 63 6f 6d 6d 61 6e 64 73 20 28 29 0a 20 20 3b 3b | ion.gdb-initial-commands.()...;; |
| 216140 | 20 54 68 65 73 65 20 73 69 67 6e 61 6c 73 20 61 72 65 20 75 73 65 64 20 62 79 20 74 68 65 20 47 | .These.signals.are.used.by.the.G |
| 216160 | 43 2e 0a 20 20 23 2b 6c 69 6e 75 78 20 27 28 22 68 61 6e 64 6c 65 20 53 49 47 50 57 52 20 20 6e | C....#+linux.'("handle.SIGPWR..n |
| 216180 | 6f 70 72 69 6e 74 20 6e 6f 73 74 6f 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 68 61 6e 64 | oprint.nostop"............."hand |
| 2161a0 | 6c 65 20 53 49 47 58 43 50 55 20 6e 6f 70 72 69 6e 74 20 6e 6f 73 74 6f 70 22 29 29 0a 0a 28 64 | le.SIGXCPU.noprint.nostop"))..(d |
| 2161c0 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 | efimplementation.command-line-ar |
| 2161e0 | 67 73 20 28 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6e 20 62 65 6c 6f 77 20 28 65 78 74 3a 61 | gs.()...(loop.for.n.below.(ext:a |
| 216200 | 72 67 63 29 20 63 6f 6c 6c 65 63 74 20 28 65 78 74 3a 61 72 67 76 20 6e 29 29 29 0a 0a 0c 0a 3b | rgc).collect.(ext:argv.n)))....; |
| 216220 | 3b 3b 3b 20 49 6e 73 70 65 63 74 6f 72 0a 0a 3b 3b 3b 20 46 49 58 4d 45 3a 20 57 6f 75 6c 64 20 | ;;;.Inspector..;;;.FIXME:.Would. |
| 216240 | 62 65 20 6e 69 63 65 20 69 66 20 69 74 20 77 61 73 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 69 6e | be.nice.if.it.was.possible.to.in |
| 216260 | 73 70 65 63 74 20 6f 62 6a 65 63 74 73 0a 3b 3b 3b 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 6e | spect.objects.;;;.implemented.in |
| 216280 | 20 43 2e 0a 0a 0c 0a 3b 3b 3b 3b 20 44 65 66 69 6e 69 74 69 6f 6e 73 0a 0a 28 64 65 66 75 6e 20 | .C.....;;;;.Definitions..(defun. |
| 2162a0 | 6d 61 6b 65 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 69 6c 65 20 66 69 6c 65 2d 70 6f | make-file-location.(file.file-po |
| 2162c0 | 73 69 74 69 6f 6e 29 0a 20 20 3b 3b 20 46 69 6c 65 20 70 6f 73 69 74 69 6f 6e 73 20 69 6e 20 43 | sition)...;;.File.positions.in.C |
| 2162e0 | 4c 20 73 74 61 72 74 20 61 74 20 30 2c 20 62 75 74 20 45 6d 61 63 73 27 20 62 75 66 66 65 72 20 | L.start.at.0,.but.Emacs'.buffer. |
| 216300 | 70 6f 73 69 74 69 6f 6e 73 0a 20 20 3b 3b 20 73 74 61 72 74 20 61 74 20 31 2e 20 57 65 20 73 70 | positions...;;.start.at.1..We.sp |
| 216320 | 65 63 69 66 79 20 28 3a 41 4c 49 47 4e 20 54 29 20 62 65 63 61 75 73 65 20 74 68 65 20 70 6f 73 | ecify.(:ALIGN.T).because.the.pos |
| 216340 | 69 74 69 6f 6e 73 20 63 6f 6d 6d 69 6e 67 0a 20 20 3b 3b 20 66 72 6f 6d 20 43 4c 41 53 50 20 70 | itions.comming...;;.from.CLASP.p |
| 216360 | 6f 69 6e 74 20 61 74 20 72 69 67 68 74 20 61 66 74 65 72 20 74 68 65 20 74 6f 70 6c 65 76 65 6c | oint.at.right.after.the.toplevel |
| 216380 | 20 66 6f 72 6d 20 61 70 70 65 61 72 69 6e 67 20 62 65 66 6f 72 65 0a 20 20 3b 3b 20 74 68 65 20 | .form.appearing.before...;;.the. |
| 2163a0 | 61 63 74 75 61 6c 20 74 61 72 67 65 74 20 74 6f 70 6c 65 76 65 6c 20 66 6f 72 6d 3b 20 28 3a 41 | actual.target.toplevel.form;.(:A |
| 2163c0 | 4c 49 47 4e 20 54 29 20 77 69 6c 6c 20 44 54 52 54 20 69 6e 20 74 68 61 74 20 63 61 73 65 2e 0a | LIGN.T).will.DTRT.in.that.case.. |
| 2163e0 | 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c 65 20 2c 28 6e 61 6d 65 73 | ..(make-location.`(:file.,(names |
| 216400 | 74 72 69 6e 67 20 28 74 72 61 6e 73 6c 61 74 65 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d | tring.(translate-logical-pathnam |
| 216420 | 65 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 70 6f | e.file)))..................`(:po |
| 216440 | 73 69 74 69 6f 6e 20 2c 28 31 2b 20 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 | sition.,(1+.file-position))..... |
| 216460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 61 6c 69 67 6e 20 74 29 29 29 0a 0a 28 64 65 66 | .............`(:align.t)))..(def |
| 216480 | 75 6e 20 6d 61 6b 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 74 69 6f 6e 20 28 62 75 66 66 65 72 2d | un.make-buffer-location.(buffer- |
| 2164a0 | 6e 61 6d 65 20 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 28 6f | name.start-position.&optional.(o |
| 2164c0 | 66 66 73 65 74 20 30 29 29 0a 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 62 75 | ffset.0))...(make-location.`(:bu |
| 2164e0 | 66 66 65 72 20 2c 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ffer.,buffer-name).............. |
| 216500 | 20 20 20 20 60 28 3a 6f 66 66 73 65 74 20 2c 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 20 2c 6f | ....`(:offset.,start-position.,o |
| 216520 | 66 66 73 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 61 6c 69 67 6e | ffset)..................`(:align |
| 216540 | 20 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 61 6e 73 6c 61 74 65 2d 6c 6f 63 61 74 69 6f 6e | .t)))..(defun.translate-location |
| 216560 | 20 28 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6c 69 | .(location)...(make-location.(li |
| 216580 | 73 74 20 3a 66 69 6c 65 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 61 6e 73 6c 61 74 65 2d | st.:file.(namestring.(translate- |
| 2165a0 | 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 20 28 65 78 74 3a 73 6f 75 72 63 65 2d 6c 6f 63 | logical-pathname.(ext:source-loc |
| 2165c0 | 61 74 69 6f 6e 2d 70 61 74 68 6e 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 | ation-pathname.location))))..... |
| 2165e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 70 6f 73 69 74 69 6f 6e 20 28 65 78 | .............(list.:position.(ex |
| 216600 | 74 3a 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6f 66 66 73 65 74 20 6c 6f 63 61 74 69 6f | t:source-location-offset.locatio |
| 216620 | 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 61 6c 69 67 6e 20 74 29 | n))..................'(:align.t) |
| 216640 | 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 64 73 70 65 63 20 28 6e 61 6d 65 20 6c 6f 63 61 | ))..(defun.make-dspec.(name.loca |
| 216660 | 74 69 6f 6e 29 0a 20 20 28 6c 69 73 74 2a 20 28 65 78 74 3a 73 6f 75 72 63 65 2d 6c 6f 63 61 74 | tion)...(list*.(ext:source-locat |
| 216680 | 69 6f 6e 2d 64 65 66 69 6e 65 72 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 6e | ion-definer.location)..........n |
| 2166a0 | 61 6d 65 0a 20 20 20 20 20 20 20 20 20 28 65 78 74 3a 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | ame..........(ext:source-locatio |
| 2166c0 | 6e 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 69 | n-description.location)))..(defi |
| 2166e0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 | mplementation.find-definitions.( |
| 216700 | 6e 61 6d 65 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6b 69 6e 64 20 69 6e 20 65 78 74 3a 2a 73 | name)...(loop.for.kind.in.ext:*s |
| 216720 | 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 6b 69 6e 64 73 2a 0a 20 20 20 20 20 20 20 20 66 6f | ource-location-kinds*.........fo |
| 216740 | 72 20 6c 6f 63 61 74 69 6f 6e 73 20 3d 20 28 65 78 74 3a 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 | r.locations.=.(ext:source-locati |
| 216760 | 6f 6e 20 6e 61 6d 65 20 6b 69 6e 64 29 0a 20 20 20 20 20 20 20 20 77 68 65 6e 20 6c 6f 63 61 74 | on.name.kind).........when.locat |
| 216780 | 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 6e 63 6f 6e 63 20 28 6c 6f 6f 70 20 66 6f 72 20 6c | ions...........nconc.(loop.for.l |
| 2167a0 | 6f 63 61 74 69 6f 6e 20 69 6e 20 6c 6f 63 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 | ocation.in.locations............ |
| 2167c0 | 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 28 6d 61 6b 65 2d 64 | ...........collect.(list.(make-d |
| 2167e0 | 73 70 65 63 20 6e 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | spec.name.location)............. |
| 216800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 61 6e 73 6c 61 | ........................(transla |
| 216820 | 74 65 2d 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 | te-location.location)))))..(defu |
| 216840 | 6e 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 6c 65 | n.source-location.(object)...(le |
| 216860 | 74 20 28 28 6c 6f 63 61 74 69 6f 6e 20 28 65 78 74 3a 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f | t.((location.(ext:source-locatio |
| 216880 | 6e 20 6f 62 6a 65 63 74 20 74 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 6c 6f 63 61 74 69 6f 6e | n.object.t))).....(when.location |
| 2168a0 | 0a 20 20 20 20 20 20 28 74 72 61 6e 73 6c 61 74 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 61 72 20 | .......(translate-location.(car. |
| 2168c0 | 6c 6f 63 61 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | location)))))..(defimplementatio |
| 2168e0 | 6e 20 66 69 6e 64 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 62 6a 65 63 74 29 0a | n.find-source-location.(object). |
| 216900 | 20 20 28 6f 72 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6f 62 6a 65 63 74 29 0a 20 | ..(or.(source-location.object).. |
| 216920 | 20 20 20 20 20 28 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 22 53 6f 75 72 63 | .....(make-error-location."Sourc |
| 216940 | 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 7e 53 20 6e 6f 74 20 66 6f 75 6e 64 2e 22 20 6f | e.definition.of.~S.not.found.".o |
| 216960 | 62 6a 65 63 74 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 50 72 6f 66 69 6c 69 6e 67 0a 0a 3b 3b 3b 3b | bject)))....;;;;.Profiling..;;;; |
| 216980 | 20 61 73 20 63 6c 69 73 70 20 61 6e 64 20 63 63 6c 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | .as.clisp.and.ccl..(defimplement |
| 2169a0 | 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 65 76 61 6c 20 60 28 | ation.profile.(fname)...(eval.`( |
| 2169c0 | 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 6d 6f 6e 69 74 6f 72 20 2c 66 6e 61 6d 65 29 29 29 20 | swank-monitor:monitor.,fname))). |
| 2169e0 | 20 20 20 20 20 20 20 20 3b 6d 6f 6e 69 74 6f 72 20 69 73 20 61 20 6d 61 63 72 6f 0a 0a 28 64 65 | ........;monitor.is.a.macro..(de |
| 216a00 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f | fimplementation.profiled-functio |
| 216a20 | 6e 73 20 28 29 0a 20 20 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 2a 6d 6f 6e 69 74 6f 72 65 64 | ns.()...swank-monitor:*monitored |
| 216a40 | 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | -functions*)..(defimplementation |
| 216a60 | 20 75 6e 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 65 76 61 6c 20 60 28 73 77 61 | .unprofile.(fname)...(eval.`(swa |
| 216a80 | 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 75 6e 6d 6f 6e 69 74 6f 72 20 2c 66 6e 61 6d 65 29 29 29 20 20 | nk-monitor:unmonitor.,fname))).. |
| 216aa0 | 20 20 20 20 20 3b 75 6e 6d 6f 6e 69 74 6f 72 20 69 73 20 61 20 6d 61 63 72 6f 0a 0a 28 64 65 66 | .....;unmonitor.is.a.macro..(def |
| 216ac0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c 20 28 29 0a | implementation.unprofile-all.(). |
| 216ae0 | 20 20 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 75 6e 6d 6f 6e 69 74 6f 72 29 29 0a 0a 28 64 | ..(swank-monitor:unmonitor))..(d |
| 216b00 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 20 | efimplementation.profile-report. |
| 216b20 | 28 29 0a 20 20 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 72 65 70 6f 72 74 2d 6d 6f 6e 69 74 | ()...(swank-monitor:report-monit |
| 216b40 | 6f 72 69 6e 67 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 | oring))..(defimplementation.prof |
| 216b60 | 69 6c 65 2d 72 65 73 65 74 20 28 29 0a 20 20 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 72 65 | ile-reset.()...(swank-monitor:re |
| 216b80 | 73 65 74 2d 61 6c 6c 2d 6d 6f 6e 69 74 6f 72 69 6e 67 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | set-all-monitoring))..(defimplem |
| 216ba0 | 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 20 28 70 61 63 6b 61 67 | entation.profile-package.(packag |
| 216bc0 | 65 20 63 61 6c 6c 65 72 73 2d 70 20 6d 65 74 68 6f 64 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 | e.callers-p.methods)...(declare. |
| 216be0 | 28 69 67 6e 6f 72 65 20 63 61 6c 6c 65 72 73 2d 70 20 6d 65 74 68 6f 64 73 29 29 0a 20 20 28 73 | (ignore.callers-p.methods))...(s |
| 216c00 | 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 6d 6f 6e 69 74 6f 72 2d 61 6c 6c 20 70 61 63 6b 61 67 65 | wank-monitor:monitor-all.package |
| 216c20 | 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 68 72 65 61 64 73 0a 0a 23 2b 74 68 72 65 61 64 73 0a 28 70 | ))....;;;;.Threads..#+threads.(p |
| 216c40 | 72 6f 67 6e 0a 20 20 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 | rogn...(defvar.*thread-id-counte |
| 216c60 | 72 2a 20 30 29 0a 0a 20 20 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 74 68 72 65 61 64 2d 69 | r*.0)....(defparameter.*thread-i |
| 216c80 | 64 2d 6d 61 70 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 0a 20 20 28 64 65 | d-map*.(make-hash-table))....(de |
| 216ca0 | 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2d 6c 6f 63 6b 2a 0a 20 20 20 20 28 6d | fvar.*thread-id-map-lock*.....(m |
| 216cc0 | 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 74 68 72 65 61 64 20 69 64 20 6d 61 70 | p:make-lock.:name."thread.id.map |
| 216ce0 | 20 6c 6f 63 6b 22 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 | .lock"))....(defimplementation.s |
| 216d00 | 70 61 77 6e 20 28 66 6e 20 26 6b 65 79 20 6e 61 6d 65 29 0a 20 20 20 20 28 6d 70 3a 70 72 6f 63 | pawn.(fn.&key.name).....(mp:proc |
| 216d20 | 65 73 73 2d 72 75 6e 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 66 6e 29 29 0a 0a 20 20 28 64 | ess-run-function.name.fn))....(d |
| 216d40 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 20 28 74 61 72 67 | efimplementation.thread-id.(targ |
| 216d60 | 65 74 2d 74 68 72 65 61 64 29 0a 20 20 20 20 28 62 6c 6f 63 6b 20 74 68 72 65 61 64 2d 69 64 0a | et-thread).....(block.thread-id. |
| 216d80 | 20 20 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 74 68 72 65 61 64 2d 69 64 2d | ......(mp:with-lock.(*thread-id- |
| 216da0 | 6d 61 70 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 44 6f 65 73 20 54 41 52 47 45 | map-lock*).........;;.Does.TARGE |
| 216dc0 | 54 2d 54 48 52 45 41 44 20 68 61 76 65 20 61 6e 20 69 64 20 61 6c 72 65 61 64 79 3f 0a 20 20 20 | T-THREAD.have.an.id.already?.... |
| 216de0 | 20 20 20 20 20 28 6d 61 70 68 61 73 68 20 28 6c 61 6d 62 64 61 20 28 69 64 20 74 68 72 65 61 64 | .....(maphash.(lambda.(id.thread |
| 216e00 | 2d 70 6f 69 6e 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | -pointer)....................(le |
| 216e20 | 74 20 28 28 74 68 72 65 61 64 20 28 65 78 74 3a 77 65 61 6b 2d 70 6f 69 6e 74 65 72 2d 76 61 6c | t.((thread.(ext:weak-pointer-val |
| 216e40 | 75 65 20 74 68 72 65 61 64 2d 70 6f 69 6e 74 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ue.thread-pointer)))............ |
| 216e60 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 74 68 72 65 61 64 29 0a 20 20 | ..........(cond.((not.thread)... |
| 216e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 68 61 | ..........................(remha |
| 216ea0 | 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 29 29 0a 20 20 20 20 20 20 20 20 | sh.id.*thread-id-map*))......... |
| 216ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 74 68 72 65 61 64 20 74 | ...................((eq.thread.t |
| 216ee0 | 61 72 67 65 74 2d 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | arget-thread)................... |
| 216f00 | 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 74 68 72 65 61 64 2d 69 64 | ..........(return-from.thread-id |
| 216f20 | 20 69 64 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 74 68 72 65 61 | .id)))))..................*threa |
| 216f40 | 64 2d 69 64 2d 6d 61 70 2a 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 54 41 52 47 45 54 2d 54 48 52 | d-id-map*).........;;.TARGET-THR |
| 216f60 | 45 41 44 20 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 2a 54 48 52 45 41 44 2d 49 44 2d 4d 41 50 2a | EAD.not.found.in.*THREAD-ID-MAP* |
| 216f80 | 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 64 20 28 69 6e 63 66 20 2a 74 68 72 65 61 64 | .........(let.((id.(incf.*thread |
| 216fa0 | 2d 69 64 2d 63 6f 75 6e 74 65 72 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 | -id-counter*))...............(th |
| 216fc0 | 72 65 61 64 2d 70 6f 69 6e 74 65 72 20 28 65 78 74 3a 6d 61 6b 65 2d 77 65 61 6b 2d 70 6f 69 6e | read-pointer.(ext:make-weak-poin |
| 216fe0 | 74 65 72 20 74 61 72 67 65 74 2d 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | ter.target-thread)))...........( |
| 217000 | 73 65 74 66 20 28 67 65 74 68 61 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a | setf.(gethash.id.*thread-id-map* |
| 217020 | 29 20 74 68 72 65 61 64 2d 70 6f 69 6e 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 69 64 29 29 | ).thread-pointer)...........id)) |
| 217040 | 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 74 68 | ))....(defimplementation.find-th |
| 217060 | 72 65 61 64 20 28 69 64 29 0a 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 74 68 | read.(id).....(mp:with-lock.(*th |
| 217080 | 72 65 61 64 2d 69 64 2d 6d 61 70 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 | read-id-map-lock*).......(let*.( |
| 2170a0 | 28 74 68 72 65 61 64 2d 70 74 72 20 28 67 65 74 68 61 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d | (thread-ptr.(gethash.id.*thread- |
| 2170c0 | 69 64 2d 6d 61 70 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 20 28 | id-map*))..............(thread.( |
| 2170e0 | 61 6e 64 20 74 68 72 65 61 64 2d 70 74 72 20 28 65 78 74 3a 77 65 61 6b 2d 70 6f 69 6e 74 65 72 | and.thread-ptr.(ext:weak-pointer |
| 217100 | 2d 76 61 6c 75 65 20 74 68 72 65 61 64 2d 70 74 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 | -value.thread-ptr)))).........(u |
| 217120 | 6e 6c 65 73 73 20 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 68 61 73 68 20 | nless.thread...........(remhash. |
| 217140 | 69 64 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 29 29 0a 20 20 20 20 20 20 20 20 74 68 72 | id.*thread-id-map*)).........thr |
| 217160 | 65 61 64 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 | ead)))....(defimplementation.thr |
| 217180 | 65 61 64 2d 6e 61 6d 65 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 | ead-name.(thread).....(mp:proces |
| 2171a0 | 73 2d 6e 61 6d 65 20 74 68 72 65 61 64 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 | s-name.thread))....(defimplement |
| 2171c0 | 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 73 74 61 74 75 73 20 28 74 68 72 65 61 64 29 0a 20 20 20 | ation.thread-status.(thread).... |
| 2171e0 | 20 28 69 66 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 61 63 74 69 76 65 2d 70 20 74 68 72 65 61 64 | .(if.(mp:process-active-p.thread |
| 217200 | 29 0a 20 20 20 20 20 20 20 20 22 52 55 4e 4e 49 4e 47 22 0a 20 20 20 20 20 20 20 20 22 53 54 4f | )........."RUNNING"........."STO |
| 217220 | 50 50 45 44 22 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 | PPED"))....(defimplementation.ma |
| 217240 | 6b 65 2d 6c 6f 63 6b 20 28 26 6b 65 79 20 6e 61 6d 65 29 0a 20 20 20 20 28 6d 70 3a 6d 61 6b 65 | ke-lock.(&key.name).....(mp:make |
| 217260 | 2d 72 65 63 75 72 73 69 76 65 2d 6d 75 74 65 78 20 6e 61 6d 65 29 29 0a 0a 20 20 28 64 65 66 69 | -recursive-mutex.name))....(defi |
| 217280 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c | mplementation.call-with-lock-hel |
| 2172a0 | 64 20 28 6c 6f 63 6b 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 | d.(lock.function).....(declare.( |
| 2172c0 | 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 28 6d 70 | type.function.function)).....(mp |
| 2172e0 | 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6c 6f 63 6b 29 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 | :with-lock.(lock).(funcall.funct |
| 217300 | 69 6f 6e 29 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 75 72 | ion)))....(defimplementation.cur |
| 217320 | 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 20 20 6d 70 3a 2a 63 75 72 72 65 6e 74 2d 70 | rent-thread.().....mp:*current-p |
| 217340 | 72 6f 63 65 73 73 2a 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 | rocess*)....(defimplementation.a |
| 217360 | 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 20 20 28 6d 70 3a 61 6c 6c 2d 70 72 6f 63 65 73 | ll-threads.().....(mp:all-proces |
| 217380 | 73 65 73 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 74 65 | ses))....(defimplementation.inte |
| 2173a0 | 72 72 75 70 74 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 20 66 6e 29 0a 20 20 20 20 28 6d 70 | rrupt-thread.(thread.fn).....(mp |
| 2173c0 | 3a 69 6e 74 65 72 72 75 70 74 2d 70 72 6f 63 65 73 73 20 74 68 72 65 61 64 20 66 6e 29 29 0a 0a | :interrupt-process.thread.fn)).. |
| 2173e0 | 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6b 69 6c 6c 2d 74 68 72 65 61 64 | ..(defimplementation.kill-thread |
| 217400 | 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 6b 69 6c 6c 20 74 | .(thread).....(mp:process-kill.t |
| 217420 | 68 72 65 61 64 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 | hread))....(defimplementation.th |
| 217440 | 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 6d 70 3a 70 72 | read-alive-p.(thread).....(mp:pr |
| 217460 | 6f 63 65 73 73 2d 61 63 74 69 76 65 2d 70 20 74 68 72 65 61 64 29 29 0a 0a 20 20 28 64 65 66 76 | ocess-active-p.thread))....(defv |
| 217480 | 61 72 20 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 | ar.*mailbox-lock*.(mp:make-lock. |
| 2174a0 | 3a 6e 61 6d 65 20 22 6d 61 69 6c 62 6f 78 20 6c 6f 63 6b 22 29 29 0a 20 20 28 64 65 66 76 61 72 | :name."mailbox.lock"))...(defvar |
| 2174c0 | 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 20 28 6c 69 73 74 29 29 0a 20 20 28 64 65 63 6c 61 69 6d 20 | .*mailboxes*.(list))...(declaim. |
| 2174e0 | 28 74 79 70 65 20 6c 69 73 74 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 29 29 0a 0a 20 20 28 64 65 66 | (type.list.*mailboxes*))....(def |
| 217500 | 73 74 72 75 63 74 20 28 6d 61 69 6c 62 6f 78 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 6d 61 69 6c | struct.(mailbox.(:conc-name.mail |
| 217520 | 62 6f 78 2e 29 29 0a 20 20 20 20 74 68 72 65 61 64 0a 20 20 20 20 28 6d 75 74 65 78 20 28 6d 70 | box.)).....thread.....(mutex.(mp |
| 217540 | 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 53 4c 49 4d 45 4c 43 4b 22 29 29 0a 20 20 | :make-lock.:name."SLIMELCK"))... |
| 217560 | 20 20 28 63 76 61 72 20 20 28 6d 70 3a 6d 61 6b 65 2d 63 6f 6e 64 69 74 69 6f 6e 2d 76 61 72 69 | ..(cvar..(mp:make-condition-vari |
| 217580 | 61 62 6c 65 29 29 0a 20 20 20 20 28 71 75 65 75 65 20 27 28 29 20 3a 74 79 70 65 20 6c 69 73 74 | able)).....(queue.'().:type.list |
| 2175a0 | 29 29 0a 0a 20 20 28 64 65 66 75 6e 20 6d 61 69 6c 62 6f 78 20 28 74 68 72 65 61 64 29 0a 20 20 | ))....(defun.mailbox.(thread)... |
| 2175c0 | 20 20 22 52 65 74 75 72 6e 20 54 48 52 45 41 44 27 73 20 6d 61 69 6c 62 6f 78 2e 22 0a 20 20 20 | .."Return.THREAD's.mailbox.".... |
| 2175e0 | 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 29 0a | .(mp:with-lock.(*mailbox-lock*). |
| 217600 | 20 20 20 20 20 20 28 6f 72 20 28 66 69 6e 64 20 74 68 72 65 61 64 20 2a 6d 61 69 6c 62 6f 78 65 | ......(or.(find.thread.*mailboxe |
| 217620 | 73 2a 20 3a 6b 65 79 20 23 27 6d 61 69 6c 62 6f 78 2e 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 | s*.:key.#'mailbox.thread)....... |
| 217640 | 20 20 20 20 28 6c 65 74 20 28 28 6d 62 20 28 6d 61 6b 65 2d 6d 61 69 6c 62 6f 78 20 3a 74 68 72 | ....(let.((mb.(make-mailbox.:thr |
| 217660 | 65 61 64 20 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 | ead.thread))).............(push. |
| 217680 | 6d 62 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 62 29 29 | mb.*mailboxes*).............mb)) |
| 2176a0 | 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 61 6b 65 2d 74 68 | ))....(defimplementation.wake-th |
| 2176c0 | 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 | read.(thread).....(let*.((mbox.( |
| 2176e0 | 6d 61 69 6c 62 6f 78 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 74 | mailbox.thread))............(mut |
| 217700 | 65 78 20 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 29 0a 20 20 20 20 20 20 | ex.(mailbox.mutex.mbox)))....... |
| 217720 | 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 20 20 20 28 6d | (mp:with-lock.(mutex).........(m |
| 217740 | 70 3a 63 6f 6e 64 69 74 69 6f 6e 2d 76 61 72 69 61 62 6c 65 2d 62 72 6f 61 64 63 61 73 74 20 28 | p:condition-variable-broadcast.( |
| 217760 | 6d 61 69 6c 62 6f 78 2e 63 76 61 72 20 6d 62 6f 78 29 29 29 29 29 0a 20 20 0a 20 20 28 64 65 66 | mailbox.cvar.mbox)))))......(def |
| 217780 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 6e 64 20 28 74 68 72 65 61 64 20 6d 65 73 73 | implementation.send.(thread.mess |
| 2177a0 | 61 67 65 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 74 | age).....(let*.((mbox.(mailbox.t |
| 2177c0 | 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 74 65 78 20 28 6d 61 69 6c 62 | hread))............(mutex.(mailb |
| 2177e0 | 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 29 0a 20 20 20 20 20 20 28 6d 70 3a 77 69 74 68 2d | ox.mutex.mbox))).......(mp:with- |
| 217800 | 6c 6f 63 6b 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c | lock.(mutex).........(setf.(mail |
| 217820 | 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e | box.queue.mbox)...............(n |
| 217840 | 63 6f 6e 63 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6c 69 73 74 20 | conc.(mailbox.queue.mbox).(list. |
| 217860 | 6d 65 73 73 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 6d 70 3a 63 6f 6e 64 69 74 69 6f 6e | message))).........(mp:condition |
| 217880 | 2d 76 61 72 69 61 62 6c 65 2d 62 72 6f 61 64 63 61 73 74 20 28 6d 61 69 6c 62 6f 78 2e 63 76 61 | -variable-broadcast.(mailbox.cva |
| 2178a0 | 72 20 6d 62 6f 78 29 29 29 29 29 0a 0a 20 20 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | r.mbox))))).......(defimplementa |
| 2178c0 | 74 69 6f 6e 20 72 65 63 65 69 76 65 2d 69 66 20 28 74 65 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 | tion.receive-if.(test.&optional. |
| 2178e0 | 74 69 6d 65 6f 75 74 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 | timeout).....(let*.((mbox.(mailb |
| 217900 | 6f 78 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ox.(current-thread)))........... |
| 217920 | 20 28 6d 75 74 65 78 20 28 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 29 0a 20 | .(mutex.(mailbox.mutex.mbox))).. |
| 217940 | 20 20 20 20 20 28 61 73 73 65 72 74 20 28 6f 72 20 28 6e 6f 74 20 74 69 6d 65 6f 75 74 29 20 28 | .....(assert.(or.(not.timeout).( |
| 217960 | 65 71 20 74 69 6d 65 6f 75 74 20 74 29 29 29 0a 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 | eq.timeout.t))).......(loop..... |
| 217980 | 20 20 20 20 20 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 | .....(check-slime-interrupts)... |
| 2179a0 | 20 20 20 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6d 75 74 65 78 29 0a 20 20 20 | .......(mp:with-lock.(mutex).... |
| 2179c0 | 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 71 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 | ........(let*.((q.(mailbox.queue |
| 2179e0 | 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 20 | .mbox))...................(tail. |
| 217a00 | 28 6d 65 6d 62 65 72 2d 69 66 20 74 65 73 74 20 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (member-if.test.q)))............ |
| 217a20 | 20 20 28 77 68 65 6e 20 74 61 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | ..(when.tail................(set |
| 217a40 | 66 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 6e 63 6f 6e 63 20 28 6c | f.(mailbox.queue.mbox).(nconc.(l |
| 217a60 | 64 69 66 66 20 71 20 74 61 69 6c 29 20 28 63 64 72 20 74 61 69 6c 29 29 29 0a 20 20 20 20 20 20 | diff.q.tail).(cdr.tail)))....... |
| 217a80 | 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 63 61 72 20 74 61 69 6c 29 29 29 29 0a 20 | .........(return.(car.tail)))).. |
| 217aa0 | 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 20 28 | ..........(when.(eq.timeout.t).( |
| 217ac0 | 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 74 29 29 29 20 0a 20 20 20 20 20 20 20 | return.(values.nil.t)))......... |
| 217ae0 | 20 20 20 20 28 6d 70 3a 63 6f 6e 64 69 74 69 6f 6e 2d 76 61 72 69 61 62 6c 65 2d 77 61 69 74 20 | ....(mp:condition-variable-wait. |
| 217b00 | 28 6d 61 69 6c 62 6f 78 2e 63 76 61 72 20 6d 62 6f 78 29 20 6d 75 74 65 78 29 20 3b 20 74 69 6d | (mailbox.cvar.mbox).mutex).;.tim |
| 217b20 | 65 64 77 61 69 74 20 30 2e 32 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 79 73 3a 63 68 65 63 6b | edwait.0.2............(sys:check |
| 217b40 | 2d 70 65 6e 64 69 6e 67 2d 69 6e 74 65 72 72 75 70 74 73 29 29 29 29 29 0a 0a 20 20 29 20 3b 20 | -pending-interrupts)))))....).;. |
| 217b60 | 23 2b 74 68 72 65 61 64 73 20 28 70 72 6f 67 6e 20 2e 2e 2e 0a 0a 0a 28 64 65 66 6d 65 74 68 6f | #+threads.(progn.......(defmetho |
| 217b80 | 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 62 6a 65 63 74 20 73 79 73 3a 63 78 78 | d.emacs-inspect.((object.sys:cxx |
| 217ba0 | 2d 6f 62 6a 65 63 74 29 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 63 6f 64 65 64 20 28 73 79 73 3a | -object))...(let.((encoded.(sys: |
| 217bc0 | 65 6e 63 6f 64 65 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 | encode.object))).....(loop.for.( |
| 217be0 | 6b 65 79 20 2e 20 76 61 6c 75 65 29 20 69 6e 20 65 6e 63 6f 64 65 64 0a 20 20 20 20 20 20 20 61 | key...value).in.encoded........a |
| 217c00 | 70 70 65 6e 64 20 28 6c 69 73 74 20 28 73 74 72 69 6e 67 20 6b 65 79 29 20 22 3a 20 22 20 28 6c | ppend.(list.(string.key).":.".(l |
| 217c20 | 69 73 74 20 3a 76 61 6c 75 65 20 76 61 6c 75 65 29 20 28 6c 69 73 74 20 3a 6e 65 77 6c 69 6e 65 | ist.:value.value).(list.:newline |
| 217c40 | 29 29 29 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 | )))))..(defmethod.emacs-inspect. |
| 217c60 | 28 28 6f 62 6a 65 63 74 20 73 79 73 3a 76 61 73 6c 69 73 74 29 29 0a 20 20 28 65 6d 61 63 73 2d | ((object.sys:vaslist))...(emacs- |
| 217c80 | 69 6e 73 70 65 63 74 20 28 73 79 73 3a 6c 69 73 74 2d 66 72 6f 6d 2d 76 61 73 6c 69 73 74 20 6f | inspect.(sys:list-from-vaslist.o |
| 217ca0 | 62 6a 65 63 74 29 29 29 0a 0a 3b 3b 3b 20 50 61 63 6b 61 67 65 73 0a 0a 23 2b 70 61 63 6b 61 67 | bject)))..;;;.Packages..#+packag |
| 217cc0 | 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | e-local-nicknames.(defimplementa |
| 217ce0 | 74 69 6f 6e 20 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 20 28 70 61 | tion.package-local-nicknames.(pa |
| 217d00 | 63 6b 61 67 65 29 0a 20 20 28 65 78 74 3a 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b | ckage)...(ext:package-local-nick |
| 217d20 | 6e 61 6d 65 73 20 70 61 63 6b 61 67 65 29 29 0a 0a 3b 3b 3b 20 46 6c 6f 61 74 69 6e 67 20 70 6f | names.package))..;;;.Floating.po |
| 217d40 | 69 6e 74 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 6c 6f 61 74 2d 6e 61 | int..(defimplementation.float-na |
| 217d60 | 6e 2d 70 20 28 66 6c 6f 61 74 29 0a 20 20 28 65 78 74 3a 66 6c 6f 61 74 2d 6e 61 6e 2d 70 20 66 | n-p.(float)...(ext:float-nan-p.f |
| 217d80 | 6c 6f 61 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 6c 6f 61 74 | loat))..(defimplementation.float |
| 217da0 | 2d 69 6e 66 69 6e 69 74 79 2d 70 20 28 66 6c 6f 61 74 29 0a 20 20 28 65 78 74 3a 66 6c 6f 61 74 | -infinity-p.(float)...(ext:float |
| 217dc0 | 2d 69 6e 66 69 6e 69 74 79 2d 70 20 66 6c 6f 61 74 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 | -infinity-p.float))............. |
| 217de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 217e00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 6d 61 74 63 68 2e 6c 69 73 70 00 00 00 00 00 | slime-2.31/swank/match.lisp..... |
| 217e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 217e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 217e60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 217e80 | 30 30 32 31 34 37 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 33 32 35 00 20 30 00 00 00 | 0021472.00000000000.014325..0... |
| 217ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 217ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 217ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 217f00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 217f20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 217f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 217f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 217f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 217fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 217fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 217fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 218000 | 3b 3b 0a 3b 3b 20 20 53 45 4c 45 43 54 2d 4d 41 54 43 48 20 6d 61 63 72 6f 20 28 61 6e 64 20 49 | ;;.;;..SELECT-MATCH.macro.(and.I |
| 218020 | 4e 20 6d 61 63 72 6f 29 0a 3b 3b 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 31 39 39 30 20 20 20 | N.macro).;;.;;.Copyright.1990... |
| 218040 | 53 74 65 70 68 65 6e 20 41 64 61 6d 73 0a 3b 3b 0a 3b 3b 20 59 6f 75 20 61 72 65 20 66 72 65 65 | Stephen.Adams.;;.;;.You.are.free |
| 218060 | 20 74 6f 20 63 6f 70 79 2c 20 64 69 73 74 72 69 62 75 74 65 20 61 6e 64 20 6d 61 6b 65 20 64 65 | .to.copy,.distribute.and.make.de |
| 218080 | 72 69 76 61 74 69 76 65 20 77 6f 72 6b 73 20 6f 66 20 74 68 69 73 0a 3b 3b 20 73 6f 75 72 63 65 | rivative.works.of.this.;;.source |
| 2180a0 | 20 70 72 6f 76 69 64 65 64 20 74 68 61 74 20 74 68 69 73 20 63 6f 70 79 72 69 67 68 74 20 6e 6f | .provided.that.this.copyright.no |
| 2180c0 | 74 69 63 65 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 6e 65 61 72 20 74 68 65 0a 3b 3b 20 62 65 | tice.is.displayed.near.the.;;.be |
| 2180e0 | 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 20 20 4e 6f 20 6c 69 61 62 69 6c 69 | ginning.of.the.file...No.liabili |
| 218100 | 74 79 20 69 73 20 61 63 63 65 70 74 65 64 20 66 6f 72 20 74 68 65 0a 3b 3b 20 63 6f 72 72 65 63 | ty.is.accepted.for.the.;;.correc |
| 218120 | 74 6e 65 73 73 20 6f 72 20 70 65 72 66 6f 72 6d 61 6e 63 65 20 6f 66 20 74 68 65 20 63 6f 64 65 | tness.or.performance.of.the.code |
| 218140 | 2e 20 20 49 66 20 79 6f 75 20 6d 6f 64 69 66 79 20 74 68 65 20 63 6f 64 65 0a 3b 3b 20 70 6c 65 | ...If.you.modify.the.code.;;.ple |
| 218160 | 61 73 65 20 69 6e 64 69 63 61 74 65 20 74 68 69 73 20 66 61 63 74 20 62 6f 74 68 20 61 74 20 74 | ase.indicate.this.fact.both.at.t |
| 218180 | 68 65 20 70 6c 61 63 65 20 6f 66 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 61 6e 64 20 69 6e 0a | he.place.of.modification.and.in. |
| 2181a0 | 3b 3b 20 74 68 69 73 20 63 6f 70 79 72 69 67 68 74 20 6d 65 73 73 61 67 65 2e 0a 3b 3b 0a 3b 3b | ;;.this.copyright.message..;;.;; |
| 2181c0 | 20 20 20 53 74 65 70 68 65 6e 20 41 64 61 6d 73 0a 3b 3b 20 20 20 44 65 70 61 72 74 6d 65 6e 74 | ...Stephen.Adams.;;...Department |
| 2181e0 | 20 6f 66 20 45 6c 65 63 74 72 6f 6e 69 63 73 20 61 6e 64 20 43 6f 6d 70 75 74 65 72 20 53 63 69 | .of.Electronics.and.Computer.Sci |
| 218200 | 65 6e 63 65 0a 3b 3b 20 20 20 55 6e 69 76 65 72 73 69 74 79 20 6f 66 20 53 6f 75 74 68 61 6d 70 | ence.;;...University.of.Southamp |
| 218220 | 74 6f 6e 0a 3b 3b 20 20 20 53 4f 39 20 35 4e 48 2c 20 55 4b 0a 3b 3b 0a 3b 3b 20 73 72 61 40 65 | ton.;;...SO9.5NH,.UK.;;.;;.sra@e |
| 218240 | 63 73 2e 73 6f 74 6f 6e 2e 61 63 2e 75 6b 0a 3b 3b 0a 0a 3b 3b 0a 3b 3b 20 20 53 79 6e 6f 70 73 | cs.soton.ac.uk.;;..;;.;;..Synops |
| 218260 | 69 73 3a 0a 3b 3b 0a 3b 3b 20 20 28 73 65 6c 65 63 74 2d 6d 61 74 63 68 20 65 78 70 72 65 73 73 | is:.;;.;;..(select-match.express |
| 218280 | 69 6f 6e 0a 3b 3b 20 20 20 20 20 20 28 70 61 74 74 65 72 6e 20 20 61 63 74 69 6f 6e 2b 29 2a 29 | ion.;;......(pattern..action+)*) |
| 2182a0 | 0a 3b 3b 0a 3b 3b 20 20 20 20 20 20 2d 2d 2d 20 6f 72 20 2d 2d 2d 0a 3b 3b 0a 3b 3b 20 20 28 73 | .;;.;;......---.or.---.;;.;;..(s |
| 2182c0 | 65 6c 65 63 74 2d 6d 61 74 63 68 20 65 78 70 72 65 73 73 69 6f 6e 0a 3b 3b 20 20 20 20 20 20 70 | elect-match.expression.;;......p |
| 2182e0 | 61 74 74 65 72 6e 20 3d 3e 20 65 78 70 72 65 73 73 69 6f 6e 0a 3b 3b 20 20 20 20 20 20 70 61 74 | attern.=>.expression.;;......pat |
| 218300 | 74 65 72 6e 20 3d 3e 20 65 78 70 72 65 73 73 69 6f 6e 0a 3b 3b 20 20 20 20 20 20 2e 2e 2e 29 0a | tern.=>.expression.;;.........). |
| 218320 | 3b 3b 0a 3b 3b 20 20 70 61 74 74 65 72 6e 20 2d 3e 20 20 63 6f 6e 73 74 61 6e 74 09 09 3b 65 67 | ;;.;;..pattern.->..constant..;eg |
| 218340 | 73 20 20 31 2c 20 23 5c 78 2c 20 23 63 28 31 2e 30 20 31 2e 31 29 0a 3b 3b 20 20 20 20 20 20 20 | s..1,.#\x,.#c(1.0.1.1).;;....... |
| 218360 | 20 20 20 7c 20 20 20 73 79 6d 62 6f 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | ...|...symbol..................; |
| 218380 | 6d 61 74 63 68 65 73 20 61 6e 79 74 68 69 6e 67 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 7c 20 20 | matches.anything.;;..........|.. |
| 2183a0 | 20 27 61 6e 79 74 68 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 6d 75 73 74 20 62 | .'anything...............;must.b |
| 2183c0 | 65 20 45 51 55 41 4c 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 7c 20 20 20 28 70 61 74 74 65 72 6e | e.EQUAL.;;..........|...(pattern |
| 2183e0 | 20 3d 20 70 61 74 74 65 72 6e 29 20 20 20 20 20 3b 62 6f 74 68 20 70 61 74 74 65 72 6e 73 20 6d | .=.pattern).....;both.patterns.m |
| 218400 | 75 73 74 20 6d 61 74 63 68 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 7c 20 20 20 28 23 27 66 75 6e | ust.match.;;..........|...(#'fun |
| 218420 | 63 74 69 6f 6e 20 70 61 74 74 65 72 6e 29 20 20 20 20 3b 70 72 65 64 69 63 61 74 65 20 74 65 73 | ction.pattern)....;predicate.tes |
| 218440 | 74 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 7c 20 20 20 28 70 61 74 74 65 72 6e 20 2e 20 70 61 74 | t.;;..........|...(pattern...pat |
| 218460 | 74 65 72 6e 29 09 3b 63 6f 6e 73 20 63 65 6c 6c 0a 3b 3b 0a 0a 3b 3b 20 20 45 78 61 6d 70 6c 65 | tern).;cons.cell.;;..;;..Example |
| 218480 | 0a 3b 3b 0a 3b 3b 20 20 28 73 65 6c 65 63 74 2d 6d 61 74 63 68 20 69 74 65 6d 0a 3b 3b 20 20 20 | .;;.;;..(select-match.item.;;... |
| 2184a0 | 20 20 20 28 28 27 69 66 20 65 31 20 65 32 20 65 33 29 20 27 69 66 2d 74 68 65 6e 2d 65 6c 73 65 | ...(('if.e1.e2.e3).'if-then-else |
| 2184c0 | 29 09 09 09 09 3b 28 31 29 0a 3b 3b 20 20 20 20 20 20 28 28 23 27 6f 64 64 70 20 6b 29 20 20 20 | )....;(1).;;......((#'oddp.k)... |
| 2184e0 | 20 20 27 61 6e 2d 6f 64 64 2d 69 6e 74 65 67 65 72 29 09 09 09 3b 28 32 29 0a 3b 3b 20 20 20 20 | ..'an-odd-integer)...;(2).;;.... |
| 218500 | 20 20 28 28 28 23 27 74 72 65 65 70 20 74 72 65 65 29 20 3d 20 28 68 64 20 2e 20 74 6c 29 29 20 | ..(((#'treep.tree).=.(hd...tl)). |
| 218520 | 20 20 27 73 6f 6d 65 74 68 69 6e 67 2d 65 6c 73 65 29 09 3b 28 33 29 0a 3b 3b 20 20 20 20 20 20 | ..'something-else).;(3).;;...... |
| 218540 | 28 6f 74 68 65 72 20 20 20 20 20 20 20 20 20 20 27 61 6e 79 74 68 69 6e 67 2d 65 6c 73 65 29 29 | (other..........'anything-else)) |
| 218560 | 09 09 09 3b 28 34 29 0a 3b 3b 0a 3b 3b 20 20 4e 6f 74 65 73 0a 3b 3b 0a 3b 3b 20 20 2e 20 20 20 | ...;(4).;;.;;..Notes.;;.;;...... |
| 218580 | 45 61 63 68 20 70 61 74 74 65 72 6e 20 69 73 20 74 65 73 74 65 64 20 69 6e 20 74 75 72 6e 2e 20 | Each.pattern.is.tested.in.turn.. |
| 2185a0 | 20 54 68 65 20 66 69 72 73 74 20 6d 61 74 63 68 20 69 73 20 74 61 6b 65 6e 2e 0a 3b 3b 0a 3b 3b | .The.first.match.is.taken..;;.;; |
| 2185c0 | 20 20 2e 20 20 20 49 66 20 6e 6f 20 70 61 74 74 65 72 6e 20 6d 61 74 63 68 65 73 2c 20 61 6e 20 | ......If.no.pattern.matches,.an. |
| 2185e0 | 65 72 72 6f 72 20 69 73 20 73 69 67 6e 61 6c 6c 65 64 2e 0a 3b 3b 0a 3b 3b 20 20 2e 20 20 20 43 | error.is.signalled..;;.;;......C |
| 218600 | 6f 6e 73 74 61 6e 74 20 70 61 74 74 65 72 6e 73 20 28 74 68 69 6e 67 73 20 58 20 66 6f 72 20 77 | onstant.patterns.(things.X.for.w |
| 218620 | 68 69 63 68 20 28 43 4f 4e 53 54 41 4e 54 50 20 58 29 20 69 73 20 74 72 75 65 2c 20 69 2e 65 2e | hich.(CONSTANTP.X).is.true,.i.e. |
| 218640 | 0a 3b 3b 20 20 20 20 20 20 6e 75 6d 62 65 72 73 2c 20 73 74 72 69 6e 67 73 2c 20 63 68 61 72 61 | .;;......numbers,.strings,.chara |
| 218660 | 63 74 65 72 73 2c 20 65 74 63 2e 29 20 6d 61 74 63 68 20 74 68 69 6e 67 73 20 77 68 69 63 68 20 | cters,.etc.).match.things.which. |
| 218680 | 61 72 65 20 45 51 55 41 4c 2e 0a 3b 3b 0a 3b 3b 20 20 2e 20 20 20 51 75 6f 74 65 64 20 70 61 74 | are.EQUAL..;;.;;......Quoted.pat |
| 2186a0 | 74 65 72 6e 73 20 28 77 68 69 63 68 20 61 72 65 20 43 4f 4e 53 54 41 4e 54 50 29 20 61 72 65 20 | terns.(which.are.CONSTANTP).are. |
| 2186c0 | 63 6f 6e 73 74 61 6e 74 73 2e 0a 3b 3b 0a 3b 3b 20 20 2e 20 20 20 53 79 6d 62 6f 6c 73 20 6d 61 | constants..;;.;;......Symbols.ma |
| 2186e0 | 74 63 68 20 61 6e 79 74 68 69 6e 67 2e 20 54 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 62 6f 75 6e | tch.anything..The.symbol.is.boun |
| 218700 | 64 20 74 6f 20 74 68 65 20 6d 61 74 63 68 65 64 20 69 74 65 6d 0a 3b 3b 20 20 20 20 20 20 66 6f | d.to.the.matched.item.;;......fo |
| 218720 | 72 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 61 63 74 69 6f 6e 73 2e 0a | r.the.execution.of.the.actions.. |
| 218740 | 3b 3b 20 20 20 20 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 28 53 45 4c 45 43 54 2d 4d 41 54 | ;;......For.example,.(SELECT-MAT |
| 218760 | 43 48 20 27 28 31 20 32 20 33 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | CH.'(1.2.3).;;.................. |
| 218780 | 20 20 20 20 28 31 20 2e 20 58 29 20 3d 3e 20 58 29 0a 3b 3b 20 20 20 20 20 20 72 65 74 75 72 6e | ....(1...X).=>.X).;;......return |
| 2187a0 | 73 20 28 32 20 33 29 20 62 65 63 61 75 73 65 20 58 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 | s.(2.3).because.X.is.bound.to.th |
| 2187c0 | 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 6e 64 69 64 61 74 65 2e 0a 3b 3b 0a 3b 3b 20 20 2e | e.cdr.of.the.candidate..;;.;;... |
| 2187e0 | 20 20 20 54 68 65 20 74 77 6f 20 70 61 74 74 65 72 6e 20 6d 61 74 63 68 20 28 70 31 20 3d 20 70 | ...The.two.pattern.match.(p1.=.p |
| 218800 | 32 29 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 6e 61 6d 65 20 70 61 72 74 73 0a 3b 3b 20 | 2).can.be.used.to.name.parts.;;. |
| 218820 | 20 20 20 20 20 6f 66 20 74 68 65 20 6d 61 74 63 68 65 64 20 73 74 72 75 63 74 75 72 65 2e 20 20 | .....of.the.matched.structure... |
| 218840 | 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 28 41 4c 4c 20 3d 20 28 48 44 20 2e 20 54 4c 29 29 0a 3b | For.example,.(ALL.=.(HD...TL)).; |
| 218860 | 3b 20 20 20 20 20 20 6d 61 74 63 68 65 73 20 61 20 63 6f 6e 73 20 63 65 6c 6c 2e 20 41 4c 4c 20 | ;......matches.a.cons.cell..ALL. |
| 218880 | 69 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 63 6f 6e 73 20 63 65 6c 6c 2c 20 48 44 20 74 6f | is.bound.to.the.cons.cell,.HD.to |
| 2188a0 | 20 69 74 73 20 63 61 72 0a 3b 3b 20 20 20 20 20 20 61 6e 64 20 54 4c 20 74 6f 20 69 74 73 20 74 | .its.car.;;......and.TL.to.its.t |
| 2188c0 | 61 69 6c 2e 0a 3b 3b 0a 3b 3b 20 20 2e 20 20 20 41 20 70 72 65 64 69 63 61 74 65 20 74 65 73 74 | ail..;;.;;......A.predicate.test |
| 2188e0 | 20 61 70 70 6c 69 65 73 20 74 68 65 20 70 72 65 64 69 63 61 74 65 20 74 6f 20 74 68 65 20 69 74 | .applies.the.predicate.to.the.it |
| 218900 | 65 6d 20 62 65 69 6e 67 20 6d 61 74 63 68 65 64 2e 0a 3b 3b 20 20 20 20 20 20 49 66 20 74 68 65 | em.being.matched..;;......If.the |
| 218920 | 20 70 72 65 64 69 63 61 74 65 20 72 65 74 75 72 6e 73 20 4e 49 4c 20 74 68 65 6e 20 74 68 65 20 | .predicate.returns.NIL.then.the. |
| 218940 | 6d 61 74 63 68 20 66 61 69 6c 73 2e 0a 3b 3b 20 20 20 20 20 20 49 66 20 69 74 20 72 65 74 75 72 | match.fails..;;......If.it.retur |
| 218960 | 6e 73 20 74 72 75 74 68 2c 20 74 68 65 6e 20 74 68 65 20 6e 65 73 74 65 64 20 70 61 74 74 65 72 | ns.truth,.then.the.nested.patter |
| 218980 | 6e 20 69 73 20 6d 61 74 63 68 65 64 2e 20 20 54 68 69 73 20 69 73 0a 3b 3b 20 20 20 20 20 20 6f | n.is.matched...This.is.;;......o |
| 2189a0 | 66 74 65 6e 20 6a 75 73 74 20 61 20 73 79 6d 62 6f 6c 20 6c 69 6b 65 20 4b 20 69 6e 20 74 68 65 | ften.just.a.symbol.like.K.in.the |
| 2189c0 | 20 65 78 61 6d 70 6c 65 2e 0a 3b 3b 0a 3b 3b 20 20 2e 20 20 20 43 61 72 65 20 73 68 6f 75 6c 64 | .example..;;.;;......Care.should |
| 2189e0 | 20 62 65 20 74 61 6b 65 6e 20 77 69 74 68 20 74 68 65 20 64 6f 6d 61 69 6e 20 76 61 6c 75 65 73 | .be.taken.with.the.domain.values |
| 218a00 | 20 66 6f 72 20 70 72 65 64 69 63 61 74 65 20 6d 61 74 63 68 65 73 2e 0a 3b 3b 20 20 20 20 20 20 | .for.predicate.matches..;;...... |
| 218a20 | 49 66 2c 20 69 6e 20 74 68 65 20 61 62 6f 76 65 20 65 67 2c 20 69 74 65 6d 20 69 73 20 6e 6f 74 | If,.in.the.above.eg,.item.is.not |
| 218a40 | 20 61 6e 20 69 6e 74 65 67 65 72 2c 20 61 6e 20 65 72 72 6f 72 20 77 6f 75 6c 64 20 6f 63 63 75 | .an.integer,.an.error.would.occu |
| 218a60 | 72 0a 3b 3b 20 20 20 20 20 20 64 75 72 69 6e 67 20 74 68 65 20 74 65 73 74 2e 20 20 41 20 73 61 | r.;;......during.the.test...A.sa |
| 218a80 | 66 65 72 20 70 61 74 74 65 72 6e 20 77 6f 75 6c 64 20 62 65 0a 3b 3b 20 20 20 20 20 20 20 20 20 | fer.pattern.would.be.;;......... |
| 218aa0 | 20 28 23 27 69 6e 74 65 67 65 72 70 20 28 23 27 6f 64 64 70 20 6b 29 29 0a 3b 3b 20 20 20 20 20 | .(#'integerp.(#'oddp.k)).;;..... |
| 218ac0 | 20 54 68 69 73 20 77 6f 75 6c 64 20 6f 6e 6c 79 20 74 65 73 74 20 66 6f 72 20 6f 64 64 6e 65 73 | .This.would.only.test.for.oddnes |
| 218ae0 | 73 20 6f 66 20 74 68 65 20 69 74 65 6d 20 77 61 73 20 61 6e 20 69 6e 74 65 67 65 72 2e 0a 3b 3b | s.of.the.item.was.an.integer..;; |
| 218b00 | 0a 3b 3b 20 20 2e 20 20 20 41 20 73 69 6e 67 6c 65 20 73 79 6d 62 6f 6c 20 77 69 6c 6c 20 6d 61 | .;;......A.single.symbol.will.ma |
| 218b20 | 74 63 68 20 61 6e 79 74 68 69 6e 67 20 73 6f 20 69 74 20 63 61 6e 20 62 65 20 75 73 65 64 20 61 | tch.anything.so.it.can.be.used.a |
| 218b40 | 73 20 61 20 64 65 66 61 75 6c 74 0a 3b 3b 20 20 20 20 20 20 63 61 73 65 2c 20 6c 69 6b 65 20 4f | s.a.default.;;......case,.like.O |
| 218b60 | 54 48 45 52 20 61 62 6f 76 65 2e 0a 3b 3b 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e | THER.above..;;..(in-package.swan |
| 218b80 | 6b 2f 6d 61 74 63 68 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6d 61 74 63 68 20 28 65 78 70 72 65 | k/match)..(defmacro.match.(expre |
| 218ba0 | 73 73 69 6f 6e 20 26 62 6f 64 79 20 70 61 74 74 65 72 6e 73 29 0a 20 20 60 28 73 65 6c 65 63 74 | ssion.&body.patterns)...`(select |
| 218bc0 | 2d 6d 61 74 63 68 20 2c 65 78 70 72 65 73 73 69 6f 6e 20 2c 40 70 61 74 74 65 72 6e 73 29 29 0a | -match.,expression.,@patterns)). |
| 218be0 | 0a 28 64 65 66 6d 61 63 72 6f 20 73 65 6c 65 63 74 2d 6d 61 74 63 68 20 28 65 78 70 72 65 73 73 | .(defmacro.select-match.(express |
| 218c00 | 69 6f 6e 20 26 72 65 73 74 20 70 61 74 74 65 72 6e 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 6f | ion.&rest.patterns)...(let*.((do |
| 218c20 | 2d 6c 65 74 20 28 6e 6f 74 20 28 61 74 6f 6d 20 65 78 70 72 65 73 73 69 6f 6e 29 29 29 0a 20 20 | -let.(not.(atom.expression)))... |
| 218c40 | 20 20 20 20 20 20 20 28 6b 65 79 20 20 20 20 28 69 66 20 64 6f 2d 6c 65 74 20 28 67 65 6e 73 79 | .......(key....(if.do-let.(gensy |
| 218c60 | 6d 29 20 65 78 70 72 65 73 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 62 6f 64 79 20 | m).expression))..........(cbody. |
| 218c80 | 20 28 65 78 70 61 6e 64 2d 73 65 6c 65 63 74 2d 70 61 74 74 65 72 6e 73 20 6b 65 79 20 70 61 74 | .(expand-select-patterns.key.pat |
| 218ca0 | 74 65 72 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 66 6f 72 6d 20 20 60 28 63 6f 6e 64 20 | terns))..........(cform..`(cond. |
| 218cc0 | 2e 20 2c 63 62 6f 64 79 29 29 29 0a 20 20 20 20 28 69 66 20 64 6f 2d 6c 65 74 0a 20 20 20 20 20 | ..,cbody))).....(if.do-let...... |
| 218ce0 | 20 20 20 60 28 6c 65 74 20 28 28 2c 6b 65 79 20 2c 65 78 70 72 65 73 73 69 6f 6e 29 29 20 2c 63 | ...`(let.((,key.,expression)).,c |
| 218d00 | 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 63 66 6f 72 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 | form).........cform)))..(defun.e |
| 218d20 | 78 70 61 6e 64 2d 73 65 6c 65 63 74 2d 70 61 74 74 65 72 6e 73 20 28 6b 65 79 20 70 61 74 74 65 | xpand-select-patterns.(key.patte |
| 218d40 | 72 6e 73 29 0a 20 20 28 69 66 20 28 65 71 20 28 73 65 63 6f 6e 64 20 70 61 74 74 65 72 6e 73 29 | rns)...(if.(eq.(second.patterns) |
| 218d60 | 20 27 3d 3e 29 0a 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 73 65 6c 65 63 74 2d 70 61 74 74 65 | .'=>).......(expand-select-patte |
| 218d80 | 72 6e 73 2d 73 74 79 6c 65 2d 32 20 6b 65 79 20 70 61 74 74 65 72 6e 73 29 0a 20 20 20 20 20 20 | rns-style-2.key.patterns)....... |
| 218da0 | 28 65 78 70 61 6e 64 2d 73 65 6c 65 63 74 2d 70 61 74 74 65 72 6e 73 2d 73 74 79 6c 65 2d 31 20 | (expand-select-patterns-style-1. |
| 218dc0 | 6b 65 79 20 70 61 74 74 65 72 6e 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 70 61 6e 64 2d 73 | key.patterns)))..(defun.expand-s |
| 218de0 | 65 6c 65 63 74 2d 70 61 74 74 65 72 6e 73 2d 73 74 79 6c 65 2d 31 20 28 6b 65 79 20 70 61 74 74 | elect-patterns-style-1.(key.patt |
| 218e00 | 65 72 6e 73 29 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 70 61 74 74 65 72 6e 73 29 0a 20 20 20 20 | erns)...(if.(null.patterns)..... |
| 218e20 | 20 20 60 28 28 74 20 28 65 72 72 6f 72 20 22 43 61 73 65 20 73 65 6c 65 63 74 20 70 61 74 74 65 | ..`((t.(error."Case.select.patte |
| 218e40 | 72 6e 20 6d 61 74 63 68 20 66 61 69 6c 75 72 65 20 6f 6e 20 7e 53 22 20 2c 6b 65 79 29 29 29 0a | rn.match.failure.on.~S".,key))). |
| 218e60 | 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 74 74 65 72 6e 20 20 28 63 61 61 72 20 70 61 74 | ......(let*.((pattern..(caar.pat |
| 218e80 | 74 65 72 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 63 74 69 6f 6e 73 20 20 28 | terns))..............(actions..( |
| 218ea0 | 63 64 61 72 20 70 61 74 74 65 72 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 | cdar.patterns))..............(re |
| 218ec0 | 73 74 20 20 20 20 20 28 63 64 72 20 70 61 74 74 65 72 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 | st.....(cdr.patterns)).......... |
| 218ee0 | 20 20 20 20 28 74 65 73 74 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d 74 65 | ....(test.....(compile-select-te |
| 218f00 | 73 74 20 6b 65 79 20 70 61 74 74 65 72 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 | st.key.pattern))..............(b |
| 218f20 | 69 6e 64 69 6e 67 73 20 28 63 6f 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d 62 69 6e 64 69 6e 67 73 | indings.(compile-select-bindings |
| 218f40 | 20 6b 65 79 20 70 61 74 74 65 72 6e 20 61 63 74 69 6f 6e 73 29 29 29 0a 20 20 20 20 20 20 20 20 | .key.pattern.actions)))......... |
| 218f60 | 60 28 2c 28 69 66 20 62 69 6e 64 69 6e 67 73 20 60 28 2c 74 65 73 74 20 28 6c 65 74 20 2c 62 69 | `(,(if.bindings.`(,test.(let.,bi |
| 218f80 | 6e 64 69 6e 67 73 20 2e 20 2c 61 63 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ndings...,actions))............. |
| 218fa0 | 20 20 20 60 28 2c 74 65 73 74 20 2e 20 2c 61 63 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 | ...`(,test...,actions))......... |
| 218fc0 | 20 20 20 2e 20 2c 28 75 6e 6c 65 73 73 20 28 65 71 20 74 65 73 74 20 74 29 0a 20 20 20 20 20 20 | .....,(unless.(eq.test.t)....... |
| 218fe0 | 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 73 65 6c 65 63 74 2d 70 61 74 74 65 72 6e | ..........(expand-select-pattern |
| 219000 | 73 2d 73 74 79 6c 65 2d 31 20 6b 65 79 20 72 65 73 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | s-style-1.key.rest))))))..(defun |
| 219020 | 20 65 78 70 61 6e 64 2d 73 65 6c 65 63 74 2d 70 61 74 74 65 72 6e 73 2d 73 74 79 6c 65 2d 32 20 | .expand-select-patterns-style-2. |
| 219040 | 28 6b 65 79 20 70 61 74 74 65 72 6e 73 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 70 61 | (key.patterns)...(cond.((null.pa |
| 219060 | 74 74 65 72 6e 73 29 0a 20 20 20 20 20 20 20 20 20 60 28 28 74 20 28 65 72 72 6f 72 20 22 43 61 | tterns)..........`((t.(error."Ca |
| 219080 | 73 65 20 73 65 6c 65 63 74 20 70 61 74 74 65 72 6e 20 6d 61 74 63 68 20 66 61 69 6c 75 72 65 20 | se.select.pattern.match.failure. |
| 2190a0 | 6f 6e 20 7e 53 22 20 2c 6b 65 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 77 68 65 6e | on.~S".,key)))).........(t.(when |
| 2190c0 | 20 28 6f 72 20 28 3c 20 28 6c 65 6e 67 74 68 20 70 61 74 74 65 72 6e 73 29 20 33 29 0a 20 20 20 | .(or.(<.(length.patterns).3).... |
| 2190e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 28 73 65 63 6f | ..................(not.(eq.(seco |
| 219100 | 6e 64 20 70 61 74 74 65 72 6e 73 29 20 27 3d 3e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nd.patterns).'=>)))............. |
| 219120 | 20 28 65 72 72 6f 72 20 22 49 6c 6c 65 67 61 6c 20 70 61 74 74 65 72 6e 73 3a 20 7e 53 22 20 70 | .(error."Illegal.patterns:.~S".p |
| 219140 | 61 74 74 65 72 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 74 | atterns))............(let*.((pat |
| 219160 | 74 65 72 6e 20 20 28 66 69 72 73 74 20 70 61 74 74 65 72 6e 73 29 29 0a 20 20 20 20 20 20 20 20 | tern..(first.patterns))......... |
| 219180 | 20 20 20 20 20 20 20 20 20 20 28 61 63 74 69 6f 6e 73 20 20 28 6c 69 73 74 20 28 74 68 69 72 64 | ..........(actions..(list.(third |
| 2191a0 | 20 70 61 74 74 65 72 6e 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .patterns)))...................( |
| 2191c0 | 72 65 73 74 20 20 20 20 20 28 63 64 64 64 72 20 70 61 74 74 65 72 6e 73 29 29 0a 20 20 20 20 20 | rest.....(cdddr.patterns))...... |
| 2191e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 65 73 74 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d | .............(test.....(compile- |
| 219200 | 73 65 6c 65 63 74 2d 74 65 73 74 20 6b 65 79 20 70 61 74 74 65 72 6e 29 29 0a 20 20 20 20 20 20 | select-test.key.pattern))....... |
| 219220 | 20 20 20 20 20 20 20 20 20 20 20 20 28 62 69 6e 64 69 6e 67 73 20 28 63 6f 6d 70 69 6c 65 2d 73 | ............(bindings.(compile-s |
| 219240 | 65 6c 65 63 74 2d 62 69 6e 64 69 6e 67 73 20 6b 65 79 20 70 61 74 74 65 72 6e 20 61 63 74 69 6f | elect-bindings.key.pattern.actio |
| 219260 | 6e 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 28 69 66 20 62 69 6e 64 69 6e | ns)))..............`(,(if.bindin |
| 219280 | 67 73 20 60 28 2c 74 65 73 74 20 28 6c 65 74 20 2c 62 69 6e 64 69 6e 67 73 20 2e 20 2c 61 63 74 | gs.`(,test.(let.,bindings...,act |
| 2192a0 | 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 74 65 | ions)).....................`(,te |
| 2192c0 | 73 74 20 2e 20 2c 61 63 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | st...,actions))................. |
| 2192e0 | 2e 20 2c 28 75 6e 6c 65 73 73 20 28 65 71 20 74 65 73 74 20 74 29 0a 20 20 20 20 20 20 20 20 20 | ..,(unless.(eq.test.t).......... |
| 219300 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 73 65 6c 65 63 74 2d 70 61 74 74 65 | ............(expand-select-patte |
| 219320 | 72 6e 73 2d 73 74 79 6c 65 2d 32 20 6b 65 79 20 72 65 73 74 29 29 29 29 29 29 29 0a 0a 28 64 65 | rns-style-2.key.rest)))))))..(de |
| 219340 | 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d 74 65 73 74 20 28 6b 65 79 20 70 61 74 | fun.compile-select-test.(key.pat |
| 219360 | 74 65 72 6e 29 0a 20 20 28 6c 65 74 20 28 28 74 65 73 74 73 20 28 72 65 6d 6f 76 65 20 74 20 28 | tern)...(let.((tests.(remove.t.( |
| 219380 | 63 6f 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d 74 65 73 74 73 20 6b 65 79 20 70 61 74 74 65 72 6e | compile-select-tests.key.pattern |
| 2193a0 | 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 3b 3b 20 6e 6f 74 65 20 41 4e 44 | )))).....(cond.......;;.note.AND |
| 2193c0 | 20 64 6f 65 73 20 74 68 69 73 20 61 6e 79 77 61 79 2c 20 62 75 74 20 74 68 69 73 20 61 6c 6c 6f | .does.this.anyway,.but.this.allo |
| 2193e0 | 77 73 20 75 73 20 74 6f 20 74 65 6c 6c 20 69 66 0a 20 20 20 20 20 20 3b 3b 20 74 68 65 20 70 61 | ws.us.to.tell.if.......;;.the.pa |
| 219400 | 74 74 65 72 6e 20 77 69 6c 6c 20 61 6c 77 61 79 73 20 6d 61 74 63 68 2e 0a 20 20 20 20 20 20 28 | ttern.will.always.match........( |
| 219420 | 28 6e 75 6c 6c 20 74 65 73 74 73 29 20 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 28 28 | (null.tests).........t).......(( |
| 219440 | 3d 20 28 6c 65 6e 67 74 68 20 74 65 73 74 73 29 20 31 29 20 28 63 61 72 20 74 65 73 74 73 29 29 | =.(length.tests).1).(car.tests)) |
| 219460 | 0a 20 20 20 20 20 20 28 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 61 | .......(t....................`(a |
| 219480 | 6e 64 20 2e 20 2c 74 65 73 74 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 | nd...,tests)))))..(defun.compile |
| 2194a0 | 2d 73 65 6c 65 63 74 2d 74 65 73 74 73 20 28 6b 65 79 20 70 61 74 74 65 72 6e 29 0a 20 20 28 63 | -select-tests.(key.pattern)...(c |
| 2194c0 | 6f 6e 64 20 28 28 63 6f 6e 73 74 61 6e 74 70 20 70 61 74 74 65 72 6e 29 20 20 20 60 28 28 2c 28 | ond.((constantp.pattern)...`((,( |
| 2194e0 | 63 6f 6e 64 20 28 28 6e 75 6d 62 65 72 70 20 70 61 74 74 65 72 6e 29 20 27 65 71 6c 29 0a 20 20 | cond.((numberp.pattern).'eql)... |
| 219500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 219520 | 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 70 20 70 61 74 74 65 72 6e 29 20 27 65 71 29 0a 20 | .......((symbolp.pattern).'eq).. |
| 219540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 219560 | 20 20 20 20 20 20 20 20 28 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 65 71 75 61 6c | ........(t................'equal |
| 219580 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )).............................. |
| 2195a0 | 20 20 20 20 20 20 2c 6b 65 79 20 2c 70 61 74 74 65 72 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 | ......,key.,pattern))).........( |
| 2195c0 | 28 73 79 6d 62 6f 6c 70 20 70 61 74 74 65 72 6e 29 20 20 20 20 20 20 27 28 74 29 29 0a 20 20 20 | (symbolp.pattern)......'(t)).... |
| 2195e0 | 20 20 20 20 20 28 28 73 65 6c 65 63 74 2d 64 6f 75 62 6c 65 2d 6d 61 74 63 68 3f 20 70 61 74 74 | .....((select-double-match?.patt |
| 219600 | 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 | ern)..........(append........... |
| 219620 | 28 63 6f 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d 74 65 73 74 73 20 6b 65 79 20 28 66 69 72 73 74 | (compile-select-tests.key.(first |
| 219640 | 20 70 61 74 74 65 72 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 73 65 | .pattern))...........(compile-se |
| 219660 | 6c 65 63 74 2d 74 65 73 74 73 20 6b 65 79 20 28 74 68 69 72 64 20 70 61 74 74 65 72 6e 29 29 29 | lect-tests.key.(third.pattern))) |
| 219680 | 29 0a 20 20 20 20 20 20 20 20 28 28 73 65 6c 65 63 74 2d 70 72 65 64 69 63 61 74 65 3f 20 70 61 | ).........((select-predicate?.pa |
| 2196a0 | 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 | ttern)..........(append......... |
| 2196c0 | 20 20 60 28 28 2c 28 73 65 63 6f 6e 64 20 28 66 69 72 73 74 20 70 61 74 74 65 72 6e 29 29 20 2c | ..`((,(second.(first.pattern))., |
| 2196e0 | 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d | key))...........(compile-select- |
| 219700 | 74 65 73 74 73 20 6b 65 79 20 28 73 65 63 6f 6e 64 20 70 61 74 74 65 72 6e 29 29 29 29 0a 20 20 | tests.key.(second.pattern))))... |
| 219720 | 20 20 20 20 20 20 28 28 63 6f 6e 73 70 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 | ......((consp.pattern).......... |
| 219740 | 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 60 28 28 63 6f 6e 73 70 20 2c 6b 65 79 29 | (append...........`((consp.,key) |
| 219760 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d 74 65 73 74 | )...........(compile-select-test |
| 219780 | 73 20 28 63 73 2d 63 61 72 20 6b 65 79 29 20 28 63 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | s.(cs-car.key).(car............. |
| 2197a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2197c0 | 20 20 20 70 61 74 74 65 72 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d | ...pattern))...........(compile- |
| 2197e0 | 73 65 6c 65 63 74 2d 74 65 73 74 73 20 28 63 73 2d 63 64 72 20 6b 65 79 29 20 28 63 64 72 0a 20 | select-tests.(cs-cdr.key).(cdr.. |
| 219800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 219820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 74 65 72 6e 29 29 29 29 0a 20 20 20 20 20 20 | ..............pattern))))....... |
| 219840 | 20 20 28 74 20 28 65 72 72 6f 72 20 22 49 6c 6c 65 67 61 6c 20 73 65 6c 65 63 74 20 70 61 74 74 | ..(t.(error."Illegal.select.patt |
| 219860 | 65 72 6e 3a 20 7e 53 22 20 70 61 74 74 65 72 6e 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 63 6f | ern:.~S".pattern))))...(defun.co |
| 219880 | 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d 62 69 6e 64 69 6e 67 73 20 28 6b 65 79 20 70 61 74 74 65 | mpile-select-bindings.(key.patte |
| 2198a0 | 72 6e 20 61 63 74 69 6f 6e 29 0a 20 20 28 63 6f 6e 64 20 28 28 63 6f 6e 73 74 61 6e 74 70 20 70 | rn.action)...(cond.((constantp.p |
| 2198c0 | 61 74 74 65 72 6e 29 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 70 20 70 | attern).'()).........((symbolp.p |
| 2198e0 | 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 65 6c 65 63 74 2d 69 6e 2d | attern)..........(if.(select-in- |
| 219900 | 74 72 65 65 20 70 61 74 74 65 72 6e 20 61 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | tree.pattern.action)............ |
| 219920 | 20 20 60 28 28 2c 70 61 74 74 65 72 6e 20 2c 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..`((,pattern.,key))............ |
| 219940 | 20 20 27 28 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 65 6c 65 63 74 2d 64 6f 75 62 6c 65 2d | ..'())).........((select-double- |
| 219960 | 6d 61 74 63 68 3f 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 | match?.pattern)..........(append |
| 219980 | 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d 62 69 6e 64 69 | ...........(compile-select-bindi |
| 2199a0 | 6e 67 73 20 6b 65 79 20 28 66 69 72 73 74 20 70 61 74 74 65 72 6e 29 20 61 63 74 69 6f 6e 29 0a | ngs.key.(first.pattern).action). |
| 2199c0 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d 62 69 6e 64 69 6e | ..........(compile-select-bindin |
| 2199e0 | 67 73 20 6b 65 79 20 28 74 68 69 72 64 20 70 61 74 74 65 72 6e 29 20 61 63 74 69 6f 6e 29 29 29 | gs.key.(third.pattern).action))) |
| 219a00 | 0a 20 20 20 20 20 20 20 20 28 28 73 65 6c 65 63 74 2d 70 72 65 64 69 63 61 74 65 3f 20 70 61 74 | .........((select-predicate?.pat |
| 219a20 | 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d 62 | tern)..........(compile-select-b |
| 219a40 | 69 6e 64 69 6e 67 73 20 6b 65 79 20 28 73 65 63 6f 6e 64 20 70 61 74 74 65 72 6e 29 20 61 63 74 | indings.key.(second.pattern).act |
| 219a60 | 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 28 63 6f 6e 73 70 20 70 61 74 74 65 72 6e 29 0a 20 | ion)).........((consp.pattern).. |
| 219a80 | 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 | ........(append...........(compi |
| 219aa0 | 6c 65 2d 73 65 6c 65 63 74 2d 62 69 6e 64 69 6e 67 73 20 28 63 73 2d 63 61 72 20 6b 65 79 29 20 | le-select-bindings.(cs-car.key). |
| 219ac0 | 28 63 61 72 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (car.pattern)................... |
| 219ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 | .................action)........ |
| 219b00 | 20 20 20 28 63 6f 6d 70 69 6c 65 2d 73 65 6c 65 63 74 2d 62 69 6e 64 69 6e 67 73 20 28 63 73 2d | ...(compile-select-bindings.(cs- |
| 219b20 | 63 64 72 20 6b 65 79 29 20 28 63 64 72 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 | cdr.key).(cdr.pattern).......... |
| 219b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 63 74 69 6f 6e | ..........................action |
| 219b60 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 6c 65 63 74 2d 69 6e 2d 74 72 65 65 20 28 61 74 | )))))..(defun.select-in-tree.(at |
| 219b80 | 6f 6d 20 74 72 65 65 29 0a 20 20 28 6f 72 20 28 65 71 20 61 74 6f 6d 20 74 72 65 65 29 0a 20 20 | om.tree)...(or.(eq.atom.tree)... |
| 219ba0 | 20 20 20 20 28 69 66 20 28 63 6f 6e 73 70 20 74 72 65 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 | ....(if.(consp.tree)...........( |
| 219bc0 | 6f 72 20 28 73 65 6c 65 63 74 2d 69 6e 2d 74 72 65 65 20 61 74 6f 6d 20 28 63 61 72 20 74 72 65 | or.(select-in-tree.atom.(car.tre |
| 219be0 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 69 6e 2d 74 72 65 | e))...............(select-in-tre |
| 219c00 | 65 20 61 74 6f 6d 20 28 63 64 72 20 74 72 65 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | e.atom.(cdr.tree))))))..(defun.s |
| 219c20 | 65 6c 65 63 74 2d 64 6f 75 62 6c 65 2d 6d 61 74 63 68 3f 20 28 70 61 74 74 65 72 6e 29 0a 20 20 | elect-double-match?.(pattern)... |
| 219c40 | 3b 3b 20 20 28 3c 70 61 74 74 65 72 6e 3e 20 3d 20 3c 70 61 74 74 65 72 6e 3e 29 0a 20 20 28 61 | ;;..(<pattern>.=.<pattern>)...(a |
| 219c60 | 6e 64 20 28 63 6f 6e 73 70 20 70 61 74 74 65 72 6e 29 20 28 63 6f 6e 73 70 20 28 63 64 72 20 70 | nd.(consp.pattern).(consp.(cdr.p |
| 219c80 | 61 74 74 65 72 6e 29 29 20 28 63 6f 6e 73 70 20 28 63 64 64 72 20 70 61 74 74 65 72 6e 29 29 0a | attern)).(consp.(cddr.pattern)). |
| 219ca0 | 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 28 63 64 64 64 72 20 70 61 74 74 65 72 6e 29 29 0a 20 20 | .......(null.(cdddr.pattern))... |
| 219cc0 | 20 20 20 20 20 28 65 71 20 28 73 65 63 6f 6e 64 20 70 61 74 74 65 72 6e 29 20 27 3d 29 29 29 0a | .....(eq.(second.pattern).'=))). |
| 219ce0 | 0a 28 64 65 66 75 6e 20 73 65 6c 65 63 74 2d 70 72 65 64 69 63 61 74 65 3f 20 28 70 61 74 74 65 | .(defun.select-predicate?.(patte |
| 219d00 | 72 6e 29 0a 20 20 3b 3b 20 28 28 66 75 6e 63 74 69 6f 6e 20 3c 66 3e 29 20 3c 70 61 74 74 65 72 | rn)...;;.((function.<f>).<patter |
| 219d20 | 6e 3e 29 0a 20 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 | n>)...(and.(consp.pattern)...... |
| 219d40 | 20 20 28 63 6f 6e 73 70 20 28 63 64 72 20 70 61 74 74 65 72 6e 29 29 0a 20 20 20 20 20 20 20 28 | ..(consp.(cdr.pattern))........( |
| 219d60 | 6e 75 6c 6c 20 28 63 64 64 72 20 70 61 74 74 65 72 6e 29 29 0a 20 20 20 20 20 20 20 28 63 6f 6e | null.(cddr.pattern))........(con |
| 219d80 | 73 70 20 28 66 69 72 73 74 20 70 61 74 74 65 72 6e 29 29 0a 20 20 20 20 20 20 20 28 63 6f 6e 73 | sp.(first.pattern))........(cons |
| 219da0 | 70 20 28 63 64 72 20 28 66 69 72 73 74 20 70 61 74 74 65 72 6e 29 29 29 0a 20 20 20 20 20 20 20 | p.(cdr.(first.pattern)))........ |
| 219dc0 | 28 6e 75 6c 6c 20 28 63 64 64 72 20 28 66 69 72 73 74 20 70 61 74 74 65 72 6e 29 29 29 0a 20 20 | (null.(cddr.(first.pattern)))... |
| 219de0 | 20 20 20 20 20 28 65 71 20 28 63 61 61 72 20 70 61 74 74 65 72 6e 29 20 27 66 75 6e 63 74 69 6f | .....(eq.(caar.pattern).'functio |
| 219e00 | 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 73 2d 63 61 72 20 28 65 78 70 29 0a 20 20 28 63 73 2d | n)))..(defun.cs-car.(exp)...(cs- |
| 219e20 | 63 61 72 2f 63 64 72 20 27 63 61 72 20 65 78 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | car/cdr.'car.exp................ |
| 219e40 | 27 28 28 63 61 72 20 2e 20 63 61 61 72 29 20 20 20 20 20 28 63 64 72 20 2e 20 63 61 64 72 29 20 | '((car...caar).....(cdr...cadr). |
| 219e60 | 20 20 20 28 63 61 61 72 20 2e 20 63 61 61 61 72 29 20 28 63 61 64 72 20 2e 20 63 61 61 64 72 29 | ...(caar...caaar).(cadr...caadr) |
| 219e80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 61 72 20 2e 20 63 61 64 61 72 29 | ..................(cdar...cadar) |
| 219ea0 | 20 20 20 28 63 64 64 72 20 2e 20 63 61 64 64 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(cddr...caddr)............... |
| 219ec0 | 20 20 20 28 63 61 61 61 72 20 2e 20 63 61 61 61 61 72 29 20 28 63 61 61 64 72 20 2e 20 63 61 61 | ...(caaar...caaaar).(caadr...caa |
| 219ee0 | 61 64 72 29 20 28 63 61 64 61 72 20 2e 20 63 61 61 64 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 | adr).(cadar...caadar)........... |
| 219f00 | 20 20 20 20 20 20 20 28 63 61 64 64 72 20 2e 20 63 61 61 64 64 72 29 20 28 63 64 61 61 72 20 2e | .......(caddr...caaddr).(cdaar.. |
| 219f20 | 20 63 61 64 61 61 72 29 20 28 63 64 61 64 72 20 2e 20 63 61 64 61 64 72 29 0a 20 20 20 20 20 20 | .cadaar).(cdadr...cadadr)....... |
| 219f40 | 20 20 20 20 20 20 20 20 20 20 20 28 63 64 64 61 72 20 2e 20 63 61 64 64 61 72 29 20 28 63 64 64 | ...........(cddar...caddar).(cdd |
| 219f60 | 64 72 20 2e 20 63 61 64 64 64 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 73 2d 63 64 72 20 28 | dr...cadddr))))..(defun.cs-cdr.( |
| 219f80 | 65 78 70 29 0a 20 20 28 63 73 2d 63 61 72 2f 63 64 72 20 27 63 64 72 20 65 78 70 0a 20 20 20 20 | exp)...(cs-car/cdr.'cdr.exp..... |
| 219fa0 | 20 20 20 20 20 20 20 20 20 20 20 27 28 28 63 61 72 20 2e 20 63 64 61 72 29 20 20 20 20 28 63 64 | ...........'((car...cdar)....(cd |
| 219fc0 | 72 20 2e 20 63 64 64 72 29 20 20 20 20 28 63 61 61 72 20 2e 20 63 64 61 61 72 29 20 20 28 63 61 | r...cddr)....(caar...cdaar)..(ca |
| 219fe0 | 64 72 20 2e 20 63 64 61 64 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 | dr...cdadr)..................(cd |
| 21a000 | 61 72 20 2e 20 63 64 64 61 72 29 20 20 28 63 64 64 72 20 2e 20 63 64 64 64 72 29 0a 20 20 20 20 | ar...cddar)..(cddr...cdddr)..... |
| 21a020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 61 61 72 20 2e 20 63 64 61 61 61 72 29 20 20 20 | .............(caaar...cdaaar)... |
| 21a040 | 20 28 63 61 61 64 72 20 2e 20 63 64 61 61 64 72 29 20 20 20 20 28 63 61 64 61 72 20 2e 20 63 64 | .(caadr...cdaadr)....(cadar...cd |
| 21a060 | 61 64 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 64 72 20 2e 20 | adar)..................(caddr... |
| 21a080 | 63 64 61 64 64 72 29 20 20 20 20 28 63 64 61 61 72 20 2e 20 63 64 64 61 61 72 29 20 20 20 20 28 | cdaddr)....(cdaar...cddaar)....( |
| 21a0a0 | 63 64 61 64 72 20 2e 20 63 64 64 61 64 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cdadr...cddadr)................. |
| 21a0c0 | 20 28 63 64 64 61 72 20 2e 20 63 64 64 64 61 72 29 20 20 20 20 28 63 64 64 64 72 20 2e 20 63 64 | .(cddar...cdddar)....(cdddr...cd |
| 21a0e0 | 64 64 64 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 73 2d 63 61 72 2f 63 64 72 20 28 6f 70 20 | dddr))))..(defun.cs-car/cdr.(op. |
| 21a100 | 65 78 70 20 74 61 62 6c 65 29 0a 20 20 28 69 66 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 65 78 70 | exp.table)...(if.(and.(consp.exp |
| 21a120 | 29 20 28 3d 20 28 6c 65 6e 67 74 68 20 65 78 70 29 20 32 29 29 0a 20 20 20 20 20 20 28 6c 65 74 | ).(=.(length.exp).2)).......(let |
| 21a140 | 20 28 28 72 65 70 6c 61 63 65 6d 65 6e 74 20 20 28 61 73 73 6f 63 20 28 63 61 72 20 65 78 70 29 | .((replacement..(assoc.(car.exp) |
| 21a160 | 20 74 61 62 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 72 65 70 6c 61 63 65 6d 65 6e | .table))).........(if.replacemen |
| 21a180 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 28 63 64 72 20 72 65 70 6c 61 63 65 6d 65 6e | t.............`(,(cdr.replacemen |
| 21a1a0 | 74 29 20 2c 28 73 65 63 6f 6e 64 20 65 78 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 60 28 | t).,(second.exp)).............`( |
| 21a1c0 | 2c 6f 70 20 2c 65 78 70 29 29 29 0a 20 20 20 20 20 20 60 28 2c 6f 70 20 2c 65 78 70 29 29 29 0a | ,op.,exp))).......`(,op.,exp))). |
| 21a1e0 | 0a 3b 3b 20 28 73 65 74 66 20 63 31 20 27 28 73 65 6c 65 63 74 2d 6d 61 74 63 68 20 78 20 28 61 | .;;.(setf.c1.'(select-match.x.(a |
| 21a200 | 20 31 29 20 28 62 20 32 20 33 20 34 29 29 29 0a 3b 3b 20 28 73 65 74 66 20 63 32 20 27 28 73 65 | .1).(b.2.3.4))).;;.(setf.c2.'(se |
| 21a220 | 6c 65 63 74 2d 6d 61 74 63 68 20 28 63 61 72 20 79 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 | lect-match.(car.y).;;........... |
| 21a240 | 20 20 28 31 20 28 70 72 69 6e 74 20 31 30 30 29 20 31 30 31 29 20 28 32 20 32 30 30 29 20 28 22 | ..(1.(print.100).101).(2.200).(" |
| 21a260 | 68 65 6c 6c 6f 22 20 35 29 20 28 3a 78 20 32 30 29 20 28 65 6c 73 65 20 28 31 2b 0a 3b 3b 20 20 | hello".5).(:x.20).(else.(1+.;;.. |
| 21a280 | 65 6c 73 65 29 29 29 29 0a 3b 3b 20 28 73 65 74 66 20 63 33 20 27 28 73 65 6c 65 63 74 2d 6d 61 | else)))).;;.(setf.c3.'(select-ma |
| 21a2a0 | 74 63 68 20 28 63 61 64 64 72 20 79 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 | tch.(caddr.y).;;.............((a |
| 21a2c0 | 6c 6c 20 3d 20 28 78 20 79 29 29 20 28 6c 69 73 74 20 78 20 79 20 61 6c 6c 29 29 0a 3b 3b 20 20 | ll.=.(x.y)).(list.x.y.all)).;;.. |
| 21a2e0 | 20 20 20 20 20 20 20 20 20 20 20 28 28 61 20 27 3d 20 62 29 20 20 20 20 20 20 28 6c 69 73 74 20 | ...........((a.'=.b)......(list. |
| 21a300 | 27 61 73 73 69 67 6e 20 61 20 62 29 29 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 23 | 'assign.a.b)).;;.............((# |
| 21a320 | 27 6f 64 64 70 20 6b 29 20 20 20 20 20 28 31 2b 20 6b 29 29 29 29 29 0a 0a 0a 00 00 00 00 00 00 | 'oddp.k).....(1+.k)))))......... |
| 21a340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2f 65 63 6c 2e 6c 69 73 70 00 00 00 00 00 00 00 | slime-2.31/swank/ecl.lisp....... |
| 21a420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 21a480 | 30 31 30 34 31 35 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 37 37 36 00 20 30 00 00 00 | 0104157.00000000000.013776..0... |
| 21a4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 21a520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 21a540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a600 | 3b 3b 3b 3b 20 2d 2a 2d 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 20 2d | ;;;;.-*-.indent-tabs-mode:.nil.- |
| 21a620 | 2a 2d 0a 3b 3b 3b 0a 3b 3b 3b 20 73 77 61 6e 6b 2d 65 63 6c 2e 6c 69 73 70 20 2d 2d 2d 20 53 4c | *-.;;;.;;;.swank-ecl.lisp.---.SL |
| 21a640 | 49 4d 45 20 62 61 63 6b 65 6e 64 20 66 6f 72 20 45 43 4c 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 | IME.backend.for.ECL..;;;.;;;.Thi |
| 21a660 | 73 20 63 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 | s.code.has.been.placed.in.the.Pu |
| 21a680 | 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 0a 3b 3b 3b | blic.Domain...All.warranties.;;; |
| 21a6a0 | 20 61 72 65 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 3b 3b 3b 0a 0a 3b 3b 3b 20 41 64 6d 69 6e 69 | .are.disclaimed..;;;..;;;.Admini |
| 21a6c0 | 73 74 72 69 76 69 61 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 65 63 6c 0a 20 | strivia..(defpackage.swank/ecl.. |
| 21a6e0 | 20 28 3a 75 73 65 20 63 6c 20 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 29 0a 0a 28 69 6e 2d 70 | .(:use.cl.swank/backend))..(in-p |
| 21a700 | 61 63 6b 61 67 65 20 73 77 61 6e 6b 2f 65 63 6c 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a | ackage.swank/ecl)..(eval-when.(: |
| 21a720 | 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 | compile-toplevel.:load-toplevel. |
| 21a740 | 3a 65 78 65 63 75 74 65 29 0a 20 20 28 64 65 66 75 6e 20 65 63 6c 2d 76 65 72 73 69 6f 6e 20 28 | :execute)...(defun.ecl-version.( |
| 21a760 | 29 0a 20 20 20 20 28 6c 65 74 20 28 28 76 65 72 73 69 6f 6e 20 28 66 69 6e 64 2d 73 79 6d 62 6f | ).....(let.((version.(find-symbo |
| 21a780 | 6c 20 22 2b 45 43 4c 2d 56 45 52 53 49 4f 4e 2d 4e 55 4d 42 45 52 2b 22 20 3a 45 58 54 29 29 29 | l."+ECL-VERSION-NUMBER+".:EXT))) |
| 21a7a0 | 0a 20 20 20 20 20 20 28 69 66 20 76 65 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 73 79 | .......(if.version...........(sy |
| 21a7c0 | 6d 62 6f 6c 2d 76 61 6c 75 65 20 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 30 29 | mbol-value.version)...........0) |
| 21a7e0 | 29 29 0a 20 20 28 77 68 65 6e 20 28 3c 20 28 65 63 6c 2d 76 65 72 73 69 6f 6e 29 20 31 30 30 33 | ))...(when.(<.(ecl-version).1003 |
| 21a800 | 30 31 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 7e 26 49 4d 50 4f 52 54 41 4e 54 3a 7e 25 20 20 | 01).....(error."~&IMPORTANT:~%.. |
| 21a820 | 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 45 | ~...............The.version.of.E |
| 21a840 | 43 4c 20 79 6f 75 27 72 65 20 75 73 69 6e 67 20 28 7e 41 29 20 69 73 20 74 6f 6f 20 6f 6c 64 2e | CL.you're.using.(~A).is.too.old. |
| 21a860 | 7e 25 20 20 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 6c 65 61 73 65 20 75 70 67 72 61 | ~%..~...............Please.upgra |
| 21a880 | 64 65 20 74 6f 20 61 74 20 6c 65 61 73 74 20 31 30 2e 33 2e 31 2e 7e 25 20 20 7e 0a 20 20 20 20 | de.to.at.least.10.3.1.~%..~..... |
| 21a8a0 | 20 20 20 20 20 20 20 20 20 20 53 6f 72 72 79 20 66 6f 72 20 74 68 65 20 69 6e 63 6f 6e 76 65 6e | ..........Sorry.for.the.inconven |
| 21a8c0 | 69 65 6e 63 65 2e 7e 25 7e 25 22 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 70 2d 69 6d 70 | ience.~%~%"............(lisp-imp |
| 21a8e0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 6f 6e 29 29 29 29 0a 0a 3b 3b 20 48 61 72 64 | lementation-version))))..;;.Hard |
| 21a900 | 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 | .dependencies..(eval-when.(:comp |
| 21a920 | 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 | ile-toplevel.:load-toplevel.:exe |
| 21a940 | 63 75 74 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6f 63 6b 65 74 73 29 29 0a 0a 3b 3b 20 | cute)...(require.'sockets))..;;. |
| 21a960 | 53 6f 66 74 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a | Soft.dependencies..(eval-when.(: |
| 21a980 | 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 | compile-toplevel.:load-toplevel. |
| 21a9a0 | 3a 65 78 65 63 75 74 65 29 0a 20 20 28 77 68 65 6e 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 22 73 | :execute)...(when.(probe-file."s |
| 21a9c0 | 79 73 3a 70 72 6f 66 69 6c 65 2e 66 61 73 22 29 0a 20 20 20 20 28 72 65 71 75 69 72 65 20 3a 70 | ys:profile.fas").....(require.:p |
| 21a9e0 | 72 6f 66 69 6c 65 29 0a 20 20 20 20 28 70 75 73 68 6e 65 77 20 3a 70 72 6f 66 69 6c 65 20 2a 66 | rofile).....(pushnew.:profile.*f |
| 21aa00 | 65 61 74 75 72 65 73 2a 29 29 0a 20 20 28 77 68 65 6e 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 22 | eatures*))...(when.(probe-file." |
| 21aa20 | 73 79 73 3a 73 65 72 76 65 2d 65 76 65 6e 74 2e 66 61 73 22 29 0a 20 20 20 20 28 72 65 71 75 69 | sys:serve-event.fas").....(requi |
| 21aa40 | 72 65 20 3a 73 65 72 76 65 2d 65 76 65 6e 74 29 0a 20 20 20 20 28 70 75 73 68 6e 65 77 20 3a 73 | re.:serve-event).....(pushnew.:s |
| 21aa60 | 65 72 76 65 2d 65 76 65 6e 74 20 2a 66 65 61 74 75 72 65 73 2a 29 29 29 0a 0a 28 64 65 63 6c 61 | erve-event.*features*)))..(decla |
| 21aa80 | 69 6d 20 28 6f 70 74 69 6d 69 7a 65 20 28 64 65 62 75 67 20 33 29 29 29 0a 0a 3b 3b 3b 20 53 77 | im.(optimize.(debug.3)))..;;;.Sw |
| 21aaa0 | 61 6e 6b 2d 6d 6f 70 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f | ank-mop..(eval-when.(:compile-to |
| 21aac0 | 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a | plevel.:load-toplevel.:execute). |
| 21aae0 | 20 20 28 69 6d 70 6f 72 74 2d 73 77 61 6e 6b 2d 6d 6f 70 2d 73 79 6d 62 6f 6c 73 0a 20 20 20 3a | ..(import-swank-mop-symbols....: |
| 21ab00 | 63 6c 6f 73 0a 20 20 20 28 61 6e 64 20 28 3c 20 28 65 63 6c 2d 76 65 72 73 69 6f 6e 29 20 31 32 | clos....(and.(<.(ecl-version).12 |
| 21ab20 | 31 32 30 31 29 0a 20 20 20 20 20 20 20 20 60 28 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 | 1201).........`(:eql-specializer |
| 21ab40 | 0a 20 20 20 20 20 20 20 20 20 20 3a 65 71 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 2d 6f 62 6a 65 | ...........:eql-specializer-obje |
| 21ab60 | 63 74 0a 20 20 20 20 20 20 20 20 20 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 64 | ct...........:generic-function-d |
| 21ab80 | 65 63 6c 61 72 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 3a 73 70 65 63 69 61 6c 69 7a | eclarations...........:specializ |
| 21aba0 | 65 72 2d 64 69 72 65 63 74 2d 6d 65 74 68 6f 64 73 0a 20 20 20 20 20 20 20 20 20 20 2c 40 28 75 | er-direct-methods...........,@(u |
| 21abc0 | 6e 6c 65 73 73 20 28 66 62 6f 75 6e 64 70 20 27 63 6c 6f 73 3a 63 6f 6d 70 75 74 65 2d 61 70 70 | nless.(fboundp.'clos:compute-app |
| 21abe0 | 6c 69 63 61 62 6c 65 2d 6d 65 74 68 6f 64 73 2d 75 73 69 6e 67 2d 63 6c 61 73 73 65 73 29 0a 20 | licable-methods-using-classes).. |
| 21ac00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 63 61 62 | .............'(:compute-applicab |
| 21ac20 | 6c 65 2d 6d 65 74 68 6f 64 73 2d 75 73 69 6e 67 2d 63 6c 61 73 73 65 73 29 29 29 29 29 29 0a 0a | le-methods-using-classes)))))).. |
| 21ac40 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 72 61 79 2d 70 61 63 6b 61 67 65 2d | (defimplementation.gray-package- |
| 21ac60 | 6e 61 6d 65 20 28 29 0a 20 20 22 47 52 41 59 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 55 54 46 38 0a 0a | name.()..."GRAY")....;;;;.UTF8.. |
| 21ac80 | 3b 3b 3b 20 43 6f 6e 76 65 72 74 20 74 68 65 20 73 74 72 69 6e 67 20 53 54 52 49 4e 47 20 74 6f | ;;;.Convert.the.string.STRING.to |
| 21aca0 | 20 61 20 28 73 69 6d 70 6c 65 2d 61 72 72 61 79 20 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 | .a.(simple-array.(unsigned-byte. |
| 21acc0 | 38 29 29 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 73 74 72 69 6e 67 2d 74 6f 2d 75 74 66 38 20 28 73 | 8))..;;;.;;;...string-to-utf8.(s |
| 21ace0 | 74 72 69 6e 67 29 0a 0a 3b 3b 3b 20 43 6f 6e 76 65 72 74 20 74 68 65 20 28 73 69 6d 70 6c 65 2d | tring)..;;;.Convert.the.(simple- |
| 21ad00 | 61 72 72 61 79 20 28 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 20 38 29 29 20 4f 43 54 45 54 53 20 | array.(unsigned-byte.8)).OCTETS. |
| 21ad20 | 74 6f 20 61 20 73 74 72 69 6e 67 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 75 74 66 38 2d 74 6f 2d 73 | to.a.string..;;;.;;;...utf8-to-s |
| 21ad40 | 74 72 69 6e 67 20 28 6f 63 74 65 74 73 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 43 50 20 53 65 72 76 65 | tring.(octets)....;;;;.TCP.Serve |
| 21ad60 | 72 0a 0a 28 64 65 66 75 6e 20 72 65 73 6f 6c 76 65 2d 68 6f 73 74 6e 61 6d 65 20 28 6e 61 6d 65 | r..(defun.resolve-hostname.(name |
| 21ad80 | 29 0a 20 20 28 63 61 72 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 68 6f 73 74 2d 65 6e | )...(car.(sb-bsd-sockets:host-en |
| 21ada0 | 74 2d 61 64 64 72 65 73 73 65 73 0a 20 20 20 20 20 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b | t-addresses.........(sb-bsd-sock |
| 21adc0 | 65 74 73 3a 67 65 74 2d 68 6f 73 74 2d 62 79 2d 6e 61 6d 65 20 6e 61 6d 65 29 29 29 29 0a 0a 28 | ets:get-host-by-name.name))))..( |
| 21ade0 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 | defimplementation.create-socket. |
| 21ae00 | 28 68 6f 73 74 20 70 6f 72 74 20 26 6b 65 79 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 6c 65 74 20 | (host.port.&key.backlog)...(let. |
| 21ae20 | 28 28 73 6f 63 6b 65 74 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 73 62 2d 62 73 64 2d | ((socket.(make-instance.'sb-bsd- |
| 21ae40 | 73 6f 63 6b 65 74 73 3a 69 6e 65 74 2d 73 6f 63 6b 65 74 0a 09 09 09 20 20 20 20 20 20 20 3a 74 | sockets:inet-socket...........:t |
| 21ae60 | 79 70 65 20 3a 73 74 72 65 61 6d 0a 09 09 09 20 20 20 20 20 20 20 3a 70 72 6f 74 6f 63 6f 6c 20 | ype.:stream...........:protocol. |
| 21ae80 | 3a 74 63 70 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 | :tcp))).....(setf.(sb-bsd-socket |
| 21aea0 | 73 3a 73 6f 63 6b 6f 70 74 2d 72 65 75 73 65 2d 61 64 64 72 65 73 73 20 73 6f 63 6b 65 74 29 20 | s:sockopt-reuse-address.socket). |
| 21aec0 | 74 29 0a 20 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 62 69 | t).....(sb-bsd-sockets:socket-bi |
| 21aee0 | 6e 64 20 73 6f 63 6b 65 74 20 28 72 65 73 6f 6c 76 65 2d 68 6f 73 74 6e 61 6d 65 20 68 6f 73 74 | nd.socket.(resolve-hostname.host |
| 21af00 | 29 20 70 6f 72 74 29 0a 20 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b | ).port).....(sb-bsd-sockets:sock |
| 21af20 | 65 74 2d 6c 69 73 74 65 6e 20 73 6f 63 6b 65 74 20 28 6f 72 20 62 61 63 6b 6c 6f 67 20 35 29 29 | et-listen.socket.(or.backlog.5)) |
| 21af40 | 0a 20 20 20 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | .....socket))..(defimplementatio |
| 21af60 | 6e 20 6c 6f 63 61 6c 2d 70 6f 72 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 6e 74 68 2d 76 61 6c | n.local-port.(socket)...(nth-val |
| 21af80 | 75 65 20 31 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 6e 61 6d 65 | ue.1.(sb-bsd-sockets:socket-name |
| 21afa0 | 20 73 6f 63 6b 65 74 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 | .socket)))..(defimplementation.c |
| 21afc0 | 6c 6f 73 65 2d 73 6f 63 6b 65 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 28 73 62 2d 62 73 64 2d 73 | lose-socket.(socket)...(sb-bsd-s |
| 21afe0 | 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 63 6c 6f 73 65 20 73 6f 63 6b 65 74 29 29 0a 0a 28 64 | ockets:socket-close.socket))..(d |
| 21b000 | 65 66 75 6e 20 61 63 63 65 70 74 20 28 73 6f 63 6b 65 74 29 0a 20 20 22 4c 69 6b 65 20 73 6f 63 | efun.accept.(socket)..."Like.soc |
| 21b020 | 6b 65 74 2d 61 63 63 65 70 74 2c 20 62 75 74 20 72 65 74 72 79 20 6f 6e 20 45 41 47 41 49 4e 2e | ket-accept,.but.retry.on.EAGAIN. |
| 21b040 | 22 0a 20 20 28 6c 6f 6f 70 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 | "...(loop.(handler-case......... |
| 21b060 | 20 20 20 20 28 72 65 74 75 72 6e 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b | ....(return.(sb-bsd-sockets:sock |
| 21b080 | 65 74 2d 61 63 63 65 70 74 20 73 6f 63 6b 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 62 | et-accept.socket))...........(sb |
| 21b0a0 | 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 69 6e 74 65 72 72 75 70 74 65 64 2d 65 72 72 6f 72 20 28 | -bsd-sockets:interrupted-error.( |
| 21b0c0 | 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 63 63 65 70 74 | )))))..(defimplementation.accept |
| 21b0e0 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 73 6f 63 6b 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -connection.(socket............. |
| 21b100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 65 | ..........................&key.e |
| 21b120 | 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | xternal-format.................. |
| 21b140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 69 6e 67 20 74 | .....................buffering.t |
| 21b160 | 69 6d 65 6f 75 74 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 74 69 6d 65 6f | imeout)...(declare.(ignore.timeo |
| 21b180 | 75 74 29 29 0a 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 6d 61 | ut))...(sb-bsd-sockets:socket-ma |
| 21b1a0 | 6b 65 2d 73 74 72 65 61 6d 20 28 61 63 63 65 70 74 20 73 6f 63 6b 65 74 29 0a 20 20 20 20 20 20 | ke-stream.(accept.socket)....... |
| 21b1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ...............................: |
| 21b1e0 | 6f 75 74 70 75 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | output.t........................ |
| 21b200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 70 75 74 20 74 0a 20 20 20 20 20 20 20 20 20 | ..............:input.t.......... |
| 21b220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 75 66 | ............................:buf |
| 21b240 | 66 65 72 69 6e 67 20 28 65 63 61 73 65 20 62 75 66 66 65 72 69 6e 67 0a 20 20 20 20 20 20 20 20 | fering.(ecase.buffering......... |
| 21b260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 21b280 | 20 20 20 20 20 20 20 20 20 20 28 28 74 29 20 3a 66 75 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | ..........((t).:full)........... |
| 21b2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 21b2c0 | 20 20 20 20 20 20 20 20 28 28 6e 69 6c 29 20 3a 6e 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ........((nil).:none)........... |
| 21b2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 21b300 | 20 20 20 20 20 20 20 20 28 3a 6c 69 6e 65 20 3a 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 | ........(:line.:line)).......... |
| 21b320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 | ............................:ele |
| 21b340 | 6d 65 6e 74 2d 74 79 70 65 20 28 69 66 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 0a 20 20 | ment-type.(if.external-format... |
| 21b360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 21b380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 68 61 72 61 63 74 65 72 20 | .....................'character. |
| 21b3a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 21b3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 75 6e 73 69 67 6e | ........................'(unsign |
| 21b3e0 | 65 64 2d 62 79 74 65 20 38 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-byte.8))..................... |
| 21b400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 | .................:external-forma |
| 21b420 | 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 0a 0a 3b 3b 3b 20 43 61 6c 6c 20 46 4e | t.external-format))..;;;.Call.FN |
| 21b440 | 20 77 68 65 6e 65 76 65 72 20 53 4f 43 4b 45 54 20 69 73 20 72 65 61 64 61 62 6c 65 2e 0a 3b 3b | .whenever.SOCKET.is.readable..;; |
| 21b460 | 3b 0a 3b 3b 3b 20 20 20 61 64 64 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 20 28 73 6f 63 6b 65 | ;.;;;...add-sigio-handler.(socke |
| 21b480 | 74 20 66 6e 29 0a 0a 3b 3b 3b 20 52 65 6d 6f 76 65 20 61 6c 6c 20 73 69 67 69 6f 20 68 61 6e 64 | t.fn)..;;;.Remove.all.sigio.hand |
| 21b4a0 | 6c 65 72 73 20 66 6f 72 20 53 4f 43 4b 45 54 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 72 65 6d 6f 76 | lers.for.SOCKET..;;;.;;;...remov |
| 21b4c0 | 65 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 20 28 73 6f 63 6b 65 74 29 0a 0a 3b 3b 3b 20 43 | e-sigio-handlers.(socket)..;;;.C |
| 21b4e0 | 61 6c 6c 20 46 4e 20 77 68 65 6e 20 4c 69 73 70 20 69 73 20 77 61 69 74 69 6e 67 20 66 6f 72 20 | all.FN.when.Lisp.is.waiting.for. |
| 21b500 | 69 6e 70 75 74 20 61 6e 64 20 53 4f 43 4b 45 54 20 69 73 20 72 65 61 64 61 62 6c 65 2e 0a 3b 3b | input.and.SOCKET.is.readable..;; |
| 21b520 | 3b 0a 3b 3b 3b 20 20 20 61 64 64 2d 66 64 2d 68 61 6e 64 6c 65 72 20 28 73 6f 63 6b 65 74 20 66 | ;.;;;...add-fd-handler.(socket.f |
| 21b540 | 6e 29 0a 0a 3b 3b 3b 20 52 65 6d 6f 76 65 20 61 6c 6c 20 66 64 2d 68 61 6e 64 6c 65 72 73 20 66 | n)..;;;.Remove.all.fd-handlers.f |
| 21b560 | 6f 72 20 53 4f 43 4b 45 54 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 72 65 6d 6f 76 65 2d 66 64 2d 68 | or.SOCKET..;;;.;;;...remove-fd-h |
| 21b580 | 61 6e 64 6c 65 72 73 20 28 73 6f 63 6b 65 74 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | andlers.(socket)..(defimplementa |
| 21b5a0 | 74 69 6f 6e 20 70 72 65 66 65 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 | tion.preferred-communication-sty |
| 21b5c0 | 6c 65 20 28 29 0a 20 20 28 63 6f 6e 64 0a 20 20 20 20 28 28 6d 65 6d 62 65 72 20 3a 74 68 72 65 | le.()...(cond.....((member.:thre |
| 21b5e0 | 61 64 73 20 2a 66 65 61 74 75 72 65 73 2a 29 20 3a 73 70 61 77 6e 29 0a 20 20 20 20 28 28 6d 65 | ads.*features*).:spawn).....((me |
| 21b600 | 6d 62 65 72 20 3a 77 69 6e 64 6f 77 73 20 2a 66 65 61 74 75 72 65 73 2a 29 20 6e 69 6c 29 0a 20 | mber.:windows.*features*).nil).. |
| 21b620 | 20 20 20 28 74 20 23 7c 3a 66 64 2d 68 61 6e 64 6c 65 72 7c 23 20 6e 69 6c 29 29 29 0a 0a 3b 3b | ...(t.#|:fd-handler|#.nil)))..;; |
| 21b640 | 3b 20 53 65 74 20 74 68 65 20 27 73 74 72 65 61 6d 20 27 74 69 6d 65 6f 75 74 2e 20 20 54 68 65 | ;.Set.the.'stream.'timeout...The |
| 21b660 | 20 74 69 6d 65 6f 75 74 20 69 73 20 65 69 74 68 65 72 20 74 68 65 20 72 65 61 6c 20 6e 75 6d 62 | .timeout.is.either.the.real.numb |
| 21b680 | 65 72 0a 3b 3b 3b 20 73 70 65 63 69 66 79 69 6e 67 20 74 68 65 20 74 69 6d 65 6f 75 74 20 69 6e | er.;;;.specifying.the.timeout.in |
| 21b6a0 | 20 73 65 63 6f 6e 64 73 20 6f 72 20 27 6e 69 6c 20 66 6f 72 20 6e 6f 20 74 69 6d 65 6f 75 74 2e | .seconds.or.'nil.for.no.timeout. |
| 21b6c0 | 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 73 65 74 2d 73 74 72 65 61 6d 2d 74 69 6d 65 6f 75 74 20 28 73 | .;;;.;;;...set-stream-timeout.(s |
| 21b6e0 | 74 72 65 61 6d 20 74 69 6d 65 6f 75 74 29 0a 0a 0a 3b 3b 3b 20 48 6f 6f 6b 20 63 61 6c 6c 65 64 | tream.timeout)...;;;.Hook.called |
| 21b700 | 20 77 68 65 6e 20 74 68 65 20 66 69 72 73 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 72 6f 6d 20 | .when.the.first.connection.from. |
| 21b720 | 45 6d 61 63 73 20 69 73 20 65 73 74 61 62 6c 69 73 68 65 64 2e 0a 3b 3b 3b 20 43 61 6c 6c 65 64 | Emacs.is.established..;;;.Called |
| 21b740 | 20 66 72 6f 6d 20 74 68 65 20 49 4e 49 54 2d 46 4e 20 6f 66 20 74 68 65 20 73 6f 63 6b 65 74 20 | .from.the.INIT-FN.of.the.socket. |
| 21b760 | 73 65 72 76 65 72 20 74 68 61 74 20 61 63 63 65 70 74 73 20 74 68 65 0a 3b 3b 3b 20 63 6f 6e 6e | server.that.accepts.the.;;;.conn |
| 21b780 | 65 63 74 69 6f 6e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 69 73 20 69 6e 74 65 6e 64 65 64 | ection..;;;.;;;.This.is.intended |
| 21b7a0 | 20 66 6f 72 20 73 65 74 74 69 6e 67 20 75 70 20 65 78 74 72 61 20 63 6f 6e 74 65 78 74 2c 20 65 | .for.setting.up.extra.context,.e |
| 21b7c0 | 2e 67 2e 20 74 6f 20 64 69 73 63 6f 76 65 72 0a 3b 3b 3b 20 74 68 61 74 20 74 68 65 20 63 61 6c | .g..to.discover.;;;.that.the.cal |
| 21b7e0 | 6c 69 6e 67 20 74 68 72 65 61 64 20 69 73 20 74 68 65 20 6f 6e 65 20 74 68 61 74 20 69 6e 74 65 | ling.thread.is.the.one.that.inte |
| 21b800 | 72 61 63 74 73 20 77 69 74 68 20 45 6d 61 63 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 65 6d 61 63 | racts.with.Emacs..;;;.;;;...emac |
| 21b820 | 73 2d 63 6f 6e 6e 65 63 74 65 64 20 28 29 0a 0a 0c 0a 3b 3b 3b 3b 20 55 6e 69 78 20 49 6e 74 65 | s-connected.()....;;;;.Unix.Inte |
| 21b840 | 67 72 61 74 69 6f 6e 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65 74 70 | gration..(defimplementation.getp |
| 21b860 | 69 64 20 28 29 0a 20 20 28 73 69 3a 67 65 74 70 69 64 29 29 0a 0a 3b 3b 3b 20 43 61 6c 6c 20 46 | id.()...(si:getpid))..;;;.Call.F |
| 21b880 | 55 4e 43 54 49 4f 4e 20 6f 6e 20 53 49 47 49 4e 54 20 28 69 6e 73 74 65 61 64 20 6f 66 20 69 6e | UNCTION.on.SIGINT.(instead.of.in |
| 21b8a0 | 76 6f 6b 69 6e 67 20 74 68 65 20 64 65 62 75 67 67 65 72 29 2e 0a 3b 3b 3b 20 52 65 74 75 72 6e | voking.the.debugger)..;;;.Return |
| 21b8c0 | 20 6f 6c 64 20 73 69 67 6e 61 6c 20 68 61 6e 64 6c 65 72 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 69 | .old.signal.handler..;;;.;;;...i |
| 21b8e0 | 6e 73 74 61 6c 6c 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 28 66 75 6e 63 74 69 6f 6e 29 | nstall-sigint-handler.(function) |
| 21b900 | 0a 0a 3b 3b 3b 20 58 58 58 21 0a 3b 3b 3b 20 49 66 20 45 43 4c 20 69 73 20 62 75 69 6c 74 20 77 | ..;;;.XXX!.;;;.If.ECL.is.built.w |
| 21b920 | 69 74 68 20 74 68 72 65 61 64 20 73 75 70 70 6f 72 74 2c 20 69 74 27 6c 6c 20 73 70 61 77 6e 20 | ith.thread.support,.it'll.spawn. |
| 21b940 | 61 20 68 65 6c 70 65 72 20 74 68 72 65 61 64 0a 3b 3b 3b 20 65 78 65 63 75 74 69 6e 67 20 74 68 | a.helper.thread.;;;.executing.th |
| 21b960 | 65 20 53 49 47 49 4e 54 20 68 61 6e 64 6c 65 72 2e 20 57 65 20 64 6f 20 6e 6f 74 20 77 61 6e 74 | e.SIGINT.handler..We.do.not.want |
| 21b980 | 20 74 6f 20 42 52 45 41 4b 20 69 6e 74 6f 20 74 68 61 74 0a 3b 3b 3b 20 68 65 6c 70 65 72 20 62 | .to.BREAK.into.that.;;;.helper.b |
| 21b9a0 | 75 74 20 69 6e 74 6f 20 74 68 65 20 6d 61 69 6e 20 74 68 72 65 61 64 2c 20 74 68 6f 75 67 68 2e | ut.into.the.main.thread,.though. |
| 21b9c0 | 20 54 68 69 73 20 69 73 20 63 6f 75 70 6c 65 64 20 77 69 74 68 20 74 68 65 0a 3b 3b 3b 20 63 75 | .This.is.coupled.with.the.;;;.cu |
| 21b9e0 | 72 72 65 6e 74 20 63 68 6f 69 63 65 20 6f 66 20 4e 49 4c 20 61 73 20 63 6f 6d 6d 75 6e 69 63 61 | rrent.choice.of.NIL.as.communica |
| 21ba00 | 74 69 6f 6e 2d 73 74 79 6c 65 20 69 6e 20 73 6f 20 66 61 72 20 61 73 20 45 43 4c 27 73 0a 3b 3b | tion-style.in.so.far.as.ECL's.;; |
| 21ba20 | 3b 20 6d 61 69 6e 2d 74 68 72 65 61 64 20 69 73 20 61 6c 73 6f 20 74 68 65 20 53 6c 69 6d 65 27 | ;.main-thread.is.also.the.Slime' |
| 21ba40 | 73 20 52 45 50 4c 20 74 68 72 65 61 64 2e 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 69 6e 74 65 | s.REPL.thread...(defun.make-inte |
| 21ba60 | 72 72 75 70 74 2d 68 61 6e 64 6c 65 72 20 28 72 65 61 6c 2d 68 61 6e 64 6c 65 72 29 0a 20 20 23 | rrupt-handler.(real-handler)...# |
| 21ba80 | 2b 74 68 72 65 61 64 73 0a 20 20 28 6c 65 74 20 28 28 6d 61 69 6e 2d 74 68 72 65 61 64 20 28 66 | +threads...(let.((main-thread.(f |
| 21baa0 | 69 6e 64 20 27 73 69 3a 74 6f 70 2d 6c 65 76 65 6c 20 28 6d 70 3a 61 6c 6c 2d 70 72 6f 63 65 73 | ind.'si:top-level.(mp:all-proces |
| 21bac0 | 73 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ses)............................ |
| 21bae0 | 3a 6b 65 79 20 23 27 6d 70 3a 70 72 6f 63 65 73 73 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 23 27 | :key.#'mp:process-name))).....#' |
| 21bb00 | 28 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 28 64 65 | (lambda.(&rest.args).........(de |
| 21bb20 | 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 28 6d 70 | clare.(ignore.args)).........(mp |
| 21bb40 | 3a 69 6e 74 65 72 72 75 70 74 2d 70 72 6f 63 65 73 73 20 6d 61 69 6e 2d 74 68 72 65 61 64 20 72 | :interrupt-process.main-thread.r |
| 21bb60 | 65 61 6c 2d 68 61 6e 64 6c 65 72 29 29 29 0a 20 20 23 2d 74 68 72 65 61 64 73 0a 20 20 23 27 28 | eal-handler)))...#-threads...#'( |
| 21bb80 | 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 28 64 65 63 6c 61 | lambda.(&rest.args).......(decla |
| 21bba0 | 72 65 20 28 69 67 6e 6f 72 65 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c | re.(ignore.args)).......(funcall |
| 21bbc0 | 20 72 65 61 6c 2d 68 61 6e 64 6c 65 72 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 | .real-handler)))..(defimplementa |
| 21bbe0 | 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 75 73 65 72 2d 62 72 65 61 6b 2d 68 61 6e 64 6c 65 | tion.call-with-user-break-handle |
| 21bc00 | 72 20 28 72 65 61 6c 2d 68 61 6e 64 6c 65 72 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 6c 65 74 | r.(real-handler.function)...(let |
| 21bc20 | 20 28 28 6f 6c 64 2d 68 61 6e 64 6c 65 72 20 23 27 73 69 3a 74 65 72 6d 69 6e 61 6c 2d 69 6e 74 | .((old-handler.#'si:terminal-int |
| 21bc40 | 65 72 72 75 70 74 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 | errupt)).....(setf.(symbol-funct |
| 21bc60 | 69 6f 6e 20 27 73 69 3a 74 65 72 6d 69 6e 61 6c 2d 69 6e 74 65 72 72 75 70 74 29 0a 20 20 20 20 | ion.'si:terminal-interrupt)..... |
| 21bc80 | 20 20 20 20 20 20 28 6d 61 6b 65 2d 69 6e 74 65 72 72 75 70 74 2d 68 61 6e 64 6c 65 72 20 72 65 | ......(make-interrupt-handler.re |
| 21bca0 | 61 6c 2d 68 61 6e 64 6c 65 72 29 29 0a 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 | al-handler)).....(unwind-protect |
| 21bcc0 | 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 | .(funcall.function).......(setf. |
| 21bce0 | 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 73 69 3a 74 65 72 6d 69 6e 61 6c 2d 69 6e | (symbol-function.'si:terminal-in |
| 21bd00 | 74 65 72 72 75 70 74 29 20 6f 6c 64 2d 68 61 6e 64 6c 65 72 29 29 29 29 0a 0a 28 64 65 66 69 6d | terrupt).old-handler))))..(defim |
| 21bd20 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 71 75 69 74 2d 6c 69 73 70 20 28 29 0a 20 20 28 65 78 74 | plementation.quit-lisp.()...(ext |
| 21bd40 | 3a 71 75 69 74 29 29 0a 0a 3b 3b 3b 20 44 65 66 61 75 6c 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 | :quit))..;;;.Default.implementat |
| 21bd60 | 69 6f 6e 20 69 73 20 66 69 6e 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 6c 69 73 70 2d 69 6d 70 6c | ion.is.fine..;;;.;;;...lisp-impl |
| 21bd80 | 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 0a 3b 3b 3b 20 20 20 6c 69 73 70 2d | ementation-type-name.;;;...lisp- |
| 21bda0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 70 72 6f 67 72 61 6d 0a 0a 28 64 65 66 69 6d 70 6c | implementation-program..(defimpl |
| 21bdc0 | 65 6d 65 6e 74 61 74 69 6f 6e 20 73 6f 63 6b 65 74 2d 66 64 20 28 73 6f 63 6b 65 74 29 0a 20 20 | ementation.socket-fd.(socket)... |
| 21bde0 | 28 65 74 79 70 65 63 61 73 65 20 73 6f 63 6b 65 74 0a 20 20 20 20 28 66 69 78 6e 75 6d 20 73 6f | (etypecase.socket.....(fixnum.so |
| 21be00 | 63 6b 65 74 29 0a 20 20 20 20 28 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 20 28 73 6f 63 6b 65 | cket).....(two-way-stream.(socke |
| 21be20 | 74 2d 66 64 20 28 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 2d 69 6e 70 75 74 2d 73 74 72 65 61 | t-fd.(two-way-stream-input-strea |
| 21be40 | 6d 20 73 6f 63 6b 65 74 29 29 29 0a 20 20 20 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a | m.socket))).....(sb-bsd-sockets: |
| 21be60 | 73 6f 63 6b 65 74 20 28 73 62 2d 62 73 64 2d 73 6f 63 6b 65 74 73 3a 73 6f 63 6b 65 74 2d 66 69 | socket.(sb-bsd-sockets:socket-fi |
| 21be80 | 6c 65 2d 64 65 73 63 72 69 70 74 6f 72 20 73 6f 63 6b 65 74 29 29 0a 20 20 20 20 28 66 69 6c 65 | le-descriptor.socket)).....(file |
| 21bea0 | 2d 73 74 72 65 61 6d 20 28 73 69 3a 66 69 6c 65 2d 73 74 72 65 61 6d 2d 66 64 20 73 6f 63 6b 65 | -stream.(si:file-stream-fd.socke |
| 21bec0 | 74 29 29 29 29 0a 0a 3b 3b 3b 20 43 72 65 61 74 65 20 61 20 63 68 61 72 61 63 74 65 72 20 73 74 | t))))..;;;.Create.a.character.st |
| 21bee0 | 72 65 61 6d 20 66 6f 72 20 74 68 65 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 46 44 2e | ream.for.the.file.descriptor.FD. |
| 21bf00 | 20 54 68 69 73 0a 3b 3b 3b 20 69 6e 74 65 72 66 61 63 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | .This.;;;.interface.implementati |
| 21bf20 | 6f 6e 20 72 65 71 75 69 72 65 73 20 65 69 74 68 65 72 20 60 66 66 69 3a 63 2d 69 6e 6c 69 6e 65 | on.requires.either.`ffi:c-inline |
| 21bf40 | 27 20 6f 72 20 68 61 73 20 74 6f 0a 3b 3b 3b 20 77 61 69 74 20 66 6f 72 20 74 68 65 20 65 78 70 | '.or.has.to.;;;.wait.for.the.exp |
| 21bf60 | 6f 72 74 65 64 20 69 6e 74 65 72 66 61 63 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 6d 61 6b 65 2d | orted.interface..;;;.;;;...make- |
| 21bf80 | 66 64 2d 73 74 72 65 61 6d 20 28 73 6f 63 6b 65 74 2d 73 74 72 65 61 6d 29 0a 0a 3b 3b 3b 20 44 | fd-stream.(socket-stream)..;;;.D |
| 21bfa0 | 75 70 6c 69 63 61 74 65 20 61 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 2e 20 49 66 20 74 | uplicate.a.file.descriptor..If.t |
| 21bfc0 | 68 65 20 73 79 73 63 61 6c 6c 20 66 61 69 6c 73 2c 20 73 69 67 6e 61 6c 20 61 0a 3b 3b 3b 20 63 | he.syscall.fails,.signal.a.;;;.c |
| 21bfe0 | 6f 6e 64 69 74 69 6f 6e 2e 20 53 65 65 20 64 75 70 28 32 29 2e 20 54 68 69 73 20 69 6e 74 65 72 | ondition..See.dup(2)..This.inter |
| 21c000 | 66 61 63 65 20 72 65 71 75 69 65 72 73 20 60 66 66 69 3a 63 2d 69 6e 6c 69 6e 65 27 20 6f 72 0a | face.requiers.`ffi:c-inline'.or. |
| 21c020 | 3b 3b 3b 20 68 61 73 20 74 6f 20 77 61 69 74 20 66 6f 72 20 74 68 65 20 65 78 70 6f 72 74 65 64 | ;;;.has.to.wait.for.the.exported |
| 21c040 | 20 69 6e 74 65 72 66 61 63 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 64 75 70 20 28 66 64 29 0a 0a | .interface..;;;.;;;...dup.(fd).. |
| 21c060 | 3b 3b 3b 20 44 6f 65 73 20 6e 6f 74 20 61 70 70 6c 79 20 74 6f 20 45 43 4c 20 77 68 69 63 68 20 | ;;;.Does.not.apply.to.ECL.which. |
| 21c080 | 64 6f 65 73 6e 27 74 20 64 75 6d 70 20 69 6d 61 67 65 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 65 | doesn't.dump.images..;;;.;;;...e |
| 21c0a0 | 78 65 63 2d 69 6d 61 67 65 20 28 69 6d 61 67 65 2d 66 69 6c 65 20 61 72 67 73 29 0a 0a 28 64 65 | xec-image.(image-file.args)..(de |
| 21c0c0 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 | fimplementation.command-line-arg |
| 21c0e0 | 73 20 28 29 0a 20 20 28 65 78 74 3a 63 6f 6d 6d 61 6e 64 2d 61 72 67 73 29 29 0a 0a 0c 0a 3b 3b | s.()...(ext:command-args))....;; |
| 21c100 | 3b 3b 20 70 61 74 68 6e 61 6d 65 73 0a 0a 3b 3b 3b 20 52 65 74 75 72 6e 20 61 20 70 61 74 68 6e | ;;.pathnames..;;;.Return.a.pathn |
| 21c120 | 61 6d 65 20 66 6f 72 20 46 49 4c 45 4e 41 4d 45 2e 0a 3b 3b 3b 20 41 20 66 69 6c 65 6e 61 6d 65 | ame.for.FILENAME..;;;.A.filename |
| 21c140 | 20 69 6e 20 45 6d 61 63 73 20 6d 61 79 20 66 6f 72 20 65 78 61 6d 70 6c 65 20 63 6f 6e 74 61 69 | .in.Emacs.may.for.example.contai |
| 21c160 | 6e 20 61 73 74 65 72 69 73 6b 73 20 77 68 69 63 68 20 73 68 6f 75 6c 64 20 6e 6f 74 0a 3b 3b 3b | n.asterisks.which.should.not.;;; |
| 21c180 | 20 62 65 20 74 72 61 6e 73 6c 61 74 65 64 20 74 6f 20 77 69 6c 64 63 61 72 64 73 2e 0a 3b 3b 3b | .be.translated.to.wildcards..;;; |
| 21c1a0 | 0a 3b 3b 3b 20 20 20 66 69 6c 65 6e 61 6d 65 2d 74 6f 2d 70 61 74 68 6e 61 6d 65 20 28 66 69 6c | .;;;...filename-to-pathname.(fil |
| 21c1c0 | 65 6e 61 6d 65 29 0a 0a 3b 3b 3b 20 52 65 74 75 72 6e 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20 | ename)..;;;.Return.the.filename. |
| 21c1e0 | 66 6f 72 20 50 41 54 48 4e 41 4d 45 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 70 61 74 68 6e 61 6d 65 | for.PATHNAME..;;;.;;;...pathname |
| 21c200 | 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 20 28 70 61 74 68 6e 61 6d 65 29 0a 0a 28 64 65 66 69 6d 70 | -to-filename.(pathname)..(defimp |
| 21c220 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 29 | lementation.default-directory.() |
| 21c240 | 0a 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 65 78 74 3a 67 65 74 63 77 64 29 29 29 0a 0a 28 | ...(namestring.(ext:getcwd)))..( |
| 21c260 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 | defimplementation.set-default-di |
| 21c280 | 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 65 78 74 3a 63 68 64 69 72 | rectory.(directory)...(ext:chdir |
| 21c2a0 | 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 64 69 72 65 63 74 6f 72 79 29 29 20 3b 20 61 64 61 70 74 | .(namestring.directory)).;.adapt |
| 21c2c0 | 73 20 2a 44 45 46 41 55 4c 54 2d 50 41 54 48 4e 41 4d 45 2d 44 45 46 41 55 4c 54 53 2a 2e 0a 20 | s.*DEFAULT-PATHNAME-DEFAULTS*... |
| 21c2e0 | 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 0a 0c 0a 3b 3b 3b 20 43 61 6c | .(default-directory))....;;;.Cal |
| 21c300 | 6c 20 46 4e 20 77 69 74 68 20 68 6f 6f 6b 73 20 74 6f 20 68 61 6e 64 6c 65 20 73 70 65 63 69 61 | l.FN.with.hooks.to.handle.specia |
| 21c320 | 6c 20 73 79 6e 74 61 78 2e 20 43 61 6e 20 77 65 20 75 73 65 20 69 74 20 66 6f 72 0a 3b 3b 3b 20 | l.syntax..Can.we.use.it.for.;;;. |
| 21c340 | 60 66 66 69 3a 63 2d 69 6e 6c 69 6e 65 27 20 74 6f 20 62 65 20 68 61 6e 64 6c 65 64 20 61 73 20 | `ffi:c-inline'.to.be.handled.as. |
| 21c360 | 43 2f 43 2b 2b 20 63 6f 64 65 3f 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 63 61 6c 6c 2d 77 69 74 68 2d | C/C++.code?.;;;.;;;...call-with- |
| 21c380 | 73 79 6e 74 61 78 2d 68 6f 6f 6b 73 0a 0c 0a 3b 3b 3b 3b 20 50 61 63 6b 61 67 65 73 0a 0a 23 2b | syntax-hooks...;;;;.Packages..#+ |
| 21c3a0 | 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d 65 73 0a 28 64 65 66 69 6d 70 6c | package-local-nicknames.(defimpl |
| 21c3c0 | 65 6d 65 6e 74 61 74 69 6f 6e 20 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 2d 6e 69 63 6b 6e 61 6d | ementation.package-local-nicknam |
| 21c3e0 | 65 73 20 28 70 61 63 6b 61 67 65 29 0a 20 20 28 65 78 74 3a 70 61 63 6b 61 67 65 2d 6c 6f 63 61 | es.(package)...(ext:package-loca |
| 21c400 | 6c 2d 6e 69 63 6b 6e 61 6d 65 73 20 70 61 63 6b 61 67 65 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 6f | l-nicknames.package))....;;;;.Co |
| 21c420 | 6d 70 69 6c 61 74 69 6f 6e 0a 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a | mpilation..(defvar.*buffer-name* |
| 21c440 | 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 | .nil).(defvar.*buffer-start-posi |
| 21c460 | 74 69 6f 6e 2a 29 0a 0a 28 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 | tion*)..(defun.signal-compiler-c |
| 21c480 | 6f 6e 64 69 74 69 6f 6e 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 | ondition.(&rest.args)...(apply.# |
| 21c4a0 | 27 73 69 67 6e 61 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 61 72 67 73 | 'signal.'compiler-condition.args |
| 21c4c0 | 29 29 0a 0a 23 2d 65 63 6c 2d 62 79 74 65 63 6d 70 0a 28 64 65 66 75 6e 20 68 61 6e 64 6c 65 2d | ))..#-ecl-bytecmp.(defun.handle- |
| 21c4e0 | 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 61 67 65 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 3b | compiler-message.(condition)...; |
| 21c500 | 3b 20 45 43 4c 20 65 6d 69 74 73 20 6c 6f 74 73 20 6f 66 20 6e 6f 69 73 65 20 69 6e 20 63 6f 6d | ;.ECL.emits.lots.of.noise.in.com |
| 21c520 | 70 69 6c 65 72 2d 6e 6f 74 65 73 2c 20 6c 69 6b 65 20 22 49 6e 76 6f 6b 69 6e 67 0a 20 20 3b 3b | piler-notes,.like."Invoking...;; |
| 21c540 | 20 65 78 74 65 72 6e 61 6c 20 63 6f 6d 6d 61 6e 64 22 2e 0a 20 20 28 75 6e 6c 65 73 73 20 28 74 | .external.command"....(unless.(t |
| 21c560 | 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 63 3a 3a 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 | ypep.condition.'c::compiler-note |
| 21c580 | 29 0a 20 20 20 20 28 73 69 67 6e 61 6c 2d 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e | ).....(signal-compiler-condition |
| 21c5a0 | 0a 20 20 20 20 20 3a 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 | ......:original-condition.condit |
| 21c5c0 | 69 6f 6e 0a 20 20 20 20 20 3a 6d 65 73 73 61 67 65 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 | ion......:message.(princ-to-stri |
| 21c5e0 | 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 3a 73 65 76 65 72 69 74 79 20 28 65 74 | ng.condition)......:severity.(et |
| 21c600 | 79 70 65 63 61 73 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ypecase.condition............... |
| 21c620 | 20 20 20 28 63 3a 63 6f 6d 70 69 6c 65 72 2d 66 61 74 61 6c 2d 65 72 72 6f 72 20 3a 65 72 72 6f | ...(c:compiler-fatal-error.:erro |
| 21c640 | 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 3a 63 6f 6d 70 69 6c 65 72 2d | r)..................(c:compiler- |
| 21c660 | 65 72 72 6f 72 20 20 20 20 20 20 20 3a 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | error.......:error)............. |
| 21c680 | 20 20 20 20 20 28 65 72 72 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 72 | .....(error..................:er |
| 21c6a0 | 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 79 6c 65 2d 77 61 72 | ror)..................(style-war |
| 21c6c0 | 6e 69 6e 67 20 20 20 20 20 20 20 20 20 20 3a 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 29 0a 20 20 | ning..........:style-warning)... |
| 21c6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 69 6e 67 20 20 20 20 20 20 20 20 20 | ...............(warning......... |
| 21c700 | 20 20 20 20 20 20 20 3a 77 61 72 6e 69 6e 67 29 29 0a 20 20 20 20 20 3a 6c 6f 63 61 74 69 6f 6e | .......:warning))......:location |
| 21c720 | 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 | .(condition-location.condition)) |
| 21c740 | 29 29 0a 0a 23 2d 65 63 6c 2d 62 79 74 65 63 6d 70 0a 28 64 65 66 75 6e 20 63 6f 6e 64 69 74 69 | ))..#-ecl-bytecmp.(defun.conditi |
| 21c760 | 6f 6e 2d 6c 6f 63 61 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 | on-location.(condition)...(let.( |
| 21c780 | 28 66 69 6c 65 20 20 20 20 20 28 63 3a 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 61 67 65 2d 66 69 | (file.....(c:compiler-message-fi |
| 21c7a0 | 6c 65 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 70 6f 73 69 74 69 6f 6e | le.condition)).........(position |
| 21c7c0 | 20 28 63 3a 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 61 67 65 2d 66 69 6c 65 2d 70 6f 73 69 74 69 | .(c:compiler-message-file-positi |
| 21c7e0 | 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 70 6f 73 | on.condition))).....(if.(and.pos |
| 21c800 | 69 74 69 6f 6e 20 28 6e 6f 74 20 28 6d 69 6e 75 73 70 20 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 | ition.(not.(minusp.position))).. |
| 21c820 | 20 20 20 20 20 20 20 28 69 66 20 2a 62 75 66 66 65 72 2d 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 | .......(if.*buffer-name*........ |
| 21c840 | 20 20 20 20 20 28 6d 61 6b 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 74 69 6f 6e 20 2a 62 75 66 66 | .....(make-buffer-location.*buff |
| 21c860 | 65 72 2d 6e 61 6d 65 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er-name*........................ |
| 21c880 | 20 20 20 20 20 20 20 20 20 20 20 2a 62 75 66 66 65 72 2d 73 74 61 72 74 2d 70 6f 73 69 74 69 6f | ...........*buffer-start-positio |
| 21c8a0 | 6e 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n*.............................. |
| 21c8c0 | 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 | .....position).............(make |
| 21c8e0 | 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 69 6c 65 20 70 6f 73 69 74 69 6f 6e 29 29 0a 20 | -file-location.file.position)).. |
| 21c900 | 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 22 4e 6f 20 | .......(make-error-location."No. |
| 21c920 | 6c 6f 63 61 74 69 6f 6e 20 66 6f 75 6e 64 2e 22 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d | location.found."))))..(defimplem |
| 21c940 | 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 | entation.call-with-compilation-h |
| 21c960 | 6f 6f 6b 73 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 23 2b 65 63 6c 2d 62 79 74 65 63 6d 70 0a | ooks.(function)...#+ecl-bytecmp. |
| 21c980 | 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 23 2d 65 63 6c 2d 62 79 74 | ..(funcall.function)...#-ecl-byt |
| 21c9a0 | 65 63 6d 70 0a 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 63 3a 63 6f 6d 70 69 6c 65 | ecmp...(handler-bind.((c:compile |
| 21c9c0 | 72 2d 6d 65 73 73 61 67 65 20 23 27 68 61 6e 64 6c 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 65 73 73 | r-message.#'handle-compiler-mess |
| 21c9e0 | 61 67 65 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a | age)).....(funcall.function))).. |
| 21ca00 | 28 64 65 66 76 61 72 20 2a 74 6d 70 66 69 6c 65 2d 6d 61 70 2a 20 28 6d 61 6b 65 2d 68 61 73 68 | (defvar.*tmpfile-map*.(make-hash |
| 21ca20 | 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 0a 28 64 65 66 75 6e 20 6e | -table.:test.#'equal))..(defun.n |
| 21ca40 | 6f 74 65 2d 62 75 66 66 65 72 2d 74 6d 70 66 69 6c 65 20 28 74 6d 70 2d 66 69 6c 65 20 62 75 66 | ote-buffer-tmpfile.(tmp-file.buf |
| 21ca60 | 66 65 72 2d 6e 61 6d 65 29 0a 20 20 3b 3b 20 45 58 54 3a 43 4f 4d 50 49 4c 45 44 2d 46 55 4e 43 | fer-name)...;;.EXT:COMPILED-FUNC |
| 21ca80 | 54 49 4f 4e 2d 46 49 4c 45 20 62 65 6c 6f 77 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 61 20 6e 61 | TION-FILE.below.will.return.a.na |
| 21caa0 | 6d 65 73 74 72 69 6e 67 2e 0a 20 20 28 6c 65 74 20 28 28 74 6d 70 2d 6e 61 6d 65 73 74 72 69 6e | mestring....(let.((tmp-namestrin |
| 21cac0 | 67 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 75 65 6e 61 6d 65 20 74 6d 70 2d 66 69 6c 65 | g.(namestring.(truename.tmp-file |
| 21cae0 | 29 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 74 6d 70 2d 6e 61 6d 65 | )))).....(setf.(gethash.tmp-name |
| 21cb00 | 73 74 72 69 6e 67 20 2a 74 6d 70 66 69 6c 65 2d 6d 61 70 2a 29 20 62 75 66 66 65 72 2d 6e 61 6d | string.*tmpfile-map*).buffer-nam |
| 21cb20 | 65 29 0a 20 20 20 20 74 6d 70 2d 6e 61 6d 65 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 75 6e 20 | e).....tmp-namestring))..(defun. |
| 21cb40 | 74 6d 70 66 69 6c 65 2d 74 6f 2d 62 75 66 66 65 72 20 28 74 6d 70 2d 66 69 6c 65 29 0a 20 20 28 | tmpfile-to-buffer.(tmp-file)...( |
| 21cb60 | 67 65 74 68 61 73 68 20 74 6d 70 2d 66 69 6c 65 20 2a 74 6d 70 66 69 6c 65 2d 6d 61 70 2a 29 29 | gethash.tmp-file.*tmpfile-map*)) |
| 21cb80 | 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 | ..(defimplementation.swank-compi |
| 21cba0 | 6c 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 28 73 74 72 69 6e 67 20 26 6b 65 79 20 62 75 66 66 65 | le-string.....(string.&key.buffe |
| 21cbc0 | 72 20 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e 20 | r.position.filename.line.column. |
| 21cbe0 | 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6c 69 6e 65 20 | policy)...(declare.(ignore.line. |
| 21cc00 | 63 6f 6c 75 6d 6e 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 | column.policy))...(with-compilat |
| 21cc20 | 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d | ion-hooks.().....(let.((*buffer- |
| 21cc40 | 6e 61 6d 65 2a 20 62 75 66 66 65 72 29 20 20 20 20 20 20 20 20 3b 20 66 6f 72 20 63 6f 6d 70 69 | name*.buffer)........;.for.compi |
| 21cc60 | 6c 61 74 69 6f 6e 20 68 6f 6f 6b 73 0a 20 20 20 20 20 20 20 20 20 20 28 2a 62 75 66 66 65 72 2d | lation.hooks...........(*buffer- |
| 21cc80 | 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 2a 20 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 | start-position*.position))...... |
| 21cca0 | 20 28 6c 65 74 20 28 28 74 6d 70 2d 66 69 6c 65 20 28 73 69 3a 6d 6b 73 74 65 6d 70 20 22 54 4d | .(let.((tmp-file.(si:mkstemp."TM |
| 21ccc0 | 50 3a 65 63 6c 2d 73 77 61 6e 6b 2d 74 6d 70 66 69 6c 65 2d 22 29 29 0a 20 20 20 20 20 20 20 20 | P:ecl-swank-tmpfile-"))......... |
| 21cce0 | 20 20 20 20 28 66 61 73 6c 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 | ....(fasl-file).............(war |
| 21cd00 | 6e 69 6e 67 73 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 61 69 6c 75 72 65 2d 70 29 | nings-p).............(failure-p) |
| 21cd20 | 29 0a 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 | ).........(unwind-protect....... |
| 21cd40 | 20 20 20 20 20 20 20 28 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 74 6d 70 2d 73 74 72 65 | .......(with-open-file.(tmp-stre |
| 21cd60 | 61 6d 20 74 6d 70 2d 66 69 6c 65 20 3a 64 69 72 65 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 0a 20 | am.tmp-file.:direction.:output.. |
| 21cd80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 21cda0 | 20 20 20 20 20 20 20 20 3a 69 66 2d 65 78 69 73 74 73 20 3a 73 75 70 65 72 73 65 64 65 29 0a 20 | ........:if-exists.:supersede).. |
| 21cdc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 73 74 72 69 | ..............(write-string.stri |
| 21cde0 | 6e 67 20 74 6d 70 2d 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | ng.tmp-stream)................(f |
| 21ce00 | 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 74 6d 70 2d 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 | inish-output.tmp-stream)........ |
| 21ce20 | 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 66 61 | ........(multiple-value-setq.(fa |
| 21ce40 | 73 6c 2d 66 69 6c 65 20 77 61 72 6e 69 6e 67 73 2d 70 20 66 61 69 6c 75 72 65 2d 70 29 0a 20 20 | sl-file.warnings-p.failure-p)... |
| 21ce60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 74 6d 70 | ...............(compile-file.tmp |
| 21ce80 | 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -file........................... |
| 21cea0 | 20 20 20 20 20 3a 6c 6f 61 64 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....:load.t.................... |
| 21cec0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6f 75 72 63 65 2d 74 72 75 65 6e 61 6d 65 20 28 6f 72 | ............:source-truename.(or |
| 21cee0 | 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .filename....................... |
| 21cf00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e | ..............................(n |
| 21cf20 | 6f 74 65 2d 62 75 66 66 65 72 2d 74 6d 70 66 69 6c 65 20 74 6d 70 2d 66 69 6c 65 20 62 75 66 66 | ote-buffer-tmpfile.tmp-file.buff |
| 21cf40 | 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er))............................ |
| 21cf60 | 20 20 20 20 3a 73 6f 75 72 63 65 2d 6f 66 66 73 65 74 20 28 31 2d 20 70 6f 73 69 74 69 6f 6e 29 | ....:source-offset.(1-.position) |
| 21cf80 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 | )))...........(when.(probe-file. |
| 21cfa0 | 74 6d 70 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 | tmp-file).............(delete-fi |
| 21cfc0 | 6c 65 20 74 6d 70 2d 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 66 61 | le.tmp-file))...........(when.fa |
| 21cfe0 | 73 6c 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 | sl-file.............(delete-file |
| 21d000 | 20 66 61 73 6c 2d 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 6e 6f 74 20 66 61 69 6c 75 | .fasl-file))).........(not.failu |
| 21d020 | 72 65 2d 70 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 77 | re-p)))))..(defimplementation.sw |
| 21d040 | 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 75 74 | ank-compile-file.(input-file.out |
| 21d060 | 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | put-file........................ |
| 21d080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 61 64 2d 70 20 65 78 74 65 72 6e 61 6c 2d | ................load-p.external- |
| 21d0a0 | 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | format.......................... |
| 21d0c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 70 6f 6c 69 63 79 29 0a 20 20 28 64 65 | ..............&key.policy)...(de |
| 21d0e0 | 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 70 6f 6c 69 63 79 29 29 0a 20 20 28 77 69 74 68 2d 63 | clare.(ignore.policy))...(with-c |
| 21d100 | 6f 6d 70 69 6c 61 74 69 6f 6e 2d 68 6f 6f 6b 73 20 28 29 0a 20 20 20 20 28 63 6f 6d 70 69 6c 65 | ompilation-hooks.().....(compile |
| 21d120 | 2d 66 69 6c 65 20 69 6e 70 75 74 2d 66 69 6c 65 20 3a 6f 75 74 70 75 74 2d 66 69 6c 65 20 6f 75 | -file.input-file.:output-file.ou |
| 21d140 | 74 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 61 | tput-file...................:loa |
| 21d160 | 64 20 6c 6f 61 64 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 65 78 74 65 | d.load-p...................:exte |
| 21d180 | 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 29 29 29 0a 0a | rnal-format.external-format))).. |
| 21d1a0 | 28 64 65 66 76 61 72 20 2a 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 | (defvar.*external-format-to-codi |
| 21d1c0 | 6e 67 2d 73 79 73 74 65 6d 2a 0a 20 20 27 28 28 3a 6c 61 74 69 6e 2d 31 0a 20 20 20 20 20 22 6c | ng-system*...'((:latin-1......"l |
| 21d1e0 | 61 74 69 6e 2d 31 22 20 22 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 20 22 69 73 6f 2d 6c 61 74 69 | atin-1"."latin-1-unix"."iso-lati |
| 21d200 | 6e 2d 31 2d 75 6e 69 78 22 0a 20 20 20 20 20 22 69 73 6f 2d 38 38 35 39 2d 31 22 20 22 69 73 6f | n-1-unix"......"iso-8859-1"."iso |
| 21d220 | 2d 38 38 35 39 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 28 3a 75 74 66 2d 38 20 22 75 74 66 2d | -8859-1-unix").....(:utf-8."utf- |
| 21d240 | 38 22 20 22 75 74 66 2d 38 2d 75 6e 69 78 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 65 72 | 8"."utf-8-unix")))..(defun.exter |
| 21d260 | 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 28 6f 72 | nal-format.(coding-system)...(or |
| 21d280 | 20 28 63 61 72 20 28 72 61 73 73 6f 63 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 6d 65 | .(car.(rassoc-if.(lambda.(x).(me |
| 21d2a0 | 6d 62 65 72 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 78 20 3a 74 65 73 74 20 23 27 65 71 75 | mber.coding-system.x.:test.#'equ |
| 21d2c0 | 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 78 74 65 | al)).......................*exte |
| 21d2e0 | 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 74 6f 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 29 29 0a | rnal-format-to-coding-system*)). |
| 21d300 | 20 20 20 20 20 20 28 66 69 6e 64 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 28 65 78 74 3a 61 | ......(find.coding-system.(ext:a |
| 21d320 | 6c 6c 2d 65 6e 63 6f 64 69 6e 67 73 29 20 3a 74 65 73 74 20 23 27 73 74 72 69 6e 67 2d 65 71 75 | ll-encodings).:test.#'string-equ |
| 21d340 | 61 6c 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 65 | al)))..(defimplementation.find-e |
| 21d360 | 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 | xternal-format.(coding-system).. |
| 21d380 | 20 23 2b 75 6e 69 63 6f 64 65 20 28 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 63 6f 64 69 | .#+unicode.(external-format.codi |
| 21d3a0 | 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 3b 3b 20 57 69 74 68 6f 75 74 20 75 6e 69 63 6f 64 65 20 | ng-system)...;;.Without.unicode. |
| 21d3c0 | 73 75 70 70 6f 72 74 2c 20 45 43 4c 20 75 73 65 73 20 74 68 65 20 6f 6e 65 2d 62 79 74 65 20 65 | support,.ECL.uses.the.one-byte.e |
| 21d3e0 | 6e 63 6f 64 69 6e 67 20 6f 66 20 74 68 65 0a 20 20 3b 3b 20 75 6e 64 65 72 6c 79 69 6e 67 20 4f | ncoding.of.the...;;.underlying.O |
| 21d400 | 53 2c 20 61 6e 64 20 77 69 6c 6c 20 62 61 72 66 20 6f 6e 20 61 6e 79 74 68 69 6e 67 20 65 78 63 | S,.and.will.barf.on.anything.exc |
| 21d420 | 65 70 74 20 3a 44 45 46 41 55 4c 54 2e 20 20 57 65 0a 20 20 3b 3b 20 72 65 74 75 72 6e 20 4e 49 | ept.:DEFAULT...We...;;.return.NI |
| 21d440 | 4c 20 68 65 72 65 20 66 6f 72 20 6b 6e 6f 77 6e 20 6d 75 6c 74 69 62 79 74 65 20 65 6e 63 6f 64 | L.here.for.known.multibyte.encod |
| 21d460 | 69 6e 67 73 2c 20 73 6f 0a 20 20 3b 3b 20 53 57 41 4e 4b 3a 43 52 45 41 54 45 2d 53 45 52 56 45 | ings,.so...;;.SWANK:CREATE-SERVE |
| 21d480 | 52 20 77 69 6c 6c 20 62 61 72 66 2e 0a 20 20 23 2d 75 6e 69 63 6f 64 65 20 28 6c 65 74 20 28 28 | R.will.barf....#-unicode.(let.(( |
| 21d4a0 | 78 66 20 28 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 | xf.(external-format.coding-syste |
| 21d4c0 | 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6d 65 6d 62 65 72 20 78 | m)))...............(if.(member.x |
| 21d4e0 | 66 20 27 28 3a 75 74 66 2d 38 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e | f.'(:utf-8))...................n |
| 21d500 | 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 66 61 75 6c 74 29 29 29 | il...................:default))) |
| 21d520 | 0a 0a 0a 3b 3b 3b 20 44 65 66 61 75 6c 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 73 | ...;;;.Default.implementation.is |
| 21d540 | 20 66 69 6e 65 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 67 75 65 73 73 2d 65 78 74 65 72 6e 61 6c 2d 66 | .fine.;;;.;;;...guess-external-f |
| 21d560 | 6f 72 6d 61 74 0a 0a 0c 0a 3b 3b 3b 3b 20 53 74 72 65 61 6d 73 0a 0a 3b 3b 3b 20 49 6d 70 6c 65 | ormat....;;;;.Streams..;;;.Imple |
| 21d580 | 6d 65 6e 74 65 64 20 69 6e 20 60 67 72 61 79 27 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 6d 61 6b 65 2d | mented.in.`gray'.;;;.;;;...make- |
| 21d5a0 | 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 0a 3b 3b 3b 20 20 20 6d 61 6b 65 2d 69 6e 70 75 74 2d 73 | output-stream.;;;...make-input-s |
| 21d5c0 | 74 72 65 61 6d 0a 0a 0c 0a 3b 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 0a 28 64 65 | tream....;;;;.Documentation..(de |
| 21d5e0 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 72 67 6c 69 73 74 20 28 6e 61 6d 65 29 0a 20 | fimplementation.arglist.(name).. |
| 21d600 | 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 61 72 67 6c 69 73 74 20 66 | .(multiple-value-bind.(arglist.f |
| 21d620 | 6f 75 6e 64 70 29 0a 20 20 20 20 20 20 28 65 78 74 3a 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 | oundp).......(ext:function-lambd |
| 21d640 | 61 2d 6c 69 73 74 20 6e 61 6d 65 29 0a 20 20 20 20 28 69 66 20 66 6f 75 6e 64 70 20 61 72 67 6c | a-list.name).....(if.foundp.argl |
| 21d660 | 69 73 74 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | ist.:not-available)))..(defimple |
| 21d680 | 6d 65 6e 74 61 74 69 6f 6e 20 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 70 20 28 73 79 6d 62 | mentation.type-specifier-p.(symb |
| 21d6a0 | 6f 6c 29 0a 20 20 28 6f 72 20 28 73 75 62 74 79 70 65 70 20 6e 69 6c 20 73 79 6d 62 6f 6c 29 0a | ol)...(or.(subtypep.nil.symbol). |
| 21d6c0 | 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 20 28 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 | ......(not.(eq.(type-specifier-a |
| 21d6e0 | 72 67 6c 69 73 74 20 73 79 6d 62 6f 6c 29 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 29 29 | rglist.symbol).:not-available))) |
| 21d700 | 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 6e | )..(defimplementation.function-n |
| 21d720 | 61 6d 65 20 28 66 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 66 0a 20 20 20 20 28 67 65 6e 65 72 | ame.(f)...(typecase.f.....(gener |
| 21d740 | 69 63 2d 66 75 6e 63 74 69 6f 6e 20 28 63 6c 6f 73 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 | ic-function.(clos:generic-functi |
| 21d760 | 6f 6e 2d 6e 61 6d 65 20 66 29 29 0a 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 28 73 69 3a 63 6f | on-name.f)).....(function.(si:co |
| 21d780 | 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 66 29 29 29 29 0a 0a 3b 3b 3b 20 | mpiled-function-name.f))))..;;;. |
| 21d7a0 | 44 65 66 61 75 6c 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 73 20 66 69 6e 65 20 28 | Default.implementation.is.fine.( |
| 21d7c0 | 43 4c 29 2e 0a 3b 3b 3b 20 0a 3b 3b 3b 20 76 61 6c 69 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d | CL)..;;;..;;;.valid-function-nam |
| 21d7e0 | 65 2d 70 20 28 66 6f 72 6d 29 0a 0a 23 2b 77 61 6c 6b 65 72 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | e-p.(form)..#+walker.(defimpleme |
| 21d800 | 6e 74 61 74 69 6f 6e 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 20 28 66 6f 72 6d 20 26 6f | ntation.macroexpand-all.(form.&o |
| 21d820 | 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 28 77 61 6c 6b 65 72 3a 6d 61 63 72 6f 65 78 70 61 | ptional.env)...(walker:macroexpa |
| 21d840 | 6e 64 2d 61 6c 6c 20 66 6f 72 6d 20 65 6e 76 29 29 0a 0a 3b 3b 3b 20 44 65 66 61 75 6c 74 20 69 | nd-all.form.env))..;;;.Default.i |
| 21d860 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 73 20 66 69 6e 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 | mplementation.is.fine..;;;.;;;.. |
| 21d880 | 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 0a 3b 3b 3b 20 20 20 63 6f | .compiler-macroexpand-1.;;;...co |
| 21d8a0 | 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | mpiler-macroexpand..(defimplemen |
| 21d8c0 | 74 61 74 69 6f 6e 20 63 6f 6c 6c 65 63 74 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 28 66 6f 72 6d | tation.collect-macro-forms.(form |
| 21d8e0 | 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 29 0a 20 20 3b 3b 20 43 75 72 72 65 6e 74 6c 79 20 64 | .&optional.env)...;;.Currently.d |
| 21d900 | 65 74 65 63 74 73 20 6f 6e 6c 79 20 6e 6f 72 6d 61 6c 20 6d 61 63 72 6f 73 2c 20 6e 6f 74 20 63 | etects.only.normal.macros,.not.c |
| 21d920 | 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 73 2e 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f | ompiler.macros....(declare.(igno |
| 21d940 | 72 65 20 65 6e 76 29 29 0a 20 20 28 77 69 74 68 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f | re.env))...(with-collected-macro |
| 21d960 | 2d 66 6f 72 6d 73 20 28 6d 61 63 72 6f 2d 66 6f 72 6d 73 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 | -forms.(macro-forms).....(handle |
| 21d980 | 72 2d 62 69 6e 64 20 28 28 77 61 72 6e 69 6e 67 20 23 27 6d 75 66 66 6c 65 2d 77 61 72 6e 69 6e | r-bind.((warning.#'muffle-warnin |
| 21d9a0 | 67 29 29 0a 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 | g)).......(ignore-errors........ |
| 21d9c0 | 20 28 63 6f 6d 70 69 6c 65 20 6e 69 6c 20 60 28 6c 61 6d 62 64 61 20 28 29 20 2c 66 6f 72 6d 29 | .(compile.nil.`(lambda.().,form) |
| 21d9e0 | 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 6e 69 6c 29 | ))).....(values.macro-forms.nil) |
| 21da00 | 29 29 0a 0a 3b 3b 3b 20 45 78 70 61 6e 64 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 | ))..;;;.Expand.the.format.string |
| 21da20 | 20 43 4f 4e 54 52 4f 4c 2d 53 54 52 49 4e 47 2e 0a 3b 3b 3b 20 44 65 66 61 75 6c 74 20 69 6d 70 | .CONTROL-STRING..;;;.Default.imp |
| 21da40 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 73 20 66 69 6e 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 66 | lementation.is.fine..;;;.;;;...f |
| 21da60 | 6f 72 6d 61 74 2d 73 74 72 69 6e 67 2d 65 78 70 61 6e 64 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | ormat-string-expand..(defimpleme |
| 21da80 | 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 | ntation.describe-symbol-for-emac |
| 21daa0 | 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 27 28 29 29 29 | s.(symbol)...(let.((result.'())) |
| 21dac0 | 0a 20 20 20 20 28 66 6c 65 74 20 28 28 66 72 6f 62 20 28 74 79 70 65 20 62 6f 75 6e 64 70 29 0a | .....(flet.((frob.(type.boundp). |
| 21dae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 75 6e 63 61 6c 6c 20 62 6f 75 6e | .............(when.(funcall.boun |
| 21db00 | 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | dp.symbol)................(let.( |
| 21db20 | 28 64 6f 63 20 28 64 65 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 73 79 6d 62 6f 6c | (doc.(describe-definition.symbol |
| 21db40 | 20 74 79 70 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 | .type)))..................(setf. |
| 21db60 | 72 65 73 75 6c 74 20 28 6c 69 73 74 2a 20 74 79 70 65 20 64 6f 63 20 72 65 73 75 6c 74 29 29 29 | result.(list*.type.doc.result))) |
| 21db80 | 29 29 29 0a 20 20 20 20 20 20 28 66 72 6f 62 20 3a 56 41 52 49 41 42 4c 45 20 23 27 62 6f 75 6e | ))).......(frob.:VARIABLE.#'boun |
| 21dba0 | 64 70 29 0a 20 20 20 20 20 20 28 66 72 6f 62 20 3a 46 55 4e 43 54 49 4f 4e 20 23 27 66 62 6f 75 | dp).......(frob.:FUNCTION.#'fbou |
| 21dbc0 | 6e 64 70 29 0a 20 20 20 20 20 20 28 66 72 6f 62 20 3a 43 4c 41 53 53 20 28 6c 61 6d 62 64 61 20 | ndp).......(frob.:CLASS.(lambda. |
| 21dbe0 | 28 78 29 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 78 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 72 65 | (x).(find-class.x.nil)))).....re |
| 21dc00 | 73 75 6c 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 73 63 72 | sult))..(defimplementation.descr |
| 21dc20 | 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 6e 61 6d 65 20 74 79 70 65 29 0a 20 20 28 63 61 | ibe-definition.(name.type)...(ca |
| 21dc40 | 73 65 20 74 79 70 65 0a 20 20 20 20 28 3a 76 61 72 69 61 62 6c 65 20 28 64 6f 63 75 6d 65 6e 74 | se.type.....(:variable.(document |
| 21dc60 | 61 74 69 6f 6e 20 6e 61 6d 65 20 27 76 61 72 69 61 62 6c 65 29 29 0a 20 20 20 20 28 3a 66 75 6e | ation.name.'variable)).....(:fun |
| 21dc80 | 63 74 69 6f 6e 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6e 61 6d 65 20 27 66 75 6e 63 74 | ction.(documentation.name.'funct |
| 21dca0 | 69 6f 6e 29 29 0a 20 20 20 20 28 3a 63 6c 61 73 73 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | ion)).....(:class.(documentation |
| 21dcc0 | 20 6e 61 6d 65 20 27 63 6c 61 73 73 29 29 0a 20 20 20 20 28 74 20 6e 69 6c 29 29 29 0a 0a 0c 0a | .name.'class)).....(t.nil))).... |
| 21dce0 | 3b 3b 3b 3b 20 44 65 62 75 67 67 69 6e 67 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d | ;;;;.Debugging..(eval-when.(:com |
| 21dd00 | 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 | pile-toplevel.:load-toplevel.:ex |
| 21dd20 | 65 63 75 74 65 29 0a 20 20 28 69 6d 70 6f 72 74 0a 20 20 20 27 28 73 69 3a 3a 2a 62 72 65 61 6b | ecute)...(import....'(si::*break |
| 21dd40 | 2d 65 6e 76 2a 0a 20 20 20 20 20 73 69 3a 3a 2a 69 68 73 2d 74 6f 70 2a 0a 20 20 20 20 20 73 69 | -env*......si::*ihs-top*......si |
| 21dd60 | 3a 3a 2a 69 68 73 2d 63 75 72 72 65 6e 74 2a 0a 20 20 20 20 20 73 69 3a 3a 2a 69 68 73 2d 62 61 | ::*ihs-current*......si::*ihs-ba |
| 21dd80 | 73 65 2a 0a 20 20 20 20 20 73 69 3a 3a 2a 66 72 73 2d 62 61 73 65 2a 0a 20 20 20 20 20 73 69 3a | se*......si::*frs-base*......si: |
| 21dda0 | 3a 2a 66 72 73 2d 74 6f 70 2a 0a 20 20 20 20 20 73 69 3a 3a 2a 74 70 6c 2d 63 6f 6d 6d 61 6e 64 | :*frs-top*......si::*tpl-command |
| 21ddc0 | 73 2a 0a 20 20 20 20 20 73 69 3a 3a 2a 74 70 6c 2d 6c 65 76 65 6c 2a 0a 20 20 20 20 20 73 69 3a | s*......si::*tpl-level*......si: |
| 21dde0 | 3a 66 72 73 2d 74 6f 70 0a 20 20 20 20 20 73 69 3a 3a 69 68 73 2d 74 6f 70 0a 20 20 20 20 20 73 | :frs-top......si::ihs-top......s |
| 21de00 | 69 3a 3a 69 68 73 2d 66 75 6e 0a 20 20 20 20 20 73 69 3a 3a 69 68 73 2d 65 6e 76 0a 20 20 20 20 | i::ihs-fun......si::ihs-env..... |
| 21de20 | 20 73 69 3a 3a 73 63 68 2d 66 72 73 2d 62 61 73 65 0a 20 20 20 20 20 73 69 3a 3a 73 65 74 2d 62 | .si::sch-frs-base......si::set-b |
| 21de40 | 72 65 61 6b 2d 65 6e 76 0a 20 20 20 20 20 73 69 3a 3a 73 65 74 2d 63 75 72 72 65 6e 74 2d 69 68 | reak-env......si::set-current-ih |
| 21de60 | 73 0a 20 20 20 20 20 73 69 3a 3a 74 70 6c 2d 63 6f 6d 6d 61 6e 64 73 29 29 29 0a 0a 28 64 65 66 | s......si::tpl-commands)))..(def |
| 21de80 | 75 6e 20 6d 61 6b 65 2d 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 28 68 6f | un.make-invoke-debugger-hook.(ho |
| 21dea0 | 6f 6b 29 0a 20 20 28 77 68 65 6e 20 68 6f 6f 6b 0a 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 28 | ok)...(when.hook.....#'(lambda.( |
| 21dec0 | 63 6f 6e 64 69 74 69 6f 6e 20 6f 6c 64 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 52 | condition.old-hook).........;;.R |
| 21dee0 | 65 67 61 72 64 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 69 66 20 73 65 74 20 62 79 20 | egard.*debugger-hook*.if.set.by. |
| 21df00 | 75 73 65 72 2e 0a 20 20 20 20 20 20 20 20 28 69 66 20 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b | user..........(if.*debugger-hook |
| 21df20 | 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 20 20 20 20 20 20 20 20 3b 20 64 65 63 6c | *.............nil.........;.decl |
| 21df40 | 69 6e 65 2c 20 2a 44 45 42 55 47 47 45 52 2d 48 4f 4f 4b 2a 20 77 69 6c 6c 20 62 65 20 74 72 69 | ine,.*DEBUGGER-HOOK*.will.be.tri |
| 21df60 | 65 64 20 6e 65 78 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 68 6f | ed.next..............(funcall.ho |
| 21df80 | 6f 6b 20 63 6f 6e 64 69 74 69 6f 6e 20 6f 6c 64 2d 68 6f 6f 6b 29 29 29 29 29 0a 0a 28 64 65 66 | ok.condition.old-hook)))))..(def |
| 21dfa0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 73 74 61 6c 6c 2d 64 65 62 75 67 67 65 72 2d | implementation.install-debugger- |
| 21dfc0 | 67 6c 6f 62 61 6c 6c 79 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 73 65 74 71 20 2a 64 65 62 | globally.(function)...(setq.*deb |
| 21dfe0 | 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 73 65 74 71 20 65 78 | ugger-hook*.function)...(setq.ex |
| 21e000 | 74 3a 2a 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 28 6d 61 6b 65 2d 69 | t:*invoke-debugger-hook*.(make-i |
| 21e020 | 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a | nvoke-debugger-hook.function))). |
| 21e040 | 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 | .(defimplementation.call-with-de |
| 21e060 | 62 75 67 67 65 72 2d 68 6f 6f 6b 20 28 68 6f 6f 6b 20 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 | bugger-hook.(hook.fun)...(let.(( |
| 21e080 | 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 28 65 | *debugger-hook*.hook).........(e |
| 21e0a0 | 78 74 3a 2a 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 28 6d 61 6b 65 2d | xt:*invoke-debugger-hook*.(make- |
| 21e0c0 | 69 6e 76 6f 6b 65 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 68 6f 6f 6b 29 29 29 0a 20 20 20 | invoke-debugger-hook.hook))).... |
| 21e0e0 | 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 62 61 63 6b 74 | .(funcall.fun)))..(defvar.*backt |
| 21e100 | 72 61 63 65 2a 20 27 28 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 2d 73 77 61 6e 6b 2d 70 61 63 6b | race*.'())..(defun.in-swank-pack |
| 21e120 | 61 67 65 2d 70 20 28 78 29 0a 20 20 28 61 6e 64 0a 20 20 20 28 73 79 6d 62 6f 6c 70 20 78 29 0a | age-p.(x)...(and....(symbolp.x). |
| 21e140 | 20 20 20 28 6d 65 6d 62 65 72 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 78 29 0a 20 20 | ...(member.(symbol-package.x)... |
| 21e160 | 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 23 2e 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a | .........(list.#.(find-package.: |
| 21e180 | 73 77 61 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2e 28 66 69 6e 64 2d | swank)..................#.(find- |
| 21e1a0 | 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 29 0a 20 20 20 20 20 20 20 20 | package.:swank/backend)......... |
| 21e1c0 | 20 20 20 20 20 20 20 20 20 23 2e 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 69 6e 64 2d | .........#.(ignore-errors.(find- |
| 21e1e0 | 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 2d 6d 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | package.:swank-mop))............ |
| 21e200 | 20 20 20 20 20 20 23 2e 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 69 6e 64 2d 70 61 63 | ......#.(ignore-errors.(find-pac |
| 21e220 | 6b 61 67 65 20 3a 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 29 29 29 29 0a 20 20 20 74 29 29 0a 0a 28 | kage.:swank-loader))))....t))..( |
| 21e240 | 64 65 66 75 6e 20 69 73 2d 73 77 61 6e 6b 2d 73 6f 75 72 63 65 2d 70 20 28 6e 61 6d 65 29 0a 20 | defun.is-swank-source-p.(name).. |
| 21e260 | 20 28 73 65 74 66 20 6e 61 6d 65 20 28 70 61 74 68 6e 61 6d 65 20 6e 61 6d 65 29 29 0a 20 20 28 | .(setf.name.(pathname.name))...( |
| 21e280 | 70 61 74 68 6e 61 6d 65 2d 6d 61 74 63 68 2d 70 0a 20 20 20 6e 61 6d 65 0a 20 20 20 28 6d 61 6b | pathname-match-p....name....(mak |
| 21e2a0 | 65 2d 70 61 74 68 6e 61 6d 65 20 3a 64 65 66 61 75 6c 74 73 20 73 77 61 6e 6b 2d 6c 6f 61 64 65 | e-pathname.:defaults.swank-loade |
| 21e2c0 | 72 3a 3a 2a 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 2a 0a 20 20 20 20 20 20 20 20 20 20 | r::*source-directory*........... |
| 21e2e0 | 20 20 20 20 20 20 20 20 3a 6e 61 6d 65 20 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 6e 61 6d | ........:name.(pathname-name.nam |
| 21e300 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 79 70 65 20 28 70 61 74 68 | e)...................:type.(path |
| 21e320 | 6e 61 6d 65 2d 74 79 70 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name-type.name)................. |
| 21e340 | 20 20 3a 76 65 72 73 69 6f 6e 20 28 70 61 74 68 6e 61 6d 65 2d 76 65 72 73 69 6f 6e 20 6e 61 6d | ..:version.(pathname-version.nam |
| 21e360 | 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 73 2d 69 67 6e 6f 72 61 62 6c 65 2d 66 75 6e 2d 70 | e))))..(defun.is-ignorable-fun-p |
| 21e380 | 20 28 78 29 0a 20 20 28 6f 72 0a 20 20 20 28 69 6e 2d 73 77 61 6e 6b 2d 70 61 63 6b 61 67 65 2d | .(x)...(or....(in-swank-package- |
| 21e3a0 | 70 20 28 66 72 61 6d 65 2d 6e 61 6d 65 20 78 29 29 0a 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 | p.(frame-name.x))....(multiple-v |
| 21e3c0 | 61 6c 75 65 2d 62 69 6e 64 20 28 66 69 6c 65 20 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 | alue-bind.(file.position)....... |
| 21e3e0 | 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 73 69 3a 3a 62 63 2d 66 69 6c 65 20 28 63 61 | .(ignore-errors.(si::bc-file.(ca |
| 21e400 | 72 20 78 29 29 29 0a 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 70 6f 73 | r.x)))......(declare.(ignore.pos |
| 21e420 | 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 28 69 66 20 66 69 6c 65 20 28 69 73 2d 73 77 61 6e 6b 2d | ition))......(if.file.(is-swank- |
| 21e440 | 73 6f 75 72 63 65 2d 70 20 66 69 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | source-p.file)))))..(defimplemen |
| 21e460 | 74 61 74 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 | tation.call-with-debugging-envir |
| 21e480 | 6f 6e 6d 65 6e 74 20 28 64 65 62 75 67 67 65 72 2d 6c 6f 6f 70 2d 66 6e 29 0a 20 20 28 64 65 63 | onment.(debugger-loop-fn)...(dec |
| 21e4a0 | 6c 61 72 65 20 28 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 62 75 67 67 65 72 2d 6c 6f 6f | lare.(type.function.debugger-loo |
| 21e4c0 | 70 2d 66 6e 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 2a 69 68 73 2d 74 6f 70 2a 20 28 69 68 73 2d | p-fn))...(let*.((*ihs-top*.(ihs- |
| 21e4e0 | 74 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 2a 69 68 73 2d 63 75 72 72 65 6e 74 2a 20 2a 69 | top))..........(*ihs-current*.*i |
| 21e500 | 68 73 2d 74 6f 70 2a 29 0a 20 20 20 20 20 20 20 20 20 28 2a 66 72 73 2d 62 61 73 65 2a 20 28 6f | hs-top*)..........(*frs-base*.(o |
| 21e520 | 72 20 28 73 63 68 2d 66 72 73 2d 62 61 73 65 20 2a 66 72 73 2d 74 6f 70 2a 20 2a 69 68 73 2d 62 | r.(sch-frs-base.*frs-top*.*ihs-b |
| 21e540 | 61 73 65 2a 29 20 28 31 2b 20 28 66 72 73 2d 74 6f 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ase*).(1+.(frs-top)))).......... |
| 21e560 | 28 2a 66 72 73 2d 74 6f 70 2a 20 28 66 72 73 2d 74 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 | (*frs-top*.(frs-top))..........( |
| 21e580 | 2a 74 70 6c 2d 6c 65 76 65 6c 2a 20 28 31 2b 20 2a 74 70 6c 2d 6c 65 76 65 6c 2a 29 29 0a 20 20 | *tpl-level*.(1+.*tpl-level*))... |
| 21e5a0 | 20 20 20 20 20 20 20 28 2a 62 61 63 6b 74 72 61 63 65 2a 20 28 6c 6f 6f 70 20 66 6f 72 20 69 68 | .......(*backtrace*.(loop.for.ih |
| 21e5c0 | 73 20 66 72 6f 6d 20 30 20 62 65 6c 6f 77 20 2a 69 68 73 2d 74 6f 70 2a 0a 20 20 20 20 20 20 20 | s.from.0.below.*ihs-top*........ |
| 21e5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 | .....................collect.(li |
| 21e600 | 73 74 20 28 73 69 3a 3a 69 68 73 2d 66 75 6e 20 69 68 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | st.(si::ihs-fun.ihs)............ |
| 21e620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 21e640 | 73 69 3a 3a 69 68 73 2d 65 6e 76 20 69 68 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | si::ihs-env.ihs)................ |
| 21e660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 | ...........................nil)) |
| 21e680 | 29 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 73 70 65 63 69 61 6c 20 2a 69 68 73 2d 63 75 | )).....(declare.(special.*ihs-cu |
| 21e6a0 | 72 72 65 6e 74 2a 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 20 66 72 6f 6d 20 2a 66 | rrent*)).....(loop.for.f.from.*f |
| 21e6c0 | 72 73 2d 62 61 73 65 2a 20 75 6e 74 69 6c 20 2a 66 72 73 2d 74 6f 70 2a 0a 20 20 20 20 20 20 20 | rs-base*.until.*frs-top*........ |
| 21e6e0 | 20 20 20 64 6f 20 28 6c 65 74 20 28 28 69 20 28 2d 20 28 73 69 3a 3a 66 72 73 2d 69 68 73 20 66 | ...do.(let.((i.(-.(si::frs-ihs.f |
| 21e700 | 29 20 2a 69 68 73 2d 62 61 73 65 2a 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).*ihs-base*.1)))............... |
| 21e720 | 20 28 77 68 65 6e 20 28 70 6c 75 73 70 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(when.(plusp.i)................ |
| 21e740 | 20 20 28 6c 65 74 2a 20 28 28 78 20 28 65 6c 74 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 69 29 29 | ..(let*.((x.(elt.*backtrace*.i)) |
| 21e760 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 | .........................(name.( |
| 21e780 | 73 69 3a 3a 66 72 73 2d 74 61 67 20 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | si::frs-tag.f)))................ |
| 21e7a0 | 20 20 20 20 28 75 6e 6c 65 73 73 20 28 73 69 3a 3a 66 69 78 6e 75 6d 70 20 6e 61 6d 65 29 0a 20 | ....(unless.(si::fixnump.name).. |
| 21e7c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6e 61 6d 65 20 28 | ....................(push.name.( |
| 21e7e0 | 74 68 69 72 64 20 78 29 29 29 29 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 2a 62 61 63 6b 74 72 | third.x))))))).....(setf.*backtr |
| 21e800 | 61 63 65 2a 20 28 72 65 6d 6f 76 65 2d 69 66 20 23 27 69 73 2d 69 67 6e 6f 72 61 62 6c 65 2d 66 | ace*.(remove-if.#'is-ignorable-f |
| 21e820 | 75 6e 2d 70 20 28 6e 72 65 76 65 72 73 65 20 2a 62 61 63 6b 74 72 61 63 65 2a 29 29 29 0a 20 20 | un-p.(nreverse.*backtrace*)))... |
| 21e840 | 20 20 28 73 65 74 2d 62 72 65 61 6b 2d 65 6e 76 29 0a 20 20 20 20 28 73 65 74 2d 63 75 72 72 65 | ..(set-break-env).....(set-curre |
| 21e860 | 6e 74 2d 69 68 73 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 69 68 73 2d 62 61 73 65 2a 20 2a 69 | nt-ihs).....(let.((*ihs-base*.*i |
| 21e880 | 68 73 2d 74 6f 70 2a 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 64 65 62 75 67 67 65 | hs-top*)).......(funcall.debugge |
| 21e8a0 | 72 2d 6c 6f 6f 70 2d 66 6e 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | r-loop-fn))))..(defimplementatio |
| 21e8c0 | 6e 20 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 28 73 74 61 72 74 20 65 6e 64 29 0a | n.compute-backtrace.(start.end). |
| 21e8e0 | 20 20 28 73 75 62 73 65 71 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 73 74 61 72 74 0a 20 20 20 20 | ..(subseq.*backtrace*.start..... |
| 21e900 | 20 20 20 20 20 20 28 61 6e 64 20 28 6e 75 6d 62 65 72 70 20 65 6e 64 29 0a 20 20 20 20 20 20 20 | ......(and.(numberp.end)........ |
| 21e920 | 20 20 20 20 20 20 20 20 28 6d 69 6e 20 65 6e 64 20 28 6c 65 6e 67 74 68 20 2a 62 61 63 6b 74 72 | ........(min.end.(length.*backtr |
| 21e940 | 61 63 65 2a 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 6e 61 6d 65 20 28 66 72 | ace*)))))..(defun.frame-name.(fr |
| 21e960 | 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 78 20 28 66 69 72 73 74 20 66 72 61 6d 65 29 29 29 0a | ame)...(let.((x.(first.frame))). |
| 21e980 | 20 20 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 78 29 0a 20 20 20 20 20 20 20 20 78 0a 20 20 | ....(if.(symbolp.x).........x... |
| 21e9a0 | 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 78 29 29 29 29 0a 0a 28 64 65 66 | ......(function-name.x))))..(def |
| 21e9c0 | 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 70 6f 73 69 74 69 6f 6e 20 28 66 75 6e 29 0a 20 20 28 6d 75 | un.function-position.(fun)...(mu |
| 21e9e0 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 69 6c 65 20 70 6f 73 69 74 69 6f 6e | ltiple-value-bind.(file.position |
| 21ea00 | 29 0a 20 20 20 20 20 20 28 73 69 3a 3a 62 63 2d 66 69 6c 65 20 66 75 6e 29 0a 20 20 20 20 28 77 | ).......(si::bc-file.fun).....(w |
| 21ea20 | 68 65 6e 20 66 69 6c 65 0a 20 20 20 20 20 20 28 6d 61 6b 65 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 | hen.file.......(make-file-locati |
| 21ea40 | 6f 6e 20 66 69 6c 65 20 70 6f 73 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 | on.file.position))))..(defun.fra |
| 21ea60 | 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 28 66 72 61 6d 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 78 20 | me-function.(frame)...(let*.((x. |
| 21ea80 | 28 66 69 72 73 74 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 66 75 6e 20 70 6f 73 69 | (first.frame))..........fun.posi |
| 21eaa0 | 74 69 6f 6e 29 0a 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 78 0a 20 20 20 20 20 20 28 73 79 | tion).....(etypecase.x.......(sy |
| 21eac0 | 6d 62 6f 6c 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 | mbol.(and.(fboundp.x)........... |
| 21eae0 | 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 66 75 6e 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 | .........(setf.fun.(fdefinition. |
| 21eb00 | 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 69 | x)..........................posi |
| 21eb20 | 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 2d 70 6f 73 69 74 69 6f 6e 20 66 75 6e 29 29 29 29 0a | tion.(function-position.fun)))). |
| 21eb40 | 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 28 73 65 74 66 20 66 75 6e 20 78 20 70 6f 73 69 | ......(function.(setf.fun.x.posi |
| 21eb60 | 74 69 6f 6e 20 28 66 75 6e 63 74 69 6f 6e 2d 70 6f 73 69 74 69 6f 6e 20 78 29 29 29 29 0a 20 20 | tion.(function-position.x))))... |
| 21eb80 | 20 20 28 76 61 6c 75 65 73 20 66 75 6e 20 70 6f 73 69 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 | ..(values.fun.position)))..(defu |
| 21eba0 | 6e 20 66 72 61 6d 65 2d 64 65 63 6f 64 65 2d 65 6e 76 20 28 66 72 61 6d 65 29 0a 20 20 28 6c 65 | n.frame-decode-env.(frame)...(le |
| 21ebc0 | 74 20 28 28 66 75 6e 63 74 69 6f 6e 73 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 62 6c 6f 63 | t.((functions.'()).........(bloc |
| 21ebe0 | 6b 73 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 76 61 72 69 61 62 6c 65 73 20 27 28 29 29 29 | ks.'()).........(variables.'())) |
| 21ec00 | 0a 20 20 20 20 28 73 65 74 66 20 66 72 61 6d 65 20 28 73 69 3a 3a 64 65 63 6f 64 65 2d 69 68 73 | .....(setf.frame.(si::decode-ihs |
| 21ec20 | 2d 65 6e 76 20 28 73 65 63 6f 6e 64 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 | -env.(second.frame))).....(dolis |
| 21ec40 | 74 20 28 72 65 63 6f 72 64 20 28 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 27 63 6f 6e 73 70 | t.(record.(remove-if-not.#'consp |
| 21ec60 | 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 72 65 63 6f 72 64 30 20 28 | .frame)).......(let*.((record0.( |
| 21ec80 | 63 61 72 20 72 65 63 6f 72 64 29 29 0a 09 20 20 20 20 20 28 72 65 63 6f 72 64 31 20 28 63 64 72 | car.record)).......(record1.(cdr |
| 21eca0 | 20 72 65 63 6f 72 64 29 29 29 0a 09 28 63 6f 6e 64 20 28 28 6f 72 20 28 73 79 6d 62 6f 6c 70 20 | .record)))..(cond.((or.(symbolp. |
| 21ecc0 | 72 65 63 6f 72 64 30 29 20 28 73 74 72 69 6e 67 70 20 72 65 63 6f 72 64 30 29 29 0a 09 20 20 20 | record0).(stringp.record0))..... |
| 21ece0 | 20 20 20 20 28 73 65 74 71 20 76 61 72 69 61 62 6c 65 73 20 28 61 63 6f 6e 73 20 72 65 63 6f 72 | ....(setq.variables.(acons.recor |
| 21ed00 | 64 30 20 72 65 63 6f 72 64 31 20 76 61 72 69 61 62 6c 65 73 29 29 29 0a 09 20 20 20 20 20 20 28 | d0.record1.variables)))........( |
| 21ed20 | 28 6e 6f 74 20 28 73 69 3a 3a 66 69 78 6e 75 6d 70 20 72 65 63 6f 72 64 30 29 29 0a 09 20 20 20 | (not.(si::fixnump.record0))..... |
| 21ed40 | 20 20 20 20 28 70 75 73 68 20 72 65 63 6f 72 64 31 20 66 75 6e 63 74 69 6f 6e 73 29 29 0a 09 20 | ....(push.record1.functions))... |
| 21ed60 | 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 70 20 72 65 63 6f 72 64 31 29 0a 09 20 20 20 20 20 20 20 | .....((symbolp.record1)......... |
| 21ed80 | 28 70 75 73 68 20 72 65 63 6f 72 64 31 20 62 6c 6f 63 6b 73 29 29 0a 09 20 20 20 20 20 20 28 74 | (push.record1.blocks))........(t |
| 21eda0 | 0a 09 20 20 20 20 20 20 20 29 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 66 75 6e 63 74 69 | .........)))).....(values.functi |
| 21edc0 | 6f 6e 73 20 62 6c 6f 63 6b 73 20 76 61 72 69 61 62 6c 65 73 29 29 29 0a 0a 28 64 65 66 69 6d 70 | ons.blocks.variables)))..(defimp |
| 21ede0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 69 6e 74 2d 66 72 61 6d 65 20 28 66 72 61 6d 65 20 73 | lementation.print-frame.(frame.s |
| 21ee00 | 74 72 65 61 6d 29 0a 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 41 22 20 28 66 69 | tream)...(format.stream."~A".(fi |
| 21ee20 | 72 73 74 20 66 72 61 6d 65 29 29 29 0a 0a 3b 3b 3b 20 49 73 20 74 68 65 20 66 72 61 6d 65 20 46 | rst.frame)))..;;;.Is.the.frame.F |
| 21ee40 | 52 41 4d 45 20 72 65 73 74 61 72 74 61 62 6c 65 3f 2e 0a 3b 3b 3b 20 52 65 74 75 72 6e 20 54 20 | RAME.restartable?..;;;.Return.T. |
| 21ee60 | 69 66 20 60 72 65 73 74 61 72 74 2d 66 72 61 6d 65 27 20 63 61 6e 20 73 61 66 65 6c 79 20 62 65 | if.`restart-frame'.can.safely.be |
| 21ee80 | 20 63 61 6c 6c 65 64 20 6f 6e 20 74 68 65 20 66 72 61 6d 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 66 72 | .called.on.the.frame..;;;.;;;.fr |
| 21eea0 | 61 6d 65 2d 72 65 73 74 61 72 74 61 62 6c 65 2d 70 20 28 66 72 61 6d 65 29 0a 0a 28 64 65 66 69 | ame-restartable-p.(frame)..(defi |
| 21eec0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 | mplementation.frame-source-locat |
| 21eee0 | 69 6f 6e 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d | ion.(frame-number)...(let.((fram |
| 21ef00 | 65 20 28 65 6c 74 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 | e.(elt.*backtrace*.frame-number) |
| 21ef20 | 29 29 0a 20 20 20 20 28 6f 72 20 28 6e 74 68 2d 76 61 6c 75 65 20 31 20 28 66 72 61 6d 65 2d 66 | )).....(or.(nth-value.1.(frame-f |
| 21ef40 | 75 6e 63 74 69 6f 6e 20 66 72 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 65 72 | unction.frame)).........(make-er |
| 21ef60 | 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 20 22 55 6e 6b 6e 6f 77 6e 20 73 6f 75 72 63 65 20 6c 6f 63 | ror-location."Unknown.source.loc |
| 21ef80 | 61 74 69 6f 6e 20 66 6f 72 20 7e 41 2e 22 20 28 63 61 72 20 66 72 61 6d 65 29 29 29 29 29 0a 0a | ation.for.~A.".(car.frame))))).. |
| 21efa0 | 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 63 61 74 63 68 2d 74 | (defimplementation.frame-catch-t |
| 21efc0 | 61 67 73 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 74 68 69 72 64 20 28 65 6c 74 | ags.(frame-number)...(third.(elt |
| 21efe0 | 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 0a 0a 28 64 | .*backtrace*.frame-number)))..(d |
| 21f000 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 28 66 | efimplementation.frame-locals.(f |
| 21f020 | 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 6e 61 6d 65 20 2e | rame-number)...(loop.for.(name.. |
| 21f040 | 20 76 61 6c 75 65 29 20 69 6e 20 28 6e 74 68 2d 76 61 6c 75 65 20 32 20 28 66 72 61 6d 65 2d 64 | .value).in.(nth-value.2.(frame-d |
| 21f060 | 65 63 6f 64 65 2d 65 6e 76 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ecode-env....................... |
| 21f080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 74 20 2a 62 61 63 6b | ......................(elt.*back |
| 21f0a0 | 74 72 61 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 63 | trace*.frame-number))).........c |
| 21f0c0 | 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 3a 6e 61 6d 65 20 6e 61 6d 65 20 3a 69 64 20 30 20 3a 76 | ollect.(list.:name.name.:id.0.:v |
| 21f0e0 | 61 6c 75 65 20 76 61 6c 75 65 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | alue.value)))..(defimplementatio |
| 21f100 | 6e 20 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 | n.frame-var-value.(frame-number. |
| 21f120 | 76 61 72 2d 6e 75 6d 62 65 72 29 0a 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e | var-number)...(destructuring-bin |
| 21f140 | 64 20 28 6e 61 6d 65 20 2e 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 28 65 6c 74 0a 20 20 20 20 | d.(name...value).......(elt..... |
| 21f160 | 20 20 20 28 6e 74 68 2d 76 61 6c 75 65 20 32 20 28 66 72 61 6d 65 2d 64 65 63 6f 64 65 2d 65 6e | ...(nth-value.2.(frame-decode-en |
| 21f180 | 76 20 28 65 6c 74 20 2a 62 61 63 6b 74 72 61 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 | v.(elt.*backtrace*.frame-number) |
| 21f1a0 | 29 29 0a 20 20 20 20 20 20 20 76 61 72 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 28 64 65 63 6c 61 | ))........var-number).....(decla |
| 21f1c0 | 72 65 20 28 69 67 6e 6f 72 65 20 6e 61 6d 65 29 29 0a 20 20 20 20 76 61 6c 75 65 29 29 0a 0a 28 | re.(ignore.name)).....value))..( |
| 21f1e0 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 72 | defimplementation.disassemble-fr |
| 21f200 | 61 6d 65 20 28 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a 20 20 28 6c 65 74 20 28 28 66 75 6e 20 | ame.(frame-number)...(let.((fun. |
| 21f220 | 28 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 28 65 6c 74 20 2a 62 61 63 6b 74 72 61 63 65 2a | (frame-function.(elt.*backtrace* |
| 21f240 | 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 29 0a 20 20 20 20 28 64 69 73 61 73 73 65 6d 62 | .frame-number)))).....(disassemb |
| 21f260 | 6c 65 20 66 75 6e 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 65 76 | le.fun)))..(defimplementation.ev |
| 21f280 | 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 28 66 6f 72 6d 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 0a | al-in-frame.(form.frame-number). |
| 21f2a0 | 20 20 28 6c 65 74 20 28 28 65 6e 76 20 28 73 65 63 6f 6e 64 20 28 65 6c 74 20 2a 62 61 63 6b 74 | ..(let.((env.(second.(elt.*backt |
| 21f2c0 | 72 61 63 65 2a 20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 29 29 29 29 0a 20 20 20 20 28 73 69 3a 65 | race*.frame-number)))).....(si:e |
| 21f2e0 | 76 61 6c 2d 77 69 74 68 2d 65 6e 76 20 66 6f 72 6d 20 65 6e 76 29 29 29 0a 0a 3b 3b 3b 20 66 72 | val-with-env.form.env)))..;;;.fr |
| 21f300 | 61 6d 65 2d 70 61 63 6b 61 67 65 0a 3b 3b 3b 20 66 72 61 6d 65 2d 63 61 6c 6c 0a 3b 3b 3b 20 72 | ame-package.;;;.frame-call.;;;.r |
| 21f320 | 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 0a 3b 3b 3b 20 72 65 73 74 61 72 74 2d 66 72 61 | eturn-from-frame.;;;.restart-fra |
| 21f340 | 6d 65 0a 3b 3b 3b 20 70 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 0a 3b 3b 3b 20 63 6f 6e 64 69 | me.;;;.print-condition.;;;.condi |
| 21f360 | 74 69 6f 6e 2d 65 78 74 72 61 73 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 | tion-extras..(defimplementation. |
| 21f380 | 67 64 62 2d 69 6e 69 74 69 61 6c 2d 63 6f 6d 6d 61 6e 64 73 20 28 29 0a 20 20 3b 3b 20 54 68 65 | gdb-initial-commands.()...;;.The |
| 21f3a0 | 73 65 20 73 69 67 6e 61 6c 73 20 61 72 65 20 75 73 65 64 20 62 79 20 74 68 65 20 47 43 2e 0a 20 | se.signals.are.used.by.the.GC... |
| 21f3c0 | 20 23 2b 6c 69 6e 75 78 20 27 28 22 68 61 6e 64 6c 65 20 53 49 47 50 57 52 20 20 6e 6f 70 72 69 | .#+linux.'("handle.SIGPWR..nopri |
| 21f3e0 | 6e 74 20 6e 6f 73 74 6f 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 68 61 6e 64 6c 65 20 53 | nt.nostop"............."handle.S |
| 21f400 | 49 47 58 43 50 55 20 6e 6f 70 72 69 6e 74 20 6e 6f 73 74 6f 70 22 29 29 0a 0a 3b 3b 3b 20 61 63 | IGXCPU.noprint.nostop"))..;;;.ac |
| 21f420 | 74 69 76 65 2d 73 74 65 70 70 69 6e 67 0a 3b 3b 3b 20 73 6c 64 62 2d 62 72 65 61 6b 2d 6f 6e 2d | tive-stepping.;;;.sldb-break-on- |
| 21f440 | 72 65 74 75 72 6e 0a 3b 3b 3b 20 73 6c 64 62 2d 62 72 65 61 6b 2d 61 74 2d 73 74 61 72 74 0a 3b | return.;;;.sldb-break-at-start.; |
| 21f460 | 3b 3b 20 73 6c 64 62 2d 73 74 65 70 70 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 70 0a 3b 3b 3b 20 | ;;.sldb-stepper-condition-p.;;;. |
| 21f480 | 73 6c 64 62 2d 73 65 74 70 2d 69 6e 74 6f 0a 3b 3b 3b 20 73 6c 64 62 2d 73 74 65 70 2d 6e 65 78 | sldb-setp-into.;;;.sldb-step-nex |
| 21f4a0 | 74 0a 3b 3b 3b 20 73 6c 64 62 2d 73 74 65 70 2d 6f 75 74 0a 0a 0c 0a 3b 3b 3b 3b 20 44 65 66 69 | t.;;;.sldb-step-out....;;;;.Defi |
| 21f4c0 | 6e 69 74 69 6f 6e 20 66 69 6e 64 69 6e 67 0a 0a 28 64 65 66 76 61 72 20 2b 54 41 47 53 2b 20 28 | nition.finding..(defvar.+TAGS+.( |
| 21f4e0 | 6e 61 6d 65 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 72 67 | namestring.................(merg |
| 21f500 | 65 2d 70 61 74 68 6e 61 6d 65 73 20 22 54 41 47 53 22 20 28 74 72 61 6e 73 6c 61 74 65 2d 6c 6f | e-pathnames."TAGS".(translate-lo |
| 21f520 | 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 20 22 53 59 53 3a 22 29 29 29 29 0a 0a 28 64 65 66 75 | gical-pathname."SYS:"))))..(defu |
| 21f540 | 6e 20 6d 61 6b 65 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 69 6c 65 20 66 69 6c 65 2d | n.make-file-location.(file.file- |
| 21f560 | 70 6f 73 69 74 69 6f 6e 29 0a 20 20 3b 3b 20 46 69 6c 65 20 70 6f 73 69 74 69 6f 6e 73 20 69 6e | position)...;;.File.positions.in |
| 21f580 | 20 43 4c 20 73 74 61 72 74 20 61 74 20 30 2c 20 62 75 74 20 45 6d 61 63 73 27 20 62 75 66 66 65 | .CL.start.at.0,.but.Emacs'.buffe |
| 21f5a0 | 72 20 70 6f 73 69 74 69 6f 6e 73 0a 20 20 3b 3b 20 73 74 61 72 74 20 61 74 20 31 2e 20 57 65 20 | r.positions...;;.start.at.1..We. |
| 21f5c0 | 73 70 65 63 69 66 79 20 28 3a 41 4c 49 47 4e 20 54 29 20 62 65 63 61 75 73 65 20 74 68 65 20 70 | specify.(:ALIGN.T).because.the.p |
| 21f5e0 | 6f 73 69 74 69 6f 6e 73 20 63 6f 6d 6d 69 6e 67 0a 20 20 3b 3b 20 66 72 6f 6d 20 45 43 4c 20 70 | ositions.comming...;;.from.ECL.p |
| 21f600 | 6f 69 6e 74 20 61 74 20 72 69 67 68 74 20 61 66 74 65 72 20 74 68 65 20 74 6f 70 6c 65 76 65 6c | oint.at.right.after.the.toplevel |
| 21f620 | 20 66 6f 72 6d 20 61 70 70 65 61 72 69 6e 67 20 62 65 66 6f 72 65 0a 20 20 3b 3b 20 74 68 65 20 | .form.appearing.before...;;.the. |
| 21f640 | 61 63 74 75 61 6c 20 74 61 72 67 65 74 20 74 6f 70 6c 65 76 65 6c 20 66 6f 72 6d 3b 20 28 3a 41 | actual.target.toplevel.form;.(:A |
| 21f660 | 4c 49 47 4e 20 54 29 20 77 69 6c 6c 20 44 54 52 54 20 69 6e 20 74 68 61 74 20 63 61 73 65 2e 0a | LIGN.T).will.DTRT.in.that.case.. |
| 21f680 | 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 66 69 6c 65 20 2c 28 6e 61 6d 65 73 | ..(make-location.`(:file.,(names |
| 21f6a0 | 74 72 69 6e 67 20 28 74 72 61 6e 73 6c 61 74 65 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d | tring.(translate-logical-pathnam |
| 21f6c0 | 65 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 70 6f | e.file)))..................`(:po |
| 21f6e0 | 73 69 74 69 6f 6e 20 2c 28 31 2b 20 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 | sition.,(1+.file-position))..... |
| 21f700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 61 6c 69 67 6e 20 74 29 29 29 0a 0a 28 64 65 66 | .............`(:align.t)))..(def |
| 21f720 | 75 6e 20 6d 61 6b 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 74 69 6f 6e 20 28 62 75 66 66 65 72 2d | un.make-buffer-location.(buffer- |
| 21f740 | 6e 61 6d 65 20 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 28 6f | name.start-position.&optional.(o |
| 21f760 | 66 66 73 65 74 20 30 29 29 0a 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 28 3a 62 75 | ffset.0))...(make-location.`(:bu |
| 21f780 | 66 66 65 72 20 2c 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ffer.,buffer-name).............. |
| 21f7a0 | 20 20 20 20 60 28 3a 6f 66 66 73 65 74 20 2c 73 74 61 72 74 2d 70 6f 73 69 74 69 6f 6e 20 2c 6f | ....`(:offset.,start-position.,o |
| 21f7c0 | 66 66 73 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 61 6c 69 67 6e | ffset)..................`(:align |
| 21f7e0 | 20 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 54 41 47 53 2d 6c 6f 63 61 74 69 6f 6e | .t)))..(defun.make-TAGS-location |
| 21f800 | 20 28 26 72 65 73 74 20 74 61 67 73 29 0a 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 60 | .(&rest.tags)...(make-location.` |
| 21f820 | 28 3a 65 74 61 67 73 2d 66 69 6c 65 20 2c 2b 54 41 47 53 2b 29 0a 20 20 20 20 20 20 20 20 20 20 | (:etags-file.,+TAGS+)........... |
| 21f840 | 20 20 20 20 20 20 20 60 28 3a 74 61 67 20 2c 40 74 61 67 73 29 29 29 0a 0a 28 64 65 66 69 6d 70 | .......`(:tag.,@tags)))..(defimp |
| 21f860 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 6e 61 | lementation.find-definitions.(na |
| 21f880 | 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 28 65 78 74 3a 67 65 | me)...(let.((annotations.(ext:ge |
| 21f8a0 | 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 6e 61 6d 65 20 27 73 69 3a 3a 6c 6f 63 61 74 69 6f 6e 20 | t-annotation.name.'si::location. |
| 21f8c0 | 3a 61 6c 6c 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 61 6e 6e 6f 74 61 74 69 6f 6e 73 0a 20 | :all))).....(cond.(annotations.. |
| 21f8e0 | 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 61 6e 6e 6f 74 61 74 69 6f 6e 20 69 | ..........(loop.for.annotation.i |
| 21f900 | 6e 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 | n.annotations..................c |
| 21f920 | 6f 6c 6c 65 63 74 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 64 73 70 65 | ollect.(destructuring-bind.(dspe |
| 21f940 | 63 20 66 69 6c 65 20 2e 20 70 6f 73 29 20 61 6e 6e 6f 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 | c.file...pos).annotation........ |
| 21f960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 64 73 70 65 63 20 2c 28 6d | ....................`(,dspec.,(m |
| 21f980 | 61 6b 65 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 69 6c 65 20 70 6f 73 29 29 29 29 29 0a | ake-file-location.file.pos))))). |
| 21f9a0 | 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 6e 20 | ..........(t............(mapcan. |
| 21f9c0 | 23 27 28 6c 61 6d 62 64 61 20 28 74 79 70 65 29 20 28 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f | #'(lambda.(type).(find-definitio |
| 21f9e0 | 6e 73 2d 62 79 2d 74 79 70 65 20 6e 61 6d 65 20 74 79 70 65 29 29 0a 20 20 20 20 20 20 20 20 20 | ns-by-type.name.type)).......... |
| 21fa00 | 20 20 20 20 20 20 20 20 20 20 28 63 6c 61 73 73 69 66 79 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6e | ..........(classify-definition-n |
| 21fa20 | 61 6d 65 20 6e 61 6d 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 61 73 73 69 66 79 2d | ame.name))))))..(defun.classify- |
| 21fa40 | 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 | definition-name.(name)...(let.(( |
| 21fa60 | 74 79 70 65 73 20 27 28 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 6e | types.'())).....(when.(fboundp.n |
| 21fa80 | 61 6d 65 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 | ame).......(cond.((special-opera |
| 21faa0 | 74 6f 72 2d 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 3a | tor-p.name)..............(push.: |
| 21fac0 | 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f 72 20 74 79 70 65 73 29 29 0a 20 20 20 20 20 20 20 | special-operator.types))........ |
| 21fae0 | 20 20 20 20 20 28 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 20 20 | .....((macro-function.name)..... |
| 21fb00 | 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 3a 6d 61 63 72 6f 20 74 79 70 65 73 29 29 0a 20 20 | .........(push.:macro.types))... |
| 21fb20 | 20 20 20 20 20 20 20 20 20 20 28 28 74 79 70 65 70 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 6e | ..........((typep.(fdefinition.n |
| 21fb40 | 61 6d 65 29 20 27 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | ame).'generic-function)......... |
| 21fb60 | 20 20 20 20 20 28 70 75 73 68 20 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 20 74 79 70 | .....(push.:generic-function.typ |
| 21fb80 | 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 69 3a 6d 61 6e 67 6c 65 2d 6e 61 6d | es)).............((si:mangle-nam |
| 21fba0 | 65 20 6e 61 6d 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 3a 63 2d | e.name.t)..............(push.:c- |
| 21fbc0 | 66 75 6e 63 74 69 6f 6e 20 74 79 70 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a | function.types)).............(t. |
| 21fbe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 3a 6c 69 73 70 2d 66 75 6e 63 74 69 6f | .............(push.:lisp-functio |
| 21fc00 | 6e 20 74 79 70 65 73 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 6e 61 | n.types)))).....(when.(boundp.na |
| 21fc20 | 6d 65 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 63 6f 6e 73 74 61 6e 74 70 20 6e 61 6d 65 | me).......(cond.((constantp.name |
| 21fc40 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 3a 63 6f 6e 73 74 61 6e 74 20 74 | )..............(push.:constant.t |
| 21fc60 | 79 70 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 | ypes)).............(t........... |
| 21fc80 | 20 20 20 28 70 75 73 68 20 3a 67 6c 6f 62 61 6c 2d 76 61 72 69 61 62 6c 65 20 74 79 70 65 73 29 | ...(push.:global-variable.types) |
| 21fca0 | 29 29 29 0a 20 20 20 20 74 79 70 65 73 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 64 65 66 | ))).....types))..(defun.find-def |
| 21fcc0 | 69 6e 69 74 69 6f 6e 73 2d 62 79 2d 74 79 70 65 20 28 6e 61 6d 65 20 74 79 70 65 29 0a 20 20 28 | initions-by-type.(name.type)...( |
| 21fce0 | 65 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 28 3a 6c 69 73 70 2d 66 75 6e 63 74 69 6f 6e 0a 20 | ecase.type.....(:lisp-function.. |
| 21fd00 | 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 6c 6f 63 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 | ....(when-let.(loc.(source-locat |
| 21fd20 | 69 6f 6e 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 | ion.(fdefinition.name)))........ |
| 21fd40 | 28 6c 69 73 74 20 60 28 28 64 65 66 75 6e 20 2c 6e 61 6d 65 29 20 2c 6c 6f 63 29 29 29 29 0a 20 | (list.`((defun.,name).,loc)))).. |
| 21fd60 | 20 20 20 28 3a 63 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 | ...(:c-function......(when-let.( |
| 21fd80 | 6c 6f 63 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 66 64 65 66 69 6e 69 74 69 6f | loc.(source-location.(fdefinitio |
| 21fda0 | 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 28 6c 69 73 74 20 60 28 28 63 2d 73 6f 75 72 | n.name)))........(list.`((c-sour |
| 21fdc0 | 63 65 20 2c 6e 61 6d 65 29 20 2c 6c 6f 63 29 29 29 29 0a 20 20 20 20 28 3a 67 65 6e 65 72 69 63 | ce.,name).,loc)))).....(:generic |
| 21fde0 | 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6d 65 74 68 6f 64 20 | -function......(loop.for.method. |
| 21fe00 | 69 6e 20 28 63 6c 6f 73 3a 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 | in.(clos:generic-function-method |
| 21fe20 | 73 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 | s.(fdefinition.name))........... |
| 21fe40 | 20 66 6f 72 20 73 70 65 63 73 20 3d 20 28 63 6c 6f 73 3a 6d 65 74 68 6f 64 2d 73 70 65 63 69 61 | .for.specs.=.(clos:method-specia |
| 21fe60 | 6c 69 7a 65 72 73 20 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6c 6f | lizers.method)............for.lo |
| 21fe80 | 63 20 20 20 3d 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6d 65 74 68 6f 64 29 0a 20 | c...=.(source-location.method).. |
| 21fea0 | 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 6c 6f 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........when.loc.............. |
| 21fec0 | 63 6f 6c 6c 65 63 74 20 60 28 28 64 65 66 6d 65 74 68 6f 64 20 2c 6e 61 6d 65 20 2c 73 70 65 63 | collect.`((defmethod.,name.,spec |
| 21fee0 | 73 29 20 2c 6c 6f 63 29 29 29 0a 20 20 20 20 28 3a 6d 61 63 72 6f 0a 20 20 20 20 20 28 77 68 65 | s).,loc))).....(:macro......(whe |
| 21ff00 | 6e 2d 6c 65 74 20 28 6c 6f 63 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6d 61 63 | n-let.(loc.(source-location.(mac |
| 21ff20 | 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 28 6c 69 73 74 | ro-function.name)))........(list |
| 21ff40 | 20 60 28 28 64 65 66 6d 61 63 72 6f 20 2c 6e 61 6d 65 29 20 2c 6c 6f 63 29 29 29 29 0a 20 20 20 | .`((defmacro.,name).,loc)))).... |
| 21ff60 | 20 28 3a 63 6f 6e 73 74 61 6e 74 0a 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 6c 6f 63 20 | .(:constant......(when-let.(loc. |
| 21ff80 | 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 | (source-location.name))........( |
| 21ffa0 | 6c 69 73 74 20 60 28 28 64 65 66 63 6f 6e 73 74 61 6e 74 20 2c 6e 61 6d 65 29 20 2c 6c 6f 63 29 | list.`((defconstant.,name).,loc) |
| 21ffc0 | 29 29 29 0a 20 20 20 20 28 3a 67 6c 6f 62 61 6c 2d 76 61 72 69 61 62 6c 65 0a 20 20 20 20 20 28 | ))).....(:global-variable......( |
| 21ffe0 | 77 68 65 6e 2d 6c 65 74 20 28 6c 6f 63 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6e | when-let.(loc.(source-location.n |
| 220000 | 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 6c 69 73 74 20 60 28 28 64 65 66 76 61 72 20 2c 6e 61 | ame))........(list.`((defvar.,na |
| 220020 | 6d 65 29 20 2c 6c 6f 63 29 29 29 29 0a 20 20 20 20 28 3a 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 | me).,loc)))).....(:special-opera |
| 220040 | 74 6f 72 29 29 29 0a 0a 3b 3b 3b 20 46 49 58 4d 45 3a 20 54 68 65 72 65 20 6f 75 67 68 74 20 74 | tor)))..;;;.FIXME:.There.ought.t |
| 220060 | 6f 20 62 65 20 61 20 62 65 74 74 65 72 20 77 61 79 2e 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a | o.be.a.better.way..(eval-when.(: |
| 220080 | 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f 61 64 2d 74 6f 70 6c 65 76 65 6c 20 | compile-toplevel.:load-toplevel. |
| 2200a0 | 3a 65 78 65 63 75 74 65 29 0a 20 20 28 64 65 66 75 6e 20 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 | :execute)...(defun.c-function-na |
| 2200c0 | 6d 65 2d 70 20 28 6e 61 6d 65 29 0a 20 20 20 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 6e 61 | me-p.(name).....(and.(symbolp.na |
| 2200e0 | 6d 65 29 20 28 73 69 3a 6d 61 6e 67 6c 65 2d 6e 61 6d 65 20 6e 61 6d 65 20 74 29 20 74 29 29 0a | me).(si:mangle-name.name.t).t)). |
| 220100 | 20 20 28 64 65 66 75 6e 20 63 2d 66 75 6e 63 74 69 6f 6e 2d 70 20 28 6f 62 6a 65 63 74 29 0a 20 | ..(defun.c-function-p.(object).. |
| 220120 | 20 20 20 28 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e 70 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 | ...(and.(functionp.object)...... |
| 220140 | 20 20 20 20 28 6c 65 74 20 28 28 66 6e 2d 6e 61 6d 65 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d | ....(let.((fn-name.(function-nam |
| 220160 | 65 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 66 6e 2d 6e | e.object)))............(and.fn-n |
| 220180 | 61 6d 65 20 28 63 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 20 66 6e 2d 6e 61 6d 65 29 29 | ame.(c-function-name-p.fn-name)) |
| 2201a0 | 29 29 29 29 0a 0a 28 64 65 66 74 79 70 65 20 63 2d 66 75 6e 63 74 69 6f 6e 20 28 29 0a 20 20 60 | ))))..(deftype.c-function.()...` |
| 2201c0 | 28 73 61 74 69 73 66 69 65 73 20 63 2d 66 75 6e 63 74 69 6f 6e 2d 70 29 29 0a 0a 28 64 65 66 75 | (satisfies.c-function-p))..(defu |
| 2201e0 | 6e 20 61 73 73 65 72 74 2d 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 28 | n.assert-source-directory.()...( |
| 220200 | 75 6e 6c 65 73 73 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 23 50 22 53 52 43 3a 22 29 0a 20 20 20 | unless.(probe-file.#P"SRC:").... |
| 220220 | 20 28 65 72 72 6f 72 20 22 45 43 4c 27 73 20 73 6f 75 72 63 65 20 64 69 72 65 63 74 6f 72 79 20 | .(error."ECL's.source.directory. |
| 220240 | 7e 41 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2e 20 7e 0a 20 20 20 20 20 20 20 20 20 20 20 | ~A.does.not.exist..~............ |
| 220260 | 20 59 6f 75 20 63 61 6e 20 73 70 65 63 69 66 79 20 61 20 64 69 66 66 65 72 65 6e 74 20 6c 6f 63 | .You.can.specify.a.different.loc |
| 220280 | 61 74 69 6f 6e 20 76 69 61 20 74 68 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 7e 0a 20 20 20 20 | ation.via.the.environment.~..... |
| 2202a0 | 20 20 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 60 45 43 4c 53 52 43 44 49 52 27 2e 22 0a 20 | ........variable.`ECLSRCDIR'.".. |
| 2202c0 | 20 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 73 74 72 69 6e 67 20 28 74 72 61 6e 73 6c 61 74 65 | ..........(namestring.(translate |
| 2202e0 | 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 20 23 50 22 53 59 53 3a 22 29 29 29 29 29 20 | -logical-pathname.#P"SYS:"))))). |
| 220300 | 0a 0a 28 64 65 66 75 6e 20 61 73 73 65 72 74 2d 54 41 47 53 2d 66 69 6c 65 20 28 29 0a 20 20 28 | ..(defun.assert-TAGS-file.()...( |
| 220320 | 75 6e 6c 65 73 73 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 2b 54 41 47 53 2b 29 0a 20 20 20 20 28 | unless.(probe-file.+TAGS+).....( |
| 220340 | 65 72 72 6f 72 20 22 4e 6f 20 54 41 47 53 20 66 69 6c 65 20 7e 41 20 66 6f 75 6e 64 2e 20 49 74 | error."No.TAGS.file.~A.found..It |
| 220360 | 20 73 68 6f 75 6c 64 20 68 61 76 65 20 62 65 65 6e 20 69 6e 73 74 61 6c 6c 65 64 20 77 69 74 68 | .should.have.been.installed.with |
| 220380 | 20 45 43 4c 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 2b 54 41 47 53 2b 29 29 29 0a 0a 28 64 65 | .ECL."............+TAGS+)))..(de |
| 2203a0 | 66 75 6e 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 73 20 28 70 61 63 6b 61 67 65 29 0a 20 20 28 63 | fun.package-names.(package)...(c |
| 2203c0 | 6f 6e 73 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 20 28 70 61 63 6b | ons.(package-name.package).(pack |
| 2203e0 | 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 73 20 70 61 63 6b 61 67 65 29 29 29 0a 0a 28 64 65 66 75 6e | age-nicknames.package)))..(defun |
| 220400 | 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 63 6f 6e | .source-location.(object)...(con |
| 220420 | 76 65 72 74 69 6e 67 2d 65 72 72 6f 72 73 2d 74 6f 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e | verting-errors-to-error-location |
| 220440 | 0a 20 20 20 28 74 79 70 65 63 61 73 65 20 6f 62 6a 65 63 74 0a 20 20 20 20 20 28 63 2d 66 75 6e | ....(typecase.object......(c-fun |
| 220460 | 63 74 69 6f 6e 0a 20 20 20 20 20 20 28 61 73 73 65 72 74 2d 73 6f 75 72 63 65 2d 64 69 72 65 63 | ction.......(assert-source-direc |
| 220480 | 74 6f 72 79 29 0a 20 20 20 20 20 20 28 61 73 73 65 72 74 2d 54 41 47 53 2d 66 69 6c 65 29 0a 20 | tory).......(assert-TAGS-file).. |
| 2204a0 | 20 20 20 20 20 28 6c 65 74 20 28 28 6c 69 73 70 2d 6e 61 6d 65 20 28 66 75 6e 63 74 69 6f 6e 2d | .....(let.((lisp-name.(function- |
| 2204c0 | 6e 61 6d 65 20 6f 62 6a 65 63 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 6c | name.object))).........(assert.l |
| 2204e0 | 69 73 70 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | isp-name).........(multiple-valu |
| 220500 | 65 2d 62 69 6e 64 20 28 66 6c 61 67 20 63 2d 6e 61 6d 65 29 20 28 73 69 3a 6d 61 6e 67 6c 65 2d | e-bind.(flag.c-name).(si:mangle- |
| 220520 | 6e 61 6d 65 20 6c 69 73 70 2d 6e 61 6d 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 73 73 | name.lisp-name.t)...........(ass |
| 220540 | 65 72 74 20 66 6c 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 6e 20 45 43 4c 27 73 20 | ert.flag)...........;;.In.ECL's. |
| 220560 | 63 6f 64 65 20 62 61 73 65 20 73 6f 6d 65 74 69 6d 65 73 20 74 68 65 20 6d 61 6e 67 6c 65 64 20 | code.base.sometimes.the.mangled. |
| 220580 | 6e 61 6d 65 20 69 73 20 75 73 65 64 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 64 69 72 65 63 74 | name.is.used...........;;.direct |
| 2205a0 | 6c 79 2c 20 73 6f 6d 65 74 69 6d 65 73 20 45 43 4c 27 73 20 44 50 50 20 6d 61 67 69 63 20 6f 66 | ly,.sometimes.ECL's.DPP.magic.of |
| 2205c0 | 20 40 53 49 3a 3a 53 59 4d 42 4f 4c 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 40 45 58 | .@SI::SYMBOL.or...........;;.@EX |
| 2205e0 | 54 3a 3a 53 59 4d 42 4f 4c 20 69 73 20 75 73 65 64 2e 20 57 65 20 63 61 6e 6e 6f 74 20 70 72 65 | T::SYMBOL.is.used..We.cannot.pre |
| 220600 | 64 69 63 74 20 68 65 72 65 2c 20 73 6f 20 77 65 20 6a 75 73 74 0a 20 20 20 20 20 20 20 20 20 20 | dict.here,.so.we.just........... |
| 220620 | 3b 3b 20 70 72 6f 76 69 64 65 20 73 65 76 65 72 61 6c 20 63 61 6e 64 69 64 61 74 65 73 2e 0a 20 | ;;.provide.several.candidates... |
| 220640 | 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 54 41 47 53 2d 6c 6f 63 61 | .........(apply.#'make-TAGS-loca |
| 220660 | 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 2d 6e 61 6d 65 0a 20 20 20 | tion..................c-name.... |
| 220680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 77 69 74 68 20 73 20 3d 20 28 73 79 | ..............(loop.with.s.=.(sy |
| 2206a0 | 6d 62 6f 6c 2d 6e 61 6d 65 20 6c 69 73 70 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | mbol-name.lisp-name)............ |
| 2206c0 | 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 20 69 6e 20 28 70 61 63 6b 61 67 65 2d 6e 61 | ............for.p.in.(package-na |
| 2206e0 | 6d 65 73 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 6c 69 73 70 2d 6e 61 6d 65 29 29 0a | mes.(symbol-package.lisp-name)). |
| 220700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 | .......................collect.( |
| 220720 | 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 3a 3a 7e 41 22 20 70 20 73 29 0a 20 20 20 20 20 20 20 | format.nil."~A::~A".p.s)........ |
| 220740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 66 6f 72 6d 61 74 20 | ................collect.(format. |
| 220760 | 6e 69 6c 20 22 7e 28 7e 41 3a 3a 7e 41 7e 29 22 20 70 20 73 29 29 29 29 29 29 0a 20 20 20 20 20 | nil."~(~A::~A~)".p.s))))))...... |
| 220780 | 28 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d | (function.......(multiple-value- |
| 2207a0 | 62 69 6e 64 20 28 66 69 6c 65 20 70 6f 73 29 20 28 65 78 74 3a 63 6f 6d 70 69 6c 65 64 2d 66 75 | bind.(file.pos).(ext:compiled-fu |
| 2207c0 | 6e 63 74 69 6f 6e 2d 66 69 6c 65 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e | nction-file.object).........(con |
| 2207e0 | 64 20 28 28 6e 6f 74 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 | d.((not.file)................(re |
| 220800 | 74 75 72 6e 2d 66 72 6f 6d 20 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6e 69 6c 29 29 0a | turn-from.source-location.nil)). |
| 220820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 74 6d 70 66 69 6c 65 2d 74 6f 2d 62 75 66 66 65 | ..............((tmpfile-to-buffe |
| 220840 | 72 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 62 75 66 | r.file)................(make-buf |
| 220860 | 66 65 72 2d 6c 6f 63 61 74 69 6f 6e 20 28 74 6d 70 66 69 6c 65 2d 74 6f 2d 62 75 66 66 65 72 20 | fer-location.(tmpfile-to-buffer. |
| 220880 | 66 69 6c 65 29 20 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 | file).pos))...............(t.... |
| 2208a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 | ............(assert.(probe-file. |
| 2208c0 | 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 6e | file))................(assert.(n |
| 2208e0 | 6f 74 20 28 6d 69 6e 75 73 70 20 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ot.(minusp.pos)))............... |
| 220900 | 20 28 6d 61 6b 65 2d 66 69 6c 65 2d 6c 6f 63 61 74 69 6f 6e 20 66 69 6c 65 20 70 6f 73 29 29 29 | .(make-file-location.file.pos))) |
| 220920 | 29 29 0a 20 20 20 20 20 28 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 3b 3b 20 46 49 58 4d 45 3a 20 | ))......(method.......;;.FIXME:. |
| 220940 | 54 68 69 73 20 77 69 6c 6c 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e 20 4e 49 4c 20 61 74 20 74 | This.will.always.return.NIL.at.t |
| 220960 | 68 65 20 6d 6f 6d 65 6e 74 3b 20 45 43 4c 20 64 6f 65 73 20 6e 6f 74 0a 20 20 20 20 20 20 3b 3b | he.moment;.ECL.does.not.......;; |
| 220980 | 20 73 74 6f 72 65 20 64 65 62 75 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 6d 65 74 | .store.debug.information.for.met |
| 2209a0 | 68 6f 64 73 20 79 65 74 2e 0a 20 20 20 20 20 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e | hods.yet........(source-location |
| 2209c0 | 20 28 63 6c 6f 73 3a 6d 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 20 6f 62 6a 65 63 74 29 29 29 | .(clos:method-function.object))) |
| 2209e0 | 0a 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 6d 75 6c | ......((member.nil.t).......(mul |
| 220a00 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 66 6c 61 67 20 63 2d 6e 61 6d 65 29 20 28 | tiple-value-bind.(flag.c-name).( |
| 220a20 | 73 69 3a 6d 61 6e 67 6c 65 2d 6e 61 6d 65 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 28 | si:mangle-name.object).........( |
| 220a40 | 61 73 73 65 72 74 20 66 6c 61 67 29 0a 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 54 41 47 53 2d | assert.flag).........(make-TAGS- |
| 220a60 | 6c 6f 63 61 74 69 6f 6e 20 63 2d 6e 61 6d 65 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 | location.c-name))))))..(defimple |
| 220a80 | 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 | mentation.find-source-location.( |
| 220aa0 | 6f 62 6a 65 63 74 29 0a 20 20 28 6f 72 20 28 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 6f | object)...(or.(source-location.o |
| 220ac0 | 62 6a 65 63 74 29 0a 20 20 20 20 20 20 28 6d 61 6b 65 2d 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f | bject).......(make-error-locatio |
| 220ae0 | 6e 20 22 53 6f 75 72 63 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 7e 53 20 6e 6f 74 20 66 | n."Source.definition.of.~S.not.f |
| 220b00 | 6f 75 6e 64 2e 22 20 6f 62 6a 65 63 74 29 29 29 0a 0a 3b 3b 3b 20 62 75 66 66 65 72 2d 66 69 72 | ound.".object)))..;;;.buffer-fir |
| 220b20 | 73 74 2d 63 68 61 6e 67 65 0a 0a 0c 0a 3b 3b 3b 3b 20 58 52 45 46 0a 0a 3b 3b 3b 20 77 68 6f 2d | st-change....;;;;.XREF..;;;.who- |
| 220b40 | 63 61 6c 6c 73 0a 3b 3b 3b 20 63 61 6c 6c 73 2d 77 68 6f 0a 3b 3b 3b 20 77 68 6f 2d 72 65 66 65 | calls.;;;.calls-who.;;;.who-refe |
| 220b60 | 72 65 6e 63 65 73 0a 3b 3b 3b 20 77 68 6f 2d 62 69 6e 64 73 0a 3b 3b 3b 20 77 68 6f 2d 73 65 74 | rences.;;;.who-binds.;;;.who-set |
| 220b80 | 73 0a 3b 3b 3b 20 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 0a 3b 3b 3b 20 77 68 6f 2d 73 | s.;;;.who-macroexpands.;;;.who-s |
| 220ba0 | 70 65 63 69 61 6c 69 7a 65 73 0a 3b 3b 3b 20 6c 69 73 74 2d 63 61 6c 6c 65 72 73 0a 3b 3b 3b 20 | pecializes.;;;.list-callers.;;;. |
| 220bc0 | 6c 69 73 74 2d 63 61 6c 6c 65 65 73 0a 0a 0c 0a 3b 3b 3b 3b 20 50 72 6f 66 69 6c 69 6e 67 0a 0a | list-callees....;;;;.Profiling.. |
| 220be0 | 3b 3b 3b 20 58 58 58 3a 20 75 73 65 20 6d 6f 6e 69 74 6f 72 2e 6c 69 73 70 20 28 63 63 6c 2c 63 | ;;;.XXX:.use.monitor.lisp.(ccl,c |
| 220c00 | 6c 69 73 70 29 0a 0a 23 2b 70 72 6f 66 69 6c 65 0a 28 70 72 6f 67 6e 0a 0a 28 64 65 66 69 6d 70 | lisp)..#+profile.(progn..(defimp |
| 220c20 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 77 | lementation.profile.(fname)...(w |
| 220c40 | 68 65 6e 20 66 6e 61 6d 65 20 28 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 70 72 6f 66 69 6c | hen.fname.(eval.`(profile:profil |
| 220c60 | 65 20 2c 66 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | e.,fname))))..(defimplementation |
| 220c80 | 20 75 6e 70 72 6f 66 69 6c 65 20 28 66 6e 61 6d 65 29 0a 20 20 28 77 68 65 6e 20 66 6e 61 6d 65 | .unprofile.(fname)...(when.fname |
| 220ca0 | 20 28 65 76 61 6c 20 60 28 70 72 6f 66 69 6c 65 3a 75 6e 70 72 6f 66 69 6c 65 20 2c 66 6e 61 6d | .(eval.`(profile:unprofile.,fnam |
| 220cc0 | 65 29 29 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 6e 70 72 6f 66 | e))))..(defimplementation.unprof |
| 220ce0 | 69 6c 65 2d 61 6c 6c 20 28 29 0a 20 20 28 70 72 6f 66 69 6c 65 3a 75 6e 70 72 6f 66 69 6c 65 2d | ile-all.()...(profile:unprofile- |
| 220d00 | 61 6c 6c 29 0a 20 20 22 41 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 75 6e 70 72 6f 66 69 6c 65 64 | all)..."All.functions.unprofiled |
| 220d20 | 2e 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d | .")..(defimplementation.profile- |
| 220d40 | 72 65 70 6f 72 74 20 28 29 0a 20 20 28 70 72 6f 66 69 6c 65 3a 72 65 70 6f 72 74 29 29 0a 0a 28 | report.()...(profile:report))..( |
| 220d60 | 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 20 | defimplementation.profile-reset. |
| 220d80 | 28 29 0a 20 20 28 70 72 6f 66 69 6c 65 3a 72 65 73 65 74 29 0a 20 20 22 52 65 73 65 74 20 70 72 | ()...(profile:reset)..."Reset.pr |
| 220da0 | 6f 66 69 6c 69 6e 67 20 63 6f 75 6e 74 65 72 73 2e 22 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 | ofiling.counters.")..(defimpleme |
| 220dc0 | 6e 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 20 28 29 0a 20 20 | ntation.profiled-functions.()... |
| 220de0 | 28 70 72 6f 66 69 6c 65 3a 70 72 6f 66 69 6c 65 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e | (profile:profile))..(defimplemen |
| 220e00 | 74 61 74 69 6f 6e 20 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 20 28 70 61 63 6b 61 67 65 20 | tation.profile-package.(package. |
| 220e20 | 63 61 6c 6c 65 72 73 20 6d 65 74 68 6f 64 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e | callers.methods)...(declare.(ign |
| 220e40 | 6f 72 65 20 63 61 6c 6c 65 72 73 20 6d 65 74 68 6f 64 73 29 29 0a 20 20 28 65 76 61 6c 20 60 28 | ore.callers.methods))...(eval.`( |
| 220e60 | 70 72 6f 66 69 6c 65 3a 70 72 6f 66 69 6c 65 20 2c 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 | profile:profile.,(package-name.( |
| 220e80 | 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 29 29 29 0a 29 20 3b 20 23 2b | find-package.package))))).).;.#+ |
| 220ea0 | 70 72 6f 66 69 6c 65 20 28 70 72 6f 67 6e 20 2e 2e 2e 0a 0a 0c 0a 3b 3b 3b 3b 20 54 72 61 63 65 | profile.(progn........;;;;.Trace |
| 220ec0 | 0a 0a 3b 3b 3b 20 54 6f 67 67 6c 65 20 74 72 61 63 69 6e 67 20 6f 66 20 74 68 65 20 66 75 6e 63 | ..;;;.Toggle.tracing.of.the.func |
| 220ee0 | 74 69 6f 6e 28 73 29 20 67 69 76 65 6e 20 77 69 74 68 20 53 50 45 43 2e 0a 3b 3b 3b 20 53 50 45 | tion(s).given.with.SPEC..;;;.SPE |
| 220f00 | 43 20 63 61 6e 20 62 65 3a 0a 3b 3b 3b 20 20 28 73 65 74 66 20 4e 41 4d 45 29 20 20 20 20 20 20 | C.can.be:.;;;..(setf.NAME)...... |
| 220f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 20 73 65 74 66 20 66 | ......................;.a.setf.f |
| 220f40 | 75 6e 63 74 69 6f 6e 0a 3b 3b 3b 20 20 28 3a 64 65 66 6d 65 74 68 6f 64 20 4e 41 4d 45 20 51 55 | unction.;;;..(:defmethod.NAME.QU |
| 220f60 | 41 4c 49 46 49 45 52 2e 2e 2e 20 28 53 50 45 43 49 41 4c 49 5a 45 52 2e 2e 2e 29 29 20 3b 20 61 | ALIFIER....(SPECIALIZER...)).;.a |
| 220f80 | 20 73 70 65 63 69 66 69 63 20 6d 65 74 68 6f 64 0a 3b 3b 3b 20 20 28 3a 64 65 66 67 65 6e 65 72 | .specific.method.;;;..(:defgener |
| 220fa0 | 69 63 20 4e 41 4d 45 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 | ic.NAME).....................;.a |
| 220fc0 | 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 61 6c 6c 20 6d 65 74 68 6f | .generic.function.with.all.metho |
| 220fe0 | 64 73 0a 3b 3b 3b 20 20 28 3a 63 61 6c 6c 20 43 41 4c 4c 45 52 20 43 41 4c 4c 45 45 29 20 20 20 | ds.;;;..(:call.CALLER.CALLEE)... |
| 221000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 72 61 63 65 20 63 61 6c 6c 73 20 66 72 6f | ...............;.trace.calls.fro |
| 221020 | 6d 20 43 41 4c 4c 45 52 20 74 6f 20 43 41 4c 4c 45 45 2e 0a 3b 3b 3b 20 20 28 3a 6c 61 62 65 6c | m.CALLER.to.CALLEE..;;;..(:label |
| 221040 | 73 20 54 4f 50 4c 45 56 45 4c 20 4c 4f 43 41 4c 29 0a 3b 3b 3b 20 20 28 3a 66 6c 65 74 20 54 4f | s.TOPLEVEL.LOCAL).;;;..(:flet.TO |
| 221060 | 50 4c 45 56 45 4c 20 4c 4f 43 41 4c 29 20 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 74 6f 67 67 6c 65 2d | PLEVEL.LOCAL)..;;;.;;;...toggle- |
| 221080 | 74 72 61 63 65 20 28 73 70 65 63 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 74 6f 72 0a 0a | trace.(spec)....;;;;.Inspector.. |
| 2210a0 | 3b 3b 3b 20 46 49 58 4d 45 3a 20 57 6f 75 6c 64 20 62 65 20 6e 69 63 65 20 69 66 20 69 74 20 77 | ;;;.FIXME:.Would.be.nice.if.it.w |
| 2210c0 | 61 73 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 69 6e 73 70 65 63 74 20 6f 62 6a 65 63 74 73 0a 3b | as.possible.to.inspect.objects.; |
| 2210e0 | 3b 3b 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 6e 20 43 2e 0a 0a 3b 3b 3b 20 52 65 74 75 72 6e | ;;.implemented.in.C...;;;.Return |
| 221100 | 20 61 20 6c 69 73 74 20 6f 66 20 62 69 6e 64 69 6e 67 73 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e | .a.list.of.bindings.correspondin |
| 221120 | 67 20 74 6f 20 4f 42 4a 45 43 54 27 73 20 73 6c 6f 74 73 2e 0a 3b 3b 3b 20 20 20 65 76 61 6c 2d | g.to.OBJECT's.slots..;;;...eval- |
| 221140 | 63 6f 6e 74 65 78 74 20 28 6f 62 6a 65 63 74 29 0a 0a 3b 3b 3b 20 52 65 74 75 72 6e 20 61 20 73 | context.(object)..;;;.Return.a.s |
| 221160 | 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 70 72 69 6d 69 74 69 76 65 20 74 | tring.describing.the.primitive.t |
| 221180 | 79 70 65 20 6f 66 20 6f 62 6a 65 63 74 2e 0a 3b 3b 3b 20 20 20 64 65 73 63 72 69 62 65 2d 70 72 | ype.of.object..;;;...describe-pr |
| 2211a0 | 69 6d 69 74 69 76 65 2d 74 79 70 65 20 28 6f 62 6a 65 63 74 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 75 | imitive-type.(object)....;;;;.Mu |
| 2211c0 | 6c 74 69 74 68 72 65 61 64 69 6e 67 0a 0a 3b 3b 3b 20 4e 6f 74 20 6e 65 65 64 65 64 20 69 6e 20 | ltithreading..;;;.Not.needed.in. |
| 2211e0 | 45 43 4c 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 69 6e 69 74 69 61 6c 69 7a 65 2d 6d 75 6c 74 69 70 72 | ECL.;;;.;;;...initialize-multipr |
| 221200 | 6f 63 65 73 73 69 6e 67 0a 0a 23 2b 74 68 72 65 61 64 73 0a 28 70 72 6f 67 6e 0a 20 20 28 64 65 | ocessing..#+threads.(progn...(de |
| 221220 | 66 76 61 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 2a 20 30 29 0a 0a 20 20 28 | fvar.*thread-id-counter*.0)....( |
| 221240 | 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 20 28 6d 61 | defparameter.*thread-id-map*.(ma |
| 221260 | 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 0a 20 20 28 64 65 66 76 61 72 20 2a 74 68 72 65 | ke-hash-table))....(defvar.*thre |
| 221280 | 61 64 2d 69 64 2d 6d 61 70 2d 6c 6f 63 6b 2a 0a 20 20 20 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f 63 | ad-id-map-lock*.....(mp:make-loc |
| 2212a0 | 6b 20 3a 6e 61 6d 65 20 22 74 68 72 65 61 64 20 69 64 20 6d 61 70 20 6c 6f 63 6b 22 29 29 0a 0a | k.:name."thread.id.map.lock")).. |
| 2212c0 | 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 70 61 77 6e 20 28 66 6e 20 26 | ..(defimplementation.spawn.(fn.& |
| 2212e0 | 6b 65 79 20 6e 61 6d 65 29 0a 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 72 75 6e 2d 66 75 | key.name).....(mp:process-run-fu |
| 221300 | 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 66 6e 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e | nction.name.fn))....(defimplemen |
| 221320 | 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 20 28 74 61 72 67 65 74 2d 74 68 72 65 61 64 29 | tation.thread-id.(target-thread) |
| 221340 | 0a 20 20 20 20 28 62 6c 6f 63 6b 20 74 68 72 65 61 64 2d 69 64 0a 20 20 20 20 20 20 28 6d 70 3a | .....(block.thread-id.......(mp: |
| 221360 | 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2d 6c 6f 63 6b 2a 29 | with-lock.(*thread-id-map-lock*) |
| 221380 | 0a 20 20 20 20 20 20 20 20 3b 3b 20 44 6f 65 73 20 54 41 52 47 45 54 2d 54 48 52 45 41 44 20 68 | .........;;.Does.TARGET-THREAD.h |
| 2213a0 | 61 76 65 20 61 6e 20 69 64 20 61 6c 72 65 61 64 79 3f 0a 20 20 20 20 20 20 20 20 28 6d 61 70 68 | ave.an.id.already?.........(maph |
| 2213c0 | 61 73 68 20 28 6c 61 6d 62 64 61 20 28 69 64 20 74 68 72 65 61 64 2d 70 6f 69 6e 74 65 72 29 0a | ash.(lambda.(id.thread-pointer). |
| 2213e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 68 72 65 61 64 | ...................(let.((thread |
| 221400 | 20 28 73 69 3a 77 65 61 6b 2d 70 6f 69 6e 74 65 72 2d 76 61 6c 75 65 20 74 68 72 65 61 64 2d 70 | .(si:weak-pointer-value.thread-p |
| 221420 | 6f 69 6e 74 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ointer)))......................( |
| 221440 | 63 6f 6e 64 20 28 28 6e 6f 74 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | cond.((not.thread).............. |
| 221460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 68 61 73 68 20 69 64 20 2a 74 68 72 65 | ...............(remhash.id.*thre |
| 221480 | 61 64 2d 69 64 2d 6d 61 70 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ad-id-map*)).................... |
| 2214a0 | 20 20 20 20 20 20 20 20 28 28 65 71 20 74 68 72 65 61 64 20 74 61 72 67 65 74 2d 74 68 72 65 61 | ........((eq.thread.target-threa |
| 2214c0 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | d).............................( |
| 2214e0 | 72 65 74 75 72 6e 2d 66 72 6f 6d 20 74 68 72 65 61 64 2d 69 64 20 69 64 29 29 29 29 29 0a 20 20 | return-from.thread-id.id)))))... |
| 221500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 29 0a | ...............*thread-id-map*). |
| 221520 | 20 20 20 20 20 20 20 20 3b 3b 20 54 41 52 47 45 54 2d 54 48 52 45 41 44 20 6e 6f 74 20 66 6f 75 | ........;;.TARGET-THREAD.not.fou |
| 221540 | 6e 64 20 69 6e 20 2a 54 48 52 45 41 44 2d 49 44 2d 4d 41 50 2a 0a 20 20 20 20 20 20 20 20 28 6c | nd.in.*THREAD-ID-MAP*.........(l |
| 221560 | 65 74 20 28 28 69 64 20 28 69 6e 63 66 20 2a 74 68 72 65 61 64 2d 69 64 2d 63 6f 75 6e 74 65 72 | et.((id.(incf.*thread-id-counter |
| 221580 | 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 2d 70 6f 69 6e 74 65 | *))...............(thread-pointe |
| 2215a0 | 72 20 28 73 69 3a 6d 61 6b 65 2d 77 65 61 6b 2d 70 6f 69 6e 74 65 72 20 74 61 72 67 65 74 2d 74 | r.(si:make-weak-pointer.target-t |
| 2215c0 | 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 | hread)))...........(setf.(gethas |
| 2215e0 | 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 29 20 74 68 72 65 61 64 2d 70 6f 69 | h.id.*thread-id-map*).thread-poi |
| 221600 | 6e 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 69 64 29 29 29 29 0a 0a 20 20 28 64 65 66 69 6d | nter)...........id))))....(defim |
| 221620 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 74 68 72 65 61 64 20 28 69 64 29 0a 20 20 | plementation.find-thread.(id)... |
| 221640 | 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2d | ..(mp:with-lock.(*thread-id-map- |
| 221660 | 6c 6f 63 6b 2a 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 68 72 65 61 64 2d 70 74 72 20 | lock*).......(let*.((thread-ptr. |
| 221680 | 28 67 65 74 68 61 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 2d 6d 61 70 2a 29 29 0a 20 20 | (gethash.id.*thread-id-map*))... |
| 2216a0 | 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 20 28 61 6e 64 20 74 68 72 65 61 64 2d 70 | ...........(thread.(and.thread-p |
| 2216c0 | 74 72 20 28 73 69 3a 77 65 61 6b 2d 70 6f 69 6e 74 65 72 2d 76 61 6c 75 65 20 74 68 72 65 61 64 | tr.(si:weak-pointer-value.thread |
| 2216e0 | 2d 70 74 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 74 68 72 65 61 64 0a | -ptr)))).........(unless.thread. |
| 221700 | 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 68 61 73 68 20 69 64 20 2a 74 68 72 65 61 64 2d 69 64 | ..........(remhash.id.*thread-id |
| 221720 | 2d 6d 61 70 2a 29 29 0a 20 20 20 20 20 20 20 20 74 68 72 65 61 64 29 29 29 0a 0a 20 20 28 64 65 | -map*)).........thread)))....(de |
| 221740 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 6e 61 6d 65 20 28 74 68 72 | fimplementation.thread-name.(thr |
| 221760 | 65 61 64 29 0a 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 74 68 72 65 61 64 | ead).....(mp:process-name.thread |
| 221780 | 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d | ))....(defimplementation.thread- |
| 2217a0 | 73 74 61 74 75 73 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 28 69 66 20 28 6d 70 3a 70 72 6f 63 | status.(thread).....(if.(mp:proc |
| 2217c0 | 65 73 73 2d 61 63 74 69 76 65 2d 70 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 22 52 55 | ess-active-p.thread)........."RU |
| 2217e0 | 4e 4e 49 4e 47 22 0a 20 20 20 20 20 20 20 20 22 53 54 4f 50 50 45 44 22 29 29 0a 0a 20 20 3b 3b | NNING"........."STOPPED"))....;; |
| 221800 | 20 74 68 72 65 61 64 2d 61 74 74 72 69 62 75 74 65 73 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d | .thread-attributes....(defimplem |
| 221820 | 65 6e 74 61 74 69 6f 6e 20 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 20 28 29 0a 20 20 20 20 6d | entation.current-thread.().....m |
| 221840 | 70 3a 2a 63 75 72 72 65 6e 74 2d 70 72 6f 63 65 73 73 2a 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c | p:*current-process*)....(defimpl |
| 221860 | 65 6d 65 6e 74 61 74 69 6f 6e 20 61 6c 6c 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 20 20 28 6d | ementation.all-threads.().....(m |
| 221880 | 70 3a 61 6c 6c 2d 70 72 6f 63 65 73 73 65 73 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 | p:all-processes))....(defimpleme |
| 2218a0 | 6e 74 61 74 69 6f 6e 20 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 28 74 68 72 65 61 64 29 0a | ntation.thread-alive-p.(thread). |
| 2218c0 | 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 61 63 74 69 76 65 2d 70 20 74 68 72 65 61 64 29 | ....(mp:process-active-p.thread) |
| 2218e0 | 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 74 65 72 72 75 70 | )....(defimplementation.interrup |
| 221900 | 74 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 20 66 6e 29 0a 20 20 20 20 28 6d 70 3a 69 6e 74 | t-thread.(thread.fn).....(mp:int |
| 221920 | 65 72 72 75 70 74 2d 70 72 6f 63 65 73 73 20 74 68 72 65 61 64 20 66 6e 29 29 0a 0a 20 20 28 64 | errupt-process.thread.fn))....(d |
| 221940 | 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6b 69 6c 6c 2d 74 68 72 65 61 64 20 28 74 68 | efimplementation.kill-thread.(th |
| 221960 | 72 65 61 64 29 0a 20 20 20 20 28 6d 70 3a 70 72 6f 63 65 73 73 2d 6b 69 6c 6c 20 74 68 72 65 61 | read).....(mp:process-kill.threa |
| 221980 | 64 29 29 0a 0a 20 20 28 64 65 66 76 61 72 20 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 20 28 6d | d))....(defvar.*mailbox-lock*.(m |
| 2219a0 | 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 22 6d 61 69 6c 62 6f 78 20 6c 6f 63 6b 22 | p:make-lock.:name."mailbox.lock" |
| 2219c0 | 29 29 0a 20 20 28 64 65 66 76 61 72 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 20 28 6c 69 73 74 29 29 | ))...(defvar.*mailboxes*.(list)) |
| 2219e0 | 0a 20 20 28 64 65 63 6c 61 69 6d 20 28 74 79 70 65 20 6c 69 73 74 20 2a 6d 61 69 6c 62 6f 78 65 | ...(declaim.(type.list.*mailboxe |
| 221a00 | 73 2a 29 29 0a 0a 20 20 28 64 65 66 73 74 72 75 63 74 20 28 6d 61 69 6c 62 6f 78 20 28 3a 63 6f | s*))....(defstruct.(mailbox.(:co |
| 221a20 | 6e 63 2d 6e 61 6d 65 20 6d 61 69 6c 62 6f 78 2e 29 29 0a 20 20 20 20 74 68 72 65 61 64 0a 20 20 | nc-name.mailbox.)).....thread... |
| 221a40 | 20 20 28 6d 75 74 65 78 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 29 29 0a 20 20 20 20 28 63 76 | ..(mutex.(mp:make-lock)).....(cv |
| 221a60 | 61 72 20 20 28 6d 70 3a 6d 61 6b 65 2d 63 6f 6e 64 69 74 69 6f 6e 2d 76 61 72 69 61 62 6c 65 29 | ar..(mp:make-condition-variable) |
| 221a80 | 29 0a 20 20 20 20 28 71 75 65 75 65 20 27 28 29 20 3a 74 79 70 65 20 6c 69 73 74 29 29 0a 0a 20 | ).....(queue.'().:type.list))... |
| 221aa0 | 20 28 64 65 66 75 6e 20 6d 61 69 6c 62 6f 78 20 28 74 68 72 65 61 64 29 0a 20 20 20 20 22 52 65 | .(defun.mailbox.(thread)....."Re |
| 221ac0 | 74 75 72 6e 20 54 48 52 45 41 44 27 73 20 6d 61 69 6c 62 6f 78 2e 22 0a 20 20 20 20 28 6d 70 3a | turn.THREAD's.mailbox.".....(mp: |
| 221ae0 | 77 69 74 68 2d 6c 6f 63 6b 20 28 2a 6d 61 69 6c 62 6f 78 2d 6c 6f 63 6b 2a 29 0a 20 20 20 20 20 | with-lock.(*mailbox-lock*)...... |
| 221b00 | 20 28 6f 72 20 28 66 69 6e 64 20 74 68 72 65 61 64 20 2a 6d 61 69 6c 62 6f 78 65 73 2a 20 3a 6b | .(or.(find.thread.*mailboxes*.:k |
| 221b20 | 65 79 20 23 27 6d 61 69 6c 62 6f 78 2e 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 | ey.#'mailbox.thread)...........( |
| 221b40 | 6c 65 74 20 28 28 6d 62 20 28 6d 61 6b 65 2d 6d 61 69 6c 62 6f 78 20 3a 74 68 72 65 61 64 20 74 | let.((mb.(make-mailbox.:thread.t |
| 221b60 | 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6d 62 20 2a 6d | hread))).............(push.mb.*m |
| 221b80 | 61 69 6c 62 6f 78 65 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 62 29 29 29 29 0a 0a 20 | ailboxes*).............mb))))... |
| 221ba0 | 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 73 65 6e 64 20 28 74 68 72 65 61 64 | .(defimplementation.send.(thread |
| 221bc0 | 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c | .message).....(let*.((mbox.(mail |
| 221be0 | 62 6f 78 20 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 74 65 78 20 28 | box.thread))............(mutex.( |
| 221c00 | 6d 61 69 6c 62 6f 78 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 29 0a 20 20 20 20 20 20 28 6d 70 3a | mailbox.mutex.mbox))).......(mp: |
| 221c20 | 77 69 74 68 2d 6c 6f 63 6b 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 | with-lock.(mutex).........(setf. |
| 221c40 | 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (mailbox.queue.mbox)............ |
| 221c60 | 20 20 20 28 6e 63 6f 6e 63 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 20 28 | ...(nconc.(mailbox.queue.mbox).( |
| 221c80 | 6c 69 73 74 20 6d 65 73 73 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 6d 70 3a 63 6f 6e 64 | list.message))).........(mp:cond |
| 221ca0 | 69 74 69 6f 6e 2d 76 61 72 69 61 62 6c 65 2d 62 72 6f 61 64 63 61 73 74 20 28 6d 61 69 6c 62 6f | ition-variable-broadcast.(mailbo |
| 221cc0 | 78 2e 63 76 61 72 20 6d 62 6f 78 29 29 29 29 29 0a 0a 20 20 3b 3b 20 72 65 63 65 69 76 65 0a 0a | x.cvar.mbox)))))....;;.receive.. |
| 221ce0 | 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 63 65 69 76 65 2d 69 66 20 | ..(defimplementation.receive-if. |
| 221d00 | 28 74 65 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 20 20 28 6c 65 | (test.&optional.timeout).....(le |
| 221d20 | 74 2a 20 28 28 6d 62 6f 78 20 28 6d 61 69 6c 62 6f 78 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 | t*.((mbox.(mailbox.(current-thre |
| 221d40 | 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 74 65 78 20 28 6d 61 69 6c 62 6f 78 | ad)))............(mutex.(mailbox |
| 221d60 | 2e 6d 75 74 65 78 20 6d 62 6f 78 29 29 29 0a 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 6f 72 | .mutex.mbox))).......(assert.(or |
| 221d80 | 20 28 6e 6f 74 20 74 69 6d 65 6f 75 74 29 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 29 29 0a | .(not.timeout).(eq.timeout.t))). |
| 221da0 | 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 28 63 68 65 63 6b 2d 73 6c 69 6d | ......(loop..........(check-slim |
| 221dc0 | 65 2d 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 20 20 20 20 20 28 6d 70 3a 77 69 74 68 2d | e-interrupts)..........(mp:with- |
| 221de0 | 6c 6f 63 6b 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 | lock.(mutex)............(let*.(( |
| 221e00 | 71 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 20 6d 62 6f 78 29 29 0a 20 20 20 20 20 20 20 20 | q.(mailbox.queue.mbox))......... |
| 221e20 | 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 20 28 6d 65 6d 62 65 72 2d 69 66 20 74 65 73 74 20 | ..........(tail.(member-if.test. |
| 221e40 | 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 74 61 69 6c 0a 20 20 20 | q)))..............(when.tail.... |
| 221e60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 6d 61 69 6c 62 6f 78 2e 71 75 65 75 65 | ............(setf.(mailbox.queue |
| 221e80 | 20 6d 62 6f 78 29 20 28 6e 63 6f 6e 63 20 28 6c 64 69 66 66 20 71 20 74 61 69 6c 29 20 28 63 64 | .mbox).(nconc.(ldiff.q.tail).(cd |
| 221ea0 | 72 20 74 61 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e | r.tail)))................(return |
| 221ec0 | 20 28 63 61 72 20 74 61 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | .(car.tail))))............(when. |
| 221ee0 | 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 6e | (eq.timeout.t).(return.(values.n |
| 221f00 | 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 70 3a 63 6f 6e 64 69 74 69 6f 6e | il.t)))............(mp:condition |
| 221f20 | 2d 76 61 72 69 61 62 6c 65 2d 77 61 69 74 20 28 6d 61 69 6c 62 6f 78 2e 63 76 61 72 20 6d 62 6f | -variable-wait.(mailbox.cvar.mbo |
| 221f40 | 78 29 20 6d 75 74 65 78 29 29 29 29 29 0a 0a 20 20 3b 3b 20 54 72 69 67 67 65 72 20 61 20 63 61 | x).mutex)))))....;;.Trigger.a.ca |
| 221f60 | 6c 6c 20 74 6f 20 43 48 45 43 4b 2d 53 4c 49 4d 45 2d 49 4e 54 45 52 52 55 50 54 53 20 69 6e 20 | ll.to.CHECK-SLIME-INTERRUPTS.in. |
| 221f80 | 54 48 52 45 41 44 20 77 69 74 68 6f 75 74 20 75 73 69 6e 67 0a 20 20 3b 3b 20 61 73 79 6e 63 68 | THREAD.without.using...;;.asynch |
| 221fa0 | 72 6f 6e 6f 75 73 20 69 6e 74 65 72 72 75 70 74 73 2e 0a 20 20 3b 3b 0a 20 20 3b 3b 20 44 6f 65 | ronous.interrupts....;;...;;.Doe |
| 221fc0 | 73 6e 27 74 20 68 61 76 65 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 69 73 20 69 66 20 52 | sn't.have.to.implement.this.if.R |
| 221fe0 | 45 43 45 49 56 45 2d 49 46 20 70 65 72 69 6f 64 69 63 61 6c 6c 79 20 63 61 6c 6c 73 0a 20 20 3b | ECEIVE-IF.periodically.calls...; |
| 222000 | 3b 20 43 48 45 43 4b 2d 53 4c 49 4d 45 2d 49 4e 54 45 52 52 55 50 54 53 2c 20 62 75 74 20 74 68 | ;.CHECK-SLIME-INTERRUPTS,.but.th |
| 222020 | 61 74 27 73 20 65 6e 65 72 67 79 20 69 6e 65 66 66 69 63 69 65 6e 74 2e 0a 20 20 3b 3b 0a 20 20 | at's.energy.inefficient....;;... |
| 222040 | 3b 3b 20 20 20 77 61 6b 65 2d 74 68 72 65 61 64 20 28 74 68 72 65 61 64 29 0a 0a 20 20 3b 3b 20 | ;;...wake-thread.(thread)....;;. |
| 222060 | 43 6f 70 69 65 64 20 66 72 6f 6d 20 73 62 63 6c 2e 6c 69 73 70 20 61 6e 64 20 61 64 6a 75 73 74 | Copied.from.sbcl.lisp.and.adjust |
| 222080 | 65 64 20 74 6f 20 45 43 4c 2e 0a 20 20 28 6c 65 74 20 28 28 61 6c 69 73 74 20 27 28 29 29 0a 20 | ed.to.ECL....(let.((alist.'()).. |
| 2220a0 | 20 20 20 20 20 20 20 28 6d 75 74 65 78 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d | .......(mutex.(mp:make-lock.:nam |
| 2220c0 | 65 20 22 72 65 67 69 73 74 65 72 2d 74 68 72 65 61 64 22 29 29 29 0a 0a 20 20 20 20 28 64 65 66 | e."register-thread")))......(def |
| 2220e0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 67 69 73 74 65 72 2d 74 68 72 65 61 64 20 28 | implementation.register-thread.( |
| 222100 | 6e 61 6d 65 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 | name.thread).......(declare.(typ |
| 222120 | 65 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6c | e.symbol.name)).......(mp:with-l |
| 222140 | 6f 63 6b 20 28 6d 75 74 65 78 29 0a 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 74 | ock.(mutex).........(etypecase.t |
| 222160 | 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 | hread...........(null........... |
| 222180 | 20 28 73 65 74 66 20 61 6c 69 73 74 20 28 64 65 6c 65 74 65 20 6e 61 6d 65 20 61 6c 69 73 74 20 | .(setf.alist.(delete.name.alist. |
| 2221a0 | 3a 6b 65 79 20 23 27 63 61 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 70 3a 70 72 6f 63 | :key.#'car)))...........(mp:proc |
| 2221c0 | 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 62 65 20 28 61 73 73 | ess............(let.((probe.(ass |
| 2221e0 | 6f 63 20 6e 61 6d 65 20 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | oc.name.alist)))..............(c |
| 222200 | 6f 6e 64 20 28 70 72 6f 62 65 20 28 73 65 74 66 20 28 63 64 72 20 70 72 6f 62 65 29 20 74 68 72 | ond.(probe.(setf.(cdr.probe).thr |
| 222220 | 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 73 65 74 | ead))....................(t.(set |
| 222240 | 66 20 61 6c 69 73 74 20 28 61 63 6f 6e 73 20 6e 61 6d 65 20 74 68 72 65 61 64 20 61 6c 69 73 74 | f.alist.(acons.name.thread.alist |
| 222260 | 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 6e 69 6c 29 0a 0a 20 20 20 20 28 64 65 66 69 6d 70 | )))))))).......nil)......(defimp |
| 222280 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6e 64 2d 72 65 67 69 73 74 65 72 65 64 20 28 6e 61 6d | lementation.find-registered.(nam |
| 2222a0 | 65 29 0a 20 20 20 20 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6d 75 74 65 78 29 0a 20 | e).......(mp:with-lock.(mutex).. |
| 2222c0 | 20 20 20 20 20 20 20 28 63 64 72 20 28 61 73 73 6f 63 20 6e 61 6d 65 20 61 6c 69 73 74 29 29 29 | .......(cdr.(assoc.name.alist))) |
| 2222e0 | 29 29 0a 0a 20 20 3b 3b 20 4e 6f 74 20 6e 65 65 64 65 64 20 69 6e 20 45 43 4c 20 28 3f 29 2e 0a | ))....;;.Not.needed.in.ECL.(?).. |
| 222300 | 20 20 3b 3b 0a 20 20 3b 3b 20 20 20 73 65 74 2d 64 65 66 61 75 6c 74 2d 69 6e 69 74 69 61 6c 2d | ..;;...;;...set-default-initial- |
| 222320 | 62 69 6e 64 69 6e 67 20 28 76 61 72 20 66 6f 72 6d 29 0a 0a 20 20 29 20 3b 20 23 2b 74 68 72 65 | binding.(var.form)....).;.#+thre |
| 222340 | 61 64 73 0a 0a 3b 3b 3b 20 49 6e 73 74 65 61 64 20 6f 66 20 62 75 73 79 20 77 61 69 74 69 6e 67 | ads..;;;.Instead.of.busy.waiting |
| 222360 | 20 77 69 74 68 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 4e 49 4c 2c 20 75 | .with.communication-style.NIL,.u |
| 222380 | 73 65 20 73 65 6c 65 63 74 28 29 0a 3b 3b 3b 20 6f 6e 20 74 68 65 20 73 6f 63 6b 65 74 73 27 20 | se.select().;;;.on.the.sockets'. |
| 2223a0 | 73 74 72 65 61 6d 73 2e 0a 23 2b 73 65 72 76 65 2d 65 76 65 6e 74 0a 28 64 65 66 69 6d 70 6c 65 | streams..#+serve-event.(defimple |
| 2223c0 | 6d 65 6e 74 61 74 69 6f 6e 20 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 20 28 73 74 72 65 61 6d | mentation.wait-for-input.(stream |
| 2223e0 | 73 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 61 73 73 65 72 74 20 28 | s.&optional.timeout)...(assert.( |
| 222400 | 6d 65 6d 62 65 72 20 74 69 6d 65 6f 75 74 20 27 28 6e 69 6c 20 74 29 29 29 0a 20 20 28 66 6c 65 | member.timeout.'(nil.t)))...(fle |
| 222420 | 74 20 28 28 70 6f 6c 6c 2d 73 74 72 65 61 6d 73 20 28 73 74 72 65 61 6d 73 20 74 69 6d 65 6f 75 | t.((poll-streams.(streams.timeou |
| 222440 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 65 72 76 65 2d 65 76 65 6e | t)............(let*.((serve-even |
| 222460 | 74 3a 3a 2a 64 65 73 63 72 69 70 74 6f 72 2d 68 61 6e 64 6c 65 72 73 2a 0a 20 20 20 20 20 20 20 | t::*descriptor-handlers*........ |
| 222480 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 70 79 2d 6c 69 73 74 20 73 65 72 76 65 2d 65 76 65 | ............(copy-list.serve-eve |
| 2224a0 | 6e 74 3a 3a 2a 64 65 73 63 72 69 70 74 6f 72 2d 68 61 6e 64 6c 65 72 73 2a 29 29 0a 20 20 20 20 | nt::*descriptor-handlers*))..... |
| 2224c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 63 74 69 76 65 2d 66 64 73 20 27 28 29 29 0a 20 | ..............(active-fds.'()).. |
| 2224e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 64 2d 73 74 72 65 61 6d 2d 61 6c 69 73 | .................(fd-stream-alis |
| 222500 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 | t....................(loop.for.s |
| 222520 | 20 69 6e 20 73 74 72 65 61 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .in.streams..................... |
| 222540 | 20 20 66 6f 72 20 66 64 20 3d 20 28 73 6f 63 6b 65 74 2d 66 64 20 73 29 0a 20 20 20 20 20 20 20 | ..for.fd.=.(socket-fd.s)........ |
| 222560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 63 6f 6e 73 20 66 64 20 | ...............collect.(cons.fd. |
| 222580 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 65 72 | s).......................do.(ser |
| 2225a0 | 76 65 2d 65 76 65 6e 74 3a 61 64 64 2d 66 64 2d 68 61 6e 64 6c 65 72 20 66 64 20 3a 69 6e 70 75 | ve-event:add-fd-handler.fd.:inpu |
| 2225c0 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t............................... |
| 2225e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 | .......................#'(lambda |
| 222600 | 20 28 66 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(fd)........................... |
| 222620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 222640 | 70 75 73 68 20 66 64 20 61 63 74 69 76 65 2d 66 64 73 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 | push.fd.active-fds))))))........ |
| 222660 | 20 20 20 20 20 20 28 73 65 72 76 65 2d 65 76 65 6e 74 3a 73 65 72 76 65 2d 65 76 65 6e 74 20 74 | ......(serve-event:serve-event.t |
| 222680 | 69 6d 65 6f 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 | imeout)..............(loop.for.f |
| 2226a0 | 64 20 69 6e 20 61 63 74 69 76 65 2d 66 64 73 20 63 6f 6c 6c 65 63 74 20 28 63 64 72 20 28 61 73 | d.in.active-fds.collect.(cdr.(as |
| 2226c0 | 73 6f 63 20 66 64 20 66 64 2d 73 74 72 65 61 6d 2d 61 6c 69 73 74 29 29 29 29 29 29 0a 20 20 20 | soc.fd.fd-stream-alist)))))).... |
| 2226e0 | 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 63 68 65 63 6b 2d 73 6c 69 6d | .(loop........(cond.((check-slim |
| 222700 | 65 2d 69 6e 74 65 72 72 75 70 74 73 29 20 28 72 65 74 75 72 6e 20 3a 69 6e 74 65 72 72 75 70 74 | e-interrupts).(return.:interrupt |
| 222720 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 6f 75 74 20 28 72 65 74 75 72 6e | ))..............(timeout.(return |
| 222740 | 20 28 70 6f 6c 6c 2d 73 74 72 65 61 6d 73 20 73 74 72 65 61 6d 73 20 30 29 29 29 0a 20 20 20 20 | .(poll-streams.streams.0)))..... |
| 222760 | 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 2d | .........(t...............(when- |
| 222780 | 6c 65 74 20 28 72 65 61 64 79 20 28 70 6f 6c 6c 2d 73 74 72 65 61 6d 73 20 73 74 72 65 61 6d 73 | let.(ready.(poll-streams.streams |
| 2227a0 | 20 30 2e 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 72 | .0.2)).................(return.r |
| 2227c0 | 65 61 64 79 29 29 29 29 29 29 29 0a 0a 23 2d 73 65 72 76 65 2d 65 76 65 6e 74 0a 28 64 65 66 69 | eady)))))))..#-serve-event.(defi |
| 2227e0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 20 28 73 74 | mplementation.wait-for-input.(st |
| 222800 | 72 65 61 6d 73 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 61 73 73 65 | reams.&optional.timeout)...(asse |
| 222820 | 72 74 20 28 6d 65 6d 62 65 72 20 74 69 6d 65 6f 75 74 20 27 28 6e 69 6c 20 74 29 29 29 0a 20 20 | rt.(member.timeout.'(nil.t)))... |
| 222840 | 28 6c 6f 6f 70 0a 20 20 20 28 63 6f 6e 64 20 28 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 | (loop....(cond.((check-slime-int |
| 222860 | 65 72 72 75 70 74 73 29 20 28 72 65 74 75 72 6e 20 3a 69 6e 74 65 72 72 75 70 74 29 29 0a 20 20 | errupts).(return.:interrupt))... |
| 222880 | 20 20 20 20 20 20 20 28 74 69 6d 65 6f 75 74 20 28 72 65 74 75 72 6e 20 28 72 65 6d 6f 76 65 2d | .......(timeout.(return.(remove- |
| 2228a0 | 69 66 2d 6e 6f 74 20 23 27 6c 69 73 74 65 6e 20 73 74 72 65 61 6d 73 29 29 29 0a 20 20 20 20 20 | if-not.#'listen.streams)))...... |
| 2228c0 | 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 61 64 79 20 28 72 | ....(t...........(let.((ready.(r |
| 2228e0 | 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 27 6c 69 73 74 65 6e 20 73 74 72 65 61 6d 73 29 29 29 | emove-if-not.#'listen.streams))) |
| 222900 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 72 65 61 64 79 20 28 72 65 74 75 72 6e 20 72 | .............(if.ready.(return.r |
| 222920 | 65 61 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 65 65 70 20 30 2e 31 29 29 29 | eady)).............(sleep.0.1))) |
| 222940 | 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4c 6f 63 6b 73 0a 0a 23 2b 74 68 72 65 61 64 73 0a 28 64 65 | )))....;;;;.Locks..#+threads.(de |
| 222960 | 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 6c 6f 63 6b 20 28 26 6b 65 79 20 | fimplementation.make-lock.(&key. |
| 222980 | 6e 61 6d 65 29 0a 20 20 28 6d 70 3a 6d 61 6b 65 2d 6c 6f 63 6b 20 3a 6e 61 6d 65 20 6e 61 6d 65 | name)...(mp:make-lock.:name.name |
| 2229a0 | 20 3a 72 65 63 75 72 73 69 76 65 20 74 29 29 0a 0a 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 | .:recursive.t))..(defimplementat |
| 2229c0 | 69 6f 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 6c 6f 63 6b 2d 68 65 6c 64 20 28 6c 6f 63 6b 20 66 75 | ion.call-with-lock-held.(lock.fu |
| 2229e0 | 6e 63 74 69 6f 6e 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 66 75 6e 63 74 69 6f | nction)...(declare.(type.functio |
| 222a00 | 6e 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 6d 70 3a 77 69 74 68 2d 6c 6f 63 6b 20 28 6c 6f | n.function))...(mp:with-lock.(lo |
| 222a20 | 63 6b 29 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b | ck).(funcall.function)))....;;;; |
| 222a40 | 20 57 65 61 6b 20 64 61 74 61 73 74 72 75 63 74 75 72 65 73 0a 0a 3b 3b 3b 20 58 58 58 3a 20 74 | .Weak.datastructures..;;;.XXX:.t |
| 222a60 | 68 69 73 20 73 68 6f 75 6c 64 20 77 6f 72 6b 20 62 75 74 20 63 61 75 73 65 73 20 53 4c 49 4d 45 | his.should.work.but.causes.SLIME |
| 222a80 | 20 52 45 50 4c 20 68 61 6e 67 20 61 74 20 73 6f 6d 65 20 70 6f 69 6e 74 20 6f 66 20 74 69 6d 65 | .REPL.hang.at.some.point.of.time |
| 222aa0 | 2e 20 4d 61 79 0a 3b 3b 3b 20 62 65 20 45 43 4c 20 6f 72 20 53 4c 49 4d 45 20 62 75 67 20 2d 20 | ..May.;;;.be.ECL.or.SLIME.bug.-. |
| 222ac0 | 64 69 73 61 62 6c 69 6e 67 20 66 6f 72 20 6e 6f 77 2e 0a 23 2b 28 61 6e 64 20 65 63 6c 2d 77 65 | disabling.for.now..#+(and.ecl-we |
| 222ae0 | 61 6b 2d 68 61 73 68 20 28 6f 72 29 29 0a 28 70 72 6f 67 6e 0a 20 20 28 64 65 66 69 6d 70 6c 65 | ak-hash.(or)).(progn...(defimple |
| 222b00 | 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 77 65 61 6b 2d 6b 65 79 2d 68 61 73 68 2d 74 61 62 | mentation.make-weak-key-hash-tab |
| 222b20 | 6c 65 20 28 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b | le.(&rest.args).....(apply.#'mak |
| 222b40 | 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 77 65 61 6b 6e 65 73 73 20 3a 6b 65 79 20 61 72 67 73 | e-hash-table.:weakness.:key.args |
| 222b60 | 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6b 65 2d 77 65 | ))....(defimplementation.make-we |
| 222b80 | 61 6b 2d 76 61 6c 75 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 28 26 72 65 73 74 20 61 72 67 73 29 | ak-value-hash-table.(&rest.args) |
| 222ba0 | 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 77 | .....(apply.#'make-hash-table.:w |
| 222bc0 | 65 61 6b 6e 65 73 73 20 3a 76 61 6c 75 65 20 61 72 67 73 29 29 0a 0a 20 20 28 64 65 66 69 6d 70 | eakness.:value.args))....(defimp |
| 222be0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 68 61 73 68 2d 74 61 62 6c 65 2d 77 65 61 6b 6e 65 73 73 20 | lementation.hash-table-weakness. |
| 222c00 | 28 68 61 73 68 74 61 62 6c 65 29 0a 20 20 20 20 28 65 78 74 3a 68 61 73 68 2d 74 61 62 6c 65 2d | (hashtable).....(ext:hash-table- |
| 222c20 | 77 65 61 6b 6e 65 73 73 20 68 61 73 68 74 61 62 6c 65 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 68 | weakness.hashtable)))....;;;;.Ch |
| 222c40 | 61 72 61 63 74 65 72 20 6e 61 6d 65 73 0a 0a 3b 3b 3b 20 44 65 66 61 75 6c 74 20 69 6d 70 6c 65 | aracter.names..;;;.Default.imple |
| 222c60 | 6d 65 6e 74 61 74 69 6f 6e 20 69 73 20 66 69 6e 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 63 68 61 | mentation.is.fine..;;;.;;;...cha |
| 222c80 | 72 61 63 74 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 28 70 72 65 66 69 78 20 6d 61 | racter-completion-set.(prefix.ma |
| 222ca0 | 74 63 68 70 29 0a 0a 0c 0a 3b 3b 3b 3b 20 48 65 61 70 20 64 75 6d 70 73 0a 0a 3b 3b 3b 20 44 6f | tchp)....;;;;.Heap.dumps..;;;.Do |
| 222cc0 | 65 73 6e 27 74 20 61 70 70 6c 79 20 74 6f 20 45 43 4c 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 73 61 | esn't.apply.to.ECL..;;;.;;;...sa |
| 222ce0 | 76 65 2d 69 6d 61 67 65 20 28 66 69 6c 65 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 73 | ve-image.(filename.&optional.res |
| 222d00 | 74 61 72 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 3b 3b 3b 20 20 20 62 61 63 6b 67 72 6f 75 6e 64 2d | tart-function).;;;...background- |
| 222d20 | 73 61 76 65 2d 69 6d 61 67 65 20 28 66 69 6c 65 6e 61 6d 65 20 26 6b 65 79 20 72 65 73 74 61 72 | save-image.(filename.&key.restar |
| 222d40 | 74 2d 66 75 6e 63 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 0a | t-function.completion-function). |
| 222d60 | 0a 0c 0a 3b 3b 3b 3b 20 57 72 61 70 70 69 6e 67 0a 0a 3b 3b 3b 20 49 6e 74 65 72 63 65 70 74 20 | ...;;;;.Wrapping..;;;.Intercept. |
| 222d80 | 66 75 74 75 72 65 20 63 61 6c 6c 73 20 74 6f 20 53 50 45 43 20 61 6e 64 20 73 75 72 72 6f 75 6e | future.calls.to.SPEC.and.surroun |
| 222da0 | 64 20 74 68 65 6d 20 69 6e 20 63 61 6c 6c 62 61 63 6b 73 2e 0a 3b 3b 3b 20 56 65 72 79 20 6d 75 | d.them.in.callbacks..;;;.Very.mu |
| 222dc0 | 63 68 20 73 69 6d 69 6c 61 72 20 74 6f 20 73 6f 2d 63 61 6c 6c 65 64 20 61 64 76 69 63 65 73 20 | ch.similar.to.so-called.advices. |
| 222de0 | 66 6f 72 20 6e 6f 72 6d 61 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 | for.normal.functions..;;;.;;;... |
| 222e00 | 77 72 61 70 20 28 73 70 65 63 20 69 6e 64 69 63 61 74 6f 72 20 26 6b 65 79 20 62 65 66 6f 72 65 | wrap.(spec.indicator.&key.before |
| 222e20 | 20 61 66 74 65 72 20 72 65 70 6c 61 63 65 29 0a 3b 3b 3b 20 20 20 75 6e 77 72 61 70 20 28 73 70 | .after.replace).;;;...unwrap.(sp |
| 222e40 | 65 63 20 69 6e 64 69 63 61 74 6f 72 29 0a 3b 3b 3b 20 20 20 77 72 61 70 70 65 64 2d 70 20 28 73 | ec.indicator).;;;...wrapped-p.(s |
| 222e60 | 70 65 63 20 69 6e 64 69 63 61 74 6f 72 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | pec.indicator).................. |
| 222e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 222ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 222ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 222ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 222f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 222f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 222f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 222f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 222f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 222fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 222fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 222fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 50 52 4f 42 4c 45 4d 53 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/PROBLEMS............. |
| 223020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 223080 | 30 30 30 36 34 34 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 33 36 35 00 20 30 00 00 00 | 0006444.00000000000.012365..0... |
| 2230a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2230c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2230e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 223120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 223140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2231a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2231c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2231e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223200 | 4b 6e 6f 77 6e 20 70 72 6f 62 6c 65 6d 73 20 77 69 74 68 20 53 4c 49 4d 45 20 20 20 20 20 20 20 | Known.problems.with.SLIME....... |
| 223220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2a 2d 20 | ............................-*-. |
| 223240 | 6f 75 74 6c 69 6e 65 20 2d 2a 2d 0a 0a 2a 20 43 6f 6d 6d 6f 6e 20 74 6f 20 61 6c 6c 20 62 61 63 | outline.-*-..*.Common.to.all.bac |
| 223260 | 6b 65 6e 64 73 0a 0a 2a 2a 20 43 61 75 74 69 6f 6e 3a 20 6e 65 74 77 6f 72 6b 20 73 65 63 75 72 | kends..**.Caution:.network.secur |
| 223280 | 69 74 79 0a 0a 54 68 65 20 60 4d 2d 78 20 73 6c 69 6d 65 27 20 63 6f 6d 6d 61 6e 64 20 68 61 73 | ity..The.`M-x.slime'.command.has |
| 2232a0 | 20 4c 69 73 70 20 6c 69 73 74 65 6e 20 6f 6e 20 61 20 54 43 50 20 73 6f 63 6b 65 74 20 61 6e 64 | .Lisp.listen.on.a.TCP.socket.and |
| 2232c0 | 20 77 61 69 74 20 66 6f 72 0a 45 6d 61 63 73 20 74 6f 20 63 6f 6e 6e 65 63 74 2c 20 77 68 69 63 | .wait.for.Emacs.to.connect,.whic |
| 2232e0 | 68 20 74 79 70 69 63 61 6c 6c 79 20 74 61 6b 65 73 20 6f 6e 20 74 68 65 20 6f 72 64 65 72 20 6f | h.typically.takes.on.the.order.o |
| 223300 | 66 20 6f 6e 65 20 73 65 63 6f 6e 64 2e 20 49 66 0a 73 6f 6d 65 6f 6e 65 20 65 6c 73 65 20 77 65 | f.one.second..If.someone.else.we |
| 223320 | 72 65 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 20 74 68 69 73 20 73 6f 63 6b 65 74 20 74 68 65 | re.to.connect.to.this.socket.the |
| 223340 | 6e 20 74 68 65 79 20 63 6f 75 6c 64 20 75 73 65 20 74 68 65 0a 53 4c 49 4d 45 20 70 72 6f 74 6f | n.they.could.use.the.SLIME.proto |
| 223360 | 63 6f 6c 20 74 6f 20 63 6f 6e 74 72 6f 6c 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 2e | col.to.control.the.Lisp.process. |
| 223380 | 0a 0a 54 68 65 20 6c 69 73 74 65 6e 20 73 6f 63 6b 65 74 20 69 73 20 62 6f 75 6e 64 20 6f 6e 20 | ..The.listen.socket.is.bound.on. |
| 2233a0 | 74 68 65 20 6c 6f 6f 70 62 61 63 6b 20 69 6e 74 65 72 66 61 63 65 20 69 6e 20 61 6c 6c 20 4c 69 | the.loopback.interface.in.all.Li |
| 2233c0 | 73 70 73 20 74 68 61 74 0a 73 75 70 70 6f 72 74 20 74 68 69 73 2e 20 54 68 69 73 20 77 61 79 20 | sps.that.support.this..This.way. |
| 2233e0 | 72 65 6d 6f 74 65 20 68 6f 73 74 73 20 61 72 65 20 75 6e 61 62 6c 65 20 74 6f 20 63 6f 6e 6e 65 | remote.hosts.are.unable.to.conne |
| 223400 | 63 74 2e 0a 0a 2a 2a 20 52 45 41 44 2d 43 48 41 52 2d 4e 4f 2d 48 41 4e 47 20 69 73 20 62 72 6f | ct...**.READ-CHAR-NO-HANG.is.bro |
| 223420 | 6b 65 6e 0a 0a 52 45 41 44 2d 43 48 41 52 2d 4e 4f 2d 48 41 4e 47 20 64 6f 65 73 6e 27 74 20 77 | ken..READ-CHAR-NO-HANG.doesn't.w |
| 223440 | 6f 72 6b 20 70 72 6f 70 65 72 6c 79 20 66 6f 72 20 73 6c 69 6d 65 2d 69 6e 70 75 74 2d 73 74 72 | ork.properly.for.slime-input-str |
| 223460 | 65 61 6d 73 2e 20 20 44 75 65 0a 74 6f 20 74 68 65 20 77 61 79 20 77 65 20 72 65 71 75 65 73 74 | eams...Due.to.the.way.we.request |
| 223480 | 20 69 6e 70 75 74 20 66 72 6f 6d 20 45 6d 61 63 73 20 69 74 27 73 20 6e 6f 74 20 70 6f 73 73 69 | .input.from.Emacs.it's.not.possi |
| 2234a0 | 62 6c 65 20 74 6f 20 72 65 70 65 61 74 65 64 6c 79 0a 70 6f 6c 6c 20 66 6f 72 20 69 6e 70 75 74 | ble.to.repeatedly.poll.for.input |
| 2234c0 | 2e 20 20 54 6f 20 67 65 74 20 61 6e 79 20 69 6e 70 75 74 20 79 6f 75 20 68 61 76 65 20 74 6f 20 | ...To.get.any.input.you.have.to. |
| 2234e0 | 63 61 6c 6c 20 52 45 41 44 2d 43 48 41 52 20 28 6f 72 20 61 0a 66 75 6e 63 74 69 6f 6e 20 77 68 | call.READ-CHAR.(or.a.function.wh |
| 223500 | 69 63 68 20 63 61 6c 6c 73 20 52 45 41 44 2d 43 48 41 52 29 2e 0a 0a 2a 20 42 61 63 6b 65 6e 64 | ich.calls.READ-CHAR)...*.Backend |
| 223520 | 2d 73 70 65 63 69 66 69 63 20 70 72 6f 62 6c 65 6d 73 0a 0a 2a 2a 20 43 4d 55 43 4c 0a 0a 54 68 | -specific.problems..**.CMUCL..Th |
| 223540 | 65 20 64 65 66 61 75 6c 74 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 20 3a 53 | e.default.communication.style.:S |
| 223560 | 49 47 49 4f 20 69 73 20 72 65 70 6f 72 74 65 64 6c 79 20 75 6e 72 65 6c 69 61 62 6c 65 20 77 69 | IGIO.is.reportedly.unreliable.wi |
| 223580 | 74 68 0a 63 65 72 74 61 69 6e 20 6c 69 62 72 61 72 69 65 73 20 28 6c 69 6b 65 20 6c 69 62 53 44 | th.certain.libraries.(like.libSD |
| 2235a0 | 4c 29 20 61 6e 64 20 63 65 72 74 61 69 6e 20 70 6c 61 74 66 6f 72 6d 73 20 28 6c 69 6b 65 20 53 | L).and.certain.platforms.(like.S |
| 2235c0 | 6f 6c 61 72 69 73 20 6f 6e 0a 53 70 61 72 63 29 2e 20 49 74 20 67 65 6e 65 72 61 6c 6c 79 20 77 | olaris.on.Sparc)..It.generally.w |
| 2235e0 | 6f 72 6b 73 20 76 65 72 79 20 77 65 6c 6c 20 6f 6e 20 78 38 36 20 73 6f 20 69 74 20 72 65 6d 61 | orks.very.well.on.x86.so.it.rema |
| 223600 | 69 6e 73 20 74 68 65 20 64 65 66 61 75 6c 74 2e 0a 0a 2a 2a 20 53 42 43 4c 0a 0a 54 68 65 20 6c | ins.the.default...**.SBCL..The.l |
| 223620 | 61 74 65 73 74 20 72 65 6c 65 61 73 65 64 20 76 65 72 73 69 6f 6e 20 6f 66 20 53 42 43 4c 20 61 | atest.released.version.of.SBCL.a |
| 223640 | 74 20 74 68 65 20 74 69 6d 65 20 6f 66 20 70 61 63 6b 61 67 69 6e 67 20 73 68 6f 75 6c 64 0a 77 | t.the.time.of.packaging.should.w |
| 223660 | 6f 72 6b 2e 20 20 4f 6c 64 65 72 20 6f 72 20 6e 65 77 65 72 20 53 42 43 4c 73 20 6d 61 79 20 6f | ork...Older.or.newer.SBCLs.may.o |
| 223680 | 72 20 6d 61 79 20 6e 6f 74 20 77 6f 72 6b 2e 20 20 44 6f 20 6e 6f 74 20 75 73 65 0a 6d 75 6c 74 | r.may.not.work...Do.not.use.mult |
| 2236a0 | 69 74 68 72 65 61 64 69 6e 67 20 77 69 74 68 20 75 6e 70 61 74 63 68 65 64 20 32 2e 34 20 4c 69 | ithreading.with.unpatched.2.4.Li |
| 2236c0 | 6e 75 78 20 6b 65 72 6e 65 6c 73 2e 20 20 54 68 65 72 65 20 61 72 65 20 61 6c 73 6f 0a 70 72 6f | nux.kernels...There.are.also.pro |
| 2236e0 | 62 6c 65 6d 73 20 77 69 74 68 20 6b 65 72 6e 65 6c 20 76 65 72 73 69 6f 6e 73 20 32 2e 36 2e 35 | blems.with.kernel.versions.2.6.5 |
| 223700 | 20 2d 20 32 2e 36 2e 31 30 2e 0a 0a 54 68 65 20 28 76 29 69 65 77 2d 73 6f 75 72 63 65 20 63 6f | .-.2.6.10...The.(v)iew-source.co |
| 223720 | 6d 6d 61 6e 64 20 69 6e 20 74 68 65 20 64 65 62 75 67 67 65 72 20 63 61 6e 20 6f 6e 6c 79 20 6c | mmand.in.the.debugger.can.only.l |
| 223740 | 6f 63 61 74 65 20 65 78 61 63 74 20 73 6f 75 72 63 65 0a 66 6f 72 6d 73 20 66 6f 72 20 63 6f 64 | ocate.exact.source.forms.for.cod |
| 223760 | 65 20 63 6f 6d 70 69 6c 65 64 20 61 74 20 28 64 65 62 75 67 20 32 29 20 6f 72 20 68 69 67 68 65 | e.compiled.at.(debug.2).or.highe |
| 223780 | 72 2e 20 54 68 65 20 64 65 66 61 75 6c 74 20 6c 65 76 65 6c 20 69 73 0a 6c 6f 77 65 72 20 61 6e | r..The.default.level.is.lower.an |
| 2237a0 | 64 20 53 42 43 4c 20 69 74 73 65 6c 66 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 61 74 20 61 20 6c | d.SBCL.itself.is.compiled.at.a.l |
| 2237c0 | 6f 77 65 72 20 73 65 74 74 69 6e 67 2e 20 54 68 75 73 20 6f 6e 6c 79 0a 64 65 66 75 6e 2d 67 72 | ower.setting..Thus.only.defun-gr |
| 2237e0 | 61 6e 75 6c 61 72 69 74 79 20 69 73 20 61 76 61 69 6c 61 62 6c 65 20 77 69 74 68 20 64 65 66 61 | anularity.is.available.with.defa |
| 223800 | 75 6c 74 20 70 6f 6c 69 63 69 65 73 2e 0a 0a 2a 2a 20 4c 69 73 70 57 6f 72 6b 73 0a 0a 4f 6e 20 | ult.policies...**.LispWorks..On. |
| 223820 | 57 69 6e 64 6f 77 73 2c 20 53 4c 49 4d 45 20 68 61 6e 67 73 20 77 68 65 6e 20 63 61 6c 6c 69 6e | Windows,.SLIME.hangs.when.callin |
| 223840 | 67 20 66 6f 72 65 69 67 6e 20 66 75 6e 63 74 69 6f 6e 73 20 6f 72 20 63 65 72 74 61 69 6e 0a 6f | g.foreign.functions.or.certain.o |
| 223860 | 74 68 65 72 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 54 68 65 20 72 65 61 73 6f 6e 20 66 6f 72 20 | ther.functions...The.reason.for. |
| 223880 | 74 68 69 73 20 70 72 6f 62 6c 65 6d 20 69 73 20 75 6e 6b 6e 6f 77 6e 2e 0a 0a 57 65 20 6f 6e 6c | this.problem.is.unknown...We.onl |
| 2238a0 | 79 20 73 75 70 70 6f 72 74 20 6c 61 74 69 6e 31 20 65 6e 63 6f 64 69 6e 67 2e 20 20 28 55 6e 69 | y.support.latin1.encoding...(Uni |
| 2238c0 | 63 6f 64 65 20 77 6f 75 6c 64 6e 27 74 20 62 65 20 68 61 72 64 20 74 6f 20 61 64 64 2e 29 0a 0a | code.wouldn't.be.hard.to.add.).. |
| 2238e0 | 2a 2a 20 41 6c 6c 65 67 72 6f 20 43 4c 0a 0a 49 6e 74 65 72 72 75 70 74 69 6e 67 20 41 6c 6c 65 | **.Allegro.CL..Interrupting.Alle |
| 223900 | 67 72 6f 20 77 69 74 68 20 43 2d 63 20 43 2d 62 20 63 61 6e 20 62 65 20 73 6c 6f 77 2e 20 20 54 | gro.with.C-c.C-b.can.be.slow...T |
| 223920 | 68 69 73 20 69 73 20 63 61 75 73 65 64 20 62 79 20 74 68 65 0a 61 20 72 65 6c 61 74 69 76 65 6c | his.is.caused.by.the.a.relativel |
| 223940 | 79 20 6c 61 72 67 65 20 70 72 6f 63 65 73 73 2d 71 75 61 6e 74 75 6d 3a 20 32 20 73 65 63 6f 6e | y.large.process-quantum:.2.secon |
| 223960 | 64 73 20 62 79 20 64 65 66 61 75 6c 74 2e 20 20 41 6c 6c 65 67 72 6f 0a 72 65 73 70 6f 6e 64 73 | ds.by.default...Allegro.responds |
| 223980 | 20 6d 75 63 68 20 66 61 73 74 65 72 20 69 66 20 6d 70 3a 2a 64 65 66 61 75 6c 74 2d 70 72 6f 63 | .much.faster.if.mp:*default-proc |
| 2239a0 | 65 73 73 2d 71 75 61 6e 74 75 6d 2a 20 69 73 20 73 65 74 20 74 6f 20 30 2e 31 2e 0a 0a 2a 2a 20 | ess-quantum*.is.set.to.0.1...**. |
| 2239c0 | 43 4c 49 53 50 0a 0a 57 65 20 72 65 71 75 69 72 65 20 76 65 72 73 69 6f 6e 20 32 2e 34 39 20 6f | CLISP..We.require.version.2.49.o |
| 2239e0 | 72 20 68 69 67 68 65 72 2e 20 57 65 20 61 6c 73 6f 20 72 65 71 75 69 72 65 20 73 6f 63 6b 65 74 | r.higher..We.also.require.socket |
| 223a00 | 20 73 75 70 70 6f 72 74 2c 20 73 6f 0a 79 6f 75 20 6d 61 79 20 68 61 76 65 20 74 6f 20 73 74 61 | .support,.so.you.may.have.to.sta |
| 223a20 | 72 74 20 43 4c 49 53 50 20 77 69 74 68 20 22 63 6c 69 73 70 20 2d 4b 20 66 75 6c 6c 22 2e 0a 0a | rt.CLISP.with."clisp.-K.full"... |
| 223a40 | 55 6e 64 65 72 20 57 69 6e 64 6f 77 73 2c 20 69 6e 74 65 72 72 75 70 74 69 6e 67 20 28 77 69 74 | Under.Windows,.interrupting.(wit |
| 223a60 | 68 20 43 2d 63 20 43 2d 62 29 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b 2e 20 20 45 6d 61 63 73 20 | h.C-c.C-b).doesn't.work...Emacs. |
| 223a80 | 73 65 6e 64 73 0a 61 20 53 49 47 49 4e 54 20 73 69 67 6e 61 6c 2c 20 62 75 74 20 74 68 65 20 73 | sends.a.SIGINT.signal,.but.the.s |
| 223aa0 | 69 67 6e 61 6c 20 69 73 20 65 69 74 68 65 72 20 69 67 6e 6f 72 65 64 20 6f 72 20 43 4c 49 53 50 | ignal.is.either.ignored.or.CLISP |
| 223ac0 | 20 65 78 69 74 73 0a 69 6d 6d 65 64 69 61 74 65 6c 79 2e 0a 0a 4f 6e 20 57 69 6e 64 6f 77 73 2c | .exits.immediately...On.Windows, |
| 223ae0 | 20 43 4c 49 53 50 20 6d 61 79 20 72 65 66 75 73 65 20 74 6f 20 70 61 72 73 65 20 66 69 6c 65 6e | .CLISP.may.refuse.to.parse.filen |
| 223b00 | 61 6d 65 73 20 6c 69 6b 65 0a 22 43 3a 5c 5c 44 4f 43 55 4d 45 7e 31 5c 5c 6a 6f 68 6e 64 6f 65 | ames.like."C:\\DOCUME~1\\johndoe |
| 223b20 | 5c 5c 4c 4f 43 41 4c 53 7e 31 5c 5c 54 65 6d 70 5c 5c 73 6c 69 6d 65 2e 31 34 32 34 22 20 77 68 | \\LOCALS~1\\Temp\\slime.1424".wh |
| 223b40 | 65 6e 20 77 65 20 61 63 74 75 61 6c 6c 79 0a 6d 65 61 6e 20 43 3a 5c 44 6f 63 75 6d 65 6e 74 73 | en.we.actually.mean.C:\Documents |
| 223b60 | 20 61 6e 64 20 53 65 74 74 69 6e 67 73 5c 6a 6f 68 6e 64 6f 65 5c 4c 6f 63 61 6c 20 53 65 74 74 | .and.Settings\johndoe\Local.Sett |
| 223b80 | 69 6e 67 73 5c 73 6c 69 6d 65 2e 31 34 32 34 2e 20 20 41 73 0a 61 20 77 6f 72 6b 61 72 6f 75 6e | ings\slime.1424...As.a.workaroun |
| 223ba0 | 64 2c 20 79 6f 75 20 63 6f 75 6c 64 20 73 65 74 20 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 70 2d 66 | d,.you.could.set.slime-to-lisp-f |
| 223bc0 | 69 6c 65 6e 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 74 6f 20 73 6f 6d 65 0a 66 75 6e 63 74 69 6f | ilename-function.to.some.functio |
| 223be0 | 6e 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 61 20 73 74 72 69 6e 67 20 74 68 61 74 20 69 73 20 | n.that.returns.a.string.that.is. |
| 223c00 | 61 63 63 65 70 74 65 64 20 62 79 20 43 4c 49 53 50 2e 0a 0a 46 75 6e 63 74 69 6f 6e 20 61 72 67 | accepted.by.CLISP...Function.arg |
| 223c20 | 75 6d 65 6e 74 73 20 61 6e 64 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 6e 27 | uments.and.local.variables.aren' |
| 223c40 | 74 20 64 69 73 70 6c 61 79 65 64 20 70 72 6f 70 65 72 6c 79 20 69 6e 0a 74 68 65 20 62 61 63 6b | t.displayed.properly.in.the.back |
| 223c60 | 74 72 61 63 65 2e 20 20 43 68 61 6e 67 65 73 20 74 6f 20 43 4c 49 53 50 27 73 20 43 20 63 6f 64 | trace...Changes.to.CLISP's.C.cod |
| 223c80 | 65 20 61 72 65 20 6e 65 65 64 65 64 20 74 6f 20 66 69 78 20 74 68 69 73 0a 70 72 6f 62 6c 65 6d | e.are.needed.to.fix.this.problem |
| 223ca0 | 2e 20 20 49 6e 74 65 72 70 72 65 74 65 64 20 63 6f 64 65 20 69 73 20 75 73 75 61 6c 6c 79 20 65 | ...Interpreted.code.is.usually.e |
| 223cc0 | 61 73 65 72 20 74 6f 20 64 65 62 75 67 2e 0a 0a 4d 2d 2e 20 28 66 69 6e 64 2d 64 65 66 69 6e 69 | aser.to.debug...M-..(find-defini |
| 223ce0 | 74 69 6f 6e 29 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 69 66 20 74 68 65 20 66 61 73 6c 20 66 69 6c | tion).only.works.if.the.fasl.fil |
| 223d00 | 65 20 69 73 20 69 6e 20 74 68 65 20 73 61 6d 65 0a 64 69 72 65 63 74 6f 72 79 20 61 73 20 74 68 | e.is.in.the.same.directory.as.th |
| 223d20 | 65 20 73 6f 75 72 63 65 20 66 69 6c 65 2e 0a 0a 54 68 65 20 61 72 67 6c 69 73 74 20 64 6f 65 73 | e.source.file...The.arglist.does |
| 223d40 | 6e 27 74 20 69 6e 63 6c 75 64 65 20 74 68 65 20 70 72 6f 70 65 72 20 6e 61 6d 65 73 20 6f 6e 6c | n't.include.the.proper.names.onl |
| 223d60 | 79 20 22 66 61 6b 65 20 73 79 6d 62 6f 6c 73 22 20 6c 69 6b 65 0a 60 61 72 67 31 27 2e 0a 0a 2a | y."fake.symbols".like.`arg1'...* |
| 223d80 | 2a 20 41 72 6d 65 64 20 42 65 61 72 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 0a 0a 54 68 65 20 41 42 | *.Armed.Bear.Common.Lisp..The.AB |
| 223da0 | 43 4c 20 73 75 70 70 6f 72 74 20 69 73 20 73 74 69 6c 6c 20 6e 65 77 20 61 6e 64 20 65 78 70 65 | CL.support.is.still.new.and.expe |
| 223dc0 | 72 69 6d 65 6e 74 61 6c 2e 0a 0a 2a 2a 20 43 6f 72 6d 61 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 | rimental...**.Corman.Common.Lisp |
| 223de0 | 0a 0a 57 65 20 72 65 71 75 69 72 65 20 76 65 72 73 69 6f 6e 20 32 2e 35 31 20 6f 72 20 68 69 67 | ..We.require.version.2.51.or.hig |
| 223e00 | 68 65 72 2c 20 77 69 74 68 20 73 65 76 65 72 61 6c 20 70 61 74 63 68 65 73 20 28 61 76 61 69 6c | her,.with.several.patches.(avail |
| 223e20 | 61 62 6c 65 20 61 74 0a 68 74 74 70 3a 2f 2f 77 77 77 2e 67 72 75 6d 62 6c 65 73 6d 75 72 66 2e | able.at.http://www.grumblesmurf. |
| 223e40 | 6f 72 67 2f 6c 69 73 70 2f 63 6f 72 6d 61 6e 2d 70 61 74 63 68 65 73 29 2e 0a 0a 54 68 65 20 6f | org/lisp/corman-patches)...The.o |
| 223e60 | 6e 6c 79 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 20 63 75 72 72 65 6e 74 6c | nly.communication.style.currentl |
| 223e80 | 79 20 73 75 70 70 6f 72 74 65 64 20 69 73 20 4e 49 4c 2e 0a 0a 49 6e 74 65 72 72 75 70 74 69 6e | y.supported.is.NIL...Interruptin |
| 223ea0 | 67 20 28 77 69 74 68 20 43 2d 63 20 43 2d 62 29 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b 2e 0a 0a | g.(with.C-c.C-b).doesn't.work... |
| 223ec0 | 54 68 65 20 74 72 61 63 69 6e 67 2c 20 73 74 65 70 70 69 6e 67 20 61 6e 64 20 58 52 45 46 20 63 | The.tracing,.stepping.and.XREF.c |
| 223ee0 | 6f 6d 6d 61 6e 64 73 20 61 72 65 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 61 6c 6f 6e | ommands.are.not.implemented.alon |
| 223f00 | 67 20 77 69 74 68 0a 73 6f 6d 65 20 64 65 62 75 67 67 65 72 20 66 75 6e 63 74 69 6f 6e 61 6c 69 | g.with.some.debugger.functionali |
| 223f20 | 74 79 2e 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ty.............................. |
| 223f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 223fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 64 6f 63 2f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/doc/................. |
| 224020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224060 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 224080 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 31 37 35 34 00 20 35 00 00 00 | 0000000.00000000000.011754..5... |
| 2240a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2240c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2240e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 224120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 224140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2241a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2241c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2241e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 64 6f 63 2f 73 6c 69 6d 65 2d 72 65 66 63 61 72 64 2e 74 65 78 | slime-2.31/doc/slime-refcard.tex |
| 224220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 224280 | 30 30 30 36 30 35 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 32 32 32 00 20 30 00 00 00 | 0006056.00000000000.015222..0... |
| 2242a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2242c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2242e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 224320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 224340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2243a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2243c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2243e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 224400 | 5c 64 6f 63 75 6d 65 6e 74 63 6c 61 73 73 5b 61 34 70 61 70 65 72 2c 31 30 70 74 5d 7b 61 72 74 | \documentclass[a4paper,10pt]{art |
| 224420 | 69 63 6c 65 7d 0a 0a 5c 75 73 65 70 61 63 6b 61 67 65 7b 74 65 78 74 63 6f 6d 70 7d 0a 5c 75 73 | icle}..\usepackage{textcomp}.\us |
| 224440 | 65 70 61 63 6b 61 67 65 7b 66 75 6c 6c 70 61 67 65 7d 0a 5c 70 61 67 65 73 74 79 6c 65 7b 65 6d | epackage{fullpage}.\pagestyle{em |
| 224460 | 70 74 79 7d 0a 0a 0a 5c 6e 65 77 63 6f 6d 6d 61 6e 64 7b 5c 67 72 6f 75 70 7d 5b 31 5d 7b 5c 62 | pty}...\newcommand{\group}[1]{\b |
| 224480 | 69 67 73 6b 69 70 5c 70 61 72 5c 6e 6f 69 6e 64 65 6e 74 5c 74 65 78 74 62 66 7b 5c 6c 61 72 67 | igskip\par\noindent\textbf{\larg |
| 2244a0 | 65 23 31 7d 5c 6d 65 64 73 6b 69 70 7d 0a 5c 6e 65 77 63 6f 6d 6d 61 6e 64 7b 5c 73 75 62 67 72 | e#1}\medskip}.\newcommand{\subgr |
| 2244c0 | 6f 75 70 7d 5b 31 5d 7b 5c 6d 65 64 73 6b 69 70 5c 70 61 72 5c 6e 6f 69 6e 64 65 6e 74 5c 74 65 | oup}[1]{\medskip\par\noindent\te |
| 2244e0 | 78 74 62 66 7b 23 31 7d 5c 73 6d 61 6c 6c 73 6b 69 70 7d 0a 5c 6e 65 77 63 6f 6d 6d 61 6e 64 7b | xtbf{#1}\smallskip}.\newcommand{ |
| 224500 | 5c 6b 65 79 7d 5b 32 5d 7b 5c 70 61 72 5c 6e 6f 69 6e 64 65 6e 74 5c 74 65 78 74 62 66 7b 23 31 | \key}[2]{\par\noindent\textbf{#1 |
| 224520 | 7d 5c 68 66 69 6c 6c 7b 23 32 7d 7d 0a 5c 6e 65 77 63 6f 6d 6d 61 6e 64 7b 5c 6d 65 74 61 7d 5b | }\hfill{#2}}.\newcommand{\meta}[ |
| 224540 | 31 5d 7b 5c 74 65 78 74 6c 61 6e 67 6c 65 7b 23 31 7d 5c 74 65 78 74 72 61 6e 67 6c 65 7d 0a 0a | 1]{\textlangle{#1}\textrangle}.. |
| 224560 | 5c 62 65 67 69 6e 7b 64 6f 63 75 6d 65 6e 74 7d 0a 0a 5c 74 77 6f 63 6f 6c 75 6d 6e 5b 5c 4c 41 | \begin{document}..\twocolumn[\LA |
| 224580 | 52 47 45 5c 63 65 6e 74 65 72 69 6e 67 7b 53 4c 49 4d 45 20 51 75 69 63 6b 20 52 65 66 65 72 65 | RGE\centering{SLIME.Quick.Refere |
| 2245a0 | 6e 63 65 20 43 61 72 64 7d 5c 76 73 6b 69 70 31 63 6d 5d 0a 0a 5c 67 72 6f 75 70 7b 47 65 74 74 | nce.Card}\vskip1cm]..\group{Gett |
| 2245c0 | 69 6e 67 20 68 65 6c 70 20 69 6e 20 45 6d 61 63 73 7d 0a 0a 5c 6b 65 79 7b 43 2d 68 20 5c 6d 65 | ing.help.in.Emacs}..\key{C-h.\me |
| 2245e0 | 74 61 7b 6b 65 79 7d 7d 7b 64 65 73 63 72 69 62 65 20 66 75 6e 63 74 69 6f 6e 20 62 6f 75 6e 64 | ta{key}}{describe.function.bound |
| 224600 | 20 74 6f 20 5c 6d 65 74 61 7b 6b 65 79 7d 7d 0a 5c 6b 65 79 7b 43 2d 68 20 62 7d 7b 6c 69 73 74 | .to.\meta{key}}.\key{C-h.b}{list |
| 224620 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 6b 65 79 2d 62 69 6e 64 69 6e 67 73 20 66 6f 72 20 74 68 | .the.current.key-bindings.for.th |
| 224640 | 65 20 66 6f 63 75 73 20 62 75 66 66 65 72 7d 0a 5c 6b 65 79 7b 43 2d 68 20 6d 7d 7b 64 65 73 63 | e.focus.buffer}.\key{C-h.m}{desc |
| 224660 | 72 69 62 65 20 6d 6f 64 65 7d 0a 5c 6b 65 79 7b 43 2d 68 20 6c 7d 7b 73 68 6f 77 73 20 74 68 65 | ribe.mode}.\key{C-h.l}{shows.the |
| 224680 | 20 6b 65 79 73 20 79 6f 75 20 68 61 76 65 20 70 72 65 73 73 65 64 7d 0a 5c 6b 65 79 7b 5c 6d 65 | .keys.you.have.pressed}.\key{\me |
| 2246a0 | 74 61 7b 6b 65 79 7d 20 6c 7d 7b 77 68 61 74 20 73 74 61 72 74 73 20 77 69 74 68 20 5c 6d 65 74 | ta{key}.l}{what.starts.with.\met |
| 2246c0 | 61 7b 6b 65 79 7d 7d 0a 0a 5c 67 72 6f 75 70 7b 50 72 6f 67 72 61 6d 6d 69 6e 67 7d 0a 0a 5c 73 | a{key}}..\group{Programming}..\s |
| 2246e0 | 75 62 67 72 6f 75 70 7b 43 6f 6d 70 6c 65 74 69 6f 6e 7d 0a 0a 5c 6b 65 79 7b 4d 2d 74 61 62 2c | ubgroup{Completion}..\key{M-tab, |
| 224700 | 20 43 2d 63 20 43 2d 69 2c 20 43 2d 4d 2d 69 7d 7b 63 6f 6d 70 6c 65 74 65 20 73 79 6d 62 6f 6c | .C-c.C-i,.C-M-i}{complete.symbol |
| 224720 | 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 73 7d 7b 63 6f 6d 70 6c 65 74 65 20 66 6f 72 6d 7d 0a 5c | }.\key{C-c.C-s}{complete.form}.\ |
| 224740 | 6b 65 79 7b 43 2d 63 20 4d 2d 69 7d 7b 66 75 7a 7a 79 20 63 6f 6d 70 6c 65 74 65 20 73 79 6d 62 | key{C-c.M-i}{fuzzy.complete.symb |
| 224760 | 6f 6c 7d 0a 0a 5c 73 75 62 67 72 6f 75 70 7b 43 6c 6f 73 75 72 65 7d 0a 0a 5c 6b 65 79 7b 43 2d | ol}..\subgroup{Closure}..\key{C- |
| 224780 | 63 20 43 2d 71 7d 7b 63 6c 6f 73 65 20 70 61 72 65 6e 73 20 61 74 20 70 6f 69 6e 74 7d 0a 5c 6b | c.C-q}{close.parens.at.point}.\k |
| 2247a0 | 65 79 7b 43 2d 5d 7d 7b 63 6c 6f 73 65 20 61 6c 6c 20 73 65 78 70 7d 0a 0a 5c 73 75 62 67 72 6f | ey{C-]}{close.all.sexp}..\subgro |
| 2247c0 | 75 70 7b 49 6e 64 65 6e 74 61 74 69 6f 6e 7d 0a 0a 5c 6b 65 79 7b 43 2d 63 20 4d 2d 71 7d 7b 72 | up{Indentation}..\key{C-c.M-q}{r |
| 2247e0 | 65 69 6e 64 65 6e 74 20 64 65 66 75 6e 7d 0a 5c 6b 65 79 7b 43 2d 4d 2d 71 7d 7b 69 6e 64 65 6e | eindent.defun}.\key{C-M-q}{inden |
| 224800 | 74 20 73 65 78 70 7d 0a 0a 5c 73 75 62 67 72 6f 75 70 7b 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | t.sexp}..\subgroup{Documentation |
| 224820 | 7d 0a 0a 5c 6b 65 79 7b 73 70 63 7d 7b 69 6e 73 65 72 74 20 61 20 73 70 61 63 65 2c 20 64 69 73 | }..\key{spc}{insert.a.space,.dis |
| 224840 | 70 6c 61 79 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 64 | play.argument.list}.\key{C-c.C-d |
| 224860 | 20 64 7d 7b 64 65 73 63 72 69 62 65 20 73 79 6d 62 6f 6c 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d | .d}{describe.symbol}.\key{C-c.C- |
| 224880 | 66 7d 7b 64 65 73 63 72 69 62 65 20 66 75 6e 63 74 69 6f 6e 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 | f}{describe.function}.\key{C-c.C |
| 2248a0 | 2d 64 20 61 7d 7b 61 70 72 6f 70 6f 73 20 73 65 61 72 63 68 20 66 6f 72 20 72 65 67 65 78 70 7d | -d.a}{apropos.search.for.regexp} |
| 2248c0 | 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 64 20 7a 7d 7b 61 70 72 6f 70 6f 73 20 77 69 74 68 20 69 6e | .\key{C-c.C-d.z}{apropos.with.in |
| 2248e0 | 74 65 72 6e 61 6c 20 73 79 6d 62 6f 6c 73 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 64 20 70 7d 7b | ternal.symbols}.\key{C-c.C-d.p}{ |
| 224900 | 61 70 72 6f 70 6f 73 20 69 6e 20 70 61 63 6b 61 67 65 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 64 | apropos.in.package}.\key{C-c.C-d |
| 224920 | 20 68 7d 7b 68 79 70 65 72 73 70 65 63 20 6c 6f 6f 6b 75 70 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 | .h}{hyperspec.lookup}.\key{C-c.C |
| 224940 | 2d 64 20 7e 7d 7b 66 6f 72 6d 61 74 20 63 68 61 72 61 63 74 65 72 20 68 79 70 65 72 73 70 65 63 | -d.~}{format.character.hyperspec |
| 224960 | 20 6c 6f 6f 6b 75 70 7d 0a 0a 0a 5c 73 75 62 67 72 6f 75 70 7b 43 72 6f 73 73 20 72 65 66 65 72 | .lookup}...\subgroup{Cross.refer |
| 224980 | 65 6e 63 65 7d 0a 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 77 20 63 7d 7b 73 68 6f 77 20 66 75 6e 63 | ence}..\key{C-c.C-w.c}{show.func |
| 2249a0 | 74 69 6f 6e 20 63 61 6c 6c 65 72 73 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 77 20 72 7d 7b 73 68 | tion.callers}.\key{C-c.C-w.r}{sh |
| 2249c0 | 6f 77 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 | ow.references.to.global.variable |
| 2249e0 | 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 77 20 62 7d 7b 73 68 6f 77 20 62 69 6e 64 69 6e 67 73 20 | }.\key{C-c.C-w.b}{show.bindings. |
| 224a00 | 6f 66 20 61 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 | of.a.global.variable}.\key{C-c.C |
| 224a20 | 2d 77 20 73 7d 7b 73 68 6f 77 20 61 73 73 69 67 6e 6d 65 6e 74 73 20 74 6f 20 61 20 67 6c 6f 62 | -w.s}{show.assignments.to.a.glob |
| 224a40 | 61 6c 20 76 61 72 69 61 62 6c 65 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 77 20 6d 7d 7b 73 68 6f | al.variable}.\key{C-c.C-w.m}{sho |
| 224a60 | 77 20 65 78 70 61 6e 73 69 6f 6e 73 20 6f 66 20 61 20 6d 61 63 72 6f 7d 0a 5c 6b 65 79 7b 43 2d | w.expansions.of.a.macro}.\key{C- |
| 224a80 | 63 20 5c 74 65 78 74 6c 65 73 73 7d 7b 6c 69 73 74 20 63 61 6c 6c 65 72 73 20 6f 66 20 61 20 66 | c.\textless}{list.callers.of.a.f |
| 224aa0 | 75 6e 63 74 69 6f 6e 7d 0a 5c 6b 65 79 7b 43 2d 63 20 5c 74 65 78 74 67 72 65 61 74 65 72 7d 7b | unction}.\key{C-c.\textgreater}{ |
| 224ac0 | 6c 69 73 74 20 63 61 6c 6c 65 65 73 20 6f 66 20 61 20 66 75 6e 63 74 69 6f 6e 7d 0a 0a 5c 73 75 | list.callees.of.a.function}..\su |
| 224ae0 | 62 67 72 6f 75 70 7b 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 7d 0a 0a 5c 6b 65 | bgroup{Finding.definitions}..\ke |
| 224b00 | 79 7b 4d 2d 2e 7d 7b 65 64 69 74 20 64 65 66 69 6e 69 74 69 6f 6e 7d 0a 5c 6b 65 79 7b 4d 2d 2c | y{M-.}{edit.definition}.\key{M-, |
| 224b20 | 20 6f 72 20 4d 2d 2a 7d 7b 70 6f 70 20 64 65 66 69 6e 69 74 69 6f 6e 20 73 74 61 63 6b 7d 0a 5c | .or.M-*}{pop.definition.stack}.\ |
| 224b40 | 6b 65 79 7b 43 2d 78 20 34 20 2e 7d 7b 65 64 69 74 20 64 65 66 69 6e 69 74 69 6f 6e 20 69 6e 20 | key{C-x.4..}{edit.definition.in. |
| 224b60 | 6f 74 68 65 72 20 77 69 6e 64 6f 77 7d 0a 5c 6b 65 79 7b 43 2d 78 20 35 20 2e 7d 7b 65 64 69 74 | other.window}.\key{C-x.5..}{edit |
| 224b80 | 20 64 65 66 69 6e 69 74 69 6f 6e 20 69 6e 20 6f 74 68 65 72 20 66 72 61 6d 65 7d 0a 0a 5c 6e 65 | .definition.in.other.frame}..\ne |
| 224ba0 | 77 70 61 67 65 0a 0a 5c 73 75 62 67 72 6f 75 70 7b 4d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e | wpage..\subgroup{Macro.expansion |
| 224bc0 | 20 63 6f 6d 6d 61 6e 64 73 7d 0a 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 6d 20 6f 72 20 43 2d 63 20 | .commands}..\key{C-c.C-m.or.C-c. |
| 224be0 | 52 45 54 7d 7b 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 7d 0a 5c 6b 65 79 7b 43 2d 63 20 4d 2d 6d | RET}{macroexpand-1}.\key{C-c.M-m |
| 224c00 | 7d 7b 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 74 7d | }{macroexpand-all}.\key{C-c.C-t} |
| 224c20 | 7b 74 6f 67 67 6c 65 20 74 72 61 63 69 6e 67 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 | {toggle.tracing.of.the.function. |
| 224c40 | 61 74 20 70 6f 69 6e 74 7d 0a 0a 5c 73 75 62 67 72 6f 75 70 7b 44 69 73 61 73 73 65 6d 62 6c 79 | at.point}..\subgroup{Disassembly |
| 224c60 | 7d 0a 0a 5c 6b 65 79 7b 43 2d 63 20 4d 2d 64 7d 7b 64 69 73 61 73 73 65 6d 62 6c 65 20 66 75 6e | }..\key{C-c.M-d}{disassemble.fun |
| 224c80 | 63 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 7d 0a 0a 5c 67 72 6f 75 70 7b 43 6f 6d 70 69 6c | ction.definition}..\group{Compil |
| 224ca0 | 61 74 69 6f 6e 7d 0a 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 63 7d 7b 63 6f 6d 70 69 6c 65 20 64 65 | ation}..\key{C-c.C-c}{compile.de |
| 224cc0 | 66 75 6e 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 79 7d 7b 63 61 6c 6c 20 64 65 66 75 6e 7d 0a 5c | fun}.\key{C-c.C-y}{call.defun}.\ |
| 224ce0 | 6b 65 79 7b 43 2d 63 20 43 2d 6b 7d 7b 63 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 66 69 | key{C-c.C-k}{compile.and.load.fi |
| 224d00 | 6c 65 7d 0a 5c 6b 65 79 7b 43 2d 63 20 4d 2d 6b 7d 7b 63 6f 6d 70 69 6c 65 20 66 69 6c 65 7d 0a | le}.\key{C-c.M-k}{compile.file}. |
| 224d20 | 5c 6b 65 79 7b 43 2d 63 20 43 2d 6c 7d 7b 6c 6f 61 64 20 66 69 6c 65 7d 0a 5c 6b 65 79 7b 43 2d | \key{C-c.C-l}{load.file}.\key{C- |
| 224d40 | 63 20 43 2d 7a 7d 7b 73 77 69 74 63 68 20 74 6f 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 7d 0a | c.C-z}{switch.to.output.buffer}. |
| 224d60 | 5c 6b 65 79 7b 4d 2d 6e 7d 7b 6e 65 78 74 20 6e 6f 74 65 7d 0a 5c 6b 65 79 7b 4d 2d 70 7d 7b 70 | \key{M-n}{next.note}.\key{M-p}{p |
| 224d80 | 72 65 76 69 6f 75 73 20 6e 6f 74 65 7d 0a 5c 6b 65 79 7b 43 2d 63 20 4d 2d 63 7d 7b 72 65 6d 6f | revious.note}.\key{C-c.M-c}{remo |
| 224da0 | 76 65 20 6e 6f 74 65 73 7d 0a 0a 5c 67 72 6f 75 70 7b 45 76 61 6c 75 61 74 69 6f 6e 7d 0a 0a 5c | ve.notes}..\group{Evaluation}..\ |
| 224dc0 | 6b 65 79 7b 43 2d 4d 2d 78 7d 7b 65 76 61 6c 20 64 65 66 75 6e 7d 0a 5c 6b 65 79 7b 43 2d 78 20 | key{C-M-x}{eval.defun}.\key{C-x. |
| 224de0 | 43 2d 65 7d 7b 65 76 61 6c 20 6c 61 73 74 20 65 78 70 72 65 73 73 69 6f 6e 7d 0a 5c 6b 65 79 7b | C-e}{eval.last.expression}.\key{ |
| 224e00 | 43 2d 63 20 43 2d 70 7d 7b 65 76 61 6c 20 5c 26 20 70 72 65 74 74 79 20 70 72 69 6e 74 20 6c 61 | C-c.C-p}{eval.\&.pretty.print.la |
| 224e20 | 73 74 20 65 78 70 72 65 73 73 69 6f 6e 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 72 7d 7b 65 76 61 | st.expression}.\key{C-c.C-r}{eva |
| 224e40 | 6c 20 72 65 67 69 6f 6e 7d 0a 5c 6b 65 79 7b 43 2d 78 20 4d 2d 65 7d 7b 65 76 61 6c 20 6c 61 73 | l.region}.\key{C-x.M-e}{eval.las |
| 224e60 | 74 20 65 78 70 72 65 73 73 69 6f 6e 2c 20 64 69 73 70 6c 61 79 20 6f 75 74 70 75 74 7d 0a 5c 6b | t.expression,.display.output}.\k |
| 224e80 | 65 79 7b 43 2d 63 20 3a 7d 7b 69 6e 74 65 72 61 63 74 69 76 65 20 65 76 61 6c 7d 0a 5c 6b 65 79 | ey{C-c.:}{interactive.eval}.\key |
| 224ea0 | 7b 43 2d 63 20 45 7d 7b 65 64 69 74 20 76 61 6c 75 65 7d 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 75 | {C-c.E}{edit.value}.\key{C-c.C-u |
| 224ec0 | 7d 7b 75 6e 64 65 66 69 6e 65 20 66 75 6e 63 74 69 6f 6e 7d 0a 0a 5c 67 72 6f 75 70 7b 41 62 6f | }{undefine.function}..\group{Abo |
| 224ee0 | 72 74 2f 52 65 63 6f 76 65 72 79 7d 0a 0a 5c 6b 65 79 7b 43 2d 63 20 43 2d 62 7d 7b 69 6e 74 65 | rt/Recovery}..\key{C-c.C-b}{inte |
| 224f00 | 72 72 75 70 74 20 28 73 65 6e 64 20 53 49 47 49 4e 54 29 7d 0a 5c 6b 65 79 7b 43 2d 63 20 5c 7e | rrupt.(send.SIGINT)}.\key{C-c.\~ |
| 224f20 | 7d 7b 73 79 6e 63 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 61 6e 64 20 77 | }{sync.the.current.package.and.w |
| 224f40 | 6f 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 7d 0a 5c 6b 65 79 7b 43 2d 63 20 4d 2d 70 7d 7b | orking.directory}.\key{C-c.M-p}{ |
| 224f60 | 73 65 74 20 70 61 63 6b 61 67 65 20 69 6e 20 52 45 50 4c 7d 0a 0a 5c 67 72 6f 75 70 7b 49 6e 73 | set.package.in.REPL}..\group{Ins |
| 224f80 | 70 65 63 74 6f 72 7d 0a 0a 5c 6b 65 79 7b 43 2d 63 20 49 7d 7b 69 6e 73 70 65 63 74 20 28 66 72 | pector}..\key{C-c.I}{inspect.(fr |
| 224fa0 | 6f 6d 20 6d 69 6e 69 62 75 66 66 65 72 29 7d 0a 5c 6b 65 79 7b 72 65 74 7d 7b 6f 70 65 72 61 74 | om.minibuffer)}.\key{ret}{operat |
| 224fc0 | 65 20 6f 6e 20 70 6f 69 6e 74 7d 0a 5c 6b 65 79 7b 64 7d 7b 64 65 73 63 72 69 62 65 7d 0a 5c 6b | e.on.point}.\key{d}{describe}.\k |
| 224fe0 | 65 79 7b 6c 7d 7b 70 6f 70 7d 0a 5c 6b 65 79 7b 6e 7d 7b 6e 65 78 74 7d 0a 5c 6b 65 79 7b 71 7d | ey{l}{pop}.\key{n}{next}.\key{q} |
| 225000 | 7b 71 75 69 74 7d 0a 5c 6b 65 79 7b 4d 2d 72 65 74 7d 7b 63 6f 70 79 20 64 6f 77 6e 7d 0a 0a 5c | {quit}.\key{M-ret}{copy.down}..\ |
| 225020 | 65 6e 64 7b 64 6f 63 75 6d 65 6e 74 7d 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | end{document}................... |
| 225040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2250a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2250c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2250e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2251a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2251c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2251e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 64 6f 63 2f 4d 61 6b 65 66 69 6c 65 00 00 00 00 00 00 00 00 00 | slime-2.31/doc/Makefile......... |
| 225220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 225280 | 30 30 30 37 35 37 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 34 32 37 00 20 30 00 00 00 | 0007572.00000000000.013427..0... |
| 2252a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2252c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2252e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 225320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 225340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2253a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2253c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2253e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 225400 | 23 20 54 68 69 73 20 66 69 6c 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 | #.This.file.has.been.placed.in.t |
| 225420 | 68 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2e 0a 23 0a 23 20 57 68 65 72 65 20 74 6f 20 70 | he.public.domain..#.#.Where.to.p |
| 225440 | 75 74 20 74 68 65 20 69 6e 66 6f 20 66 69 6c 65 28 73 29 2e 20 4e 42 3a 20 74 68 65 20 47 4e 55 | ut.the.info.file(s)..NB:.the.GNU |
| 225460 | 20 43 6f 64 69 6e 67 20 53 74 61 6e 64 61 72 64 73 20 28 47 43 53 29 0a 23 20 61 6e 64 20 74 68 | .Coding.Standards.(GCS).#.and.th |
| 225480 | 65 20 46 69 6c 65 73 79 73 74 65 6d 20 48 69 65 72 61 72 63 68 79 20 53 74 61 6e 64 61 72 64 20 | e.Filesystem.Hierarchy.Standard. |
| 2254a0 | 28 46 48 53 29 20 64 69 66 66 65 72 20 6f 6e 20 77 68 65 72 65 20 69 6e 66 6f 0a 23 20 66 69 6c | (FHS).differ.on.where.info.#.fil |
| 2254c0 | 65 73 20 62 65 6c 6f 6e 67 2e 20 54 68 65 20 47 43 53 20 73 61 79 73 20 2f 75 73 72 2f 6c 6f 63 | es.belong..The.GCS.says./usr/loc |
| 2254e0 | 61 6c 2f 69 6e 66 6f 3b 20 74 68 65 20 46 48 53 20 73 61 79 73 0a 23 20 2f 75 73 72 2f 6c 6f 63 | al/info;.the.FHS.says.#./usr/loc |
| 225500 | 61 6c 2f 73 68 61 72 65 2f 69 6e 66 6f 2e 20 4d 61 6e 79 20 64 69 73 74 72 6f 73 20 6f 62 65 79 | al/share/info..Many.distros.obey |
| 225520 | 20 74 68 65 20 46 48 53 2c 20 62 75 74 20 70 65 6f 70 6c 65 20 77 68 6f 0a 23 20 69 6e 73 74 61 | .the.FHS,.but.people.who.#.insta |
| 225540 | 6c 6c 65 64 20 74 68 65 69 72 20 65 6d 61 63 73 20 66 72 6f 6d 20 73 6f 75 72 63 65 20 70 72 6f | lled.their.emacs.from.source.pro |
| 225560 | 62 61 62 6c 79 20 68 61 76 65 20 61 20 47 43 53 2d 69 73 68 20 66 69 6c 65 0a 23 20 68 69 65 72 | bably.have.a.GCS-ish.file.#.hier |
| 225580 | 61 72 63 68 79 2e 0a 69 6e 66 6f 64 69 72 3d 2f 75 73 72 2f 6c 6f 63 61 6c 2f 69 6e 66 6f 0a 0a | archy..infodir=/usr/local/info.. |
| 2255a0 | 23 20 57 68 61 74 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 75 73 65 20 74 6f 20 69 6e 73 74 61 6c 6c | #.What.command.to.use.to.install |
| 2255c0 | 20 69 6e 66 6f 20 66 69 6c 65 28 73 29 0a 49 4e 53 54 41 4c 4c 5f 43 4d 44 3d 69 6e 73 74 61 6c | .info.file(s).INSTALL_CMD=instal |
| 2255e0 | 6c 20 2d 6d 20 36 34 34 0a 0a 23 20 49 6e 66 6f 20 66 69 6c 65 73 20 67 65 6e 65 72 61 74 65 64 | l.-m.644..#.Info.files.generated |
| 225600 | 20 68 65 72 65 2e 0a 69 6e 66 6f 66 69 6c 65 73 3d 73 6c 69 6d 65 2e 69 6e 66 6f 0a 0a 54 45 58 | .here..infofiles=slime.info..TEX |
| 225620 | 49 20 3d 20 73 6c 69 6d 65 2e 74 65 78 69 20 63 6f 6e 74 72 69 62 75 74 6f 72 73 2e 74 65 78 69 | I.=.slime.texi.contributors.texi |
| 225640 | 0a 0a 68 65 6c 70 3a 0a 09 40 65 63 68 6f 20 2d 65 20 22 5c 0a 4d 6f 73 74 20 69 6d 70 6f 72 74 | ..help:..@echo.-e."\.Most.import |
| 225660 | 61 6e 74 20 74 61 72 67 65 74 73 3a 5c 6e 5c 0a 61 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 | ant.targets:\n\.all............. |
| 225680 | 20 20 67 65 6e 65 72 61 74 65 20 69 6e 66 6f 2c 20 70 64 66 2c 20 61 6e 64 20 68 74 6d 6c 20 64 | ..generate.info,.pdf,.and.html.d |
| 2256a0 | 6f 63 75 6d 65 6e 74 73 5c 6e 5c 0a 73 6c 69 6d 65 2e 69 6e 66 6f 20 20 20 20 20 20 20 20 67 65 | ocuments\n\.slime.info........ge |
| 2256c0 | 6e 65 72 61 74 65 20 74 68 65 20 73 6c 69 6d 65 2e 69 6e 66 6f 20 66 69 6c 65 5c 6e 5c 0a 73 6c | nerate.the.slime.info.file\n\.sl |
| 2256e0 | 69 6d 65 2e 68 74 6d 6c 20 20 20 20 20 20 20 20 67 65 6e 65 72 61 74 65 20 61 20 73 69 6e 67 6c | ime.html........generate.a.singl |
| 225700 | 65 20 68 74 6d 6c 20 66 69 6c 65 5c 6e 5c 0a 68 74 6d 6c 2f 69 6e 64 65 78 2e 68 74 6d 6c 20 20 | e.html.file\n\.html/index.html.. |
| 225720 | 20 67 65 6e 65 72 61 74 65 20 6f 6e 20 68 74 6d 6c 20 66 69 6c 65 20 70 65 72 20 6e 6f 64 65 20 | .generate.on.html.file.per.node. |
| 225740 | 69 6e 20 68 74 6d 6c 2f 20 64 69 72 65 63 74 6f 72 79 5c 6e 5c 0a 68 74 6d 6c 2e 74 67 7a 20 20 | in.html/.directory\n\.html.tgz.. |
| 225760 | 20 20 20 20 20 20 20 20 63 72 65 61 74 65 20 61 20 74 61 72 62 61 6c 6c 20 6f 66 20 61 6c 6c 20 | ........create.a.tarball.of.all. |
| 225780 | 68 74 6d 6c 20 66 69 6c 65 73 5c 6e 5c 0a 63 6c 65 61 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 | html.files\n\.clean............. |
| 2257a0 | 72 65 6d 6f 76 65 20 67 65 6e 65 72 61 74 65 64 20 66 69 6c 65 73 22 0a 0a 61 6c 6c 3a 20 73 6c | remove.generated.files"..all:.sl |
| 2257c0 | 69 6d 65 2e 69 6e 66 6f 20 73 6c 69 6d 65 2e 70 64 66 20 68 74 6d 6c 2f 69 6e 64 65 78 2e 68 74 | ime.info.slime.pdf.html/index.ht |
| 2257e0 | 6d 6c 0a 0a 73 6c 69 6d 65 2e 64 76 69 3a 20 24 28 54 45 58 49 29 0a 09 74 65 78 69 32 64 76 69 | ml..slime.dvi:.$(TEXI)..texi2dvi |
| 225800 | 20 73 6c 69 6d 65 2e 74 65 78 69 0a 0a 73 6c 69 6d 65 2e 70 73 3a 20 73 6c 69 6d 65 2e 64 76 69 | .slime.texi..slime.ps:.slime.dvi |
| 225820 | 0a 09 64 76 69 70 73 20 2d 6f 20 24 40 20 24 3c 0a 0a 73 6c 69 6d 65 2e 69 6e 66 6f 3a 20 24 28 | ..dvips.-o.$@.$<..slime.info:.$( |
| 225840 | 54 45 58 49 29 0a 09 6d 61 6b 65 69 6e 66 6f 20 24 3c 0a 0a 73 6c 69 6d 65 2e 68 74 6d 6c 3a 20 | TEXI)..makeinfo.$<..slime.html:. |
| 225860 | 24 28 54 45 58 49 29 0a 09 74 65 78 69 32 68 74 6d 6c 20 2d 2d 63 73 73 2d 69 6e 63 6c 75 64 65 | $(TEXI)..texi2html.--css-include |
| 225880 | 3d 73 6c 69 6d 65 2e 63 73 73 20 24 3c 0a 0a 68 74 6d 6c 2f 69 6e 64 65 78 2e 68 74 6d 6c 3a 20 | =slime.css.$<..html/index.html:. |
| 2258a0 | 24 28 54 45 58 49 29 0a 09 6d 61 6b 65 69 6e 66 6f 20 2d 6f 20 68 74 6d 6c 20 2d 2d 63 73 73 2d | $(TEXI)..makeinfo.-o.html.--css- |
| 2258c0 | 69 6e 63 6c 75 64 65 3d 73 6c 69 6d 65 2e 63 73 73 20 2d 2d 68 74 6d 6c 20 24 3c 0a 0a 68 74 6d | include=slime.css.--html.$<..htm |
| 2258e0 | 6c 2e 74 67 7a 3a 20 68 74 6d 6c 2f 69 6e 64 65 78 2e 68 74 6d 6c 0a 09 74 61 72 20 2d 63 7a 66 | l.tgz:.html/index.html..tar.-czf |
| 225900 | 20 24 40 20 68 74 6d 6c 0a 0a 44 4f 43 44 49 52 3d 2f 70 72 6f 6a 65 63 74 2f 73 6c 69 6d 65 2f | .$@.html..DOCDIR=/project/slime/ |
| 225920 | 70 75 62 6c 69 63 5f 68 74 6d 6c 2f 64 6f 63 0a 23 20 69 6e 76 6f 6b 65 20 74 68 69 73 20 6c 69 | public_html/doc.#.invoke.this.li |
| 225940 | 6b 65 3a 20 6d 61 6b 65 20 43 4c 55 53 45 52 3d 68 65 6c 6c 65 72 20 70 75 62 6c 69 73 68 0a 70 | ke:.make.CLUSER=heller.publish.p |
| 225960 | 75 62 6c 69 73 68 3a 20 73 6c 69 6d 65 2e 70 64 66 20 68 74 6d 6c 2e 74 67 7a 0a 09 73 63 70 20 | ublish:.slime.pdf.html.tgz..scp. |
| 225980 | 73 6c 69 6d 65 2e 70 64 66 20 68 74 6d 6c 2e 74 67 7a 20 24 28 43 4c 55 53 45 52 29 40 63 6f 6d | slime.pdf.html.tgz.$(CLUSER)@com |
| 2259a0 | 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 3a 24 28 44 4f 43 44 49 52 29 0a 09 73 73 68 20 24 28 43 4c | mon-lisp.net:$(DOCDIR)..ssh.$(CL |
| 2259c0 | 55 53 45 52 29 40 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 20 22 63 64 20 24 28 44 4f 43 44 | USER)@common-lisp.net."cd.$(DOCD |
| 2259e0 | 49 52 29 3b 20 74 61 72 20 2d 7a 78 66 20 68 74 6d 6c 2e 74 67 7a 22 0a 0a 73 6c 69 6d 65 2e 70 | IR);.tar.-zxf.html.tgz"..slime.p |
| 225a00 | 64 66 3a 20 24 28 54 45 58 49 29 0a 09 74 65 78 69 32 70 64 66 20 24 3c 0a 0a 73 6c 69 6d 65 2d | df:.$(TEXI)..texi2pdf.$<..slime- |
| 225a20 | 72 65 66 63 61 72 64 2e 70 64 66 3a 20 73 6c 69 6d 65 2d 72 65 66 63 61 72 64 2e 74 65 78 0a 09 | refcard.pdf:.slime-refcard.tex.. |
| 225a40 | 74 65 78 69 32 70 64 66 20 24 3c 0a 0a 69 6e 73 74 61 6c 6c 3a 20 69 6e 73 74 61 6c 6c 2d 69 6e | texi2pdf.$<..install:.install-in |
| 225a60 | 66 6f 0a 0a 75 6e 69 6e 73 74 61 6c 6c 3a 20 75 6e 69 6e 73 74 61 6c 6c 2d 69 6e 66 6f 0a 0a 23 | fo..uninstall:.uninstall-info..# |
| 225a80 | 20 43 72 65 61 74 65 20 63 6f 6e 74 72 69 62 75 74 6f 72 73 2e 74 65 78 69 2c 20 61 20 74 65 78 | .Create.contributors.texi,.a.tex |
| 225aa0 | 69 6e 66 6f 20 74 61 62 6c 65 20 6c 69 73 74 69 6e 67 20 61 6c 6c 20 6b 6e 6f 77 6e 0a 23 20 63 | info.table.listing.all.known.#.c |
| 225ac0 | 6f 6e 74 72 69 62 75 74 6f 72 73 20 6f 66 20 63 6f 64 65 2e 0a 23 0a 23 20 54 68 65 20 67 69 73 | ontributors.of.code..#.#.The.gis |
| 225ae0 | 74 20 6f 66 20 74 68 69 73 20 68 6f 72 72 6f 72 20 73 68 6f 77 20 69 73 20 74 68 61 74 20 74 68 | t.of.this.horror.show.is.that.th |
| 225b00 | 65 20 63 6f 6e 74 72 69 62 75 74 6f 72 20 6c 69 73 74 20 69 73 20 70 69 70 65 64 0a 23 20 69 6e | e.contributor.list.is.piped.#.in |
| 225b20 | 74 6f 20 74 65 78 69 6e 66 6f 2d 74 61 62 75 6c 61 74 65 2e 61 77 6b 20 77 69 74 68 20 6f 6e 65 | to.texinfo-tabulate.awk.with.one |
| 225b40 | 20 6e 61 6d 65 20 70 65 72 20 6c 69 6e 65 2c 20 73 6f 72 74 65 64 0a 23 20 62 79 20 6e 75 6d 62 | .name.per.line,.sorted.#.by.numb |
| 225b60 | 65 72 20 6f 66 20 63 6f 6e 74 72 69 62 75 74 69 6f 6e 73 2e 0a 4c 41 53 54 5f 43 48 41 4e 47 45 | er.of.contributions..LAST_CHANGE |
| 225b80 | 4c 4f 47 5f 43 4f 4d 4d 49 54 3d 61 62 36 64 31 62 64 35 63 39 64 33 63 35 62 34 61 36 32 39 39 | LOG_COMMIT=ab6d1bd5c9d3c5b4a6299 |
| 225ba0 | 62 38 63 38 36 34 63 65 34 61 63 66 64 32 35 63 62 63 63 0a 63 6f 6e 74 72 69 62 75 74 6f 72 73 | b8c864ce4acfd25cbcc.contributors |
| 225bc0 | 2e 74 65 78 69 3a 20 2e 2e 2f 73 6c 69 6d 65 2e 65 6c 20 4d 61 6b 65 66 69 6c 65 20 74 65 78 69 | .texi:.../slime.el.Makefile.texi |
| 225be0 | 6e 66 6f 2d 74 61 62 75 6c 61 74 65 2e 61 77 6b 0a 09 67 69 74 20 73 68 6f 77 20 24 28 4c 41 53 | nfo-tabulate.awk..git.show.$(LAS |
| 225c00 | 54 5f 43 48 41 4e 47 45 4c 4f 47 5f 43 4f 4d 4d 49 54 29 3a 43 68 61 6e 67 65 4c 6f 67 20 5c 0a | T_CHANGELOG_COMMIT):ChangeLog.\. |
| 225c20 | 09 20 20 20 20 20 20 20 20 20 24 28 4c 41 53 54 5f 43 48 41 4e 47 45 4c 4f 47 5f 43 4f 4d 4d 49 | ..........$(LAST_CHANGELOG_COMMI |
| 225c40 | 54 29 3a 63 6f 6e 74 72 69 62 2f 43 68 61 6e 67 65 4c 6f 67 20 7c 20 5c 0a 09 73 65 64 20 2d 6e | T):contrib/ChangeLog.|.\..sed.-n |
| 225c60 | 65 20 27 2f 5e 5b 30 2d 39 5d 2f 7b 73 2f 5e 5b 5e 20 5d 2a 20 2a 2f 2f 3b 20 73 2f 20 2a 3c 2e | e.'/^[0-9]/{s/^[^.]*.*//;.s/.*<. |
| 225c80 | 2a 2f 2f 3b 20 70 3b 7d 27 20 7c 20 5c 0a 09 28 63 61 74 3b 20 67 69 74 20 6c 6f 67 20 24 28 4c | *//;.p;}'.|.\..(cat;.git.log.$(L |
| 225ca0 | 41 53 54 5f 43 48 41 4e 47 45 4c 4f 47 5f 43 4f 4d 4d 49 54 29 2e 2e 20 2d 2d 66 6f 72 6d 61 74 | AST_CHANGELOG_COMMIT)...--format |
| 225cc0 | 3d 27 25 61 4e 27 29 20 7c 20 5c 0a 09 73 6f 72 74 20 7c 20 5c 0a 09 75 6e 69 71 20 2d 63 20 7c | ='%aN').|.\..sort.|.\..uniq.-c.| |
| 225ce0 | 20 5c 0a 09 4c 43 5f 41 4c 4c 3d 43 20 73 6f 72 74 20 2d 6e 72 20 7c 20 5c 0a 09 73 65 64 20 2d | .\..LC_ALL=C.sort.-nr.|.\..sed.- |
| 225d00 | 65 20 27 73 2f 5e 5b 5e 41 2d 5a 5d 2a 2f 2f 3b 20 2f 5e 24 24 2f 64 27 20 7c 20 5c 0a 09 4c 43 | e.'s/^[^A-Z]*//;./^$$/d'.|.\..LC |
| 225d20 | 5f 41 4c 4c 3d 43 20 61 77 6b 20 2d 66 20 74 65 78 69 6e 66 6f 2d 74 61 62 75 6c 61 74 65 2e 61 | _ALL=C.awk.-f.texinfo-tabulate.a |
| 225d40 | 77 6b 20 5c 0a 09 3e 20 24 40 0a 0a 23 2e 49 4e 54 45 52 4d 45 44 49 41 54 45 3a 20 63 6f 6e 74 | wk.\..>.$@..#.INTERMEDIATE:.cont |
| 225d60 | 72 69 62 75 74 6f 72 73 2e 74 65 78 69 0a 0a 23 20 44 65 62 69 61 6e 27 73 20 69 6e 73 74 61 6c | ributors.texi..#.Debian's.instal |
| 225d80 | 6c 2d 69 6e 66 6f 20 77 61 6e 74 73 20 61 20 2d 2d 73 65 63 74 69 6f 6e 20 61 72 67 75 6d 65 6e | l-info.wants.a.--section.argumen |
| 225da0 | 74 2e 0a 69 6e 73 74 61 6c 6c 2d 69 6e 66 6f 3a 20 73 65 63 74 69 6f 6e 3d 24 28 73 68 65 6c 6c | t..install-info:.section=$(shell |
| 225dc0 | 20 67 72 65 70 20 49 4e 46 4f 2d 44 49 52 2d 53 45 43 54 49 4f 4e 20 24 28 69 6e 66 6f 66 69 6c | .grep.INFO-DIR-SECTION.$(infofil |
| 225de0 | 65 73 29 20 7c 20 73 65 64 20 27 73 2f 49 4e 46 4f 2d 44 49 52 2d 53 45 43 54 49 4f 4e 20 2f 2f | es).|.sed.'s/INFO-DIR-SECTION.// |
| 225e00 | 27 29 0a 69 6e 73 74 61 6c 6c 2d 69 6e 66 6f 3a 20 73 6c 69 6d 65 2e 69 6e 66 6f 0a 09 6d 6b 64 | ').install-info:.slime.info..mkd |
| 225e20 | 69 72 20 2d 70 20 24 28 69 6e 66 6f 64 69 72 29 0a 09 24 28 49 4e 53 54 41 4c 4c 5f 43 4d 44 29 | ir.-p.$(infodir)..$(INSTALL_CMD) |
| 225e40 | 20 24 28 69 6e 66 6f 66 69 6c 65 73 29 20 24 28 69 6e 66 6f 64 69 72 29 2f 24 28 69 6e 66 6f 66 | .$(infofiles).$(infodir)/$(infof |
| 225e60 | 69 6c 65 73 29 0a 09 40 69 66 20 28 69 6e 73 74 61 6c 6c 2d 69 6e 66 6f 20 2d 2d 76 65 72 73 69 | iles)..@if.(install-info.--versi |
| 225e80 | 6f 6e 20 26 26 20 5c 0a 09 09 69 6e 73 74 61 6c 6c 2d 69 6e 66 6f 20 2d 2d 76 65 72 73 69 6f 6e | on.&&.\...install-info.--version |
| 225ea0 | 20 32 3e 26 31 20 7c 20 73 65 64 20 31 71 20 7c 20 67 72 65 70 20 2d 69 20 2d 76 20 64 65 62 69 | .2>&1.|.sed.1q.|.grep.-i.-v.debi |
| 225ec0 | 61 6e 29 20 3e 2f 64 65 76 2f 6e 75 6c 6c 20 32 3e 26 31 3b 20 74 68 65 6e 20 5c 0a 09 09 65 63 | an).>/dev/null.2>&1;.then.\...ec |
| 225ee0 | 68 6f 20 22 69 6e 73 74 61 6c 6c 2d 69 6e 66 6f 20 2d 2d 69 6e 66 6f 2d 64 69 72 3d 24 28 69 6e | ho."install-info.--info-dir=$(in |
| 225f00 | 66 6f 64 69 72 29 20 24 28 69 6e 66 6f 64 69 72 29 2f 24 28 69 6e 66 6f 66 69 6c 65 73 29 22 3b | fodir).$(infodir)/$(infofiles)"; |
| 225f20 | 5c 0a 09 09 69 6e 73 74 61 6c 6c 2d 69 6e 66 6f 20 2d 2d 69 6e 66 6f 2d 64 69 72 3d 22 24 28 69 | \...install-info.--info-dir="$(i |
| 225f40 | 6e 66 6f 64 69 72 29 22 20 22 24 28 69 6e 66 6f 64 69 72 29 2f 24 28 69 6e 66 6f 66 69 6c 65 73 | nfodir)"."$(infodir)/$(infofiles |
| 225f60 | 29 22 20 7c 7c 20 3a 3b 5c 0a 09 65 6c 73 65 20 5c 0a 09 09 65 63 68 6f 20 22 69 6e 73 74 61 6c | )".||.:;\..else.\...echo."instal |
| 225f80 | 6c 2d 69 6e 66 6f 20 2d 2d 69 6e 66 6f 64 69 72 3d 24 28 69 6e 66 6f 64 69 72 29 20 2d 2d 73 65 | l-info.--infodir=$(infodir).--se |
| 225fa0 | 63 74 69 6f 6e 20 24 28 73 65 63 74 69 6f 6e 29 20 24 28 73 65 63 74 69 6f 6e 29 20 24 28 69 6e | ction.$(section).$(section).$(in |
| 225fc0 | 66 6f 64 69 72 29 2f 24 28 69 6e 66 6f 66 69 6c 65 73 29 22 20 26 26 20 5c 0a 09 09 69 6e 73 74 | fodir)/$(infofiles)".&&.\...inst |
| 225fe0 | 61 6c 6c 2d 69 6e 66 6f 20 2d 2d 69 6e 66 6f 64 69 72 3d 22 24 28 69 6e 66 6f 64 69 72 29 22 20 | all-info.--infodir="$(infodir)". |
| 226000 | 2d 2d 73 65 63 74 69 6f 6e 20 24 28 73 65 63 74 69 6f 6e 29 20 24 7b 73 65 63 74 69 6f 6e 7d 20 | --section.$(section).${section}. |
| 226020 | 22 24 28 69 6e 66 6f 64 69 72 29 2f 24 28 69 6e 66 6f 66 69 6c 65 73 29 22 20 7c 7c 20 3a 3b 20 | "$(infodir)/$(infofiles)".||.:;. |
| 226040 | 66 69 0a 0a 75 6e 69 6e 73 74 61 6c 6c 2d 69 6e 66 6f 3a 0a 09 40 69 66 20 28 69 6e 73 74 61 6c | fi..uninstall-info:..@if.(instal |
| 226060 | 6c 2d 69 6e 66 6f 20 2d 2d 76 65 72 73 69 6f 6e 20 26 26 20 5c 0a 09 09 69 6e 73 74 61 6c 6c 2d | l-info.--version.&&.\...install- |
| 226080 | 69 6e 66 6f 20 2d 2d 76 65 72 73 69 6f 6e 20 32 3e 26 31 20 7c 20 73 65 64 20 31 71 20 7c 20 67 | info.--version.2>&1.|.sed.1q.|.g |
| 2260a0 | 72 65 70 20 2d 69 20 2d 76 20 64 65 62 69 61 6e 29 20 3e 2f 64 65 76 2f 6e 75 6c 6c 20 32 3e 26 | rep.-i.-v.debian).>/dev/null.2>& |
| 2260c0 | 31 3b 20 74 68 65 6e 20 5c 0a 09 09 65 63 68 6f 20 22 69 6e 73 74 61 6c 6c 2d 69 6e 66 6f 20 2d | 1;.then.\...echo."install-info.- |
| 2260e0 | 2d 69 6e 66 6f 2d 64 69 72 3d 24 28 69 6e 66 6f 64 69 72 29 20 2d 2d 72 65 6d 6f 76 65 20 24 28 | -info-dir=$(infodir).--remove.$( |
| 226100 | 69 6e 66 6f 64 69 72 29 2f 24 28 69 6e 66 6f 66 69 6c 65 73 29 22 3b 5c 0a 09 09 69 6e 73 74 61 | infodir)/$(infofiles)";\...insta |
| 226120 | 6c 6c 2d 69 6e 66 6f 20 2d 2d 69 6e 66 6f 2d 64 69 72 3d 22 24 28 69 6e 66 6f 64 69 72 29 22 20 | ll-info.--info-dir="$(infodir)". |
| 226140 | 2d 2d 72 65 6d 6f 76 65 20 22 24 28 69 6e 66 6f 64 69 72 29 2f 24 28 69 6e 66 6f 66 69 6c 65 73 | --remove."$(infodir)/$(infofiles |
| 226160 | 29 22 20 7c 7c 20 3a 3b 5c 0a 09 65 6c 73 65 20 5c 0a 09 09 65 63 68 6f 20 22 69 6e 73 74 61 6c | )".||.:;\..else.\...echo."instal |
| 226180 | 6c 2d 69 6e 66 6f 20 2d 2d 69 6e 66 6f 64 69 72 3d 24 28 69 6e 66 6f 64 69 72 29 20 2d 2d 72 65 | l-info.--infodir=$(infodir).--re |
| 2261a0 | 6d 6f 76 65 20 24 28 69 6e 66 6f 64 69 72 29 2f 24 28 69 6e 66 6f 66 69 6c 65 73 29 22 3b 5c 0a | move.$(infodir)/$(infofiles)";\. |
| 2261c0 | 09 09 69 6e 73 74 61 6c 6c 2d 69 6e 66 6f 20 2d 2d 69 6e 66 6f 64 69 72 3d 22 24 28 69 6e 66 6f | ..install-info.--infodir="$(info |
| 2261e0 | 64 69 72 29 22 20 2d 2d 72 65 6d 6f 76 65 20 22 24 28 69 6e 66 6f 64 69 72 29 2f 24 28 69 6e 66 | dir)".--remove."$(infodir)/$(inf |
| 226200 | 6f 66 69 6c 65 73 29 22 20 7c 7c 20 3a 3b 20 66 69 0a 09 72 6d 20 2d 66 20 24 28 69 6e 66 6f 64 | ofiles)".||.:;.fi..rm.-f.$(infod |
| 226220 | 69 72 29 2f 24 28 69 6e 66 6f 66 69 6c 65 73 29 0a 0a 63 6c 65 61 6e 3a 0a 09 72 6d 20 2d 66 20 | ir)/$(infofiles)..clean:..rm.-f. |
| 226240 | 63 6f 6e 74 72 69 62 75 74 6f 72 73 2e 74 65 78 69 0a 09 72 6d 20 2d 66 20 73 6c 69 6d 65 2e 61 | contributors.texi..rm.-f.slime.a |
| 226260 | 75 78 20 73 6c 69 6d 65 2e 63 70 20 73 6c 69 6d 65 2e 63 70 73 20 73 6c 69 6d 65 2e 66 6e 20 73 | ux.slime.cp.slime.cps.slime.fn.s |
| 226280 | 6c 69 6d 65 2e 66 6e 73 20 73 6c 69 6d 65 2e 6b 79 0a 09 72 6d 20 2d 66 20 73 6c 69 6d 65 2e 6b | lime.fns.slime.ky..rm.-f.slime.k |
| 2262a0 | 79 73 20 73 6c 69 6d 65 2e 6c 6f 67 20 73 6c 69 6d 65 2e 70 67 20 73 6c 69 6d 65 2e 74 6d 70 20 | ys.slime.log.slime.pg.slime.tmp. |
| 2262c0 | 73 6c 69 6d 65 2e 74 6f 63 20 73 6c 69 6d 65 2e 74 70 0a 09 72 6d 20 2d 66 20 73 6c 69 6d 65 2e | slime.toc.slime.tp..rm.-f.slime. |
| 2262e0 | 76 72 20 73 6c 69 6d 65 2e 76 72 73 0a 09 72 6d 20 2d 66 20 73 6c 69 6d 65 2e 69 6e 66 6f 20 73 | vr.slime.vrs..rm.-f.slime.info.s |
| 226300 | 6c 69 6d 65 2e 70 64 66 20 73 6c 69 6d 65 2e 64 76 69 20 73 6c 69 6d 65 2e 70 73 20 73 6c 69 6d | lime.pdf.slime.dvi.slime.ps.slim |
| 226320 | 65 2e 68 74 6d 6c 0a 09 72 6d 20 2d 66 20 73 6c 69 6d 65 2d 72 65 66 63 61 72 64 2e 70 64 66 20 | e.html..rm.-f.slime-refcard.pdf. |
| 226340 | 73 6c 69 6d 65 2d 72 65 66 63 61 72 64 2e 6c 6f 67 20 73 6c 69 6d 65 2d 72 65 66 63 61 72 64 2e | slime-refcard.log.slime-refcard. |
| 226360 | 61 75 78 0a 09 72 6d 20 2d 72 66 20 68 74 6d 6c 20 68 74 6d 6c 2e 74 67 7a 0a 00 00 00 00 00 00 | aux..rm.-rf.html.html.tgz....... |
| 226380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2263a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2263c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2263e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 226400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 64 6f 63 2f 73 6c 69 6d 65 2d 73 6d 61 6c 6c 2e 65 70 73 00 00 | slime-2.31/doc/slime-small.eps.. |
| 226420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 226440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 226460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 226480 | 30 31 36 32 32 37 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 37 31 34 00 20 30 00 00 00 | 0162270.00000000000.014714..0... |
| 2264a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2264c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2264e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 226500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 226520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 226540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 226560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 226580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2265a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2265c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2265e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 226600 | 25 21 50 53 2d 41 64 6f 62 65 2d 33 2e 30 20 45 50 53 46 2d 33 2e 30 0a 25 25 43 72 65 61 74 6f | %!PS-Adobe-3.0.EPSF-3.0.%%Creato |
| 226620 | 72 3a 20 47 49 4d 50 20 50 6f 73 74 53 63 72 69 70 74 20 66 69 6c 65 20 70 6c 75 67 69 6e 20 56 | r:.GIMP.PostScript.file.plugin.V |
| 226640 | 20 31 2e 31 37 20 62 79 20 50 65 74 65 72 20 4b 69 72 63 68 67 65 73 73 6e 65 72 0a 25 25 54 69 | .1.17.by.Peter.Kirchgessner.%%Ti |
| 226660 | 74 6c 65 3a 20 73 6c 69 6d 65 2d 73 6d 61 6c 6c 2e 65 70 73 0a 25 25 43 72 65 61 74 69 6f 6e 44 | tle:.slime-small.eps.%%CreationD |
| 226680 | 61 74 65 3a 20 54 75 65 20 4e 6f 76 20 31 34 20 31 38 3a 34 34 3a 32 35 20 32 30 30 36 0a 25 25 | ate:.Tue.Nov.14.18:44:25.2006.%% |
| 2266a0 | 44 6f 63 75 6d 65 6e 74 44 61 74 61 3a 20 43 6c 65 61 6e 37 42 69 74 0a 25 25 4c 61 6e 67 75 61 | DocumentData:.Clean7Bit.%%Langua |
| 2266c0 | 67 65 4c 65 76 65 6c 3a 20 32 0a 25 25 50 61 67 65 73 3a 20 31 0a 25 25 42 6f 75 6e 64 69 6e 67 | geLevel:.2.%%Pages:.1.%%Bounding |
| 2266e0 | 42 6f 78 3a 20 30 20 30 20 32 35 32 20 31 30 34 0a 25 25 45 6e 64 43 6f 6d 6d 65 6e 74 73 0a 25 | Box:.0.0.252.104.%%EndComments.% |
| 226700 | 25 42 65 67 69 6e 50 72 6f 6c 6f 67 0a 25 20 55 73 65 20 6f 77 6e 20 64 69 63 74 69 6f 6e 61 72 | %BeginProlog.%.Use.own.dictionar |
| 226720 | 79 20 74 6f 20 61 76 6f 69 64 20 63 6f 6e 66 6c 69 63 74 73 0a 31 30 20 64 69 63 74 20 62 65 67 | y.to.avoid.conflicts.10.dict.beg |
| 226740 | 69 6e 0a 25 25 45 6e 64 50 72 6f 6c 6f 67 0a 25 25 50 61 67 65 3a 20 31 20 31 0a 25 20 54 72 61 | in.%%EndProlog.%%Page:.1.1.%.Tra |
| 226760 | 6e 73 6c 61 74 65 20 66 6f 72 20 6f 66 66 73 65 74 0a 30 20 30 20 74 72 61 6e 73 6c 61 74 65 0a | nslate.for.offset.0.0.translate. |
| 226780 | 25 20 54 72 61 6e 73 6c 61 74 65 20 74 6f 20 62 65 67 69 6e 20 6f 66 20 66 69 72 73 74 20 73 63 | %.Translate.to.begin.of.first.sc |
| 2267a0 | 61 6e 6c 69 6e 65 0a 30 20 31 30 33 2e 32 39 35 34 30 32 35 39 30 38 30 35 31 37 20 74 72 61 6e | anline.0.103.29540259080517.tran |
| 2267c0 | 73 6c 61 74 65 0a 32 35 31 2e 31 34 39 36 30 36 32 39 39 32 31 32 35 39 20 2d 31 30 33 2e 32 39 | slate.251.14960629921259.-103.29 |
| 2267e0 | 35 34 30 32 35 39 30 38 30 35 31 37 20 73 63 61 6c 65 0a 25 20 49 6d 61 67 65 20 67 65 6f 6d 65 | 540259080517.scale.%.Image.geome |
| 226800 | 74 72 79 0a 32 34 38 20 31 30 32 20 38 0a 25 20 54 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 6d | try.248.102.8.%.Transformation.m |
| 226820 | 61 74 72 69 78 0a 5b 20 32 34 38 20 30 20 30 20 31 30 32 20 30 20 30 20 5d 0a 25 20 53 74 72 69 | atrix.[.248.0.0.102.0.0.].%.Stri |
| 226840 | 6e 67 73 20 74 6f 20 68 6f 6c 64 20 52 47 42 2d 73 61 6d 70 6c 65 73 20 70 65 72 20 73 63 61 6e | ngs.to.hold.RGB-samples.per.scan |
| 226860 | 6c 69 6e 65 0a 2f 72 73 74 72 20 32 34 38 20 73 74 72 69 6e 67 20 64 65 66 0a 2f 67 73 74 72 20 | line./rstr.248.string.def./gstr. |
| 226880 | 32 34 38 20 73 74 72 69 6e 67 20 64 65 66 0a 2f 62 73 74 72 20 32 34 38 20 73 74 72 69 6e 67 20 | 248.string.def./bstr.248.string. |
| 2268a0 | 64 65 66 0a 7b 63 75 72 72 65 6e 74 66 69 6c 65 20 2f 41 53 43 49 49 38 35 44 65 63 6f 64 65 20 | def.{currentfile./ASCII85Decode. |
| 2268c0 | 66 69 6c 74 65 72 20 2f 52 75 6e 4c 65 6e 67 74 68 44 65 63 6f 64 65 20 66 69 6c 74 65 72 20 72 | filter./RunLengthDecode.filter.r |
| 2268e0 | 73 74 72 20 72 65 61 64 73 74 72 69 6e 67 20 70 6f 70 7d 0a 7b 63 75 72 72 65 6e 74 66 69 6c 65 | str.readstring.pop}.{currentfile |
| 226900 | 20 2f 41 53 43 49 49 38 35 44 65 63 6f 64 65 20 66 69 6c 74 65 72 20 2f 52 75 6e 4c 65 6e 67 74 | ./ASCII85Decode.filter./RunLengt |
| 226920 | 68 44 65 63 6f 64 65 20 66 69 6c 74 65 72 20 67 73 74 72 20 72 65 61 64 73 74 72 69 6e 67 20 70 | hDecode.filter.gstr.readstring.p |
| 226940 | 6f 70 7d 0a 7b 63 75 72 72 65 6e 74 66 69 6c 65 20 2f 41 53 43 49 49 38 35 44 65 63 6f 64 65 20 | op}.{currentfile./ASCII85Decode. |
| 226960 | 66 69 6c 74 65 72 20 2f 52 75 6e 4c 65 6e 67 74 68 44 65 63 6f 64 65 20 66 69 6c 74 65 72 20 62 | filter./RunLengthDecode.filter.b |
| 226980 | 73 74 72 20 72 65 61 64 73 74 72 69 6e 67 20 70 6f 70 7d 0a 74 72 75 65 20 33 0a 25 25 42 65 67 | str.readstring.pop}.true.3.%%Beg |
| 2269a0 | 69 6e 44 61 74 61 3a 20 20 20 20 20 20 20 20 35 37 35 35 32 20 41 53 43 49 49 20 42 79 74 65 73 | inData:........57552.ASCII.Bytes |
| 2269c0 | 0a 63 6f 6c 6f 72 69 6d 61 67 65 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a | .colorimage.JcCT,J,~>.JcCT,J,~>. |
| 2269e0 | 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 | JcCT,J,~>.JcCT,J,~>.JcCT,J,~>.Jc |
| 226a00 | 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 | CT,J,~>.JcCT,J,~>.JcCT,J,~>.JcCT |
| 226a20 | 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a | ,J,~>.JcCT,J,~>.JcCT,J,~>.JcCT,J |
| 226a40 | 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e | ,~>.JcCT,J,~>.JcCT,J,~>.JcCT,J,~ |
| 226a60 | 3e 0a 4a 63 44 6e 51 70 26 3d 31 54 4a 2c 7e 3e 0a 4a 63 44 6e 51 70 26 3d 31 54 4a 2c 7e 3e 0a | >.JcDnQp&=1TJ,~>.JcDnQp&=1TJ,~>. |
| 226a80 | 4a 63 44 6e 51 70 26 3d 31 54 4a 2c 7e 3e 0a 4a 63 45 3d 5d 72 56 64 30 28 72 72 32 6c 6f 71 74 | JcDnQp&=1TJ,~>.JcE=]rVd0(rr2loqt |
| 226aa0 | 67 2d 60 70 5c 2b 49 56 23 50 52 6f 65 71 3e 3a 2a 67 72 70 4b 66 3a 7e 3e 0a 4a 63 45 3d 5d 72 | g-`p\+IV#PRoeq>:*grpKf:~>.JcE=]r |
| 226ac0 | 56 64 30 28 72 72 32 6c 6f 71 74 67 2d 60 70 5c 2b 49 56 23 50 52 6f 65 71 3e 3a 2a 67 72 70 4b | Vd0(rr2loqtg-`p\+IV#PRoeq>:*grpK |
| 226ae0 | 66 3a 7e 3e 0a 4a 63 45 3d 5d 72 56 64 30 28 72 72 32 6c 6f 71 74 67 2d 60 70 5c 2b 49 56 23 50 | f:~>.JcE=]rVd0(rr2loqtg-`p\+IV#P |
| 226b00 | 52 6f 65 71 3e 3a 2a 67 72 70 4b 66 3a 7e 3e 0a 5e 26 53 2a 32 4b 60 3b 5c 61 72 3b 2d 30 5d 70 | Roeq>:*grpKf:~>.^&S*2K`;\ar;-0]p |
| 226b20 | 40 6e 40 57 70 40 52 6e 42 6c 2f 67 70 5e 67 74 4d 5f 5b 25 2c 30 49 6d 69 54 30 34 68 6e 46 5a | @n@Wp@RnBl/gp^gtM_[%,0ImiT04hnFZ |
| 226b40 | 4d 51 72 56 6c 3f 65 4a 2c 7e 3e 0a 5e 26 53 2a 32 4b 60 3b 5c 61 72 3b 2d 30 5d 70 40 6e 40 57 | MQrVl?eJ,~>.^&S*2K`;\ar;-0]p@n@W |
| 226b60 | 70 40 52 6e 42 6c 2f 67 70 5e 67 74 4d 5f 5b 25 2c 30 49 6d 69 54 30 34 68 6e 46 5a 4d 51 72 56 | p@RnBl/gp^gtM_[%,0ImiT04hnFZMQrV |
| 226b80 | 6c 3f 65 4a 2c 7e 3e 0a 5e 26 53 2a 32 4b 60 3b 5c 61 72 3b 2d 30 5d 70 40 6e 40 57 70 40 52 6e | l?eJ,~>.^&S*2K`;\ar;-0]p@n@Wp@Rn |
| 226ba0 | 42 6c 2f 67 70 5e 67 74 4d 5f 5b 25 2c 30 49 6d 69 54 30 34 68 6e 46 5a 4d 51 72 56 6c 3f 65 4a | Bl/gp^gtM_[%,0ImiT04hnFZMQrVl?eJ |
| 226bc0 | 2c 7e 3e 0a 5f 23 46 4b 38 72 3b 24 3f 64 21 72 3b 63 6e 5c 2c 51 58 32 72 56 5a 54 6c 72 70 4b | ,~>._#FK8r;$?d!r;cn\,QX2rVZTlrpK |
| 226be0 | 64 6b 72 71 75 57 67 71 59 55 36 6a 6f 44 5d 4c 26 71 3d 3c 65 30 68 56 52 35 50 6a 35 38 50 3b | dkrquWgqYU6joD]L&q=<e0hVR5Pj58P; |
| 226c00 | 61 68 6b 5a 74 59 47 6e 41 73 55 43 46 26 75 0a 58 67 3e 52 52 61 6a 53 72 29 6d 2e 43 2f 51 6f | ahkZtYGnAsUCF&u.Xg>RRajSr)m.C/Qo |
| 226c20 | 29 46 34 7e 3e 0a 5f 23 46 4b 38 72 3b 24 3f 64 21 72 3b 63 6e 5c 2c 51 58 32 72 56 5a 54 6c 72 | )F4~>._#FK8r;$?d!r;cn\,QX2rVZTlr |
| 226c40 | 70 4b 64 6b 72 71 75 57 67 71 59 55 36 6a 6f 44 5d 4c 26 71 3d 3c 65 30 68 56 52 35 50 6a 35 38 | pKdkrquWgqYU6joD]L&q=<e0hVR5Pj58 |
| 226c60 | 50 3b 61 68 6b 5a 74 59 47 6e 41 73 55 43 46 26 75 0a 58 67 3e 52 52 61 6a 53 72 29 6d 2e 43 2f | P;ahkZtYGnAsUCF&u.Xg>RRajSr)m.C/ |
| 226c80 | 51 6f 29 46 34 7e 3e 0a 5f 23 46 4b 38 72 3b 24 3f 64 21 72 3b 63 6e 5c 2c 51 58 32 72 56 5a 54 | Qo)F4~>._#FK8r;$?d!r;cn\,QX2rVZT |
| 226ca0 | 6c 72 70 4b 64 6b 72 71 75 57 67 71 59 55 36 6a 6f 44 5d 4c 26 71 3d 3c 65 30 68 56 52 35 50 6a | lrpKdkrquWgqYU6joD]L&q=<e0hVR5Pj |
| 226cc0 | 35 38 50 3b 61 68 6b 5a 74 59 47 6e 41 73 55 43 46 26 75 0a 58 67 3e 52 52 61 6a 53 72 29 6d 2e | 58P;ahkZtYGnAsUCF&u.Xg>RRajSr)m. |
| 226ce0 | 43 2f 51 6f 29 46 34 7e 3e 0a 5f 3e 61 6c 3f 71 21 64 4d 2c 68 72 3c 6b 68 71 23 27 3d 54 73 38 | C/Qo)F4~>._>al?q!dM,hr<khq#'=Ts8 |
| 226d00 | 45 26 74 72 3b 3f 48 6c 71 59 5e 33 6c 72 3b 48 54 6d 72 70 30 52 6a 72 71 75 51 60 6e 61 51 2c | E&tr;?HlqY^3lr;HTmrp0RjrquQ`naQ, |
| 226d20 | 43 71 59 67 21 62 24 4e 42 74 74 6e 61 23 45 27 6d 65 2d 47 55 0a 70 26 3e 5b 27 71 21 3f 5f 52 | CqYg!b$NBttna#E'me-GU.p&>['q!?_R |
| 226d40 | 5b 42 36 55 3c 5c 40 38 5d 3e 54 57 2b 61 2f 61 32 5b 72 4c 25 2b 57 44 3e 59 47 6e 31 70 5d 24 | [B6U<\@8]>TW+a/a2[rL%+WD>YGn1p]$ |
| 226d60 | 26 70 72 70 5c 6a 5e 60 4a 2c 7e 3e 0a 5f 3e 61 6c 3f 71 21 64 4d 2c 68 72 3c 6b 68 71 23 27 3d | &prp\j^`J,~>._>al?q!dM,hr<khq#'= |
| 226d80 | 54 73 38 45 26 74 72 3b 3f 48 6c 71 59 5e 33 6c 72 3b 48 54 6d 72 70 30 52 6a 72 71 75 51 60 6e | Ts8E&tr;?HlqY^3lr;HTmrp0RjrquQ`n |
| 226da0 | 61 51 2c 43 71 59 67 21 62 24 4e 42 74 74 6e 61 23 45 27 6d 65 2d 47 55 0a 70 26 3e 5b 27 71 21 | aQ,CqYg!b$NBttna#E'me-GU.p&>['q! |
| 226dc0 | 3f 5f 52 5b 42 36 55 3c 5c 40 38 5d 3e 53 59 4d 64 6b 5e 3a 6a 40 30 25 2a 5a 45 22 56 6b 54 60 | ?_R[B6U<\@8]>SYMdk^:j@0%*ZE"VkT` |
| 226de0 | 5e 5d 24 26 70 72 70 5c 6a 5e 60 4a 2c 7e 3e 0a 5f 3e 61 6c 3f 71 21 64 4d 2c 68 72 3c 6b 68 71 | ^]$&prp\j^`J,~>._>al?q!dM,hr<khq |
| 226e00 | 23 27 3d 54 73 38 45 26 74 72 3b 3f 48 6c 71 59 5e 33 6c 72 3b 48 54 6d 72 70 30 52 6a 72 71 75 | #'=Ts8E&tr;?HlqY^3lr;HTmrp0Rjrqu |
| 226e20 | 51 60 6e 61 51 2c 43 71 59 67 21 62 24 4e 42 74 74 6e 61 23 45 27 6d 65 2d 47 55 0a 70 26 3e 5b | Q`naQ,CqYg!b$NBttna#E'me-GU.p&>[ |
| 226e40 | 27 71 21 3f 5f 52 5b 42 36 55 3c 5c 40 38 5d 3e 56 36 6d 47 4f 62 66 66 68 44 25 2b 57 53 49 5d | 'q!?_R[B6U<\@8]>V6mGObffhD%+WSI] |
| 226e60 | 21 53 3f 37 5d 24 26 70 72 70 5c 6a 5e 60 4a 2c 7e 3e 0a 68 3e 5b 57 57 72 56 5a 51 67 72 56 2d | !S?7]$&prp\j^`J,~>.h>[WWrVZQgrV- |
| 226e80 | 4e 6b 71 59 5e 3c 6b 6f 60 23 3f 74 70 3f 3a 29 46 5b 42 49 21 55 66 27 29 69 2a 6c 4d 68 28 65 | NkqY^<ko`#?tp?:)F[BI!Uf')i*lMh(e |
| 226ea0 | 71 74 54 6a 55 6e 46 24 3b 42 72 70 30 52 4d 25 64 69 5d 52 6f 43 56 5f 4c 70 5c 3d 52 5c 0a 71 | qtTjUnF$;Brp0RM%di]RoCV_Lp\=R\.q |
| 226ec0 | 75 24 45 6c 6f 29 42 2a 72 71 3d 3c 5f 27 64 61 36 50 26 6d 2e 55 41 4c 72 73 5c 6f 27 6f 26 5c | u$Elo)B*rq=<_'da6P&m.UALrs\o'o&\ |
| 226ee0 | 45 42 5f 38 4f 5e 59 6d 65 48 62 54 72 73 5c 6f 27 6d 46 41 50 56 69 55 3f 36 52 53 5a 30 4e 6e | EB_8O^YmeHbTrs\o'mFAPViU?6RSZ0Nn |
| 226f00 | 6d 67 25 64 6a 55 55 38 47 35 0a 70 5c 6a 61 61 4a 2c 7e 3e 0a 68 3e 5b 57 57 72 56 5a 51 67 72 | mg%djUU8G5.p\jaaJ,~>.h>[WWrVZQgr |
| 226f20 | 56 2d 4e 6b 71 59 5e 3c 6b 6f 60 23 3f 74 70 3f 3a 29 46 5b 42 49 21 55 66 27 29 69 2a 6c 4d 68 | V-NkqY^<ko`#?tp?:)F[BI!Uf')i*lMh |
| 226f40 | 28 65 71 74 54 6a 55 6e 46 24 3b 42 72 70 30 52 4d 25 64 69 5d 52 6f 43 56 5f 4c 70 5c 3d 52 5c | (eqtTjUnF$;Brp0RM%di]RoCV_Lp\=R\ |
| 226f60 | 0a 71 75 24 45 6c 6f 29 42 2a 72 71 3d 3c 5f 27 64 61 36 50 26 6d 2e 55 41 4c 72 73 5c 6f 27 6f | .qu$Elo)B*rq=<_'da6P&m.UALrs\o'o |
| 226f80 | 26 5c 45 42 5f 38 4f 5e 59 6d 65 48 62 54 72 73 5c 6f 27 6d 46 41 50 4e 67 24 40 74 39 51 5f 4d | &\EB_8O^YmeHbTrs\o'mFAPNg$@t9Q_M |
| 226fa0 | 28 58 6c 4e 63 2b 56 54 3d 21 23 31 0a 70 5c 6a 61 61 4a 2c 7e 3e 0a 68 3e 5b 57 57 72 56 5a 51 | (XlNc+VT=!#1.p\jaaJ,~>.h>[WWrVZQ |
| 226fc0 | 67 72 56 2d 4e 6b 71 59 5e 3c 6b 6f 60 23 3f 74 70 3f 3a 29 46 5b 42 49 21 55 66 27 29 69 2a 6c | grV-NkqY^<ko`#?tp?:)F[BI!Uf')i*l |
| 226fe0 | 4d 68 28 65 71 74 54 6a 55 6e 46 24 3b 42 72 70 30 52 4d 25 64 69 5d 52 6f 43 56 5f 4c 70 5c 3d | Mh(eqtTjUnF$;Brp0RM%di]RoCV_Lp\= |
| 227000 | 52 5c 0a 71 75 24 45 6c 6f 29 42 2a 72 71 3d 3c 5f 27 64 61 36 50 26 6d 2e 55 41 4c 72 73 5c 6f | R\.qu$Elo)B*rq=<_'da6P&m.UALrs\o |
| 227020 | 27 6f 26 5c 45 42 5f 38 4f 5e 59 6d 65 48 62 54 72 72 72 44 75 6d 46 41 50 5b 72 6c 62 4a 5e 56 | 'o&\EB_8O^YmeHbTrrrDumFAP[rlbJ^V |
| 227040 | 6d 3d 32 2a 62 51 63 25 66 5b 2a 65 2e 34 0a 72 55 67 2c 3f 7e 3e 0a 69 3b 58 4d 6a 72 56 48 3c | m=2*bQc%f[*e.4.rUg,?~>.i;XMjrVH< |
| 227060 | 5d 6e 45 66 42 23 6a 35 5d 34 60 6c 67 4f 48 3e 71 3e 43 33 6a 71 3e 55 73 27 70 5a 54 6f 2a 5d | ]nEfB#j5]4`lgOH>q>C3jq>Us'pZTo*] |
| 227080 | 5d 26 3e 3c 5d 57 54 51 44 70 5c 6a 49 59 24 4e 30 59 65 6b 32 22 53 36 62 4b 2e 60 45 72 6c 34 | ]&><]WTQDp\jIY$N0Yek2"S6bK.`Erl4 |
| 2270a0 | 72 58 0a 26 5d 72 38 44 65 5f 26 55 33 69 38 60 74 62 6d 49 42 69 43 71 59 67 45 65 72 73 65 72 | rX.&]r8De_&U3i8`tbmIBiCqYgEerser |
| 2270c0 | 25 6d 46 6f 46 59 59 48 3d 6e 38 64 2c 74 24 21 70 41 59 58 25 71 58 45 3d 58 57 50 2d 3f 6e 57 | %mFoFYYH=n8d,t$!pAYX%qXE=XWP-?nW |
| 2270e0 | 34 4c 52 48 71 3e 55 30 68 25 2f 6f 68 53 0a 5b 61 58 3c 6a 65 5e 60 55 43 6b 4d 59 5e 57 23 68 | 4LRHq>U0h%/ohS.[aX<je^`UCkMY^W#h |
| 227100 | 65 2f 27 64 5d 4c 73 62 71 59 70 30 66 4a 2c 7e 3e 0a 69 3b 58 4d 6a 72 56 48 3c 5d 6e 45 66 42 | e/'d]LsbqYp0fJ,~>.i;XMjrVH<]nEfB |
| 227120 | 23 6a 35 5d 34 60 6c 67 4f 48 3e 71 3e 43 33 6a 71 3e 55 73 27 70 5a 54 6f 27 5a 65 3d 5a 74 5a | #j5]4`lgOH>q>C3jq>Us'pZTo'Ze=ZtZ |
| 227140 | 60 44 43 38 70 5c 6a 49 59 24 4e 30 59 65 6b 32 22 53 36 62 4b 2e 60 45 72 6c 34 72 58 0a 26 5d | `DC8p\jIY$N0Yek2"S6bK.`Erl4rX.&] |
| 227160 | 72 38 44 65 5f 26 55 33 69 38 60 74 62 6d 49 42 69 43 71 59 67 45 65 72 73 65 72 25 6d 46 6f 46 | r8De_&U3i8`tbmIBiCqYgEerser%mFoF |
| 227180 | 59 57 4d 63 5a 27 64 2c 74 24 21 70 41 59 58 25 71 58 45 3d 58 56 52 34 28 50 55 55 6f 25 43 71 | YWMcZ'd,t$!pAYX%qXE=XVR4(PUUo%Cq |
| 2271a0 | 3e 55 30 68 25 2f 6f 68 53 0a 5b 60 6e 25 23 6b 4e 44 2a 72 6c 66 6d 64 21 23 6a 43 4f 3f 62 48 | >U0h%/ohS.[`n%#kND*rlfmd!#jCO?bH |
| 2271c0 | 27 28 59 71 59 70 30 66 4a 2c 7e 3e 0a 69 3b 58 4d 6a 72 56 48 3c 5d 6e 45 66 42 23 6a 35 5d 34 | '(YqYp0fJ,~>.i;XMjrVH<]nEfB#j5]4 |
| 2271e0 | 60 6c 67 4f 48 3e 71 3e 43 33 6a 71 3e 55 57 73 70 5a 54 6f 30 5f 3e 5f 58 5e 5f 36 5f 47 4e 70 | `lgOH>q>C3jq>UWspZTo0_>_X^_6_GNp |
| 227200 | 5c 6a 49 59 24 4e 30 59 65 6b 32 22 53 36 62 4b 2e 60 45 72 6c 34 72 58 0a 26 5d 72 38 44 65 5f | \jIY$N0Yek2"S6bK.`Erl4rX.&]r8De_ |
| 227220 | 26 55 33 69 38 60 74 62 6d 49 42 69 43 71 59 67 45 65 72 73 65 72 25 6d 46 6f 46 59 5c 5b 53 72 | &U3i8`tbmIBiCqYgEerser%mFoFY\[Sr |
| 227240 | 54 64 2c 74 24 21 70 41 59 58 25 71 58 45 3d 58 58 68 72 29 75 5a 2b 41 4e 51 71 3e 55 30 68 25 | Td,t$!pAYX%qXE=XXhr)uZ+ANQq>U0h% |
| 227260 | 2f 6f 68 53 0a 5b 60 63 46 70 5b 43 2a 5a 63 5f 53 23 36 43 23 65 2e 49 65 62 2d 54 4f 60 71 59 | /ohS.[`cFp[C*Zc_S#6C#e.Ieb-TO`qY |
| 227280 | 70 30 66 4a 2c 7e 3e 0a 69 72 39 6b 70 72 3a 6f 6d 4d 6a 34 68 75 27 5f 37 52 31 63 5c 5c 3f 29 | p0fJ,~>.ir9kpr:omMj4hu'_7R1c\\?) |
| 2272a0 | 2f 66 41 50 6c 5d 70 25 65 4f 62 71 75 37 30 27 6e 43 3d 59 75 6a 4f 72 29 3a 6a 50 52 29 69 6e | /fAPl]p%eObqu70'nC=YujOr):jPR)in |
| 2272c0 | 47 44 56 51 23 6c 4f 41 59 65 41 26 2c 59 55 54 2b 36 6a 0a 72 4d 4b 52 6c 26 5a 4d 40 6e 55 38 | GDVQ#lOAYeA&,YUT+6j.rMKRl&ZM@nU8 |
| 2272e0 | 46 75 72 5c 25 54 5d 25 64 46 6d 4f 46 6f 5f 53 52 5e 72 74 23 2c 2a 6d 46 4a 59 4d 6e 2a 39 33 | Fur\%T]%dFmOFo_SR^rt#,*mFJYMn*93 |
| 227300 | 2a 64 5d 31 4c 53 70 5c 6a 6a 64 26 2c 59 71 52 5d 3b 62 35 5a 69 38 46 22 43 5a 49 65 52 42 0a | *d]1LSp\jjd&,YqR];b5Zi8F"CZIeRB. |
| 227320 | 72 71 5a 52 27 71 73 44 59 31 6c 48 2d 3c 34 58 4c 6c 54 6d 5d 3c 28 44 23 23 64 4d 22 64 68 3a | rqZR'qsDY1lH-<4XLlTm]<(D##dM"dh: |
| 227340 | 26 70 6e 70 41 4f 5b 61 4a 2c 7e 3e 0a 69 72 39 6b 70 72 3a 6f 6d 4d 6a 34 68 75 27 5f 37 52 31 | &pnpAO[aJ,~>.ir9kpr:omMj4hu'_7R1 |
| 227360 | 63 5c 5c 3f 29 2f 66 41 50 6c 5d 70 25 65 4f 62 71 75 37 30 27 6e 43 3d 53 6f 6c 4b 49 45 70 6c | c\\?)/fAPl]p%eObqu70'nC=SolKIEpl |
| 227380 | 4a 26 41 69 6e 47 44 56 51 23 6c 4f 41 59 65 41 26 2c 59 54 3b 29 2b 52 0a 26 74 75 28 69 53 74 | J&AinGDVQ#lOAYeA&,YT;)+R.&tu(iSt |
| 2273a0 | 60 2a 5f 5a 2b 25 45 61 62 30 65 6f 25 6c 68 28 26 51 71 23 3a 6d 28 71 58 29 6b 40 57 70 42 24 | `*_Z+%Eab0eo%lh(&Qq#:m(qX)k@WpB$ |
| 2273c0 | 3c 6d 45 3b 45 4e 6b 6b 47 26 4d 72 74 23 22 74 68 37 4b 48 4b 6c 4b 52 52 23 5e 39 5a 41 5a 71 | <mE;ENkkG&Mrt#"th7KHKlKRR#^9ZAZq |
| 2273e0 | 75 36 45 6b 25 0a 2f 5d 47 3a 56 73 4e 4c 26 68 72 21 44 52 6a 35 4b 40 5e 23 69 4f 5c 27 6c 2d | u6Ek%./]G:VsNL&hr!DRj5K@^#iO\'l- |
| 227400 | 24 57 72 70 41 4f 5b 61 4a 2c 7e 3e 0a 69 72 39 6b 70 72 3a 6f 6d 4d 6a 34 68 75 27 5f 37 52 31 | $WrpAO[aJ,~>.ir9kpr:omMj4hu'_7R1 |
| 227420 | 63 5c 5c 3f 29 2f 66 41 50 6c 5d 70 25 65 4f 62 71 75 37 30 27 6e 43 3d 6b 64 5e 55 4c 56 5b 5e | c\\?)/fAPl]p%eObqu70'nC=kd^ULV[^ |
| 227440 | 57 3c 62 33 6e 47 44 56 51 24 69 4b 5c 5c 65 41 26 2c 59 58 4c 23 31 39 0a 59 6c 31 64 2a 59 53 | W<b3nGDVQ$iK\\eA&,YXL#19.Yl1d*YS |
| 227460 | 2b 34 49 55 52 6e 33 57 58 30 4b 2e 49 5f 6f 67 42 5b 69 70 36 37 35 72 71 51 4c 28 72 71 63 24 | +4IURn3WX0K.I_ogB[ip675rqQL(rqc$ |
| 227480 | 35 5b 28 3d 4b 22 60 35 67 24 27 62 4e 53 5e 21 70 5c 74 64 24 6f 25 67 70 61 62 2e 6b 55 25 61 | 5[(=K"`5g$'bNS^!p\td$o%gpab.kU%a |
| 2274a0 | 32 59 46 3a 0a 6e 2c 2a 2b 5b 72 73 65 6b 6d 63 2a 74 57 6e 54 71 40 73 53 58 66 4a 3d 6b 6d 40 | 2YF:.n,*+[rsekmc*tWnTq@sSXfJ=km@ |
| 2274c0 | 46 54 57 56 51 64 59 53 5c 60 2a 38 5c 70 26 42 4f 7e 3e 0a 6a 53 70 35 21 72 3a 6f 64 44 66 75 | FTWVQdYS\`*8\p&BO~>.jSp5!r:odDfu |
| 2274e0 | 5e 65 28 54 57 23 24 34 60 35 4b 58 2a 56 50 42 72 6e 5f 55 2e 2d 26 6e 62 45 25 5d 72 72 33 51 | ^e(TW#$4`5KX*VPBrn_U.-&nbE%]rr3Q |
| 227500 | 2f 71 3c 2c 54 2b 6a 4d 38 25 25 5a 2c 23 47 34 5f 3c 3a 58 6e 6e 2c 45 5b 6c 70 5a 4b 63 24 0a | /q<,T+jM8%%Z,#G4_<:Xnn,E[lpZKc$. |
| 227520 | 61 37 26 4b 61 70 24 29 50 46 72 70 4c 3c 53 5f 6f 30 27 5d 57 4d 24 2f 75 62 4d 56 67 63 72 71 | a7&Kap$)PFrpL<S_o0']WM$/ubMVgcrq |
| 227540 | 5a 52 29 72 3a 38 55 4d 61 36 32 21 70 61 6a 26 5a 21 57 6d 70 4d 37 71 23 3a 70 28 70 3e 6a 26 | ZR)r:8UMa62!paj&Z!WmpM7q#:p(p>j& |
| 227560 | 68 6c 49 21 44 5a 5d 3f 54 45 4a 0a 5d 5d 26 53 5f 71 59 71 24 28 71 3c 2c 51 36 69 34 47 29 2d | hlI!DZ]?TEJ.]]&S_qYq$(q<,Q6i4G)- |
| 227580 | 4d 33 2b 33 6c 4f 52 2e 66 30 4e 30 27 5e 57 6d 42 22 6e 2f 72 3a 55 29 3f 7e 3e 0a 6a 53 6f 59 | M3+3lOR.f0N0'^WmB"n/r:U)?~>.jSoY |
| 2275a0 | 66 72 3a 6f 64 44 66 75 5e 65 28 53 59 45 21 70 72 6b 26 5a 45 54 56 26 24 64 5f 55 2e 2d 26 6e | fr:odDfu^e(SYE!prk&ZETV&$d_U.-&n |
| 2275c0 | 62 45 25 5d 72 72 33 51 2f 71 3c 2c 54 23 6c 4a 67 61 5a 69 38 58 25 2e 5f 3c 3a 58 6e 6e 2c 45 | bE%]rr3Q/q<,T#lJgaZi8X%._<:Xnn,E |
| 2275e0 | 5b 6c 70 5a 4b 63 22 0a 5e 3f 62 2b 50 6f 5e 29 53 43 25 47 41 3e 2a 59 62 25 53 5b 56 6d 6a 6b | [lpZKc".^?b+Po^)SC%GA>*Yb%S[Vmjk |
| 227600 | 2c 6e 47 3c 2e 5b 72 74 23 25 75 67 55 34 63 5d 6b 4e 28 5e 63 6c 2e 57 29 63 6e 2c 29 6e 5b 26 | ,nG<.[rt#%ugU4c]kN(^cl.W)cn,)n[& |
| 227620 | 48 32 3d 60 5f 35 24 41 5a 69 6f 2f 6b 58 6c 45 5c 28 5d 0a 70 41 4f 6a 66 25 4b 3f 31 64 5e 71 | H2=`_5$AZio/kXlE\(].pAOjf%K?1d^q |
| 227640 | 54 27 6c 67 3d 4f 73 31 67 74 55 51 4c 66 2a 4c 24 5f 68 3c 22 25 26 66 28 26 5c 32 73 2a 74 7e | T'lg=Os1gtUQLf*L$_h<"%&f(&\2s*t~ |
| 227660 | 3e 0a 6a 53 6f 59 66 72 3a 6f 64 44 66 75 5e 65 28 56 36 52 4d 4b 72 6b 6f 35 5a 59 48 34 50 2b | >.jSoYfr:odDfu^e(V6RMKrko5ZYH4P+ |
| 227680 | 5f 55 2e 2d 26 6e 62 45 25 5d 72 72 33 51 2f 71 3c 2c 54 31 5e 53 6d 69 75 54 72 3e 60 41 5f 3c | _U.-&nbE%]rr3Q/q<,T1^SmiuTr>`A_< |
| 2276a0 | 3a 58 6e 6e 2c 45 5b 6c 70 5a 4b 63 2a 0a 60 6c 75 5a 49 6f 75 24 6a 51 72 51 47 5c 65 60 34 60 | :Xnn,E[lpZKc*.`luZIou$jQrQG\e`4` |
| 2276c0 | 3d 5a 55 6f 31 5d 46 68 73 67 4c 41 71 3e 56 21 27 6f 25 55 52 6c 5f 52 36 4d 4a 59 65 25 6f 5b | =ZUo1]FhsgLAq>V!'o%URl_R6MJYe%o[ |
| 2276e0 | 65 46 33 3b 30 72 74 2c 2f 26 6a 4d 41 31 40 5a 44 61 58 74 59 65 52 75 64 0a 69 56 2a 36 48 72 | eF3;0rt,/&jMA1@ZDaXtYeRud.iV*6Hr |
| 227700 | 73 6f 26 28 6b 4a 35 2a 4d 56 4f 2a 67 43 51 5e 3c 75 28 53 46 29 6a 51 53 21 54 53 4a 61 30 6a | so&(kJ5*MVO*gCQ^<u(SF)jQS!TSJa0j |
| 227720 | 4c 67 72 3a 55 29 3f 7e 3e 0a 6a 6f 35 62 66 71 3d 33 52 73 5e 6f 3d 21 47 69 39 6f 6d 6e 72 53 | Lgr:U)?~>.jo5bfq=3Rs^o=!Gi9omnrS |
| 227740 | 53 67 5a 6c 4c 22 26 59 59 46 72 26 39 66 26 75 5a 24 72 72 3c 23 74 70 3e 3c 2e 44 65 5a 3d 5e | SgZlL"&YYFr&9f&uZ$rr<#tp><.DeZ=^ |
| 227760 | 64 4e 32 74 4c 74 5a 2f 3e 39 53 6e 2c 45 5b 6a 6e 27 6e 44 71 0a 69 37 36 42 26 6f 75 52 33 5d | dN2tLtZ/>9Sn,E[jn'nDq.i76B&ouR3] |
| 227780 | 72 6d 5f 4a 32 69 38 45 5c 5d 6c 4c 2b 2c 68 58 68 45 51 5d 72 3b 2d 46 2a 72 71 50 5a 70 57 54 | rm_J2i8E\]lL+,hXhEQ]r;-F*rqPZpWT |
| 2277a0 | 71 55 2c 53 22 24 2b 64 6a 4c 4d 71 60 70 5c 74 21 67 26 47 74 71 46 56 73 5f 73 30 50 45 3a 6d | qU,S"$+djLMq`p\t!g&GtqFVs_s0PE:m |
| 2277c0 | 27 0a 64 49 2a 61 55 6d 65 63 6b 5c 25 30 24 25 5f 5c 41 64 43 3c 4f 46 32 31 75 4b 37 4e 72 4b | '.dI*aUmeck\%0$%_\AdC<OF21uK7NrK |
| 2277e0 | 73 2b 3a 39 2d 21 2f 70 5d 38 72 65 5e 5a 2c 24 40 49 2c 44 4a 73 73 64 47 59 30 6c 62 3a 70 26 | s+:9-!/p]8re^Z,$@I,DJssdGY0lb:p& |
| 227800 | 42 4f 7e 3e 0a 6a 6f 35 62 66 71 3d 33 52 73 5e 6f 3c 67 3a 67 24 4a 28 6b 72 54 50 48 69 6d 2d | BO~>.jo5bfq=3Rs^o<g:g$J(krTPHim- |
| 227820 | 58 2c 4e 56 6b 28 21 2e 66 26 75 5a 24 72 72 3c 23 74 70 3e 3c 2e 40 6b 4d 4f 71 44 66 5c 62 6c | X,NVk(!.f&uZ$rr<#tp><.@kMOqDf\bl |
| 227840 | 58 5a 2f 3e 39 53 6e 2c 45 5b 6a 6e 27 6e 3e 6a 0a 6c 30 25 36 6b 70 23 48 2c 38 72 6f 58 43 49 | XZ/>9Sn,E[jn'n>j.l0%6kp#H,8roXCI |
| 227860 | 6c 30 37 4c 34 6c 69 75 65 21 56 6e 4c 70 57 72 3b 2d 46 2a 72 71 50 5a 70 55 3f 70 73 75 67 74 | l07L4liue!VnLpWr;-F*rqPZpU?psugt |
| 227880 | 5e 60 46 6c 45 5c 28 5f 70 5c 74 21 67 23 35 64 6c 3c 56 21 52 37 23 72 6e 37 53 35 0a 6b 33 53 | ^`FlE\(_p\t!g#5dl<V!R7#rn7S5.k3S |
| 2278a0 | 62 66 6d 65 63 6b 5c 25 30 24 25 5f 5c 40 68 28 62 67 3d 22 3c 71 65 43 34 45 46 73 34 25 29 23 | bfmeck\%0$%_\@h(bg="<qeC4EFs4%)# |
| 2278c0 | 21 38 2e 2f 25 72 6e 25 32 22 24 49 5b 3e 4b 65 44 30 2d 4f 56 70 59 23 33 70 26 42 4f 7e 3e 0a | !8./%rn%2"$I[>KeD0-OVpY#3p&BO~>. |
| 2278e0 | 6a 6f 35 62 66 71 3d 33 52 73 5e 6f 3d 39 4f 62 66 5b 6c 40 72 4f 61 38 66 60 35 67 2a 3e 5c 3e | jo5bfq=3Rs^o=9Obf[l@rOa8f`5g*>\> |
| 227900 | 36 3a 46 66 26 75 5a 24 72 72 3c 23 74 70 3e 3c 2e 21 5b 40 60 71 59 53 22 40 25 33 5a 2f 3e 39 | 6:Ff&uZ$rr<#tp><.![@`qYS"@%3Z/>9 |
| 227920 | 53 6e 2c 45 5b 6a 6e 27 6e 56 60 0a 5d 58 3e 2f 4f 6f 72 53 35 22 72 6a 3c 33 45 5d 59 29 22 74 | Sn,E[jn'nV`.]X>/OorS5"rj<3E]Y)"t |
| 227940 | 60 36 2d 3c 48 5c 25 55 56 67 72 3b 2d 46 2a 72 71 50 5a 70 5a 63 26 75 3c 51 5e 3d 2f 3e 5e 56 | `6-<H\%UVgr;-F*rqPZpZc&u<Q^=/>^V |
| 227960 | 40 47 41 70 5c 74 21 67 26 47 74 71 46 58 4e 49 69 3d 51 43 21 72 2e 0a 5a 48 39 26 6c 6d 65 63 | @GAp\t!g&GtqFXNIi=QC!r..ZH9&lmec |
| 227980 | 6b 5c 25 30 24 25 5f 5c 41 5a 25 57 51 60 49 4b 6f 55 53 5b 73 6a 73 2e 66 55 62 21 31 57 68 50 | k\%0$%_\AZ%WQ`IKoUS[sjs.fUb!1WhP |
| 2279a0 | 72 67 6a 28 61 24 45 4c 3e 37 55 52 2f 2b 24 5c 27 61 5e 43 70 26 42 4f 7e 3e 0a 6b 50 6c 25 6b | rgj(a$EL>7UR/+$\'a^Cp&BO~>.kPl%k |
| 2279c0 | 72 3a 5d 46 2f 5f 35 3d 45 6f 6d 47 51 5b 46 61 69 2b 2e 69 2b 4d 63 2b 44 65 5f 6f 57 59 64 42 | r:]F/_5=EomGQ[Fai+.i+Mc+De_oWYdB |
| 2279e0 | 54 58 68 68 73 70 52 42 73 38 44 57 46 56 73 69 30 3b 4d 30 34 5a 55 65 61 4b 45 6a 70 26 34 43 | TXhhspRBs8DWFVsi0;M04ZUeaKEjp&4C |
| 227a00 | 5b 24 33 27 62 5f 0a 5e 72 50 42 46 58 4b 38 2c 67 52 66 4b 3e 62 58 3a 44 4d 49 5d 3e 32 50 31 | [$3'b_.^rPBFXK8,gRfK>bX:DMI]>2P1 |
| 227a20 | 64 46 49 28 3c 5e 3b 54 31 2f 72 71 6c 5e 2d 72 3a 38 4c 3f 69 37 59 41 6f 4b 37 66 23 5d 65 61 | dFI(<^;T1/rql^-r:8L?i7YAoK7f#]ea |
| 227a40 | 4b 3c 61 6e 62 69 37 60 27 29 71 5e 69 5e 71 2f 55 42 0a 50 43 40 6e 2e 50 2f 24 28 66 5d 5d 41 | K<anbi7`')q^i^q/UB.PC@n.P/$(f]]A |
| 227a60 | 6b 65 71 75 37 42 30 70 59 72 58 22 69 34 47 28 75 42 6b 5f 4c 28 4a 72 2c 53 58 52 5d 45 4b 6f | kequ7B0pYrX"i4G(uBk_L(Jr,SXR]EKo |
| 227a80 | 71 52 5a 5b 2c 73 2d 61 3a 56 4e 65 72 55 5d 61 51 67 22 5a 6e 62 69 28 5b 4a 2c 7e 3e 0a 6b 50 | qRZ[,s-a:VNerU]aQg"Znbi([J,~>.kP |
| 227aa0 | 6c 25 6b 72 3a 5d 46 2f 5f 35 3d 30 61 6d 48 4e 69 73 6a 51 24 33 74 2b 51 44 4a 44 6b 4e 56 3d | l%kr:]F/_5=0amHNisjQ$3t+QDJDkNV= |
| 227ac0 | 21 61 66 32 35 58 68 73 70 52 42 73 38 44 57 46 56 73 45 4f 27 66 3f 60 28 2b 6b 4e 66 26 23 70 | !af25XhspRBs8DWFVsEO'f?`(+kNf&#p |
| 227ae0 | 26 34 43 5b 24 33 27 62 5f 0a 5e 71 5d 2d 6d 68 72 21 38 5f 67 5d 36 34 31 68 5b 5c 54 27 69 53 | &4C[$3'b_.^q]-mhr!8_g]641h[\T'iS |
| 227b00 | 72 71 5a 6b 33 29 21 71 5b 60 25 3e 27 72 71 6c 5e 2d 72 3a 38 4c 3f 67 24 25 41 48 65 43 3c 2b | rqZk3)!q[`%>'rql^-r:8L?g$%AHeC<+ |
| 227b20 | 2d 6b 4e 65 71 6f 6e 62 69 37 60 27 29 71 5e 69 5e 70 3c 37 62 0a 67 3d 2b 4b 75 67 3e 5f 44 26 | -kNeqonbi7`')q^i^p<7b.g=+Kug>_D& |
| 227b40 | 5d 5d 41 6b 65 71 75 37 42 30 70 59 72 57 6f 6c 2f 43 40 45 62 30 25 72 50 65 43 57 46 30 67 75 | ]]Akequ7B0pYrWol/C@Eb0%rPeCWF0gu |
| 227b60 | 25 23 49 71 56 68 47 32 73 34 64 74 38 67 22 34 6a 32 6a 51 72 6e 72 6e 62 69 28 5b 4a 2c 7e 3e | %#IqVhG2s4dt8g"4j2jQrnrnbi([J,~> |
| 227b80 | 0a 6b 50 6c 25 6b 72 3a 5d 46 2f 5f 35 3d 60 64 61 31 53 6d 65 58 66 4d 44 74 2b 4b 32 45 48 5b | .kPl%kr:]F/_5=`da1SmeXfMDt+K2EH[ |
| 227ba0 | 43 6a 42 21 61 67 6e 40 68 68 73 70 52 42 73 38 44 57 46 56 70 29 51 40 53 40 22 69 59 5b 45 50 | CjB!agn@hhspRBs8DWFVp)Q@S@"iY[EP |
| 227bc0 | 51 27 70 26 34 43 5b 24 33 27 62 5f 0a 5e 72 4f 2a 62 54 3a 5f 53 46 51 4e 33 51 54 54 2b 37 51 | Q'p&4C[$3'b_.^rO*bT:_SFQN3QTT+7Q |
| 227be0 | 6c 56 50 70 57 21 5a 46 2e 39 5e 5f 6f 31 5e 34 72 71 6c 5e 2d 72 3a 38 4c 3f 62 64 58 3a 38 55 | lVPpW!ZF.9^_o1^4rql^-r:8L?bdX:8U |
| 227c00 | 53 46 42 4f 5b 45 50 47 73 6e 62 69 37 60 27 29 71 5e 69 5e 71 64 5e 60 0a 51 44 67 6a 5f 51 44 | SFBO[EPGsnbi7`')q^i^qd^`.QDgj_QD |
| 227c20 | 68 52 34 5d 5d 41 6b 65 71 75 37 42 30 70 59 72 58 21 5d 56 5f 24 72 61 69 56 39 33 55 52 64 64 | hR4]]Akequ7B0pYrX!]V_$raiV93URdd |
| 227c40 | 3d 51 5f 27 65 42 71 50 4f 37 60 73 2d 46 28 5b 52 40 54 6e 38 58 69 2e 64 22 6e 62 69 28 5b 4a | =Q_'eBqPO7`s-F([R@Tn8Xi.d"nbi([J |
| 227c60 | 2c 7e 3e 0a 6b 6c 32 31 6d 71 58 57 5b 6a 59 47 5e 3d 41 67 21 2e 2e 36 56 4f 4e 6b 4c 4f 3c 42 | ,~>.kl21mqXW[jYG^=Ag!..6VONkLO<B |
| 227c80 | 61 56 54 72 62 6c 45 64 47 3d 21 44 58 4d 3c 5d 63 72 3b 5a 60 66 66 71 5c 23 64 58 47 4d 28 56 | aVTrblEdG=!DXM<]cr;Z`ffq\#dXGM(V |
| 227ca0 | 58 34 3f 5b 36 67 25 3e 37 34 72 73 41 5d 21 0a 69 4e 72 22 27 58 47 4d 64 66 6f 6e 2a 37 22 72 | X4?[6g%>74rsA]!.iNr"'XGMdfon*7"r |
| 227cc0 | 65 56 2c 44 4f 48 3e 5a 71 53 23 33 39 71 65 61 4b 54 6f 6f 5f 6e 5e 66 27 45 37 6a 6e 60 69 38 | eV,DOH>ZqS#39qeaKToo_n^f'E7jn`i8 |
| 227ce0 | 37 46 52 74 47 57 74 4a 73 73 64 47 56 6f 53 2a 21 72 71 6c 5e 2e 72 55 6f 21 4d 0a 64 47 3b 36 | 7FRtGWtJssdGVoS*!rql^.rUo!M.dG;6 |
| 227d00 | 6b 48 3e 2e 53 5d 5a 2e 5c 27 37 67 25 35 31 3e 72 74 50 4a 2d 6a 30 6c 6e 61 5d 39 25 44 53 3e | kH>.S]Z.\'7g%51>rtPJ-j0lna]9%DS> |
| 227d20 | 5d 35 34 5f 58 31 48 42 6e 65 5e 60 40 4c 69 3b 56 3a 2c 61 39 6f 4d 65 58 2f 69 69 21 6a 49 47 | ]54_X1HBne^`@Li;V:,a9oMeX/ii!jIG |
| 227d40 | 26 75 72 55 70 32 40 7e 3e 0a 6b 6c 32 31 6d 71 58 57 5b 6a 59 46 73 53 37 6b 69 4c 64 5d 68 56 | &urUp2@~>.kl21mqXW[jYFsS7kiLd]hV |
| 227d60 | 3f 6c 60 67 29 6f 2c 2b 68 72 33 56 58 6c 30 49 24 22 5e 59 6e 62 5e 73 38 44 54 43 55 5b 2e 2b | ?l`g)o,+hr3VXl0I$"^Ynb^s8DTCU[.+ |
| 227d80 | 23 66 3f 60 28 2b 6b 4e 65 6e 72 6f 5f 6e 3a 5a 24 33 27 5c 58 0a 5a 67 36 66 33 66 40 53 52 47 | #f?`(+kNenro_n:Z$3'\X.Zg6f3f@SRG |
| 227da0 | 65 2c 5c 29 21 66 29 58 4a 26 67 41 66 71 36 68 56 5b 3b 54 6c 60 41 6b 35 72 56 5a 5b 2f 72 71 | e,\)!f)XJ&gAfq6hV[;Tl`Ak5rVZ[/rq |
| 227dc0 | 62 70 22 55 3f 70 73 72 65 42 48 2e 64 67 75 52 67 71 61 36 4e 4f 23 71 75 37 3c 2d 70 22 63 67 | bp"U?psreBH.dguRgqa6NO#qu7<-p"cg |
| 227de0 | 6f 0a 6c 2f 43 3d 43 62 30 5c 66 21 6b 68 32 72 67 6f 44 53 52 64 27 60 52 6d 66 5b 5f 31 6b 60 | o.l/C=Cb0\f!kh2rgoDSRd'`Rmf[_1k` |
| 227e00 | 67 3d 22 2d 3f 62 67 62 47 2a 69 54 30 28 5f 6b 4e 4d 64 2c 72 6f 61 3d 42 73 35 46 22 38 23 33 | g="-?bgbG*iT0(_kNMd,roa=Bs5F"8#3 |
| 227e20 | 22 74 27 51 4a 4d 33 33 70 26 42 4f 7e 3e 0a 6b 6c 32 31 6d 71 58 57 5b 6a 59 48 63 3c 67 5c 24 | "t'QJM33p&BO~>.kl21mqXW[jYHc<g\$ |
| 227e40 | 32 61 27 53 3c 6f 4e 3e 51 51 56 54 5c 52 5c 2d 49 58 5a 46 5b 6f 73 5b 44 31 59 6c 72 3b 5a 60 | 2a'S<oN>QQVT\R\-IXZF[os[D1Ylr;Z` |
| 227e60 | 66 66 71 5a 64 21 54 3a 45 39 5a 54 21 63 65 3b 67 25 3e 37 34 72 73 41 5d 21 0a 69 4e 70 62 39 | ffqZd!T:E9ZT!ce;g%>74rsA]!.iNpb9 |
| 227e80 | 54 3a 44 46 46 6f 71 4d 4d 59 72 67 58 49 66 51 5e 3d 23 29 51 5e 6a 5c 43 5b 45 50 60 2c 6f 5f | T:DFFoqMMYrgXIfQ^=#)Q^j\C[EP`,o_ |
| 227ea0 | 6e 5e 66 27 45 37 6a 6e 60 6a 33 4f 62 51 5f 56 3a 2f 55 52 2f 2b 24 59 66 48 26 2a 72 71 6c 5e | n^f'E7jn`j3ObQ_V:/UR/+$YfH&*rql^ |
| 227ec0 | 2e 72 55 6f 21 4d 0a 61 68 22 37 38 59 30 21 72 3c 54 73 72 37 46 67 25 35 31 3e 72 74 50 4a 2d | .rUo!M.ah"78Y0!r<Tsr7Fg%51>rtPJ- |
| 227ee0 | 6a 30 6c 6e 3d 56 4f 2b 40 2a 60 34 72 28 36 53 75 2f 57 6c 5b 43 2a 4c 3f 5d 60 2c 3e 3d 58 55 | j0ln=VO+@*`4r(6Su/Wl[C*L?]`,>=XU |
| 227f00 | 3a 72 23 53 74 3b 68 22 66 73 42 4e 2c 72 55 70 32 40 7e 3e 0a 6c 32 4d 3d 6f 71 58 45 3d 58 55 | :r#St;h"fsBN,rUp2@~>.l2M=oqXE=XU |
| 227f20 | 56 75 48 4e 60 33 48 22 74 4e 2f 2a 25 39 72 48 6f 60 3a 4b 38 23 2f 44 51 29 3b 22 2e 67 24 35 | VuHN`3H"tN/*%9rHo`:K8#/DQ);".g$5 |
| 227f40 | 60 60 6c 68 5e 56 5a 6f 5b 6f 6f 2c 65 5a 3d 55 4d 4d 36 23 31 71 55 3d 66 2c 3a 6e 47 60 61 6d | ``lh^VZo[oo,eZ=UMM6#1qU=f,:nG`am |
| 227f60 | 0a 70 59 60 3d 46 65 5a 3d 57 28 4b 29 30 42 75 46 2a 32 62 55 47 5e 4f 6d 66 4b 37 65 72 39 52 | .pY`=FeZ=W(K)0BuF*2bUG^OmfK7er9R |
| 227f80 | 60 4f 63 74 65 2b 2a 41 36 72 74 47 41 29 69 33 5e 47 5c 5d 39 25 44 53 42 52 47 6f 51 69 35 45 | `Octe+*A6rtGA)i3^G\]9%DSBRGoQi5E |
| 227fa0 | 2b 61 70 5c 74 27 69 27 29 5f 3a 4b 0a 54 43 3a 3d 33 4d 30 33 3c 4a 4b 71 51 5d 58 55 57 72 36 | +ap\t'i')_:K.TC:=3M03<JKqQ]XUWr6 |
| 227fc0 | 28 71 75 37 57 37 70 75 4b 21 29 69 34 47 28 75 42 6c 41 54 6c 61 4f 54 35 36 6c 4c 34 33 21 5f | (qu7W7puK!)i4G(uBlATlaOT56lL43!_ |
| 227fe0 | 53 45 74 29 5f 6e 61 28 65 6e 2c 4d 59 5b 69 38 29 72 36 69 39 63 4b 2c 0a 6c 4d 3a 47 50 73 2a | SEt)_na(en,MY[i8)r6i9cK,.lM:GPs* |
| 228000 | 74 7e 3e 0a 6c 32 4d 3d 6f 71 58 45 3d 58 54 74 4b 61 55 6a 35 41 62 49 66 5b 65 52 24 72 52 29 | t~>.l2M=oqXE=XTtKaUj5AbIf[eR$rR) |
| 228020 | 68 3b 65 43 45 31 29 67 59 55 6f 4c 6b 6a 35 37 6b 6c 68 5e 56 5a 6f 5b 6f 6f 28 6b 4d 4f 6e 3b | h;eCE1)gYUoLkj57klh^VZo[oo(kMOn; |
| 228040 | 66 41 47 63 57 55 3d 66 2c 3a 6e 47 60 61 6d 0a 70 59 60 3d 42 6b 4d 4f 6e 66 65 47 40 42 25 63 | fAGcWU=f,:nG`am.pY`=BkMOnfeG@B%c |
| 228060 | 48 6a 6e 64 64 2a 67 40 6b 65 43 3c 28 24 67 75 52 68 24 65 2b 2a 41 36 72 74 47 41 29 69 33 5e | Hjndd*g@keC<($guRh$e+*A6rtGA)i3^ |
| 228080 | 2f 5d 69 53 29 60 26 61 6a 53 6f 25 6c 2b 46 4c 62 70 5c 74 27 69 27 29 5f 3a 4b 0a 54 42 6b 5b | /]iS)`&ajSo%l+FLbp\t'i')_:K.TBk[ |
| 2280a0 | 74 66 3f 5f 22 50 65 5f 54 3f 53 54 3f 5a 67 24 71 75 37 57 37 70 75 4a 75 75 6c 2f 43 40 45 62 | tf?_"Pe_T?ST?Zg$qu7W7puJuul/C@Eb |
| 2280c0 | 30 38 41 6a 6a 51 47 64 6f 6d 2d 45 75 6a 5d 21 66 29 5b 5d 3d 2c 30 49 6c 69 36 3b 59 6c 30 2e | 08AjjQGdom-Euj]!f)[]=,0Ili6;Yl0. |
| 2280e0 | 3c 6e 6c 30 57 75 22 0a 6c 4d 3a 47 50 73 2a 74 7e 3e 0a 6c 32 4d 3d 6f 71 58 45 3d 58 57 50 6c | <nl0Wu".lM:GPs*t~>.l2M=oqXE=XWPl |
| 228100 | 60 61 58 2e 62 75 4b 53 22 3f 43 4f 72 4d 71 27 3e 55 53 34 33 45 51 28 34 56 4d 5c 26 3e 63 21 | `aX.buKS"?COrMq'>US43EQ(4VM\&>c! |
| 228120 | 6c 68 5e 56 5a 6f 5b 6f 6e 5e 5b 40 60 74 72 53 59 21 37 35 55 3d 66 2c 3a 6e 47 60 61 6d 0a 70 | lh^VZo[on^[@`trSY!75U=f,:nG`am.p |
| 228140 | 59 60 3d 23 5b 40 60 75 63 55 5c 5f 5c 3b 5c 24 57 3c 3d 5a 29 61 71 28 55 53 46 45 4e 51 60 5c | Y`=#[@`ucU\_\;\$W<=Z)aq(USFENQ`\ |
| 228160 | 33 3a 65 2b 2a 41 36 72 74 47 41 29 69 33 5e 47 38 56 4f 2b 40 2a 62 2c 5e 6f 2c 5d 59 68 35 3c | 3:e+*A6rtGA)i3^G8VO+@*b,^o,]Yh5< |
| 228180 | 70 5c 74 27 69 27 29 5f 3a 4b 0a 54 3f 4f 5e 38 53 40 24 3e 4b 54 70 69 34 2b 58 4e 67 32 31 71 | p\t'i')_:K.T?O^8S@$>KTpi4+XNg21q |
| 2281a0 | 75 37 39 2d 70 75 4b 21 28 5d 56 5f 24 72 61 68 4f 55 3b 58 67 50 67 5b 60 3b 5b 73 62 5f 38 6a | u79-puK!(]V_$rahOU;XgPg[`;[sb_8j |
| 2281c0 | 58 36 5f 54 30 5e 72 62 6c 3e 54 67 5d 58 6b 4d 59 5d 5a 37 53 26 0a 6c 4d 3a 47 50 73 2a 74 7e | X6_T0^rbl>Tg]XkMY]Z7S&.lM:GPs*t~ |
| 2281e0 | 3e 0a 6c 4d 68 4c 72 71 3c 6c 74 4a 55 23 2b 5f 4c 5a 27 43 39 25 49 21 42 70 65 4a 71 73 3e 5e | >.lMhLrq<ltJU#+_LZ'C9%I!BpeJqs>^ |
| 228200 | 2b 47 47 44 72 48 24 6b 2d 74 4e 67 36 6d 22 6e 25 2e 54 54 72 72 29 4b 41 55 40 36 58 36 4d 30 | +GGDrH$k-tNg6m"n%.TTrr)KAU@6X6M0 |
| 228220 | 34 5a 55 65 61 4b 36 62 6f 5f 6e 3a 5a 0a 23 51 46 4d 5b 5d 5b 3e 51 44 54 5f 62 29 58 4a 6f 43 | 4ZUeaK6bo_n:Z.#QFM[][>QDT_b)XJoC |
| 228240 | 51 6c 21 62 24 23 21 72 2f 28 42 28 23 2c 5d 66 39 59 4c 3b 71 3c 72 3b 52 48 2e 6e 5e 58 3f 25 | Ql!b$#!r/(B(#,]f9YL;q<r;RH.n^X?% |
| 228260 | 65 5a 3d 55 4d 40 71 39 65 41 5a 2e 5c 27 36 67 25 3e 37 3f 72 74 47 37 70 0a 61 4a 5c 3d 46 52 | eZ=UM@q9eAZ.\'6g%>7?rtG7p.aJ\=FR |
| 228280 | 74 47 57 61 43 6b 2e 65 68 6b 48 3b 59 62 71 3e 55 3c 6c 2e 66 54 38 2c 5e 38 5e 3b 36 51 25 33 | tGWaCk.ehkH;Ybq>U<l.fT8,^8^;6Q%3 |
| 2282a0 | 65 29 52 60 4f 64 2d 5f 69 70 40 21 43 4e 51 61 75 44 6d 5a 6c 69 44 4a 58 27 24 51 28 6c 2b 41 | e)R`Od-_ip@!CNQauDmZliDJX'$Q(l+A |
| 2282c0 | 6e 2a 65 2c 4d 0a 49 5f 62 55 52 6f 60 27 46 7e 3e 0a 6c 4d 68 4c 72 71 3c 6c 74 4a 53 44 2a 35 | n*e,M.I_bURo`'F~>.lMhLrq<ltJSD*5 |
| 2282e0 | 67 69 37 6c 6f 37 64 61 36 43 6a 65 43 4f 57 4e 2b 50 22 75 69 64 46 2d 4c 70 67 22 59 48 4a 6c | gi7lo7da6CjeCOWN+P"uidF-Lpg"YHJl |
| 228300 | 61 6c 30 50 72 72 29 4b 41 55 3f 68 22 22 66 3f 60 28 2b 6b 4e 65 6b 70 6f 5f 6e 3a 5a 0a 23 51 | al0Prr)KAU?h""f?`(+kNekpo_n:Z.#Q |
| 228320 | 46 4d 5b 5d 5a 4b 45 73 68 3e 35 6e 2d 65 42 49 69 66 21 6a 67 2c 23 72 37 43 6e 73 23 32 5c 4d | FM[]ZKEsh>5n-eBIif!jg,#r7Cns#2\M |
| 228340 | 2f 57 52 43 3b 36 72 3b 52 48 2e 6e 5e 58 3f 21 6b 4d 4f 6e 3b 5c 5c 3f 47 43 69 39 38 6a 6d 67 | /WRC;6r;RH.n^X?!kMOn;\\?GCi98jmg |
| 228360 | 25 3e 37 3f 72 74 47 37 70 0a 61 4a 25 74 5d 67 73 6a 51 46 62 4c 3e 35 2b 6c 5f 5f 4d 5e 71 3e | %>7?rtG7p.aJ%t]gsjQFbL>5+l__M^q> |
| 228380 | 55 3c 6c 2e 66 54 38 2c 5e 37 58 60 4f 67 58 46 42 72 67 75 52 68 2f 5d 37 6c 23 40 3d 5f 2b 5e | U<l.fT8,^7X`OgXFBrguRh/]7l#@=_+^ |
| 2283a0 | 41 3f 46 37 28 46 3e 5a 74 36 31 4c 52 62 69 6f 6c 67 29 27 2b 0a 44 53 23 4b 3c 6f 60 27 46 7e | A?F7(F>Zt61LRbiolg)'+.DS#K<o`'F~ |
| 2283c0 | 3e 0a 6c 4d 68 4c 72 71 3c 6c 74 4a 57 51 32 5a 52 54 70 3b 2b 40 58 30 4a 68 29 55 53 25 4f 56 | >.lMhLrq<ltJWQ2ZRTp;+@X0Jh)US%OV |
| 2283e0 | 2b 4a 47 52 2f 59 2c 65 43 6a 52 3f 61 4a 52 62 64 75 6d 31 72 72 29 4b 41 55 3c 4c 24 3b 53 40 | +JGR/Y,eCjR?aJRbdum1rr)KAU<L$;S@ |
| 228400 | 22 69 59 5b 45 50 41 74 6f 5f 6e 3a 5a 0a 23 51 46 4d 5b 5d 5a 64 73 5e 52 65 69 3f 4f 55 56 3f | "iY[EPAto_n:Z.#QFM[]Zds^Rei?OUV? |
| 228420 | 5a 46 21 6c 69 21 4d 72 31 33 65 5d 23 2b 57 21 40 5d 24 67 2a 47 72 3b 52 48 2e 6e 5e 58 3e 57 | ZF!li!Mr13e]#+W!@]$g*Gr;RH.n^X>W |
| 228440 | 5b 40 60 74 72 61 32 6b 4e 54 54 73 72 37 45 67 25 3e 37 3f 72 74 47 37 70 0a 61 4b 60 5b 63 51 | [@`tra2kNTTsr7Eg%>7?rtG7p.aK`[cQ |
| 228460 | 5f 56 3a 36 5f 50 57 55 21 5f 52 49 41 46 71 3e 55 3c 6c 28 5d 4f 36 6e 5e 3a 4d 31 5e 51 29 32 | _V:6_PWU!_RIAFq>U<l(]O6n^:M1^Q)2 |
| 228480 | 36 6a 51 60 5c 33 42 5f 52 6d 4c 60 59 64 28 43 3d 5b 4a 6d 4e 44 5a 61 24 61 3a 5d 72 54 35 74 | 6jQ`\3B_RmL`Yd(C=[JmNDZa$a:]rT5t |
| 2284a0 | 62 66 6e 32 40 0a 5d 40 5a 5d 51 6f 60 27 46 7e 3e 0a 6c 69 2e 58 74 71 3c 6c 6e 44 56 73 56 6d | bfn2@.]@Z]Qo`'F~>.li.Xtq<lnDVsVm |
| 2284c0 | 44 52 75 44 6c 42 46 2b 2f 6e 24 51 28 22 54 4c 58 21 22 28 28 50 29 62 42 53 4a 71 42 5a 2c 69 | DRuDlBF+/n$Q("TLX!"((P)bBSJqBZ,i |
| 2284e0 | 3a 34 38 38 70 5c 74 2d 60 66 56 37 69 62 58 47 4d 28 56 58 34 3f 5b 35 66 5f 23 2e 32 0a 72 73 | :488p\t-`fV7ibXGM(VX4?[5f_#.2.rs |
| 228500 | 26 3e 65 63 41 3a 6c 40 63 32 2c 4b 66 52 74 3e 51 60 39 31 72 4e 2e 4a 73 75 56 3c 72 4c 2a 71 | &>ecA:l@c2,KfRt>Q`91rN.JsuV<rL*q |
| 228520 | 66 64 49 2a 5b 5b 6f 44 53 55 65 27 44 68 25 39 57 39 56 4b 6f 4b 35 59 22 26 46 2c 2d 58 3f 6d | fdI*[[oDSUe'Dh%9W9VKoK5Y"&F,-X?m |
| 228540 | 5b 71 6b 70 72 3b 3f 52 2f 0a 72 71 50 51 63 5c 45 28 47 68 49 56 57 29 22 49 23 74 71 74 5f 6d | [qkpr;?R/.rqPQc\E(GhIVW)"I#tqt_m |
| 228560 | 53 4c 75 72 71 75 64 47 72 71 62 6c 72 53 2a 4a 2b 62 4b 37 5d 51 35 6c 41 4b 32 53 46 2a 3b 65 | SLurqudGrqblrS*J+bK7]Q5lAK2SF*;e |
| 228580 | 53 4c 3e 52 42 2b 69 53 66 30 33 48 5b 39 70 5b 5f 2f 58 40 70 0a 44 66 55 29 5a 63 32 37 4d 34 | SL>RB+iSf03H[9p[_/X@p.DfU)Zc27M4 |
| 2285a0 | 73 2a 74 7e 3e 0a 6c 69 2e 58 74 71 3c 6c 6e 44 54 5e 43 6e 23 67 74 3a 2a 26 63 49 31 3a 71 67 | s*t~>.li.Xtq<lnDT^Cn#gt:*&cI1:qg |
| 2285c0 | 59 43 5a 62 68 5d 55 62 31 67 3d 62 2a 2f 65 43 3c 3d 35 6c 30 3e 5f 3a 70 5c 74 2d 60 66 56 37 | YCZbh]Ub1g=b*/eC<=5l0>_:p\t-`fV7 |
| 2285e0 | 5d 70 68 71 2d 33 2b 68 72 6a 3d 22 66 5f 23 2e 32 0a 72 73 26 3e 65 63 3f 5c 67 40 6a 6e 65 24 | ]phq-3+hrj="f_#.2.rs&>ec?\g@jne$ |
| 228600 | 45 67 73 6a 51 45 42 50 3d 36 64 65 44 30 75 5a 72 53 2e 56 36 6b 33 53 50 68 6f 44 53 55 65 27 | EgsjQEBP=6deD0uZrS.V6k3SPhoDSUe' |
| 228620 | 44 68 25 39 55 3f 70 73 72 65 42 46 65 70 63 49 55 6b 37 6d 24 75 47 6b 72 3b 3f 52 2f 0a 72 71 | Dh%9U?psreBFepcIUk7m$uGkr;?R/.rq |
| 228640 | 50 51 63 59 4e 6b 2d 24 65 27 22 30 24 64 62 3c 5b 45 5d 58 3f 62 6e 72 71 75 64 47 72 71 62 6c | PQcYNk-$e'"0$db<[E]X?bnrqudGrqbl |
| 228660 | 72 4f 6d 4d 2f 61 65 43 3c 3a 37 6d 21 5f 6a 36 40 3a 57 74 60 47 32 49 25 4d 69 53 65 4e 64 42 | rOmM/aeC<:7m!_j6@:Wt`G2I%MiSeNdB |
| 228680 | 6b 56 2a 68 5f 2d 5e 48 4c 0a 3f 21 71 38 69 61 38 3e 6c 2e 73 2a 74 7e 3e 0a 6c 69 2e 58 74 71 | kV*h_-^HL.?!q8ia8>l.s*t~>.li.Xtq |
| 2286a0 | 3c 6c 6e 44 59 66 46 26 48 51 5e 61 68 56 5c 3e 5a 24 6a 51 27 5c 24 3f 53 66 6a 4a 67 51 43 34 | <lnDYfF&HQ^ahV\>Z$jQ'\$?SfjJgQC4 |
| 2286c0 | 3b 39 55 53 46 39 54 5d 5b 58 43 4c 70 5c 74 2d 60 66 56 36 54 74 54 3a 45 39 5a 54 21 63 65 3a | ;9USF9T][XCLp\t-`fV6TtT:E9ZT!ce: |
| 2286e0 | 66 5f 23 2e 32 0a 72 73 26 3e 65 63 46 5f 2d 2b 59 6b 6b 49 2e 51 5f 56 3a 35 5d 74 4d 41 21 55 | f_#.2.rs&>ecF_-+YkkI.Q_V:5]tMA!U |
| 228700 | 52 31 6e 4d 72 4b 64 5f 59 5a 48 39 45 29 6f 44 53 55 65 27 44 68 25 39 5a 2c 45 63 32 55 56 3d | R1nMrKd_YZH9E)oDSUe'Dh%9Z,Ec2UV= |
| 228720 | 5e 65 5c 3d 5d 3a 73 61 65 52 35 4f 72 3b 3f 52 2f 0a 72 71 50 51 63 5d 74 5e 4d 33 57 35 5a 5a | ^e\=]:saeR5Or;?R/.rqPQc]t^M3W5ZZ |
| 228740 | 73 58 2d 66 63 73 5f 6d 53 4c 75 72 71 75 64 47 72 71 62 6c 72 5b 29 42 29 35 55 53 46 30 58 60 | sX-fcs_mSLurqudGrqblr[)B)5USF0X` |
| 228760 | 33 63 4d 46 5c 40 5d 47 68 5f 72 26 3b 49 69 53 68 56 68 5e 71 5b 52 70 5f 37 24 5f 51 0a 5b 28 | 3cMF\@]Gh_r&;IiShVh^q[Rp_7$_Q.[( |
| 228780 | 21 60 67 6a 53 53 72 4b 73 2a 74 7e 3e 0a 6d 2f 49 65 21 71 58 45 34 49 56 3c 5a 3d 26 4f 46 71 | !`gjSSrKs*t~>.m/Ie!qXE4IV<Z=&OFq |
| 2287a0 | 64 72 49 59 57 63 57 58 32 4e 2a 2c 72 6d 60 2e 39 61 4d 35 30 61 56 4f 45 73 48 5d 27 64 53 51 | drIYWcWX2N*,rm`.9aM50aVOEsH]'dSQ |
| 2287c0 | 6b 35 23 23 54 6f 5b 6f 6f 2c 65 5a 3d 55 4d 4d 36 23 31 71 55 3d 66 2c 3a 0a 6e 2c 45 55 6a 70 | k5##To[oo,eZ=UMM6#1qU=f,:.n,EUjp |
| 2287e0 | 23 3a 28 5c 69 55 2d 4c 2c 24 2d 41 5a 67 44 64 36 4f 63 4a 73 73 64 59 65 63 21 50 6e 64 46 48 | #:(\iU-L,$-AZgDd6OcJssdYec!PndFH |
| 228800 | 37 35 6a 53 2f 5a 50 72 74 59 50 2e 6a 68 26 25 60 5e 6c 73 34 5f 3d 5e 35 6c 73 52 60 4f 63 6a | 75jS/ZPrtYP.jh&%`^ls4_=^5lsR`Ocj |
| 228820 | 60 39 52 33 75 0a 72 56 6d 54 31 70 22 5a 5b 73 68 36 72 3e 69 42 32 72 4a 64 4d 6d 3a 73 6e 57 | `9R3u.rVmT1p"Z[sh6r>iB2rJdMm:snW |
| 228840 | 6e 64 3a 47 71 75 37 51 31 6c 47 5d 3d 5a 61 64 5b 70 37 52 60 4f 63 56 44 55 58 23 61 4a 56 26 | nd:Gqu7Q1lG]=Zad[p7R`OcVDUX#aJV& |
| 228860 | 73 57 4b 37 69 70 6d 4b 44 70 48 31 4a 55 6c 73 34 0a 49 2c 39 37 22 4a 3c 38 37 5a 6f 44 61 3d | sWK7ipmKDpH1JUls4.I,97"J<87ZoDa= |
| 228880 | 7e 3e 0a 6d 2f 49 65 21 71 58 45 34 49 54 42 74 5b 72 67 3d 34 4b 6e 64 61 6d 25 2c 68 72 45 65 | ~>.m/Ie!qXE4ITBt[rg=4Kndam%,hrEe |
| 2288a0 | 5b 72 6f 59 45 63 6a 50 6f 2e 55 68 56 3f 6f 42 69 55 22 2e 6a 6b 35 23 23 54 6f 5b 6f 6f 28 6b | [roYEcjPo.UhV?oBiU".jk5##To[oo(k |
| 2288c0 | 4d 4f 6e 3b 66 41 47 63 57 55 3d 66 2c 3a 0a 6e 2c 45 55 6a 70 23 39 47 3c 67 3f 6e 62 27 24 30 | MOn;fAGcWU=f,:.n,EUjp#9G<g?nb'$0 |
| 2288e0 | 39 6d 6b 62 62 68 35 5c 65 44 30 2d 5f 6b 50 61 48 47 6b 33 27 4c 4f 6a 53 2f 5a 50 72 74 59 50 | 9mkbbh5\eD0-_kPaHGk3'LOjS/ZPrtYP |
| 228900 | 2e 6a 68 25 5f 5d 69 6e 44 6c 29 52 41 4a 2d 57 67 75 52 67 6f 60 39 52 33 75 0a 72 56 6d 54 31 | .jh%_]inDl)RAJ-WguRgo`9R3u.rVmT1 |
| 228920 | 70 22 5a 5b 6c 6c 2f 43 3d 43 60 4a 68 4f 58 66 5c 6b 75 48 57 6e 64 3a 47 71 75 38 29 40 6c 47 | p"Z[ll/C=C`JhOXf\kuHWnd:Gqu8)@lG |
| 228940 | 5c 74 52 6a 50 38 38 37 67 75 52 67 53 3e 67 6d 4a 2b 44 66 43 37 24 45 48 31 61 49 45 48 2c 72 | \tRjP887guRgS>gmJ+DfC7$EH1aIEH,r |
| 228960 | 3a 44 66 34 63 53 0a 43 3e 4e 5d 41 44 4c 67 22 32 6f 44 61 3d 7e 3e 0a 6d 2f 49 65 21 71 58 45 | :Df4cS.C>N]ADLg"2oDa=~>.m/Ie!qXE |
| 228980 | 34 49 59 4a 64 5a 38 51 5f 55 68 23 57 31 54 57 4e 53 75 5d 21 21 72 6a 3c 6c 51 58 66 2f 22 64 | 4IYJdZ8Q_Uh#W1TWNSu]!!rj<lQXf/"d |
| 2289a0 | 53 3c 6f 53 32 56 54 49 36 23 6b 35 23 23 54 6f 5b 6f 6e 5e 5b 40 60 74 72 53 59 21 37 35 55 3d | S<oS2VTI6#k5##To[on^[@`trSY!75U= |
| 2289c0 | 66 2c 3a 0a 6e 2c 45 55 6a 70 23 3c 4e 74 62 66 42 52 75 24 2a 42 50 68 5e 3b 52 74 29 55 52 2f | f,:.n,EUjp#<NtbfBRu$*BPh^;Rt)UR/ |
| 2289e0 | 2b 5c 5b 4a 64 33 33 5a 46 2e 51 5f 6a 53 2f 5a 50 72 74 59 50 2e 6a 68 26 34 40 57 30 58 43 24 | +\[Jd33ZF.Q_jS/ZPrtYP.jh&4@W0XC$ |
| 228a00 | 5f 6f 30 3c 62 51 60 5c 33 2f 60 39 52 33 75 0a 72 56 6d 54 31 70 22 5a 5b 6b 5c 74 62 5b 72 61 | _o0<bQ`\3/`9R3u.rVmT1p"Z[k\tb[ra |
| 228a20 | 68 63 27 27 53 22 5b 3d 38 57 6e 64 3a 47 71 75 38 29 40 6c 47 5e 30 4c 58 64 3e 66 58 51 60 5c | hc''S"[=8Wnd:Gqu8)@lG^0LXd>fXQ`\ |
| 228a40 | 33 3a 5a 64 5a 65 31 60 6c 48 3f 75 61 4e 34 2c 4d 61 4e 32 45 42 60 6c 37 2f 59 0a 5f 3b 3c 23 | 3:ZdZe1`lH?uaN4,MaN2EB`l7/Y._;<# |
| 228a60 | 47 60 51 64 5d 49 6f 44 61 3d 7e 3e 0a 6d 2f 49 64 74 6f 41 40 30 58 6c 48 2c 60 54 48 75 45 71 | G`Qd]IoDa=~>.m/IdtoA@0XlH,`THuEq |
| 228a80 | 47 4d 35 49 3f 24 65 60 5a 35 63 72 70 4c 75 73 6c 4b 24 64 4f 64 45 27 44 52 65 61 40 62 32 6d | GM5I?$e`Z5crpLuslK$dOdE'DRea@b2m |
| 228aa0 | 65 64 22 5e 6f 5b 6f 6f 2c 65 5a 3d 55 4d 4d 36 23 31 71 55 3d 66 2c 3a 0a 6e 2c 46 37 28 71 73 | ed"^o[oo,eZ=UMM6#1qU=f,:.n,F7(qs |
| 228ac0 | 6f 2c 58 47 48 25 55 2d 50 62 74 37 3e 51 29 44 60 6e 4b 35 59 5b 5b 52 60 4e 52 5f 72 55 39 5e | o,XGH%U-Pbt7>Q)D`nK5Y[[R`NR_rU9^ |
| 228ae0 | 4d 22 6e 26 59 26 5c 46 42 43 6e 72 74 59 4d 2a 68 51 47 38 5e 5b 5a 35 5a 48 3c 45 3c 64 5c 4f | M"n&Y&\FBCnrtYM*hQG8^[Z5ZH<E<d\O |
| 228b00 | 4c 6a 41 67 0a 5c 60 45 50 62 72 56 6d 54 30 6e 5e 46 29 75 65 5a 3d 55 4d 40 6f 36 5d 58 4d 36 | LjAg.\`EPbrVmT0n^F)ueZ=UM@o6]XM6 |
| 228b20 | 23 31 71 54 5b 69 57 33 71 75 37 33 27 6c 63 2c 4c 5c 61 64 5b 70 37 52 60 4f 63 59 46 36 25 72 | #1qT[iW3qu73'lc,L\ad[p7R`OcYF6%r |
| 228b40 | 50 4b 45 5b 53 3d 4b 6e 5d 4f 2a 72 65 3a 3f 29 0a 23 6c 39 31 2b 70 34 4a 21 4e 50 31 4b 34 28 | PKE[S=Kn]O*re:?).#l91+p4J!NP1K4( |
| 228b60 | 4a 2c 7e 3e 0a 6d 2f 49 64 74 6f 41 40 30 51 6d 2c 5b 21 52 64 60 66 71 5d 66 41 3e 45 49 6b 4e | J,~>.m/IdtoA@0Qm,[!Rd`fq]fA>EIkN |
| 228b80 | 68 4c 24 72 70 28 5d 6f 6d 2d 3c 66 74 6b 32 62 55 62 6b 4e 6c 70 31 6d 65 64 22 5e 6f 5b 6f 6f | hL$rp(]om-<ftk2bUbkNlp1med"^o[oo |
| 228ba0 | 28 6b 4d 4f 6e 3b 66 41 47 63 57 55 3d 66 2c 3a 0a 6e 2c 46 37 28 71 73 6e 4e 35 42 3b 44 3b 58 | (kMOn;fAGcWU=f,:.n,F7(qsnN5B;D;X |
| 228bc0 | 4c 37 62 26 69 4f 2e 59 4c 67 65 42 48 2e 64 67 75 51 47 5c 72 54 6a 43 4a 22 4b 2f 57 34 6e 47 | L7b&iO.YLgeBH.dguQG\rTjCJ"K/W4nG |
| 228be0 | 45 2e 60 28 26 64 67 5e 59 30 2d 22 66 67 21 52 63 74 4f 69 63 26 2a 69 54 5c 22 63 0a 6a 53 38 | E.`(&dg^Y0-"fg!RctOic&*iT\"c.jS8 |
| 228c00 | 60 51 72 74 50 44 24 65 22 35 6d 67 68 71 2d 32 62 49 5e 6d 5f 55 68 72 6a 3c 75 65 61 69 5c 39 | `QrtPD$e"5mghq-2bI^m_Uhrj<ueai\9 |
| 228c20 | 72 74 74 55 75 60 66 6f 63 4d 67 73 6a 6a 2f 6a 51 71 53 2f 6a 44 5d 2d 5b 46 2b 61 49 35 46 38 | rttUu`focMgsjj/jQqS/jD]-[F+aI5F8 |
| 228c40 | 6c 31 3b 46 38 70 37 64 0a 71 4a 67 4e 4b 45 48 2d 23 4f 64 2e 37 33 65 7e 3e 0a 6d 2f 49 64 74 | l1;F8p7d.qJgNKEH-#Od.73e~>.m/Idt |
| 228c60 | 6f 41 40 30 61 60 33 23 4b 22 58 31 6c 3f 55 53 58 63 3a 57 5b 44 4b 6c 28 72 6c 63 4d 2a 60 34 | oA@0a`3#K"X1l?USXc:W[DKl(rlcM*`4 |
| 228c80 | 72 6d 6b 5a 45 3a 37 35 5b 45 35 6c 29 6d 65 64 22 5e 6f 5b 6f 6e 5e 5b 40 60 74 72 53 59 21 37 | rmkZE:75[E5l)med"^o[on^[@`trSY!7 |
| 228ca0 | 35 55 3d 66 2c 3a 0a 6e 2c 46 37 28 71 73 71 56 39 5b 27 3f 73 4e 5d 57 5c 48 4b 54 21 62 5c 65 | 5U=f,:.n,F7(qsqV9['?sN]W\HKT!b\e |
| 228cc0 | 55 56 3d 4c 3c 51 60 5c 21 3b 72 51 50 35 59 22 6a 2b 54 66 64 2e 24 72 31 72 74 59 4d 2a 68 51 | UV=L<Q`\!;rQP5Y"j+Tfd.$r1rtYM*hQ |
| 228ce0 | 46 75 33 55 52 41 3a 2c 5f 38 3d 3f 71 52 26 37 4f 37 0a 5c 60 45 50 62 72 56 6d 54 30 6e 5e 46 | Fu3URA:,_8=?qR&7O7.\`EPbrVmT0n^F |
| 228d00 | 29 52 5b 40 60 74 72 61 31 6f 5b 25 53 59 21 37 35 54 5b 69 57 33 71 75 37 4e 30 6c 63 2d 42 4f | )R[@`tra1o[%SY!75T[iW3qu7N0lc-BO |
| 228d20 | 58 64 3e 66 58 51 60 5c 33 3c 5c 45 28 5d 50 61 69 60 21 30 62 30 27 5f 5f 72 51 3e 2f 5e 0a 23 | Xd>fXQ`\3<\E(]Pai`!0b0'__rQ>/^.# |
| 228d40 | 6c 3b 57 60 70 3b 6b 3d 73 64 2d 5e 45 28 4a 2c 7e 3e 0a 6d 4a 66 33 47 70 75 66 59 6c 6d 45 4d | l;W`p;k=sd-^E(J,~>.mJf3GpufYlmEM |
| 228d60 | 3e 59 46 28 6f 51 38 4d 36 23 25 53 6d 61 25 6e 74 53 22 2b 32 5d 4b 70 39 27 6e 6e 2a 5d 4b 2b | >YF(oQ8M6#%Sma%ntS"+2]Kp9'nn*]K+ |
| 228d80 | 6d 47 46 37 50 6a 53 26 51 50 72 55 65 61 3a 6e 28 22 4c 72 46 63 21 30 4c 6e 22 53 4a 2c 0a 72 | mGF7PjS&QPrUea:n("LrFc!0Ln"SJ,.r |
| 228da0 | 55 30 5c 33 72 71 68 3a 73 4c 58 58 49 69 46 69 4d 37 39 51 26 59 28 4e 52 74 48 3c 5d 61 51 65 | U0\3rqh:sLXXIiFiM79Q&Y(NRtH<]aQe |
| 228dc0 | 5b 6d 42 50 4d 37 4d 51 42 64 60 24 48 5a 52 69 5c 71 3e 55 3c 6c 28 26 64 5e 53 55 40 36 58 36 | [mBPM7MQBd`$HZRi\q>U<l(&d^SU@6X6 |
| 228de0 | 4d 30 33 3c 2a 3c 2b 5e 45 39 0a 5b 62 5d 3f 36 68 59 2d 73 49 72 74 50 3d 71 61 2f 41 34 45 52 | M03<*<+^E9.[b]?6hY-sIrtP=qa/A4ER |
| 228e00 | 74 47 57 61 39 6a 56 67 6e 54 5a 75 6b 75 63 4c 3a 5a 2d 72 74 22 74 6c 60 67 75 44 3a 52 74 48 | tGWa9jVgnTZukucL:Z-rt"tl`guD:RtH |
| 228e20 | 3c 5d 61 51 66 22 33 6c 40 66 2e 6a 22 64 41 74 3f 4c 26 5f 32 4d 0a 4b 60 68 40 2f 4c 26 56 28 | <]aQf"3l@f.j"dAt?L&_2M.K`h@/L&V( |
| 228e40 | 2a 21 4c 29 2b 2a 73 2a 74 7e 3e 0a 6d 4a 65 34 2b 70 75 66 59 68 6d 48 2a 30 53 63 48 3d 41 57 | *!L)+*s*t~>.mJe4+pufYhmH*0ScH=AW |
| 228e60 | 66 41 47 60 52 6d 29 59 72 56 52 40 49 3f 49 47 28 6d 2d 3f 6c 69 2d 35 66 6d 46 6d 44 2c 6a 53 | fAG`Rm)YrVR@I?IG(m-?li-5fmFmD,jS |
| 228e80 | 26 51 50 72 55 65 61 3a 6c 66 5b 30 57 63 65 25 28 3b 6c 5f 3c 26 28 0a 72 55 30 5c 33 72 71 67 | &QPrUea:lf[0Wce%(;l_<&(.rU0\3rqg |
| 228ea0 | 59 4f 47 4c 4f 63 47 41 26 63 3e 6b 51 25 2f 2f 5d 67 73 6a 6a 2f 6a 51 71 3d 6c 3c 60 69 49 6d | YOGLOcGA&c>kQ%//]gsjj/jQq=l<`iIm |
| 228ec0 | 4c 6b 67 62 42 43 31 35 63 33 71 3e 55 3c 6c 28 26 64 5e 53 55 3f 68 22 22 66 3f 5f 21 56 4d 54 | LkgbBC15c3q>U<l(&d^SU?h""f?_!VMT |
| 228ee0 | 21 6f 71 0a 69 54 53 43 64 68 59 2d 73 49 72 74 50 3d 71 61 2e 56 65 5b 67 73 6a 51 46 44 51 44 | !oq.iTSCdhY-sIrtP=qa.Ve[gsjQFDQD |
| 228f00 | 25 34 68 3c 22 24 71 63 4c 3a 5a 2d 72 74 22 74 6c 60 66 6f 63 4d 67 73 6a 6a 2f 6a 51 71 56 32 | %4h<"$qcL:Z-rt"tl`focMgsjj/jQqV2 |
| 228f20 | 6c 3e 6c 6c 46 22 62 5a 68 72 46 38 75 3a 3b 0a 45 73 29 47 60 46 38 6c 2f 5b 21 4a 41 62 69 73 | l>llF"bZhrF8u:;.Es)G`F8l/[!JAbis |
| 228f40 | 2a 74 7e 3e 0a 6d 4a 66 33 47 70 75 66 59 74 61 30 3b 23 2b 5c 26 6c 43 6c 53 59 21 2d 70 61 69 | *t~>.mJf3GpufYta0;#+\&lClSY!-pai |
| 228f60 | 43 61 23 54 71 26 39 53 5c 40 5d 44 73 62 66 52 66 41 61 33 29 30 2e 6a 53 26 51 50 72 55 65 61 | Ca#Tq&9S\@]DsbfRfAa3)0.jS&QPrUea |
| 228f80 | 3a 62 64 46 28 35 5b 25 33 65 72 62 62 45 62 5e 0a 72 55 30 5c 33 72 71 6a 61 53 60 37 29 72 41 | :bdF(5[%3erbbEb^.rU0\3rqjaS`7)rA |
| 228fa0 | 5d 23 4d 52 6f 51 2a 6e 51 34 51 5f 55 3d 42 58 69 2e 54 46 58 66 6e 70 73 5e 3a 68 34 70 5c 25 | ]#MRoQ*nQ4Q_U=BXi.TFXfnps^:h4p\% |
| 228fc0 | 28 29 4b 71 3e 55 3c 6c 28 26 64 5e 53 55 3c 4c 24 3b 53 40 24 3e 4f 5f 39 26 6a 4a 0a 55 55 6e | ()Kq>U<l(&d^SU<L$;S@$>O_9&jJ.UUn |
| 228fe0 | 4f 4c 68 59 2d 73 49 72 74 50 3d 71 61 30 45 52 62 51 5f 56 3a 36 5d 75 40 55 57 52 5d 73 69 34 | OLhY-sIrtP=qa0ERbQ_V:6]u@UWR]si4 |
| 229000 | 63 4c 3a 5a 2d 72 74 22 74 6c 60 6a 57 67 66 51 5f 55 3d 42 58 69 2e 6c 60 6c 48 30 25 4a 22 6a | cL:Z-rt"tl`jWgfQ_U=BXi.l`lH0%J"j |
| 229020 | 6d 3a 6c 62 35 5f 4d 3d 0a 61 6f 68 5b 64 62 35 56 43 5f 21 52 55 36 29 73 2a 74 7e 3e 0a 6d 4a | m:lb5_M=.aoh[db5VC_!RU6)s*t~>.mJ |
| 229040 | 66 33 44 6e 43 3d 4a 71 66 73 2d 4b 5c 41 54 29 73 51 58 34 3f 58 41 47 26 34 5e 33 63 49 37 27 | f3DnC=Jqfs-K\AT)sQX4?XAG&4^3cI7' |
| 229060 | 65 47 27 28 3c 35 43 4e 75 6b 46 57 4e 70 5c 71 6f 44 41 52 66 72 55 65 61 3a 6e 28 22 4c 72 46 | eG'(<5CNukFWNp\qoDARfrUea:n("LrF |
| 229080 | 63 21 30 4c 6e 22 53 4a 2c 0a 72 55 27 56 30 72 65 2c 6f 62 6e 61 3a 70 58 6c 4b 2a 38 6d 59 69 | c!0Ln"SJ,.rU'V0re,obna:pXlK*8mYi |
| 2290a0 | 4e 54 60 49 59 2b 24 30 6c 42 2c 71 2c 48 24 52 68 5e 47 27 38 28 55 49 64 6b 65 61 71 75 37 45 | NT`IY+$0lB,q,H$Rh^G'8(UIdkeaqu7E |
| 2290c0 | 2e 6d 60 68 4b 6e 63 28 54 69 32 3f 56 4f 40 2b 46 63 21 30 4c 0a 6e 22 5c 4d 2b 72 56 6c 67 33 | .m`hKnc(Ti2?VO@+Fc!0L.n"\M+rVlg3 |
| 2290e0 | 72 71 47 4b 61 5c 45 28 47 68 49 56 57 28 5a 3e 5d 35 34 5f 61 51 66 59 42 6c 68 5e 4d 59 26 2c | rqGKa\E(GhIVW(Z>]54_aQfYBlh^MY&, |
| 229100 | 50 56 33 53 61 2b 3d 64 4b 37 5d 51 35 6c 42 48 47 57 4b 60 36 5a 2f 50 51 2d 3e 6a 73 38 56 74 | PV3Sa+=dK7]Q5lBHGWK`6Z/PQ->js8Vt |
| 229120 | 4d 0a 22 39 34 28 2f 73 38 49 5d 51 50 4c 66 3d 29 4a 2c 7e 3e 0a 6d 4a 66 33 44 6e 43 3d 4a 6a | M."94(/s8I]QPLf=)J,~>.mJf3DnC=Jj |
| 229140 | 6b 68 74 2b 3f 5e 57 62 2d 58 68 72 6a 40 26 41 51 6c 57 53 63 49 36 46 53 41 52 60 35 55 3d 5f | kht+?^Wb-Xhrj@&AQlWScI6FSAR`5U=_ |
| 229160 | 46 4f 64 56 36 58 57 49 6f 44 41 52 66 72 55 65 61 3a 6c 66 5b 30 57 63 65 25 28 3b 6c 5f 3c 26 | FOdV6XWIoDARfrUea:lf[0Wce%(;l_<& |
| 229180 | 28 0a 72 55 27 56 30 72 63 3c 28 30 6e 61 3a 3a 34 6c 4b 29 5a 5c 56 3c 5b 27 6f 65 28 21 31 36 | (.rU'V0rc<(0na::4lK)Z\V<['oe(!16 |
| 2291a0 | 6d 22 38 50 52 42 34 6f 59 28 41 37 54 37 62 44 22 2c 5b 49 71 75 37 45 2e 6d 60 68 3f 6a 6a 6b | m"8PRB4oY(A7T7bD",[Iqu7E.m`h?jjk |
| 2291c0 | 5c 4a 33 58 44 69 51 73 63 65 25 28 3b 0a 6c 5f 45 29 27 72 56 6c 67 33 72 71 47 4b 61 59 4e 6b | \J3XDiQsce%(;.l_E)'rVlg3rqGKaYNk |
| 2291e0 | 2d 24 65 27 22 2e 6b 56 39 49 48 45 6a 51 72 50 5a 6c 68 5e 4d 59 26 2c 50 56 33 50 4f 2e 41 63 | -$e'".kV9IHEjQrPZlh^MY&,PV3PO.Ac |
| 229200 | 65 43 3c 3a 37 6d 22 54 24 39 45 72 4c 2b 60 4b 45 24 22 36 73 38 56 74 3b 0a 22 39 33 46 60 73 | eC<:7m"T$9ErL+`KE$"6s8Vt;."93F`s |
| 229220 | 38 49 27 3f 4b 40 27 32 68 4a 2c 7e 3e 0a 6d 4a 66 33 44 6e 43 3d 4a 5d 5c 22 54 3a 72 61 4d 34 | 8I'?K@'2hJ,~>.mJf3DnC=J]\"T:raM4 |
| 229240 | 64 48 54 21 63 5c 54 5a 2a 4c 70 4f 63 49 39 4d 55 5d 58 62 56 5b 59 64 43 64 4f 5a 2a 4d 21 59 | dHT!c\TZ*LpOcI9MU]XbV[YdCdOZ*M!Y |
| 229260 | 6f 44 41 52 66 72 55 65 61 3a 62 64 46 28 35 5b 25 33 65 72 62 62 45 62 5e 0a 72 55 27 56 30 72 | oDARfrUea:bdF(5[%3erbbEb^.rU'V0r |
| 229280 | 6c 57 3d 2c 6e 61 3d 42 38 6c 4b 2c 61 5e 60 34 72 37 3a 57 32 23 5d 5d 60 34 3c 34 64 5e 3a 72 | lW=,na=B8lK,a^`4r7:W2#]]`4<4d^:r |
| 2292a0 | 25 2e 5d 3d 59 5f 6a 5f 73 6c 70 68 71 75 37 45 2e 6d 60 68 66 51 59 61 56 38 73 60 50 30 2b 2d | %.]=Y_j_slphqu7E.m`hfQYaV8s`P0+- |
| 2292c0 | 5b 25 33 65 72 0a 62 62 4e 65 5d 72 56 6c 67 33 72 71 47 4b 61 5d 74 5e 4d 33 57 35 5a 5a 65 60 | [%3er.bbNe]rVlg3rqGKa]t^M3W5ZZe` |
| 2292e0 | 34 72 28 36 58 69 2e 45 5f 6c 68 5e 4d 59 26 2c 50 56 33 5b 60 23 3b 37 55 53 46 30 58 60 34 57 | 4r(6Xi.E_lh^MY&,PV3[`#;7USF0X`4W |
| 229300 | 5c 49 61 6f 39 45 64 64 2f 56 38 32 73 38 56 75 3d 0a 22 39 36 4e 64 73 38 4c 2e 41 64 2d 5e 45 | \Iao9Edd/V82s8Vu=."96Nds8L.Ad-^E |
| 229320 | 28 4a 2c 7e 3e 0a 6d 66 2c 3f 49 70 5a 39 2f 6e 6b 4a 57 58 39 44 2f 58 66 60 58 34 3d 40 73 44 | (J,~>.mf,?IpZ9/nkJWX9D/Xf`X4=@sD |
| 229340 | 66 70 42 65 4a 2b 29 72 5b 6e 55 51 2c 4e 49 21 55 25 5f 47 4c 59 4b 21 4b 29 3e 51 49 73 38 44 | fpBeJ+)r[nUQ,NI!U%_GLYK!K)>QIs8D |
| 229360 | 54 42 55 40 36 58 36 4d 30 34 5a 55 65 61 4b 36 62 0a 6f 5f 6e 2e 56 73 2b 4d 38 50 72 3b 32 2f | TBU@6X6M04ZUeaK6b.o_n.Vs+M8Pr;2/ |
| 229380 | 23 71 3d 42 21 40 5f 3b 4d 71 65 49 22 65 36 3c 6d 3f 44 5e 40 4a 56 21 40 69 4a 2d 31 43 55 71 | #q=B!@_;MqeI"e6<m?D^@JV!@iJ-1CUq |
| 2293a0 | 70 6b 54 44 28 42 34 30 70 5f 6b 6c 59 3f 52 74 47 57 61 39 32 38 6c 39 4c 53 69 4a 65 0a 53 5e | pkTD(B40p_klY?RtGWa928l9LSiJe.S^ |
| 2293c0 | 36 64 26 72 72 33 63 34 6f 5c 2d 3d 6c 68 36 72 3e 69 42 32 71 4e 2c 43 6b 2e 65 68 6b 48 29 47 | 6d&rr3c4o\-=lh6r>iB2qN,Ck.ehkH)G |
| 2293e0 | 5d 71 3e 55 3c 6c 26 2c 50 56 33 53 61 2b 3d 64 4b 37 5d 51 35 6c 42 48 47 57 4b 60 36 5a 2f 50 | ]q>U<l&,PV3Sa+=dK7]Q5lBHGWK`6Z/P |
| 229400 | 51 2d 3e 6a 73 38 56 74 4d 0a 22 39 34 28 2f 73 38 49 5d 51 50 4c 66 3d 29 4a 2c 7e 3e 0a 6d 66 | Q->js8VtM."94(/s8I]QPLf=)J,~>.mf |
| 229420 | 2c 3f 49 70 5a 39 2f 67 6c 66 36 61 4b 62 66 6e 4d 68 68 72 67 65 49 3f 22 40 58 30 44 3d 40 25 | ,?IpZ9/glf6aKbfnMhhrgeI?"@X0D=@% |
| 229440 | 37 6e 53 57 34 2a 43 31 71 35 29 41 5e 6f 52 52 45 3b 54 59 37 73 38 44 54 42 55 3f 68 22 22 66 | 7nSW4*C1q5)A^oRRE;TY7s8DTBU?h""f |
| 229460 | 3f 60 28 2b 6b 4e 65 6b 70 0a 6f 5f 6e 2e 56 73 29 54 39 37 72 3b 31 4d 54 71 3d 41 40 2e 5c 2a | ?`(+kNekp.o_n.Vs)T97r;1MTq=A@.\* |
| 229480 | 3b 6c 2a 64 61 64 31 38 6d 3d 6f 28 63 44 66 3e 2f 61 44 4a 6a 42 33 45 56 6e 29 5a 72 74 62 56 | ;l*dad18m=o(cDf>/aDJjB3EVn)ZrtbV |
| 2294a0 | 31 6c 2c 30 2b 5a 6a 50 38 38 2f 56 4a 28 2b 57 63 49 55 6b 37 0a 6d 24 63 38 68 72 3b 51 5e 33 | 1l,0+ZjP88/VJ(+WcIUk7.m$c8hr;Q^3 |
| 2294c0 | 72 55 65 67 44 61 6d 25 64 3b 64 44 5f 26 4f 54 24 2c 55 3b 6a 36 4e 50 56 6b 50 3e 2c 54 72 74 | rUegDam%d;dD_&OT$,U;j6NPVkP>,Trt |
| 2294e0 | 22 74 6c 60 66 6f 63 4d 67 73 6a 6a 2f 6a 51 71 56 32 6c 5a 32 75 47 22 62 5a 68 72 46 38 75 3a | "tl`focMgsjj/jQqV2lZ2uG"bZhrF8u: |
| 229500 | 3b 0a 45 73 29 47 60 46 38 75 35 5c 21 4a 41 62 69 73 2a 74 7e 3e 0a 6d 66 2c 3f 49 70 5a 39 30 | ;.Es)G`F8u5\!JAbis*t~>.mf,?IpZ90 |
| 229520 | 22 5f 51 2f 72 75 5f 53 3c 2e 3d 54 21 63 3b 3c 5b 28 46 2a 36 60 3a 2a 39 3b 6e 5c 72 48 2e 5f | "_Q/ru_S<.=T!c;<[(F*6`:*9;n\rH._ |
| 229540 | 38 21 5c 2f 5d 5b 59 66 56 61 38 3e 6c 39 73 38 44 54 42 55 3c 4c 24 3b 53 40 22 69 59 5b 45 50 | 8!\/][YfVa8>l9s8DTBU<L$;S@"iY[EP |
| 229560 | 41 74 0a 6f 5f 6e 2e 56 73 32 6c 47 31 72 3b 34 55 58 71 3d 44 47 30 61 4c 6e 43 3a 58 2e 62 75 | At.o_n.Vs2lG1r;4UXq=DG0aLnC:X.bu |
| 229580 | 64 61 31 5d 25 23 60 6c 40 50 67 60 50 6f 6a 3b 61 53 59 42 25 72 74 62 56 31 6c 2c 30 5b 42 58 | da1]%#`l@Pg`Poj;aSYB%rtbV1l,0[BX |
| 2295a0 | 64 3e 66 73 60 50 27 22 2a 5c 3d 5d 3a 73 0a 61 65 49 2c 4d 72 3b 51 5e 33 72 55 65 67 44 61 68 | d>fs`P'"*\=]:s.aeI,Mr;Q^3rUegDah |
| 2295c0 | 22 37 38 59 30 22 4d 6d 5f 6e 72 3a 39 58 32 3b 39 5a 6b 50 3e 2c 54 72 74 22 74 6c 60 6a 57 67 | "78Y0"Mm_nr:9X2;9ZkP>,Trt"tl`jWg |
| 2295e0 | 66 51 5f 55 3d 42 58 69 2e 6c 60 6c 63 4b 2e 4b 22 6a 6d 3a 6c 62 35 5f 4d 3d 0a 61 6f 68 5b 64 | fQ_U=BXi.l`lcK.K"jm:lb5_M=.aoh[d |
| 229600 | 62 35 5f 49 60 21 52 55 36 29 73 2a 74 7e 3e 0a 6d 66 2b 58 33 6f 25 30 65 74 66 73 2d 4b 5c 44 | b5_I`!RU6)s*t~>.mf+X3o%0etfs-K\D |
| 229620 | 67 5b 59 58 65 57 3d 54 69 48 5b 67 59 42 4b 60 28 65 25 72 2e 4b 61 75 4a 71 41 52 42 4a 46 57 | g[YXeW=TiH[gYBK`(e%r.KauJqARBJFW |
| 229640 | 3b 62 4b 60 3a 75 4e 26 48 32 37 52 55 40 36 58 36 4d 30 34 5a 55 65 61 4b 36 62 0a 6f 5f 6e 2e | ;bK`:uN&H27RU@6X6M04ZUeaK6b.o_n. |
| 229660 | 56 73 2b 4d 38 51 73 38 52 65 2c 72 71 43 69 4b 5f 3b 4d 71 65 49 22 65 36 3c 6d 3d 6f 68 38 4b | Vs+M8Qs8Re,rqCiK_;MqeI"e6<m=oh8K |
| 229680 | 53 39 3a 24 4b 45 3f 6c 2d 66 29 2c 49 5f 72 71 50 51 62 60 53 65 40 69 48 74 63 59 4f 39 33 63 | S9:$KE?l-f),I_rqPQb`Se@iHtcYO93c |
| 2296a0 | 43 65 52 60 4f 63 6b 0a 60 70 3c 4c 23 72 74 62 4d 23 63 5f 27 58 51 56 4d 42 35 24 3a 49 53 3b | CeR`Ock.`p<L#rtbM#c_'XQVMB5$:IS; |
| 2296c0 | 74 49 23 74 71 74 60 34 2b 65 25 72 71 75 64 2c 71 57 63 25 6a 6c 48 2c 4e 4a 4a 73 73 64 47 50 | tI#tqt`4+e%rqud,qWc%jlH,NJJssdGP |
| 2296e0 | 5d 63 3b 46 72 65 31 4e 3e 73 2b 51 31 2c 73 38 2e 4b 50 0a 73 2b 51 31 2c 72 65 31 42 3a 66 28 | ]c;Fre1N>s+Q1,s8.KP.s+Q1,re1B:f( |
| 229700 | 2f 69 6b 7e 3e 0a 6d 66 2b 58 33 6f 25 30 65 6d 6b 68 74 2b 3f 62 67 50 35 28 6b 43 5a 72 4a 42 | /ik~>.mf+X3o%0emkht+?bgP5(kCZrJB |
| 229720 | 6c 2e 68 61 45 72 3e 6c 57 72 2c 51 69 51 45 48 23 6a 62 44 74 33 4c 3f 46 38 6c 31 3d 26 48 32 | l.haEr>lWr,QiQEH#jbDt3L?F8l1=&H2 |
| 229740 | 37 52 55 3f 68 22 22 66 3f 60 28 2b 6b 4e 65 6b 70 0a 6f 5f 6e 2e 56 73 29 54 21 2f 73 38 52 2e | 7RU?h""f?`(+kNekp.o_n.Vs)T!/s8R. |
| 229760 | 5d 72 71 43 33 39 5c 2a 3b 6c 2a 64 61 64 31 38 6d 3c 3c 2c 5a 45 63 56 2a 56 45 72 55 31 5d 73 | ]rqC39\*;l*dad18m<<,ZEcV*VErU1]s |
| 229780 | 33 55 5a 43 28 42 34 2a 69 5c 5c 2e 31 63 67 3d 22 2d 2c 3b 4a 29 63 4c 65 44 30 2d 4f 0a 54 3e | 3UZC(B4*i\\.1cg="-,;J)cLeD0-O.T> |
| 2297a0 | 70 33 6e 72 72 33 63 32 6e 27 40 4e 6a 6b 32 2b 5c 37 5a 5a 66 36 2e 61 6a 53 6f 25 6c 2b 46 4c | p3nrr3c2n'@Njk2+\7ZZf6.ajSo%l+FL |
| 2297c0 | 63 71 23 3a 33 6b 26 2c 50 53 31 50 4f 2e 41 63 65 43 3c 3a 37 6d 22 54 24 39 45 72 4c 2b 60 4b | cq#:3k&,PS1PO.AceC<:7m"T$9ErL+`K |
| 2297e0 | 45 24 22 36 73 38 56 74 3b 0a 22 39 33 46 60 73 38 49 27 3f 4b 40 27 32 68 4a 2c 7e 3e 0a 6d 66 | E$"6s8Vt;."93F`s8I'?K@'2hJ,~>.mf |
| 229800 | 2b 58 33 6f 25 30 65 60 5c 22 54 3a 72 5e 54 33 61 21 5b 43 2a 3c 4f 5e 72 34 3a 67 61 6f 29 2b | +X3o%0e`\"T:r^T3a![C*<O^r4:gao)+ |
| 229820 | 5b 72 35 6d 28 55 61 4e 29 3c 68 60 70 72 60 43 62 35 56 44 3f 26 48 32 37 52 55 3c 4c 24 3b 53 | [r5m(UaN)<h`pr`Cb5VD?&H27RU<L$;S |
| 229840 | 40 22 69 59 5b 45 50 41 74 0a 6f 5f 6e 2e 56 73 32 6c 2f 29 73 38 55 36 61 72 71 46 3a 3b 61 4c | @"iY[EPAt.o_n.Vs2l/)s8U6arqF:;aL |
| 229860 | 6e 43 3a 58 2e 62 75 64 61 31 38 6b 25 61 69 58 4a 5a 61 6f 42 4b 61 73 36 5d 5e 60 28 42 34 2a | nC:X.buda18k%aiXJZaoBKas6]^`(B4* |
| 229880 | 69 5c 5c 75 2e 58 51 60 4a 36 46 5d 22 47 74 72 55 52 2f 2b 24 0a 59 4b 23 6f 29 72 72 33 63 32 | i\\u.XQ`J6F]"GtrUR/+$.YK#o)rr3c2 |
| 2298a0 | 6e 27 40 66 50 5a 43 49 4d 71 60 6b 4b 25 24 62 2c 5e 6f 2c 5d 59 68 35 3d 71 23 3a 33 6b 26 2c | n'@fPZCIMq`kK%$b,^o,]Yh5=q#:3k&, |
| 2298c0 | 50 53 31 5b 44 5d 32 36 55 53 46 30 58 60 34 57 5c 49 61 6f 39 45 64 64 2f 56 38 32 73 38 56 75 | PS1[D]26USF0X`4W\Iao9Edd/V82s8Vu |
| 2298e0 | 3d 0a 22 39 36 4e 64 73 38 4c 2e 41 64 2d 5e 45 28 4a 2c 7e 3e 0a 6d 66 2b 55 30 6c 63 3f 27 6a | =."96Nds8L.Ad-^E(J,~>.mf+U0lc?'j |
| 229900 | 61 64 5b 70 24 49 23 74 71 74 4e 62 73 23 69 4a 71 53 67 56 4c 26 5f 31 2c 73 2b 51 31 2c 4b 6e | ad[p$I#tqtNbs#iJqSgVL&_1,s+Q1,Kn |
| 229920 | 50 2d 57 4b 60 28 68 27 4c 26 4d 23 5f 72 55 65 61 3a 6e 28 22 4c 72 46 63 21 30 4c 6e 22 53 4a | P-WK`(h'L&M#_rUea:n("LrFc!0Ln"SJ |
| 229940 | 2c 0a 72 54 73 52 61 4b 62 6f 73 51 73 2b 51 31 2b 70 4f 27 39 5f 69 34 47 28 75 4d 36 23 31 71 | ,.rTsRaKbosQs+Q1+pO'9_i4G(uM6#1q |
| 229960 | 42 52 23 29 5d 4c 26 5f 25 28 21 57 55 61 4a 73 22 4f 48 47 68 51 4f 69 54 5d 39 25 44 53 3d 25 | BR#)]L&_%(!WUaJs"OHGhQOiT]9%DS=% |
| 229980 | 35 5c 5e 43 34 3b 3e 5c 6a 4c 44 6e 63 0a 71 3e 55 45 6e 71 3c 2c 53 73 6b 4a 57 58 39 44 2d 4b | 5\^C4;>\jLDnc.q>UEnq<,SskJWX9D-K |
| 2299a0 | 53 23 3c 62 51 6c 42 5d 26 3a 48 2f 68 74 49 27 4a 72 74 2c 32 2b 6c 2c 30 25 56 61 64 5b 70 37 | S#<bQlB]&:H/htI'Jrt,2+l,0%Vad[p7 |
| 2299c0 | 52 60 4f 63 59 46 6d 46 5f 5b 4b 61 21 5c 3f 4b 6e 5d 52 2c 71 68 35 2e 50 0a 4b 6e 5d 52 2b 4b | R`OcYFmF_[Ka!\?Kn]R,qh5.P.Kn]R+K |
| 2299e0 | 60 52 43 67 6f 29 46 34 7e 3e 0a 6d 66 2b 55 30 6c 63 3e 67 65 6a 50 38 38 2f 64 62 3c 5b 45 4a | `RCgo)F4~>.mf+U0lc>gejP88/db<[EJ |
| 229a00 | 51 6c 60 26 45 2c 70 25 21 46 38 75 38 5d 73 29 57 38 5d 46 29 75 43 22 45 72 3e 6f 58 46 38 63 | Ql`&E,p%!F8u8]s)W8]F)uC"Er>oXF8c |
| 229a20 | 2b 4d 72 55 65 61 3a 6c 66 5b 30 57 63 65 25 28 3b 6c 5f 3c 26 28 0a 72 54 73 52 61 45 75 30 4b | +MrUea:lf[0Wce%(;l_<&(.rTsRaEu0K |
| 229a40 | 2f 73 29 57 38 5c 70 4d 37 28 43 6c 2f 43 40 45 66 41 47 63 57 3c 62 48 3e 6b 46 38 75 2c 59 21 | /s)W8\pM7(Cl/C@EfAGcW<bH>kF8u,Y! |
| 229a60 | 57 55 4f 44 73 22 4f 48 47 68 51 4f 4e 54 69 53 29 60 26 50 23 3e 44 4c 62 4c 35 2c 28 6c 45 49 | WUODs"OHGhQONTiS)`&P#>DLbL5,(lEI |
| 229a80 | 74 61 0a 71 3e 55 45 6e 71 3c 2c 53 6c 6c 66 36 61 4b 62 62 26 3c 3f 4f 69 63 26 2a 69 54 5b 71 | ta.q>UEnq<,Sllf6aKbb&<?Oic&*iT[q |
| 229aa0 | 57 68 74 49 27 4a 72 74 2c 32 2b 6c 2c 2f 5c 4e 6a 50 38 38 37 67 75 52 67 56 41 2a 5c 31 37 45 | WhtI'Jrt,2+l,/\NjP887guRgVA*\17E |
| 229ac0 | 73 37 33 72 46 2a 25 42 5d 71 66 3b 6c 3e 0a 46 2a 25 42 5c 45 72 67 70 3f 6f 29 46 34 7e 3e 0a | s73rF*%B]qf;l>.F*%B\Ergp?o)F4~>. |
| 229ae0 | 6d 66 2b 55 30 6c 63 3f 42 4d 58 64 3e 66 73 58 2d 66 63 73 5a 61 2e 39 5e 61 32 75 4c 27 62 35 | mf+U0lc?BMXd>fsX-fcsZa.9^a2uL'b5 |
| 229b00 | 5f 4c 61 73 32 72 4c 61 62 30 25 6a 28 61 6f 29 2e 5c 62 35 4d 3e 4f 72 55 65 61 3a 62 64 46 28 | _Las2rLab0%j(ao).\b5M>OrUea:bdF( |
| 229b20 | 35 5b 25 33 65 72 62 62 45 62 5e 0a 72 54 73 52 61 61 71 72 47 29 73 32 72 4c 60 70 56 4f 35 57 | 5[%3erbbEb^.rTsRaaqrG)s2rL`pVO5W |
| 229b40 | 5d 56 5f 24 72 53 59 21 37 35 59 2e 68 6f 74 62 35 5f 40 5d 21 57 56 51 61 73 22 4f 48 47 68 51 | ]V_$rSY!75Y.hotb5_@]!WVQas"OHGhQ |
| 229b60 | 4f 66 2f 56 4f 2b 40 2a 5f 52 64 40 73 60 69 2c 33 25 5e 56 2e 3e 43 0a 71 3e 55 45 6e 71 3c 2c | Of/VO+@*_Rd@s`i,3%^V.>C.q>UEnq<, |
| 229b80 | 54 27 5f 51 2f 72 75 5f 53 6a 2a 75 5f 54 4a 70 48 56 53 27 61 4b 68 74 49 27 4a 72 74 2c 32 2b | T'_Q/ru_Sj*u_TJpHVS'aKhtI'Jrt,2+ |
| 229ba0 | 6c 2c 30 70 49 58 64 3e 66 58 51 60 5c 33 3d 5d 27 49 4b 3b 61 70 24 2f 6c 62 30 27 62 61 71 6f | l,0pIXd>fXQ`\3=]'IK;ap$/lb0'baqo |
| 229bc0 | 54 24 40 0a 62 30 27 62 60 61 6f 54 6c 56 6f 29 46 34 7e 3e 0a 6e 2c 46 46 2d 70 75 4b 21 29 69 | T$@.b0'b`aoTlVo)F4~>.n,FF-puK!)i |
| 229be0 | 34 47 28 75 49 23 74 71 74 63 58 68 33 49 4a 71 53 66 32 73 2b 55 4c 51 4c 26 5a 6a 5c 73 38 49 | 4G(uI#tqtcXh3IJqSf2s+ULQL&Zj\s8I |
| 229c00 | 5d 55 73 2b 55 4c 51 4b 6e 5d 4c 2a 26 48 32 37 52 55 24 70 4f 35 4d 30 34 5a 55 65 61 4b 36 62 | ]Us+ULQKn]L*&H27RU$pO5M04ZUeaK6b |
| 229c20 | 0a 6f 5f 6e 2e 56 73 2b 4d 38 51 73 38 52 65 2c 72 71 3a 60 43 5e 75 32 68 64 49 23 34 6f 53 6d | .o_n.Vs+M8Qs8Re,rq:`C^u2hdI#4oSm |
| 229c40 | 71 49 27 21 4b 53 42 49 27 4b 60 56 35 29 71 75 38 41 4b 6f 40 54 6c 2d 65 5a 3d 55 4d 40 6f 35 | qI'!KSBI'K`V5)qu8AKo@Tl-eZ=UM@o5 |
| 229c60 | 5a 60 3c 62 51 6c 42 5d 26 3a 4b 34 0a 69 3a 6d 36 4e 72 55 6f 27 51 5f 72 2f 2e 67 48 74 63 59 | Z`<bQlB]&:K4.i:m6NrUo'Q_r/.gHtcY |
| 229c80 | 4f 37 38 52 48 39 4d 36 23 31 71 56 71 55 65 41 72 56 6d 48 2e 71 3c 2c 4d 5e 6c 48 2c 4e 4a 4a | O78RH9M6#1qVqUeArVmH.q<,M^lH,NJJ |
| 229ca0 | 73 73 64 47 50 5d 63 3b 46 72 65 31 4e 3e 72 65 36 28 29 72 56 5f 45 4c 0a 4b 2a 5f 37 29 4b 44 | ssdGP]c;Fre1N>re6()rV_EL.K*_7)KD |
| 229cc0 | 55 3d 55 4b 70 31 2a 59 73 2a 74 7e 3e 0a 6e 2c 46 46 2d 70 75 4a 75 75 6c 2f 43 40 45 64 62 3c | U=UKp1*Ys*t~>.n,FF-puJuul/C@Edb< |
| 229ce0 | 5b 45 60 44 67 3b 5f 45 2c 70 23 40 73 29 5c 35 3f 46 38 70 3c 26 73 38 49 27 43 73 29 5c 35 3f | [E`Dg;_E,p#@s)\5?F8p<&s8I'Cs)\5? |
| 229d00 | 46 2a 25 3c 5b 26 48 32 37 52 55 24 4c 6e 21 66 3f 60 28 2b 6b 4e 65 6b 70 0a 6f 5f 6e 2e 56 73 | F*%<[&H27RU$Ln!f?`(+kNekp.o_n.Vs |
| 229d20 | 29 54 21 2f 73 38 52 2e 5d 72 71 3a 2a 31 5b 63 75 63 29 64 62 21 43 3e 6c 57 40 65 3d 46 2a 25 | )T!/s8R.]rq:*1[cuc)db!C>lW@e=F*% |
| 229d40 | 42 59 45 72 6c 3c 66 71 75 38 41 4b 6f 40 54 6c 29 6b 4d 4f 6e 3b 5c 55 48 65 3f 4f 69 63 26 2a | BYErl<fqu8AKo@Tl)kMOn;\UHe?Oic&* |
| 229d60 | 69 54 5b 74 5c 0a 69 3a 6d 36 4e 72 55 6f 27 51 5d 42 53 3b 2e 64 60 52 5f 4e 3a 6a 66 65 21 66 | iT[t\.i:m6NrUo'Q]BS;.d`R_N:jfe!f |
| 229d80 | 41 47 63 57 56 71 55 65 41 72 56 6d 48 2e 71 3c 2c 4d 53 6d 2c 5a 73 4f 65 44 30 2d 4f 4c 31 42 | AGcWVqUeArVmH.q<,MSm,ZsOeD0-OL1B |
| 229da0 | 4f 69 72 63 38 36 71 72 63 3c 2f 5a 72 56 5e 64 3a 0a 45 3c 47 75 55 45 56 6f 60 56 21 4a 41 62 | Oirc86qrc</ZrV^d:.E<GuUEVo`V!JAb |
| 229dc0 | 69 73 2a 74 7e 3e 0a 6e 2c 46 46 2d 70 75 4b 21 28 5d 56 5f 24 72 58 2d 66 63 73 62 48 26 31 6b | is*t~>.n,FF-puK!(]V_$rX-fcsbH&1k |
| 229de0 | 61 32 75 4b 48 73 32 74 42 41 62 35 5d 57 2c 73 38 4c 2e 45 73 32 74 42 41 62 30 27 5c 5f 26 48 | a2uKHs2tBAb5]W,s8L.Es2tBAb0'\_&H |
| 229e00 | 32 37 52 55 21 30 70 3a 53 40 22 69 59 5b 45 50 41 74 0a 6f 5f 6e 2e 56 73 32 6c 2f 29 73 38 55 | 27RU!0p:S@"iY[EPAt.o_n.Vs2l/)s8U |
| 229e20 | 36 61 72 71 3d 31 33 61 4c 6e 43 3a 58 2e 3e 69 69 62 63 65 62 24 62 30 27 62 5d 61 6f 56 50 30 | 6arq=13aLnC:X.>iibceb$b0'b]aoVP0 |
| 229e40 | 71 75 38 41 4b 6f 40 54 6b 5f 5b 40 60 74 72 61 31 6f 2a 70 5f 54 4a 70 48 56 53 27 64 50 0a 69 | qu8AKo@Tk_[@`tra1o*p_TJpHVS'dP.i |
| 229e60 | 3a 6d 36 4e 72 55 6f 27 51 5f 6e 3b 6b 35 58 33 26 35 69 5d 22 63 3a 6d 53 59 21 37 35 56 71 55 | :m6NrUo'Q_n;k5X3&5i]"c:mSY!75VqU |
| 229e80 | 65 41 72 56 6d 48 2e 71 3c 2c 4e 21 60 33 23 42 24 55 52 2f 2b 24 5d 58 6d 46 4e 72 6c 50 44 6b | eArVmH.q<,N!`3#B$UR/+$]XmFNrlPDk |
| 229ea0 | 72 6c 57 43 5e 72 56 61 6b 3c 0a 61 39 32 34 59 61 53 59 74 5a 21 52 55 36 29 73 2a 74 7e 3e 0a | rlWC^rVak<.a924YaSYtZ!RU6)s*t~>. |
| 229ec0 | 6e 2c 46 46 2d 70 3e 32 74 31 66 73 2d 4b 5c 49 23 74 71 74 5e 31 4d 4d 3a 4a 71 4a 60 30 71 68 | n,FF-p>2t1fs-K\I#tqt^1MM:JqJ`0qh |
| 229ee0 | 34 6e 47 4b 60 36 5b 5a 73 38 49 5d 55 73 2b 55 4c 51 4b 6e 5d 4c 2a 26 48 32 34 4f 54 43 3a 3d | 4nGK`6[Zs8I]Us+ULQKn]L*&H24OTC:= |
| 229f00 | 33 4d 30 34 5a 55 65 61 4b 39 64 0a 6f 5f 6e 2e 56 73 2b 4d 38 51 73 38 52 65 2c 72 71 31 57 3c | 3M04ZUeaK9d.o_n.Vs+M8Qs8Re,rq1W< |
| 229f20 | 69 37 59 41 6f 47 5f 72 4b 4f 6d 71 52 30 23 4b 53 42 49 27 4b 60 56 35 29 71 75 38 41 4a 6e 27 | i7YAoG_rKOmqR0#KSBI'K`V5)qu8AJn' |
| 229f40 | 40 54 6e 64 41 44 5c 3f 40 38 42 4b 61 3b 49 6b 21 30 5a 2e 5c 27 36 0a 67 40 59 40 44 72 3a 2f | @TndAD\?@8BKa;Ik!0Z.\'6.g@Y@Dr:/ |
| 229f60 | 37 2e 6e 28 22 4c 72 46 5e 6e 39 41 37 38 52 48 39 4d 36 23 31 71 54 25 2a 3f 2f 72 56 6e 3b 46 | 7.n("LrF^n9A78RH9M6#1qT%*?/rVn;F |
| 229f80 | 70 75 54 2d 2c 69 34 47 28 75 4a 73 73 64 47 50 5d 5a 29 3f 4b 37 6e 6c 3d 70 4f 5c 22 68 6f 37 | puT-,i4G(uJssdGP]Z)?K7nl=pO\"ho7 |
| 229fa0 | 3b 46 42 0a 49 73 75 6b 2c 49 3d 43 52 38 4b 37 6f 48 3e 6f 29 46 34 7e 3e 0a 6e 2c 46 46 2d 70 | ;FB.Isuk,I=CR8K7oH>o)F4~>.n,FF-p |
| 229fc0 | 3e 32 74 2a 6b 68 74 2b 3f 64 62 3c 5b 45 5a 72 43 4f 4f 45 2c 66 6f 3d 71 66 3b 57 35 46 38 67 | >2t*kht+?db<[EZrCOOE,fo=qf;W5F8g |
| 229fe0 | 36 25 73 38 49 27 43 73 29 5c 35 3f 46 2a 25 3c 5b 26 48 32 34 4f 54 42 6b 5b 74 66 3f 60 28 2b | 6%s8I'Cs)\5?F*%<[&H24OTBk[tf?`(+ |
| 22a000 | 6b 4e 65 6e 72 0a 6f 5f 6e 2e 56 73 29 54 21 2f 73 38 52 2e 5d 72 71 31 21 2a 66 5d 5f 38 47 64 | kNenr.o_n.Vs)T!/s8R.]rq1!*f]_8Gd |
| 22a020 | 2b 40 31 3c 6c 57 40 68 3e 46 2a 25 42 59 45 72 6c 3c 66 71 75 38 41 4a 6e 27 40 4b 69 6b 32 2b | +@1<lW@h>F*%BYErl<fqu8AJn'@Kik2+ |
| 22a040 | 5c 37 5a 5a 65 54 30 4b 3e 2c 5e 62 69 39 38 6a 6d 0a 67 40 59 40 44 72 3a 2f 37 2e 6c 66 5b 30 | \7ZZeT0K>,^bi98jm.g@Y@Dr:/7.lf[0 |
| 22a060 | 57 63 61 65 4c 3a 3a 6a 66 65 21 66 41 47 63 57 54 25 2a 3f 2f 72 56 6e 3b 46 70 75 54 2d 24 6c | WcaeL::jfe!fAGcWT%*?/rVn;FpuT-$l |
| 22a080 | 2f 43 40 45 65 44 30 2d 4f 4c 31 39 3d 63 45 48 36 26 4d 70 4d 6b 30 45 6f 35 41 4d 61 0a 44 2f | /C@EeD0-OL19=cEH6&MpMk0Eo5AMa.D/ |
| 22a0a0 | 3d 25 4b 43 4d 60 42 57 45 48 3f 63 5a 6f 29 46 34 7e 3e 0a 6e 2c 46 46 2d 70 3e 32 73 72 5c 22 | =%KCM`BWEH?cZo)F4~>.n,FF-p>2sr\" |
| 22a0c0 | 54 3a 72 58 2d 66 63 73 60 4e 36 59 67 61 32 6c 42 45 71 6f 53 64 37 62 35 54 51 2b 73 38 4c 2e | T:rX-fcs`N6Yga2lBEqoSd7b5TQ+s8L. |
| 22a0e0 | 45 73 32 74 42 41 62 30 27 5c 5f 26 48 32 34 4f 54 3f 4f 5e 38 53 40 22 69 59 5b 45 50 45 21 0a | Es2tBAb0'\_&H24OT?O^8S@"iY[EPE!. |
| 22a100 | 6f 5f 6e 2e 56 73 32 6c 2f 29 73 38 55 36 61 72 71 34 28 2c 62 64 58 3a 38 5a 28 37 4a 6f 62 63 | o_n.Vs2l/)s8U6arq4(,bdX:8Z(7Jobc |
| 22a120 | 65 65 25 62 30 27 62 5d 61 6f 56 50 30 71 75 38 41 4a 6e 27 40 63 4f 5a 43 49 4d 71 60 6b 4a 6d | ee%b0'b]aoVP0qu8AJn'@cOZCIMq`kJm |
| 22a140 | 6d 5e 72 57 64 4d 54 73 72 37 45 0a 67 40 59 40 44 72 3a 2f 37 2e 62 64 46 28 35 5b 29 5d 71 6f | m^rWdMTsr7E.g@Y@Dr:/7.bdF(5[)]qo |
| 22a160 | 5d 22 63 3a 6d 53 59 21 37 35 54 25 2a 3f 2f 72 56 6e 3b 46 70 75 54 2d 2c 5d 56 5f 24 72 55 52 | ]"c:mSY!75T%*?/rVn;FpuT-,]V_$rUR |
| 22a180 | 2f 2b 24 5d 58 64 34 48 61 4e 3b 4e 4b 70 57 31 44 49 6f 3e 5c 62 67 0a 60 35 42 4c 51 5f 53 62 | /+$]Xd4HaN;NKpW1DIo>\bg.`5BLQ_Sb |
| 22a1a0 | 63 5d 61 4e 44 6c 73 6f 29 46 34 7e 3e 0a 6e 2c 46 46 2c 70 22 51 47 36 65 5a 3d 55 4d 46 2c 2d | c]aNDlso)F4~>.n,FF,p"QG6eZ=UMF,- |
| 22a1c0 | 58 3f 68 2f 49 34 53 48 5b 5e 48 6f 6d 22 22 54 72 4b 28 58 5f 4a 71 3e 51 24 4e 72 65 3a 43 50 | X?h/I4SH[^Hom""TrK(X_Jq>Q$Nre:CP |
| 22a1e0 | 4b 6e 5d 4c 2a 26 48 29 28 49 53 2b 22 6e 2f 4d 30 34 60 5d 67 24 6b 6c 6d 0a 70 26 34 37 57 73 | Kn]L*&H)(IS+"n/M04`]g$klm.p&47Ws |
| 22a200 | 2b 4d 38 51 73 38 52 65 2c 72 55 6b 4b 36 6e 28 22 4c 72 46 63 21 30 4c 6d 71 52 30 23 4b 53 42 | +M8Qs8Re,rUkK6n("LrFc!0LmqR0#KSB |
| 22a220 | 49 27 4b 60 56 35 29 71 75 38 41 48 6c 63 2c 6a 66 61 64 5b 70 24 3e 59 40 73 62 3a 68 22 52 28 | I'K`V5)qu8AHlc,jfad[p$>Y@sb:h"R( |
| 22a240 | 58 34 3f 5b 2f 0a 64 64 64 38 37 71 57 63 25 74 6c 48 2c 4e 4a 44 64 35 71 33 37 38 37 2a 2e 4b | X4?[/.ddd87qWc%tlH,NJDd5q3787*.K |
| 22a260 | 71 51 5d 58 55 21 3c 24 26 72 56 6e 3b 46 70 75 41 6a 25 69 34 47 28 75 4a 73 73 64 47 50 42 23 | qQ]XU!<$&rVn;FpuAj%i4G(uJssdGPB# |
| 22a280 | 42 2c 49 74 29 70 28 69 53 4a 71 36 65 54 63 37 5b 0a 46 45 32 42 32 45 48 42 3f 4e 49 74 49 55 | B,It)p(iSJq6eTc7[.FE2B2EHB?NItIU |
| 22a2a0 | 4c 6f 29 46 34 7e 3e 0a 6e 2c 46 61 35 70 22 51 47 32 6b 4d 4f 6e 3b 63 49 55 6b 37 66 4f 2e 72 | Lo)F4~>.n,Fa5p"QG2kMOn;cIUk7fO.r |
| 22a2c0 | 71 42 6c 25 58 27 6c 75 29 3d 60 45 3a 6e 33 6a 71 2f 55 4c 73 72 63 41 2c 3e 46 2a 25 3c 5b 26 | qBl%X'lu)=`E:n3jq/ULsrcA,>F*%<[& |
| 22a2e0 | 48 29 28 49 53 2a 54 37 70 66 3f 60 2b 2d 6b 6a 2c 2c 22 0a 70 26 34 37 57 73 29 54 21 2f 73 38 | H)(IS*T7pf?`+-kj,,".p&47Ws)T!/s8 |
| 22a300 | 52 2e 5d 72 55 6a 6d 25 6c 66 5b 30 57 63 65 25 28 3b 6c 57 40 68 3e 46 2a 25 42 59 45 72 6c 3c | R.]rUjm%lf[0Wce%(;lW@h>F*%BYErl< |
| 22a320 | 66 71 75 38 41 48 6c 63 2c 55 61 6a 50 38 38 2f 56 4a 26 25 6e 49 28 37 4d 53 68 72 6a 3c 71 0a | fqu8AHlc,UajP88/VJ&%nI(7MShrj<q. |
| 22a340 | 64 64 64 38 37 71 57 63 25 6d 6d 2c 5a 73 4f 62 62 66 27 24 3a 69 3c 3e 59 65 5f 54 3f 53 53 5e | ddd87qWc%mm,ZsObbf'$:i<>Ye_T?SS^ |
| 22a360 | 24 55 22 72 56 6d 45 2d 70 75 41 69 72 6c 2f 43 40 45 65 44 30 2d 4f 4b 6a 60 5e 38 44 26 24 6c | $U"rVmE-puAirl/C@EeD0-OKj`^8D&$l |
| 22a380 | 34 69 53 4a 3b 24 65 52 69 3f 25 0a 40 55 57 57 52 3f 58 5f 2f 6d 44 2f 6f 4c 23 6f 29 46 34 7e | 4iSJ;$eRi?%.@UWWR?X_/mD/oL#o)F4~ |
| 22a3a0 | 3e 0a 6e 2c 46 61 35 70 22 51 46 68 5b 40 60 74 72 5c 3d 5d 3a 73 60 69 51 4d 5a 5e 72 2b 2b 2f | >.n,Fa5p"QFh[@`tr\=]:s`iQMZ^r++/ |
| 22a3c0 | 6d 29 41 4a 62 61 37 5b 4e 70 71 38 70 62 24 72 6c 59 39 40 62 30 27 5c 5f 26 48 29 28 49 53 27 | m)AJba7[Npq8pb$rlY9@b0'\_&H)(IS' |
| 22a3e0 | 38 3a 34 53 40 22 63 5a 5c 27 4c 72 2a 0a 70 26 34 37 57 73 32 6c 2f 29 73 38 55 36 61 72 55 6d | 8:4S@"cZ\'Lr*.p&47Ws2l/)s8U6arUm |
| 22a400 | 74 27 62 64 46 28 35 5b 25 33 65 72 62 63 6e 6b 26 62 30 27 62 5d 61 6f 56 50 30 71 75 38 41 48 | t'bdF(5[%3erbcnk&b0'b]aoVP0qu8AH |
| 22a420 | 6c 63 2d 30 49 58 64 3e 66 73 60 50 26 5b 6b 5e 57 33 5e 50 54 21 63 65 34 0a 64 64 64 38 37 71 | lc-0IXd>fs`P&[k^W3^PT!ce4.ddd87q |
| 22a440 | 57 63 26 28 60 33 23 42 24 5e 3b 5b 65 23 5d 22 51 28 70 54 70 69 34 2b 57 6d 30 75 2f 72 56 6d | Wc&(`3#B$^;[e#]"Q(pTpi4+Wm0u/rVm |
| 22a460 | 45 2d 70 75 41 6a 25 5d 56 5f 24 72 55 52 2f 2b 24 5d 3d 36 53 70 60 22 67 32 30 69 53 4d 42 26 | E-puAj%]V_$rUR/+$]=6Sp`"g20iSMB& |
| 22a480 | 65 5c 2f 54 2b 0a 5c 5b 5d 29 58 5b 5e 61 50 73 60 35 71 6c 44 6f 29 46 34 7e 3e 0a 6e 2c 46 61 | e\/T+.\[])X[^aPs`5qlDo)F4~>.n,Fa |
| 22a4a0 | 35 70 22 51 47 36 65 5a 3d 55 4d 41 39 33 4f 27 64 47 39 40 66 44 4b 39 69 41 61 45 47 6e 59 48 | 5p"QG6eZ=UMA93O'dG9@fDK9iAaEGnYH |
| 22a4c0 | 4a 2a 58 6d 6a 61 56 69 35 71 31 53 5f 48 4b 6e 5d 4c 2a 26 48 29 22 42 55 5b 3f 3d 22 4b 6d 5c | J*XmjaVi5q1S_HKn]L*&H)"BU[?="Km\ |
| 22a4e0 | 75 6e 69 38 4c 5d 6b 0a 70 26 3d 3a 57 28 6b 6e 31 52 73 2b 51 31 2a 6f 51 6d 3b 24 65 5a 3d 55 | uni8L]k.p&=:W(kn1Rs+Q1*oQm;$eZ=U |
| 22a500 | 4d 4d 36 23 31 71 43 33 6b 4a 62 4c 26 5f 25 28 21 57 55 61 4b 73 22 58 4e 4a 6b 2e 4a 34 62 5e | MM6#1qC3kJbL&_%(!WUaKs"XNJk.J4b^ |
| 22a520 | 6c 73 34 5f 3d 5b 75 2b 61 39 33 63 43 65 52 60 4f 63 6d 0a 61 6d 41 6d 26 70 3e 4e 45 74 69 34 | ls4_=[u+a93cCeR`Ocm.amAm&p>NEti4 |
| 22a540 | 47 28 75 42 69 65 50 4b 3c 5f 48 5c 39 4a 73 73 64 47 55 72 3b 51 70 72 56 6e 3b 46 70 59 72 55 | G(uBiePK<_H\9JssdGUr;QprVn;FpYrU |
| 22a560 | 21 69 34 47 28 75 4a 73 73 64 47 4f 44 3b 4a 4a 46 45 3b 4b 34 5a 60 5c 2c 3e 53 70 2d 4b 63 0a | !i4G(uJssdGOD;JJFE;K4Z`\,>Sp-Kc. |
| 22a580 | 50 63 5f 70 43 5f 54 2f 60 72 47 43 4b 3b 3a 6f 29 46 34 7e 3e 0a 6e 2c 46 61 35 70 22 51 47 32 | Pc_pC_T/`rGCK;:o)F4~>.n,Fa5p"QG2 |
| 22a5a0 | 6b 4d 4f 6e 3b 5e 3c 59 3c 64 6b 31 4f 60 55 3e 5b 56 23 4e 61 43 4e 57 47 42 5c 40 2a 37 6a 5f | kMOn;^<Y<dk1O`U>[V#NaCNWGB\@*7j_ |
| 22a5c0 | 5c 70 54 71 2f 5a 48 36 46 2a 25 3c 5b 26 48 29 22 42 54 43 28 61 72 65 5e 45 31 31 6c 2e 4e 29 | \pTq/ZH6F*%<[&H)"BTC(are^E11l.N) |
| 22a5e0 | 6c 0a 70 26 3d 3a 57 28 69 74 3f 30 73 29 57 38 5b 6f 4f 74 23 63 6b 4d 4f 6e 3b 66 41 47 63 57 | l.p&=:W(it?0s)W8[oOt#ckMOn;fAGcW |
| 22a600 | 3d 44 32 59 70 46 38 75 2c 59 21 57 55 4f 45 73 22 58 4e 4a 6b 2e 49 71 60 69 6e 44 6c 29 52 39 | =D2YpF8u,Y!WUOEs"XNJk.Iq`inDl)R9 |
| 22a620 | 46 32 61 41 75 33 60 24 67 75 52 67 72 0a 61 6d 41 6d 26 70 3e 4e 45 6c 6c 2f 43 40 45 62 2a 26 | F2aAu3`$guRgr.amAm&p>NEll/C@Eb*& |
| 22a640 | 55 32 4f 5f 31 48 36 65 44 30 2d 4f 54 23 42 70 6a 72 56 6e 3b 46 70 59 72 54 6d 6c 2f 43 40 45 | U2O_1H6eD0-OT#BpjrVn;FpYrTml/C@E |
| 22a660 | 65 44 30 2d 4f 4a 51 54 56 29 40 70 72 63 54 5a 60 5b 4b 2c 53 6e 45 6b 36 0a 4c 38 44 50 71 5c | eD0-OJQTV)@prcTZ`[K,SnEk6.L8DPq\ |
| 22a680 | 25 5c 5f 46 41 53 71 31 66 6f 29 46 34 7e 3e 0a 6e 2c 46 61 35 70 22 51 46 68 5b 40 60 74 72 61 | %\_FASq1fo)F4~>.n,Fa5p"QFh[@`tra |
| 22a6a0 | 4c 40 65 33 5a 48 27 3b 53 5b 28 21 54 57 61 4c 66 64 49 5e 59 2d 45 3d 6a 69 23 30 5a 71 38 72 | L@e3ZH';S[(!TWaLfdI^Y-E=ji#0Zq8r |
| 22a6c0 | 55 38 62 30 27 5c 5f 26 48 29 22 42 58 32 68 48 35 54 72 58 51 58 5d 5b 33 5c 36 0a 70 26 3d 3a | U8b0'\_&H)"BX2hH5TrXQX][3\6.p&=: |
| 22a6e0 | 57 28 73 3a 35 2a 73 32 72 4c 5f 6f 59 37 30 46 5b 40 60 74 72 53 59 21 37 35 59 65 53 36 24 62 | W(s:5*s2rL_oY70F[@`trSY!75YeS6$b |
| 22a700 | 35 5f 40 5d 21 57 56 51 62 73 22 58 4e 4a 6b 2e 4a 43 42 57 30 58 43 24 5f 6e 33 52 68 5d 59 71 | 5_@]!WVQbs"XNJk.JCBW0XC$_n3Rh]Yq |
| 22a720 | 52 5b 51 60 5c 33 33 0a 61 6d 41 6d 26 70 3e 4e 45 74 5d 56 5f 24 72 61 68 6c 21 3a 5f 53 21 68 | R[Q`\33.amAm&p>NEt]V_$rahl!:_S!h |
| 22a740 | 25 55 52 2f 2b 24 59 2f 4b 57 25 72 56 6e 3b 46 70 59 72 54 75 5d 56 5f 24 72 55 52 2f 2b 24 5c | %UR/+$Y/KW%rVn;FpYrTu]V_$rUR/+$\ |
| 22a760 | 24 33 51 62 5d 22 23 35 5a 5a 60 5e 55 2f 54 21 5a 35 46 0a 5d 58 3e 5c 72 61 69 3a 60 71 5d 59 | $3Qb]"#5ZZ`^U/T!Z5F.]X>\rai:`q]Y |
| 22a780 | 73 52 32 6f 29 46 34 7e 3e 0a 6e 2c 46 61 36 70 3e 32 74 40 65 5a 3d 55 4d 40 70 6a 41 35 56 55 | sR2o)F4~>.n,Fa6p>2t@eZ=UM@pjA5VU |
| 22a7a0 | 3d 65 67 5f 33 3a 2b 4b 56 6a 34 24 49 43 38 47 63 63 5d 36 2f 40 46 6b 28 2a 31 26 4b 6e 5d 4c | =eg_3:+KVj4$IC8Gcc]6/@Fk(*1&Kn]L |
| 22a7c0 | 2a 26 47 74 6b 3b 57 54 71 54 70 4b 37 26 63 6c 69 35 29 56 53 0a 70 41 58 43 58 28 6b 6e 31 52 | *&Gtk;WTqTpK7&cli5)VS.pAXCX(kn1R |
| 22a7e0 | 73 2b 51 31 2a 6f 51 6d 38 23 65 5a 3d 55 4d 4d 36 23 31 71 43 33 6b 4a 62 4c 26 5f 25 28 21 57 | s+Q1*oQm8#eZ=UMM6#1qC3kJbL&_%(!W |
| 22a800 | 55 61 4b 73 22 61 54 49 69 33 4c 38 59 5d 39 25 44 53 3d 25 63 40 5f 38 51 6f 71 5c 51 2c 4d 6a | UaKs"aTIi3L8Y]9%DS=%c@_8Qoq\Q,Mj |
| 22a820 | 65 0a 5e 5a 59 43 68 6f 25 27 56 70 66 73 2d 4b 5c 41 52 26 6e 6b 42 4e 41 35 4d 49 5a 68 4a 2c | e.^ZYCho%'Vpfs-K\AR&nkBNA5MIZhJ, |
| 22a840 | 5c 25 4c 68 74 72 72 32 70 35 72 71 47 42 59 60 38 4a 37 68 49 22 49 67 2e 6c 41 41 6f 3b 56 6a | \%Lhtrr2p5rqGBY`8J7hI"Ig.lAAo;Vj |
| 22a860 | 2a 43 4e 60 35 4b 4f 6c 6d 66 3b 65 54 0a 6c 32 5e 23 47 69 21 2f 4b 2a 48 5b 2b 72 2b 72 71 24 | *CN`5KOlmf;eT.l2^#Gi!/K*H[+r+rq$ |
| 22a880 | 2f 3f 7e 3e 0a 6e 2c 46 61 36 70 3e 32 74 3c 6b 4d 4f 6e 3b 5c 5b 27 4e 33 68 57 46 34 58 5b 59 | /?~>.n,Fa6p>2t<kMOn;\['N3hWF4X[Y |
| 22a8a0 | 30 42 69 54 53 54 35 31 3d 4a 5d 35 2d 5d 34 35 47 65 6b 26 39 74 6a 46 2a 25 3c 5b 26 47 74 6b | 0BiTST51=J]5-]45Gek&9tjF*%<[&Gtk |
| 22a8c0 | 3b 55 3f 70 73 72 65 43 2a 28 30 6c 2a 6d 6b 52 0a 70 41 58 43 58 28 69 74 3f 30 73 29 57 38 5b | ;U?psreC*(0l*mkR.pAXCX(it?0s)W8[ |
| 22a8e0 | 6f 4f 73 75 62 6b 4d 4f 6e 3b 66 41 47 63 57 3d 44 32 59 70 46 38 75 2c 59 21 57 55 4f 45 73 22 | oOsubkMOn;fAGcW=D2YpF8u,Y!WUOEs" |
| 22a900 | 61 54 49 69 33 4b 75 5a 69 53 29 60 26 50 25 4b 29 52 3f 5f 35 48 69 67 5a 2e 55 72 0a 5e 5a 59 | aTIi3KuZiS)`&P%K)R?_5HigZ.Ur.^ZY |
| 22a920 | 43 68 6f 25 27 56 69 6b 68 74 2b 3f 5e 53 54 26 75 61 63 56 74 36 64 62 3c 5e 47 59 49 72 75 6c | Cho%'Vikht+?^ST&uacVt6db<^GYIrul |
| 22a940 | 72 72 32 70 35 72 71 47 42 59 5d 42 53 3b 2e 64 61 5b 28 35 6d 21 4d 4b 6d 54 53 41 2f 74 5d 58 | rr2p5rqGBY]BS;.da[(5m!MKmTSA/t]X |
| 22a960 | 74 63 53 6c 69 24 2f 4d 0a 6c 69 24 26 50 6d 2b 48 2c 63 6d 45 47 53 24 73 2a 74 7e 3e 0a 6e 2c | tcSli$/M.li$&Pm+H,cmEGS$s*t~>.n, |
| 22a980 | 46 61 36 70 3e 32 73 72 5b 40 60 74 72 61 32 59 54 5c 53 3f 67 32 5a 61 4c 66 2a 75 5a 2b 64 39 | Fa6p>2sr[@`tra2YT\S?g2ZaLf*uZ+d9 |
| 22a9a0 | 2f 59 47 4a 50 33 5d 3d 50 5c 6b 6b 2f 52 2c 6c 62 30 27 5c 5f 26 47 74 6b 3b 5a 63 26 75 34 55 | /YGJP3]=P\kk/R,lb0'\_&Gtk;Zc&u4U |
| 22a9c0 | 54 39 63 5a 5d 5a 25 29 33 0a 70 41 58 43 58 28 73 3a 35 2a 73 32 72 4c 5f 6f 59 37 2d 45 5b 40 | T9cZ]Z%)3.pAXCX(s:5*s2rL_oY7-E[@ |
| 22a9e0 | 60 74 72 53 59 21 37 35 59 65 53 36 24 62 35 5f 40 5d 21 57 56 51 62 73 22 61 54 49 69 33 4c 38 | `trSY!75YeS6$b5_@]!WVQbs"aTIi3L8 |
| 22aa00 | 35 56 4f 2b 40 2a 5f 53 21 58 72 5d 59 68 55 60 51 29 68 64 30 0a 5e 5a 59 43 68 6f 25 27 56 5b | 5VO+@*_S!Xr]YhU`Q)hd0.^ZYCho%'V[ |
| 22aa20 | 5c 22 54 3a 72 61 4d 63 36 2e 62 2f 32 27 39 57 30 58 42 73 5d 74 45 4a 25 72 72 32 70 35 72 71 | \"T:raMc6.b/2'9W0XBs]tEJ%rr2p5rq |
| 22aa40 | 47 42 59 5f 6e 3b 6b 35 58 2e 75 23 60 60 33 51 2f 35 5a 2b 5b 63 68 60 35 42 49 6b 62 51 2c 66 | GBY_n;k5X.u#``3Q/5Z+[ch`5BIkbQ,f |
| 22aa60 | 62 0a 5f 75 52 5b 51 5d 45 5a 3d 21 5c 40 71 3a 6f 72 71 24 2f 3f 7e 3e 0a 6e 2c 46 22 21 70 75 | b._uR[Q]EZ=!\@q:orq$/?~>.n,F"!pu |
| 22aa80 | 4b 27 28 69 34 47 28 75 42 6a 50 31 67 4c 53 69 3e 4c 69 3b 44 6a 3f 6d 4a 5a 4a 5d 5f 38 56 5b | K'(i4G(uBjP1gLSi>Li;Dj?mJZJ]_8V[ |
| 22aaa0 | 61 44 38 31 3e 54 6d 58 70 32 6c 72 72 33 51 2b 6d 29 5a 2a 69 61 64 5b 70 31 4f 4c 6a 41 64 5a | aD81>TmXp2lrr3Q+m)Z*iad[p1OLjAdZ |
| 22aac0 | 4a 62 4b 56 0a 6c 4d 68 5a 61 73 38 52 65 2c 72 55 62 45 31 6e 28 22 4c 72 46 63 21 30 4c 6d 71 | JbKV.lMhZas8Re,rUbE1n("LrFc!0Lmq |
| 22aae0 | 52 30 23 4b 53 42 49 27 4b 60 56 35 29 72 3b 53 50 4e 6f 40 54 71 75 66 73 2d 4b 5c 41 51 57 32 | R0#KSBI'K`V5)r;SPNo@Tqufs-K\AQW2 |
| 22ab00 | 48 3e 59 41 2b 32 49 23 74 71 74 5f 6d 41 3a 70 0a 71 21 36 25 6f 6d 45 4d 3e 59 45 46 33 43 2c | H>YA+2I#tqt_mA:p.q!6%omEM>YEF3C, |
| 22ab20 | 4d 30 72 75 3b 42 52 47 6f 51 69 35 3b 6e 5b 70 5c 74 30 6c 26 2c 75 3d 5d 5a 47 59 56 34 4f 46 | M0ru;BRGoQi5;n[p\t0l&,u=]ZGYV4OF |
| 22ab40 | 31 74 75 53 26 73 73 61 6d 4a 63 41 4e 6a 53 6e 2a 3a 65 48 22 22 72 61 54 30 39 58 0a 5d 2a 3f | 1tuS&ssamJcANjSn*:eH""raT09X.]*? |
| 22ab60 | 43 35 64 3b 65 2a 6a 72 55 5e 26 3e 7e 3e 0a 6e 2c 46 22 21 70 75 4b 26 72 6c 2f 43 40 45 62 2c | C5d;e*jrU^&>~>.n,F"!puK&rl/C@Eb, |
| 22ab80 | 5f 68 6e 66 26 23 4e 50 6c 32 39 6c 4a 6d 4a 5a 3e 59 5b 5f 37 45 2e 3e 65 61 6e 31 6d 57 21 3a | _hnf&#NPl29lJmJZ>Y[_7E.>ean1mW!: |
| 22aba0 | 48 72 72 33 51 2b 6d 29 59 6a 64 6a 50 38 38 35 67 3e 56 3b 2b 5a 4a 62 4b 56 0a 6c 4d 68 5a 51 | Hrr3Q+m)YjdjP885g>V;+ZJbKV.lMhZQ |
| 22abc0 | 73 38 52 2e 5d 72 55 61 63 74 6c 66 5b 30 57 63 65 25 28 3b 6c 57 40 68 3e 46 2a 25 42 59 45 72 | s8R.]rUactlf[0Wce%(;lW@h>F*%BYEr |
| 22abe0 | 6c 3c 66 72 3b 53 50 4e 6f 40 54 71 6e 6b 68 74 2b 3f 5e 52 31 6b 2d 56 2e 59 71 34 64 62 3c 5b | l<fr;SPNo@Tqnkht+?^R1k-V.Yq4db<[ |
| 22ac00 | 45 5d 3c 67 47 68 0a 71 21 36 25 6b 6d 48 2a 30 53 63 29 66 25 38 66 40 25 64 27 61 6a 53 6f 25 | E]<gGh.q!6%kmH*0Sc)f%8f@%d'ajSo% |
| 22ac20 | 6c 2b 3d 3a 5c 70 5c 74 30 6c 26 2c 75 3d 5d 5a 46 66 41 5b 67 3d 22 33 70 67 75 52 68 66 6d 4a | l+=:\p\t0l&,u=]ZFfA[g="3pguRhfmJ |
| 22ac40 | 63 47 50 6c 4d 67 26 49 6b 35 61 5a 44 6a 38 65 36 3d 0a 69 3c 4a 42 2c 61 43 21 6c 49 72 55 5e | cGPlMg&Ik5aZDj8e6=.i<JB,aC!lIrU^ |
| 22ac60 | 26 3e 7e 3e 0a 6e 2c 46 22 21 70 75 4b 27 2f 5d 56 5f 24 72 61 69 32 39 2f 54 3a 45 2d 70 5d 5f | &>~>.n,F"!puK'/]V_$rai29/T:E-p]_ |
| 22ac80 | 6f 5c 4a 61 38 4f 33 69 61 4d 6b 6a 22 5a 62 4f 33 35 6d 60 3c 4e 4c 72 72 33 51 2b 6d 29 5a 48 | o\Ja8O3iaMkj"ZbO35m`<NLrr3Q+m)ZH |
| 22aca0 | 4d 58 64 3e 66 60 52 26 37 4f 38 5a 4a 62 4b 56 0a 6c 4d 68 5b 49 73 38 55 36 61 72 55 64 6b 21 | MXd>f`R&7O8ZJbKV.lMh[Is8U6arUdk! |
| 22acc0 | 62 64 46 28 35 5b 25 33 65 72 62 63 6e 6b 26 62 30 27 62 5d 61 6f 56 50 30 72 3b 53 50 4e 6f 40 | bdF(5[%3erbcnk&b0'b]aoVP0r;SPNo@ |
| 22ace0 | 54 71 60 5c 22 54 3a 72 61 4d 59 73 3a 60 34 57 74 30 58 2d 66 63 73 5f 52 26 31 6f 0a 71 21 36 | Tq`\"T:raMYs:`4Wt0X-fcs_R&1o.q!6 |
| 22ad00 | 26 23 61 30 3b 23 2b 5d 23 44 67 6d 53 5a 42 6f 4d 62 2c 5e 6f 2c 5d 59 5f 23 36 70 5c 74 30 6c | &#a0;#+]#DgmSZBoMb,^o,]Y_#6p\t0l |
| 22ad20 | 26 2c 75 3d 5d 5a 47 58 3e 50 51 60 49 69 71 51 60 5c 33 4d 61 38 58 21 57 5e 5d 28 6e 46 5b 2f | &,u=]ZGX>PQ`IiqQ`\3Ma8X!W^](nF[/ |
| 22ad40 | 64 4e 33 58 54 35 46 23 0a 56 3f 58 30 36 62 64 51 48 6c 72 55 5e 26 3e 7e 3e 0a 6d 66 2a 6a 70 | dN3XT5F#.V?X06bdQHlrU^&>~>.mf*jp |
| 22ad60 | 6d 2a 28 37 50 63 28 54 69 3a 45 47 42 24 2a 4c 53 3a 75 62 72 35 65 72 60 72 52 4c 72 2b 2a 55 | m*(7Pc(Ti:EGB$*LS:ubr5er`rRLr+*U |
| 22ad80 | 3c 28 4e 59 27 49 53 2b 49 59 2e 49 72 73 38 56 72 5d 60 69 26 2b 44 52 74 48 2a 4d 5d 26 3a 45 | <(NY'IS+IY.Irs8Vr]`i&+DRtH*M]&:E |
| 22ada0 | 33 69 56 33 3f 36 0a 72 74 43 2b 62 6f 5b 6f 6f 2c 65 5a 3d 55 4d 4d 36 23 31 71 43 33 6b 4a 62 | 3iV3?6.rtC+bo[oo,eZ=UMM6#1qC3kJb |
| 22adc0 | 4c 26 5f 28 29 73 38 4e 29 4d 72 3b 53 50 4c 6e 27 40 54 6e 64 41 44 5c 3f 40 39 64 44 65 44 64 | L&_()s8N)Mr;SPLn'@TndAD\?@9dDeDd |
| 22ade0 | 36 31 4e 47 44 69 60 5a 69 32 35 2f 74 6f 5d 21 45 6b 0a 6a 4d 36 74 2e 43 4e 22 54 5e 58 2c 71 | 61NGDi`Zi25/to]!Ek.jM6t.CN"T^X,q |
| 22ae00 | 5e 42 41 39 57 73 3a 67 23 2f 6a 61 70 26 34 6d 69 26 2c 75 3a 5b 59 4a 5d 3b 31 4f 46 31 62 5c | ^BA9Ws:g#/jap&4mi&,u:[YJ];1OF1b\ |
| 22ae20 | 4a 74 27 6d 34 63 32 50 66 62 5f 23 43 74 46 58 38 6f 2d 73 52 66 4a 60 50 4f 39 56 42 26 0a 6d | Jt'm4c2Pfb_#CtFX8o-sRfJ`PO9VB&.m |
| 22ae40 | 3e 42 48 3b 72 3a 42 72 3d 7e 3e 0a 6d 66 2a 6a 70 6d 2a 27 5f 41 6a 6b 5c 4a 37 63 2d 2a 69 48 | >BH;r:Br=~>.mf*jpm*'_Ajk\J7c-*iH |
| 22ae60 | 66 25 6f 39 43 72 38 5b 6b 3e 72 54 46 34 46 73 36 4c 5d 58 56 4a 33 54 68 43 69 4b 3a 4e 73 38 | f%o9Cr8[k>rTF4Fs6L]XVJ3ThCiK:Ns8 |
| 22ae80 | 56 72 5d 60 68 3b 5c 5a 67 73 6a 64 2b 69 54 5b 6b 5a 69 56 33 3f 36 0a 72 74 42 4a 50 6f 5b 6f | Vr]`h;\Zgsjd+iT[kZiV3?6.rtBJPo[o |
| 22aea0 | 6f 28 6b 4d 4f 6e 3b 66 41 47 63 57 3d 44 32 59 70 46 38 75 2f 5a 73 38 4e 29 47 72 3b 53 50 4c | o(kMOn;fAGcW=D2YpF8u/Zs8N)Gr;SPL |
| 22aec0 | 6e 27 40 4b 69 6b 32 2b 5c 37 5a 5f 62 55 64 62 62 5d 73 2b 64 2b 49 3a 3f 66 72 21 45 6d 6f 5d | n'@Kik2+\7Z_bUdbb]s+d+I:?fr!Emo] |
| 22aee0 | 21 45 62 0a 6c 4a 67 4f 48 62 4b 53 44 67 68 71 48 4e 24 5e 3c 6b 4e 6a 6b 68 32 72 69 70 26 34 | !Eb.lJgOHbKSDghqHN$^<kNjkh2rip&4 |
| 22af00 | 6d 69 26 2c 75 3a 5b 59 49 60 75 57 67 3d 22 2d 66 65 44 30 2d 4a 6a 6f 34 3c 40 69 72 37 70 39 | mi&,u:[YI`uWg="-feD0-Jjo4<@ir7p9 |
| 22af20 | 68 5a 32 4f 34 67 5d 36 2b 2d 67 27 36 42 70 0a 6d 3c 5b 3d 25 72 3a 42 72 3d 7e 3e 0a 6d 66 2a | hZ2O4g]6+-g'6Bp.m<[=%r:Br=~>.mf* |
| 22af40 | 6a 70 6d 2a 2a 26 5d 59 61 56 38 67 5d 3e 68 71 24 53 73 6c 40 4d 72 32 66 74 27 72 4f 29 5b 3c | jpm**&]YaV8g]>hq$Ssl@Mr2ft'rO)[< |
| 22af60 | 2a 51 36 2b 45 5b 5e 45 5a 6f 5f 6f 4d 5a 52 73 38 56 72 5d 60 6a 21 43 60 51 5f 55 55 4b 56 53 | *Q6+E[^EZo_oMZRs8Vr]`j!C`Q_UUKVS |
| 22af80 | 27 70 55 69 56 33 3f 36 0a 72 74 45 51 52 6f 5b 6f 6e 5e 5b 40 60 74 72 53 59 21 37 35 59 65 53 | 'pUiV3?6.rtEQRo[on^[@`trSY!75YeS |
| 22afa0 | 36 24 62 35 5f 43 5e 73 38 4e 29 64 72 3b 53 50 4c 6e 27 40 63 4f 5a 43 49 4d 71 60 6c 2d 21 2b | 6$b5_C^s8N)dr;SPLn'@cOZCIMq`l-!+ |
| 22afc0 | 5e 56 6d 71 2f 5a 28 25 47 72 62 47 4e 71 5f 6f 5d 21 45 70 0a 5e 53 6d 48 73 60 50 38 49 40 53 | ^Vmq/Z(%GrbGNq_o]!Ep.^SmHs`P8I@S |
| 22afe0 | 73 5a 53 24 61 4b 5f 35 2e 5c 27 31 69 2b 70 26 34 6d 69 26 2c 75 3a 5b 59 4a 52 72 4c 51 60 4a | sZS$aK_5.\'1i+p&4mi&,u:[YJRrLQ`J |
| 22b000 | 36 42 55 52 2f 2a 6a 59 6c 3a 61 29 57 3b 60 5b 6e 54 29 62 44 5c 51 4e 33 3c 4c 51 4e 69 6e 5f | 6BUR/*jYl:a)W;`[nT)bD\QN3<LQNin_ |
| 22b020 | 0a 61 31 54 73 5f 72 3a 42 72 3d 7e 3e 0a 6d 66 2a 6a 73 6f 5c 58 57 2a 69 34 6b 71 46 4b 6d 6e | .a1Ts_r:Br=~>.mf*jso\XW*i4kqFKmn |
| 22b040 | 35 63 46 2b 6f 52 37 72 30 6d 5c 5b 72 4e 2d 25 32 2a 51 63 5e 5e 6b 4f 2c 6d 56 46 46 3c 54 53 | 5cF+oR7r0m\[rN-%2*Qc^^kO,mVFF<TS |
| 22b060 | 72 72 32 63 5b 60 69 26 2b 44 52 74 48 2a 4d 5d 26 3a 45 33 69 56 33 3f 36 0a 72 74 4c 31 63 6f | rr2c[`i&+DRtH*M]&:E3iV3?6.rtL1co |
| 22b080 | 5b 6f 6f 2c 65 5a 3d 55 4d 4d 36 23 31 71 43 33 6b 4a 62 4c 26 5f 32 4f 4c 26 5f 2f 51 66 29 3e | [oo,eZ=UMM6#1qC3kJbL&_2OL&_/Qf)> |
| 22b0a0 | 56 29 72 71 59 66 72 56 3c 5a 30 6c 4b 35 59 22 2c 48 26 37 2c 6b 3e 5b 56 57 2e 56 55 3d 68 27 | V)rqYfrV<Z0lK5Y",H&7,k>[VW.VU=h' |
| 22b0c0 | 63 67 3a 29 4f 0a 56 56 70 2e 34 4e 2d 4b 38 67 4f 4c 68 46 26 4f 46 31 62 62 4d 36 23 31 71 54 | cg:)O.VVp.4N-K8gOLhF&OF1bbM6#1qT |
| 22b0e0 | 40 45 48 30 72 72 33 4e 2e 70 22 5a 53 2a 66 73 2d 4b 5c 41 52 27 2f 2a 53 23 69 3d 5f 52 66 4a | @EH0rr3N.p"ZS*fs-K\AR'/*S#i=_RfJ |
| 22b100 | 5a 4f 4f 54 28 28 3a 4c 5d 32 6f 2b 4a 47 73 70 24 0a 4a 73 73 64 47 51 64 45 6e 51 6f 44 61 3d | ZOOT((:L]2o+JGsp$.JssdGQdEnQoDa= |
| 22b120 | 7e 3e 0a 6d 66 2a 6a 73 6f 5c 58 23 63 6c 2f 4c 4f 50 65 5e 44 67 68 63 49 4c 53 24 72 37 68 3b | ~>.mf*jso\X#cl/LOPe^DghcILS$r7h; |
| 22b140 | 2e 72 53 52 59 36 2a 54 5a 41 48 6c 67 31 6d 50 40 71 74 4e 30 72 72 32 63 5b 60 68 3b 5c 5a 67 | .rSRY6*TZAHlg1mP@qtN0rr2c[`h;\Zg |
| 22b160 | 73 6a 64 2b 69 54 5b 6b 5a 69 56 33 3f 36 0a 72 74 4b 50 51 6f 5b 6f 6f 28 6b 4d 4f 6e 3b 66 41 | sjd+iT[kZiV3?6.rtKPQo[oo(kMOn;fA |
| 22b180 | 47 63 57 3d 44 32 59 70 46 38 75 3a 3d 46 38 75 37 3f 64 2f 45 75 23 72 71 59 66 72 54 27 59 4f | GcW=D2YpF8u:=F8u7?d/Eu#rqYfrT'YO |
| 22b1a0 | 6e 65 42 46 66 2e 64 46 5a 6d 6c 56 36 53 3d 73 68 57 46 30 6f 63 67 3a 29 4f 0a 56 56 31 31 6b | neBFf.dFZmlV6S=shWF0ocg:)O.VV11k |
| 22b1c0 | 66 5b 2e 6a 6a 67 3e 54 2a 6b 67 3d 22 2d 69 66 41 47 63 57 54 40 45 48 30 72 72 33 4e 2e 70 22 | f[.jjg>T*kg="-ifAGcWT@EH0rr3N.p" |
| 22b1e0 | 5a 53 23 6b 68 74 2b 3f 5e 53 54 30 28 67 75 24 72 65 68 23 35 74 2b 66 29 58 44 24 65 2c 5b 74 | ZS#kht+?^ST0(gu$reh#5t+f)XD$e,[t |
| 22b200 | 73 64 4b 65 3a 57 0a 6a 51 71 60 4d 60 3b 4b 36 2c 4a 2c 7e 3e 0a 6d 66 2a 67 72 6f 5c 5b 2b 22 | sdKe:W.jQq`M`;K6,J,~>.mf*gro\[+" |
| 22b220 | 5d 56 71 39 65 54 72 3e 36 2e 5c 22 54 3b 67 51 4e 33 4b 51 54 44 74 63 2f 58 67 35 46 51 62 2e | ]Vq9eTr>6.\"T;gQN3KQTDtc/Xg5FQb. |
| 22b240 | 6a 61 60 5f 3d 37 3d 23 72 71 62 73 23 59 66 2a 5a 31 55 54 39 63 5a 5d 5a 2e 3e 3b 70 5c 73 3d | ja`_=7=#rqbs#Yf*Z1UT9cZ]Z.>;p\s= |
| 22b260 | 54 0a 27 5b 24 43 48 66 56 36 54 74 54 3a 45 39 5a 54 21 63 65 48 5e 57 34 4c 3e 73 38 57 26 3f | T.'[$CHfV6TtT:E9ZT!ceH^W4L>s8W&? |
| 22b280 | 73 38 4e 29 64 72 56 6e 5c 51 71 3c 3e 66 22 60 33 23 42 24 5e 3b 5c 33 73 53 59 4e 70 3b 60 6a | s8N)drVn\Qq<>f"`3#B$^;\3sSYNp;`j |
| 22b2a0 | 68 59 32 5a 48 38 69 65 6d 2d 60 4b 26 0a 62 64 58 3a 38 5a 2b 6d 3f 2c 56 51 48 5f 5f 58 33 2e | hY2ZH8iem-`K&.bdX:8Z+m?,VQH__X3. |
| 22b2c0 | 66 3f 54 21 63 65 37 65 46 4e 50 3a 72 74 23 2c 25 67 6f 41 54 2d 54 70 72 3d 2e 60 34 69 22 35 | f?T!ce7eFNP:rt#,%goAT-Tpr=.`4i"5 |
| 22b2e0 | 54 3a 35 62 47 21 31 2a 56 4e 72 67 57 74 5b 72 68 42 49 69 72 69 36 3a 21 0a 51 60 5c 33 40 64 | T:5bG!1*VNrgWt[rhBIiri6:!.Q`\3@d |
| 22b300 | 2c 46 6f 6f 73 2a 74 7e 3e 0a 6d 66 2a 61 71 71 58 2f 57 47 5f 57 38 74 4d 54 54 59 34 65 4b 29 | ,Foos*t~>.mf*aqqX/WG_W8tMTTY4eK) |
| 22b320 | 55 2f 71 4b 29 67 57 28 4d 3e 72 59 58 53 23 33 49 2f 64 48 27 35 3f 45 6e 67 27 5a 72 56 47 6a | U/qK)gW(M>rYXS#3I/dH'5?Eng'ZrVGj |
| 22b340 | 22 56 73 3b 42 6e 4b 37 26 63 6c 69 35 29 65 5a 70 5c 73 3d 54 0a 27 53 5a 4d 58 66 56 37 69 62 | "Vs;BnK7&cli5)eZp\s=T.'SZMXfV7ib |
| 22b360 | 58 47 4d 28 56 58 34 3f 5a 52 48 40 67 67 28 73 38 57 25 4f 73 38 4e 29 4d 72 56 6e 5c 51 70 3e | XGM(VX4?ZRH@gg(s8W%Os8N)MrVn\Qp> |
| 22b380 | 4e 45 74 69 34 47 28 75 43 32 5c 42 58 55 6d 63 6d 52 3e 5d 35 34 5f 61 51 66 53 3c 6a 51 3d 4f | NEti4G(uC2\BXUmcmR>]54_aQfS<jQ=O |
| 22b3a0 | 56 0a 6d 45 4d 3e 59 45 49 3c 6b 5a 69 2e 4a 3b 48 4f 46 32 26 25 54 5a 75 6b 74 62 6a 50 42 2d | V.mEM>YEI<kZi.J;HOF2&%TZuktbjPB- |
| 22b3c0 | 72 74 23 29 24 67 38 3d 3e 68 58 47 4d 28 30 3b 2d 5c 24 6c 4d 31 74 71 5d 21 2e 4f 6f 70 73 29 | rt#)$g8=>hXGM(0;-\$lM1tq]!.Oops) |
| 22b3e0 | 6e 3c 67 21 2e 62 27 23 72 65 55 69 4a 0a 63 30 43 5c 46 62 50 5e 75 33 4a 2c 7e 3e 0a 6d 66 2a | n<g!.b'#reUiJ.c0C\FbP^u3J,~>.mf* |
| 22b400 | 61 71 71 58 2f 21 23 5c 2a 45 29 36 68 3a 67 4e 33 65 47 64 6e 6f 65 2c 5c 25 74 66 44 6a 50 46 | aqqX/!#\*E)6h:gN3eGdnoe,\%tfDjPF |
| 22b420 | 67 74 70 75 4c 6b 33 43 57 44 40 2c 28 2f 48 72 56 47 6a 22 54 5e 3a 61 70 65 43 2a 28 30 6c 2b | gtpuLk3CWD@,(/HrVGj"T^:apeC*(0l+ |
| 22b440 | 22 2b 5a 70 5c 73 3d 54 0a 27 51 61 36 46 66 56 37 5d 70 68 71 2d 33 2b 68 72 6a 3c 2d 42 51 2f | "+Zp\s=T.'Qa6FfV7]phq-3+hrj<-BQ/ |
| 22b460 | 24 36 73 38 57 25 3d 73 38 4e 29 47 72 56 6e 5c 51 70 3e 4e 45 6c 6c 2f 43 40 45 62 4b 53 41 65 | $6s8W%=s8N)GrVn\Qp>NEll/C@EbKSAe |
| 22b480 | 62 68 55 5e 6c 56 39 49 48 45 6a 51 72 4a 54 6a 51 3d 4f 51 0a 6d 48 2a 30 53 63 2d 6b 3e 29 6c | bhU^lV9IHEjQrJTjQ=OQ.mH*0Sc-k>)l |
| 22b4a0 | 24 27 3e 69 67 3d 22 36 72 68 3c 22 24 70 62 6a 50 42 2d 72 74 23 29 24 67 38 3d 33 21 68 71 2d | $'>ig="6rh<"$pbjPB-rt#)$g8=3!hq- |
| 22b4c0 | 32 62 49 5c 6b 39 3c 66 40 42 6c 4d 21 37 55 71 71 73 33 4c 5c 6d 21 37 55 71 73 72 6d 71 41 30 | 2bI\k9<f@BlM!7Uqqs3L\m!7UqsrmqA0 |
| 22b4e0 | 0a 6a 6d 37 69 51 60 56 66 3f 2d 4a 2c 7e 3e 0a 6d 66 2a 61 71 71 58 32 29 27 61 68 50 27 54 52 | .jm7iQ`Vf?-J,~>.mf*aqqX2)'ahP'TR |
| 22b500 | 5b 30 47 3a 55 5d 2e 3d 6c 55 42 25 22 64 53 47 6e 69 70 53 3e 21 21 68 5e 57 61 36 74 67 5b 47 | [0G:U].=lUB%"dSGnipS>!!h^Wa6tg[G |
| 22b520 | 22 3b 71 57 6c 2f 2a 60 33 23 42 24 58 2d 66 63 73 60 6a 46 5f 21 72 6f 58 34 70 0a 62 35 4c 74 | ";qWl/*`3#B$X-fcs`jF_!roX4p.b5Lt |
| 22b540 | 62 55 3c 4c 24 3b 53 40 22 69 59 5b 45 50 6b 69 61 33 29 52 29 73 38 43 2b 3f 72 72 44 48 62 73 | bU<L$;S@"iY[EPkia3)R)s8C+?rrDHbs |
| 22b560 | 22 6a 5a 4a 69 4f 2d 53 39 56 4f 2b 40 27 5e 54 4e 75 72 51 5f 56 3a 35 5e 53 40 2d 74 60 33 2d | "jZJiO-S9VO+@'^TNurQ_V:5^S@-t`3- |
| 22b580 | 75 3c 6b 2f 61 4c 41 0a 59 61 56 38 73 58 2d 66 63 73 57 4f 2f 4f 68 58 31 50 27 6f 59 66 45 63 | u<k/aLA.YaV8sX-fcsWO/OhX1P'oYfEc |
| 22b5a0 | 66 6d 65 64 22 60 26 2c 6c 31 54 56 54 63 48 3f 53 40 24 3e 4f 60 34 69 22 3a 55 26 4c 65 65 57 | fmed"`&,l1TVTcH?S@$>O`4i":U&LeeW |
| 22b5c0 | 3b 60 6a 74 5b 2f 52 2a 2b 56 5a 2a 40 69 53 48 62 46 62 0a 60 34 73 64 5c 72 3a 42 72 3d 7e 3e | ;`jt[/R*+VZ*@iSHbFb.`4sd\r:Br=~> |
| 22b5e0 | 0a 6d 4a 64 5e 71 70 6a 5b 4f 2a 5c 61 41 34 74 5e 54 6a 48 23 4f 48 3e 43 75 4d 23 60 3e 31 4b | .mJd^qpj[O*\aA4t^TjH#OH>CuM#`>1K |
| 22b600 | 29 55 2d 3c 4b 38 35 44 4e 56 53 4c 6d 50 51 2b 47 66 42 71 59 42 48 73 56 57 75 39 6d 4b 37 26 | )U-<K85DNVSLmPQ+GfBqYBHsVWu9mK7& |
| 22b620 | 63 6c 69 35 29 65 5b 70 5c 73 3d 54 0a 27 53 5a 4d 58 66 56 37 69 62 58 47 4d 28 56 58 34 3f 5a | cli5)e[p\s=T.'SZMXfV7ibXGM(VX4?Z |
| 22b640 | 52 48 40 67 67 28 73 38 57 25 4f 73 38 4e 29 4d 72 56 6f 3d 62 6f 25 30 5f 72 66 73 2d 4b 5c 44 | RH@gg(s8W%Os8N)MrVo=bo%0_rfs-K\D |
| 22b660 | 67 40 41 4f 52 25 70 2e 26 44 65 4f 4e 5b 5d 26 3a 4e 36 67 22 4e 70 46 0a 6a 4d 36 74 2e 49 23 | g@AOR%p.&DeON[]&:N6g"NpF.jM6t.I# |
| 22b680 | 74 71 74 6e 51 21 3c 5d 5d 39 25 44 6c 52 60 4f 63 69 5f 57 67 70 72 73 38 57 26 69 66 71 5c 23 | tqtnQ!<]]9%DlR`Oci_Wgprs8W&ifq\# |
| 22b6a0 | 64 58 47 4d 28 30 3b 2d 5c 24 5e 48 32 60 33 6a 4a 63 4c 4e 28 4d 3e 69 53 3a 51 32 5b 36 4f 57 | dXGM(0;-\$^H2`3jJcLN(M>iS:Q2[6OW |
| 22b6c0 | 73 36 30 26 0a 6f 50 57 49 30 72 55 5e 26 3e 7e 3e 0a 6d 4a 64 5e 71 70 68 61 56 4a 5a 30 67 63 | s60&.oPWI0rU^&>~>.mJd^qphaVJZ0gc |
| 22b6e0 | 3a 69 6f 26 59 4a 67 3d 6b 33 57 66 29 58 44 24 65 47 64 6c 3a 65 43 4e 3a 2c 68 57 21 62 64 4c | :io&YJg=k3Wf)XD$eGdl:eCN:,hW!bdL |
| 22b700 | 55 75 3d 34 71 59 42 48 73 54 5e 3a 61 70 65 43 2a 28 30 6c 2b 22 2b 5b 70 5c 73 3d 54 0a 27 51 | Uu=4qYBHsT^:apeC*(0l+"+[p\s=T.'Q |
| 22b720 | 61 36 46 66 56 37 5d 70 68 71 2d 33 2b 68 72 6a 3c 2d 42 51 2f 24 36 73 38 57 25 3d 73 38 4e 29 | a6FfV7]phq-3+hrj<-BQ/$6s8W%=s8N) |
| 22b740 | 47 72 56 6f 3d 62 6f 25 30 5f 6b 6b 68 74 2b 3f 62 67 47 2c 26 52 26 66 23 6c 62 66 53 3b 65 69 | GrVo=bo%0_kkht+?bgG,&R&f#lbfS;ei |
| 22b760 | 54 5c 22 5e 67 22 4e 70 3d 0a 6c 4a 67 4f 48 64 62 3c 5b 45 6c 39 71 75 43 69 53 29 60 30 67 75 | T\"^g"Np=.lJgOHdb<[El9quCiS)`0gu |
| 22b780 | 52 67 6d 5f 57 67 70 72 73 38 57 26 69 66 71 5b 6c 72 68 71 2d 32 62 49 5c 6b 39 37 64 4a 68 53 | Rgm_Wgprs8W&ifq[lrhq-2bI\k97dJhS |
| 22b7a0 | 6e 65 2c 5c 25 75 66 44 61 4a 28 67 5d 24 22 2d 68 5a 69 27 2c 0a 6c 57 69 35 64 72 55 5e 26 3e | ne,\%ufDaJ(g]$"-hZi',.lWi5drU^&> |
| 22b7c0 | 7e 3e 0a 6d 4a 64 5e 71 70 72 27 6b 50 5e 3b 6d 67 68 57 31 66 5a 48 52 24 61 42 40 53 48 2c 3b | ~>.mJd^qpr'kP^;mghW1fZHR$aB@SH,; |
| 22b7e0 | 5d 55 5d 2e 3b 37 55 52 6d 73 3f 53 3e 60 70 3b 5d 74 33 25 6a 71 59 42 48 73 59 4a 64 51 30 55 | ]U].;7URms?S>`p;]t3%jqYBHsYJdQ0U |
| 22b800 | 54 39 63 5a 5d 5a 2e 3e 3c 70 5c 73 3d 54 0a 27 5b 24 43 48 66 56 36 54 74 54 3a 45 39 5a 54 21 | T9cZ]Z.><p\s=T.'[$CHfV6TtT:E9ZT! |
| 22b820 | 63 65 48 5e 57 34 4c 3e 73 38 57 26 3f 73 38 4e 29 64 72 56 6f 3d 62 6f 25 30 5f 5d 5c 22 54 3a | ceH^W4L>s8W&?s8N)drVo=bo%0_]\"T: |
| 22b840 | 72 5e 54 4f 21 22 56 35 5d 66 56 5e 3c 33 4c 44 56 53 27 67 52 67 22 4e 70 4b 0a 5e 53 6d 48 73 | r^TO!"V5]fV^<3LDVS'gRg"NpK.^SmHs |
| 22b860 | 58 2d 66 63 73 65 3d 34 46 69 56 4f 2b 3f 59 51 60 5c 33 2e 5f 57 67 70 72 73 38 57 26 69 66 71 | X-fcse=4FiVO+?YQ`\3._Wgprs8W&ifq |
| 22b880 | 5a 64 21 54 3a 45 3a 2f 5e 56 6d 6d 6f 59 35 59 4c 24 55 42 25 22 65 53 63 34 75 56 51 32 5b 2d | Zd!T:E:/^VmmoY5YL$UB%"eSc4uVQ2[- |
| 22b8a0 | 4c 53 64 29 28 34 0a 67 70 3e 65 74 72 55 5e 26 3e 7e 3e 0a 6d 2f 49 52 6f 4b 37 41 30 55 4c 3d | LSd)(4.gp>etrU^&>~>.m/IRoK7A0UL= |
| 22b8c0 | 23 3e 4b 67 21 2e 55 4c 5d 21 3b 31 36 21 32 66 61 61 2b 48 56 56 3d 48 75 6a 4f 5f 4c 51 66 21 | #>Kg!.UL]!;16!2faa+HVV=HujO_LQf! |
| 22b8e0 | 66 6c 44 5f 56 5c 70 25 5b 67 6c 56 57 75 39 6d 4b 37 26 63 6c 69 35 29 65 5b 70 5c 73 3d 54 0a | flD_V\p%[glVWu9mK7&cli5)e[p\s=T. |
| 22b900 | 27 53 5a 4d 58 66 56 37 69 62 58 47 4d 28 56 58 34 3f 5a 52 48 40 67 67 28 73 38 57 25 4f 73 38 | 'SZMXfV7ibXGM(VX4?ZRH@gg(s8W%Os8 |
| 22b920 | 4e 29 4d 72 56 6f 3d 60 6d 45 3b 36 6b 63 28 54 69 32 48 26 66 3e 68 4b 72 32 74 5d 4a 6f 3e 6a | N)MrVo=`mE;6kc(Ti2H&f>hKr2t]Jo>j |
| 22b940 | 6b 5a 2e 5c 27 32 62 66 63 64 3e 0a 66 73 2d 4b 5c 4a 73 73 64 47 5f 2d 4e 26 63 61 64 5b 70 31 | kZ.\'2bfcd>.fs-K\JssdG_-N&cad[p1 |
| 22b960 | 4f 4c 6a 41 67 5c 45 21 41 60 73 38 57 26 69 66 56 37 69 62 58 47 4d 28 30 3e 5d 35 34 4e 4e 72 | OLjAg\E!A`s8W&ifV7ibXGM(0>]54NNr |
| 22b980 | 47 2e 3e 52 4b 30 23 5b 58 38 5d 5b 31 60 3b 5b 6a 57 65 48 58 74 21 0a 51 5a 5f 4e 3e 72 71 24 | G.>RK0#[X8][1`;[jWeHXt!.QZ_N>rq$ |
| 22b9a0 | 2f 3f 7e 3e 0a 6d 2f 49 52 6f 45 47 5d 3f 74 47 4b 39 2b 39 6b 69 4c 6d 61 69 53 61 58 6b 21 38 | /?~>.m/IRoEG]?tGK9+9kiLmaiSaXk!8 |
| 22b9c0 | 64 5f 31 2b 50 50 4e 22 64 61 24 34 67 66 25 54 27 44 6d 25 5f 44 58 70 25 5b 67 6c 54 5e 3a 61 | d_1+PPN"da$4gf%T'Dm%_DXp%[glT^:a |
| 22b9e0 | 70 65 43 2a 28 30 6c 2b 22 2b 5b 70 5c 73 3d 54 0a 27 51 61 36 46 66 56 37 5d 70 68 71 2d 33 2b | peC*(0l+"+[p\s=T.'Qa6FfV7]phq-3+ |
| 22ba00 | 68 72 6a 3c 2d 42 51 2f 24 36 73 38 57 25 3d 73 38 4e 29 47 72 56 6f 3d 60 6d 45 3b 27 66 6a 6b | hrj<-BQ/$6s8W%=s8N)GrVo=`mE;'fjk |
| 22ba20 | 5c 4a 33 64 46 6d 4c 42 48 43 6a 33 51 65 42 48 3a 6c 69 39 38 6a 69 62 66 63 64 37 0a 6b 68 74 | \J3dFmLBHCj3QeBH:li98jibfcd7.kht |
| 22ba40 | 2b 3f 65 44 30 2d 4f 5c 34 68 44 3d 6a 50 38 38 35 67 3e 56 3b 2f 5c 45 21 41 60 73 38 57 26 69 | +?eD0-O\4hD=jP885g>V;/\E!A`s8W&i |
| 22ba60 | 66 56 37 5d 70 68 71 2d 32 62 56 39 49 48 40 67 26 42 5f 29 67 5d 36 31 30 68 75 3b 52 37 6a 38 | fV7]phq-2bV9IH@g&B_)g]610hu;R7j8 |
| 22ba80 | 53 2d 3d 6b 36 43 32 3c 0a 4d 2e 3e 62 6d 72 71 24 2f 3f 7e 3e 0a 6d 2f 49 52 6f 61 4d 62 67 25 | S-=k6C2<.M.>bmrq$/?~>.m/IRoaMbg% |
| 22baa0 | 5c 5d 60 25 2e 5c 24 33 21 33 56 50 33 70 5a 21 31 61 25 54 2b 49 4a 52 68 58 31 2c 40 31 53 73 | \]`%.\$3!3VP3pZ!1a%T+IJRhX1,@1Ss |
| 22bac0 | 48 28 53 60 33 52 35 3f 70 25 5b 67 6c 59 4a 64 51 30 55 54 39 63 5a 5d 5a 2e 3e 3c 70 5c 73 3d | H(S`3R5?p%[glYJdQ0UT9cZ]Z.><p\s= |
| 22bae0 | 54 0a 27 5b 24 43 48 66 56 36 54 74 54 3a 45 39 5a 54 21 63 65 48 5e 57 34 4c 3e 73 38 57 26 3f | T.'[$CHfV6TtT:E9ZT!ceH^W4L>s8W&? |
| 22bb00 | 73 38 4e 29 64 72 56 6f 3d 60 6d 45 3b 4e 4d 59 61 56 38 73 59 2a 6c 26 72 56 36 6d 40 6b 55 56 | s8N)drVo=`mE;NMYaV8sY*l&rV6m@kUV |
| 22bb20 | 3d 22 26 54 73 72 37 41 62 66 63 64 2a 0a 5c 22 54 3a 72 55 52 2f 2b 24 5f 6b 58 57 58 58 64 3e | ="&Tsr7Abfcd*.\"T:rUR/+$_kXWXXd> |
| 22bb40 | 66 60 52 26 37 4f 36 5c 45 21 41 60 73 38 57 26 69 66 56 36 54 74 54 3a 45 3a 2f 60 34 72 28 3c | f`R&7O6\E!A`s8W&ifV6TtT:E:/`4r(< |
| 22bb60 | 52 4a 72 54 51 51 4e 33 4b 52 54 29 50 53 65 58 38 5d 37 23 5b 30 46 3a 61 0a 5e 55 69 58 6d 72 | RJrTQQN3KRT)PSeX8]7#[0F:a.^UiXmr |
| 22bb80 | 71 24 2f 3f 7e 3e 0a 6c 69 2e 45 49 4b 37 4d 67 24 44 4d 47 5b 5a 6d 48 57 57 66 67 26 30 41 23 | q$/?~>.li.EIK7Mg$DMG[ZmHWWfg&0A# |
| 22bba0 | 64 4a 68 33 30 5d 21 65 4a 74 48 74 5b 41 3c 49 5a 31 2f 4f 68 50 4a 54 63 70 24 27 47 6c 6c 48 | dJh30]!eJtHt[A<IZ1/OhPJTcp$'GllH |
| 22bbc0 | 2c 4e 4a 49 23 74 71 74 5f 36 72 3a 73 72 6f 58 34 70 0a 4c 26 4c 59 72 55 40 36 58 36 4d 30 34 | ,NJI#tqt_6r:sroX4p.L&LYrU@6X6M04 |
| 22bbe0 | 5a 55 65 61 49 37 21 4a 71 53 6a 58 73 38 40 5a 4f 72 72 43 58 4c 73 24 6d 22 5f 6a 68 37 65 5a | ZUeaI7!JqSjXs8@ZOrrCXLs$m"_jh7eZ |
| 22bc00 | 60 30 47 6a 75 4e 6a 64 64 35 3e 45 25 6a 68 52 74 47 64 3b 56 55 3d 68 22 5d 3d 3d 46 21 0a 63 | `0GjuNjdd5>E%jhRtGd;VU=h"]==F!.c |
| 22bc20 | 28 54 69 32 4a 73 73 64 47 53 37 52 69 4a 61 64 5b 70 2e 4e 6a 64 63 6a 58 50 4e 52 4a 73 38 57 | (Ti2JssdGS7RiJad[p.NjdcjXPNRJs8W |
| 22bc40 | 26 69 66 56 2e 63 61 58 47 4d 28 30 44 68 3d 46 59 5b 66 33 6c 3b 61 38 6a 4b 61 65 63 2b 4a 2c | &ifV.caXGM(0Dh=FY[f3l;a8jKaec+J, |
| 22bc60 | 6b 50 6a 63 47 6d 66 67 5b 65 0a 46 2b 21 54 2f 6f 29 46 34 7e 3e 0a 6c 69 2e 45 38 45 47 6a 57 | kPjcGmfg[e.F+!T/o)F4~>.li.E8EGjW |
| 22bc80 | 43 3e 5e 2a 46 2a 6d 48 6a 2a 25 6b 6b 73 54 44 6b 35 4f 48 41 69 3f 24 6b 30 64 60 54 65 5a 65 | C>^*F*mHj*%kksTDk5OHAi?$k0d`TeZe |
| 22bca0 | 28 45 4f 3e 67 38 21 24 5d 70 24 27 47 66 6d 2c 5a 73 4f 64 62 3c 5b 45 5c 40 28 3e 6a 72 6f 58 | (EO>g8!$]p$'Gfm,ZsOdb<[E\@(>jroX |
| 22bcc0 | 34 70 0a 46 38 62 61 60 55 3f 68 22 22 66 3f 60 28 2b 6b 4e 63 35 60 45 2d 24 2b 23 73 38 40 24 | 4p.F8ba`U?h""f?`(+kNc5`E-$+#s8@$ |
| 22bce0 | 3d 72 72 43 46 46 73 24 63 71 5e 6a 68 37 4d 56 6a 34 69 26 31 67 23 3b 2f 5b 39 37 48 36 67 67 | =rrCFFs$cq^jh7MVj4i&1g#;/[97H6gg |
| 22bd00 | 73 6a 58 23 68 57 46 30 6b 5d 3d 3d 36 71 0a 6a 6b 5c 4a 33 65 44 30 2d 4f 51 3b 60 4a 27 6a 50 | sjX#hWF0k]==6q.jk\J3eD0-OQ;`J'jP |
| 22bd20 | 38 38 34 67 23 3b 2f 3a 58 50 4e 52 4a 73 38 57 26 69 66 56 2e 57 6f 68 71 2d 32 62 62 67 62 47 | 884g#;/:XPNRJs8W&ifV.Wohq-2bbgbG |
| 22bd40 | 2a 72 53 64 62 3a 21 39 4f 34 43 72 6f 6a 46 4b 72 70 39 58 4d 22 68 66 31 6a 0a 43 40 66 61 41 | *rSdb:!9O4CrojFKrp9XM"hf1j.C@faA |
| 22bd60 | 73 2a 74 7e 3e 0a 6c 69 2e 46 3a 61 4d 6d 23 49 5b 28 33 6c 6f 61 32 47 58 27 5c 2c 3c 57 36 5a | s*t~>.li.F:aMm#I[(3loa2GX'\,<W6Z |
| 22bd80 | 4d 70 73 4b 56 50 42 5a 4b 58 33 2f 3b 67 57 31 30 3c 5f 60 69 40 44 50 70 24 27 48 21 60 33 23 | MpsKVPBZKX3/;gW10<_`i@DPp$'H!`3# |
| 22bda0 | 42 24 58 2d 66 63 73 60 6a 4f 68 23 72 6f 58 34 70 0a 62 35 4c 74 62 55 3c 4c 24 3b 53 40 22 69 | B$X-fcs`jOh#roX4p.b5LtbU<L$;S@"i |
| 22bdc0 | 59 5b 45 50 6b 69 61 33 29 52 29 73 38 43 2b 3f 72 72 44 48 63 73 24 6d 22 5f 6a 68 38 28 3d 58 | Y[EPkia3)R)s8C+?rrDHcs$m"_jh8(=X |
| 22bde0 | 2d 4b 4e 61 52 41 37 40 41 52 27 61 66 36 51 5f 56 27 5f 53 3f 67 38 2f 5d 3d 3d 5d 58 0a 59 61 | -KNaRA7@AR'af6Q_V'_S?g8/]==]X.Ya |
| 22be00 | 56 38 73 55 52 2f 2b 24 56 35 68 2c 46 58 64 3e 66 63 52 41 37 40 37 58 50 4e 52 4a 73 38 57 26 | V8sUR/+$V5h,FXd>fcRA7@7XPNRJs8W& |
| 22be20 | 69 66 56 2d 4e 73 54 3a 45 3a 2f 5e 53 40 2d 65 55 5d 2e 2e 69 58 54 35 55 29 5b 4a 6d 66 3d 5f | ifV-NsT:E:/^S@-eU]..iXT5U)[Jmf=_ |
| 22be40 | 5a 25 4c 51 62 51 59 74 74 0a 5c 5c 5b 6e 27 6f 29 46 34 7e 3e 0a 6c 69 37 21 3d 24 5c 5c 2f 25 | Z%LQbQYtt.\\[n'o)F4~>.li7!=$\\/% |
| 22be60 | 48 5a 6d 21 22 55 6d 2f 5e 32 69 3b 45 24 44 6d 66 29 4a 6f 69 38 29 65 6c 4f 46 31 62 4e 43 4f | HZm!"Um/^2i;E$Dmf)Joi8)elOF1bNCO |
| 22be80 | 56 47 5d 6a 4c 44 5c 56 6e 45 37 5d 63 6c 48 2c 4e 4a 49 23 74 71 74 5f 52 41 4d 22 72 6f 58 34 | VG]jLD\VnE7]clH,NJI#tqt_RAM"roX4 |
| 22bea0 | 70 0a 4c 26 4c 59 72 55 40 36 58 36 4d 30 34 5a 55 65 61 49 37 21 4a 71 53 6a 58 73 38 40 5a 4f | p.L&LYrU@6X6M04ZUeaI7!JqSjXs8@ZO |
| 22bec0 | 72 72 43 58 4c 73 24 6c 74 5a 67 6f 5c 75 5b 5b 5a 35 5a 61 51 2c 4d 6b 35 41 52 46 6f 56 58 47 | rrCXLs$ltZgo\u[[Z5ZaQ,Mk5ARFoVXG |
| 22bee0 | 4d 28 4f 52 60 4f 63 65 56 34 62 36 57 0a 5e 6c 73 34 72 50 2f 24 29 4b 50 41 46 68 21 65 5a 3d | M(OR`OceV4b6W.^ls4rP/$)KPAFh!eZ= |
| 22bf00 | 55 4d 4d 36 23 31 71 54 5b 69 57 32 73 38 57 26 68 65 58 6c 36 5b 58 47 4d 28 3c 4a 73 73 64 32 | UMM6#1qT[iW2s8W&heXl6[XGM(<Jssd2 |
| 22bf20 | 68 3e 5a 40 33 6c 32 5e 35 4e 6d 67 6d 3a 4e 5f 34 6d 30 59 51 43 44 5a 2c 0a 5d 51 5c 64 54 71 | h>Z@3l2^5Nmgm:N_4m0YQCDZ,.]Q\dTq |
| 22bf40 | 70 6b 39 3b 4a 2c 7e 3e 0a 6c 69 37 21 2b 24 5a 62 6c 56 42 6b 3d 6c 54 54 38 27 68 60 67 26 31 | pk9;J,~>.li7!+$ZblVBk=lTT8'h`g&1 |
| 22bf60 | 31 37 6c 6c 62 51 56 6b 32 47 25 42 62 2d 54 3a 3e 67 3e 5f 44 25 5c 29 36 5d 3c 5f 6b 2d 35 55 | 17llbQVk2G%Bb-T:>g>_D%\)6]<_k-5U |
| 22bf80 | 67 73 6a 64 2b 69 54 5b 6b 5c 6a 37 72 57 39 72 74 4b 50 51 0a 6f 5b 6f 6f 28 6b 4d 4f 6e 3b 66 | gsjd+iT[k\j7rW9rtKPQ.o[oo(kMOn;f |
| 22bfa0 | 41 47 63 57 3d 44 32 59 70 46 38 75 3a 3d 46 38 75 37 3f 64 2f 4f 26 37 72 55 65 6d 49 62 33 40 | AGcW=D2YpF8u:=F8u7?d/O&7rUemIb3@ |
| 22bfc0 | 6d 3c 64 46 36 6b 31 6c 63 33 22 23 6c 66 5b 30 57 63 64 5e 62 32 6d 24 58 5d 43 58 6d 34 70 22 | m<dF6k1lc3"#lf[0Wcd^b2m$X]CXm4p" |
| 22bfe0 | 0a 65 27 63 74 30 6c 4b 58 52 3a 3b 73 57 57 28 66 3f 60 28 2b 6b 4e 65 65 6b 6f 29 2f 4f 66 72 | .e'ct0lKXR:;sWW(f?`(+kNeeko)/Ofr |
| 22c000 | 55 5c 52 32 6c 66 5b 30 57 63 63 6a 6e 6f 6a 51 47 62 2b 6c 32 4c 23 4c 6d 4a 63 44 5e 5d 21 6f | U\R2lf[0WccjnojQGb+l2L#LmJcD^]!o |
| 22c020 | 2f 36 4b 6e 62 41 50 3d 5e 38 55 4e 0a 43 4e 27 2a 72 6f 29 46 34 7e 3e 0a 6c 69 37 22 2d 24 48 | /6KnbAP=^8UN.CN'*ro)F4~>.li7"-$H |
| 22c040 | 5f 71 59 5e 71 40 37 58 58 68 3b 60 71 71 6f 66 26 5e 72 6b 6f 71 6c 5d 21 41 33 23 58 33 2f 48 | _qY^q@7XXh;`qqof&^rkoql]!A3#X3/H |
| 22c060 | 24 57 30 58 42 73 5d 73 6c 6e 67 6b 4a 4f 49 40 58 64 3e 66 60 52 26 37 4f 39 5b 63 40 2f 5e 6b | $W0XBs]slngkJOI@Xd>f`R&7O9[c@/^k |
| 22c080 | 35 51 2e 3c 0a 72 55 65 61 3a 62 64 46 28 35 5b 25 33 65 72 62 63 6e 6b 26 62 30 27 62 61 72 51 | 5Q.<.rUea:bdF(5[%3erbcnk&b0'barQ |
| 22c0a0 | 3e 30 3f 21 3a 42 64 63 37 66 44 75 37 58 69 5c 2f 4c 52 42 45 45 50 58 32 3c 32 57 56 39 48 3f | >0?!:Bdc7fDu7Xi\/LRBEEPX2<2WV9H? |
| 22c0c0 | 3e 53 40 23 26 58 58 69 2e 33 38 54 59 25 74 3b 0a 51 44 67 61 4a 57 35 24 72 4a 5a 29 5a 24 55 | >S@#&XXi.38TY%t;.QDgaJW5$rJZ)Z$U |
| 22c0e0 | 54 3a 45 39 5a 54 21 63 65 38 65 61 69 59 3c 73 38 44 51 3e 54 24 34 55 37 53 40 24 26 2b 51 60 | T:E9ZT!ce8eaiY<s8DQ>T$4U7S@$&+Q` |
| 22c100 | 5b 5b 2c 72 6b 2f 36 4b 21 36 3e 29 5f 26 26 48 3f 2e 5e 71 37 3a 6f 53 24 39 36 33 0a 5d 59 5f | [[,rk/6K!6>)_&&H?.^q7:oS$963.]Y_ |
| 22c120 | 5c 63 6d 49 4c 3a 2d 7e 3e 0a 6c 69 36 73 3c 32 23 57 26 59 4a 45 35 46 73 46 45 29 35 40 43 68 | \cmIL:-~>.li6s<2#W&YJE5FsFE)5@Ch |
| 22c140 | 6d 64 5a 42 71 44 38 66 54 75 23 28 43 69 34 47 28 75 42 6a 63 22 3b 56 55 3d 68 2b 63 66 6a 45 | mdZBqD8fTu#(Ci4G(uBjc";VU=h+cfjE |
| 22c160 | 28 55 3f 5d 6a 69 4b 37 4b 36 2a 6b 4a 58 70 6c 71 23 39 46 55 0a 27 53 5a 4d 58 66 56 37 69 62 | (U?]jiK7K6*kJXplq#9FU.'SZMXfV7ib |
| 22c180 | 58 47 4d 28 56 58 34 3f 5a 52 48 40 67 67 28 73 38 57 25 4f 73 38 4e 29 4d 72 72 36 43 28 6e 27 | XGM(VX4?ZRH@gg(s8W%Os8N)Mrr6C(n' |
| 22c1a0 | 52 66 72 64 41 44 5c 3f 4b 71 51 5d 58 54 6c 2b 4a 67 68 36 72 3e 69 49 23 74 71 74 5f 32 33 67 | RfrdAD\?KqQ]XTl+Jgh6r>iI#tqt_23g |
| 22c1c0 | 35 0a 65 5a 3d 55 4d 4b 71 51 5d 58 5c 23 58 4f 60 69 37 59 41 6f 47 5f 4d 67 38 6d 40 5f 59 69 | 5.eZ=UMKqQ]X\#XO`i7YAoG_Mg8m@_Yi |
| 22c1e0 | 71 75 3f 5d 6f 6e 5e 3c 6c 70 65 5a 3d 55 4d 4a 73 73 64 47 6e 27 41 6b 65 5f 33 3a 2b 4b 55 4d | qu?]on^<lpeZ=UMJssdGn'Ake_3:+KUM |
| 22c200 | 34 4d 42 59 26 41 3c 23 46 45 4d 66 55 0a 48 40 34 68 29 4a 71 58 2d 53 6f 29 46 34 7e 3e 0a 6c | 4MBY&A<#FEMfU.H@4h)JqX-So)F4~>.l |
| 22c220 | 69 36 73 2a 32 23 56 45 35 44 57 4b 4e 5d 40 55 4e 4a 51 3e 24 34 74 24 3d 2e 3e 71 3d 53 25 24 | i6s*2#VE5DWKN]@UNJQ>$4t$=.>q=S%$ |
| 22c240 | 45 28 6c 2f 43 40 45 62 2d 42 37 43 68 57 46 30 74 63 66 6a 45 28 53 46 23 3d 6c 65 43 33 31 34 | E(l/C@Eb-B7ChWF0tcfjE(SF#=leC314 |
| 22c260 | 6c 61 61 52 65 71 23 39 46 55 0a 27 51 61 36 46 66 56 37 5d 70 68 71 2d 33 2b 68 72 6a 3c 2d 42 | laaReq#9FU.'Qa6FfV7]phq-3+hrj<-B |
| 22c280 | 51 2f 24 36 73 38 57 25 3d 73 38 4e 29 47 72 72 36 43 28 6e 27 52 5d 6d 6b 32 2b 5c 37 65 5f 54 | Q/$6s8W%=s8N)Grr6C(n'R]mk2+\7e_T |
| 22c2a0 | 3f 53 50 5b 37 3e 30 6c 2f 43 3d 43 64 62 3c 5b 45 5c 56 59 74 29 0a 6b 4d 4f 6e 3b 65 5f 54 3f | ?SP[7>0l/C=Cdb<[E\VYt).kMOn;e_T? |
| 22c2c0 | 53 59 48 29 26 35 67 24 25 41 48 64 2b 2d 74 36 6d 40 32 3b 64 71 75 3f 5d 6f 6e 5e 3c 6c 6c 6b | SYH)&5g$%AHd+-t6m@2;dqu?]on^<llk |
| 22c2e0 | 4d 4f 6e 3b 65 44 30 2d 4f 6c 63 2d 4e 46 5b 74 54 51 6c 53 6c 5d 27 6e 59 24 50 49 44 40 55 69 | MOn;eD0-Olc-NF[tTQlSl]'nY$PID@Ui |
| 22c300 | 75 74 0a 42 50 51 58 48 45 48 3b 27 2a 6f 29 46 34 7e 3e 0a 6c 69 36 74 2c 32 23 59 4d 39 60 54 | ut.BPQXHEH;'*o)F4~>.li6t,2#YM9`T |
| 22c320 | 35 61 72 5c 5b 53 72 4f 5a 2a 3a 49 2b 59 2b 69 35 37 57 6c 57 3f 29 5d 56 5f 24 72 61 69 3a 69 | 5ar\[SrOZ*:I+Y+i57WlW?)]V_$rai:i |
| 22c340 | 5f 53 3f 67 38 38 63 66 6a 45 28 58 32 4d 2d 2c 55 53 61 3c 57 5f 54 4b 46 4d 71 23 39 46 55 0a | _S?g88cfjE(X2M-,USa<W_TKFMq#9FU. |
| 22c360 | 27 5b 24 43 48 66 56 36 54 74 54 3a 45 39 5a 54 21 63 65 48 5e 57 34 4c 3e 73 38 57 26 3f 73 38 | '[$CHfV6TtT:E9ZT!ceH^W4L>s8W&?s8 |
| 22c380 | 4e 29 64 72 72 36 43 28 6e 27 52 75 53 5a 43 49 4d 71 54 70 69 34 2b 5e 6f 4f 4e 59 5c 74 62 5b | N)drr6C(n'RuSZCIMqTpi4+^oONY\tb[ |
| 22c3a0 | 72 58 2d 66 63 73 5e 6b 6d 5d 66 0a 5b 40 60 74 72 54 70 69 34 2b 5e 38 6e 60 48 62 49 3d 31 37 | rX-fcs^km]f.[@`trTpi4+^8n`HbI=17 |
| 22c3c0 | 5a 28 5b 56 6a 61 2f 49 32 4b 71 75 3f 5d 6f 6e 5e 3c 6c 4d 5b 40 60 74 72 55 52 2f 2b 24 62 66 | Z([Vja/I2Kqu?]on^<lM[@`trUR/+$bf |
| 22c3e0 | 5b 63 43 61 4c 66 2a 75 58 30 2f 5c 2a 59 2d 6b 5e 4a 5c 5b 6f 48 25 0a 5e 56 54 24 4e 61 4e 3d | [cCaLf*uX0/\*Y-k^J\[oH%.^VT$NaN= |
| 22c400 | 47 4b 6f 29 46 34 7e 3e 0a 6c 69 36 73 3c 32 23 69 38 5f 4b 5f 59 32 6b 49 73 75 64 23 48 5b 3a | GKo)F4~>.li6s<2#i8_K_Y2kIsud#H[: |
| 22c420 | 22 69 48 2d 6a 60 56 5e 32 49 65 4e 5e 59 6c 5f 63 48 74 64 3e 45 50 2f 24 28 67 5e 59 6d 74 5a | "iH-j`V^2IeN^Yl_cHtd>EP/$(g^YmtZ |
| 22c440 | 60 53 65 40 69 49 22 49 67 2e 6c 44 3b 35 58 71 3e 54 4f 56 0a 27 53 5a 4d 58 66 56 37 69 62 58 | `Se@iI"Ig.lD;5Xq>TOV.'SZMXfV7ibX |
| 22c460 | 47 4d 28 56 58 34 3f 5a 52 48 40 67 67 28 73 38 57 25 4f 73 38 51 57 5c 73 38 57 29 6f 6c 2c 30 | GM(VX4?ZRH@gg(s8W%Os8QW\s8W)ol,0 |
| 22c480 | 40 5f 61 64 5b 70 26 4b 71 51 5d 58 4b 51 5f 31 3a 6a 4d 36 74 2e 47 44 69 60 5a 68 65 4a 3b 3d | @_ad[p&KqQ]XKQ_1:jM6t.GDi`ZheJ;= |
| 22c4a0 | 0a 61 64 5b 70 26 4b 71 51 5d 58 54 22 6f 4d 64 5f 72 2f 2e 67 49 22 37 4c 23 6b 48 32 4d 5e 71 | .ad[p&KqQ]XT"oMd_r/.gI"7L#kH2M^q |
| 22c4c0 | 3e 55 45 6b 6d 60 68 66 74 61 64 5b 70 37 52 60 4f 63 50 40 3b 32 6c 60 45 48 3f 35 46 63 5a 73 | >UEkm`hftad[p7R`OcP@;2l`EH?5FcZs |
| 22c4e0 | 69 6b 68 4c 27 61 23 49 74 33 28 3e 0a 4a 71 45 63 4e 4b 53 42 48 57 6f 29 46 34 7e 3e 0a 6c 69 | ikhL'a#It3(>.JqEcNKSBHWo)F4~>.li |
| 22c500 | 36 73 2a 32 23 68 57 3c 45 71 6f 3a 55 44 2f 3d 21 33 42 6b 56 32 33 42 40 2b 68 33 5e 30 58 73 | 6s*2#hW<Eqo:UD/=!3BkV23B@+h3^0Xs |
| 22c520 | 29 5b 48 5a 5a 28 64 60 54 62 5d 67 3e 5f 44 27 5e 59 6d 74 5a 5e 24 34 4d 30 64 61 5b 28 35 6d | )[HZZ(d`Tb]g>_D'^YmtZ^$4M0da[(5m |
| 22c540 | 24 59 54 4e 71 3e 54 4f 56 0a 27 51 61 36 46 66 56 37 5d 70 68 71 2d 33 2b 68 72 6a 3c 2d 42 51 | $YTNq>TOV.'Qa6FfV7]phq-3+hrj<-BQ |
| 22c560 | 2f 24 36 73 38 57 25 3d 73 38 51 57 56 73 38 57 29 6f 6c 2c 30 2b 5a 6a 50 38 38 30 65 5f 54 3f | /$6s8W%=s8QWVs8W)ol,0+ZjP880e_T? |
| 22c580 | 53 46 43 6e 5e 51 6c 4a 67 4f 48 64 2b 49 3a 3f 66 50 36 3f 32 0a 6a 50 38 38 30 65 5f 54 3f 53 | SFCn^QlJgOHd+I:?fP6?2.jP880e_T?S |
| 22c5a0 | 52 5f 57 4b 3e 5d 42 53 3b 2e 64 61 51 74 32 6c 5f 56 41 5a 71 3e 55 45 6b 6d 60 68 51 6f 6a 50 | R_WK>]BS;.daQt2l_VAZq>UEkm`hQojP |
| 22c5c0 | 38 38 37 67 75 52 67 4d 3a 66 73 6c 2c 3f 74 21 50 55 63 59 24 71 47 68 4a 36 6e 43 44 2f 4f 3a | 887guRgM:fsl,?t!PUcY$qGhJ6nCD/O: |
| 22c5e0 | 5e 0a 45 2c 6b 59 6e 46 2a 25 42 2e 6f 29 46 34 7e 3e 0a 6c 69 36 74 2c 2b 54 4b 55 2c 61 6e 59 | ^.E,kYnF*%B.o)F4~>.li6t,+TKU,anY |
| 22c600 | 4d 6a 60 35 42 49 31 5e 71 5b 59 39 5e 3c 6b 27 37 5e 39 74 32 34 61 31 53 3a 39 58 33 26 41 5b | Mj`5BI1^q[Y9^<k'7^9t24a1S:9X3&A[ |
| 22c620 | 51 44 6a 65 74 26 45 29 45 55 60 4f 72 28 37 58 2e 75 23 60 60 34 69 74 4b 71 3e 54 4f 56 0a 27 | QDjet&E)EU`Or(7X.u#``4itKq>TOV.' |
| 22c640 | 5b 24 43 48 66 56 36 54 74 54 3a 45 39 5a 54 21 63 65 48 5e 57 34 4c 3e 73 38 57 26 3f 73 38 51 | [$CHfV6TtT:E9ZT!ceH^W4L>s8W&?s8Q |
| 22c660 | 57 73 73 38 57 29 6f 6c 2c 30 5e 43 58 64 3e 66 70 54 70 69 34 2b 5b 5e 33 36 58 5e 53 6d 48 73 | Wss8W)ol,0^CXd>fpTpi4+[^36X^SmHs |
| 22c680 | 5a 28 25 47 72 62 25 64 45 61 0a 58 64 3e 66 70 54 70 69 34 2b 56 6e 66 73 4f 5f 6e 3b 6b 35 58 | Z(%Grb%dEa.Xd>fpTpi4+VnfsO_n;k5X |
| 22c6a0 | 2f 3b 2f 5f 5f 52 40 35 42 71 3e 55 45 6b 6d 60 69 2c 57 58 64 3e 66 58 51 60 5c 33 34 56 6d 21 | /;/__R@5Bq>UEkm`i,WXd>fXQ`\34Vm! |
| 22c6c0 | 38 32 5c 25 27 23 5d 63 62 40 30 4b 68 53 52 2e 49 60 35 54 61 64 0a 61 32 6e 25 74 62 30 27 62 | 82\%'#]cb@0KhSR.I`5Tad.a2n%tb0'b |
| 22c6e0 | 4f 6f 29 46 34 7e 3e 0a 6c 69 36 73 3c 21 3c 3c 25 50 23 36 2b 53 5c 4b 53 2b 6f 3d 72 64 6c 4b | Oo)F4~>.li6s<!<<%P#6+S\KS+o=rdlK |
| 22c700 | 68 4a 61 69 29 57 6b 42 71 51 69 42 59 60 51 3c 4f 46 31 62 66 4e 6a 64 63 6b 59 4c 68 49 38 60 | hJai)WkBqQiBY`Q<OF1bfNjdckYLhI8` |
| 22c720 | 38 4a 37 68 49 22 49 67 2e 6c 42 5d 3c 4f 71 59 6f 58 57 0a 27 53 5a 4d 58 66 56 37 69 62 58 47 | 8J7hI"Ig.lB]<OqYoXW.'SZMXfV7ibXG |
| 22c740 | 4d 28 56 58 34 3f 5a 52 48 40 67 67 28 73 38 57 25 4f 73 38 51 2a 4d 73 38 57 29 6c 69 33 55 41 | M(VX4?ZRH@gg(s8W%Os8Q*Ms8W)li3UA |
| 22c760 | 5b 5d 39 25 44 66 4f 4c 6a 42 3f 42 6d 6a 75 64 6c 48 2c 4e 4a 45 4a 3a 28 31 6d 3b 54 53 5b 0a | []9%DfOLjB?BmjudlH,NJEJ:(1m;TS[. |
| 22c780 | 54 6e 52 4b 38 50 2f 24 29 3a 56 55 39 5e 30 5c 45 28 47 68 49 58 49 36 67 69 35 3b 6b 58 70 41 | TnRK8P/$):VU9^0\E(GhIXI6gi5;kXpA |
| 22c7a0 | 50 21 66 6d 29 63 33 6b 61 64 5b 70 37 52 60 4f 63 55 44 30 46 5a 5e 49 58 5a 63 73 6e 3a 3f 32 | P!fm)c3kad[p7R`OcUD0FZ^IXZcsn:?2 |
| 22c7c0 | 61 70 41 54 5e 44 4b 45 4d 2e 2a 0a 4c 26 56 28 2a 21 57 55 61 41 73 2a 74 7e 3e 0a 6c 69 36 73 | apAT^DKEM.*.L&V(*!WUaAs*t~>.li6s |
| 22c7e0 | 2a 21 3c 3c 25 3e 23 36 2b 53 58 45 63 48 29 4c 72 62 73 34 56 44 74 2a 31 33 6b 41 22 59 45 3c | *!<<%>#6+SXEcH)Lrbs4VDt*13kA"YE< |
| 22c800 | 6a 71 38 4f 67 3d 22 2d 6b 67 23 3b 2f 3a 59 4c 68 49 38 5d 5d 6e 44 2f 64 61 5b 28 35 6d 22 72 | jq8Og="-kg#;/:YLhI8]]nD/da[(5m"r |
| 22c820 | 55 44 71 59 6f 58 57 0a 27 51 61 36 46 66 56 37 5d 70 68 71 2d 33 2b 68 72 6a 3c 2d 42 51 2f 24 | UDqYoXW.'Qa6FfV7]phq-3+hrj<-BQ/$ |
| 22c840 | 36 73 38 57 25 3d 73 38 51 2a 47 73 38 57 29 6c 69 33 55 26 5b 69 53 29 60 2e 67 3e 56 3b 5d 3d | 6s8W%=s8Q*Gs8W)li3U&[iS)`.g>V;]= |
| 22c860 | 29 44 3c 21 6d 2c 5a 73 4f 63 2e 31 59 33 6d 3b 30 2f 6b 0a 68 3a 39 63 75 67 3e 5f 44 4e 56 55 | )D<!m,ZsOc.1Y3m;0/k.h:9cug>_DNVU |
| 22c880 | 39 27 61 59 6a 31 36 25 65 27 63 74 2f 6c 2b 3d 37 59 70 41 50 21 66 6d 29 63 21 67 6a 50 38 38 | 9'aYj16%e'ct/l+=7YpAP!fm)c!gjP88 |
| 22c8a0 | 37 67 75 52 67 52 3e 40 6c 51 29 43 69 2b 24 2c 6e 38 45 3a 3d 70 41 54 28 32 45 57 63 35 5c 0a | 7guRgR>@lQ)Ci+$,n8E:=pAT(2EWc5\. |
| 22c8c0 | 46 38 6c 2f 5b 21 57 55 4f 3b 73 2a 74 7e 3e 0a 6c 69 36 74 2c 21 3c 3c 26 40 23 36 2b 53 6b 61 | F8l/[!WUO;s*t~>.li6t,!<<&@#6+Ska |
| 22c8e0 | 69 4d 51 4a 72 6c 36 41 58 60 70 69 45 37 6b 4a 3d 6d 49 59 2f 65 32 50 51 60 4a 36 32 52 41 37 | iMQJrl6AX`piE7kJ=mIY/e2PQ`J62RA7 |
| 22c900 | 40 38 59 4c 68 49 38 60 34 56 74 36 58 2e 75 23 60 60 34 3c 62 4c 71 59 6f 58 57 0a 27 5b 24 43 | @8YLhI8`4Vt6X.u#``4<bLqYoXW.'[$C |
| 22c920 | 48 66 56 36 54 74 54 3a 45 39 5a 54 21 63 65 48 5e 57 34 4c 3e 73 38 57 26 3f 73 38 51 2a 64 73 | HfV6TtT:E9ZT!ceH^W4L>s8W&?s8Q*ds |
| 22c940 | 38 57 29 6c 69 33 55 3e 36 56 4f 2b 3f 61 52 26 37 4f 47 59 2e 44 27 54 60 33 23 42 24 5d 3a 6b | 8W)li3U>6VO+?aR&7OGY.D'T`3#B$]:k |
| 22c960 | 5b 74 61 2a 47 22 71 0a 52 5c 40 3c 6b 51 44 68 52 48 56 55 3c 2f 65 5d 74 5e 4d 33 57 32 6c 3b | [ta*G"q.R\@<kQDhRHVU</e]t^M3W2l; |
| 22c980 | 5f 5d 59 5e 75 33 70 41 50 21 66 6d 29 63 4e 4e 58 64 3e 66 58 51 60 5c 33 39 5a 46 6e 72 2f 5f | _]Y^u3pAP!fm)cNNXd>fXQ`\39ZFnr/_ |
| 22c9a0 | 6f 30 4c 34 6e 41 60 4e 41 70 41 57 2f 34 61 54 4d 49 60 0a 62 35 56 43 5f 21 57 56 51 58 73 2a | o0L4nA`NApAW/4aTMI`.b5VC_!WVQXs* |
| 22c9c0 | 74 7e 3e 0a 6c 69 36 73 3c 21 3c 3c 25 50 73 38 4e 29 5b 72 65 32 65 62 4b 6e 59 33 59 4b 60 28 | t~>.li6s<!<<%Ps8N)[re2ebKnY3YK`( |
| 22c9e0 | 5f 23 71 31 3d 31 56 46 28 58 3d 5f 5a 26 45 70 4d 4d 36 23 31 71 55 21 44 32 6f 60 38 4a 37 68 | _#q1=1VF(X=_Z&EpMM6#1qU!D2o`8J7h |
| 22ca00 | 49 22 49 67 2e 6c 42 66 4b 54 71 57 37 5f 6b 0a 4c 26 4c 59 72 55 40 36 58 36 4d 30 34 5a 55 65 | I"Ig.lBfKTqW7_k.L&LYrU@6X6M04ZUe |
| 22ca20 | 61 49 37 21 4a 71 53 6a 58 73 38 40 5a 4f 73 26 49 59 4d 73 38 3b 48 3d 55 5b 51 61 37 4d 30 34 | aI7!JqSjXs8@ZOs&IYMs8;H=U[Qa7M04 |
| 22ca40 | 3f 36 60 39 35 21 54 4a 6f 74 65 72 65 5a 3d 55 4d 45 4a 3a 28 31 54 24 3c 73 5f 0a 45 48 3f 6f | ?6`95!TJotereZ=UMEJ:(1T$<s_.EH?o |
| 22ca60 | 34 64 49 2b 45 52 68 4c 30 4c 44 6c 48 2c 4e 4a 46 63 21 30 4c 6e 22 5c 4a 29 72 3b 51 51 59 61 | 4dI+ERhL0LDlH,NJFc!0Ln"\J)r;QQYa |
| 22ca80 | 2f 41 34 45 52 74 48 3c 5d 61 51 65 74 30 49 49 60 24 63 71 3e 2c 64 42 4b 53 39 40 28 71 68 35 | /A4ERtH<]aQet0II`$cq>,dBKS9@(qh5 |
| 22caa0 | 31 51 4b 6e 5d 50 5c 0a 72 72 32 75 4c 6f 29 46 34 7e 3e 0a 6c 69 36 73 2a 21 3c 3c 25 3e 73 38 | 1QKn]P\.rr2uLo)F4~>.li6s*!<<%>s8 |
| 22cac0 | 4e 29 57 72 63 38 27 6c 72 63 39 43 61 46 38 59 6f 55 71 2f 4c 3f 33 40 54 3b 22 44 69 37 51 45 | N)Wrc8'lrc9CaF8YoUq/L?3@T;"Di7QE |
| 22cae0 | 26 66 41 47 63 57 55 21 44 32 6f 5d 42 53 3b 2e 64 61 5b 28 35 6d 23 26 64 49 71 57 37 5f 6b 0a | &fAGcWU!D2o]BS;.da[(5m#&dIqW7_k. |
| 22cb00 | 46 38 62 61 60 55 3f 68 22 22 66 3f 60 28 2b 6b 4e 63 35 60 45 2d 24 2b 23 73 38 40 24 3d 73 26 | F8ba`U?h""f?`(+kNc5`E-$+#s8@$=s& |
| 22cb20 | 49 47 47 73 38 3b 48 3d 55 5b 2e 2b 23 66 3f 5f 71 23 6a 36 4f 2d 59 45 62 26 38 3b 6b 4d 4f 6e | IGGs8;H=U[.+#f?_q#j6O-YEb&8;kMOn |
| 22cb40 | 3b 63 2e 31 59 33 52 48 3c 38 54 0a 63 2d 46 6e 73 6b 33 54 2b 5a 68 4a 36 53 6e 6d 2c 5a 73 4f | ;c.1Y3RH<8T.c-Fnsk3T+ZhJ6Snm,ZsO |
| 22cb60 | 63 65 25 28 3b 6c 5f 45 26 25 72 3b 51 51 59 61 2e 56 65 5b 67 73 6a 6a 2f 6a 51 71 53 2f 43 5b | ce%(;l_E&%r;QQYa.Ve[gsjj/jQqS/C[ |
| 22cb80 | 75 4b 3f 71 3e 2c 2e 30 46 2a 25 3f 5b 71 66 3b 6f 3f 46 2a 25 41 26 0a 72 72 32 75 46 6f 29 46 | uK?q>,.0F*%?[qf;o?F*%A&.rr2uFo)F |
| 22cba0 | 34 7e 3e 0a 6c 69 36 74 2c 21 3c 3c 26 40 73 38 4e 29 6a 72 6c 50 35 66 72 6c 51 50 63 62 35 44 | 4~>.li6t,!<<&@s8N)jrlP5frlQPcb5D |
| 22cbc0 | 2e 59 71 38 67 53 37 5c 5a 3c 72 60 54 70 72 3c 6f 53 59 21 37 35 55 21 44 32 6f 5f 6e 3b 6b 35 | .Yq8gS7\Z<r`Tpr<oSY!75U!D2o_n;k5 |
| 22cbe0 | 58 2e 75 23 60 60 34 3c 6b 50 71 57 37 5f 6b 0a 62 35 4c 74 62 55 3c 4c 24 3b 53 40 22 69 59 5b | X.u#``4<kPqW7_k.b5LtbU<L$;S@"iY[ |
| 22cc00 | 45 50 6b 69 61 33 29 52 29 73 38 43 2b 3f 73 26 4a 49 64 73 38 3b 48 3d 55 57 67 2d 3c 53 40 23 | EPkia3)R)s8C+?s&JIds8;H=UWg-<S@# |
| 22cc20 | 2f 59 58 32 3c 26 64 5e 55 70 59 6d 5b 40 60 74 72 5d 3a 6b 5b 74 54 3c 4f 63 58 0a 5d 22 22 42 | /YX2<&d^UpYm[@`tr]:k[tT<OcX.]""B |
| 22cc40 | 26 5a 48 3a 2e 75 68 53 51 68 2d 60 33 23 42 24 5b 25 33 65 72 62 62 4e 62 5b 72 3b 51 51 59 61 | &ZH:.uhSQh-`3#B$[%3erbbNb[r;QQYa |
| 22cc60 | 30 3c 4c 61 51 5f 55 3d 42 58 69 2e 69 5d 5f 58 62 65 43 71 3e 2f 35 32 62 30 27 5f 5f 71 6f 54 | 0<LaQ_U=BXi.i]_XbeCq>/52b0'__qoT |
| 22cc80 | 27 41 62 30 27 62 2c 0a 72 72 32 75 63 6f 29 46 34 7e 3e 0a 6e 2c 45 4c 68 72 3b 2d 36 67 4b 45 | 'Ab0'b,.rr2uco)F4~>.n,ELhr;-6gKE |
| 22cca0 | 32 23 4e 4c 26 5f 2f 51 6a 53 6a 69 35 50 51 24 37 5e 73 2b 55 4c 51 4c 26 5a 6a 5b 6e 54 6f 26 | 2#NL&_/QjSji5PQ$7^s+ULQL&Zj[nTo& |
| 22ccc0 | 56 6a 4d 36 74 2e 45 4a 3a 28 31 6d 41 25 5f 4c 59 66 2c 4a 33 4f 46 32 59 4b 61 51 66 2f 34 0a | VjM6t.EJ:(1mA%_LYf,J3OF2YKaQf/4. |
| 22cce0 | 6c 68 5d 60 43 27 53 5a 4d 58 66 56 37 69 62 58 47 4d 28 56 58 34 3f 5a 52 48 40 67 67 28 73 38 | lh]`C'SZMXfV7ibXGM(VX4?ZRH@gg(s8 |
| 22cd00 | 57 25 4f 72 3b 54 40 63 6d 29 6b 73 66 63 28 54 69 32 4b 71 51 5d 58 55 4e 32 2a 37 44 39 71 25 | W%Or;T@cm)ksfc(Ti2KqQ]XUN2*7D9q% |
| 22cd20 | 48 4e 64 3e 3e 58 4b 71 5a 62 62 0a 4b 6c 4c 4c 41 4c 53 69 4a 65 48 63 74 5a 27 47 46 6e 36 4d | HNd>>XKqZbb.KlLLALSiJeHctZ'GFn6M |
| 22cd40 | 56 4d 42 35 48 54 5a 75 6b 74 62 6a 47 3c 2c 71 57 6c 2f 21 6c 48 2c 4e 4a 4a 73 73 64 47 50 66 | VMB5HTZuktbjG<,qWl/!lH,NJJssdGPf |
| 22cd60 | 38 2e 4a 4c 26 56 29 55 4c 26 5a 6a 5c 73 38 56 74 4d 21 72 6d 74 2e 0a 72 3b 51 63 4a 6f 29 46 | 8.JL&V)UL&Zj\s8VtM!rmt..r;QcJo)F |
| 22cd80 | 34 7e 3e 0a 6e 2c 45 58 6c 72 3b 2d 35 30 45 63 5f 36 5a 46 38 75 37 3f 69 3b 52 63 74 4b 44 6f | 4~>.n,EXlr;-50Ec_6ZF8u7?i;RctKDo |
| 22cda0 | 70 3c 73 29 5c 35 3f 46 38 70 3c 25 6e 52 75 2e 26 6c 4a 67 4f 48 63 2e 31 59 33 6d 40 56 47 48 | p<s)\5?F8p<%nRu.&lJgOHc.1Y3m@VGH |
| 22cdc0 | 59 65 30 2f 59 67 3d 22 4c 2b 6a 51 71 66 45 0a 6c 68 5d 60 43 27 51 61 36 46 66 56 37 5d 70 68 | Ye0/Yg="L+jQqfE.lh]`C'Qa6FfV7]ph |
| 22cde0 | 71 2d 33 2b 68 72 6a 3c 2d 42 51 2f 24 36 73 38 57 25 3d 72 3b 54 40 63 6d 29 6b 67 62 6a 6b 5c | q-3+hrj<-BQ/$6s8W%=r;T@cm)kgbjk\ |
| 22ce00 | 4a 33 65 5f 54 3f 53 51 3d 2b 6c 4b 3e 4b 48 27 66 67 21 52 64 60 65 5f 54 3f 43 0a 65 5d 6b 41 | J3e_T?SQ=+lK>KH'fg!Rd`e_T?C.e]kA |
| 22ce20 | 45 66 26 23 51 55 44 39 4d 30 5c 41 58 69 26 4b 68 55 5e 21 26 68 3c 22 24 6f 62 6a 47 3c 2c 71 | Ef&#QUD9M0\AXi&KhU^!&h<"$objG<,q |
| 22ce40 | 57 6c 2e 6f 6d 2c 5a 73 4f 65 44 30 2d 4f 4c 3b 65 24 2a 46 38 6c 31 43 46 38 70 3c 26 73 38 56 | Wl.om,ZsOeD0-OL;e$*F8l1CF8p<&s8V |
| 22ce60 | 74 3b 21 72 6d 3d 5f 0a 72 3b 51 63 44 6f 29 46 34 7e 3e 0a 6e 2c 45 58 6c 72 3b 2d 36 32 61 69 | t;!rm=_.r;QcDo)F4~>.n,EXlr;-62ai |
| 22ce80 | 61 56 5e 62 35 5f 4a 41 6f 44 5a 6c 34 64 2f 4d 30 36 73 32 74 42 41 62 35 5d 57 2b 6e 5c 3b 42 | aV^b5_JAoDZl4d/M06s2tBAb5]W+n\;B |
| 22cea0 | 49 5e 53 6d 48 73 5d 3a 6b 5b 74 61 2f 6d 3e 2f 59 66 22 2c 4e 51 60 48 6d 4a 58 69 2e 66 6a 0a | I^SmHs]:k[ta/m>/Yf",NQ`HmJXi.fj. |
| 22cec0 | 6c 68 5d 60 43 27 5b 24 43 48 66 56 36 54 74 54 3a 45 39 5a 54 21 63 65 48 5e 57 34 4c 3e 73 38 | lh]`C'[$CHfV6TtT:E9ZT!ceH^W4L>s8 |
| 22cee0 | 57 26 3f 72 3b 54 40 63 6d 29 6c 39 49 59 61 56 38 73 54 70 69 34 2b 5f 52 49 46 73 5a 48 4b 68 | W&?r;T@cm)l9IYaV8sTpi4+_RIFsZHKh |
| 22cf00 | 53 52 42 46 5a 44 54 70 69 33 53 0a 54 74 38 37 52 54 3a 45 34 2f 5a 2d 32 43 4d 5d 56 45 57 54 | SRBFZDTpi3S.Tt87RT:E4/Z-2CM]VEWT |
| 22cf20 | 53 3d 5b 33 60 52 5d 73 69 33 62 6a 47 3c 2c 71 57 6c 2f 2a 60 33 23 42 24 55 52 2f 2b 24 5d 5a | S=[3`R]si3bjG<,qWl/*`3#B$UR/+$]Z |
| 22cf40 | 25 68 62 62 35 56 44 45 62 35 5d 57 2c 73 38 56 75 3d 21 72 70 45 63 0a 72 3b 51 63 61 6f 29 46 | %hbb5VDEb5]W,s8Vu=!rpEc.r;Qcao)F |
| 22cf60 | 34 7e 3e 0a 6e 63 27 2e 21 72 3a 66 61 49 6b 5e 4a 26 36 71 31 4f 48 55 73 38 56 30 5a 4b 60 49 | 4~>.nc'.!r:faIk^J&6q1OHUs8V0ZK`I |
| 22cf80 | 3e 39 4b 64 48 62 51 73 38 52 66 51 4b 6e 5d 38 4c 45 4b 54 50 2e 52 74 47 58 32 52 60 4f 63 6d | >9KdHbQs8RfQKn]8LEKTP.RtGX2R`Ocm |
| 22cfa0 | 5f 55 23 46 27 69 34 47 28 75 4a 73 73 64 47 0a 52 29 6e 58 6a 6a 6f 36 24 4b 72 55 65 61 3a 6e | _U#F'i4G(uJssdG.R)nXjjo6$KrUea:n |
| 22cfc0 | 28 22 4c 72 46 63 21 30 4c 6d 71 52 30 23 4b 53 42 49 2b 72 49 74 34 4d 39 29 65 56 49 5d 58 64 | ("LrFc!0LmqR0#KSBI+rIt4M9)eVI]Xd |
| 22cfe0 | 2b 3d 50 43 40 4d 2a 54 5a 75 6b 58 47 29 43 5a 65 5a 4b 2f 66 62 49 56 57 38 30 0a 4b 71 58 33 | +=PC@M*TZukXG)CZeZK/fbIVW80.KqX3 |
| 22d000 | 3f 3f 59 6b 37 58 60 39 35 54 6b 67 40 39 60 3f 56 58 4e 27 3a 4d 30 34 3f 36 60 39 34 38 3b 6b | ??Yk7X`95Tkg@9`?VXN':M04?6`948;k |
| 22d020 | 50 3e 29 51 6c 63 2c 6a 66 61 64 5b 70 37 52 60 4f 63 59 60 64 64 69 3d 72 72 33 2e 55 73 2b 51 | P>)Qlc,jfad[p7R`OcY`ddi=rr3.Us+Q |
| 22d040 | 31 2c 73 38 2e 4b 4f 0a 73 2b 51 31 29 72 72 43 58 40 73 2a 74 7e 3e 0a 6e 63 26 70 70 72 3a 66 | 1,s8.KO.s+Q1)rrCX@s*t~>.nc&ppr:f |
| 22d060 | 61 49 6b 5c 59 33 56 71 3e 50 49 38 72 72 44 21 56 45 72 5e 6a 6c 46 21 5e 6a 2d 73 38 52 30 3f | aIk\Y3Vq>PI8rrD!VEr^jlF!^j-s8R0? |
| 22d080 | 46 2a 25 28 6b 3f 5c 49 65 2c 67 73 6a 51 74 67 75 52 67 72 5f 55 23 45 74 6c 2f 43 40 45 65 44 | F*%(k?\Ie,gsjQtguRgr_U#Etl/C@EeD |
| 22d0a0 | 30 2d 4f 0a 4d 6f 62 38 5d 6a 6f 36 24 39 72 55 65 61 3a 6c 66 5b 30 57 63 65 25 28 3b 6c 57 40 | 0-O.Mob8]jo6$9rUea:lf[0Wce%(;lW@ |
| 22d0c0 | 68 3e 46 2a 25 42 5d 72 48 25 72 3b 39 29 65 56 49 5d 57 67 5c 5c 67 3d 2b 3c 73 68 3c 22 24 49 | h>F*%B]rH%r;9)eVI]Wg\\g=+<sh<"$I |
| 22d0e0 | 41 39 72 24 21 56 58 21 30 70 65 27 22 69 3b 0a 65 5f 53 64 23 58 4e 54 29 49 6a 36 4f 69 75 67 | A9r$!VX!0pe'"i;.e_Sd#XNT)Ij6Oiug |
| 22d100 | 40 39 29 70 56 58 2a 46 26 66 3f 5f 71 23 6a 36 4e 50 56 6b 50 3e 29 51 6c 63 2c 55 61 6a 50 38 | @9)pVX*F&f?_q#j6NPVkP>)Qlc,UajP8 |
| 22d120 | 38 37 67 75 52 67 56 60 62 6b 51 6e 72 72 33 2e 43 73 29 57 38 5d 73 38 2d 6a 3d 0a 73 29 57 38 | 87guRgV`bkQnrr3.Cs)W8]s8-j=.s)W8 |
| 22d140 | 5a 72 72 43 46 3a 73 2a 74 7e 3e 0a 6e 63 26 70 70 72 3a 66 61 49 6b 65 74 48 5c 71 3e 53 50 3a | ZrrCF:s*t~>.nc&ppr:faIketH\q>SP: |
| 22d160 | 72 72 44 5a 69 61 6f 4b 66 66 61 73 49 29 31 73 38 55 37 41 62 30 27 49 71 5b 5e 73 44 5a 51 5f | rrDZiaoKffasI)1s8U7Ab0'Iq[^sDZQ_ |
| 22d180 | 56 39 69 51 60 5c 33 32 5f 55 23 46 27 5d 56 5f 24 72 55 52 2f 2b 24 0a 5d 23 61 37 37 6a 6f 36 | V9iQ`\32_U#F']V_$rUR/+$.]#a77jo6 |
| 22d1a0 | 25 3b 72 55 65 61 3a 62 64 46 28 35 5b 25 33 65 72 62 63 6e 6b 26 62 30 27 62 61 72 51 3e 2a 3d | %;rUea:bdF(5[%3erbcnk&b0'barQ>*= |
| 22d1c0 | 39 29 65 56 49 5d 59 3b 2e 5a 51 44 68 45 68 52 5d 73 69 42 5d 3e 71 64 74 60 6b 53 49 3c 57 35 | 9)eVI]Y;.ZQDhEhR]siB]>qdt`kSI<W5 |
| 22d1e0 | 5a 60 66 0a 54 70 68 5b 64 60 50 53 4c 3b 58 32 3c 2f 65 67 40 3c 31 74 56 54 63 48 3f 53 40 23 | Z`f.Tph[d`PSL;X2</eg@<1tVTcH?S@# |
| 22d200 | 2f 59 58 32 3b 3c 5b 6b 50 3e 29 51 6c 63 2d 30 49 58 64 3e 66 58 51 60 5c 33 3d 60 6c 2e 5f 72 | /YX2;<[kP>)Qlc-0IXd>fXQ`\3=`l._r |
| 22d220 | 72 72 33 2f 45 73 32 72 4c 61 73 38 30 71 3f 0a 73 32 72 4c 5e 72 72 44 48 57 73 2a 74 7e 3e 0a | rr3/Es2rLas80q?.s2rL^rrDHWs*t~>. |
| 22d240 | 6e 63 27 2d 73 6f 42 2b 57 46 5e 69 4f 5b 46 6c 40 4f 5c 43 73 38 56 30 5a 4b 60 49 3e 39 4b 64 | nc'-soB+WF^iO[Fl@O\Cs8V0ZK`I>9Kd |
| 22d260 | 48 62 51 73 38 52 66 51 4b 6e 54 2f 4a 45 30 39 47 2d 52 74 47 58 32 52 60 4f 63 6b 5e 73 2f 73 | HbQs8RfQKnT/JE09G-RtGX2R`Ock^s/s |
| 22d280 | 75 69 34 47 28 75 4b 71 51 5d 58 0a 52 2a 2b 67 6e 6a 53 6f 6e 6c 6f 5b 6f 6f 2c 65 5a 3d 55 4d | ui4G(uKqQ]X.R*+gnjSonlo[oo,eZ=UM |
| 22d2a0 | 4d 36 23 31 71 55 3d 62 27 4e 4c 26 5f 32 4f 4c 26 4d 24 44 72 55 6f 21 4b 64 47 3b 36 6b 48 40 | M6#1qU=b'NL&_2OL&M$DrUo!KdG;6kH@ |
| 22d2c0 | 31 67 63 69 3a 31 54 2e 4e 2e 35 75 28 6d 45 4d 3e 59 45 46 33 24 6c 0a 4b 6c 4c 49 2d 46 2c 2d | 1gci:1T.N.5u(mEM>YEF3$l.KlLI-F,- |
| 22d2e0 | 58 3f 6d 5d 56 21 21 70 40 57 67 3e 60 38 4a 37 68 49 21 68 24 65 69 35 3b 65 55 70 26 2b 5b 50 | X?m]V!!p@Wg>`8J7hI!h$ei5;eUp&+[P |
| 22d300 | 60 68 72 25 43 52 74 48 3c 5d 61 51 66 23 30 4a 2c 34 6c 75 72 72 6e 2c 56 4b 6e 5d 52 2c 71 68 | `hr%CRtH<]aQf#0J,4lurrn,VKn]R,qh |
| 22d320 | 35 2b 4f 0a 4b 6e 5d 49 29 21 37 70 60 40 4a 2c 7e 3e 0a 6e 63 27 2d 73 6f 42 2b 57 46 5e 67 55 | 5+O.Kn]I)!7p`@J,~>.nc'-soB+WF^gU |
| 22d340 | 62 66 6c 3e 5e 69 63 73 38 56 24 56 45 72 5e 6a 6c 46 21 5e 6a 2d 73 38 52 30 3f 46 2a 25 25 6a | bfl>^ics8V$VEr^jlF!^j-s8R0?F*%%j |
| 22d360 | 3f 5c 40 5f 2b 67 73 6a 51 74 67 75 52 67 70 5e 73 2f 73 6c 6c 2f 43 40 45 65 5f 54 3f 53 0a 4e | ?\@_+gsjQtguRgp^s/sll/C@Ee_T?S.N |
| 22d380 | 36 3a 50 62 6a 53 6f 6e 6c 6f 5b 6f 6f 28 6b 4d 4f 6e 3b 66 41 47 63 57 55 3d 61 46 2b 46 38 75 | 6:PbjSonlo[oo(kMOn;fAGcWU=aF+F8u |
| 22d3a0 | 3a 3d 46 38 63 2c 32 72 55 6f 21 4b 62 33 40 6d 3c 64 46 2d 62 2d 6c 30 3b 44 61 49 3b 4e 4d 3c | :=F8c,2rUo!Kb3@m<dF-b-l0;DaI;NM< |
| 22d3c0 | 6d 48 2a 30 53 63 29 65 22 6b 0a 65 5d 6b 32 23 63 49 55 6b 37 6d 26 2b 58 5c 70 40 57 31 2c 5d | mH*0Sc)e"k.e]k2#cIUk7m&+X\p@W1,] |
| 22d3e0 | 42 53 3b 2e 64 61 48 6b 2e 6c 2b 3d 31 56 70 26 2b 5b 50 60 68 3b 5c 5a 67 73 6a 6a 2f 6a 51 71 | BS;.daHk.l+=1Vp&+[P`h;\Zgsjj/jQq |
| 22d400 | 57 40 44 3e 4a 3e 51 72 72 6d 4b 44 46 2a 25 42 5d 71 66 3b 69 3d 0a 46 2a 25 39 5a 21 37 3a 3c | W@D>J>QrrmKDF*%B]qf;i=.F*%9Z!7:< |
| 22d420 | 3a 4a 2c 7e 3e 0a 6e 63 27 2d 73 6f 42 2b 57 46 5e 70 71 22 6c 6c 48 25 29 69 73 38 56 5d 69 61 | :J,~>.nc'-soB+WF^pq"llH%)is8V]ia |
| 22d440 | 6f 4b 66 66 61 73 49 29 31 73 38 55 37 41 62 30 27 46 70 5b 5e 6a 3e 59 51 5f 56 39 69 51 60 5c | oKffasI)1s8U7Ab0'Fp[^j>YQ_V9iQ`\ |
| 22d460 | 33 31 5e 73 2f 73 74 5d 56 5f 24 72 54 70 69 34 2b 0a 5d 5a 54 58 3d 6a 53 6f 6e 6c 6f 5b 6f 6e | 31^s/st]V_$rTpi4+.]ZTX=jSonlo[on |
| 22d480 | 5e 5b 40 60 74 72 53 59 21 37 35 55 3d 64 4e 2f 62 35 5f 4d 3f 62 35 4d 3f 34 72 55 6f 21 4b 61 | ^[@`trSY!75U=dN/b5_M?b5M?4rUo!Ka |
| 22d4a0 | 68 22 37 38 59 2c 64 71 65 5d 5b 58 31 22 62 2f 43 70 25 61 30 3b 23 2b 5d 23 44 59 22 0a 54 74 | h"78Y,dqe][X1"b/Cp%a0;#+]#DY".Tt |
| 22d4c0 | 38 34 5f 5c 3d 5d 3a 73 61 67 6e 71 43 70 40 5a 38 2e 5f 6e 3b 6b 35 58 2f 68 56 62 5d 59 5e 6f | 84_\=]:sagnqCp@Z8._n;k5X/hVb]Y^o |
| 22d4e0 | 30 70 26 2b 5b 50 60 69 6d 3d 5f 51 5f 55 3d 42 58 69 2e 6c 6c 60 3b 37 58 55 72 72 70 52 46 62 | 0p&+[P`im=_Q_U=BXi.ll`;7XUrrpRFb |
| 22d500 | 30 27 62 61 71 6f 54 21 3f 0a 62 30 27 59 5e 21 3a 42 40 57 4a 2c 7e 3e 0a 6e 63 27 2d 6b 69 50 | 0'baqoT!?.b0'Y^!:B@WJ,~>.nc'-kiP |
| 22d520 | 71 71 29 61 32 3d 63 6c 63 24 6b 37 74 73 38 56 30 5a 4b 60 49 3e 39 4b 64 48 62 51 73 38 52 66 | qq)a2=clc$k7ts8V0ZK`I>9KdHbQs8Rf |
| 22d540 | 51 4c 26 31 38 67 43 70 3c 21 39 50 43 40 47 25 52 60 4f 63 6c 5e 72 72 5e 6f 69 34 47 28 75 4b | QL&18gCp<!9PC@G%R`Ocl^rr^oi4G(uK |
| 22d560 | 71 51 5d 58 0a 4d 55 28 5c 67 6a 53 6f 65 69 6f 5b 6f 6f 2c 65 5a 3d 55 4d 4d 36 23 31 71 55 3d | qQ]X.MU(\gjSoeio[oo,eZ=UMM6#1qU= |
| 22d580 | 62 28 72 72 72 3c 22 50 21 57 52 6c 50 73 25 3c 34 5a 65 22 36 24 59 58 47 4d 28 4d 51 2c 4d 6b | b(rrr<"P!WRlPs%<4Ze"6$YXGM(MQ,Mk |
| 22d5a0 | 26 44 67 5b 55 73 48 23 29 6d 21 58 47 4d 28 30 0a 3b 2d 6e 36 4c 3a 31 2f 2d 75 56 55 3d 68 28 | &Dg[UsH#)m!XGM(0.;-n6L:1/-uVU=h( |
| 22d5c0 | 4a 61 57 43 30 49 5f 60 2c 4c 60 30 47 6a 71 4d 36 23 31 71 54 5b 60 4e 2f 71 57 6c 2f 21 6c 48 | JaWC0I_`,L`0GjqM6#1qT[`N/qWl/!lH |
| 22d5e0 | 2c 4e 4a 4a 73 73 64 47 50 66 41 34 4c 4c 26 56 29 55 4c 26 5a 6a 5c 73 38 56 74 4d 0a 21 72 6d | ,NJJssdGPfA4LL&V)UL&Zj\s8VtM.!rm |
| 22d600 | 74 2e 72 3b 51 63 4a 6f 29 46 34 7e 3e 0a 6e 63 27 2d 6b 69 50 71 6a 74 5e 3a 39 53 39 63 22 71 | t.r;QcJo)F4~>.nc'-kiPqjt^:9S9c"q |
| 22d620 | 3f 3f 73 38 56 24 56 45 72 5e 6a 6c 46 21 5e 6a 2d 73 38 52 30 3f 46 38 47 40 55 3e 2c 3a 48 43 | ??s8V$VEr^jlF!^j-s8R0?F8G@U>,:HC |
| 22d640 | 67 3d 2b 39 71 67 75 52 67 71 5e 72 72 5e 67 6c 2f 43 40 45 65 5f 54 3f 53 0a 49 45 71 3c 5a 6a | g=+9qguRgq^rr^gl/C@Ee_T?S.IEq<Zj |
| 22d660 | 53 6f 65 69 6f 5b 6f 6f 28 6b 4d 4f 6e 3b 66 41 47 63 57 55 3d 61 47 60 72 72 3c 22 3e 21 57 52 | Soeio[oo(kMOn;fAGcWU=aG`rr<">!WR |
| 22d680 | 36 3e 73 25 3c 34 5a 65 22 35 6d 67 68 71 2d 33 27 67 5a 2e 56 2e 3f 23 22 6b 2d 42 33 46 51 60 | 6>s%<4Ze"5mghq-3'gZ.V.?#"k-B3FQ` |
| 22d6a0 | 68 71 2d 32 62 0a 49 5d 55 65 71 46 67 39 36 43 68 57 46 30 70 45 55 4e 5c 75 43 71 75 71 36 6a | hq-2b.I]UeqFg96ChWF0pEUN\uCquq6j |
| 22d6c0 | 34 69 26 2f 66 41 47 63 57 54 5b 60 4e 2f 71 57 6c 2e 6f 6d 2c 5a 73 4f 65 44 30 2d 4f 4c 3b 6e | 4i&/fAGcWT[`N/qWl.om,ZsOeD0-OL;n |
| 22d6e0 | 2a 2c 46 38 6c 31 43 46 38 70 3c 26 73 38 56 74 3b 0a 21 72 6d 3d 5f 72 3b 51 63 44 6f 29 46 34 | *,F8l1CF8p<&s8Vt;.!rm=_r;QcDo)F4 |
| 22d700 | 7e 3e 0a 6e 63 27 2d 6b 69 50 72 2e 37 60 6c 63 36 2b 63 2c 37 54 45 73 38 56 5d 69 61 6f 4b 66 | ~>.nc'-kiPr.7`lc6+c,7TEs8V]iaoKf |
| 22d720 | 66 61 73 49 29 31 73 38 55 37 41 62 35 31 53 57 5a 2c 3d 3e 54 51 44 68 51 6e 51 60 5c 33 31 5e | fasI)1s8U7Ab51SWZ,=>TQDhQnQ`\31^ |
| 22d740 | 72 72 5e 6f 5d 56 5f 24 72 54 70 69 34 2b 0a 5c 27 46 49 3f 6a 53 6f 65 69 6f 5b 6f 6e 5e 5b 40 | rr^o]V_$rTpi4+.\'FI?jSoeio[on^[@ |
| 22d760 | 60 74 72 53 59 21 37 35 55 3d 64 4e 62 72 72 3c 23 40 21 57 55 3d 40 73 25 3c 34 5a 65 22 34 64 | `trSY!75U=dNbrr<#@!WU=@s%<4Ze"4d |
| 22d780 | 6b 54 3a 45 39 63 51 29 68 64 46 5b 29 27 75 2b 5e 39 47 68 68 54 3a 45 3a 2f 0a 5e 57 21 65 27 | kT:E9cQ)hdF[)'u+^9GhhT:E:/.^W!e' |
| 22d7a0 | 5e 3b 64 5b 54 53 3f 67 38 33 5e 40 28 6a 6d 5f 6e 60 61 75 58 2d 4b 4e 67 53 59 21 37 35 54 5b | ^;d[TS?g83^@(jm_n`auX-KNgSY!75T[ |
| 22d7c0 | 60 4e 2f 71 57 6c 2f 2a 60 33 23 42 24 55 52 2f 2b 24 5d 5a 2e 6e 64 62 35 56 44 45 62 35 5d 57 | `N/qWl/*`3#B$UR/+$]Z.ndb5VDEb5]W |
| 22d7e0 | 2c 73 38 56 75 3d 0a 21 72 70 45 63 72 3b 51 63 61 6f 29 46 34 7e 3e 0a 6e 63 27 2d 5e 61 30 34 | ,s8Vu=.!rpEcr;Qcao)F4~>.nc'-^a04 |
| 22d800 | 70 6f 69 38 45 65 56 57 2d 33 5a 43 72 56 74 73 58 4b 60 49 3e 39 4b 64 48 62 51 73 38 52 66 4e | poi8EeVW-3ZCrVtsXK`I>9KdHbQs8RfN |
| 22d820 | 4b 43 40 55 2d 46 35 3e 36 40 4c 4e 40 42 63 52 60 4f 63 6f 60 36 35 22 47 65 5a 3d 55 4d 4d 36 | KC@U-F5>6@LN@BcR`Oco`65"GeZ=UMM6 |
| 22d840 | 23 31 71 0a 44 55 5c 2e 52 70 26 3e 3c 73 72 3b 36 3f 64 71 59 55 36 6a 71 3e 56 39 30 6f 5b 6f | #1q.DU\.Rp&><sr;6?dqYU6jq>V90o[o |
| 22d860 | 6f 2c 65 5a 3d 55 4d 4d 36 23 31 71 55 22 34 65 6c 72 56 63 5f 4c 4c 26 51 66 29 73 25 3c 2e 52 | o,eZ=UMM6#1qU"4elrVc_LL&Qf)s%<.R |
| 22d880 | 61 2f 41 34 45 52 74 47 58 35 54 5a 75 6c 21 0a 46 2b 33 6c 56 48 75 48 6a 5a 5d 39 25 44 53 3d | a/A4ERtGX5TZul!.F+3lVHuHjZ]9%DS= |
| 22d8a0 | 26 21 24 72 3e 26 38 5f 53 60 39 35 55 4f 4c 40 6b 45 40 4a 42 4f 59 52 63 28 54 69 32 4a 73 73 | &!$r>&8_S`95UOL@kE@JBOYRc(Ti2Jss |
| 22d8c0 | 64 47 57 36 22 3c 23 71 3c 51 25 75 6c 48 2c 4e 4a 4a 73 73 64 47 50 66 41 34 4c 0a 4c 26 56 29 | dGW6"<#q<Q%ulH,NJJssdGPfA4L.L&V) |
| 22d8e0 | 55 4c 26 5a 6a 5c 73 38 56 74 4d 21 72 6d 74 2e 72 3b 51 63 4a 6f 29 46 34 7e 3e 0a 6e 63 27 2d | UL&Zj\s8VtM!rmt.r;QcJo)F4~>.nc'- |
| 22d900 | 5e 61 2f 4a 40 6a 6c 30 37 4e 65 56 2e 46 4c 60 72 56 74 67 54 45 72 5e 6a 6c 46 21 5e 6a 2d 73 | ^a/J@jl07NeV.FL`rVtgTEr^jlF!^j-s |
| 22d920 | 38 52 30 3c 45 55 56 5c 70 41 28 67 23 24 66 24 3b 4c 68 67 75 52 67 74 60 36 35 22 43 6b 4d 4f | 8R0<EUV\pA(g#$f$;LhguRgt`65"CkMO |
| 22d940 | 6e 3b 66 41 47 63 57 0a 3f 49 53 48 42 70 26 3e 3c 73 72 3b 36 3f 64 71 59 55 36 6a 71 3e 56 39 | n;fAGcW.?ISHBp&><sr;6?dqYU6jq>V9 |
| 22d960 | 30 6f 5b 6f 6f 28 6b 4d 4f 6e 3b 66 41 47 63 57 55 22 34 2f 5a 72 56 63 5f 3a 46 38 67 37 5a 73 | 0o[oo(kMOn;fAGcWU"4/ZrVc_:F8g7Zs |
| 22d980 | 25 3c 2e 52 61 2e 5f 6b 5c 67 73 6a 51 75 68 3c 22 24 69 0a 40 3b 50 5d 32 43 30 65 3d 35 69 53 | %<.Ra._k\gsjQuh<"$i.@;P]2C0e=5iS |
| 22d9a0 | 29 60 26 50 26 49 46 40 54 24 2c 55 3b 6a 36 4f 6a 69 47 34 62 5f 30 44 54 65 52 3b 6a 6b 5c 4a | )`&P&IF@T$,U;j6OjiG4b_0DTeR;jk\J |
| 22d9c0 | 33 65 44 30 2d 4f 55 3c 29 5a 72 71 3c 51 25 6e 6d 2c 5a 73 4f 65 44 30 2d 4f 4c 3b 6e 2a 2c 0a | 3eD0-OU<)Zrq<Q%nm,ZsOeD0-OL;n*,. |
| 22d9e0 | 46 38 6c 31 43 46 38 70 3c 26 73 38 56 74 3b 21 72 6d 3d 5f 72 3b 51 63 44 6f 29 46 34 7e 3e 0a | F8l1CF8p<&s8Vt;!rm=_r;QcDo)F4~>. |
| 22da00 | 6e 63 27 2d 5e 61 31 30 3a 2f 5d 59 29 2c 2b 58 4c 75 4b 6d 72 56 75 4b 67 61 6f 4b 66 66 61 73 | nc'-^a10:/]Y),+XLuKmrVuKgaoKffas |
| 22da20 | 49 29 31 73 38 55 37 3e 61 52 40 6f 72 59 66 3c 75 3d 54 21 75 4a 30 51 60 5c 33 35 60 36 35 22 | I)1s8U7>aR@orYf<u=T!uJ0Q`\35`65" |
| 22da40 | 24 5b 40 60 74 72 53 59 21 37 35 0a 58 34 2d 56 3a 70 26 3e 3c 73 72 3b 36 3f 64 71 59 55 36 6a | $[@`trSY!75.X4-V:p&><sr;6?dqYU6j |
| 22da60 | 71 3e 56 39 30 6f 5b 6f 6e 5e 5b 40 60 74 72 53 59 21 37 35 55 22 37 36 5c 72 56 63 60 3c 62 35 | q>V90o[on^[@`trSY!75U"76\rVc`<b5 |
| 22da80 | 54 51 5e 73 25 3c 2e 52 61 30 45 52 62 51 5f 56 39 67 52 5d 73 69 4c 0a 5c 41 53 28 36 5f 36 68 | TQ^s%<.Ra0ERbQ_V9gR]siL.\AS(6_6h |
| 22daa0 | 3a 72 56 4f 2b 40 2a 5f 53 2a 71 26 5f 6e 72 3a 39 58 32 3c 2f 61 5f 74 3c 6d 28 60 51 50 37 24 | :rVO+@*_S*q&_nr:9X2</a_t<m(`QP7$ |
| 22dac0 | 59 61 56 38 73 55 52 2f 2b 24 5a 2c 6c 38 2c 71 3c 51 26 29 60 33 23 42 24 55 52 2f 2b 24 5d 5a | YaV8sUR/+$Z,l8,q<Q&)`3#B$UR/+$]Z |
| 22dae0 | 2e 6e 64 0a 62 35 56 44 45 62 35 5d 57 2c 73 38 56 75 3d 21 72 70 45 63 72 3b 51 63 61 6f 29 46 | .nd.b5VDEb5]W,s8Vu=!rpEcr;Qcao)F |
| 22db00 | 34 7e 3e 0a 6e 63 27 39 53 58 50 68 58 49 5d 3d 5a 23 37 69 47 3c 64 69 71 59 6f 51 30 4c 26 5b | 4~>.nc'9SXPhXI]=Z#7iG<diqYoQ0L&[ |
| 22db20 | 41 39 4b 64 48 62 51 72 71 71 45 3e 49 61 74 75 72 68 55 2f 33 55 46 28 54 5d 58 5b 62 5e 47 35 | A9KdHbQrqqE>IaturhU/3UF(T]X[b^G5 |
| 22db40 | 62 4b 51 5e 4c 65 5a 3d 55 4d 4d 36 23 31 71 0a 45 37 61 5e 5b 71 3e 56 21 29 72 56 51 45 61 6f | bKQ^LeZ=UMM6#1q.E7a^[q>V!)rVQEao |
| 22db60 | 27 50 5a 28 6c 30 65 36 40 72 56 75 6f 72 72 62 29 33 2c 6e 5e 58 39 23 65 5a 3d 55 4d 4d 36 23 | 'PZ(l0e6@rVuorrb)3,n^X9#eZ=UMM6# |
| 22db80 | 31 71 53 27 51 54 54 6f 5e 71 67 2e 4b 28 61 69 6f 72 56 6c 66 6b 6a 68 26 25 60 0a 5e 6c 73 34 | 1qS'QTTo^qg.K(aiorVlfkjh&%`.^ls4 |
| 22dba0 | 65 4b 71 51 5d 58 4b 6d 26 22 43 71 30 6d 46 4d 6c 48 2c 4e 4a 44 64 35 71 30 3a 31 2f 2d 75 56 | eKqQ]XKm&"Cq0mFMlH,NJDd5q0:1/-uV |
| 22dbc0 | 55 3d 68 38 5e 50 5f 67 63 72 2e 33 46 6e 6e 28 22 4c 72 46 61 66 4c 67 6a 4c 3b 5f 5d 70 5c 46 | U=h8^P_gcr.3Fnn("LrFafLgjL;_]p\F |
| 22dbe0 | 2d 71 56 73 3b 42 6e 0a 4b 37 5d 51 35 6c 42 4b 3b 3c 71 4d 22 71 4b 22 62 6c 75 31 4c 26 5f 32 | -qVs;Bn.K7]Q5lBK;<qM"qK"blu1L&_2 |
| 22dc00 | 4d 4b 60 5f 3a 2e 4c 26 43 72 4e 66 28 2f 69 6b 7e 3e 0a 6e 63 27 39 53 57 6e 48 52 71 69 53 69 | MK`_:.L&CrNf(/ik~>.nc'9SWnHRqiSi |
| 22dc20 | 68 5c 66 69 69 24 2b 71 59 6f 44 6f 46 38 70 6d 6c 46 21 5e 6a 2d 72 71 70 64 2c 43 74 36 28 5d | h\fii$+qYoDoF8pmlF!^j-rqpd,Ct6(] |
| 22dc40 | 67 23 68 2f 42 63 47 5c 2c 60 69 54 54 51 5f 62 4b 51 5e 48 6b 4d 4f 6e 3b 66 41 47 63 57 0a 40 | g#h/BcG\,`iTTQ_bKQ^HkMOn;fAGcW.@ |
| 22dc60 | 2b 59 23 4b 71 3e 56 21 29 72 56 51 45 61 6f 27 50 5a 28 6c 30 65 36 40 72 56 75 6f 72 72 62 29 | +Y#Kq>V!)rVQEao'PZ(l0e6@rVuorrb) |
| 22dc80 | 33 2c 6e 5e 58 38 74 6b 4d 4f 6e 3b 66 41 47 63 57 53 27 50 73 42 6f 5e 71 66 71 45 3b 22 3b 4b | 3,n^X8tkMOn;fAGcWS'PsBo^qfqE;";K |
| 22dca0 | 72 56 6c 66 6b 6a 68 25 5f 5d 0a 69 6e 44 6c 2b 65 5f 54 3f 53 47 25 3e 4c 65 71 2f 27 53 71 6d | rVlfkjh%_].inDl+e_T?SG%>Leq/'Sqm |
| 22dcc0 | 2c 5a 73 4f 62 62 66 26 6d 46 67 39 36 43 68 57 46 31 26 5e 4f 23 5c 53 72 2c 3a 2f 5c 6c 66 5b | ,ZsObbf&mFg96ChWF1&^O#\Sr,:/\lf[ |
| 22dce0 | 30 57 63 64 4c 50 2c 6c 45 40 65 5b 70 5c 46 2d 71 54 5e 3a 61 70 0a 65 43 3c 3a 37 6d 22 57 4d | 0WcdLP,lE@e[p\F-qT^:ap.eC<:7m"WM |
| 22dd00 | 73 71 4b 29 5a 39 22 60 73 5d 62 46 38 75 3a 3b 45 72 75 41 5f 46 38 5a 25 3c 64 2e 37 33 65 7e | sqK)Z9"`s]bF8u:;EruA_F8Z%<d.73e~ |
| 22dd20 | 3e 0a 6e 63 27 39 53 5a 48 39 4d 54 56 50 5e 45 27 62 64 2b 74 25 71 59 70 2a 2f 62 35 5d 69 66 | >.nc'9SZH9MTVP^E'bd+t%qYp*/b5]if |
| 22dd40 | 61 73 49 29 31 72 71 73 6b 2e 5f 70 75 3b 67 61 4b 68 3e 2d 5c 26 6b 65 40 55 55 6e 6d 4d 62 4b | asI)1rqsk._pu;gaKh>-\&ke@UUnmMbK |
| 22dd60 | 51 5e 29 5b 40 60 74 72 53 59 21 37 35 0a 58 6b 33 31 43 71 3e 56 21 29 72 56 51 45 61 6f 27 50 | Q^)[@`trSY!75.Xk31Cq>V!)rVQEao'P |
| 22dd80 | 5a 28 6c 30 65 36 40 72 56 75 6f 72 72 62 29 33 2c 6e 5e 58 38 55 5b 40 60 74 72 53 59 21 37 35 | Z(l0e6@rVuorrb)3,n^X8U[@`trSY!75 |
| 22dda0 | 53 27 54 25 44 6f 5e 71 67 73 61 37 64 55 4f 72 56 6c 66 6b 6a 68 26 34 40 0a 57 30 58 42 6f 54 | S'T%Do^qgsa7dUOrVlfkjh&4@.W0XBoT |
| 22ddc0 | 70 69 34 2b 5c 40 5d 60 56 71 38 42 68 56 60 33 23 42 24 5e 3b 5b 65 22 5e 3b 64 5b 54 53 3f 67 | pi4+\@]`Vq8BhV`3#B$^;[e"^;d[TS?g |
| 22dde0 | 38 49 5e 57 36 2d 4b 72 35 52 3c 5e 62 64 46 28 35 5b 26 42 3a 68 5e 56 25 2f 3d 70 5c 46 2d 71 | 8I^W6-Kr5R<^bdF(5[&B:h^V%/=p\F-q |
| 22de00 | 5a 2c 45 63 32 0a 55 53 46 30 58 60 34 58 2b 2e 71 54 41 67 3b 22 6a 36 6b 66 62 35 5f 4d 3d 61 | Z,Ec2.USF0X`4X+.qTAg;"j6kfb5_M=a |
| 22de20 | 6f 5f 55 63 62 35 44 38 3e 6d 49 4c 3a 2d 7e 3e 0a 6e 63 2a 4f 4b 5b 2d 75 50 47 4f 48 3e 61 47 | o_Ucb5D8>mIL:-~>.nc*OK[-uPGOH>aG |
| 22de40 | 6b 46 75 70 41 6e 2b 62 6d 72 4c 26 52 39 69 4b 6e 54 3e 55 70 40 2a 4f 60 46 4a 74 53 60 64 41 | kFupAn+bmrL&R9iKnT>Up@*O`FJtS`dA |
| 22de60 | 44 5c 3f 40 3b 4c 49 5a 60 39 35 52 3b 65 42 61 66 56 65 5a 3d 55 4d 4d 36 23 31 71 0a 45 53 3a | D\?@;LIZ`95R;eBafVeZ=UMM6#1q.ES: |
| 22de80 | 21 5f 73 38 57 29 74 72 56 5a 4e 65 70 40 40 56 36 68 70 66 66 62 5e 3b 4a 3d 55 6e 2b 63 68 58 | !_s8W)trVZNep@@V6hpffb^;J=Un+chX |
| 22dea0 | 71 3d 6a 55 55 6f 5e 56 2b 66 51 67 60 4a 2b 4d 30 34 5a 55 65 61 4a 40 28 47 4c 74 4c 22 66 6d | q=jUUo^V+fQg`J+M04ZUeaJ@(GLtL"fm |
| 22dec0 | 37 73 40 68 4c 34 65 61 0a 71 75 24 30 46 59 4c 32 31 37 4e 64 3f 29 37 5d 26 3c 2a 6e 48 25 47 | 7s@hL4ea.qu$0FYL217Nd?)7]&<*nH%G |
| 22dee0 | 6e 6a 4a 39 5a 41 2d 64 41 44 5c 3f 40 38 42 4b 6a 3f 75 71 2b 23 64 49 2a 58 50 4e 56 69 5f 52 | njJ9ZA-dAD\?@8BKj?uq+#dI*XPNVi_R |
| 22df00 | 4b 26 33 5d 49 69 34 47 28 75 48 26 66 3e 68 64 26 59 70 6d 0a 71 21 3f 2c 24 6c 48 2c 4e 4a 4a | K&3]Ii4G(uH&f>hd&Ypm.q!?,$lH,NJJ |
| 22df20 | 73 73 64 47 50 66 2f 28 4a 4c 26 56 29 55 4c 26 5a 6a 5c 73 38 56 74 4d 21 72 6d 74 2e 72 3b 51 | ssdGPf/(JL&V)UL&Zj\s8VtM!rmt.r;Q |
| 22df40 | 63 4a 6f 29 46 34 7e 3e 0a 6e 63 27 39 44 58 52 23 27 2c 67 3d 6b 3c 41 6c 5d 74 6a 6b 6e 2b 62 | cJo)F4~>.nc'9DXR#',g=k<Al]tjkn+b |
| 22df60 | 61 5c 46 38 67 67 6b 46 26 69 2a 57 70 40 29 6e 4e 40 5d 35 4f 45 6b 32 2b 5c 37 5a 63 67 68 50 | a\F8ggkF&i*Wp@)nN@]5OEk2+\7ZcghP |
| 22df80 | 6a 36 4f 64 4e 65 42 61 66 52 6b 4d 4f 6e 3b 66 41 47 63 57 0a 40 62 4c 44 50 73 38 57 29 74 72 | j6OdNeBafRkMOn;fAGcW.@bLDPs8W)tr |
| 22dfa0 | 56 5a 4e 65 70 40 40 56 36 68 70 66 66 62 5e 3b 4a 3d 55 6e 2b 63 68 58 71 3d 6a 55 55 6f 5e 56 | VZNep@@V6hpffb^;J=Un+chXq=jUUo^V |
| 22dfc0 | 2b 66 51 67 3c 68 6c 66 3f 60 28 2b 6b 4e 64 75 36 41 5f 35 53 65 3b 71 59 68 75 68 4a 3b 4e 4f | +fQg<hlf?`(+kNdu6A_5Se;qYhuhJ;NO |
| 22dfe0 | 0a 71 75 24 30 46 59 4b 48 2b 67 67 21 53 37 25 69 54 5d 57 30 42 35 64 5f 46 44 65 3c 5c 4c 6b | .qu$0FYKH+gg!S7%iT]W0B5d_FDe<\Lk |
| 22e000 | 32 2b 5c 37 5a 5a 65 54 55 5a 2d 4c 71 57 6b 33 53 56 60 49 4a 61 24 42 45 53 64 6e 2d 6c 2f 43 | 2+\7ZZeTUZ-LqWk3SV`IJa$BESdn-l/C |
| 22e020 | 40 45 64 46 6d 4c 42 61 66 46 31 66 0a 71 21 3f 2b 73 6d 2c 5a 73 4f 65 44 30 2d 4f 4b 75 40 6a | @EdFmLBafF1f.q!?+sm,ZsOeD0-OKu@j |
| 22e040 | 29 46 38 6c 31 43 46 38 70 3c 26 73 38 56 74 3b 21 72 6d 3d 5f 72 3b 51 63 44 6f 29 46 34 7e 3e | )F8l1CF8p<&s8Vt;!rm=_r;QcDo)F4~> |
| 22e060 | 0a 6e 63 27 39 44 5e 57 61 2a 57 51 5e 3c 75 3c 5f 53 4e 58 71 6e 2b 63 46 71 62 35 54 63 65 62 | .nc'9D^Wa*WQ^<u<_SNXqn+cFqb5Tceb |
| 22e080 | 23 53 3e 5b 70 40 2c 75 50 5c 59 75 34 42 5a 43 49 4d 71 60 6b 6e 55 3c 58 32 3c 38 68 65 42 61 | #S>[p@,uP\Yu4BZCIMq`knU<X2<8heBa |
| 22e0a0 | 66 33 5b 40 60 74 72 53 59 21 37 35 0a 59 4d 26 52 48 73 38 57 29 74 72 56 5a 4e 65 70 40 40 56 | f3[@`trSY!75.YM&RHs8W)trVZNep@@V |
| 22e0c0 | 36 68 70 66 66 62 5e 3b 4a 3d 55 6e 2b 63 68 58 71 3d 6a 55 55 6f 5e 56 2b 66 51 63 75 6b 30 53 | 6hpffb^;J=Un+chXq=jUUo^V+fQcuk0S |
| 22e0e0 | 40 22 69 59 5b 45 4f 4b 3a 5d 5b 74 66 67 3b 71 5c 71 24 68 53 53 5b 51 0a 71 75 24 30 46 59 4b | @"iY[EOK:][tfg;q\q$hSS[Q.qu$0FYK |
| 22e100 | 3d 41 4e 52 42 45 54 58 56 53 28 45 5e 5e 3b 67 2a 4a 60 6b 41 62 25 5a 43 49 4d 71 60 6b 4a 6d | =ANRBETXVS(E^^;g*J`kAb%ZCIMq`kJm |
| 22e120 | 71 60 6a 68 59 32 5a 48 38 6c 65 62 35 3b 32 3a 61 50 4f 2c 41 5d 56 5f 24 72 59 2a 6c 26 72 61 | q`jhY2ZH8leb5;2:aPO,A]V_$rY*l&ra |
| 22e140 | 4b 2b 28 65 0a 71 21 3f 2c 2d 60 33 23 42 24 55 52 2f 2b 24 5d 3e 56 59 61 62 35 56 44 45 62 35 | K+(e.q!?,-`3#B$UR/+$]>VYab5VDEb5 |
| 22e160 | 5d 57 2c 73 38 56 75 3d 21 72 70 45 63 72 3b 51 63 61 6f 29 46 34 7e 3e 0a 6e 63 27 39 3b 62 34 | ]W,s8Vu=!rpEcr;Qcao)F4~>.nc'9;b4 |
| 22e180 | 21 6c 5d 4d 30 74 29 55 64 47 42 22 63 66 42 43 6b 3d 70 40 6a 5b 4a 4a 6f 4c 31 2d 68 70 51 53 | !l]M0t)UdGB"cfBCk=p@j[JJoL1-hpQS |
| 22e1a0 | 46 4c 21 66 3b 38 56 4d 42 35 24 3f 75 4c 58 63 61 51 66 53 22 68 39 68 6b 60 65 5a 3d 55 4d 4f | FL!f;8VMB5$?uLXcaQfS"h9hk`eZ=UMO |
| 22e1c0 | 4c 6a 42 3f 0a 46 34 70 2d 5b 71 59 42 70 5b 6f 43 29 23 2c 68 55 54 66 61 59 62 41 26 2d 60 6c | LjB?.F4p-[qYBp[oC)#,hUTfaYbA&-`l |
| 22e1e0 | 47 24 69 66 42 60 25 74 6b 69 28 3d 4d 66 5b 53 24 48 4a 61 5f 2d 6a 4d 30 34 5a 55 65 61 49 2e | G$ifB`%tki(=Mf[S$HJa_-jM04ZUeaI. |
| 22e200 | 2d 42 56 44 2f 70 55 4d 46 59 49 45 52 2a 56 38 0a 71 22 21 28 35 6e 28 22 4c 72 46 61 54 3a 5e | -BVD/pUMFYIER*V8.q"!(5n("LrFaT:^ |
| 22e220 | 69 34 73 32 56 4b 29 50 58 2d 4a 70 56 43 5e 68 36 72 3e 69 42 32 71 3f 27 43 6b 2e 65 68 6b 4c | i4s2VK)PX-JpVC^h6r>iB2q?'Ck.ehkL |
| 22e240 | 2d 4b 66 4f 38 5d 2b 58 4b 42 39 62 4f 6a 4d 36 74 2e 46 2c 2d 58 3f 6d 5c 25 71 71 0a 70 5b 36 | -KfO8]+XKB9bOjM6t.F,-X?m\%qq.p[6 |
| 22e260 | 3b 2c 6c 48 2c 4e 4a 4a 73 73 64 47 50 2e 75 4a 40 4b 60 3a 72 53 4c 26 51 64 5b 72 72 29 5f 49 | ;,lH,NJJssdGP.uJ@K`:rSL&Qd[rr)_I |
| 22e280 | 22 54 2a 6b 2a 72 56 6c 66 72 21 37 70 60 40 4a 2c 7e 3e 0a 6e 63 2a 46 3f 5f 21 43 31 40 66 40 | "T*k*rVlfr!7p`@J,~>.nc*F?_!C1@f@ |
| 22e2a0 | 26 37 2c 6b 31 4f 39 50 66 42 43 5f 27 70 40 6a 29 57 45 2c 62 38 5f 68 70 50 72 34 46 69 73 2b | &7,k1O9PfBC_'p@j)WE,b8_hpPr4Fis+ |
| 22e2c0 | 36 68 55 5d 75 59 5a 2d 3a 5f 51 6a 51 72 35 2d 68 39 68 6b 5c 6b 4d 4f 6e 3b 67 3e 56 3b 5d 0a | 6hU]uYZ-:_QjQr5-h9hk\kMOn;g>V;]. |
| 22e2e0 | 41 28 67 47 4b 71 59 42 70 5b 6f 43 29 23 2c 68 55 54 66 61 59 62 40 65 73 5d 74 5e 3e 53 66 42 | A(gGKqYBp[oC)#,hUTfaYb@es]t^>SfB |
| 22e300 | 60 25 74 6b 69 28 3d 4d 66 5b 53 24 48 4a 61 3b 4c 56 66 3f 60 28 2b 6b 4e 63 63 3b 3c 68 5a 37 | `%tki(=Mf[S$HJa;LVf?`(+kNcc;<hZ7 |
| 22e320 | 5e 3b 6b 6d 4b 21 58 5e 4b 48 37 0a 6f 28 5f 65 2e 56 21 49 34 24 66 3f 5f 6e 21 69 54 5b 64 55 | ^;kmK!X^KH7.o(_e.V!I4$f?_n!iT[dU |
| 22e340 | 42 6c 4f 25 4c 45 2b 72 52 74 6c 2f 43 3d 43 60 4a 64 48 5d 62 4c 3e 35 2b 6c 63 3f 33 60 4a 2c | BlO%LE+rRtl/C=C`JdH]bL>5+lc?3`J, |
| 22e360 | 54 45 48 45 54 4f 6a 31 6c 4a 67 4f 48 63 49 55 6b 37 6d 25 29 4d 6c 0a 70 5b 36 3b 25 6d 2c 5a | TEHETOj1lJgOHcIUk7m%)Ml.p[6;%m,Z |
| 22e380 | 73 4f 65 44 30 2d 4f 4b 74 68 49 21 46 38 6c 2e 42 46 38 67 36 25 72 72 29 65 3a 73 29 4a 38 3e | sOeD0-OKthI!F8l.BF8g6%rr)e:s)J8> |
| 22e3a0 | 45 63 56 2d 58 72 72 32 75 46 6f 29 46 34 7e 3e 0a 6e 63 2a 46 3f 63 63 69 65 67 53 5a 41 42 51 | EcV-Xrr2uFo)F4~>.nc*F?cciegSZABQ |
| 22e3c0 | 5a 48 27 35 59 66 42 44 44 3c 70 40 6c 68 51 61 32 64 59 65 68 70 54 24 36 5c 26 6c 5b 72 53 3d | ZH'5YfBDD<p@lhQa2dYehpT$6\&l[rS= |
| 22e3e0 | 5b 34 30 60 6b 53 3a 38 58 69 2f 29 6b 68 39 68 6b 3d 5b 40 60 74 72 52 26 37 4f 47 0a 59 68 41 | [40`kS:8Xi/)kh9hk=[@`trR&7OG.YhA |
| 22e400 | 55 43 71 59 42 70 5b 6f 43 29 23 2c 68 55 54 66 61 59 62 41 44 3d 60 51 2c 36 71 66 42 60 25 74 | UCqYBp[oC)#,hUTfaYbAD=`Q,6qfB`%t |
| 22e420 | 6b 69 28 3d 4d 66 5b 53 24 48 4a 5d 74 4e 6f 53 40 22 69 59 5b 45 4e 39 3f 59 2b 5f 53 61 3b 6b | ki(=Mf[S$HJ]tNoS@"iY[EN9?Y+_Sa;k |
| 22e440 | 70 53 25 58 67 63 55 39 0a 6f 28 5f 65 2e 55 73 2d 36 3d 53 40 23 3e 61 56 53 27 73 55 5e 72 51 | pS%XgcU9.o(_e.Us-6=S@#>aVS'sU^rQ |
| 22e460 | 45 50 61 32 23 25 29 5c 74 62 5b 72 61 68 62 4f 2a 5f 50 57 55 21 5f 55 2c 46 3f 62 6c 2e 53 40 | EPa2#%)\tb[rahbO*_PWU!_U,F?bl.S@ |
| 22e480 | 61 51 3a 28 53 5e 53 6d 48 73 5c 3d 5d 3a 73 61 65 5b 3b 50 0a 70 5b 36 3b 35 60 33 23 42 24 55 | aQ:(S^SmHs\=]:sae[;P.p[6;5`3#B$U |
| 22e4a0 | 52 2f 2b 24 5d 3e 29 38 59 62 35 56 41 44 62 35 54 51 2b 72 72 29 66 3c 73 32 62 45 40 61 69 58 | R/+$]>)8Yb5VADb5TQ+rr)f<s2bE@aiX |
| 22e4c0 | 4d 5c 72 72 32 75 63 6f 29 46 34 7e 3e 0a 6e 63 2a 34 37 61 6d 5b 63 5c 4d 30 33 6c 70 56 55 3d | M\rr2uco)F4~>.nc*47am[c\M03lpVU= |
| 22e4e0 | 37 41 58 32 44 59 74 68 72 2a 46 3f 48 65 24 42 57 5a 28 40 33 2c 6d 47 36 24 61 4c 4e 3f 6d 2b | 7AX2DYthr*F?He$BWZ(@3,mG6$aLN?m+ |
| 22e500 | 46 2b 54 6b 25 6c 4a 6c 5d 67 6a 4f 27 4c 64 65 5a 3d 55 54 4f 4c 6a 41 64 0a 45 6d 73 37 3d 6c | F+Tk%lJl]gjO'LdeZ=UTOLjAd.Ems7=l |
| 22e520 | 4b 40 30 5f 66 3f 5f 46 49 59 2b 5f 4d 6a 5f 73 63 6d 4f 69 38 46 22 44 5b 46 46 27 60 5f 6d 3f | K@0_f?_FIY+_Mj_scmOi8F"D[FF'`_m? |
| 22e540 | 3e 3c 55 37 52 55 41 4e 70 3d 60 55 4b 35 59 6d 68 58 34 3f 74 35 3d 4f 46 2b 62 69 3a 2d 2d 5c | ><U7RUANp=`UK5YmhX4?t5=OF+bi:--\ |
| 22e560 | 54 43 31 2b 28 0a 4c 4e 41 27 39 61 51 67 5a 5f 49 3d 71 4f 75 4b 37 37 6a 39 6b 4a 57 58 39 44 | TC1+(.LNA'9aQgZ_I=qOuK77j9kJWX9D |
| 22e580 | 2d 4b 53 3e 46 2c 2d 58 3f 6d 5c 49 56 5b 4f 54 2c 3a 5b 4b 5e 36 5e 45 6c 48 2c 4e 4a 44 68 3d | -KS>F,-X?m\IV[OT,:[K^6^ElH,NJDh= |
| 22e5a0 | 47 21 6c 44 32 3b 5c 70 40 2d 4f 68 6e 28 22 4c 72 0a 49 5a 68 4a 2c 59 64 41 63 47 4b 28 6f 21 | G!lD2;\p@-Ohn("Lr.IZhJ,YdAcGK(o! |
| 22e5c0 | 34 4b 28 58 5f 49 6f 5e 72 2a 36 24 41 21 60 71 4a 3a 5b 43 68 72 56 6c 69 4a 6f 29 46 34 7e 3e | 4K(X_Io^r*6$A!`qJ:[ChrVliJo)F4~> |
| 22e5e0 | 0a 6e 63 2a 34 37 5f 21 43 31 40 66 3f 5f 61 6e 68 57 45 4c 23 58 32 44 4d 5f 68 72 2a 46 2d 43 | .nc*47_!C1@f?_anhWEL#X2DM_hr*F-C |
| 22e600 | 22 3a 4a 45 5a 28 3f 5d 6c 6d 48 4e 60 68 66 24 3a 55 68 63 49 43 59 31 6d 2b 50 58 48 6a 4f 27 | ":JEZ(?]lmHN`hf$:UhcICY1m+PXHjO' |
| 22e620 | 4c 60 6b 4d 4f 6e 3e 67 3e 56 3b 2c 0a 40 61 6a 51 2d 6c 4b 40 30 5f 66 3f 5f 46 49 59 2b 5f 3e | L`kMOn>g>V;,.@ajQ-lK@0_f?_FIY+_> |
| 22e640 | 5e 5d 42 65 68 4b 6c 30 37 54 4d 5b 46 46 27 60 5f 6d 3f 3e 3c 55 37 52 55 3b 4d 21 58 33 58 65 | ^]BehKl07TM[FF'`_m?><U7RU;M!X3Xe |
| 22e660 | 42 48 37 6a 68 72 6a 62 22 3d 4e 52 41 55 69 3a 2d 2d 5c 53 46 23 43 70 0a 66 24 3b 65 23 6a 51 | BH7jhrjb"=NRAUi:--\SF#Cp.f$;e#jQ |
| 22e680 | 73 42 60 43 4e 39 40 51 45 47 54 27 4c 6c 66 36 61 4b 62 62 26 3d 4b 63 49 55 6b 37 6d 24 3e 45 | sB`CN9@QEGT'Llf6aKbb&=KcIUk7m$>E |
| 22e6a0 | 4b 4a 63 3e 5d 4c 45 70 4c 66 25 6d 2c 5a 73 4f 62 67 62 47 2f 6d 25 32 29 58 70 40 2d 4f 62 6c | KJc>]LEpLf%m,ZsObgbG/m%2)Xp@-Obl |
| 22e6c0 | 66 5b 30 57 0a 64 62 3c 5e 47 56 36 6a 74 2a 45 3b 30 29 22 45 3a 6e 30 68 6f 5e 72 2a 24 73 29 | f[0W.db<^GV6jt*E;0)"E:n0ho^r*$s) |
| 22e6e0 | 2f 32 32 44 4b 23 34 44 72 56 6c 69 44 6f 29 46 34 7e 3e 0a 6e 63 2a 34 37 63 63 69 65 67 53 5b | /22DK#4DrVliDo)F4~>.nc*47cciegS[ |
| 22e700 | 3e 6b 75 53 3f 67 35 3e 58 32 45 32 74 68 72 2a 47 2f 5e 74 24 5d 47 5a 28 41 56 4d 61 31 41 4c | >kuS?g5>X2E2thr*G/^t$]GZ(AVMa1AL |
| 22e720 | 46 54 21 75 5f 57 5c 3e 2c 43 6d 60 37 44 33 3b 6a 4f 27 4c 41 5b 40 60 74 69 52 26 37 4f 33 0a | FT!u_W\>,Cm`7D3;jO'LA[@`tiR&7O3. |
| 22e740 | 59 4c 44 5f 25 6c 4b 40 30 5f 66 3f 5f 46 49 59 2b 5f 66 26 5f 70 24 27 36 5d 59 29 3b 2a 5b 46 | YLD_%lK@0_f?_FIY+_f&_p$'6]Y);*[F |
| 22e760 | 46 27 60 5f 6d 3f 3e 3c 55 37 52 55 4b 51 63 2d 22 6d 55 56 3d 2b 2b 54 21 65 3a 39 3d 30 5d 58 | F'`_m?><U7RUKQc-"mUV=++T!e:9=0]X |
| 22e780 | 23 6e 45 6e 53 75 62 2d 49 50 2f 0a 5c 22 66 3a 6c 60 36 47 61 2d 61 53 75 31 5b 5f 6d 6d 50 22 | #nEnSub-IP/.\"f:l`6Ga-aSu1[_mmP" |
| 22e7a0 | 58 2d 4b 4e 75 60 34 58 2b 22 54 3a 45 34 2f 5f 6e 59 3f 5a 72 72 3c 23 3f 6c 63 3f 63 58 58 64 | X-KNu`4X+"T:E4/_nY?Zrr<#?lc?cXXd |
| 22e7c0 | 3e 66 73 55 52 2f 2b 24 58 68 73 3b 71 6e 43 2b 2c 55 5b 40 60 74 66 0a 51 44 68 52 3a 5b 28 75 | >fsUR/+$Xhs;qnC+,U[@`tf.QDhR:[(u |
| 22e7e0 | 2e 4e 70 5c 2b 3d 24 6f 75 47 2c 46 6f 5f 6c 69 31 60 58 29 22 4f 60 71 42 30 2b 72 72 3b 42 56 | .Np\+=$ouG,Fo_li1`X)"O`qB0+rr;BV |
| 22e800 | 73 2a 74 7e 3e 0a 6e 63 29 59 2d 5e 24 6a 4c 50 4d 30 33 39 4b 4c 53 69 4a 65 5b 40 3c 3d 71 59 | s*t~>.nc)Y-^$jLPM039KLSiJe[@<=qY |
| 22e820 | 48 6b 48 4f 43 6e 52 38 6d 60 3a 2a 21 49 63 2a 6a 3d 24 46 28 26 48 63 46 2b 54 6b 25 6c 42 6c | HkHOCnR8m`:*!Ic*j=$F(&HcF+Tk%lBl |
| 22e840 | 59 2e 6b 67 23 61 65 64 41 44 5c 48 4f 4c 6a 41 62 0a 43 71 49 6a 34 60 50 2f 61 5d 55 37 4a 2d | Y.kg#aedAD\HOLjAb.CqIj4`P/a]U7J- |
| 22e860 | 69 64 49 36 4a 63 69 37 35 72 62 5d 3d 5a 3e 4e 5a 2a 56 2a 42 5d 5d 26 65 57 73 36 39 6d 33 52 | idI6Jci75rb]=Z>NZ*V*B]]&eWs69m3R |
| 22e880 | 74 47 57 61 40 57 64 4f 2f 70 58 4c 65 4d 6d 42 34 4f 6b 6b 2f 61 4c 64 61 64 5b 70 24 0a 4a 73 | tGWa@WdO/pXLeMmB4Okk/aLdad[p$.Js |
| 22e8a0 | 73 64 47 50 42 32 35 2b 72 72 37 59 25 47 42 60 4b 26 56 4d 42 35 24 3a 4c 4a 37 21 56 55 3d 67 | sdGPB25+rr7Y%GB`K&VMB5$:LJ7!VU=g |
| 22e8c0 | 56 63 67 48 74 71 73 21 60 57 6a 64 56 38 31 23 58 47 4d 28 49 4f 4c 6a 41 66 5b 2c 43 54 49 66 | VcgHtqs!`WjdV81#XGM(IOLjAf[,CTIf |
| 22e8e0 | 54 50 5e 52 58 47 4d 3d 64 0a 5d 26 3a 3e 6d 46 4f 74 6f 74 68 56 3c 47 31 48 40 22 35 72 72 64 | TP^RXGM=d.]&:>mFOtothV<G1H@"5rrd |
| 22e900 | 22 72 74 47 5e 25 3e 54 47 69 25 60 58 71 75 35 31 3b 73 2a 74 7e 3e 0a 6e 63 29 59 2d 5b 2d 51 | "rtG^%>TGi%`Xqu51;s*t~>.nc)Y-[-Q |
| 22e920 | 6f 34 66 3f 5e 71 4f 66 26 23 51 55 58 49 22 72 4e 59 48 6b 48 3d 3e 2b 68 3a 53 5d 42 65 68 4a | o4f?^qOf&#QUXI"rNYHkH=>+h:S]BehJ |
| 22e940 | 6a 6c 2c 25 48 63 45 6a 64 63 63 49 43 59 31 6d 23 2c 3e 61 6b 67 23 5b 61 6b 32 2b 5c 3b 67 3e | jl,%HcEjdccICY1m#,>akg#[ak2+\;g> |
| 22e960 | 56 3b 2a 0a 3e 65 41 2f 24 60 50 2f 61 5d 55 37 37 64 59 62 33 53 48 5c 6c 30 25 2d 65 69 53 69 | V;*.>eA/$`P/a]U77dYb3SH\l0%-eiSi |
| 22e980 | 6e 61 57 6a 42 40 3b 5b 2b 59 42 43 73 36 4c 24 50 67 73 6a 51 46 5c 42 69 64 61 70 5a 46 27 6b | naWjB@;[+YBCs6L$PgsjQF\BidapZF'k |
| 22e9a0 | 6d 41 53 2b 65 6b 2f 61 3a 60 6a 50 38 38 2f 0a 65 44 30 2d 4f 4b 6a 6e 6e 3d 72 72 37 22 56 41 | mAS+ek/a:`jP88/.eD0-OKjnn=rr7"VA |
| 22e9c0 | 53 31 3b 6b 68 55 5d 75 59 47 48 6f 48 45 68 57 46 30 3b 63 67 48 44 61 73 21 60 21 58 64 54 3e | S1;khU]uYGHoHEhWF0;cgHDas!`!XdT> |
| 22e9e0 | 62 74 68 71 2d 33 26 67 3e 56 3b 2e 5b 2c 43 54 49 66 53 6f 2e 5a 68 71 2d 3c 31 0a 69 54 5b 62 | bthq-3&g>V;.[,CTIfSo.Zhq-<1.iT[b |
| 22ea00 | 3e 40 62 35 41 50 68 56 3b 68 75 42 50 3f 26 4e 72 62 29 5b 50 41 6e 42 2e 73 42 41 56 71 47 71 | >@b5APhV;huBP?&Nrb)[PAnB.sBAVqGq |
| 22ea20 | 75 34 74 35 73 2a 74 7e 3e 0a 6e 63 29 56 2c 60 6c 74 69 5e 53 5b 3f 47 48 54 3a 45 34 30 5c 74 | u4t5s*t~>.nc)V,`lti^S[?GHT:E40\t |
| 22ea40 | 6c 25 2a 59 48 6b 49 3f 5a 43 6d 6e 6e 5f 70 24 27 31 59 62 52 59 59 5c 26 51 47 2e 5c 3e 2c 43 | l%*YHkI?ZCmnn_p$'1YbRYY\&QG.\>,C |
| 22ea60 | 6d 60 34 4e 53 33 6b 67 23 70 46 5a 43 49 4d 65 52 26 37 4f 32 0a 57 4f 70 3c 71 60 50 2f 61 5d | m`4NS3kg#pFZCIMeR&7O2.WOp<q`P/a] |
| 22ea80 | 55 38 22 6a 29 61 69 71 66 42 5d 58 3d 6c 3f 56 50 5e 54 37 5c 5b 2f 72 4a 5f 3e 44 49 56 60 21 | U8"j)aiqfB]X=l?VP^T7\[/rJ_>DIV`! |
| 22eaa0 | 45 4b 33 55 56 3d 5e 66 5b 25 33 66 5f 5b 34 41 69 2f 5c 26 64 58 6d 61 4b 60 5b 63 51 5f 56 39 | EK3UV=^f[%3f_[4Ai/\&dXmaK`[cQ_V9 |
| 22eac0 | 69 0a 51 60 5c 33 3c 5c 5c 75 53 67 73 32 69 36 6d 5a 63 5d 53 44 54 21 75 5f 52 60 6a 68 59 32 | i.Q`\3<\\uSgs2i6mZc]SDT!u_R`jhY2 |
| 22eae0 | 5a 48 39 48 21 6d 61 28 6e 34 2e 45 56 29 2d 59 30 3d 3b 47 53 40 23 3e 61 56 53 27 67 52 69 3a | ZH9H!ma(n4.EV)-Y0=;GS@#>aVS'gRi: |
| 22eb00 | 51 54 6d 57 51 5f 63 42 53 3f 26 24 53 0a 5d 5a 2d 47 4f 66 3e 36 41 24 67 71 5f 55 58 5e 59 25 | QTmWQ_cBS?&$S.]Z-GOf>6A$gq_UX^Y% |
| 22eb20 | 33 3c 5e 43 2e 63 68 5d 5a 5b 74 25 68 57 6a 62 31 72 70 42 3a 56 4a 2c 7e 3e 0a 6e 63 27 30 48 | 3<^C.ch]Z[t%hWjb1rpB:VJ,~>.nc'0H |
| 22eb40 | 52 49 41 5c 2c 4d 30 33 39 38 46 2c 2d 58 3f 6a 52 29 45 5e 72 6b 68 28 3c 69 3a 24 2b 21 69 37 | RIA\,M0398F,-X?jR)E^rkh(<i:$+!i7 |
| 22eb60 | 35 72 58 54 6f 4f 68 4a 41 38 36 31 2e 4c 50 60 28 5e 60 2d 36 4f 4b 6c 48 3f 30 6c 61 64 5b 70 | 5rXToOhJA861.LP`(^`-6OKlH?0lad[p |
| 22eb80 | 31 4f 4c 6a 41 5e 0a 3f 5d 31 2f 4a 56 36 2e 5c 5f 6e 2a 5d 4b 25 68 3a 39 63 67 5d 3c 25 4b 63 | 1OLjA^.?]1/JV6.\_n*]K%h:9cg]<%Kc |
| 22eba0 | 4f 48 3f 70 2c 64 3f 27 4f 4d 6a 4f 73 49 5d 73 32 62 50 39 4b 35 59 21 6b 3c 2b 3a 21 2c 70 54 | OH?p,d?'OMjOsI]s2bP9K5Y!k<+:!,pT |
| 22ebc0 | 2c 6d 52 67 23 39 30 65 68 37 6f 60 4d 61 64 5b 70 24 0a 4a 73 73 64 47 51 24 2e 5c 32 73 38 52 | ,mRg#90eh7o`Mad[p$.JssdGQ$.\2s8R |
| 22ebe0 | 62 28 48 3e 4d 4e 6d 5a 26 45 70 3d 3c 2c 5b 41 57 61 51 68 35 6c 68 3d 51 6d 30 73 21 60 57 6e | b(H>MNmZ&Ep=<,[AWaQh5lh=Qm0s!`Wn |
| 22ec00 | 67 4d 47 67 24 5a 26 45 70 4d 4d 36 23 31 71 55 74 35 26 2c 68 4f 32 5e 47 5b 5a 35 5a 6c 0a 5a | gMGg$Z&EpMM6#1qUt5&,hO2^G[Z5Zl.Z |
| 22ec20 | 2e 5c 23 55 41 75 42 4f 4e 59 2c 51 33 33 43 4d 54 5a 3d 72 62 3b 67 54 42 55 3e 5d 61 4c 70 47 | .\#UAuBONY,Q33CMTZ=rb;gTBU>]aLpG |
| 22ec40 | 31 5e 6f 29 26 46 57 73 2a 74 7e 3e 0a 6e 63 29 38 2e 4f 36 62 75 64 66 3f 5e 71 33 63 49 55 6b | 1^o)&FWs*t~>.nc)8.O6budf?^q3cIUk |
| 22ec60 | 37 6c 4c 21 6f 58 5d 22 3e 53 5f 66 5e 25 6e 6a 6c 30 25 2d 64 68 3a 5e 3f 28 5e 3c 3d 67 4a 66 | 7lL!oX]">S_f^%njl0%-dh:^?(^<=gJf |
| 22ec80 | 25 38 67 42 5d 6b 3b 26 72 6c 48 3e 73 68 6a 50 38 38 35 67 3e 56 3b 26 0a 3a 51 28 49 33 54 3b | %8gB]k;&rlH>shjP885g>V;&.:Q(I3T; |
| 22eca0 | 42 33 42 6c 67 34 21 27 6c 30 25 30 67 69 53 57 47 69 67 27 3f 55 23 61 63 4d 5c 3d 6c 4b 4a 30 | B3Blg4!'l0%0giSWGig'?U#acM\=lKJ0 |
| 22ecc0 | 2f 73 35 58 49 40 65 42 46 65 3b 4d 52 5f 21 61 70 59 52 4c 5b 6b 68 33 32 6c 68 37 6f 4e 49 6a | /s5XI@eBFe;MR_!apYRL[kh32lh7oNIj |
| 22ece0 | 50 38 38 2f 0a 65 44 30 2d 4f 4c 4c 62 3a 43 73 38 52 2e 5a 42 6a 30 33 52 69 37 51 44 6b 4d 54 | P88/.eD0-OLLb:Cs8R.ZBj03Ri7QDkMT |
| 22ed00 | 6a 54 2a 6a 51 73 75 6e 68 3d 51 40 21 73 21 60 24 5d 67 4b 4e 3a 6f 69 37 51 45 26 66 41 47 63 | jT*jQsunh=Q@!s!`$]gKN:oi7QE&fAGc |
| 22ed20 | 57 55 74 35 26 2c 68 4e 51 25 46 69 52 75 57 32 0a 69 39 38 64 36 3c 32 58 21 2a 59 2c 50 52 21 | WUt5&,hNQ%FiRuW2.i98d6<2X!*Y,PR! |
| 22ed40 | 3d 5d 71 4a 6e 72 45 27 44 2d 4c 6e 66 63 4f 5a 48 44 2e 73 71 75 36 30 64 4a 2c 7e 3e 0a 6e 63 | =]qJnrE'D-LnfcOZHD.squ60dJ,~>.nc |
| 22ed60 | 29 59 39 5b 2a 35 71 4c 53 5b 3f 47 57 5c 22 42 31 72 5e 57 34 52 40 5f 53 61 3a 34 62 66 6e 35 | )Y9[*5qLS[?GW\"B1r^W4R@_Sa:4bfn5 |
| 22ed80 | 4a 5d 58 3d 6c 3a 52 5b 4b 6b 59 61 4d 74 60 73 54 3a 4d 52 5d 5e 70 4c 6f 38 6c 48 3f 4e 50 58 | J]X=l:R[KkYaMt`sT:MR]^pLo8lH?NPX |
| 22eda0 | 64 3e 66 60 52 26 37 4f 2e 0a 53 3b 57 57 3c 59 49 32 39 68 62 66 5b 6c 3d 5d 21 5c 63 43 56 4f | d>f`R&7O..S;WW<YI29hbf[l=]!\cCVO |
| 22edc0 | 73 33 40 51 5e 3d 4a 59 61 48 32 53 2f 5e 55 4f 2d 4b 73 2f 63 51 6e 55 56 3d 5e 5e 5f 38 69 70 | s3@Q^=JYaH2S/^UO-Ks/cQnUV=^^_8ip |
| 22ede0 | 52 70 52 60 74 32 5c 27 32 29 2e 68 37 70 29 31 58 64 3e 66 73 0a 55 52 2f 2b 24 5d 74 3b 38 2a | RpR`t2\'2).h7p)1Xd>fs.UR/+$]t;8* |
| 22ee00 | 73 38 55 36 5e 5e 70 3b 31 6e 54 70 72 3d 2e 5f 37 75 62 33 58 69 2f 59 6f 68 3d 54 28 6e 73 23 | s8U6^^p;1nTpr=._7ub3Xi/Yoh=T(ns# |
| 22ee20 | 41 30 6e 67 54 6f 26 34 54 70 72 3c 6f 53 59 21 37 35 55 74 35 26 2c 68 51 59 32 37 55 52 41 39 | A0ngTo&4Tpr<oSY!75Ut5&,hQY27URA9 |
| 22ee40 | 53 0a 54 73 72 33 64 58 4a 60 44 2f 59 2c 53 59 23 59 63 73 6a 72 59 63 74 3d 37 58 68 56 33 57 | S.Tsr3dXJ`D/Y,SY#YcsjrYct=7XhV3W |
| 22ee60 | 5d 3c 5d 54 3c 6f 29 26 46 57 73 2a 74 7e 3e 0a 6e 63 27 30 56 4e 36 70 43 68 4e 64 3e 4d 50 3f | ]<]T<o)&FWs*t~>.nc'0VN6pChNd>MP? |
| 22ee80 | 75 71 2b 23 5e 73 31 45 63 72 53 53 70 52 65 5e 3b 4c 4e 58 49 47 36 28 48 3f 21 6b 47 49 59 57 | uq+#^s1EcrSSpRe^;LNXIG6(H?!kGIYW |
| 22eea0 | 63 57 58 34 3e 22 63 4a 71 29 29 33 61 4a 65 43 47 52 74 47 58 2c 4f 4c 73 48 4d 0a 6e 2c 4d 59 | cWX4>"cJq))3aJeCGRtGX,OLsHM.n,MY |
| 22eec0 | 69 6b 4d 59 31 48 64 45 30 32 34 58 4a 28 6f 40 4d 31 5e 38 29 4d 6c 59 43 73 46 4c 31 26 44 5a | ikMY1HdE024XJ(o@M1^8)MlYCsFL1&DZ |
| 22eee0 | 32 43 5e 27 52 66 53 2e 5b 72 61 47 74 41 42 50 3b 50 5f 4d 28 3e 25 39 6c 45 4a 4f 62 5c 41 64 | 2C^'RfS.[raGtABP;P_M(>%9lEJOb\Ad |
| 22ef00 | 43 3c 4f 46 32 32 2d 0a 58 34 3f 5a 51 47 5f 28 50 4a 73 2b 51 29 52 45 4f 34 60 41 50 43 40 3a | C<OF22-.X4?ZQG_(PJs+Q)REO4`APC@: |
| 22ef20 | 50 44 68 3d 47 21 6c 42 48 44 53 71 33 31 67 58 2c 29 2c 64 4e 45 35 4c 50 46 4f 46 32 26 25 54 | PDh=G!lBHDSq31gX,),dNE5LPFOF2&%T |
| 22ef40 | 5a 75 6b 74 62 4f 22 69 5c 54 75 2c 61 22 4f 46 32 38 32 0a 5a 2e 5c 55 37 64 29 21 57 3a 70 24 | ZuktbO"i\Tu,a"OF282.Z.\U7d)!W:p$ |
| 22ef60 | 5f 6e 46 23 34 3a 42 51 5f 72 43 40 66 6f 29 46 34 7e 3e 0a 6e 63 27 2d 55 4b 23 6d 33 38 67 21 | _nF#4:BQ_rC@fo)F4~>.nc'-UK#m38g! |
| 22ef80 | 53 21 57 5a 48 68 25 58 69 6f 54 41 24 6b 70 2c 45 54 6b 32 62 4c 59 67 74 43 36 2a 63 2d 34 4d | S!WZHh%XioTA$kp,ETk2bLYgtC6*c-4M |
| 22efa0 | 5e 66 25 38 64 39 6b 49 37 49 34 44 39 32 25 61 55 3f 70 73 72 65 42 48 40 70 69 54 5e 40 2d 0a | ^f%8d9kI7I4D92%aU?psreBH@piT^@-. |
| 22efc0 | 73 36 4c 54 67 6c 30 37 42 6e 6a 50 6f 2e 55 68 3a 70 5a 38 65 43 32 6a 75 68 72 6a 3c 49 58 36 | s6LTgl07BnjPo.Uh:pZ8eC2juhrj<IX6 |
| 22efe0 | 53 5e 26 72 38 37 50 30 21 53 23 3f 6d 5c 2d 27 5b 6b 61 6a 39 5f 35 2f 29 39 34 50 57 6d 30 2f | S^&r87P0!S#?m\-'[kaj9_5/)94PWm0/ |
| 22f000 | 2a 5e 24 34 4d 30 64 61 2d 50 26 0a 6b 4e 63 32 5d 44 66 59 6d 58 46 29 62 75 26 57 54 72 4b 73 | *^$4M0da-P&.kNc2]DfYmXF)bu&WTrKs |
| 22f020 | 65 27 22 54 33 65 44 30 2d 4f 4c 31 39 42 42 4b 44 74 6c 70 46 38 2b 5b 23 5c 45 56 75 2b 64 60 | e'"T3eD0-OL19BBKDtlpF8+[#\EVu+d` |
| 22f040 | 70 3d 75 6a 6d 41 56 5e 6d 2e 39 38 2c 5c 2a 3b 6c 2a 64 61 36 59 29 0a 6b 6a 2e 51 56 5b 5e 73 | p=ujmAV^m.98,\*;l*da6Y).kj.QV[^s |
| 22f060 | 27 43 6c 69 2d 35 54 6d 46 6e 4d 56 69 71 3c 39 40 73 2a 74 7e 3e 0a 6e 63 27 30 56 5a 63 70 22 | 'Cli-5TmFnMViq<9@s*t~>.nc'0VZcp" |
| 22f080 | 55 52 42 46 45 4a 60 6a 5f 50 30 57 33 45 5c 40 72 4f 61 41 61 5b 42 63 70 33 54 39 6b 74 3e 59 | URBFEJ`j_P0W3E\@rOaAa[Bcp3T9kt>Y |
| 22f0a0 | 2e 44 42 54 57 31 54 57 4e 54 21 63 4a 39 5e 72 35 40 23 61 4b 60 5b 63 51 5f 56 39 71 52 26 37 | .DBTW1TWNT!cJ9^r5@#aK`[cQ_V9qR&7 |
| 22f0c0 | 4f 71 0a 62 6c 3e 54 75 5f 53 21 49 66 5a 45 3a 28 23 54 3a 32 25 33 53 3e 33 24 60 53 22 40 25 | Oq.bl>Tu_S!IfZE:(#T:2%3S>3$`S"@% |
| 22f0e0 | 33 46 4c 66 2f 62 55 26 3a 50 5f 51 4e 3c 6b 71 72 6c 35 2c 5f 62 30 25 2a 63 53 31 42 72 2e 60 | 3FLf/bU&:P_QN<kqrl5,_b0%*cS1Br.` |
| 22f100 | 34 3d 2e 45 5c 41 63 2b 58 51 60 49 4b 61 0a 54 21 63 65 46 5d 75 4a 31 6f 73 32 72 46 22 5b 5f | 4=.E\Ac+XQ`IKa.T!ceF]uJ1os2rF"[_ |
| 22f120 | 6f 6b 59 51 44 68 64 40 5e 53 40 2d 74 60 34 57 59 45 71 39 5d 2d 40 2c 30 4b 5a 3e 5b 45 23 71 | okYQDhd@^S@-t`4WYEq9]-@,0KZ>[E#q |
| 22f140 | 57 51 60 49 60 6c 52 5d 73 69 34 62 4f 22 69 5c 5c 42 32 43 5c 51 60 49 42 5c 0a 54 73 72 37 69 | WQ`I`lR]si4bO"i\\B2C\Q`IB\.Tsr7i |
| 22f160 | 61 4e 32 36 38 70 21 21 45 52 23 30 34 72 74 5f 72 43 40 66 6f 29 46 34 7e 3e 0a 6e 63 27 30 63 | aN268p!!ER#04rt_rC@fo)F4~>.nc'0c |
| 22f180 | 52 74 70 43 55 56 4d 66 74 4b 44 65 4f 33 49 50 47 2c 28 64 72 4f 58 3b 5a 58 4a 56 4a 4b 4d 31 | RtpCUVMftKDeO3IPG,(drOX;ZXJVJKM1 |
| 22f1a0 | 5e 2b 6f 46 61 53 64 74 50 2c 3e 3b 2d 65 5c 48 25 4a 4d 68 39 40 42 61 4a 65 43 47 52 74 47 57 | ^+oFaSdtP,>;-e\H%JMh9@BaJeCGRtGW |
| 22f1c0 | 6d 49 23 74 75 3e 0a 65 63 33 60 2e 60 34 4e 49 5a 56 4f 4e 64 30 4d 31 70 4a 2d 46 61 26 34 62 | mI#tu>.ec3`.`4NIZVONd0M1pJ-Fa&4b |
| 22f1e0 | 4d 6e 65 3f 44 42 5e 61 4b 51 4e 3b 53 50 34 4b 29 66 6f 69 46 54 3f 5e 5b 48 6e 39 6c 48 64 49 | Mne?DB^aKQN;SP4K)foiFT?^[Hn9lHdI |
| 22f200 | 2b 30 5b 65 3f 6d 30 50 5d 39 25 44 66 4f 4c 6a 42 3f 0a 43 6a 4c 5c 64 73 38 52 66 4c 4a 39 3f | +0[e?m0P]9%DfOLjB?.CjL\ds8RfLJ9? |
| 22f220 | 5f 39 63 28 54 69 32 41 3a 54 72 60 6b 4d 67 39 26 6e 62 65 55 4d 72 75 5a 73 6b 6c 23 60 39 57 | _9c(Ti2A:Tr`kMg9&nbeUMruZskl#`9W |
| 22f240 | 61 64 5b 70 24 4a 3c 65 28 39 58 68 61 2c 6c 6c 29 55 2a 37 61 64 5b 70 24 47 44 72 66 57 0a 65 | ad[p$J<e(9Xha,ll)U*7ad[p$GDrfW.e |
| 22f260 | 5f 55 35 5f 70 21 73 26 60 23 30 6b 69 67 57 51 73 6f 2d 6f 29 46 34 7e 3e 0a 6e 63 27 2d 62 4f | _U5_p!s&`#0kigWQso-o)F4~>.nc'-bO |
| 22f280 | 61 2d 39 54 68 55 70 3c 28 62 66 53 2f 5d 67 3e 31 5a 61 69 3f 52 3a 3c 68 56 3f 69 3a 65 42 75 | a-9ThUp<(bfS/]g>1Zai?R:<hV?i:eBu |
| 22f2a0 | 4f 65 64 61 5a 6e 26 68 56 5b 4a 59 5c 36 49 3a 2b 45 51 64 5b 68 55 3f 70 73 72 65 42 48 28 60 | OedaZn&hV[JY\6I:+EQd[hU?psreBH(` |
| 22f2c0 | 67 3e 57 25 6f 0a 73 35 59 24 57 69 53 69 5c 4e 67 74 4c 48 35 65 5e 4d 73 6d 64 2a 67 46 72 69 | g>W%o.s5Y$WiSi\NgtLH5e^Msmd*gFri |
| 22f2e0 | 70 2c 66 42 6c 66 5b 30 58 72 37 43 74 75 21 36 74 4a 67 21 37 43 4a 66 2f 43 60 50 3d 6d 26 38 | p,fBlf[0Xr7Ctu!6tJg!7CJf/C`P=m&8 |
| 22f300 | 28 56 5b 28 50 59 5e 67 3d 22 46 27 69 54 5d 57 32 0a 42 6c 4a 2e 6e 73 29 5c 24 53 41 3a 33 65 | (V[(PY^g="F'iT]W2.BlJ.ns)\$SA:3e |
| 22f320 | 2b 68 3a 39 63 61 65 28 60 70 4b 66 69 69 25 59 72 2e 47 22 4b 2a 63 71 32 42 40 5a 27 4f 35 67 | +h:9cae(`pKfii%Yr.G"K*cq2B@Z'O5g |
| 22f340 | 73 6a 51 73 67 5a 2e 55 73 5e 75 74 40 53 56 32 22 3f 74 67 73 6a 51 70 66 5c 6b 72 55 0a 72 54 | sjQsgZ.Us^ut@SV2"?tgsjQpf\krU.rT |
| 22f360 | 58 22 3c 72 6f 3d 3a 46 6b 6a 3e 31 6b 6d 4a 3f 44 52 4a 2c 7e 3e 0a 6e 63 27 30 63 5f 52 64 64 | X"<ro=:Fkj>1kmJ?DRJ,~>.nc'0c_Rdd |
| 22f380 | 6c 53 3d 3f 43 5c 5e 57 4f 24 57 51 43 3d 47 40 72 4d 43 67 35 54 3a 44 37 37 53 3e 33 36 75 5b | lS=?C\^WO$WQC=G@rMCg5T:D77S>36u[ |
| 22f3a0 | 26 5d 73 6d 51 43 4f 50 50 5b 44 5d 41 73 61 4e 33 54 32 61 4b 60 5b 63 51 5f 56 3a 3b 58 2d 5d | &]smQCOPP[D]AsaN3T2aK`[cQ_V:;X-] |
| 22f3c0 | 5e 5f 0a 5b 4b 21 3f 47 58 2f 3b 59 61 53 3c 6f 50 30 53 3d 75 64 5b 5b 27 3f 5b 2c 53 23 46 2a | ^_.[K!?GX/;YaS<oP0S=ud[['?[,S#F* |
| 22f3e0 | 52 42 5b 21 6c 56 53 2c 41 66 56 55 42 25 71 29 5a 69 49 39 25 58 22 3a 24 39 5a 48 39 57 21 65 | RB[!lVS,AfVUB%q)ZiI9%X":$9ZH9W!e |
| 22f400 | 3f 6d 30 2c 56 4f 2b 3f 61 52 26 37 4f 47 0a 5a 2c 22 45 26 73 38 55 37 3c 60 4f 69 53 21 59 61 | ?m0,VO+?aR&7OG.Z,"E&s8U7<`OiS!Ya |
| 22f420 | 56 38 73 61 4a 50 36 27 5f 55 50 6a 29 6e 62 67 63 35 72 75 5d 44 5b 6c 2b 2b 40 43 58 64 3e 66 | V8saJP6'_UPj)nbgc5ru]D[l++@CXd>f |
| 22f440 | 73 56 4e 6e 34 21 5b 5f 56 28 75 6c 2c 28 2d 50 58 64 3e 66 73 5a 28 25 47 70 0a 5b 43 5a 40 4d | sVNn4![_V(ul,(-PXd>fsZ(%Gp.[CZ@M |
| 22f460 | 6f 73 4f 65 24 23 2d 62 53 57 5a 2d 4d 62 35 6f 29 46 34 7e 3e 0a 6e 63 27 30 6d 57 48 2b 39 68 | osOe$#-bSWZ-Mb5o)F4~>.nc'0mWH+9h |
| 22f480 | 64 42 53 73 70 4a 70 5f 63 60 49 59 45 57 3d 72 4b 26 37 5f 4d 32 2d 5f 32 46 61 53 58 69 4d 33 | dBSspJp_c`IYEW=rK&7_M2-_2FaSXiM3 |
| 22f4a0 | 2b 31 2c 5e 58 3a 54 67 55 69 31 4d 42 4f 47 29 27 4c 62 47 73 6a 4c 52 74 47 57 5d 42 6d 63 24 | +1,^X:TgUi1MBOG)'LbGsjLRtGW]Bmc$ |
| 22f4c0 | 41 0a 58 54 2b 62 2c 51 26 71 23 5f 4c 50 28 26 25 46 61 38 40 64 4c 50 5f 2b 5d 58 32 21 60 23 | A.XT+b,Q&q#_LP(&%Fa8@dLP_+]X2!`# |
| 22f4e0 | 45 70 71 50 5b 4d 3e 5f 66 28 4a 3a 60 42 2c 72 4a 3a 4e 37 6f 54 31 54 23 64 49 2a 4f 4e 66 21 | EpqP[M>_f(J:`B,rJ:N7oT1T#dI*ONf! |
| 22f500 | 57 48 53 5d 39 25 44 68 50 2f 24 28 72 0a 44 67 5b 31 6b 73 38 52 66 4e 4a 55 32 41 2a 65 5a 3d | WHS]9%DhP/$(r.Dg[1ks8RfNJU2A*eZ= |
| 22f520 | 55 4d 46 62 23 71 25 6c 44 38 51 4e 70 5c 70 42 55 72 75 5a 73 6c 6d 57 58 54 56 63 28 54 69 32 | UMFb#q%lD8QNp\pBUruZslmWXTVc(Ti2 |
| 22f540 | 49 23 74 71 74 5f 6d 5c 52 73 6e 24 52 48 2f 64 41 44 5c 3f 41 39 61 27 37 0a 58 4c 41 2c 3f 6f | I#tqt_m\Rsn$RH/dAD\?A9a'7.XLA,?o |
| 22f560 | 72 53 2e 5e 23 47 4a 54 5e 65 25 3d 5d 39 72 71 24 2f 3f 7e 3e 0a 6e 63 27 30 6d 54 34 21 48 40 | rS.^#GJT^e%=]9rq$/?~>.nc'0mT4!H@ |
| 22f580 | 6b 32 3e 22 48 65 43 29 5e 68 65 28 2a 28 27 72 52 72 4c 4b 66 40 4a 49 22 63 64 4c 37 6b 66 40 | k2>"HeC)^he(*('rRrLKf@JI"cdL7kf@ |
| 22f5a0 | 6f 24 3b 69 6f 5d 46 58 54 33 5a 27 6e 4a 39 26 6d 24 62 47 3d 4c 63 67 73 6a 51 38 62 30 6f 23 | o$;io]FXT3Z'nJ9&m$bG=LcgsjQ8b0o# |
| 22f5c0 | 43 0a 68 75 44 49 4b 67 59 31 3f 34 66 24 72 30 72 63 64 43 31 6a 66 25 38 58 32 68 72 3c 70 74 | C.huDIKgY1?4f$r0rcdC1jf%8X2hr<pt |
| 22f5e0 | 45 70 4d 6f 47 66 44 58 2c 22 65 27 75 6d 74 72 52 56 26 26 6f 5c 28 68 50 6b 33 53 44 5b 66 21 | EpMoGfDX,"e'umtrRV&&o\(hPk3SD[f! |
| 22f600 | 57 30 54 69 53 29 60 2e 67 3e 5f 44 30 0a 3f 3e 46 50 25 73 38 52 30 3c 44 65 4e 56 47 6b 4d 4f | W0TiS)`.g>_D0.?>FP%s8R0<DeNVGkMO |
| 22f620 | 6e 3b 63 64 55 5c 31 6d 24 56 39 75 70 5c 6f 67 45 72 75 51 37 59 6d 55 5e 68 36 6a 6b 5c 4a 33 | n;cdU\1m$V9up\ogEruQ7YmU^h6jk\J3 |
| 22f640 | 64 62 3c 5b 45 5d 58 48 68 6c 6e 23 70 48 6c 6b 32 2b 5c 37 5e 3c 6b 4e 69 0a 68 75 32 4f 2c 68 | db<[E]XHhln#pHlk2+\7^<kNi.hu2O,h |
| 22f660 | 75 3b 43 39 68 3b 52 53 40 5d 42 26 62 64 6f 44 61 3d 7e 3e 0a 6e 63 27 30 6d 63 61 55 55 2b 5a | u;C9h;RS@]B&bdoDa=~>.nc'0mcaUU+Z |
| 22f680 | 44 21 50 51 55 54 3a 5a 2f 57 31 66 60 4c 72 4b 65 61 75 53 3d 5a 4c 56 5b 26 5e 2e 23 53 58 3e | D!PQUT:Z/W1f`LrKeauS=ZLV[&^.#SX> |
| 22f6a0 | 62 38 57 33 57 68 4e 58 30 66 53 29 63 2c 6f 35 3b 62 48 6f 2d 68 51 5f 56 3a 34 62 2c 5e 6d 2e | b8W3WhNX0fS)c,o5;bHo-hQ_V:4b,^m. |
| 22f6c0 | 0a 54 44 74 35 70 51 27 5b 6f 2f 53 74 69 36 65 5b 27 24 49 29 54 3a 4d 40 39 53 75 42 45 45 45 | .TDt5pQ'[o/Sti6e['$I)T:M@9SuBEEE |
| 22f6e0 | 6d 31 71 60 53 47 66 4a 6a 56 50 42 6f 5b 72 4c 45 71 56 6f 55 25 2f 21 5a 48 39 3b 72 66 21 57 | m1q`SGfJjVPBo[rLEqVoU%/!ZH9;rf!W |
| 22f700 | 48 2f 56 4f 2b 3f 5e 51 44 68 52 3a 0a 5b 44 4c 23 2d 73 38 55 37 3e 60 6b 53 5f 24 5b 40 60 74 | H/VO+?^QDhR:.[DL#-s8U7>`kS_$[@`t |
| 22f720 | 72 5b 26 30 31 6c 60 34 72 68 22 70 5c 72 50 3d 72 75 5d 44 5c 6d 5f 24 24 4c 59 61 56 38 73 58 | r[&01l`4rh"p\rP=ru]D\m_$$LYaV8sX |
| 22f740 | 2d 66 63 73 5f 6d 5c 52 73 6e 27 26 32 5e 5a 43 49 4d 71 61 4b 5f 35 2c 0a 54 3b 32 43 5f 6f 71 | -fcs_m\Rsn'&2^ZCIMqaK_5,.T;2C_oq |
| 22f760 | 32 35 4d 23 46 5f 46 21 62 2e 48 61 30 72 71 24 2f 3f 7e 3e 0a 6e 63 27 2a 72 5a 3f 70 53 68 6d | 25M#F_F!b.Ha0rq$/?~>.nc'*rZ?pShm |
| 22f780 | 62 2c 4f 60 52 5a 4e 47 5f 4a 71 33 5d 46 2c 28 50 38 73 4c 50 5f 2b 55 52 5d 46 24 40 65 60 3f | b,O`RZNG_Jq3]F,(P8sLP_+UR]F$@e`? |
| 22f7a0 | 2f 26 55 71 5f 35 2b 70 51 43 36 5b 6e 43 22 39 26 63 28 54 69 30 43 31 71 3a 2e 72 65 5e 5a 2d | /&Uq_5+pQC6[nC"9&c(Ti0C1q:.re^Z- |
| 22f7c0 | 0a 28 6b 40 21 5b 48 24 6b 2d 6f 4c 50 5f 25 51 52 5c 6d 2d 73 61 4f 54 41 2f 46 63 47 3e 34 5a | .(k@![H$k-oLP_%QR\m-saOTA/FcG>4Z |
| 22f7e0 | 27 2c 27 49 22 2d 6f 3d 44 54 60 28 6e 6b 5b 65 2e 2d 5d 61 4f 53 6b 37 67 59 4b 4b 5d 69 34 47 | ','I"-o=DT`(nk[e.-]aOSk7gYKK]i4G |
| 22f800 | 28 75 49 5c 74 4e 5c 5d 35 72 46 52 0a 4c 26 5f 31 2c 72 65 23 57 46 5a 4b 2f 66 62 4d 32 40 38 | (uI\tN\]5rFR.L&_1,re#WFZK/fbM2@8 |
| 22f820 | 36 6c 4a 6c 6f 31 4a 63 23 4a 32 72 72 34 27 6f 72 55 59 3e 57 69 37 59 41 6f 47 5f 31 64 51 65 | 6lJlo1Jc#J2rr4'orUY>Wi7YAoG_1dQe |
| 22f840 | 61 4b 61 22 6f 5e 6f 6e 3b 5f 56 69 25 66 49 57 6f 6a 58 4d 32 40 38 6c 0a 4f 53 2b 4a 30 4b 2a | aKa"o^on;_Vi%fIWojXM2@8l.OS+J0K* |
| 22f860 | 52 37 36 65 61 4b 61 22 70 41 58 5b 60 4a 2c 7e 3e 0a 6e 63 27 2a 72 57 2b 66 56 34 6d 2d 2a 4b | R76eaKa"pAX[`J,~>.nc'*rW+fV4m-*K |
| 22f880 | 66 67 74 4c 45 33 65 43 34 39 42 2c 31 47 26 6b 66 25 38 58 30 67 75 25 29 4f 6b 4e 5f 45 31 55 | fgtLE3eC49B,1G&kf%8X0gu%)OkN_E1U |
| 22f8a0 | 3b 28 41 5a 70 4f 64 50 34 6e 43 22 2a 21 6a 6b 5c 4a 32 62 4b 37 6c 53 72 6e 25 32 22 0a 28 58 | ;(AZpOdP4nC"*!jk\J2bK7lSrn%2".(X |
| 22f8c0 | 70 67 5b 64 46 2d 4c 6e 66 25 38 55 2f 67 74 70 72 49 6a 51 47 67 5d 41 3c 23 3a 2b 69 3b 44 3a | pg[dF-Lnf%8U/gtprIjQGg]A<#:+i;D: |
| 22f8e0 | 32 67 59 43 54 3f 72 53 52 35 2a 2f 2a 2c 6d 3c 52 62 51 5a 31 5e 24 34 4d 30 64 61 49 22 37 6d | 2gYCT?rSR5*/*,m<RbQZ1^$4M0daI"7m |
| 22f900 | 27 4c 35 3d 45 48 44 30 5b 0a 46 38 67 2f 70 43 38 5e 40 56 67 3d 4f 73 30 6a 51 74 54 30 42 35 | 'L5=EHD0[.F8g/pC8^@Vg=Os0jQtT0B5 |
| 22f920 | 64 5c 49 4b 44 74 6c 6d 46 38 62 5d 45 41 44 2d 32 29 66 5b 2f 2e 22 68 72 6a 3d 30 68 74 36 51 | d\IKDtlmF8b]EAD-2)f[/."hrj=0ht6Q |
| 22f940 | 4f 3f 61 6f 3a 59 67 3d 22 3f 6e 64 2b 3f 6e 26 72 6e 40 25 73 0a 72 6d 56 32 29 68 72 6a 3d 30 | O?ao:Yg="?nd+?n&rn@%s.rmV2)hrj=0 |
| 22f960 | 68 74 49 27 40 73 2a 74 7e 3e 0a 6e 63 27 2a 72 66 74 62 26 23 61 67 5c 3d 45 51 5e 46 38 37 55 | htI'@s*t~>.nc'*rftb&#ag\=EQ^F87U |
| 22f980 | 53 64 6d 67 2c 2c 56 2d 31 54 3a 4d 40 38 51 5f 28 28 56 5b 44 30 68 75 57 50 3f 33 65 70 58 25 | Sdmg,,V-1T:M@8Q_((V[D0huWP?3epX% |
| 22f9a0 | 28 4b 6e 43 22 50 5d 59 61 56 39 23 60 6c 63 48 29 72 67 61 22 60 0a 28 6f 3d 3a 39 59 2c 65 46 | (KnC"P]YaV9#`lcH)rga"`.(o=:9Y,eF |
| 22f9c0 | 70 54 3a 4d 43 3b 51 5e 6a 59 45 58 67 50 70 63 5a 26 51 75 3a 54 70 47 59 45 22 2d 6f 34 3e 52 | pT:MC;Q^jYEXgPpcZ&Qu:TpGYE"-o4>R |
| 22f9e0 | 66 2f 66 58 55 5c 28 45 36 58 67 51 5d 67 67 59 4b 4b 5c 5d 56 5f 24 72 57 31 3a 30 38 60 34 3c | f/fXU\(E6XgQ]ggYKK\]V_$rW1:08`4< |
| 22fa00 | 68 2d 0a 62 35 5f 4c 61 72 6c 44 73 63 60 6b 53 49 3c 53 58 6c 31 4e 60 37 44 2d 2b 60 72 23 65 | h-.b5_LarlDsc`kSI<SXl1N`7D-+`r#e |
| 22fa20 | 5f 72 72 34 28 5f 72 55 5b 68 30 62 64 58 3a 38 5a 28 6d 6b 5d 5b 45 50 6c 34 6f 5e 70 5f 43 61 | _rr4(_rU[h0bdX:8Z(mk][EPl4o^p_Ca |
| 22fa40 | 68 34 4c 3b 57 33 4e 6b 3b 53 3d 48 23 48 0a 51 68 3f 6d 4a 55 42 64 3f 5d 5b 45 50 6c 34 70 41 | h4L;W3Nk;S=H#H.Qh?mJUBd?][EPl4pA |
| 22fa60 | 58 5b 60 4a 2c 7e 3e 0a 6e 63 27 2a 75 5c 3a 41 71 3e 54 26 41 65 62 61 4c 5c 58 52 52 5b 2a 60 | X[`J,~>.nc'*u\:Aq>T&AebaL\XRR[*` |
| 22fa80 | 32 2b 2d 69 3a 60 56 51 37 3b 43 61 4f 54 35 36 68 51 69 68 6f 63 66 39 53 2f 72 4b 44 72 63 6f | 2+-i:`VQ7;CaOT56hQihocf9S/rKDrco |
| 22faa0 | 5c 3f 28 73 66 73 2d 4b 66 49 66 2b 52 34 4a 3a 60 42 2c 0a 4d 32 40 37 53 51 28 22 53 4e 5b 5e | \?(sfs-KfIf+R4J:`B,.M2@7SQ("SN[^ |
| 22fac0 | 73 51 2d 65 5f 6f 60 4c 5a 5a 43 2c 6b 56 72 75 3d 3e 72 4f 4e 2a 4c 61 4e 32 58 29 65 48 22 46 | sQ-e_o`LZZC,kVru=>rON*LaN2X)eH"F |
| 22fae0 | 74 69 25 2b 2a 4d 58 4c 25 2d 50 60 69 5c 46 42 51 26 71 2a 29 64 49 2a 63 53 6d 74 3f 44 70 0a | ti%+*MXL%-P`i\FBQ&q*)dI*cSmt?Dp. |
| 22fb00 | 73 2b 55 4b 2b 4a 3a 60 28 37 64 43 2d 2a 56 5b 60 49 61 34 49 3d 3f 68 4a 73 2d 2a 48 5e 2b 47 | s+UK+J:`(7dC-*V[`Ia4I=?hJs-*H^+G |
| 22fb20 | 4b 67 69 49 58 41 4b 60 5e 6c 73 41 25 54 58 73 28 4f 5a 4a 62 48 4f 61 45 4d 70 74 64 41 45 28 | KgiIXAK`^lsA%TXs(OZJbHOaEMptdAE( |
| 22fb40 | 62 4c 4f 73 75 26 49 21 3e 37 2b 0a 21 2e 22 51 6b 23 5f 38 41 50 68 3d 2e 57 2a 70 41 58 5b 60 | bLOsu&I!>7+.!."Qk#_8APh=.W*pAX[` |
| 22fb60 | 4a 2c 7e 3e 0a 6e 63 27 2a 75 59 26 41 24 66 53 28 5b 2c 6b 6a 50 66 25 52 67 74 56 5c 5a 2a 6f | J,~>.nc'*uY&A$fS([,kjPf%RgtV\Z*o |
| 22fb80 | 23 4b 2a 68 56 5b 3b 4f 6a 51 47 64 6f 66 71 74 3f 4a 63 66 38 71 60 72 49 5d 31 3b 6f 5c 3e 71 | #K*hV[;OjQGdofqt?Jcf8q`rI]1;o\>q |
| 22fba0 | 68 6b 68 74 2b 43 71 70 48 47 34 65 43 3c 25 23 0a 66 40 65 6d 34 67 74 70 72 49 69 54 30 2e 61 | hkht+CqpHG4eC<%#.f@em4gtprIiT0.a |
| 22fbc0 | 6c 30 52 2a 24 40 70 63 4c 31 6c 66 49 2e 29 69 3c 2f 2d 24 6a 51 36 40 27 21 39 6a 28 3e 2f 2a | l0R*$@pcL1lfI.)i</-$jQ6@'!9j(>/* |
| 22fbe0 | 74 75 69 58 6d 22 6c 64 55 5b 2d 73 70 67 3d 6b 45 47 6d 25 4a 25 5b 45 63 5f 39 5c 0a 46 38 70 | tuiXm"ldU[-spg=kEGm%J%[Ec_9\.F8p |
| 22fc00 | 38 75 45 62 58 6e 26 69 53 57 50 4f 6a 51 72 55 58 43 69 54 49 53 4b 44 74 6c 6a 46 38 6b 72 4e | 8uEbXn&iSWPOjQrUXCiTISKDtljF8krN |
| 22fc20 | 43 54 3f 5b 5a 67 3d 34 58 2e 69 54 5d 58 35 69 3a 63 72 5f 41 53 4c 4d 6e 68 56 2d 57 35 65 47 | CT?[Zg=4X.iT]X5i:cr_ASLMnhV-W5eG |
| 22fc40 | 64 6b 72 64 2e 50 5d 62 0a 64 4a 68 51 22 65 28 69 70 47 6c 45 42 2b 3d 72 71 24 2f 3f 7e 3e 0a | dkrd.P]b.dJhQ"e(ipGlEB+=rq$/?~>. |
| 22fc60 | 6e 63 27 2a 75 68 6f 3c 49 46 55 3c 55 51 61 58 65 71 65 5e 51 5e 2e 45 37 2b 2d 69 31 5a 53 3d | nc'*uho<IFU<UQaXeqe^Q^.E7+-i1ZS= |
| 22fc80 | 5a 55 56 58 67 50 67 5b 61 69 28 27 62 63 66 3c 24 64 72 51 72 5e 52 6f 5c 3f 55 6e 5c 22 54 3a | ZUVXgPg[ai('bcf<$drQr^Ro\?Un\"T: |
| 22fca0 | 64 57 3b 4e 5c 38 56 50 42 6f 5b 0a 53 58 6c 31 39 51 27 5c 23 34 55 53 62 30 21 5b 43 6a 48 22 | dW;N\8VPBo[.SXl19Q'\#4USb0![CjH" |
| 22fcc0 | 60 4e 5a 65 55 5e 72 21 3d 53 72 4d 42 5b 74 58 66 5c 69 2b 5b 2f 64 66 31 5d 49 55 71 43 5a 2d | `NZeU^r!=SrMB[tXf\i+[/df1]IUqCZ- |
| 22fce0 | 29 3a 6c 60 6b 4b 3c 6a 51 27 64 72 2f 5a 48 39 29 5a 6e 26 60 60 50 0a 73 32 74 41 60 60 50 38 | ):l`kK<jQ'dr/ZH9)Zn&``P.s2tA``P8 |
| 22fd00 | 6b 28 5a 44 34 22 5f 55 54 4d 4a 3e 5d 23 32 56 67 73 33 55 63 46 2b 4e 6a 5d 59 5f 6d 6d 5c 23 | k(ZD4"_UTMJ>]#2Vgs3UcF+Nj]Y_mm\# |
| 22fd20 | 57 30 58 33 52 52 5c 6d 61 49 5a 4a 62 48 4f 68 6e 36 41 3e 5a 43 49 35 4d 54 3b 2f 3f 63 58 30 | W0X3RR\maIZJbHOhn6A>ZCI5MT;/?cX0 |
| 22fd40 | 4d 3f 29 0a 21 33 5a 3d 25 23 63 3c 72 60 5d 24 64 65 3e 70 41 58 5b 60 4a 2c 7e 3e 0a 6e 47 60 | M?).!3Z=%#c<r`]$de>pAX[`J,~>.nG` |
| 22fd60 | 73 30 4b 52 72 28 26 43 6e 6f 71 52 69 37 5a 4e 21 60 3b 37 25 65 60 35 70 24 49 65 5f 6f 4e 52 | s0KRr(&CnoqRi7ZN!`;7%e`5p$Ie_oNR |
| 22fd80 | 6e 26 28 45 32 45 52 30 25 22 70 34 53 2f 22 50 44 2e 51 5e 6b 48 5f 50 57 5e 6f 4e 6f 65 72 2f | n&(E2ER0%"p4S/"PD.Q^kH_PW^oNoer/ |
| 22fda0 | 5f 6b 5f 52 5b 54 6e 4d 0a 58 31 23 55 58 61 4f 2f 50 6f 69 39 4b 61 66 60 32 40 5a 73 4b 36 75 | _k_R[TnM.X1#UXaO/Poi9Kaf`2@ZsK6u |
| 22fdc0 | 24 6a 5f 73 51 4f 60 68 75 69 30 2d 6c 4c 22 51 3d 21 37 3a 50 57 30 5a 31 60 43 60 35 38 52 21 | $j_sQO`hui0-lL"Q=!7:PW0Z1`C`58R! |
| 22fde0 | 63 63 23 47 44 65 57 27 22 45 60 34 45 50 24 65 5d 23 2b 49 0a 70 34 53 2f 22 73 2b 55 4b 2b 4a | cc#GDeW'"E`4EP$e]#+I.p4S/"s+UK+J |
| 22fe00 | 72 2b 51 38 6d 47 36 3d 43 68 3c 4d 74 66 4c 34 50 24 58 73 2d 2a 42 5c 2a 72 43 4a 3f 4a 44 53 | r+Q8mG6=Ch<MtfL4P$Xs-*B\*rCJ?JDS |
| 22fe20 | 5c 59 52 5b 54 6e 5c 6d 60 2a 24 28 71 23 26 45 63 46 2d 5a 25 3c 5e 54 6a 5a 29 50 29 74 63 60 | \YR[Tn\m`*$(q#&EcF-Z%<^TjZ)P)tc` |
| 22fe40 | 0a 6f 6e 60 5b 2f 72 66 40 44 4e 52 5e 56 4d 32 5d 26 60 59 63 6f 44 61 3d 7e 3e 0a 6e 47 60 73 | .on`[/rf@DNR^VM2]&`YcoDa=~>.nG`s |
| 22fe60 | 26 45 63 39 6d 57 3e 2a 64 6b 2e 6c 30 2e 39 6a 6a 38 2e 5e 55 6a 35 66 3a 60 6b 4e 56 39 75 6c | &Ec9mW>*dk.l0.9jj8.^Uj5f:`kNV9ul |
| 22fe80 | 62 26 21 5e 40 2a 60 54 54 70 32 59 36 53 4b 36 2c 42 36 6b 48 3a 6c 4e 69 6e 72 50 67 67 29 4a | b&!^@*`TTp2Y6SK6,B6kH:lNinrPgg)J |
| 22fea0 | 66 25 67 74 67 6c 46 0a 69 53 69 68 58 6b 33 28 73 6d 6d 2d 4e 45 3c 54 6a 71 4d 50 43 21 70 5c | f%gtglF.iSihXk3(smm-NE<TjqMPC!p\ |
| 22fec0 | 2a 6d 48 58 5a 37 22 37 2c 3d 3f 6d 4a 5a 3e 50 61 4c 38 50 53 5b 6b 50 47 27 5c 25 4b 35 49 42 | *mHXZ7"7,=?mJZ>PaL8PS[kPG'\%K5IB |
| 22fee0 | 40 22 3c 60 6e 28 21 24 56 6b 32 59 46 5a 6a 51 46 37 67 0a 43 5c 44 67 6a 73 38 52 30 3f 46 29 | @"<`n(!$Vk2YFZjQF7g.C\Dgjs8R0?F) |
| 22ff00 | 63 4a 37 4d 21 61 45 68 6b 4e 4d 39 49 5b 57 5a 53 30 73 38 52 60 4c 72 75 31 63 51 46 29 70 21 | cJ7M!aEhkNM9I[WZS0s8R`Lru1cQF)p! |
| 22ff20 | 73 69 38 21 2c 44 69 55 22 2e 6a 6b 34 6e 6b 72 43 4c 4e 25 63 6b 32 50 3d 55 68 23 3f 22 2d 0a | si8!,DiU".jk4nkrCLN%ck2P=Uh#?"-. |
| 22ff40 | 66 5f 2a 68 72 67 26 42 5c 32 67 59 43 63 53 61 68 24 52 2e 72 71 24 2f 3f 7e 3e 0a 6e 47 60 73 | f_*hrg&B\2gYCcSah$R.rq$/?~>.nG`s |
| 22ff60 | 56 61 69 3c 38 5b 5a 47 46 63 27 5d 58 50 32 4b 58 38 38 5c 38 58 30 26 4d 30 5b 43 6a 38 6d 62 | Vai<8[ZGFc']XP2KX88\8X0&M0[Cj8mb |
| 22ff80 | 65 71 2c 74 5c 27 4d 6e 58 70 3b 74 4a 57 64 29 74 62 4e 6b 4a 3e 30 51 57 31 4b 3f 41 72 30 53 | eq,t\'MnXp;tJWd)tbNkJ>0QW1K?Ar0S |
| 22ffa0 | 46 67 51 5e 3d 2f 34 0a 53 74 69 30 60 58 67 35 40 47 5d 59 71 71 36 60 33 48 50 56 5e 71 65 43 | FgQ^=/4.Sti0`Xg5@G]Yqq6`3HPV^qeC |
| 22ffc0 | 2b 62 2f 5f 39 71 5d 45 3f 24 68 60 35 68 69 23 21 6d 26 46 26 71 6f 43 4a 2e 61 4e 32 3c 41 5b | +b/_9q]E?$h`5hi#!m&F&qoCJ.aN2<A[ |
| 22ffe0 | 43 22 39 37 6f 43 28 35 3a 62 2d 4a 28 46 56 51 49 38 42 0a 5d 23 2b 30 60 62 35 5f 4c 61 73 32 | C"97oC(5:b-J(FVQI8B.]#+0`b5_Las2 |
| 230000 | 72 46 26 5c 5c 3f 2b 71 5b 43 2a 54 61 5f 37 25 38 24 61 6f 44 43 66 72 3b 52 69 38 60 6b 5d 22 | rF&\\?+q[C*Ta_7%8$aoDCfr;Ri8`k]" |
| 230020 | 26 5a 44 21 56 4f 52 5c 6e 33 53 5e 5a 50 3d 68 6b 2f 2b 58 42 60 33 51 3e 38 53 3c 6f 50 2f 0a | &ZD!VOR\n3S^ZP=hk/+XB`3Q>8S<oP/. |
| 230040 | 52 25 2a 63 3e 21 31 45 68 52 23 61 4c 61 4f 60 37 29 3c 59 71 23 39 6d 62 4a 2c 7e 3e 0a 6e 47 | R%*c>!1EhR#aLaO`7)<Yq#9mbJ,~>.nG |
| 230060 | 60 73 30 4b 6e 54 2a 5e 48 23 6e 26 2a 5f 3b 4f 62 48 6b 50 46 2a 59 6b 4e 5f 40 23 6e 25 63 47 | `s0KnT*^H#n&*_;ObHkPF*YkN_@#n%cG |
| 230080 | 75 43 3a 26 2c 3a 49 49 3b 5e 60 72 49 6f 74 2a 50 44 30 26 37 6e 5c 66 58 67 6a 4f 4d 3e 64 72 | uC:&,:II;^`rIot*PD0&7n\fXgjOM>dr |
| 2300a0 | 34 34 3e 71 61 4e 32 57 56 0a 65 5f 54 30 48 6c 4c 2b 2c 65 5f 35 33 63 46 5c 41 73 38 4f 4e 49 | 44>qaN2WV.e_T0HlL+,e_53cF\As8ONI |
| 2300c0 | 67 44 4b 45 4a 56 36 47 5f 38 34 27 6b 50 63 30 3d 4e 43 32 39 63 4c 44 59 65 39 2a 5b 3b 5e 29 | gDKEJV6G_84'kPc0=NC29cLDYe9*[;^) |
| 2300e0 | 41 46 30 43 3e 61 63 68 64 40 74 4f 2d 66 3a 74 69 38 45 6e 49 0a 59 31 38 28 21 4b 6e 5d 52 2c | AF0C>achd@tO-f:ti8EnI.Y18(!Kn]R, |
| 230100 | 4c 26 5a 6a 5b 4e 64 50 6f 28 64 49 36 50 4f 51 46 50 50 2a 4b 38 27 40 2a 50 50 6b 47 25 72 49 | L&Zj[NdPo(dI6POQFPP*K8'@*PPkG%rI |
| 230120 | 5d 72 54 52 64 2f 53 49 61 4e 60 51 2f 48 49 44 39 5a 72 6d 51 46 46 45 4c 23 74 51 67 21 52 6d | ]rTRd/SIaN`Q/HID9ZrmQFFEL#tQg!Rm |
| 230140 | 55 0a 5d 22 35 30 3e 57 72 54 55 2d 5c 64 2d 30 70 65 60 72 4c 46 6d 2f 24 3b 51 4a 2c 7e 3e 0a | U.]"50>WrTU-\d-0pe`rLFm/$;QJ,~>. |
| 230160 | 6e 47 60 73 26 46 29 70 70 3a 42 34 35 3b 45 5c 28 4c 27 36 6c 68 5d 69 47 6c 69 2d 35 69 6c 61 | nG`s&F)pp:B45;E\(L'6lh]iGli-5ila |
| 230180 | 46 24 51 3d 4c 3b 52 5b 43 5b 51 30 3c 72 48 21 26 5b 4b 36 2e 28 6a 6e 5c 41 65 49 6c 4b 40 36 | F$Q=L;R[C[Q0<rH!&[K6.(jn\AeIlK@6 |
| 2301a0 | 66 72 38 42 2d 63 6a 51 2c 46 63 0a 6b 4e 4d 30 72 6d 2d 4f 26 59 5c 22 42 31 23 5c 41 72 60 2e | fr8B-cjQ,Fc.kNM0rm-O&Y\"B1#\Ar`. |
| 2301c0 | 49 3b 65 46 6f 40 21 54 29 6c 5c 24 73 23 48 4b 71 57 5d 6c 3d 42 56 54 28 3e 5b 40 35 35 30 58 | I;eFo@!T)l\$s#HKqW]l=BVT(>[@550X |
| 2301e0 | 59 34 6e 49 3a 39 2a 75 6c 63 4b 22 73 6b 28 4a 54 58 6c 66 6d 5b 23 0a 61 66 61 30 34 71 4b 24 | Y4nI:9*ulcK"sk(JTXlfm[#.afa04qK$ |
| 230200 | 60 58 73 29 5c 33 5d 45 64 68 62 33 47 66 5d 34 3a 61 47 40 40 58 49 3b 73 3f 2e 73 2b 43 37 4c | `Xs)\3]Edhb3Gf]4:aG@@XI;s?.s+C7L |
| 230220 | 2a 72 55 29 29 44 32 6d 6f 47 6a 51 2c 46 64 6c 74 58 75 3b 71 75 34 69 59 42 6a 5a 5c 5f 6c 4b | *rU))D2moGjQ,FdltXu;qu4iYBjZ\_lK |
| 230240 | 49 42 6b 0a 69 6f 2f 6b 53 70 23 23 60 2c 23 4e 4f 6e 2e 6d 22 72 73 51 71 58 58 5a 3a 7e 3e 0a | IBk.io/kSp##`,#NOn.m"rsQqXXZ:~>. |
| 230260 | 6e 47 60 73 57 62 2f 73 3b 3e 5e 3a 3a 44 51 61 4e 56 63 45 5f 59 55 6e 65 5f 53 6a 43 37 62 66 | nG`sWb/s;>^::DQaNVcE_YUne_SjC7bf |
| 230280 | 40 45 31 59 64 44 21 58 5f 58 3e 4a 40 72 51 3c 3a 5f 64 29 75 43 64 6e 5e 46 6b 65 5e 55 3a 32 | @E1YdD!X_X>J@rQ<:_d)uCdn^Fke^U:2 |
| 2302a0 | 42 72 32 28 73 45 58 66 5c 68 38 0a 5b 43 58 23 66 60 36 24 36 48 61 4b 44 3b 42 5c 41 75 4a 28 | Br2(sEXf\h8.[CX#f`6$6HaKD;B\AuJ( |
| 2302c0 | 62 2f 57 62 61 5c 25 42 47 6f 61 4e 32 3c 2d 5d 3c 53 6f 4c 59 48 58 74 2c 5b 27 5d 56 39 2b 4c | b/Wba\%BGoaN2<-]<SoLYHXt,[']V9+L |
| 2302e0 | 65 6c 24 5f 73 3f 49 5d 70 3f 27 27 28 61 68 6b 5e 27 60 35 6f 2b 33 0a 60 71 6d 6a 23 73 38 55 | el$_s?I]p?''(ahk^'`5o+3.`qmj#s8U |
| 230300 | 37 41 62 2f 71 69 43 5c 40 56 58 5f 23 65 6d 68 23 62 2f 68 61 2a 73 33 55 5d 44 2a 72 58 31 23 | 7Ab/qiC\@VX_#emh#b/ha*s3U]D*rX1# |
| 230320 | 5d 22 47 74 6a 58 66 5c 68 3d 61 67 5d 5e 65 71 75 35 6d 23 5e 70 5e 75 21 5e 55 4c 4d 4e 57 32 | ]"GtjXf\h=ag]^equ5m#^p^u!^ULMNW2 |
| 230340 | 3f 47 63 0a 6f 70 75 2f 59 72 68 5d 71 24 58 67 51 2a 5e 62 6a 3e 32 73 73 2a 74 7e 3e 0a 6e 47 | ?Gc.opu/Yrh]q$XgQ*^bj>2ss*t~>.nG |
| 230360 | 61 21 31 4b 6e 5d 4c 23 4a 55 57 39 6e 45 47 54 6c 75 58 69 5e 49 56 2b 2f 35 51 72 54 56 5a 53 | a!1Kn]L#JUW9nEGTluXi^IV+/5QrTVZS |
| 230380 | 3f 46 61 3b 6e 70 4e 65 40 34 5e 73 38 52 65 2c 73 2d 2a 4b 5f 72 71 59 26 72 44 6d 53 6f 74 6a | ?Fa;npNe@4^s8Re,s-*K_rqY&rDmSotj |
| 2303a0 | 53 5b 70 61 6b 4e 5f 40 22 0a 6e 2a 65 54 3d 55 36 4b 6b 3b 44 4b 33 56 41 4c 23 5f 4b 5a 4b 39 | S[pakN_@".n*eT=U6Kk;DK3VAL#_KZK9 |
| 2303c0 | 43 6f 5f 4e 49 35 75 67 5d 35 56 60 23 5e 4e 40 53 41 47 5e 3d 5c 6a 68 3e 29 46 50 69 64 48 36 | Co_NI5ug]5V`#^N@SAG^=\jh>)FPidH6 |
| 2303e0 | 4a 49 60 52 54 47 65 63 2c 49 3b 53 6f 6f 43 55 60 6b 6e 69 73 0a 65 2a 3b 53 61 4b 6e 5d 52 2c | JI`RTGec,I;SooCU`knis.e*;SaKn]R, |
| 230400 | 4c 26 5a 6a 5c 4f 62 25 71 29 45 47 69 22 23 47 32 3b 53 4a 4b 53 42 49 2b 50 50 62 41 23 71 69 | L&Zj\Ob%q)EGi"#G2;SJKSBI+PPbA#qi |
| 230420 | 36 47 59 58 50 72 49 30 6d 45 70 36 26 6b 34 65 69 53 65 56 26 4c 23 46 2a 59 28 4c 6d 63 72 6c | 6GYXPrI0mEp6&k4eiSeV&L#F*Y(Lmcrl |
| 230440 | 6b 0a 69 37 5b 65 52 21 38 5b 59 34 23 4e 74 43 40 56 2f 6b 4d 64 72 55 54 75 3d 7e 3e 0a 6e 47 | k.i7[eR!8[Y4#NtC@V/kMdrUTu=~>.nG |
| 230460 | 61 21 27 46 2a 25 3c 54 44 65 73 52 3b 3f 57 71 2a 39 56 53 72 41 40 2b 2d 69 46 51 53 59 5d 57 | a!'F*%<TDesR;?Wq*9VSrA@+-iFQSY]W |
| 230480 | 2a 41 37 73 68 3b 49 57 3e 37 2b 73 38 52 2e 5d 73 2b 43 40 4f 72 71 58 6f 5e 3f 29 5b 29 55 6c | *A7sh;IW>7+s8R.]s+C@OrqXo^?)[)Ul |
| 2304a0 | 4d 54 6c 71 6c 67 34 21 2a 0a 6c 67 29 55 23 51 25 69 70 53 3e 5b 50 46 72 47 32 71 6e 3b 45 49 | MTlqlg4!*.lg)U#Q%ipS>[PFrG2qn;EI |
| 2304c0 | 72 36 2b 49 3b 33 42 33 5d 33 65 70 56 5e 4c 47 3b 72 42 34 74 75 35 68 2e 6c 65 25 30 5d 48 6b | r6+I;3B3]3epV^LG;rB4tu5h.le%0]Hk |
| 2304e0 | 60 50 5c 65 33 64 71 39 54 27 3b 6f 39 2a 54 75 52 28 67 29 2e 0a 3f 49 53 31 5a 72 48 21 26 5b | `P\e3dq9T';o9*TuR(g)..?IS1ZrH!&[ |
| 230500 | 73 29 5c 33 5d 46 2b 4a 37 46 41 52 4a 63 49 3f 59 26 21 5c 4a 54 47 6f 34 73 2b 43 34 4b 2a 57 | s)\3]F+J7FARJcI?Y&!\JTGo4s+C4K*W |
| 230520 | 28 3b 30 43 53 6f 65 4f 6d 2d 56 6c 2e 41 45 4e 58 62 73 33 47 5f 28 42 6a 6b 5f 52 67 24 4a 28 | (;0CSoeOm-Vl.AENXbs3G_(Bjk_Rg$J( |
| 230540 | 6a 0a 6c 30 37 46 29 6b 35 61 60 46 6b 6d 2d 50 40 6c 5e 32 2c 3d 6f 5f 6e 40 5c 4a 2c 7e 3e 0a | j.l07F)k5a`Fkm-P@l^2,=o_n@\J,~>. |
| 230560 | 6e 47 61 21 58 62 30 27 5c 58 60 6c 23 5b 37 5b 5e 2a 39 46 5b 5f 44 58 5b 2b 32 47 25 6d 56 35 | nGa!Xb0'\X`l#[7[^*9F[_DX[+2G%mV5 |
| 230580 | 3a 51 34 5d 3e 21 34 41 62 4b 30 53 27 73 38 55 36 61 73 33 55 66 47 72 71 59 54 69 5b 29 55 3e | :Q4]>!4AbK0S's8U6as3UfGrqYTi[)U> |
| 2305a0 | 2e 5e 5c 6b 5f 6e 5f 53 6a 43 35 0a 62 66 6e 38 4f 5e 71 49 28 59 5a 61 52 67 21 5f 72 4c 28 2b | .^\k_n_SjC5.bfn8O^qI(YZaRg!_rL(+ |
| 2305c0 | 61 4e 72 21 27 62 2f 28 64 2f 5d 3d 2c 2f 5a 5e 55 5f 4a 21 5e 3b 25 47 3b 68 38 2f 73 29 30 5d | aNr!'b/(d/]=,/Z^U_J!^;%G;h8/s)0] |
| 2305e0 | 4b 73 64 63 47 53 53 61 71 3c 5c 2b 58 6f 3f 3d 65 54 5f 6f 39 61 2b 0a 5b 46 3d 45 5e 72 51 3c | KsdcGSSaq<\+Xo?=eT_o9a+.[F=E^rQ< |
| 230600 | 3a 5f 73 32 74 41 61 62 30 4a 23 44 5d 58 50 38 50 5b 5f 28 41 60 63 48 3d 3c 30 73 33 55 5a 43 | :_s2tAab0J#D]XP8P[_(A`cH=<0s3UZC |
| 230620 | 2a 57 2b 24 75 5c 40 30 57 22 60 35 67 2a 31 5d 42 38 6b 64 73 36 5b 71 4a 5e 70 70 68 6c 62 66 | *W+$u\@0W"`5g*1]B8kds6[qJ^pphlbf |
| 230640 | 52 66 3c 0a 5d 59 28 60 48 5b 2f 64 66 3b 5d 45 63 3c 6c 62 65 70 73 4b 6f 5f 6e 40 5c 4a 2c 7e | Rf<.]Y(`H[/df;]Ec<lbepsKo_n@\J,~ |
| 230660 | 3e 0a 6e 47 61 21 31 4b 6e 5d 52 2b 4b 53 2c 3c 4e 49 3c 70 2e 5b 5f 35 64 45 50 27 6c 65 3c 36 | >.nGa!1Kn]R+KS,<NI<p.[_5dEP'le<6 |
| 230680 | 47 31 2c 26 6b 6b 28 26 24 56 4b 54 5f 26 68 4c 26 5f 31 2c 4c 26 5b 41 39 73 23 27 63 32 4e 2d | G1,&kk(&$VKT_&hL&_1,L&[A9s#'c2N- |
| 2306a0 | 5d 51 43 57 6a 39 49 5a 5f 6e 6a 39 63 0a 50 61 2d 75 70 43 4d 6e 2a 34 46 61 2f 34 5b 49 48 70 | ]QCWj9IZ_nj9c.Pa-upCMn*4Fa/4[IHp |
| 2306c0 | 39 5e 70 5c 4c 26 2c 50 44 30 21 75 4a 71 33 2b 49 49 3d 3a 35 3f 4a 2a 68 63 3b 4a 71 45 5b 68 | 9^p\L&,PD0!uJq3+II=:5?J*hc;JqE[h |
| 2306e0 | 71 31 43 36 6e 4b 37 67 31 56 64 75 73 5e 5d 73 38 4d 6e 6f 49 58 2d 28 50 0a 46 4f 23 37 23 70 | q1C6nK7g1Vdus^]s8MnoIX-(P.FO#7#p |
| 230700 | 4f 72 52 23 4c 26 5f 31 2c 73 2b 51 2f 6a 4b 53 22 60 27 49 2c 42 40 26 6f 5f 4f 63 2a 72 72 32 | OrR#L&_1,s+Q/jKS"`'I,B@&o_Oc*rr2 |
| 230720 | 74 5e 71 75 37 5d 39 4f 63 47 34 3c 47 2a 6e 56 74 45 2d 48 64 27 72 3b 5a 66 4a 4b 6e 50 23 2a | t^qu7]9OcG4<G*nVtE-Hd'r;ZfJKnP#* |
| 230740 | 47 5d 49 6e 4e 0a 50 64 38 2d 42 69 3a 5a 4f 48 63 62 52 42 39 55 52 25 73 26 49 2e 37 22 33 6f | G]InN.Pd8-Bi:ZOHcbRB9UR%s&I.7"3o |
| 230760 | 29 46 34 7e 3e 0a 6e 47 61 24 28 46 2a 25 42 5c 45 63 48 51 6f 43 4d 40 44 26 5f 35 3a 54 3d 3f | )F4~>.nGa$(F*%B\EcHQoCM@D&_5:T=? |
| 230780 | 4e 34 40 48 40 44 75 64 2a 66 6b 54 59 65 44 74 5c 34 27 46 38 70 3d 5d 73 29 57 38 5d 4b 44 74 | N4@H@Dud*fkTYeDt\4'F8p=]s)W8]KDt |
| 2307a0 | 6d 2e 72 52 75 58 34 40 41 66 70 21 5c 25 4b 41 5f 0a 5d 54 6e 32 2b 47 46 68 75 43 3f 3d 40 3e | m.rRuX4@Afp!\%KA_.]Tn2+GFhuC?=@> |
| 2307c0 | 55 42 50 4d 3e 4a 6d 73 6b 2a 2e 4a 6f 63 51 63 72 64 66 24 2c 6c 2f 63 5c 72 6a 6c 5e 4c 4a 44 | UBPM>Jmsk*.JocQcrdf$,l/c\rjl^LJD |
| 2307e0 | 66 39 54 36 70 25 4a 33 24 2f 47 4f 34 29 53 6f 4e 23 2d 72 6d 3a 5d 45 71 6a 5f 4a 38 0a 41 26 | f9T6p%J3$/GO4)SoN#-rm:]Eqj_J8.A& |
| 230800 | 32 58 22 43 24 6b 59 39 73 29 57 38 5d 73 29 5c 33 5d 46 2b 5c 4c 50 44 4a 58 28 46 43 4d 72 65 | 2X"C$kY9s)W8]s)\3]F+\LPDJX(FCMre |
| 230820 | 40 4b 36 2e 25 6c 21 2f 28 31 4b 2a 57 43 56 3d 47 4b 3d 42 52 4d 35 4f 5d 6c 44 22 52 5a 2a 73 | @K6.%l!/(1K*WCV=GK=BRM5O]lD"RZ*s |
| 230840 | 33 50 68 2d 44 65 69 72 6e 0a 41 53 3f 67 71 5c 25 3a 35 62 6c 4f 31 62 41 5c 25 53 29 60 58 28 | 3Ph-Deirn.AS?gq\%:5blO1bA\%S)`X( |
| 230860 | 2c 6f 36 71 59 70 27 63 4a 2c 7e 3e 0a 6e 47 61 24 59 62 30 27 62 60 61 69 4d 5a 6b 5f 53 45 6b | ,o6qYp'cJ,~>.nGa$Yb0'b`aiMZk_SEk |
| 230880 | 2c 5f 37 40 23 52 5b 4b 21 5a 4c 5c 41 63 29 2e 66 74 6c 67 69 60 71 49 4f 23 62 35 5d 57 61 73 | ,_7@#R[K!ZL\Ac).ftlgi`qIO#b5]Was |
| 2308a0 | 32 72 4c 61 64 2f 4f 26 26 72 55 25 5f 41 5c 3e 51 5b 50 61 4d 59 70 3a 0a 60 35 27 21 75 5c 58 | 2rLad/O&&rU%_A\>Q[PaMYp:.`5'!u\X |
| 2308c0 | 70 28 34 5b 43 45 66 5d 5e 56 52 65 50 6e 27 28 50 26 63 63 58 56 57 72 6d 26 52 28 6c 2f 66 65 | p(4[CEf]^VRePn'(P&ccXVWrm&R(l/fe |
| 2308e0 | 21 6a 6c 61 53 4c 60 6c 3f 27 3e 70 25 4a 34 26 2f 47 52 3c 2d 66 5a 3c 40 29 72 70 42 61 62 71 | !jlaSL`l?'>p%J4&/GR<-fZ<@)rpBabq |
| 230900 | 70 72 5b 21 0a 5d 22 74 72 26 5f 21 55 6d 3d 73 32 72 4c 61 73 32 74 41 61 62 30 5c 38 4e 60 50 | pr[!.]"tr&_!Um=s2rLas2tAab0\8N`P |
| 230920 | 5d 4f 4c 5f 53 75 30 44 64 29 75 40 66 21 37 3a 57 43 2a 3c 2b 37 2c 60 35 6f 3a 23 5e 55 31 47 | ]OL_Su0Dd)u@f!7:WC*<+7,`5o:#^U1G |
| 230940 | 5e 5f 74 3c 6d 2c 73 36 5b 74 4e 60 6b 6f 46 21 0a 5a 46 25 3c 61 61 4d 52 53 6e 24 64 36 54 33 | ^_t<m,s6[tN`koF!.ZF%<aaMRSn$d6T3 |
| 230960 | 60 35 30 30 67 5d 23 21 6e 34 72 70 70 29 3e 7e 3e 0a 6e 47 61 21 31 4b 6e 5d 52 2c 4b 6e 59 5d | `500g]#!n4rpp)>~>.nGa!1Kn]R,KnY] |
| 230980 | 64 4b 37 5c 5b 40 6b 67 27 2a 53 73 2a 62 58 48 4a 46 57 38 60 71 31 4f 47 23 4b 70 2e 35 6a 4c | dK7\[@kg'*Ss*bXHJFW8`q1OG#Kp.5jL |
| 2309a0 | 26 5f 31 2c 4c 26 5b 41 38 73 22 3c 3b 6e 4a 55 5a 37 70 46 29 65 58 72 45 34 55 2b 34 0a 46 61 | &_1,L&[A8s"<;nJUZ7pF)eXrE4U+4.Fa |
| 2309c0 | 29 3e 5d 49 21 70 48 6f 4a 56 26 4b 2b 71 59 5a 4e 55 73 2d 26 2f 23 4c 26 5b 3f 69 4b 5f 6b 49 | )>]I!pHoJV&K+qYZNUs-&/#L&[?iK_kI |
| 2309e0 | 72 4b 44 3e 37 71 71 75 32 36 4d 4c 26 56 29 49 4b 63 27 69 44 4b 73 24 2d 5c 50 51 30 35 36 73 | rKD>7qqu26ML&V)IKc'iDKs$-\PQ056s |
| 230a00 | 38 4b 2a 50 4a 55 63 6d 35 0a 6d 58 6b 3c 36 4c 26 5a 6c 2b 72 74 27 6e 61 4b 6e 59 5f 45 4b 53 | 8K*PJUcm5.mXk<6L&Zl+rt'naKnY_EKS |
| 230a20 | 34 75 31 70 4f 65 2e 74 72 66 60 27 38 72 72 41 38 5a 72 75 49 3b 63 4f 36 4d 46 45 47 68 25 31 | 4u1pOe.trf`'8rrA8ZruI;cO6MFEGh%1 |
| 230a40 | 6c 4b 29 47 57 4a 73 34 32 6d 58 4b 53 2b 66 28 4c 33 52 69 5d 0a 45 33 58 37 72 72 62 45 2e 40 | lK)GWJs42mXKS+f(L3Ri].E3X7rrbE.@ |
| 230a60 | 43 32 30 4b 3c 43 4d 52 61 27 44 66 45 3a 2f 62 68 37 47 73 71 59 70 24 62 4a 2c 7e 3e 0a 6e 47 | C20K<CMRa'DfE:/bh7GsqYp$bJ,~>.nG |
| 230a80 | 61 21 27 46 2a 25 42 5d 46 29 75 73 30 45 48 23 6a 5f 6b 66 57 67 3d 73 28 69 41 36 44 58 6d 40 | a!'F*%B]F)us0EH#j_kfWg=s(iA6DXm@ |
| 230aa0 | 3d 71 2f 55 51 55 46 2b 5c 51 36 46 38 75 38 5d 46 38 70 6d 6b 73 22 45 38 5c 44 66 22 28 4c 40 | =q/UQUF+\Q6F8u8]F8pmks"E8\Df"(L@ |
| 230ac0 | 3a 2d 49 4e 3f 62 30 5a 54 0a 41 37 61 38 28 43 32 37 58 27 44 66 42 5d 39 71 59 5a 21 46 73 2b | :-IN?b0ZT.A7a8(C27X'DfB]9qYZ!Fs+ |
| 230ae0 | 3e 42 46 46 38 70 6c 36 45 72 2c 51 4e 45 56 54 3f 4d 71 66 3b 5b 57 73 38 4d 68 38 29 23 6e 59 | >BFF8pl6Er,QNEVT?Mqf;[Ws8Mh8)#nY |
| 230b00 | 75 55 33 22 5c 36 73 33 55 66 47 72 68 2b 37 4c 44 3c 50 6a 29 0a 45 3b 4b 4e 53 73 29 5c 32 3e | uU3"\6s3UfGrh+7LD<Pj).E;KNSs)\2> |
| 230b20 | 26 39 49 6b 6d 46 2b 5c 4f 54 45 63 48 2a 6e 45 48 3b 24 57 4b 36 2e 25 6c 21 2f 28 2e 4a 2a 4a | &9IkmF+\OTEcH*nEH;$WK6.%l!/(.J*J |
| 230b40 | 38 6f 6d 6c 24 24 63 50 65 53 38 75 41 72 3b 51 60 72 63 75 58 38 4b 45 47 6f 5a 3a 41 6e 2c 37 | 8oml$$cPeS8uAr;Q`rcuX8KEGoZ:An,7 |
| 230b60 | 56 0a 5a 21 31 45 32 3d 56 40 48 32 3d 4a 44 51 6e 3d 5e 23 24 38 3f 46 6a 55 69 66 6b 62 58 28 | V.Z!1E2=V@H2=JDQn=^#$8?FjUifkbX( |
| 230b80 | 72 70 67 23 3d 7e 3e 0a 6e 47 61 21 58 62 30 27 62 61 62 30 26 27 2c 61 4e 29 3c 65 6b 68 5a 30 | rpg#=~>.nGa!Xb0'bab0&',aN)<ekhZ0 |
| 230ba0 | 52 73 32 2c 4e 38 60 55 57 54 41 71 38 70 65 59 62 30 5c 3c 32 62 35 5f 4c 61 62 35 5d 69 65 73 | Rs2,N8`UWTAq8peYb0\<2b5_Lab5]ies |
| 230bc0 | 22 45 72 67 60 6c 24 48 50 5c 40 2f 69 52 5b 5e 72 75 5a 0a 5d 3d 63 59 2e 5f 38 3d 2b 2f 60 6c | "Erg`l$HP\@/iR[^ruZ.]=cY._8=+/`l |
| 230be0 | 48 30 41 71 59 5c 5f 3e 73 33 53 70 38 62 35 5d 69 32 61 6e 6b 65 52 61 53 3e 53 51 71 6f 53 69 | H0AqY\_>s3Sp8b5]i2ankeRaS>SQqoSi |
| 230c00 | 5b 73 38 4d 69 3a 29 23 71 62 24 67 72 66 24 32 73 36 5d 6a 64 72 6e 3e 48 35 60 39 3e 2f 2d 0a | [s8Mi:)#qb$grf$2s6]jdrn>H5`9>/-. |
| 230c20 | 61 38 35 62 57 73 32 74 3f 40 26 42 62 24 71 62 30 5c 3b 52 61 69 4d 51 74 61 4e 3d 44 5b 64 29 | a85bWs2t?@&Bb$qb0\;RaiMQtaN=D[d) |
| 230c40 | 75 40 66 21 37 3a 54 42 2a 52 4e 2a 55 6c 2c 3a 3c 4c 65 5c 54 35 47 72 3b 51 60 72 6d 45 33 53 | u@f!7:TB*RN*Ul,:<Le\T5Gr;Q`rmE3S |
| 230c60 | 6e 61 4d 75 2d 38 5d 74 31 5f 5e 0a 5a 2a 4c 59 36 59 53 2a 5c 37 59 62 49 6e 73 59 64 28 4c 40 | naMu-8]t1_^.Z*LY6YS*\7YbInsYd(L@ |
| 230c80 | 5b 43 57 6f 6d 66 75 28 6c 2c 72 70 67 23 3d 7e 3e 0a 6e 47 61 21 31 4b 6e 5d 52 2c 4b 6e 59 60 | [CWomfu(l,rpg#=~>.nGa!1Kn]R,KnY` |
| 230ca0 | 6a 4b 6e 50 2d 56 71 3d 73 6f 40 28 41 4e 4e 37 71 4c 6e 65 46 4c 26 5f 31 2c 73 2b 51 59 6a 73 | jKnP-Vq=so@(ANN7qLneFL&_1,s+QYjs |
| 230cc0 | 2b 55 4c 51 4b 6e 5d 50 6a 72 56 6d 53 6d 50 44 22 53 5b 6d 3d 27 4b 44 69 64 4b 70 3b 0a 49 74 | +ULQKn]PjrVmSmPD"S[m='KDidKp;.It |
| 230ce0 | 33 2b 40 4a 71 41 57 2d 72 65 31 3c 2a 73 38 4e 5e 71 73 38 53 3a 3a 50 44 30 25 23 4b 6e 5d 52 | 3+@JqAW-re1<*s8N^qs8S::PD0%#Kn]R |
| 230d00 | 2c 4b 6e 5d 52 2c 4c 26 5f 2b 2a 73 38 56 6e 4b 23 6c 66 55 34 59 28 62 47 6a 73 34 37 32 4c 25 | ,Kn]R,L&_+*s8VnK#lfU4Y(bGjs472L% |
| 230d20 | 27 47 3b 3b 4b 5f 5e 3b 75 0a 4b 60 3b 22 2a 73 2b 55 49 50 22 47 51 6c 30 4b 70 32 46 67 23 36 | 'G;;K_^;u.K`;"*s+UIP"GQl0Kp2Fg#6 |
| 230d40 | 27 3d 31 73 38 53 3a 3a 72 72 32 74 5e 71 5a 24 53 5a 23 61 35 22 45 4a 56 21 42 44 4b 53 39 3d | '=1s8S::rr2t^qZ$SZ#a5"EJV!BDKS9= |
| 230d60 | 28 21 37 71 2b 26 24 26 21 71 6c 4a 55 69 32 74 69 38 26 62 5a 0a 48 4e 32 56 2e 48 4a 24 6e 73 | (!7q+&$&!qlJUi2ti8&bZ.HN2V.HJ$ns |
| 230d80 | 48 40 28 21 64 49 48 3e 74 48 6f 37 4d 5f 71 6e 47 65 22 7e 3e 0a 6e 47 61 21 27 46 2a 25 42 5d | H@(!dIH>tHo7M_qnGe"~>.nGa!'F*%B] |
| 230da0 | 46 2a 21 21 36 46 29 75 43 21 71 3d 73 6f 2e 28 41 4d 6c 68 71 4a 75 4e 34 46 38 75 38 5d 73 29 | F*!!6F)uC!q=so.(AMlhqJuN4F8u8]s) |
| 230dc0 | 57 67 36 73 29 5c 35 3f 46 2a 25 41 36 72 56 6d 4a 66 4b 35 74 75 27 6d 3b 36 59 21 69 62 52 58 | Wg6s)\5?F*%A6rVmJfK5tu'm;6Y!ibRX |
| 230de0 | 6c 0a 44 2f 4f 3a 5f 45 3b 6a 6b 57 45 72 4c 2e 5b 72 74 39 74 61 73 2b 3e 42 46 46 38 70 6c 36 | l.D/O:_E;jkWErL.[rt9tas+>BFF8pl6 |
| 230e00 | 46 38 75 38 5d 46 38 75 38 5d 73 38 40 24 3d 73 37 70 5e 41 73 29 57 37 55 46 33 6f 52 3e 64 2f | F8u8]F8u8]s8@$=s7p^As)W7UF3oR>d/ |
| 230e20 | 4f 25 52 55 32 74 3f 71 71 2f 5a 40 52 0a 72 72 37 27 3e 46 38 6c 31 42 46 38 70 3c 26 4b 44 5d | O%RU2t?qq/Z@R.rr7'>F8l1BF8p<&KD] |
| 230e40 | 63 70 72 63 3c 2f 5c 73 2b 3e 43 6c 72 72 40 5d 4a 73 38 52 5d 57 4b 29 27 71 38 44 74 37 6d 67 | cprc</\s+>Clrr@]Js8R]WK)'q8Dt7mg |
| 230e60 | 46 38 63 2b 3d 64 2f 41 22 6c 45 63 48 56 4a 44 4a 58 2b 48 68 2e 63 6b 25 0a 73 34 40 45 65 66 | F8c+=d/A"lEcHVJDJX+Hh.ck%.s4@Eef |
| 230e80 | 5c 27 73 3b 42 61 41 48 68 6a 5f 61 47 57 45 48 3b 27 4a 73 2a 74 7e 3e 0a 6e 47 61 21 58 62 30 | \'s;BaAHhj_aGWEH;'Js*t~>.nGa!Xb0 |
| 230ea0 | 27 62 61 62 30 26 2a 32 62 30 25 6a 27 71 3d 73 70 30 28 41 50 74 6c 71 54 38 5b 36 62 35 5f 4c | 'bab0&*2b0%j'q=sp0(APtlqT8[6b5_L |
| 230ec0 | 61 73 32 72 5e 32 73 32 74 42 41 62 30 27 62 32 72 56 6d 4b 24 64 29 6a 42 23 6d 44 51 6d 25 69 | as2r^2s2tBAb0'b2rVmK$d)jB#mDQm%i |
| 230ee0 | 6b 6a 66 70 0a 60 35 54 61 65 61 38 58 30 5b 61 6f 39 48 5f 72 74 3c 5d 59 73 33 53 70 38 62 35 | kjfp.`5Taea8X0[ao9H_rt<]Ys3Sp8b5 |
| 230f00 | 5d 69 32 62 35 5f 4c 61 62 35 5f 4c 61 73 38 43 2b 3f 73 37 73 65 43 73 32 72 4c 3e 62 33 64 52 | ]i2b5_Lab5_Las8C+?s7seCs2rL>b3dR |
| 230f20 | 55 6d 4a 64 2b 6f 67 72 64 61 5c 71 38 72 4e 56 0a 72 72 3a 2e 40 62 35 56 44 44 62 35 5d 57 2c | UmJd+ogrda\q8rNV.rr:.@b5VDDb5]W, |
| 230f40 | 64 2f 3b 23 6a 72 6c 57 43 60 73 33 53 70 66 72 72 43 46 42 73 38 55 46 4f 63 68 59 69 2a 60 71 | d/;#jrlWC`s3SpfrrCFBs8UFOchYi*`q |
| 230f60 | 25 33 6d 62 35 4d 3e 3f 6d 4a 59 30 36 61 69 4d 60 48 60 50 5d 52 4e 68 38 27 24 29 0a 73 34 40 | %3mb5M>?mJY06aiM`H`P]RNh8'$).s4@ |
| 230f80 | 46 67 66 5c 2b 25 3d 5e 5e 2e 63 6e 6a 69 24 54 59 61 4e 3d 47 4e 73 2a 74 7e 3e 0a 6e 47 60 64 | Fgf\+%=^^.cnji$TYaN=GNs*t~>.nG`d |
| 230fa0 | 2b 4b 6e 5d 52 2c 4b 6e 59 60 6a 72 65 3a 40 4f 72 49 6c 24 65 4b 6e 5d 50 5c 73 38 52 66 51 73 | +Kn]R,KnY`jre:@OrIl$eKn]P\s8RfQs |
| 230fc0 | 2b 55 4b 2c 50 44 30 24 6a 73 38 52 65 2c 73 2d 2a 45 5d 25 2d 33 56 2b 4c 26 4c 6e 24 4b 44 3e | +UK,PD0$js8Re,s-*E]%-3V+L&Ln$KD> |
| 230fe0 | 34 6f 70 6b 2f 52 21 0a 21 3c 29 5c 48 73 38 4e 5e 71 73 38 53 3a 3a 50 44 30 25 23 4b 6e 5d 52 | 4opk/R!.!<)\Hs8N^qs8S::PD0%#Kn]R |
| 231000 | 2c 4b 6e 5d 52 2c 4c 26 5f 2b 2a 73 38 56 6e 4b 23 6c 66 55 34 59 28 62 47 6a 73 34 37 32 4c 21 | ,Kn]R,L&_+*s8VnK#lfU4Y(bGjs472L! |
| 231020 | 33 5a 3c 54 23 6c 66 56 59 4c 26 5f 31 2c 73 2b 55 49 50 0a 22 47 51 6c 30 4b 70 32 46 67 22 6f | 3Z<T#lfVYL&_1,s+UIP."GQl0Kp2Fg"o |
| 231040 | 6a 3a 31 73 38 53 3b 5d 72 72 41 38 5a 73 38 4a 32 62 72 66 56 71 66 72 56 68 4e 4c 72 72 43 58 | j:1s8S;]rrA8Zs8J2brfVqfrVhNLrrCX |
| 231060 | 49 4b 61 2a 5d 6e 4b 53 2b 70 4f 70 41 4b 55 43 6f 45 27 58 3b 70 26 30 4c 42 4b 2a 44 25 27 0a | IKa*]nKS+pOpAKUCoE'X;p&0LBK*D%'. |
| 231080 | 71 75 29 35 26 6e 2c 49 6e 7e 3e 0a 6e 47 60 64 21 46 2a 25 42 5d 46 2a 21 21 36 72 63 41 29 3d | qu)5&n,In~>.nG`d!F*%B]F*!!6rcA)= |
| 2310a0 | 72 47 72 62 53 46 2a 25 41 26 73 38 52 30 3f 73 29 5c 33 5d 4b 36 2e 27 36 73 38 52 2e 5d 73 2b | rGrbSF*%A&s8R0?s)\3]K6.'6s8R.]s+ |
| 2310c0 | 43 3a 4d 25 2c 63 62 5a 46 38 62 75 55 45 56 54 3c 4b 70 69 36 3a 52 0a 21 3c 29 5c 36 73 38 4e | C:M%,cbZF8buUEVT<Kpi6:R.!<)\6s8N |
| 2310e0 | 5e 61 73 38 52 5e 6d 4b 36 2e 27 46 46 2a 25 42 5d 46 2a 25 42 5d 46 38 75 32 5b 73 38 56 6e 39 | ^as8R^mK6.'FF*%B]F*%B]F8u2[s8Vn9 |
| 231100 | 23 6c 65 73 65 55 33 22 5c 36 73 33 55 63 46 21 32 42 49 36 23 6c 65 75 47 46 38 75 38 5d 73 29 | #leseU3"\6s3UcF!2BI6#leuGF8u8]s) |
| 231120 | 5c 32 3e 0a 22 45 58 54 61 46 2b 61 43 33 22 6f 69 58 62 73 38 52 60 4d 72 72 40 5d 4a 73 38 49 | \2>."EXTaF+aC3"oiXbs8R`Mrr@]Js8I |
| 231140 | 57 52 72 65 23 36 33 72 56 67 6d 3a 72 72 43 46 43 45 73 40 38 3b 45 63 48 2a 6e 70 41 4a 74 31 | WRre#63rVgm:rrCFCEs@8;EcH*npAJt1 |
| 231160 | 6f 45 27 22 29 70 26 38 71 30 45 3c 5a 2c 58 0a 71 75 28 53 57 6e 2c 49 6e 7e 3e 0a 6e 47 60 64 | oE'")p&8q0E<Z,X.qu(SWn,In~>.nG`d |
| 231180 | 52 62 30 27 62 61 62 30 26 2a 32 72 6c 59 36 3f 72 51 35 6f 55 62 30 27 62 2c 73 38 55 37 41 73 | Rb0'bab0&*2rlY6?rQ5oUb0'b,s8U7As |
| 2311a0 | 32 74 41 61 64 29 75 43 32 73 38 55 36 61 73 33 55 60 45 25 2e 68 69 67 62 35 4d 34 59 61 53 3e | 2tAad)uC2s8U6as3U`E%.higb5M4YaS> |
| 2311c0 | 50 4f 70 72 4e 48 56 0a 21 3c 29 5d 38 73 38 4e 5f 59 73 38 55 48 67 64 29 75 43 38 62 30 27 62 | POprNHV.!<)]8s8N_Ys8UHgd)uC8b0'b |
| 2311e0 | 61 62 30 27 62 61 62 35 5f 46 5f 73 38 56 6f 3b 23 6c 69 26 69 67 72 66 24 32 73 36 5d 67 63 21 | ab0'bab5_F_s8Vo;#li&igrf$2s6]gc! |
| 231200 | 38 52 52 72 23 6c 69 27 49 62 35 5f 4c 61 73 32 74 3f 40 0a 22 4e 70 62 65 62 30 5e 28 2f 22 6f | 8RRr#li'Ib5_Las2t?@."Npbeb0^(/"o |
| 231220 | 6c 60 66 73 38 55 49 45 72 72 43 46 42 73 38 4c 40 4a 72 6d 38 64 2f 72 56 6a 74 3c 72 72 44 48 | l`fs8UIErrCFBs8L@Jrm8d/rVjt<rrDH |
| 231240 | 60 61 70 2d 35 37 61 69 4d 51 74 70 41 4e 26 33 6f 45 2a 29 2b 70 26 3c 23 32 61 39 44 40 5c 0a | `ap-57aiMQtpAN&3oE*)+p&<#2a9D@\. |
| 231260 | 71 75 2b 5b 5b 6e 2c 49 6e 7e 3e 0a 6e 47 60 64 2b 4b 6e 5d 52 2c 4b 6e 59 60 6a 72 65 3a 40 4f | qu+[[n,In~>.nG`d+Kn]R,KnY`jre:@O |
| 231280 | 72 49 6c 24 65 4b 6e 5d 50 5c 73 38 52 66 51 73 2b 55 4b 2c 50 44 30 24 6a 73 38 52 65 2c 73 2d | rIl$eKn]P\s8RfQs+UK,PD0$js8Re,s- |
| 2312a0 | 2a 45 5d 24 66 6d 4d 2a 4c 26 5f 31 2c 4c 26 5f 31 2c 73 38 40 57 4f 0a 73 37 68 3c 4a 72 74 3a | *E]$fmM*L&_1,L&_1,s8@WO.s7h<Jrt: |
| 2312c0 | 4f 71 73 2d 26 2f 23 4c 26 5b 3f 6a 4c 26 5f 31 2c 4c 26 5f 31 2c 73 38 40 5a 4f 73 37 71 3f 53 | Oqs-&/#L&[?jL&_1,L&_1,s8@ZOs7q?S |
| 2312e0 | 73 2b 51 30 30 4c 22 3b 49 66 66 29 47 5b 4c 59 35 58 2b 5c 73 2b 55 4b 2c 73 38 52 66 51 4c 26 | s+Q00L";Iff)G[LY5X+\s+UK,s8RfQL& |
| 231300 | 56 29 54 0a 4c 26 5a 6a 5c 73 38 37 51 53 73 2b 51 31 2c 73 2d 2a 45 5d 21 30 64 39 5a 72 66 5b | V)T.L&Zj\s87QSs+Q1,s-*E]!0d9Zrf[ |
| 231320 | 4b 62 50 44 2b 5f 6a 72 65 3a 3d 4e 21 37 71 25 24 21 30 64 41 38 73 38 4d 74 4e 73 38 3c 22 50 | KbPD+_jre:=N!7q%$!0dA8s8MtNs8<"P |
| 231340 | 72 72 32 65 4b 22 6f 6a 3b 56 73 2b 51 30 71 0a 73 2a 74 7e 3e 0a 6e 47 60 64 21 46 2a 25 42 5d | rr2eK"oj;Vs+Q0q.s*t~>.nG`d!F*%B] |
| 231360 | 46 2a 21 21 36 72 63 41 29 3d 72 47 72 62 53 46 2a 25 41 26 73 38 52 30 3f 73 29 5c 33 5d 4b 36 | F*!!6rcA)=rGrbSF*%A&s8R0?s)\3]K6 |
| 231380 | 2e 27 36 73 38 52 2e 5d 73 2b 43 3a 4d 24 66 48 59 59 46 38 75 38 5d 46 38 75 38 5d 73 38 40 21 | .'6s8R.]s+C:M$fHYYF8u8]F8u8]s8@! |
| 2313a0 | 3d 0a 73 37 67 5b 38 72 74 39 74 61 73 2b 3e 42 46 46 38 70 6c 36 46 38 75 38 5d 46 38 75 38 5d | =.s7g[8rt9tas+>BFF8pl6F8u8]F8u8] |
| 2313c0 | 73 38 40 24 3d 73 37 70 5e 41 73 29 57 37 55 46 33 6f 52 3e 64 2f 4f 25 46 55 41 66 33 3e 73 29 | s8@$=s7p^As)W7UF3oR>d/O%FUAf3>s) |
| 2313e0 | 5c 33 5d 73 38 52 30 3f 46 38 6c 31 42 0a 46 38 70 3c 26 73 38 36 70 41 73 29 57 38 5d 73 2b 43 | \3]s8R0?F8l1B.F8p<&s86pAs)W8]s+C |
| 231400 | 3a 4d 21 2f 28 2e 4a 72 64 74 40 52 4b 36 29 2c 36 72 63 41 26 3c 21 37 3a 55 61 21 2f 28 35 6b | :M!/(.Jrdt@RK6),6rcA&<!7:Ua!/(5k |
| 231420 | 73 38 4d 74 3c 73 38 3c 22 3f 72 72 32 65 39 22 6f 69 5a 44 73 29 57 38 4d 0a 73 2a 74 7e 3e 0a | s8Mt<s8<"?rr2e9"oiZDs)W8M.s*t~>. |
| 231440 | 6e 47 60 64 52 62 30 27 62 61 62 30 26 2a 32 72 6c 59 36 3f 72 51 35 6f 55 62 30 27 62 2c 73 38 | nG`dRb0'bab0&*2rlY6?rQ5oUb0'b,s8 |
| 231460 | 55 37 41 73 32 74 41 61 64 29 75 43 32 73 38 55 36 61 73 33 55 60 45 24 68 4d 60 66 62 35 5f 4c | U7As2tAad)uC2s8U6as3U`E$hM`fb5_L |
| 231480 | 61 62 35 5f 4c 61 73 38 43 28 3f 0a 73 37 6a 62 3a 72 74 3c 5d 59 73 33 53 70 38 62 35 5d 69 32 | ab5_Las8C(?.s7jb:rt<]Ys3Sp8b5]i2 |
| 2314a0 | 62 35 5f 4c 61 62 35 5f 4c 61 73 38 43 2b 3f 73 37 73 65 43 73 32 72 4c 3e 62 33 64 52 55 6d 4a | b5_Lab5_Las8C+?s7seCs2rL>b3dRUmJ |
| 2314c0 | 64 2b 63 68 23 3e 47 25 73 32 74 41 61 73 38 55 37 41 62 35 56 44 44 0a 62 35 5d 57 2c 73 38 3a | d+ch#>G%s2tAas8U7Ab5VDD.b5]W,s8: |
| 2314e0 | 22 43 73 32 72 4c 61 73 33 55 60 45 21 37 3a 54 42 72 6d 31 66 4a 64 29 73 4e 32 72 6c 59 33 3e | "Cs2rLas3U`E!7:TBrm1fJd)sN2rlY3> |
| 231500 | 21 3a 42 5b 2b 21 37 3a 5c 65 73 38 4d 75 3e 73 38 3c 23 41 72 72 32 66 3b 22 6f 6c 61 46 73 32 | !:B[+!7:\es8Mu>s8<#Arr2f;"olaFs2 |
| 231520 | 72 4c 51 0a 73 2a 74 7e 3e 0a 6e 47 60 64 2b 4b 6e 5d 52 2c 4b 6e 59 60 6a 72 65 3a 40 4f 72 49 | rLQ.s*t~>.nG`d+Kn]R,KnY`jre:@OrI |
| 231540 | 6c 24 65 4b 6e 5d 50 5c 73 38 52 66 51 73 2b 55 4b 2c 50 44 30 24 6a 73 38 52 65 2c 73 2d 2a 45 | l$eKn]P\s8RfQs+UK,PD0$js8Re,s-*E |
| 231560 | 5d 24 66 6d 4d 2a 4c 26 5f 31 2c 4c 26 5f 31 2c 73 38 40 57 4f 0a 73 37 68 3c 4a 72 74 3a 4f 71 | ]$fmM*L&_1,L&_1,s8@WO.s7h<Jrt:Oq |
| 231580 | 73 2d 26 2f 23 4c 26 5b 3f 6a 4c 26 5f 31 2c 4c 26 5f 31 2c 73 38 40 5a 4f 73 37 71 3f 53 73 2b | s-&/#L&[?jL&_1,L&_1,s8@ZOs7q?Ss+ |
| 2315a0 | 51 30 30 4c 22 3b 49 66 66 29 47 5b 4c 59 35 58 2b 5a 73 2b 55 4b 2c 73 38 52 66 4e 72 72 65 26 | Q00L";Iff)G[LY5X+Zs+UK,s8RfNrre& |
| 2315c0 | 55 0a 4b 6e 5d 52 29 4b 61 25 4c 31 4c 26 5f 31 3a 72 56 6c 6b 5d 71 5a 24 50 59 22 54 4f 5b 3e | U.Kn]R)Ka%L1L&_1:rVlk]qZ$PY"TO[> |
| 2315e0 | 4c 26 5f 2e 2b 72 56 6c 6c 4b 71 68 35 24 36 72 49 74 3a 4f 72 49 74 3a 4f 21 65 70 5b 53 71 68 | L&_.+rVllKqh5$6rIt:OrIt:O!ep[Sqh |
| 231600 | 35 34 52 4c 26 5f 31 2c 4c 25 23 25 6c 7e 3e 0a 6e 47 60 64 21 46 2a 25 42 5d 46 2a 21 21 36 72 | 54RL&_1,L%#%l~>.nG`d!F*%B]F*!!6r |
| 231620 | 63 41 29 3d 72 47 72 62 53 46 2a 25 41 26 73 38 52 30 3f 73 29 5c 33 5d 4b 36 2e 27 36 73 38 52 | cA)=rGrbSF*%A&s8R0?s)\3]K6.'6s8R |
| 231640 | 2e 5d 73 2b 43 3a 4d 24 66 48 59 59 46 38 75 38 5d 46 38 75 38 5d 73 38 40 21 3d 0a 73 37 67 5b | .]s+C:M$fHYYF8u8]F8u8]s8@!=.s7g[ |
| 231660 | 38 72 74 39 74 61 73 2b 3e 42 46 46 38 70 6c 36 46 38 75 38 5d 46 38 75 38 5d 73 38 40 24 3d 73 | 8rt9tas+>BFF8pl6F8u8]F8u8]s8@$=s |
| 231680 | 37 70 5e 41 73 29 57 37 55 46 33 6f 52 3e 64 2f 4f 25 46 55 41 66 33 3c 73 29 5c 33 5d 73 38 52 | 7p^As)W7UF3oR>d/O%FUAf3<s)\3]s8R |
| 2316a0 | 30 3c 72 72 64 45 43 0a 46 2a 25 42 5a 45 73 3b 53 62 46 38 75 38 6d 72 56 6c 6b 4d 71 5a 24 50 | 0<rrdEC.F*%BZEs;SbF8u8mrVlkMqZ$P |
| 2316c0 | 49 22 54 4f 2a 71 46 38 75 35 5c 72 56 6c 6c 45 71 66 3b 61 69 72 48 26 23 3d 72 48 26 23 3d 21 | I"TO*qF8u5\rVllEqf;airH&#=rH&#=! |
| 2316e0 | 64 22 44 41 71 66 3b 72 40 46 38 75 38 5d 46 37 39 2d 5a 7e 3e 0a 6e 47 60 64 52 62 30 27 62 61 | d"DAqf;r@F8u8]F79-Z~>.nG`dRb0'ba |
| 231700 | 62 30 26 2a 32 72 6c 59 36 3f 72 51 35 6f 55 62 30 27 62 2c 73 38 55 37 41 73 32 74 41 61 64 29 | b0&*2rlY6?rQ5oUb0'b,s8U7As2tAad) |
| 231720 | 75 43 32 73 38 55 36 61 73 33 55 60 45 24 68 4d 60 66 62 35 5f 4c 61 62 35 5f 4c 61 73 38 43 28 | uC2s8U6as3U`E$hM`fb5_Lab5_Las8C( |
| 231740 | 3f 0a 73 37 6a 62 3a 72 74 3c 5d 59 73 33 53 70 38 62 35 5d 69 32 62 35 5f 4c 61 62 35 5f 4c 61 | ?.s7jb:rt<]Ys3Sp8b5]i2b5_Lab5_La |
| 231760 | 73 38 43 2b 3f 73 37 73 65 43 73 32 72 4c 3e 62 33 64 52 55 6d 4a 64 2b 63 68 23 3e 47 23 73 32 | s8C+?s7seCs2rL>b3dRUmJd+ch#>G#s2 |
| 231780 | 74 41 61 73 38 55 37 3e 72 72 67 4c 45 0a 62 30 27 62 5e 61 70 25 67 66 62 35 5f 4c 67 72 56 6c | tAas8U7>rrgLE.b0'b^ap%gfb5_LgrVl |
| 2317a0 | 6c 45 71 5a 24 51 41 22 54 51 69 6b 62 35 5f 49 60 72 56 6c 6c 62 71 6f 53 6f 63 72 51 3e 30 3f | lEqZ$QA"TQikb5_I`rVllbqoSocrQ>0? |
| 2317c0 | 72 51 3e 30 3f 21 6d 3a 51 43 71 6f 54 2a 42 62 35 5f 4c 61 62 34 23 40 5c 7e 3e 0a 6e 47 60 4f | rQ>0?!m:QCqoT*Bb5_Lab4#@\~>.nG`O |
| 2317e0 | 24 4c 26 56 2c 50 4b 60 52 44 3b 72 65 3a 40 4f 72 49 6c 24 65 4b 6e 5d 50 5c 73 38 52 66 51 73 | $L&V,PK`RD;re:@OrIl$eKn]P\s8RfQs |
| 231800 | 2b 55 4b 2c 50 44 30 24 6a 73 38 52 65 2c 73 2d 2a 45 5d 24 66 6d 4d 2a 4c 26 5f 31 2c 4c 26 5f | +UK,PD0$js8Re,s-*E]$fmM*L&_1,L&_ |
| 231820 | 31 2c 73 38 40 57 4f 0a 73 37 68 3c 4a 72 74 3a 4f 71 73 2d 26 2f 23 4c 26 5b 3f 6a 4c 26 5f 31 | 1,s8@WO.s7h<Jrt:Oqs-&/#L&[?jL&_1 |
| 231840 | 2c 4c 26 5f 31 2c 73 38 40 5a 4f 73 37 71 3f 51 73 2b 51 30 30 4c 22 3b 49 63 72 72 42 35 24 4b | ,L&_1,s8@ZOs7q?Qs+Q00L";IcrrB5$K |
| 231860 | 61 2e 52 32 73 2b 55 4c 51 4c 26 43 72 52 4c 26 5a 6a 5c 0a 73 38 37 51 53 73 2b 51 31 2c 73 2d | a.R2s+ULQL&CrRL&Zj\.s87QSs+Q1,s- |
| 231880 | 2a 45 5d 21 30 64 39 5a 72 66 5b 4b 62 50 44 2b 5f 6a 72 65 3a 3d 4e 21 37 71 25 24 21 30 64 44 | *E]!0d9Zrf[KbPD+_jre:=N!7q%$!0dD |
| 2318a0 | 39 72 72 3b 71 4e 73 38 4e 2e 53 73 38 57 28 50 23 6c 66 55 34 73 2b 55 4c 51 4b 6e 5d 21 71 0a | 9rr;qNs8N.Ss8W(P#lfU4s+ULQKn]!q. |
| 2318c0 | 4a 2c 7e 3e 0a 6e 47 60 4e 6f 46 38 6c 34 3e 45 72 67 70 6e 72 63 41 29 3d 72 47 72 62 53 46 2a | J,~>.nG`NoF8l4>ErgpnrcA)=rGrbSF* |
| 2318e0 | 25 41 26 73 38 52 30 3f 73 29 5c 33 5d 4b 36 2e 27 36 73 38 52 2e 5d 73 2b 43 3a 4d 24 66 48 59 | %A&s8R0?s)\3]K6.'6s8R.]s+C:M$fHY |
| 231900 | 59 46 38 75 38 5d 46 38 75 38 5d 73 38 40 21 3d 0a 73 37 67 5b 38 72 74 39 74 61 73 2b 3e 42 46 | YF8u8]F8u8]s8@!=.s7g[8rt9tas+>BF |
| 231920 | 46 38 70 6c 36 46 38 75 38 5d 46 38 75 38 5d 73 38 40 24 3d 73 37 70 5e 3f 73 29 57 37 55 46 33 | F8pl6F8u8]F8u8]s8@$=s7p^?s)W7UF3 |
| 231940 | 6f 52 3b 72 72 41 65 6d 45 73 44 59 63 73 29 5c 35 3f 46 38 5a 25 40 46 38 70 3c 26 0a 73 38 36 | oR;rrAemEsDYcs)\5?F8Z%@F8p<&.s86 |
| 231960 | 70 41 73 29 57 38 5d 73 2b 43 3a 4d 21 2f 28 2e 4a 72 64 74 40 52 4b 36 29 2c 36 72 63 41 26 3c | pAs)W8]s+C:M!/(.Jrdt@RK6),6rcA&< |
| 231980 | 21 37 3a 55 61 21 2f 28 38 6c 72 72 3b 71 3c 73 38 4e 2e 41 73 38 57 28 3e 23 6c 65 73 65 73 29 | !7:Ua!/(8lrr;q<s8N.As8W(>#leses) |
| 2319a0 | 5c 35 3f 46 2a 24 67 4d 0a 4a 2c 7e 3e 0a 6e 47 60 4f 4b 62 35 56 47 40 61 6f 54 6c 68 72 6c 59 | \5?F*$gM.J,~>.nG`OKb5VG@aoTlhrlY |
| 2319c0 | 36 3f 72 51 35 6f 55 62 30 27 62 2c 73 38 55 37 41 73 32 74 41 61 64 29 75 43 32 73 38 55 36 61 | 6?rQ5oUb0'b,s8U7As2tAad)uC2s8U6a |
| 2319e0 | 73 33 55 60 45 24 68 4d 60 66 62 35 5f 4c 61 62 35 5f 4c 61 73 38 43 28 3f 0a 73 37 6a 62 3a 72 | s3U`E$hM`fb5_Lab5_Las8C(?.s7jb:r |
| 231a00 | 74 3c 5d 59 73 33 53 70 38 62 35 5d 69 32 62 35 5f 4c 61 62 35 5f 4c 61 73 38 43 2b 3f 73 37 73 | t<]Ys3Sp8b5]i2b5_Lab5_Las8C+?s7s |
| 231a20 | 65 41 73 32 72 4c 3e 62 33 64 52 52 72 72 43 6a 52 61 70 2e 6d 67 73 32 74 42 41 62 35 44 38 42 | eAs2rL>b3dRRrrCjRap.mgs2tBAb5D8B |
| 231a40 | 62 35 5d 57 2c 0a 73 38 3a 22 43 73 32 72 4c 61 73 33 55 60 45 21 37 3a 54 42 72 6d 31 66 4a 64 | b5]W,.s8:"Cs2rLas3U`E!7:TBrm1fJd |
| 231a60 | 29 73 4e 32 72 6c 59 33 3e 21 3a 42 5b 2b 21 37 3a 5f 66 72 72 3b 72 3e 73 38 4e 2f 43 73 38 57 | )sN2rlY3>!:B[+!7:_frr;r>s8N/Cs8W |
| 231a80 | 29 40 23 6c 69 26 69 73 32 74 42 41 62 30 27 32 51 0a 4a 2c 7e 3e 0a 6e 47 60 4f 24 4c 26 56 2c | )@#li&is2tBAb0'2Q.J,~>.nG`O$L&V, |
| 231aa0 | 50 4b 60 52 44 3b 72 65 3a 40 4f 72 49 6b 61 5d 4b 6e 5d 50 5c 73 38 52 66 51 73 2b 55 4b 2c 50 | PK`RD;re:@OrIka]Kn]P\s8RfQs+UK,P |
| 231ac0 | 44 2f 75 38 73 2b 4c 4c 52 50 50 74 4c 68 6a 48 47 3a 4f 73 38 52 65 2c 73 38 52 66 51 72 49 6b | D/u8s+LLRPPtLhjHG:Os8Re,s8RfQrIk |
| 231ae0 | 37 4f 0a 70 6b 41 62 4a 26 73 4e 40 71 50 44 2c 33 53 73 2d 26 2e 6a 73 38 52 65 2c 73 38 52 66 | 7O.pkAbJ&sN@qPD,3Ss-&.js8Re,s8Rf |
| 231b00 | 51 72 49 74 3a 4f 71 31 54 25 51 4b 6e 5a 5b 60 65 73 24 25 33 21 33 5a 3c 54 23 36 30 44 57 4c | QrIt:Oq1T%QKnZ[`es$%3!3Z<T#60DWL |
| 231b20 | 26 5f 31 2c 72 3b 51 71 53 73 2b 51 31 2c 0a 73 38 40 57 54 73 2b 51 31 2c 73 2d 2a 45 5d 21 30 | &_1,r;QqSs+Q1,.s8@WTs+Q1,s-*E]!0 |
| 231b40 | 64 39 5a 72 66 5b 4b 62 50 44 2b 5f 6a 72 65 3a 3d 4e 21 37 71 25 24 21 30 64 44 39 72 72 3b 71 | d9Zrf[KbPD+_jre:=N!7q%$!0dD9rr;q |
| 231b60 | 4e 73 38 4e 2e 53 73 38 57 28 50 23 6c 66 55 34 73 2b 55 4c 51 4b 6e 5d 21 71 0a 4a 2c 7e 3e 0a | Ns8N.Ss8W(P#lfU4s+ULQKn]!q.J,~>. |
| 231b80 | 6e 47 60 4e 6f 46 38 6c 34 3e 45 72 67 70 6e 72 63 41 29 3d 72 47 72 4a 4b 46 2a 25 41 26 73 38 | nG`NoF8l4>ErgpnrcA)=rGrJKF*%A&s8 |
| 231ba0 | 52 30 3f 73 29 5c 33 5d 4b 36 2e 22 6b 73 29 53 35 40 4b 44 6b 66 58 69 2e 48 29 6c 73 38 52 2e | R0?s)\3]K6."ks)S5@KDkfXi.H)ls8R. |
| 231bc0 | 5d 73 38 52 30 3f 72 47 71 75 3d 0a 70 69 48 4b 38 26 71 67 35 61 4b 36 29 5a 64 73 2b 3e 42 36 | ]s8R0?rGqu=.piHK8&qg5aK6)Zds+>B6 |
| 231be0 | 73 38 52 2e 5d 73 38 52 30 3f 72 48 26 23 3d 71 2f 5a 63 3f 46 2a 22 27 73 64 22 44 38 72 21 32 | s8R.]s8R0?rH&#=q/Zc?F*"'sd"D8r!2 |
| 231c00 | 42 49 36 23 36 2f 63 45 46 38 75 38 5d 72 3b 51 71 41 73 29 57 38 5d 0a 73 38 40 21 42 73 29 57 | BI6#6/cEF8u8]r;QqAs)W8].s8@!Bs)W |
| 231c20 | 38 5d 73 2b 43 3a 4d 21 2f 28 2e 4a 72 64 74 40 52 4b 36 29 2c 36 72 63 41 26 3c 21 37 3a 55 61 | 8]s+C:M!/(.Jrdt@RK6),6rcA&<!7:Ua |
| 231c40 | 21 2f 28 38 6c 72 72 3b 71 3c 73 38 4e 2e 41 73 38 57 28 3e 23 6c 65 73 65 73 29 5c 35 3f 46 2a | !/(8lrr;q<s8N.As8W(>#leses)\5?F* |
| 231c60 | 24 67 4d 0a 4a 2c 7e 3e 0a 6e 47 60 4f 4b 62 35 56 47 40 61 6f 54 6c 68 72 6c 59 36 3f 72 51 35 | $gM.J,~>.nG`OKb5VG@aoTlhrlY6?rQ5 |
| 231c80 | 57 4d 62 30 27 62 2c 73 38 55 37 41 73 32 74 41 61 64 29 75 3d 65 73 32 6b 42 42 64 2f 45 74 50 | WMb0'b,s8U7As2tAad)u=es2kBBd/EtP |
| 231ca0 | 6f 3f 62 59 26 73 38 55 36 61 73 38 55 37 41 72 51 35 2d 3f 0a 70 72 60 58 3a 27 25 24 5b 59 64 | o?bY&s8U6as8U7ArQ5-?.pr`X:'%$[Yd |
| 231cc0 | 29 73 5f 58 73 33 53 70 32 73 38 55 36 61 73 38 55 37 41 72 51 3e 30 3f 71 38 72 70 41 62 30 26 | )s_Xs3Sp2s8U6as8U7ArQ>0?q8rpAb0& |
| 231ce0 | 4d 5e 6d 45 6b 65 32 21 38 52 52 72 23 36 32 6a 47 62 35 5f 4c 61 72 3b 51 72 43 73 32 72 4c 61 | M^mEke2!8RRr#62jGb5_Lar;QrCs2rLa |
| 231d00 | 0a 73 38 43 28 44 73 32 72 4c 61 73 33 55 60 45 21 37 3a 54 42 72 6d 31 66 4a 64 29 73 4e 32 72 | .s8C(Ds2rLas3U`E!7:TBrm1fJd)sN2r |
| 231d20 | 6c 59 33 3e 21 3a 42 5b 2b 21 37 3a 5f 66 72 72 3b 72 3e 73 38 4e 2f 43 73 38 57 29 40 23 6c 69 | lY3>!:B[+!7:_frr;r>s8N/Cs8W)@#li |
| 231d40 | 26 69 73 32 74 42 41 62 30 27 32 51 0a 4a 2c 7e 3e 0a 6e 47 60 4f 24 4c 26 56 2c 50 4b 60 52 44 | &is2tBAb0'2Q.J,~>.nG`O$L&V,PK`RD |
| 231d60 | 3b 72 65 3a 40 4f 72 49 6b 61 5d 4b 6e 5d 50 5c 73 38 52 66 51 73 2b 55 4b 2c 50 44 2f 75 38 73 | ;re:@OrIka]Kn]P\s8RfQs+UK,PD/u8s |
| 231d80 | 2b 4c 4c 52 50 50 6b 46 66 50 44 2b 5f 6a 73 2b 51 31 2c 73 2b 55 4c 4f 4b 60 4d 2f 4a 0a 4c 26 | +LLRPPkFfPD+_js+Q1,s+ULOK`M/J.L& |
| 231da0 | 5f 2f 63 50 51 31 5a 48 4b 70 2e 35 6a 73 2b 51 31 2c 73 2b 51 31 2c 73 2b 55 4c 4f 4c 26 5f 32 | _/cPQ1ZHKp.5js+Q1,s+Q1,s+ULOL&_2 |
| 231dc0 | 4b 4b 61 2e 52 32 4b 73 24 2d 5c 50 50 6b 46 5c 59 35 58 2b 5a 73 2b 55 4b 2c 73 38 52 66 4e 72 | KKa.R2Ks$-\PPkF\Y5X+Zs+UK,s8RfNr |
| 231de0 | 72 6e 2c 56 4b 6e 5d 52 2c 0a 72 49 6b 46 54 4b 6e 5d 52 2c 50 50 74 4c 5d 50 50 59 3a 61 50 51 | rn,VKn]R,.rIkFTKn]R,PPtL]PPY:aPQ |
| 231e00 | 2d 6a 48 50 44 2b 5f 6a 72 65 3a 3d 4e 21 37 71 25 24 21 30 64 44 39 72 72 3b 71 4e 73 38 4e 2e | -jHPD+_jre:=N!7q%$!0dD9rr;qNs8N. |
| 231e20 | 53 73 38 57 28 50 23 6c 66 55 34 73 2b 55 4c 51 4b 6e 5d 21 71 0a 4a 2c 7e 3e 0a 6e 47 60 4e 6f | Ss8W(P#lfU4s+ULQKn]!q.J,~>.nG`No |
| 231e40 | 46 38 6c 34 3e 45 72 67 70 6e 72 63 41 29 3d 72 47 72 4a 4b 46 2a 25 41 26 73 38 52 30 3f 73 29 | F8l4>ErgpnrcA)=rGrJKF*%A&s8R0?s) |
| 231e60 | 5c 33 5d 4b 36 2e 22 6b 73 29 53 35 40 4b 44 62 60 56 4b 36 29 2c 36 73 29 57 38 5d 73 29 5c 35 | \3]K6."ks)S5@KDb`VK6),6s)W8]s)\5 |
| 231e80 | 3d 45 72 63 37 38 0a 46 38 75 37 51 4b 45 28 74 28 46 2b 5c 51 36 73 29 57 38 5d 73 29 57 38 5d | =Erc78.F8u7QKE(t(F+\Q6s)W8]s)W8] |
| 231ea0 | 73 29 5c 35 3d 46 38 75 3a 39 45 73 44 59 63 46 2f 21 61 26 4b 44 62 60 4c 55 41 66 33 3c 73 29 | s)\5=F8u:9EsDYcF/!a&KDb`LUAf3<s) |
| 231ec0 | 5c 33 5d 73 38 52 30 3c 72 72 6d 4b 44 46 2a 25 42 5d 0a 72 47 72 2f 42 46 2a 25 42 5d 4b 44 6b | \3]s8R0<rrmKDF*%B].rGr/BF*%B]KDk |
| 231ee0 | 66 4d 4b 44 50 54 51 4b 45 24 54 28 4b 36 29 2c 36 72 63 41 26 3c 21 37 3a 55 61 21 2f 28 38 6c | fMKDPTQKE$T(K6),6rcA&<!7:Ua!/(8l |
| 231f00 | 72 72 3b 71 3c 73 38 4e 2e 41 73 38 57 28 3e 23 6c 65 73 65 73 29 5c 35 3f 46 2a 24 67 4d 0a 4a | rr;q<s8N.As8W(>#leses)\5?F*$gM.J |
| 231f20 | 2c 7e 3e 0a 6e 47 60 4f 4b 62 35 56 47 40 61 6f 54 6c 68 72 6c 59 36 3f 72 51 35 57 4d 62 30 27 | ,~>.nG`OKb5VG@aoTlhrlY6?rQ5WMb0' |
| 231f40 | 62 2c 73 38 55 37 41 73 32 74 41 61 64 29 75 3d 65 73 32 6b 42 42 64 2f 3c 6e 4e 64 29 73 4e 32 | b,s8U7As2tAad)u=es2kBBd/<nNd)sN2 |
| 231f60 | 73 32 72 4c 61 73 32 74 42 3f 61 6f 4d 4a 3a 0a 62 35 5f 4a 53 64 2f 58 2d 6d 62 30 5c 3c 32 73 | s2rLas2tB?aoMJ:.b5_JSd/X-mb0\<2s |
| 231f80 | 32 72 4c 61 73 32 72 4c 61 73 32 74 42 3f 62 35 5f 4d 3b 61 70 2e 6d 67 62 31 74 2f 2c 64 2f 3c | 2rLas2rLas2tB?b5_M;ap.mgb1t/,d/< |
| 231fa0 | 6e 44 68 23 3e 47 23 73 32 74 41 61 73 38 55 37 3e 72 72 70 52 46 62 30 27 62 61 0a 72 51 35 3c | nDh#>G#s2tAas8U7>rrpRFb0'ba.rQ5< |
| 231fc0 | 44 62 30 27 62 61 64 2f 45 74 45 64 2f 2a 62 49 64 2f 56 4a 6d 64 29 73 4e 32 72 6c 59 33 3e 21 | Db0'bad/EtEd/*bId/VJmd)sN2rlY3>! |
| 231fe0 | 3a 42 5b 2b 21 37 3a 5f 66 72 72 3b 72 3e 73 38 4e 2f 43 73 38 57 29 40 23 6c 69 26 69 73 32 74 | :B[+!7:_frr;r>s8N/Cs8W)@#li&is2t |
| 232000 | 42 41 62 30 27 32 51 0a 4a 2c 7e 3e 0a 6e 47 60 4f 24 4c 26 56 2c 50 4b 60 52 44 3b 72 65 3a 40 | BAb0'2Q.J,~>.nG`O$L&V,PK`RD;re:@ |
| 232020 | 4f 72 49 6b 61 5d 4b 6e 5d 50 5c 73 38 52 66 51 73 2b 55 4b 2c 50 44 2f 75 38 73 2b 4c 4c 52 50 | OrIka]Kn]P\s8RfQs+UK,PD/u8s+LLRP |
| 232040 | 50 6b 46 66 50 44 2b 5f 6a 73 2b 51 31 2c 73 2b 55 4c 4f 4b 60 4d 2f 4a 0a 4c 26 5f 2f 51 50 51 | PkFfPD+_js+Q1,s+ULOK`M/J.L&_/QPQ |
| 232060 | 28 52 60 4b 70 2e 35 69 72 73 34 3e 59 73 2b 51 31 2c 73 2b 55 4c 4f 4c 26 56 2c 4b 4b 61 2e 52 | (R`Kp.5irs4>Ys+Q1,s+ULOL&V,KKa.R |
| 232080 | 32 4b 73 28 49 2c 50 50 6b 46 5c 59 35 58 2b 5a 73 2b 55 4b 2c 73 38 52 66 4e 72 72 6e 2c 56 4b | 2Ks(I,PPkF\Y5X+Zs+UK,s8RfNrrn,VK |
| 2320a0 | 6e 5d 52 2c 0a 72 49 6b 46 54 4b 6e 5d 52 2c 50 50 74 4c 5d 50 50 59 3a 63 50 51 2d 6a 48 50 44 | n]R,.rIkFTKn]R,PPtL]PPY:cPQ-jHPD |
| 2320c0 | 2b 5f 6a 4b 6e 5d 49 29 21 37 71 25 24 21 30 64 44 39 72 72 3b 71 4e 73 38 4e 2e 53 73 38 57 28 | +_jKn]I)!7q%$!0dD9rr;qNs8N.Ss8W( |
| 2320e0 | 50 23 51 4b 4c 33 73 2b 55 4c 51 4c 24 6e 74 6b 7e 3e 0a 6e 47 60 4e 6f 46 38 6c 34 3e 45 72 67 | P#QKL3s+ULQL$ntk~>.nG`NoF8l4>Erg |
| 232100 | 70 6e 72 63 41 29 3d 72 47 72 4a 4b 46 2a 25 41 26 73 38 52 30 3f 73 29 5c 33 5d 4b 36 2e 22 6b | pnrcA)=rGrJKF*%A&s8R0?s)\3]K6."k |
| 232120 | 73 29 53 35 40 4b 44 62 60 56 4b 36 29 2c 36 73 29 57 38 5d 73 29 5c 35 3d 45 72 63 37 38 0a 46 | s)S5@KDb`VK6),6s)W8]s)\5=Erc78.F |
| 232140 | 38 75 37 3f 4b 44 74 6c 50 46 2b 5c 51 35 72 73 33 5d 47 73 29 57 38 5d 73 29 5c 35 3d 46 38 6c | 8u7?KDtlPF+\Q5rs3]Gs)W8]s)\5=F8l |
| 232160 | 34 39 45 73 44 59 63 46 2f 26 5d 5d 4b 44 62 60 4c 55 41 66 33 3c 73 29 5c 33 5d 73 38 52 30 3c | 49EsDYcF/&]]KDb`LUAf3<s)\3]s8R0< |
| 232180 | 72 72 6d 4b 44 46 2a 25 42 5d 0a 72 47 72 2f 42 46 2a 25 42 5d 4b 44 6b 66 4d 4b 44 50 54 53 4b | rrmKDF*%B].rGr/BF*%B]KDkfMKDPTSK |
| 2321a0 | 45 24 54 28 4b 36 29 2c 36 46 2a 25 39 5a 21 37 3a 55 61 21 2f 28 38 6c 72 72 3b 71 3c 73 38 4e | E$T(K6),6F*%9Z!7:Ua!/(8lrr;q<s8N |
| 2321c0 | 2e 41 73 38 57 28 3e 23 51 4a 6a 64 73 29 5c 35 3f 46 37 30 27 59 7e 3e 0a 6e 47 60 4f 4b 62 35 | .As8W(>#QJjds)\5?F70'Y~>.nG`OKb5 |
| 2321e0 | 56 47 40 61 6f 54 6c 68 72 6c 59 36 3f 72 51 35 57 4d 62 30 27 62 2c 73 38 55 37 41 73 32 74 41 | VG@aoTlhrlY6?rQ5WMb0'b,s8U7As2tA |
| 232200 | 61 64 29 75 3d 65 73 32 6b 42 42 64 2f 3c 6e 4e 64 29 73 4e 32 73 32 72 4c 61 73 32 74 42 3f 61 | ad)u=es2kBBd/<nNd)sN2s2rLas2tB?a |
| 232220 | 6f 4d 4a 3a 0a 62 35 5f 4a 41 64 2f 4f 25 48 62 30 5c 3c 31 72 73 36 64 49 73 32 72 4c 61 73 32 | oMJ:.b5_JAd/O%Hb0\<1rs6dIs2rLas2 |
| 232240 | 74 42 3f 62 35 56 47 3b 61 70 2e 6d 67 62 32 21 24 61 64 2f 3c 6e 44 68 23 3e 47 23 73 32 74 41 | tB?b5VG;ap.mgb2!$ad/<nDh#>G#s2tA |
| 232260 | 61 73 38 55 37 3e 72 72 70 52 46 62 30 27 62 61 0a 72 51 35 3c 44 62 30 27 62 61 64 2f 45 74 45 | as8U7>rrpRFb0'ba.rQ5<Db0'bad/EtE |
| 232280 | 64 2f 2a 62 4b 64 2f 56 4a 6d 64 29 73 4e 32 62 30 27 59 5e 21 3a 42 5b 2b 21 37 3a 5f 66 72 72 | d/*bKd/VJmd)sN2b0'Y^!:B[+!7:_frr |
| 2322a0 | 3b 72 3e 73 38 4e 2f 43 73 38 57 29 40 23 51 4d 72 68 73 32 74 42 41 62 33 6f 3a 5b 7e 3e 0a 6e | ;r>s8N/Cs8W)@#QMrhs2tBAb3o:[~>.n |
| 2322c0 | 47 60 4f 24 4c 26 56 2c 50 4b 60 52 44 3b 72 65 3a 40 4f 72 49 6b 4c 56 4b 6e 5d 50 5c 73 38 52 | G`O$L&V,PK`RD;re:@OrIkLVKn]P\s8R |
| 2322e0 | 66 4f 72 72 52 6e 3c 4c 26 4d 26 4f 4b 60 56 34 3b 72 3b 52 2b 66 73 2b 55 4c 51 4b 6e 5d 52 2c | fOrrRn<L&M&OK`V4;r;R+fs+ULQKn]R, |
| 232300 | 4c 26 5f 2b 2a 21 3c 3b 68 4a 0a 71 75 36 5f 4f 50 44 2f 6f 36 73 2b 55 4c 51 21 2f 3a 46 50 73 | L&_+*!<;hJ.qu6_OPD/o6s+ULQ!/:FPs |
| 232320 | 2b 55 49 50 72 49 6b 43 53 4b 6e 5d 50 5c 72 72 33 23 4d 50 50 6b 46 61 59 35 61 33 30 73 2b 55 | +UIPrIkCSKn]P\rr3#MPPkFaY5a30s+U |
| 232340 | 46 4f 21 2f 3a 40 4e 25 75 28 25 3b 4c 26 5f 31 2c 73 2b 51 31 2c 0a 4b 6e 5d 52 2c 50 50 74 4c | FO!/:@N%u(%;L&_1,s+Q1,.Kn]R,PPtL |
| 232360 | 5d 50 50 59 3a 63 50 51 2d 6a 48 50 44 2b 5f 6a 4b 6e 5d 49 29 21 37 71 25 24 21 30 64 44 39 72 | ]PPY:cPQ-jHPD+_jKn]I)!7q%$!0dD9r |
| 232380 | 72 3b 71 4e 73 38 4e 2e 53 73 38 57 28 50 23 51 4b 4c 33 73 2b 55 4c 51 4c 24 6e 74 6b 7e 3e 0a | r;qNs8N.Ss8W(P#QKL3s+ULQL$ntk~>. |
| 2323a0 | 6e 47 60 4e 6f 46 38 6c 34 3e 45 72 67 70 6e 72 63 41 29 3d 72 47 72 35 44 46 2a 25 41 26 73 38 | nG`NoF8l4>ErgpnrcA)=rGr5DF*%A&s8 |
| 2323c0 | 52 30 3d 72 72 52 37 6f 46 38 63 2e 3d 45 72 6c 3b 6e 72 3b 52 2b 56 73 29 5c 35 3f 46 2a 25 42 | R0=rrR7oF8c.=Erl;nr;R+Vs)\5?F*%B |
| 2323e0 | 5d 46 38 75 32 5b 21 3c 3b 68 38 0a 71 75 36 5f 3d 4b 36 2d 71 69 73 29 5c 35 3f 21 2d 41 2f 3e | ]F8u2[!<;h8.qu6_=K6-qis)\5?!-A/> |
| 232400 | 73 29 5c 32 3e 72 47 72 2c 41 46 2a 25 41 26 72 72 33 23 47 4b 44 62 60 51 55 41 6f 3a 55 73 29 | s)\2>rGr,AF*%A&rr3#GKDb`QUAo:Us) |
| 232420 | 5c 2f 3d 21 2d 41 29 3c 25 73 2e 62 6c 46 38 75 38 5d 73 29 57 38 5d 0a 46 2a 25 42 5d 4b 44 6b | \/=!-A)<%s.blF8u8]s)W8].F*%B]KDk |
| 232440 | 66 4d 4b 44 50 54 53 4b 45 24 54 28 4b 36 29 2c 36 46 2a 25 39 5a 21 37 3a 55 61 21 2f 28 38 6c | fMKDPTSKE$T(K6),6F*%9Z!7:Ua!/(8l |
| 232460 | 72 72 3b 71 3c 73 38 4e 2e 41 73 38 57 28 3e 23 51 4a 6a 64 73 29 5c 35 3f 46 37 30 27 59 7e 3e | rr;q<s8N.As8W(>#QJjds)\5?F70'Y~> |
| 232480 | 0a 6e 47 60 4f 4b 62 35 56 47 40 61 6f 54 6c 68 72 6c 59 36 3f 72 51 35 42 46 62 30 27 62 2c 73 | .nG`OKb5VG@aoTlhrlY6?rQ5BFb0'b,s |
| 2324a0 | 38 55 37 3f 72 72 55 3f 69 62 35 4d 41 3f 61 6f 56 4f 68 72 3b 52 2c 4e 73 32 74 42 41 62 30 27 | 8U7?rrU?ib5MA?aoVOhr;R,Ns2tBAb0' |
| 2324c0 | 62 61 62 35 5f 46 5f 21 3c 3b 69 3a 0a 71 75 36 60 3f 64 29 75 37 63 73 32 74 42 41 21 36 59 3c | bab5_F_!<;i:.qu6`?d)u7cs2tBA!6Y< |
| 2324e0 | 40 73 32 74 3f 40 72 51 35 39 43 62 30 27 62 2c 72 72 33 23 64 64 2f 3c 6e 49 68 23 47 4f 3e 73 | @s2t?@rQ59Cb0'b,rr3#dd/<nIh#GO>s |
| 232500 | 32 74 3c 3f 21 36 59 36 3e 26 27 46 70 70 62 35 5f 4c 61 73 32 72 4c 61 0a 62 30 27 62 61 64 2f | 2t<?!6Y6>&'Fppb5_Las2rLa.b0'bad/ |
| 232520 | 45 74 45 64 2f 2a 62 4b 64 2f 56 4a 6d 64 29 73 4e 32 62 30 27 59 5e 21 3a 42 5b 2b 21 37 3a 5f | EtEd/*bKd/VJmd)sN2b0'Y^!:B[+!7:_ |
| 232540 | 66 72 72 3b 72 3e 73 38 4e 2f 43 73 38 57 29 40 23 51 4d 72 68 73 32 74 42 41 62 33 6f 3a 5b 7e | frr;r>s8N/Cs8W)@#QMrhs2tBAb3o:[~ |
| 232560 | 3e 0a 6e 47 60 4f 24 4c 26 56 2c 50 4b 60 52 44 3b 72 65 3a 40 4f 73 2b 4c 55 55 4c 26 5a 6a 5c | >.nG`O$L&V,PK`RD;re:@Os+LUUL&Zj\ |
| 232580 | 72 56 6c 6b 4f 72 56 6c 71 51 50 44 2f 75 38 73 2b 4c 4c 52 50 50 6b 46 66 50 51 2d 40 3a 73 2b | rVlkOrVlqQPD/u8s+LLRPPkFfPQ-@:s+ |
| 2325a0 | 51 31 2c 73 2b 55 4c 4f 4b 60 68 40 2f 0a 73 2b 55 46 4f 73 2b 55 40 4d 21 65 6c 68 6c 71 75 3f | Q1,s+ULOK`h@/.s+UFOs+U@M!elhlqu? |
| 2325c0 | 5c 4d 73 38 4e 28 51 72 72 3c 22 50 72 72 3b 71 4e 22 54 4f 31 30 73 2b 55 49 50 21 53 33 4a 34 | \Ms8N(Qrr<"Prr;qN"TO10s+UIP!S3J4 |
| 2325e0 | 72 72 5d 47 28 4b 6e 5d 46 28 21 2f 3a 40 4e 25 75 28 25 3b 4c 26 5f 31 2c 0a 73 2b 51 31 2c 4b | rr]G(Kn]F(!/:@N%u(%;L&_1,.s+Q1,K |
| 232600 | 6e 5d 52 2c 50 50 74 4c 5d 50 50 59 3a 62 50 51 2d 6a 48 50 44 2b 5f 6a 4c 26 3a 6c 4d 66 29 3a | n]R,PPtL]PPY:bPQ-jHPD+_jL&:lMf): |
| 232620 | 3a 28 73 2b 51 5b 39 4c 26 56 2c 4e 4c 26 5f 2f 53 4c 26 5f 32 50 4b 61 37 58 33 4c 26 5a 6c 2c | :(s+Q[9L&V,NL&_/SL&_2PKa7X3L&Zl, |
| 232640 | 73 2b 54 6e 40 0a 4a 2c 7e 3e 0a 6e 47 60 4e 6f 46 38 6c 34 3e 45 72 67 70 6e 72 63 41 29 3d 73 | s+Tn@.J,~>.nG`NoF8l4>ErgpnrcA)=s |
| 232660 | 29 53 3e 43 46 38 70 3c 26 72 56 6c 6b 3d 72 56 6c 71 3f 4b 36 2e 22 6b 73 29 53 35 40 4b 44 62 | )S>CF8p<&rVlk=rVlq?K6."ks)S5@KDb |
| 232680 | 60 56 4b 45 24 23 6d 73 29 57 38 5d 73 29 5c 35 3d 45 73 29 47 60 0a 73 29 5c 2f 3d 73 29 5c 29 | `VKE$#ms)W8]s)\5=Es)G`.s)\/=s)\) |
| 2326a0 | 3b 21 63 73 21 38 71 75 3f 5c 3b 73 38 4e 28 3f 72 72 3c 22 3e 72 72 3b 71 3c 22 54 4e 4f 61 73 | ;!cs!8qu?\;s8N(?rr<">rr;q<"TNOas |
| 2326c0 | 29 5c 32 3e 21 52 51 4a 73 72 72 5d 22 71 46 2a 25 36 59 21 2d 41 29 3c 25 73 2e 62 6c 46 38 75 | )\2>!RQJsrr]"qF*%6Y!-A)<%s.blF8u |
| 2326e0 | 38 5d 0a 73 29 57 38 5d 46 2a 25 42 5d 4b 44 6b 66 4d 4b 44 50 54 52 4b 45 24 54 28 4b 36 29 2c | 8].s)W8]F*%B]KDkfMKDPTRKE$T(K6), |
| 232700 | 36 46 38 50 74 3b 64 2f 41 22 65 73 29 57 68 6c 46 38 6c 34 3c 46 38 75 37 41 46 38 75 3a 3e 45 | 6F8Pt;d/A"es)WhlF8l4<F8u7AF8u:>E |
| 232720 | 73 4d 5f 64 46 38 70 3d 5d 73 29 5b 57 2e 0a 4a 2c 7e 3e 0a 6e 47 60 4f 4b 62 35 56 47 40 61 6f | sM_dF8p=]s)[W..J,~>.nG`OKb5VG@ao |
| 232740 | 54 6c 68 72 6c 59 36 3f 73 32 6b 4b 45 62 35 5d 57 2c 72 56 6c 6c 3f 72 56 6c 72 41 64 29 75 3d | TlhrlY6?s2kKEb5]W,rVll?rVlrAd)u= |
| 232760 | 65 73 32 6b 42 42 64 2f 3c 6e 4e 64 2f 56 38 67 73 32 72 4c 61 73 32 74 42 3f 61 6f 68 5b 64 0a | es2kBBd/<nNd/V8gs2rLas2tB?aoh[d. |
| 232780 | 73 32 74 3c 3f 73 32 74 36 3d 21 6d 38 6d 34 71 75 3f 5d 3d 73 38 4e 29 41 72 72 3c 23 40 72 72 | s2t<?s2t6=!m8m4qu?]=s8N)Arr<#@rr |
| 2327a0 | 3b 72 3e 22 54 51 57 65 73 32 74 3f 40 21 55 5c 38 33 72 72 5f 27 56 62 30 27 56 5d 21 36 59 36 | ;r>"TQWes2t?@!U\83rr_'Vb0'V]!6Y6 |
| 2327c0 | 3e 26 27 46 70 70 62 35 5f 4c 61 0a 73 32 72 4c 61 62 30 27 62 61 64 2f 45 74 45 64 2f 2a 62 4a | >&'Fppb5_La.s2rLab0'bad/EtEd/*bJ |
| 2327e0 | 64 2f 56 4a 6d 64 29 73 4e 32 62 35 3b 32 3d 6d 4a 59 30 2f 73 32 72 5e 66 62 35 56 47 3e 62 35 | d/VJmd)sN2b5;2=mJY0/s2r^fb5VG>b5 |
| 232800 | 5f 4a 43 62 35 5f 4d 40 61 70 37 73 68 62 35 5d 57 61 73 32 73 64 30 0a 4a 2c 7e 3e 0a 6e 47 60 | _JCb5_M@ap7shb5]Was2sd0.J,~>.nG` |
| 232820 | 4f 24 4c 26 56 2c 50 4b 60 6d 56 3e 4c 26 5a 6c 2b 73 38 52 63 55 73 2b 55 4b 2c 4c 26 4d 23 4f | O$L&V,PK`mV>L&Zl+s8RcUs+UK,L&M#O |
| 232840 | 4c 26 4d 23 51 4b 70 2e 35 68 73 38 52 63 52 73 2d 2a 42 5c 21 67 45 59 3c 72 72 33 43 5c 73 38 | L&M#QKp.5hs8RcRs-*B\!gEY<rr3C\s8 |
| 232860 | 52 66 51 73 2b 55 4b 2c 0a 73 2b 55 4b 2c 72 56 75 6e 4f 71 75 36 5f 4f 50 44 2f 6f 36 73 2b 55 | RfQs+UK,.s+UK,rVunOqu6_OPD/o6s+U |
| 232880 | 4c 51 21 2f 3a 46 50 73 2b 55 49 50 72 49 6b 43 53 4b 6e 5d 50 5c 72 72 33 23 4d 50 50 6b 46 5f | LQ!/:FPs+UIPrIkCSKn]P\rr3#MPPkF_ |
| 2328a0 | 59 35 61 33 30 71 75 36 59 4d 72 3b 52 3a 5d 73 2b 51 31 2c 0a 73 2b 55 4b 2c 4c 26 5a 6a 5c 73 | Y5a30qu6YMr;R:]s+Q1,.s+UK,L&Zj\s |
| 2328c0 | 38 53 3b 5d 72 72 41 38 5a 72 73 34 68 67 50 51 2d 69 23 4c 26 5a 6c 28 72 72 43 58 4b 4b 60 5f | 8S;]rrA8Zrs4hgPQ-i#L&Zl(rrCXKK`_ |
| 2328e0 | 3a 2e 50 51 24 3a 38 73 38 40 5a 4f 72 72 52 6f 53 73 38 49 5d 57 73 2b 51 31 2c 4c 26 5f 31 2c | :.PQ$:8s8@ZOrrRoSs8I]Ws+Q1,L&_1, |
| 232900 | 0a 6d 66 2e 65 7e 3e 0a 6e 47 60 4e 6f 46 38 6c 34 3e 45 73 2e 2d 71 46 38 70 3d 5c 73 38 52 2d | .mf.e~>.nG`NoF8l4>Es.-qF8p=\s8R- |
| 232920 | 43 73 29 5c 33 5d 46 38 63 2b 3d 46 38 63 2b 3f 46 2b 5c 51 34 73 38 52 2d 40 73 2b 43 37 4c 21 | Cs)\3]F8c+=F8c+?F+\Q4s8R-@s+C7L! |
| 232940 | 65 5e 4d 6f 72 72 33 43 4a 73 38 52 30 3f 73 29 5c 33 5d 0a 73 29 5c 33 5d 72 56 75 6e 3d 71 75 | e^Morr3CJs8R0?s)\3].s)\3]rVun=qu |
| 232960 | 36 5f 3d 4b 36 2d 71 69 73 29 5c 35 3f 21 2d 41 2f 3e 73 29 5c 32 3e 72 47 72 2c 41 46 2a 25 41 | 6_=K6-qis)\5?!-A/>s)\2>rGr,AF*%A |
| 232980 | 26 72 72 33 23 47 4b 44 62 60 4f 55 41 6f 3a 55 71 75 36 59 3b 72 3b 52 3a 4b 73 29 57 38 5d 0a | &rr3#GKDb`OUAo:Uqu6Y;r;R:Ks)W8]. |
| 2329a0 | 73 29 5c 33 5d 46 38 70 3c 26 73 38 52 60 4d 72 72 40 5d 4a 72 73 34 38 57 4b 45 24 52 46 46 38 | s)\3]F8p<&s8R`Mrr@]Jrs48WKE$RFF8 |
| 2329c0 | 70 3d 59 72 72 43 46 45 45 72 75 41 5f 4b 44 6f 72 6b 73 38 40 24 3d 72 72 52 39 41 73 38 49 27 | p=YrrCFEEruA_KDorks8@$=rrR9As8I' |
| 2329e0 | 45 73 29 57 38 5d 46 38 75 38 5d 0a 6d 66 2e 65 7e 3e 0a 6e 47 60 4f 4b 62 35 56 47 40 61 6f 70 | Es)W8]F8u8].mf.e~>.nG`OKb5VG@aop |
| 232a00 | 29 6b 62 35 5d 57 60 73 38 55 34 45 73 32 74 41 61 62 35 4d 3e 3f 62 35 4d 3e 41 62 30 5c 3c 30 | )kb5]W`s8U4Es2tAab5M>?b5M>Ab0\<0 |
| 232a20 | 73 38 55 34 42 73 33 55 5d 44 21 6d 70 74 69 72 72 33 44 4c 73 38 55 37 41 73 32 74 41 61 0a 73 | s8U4Bs3U]D!mptirr3DLs8U7As2tAa.s |
| 232a40 | 32 74 41 61 72 56 75 6f 3f 71 75 36 60 3f 64 29 75 37 63 73 32 74 42 41 21 36 59 3c 40 73 32 74 | 2tAarVuo?qu6`?d)u7cs2tBA!6Y<@s2t |
| 232a60 | 3f 40 72 51 35 39 43 62 30 27 62 2c 72 72 33 23 64 64 2f 3c 6e 47 68 23 47 4f 3e 71 75 36 5a 3d | ?@rQ59Cb0'b,rr3#dd/<nGh#GO>qu6Z= |
| 232a80 | 72 3b 52 3b 4d 73 32 72 4c 61 0a 73 32 74 41 61 62 35 5d 57 2c 73 38 55 49 45 72 72 43 46 42 72 | r;R;Ms2rLa.s2tAab5]W,s8UIErrCFBr |
| 232aa0 | 73 37 21 4f 64 2f 56 4a 38 62 35 5d 57 5d 72 72 44 48 62 61 6f 5f 55 63 64 2f 4d 32 65 73 38 43 | s7!Od/VJ8b5]W]rrDHbao_Ucd/M2es8C |
| 232ac0 | 2b 3f 72 72 55 40 43 73 38 4c 2e 47 73 32 72 4c 61 62 35 5f 4c 61 0a 6d 66 2e 65 7e 3e 0a 6e 47 | +?rrU@Cs8L.Gs2rLab5_La.mf.e~>.nG |
| 232ae0 | 60 4f 24 4c 26 56 2c 50 4b 60 5b 4a 3c 4c 26 43 75 4e 4b 60 71 46 30 73 2b 51 31 2a 72 72 40 63 | `O$L&V,PK`[J<L&CuNK`qF0s+Q1*rr@c |
| 232b00 | 4f 72 72 52 6e 3c 4c 26 4d 26 4f 4b 60 56 34 3b 72 3b 51 68 5e 73 2b 55 49 50 25 23 2b 60 5d 4c | OrrRn<L&M&OK`V4;r;Qh^s+UIP%#+`]L |
| 232b20 | 26 5f 31 2c 73 2b 55 4b 2c 0a 73 2b 55 46 4f 73 2b 55 40 4d 21 65 6c 68 6c 71 75 3f 5c 4d 73 38 | &_1,s+UK,.s+UFOs+U@M!elhlqu?\Ms8 |
| 232b40 | 4e 28 51 72 72 3c 22 50 72 72 3b 71 4e 22 54 4f 31 30 73 2b 55 49 50 21 53 33 4a 34 72 72 5d 47 | N(Qrr<"Prr;qN"TO10s+UIP!S3J4rr]G |
| 232b60 | 28 4b 6e 5d 34 22 25 75 28 25 3b 4c 26 5f 31 2c 73 2b 51 31 2c 0a 4b 6e 5d 52 2c 50 50 74 4c 5d | (Kn]4"%u(%;L&_1,s+Q1,.Kn]R,PPtL] |
| 232b80 | 50 50 59 3a 62 50 51 2d 6a 48 50 44 2b 5f 6a 4c 26 3a 6c 4d 66 29 3a 3a 28 73 2b 51 5b 39 4c 26 | PPY:bPQ-jHPD+_jL&:lMf)::(s+Q[9L& |
| 232ba0 | 56 2c 50 4b 61 2e 52 32 73 38 52 66 51 73 38 49 5d 57 73 2b 51 31 2c 4c 26 5f 31 2c 6d 66 2e 65 | V,PKa.R2s8RfQs8I]Ws+Q1,L&_1,mf.e |
| 232bc0 | 7e 3e 0a 6e 47 60 4e 6f 46 38 6c 34 3e 45 72 71 21 6f 46 38 5a 28 3c 45 73 32 4d 61 73 29 57 38 | ~>.nG`NoF8l4>Erq!oF8Z(<Es2Mas)W8 |
| 232be0 | 5b 72 72 40 2d 3d 72 72 52 37 6f 46 38 63 2e 3d 45 72 6c 3b 6e 72 3b 51 68 4e 73 29 5c 32 3e 25 | [rr@-=rrR7oF8c.=Erl;nr;QhNs)\2>% |
| 232c00 | 21 32 49 4b 46 38 75 38 5d 73 29 5c 33 5d 0a 73 29 5c 2f 3d 73 29 5c 29 3b 21 63 73 21 38 71 75 | !2IKF8u8]s)\3].s)\/=s)\);!cs!8qu |
| 232c20 | 3f 5c 3b 73 38 4e 28 3f 72 72 3c 22 3e 72 72 3b 71 3c 22 54 4e 4f 61 73 29 5c 32 3e 21 52 51 4a | ?\;s8N(?rr<">rr;q<"TNOas)\2>!RQJ |
| 232c40 | 73 72 72 5d 22 71 46 2a 25 24 53 25 73 2e 62 6c 46 38 75 38 5d 73 29 57 38 5d 0a 46 2a 25 42 5d | srr]"qF*%$S%s.blF8u8]s)W8].F*%B] |
| 232c60 | 4b 44 6b 66 4d 4b 44 50 54 52 4b 45 24 54 28 4b 36 29 2c 36 46 38 50 74 3b 64 2f 41 22 65 73 29 | KDkfMKDPTRKE$T(K6),6F8Pt;d/A"es) |
| 232c80 | 57 68 6c 46 38 6c 34 3e 45 73 44 59 63 73 38 52 30 3f 73 38 49 27 45 73 29 57 38 5d 46 38 75 38 | WhlF8l4>EsDYcs8R0?s8I'Es)W8]F8u8 |
| 232ca0 | 5d 6d 66 2e 65 7e 3e 0a 6e 47 60 4f 4b 62 35 56 47 40 61 6f 5d 72 69 62 35 44 3b 3e 61 6f 71 61 | ]mf.e~>.nG`OKb5VG@ao]rib5D;>aoqa |
| 232cc0 | 65 73 32 72 4c 5f 72 72 43 34 3f 72 72 55 3f 69 62 35 4d 41 3f 61 6f 56 4f 68 72 3b 51 69 46 73 | es2rL_rrC4?rrU?ib5MA?aoVOhr;QiFs |
| 232ce0 | 32 74 3f 40 25 2a 4a 56 4d 62 35 5f 4c 61 73 32 74 41 61 0a 73 32 74 3c 3f 73 32 74 36 3d 21 6d | 2t?@%*JVMb5_Las2tAa.s2t<?s2t6=!m |
| 232d00 | 38 6d 34 71 75 3f 5d 3d 73 38 4e 29 41 72 72 3c 23 40 72 72 3b 72 3e 22 54 51 57 65 73 32 74 3f | 8m4qu?]=s8N)Arr<#@rr;r>"TQWes2t? |
| 232d20 | 40 21 55 5c 38 33 72 72 5f 27 56 62 30 27 44 57 26 27 46 70 70 62 35 5f 4c 61 73 32 72 4c 61 0a | @!U\83rr_'Vb0'DW&'Fppb5_Las2rLa. |
| 232d40 | 62 30 27 62 61 64 2f 45 74 45 64 2f 2a 62 4a 64 2f 56 4a 6d 64 29 73 4e 32 62 35 3b 32 3d 6d 4a | b0'bad/EtEd/*bJd/VJmd)sN2b5;2=mJ |
| 232d60 | 59 30 2f 73 32 72 5e 66 62 35 56 47 40 61 70 2e 6d 67 73 38 55 37 41 73 38 4c 2e 47 73 32 72 4c | Y0/s2r^fb5VG@ap.mgs8U7As8L.Gs2rL |
| 232d80 | 61 62 35 5f 4c 61 6d 66 2e 65 7e 3e 0a 6e 47 60 4f 24 4c 26 56 2c 50 4b 60 5b 4a 3c 4c 26 3a 6c | ab5_Lamf.e~>.nG`O$L&V,PK`[J<L&:l |
| 232da0 | 52 4c 26 5a 6c 2c 4b 6e 5d 4c 2a 21 2f 3a 43 4f 21 65 6c 68 6c 72 56 75 6e 4f 21 57 53 41 5d 72 | RL&Zl,Kn]L*!/:CO!elhlrVunO!WSA]r |
| 232dc0 | 72 53 44 61 4c 26 56 29 5c 4c 26 5f 31 2c 73 38 52 66 51 4c 26 5a 6c 2c 0a 4c 26 4d 26 4f 4c 26 | rSDaL&V)\L&_1,s8RfQL&Zl,.L&M&OL& |
| 232de0 | 3a 6c 4f 4b 70 2e 35 66 73 38 52 66 51 72 72 40 63 50 73 38 52 66 50 73 38 40 57 53 73 2b 51 31 | :lOKp.5fs8RfQrr@cPs8RfPs8@WSs+Q1 |
| 232e00 | 2c 4c 26 56 29 51 65 73 24 25 33 22 30 56 5a 58 4c 25 59 48 56 4c 26 5a 6a 5c 73 38 52 66 51 4b | ,L&V)Qes$%3"0VZXL%YHVL&Zj\s8RfQK |
| 232e20 | 6e 5d 50 5c 0a 4c 26 5f 31 3a 72 56 6c 6b 5d 71 59 70 68 62 73 2d 2a 4a 48 4b 6e 5d 50 5c 71 75 | n]P\.L&_1:rVlk]qYphbs-*JHKn]P\qu |
| 232e40 | 36 5a 49 72 49 6b 3d 51 4b 70 32 4c 69 72 72 3c 22 50 23 36 30 44 57 73 2b 55 4c 51 72 65 3a 43 | 6ZIrIk=QKp2Lirr<"P#60DWs+ULQre:C |
| 232e60 | 50 22 62 6c 75 31 73 38 52 66 40 73 2a 74 7e 3e 0a 6e 47 60 4e 6f 46 38 6c 34 3e 45 72 71 21 6f | P"blu1s8Rf@s*t~>.nG`NoF8l4>Erq!o |
| 232e80 | 46 38 50 74 40 46 38 70 3d 5d 46 2a 25 3c 5b 21 2d 41 2c 3d 21 63 73 21 38 72 56 75 6e 3d 21 57 | F8Pt@F8p=]F*%<[!-A,=!cs!8rVun=!W |
| 232ea0 | 52 66 4d 72 72 52 69 51 46 38 6c 31 4a 46 38 75 38 5d 73 38 52 30 3f 46 38 70 3d 5d 0a 46 38 63 | RfMrrRiQF8l1JF8u8]s8R0?F8p=].F8c |
| 232ec0 | 2e 3d 46 38 50 74 3d 46 2b 5c 51 32 73 38 52 30 3f 72 72 40 2d 3e 73 38 52 30 3e 73 38 40 21 41 | .=F8Pt=F+\Q2s8R0?rr@->s8R0>s8@!A |
| 232ee0 | 73 29 57 38 5d 46 38 6c 31 3f 64 22 44 38 72 22 2f 3e 67 3a 46 37 6f 50 44 46 38 70 3c 26 73 38 | s)W8]F8l1?d"D8r"/>g:F7oPDF8p<&s8 |
| 232f00 | 52 30 3f 46 2a 25 41 26 0a 46 38 75 38 6d 72 56 6c 6b 4d 71 59 70 68 52 73 2b 43 3f 28 46 2a 25 | R0?F*%A&.F8u8mrVlkMqYphRs+C?(F*% |
| 232f20 | 41 26 71 75 36 5a 43 72 47 72 26 3f 46 2b 61 49 35 72 72 3c 22 3e 23 36 2f 63 45 73 29 5c 35 3f | A&qu6ZCrGr&?F+aI5rr<">#6/cEs)\5? |
| 232f40 | 72 63 41 2c 3e 22 60 73 5d 62 73 38 52 30 2e 73 2a 74 7e 3e 0a 6e 47 60 4f 4b 62 35 56 47 40 61 | rcA,>"`s]bs8R0.s*t~>.nG`OKb5VG@a |
| 232f60 | 6f 5d 72 69 62 35 3b 32 42 62 35 5d 57 61 62 30 27 5c 5f 21 36 59 39 3f 21 6d 38 6d 34 72 56 75 | o]rib5;2Bb5]Wab0'\_!6Y9?!m8m4rVu |
| 232f80 | 6f 3f 21 57 55 4f 45 72 72 55 52 49 62 35 56 44 4c 62 35 5f 4c 61 73 38 55 37 41 62 35 5d 57 61 | o?!WUOErrURIb5VDLb5_Las8U7Ab5]Wa |
| 232fa0 | 0a 62 35 4d 41 3f 62 35 3b 32 3f 62 30 5c 3c 2e 73 38 55 37 41 72 72 43 34 40 73 38 55 37 40 73 | .b5MA?b5;2?b0\<.s8U7ArrC4@s8U7@s |
| 232fc0 | 38 43 28 43 73 32 72 4c 61 62 35 56 44 41 6d 45 6b 65 32 22 35 4e 71 21 62 34 59 63 46 62 35 5d | 8C(Cs2rLab5VDAmEke2"5Nq!b4YcFb5] |
| 232fe0 | 57 2c 73 38 55 37 41 62 30 27 62 2c 0a 62 35 5f 4c 67 72 56 6c 6c 45 71 59 70 69 4a 73 33 55 65 | W,s8U7Ab0'b,.b5_LgrVllEqYpiJs3Ue |
| 233000 | 6d 62 30 27 62 2c 71 75 36 5a 60 72 51 35 33 41 62 30 5e 2e 31 72 72 3c 23 40 23 36 32 6a 47 73 | mb0'b,qu6Z`rQ53Ab0^.1rr<#@#62jGs |
| 233020 | 32 74 42 41 72 6c 59 39 40 22 6a 36 6b 66 73 38 55 37 30 73 2a 74 7e 3e 0a 70 5d 23 64 45 53 2c | 2tBArlY9@"j6kfs8U70s*t~>.p]#dES, |
| 233040 | 69 3f 61 4a 2c 7e 3e 0a 70 5d 23 64 45 53 2c 69 3f 61 4a 2c 7e 3e 0a 70 5d 23 64 45 53 2c 69 3f | i?aJ,~>.p]#dES,i?aJ,~>.p]#dES,i? |
| 233060 | 61 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a | aJ,~>.JcCT,J,~>.JcCT,J,~>.JcCT,J |
| 233080 | 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e | ,~>.JcCT,J,~>.JcCT,J,~>.JcCT,J,~ |
| 2330a0 | 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a | >.JcCT,J,~>.JcCT,J,~>.JcCT,J,~>. |
| 2330c0 | 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 | JcCT,J,~>.JcCT,J,~>.JcCT,J,~>.Jc |
| 2330e0 | 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 6f 60 23 21 | CT,J,~>.JcCT,J,~>.JcCT,J,~>.o`#! |
| 233100 | 35 57 6f 4d 59 30 73 35 57 44 45 21 36 3e 26 3c 5f 75 42 5f 57 72 72 32 75 3d 70 26 47 26 6c 6f | 5WoMY0s5WDE!6>&<_uB_Wrr2u=p&G&lo |
| 233120 | 44 5c 6c 34 3c 54 45 54 4b 72 32 4b 62 57 68 23 44 6d 7e 3e 0a 6f 60 23 21 35 57 6f 4d 59 30 73 | D\l4<TETKr2KbWh#Dm~>.o`#!5WoMY0s |
| 233140 | 35 57 44 45 21 36 3e 26 3c 5f 75 42 5f 57 72 72 32 75 3d 70 26 47 26 6c 6f 44 5c 6c 34 3c 54 45 | 5WDE!6>&<_uB_Wrr2u=p&G&loD\l4<TE |
| 233160 | 54 4b 72 32 4b 62 57 68 23 44 6d 7e 3e 0a 6f 60 23 21 35 57 6f 4d 59 30 73 35 57 44 45 21 36 3e | TKr2KbWh#Dm~>.o`#!5WoMY0s5WDE!6> |
| 233180 | 26 3c 5f 75 42 5f 57 72 72 32 75 3d 70 26 47 26 6c 6f 44 5c 6c 34 3c 54 45 54 4b 72 32 4b 62 57 | &<_uB_Wrr2u=p&G&loD\l4<TETKr2KbW |
| 2331a0 | 68 23 44 6d 7e 3e 0a 70 41 59 30 52 3c 57 32 73 75 45 70 3c 54 29 6a 29 58 59 68 73 26 4b 24 74 | h#Dm~>.pAY0R<W2suEp<T)j)XYhs&K$t |
| 2331c0 | 21 54 53 34 69 72 72 3d 29 3c 21 21 28 28 39 73 38 56 2d 41 72 72 43 2b 3d 73 38 54 2b 65 72 72 | !TS4irr=)<!!((9s8V-ArrC+=s8T+err |
| 2331e0 | 60 3d 5e 73 2f 48 28 6c 73 38 51 2a 6b 72 72 5b 39 41 0a 3c 54 45 57 4c 21 33 35 71 73 21 2d 36 | `=^s/H(ls8Q*krr[9A.<TEWL!35qs!-6 |
| 233200 | 6c 70 4a 2c 7e 3e 0a 70 41 59 30 52 3c 57 32 73 75 45 70 3c 54 29 6a 29 58 59 68 73 26 4b 24 74 | lpJ,~>.pAY0R<W2suEp<T)j)XYhs&K$t |
| 233220 | 21 54 53 34 69 72 72 3d 29 3c 21 21 28 28 39 73 38 56 2d 41 72 72 43 2b 3d 73 38 54 2b 65 72 72 | !TS4irr=)<!!((9s8V-ArrC+=s8T+err |
| 233240 | 60 3d 5e 73 2f 48 28 6c 73 38 51 2a 6b 72 72 5b 39 41 0a 3c 54 45 57 4c 21 33 35 71 73 21 2d 36 | `=^s/H(ls8Q*krr[9A.<TEWL!35qs!-6 |
| 233260 | 6c 70 4a 2c 7e 3e 0a 70 41 59 30 52 3c 57 32 73 75 45 70 3c 54 29 6a 29 58 59 68 73 26 4b 24 74 | lpJ,~>.pAY0R<W2suEp<T)j)XYhs&K$t |
| 233280 | 21 54 53 34 69 72 72 3d 29 3c 21 21 28 28 39 73 38 56 2d 41 72 72 43 2b 3d 73 38 54 2b 65 72 72 | !TS4irr=)<!!((9s8V-ArrC+=s8T+err |
| 2332a0 | 60 3d 5e 73 2f 48 28 6c 73 38 51 2a 6b 72 72 5b 39 41 0a 3c 54 45 57 4c 21 33 35 71 73 21 2d 36 | `=^s/H(ls8Q*krr[9A.<TEWL!35qs!-6 |
| 2332c0 | 6c 70 4a 2c 7e 3e 0a 70 41 59 3a 72 33 54 4c 2e 3e 6a 36 3f 52 45 6a 29 58 59 68 73 26 4b 24 74 | lpJ,~>.pAY:r3TL.>j6?REj)XYhs&K$t |
| 2332e0 | 21 54 53 34 67 72 72 45 2c 22 71 23 43 40 6f 6b 50 6b 52 5f 21 3c 33 23 75 57 70 66 72 6c 60 72 | !TS4grrE,"q#C@okPkR_!<3#uWpfrl`r |
| 233300 | 4b 2d 3e 45 57 46 2f 52 73 38 51 2a 6b 72 72 45 2b 5b 0a 6e 2c 45 45 67 21 38 25 37 24 7e 3e 0a | K->EWF/Rs8Q*krrE+[.n,EEg!8%7$~>. |
| 233320 | 70 41 59 3a 72 33 54 4c 2e 3e 6a 36 3f 52 45 6a 29 58 59 68 73 26 4b 24 74 21 54 53 34 67 72 72 | pAY:r3TL.>j6?REj)XYhs&K$t!TS4grr |
| 233340 | 45 2c 22 71 23 43 40 6f 6b 50 6b 52 5f 21 3c 33 23 75 57 70 66 72 6c 60 72 4b 2d 3e 45 57 46 2f | E,"q#C@okPkR_!<3#uWpfrl`rK->EWF/ |
| 233360 | 52 73 38 51 2a 6b 72 72 45 2b 5b 0a 6e 2c 45 45 67 21 38 25 37 24 7e 3e 0a 70 41 59 3a 72 33 54 | Rs8Q*krrE+[.n,EEg!8%7$~>.pAY:r3T |
| 233380 | 4c 2e 3e 6a 36 3f 52 45 6a 29 58 59 68 73 26 4b 24 74 21 54 53 34 67 72 72 45 2c 22 71 23 43 40 | L.>j6?REj)XYhs&K$t!TS4grrE,"q#C@ |
| 2333a0 | 6f 6b 50 6b 52 5f 21 3c 33 23 75 57 70 66 72 6c 60 72 4b 2d 3e 45 57 46 2f 52 73 38 51 2a 6b 72 | okPkR_!<3#uWpfrl`rK->EWF/Rs8Q*kr |
| 2333c0 | 72 45 2b 5b 0a 6e 2c 45 45 67 21 38 25 37 24 7e 3e 0a 70 41 59 2d 6e 45 72 3e 71 44 45 6f 5b 32 | rE+[.n,EEg!8%7$~>.pAY-nEr>qDEo[2 |
| 2333e0 | 5b 45 6c 53 30 3f 3c 48 41 2a 3d 28 33 33 44 71 6a 35 59 31 23 3c 48 41 2c 3e 57 72 4e 2b 21 3c | [ElS0?<HA*=(33Dqj5Y1#<HA,>WrN+!< |
| 233400 | 48 41 2d 22 45 6c 56 31 23 71 75 3f 5b 72 72 56 75 6e 74 73 38 4e 40 62 3c 45 36 26 3e 0a 2a 4b | HA-"ElV1#qu?[rrVunts8N@b<E6&>.*K |
| 233420 | 46 2e 22 71 3e 57 44 53 57 72 4e 2b 5a 45 6c 56 31 3f 6a 26 49 2a 3f 3c 54 46 2c 3e 3c 45 35 28 | F."q>WDSWrN+ZElV1?j&I*?<TF,><E5( |
| 233440 | 5a 57 69 44 28 5a 57 72 4e 2a 5a 3c 48 40 2e 22 73 2c 4c 2a 3e 6a 29 52 2d 5b 3c 4e 3f 28 3e 6a | ZWiD(ZWrN*Z<H@."s,L*>j)R-[<N?(>j |
| 233460 | 38 5d 2e 22 3c 4e 3f 29 5a 0a 45 6c 56 31 3f 71 59 70 62 5b 21 27 31 27 3e 21 33 36 25 75 25 72 | 8]."<N?)Z.ElV1?qYpb[!'1'>!36%u%r |
| 233480 | 74 5b 4d 73 38 56 2b 5a 3c 42 34 28 5a 73 29 4d 2b 5b 6a 38 41 6f 67 6a 26 48 28 3e 3c 54 46 2c | t[Ms8V+Z<B4(Zs)M+[j8Aogj&H(><TF, |
| 2334a0 | 3e 3c 45 38 29 5a 45 6c 57 33 23 6a 38 41 6f 58 57 57 3b 74 73 0a 73 29 4a 37 26 3c 4e 39 26 3e | ><E8)ZElW3#j8AoXWW;ts.s)J7&<N9&> |
| 2334c0 | 72 72 33 4d 4c 3c 45 37 2a 3e 73 32 53 2c 5b 61 38 62 31 3f 3c 45 38 29 51 73 2a 74 7e 3e 0a 70 | rr3ML<E7*>s2S,[a8b1?<E8)Qs*t~>.p |
| 2334e0 | 41 59 2d 6e 45 72 3e 71 44 45 6f 5b 32 5b 45 6c 53 30 3f 3c 48 41 2a 3d 28 33 33 44 71 6a 35 59 | AY-nEr>qDEo[2[ElS0?<HA*=(33Dqj5Y |
| 233500 | 31 23 3c 48 41 2c 3e 57 72 4e 2b 21 3c 48 41 2d 22 45 6c 56 31 23 71 75 3f 5b 72 72 56 75 6e 74 | 1#<HA,>WrN+!<HA-"ElV1#qu?[rrVunt |
| 233520 | 73 38 4e 40 62 3c 45 36 26 3e 0a 2a 4b 46 2e 22 71 3e 57 44 53 57 72 4e 2b 5a 45 6c 56 31 3f 6a | s8N@b<E6&>.*KF."q>WDSWrN+ZElV1?j |
| 233540 | 26 49 2a 3f 3c 54 46 2c 3e 3c 45 35 28 5a 57 69 44 28 5a 57 72 4e 2a 5a 3c 48 40 2e 22 73 2c 4c | &I*?<TF,><E5(ZWiD(ZWrN*Z<H@."s,L |
| 233560 | 2a 3e 6a 29 52 2d 5b 3c 4e 3f 28 3e 6a 38 5d 2e 22 3c 4e 3f 29 5a 0a 45 6c 56 31 3f 71 59 70 62 | *>j)R-[<N?(>j8]."<N?)Z.ElV1?qYpb |
| 233580 | 5b 21 27 31 27 3e 21 33 36 25 75 25 72 74 5b 4d 73 38 56 2b 5a 3c 42 34 28 5a 73 29 4d 2b 5b 6a | [!'1'>!36%u%rt[Ms8V+Z<B4(Zs)M+[j |
| 2335a0 | 38 41 6f 67 6a 26 48 28 3e 3c 54 46 2c 3e 3c 45 38 29 5a 45 6c 57 33 23 6a 38 41 6f 58 57 57 3b | 8Aogj&H(><TF,><E8)ZElW3#j8AoXWW; |
| 2335c0 | 74 73 0a 73 29 4a 37 26 3c 4e 39 26 3e 72 72 33 4d 4c 3c 45 37 2a 3e 73 32 53 2c 5b 61 38 62 31 | ts.s)J7&<N9&>rr3ML<E7*>s2S,[a8b1 |
| 2335e0 | 3f 3c 45 38 29 51 73 2a 74 7e 3e 0a 70 41 59 2d 6e 45 72 3e 71 44 45 6f 5b 32 5b 45 6c 53 30 3f | ?<E8)Qs*t~>.pAY-nEr>qDEo[2[ElS0? |
| 233600 | 3c 48 41 2a 3d 28 33 33 44 71 6a 35 59 31 23 3c 48 41 2c 3e 57 72 4e 2b 21 3c 48 41 2d 22 45 6c | <HA*=(33Dqj5Y1#<HA,>WrN+!<HA-"El |
| 233620 | 56 31 23 71 75 3f 5b 72 72 56 75 6e 74 73 38 4e 40 62 3c 45 36 26 3e 0a 2a 4b 46 2e 22 71 3e 57 | V1#qu?[rrVunts8N@b<E6&>.*KF."q>W |
| 233640 | 44 53 57 72 4e 2b 5a 45 6c 56 31 3f 6a 26 49 2a 3f 3c 54 46 2c 3e 3c 45 35 28 5a 57 69 44 28 5a | DSWrN+ZElV1?j&I*?<TF,><E5(ZWiD(Z |
| 233660 | 57 72 4e 2a 5a 3c 48 40 2e 22 73 2c 4c 2a 3e 6a 29 52 2d 5b 3c 4e 3f 28 3e 6a 38 5d 2e 22 3c 4e | WrN*Z<H@."s,L*>j)R-[<N?(>j8]."<N |
| 233680 | 3f 29 5a 0a 45 6c 56 31 3f 71 59 70 62 5b 21 27 31 27 3e 21 33 36 25 75 25 72 74 5b 4d 73 38 56 | ?)Z.ElV1?qYpb[!'1'>!36%u%rt[Ms8V |
| 2336a0 | 2b 5a 3c 42 34 28 5a 73 29 4d 2b 5b 6a 38 41 6f 67 6a 26 48 28 3e 3c 54 46 2c 3e 3c 45 38 29 5a | +Z<B4(Zs)M+[j8Aogj&H(><TF,><E8)Z |
| 2336c0 | 45 6c 57 33 23 6a 38 41 6f 58 57 57 3b 74 73 0a 73 29 4a 37 26 3c 4e 39 26 3e 72 72 33 4d 4c 3c | ElW3#j8AoXWW;ts.s)J7&<N9&>rr3ML< |
| 2336e0 | 45 37 2a 3e 73 32 53 2c 5b 61 38 62 31 3f 3c 45 38 29 51 73 2a 74 7e 3e 0a 70 41 59 2b 6d 72 57 | E7*>s2S,[a8b1?<E8)Qs*t~>.pAY+mrW |
| 233700 | 22 3b 64 57 72 45 28 21 73 2f 48 28 21 21 21 24 22 3e 45 72 54 2c 5b 3c 3f 36 2b 5b 21 21 23 22 | ";dWrE(!s/H(!!!$">ErT,[<?6+[!!#" |
| 233720 | 5a 57 60 3c 28 21 57 57 36 24 3e 45 69 4b 2a 3e 33 3c 36 29 57 73 38 51 2a 74 73 38 51 28 2c 73 | ZW`<(!WW6$>EiK*>3<6)Ws8Q*ts8Q(,s |
| 233740 | 29 4b 2c 5b 0a 33 45 39 26 5a 2a 45 3c 2a 5b 71 59 72 50 55 57 72 4e 2b 21 21 21 23 22 5a 57 60 | )K,[.3E9&Z*E<*[qYrPUWrN+!!!#"ZW` |
| 233760 | 3a 26 5b 3c 54 45 2a 5b 33 45 36 28 22 3c 3c 2a 22 5a 21 3c 36 25 21 33 3f 3b 2d 22 4e 57 3c 27 | :&[<TE*[3E6("<<*"Z!<6%!3?;-"NW<' |
| 233780 | 22 45 63 4f 2f 3f 3c 4e 3f 27 21 57 72 48 27 3e 0a 3c 3c 31 28 3e 21 21 23 22 5a 61 38 3e 6c 53 | "EcO/?<N?'!WrH'>.<<1(>!!#"Za8>lS |
| 2337a0 | 3c 3c 2a 25 21 21 24 2d 2b 5b 73 26 43 28 3e 21 36 3d 2b 22 33 45 36 26 5a 73 26 43 28 3e 2a 48 | <<*%!!$-+[s&C(>!6=+"3E6&Zs&C(>*H |
| 2337c0 | 4d 29 58 26 42 40 63 4e 33 45 3e 2c 22 2a 42 3f 2c 23 72 72 3c 24 3e 2a 45 45 25 3b 0a 21 4e 48 | M)X&B@cN3E>,"*B?,#rr<$>*EE%;.!NH |
| 2337e0 | 2e 75 3c 3e 73 6d 74 21 24 29 25 3e 2a 3c 3c 2c 3e 57 57 34 26 22 21 3c 3b 27 5a 33 42 38 2c 5b | .u<>smt!$)%>*<<,>WW4&"!<;'Z3B8,[ |
| 233800 | 2a 42 40 2b 3f 57 71 51 49 43 7e 3e 0a 70 41 59 2b 6d 72 57 22 3b 64 57 72 45 28 21 73 2f 48 28 | *B@+?WqQIC~>.pAY+mrW";dWrE(!s/H( |
| 233820 | 21 21 21 24 22 3e 45 72 54 2c 5b 3c 3f 36 2b 5b 21 21 23 22 5a 57 60 3c 28 21 57 57 36 24 3e 45 | !!!$">ErT,[<?6+[!!#"ZW`<(!WW6$>E |
| 233840 | 69 4b 2a 3e 33 3c 36 29 57 73 38 51 2a 74 73 38 51 28 2c 73 29 4b 2c 5b 0a 33 45 39 26 5a 2a 45 | iK*>3<6)Ws8Q*ts8Q(,s)K,[.3E9&Z*E |
| 233860 | 3c 2a 5b 71 59 72 50 55 57 72 4e 2b 21 21 21 23 22 5a 57 60 3a 26 5b 3c 54 45 2a 5b 33 45 36 28 | <*[qYrPUWrN+!!!#"ZW`:&[<TE*[3E6( |
| 233880 | 22 3c 3c 2a 22 5a 21 3c 36 25 21 33 3f 3b 2d 22 4e 57 3c 27 22 45 63 4f 2f 3f 3c 4e 3f 27 21 57 | "<<*"Z!<6%!3?;-"NW<'"EcO/?<N?'!W |
| 2338a0 | 72 48 27 3e 0a 3c 3c 31 28 3e 21 21 23 22 5a 61 38 3e 6c 53 3c 3c 2a 25 21 21 24 2d 2b 5b 73 26 | rH'>.<<1(>!!#"Za8>lS<<*%!!$-+[s& |
| 2338c0 | 43 28 3e 21 36 3d 2b 22 33 45 36 26 5a 73 26 43 28 3e 2a 48 4d 29 58 26 42 40 63 4e 33 45 3e 2c | C(>!6=+"3E6&Zs&C(>*HM)X&B@cN3E>, |
| 2338e0 | 22 2a 42 3f 2c 23 72 72 3c 24 3e 2a 45 45 25 3b 0a 21 4e 48 2e 75 3c 3e 73 6d 74 21 24 29 25 3e | "*B?,#rr<$>*EE%;.!NH.u<>smt!$)%> |
| 233900 | 2a 3c 3c 2c 3e 57 57 34 26 22 21 3c 3b 27 5a 33 42 38 2c 5b 2a 42 40 2b 3f 57 71 51 49 43 7e 3e | *<<,>WW4&"!<;'Z3B8,[*B@+?WqQIC~> |
| 233920 | 0a 70 41 59 2b 6d 72 57 22 3b 64 57 72 45 28 21 73 2f 48 28 21 21 21 24 22 3e 45 72 54 2c 5b 3c | .pAY+mrW";dWrE(!s/H(!!!$">ErT,[< |
| 233940 | 3f 36 2b 5b 21 21 23 22 5a 57 60 3c 28 21 57 57 36 24 3e 45 69 4b 2a 3e 33 3c 36 29 57 73 38 51 | ?6+[!!#"ZW`<(!WW6$>EiK*>3<6)Ws8Q |
| 233960 | 2a 74 73 38 51 28 2c 73 29 4b 2c 5b 0a 33 45 39 26 5a 2a 45 3c 2a 5b 71 59 72 50 55 57 72 4e 2b | *ts8Q(,s)K,[.3E9&Z*E<*[qYrPUWrN+ |
| 233980 | 21 21 21 23 22 5a 57 60 3a 26 5b 3c 54 45 2a 5b 33 45 36 28 22 3c 3c 2a 22 5a 21 3c 36 25 21 33 | !!!#"ZW`:&[<TE*[3E6("<<*"Z!<6%!3 |
| 2339a0 | 3f 3b 2d 22 4e 57 3c 27 22 45 63 4f 2f 3f 3c 4e 3f 27 21 57 72 48 27 3e 0a 3c 3c 31 28 3e 21 21 | ?;-"NW<'"EcO/?<N?'!WrH'>.<<1(>!! |
| 2339c0 | 23 22 5a 61 38 3e 6c 53 3c 3c 2a 25 21 21 24 2d 2b 5b 73 26 43 28 3e 21 36 3d 2b 22 33 45 36 26 | #"Za8>lS<<*%!!$-+[s&C(>!6=+"3E6& |
| 2339e0 | 5a 73 26 43 28 3e 2a 48 4d 29 58 26 42 40 63 4e 33 45 3e 2c 22 2a 42 3f 2c 23 72 72 3c 24 3e 2a | Zs&C(>*HM)X&B@cN3E>,"*B?,#rr<$>* |
| 233a00 | 45 45 25 3b 0a 21 4e 48 2e 75 3c 3e 73 6d 74 21 24 29 25 3e 2a 3c 3c 2c 3e 57 57 34 26 22 21 3c | EE%;.!NH.u<>smt!$)%>*<<,>WW4&"!< |
| 233a20 | 3b 27 5a 33 42 38 2c 5b 2a 42 40 2b 3f 57 71 51 49 43 7e 3e 0a 70 26 3f 4e 25 57 69 42 26 21 69 | ;'Z3B8,[*B@+?WqQIC~>.p&?N%WiB&!i |
| 233a40 | 72 48 2b 5a 57 57 3c 26 21 4e 72 51 2a 5a 60 72 4d 2c 5b 21 33 33 25 21 57 72 46 2a 5b 3c 45 39 | rH+ZWW<&!NrQ*Z`rM,[!33%!WrF*[<E9 |
| 233a60 | 26 3e 45 72 56 2e 22 57 57 39 28 21 2a 51 53 2a 58 73 26 4b 24 74 73 26 42 49 2c 45 5a 4c 32 3f | &>ErV."WW9(!*QS*Xs&K$ts&BI,EZL2? |
| 233a80 | 0a 73 2f 48 28 5a 73 26 45 28 71 72 75 71 48 43 73 38 54 29 21 3c 57 3c 27 21 73 26 45 29 21 73 | .s/H(Zs&E(qruqHCs8T)!<W<'!s&E)!s |
| 233aa0 | 29 4b 2d 3f 2a 3f 46 30 3f 2a 54 50 30 5c 60 72 4e 2e 3e 3c 45 38 26 5a 4e 72 41 74 59 57 57 3c | )K-?*?F0?*TP0\`rN.><E8&ZNrAtYWW< |
| 233ac0 | 25 75 25 30 33 45 4b 21 36 3e 2b 22 0a 3c 4e 36 25 21 72 72 42 28 72 72 74 74 66 57 21 2d 2f 27 | %u%03EK!6>+".<N6%!rrB(rrttfW!-/' |
| 233ae0 | 5b 3c 57 43 29 3e 61 38 5c 2f 22 45 5a 50 32 5b 3c 45 37 27 3e 4e 5d 40 2a 3e 71 59 71 24 2a 57 | [<WC)>a8\/"EZP2[<E7'>N]@*>qYq$*W |
| 233b00 | 72 4e 2a 3e 2a 57 50 2e 22 57 57 36 27 21 45 63 56 2a 58 21 4e 48 2e 75 0a 3c 3e 22 37 6b 2a 54 | rN*>*WP."WW6'!EcV*X!NH.u.<>"7k*T |
| 233b20 | 49 2d 5b 72 72 42 29 21 2a 45 45 2d 3e 21 3c 35 26 3e 72 56 6c 70 3e 33 51 4c 64 6c 4a 2c 7e 3e | I-[rrB)!*EE->!<5&>rVlp>3QLdlJ,~> |
| 233b40 | 0a 70 26 3f 4e 25 57 69 42 26 21 69 72 48 2b 5a 57 57 3c 26 21 4e 72 51 2a 5a 60 72 4d 2c 5b 21 | .p&?N%WiB&!irH+ZWW<&!NrQ*Z`rM,[! |
| 233b60 | 33 33 25 21 57 72 46 2a 5b 3c 45 39 26 3e 45 72 56 2e 22 57 57 39 28 21 2a 51 53 2a 58 73 26 4b | 33%!WrF*[<E9&>ErV."WW9(!*QS*Xs&K |
| 233b80 | 24 74 73 26 42 49 2c 45 5a 4c 32 3f 0a 73 2f 48 28 5a 73 26 45 28 71 72 75 71 48 43 73 38 54 29 | $ts&BI,EZL2?.s/H(Zs&E(qruqHCs8T) |
| 233ba0 | 21 3c 57 3c 27 21 73 26 45 29 21 73 29 4b 2d 3f 2a 3f 46 30 3f 2a 54 50 30 5c 60 72 4e 2e 3e 3c | !<W<'!s&E)!s)K-?*?F0?*TP0\`rN.>< |
| 233bc0 | 45 38 26 5a 4e 72 41 74 59 57 57 3c 25 75 25 30 33 45 4b 21 36 3e 2b 22 0a 3c 4e 36 25 21 72 72 | E8&ZNrAtYWW<%u%03EK!6>+".<N6%!rr |
| 233be0 | 42 28 72 72 74 74 66 57 21 2d 2f 27 5b 3c 57 43 29 3e 61 38 5c 2f 22 45 5a 50 32 5b 3c 45 37 27 | B(rrttfW!-/'[<WC)>a8\/"EZP2[<E7' |
| 233c00 | 3e 4e 5d 40 2a 3e 71 59 71 24 2a 57 72 4e 2a 3e 2a 57 50 2e 22 57 57 36 27 21 45 63 56 2a 58 21 | >N]@*>qYq$*WrN*>*WP."WW6'!EcV*X! |
| 233c20 | 4e 48 2e 75 0a 3c 3e 22 37 6b 2a 54 49 2d 5b 72 72 42 29 21 2a 45 45 2d 3e 21 3c 35 26 3e 72 56 | NH.u.<>"7k*TI-[rrB)!*EE->!<5&>rV |
| 233c40 | 6c 70 3e 33 51 4c 64 6c 4a 2c 7e 3e 0a 70 26 3f 4e 25 57 69 42 26 21 69 72 48 2b 5a 57 57 3c 26 | lp>3QLdlJ,~>.p&?N%WiB&!irH+ZWW<& |
| 233c60 | 21 4e 72 51 2a 5a 60 72 4d 2c 5b 21 33 33 25 21 57 72 46 2a 5b 3c 45 39 26 3e 45 72 56 2e 22 57 | !NrQ*Z`rM,[!33%!WrF*[<E9&>ErV."W |
| 233c80 | 57 39 28 21 2a 51 53 2a 58 73 26 4b 24 74 73 26 42 49 2c 45 5a 4c 32 3f 0a 73 2f 48 28 5a 73 26 | W9(!*QS*Xs&K$ts&BI,EZL2?.s/H(Zs& |
| 233ca0 | 45 28 71 72 75 71 48 43 73 38 54 29 21 3c 57 3c 27 21 73 26 45 29 21 73 29 4b 2d 3f 2a 3f 46 30 | E(qruqHCs8T)!<W<'!s&E)!s)K-?*?F0 |
| 233cc0 | 3f 2a 54 50 30 5c 60 72 4e 2e 3e 3c 45 38 26 5a 4e 72 41 74 59 57 57 3c 25 75 25 30 33 45 4b 21 | ?*TP0\`rN.><E8&ZNrAtYWW<%u%03EK! |
| 233ce0 | 36 3e 2b 22 0a 3c 4e 36 25 21 72 72 42 28 72 72 74 74 66 57 21 2d 2f 27 5b 3c 57 43 29 3e 61 38 | 6>+".<N6%!rrB(rrttfW!-/'[<WC)>a8 |
| 233d00 | 5c 2f 22 45 5a 50 32 5b 3c 45 37 27 3e 4e 5d 40 2a 3e 71 59 71 24 2a 57 72 4e 2a 3e 2a 57 50 2e | \/"EZP2[<E7'>N]@*>qYq$*WrN*>*WP. |
| 233d20 | 22 57 57 36 27 21 45 63 56 2a 58 21 4e 48 2e 75 0a 3c 3e 22 37 6b 2a 54 49 2d 5b 72 72 42 29 21 | "WW6'!EcV*X!NH.u.<>"7k*TI-[rrB)! |
| 233d40 | 2a 45 45 2d 3e 21 3c 35 26 3e 72 56 6c 70 3e 33 51 4c 64 6c 4a 2c 7e 3e 0a 6e 63 27 3a 27 57 57 | *EE->!<5&>rVlp>3QLdlJ,~>.nc':'WW |
| 233d60 | 39 28 21 57 57 3c 26 21 57 72 4b 28 21 57 57 33 24 21 61 38 60 2e 3e 72 56 75 6d 74 23 51 46 65 | 9(!WW<&!WrK(!WW3$!a8`.>rVumt#QFe |
| 233d80 | 28 73 2f 48 28 21 21 3b 51 54 6f 3c 57 32 73 74 3c 57 45 28 2a 4e 5a 42 2f 23 57 57 3c 29 21 3c | (s/H(!!;QTo<W2st<WE(*NZB/#WW<)!< |
| 233da0 | 45 38 6e 71 0a 28 27 28 42 37 73 2f 48 28 5a 72 72 42 29 21 3c 45 39 29 21 3c 3c 2b 25 5b 6a 38 | E8nq.('(B7s/H(ZrrB)!<E9)!<<+%[j8 |
| 233dc0 | 57 2b 5a 72 72 33 35 27 21 3c 3c 28 21 3c 4e 36 26 73 72 72 4b 2c 22 72 72 33 45 2d 57 69 3f 28 | W+Zrr35'!<<(!<N6&srrK,"rr3E-Wi?( |
| 233de0 | 21 73 26 45 28 21 21 39 3d 28 5a 57 72 32 6c 2a 0a 57 57 3b 27 22 21 2a 2d 24 21 73 2f 48 29 21 | !s&E(!!9=(ZWr2l*.WW;'"!*-$!s/H)! |
| 233e00 | 73 38 3e 73 74 73 38 51 28 25 57 57 33 24 21 61 38 2c 60 43 21 33 36 29 21 3c 45 39 29 21 21 33 | s8>sts8Q(%WW3$!a8,`C!36)!<E9)!!3 |
| 233e20 | 2d 25 21 71 3e 55 4a 71 21 3b 75 6c 73 3c 3d 5d 24 2f 57 72 45 27 3e 72 72 42 29 21 0a 57 57 3c | -%!q>UJq!;uls<=]$/WrE'>rrB)!.WW< |
| 233e40 | 26 21 57 72 3b 72 22 6a 29 50 2d 22 70 26 42 4f 7e 3e 0a 6e 63 27 3a 27 57 57 39 28 21 57 57 3c | &!Wr;r"j)P-"p&BO~>.nc':'WW9(!WW< |
| 233e60 | 26 21 57 72 4b 28 21 57 57 33 24 21 61 38 60 2e 3e 72 56 75 6d 74 23 51 46 65 28 73 2f 48 28 21 | &!WrK(!WW3$!a8`.>rVumt#QFe(s/H(! |
| 233e80 | 21 3b 51 54 6f 3c 57 32 73 74 3c 57 45 28 2a 4e 5a 42 2f 23 57 57 3c 29 21 3c 45 38 6e 71 0a 28 | !;QTo<W2st<WE(*NZB/#WW<)!<E8nq.( |
| 233ea0 | 27 28 42 37 73 2f 48 28 5a 72 72 42 29 21 3c 45 39 29 21 3c 3c 2b 25 5b 6a 38 57 2b 5a 72 72 33 | '(B7s/H(ZrrB)!<E9)!<<+%[j8W+Zrr3 |
| 233ec0 | 35 27 21 3c 3c 28 21 3c 4e 36 26 73 72 72 4b 2c 22 72 72 33 45 2d 57 69 3f 28 21 73 26 45 28 21 | 5'!<<(!<N6&srrK,"rr3E-Wi?(!s&E(! |
| 233ee0 | 21 39 3d 28 5a 57 72 32 6c 2a 0a 57 57 3b 27 22 21 2a 2d 24 21 73 2f 48 29 21 73 38 3e 73 74 73 | !9=(ZWr2l*.WW;'"!*-$!s/H)!s8>sts |
| 233f00 | 38 51 28 25 57 57 33 24 21 61 38 2c 60 43 21 33 36 29 21 3c 45 39 29 21 21 33 2d 25 21 71 3e 55 | 8Q(%WW3$!a8,`C!36)!<E9)!!3-%!q>U |
| 233f20 | 4a 71 21 3b 75 6c 73 3c 3d 5d 24 2f 57 72 45 27 3e 72 72 42 29 21 0a 57 57 3c 26 21 57 72 3b 72 | Jq!;uls<=]$/WrE'>rrB)!.WW<&!Wr;r |
| 233f40 | 22 6a 29 50 2d 22 70 26 42 4f 7e 3e 0a 6e 63 27 3a 27 57 57 39 28 21 57 57 3c 26 21 57 72 4b 28 | "j)P-"p&BO~>.nc':'WW9(!WW<&!WrK( |
| 233f60 | 21 57 57 33 24 21 61 38 60 2e 3e 72 56 75 6d 74 23 51 46 65 28 73 2f 48 28 21 21 3b 51 54 6f 3c | !WW3$!a8`.>rVumt#QFe(s/H(!!;QTo< |
| 233f80 | 57 32 73 74 3c 57 45 28 2a 4e 5a 42 2f 23 57 57 3c 29 21 3c 45 38 6e 71 0a 28 27 28 42 37 73 2f | W2st<WE(*NZB/#WW<)!<E8nq.('(B7s/ |
| 233fa0 | 48 28 5a 72 72 42 29 21 3c 45 39 29 21 3c 3c 2b 25 5b 6a 38 57 2b 5a 72 72 33 35 27 21 3c 3c 28 | H(ZrrB)!<E9)!<<+%[j8W+Zrr35'!<<( |
| 233fc0 | 21 3c 4e 36 26 73 72 72 4b 2c 22 72 72 33 45 2d 57 69 3f 28 21 73 26 45 28 21 21 39 3d 28 5a 57 | !<N6&srrK,"rr3E-Wi?(!s&E(!!9=(ZW |
| 233fe0 | 72 32 6c 2a 0a 57 57 3b 27 22 21 2a 2d 24 21 73 2f 48 29 21 73 38 3e 73 74 73 38 51 28 25 57 57 | r2l*.WW;'"!*-$!s/H)!s8>sts8Q(%WW |
| 234000 | 33 24 21 61 38 2c 60 43 21 33 36 29 21 3c 45 39 29 21 21 33 2d 25 21 71 3e 55 4a 71 21 3b 75 6c | 3$!a8,`C!36)!<E9)!!3-%!q>UJq!;ul |
| 234020 | 73 3c 3d 5d 24 2f 57 72 45 27 3e 72 72 42 29 21 0a 57 57 3c 26 21 57 72 3b 72 22 6a 29 50 2d 22 | s<=]$/WrE'>rrB)!.WW<&!Wr;r"j)P-" |
| 234040 | 70 26 42 4f 7e 3e 0a 70 5c 75 2e 50 3c 57 45 2a 3e 33 3c 38 28 5b 57 72 4b 28 21 72 72 42 29 21 | p&BO~>.p\u.P<WE*>3<8([WrK(!rrB)! |
| 234060 | 3c 3f 39 2a 5b 57 72 4c 2b 3e 57 57 3c 22 74 73 26 42 3d 28 2a 45 45 2c 3e 33 4e 3c 29 53 73 38 | <?9*[WrL+>WW<"ts&B=(*EE,>3N<)Ss8 |
| 234080 | 51 28 32 73 2f 4c 2b 3e 3c 45 39 28 21 6a 38 55 2d 22 0a 57 57 3c 28 5a 2a 48 4d 29 58 28 72 72 | Q(2s/L+><E9(!j8U-".WW<(Z*HM)X(rr |
| 2340a0 | 57 56 45 69 54 2f 3e 21 3c 3c 27 21 57 72 48 28 21 73 38 52 2a 5b 6a 38 59 2e 22 3c 45 39 25 75 | WVEiT/>!<<'!WrH(!s8R*[j8Y."<E9%u |
| 2340c0 | 25 60 5c 52 69 73 23 46 2a 22 21 33 36 27 5a 57 72 4b 28 21 72 72 33 45 2d 57 6c 47 2b 3e 0a 69 | %`\Ris#F*"!36'ZWrK(!rr3E-WlG+>.i |
| 2340e0 | 75 4f 2f 5b 21 3c 3c 27 21 57 72 32 6c 38 45 5a 50 30 5b 21 30 37 27 5a 57 6c 47 2b 3e 69 75 4f | uO/[!<<'!Wr2l8EZP0[!07'ZWlG+>iuO |
| 234100 | 2f 23 2a 54 51 30 3f 3c 51 3e 2a 3e 73 32 53 2e 39 72 73 4a 68 2c 73 38 52 2a 5b 6a 2f 4e 2b 3e | /#*TQ0?<Q>*>s2S.9rsJh,s8R*[j/N+> |
| 234120 | 21 33 35 6b 70 21 4e 48 2e 74 0a 73 38 51 28 38 72 72 42 29 21 33 45 3f 29 22 45 72 56 2e 22 72 | !35kp!NH.t.s8Q(8rrB)!3E?)"ErV."r |
| 234140 | 75 47 2c 3e 61 29 5e 34 3f 73 32 50 2c 3e 70 41 5d 58 7e 3e 0a 70 5c 75 2e 50 3c 57 45 2a 3e 33 | uG,>a)^4?s2P,>pA]X~>.p\u.P<WE*>3 |
| 234160 | 3c 38 28 5b 57 72 4b 28 21 72 72 42 29 21 3c 3f 39 2a 5b 57 72 4c 2b 3e 57 57 3c 22 74 73 26 42 | <8([WrK(!rrB)!<?9*[WrL+>WW<"ts&B |
| 234180 | 3d 28 2a 45 45 2c 3e 33 4e 3c 29 53 73 38 51 28 32 73 2f 4c 2b 3e 3c 45 39 28 21 6a 38 55 2d 22 | =(*EE,>3N<)Ss8Q(2s/L+><E9(!j8U-" |
| 2341a0 | 0a 57 57 3c 28 5a 2a 48 4d 29 58 28 72 72 57 56 45 69 54 2f 3e 21 3c 3c 27 21 57 72 48 28 21 73 | .WW<(Z*HM)X(rrWVEiT/>!<<'!WrH(!s |
| 2341c0 | 38 52 2a 5b 6a 38 59 2e 22 3c 45 39 25 75 25 60 5c 52 69 73 23 46 2a 22 21 33 36 27 5a 57 72 4b | 8R*[j8Y."<E9%u%`\Ris#F*"!36'ZWrK |
| 2341e0 | 28 21 72 72 33 45 2d 57 6c 47 2b 3e 0a 69 75 4f 2f 5b 21 3c 3c 27 21 57 72 32 6c 38 45 5a 50 30 | (!rr3E-WlG+>.iuO/[!<<'!Wr2l8EZP0 |
| 234200 | 5b 21 30 37 27 5a 57 6c 47 2b 3e 69 75 4f 2f 23 2a 54 51 30 3f 3c 51 3e 2a 3e 73 32 53 2e 39 72 | [!07'ZWlG+>iuO/#*TQ0?<Q>*>s2S.9r |
| 234220 | 73 4a 68 2c 73 38 52 2a 5b 6a 2f 4e 2b 3e 21 33 35 6b 70 21 4e 48 2e 74 0a 73 38 51 28 38 72 72 | sJh,s8R*[j/N+>!35kp!NH.t.s8Q(8rr |
| 234240 | 42 29 21 33 45 3f 29 22 45 72 56 2e 22 72 75 47 2c 3e 61 29 5e 34 3f 73 32 50 2c 3e 70 41 5d 58 | B)!3E?)"ErV."ruG,>a)^4?s2P,>pA]X |
| 234260 | 7e 3e 0a 70 5c 75 2e 50 3c 57 45 2a 3e 33 3c 38 28 5b 57 72 4b 28 21 72 72 42 29 21 3c 3f 39 2a | ~>.p\u.P<WE*>3<8([WrK(!rrB)!<?9* |
| 234280 | 5b 57 72 4c 2b 3e 57 57 3c 22 74 73 26 42 3d 28 2a 45 45 2c 3e 33 4e 3c 29 53 73 38 51 28 32 73 | [WrL+>WW<"ts&B=(*EE,>3N<)Ss8Q(2s |
| 2342a0 | 2f 4c 2b 3e 3c 45 39 28 21 6a 38 55 2d 22 0a 57 57 3c 28 5a 2a 48 4d 29 58 28 72 72 57 56 45 69 | /L+><E9(!j8U-".WW<(Z*HM)X(rrWVEi |
| 2342c0 | 54 2f 3e 21 3c 3c 27 21 57 72 48 28 21 73 38 52 2a 5b 6a 38 59 2e 22 3c 45 39 25 75 25 60 5c 52 | T/>!<<'!WrH(!s8R*[j8Y."<E9%u%`\R |
| 2342e0 | 69 73 23 46 2a 22 21 33 36 27 5a 57 72 4b 28 21 72 72 33 45 2d 57 6c 47 2b 3e 0a 69 75 4f 2f 5b | is#F*"!36'ZWrK(!rr3E-WlG+>.iuO/[ |
| 234300 | 21 3c 3c 27 21 57 72 32 6c 38 45 5a 50 30 5b 21 30 37 27 5a 57 6c 47 2b 3e 69 75 4f 2f 23 2a 54 | !<<'!Wr2l8EZP0[!07'ZWlG+>iuO/#*T |
| 234320 | 51 30 3f 3c 51 3e 2a 3e 73 32 53 2e 39 72 73 4a 68 2c 73 38 52 2a 5b 6a 2f 4e 2b 3e 21 33 35 6b | Q0?<Q>*>s2S.9rsJh,s8R*[j/N+>!35k |
| 234340 | 70 21 4e 48 2e 74 0a 73 38 51 28 38 72 72 42 29 21 33 45 3f 29 22 45 72 56 2e 22 72 75 47 2c 3e | p!NH.t.s8Q(8rrB)!3E?)"ErV."ruG,> |
| 234360 | 61 29 5e 34 3f 73 32 50 2c 3e 70 41 5d 58 7e 3e 0a 70 5c 74 35 6e 72 3b 5a 70 3f 57 72 49 2c 3c | a)^4?s2P,>pA]X~>.p\t5nr;Zp?WrI,< |
| 234380 | 21 21 2a 26 74 21 21 39 32 23 3c 57 32 74 22 3c 4e 36 26 74 73 38 51 28 22 73 2f 51 25 75 21 6c | !!*&t!!92#<W2t"<N6&ts8Q("s/Q%u!l |
| 2343a0 | 71 3b 40 71 23 3a 3d 6f 72 57 21 2a 42 57 60 3c 28 21 2a 57 3f 27 3d 57 72 3b 75 21 0a 2a 54 52 | q;@q#:=orW!*BW`<(!*W?'=Wr;u!.*TR |
| 2343c0 | 28 74 21 24 32 22 3c 25 45 47 49 4b 73 38 4e 29 21 73 26 45 29 21 73 35 50 2e 21 21 21 39 30 23 | (t!$2"<%EGIKs8N)!s&E)!s5P.!!!90# |
| 2343e0 | 3c 57 32 70 74 33 57 2f 70 59 73 26 4b 24 75 22 30 32 43 24 21 3c 33 21 2d 21 33 36 27 21 21 21 | <W2pt3W/pYs&K$u"02C$!<3!-!36'!!! |
| 234400 | 22 26 3e 57 57 3c 29 21 0a 21 33 35 74 73 73 26 42 52 2f 57 57 3b 29 5a 3c 48 41 2b 3e 21 21 22 | "&>WW<)!.!35tss&BR/WW;)Z<HA+>!!" |
| 234420 | 26 3e 69 75 53 2b 21 21 60 66 38 23 72 56 75 70 75 71 59 70 70 27 57 72 4e 2b 5a 2a 3c 36 28 5b | &>iuS+!!`f8#rVupuqYpp'WrN+Z*<6([ |
| 234440 | 72 72 42 28 70 72 72 4d 2d 5b 72 44 61 33 62 45 63 56 30 5b 0a 57 72 48 28 21 73 2c 52 24 58 73 | rrB(prrM-[rDa3bEcV0[.WrH(!s,R$Xs |
| 234460 | 2f 51 25 75 21 45 49 32 3e 21 21 2b 2c 23 70 41 5d 58 7e 3e 0a 70 5c 74 35 6e 72 3b 5a 70 3f 57 | /Q%u!EI2>!!+,#pA]X~>.p\t5nr;Zp?W |
| 234480 | 72 49 2c 3c 21 21 2a 26 74 21 21 39 32 23 3c 57 32 74 22 3c 4e 36 26 74 73 38 51 28 22 73 2f 51 | rI,<!!*&t!!92#<W2t"<N6&ts8Q("s/Q |
| 2344a0 | 25 75 21 6c 71 3b 40 71 23 3a 3d 6f 72 57 21 2a 42 57 60 3c 28 21 2a 57 3f 27 3d 57 72 3b 75 21 | %u!lq;@q#:=orW!*BW`<(!*W?'=Wr;u! |
| 2344c0 | 0a 2a 54 52 28 74 21 24 32 22 3c 25 45 47 49 4b 73 38 4e 29 21 73 26 45 29 21 73 35 50 2e 21 21 | .*TR(t!$2"<%EGIKs8N)!s&E)!s5P.!! |
| 2344e0 | 21 39 30 23 3c 57 32 70 74 33 57 2f 70 59 73 26 4b 24 75 22 30 32 43 24 21 3c 33 21 2d 21 33 36 | !90#<W2pt3W/pYs&K$u"02C$!<3!-!36 |
| 234500 | 27 21 21 21 22 26 3e 57 57 3c 29 21 0a 21 33 35 74 73 73 26 42 52 2f 57 57 3b 29 5a 3c 48 41 2b | '!!!"&>WW<)!.!35tss&BR/WW;)Z<HA+ |
| 234520 | 3e 21 21 22 26 3e 69 75 53 2b 21 21 60 66 38 23 72 56 75 70 75 71 59 70 70 27 57 72 4e 2b 5a 2a | >!!"&>iuS+!!`f8#rVupuqYpp'WrN+Z* |
| 234540 | 3c 36 28 5b 72 72 42 28 70 72 72 4d 2d 5b 72 44 61 33 62 45 63 56 30 5b 0a 57 72 48 28 21 73 2c | <6([rrB(prrM-[rDa3bEcV0[.WrH(!s, |
| 234560 | 52 24 58 73 2f 51 25 75 21 45 49 32 3e 21 21 2b 2c 23 70 41 5d 58 7e 3e 0a 70 5c 74 35 6e 72 3b | R$Xs/Q%u!EI2>!!+,#pA]X~>.p\t5nr; |
| 234580 | 5a 70 3f 57 72 49 2c 3c 21 21 2a 26 74 21 21 39 32 23 3c 57 32 74 22 3c 4e 36 26 74 73 38 51 28 | Zp?WrI,<!!*&t!!92#<W2t"<N6&ts8Q( |
| 2345a0 | 22 73 2f 51 25 75 21 6c 71 3b 40 71 23 3a 3d 6f 72 57 21 2a 42 57 60 3c 28 21 2a 57 3f 27 3d 57 | "s/Q%u!lq;@q#:=orW!*BW`<(!*W?'=W |
| 2345c0 | 72 3b 75 21 0a 2a 54 52 28 74 21 24 32 22 3c 25 45 47 49 4b 73 38 4e 29 21 73 26 45 29 21 73 35 | r;u!.*TR(t!$2"<%EGIKs8N)!s&E)!s5 |
| 2345e0 | 50 2e 21 21 21 39 30 23 3c 57 32 70 74 33 57 2f 70 59 73 26 4b 24 75 22 30 32 43 24 21 3c 33 21 | P.!!!90#<W2pt3W/pYs&K$u"02C$!<3! |
| 234600 | 2d 21 33 36 27 21 21 21 22 26 3e 57 57 3c 29 21 0a 21 33 35 74 73 73 26 42 52 2f 57 57 3b 29 5a | -!36'!!!"&>WW<)!.!35tss&BR/WW;)Z |
| 234620 | 3c 48 41 2b 3e 21 21 22 26 3e 69 75 53 2b 21 21 60 66 38 23 72 56 75 70 75 71 59 70 70 27 57 72 | <HA+>!!"&>iuS+!!`f8#rVupuqYpp'Wr |
| 234640 | 4e 2b 5a 2a 3c 36 28 5b 72 72 42 28 70 72 72 4d 2d 5b 72 44 61 33 62 45 63 56 30 5b 0a 57 72 48 | N+Z*<6([rrB(prrM-[rDa3bEcV0[.WrH |
| 234660 | 28 21 73 2c 52 24 58 73 2f 51 25 75 21 45 49 32 3e 21 21 2b 2c 23 70 41 5d 58 7e 3e 0a 70 41 59 | (!s,R$Xs/Q%u!EI2>!!+,#pA]X~>.pAY |
| 234680 | 36 54 57 69 46 2c 3c 72 73 36 5a 46 61 32 65 32 5b 45 69 53 31 21 72 72 70 48 43 61 38 63 31 5b | 6TWiF,<rs6ZFa2e2[EiS1!rrpHCa8c1[ |
| 2346a0 | 72 56 75 6f 58 73 38 4e 38 5f 57 6f 4f 2d 5a 61 38 23 5a 48 6a 2f 54 2d 3e 73 38 56 2d 3e 73 38 | rVuoXs8N8_WoO-Za8#ZHj/T->s8V->s8 |
| 2346c0 | 54 2b 21 6a 38 5a 2b 5a 0a 57 69 47 5b 6a 23 4b 51 6c 45 61 38 63 32 22 6a 38 4b 23 58 57 57 56 | T+!j8Z+Z.WiG[j#KQlEa8c2"j8K#XWWV |
| 2346e0 | 3b 5d 6a 35 5e 28 3b 73 2f 48 3b 27 61 38 63 31 5b 57 6f 4f 2a 59 21 36 3e 2a 3d 21 36 3e 2a 3d | ;]j5^(;s/H;'a8c1[WoO*Y!6>*=!6>*= |
| 234700 | 21 51 56 35 3e 72 72 5e 3d 41 73 32 59 24 3a 73 35 58 2e 5a 0a 23 66 6c 75 46 57 69 48 2b 21 61 | !QV5>rr^=As2Y$:s5X.Z.#fluFWiH+!a |
| 234720 | 2f 5d 2b 3c 73 2f 51 2b 5a 73 38 4e 2f 40 57 6c 4f 72 38 21 3f 4b 35 5a 72 72 66 40 42 73 38 55 | /]+<s/Q+Zs8N/@WlOr8!?K5Zrrf@Bs8U |
| 234740 | 2e 36 72 72 43 2b 3c 3c 3c 32 28 59 72 74 4b 4d 36 73 35 57 2f 3e 73 32 56 2f 22 61 38 63 32 22 | .6rrC+<<<2(YrtKM6s5W/>s2V/"a8c2" |
| 234760 | 0a 57 6c 50 2f 3e 6a 2f 54 2d 4f 73 2a 74 7e 3e 0a 70 41 59 36 54 57 69 46 2c 3c 72 73 36 5a 46 | .WlP/>j/T-Os*t~>.pAY6TWiF,<rs6ZF |
| 234780 | 61 32 65 32 5b 45 69 53 31 21 72 72 70 48 43 61 38 63 31 5b 72 56 75 6f 58 73 38 4e 38 5f 57 6f | a2e2[EiS1!rrpHCa8c1[rVuoXs8N8_Wo |
| 2347a0 | 4f 2d 5a 61 38 23 5a 48 6a 2f 54 2d 3e 73 38 56 2d 3e 73 38 54 2b 21 6a 38 5a 2b 5a 0a 57 69 47 | O-Za8#ZHj/T->s8V->s8T+!j8Z+Z.WiG |
| 2347c0 | 5b 6a 23 4b 51 6c 45 61 38 63 32 22 6a 38 4b 23 58 57 57 56 3b 5d 6a 35 5e 28 3b 73 2f 48 3b 27 | [j#KQlEa8c2"j8K#XWWV;]j5^(;s/H;' |
| 2347e0 | 61 38 63 31 5b 57 6f 4f 2a 59 21 36 3e 2a 3d 21 36 3e 2a 3d 21 51 56 35 3e 72 72 5e 3d 41 73 32 | a8c1[WoO*Y!6>*=!6>*=!QV5>rr^=As2 |
| 234800 | 59 24 3a 73 35 58 2e 5a 0a 23 66 6c 75 46 57 69 48 2b 21 61 2f 5d 2b 3c 73 2f 51 2b 5a 73 38 4e | Y$:s5X.Z.#fluFWiH+!a/]+<s/Q+Zs8N |
| 234820 | 2f 40 57 6c 4f 72 38 21 3f 4b 35 5a 72 72 66 40 42 73 38 55 2e 36 72 72 43 2b 3c 3c 3c 32 28 59 | /@WlOr8!?K5Zrrf@Bs8U.6rrC+<<<2(Y |
| 234840 | 72 74 4b 4d 36 73 35 57 2f 3e 73 32 56 2f 22 61 38 63 32 22 0a 57 6c 50 2f 3e 6a 2f 54 2d 4f 73 | rtKM6s5W/>s2V/"a8c2".WlP/>j/T-Os |
| 234860 | 2a 74 7e 3e 0a 70 41 59 36 54 57 69 46 2c 3c 72 73 36 5a 46 61 32 65 32 5b 45 69 53 31 21 72 72 | *t~>.pAY6TWiF,<rs6ZFa2e2[EiS1!rr |
| 234880 | 70 48 43 61 38 63 31 5b 72 56 75 6f 58 73 38 4e 38 5f 57 6f 4f 2d 5a 61 38 23 5a 48 6a 2f 54 2d | pHCa8c1[rVuoXs8N8_WoO-Za8#ZHj/T- |
| 2348a0 | 3e 73 38 56 2d 3e 73 38 54 2b 21 6a 38 5a 2b 5a 0a 57 69 47 5b 6a 23 4b 51 6c 45 61 38 63 32 22 | >s8V->s8T+!j8Z+Z.WiG[j#KQlEa8c2" |
| 2348c0 | 6a 38 4b 23 58 57 57 56 3b 5d 6a 35 5e 28 3b 73 2f 48 3b 27 61 38 63 31 5b 57 6f 4f 2a 59 21 36 | j8K#XWWV;]j5^(;s/H;'a8c1[WoO*Y!6 |
| 2348e0 | 3e 2a 3d 21 36 3e 2a 3d 21 51 56 35 3e 72 72 5e 3d 41 73 32 59 24 3a 73 35 58 2e 5a 0a 23 66 6c | >*=!6>*=!QV5>rr^=As2Y$:s5X.Z.#fl |
| 234900 | 75 46 57 69 48 2b 21 61 2f 5d 2b 3c 73 2f 51 2b 5a 73 38 4e 2f 40 57 6c 4f 72 38 21 3f 4b 35 5a | uFWiH+!a/]+<s/Q+Zs8N/@WlOr8!?K5Z |
| 234920 | 72 72 66 40 42 73 38 55 2e 36 72 72 43 2b 3c 3c 3c 32 28 59 72 74 4b 4d 36 73 35 57 2f 3e 73 32 | rrf@Bs8U.6rrC+<<<2(YrtKM6s5W/>s2 |
| 234940 | 56 2f 22 61 38 63 32 22 0a 57 6c 50 2f 3e 6a 2f 54 2d 4f 73 2a 74 7e 3e 0a 6c 32 4c 62 61 57 6d | V/"a8c2".WlP/>j/T-Os*t~>.l2LbaWm |
| 234960 | 55 68 49 57 57 37 56 4d 65 63 31 2e 7e 3e 0a 6c 32 4c 62 61 57 6d 55 68 49 57 57 37 56 4d 65 63 | UhIWW7VMec1.~>.l2LbaWmUhIWW7VMec |
| 234980 | 31 2e 7e 3e 0a 6c 32 4c 62 61 57 6d 55 68 49 57 57 37 56 4d 65 63 31 2e 7e 3e 0a 6c 32 4c 63 29 | 1.~>.l2LbaWmUhIWW7VMec1.~>.l2Lc) |
| 2349a0 | 61 33 6a 6e 66 60 75 54 61 32 65 63 31 2e 7e 3e 0a 6c 32 4c 63 29 61 33 6a 6e 66 60 75 54 61 32 | a3jnf`uTa2ec1.~>.l2Lc)a3jnf`uTa2 |
| 2349c0 | 65 63 31 2e 7e 3e 0a 6c 32 4c 63 29 61 33 6a 6e 66 60 75 54 61 32 65 63 31 2e 7e 3e 0a 4a 63 43 | ec1.~>.l2Lc)a3jnf`uTa2ec1.~>.JcC |
| 2349e0 | 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c | T,J,~>.JcCT,J,~>.JcCT,J,~>.JcCT, |
| 234a00 | 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c | J,~>.JcCT,J,~>.JcCT,J,~>.JcCT,J, |
| 234a20 | 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e | ~>.JcCT,J,~>.JcCT,J,~>.JcCT,J,~> |
| 234a40 | 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a | .JcCT,J,~>.JcCT,J,~>.JcCT,J,~>.J |
| 234a60 | 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 4a 63 43 | cCT,J,~>.JcCT,J,~>.JcCT,J,~>.JcC |
| 234a80 | 54 2c 4a 2c 7e 3e 0a 4a 63 43 54 2c 4a 2c 7e 3e 0a 25 25 45 6e 64 44 61 74 61 0a 73 68 6f 77 70 | T,J,~>.JcCT,J,~>.%%EndData.showp |
| 234aa0 | 61 67 65 0a 25 25 54 72 61 69 6c 65 72 0a 65 6e 64 0a 25 25 45 4f 46 0a 00 00 00 00 00 00 00 00 | age.%%Trailer.end.%%EOF......... |
| 234ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234c00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 64 6f 63 2f 73 6c 69 6d 65 2d 72 65 66 63 61 72 64 2e 70 64 66 | slime-2.31/doc/slime-refcard.pdf |
| 234c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234c60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 234c80 | 30 31 32 31 35 36 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 31 37 36 00 20 30 00 00 00 | 0121565.00000000000.015176..0... |
| 234ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 234d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 234d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 234e00 | 25 50 44 46 2d 31 2e 34 0a 33 20 30 20 6f 62 6a 20 3c 3c 0a 2f 4c 65 6e 67 74 68 20 32 35 37 30 | %PDF-1.4.3.0.obj.<<./Length.2570 |
| 234e20 | 20 20 20 20 20 20 0a 2f 46 69 6c 74 65 72 20 2f 46 6c 61 74 65 44 65 63 6f 64 65 0a 3e 3e 0a 73 | ......./Filter./FlateDecode.>>.s |
| 234e40 | 74 72 65 61 6d 0a 78 da b5 5a 4d 73 e3 b8 11 bd cf af f0 29 25 a5 86 58 82 04 09 32 95 4a 55 32 | tream.x..ZMs.......)%..X...2.JU2 |
| 234e60 | f1 6e 39 b5 4a 6d 66 7d cb ec 81 92 68 49 65 4a d4 90 94 3d 9a 43 7e 7b ba 01 34 44 4a 4d c9 de | .n9.Jmf}....hIeJ...=.C~{..4DJM.. |
| 234e80 | 54 2e 36 45 91 dd 0f 8d fe 78 dd d0 df 1e 3f fc f0 a3 4c ee a4 16 91 4c d4 dd e3 d3 9d cc 95 50 | T.6E.....x....?...L....L.......P |
| 234ea0 | 2a d3 77 3a d1 22 8f 55 7a f7 b8 fc f7 e4 d7 9f 1f a6 72 32 bb 9f 06 71 18 4f fe 05 d7 87 cd 62 | *.w:.".Uz.........r2...q.O.....b |
| 234ec0 | 1a a5 93 67 bc 13 4d 3e 97 d3 40 4e 9e e0 be b9 68 ca dd 02 ff 97 f6 db 4f 70 bf 68 96 d3 df 1e | ...g..M>..@N....h.......Op.h.... |
| 234ee0 | ff 01 ea f4 9d 94 22 4f 92 08 d5 05 32 8a ac be 40 49 91 26 da ea fb c9 88 e9 3a fc bb d9 ad 40 | ......"O....2...@I.&......:....@ |
| 234f00 | 8c 4e 27 eb b2 da e3 55 32 d9 e0 fd 9d bd be df e2 87 62 d1 3a f1 e9 5d 2e f2 34 4a 51 7a 08 f2 | .N'....U2.........b.:..]..4JQz.. |
| 234f20 | 71 15 51 66 a4 7e 0a d6 ee a1 ac f7 10 00 88 b4 4e e0 61 7c e6 cf 8c 18 b0 48 a2 94 7b e0 79 1a | q.Qf.~..........N.a|.....H..{.y. |
| 234f40 | 47 93 f2 c8 08 02 55 61 94 c6 ee b9 bf d8 27 fa 0f c4 4a 84 32 77 df 2f cb d6 d8 a8 d9 80 75 e6 | G.....Ua......'...J.2w./......u. |
| 234f60 | d3 20 ca 8c b9 e2 78 f2 74 d8 c1 2d f3 65 07 17 9b 7a 67 ef e3 43 7a 52 1f 76 4b fb 19 bf ac 1d | ......x.t..-.e...zg..CzR.vK..... |
| 234f80 | 8e bc 8f 23 0a 85 4a c1 be 83 15 0d 80 88 4c c7 a7 05 a1 ea 23 27 48 89 34 d5 67 0b 1a 58 26 88 | ...#..J.......L.....#'H.4.g..X&. |
| 234fa0 | 64 2a 74 16 4b 30 b4 d9 54 e9 0d 1d c4 19 42 be d4 9d 8b 34 4f c8 0a d5 a6 ed dc 6a d6 6e f9 66 | d*t.K0..T.....B....4O......j.n.f |
| 234fc0 | e1 07 58 5b 03 6e 84 d8 dc 03 16 27 7e 79 84 2f 03 bc 98 a3 79 c0 1c c6 49 5a 67 bd ba 21 81 d6 | ..X[.n.....'~y./....y...IZg..!.. |
| 234fe0 | 1d e3 58 c1 4d 63 e0 c5 c1 78 c9 5d 40 20 02 ef 8a 80 65 8e 4a bf 84 32 b6 3e 3c e2 4f bd 17 fc | ..X.Mc...x.]@.....e.J..2.><.O... |
| 235000 | 32 b7 97 cb 94 49 26 92 2c 4e 6f ee b6 71 5f 0b 6f 69 00 33 56 f6 c2 78 2b 57 97 ea 75 2e 54 2e | 2....I&.,No..q_.oi.3V..x+W..u.T. |
| 235020 | c9 05 da 75 8d c6 7b 6d ad 35 bc a9 7b 26 75 d6 3b e2 9d fa 60 3f ac 0b fc f4 32 25 b0 6a b2 c7 | ...u..{m.5..{&u.;...`?....2%.j.. |
| 235040 | 6d 31 2f b4 ad f9 b7 64 e2 20 20 e5 03 63 fd cf 81 a5 ae f8 61 06 21 ec 1d 9a 31 47 1e 8b 50 7b | m1/....d.....c......a.!...1G..P{ |
| 235060 | 09 af eb c2 f9 54 db 15 4d e7 ac f2 ba e9 d6 4c 10 e8 44 28 09 70 fe 3f c1 34 4c 86 a7 68 8a 62 | .....T..M......L..D(.p.?.4L..h.b |
| 235080 | 91 cb 30 36 cf fe d2 d4 68 ea 55 53 18 5f d9 da ec b7 e2 fd d3 be a8 ac 83 d4 db 7d 55 da 24 0a | ..06....h.US._.............}U.$. |
| 2350a0 | 49 04 3d 1f 3d 58 89 5c c5 b9 79 62 16 74 c5 fc 23 7a 91 32 59 da 44 d5 c2 7a d5 a7 c0 28 fa 48 | I.=.=X.\..yb.t..#z.2Y.D..z...(.H |
| 2350c0 | 9f 66 f0 f9 d2 cd 95 16 99 cc 68 f9 8b da 40 44 37 a9 4a 4a 60 ce 77 5a 0a dd ed 14 d2 98 4b 66 | .f........h...@D7.JJ`.wZ......Kf |
| 2350e0 | 15 eb ee 24 f4 2c da 3c b0 96 8f b7 38 8d a2 37 00 c1 0c 21 29 66 2f 03 cd 48 e1 35 f3 26 88 a4 | ...$.,.<....8..7...!)f/..H.5.&.. |
| 235100 | c8 42 45 1e f2 84 59 e4 3b aa fc 7e ec 25 34 d8 8a 13 16 17 7e d6 22 5b 74 99 ab e6 20 05 ae 98 | .BE...Y.;..~.%4.....~."[t....... |
| 235120 | 69 0b aa aa db 83 0d c7 fe c6 aa 73 5b 7d 65 10 c7 a1 88 c3 50 93 ad 40 12 55 6b 40 b5 2f 20 ef | i..........s[}e.....P..@.Uk@./.. |
| 235140 | ba 74 60 e3 04 e3 de c0 db b8 7c cc 81 24 99 67 29 ea 37 6e ab 52 91 ca 2c f3 ea 8d 81 2a ac 66 | .t`.......|..$.g).7n.R..,....*.f |
| 235160 | 27 1c 6a 52 e0 9d ca f9 4e f9 6d cf ef 97 13 35 a8 f3 0f bb 25 54 0e c8 26 5d d1 19 1f e6 9d bf | '.jR....N.m....5....%T..&]...... |
| 235180 | b7 ad 9c 91 80 ff 24 31 f9 53 53 6e b0 28 2f 07 15 69 59 62 a9 66 61 d9 77 cf bc 88 d7 a3 43 88 | ......$1.SSn.(/..iYb.fa.w.....C. |
| 2351a0 | 79 4d d6 60 d4 58 a3 8c 18 80 de 1e 18 e0 ef 90 30 60 f9 8b c3 d6 db e1 4a 12 68 91 55 61 d8 5f | yM.`.X..........0`......J.h.Ua._ |
| 2351c0 | 60 4b 63 20 12 3a ef 43 b3 60 1a 07 ad e8 21 44 ff 2e 2c ed fb e8 ec b3 69 f7 95 a9 21 2e 12 8a | `Kc..:.C.`....!D..,.....i...!... |
| 2351e0 | 66 75 30 a1 87 0f f5 97 68 68 00 b3 3c 02 30 96 08 96 f6 62 c9 6d 9f 14 20 f9 66 f9 3d 8b c1 6c | fu0.....hh..<.0....b.m....f.=..l |
| 235200 | 2c 06 9d b8 33 ef f6 40 9e b8 d4 98 0a e5 83 ec 5d 74 8f cd 89 56 da 0d 4b 14 0c 8e 30 17 32 4b | ,...3..@........]t...V..K...0.2K |
| 235220 | 28 45 17 7b cc 7e f5 de 2e b6 ed bb 58 d1 2c 30 35 23 ab 00 a7 f1 44 aa 29 57 26 6d 7d 9b e2 26 | (E.{.~......X.,05#....D.)W&m}..& |
| 235240 | 73 d8 48 c3 0d 70 df 2f c1 65 99 c8 33 bf 4d 2c b6 57 e3 ba 70 bf 5b db 1b 2e 0b 95 0d da ad a8 | s.H..p./.e..3.M,.W..p.[......... |
| 235260 | c6 f7 11 bd 95 81 4b 3a c7 f6 d2 a1 dd 73 89 13 0a 53 94 5d 43 bb d9 51 16 5d 20 96 e7 69 92 4e | ......K:.....s...S.]C..Q.]...i.N |
| 235280 | 8a 15 cf ea 9c b4 1b 56 5b 73 ae a5 84 06 8a ef 80 ac 4d 88 d9 1c 5d 36 ad 05 54 2e 6c ea ac 2c | .......V[s........M...]6..T.l.., |
| 2352a0 | b7 ac 9f b1 69 e3 b7 8f a4 8d 03 b9 cc 0c 99 00 3e 4a ec 96 2a 2a 36 62 1d 15 3d 50 ba 2e 9a 62 | ....i...........>J..**6b..=P...b |
| 2352c0 | 01 1b e5 e8 64 1f a6 a5 d8 92 52 87 bf 47 a8 a7 44 8a eb e7 c3 98 df 11 88 61 5d 34 9b d2 b6 16 | ....d.....R..G..D........a]4.... |
| 2352e0 | 3c 7e 28 9f 6c ce a2 ee d4 87 db 8d ca f9 6a 2f 16 5c c9 cf c1 62 fa 9c 5e 3b 7a 81 86 3e 85 b4 | <~(.l.........j/.\...b..^;z..>.. |
| 235300 | 6b df 22 fb b1 a8 2a df 24 b7 7c b1 77 a2 c7 36 e3 95 16 76 c9 f9 81 61 46 61 c2 82 f2 8b 1f f4 | k."...*.$.|.w..6...v...aFa...... |
| 235320 | e8 25 35 04 b5 dd a1 55 55 cf 29 a0 5e 8c e7 36 9b 62 6e 79 0b 83 95 14 8e 05 d2 eb 68 13 a8 81 | .%5....UU.).^..6.bny........h... |
| 235340 | 8f 4b 9f 92 86 50 b9 a6 ae 7e ea d5 1b 05 38 71 8f df 05 d5 29 bc 61 55 86 58 02 c3 c8 92 38 63 | .K...P...~....8q....).aU.X....8c |
| 235360 | a1 16 6d 4b c9 69 b5 db 3a e7 32 55 cd 38 76 df b4 1e 79 3d ef 65 2d 40 9e 00 72 5c 6b 31 af c6 | ..mK.i..:.2U.8v...y=.e-@..r\k1.. |
| 235380 | da 3f 82 70 03 3c d3 85 e6 b9 48 a2 11 3f 05 46 51 f8 8a 8e 4b a8 77 0e f3 c0 da 20 d7 56 f5 a6 | .?.p.<....H..?.FQ...K.w......V.. |
| 2353a0 | 37 6e 18 c0 23 25 17 6e 60 9e 8d c2 fe ac 45 8a 30 54 c9 78 33 95 6b 21 65 9e 5e 4c 07 5c f0 78 | 7n..#%.n`.....E.0T.x3.k!e.^L.\.x |
| 2353c0 | 0a dd 9c 2c 7c 86 d6 f0 ef dd a2 1b ab a3 32 13 32 52 f2 d2 98 b7 d0 32 03 9d 3c 15 49 ee 7d 63 | ...,|.........2.2R.....2..<.I.}c |
| 2353e0 | 1c 6d f9 3b a1 02 8b 84 4a 35 cc 6f 3f 42 6c d8 91 18 12 9f f2 4b 28 d5 6e 43 99 a6 65 32 da 2c | .m.;....J5.o?Bl......K(.nC..e2., |
| 235400 | 10 1c 3d 82 34 a3 63 5a 5b b9 dc 78 4e 6b 24 a2 47 8e e2 a2 77 07 26 9c 05 ae 8f 34 b4 01 59 35 | ..=.4.cZ[..xNk$.G...w.&....4..Y5 |
| 235420 | f5 93 7f e4 0a a9 02 82 ec 7b 26 d7 5e ec 79 08 d4 a9 1b 72 f2 cc 57 52 27 ee cc 05 bf 59 24 ca | .........{&.^.y....r..WR'....Y$. |
| 235440 | fe 63 cc 90 25 10 59 69 74 d3 0a 26 81 53 69 af bb 35 95 b4 57 9b a8 5c 58 71 5c c3 29 38 f3 36 | .c..%.Yit..&.Si..5..W..\Xq\.)8.6 |
| 235460 | 07 2c 19 05 96 2b 01 1d 95 fe dd c0 9e 30 40 ec bc 80 4b 29 32 06 36 99 41 87 9d a8 18 6e 86 d6 | .,...+.......0@...K)2.6.A....n.. |
| 235480 | 60 b3 62 61 83 dc ec a3 c9 0f 2d 6a 72 2d 94 ad 86 f5 d6 d6 79 b3 f0 f6 6a 5f f5 29 d8 0e 5d e2 | `.ba......-jr-......y...j_.)..]. |
| 2354a0 | 7c c4 f0 19 af ef e1 e6 23 e7 a1 4a 44 52 4a 67 82 41 12 0a 68 6c 65 28 a9 85 12 48 de 57 9d 94 | |.......#..JDRJg.A..hle(...H.W.. |
| 2354c0 | b1 dc c9 8d ee 54 26 52 ed bd e2 b6 66 2c ea 2c af 72 72 c6 ea 63 c7 54 9b 04 f6 dd 77 5c 5d bd | .....T&R....f,.,.rr..c.T....w\]. |
| 2354e0 | 5a 55 ae 4d e8 80 4a d9 b8 ef d5 c3 c1 8c b3 97 4d 7a cd 7b 3c 71 04 15 53 fc 78 ff 4e 8a 87 7d | ZU.M..J.........Mz.{<q..S.x.N..} |
| 235500 | e4 a6 c5 12 07 2a b6 53 e8 10 e7 d5 f1 46 1f cd 30 c5 0c 32 3a 94 5e 6a 83 36 54 71 5c ed 2c dd | .....*.S.....F..0..2:.^j.6Tq\.,. |
| 235520 | 34 c8 a6 ca 6b fc c9 e7 3a 77 93 1b a0 91 b2 b3 31 98 19 9b ed 8d 1f 57 d4 0a db 62 7d e5 cc 40 | 4...k...:w......1......W...b}..@ |
| 235540 | 9f 6f 17 47 04 d3 50 84 49 18 5f 4e 9d 36 b4 9c 65 9f 79 8d 8c 0b 48 ca 98 93 1e b9 b1 41 26 62 | .o.G..P.I._N.6..e.y...H......A&b |
| 235560 | e9 87 fc 0b f4 41 3f 94 98 f2 4b 0b fc 4b 63 8a 9e f9 61 11 ec b4 bc b2 44 43 23 dc a1 44 55 17 | .....A?...K..Kc...a.....DC#..DU. |
| 235580 | ee 0a 77 6b 94 8f 79 a9 7c 6c cc 58 24 1a 7a f0 3c d5 57 90 5c d7 49 ef 8f ad 9e 19 1c cb 2c 15 | ..wk..y.|l.X$.z.<.W.\.I.......,. |
| 2355a0 | f1 a9 8b 7f eb ea e8 ad 31 4d 4c 27 0c b4 07 ba 99 9c 42 bf 3d b5 bd a7 a6 3c f6 74 b2 3e 74 b8 | ........1ML'......B.=....<.t.>t. |
| 2355c0 | f0 43 47 47 43 70 7d f5 e8 22 f0 f2 07 16 9f 05 3b ce d0 b9 50 51 44 5b be 2b bf 39 35 bb ba 1b | .CGGCp}.."......;...PQD[.+.95... |
| 2355e0 | 3d a2 a0 77 ce 48 01 d7 45 a7 91 90 99 3f 9c d8 fb de e4 c5 8c 3f 0e 8e 2c a1 53 d5 1d af 8c 24 | =..w.H..E....?.......?..,.S....$ |
| 235600 | 8c 8d 69 d9 50 8d 45 a6 a4 f6 03 bd 6d 8d 76 3d 9d 6e 98 e5 95 2d 7f 4a 49 2f 0f 06 f3 f7 2f d3 | ..i.P.E.....m.v=.n...-.JI/..../. |
| 235620 | 34 02 9e 77 18 8c 19 6f 9d 41 ce a0 fa 33 26 07 8f f1 43 c0 d2 f6 05 14 d1 6f c8 20 ee 75 9e ff | 4..w...o.A...3&...C......o...u.. |
| 235640 | 7c 0a 4a 2e ae a1 ab c8 b4 64 55 56 05 51 d9 53 b1 6b 4a 93 b0 db 31 56 48 f2 c6 7c 9e f1 04 08 | |.J......dUV.Q.S.kJ...1VH..|.... |
| 235660 | c8 48 a9 98 85 f0 07 2a 5e 74 e2 84 ae d7 e1 96 1d 7b df e0 2c 28 9f 74 a7 a1 41 d1 da 67 df 07 | .H.....*^t.......{..,(.t..A..g.. |
| 235680 | 9e 80 8c 61 6f b8 1d 03 97 48 72 cd 82 f7 2e bd 1a b3 16 bd cd ef d8 8c db b1 54 8b 54 f9 99 cb | ...ao....Hr...............T.T... |
| 2356a0 | fb 36 cc 9e e3 70 33 59 c8 24 f8 f0 81 9f bf 3a 95 bc 5d fe c4 b3 36 0d af 9c 46 c6 ae 1d b6 89 | .6...p3Y.$.....:..]...6...F..... |
| 2356c0 | a9 00 7a d2 8f 38 17 f6 d8 be 57 63 f4 cd 88 e3 01 dc df ac 8b 27 e6 ec b4 1c ca b7 14 c6 0b aa | ..z..8....Wc.........'.......... |
| 2356e0 | 76 e0 68 22 50 a6 d0 9f f7 1f ec e0 9e e8 39 43 ca d8 c4 42 42 06 8c e5 af 73 33 91 47 da 0c be | v.h"P.........9C...BB....s3.G... |
| 235700 | fc 03 fe fd 5c 2e 6a e4 60 2f f8 a7 6c ec 59 da 7b d8 cb 9c 2b 39 91 48 54 ff e8 61 b0 59 8d 9d | ....\.j.`/..l.Y.{...+9.HT..a.Y.. |
| 235720 | 18 4a 0a af 2f c0 51 fc 09 00 fd 08 e1 57 b8 f3 f0 d3 c3 3f 1f f1 2e 3c c1 b3 70 52 c4 6f e3 7f | .J../.Q......W.....?...<..pR.o.. |
| 235740 | 58 1e 9c 64 a1 9f ba 1c 77 6e 2e 88 e8 d6 ce b6 8b 43 e3 93 43 3f 0d b8 83 08 d3 2c ba e9 eb 05 | X..d....wn.......C..C?.....,.... |
| 235760 | 4d 79 c5 af cd d4 f2 79 63 8f 52 0d 05 36 3a 07 3e 60 08 6b 53 5a 2e 6a 5e 38 be e5 87 01 be 12 | My.....yc.R..6:.>`.kSZ.j^8...... |
| 235780 | ed f9 e9 61 a4 53 bf b8 b2 97 b1 4e 63 e3 84 80 9f 66 ca 9f ef 7f 01 fd 3f 8f fc 8e c6 09 1d 54 | ...a.S.....Nc....f......?......T |
| 2357a0 | a8 87 9d 3b dc 29 17 86 f6 d6 cd 5b 2a 94 03 ff c0 79 4c 08 2d 4d 9e 5d 9c 08 f5 27 b8 1d 31 a4 | ...;.).....[*....yL.-M.]...'..1. |
| 2357c0 | 24 34 6d 28 f2 34 b4 ff 76 63 c8 fb dc 12 95 66 dc 59 9c 8e 81 49 9b b2 e3 3b 35 a0 34 d4 5c d4 | $4m(.4..vc.....f.Y...I...;5.4.\. |
| 2357e0 | 67 b3 e5 a2 73 3b 4f 1d d1 1b 8e 31 49 e2 d0 09 38 62 98 00 df d1 ea da f1 0e cb 0c dd 6b 83 c5 | g...s;O....1I...8b...........k.. |
| 235800 | 31 c4 33 0a 95 80 1d b9 98 90 70 bf c1 a1 47 07 32 77 9c 4c 29 92 54 aa 3e af 63 e5 b9 c7 06 36 | 1.3.......p...G.2w.L).T.>.c....6 |
| 235820 | f8 ca c9 8b 05 50 3e c2 f8 f5 60 c6 12 bc 48 f7 e4 19 3b e4 77 55 e3 4f d0 7c f0 2f 60 d5 a7 72 | .....P>...`...H...;.wU.O.|./`..r |
| 235840 | b5 b4 b3 16 b3 ba 0f f7 8f 1f fe 0b 53 8f 3e d3 65 6e 64 73 74 72 65 61 6d 0a 65 6e 64 6f 62 6a | ............S.>.endstream.endobj |
| 235860 | 0a 32 20 30 20 6f 62 6a 20 3c 3c 0a 2f 54 79 70 65 20 2f 50 61 67 65 0a 2f 43 6f 6e 74 65 6e 74 | .2.0.obj.<<./Type./Page./Content |
| 235880 | 73 20 33 20 30 20 52 0a 2f 52 65 73 6f 75 72 63 65 73 20 31 20 30 20 52 0a 2f 4d 65 64 69 61 42 | s.3.0.R./Resources.1.0.R./MediaB |
| 2358a0 | 6f 78 20 5b 30 20 30 20 35 39 35 2e 32 37 35 36 20 38 34 31 2e 38 38 39 38 5d 0a 2f 50 61 72 65 | ox.[0.0.595.2756.841.8898]./Pare |
| 2358c0 | 6e 74 20 32 31 20 30 20 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 31 20 30 20 6f 62 6a 20 3c 3c 0a 2f | nt.21.0.R.>>.endobj.1.0.obj.<<./ |
| 2358e0 | 46 6f 6e 74 20 3c 3c 20 2f 46 31 35 20 36 20 30 20 52 20 2f 46 31 37 20 39 20 30 20 52 20 2f 46 | Font.<<./F15.6.0.R./F17.9.0.R./F |
| 235900 | 31 36 20 31 32 20 30 20 52 20 2f 46 31 38 20 31 33 20 30 20 52 20 2f 46 38 20 31 36 20 30 20 52 | 16.12.0.R./F18.13.0.R./F8.16.0.R |
| 235920 | 20 2f 46 31 39 20 31 37 20 30 20 52 20 2f 46 32 30 20 32 30 20 30 20 52 20 3e 3e 0a 2f 50 72 6f | ./F19.17.0.R./F20.20.0.R.>>./Pro |
| 235940 | 63 53 65 74 20 5b 20 2f 50 44 46 20 2f 54 65 78 74 20 5d 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 31 39 | cSet.[./PDF./Text.].>>.endobj.19 |
| 235960 | 20 30 20 6f 62 6a 20 3c 3c 0a 2f 4c 65 6e 67 74 68 31 20 37 37 32 0a 2f 4c 65 6e 67 74 68 32 20 | .0.obj.<<./Length1.772./Length2. |
| 235980 | 31 31 33 35 0a 2f 4c 65 6e 67 74 68 33 20 35 33 32 0a 2f 4c 65 6e 67 74 68 20 31 36 39 38 20 20 | 1135./Length3.532./Length.1698.. |
| 2359a0 | 20 20 20 20 0a 2f 46 69 6c 74 65 72 20 2f 46 6c 61 74 65 44 65 63 6f 64 65 0a 3e 3e 0a 73 74 72 | ...../Filter./FlateDecode.>>.str |
| 2359c0 | 65 61 6d 0a 78 da ed 52 6b 54 53 57 1a 05 ca a3 04 18 41 ec f0 a8 43 8f 52 24 81 21 2f 08 48 18 | eam.x..RkTSW......A...C.R$.!/.H. |
| 2359e0 | 94 67 28 2f a5 06 01 25 3c 42 ee 4d b8 90 dc 1b 6f 6e 48 78 ca 12 a8 82 a8 58 0a 0a c5 82 16 a4 | .g(/...%<B.M....onHx.....X...... |
| 235a00 | 28 50 ca 84 76 d5 71 90 82 02 83 06 04 ad c2 30 56 06 0a e5 31 0c 53 2d 22 28 76 2e 30 ae ae d1 | (P..v.q........0V...1.S-"(v.0... |
| 235a20 | 9f 33 bf 66 cd 3d 7f ee de 67 9f ef db 67 9f cf 61 5b 04 df c5 17 c2 92 60 1e 86 12 2e 2c 3a 8b | .3.f.=...g...g..a[......`....,:. |
| 235a40 | 0b fc c3 c3 83 fd 58 4c 40 02 26 93 e2 e0 e0 8f c3 42 02 c1 d0 00 21 01 73 01 cb d3 d3 1d 84 28 | ......XL@.&......B....!.s......( |
| 235a60 | a5 80 ed 0a 98 1e 5c 8e 1b 77 4d 04 fc 31 79 3a 8e 48 92 09 40 f5 a7 ad 89 3c 80 af 0c c6 11 91 | ......\..wM..1y:.H..@....<...... |
| 235a80 | 10 05 e1 42 22 19 96 91 35 44 42 29 e0 63 22 04 26 d2 e9 c0 57 2a 05 fb d6 4e 28 c0 3e 58 01 e3 | ...B"...5DB).c".&...W*...N(.>X.. |
| 235aa0 | 69 30 44 a7 b0 58 00 42 44 04 48 82 25 08 4a 61 ac 99 0a 46 c5 18 f0 d8 a0 21 a5 fc e5 56 1a 8c | i0D..X.BD.H.%.Ja...F.....!...V.. |
| 235ac0 | 2b 48 53 80 ba 6e 93 06 48 93 10 86 4a d3 01 04 8b 29 8c 3d 18 d9 0d 26 bd fc 37 6c bd 5a 9c a7 | +HS..n..H...J....).=...&..7l.Z.. |
| 235ae0 | 94 4a f7 08 65 6b e5 37 a2 7a 4d 20 94 21 d2 f4 7f 49 30 99 5c 49 c0 38 08 c7 20 18 47 5f 95 46 | .J..ek.7.zM..!...I0.\I.8....G_.F |
| 235b00 | c3 1b ee fc 30 e9 6b 7d 82 09 a1 14 11 f9 a2 12 29 0c 5c 58 6e 74 a6 db 06 8f 28 78 88 1a 86 22 | ....0.k}........).\Xnt....(x..." |
| 235b20 | 10 42 94 0c c4 42 a9 02 5e e7 61 14 7a d5 07 19 df ba 0b c6 81 c0 b0 e8 b0 20 e7 97 4f bb be 1b | .B...B..^.a.z...............O... |
| 235b40 | 21 44 50 22 32 5d 0e 03 e6 2f f2 75 cc fa 05 93 21 e1 88 1a c4 32 e9 4c 26 8b 14 92 eb e5 5f dc | !DP"2].../.u....!....2.L&....._. |
| 235b60 | 2b dd 02 51 11 06 21 a8 04 b0 39 ee 40 88 e3 c2 74 0a 39 44 24 e2 80 4c 16 40 50 08 56 03 58 4d | +..Q..!...9.@...t.9D$..L.@P.V.XM |
| 235b80 | 5a 66 d0 51 8c 20 8f 00 32 98 6c 20 c6 70 ca da bb ba 33 01 43 0a 2b 14 6b ec 06 c1 06 0c c9 da | Zf.Q....2.l..p....3.C.+.k....... |
| 235ba0 | ec 91 e1 ad 71 af df cd cf 0f 53 67 ba b0 38 c0 85 cd 21 5b b1 59 ee c0 83 c3 cc fe 37 a1 48 89 | ....q.....Sg..8...![.Y......7.H. |
| 235bc0 | e3 30 4a ac 8f 0f 99 d0 4b 2c 46 c8 50 61 58 0d 8b 28 23 f7 30 91 57 7e ca 99 2f 3f 68 c8 09 fc | .0J.....K,F.PaX..(#.0.W~../?h... |
| 235be0 | f4 f6 25 03 9a 62 6b 45 7d fe ad f6 02 4d 85 17 7d ee 3b af cd 77 f1 af 06 22 61 bb 47 16 05 16 | ..%..bkE}....M..}.;..w..."a.G... |
| 235c00 | 29 c8 65 f3 f2 f9 d0 26 06 24 e6 8c d9 7c e9 9b d5 93 c9 67 14 0c 5b f4 98 6d a1 9d af e4 1b 2d | ).e....&.$...|.....g..[..m.....- |
| 235c20 | 88 e6 04 f1 7a bd d5 dd 9d 9b 64 e7 0a 7f 18 79 e7 7b f9 57 ce 0b 7f b6 5f 7c 98 d6 6e f0 79 d8 | ....z.....d....y.{.W...._|..n.y. |
| 235c40 | 0c cb e3 82 cd 7c 91 7e c3 fd 7b ab 8f 73 52 0f 6b c7 46 4c ce 42 f6 93 e5 94 b8 ea 3f 84 95 c1 | .....|.~..{..sR.k.FL.B......?... |
| 235c60 | 51 d3 0f 4b 6e ae fc 2d 08 fb 14 1b a9 eb b5 12 54 2e 5a be 18 b1 e9 7c 30 94 fa 17 b3 0a cf e3 | Q..Kn..-........T.Z....|0....... |
| 235c80 | d5 e1 3a a1 79 32 b7 e9 62 87 27 fd 8a 63 bc de f1 c9 4a e7 81 90 81 dc 0b 32 f5 51 7a a9 7f 0d | ..:.y2..b.'..c....J......2.Qz... |
| 235ca0 | 3f b3 eb 8f aa b7 1e 3b 69 cb 4e 1c 6c 1e 86 af fd 95 e6 58 c8 31 e4 b2 3a 45 e1 e3 cb 46 39 94 | ?......;i.N.l......X.1..:E...F9. |
| 235cc0 | 4b cd ad ef f2 52 55 25 e5 c3 13 3f 53 36 37 bd 1f fd 24 d1 7b de f6 c8 e3 f7 2d 0f 6c 71 b5 b0 | K....RU%...?S67...$.{.....-.lq.. |
| 235ce0 | 2a c9 bd 61 4e 98 f8 6c 2d 35 2d 77 dc 34 78 79 d7 cd 81 85 b8 c9 dd d3 bc 2b cd 65 47 4e 44 97 | *..aN..l-5-w.4xy.........+.eGND. |
| 235d00 | 7c b8 c3 67 a1 e8 eb fb fd ed 69 c8 8b 1a 67 fc 69 32 7e 67 58 19 62 7d 3e a9 ca a7 be c3 b4 0c | |..g......i...g.i2~gX.b}>....... |
| 235d20 | db 62 d2 ed 9a 14 74 24 bd 0b 9d e0 8b 8a ef 8c 07 17 e2 46 0d 81 fa 01 3a e2 e2 93 72 10 33 b7 | .b....t$...........F....:...r.3. |
| 235d40 | 44 0d fb f8 61 1e 65 77 4f 55 ce 8c ce ad 30 77 68 39 2d c3 1e 57 f6 4f 48 7e 1d 50 9f 60 87 c8 | D...a.ewOU....0wh9-..W.OH~.P.`.. |
| 235d60 | 1a 0c 35 dd c9 f2 d1 e9 c3 b1 21 56 08 e8 50 37 b5 bf bb 28 30 f6 b6 d6 8e bf 9d 70 75 6b 4a d1 | ..5.......!V..P7...(0......pukJ. |
| 235d80 | 17 27 0d e6 db 97 07 bf f9 e6 f8 2e 91 ea 8a 53 72 41 fa dd a5 37 97 eb 06 f6 46 dd 98 f8 c4 71 | .'.............SrA...7....F....q |
| 235da0 | 87 39 7a c6 72 6a a7 2a 3e 11 82 b4 92 3d 71 9d 82 99 8b e5 17 63 0c 7b 67 86 0c 35 db c6 79 3f | .9z.rj.*>....=q......c.{g..5..y? |
| 235dc0 | e6 5a 36 76 f7 b4 9e 8d 6d f0 7a 3b 5b 15 78 ab 35 d6 b8 ec 70 c4 e6 e2 36 fb ba 83 7d 29 19 4e | .Z6v....m.z;[.x.5...p...6...}).N |
| 235de0 | ba a5 75 ee 93 25 34 bb 91 6f 55 6d 8e 7d b7 3d e8 06 d7 fa ac 69 2f 06 c5 2e 86 5b 42 12 56 92 | ..u..%4..oUm.}.=.....i/....[B.V. |
| 235e00 | 8a 63 32 f6 d6 c4 5a 55 db e6 78 d9 6b 54 f0 6a 47 a4 a3 ad d9 b5 2a 67 cd 4f aa 77 72 07 97 2e | .c2...ZU..x.kT.jG.....*g.O.wr... |
| 235e20 | 8d e8 bd 97 dc 65 d6 24 58 a2 8e 3a 1d 1a 96 f1 5b a6 88 0a b4 58 77 69 e1 4c ab c3 85 63 f8 d3 | .....e.$X..:....[....Xwi.L...c.. |
| 235e40 | a6 a0 7d b5 e2 31 75 67 0b 98 cb 63 d8 67 7d dd 26 b2 6b 1d 9a 1f d5 91 9f db 09 f5 71 a5 bb 7e | ..}..1ug...c.g}.&.k.........q..~ |
| 235e60 | cc 2d 98 9d bd aa 6b 57 cd f9 53 7b 68 9c 49 62 9e f0 31 ad 4d 1d de b8 3f fa a2 de cc 44 a7 7e | .-....kW..S{h.Ib..1.M...?....D.~ |
| 235e80 | c9 b9 fc d1 b3 a7 4c 2e 9f de 73 54 9b 2c c8 ae 13 c4 9b 54 eb a6 59 ef 7d ee d9 26 3f ea 75 cd | ......L...sT.,.....T..Y.}..&?.u. |
| 235ea0 | 2d c5 ec 37 13 1f b9 d4 44 ba 7d 54 09 f7 43 c3 57 5a 6a 4e 5f df 74 f8 a7 8c bd 37 b2 34 7e 7a | -..7....D.}T..C.WZjN_.t....7.4~z |
| 235ec0 | db 7a 7e 3f 77 bc d0 3c a0 ed 99 9e a3 4e f5 a6 44 ea 9d 47 05 81 53 de 17 8b f4 67 4a bf ad 2d | .z~?w..<.....N..D..G..S....gJ..- |
| 235ee0 | fa 87 6e 65 e0 27 fd 0b 40 12 91 3f ac a5 bb a5 b8 ee 88 0a a1 b0 eb 66 4f 2d f3 95 c6 3f d7 6b | ..ne.'..@..?...........fO-...?.k |
| 235f00 | bd 77 f2 4f 0f 3c 72 cd 33 5d 95 f6 1b 3f 75 8e d7 bb a0 99 ac a8 1d 9c 85 22 ae e7 f8 54 ff fd | .w.O.<r.3]...?u.........."...T.. |
| 235f20 | ba 6d 60 da 95 08 7e dd f9 84 76 f1 52 fd 03 f6 a9 0e fd df c5 97 fb 26 bd 79 62 25 cb df e8 b4 | .m`...~...v.R..........&.yb%.... |
| 235f40 | 60 c0 c8 33 28 13 59 9c ce 98 1a d7 7f ef 94 f9 c1 cd bd 61 8b db 13 7b 71 aa bc ab 2a 41 b6 f2 | `..3(.Y............a...{q...*A.. |
| 235f60 | e0 b9 fd 81 67 dd 71 82 df 4e 16 7c 68 2f 2c 65 86 2a 4b 82 8f 65 78 47 fd a0 21 c6 38 59 33 8d | ....g.q..N.|h/,e.*K..exG..!.8Y3. |
| 235f80 | 32 45 e6 ec c0 21 83 be de 18 fe 3d ef 4e b3 3c d6 77 fb 1b 73 cd 4c e5 cf 17 a8 01 36 f3 09 c5 | 2E...!.....=.N.<.w..s.L.....6... |
| 235fa0 | c1 db 1e b5 84 1c 5a 84 a9 4f 4c 79 bc c6 2e 03 e5 83 8e 48 c6 49 db cb dc a1 84 42 4d 23 43 e2 | ......Z..OLy.......H.I.....BM#C. |
| 235fc0 | d5 b6 9f fb 45 6c ee 74 4b d6 4d 03 4b 5a a9 15 ad 79 f8 b6 46 47 40 79 36 ca a5 a8 3e 77 b4 9e | ....El.tK.M.KZ...y..FG@y6...>w.. |
| 235fe0 | 58 fa 78 eb 55 cc c8 e3 d2 dd fc e8 ef 77 76 ae e2 27 ef 2e fe aa be b6 cd 69 7b b3 a9 77 04 75 | X.x.U........wv..'.......i{..w.u |
| 236000 | 95 be 3b 84 a7 b5 b0 aa dc ae 35 fe 80 ad d9 61 76 76 ac 2a 32 a6 2e f5 44 9b 57 83 b3 d1 d4 50 | ..;.......5....avv.*2...D.W....P |
| 236020 | e8 bd 03 31 6f 7c 16 06 8b 71 a2 56 95 8d d2 7d 6c 8c de aa 79 76 34 e8 10 97 1d 75 3f 62 79 d2 | ...1o|...q.V...}l...yv4....u?by. |
| 236040 | ed 5c ea 4a 3f 9d b8 91 67 35 cd 4e 61 fe 87 1f e5 ff 05 fe 27 0a 88 a4 b0 10 27 30 99 10 4f a5 | .\.J?...g5.Na.......'.....'0..O. |
| 236060 | fc 13 82 27 87 ee 65 6e 64 73 74 72 65 61 6d 0a 65 6e 64 6f 62 6a 0a 32 30 20 30 20 6f 62 6a 20 | ...'..endstream.endobj.20.0.obj. |
| 236080 | 3c 3c 0a 2f 54 79 70 65 20 2f 46 6f 6e 74 0a 2f 53 75 62 74 79 70 65 20 2f 54 79 70 65 31 0a 2f | <<./Type./Font./Subtype./Type1./ |
| 2360a0 | 45 6e 63 6f 64 69 6e 67 20 32 32 20 30 20 52 0a 2f 46 69 72 73 74 43 68 61 72 20 36 30 0a 2f 4c | Encoding.22.0.R./FirstChar.60./L |
| 2360c0 | 61 73 74 43 68 61 72 20 36 32 0a 2f 57 69 64 74 68 73 20 32 33 20 30 20 52 0a 2f 42 61 73 65 46 | astChar.62./Widths.23.0.R./BaseF |
| 2360e0 | 6f 6e 74 20 2f 59 45 4c 57 4c 47 2b 43 4d 4d 49 42 31 30 0a 2f 46 6f 6e 74 44 65 73 63 72 69 70 | ont./YELWLG+CMMIB10./FontDescrip |
| 236100 | 74 6f 72 20 31 38 20 30 20 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 31 38 20 30 20 6f 62 6a 20 3c 3c | tor.18.0.R.>>.endobj.18.0.obj.<< |
| 236120 | 0a 2f 41 73 63 65 6e 74 20 36 39 34 0a 2f 43 61 70 48 65 69 67 68 74 20 36 38 36 0a 2f 44 65 73 | ./Ascent.694./CapHeight.686./Des |
| 236140 | 63 65 6e 74 20 2d 31 39 34 0a 2f 46 6f 6e 74 4e 61 6d 65 20 2f 59 45 4c 57 4c 47 2b 43 4d 4d 49 | cent.-194./FontName./YELWLG+CMMI |
| 236160 | 42 31 30 0a 2f 49 74 61 6c 69 63 41 6e 67 6c 65 20 2d 31 34 2e 30 34 0a 2f 53 74 65 6d 56 20 31 | B10./ItalicAngle.-14.04./StemV.1 |
| 236180 | 31 33 0a 2f 58 48 65 69 67 68 74 20 34 34 34 0a 2f 46 6f 6e 74 42 42 6f 78 20 5b 2d 31 35 20 2d | 13./XHeight.444./FontBBox.[-15.- |
| 2361a0 | 32 35 30 20 31 32 31 36 20 37 35 30 5d 0a 2f 46 6c 61 67 73 20 34 0a 2f 43 68 61 72 53 65 74 20 | 250.1216.750]./Flags.4./CharSet. |
| 2361c0 | 28 2f 6c 65 73 73 2f 67 72 65 61 74 65 72 29 0a 2f 46 6f 6e 74 46 69 6c 65 20 31 39 20 30 20 52 | (/less/greater)./FontFile.19.0.R |
| 2361e0 | 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 32 33 20 30 20 6f 62 6a 0a 5b 38 39 34 20 30 20 38 39 34 20 5d | .>>.endobj.23.0.obj.[894.0.894.] |
| 236200 | 0a 65 6e 64 6f 62 6a 0a 32 32 20 30 20 6f 62 6a 20 3c 3c 0a 2f 54 79 70 65 20 2f 45 6e 63 6f 64 | .endobj.22.0.obj.<<./Type./Encod |
| 236220 | 69 6e 67 0a 2f 44 69 66 66 65 72 65 6e 63 65 73 20 5b 20 30 20 2f 2e 6e 6f 74 64 65 66 20 36 30 | ing./Differences.[.0./.notdef.60 |
| 236240 | 2f 6c 65 73 73 20 36 31 2f 2e 6e 6f 74 64 65 66 20 36 32 2f 67 72 65 61 74 65 72 20 36 33 2f 2e | /less.61/.notdef.62/greater.63/. |
| 236260 | 6e 6f 74 64 65 66 5d 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 32 34 20 30 20 6f 62 6a 20 3c 3c 0a 2f 4c | notdef].>>.endobj.24.0.obj.<<./L |
| 236280 | 65 6e 67 74 68 20 31 38 30 20 20 20 20 20 20 20 0a 2f 46 69 6c 74 65 72 20 2f 46 6c 61 74 65 44 | ength.180......../Filter./FlateD |
| 2362a0 | 65 63 6f 64 65 0a 3e 3e 0a 73 74 72 65 61 6d 0a 78 da 6d 8d 31 0a c2 40 10 45 7f b0 10 a6 c9 0d | ecode.>>.stream.x.m.1..@.E...... |
| 2362c0 | 74 2e a0 9b 5d 41 13 08 16 31 82 5b 08 5a 59 88 95 5a 5a 28 0a 29 2c 3c 5a 8e e2 11 2c 2d dd ec | t...]A...1.[.ZY..ZZ(.),<Z...,-.. |
| 2362e0 | 24 16 51 78 d5 9f 79 ff 8f cc d0 4c 38 e2 98 07 26 62 13 f3 d8 f0 41 d3 99 74 e2 52 97 9b fa b4 | $.Qx..y....L8...&b....A..t.R.... |
| 236300 | 3f 51 66 49 6d 58 27 a4 16 2e 27 65 97 7c bd dc 8e a4 b2 d5 8c 35 a9 9c b7 9a a3 1d d9 9c 81 12 | ?QfImX'...'e.|.......5.......... |
| 236320 | c1 13 1d a1 44 57 78 20 f4 f4 51 d1 03 a6 9e bb a7 00 de 15 c1 cb f3 63 8b 1a a2 b6 45 4d db 76 | ....DWx...Q............c....EM.v |
| 236340 | 4d d1 e4 69 f3 29 96 d3 a5 47 3a 5d b9 ac b8 39 d9 6d fb 22 f7 be be c8 ff 7c 94 34 b7 b4 a6 0f | M..i.)...G:]...9.m.".....|.4.... |
| 236360 | 55 9b 42 61 65 6e 64 73 74 72 65 61 6d 0a 65 6e 64 6f 62 6a 0a 32 35 20 30 20 6f 62 6a 20 3c 3c | U.Baendstream.endobj.25.0.obj.<< |
| 236380 | 0a 2f 4c 65 6e 67 74 68 20 31 38 32 20 20 20 20 20 20 20 0a 2f 46 69 6c 74 65 72 20 2f 46 6c 61 | ./Length.182......../Filter./Fla |
| 2363a0 | 74 65 44 65 63 6f 64 65 0a 3e 3e 0a 73 74 72 65 61 6d 0a 78 da 33 36 d2 33 32 57 30 50 30 51 d0 | teDecode.>>.stream.x.36.32W0P0Q. |
| 2363c0 | 35 32 50 30 32 51 30 33 52 48 31 e4 2a e4 32 b4 04 8a 1a 28 58 18 41 a5 92 73 b9 9c 3c b9 f4 c3 | 52P02Q03RH1.*.2....(X.A..s..<... |
| 2363e0 | 15 0c 2d b9 f4 3d 80 e2 5c fa 9e be 0a 25 45 a5 a9 5c fa 4e 01 ce 0a 86 5c fa 2e 0a d1 86 0a 06 | ..-..=..\....%E..\.N....\....... |
| 236400 | b1 5c 9e 2e 0a 09 0c 0c 1f 18 18 7e 80 51 05 03 43 0d 18 d9 30 30 d8 81 91 3c 18 f1 03 51 03 08 | .\.........~.Q..C...00...<...Q.. |
| 236420 | b1 1f 00 21 66 20 7a 00 42 8c 1f 40 08 8b 7e 88 66 39 b8 7e 88 66 0c fd 50 74 00 2a ce de 00 55 | ...!f.z.B..@..~.f9.~.f..Pt.*...U |
| 236440 | 09 d1 25 07 33 07 62 66 05 cc 96 0f 50 7b d1 74 43 b4 f2 c3 ec 84 68 b5 c1 a2 9b 01 e8 65 2e 57 | ..%.3.bf....P{.tC.....h......e.W |
| 236460 | 4f ae 40 2e 00 09 b7 41 d1 65 6e 64 73 74 72 65 61 6d 0a 65 6e 64 6f 62 6a 0a 31 37 20 30 20 6f | O.@....A.endstream.endobj.17.0.o |
| 236480 | 62 6a 20 3c 3c 0a 2f 54 79 70 65 20 2f 46 6f 6e 74 0a 2f 53 75 62 74 79 70 65 20 2f 54 79 70 65 | bj.<<./Type./Font./Subtype./Type |
| 2364a0 | 33 0a 2f 4e 61 6d 65 20 2f 46 31 39 0a 2f 46 6f 6e 74 4d 61 74 72 69 78 20 5b 30 2e 30 31 32 30 | 3./Name./F19./FontMatrix.[0.0120 |
| 2364c0 | 35 20 30 20 30 20 30 2e 30 31 32 30 35 20 30 20 30 5d 0a 2f 46 6f 6e 74 42 42 6f 78 20 5b 20 34 | 5.0.0.0.01205.0.0]./FontBBox.[.4 |
| 2364e0 | 20 2d 32 30 20 32 38 20 36 32 20 5d 0a 2f 52 65 73 6f 75 72 63 65 73 20 3c 3c 20 2f 50 72 6f 63 | .-20.28.62.]./Resources.<<./Proc |
| 236500 | 53 65 74 20 5b 20 2f 50 44 46 20 2f 49 6d 61 67 65 42 20 5d 20 3e 3e 0a 2f 46 69 72 73 74 43 68 | Set.[./PDF./ImageB.].>>./FirstCh |
| 236520 | 61 72 20 36 30 0a 2f 4c 61 73 74 43 68 61 72 20 36 32 0a 2f 57 69 64 74 68 73 20 32 36 20 30 20 | ar.60./LastChar.62./Widths.26.0. |
| 236540 | 52 0a 2f 45 6e 63 6f 64 69 6e 67 20 32 37 20 30 20 52 0a 2f 43 68 61 72 50 72 6f 63 73 20 32 38 | R./Encoding.27.0.R./CharProcs.28 |
| 236560 | 20 30 20 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 32 36 20 30 20 6f 62 6a 0a 5b 33 32 2e 32 37 20 30 | .0.R.>>.endobj.26.0.obj.[32.27.0 |
| 236580 | 20 33 32 2e 32 37 20 5d 0a 65 6e 64 6f 62 6a 0a 32 37 20 30 20 6f 62 6a 20 3c 3c 0a 2f 54 79 70 | .32.27.].endobj.27.0.obj.<<./Typ |
| 2365a0 | 65 20 2f 45 6e 63 6f 64 69 6e 67 0a 2f 44 69 66 66 65 72 65 6e 63 65 73 20 5b 36 30 2f 61 36 30 | e./Encoding./Differences.[60/a60 |
| 2365c0 | 20 36 31 2f 2e 6e 6f 74 64 65 66 20 36 32 2f 61 36 32 5d 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 32 38 | .61/.notdef.62/a62].>>.endobj.28 |
| 2365e0 | 20 30 20 6f 62 6a 20 3c 3c 0a 2f 61 36 30 20 32 34 20 30 20 52 0a 2f 61 36 32 20 32 35 20 30 20 | .0.obj.<<./a60.24.0.R./a62.25.0. |
| 236600 | 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 31 35 20 30 20 6f 62 6a 20 3c 3c 0a 2f 4c 65 6e 67 74 68 31 | R.>>.endobj.15.0.obj.<<./Length1 |
| 236620 | 20 31 33 37 35 0a 2f 4c 65 6e 67 74 68 32 20 38 38 35 33 0a 2f 4c 65 6e 67 74 68 33 20 35 33 32 | .1375./Length2.8853./Length3.532 |
| 236640 | 0a 2f 4c 65 6e 67 74 68 20 39 36 38 35 20 20 20 20 20 20 0a 2f 46 69 6c 74 65 72 20 2f 46 6c 61 | ./Length.9685......./Filter./Fla |
| 236660 | 74 65 44 65 63 6f 64 65 0a 3e 3e 0a 73 74 72 65 61 6d 0a 78 da ed 97 65 54 5c db b6 a0 71 4d 70 | teDecode.>>.stream.x...eT\...qMp |
| 236680 | 82 43 41 70 2d 3c 48 b0 10 dc 25 b8 14 50 38 14 ee ee ee 16 08 ee ee 0e c1 21 b8 07 0d ee 12 1c | .CAp-<H...%..P8..........!...... |
| 2366a0 | 12 b4 eb 9c fb de 3d e9 fb 7e 76 ff ea d1 55 35 6a ec 6f ae b9 e7 fa f6 5c 6b ef 51 45 43 a9 a4 | ......=..~v...U5j.o.....\k.QEC.. |
| 2366c0 | ca 22 6a 02 31 02 4b 40 6c 9d 58 d8 59 d9 f9 01 1f e4 55 d8 81 00 76 56 20 50 0c 8d 86 e6 83 03 | ."j.1.K@l.X.Y.....U...vV.P...... |
| 2366e0 | 18 e4 64 01 b1 15 07 39 81 f9 01 ec 7c 7c 1c 00 09 b0 11 f4 00 fa e1 e7 e6 e2 e7 e6 40 a3 01 7c | ..d....9....||..............@..| |
| 236700 | 80 d8 b9 3b 58 98 99 3b 01 e8 3f 30 fc 95 c4 0b 10 b5 01 3b 58 18 83 6c 01 f2 20 27 73 b0 0d b4 | ...;X..;..?0.......;X..l...'s... |
| 236720 | 86 31 c8 1a a0 0a 31 b6 00 3b b9 b3 02 44 ad ad 01 2a 7f 9d e1 08 50 01 3b 82 1d 5c c0 26 ac 68 | .1....1..;...D...*....P.;..\.&.h |
| 236740 | ec ec 00 13 0b 63 27 80 11 d8 cc c2 16 8d ed 2f 25 69 5b 53 08 80 f7 5f 61 13 67 bb ff 1e 72 01 | .....c'......../%i[S..._a.g...r. |
| 236760 | 3b 38 42 a5 00 f4 7f 6b 32 00 a0 92 26 10 5b 6b 77 80 09 d8 14 8d 4d 01 02 9d 0d 0c 75 f9 bf a1 | ;8B....k2...&.[kw.....M.....u... |
| 236780 | f5 9f c5 25 9c ad ad 15 40 36 7f 95 ff ab 51 ff 63 18 64 63 61 ed fe 5f 09 10 1b 3b 67 27 b0 03 | ...%....@6....Q.c.dca.._...;g'.. |
| 2367a0 | 40 1e 62 02 76 b0 fd cf 54 0d f0 bf dc e4 c1 26 16 ce 36 ff 39 2a ed 04 b2 b6 30 16 b5 35 b3 06 | @.b.v...T......&..6.9*....0..5.. |
| 2367c0 | 03 80 ff 0a 59 38 4a 58 b8 81 4d 94 2c 9c 8c cd 01 a6 20 6b 47 f0 df 71 b0 ad c9 7f 4a 40 3b f7 | ....Y8JX..M.,......kG..q....J@;. |
| 2367e0 | b7 02 9b 94 ac ba 84 ac 2a d3 bf d6 f4 ef 31 25 90 85 ad 93 9a bb dd bf ab fe 95 fc 37 b3 ff c3 | ........*.....1%............7... |
| 236800 | d0 ee 38 58 b8 01 74 80 d0 f6 b2 43 13 a1 ef ff 3e d2 fb 8f b9 3e da 1a 43 4c 2c 6c cd 00 1c dc | ..8X..t....C....>....>..CL,l.... |
| 236820 | 3c 00 90 83 03 c8 1d 0d ba 7b a0 c4 0d f0 64 07 58 d8 9a 80 dd 00 60 37 a8 30 1b ab 2d c4 09 7a | <........{....d.X.....`7.0..-..z |
| 236840 | 0a 00 da 13 6f 80 29 c4 01 ed af 05 85 ae 39 9b e9 df b1 7f 21 07 14 2d fe 8d 9c ef 00 6c 20 1b | ....o.).......9.....!..-.....l.. |
| 236860 | 3b e8 6a 83 a0 17 f9 df 51 2e 20 80 cd 0e e4 00 b6 b5 06 9b 3a fd 13 65 ff af e8 bf 96 fc df 61 | ;.j.....Q...........:..e.......a |
| 236880 | 2e 00 9b 31 c4 c6 06 f4 4f 84 1b c0 66 ee 6e 67 0e b6 fd 27 c4 07 60 83 d8 82 ff cd 3c 50 fe f8 | ...1....O...f.ng...'..`.....<P.. |
| 2368a0 | 6f e2 85 56 96 fc 87 38 01 6c d2 ff 10 0f 80 4d ee 1f 82 fa 2a fc 9b de 41 3d 95 fe 21 e8 a5 a9 | o..V...8.l.....M....*...A=..!... |
| 2368c0 | fc 43 d0 2a aa ff 10 54 52 ed df 04 dd a7 6c ff e8 f2 41 6b 1a fd 43 50 33 e3 7f da 05 84 4e 61 | .C.*...TR.....l...Ak..CP3.....Na |
| 2368e0 | f2 07 42 4d c1 7f e0 5f dd fc 03 a1 73 9a fd 81 d0 49 cd ff 40 68 5b 2c fe 40 a8 84 d5 1f 08 b5 | ..BM..._....s....I..@h[,.@...... |
| 236900 | b0 fe 03 a1 1a 36 ff 20 74 73 b1 d9 fe 81 50 0d c8 1f 08 d5 b0 fb 03 a1 1a f6 7f 20 54 c3 e1 0f | .....6..ts....P.............T... |
| 236920 | 84 6a 38 fe 81 d0 fe 3a fd 81 50 2b e7 3f 10 6a e5 f2 07 42 ad 5c ff d8 4b 50 2b b7 3f 10 6a e5 | .j8....:..P+.?.j...B.\..KP+.?.j. |
| 236940 | fe 07 42 ad 3c fe c6 ff 79 f3 88 89 41 dc 3c 59 38 b8 d9 01 d0 2f e0 5f 6d e6 03 f0 f1 f0 79 ff | ..B.<...y...A.<Y8..../._m.....y. |
| 236960 | 6f 99 c6 ce 0e d0 dd e6 f4 f7 b3 09 7a 0f fe 37 9b 5a 40 ef 58 30 d8 0d 6c 8c b6 f4 1d 62 2c 10 | o...........z..7.Z@.X0..l....b,. |
| 236980 | 64 99 da 14 52 ea f3 31 7f aa 0c 91 11 56 cc ac 39 4e a1 be 7b b6 13 3d 70 31 1e d6 ba 68 44 d6 | d...R..1.....V..9N..{..=p1...hD. |
| 2369a0 | 9e 71 ad 4e f3 be 3c 1d 17 63 0f 71 8f c2 f5 91 c4 31 a2 c3 4b 79 5c e2 cc df 3e 2e 6d fe 79 cf | .q.N..<..c.q.....1..Ky\...>.m.y. |
| 2369c0 | c5 70 2f dd a3 95 44 f3 32 5d de 7d d7 8e ea 2e f0 18 b3 bd 69 ee fa 84 1b 56 71 66 6d b4 34 49 | .p/...D.2].}........i....Vqfm.4I |
| 2369e0 | ab 60 20 f3 7c f0 38 57 89 5e 5c 6d 1f 79 95 12 a6 47 c7 a5 a1 27 23 88 87 57 53 22 dd 5a 3d 34 | .`..|.8W.^\m.y...G...'#..WS".Z=4 |
| 236a00 | b8 8e 96 93 52 05 2b cd be 34 8c 2b f4 87 2b 56 52 02 c2 8f c9 40 1f cb 50 94 16 a6 95 0b 48 87 | ....R.+..4.+..+VR....@..P.....H. |
| 236a20 | 33 ce 7d 3e 4a 4e e2 b3 ee 1d 7e 2c b6 71 07 05 a7 ca 16 23 9e ca be f0 49 49 41 28 16 66 ed 4b | 3.}>JN....~,.q.....#....IIA(.f.K |
| 236a40 | ff b7 6a 91 0c 80 99 aa 03 60 0f 71 19 45 65 44 3a 30 0b 37 a4 3a d3 83 f8 a3 c1 f4 39 c1 c4 c7 | ..j......`.q.EeD:0.7.:......9... |
| 236a60 | 30 79 97 33 e6 d6 0e 4d ca 27 1a 1e bd b5 a2 1d 03 4e 26 03 f3 02 99 c5 42 e0 79 42 3e a4 22 9a | 0y.3...M.'.......N&.....B.yB>.". |
| 236a80 | ee 37 8a c7 f3 11 20 e5 17 5f 5e 87 6c a2 2f f5 86 df 99 17 66 a2 53 6e f4 27 5d 06 6d 44 ca d7 | .7......._^.l./.....f.Sn.'].mD.. |
| 236aa0 | ad 96 6f 09 b4 07 d2 33 a6 f0 3c d8 31 ae bf a8 13 8b fa a0 51 d9 09 27 bd 78 3a 8b a4 eb 89 7a | ..o....3..<.1.......Q..'.x:....z |
| 236ac0 | 17 39 a2 59 6c 63 dd 5b 8a 31 3c fa 28 1a a1 63 f6 0f 0a 2a 1d 66 11 64 35 92 cb c9 f6 ab 10 38 | .9.Ylc.[.1<.(..c...*.f.d5......8 |
| 236ae0 | b0 91 c7 88 5c 6c 8a c5 b8 b3 56 6f e8 6a 2b cd 46 a9 60 cb 3f ce c8 ab c1 79 75 d1 e0 fc c0 86 | ....\l....Vo.j+.F.`.?....yu..... |
| 236b00 | 20 18 af 89 a8 14 57 aa 36 89 e6 f9 f8 ef f8 27 b9 05 4d 70 9b 92 48 e3 0b e7 66 a1 31 86 bc f2 | ......W.6......'..Mp..H...f.1... |
| 236b20 | 04 a9 87 d8 03 df ef 55 21 95 60 28 7c c4 20 40 72 71 d9 6b 6f 60 4c a7 ae e8 10 aa 19 f1 f4 10 | .......U!.`(|..@rq.ko`L......... |
| 236b40 | 78 2e 51 3c e5 1b 7b b0 51 d3 a9 eb e8 cf d2 7f 93 6a 82 5c 9e 99 a4 6e 3d 77 8e 42 7d a6 91 61 | x.Q<..{.Q........j.\...n=w.B}..a |
| 236b60 | 0e d3 b4 ca 5f 1d 84 2e 3c 18 40 ef c0 13 23 20 e6 f4 03 69 84 a7 3a d6 58 a2 87 e4 c3 90 c3 18 | ...._...<.@...#....i..:.X....... |
| 236b80 | 35 9b 00 25 b3 ec 02 6c b4 7d 6e b1 5c 7a d2 29 4c 62 e1 03 58 e3 7a c3 19 4b b2 7a 01 90 76 92 | 5..%...l.}n.\z.)Lb..X.z..K.z..v. |
| 236ba0 | 0f db 52 65 8e 8d 99 c6 9b b2 eb 7f 81 84 27 ad bc ae e3 8c c0 91 07 7c ca 6f 74 d6 7e d7 b8 9f | ..Re..........'........|.ot.~... |
| 236bc0 | ca 58 de f3 16 29 87 f8 f3 e3 2f c2 4c fb 96 95 eb 64 a5 b6 a3 2f 17 ad 5e 5d 43 63 29 d2 31 63 | .X...)..../.L....d.../..^]Cc).1c |
| 236be0 | 89 91 c4 04 58 4d 76 60 ef c3 b7 45 5a 2b a1 1a 78 9e 78 68 52 48 8e f4 fb db bf fb bc 09 c3 ea | ....XMv`...EZ+..x.xhRH.......... |
| 236c00 | 82 e2 3e c0 7e 7c b5 d1 81 ff f3 08 66 27 6a dc 38 ec ea 51 e0 6c 71 a9 1f 06 56 07 8c c9 a6 6a | ..>.~|......f'j.8..Q.lq...V....j |
| 236c20 | 03 ff 89 b6 f6 05 cd 62 81 63 28 37 d0 c6 58 17 d8 6d 75 fa 81 ce d1 8e 61 b7 4d 13 d8 7a 10 21 | .......b.c(7..X..mu.....a.M..z.! |
| 236c40 | 42 dd c7 61 39 73 a5 28 d9 28 c9 d7 10 46 53 69 fa f9 6e 9a e0 48 4e e6 44 5c a4 cb a6 0c e6 f3 | B..a9s.(.(...FSi..n..HN.D\...... |
| 236c60 | da 13 87 11 77 8a ae b1 89 3b 65 40 e4 a5 c5 c9 37 0f 26 d2 a8 4a 6b b7 a6 5d 50 0d 72 ea 57 a6 | ....w....;e@....7.&..Jk..]P.r.W. |
| 236c80 | a1 11 8e 06 55 11 e7 5b 69 92 43 ad e9 5b 6e 09 21 7b b3 2c 15 5f c5 8f 10 57 59 c6 5f cf 57 8b | ....U..[i.C..[n.!{.,._...WY._.W. |
| 236ca0 | 83 02 6c 91 9f 9f 31 1d db c4 eb 27 f1 8b 70 25 c9 f3 87 72 c7 dd de 0b 35 50 c8 4c ec 02 9c 33 | ..l...1....'..p%...r....5P.L...3 |
| 236cc0 | 2c e5 c4 4d b7 16 31 ee 86 42 ac 2a 91 b6 72 11 30 ab 59 36 9f 2c 9f 0c 96 7c ca 9a f0 92 cd 53 | ,..M..1..B.*..r.0.Y6.,...|.....S |
| 236ce0 | 8b 3b dc 14 d2 c0 35 18 07 0d 19 f1 31 61 86 d2 17 d7 89 49 f0 47 cb 2d fc f2 51 9c ac 54 94 d5 | .;....5.....1a.....I.G.-..Q..T.. |
| 236d00 | b1 10 19 69 35 25 d2 a6 22 da 88 61 88 5d 3c b5 01 bc ec 77 75 b1 75 c9 0e cf b6 ef 66 e4 7b d5 | ...i5%.."..a.]<....wu.u.....f.{. |
| 236d20 | f1 a1 5b 69 a3 1e e5 85 31 c2 8d 0d 43 07 a6 6f 7a 4a 80 05 a5 bc bd e0 31 fa 12 a1 d3 58 c1 54 | ..[i....1...C..ozJ......1....X.T |
| 236d40 | 32 9b 9b 42 34 90 8e bd b0 2a c7 c6 24 e2 90 da 93 4b 3c e4 64 67 85 1e 99 53 8e 6b 73 4b 34 f6 | 2..B4....*..$....K<.dg...S.ksK4. |
| 236d60 | 85 44 9c a1 d0 a4 3c d8 97 fc 2d a7 97 f3 3e 83 89 f6 a9 4a 23 29 7b 36 9d 2f e6 42 f8 b7 f9 1b | .D....<...-...>....J#){6./.B.... |
| 236d80 | db 7d 3d 3a 45 4a a3 1b fe 9c 0c 7c 04 f7 37 64 91 6c 06 ab 47 30 80 a7 a1 42 72 99 1a 04 62 0e | .}=:EJ.....|..7d.l..G0...Br...b. |
| 236da0 | c9 63 1f 53 4f 7a b1 ef da fa 84 f2 8e 81 73 cd f0 52 28 b7 3b db cc 67 0e eb 95 5f 0c 1d 5f ad | .c.SOz........s..R(.;..g..._.._. |
| 236dc0 | 58 87 16 cd db 63 45 68 59 84 7f 52 eb 46 33 00 16 fe 82 5d f9 98 ca c9 4b 22 cb c0 38 c7 e3 bd | X....cEhY..R.F3....]....K"..8... |
| 236de0 | 1a 62 7f 22 b5 23 f9 4d 06 bb 7b 9c 93 d2 79 97 2e 26 c7 2c 04 fe 97 2e 26 10 b7 aa b6 ae ec 47 | .b.".#.M..{...y..&.,....&......G |
| 236e00 | 1d a7 77 2b 9e 26 5a b2 64 d3 78 f3 f5 d8 ac 42 f5 47 f5 2b 45 bf b7 b5 7a e2 76 ee a1 07 7b 0e | ..w+.&Z.d.x....B.G.+E...z.v...{. |
| 236e20 | d7 21 ea d4 7e 2f db f3 b6 17 27 b0 8f 36 e1 e3 cb a9 2d dd 0d 35 1f 8c 7b d2 47 8b df 5d 87 c5 | .!..~/....'..6....-..5..{.G..].. |
| 236e40 | 3b 16 ab 1e 07 2e 9b 60 51 d6 e0 b3 2c c4 1b 31 7a b8 97 75 e7 76 4b 0f 32 37 77 7e b0 5c a4 40 | ;......`Q...,..1z..u.vK.27w~.\.@ |
| 236e60 | ce ed b4 a5 69 ab 70 3a 12 dc ab 20 e3 94 4e b1 1b f0 cf e9 9a 38 fe ed 86 a5 c2 78 66 30 d3 96 | ....i.p:......N......8.....xf0.. |
| 236e80 | 3c ad 13 3e 18 a5 09 ba 77 70 47 ae cd 62 e9 24 c2 3a ea 79 37 ee 70 96 b5 3f 94 ec a2 3f a5 55 | <..>....wpG..b.$.:.y7.p..?...?.U |
| 236ea0 | 64 89 2d 84 64 f4 ae 86 9c 1d be c1 ef 9d 85 bd ff 5d 15 61 01 88 26 3a 47 aa b5 29 9b 22 4c 0d | d.-.d............].a..&:G..)."L. |
| 236ec0 | ac 5d 42 5c 55 a7 36 e4 83 92 82 53 20 f6 79 f6 3e f0 74 70 4b 0d 01 af f7 11 21 13 a1 3c 55 d9 | .]B\U.6....S..y.>.tpK.....!..<U. |
| 236ee0 | e2 99 8e 63 62 a2 fa 04 99 27 67 e3 11 bb a5 b7 e3 38 fb f6 38 e6 32 62 ad 26 55 69 01 8f de 8a | ...cb....'g......8..8.2b.&Ui.... |
| 236f00 | 35 28 f9 26 90 ee 78 67 c4 20 5b e6 22 6e ef c8 ce 2b ba 3d 9b 57 42 fa c1 b1 bc 50 72 23 7e e9 | 5(.&..xg..[."n...+.=.WB....Pr#~. |
| 236f20 | 82 21 ca 75 71 50 fc 7e eb d9 bf 7c 6e 8d 73 9c e2 32 a4 c7 d8 b7 5b c6 11 ef 3e 47 87 90 9e 08 | .!.uqP.~...|n.s..2....[...>G.... |
| 236f40 | a1 bf d1 fd 13 c5 4d c8 0a 36 a3 8e 7a 4b 9c 75 3a da a0 be 7e 2d 91 5e 86 b0 4c 25 57 70 6b bb | ......M..6..zK.u:...~-.^..L%Wpk. |
| 236f60 | f1 3c 0d 44 e8 32 87 7b 8d 15 59 74 da 0b 5e 59 fe 14 13 6f 60 3c ab b6 3e 0e 82 3c 47 51 1d c6 | .<.D.2.{..Yt..^Y...o`<..>..<GQ.. |
| 236f80 | 6f fd 8c a0 63 b8 ef ae ad 20 f0 56 5a 28 30 e7 09 38 fe a8 bd 32 9d c1 b6 10 ad bc 1d d9 dd 56 | o...c......VZ(0..8...2.........V |
| 236fa0 | 62 2a a6 18 a7 00 bf 5f 5a 87 da 11 4c 57 cc bb e5 f3 94 14 6c 45 81 28 52 63 a4 e0 b0 6c ce 35 | b*....._Z...LW......lE.(Rc...l.5 |
| 236fc0 | d1 f9 e3 15 65 8a 41 94 56 7a 49 a2 70 b9 d5 59 54 44 72 83 81 4e 22 fa 57 ed 62 97 f1 c3 2f 0f | ....e.A.VzI.p..YTDr..N".W.b.../. |
| 236fe0 | 96 85 b6 97 da a8 6d b8 8f 91 40 ea a7 76 07 d2 f3 fc 52 c2 7e be a1 8d 6e bb 40 c0 c1 f7 a1 a5 | ......m...@..v....R.~...n.@..... |
| 237000 | 6b f8 95 27 22 0f e3 60 73 ba ca 22 c7 ab 08 f7 9e 92 98 e8 13 77 92 61 b7 e3 7c fb df 13 af 8a | k..'"..`s..".........w.a..|..... |
| 237020 | cb c6 b4 fa 8c 42 e4 b2 a7 c3 d9 1a 8f 51 7d af 6c c1 07 2e 0c d2 0f a8 ab 7d 55 e9 ee 4f 1d 01 | .....B.......Q}.l........}U..O.. |
| 237040 | d7 2a 9d 81 b7 08 0c 85 3a e6 93 79 b0 68 17 a4 51 f4 9d 02 9d 29 61 c3 41 f6 8d d9 39 d6 46 b3 | .*......:..y.h..Q....)a.A...9.F. |
| 237060 | e6 da 3f 3b 19 f2 8a 63 16 6c aa 41 57 f3 5b db 4f 2f d7 dd 5f 49 5e 5c 3b 59 d8 57 1d 79 6a 67 | ..?;...c.l.AW.[.O/.._I^\;Y.W.yjg |
| 237080 | 97 a9 81 1c 61 5d 5b 7e 5e d3 d6 88 fa 3e b8 b5 cc f0 8f 0a 85 d8 a9 90 09 cb 23 89 0a f6 7d 16 | ....a][~^....>............#...}. |
| 2370a0 | 2d 04 00 86 2e 1f 9f 39 2a 47 2f 53 10 9c 31 9b 0b c1 51 0b 2c 0e c4 c8 a5 fe 7d 05 36 47 5c 16 | -......9*G/S..1...Q.,.....}.6G\. |
| 2370c0 | 0b 89 af f6 b5 7f 54 6f 34 ed 66 33 86 1c 9f fc 2f 99 92 44 4d 9c f2 16 e3 84 1f 26 8d dd 93 45 | ......To4.f3..../..DM......&...E |
| 2370e0 | 58 7b 3d 3c 5a 0c 17 58 41 49 c3 f1 02 93 fc 4b b0 da 8a 69 6c 86 76 52 83 9f 90 00 c5 6b 82 93 | X{=<Z..XAI.....K...il.vR.....k.. |
| 237100 | 30 74 59 1c 1f 0b 8d 5d 10 da 22 8d 1a cf 15 f3 c3 6e cf 14 9b ab 7a 5f 11 f6 db 7b 18 97 c0 3d | 0tY....].."......n....z_...{...= |
| 237120 | d6 61 3e 11 19 a3 af 85 05 31 90 24 55 72 df 45 69 c6 4d 89 f6 e0 2f 93 61 7b 4d f5 a4 28 b9 b1 | .a>......1.$Ur.Ei.M.../.a{M..(.. |
| 237140 | 9d 7f 41 9c 7a cc a0 1c 56 2f bf df 53 41 79 e2 ed e9 1d 5c eb 00 4a 8c 76 99 a1 45 ad 17 5e 8f | ..A.z...V/..SAy....\..J.v..E..^. |
| 237160 | 0d 57 72 5d 16 f5 2f 08 d0 04 1c e2 ac 58 df bd 9c c5 f0 28 c8 0d f1 56 e5 51 32 5d 02 b2 48 4c | .Wr]../......X.....(...V.Q2]..HL |
| 237180 | 76 af 69 a8 91 95 05 bd 89 1c 57 88 62 11 53 bb 3d 06 78 70 36 af 71 bb e4 80 7d 9f c5 79 80 35 | v.i.......W.b.S.=.xp6.q...}..y.5 |
| 2371a0 | 9a 56 79 ba bf 91 5c 76 00 09 ac 7d df 90 bd f8 ce fa d9 5e 6a 9d aa 5c 8a dc 83 0b d6 84 48 55 | .Vy...\v...}.......^j..\......HU |
| 2371c0 | 63 a2 c8 fd 5c 8a 1b 7d ee 06 51 7b a8 23 32 f9 30 1a ad 35 93 70 f0 f1 2c 12 16 ee ba 58 e1 7f | c...\..}..Q{.#2.0..5.p..,....X.. |
| 2371e0 | 6b 84 9a 3a 23 88 36 fc c4 c3 6c 82 10 ea d9 5f ba 57 6f 1a 14 6d 8f 88 4e 91 0b e9 59 69 05 f9 | k..:#.6...l...._.Wo..m..N...Yi.. |
| 237200 | e8 87 aa aa cf 31 be 3b 5f 9c d1 b9 a7 c0 f0 eb 67 9f 32 b3 38 06 27 c5 ff bc f9 c4 e0 88 89 23 | .....1.;_.......g.2.8.'........# |
| 237220 | df 11 7d 7b 48 35 2e a4 e5 c0 35 22 36 ca da 3f a6 ab 8b 31 6e 76 f5 71 9f 69 07 ad 6a 9d aa da | ..}{H5....5"6..?...1nv.q.i..j... |
| 237240 | f3 21 1d 37 24 e9 09 78 8c 72 b6 e4 c1 01 1f 11 1b 13 18 2b d1 84 4a bc bd 13 ac 7f 99 dd 2a 22 | .!.7$..x.r.........+..J.......*" |
| 237260 | 89 7a 9f 06 50 34 ef 24 4a 78 bb 3a ca 0a 6c 89 8f 64 73 43 95 7e 93 a8 f2 63 8d 98 f4 ea 47 73 | .z..P4.$Jx.:..l..dsC.~...c....Gs |
| 237280 | 70 d5 9a 42 76 1b bc 01 53 7a 20 b2 40 f0 fb 06 4e d1 49 52 f3 93 7a b7 12 87 ba 02 66 9c cc d2 | p..Bv...Sz..@...N.IR..z.....f... |
| 2372a0 | 41 bb e9 af c0 dc d7 6f dd 33 53 6f c0 bb 8a 73 1b a9 05 7d 6e 7b 58 3e 8e 71 6f b4 88 c6 15 a7 | A......o.3So...s...}n{X>.qo..... |
| 2372c0 | 14 b6 d3 14 c3 82 73 33 63 5d cb 6e fb 23 22 cc 42 41 5e 6c 2b 8d 95 de c6 36 53 ce ce 2f 28 65 | ......s3c].n.#".BA^l+....6S../(e |
| 2372e0 | 68 3a d7 30 4a bd 1c 9f 3a 47 8e 2b 5b ac 1b 39 e3 5f 17 25 6f 9c 22 51 0a 82 93 a6 9d e8 f5 19 | h:.0J...:G.+[..9._.%o."Q........ |
| 237300 | b3 2e e0 72 f0 13 c3 b3 f4 46 fd 0f c8 fd f1 06 79 87 5d 7d b7 4e 5a 50 90 db 1b 68 93 b3 94 6e | ...r.....F......y.]}.NZP...h...n |
| 237320 | af 73 15 d6 73 26 aa 39 e5 83 be c8 07 a8 19 9c 3f d3 fe cc 22 2b 55 6a 41 8f d3 31 a4 da 8a 62 | .s..s&.9........?..."+UjA..1...b |
| 237340 | d7 d9 d0 47 0f 77 bb b9 2f 8d 48 31 e3 06 93 a1 68 0e 0f 27 e9 56 f0 c1 b1 3b 05 55 5c 9e 3d 2d | ...G.w../.H1....h..'.V...;.U\.=- |
| 237360 | 49 94 c9 86 87 bd 4a e2 d9 e3 a7 42 c3 a4 cf 1e 06 b4 9e 6f 5e 11 a0 5d 5f 31 10 dd 74 5c cc 1b | I.....J....B.......o^..]_1..t\.. |
| 237380 | 17 ec a4 eb 39 d4 29 09 22 53 af 04 e1 0d 78 cd e1 15 d9 88 f5 e3 88 76 35 1c 99 ac 51 84 c6 2a | ....9.)."S....x........v5...Q..* |
| 2373a0 | eb 49 34 2d 60 c4 09 fb 19 bd 82 28 25 28 ef 4c b9 ee b9 8f fb 67 17 5c 7f a1 bc 45 69 59 9b e7 | .I4-`......(%(.L.....g.\...EiY.. |
| 2373c0 | 65 d0 03 7c 72 40 e9 b6 f2 c8 07 e5 8a f6 1e c6 eb 1c 52 20 aa cd 3c 9e 25 a3 8d e5 f7 bc ed 2d | e..|r@............R...<.%......- |
| 2373e0 | 52 e9 fc 8a 3a d3 b8 fc 83 40 c1 21 35 d2 23 b6 a9 0a e0 ec 4a 06 13 07 8b c7 55 2b 9a 8d d8 af | R...:....@.!5.#.....J.....U+.... |
| 237400 | 56 e5 0e fd 59 76 75 6b 76 b1 56 03 aa d6 9a 16 16 aa 60 0d d1 ac 29 07 30 a6 5b 7c 55 41 39 ec | V...Yvukv.V.......`...).0.[|UA9. |
| 237420 | 29 6f f0 b2 29 33 b9 93 1d e3 88 14 95 95 b2 69 93 5e 0c 93 8e b5 c0 62 17 4d 1b 56 96 40 39 d2 | )o..)3.........i.^.....b.M.V.@9. |
| 237440 | 88 50 28 e0 75 42 01 0a e8 0f 20 27 df 24 b3 6d 44 92 53 8e 27 d5 33 b9 e7 32 b5 e2 3a 3b c7 2d | .P(.uB.....'.$.mD.S.'.3..2..:;.- |
| 237460 | aa 1b 0d 4a 04 66 0b cc c8 78 68 3b c1 4a 5c 38 e9 24 29 33 2a a5 6c f7 7b 74 d3 ec 44 47 3f d9 | ...J.f...xh;.J\8.$)3*.l.{t..DG?. |
| 237480 | 6e 73 c1 44 57 84 cd c5 38 04 88 d8 4b 99 d2 8e e7 0d f6 1e a9 0f 90 c0 35 ae 7e 98 a1 6b fc 70 | ns.DW...8...K...........5.~..k.p |
| 2374a0 | b2 08 12 b3 fa ee 11 89 13 2c 4f ee 4c 6e 15 9c c2 70 0a 2a 6c 66 c9 bc 75 0f be f4 31 f1 88 b7 | .........,O.Ln...p.*lf..u...1... |
| 2374c0 | 48 2f a2 ea 7c 3b 66 46 2b b9 6d 31 7b 79 ef e0 71 30 b3 57 8b 0b c2 98 b0 c0 78 d0 f1 de e7 fc | H/..|;fF+.m1{y..q0.W......x..... |
| 2374e0 | 86 47 85 b3 3b 4f 4a 16 a6 03 8e 9d b1 4a 98 d1 46 fa 8e ae 2f 60 4c 23 75 58 12 d1 a0 56 f6 81 | .G..;OJ......J..F.../`L#uX...V.. |
| 237500 | 60 9f 72 ac f7 3d aa fa 02 e2 d5 ed 4b 6a 0b 27 73 ab 49 e7 bc 70 34 3b d9 06 6b 8f 61 88 73 35 | `.r..=......Kj.'s.I..p4;..k.a.s5 |
| 237520 | cf 3e e4 a8 41 78 e2 5d f6 24 72 aa 91 32 ef bd 0e 35 ff 78 57 3c 0f 2b cf 6a 61 5d 7e ba 8d 36 | .>..Ax.].$r..2...5.xW<.+.ja]~..6 |
| 237540 | d2 e2 e7 6d c3 2f f6 3f 90 5c 50 cc 42 c9 04 e0 c3 0b 34 67 63 4b ed 68 3a 7d 44 8c 15 59 db 4b | ...m./.?.\P.B.....4gcK.h:}D..Y.K |
| 237560 | 4c ea 79 33 62 5a ed a9 f0 91 4c d4 0e ca 6b c5 c6 e3 bd 8b d3 18 02 44 f6 d7 e2 75 3f fb 5f 38 | L.y3bZ....L...k........D...u?._8 |
| 237580 | ee 7e 05 e8 fe 6e 28 bf 43 e4 b6 ca 74 65 2a d7 be be 02 a6 05 2e 4d 13 48 ce bd 01 e0 78 a6 c6 | .~...n(.C...te*.......M.H....x.. |
| 2375a0 | f8 5a 68 70 dd a0 a8 2e 7d 8c 8a 47 55 b6 c2 e1 95 9b 29 00 ba 95 ac d1 84 60 fd fa 86 54 85 a1 | .Zhp....}..GU.....)......`...T.. |
| 2375c0 | 4e 69 36 68 c7 62 b0 a2 8d d2 86 73 c3 c9 e1 65 28 fe 4d 77 0b f6 0d 83 3a b8 a1 36 01 84 f1 2d | Ni6h.b.....s...e(.Mw....:..6...- |
| 2375e0 | af 64 d3 7d 12 ee a6 13 78 10 f2 3a 47 b7 ec cb 98 b0 30 d8 aa c0 72 74 e9 e0 e2 54 f9 36 f4 ed | .d.}....x..:G.....0...rt...T.6.. |
| 237600 | 52 27 79 21 01 cc 79 9c a4 37 5b d2 b0 ea 97 30 eb 85 f1 36 38 c5 cb d4 9a b1 89 74 ff a3 31 33 | R'y!..y..7[....0...68......t..13 |
| 237620 | 43 7e 90 10 68 ca dc db fb 3a 7f 2b 18 4f 9f 0a 9e 3c 41 9e 8d c7 48 6c 85 4a e7 5c b0 28 fb 1d | C~..h....:.+.O...<A...Hl.J.\.(.. |
| 237640 | f7 57 93 42 fc 6f c3 f9 d4 ba df 8c a5 88 e7 f7 04 6a 5e 09 94 39 4d 00 2e 73 03 3d 64 ae f6 d8 | .W.B.o...........j^..9M..s.=d... |
| 237660 | fb 84 bf 4f 62 e5 6f 75 1a aa 98 e7 c9 d8 97 ab 8f 4b 56 9c cf 62 80 9d 03 8c d4 67 2e 3e f2 e9 | ...Ob.ou.........KV..b.....g.>.. |
| 237680 | 97 63 ed fe 5a b8 fa 38 03 16 56 55 af 02 0c 3c 4d a6 fb e2 f1 9a 56 09 2f 05 73 9e 75 fa 9d 22 | .c..Z..8..VU...<M.....V./.s.u.." |
| 2376a0 | a8 e2 63 5d ca 52 66 63 3f 12 2b 79 0a 37 2f e4 03 a3 22 71 b3 90 6e 55 38 17 48 25 d4 85 4a 5a | ..c].Rfc?.+y.7/..."q..nU8.H%..JZ |
| 2376c0 | 0a f7 45 77 d6 67 c8 2f 92 27 fd b5 82 d4 e5 a4 e4 65 0a 86 47 50 ca 3c 88 f4 aa 12 98 f3 0e ce | ..Ew.g./.'.......e..GP.<........ |
| 2376e0 | c5 02 2a 30 c4 a8 fd e5 94 b8 c6 30 2e 00 62 b7 70 ca bf ae d3 28 56 04 09 31 03 67 85 da e6 51 | ..*0.......0..b.p....(V..1.g...Q |
| 237700 | d3 b2 c5 5c 18 5d 85 2e a6 13 77 62 65 db 85 3d d4 5d 53 44 d1 58 10 7c ba 8c e2 d1 19 3f 2f 00 | ...\.]....wbe..=.]SD.X.|.....?/. |
| 237720 | df 62 9c 8a 25 27 bc f7 30 4f 04 93 29 24 00 67 2e e6 25 bc 0d 5f 17 c8 08 1b 6b 49 1a 55 e4 76 | .b..%'..0O..)$.g..%.._....kI.U.v |
| 237740 | ec 84 f5 3a e9 d8 28 7f e3 96 2e 31 25 b8 19 a2 3d 6b 64 b5 c2 af 64 25 3c f9 42 9d 7e eb c1 e0 | ...:..(....1%...=kd...d%<.B.~... |
| 237760 | f7 44 9c 31 e2 d5 59 11 69 db 2f 76 7d 93 13 6f f8 ad a7 17 4d 48 2b 5a a4 50 77 70 10 23 e0 8c | .D.1..Y.i./v}..o....MH+Z.Pwp.#.. |
| 237780 | 59 bc e8 45 43 c3 de 65 07 76 58 99 6b de 3e 68 f6 5d d0 2b 55 b2 dc 6d c5 78 aa 5d 76 dc 26 3d | Y..EC..e.vX.k.>h.].+U..m.x.]v.&= |
| 2377a0 | ac f1 86 00 de 6c a9 36 cc dc 98 00 73 38 71 69 0b 83 3b 3d ed b6 73 34 75 c9 c3 56 8f b0 d7 1d | .....l.6....s8qi..;=..s4u..V.... |
| 2377c0 | f9 6b 4c 70 9c 56 a7 c6 49 82 57 9f 6d aa f9 b7 21 48 89 8e 2e d3 92 57 23 83 97 c2 74 93 a3 9b | .kLp.V..I.W.m...!H.....W#...t... |
| 2377e0 | 40 ce 84 61 e1 09 4c a6 3b 31 8f 75 09 66 c7 f0 dc 1b 4a 84 37 9c 08 cb 68 b2 d4 86 81 42 a8 1d | @..a..L.;1.u.f....J.7...h....B.. |
| 237800 | b5 99 6f e7 e3 85 79 d2 e3 70 2d dd f0 25 66 9a 93 88 9f 61 ed 2e 5b 57 11 aa 98 9d a4 00 04 8e | ..o...y..p-..%f....a..[W........ |
| 237820 | f2 b0 c6 79 81 01 b0 52 33 72 ea c7 a4 33 9e 04 01 84 f2 c0 7a dc 68 41 35 04 50 09 21 7a 74 6a | ...y...R3r...3......z.hA5.P.!ztj |
| 237840 | ee 50 b5 f6 90 ac cc 26 3f 7a e3 93 c4 20 99 a6 27 40 ff e7 2b 6f 0e 6d b3 2b e6 c6 c8 60 69 2a | .P.....&?z......'@..+o.m.+...`i* |
| 237860 | a1 f3 95 f3 f5 c7 82 ea 14 8a 35 5a 47 de ef 80 86 80 69 ca eb d1 47 f7 f5 ef 23 cd 98 70 80 40 | ..........5ZG.....i...G...#..p.@ |
| 237880 | ca 3e f6 1d 42 0d cc d4 01 db c7 29 c6 41 9e 07 1f 51 0f 2a 85 04 38 b8 83 b9 b2 77 fb 0e 0d e8 | .>..B......).A...Q.*..8....w.... |
| 2378a0 | b0 41 a2 af 5b da 15 a8 06 db 7f 3a c0 75 17 d0 f4 1b a5 a4 8d c1 53 d9 d4 e0 b3 d3 dd df ca e8 | .A..[......:.u........S......... |
| 2378c0 | 9a a9 3d 86 9c 9a 55 a8 4a 3c 03 8f 12 fc 48 8f 67 77 8c 49 0c 8a f5 32 d6 ec 7c bb 7e 0e dc 7a | ..=...U.J<....H.gw.I...2..|.~..z |
| 2378e0 | a2 7d ce 58 8a d2 08 a0 57 63 ad 0b d0 83 51 3a 39 2a c8 11 ee 56 f5 98 20 96 ed 39 f6 e1 97 9a | .}.X....Wc....Q:9*...V.....9.... |
| 237900 | 8d 19 b3 c3 4d 14 2e f2 c0 ff c8 25 39 0a ec 56 e5 94 52 b8 75 7b e0 e4 b2 b6 37 15 a0 f8 f1 01 | ....M......%9..V..R.u{....7..... |
| 237920 | c5 40 64 2b 93 26 98 1a f9 dd 80 3a 5e 1e db b9 3e 76 67 c8 e5 4a af 3c 9b 64 87 75 c6 ee 8e 05 | .@d+.&.....:^...>vg..J.<.d.u.... |
| 237940 | 47 c4 50 71 02 98 b8 48 90 fa 9b 3f 55 5f 2a a3 54 5f 6a 4c 65 c0 e7 77 5e c6 9a ca 02 3d 01 c4 | G.Pq...H...?U_*.T_jLe..w^....=.. |
| 237960 | af 24 e7 2f d3 d6 a5 59 68 26 05 76 39 b9 83 6d 79 c5 09 d1 5e 2d 8c b6 8a 17 54 d8 9c e1 d9 5d | .$./...Yh&.v9..my...^-....T....] |
| 237980 | 7b 51 6f 12 a3 1c 4c 7f 08 9a 33 40 5e fd be fe 7e 42 ee e7 f3 cf c5 e3 cc 5f ef 72 34 70 f0 ae | {Qo...L...3@^...~B......._.r4p.. |
| 2379a0 | 9e 44 e7 2b 08 54 2d 5b 8a 7d ce 9c 33 91 37 e3 fc 45 7b 5b 6a ee 76 e7 27 77 6b 7e 1e 37 05 88 | .D.+.T-[.}..3.7..E{[j.v.'wk~.7.. |
| 2379c0 | ea bd 25 0a ca 9d ee 6c a7 12 9b 4a 67 bc ac 79 17 24 00 9b e0 7f cb 52 de d5 24 fb 4c b0 e8 cf | ..%....l...Jg..y.$.....R..$.L... |
| 2379e0 | 25 61 15 5a 8b 12 98 36 5c dd 63 fb 43 4b 97 09 f9 cc c4 28 2c ed fe eb f6 a8 a5 0f ff ac 48 43 | %a.Z...6\.c.CK.....(,.........HC |
| 237a00 | 18 f6 8a 9c 0f ff e0 aa 1e cc 1d d5 e4 ad c3 8c f4 80 69 5b f8 47 cd ee 63 3f 9d d5 3e 8e 28 a7 | ..................i[.G..c?..>.(. |
| 237a20 | a2 17 26 64 54 fd 29 07 cc 05 da 56 77 18 c6 69 99 f7 df 9f 2b 35 09 e3 34 4b 78 1f 81 fd 4a e7 | ..&dT.)....Vw..i....+5..4Kx...J. |
| 237a40 | f1 dd 39 6f ea d6 33 99 4a c2 0f e5 05 0e 85 18 4f 70 02 72 dc 5a 60 ae 31 32 f5 e1 b6 37 62 06 | ..9o..3.J.......Op.r.Z`.12...7b. |
| 237a60 | 54 3f 6c ce 32 0d 52 7a 40 52 d7 ec 67 f4 62 3b e2 7a bb ae 13 c2 5e c1 db 1c 4e 24 bf 16 be e6 | T?l.2.Rz@R..g.b;.z....^...N$.... |
| 237a80 | 9c 37 11 8d b9 7f 6d 60 a3 80 3f 30 a4 fd 9d c0 09 62 fe 93 27 eb 4a a9 1b cb 63 bc b7 6d a5 da | .7....m`..?0.....b..'.J...c..m.. |
| 237aa0 | c3 22 75 59 e7 93 bf 9c a8 b9 15 25 13 2c b9 98 79 69 ab d4 e6 e6 c1 d5 f3 a2 58 f2 83 09 4f ee | ."uY.......%.,..yi........X...O. |
| 237ac0 | 85 5d 9f 67 4a 6c a4 fb dc 07 ae 05 34 0f 42 f2 2f e3 86 81 c9 a5 df a8 42 80 57 12 5d ab 1e 0b | .].gJl......4.B./.......B.W.]... |
| 237ae0 | e7 08 53 fa d8 ac 5e cf a5 2d cc 6f 04 41 19 f3 9c 5a 4b 91 e1 b5 2b 33 5a 78 65 48 fc 62 69 06 | ..S...^..-.o.A...ZK...+3ZxeH.bi. |
| 237b00 | 2b 3c 3d 75 ee 7d 0e af fb 5d 89 28 cd 1d d9 aa 19 63 be 6d 13 c1 f8 b3 79 b7 99 19 f4 56 2c 50 | +<=u.}...].(.....c.m....y....V,P |
| 237b20 | f2 aa 83 3f 56 bc f0 16 70 86 1b ab a9 41 ff d6 08 56 a0 90 d1 ef ec 11 69 75 c3 59 97 d6 4c 86 | ...?V...p....A...V......iu.Y..L. |
| 237b40 | 4b b0 2c 2a 48 61 45 d0 df f9 b0 d6 d5 cc 0c 44 9d 24 5d e6 47 47 f9 58 b5 95 d2 87 2f ab 50 dd | K.,*HaE........D.$].GG.X..../.P. |
| 237b60 | 8f aa 61 2e 7a bc fc c6 06 be 5d cf 04 a6 5a 52 07 99 93 9d 9d fa 06 0f 87 33 d2 d6 1c 37 25 9f | ..a.z.....]...ZR.........3...7%. |
| 237b80 | 2f 62 f8 a9 5e e8 c5 84 8d 6f e4 66 cc bd dc 72 a2 57 80 2d af 89 4d 13 03 1d d8 5f fb 11 45 ff | /b..^....o.f...r.W.-..M...._..E. |
| 237ba0 | 14 46 a6 87 30 78 f0 cd 37 9b 5c bd 38 b3 ac 86 ef 3e 46 50 86 75 bc bd ce ac 77 a3 ec e0 53 51 | .F..0x..7.\.8....>FP.u....w...SQ |
| 237bc0 | 9e 03 aa 98 c5 b5 95 79 de 72 3a 60 ce 36 81 ed 7d c6 df 72 c7 ed c9 3b 7e b1 ef 13 ac 2b 07 0c | .......y.r:`.6..}..r...;~....+.. |
| 237be0 | f4 48 24 08 5e 1e 5c 8a a6 23 06 bc f4 77 cf b0 9f bc 11 93 56 10 2a ac 4a 7e 5d 8b fa 66 42 4e | .H$.^.\..#...w......V.*.J~]..fBN |
| 237c00 | ee cb 3d e5 c7 fb f1 cb 1f 7c 2f 41 d5 f3 1a 63 2c 33 a7 d2 af cf d4 94 7e e0 88 24 be 2a 82 33 | ..=......|/A...c,3......~..$.*.3 |
| 237c20 | 82 1d 43 13 f7 ac fc a5 e1 4a 5e a3 34 c9 77 c1 9a a7 72 cc c3 16 b8 e2 ad 47 79 e2 0d 2a ec 75 | ..C......J^.4.w...r......Gy..*.u |
| 237c40 | 65 8f f3 a0 75 63 f4 71 dd e5 a2 a6 38 62 f0 63 ba b9 6b 37 e7 0d f5 c7 8d ce af 97 bb d3 72 5b | e...uc.q....8b.c..k7..........r[ |
| 237c60 | 17 0c 64 af 30 43 70 97 d8 5f 7d 58 b2 d4 41 73 11 4a 23 b4 74 d5 f4 f8 5e 18 b9 1a 39 8c de 8a | ..d.0Cp.._}X..As.J#.t...^...9... |
| 237c80 | ab 28 3f 26 46 df 9d 9f da f6 b2 72 18 a1 6d 76 71 a1 eb 47 fd 9b 44 eb 3a 24 77 65 70 92 47 0a | .(?&F......r..mvq..G..D.:$wep.G. |
| 237ca0 | 3e 6a f9 5d 15 5c ed ee e1 7c 58 84 3e cc db 60 56 f2 4e 44 29 e2 1f 3b d4 2a bb 94 bf 7e 95 47 | >j.].\...|X.>..`V.ND)..;.*...~.G |
| 237cc0 | 2a b1 c4 90 fc 46 7c 78 93 07 9f cb e4 39 b1 a1 76 8f c8 cc 31 b6 60 3b 7c 0c 71 66 0e 2a 31 ed | *....F|x.....9..v...1.`;|.qf.*1. |
| 237ce0 | 40 37 a3 42 3b f3 9b 3b 1d 61 bd 6d 3c a6 69 66 d1 eb f0 45 ce 41 0d 5f a2 6f 7f 71 70 18 16 98 | @7.B;..;.a.m<.if...E.A._.o.qp... |
| 237d00 | 98 46 fe 8c a2 d6 17 52 32 f8 59 d4 93 2c 3d d8 07 31 56 28 a6 12 a0 32 fc 46 ee 5b 8e 77 00 ac | .F.....R2.Y..,=..1V(...2.F.[.w.. |
| 237d20 | 10 23 9a 53 a7 92 0c cf 04 eb 22 d1 da e1 55 fc 26 a4 c9 c3 d0 e5 e7 00 82 0b 6c 98 33 6d 62 fc | .#.S......"...U.&.........l.3mb. |
| 237d40 | ef 06 43 00 59 f9 a9 db 10 11 b1 b8 91 c0 77 74 11 dc 8e d8 1f 23 6e 53 a9 12 64 dc ec bf da 48 | ..C.Y.........wt.....#nS..d....H |
| 237d60 | fa aa ec 68 72 3e 9e 5b cb c3 0d 89 5e 95 89 a2 bd f6 34 c6 b5 61 fb c9 23 be 36 33 8a 57 6e 21 | ...hr>.[....^.....4..a..#.63.Wn! |
| 237d80 | 8d 9d f7 b3 68 cf 11 34 e3 13 ca cc 3a 4b 27 ce a4 c0 7d 80 2d 86 78 61 5b 11 31 5d 6a c7 7e 5f | ....h..4....:K'...}.-.xa[.1]j.~_ |
| 237da0 | 18 3b 7f 9c b5 a5 b6 23 19 73 77 8f 48 63 3a 6d a8 ca 27 7e da 85 23 c0 62 69 54 c6 b0 ed 7b 46 | .;.....#.sw.Hc:m..'~..#.biT...{F |
| 237dc0 | d9 2d 77 f8 3b 3e f9 45 ad e9 ae 1b 69 38 1e 40 e2 0a 27 ee 34 28 f1 7e b1 4c 8b 58 8e aa 0d 86 | .-w.;>.E....i8.@..'.4(.~.L.X.... |
| 237de0 | 3d d2 b3 8a de 8b a3 ce 13 54 ed 9e fe 14 b0 c5 c4 b3 ea 48 16 28 fc 34 a7 66 6f 28 b1 e2 0d ef | =........T.........H.(.4.fo(.... |
| 237e00 | f5 bc 7f f8 b6 6a e8 15 c1 05 16 92 9d 7d f6 26 cd 02 e7 f4 6d 16 ca 88 34 26 73 49 d8 aa 53 c1 | .....j.......}.&....m...4&sI..S. |
| 237e20 | 58 b7 07 09 a9 27 1d 8f 06 a9 47 ce 9a e6 42 e1 9a 45 78 5c 10 86 23 a3 8d 41 73 bf a9 a4 b6 2d | X....'....G...B..Ex\..#..As....- |
| 237e40 | 83 89 3d 29 11 6e a6 5f 4d 10 26 bf a5 c3 2b c8 9a 5e 54 63 8c d4 4f f7 8e 9d 65 97 72 1b ea dc | ..=).n._M.&...+..^Tc..O...e.r... |
| 237e60 | c6 c5 cb f7 c9 48 d3 21 e7 cd 58 2f 0d f9 0e 85 cb 5b 88 f8 63 eb bb 82 ca d8 ba be 64 34 05 6a | .....H.!..X/.....[..c.......d4.j |
| 237e80 | 31 04 3b 0b 09 87 fd 8c 24 82 97 27 15 9f 75 5e 84 c3 e8 6e 7d 09 58 dd 9b f7 10 86 35 1a 49 d6 | 1.;.....$..'..u^...n}.X.....5.I. |
| 237ea0 | 1a 71 4a 34 86 65 8e 76 ce 5f 0f cb 5f dd fb 84 a1 27 7d 62 f1 6f 34 6c 77 63 5a 6d b9 ed 0e ac | .qJ4.e.v._.._....'}b.o4lwcZm.... |
| 237ec0 | ea 73 b4 1e 78 50 ea 59 c2 f8 b1 d9 bc d5 95 29 13 6d 7a 7c c2 df 49 f7 dc 70 ed 57 ae 81 27 98 | .s..xP.Y.......).mz|..I..p.W..'. |
| 237ee0 | c7 3f 7f d6 42 83 8a 7c 30 a0 6d 93 a4 87 c8 67 87 53 f6 3d eb 1d 77 9d 6a 2e 13 22 50 b7 eb a9 | .?..B..|0.m....g.S.=..w.j.."P... |
| 237f00 | 57 f6 6d 22 2c e7 0f 8f 0f 08 a5 98 46 43 f1 b8 55 df a3 31 e0 91 56 6d 67 23 54 7d 31 2b 6c 49 | W.m",.......FC..U..1..Vmg#T}1+lI |
| 237f20 | c4 67 60 a3 86 9e 16 08 f2 72 7c e7 42 34 03 95 3f 88 d1 66 85 25 99 f8 6d c7 fd 74 9c 7c 58 f2 | .g`......r|.B4..?..f.%..m..t.|X. |
| 237f40 | dd eb b4 16 4a 9d e4 ba 53 b3 ae b1 fd ae ff 62 b9 2f 40 2c 4e db 0f 41 c4 37 c1 fa d2 58 74 e1 | ....J...S......b./@,N..A.7...Xt. |
| 237f60 | a4 49 e9 cc 0c 48 41 f4 06 47 81 d8 bb b3 6c b6 10 e0 c5 ce 5e 8e 9a 48 87 4f 2a 0b e5 12 73 68 | .I...HA..G....l.....^..H.O*...sh |
| 237f80 | ea 37 30 b9 4e 4e 55 2f 96 66 a2 d3 5e c3 f1 26 33 f4 cb 11 f8 84 6e 42 d4 db 6b e7 37 ae 62 cc | .70.NNU/.f..^..&3.....nB..k.7.b. |
| 237fa0 | 87 c3 43 f6 5c 85 b9 9e b5 38 a5 88 b1 21 15 c6 54 21 06 3e e0 e3 f3 f9 cf 36 9d 09 d6 b3 b7 44 | ..C.\....8...!..T!.>.....6.....D |
| 237fc0 | e4 0c ba 6b 79 df 2e 03 1a a9 f8 67 d8 6a 41 5d b7 97 0c 36 8a 31 99 b1 3a bf e9 d1 25 90 8a d8 | ...ky......g.jA]...6.1..:...%... |
| 237fe0 | f1 23 fb 3b 92 7f e1 aa 1a b7 90 78 e9 04 89 7d ee 92 7d 6f e3 0b 73 77 d3 b7 f7 7a 7a ff 7d 1e | .#.;.......x...}..}o..sw...zz.}. |
| 238000 | f7 7e 7d 17 43 e8 b3 66 c0 cb fe 41 61 f0 de 12 89 1d da ee 20 fa d9 16 69 ee dd 9e 36 f0 e5 bb | .~}.C..f...Aa...........i...6... |
| 238020 | c6 59 60 27 11 aa c5 e2 32 9f ec fb 4e a7 88 33 9d 25 b2 b3 9e e2 55 ac a9 10 49 f5 08 5c c2 f0 | .Y`'....2...N..3.%....U...I..\.. |
| 238040 | be 6a bf f8 90 32 fb 29 3d 05 03 d7 34 5b a7 6d 00 16 47 7c b9 30 1e 2e 7a f0 ef 86 37 45 9f f6 | .j...2.)=...4[.m..G|.0..z...7E.. |
| 238060 | 0c f0 d6 23 2b f5 3a 98 45 f4 ec 7e c0 0f 28 05 91 f1 ce 71 d7 21 3a 35 0f 20 3c 1b 24 b4 d1 89 | ...#+.:.E..~..(....q.!:5..<.$... |
| 238080 | 4d bc 99 33 62 12 3c dc d9 38 dc 00 90 6b 70 dc fc 4c 2e 5b cc 53 77 24 78 f5 db 64 34 13 64 a0 | M..3b.<..8...kp..L.[.Sw$x..d4.d. |
| 2380a0 | 27 f6 20 f2 a9 e8 07 20 dc 2f 5d 36 a0 14 c9 1c 1d c8 1e 3d fb e8 d7 86 41 78 fa 60 bf aa 26 58 | '......../]6.......=....Ax.`..&X |
| 2380c0 | aa 0b 93 98 b1 9e 79 6c 88 20 d6 0d 19 7e e5 bc 08 c2 85 ec 2b 52 4d 9c e6 c3 26 8c 98 6b 63 c2 | ......yl.....~......+RM...&..kc. |
| 2380e0 | 0d 1a f6 18 4a b9 c4 70 22 c8 91 b4 95 82 6a 55 4b 65 9e 46 2c e5 7c ad 4f 42 3e 2b 07 fa 45 89 | ....J..p".....jUKe.F,.|.OB>+..E. |
| 238100 | 44 84 75 67 1c 8e ed f3 df 72 af 4c be 84 75 17 47 9e e2 5b 6b 06 76 ef af 53 c6 b0 6d 7a 1e 24 | D.ug.....r.L..u.G..[k.v..S..mz.$ |
| 238120 | b2 84 e0 b7 ae 2b 91 32 c6 c7 e1 fa a0 98 fe 10 67 2a c6 27 db 6c 1f ea 63 13 7a d8 ec 1a 20 eb | .....+.2........g*.'.l..c.z..... |
| 238140 | fd bd be 93 14 b5 f4 e0 4b fb 3b b9 ab 25 3c c6 4b be 2a 16 37 2e 97 72 f1 fd 6b 62 aa 3d d0 33 | ........K.;..%<.K.*.7..r..kb.=.3 |
| 238160 | 5b f3 c8 c2 af 8c b5 00 a7 90 83 15 11 b8 76 9a 00 d4 c3 f4 7c 1d 18 bb 22 b4 43 82 d4 c1 b2 e9 | [.............v.....|...".C..... |
| 238180 | 4b 70 fc b1 79 a2 5e 06 ca 2b 7e fe 13 ad cc 20 93 e5 9a d1 29 ef 19 62 c3 1d 6b 59 86 40 9e 2d | Kp..y.^..+~.........)..b..kY.@.- |
| 2381a0 | ab fb 80 d8 7c 0b b9 e4 0c c8 48 3c e0 0d 16 0d 8e 19 ee 8e f2 42 bf 0a 0c c5 ee c9 2c bf b3 67 | ....|.....H<.........B......,..g |
| 2381c0 | c5 b3 ff 63 b7 ae 27 f7 ed a4 fb 53 25 83 f8 77 66 0a e2 f7 87 8e e1 42 04 8e 76 23 70 e4 05 ad | ...c..'....S%..wf......B..v#p... |
| 2381e0 | 55 a4 5b 88 75 0f 64 ad 1f 47 23 b8 4d d3 fd 69 58 8d 3a f7 6a 21 49 2d 4e 97 70 b7 bb 74 2a d4 | U.[.u.d..G#.M..iX.:.j!I-N.p..t*. |
| 238200 | 12 98 0a 57 fd 5b f6 b5 35 20 16 8a e0 da f6 12 4f 75 4d db 0f 0c 35 01 a9 de 04 45 91 a7 6b 27 | ...W.[..5.......OuM...5....E..k' |
| 238220 | 64 cc 2c 72 98 63 d5 19 c5 71 56 54 b9 a5 80 d4 00 ca af fe bd 6e fb 0a f3 96 47 97 5d a2 9c d2 | d.,r.c...qVT.........n....G.]... |
| 238240 | 0a a1 4d de c5 a3 16 6a 45 35 15 fe 5f 1f 39 de 13 19 76 4c de 82 7a ab 8f af fc cf 6f b6 e5 97 | ..M....jE5.._.9...vL..z.....o... |
| 238260 | 9b 29 02 38 f6 b8 da 6f 84 69 71 8a ef 3d 2a fb a3 c7 71 e4 d6 a5 8a 5c 9c f9 28 5c ed 7d 47 8a | .).8...o.iq..=*...q....\..(\.}G. |
| 238280 | f7 1f 5c a4 3f 75 0a 78 57 3e 9f 6d b7 21 13 2a 3d f0 92 cd 05 b4 d2 fe f8 55 f6 72 ea ff 1a 34 | ..\.?u.xW>.m.!.*=........U.r...4 |
| 2382a0 | b2 1d b5 5d f3 06 dd c3 25 fb 63 fe 97 e2 d4 3d cf 56 08 3e ad e7 38 fc 0c d7 04 e3 69 b8 8b 60 | ...]....%.c....=.V.>..8.....i..` |
| 2382c0 | e9 4c 20 7b d4 78 2c e0 76 a7 b4 8a 8a c8 70 71 3c 9f 9a 77 2a bc 40 d1 ba 3d d0 09 9f 9f e0 67 | .L.{.x,.v.....pq<..w*.@..=.....g |
| 2382e0 | c1 d4 f2 0c c8 a9 84 76 ba ee 9b f0 d7 02 cb 9e f6 b9 50 09 17 f5 47 17 ec a8 58 ca 1e 7e ca 5c | .......v..........P...G...X..~.\ |
| 238300 | f0 f2 de 8b 9b 19 c7 5c e8 b8 19 65 4e 68 ca 32 ff b7 7b 35 1e 5a 43 6c e5 a0 d2 7a 33 14 86 9f | .......\...eNh.2..{5.ZCl...z3... |
| 238320 | 9e 87 6a 6e f0 f3 01 22 3a 03 89 84 2c c5 54 34 8d 28 e3 db a9 ce 5e f0 f1 f0 5e 70 bb ec f3 30 | ..jn...":...,.T4.(....^...^p...0 |
| 238340 | 53 d4 ad 8c b4 c5 d9 4a ed f5 60 cc d7 f5 a6 32 d2 a1 a6 9c c5 dd 3f f5 28 3c 83 2b 3a 86 06 fd | S......J..`....2......?.(<.+:... |
| 238360 | 5c 27 8d ea 11 83 27 ba ab ce 13 7d a7 de 90 3e 2f 74 10 8d 27 f6 7a 91 6a 9b 12 46 c1 c6 35 6b | \'....'....}...>/t..'.z.j..F..5k |
| 238380 | a0 e1 10 d2 88 64 f6 7e 7f 09 11 1e d8 08 5a 0b c9 8d 3f f7 d9 43 7f d9 01 c6 30 12 83 9b d8 66 | .....d.~......Z...?..C....0....f |
| 2383a0 | 53 71 76 41 1c 04 42 d6 69 9e 52 41 27 ef b0 95 93 79 6c f4 43 41 a8 ed 7c 07 b1 f5 46 a5 9c 25 | SqvA..B.i.RA'....yl.CA..|...F..% |
| 2383c0 | 89 e6 19 f6 59 cc 01 d7 2e b0 b4 bf b1 64 59 99 fd 28 e0 44 5c 47 a3 71 91 b1 57 64 97 aa ab 37 | ....Y........dY..(.D\G.q..Wd...7 |
| 2383e0 | f3 c0 6e 91 7e 52 b9 6a 74 38 5c 0c 43 04 6a 2b 3a 40 9e 3a 16 db ee e6 0f b0 86 75 ae 98 1f 75 | ..n.~R.jt8\.C.j+:@.:.......u...u |
| 238400 | b3 e8 75 cc 02 84 91 0c 8e 52 36 b6 4a 87 50 1b 96 ab 13 be 8d 3e b0 8e 66 05 ae 12 79 82 16 e6 | ..u......R6.J.P......>..f...y... |
| 238420 | 4b c4 e6 15 96 95 96 05 79 21 5c 81 2d 12 9d a3 09 0c 5a d4 9f 8f 9d df 0d ca 21 8d ee 94 90 d1 | K.......y!\.-.....Z.......!..... |
| 238440 | 9b 92 07 2d fa 55 e2 3c be 9e fe 1a c8 3e 9d 61 58 3e 02 60 ad d6 25 a8 e8 63 28 1d 07 7d 67 a5 | ...-.U.<.....>.aX>.`..%..c(..}g. |
| 238460 | 7b e7 da e6 03 71 b9 31 f4 47 ae 54 67 97 79 25 e7 71 66 2e e4 85 17 10 b0 ee 34 b2 2d 91 7a aa | {....q.1.G.Tg.y%.qf.......4.-.z. |
| 238480 | 7a 70 4b 37 52 7f 13 3c b7 93 c0 0a 13 90 27 3b aa 47 97 00 17 ed 34 44 94 53 c9 c3 75 7d b4 53 | zpK7R..<......';.G....4D.S..u}.S |
| 2384a0 | ac 87 99 3b de d5 5f 60 f3 bc 71 c9 c1 4e 44 f1 39 4e ee 65 af 35 eb e6 f8 b9 c6 28 e5 25 f0 79 | ...;.._`..q..ND.9N.e.5.....(.%.y |
| 2384c0 | b8 31 9a d9 bf 38 a3 02 96 0f 0b 57 1e 78 61 ee 40 04 b7 9b f1 21 73 c9 9f de c3 af e9 02 65 09 | .1...8.....W.xa.@....!s.......e. |
| 2384e0 | f5 a8 a3 a6 c7 81 da b0 69 46 d4 7d fd 43 c7 40 c7 73 56 ca ed 35 76 57 01 6a 9a 7b f7 41 f2 46 | ........iF.}.C.@.sV..5vW.j.{.A.F |
| 238500 | 82 78 88 ff 25 a5 d6 ab 9f 83 4d a4 21 c2 e9 e2 fc 3a 4e 81 b8 5f 83 b5 0e d7 a7 71 d7 27 07 a6 | .x..%.....M.!....:N.._.....q.'.. |
| 238520 | 06 0c 63 4f d7 0b 51 dd d9 8c 95 95 75 c7 fc e8 bb 8f f9 bd d4 ea 67 4b 71 2d 65 86 c5 25 de fd | ..cO..Q.....u.........gKq-e..%.. |
| 238540 | 5e 9d 42 04 cf 95 4e c1 85 be 54 59 33 27 1e e2 59 56 6d f4 26 ef ad 70 60 16 9d cd d3 a8 6a 12 | ^.B...N...TY3'..YVm.&..p`.....j. |
| 238560 | eb 79 bd 1d 69 61 38 90 fa e4 de 55 f7 12 61 96 51 6e 19 ba c1 62 85 eb 39 f0 2c cc b3 4e 33 32 | .y..ia8....U..a.Qn...b..9.,..N32 |
| 238580 | 60 30 77 0e a9 94 2e 5c f8 b8 33 c2 1c 5e 7e 30 51 f5 01 76 c7 b5 ee cb f6 ba 5c 3f e7 8d cb ec | `0w....\..3..^~0Q..v......\?.... |
| 2385a0 | 80 ce 88 92 ee 40 d3 b7 5a 8e fc cf b7 9f 69 1b 21 4e 0f 6f 3d 3a dc fa 23 45 cf 9f 29 33 24 f5 | .....@..Z.....i.!N.o=:..#E..)3$. |
| 2385c0 | 1e 2e 0a 8d 89 b0 5d 4f 04 b4 55 73 f5 ba 3b 6c 98 d4 ae 2d 8d 6d 87 50 e2 29 92 2b 8d 78 22 59 | ......]O..Us..;l...-.m.P.).+.x"Y |
| 2385e0 | 5b 03 e0 9b 7f 27 d0 bc 1c 4c dc 7b 22 0b 95 7c 74 ca 4e 4e 49 11 de ec 94 f3 da 65 1d 57 1c e6 | [....'...L.{"..|t.NNI......e.W.. |
| 238600 | 0f 7c 6a 30 49 90 54 bf b4 ca 0c 2b 41 da c4 9a 30 b0 07 d6 7e d6 f9 d4 18 57 3b 64 bc 9b 33 8a | .|j0I.T....+A...0...~....W;d..3. |
| 238620 | ee 94 e6 ba db d5 0f 01 e8 2a 6a 9c d4 63 89 06 05 b1 7c ed 4a 4b 2d 1a cd a8 34 33 47 56 00 32 | .........*j..c....|.JK-...43GV.2 |
| 238640 | 12 b0 03 17 68 bf 2f 0d 8a fa 2f a1 3b f6 f8 f3 22 5f e9 32 bd 19 d1 d5 6f 5c f3 a1 2b a7 88 4f | ....h./.../.;..."_.2....o\..+..O |
| 238660 | ee b6 45 fc 3d 35 e9 06 fc a6 60 fb 1d c5 9b e6 b3 98 37 4f 7c 42 75 0f b1 67 df f7 fe af 68 17 | ..E.=5....`.......7O|Bu..g....h. |
| 238680 | 71 cd 4a b5 28 0b 76 9f 4f 68 9f 9e 79 fa 63 7c 86 c1 79 07 0f e2 b2 0d c7 0f 70 8d eb bf fa a8 | q.J.(.v.Oh..y.c|..y.......p..... |
| 2386a0 | 14 d6 03 82 61 31 62 01 1d d5 47 aa fd 59 23 b6 01 d2 da a0 72 7a 6f c7 ad b9 1b 96 0c f2 cd 2d | ....a1b...G..Y#.....rzo........- |
| 2386c0 | cd 9c aa 8a 74 b9 1a 91 93 a3 6d f6 fa 1f ec 72 8f 72 69 28 c2 86 e0 b6 51 63 8d e0 e2 14 3a 03 | ....t.....m....r.ri(....Qc....:. |
| 2386e0 | 52 66 ad b5 04 6d 9a 57 64 c1 13 93 e7 41 68 26 dc 1a 65 e3 a7 66 f1 30 06 30 f4 f2 d7 0e ee 0e | Rf...m.Wd....Ah&..e..f.0.0...... |
| 238700 | c6 1e 2e 3d b7 91 7d 30 93 79 36 8f ec 79 9d 74 23 8a a3 cc 60 71 56 34 95 d8 a0 f7 0f 8c 98 27 | ...=..}0.y6..y.t#...`qV4.......' |
| 238720 | 98 f4 cf 8e 2b b4 cc 6c 5b 24 79 7e 86 5a 15 e4 1d 02 01 a4 92 b5 0d 6e 31 c6 55 d4 b7 f0 88 4b | ....+..l[$y~.Z.........n1.U....K |
| 238740 | 33 a8 65 1b 7c b2 91 59 57 ee e6 ef d1 e5 7c c2 c5 0a 1f 3a b3 de 47 d6 47 d7 dd 2b c9 1b 12 a0 | 3.e.|..YW.....|....:..G.G..+.... |
| 238760 | d4 2b 6f 10 3a 9c ac 3a c7 a1 02 ac ba fb 8a 0c 4f d1 08 f0 e3 87 ee 8c 6d a4 6a 34 2b 43 b8 32 | .+o.:..:........O.......m.j4+C.2 |
| 238780 | 0d 06 23 72 aa 58 3c 9b e3 13 1a 66 57 ad 81 cb 3e 52 c6 90 ea fe 7b de 1f 76 ad b3 e1 88 77 db | ..#r.X<....fW...>R....{..v....w. |
| 2387a0 | a8 ee fa ac 24 3e 3e ef 7e 51 e9 b7 58 47 72 b0 73 fa f8 28 99 91 b6 da e1 57 fb f0 35 55 0a a2 | ....$>>.~Q..XGr.s..(.....W..5U.. |
| 2387c0 | d2 53 ef 3f c9 b6 7a dd b7 c4 16 e1 40 7e 15 d1 6a c0 d5 8d 68 d4 e3 ef 2b 24 74 e2 90 fb eb 72 | .S.?..z.....@~..j...h...+$t....r |
| 2387e0 | d5 12 4c 8b 8a 0b 6d 9b cb f6 e7 c2 18 d1 ed 38 59 42 d2 9f 63 0e cb 3b d7 bf ce 47 19 99 6f 9c | ..L...m........8YB..c..;...G..o. |
| 238800 | 8a a7 eb df 07 bf dc 9d 7c 35 f5 b6 b4 11 3a b0 e6 b3 36 1d d3 fc 78 31 90 dd bd 7e 60 27 30 c4 | ........|5....:...6...x1...~`'0. |
| 238820 | 43 a8 97 e8 10 97 ed c9 14 37 22 97 39 4f 0a 23 f3 85 69 08 bf 2f a5 57 d0 cc 1c 26 8b d4 32 22 | C........7".9O.#..i../.W...&..2" |
| 238840 | b0 b1 35 ba 7e 48 ea bd 6f bf 54 9e ce d2 b8 48 18 9b 38 97 0c 28 fb db 99 8b 53 04 f3 ad 38 1f | ..5.~H..o.T....H..8..(....S...8. |
| 238860 | 69 8d 70 50 b9 6c cf 69 c9 1e 23 82 3e 3e 29 d5 fb 8e da 21 4b 0b 6f ff 06 ad 20 e6 c1 93 1d 45 | i.pP.l.i..#.>>)....!K.o........E |
| 238880 | 72 85 f6 ed 85 d8 e6 b8 31 7f 14 93 a9 16 49 80 c5 17 d1 b2 32 67 92 02 b5 b7 2a 26 5d 20 21 f2 | r.......1.....I.....2g....*&].!. |
| 2388a0 | b9 e6 1b 25 ba 44 bf 0f 92 55 2a 86 95 66 a0 d4 e5 d9 d6 4d a5 bd f4 ee 62 f6 6a 11 64 63 45 1b | ...%.D...U*..f.....M....b.j.dcE. |
| 2388c0 | b4 af 45 a2 8a cf 36 f3 f1 e6 a9 1d 97 ef 3a d1 62 7b d4 40 54 bc 58 cc 45 36 9a 76 5b b9 c9 62 | ..E...6.......:.b{.@T.X.E6.v[..b |
| 2388e0 | 2a 6f 56 33 50 45 80 64 62 3b 2b 55 96 fa ae f5 70 02 95 71 ec 6b e3 36 52 84 4a 99 70 1b 35 52 | *oV3PE.db;+U....p..q.k.6R.J.p.5R |
| 238900 | f2 bc 32 ba 8f 0a 54 49 d9 bb ac a6 05 8c 30 a2 39 3e 77 bf 93 96 a7 69 4f 76 3b 4b b9 be c4 83 | ..2...TI......0.9>w....iOv;K.... |
| 238920 | f5 3e 29 54 bb 62 fb f1 8b 1f ce 88 8e 4a 93 95 5a 9f 55 34 f2 48 b3 b1 0e e9 ad d2 ca b5 42 2e | .>)T.b.......J..Z.U4.H........B. |
| 238940 | b8 d7 ea f4 b9 0f 55 61 91 5e bd 98 6e ec 36 7e dd 24 1a 6f b8 ff 91 15 8f c9 86 4e f9 cb 12 f0 | ......Ua.^..n.6~.$.o.......N.... |
| 238960 | f5 6e d6 50 dc 07 8d d9 af 3e 29 f6 7d d0 12 53 69 51 ce 15 7a 1e 7e f1 c9 a5 c4 51 a8 c9 7b 2b | .n.P.....>).}..SiQ..z.~....Q..{+ |
| 238980 | e9 26 d3 ac 99 14 2f ce 32 7c 57 0d 52 46 3f f8 0c 5b 91 49 d5 54 61 bd a0 09 f5 92 ae 9e 26 53 | .&..../.2|W.RF?..[.I.Ta.......&S |
| 2389a0 | 02 11 25 80 d8 36 80 f3 1c 22 c1 bc d6 8c 42 73 95 a2 9d ea df ae f4 8d aa 68 f6 47 9a 39 47 c1 | ..%..6..."....Bs.........h.G.9G. |
| 2389c0 | 93 e8 4b 32 53 aa 92 11 1f 4d 77 85 dc e8 52 b6 5f 67 e8 ee e4 46 41 2f 9f 55 ec c8 0d b2 c9 e1 | ..K2S....Mw...R._g...FA/.U...... |
| 2389e0 | 81 98 dc 47 9e 00 4a 82 d8 6d ab ce 60 a3 a0 7a 02 e5 a3 62 0a 1d ed 42 9e 45 86 f6 37 fa 6f 26 | ...G..J..m..`..z...b...B.E..7.o& |
| 238a00 | 59 35 e0 ce 74 07 73 94 35 be 83 65 57 ea 64 c9 0e 12 22 91 b9 c9 cd 42 c8 d9 9f 0b 72 1e aa e6 | Y5..t.s.5..eW.d..."....B....r... |
| 238a20 | 89 28 e3 9c 53 4a 04 3c 02 50 5a 5c 5f d9 e7 e4 59 4b 7e 3a f0 50 d4 dd 44 59 b0 5f 95 20 9f be | .(..SJ.<.PZ\_...YK~:.P..DY._.... |
| 238a40 | 6c 75 e5 33 98 f6 2b 29 e6 73 33 f7 c1 f2 c7 b1 17 41 18 35 24 d3 8c 68 aa fe f6 90 e8 4b d5 48 | lu.3..+).s3......A.5$..h.....K.H |
| 238a60 | 10 8c b6 f8 30 c8 a7 9b 8c 86 c1 c4 3a 8d 78 29 ba b5 b4 63 b6 65 dd 26 f9 55 cd f5 74 b8 e6 80 | ....0.......:.x)...c.e.&.U..t... |
| 238a80 | fc f0 be 75 42 fa e7 e0 09 e7 6e de 5c 8c af 77 41 06 4c 4c 99 e0 89 f5 32 30 9e ee 93 d5 3b fc | ...uB.....n.\..wA.LL....20....;. |
| 238aa0 | db a6 61 ba 7b d8 02 2b 84 37 f2 bd b3 1c a9 ae 6b f1 ea 32 19 e4 58 cc 4a 88 b3 54 ab a3 de 96 | ..a.{..+.7......k..2..X.J..T.... |
| 238ac0 | 05 71 ca 87 92 f1 76 d2 11 8b 39 9b b1 10 89 0d 3b 1f d4 af 14 5f 9c 2d 84 4e 5d 75 63 da 9b 5a | .q....v...9.....;...._.-.N]uc..Z |
| 238ae0 | 06 be b0 17 a6 8d e9 4a 57 ed b8 c1 96 0f 73 e8 69 cd 7a 8f e3 bc c6 fa d2 7f d1 bd d7 d8 ff e4 | .......JW.....s.i.z............. |
| 238b00 | 56 1a 93 d6 b4 a6 ee 62 30 8c 47 b5 ca 11 41 2e 08 c6 bb ad 5f 33 11 31 94 9d d6 b3 75 b1 f5 69 | V......b0.G...A....._3.1....u..i |
| 238b20 | 6f 37 83 d9 4b 9c e7 41 50 46 c2 ee 81 b7 3f 64 12 93 dd db 92 99 e6 9d cf 53 84 1d be 43 2b 20 | o7..K..APF....?d.........S...C+. |
| 238b40 | ab e2 cf 7a 8d 4c 11 8f 26 3c 11 97 f5 de 20 e5 77 97 f9 5d 7d f4 85 8f cf d7 c1 43 74 d2 48 fa | ...z.L..&<......w..]}......Ct.H. |
| 238b60 | 80 57 b7 6c 1d ce 1b b0 14 15 68 c4 89 d5 e3 6e 7b 38 03 34 be a3 bd 4d af 6c 9c b0 3a 76 eb 13 | .W.l......h....n{8.4...M.l..:v.. |
| 238b80 | dc f6 36 03 3c 0d cc e5 f8 ba a2 10 51 de d4 53 ea e9 9b 54 b8 cb bc ae 8a 84 cf e0 2b c3 c4 c2 | ..6.<.......Q..S...T........+... |
| 238ba0 | c4 14 a3 60 41 0e e8 ab f1 08 6a 1a 90 4d 3f a0 d5 30 c8 78 ef e0 fb 21 88 b0 df 3e 2b 08 98 9d | ...`A.....j..M?..0.x...!...>+... |
| 238bc0 | 6e 12 04 9f cf 6e ae 80 80 b6 e2 e8 11 76 b5 07 d8 28 53 9d 22 c5 b8 56 6c 38 11 39 bd d8 b7 f3 | n....n.......v...(S."..Vl8.9.... |
| 238be0 | 46 8e ef e4 79 b9 b5 ec 77 0f ad 8c 1e 59 f9 f9 f9 a0 5b a9 cd 4b 8e 57 0b 15 46 c5 97 23 e0 35 | F...y...w....Y....[..K.W..F..#.5 |
| 238c00 | c5 c1 fc b4 d0 ec 55 86 0a 86 7e 6c 21 6a 52 10 f5 09 6d f8 6c 2d 95 f3 40 d0 84 d5 3e e1 a7 54 | ......U...~l!jR...m.l-..@...>..T |
| 238c20 | f6 bb 7a d7 42 eb 65 6e 5b c5 97 cf c0 ff c3 17 da ff 2f f0 ff 44 01 63 6b 30 c8 c1 09 62 03 72 | ..z.B.en[........./..D.ck0...b.r |
| 238c40 | b0 42 fb 5f f8 26 58 4d 65 6e 64 73 74 72 65 61 6d 0a 65 6e 64 6f 62 6a 0a 31 36 20 30 20 6f 62 | .B._.&XMendstream.endobj.16.0.ob |
| 238c60 | 6a 20 3c 3c 0a 2f 54 79 70 65 20 2f 46 6f 6e 74 0a 2f 53 75 62 74 79 70 65 20 2f 54 79 70 65 31 | j.<<./Type./Font./Subtype./Type1 |
| 238c80 | 0a 2f 45 6e 63 6f 64 69 6e 67 20 32 39 20 30 20 52 0a 2f 46 69 72 73 74 43 68 61 72 20 31 31 0a | ./Encoding.29.0.R./FirstChar.11. |
| 238ca0 | 2f 4c 61 73 74 43 68 61 72 20 31 32 32 0a 2f 57 69 64 74 68 73 20 33 30 20 30 20 52 0a 2f 42 61 | /LastChar.122./Widths.30.0.R./Ba |
| 238cc0 | 73 65 46 6f 6e 74 20 2f 48 4b 55 46 4b 53 2b 43 4d 52 31 30 0a 2f 46 6f 6e 74 44 65 73 63 72 69 | seFont./HKUFKS+CMR10./FontDescri |
| 238ce0 | 70 74 6f 72 20 31 34 20 30 20 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 31 34 20 30 20 6f 62 6a 20 3c | ptor.14.0.R.>>.endobj.14.0.obj.< |
| 238d00 | 3c 0a 2f 41 73 63 65 6e 74 20 36 39 34 0a 2f 43 61 70 48 65 69 67 68 74 20 36 38 33 0a 2f 44 65 | <./Ascent.694./CapHeight.683./De |
| 238d20 | 73 63 65 6e 74 20 2d 31 39 34 0a 2f 46 6f 6e 74 4e 61 6d 65 20 2f 48 4b 55 46 4b 53 2b 43 4d 52 | scent.-194./FontName./HKUFKS+CMR |
| 238d40 | 31 30 0a 2f 49 74 61 6c 69 63 41 6e 67 6c 65 20 30 0a 2f 53 74 65 6d 56 20 36 39 0a 2f 58 48 65 | 10./ItalicAngle.0./StemV.69./XHe |
| 238d60 | 69 67 68 74 20 34 33 31 0a 2f 46 6f 6e 74 42 42 6f 78 20 5b 2d 32 35 31 20 2d 32 35 30 20 31 30 | ight.431./FontBBox.[-251.-250.10 |
| 238d80 | 30 39 20 39 36 39 5d 0a 2f 46 6c 61 67 73 20 34 0a 2f 43 68 61 72 53 65 74 20 28 2f 66 66 2f 66 | 09.969]./Flags.4./CharSet.(/ff/f |
| 238da0 | 69 2f 61 6d 70 65 72 73 61 6e 64 2f 70 61 72 65 6e 6c 65 66 74 2f 70 61 72 65 6e 72 69 67 68 74 | i/ampersand/parenleft/parenright |
| 238dc0 | 2f 63 6f 6d 6d 61 2f 68 79 70 68 65 6e 2f 6f 6e 65 2f 45 2f 47 2f 49 2f 4c 2f 4e 2f 50 2f 52 2f | /comma/hyphen/one/E/G/I/L/N/P/R/ |
| 238de0 | 53 2f 54 2f 61 2f 62 2f 63 2f 64 2f 65 2f 66 2f 67 2f 68 2f 69 2f 6b 2f 6c 2f 6d 2f 6e 2f 6f 2f | S/T/a/b/c/d/e/f/g/h/i/k/l/m/n/o/ |
| 238e00 | 70 2f 71 2f 72 2f 73 2f 74 2f 75 2f 76 2f 77 2f 78 2f 79 2f 7a 29 0a 2f 46 6f 6e 74 46 69 6c 65 | p/q/r/s/t/u/v/w/x/y/z)./FontFile |
| 238e20 | 20 31 35 20 30 20 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 33 30 20 30 20 6f 62 6a 0a 5b 35 38 33 20 | .15.0.R.>>.endobj.30.0.obj.[583. |
| 238e40 | 35 35 36 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 | 556.0.0.0.0.0.0.0.0.0.0.0.0.0.0. |
| 238e60 | 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 37 37 38 20 30 20 33 38 39 20 | 0.0.0.0.0.0.0.0.0.0.0.778.0.389. |
| 238e80 | 33 38 39 20 30 20 30 20 32 37 38 20 33 33 33 20 30 20 30 20 30 20 35 30 30 20 30 20 30 20 30 20 | 389.0.0.278.333.0.0.0.500.0.0.0. |
| 238ea0 | 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 | 0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0. |
| 238ec0 | 36 38 31 20 30 20 37 38 35 20 30 20 33 36 31 20 30 20 30 20 36 32 35 20 30 20 37 35 30 20 30 20 | 681.0.785.0.361.0.0.625.0.750.0. |
| 238ee0 | 36 38 31 20 30 20 37 33 36 20 35 35 36 20 37 32 32 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 | 681.0.736.556.722.0.0.0.0.0.0.0. |
| 238f00 | 30 20 30 20 30 20 30 20 30 20 35 30 30 20 35 35 36 20 34 34 34 20 35 35 36 20 34 34 34 20 33 30 | 0.0.0.0.0.500.556.444.556.444.30 |
| 238f20 | 36 20 35 30 30 20 35 35 36 20 32 37 38 20 30 20 35 32 38 20 32 37 38 20 38 33 33 20 35 35 36 20 | 6.500.556.278.0.528.278.833.556. |
| 238f40 | 35 30 30 20 35 35 36 20 35 32 38 20 33 39 32 20 33 39 34 20 33 38 39 20 35 35 36 20 35 32 38 20 | 500.556.528.392.394.389.556.528. |
| 238f60 | 37 32 32 20 35 32 38 20 35 32 38 20 34 34 34 20 5d 0a 65 6e 64 6f 62 6a 0a 32 39 20 30 20 6f 62 | 722.528.528.444.].endobj.29.0.ob |
| 238f80 | 6a 20 3c 3c 0a 2f 54 79 70 65 20 2f 45 6e 63 6f 64 69 6e 67 0a 2f 44 69 66 66 65 72 65 6e 63 65 | j.<<./Type./Encoding./Difference |
| 238fa0 | 73 20 5b 20 30 20 2f 2e 6e 6f 74 64 65 66 20 31 31 2f 66 66 2f 66 69 20 31 33 2f 2e 6e 6f 74 64 | s.[.0./.notdef.11/ff/fi.13/.notd |
| 238fc0 | 65 66 20 33 38 2f 61 6d 70 65 72 73 61 6e 64 20 33 39 2f 2e 6e 6f 74 64 65 66 20 34 30 2f 70 61 | ef.38/ampersand.39/.notdef.40/pa |
| 238fe0 | 72 65 6e 6c 65 66 74 2f 70 61 72 65 6e 72 69 67 68 74 20 34 32 2f 2e 6e 6f 74 64 65 66 20 34 34 | renleft/parenright.42/.notdef.44 |
| 239000 | 2f 63 6f 6d 6d 61 2f 68 79 70 68 65 6e 20 34 36 2f 2e 6e 6f 74 64 65 66 20 34 39 2f 6f 6e 65 20 | /comma/hyphen.46/.notdef.49/one. |
| 239020 | 35 30 2f 2e 6e 6f 74 64 65 66 20 36 39 2f 45 20 37 30 2f 2e 6e 6f 74 64 65 66 20 37 31 2f 47 20 | 50/.notdef.69/E.70/.notdef.71/G. |
| 239040 | 37 32 2f 2e 6e 6f 74 64 65 66 20 37 33 2f 49 20 37 34 2f 2e 6e 6f 74 64 65 66 20 37 36 2f 4c 20 | 72/.notdef.73/I.74/.notdef.76/L. |
| 239060 | 37 37 2f 2e 6e 6f 74 64 65 66 20 37 38 2f 4e 20 37 39 2f 2e 6e 6f 74 64 65 66 20 38 30 2f 50 20 | 77/.notdef.78/N.79/.notdef.80/P. |
| 239080 | 38 31 2f 2e 6e 6f 74 64 65 66 20 38 32 2f 52 2f 53 2f 54 20 38 35 2f 2e 6e 6f 74 64 65 66 20 39 | 81/.notdef.82/R/S/T.85/.notdef.9 |
| 2390a0 | 37 2f 61 2f 62 2f 63 2f 64 2f 65 2f 66 2f 67 2f 68 2f 69 20 31 30 36 2f 2e 6e 6f 74 64 65 66 20 | 7/a/b/c/d/e/f/g/h/i.106/.notdef. |
| 2390c0 | 31 30 37 2f 6b 2f 6c 2f 6d 2f 6e 2f 6f 2f 70 2f 71 2f 72 2f 73 2f 74 2f 75 2f 76 2f 77 2f 78 2f | 107/k/l/m/n/o/p/q/r/s/t/u/v/w/x/ |
| 2390e0 | 79 2f 7a 20 31 32 33 2f 2e 6e 6f 74 64 65 66 5d 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 33 31 20 30 20 | y/z.123/.notdef].>>.endobj.31.0. |
| 239100 | 6f 62 6a 20 3c 3c 0a 2f 4c 65 6e 67 74 68 20 31 38 39 20 20 20 20 20 20 20 0a 2f 46 69 6c 74 65 | obj.<<./Length.189......../Filte |
| 239120 | 72 20 2f 46 6c 61 74 65 44 65 63 6f 64 65 0a 3e 3e 0a 73 74 72 65 61 6d 0a 78 da 5d 8f b1 0a c2 | r./FlateDecode.>>.stream.x.].... |
| 239140 | 40 0c 86 53 3a 08 59 fa 08 cd 0b e8 f5 52 d0 ba 28 d4 0a de 20 e8 e4 20 4e ea e8 a0 e8 26 c5 47 | @..S:.Y......R..(.......N....&.G |
| 239160 | eb a3 f8 08 8e 1d 3a 98 1e ed d9 0a df 70 24 f9 fe e4 e2 c9 48 53 44 53 1a b2 a6 98 69 cc 74 d2 | ......:......p$.....HSDS....i.t. |
| 239180 | 78 45 66 a9 46 94 c4 4d eb 78 c1 d4 a0 da 11 33 aa 95 d4 51 99 35 dd 6f 8f 33 aa 74 b3 20 8d 2a | xEf.F..M.x.....3...Q.5.o.3.t...* |
| 2391a0 | a3 bd 44 1d d0 64 04 90 00 3c 2d 15 40 09 9e f0 a9 f1 85 37 0c 84 02 02 e1 55 13 0a 00 73 80 19 | ..D..d...<-.@......7.....U...s.. |
| 2391c0 | 40 fe 93 9c d7 95 9c d7 95 fe bc ca be f3 b6 25 33 32 19 da 55 41 d1 84 48 9a 64 fa f6 28 af 6c | @..............%32..UA..H.d..(.l |
| 2391e0 | d6 f5 cc 9e e6 cc ae e6 cc aa fd 6c 82 4b 83 5b fc 02 ab 75 4a 5d 65 6e 64 73 74 72 65 61 6d 0a | ...........l.K.[...uJ]endstream. |
| 239200 | 65 6e 64 6f 62 6a 0a 33 32 20 30 20 6f 62 6a 20 3c 3c 0a 2f 4c 65 6e 67 74 68 20 31 38 36 20 20 | endobj.32.0.obj.<<./Length.186.. |
| 239220 | 20 20 20 20 20 0a 2f 46 69 6c 74 65 72 20 2f 46 6c 61 74 65 44 65 63 6f 64 65 0a 3e 3e 0a 73 74 | ....../Filter./FlateDecode.>>.st |
| 239240 | 72 65 61 6d 0a 78 da 5d 8f 31 0a c2 40 10 45 47 2c 84 69 3c 42 e6 02 ba d9 15 35 55 84 18 c1 2d | ream.x.].1..@.EG,.i<B.....5U...- |
| 239260 | 04 ad 2c c4 4a 2d 05 15 ed 82 78 34 8f e2 11 2c 2d 52 f8 dd e8 b2 06 5e b1 cc fc f7 97 e9 0d bb | ..,.J-....x4...,-R.....^........ |
| 239280 | 5a 62 e9 4b c7 68 31 89 0c 8c 6c 35 1f d9 18 4c 63 49 7a df d5 66 cf 99 65 b5 14 63 58 4d 31 67 | Zb.K.h1...l5...LcIz..f..e..cXM1g |
| 2392a0 | 65 67 72 3e 5d 76 ac b2 f9 58 34 ab 5c 56 a8 5a b3 cd e5 40 f4 72 94 44 05 d1 95 28 75 8c 88 22 | egr>]v...X4.\V.Z...@.r.D...(u.." |
| 2392c0 | 70 a3 36 b8 53 ab e2 41 4d f0 a4 06 08 35 6f fe 69 de 0c b5 9a 59 7e de 98 54 2b 64 90 44 1e 16 | p.6.S..AM....5o.i....Y~..T+d.D.. |
| 2392e0 | dc aa 04 6d 91 6b 4e dd 2f 45 dd 0b 25 ef 85 92 f7 ca df b1 b8 9a 27 96 17 fc 06 26 52 4b 46 65 | ...m.kN./E..%.........'....&RKFe |
| 239300 | 6e 64 73 74 72 65 61 6d 0a 65 6e 64 6f 62 6a 0a 31 33 20 30 20 6f 62 6a 20 3c 3c 0a 2f 54 79 70 | ndstream.endobj.13.0.obj.<<./Typ |
| 239320 | 65 20 2f 46 6f 6e 74 0a 2f 53 75 62 74 79 70 65 20 2f 54 79 70 65 33 0a 2f 4e 61 6d 65 20 2f 46 | e./Font./Subtype./Type3./Name./F |
| 239340 | 31 38 0a 2f 46 6f 6e 74 4d 61 74 72 69 78 20 5b 30 2e 30 31 32 30 35 20 30 20 30 20 30 2e 30 31 | 18./FontMatrix.[0.01205.0.0.0.01 |
| 239360 | 32 30 35 20 30 20 30 5d 0a 2f 46 6f 6e 74 42 42 6f 78 20 5b 20 35 20 2d 32 31 20 33 32 20 36 32 | 205.0.0]./FontBBox.[.5.-21.32.62 |
| 239380 | 20 5d 0a 2f 52 65 73 6f 75 72 63 65 73 20 3c 3c 20 2f 50 72 6f 63 53 65 74 20 5b 20 2f 50 44 46 | .]./Resources.<<./ProcSet.[./PDF |
| 2393a0 | 20 2f 49 6d 61 67 65 42 20 5d 20 3e 3e 0a 2f 46 69 72 73 74 43 68 61 72 20 36 30 0a 2f 4c 61 73 | ./ImageB.].>>./FirstChar.60./Las |
| 2393c0 | 74 43 68 61 72 20 36 32 0a 2f 57 69 64 74 68 73 20 33 33 20 30 20 52 0a 2f 45 6e 63 6f 64 69 6e | tChar.62./Widths.33.0.R./Encodin |
| 2393e0 | 67 20 33 34 20 30 20 52 0a 2f 43 68 61 72 50 72 6f 63 73 20 33 35 20 30 20 52 0a 3e 3e 20 65 6e | g.34.0.R./CharProcs.35.0.R.>>.en |
| 239400 | 64 6f 62 6a 0a 33 33 20 30 20 6f 62 6a 0a 5b 33 37 2e 31 20 30 20 33 37 2e 31 20 5d 0a 65 6e 64 | dobj.33.0.obj.[37.1.0.37.1.].end |
| 239420 | 6f 62 6a 0a 33 34 20 30 20 6f 62 6a 20 3c 3c 0a 2f 54 79 70 65 20 2f 45 6e 63 6f 64 69 6e 67 0a | obj.34.0.obj.<<./Type./Encoding. |
| 239440 | 2f 44 69 66 66 65 72 65 6e 63 65 73 20 5b 36 30 2f 61 36 30 20 36 31 2f 2e 6e 6f 74 64 65 66 20 | /Differences.[60/a60.61/.notdef. |
| 239460 | 36 32 2f 61 36 32 5d 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 33 35 20 30 20 6f 62 6a 20 3c 3c 0a 2f 61 | 62/a62].>>.endobj.35.0.obj.<<./a |
| 239480 | 36 30 20 33 31 20 30 20 52 0a 2f 61 36 32 20 33 32 20 30 20 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a | 60.31.0.R./a62.32.0.R.>>.endobj. |
| 2394a0 | 31 31 20 30 20 6f 62 6a 20 3c 3c 0a 2f 4c 65 6e 67 74 68 31 20 31 33 38 35 0a 2f 4c 65 6e 67 74 | 11.0.obj.<<./Length1.1385./Lengt |
| 2394c0 | 68 32 20 38 32 31 36 0a 2f 4c 65 6e 67 74 68 33 20 35 33 32 0a 2f 4c 65 6e 67 74 68 20 39 30 35 | h2.8216./Length3.532./Length.905 |
| 2394e0 | 34 20 20 20 20 20 20 0a 2f 46 69 6c 74 65 72 20 2f 46 6c 61 74 65 44 65 63 6f 64 65 0a 3e 3e 0a | 4......./Filter./FlateDecode.>>. |
| 239500 | 73 74 72 65 61 6d 0a 78 da ed 94 55 5c 5b db da af 71 28 ee 45 4b 28 52 34 b8 16 28 ee ee 6e 21 | stream.x...U\[...q(.EK(R4..(..n! |
| 239520 | 38 04 09 12 68 b1 02 c5 dd dd b5 38 c5 29 5a dc 8a 7b a1 14 6b 69 71 b7 93 b5 f6 b7 57 7b f6 be | 8...h......8.)Z..{..kiq.....W{.. |
| 239540 | 3c e7 ea fc 4e 92 8b f9 bc 63 8c ff 78 e6 3b e6 0c 03 ad ba 16 bb 84 15 c4 12 2c 0b 71 86 b2 73 | <...N....c..x.;...........,.q..s |
| 239560 | 01 b9 84 01 52 2a 92 fa 5c 9c 00 2e 20 27 a7 24 26 03 83 94 1b d8 02 6a 07 71 96 b6 80 82 85 01 | ....R*..\....'.$&......j.q...... |
| 239580 | 5c 42 42 dc 00 59 b0 25 fc 02 fe 13 e6 e3 15 e6 e4 c7 64 00 48 41 5c 60 6e 76 36 b6 50 00 93 14 | \BB..Y.%..........d.HA\`nv6.P... |
| 2395a0 | f3 5f 93 04 00 12 4e 60 37 3b 90 85 33 40 c5 02 6a 0b 76 82 67 80 2c 1c 01 5a 10 90 1d 18 0a 03 | ._....N`7;..3@..j.v.g.,..Z...... |
| 2395c0 | 02 24 1c 1d 01 9a 7f ad 70 07 68 82 dd c1 6e 9e 60 2b 20 26 17 17 c0 ca 0e 04 05 58 82 6d ec 9c | .$......p.h...n.`+.&.......X.m.. |
| 2395e0 | 31 39 fe 72 52 70 b6 86 00 04 fe 55 b6 f2 70 f9 f7 90 27 d8 cd 1d 2e 05 60 fa 5b 93 19 00 97 b4 | 19.rRp.....U..p...'.....`.[..... |
| 239600 | 82 38 3b c2 00 56 60 6b 4c 0e 55 08 7c 37 30 dc e5 ff 86 d6 7f 86 cb 7a 38 3a aa 5a 38 fd 15 ff | .8;..V`kL.U.|70........z8:.Z8... |
| 239620 | 77 a7 fe 6b dc c2 c9 ce 11 f6 3f 33 20 4e 2e 1e 50 b0 1b 40 05 62 05 76 73 fe cf a9 7a e0 7f c9 | w..k......?3.N..P..@.b.vs...z... |
| 239640 | 49 42 1c ff 6b 1b 05 a8 85 a3 1d 48 c2 d9 c6 11 0c e0 fc 57 c9 ce 5d d6 ce 1b 6c a5 6e 07 05 d9 | IB..k......H.......W..]...l.n... |
| 239660 | 02 ac 2d 1c dd c1 7f d7 c1 ce 56 ff a9 00 6f dc df 02 1c 72 06 32 9a d2 0a ac ff 73 a6 7f 0f aa | ..-.......V...o....r.2.....s.... |
| 239680 | 5b d8 39 43 b5 61 2e ff c4 fe 35 fb 6f e6 fa cd f0 ee b8 d9 79 03 8c 38 e1 ed e5 82 4f 84 7f ff | [.9C.a....5.o.......y..8....O... |
| 2396a0 | 7d 65 f2 1f 9b c9 38 83 20 56 76 ce 36 00 6e 3e 7e 80 85 9b 9b 05 0c 13 fe f4 c0 89 0f e0 cb 05 | }e....8..Vv.6.n>~............... |
| 2396c0 | b0 73 b6 02 7b 03 c0 de 70 63 0e a0 33 04 0a 5f 02 80 b7 e4 0d c0 1a e2 86 f9 d7 81 72 71 03 38 | .s..{...pc..3.._............rq.8 |
| 2396e0 | ac ed fe aa fd 8d bc 70 b4 70 87 b7 cc ce dd e1 77 91 17 c0 01 82 38 39 59 fc ae f0 01 38 6c 61 | .......p.p......w.....89Y....8la |
| 239700 | 2e b6 60 e7 df 25 7e 00 87 0b 7c 1d c4 ea 9f 12 df 5f d9 10 0f b7 df 05 9e bf 36 f3 04 ff 2e 08 | ..`..%~...|......_........6..... |
| 239720 | fe 95 ec 08 f9 1d c3 2f 00 e0 90 fa 4d f0 71 e9 df 24 04 e0 90 f9 87 04 38 01 1c b2 bf 09 1e ad | ......./....M.q..$......8....... |
| 239740 | f0 9b e0 29 2a ff 90 20 dc 43 f3 37 c1 ef 46 fb 1f 12 82 af b3 74 b3 00 39 80 a1 ff 7a 54 ff 19 | ...)*....C.7..F......t..9...zT.. |
| 239760 | 80 47 fc be 61 21 b8 88 e5 6f 82 8b 80 fe 21 2e 4e b8 89 d5 1f c8 05 e0 00 ff 81 7f 75 e1 0f 84 | .G..a!...o....!.N...........u... |
| 239780 | 6f 68 f3 07 c2 6d 6c ff 40 78 63 ed fe 40 b8 84 c3 1f 08 b7 70 fc 03 e1 1a 4e bf 11 fe 84 71 38 | oh...ml.@xc..@......p....N....q8 |
| 2397a0 | ff 81 70 0d c8 1f 08 d7 70 f9 03 e1 1a ae 7f 20 5c c3 ed 0f 84 6b b8 ff 81 f0 b3 85 fe 81 70 2b | ..p.....p.......\....k........p+ |
| 2397c0 | 8f 3f 10 ae e1 f5 1b b9 e1 1a de 7f 20 5c 03 f6 07 c2 35 7c fe c0 bf 92 ed 1c ad fe d5 af ff 7e | .?...........\....5|...........~ |
| 2397e0 | 8d 24 25 21 de be ec 3c f0 96 b2 73 f3 71 fe 65 c2 0b 10 e2 e5 7f f3 bf cd 04 79 b8 b9 81 9d a1 | .$%!...<...s.q.e..........y..... |
| 239800 | 7f ff 49 c1 df c6 7f b3 b5 1d fc dd 05 83 bd c1 20 cc a5 79 08 e8 65 b0 7d 6a 53 68 b9 9f 4c e1 | ..I................y..e.}jSh..L. |
| 239820 | 54 05 2a 0b a2 a4 4d 73 9c 6a 43 f7 4c 27 d6 db c5 78 44 c7 92 11 25 57 96 f5 7a fd 9b ca 0c 22 | T.*...Ms.jC.L'...xD...%W..z...." |
| 239840 | dc 1d d4 1d 1a af 3b 4a f7 88 8e d7 1a e3 b2 87 81 ae 71 69 73 0f 3b 9e e6 3b 19 3e ad 94 fa 27 | ......;J..........qis.;..;.>...' |
| 239860 | 19 2a b0 6d 97 e7 97 6f 7f e0 b5 37 cd 9e 1d f0 21 aa 4d af 8f 96 27 19 14 7d ca 3e 1a f8 91 af | .*.m...o...7....!.M...'..}.>.... |
| 239880 | ce 24 ad bd 8b be 4a 8b d0 63 e4 d9 d8 93 19 cc 2f a0 2f 9b e1 a8 f3 2e a4 9e 91 87 56 13 3f cd | .$....J..c.....././.........V.?. |
| 2398a0 | b5 3c 8c f7 dd 9a 17 7e 52 02 ca da e4 5b 3f fb 77 18 2d ac 2b c7 90 0e 0f c2 9b 42 8c bc c4 07 | .<.....~R....[?.w.-.+......B.... |
| 2398c0 | 33 84 6b 10 5a 64 a4 3b 45 d8 02 14 0b 67 f9 27 e5 ab a0 37 ad 5f 1a 05 d8 85 f8 7a 43 b7 72 76 | 3.k.Zd.;E....g.'...7._.....zC.rv |
| 2398e0 | df e7 36 95 7f 98 50 e1 a8 a6 ec de 36 dc 60 bd 93 95 f2 f6 6a bd 30 a6 db 6a 6b 7c 76 b3 25 bd | ..6...P.....6.`.....j.0..jk|v.%. |
| 239900 | 36 5c 49 29 32 da 6d 11 14 b7 28 3a a8 7b 3d f7 f1 61 94 8c bd 76 2b 3d f5 c4 6a 16 a3 13 1d 02 | 6\I)2.m...(:.{=..a...v+=..j..... |
| 239920 | 2e c6 f5 4b 1a 1e 8a 0e ce a8 df 07 a0 4e 16 92 be 1f 8f 7f d4 54 ac 72 b3 ac 43 d6 f8 84 db 36 | ...K.........N.......T.r..C....6 |
| 239940 | 15 db 38 ae 33 bd 65 77 b1 c7 3f c4 66 40 8a b6 b9 3d f8 6a fd 55 e1 c8 b4 db c0 6b c7 2e a9 26 | ..8.3.ew..?.f@...=.j.U.....k...& |
| 239960 | c8 b7 16 9b 37 35 bf f2 13 c2 24 a3 d1 1f ea ce 10 28 2b 6c 7d aa 9c 56 be 71 bb aa c2 b2 6e 14 | ....75....$......(+l}..V.q....n. |
| 239980 | 16 f3 f3 99 4e 81 91 4c a8 f4 1d 01 12 c7 3b aa 13 e2 5a fd b9 98 07 76 19 1e 2d 2f 10 80 b9 c9 | ....N..L......;...Z....v..-/.... |
| 2399a0 | 41 4e 0d 17 52 3c b1 21 01 04 08 31 3c 11 e1 71 80 14 5a cf 49 eb 12 a0 f0 21 8a 53 fc 50 d4 bb | AN..R<.!...1<..q..Z.I....!.S.P.. |
| 2399c0 | f5 5a 91 9d b1 2f 6a 4d 1a e9 78 b8 a1 9f a1 4f 8e 69 bd 44 6d bd be 20 84 7c a9 b7 2b ec f6 29 | .Z.../jM..x....O.i.Dm....|..+..) |
| 2399e0 | b1 46 21 ef c4 c3 3d fd 24 5a c0 15 99 1f 8a d9 a0 ca d4 36 b0 c7 be 42 25 b5 0d 10 1e fe 92 e0 | .F!...=.$Z.........6...B%....... |
| 239a00 | f5 24 16 28 d9 7d d9 89 3c b0 84 65 99 bd ef c5 49 6f 14 13 13 8e dc fa 5c 3d 0d 3d 4b a7 d0 4f | .$.(.}..<..e....Io......\=.=K..O |
| 239a20 | d5 a0 9a 25 87 bf 89 37 b7 a0 3b b3 ee fc 4c 4a 4c f5 70 d0 f4 55 1a e7 0f 0c 53 3f c8 47 46 eb | ...%...7..;...LJL.p..U....S?.GF. |
| 239a40 | f7 86 42 51 ec 27 4c 68 2c 93 b9 23 ba ba 42 98 24 6f 5f 2b a6 1f 08 88 2f ba 4f 1e 02 e9 23 a5 | ..BQ.'Lh,..#..B.$o_+..../.O...#. |
| 239a60 | 47 88 64 13 4b 83 0c 54 a6 ec 58 55 ba 68 48 fb c7 0f 4a 12 fa 71 a5 ef 3f 5e a2 e0 13 90 75 68 | G.d.K..T..XU.hH...J..q..?^....uh |
| 239a80 | e9 19 9d bc e0 da bd 74 85 f1 56 b9 1a f6 bd 34 e1 87 35 07 0f 8b cb ee 8c 8b 60 2e e2 7e be d0 | .......t..V....4..5.......`..~.. |
| 239aa0 | 65 ac 53 e5 99 5c 76 ae 0f 32 e9 97 be b1 7c 62 61 d4 1d e8 fe 48 86 da 79 37 a2 44 70 8e e3 30 | e.S..\v..2....|ba....H..y7.Dp..0 |
| 239ac0 | fb f6 3e 54 e8 7a 6f 8a de 48 56 14 9c 77 cc c6 38 54 f6 8b 19 df c3 33 a5 ef 98 4b 7a f1 bb ae | ..>T.zo..HV..w..8T.....3...Kz... |
| 239ae0 | 42 a0 7d 95 45 b9 42 5f 29 5d e5 87 90 74 d4 c4 13 4c be 71 07 3f bc bc aa 10 8d 89 6f 34 16 09 | B.}.E.B_)]...t...L.q.?......o4.. |
| 239b00 | 2a 7d f6 b2 8a f8 f9 75 ca 3c 37 b7 28 a1 40 ce 01 47 ca 4f ba 60 27 f4 a5 97 51 38 06 ce f8 39 | *}.....u.<7.(.@..G.O.`'...Q8...9 |
| 239b20 | 5f eb 2a 1a 61 97 37 85 9a b0 aa 46 db 12 fa 8f 8c 73 2f ba ce 7f 6e d8 18 c4 50 46 7a 93 c5 16 | _.*.a.7....F.....s/...n...PFz... |
| 239b40 | 75 dc 62 69 d8 b1 a3 d7 7e 6c 4f c4 86 3c 49 6d 14 f8 fa 89 f2 9d 83 45 31 a8 c0 46 88 bb 17 45 | u.bi....~lO..<Im.......E1..F...E |
| 239b60 | 9f e7 a6 d0 a4 9e 65 9d 10 9f 8e 6f 6e d5 5d 71 eb bd e9 2f 6b fd 85 84 1f 96 44 cf a8 6f 8b 24 | ......e....on.]q.../k.....D..o.$ |
| 239b80 | ce c5 1e e3 68 97 66 fb e3 4f 1c f6 ce 95 2d 48 8d ab bc a2 f6 ec 8c 7f d5 b8 6c d5 63 5b cd f6 | ....h.f..O....-H..........l.c[.. |
| 239ba0 | 36 28 62 28 e9 b9 b4 d5 97 43 f7 d2 2e 58 1f e2 8e b9 0b fd d8 47 d4 a4 36 45 eb 44 92 be 94 1d | 6(b(.....C...X.......G..6E.D.... |
| 239bc0 | 7c 6d 16 90 7f 51 4d 1a ca 7b 83 e0 1f 1e 58 95 27 3b 31 23 1d 79 a6 75 b7 54 74 9c 74 63 15 9b | |m...QM..{....X.';1#.y.u.Tt.tc.. |
| 239be0 | db 9d fa 94 b7 dd 6e d4 83 37 22 6c 8c 9f e6 c8 39 4d 39 b4 06 b7 88 79 b9 38 20 6a 82 fb 09 fd | ......n..7"l....9M9....y.8.j.... |
| 239c00 | a2 46 a0 00 66 e5 4f 29 39 2f bb 4e cf 4c 81 57 49 4f 6b 44 a9 6b a6 75 c9 33 d5 c9 45 57 4b c2 | .F..f.O)9/.N.L.WIOkD.k.u.3..EWK. |
| 239c20 | cf 63 fb 30 f5 2d 17 3c 83 94 17 2c bd f0 b1 f3 eb 45 6e 56 7a 4f f2 d4 df 7b 2e 6a 0d 2e ab d2 | .c.0.-.<...,.....EnVzO...{.j.... |
| 239c40 | 78 67 65 cc 7b f9 97 c5 99 27 fb db 16 01 e7 56 23 2d 87 3f 9b 10 3b d0 c0 64 a3 89 d4 a5 2d 35 | xge.{....'.....V#-.?..;..d....-5 |
| 239c60 | ad b7 23 33 df 47 62 5f 1f 8d 63 b8 bc c0 c3 13 3f ec 79 e9 74 db 37 1d 52 94 bb 91 f6 7a e5 9d | ..#3.Gb_..c.....?.y.t.7.R....z.. |
| 239c80 | 4d bf e5 80 10 69 69 9a fa ec 58 7b 86 f5 9a ef f2 72 4d 8c 9f 52 45 eb ba ce 10 bf 83 b7 16 73 | M....ii...X{.....rM..RE........s |
| 239ca0 | f6 a3 c1 47 7b d6 94 ed 54 76 41 b9 b6 0a 83 25 31 6e 9b 9f 9d d5 7c 0d 82 a6 73 35 4c f5 69 91 | ...G{...TvA....%1n....|...s5L.i. |
| 239cc0 | f8 c1 e4 f8 8d c1 42 cf 67 fc 36 19 25 a8 16 c3 2b 10 14 8e 3c 2e 31 8b b1 46 82 9a 4c 88 4e 5d | ......B.g.6.%...+...<.1..F..L.N] |
| 239ce0 | 14 bc 79 99 6f 77 3c f4 8d 7c 3d b8 88 90 67 85 ed 9f 6c f5 13 93 63 ca e9 35 71 51 ce d0 e2 3f | ..y.ow<..|=...g...l...c..5qQ...? |
| 239d00 | 7e 19 39 c7 f3 14 4e 4a fb 2c 29 53 3d f1 dc e6 f0 9d df 2f e1 a0 cb be f3 48 b1 ef a9 63 78 a8 | ~.9...NJ.,)S=....../.....H...cx. |
| 239d20 | 48 3b 39 79 6f ab ce 1c 9f cb 54 27 59 0f d9 0b 4d 56 57 91 60 09 02 6f 9e f4 26 c4 59 9b ba 16 | H;9yo.....T'Y...MVW.`..o..&.Y... |
| 239d40 | e0 5c 85 95 d7 7d 83 75 39 78 ce 5e 88 12 3d 96 4d b8 6b 3a 81 c6 8a 37 8b 4a db 69 29 23 5e c9 | .\...}.u9x.^..=.M.k:...7.J.i)#^. |
| 239d60 | 59 a4 9e 62 21 98 b8 20 18 29 34 df ed 31 e8 2a 38 55 4c b1 71 c8 52 9d 0b 6b 1c fd 60 4b 4b d8 | Y..b!....)4..1.*8UL.q.R..k..`KK. |
| 239d80 | 12 7e c3 f8 6d b1 9a 23 54 eb a7 f1 b6 08 49 39 92 94 0b 33 c1 a5 0a 15 32 02 27 62 c7 ab 4d 51 | .~..m..#T.....I9...3....2.'b..MQ |
| 239da0 | 3b 41 a1 f6 af 8d 30 d3 51 b4 bd 46 93 d1 b3 d4 39 49 b6 6b cf d9 c1 ef 1c 25 3d e1 0c 2e e4 14 | ;A....0.Q..F....9I.k.....%=..... |
| 239dc0 | f8 da 10 04 47 d5 37 65 8f ee 76 19 e6 be 92 1b 4d 85 14 d7 5f e7 d5 71 f6 ab ea 1e 04 58 2f 9f | ....G.7e..v.....M..._..q.....X/. |
| 239de0 | c4 20 42 6d 58 bf f3 19 4a 88 2a 4e 8e 1f f1 e9 25 6a db 0d 9d 84 be 24 de 30 bf 5d 55 78 5c 7f | ..BmX...J.*N....%j.....$.0.]Ux\. |
| 239e00 | 5c f5 d0 e0 43 fa 8e b7 4e 57 1a db f3 05 08 39 f1 57 d5 b3 25 4e d7 2a e4 f7 fd 2c 96 38 2e 11 | \...C...NW.....9.W..%N.*...,.8.. |
| 239e20 | 33 37 d1 b3 f4 45 09 39 90 04 1b 9d ba 50 32 7e 4c 93 6c 76 90 51 c6 6a 64 87 ad d4 4a a5 1a 11 | 37...E.9.....P2~L.lv.Q.jd...J... |
| 239e40 | 95 bf 76 7e 81 5d ac 53 44 fb be 07 8d 7a 6d 9d 5b 32 49 78 6c 5c bf 9c 74 4f 2c 85 a9 22 f6 38 | ..v~.].SD....zm.[2Ixl\..tO,..".8 |
| 239e60 | e0 17 95 86 a7 30 47 67 fb ab 60 10 8e 46 4d 20 aa f2 b0 ff 60 aa 6f 0a d1 af 6c 56 7f 7c 69 cc | .....0Gg..`..FM.....`.o...lV.|i. |
| 239e80 | d0 16 d4 31 16 c5 87 0d 5d 41 2b f0 53 c4 86 c0 6e 77 81 11 a4 58 71 60 0a 12 97 cf 06 7f e7 e5 | ...1....]A+.S...nw...Xq`........ |
| 239ea0 | 48 7e 95 17 f1 da 33 f7 6a 24 33 0e 41 17 a9 b0 b8 fd d4 b2 0b 89 21 a9 59 e3 3b ec 1d fe 2c 50 | H~....3.j$3.A.........!.Y.;...,P |
| 239ec0 | 8c 03 8f f9 81 0f 76 55 5f 75 01 eb 60 86 60 c8 5b 92 e2 61 ed 2e 03 31 63 99 5f 11 24 21 31 11 | ......vU_u..`.`.[..a...1c._.$!1. |
| 239ee0 | 1c 2c 72 c6 fa 36 c1 b1 99 dc a1 3d 23 d8 8b b6 e8 0b b6 93 b9 6d d5 2d 71 14 48 8f 45 94 4b 74 | .,r..6.....=#........m.-q.H.E.Kt |
| 239f00 | e3 73 ed 4f e0 a7 f8 4a 23 18 68 a7 ae 78 fd 4d 2b e1 b8 71 c4 ad bb 01 cd f7 2d 0d 08 06 1d 7f | .s.O...J#.h..x.M+..q......-..... |
| 239f20 | b0 f7 08 10 42 58 9b f7 e0 60 52 9c 99 de 57 56 17 ec 5c a2 dc ae c4 2f 88 9a 26 5b c6 43 9c 65 | ....BX...`R...WV..\..../..&[.C.e |
| 239f40 | 8a 46 1f 95 35 eb 70 93 3e eb 9e 4f 79 eb 04 fc 11 fa f6 bd cb 0d 7f 41 91 a5 a9 02 76 60 0a 73 | .F..5.p.>..Oy..........A....v`.s |
| 239f60 | 19 92 c9 f0 61 b3 70 f6 bb 32 a5 10 71 3d 5b 31 d7 af 22 5f f3 81 87 40 34 03 ee 1f 19 dc c3 b4 | ....a.p..2..q=[1.."_...@4....... |
| 239f80 | 86 f1 33 2e 41 52 49 df cb 05 7b 3f 99 71 c6 27 7e b9 68 46 fe e0 2a fb 04 23 61 5e b8 a7 f3 21 | ..3.ARI...{?.q.'~.hF..*..#a^...! |
| 239fa0 | 2e 86 f6 19 7b c6 80 0f 17 85 61 ea 7c 4e 0f 94 91 15 49 48 e3 53 ae 06 e3 b6 76 09 59 8b c8 a3 | ....{.....a.|N....IH.S....v.Y... |
| 239fc0 | 20 c6 bd 11 a7 aa f3 3a a1 23 e5 8e 50 82 1f c1 cc 03 e5 27 8d f9 e3 06 75 1c bc 96 e6 53 06 44 | .......:.#..P......'....u....S.D |
| 239fe0 | 81 a5 3b 39 32 aa 21 3d b6 c1 cf 79 88 96 63 22 18 65 65 6f e6 36 d2 b9 0b 56 d2 66 6c 41 d3 93 | ..;92.!=...y..c".eeo.6...V.flA.. |
| 23a000 | c1 fe b3 f6 73 16 06 78 46 4b ed 0e d1 1f ac 36 3d dc 94 54 ea 52 48 bf de 32 e6 a9 98 9d de 2b | ....s..xFK.....6=..T.RH..2.....+ |
| 23a020 | e6 c6 80 7e 55 b0 08 1e 9c a7 ac 5a b3 db d6 c2 56 e4 2c 72 ba 42 4a 47 ad 78 d5 85 06 97 1d 79 | ...~U......Z....V.,r.BJG.x.....y |
| 23a040 | 56 ea ba f4 52 ae 40 8e 26 a7 ec ac bc 5c f9 5d 68 92 02 80 aa 0c fc 6f f9 3b 31 32 cd 14 14 bc | V...R.@.&....\.]h......o.;12.... |
| 23a060 | 48 6f 81 35 d6 20 0a e3 ee 63 7f a3 3c 87 2b ed 99 f2 0c da da 1f 5a bf 28 c3 4f f1 be 04 47 c6 | Ho.5.....c..<.+.......Z.(.O...G. |
| 23a080 | bc 14 32 dd b1 88 8a d5 62 5f a9 d0 2d 48 e9 ee 96 91 50 59 51 80 28 2b 78 9b 97 bc bb 8f a3 d5 | ..2.....b_..-H....PYQ.(+x....... |
| 23a0a0 | 1e da 55 e0 9a f0 f6 c4 b3 be 1f 8e d9 6a 1c ab a8 ba ab b1 b7 27 ac fc de b7 fd 00 ab 4d b0 dc | ..U..........j.......'.......M.. |
| 23a0c0 | eb 15 ce 38 72 42 7f c8 c6 2c c9 87 b6 3d 46 63 51 b0 76 78 75 66 ea 03 71 cd ae 85 1b b9 86 2e | ...8rB...,...=FcQ.vxuf..q....... |
| 23a0e0 | b3 19 9b 51 50 17 dd f2 05 e8 77 28 4e 1c dc 2e 82 5a 93 56 8e bb 09 f5 95 6a be 44 30 7f 9a 57 | ...QP.....w(N....Z.V.....j.D0..W |
| 23a100 | a3 aa c9 a4 4c d9 38 7c f5 e5 45 64 e7 4e 0b 93 d8 ec 61 3d 33 4c 2a 99 20 ec 74 d2 76 69 3a 33 | ....L.8|..Ed.N....a=3L*...t.vi:3 |
| 23a120 | ad d4 2a 35 c6 bf 74 a8 47 09 58 0f 6e dc 95 2d 6a 11 6f 11 b4 e7 91 9e 7f 44 a8 65 3d ab a7 12 | ..*5..t.G.X.n..-j.o......D.e=... |
| 23a140 | e6 5d 5a b3 88 d6 7c 8b 0e ea 1f 3f b3 63 47 f1 7c e4 d5 ce 0e 7c 3e 43 40 ed a4 fa 1d 80 b2 e9 | .]Z...|....?.cG.|....|>C@....... |
| 23a160 | 3b 7a ef b5 d5 19 8a e6 4f 71 08 53 61 2f ba 49 2f d6 9b 62 69 77 52 fc f9 7d be e5 87 cc e7 62 | ;z......Oq.Sa/.I/..biwR..}.....b |
| 23a180 | 88 f9 23 48 3e 4d ae 93 4e c8 c4 a5 d6 37 9f b5 03 5f ba 3a 98 4f ff 5a 32 2c 09 f3 d3 9a 1f e7 | ..#H>M..N....7..._.:.O.Z2,...... |
| 23a1a0 | 99 51 d1 21 ec e9 e6 07 92 02 1e 37 c7 49 32 80 39 07 be ba 15 79 1d c6 b2 71 45 b5 7d d2 b7 46 | .Q.!.......7.I2.9....y...qE.}..F |
| 23a1c0 | f6 f7 d8 e6 bd af 7e b1 1e 3b 2a fb ff 2c ef bb 61 6a f2 27 4a 64 47 6b 0f 2c da 59 7d 95 6a 2c | ......~..;*..,..aj.'JdGk.,.Y}.j, |
| 23a1e0 | de 4f d0 d6 c7 74 df 27 e3 bc 4c 65 a8 8e e5 67 c2 d0 08 ec 47 e9 1a c5 31 e4 40 7c 96 da 82 be | .O...t.'..Le...g....G...1.@|.... |
| 23a200 | 5c c2 6e ea d3 47 55 10 98 b4 f5 7a 9f be 94 68 d2 fc 9a 63 47 89 e5 eb 03 2f 7b 4a df 87 34 fb | \.n..GU....z...h...cG..../{J..4. |
| 23a220 | a3 dc cf be 92 ad 34 af 24 2b 23 a3 8e 24 55 75 58 62 5c b1 0e fb 04 47 5a 02 67 20 17 71 18 ce | ......4.$+#..$UuXb\....GZ.g..q.. |
| 23a240 | ea 17 c0 26 e9 54 ea 0b 44 79 3c 6c fa 3c cc 97 8c 3f 73 8e b2 e4 49 42 1f 46 c6 03 98 9b 9f c7 | ...&.T..Dy<l.<...?s...IB.F...... |
| 23a260 | c6 34 be b0 dd 9f fe 75 0f 19 9b 1d 1d 1c e0 01 4a e9 b2 bd 3f 43 0b 2b 16 33 6c 09 31 66 c7 1e | .4.....u........J...?C.+.3l.1f.. |
| 23a280 | da 7e d9 3c 1e 5d e6 bb f9 31 41 8d 5f 50 30 88 42 41 fe 14 d6 dc cc a5 89 0d 5a 9e ed 7d d2 33 | .~.<.]...1A._P0.BA........Z..}.3 |
| 23a2a0 | 82 fe 26 80 e1 38 ae 4d 0f c9 b4 c9 a0 bb 88 9b 62 20 85 f2 59 ce e1 34 75 5c 15 8f 4b dc 93 3e | ..&..8.M........b...Y..4u\..K..> |
| 23a2c0 | 71 79 b4 1b 99 53 22 60 cf 7e 39 33 da 6b 39 48 14 6c 61 0e 6d 41 9b 44 c6 3a bf 21 1e 36 ef cd | qy...S"`.~93.k9H.la.mA.D.:.!.6.. |
| 23a2e0 | 51 5f 4f d8 75 ab e6 06 8e de a3 75 22 f8 a4 dd c0 cc f7 fa 08 0a 38 79 40 1d 65 2c 2e 38 d0 1f | Q_O.u......u".........8y@.e,.8.. |
| 23a300 | c0 64 39 0d ed ea 17 16 bc 88 4e 1a fd b4 1d af ce 96 ab 2c f8 5c 77 cc 01 13 cf 6e 02 26 dc 6a | .d9.......N........,.\w....n.&.j |
| 23a320 | 7b 0b 65 3c 41 7c a2 02 53 83 9d 19 de ad e0 bd c6 28 7f 69 3e d7 45 7b 52 12 3d db a7 ea a4 0d | {.e<A|..S........(.i>.E{R.=..... |
| 23a340 | ad 42 ab 51 93 1d 70 75 95 e7 8f 5a a9 ac 14 f4 3a ca 7b 76 e9 b4 9e b5 61 ea d7 df e9 3e e2 58 | .B.Q..pu...Z....:.{v....a....>.X |
| 23a360 | 84 17 4d 19 c0 84 bc 81 8f 98 5e 04 a4 67 9b d7 20 e3 0d 0d ac 28 7b 7f d9 be c2 b1 73 65 86 56 | ..M.......^..g.......({.....se.V |
| 23a380 | 46 f9 19 d9 2d d9 e1 4e 59 49 bc 1b 61 4a 7f 60 72 59 73 96 68 62 f2 7d 3f c6 84 c5 41 e0 65 00 | F...-..NYI..aJ.`rYs.hb.}?...A.e. |
| 23a3a0 | 4d e0 c6 9e 1e 85 a4 f7 6c 21 61 6e 0d dd 63 23 12 2e 6d 8f 77 c0 37 d5 aa b8 6a cb 62 dd 79 1c | M.......l!an..c#..m.w.7...j.b.y. |
| 23a3c0 | c6 d2 69 dc 3a 62 f5 cb 26 f9 0f 8a 59 ac ec ba 69 14 29 77 d0 d2 83 b9 4c 2c 65 c2 95 e6 97 fb | ..i.:b..&...Y...i.)w....L,e..... |
| 23a3e0 | b6 69 79 48 7b 28 50 52 0c 25 e2 1a 75 bd 2a 06 47 22 33 f3 68 87 42 4e a0 b9 48 55 28 2b e7 ba | .iyH{(PR.%..u.*.G"3.h.BN..HU(+.. |
| 23a400 | 0a f5 b4 62 04 fe 0b 93 55 77 29 46 b5 8c 21 91 ba 76 24 d1 b8 db 6e e7 6e 75 a9 3b 5b be e5 cc | ...b....Uw)F..!..v$...n.nu.;[... |
| 23a420 | 63 e9 e7 f5 7b 5d 41 91 01 51 67 43 74 f4 37 db af 26 f3 0a 30 b2 b1 55 80 12 75 a6 a6 58 a0 e1 | c...{]A..QgCt.7..&..0..U..u..X.. |
| 23a440 | 53 07 7a fc 45 c4 ad 24 f2 eb 92 5e 3e 12 02 f2 68 86 90 92 25 7a 22 08 6f c1 53 73 3b b0 12 1a | S.z.E..$...^>...h...%z".o.Ss;... |
| 23a460 | 71 ec ca 9a 22 5f c7 28 59 35 1b 71 43 37 2a 44 9c b9 ff b1 cb 2a fc 69 5e e4 78 f4 31 6b 6e c1 | q..."_.(Y5.qC7*D.....*.i^.x.1kn. |
| 23a480 | 27 8a 1b 82 52 44 37 81 37 11 60 ea 5e b1 ad d0 4f 37 cb d2 e7 5f e5 8f b7 a6 82 d6 5e d7 98 47 | '...RD7.7.`.^...O7..._......^..G |
| 23a4a0 | 7e d8 13 37 7f 77 35 82 82 36 1a 96 63 9e ca 00 d4 ac f2 af bd 8f 37 02 60 e7 2c 3c 77 ae 41 78 | ~..7.w5..6..c.........7.`.,<w.Ax |
| 23a4c0 | 4b 19 1a 23 e5 63 a3 f7 f3 ed 7b 81 2b 3c 42 5a ab 1a 84 b4 7b 6a 6b 23 e3 1d c8 9e 0c 01 3f 52 | K..#.c....{.+<BZ....{jk#......?R |
| 23a4e0 | 48 d7 68 02 85 20 84 3a a8 eb 4d 81 35 52 9f e7 bc df 59 63 46 17 db 4b 05 63 03 df 32 d7 78 d4 | H.h....:..M.5R....YcF..K.c..2.x. |
| 23a500 | 89 aa 17 1e eb 2b 61 e9 87 36 eb ba 0d e3 f1 21 96 b3 dc b7 6c 97 2d 6f f2 3a 8f 19 86 73 4e c5 | .....+a..6.....!....l.-o.:...sN. |
| 23a520 | 27 99 2a 62 de b6 48 b1 d5 7c 16 4f ba 28 0f fd 70 82 c4 32 22 b9 3b f8 6d fb 18 a1 59 8d 59 b4 | '.*b..H..|.O.(..p..2".;.m...Y.Y. |
| 23a540 | 44 a1 b5 c4 11 b5 20 63 aa f0 38 67 d1 19 c6 6f cb f7 86 6d 96 64 81 77 30 9a 5b e3 92 fd a9 35 | D......c..8g...o...m.d.w0.[....5 |
| 23a560 | 2a 34 89 05 c8 81 68 9c b2 21 2e fe b9 ab da 01 d3 e3 03 fb db 80 bc b0 a5 29 81 1d 2a 12 f4 1f | *4....h..!...............)..*... |
| 23a580 | 15 65 85 46 c0 e1 11 b4 d1 9c f1 12 21 63 58 4b cf c4 c6 ac a0 d3 3c 5e ed 6e d1 42 fe 11 52 66 | .e.F........!cXK......<^.n.B..Rf |
| 23a5a0 | 85 8d 62 5a 58 5b 0b 7f ca be d6 e6 16 0e 59 b5 ec 8b cb b0 a4 b7 89 a9 13 75 57 49 ba 2f d1 d7 | ..bZX[........Y..........uWI./.. |
| 23a5c0 | 0a 56 b8 f8 3f 87 e9 c9 33 e5 93 76 8d 46 6b dc eb cf dc b4 0e 58 c4 72 26 78 88 cb db 1e 54 93 | .V..?...3..v.Fk......X.r&x....T. |
| 23a5e0 | f4 1b fb 4e a5 c7 f7 9d df 85 0d 50 6c a8 7d ad c1 94 0d c7 37 f1 75 33 ad 7f 43 90 a0 d8 a3 21 | ...N.......Pl.}.....7.u3..C....! |
| 23a600 | a6 89 3c 6c ea b7 00 fd 99 6f 21 cd f5 f6 18 37 9b b2 78 8b 68 b0 80 01 89 8d ed b3 51 e2 3a c7 | ..<l.....o!....7..x.h.......Q.:. |
| 23a620 | 5e 7f 20 37 cc 4b 61 f9 8c d1 d2 4c 7b 87 b9 dc c5 37 29 4e 03 87 3e 96 31 16 21 33 78 c1 9d f1 | ^..7.Ka....L{....7)N..>.1.!3x... |
| 23a640 | 2d 87 2e ee 0f 6d 3d a1 61 91 2b de 7b d6 c6 ed dd 64 86 aa cf d7 fc fc 5c 83 34 17 78 6a 9f e3 | -....m=.a.+.{....d......\.4.xj.. |
| 23a660 | 8f db 77 7e c6 b6 46 6e b0 dc 7a e2 e3 5f dd ea 29 ae ce 83 d8 3e 06 d1 cb 99 eb c3 d0 4e d7 1a | ..w~..Fn..z.._..)....>.......N.. |
| 23a680 | 32 7e d0 53 27 19 2e 1a 7d 26 e1 0a 98 2b e6 7d 86 30 60 17 88 7a 29 92 b0 e0 33 60 4f fa 31 67 | 2~.S'...}&...+.}.0`..z)...3`O.1g |
| 23a6a0 | ae f6 b2 e6 9d f7 c9 44 ee 44 b6 b3 5b 00 da 2a 42 29 c2 a7 e4 90 15 90 d5 d3 3d 9f af d3 46 22 | .......D.D..[..*B)........=...F" |
| 23a6c0 | e7 38 98 a6 98 f5 97 7d bd c9 2d a3 9c fb d4 8b 6f 84 5e ef a1 cd 36 49 bd d2 12 e3 50 6c a8 c2 | .8.....}..-.....o.^...6I....Pl.. |
| 23a6e0 | ea e9 2a b7 ae fd 9e 47 06 35 ae 05 f8 6c 15 97 fd cc fe 32 5e ab 4a db f3 d2 d4 08 22 82 13 16 | ..*....G.5...l.....2^.J....."... |
| 23a700 | c6 42 ad f4 ed 97 74 48 50 64 ca 6e e6 21 98 53 ab c4 66 ff 92 83 b2 6e 37 db 50 d6 d1 00 95 ed | .B....tHPd.n.!.S..f....n7.P..... |
| 23a720 | 45 50 04 32 a7 40 0a a0 f8 85 98 8a 0b 05 95 32 33 4d a7 7b 82 8e d3 e1 be 58 60 ce 2e dd 24 b4 | EP.2.@.........23M.{.....X`...$. |
| 23a740 | 5f 09 15 24 d2 61 15 57 5a 15 88 d0 59 73 61 5c 2e aa d1 dd 82 b0 40 90 72 15 0a 5c f7 bb 4e 2e | _..$.a.WZ...Ysa\......@.r..\..N. |
| 23a760 | 5d 7c 78 35 be b1 70 cf d2 db 5a d1 88 4a 2f b1 79 ad b1 26 a1 fd fa 89 9b 41 b0 e7 2b 98 2d b7 | ]|x5..p...Z..J/.y..&.....A..+.-. |
| 23a780 | ac d6 a3 16 56 e0 79 57 3d d7 9e 05 0b 09 79 61 6e 6f 1e 58 5a 4b 92 50 57 3a b3 3a 60 64 3a b4 | ....V.yW=.....yano.XZK.PW:.:`d:. |
| 23a7a0 | e7 21 9d 12 dd 7b 01 51 4b b8 77 a5 e0 20 13 37 25 0e a7 4d 38 06 4f 20 f2 c0 44 db a8 9d 72 c6 | .!...{.QK.w....7%..M8.O...D...r. |
| 23a7c0 | d8 11 c3 ce a1 af 42 a1 f5 a3 43 bd c8 57 df 7c 83 d5 cc 89 56 ca 22 f3 17 9c 44 6e b4 be 1d de | ......B...C..W.|....V."...Dn.... |
| 23a7e0 | e6 0e e6 ef 30 9c c9 55 e9 be a1 46 b1 6d df 30 ea 36 2f 53 a0 90 ff a2 2d 54 7d 72 c6 ed 29 b9 | ....0..U...F.m.0.6/S....-T}r..). |
| 23a800 | 52 70 9a 3f ed 4b 88 14 20 b7 32 89 78 c7 b0 4d 5b ed 3b ac a4 48 43 c8 3e b8 a2 61 66 3c f6 0b | Rp.?.K....2.x..M[.;..HC.>..af<.. |
| 23a820 | b6 97 6d ac 75 19 ee b2 a1 8c 86 87 0a fc 3c 6d 89 28 7a cb 71 14 09 0b 56 1c 58 09 d3 4c 73 e8 | ..m.u.........<m.(z.q...V.X..Ls. |
| 23a840 | 4a 2a b7 4a 6f cc 0e f2 19 a3 e6 8d d0 7a 71 d1 73 93 31 4a 5f 43 dd b1 18 0f d2 5a a4 2a 29 33 | J*.Jo........zq.s.1J_C.....Z.*)3 |
| 23a860 | 11 50 71 de d5 5d 13 ce 1e c2 7c 1b d2 d5 37 cf 8e b1 aa d6 97 b3 8b d7 1d 3f 31 80 6a 78 8c 5f | .Pq..]....|...7..........?1.jx._ |
| 23a880 | 16 61 0c 23 5c 35 f7 43 13 93 57 51 fc f2 4b 34 82 90 31 85 fb 66 2c 30 f6 bc 23 eb 05 71 d0 57 | .a.#\5.C..WQ..K4..1..f,0..#..q.W |
| 23a8a0 | 71 ea 78 f5 87 10 57 b2 fc 19 51 0f 37 87 de ad 72 61 cc 87 25 65 09 b4 b8 2c 4a 3b f3 d4 1a a5 | q.x...W...Q.7...ra..%e...,J;.... |
| 23a8c0 | e0 4b cf 24 b0 cf 6d e8 eb d5 f8 09 53 95 12 79 af cd d7 97 a9 6b a1 a8 d6 18 63 12 2b 44 0f 29 | .K.$..m.....S..y.....k....c.+D.) |
| 23a8e0 | 3b b4 54 e6 0d a9 dc 3f 86 e5 f6 59 3e 00 43 e3 87 b3 72 3e 5a 95 8f ba 9f c7 46 2a b4 f6 46 e6 | ;.T....?...Y>.C...r>Z.....F*..F. |
| 23a900 | 2e 7f d0 f8 c1 e4 8d ae 1b 1f 2e 37 27 2a 10 d9 ba d0 4f f5 98 ce 1f 1f 34 ac 70 5d bf c0 cc 1e | ...........7'*....O.....4.p].... |
| 23a920 | bf 7e 38 60 19 88 f3 a0 11 9e 83 bd 30 79 ec f7 ca e8 b5 74 9a f9 ee 50 ff 7b e7 b0 79 f3 72 3e | .~8`........0y.....t...P.{..y.r> |
| 23a940 | a4 6f 10 4c 0d d4 9c e8 7e bf ce b1 2d ee 65 02 bb 25 8a 1e 8e a9 29 b5 5a 6f a2 39 cc 6b 97 98 | .o.L....~...-.e..%....).Zo.9.k.. |
| 23a960 | a3 7a d0 ac 73 09 26 25 33 2e ba e6 24 45 b1 30 ff f0 8f b9 65 e1 8d d7 75 1c 63 f5 b5 2c 9a 08 | .z..s.&%3...$E.0....e...u.c..,.. |
| 23a980 | 3c 9c 78 52 0e 51 20 dd 4f 96 f2 1a 79 d1 2a aa 8d 1c 51 6b 2a 6a d7 b2 6e 39 2f 5d 90 92 ac fc | <.xR.Q..O...y.*...Qk*j..n9/].... |
| 23a9a0 | 4c 9a 1f b2 aa 06 50 81 2c d6 d5 f3 c8 16 56 f3 1d 28 8f b2 af 34 94 74 63 0e db 48 2a 67 9b 86 | L.....P.,.....V..(...4.tc..H*g.. |
| 23a9c0 | b6 45 5f 83 42 9a 17 f3 48 24 26 af 54 8c cd 65 eb 56 f9 f0 49 2f da da 77 9b a2 5e 6c 37 b5 ab | .E_.B...H$&.T..e.V..I/..w..^l7.. |
| 23a9e0 | 55 49 40 0f 93 3d 05 8d 12 bd 68 1c 39 e3 ba 28 97 f8 63 94 f0 c7 8f a3 39 19 6a d9 3d 87 5c 1c | UI@..=....h.9..(..c.....9.j.=.\. |
| 23aa00 | d4 ba 5a 2f 0c 10 86 4a 66 2c ec 47 dd 9a fb 9b 67 ab 05 88 c4 7b 65 f1 0c aa 43 b0 54 f6 08 35 | ..Z/...Jf,.G....g....{e...C.T..5 |
| 23aa20 | 63 56 9e 8a 2d b2 65 2f 79 f9 87 d0 76 25 2f 3b 94 85 d1 61 55 5d 4b be 48 4d 5e aa 79 0a 76 c0 | cV..-.e/y...v%/;...aU]K.HM^.y.v. |
| 23aa40 | cc 21 5c 7c 26 9b 01 0d f4 a1 77 a6 9b 60 ab 72 df c1 5b 7a 87 0a b5 b3 6e 90 2d 79 5d 09 68 fb | .!\|&.....w..`.r..[z....n.-y].h. |
| 23aa60 | e1 41 84 04 a6 91 95 44 4c f9 49 cc 0f 02 ef 26 24 77 17 29 b8 89 af 5c 04 7f c8 ac 4c 31 23 0b | .A.....DL.I....&$w.)...\....L1#. |
| 23aa80 | ba 31 d5 78 c3 79 67 f5 e8 b7 2a 7a 81 f6 0d a5 2f d8 c1 8b 8b 5a fa 11 96 d0 84 66 7a 85 83 5d | .1.x.yg...*z..../....Z.....fz..] |
| 23aaa0 | a5 31 8b b2 8a 2d ab b2 5c 50 85 ca 06 10 e9 ea e6 48 ac 3c 57 1c dc de d7 0f a2 4c 91 c0 53 12 | .1...-..\P.......H.<W......L..S. |
| 23aac0 | 35 92 7d 23 6f a9 fb fd 69 55 b5 97 84 cb a8 65 87 96 e8 94 16 14 97 7d e3 07 92 01 ba 3c 09 ba | 5.}#o...iU.....e.......}.....<.. |
| 23aae0 | d6 cf 83 de 9e 59 93 ce 37 e3 49 84 6c 09 25 42 f2 ad a2 11 b8 0b 73 22 fb 2b cd a6 ba 5a ba 58 | .....Y..7.I.l.%B......s".+...Z.X |
| 23ab00 | ec da e5 20 e6 a9 2b 6c ee f4 38 7e 30 b0 9b a5 9b 6d 18 d2 24 e9 7b b5 9f 4c 00 b1 e5 aa 7e 9d | ......+l..8~0....m..$.{..L....~. |
| 23ab20 | cd dc fa 49 0e e2 da bd a5 ab 3b f6 a0 2b b8 df be 7d 49 cd b7 c7 16 34 e7 e0 42 ae c8 b4 e4 07 | ...I......;..+...}I....4..B..... |
| 23ab40 | 7e f0 e9 d2 fa a0 86 a0 72 c3 17 47 89 cf e3 9f c6 89 66 6a 6e 0c ed 2e bb 4e 11 2b de 91 bc 0d | ~.......r..G......fjn....N.+.... |
| 23ab60 | 01 0b 3b 97 a3 24 ea 44 3c d2 53 9b 68 e1 bb 94 3e b2 f9 f6 af 73 46 c8 15 dd 3e bb 31 b5 48 db | ..;..$.D<.S.h...>....sF...>.1.H. |
| 23ab80 | 56 b4 cd e1 ff 75 d5 70 7a 2d a2 93 b4 6b 36 79 e8 33 f6 fa 59 38 3f 37 60 b9 fa 58 c5 92 22 ba | V....u.pz-...k6y.3..Y8?7`..X..". |
| 23aba0 | 18 7f af c3 0a b5 82 c2 ba 5d a1 02 4f f0 67 9f fc 73 f4 22 8c 29 71 76 05 1b 3e 63 e7 8b b3 20 | .........]..O.g..s.".)qv..>c.... |
| 23abc0 | 7b d9 01 3f 95 41 98 cc 0c db 13 37 24 cd 01 86 f4 22 e2 89 7a 1f d8 f1 0a 1a 9e 90 c7 1d e9 90 | {..?.A.....7$...."..z........... |
| 23abe0 | 00 83 79 f8 a6 9a 58 fb de 4b a4 0e bf 21 14 9d 9f ee 00 a6 91 a4 e6 0b a9 5b 7f a7 e6 cd 16 db | ..y...X..K...!...........[...... |
| 23ac00 | 76 19 3b 9f 56 1d 64 17 59 9f f4 52 3c 20 81 c3 e1 7a f4 f5 cb 27 36 a2 83 cc 1d a7 46 8a 6e 08 | v.;.V.d.Y..R<....z...'6.....F.n. |
| 23ac20 | 1b 4d c9 86 58 b6 15 b9 d2 f3 a4 c4 ab 5e 3a d7 3d a4 eb 84 7b ee 1e 0f 36 5c 5a ad a1 9c cd d3 | .M..X........^:.=...{...6\Z..... |
| 23ac40 | 98 3a cd 39 aa 95 85 41 a9 40 eb cc 96 5b 79 10 77 51 ee 95 89 85 85 d3 cb 06 bd 98 ad e0 0d 70 | .:.9...A.@...[y.wQ.............p |
| 23ac60 | 0b b1 b1 36 92 da 3b 35 29 9a bb 34 cf d5 b3 c8 b5 2f e6 e5 7d fe ca f4 f3 6d d8 0b cd 15 4a ed | ...6..;5)..4...../..}....m....J. |
| 23ac80 | 0c c1 17 d9 7e 1b 14 f8 7d 4e 03 20 9b c4 44 bd 27 2b bb 7e e7 d3 51 38 e6 e0 7b 35 dc 6e 8b f8 | ....~...}N....D.'+.~..Q8..{5.n.. |
| 23aca0 | 52 f9 3e 49 d7 d3 ba 33 0c 45 6a e6 fc 0c 44 d3 38 9c e6 f0 0b 99 c2 1f cc 8f 2f 03 6c 88 1c c1 | R.>I...3.Ej...D.8........./.l... |
| 23acc0 | 23 a7 90 69 29 0b db e6 4a 09 83 f2 1b 4c 6a a6 bd 01 1d 11 bd 8f c3 de 55 d2 b1 65 13 b6 d8 1e | #..i)...J....Lj.........U..e.... |
| 23ace0 | ba b6 76 ee 9f f7 de d3 ec c1 4a 79 81 26 4e 02 de 55 41 5c 27 65 9f 65 a0 3c 4d af ba b3 7f 35 | ..v.......Jy.&N..UA\'e.e.<M....5 |
| 23ad00 | 21 e0 e7 55 3d 44 2c 45 e1 78 bb bc c8 8a ac 35 98 d2 48 d9 57 4d ef 38 76 23 b0 d3 bd a0 16 72 | !..U=D,E.x.....5..H.WM.8v#.....r |
| 23ad20 | 24 f8 ca 09 bd 96 04 e1 51 bf 2c a5 8b a5 3c 8f e7 f6 22 cf d8 90 ce bd 7c 9a 4b 9a 52 3f c4 f8 | $.......Q.,...<...".....|.K.R?.. |
| 23ad40 | bd d4 3a d2 94 0e ff b6 2f 7d 38 dc 67 73 7d 31 8a 1a 8a b1 24 33 b5 7a 1c 71 51 c9 fc 15 14 df | ..:...../}8.gs}1....$3.z.qQ..... |
| 23ad60 | 9f f0 22 c7 59 5e c1 8e cd ea a8 50 0d 40 67 89 8d 65 8e 97 88 1d 40 95 60 7d 10 a4 55 59 95 6f | ..".Y^.....P.@g..e....@.`}..UY.o |
| 23ad80 | f5 3d 2b d1 bb 4d b1 68 e0 3e f0 79 f1 78 b0 de c5 c1 d5 12 91 69 1a 3a 41 50 8c 21 a1 cc a0 67 | .=+..M.h.>.y.x.......i.:AP.!...g |
| 23ada0 | 5a 73 0c cc 6f ad b3 6b 81 f4 1c a7 18 bd 42 c9 ff 3e c9 81 34 55 d6 15 87 16 ea 6e 37 cc 43 b1 | Zs..o..k......B..>..4U.....n7.C. |
| 23adc0 | cc 6c 4c 1e ff e3 d1 29 ea 55 54 39 a4 99 07 c9 4c fa d3 46 ec 01 df 9b 1b 83 77 d1 b6 61 b5 2d | .lL....).UT9....L..F......w..a.- |
| 23ade0 | aa 86 26 20 c2 3c dd 0d 41 34 99 5e ec 46 01 5e 24 5b aa eb 4d a7 11 e2 93 c5 16 34 72 06 94 76 | ..&..<..A4.^.F.^$[..M......4r..v |
| 23ae00 | 3d d4 6f 0b be a2 af 5e d3 7a d8 3e 3b 54 74 09 58 d9 15 e6 dd e5 f6 6d d3 99 dd 72 36 d5 06 bd | =.o....^.z.>;Tt.X......m...r6... |
| 23ae20 | a7 f8 22 22 a7 14 64 f8 f6 a3 eb 8f aa 67 c5 85 58 fa f6 55 97 16 eb 62 58 3a 1a 5b 32 5f a9 bd | ..""..d......g..X..U...bX:.[2_.. |
| 23ae40 | 46 3a bb 37 df 7b a7 f6 13 3b 34 30 9e 4d 47 2e 4f 5a 36 a6 c9 1e 60 09 1f fb 84 13 a2 3d 76 a1 | F:.7.{...;40.MG.OZ6...`......=v. |
| 23ae60 | a5 04 8c 25 d8 05 76 8d d4 15 d7 b6 0e ed ec ea ff 92 e2 af 16 d5 6b 90 54 18 9b 04 f1 ba ea 67 | ...%..v...............k.T......g |
| 23ae80 | d9 44 b5 67 5e b6 34 c7 8e 1d bd 7b 7a 4e 14 b7 f2 f2 f3 71 0b 06 1a 63 4b 43 73 78 be 4d b2 b0 | .D.g^.4....{zN.....q...cKCsx.M.. |
| 23aea0 | 43 10 e3 48 f4 cc 30 15 37 2e d3 51 20 4c cd 96 6d c0 a5 a8 3b 4b 80 da 0d 08 59 6b a9 1e 8b 63 | C..H..0.7..Q.L..m...;K....Yk...c |
| 23aec0 | a2 bd 11 ec c3 71 93 15 97 52 53 1c 54 a5 bc 88 52 88 e8 2f 9c e8 e9 55 6b 31 2b f2 1e ac 0a 8e | .....q...RS.T...R../...Uk1+..... |
| 23aee0 | d4 e1 8d 31 45 5f a3 d2 39 f0 be 27 60 7d b3 97 15 5e bb b1 12 eb 97 4a 36 69 e0 a4 1d 86 18 fc | ...1E_..9..'`}...^.....J6i...... |
| 23af00 | 34 68 5b 36 bb 2d 31 2e ff 81 3d 34 c7 1e 49 ec 1d c0 5b ef 3a a4 e6 b8 92 a7 13 da e1 39 9f 15 | 4h[6.-1...=4..I...[.:........9.. |
| 23af20 | 4c 65 61 5a a9 65 e9 c7 f4 03 fd 83 32 6f e4 2a d3 d7 e3 96 23 eb 0d 51 fd 2b e4 8d 00 91 56 5d | LeaZ.e......2o.*....#..Q.+....V] |
| 23af40 | 8b ef 25 9e 66 ac c4 17 7b 64 67 11 a3 fd ed f7 89 0c 74 be 88 c6 ca 1b f7 e1 6a 6d a1 15 de 7c | ..%.f...{dg.......t.......jm...| |
| 23af60 | 85 03 58 fb 52 4a 91 02 a7 9b ba e9 38 66 ed c9 41 36 c8 99 ef bd 97 bf 0b 93 b9 25 35 ea 99 67 | ..X.RJ......8f..A6.........%5..g |
| 23af80 | 98 78 7a 7f 5e a8 8c 86 2c 0f 4a dc fb ff bc cb 48 11 a3 d8 de b9 8a 55 5c 1e 05 aa b4 ee 16 95 | .xz.^...,.J.....H......U\....... |
| 23afa0 | 6a 85 e7 75 3e b1 a7 b3 d2 7b 42 40 d7 eb 15 71 12 4c d5 88 2d ea 30 74 e7 03 1b c1 67 22 79 6d | j..u>....{B@...q.L..-.0t....g"ym |
| 23afc0 | 39 29 5e 69 ec 99 39 3b 8c 1f 78 7b 32 1a 4a 25 4a d1 ce 2b c0 a8 4c 9a 99 e9 36 4e 8a 21 42 0b | 9)^i..9;..x{2.J%J..+..L...6N.!B. |
| 23afe0 | ac ad 57 b8 d9 d0 c5 ee 3d 39 ba c9 4f f3 0e c3 ef a9 a0 db 77 ee e3 8d 8d c1 f2 26 85 36 19 c2 | ..W.....=9..O.......w......&.6.. |
| 23b000 | ae 60 15 4f 9a 0e cf 36 94 ab 4f 9a 8c 07 34 9b f5 05 46 63 75 3a d7 99 60 bb 86 1f f2 f2 68 4e | .`.O...6..O...4...Fcu:..`.....hN |
| 23b020 | 67 24 a7 48 08 0a d8 2e 5f 20 f9 86 d6 10 21 f0 ae 3e 08 85 d9 73 32 1e f2 46 d6 4c a7 42 90 d2 | g$.H...._.....!..>...s2..F.L.B.. |
| 23b040 | 78 0e b6 63 b3 44 11 43 55 9f bd a1 95 75 d5 fd 49 54 94 69 39 15 15 4f d2 19 15 45 43 a3 25 47 | x..c.D.CU....u..IT.i9..O...EC.%G |
| 23b060 | 4b 2c 24 83 4c 6b a8 3b 29 f5 d1 72 71 39 73 56 55 a5 5c 09 71 fc 7c e3 0a 65 5a a0 ac bf 3d e2 | K,$.Lk.;)..rq9sVU.\.q.|..eZ...=. |
| 23b080 | 98 1c 25 03 99 5b 94 10 f8 d0 52 72 69 70 67 9a 70 69 d0 41 b8 03 c3 6d ed ca f6 a7 03 0b 12 b1 | ..%..[....Rripg.pi.A...m........ |
| 23b0a0 | 8a 16 a6 e9 e4 73 6d ec e6 1b 83 3a b1 6e 66 16 73 f5 8d 32 64 77 8e ef cb 75 0c 0f 4c 6a c4 79 | .....sm....:.nf.s..2dw...u..Lj.y |
| 23b0c0 | fc 28 80 72 e7 58 51 28 fa 19 9c b2 18 cf 19 81 dd 72 fd e0 8d 28 fc cd 04 ce 67 72 e7 1f 89 85 | .(.r.XQ(.........r...(....gr.... |
| 23b0e0 | 63 fd 0f 5a c8 c5 bc 5a 9d 81 4f 93 d8 a3 8e 79 84 f0 48 1a 1a 09 63 26 af 32 59 91 f6 d4 94 09 | c..Z...Z..O....y..H...c&.2Y..... |
| 23b100 | f5 6b 56 45 fd cc cd f3 d9 0c b5 69 a4 6c 77 71 1f 27 04 08 dc 78 d5 36 1f a2 d4 3b ed a4 59 82 | .kVE.......i.lwq.'...x.6...;..Y. |
| 23b120 | 03 ab 90 cb 4e 67 f5 96 e9 a3 8f 4a 08 19 58 58 5e 84 3d ac 99 7f 9a 80 3d d7 7a 95 7b 65 53 ec | ....Ng.....J..XX^.=.....=.z.{eS. |
| 23b140 | db 16 86 71 5e a6 78 e6 5c e3 cc b9 5d eb 83 d6 f5 c5 0d 87 66 e9 a1 7a 3d 68 49 02 35 9f f1 19 | ...q^.x.\...].......f..z=hI.5... |
| 23b160 | 16 da 4f f1 77 69 0c f1 cd 97 f9 f3 96 02 1f 96 16 d8 58 3f c4 16 97 e0 4e 8c 7a d8 1d 1a 7f 23 | ..O.wi............X?....N.z....# |
| 23b180 | 24 a1 d8 31 96 bd fe 66 2d 47 d3 59 69 d8 b1 3d e3 32 93 6c 0d 3d 6f 3c 72 8c 59 0d 73 3d 9e 51 | $..1...f-G.Yi..=.2.l.=o<r.Y.s=.Q |
| 23b1a0 | 49 8c 0c 59 a8 a7 c0 4c 8c 66 e9 11 73 cd da e0 90 55 d7 fa 2e 99 02 d1 7d 9e d7 11 2b 13 c5 b5 | I..Y...L.f..s....U......}...+... |
| 23b1c0 | 7a 84 ed 99 60 fb 3c 60 31 5b b0 ca 8a f6 63 d8 80 fe 2f fa 7c 68 f7 0e 9b b2 b8 10 f6 48 4d e4 | z...`.<`1[....c.../.|h.......HM. |
| 23b1e0 | 20 0f 1b d8 f4 c7 ec 26 88 4d 26 3f d2 7b db 21 31 65 61 dd d0 96 43 36 69 7f 07 8d 7f 23 de d5 | .......&.M&?.{.!1ea...C6i....#.. |
| 23b200 | 3f 73 ec e2 1d 02 76 83 fe 6b ec 3a 6c 5a 07 04 17 a7 a7 c3 a6 7d c4 3d 4a 96 05 93 9f d5 e3 19 | ?s....v..k.:lZ.......}.=J....... |
| 23b220 | d0 ce 46 b0 ee bf a6 91 e4 16 7b 1e 22 3b f0 15 32 7b 93 33 52 cf 57 4f 05 cb 49 61 12 70 cb 45 | ..F.......{.";..2{.3R.WO..Ia.p.E |
| 23b240 | 63 83 c4 46 c0 88 0e 44 21 e3 c5 45 9d 36 16 4a 9e 7d 6a 03 80 5d 4d d7 1b 4b a2 07 26 fd ef 34 | c..F...D!..E.6.J.}j..]M..K..&..4 |
| 23b260 | 88 c8 0b dc 17 95 b1 ac d1 7d 1d 01 98 89 0a 5f 4a d1 43 77 fa cd 54 a5 7b 27 99 79 ce db dd 51 | .........}....._J.Cw..T.{'.y...Q |
| 23b280 | c2 47 86 69 5f af 29 7b 12 03 9f 55 da 3e 7b 12 ed af fe 01 66 b4 3b 35 b5 13 c9 5a 63 ef 46 48 | .G.i_.){...U.>{.....f.;5...Zc.FH |
| 23b2a0 | f9 ec 9d d7 4f 76 1e 0a a9 85 61 ba 5a 3f a1 95 16 d1 d1 49 dc 1e 5d 79 f4 c7 74 e0 37 fa 39 f2 | ....Ov....a.Z?.....I..]y..t.7.9. |
| 23b2c0 | 29 63 1d b0 58 ac 0e d9 52 fe 84 4a 48 84 23 53 97 23 33 a6 6f b3 f3 ee d7 b2 f1 41 16 0b 44 33 | )c..X...R..JH.#S.#3.o......A..D3 |
| 23b2e0 | b5 9b 36 46 8f de 9b ce 1d 94 9f ee 5a 7e 8e ef 9f b0 67 87 e7 ce 0a a1 b0 70 09 3a 59 a8 56 a5 | ..6F........Z~....g......p.:Y.V. |
| 23b300 | dd f6 4f 03 7b 21 e7 02 cf b6 ac 24 33 9e 13 04 bf 7f 10 a1 8c a1 ed 98 59 1e 6d 74 ef eb 7f ee | ..O.{!.....$3...........Y.mt.... |
| 23b320 | 15 02 b0 6a 4c de 33 35 5c 50 f6 05 cc 9d 7f 23 99 5e 48 72 1f a0 0a 90 78 0c c4 75 ec 47 84 95 | ...jL.35\P.....#.^Hr....x..u.G.. |
| 23b340 | 20 fa 50 56 f7 4a 28 a6 95 61 bf 0c 6e 51 73 6c a4 6f 35 62 b9 a3 b1 30 7c e7 ae 70 85 26 8a d1 | ..PV.J(..a..nQsl.o5b...0|..p.&.. |
| 23b360 | 65 ad be 9d 95 ea 41 05 dd 60 3f 2e 3b bc 25 1e 15 c1 a4 0e d6 8b 4e 15 2f 25 7b 6f 5c e6 43 6f | e.....A..`?.;.%.......N./%{o\.Co |
| 23b380 | cb c3 fe d6 69 ca 26 a4 7b 8c 6a ec 60 05 f6 18 7f 2e 6a 06 05 7b d3 f1 2c 64 7a 72 e0 fa 5c be | ....i.&.{.j.`.....j..{..,dzr..\. |
| 23b3a0 | c0 66 0a b1 19 0c 8d 8c 27 da 82 e1 e2 a7 0d d2 93 ec ee df 45 b0 80 64 1a f5 2a 4a 4a 2c 83 66 | .f......'...........E..d..*JJ,.f |
| 23b3c0 | eb 04 59 c3 7e d2 e0 4c 68 b9 bf a3 8a 8e 60 f2 eb 75 c5 55 2b 10 59 4b d6 59 63 ae c3 3f 49 b8 | ..Y.~..Lh.....`..u.U+.YK.Yc..?I. |
| 23b3e0 | 2a 50 8f 51 1b 9d d0 19 8b f1 10 f5 05 39 3c 00 bb ec 4b e7 15 25 f4 da 5c 69 0b 1d ca 96 6c d8 | *P.Q.........9<...K..%..\i....l. |
| 23b400 | fb 91 02 04 7e b4 31 7f 56 96 19 38 d1 1d fb 8e 87 56 7e 45 a4 55 26 98 4f d7 96 8c ca 3b 94 89 | ....~.1.V..8.....V~E.U&.O....;.. |
| 23b420 | de 6e 15 19 77 ae 0d 7c 2c d0 dd 7e 69 8f 64 d1 c0 11 60 95 85 ff 8d 94 e9 fd fb e4 a5 63 a0 63 | .n..w..|,..~i.d...`..........c.c |
| 23b440 | fc 6c 8d 09 8b c0 20 a5 92 b3 c4 55 d6 3a 4b c6 4e 1a 3f ad 10 ef 0c 30 1d 51 19 77 3f ee 62 4f | .l.........U.:K.N.?....0.Q.w?.bO |
| 23b460 | 3e 59 df c5 c4 1c c8 b4 1e c3 28 7b 62 c8 2f b0 d9 82 22 ef 21 e6 9f 2b 8b 4c d7 d2 11 8a 8c 82 | >Y........({b./...".!..+.L...... |
| 23b480 | 82 23 a1 8e f0 f8 6b 56 67 8a 6a 3c b5 3b d7 25 aa 9b 52 b5 6a d1 7f 76 65 37 f7 c9 ad 2b 05 46 | .#....kVg.j<.;.%..R.j..ve7...+.F |
| 23b4a0 | ea 66 36 6c 2d 6e ea e9 f6 19 39 e3 7c fe 47 a1 c0 04 11 9b ee b5 81 08 c6 98 cc b1 8d ec b9 5a | .f6l-n....9.|.G................Z |
| 23b4c0 | 01 a7 ad 0c 2b 27 4d e3 58 8a 3a e9 d6 ed 55 0f 80 d1 e4 79 18 66 1e 1f 55 f9 0b c9 53 79 55 8a | ....+'M.X.:...U....y.f..U...SyU. |
| 23b4e0 | 6a 86 f8 74 5e e7 87 9f d5 63 c4 4d 39 0d da 46 9c a3 95 cb 5a 25 66 eb 47 b3 77 7a c8 d3 ea bd | j..t^....c.M9..F....Z%f.G.wz.... |
| 23b500 | c2 47 4c 50 77 92 c4 f2 e6 cb af fb 05 e8 c8 ae 1b ac de 4f e3 15 03 7d a0 08 44 71 df 6e d6 4e | .GLPw..............O...}..Dq.n.N |
| 23b520 | 3c 84 c3 e2 6f c4 c3 fc c8 1f a9 0f 6e 09 52 e7 6a bf db 3b 4b a6 a1 30 e0 e5 f0 be e2 1c de fe | <...o.......n.R.j..;K..0........ |
| 23b540 | de 84 e2 12 6d 88 4e d0 61 9a 2b 18 b3 af 0c b3 7c 06 ad 20 e1 47 e5 e5 49 fa 8a d5 78 4a fc a1 | ....m.N.a.+.....|....G..I...xJ.. |
| 23b560 | 61 9f 3f f9 4c fe f5 e2 0f c7 1e f4 5a e7 38 5c fa 5b 7c de ab b8 a2 b0 58 e3 4a 8f cd 0f ba ed | a.?.L.......Z.8\.[|.....X.J..... |
| 23b580 | 2a 1f d3 e3 51 9f 45 54 b6 f7 fb d7 4d bb 2c 2a ce c7 63 dc 0a 7c 57 8c b9 4d 97 17 4f 41 95 18 | *...Q.ET....M.,*..c..|W..M..OA.. |
| 23b5a0 | 69 78 cc a7 ee 05 b1 78 a0 b6 1e 00 34 bc 3f 79 75 5c 5a be 44 51 e1 5c 72 66 df ff f9 a0 84 61 | ix.....x....4.?yu\Z.DQ.\rf.....a |
| 23b5c0 | 6c b0 72 c5 3c 93 40 f7 15 cf 8c a0 24 4a bc 2e fc 8a 37 0b 36 fc 99 94 a8 86 06 f3 c3 50 7e 1d | l.r.<.@.....$J....7.6........P~. |
| 23b5e0 | 5e 14 d9 00 42 f0 a5 8f ee 5b 61 8f 03 a6 d3 47 49 51 9f 00 51 5a 59 95 64 19 a9 87 4d 6d ec 45 | ^...B....[a....GIQ..QZY.d...Mm.E |
| 23b600 | 2b 8a 5d 2b 97 fb 09 16 61 1f f7 84 79 33 79 06 ac 28 50 e0 09 8e e4 31 2f a9 8b 95 59 66 03 47 | +.]+....a...y3y..(P....1/...Yf.G |
| 23b620 | 78 97 ad 6f 41 db f4 33 1d 64 f9 81 38 a6 d9 26 0e 69 95 42 72 65 e4 cc 4b a9 8d 21 23 20 b1 09 | x..oA..3.d..8..&.i.Bre..K..!#... |
| 23b640 | 02 a2 49 2a f6 a0 62 a8 d2 bb 95 95 28 23 4b a6 15 b2 5b dd ac 24 85 35 db 19 f5 ef 81 f6 a7 dc | ..I*..b.....(#K...[..$.5........ |
| 23b660 | 98 f3 08 27 88 f7 d8 b6 67 8b 0b a7 71 96 b5 80 c2 71 10 df 39 9e b0 db eb 14 b1 20 51 f6 bb b8 | ...'....g...q....q..9.......Q... |
| 23b680 | f1 ef 3a b6 2c cd cb b8 7d 2b 2d b3 ed cd 81 09 9c a1 8a dc b6 a1 74 67 c3 75 8e 97 5a 27 82 ec | ..:.,...}+-...........tg.u..Z'.. |
| 23b6a0 | cf 91 ca b2 d2 2b a5 4a b9 c3 2f 0d 47 f1 09 bf 63 3c f8 36 a0 50 44 7d 32 91 26 17 f7 14 d2 a5 | .....+.J../.G...c<.6.PD}2.&..... |
| 23b6c0 | c7 4e cd c0 20 5f 2b 37 1c 46 27 e6 e4 44 57 e7 19 b7 d7 34 10 e0 32 2b 1d 13 bd 7f 7a 57 de 93 | .N..._+7.F'..DW....4..2+....zW.. |
| 23b6e0 | 31 05 d0 57 a5 c4 8c d7 f2 d8 24 1c d5 5a 08 00 6c d5 27 55 05 c8 34 ad dc 88 26 55 e9 d5 2d d7 | 1..W......$..Z..l.'U..4...&U..-. |
| 23b700 | 75 08 99 b0 2e 9f 95 16 f0 37 00 ea bc ce 92 9d 0b ea a4 c8 c4 d3 85 2d 0a 04 e6 68 a7 25 2d 23 | u........7.............-...h.%-# |
| 23b720 | 8b a4 cd be 5c 53 24 3a 5a f5 e4 5c c6 97 00 53 00 61 12 6c 1f b7 67 47 d2 f7 2c 66 37 1d 70 15 | ....\S$:Z..\...S.a.l..gG..,f7.p. |
| 23b740 | b8 39 f0 52 51 39 b6 c0 c9 15 0e 0f 01 49 b4 f6 99 0a f2 bc 7c 75 62 e6 dd ab 86 29 b9 cd 36 34 | .9.RQ9.......I......|ub....)..64 |
| 23b760 | 86 fe a7 eb f5 e2 a4 f2 c3 56 05 cc 67 b6 4f a3 12 33 9f 37 93 b4 07 2c 73 ac 0f 11 08 ea ce ef | .........V..g.O..3.7...,s....... |
| 23b780 | b3 8e e3 92 f7 d7 5b 33 5b 69 29 57 af 46 d6 6d 89 96 ed 44 48 95 9b f4 40 37 03 6c 7b 25 c9 ec | ......[3[i)W.F.m...DH...@7.l{%.. |
| 23b7a0 | d3 68 de 72 75 32 ee fa 97 d1 06 7b 50 f9 c7 77 9d 7b cb b5 e0 a3 f7 ec 45 a9 c9 0e 24 a1 ab c6 | .h.ru2.....{P..w.{......E...$... |
| 23b7c0 | ca 52 3e 34 7f dd 57 4e 78 4e 6b 3e 60 2a 92 c0 e9 86 88 f7 80 65 fb 0e a6 c9 e0 de e9 55 c3 04 | .R>4..WNxNk>`*.......e.......U.. |
| 23b7e0 | 60 7f 56 7e 40 e5 cf 26 8a 26 95 a6 07 69 5a 09 93 26 5d 64 dd 3e db 1d 46 36 b9 78 c4 d7 11 05 | `.V~@..&.&...iZ..&]d.>..F6.x.... |
| 23b800 | 44 85 01 b0 28 d3 7f 48 a9 8f ca 97 6b 91 b8 3b d5 b5 a5 67 4b d8 24 a3 74 df d5 60 5b 56 88 28 | D...(..H....k..;...gK.$.t..`[V.( |
| 23b820 | 3b da 5f 78 ce 0c 57 7c 03 04 83 4b 66 c9 f0 07 89 cf 26 d1 f4 e0 77 5c a9 82 67 87 74 a4 d7 fb | ;._x..W|...Kf.....&...w\..g.t... |
| 23b840 | 10 5a 6f dc ec 9d 0c 81 70 fe 1f 7e 30 ff 7f c0 ff 13 01 20 47 b0 85 1b 14 e2 64 e1 e6 80 f9 bf | .Zo.....p..~0.......G.....d..... |
| 23b860 | 00 1e 22 f6 2f 65 6e 64 73 74 72 65 61 6d 0a 65 6e 64 6f 62 6a 0a 31 32 20 30 20 6f 62 6a 20 3c | .."./endstream.endobj.12.0.obj.< |
| 23b880 | 3c 0a 2f 54 79 70 65 20 2f 46 6f 6e 74 0a 2f 53 75 62 74 79 70 65 20 2f 54 79 70 65 31 0a 2f 45 | <./Type./Font./Subtype./Type1./E |
| 23b8a0 | 6e 63 6f 64 69 6e 67 20 33 36 20 30 20 52 0a 2f 46 69 72 73 74 43 68 61 72 20 31 32 0a 2f 4c 61 | ncoding.36.0.R./FirstChar.12./La |
| 23b8c0 | 73 74 43 68 61 72 20 31 32 36 0a 2f 57 69 64 74 68 73 20 33 37 20 30 20 52 0a 2f 42 61 73 65 46 | stChar.126./Widths.37.0.R./BaseF |
| 23b8e0 | 6f 6e 74 20 2f 47 59 45 52 44 49 2b 43 4d 42 58 31 30 0a 2f 46 6f 6e 74 44 65 73 63 72 69 70 74 | ont./GYERDI+CMBX10./FontDescript |
| 23b900 | 6f 72 20 31 30 20 30 20 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 31 30 20 30 20 6f 62 6a 20 3c 3c 0a | or.10.0.R.>>.endobj.10.0.obj.<<. |
| 23b920 | 2f 41 73 63 65 6e 74 20 36 39 34 0a 2f 43 61 70 48 65 69 67 68 74 20 36 38 36 0a 2f 44 65 73 63 | /Ascent.694./CapHeight.686./Desc |
| 23b940 | 65 6e 74 20 2d 31 39 34 0a 2f 46 6f 6e 74 4e 61 6d 65 20 2f 47 59 45 52 44 49 2b 43 4d 42 58 31 | ent.-194./FontName./GYERDI+CMBX1 |
| 23b960 | 30 0a 2f 49 74 61 6c 69 63 41 6e 67 6c 65 20 30 0a 2f 53 74 65 6d 56 20 31 31 34 0a 2f 58 48 65 | 0./ItalicAngle.0./StemV.114./XHe |
| 23b980 | 69 67 68 74 20 34 34 34 0a 2f 46 6f 6e 74 42 42 6f 78 20 5b 2d 33 30 31 20 2d 32 35 30 20 31 31 | ight.444./FontBBox.[-301.-250.11 |
| 23b9a0 | 36 34 20 39 34 36 5d 0a 2f 46 6c 61 67 73 20 34 0a 2f 43 68 61 72 53 65 74 20 28 2f 66 69 2f 61 | 64.946]./Flags.4./CharSet.(/fi/a |
| 23b9c0 | 73 74 65 72 69 73 6b 2f 63 6f 6d 6d 61 2f 68 79 70 68 65 6e 2f 70 65 72 69 6f 64 2f 66 6f 75 72 | sterisk/comma/hyphen/period/four |
| 23b9e0 | 2f 66 69 76 65 2f 63 6f 6c 6f 6e 2f 43 2f 44 2f 45 2f 46 2f 49 2f 4d 2f 52 2f 54 2f 62 72 61 63 | /five/colon/C/D/E/F/I/M/R/T/brac |
| 23ba00 | 6b 65 74 72 69 67 68 74 2f 61 2f 62 2f 63 2f 64 2f 65 2f 66 2f 67 2f 68 2f 69 2f 6b 2f 6c 2f 6d | ketright/a/b/c/d/e/f/g/h/i/k/l/m |
| 23ba20 | 2f 6e 2f 6f 2f 70 2f 71 2f 72 2f 73 2f 74 2f 75 2f 77 2f 78 2f 79 2f 7a 2f 74 69 6c 64 65 29 0a | /n/o/p/q/r/s/t/u/w/x/y/z/tilde). |
| 23ba40 | 2f 46 6f 6e 74 46 69 6c 65 20 31 31 20 30 20 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 33 37 20 30 20 | /FontFile.11.0.R.>>.endobj.37.0. |
| 23ba60 | 6f 62 6a 0a 5b 36 33 39 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 | obj.[639.0.0.0.0.0.0.0.0.0.0.0.0 |
| 23ba80 | 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 | .0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 |
| 23baa0 | 20 30 20 35 37 35 20 30 20 33 31 39 20 33 38 33 20 33 31 39 20 30 20 30 20 30 20 30 20 30 20 35 | .0.575.0.319.383.319.0.0.0.0.0.5 |
| 23bac0 | 37 35 20 35 37 35 20 30 20 30 20 30 20 30 20 33 31 39 20 30 20 30 20 30 20 30 20 30 20 30 20 30 | 75.575.0.0.0.0.319.0.0.0.0.0.0.0 |
| 23bae0 | 20 30 20 38 33 31 20 38 38 32 20 37 35 36 20 37 32 34 20 30 20 30 20 34 33 36 20 30 20 30 20 30 | .0.831.882.756.724.0.0.436.0.0.0 |
| 23bb00 | 20 31 30 39 32 20 30 20 30 20 30 20 30 20 38 36 32 20 30 20 38 30 30 20 30 20 30 20 30 20 30 20 | .1092.0.0.0.0.862.0.800.0.0.0.0. |
| 23bb20 | 30 20 30 20 30 20 30 20 33 31 39 20 30 20 30 20 30 20 35 35 39 20 36 33 39 20 35 31 31 20 36 33 | 0.0.0.0.319.0.0.0.559.639.511.63 |
| 23bb40 | 39 20 35 32 37 20 33 35 31 20 35 37 35 20 36 33 39 20 33 31 39 20 30 20 36 30 37 20 33 31 39 20 | 9.527.351.575.639.319.0.607.319. |
| 23bb60 | 39 35 38 20 36 33 39 20 35 37 35 20 36 33 39 20 36 30 37 20 34 37 34 20 34 35 34 20 34 34 37 20 | 958.639.575.639.607.474.454.447. |
| 23bb80 | 36 33 39 20 30 20 38 33 31 20 36 30 37 20 36 30 37 20 35 31 31 20 30 20 30 20 30 20 35 37 35 20 | 639.0.831.607.607.511.0.0.0.575. |
| 23bba0 | 5d 0a 65 6e 64 6f 62 6a 0a 33 36 20 30 20 6f 62 6a 20 3c 3c 0a 2f 54 79 70 65 20 2f 45 6e 63 6f | ].endobj.36.0.obj.<<./Type./Enco |
| 23bbc0 | 64 69 6e 67 0a 2f 44 69 66 66 65 72 65 6e 63 65 73 20 5b 20 30 20 2f 2e 6e 6f 74 64 65 66 20 31 | ding./Differences.[.0./.notdef.1 |
| 23bbe0 | 32 2f 66 69 20 31 33 2f 2e 6e 6f 74 64 65 66 20 34 32 2f 61 73 74 65 72 69 73 6b 20 34 33 2f 2e | 2/fi.13/.notdef.42/asterisk.43/. |
| 23bc00 | 6e 6f 74 64 65 66 20 34 34 2f 63 6f 6d 6d 61 2f 68 79 70 68 65 6e 2f 70 65 72 69 6f 64 20 34 37 | notdef.44/comma/hyphen/period.47 |
| 23bc20 | 2f 2e 6e 6f 74 64 65 66 20 35 32 2f 66 6f 75 72 2f 66 69 76 65 20 35 34 2f 2e 6e 6f 74 64 65 66 | /.notdef.52/four/five.54/.notdef |
| 23bc40 | 20 35 38 2f 63 6f 6c 6f 6e 20 35 39 2f 2e 6e 6f 74 64 65 66 20 36 37 2f 43 2f 44 2f 45 2f 46 20 | .58/colon.59/.notdef.67/C/D/E/F. |
| 23bc60 | 37 31 2f 2e 6e 6f 74 64 65 66 20 37 33 2f 49 20 37 34 2f 2e 6e 6f 74 64 65 66 20 37 37 2f 4d 20 | 71/.notdef.73/I.74/.notdef.77/M. |
| 23bc80 | 37 38 2f 2e 6e 6f 74 64 65 66 20 38 32 2f 52 20 38 33 2f 2e 6e 6f 74 64 65 66 20 38 34 2f 54 20 | 78/.notdef.82/R.83/.notdef.84/T. |
| 23bca0 | 38 35 2f 2e 6e 6f 74 64 65 66 20 39 33 2f 62 72 61 63 6b 65 74 72 69 67 68 74 20 39 34 2f 2e 6e | 85/.notdef.93/bracketright.94/.n |
| 23bcc0 | 6f 74 64 65 66 20 39 37 2f 61 2f 62 2f 63 2f 64 2f 65 2f 66 2f 67 2f 68 2f 69 20 31 30 36 2f 2e | otdef.97/a/b/c/d/e/f/g/h/i.106/. |
| 23bce0 | 6e 6f 74 64 65 66 20 31 30 37 2f 6b 2f 6c 2f 6d 2f 6e 2f 6f 2f 70 2f 71 2f 72 2f 73 2f 74 2f 75 | notdef.107/k/l/m/n/o/p/q/r/s/t/u |
| 23bd00 | 20 31 31 38 2f 2e 6e 6f 74 64 65 66 20 31 31 39 2f 77 2f 78 2f 79 2f 7a 20 31 32 33 2f 2e 6e 6f | .118/.notdef.119/w/x/y/z.123/.no |
| 23bd20 | 74 64 65 66 20 31 32 36 2f 74 69 6c 64 65 20 31 32 37 2f 2e 6e 6f 74 64 65 66 5d 0a 3e 3e 20 65 | tdef.126/tilde.127/.notdef].>>.e |
| 23bd40 | 6e 64 6f 62 6a 0a 38 20 30 20 6f 62 6a 20 3c 3c 0a 2f 4c 65 6e 67 74 68 31 20 31 31 30 36 0a 2f | ndobj.8.0.obj.<<./Length1.1106./ |
| 23bd60 | 4c 65 6e 67 74 68 32 20 34 37 37 37 0a 2f 4c 65 6e 67 74 68 33 20 35 33 32 0a 2f 4c 65 6e 67 74 | Length2.4777./Length3.532./Lengt |
| 23bd80 | 68 20 35 34 39 30 20 20 20 20 20 20 0a 2f 46 69 6c 74 65 72 20 2f 46 6c 61 74 65 44 65 63 6f 64 | h.5490......./Filter./FlateDecod |
| 23bda0 | 65 0a 3e 3e 0a 73 74 72 65 61 6d 0a 78 da ed 93 65 5c 94 6b b7 c6 01 e9 72 14 d8 94 c0 48 d7 30 | e.>>.stream.x...e\.k....r....H.0 |
| 23bdc0 | 0c dd d2 48 37 d2 3a c0 0c 0c 0e 0c 31 c4 48 77 87 d2 8d d2 48 23 25 20 20 21 29 5d 02 82 28 88 | ...H7.:.....1.Hw....H#%..!)]..(. |
| 23bde0 | 84 20 9d 7a 66 bb df 77 eb d9 ef c7 73 3e 9d df 79 9e 2f cf 7f ad 75 af eb ba ef 67 dd 1c b7 f5 | ...zf..w....s>..y./...u....g.... |
| 23be00 | 0c 41 0a 76 28 1b 98 2a ca 19 0d 82 08 40 a4 80 4a da 8a a6 10 21 20 44 40 90 94 83 43 c9 0d 06 | .A.v(..*.....@..J....!.D@...C... |
| 23be20 | 45 23 50 ce ca 50 34 4c 0a 08 91 94 84 00 15 3c ec 81 42 82 40 88 98 94 b0 88 94 a8 08 29 07 50 | E#P..P4L.......<..B.@........).P |
| 23be40 | 09 e5 82 71 43 d8 3b a0 81 dc 4a 3c 7f 16 89 03 15 9c 60 6e 08 5b a8 33 50 1b 8a 76 80 39 61 7b | ...qC.;...J<......`n.[.3P..v.9a{ |
| 23be60 | d8 42 91 40 43 94 2d 02 86 c6 08 00 15 90 48 a0 c1 9f 2b dc 81 06 30 77 98 9b 27 cc 4e 80 14 02 | .B.@C.-.......H...+...0w..'.N... |
| 23be80 | 01 da 21 6c d1 40 1b 98 3d c2 99 14 fc a7 23 75 67 38 0a 28 fe 57 d8 ce c3 e5 df 29 4f 98 9b 3b | ..!l.@..=.....#ug8.(.W.....)O..; |
| 23bea0 | d6 14 90 1b 6b 92 07 88 b5 68 87 72 46 62 80 76 30 38 29 58 07 85 d5 82 61 9d fc 6f 98 fa 67 73 | ....k....h.rFb.v08)X....a..o..gs |
| 23bec0 | 55 0f 24 52 07 ea f4 67 fb 9f a7 f4 1f 79 a8 13 02 89 f9 57 05 ca c9 c5 03 0d 73 03 6a a3 ec 60 | U.$R...g.....y.....W......s.j..` |
| 23bee0 | 6e ce ff 2c bd 07 fb cb 9c 22 0a f9 1f 32 ea 68 28 12 61 ab e0 6c 8f 84 01 05 ff 0a 21 dc 55 11 | n..,....."...2.h(.a..l......!.U. |
| 23bf00 | de 30 3b 3d 04 da d6 01 08 87 22 dd 61 3f e3 30 67 bb 7f 5a c0 1e db 4f 03 60 55 55 75 15 15 15 | .0;=......".a?.0g..Z...O.`UUu... |
| 23bf20 | be 7f fd cf 9f 49 3d 28 c2 19 6d 84 71 f9 bb ed 9f d5 3f 19 f2 8b b1 a7 e3 86 f0 06 5a 08 0a 08 | .....I=(..m.q.....?.........Z... |
| 23bf40 | 0a 42 b0 85 d8 f7 df 5f 56 ff 10 53 71 b6 45 d9 21 9c b1 03 21 2a 06 84 ba b9 41 31 a4 d8 c9 c0 | .B....._V..Sq.E.!...!*....A1.... |
| 23bf60 | 92 28 d0 07 02 44 38 db c1 bc 81 30 6f ac 63 b0 80 33 0a 8d 5d 02 c4 1e 89 1f 10 8e 72 23 fd f3 | .(...D8....0o.c..3..].......r#.. |
| 23bf80 | 77 8a 88 03 c1 ee 48 a8 bb c3 9f e1 9f 11 31 51 20 58 e1 17 61 f3 4a bf 48 12 08 56 f9 9b c4 21 | w.....H.......1Q.X..a.J.H..V...! |
| 23bfa0 | 40 b0 da 2f 12 06 82 d5 ff 26 09 41 20 58 ef 17 09 01 c1 06 7f 13 76 0e c0 d0 5f 24 01 04 db fc | @../.....&.A.X........v..._$.... |
| 23bfc0 | 22 ac 82 ed df 04 c1 ee 19 0c fb 0d b1 1a f6 bf a1 08 10 ec f0 1b 62 9d 23 7e 43 6c 63 e4 6f 88 | ".....................b.#~Clc.o. |
| 23bfe0 | ed ec f4 0b 21 58 83 ce bf 21 56 08 f5 1b 62 0d bb fc 86 58 21 b7 df 10 2b e4 fe 1b 8a 01 c1 e8 | ....!X...!V...b....X!...+....... |
| 23c000 | df 10 bb 3d 8f df 10 6b c3 f3 17 0a 61 85 30 3f f1 3f 87 46 51 11 e5 ed 03 12 15 06 82 84 44 21 | ...=...k....a.0?.?.FQ.........D! |
| 23c020 | d8 95 c2 92 40 71 51 41 bf ff 56 68 eb e1 e6 06 73 46 ff bc 8f d8 d1 fb 37 c3 11 d8 41 85 c1 bc | ....@qQA..Vh....sF......7...A... |
| 23c040 | 61 b6 a4 f3 33 28 5b e9 50 c7 b4 c6 f0 32 7f 95 82 b1 72 02 5e 5c 45 fb a6 44 9d fa ce c9 76 b2 | a...3([.P....2....r.^\E..D....v. |
| 23c060 | 90 b9 c7 b8 c8 e2 41 4d 57 de f7 75 a6 e7 cf 33 a9 28 d7 09 d6 59 bc 2e 19 dd a3 db 7c f5 47 54 | ......AMW..u...3.(...Y......|.GT |
| 23c080 | 77 83 5c 13 d3 a7 bf af 7b 3e 58 cf 7c d4 c2 68 ba 9f a9 8d 59 73 61 3d 09 d9 ba de da 38 75 b8 | w.\.....{>X.|..h....Ysa=.....8u. |
| 23c0a0 | 2d 8a ab 3b f1 7e a8 2c d9 ac b0 37 67 af 6f eb a9 1e b7 b2 d1 67 a2 c5 db 38 5d 16 9e 2f ba b2 | -..;.~.,...7g.o......g...8]../.. |
| 23c0c0 | 42 c5 c4 4d 55 33 91 c6 11 61 75 9c c2 b7 0d 00 e9 ae 65 91 22 11 4b 5e 80 e4 27 f8 4b a3 21 fe | B..MU3...au.......e.".K^..'.K.!. |
| 23c0e0 | 8e 11 c4 cd 7c 0b df 50 6d 1e 37 cf 0b 88 f3 93 be df bf 66 37 62 f2 e0 44 f3 6b 2a 86 e2 a3 f9 | ....|..Pm.7........f7b..D.k*.... |
| 23c100 | 79 e2 f0 c9 cd da 40 ab d2 e8 8f 1e f9 da 19 66 f1 95 97 36 16 8b 2c d9 10 0b e4 7e 6c d6 14 d7 | y.....@........f...6..,....~l... |
| 23c120 | 01 3f da 32 a3 ea 95 cb bb aa a9 dc 42 f3 33 5d 62 7a 91 72 b5 28 0d 71 0a 44 f4 cb f6 c2 db c6 | .?.2........B.3]bz.r.(.q.D...... |
| 23c140 | 38 b5 89 d5 9c 01 a3 4d 4b cf da 1c 1e 98 eb 1c 33 0f 17 cc dc 72 d0 54 fb d1 10 f9 48 7a 67 e5 | 8......MK.......3....r.T....Hzg. |
| 23c160 | c5 24 65 fc cb 0e 60 3a 39 1b 84 93 6e 8b b2 9a 3b 8b 87 fd 87 86 b0 66 d8 7c c2 4c 98 ca 55 e5 | .$e...`:9...n...;......f.|.L..U. |
| 23c180 | 8b 80 0c 66 f7 c4 5a ca 0d 47 d5 a2 ea 48 78 27 80 55 8f 7d 7a 2d 1c a4 fe be 61 6e 7b 28 65 5e | ...f..Z..G...Hx'.U.}z-....an{(e^ |
| 23c1a0 | 31 a4 97 54 4c d6 a1 30 d1 55 d9 04 b0 27 f3 f1 01 89 ca 8d e8 87 9d f5 e5 2a 49 00 1d ec d5 eb | 1..TL..0.U...'...........*I..... |
| 23c1c0 | 8b d5 50 3b 25 99 f5 d7 da f7 11 0b 3a 6e 3c a8 50 8f 57 11 63 3c 5b 61 a9 36 e6 3a fa 38 8c a1 | ..P;%.......:n<.P.W.c<[a.6.:.8.. |
| 23c1e0 | 10 0c b5 d7 94 e3 e4 41 c9 5d 13 62 b4 34 b6 62 37 bd 17 1d f5 19 04 81 17 f4 ce ca d7 3f af e5 | .......A.].b.4.b7............?.. |
| 23c200 | 1a 55 24 87 38 9d dd 8b 90 cd d7 da 5b e0 28 11 45 17 be 17 d0 05 59 e9 c4 93 29 11 1a 8d 06 88 | .U$.8.......[.(.E.....Y...)..... |
| 23c220 | 30 30 2e c8 71 7a 75 25 7b ea 54 9a f6 86 1d e6 7e 23 56 fa 8e 77 3d 6f 79 1e 27 0e 4e b1 46 96 | 00..qzu%{.T.....~#V..w=oy.'.N.F. |
| 23c240 | 35 fb ac d4 2d a3 0d 92 0b 9f 0d 02 30 b6 98 7c 24 54 7a 9a 95 d4 9f ea cf f0 c9 35 4f 90 ec bb | 5...-.......0..|$Tz........5O... |
| 23c260 | 29 7c 6f e6 9d 75 af 35 2d 03 fb 64 13 d1 6e 01 c7 54 80 9a b8 dd 97 ac fe 5a 40 5c 90 e5 7e 45 | )|o..u.5-..d..n..T.......Z@\..~E |
| 23c280 | e5 39 52 d5 76 43 30 cc ca 5e e6 4b 74 53 c2 fd e0 bc 80 67 9c cf ef ed f9 c8 f9 e9 f8 7e a4 9c | .9R.vC0..^.KtS.....g.........~.. |
| 23c2a0 | 6c da a2 10 14 ed a5 8e 2b 9d 3f 17 b9 2b 42 7d 55 fa 71 31 17 a9 96 2b f7 35 f3 46 be 51 c0 00 | l.......+.?..+B}U.q1...+.5.F.Q.. |
| 23c2c0 | f1 fd 42 5b 86 f1 ec 2f 62 2b 66 f1 90 34 60 40 49 ab b3 f1 e8 f4 ae 5b 55 17 28 33 d5 83 fd d6 | ..B[.../b+f..4`@I......[U.(3.... |
| 23c2e0 | 23 57 c8 43 01 ea b8 d5 a7 ee 7c 62 5c 80 dc 42 d5 21 21 ca d6 d5 cf c1 41 23 7b 51 94 02 6e 8d | #W.C......|b\..B.!!.....A#{Q..n. |
| 23c300 | ae 54 a2 61 01 cc 6c c2 be 1e 9f 79 5c 98 93 a6 5f 75 da 92 2f 06 e8 a4 b8 09 6f 93 9c d1 ae 0d | .T.a..l....y\..._u../.....o..... |
| 23c320 | ba c8 f8 27 85 d2 a4 53 ba 87 de e9 83 e6 ac d0 f6 ab 49 39 31 f2 ad 51 83 b6 9e 85 b5 24 3c 1d | ...'...S..........I91..Q.....$<. |
| 23c340 | b6 b6 9b a8 6c 09 5a 57 e3 71 0d 0d d5 7f a6 b2 74 5c 2e 1d cc f1 a5 22 5e 55 b0 e6 87 d0 0c 66 | ....l.ZW.q......t\....."^U.....f |
| 23c360 | 9b ab a2 32 ac 4f 52 a7 f8 04 c0 d6 f8 e0 6b a4 6c 8c bd 83 f8 97 ad c2 4f 7c a5 07 30 25 a9 c4 | ...2.OR.......k.l.......O|..0%.. |
| 23c380 | eb 4c dd 65 7b 1b d1 9c 22 c3 6e af 53 14 f8 53 30 b2 dd 13 ee af 5f 6e 25 2a b3 c7 47 70 b6 c8 | .L.e{...".n.S..S0....._n%*..Gp.. |
| 23c3a0 | 84 11 51 32 fa 8f 8d 9b eb 0a b4 c7 ee ac 25 b6 e0 b5 df fc 26 17 78 82 67 b2 5a 76 38 ab 16 d4 | ..Q2..........%.....&.x.g.Zv8... |
| 23c3c0 | fe 32 69 a4 02 8f 4b 70 75 b7 95 33 d3 3a f0 6b 9d 6b 07 9f d5 20 37 4b e5 eb 7c 6d 8c 97 74 8a | .2i...Kpu..3.:.k.k....7K..|m..t. |
| 23c3e0 | 63 e7 87 fe 18 7d 91 52 a2 b1 99 8a 5d 29 71 93 4b 79 e4 83 b2 c2 65 09 11 61 dd 7a 33 fb 30 e4 | c....}.R....])q.Ky....e..a.z3.0. |
| 23c400 | 2b 2d 9b ba f0 21 54 fd 93 fe 60 ee 61 69 76 26 bd cf e4 0d 54 8e 1c ac c6 9c 59 7c 3a 1d 6c be | +-...!T...`.aiv&....T.....Y|:.l. |
| 23c420 | 61 1b d2 7b a8 b9 39 40 65 4f 12 97 c9 f3 dc 68 b1 79 4b a9 9a d1 77 5f 1b 28 26 f0 ef 91 c9 ed | a..{..9@eO.....h.yK...w_.(&..... |
| 23c440 | d7 dd 5f 3e 7a 8d df cc 71 f3 4e 5e 5b 31 0d 13 b0 d5 e6 1a 7d 6e e1 e2 0e d9 ec bb dc 87 76 5b | .._>z...q.N^[1......}n........v[ |
| 23c460 | 22 d9 6c 7b ad a6 9c bc ae f5 83 b5 61 ef b7 83 a5 25 9d ed ba cf e9 d0 95 25 79 e9 db a4 16 31 | ".l{........a....%.......%y....1 |
| 23c480 | ee 6c 73 9a 5a 9b 75 3e fb 05 12 be af b3 d2 ee 90 73 9a 21 b3 f2 62 60 72 97 f4 36 9c 7c 3e 87 | .ls.Z.u>.........s.!..b`r..6.|>. |
| 23c4a0 | 85 65 f8 20 21 cb dd 61 c5 64 d2 17 b3 5b 6b 5d 7b d5 90 af 83 8d 3d 46 26 d5 59 8c b2 dd 25 3d | .e..!..a.d...[k]{.....=F&.Y...%= |
| 23c4c0 | df 1e d3 e6 d8 44 c1 3f 35 61 67 d3 43 a3 2b 51 98 70 50 81 e7 b1 35 3e 3b 13 c4 84 fe c3 48 cf | .....D.?5ag.C.+Q.pP...5>;.....H. |
| 23c4e0 | 87 69 9e 57 8b e3 0a 1e cd 63 4a 5b 2d 18 5c 97 db a5 b3 9e b7 15 f1 58 51 8b 2b de 84 ea 59 84 | .i.W.....cJ[-.\........XQ.+...Y. |
| 23c500 | e1 e8 0b 4f de 9e c4 90 27 91 47 bb de 94 26 55 86 dd 14 7a 68 93 47 53 98 8e 65 a3 78 f4 47 73 | ...O....'.G...&U...zh.GS..e.x.Gs |
| 23c520 | c5 70 0f e2 c0 2e b7 ab 8a 20 2f 9f 3c 29 f1 83 2d bf 04 ca 34 32 f8 f8 0e b5 4e e2 23 3a 3b 79 | .p......../.<)..-...42....N.#:;y |
| 23c540 | 7f d7 e1 4b b3 ea 70 17 02 2d 76 c1 b9 ca 3b ac 05 35 6a 90 f4 6f 67 14 62 45 c5 7c 61 fe 90 09 | ...K..p..-v...;..5j..og.bE.|a... |
| 23c560 | 8a 2b 9d 8d e0 6b 43 0b 07 79 53 5b 9a b9 a5 ad a2 89 65 de c7 ef f5 1a 93 8c 55 a8 19 8e 71 53 | .+...kC..yS[......e.......U...qS |
| 23c580 | 54 18 26 a8 c6 69 36 db c7 8c 71 4f 5b 34 9a 91 5a 16 0d 68 23 df ae 7a c7 dc 2e 48 c7 8a 28 90 | T.&..i6...qO[4..Z..h#..z...H..(. |
| 23c5a0 | 48 f6 ed c1 fb 81 b2 82 b5 2f 7a 5f ef 9e 39 95 3f 1e e1 13 04 fd 70 79 04 bc a6 3f 46 44 43 d5 | H......../z_..9.?.....py...?FDC. |
| 23c5c0 | 4f dd 85 96 2d 1b 0f be 94 4c 9a ac b1 36 3e 8c a6 a7 c0 ed 81 e5 04 59 43 08 3b 36 a1 ca b8 11 | O...-....L...6>........YC.;6.... |
| 23c5e0 | 1f 25 f7 8d e0 cf 4d f4 4a e3 86 dc f0 23 5f bf 5a f3 a7 96 f7 58 b1 af d3 a8 22 f7 d4 b1 7c bb | .%....M.J....#_.Z....X...."...|. |
| 23c600 | 5a c1 68 54 e7 3b a8 66 32 71 2a 7f 29 3c 36 da 12 cf 5f cc 1d 9e 70 be 74 e7 f3 9b ab 2e c7 d5 | Z.hT.;.f2q*.)<6..._...p.t....... |
| 23c620 | 80 b4 6f af 71 f1 aa 0f 69 19 8f c2 ce f9 05 36 67 a2 c1 a0 c2 66 3c 0e 8f cc 0c 8d b7 3c ce 7e | ..o.q...i......6g....f<......<.~ |
| 23c640 | 99 42 46 83 83 94 0d 6a c5 e3 1e a0 d9 12 fd ef 4f 54 37 fd 5a 03 1f 09 56 9e 08 ce 90 67 58 34 | .BF....j........OT7.Z...V....gX4 |
| 23c660 | f7 dc 6a bd 10 be aa 14 d6 c7 19 6d 8e f0 99 a2 da fa 16 a0 dd 35 e1 58 a8 97 72 54 03 c8 8f 51 | ..j........m.........5.X..rT...Q |
| 23c680 | f6 36 a7 91 80 53 1b 91 bb b6 df 13 a1 dc 4d 35 6e e5 5e d8 3f 18 c3 19 e4 4f 7e 43 4a 5a 22 94 | .6...S........M5n.^.?....O~CJZ". |
| 23c6a0 | db fe 91 88 3f b5 7c 0f 11 b1 2a 4b 6a 80 9b 39 fc 52 13 53 1f 35 81 23 9b fa 22 39 c6 ac 5a 32 | ....?.|...*Kj..9.R.S.5.#.."9..Z2 |
| 23c6c0 | cf 90 e4 7a 72 a0 01 01 e3 b3 da 4e e3 2e 52 cb 9e 85 19 ca c7 64 bc 21 d9 63 c1 34 72 a7 71 a7 | ...zr......N..R......d.!.c.4r.q. |
| 23c6e0 | 40 d7 46 90 f7 87 17 53 ea 22 c9 c2 6d ad b3 9d 9f 05 4c 75 53 e2 54 c8 9e d7 fa c0 4b 8b 59 02 | @.F....S."..m.....LuS.T.....K.Y. |
| 23c700 | 21 05 be af 05 06 d7 4b ed f6 d6 b9 12 d2 70 1e bf 53 16 bc ba a7 c3 a4 8f 9f c6 a6 03 68 25 63 | !......K......p..S...........h%c |
| 23c720 | 73 f5 9e b9 ff 40 d2 76 3e b6 66 34 06 c1 dd 9d 44 9c c0 cb 45 4b 39 c4 95 94 aa 54 97 bb 4e f5 | s....@.v>.f4....D...EK9....T..N. |
| 23c740 | 7a 77 1b 15 3f 69 e3 9a 6d 1c ad 6a 5f dd ec c4 e4 de 4f 5e 1c 54 44 03 ae 74 fc b6 39 72 64 d9 | zw..?i..m..j_.....O^.TD..t..9rd. |
| 23c760 | 38 e7 29 4d 80 63 20 2f 2d ce 02 9d 8b eb 35 82 0c d5 f8 fd 21 a3 98 ef b3 40 5f 17 a8 ee 98 71 | 8.)M.c./-.....5.....!....@_....q |
| 23c780 | e9 1f 74 d8 2e e7 ce bc 57 54 67 11 8c 73 fc 86 b1 0b 8f f2 2b 3c 7a f8 ed b6 f8 e8 49 f7 10 1d | ..t.....WTg..s......+<z.....I... |
| 23c7a0 | e1 29 45 98 f2 4c c2 cd 70 9b 38 27 b9 f2 81 07 0c 19 8e 9c 95 17 8a 95 d2 86 a1 f0 a2 2c 5f 9f | .)E..L..p.8'.................,_. |
| 23c7c0 | ed d1 0c b1 f5 16 5a 6a e4 1e 8e 11 61 da 54 c8 42 5f fb e7 57 33 17 a9 17 03 d1 87 53 a2 12 49 | ......Zj....a.T.B_..W3......S..I |
| 23c7e0 | 5f 99 2b ce 03 f7 70 51 1b 65 e7 26 93 5f ac 1d 22 8b bb 25 a5 d7 d4 bb da 9c b4 2f 74 d7 7e b4 | _.+...pQ.e.&._.."..%......./t.~. |
| 23c800 | 5b 48 8f 1a 6a 11 41 8f 16 c1 3e 77 e7 45 c3 de b2 10 68 bc d0 a0 d9 5e 67 dd 59 ee 73 37 e9 1a | [H..j.A...>w.E....h....^g.Y.s7.. |
| 23c820 | 3b 93 28 1a 40 cd 79 3a 25 92 b2 e6 33 e8 44 5a b9 2a 20 4e 2f e5 84 e8 ef b6 19 2e 3b 77 17 63 | ;.(.@.y:%...3.DZ.*.N/.......;w.c |
| 23c840 | 5e db 71 0e b4 65 15 3d 13 94 ac e7 04 09 94 4c 17 ed 1c f4 18 b0 cd f2 15 52 f9 2b 50 65 b5 0c | ^.q..e.=.......L.........R.+Pe.. |
| 23c860 | 57 ae 9b 32 23 9e a6 15 7b 34 1d 61 20 23 f0 0e fd e8 5e ef 67 db c1 94 1f 06 fd 28 4a d7 26 a1 | W..2#...{4.a.#....^.g......(J.&. |
| 23c880 | 16 31 b4 73 ed 68 d8 49 c6 4d 3e cb 36 bb 90 5a 05 bf 51 f9 09 d1 a3 7e 07 b8 88 61 d2 c3 d4 d6 | .1.s.h.I.M>.6..Z..Q....~...a.... |
| 23c8a0 | 93 45 75 26 e1 27 cd 3a cb 13 4b 39 ca bc 19 a0 c1 1b 64 f7 77 8c 11 11 03 3d 09 ec 94 4e f4 a1 | .Eu&.'.:..K9......d.w....=...N.. |
| 23c8c0 | be d5 47 93 b3 ea 0b ee 45 2b 17 50 61 1a d1 f1 1f f5 06 a7 67 8f fc 01 fc ea 7f dc bf b0 7e c9 | ..G.....E+.Pa.......g.........~. |
| 23c8e0 | af 48 cf 96 5d ae bb 64 ca e9 35 3d 1c 6a 6d d1 91 4f e1 be 6c 78 cd fa d5 98 43 3c 21 8d 77 91 | .H..]..d..5=.jm..O..lx....C<!.w. |
| 23c900 | 7d 5a 67 51 8c 1b ef 31 97 60 be 5d b6 30 49 03 b5 4a 5f 59 80 76 ab e4 db eb 66 4b 93 2a 49 91 | }ZgQ...1.`.].0I..J_Y.v....fK.*I. |
| 23c920 | 24 b8 00 02 67 09 29 07 d0 69 3e 09 15 aa 60 b0 4e 8d da 1c d3 bd 19 3b b1 ba 40 4d c9 f2 58 98 | $...g.)..i>...`.N......;..@M..X. |
| 23c940 | cc 1e 5e 99 ef 23 c3 4a db ed 3b 39 3c 76 57 4c ec 0b 08 af a7 87 21 b0 0a ba 14 a4 3a ae 9e dc | ..^..#.J..;9<vWL......!.....:... |
| 23c960 | b6 c1 74 df de 80 c3 80 75 58 00 cc 96 da 55 6f 40 ec fb 44 14 42 fc 1a 1a b0 99 a2 b1 1f 98 8d | ..t.....uX....Uo@..D.B.......... |
| 23c980 | 67 a3 a7 33 e1 71 2d 11 48 ea 6a f3 e0 94 48 b5 c6 78 f2 a3 47 1a 52 9a a0 c4 a8 e2 e1 57 8f 3b | g..3.q-.H.j...H..x..G.R......W.; |
| 23c9a0 | f4 59 92 02 a7 3b 8c a4 1b ca 5f 63 ac 73 56 b8 3f 25 89 6f 78 91 4c 03 4c 9a bb 48 cc d8 83 97 | .Y...;...._c.sV.?%.ox.L.L..H.... |
| 23c9c0 | 43 0a 44 59 db 47 58 6d 24 6a 3c ab 63 0d 38 99 5a 77 d6 0b 6f 98 c9 0d 71 df db 0a d3 0e bc 62 | C.DY.GXm$j<.c.8.Zw..o...q......b |
| 23c9e0 | 3f 36 ef c3 2d 03 f3 1f 3e 34 7d dc 77 c1 b1 3b 16 31 b3 cf f9 b4 30 13 13 a2 a7 16 fd d5 58 9d | ?6..-...>4}.w..;.1....0.......X. |
| 23ca00 | 6d 0d 43 30 65 59 4b ae 31 82 4b 78 a3 09 56 08 44 25 a2 e5 57 ff 28 c6 63 66 d6 ca 7b 35 61 4d | m.C0eYK.1.Kx..V.D%..W.(.cf..{5aM |
| 23ca20 | b8 97 c9 84 e8 75 d3 ba a5 96 10 ef 20 eb 92 19 95 71 32 0d 20 db bd 57 f3 f1 06 05 4e a0 de ec | .....u...........q2....W....N... |
| 23ca40 | a4 40 cf 35 aa 9d aa 40 6b 4d 96 6e 4b de f2 fe e6 20 18 21 c5 17 44 e4 aa 9b 5e e8 d6 e7 d4 2f | .@.5...@kM.nK......!..D...^..../ |
| 23ca60 | d4 7b 6e 2f a4 54 70 78 f8 0d d5 57 6d 9f 77 8b b6 e5 ba 14 bb 4b 24 c8 6d 05 b6 6c e5 11 45 cd | .{n/.Tpx...Wm.w......K$.m..l..E. |
| 23ca80 | 9d f6 5d 25 b6 d6 b2 57 d2 ba b7 89 66 dc 26 9f aa d3 bb 15 39 5f 3b 30 b8 68 41 92 fe b6 fc bd | ..]%...W....f.&.....9_;0.hA..... |
| 23caa0 | ef 9c 1a 2e 5b 2c c1 53 dc 28 05 fa 4b 0d 16 d2 e5 1b 7e 7e 74 67 94 8a 3c 19 a7 42 51 81 04 f6 | ....[,.S.(..K.....~~tg..<..BQ... |
| 23cac0 | f5 5d 3e 74 f4 93 d7 7a 0f ef ab 24 68 8d 77 86 f5 74 31 e9 f2 e3 7f 2f e0 d8 b8 0a 18 5b 63 eb | .]>t...z...$h.w..t1..../.....[c. |
| 23cae0 | 74 e9 3a 61 57 9c 46 a2 1d f0 c8 2a b7 87 ca 57 1e fd 81 66 c8 4e e0 55 d9 61 dd da 92 e4 ce 9a | t.:aW.F....*...W...f.N.U.a...... |
| 23cb00 | 0b 5c df 36 7a d1 bc fe c7 81 13 ec e5 a2 21 7e 1d cc 15 34 59 95 1e bb b4 a5 13 62 94 a9 87 c7 | .\.6z.........!~...4Y......b.... |
| 23cb20 | dd 57 00 45 61 aa 9d 69 68 62 19 42 db e2 bc 04 63 c4 98 6b 62 e2 22 8f a4 c0 59 da b6 5e d7 23 | .W.Ea..ihb.B....c..kb."...Y..^.# |
| 23cb40 | 33 61 f7 df 8d fd e0 62 d3 af 79 74 29 97 6d 44 6c 82 31 f0 5b e9 48 1e 8a 7a df 1a 6e c7 61 5e | 3a.....b..yt).mDl.1.[.H..z..n.a^ |
| 23cb60 | 74 1d e0 7a 95 4b 6b a1 c6 69 ab bf c0 c0 73 6b c7 5c 55 3f 03 2a b3 05 e5 9c 0a a1 2b 7c 8d 88 | t..z.Kk..i....sk.\U?.*......+|.. |
| 23cb80 | 6c 11 3e f9 24 3b de 54 5b 6b 96 c7 ab 44 4a 07 be fc 2c 12 90 d1 99 34 dd ee bf 69 54 4e cb 90 | l.>.$;.T[k...DJ...,....4...iTN.. |
| 23cba0 | 6e 0d 97 04 cb 36 9e f2 1a ae cf 8b 2c f8 f6 65 b2 57 23 5c 6b 65 56 34 df f1 ee 0b 70 90 8b f3 | n....6......,..e.W#\keV4....p... |
| 23cbc0 | be 1f 51 18 f9 e3 5e 84 e1 7a ef 12 6a f2 c5 0f e5 cd 2e 8d 46 f6 cd 8c c9 14 4a 5a 7b 62 7f 61 | ..Q...^..z..j.......F.....JZ{b.a |
| 23cbe0 | 91 3a 4f 40 6c 03 b8 f6 d2 c6 3e 09 40 95 bc 02 53 d2 98 19 20 50 e6 e5 f2 13 d2 c1 64 1f 94 82 | .:O@l.....>.@...S....P......d... |
| 23cc00 | 7a f1 01 cc 47 df d7 f1 7a 52 47 3b d4 17 a4 b3 8b fc ee 64 53 5e 9c 39 c9 fa 10 d5 b1 8c 17 8a | z...G...zRG;.......dS^.9........ |
| 23cc20 | 27 e8 92 ba f0 aa 99 f8 c1 3d 08 ac a7 9f 1e 3d 92 b2 f8 4e e1 3c 9e 5c 8a e9 df 05 4c d1 29 0e | '........=.....=...N.<.\....L.). |
| 23cc40 | 0d e7 77 b9 fc 48 68 f0 7f 8d fc 5c 6c 13 b4 95 35 b6 34 bf dc b6 3e fd e9 51 f2 85 64 04 c3 fd | ..w..Hh....\l...5.4...>..Q..d... |
| 23cc60 | 91 69 87 f3 ed 05 27 71 b1 f8 9e 39 c1 b7 a7 b4 3d 02 99 aa e9 f1 e7 34 84 25 e9 53 09 8b 7d cf | .i....'q...9....=......4.%.S..}. |
| 23cc80 | 13 f7 07 94 52 cc c7 16 cb 2c c3 8b de 2d 7a 89 b3 1c 8f b1 10 32 0d 19 76 74 72 3c d6 4f e2 7c | ....R....,...-z......2..vtr<.O.| |
| 23cca0 | 53 92 3b 0a de 63 e3 f0 c2 18 b5 55 d8 39 0b 77 b6 bd 31 fd c2 c1 b2 21 dd 12 29 e6 06 e6 89 e0 | S.;..c.....U.9.w..1....!..)..... |
| 23ccc0 | 01 3f 39 7b 3b ed 7f 49 90 3e b2 a8 3f 72 b0 3b 2d 61 b5 63 d8 27 95 85 46 cd 8f 30 b6 bf 3a 00 | .?9{;..I.>..?r.;-a.c.'..F..0..:. |
| 23cce0 | c4 72 fd 68 34 fb 66 0c 39 de f1 0e 0a bb 1d 14 0b 3f 5f e0 7e 12 63 ef 01 be 01 bf a5 4e 2a 2c | .r.h4.f.9........?_.~.c......N*, |
| 23cd00 | c5 a7 a6 20 6a ad eb 8b 0c 18 64 61 27 a0 a4 2f a1 cf b7 8a 06 97 64 d0 27 e3 29 e0 f1 d3 2a 26 | ....j.....da'../......d.'.)...*& |
| 23cd20 | cd 9f f7 8a 6e 52 4f 85 df 49 11 b0 a3 62 0a 55 6f 33 ca a3 d5 92 8b c0 af ac f9 16 fe 8a b5 71 | ....nRO..I...b.Uo3.............q |
| 23cd40 | 70 37 5b ee 96 cd 86 e1 72 5e 46 5a 16 97 21 8f d5 30 e7 25 b3 16 c1 71 8c 0c 3f 7f a6 0d 6f 30 | p7[.....r^FZ..!..0.%...q..?...o0 |
| 23cd60 | 59 e2 5b 4e a2 da 29 16 45 a8 ab 9d 8a f6 83 03 d3 b0 ac 5b fa 41 f3 b7 8c 3c f8 01 2c 9e 01 cf | Y.[N..).E..........[.A...<..,... |
| 23cd80 | 4c 78 e3 02 6f e9 3f 10 5f 6d 18 43 6e 57 66 45 70 dc f9 94 f3 58 0a 57 53 82 64 d2 c2 b5 e7 51 | Lx..o.?._m.CnWfEp....X.WS.d....Q |
| 23cda0 | 3a 80 90 27 52 0d 87 1e 7e 5a dc 5d c9 67 ce 76 19 f9 69 d7 68 6b 24 50 f7 e6 fb 2b a9 3f 2c 59 | :..'R...~Z.].g.v..i.hk$P...+.?,Y |
| 23cdc0 | 8b 74 d5 1b 0e 55 fc b3 3c 64 59 c6 86 72 0a 21 ba f2 1b 19 f7 92 70 cb 56 ab d8 e6 90 d3 cb 39 | .t...U..<dY..r.!......p.V......9 |
| 23cde0 | 96 13 bc df 14 85 96 8b 68 26 9d a4 24 20 76 81 2c 4c 03 1c f4 aa 07 7c 82 06 28 09 8f 97 c1 8f | ........h&..$.v.,L.....|..(..... |
| 23ce00 | ae ad 4e d5 f8 a7 5f 50 0c dc 1f d1 1b f9 61 7e d8 2a 52 73 dc e3 12 37 59 35 0d 35 40 7f d5 6d | ..N..._P......a~.*Rs...7Y5.5@..m |
| 23ce20 | 22 a6 2f cb 11 26 4c ec 36 3c 24 9d 11 a3 cb 66 ab a3 bb cb 62 5b 77 1b d8 10 db 21 06 ca a7 3a | "./..&L.6<$....f....b[w....!...: |
| 23ce40 | 11 35 a3 14 2b 7b 0f 74 65 24 51 74 ca 33 4e 7d d5 f1 74 92 d0 b3 09 a2 78 d4 d0 d0 59 7f b7 bf | .5..+{.te$Qt.3N}..t.....x...Y... |
| 23ce60 | 83 6b 98 59 ee ee 62 68 a3 80 8f 34 dd c6 52 d5 40 a4 44 ae b2 0c dd 55 ef 3d ab ab 30 c3 c3 dd | .k.Y..bh...4..R.@.D....U.=..0... |
| 23ce80 | 9a d6 10 fd 05 29 82 c7 ac 26 bb 9b 79 82 0c 37 d7 01 49 8b 4d 9c e2 17 f5 75 18 7f 4a 83 fd 7c | .....)...&..y..7..I.M....u..J..| |
| 23cea0 | 35 ce 77 21 09 39 fe 96 92 20 72 22 ee f6 c8 de d6 c2 33 21 69 d5 7e ad cf f3 bb 19 40 63 87 1d | 5.w!.9....r"......3!i.~.....@c.. |
| 23cec0 | f0 06 cb 81 70 7c b1 2b 6d f0 79 b3 76 a7 70 df c1 30 c0 22 3f f5 9b 97 3b b8 a9 48 e0 69 b2 46 | ....p|.+m.y.v.p..0."?...;..H.i.F |
| 23cee0 | 1f 48 33 ae 8c ee cd 2a 8d 7c 92 e4 51 a5 94 93 73 c9 32 30 4c 94 45 0b 34 c7 3b c5 9c f3 30 b7 | .H3....*.|..Q...s.20L.E.4.;...0. |
| 23cf00 | 01 ad 8b d6 60 1c f9 60 80 f7 89 f3 93 48 9a 95 c5 7d 9f 16 52 21 bd 5b 0b f2 cb b3 d9 b8 75 2b | ....`..`.....H...}..R!.[......u+ |
| 23cf20 | 38 03 81 57 f7 ec 02 15 64 17 77 1d fa 39 9d 70 90 d7 52 a8 37 95 35 a5 47 1f 54 fb bc 1d d0 d6 | 8..W....d.w..9.p..R.7.5.G.T..... |
| 23cf40 | cd 20 bc db 2a fc a2 0a d0 1f 27 c0 a3 61 29 ee 1f 98 16 b4 f2 5a 3e f8 d2 9e bc b7 ee c2 78 d1 | ....*.....'..a)......Z>.......x. |
| 23cf60 | a2 6e 96 7d ca ce 8b 51 5b 7a 9f 8e ec 59 01 bd c5 a8 c6 dd b2 13 bc 50 62 26 82 63 31 c1 e1 07 | .n.}...Q[z...Y.........Pb&.c1... |
| 23cf80 | 16 04 f1 d5 cf 6e 78 17 81 c7 f7 62 cf 76 18 29 2b 68 bb 38 25 a2 12 d7 72 df 9c 2c 88 4f 93 6c | .....nx....b.v.)+h.8%...r..,.O.l |
| 23cfa0 | bf fd 50 32 1a b5 35 f1 7d c1 17 fe 40 54 25 ef f2 dc 92 d9 fa 48 a8 a0 20 4a f0 83 ee eb a7 7e | ..P2..5.}...@T%......H...J.....~ |
| 23cfc0 | 07 1b e0 21 98 e4 d9 ce 42 fb 19 ae 82 54 91 0a 5d eb 78 8b 65 5e 7e 36 09 b9 6f 49 29 0d 1e c7 | ...!....B....T..].x.e^~6..oI)... |
| 23cfe0 | 08 97 59 e4 02 99 d8 67 42 23 4f bd 4f 6d 29 f1 f0 c2 a3 4e 66 45 e7 cf 1b ad e1 67 54 c9 1c c1 | ..Y....gB#O.Om)....NfE.....gT... |
| 23d000 | 49 a5 0e 15 04 c0 f3 29 8e 88 15 e7 68 76 b0 39 ab de 5c 2b ac 28 a6 7c 4c 9d 2c b4 5b 09 1f f7 | I......)....hv.9..\+.(.|L.,.[... |
| 23d020 | 38 04 14 ab d3 e7 a0 cd 3a e9 75 14 4e cc d7 3a 93 a7 e8 28 3e 0a bf 58 e2 ef 50 0a 1c 4b 81 e1 | 8.......:.u.N..:...(>..X..P..K.. |
| 23d040 | 3b 99 bd bb fd 60 e4 ae a3 16 37 c2 a9 0f c7 4a b3 42 61 72 89 23 80 b7 18 69 cf 53 53 b1 0b 31 | ;....`....7....J.Bar.#...i.SS..1 |
| 23d060 | 04 ea 18 cc 4b d5 97 d5 89 f9 90 49 df ad a4 fe 56 b2 c0 eb 17 23 58 4f 5d 76 1d ae 52 1a b1 7c | ....K......I....V....#XO]v..R..| |
| 23d080 | 76 3e 7f 24 72 a9 93 68 6e d4 3b 7a 97 7d 54 86 28 20 f1 6b d1 73 25 b6 ef 4d 50 43 1e 95 e0 9b | v>.$r..hn.;z.}T.(..k.s%..MPC.... |
| 23d0a0 | 2e 70 85 87 21 7e b5 41 01 11 95 b4 f2 78 12 e5 4f 3c 95 c3 37 93 d4 4a 12 01 8f 10 da 86 12 3e | .p..!~.A.....x..O<..7..J.......> |
| 23d0c0 | 41 40 06 50 46 d8 d4 e3 0a 12 45 4f 8b c5 9c d0 b1 a1 c2 fa 92 be ea 57 50 58 cb 93 e5 61 7c 23 | A@.PF.....EO...........WPX...a|# |
| 23d0e0 | af db a4 07 03 b7 70 da d4 bb 52 22 69 37 e4 f1 52 da ae 1d 93 ad 56 57 a0 5c 14 74 b8 ee e6 cb | ......p...R"i7..R.....VW.\.t.... |
| 23d100 | 7c da d4 59 f0 b7 8a 9f 58 01 29 e1 2f bd b1 28 a9 54 6d b7 ba b3 fa 89 f1 61 98 6f 61 c4 97 a2 | |..Y....X.)./..(.Tm......a.oa... |
| 23d120 | 77 e5 35 7d ec ef f8 ca 2d d1 8a 5d 7c 85 8d 3a cf 88 a2 8d 87 3d 62 cb ee 1d 7b d4 f7 26 55 9d | w.5}....-..]|..:.....=b...{..&U. |
| 23d140 | 04 c5 46 fb 39 c6 c3 24 6d bd 3f 5c 17 8d 92 18 4f dc a3 2c 86 2f eb cf 02 ea 2b 1b 19 7b 86 81 | ..F.9..$m.?\....O..,./....+..{.. |
| 23d160 | 6d 8b 73 55 1e c3 11 57 2f 3c 57 b7 ad 44 6d f4 59 ca c2 2f f5 df 9c 3c 2c d3 bf c9 ac e7 66 46 | m.sU...W/<W..Dm.Y../...<,.....fF |
| 23d180 | 2f cf 61 d8 b6 77 d9 ca 4a 0a 23 66 8c f4 5b f2 9a 46 78 0a 32 6a c9 d4 31 51 b4 69 52 3b cf 10 | /.a..w..J.#f..[..Fx.2j..1Q.iR;.. |
| 23d1a0 | f4 a9 ca b9 17 63 9c 18 18 d2 95 6f ed 2d 39 ae f4 17 c4 3c 17 37 55 0c ff 58 47 1c bc 24 fb 3c | .....c.....o.-9....<.7U..XG..$.< |
| 23d1c0 | b7 d2 c2 9f 08 e7 e2 c6 64 49 09 f3 cd 21 ff d1 61 72 bc 7e ab 97 46 9d cf 8e e9 b6 0d 2e d8 c2 | ........dI...!..ar.~..F......... |
| 23d1e0 | e3 60 fc 81 a6 c6 0f 1f 52 2e f8 3d 3c 0a 55 fd 92 b6 94 96 ea df 94 96 27 cf f7 91 9b ed fb d8 | .`......R..=<.U.........'....... |
| 23d200 | a9 02 66 df 7e 0d 15 a2 9f 98 6f 23 4f bd a3 26 4a c4 40 32 08 a2 68 06 79 d8 bc b7 1e cf 77 51 | ..f.~.....o#O..&J.@2..h.y.....wQ |
| 23d220 | a0 71 aa 44 a5 0d a6 e7 da 25 1e e5 98 b2 26 4f c0 5c 98 d2 bf 6f 4a 5b 9f f2 1b ce e8 81 02 a2 | .q.D.....%....&O.\...oJ[........ |
| 23d240 | ba df cf b2 9a 48 f7 f4 87 37 4a 01 08 ad 86 ea 23 6e 50 23 90 41 7b 42 16 18 b7 13 a7 43 c3 55 | .....H...7J.....#nP#.A{B.....C.U |
| 23d260 | d6 c4 c5 67 f7 43 f0 3c 8d 57 9b 5f 56 75 d6 4f d5 39 9e 82 38 e8 11 e6 ce 8d ee dc 33 fc 22 c4 | ...g.C.<.W._Vu.O.9..8.......3.". |
| 23d280 | ca fd a6 aa 9b 19 2c e5 ad 21 4c a9 de 78 bc 01 a5 d0 3b 02 a2 5d 95 3f 8c ba 0e a2 14 cb 19 c7 | ......,..!L..x....;..].?........ |
| 23d2a0 | 4b 44 5e 6a ad df 7a 59 4a 75 7e 21 95 73 33 3f dc 40 c6 62 5d 9f b9 3c 12 fe 84 97 75 21 9f 44 | KD^j..zYJu~!.s3?.@.b]..<....u!.D |
| 23d2c0 | c6 52 7f e6 89 6e 67 0f fd dc 9b ab 25 26 00 c6 41 00 10 80 3c 8d cc 64 c1 ff da 6d e3 f4 c1 65 | .R...ng.....%&..A...<..d...m...e |
| 23d2e0 | 05 c6 74 67 bc 68 db 1c aa 41 90 d7 d0 82 c7 a2 fd ad 7d 72 cf 5b 8d 76 5a a6 28 29 5b ac f7 cb | ..tg.h...A........}r.[.vZ.()[... |
| 23d300 | ca b4 e0 ff f0 21 fd ff 06 ff 27 1a d8 22 61 50 37 34 ca 09 ea f6 90 f4 bf 00 c5 5f f5 52 65 6e | .....!....'.."aP74........._.Ren |
| 23d320 | 64 73 74 72 65 61 6d 0a 65 6e 64 6f 62 6a 0a 39 20 30 20 6f 62 6a 20 3c 3c 0a 2f 54 79 70 65 20 | dstream.endobj.9.0.obj.<<./Type. |
| 23d340 | 2f 46 6f 6e 74 0a 2f 53 75 62 74 79 70 65 20 2f 54 79 70 65 31 0a 2f 45 6e 63 6f 64 69 6e 67 20 | /Font./Subtype./Type1./Encoding. |
| 23d360 | 33 38 20 30 20 52 0a 2f 46 69 72 73 74 43 68 61 72 20 34 37 0a 2f 4c 61 73 74 43 68 61 72 20 31 | 38.0.R./FirstChar.47./LastChar.1 |
| 23d380 | 32 31 0a 2f 57 69 64 74 68 73 20 33 39 20 30 20 52 0a 2f 42 61 73 65 46 6f 6e 74 20 2f 46 46 49 | 21./Widths.39.0.R./BaseFont./FFI |
| 23d3a0 | 45 45 45 2b 43 4d 42 58 31 32 0a 2f 46 6f 6e 74 44 65 73 63 72 69 70 74 6f 72 20 37 20 30 20 52 | EEE+CMBX12./FontDescriptor.7.0.R |
| 23d3c0 | 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 37 20 30 20 6f 62 6a 20 3c 3c 0a 2f 41 73 63 65 6e 74 20 36 39 | .>>.endobj.7.0.obj.<<./Ascent.69 |
| 23d3e0 | 34 0a 2f 43 61 70 48 65 69 67 68 74 20 36 38 36 0a 2f 44 65 73 63 65 6e 74 20 2d 31 39 34 0a 2f | 4./CapHeight.686./Descent.-194./ |
| 23d400 | 46 6f 6e 74 4e 61 6d 65 20 2f 46 46 49 45 45 45 2b 43 4d 42 58 31 32 0a 2f 49 74 61 6c 69 63 41 | FontName./FFIEEE+CMBX12./ItalicA |
| 23d420 | 6e 67 6c 65 20 30 0a 2f 53 74 65 6d 56 20 31 30 39 0a 2f 58 48 65 69 67 68 74 20 34 34 34 0a 2f | ngle.0./StemV.109./XHeight.444./ |
| 23d440 | 46 6f 6e 74 42 42 6f 78 20 5b 2d 35 33 20 2d 32 35 31 20 31 31 33 39 20 37 35 30 5d 0a 2f 46 6c | FontBBox.[-53.-251.1139.750]./Fl |
| 23d460 | 61 67 73 20 34 0a 2f 43 68 61 72 53 65 74 20 28 2f 73 6c 61 73 68 2f 41 2f 43 2f 45 2f 47 2f 49 | ags.4./CharSet.(/slash/A/C/E/G/I |
| 23d480 | 2f 50 2f 52 2f 61 2f 62 2f 63 2f 65 2f 67 2f 68 2f 69 2f 6c 2f 6d 2f 6e 2f 6f 2f 70 2f 72 2f 73 | /P/R/a/b/c/e/g/h/i/l/m/n/o/p/r/s |
| 23d4a0 | 2f 74 2f 75 2f 76 2f 79 29 0a 2f 46 6f 6e 74 46 69 6c 65 20 38 20 30 20 52 0a 3e 3e 20 65 6e 64 | /t/u/v/y)./FontFile.8.0.R.>>.end |
| 23d4c0 | 6f 62 6a 0a 33 39 20 30 20 6f 62 6a 0a 5b 35 36 32 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 | obj.39.0.obj.[562.0.0.0.0.0.0.0. |
| 23d4e0 | 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 38 35 30 20 30 20 38 31 32 20 30 20 | 0.0.0.0.0.0.0.0.0.0.850.0.812.0. |
| 23d500 | 37 33 38 20 30 20 38 38 34 20 30 20 34 31 39 20 30 20 30 20 30 20 30 20 30 20 30 20 37 36 39 20 | 738.0.884.0.419.0.0.0.0.0.0.769. |
| 23d520 | 30 20 38 33 39 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 | 0.839.0.0.0.0.0.0.0.0.0.0.0.0.0. |
| 23d540 | 30 20 35 34 37 20 36 32 35 20 35 30 30 20 30 20 35 31 33 20 30 20 35 36 32 20 36 32 35 20 33 31 | 0.547.625.500.0.513.0.562.625.31 |
| 23d560 | 32 20 30 20 30 20 33 31 32 20 39 33 37 20 36 32 35 20 35 36 32 20 36 32 35 20 30 20 34 35 39 20 | 2.0.0.312.937.625.562.625.0.459. |
| 23d580 | 34 34 34 20 34 33 37 20 36 32 35 20 35 39 34 20 30 20 30 20 35 39 34 20 5d 0a 65 6e 64 6f 62 6a | 444.437.625.594.0.0.594.].endobj |
| 23d5a0 | 0a 33 38 20 30 20 6f 62 6a 20 3c 3c 0a 2f 54 79 70 65 20 2f 45 6e 63 6f 64 69 6e 67 0a 2f 44 69 | .38.0.obj.<<./Type./Encoding./Di |
| 23d5c0 | 66 66 65 72 65 6e 63 65 73 20 5b 20 30 20 2f 2e 6e 6f 74 64 65 66 20 34 37 2f 73 6c 61 73 68 20 | fferences.[.0./.notdef.47/slash. |
| 23d5e0 | 34 38 2f 2e 6e 6f 74 64 65 66 20 36 35 2f 41 20 36 36 2f 2e 6e 6f 74 64 65 66 20 36 37 2f 43 20 | 48/.notdef.65/A.66/.notdef.67/C. |
| 23d600 | 36 38 2f 2e 6e 6f 74 64 65 66 20 36 39 2f 45 20 37 30 2f 2e 6e 6f 74 64 65 66 20 37 31 2f 47 20 | 68/.notdef.69/E.70/.notdef.71/G. |
| 23d620 | 37 32 2f 2e 6e 6f 74 64 65 66 20 37 33 2f 49 20 37 34 2f 2e 6e 6f 74 64 65 66 20 38 30 2f 50 20 | 72/.notdef.73/I.74/.notdef.80/P. |
| 23d640 | 38 31 2f 2e 6e 6f 74 64 65 66 20 38 32 2f 52 20 38 33 2f 2e 6e 6f 74 64 65 66 20 39 37 2f 61 2f | 81/.notdef.82/R.83/.notdef.97/a/ |
| 23d660 | 62 2f 63 20 31 30 30 2f 2e 6e 6f 74 64 65 66 20 31 30 31 2f 65 20 31 30 32 2f 2e 6e 6f 74 64 65 | b/c.100/.notdef.101/e.102/.notde |
| 23d680 | 66 20 31 30 33 2f 67 2f 68 2f 69 20 31 30 36 2f 2e 6e 6f 74 64 65 66 20 31 30 38 2f 6c 2f 6d 2f | f.103/g/h/i.106/.notdef.108/l/m/ |
| 23d6a0 | 6e 2f 6f 2f 70 20 31 31 33 2f 2e 6e 6f 74 64 65 66 20 31 31 34 2f 72 2f 73 2f 74 2f 75 2f 76 20 | n/o/p.113/.notdef.114/r/s/t/u/v. |
| 23d6c0 | 31 31 39 2f 2e 6e 6f 74 64 65 66 20 31 32 31 2f 79 20 31 32 32 2f 2e 6e 6f 74 64 65 66 5d 0a 3e | 119/.notdef.121/y.122/.notdef].> |
| 23d6e0 | 3e 20 65 6e 64 6f 62 6a 0a 35 20 30 20 6f 62 6a 20 3c 3c 0a 2f 4c 65 6e 67 74 68 31 20 39 38 31 | >.endobj.5.0.obj.<<./Length1.981 |
| 23d700 | 0a 2f 4c 65 6e 67 74 68 32 20 33 38 34 35 0a 2f 4c 65 6e 67 74 68 33 20 35 33 32 0a 2f 4c 65 6e | ./Length2.3845./Length3.532./Len |
| 23d720 | 67 74 68 20 34 35 31 31 20 20 20 20 20 20 0a 2f 46 69 6c 74 65 72 20 2f 46 6c 61 74 65 44 65 63 | gth.4511......./Filter./FlateDec |
| 23d740 | 6f 64 65 0a 3e 3e 0a 73 74 72 65 61 6d 0a 78 da ed 93 57 58 53 eb b6 86 11 50 3a 28 45 04 51 27 | ode.>>.stream.x...WXS....P:(E.Q' |
| 23d760 | bd 87 50 42 ef 25 0a 48 af 4a d1 48 02 04 42 42 42 e8 4d 9a 34 05 a4 08 d2 ab ac 48 11 a4 48 55 | ..PB.%.H.J.H..BBB.M.4......H..HU |
| 23d780 | 3a 48 47 04 41 01 69 46 11 10 a4 48 87 1d 5d 67 2f d7 59 fb f2 9c ab f3 9c 39 6f e6 3b c6 f8 bf | :HG.A.iF...H..]g/.Y......9o.;... |
| 23d7a0 | ff 7b c6 18 93 9f db d8 4c 5c 03 8e b9 83 80 62 d0 78 71 49 90 a4 22 a0 65 60 2a 29 07 48 82 c0 | .{......L\.....b.xqI..".e`*).H.. |
| 23d7c0 | b4 fc fc 5a 38 04 0c 8f c4 a0 b5 61 78 84 22 20 a9 a0 20 09 68 78 3a 01 52 60 40 52 56 51 5a 5e | ...Z8......ax.".....hx:.R`@RVQZ^ |
| 23d7e0 | 51 4a 86 96 1f d0 c2 b8 fb e2 90 4e ce 78 40 48 4b f8 67 91 1c a0 e1 86 c0 21 1d 60 68 c0 00 86 | QJ.........N.x@HK.g......!.`h... |
| 23d800 | 77 46 b8 91 34 1c 60 28 c0 0c e3 80 44 e0 7d 41 80 06 0a 05 98 fe 3c e1 01 98 22 3c 10 38 2f 04 | wF..4.`(....D.}A......<..."<.8/. |
| 23d820 | 1c 44 2b 29 09 c0 91 0e 78 e0 0e c2 09 89 a6 95 f8 69 48 17 ed 88 01 e4 fe 0c c3 3d dd ff 9d f2 | .D+)....x........iH........=.... |
| 23d840 | 42 e0 3c 48 a6 00 21 92 49 61 80 64 11 8e 41 a3 7c 01 38 c2 91 56 c2 10 43 ba 0b 41 72 f2 bf 61 | B.<H..!.Ia.d..A.|.8..V..C..Ar..a |
| 23d860 | ea 9f e2 50 4f 14 ca 10 e6 f6 53 fe 67 93 fe 23 0d 73 43 a2 7c ff ab 00 e3 e6 ee 89 47 e0 00 03 | ...PO.....S.g..#.sC.|.......G... |
| 23d880 | 0c 1c 81 43 ff b3 d4 0a f1 a7 37 03 04 1c e9 e9 f6 cf ac 2e 1e 86 42 3a 68 a0 9d 50 08 00 fc 67 | ...C......7...........B:h..P...g |
| 23d8a0 | 08 e9 01 45 fa 20 e0 c6 48 bc 83 33 e0 08 43 79 20 7e c5 11 68 f8 3f 4d 90 fa f6 cb 82 84 91 e6 | ...E....H..3..Cy.~..h.?M........ |
| 23d8c0 | 55 13 3d 6b d1 3f e7 f9 2b 67 0c 43 a2 f1 e6 be ee 7f a9 fe 2c fe c5 92 bf 99 d4 1d 1c d2 07 b0 | U.=k.?..+g.C........,........... |
| 23d8e0 | 01 83 c0 60 49 52 21 e9 fd f7 97 dd 3f ee d2 41 3b 60 e0 48 34 69 21 20 b2 00 0c 87 83 f9 d2 92 | ...`IR!.....?..A;`.H4i!......... |
| 23d900 | 36 83 44 10 c0 5f 12 40 a2 e1 08 1f 00 e1 43 32 2c 01 42 63 f0 a4 23 00 a9 27 81 80 23 06 47 fb | 6.D.._.@......C2,.Bc..#..'..#.G. |
| 23d920 | 73 9c b2 72 80 84 d6 cf d0 9f a4 00 48 e8 fc 45 72 d2 80 84 ee 6f 92 05 24 ae ff 26 d2 39 83 bf | s..r........H..Er....o..$..&.9.. |
| 23d940 | 48 5e 12 90 30 f9 4d 52 80 84 e9 6f 22 a9 98 fd 45 a4 1d 90 80 fd 26 d2 7d 0e 7f 91 24 18 0c 48 | H^..0.MR...o"...E.....&.}...$..H |
| 23d960 | c0 ff 86 24 55 c4 df 90 24 eb f8 37 84 00 12 c8 bf 21 49 d8 f5 37 4a 92 a4 d0 7f 43 19 40 02 f7 | ...$U...$..7.....!I..7J....C.@.. |
| 23d980 | 37 24 15 7b fe c2 ff 1c 9c a6 26 c6 c7 5f 5c 5a 1a 10 97 82 80 01 05 19 08 20 27 a3 10 f8 df ea | 7$.{......&.._\Z..........'..... |
| 23d9a0 | 1c 3c 71 38 04 1a ff eb 9f 20 4d ff df ec 88 24 ed 0a 02 e1 83 70 a0 9d 1c c7 38 28 85 bb a4 d6 | .<q8......M....$.....p....8(.... |
| 23d9c0 | de 23 04 e9 14 0c 3f 3d 2d 72 4a d3 e9 45 82 61 55 cb 68 33 5d d8 c4 c3 53 a8 27 bd fa 58 91 99 | .#....?=-rJ..E.aU.h3]...S.'..X.. |
| 23d9e0 | e7 d6 fb 25 e9 2c 8c c4 d3 c4 2b de 87 17 3d 62 9a 02 4c 06 a0 6b 21 d8 84 b4 b1 63 a2 d7 6d 62 | ...%.,....+...=b..L..k!....c..mb |
| 23da00 | ba 5f fd 45 eb 8d 74 03 df 4f ee 3c 3b 61 cb 4c 8d b5 6f b7 56 20 a7 8c de cc f4 11 92 6f 14 76 | ._.E..t..O.<;a.L..o.V........o.v |
| 23da20 | 66 ad 77 2d e7 19 0b 69 9b 7f a6 9a e2 26 6b b5 f1 aa 6e cd 08 97 95 b3 86 a6 a3 2c 22 23 9e 0b | f.w-...i.....&k...n........,"#.. |
| 23da40 | 48 73 9b 9e 4d c3 12 a2 64 22 a7 bd cf 26 27 52 4e 0f 85 05 b9 44 52 d7 89 7e f8 8e 69 f2 64 de | Hs..M...d"...&'RN....DR..~..i.d. |
| 23da60 | 2f a0 ce 4d 3a be 45 65 9f 9b 47 cb 56 b1 7a 7a 8c 22 ab f0 a2 54 25 3a a5 60 30 95 bf 50 b8 ca | /..M:.Ee..G.V.zz."...T%:.`0..P.. |
| 23da80 | a6 cc 17 c9 7c 28 15 a7 28 b4 87 e9 7d 0f 14 a5 cd 5f f5 b4 0f 0a de 3d d5 5c c1 98 91 41 ed fa | ....|(..(...}...._.....=.\...A.. |
| 23daa0 | 81 b8 3a 14 ce a9 fa ac 6b 5b c8 68 55 d9 41 3d a2 c1 70 f6 d0 85 1c fd e8 d1 98 85 e7 b5 8b 64 | ..:.....k[.hU.A=..p............d |
| 23dac0 | fe 7b ca 85 a6 df d4 b0 13 6a 4f ab 26 67 a6 45 e2 1f 75 86 33 96 db 7c 9a 4a e2 f9 72 e9 c4 9e | .{.......jO.&g.E..u.3..|.J..r... |
| 23dae0 | 9f 61 59 1e cd 5c 98 f3 fa 60 af ba cd 56 2a 6c 73 b0 58 3f d4 27 af 22 ab 78 a9 dc a8 e1 19 ef | .aY..\...`...V*ls.X?.'.".x...... |
| 23db00 | ea 76 c1 6c a0 82 bc 9d 29 db d5 f6 a7 25 71 2f 4e eb 7a a2 1b e2 b6 74 9e e9 e9 06 10 f8 4a fb | .v.l....)....%q/N.z....t......J. |
| 23db20 | 55 c6 74 30 71 62 41 b2 c9 2e 36 df 0d 41 29 69 29 3b af 8d 74 59 70 96 2f a1 7a bc f7 c2 c7 04 | U.t0qbA...6..A)i);..tYp./.z..... |
| 23db40 | 13 79 af 21 bf ce 3d 99 28 db 9a 93 7f 91 8c 7b 43 a0 45 11 b2 79 93 fb 81 01 79 0d 0f 30 94 dd | .y.!..=.(......{C.E..y....y..0.. |
| 23db60 | 06 18 7c 29 c7 2b f8 8a 45 33 6e d5 45 55 e2 63 78 db 87 c2 8a 32 6b c3 a5 8f 35 17 84 46 eb 36 | ..|).+..E3n.EU.cx....2k...5..F.6 |
| 23db80 | 23 c2 61 d6 6d 99 e9 ed ba a8 7a a4 f8 08 39 07 d2 1f f4 f6 2d 7f 7b 4a f0 44 c7 6d 06 af 59 9d | #.a.m.....z...9.....-.{J.D.m..Y. |
| 23dba0 | 4e 18 37 7a dd 4e 9e 1d a7 d5 ce 1a e9 87 cc 6b 03 29 ad c0 38 41 9f f2 cf 67 04 08 5c ff 31 12 | N.7z.N.........k.)..8A...g..\.1. |
| 23dbc0 | 96 d5 f8 2e 46 1d c6 24 c6 10 20 31 9b b3 9f c6 73 62 41 71 73 8c 1f 9a ca 14 f6 ed cd 28 63 49 | ....F..$...1....sbAqs........(cI |
| 23dbe0 | e5 26 05 cd e5 a6 73 45 72 19 cc 8d 6a ea f6 72 6c 1c 45 aa 84 71 18 7e 95 3f ff 93 b9 c3 0a 96 | .&....sEr...j..rl.E..q.~.?...... |
| 23dc00 | e0 bf d8 a2 af 40 0c 61 4e 81 b1 f7 f0 8b d7 1e b0 96 c0 cd f4 f5 07 2c 63 f9 dc ea a4 d3 44 e5 | .....@.aN..............,c.....D. |
| 23dc20 | 07 3e 0b c4 be c2 d7 56 b4 de 7d 38 57 b9 1b 28 35 8e 31 18 e6 1d f9 ce 20 e2 2d 4b b8 bd 23 d2 | .>.....V..}8W..(5.1.......-K..#. |
| 23dc40 | 72 c5 43 f1 1c b9 bc d4 80 f3 c1 9d a8 a2 54 6f ad 1f 9b 1b aa f4 e7 ad 86 ec be c8 5d 83 34 37 | r.C...........To............].47 |
| 23dc60 | 8b af ca 26 f4 e8 5d 6e 8c e3 0d 2b 5a cc 86 d1 61 6e 31 dd b2 ef 50 3e 3a 7f c2 77 bc 56 cf c7 | ...&..]n...+Z...an1...P>:..w.V.. |
| 23dc80 | df 5f e3 3d 17 3c 63 f8 a4 93 91 f5 da 94 95 40 fe 85 a8 79 1b 37 57 d3 f7 2a ca 8b 1d 5d c5 ca | ._.=.<c........@...y.7W..*...].. |
| 23dca0 | ec 6e c7 b5 74 ae b0 87 55 b2 a5 46 36 4f 99 55 2f 2a 61 ca f5 d5 08 53 f1 41 0a d2 a6 de 6b 3c | .n..t...U..F6O.U/*a....S.A....k< |
| 23dcc0 | c9 92 36 4b b7 e0 cb 1f ae 28 28 09 ab 0d 1f d5 cf 10 7b 12 42 79 01 16 16 06 a1 44 99 13 e6 8f | ..6K.....((.......{.By.....D.... |
| 23dce0 | 57 df 9a 5b c4 5c fe 72 5b 49 48 ca 1b 64 9b 1b 78 a1 4a ef aa c3 58 5d c2 0e bb 5a dd f1 fc 95 | W..[.\.r[IH..d..x.J...X]...Z.... |
| 23dd00 | fc 75 fa e2 cd 18 4d 3e f9 78 d5 de b5 ae b1 c1 62 6f 9d 6b 92 11 fa ec 75 a7 da a9 20 03 6a a1 | .u....M>.x......bo.k....u.....j. |
| 23dd20 | 96 ee b5 db 4b 35 0f 25 bf 95 96 2a 8e 37 a1 86 cb e6 d4 94 b6 15 ac 97 a4 9f eb 79 d6 ee 53 e9 | ....K5.%...*.7.............y..S. |
| 23dd40 | 04 8b 0d ba 4e f9 42 26 04 c5 e6 b0 96 05 c1 c7 9f b3 3d b5 9a 29 ca 29 29 17 a0 11 b1 23 51 99 | ....N.B&..........=..).))....#Q. |
| 23dd60 | a1 66 8c ab 4f 6a 7a ba b9 ce 48 87 fc b8 33 b6 c1 71 d2 69 94 b9 dc 2e 84 8e 0d ff ac f4 cd b8 | .f..Ojz...H...3..q.i............ |
| 23dd80 | c9 44 52 cc da 9a 4d b4 f6 1e 56 9a 62 ae 75 b7 51 a1 d1 1e e4 98 12 92 b5 3b 5b b2 97 63 2a e5 | .DR...M...V.b.u.Q........;[..c*. |
| 23dda0 | e1 de 9c f2 78 91 ab 17 d9 6e fc 36 fa b4 60 9d 5d ef 64 ee 38 71 fc 2e 9c 22 d1 db cc bf b3 07 | ....x....n.6..`.].d.8q..."...... |
| 23ddc0 | 83 6d a5 34 a1 5b 79 0f 95 6a aa 18 5c 0e 58 2e 3f 65 cf c5 e5 d7 d1 f8 e4 fd 0b ff a5 00 18 b5 | .m.4.[y..j..\.X.?e.............. |
| 23dde0 | f4 25 a7 5c 61 bd e3 45 9d e2 71 23 72 a6 81 9e c3 1d bf ac 80 d8 2a 19 85 a5 c3 46 32 8a b9 85 | .%.\a..E..q#r.........*....F2... |
| 23de00 | 6d fa c1 e2 85 e2 3f 2a 0b c4 b3 63 5d 67 f7 7e 64 4c 4c 42 3f d9 50 c3 db f4 02 1d 99 ec 13 43 | m.....?*...c]g.~dLLB?.P........C |
| 23de20 | 5f a7 8c 4e 47 0e 5a 66 37 c6 46 b9 27 95 f1 c6 3c cf b6 78 97 97 7a 34 1c 2a 99 e4 93 b8 61 79 | _..NG.Zf7.F.'...<..x..z4.*....ay |
| 23de40 | 39 b0 a9 db 4c 3d cf 58 2c 35 71 cb fe dc b6 ab eb 48 c5 9c 59 aa 18 da c8 60 90 e7 e1 e9 7b 41 | 9...L=.X,5q......H..Y....`....{A |
| 23de60 | 7c f8 a3 98 c5 10 6d 22 43 c0 e9 1a 91 50 86 6c 28 fb 4d a7 bc b8 19 99 e2 da 1f bc a7 63 e1 f5 | |.....m"C....P.l(.M..........c.. |
| 23de80 | 18 ae 2a b2 c4 fe 25 5b 17 2d 25 3f c6 3b 39 e9 12 04 e5 50 8a d7 81 1a ca c3 3d b1 57 5b 45 8a | ..*...%[.-%?.;9....P......=.W[E. |
| 23dea0 | 1e 8e b2 9e 8c 6f cf 6e 63 2b a9 43 0f 34 b8 16 64 16 f1 c8 90 ce 16 bf 0b bd fd 3c ae 7b fb 57 | .....o.nc+.C.4..d..........<.{.W |
| 23dec0 | f8 75 68 3d f9 52 91 17 41 ee 84 c5 b8 00 fc 85 f4 48 e9 08 97 51 0b 2b ba b3 c2 ac 2e 99 ce 70 | .uh=.R..A........H...Q.+.......p |
| 23dee0 | 35 8b bc f5 7a 2f 2a 7f ab 91 07 11 00 c5 4b f9 4b cf 28 a3 eb b9 5a 7d 41 33 0b 93 02 b2 dd 0f | 5...z/*.......K.K.(...Z}A3...... |
| 23df00 | ac c8 d5 32 85 38 4f 0d 95 a3 0e a0 1b 37 0c b3 da 73 27 8d 22 33 c8 67 ed d2 3a 14 12 3c 17 5d | ...2.8O......7...s'."3.g..:..<.] |
| 23df20 | d7 a7 c6 52 53 0e c9 4b 1d 4c 3d 74 0e ef 11 05 ce 2e 19 da ad c1 a4 9e c7 29 aa 15 3c 08 e7 e5 | ...RS..K.L=t.............)..<... |
| 23df40 | 32 7a 9e 91 61 95 bc 72 25 fd bd 96 ec fd 26 df 01 af 91 db 5e 51 57 bb ec 85 5a 53 2e 25 3b f7 | 2z..a..r%.....&.....^QW...ZS.%;. |
| 23df60 | 4e d0 3a b9 d0 b0 c2 2f 7c 74 1c cc 91 08 a2 b9 96 ef bf 5e e8 7f e4 fa d8 6a d8 63 c9 5a 9d a0 | N.:..../|t.........^.....j.c.Z.. |
| 23df80 | 72 e8 c2 d3 13 90 ab 0e 33 a1 48 26 1c 39 a7 0c 90 39 48 a5 c5 e9 52 c5 78 64 61 9a be a5 be d7 | r.......3.H&.9...9H...R.xda..... |
| 23dfa0 | af ec 81 b5 57 9e d1 d4 52 7b e5 b5 9e 1b 51 d2 0c 91 f6 0a ec 70 a4 49 ef 9a 9f eb 8b 66 b6 cd | ....W...R{....Q......p.I.....f.. |
| 23dfc0 | 9b 49 be 82 0e 79 de f5 a0 7e 98 70 8d f8 70 72 f3 f9 41 d9 91 b2 e2 54 fa 1d f2 aa de 6a ad f5 | .I...y...~.p..pr..A....T.....j.. |
| 23dfe0 | 28 21 22 ac 73 79 aa 62 b7 6c 3e 86 f2 51 cd 12 78 7a 5d ab a4 df e3 0d 83 7e ef d0 50 5b de 4b | (!".sy.b.l>..Q..xz]......~..P[.K |
| 23e000 | f1 f4 b8 fb 76 84 67 2a 19 ed 0d 07 95 23 7d d2 5a a6 5b 37 55 cf 4f 80 0e cc 35 bc 2a c3 44 79 | ....v.g*.....#}.Z.[7U.O...5.*.Dy |
| 23e020 | de de 2e 5a 11 ad db c0 ae 26 ed 0b 2f 65 8c 13 6f 36 9e 60 3c f3 65 8a 1c 1a 52 53 54 2c 5a de | ...Z.....&../e..o6.`<.e...RST,Z. |
| 23e040 | df 60 b1 25 57 bb ac a7 c0 3a b8 c4 70 cf db 80 8e 8c 3b 8e 47 3c 92 ec da 86 c0 c6 b1 0f 56 a6 | .`.%W....:..p.....;.G<........V. |
| 23e060 | 47 95 ae 8a 97 60 f3 a9 ef e6 cb 81 11 77 f6 c9 00 a7 ac bb dd 96 d3 f6 1f 3c 29 8d ae f0 8f 0a | G....`.......w...........<)..... |
| 23e080 | c7 d1 b0 3f d2 eb b5 b1 16 3c 25 f3 f9 a1 96 75 da c2 50 ab 0a 1f 53 eb 81 98 cb d9 7d 3c 5e 54 | ...?.....<%....u..P...S.....}<^T |
| 23e0a0 | 7b 7c 8c e0 37 51 31 75 a9 95 32 eb db 87 fa 19 81 ea c6 af 1a 3e fd 2c 75 38 4e c5 cc 14 d6 57 | {|..7Q1u..2..........>.,u8N....W |
| 23e0c0 | 8e 54 49 fe e1 17 c6 86 97 c3 3e be ea df 1a 36 10 3e 56 7a 50 94 0f e9 b2 5d d0 17 d4 10 40 a8 | .TI.......>....6.>VzP....]....@. |
| 23e0e0 | e0 a9 3d 08 87 66 99 16 16 5f 09 6f 0e 6b 17 65 05 d6 9e 3e d8 f6 8b 56 57 f7 3b aa bc 04 92 b8 | ..=..f..._.o.k.e...>...VW.;..... |
| 23e100 | 79 c2 0b ea 8d 45 99 6d b4 30 45 73 6a 17 89 eb 30 6b 99 f9 5f 4a b9 4c c3 97 ea fa 84 27 00 12 | y....E.m.0Esj...0k.._J.L.....'.. |
| 23e120 | e6 38 6b 5d 5a c0 61 c3 25 9c 67 a6 ad 69 4c a1 a5 24 32 2f dc c9 4c 9d e0 94 1f e5 6d 90 40 a7 | .8k]Z.a.%.g..iL..$2/..L.....m.@. |
| 23e140 | 31 3c 0f 6d af 8a 1c 9c e1 02 4b b3 6d e9 b8 51 00 3c b8 25 f7 23 57 c7 fa 3e 5d bc b9 82 b0 6e | 1<.m......K.m..Q.<.%.#W..>]....n |
| 23e160 | bc 68 b3 2c 26 45 23 3b 92 3e e9 fc 1e d3 0b 32 f3 89 19 44 f6 47 27 8b 01 e4 3a 36 a1 66 bb 72 | .h.,&E#;.>.....2...D.G'...:6.f.r |
| 23e180 | 33 1a 6d 5f 84 63 b2 55 c8 c9 15 34 ff 71 86 7d 89 a7 e4 4c d9 cd ee 60 0f 78 5f 8a 8e 21 4b 95 | 3.m_.c.U...4.q.}...L...`.x_..!K. |
| 23e1a0 | 69 58 c6 9e 43 41 cd 58 2f fd 6e bf fd e3 e2 36 3f 2d 5c d3 55 a6 44 b2 db 99 50 72 e9 5b 93 87 | iX..CA.X/.n....6?-\.U.D...Pr.[.. |
| 23e1c0 | ad cb 87 a2 2b be c1 54 c5 f4 12 46 b7 02 e3 39 bf 97 83 22 1b 3e 98 b7 c5 f6 89 4e 9e ff 4e 17 | ....+..T...F...9...".>.....N..N. |
| 23e1e0 | 43 c5 31 35 be 1a b8 72 b1 92 27 88 9b 29 fb b4 c5 f5 b5 af 89 be 9f c2 b2 35 90 65 f7 bf 68 77 | C.15...r..'..)...........5.e..hw |
| 23e200 | f9 98 05 b0 71 1b fb 0e 68 36 de 34 a0 0e 55 10 d8 32 fa 00 9e 77 d4 7d 7c e1 eb de c6 80 cd 2b | ....q...h6.4..U..2...w.}|......+ |
| 23e220 | 55 f5 1c 70 56 b8 de ed 4a 3a d8 18 0d 3d 55 d6 f4 49 94 6e 20 79 75 f9 6b c3 3f d6 1e 8c ba 78 | U..pV...J:...=U..I.n.yu.k.?....x |
| 23e240 | 3e 4e 5d e7 c1 cc b5 fa 1f 56 f7 21 68 7a fa 5e ad 8d a6 ae de 2d f8 b1 54 f7 9a 1c 72 90 ff a0 | >N]......V.!hz.^.....-..T...r... |
| 23e260 | af bb d6 77 bd 3f 55 3a 9a a6 99 1e f1 9a db c8 4f 18 9b f6 a5 13 cd 98 4f e6 d8 12 6f 3b 4b 3c | ...w.?U:........O.......O...o;K< |
| 23e280 | 62 bd 71 37 f5 96 c3 64 7f 80 70 56 1a 1e 3d 24 9c 75 21 a2 43 97 ac a4 69 90 86 3c b3 8d 3a 73 | b.q7...d..pV..=$.u!.C...i..<..:s |
| 23e2a0 | d4 69 76 01 77 5c 1e 3c f9 a6 bc 7b 83 71 63 6a ff 69 8f 79 1e f7 b9 cc 1d 31 5a 13 8f 34 f6 b9 | .iv.w\.<...{.qcj.i.y.....1Z..4.. |
| 23e2c0 | e7 e3 0d 02 57 07 8f a1 a0 44 4f 48 74 50 fb 47 3b 5b b1 50 b7 5e d5 a3 be c7 e2 14 51 d8 53 cc | ....W....DOHtP.G;[.P.^......Q.S. |
| 23e2e0 | 7e 61 e0 41 96 d0 f8 27 01 ee 15 42 fc 52 d5 9a fd d0 bd 43 27 f8 d7 17 6f 75 e9 3e 0e 73 52 05 | ~a.A...'...B.R.....C'...ou.>.sR. |
| 23e300 | 76 db 96 51 ea f9 49 fb 54 c0 08 f7 0d b5 c7 a2 eb a6 d3 37 fa e5 de 2d 9e 7b bb 1c d3 5e 18 37 | v..Q..I.T..........7...-.{...^.7 |
| 23e320 | 92 af 92 52 3a 17 b8 3f bb 65 f2 6e 84 ee f4 36 c3 cb 34 9e 0d 74 73 92 a0 b7 79 ff 1c ff 1f 1a | ...R:..?.e.n...6..4..ts...y..... |
| 23e340 | d5 7c a5 d2 3e be 0c e9 52 64 37 42 da ec 2f 21 45 aa f6 38 57 75 dc e7 9f 47 c9 17 56 0a 0a 33 | .|..>...Rd7B../!E..8Wu...G..V..3 |
| 23e360 | 8d fb d5 5e cf 88 59 d5 5b 0e a0 88 fa 0e 20 b1 f1 6a 77 62 97 0d 9c 1e 47 18 57 4c ee 22 dd c1 | ...^..Y.[........jwb....G.WL.".. |
| 23e380 | 2d 67 d7 ee 2a 46 ea b8 b6 9b 1e 52 0e aa e7 d5 1c 9a ad a9 1f 64 87 c7 7c 0d 2e e1 e4 10 79 04 | -g..*F.....R.........d..|.....y. |
| 23e3a0 | 4e 28 10 68 53 85 bf 63 7d 3d 37 e9 08 39 d7 da f7 f9 40 35 26 54 8f 78 e9 a8 f1 c6 6a 72 c7 47 | N(.hS..c}=7..9....@5&T.x....jr.G |
| 23e3c0 | c4 77 b6 ef 39 a6 16 c5 2f e6 57 ba 92 28 b4 74 82 e4 84 58 9e 70 16 5e eb d3 92 f7 3e 5e 19 64 | .w..9.../.W..(.t...X.p.^....>^.d |
| 23e3e0 | a7 3f 9c 1f af 4f c8 91 dd 62 05 d5 3b be 67 e0 ab a6 6e 79 04 5e 3b f9 ea 29 3c 96 e2 95 bd 53 | .?...O...b..;.g...ny.^;..)<....S |
| 23e400 | 82 89 7f e8 f4 5e a0 9a ca fd 59 07 6d ee 91 dd 02 3d 83 4f 4d 41 8f 91 f9 b3 d8 53 ce e2 2f e5 | .....^....Y.m....=.OMA.....S../. |
| 23e420 | cc fb 2e 13 55 a4 9c 75 0c cf 93 a1 4f dc 56 19 fa af 47 af ea 74 ef 24 b6 20 77 06 0d 10 f2 03 | ....U..u....O.V...G..t.$..w..... |
| 23e440 | 29 47 45 5c 4a 4a ca f2 1d 67 40 b6 93 ef ec c0 b4 c9 f5 9b ae a2 3b f2 2e 4c e2 e4 79 2b d8 ab | )GE\JJ...g@...........;..L..y+.. |
| 23e460 | 71 df 2c b0 11 f6 e9 4f 06 4a 0f b4 63 68 b0 7e 06 b5 a5 ce a2 f9 35 71 31 dd 19 da 97 15 a7 2f | q.,....O.J..ch.~......5q1....../ |
| 23e480 | 45 cd 31 98 1e 3a 9d 77 fd fc 45 e2 d4 59 5d 54 d3 1f 19 55 59 73 14 8f f4 03 9c d4 ca 3a 73 14 | E.1..:.w..E..Y]T...UYs.......:s. |
| 23e4a0 | ad dc 42 5e e6 d2 09 0a 0d c9 70 65 15 32 18 7c ea 7a b8 c1 cf a1 6e 98 b1 64 11 c0 22 7b 78 2c | ..B^......pe.2.|.z....n..d.."{x, |
| 23e4c0 | dc 1d ff 65 e4 f3 14 21 72 88 dc fb c5 28 bb 04 41 90 49 80 8c f5 d2 57 38 4e 0c d4 ac 9e b3 57 | ...e...!r....(..A.I....W8N.....W |
| 23e4e0 | 26 59 95 42 c9 a4 77 bf 4e 69 df 7b 2f b1 5f 0d 1c 1f 9a 60 7c 84 d5 6f d0 cc 9d 99 7c 67 1b 73 | &Y.B..w.Ni.{/._....`|..o....|g.s |
| 23e500 | a6 31 50 17 cf 08 1d 0f 33 8e 6b ad 13 76 09 50 7b 2c ab 3b 7e 2c e5 7a 3d f6 53 eb 26 e3 fb cb | .1P.....3.k..v.P{,.;~,.z=.S.&... |
| 23e520 | 50 72 88 e4 ac 76 84 47 03 93 ce 88 5d f8 ea ec 24 10 86 5a 9f b3 f7 04 c2 7b 58 a7 58 cf 5c 63 | Pr...v.G....]...$..Z.....{X.X.\c |
| 23e540 | ab dd ca a4 1a d8 64 0c c9 e0 da bd d2 d6 7d 5f ff ca ae fb a3 fb 6c 53 60 81 ec 13 d5 d4 54 ff | ......d.......}_......lS`.....T. |
| 23e560 | c7 1c 4c 9f 62 aa 43 16 04 5a 9f 5b 0d d3 61 4c 92 95 ad f2 cf 4c f0 9a f2 28 09 3f 45 ac c4 a0 | ..L.b.C..Z.[..aL.....L...(.?E... |
| 23e580 | 7c 06 d9 17 99 b1 9d d3 f7 d7 6c 98 da 95 23 ee 25 1a 3d cd 73 38 c7 28 6a e6 30 17 9c 4a 39 9e | |.........l...#.%.=.s8.(j.0..J9. |
| 23e5a0 | 8f 15 7f b7 b2 10 b3 2c 52 fa 8c a6 d0 24 2d 5d 09 1e bf b2 c5 ce 16 e2 9a 69 6b c1 de 70 a7 a7 | .......,R....$-].........ik..p.. |
| 23e5c0 | 48 38 42 f0 ec fe 7b bd e0 68 4b ea b0 27 0b 9e 3d cf 1e 5f 1e 9b 42 b1 2a 34 86 5d da 39 d7 a0 | H8B...{..hK..'..=.._..B.*4.].9.. |
| 23e5e0 | 0a b9 c7 27 cf 01 62 cc 85 b9 76 3a 4d 78 c8 85 68 14 a6 3a bf bb a5 9a 77 6e 87 7e fb 3c 66 35 | ...'..b...v:Mx..h..:....wn.~.<f5 |
| 23e600 | bf 14 2e ce a6 c9 db ba df 21 c8 7c 0d ac de 8c 53 f2 fc 71 26 cb 5e 43 6b e4 e6 7e 40 c0 1f 67 | .........!.|....S..q&.^Ck..~@..g |
| 23e620 | 61 97 4b 06 6c bd d0 0e d9 5c 09 86 c9 dc 2a 22 cd d9 55 33 56 dd 44 d1 10 7b 4d a9 ee c7 09 a2 | a.K.l....\....*"..U3V.D..{M..... |
| 23e640 | c6 b9 d0 cd 8b df fa b8 cd 61 5b a3 18 eb ee 13 23 ea ac 69 dd 83 37 09 5d c4 ef 34 09 b7 96 8f | .........a[.....#..i..7.]..4.... |
| 23e660 | 89 11 5f c0 bc 77 71 51 58 6b 3f 4f 8c 04 05 2f c7 4c 15 26 76 8d 73 b7 fb 58 51 99 47 d2 fc 45 | .._..wqQXk?O.../.L.&v.s..XQ.G..E |
| 23e680 | f2 a1 91 1c 54 2a da 84 6a b9 d2 36 d7 a1 91 e5 ba ae 77 21 5a 67 e0 cc d7 79 f1 a8 44 53 b1 4e | ....T*..j..6......w!Zg...y..DS.N |
| 23e6a0 | 16 bf 24 6e 8e be 69 c4 d4 7a d0 40 0f 31 1d 2b 86 96 ab 2a 6e 69 e1 6a 88 df 8c 28 e3 f9 00 1a | ..$n..i..z.@.1.+...*ni.j...(.... |
| 23e6c0 | 16 90 45 dd 78 f2 d5 ec ec 33 b9 16 8a e1 20 bc d8 ab 1b 1d fa fe f3 30 a8 ec aa 48 78 f4 4a 35 | ..E.x....3.............0...Hx.J5 |
| 23e6e0 | fd 7b 72 81 3b 6a 6c 23 e0 51 77 7b 4e cb 36 d1 0f 59 2a cc bd 72 a8 a6 6b b6 06 77 8c 59 2f 52 | .{r.;jl#.Qw{N.6..Y*..r..k..w.Y/R |
| 23e700 | 4f 5d ec d7 1e 09 08 16 af 89 55 4a 13 68 8a e4 ee fa ae 6d 59 87 14 8c ed 2d 80 9c 58 7f 81 71 | O]........UJ.h.....mY....-..X..q |
| 23e720 | 06 fa f8 82 16 c7 9c 90 b7 d2 ad eb 92 2a 77 4d 3e 53 b4 7b bc 81 45 51 15 3f 4a 1a ad 0b ba 5a | .............*wM>S.{..EQ.?J....Z |
| 23e740 | 23 e9 b4 5e 2c e5 f7 6a ea ca 47 3c 73 4a 86 e7 2a 63 e5 93 c8 da 14 93 68 88 69 75 30 0a a4 e5 | #..^,..j..G<sJ..*c......h.iu0... |
| 23e760 | 46 bb eb ec ef af 6d 61 8a b9 4e bb 61 65 a4 68 a9 5e ac 61 7d e3 e8 26 d1 37 97 69 e4 b0 46 35 | F.....ma..N.ae.h.^.a}..&.7.i..F5 |
| 23e780 | de 59 bd e2 7a ed ed 9a da 72 8f 69 33 56 94 5a 9d 80 e2 c2 90 7b d7 d3 b7 5c 17 14 89 64 8b 7b | .Y..z....r.i3V.Z.....{...\...d.{ |
| 23e7a0 | 79 02 3d 17 fa a4 16 59 5f 53 42 e3 09 ab 0c a7 82 02 4f da c5 1c a5 b5 6b 37 39 73 1e 56 0e 73 | y.=....Y_SB.......O.....k79s.V.s |
| 23e7c0 | d1 ad 34 5c d0 7e 5a 01 81 a0 9d 45 10 ba f4 57 a9 df 71 3c 8f da 48 f3 71 d6 e7 df 71 59 2a f5 | ..4\.~Z....E...W..q<..H.q...qY*. |
| 23e7e0 | 98 d2 5e 49 25 ae 3f 5b dc 76 bf 07 9a 9f 66 db 1a f5 ae 22 e6 ae a2 b3 3e 9d 43 04 9b e5 5c 2f | ..^I%.?[.v....f...."....>.C...\/ |
| 23e800 | 0f a9 fb 76 16 bc 69 03 36 32 89 cb 9d bc bf 99 14 24 31 14 19 20 c2 81 6f 81 9a 56 7d e1 1e 34 | ...v..i.62.......$1.....o..V}..4 |
| 23e820 | a4 fe 90 b5 07 21 60 12 66 ce 5b 60 fd 95 c5 4a b8 08 52 6e 25 a0 37 fa e1 33 fb 34 5a 5c 25 43 | .....!`.f.[`...J..Rn%.7..3.4Z\%C |
| 23e840 | 57 34 de b4 0e c2 34 18 f6 32 36 28 87 a6 cc ee 2b cb 9e c9 5b e2 61 b7 db 15 3e bf 5e 02 4a 65 | W4....4..26(....+...[.a...>.^.Je |
| 23e860 | a8 71 1a ba 93 67 39 ab a0 ce d8 e1 1d b4 39 f1 a8 0f f2 b6 d5 dc 19 e4 d1 a9 ed e6 ae ed 71 77 | .q...g9.......9...............qw |
| 23e880 | aa 58 f7 05 cf 7c b4 bc 02 ef f9 a6 e3 93 31 15 57 a6 87 2d 8b 02 2b 80 0b 84 ec 75 88 d3 7d a9 | .X...|........1.W..-..+....u..}. |
| 23e8a0 | fa 1a 66 a8 69 bf 4e 07 1e db 37 4b 54 a1 17 12 76 ea a9 30 83 94 9b 9a 28 e8 dd 8c 69 b7 34 2d | ..f.i.N...7KT...v..0....(...i.4- |
| 23e8c0 | ea 46 58 d7 dd 4e e6 33 30 fc 94 39 60 30 36 2e 38 a5 06 fe 1f 3e b4 ff 2f f0 7f 42 c0 01 85 80 | .FX..N.30..9`06.8....>../..B.... |
| 23e8e0 | e1 f0 18 37 18 ce 95 f6 5f a2 f6 18 1d 65 6e 64 73 74 72 65 61 6d 0a 65 6e 64 6f 62 6a 0a 36 20 | ...7...._....endstream.endobj.6. |
| 23e900 | 30 20 6f 62 6a 20 3c 3c 0a 2f 54 79 70 65 20 2f 46 6f 6e 74 0a 2f 53 75 62 74 79 70 65 20 2f 54 | 0.obj.<<./Type./Font./Subtype./T |
| 23e920 | 79 70 65 31 0a 2f 45 6e 63 6f 64 69 6e 67 20 34 30 20 30 20 52 0a 2f 46 69 72 73 74 43 68 61 72 | ype1./Encoding.40.0.R./FirstChar |
| 23e940 | 20 36 37 0a 2f 4c 61 73 74 43 68 61 72 20 31 31 37 0a 2f 57 69 64 74 68 73 20 34 31 20 30 20 52 | .67./LastChar.117./Widths.41.0.R |
| 23e960 | 0a 2f 42 61 73 65 46 6f 6e 74 20 2f 4f 42 47 51 4a 58 2b 43 4d 52 31 37 0a 2f 46 6f 6e 74 44 65 | ./BaseFont./OBGQJX+CMR17./FontDe |
| 23e980 | 73 63 72 69 70 74 6f 72 20 34 20 30 20 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 34 20 30 20 6f 62 6a | scriptor.4.0.R.>>.endobj.4.0.obj |
| 23e9a0 | 20 3c 3c 0a 2f 41 73 63 65 6e 74 20 36 39 34 0a 2f 43 61 70 48 65 69 67 68 74 20 36 38 33 0a 2f | .<<./Ascent.694./CapHeight.683./ |
| 23e9c0 | 44 65 73 63 65 6e 74 20 2d 31 39 35 0a 2f 46 6f 6e 74 4e 61 6d 65 20 2f 4f 42 47 51 4a 58 2b 43 | Descent.-195./FontName./OBGQJX+C |
| 23e9e0 | 4d 52 31 37 0a 2f 49 74 61 6c 69 63 41 6e 67 6c 65 20 30 0a 2f 53 74 65 6d 56 20 35 33 0a 2f 58 | MR17./ItalicAngle.0./StemV.53./X |
| 23ea00 | 48 65 69 67 68 74 20 34 33 30 0a 2f 46 6f 6e 74 42 42 6f 78 20 5b 2d 33 33 20 2d 32 35 30 20 39 | Height.430./FontBBox.[-33.-250.9 |
| 23ea20 | 34 35 20 37 34 39 5d 0a 2f 46 6c 61 67 73 20 34 0a 2f 43 68 61 72 53 65 74 20 28 2f 43 2f 45 2f | 45.749]./Flags.4./CharSet.(/C/E/ |
| 23ea40 | 49 2f 4c 2f 4d 2f 51 2f 52 2f 53 2f 61 2f 63 2f 64 2f 65 2f 66 2f 69 2f 6b 2f 6e 2f 72 2f 75 29 | I/L/M/Q/R/S/a/c/d/e/f/i/k/n/r/u) |
| 23ea60 | 0a 2f 46 6f 6e 74 46 69 6c 65 20 35 20 30 20 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 34 31 20 30 20 | ./FontFile.5.0.R.>>.endobj.41.0. |
| 23ea80 | 6f 62 6a 0a 5b 36 36 38 20 30 20 36 32 38 20 30 20 30 20 30 20 33 32 38 20 30 20 30 20 35 37 36 | obj.[668.0.628.0.0.0.328.0.0.576 |
| 23eaa0 | 20 38 35 30 20 30 20 30 20 30 20 37 32 30 20 36 38 30 20 35 31 31 20 30 20 30 20 30 20 30 20 30 | .850.0.0.0.720.680.511.0.0.0.0.0 |
| 23eac0 | 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 34 35 39 20 30 20 34 30 36 20 35 31 31 20 34 | .0.0.0.0.0.0.0.0.459.0.406.511.4 |
| 23eae0 | 30 36 20 32 37 36 20 30 20 30 20 32 35 30 20 30 20 34 38 35 20 30 20 30 20 35 31 31 20 30 20 30 | 06.276.0.0.250.0.485.0.0.511.0.0 |
| 23eb00 | 20 30 20 33 35 34 20 30 20 30 20 35 31 31 20 5d 0a 65 6e 64 6f 62 6a 0a 34 30 20 30 20 6f 62 6a | .0.354.0.0.511.].endobj.40.0.obj |
| 23eb20 | 20 3c 3c 0a 2f 54 79 70 65 20 2f 45 6e 63 6f 64 69 6e 67 0a 2f 44 69 66 66 65 72 65 6e 63 65 73 | .<<./Type./Encoding./Differences |
| 23eb40 | 20 5b 20 30 20 2f 2e 6e 6f 74 64 65 66 20 36 37 2f 43 20 36 38 2f 2e 6e 6f 74 64 65 66 20 36 39 | .[.0./.notdef.67/C.68/.notdef.69 |
| 23eb60 | 2f 45 20 37 30 2f 2e 6e 6f 74 64 65 66 20 37 33 2f 49 20 37 34 2f 2e 6e 6f 74 64 65 66 20 37 36 | /E.70/.notdef.73/I.74/.notdef.76 |
| 23eb80 | 2f 4c 2f 4d 20 37 38 2f 2e 6e 6f 74 64 65 66 20 38 31 2f 51 2f 52 2f 53 20 38 34 2f 2e 6e 6f 74 | /L/M.78/.notdef.81/Q/R/S.84/.not |
| 23eba0 | 64 65 66 20 39 37 2f 61 20 39 38 2f 2e 6e 6f 74 64 65 66 20 39 39 2f 63 2f 64 2f 65 2f 66 20 31 | def.97/a.98/.notdef.99/c/d/e/f.1 |
| 23ebc0 | 30 33 2f 2e 6e 6f 74 64 65 66 20 31 30 35 2f 69 20 31 30 36 2f 2e 6e 6f 74 64 65 66 20 31 30 37 | 03/.notdef.105/i.106/.notdef.107 |
| 23ebe0 | 2f 6b 20 31 30 38 2f 2e 6e 6f 74 64 65 66 20 31 31 30 2f 6e 20 31 31 31 2f 2e 6e 6f 74 64 65 66 | /k.108/.notdef.110/n.111/.notdef |
| 23ec00 | 20 31 31 34 2f 72 20 31 31 35 2f 2e 6e 6f 74 64 65 66 20 31 31 37 2f 75 20 31 31 38 2f 2e 6e 6f | .114/r.115/.notdef.117/u.118/.no |
| 23ec20 | 74 64 65 66 5d 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 32 31 20 30 20 6f 62 6a 20 3c 3c 0a 2f 54 79 70 | tdef].>>.endobj.21.0.obj.<<./Typ |
| 23ec40 | 65 20 2f 50 61 67 65 73 0a 2f 43 6f 75 6e 74 20 31 0a 2f 4b 69 64 73 20 5b 32 20 30 20 52 5d 0a | e./Pages./Count.1./Kids.[2.0.R]. |
| 23ec60 | 3e 3e 20 65 6e 64 6f 62 6a 0a 34 32 20 30 20 6f 62 6a 20 3c 3c 0a 2f 54 79 70 65 20 2f 43 61 74 | >>.endobj.42.0.obj.<<./Type./Cat |
| 23ec80 | 61 6c 6f 67 0a 2f 50 61 67 65 73 20 32 31 20 30 20 52 0a 3e 3e 20 65 6e 64 6f 62 6a 0a 34 33 20 | alog./Pages.21.0.R.>>.endobj.43. |
| 23eca0 | 30 20 6f 62 6a 20 3c 3c 0a 2f 50 72 6f 64 75 63 65 72 20 28 70 64 66 65 54 65 58 2d 31 2e 32 31 | 0.obj.<<./Producer.(pdfeTeX-1.21 |
| 23ecc0 | 61 29 0a 2f 43 72 65 61 74 6f 72 20 28 54 65 58 29 0a 2f 43 72 65 61 74 69 6f 6e 44 61 74 65 20 | a)./Creator.(TeX)./CreationDate. |
| 23ece0 | 28 44 3a 32 30 30 37 30 38 30 38 32 30 34 34 30 33 2b 30 33 27 30 30 27 29 0a 2f 50 54 45 58 2e | (D:20070808204403+03'00')./PTEX. |
| 23ed00 | 46 75 6c 6c 62 61 6e 6e 65 72 20 28 54 68 69 73 20 69 73 20 70 64 66 65 54 65 58 2c 20 56 65 72 | Fullbanner.(This.is.pdfeTeX,.Ver |
| 23ed20 | 73 69 6f 6e 20 33 2e 31 34 31 35 39 32 2d 31 2e 32 31 61 2d 32 2e 32 20 28 57 65 62 32 43 20 37 | sion.3.141592-1.21a-2.2.(Web2C.7 |
| 23ed40 | 2e 35 2e 34 29 20 6b 70 61 74 68 73 65 61 20 76 65 72 73 69 6f 6e 20 33 2e 35 2e 34 29 0a 3e 3e | .5.4).kpathsea.version.3.5.4).>> |
| 23ed60 | 20 65 6e 64 6f 62 6a 0a 78 72 65 66 0a 30 20 34 34 0a 30 30 30 30 30 30 30 30 30 30 20 36 35 35 | .endobj.xref.0.44.0000000000.655 |
| 23ed80 | 33 35 20 66 20 0a 30 30 30 30 30 30 32 37 37 32 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 | 35.f..0000002772.00000.n..000000 |
| 23eda0 | 32 36 35 37 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 30 30 30 39 20 30 30 30 30 30 20 6e | 2657.00000.n..0000000009.00000.n |
| 23edc0 | 20 0a 30 30 30 30 30 33 39 38 33 33 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 33 35 30 34 39 | ..0000039833.00000.n..0000035049 |
| 23ede0 | 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 33 39 36 37 38 20 30 30 30 30 30 20 6e 20 0a 30 30 | .00000.n..0000039678.00000.n..00 |
| 23ee00 | 30 30 30 33 34 32 35 31 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 32 38 34 38 36 20 30 30 30 | 00034251.00000.n..0000028486.000 |
| 23ee20 | 30 30 20 6e 20 0a 30 30 30 30 30 33 34 30 39 35 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 32 | 00.n..0000034095.00000.n..000002 |
| 23ee40 | 37 34 31 32 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 31 38 30 38 30 20 30 30 30 30 30 20 6e | 7412.00000.n..0000018080.00000.n |
| 23ee60 | 20 0a 30 30 30 30 30 32 37 32 35 34 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 31 37 36 38 30 | ..0000027254.00000.n..0000017680 |
| 23ee80 | 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 31 36 31 31 38 20 30 30 30 30 30 20 6e 20 0a 30 30 | .00000.n..0000016118.00000.n..00 |
| 23eea0 | 30 30 30 30 36 31 35 36 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 31 35 39 36 31 20 30 30 30 | 00006156.00000.n..0000015961.000 |
| 23eec0 | 30 30 20 6e 20 0a 30 30 30 30 30 30 35 37 35 34 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 | 00.n..0000005754.00000.n..000000 |
| 23eee0 | 34 38 38 35 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 32 39 31 30 20 30 30 30 30 30 20 6e | 4885.00000.n..0000002910.00000.n |
| 23ef00 | 20 0a 30 30 30 30 30 30 34 37 32 37 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 34 30 34 39 36 | ..0000004727.00000.n..0000040496 |
| 23ef20 | 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 35 31 32 38 20 30 30 30 30 30 20 6e 20 0a 30 30 | .00000.n..0000005128.00000.n..00 |
| 23ef40 | 30 30 30 30 35 30 39 39 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 35 32 33 34 20 30 30 30 | 00005099.00000.n..0000005234.000 |
| 23ef60 | 30 30 20 6e 20 0a 30 30 30 30 30 30 35 34 39 33 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 | 00.n..0000005493.00000.n..000000 |
| 23ef80 | 35 39 39 39 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 36 30 33 32 20 30 30 30 30 30 20 6e | 5999.00000.n..0000006032.00000.n |
| 23efa0 | 20 0a 30 30 30 30 30 30 36 31 31 30 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 31 36 37 36 31 | ..0000006110.00000.n..0000016761 |
| 23efc0 | 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 31 36 34 33 34 20 30 30 30 30 30 20 6e 20 0a 30 30 | .00000.n..0000016434.00000.n..00 |
| 23efe0 | 30 30 30 31 37 31 34 37 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 31 37 34 31 35 20 30 30 30 | 00017147.00000.n..0000017415.000 |
| 23f000 | 30 30 20 6e 20 0a 30 30 30 30 30 31 37 39 32 35 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 31 | 00.n..0000017925.00000.n..000001 |
| 23f020 | 37 39 35 36 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 31 38 30 33 34 20 30 30 30 30 30 20 6e | 7956.00000.n..0000018034.00000.n |
| 23f040 | 20 0a 30 30 30 30 30 32 38 30 37 33 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 32 37 37 33 39 | ..0000028073.00000.n..0000027739 |
| 23f060 | 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 33 34 37 32 31 20 30 30 30 30 30 20 6e 20 0a 30 30 | .00000.n..0000034721.00000.n..00 |
| 23f080 | 30 30 30 33 34 35 30 30 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 34 30 32 31 36 20 30 30 30 | 00034500.00000.n..0000040216.000 |
| 23f0a0 | 30 30 20 6e 20 0a 30 30 30 30 30 34 30 30 35 39 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 34 | 00.n..0000040059.00000.n..000004 |
| 23f0c0 | 30 35 35 34 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 34 30 36 30 35 20 30 30 30 30 30 20 6e | 0554.00000.n..0000040605.00000.n |
| 23f0e0 | 20 0a 74 72 61 69 6c 65 72 0a 3c 3c 0a 2f 53 69 7a 65 20 34 34 0a 2f 52 6f 6f 74 20 34 32 20 30 | ..trailer.<<./Size.44./Root.42.0 |
| 23f100 | 20 52 0a 2f 49 6e 66 6f 20 34 33 20 30 20 52 0a 2f 49 44 20 5b 3c 36 35 36 41 37 30 43 30 45 43 | .R./Info.43.0.R./ID.[<656A70C0EC |
| 23f120 | 46 42 32 30 36 44 44 37 41 33 36 32 30 30 39 33 46 37 32 44 46 44 3e 20 3c 36 35 36 41 37 30 43 | FB206DD7A3620093F72DFD>.<656A70C |
| 23f140 | 30 45 43 46 42 32 30 36 44 44 37 41 33 36 32 30 30 39 33 46 37 32 44 46 44 3e 5d 0a 3e 3e 0a 73 | 0ECFB206DD7A3620093F72DFD>].>>.s |
| 23f160 | 74 61 72 74 78 72 65 66 0a 34 30 38 30 38 0a 25 25 45 4f 46 0a 00 00 00 00 00 00 00 00 00 00 00 | tartxref.40808.%%EOF............ |
| 23f180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 64 6f 63 2f 63 6f 6e 74 72 69 62 75 74 6f 72 73 2e 74 65 78 69 | slime-2.31/doc/contributors.texi |
| 23f220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 23f280 | 30 30 31 31 31 36 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 31 30 00 20 30 00 00 00 | 0011165.00000000000.015410..0... |
| 23f2a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f2c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 23f320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 23f340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23f400 | 40 6d 75 6c 74 69 74 61 62 6c 65 20 40 63 6f 6c 75 6d 6e 66 72 61 63 74 69 6f 6e 73 20 30 2e 33 | @multitable.@columnfractions.0.3 |
| 23f420 | 33 33 33 33 33 20 30 2e 33 33 33 33 33 33 20 30 2e 33 33 33 33 33 33 0a 0a 40 69 74 65 6d 20 48 | 33333.0.333333.0.333333..@item.H |
| 23f440 | 65 6c 6d 75 74 20 45 6c 6c 65 72 20 40 74 61 62 20 54 6f 62 69 61 73 20 43 2e 20 52 69 74 74 77 | elmut.Eller.@tab.Tobias.C..Rittw |
| 23f460 | 65 69 6c 65 72 20 40 74 61 62 20 53 74 61 73 20 42 6f 75 6b 61 72 65 76 0a 40 69 74 65 6d 20 4c | eiler.@tab.Stas.Boukarev.@item.L |
| 23f480 | 75 6b 65 20 47 6f 72 72 69 65 20 40 74 61 62 20 4d 61 74 74 68 69 61 73 20 4b 6f 65 70 70 65 20 | uke.Gorrie.@tab.Matthias.Koeppe. |
| 23f4a0 | 40 74 61 62 20 4c 75 c3 ad 73 20 4f 6c 69 76 65 69 72 61 0a 40 69 74 65 6d 20 4e 69 6b 6f 64 65 | @tab.Lu..s.Oliveira.@item.Nikode |
| 23f4c0 | 6d 75 73 20 53 69 69 76 6f 6c 61 20 40 74 61 62 20 4d 61 72 63 6f 20 42 61 72 69 6e 67 65 72 20 | mus.Siivola.@tab.Marco.Baringer. |
| 23f4e0 | 40 74 61 62 20 4a 6f c3 a3 6f 20 54 c3 a1 76 6f 72 61 0a 40 69 74 65 6d 20 41 6c 61 6e 20 52 75 | @tab.Jo..o.T..vora.@item.Alan.Ru |
| 23f500 | 74 74 65 6e 62 65 72 67 20 40 74 61 62 20 4d 61 72 6b 20 45 76 65 6e 73 6f 6e 20 40 74 61 62 20 | ttenberg.@tab.Mark.Evenson.@tab. |
| 23f520 | 48 65 6e 72 79 20 48 61 72 72 69 6e 67 74 6f 6e 0a 40 69 74 65 6d 20 43 68 72 69 73 74 6f 70 68 | Henry.Harrington.@item.Christoph |
| 23f540 | 65 20 52 68 6f 64 65 73 20 40 74 61 62 20 45 64 69 20 57 65 69 74 7a 20 40 74 61 62 20 4d 61 72 | e.Rhodes.@tab.Edi.Weitz.@tab.Mar |
| 23f560 | 74 69 6e 20 53 69 6d 6d 6f 6e 73 0a 40 69 74 65 6d 20 4a 75 68 6f 20 53 6e 65 6c 6c 6d 61 6e 20 | tin.Simmons.@item.Juho.Snellman. |
| 23f580 | 40 74 61 62 20 41 74 74 69 6c 61 20 4c 65 6e 64 76 61 69 20 40 74 61 62 20 50 65 74 65 72 20 53 | @tab.Attila.Lendvai.@tab.Peter.S |
| 23f5a0 | 65 69 62 65 6c 0a 40 69 74 65 6d 20 47 65 6f 20 43 61 72 6e 63 72 6f 73 73 20 40 74 61 62 20 44 | eibel.@item.Geo.Carncross.@tab.D |
| 23f5c0 | 61 6e 69 65 6c 20 4b 6f 63 68 6d 61 6e 73 6b 69 20 40 74 61 62 20 44 6f 75 67 6c 61 73 20 43 72 | aniel.Kochmanski.@tab.Douglas.Cr |
| 23f5e0 | 6f 73 68 65 72 0a 40 69 74 65 6d 20 43 68 72 69 73 20 53 63 68 61 66 6d 65 69 73 74 65 72 20 40 | osher.@item.Chris.Schafmeister.@ |
| 23f600 | 74 61 62 20 47 c3 a1 62 6f 72 20 4d 65 6c 69 73 20 40 74 61 62 20 44 61 6e 69 65 6c 20 42 61 72 | tab.G..bor.Melis.@tab.Daniel.Bar |
| 23f620 | 6c 6f 77 0a 40 69 74 65 6d 20 57 6f 6c 66 67 61 6e 67 20 4a 65 6e 6b 6e 65 72 20 40 74 61 62 20 | low.@item.Wolfgang.Jenkner.@tab. |
| 23f640 | 4c 75 c3 ad 73 20 42 6f 72 67 65 73 20 64 65 20 4f 6c 69 76 65 69 72 61 20 40 74 61 62 20 4a 61 | Lu..s.Borges.de.Oliveira.@tab.Ja |
| 23f660 | 6e 20 4d 6f 72 69 6e 67 65 6e 0a 40 69 74 65 6d 20 53 74 65 6c 69 61 6e 20 49 6f 6e 65 73 63 75 | n.Moringen.@item.Stelian.Ionescu |
| 23f680 | 20 40 74 61 62 20 4d 69 63 68 61 65 6c 20 57 65 62 65 72 20 40 74 61 62 20 44 69 64 69 65 72 20 | .@tab.Michael.Weber.@tab.Didier. |
| 23f6a0 | 56 65 72 6e 61 0a 40 69 74 65 6d 20 4c 61 77 72 65 6e 63 65 20 4d 69 74 63 68 65 6c 6c 20 40 74 | Verna.@item.Lawrence.Mitchell.@t |
| 23f6c0 | 61 62 20 41 6e 74 6f 6e 20 4b 6f 76 61 6c 65 6e 6b 6f 20 40 74 61 62 20 54 65 72 6a 65 20 4e 6f | ab.Anton.Kovalenko.@tab.Terje.No |
| 23f6e0 | 72 64 65 72 68 61 75 67 0a 40 69 74 65 6d 20 4d 61 72 6b 20 40 74 61 62 20 42 72 69 61 6e 20 44 | rderhaug.@item.Mark.@tab.Brian.D |
| 23f700 | 6f 77 6e 69 6e 67 20 40 74 61 62 20 42 69 6c 6c 20 43 6c 65 6d 65 6e 74 73 6f 6e 0a 40 69 74 65 | owning.@tab.Bill.Clementson.@ite |
| 23f720 | 6d 20 41 6e 64 72 61 73 20 53 69 6d 6f 6e 20 40 74 61 62 20 41 64 6c 61 69 20 43 68 61 6e 64 72 | m.Andras.Simon.@tab.Adlai.Chandr |
| 23f740 | 61 73 65 6b 68 61 72 20 40 74 61 62 20 5a 61 63 68 20 42 65 61 6e 65 0a 40 69 74 65 6d 20 54 61 | asekhar.@tab.Zach.Beane.@item.Ta |
| 23f760 | 72 6e 20 57 2e 20 42 75 72 74 6f 6e 20 40 74 61 62 20 49 76 61 6e 20 53 68 76 65 64 75 6e 6f 76 | rn.W..Burton.@tab.Ivan.Shvedunov |
| 23f780 | 20 40 74 61 62 20 47 61 62 6f 72 20 4d 65 6c 69 73 0a 40 69 74 65 6d 20 46 72 61 6e 63 6f 69 73 | .@tab.Gabor.Melis.@item.Francois |
| 23f7a0 | 2d 52 65 6e 65 20 52 69 64 65 61 75 20 40 74 61 62 20 45 73 70 65 6e 20 57 69 62 6f 72 67 20 40 | -Rene.Rideau.@tab.Espen.Wiborg.@ |
| 23f7c0 | 74 61 62 20 43 68 72 69 73 74 69 61 6e 20 53 63 68 61 66 6d 65 69 73 74 65 72 0a 40 69 74 65 6d | tab.Christian.Schafmeister.@item |
| 23f7e0 | 20 42 69 6b 65 20 40 74 61 62 20 41 6e 74 c3 b3 6e 69 6f 20 4d 65 6e 65 7a 65 73 20 4c 65 69 74 | .Bike.@tab.Ant..nio.Menezes.Leit |
| 23f800 | c3 a3 6f 20 40 74 61 62 20 41 6c 65 78 61 6e 64 65 72 20 41 72 74 65 6d 65 6e 6b 6f 0a 40 69 74 | ..o.@tab.Alexander.Artemenko.@it |
| 23f820 | 65 6d 20 55 74 7a 2d 55 77 65 20 48 61 75 73 20 40 74 61 62 20 54 68 6f 6d 61 73 20 53 63 68 69 | em.Utz-Uwe.Haus.@tab.Thomas.Schi |
| 23f840 | 6c 6c 69 6e 67 20 40 74 61 62 20 54 68 6f 6d 61 73 20 46 2e 20 42 75 72 64 69 63 6b 0a 40 69 74 | lling.@tab.Thomas.F..Burdick.@it |
| 23f860 | 65 6d 20 54 61 6b 65 68 69 6b 6f 20 41 62 65 20 40 74 61 62 20 53 c3 a9 62 61 73 74 69 65 6e 20 | em.Takehiko.Abe.@tab.S..bastien. |
| 23f880 | 56 69 6c 6c 65 6d 6f 74 20 40 74 61 62 20 52 69 63 68 61 72 64 20 4d 20 4b 72 65 75 74 65 72 0a | Villemot.@tab.Richard.M.Kreuter. |
| 23f8a0 | 40 69 74 65 6d 20 52 61 79 6d 6f 6e 64 20 54 6f 79 20 40 74 61 62 20 4d 61 74 74 68 65 77 20 44 | @item.Raymond.Toy.@tab.Matthew.D |
| 23f8c0 | 61 6e 69 73 68 20 40 74 61 62 20 4d 61 72 6b 20 48 61 72 69 67 0a 40 69 74 65 6d 20 4a 61 6d 65 | anish.@tab.Mark.Harig.@item.Jame |
| 23f8e0 | 73 20 42 69 65 6c 6d 61 6e 20 40 74 61 62 20 48 61 72 61 6c 64 20 48 61 6e 63 68 65 2d 4f 6c 73 | s.Bielman.@tab.Harald.Hanche-Ols |
| 23f900 | 65 6e 20 40 74 61 62 20 45 64 20 4c 61 6e 67 6c 65 79 0a 40 69 74 65 6d 20 41 72 69 65 6c 20 42 | en.@tab.Ed.Langley.@item.Ariel.B |
| 23f920 | 61 64 69 63 68 69 20 40 74 61 62 20 41 6e 64 72 65 61 73 20 46 75 63 68 73 20 40 74 61 62 20 57 | adichi.@tab.Andreas.Fuchs.@tab.W |
| 23f940 | 69 6c 6c 65 6d 20 42 72 6f 65 6b 65 6d 61 0a 40 69 74 65 6d 20 54 61 79 6c 6f 72 20 52 2e 20 43 | illem.Broekema.@item.Taylor.R..C |
| 23f960 | 61 6d 70 62 65 6c 6c 20 40 74 61 62 20 53 74 65 76 65 20 50 75 72 63 65 6c 6c 20 40 74 61 62 20 | ampbell.@tab.Steve.Purcell.@tab. |
| 23f980 | 50 68 69 6c 20 48 61 72 67 65 74 74 0a 40 69 74 65 6d 20 50 61 75 6c 6f 20 4d 61 64 65 69 72 61 | Phil.Hargett.@item.Paulo.Madeira |
| 23f9a0 | 20 40 74 61 62 20 4e 69 63 6f 6c 61 73 20 4d 61 72 74 79 61 6e 6f 66 66 20 40 74 61 62 20 4c 61 | .@tab.Nicolas.Martyanoff.@tab.La |
| 23f9c0 | 72 73 20 4d 61 67 6e 65 20 49 6e 67 65 62 72 69 67 74 73 65 6e 0a 40 69 74 65 6d 20 4b 72 69 73 | rs.Magne.Ingebrigtsen.@item.Kris |
| 23f9e0 | 20 4b 61 74 74 65 72 6a 6f 68 6e 20 40 74 61 62 20 4a 6f 68 6e 20 50 61 75 6c 20 57 61 6c 6c 69 | .Katterjohn.@tab.John.Paul.Walli |
| 23fa00 | 6e 67 74 6f 6e 20 40 74 61 62 20 4a 6f 65 72 67 20 48 6f 65 68 6c 65 0a 40 69 74 65 6d 20 44 6f | ngton.@tab.Joerg.Hoehle.@item.Do |
| 23fa20 | 75 67 6c 61 73 20 4b 61 74 7a 6d 61 6e 20 40 74 61 62 20 44 61 76 69 64 20 52 65 69 74 74 65 72 | uglas.Katzman.@tab.David.Reitter |
| 23fa40 | 20 40 74 61 62 20 43 68 61 72 6c 65 73 20 5a 68 61 6e 67 0a 40 69 74 65 6d 20 42 72 79 61 6e 20 | .@tab.Charles.Zhang.@item.Bryan. |
| 23fa60 | 4f 27 43 6f 6e 6e 6f 72 20 40 74 61 62 20 42 72 75 6e 6f 20 43 69 63 68 6f 6e 20 40 74 61 62 20 | O'Connor.@tab.Bruno.Cichon.@tab. |
| 23fa80 | 42 61 72 74 20 42 6f 74 74 61 0a 40 69 74 65 6d 20 41 6c 61 6e 20 53 68 75 74 6b 6f 20 40 74 61 | Bart.Botta.@item.Alan.Shutko.@ta |
| 23faa0 | 62 20 55 72 73 61 20 61 6d 65 72 69 63 61 6e 75 73 20 6b 65 72 6d 6f 64 65 69 20 40 74 61 62 20 | b.Ursa.americanus.kermodei.@tab. |
| 23fac0 | 54 72 61 76 69 73 20 43 72 6f 73 73 0a 40 69 74 65 6d 20 54 6f 62 69 61 73 20 52 69 74 74 77 65 | Travis.Cross.@item.Tobias.Rittwe |
| 23fae0 | 69 6c 65 72 20 40 74 61 62 20 54 69 61 67 6f 20 4d 61 64 75 72 6f 2d 44 69 61 73 20 40 74 61 62 | iler.@tab.Tiago.Maduro-Dias.@tab |
| 23fb00 | 20 53 74 65 66 61 6e 20 4b 61 6d 70 68 61 75 73 65 6e 0a 40 69 74 65 6d 20 53 65 61 6e 20 4f 27 | .Stefan.Kamphausen.@item.Sean.O' |
| 23fb20 | 52 6f 75 72 6b 65 20 40 74 61 62 20 52 6f 62 65 72 74 20 4c 65 68 72 20 40 74 61 62 20 52 6f 62 | Rourke.@tab.Robert.Lehr.@tab.Rob |
| 23fb40 | 65 72 74 20 45 2e 20 42 72 6f 77 6e 0a 40 69 74 65 6d 20 52 6f 62 65 72 74 20 42 72 6f 77 6e 20 | ert.E..Brown.@item.Robert.Brown. |
| 23fb60 | 40 74 61 62 20 52 65 6e 6b 65 20 43 68 72 69 73 74 69 61 6e 20 76 6f 6e 20 53 65 67 67 65 72 6e | @tab.Renke.Christian.von.Seggern |
| 23fb80 | 20 40 74 61 62 20 50 68 69 6c 69 70 70 20 53 74 65 70 68 61 6e 69 0a 40 69 74 65 6d 20 50 68 69 | .@tab.Philipp.Stephani.@item.Phi |
| 23fba0 | 6c 69 70 70 20 4d 61 72 65 6b 20 40 74 61 62 20 50 65 74 65 72 20 53 2e 20 48 6f 75 73 65 6c 20 | lipp.Marek.@tab.Peter.S..Housel. |
| 23fbc0 | 40 74 61 62 20 4e 61 74 68 61 6e 20 54 72 61 70 75 7a 7a 61 6e 6f 0a 40 69 74 65 6d 20 4e 61 74 | @tab.Nathan.Trapuzzano.@item.Nat |
| 23fbe0 | 68 61 6e 20 42 69 72 64 20 40 74 61 62 20 4d 69 6b 65 20 41 70 70 6c 65 62 79 20 40 74 61 62 20 | han.Bird.@tab.Mike.Appleby.@tab. |
| 23fc00 | 4d 61 74 74 65 6f 20 4c 61 6e 64 69 0a 40 69 74 65 6d 20 4b 6e 75 74 20 4f 6c 61 76 20 42 c3 b8 | Matteo.Landi.@item.Knut.Olav.B.. |
| 23fc20 | 68 6d 65 72 20 40 74 61 62 20 4a 6f 75 6e 69 20 4b 20 53 65 70 70 61 6e 65 6e 20 40 74 61 62 20 | hmer.@tab.Jouni.K.Seppanen.@tab. |
| 23fc40 | 4a 6f 6e 20 4f 64 64 69 65 0a 40 69 74 65 6d 20 49 76 61 6e 20 54 6f 73 68 6b 6f 76 20 40 74 61 | Jon.Oddie.@item.Ivan.Toshkov.@ta |
| 23fc60 | 62 20 49 61 6e 20 45 73 6c 69 63 6b 20 40 74 61 62 20 47 65 6f 66 66 20 57 6f 7a 6e 69 61 6b 0a | b.Ian.Eslick.@tab.Geoff.Wozniak. |
| 23fc80 | 40 69 74 65 6d 20 47 61 72 79 20 4b 69 6e 67 20 40 74 61 62 20 46 69 63 65 20 54 20 40 74 61 62 | @item.Gary.King.@tab.Fice.T.@tab |
| 23fca0 | 20 45 72 69 63 20 42 6c 6f 6f 64 0a 40 69 74 65 6d 20 45 64 75 61 72 64 6f 20 4d 75 c3 b1 6f 7a | .Eric.Blood.@item.Eduardo.Mu..oz |
| 23fcc0 | 20 40 74 61 62 20 43 68 72 69 73 74 6f 70 68 65 20 4a 75 6e 6b 65 20 40 74 61 62 20 43 68 72 69 | .@tab.Christophe.Junke.@tab.Chri |
| 23fce0 | 73 74 69 61 6e 20 4c 79 6e 62 65 63 68 0a 40 69 74 65 6d 20 43 68 72 69 73 20 43 61 70 65 6c 20 | stian.Lynbech.@item.Chris.Capel. |
| 23fd00 | 40 74 61 62 20 42 6a c3 b8 72 6e 20 4e 6f 72 64 62 c3 b8 20 40 74 61 62 20 41 6e 74 6f 6e 20 56 | @tab.Bj..rn.Nordb...@tab.Anton.V |
| 23fd20 | 6f 64 6f 6e 6f 73 6f 76 0a 40 69 74 65 6d 20 41 6c 65 78 65 79 20 44 65 6a 6e 65 6b 61 20 40 74 | odonosov.@item.Alexey.Dejneka.@t |
| 23fd40 | 61 62 20 41 6c 61 6e 20 43 61 75 6c 6b 69 6e 73 20 40 74 61 62 20 5a 61 63 68 61 72 79 20 42 65 | ab.Alan.Caulkins.@tab.Zachary.Be |
| 23fd60 | 61 6e 65 0a 40 69 74 65 6d 20 59 75 2d 43 68 69 61 6e 67 20 48 73 75 20 40 74 61 62 20 59 61 72 | ane.@item.Yu-Chiang.Hsu.@tab.Yar |
| 23fd80 | 6f 73 6c 61 76 20 4b 61 76 65 6e 63 68 75 6b 20 40 74 61 62 20 59 61 6e 0a 40 69 74 65 6d 20 59 | oslav.Kavenchuk.@tab.Yan.@item.Y |
| 23fda0 | 4f 4b 4f 54 41 20 59 75 6b 69 20 40 74 61 62 20 57 6f 6c 66 67 61 6e 67 20 4d 65 64 65 72 6c 65 | OKOTA.Yuki.@tab.Wolfgang.Mederle |
| 23fdc0 | 20 40 74 61 62 20 57 6f 6a 63 69 65 63 68 20 4b 61 63 7a 6d 61 72 65 6b 0a 40 69 74 65 6d 20 57 | .@tab.Wojciech.Kaczmarek.@item.W |
| 23fde0 | 69 6c 6c 69 61 6d 20 42 6c 61 6e 64 20 40 74 61 62 20 57 65 73 6c 65 79 20 48 61 72 76 65 79 20 | illiam.Bland.@tab.Wesley.Harvey. |
| 23fe00 | 40 74 61 62 20 56 69 74 61 6c 79 20 4d 61 79 61 74 73 6b 69 6b 68 0a 40 69 74 65 6d 20 54 6f 6d | @tab.Vitaly.Mayatskikh.@item.Tom |
| 23fe20 | 61 73 20 5a 65 6c 6c 65 72 69 6e 20 40 74 61 62 20 54 6f 6d 20 50 69 65 72 63 65 20 40 74 61 62 | as.Zellerin.@tab.Tom.Pierce.@tab |
| 23fe40 | 20 54 69 6d 20 44 61 6c 79 20 4a 72 2e 0a 40 69 74 65 6d 20 54 68 6f 6d 61 73 20 46 69 74 7a 73 | .Tim.Daly.Jr..@item.Thomas.Fitzs |
| 23fe60 | 69 6d 6d 6f 6e 73 20 40 74 61 62 20 54 68 65 20 47 65 6e 64 6c 20 50 72 6f 6a 65 63 74 20 40 74 | immons.@tab.The.Gendl.Project.@t |
| 23fe80 | 61 62 20 53 79 6f 68 65 69 20 59 4f 53 48 49 44 41 0a 40 69 74 65 6d 20 53 76 65 6e 20 56 61 6e | ab.Syohei.YOSHIDA.@item.Sven.Van |
| 23fea0 | 20 43 61 65 6b 65 6e 62 65 72 67 68 65 20 40 74 61 62 20 53 76 65 69 6e 20 4f 76 65 20 41 61 73 | .Caekenberghe.@tab.Svein.Ove.Aas |
| 23fec0 | 20 40 74 61 62 20 53 74 65 76 65 20 53 6d 69 74 68 0a 40 69 74 65 6d 20 53 74 61 6e 69 73 42 61 | .@tab.Steve.Smith.@item.StanisBa |
| 23fee0 | 77 20 48 61 6c 69 6b 20 40 74 61 62 20 53 65 72 67 65 79 20 4b 6f 73 74 79 61 65 76 20 40 74 61 | w.Halik.@tab.Sergey.Kostyaev.@ta |
| 23ff00 | 62 20 53 61 6d 75 65 6c 20 46 72 65 69 6c 69 63 68 0a 40 69 74 65 6d 20 52 75 73 73 65 6c 6c 20 | b.Samuel.Freilich.@item.Russell. |
| 23ff20 | 53 69 6d 20 40 74 61 62 20 52 75 73 73 65 6c 6c 20 4d 63 4d 61 6e 75 73 20 40 74 61 62 20 52 75 | Sim.@tab.Russell.McManus.@tab.Ru |
| 23ff40 | 73 73 20 54 79 6e 64 61 6c 6c 0a 40 69 74 65 6d 20 52 75 69 20 50 61 74 72 6f 63 c3 ad 6e 69 6f | ss.Tyndall.@item.Rui.Patroc..nio |
| 23ff60 | 20 40 74 61 62 20 52 6f 62 65 72 74 20 50 2e 20 47 6f 6c 64 6d 61 6e 20 40 74 61 62 20 52 6f 62 | .@tab.Robert.P..Goldman.@tab.Rob |
| 23ff80 | 65 72 74 20 4d 61 63 6f 6d 62 65 72 0a 40 69 74 65 6d 20 52 69 63 68 61 72 64 20 47 61 72 6e 65 | ert.Macomber.@item.Richard.Garne |
| 23ffa0 | 72 20 40 74 61 62 20 52 65 69 6e 69 20 55 72 62 61 6e 20 40 74 61 62 20 52 2e 20 4d 61 74 74 68 | r.@tab.Reini.Urban.@tab.R..Matth |
| 23ffc0 | 65 77 20 45 6d 65 72 73 6f 6e 0a 40 69 74 65 6d 20 52 20 50 72 69 6d 75 73 20 40 74 61 62 20 50 | ew.Emerson.@item.R.Primus.@tab.P |
| 23ffe0 | 65 74 65 72 20 46 65 69 67 6c 20 40 74 61 62 20 50 65 74 65 72 0a 40 69 74 65 6d 20 50 61 77 65 | eter.Feigl.@tab.Peter.@item.Pawe |
| 240000 | 6c 20 4f 73 74 72 6f 77 73 6b 69 20 40 74 61 62 20 50 61 75 6c 20 45 67 67 65 72 74 20 40 74 61 | l.Ostrowski.@tab.Paul.Eggert.@ta |
| 240020 | 62 20 50 61 75 6c 20 44 6f 6e 6e 65 6c 6c 79 0a 40 69 74 65 6d 20 50 61 75 6c 20 43 6f 6c 6c 69 | b.Paul.Donnelly.@item.Paul.Colli |
| 240040 | 6e 73 20 40 74 61 62 20 50 61 74 72 69 63 6b 20 50 6f 69 74 72 61 73 20 40 74 61 62 20 4f 6c 6f | ns.@tab.Patrick.Poitras.@tab.Olo |
| 240060 | 66 2d 4a 6f 61 63 68 69 6d 20 46 72 61 68 6d 0a 40 69 74 65 6d 20 4e 65 69 6c 20 56 61 6e 20 44 | f-Joachim.Frahm.@item.Neil.Van.D |
| 240080 | 79 6b 65 20 40 74 61 62 20 4e 61 74 68 61 6e 20 52 69 6e 67 6f 20 40 74 61 62 20 4e 49 49 4d 49 | yke.@tab.Nathan.Ringo.@tab.NIIMI |
| 2400a0 | 20 53 61 74 6f 73 68 69 0a 40 69 74 65 6d 20 4d c3 a9 73 7a c3 a1 72 6f 73 20 4c 65 76 65 6e 74 | .Satoshi.@item.M..sz..ros.Levent |
| 2400c0 | 65 20 40 74 61 62 20 4d 69 6b 65 6c 20 42 61 6e 63 72 6f 66 74 20 40 74 61 62 20 4d 69 63 68 61 | e.@tab.Mikel.Bancroft.@tab.Micha |
| 2400e0 | c5 82 20 48 65 72 64 61 0a 40 69 74 65 6d 20 4d 69 63 68 61 c5 82 20 22 70 68 6f 65 22 20 48 65 | ...Herda.@item.Micha..."phoe".He |
| 240100 | 72 64 61 20 40 74 61 62 20 4d 69 63 68 61 65 6c 20 57 68 69 74 65 20 40 74 61 62 20 4d 61 74 74 | rda.@tab.Michael.White.@tab.Matt |
| 240120 | 68 65 77 20 4b 65 6e 6e 65 64 79 0a 40 69 74 65 6d 20 4d 61 74 74 68 65 77 20 44 2e 20 53 77 61 | hew.Kennedy.@item.Matthew.D..Swa |
| 240140 | 6e 6b 20 40 74 61 62 20 4d 61 74 74 20 50 69 6c 6c 73 62 75 72 79 20 40 74 61 62 20 4d 61 73 61 | nk.@tab.Matt.Pillsbury.@tab.Masa |
| 240160 | 79 75 6b 69 20 4f 6e 6a 6f 0a 40 69 74 65 6d 20 4d 61 72 6b 20 57 6f 6f 64 69 6e 67 20 40 74 61 | yuki.Onjo.@item.Mark.Wooding.@ta |
| 240180 | 62 20 4d 61 72 6b 20 4b 61 72 70 6f 76 20 40 74 61 62 20 4d 61 72 6b 20 48 2e 20 44 61 76 69 64 | b.Mark.Karpov.@tab.Mark.H..David |
| 2401a0 | 0a 40 69 74 65 6d 20 4d 61 72 69 75 73 20 47 65 72 62 65 72 73 68 61 67 65 6e 20 40 74 61 62 20 | .@item.Marius.Gerbershagen.@tab. |
| 2401c0 | 4d 61 72 63 6f 20 4d 6f 6e 74 65 69 72 6f 20 40 74 61 62 20 4c 79 6e 6e 20 51 75 61 6d 0a 40 69 | Marco.Monteiro.@tab.Lynn.Quam.@i |
| 2401e0 | 74 65 6d 20 4c 65 76 65 6e 74 65 20 4d c3 a9 73 7a c3 a1 72 6f 73 20 40 74 61 62 20 4c 65 6f 20 | tem.Levente.M..sz..ros.@tab.Leo. |
| 240200 | 4c 69 75 20 40 74 61 62 20 4c 61 73 73 65 20 52 61 73 69 6e 65 6e 0a 40 69 74 65 6d 20 4b 61 73 | Liu.@tab.Lasse.Rasinen.@item.Kas |
| 240220 | 70 65 72 20 47 61 c5 82 6b 6f 77 73 6b 69 20 40 74 61 62 20 4b 61 73 70 65 72 20 40 74 61 62 20 | per.Ga..kowski.@tab.Kasper.@tab. |
| 240240 | 4b 61 72 73 74 65 6e 20 50 6f 65 63 6b 0a 40 69 74 65 6d 20 4b 61 69 20 4b 61 6d 69 6e 73 6b 69 | Karsten.Poeck.@item.Kai.Kaminski |
| 240260 | 20 40 74 61 62 20 4a 75 6c 69 61 6e 20 53 74 65 63 6b 6c 69 6e 61 20 40 74 61 62 20 4a 75 65 72 | .@tab.Julian.Stecklina.@tab.Juer |
| 240280 | 67 65 6e 20 47 6d 65 69 6e 65 72 0a 40 69 74 65 6d 20 4a 6f 6e 20 41 6c 6c 65 6e 20 42 6f 6f 6e | gen.Gmeiner.@item.Jon.Allen.Boon |
| 2402a0 | 65 20 40 74 61 62 20 4a 6f 68 6e 20 53 74 72 61 63 6b 65 20 40 74 61 62 20 4a 6f 68 6e 20 53 6d | e.@tab.John.Stracke.@tab.John.Sm |
| 2402c0 | 69 74 68 0a 40 69 74 65 6d 20 4a 6f 68 61 6e 20 42 6f 63 6b 67 c3 a5 72 64 20 40 74 61 62 20 4a | ith.@item.Johan.Bockg..rd.@tab.J |
| 2402e0 | 6f 65 20 52 6f 62 65 72 74 73 6f 6e 20 40 74 61 62 20 4a 69 6d 6d 79 20 41 67 75 69 6c 61 72 20 | oe.Robertson.@tab.Jimmy.Aguilar. |
| 240300 | 4d 65 6e 61 0a 40 69 74 65 6d 20 4a 69 6d 20 4e 65 77 74 6f 6e 20 40 74 61 62 20 4a 61 76 69 65 | Mena.@item.Jim.Newton.@tab.Javie |
| 240320 | 72 20 4f 6c 61 65 63 68 65 61 20 40 74 61 62 20 4a 61 6e 20 52 79 63 68 74 65 72 0a 40 69 74 65 | r.Olaechea.@tab.Jan.Rychter.@ite |
| 240340 | 6d 20 4a 61 6d 65 73 20 4d 63 49 6c 72 65 65 20 40 74 61 62 20 4a 61 63 6b 20 50 75 67 6d 69 72 | m.James.McIlree.@tab.Jack.Pugmir |
| 240360 | 65 20 40 74 61 62 20 4a 61 63 65 6b 20 50 6f 64 6b 61 6e 73 6b 69 0a 40 69 74 65 6d 20 49 76 61 | e.@tab.Jacek.Podkanski.@item.Iva |
| 240380 | 6e 20 53 6f 6b 6f 6c 6f 76 20 40 74 61 62 20 49 76 61 6e 20 42 6f 6c 64 79 72 65 76 20 40 74 61 | n.Sokolov.@tab.Ivan.Boldyrev.@ta |
| 2403a0 | 62 20 49 67 6e 61 73 20 4d 69 6b 61 6c 61 6a 75 6e 61 73 0a 40 69 74 65 6d 20 48 61 6e 6e 75 20 | b.Ignas.Mikalajunas.@item.Hannu. |
| 2403c0 | 4b 6f 69 76 69 73 74 6f 20 40 74 61 62 20 47 72 61 6e 74 20 53 68 61 6e 67 72 65 61 75 78 20 40 | Koivisto.@tab.Grant.Shangreaux.@ |
| 2403e0 | 74 61 62 20 47 72 61 68 61 6d 20 44 6f 62 62 69 6e 73 0a 40 69 74 65 6d 20 47 6c 65 65 66 72 65 | tab.Graham.Dobbins.@item.Gleefre |
| 240400 | 20 40 74 61 62 20 47 65 72 64 20 46 6c 61 69 67 20 40 74 61 62 20 47 61 69 6c 20 5a 61 63 68 61 | .@tab.Gerd.Flaig.@tab.Gail.Zacha |
| 240420 | 72 69 61 73 0a 40 69 74 65 6d 20 46 72 65 64 65 72 69 63 20 42 72 75 6e 65 6c 20 40 74 61 62 20 | rias.@item.Frederic.Brunel.@tab. |
| 240440 | 45 72 69 63 20 54 69 6d 6d 6f 6e 73 20 40 74 61 62 20 45 72 69 63 20 53 63 68 75 6c 74 65 0a 40 | Eric.Timmons.@tab.Eric.Schulte.@ |
| 240460 | 69 74 65 6d 20 44 75 73 74 69 6e 20 4c 6f 6e 67 20 40 74 61 62 20 44 6d 69 74 72 79 20 49 67 72 | item.Dustin.Long.@tab.Dmitry.Igr |
| 240480 | 69 73 68 69 6e 20 40 74 61 62 20 44 65 6f 6b 68 77 61 6e 20 4b 69 6d 0a 40 69 74 65 6d 20 44 65 | ishin.@tab.Deokhwan.Kim.@item.De |
| 2404a0 | 6e 69 73 20 42 75 64 79 61 6b 20 40 74 61 62 20 44 61 6e 69 65 6c 20 4b 6f 6e 69 6e 67 20 40 74 | nis.Budyak.@tab.Daniel.Koning.@t |
| 2404c0 | 61 62 20 44 61 6e 69 65 6c 20 4b 6f 63 68 6d 61 c5 84 73 6b 69 0a 40 69 74 65 6d 20 44 61 6e 20 | ab.Daniel.Kochma..ski.@item.Dan. |
| 2404e0 | 57 65 69 6e 72 65 62 20 40 74 61 62 20 44 61 6e 20 50 69 65 72 73 6f 6e 20 40 74 61 62 20 44 61 | Weinreb.@tab.Dan.Pierson.@tab.Da |
| 240500 | 63 6f 64 61 20 53 74 72 61 63 6b 0a 40 69 74 65 6d 20 43 79 72 75 73 20 48 61 72 6d 6f 6e 20 40 | coda.Strack.@item.Cyrus.Harmon.@ |
| 240520 | 74 61 62 20 43 68 72 69 73 74 6f 70 68 20 4b 65 c3 9f 6c 65 72 20 40 74 61 62 20 43 65 63 69 6c | tab.Christoph.Ke..ler.@tab.Cecil |
| 240540 | 20 57 65 73 74 65 72 68 6f 66 0a 40 69 74 65 6d 20 42 72 69 61 6e 20 4d 61 73 74 65 6e 62 72 6f | .Westerhof.@item.Brian.Mastenbro |
| 240560 | 6f 6b 20 40 74 61 62 20 42 72 61 6e 64 6f 6e 20 42 65 72 67 72 65 6e 20 40 74 61 62 20 42 6f 7a | ok.@tab.Brandon.Bergren.@tab.Boz |
| 240580 | 68 69 64 61 72 20 42 61 74 73 6f 76 0a 40 69 74 65 6d 20 42 6f 62 20 48 61 6c 6c 65 79 20 40 74 | hidar.Batsov.@item.Bob.Halley.@t |
| 2405a0 | 61 62 20 42 61 72 72 79 20 46 69 73 68 6d 61 6e 20 40 74 61 62 20 42 2e 53 63 6f 74 74 20 4d 69 | ab.Barry.Fishman.@tab.B.Scott.Mi |
| 2405c0 | 63 68 65 6c 0a 40 69 74 65 6d 20 41 6e 67 65 6c 6f 20 52 6f 73 73 69 20 40 74 61 62 20 41 6e 64 | chel.@item.Angelo.Rossi.@tab.And |
| 2405e0 | 72 65 77 20 4d 79 65 72 73 20 40 74 61 62 20 41 6e 64 72 65 20 41 2e 20 47 6f 6d 65 73 0a 40 69 | rew.Myers.@tab.Andre.A..Gomes.@i |
| 240600 | 74 65 6d 20 41 6c 65 78 61 6e 64 65 72 20 4b 6f 6e 73 74 61 6e 74 69 6e 6f 76 20 40 74 61 62 20 | tem.Alexander.Konstantinov.@tab. |
| 240620 | 41 6c 65 6b 73 61 6e 64 61 72 20 42 61 6b 69 63 20 40 74 61 62 20 41 6c 61 69 6e 20 50 69 63 61 | Aleksandar.Bakic.@tab.Alain.Pica |
| 240640 | 72 64 0a 40 69 74 65 6d 20 41 6c 20 48 6f 61 6e 67 20 40 74 61 62 20 41 64 61 6d 20 42 6f 7a 61 | rd.@item.Al.Hoang.@tab.Adam.Boza |
| 240660 | 6e 69 63 68 0a 40 65 6e 64 20 6d 75 6c 74 69 74 61 62 6c 65 0a 00 00 00 00 00 00 00 00 00 00 00 | nich.@end.multitable............ |
| 240680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2406a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2406c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2406e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2407a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2407c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2407e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 64 6f 63 2f 73 6c 69 6d 65 2e 63 73 73 00 00 00 00 00 00 00 00 | slime-2.31/doc/slime.css........ |
| 240820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 240880 | 30 30 30 32 30 37 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 36 30 31 00 20 30 00 00 00 | 0002073.00000000000.013601..0... |
| 2408a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2408c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2408e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 240920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 240940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2409a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2409c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2409e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240a00 | 62 6f 64 79 20 7b 20 66 6f 6e 74 2d 66 61 6d 69 6c 79 3a 20 47 65 6f 72 67 69 61 2c 20 73 65 72 | body.{.font-family:.Georgia,.ser |
| 240a20 | 69 66 3b 0a 20 20 20 20 20 20 20 6c 69 6e 65 2d 68 65 69 67 68 74 3a 20 31 2e 33 3b 0a 20 20 20 | if;........line-height:.1.3;.... |
| 240a40 | 20 20 20 20 70 61 64 64 69 6e 67 2d 6c 65 66 74 3a 20 35 65 6d 3b 20 70 61 64 64 69 6e 67 2d 72 | ....padding-left:.5em;.padding-r |
| 240a60 | 69 67 68 74 3a 20 31 65 6d 3b 0a 20 20 20 20 20 20 20 70 61 64 64 69 6e 67 2d 62 6f 74 74 6f 6d | ight:.1em;........padding-bottom |
| 240a80 | 3a 20 31 65 6d 3b 20 6d 61 78 2d 77 69 64 74 68 3a 20 36 30 65 6d 3b 20 7d 0a 74 61 62 6c 65 20 | :.1em;.max-width:.60em;.}.table. |
| 240aa0 | 7b 20 62 6f 72 64 65 72 2d 63 6f 6c 6c 61 70 73 65 3a 20 63 6f 6c 6c 61 70 73 65 20 7d 0a 73 70 | {.border-collapse:.collapse.}.sp |
| 240ac0 | 61 6e 2e 72 6f 6d 61 6e 20 7b 20 66 6f 6e 74 2d 66 61 6d 69 6c 79 3a 20 63 65 6e 74 75 72 79 20 | an.roman.{.font-family:.century. |
| 240ae0 | 73 63 68 6f 6f 6c 62 6f 6f 6b 2c 20 73 65 72 69 66 3b 20 66 6f 6e 74 2d 77 65 69 67 68 74 3a 20 | schoolbook,.serif;.font-weight:. |
| 240b00 | 6e 6f 72 6d 61 6c 3b 20 7d 0a 68 31 2c 20 68 32 2c 20 68 33 2c 20 68 34 2c 20 68 35 2c 20 68 36 | normal;.}.h1,.h2,.h3,.h4,.h5,.h6 |
| 240b20 | 20 7b 20 66 6f 6e 74 2d 66 61 6d 69 6c 79 3a 20 20 48 65 6c 76 65 74 69 63 61 2c 20 73 61 6e 73 | .{.font-family:..Helvetica,.sans |
| 240b40 | 2d 73 65 72 69 66 20 7d 0a 68 34 20 7b 20 6d 61 72 67 69 6e 2d 74 6f 70 3a 20 32 2e 35 65 6d 3b | -serif.}.h4.{.margin-top:.2.5em; |
| 240b60 | 20 7d 0a 64 66 6e 20 7b 20 66 6f 6e 74 2d 66 61 6d 69 6c 79 3a 20 69 6e 68 65 72 69 74 3b 20 66 | .}.dfn.{.font-family:.inherit;.f |
| 240b80 | 6f 6e 74 2d 76 61 72 69 61 6e 74 3a 20 69 74 61 6c 69 63 3b 20 66 6f 6e 74 2d 77 65 69 67 68 74 | ont-variant:.italic;.font-weight |
| 240ba0 | 3a 20 62 6f 6c 64 65 72 20 7d 0a 76 61 72 20 7b 20 66 6f 6e 74 2d 76 61 72 69 61 6e 74 3a 20 73 | :.bolder.}.var.{.font-variant:.s |
| 240bc0 | 6c 61 6e 74 65 64 3b 20 7d 0a 74 64 20 20 7b 20 70 61 64 64 69 6e 67 2d 72 69 67 68 74 3a 20 31 | lanted;.}.td..{.padding-right:.1 |
| 240be0 | 65 6d 3b 20 70 61 64 64 69 6e 67 2d 6c 65 66 74 3a 20 31 65 6d 20 7d 0a 73 75 62 20 7b 20 66 6f | em;.padding-left:.1em.}.sub.{.fo |
| 240c00 | 6e 74 2d 73 69 7a 65 3a 20 73 6d 61 6c 6c 65 72 20 7d 0a 2e 6e 6f 64 65 20 7b 20 70 61 64 64 69 | nt-size:.smaller.}..node.{.paddi |
| 240c20 | 6e 67 3a 20 30 3b 20 6d 61 72 67 69 6e 3a 20 30 20 7d 0a 64 64 20 7b 20 70 61 64 64 69 6e 67 2d | ng:.0;.margin:.0.}.dd.{.padding- |
| 240c40 | 74 6f 70 3a 20 31 65 6d 3b 20 70 61 64 64 69 6e 67 2d 62 6f 74 74 6f 6d 3a 20 32 65 6d 20 7d 0a | top:.1em;.padding-bottom:.2em.}. |
| 240c60 | 70 72 65 2e 65 78 61 6d 70 6c 65 20 7b 0a 20 20 66 6f 6e 74 2d 66 61 6d 69 6c 79 3a 20 6d 6f 6e | pre.example.{...font-family:.mon |
| 240c80 | 6f 73 70 61 63 65 3b 0a 20 20 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6c 6f 72 3a 20 23 45 39 46 | ospace;...background-color:.#E9F |
| 240ca0 | 46 45 39 3b 20 62 6f 72 64 65 72 3a 20 31 70 78 20 73 6f 6c 69 64 20 23 39 44 39 3b 0a 20 20 70 | FE9;.border:.1px.solid.#9D9;...p |
| 240cc0 | 61 64 64 69 6e 67 2d 74 6f 70 3a 20 30 2e 35 65 6d 3b 20 70 61 64 64 69 6e 67 2d 62 6f 74 74 6f | adding-top:.0.5em;.padding-botto |
| 240ce0 | 6d 3a 20 30 2e 35 65 6d 3b 20 7d 0a 61 3a 6c 69 6e 6b 20 7b 20 63 6f 6c 6f 72 3a 20 23 33 38 33 | m:.0.5em;.}.a:link.{.color:.#383 |
| 240d00 | 3b 20 74 65 78 74 2d 64 65 63 6f 72 61 74 69 6f 6e 3a 20 6e 6f 6e 65 3b 20 70 61 64 64 69 6e 67 | ;.text-decoration:.none;.padding |
| 240d20 | 3a 20 31 70 78 20 32 70 78 20 31 70 78 20 32 70 78 3b 20 7d 0a 61 3a 76 69 73 69 74 65 64 20 7b | :.1px.2px.1px.2px;.}.a:visited.{ |
| 240d40 | 20 63 6f 6c 6f 72 3a 20 23 31 36 31 3b 20 74 65 78 74 2d 64 65 63 6f 72 61 74 69 6f 6e 3a 20 6e | .color:.#161;.text-decoration:.n |
| 240d60 | 6f 6e 65 3b 20 70 61 64 64 69 6e 67 3a 20 31 70 78 20 32 70 78 20 31 70 78 20 32 70 78 3b 20 7d | one;.padding:.1px.2px.1px.2px;.} |
| 240d80 | 0a 61 3a 68 6f 76 65 72 20 7b 20 63 6f 6c 6f 72 3a 20 23 31 36 31 3b 20 74 65 78 74 2d 64 65 63 | .a:hover.{.color:.#161;.text-dec |
| 240da0 | 6f 72 61 74 69 6f 6e 3a 20 6e 6f 6e 65 3b 20 70 61 64 64 69 6e 67 3a 20 31 70 78 20 31 70 78 20 | oration:.none;.padding:.1px.1px. |
| 240dc0 | 31 70 78 20 31 70 78 3b 20 62 6f 72 64 65 72 3a 20 31 70 78 20 73 6f 6c 69 64 20 23 36 36 36 3b | 1px.1px;.border:.1px.solid.#666; |
| 240de0 | 20 7d 0a 61 3a 66 6f 63 75 73 20 7b 20 63 6f 6c 6f 72 3a 20 23 31 36 31 3b 20 74 65 78 74 2d 64 | .}.a:focus.{.color:.#161;.text-d |
| 240e00 | 65 63 6f 72 61 74 69 6f 6e 3a 20 6e 6f 6e 65 3b 20 70 61 64 64 69 6e 67 3a 20 31 70 78 20 32 70 | ecoration:.none;.padding:.1px.2p |
| 240e20 | 78 20 31 70 78 20 32 70 78 3b 20 62 6f 72 64 65 72 3a 20 6e 6f 6e 65 3b 20 7d 0a 00 00 00 00 00 | x.1px.2px;.border:.none;.}...... |
| 240e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 240fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 241000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 64 6f 63 2f 73 6c 69 6d 65 2d 73 6d 61 6c 6c 2e 70 64 66 00 00 | slime-2.31/doc/slime-small.pdf.. |
| 241020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 241040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 241060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 241080 | 30 30 31 36 33 35 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 37 30 32 00 20 30 00 00 00 | 0016357.00000000000.014702..0... |
| 2410a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2410c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2410e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 241100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 241120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 241140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 241160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 241180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2411a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2411c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2411e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 241200 | 25 50 44 46 2d 31 2e 33 0a 25 c7 ec 8f a2 0a 35 20 30 20 6f 62 6a 0a 3c 3c 2f 4c 65 6e 67 74 68 | %PDF-1.3.%.....5.0.obj.<</Length |
| 241220 | 20 36 20 30 20 52 2f 46 69 6c 74 65 72 20 2f 46 6c 61 74 65 44 65 63 6f 64 65 3e 3e 0a 73 74 72 | .6.0.R/Filter./FlateDecode>>.str |
| 241240 | 65 61 6d 0a 78 9c 2b 54 30 d0 33 54 30 00 41 28 9d 9c cb a5 1f 64 ae 90 5e cc 55 a8 60 64 6a 68 | eam.x.+T0.3T0.A(.....d..^.U.`djh |
| 241260 | a8 67 0a 16 36 34 30 36 d2 b3 04 b1 75 0d f4 0c 0c 0c 2c 4c 4d 4c 2c 8d 20 aa 2d 14 5c f2 b9 02 | .g..6406....u.....,LML,...-.\... |
| 241280 | 81 10 00 6a 10 0f b6 65 6e 64 73 74 72 65 61 6d 0a 65 6e 64 6f 62 6a 0a 36 20 30 20 6f 62 6a 0a | ...j...endstream.endobj.6.0.obj. |
| 2412a0 | 36 37 0a 65 6e 64 6f 62 6a 0a 34 20 30 20 6f 62 6a 0a 3c 3c 2f 54 79 70 65 2f 50 61 67 65 2f 4d | 67.endobj.4.0.obj.<</Type/Page/M |
| 2412c0 | 65 64 69 61 42 6f 78 20 5b 30 20 30 20 32 35 32 20 31 30 34 5d 0a 2f 50 61 72 65 6e 74 20 33 20 | ediaBox.[0.0.252.104]./Parent.3. |
| 2412e0 | 30 20 52 0a 2f 52 65 73 6f 75 72 63 65 73 3c 3c 2f 50 72 6f 63 53 65 74 5b 2f 50 44 46 20 2f 49 | 0.R./Resources<</ProcSet[/PDF./I |
| 241300 | 6d 61 67 65 43 5d 0a 2f 45 78 74 47 53 74 61 74 65 20 39 20 30 20 52 0a 2f 58 4f 62 6a 65 63 74 | mageC]./ExtGState.9.0.R./XObject |
| 241320 | 20 31 30 20 30 20 52 0a 3e 3e 0a 2f 43 6f 6e 74 65 6e 74 73 20 35 20 30 20 52 0a 3e 3e 0a 65 6e | .10.0.R.>>./Contents.5.0.R.>>.en |
| 241340 | 64 6f 62 6a 0a 33 20 30 20 6f 62 6a 0a 3c 3c 20 2f 54 79 70 65 20 2f 50 61 67 65 73 20 2f 4b 69 | dobj.3.0.obj.<<./Type./Pages./Ki |
| 241360 | 64 73 20 5b 0a 34 20 30 20 52 0a 5d 20 2f 43 6f 75 6e 74 20 31 0a 3e 3e 0a 65 6e 64 6f 62 6a 0a | ds.[.4.0.R.]./Count.1.>>.endobj. |
| 241380 | 31 20 30 20 6f 62 6a 0a 3c 3c 2f 54 79 70 65 20 2f 43 61 74 61 6c 6f 67 20 2f 50 61 67 65 73 20 | 1.0.obj.<</Type./Catalog./Pages. |
| 2413a0 | 33 20 30 20 52 0a 3e 3e 0a 65 6e 64 6f 62 6a 0a 37 20 30 20 6f 62 6a 0a 3c 3c 2f 54 79 70 65 2f | 3.0.R.>>.endobj.7.0.obj.<</Type/ |
| 2413c0 | 45 78 74 47 53 74 61 74 65 0a 2f 4f 50 4d 20 31 3e 3e 65 6e 64 6f 62 6a 0a 39 20 30 20 6f 62 6a | ExtGState./OPM.1>>endobj.9.0.obj |
| 2413e0 | 0a 3c 3c 2f 52 37 0a 37 20 30 20 52 3e 3e 0a 65 6e 64 6f 62 6a 0a 31 30 20 30 20 6f 62 6a 0a 3c | .<</R7.7.0.R>>.endobj.10.0.obj.< |
| 241400 | 3c 2f 52 38 0a 38 20 30 20 52 3e 3e 0a 65 6e 64 6f 62 6a 0a 38 20 30 20 6f 62 6a 0a 3c 3c 2f 53 | </R8.8.0.R>>.endobj.8.0.obj.<</S |
| 241420 | 75 62 74 79 70 65 2f 49 6d 61 67 65 0a 2f 43 6f 6c 6f 72 53 70 61 63 65 2f 44 65 76 69 63 65 52 | ubtype/Image./ColorSpace/DeviceR |
| 241440 | 47 42 0a 2f 57 69 64 74 68 20 32 34 38 0a 2f 48 65 69 67 68 74 20 31 30 32 0a 2f 42 69 74 73 50 | GB./Width.248./Height.102./BitsP |
| 241460 | 65 72 43 6f 6d 70 6f 6e 65 6e 74 20 38 0a 2f 46 69 6c 74 65 72 2f 44 43 54 44 65 63 6f 64 65 2f | erComponent.8./Filter/DCTDecode/ |
| 241480 | 4c 65 6e 67 74 68 20 36 31 38 36 3e 3e 73 74 72 65 61 6d 0a ff d8 ff ee 00 0e 41 64 6f 62 65 00 | Length.6186>>stream.......Adobe. |
| 2414a0 | 64 00 00 00 00 01 ff db 00 43 00 0e 0a 0b 0d 0b 09 0e 0d 0c 0d 10 0f 0e 11 16 24 17 16 14 14 16 | d........C................$..... |
| 2414c0 | 2c 20 21 1a 24 34 2e 37 36 33 2e 32 32 3a 41 53 46 3a 3d 4e 3e 32 32 48 62 49 4e 56 58 5d 5e 5d | ,.!.$4.763.22:ASF:=N>22HbINVX]^] |
| 2414e0 | 38 45 66 6d 65 5a 6c 53 5b 5d 59 ff db 00 43 01 0f 10 10 16 13 16 2a 17 17 2a 59 3b 32 3b 59 59 | 8EfmeZlS[]Y...C.......*..*Y;2;YY |
| 241500 | 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 | YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY |
| 241520 | 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 ff c0 00 11 08 00 66 00 f8 03 01 22 00 02 11 01 | YYYYYYYYYYYYYYYY......f....".... |
| 241540 | 03 11 01 ff c4 00 1f 00 00 01 05 01 01 01 01 01 01 00 00 00 00 00 00 00 00 01 02 03 04 05 06 07 | ................................ |
| 241560 | 08 09 0a 0b ff c4 00 b5 10 00 02 01 03 03 02 04 03 05 05 04 04 00 00 01 7d 01 02 03 00 04 11 05 | ........................}....... |
| 241580 | 12 21 31 41 06 13 51 61 07 22 71 14 32 81 91 a1 08 23 42 b1 c1 15 52 d1 f0 24 33 62 72 82 09 0a | .!1A..Qa."q.2....#B...R..$3br... |
| 2415a0 | 16 17 18 19 1a 25 26 27 28 29 2a 34 35 36 37 38 39 3a 43 44 45 46 47 48 49 4a 53 54 55 56 57 58 | .....%&'()*456789:CDEFGHIJSTUVWX |
| 2415c0 | 59 5a 63 64 65 66 67 68 69 6a 73 74 75 76 77 78 79 7a 83 84 85 86 87 88 89 8a 92 93 94 95 96 97 | YZcdefghijstuvwxyz.............. |
| 2415e0 | 98 99 9a a2 a3 a4 a5 a6 a7 a8 a9 aa b2 b3 b4 b5 b6 b7 b8 b9 ba c2 c3 c4 c5 c6 c7 c8 c9 ca d2 d3 | ................................ |
| 241600 | d4 d5 d6 d7 d8 d9 da e1 e2 e3 e4 e5 e6 e7 e8 e9 ea f1 f2 f3 f4 f5 f6 f7 f8 f9 fa ff c4 00 1f 01 | ................................ |
| 241620 | 00 03 01 01 01 01 01 01 01 01 01 00 00 00 00 00 00 01 02 03 04 05 06 07 08 09 0a 0b ff c4 00 b5 | ................................ |
| 241640 | 11 00 02 01 02 04 04 03 04 07 05 04 04 00 01 02 77 00 01 02 03 11 04 05 21 31 06 12 41 51 07 61 | ................w.......!1..AQ.a |
| 241660 | 71 13 22 32 81 08 14 42 91 a1 b1 c1 09 23 33 52 f0 15 62 72 d1 0a 16 24 34 e1 25 f1 17 18 19 1a | q."2...B.....#3R..br...$4.%..... |
| 241680 | 26 27 28 29 2a 35 36 37 38 39 3a 43 44 45 46 47 48 49 4a 53 54 55 56 57 58 59 5a 63 64 65 66 67 | &'()*56789:CDEFGHIJSTUVWXYZcdefg |
| 2416a0 | 68 69 6a 73 74 75 76 77 78 79 7a 82 83 84 85 86 87 88 89 8a 92 93 94 95 96 97 98 99 9a a2 a3 a4 | hijstuvwxyz..................... |
| 2416c0 | a5 a6 a7 a8 a9 aa b2 b3 b4 b5 b6 b7 b8 b9 ba c2 c3 c4 c5 c6 c7 c8 c9 ca d2 d3 d4 d5 d6 d7 d8 d9 | ................................ |
| 2416e0 | da e2 e3 e4 e5 e6 e7 e8 e9 ea f2 f3 f4 f5 f6 f7 f8 f9 fa ff da 00 0c 03 01 00 02 11 03 11 00 3f | ...............................? |
| 241700 | 00 f4 9a 28 a2 80 0a 28 a6 bb aa 2e 58 80 28 01 d4 55 16 d4 01 ff 00 53 1b 48 3d 7a 0f cc d4 62 | ...(...(....X.(..U.....S.H=z...b |
| 241720 | fe 7c ff 00 a9 53 ec 1c 66 95 d0 1a 54 55 24 d4 13 21 65 56 88 9e 3e 61 c7 e7 d2 ad 97 01 0b 0e | .|...S..f...TU$..!eV..>a........ |
| 241740 | 46 33 4c 07 51 58 ef 75 23 10 cd 2b 26 fe 54 28 1d 3b 66 af d9 cc d2 2b 2c 98 de 87 07 1d e9 29 | F3L.QX.u#..+&.T(.;f....+,......) |
| 241760 | 27 a0 ae 99 66 8a 28 a6 30 a2 a9 5c 5e 14 90 a4 4a a4 8e a5 8e 00 aa e6 f6 e3 fb d6 ff 00 f7 d1 | '...f.(.0..\^...J............... |
| 241780 | ff 00 0a 4e 49 6e 2b a4 6a d1 59 42 f6 e3 3d 6d cf fc 08 ff 00 85 3c 5f 4e 0f 30 ab 7f ba e3 fa | ...NIn+.j.YB..=m......<_N.0..... |
| 2417a0 | d2 e6 5d c2 e8 d2 a2 ab 5b dd 2c cc 50 a9 47 1d 8d 58 e9 54 31 68 ac c9 ef 5c b3 6c 71 1a 03 8d | ..].....[.,.P.G..X.T1h...\.lq... |
| 2417c0 | c4 67 26 a5 b4 ba 67 71 1c 84 1c 8c ab 01 8c d2 ba bd 85 75 b1 7a 8a 2b 3e ee ed 95 d9 23 60 a1 | .g&...gq...........u.z.+>....#`. |
| 2417e0 | 7e f3 1e 71 ed 4d bb 0c d0 a2 b2 ed af 18 3a ef 7d f1 b1 db 9c 60 83 5a 74 93 be c0 9d f6 0a 32 | ~..q.M........:.}....`.Zt......2 |
| 241800 | 3d 45 67 5f 4c de 71 8f 24 2a ae e3 83 82 6b 3f ce 8c 9c e6 52 3f b9 bc e3 fc 69 39 58 99 4e 31 | =Eg_L.q.$*....k?....R?....i9X.N1 |
| 241820 | dd 9b e6 54 1d 58 7e 74 9e 6c 67 f8 d7 f3 ac 45 78 bb 5b 6e ff 00 7b e6 fe 74 ad 24 58 e6 d5 47 | ...T.X~t.lg....Ex.[n..{..t.$X..G |
| 241840 | d1 71 53 ed 10 bd a4 7b 9b a1 81 e8 41 a5 ac 18 64 06 40 b0 97 8d bb 7c c4 8f c7 35 b1 6b 29 9a | .qS....{....A...d.@....|...5.k). |
| 241860 | dd 24 23 04 8a b5 24 ca 8c 94 b5 44 d4 51 45 31 85 14 51 40 0c 96 45 8a 36 76 38 00 66 b1 2e ae | .$#...$....D.QE1..Q@..E.6v8.f... |
| 241880 | 4b b6 e9 86 73 f7 63 ec 3d cf f8 56 86 a3 f3 79 51 ff 00 0b 37 3e f8 19 fe 95 90 19 5e ed bc c2 | K...s.c.=..V...yQ...7>......^... |
| 2418a0 | 33 d8 1a 89 3e 86 55 64 e2 92 5d 45 67 66 01 e6 94 46 ac 70 b9 38 cf b0 1d e9 86 4b 51 b7 fd 20 | 3...>.Ud..]Egf...F.p.8.....KQ... |
| 2418c0 | 82 d8 c1 28 d8 39 ce 3b 7b 1a c8 84 4e 9a ac 12 5f 24 81 c4 aa 58 b2 f1 80 47 4e d8 ad 37 b8 80 | ...(.9.;{...N..._$...X...GN..7.. |
| 2418e0 | 9d 3d 77 2e 54 db 06 1e 98 df 9a db ea d1 5d 41 51 8f 5d 4b 31 4b 18 52 c6 ea 27 88 0c b6 18 1e | .=w.T.........]AQ.]K1K.R..'..... |
| 241900 | 3b f1 5a 76 6d bf 4c 0f 82 15 d7 72 83 d4 03 d2 b9 ed 29 63 6d 3e e0 e0 13 e4 dc 7f 28 eb a2 b5 | ;.Zvm.L....r......)cm>......(... |
| 241920 | 38 d1 a0 ff 00 ae 0b ff 00 a0 8a 1d 25 4f 63 48 c5 45 59 19 52 7d db 6f f7 17 f9 56 a5 87 fa fb | 8...........%OcH.EY.R}.o...V.... |
| 241940 | 8f aa ff 00 e8 22 b2 df 95 b6 1d f6 2f f2 ad 4d 3f 99 ae 08 fe f0 ff 00 d0 45 73 c3 73 38 7c 52 | ....."....../..M?........Es.s8|R |
| 241960 | 2f d1 45 15 a9 a9 83 7d 26 cd 50 da 34 6e e2 55 12 29 4e a0 f3 9f e5 55 16 5b 79 56 2f 2d 66 1e | /.E....}&.P.4n.U.)N....U.[yV/-f. |
| 241980 | 76 76 12 a3 1c 1c 7a d6 8d d4 6c 3c 4d 65 21 1f 23 44 ca 0f b8 0d 9f e6 2b 3e cc 66 0d 28 7f b3 | vv....z...l<Me!.#D......+>.f.(.. |
| 2419a0 | 31 fc 98 1a b9 53 8d b9 bf ae bf e4 4c a1 19 6e 88 a3 86 61 2c 86 49 07 96 80 9e 07 20 0e b4 e4 | 1....S......L..n...a,.I......... |
| 2419c0 | bb b1 74 de b7 44 01 8c e5 18 63 3f 87 b5 4b 21 c5 b5 eb 0e 08 89 f1 f9 1a c5 88 0f ec b9 bf eb | ..t..D....c?..K!................ |
| 2419e0 | ac 7f c9 e8 a5 4d 56 4d cb c8 c2 95 28 b8 dd 9d 36 99 22 5c ce 8d 0b 6f 8e 30 c0 be 08 c9 e2 b4 | .....MVM....(...6."\...o.0...... |
| 241a00 | ef 24 f2 ad 64 7f 41 59 1e 16 ff 00 8f 36 ff 00 ae 8d fc 92 b4 35 33 98 92 3f ef b8 07 e9 9e 69 | .$..d.AY.....6.......53..?.....i |
| 241a20 | 4a 2a 0f 95 1d 29 5b 43 0f 52 93 ec f0 aa 9e a8 00 3f 5e f5 6a d6 4c 24 32 0f e0 70 09 f6 3f fd | J*...)[C.R.......?^.j.L$2..p..?. |
| 241a40 | 7c 56 37 88 e5 3e 59 0b d5 9b f9 55 fb 09 3c cb 06 20 ff 00 00 6f cb 9f e9 52 e1 6a 51 9f 99 c9 | |V7..>Y....U..<......o...R.jQ... |
| 241a60 | 07 fb cb f7 3a 82 70 99 f6 ae 7e e6 5f dc 3c 84 fd f7 2d f8 0e 3f a5 6a dc cf b7 4f dc bc b3 0c | ....:.p...~._.<...-..?.j...O.... |
| 241a80 | 0f 72 6b 9f d5 cb 08 7c 88 b2 58 28 41 fe 34 ad cd 25 13 6a ce d0 24 b1 93 cc b2 66 cf f0 07 fc | .rk....|..X(A.4..%.j..$....f.... |
| 241aa0 | b9 fe 95 d2 c2 db e2 56 f5 15 ca 68 39 30 24 52 02 0e 0a 30 ae 93 4d 7d f6 51 13 d7 1c d3 92 b4 | .......V...h90$R...0..M}.Q...... |
| 241ac0 | e4 bc c5 41 fb b6 29 df 7f c7 eb 8e c6 22 7f 51 59 c4 98 62 8d a2 0b be 49 96 32 58 67 00 9a d1 | ...A..)......".QY..b....I.2Xg... |
| 241ae0 | be ff 00 8f c7 3e 91 63 f3 23 fc 2b 36 77 58 ed ad dd 8e 00 ba 8c 93 f8 d4 2d 66 90 e4 93 a8 8a | .....>.c.#.+6wX..........-f..... |
| 241b00 | 31 5f 5e cd 0d cb b5 c1 5f 2d 03 28 55 51 ce e5 1e 9e f5 2e a9 75 79 65 a9 4d 0c 57 2d b1 76 e0 | 1_^....._-.(UQ.......uye.M.W-.v. |
| 241b20 | 32 83 d8 1e e3 de aa da 46 e6 1b c4 d8 db 8c 7b 47 19 c9 0c 0e 06 3a f4 ab 1a bc 37 37 7a a4 d2 | 2.......F......{G.....:....77z.. |
| 241b40 | c3 6d 31 46 db 82 54 8f e1 1e b5 df cb 4d 4a cd 2f ea c6 c4 97 97 b7 71 2b 20 68 c1 f3 a4 8b 78 | .m1F..T......MJ./......q+.h....x |
| 241b60 | 5c 36 17 1f e3 5d 5d b2 08 ed a3 55 e8 14 7f 2a e4 6f 63 96 49 a3 46 89 a3 f3 ae e4 2a 58 71 f3 | \6...]]....U...*.oc.I.F.....*Xq. |
| 241b80 | 15 c7 3f 81 ae c2 1f f5 31 ff 00 ba 2b 19 a8 a8 ae 51 0f a2 8a 2b 10 0a 28 a2 80 33 35 e2 d1 e9 | ..?.....1...+....Q...+..(..35... |
| 241ba0 | 8f 34 67 12 44 ca ca 7f e0 42 b2 12 4b 7b 97 01 8f 93 3e d0 e5 5b a7 20 1e 0f e2 2b 4f 5f b8 8d | .4g.D....B..K{....>..[.....+O_.. |
| 241bc0 | b4 c9 e1 53 ba 43 b7 e5 03 27 ef 0a cd d2 36 4b aa 49 d1 87 d8 d3 ff 00 41 4a d5 41 4a 17 ea bf | ...S.C...'....6K.I......AJ.AJ... |
| 241be0 | e0 13 28 29 2b 32 dc 62 e3 6f ee e4 0e be a0 e6 95 8d d0 18 65 dc 3d c5 73 76 10 c6 f7 d6 a1 94 | ..()+2.b.o..........e.=.sv...... |
| 241c00 | 10 66 50 7f 31 5a ed 68 00 b1 10 ef 46 65 b7 ce c2 41 c1 0f bb a7 d3 f4 a8 9e 17 95 ee 4f b3 b6 | .fP.1Z.h....Fe...A...........O.. |
| 241c20 | cd 8f 2b 03 ef 4d 82 dd dd 59 77 46 31 d7 af 1d 0f 6a d3 b6 90 8d 34 db be 37 c3 18 43 8e f8 1d | ..+..M...YwF1....j....4..7..C... |
| 241c40 | 6b 1e 07 7b 8b 04 96 61 89 91 8a 31 23 19 23 bd 5c 67 2b 1a 37 76 8d 94 fe 1d 3f 99 a8 bb 4f 95 | k..{...a...1#.#.\g+.7v....?...O. |
| 241c60 | 93 09 49 49 c2 43 1b ad bf fb 8b fc ab 53 4d fb d3 ff 00 be 6b 35 bf d7 42 07 4d a2 b4 b4 be 56 | ..II.C.......SM.....k5..B.M....V |
| 241c80 | 72 79 fd eb 7f 3a 88 6e c7 4f e2 91 7e 8a 28 ad 0d 44 2a 09 04 80 4a 9c 8c f6 35 8c 23 45 16 fb | ry...:.n.O..~.(..D*...J...5.#E.. |
| 241ca0 | 51 46 d9 a6 55 c0 e8 37 3f 03 f2 15 b5 59 32 46 d1 98 55 c6 09 9a 56 fc 09 62 3f 43 43 7e eb 03 | QF..U..7?....Y2F..U...V..b?CC~.. |
| 241cc0 | 3a 4f f8 f4 be ff 00 ae 2f ff 00 a0 9a cd b2 8d 5f 45 bf 66 19 28 62 65 f6 39 23 f9 13 5a 6c a5 | :O....../......._E.f.(be.9#..Zl. |
| 241ce0 | ad af 55 46 49 89 c0 fc 8d 52 b5 82 58 74 4d 4b cc 8d 94 13 18 04 8e 09 0e 41 c1 ef 5a e1 9f ba | ..UFI....R..XtMK.........A..Z... |
| 241d00 | fd 51 95 1f 84 dd f0 fa aa e9 96 c4 00 0b 07 27 03 a9 dd 8f e9 4e bf 93 37 4a 3b 46 a5 8f d7 a7 | .Q.............'.....N..7J;F.... |
| 241d20 | f5 a5 d0 90 a6 95 06 f0 55 93 7a 95 23 04 1d c7 fc 2a 9d cc 9b 84 d2 77 77 da 3e 83 ff 00 af 9a | ........U.z.#....*.....ww.>..... |
| 241d40 | ce b3 d5 97 37 ca 9b 28 ce a8 91 49 75 2e 36 2e 07 3e e7 1f d6 a7 b4 87 ec 93 f9 44 7c b9 c6 3d | ....7..(...Iu.6..>.........D|..= |
| 241d60 | aa 9e b4 76 d8 41 07 79 18 b9 fa 01 ff 00 d7 fd 2a c8 98 c9 65 6d 73 d4 94 19 fa 8e 0f ea 2a 5a | ...v.A.y........*...ems.......*Z |
| 241d80 | 93 a6 9f 7f e9 1c ce 9a 84 14 fa 96 d2 6d cb 1c 24 e7 c8 c9 6f c3 81 fa d5 49 48 5b 6b 9b a6 19 | .............m..$...o....IH[k... |
| 241da0 | 31 a1 2b c7 53 db f5 a6 9b 84 de ed 11 cb dc 90 c7 e8 06 3f cf d6 a7 96 13 34 42 cd 17 73 bc 4f | 1.+.S..............?.....4B..s.O |
| 241dc0 | 26 33 df 18 03 f5 a4 93 72 57 fe bb 97 75 56 6b b2 1b 18 54 92 29 53 a4 aa 1f f3 15 b1 a6 9c 2c | &3......rW...uVk...T.)S........, |
| 241de0 | b1 f4 da e7 03 d8 f2 3f 9d 62 41 ff 00 20 cb 56 ee aa 14 fb 7a 7e 98 ad 4b 17 c5 df b4 a8 0f e2 | .......?.bA....V....z~..K....... |
| 241e00 | 38 3f a6 29 2d 24 d1 54 d2 8c a5 14 32 f7 fe 3e 2e 0f 70 8a 3f 3c ff 00 85 67 59 b5 c8 79 0a 7d | 8?.)-$.T....2..>..p.?<...gY..y.} |
| 241e20 | dc f1 8a bd 76 7f 7d 75 f4 5f eb 54 a6 46 73 62 ab 23 a2 99 06 f0 a4 8d e3 72 8c 1f ce 85 ac 9c | ....v.}u._.T.Fsb.#.......r...... |
| 241e40 | 7b 8a 71 e6 a8 b5 2d 62 ed bd 6a 37 de bf eb 2e 11 0f bb 81 54 6e f4 e8 a1 d3 56 62 f2 48 f3 5b | {.q...-b..j7........Tn....Vb.H.[ |
| 241e60 | 87 6f 31 b3 83 ba 3e 9f 99 aa ba e4 31 c7 ab ce a8 a0 01 b7 00 7f ba 2b 68 e1 53 7b fe 05 7b 25 | .o1...>.....1..........+h.S{..{% |
| 241e80 | d5 b3 52 49 e2 51 1c 3e 72 cd 24 b3 22 a8 53 9c 10 c3 3c f6 c5 74 50 71 04 7f ee 8f e5 58 96 1a | ..RI.Q.>r.$.".S...<..tPq.....X.. |
| 241ea0 | 74 57 37 32 ca cc 57 ec f7 92 32 85 ee 72 a4 7e 1c 56 e4 3f ea 63 ff 00 74 52 71 50 56 46 89 24 | tW72..W...2..r.~.V.?.c..tRqPVF.$ |
| 241ec0 | ac 87 d1 45 15 23 0a 28 a2 80 39 f9 25 68 ed d5 d0 9c ee 6d df 5c d4 56 a0 ad f3 de 5b 80 de 6c | ...E.#.(..9.%h.....m.\.V....[..l |
| 241ee0 | 65 1e 3c e0 e7 8e 46 7e 95 14 8e d6 f7 1a a4 b8 f3 21 8a 45 26 3c ff 00 78 e3 23 d0 d3 a3 96 d6 | e.<...F~.........!.E&<..x.#..... |
| 241f00 | 47 da 92 3c 72 6d 0c 55 94 f0 08 07 a8 e3 b8 a1 c6 50 6d a4 65 25 35 2b ad 51 0c 76 52 24 f6 0f | G..<rm.U.........Pm.e%5+.Q.vR$.. |
| 241f20 | 1c 0e 3c a0 1a 4c ed 1f 30 39 eb 9e 7d 3e 82 ad 18 dd 7c 93 2c c2 35 8a 34 40 13 96 3b 43 0f a0 | ..<..L..09..}>....|.,.5.4@..;C.. |
| 241f40 | fb de f4 c1 3d b3 10 05 f2 12 4e 00 07 24 d0 64 b6 56 8c 0f 32 53 21 50 bb 57 00 ee ce 3a fd 0d | ....=.....N..$.d.V..2S!P.W...:.. |
| 241f60 | 12 a9 56 5a 58 1c a6 f6 43 09 69 64 58 e3 4d b1 0e 80 77 a9 1a 45 95 e7 8d 39 5b 78 7a fa b3 7f | ..VZX...C.idX.M...w..E...9[xz... |
| 241f80 | fa 85 45 14 cf 79 6b 33 22 88 23 58 a5 60 14 fc c4 a8 53 d7 fe 05 56 34 fb 36 68 2e 59 40 08 60 | ..E..yk3".#X.`....S...V4.6h.Y@.` |
| 241fa0 | 89 41 f5 3b 01 3f cc 55 aa 6d 26 e4 14 e9 b8 b6 db d4 96 52 3e de 32 71 cd 49 a7 5d 98 21 91 5a | .A.;.?.U.m&........R>.2q.I.].!.Z |
| 241fc0 | de 60 c6 57 6c 6c 3d d8 9e b5 4f 7c 77 c0 4d 1c 8a a7 ba 96 c1 07 d2 a4 3b 86 03 dc c6 bf 57 02 | .`.Wll=...O|w.M.........;.....W. |
| 241fe0 | b9 d5 e3 a7 52 62 e5 16 f4 34 1e fa 63 f7 62 54 f7 76 1f d3 35 01 bb 94 b0 dd 70 a0 9e ca b9 02 | ....Rb...4..c.bT.v..5.....p..... |
| 242000 | b3 9e e6 c9 3f d6 5e 2b 7f b9 96 fe 54 f9 26 48 ad de 78 ad dd c2 22 be 5c ed 04 31 c0 35 56 a8 | ....?.^+....T.&H..x...".\..1.5V. |
| 242020 | fa 15 7a 8f a5 8d 34 d4 64 25 e3 08 0c 91 9c 31 27 00 7a 54 33 cf 2b cb 1c 92 34 21 23 c9 21 58 | ..z...4.d%.....1'.zT3.+...4!#.!X |
| 242040 | 92 78 23 d3 de b3 6d 2e 59 ca c7 38 66 7b a2 65 05 07 42 09 5c 7d 30 a2 9c d7 16 8b 00 9b 6c ef | .x#...m.Y..8f{.e..B.\}0.......l. |
| 242060 | 19 05 81 0b d4 02 07 73 ea 45 54 a1 51 3e 5b 15 27 3f b2 85 86 74 76 9e 30 4a ef 52 bb 88 e0 64 | .......s.ET.Q>[.'?...tv.0J.R...d |
| 242080 | 75 f7 a9 64 8d a4 d3 de d0 de 2e d6 62 c4 f9 5e ad bb d6 ab cb 7b 6d 14 10 cd f6 69 ca 4b 9d a4 | u..d........b..^.....{m....i.K.. |
| 2420a0 | e0 1e 0e 0f 7a 6a 6a 16 cf 19 71 6d 2e 03 2a 75 1d 4e 71 fc 8d 35 0a 8b 58 2b 19 c2 35 22 ad a1 | ....zjj...qm..*u.Nq..5..X+..5".. |
| 2420c0 | b1 6d 70 61 85 e3 76 0c 18 bb ab 81 8c e4 92 7f 9d 51 97 ee 40 bf ec 82 7e a7 93 53 59 29 bd 42 | .mpa..v..........Q..@...~..SY).B |
| 2420e0 | c1 0a 22 a9 0a a4 e4 f2 14 e7 f5 aa c9 77 6d 2a ac ad 2e d6 8c 61 d0 83 90 40 e7 f9 1a 99 46 76 | .."..........wm*.....a...@....Fv |
| 242100 | d5 6a 55 48 b9 46 c2 44 db fc 55 6d 1f 68 a3 db 8f aa 93 fd 6a ae 90 fe 65 94 f0 1e b1 b6 f1 f4 | .jUH.F.D..Um.h......j...e....... |
| 242120 | 3f fe af d6 ae 5a c2 57 c4 31 4c f9 0f 24 8e 08 3d 80 8d 48 ff 00 d0 ab 3b ed 3f 63 d4 16 52 0b | ?....Z.W.1L..$..=..H....;.?c..R. |
| 242140 | 23 41 12 38 1d 70 63 5f f0 ae a7 0e 6a 7c ab 7b 23 49 46 f1 b0 fd 32 d4 ad e4 b9 c9 05 f0 be c3 | #A.8.pc_....j|.{#IF...2......... |
| 242160 | af f5 ad bd 34 89 af 84 eb ca b2 c8 aa 7d 95 94 7f 4a a0 b3 c4 d0 cb f6 37 66 91 a1 69 03 6d 23 | ....4........}...J......7f..i.m# |
| 242180 | 68 1c 13 cf 7a bd a1 21 8e d6 c1 4a 95 3e 4c a7 04 76 2e b8 ac f5 93 73 97 a7 e0 67 4a 0e 2b 5d | h...z..!...J.>L..v.....s...gJ.+] |
| 2421a0 | ca 70 8f f4 6f 2b d2 18 a5 1f 88 c1 fe 55 35 b4 9b 56 29 3f e7 9b e0 fd 0f 1f cf 15 1d ea 1d 3f | .p..o+.......U5..V)?...........? |
| 2421c0 | 51 b4 0d 96 89 ed d6 dc b0 1d 48 3d 71 f9 7e 74 82 48 22 5d 9e 6a 48 d3 10 88 a8 d9 c9 24 60 fe | Q.........H=q.~t.H"].jH......$`. |
| 2421e0 | 1d 6b 29 c5 f3 dd 75 07 17 ce a4 8b 57 7f f1 f1 72 3d 51 58 7e b5 51 c9 db 6b 22 ab 38 49 06 e0 | .k)...u.....W...r=QX~.Q..k".8I.. |
| 242200 | a0 9c 0d ca 73 fa 53 f5 a9 fe c3 7d 6b 23 02 c8 f1 94 90 0e b8 c8 e6 99 0b 46 df 35 b5 d4 6d 9e | ....s.S....}k#...........F.5..m. |
| 242220 | db b0 7f 2a 25 17 06 a6 12 ba 92 92 57 1b 7b 2b 4d a5 41 1c 50 cc ec b6 c1 08 58 c9 c1 dd 19 c7 | ...*%.......W.{+M.A.P.....X..... |
| 242240 | e8 6a 96 b0 93 dc ea 93 49 15 ad c3 23 6d c1 f2 db 1f 74 0f 4a d7 f2 ee cf f1 52 18 ee 54 7c cf | .j......I...#m....t.J.....R..T|. |
| 242260 | b4 7a 93 8a a8 e2 5c 76 41 ed 1f f2 b2 c6 91 2e c7 ba 59 15 a3 69 6e 1e 45 0c 31 90 71 5a 91 82 | .z....\vA.........Y..in.E.1.qZ.. |
| 242280 | b1 20 3d 40 00 d6 1c 72 28 92 28 4c aa f2 bb fc a1 4e 71 8e 4f e9 fc eb 78 74 a5 cc e5 ab 46 89 | ..=@...r(.(L.....Nq.O...xt....F. |
| 2422a0 | dd 5c 5a 28 a2 81 85 14 55 1b 8d 52 de da 76 8a 48 ef 19 97 19 31 d9 cd 22 f4 cf 0c aa 41 fc e8 | .\Z(....U..R..v.H....1.."....A.. |
| 2422c0 | 03 1e f2 26 16 9a d4 b9 1b 5a 54 50 3b e4 10 7f a8 a7 68 ea 1b 5b 70 c0 11 f6 44 eb fe ea 54 37 | ...&.....ZTP;.....h..[p...D...T7 |
| 2422e0 | 77 c9 26 9d a8 44 96 da 81 79 a7 de 83 ec 13 f2 3e 5f f6 3d 8d 3f 4d bb b7 82 e8 dc c9 16 a2 ae | w.&..D...y......>_.=.?M......... |
| 242300 | 63 58 b6 ff 00 67 ce 41 01 53 9f b9 ea 08 ae 9e 75 ca ff 00 ae c0 67 69 68 85 a3 62 a3 70 bb 84 | cX...g.A.S......u.....gih..b.p.. |
| 242320 | 03 8e 70 77 67 f9 0a db 89 14 c1 01 2a 09 58 ad 08 38 e8 77 91 58 f6 d2 2d b8 80 0b 5b fc ac d1 | ..pwg.......*.X..8.w.X..-...[... |
| 242340 | bc 84 58 cf 83 b5 9f 27 ee 7a 15 ff 00 39 ad 88 b5 2b 38 ee 18 0b 6b ff 00 24 45 1a 20 3a 7c e7 | ..X....'.z...9...+8...k..$E..:|. |
| 242360 | 95 2c 7f b9 db 22 9d 49 a6 f4 02 96 97 1b 1d 26 e6 40 3e 45 8a 65 27 dc aa 63 f9 1a d7 d2 39 b0 | .,...".I.......&.@>E.e'..c....9. |
| 242380 | 60 3f ba 9f fa 29 2b 17 4e bd 58 34 4b bb 79 2d 75 05 96 40 db 57 ec 33 9c e5 00 1f c1 eb 57 b4 | `?...)+.N.X4K.y-u..@.W.3......W. |
| 2423a0 | cd 52 1b 7b 6d 92 c1 a8 2b 61 38 fb 04 e7 a2 28 3f c1 ea 0d 45 49 27 70 33 ec a2 47 d3 ed b7 28 | .R.{m...+a8....(?...EI'p3..G...( |
| 2423c0 | 39 d4 54 7e 18 14 db 88 63 5d 6e cc 05 00 19 4f fe 8e 6a 9e 1b a8 16 d6 35 36 da 82 34 77 11 4a | 9.T~....c]n....O..j.....56..4w.J |
| 2423e0 | 15 6c 26 c1 c2 a0 62 7e 4f f7 a9 92 cf 03 de 41 71 e4 6a 5b a3 91 9b 1f 61 9b 18 f3 b7 0f e0 fe | .l&...b~O......Aq.j[....a....... |
| 242400 | eb 31 fc 05 5f 3a b8 cc 4c 0f 4a e9 ae bf e4 09 27 fd 7a 5b ff 00 33 59 f1 2d 87 d8 66 f3 2c 75 | .1.._:..L.J.....'.z[..3Y.-..f.,u |
| 242420 | 0f b4 ec fd df fa 15 c7 de d8 3f d9 c7 de cf ff 00 aa b4 7f b4 ad ff 00 b1 8c 3f 66 bf f3 cd b7 | ..........?...............?f.... |
| 242440 | 96 47 f6 7c f9 ce dc 63 3b 3d 4d 39 d5 8b b5 80 ad a6 29 fe d0 d2 98 83 b4 c7 20 07 1c 1e 5f fc | .G.|...c;=M9......)..........._. |
| 242460 | 45 31 ff 00 e4 5e 83 fe b8 c9 ff 00 a3 92 ae e9 5a 95 bc 1a 74 11 cf 6d 7e 24 8c b1 c1 d3 e7 38 | E1...^..........Z...t..m~$.....8 |
| 242480 | c9 3f ec 7a 1f d6 ab 69 d7 90 25 b5 ac 57 56 97 c5 52 39 15 d5 b4 f9 98 64 ba 91 fc 1e d5 2e a2 | .?.z...i..%..WV..R9.....d....... |
| 2424a0 | bd fb 7f c1 11 4a f7 fe 40 ba 67 fd b5 ff 00 d0 aa 1b 6f f8 f3 7f fa f8 8b f9 3d 58 9e e7 7f 87 | .....J..@.g.......o.......=X.... |
| 2424c0 | ad ad 56 d3 50 33 a4 85 99 7e c3 37 03 e6 ef b7 1d c5 49 63 3c 31 dc 2f 9d 63 7b e5 66 22 41 d3 | ..V.P3...~.7......Ic<1./.c{.f"A. |
| 2424e0 | e6 23 22 26 04 e3 67 f7 88 fe 75 a7 b4 8a 8b fe ba 8c da d0 54 fd 97 77 61 81 ff 00 8e 25 60 d9 | .#"&..g...u.........T..wa....%`. |
| 242500 | 81 e5 de f1 fc 4d ff 00 a2 e5 ad 9b 5d 5e de 37 b9 2f 06 a0 03 ca 59 7f e2 5f 3f 23 00 7f 73 da | .....M......]^.7./....Y.._?#..s. |
| 242520 | a8 e9 f7 56 b1 dc dc 34 f6 77 c2 36 11 95 1f d9 f3 e0 9d 84 37 01 3d cf 5f 5a c9 4d 2e 66 23 6e | ...V...4.w.6........7.=._Z.M.f#n |
| 242540 | de 2c ea 17 33 67 ee 39 5c 63 ae 52 33 ff 00 b2 d7 2d 75 6e 64 82 59 80 24 c4 96 f9 e7 80 0c 78 | .,..3g.9\c.R3....-und.Y.$......x |
| 242560 | fe 78 ae 82 2d 5a d2 39 26 6f 2f 50 3e 6b ee c7 f6 75 c7 1f 28 1f dc f6 ac 7b 5b b4 55 99 65 b4 | .x..-Z.9&o/P>k...u..(....{[.U.e. |
| 242580 | bf 2a e2 d8 60 d8 4c 41 0b 8d df c1 ec 69 53 9d b5 f4 01 fa 77 fa a3 ff 00 60 f9 3f f4 63 57 42 | .*..`.LA.....iS.....w....`.?.cWB |
| 2425a0 | 23 58 ae ed a3 41 84 48 5d 54 7a 00 52 b9 7b 2b 9f 2a 32 1e d3 50 07 ec 6f 17 fc 78 cd f7 8b 92 | #X...A.H]Tz.R.{+.*2..P..o..x.... |
| 2425c0 | 07 dd f4 35 b4 da c5 b1 bc 8a 41 0e a1 b5 63 75 27 fb 3e 7e a4 ae 3f 83 d8 d1 51 a6 f4 f3 01 da | ...5......A...cu'.>~..?...Q..... |
| 2425e0 | c2 96 bf d3 70 a4 81 26 4f 1d 06 e5 ac 0b 25 01 f4 f2 00 cf db 1b ff 00 69 d6 c5 e6 ab 04 b3 c2 | ....p..&O.....%.........i....... |
| 242600 | c9 06 a0 42 f5 ff 00 40 9f 8f 9d 0f f7 3d 14 d6 76 8d 73 1d bc 91 b5 cd a6 a0 a6 36 91 97 fd 06 | ...B...@.....=..v.s........6.... |
| 242620 | 73 82 42 01 d1 7d 03 55 42 69 43 fa f3 02 c7 8b 3f d7 5b 7f ba df d2 b2 74 cb 71 71 a9 da a6 17 | s.B..}.UBiC.....?.[.....t.qq.... |
| 242640 | ef 06 39 f4 1c 9f d0 55 df 10 dd 8b d9 60 36 d6 ba 83 85 04 1f f4 19 86 3f 34 a8 6c 66 5b 6d 71 | ..9....U.....`6.........?4.lf[mq |
| 242660 | 65 16 7a 82 db 23 3e d3 f6 19 ce 17 07 1f c3 9e e2 ae 33 4a 9d ae 31 d0 da 40 6f f5 64 31 2e d8 | e.z..#>...........3J..1..@o.d1.. |
| 242680 | e2 94 a8 c7 03 07 8a 66 b3 66 9f da 97 9e 5a aa ac 4a ac 47 b6 14 71 f8 9a 96 2b 85 4b 9d 46 63 | .......f.f....Z..J.G..q...+.K.Fc |
| 2426a0 | 6f a8 7e fd 26 54 1f 60 9b 9c 90 57 f8 7b f3 f9 52 5f dc 7d a2 ff 00 50 91 2d af f6 4b 12 84 63 | o.~.&T.`...W.{..R_.}...P.-..K..c |
| 2426c0 | 63 3f 24 14 38 fb 9f ec 9a 14 d7 35 ef fd 68 06 ac 71 a2 6a 5a 76 d5 03 f7 b7 3d 3e a6 b7 ab 9f | c?$.8......5..h..q.jZv....=>.... |
| 2426e0 | b7 d5 21 4b 84 66 b7 d4 02 8f 3f 27 ec 13 ff 00 14 80 8f e0 f4 ad 08 f5 8b 69 65 48 d6 2b e0 ce | ..!K.f....?'.............ieH.+.. |
| 242700 | 42 82 d6 33 a8 e7 d4 94 c0 1e e6 b9 a6 ef fd 79 88 d0 a2 8a 2a 00 2b 36 ff 00 56 fb 2d da da 41 | B..3...........y....*.+6..V.-..A |
| 242720 | 69 3d e5 cf 97 e6 b4 70 95 05 53 38 c9 2c 40 ea 0e 05 69 57 3d ae e9 97 3a 85 c9 1f d9 5a 65 ec | i=.....p..S8.,@...iW=...:....Ze. |
| 242740 | 7b 00 8a 6b 87 65 78 8f 7c e1 49 23 bf 04 50 06 e0 b8 8f 66 e7 75 8f 18 0c ac c3 2a 4e 30 0f bf | {..k.ex.|.I#..P....f.u.....*N0.. |
| 242760 | 22 99 0d ed ac f1 b4 90 dc c3 2c 6a 03 33 24 80 80 31 9c 92 3b 62 b9 84 f0 fe a5 0b 47 6e 4c 37 | ".........,j.3$..1..;b......GnL7 |
| 242780 | 50 bc f6 b3 4b 3c 92 90 df ba 08 18 6d da 73 9d 9e bd eb 27 4b f0 ed f6 a3 e1 eb 77 86 2b 7b 35 | P...K<......m.s....'K......w.+{5 |
| 2427a0 | 36 88 8a a8 fc dc 1d ea e4 bf cb 81 c2 e3 90 dd 4f 6a 00 ef 4d f5 a0 8d 64 37 50 79 6d c8 6f 30 | 6...............Oj..M...d7Pym.o0 |
| 2427c0 | 60 f3 8e bf 52 28 fb 6c 01 65 69 24 58 92 39 3c b2 d2 10 a0 9c 03 c1 fc 6b 99 d3 fc 28 ad 34 3f | `...R(.l.ei$X.9<........k...(.4? |
| 2427e0 | da 16 56 bf 66 48 66 4f 2b cd 69 18 33 95 f9 8b 10 39 c0 6e 46 31 91 8a 2e fc 3b 79 96 68 a2 b4 | ..V.fHfO+.i.3....9.nF1....;y.h.. |
| 242800 | b8 5f 3e 77 58 26 72 17 12 28 0a dd 0f 2b 83 c7 a1 3c d0 07 53 f6 88 3c e1 0f 9d 1f 9a 72 02 6e | ._>wX&r..(...+...<..S..<.....r.n |
| 242820 | 1b b8 19 3c 7d 2a 29 ef 63 82 fa d6 d5 95 8b dc ef da 47 41 b4 64 e6 b1 b4 2f 0c c3 60 ef 2d e4 | ...<}*).c.........GA.d.../..`.-. |
| 242840 | 71 4f 72 92 ab 45 71 ce fc 2c 4a 9c 9f ae ee 3d ea de b1 6d 7c f7 da 7d dd 84 50 cc f6 e6 40 c9 | qOr..Eq..,J....=...m|..}..P...@. |
| 242860 | 2c 85 07 cc b8 07 20 1e 94 01 a2 d7 70 a4 93 2c 8c 23 10 aa b3 bb 90 14 67 3d ff 00 0f d4 53 53 | ,...........p..,.#......g=....SS |
| 242880 | 50 b3 92 41 1a 5d db b3 b6 30 ab 22 92 73 d3 8c fb 57 3d 7d a2 5f dd 25 ec 93 c1 6b 3c b7 0f 0b | P..A.]...0.".s...W=}._.%...k<... |
| 2428a0 | ec 49 d9 02 94 52 09 04 a9 ef 8e a0 82 33 59 71 e8 97 93 6a 53 da 1b 5b 1f b4 0b 7b 53 2d ca 0d | .I...R.......3Yq...jS..[...{S-.. |
| 2428c0 | 82 12 19 c9 28 02 f2 4e de db 79 03 f0 00 ec 35 7b f6 d3 34 f9 6e c5 b4 97 2b 10 2e eb 1b 28 2a | ....(..N..y....5{..4.n...+....(* |
| 2428e0 | a0 12 5b 92 3a 63 b7 34 b6 da 82 49 69 14 d7 6a 2c 9a 41 91 1c d2 2e 71 9c 03 90 48 ee 3f 3a 8f | ..[.:c.4...Ii..j,.A....q...H.?:. |
| 242900 | 5e b6 bb bc d1 ee 6d 2c 84 06 4b 88 da 22 66 72 a1 55 94 82 78 07 27 9e 95 8b a8 f8 7a ef 54 8e | ^.....m,..K.."fr.U..x.'.....z.T. |
| 242920 | 36 bc 8a d0 cd 15 84 f0 46 15 cb 2a ca d8 08 dc a8 ed 9f a1 a0 0d f8 35 3b 3b 9b c9 ed 61 b8 8d | 6.......F..*...........5;;...a.. |
| 242940 | e7 83 1e 62 03 d3 fc f7 f4 a7 8b eb 43 17 9a 2e a0 31 f3 f3 f9 83 1c 75 e6 b0 66 f0 dc af 06 ae | ...b........C....1.....u..f..... |
| 242960 | b1 79 10 cb 79 0c 71 c7 22 8c 10 42 fc d9 e3 a1 3d 6a ae 9d e1 66 f3 ad 0d e5 95 aa c1 14 92 48 | .y..y.q."..B....=j...f.........H |
| 242980 | f1 b4 a6 52 e4 a0 50 4f ca 07 51 c0 00 01 8a 00 eb 0d c4 02 44 8c cd 1f 99 20 dc 8b b8 65 87 a8 | ...R..PO..Q.........D........e.. |
| 2429a0 | 1d ea bd e6 ab 63 65 6f 34 f7 17 51 2a 41 f7 f0 c0 90 7d 30 39 cf b5 73 b2 78 6a e6 2d 4d 7e c9 | .....ceo4..Q*A....}09..s.xj.-M~. |
| 2429c0 | 6f 6b e4 25 c4 32 c7 70 d2 1f 36 28 d1 02 79 60 15 3d 30 48 e7 9a 13 c3 97 4f a0 5d 69 f2 d8 e9 | ok.%.2.p..6(..y`.=0H.....O.]i... |
| 2429e0 | c9 3f d9 fc b4 b8 56 2c f3 3f 3f 3b 12 b9 19 eb df 92 68 03 a6 5b d8 1d c8 59 15 90 47 e6 99 01 | .?....V,.??;......h..[...Y..G... |
| 242a00 | 05 36 e7 1d 7f 03 f9 53 8d e5 aa c6 ae 6e 61 08 e3 2a c5 c6 08 ce 38 3f 52 2b 0b 57 d0 67 b9 b9 | .6.....S.....na..*....8?R+.W.g.. |
| 242a20 | 9d ed 16 dd 61 30 40 8b 0b 7c aa fb 25 67 28 70 38 52 08 15 9c fe 11 9e e2 39 5a 78 ad 43 bd bd | ....a0@..|..%g(p8R.......9Zx.C.. |
| 242a40 | d7 95 08 62 52 09 64 23 68 1c 74 03 3c e3 a9 e0 50 07 66 ee b1 a3 3b 9c 2a 8c 93 e8 2b 27 4c f1 | ...bR.d#h.t.<...P.f...;.*...+'L. |
| 242a60 | 15 9e a5 2d 9c 70 89 15 ee ad da e1 43 01 c0 0c 17 07 9e b9 cf e5 53 6a 76 97 37 1a 0c d6 76 ee | ...-.p......C.........Sjv.7...v. |
| 242a80 | ab 71 24 3e 56 f2 78 19 18 27 f2 cd 61 58 f8 56 7d 3b 51 fb 4d b4 8b b5 6e 0a c2 a0 ff 00 ab b7 | .q$>V.x..'..aX.V};Q.M...n....... |
| 242aa0 | 65 72 54 7b 87 72 7f 0a 00 ea 45 cc 05 65 22 78 88 8b 22 43 bc 7c 9f 5f 4a a9 67 ac 5a dc c3 34 | erT{.r....E..e"x.."C.|._J.g.Z..4 |
| 242ac0 | c6 48 e2 8a 29 da 00 ee e3 6b 91 dc 1f 7a e6 62 f0 b5 fa c0 bb a2 b2 0d 02 c2 86 25 73 b2 f3 63 | .H..)....k...z.b...........%s..c |
| 242ae0 | 16 2d 21 db c1 3f 43 ce 6a 3b 8f 0a 5f ce 88 ef 05 b6 c3 34 d2 35 9c 73 94 40 1f 6e 30 db 3b 60 | .-!..?C.j;.._......4.5.s.@.n0.;` |
| 242b00 | 83 80 0f a1 a0 0e e5 e4 48 e3 32 3b aa a2 8c 96 27 00 0f 5c d6 66 95 ad c1 a8 e9 ef 7c 76 5b db | ........H.2;....'..\.f......|v[. |
| 242b20 | 07 c2 33 ca bc af 62 7f ba 4f a1 e6 af 43 00 fb 0c 70 4f 1c 47 11 85 74 51 94 e9 c8 19 ed f5 ae | ..3...b..O...C...pO.G..tQ....... |
| 242b40 | 62 2f 0f dd 45 a1 e8 f1 a5 a5 a4 93 5a 82 67 b6 98 e1 24 62 9b 72 48 04 12 28 03 a9 37 30 09 44 | b/..E.......Z.g...$b.rH..(..70.D |
| 242b60 | 46 68 fc c6 38 09 bc 64 9c 67 a7 d3 9a a9 aa 6a 4d 60 d6 b1 c5 6b 2d d4 d7 2e 52 38 e3 65 5e 8a | Fh..8..d.g.....jM`...k-...R8.e^. |
| 242b80 | 58 f2 c4 0e 80 d6 4e 85 e1 68 ac 65 79 6f 92 2b 89 d0 c3 e5 4d ce e1 b2 25 5f c0 64 1e 3e 95 6b | X.....N..h.eyo.+....M...%_.d.>.k |
| 242ba0 | c4 9a 6c 9a 80 b1 74 b6 5b b5 b7 94 bb c0 64 f2 cb 82 8c bc 37 b1 20 d0 05 e8 35 15 31 af db 51 | ..l...t.[.....d.....7.....5.1..Q |
| 242bc0 | 6c 66 3f f2 c6 69 50 b6 33 80 78 24 73 53 9b bb 61 6e 2e 0d c4 22 03 d2 4d e3 6f e7 d2 b9 4b cf | lf?..iP.3.x$sS..an..."..M.o...K. |
| 242be0 | 0b b5 f4 51 49 f6 08 60 d9 1a 46 b6 f2 49 e6 14 fd f8 76 3b bd d4 1f cf 14 f9 bc 37 75 1a a2 c3 | ...QI..`..F..I....v;.......7u... |
| 242c00 | 6f 67 71 0c 77 17 0f 1d bc 8d b5 15 64 c6 d6 fb a4 65 79 e3 1d 0f 14 01 d5 35 c4 2b 22 46 d2 c6 | ogq.w.......d....ey......5.+"F.. |
| 242c20 | 1e 4e 51 4b 0c b7 d0 77 a2 2b 88 26 77 48 a6 8e 47 8f 87 55 60 4a fd 7d 2b 98 d3 34 2b fb 2b 8b | .NQK...w.+.&wH..G..U`J.}+..4+.+. |
| 242c40 | 73 35 a5 85 d6 d8 ad d3 cd 95 c9 68 3c b5 00 84 1b 7b 90 58 10 47 24 d5 bf 0c 69 17 3a 64 97 3e | s5.........h<....{.X.G$...i.:d.> |
| 242c60 | 75 bd b4 10 b0 51 1a 46 fe 63 0c 67 3f 3e d0 76 f3 c0 39 23 9e 68 03 a1 a2 8a 28 00 a2 8a 28 00 | u....Q.F.c.g?>.v..9#.h....(...(. |
| 242c80 | a2 8a 28 00 a2 8a 28 00 a2 8a 28 00 a2 8a 28 00 a2 8a 28 00 a2 8a 28 00 a2 8a 28 00 a2 8a 28 00 | ..(...(...(...(...(...(...(...(. |
| 242ca0 | a2 8a 28 00 a2 8a 28 00 a2 8a 28 00 a2 8a 28 00 a2 8a 28 00 a2 8a 28 00 a2 8a 28 03 ff d9 0a 65 | ..(...(...(...(...(...(...(....e |
| 242cc0 | 6e 64 73 74 72 65 61 6d 0a 65 6e 64 6f 62 6a 0a 32 20 30 20 6f 62 6a 0a 3c 3c 2f 50 72 6f 64 75 | ndstream.endobj.2.0.obj.<</Produ |
| 242ce0 | 63 65 72 28 45 53 50 20 47 68 6f 73 74 73 63 72 69 70 74 20 38 31 35 2e 30 32 29 0a 2f 43 72 65 | cer(ESP.Ghostscript.815.02)./Cre |
| 242d00 | 61 74 69 6f 6e 44 61 74 65 28 44 3a 32 30 30 36 31 31 31 34 31 38 35 30 33 34 29 0a 2f 4d 6f 64 | ationDate(D:20061114185034)./Mod |
| 242d20 | 44 61 74 65 28 44 3a 32 30 30 36 31 31 31 34 31 38 35 30 33 34 29 0a 2f 43 72 65 61 74 6f 72 28 | Date(D:20061114185034)./Creator( |
| 242d40 | 47 49 4d 50 20 50 6f 73 74 53 63 72 69 70 74 20 66 69 6c 65 20 70 6c 75 67 69 6e 20 56 20 31 2e | GIMP.PostScript.file.plugin.V.1. |
| 242d60 | 31 37 20 62 79 20 50 65 74 65 72 20 4b 69 72 63 68 67 65 73 73 6e 65 72 29 0a 2f 54 69 74 6c 65 | 17.by.Peter.Kirchgessner)./Title |
| 242d80 | 28 73 6c 69 6d 65 2d 73 6d 61 6c 6c 2e 65 70 73 29 3e 3e 65 6e 64 6f 62 6a 0a 78 72 65 66 0a 30 | (slime-small.eps)>>endobj.xref.0 |
| 242da0 | 20 31 31 0a 30 30 30 30 30 30 30 30 30 30 20 36 35 35 33 35 20 66 20 0a 30 30 30 30 30 30 30 33 | .11.0000000000.65535.f..00000003 |
| 242dc0 | 38 34 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 36 38 36 34 20 30 30 30 30 30 20 6e 20 0a | 84.00000.n..0000006864.00000.n.. |
| 242de0 | 30 30 30 30 30 30 30 33 32 35 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 30 31 37 30 20 30 | 0000000325.00000.n..0000000170.0 |
| 242e00 | 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 30 30 31 35 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 | 0000.n..0000000015.00000.n..0000 |
| 242e20 | 30 30 30 31 35 32 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 30 34 33 32 20 30 30 30 30 30 | 000152.00000.n..0000000432.00000 |
| 242e40 | 20 6e 20 0a 30 30 30 30 30 30 30 35 33 32 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 30 34 | .n..0000000532.00000.n..00000004 |
| 242e60 | 37 33 20 30 30 30 30 30 20 6e 20 0a 30 30 30 30 30 30 30 35 30 32 20 30 30 30 30 30 20 6e 20 0a | 73.00000.n..0000000502.00000.n.. |
| 242e80 | 74 72 61 69 6c 65 72 0a 3c 3c 20 2f 53 69 7a 65 20 31 31 20 2f 52 6f 6f 74 20 31 20 30 20 52 20 | trailer.<<./Size.11./Root.1.0.R. |
| 242ea0 | 2f 49 6e 66 6f 20 32 20 30 20 52 0a 2f 49 44 20 5b 28 db ee 69 39 4a 49 c2 b3 7d 69 1a 96 08 15 | /Info.2.0.R./ID.[(..i9JI..}i.... |
| 242ec0 | 6a db 29 28 db ee 69 39 4a 49 c2 b3 7d 69 1a 96 08 15 6a db 29 5d 0a 3e 3e 0a 73 74 61 72 74 78 | j.)(..i9JI..}i....j.)].>>.startx |
| 242ee0 | 72 65 66 0a 37 30 36 36 0a 25 25 45 4f 46 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ref.7066.%%EOF.................. |
| 242f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 242f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 242f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 242f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 242f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 242fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 242fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 242fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 243000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 64 6f 63 2f 73 6c 69 6d 65 2e 74 65 78 69 00 00 00 00 00 00 00 | slime-2.31/doc/slime.texi....... |
| 243020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 243040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 243060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 243080 | 30 33 33 37 34 32 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 37 37 32 00 20 30 00 00 00 | 0337421.00000000000.013772..0... |
| 2430a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2430c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2430e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 243100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 243120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 243140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 243160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 243180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2431a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2431c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2431e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 243200 | 5c 69 6e 70 75 74 20 74 65 78 69 6e 66 6f 0a 40 63 20 25 2a 2a 73 74 61 72 74 20 6f 66 20 68 65 | \input.texinfo.@c.%**start.of.he |
| 243220 | 61 64 65 72 0a 40 73 65 74 66 69 6c 65 6e 61 6d 65 20 73 6c 69 6d 65 2e 69 6e 66 6f 0a 0a 40 64 | ader.@setfilename.slime.info..@d |
| 243240 | 6f 63 75 6d 65 6e 74 65 6e 63 6f 64 69 6e 67 20 55 54 46 2d 38 0a 40 63 6f 64 65 71 75 6f 74 65 | ocumentencoding.UTF-8.@codequote |
| 243260 | 75 6e 64 69 72 65 63 74 65 64 20 6f 6e 0a 40 63 6f 64 65 71 75 6f 74 65 62 61 63 6b 74 69 63 6b | undirected.on.@codequotebacktick |
| 243280 | 20 6f 6e 0a 0a 40 64 69 72 63 61 74 65 67 6f 72 79 20 45 6d 61 63 73 0a 40 64 69 72 65 6e 74 72 | .on..@dircategory.Emacs.@direntr |
| 2432a0 | 79 0a 2a 20 53 4c 49 4d 45 3a 20 28 73 6c 69 6d 65 29 2e 20 20 20 20 53 75 70 65 72 69 6f 72 20 | y.*.SLIME:.(slime).....Superior. |
| 2432c0 | 4c 69 73 70 20 49 6e 74 65 72 61 63 74 69 6f 6e 20 4d 6f 64 65 20 66 6f 72 20 45 6d 61 63 73 2e | Lisp.Interaction.Mode.for.Emacs. |
| 2432e0 | 0a 40 65 6e 64 20 64 69 72 65 6e 74 72 79 0a 40 63 20 25 2a 2a 65 6e 64 20 6f 66 20 68 65 61 64 | .@end.direntry.@c.%**end.of.head |
| 243300 | 65 72 0a 0a 40 73 65 74 20 45 44 49 54 49 4f 4e 20 32 2e 33 30 0a 40 73 65 74 20 55 50 44 41 54 | er..@set.EDITION.2.30.@set.UPDAT |
| 243320 | 45 44 20 40 74 6f 64 61 79 7b 7d 0a 40 73 65 74 20 54 49 54 4c 45 20 53 4c 49 4d 45 20 55 73 65 | ED.@today{}.@set.TITLE.SLIME.Use |
| 243340 | 72 20 4d 61 6e 75 61 6c 0a 40 73 65 74 74 69 74 6c 65 20 40 76 61 6c 75 65 7b 54 49 54 4c 45 7d | r.Manual.@settitle.@value{TITLE} |
| 243360 | 2c 20 76 65 72 73 69 6f 6e 20 40 76 61 6c 75 65 7b 45 44 49 54 49 4f 4e 7d 0a 0a 40 63 6f 70 79 | ,.version.@value{EDITION}..@copy |
| 243380 | 69 6e 67 0a 57 72 69 74 74 65 6e 20 62 79 20 4c 75 6b 65 20 47 6f 72 72 69 65 20 61 6e 64 20 6f | ing.Written.by.Luke.Gorrie.and.o |
| 2433a0 | 74 68 65 72 73 2e 0a 0a 54 68 69 73 20 66 69 6c 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 | thers...This.file.has.been.place |
| 2433c0 | 64 20 69 6e 20 74 68 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2e 0a 40 65 6e 64 20 63 6f 70 | d.in.the.public.domain..@end.cop |
| 2433e0 | 79 69 6e 67 0a 0a 40 74 69 74 6c 65 70 61 67 65 0a 40 74 69 74 6c 65 20 40 76 61 6c 75 65 7b 54 | ying..@titlepage.@title.@value{T |
| 243400 | 49 54 4c 45 7d 0a 40 74 69 74 6c 65 66 6f 6e 74 7b 76 65 72 73 69 6f 6e 20 40 76 61 6c 75 65 7b | ITLE}.@titlefont{version.@value{ |
| 243420 | 45 44 49 54 49 4f 4e 7d 7d 0a 40 73 70 20 32 0a 40 63 65 6e 74 65 72 20 40 69 6d 61 67 65 7b 73 | EDITION}}.@sp.2.@center.@image{s |
| 243440 | 6c 69 6d 65 2d 73 6d 61 6c 6c 7d 0a 40 73 70 20 34 0a 40 73 75 62 74 69 74 6c 65 20 43 6f 6d 70 | lime-small}.@sp.4.@subtitle.Comp |
| 243460 | 69 6c 65 64 3a 20 40 76 61 6c 75 65 7b 55 50 44 41 54 45 44 7d 0a 0a 40 70 61 67 65 0a 40 69 6e | iled:.@value{UPDATED}..@page.@in |
| 243480 | 73 65 72 74 63 6f 70 79 69 6e 67 0a 0a 40 65 6e 64 20 74 69 74 6c 65 70 61 67 65 0a 0a 40 63 20 | sertcopying..@end.titlepage..@c. |
| 2434a0 | 4d 61 63 72 6f 73 0a 0a 40 6d 61 63 72 6f 20 53 4c 49 4d 45 0a 40 61 63 72 6f 6e 79 6d 7b 53 4c | Macros..@macro.SLIME.@acronym{SL |
| 2434c0 | 49 4d 45 7d 0a 40 65 6e 64 20 6d 61 63 72 6f 0a 0a 40 6d 61 63 72 6f 20 53 4c 44 42 0a 40 61 63 | IME}.@end.macro..@macro.SLDB.@ac |
| 2434e0 | 72 6f 6e 79 6d 7b 53 4c 44 42 7d 0a 40 65 6e 64 20 6d 61 63 72 6f 0a 0a 40 6d 61 63 72 6f 20 52 | ronym{SLDB}.@end.macro..@macro.R |
| 243500 | 45 50 4c 0a 40 61 63 72 6f 6e 79 6d 7b 52 45 50 4c 7d 0a 40 65 6e 64 20 6d 61 63 72 6f 0a 0a 40 | EPL.@acronym{REPL}.@end.macro..@ |
| 243520 | 6d 61 63 72 6f 20 47 69 74 0a 40 61 63 72 6f 6e 79 6d 7b 47 69 74 7d 0a 40 65 6e 64 20 6d 61 63 | macro.Git.@acronym{Git}.@end.mac |
| 243540 | 72 6f 0a 0a 40 6d 61 63 72 6f 20 6b 62 64 69 74 65 6d 7b 6b 65 79 2c 20 63 6f 6d 6d 61 6e 64 7d | ro..@macro.kbditem{key,.command} |
| 243560 | 0a 40 69 74 65 6d 20 5c 6b 65 79 5c 0a 40 69 74 65 6d 78 20 4d 2d 78 20 5c 63 6f 6d 6d 61 6e 64 | .@item.\key\.@itemx.M-x.\command |
| 243580 | 5c 0a 40 6b 69 6e 64 65 78 20 5c 6b 65 79 5c 0a 40 66 69 6e 64 65 78 20 5c 63 6f 6d 6d 61 6e 64 | \.@kindex.\key\.@findex.\command |
| 2435a0 | 5c 0a 40 63 0a 40 65 6e 64 20 6d 61 63 72 6f 0a 0a 40 6d 61 63 72 6f 20 6b 62 64 69 74 65 6d 70 | \.@c.@end.macro..@macro.kbditemp |
| 2435c0 | 61 69 72 7b 6b 65 79 31 2c 20 6b 65 79 32 2c 20 63 6f 6d 6d 61 6e 64 31 2c 20 63 6f 6d 6d 61 6e | air{key1,.key2,.command1,.comman |
| 2435e0 | 64 32 7d 0a 40 69 74 65 6d 20 5c 6b 65 79 31 5c 2c 20 4d 2d 78 20 5c 63 6f 6d 6d 61 6e 64 31 5c | d2}.@item.\key1\,.M-x.\command1\ |
| 243600 | 0a 40 69 74 65 6d 78 20 5c 6b 65 79 32 5c 2c 20 4d 2d 78 20 5c 63 6f 6d 6d 61 6e 64 32 5c 0a 40 | .@itemx.\key2\,.M-x.\command2\.@ |
| 243620 | 6b 69 6e 64 65 78 20 5c 6b 65 79 31 5c 0a 40 6b 69 6e 64 65 78 20 5c 6b 65 79 32 5c 0a 40 66 69 | kindex.\key1\.@kindex.\key2\.@fi |
| 243640 | 6e 64 65 78 20 5c 63 6f 6d 6d 61 6e 64 31 5c 0a 40 66 69 6e 64 65 78 20 5c 63 6f 6d 6d 61 6e 64 | ndex.\command1\.@findex.\command |
| 243660 | 32 5c 0a 40 63 0a 40 65 6e 64 20 6d 61 63 72 6f 0a 0a 40 6d 61 63 72 6f 20 63 6d 64 69 74 65 6d | 2\.@c.@end.macro..@macro.cmditem |
| 243680 | 7b 63 6f 6d 6d 61 6e 64 7d 0a 40 69 74 65 6d 20 4d 2d 78 20 5c 63 6f 6d 6d 61 6e 64 5c 0a 40 66 | {command}.@item.M-x.\command\.@f |
| 2436a0 | 69 6e 64 65 78 20 5c 63 6f 6d 6d 61 6e 64 5c 0a 40 63 0a 40 65 6e 64 20 6d 61 63 72 6f 0a 0a 40 | index.\command\.@c.@end.macro..@ |
| 2436c0 | 6d 61 63 72 6f 20 6b 62 64 61 6e 63 68 6f 72 63 7b 6b 65 79 2c 20 63 6f 6d 6d 61 6e 64 2c 20 63 | macro.kbdanchorc{key,.command,.c |
| 2436e0 | 6f 6d 6d 65 6e 74 7d 0a 40 61 6e 63 68 6f 72 7b 5c 63 6f 6d 6d 61 6e 64 5c 7d 0a 40 69 74 65 6d | omment}.@anchor{\command\}.@item |
| 243700 | 20 5c 6b 65 79 5c 0a 40 63 6f 64 65 7b 5c 63 6f 6d 6d 61 6e 64 5c 7d 0a 40 69 7b 5c 63 6f 6d 6d | .\key\.@code{\command\}.@i{\comm |
| 243720 | 65 6e 74 5c 7d 40 2a 0a 40 65 6e 64 20 6d 61 63 72 6f 0a 0a 40 6d 61 63 72 6f 20 66 63 6e 69 6e | ent\}@*.@end.macro..@macro.fcnin |
| 243740 | 64 65 78 7b 6e 61 6d 65 7d 0a 40 69 74 65 6d 20 5c 6e 61 6d 65 5c 0a 40 78 72 65 66 7b 5c 6e 61 | dex{name}.@item.\name\.@xref{\na |
| 243760 | 6d 65 5c 7d 2e 0a 40 65 6e 64 20 6d 61 63 72 6f 0a 0a 40 63 20 4d 65 72 67 65 20 74 68 65 20 76 | me\}..@end.macro..@c.Merge.the.v |
| 243780 | 61 72 69 61 62 6c 65 20 61 6e 64 20 63 6f 6e 63 65 70 74 20 69 6e 64 69 63 65 73 20 62 65 63 61 | ariable.and.concept.indices.beca |
| 2437a0 | 75 73 65 20 62 6f 74 68 20 61 72 65 20 72 61 74 68 65 72 20 73 68 6f 72 74 0a 40 73 79 6e 69 6e | use.both.are.rather.short.@synin |
| 2437c0 | 64 65 78 20 63 70 20 76 72 0a 0a 0a 40 63 20 40 73 65 74 63 68 61 70 74 65 72 6e 65 77 70 61 67 | dex.cp.vr...@c.@setchapternewpag |
| 2437e0 | 65 20 6f 66 66 0a 40 63 20 40 73 68 6f 72 74 63 6f 6e 74 65 6e 74 73 0a 40 63 6f 6e 74 65 6e 74 | e.off.@c.@shortcontents.@content |
| 243800 | 73 0a 0a 40 69 66 6e 6f 74 74 65 78 0a 40 6e 6f 64 65 20 54 6f 70 0a 40 74 6f 70 20 53 4c 49 4d | s..@ifnottex.@node.Top.@top.SLIM |
| 243820 | 45 0a 0a 40 53 4c 49 4d 45 7b 7d 20 69 73 20 74 68 65 20 60 60 53 75 70 65 72 69 6f 72 20 4c 69 | E..@SLIME{}.is.the.``Superior.Li |
| 243840 | 73 70 20 49 6e 74 65 72 61 63 74 69 6f 6e 20 4d 6f 64 65 20 66 6f 72 20 45 6d 61 63 73 27 27 2e | sp.Interaction.Mode.for.Emacs''. |
| 243860 | 20 54 68 69 73 20 69 73 0a 74 68 65 20 6d 61 6e 75 61 6c 20 66 6f 72 20 76 65 72 73 69 6f 6e 20 | .This.is.the.manual.for.version. |
| 243880 | 40 76 61 6c 75 65 7b 45 44 49 54 49 4f 4e 7d 2e 20 28 4c 61 73 74 20 75 70 64 61 74 65 64 20 40 | @value{EDITION}..(Last.updated.@ |
| 2438a0 | 76 61 6c 75 65 7b 55 50 44 41 54 45 44 7d 29 0a 0a 40 69 6e 73 65 72 74 63 6f 70 79 69 6e 67 0a | value{UPDATED})..@insertcopying. |
| 2438c0 | 40 65 6e 64 20 69 66 6e 6f 74 74 65 78 0a 0a 40 6d 65 6e 75 0a 2a 20 49 6e 74 72 6f 64 75 63 74 | @end.ifnottex..@menu.*.Introduct |
| 2438e0 | 69 6f 6e 3a 3a 0a 2a 20 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 3a 3a 0a 2a 20 53 4c 49 4d | ion::.*.Getting.started::.*.SLIM |
| 243900 | 45 20 6d 6f 64 65 3a 3a 0a 2a 20 44 65 62 75 67 67 65 72 3a 3a 0a 2a 20 4d 69 73 63 3a 3a 0a 2a | E.mode::.*.Debugger::.*.Misc::.* |
| 243920 | 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 3a 3a 0a 2a 20 54 69 70 73 20 61 6e 64 20 54 72 69 63 | .Customization::.*.Tips.and.Tric |
| 243940 | 6b 73 3a 3a 0a 2a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 3a 3a 0a 2a 20 | ks::.*.Contributed.Packages::.*. |
| 243960 | 43 72 65 64 69 74 73 3a 3a 0a 2a 20 4b 65 79 20 49 6e 64 65 78 3a 3a 0a 2a 20 43 6f 6d 6d 61 6e | Credits::.*.Key.Index::.*.Comman |
| 243980 | 64 20 49 6e 64 65 78 3a 3a 0a 2a 20 56 61 72 69 61 62 6c 65 20 49 6e 64 65 78 3a 3a 0a 0a 40 64 | d.Index::.*.Variable.Index::..@d |
| 2439a0 | 65 74 61 69 6c 6d 65 6e 75 0a 20 2d 2d 2d 20 54 68 65 20 44 65 74 61 69 6c 65 64 20 4e 6f 64 65 | etailmenu..---.The.Detailed.Node |
| 2439c0 | 20 4c 69 73 74 69 6e 67 20 2d 2d 2d 0a 0a 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 0a 0a 2a | .Listing.---..Getting.started..* |
| 2439e0 | 20 50 6c 61 74 66 6f 72 6d 73 3a 3a 0a 2a 20 44 6f 77 6e 6c 6f 61 64 69 6e 67 3a 3a 0a 2a 20 49 | .Platforms::.*.Downloading::.*.I |
| 243a00 | 6e 73 74 61 6c 6c 61 74 69 6f 6e 3a 3a 0a 2a 20 52 75 6e 6e 69 6e 67 3a 3a 0a 2a 20 53 65 74 75 | nstallation::.*.Running::.*.Setu |
| 243a20 | 70 20 54 75 6e 69 6e 67 3a 3a 0a 0a 44 6f 77 6e 6c 6f 61 64 69 6e 67 20 40 53 4c 49 4d 45 7b 7d | p.Tuning::..Downloading.@SLIME{} |
| 243a40 | 0a 0a 2a 20 47 69 74 3a 3a 0a 2a 20 47 69 74 20 49 6e 63 61 6e 74 61 74 69 6f 6e 73 3a 3a 0a 0a | ..*.Git::.*.Git.Incantations::.. |
| 243a60 | 53 65 74 75 70 20 54 75 6e 69 6e 67 0a 0a 2a 20 42 61 73 69 63 20 63 75 73 74 6f 6d 69 7a 61 74 | Setup.Tuning..*.Basic.customizat |
| 243a80 | 69 6f 6e 3a 3a 0a 2a 20 4d 75 6c 74 69 70 6c 65 20 4c 69 73 70 73 3a 3a 0a 2a 20 4c 6f 61 64 69 | ion::.*.Multiple.Lisps::.*.Loadi |
| 243aa0 | 6e 67 20 53 77 61 6e 6b 20 66 61 73 74 65 72 3a 3a 0a 0a 55 73 69 6e 67 20 40 53 4c 49 4d 45 7b | ng.Swank.faster::..Using.@SLIME{ |
| 243ac0 | 7d 20 6d 6f 64 65 0a 0a 2a 20 55 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 | }.mode..*.User-interface.convent |
| 243ae0 | 69 6f 6e 73 3a 3a 0a 2a 20 45 76 61 6c 75 61 74 69 6f 6e 3a 3a 0a 2a 20 43 6f 6d 70 69 6c 61 74 | ions::.*.Evaluation::.*.Compilat |
| 243b00 | 69 6f 6e 3a 3a 0a 2a 20 43 6f 6d 70 6c 65 74 69 6f 6e 3a 3a 0a 2a 20 46 69 6e 64 69 6e 67 20 64 | ion::.*.Completion::.*.Finding.d |
| 243b20 | 65 66 69 6e 69 74 69 6f 6e 73 3a 3a 0a 2a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 3a 0a 2a | efinitions::.*.Documentation::.* |
| 243b40 | 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 3a 3a 0a 2a 20 4d 61 63 72 6f 2d 65 78 70 61 6e | .Cross-reference::.*.Macro-expan |
| 243b60 | 73 69 6f 6e 3a 3a 0a 2a 20 44 69 73 61 73 73 65 6d 62 6c 79 3a 3a 0a 2a 20 52 65 63 6f 76 65 72 | sion::.*.Disassembly::.*.Recover |
| 243b80 | 79 3a 3a 0a 2a 20 49 6e 73 70 65 63 74 6f 72 3a 3a 0a 2a 20 50 72 6f 66 69 6c 69 6e 67 3a 3a 0a | y::.*.Inspector::.*.Profiling::. |
| 243ba0 | 2a 20 4f 74 68 65 72 3a 3a 0a 2a 20 53 65 6d 61 6e 74 69 63 20 69 6e 64 65 6e 74 61 74 69 6f 6e | *.Other::.*.Semantic.indentation |
| 243bc0 | 3a 3a 0a 2a 20 52 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 3a 3a 0a 0a 55 73 65 72 | ::.*.Reader.conditionals::..User |
| 243be0 | 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 0a 0a 2a 20 54 65 6d 70 6f 72 | -interface.conventions..*.Tempor |
| 243c00 | 61 72 79 20 62 75 66 66 65 72 73 3a 3a 0a 2a 20 49 6e 66 65 72 69 6f 72 2d 6c 69 73 70 3a 3a 0a | ary.buffers::.*.Inferior-lisp::. |
| 243c20 | 2a 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 3a 3a 0a 2a 20 4b 65 79 20 62 69 6e 64 69 6e 67 | *.Multithreading::.*.Key.binding |
| 243c40 | 73 3a 3a 0a 0a 53 4c 44 42 3a 20 74 68 65 20 40 53 4c 49 4d 45 7b 7d 20 64 65 62 75 67 67 65 72 | s::..SLDB:.the.@SLIME{}.debugger |
| 243c60 | 0a 0a 2a 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 3a 3a 0a 2a 20 52 65 73 74 61 72 74 | ..*.Examining.frames::.*.Restart |
| 243c80 | 73 3a 3a 0a 2a 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 3a 3a 0a 2a 20 53 74 65 70 70 | s::.*.Frame.Navigation::.*.Stepp |
| 243ca0 | 69 6e 67 3a 3a 0a 2a 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 3a 3a 0a 0a 4d 69 73 63 0a 0a 2a | ing::.*.Miscellaneous::..Misc..* |
| 243cc0 | 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 | .slime-selector::.*.slime-macroe |
| 243ce0 | 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 3a 3a 0a 2a 20 4d 75 6c 74 69 70 6c 65 | xpansion-minor-mode::.*.Multiple |
| 243d00 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 3a 3a 0a 0a 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 0a 2a | .connections::..Customization..* |
| 243d20 | 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 3a 3a 0a 2a 20 4c 69 | .Emacs-side.customization::.*.Li |
| 243d40 | 73 70 2d 73 69 64 65 3a 3a 0a 0a 45 6d 61 63 73 2d 73 69 64 65 0a 0a 2a 20 48 6f 6f 6b 73 3a 3a | sp-side::..Emacs-side..*.Hooks:: |
| 243d60 | 0a 0a 4c 69 73 70 2d 73 69 64 65 20 28 53 77 61 6e 6b 29 0a 0a 2a 20 43 6f 6d 6d 75 6e 69 63 61 | ..Lisp-side.(Swank)..*.Communica |
| 243d80 | 74 69 6f 6e 20 73 74 79 6c 65 3a 3a 0a 2a 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c | tion.style::.*.Other.configurabl |
| 243da0 | 65 73 3a 3a 0a 0a 54 69 70 73 20 61 6e 64 20 54 72 69 63 6b 73 0a 0a 2a 20 43 6f 6e 6e 65 63 74 | es::..Tips.and.Tricks..*.Connect |
| 243dc0 | 69 6e 67 20 74 6f 20 61 20 72 65 6d 6f 74 65 20 6c 69 73 70 3a 3a 0a 2a 20 47 6c 6f 62 61 6c 20 | ing.to.a.remote.lisp::.*.Global. |
| 243de0 | 49 4f 20 52 65 64 69 72 65 63 74 69 6f 6e 3a 3a 0a 2a 20 41 75 74 6f 2d 53 4c 49 4d 45 3a 3a 0a | IO.Redirection::.*.Auto-SLIME::. |
| 243e00 | 0a 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 61 20 72 65 6d 6f 74 65 20 6c 69 73 70 0a 0a 2a 20 | .Connecting.to.a.remote.lisp..*. |
| 243e20 | 53 65 74 74 69 6e 67 20 75 70 20 74 68 65 20 6c 69 73 70 20 69 6d 61 67 65 3a 3a 0a 2a 20 53 65 | Setting.up.the.lisp.image::.*.Se |
| 243e40 | 74 74 69 6e 67 20 75 70 20 45 6d 61 63 73 3a 3a 0a 2a 20 53 65 74 74 69 6e 67 20 75 70 20 70 61 | tting.up.Emacs::.*.Setting.up.pa |
| 243e60 | 74 68 6e 61 6d 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 3a 3a 0a 0a 43 6f 6e 74 72 69 62 75 74 | thname.translations::..Contribut |
| 243e80 | 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 2a 20 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 3a | ed.Packages..*.Loading.Contribs: |
| 243ea0 | 3a 0a 2a 20 52 45 50 4c 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 3a 3a 0a 2a 20 69 6e 66 | :.*.REPL::.*.slime-mrepl::.*.inf |
| 243ec0 | 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 3a 3a 0a 2a 20 43 6f 6d 70 6f 75 6e 64 20 43 6f | erior-slime-mode::.*.Compound.Co |
| 243ee0 | 6d 70 6c 65 74 69 6f 6e 3a 3a 0a 2a 20 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 3a 3a 0a | mpletion::.*.Fuzzy.Completion::. |
| 243f00 | 2a 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 3a 3a 0a 2a 20 41 53 44 46 3a 3a 0a | *.slime-autodoc-mode::.*.ASDF::. |
| 243f20 | 2a 20 42 61 6e 6e 65 72 3a 3a 0a 2a 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 3a 3a 0a | *.Banner::.*.Editing.Commands::. |
| 243f40 | 2a 20 46 61 6e 63 79 20 49 6e 73 70 65 63 74 6f 72 3a 3a 0a 2a 20 50 72 65 73 65 6e 74 61 74 69 | *.Fancy.Inspector::.*.Presentati |
| 243f60 | 6f 6e 73 3a 3a 0a 2a 20 54 79 70 65 6f 75 74 20 66 72 61 6d 65 73 3a 3a 0a 2a 20 54 52 41 4d 50 | ons::.*.Typeout.frames::.*.TRAMP |
| 243f80 | 3a 3a 0a 2a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 4c 69 6e 6b 73 3a 3a 0a 2a 20 58 72 65 | ::.*.Documentation.Links::.*.Xre |
| 243fa0 | 66 20 61 6e 64 20 43 6c 61 73 73 20 42 72 6f 77 73 65 72 3a 3a 0a 2a 20 48 69 67 68 6c 69 67 68 | f.and.Class.Browser::.*.Highligh |
| 243fc0 | 74 20 45 64 69 74 73 3a 3a 0a 2a 20 53 63 72 61 74 63 68 20 42 75 66 66 65 72 3a 3a 0a 2a 20 53 | t.Edits::.*.Scratch.Buffer::.*.S |
| 243fe0 | 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 73 70 72 6f | LIME.Trace.Dialog::.*.slime-spro |
| 244000 | 66 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 66 61 6e 63 79 3a 3a 0a 2a 20 51 75 69 63 6b 6c 69 73 70 3a | f::.*.slime-fancy::.*.Quicklisp: |
| 244020 | 3a 0a 0a 52 45 50 4c 3a 20 74 68 65 20 60 60 74 6f 70 20 6c 65 76 65 6c 27 27 0a 0a 2a 20 52 45 | :..REPL:.the.``top.level''..*.RE |
| 244040 | 50 4c 20 63 6f 6d 6d 61 6e 64 73 3a 3a 0a 2a 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e | PL.commands::.*.Input.Navigation |
| 244060 | 3a 3a 0a 2a 20 53 68 6f 72 74 63 75 74 73 3a 3a 0a 0a 40 65 6e 64 20 64 65 74 61 69 6c 6d 65 6e | ::.*.Shortcuts::..@end.detailmen |
| 244080 | 75 0a 40 65 6e 64 20 6d 65 6e 75 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | u.@end.menu..@c.---------------- |
| 2440a0 | 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 49 6e 74 72 6f 64 75 63 74 69 6f 6e 0a 40 63 68 61 70 | -------.@node.Introduction.@chap |
| 2440c0 | 74 65 72 20 49 6e 74 72 6f 64 75 63 74 69 6f 6e 0a 0a 40 53 4c 49 4d 45 7b 7d 20 69 73 20 74 68 | ter.Introduction..@SLIME{}.is.th |
| 2440e0 | 65 20 60 60 53 75 70 65 72 69 6f 72 20 4c 69 73 70 20 49 6e 74 65 72 61 63 74 69 6f 6e 20 4d 6f | e.``Superior.Lisp.Interaction.Mo |
| 244100 | 64 65 20 66 6f 72 20 45 6d 61 63 73 2e 27 27 0a 0a 40 53 4c 49 4d 45 7b 7d 20 65 78 74 65 6e 64 | de.for.Emacs.''..@SLIME{}.extend |
| 244120 | 73 20 45 6d 61 63 73 20 77 69 74 68 20 73 75 70 70 6f 72 74 20 66 6f 72 20 69 6e 74 65 72 61 63 | s.Emacs.with.support.for.interac |
| 244140 | 74 69 76 65 20 70 72 6f 67 72 61 6d 6d 69 6e 67 20 69 6e 0a 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2e | tive.programming.in.Common.Lisp. |
| 244160 | 20 54 68 65 20 66 65 61 74 75 72 65 73 20 61 72 65 20 63 65 6e 74 65 72 65 64 20 61 72 6f 75 6e | .The.features.are.centered.aroun |
| 244180 | 64 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 6d 6f 64 65 7d 2c 20 61 6e 0a 45 6d 61 63 73 20 6d 69 | d.@code{slime-mode},.an.Emacs.mi |
| 2441a0 | 6e 6f 72 2d 6d 6f 64 65 20 74 68 61 74 20 63 6f 6d 70 6c 65 6d 65 6e 74 73 20 74 68 65 20 73 74 | nor-mode.that.complements.the.st |
| 2441c0 | 61 6e 64 61 72 64 20 40 63 6f 64 65 7b 6c 69 73 70 2d 6d 6f 64 65 7d 2e 20 57 68 69 6c 65 0a 40 | andard.@code{lisp-mode}..While.@ |
| 2441e0 | 63 6f 64 65 7b 6c 69 73 70 2d 6d 6f 64 65 7d 20 73 75 70 70 6f 72 74 73 20 65 64 69 74 69 6e 67 | code{lisp-mode}.supports.editing |
| 244200 | 20 4c 69 73 70 20 73 6f 75 72 63 65 20 66 69 6c 65 73 2c 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d | .Lisp.source.files,.@code{slime- |
| 244220 | 6d 6f 64 65 7d 0a 61 64 64 73 20 73 75 70 70 6f 72 74 20 66 6f 72 20 69 6e 74 65 72 61 63 74 69 | mode}.adds.support.for.interacti |
| 244240 | 6e 67 20 77 69 74 68 20 61 20 72 75 6e 6e 69 6e 67 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 70 72 | ng.with.a.running.Common.Lisp.pr |
| 244260 | 6f 63 65 73 73 20 66 6f 72 0a 63 6f 6d 70 69 6c 61 74 69 6f 6e 2c 20 64 65 62 75 67 67 69 6e 67 | ocess.for.compilation,.debugging |
| 244280 | 2c 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 6f 6b 75 70 2c 20 61 6e 64 20 73 6f 20 6f | ,.documentation.lookup,.and.so.o |
| 2442a0 | 6e 2e 0a 0a 54 68 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 6d 6f 64 65 7d 20 70 72 6f 67 72 61 | n...The.@code{slime-mode}.progra |
| 2442c0 | 6d 6d 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 65 78 | mming.environment.follows.the.ex |
| 2442e0 | 61 6d 70 6c 65 20 6f 66 0a 45 6d 61 63 73 27 73 20 6e 61 74 69 76 65 20 45 6d 61 63 73 20 4c 69 | ample.of.Emacs's.native.Emacs.Li |
| 244300 | 73 70 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 2e 20 57 65 20 68 61 76 65 20 61 6c 73 6f 20 69 6e 63 | sp.environment..We.have.also.inc |
| 244320 | 6c 75 64 65 64 20 67 6f 6f 64 0a 69 64 65 61 73 20 66 72 6f 6d 20 73 69 6d 69 6c 61 72 20 73 79 | luded.good.ideas.from.similar.sy |
| 244340 | 73 74 65 6d 73 20 28 73 75 63 68 20 61 73 20 40 61 63 72 6f 6e 79 6d 7b 49 4c 49 53 50 7d 29 20 | stems.(such.as.@acronym{ILISP}). |
| 244360 | 61 6e 64 20 73 6f 6d 65 20 6e 65 77 0a 69 64 65 61 73 20 6f 66 20 6f 75 72 20 6f 77 6e 2e 0a 0a | and.some.new.ideas.of.our.own... |
| 244380 | 40 53 4c 49 4d 45 7b 7d 20 69 73 20 63 6f 6e 73 74 72 75 63 74 65 64 20 66 72 6f 6d 20 74 77 6f | @SLIME{}.is.constructed.from.two |
| 2443a0 | 20 70 61 72 74 73 3a 20 61 20 75 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 77 72 69 74 74 65 6e | .parts:.a.user-interface.written |
| 2443c0 | 20 69 6e 0a 45 6d 61 63 73 20 4c 69 73 70 2c 20 61 6e 64 20 61 20 73 75 70 70 6f 72 74 69 6e 67 | .in.Emacs.Lisp,.and.a.supporting |
| 2443e0 | 20 73 65 72 76 65 72 20 70 72 6f 67 72 61 6d 20 77 72 69 74 74 65 6e 20 69 6e 20 43 6f 6d 6d 6f | .server.program.written.in.Commo |
| 244400 | 6e 0a 4c 69 73 70 2e 20 54 68 65 20 74 77 6f 20 73 69 64 65 73 20 61 72 65 20 63 6f 6e 6e 65 63 | n.Lisp..The.two.sides.are.connec |
| 244420 | 74 65 64 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 61 20 73 6f 63 6b 65 74 20 61 6e 64 0a 63 | ted.together.with.a.socket.and.c |
| 244440 | 6f 6d 6d 75 6e 69 63 61 74 65 20 75 73 69 6e 67 20 61 6e 20 40 61 63 72 6f 6e 79 6d 7b 52 50 43 | ommunicate.using.an.@acronym{RPC |
| 244460 | 7d 2d 6c 69 6b 65 20 70 72 6f 74 6f 63 6f 6c 2e 0a 0a 54 68 65 20 4c 69 73 70 20 73 65 72 76 65 | }-like.protocol...The.Lisp.serve |
| 244480 | 72 20 69 73 20 70 72 69 6d 61 72 69 6c 79 20 77 72 69 74 74 65 6e 20 69 6e 20 70 6f 72 74 61 62 | r.is.primarily.written.in.portab |
| 2444a0 | 6c 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2e 20 54 68 65 0a 72 65 71 75 69 72 65 64 20 69 6d 70 | le.Common.Lisp..The.required.imp |
| 2444c0 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 69 66 69 63 20 66 75 6e 63 74 69 6f 6e 61 6c 69 | lementation-specific.functionali |
| 2444e0 | 74 79 20 69 73 20 73 70 65 63 69 66 69 65 64 20 62 79 20 61 0a 77 65 6c 6c 2d 64 65 66 69 6e 65 | ty.is.specified.by.a.well-define |
| 244500 | 64 20 69 6e 74 65 72 66 61 63 65 20 61 6e 64 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 73 65 70 61 | d.interface.and.implemented.sepa |
| 244520 | 72 61 74 65 6c 79 20 66 6f 72 20 65 61 63 68 20 4c 69 73 70 0a 69 6d 70 6c 65 6d 65 6e 74 61 74 | rately.for.each.Lisp.implementat |
| 244540 | 69 6f 6e 2e 20 54 68 69 73 20 6d 61 6b 65 73 20 40 53 4c 49 4d 45 7b 7d 20 72 65 61 64 69 6c 79 | ion..This.makes.@SLIME{}.readily |
| 244560 | 20 70 6f 72 74 61 62 6c 65 2e 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | .portable...@c.----------------- |
| 244580 | 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 0a 40 63 68 | ------.@node.Getting.started.@ch |
| 2445a0 | 61 70 74 65 72 20 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 0a 0a 54 68 69 73 20 63 68 61 70 | apter.Getting.started..This.chap |
| 2445c0 | 74 65 72 20 74 65 6c 6c 73 20 79 6f 75 20 68 6f 77 20 74 6f 20 67 65 74 20 40 53 4c 49 4d 45 7b | ter.tells.you.how.to.get.@SLIME{ |
| 2445e0 | 7d 20 75 70 20 61 6e 64 20 72 75 6e 6e 69 6e 67 2e 0a 0a 40 6d 65 6e 75 0a 2a 20 50 6c 61 74 66 | }.up.and.running...@menu.*.Platf |
| 244600 | 6f 72 6d 73 3a 3a 0a 2a 20 44 6f 77 6e 6c 6f 61 64 69 6e 67 3a 3a 0a 2a 20 49 6e 73 74 61 6c 6c | orms::.*.Downloading::.*.Install |
| 244620 | 61 74 69 6f 6e 3a 3a 0a 2a 20 52 75 6e 6e 69 6e 67 3a 3a 0a 2a 20 53 65 74 75 70 20 54 75 6e 69 | ation::.*.Running::.*.Setup.Tuni |
| 244640 | 6e 67 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ng::.@end.menu..@c.------------- |
| 244660 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 50 6c 61 74 66 6f 72 6d 73 0a 40 73 65 63 74 | ----------.@node.Platforms.@sect |
| 244680 | 69 6f 6e 20 53 75 70 70 6f 72 74 65 64 20 50 6c 61 74 66 6f 72 6d 73 0a 0a 40 53 4c 49 4d 45 7b | ion.Supported.Platforms..@SLIME{ |
| 2446a0 | 7d 20 73 75 70 70 6f 72 74 73 20 61 20 77 69 64 65 20 72 61 6e 67 65 20 6f 66 20 6f 70 65 72 61 | }.supports.a.wide.range.of.opera |
| 2446c0 | 74 69 6e 67 20 73 79 73 74 65 6d 73 20 61 6e 64 20 4c 69 73 70 0a 69 6d 70 6c 65 6d 65 6e 74 61 | ting.systems.and.Lisp.implementa |
| 2446e0 | 74 69 6f 6e 73 2e 20 40 53 4c 49 4d 45 7b 7d 20 72 75 6e 73 20 6f 6e 20 55 6e 69 78 20 73 79 73 | tions..@SLIME{}.runs.on.Unix.sys |
| 244700 | 74 65 6d 73 2c 20 4d 61 63 20 4f 53 58 2c 20 61 6e 64 20 4d 69 63 72 6f 73 6f 66 74 0a 57 69 6e | tems,.Mac.OSX,.and.Microsoft.Win |
| 244720 | 64 6f 77 73 2e 20 47 4e 55 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 32 34 2e 33 20 61 6e | dows..GNU.Emacs.versions.24.3.an |
| 244740 | 64 20 61 62 6f 76 65 20 61 72 65 20 73 75 70 70 6f 72 74 65 64 2e 20 40 65 6d 70 68 7b 58 45 6d | d.above.are.supported..@emph{XEm |
| 244760 | 61 63 73 20 69 73 0a 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 61 6e 79 6d 6f 72 65 7d 2e 0a 0a | acs.is.not.supported.anymore}... |
| 244780 | 54 68 65 20 73 75 70 70 6f 72 74 65 64 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | The.supported.Lisp.implementatio |
| 2447a0 | 6e 73 2c 20 72 6f 75 67 68 6c 79 20 6f 72 64 65 72 65 64 20 66 72 6f 6d 20 74 68 65 0a 62 65 73 | ns,.roughly.ordered.from.the.bes |
| 2447c0 | 74 2d 73 75 70 70 6f 72 74 65 64 2c 20 61 72 65 3a 0a 0a 40 69 74 65 6d 69 7a 65 20 40 62 75 6c | t-supported,.are:..@itemize.@bul |
| 2447e0 | 6c 65 74 0a 40 69 74 65 6d 0a 43 4d 55 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 40 61 63 72 6f | let.@item.CMU.Common.Lisp.(@acro |
| 244800 | 6e 79 6d 7b 43 4d 55 43 4c 7d 29 2c 20 31 39 64 20 6f 72 20 6e 65 77 65 72 0a 40 69 74 65 6d 0a | nym{CMUCL}),.19d.or.newer.@item. |
| 244820 | 53 74 65 65 6c 20 42 61 6e 6b 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 40 61 63 72 6f 6e 79 6d | Steel.Bank.Common.Lisp.(@acronym |
| 244840 | 7b 53 42 43 4c 7d 29 2c 20 31 2e 30 20 6f 72 20 6e 65 77 65 72 0a 40 69 74 65 6d 0a 43 6c 6f 7a | {SBCL}),.1.0.or.newer.@item.Cloz |
| 244860 | 75 72 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 40 61 63 72 6f 6e 79 6d 7b 43 43 4c 7d 29 2c | ure.Common.Lisp.(@acronym{CCL}), |
| 244880 | 20 76 65 72 73 69 6f 6e 20 31 2e 33 20 6f 72 20 6e 65 77 65 72 0a 40 69 74 65 6d 0a 4c 69 73 70 | .version.1.3.or.newer.@item.Lisp |
| 2448a0 | 57 6f 72 6b 73 2c 20 76 65 72 73 69 6f 6e 20 34 2e 33 20 6f 72 20 6e 65 77 65 72 0a 40 69 74 65 | Works,.version.4.3.or.newer.@ite |
| 2448c0 | 6d 0a 41 6c 6c 65 67 72 6f 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 40 61 63 72 6f 6e 79 6d 7b | m.Allegro.Common.Lisp.(@acronym{ |
| 2448e0 | 41 43 4c 7d 29 2c 20 76 65 72 73 69 6f 6e 20 36 20 6f 72 20 6e 65 77 65 72 0a 40 69 74 65 6d 0a | ACL}),.version.6.or.newer.@item. |
| 244900 | 40 61 63 72 6f 6e 79 6d 7b 43 4c 49 53 50 7d 2c 20 76 65 72 73 69 6f 6e 20 32 2e 33 35 20 6f 72 | @acronym{CLISP},.version.2.35.or |
| 244920 | 20 6e 65 77 65 72 0a 40 69 74 65 6d 0a 41 72 6d 65 64 20 42 65 61 72 20 43 6f 6d 6d 6f 6e 20 4c | .newer.@item.Armed.Bear.Common.L |
| 244940 | 69 73 70 20 28 40 61 63 72 6f 6e 79 6d 7b 41 42 43 4c 7d 29 0a 40 69 74 65 6d 0a 43 6f 72 6d 61 | isp.(@acronym{ABCL}).@item.Corma |
| 244960 | 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2c 20 76 65 72 73 69 6f 6e 20 32 2e 35 31 20 6f 72 20 6e | n.Common.Lisp,.version.2.51.or.n |
| 244980 | 65 77 65 72 20 77 69 74 68 20 74 68 65 0a 70 61 74 63 68 65 73 20 66 72 6f 6d 20 40 75 72 6c 7b | ewer.with.the.patches.from.@url{ |
| 2449a0 | 68 74 74 70 3a 2f 2f 77 77 77 2e 67 72 75 6d 62 6c 65 73 6d 75 72 66 2e 6f 72 67 2f 6c 69 73 70 | http://www.grumblesmurf.org/lisp |
| 2449c0 | 2f 63 6f 72 6d 61 6e 2d 70 61 74 63 68 65 73 7d 29 0a 40 69 74 65 6d 0a 53 63 69 65 6e 65 65 72 | /corman-patches}).@item.Scieneer |
| 2449e0 | 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 40 61 63 72 6f 6e 79 6d 7b 53 43 4c 7d 29 2c 20 76 65 | .Common.Lisp.(@acronym{SCL}),.ve |
| 244a00 | 72 73 69 6f 6e 20 31 2e 32 2e 37 20 6f 72 20 6e 65 77 65 72 0a 40 69 74 65 6d 0a 45 6d 62 65 64 | rsion.1.2.7.or.newer.@item.Embed |
| 244a20 | 64 65 64 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 40 61 63 72 6f 6e 79 6d 7b 45 43 4c 7d 29 0a | ded.Common.Lisp.(@acronym{ECL}). |
| 244a40 | 40 65 6e 64 20 69 74 65 6d 69 7a 65 0a 0a 4d 6f 73 74 20 66 65 61 74 75 72 65 73 20 77 6f 72 6b | @end.itemize..Most.features.work |
| 244a60 | 20 75 6e 69 66 6f 72 6d 6c 79 20 61 63 72 6f 73 73 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | .uniformly.across.implementation |
| 244a80 | 73 2c 20 62 75 74 20 73 6f 6d 65 20 61 72 65 0a 70 72 6f 6e 65 20 74 6f 20 76 61 72 69 61 74 69 | s,.but.some.are.prone.to.variati |
| 244aa0 | 6f 6e 2e 20 54 68 65 73 65 20 69 6e 63 6c 75 64 65 20 74 68 65 20 70 72 65 63 69 73 69 6f 6e 20 | on..These.include.the.precision. |
| 244ac0 | 6f 66 20 70 6c 61 63 69 6e 67 0a 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 20 61 6e 6e 6f 74 61 74 | of.placing.compiler-note.annotat |
| 244ae0 | 69 6f 6e 73 2c 20 40 61 63 72 6f 6e 79 6d 7b 58 52 45 46 7d 20 73 75 70 70 6f 72 74 2c 20 61 6e | ions,.@acronym{XREF}.support,.an |
| 244b00 | 64 20 66 61 6e 63 79 20 64 65 62 75 67 67 65 72 0a 63 6f 6d 6d 61 6e 64 73 20 28 6c 69 6b 65 20 | d.fancy.debugger.commands.(like. |
| 244b20 | 60 60 72 65 73 74 61 72 74 20 66 72 61 6d 65 27 27 29 2e 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d | ``restart.frame'')...@c.-------- |
| 244b40 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 44 6f 77 6e 6c 6f 61 64 69 6e | ---------------.@node.Downloadin |
| 244b60 | 67 0a 40 73 65 63 74 69 6f 6e 20 44 6f 77 6e 6c 6f 61 64 69 6e 67 20 53 4c 49 4d 45 0a 0a 59 6f | g.@section.Downloading.SLIME..Yo |
| 244b80 | 75 20 63 61 6e 20 63 68 6f 6f 73 65 20 62 65 74 77 65 65 6e 20 75 73 69 6e 67 20 61 20 72 65 6c | u.can.choose.between.using.a.rel |
| 244ba0 | 65 61 73 65 64 20 76 65 72 73 69 6f 6e 20 6f 66 20 40 53 4c 49 4d 45 7b 7d 20 6f 72 0a 61 63 63 | eased.version.of.@SLIME{}.or.acc |
| 244bc0 | 65 73 73 69 6e 67 20 6f 75 72 20 40 47 69 74 7b 7d 20 72 65 70 6f 73 69 74 6f 72 79 20 64 69 72 | essing.our.@Git{}.repository.dir |
| 244be0 | 65 63 74 6c 79 2e 20 59 6f 75 20 63 61 6e 20 64 6f 77 6e 6c 6f 61 64 20 74 68 65 20 6c 61 74 65 | ectly..You.can.download.the.late |
| 244c00 | 73 74 0a 72 65 6c 65 61 73 65 64 20 76 65 72 73 69 6f 6e 20 66 72 6f 6d 20 6f 75 72 20 77 65 62 | st.released.version.from.our.web |
| 244c20 | 73 69 74 65 3a 0a 0a 40 75 72 6c 7b 68 74 74 70 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 73 6c | site:..@url{http://github.com/sl |
| 244c40 | 69 6d 65 2f 73 6c 69 6d 65 2f 7d 0a 0a 57 65 20 72 65 63 6f 6d 6d 65 6e 64 20 74 68 61 74 20 75 | ime/slime/}..We.recommend.that.u |
| 244c60 | 73 65 72 73 20 77 68 6f 20 70 61 72 74 69 63 69 70 61 74 65 20 69 6e 20 74 68 65 20 40 63 6f 64 | sers.who.participate.in.the.@cod |
| 244c80 | 65 7b 73 6c 69 6d 65 2d 64 65 76 65 6c 7d 0a 6d 61 69 6c 69 6e 67 20 6c 69 73 74 20 75 73 65 20 | e{slime-devel}.mailing.list.use. |
| 244ca0 | 74 68 65 20 40 47 69 74 7b 7d 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 64 65 2e 0a | the.@Git{}.version.of.the.code.. |
| 244cc0 | 0a 40 6d 65 6e 75 0a 2a 20 47 69 74 3a 3a 0a 2a 20 47 69 74 20 49 6e 63 61 6e 74 61 74 69 6f 6e | .@menu.*.Git::.*.Git.Incantation |
| 244ce0 | 73 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | s::.@end.menu..@c.-------------- |
| 244d00 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 47 69 74 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 | ---------.@node.Git.@subsection. |
| 244d20 | 44 6f 77 6e 6c 6f 61 64 69 6e 67 20 66 72 6f 6d 20 47 69 74 0a 0a 40 53 4c 49 4d 45 7b 7d 20 69 | Downloading.from.Git..@SLIME{}.i |
| 244d40 | 73 20 61 76 61 69 6c 61 62 6c 65 20 66 72 6f 6d 20 74 68 65 20 40 47 69 74 7b 7d 20 72 65 70 6f | s.available.from.the.@Git{}.repo |
| 244d60 | 73 69 74 6f 72 79 20 6f 6e 0a 40 66 69 6c 65 7b 67 69 74 68 75 62 2e 63 6f 6d 7d 2e 20 59 6f 75 | sitory.on.@file{github.com}..You |
| 244d80 | 20 68 61 76 65 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f 20 75 73 65 20 65 69 74 68 65 72 20 74 | .have.the.option.to.use.either.t |
| 244da0 | 68 65 20 76 65 72 79 20 6c 61 74 65 73 74 0a 63 6f 64 65 20 6f 72 20 74 68 65 20 74 61 67 67 65 | he.very.latest.code.or.the.tagge |
| 244dc0 | 64 20 40 63 6f 64 65 7b 46 41 49 52 4c 59 2d 53 54 41 42 4c 45 7d 20 73 6e 61 70 73 68 6f 74 2e | d.@code{FAIRLY-STABLE}.snapshot. |
| 244de0 | 0a 0a 54 68 65 20 6c 61 74 65 73 74 20 76 65 72 73 69 6f 6e 20 74 65 6e 64 73 20 74 6f 20 68 61 | ..The.latest.version.tends.to.ha |
| 244e00 | 76 65 20 6d 6f 72 65 20 66 65 61 74 75 72 65 73 20 61 6e 64 20 66 65 77 65 72 20 62 75 67 73 20 | ve.more.features.and.fewer.bugs. |
| 244e20 | 74 68 61 6e 20 74 68 65 0a 40 63 6f 64 65 7b 46 41 49 52 4c 59 2d 53 54 41 42 4c 45 7d 20 76 65 | than.the.@code{FAIRLY-STABLE}.ve |
| 244e40 | 72 73 69 6f 6e 2c 20 62 75 74 20 69 74 20 63 61 6e 20 62 65 20 75 6e 73 74 61 62 6c 65 20 64 75 | rsion,.but.it.can.be.unstable.du |
| 244e60 | 72 69 6e 67 20 74 69 6d 65 73 20 6f 66 0a 6d 61 6a 6f 72 20 73 75 72 67 65 72 79 2e 20 41 73 20 | ring.times.of.major.surgery..As. |
| 244e80 | 61 20 72 75 6c 65 2d 6f 66 2d 74 68 75 6d 62 20 72 65 63 6f 6d 6d 65 6e 64 61 74 69 6f 6e 20 77 | a.rule-of-thumb.recommendation.w |
| 244ea0 | 65 20 73 75 67 67 65 73 74 20 74 68 61 74 20 69 66 0a 79 6f 75 20 66 6f 6c 6c 6f 77 20 74 68 65 | e.suggest.that.if.you.follow.the |
| 244ec0 | 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 64 65 76 65 6c 7d 20 6d 61 69 6c 69 6e 67 20 6c 69 73 74 | .@code{slime-devel}.mailing.list |
| 244ee0 | 20 74 68 65 6e 20 79 6f 75 27 72 65 20 62 65 74 74 65 72 20 6f 66 66 0a 77 69 74 68 20 74 68 65 | .then.you're.better.off.with.the |
| 244f00 | 20 6c 61 74 65 73 74 20 76 65 72 73 69 6f 6e 20 28 77 65 27 6c 6c 20 73 65 6e 64 20 61 20 6e 6f | .latest.version.(we'll.send.a.no |
| 244f20 | 74 65 20 77 68 65 6e 20 69 74 27 73 20 75 6e 64 65 72 67 6f 69 6e 67 20 6d 61 6a 6f 72 0a 68 61 | te.when.it's.undergoing.major.ha |
| 244f40 | 63 6b 69 6e 67 29 2e 20 49 66 20 79 6f 75 20 64 6f 6e 27 74 20 66 6f 6c 6c 6f 77 20 74 68 65 20 | cking)..If.you.don't.follow.the. |
| 244f60 | 6d 61 69 6c 69 6e 67 20 6c 69 73 74 20 79 6f 75 20 77 6f 6e 27 74 20 6b 6e 6f 77 20 74 68 65 0a | mailing.list.you.won't.know.the. |
| 244f80 | 73 74 61 74 75 73 20 6f 66 20 74 68 65 20 6c 61 74 65 73 74 20 63 6f 64 65 2c 20 73 6f 20 74 72 | status.of.the.latest.code,.so.tr |
| 244fa0 | 61 63 6b 69 6e 67 20 40 63 6f 64 65 7b 46 41 49 52 4c 59 2d 53 54 41 42 4c 45 7d 20 6f 72 20 75 | acking.@code{FAIRLY-STABLE}.or.u |
| 244fc0 | 73 69 6e 67 20 61 0a 72 65 6c 65 61 73 65 64 20 76 65 72 73 69 6f 6e 20 69 73 20 74 68 65 20 73 | sing.a.released.version.is.the.s |
| 244fe0 | 61 66 65 20 6f 70 74 69 6f 6e 2e 0a 0a 49 66 20 79 6f 75 20 64 6f 77 6e 6c 6f 61 64 20 66 72 6f | afe.option...If.you.download.fro |
| 245000 | 6d 20 40 47 69 74 7b 7d 20 74 68 65 6e 20 72 65 6d 65 6d 62 65 72 20 74 6f 20 40 63 6f 64 65 7b | m.@Git{}.then.remember.to.@code{ |
| 245020 | 67 69 74 20 70 75 6c 6c 7d 0a 6f 63 63 61 73 69 6f 6e 61 6c 6c 79 2e 20 20 49 6d 70 72 6f 76 65 | git.pull}.occasionally...Improve |
| 245040 | 6d 65 6e 74 73 20 61 72 65 20 63 6f 6e 74 69 6e 75 61 6c 6c 79 20 62 65 69 6e 67 20 63 6f 6d 6d | ments.are.continually.being.comm |
| 245060 | 69 74 74 65 64 2c 20 61 6e 64 20 74 68 65 0a 40 63 6f 64 65 7b 46 41 49 52 4c 59 2d 53 54 41 42 | itted,.and.the.@code{FAIRLY-STAB |
| 245080 | 4c 45 7d 20 74 61 67 20 69 73 20 6d 6f 76 65 64 20 66 6f 72 77 61 72 64 20 66 72 6f 6d 20 74 69 | LE}.tag.is.moved.forward.from.ti |
| 2450a0 | 6d 65 20 74 6f 20 74 69 6d 65 2e 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | me.to.time...@c.---------------- |
| 2450c0 | 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 47 69 74 20 49 6e 63 61 6e 74 61 74 69 6f 6e 73 0a 40 | -------.@node.Git.Incantations.@ |
| 2450e0 | 73 75 62 73 65 63 74 69 6f 6e 20 47 69 74 20 69 6e 63 61 6e 74 61 74 69 6f 6e 73 0a 0a 54 6f 20 | subsection.Git.incantations..To. |
| 245100 | 64 6f 77 6e 6c 6f 61 64 20 74 68 65 20 76 65 72 79 20 6c 61 74 65 73 74 20 40 53 4c 49 4d 45 7b | download.the.very.latest.@SLIME{ |
| 245120 | 7d 20 79 6f 75 20 66 69 72 73 74 20 63 6f 6e 66 69 67 75 72 65 0a 79 6f 75 72 20 40 63 6f 64 65 | }.you.first.configure.your.@code |
| 245140 | 7b 47 69 74 52 4f 4f 54 7d 20 61 6e 64 20 6c 6f 67 69 6e 20 74 6f 20 74 68 65 20 72 65 70 6f 73 | {GitROOT}.and.login.to.the.repos |
| 245160 | 69 74 6f 72 79 2e 0a 0a 40 65 78 61 6d 70 6c 65 0a 67 69 74 20 63 6c 6f 6e 65 20 68 74 74 70 73 | itory...@example.git.clone.https |
| 245180 | 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 73 6c 69 6d 65 2f 73 6c 69 6d 65 2e 67 69 74 0a 40 65 | ://github.com/slime/slime.git.@e |
| 2451a0 | 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 59 6f 75 20 6d 69 67 68 74 20 73 75 62 73 74 69 74 75 74 65 | nd.example..You.might.substitute |
| 2451c0 | 20 40 63 6f 64 65 7b 68 74 74 70 73 7d 20 66 6f 72 20 40 63 6f 64 65 7b 68 74 74 70 7d 20 69 66 | .@code{https}.for.@code{http}.if |
| 2451e0 | 20 79 6f 75 27 72 65 20 68 61 76 69 6e 67 0a 70 72 6f 62 6c 65 6d 73 20 77 69 74 68 20 74 68 61 | .you're.having.problems.with.tha |
| 245200 | 74 20 70 72 6f 74 6f 63 6f 6c 2e 0a 0a 49 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 68 61 63 6b | t.protocol...If.you.want.to.hack |
| 245220 | 20 6f 6e 20 40 53 4c 49 4d 45 7b 7d 2c 20 75 73 65 20 47 69 74 68 75 62 27 73 20 40 65 6d 70 68 | .on.@SLIME{},.use.Github's.@emph |
| 245240 | 7b 66 6f 72 6b 7d 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 0a 61 6e 64 20 73 75 62 6d 69 74 20 | {fork}.functionality.and.submit. |
| 245260 | 61 20 40 65 6d 70 68 7b 70 75 6c 6c 20 72 65 71 75 65 73 74 7d 2e 20 42 65 20 73 75 72 65 20 74 | a.@emph{pull.request}..Be.sure.t |
| 245280 | 6f 20 66 69 72 73 74 20 72 65 61 64 20 74 68 65 0a 40 75 72 65 66 7b 68 74 74 70 73 3a 2f 2f 67 | o.first.read.the.@uref{https://g |
| 2452a0 | 69 74 68 75 62 2e 63 6f 6d 2f 73 6c 69 6d 65 2f 73 6c 69 6d 65 2f 62 6c 6f 62 2f 6d 61 73 74 65 | ithub.com/slime/slime/blob/maste |
| 2452c0 | 72 2f 43 4f 4e 54 52 49 42 55 54 49 4e 47 2e 6d 64 2c 2c 43 4f 4e 54 52 49 42 55 54 49 4e 47 2e | r/CONTRIBUTING.md,,CONTRIBUTING. |
| 2452e0 | 6d 64 7d 20 66 69 6c 65 20 66 69 72 73 74 2e 0a 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | md}.file.first....@c.----------- |
| 245300 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 0a | ------------.@node.Installation. |
| 245320 | 40 73 65 63 74 69 6f 6e 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 0a 0a 54 68 65 20 65 61 73 69 65 | @section.Installation..The.easie |
| 245340 | 73 74 20 77 61 79 20 74 6f 20 69 6e 73 74 61 6c 6c 20 61 6e 64 20 6b 65 65 70 20 40 53 4c 49 4d | st.way.to.install.and.keep.@SLIM |
| 245360 | 45 7b 7d 20 75 70 2d 74 6f 2d 64 61 74 65 20 69 73 20 75 73 69 6e 67 0a 45 6d 61 63 73 27 73 20 | E{}.up-to-date.is.using.Emacs's. |
| 245380 | 62 75 69 6c 74 2d 69 6e 20 70 61 63 6b 61 67 65 20 6d 61 6e 61 67 65 72 2e 20 40 53 4c 49 4d 45 | built-in.package.manager..@SLIME |
| 2453a0 | 7b 7d 20 69 73 20 61 76 61 69 6c 61 62 6c 65 20 66 72 6f 6d 20 74 68 65 0a 40 75 72 65 66 7b 68 | {}.is.available.from.the.@uref{h |
| 2453c0 | 74 74 70 3a 2f 2f 6d 65 6c 70 61 2e 6f 72 67 2c 2c 4d 45 4c 50 41 7d 20 72 65 70 6f 73 69 74 6f | ttp://melpa.org,,MELPA}.reposito |
| 2453e0 | 72 79 2e 20 41 66 74 65 72 0a 40 75 72 65 66 7b 68 74 74 70 3a 2f 2f 6d 65 6c 70 61 2e 6f 72 67 | ry..After.@uref{http://melpa.org |
| 245400 | 2f 23 2f 67 65 74 74 69 6e 67 2d 73 74 61 72 74 65 64 2c 2c 73 65 74 74 69 6e 67 20 75 70 20 74 | /#/getting-started,,setting.up.t |
| 245420 | 68 65 20 4d 45 4c 50 41 20 72 65 70 6f 73 69 74 6f 72 79 7d 2c 0a 40 53 4c 49 4d 45 7b 7d 20 63 | he.MELPA.repository},.@SLIME{}.c |
| 245440 | 61 6e 20 62 65 20 69 6e 73 74 61 6c 6c 65 64 20 76 69 61 20 40 6b 62 64 7b 4d 2d 78 20 70 61 63 | an.be.installed.via.@kbd{M-x.pac |
| 245460 | 6b 61 67 65 2d 69 6e 73 74 61 6c 6c 20 52 45 54 20 73 6c 69 6d 65 20 52 45 54 7d 2e 0a 59 6f 75 | kage-install.RET.slime.RET}..You |
| 245480 | 20 73 68 6f 75 6c 64 20 74 68 65 6e 20 64 65 66 69 6e 65 20 79 6f 75 72 20 64 65 66 61 75 6c 74 | .should.then.define.your.default |
| 2454a0 | 20 4c 69 73 70 20 69 6e 20 79 6f 75 72 20 40 66 69 6c 65 7b 2e 65 6d 61 63 73 7d 20 61 73 20 66 | .Lisp.in.your.@file{.emacs}.as.f |
| 2454c0 | 6f 6c 6c 6f 77 73 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 28 73 65 74 71 20 69 6e 66 65 72 69 6f 72 | ollows:..@example.(setq.inferior |
| 2454e0 | 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 20 22 2f 6f 70 74 2f 73 62 63 6c 2f 62 69 6e 2f 73 62 63 | -lisp-program."/opt/sbcl/bin/sbc |
| 245500 | 6c 22 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 41 74 20 74 68 69 73 20 70 6f 69 6e 74 2c | l").@end.example..At.this.point, |
| 245520 | 20 79 6f 75 20 73 68 6f 75 6c 64 20 62 65 20 72 65 61 64 79 20 74 6f 20 73 74 61 72 74 20 40 72 | .you.should.be.ready.to.start.@r |
| 245540 | 65 66 7b 52 75 6e 6e 69 6e 67 2c 2c 72 75 6e 6e 69 6e 67 20 53 4c 49 4d 45 7d 2e 0a 0a 54 68 69 | ef{Running,,running.SLIME}...Thi |
| 245560 | 73 20 69 73 20 74 68 65 20 6d 69 6e 69 6d 61 6c 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 77 | s.is.the.minimal.configuration.w |
| 245580 | 69 74 68 20 74 68 65 20 66 65 77 65 73 74 20 66 72 69 6c 6c 73 2e 20 20 49 66 20 74 68 65 0a 62 | ith.the.fewest.frills...If.the.b |
| 2455a0 | 61 73 69 63 20 73 65 74 75 70 20 69 73 20 77 6f 72 6b 69 6e 67 2c 20 79 6f 75 20 63 61 6e 20 74 | asic.setup.is.working,.you.can.t |
| 2455c0 | 72 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 6d 6f 64 75 6c 65 73 20 28 40 72 65 66 7b 4c 6f 61 64 | ry.additional.modules.(@ref{Load |
| 2455e0 | 69 6e 67 0a 43 6f 6e 74 72 69 62 73 7d 29 2e 0a 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 49 6e 73 | ing.Contribs})...@subsection.Ins |
| 245600 | 74 61 6c 6c 69 6e 67 20 66 72 6f 6d 20 47 69 74 0a 0a 49 66 20 79 6f 75 27 64 20 72 61 74 68 65 | talling.from.Git..If.you'd.rathe |
| 245620 | 72 20 69 6e 73 74 61 6c 6c 20 40 53 4c 49 4d 45 7b 7d 20 64 69 72 65 63 74 6c 79 20 66 72 6f 6d | r.install.@SLIME{}.directly.from |
| 245640 | 20 69 74 73 0a 40 75 72 65 66 7b 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 73 6c | .its.@uref{https://github.com/sl |
| 245660 | 69 6d 65 2f 73 6c 69 6d 65 2c 2c 67 69 74 20 72 65 70 6f 73 69 74 6f 72 79 7d 2c 20 79 6f 75 20 | ime/slime,,git.repository},.you. |
| 245680 | 77 69 6c 6c 20 6e 65 65 64 0a 74 6f 20 61 64 64 20 61 20 66 65 77 20 65 78 74 72 61 20 6c 69 6e | will.need.to.add.a.few.extra.lin |
| 2456a0 | 65 73 20 69 6e 20 79 6f 75 72 20 40 66 69 6c 65 7b 2e 65 6d 61 63 73 7d 3a 0a 0a 40 76 69 6e 64 | es.in.your.@file{.emacs}:..@vind |
| 2456c0 | 65 78 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 0a 40 76 69 6e 64 65 78 | ex.inferior-lisp-program.@vindex |
| 2456e0 | 20 6c 6f 61 64 2d 70 61 74 68 0a 40 65 78 61 6d 70 6c 65 0a 3b 3b 20 40 65 6d 70 68 7b 53 65 74 | .load-path.@example.;;.@emph{Set |
| 245700 | 75 70 20 6c 6f 61 64 2d 70 61 74 68 2c 20 61 75 74 6f 6c 6f 61 64 73 20 61 6e 64 20 79 6f 75 72 | up.load-path,.autoloads.and.your |
| 245720 | 20 6c 69 73 70 20 73 79 73 74 65 6d 7d 0a 3b 3b 20 40 65 6d 70 68 7b 4e 6f 74 20 6e 65 65 64 65 | .lisp.system}.;;.@emph{Not.neede |
| 245740 | 64 20 69 66 20 79 6f 75 20 69 6e 73 74 61 6c 6c 20 53 4c 49 4d 45 20 76 69 61 20 4d 45 4c 50 41 | d.if.you.install.SLIME.via.MELPA |
| 245760 | 7d 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f 61 64 2d 70 61 74 68 20 22 7e 2f 64 69 72 | }.(add-to-list.'load-path."~/dir |
| 245780 | 2f 74 6f 2f 63 6c 6f 6e 65 64 2f 73 6c 69 6d 65 22 29 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 | /to/cloned/slime").(require.'sli |
| 2457a0 | 6d 65 2d 61 75 74 6f 6c 6f 61 64 73 29 0a 28 73 65 74 71 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 | me-autoloads).(setq.inferior-lis |
| 2457c0 | 70 2d 70 72 6f 67 72 61 6d 20 22 2f 6f 70 74 2f 73 62 63 6c 2f 62 69 6e 2f 73 62 63 6c 22 29 0a | p-program."/opt/sbcl/bin/sbcl"). |
| 2457e0 | 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 59 6f 75 20 6d 61 79 20 6f 70 74 69 6f 6e 61 6c 6c 79 | @end.example..You.may.optionally |
| 245800 | 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 20 40 53 4c 49 4d 45 7b 7d 20 75 73 69 6e 67 20 40 63 6f | .byte-compile.@SLIME{}.using.@co |
| 245820 | 64 65 7b 6d 61 6b 65 20 63 6f 6d 70 69 6c 65 0a 63 6f 6e 74 72 69 62 2d 63 6f 6d 70 69 6c 65 7d | de{make.compile.contrib-compile} |
| 245840 | 2e 0a 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 | ....@c.-----------------------.@ |
| 245860 | 6e 6f 64 65 20 52 75 6e 6e 69 6e 67 0a 40 73 65 63 74 69 6f 6e 20 52 75 6e 6e 69 6e 67 20 53 4c | node.Running.@section.Running.SL |
| 245880 | 49 4d 45 0a 0a 40 53 4c 49 4d 45 7b 7d 20 69 73 20 73 74 61 72 74 65 64 20 77 69 74 68 20 74 68 | IME..@SLIME{}.is.started.with.th |
| 2458a0 | 65 20 45 6d 61 63 73 20 63 6f 6d 6d 61 6e 64 20 40 6b 62 64 7b 4d 2d 78 20 73 6c 69 6d 65 7d 2e | e.Emacs.command.@kbd{M-x.slime}. |
| 2458c0 | 20 54 68 69 73 20 75 73 65 73 0a 74 68 65 20 40 63 6f 64 65 7b 69 6e 66 65 72 69 6f 72 2d 6c 69 | .This.uses.the.@code{inferior-li |
| 2458e0 | 73 70 7d 20 70 61 63 6b 61 67 65 20 74 6f 20 73 74 61 72 74 20 61 20 4c 69 73 70 20 70 72 6f 63 | sp}.package.to.start.a.Lisp.proc |
| 245900 | 65 73 73 2c 20 6c 6f 61 64 73 20 61 6e 64 0a 73 74 61 72 74 73 20 74 68 65 20 4c 69 73 70 2d 73 | ess,.loads.and.starts.the.Lisp-s |
| 245920 | 69 64 65 20 73 65 72 76 65 72 20 28 6b 6e 6f 77 6e 20 61 73 20 60 60 53 77 61 6e 6b 27 27 29 2c | ide.server.(known.as.``Swank''), |
| 245940 | 20 61 6e 64 20 65 73 74 61 62 6c 69 73 68 65 73 20 61 0a 73 6f 63 6b 65 74 20 63 6f 6e 6e 65 63 | .and.establishes.a.socket.connec |
| 245960 | 74 69 6f 6e 20 62 65 74 77 65 65 6e 20 45 6d 61 63 73 20 61 6e 64 20 4c 69 73 70 2e 20 46 69 6e | tion.between.Emacs.and.Lisp..Fin |
| 245980 | 61 6c 6c 79 20 61 20 40 52 45 50 4c 7b 7d 20 62 75 66 66 65 72 20 69 73 0a 63 72 65 61 74 65 64 | ally.a.@REPL{}.buffer.is.created |
| 2459a0 | 20 77 68 65 72 65 20 79 6f 75 20 63 61 6e 20 65 6e 74 65 72 20 4c 69 73 70 20 65 78 70 72 65 73 | .where.you.can.enter.Lisp.expres |
| 2459c0 | 73 69 6f 6e 73 20 66 6f 72 20 65 76 61 6c 75 61 74 69 6f 6e 2e 0a 0a 41 74 20 74 68 69 73 20 70 | sions.for.evaluation...At.this.p |
| 2459e0 | 6f 69 6e 74 20 40 53 4c 49 4d 45 7b 7d 20 69 73 20 75 70 20 61 6e 64 20 72 75 6e 6e 69 6e 67 20 | oint.@SLIME{}.is.up.and.running. |
| 245a00 | 61 6e 64 20 79 6f 75 20 63 61 6e 20 73 74 61 72 74 20 65 78 70 6c 6f 72 69 6e 67 2e 0a 0a 40 6e | and.you.can.start.exploring...@n |
| 245a20 | 6f 64 65 20 53 65 74 75 70 20 54 75 6e 69 6e 67 0a 40 73 65 63 74 69 6f 6e 20 53 65 74 75 70 20 | ode.Setup.Tuning.@section.Setup. |
| 245a40 | 54 75 6e 69 6e 67 0a 0a 54 68 69 73 20 73 65 63 74 69 6f 6e 20 65 78 70 6c 61 69 6e 73 20 77 61 | Tuning..This.section.explains.wa |
| 245a60 | 79 73 20 74 6f 20 70 65 72 66 6f 72 6d 20 62 61 73 69 63 20 65 78 74 65 6e 73 69 6f 6e 73 20 74 | ys.to.perform.basic.extensions.t |
| 245a80 | 6f 20 40 53 4c 49 4d 45 7b 7d 2c 20 61 6e 64 0a 68 6f 77 20 74 6f 20 63 6f 6e 66 69 67 75 72 65 | o.@SLIME{},.and.how.to.configure |
| 245aa0 | 20 40 53 4c 49 4d 45 7b 7d 20 66 6f 72 20 6d 75 6c 74 69 70 6c 65 20 4c 69 73 70 20 73 79 73 74 | .@SLIME{}.for.multiple.Lisp.syst |
| 245ac0 | 65 6d 73 20 61 6e 64 20 68 6f 77 20 74 6f 20 72 65 64 75 63 65 0a 40 53 4c 49 4d 45 7b 7d 27 73 | ems.and.how.to.reduce.@SLIME{}'s |
| 245ae0 | 20 73 74 61 72 74 75 70 20 74 69 6d 65 2e 0a 0a 50 6c 65 61 73 65 20 70 72 6f 63 65 65 64 20 77 | .startup.time...Please.proceed.w |
| 245b00 | 69 74 68 20 74 68 69 73 20 73 65 63 74 69 6f 6e 20 6f 6e 6c 79 20 69 66 20 79 6f 75 72 20 62 61 | ith.this.section.only.if.your.ba |
| 245b20 | 73 69 63 20 73 65 74 75 70 20 77 6f 72 6b 73 2e 20 20 49 66 0a 79 6f 75 20 61 72 65 20 68 61 70 | sic.setup.works...If.you.are.hap |
| 245b40 | 70 79 20 77 69 74 68 20 74 68 65 20 62 61 73 69 63 20 73 65 74 75 70 2c 20 73 6b 69 70 20 74 68 | py.with.the.basic.setup,.skip.th |
| 245b60 | 69 73 20 73 65 63 74 69 6f 6e 2e 0a 0a 46 6f 72 20 63 6f 6e 74 72 69 62 20 6d 6f 64 75 6c 65 73 | is.section...For.contrib.modules |
| 245b80 | 20 40 70 78 72 65 66 7b 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 7d 2e 0a 0a 40 6d 65 6e | .@pxref{Loading.Contribs}...@men |
| 245ba0 | 75 0a 2a 20 42 61 73 69 63 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 3a 3a 0a 2a 20 4d 75 6c 74 | u.*.Basic.customization::.*.Mult |
| 245bc0 | 69 70 6c 65 20 4c 69 73 70 73 3a 3a 0a 2a 20 4c 6f 61 64 69 6e 67 20 53 77 61 6e 6b 20 66 61 73 | iple.Lisps::.*.Loading.Swank.fas |
| 245be0 | 74 65 72 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 0a 0a 40 6e 6f 64 65 20 42 61 73 69 63 20 63 75 73 | ter::.@end.menu..@node.Basic.cus |
| 245c00 | 74 6f 6d 69 7a 61 74 69 6f 6e 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 42 61 73 69 63 20 63 75 73 | tomization.@subsection.Basic.cus |
| 245c20 | 74 6f 6d 69 7a 61 74 69 6f 6e 0a 0a 4f 6e 63 65 20 79 6f 75 20 68 61 76 65 20 74 68 65 20 62 61 | tomization..Once.you.have.the.ba |
| 245c40 | 73 69 63 20 6e 6f 2d 66 72 69 6c 6c 73 20 73 65 74 75 70 20 77 6f 72 6b 69 6e 67 2c 20 79 6f 75 | sic.no-frills.setup.working,.you |
| 245c60 | 20 63 61 6e 20 65 6e 68 61 6e 63 65 20 79 6f 75 72 0a 40 53 4c 49 4d 45 7b 7d 20 69 6e 73 74 61 | .can.enhance.your.@SLIME{}.insta |
| 245c80 | 6c 6c 61 74 69 6f 6e 20 77 69 74 68 20 62 75 6e 64 6c 65 64 20 65 78 74 65 6e 73 69 6f 6e 73 3a | llation.with.bundled.extensions: |
| 245ca0 | 0a 0a 40 65 78 61 6d 70 6c 65 0a 3b 3b 20 40 65 6d 70 68 7b 53 65 74 75 70 20 6c 6f 61 64 2d 70 | ..@example.;;.@emph{Setup.load-p |
| 245cc0 | 61 74 68 2c 20 61 75 74 6f 6c 6f 61 64 73 20 61 6e 64 20 79 6f 75 72 20 6c 69 73 70 20 73 79 73 | ath,.autoloads.and.your.lisp.sys |
| 245ce0 | 74 65 6d 7d 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f 61 64 2d 70 61 74 68 20 22 7e 2f | tem}.(add-to-list.'load-path."~/ |
| 245d00 | 64 69 72 2f 74 6f 2f 63 6c 6f 6e 65 64 2f 73 6c 69 6d 65 22 29 0a 28 72 65 71 75 69 72 65 20 27 | dir/to/cloned/slime").(require.' |
| 245d20 | 73 6c 69 6d 65 2d 61 75 74 6f 6c 6f 61 64 73 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 53 | slime-autoloads).@end.example..S |
| 245d40 | 65 65 20 40 70 78 72 65 66 7b 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 7d 20 66 6f 72 20 | ee.@pxref{Loading.Contribs}.for. |
| 245d60 | 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 40 53 4c 49 4d 45 7b 7d 27 73 0a 63 | more.information.on.@SLIME{}'s.c |
| 245d80 | 6f 6e 74 72 69 62 20 73 79 73 74 65 6d 2e 0a 0a 54 6f 20 63 75 73 74 6f 6d 69 7a 65 20 61 20 70 | ontrib.system...To.customize.a.p |
| 245da0 | 61 72 74 69 63 75 6c 61 72 20 62 69 6e 64 69 6e 67 20 69 6e 20 6f 6e 65 20 6f 66 20 40 53 4c 49 | articular.binding.in.one.of.@SLI |
| 245dc0 | 4d 45 7b 7d 27 73 20 6b 65 79 6d 61 70 73 2c 20 79 6f 75 0a 63 61 6e 20 61 64 64 20 6f 6e 65 20 | ME{}'s.keymaps,.you.can.add.one. |
| 245de0 | 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 6f 20 79 6f 75 72 20 69 6e 69 74 20 66 69 | of.the.following.to.your.init.fi |
| 245e00 | 6c 65 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 6c | le:..@example.(add-hook.'slime-l |
| 245e20 | 6f 61 64 2d 68 6f 6f 6b 0a 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 64 65 66 69 | oad-hook...(lambda.()......(defi |
| 245e40 | 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 70 72 65 66 69 78 2d 6d 61 70 20 28 6b 62 64 20 22 4d 2d | ne-key.slime-prefix-map.(kbd."M- |
| 245e60 | 68 22 29 20 27 73 6c 69 6d 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 6c 6f 6f 6b 75 70 29 | h").'slime-documentation-lookup) |
| 245e80 | 29 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 54 68 65 20 66 6f 72 6d 65 72 20 74 65 63 68 | )).@end.example..The.former.tech |
| 245ea0 | 6e 69 71 75 65 20 77 6f 72 6b 73 20 6f 6e 6c 79 20 66 6f 72 20 40 53 4c 49 4d 45 7b 7d 27 73 20 | nique.works.only.for.@SLIME{}'s. |
| 245ec0 | 63 6f 72 65 20 6b 65 79 6d 61 70 73 2c 20 6e 6f 74 20 69 74 27 73 0a 63 6f 6e 74 72 69 62 73 27 | core.keymaps,.not.it's.contribs' |
| 245ee0 | 2e 20 46 6f 72 20 74 68 6f 73 65 20 79 6f 75 20 63 61 6e 20 75 73 65 20 74 68 65 20 6c 61 74 74 | ..For.those.you.can.use.the.latt |
| 245f00 | 65 72 20 66 6f 72 6d 20 77 68 69 63 68 20 77 6f 72 6b 73 20 66 6f 72 20 61 6e 79 0a 45 6d 61 63 | er.form.which.works.for.any.Emac |
| 245f20 | 73 20 6c 69 62 72 61 72 79 2e 20 53 65 65 20 61 6c 73 6f 20 40 70 78 72 65 66 7b 43 75 73 74 6f | s.library..See.also.@pxref{Custo |
| 245f40 | 6d 69 7a 61 74 69 6f 6e 7d 20 66 6f 72 20 6d 6f 72 65 20 61 64 76 61 6e 63 65 64 0a 63 6f 6e 66 | mization}.for.more.advanced.conf |
| 245f60 | 69 67 75 72 61 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 2e 0a 0a 40 6e 6f 64 65 20 4d 75 6c 74 69 70 | iguration.options...@node.Multip |
| 245f80 | 6c 65 20 4c 69 73 70 73 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 4d 75 6c 74 69 70 6c 65 20 4c 69 | le.Lisps.@subsection.Multiple.Li |
| 245fa0 | 73 70 73 0a 0a 42 79 20 64 65 66 61 75 6c 74 2c 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 40 6b 62 | sps..By.default,.the.command.@kb |
| 245fc0 | 64 7b 4d 2d 78 20 73 6c 69 6d 65 7d 20 73 74 61 72 74 73 20 74 68 65 20 70 72 6f 67 72 61 6d 20 | d{M-x.slime}.starts.the.program. |
| 245fe0 | 73 70 65 63 69 66 69 65 64 0a 77 69 74 68 20 40 63 6f 64 65 7b 69 6e 66 65 72 69 6f 72 2d 6c 69 | specified.with.@code{inferior-li |
| 246000 | 73 70 2d 70 72 6f 67 72 61 6d 7d 2e 20 20 49 66 20 79 6f 75 20 69 6e 76 6f 6b 65 20 40 6b 62 64 | sp-program}...If.you.invoke.@kbd |
| 246020 | 7b 4d 2d 78 20 73 6c 69 6d 65 7d 20 77 69 74 68 0a 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 | {M-x.slime}.with.a.prefix.argume |
| 246040 | 6e 74 2c 20 45 6d 61 63 73 20 70 72 6f 6d 70 74 73 20 66 6f 72 20 74 68 65 20 70 72 6f 67 72 61 | nt,.Emacs.prompts.for.the.progra |
| 246060 | 6d 20 77 68 69 63 68 20 73 68 6f 75 6c 64 20 62 65 0a 73 74 61 72 74 65 64 20 69 6e 73 74 65 61 | m.which.should.be.started.instea |
| 246080 | 64 2e 20 20 49 66 20 79 6f 75 20 6e 65 65 64 20 74 68 61 74 20 66 72 65 71 75 65 6e 74 6c 79 20 | d...If.you.need.that.frequently. |
| 2460a0 | 6f 72 20 69 66 20 74 68 65 20 63 6f 6d 6d 61 6e 64 0a 69 6e 76 6f 6c 76 65 73 20 6c 6f 6e 67 20 | or.if.the.command.involves.long. |
| 2460c0 | 66 69 6c 65 6e 61 6d 65 73 20 69 74 27 73 20 6d 6f 72 65 20 63 6f 6e 76 65 6e 69 65 6e 74 20 74 | filenames.it's.more.convenient.t |
| 2460e0 | 6f 20 73 65 74 20 74 68 65 0a 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 | o.set.the.@code{slime-lisp-imple |
| 246100 | 6d 65 6e 74 61 74 69 6f 6e 73 7d 20 76 61 72 69 61 62 6c 65 20 69 6e 20 79 6f 75 72 20 40 66 69 | mentations}.variable.in.your.@fi |
| 246120 | 6c 65 7b 2e 65 6d 61 63 73 7d 2e 20 20 46 6f 72 0a 65 78 61 6d 70 6c 65 20 68 65 72 65 20 77 65 | le{.emacs}...For.example.here.we |
| 246140 | 20 64 65 66 69 6e 65 20 74 77 6f 20 70 72 6f 67 72 61 6d 73 3a 0a 0a 40 76 69 6e 64 65 78 20 73 | .define.two.programs:..@vindex.s |
| 246160 | 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 0a 40 6c 69 73 70 0a | lime-lisp-implementations.@lisp. |
| 246180 | 28 73 65 74 71 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 | (setq.slime-lisp-implementations |
| 2461a0 | 0a 20 20 20 20 20 20 27 28 28 63 6d 75 63 6c 20 28 22 63 6d 75 63 6c 22 20 22 2d 71 75 69 65 74 | .......'((cmucl.("cmucl"."-quiet |
| 2461c0 | 22 29 29 0a 20 20 20 20 20 20 20 20 28 73 62 63 6c 20 28 22 2f 6f 70 74 2f 73 62 63 6c 2f 62 69 | ")).........(sbcl.("/opt/sbcl/bi |
| 2461e0 | 6e 2f 73 62 63 6c 22 29 20 3a 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 75 74 66 2d 38 2d 75 6e | n/sbcl").:coding-system.utf-8-un |
| 246200 | 69 78 29 29 29 0a 40 65 6e 64 20 6c 69 73 70 0a 0a 40 76 69 6e 64 65 78 20 73 6c 69 6d 65 2d 64 | ix))).@end.lisp..@vindex.slime-d |
| 246220 | 65 66 61 75 6c 74 2d 6c 69 73 70 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 68 6f 6c 64 73 20 | efault-lisp.This.variable.holds. |
| 246240 | 61 20 6c 69 73 74 20 6f 66 20 70 72 6f 67 72 61 6d 73 20 61 6e 64 20 69 66 20 79 6f 75 20 69 6e | a.list.of.programs.and.if.you.in |
| 246260 | 76 6f 6b 65 20 40 53 4c 49 4d 45 7b 7d 20 77 69 74 68 0a 61 20 6e 65 67 61 74 69 76 65 20 70 72 | voke.@SLIME{}.with.a.negative.pr |
| 246280 | 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 40 6b 62 64 7b 4d 2d 2d 20 4d 2d 78 20 73 6c 69 6d | efix.argument,.@kbd{M--.M-x.slim |
| 2462a0 | 65 7d 2c 20 79 6f 75 20 63 61 6e 20 73 65 6c 65 63 74 20 61 0a 70 72 6f 67 72 61 6d 20 66 72 6f | e},.you.can.select.a.program.fro |
| 2462c0 | 6d 20 74 68 61 74 20 6c 69 73 74 2e 20 57 68 65 6e 20 63 61 6c 6c 65 64 20 77 69 74 68 6f 75 74 | m.that.list..When.called.without |
| 2462e0 | 20 61 20 70 72 65 66 69 78 2c 20 65 69 74 68 65 72 20 74 68 65 20 6e 61 6d 65 0a 73 70 65 63 69 | .a.prefix,.either.the.name.speci |
| 246300 | 66 69 65 64 20 69 6e 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 6c 69 73 70 | fied.in.@code{slime-default-lisp |
| 246320 | 7d 2c 20 6f 72 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 6f 66 20 74 68 65 20 6c 69 73 74 | },.or.the.first.item.of.the.list |
| 246340 | 20 77 69 6c 6c 20 62 65 20 75 73 65 64 2e 0a 54 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 | .will.be.used..The.elements.of.t |
| 246360 | 68 65 20 6c 69 73 74 20 73 68 6f 75 6c 64 20 6c 6f 6f 6b 20 6c 69 6b 65 0a 0a 40 6c 69 73 70 0a | he.list.should.look.like..@lisp. |
| 246380 | 28 4e 41 4d 45 20 28 50 52 4f 47 52 41 4d 20 50 52 4f 47 52 41 4d 2d 41 52 47 53 2e 2e 2e 29 20 | (NAME.(PROGRAM.PROGRAM-ARGS...). |
| 2463a0 | 26 6b 65 79 20 43 4f 44 49 4e 47 2d 53 59 53 54 45 4d 20 49 4e 49 54 20 49 4e 49 54 2d 46 55 4e | &key.CODING-SYSTEM.INIT.INIT-FUN |
| 2463c0 | 43 54 49 4f 4e 20 45 4e 56 29 0a 40 65 6e 64 20 6c 69 73 70 0a 0a 40 74 61 62 6c 65 20 40 63 6f | CTION.ENV).@end.lisp..@table.@co |
| 2463e0 | 64 65 0a 40 69 74 65 6d 20 4e 41 4d 45 0a 69 73 20 61 20 73 79 6d 62 6f 6c 20 61 6e 64 20 69 73 | de.@item.NAME.is.a.symbol.and.is |
| 246400 | 20 75 73 65 64 20 74 6f 20 69 64 65 6e 74 69 66 79 20 74 68 65 20 70 72 6f 67 72 61 6d 2e 0a 40 | .used.to.identify.the.program..@ |
| 246420 | 69 74 65 6d 20 50 52 4f 47 52 41 4d 0a 69 73 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20 6f 66 20 | item.PROGRAM.is.the.filename.of. |
| 246440 | 74 68 65 20 70 72 6f 67 72 61 6d 2e 20 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 20 66 69 6c 65 | the.program...Note.that.the.file |
| 246460 | 6e 61 6d 65 20 63 61 6e 20 63 6f 6e 74 61 69 6e 0a 73 70 61 63 65 73 2e 0a 40 69 74 65 6d 20 50 | name.can.contain.spaces..@item.P |
| 246480 | 52 4f 47 52 41 4d 2d 41 52 47 53 0a 69 73 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6d 6d 61 6e 64 | ROGRAM-ARGS.is.a.list.of.command |
| 2464a0 | 20 6c 69 6e 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 40 69 74 65 6d 20 43 4f 44 49 4e 47 2d 53 59 | .line.arguments..@item.CODING-SY |
| 2464c0 | 53 54 45 4d 0a 74 68 65 20 63 6f 64 69 6e 67 20 73 79 73 74 65 6d 20 66 6f 72 20 74 68 65 20 63 | STEM.the.coding.system.for.the.c |
| 2464e0 | 6f 6e 6e 65 63 74 69 6f 6e 2e 20 20 28 40 70 78 72 65 66 7b 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f | onnection...(@pxref{slime-net-co |
| 246500 | 64 69 6e 67 2d 73 79 73 74 65 6d 7d 29 78 0a 40 69 74 65 6d 20 49 4e 49 54 0a 73 68 6f 75 6c 64 | ding-system})x.@item.INIT.should |
| 246520 | 20 62 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 63 68 20 74 61 6b 65 73 20 74 77 6f 20 61 | .be.a.function.which.takes.two.a |
| 246540 | 72 67 75 6d 65 6e 74 73 3a 20 61 20 66 69 6c 65 6e 61 6d 65 20 61 6e 64 20 61 0a 63 68 61 72 61 | rguments:.a.filename.and.a.chara |
| 246560 | 63 74 65 72 20 65 6e 63 6f 64 69 6e 67 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f | cter.encoding...The.function.sho |
| 246580 | 75 6c 64 20 72 65 74 75 72 6e 20 61 20 4c 69 73 70 20 65 78 70 72 65 73 73 69 6f 6e 20 61 73 20 | uld.return.a.Lisp.expression.as. |
| 2465a0 | 61 0a 73 74 72 69 6e 67 20 77 68 69 63 68 20 69 6e 73 74 72 75 63 74 73 20 4c 69 73 70 20 74 6f | a.string.which.instructs.Lisp.to |
| 2465c0 | 20 73 74 61 72 74 20 74 68 65 20 53 77 61 6e 6b 20 73 65 72 76 65 72 20 61 6e 64 20 74 6f 20 77 | .start.the.Swank.server.and.to.w |
| 2465e0 | 72 69 74 65 20 74 68 65 0a 70 6f 72 74 20 6e 75 6d 62 65 72 20 74 6f 20 74 68 65 20 66 69 6c 65 | rite.the.port.number.to.the.file |
| 246600 | 2e 20 20 41 74 20 73 74 61 72 74 75 70 2c 20 40 53 4c 49 4d 45 7b 7d 20 73 74 61 72 74 73 20 74 | ...At.startup,.@SLIME{}.starts.t |
| 246620 | 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 0a 61 6e 64 20 73 65 6e 64 73 20 74 68 65 20 72 65 | he.Lisp.process.and.sends.the.re |
| 246640 | 73 75 6c 74 20 6f 66 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 4c 69 73 70 27 73 20 | sult.of.this.function.to.Lisp's. |
| 246660 | 73 74 61 6e 64 61 72 64 20 69 6e 70 75 74 2e 20 20 41 73 0a 64 65 66 61 75 6c 74 2c 20 40 63 6f | standard.input...As.default,.@co |
| 246680 | 64 65 7b 73 6c 69 6d 65 2d 69 6e 69 74 2d 63 6f 6d 6d 61 6e 64 7d 20 69 73 20 75 73 65 64 2e 20 | de{slime-init-command}.is.used.. |
| 2466a0 | 20 41 6e 20 65 78 61 6d 70 6c 65 20 69 73 20 73 68 6f 77 6e 20 69 6e 0a 40 72 65 66 7b 69 6e 69 | .An.example.is.shown.in.@ref{ini |
| 2466c0 | 74 2d 65 78 61 6d 70 6c 65 2c 2c 4c 6f 61 64 69 6e 67 20 53 77 61 6e 6b 20 66 61 73 74 65 72 7d | t-example,,Loading.Swank.faster} |
| 2466e0 | 2e 0a 40 69 74 65 6d 20 49 4e 49 54 2d 46 55 4e 43 54 49 4f 4e 0a 73 68 6f 75 6c 64 20 62 65 20 | ..@item.INIT-FUNCTION.should.be. |
| 246700 | 61 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 63 68 20 74 61 6b 65 73 20 6e 6f 20 61 72 67 75 6d 65 | a.function.which.takes.no.argume |
| 246720 | 6e 74 73 2e 20 20 49 74 20 69 73 20 63 61 6c 6c 65 64 20 61 66 74 65 72 0a 74 68 65 20 63 6f 6e | nts...It.is.called.after.the.con |
| 246740 | 6e 65 63 74 69 6f 6e 20 69 73 20 65 73 74 61 62 6c 69 73 68 65 64 2e 20 28 53 65 65 20 61 6c 73 | nection.is.established..(See.als |
| 246760 | 6f 20 40 72 65 66 7b 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 7d 2e 29 0a 40 | o.@ref{slime-connected-hook}.).@ |
| 246780 | 69 74 65 6d 20 45 4e 56 0a 73 70 65 63 69 66 69 65 73 20 61 20 6c 69 73 74 20 6f 66 20 65 6e 76 | item.ENV.specifies.a.list.of.env |
| 2467a0 | 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 73 20 66 6f 72 20 74 68 65 20 73 75 62 70 72 | ironment.variables.for.the.subpr |
| 2467c0 | 6f 63 65 73 73 2e 20 45 2e 67 2e 0a 40 6c 69 73 70 0a 28 73 62 63 6c 2d 63 76 73 20 28 22 2f 68 | ocess..E.g..@lisp.(sbcl-cvs.("/h |
| 2467e0 | 6f 6d 65 2f 6d 65 2f 73 62 63 6c 2d 63 76 73 2f 73 72 63 2f 72 75 6e 74 69 6d 65 2f 73 62 63 6c | ome/me/sbcl-cvs/src/runtime/sbcl |
| 246800 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 63 6f 72 65 22 20 22 2f 68 6f 6d 65 2f 6d 65 2f | "............"--core"."/home/me/ |
| 246820 | 73 62 63 6c 2d 63 76 73 2f 6f 75 74 70 75 74 2f 73 62 63 6c 2e 63 6f 72 65 22 29 0a 20 20 20 20 | sbcl-cvs/output/sbcl.core")..... |
| 246840 | 20 20 20 20 20 20 3a 65 6e 76 20 28 22 53 42 43 4c 5f 48 4f 4d 45 3d 2f 68 6f 6d 65 2f 6d 65 2f | ......:env.("SBCL_HOME=/home/me/ |
| 246860 | 73 62 63 6c 2d 63 76 73 2f 63 6f 6e 74 72 69 62 2f 22 29 29 0a 40 65 6e 64 20 6c 69 73 70 0a 69 | sbcl-cvs/contrib/")).@end.lisp.i |
| 246880 | 6e 69 74 69 61 6c 69 7a 65 73 20 40 63 6f 64 65 7b 53 42 43 4c 5f 48 4f 4d 45 7d 20 69 6e 20 74 | nitializes.@code{SBCL_HOME}.in.t |
| 2468a0 | 68 65 20 73 75 62 70 72 6f 63 65 73 73 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 6e 6f 64 65 | he.subprocess..@end.table..@node |
| 2468c0 | 20 4c 6f 61 64 69 6e 67 20 53 77 61 6e 6b 20 66 61 73 74 65 72 0a 40 73 75 62 73 65 63 74 69 6f | .Loading.Swank.faster.@subsectio |
| 2468e0 | 6e 20 4c 6f 61 64 69 6e 67 20 53 77 61 6e 6b 20 66 61 73 74 65 72 0a 0a 46 6f 72 20 53 42 43 4c | n.Loading.Swank.faster..For.SBCL |
| 246900 | 2c 20 77 65 20 72 65 63 6f 6d 6d 65 6e 64 20 74 68 61 74 20 79 6f 75 20 63 72 65 61 74 65 20 61 | ,.we.recommend.that.you.create.a |
| 246920 | 20 63 75 73 74 6f 6d 20 63 6f 72 65 20 66 69 6c 65 20 77 69 74 68 20 73 6f 63 6b 65 74 0a 73 75 | .custom.core.file.with.socket.su |
| 246940 | 70 70 6f 72 74 20 61 6e 64 20 40 61 63 72 6f 6e 79 6d 7b 50 4f 53 49 58 7d 20 62 69 6e 64 69 6e | pport.and.@acronym{POSIX}.bindin |
| 246960 | 67 73 20 69 6e 63 6c 75 64 65 64 20 62 65 63 61 75 73 65 20 74 68 6f 73 65 20 6d 6f 64 75 6c 65 | gs.included.because.those.module |
| 246980 | 73 0a 74 61 6b 65 20 74 68 65 20 6d 6f 73 74 20 74 69 6d 65 20 74 6f 20 6c 6f 61 64 2e 20 20 54 | s.take.the.most.time.to.load...T |
| 2469a0 | 6f 20 63 72 65 61 74 65 20 73 75 63 68 20 61 20 63 6f 72 65 2c 20 65 78 65 63 75 74 65 20 74 68 | o.create.such.a.core,.execute.th |
| 2469c0 | 65 0a 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 65 70 73 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 73 68 65 | e.following.steps:..@example.she |
| 2469e0 | 6c 6c 24 20 73 62 63 6c 0a 2a 20 28 6d 61 70 63 20 27 72 65 71 75 69 72 65 20 27 28 73 62 2d 62 | ll$.sbcl.*.(mapc.'require.'(sb-b |
| 246a00 | 73 64 2d 73 6f 63 6b 65 74 73 20 73 62 2d 70 6f 73 69 78 20 73 62 2d 69 6e 74 72 6f 73 70 65 63 | sd-sockets.sb-posix.sb-introspec |
| 246a20 | 74 20 73 62 2d 63 6c 74 6c 32 20 61 73 64 66 29 29 0a 2a 20 28 73 61 76 65 2d 6c 69 73 70 2d 61 | t.sb-cltl2.asdf)).*.(save-lisp-a |
| 246a40 | 6e 64 2d 64 69 65 20 22 73 62 63 6c 2e 63 6f 72 65 2d 66 6f 72 2d 73 6c 69 6d 65 22 29 0a 40 65 | nd-die."sbcl.core-for-slime").@e |
| 246a60 | 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 41 66 74 65 72 20 74 68 61 74 2c 20 61 64 64 20 73 6f 6d 65 | nd.example..After.that,.add.some |
| 246a80 | 74 68 69 6e 67 20 6c 69 6b 65 20 74 68 69 73 20 74 6f 20 79 6f 75 72 20 40 66 69 6c 65 7b 2e 65 | thing.like.this.to.your.@file{.e |
| 246aa0 | 6d 61 63 73 7d 3a 0a 0a 40 6c 69 73 70 0a 28 73 65 74 71 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 | macs}:..@lisp.(setq.slime-lisp-i |
| 246ac0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 27 28 28 73 62 63 6c 20 28 22 73 | mplementations.......'((sbcl.("s |
| 246ae0 | 62 63 6c 22 20 22 2d 2d 63 6f 72 65 22 20 22 73 62 63 6c 2e 63 6f 72 65 2d 66 6f 72 2d 73 6c 69 | bcl"."--core"."sbcl.core-for-sli |
| 246b00 | 6d 65 22 29 29 29 29 0a 40 65 6e 64 20 6c 69 73 70 0a 0a 46 6f 72 20 6d 61 78 69 6d 75 6d 20 73 | me")))).@end.lisp..For.maximum.s |
| 246b20 | 74 61 72 74 75 70 20 73 70 65 65 64 20 79 6f 75 20 63 61 6e 20 69 6e 63 6c 75 64 65 20 74 68 65 | tartup.speed.you.can.include.the |
| 246b40 | 20 53 77 61 6e 6b 20 73 65 72 76 65 72 20 64 69 72 65 63 74 6c 79 20 69 6e 0a 61 20 63 6f 72 65 | .Swank.server.directly.in.a.core |
| 246b60 | 20 66 69 6c 65 2e 20 20 54 68 65 20 64 69 73 61 64 76 61 6e 74 61 67 65 20 6f 66 20 74 68 69 73 | .file...The.disadvantage.of.this |
| 246b80 | 20 61 70 70 72 6f 61 63 68 20 69 73 20 74 68 61 74 20 74 68 65 20 73 65 74 75 70 20 69 73 20 61 | .approach.is.that.the.setup.is.a |
| 246ba0 | 0a 62 69 74 20 6d 6f 72 65 20 69 6e 76 6f 6c 76 65 64 20 61 6e 64 20 74 68 61 74 20 79 6f 75 20 | .bit.more.involved.and.that.you. |
| 246bc0 | 6e 65 65 64 20 74 6f 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 63 6f 72 65 20 66 69 6c 65 20 77 | need.to.create.a.new.core.file.w |
| 246be0 | 68 65 6e 20 79 6f 75 0a 77 61 6e 74 20 74 6f 20 75 70 64 61 74 65 20 40 53 4c 49 4d 45 7b 7d 20 | hen.you.want.to.update.@SLIME{}. |
| 246c00 | 6f 72 20 40 61 63 72 6f 6e 79 6d 7b 53 42 43 4c 7d 2e 20 20 54 68 65 20 73 74 65 70 73 20 74 6f | or.@acronym{SBCL}...The.steps.to |
| 246c20 | 20 65 78 65 63 75 74 65 20 61 72 65 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 73 68 65 6c 6c 24 20 73 | .execute.are:..@example.shell$.s |
| 246c40 | 62 63 6c 0a 2a 20 28 6c 6f 61 64 20 22 2e 2e 2e 2f 73 6c 69 6d 65 2f 73 77 61 6e 6b 2d 6c 6f 61 | bcl.*.(load.".../slime/swank-loa |
| 246c60 | 64 65 72 2e 6c 69 73 70 22 29 0a 2a 20 28 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 64 75 6d 70 2d | der.lisp").*.(swank-loader:dump- |
| 246c80 | 69 6d 61 67 65 20 22 73 62 63 6c 2e 63 6f 72 65 2d 77 69 74 68 2d 73 77 61 6e 6b 22 29 0a 40 65 | image."sbcl.core-with-swank").@e |
| 246ca0 | 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 40 6e 6f 69 6e 64 65 6e 74 0a 54 68 65 6e 20 61 64 64 20 74 | nd.example..@noindent.Then.add.t |
| 246cc0 | 68 69 73 20 74 6f 20 79 6f 75 72 20 40 66 69 6c 65 7b 2e 65 6d 61 63 73 7d 3a 0a 0a 40 61 6e 63 | his.to.your.@file{.emacs}:..@anc |
| 246ce0 | 68 6f 72 7b 69 6e 69 74 2d 65 78 61 6d 70 6c 65 7d 0a 40 6c 69 73 70 0a 28 73 65 74 71 20 73 6c | hor{init-example}.@lisp.(setq.sl |
| 246d00 | 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 27 | ime-lisp-implementations.......' |
| 246d20 | 28 28 73 62 63 6c 20 28 22 73 62 63 6c 22 20 22 2d 2d 63 6f 72 65 22 20 22 73 62 63 6c 2e 63 6f | ((sbcl.("sbcl"."--core"."sbcl.co |
| 246d40 | 72 65 2d 77 69 74 68 2d 73 77 61 6e 6b 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 | re-with-swank")...............:i |
| 246d60 | 6e 69 74 20 28 6c 61 6d 62 64 61 20 28 70 6f 72 74 2d 66 69 6c 65 20 5f 29 0a 20 20 20 20 20 20 | nit.(lambda.(port-file._)....... |
| 246d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 73 77 61 6e 6b 3a | ................(format."(swank: |
| 246da0 | 73 74 61 72 74 2d 73 65 72 76 65 72 20 25 53 29 5c 6e 22 20 70 6f 72 74 2d 66 69 6c 65 29 29 29 | start-server.%S)\n".port-file))) |
| 246dc0 | 29 29 0a 40 65 6e 64 20 6c 69 73 70 0a 0a 40 6e 6f 69 6e 64 65 6e 74 0a 53 69 6d 69 6c 61 72 20 | )).@end.lisp..@noindent.Similar. |
| 246de0 | 73 65 74 75 70 73 20 73 68 6f 75 6c 64 20 61 6c 73 6f 20 77 6f 72 6b 20 66 6f 72 20 6f 74 68 65 | setups.should.also.work.for.othe |
| 246e00 | 72 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 0a 0a 40 6e 6f 64 65 20 53 | r.Lisp.implementations...@node.S |
| 246e20 | 4c 49 4d 45 20 6d 6f 64 65 0a 40 63 68 61 70 74 65 72 20 55 73 69 6e 67 20 53 6c 69 6d 65 20 6d | LIME.mode.@chapter.Using.Slime.m |
| 246e40 | 6f 64 65 0a 0a 40 53 4c 49 4d 45 7b 7d 27 73 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 70 72 6f | ode..@SLIME{}'s.commands.are.pro |
| 246e60 | 76 69 64 65 64 20 76 69 61 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 6d 6f 64 65 7d 2c 20 61 20 6d | vided.via.@code{slime-mode},.a.m |
| 246e80 | 69 6e 6f 72 2d 6d 6f 64 65 0a 75 73 65 64 20 69 6e 20 63 6f 6e 6a 75 6e 63 74 69 6f 6e 20 77 69 | inor-mode.used.in.conjunction.wi |
| 246ea0 | 74 68 20 45 6d 61 63 73 27 73 20 40 63 6f 64 65 7b 6c 69 73 70 2d 6d 6f 64 65 7d 2e 20 54 68 69 | th.Emacs's.@code{lisp-mode}..Thi |
| 246ec0 | 73 20 63 68 61 70 74 65 72 0a 64 65 73 63 72 69 62 65 73 20 74 68 65 20 40 63 6f 64 65 7b 73 6c | s.chapter.describes.the.@code{sl |
| 246ee0 | 69 6d 65 2d 6d 6f 64 65 7d 20 61 6e 64 20 69 74 73 20 72 65 6c 61 74 69 76 65 73 2e 0a 0a 40 6d | ime-mode}.and.its.relatives...@m |
| 246f00 | 65 6e 75 0a 2a 20 55 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 | enu.*.User-interface.conventions |
| 246f20 | 3a 3a 0a 2a 20 45 76 61 6c 75 61 74 69 6f 6e 3a 3a 0a 2a 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 3a | ::.*.Evaluation::.*.Compilation: |
| 246f40 | 3a 0a 2a 20 43 6f 6d 70 6c 65 74 69 6f 6e 3a 3a 0a 2a 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e | :.*.Completion::.*.Finding.defin |
| 246f60 | 69 74 69 6f 6e 73 3a 3a 0a 2a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 3a 0a 2a 20 43 72 6f | itions::.*.Documentation::.*.Cro |
| 246f80 | 73 73 2d 72 65 66 65 72 65 6e 63 65 3a 3a 0a 2a 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e | ss-reference::.*.Macro-expansion |
| 246fa0 | 3a 3a 0a 2a 20 44 69 73 61 73 73 65 6d 62 6c 79 3a 3a 0a 2a 20 52 65 63 6f 76 65 72 79 3a 3a 0a | ::.*.Disassembly::.*.Recovery::. |
| 246fc0 | 2a 20 49 6e 73 70 65 63 74 6f 72 3a 3a 0a 2a 20 50 72 6f 66 69 6c 69 6e 67 3a 3a 0a 2a 20 4f 74 | *.Inspector::.*.Profiling::.*.Ot |
| 246fe0 | 68 65 72 3a 3a 0a 2a 20 53 65 6d 61 6e 74 69 63 20 69 6e 64 65 6e 74 61 74 69 6f 6e 3a 3a 0a 2a | her::.*.Semantic.indentation::.* |
| 247000 | 20 52 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 | .Reader.conditionals::.@end.menu |
| 247020 | 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f | ..@c.-----------------------.@no |
| 247040 | 64 65 20 55 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 0a 40 73 | de.User-interface.conventions.@s |
| 247060 | 65 63 74 69 6f 6e 20 55 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e | ection.User-interface.convention |
| 247080 | 73 0a 0a 54 6f 20 75 73 65 20 40 53 4c 49 4d 45 7b 7d 20 63 6f 6d 66 6f 72 74 61 62 6c 79 20 69 | s..To.use.@SLIME{}.comfortably.i |
| 2470a0 | 74 20 69 73 20 69 6d 70 6f 72 74 61 6e 74 20 74 6f 20 75 6e 64 65 72 73 74 61 6e 64 20 61 20 66 | t.is.important.to.understand.a.f |
| 2470c0 | 65 77 0a 60 60 67 6c 6f 62 61 6c 27 27 20 75 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 63 68 61 | ew.``global''.user-interface.cha |
| 2470e0 | 72 61 63 74 65 72 69 73 74 69 63 73 2e 20 54 68 65 20 6d 6f 73 74 20 69 6d 70 6f 72 74 61 6e 74 | racteristics..The.most.important |
| 247100 | 0a 70 72 69 6e 63 69 70 6c 65 73 20 61 72 65 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 74 68 69 | .principles.are.described.in.thi |
| 247120 | 73 20 73 65 63 74 69 6f 6e 2e 0a 0a 40 6d 65 6e 75 0a 2a 20 54 65 6d 70 6f 72 61 72 79 20 62 75 | s.section...@menu.*.Temporary.bu |
| 247140 | 66 66 65 72 73 3a 3a 0a 2a 20 49 6e 66 65 72 69 6f 72 2d 6c 69 73 70 3a 3a 0a 2a 20 4d 75 6c 74 | ffers::.*.Inferior-lisp::.*.Mult |
| 247160 | 69 74 68 72 65 61 64 69 6e 67 3a 3a 0a 2a 20 4b 65 79 20 62 69 6e 64 69 6e 67 73 3a 3a 0a 40 65 | ithreading::.*.Key.bindings::.@e |
| 247180 | 6e 64 20 6d 65 6e 75 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | nd.menu..@c.-------------------- |
| 2471a0 | 2d 2d 2d 0a 40 6e 6f 64 65 20 54 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 0a 40 73 75 62 | ---.@node.Temporary.buffers.@sub |
| 2471c0 | 73 65 63 74 69 6f 6e 20 54 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 0a 0a 53 6f 6d 65 20 | section.Temporary.buffers..Some. |
| 2471e0 | 40 53 4c 49 4d 45 7b 7d 20 63 6f 6d 6d 61 6e 64 73 20 63 72 65 61 74 65 20 74 65 6d 70 6f 72 61 | @SLIME{}.commands.create.tempora |
| 247200 | 72 79 20 62 75 66 66 65 72 73 20 74 6f 20 64 69 73 70 6c 61 79 20 74 68 65 69 72 0a 72 65 73 75 | ry.buffers.to.display.their.resu |
| 247220 | 6c 74 73 2e 20 41 6c 74 68 6f 75 67 68 20 74 68 65 73 65 20 62 75 66 66 65 72 73 20 75 73 75 61 | lts..Although.these.buffers.usua |
| 247240 | 6c 6c 79 20 68 61 76 65 20 74 68 65 69 72 20 6f 77 6e 20 73 70 65 63 69 61 6c 2d 70 75 72 70 6f | lly.have.their.own.special-purpo |
| 247260 | 73 65 0a 6d 61 6a 6f 72 2d 6d 6f 64 65 73 2c 20 63 65 72 74 61 69 6e 20 63 6f 6e 76 65 6e 74 69 | se.major-modes,.certain.conventi |
| 247280 | 6f 6e 73 20 61 72 65 20 6f 62 73 65 72 76 65 64 20 74 68 72 6f 75 67 68 6f 75 74 2e 0a 0a 54 65 | ons.are.observed.throughout...Te |
| 2472a0 | 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 20 63 61 6e 20 62 65 20 64 69 73 6d 69 73 73 65 64 | mporary.buffers.can.be.dismissed |
| 2472c0 | 20 62 79 20 70 72 65 73 73 69 6e 67 20 40 6b 62 64 7b 71 7d 2e 20 54 68 69 73 20 6b 69 6c 6c 73 | .by.pressing.@kbd{q}..This.kills |
| 2472e0 | 20 74 68 65 0a 62 75 66 66 65 72 20 61 6e 64 20 72 65 73 74 6f 72 65 73 20 74 68 65 20 77 69 6e | .the.buffer.and.restores.the.win |
| 247300 | 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 61 73 20 69 74 20 77 61 73 20 62 65 66 6f | dow.configuration.as.it.was.befo |
| 247320 | 72 65 20 74 68 65 0a 62 75 66 66 65 72 20 77 61 73 20 64 69 73 70 6c 61 79 65 64 2e 20 54 65 6d | re.the.buffer.was.displayed..Tem |
| 247340 | 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 20 63 61 6e 20 61 6c 73 6f 20 62 65 20 6b 69 6c 6c 65 | porary.buffers.can.also.be.kille |
| 247360 | 64 20 77 69 74 68 20 74 68 65 0a 75 73 75 61 6c 20 63 6f 6d 6d 61 6e 64 73 20 6c 69 6b 65 20 40 | d.with.the.usual.commands.like.@ |
| 247380 | 63 6f 64 65 7b 6b 69 6c 6c 2d 62 75 66 66 65 72 7d 2c 20 69 6e 20 77 68 69 63 68 20 63 61 73 65 | code{kill-buffer},.in.which.case |
| 2473a0 | 20 74 68 65 20 70 72 65 76 69 6f 75 73 0a 77 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 | .the.previous.window.configurati |
| 2473c0 | 6f 6e 20 77 6f 6e 27 74 20 62 65 20 72 65 73 74 6f 72 65 64 2e 0a 0a 50 72 65 73 73 69 6e 67 20 | on.won't.be.restored...Pressing. |
| 2473e0 | 40 6b 62 64 7b 52 45 54 7d 20 69 73 20 73 75 70 70 6f 73 65 64 20 74 6f 20 60 60 64 6f 20 74 68 | @kbd{RET}.is.supposed.to.``do.th |
| 247400 | 65 20 6d 6f 73 74 20 6f 62 76 69 6f 75 73 20 75 73 65 66 75 6c 0a 74 68 69 6e 67 2e 27 27 20 46 | e.most.obvious.useful.thing.''.F |
| 247420 | 6f 72 20 69 6e 73 74 61 6e 63 65 2c 20 69 6e 20 61 6e 20 61 70 72 6f 70 6f 73 20 62 75 66 66 65 | or.instance,.in.an.apropos.buffe |
| 247440 | 72 20 74 68 69 73 20 70 72 69 6e 74 73 20 61 20 66 75 6c 6c 0a 64 65 73 63 72 69 70 74 69 6f 6e | r.this.prints.a.full.description |
| 247460 | 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2c 20 61 6e 64 20 69 6e 20 | .of.the.symbol.at.point,.and.in. |
| 247480 | 61 6e 20 40 61 63 72 6f 6e 79 6d 7b 58 52 45 46 7d 20 62 75 66 66 65 72 20 69 74 0a 64 69 73 70 | an.@acronym{XREF}.buffer.it.disp |
| 2474a0 | 6c 61 79 73 20 74 68 65 20 73 6f 75 72 63 65 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20 72 65 66 | lays.the.source.code.for.the.ref |
| 2474c0 | 65 72 65 6e 63 65 20 61 74 20 70 6f 69 6e 74 2e 20 54 68 69 73 20 63 6f 6e 76 65 6e 74 69 6f 6e | erence.at.point..This.convention |
| 2474e0 | 0a 69 73 20 69 6e 68 65 72 69 74 65 64 20 66 72 6f 6d 20 45 6d 61 63 73 27 73 20 6f 77 6e 20 62 | .is.inherited.from.Emacs's.own.b |
| 247500 | 75 66 66 65 72 73 20 66 6f 72 20 61 70 72 6f 70 6f 73 20 6c 69 73 74 69 6e 67 73 2c 0a 63 6f 6d | uffers.for.apropos.listings,.com |
| 247520 | 70 69 6c 61 74 69 6f 6e 20 72 65 73 75 6c 74 73 2c 20 65 74 63 2e 0a 0a 54 65 6d 70 6f 72 61 72 | pilation.results,.etc...Temporar |
| 247540 | 79 20 62 75 66 66 65 72 73 20 63 6f 6e 74 61 69 6e 69 6e 67 20 4c 69 73 70 20 73 79 6d 62 6f 6c | y.buffers.containing.Lisp.symbol |
| 247560 | 73 20 75 73 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 6d 6f 64 65 7d 20 69 6e 0a 61 64 64 69 74 | s.use.@code{slime-mode}.in.addit |
| 247580 | 69 6f 6e 20 74 6f 20 61 6e 79 20 73 70 65 63 69 61 6c 20 6d 6f 64 65 20 6f 66 20 74 68 65 69 72 | ion.to.any.special.mode.of.their |
| 2475a0 | 20 6f 77 6e 2e 20 54 68 69 73 20 6d 61 6b 65 73 20 74 68 65 20 75 73 75 61 6c 0a 40 53 4c 49 4d | .own..This.makes.the.usual.@SLIM |
| 2475c0 | 45 7b 7d 20 63 6f 6d 6d 61 6e 64 73 20 61 76 61 69 6c 61 62 6c 65 20 66 6f 72 20 64 65 73 63 72 | E{}.commands.available.for.descr |
| 2475e0 | 69 62 69 6e 67 20 73 79 6d 62 6f 6c 73 2c 20 6c 6f 6f 6b 69 6e 67 20 75 70 0a 66 75 6e 63 74 69 | ibing.symbols,.looking.up.functi |
| 247600 | 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 73 2c 20 61 6e 64 20 73 6f 20 6f 6e 2e 0a 0a 40 76 69 6e | on.definitions,.and.so.on...@vin |
| 247620 | 64 65 78 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 70 74 69 6f 6e 2d 61 75 74 6f 66 6f 63 75 73 0a | dex.slime-description-autofocus. |
| 247640 | 49 6e 69 74 69 61 6c 20 66 6f 63 75 73 20 6f 66 20 74 68 6f 73 65 20 60 60 64 65 73 63 72 69 70 | Initial.focus.of.those.``descrip |
| 247660 | 74 69 6f 6e 27 27 20 62 75 66 66 65 72 73 20 64 65 70 65 6e 64 73 20 6f 6e 20 74 68 65 20 76 61 | tion''.buffers.depends.on.the.va |
| 247680 | 72 69 61 62 6c 65 0a 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 64 65 73 63 72 69 70 74 69 6f 6e 2d 61 | riable.@code{slime-description-a |
| 2476a0 | 75 74 6f 66 6f 63 75 73 7d 2e 20 49 66 20 40 63 6f 64 65 7b 6e 69 6c 7d 20 28 74 68 65 20 64 65 | utofocus}..If.@code{nil}.(the.de |
| 2476c0 | 66 61 75 6c 74 29 2c 0a 64 65 73 63 72 69 70 74 69 6f 6e 20 62 75 66 66 65 72 73 20 64 6f 20 6e | fault),.description.buffers.do.n |
| 2476e0 | 6f 74 20 72 65 63 65 69 76 65 20 66 6f 63 75 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 2c 20 | ot.receive.focus.automatically,. |
| 247700 | 61 6e 64 20 76 69 63 65 0a 76 65 72 73 61 2e 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | and.vice.versa...@c.------------ |
| 247720 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 49 6e 66 65 72 69 6f 72 2d 6c 69 73 70 0a | -----------.@node.Inferior-lisp. |
| 247740 | 40 73 75 62 73 65 63 74 69 6f 6e 20 40 63 6f 64 65 7b 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 | @subsection.@code{*inferior-lisp |
| 247760 | 2a 7d 20 62 75 66 66 65 72 0a 0a 40 53 4c 49 4d 45 7b 7d 20 69 6e 74 65 72 6e 61 6c 6c 79 20 75 | *}.buffer..@SLIME{}.internally.u |
| 247780 | 73 65 73 20 74 68 65 20 40 63 6f 64 65 7b 63 6f 6d 69 6e 74 7d 20 70 61 63 6b 61 67 65 20 74 6f | ses.the.@code{comint}.package.to |
| 2477a0 | 20 73 74 61 72 74 20 4c 69 73 70 0a 70 72 6f 63 65 73 73 65 73 2e 20 54 68 69 73 20 68 61 73 20 | .start.Lisp.processes..This.has. |
| 2477c0 | 61 20 66 65 77 20 75 73 65 72 2d 76 69 73 69 62 6c 65 20 63 6f 6e 73 65 71 75 65 6e 63 65 73 2c | a.few.user-visible.consequences, |
| 2477e0 | 20 73 6f 6d 65 20 67 6f 6f 64 20 61 6e 64 0a 73 6f 6d 65 20 6e 6f 74 2d 73 6f 2d 74 65 72 72 69 | .some.good.and.some.not-so-terri |
| 247800 | 62 6c 79 2e 20 54 6f 20 61 76 6f 69 64 20 63 6f 6e 66 75 73 69 6f 6e 20 69 74 20 69 73 20 75 73 | bly..To.avoid.confusion.it.is.us |
| 247820 | 65 66 75 6c 20 74 6f 20 75 6e 64 65 72 73 74 61 6e 64 0a 74 68 65 20 69 6e 74 65 72 61 63 74 69 | eful.to.understand.the.interacti |
| 247840 | 6f 6e 73 2e 0a 0a 54 68 65 20 62 75 66 66 65 72 20 40 63 6f 64 65 7b 2a 69 6e 66 65 72 69 6f 72 | ons...The.buffer.@code{*inferior |
| 247860 | 2d 6c 69 73 70 2a 7d 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 | -lisp*}.contains.the.Lisp.proces |
| 247880 | 73 27 73 20 6f 77 6e 0a 74 6f 70 2d 6c 65 76 65 6c 2e 20 54 68 69 73 20 64 69 72 65 63 74 20 61 | s's.own.top-level..This.direct.a |
| 2478a0 | 63 63 65 73 73 20 74 6f 20 4c 69 73 70 20 69 73 20 75 73 65 66 75 6c 20 66 6f 72 20 74 72 6f 75 | ccess.to.Lisp.is.useful.for.trou |
| 2478c0 | 62 6c 65 73 68 6f 6f 74 69 6e 67 2c 0a 61 6e 64 20 73 6f 6d 65 20 64 65 67 72 65 65 20 6f 66 20 | bleshooting,.and.some.degree.of. |
| 2478e0 | 40 53 4c 49 4d 45 7b 7d 20 69 6e 74 65 67 72 61 74 69 6f 6e 20 69 73 20 61 76 61 69 6c 61 62 6c | @SLIME{}.integration.is.availabl |
| 247900 | 65 20 75 73 69 6e 67 20 74 68 65 0a 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2e | e.using.the.inferior-slime-mode. |
| 247920 | 20 20 4d 61 6e 79 20 70 65 6f 70 6c 65 20 6c 6f 61 64 20 74 68 65 20 62 65 74 74 65 72 20 69 6e | ..Many.people.load.the.better.in |
| 247940 | 74 65 67 72 61 74 65 64 20 40 53 4c 49 4d 45 7b 7d 0a 40 52 45 50 4c 7b 7d 20 63 6f 6e 74 72 69 | tegrated.@SLIME{}.@REPL{}.contri |
| 247960 | 62 20 6d 6f 64 75 6c 65 20 28 40 70 78 72 65 66 7b 52 45 50 4c 7d 29 20 61 6e 64 20 69 67 6e 6f | b.module.(@pxref{REPL}).and.igno |
| 247980 | 72 65 0a 74 68 65 20 40 63 6f 64 65 7b 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 7d 20 62 75 | re.the.@code{*inferior-lisp*}.bu |
| 2479a0 | 66 66 65 72 2e 20 20 28 40 70 78 72 65 66 7b 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 7d | ffer...(@pxref{Loading.Contribs} |
| 2479c0 | 20 66 6f 72 0a 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 68 6f 77 20 74 6f 20 65 6e 61 62 6c | .for.information.on.how.to.enabl |
| 2479e0 | 65 20 74 68 65 20 52 45 50 4c 2e 29 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | e.the.REPL.)..@c.--------------- |
| 247a00 | 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 0a 40 73 | --------.@node.Multithreading.@s |
| 247a20 | 75 62 73 65 63 74 69 6f 6e 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 0a 0a 49 66 20 74 68 65 | ubsection.Multithreading..If.the |
| 247a40 | 20 4c 69 73 70 20 73 79 73 74 65 6d 20 73 75 70 70 6f 72 74 73 20 6d 75 6c 74 69 74 68 72 65 61 | .Lisp.system.supports.multithrea |
| 247a60 | 64 69 6e 67 2c 20 53 4c 49 4d 45 20 73 70 61 77 6e 73 20 61 20 6e 65 77 20 74 68 72 65 61 64 0a | ding,.SLIME.spawns.a.new.thread. |
| 247a80 | 66 6f 72 20 65 61 63 68 20 72 65 71 75 65 73 74 2c 20 65 2e 67 2e 2c 20 40 6b 62 64 7b 43 2d 78 | for.each.request,.e.g.,.@kbd{C-x |
| 247aa0 | 20 43 2d 65 7d 20 63 72 65 61 74 65 73 20 61 20 6e 65 77 20 74 68 72 65 61 64 20 74 6f 20 65 76 | .C-e}.creates.a.new.thread.to.ev |
| 247ac0 | 61 6c 75 61 74 65 0a 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 2e 20 20 41 6e 20 65 78 63 65 70 | aluate.the.expression...An.excep |
| 247ae0 | 74 69 6f 6e 20 74 6f 20 74 68 69 73 20 72 75 6c 65 20 61 72 65 20 72 65 71 75 65 73 74 73 20 66 | tion.to.this.rule.are.requests.f |
| 247b00 | 72 6f 6d 20 74 68 65 0a 40 52 45 50 4c 7b 7d 3a 20 61 6c 6c 20 63 6f 6d 6d 61 6e 64 73 20 65 6e | rom.the.@REPL{}:.all.commands.en |
| 247b20 | 74 65 72 65 64 20 69 6e 20 74 68 65 20 40 52 45 50 4c 7b 7d 20 62 75 66 66 65 72 20 61 72 65 20 | tered.in.the.@REPL{}.buffer.are. |
| 247b40 | 65 76 61 6c 75 61 74 65 64 20 69 6e 20 61 0a 64 65 64 69 63 61 74 65 64 20 40 52 45 50 4c 7b 7d | evaluated.in.a.dedicated.@REPL{} |
| 247b60 | 20 74 68 72 65 61 64 2e 0a 0a 53 6f 6d 65 20 63 6f 6d 70 6c 69 63 61 74 69 6f 6e 73 20 61 72 69 | .thread...Some.complications.ari |
| 247b80 | 73 65 20 77 69 74 68 20 6d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 20 61 6e 64 20 73 70 65 63 69 | se.with.multithreading.and.speci |
| 247ba0 | 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 0a 4e 6f 6e 2d 67 6c 6f 62 61 6c 20 73 70 65 63 69 61 6c | al.variables..Non-global.special |
| 247bc0 | 20 62 69 6e 64 69 6e 67 73 20 61 72 65 20 74 68 72 65 61 64 2d 6c 6f 63 61 6c 2c 20 65 2e 67 2e | .bindings.are.thread-local,.e.g. |
| 247be0 | 2c 20 63 68 61 6e 67 69 6e 67 20 74 68 65 20 76 61 6c 75 65 0a 6f 66 20 61 20 6c 65 74 20 62 6f | ,.changing.the.value.of.a.let.bo |
| 247c00 | 75 6e 64 20 73 70 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 20 69 6e 20 6f 6e 65 20 74 68 72 65 | und.special.variable.in.one.thre |
| 247c20 | 61 64 20 68 61 73 20 6e 6f 20 65 66 66 65 63 74 20 6f 6e 20 74 68 65 0a 62 69 6e 64 69 6e 67 20 | ad.has.no.effect.on.the.binding. |
| 247c40 | 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 73 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 6e | of.the.variables.with.the.same.n |
| 247c60 | 61 6d 65 20 69 6e 20 6f 74 68 65 72 20 74 68 72 65 61 64 73 2e 20 20 54 68 69 73 0a 6d 61 6b 65 | ame.in.other.threads...This.make |
| 247c80 | 73 20 69 74 20 73 6f 6d 65 74 69 6d 65 73 20 64 69 66 66 69 63 75 6c 74 20 74 6f 20 63 68 61 6e | s.it.sometimes.difficult.to.chan |
| 247ca0 | 67 65 20 74 68 65 20 70 72 69 6e 74 65 72 20 6f 72 20 72 65 61 64 65 72 20 62 65 68 61 76 69 6f | ge.the.printer.or.reader.behavio |
| 247cc0 | 75 72 0a 66 6f 72 20 6e 65 77 20 74 68 72 65 61 64 73 2e 20 20 54 68 65 20 76 61 72 69 61 62 6c | ur.for.new.threads...The.variabl |
| 247ce0 | 65 0a 40 63 6f 64 65 7b 73 77 61 6e 6b 3a 2a 64 65 66 61 75 6c 74 2d 77 6f 72 6b 65 72 2d 74 68 | e.@code{swank:*default-worker-th |
| 247d00 | 72 65 61 64 2d 62 69 6e 64 69 6e 67 73 2a 7d 20 77 61 73 20 69 6e 74 72 6f 64 75 63 65 64 20 66 | read-bindings*}.was.introduced.f |
| 247d20 | 6f 72 20 73 75 63 68 0a 73 69 74 75 61 74 69 6f 6e 73 3a 20 69 6e 73 74 65 61 64 20 6f 66 20 6d | or.such.situations:.instead.of.m |
| 247d40 | 6f 64 69 66 79 69 6e 67 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 6c 75 65 20 6f 66 20 61 20 76 | odifying.the.global.value.of.a.v |
| 247d60 | 61 72 69 61 62 6c 65 2c 20 61 64 64 20 61 0a 62 69 6e 64 69 6e 67 20 74 68 65 20 40 63 6f 64 65 | ariable,.add.a.binding.the.@code |
| 247d80 | 7b 73 77 61 6e 6b 3a 2a 64 65 66 61 75 6c 74 2d 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 2d 62 69 | {swank:*default-worker-thread-bi |
| 247da0 | 6e 64 69 6e 67 73 2a 7d 2e 20 20 45 2e 67 2e 2c 20 77 69 74 68 0a 74 68 65 20 66 6f 6c 6c 6f 77 | ndings*}...E.g.,.with.the.follow |
| 247dc0 | 69 6e 67 20 63 6f 64 65 2c 20 6e 65 77 20 74 68 72 65 61 64 73 20 77 69 6c 6c 20 72 65 61 64 20 | ing.code,.new.threads.will.read. |
| 247de0 | 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 76 61 6c 75 65 73 20 61 73 0a 64 6f 75 62 6c 65 73 | floating.point.values.as.doubles |
| 247e00 | 20 62 79 20 64 65 66 61 75 6c 74 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 28 70 75 73 68 20 27 28 2a | .by.default:..@example.(push.'(* |
| 247e20 | 72 65 61 64 2d 64 65 66 61 75 6c 74 2d 66 6c 6f 61 74 2d 66 6f 72 6d 61 74 2a 20 2e 20 64 6f 75 | read-default-float-format*...dou |
| 247e40 | 62 6c 65 2d 66 6c 6f 61 74 29 0a 20 20 20 20 20 20 20 73 77 61 6e 6b 3a 2a 64 65 66 61 75 6c 74 | ble-float)........swank:*default |
| 247e60 | 2d 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 2d 62 69 6e 64 69 6e 67 73 2a 29 2e 0a 40 65 6e 64 20 | -worker-thread-bindings*)..@end. |
| 247e80 | 65 78 61 6d 70 6c 65 0a 0a 0a 40 6e 6f 64 65 20 4b 65 79 20 62 69 6e 64 69 6e 67 73 0a 40 73 75 | example...@node.Key.bindings.@su |
| 247ea0 | 62 73 65 63 74 69 6f 6e 20 4b 65 79 20 62 69 6e 64 69 6e 67 73 0a 0a 49 6e 20 67 65 6e 65 72 61 | bsection.Key.bindings..In.genera |
| 247ec0 | 6c 20 77 65 20 74 72 79 20 74 6f 20 6d 61 6b 65 20 6f 75 72 20 6b 65 79 20 62 69 6e 64 69 6e 67 | l.we.try.to.make.our.key.binding |
| 247ee0 | 73 20 66 69 74 20 77 69 74 68 20 74 68 65 20 6f 76 65 72 61 6c 6c 20 45 6d 61 63 73 0a 73 74 79 | s.fit.with.the.overall.Emacs.sty |
| 247f00 | 6c 65 2e 20 57 65 20 61 6c 73 6f 20 68 61 76 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 | le..We.also.have.the.following.s |
| 247f20 | 6f 6d 65 77 68 61 74 20 75 6e 75 73 75 61 6c 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 6f 66 20 6f 75 | omewhat.unusual.convention.of.ou |
| 247f40 | 72 0a 6f 77 6e 3a 20 77 68 65 6e 20 65 6e 74 65 72 69 6e 67 20 61 20 74 68 72 65 65 2d 6b 65 79 | r.own:.when.entering.a.three-key |
| 247f60 | 20 73 65 71 75 65 6e 63 65 2c 20 74 68 65 20 66 69 6e 61 6c 20 6b 65 79 20 63 61 6e 20 62 65 20 | .sequence,.the.final.key.can.be. |
| 247f80 | 70 72 65 73 73 65 64 0a 65 69 74 68 65 72 20 77 69 74 68 20 63 6f 6e 74 72 6f 6c 20 6f 72 20 75 | pressed.either.with.control.or.u |
| 247fa0 | 6e 6d 6f 64 69 66 69 65 64 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 65 0a 40 63 6f 64 | nmodified..For.example,.the.@cod |
| 247fc0 | 65 7b 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 7d 20 63 6f 6d 6d 61 6e 64 | e{slime-describe-symbol}.command |
| 247fe0 | 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 40 6b 62 64 7b 43 2d 63 20 43 2d 64 20 64 7d 2c 20 62 75 | .is.bound.to.@kbd{C-c.C-d.d},.bu |
| 248000 | 74 0a 69 74 20 61 6c 73 6f 20 77 6f 72 6b 73 20 74 6f 20 74 79 70 65 20 40 6b 62 64 7b 43 2d 63 | t.it.also.works.to.type.@kbd{C-c |
| 248020 | 20 43 2d 64 20 43 2d 64 7d 2e 20 57 65 27 72 65 20 73 69 6d 70 6c 79 20 62 69 6e 64 69 6e 67 20 | .C-d.C-d}..We're.simply.binding. |
| 248040 | 62 6f 74 68 20 6b 65 79 0a 73 65 71 75 65 6e 63 65 73 20 62 65 63 61 75 73 65 20 73 6f 6d 65 20 | both.key.sequences.because.some. |
| 248060 | 70 65 6f 70 6c 65 20 6c 69 6b 65 20 74 6f 20 68 6f 6c 64 20 63 6f 6e 74 72 6f 6c 20 66 6f 72 20 | people.like.to.hold.control.for. |
| 248080 | 61 6c 6c 20 74 68 72 65 65 20 6b 65 79 73 0a 61 6e 64 20 6f 74 68 65 72 73 20 64 6f 6e 27 74 2c | all.three.keys.and.others.don't, |
| 2480a0 | 20 61 6e 64 20 77 69 74 68 20 74 68 65 20 74 77 6f 2d 6b 65 79 20 70 72 65 66 69 78 20 77 65 27 | .and.with.the.two-key.prefix.we' |
| 2480c0 | 72 65 20 6e 6f 74 20 61 66 72 61 69 64 20 6f 66 0a 72 75 6e 6e 69 6e 67 20 6f 75 74 20 6f 66 20 | re.not.afraid.of.running.out.of. |
| 2480e0 | 6b 65 79 73 2e 0a 0a 54 68 65 72 65 20 69 73 20 6f 6e 65 20 65 78 63 65 70 74 69 6f 6e 20 74 6f | keys...There.is.one.exception.to |
| 248100 | 20 74 68 69 73 20 72 75 6c 65 2c 20 6a 75 73 74 20 74 6f 20 74 72 69 70 20 79 6f 75 20 75 70 2e | .this.rule,.just.to.trip.you.up. |
| 248120 | 20 57 65 20 6e 65 76 65 72 0a 62 69 6e 64 20 40 6b 62 64 7b 43 2d 68 7d 20 61 6e 79 77 68 65 72 | .We.never.bind.@kbd{C-h}.anywher |
| 248140 | 65 20 69 6e 20 61 20 6b 65 79 20 73 65 71 75 65 6e 63 65 2c 20 73 6f 20 40 6b 62 64 7b 43 2d 63 | e.in.a.key.sequence,.so.@kbd{C-c |
| 248160 | 20 43 2d 64 20 43 2d 68 7d 0a 64 6f 65 73 6e 27 74 20 64 6f 20 74 68 65 20 73 61 6d 65 20 74 68 | .C-d.C-h}.doesn't.do.the.same.th |
| 248180 | 69 6e 67 20 61 73 20 40 6b 62 64 7b 43 2d 63 20 43 2d 64 20 68 7d 2e 20 54 68 69 73 20 69 73 20 | ing.as.@kbd{C-c.C-d.h}..This.is. |
| 2481a0 | 62 65 63 61 75 73 65 20 45 6d 61 63 73 0a 68 61 73 20 61 20 62 75 69 6c 74 2d 69 6e 20 64 65 66 | because.Emacs.has.a.built-in.def |
| 2481c0 | 61 75 6c 74 20 73 6f 20 74 68 61 74 20 74 79 70 69 6e 67 20 61 20 70 72 65 66 69 78 20 66 6f 6c | ault.so.that.typing.a.prefix.fol |
| 2481e0 | 6c 6f 77 65 64 20 62 79 20 40 6b 62 64 7b 43 2d 68 7d 0a 77 69 6c 6c 20 64 69 73 70 6c 61 79 20 | lowed.by.@kbd{C-h}.will.display. |
| 248200 | 61 6c 6c 20 62 69 6e 64 69 6e 67 73 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 74 68 61 74 20 | all.bindings.starting.with.that. |
| 248220 | 70 72 65 66 69 78 2c 20 73 6f 20 40 6b 62 64 7b 43 2d 63 20 43 2d 64 0a 43 2d 68 7d 20 77 69 6c | prefix,.so.@kbd{C-c.C-d.C-h}.wil |
| 248240 | 6c 20 61 63 74 75 61 6c 6c 79 20 6c 69 73 74 20 74 68 65 20 62 69 6e 64 69 6e 67 73 20 66 6f 72 | l.actually.list.the.bindings.for |
| 248260 | 20 61 6c 6c 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 2e 0a 54 68 69 | .all.documentation.commands..Thi |
| 248280 | 73 20 66 65 61 74 75 72 65 20 69 73 20 6a 75 73 74 20 61 20 62 69 74 20 74 6f 6f 20 75 73 65 66 | s.feature.is.just.a.bit.too.usef |
| 2482a0 | 75 6c 20 74 6f 20 63 6c 6f 62 62 65 72 21 0a 0a 40 71 75 6f 74 61 74 69 6f 6e 0a 40 69 7b 60 60 | ul.to.clobber!..@quotation.@i{`` |
| 2482c0 | 41 72 65 20 79 6f 75 20 64 65 6c 69 62 65 72 61 74 65 6c 79 20 73 70 69 74 69 6e 67 20 45 6d 61 | Are.you.deliberately.spiting.Ema |
| 2482e0 | 63 73 27 73 20 62 72 69 6c 6c 69 61 6e 74 20 6f 6e 6c 69 6e 65 20 68 65 6c 70 20 66 61 63 69 6c | cs's.brilliant.online.help.facil |
| 248300 | 69 74 69 65 73 3f 20 54 68 65 20 67 6f 64 73 20 77 69 6c 6c 20 62 65 20 61 6e 67 72 79 21 27 27 | ities?.The.gods.will.be.angry!'' |
| 248320 | 7d 0a 40 65 6e 64 20 71 75 6f 74 61 74 69 6f 6e 0a 0a 40 6e 6f 69 6e 64 65 6e 74 20 54 68 69 73 | }.@end.quotation..@noindent.This |
| 248340 | 20 69 73 20 61 20 62 72 69 6c 6c 69 61 6e 74 20 70 69 65 63 65 20 6f 66 20 61 64 76 69 63 65 2e | .is.a.brilliant.piece.of.advice. |
| 248360 | 20 54 68 65 20 45 6d 61 63 73 20 6f 6e 6c 69 6e 65 20 68 65 6c 70 20 66 61 63 69 6c 69 74 69 65 | .The.Emacs.online.help.facilitie |
| 248380 | 73 0a 61 72 65 20 79 6f 75 72 20 6d 6f 73 74 20 69 6d 6d 65 64 69 61 74 65 2c 20 75 70 2d 74 6f | s.are.your.most.immediate,.up-to |
| 2483a0 | 2d 64 61 74 65 20 61 6e 64 20 63 6f 6d 70 6c 65 74 65 20 72 65 73 6f 75 72 63 65 20 66 6f 72 20 | -date.and.complete.resource.for. |
| 2483c0 | 6b 65 79 62 69 6e 64 69 6e 67 0a 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 20 54 68 65 79 20 61 72 65 | keybinding.information..They.are |
| 2483e0 | 20 79 6f 75 72 20 66 72 69 65 6e 64 73 3a 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 | .your.friends:..@table.@kbd.@kbd |
| 248400 | 61 6e 63 68 6f 72 63 7b 43 2d 68 20 6b 20 3c 6b 65 79 3e 2c 20 64 65 73 63 72 69 62 65 2d 6b 65 | anchorc{C-h.k.<key>,.describe-ke |
| 248420 | 79 2c 20 60 60 57 68 61 74 20 64 6f 65 73 20 74 68 69 73 20 6b 65 79 20 64 6f 3f 27 27 7d 0a 44 | y,.``What.does.this.key.do?''}.D |
| 248440 | 65 73 63 72 69 62 65 73 20 63 75 72 72 65 6e 74 20 66 75 6e 63 74 69 6f 6e 20 62 6f 75 6e 64 20 | escribes.current.function.bound. |
| 248460 | 74 6f 20 40 6b 62 64 7b 3c 6b 65 79 3e 7d 20 66 6f 72 20 66 6f 63 75 73 20 62 75 66 66 65 72 2e | to.@kbd{<key>}.for.focus.buffer. |
| 248480 | 0a 0a 40 6b 62 64 61 6e 63 68 6f 72 63 7b 43 2d 68 20 62 2c 20 64 65 73 63 72 69 62 65 2d 62 69 | ..@kbdanchorc{C-h.b,.describe-bi |
| 2484a0 | 6e 64 69 6e 67 73 2c 20 60 60 45 78 61 63 74 6c 79 20 77 68 61 74 20 62 69 6e 64 69 6e 67 73 20 | ndings,.``Exactly.what.bindings. |
| 2484c0 | 61 72 65 20 61 76 61 69 6c 61 62 6c 65 3f 27 27 7d 0a 4c 69 73 74 73 20 74 68 65 20 63 75 72 72 | are.available?''}.Lists.the.curr |
| 2484e0 | 65 6e 74 20 6b 65 79 2d 62 69 6e 64 69 6e 67 73 20 66 6f 72 20 74 68 65 20 66 6f 63 75 73 20 62 | ent.key-bindings.for.the.focus.b |
| 248500 | 75 66 66 65 72 2e 0a 0a 40 6b 62 64 61 6e 63 68 6f 72 63 7b 43 2d 68 20 6d 2c 20 64 65 73 63 72 | uffer...@kbdanchorc{C-h.m,.descr |
| 248520 | 69 62 65 2d 6d 6f 64 65 2c 20 60 60 54 65 6c 6c 20 6d 65 20 61 6c 6c 20 61 62 6f 75 74 20 74 68 | ibe-mode,.``Tell.me.all.about.th |
| 248540 | 69 73 20 6d 6f 64 65 27 27 7d 0a 53 68 6f 77 73 20 61 6c 6c 20 74 68 65 20 61 76 61 69 6c 61 62 | is.mode''}.Shows.all.the.availab |
| 248560 | 6c 65 20 6d 61 6a 6f 72 20 6d 6f 64 65 20 6b 65 79 73 2c 20 74 68 65 6e 20 74 68 65 20 6d 69 6e | le.major.mode.keys,.then.the.min |
| 248580 | 6f 72 20 6d 6f 64 65 20 6b 65 79 73 2c 20 66 6f 72 0a 74 68 65 20 6d 6f 64 65 73 20 6f 66 20 74 | or.mode.keys,.for.the.modes.of.t |
| 2485a0 | 68 65 20 66 6f 63 75 73 20 62 75 66 66 65 72 2e 0a 0a 40 6b 62 64 61 6e 63 68 6f 72 63 7b 43 2d | he.focus.buffer...@kbdanchorc{C- |
| 2485c0 | 68 20 6c 2c 20 76 69 65 77 2d 6c 6f 73 73 61 67 65 2c 20 60 60 57 6f 61 68 40 63 6f 6d 6d 61 7b | h.l,.view-lossage,.``Woah@comma{ |
| 2485e0 | 7d 20 77 68 61 74 20 6b 65 79 20 63 68 6f 72 64 20 64 69 64 20 49 20 6a 75 73 74 20 64 6f 3f 27 | }.what.key.chord.did.I.just.do?' |
| 248600 | 27 7d 0a 53 68 6f 77 73 20 79 6f 75 20 74 68 65 20 6c 69 74 65 72 61 6c 20 73 65 71 75 65 6e 63 | '}.Shows.you.the.literal.sequenc |
| 248620 | 65 20 6f 66 20 6b 65 79 73 20 79 6f 75 27 76 65 20 70 72 65 73 73 65 64 20 69 6e 20 6f 72 64 65 | e.of.keys.you've.pressed.in.orde |
| 248640 | 72 2e 0a 0a 40 63 20 3c 6b 65 79 3e 20 69 73 20 62 72 65 61 6b 73 20 6c 69 6e 6b 73 20 50 44 46 | r...@c.<key>.is.breaks.links.PDF |
| 248660 | 2c 20 64 65 73 70 69 74 65 20 74 68 61 74 20 69 74 27 73 20 6e 6f 74 20 6c 20 69 74 27 73 20 43 | ,.despite.that.it's.not.l.it's.C |
| 248680 | 2d 68 0a 40 63 20 40 6b 62 64 61 6e 63 68 6f 72 63 7b 20 3c 6b 65 79 3e 20 6c 2c 20 2c 20 60 60 | -h.@c.@kbdanchorc{.<key>.l,.,.`` |
| 2486a0 | 57 68 61 74 20 73 74 61 72 74 73 20 77 69 74 68 3f 27 27 7d 0a 40 63 20 4c 69 73 74 73 20 61 6c | What.starts.with?''}.@c.Lists.al |
| 2486c0 | 6c 20 6b 65 79 62 69 6e 64 69 6e 67 73 20 74 68 61 74 20 62 65 67 69 6e 20 77 69 74 68 20 40 63 | l.keybindings.that.begin.with.@c |
| 2486e0 | 6f 64 65 7b 3c 6b 65 79 3e 7d 20 66 6f 72 20 74 68 65 20 66 6f 63 75 73 20 62 75 66 66 65 72 20 | ode{<key>}.for.the.focus.buffer. |
| 248700 | 6d 6f 64 65 2e 0a 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 65 6d 70 68 7b 4e 6f 74 65 3a 7d | mode....@end.table..@emph{Note:} |
| 248720 | 20 49 6e 20 74 68 69 73 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 74 68 65 20 64 65 73 69 67 | .In.this.documentation.the.desig |
| 248740 | 6e 61 74 69 6f 6e 20 40 6b 62 64 7b 43 2d 68 7d 20 69 73 20 61 0a 40 64 66 6e 7b 63 61 6e 6f 6e | nation.@kbd{C-h}.is.a.@dfn{canon |
| 248760 | 69 63 61 6c 20 6b 65 79 7d 20 77 68 69 63 68 20 6d 69 67 68 74 20 61 63 74 75 61 6c 6c 79 20 6d | ical.key}.which.might.actually.m |
| 248780 | 65 61 6e 20 43 74 72 6c 2d 68 2c 20 6f 72 20 46 31 2c 20 6f 72 0a 77 68 61 74 65 76 65 72 20 79 | ean.Ctrl-h,.or.F1,.or.whatever.y |
| 2487a0 | 6f 75 20 68 61 76 65 20 40 63 6f 64 65 7b 68 65 6c 70 2d 63 6f 6d 6d 61 6e 64 7d 20 62 6f 75 6e | ou.have.@code{help-command}.boun |
| 2487c0 | 64 20 74 6f 20 69 6e 20 79 6f 75 72 0a 40 63 6f 64 65 7b 2e 65 6d 61 63 73 7d 2e 20 48 65 72 65 | d.to.in.your.@code{.emacs}..Here |
| 2487e0 | 20 69 73 20 61 20 63 6f 6d 6d 6f 6e 20 73 69 74 75 61 74 69 6f 6e 3a 0a 0a 40 65 78 61 6d 70 6c | .is.a.common.situation:..@exampl |
| 248800 | 65 0a 28 67 6c 6f 62 61 6c 2d 73 65 74 2d 6b 65 79 20 5b 66 31 5d 20 20 20 27 68 65 6c 70 2d 63 | e.(global-set-key.[f1]...'help-c |
| 248820 | 6f 6d 6d 61 6e 64 29 0a 28 67 6c 6f 62 61 6c 2d 73 65 74 2d 6b 65 79 20 22 5c 43 2d 68 22 20 27 | ommand).(global-set-key."\C-h".' |
| 248840 | 64 65 6c 65 74 65 2d 62 61 63 6b 77 61 72 64 2d 63 68 61 72 29 0a 40 65 6e 64 20 65 78 61 6d 70 | delete-backward-char).@end.examp |
| 248860 | 6c 65 0a 0a 40 6e 6f 69 6e 64 65 6e 74 20 49 6e 20 74 68 69 73 20 73 69 74 75 61 74 69 6f 6e 20 | le..@noindent.In.this.situation. |
| 248880 | 65 76 65 72 79 77 68 65 72 65 20 79 6f 75 20 73 65 65 20 40 6b 62 64 7b 43 2d 68 7d 20 69 6e 20 | everywhere.you.see.@kbd{C-h}.in. |
| 2488a0 | 74 68 65 0a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 79 6f 75 20 77 6f 75 6c 64 20 73 75 62 73 | the.documentation.you.would.subs |
| 2488c0 | 74 69 74 75 74 65 20 40 6b 62 64 7b 46 31 7d 2e 0a 0a 59 6f 75 20 63 61 6e 20 61 73 73 69 67 6e | titute.@kbd{F1}...You.can.assign |
| 2488e0 | 20 6f 72 20 63 68 61 6e 67 65 20 64 65 66 61 75 6c 74 20 6b 65 79 20 62 69 6e 64 69 6e 67 73 20 | .or.change.default.key.bindings. |
| 248900 | 67 6c 6f 62 61 6c 6c 79 20 75 73 69 6e 67 20 74 68 65 0a 40 63 6f 64 65 7b 67 6c 6f 62 61 6c 2d | globally.using.the.@code{global- |
| 248920 | 73 65 74 2d 6b 65 79 7d 20 66 75 6e 63 74 69 6f 6e 20 69 6e 20 79 6f 75 72 20 40 66 69 6c 65 7b | set-key}.function.in.your.@file{ |
| 248940 | 7e 2f 2e 65 6d 61 63 73 7d 20 66 69 6c 65 20 6c 69 6b 65 20 74 68 69 73 3a 0a 40 65 78 61 6d 70 | ~/.emacs}.file.like.this:.@examp |
| 248960 | 6c 65 0a 28 67 6c 6f 62 61 6c 2d 73 65 74 2d 6b 65 79 20 22 5c 43 2d 63 20 73 22 20 27 73 6c 69 | le.(global-set-key."\C-c.s".'sli |
| 248980 | 6d 65 2d 73 65 6c 65 63 74 6f 72 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 40 6e 6f 69 6e 64 | me-selector).@end.example.@noind |
| 2489a0 | 65 6e 74 0a 77 68 69 63 68 20 62 69 6e 64 73 20 40 6b 62 64 7b 43 2d 63 20 73 7d 20 74 6f 20 74 | ent.which.binds.@kbd{C-c.s}.to.t |
| 2489c0 | 68 65 20 66 75 6e 63 74 69 6f 6e 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 | he.function.@code{slime-selector |
| 2489e0 | 7d 2e 0a 0a 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 | }...Alternatively,.if.you.want.t |
| 248a00 | 6f 20 61 73 73 69 67 6e 20 6f 72 20 63 68 61 6e 67 65 20 61 20 6b 65 79 20 62 69 6e 64 69 6e 67 | o.assign.or.change.a.key.binding |
| 248a20 | 20 69 6e 20 6a 75 73 74 20 61 0a 70 61 72 74 69 63 75 6c 61 72 20 73 6c 69 6d 65 20 6d 6f 64 65 | .in.just.a.particular.slime.mode |
| 248a40 | 2c 20 79 6f 75 20 63 61 6e 20 75 73 65 20 74 68 65 20 40 63 6f 64 65 7b 64 65 66 69 6e 65 2d 6b | ,.you.can.use.the.@code{define-k |
| 248a60 | 65 79 7d 20 66 75 6e 63 74 69 6f 6e 0a 69 6e 20 79 6f 75 72 20 40 66 69 6c 65 7b 7e 2f 2e 65 6d | ey}.function.in.your.@file{~/.em |
| 248a80 | 61 63 73 7d 20 66 69 6c 65 20 6c 69 6b 65 20 74 68 69 73 3a 0a 40 65 78 61 6d 70 6c 65 0a 28 64 | acs}.file.like.this:.@example.(d |
| 248aa0 | 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 20 28 6b | efine-key.slime-repl-mode-map.(k |
| 248ac0 | 62 64 20 22 43 2d 63 20 3b 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 69 | bd."C-c.;").............'slime-i |
| 248ae0 | 6e 73 65 72 74 2d 62 61 6c 61 6e 63 65 64 2d 63 6f 6d 6d 65 6e 74 73 29 0a 40 65 6e 64 20 65 78 | nsert-balanced-comments).@end.ex |
| 248b00 | 61 6d 70 6c 65 0a 40 6e 6f 69 6e 64 65 6e 74 0a 77 68 69 63 68 20 62 69 6e 64 73 20 40 6b 62 64 | ample.@noindent.which.binds.@kbd |
| 248b20 | 7b 43 2d 63 20 3b 7d 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 0a 40 63 6f 64 65 7b 73 6c | {C-c.;}.to.the.function.@code{sl |
| 248b40 | 69 6d 65 2d 69 6e 73 65 72 74 2d 62 61 6c 61 6e 63 65 64 2d 63 6f 6d 6d 65 6e 74 73 7d 20 69 6e | ime-insert-balanced-comments}.in |
| 248b60 | 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 2e 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | .the.REPL.buffer...@c.---------- |
| 248b80 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 45 76 61 6c 75 61 74 69 6f 6e 0a 40 | -------------.@node.Evaluation.@ |
| 248ba0 | 73 65 63 74 69 6f 6e 20 45 76 61 6c 75 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 0a 0a 54 68 65 | section.Evaluation.commands..The |
| 248bc0 | 73 65 20 63 6f 6d 6d 61 6e 64 73 20 65 61 63 68 20 65 76 61 6c 75 61 74 65 20 61 20 43 6f 6d 6d | se.commands.each.evaluate.a.Comm |
| 248be0 | 6f 6e 20 4c 69 73 70 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 20 61 20 64 69 66 66 65 72 65 6e | on.Lisp.expression.in.a.differen |
| 248c00 | 74 0a 77 61 79 2e 20 20 55 73 75 61 6c 6c 79 20 74 68 65 79 20 6d 69 6d 69 63 20 63 6f 6d 6d 61 | t.way...Usually.they.mimic.comma |
| 248c20 | 6e 64 73 20 66 6f 72 20 65 76 61 6c 75 61 74 69 6e 67 20 45 6d 61 63 73 20 4c 69 73 70 20 63 6f | nds.for.evaluating.Emacs.Lisp.co |
| 248c40 | 64 65 2e 20 20 42 79 0a 64 65 66 61 75 6c 74 20 74 68 65 79 20 73 68 6f 77 20 74 68 65 69 72 20 | de...By.default.they.show.their. |
| 248c60 | 72 65 73 75 6c 74 73 20 69 6e 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 2c 20 62 75 74 20 61 20 | results.in.the.echo.area,.but.a. |
| 248c80 | 70 72 65 66 69 78 0a 61 72 67 75 6d 65 6e 74 20 63 61 75 73 65 73 20 74 68 65 20 72 65 73 75 6c | prefix.argument.causes.the.resul |
| 248ca0 | 74 73 20 74 6f 20 62 65 20 69 6e 73 65 72 74 65 64 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 | ts.to.be.inserted.in.the.current |
| 248cc0 | 20 62 75 66 66 65 72 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 6b 62 64 69 74 65 6d 7b | .buffer...@table.@kbd..@kbditem{ |
| 248ce0 | 43 2d 78 20 43 2d 65 2c 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 | C-x.C-e,.slime-eval-last-express |
| 248d00 | 69 6f 6e 7d 0a 0a 45 76 61 6c 75 61 74 65 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 | ion}..Evaluate.the.expression.be |
| 248d20 | 66 6f 72 65 20 70 6f 69 6e 74 20 61 6e 64 20 73 68 6f 77 20 74 68 65 20 72 65 73 75 6c 74 20 69 | fore.point.and.show.the.result.i |
| 248d40 | 6e 20 74 68 65 20 65 63 68 6f 0a 61 72 65 61 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 4d 2d 78 | n.the.echo.area...@kbditem{C-M-x |
| 248d60 | 2c 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 66 75 6e 7d 0a 45 76 61 6c 75 61 74 65 20 74 68 65 | ,.slime-eval-defun}.Evaluate.the |
| 248d80 | 20 63 75 72 72 65 6e 74 20 74 6f 70 6c 65 76 65 6c 20 66 6f 72 6d 20 61 6e 64 20 73 68 6f 77 20 | .current.toplevel.form.and.show. |
| 248da0 | 74 68 65 20 72 65 73 75 6c 74 20 69 6e 20 74 68 65 20 65 63 68 6f 0a 61 72 65 61 2e 20 20 60 43 | the.result.in.the.echo.area...`C |
| 248dc0 | 2d 4d 2d 78 27 20 74 72 65 61 74 73 20 60 64 65 66 76 61 72 27 20 65 78 70 72 65 73 73 69 6f 6e | -M-x'.treats.`defvar'.expression |
| 248de0 | 73 20 73 70 65 63 69 61 6c 6c 79 2e 20 20 4e 6f 72 6d 61 6c 6c 79 2c 0a 65 76 61 6c 75 61 74 69 | s.specially...Normally,.evaluati |
| 248e00 | 6e 67 20 61 20 60 64 65 66 76 61 72 27 20 65 78 70 72 65 73 73 69 6f 6e 20 64 6f 65 73 20 6e 6f | ng.a.`defvar'.expression.does.no |
| 248e20 | 74 68 69 6e 67 20 69 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 69 74 0a 64 65 66 69 6e 65 73 | thing.if.the.variable.it.defines |
| 248e40 | 20 61 6c 72 65 61 64 79 20 68 61 73 20 61 20 76 61 6c 75 65 2e 20 20 42 75 74 20 60 43 2d 4d 2d | .already.has.a.value...But.`C-M- |
| 248e60 | 78 27 20 75 6e 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c 79 20 72 65 73 65 74 73 20 74 68 65 0a 76 61 | x'.unconditionally.resets.the.va |
| 248e80 | 72 69 61 62 6c 65 20 74 6f 20 74 68 65 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 20 73 70 65 63 | riable.to.the.initial.value.spec |
| 248ea0 | 69 66 69 65 64 20 69 6e 20 74 68 65 20 60 64 65 66 76 61 72 27 20 65 78 70 72 65 73 73 69 6f 6e | ified.in.the.`defvar'.expression |
| 248ec0 | 2e 0a 54 68 69 73 20 73 70 65 63 69 61 6c 20 66 65 61 74 75 72 65 20 69 73 20 63 6f 6e 76 65 6e | ..This.special.feature.is.conven |
| 248ee0 | 69 65 6e 74 20 66 6f 72 20 64 65 62 75 67 67 69 6e 67 20 4c 69 73 70 20 70 72 6f 67 72 61 6d 73 | ient.for.debugging.Lisp.programs |
| 248f00 | 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 49 66 20 40 6b 62 64 7b 43 2d 4d 2d 78 7d 20 6f 72 | ...@end.table..If.@kbd{C-M-x}.or |
| 248f20 | 20 40 6b 62 64 7b 43 2d 78 20 43 2d 65 7d 20 69 73 20 67 69 76 65 6e 20 61 20 6e 75 6d 65 72 69 | .@kbd{C-x.C-e}.is.given.a.numeri |
| 248f40 | 63 20 61 72 67 75 6d 65 6e 74 2c 20 69 74 0a 69 6e 73 65 72 74 73 20 74 68 65 20 76 61 6c 75 65 | c.argument,.it.inserts.the.value |
| 248f60 | 20 69 6e 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2c 20 72 61 74 68 65 72 | .into.the.current.buffer,.rather |
| 248f80 | 20 74 68 61 6e 20 64 69 73 70 6c 61 79 69 6e 67 20 69 74 0a 69 6e 20 74 68 65 20 65 63 68 6f 20 | .than.displaying.it.in.the.echo. |
| 248fa0 | 61 72 65 61 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 | area...@table.@kbd.@kbditem{C-c. |
| 248fc0 | 3a 2c 20 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 7d 0a 45 76 61 6c 75 | :,.slime-interactive-eval}.Evalu |
| 248fe0 | 61 74 65 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 72 65 61 64 20 66 72 6f 6d 20 74 68 65 20 | ate.an.expression.read.from.the. |
| 249000 | 6d 69 6e 69 62 75 66 66 65 72 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 72 2c 20 73 | minibuffer...@kbditem{C-c.C-r,.s |
| 249020 | 6c 69 6d 65 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 7d 0a 45 76 61 6c 75 61 74 65 20 74 68 65 20 72 | lime-eval-region}.Evaluate.the.r |
| 249040 | 65 67 69 6f 6e 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 70 2c 20 73 6c 69 6d 65 2d | egion...@kbditem{C-c.C-p,.slime- |
| 249060 | 70 70 72 69 6e 74 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 7d 0a 45 76 61 | pprint-eval-last-expression}.Eva |
| 249080 | 6c 75 61 74 65 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 66 6f 72 65 20 70 6f 69 6e | luate.the.expression.before.poin |
| 2490a0 | 74 20 61 6e 64 20 70 72 65 74 74 79 2d 70 72 69 6e 74 20 74 68 65 20 72 65 73 75 6c 74 20 69 6e | t.and.pretty-print.the.result.in |
| 2490c0 | 20 61 0a 66 72 65 73 68 20 62 75 66 66 65 72 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 45 | .a.fresh.buffer...@kbditem{C-c.E |
| 2490e0 | 2c 20 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 7d 0a 45 64 69 74 20 74 68 65 20 76 61 6c | ,.slime-edit-value}.Edit.the.val |
| 249100 | 75 65 20 6f 66 20 61 20 73 65 74 66 2d 61 62 6c 65 20 66 6f 72 6d 20 69 6e 20 61 20 6e 65 77 20 | ue.of.a.setf-able.form.in.a.new. |
| 249120 | 62 75 66 66 65 72 20 40 66 69 6c 65 7b 2a 45 64 69 74 20 3c 66 6f 72 6d 3e 2a 7d 2e 0a 54 68 65 | buffer.@file{*Edit.<form>*}..The |
| 249140 | 20 76 61 6c 75 65 20 69 73 20 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 61 20 74 65 6d 70 6f 72 | .value.is.inserted.into.a.tempor |
| 249160 | 61 72 79 20 62 75 66 66 65 72 20 66 6f 72 20 65 64 69 74 69 6e 67 20 61 6e 64 20 74 68 65 6e 20 | ary.buffer.for.editing.and.then. |
| 249180 | 73 65 74 0a 69 6e 20 4c 69 73 70 20 77 68 65 6e 20 63 6f 6d 6d 69 74 74 65 64 20 77 69 74 68 20 | set.in.Lisp.when.committed.with. |
| 2491a0 | 40 6b 62 64 7b 43 2d 63 20 43 2d 63 7d 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 75 | @kbd{C-c.C-c}...@kbditem{C-c.C-u |
| 2491c0 | 2c 20 73 6c 69 6d 65 2d 75 6e 64 65 66 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 7d 0a 55 6e 64 65 66 | ,.slime-undefine-function}.Undef |
| 2491e0 | 69 6e 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 2c 20 77 69 74 68 20 40 63 6f 64 65 7b 66 6d 61 | ine.the.function,.with.@code{fma |
| 249200 | 6b 75 6e 62 6f 75 6e 64 7d 2c 20 66 6f 72 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 0a 70 6f 69 | kunbound},.for.the.symbol.at.poi |
| 249220 | 6e 74 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | nt...@end.table..@c.------------ |
| 249240 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 0a 40 73 | -----------.@node.Compilation.@s |
| 249260 | 65 63 74 69 6f 6e 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 0a 0a 40 63 69 | ection.Compilation.commands..@ci |
| 249280 | 6e 64 65 78 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 0a 0a 40 53 4c 49 4d 45 7b 7d 20 68 61 73 20 66 | ndex.Compilation..@SLIME{}.has.f |
| 2492a0 | 61 6e 63 79 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 63 6f 6d 70 69 6c 69 6e 67 20 66 75 6e 63 | ancy.commands.for.compiling.func |
| 2492c0 | 74 69 6f 6e 73 2c 20 66 69 6c 65 73 2c 20 61 6e 64 0a 70 61 63 6b 61 67 65 73 2e 20 54 68 65 20 | tions,.files,.and.packages..The. |
| 2492e0 | 66 61 6e 63 79 20 70 61 72 74 20 69 73 20 74 68 61 74 20 6e 6f 74 65 73 20 61 6e 64 20 77 61 72 | fancy.part.is.that.notes.and.war |
| 249300 | 6e 69 6e 67 73 20 6f 66 66 65 72 65 64 20 62 79 20 74 68 65 0a 4c 69 73 70 20 63 6f 6d 70 69 6c | nings.offered.by.the.Lisp.compil |
| 249320 | 65 72 20 61 72 65 20 69 6e 74 65 72 63 65 70 74 65 64 20 61 6e 64 20 61 6e 6e 6f 74 61 74 65 64 | er.are.intercepted.and.annotated |
| 249340 | 20 64 69 72 65 63 74 6c 79 20 6f 6e 74 6f 20 74 68 65 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 | .directly.onto.the.corresponding |
| 249360 | 20 65 78 70 72 65 73 73 69 6f 6e 73 20 69 6e 20 74 68 65 20 4c 69 73 70 20 73 6f 75 72 63 65 20 | .expressions.in.the.Lisp.source. |
| 249380 | 62 75 66 66 65 72 2e 20 28 47 69 76 65 20 69 74 20 61 20 74 72 79 20 74 6f 0a 73 65 65 20 77 68 | buffer..(Give.it.a.try.to.see.wh |
| 2493a0 | 61 74 20 74 68 69 73 20 6d 65 61 6e 73 2e 29 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 63 69 | at.this.means.)..@table.@kbd.@ci |
| 2493c0 | 6e 64 65 78 20 43 6f 6d 70 69 6c 69 6e 67 20 46 75 6e 63 74 69 6f 6e 73 0a 40 6b 62 64 69 74 65 | ndex.Compiling.Functions.@kbdite |
| 2493e0 | 6d 7b 43 2d 63 20 43 2d 63 2c 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 64 65 66 75 6e 7d 0a | m{C-c.C-c,.slime-compile-defun}. |
| 249400 | 43 6f 6d 70 69 6c 65 20 74 68 65 20 74 6f 70 2d 6c 65 76 65 6c 20 66 6f 72 6d 20 61 74 20 70 6f | Compile.the.top-level.form.at.po |
| 249420 | 69 6e 74 2e 20 20 54 68 65 20 72 65 67 69 6f 6e 20 62 6c 69 6e 6b 73 20 73 68 6f 72 74 6c 79 20 | int...The.region.blinks.shortly. |
| 249440 | 74 6f 0a 67 69 76 65 20 73 6f 6d 65 20 66 65 65 64 62 61 63 6b 20 77 68 69 63 68 20 70 61 72 74 | to.give.some.feedback.which.part |
| 249460 | 20 77 61 73 20 63 68 6f 73 65 6e 2e 0a 0a 57 69 74 68 20 28 70 6f 73 69 74 69 76 65 29 20 70 72 | .was.chosen...With.(positive).pr |
| 249480 | 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 74 68 65 20 66 6f 72 6d 20 69 73 20 63 6f 6d 70 69 6c | efix.argument.the.form.is.compil |
| 2494a0 | 65 64 20 77 69 74 68 20 6d 61 78 69 6d 61 6c 0a 64 65 62 75 67 20 73 65 74 74 69 6e 67 73 20 28 | ed.with.maximal.debug.settings.( |
| 2494c0 | 40 6b 62 64 7b 43 2d 75 20 43 2d 63 20 43 2d 63 7d 29 2e 20 57 69 74 68 20 6e 65 67 61 74 69 76 | @kbd{C-u.C-c.C-c})..With.negativ |
| 2494e0 | 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 74 20 69 73 20 63 6f 6d 70 69 6c 65 64 | e.prefix.argument.it.is.compiled |
| 249500 | 20 66 6f 72 0a 73 70 65 65 64 20 28 40 6b 62 64 7b 4d 2d 2d 20 43 2d 63 20 43 2d 63 7d 29 2e 20 | .for.speed.(@kbd{M--.C-c.C-c}).. |
| 249520 | 49 66 20 61 20 6e 75 6d 65 72 69 63 20 61 72 67 75 6d 65 6e 74 20 69 73 20 70 61 73 73 65 64 20 | If.a.numeric.argument.is.passed. |
| 249540 | 73 65 74 20 64 65 62 75 67 20 6f 72 20 73 70 65 65 64 20 73 65 74 74 69 6e 67 73 0a 74 6f 20 69 | set.debug.or.speed.settings.to.i |
| 249560 | 74 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 69 74 73 20 73 69 67 6e 2e 0a 0a 54 68 65 20 63 6f | t.depending.on.its.sign...The.co |
| 249580 | 64 65 20 66 6f 72 20 74 68 65 20 72 65 67 69 6f 6e 20 69 73 20 65 78 65 63 75 74 65 64 20 61 66 | de.for.the.region.is.executed.af |
| 2495a0 | 74 65 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2e 20 20 49 6e 20 70 72 69 6e 63 69 70 6c 65 2c 0a | ter.compilation...In.principle,. |
| 2495c0 | 74 68 65 20 63 6f 6d 6d 61 6e 64 20 77 72 69 74 65 73 20 74 68 65 20 72 65 67 69 6f 6e 20 74 6f | the.command.writes.the.region.to |
| 2495e0 | 20 61 20 66 69 6c 65 2c 20 63 6f 6d 70 69 6c 65 73 20 74 68 61 74 20 66 69 6c 65 2c 20 61 6e 64 | .a.file,.compiles.that.file,.and |
| 249600 | 20 6c 6f 61 64 73 0a 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 63 6f 64 65 2e 0a 0a 40 6b 62 64 | .loads.the.resulting.code...@kbd |
| 249620 | 69 74 65 6d 7b 43 2d 63 20 43 2d 6b 2c 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 61 6e 64 2d | item{C-c.C-k,.slime-compile-and- |
| 249640 | 6c 6f 61 64 2d 66 69 6c 65 7d 0a 43 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 74 68 65 20 | load-file}.Compile.and.load.the. |
| 249660 | 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 20 73 6f 75 72 63 65 20 66 69 6c 65 2e 20 20 49 | current.buffer's.source.file...I |
| 249680 | 66 20 74 68 65 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 0a 73 74 65 70 20 66 61 69 6c 73 2c 20 74 68 | f.the.compilation.step.fails,.th |
| 2496a0 | 65 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 6c 6f 61 64 65 64 2e 20 20 49 74 27 73 20 6e 6f 74 20 | e.file.is.not.loaded...It's.not. |
| 2496c0 | 61 6c 77 61 79 73 20 65 61 73 79 20 74 6f 20 74 65 6c 6c 0a 77 68 65 74 68 65 72 20 74 68 65 20 | always.easy.to.tell.whether.the. |
| 2496e0 | 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 66 61 69 6c 65 64 3a 20 6f 63 63 61 73 69 6f 6e 61 6c 6c 79 | compilation.failed:.occasionally |
| 249700 | 20 79 6f 75 20 6d 61 79 20 65 6e 64 20 75 70 20 69 6e 20 74 68 65 0a 64 65 62 75 67 67 65 72 20 | .you.may.end.up.in.the.debugger. |
| 249720 | 64 75 72 69 6e 67 20 74 68 65 20 6c 6f 61 64 20 73 74 65 70 2e 0a 0a 57 69 74 68 20 28 70 6f 73 | during.the.load.step...With.(pos |
| 249740 | 69 74 69 76 65 29 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 74 68 65 20 66 69 6c 65 20 | itive).prefix.argument.the.file. |
| 249760 | 69 73 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 20 6d 61 78 69 6d 61 6c 0a 64 65 62 75 67 20 73 | is.compiled.with.maximal.debug.s |
| 249780 | 65 74 74 69 6e 67 73 20 28 40 6b 62 64 7b 43 2d 75 20 43 2d 63 20 43 2d 6b 7d 29 2e 20 57 69 74 | ettings.(@kbd{C-u.C-c.C-k})..Wit |
| 2497a0 | 68 20 6e 65 67 61 74 69 76 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 74 20 69 73 | h.negative.prefix.argument.it.is |
| 2497c0 | 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 0a 73 70 65 65 64 20 28 40 6b 62 64 7b 4d 2d 2d 20 43 2d | .compiled.for.speed.(@kbd{M--.C- |
| 2497e0 | 63 20 43 2d 6b 7d 29 2e 20 49 66 20 61 20 6e 75 6d 65 72 69 63 20 61 72 67 75 6d 65 6e 74 20 69 | c.C-k})..If.a.numeric.argument.i |
| 249800 | 73 20 70 61 73 73 65 64 20 73 65 74 20 64 65 62 75 67 20 6f 72 20 73 70 65 65 64 20 73 65 74 74 | s.passed.set.debug.or.speed.sett |
| 249820 | 69 6e 67 73 0a 74 6f 20 69 74 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 69 74 73 20 73 69 67 6e | ings.to.it.depending.on.its.sign |
| 249840 | 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 4d 2d 6b 2c 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 | ...@kbditem{C-c.M-k,.slime-compi |
| 249860 | 6c 65 2d 66 69 6c 65 7d 0a 43 6f 6d 70 69 6c 65 20 28 62 75 74 20 64 6f 6e 27 74 20 6c 6f 61 64 | le-file}.Compile.(but.don't.load |
| 249880 | 29 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 20 73 6f 75 72 63 65 20 66 69 | ).the.current.buffer's.source.fi |
| 2498a0 | 6c 65 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 6c 2c 20 73 6c 69 6d 65 2d 6c 6f 61 | le...@kbditem{C-c.C-l,.slime-loa |
| 2498c0 | 64 2d 66 69 6c 65 7d 0a 4c 6f 61 64 20 61 20 4c 69 73 70 20 66 69 6c 65 2e 20 20 54 68 69 73 20 | d-file}.Load.a.Lisp.file...This. |
| 2498e0 | 63 6f 6d 6d 61 6e 64 20 75 73 65 73 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 4c 4f 41 | command.uses.the.Common.Lisp.LOA |
| 249900 | 44 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 63 6f 6d 70 | D.function...@cmditem{slime-comp |
| 249920 | 69 6c 65 2d 72 65 67 69 6f 6e 7d 0a 43 6f 6d 70 69 6c 65 20 74 68 65 20 73 65 6c 65 63 74 65 64 | ile-region}.Compile.the.selected |
| 249940 | 20 72 65 67 69 6f 6e 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 54 68 65 20 61 6e 6e 6f 74 61 | .region...@end.table..The.annota |
| 249960 | 74 69 6f 6e 73 20 61 72 65 20 69 6e 64 69 63 61 74 65 64 20 61 73 20 75 6e 64 65 72 6c 69 6e 69 | tions.are.indicated.as.underlini |
| 249980 | 6e 67 20 6f 6e 20 73 6f 75 72 63 65 20 66 6f 72 6d 73 2e 20 54 68 65 0a 63 6f 6d 70 69 6c 65 72 | ng.on.source.forms..The.compiler |
| 2499a0 | 20 6d 65 73 73 61 67 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 61 6e 20 61 6e 6e 6f | .message.associated.with.an.anno |
| 2499c0 | 74 61 74 69 6f 6e 20 63 61 6e 20 62 65 20 72 65 61 64 20 65 69 74 68 65 72 20 62 79 0a 70 6c 61 | tation.can.be.read.either.by.pla |
| 2499e0 | 63 69 6e 67 20 74 68 65 20 6d 6f 75 73 65 20 6f 76 65 72 20 74 68 65 20 74 65 78 74 20 6f 72 20 | cing.the.mouse.over.the.text.or. |
| 249a00 | 77 69 74 68 20 74 68 65 20 73 65 6c 65 63 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 20 62 65 6c 6f | with.the.selection.commands.belo |
| 249a20 | 77 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d 7b 4d 2d 6e 2c 20 73 6c | w...@table.@kbd.@kbditem{M-n,.sl |
| 249a40 | 69 6d 65 2d 6e 65 78 74 2d 6e 6f 74 65 7d 0a 4d 6f 76 65 20 74 68 65 20 70 6f 69 6e 74 20 74 6f | ime-next-note}.Move.the.point.to |
| 249a60 | 20 74 68 65 20 6e 65 78 74 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 20 61 6e 64 20 64 69 73 70 | .the.next.compiler.note.and.disp |
| 249a80 | 6c 61 79 73 20 74 68 65 20 6e 6f 74 65 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 4d 2d 70 2c 20 73 6c | lays.the.note...@kbditem{M-p,.sl |
| 249aa0 | 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 6e 6f 74 65 7d 0a 4d 6f 76 65 20 74 68 65 20 70 6f 69 6e | ime-previous-note}.Move.the.poin |
| 249ac0 | 74 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 20 | t.to.the.previous.compiler.note. |
| 249ae0 | 61 6e 64 20 64 69 73 70 6c 61 79 73 20 74 68 65 20 6e 6f 74 65 2e 0a 0a 40 6b 62 64 69 74 65 6d | and.displays.the.note...@kbditem |
| 249b00 | 7b 43 2d 63 20 4d 2d 63 2c 20 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 6e 6f 74 65 73 7d 0a 52 65 | {C-c.M-c,.slime-remove-notes}.Re |
| 249b20 | 6d 6f 76 65 20 61 6c 6c 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 66 72 6f 6d 20 74 68 65 20 62 75 | move.all.annotations.from.the.bu |
| 249b40 | 66 66 65 72 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 78 20 60 2c 20 6e 65 78 74 2d 65 72 72 6f | ffer...@kbditem{C-x.`,.next-erro |
| 249b60 | 72 7d 0a 56 69 73 69 74 20 74 68 65 20 6e 65 78 74 2d 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e | r}.Visit.the.next-error.message. |
| 249b80 | 20 20 54 68 69 73 20 69 73 20 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 61 20 40 53 4c 49 4d 45 7b | ..This.is.not.actually.a.@SLIME{ |
| 249ba0 | 7d 20 63 6f 6d 6d 61 6e 64 0a 62 75 74 20 40 53 4c 49 4d 45 7b 7d 20 63 72 65 61 74 65 73 20 61 | }.command.but.@SLIME{}.creates.a |
| 249bc0 | 20 68 69 64 64 65 6e 20 62 75 66 66 65 72 20 73 6f 20 74 68 61 74 20 6d 6f 73 74 20 6f 66 20 74 | .hidden.buffer.so.that.most.of.t |
| 249be0 | 68 65 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 0a 6d 6f 64 65 20 63 6f 6d 6d 61 6e 64 73 20 28 40 69 | he.Compilation.mode.commands.(@i |
| 249c00 | 6e 66 6f 72 65 66 7b 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 4d 6f 64 65 2c 2c 20 65 6d 61 63 73 7d | nforef{Compilation.Mode,,.emacs} |
| 249c20 | 29 20 77 6f 72 6b 20 73 69 6d 69 6c 61 72 6c 79 20 66 6f 72 0a 4c 69 73 70 20 61 73 20 66 6f 72 | ).work.similarly.for.Lisp.as.for |
| 249c40 | 20 62 61 74 63 68 20 63 6f 6d 70 69 6c 65 72 73 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 | .batch.compilers...@end.table..@ |
| 249c60 | 6e 6f 64 65 20 43 6f 6d 70 6c 65 74 69 6f 6e 0a 40 73 65 63 74 69 6f 6e 20 43 6f 6d 70 6c 65 74 | node.Completion.@section.Complet |
| 249c80 | 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 0a 0a 40 63 69 6e 64 65 78 20 43 6f 6d 70 6c 65 74 69 6f 6e | ion.commands..@cindex.Completion |
| 249ca0 | 0a 40 63 69 6e 64 65 78 20 53 79 6d 62 6f 6c 20 43 6f 6d 70 6c 65 74 69 6f 6e 0a 0a 43 6f 6d 70 | .@cindex.Symbol.Completion..Comp |
| 249cc0 | 6c 65 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 | letion.commands.are.used.to.comp |
| 249ce0 | 6c 65 74 65 20 61 20 73 79 6d 62 6f 6c 20 6f 72 20 66 6f 72 6d 20 62 61 73 65 64 20 6f 6e 0a 77 | lete.a.symbol.or.form.based.on.w |
| 249d00 | 68 61 74 20 69 73 20 61 6c 72 65 61 64 79 20 70 72 65 73 65 6e 74 20 61 74 20 70 6f 69 6e 74 2e | hat.is.already.present.at.point. |
| 249d20 | 20 43 6c 61 73 73 69 63 61 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 73 73 75 6d 65 73 20 61 6e | .Classical.completion.assumes.an |
| 249d40 | 0a 65 78 61 63 74 20 70 72 65 66 69 78 20 61 6e 64 20 67 69 76 65 73 20 63 68 6f 69 63 65 73 20 | .exact.prefix.and.gives.choices. |
| 249d60 | 6f 6e 6c 79 20 77 68 65 72 65 20 62 72 61 6e 63 68 65 73 20 6d 61 79 20 6f 63 63 75 72 2e 20 46 | only.where.branches.may.occur..F |
| 249d80 | 75 7a 7a 79 0a 63 6f 6d 70 6c 65 74 69 6f 6e 20 74 72 69 65 73 20 68 61 72 64 65 72 2e 0a 0a 40 | uzzy.completion.tries.harder...@ |
| 249da0 | 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d 7b 4d 2d 54 41 42 2c 73 6c 69 6d 65 2d | table.@kbd.@kbditem{M-TAB,slime- |
| 249dc0 | 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 7d 0a 40 63 20 40 69 74 65 6d 78 20 45 53 43 20 54 | complete-symbol}.@c.@itemx.ESC.T |
| 249de0 | 41 42 0a 40 63 20 40 69 74 65 6d 78 20 43 2d 4d 2d 69 0a 43 6f 6d 70 6c 65 74 65 20 74 68 65 20 | AB.@c.@itemx.C-M-i.Complete.the. |
| 249e00 | 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 20 4e 6f 74 65 20 74 68 61 74 20 74 68 72 65 65 | symbol.at.point..Note.that.three |
| 249e20 | 20 73 74 79 6c 65 73 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 72 65 0a 61 76 61 69 6c 61 | .styles.of.completion.are.availa |
| 249e40 | 62 6c 65 20 69 6e 20 40 53 4c 49 4d 45 7b 7d 3b 20 74 68 65 20 64 65 66 61 75 6c 74 20 69 73 20 | ble.in.@SLIME{};.the.default.is. |
| 249e60 | 73 69 6d 69 6c 61 72 20 74 6f 20 6e 6f 72 6d 61 6c 20 45 6d 61 63 73 0a 63 6f 6d 70 6c 65 74 69 | similar.to.normal.Emacs.completi |
| 249e80 | 6f 6e 20 28 40 70 78 72 65 66 7b 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 | on.(@pxref{slime-completion-at-p |
| 249ea0 | 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 7d 29 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 | oint-functions})...@end.table..@ |
| 249ec0 | 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 | c.-----------------------.@node. |
| 249ee0 | 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 0a 40 73 65 63 74 69 6f 6e 20 46 69 6e | Finding.definitions.@section.Fin |
| 249f00 | 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 60 60 4d 65 74 61 2d 50 6f 69 6e 74 27 27 | ding.definitions.(``Meta-Point'' |
| 249f20 | 20 63 6f 6d 6d 61 6e 64 73 29 2e 0a 0a 40 63 69 6e 64 65 78 20 4d 65 74 61 2d 64 6f 74 0a 40 63 | .commands)...@cindex.Meta-dot.@c |
| 249f40 | 69 6e 64 65 78 20 54 41 47 53 0a 0a 54 68 65 20 66 61 6d 69 6c 69 61 72 20 40 6b 62 64 7b 4d 2d | index.TAGS..The.familiar.@kbd{M- |
| 249f60 | 2e 7d 20 63 6f 6d 6d 61 6e 64 20 69 73 20 70 72 6f 76 69 64 65 64 2e 20 46 6f 72 20 67 65 6e 65 | .}.command.is.provided..For.gene |
| 249f80 | 72 69 63 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 69 73 0a 63 6f 6d 6d 61 6e 64 20 66 69 6e 64 73 | ric.functions.this.command.finds |
| 249fa0 | 20 61 6c 6c 20 6d 65 74 68 6f 64 73 2c 20 61 6e 64 20 77 69 74 68 20 73 6f 6d 65 20 73 79 73 74 | .all.methods,.and.with.some.syst |
| 249fc0 | 65 6d 73 20 69 74 20 64 6f 65 73 20 6f 74 68 65 72 20 66 61 6e 63 79 0a 74 68 69 6e 67 73 20 28 | ems.it.does.other.fancy.things.( |
| 249fe0 | 6c 69 6b 65 20 74 72 61 63 69 6e 67 20 73 74 72 75 63 74 75 72 65 20 61 63 63 65 73 73 6f 72 73 | like.tracing.structure.accessors |
| 24a000 | 20 74 6f 20 74 68 65 69 72 20 40 63 6f 64 65 7b 44 45 46 53 54 52 55 43 54 7d 0a 64 65 66 69 6e | .to.their.@code{DEFSTRUCT}.defin |
| 24a020 | 69 74 69 6f 6e 29 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 6b 62 64 69 74 65 6d 7b 4d | ition)...@table.@kbd..@kbditem{M |
| 24a040 | 2d 2e 2c 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 7d 0a 47 6f 20 74 6f | -.,.slime-edit-definition}.Go.to |
| 24a060 | 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 | .the.definition.of.the.symbol.at |
| 24a080 | 20 70 6f 69 6e 74 2e 0a 0a 40 69 74 65 6d 20 4d 2d 2c 0a 40 69 74 65 6d 78 20 4d 2d 2a 0a 40 69 | .point...@item.M-,.@itemx.M-*.@i |
| 24a0a0 | 74 65 6d 78 20 4d 2d 78 20 73 6c 69 6d 65 2d 70 6f 70 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 | temx.M-x.slime-pop-find-definiti |
| 24a0c0 | 6f 6e 2d 73 74 61 63 6b 0a 40 6b 69 6e 64 65 78 20 4d 2d 2c 0a 40 66 69 6e 64 65 78 20 73 6c 69 | on-stack.@kindex.M-,.@findex.sli |
| 24a0e0 | 6d 65 2d 70 6f 70 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 63 6b 0a 47 6f 20 | me-pop-find-definition-stack.Go. |
| 24a100 | 62 61 63 6b 20 74 6f 20 74 68 65 20 70 6f 69 6e 74 20 77 68 65 72 65 20 40 6b 62 64 7b 4d 2d 2e | back.to.the.point.where.@kbd{M-. |
| 24a120 | 7d 20 77 61 73 20 69 6e 76 6f 6b 65 64 2e 20 54 68 69 73 20 67 69 76 65 73 20 6d 75 6c 74 69 2d | }.was.invoked..This.gives.multi- |
| 24a140 | 6c 65 76 65 6c 0a 62 61 63 6b 74 72 61 63 6b 69 6e 67 20 77 68 65 6e 20 40 6b 62 64 7b 4d 2d 2e | level.backtracking.when.@kbd{M-. |
| 24a160 | 7d 20 68 61 73 20 62 65 65 6e 20 75 73 65 64 20 73 65 76 65 72 61 6c 20 74 69 6d 65 73 2e 0a 0a | }.has.been.used.several.times... |
| 24a180 | 40 6b 62 64 69 74 65 6d 7b 43 2d 78 20 34 20 2e 2c 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 | @kbditem{C-x.4..,.slime-edit-def |
| 24a1a0 | 69 6e 69 74 69 6f 6e 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 7d 0a 4c 69 6b 65 20 40 63 6f 64 65 | inition-other-window}.Like.@code |
| 24a1c0 | 7b 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 7d 20 62 75 74 20 73 77 69 74 | {slime-edit-definition}.but.swit |
| 24a1e0 | 63 68 65 73 20 74 6f 20 74 68 65 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 20 74 6f 0a 65 64 69 74 | ches.to.the.other.window.to.edit |
| 24a200 | 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 69 6e 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d | .the.definition.in...@kbditem{C- |
| 24a220 | 78 20 35 20 2e 2c 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6f 74 68 | x.5..,.slime-edit-definition-oth |
| 24a240 | 65 72 2d 66 72 61 6d 65 7d 0a 4c 69 6b 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 65 64 69 74 2d | er-frame}.Like.@code{slime-edit- |
| 24a260 | 64 65 66 69 6e 69 74 69 6f 6e 7d 20 62 75 74 20 6f 70 65 6e 73 20 61 6e 6f 74 68 65 72 20 66 72 | definition}.but.opens.another.fr |
| 24a280 | 61 6d 65 20 74 6f 20 65 64 69 74 20 74 68 65 0a 64 65 66 69 6e 69 74 69 6f 6e 20 69 6e 2e 0a 0a | ame.to.edit.the.definition.in... |
| 24a2a0 | 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 77 | @cmditem{slime-edit-definition-w |
| 24a2c0 | 69 74 68 2d 65 74 61 67 73 7d 0a 55 73 65 20 61 6e 20 45 54 41 47 53 20 74 61 62 6c 65 20 74 6f | ith-etags}.Use.an.ETAGS.table.to |
| 24a2e0 | 20 66 69 6e 64 20 64 65 66 69 6e 69 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 40 65 6e 64 | .find.definition.at.point...@end |
| 24a300 | 20 74 61 62 6c 65 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | .table..@c.--------------------- |
| 24a320 | 2d 2d 0a 40 6e 6f 64 65 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 40 73 65 63 74 69 6f 6e 20 | --.@node.Documentation.@section. |
| 24a340 | 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 0a 0a 40 53 4c 49 4d 45 7b 7d | Documentation.commands..@SLIME{} |
| 24a360 | 27 73 20 6f 6e 6c 69 6e 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 | 's.online.documentation.commands |
| 24a380 | 20 66 6f 6c 6c 6f 77 20 74 68 65 20 65 78 61 6d 70 6c 65 20 6f 66 20 45 6d 61 63 73 0a 4c 69 73 | .follow.the.example.of.Emacs.Lis |
| 24a3a0 | 70 2e 20 54 68 65 20 63 6f 6d 6d 61 6e 64 73 20 61 6c 6c 20 73 68 61 72 65 20 74 68 65 20 63 6f | p..The.commands.all.share.the.co |
| 24a3c0 | 6d 6d 6f 6e 20 70 72 65 66 69 78 20 40 6b 62 64 7b 43 2d 63 20 43 2d 64 7d 20 61 6e 64 20 61 6c | mmon.prefix.@kbd{C-c.C-d}.and.al |
| 24a3e0 | 6c 6f 77 0a 74 68 65 20 66 69 6e 61 6c 20 6b 65 79 20 74 6f 20 62 65 20 6d 6f 64 69 66 69 65 64 | low.the.final.key.to.be.modified |
| 24a400 | 20 6f 72 20 75 6e 6d 6f 64 69 66 69 65 64 20 28 40 70 78 72 65 66 7b 4b 65 79 20 62 69 6e 64 69 | .or.unmodified.(@pxref{Key.bindi |
| 24a420 | 6e 67 73 7d 2e 29 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 6b 62 64 69 74 65 6d 7b 53 50 | ngs}.)..@table.@kbd..@kbditem{SP |
| 24a440 | 43 2c 20 73 6c 69 6d 65 2d 73 70 61 63 65 7d 0a 54 68 65 20 73 70 61 63 65 20 6b 65 79 20 69 6e | C,.slime-space}.The.space.key.in |
| 24a460 | 73 65 72 74 73 20 61 20 73 70 61 63 65 2c 20 62 75 74 20 61 6c 73 6f 20 6c 6f 6f 6b 73 20 75 70 | serts.a.space,.but.also.looks.up |
| 24a480 | 20 61 6e 64 20 64 69 73 70 6c 61 79 73 20 74 68 65 0a 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 | .and.displays.the.argument.list. |
| 24a4a0 | 66 6f 72 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2c 20 69 66 20 74 68 | for.the.function.at.point,.if.th |
| 24a4c0 | 65 72 65 20 69 73 20 6f 6e 65 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 64 20 64 2c | ere.is.one...@kbditem{C-c.C-d.d, |
| 24a4e0 | 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 7d 0a 44 65 73 63 72 69 62 65 | .slime-describe-symbol}.Describe |
| 24a500 | 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b | .the.symbol.at.point...@kbditem{ |
| 24a520 | 43 2d 63 20 43 2d 64 20 66 2c 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 | C-c.C-d.f,.slime-describe-functi |
| 24a540 | 6f 6e 7d 0a 44 65 73 63 72 69 62 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 74 20 70 6f 69 | on}.Describe.the.function.at.poi |
| 24a560 | 6e 74 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 64 20 41 2c 20 73 6c 69 6d 65 2d 61 | nt...@kbditem{C-c.C-d.A,.slime-a |
| 24a580 | 70 72 6f 70 6f 73 7d 0a 50 65 72 66 6f 72 6d 20 61 6e 20 61 70 72 6f 70 6f 73 20 73 65 61 72 63 | propos}.Perform.an.apropos.searc |
| 24a5a0 | 68 20 6f 6e 20 4c 69 73 70 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 73 20 66 6f 72 20 61 20 72 65 67 | h.on.Lisp.symbol.names.for.a.reg |
| 24a5c0 | 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 0a 6d 61 74 63 68 20 61 6e 64 20 64 69 73 70 6c 61 | ular.expression.match.and.displa |
| 24a5e0 | 79 20 74 68 65 69 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 73 2e 20 42 | y.their.documentation.strings..B |
| 24a600 | 79 20 64 65 66 61 75 6c 74 20 74 68 65 20 65 78 74 65 72 6e 61 6c 0a 73 79 6d 62 6f 6c 73 20 6f | y.default.the.external.symbols.o |
| 24a620 | 66 20 61 6c 6c 20 70 61 63 6b 61 67 65 73 20 61 72 65 20 73 65 61 72 63 68 65 64 2e 20 57 69 74 | f.all.packages.are.searched..Wit |
| 24a640 | 68 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 79 6f 75 20 63 61 6e 20 63 68 6f 6f | h.a.prefix.argument.you.can.choo |
| 24a660 | 73 65 20 61 0a 73 70 65 63 69 66 69 63 20 70 61 63 6b 61 67 65 20 61 6e 64 20 77 68 65 74 68 65 | se.a.specific.package.and.whethe |
| 24a680 | 72 20 74 6f 20 69 6e 63 6c 75 64 65 20 75 6e 65 78 70 6f 72 74 65 64 20 73 79 6d 62 6f 6c 73 2e | r.to.include.unexported.symbols. |
| 24a6a0 | 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 64 20 7a 2c 20 73 6c 69 6d 65 2d 61 70 72 6f | ..@kbditem{C-c.C-d.z,.slime-apro |
| 24a6c0 | 70 6f 73 2d 61 6c 6c 7d 0a 4c 69 6b 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 61 70 72 6f 70 6f | pos-all}.Like.@code{slime-apropo |
| 24a6e0 | 73 7d 20 62 75 74 20 61 6c 73 6f 20 69 6e 63 6c 75 64 65 73 20 69 6e 74 65 72 6e 61 6c 20 73 79 | s}.but.also.includes.internal.sy |
| 24a700 | 6d 62 6f 6c 73 20 62 79 20 64 65 66 61 75 6c 74 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 | mbols.by.default...@kbditem{C-c. |
| 24a720 | 43 2d 64 20 70 2c 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 70 61 63 6b 61 67 65 7d 0a 53 68 | C-d.p,.slime-apropos-package}.Sh |
| 24a740 | 6f 77 20 61 70 72 6f 70 6f 73 20 72 65 73 75 6c 74 73 20 6f 66 20 61 6c 6c 20 73 79 6d 62 6f 6c | ow.apropos.results.of.all.symbol |
| 24a760 | 73 20 69 6e 20 61 20 70 61 63 6b 61 67 65 2e 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 | s.in.a.package..This.command.is. |
| 24a780 | 66 6f 72 0a 62 72 6f 77 73 69 6e 67 20 61 20 70 61 63 6b 61 67 65 20 61 74 20 61 20 68 69 67 68 | for.browsing.a.package.at.a.high |
| 24a7a0 | 2d 6c 65 76 65 6c 2e 20 57 69 74 68 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 63 6f 6d 70 6c 65 | -level..With.package-name.comple |
| 24a7c0 | 74 69 6f 6e 20 69 74 0a 61 6c 73 6f 20 73 65 72 76 65 73 20 61 73 20 61 20 72 75 64 69 6d 65 6e | tion.it.also.serves.as.a.rudimen |
| 24a7e0 | 74 61 72 79 20 53 6d 61 6c 6c 74 61 6c 6b 2d 69 73 68 20 69 6d 61 67 65 2d 62 72 6f 77 73 65 72 | tary.Smalltalk-ish.image-browser |
| 24a800 | 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 64 20 68 2c 20 73 6c 69 6d 65 2d 68 79 70 | ...@kbditem{C-c.C-d.h,.slime-hyp |
| 24a820 | 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 7d 0a 4c 6f 6f 6b 75 70 20 74 68 65 20 73 79 6d 62 6f 6c | erspec-lookup}.Lookup.the.symbol |
| 24a840 | 20 61 74 20 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 40 63 69 74 65 7b 43 6f 6d 6d 6f 6e 20 4c 69 | .at.point.in.the.@cite{Common.Li |
| 24a860 | 73 70 20 48 79 70 65 72 73 70 65 63 7d 2e 20 54 68 69 73 0a 75 73 65 73 20 74 68 65 20 66 61 6d | sp.Hyperspec}..This.uses.the.fam |
| 24a880 | 69 6c 69 61 72 20 40 66 69 6c 65 7b 68 79 70 65 72 73 70 65 63 2e 65 6c 7d 20 74 6f 20 73 68 6f | iliar.@file{hyperspec.el}.to.sho |
| 24a8a0 | 77 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 73 65 63 74 69 6f 6e 0a 69 6e 20 61 20 77 | w.the.appropriate.section.in.a.w |
| 24a8c0 | 65 62 20 62 72 6f 77 73 65 72 2e 20 54 68 65 20 48 79 70 65 72 73 70 65 63 20 69 73 20 66 6f 75 | eb.browser..The.Hyperspec.is.fou |
| 24a8e0 | 6e 64 20 65 69 74 68 65 72 20 6f 6e 20 74 68 65 20 57 65 62 20 6f 72 20 69 6e 0a 40 63 6f 64 65 | nd.either.on.the.Web.or.in.@code |
| 24a900 | 7b 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 72 6f 6f 74 7d 2c 20 61 6e | {common-lisp-hyperspec-root},.an |
| 24a920 | 64 20 74 68 65 20 62 72 6f 77 73 65 72 20 69 73 20 73 65 6c 65 63 74 65 64 20 62 79 0a 40 63 6f | d.the.browser.is.selected.by.@co |
| 24a940 | 64 65 7b 62 72 6f 77 73 65 2d 75 72 6c 2d 62 72 6f 77 73 65 72 2d 66 75 6e 63 74 69 6f 6e 7d 2e | de{browse-url-browser-function}. |
| 24a960 | 0a 0a 4e 6f 74 65 3a 20 74 68 69 73 20 69 73 20 6f 6e 65 20 63 61 73 65 20 77 68 65 72 65 20 40 | ..Note:.this.is.one.case.where.@ |
| 24a980 | 6b 62 64 7b 43 2d 63 20 43 2d 64 20 68 7d 20 69 73 20 40 65 6d 70 68 7b 6e 6f 74 7d 20 74 68 65 | kbd{C-c.C-d.h}.is.@emph{not}.the |
| 24a9a0 | 20 73 61 6d 65 20 61 73 0a 40 6b 62 64 7b 43 2d 63 20 43 2d 64 20 43 2d 68 7d 2e 0a 0a 40 6b 62 | .same.as.@kbd{C-c.C-d.C-h}...@kb |
| 24a9c0 | 64 69 74 65 6d 7b 43 2d 63 20 43 2d 64 20 7e 2c 20 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 | ditem{C-c.C-d.~,.hyperspec-looku |
| 24a9e0 | 70 2d 66 6f 72 6d 61 74 7d 0a 4c 6f 6f 6b 75 70 20 61 20 40 65 6d 70 68 7b 66 6f 72 6d 61 74 20 | p-format}.Lookup.a.@emph{format. |
| 24aa00 | 63 68 61 72 61 63 74 65 72 7d 20 69 6e 20 74 68 65 20 40 63 69 74 65 7b 43 6f 6d 6d 6f 6e 20 4c | character}.in.the.@cite{Common.L |
| 24aa20 | 69 73 70 20 48 79 70 65 72 73 70 65 63 7d 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d | isp.Hyperspec}...@kbditem{C-c.C- |
| 24aa40 | 64 20 23 2c 20 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 2d 72 65 61 64 65 72 2d 6d 61 63 | d.#,.hyperspec-lookup-reader-mac |
| 24aa60 | 72 6f 7d 0a 4c 6f 6f 6b 75 70 20 61 20 40 65 6d 70 68 7b 72 65 61 64 65 72 20 6d 61 63 72 6f 7d | ro}.Lookup.a.@emph{reader.macro} |
| 24aa80 | 20 69 6e 20 74 68 65 20 40 63 69 74 65 7b 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 48 79 70 65 72 73 | .in.the.@cite{Common.Lisp.Hypers |
| 24aaa0 | 70 65 63 7d 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | pec}..@end.table..@c.----------- |
| 24aac0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e | ------------.@node.Cross-referen |
| 24aae0 | 63 65 0a 40 73 65 63 74 69 6f 6e 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 20 63 6f 6d 6d | ce.@section.Cross-reference.comm |
| 24ab00 | 61 6e 64 73 0a 0a 40 63 69 6e 64 65 78 20 78 72 65 66 0a 40 63 69 6e 64 65 78 20 43 72 6f 73 73 | ands..@cindex.xref.@cindex.Cross |
| 24ab20 | 2d 72 65 66 65 72 65 6e 63 69 6e 67 0a 0a 40 53 4c 49 4d 45 7b 7d 27 73 20 63 72 6f 73 73 2d 72 | -referencing..@SLIME{}'s.cross-r |
| 24ab40 | 65 66 65 72 65 6e 63 65 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 62 61 73 65 64 20 6f 6e 20 74 | eference.commands.are.based.on.t |
| 24ab60 | 68 65 20 73 75 70 70 6f 72 74 20 70 72 6f 76 69 64 65 64 0a 62 79 20 74 68 65 20 4c 69 73 70 20 | he.support.provided.by.the.Lisp. |
| 24ab80 | 73 79 73 74 65 6d 2c 20 77 68 69 63 68 20 76 61 72 69 65 73 20 77 69 64 65 6c 79 20 62 65 74 77 | system,.which.varies.widely.betw |
| 24aba0 | 65 65 6e 20 4c 69 73 70 73 2e 20 46 6f 72 20 73 79 73 74 65 6d 73 0a 77 69 74 68 20 6e 6f 20 62 | een.Lisps..For.systems.with.no.b |
| 24abc0 | 75 69 6c 74 2d 69 6e 20 40 61 63 72 6f 6e 79 6d 7b 58 52 45 46 7d 20 73 75 70 70 6f 72 74 20 40 | uilt-in.@acronym{XREF}.support.@ |
| 24abe0 | 53 4c 49 4d 45 7b 7d 20 71 75 65 72 69 65 73 20 61 20 70 6f 72 74 61 62 6c 65 0a 40 61 63 72 6f | SLIME{}.queries.a.portable.@acro |
| 24ac00 | 6e 79 6d 7b 58 52 45 46 7d 20 70 61 63 6b 61 67 65 2c 20 77 68 69 63 68 20 69 73 20 74 61 6b 65 | nym{XREF}.package,.which.is.take |
| 24ac20 | 6e 20 66 72 6f 6d 20 74 68 65 20 40 63 69 74 65 7b 43 4d 55 20 41 49 0a 52 65 70 6f 73 69 74 6f | n.from.the.@cite{CMU.AI.Reposito |
| 24ac40 | 72 79 7d 20 61 6e 64 20 62 75 6e 64 6c 65 64 20 77 69 74 68 20 40 53 4c 49 4d 45 7b 7d 2e 0a 0a | ry}.and.bundled.with.@SLIME{}... |
| 24ac60 | 45 61 63 68 20 63 6f 6d 6d 61 6e 64 20 6f 70 65 72 61 74 65 73 20 6f 6e 20 74 68 65 20 73 79 6d | Each.command.operates.on.the.sym |
| 24ac80 | 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2c 20 6f 72 20 70 72 6f 6d 70 74 73 20 69 66 20 74 68 65 72 | bol.at.point,.or.prompts.if.ther |
| 24aca0 | 65 20 69 73 0a 6e 6f 6e 65 2e 20 57 69 74 68 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e | e.is.none..With.a.prefix.argumen |
| 24acc0 | 74 20 74 68 65 79 20 61 6c 77 61 79 73 20 70 72 6f 6d 70 74 2e 20 59 6f 75 20 63 61 6e 20 65 69 | t.they.always.prompt..You.can.ei |
| 24ace0 | 74 68 65 72 20 65 6e 74 65 72 0a 74 68 65 20 6b 65 79 20 62 69 6e 64 69 6e 67 73 20 61 73 20 73 | ther.enter.the.key.bindings.as.s |
| 24ad00 | 68 6f 77 6e 20 68 65 72 65 20 6f 72 20 77 69 74 68 20 74 68 65 20 63 6f 6e 74 72 6f 6c 20 6d 6f | hown.here.or.with.the.control.mo |
| 24ad20 | 64 69 66 69 65 64 20 6f 6e 20 74 68 65 0a 6c 61 73 74 20 6b 65 79 2c 20 40 78 72 65 66 7b 4b 65 | dified.on.the.last.key,.@xref{Ke |
| 24ad40 | 79 20 62 69 6e 64 69 6e 67 73 7d 2e 0a 0a 40 6d 65 6e 75 0a 2a 20 58 72 65 66 20 62 75 66 66 65 | y.bindings}...@menu.*.Xref.buffe |
| 24ad60 | 72 20 63 6f 6d 6d 61 6e 64 73 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 0a 0a 40 74 61 62 6c 65 20 40 | r.commands::.@end.menu..@table.@ |
| 24ad80 | 6b 62 64 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 77 20 63 2c 20 73 6c 69 6d 65 2d 77 68 | kbd.@kbditem{C-c.C-w.c,.slime-wh |
| 24ada0 | 6f 2d 63 61 6c 6c 73 7d 0a 53 68 6f 77 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 65 72 73 2e 0a | o-calls}.Show.function.callers.. |
| 24adc0 | 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 77 20 77 2c 20 73 6c 69 6d 65 2d 63 61 6c 6c 73 | .@kbditem{C-c.C-w.w,.slime-calls |
| 24ade0 | 2d 77 68 6f 7d 0a 53 68 6f 77 20 61 6c 6c 20 6b 6e 6f 77 6e 20 63 61 6c 6c 65 65 73 2e 0a 0a 40 | -who}.Show.all.known.callees...@ |
| 24ae00 | 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 77 20 72 2c 20 73 6c 69 6d 65 2d 77 68 6f 2d 72 65 66 | kbditem{C-c.C-w.r,.slime-who-ref |
| 24ae20 | 65 72 65 6e 63 65 73 7d 0a 53 68 6f 77 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 67 6c 6f 62 | erences}.Show.references.to.glob |
| 24ae40 | 61 6c 20 76 61 72 69 61 62 6c 65 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 77 20 62 | al.variable...@kbditem{C-c.C-w.b |
| 24ae60 | 2c 20 73 6c 69 6d 65 2d 77 68 6f 2d 62 69 6e 64 73 7d 0a 53 68 6f 77 20 62 69 6e 64 69 6e 67 73 | ,.slime-who-binds}.Show.bindings |
| 24ae80 | 20 6f 66 20 61 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 2e 0a 0a 40 6b 62 64 69 74 65 6d | .of.a.global.variable...@kbditem |
| 24aea0 | 7b 43 2d 63 20 43 2d 77 20 73 2c 20 73 6c 69 6d 65 2d 77 68 6f 2d 73 65 74 73 7d 0a 53 68 6f 77 | {C-c.C-w.s,.slime-who-sets}.Show |
| 24aec0 | 20 61 73 73 69 67 6e 6d 65 6e 74 73 20 74 6f 20 61 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c | .assignments.to.a.global.variabl |
| 24aee0 | 65 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 77 20 6d 2c 20 73 6c 69 6d 65 2d 77 68 | e...@kbditem{C-c.C-w.m,.slime-wh |
| 24af00 | 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 7d 0a 53 68 6f 77 20 65 78 70 61 6e 73 69 6f 6e 73 20 | o-macroexpands}.Show.expansions. |
| 24af20 | 6f 66 20 61 20 6d 61 63 72 6f 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 77 68 6f 2d | of.a.macro...@cmditem{slime-who- |
| 24af40 | 73 70 65 63 69 61 6c 69 7a 65 73 7d 0a 53 68 6f 77 20 61 6c 6c 20 6b 6e 6f 77 6e 20 6d 65 74 68 | specializes}.Show.all.known.meth |
| 24af60 | 6f 64 73 20 73 70 65 63 69 61 6c 69 7a 65 64 20 6f 6e 20 61 20 63 6c 61 73 73 2e 0a 0a 40 65 6e | ods.specialized.on.a.class...@en |
| 24af80 | 64 20 74 61 62 6c 65 0a 0a 54 68 65 72 65 20 61 72 65 20 61 6c 73 6f 20 60 60 4c 69 73 74 20 63 | d.table..There.are.also.``List.c |
| 24afa0 | 61 6c 6c 65 72 73 2f 63 61 6c 6c 65 65 73 27 27 20 63 6f 6d 6d 61 6e 64 73 2e 20 54 68 65 73 65 | allers/callees''.commands..These |
| 24afc0 | 20 6f 70 65 72 61 74 65 20 62 79 0a 72 75 6d 6d 61 67 69 6e 67 20 74 68 72 6f 75 67 68 20 66 75 | .operate.by.rummaging.through.fu |
| 24afe0 | 6e 63 74 69 6f 6e 20 6f 62 6a 65 63 74 73 20 6f 6e 20 74 68 65 20 68 65 61 70 20 61 74 20 61 20 | nction.objects.on.the.heap.at.a. |
| 24b000 | 6c 6f 77 2d 6c 65 76 65 6c 20 74 6f 0a 64 69 73 63 6f 76 65 72 20 74 68 65 20 63 61 6c 6c 20 67 | low-level.to.discover.the.call.g |
| 24b020 | 72 61 70 68 2e 20 54 68 65 79 20 61 72 65 20 6f 6e 6c 79 20 61 76 61 69 6c 61 62 6c 65 20 77 69 | raph..They.are.only.available.wi |
| 24b040 | 74 68 20 73 6f 6d 65 20 4c 69 73 70 0a 73 79 73 74 65 6d 73 2c 20 61 6e 64 20 61 72 65 20 6d 6f | th.some.Lisp.systems,.and.are.mo |
| 24b060 | 73 74 20 75 73 65 66 75 6c 20 61 73 20 61 20 66 61 6c 6c 62 61 63 6b 20 77 68 65 6e 20 70 72 65 | st.useful.as.a.fallback.when.pre |
| 24b080 | 63 69 73 65 20 40 61 63 72 6f 6e 79 6d 7b 58 52 45 46 7d 0a 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 | cise.@acronym{XREF}.information. |
| 24b0a0 | 69 73 20 75 6e 61 76 61 69 6c 61 62 6c 65 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 | is.unavailable...@table.@kbd.@kb |
| 24b0c0 | 64 69 74 65 6d 7b 43 2d 63 20 3c 2c 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 61 6c 6c 65 72 73 7d | ditem{C-c.<,.slime-list-callers} |
| 24b0e0 | 0a 4c 69 73 74 20 63 61 6c 6c 65 72 73 20 6f 66 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 40 6b | .List.callers.of.a.function...@k |
| 24b100 | 62 64 69 74 65 6d 7b 43 2d 63 20 3e 2c 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 61 6c 6c 65 65 73 | bditem{C-c.>,.slime-list-callees |
| 24b120 | 7d 0a 4c 69 73 74 20 63 61 6c 6c 65 65 73 20 6f 66 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 40 | }.List.callees.of.a.function...@ |
| 24b140 | 65 6e 64 20 74 61 62 6c 65 0a 0a 40 6e 6f 64 65 20 58 72 65 66 20 62 75 66 66 65 72 20 63 6f 6d | end.table..@node.Xref.buffer.com |
| 24b160 | 6d 61 6e 64 73 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 58 72 65 66 20 62 75 66 66 65 72 20 63 6f | mands.@subsection.Xref.buffer.co |
| 24b180 | 6d 6d 61 6e 64 73 0a 43 6f 6d 6d 61 6e 64 73 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 58 72 65 | mmands.Commands.available.in.Xre |
| 24b1a0 | 66 20 62 75 66 66 65 72 73 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 6b 62 64 69 74 65 6d 7b | f.buffers.@table.@kbd..@kbditem{ |
| 24b1c0 | 52 45 54 2c 20 73 6c 69 6d 65 2d 73 68 6f 77 2d 78 72 65 66 7d 0a 53 68 6f 77 20 64 65 66 69 6e | RET,.slime-show-xref}.Show.defin |
| 24b1e0 | 69 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 6f 74 68 65 72 20 77 69 6e 64 | ition.at.point.in.the.other.wind |
| 24b200 | 6f 77 2e 20 44 6f 20 6e 6f 74 20 6c 65 61 76 65 20 58 72 65 66 20 62 75 66 66 65 72 2e 0a 0a 40 | ow..Do.not.leave.Xref.buffer...@ |
| 24b220 | 6b 62 64 69 74 65 6d 7b 53 70 61 63 65 2c 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 78 72 65 66 7d 0a | kbditem{Space,.slime-goto-xref}. |
| 24b240 | 53 68 6f 77 20 64 65 66 69 6e 69 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 | Show.definition.at.point.in.the. |
| 24b260 | 6f 74 68 65 72 20 77 69 6e 64 6f 77 20 61 6e 64 20 63 6c 6f 73 65 20 58 72 65 66 20 62 75 66 66 | other.window.and.close.Xref.buff |
| 24b280 | 65 72 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 63 2c 20 73 6c 69 6d 65 2d 72 65 63 | er...@kbditem{C-c.C-c,.slime-rec |
| 24b2a0 | 6f 6d 70 69 6c 65 2d 78 72 65 66 7d 0a 52 65 63 6f 6d 70 69 6c 65 20 64 65 66 69 6e 69 74 69 6f | ompile-xref}.Recompile.definitio |
| 24b2c0 | 6e 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 6b 2c 20 73 | n.at.point...@kbditem{C-c.C-k,.s |
| 24b2e0 | 6c 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 61 6c 6c 2d 78 72 65 66 73 7d 0a 52 65 63 6f 6d 70 | lime-recompile-all-xrefs}.Recomp |
| 24b300 | 69 6c 65 20 61 6c 6c 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 | ile.all.definitions...@end.table |
| 24b320 | 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f | ..@c.-----------------------.@no |
| 24b340 | 64 65 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 0a 40 73 65 63 74 69 6f 6e 20 4d 61 63 72 | de.Macro-expansion.@section.Macr |
| 24b360 | 6f 2d 65 78 70 61 6e 73 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 0a 0a 40 63 69 6e 64 65 78 20 4d 61 | o-expansion.commands..@cindex.Ma |
| 24b380 | 63 72 6f 73 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 | cros..@table.@kbd.@kbditem{C-c.C |
| 24b3a0 | 2d 6d 2c 20 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 31 7d 0a 4d 61 63 72 6f 65 78 70 61 6e 64 20 | -m,.slime-expand-1}.Macroexpand. |
| 24b3c0 | 28 6f 72 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 29 20 74 68 65 20 65 78 | (or.compiler-macroexpand).the.ex |
| 24b3e0 | 70 72 65 73 73 69 6f 6e 20 73 74 61 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 0a 6f 6e 63 65 2e | pression.starting.at.point.once. |
| 24b400 | 20 20 49 66 20 69 6e 76 6f 6b 65 64 20 77 69 74 68 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d | ..If.invoked.with.a.prefix.argum |
| 24b420 | 65 6e 74 2c 20 75 73 65 20 6d 61 63 72 6f 65 78 70 61 6e 64 20 69 6e 73 74 65 61 64 20 6f 66 0a | ent,.use.macroexpand.instead.of. |
| 24b440 | 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 28 6f 72 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f | macroexpand-1.(or.compiler-macro |
| 24b460 | 65 78 70 61 6e 64 20 69 6e 73 74 65 61 64 20 6f 66 0a 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f | expand.instead.of.compiler-macro |
| 24b480 | 65 78 70 61 6e 64 2d 31 29 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 6d 61 63 72 6f | expand-1)...@cmditem{slime-macro |
| 24b4a0 | 65 78 70 61 6e 64 2d 31 7d 0a 4d 61 63 72 6f 65 78 70 61 6e 64 20 74 68 65 20 65 78 70 72 65 73 | expand-1}.Macroexpand.the.expres |
| 24b4c0 | 73 69 6f 6e 20 73 74 61 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 20 6f 6e 63 65 2e 20 20 49 66 | sion.starting.at.point.once...If |
| 24b4e0 | 20 69 6e 76 6f 6b 65 64 20 77 69 74 68 20 61 0a 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c | .invoked.with.a.prefix.argument, |
| 24b500 | 20 75 73 65 20 6d 61 63 72 6f 65 78 70 61 6e 64 20 69 6e 73 74 65 61 64 20 6f 66 20 6d 61 63 72 | .use.macroexpand.instead.of.macr |
| 24b520 | 6f 65 78 70 61 6e 64 2d 31 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 4d 2d 6d 2c 20 73 6c | oexpand-1...@kbditem{C-c.M-m,.sl |
| 24b540 | 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 7d 0a 46 75 6c 6c 79 20 6d 61 63 72 6f | ime-macroexpand-all}.Fully.macro |
| 24b560 | 65 78 70 61 6e 64 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 73 74 61 72 74 69 6e 67 20 61 | expand.the.expression.starting.a |
| 24b580 | 74 20 70 6f 69 6e 74 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 | t.point...@cmditem{slime-compile |
| 24b5a0 | 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 7d 0a 44 69 73 70 6c 61 79 20 74 68 65 20 63 6f 6d | r-macroexpand-1}.Display.the.com |
| 24b5c0 | 70 69 6c 65 72 2d 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 73 65 78 70 20 73 74 | piler-macro.expansion.of.sexp.st |
| 24b5e0 | 61 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 | arting.at.point...@cmditem{slime |
| 24b600 | 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 7d 0a 52 65 70 65 61 74 65 64 6c | -compiler-macroexpand}.Repeatedl |
| 24b620 | 79 20 65 78 70 61 6e 64 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 73 20 6f 66 20 73 65 78 70 | y.expand.compiler.macros.of.sexp |
| 24b640 | 20 73 74 61 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a | .starting.at.point...@end.table. |
| 24b660 | 0a 46 6f 72 20 61 64 64 69 74 69 6f 6e 61 6c 20 6d 69 6e 6f 72 2d 6d 6f 64 65 20 63 6f 6d 6d 61 | .For.additional.minor-mode.comma |
| 24b680 | 6e 64 73 20 61 6e 64 20 64 69 73 63 75 73 73 69 6f 6e 2c 0a 40 70 78 72 65 66 7b 73 6c 69 6d 65 | nds.and.discussion,.@pxref{slime |
| 24b6a0 | 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 7d 2e 0a 0a 0a 40 | -macroexpansion-minor-mode}....@ |
| 24b6c0 | 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 | c.-----------------------.@node. |
| 24b6e0 | 44 69 73 61 73 73 65 6d 62 6c 79 0a 40 73 65 63 74 69 6f 6e 20 44 69 73 61 73 73 65 6d 62 6c 79 | Disassembly.@section.Disassembly |
| 24b700 | 20 63 6f 6d 6d 61 6e 64 73 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 6b 62 64 69 74 65 6d | .commands..@table.@kbd..@kbditem |
| 24b720 | 7b 43 2d 63 20 4d 2d 64 2c 20 73 6c 69 6d 65 2d 64 69 73 61 73 73 65 6d 62 6c 65 2d 73 79 6d 62 | {C-c.M-d,.slime-disassemble-symb |
| 24b740 | 6f 6c 7d 0a 44 69 73 61 73 73 65 6d 62 6c 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 66 | ol}.Disassemble.the.function.def |
| 24b760 | 69 6e 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 0a | inition.of.the.symbol.at.point.. |
| 24b780 | 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 74 2c 20 73 6c 69 6d 65 2d 74 6f 67 67 6c 65 2d | .@kbditem{C-c.C-t,.slime-toggle- |
| 24b7a0 | 74 72 61 63 65 2d 66 64 65 66 69 6e 69 74 69 6f 6e 7d 0a 54 6f 67 67 6c 65 20 74 72 61 63 69 6e | trace-fdefinition}.Toggle.tracin |
| 24b7c0 | 67 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2e 20 20 49 66 20 | g.of.the.function.at.point...If. |
| 24b7e0 | 69 6e 76 6f 6b 65 64 20 77 69 74 68 20 61 20 70 72 65 66 69 78 0a 61 72 67 75 6d 65 6e 74 2c 20 | invoked.with.a.prefix.argument,. |
| 24b800 | 72 65 61 64 20 61 64 64 69 74 69 6f 6e 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 6c 69 6b | read.additional.information,.lik |
| 24b820 | 65 20 77 68 69 63 68 20 70 61 72 74 69 63 75 6c 61 72 20 6d 65 74 68 6f 64 0a 73 68 6f 75 6c 64 | e.which.particular.method.should |
| 24b840 | 20 62 65 20 74 72 61 63 65 64 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 75 6e 74 72 | .be.traced...@cmditem{slime-untr |
| 24b860 | 61 63 65 2d 61 6c 6c 7d 0a 55 6e 74 72 61 63 65 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 0a | ace-all}.Untrace.all.functions.. |
| 24b880 | 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | .@end.table..@c.---------------- |
| 24b8a0 | 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 52 65 63 6f 76 65 72 79 0a 40 73 65 63 74 69 6f 6e 20 | -------.@node.Recovery.@section. |
| 24b8c0 | 41 62 6f 72 74 2f 52 65 63 6f 76 65 72 79 20 63 6f 6d 6d 61 6e 64 73 0a 0a 40 74 61 62 6c 65 20 | Abort/Recovery.commands..@table. |
| 24b8e0 | 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 62 2c 20 73 6c 69 6d 65 2d 69 6e 74 | @kbd.@kbditem{C-c.C-b,.slime-int |
| 24b900 | 65 72 72 75 70 74 7d 0a 49 6e 74 65 72 72 75 70 74 20 4c 69 73 70 20 28 73 65 6e 64 20 40 63 6f | errupt}.Interrupt.Lisp.(send.@co |
| 24b920 | 64 65 7b 53 49 47 49 4e 54 7d 29 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 72 65 73 | de{SIGINT})...@cmditem{slime-res |
| 24b940 | 74 61 72 74 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 7d 0a 52 65 73 74 61 72 74 20 74 68 65 20 | tart-inferior-lisp}.Restart.the. |
| 24b960 | 40 63 6f 64 65 7b 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 7d 20 70 72 6f 63 65 73 73 2e 0a 0a 40 | @code{inferior-lisp}.process...@ |
| 24b980 | 6b 62 64 69 74 65 6d 7b 43 2d 63 20 7e 2c 20 73 6c 69 6d 65 2d 73 79 6e 63 2d 70 61 63 6b 61 67 | kbditem{C-c.~,.slime-sync-packag |
| 24b9a0 | 65 2d 61 6e 64 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 7d 0a 53 79 6e 63 68 72 6f | e-and-default-directory}.Synchro |
| 24b9c0 | 6e 69 7a 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 61 6e 64 20 77 6f 72 | nize.the.current.package.and.wor |
| 24b9e0 | 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 20 66 72 6f 6d 20 45 6d 61 63 73 20 74 6f 0a 4c 69 73 | king.directory.from.Emacs.to.Lis |
| 24ba00 | 70 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 4d 2d 70 2c 20 73 6c 69 6d 65 2d 72 65 70 6c | p...@kbditem{C-c.M-p,.slime-repl |
| 24ba20 | 2d 73 65 74 2d 70 61 63 6b 61 67 65 7d 0a 53 65 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 | -set-package}.Set.the.current.pa |
| 24ba40 | 63 6b 61 67 65 20 6f 66 20 74 68 65 20 40 61 63 72 6f 6e 79 6d 7b 52 45 50 4c 7d 2e 0a 0a 40 63 | ckage.of.the.@acronym{REPL}...@c |
| 24ba60 | 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 63 64 7d 0a 53 65 74 20 74 68 65 20 63 75 72 72 65 6e 74 | mditem{slime-cd}.Set.the.current |
| 24ba80 | 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 2e 20 | .directory.of.the.Lisp.process.. |
| 24baa0 | 20 54 68 69 73 20 61 6c 73 6f 0a 63 68 61 6e 67 65 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 | .This.also.changes.the.current.d |
| 24bac0 | 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 2e 0a 0a 40 63 | irectory.of.the.REPL.buffer...@c |
| 24bae0 | 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 70 77 64 7d 0a 50 72 69 6e 74 20 74 68 65 20 63 75 72 72 | mditem{slime-pwd}.Print.the.curr |
| 24bb00 | 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 | ent.directory.of.the.Lisp.proces |
| 24bb20 | 73 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | s...@end.table..@c.------------- |
| 24bb40 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 49 6e 73 70 65 63 74 6f 72 0a 40 73 65 63 74 | ----------.@node.Inspector.@sect |
| 24bb60 | 69 6f 6e 20 49 6e 73 70 65 63 74 6f 72 20 63 6f 6d 6d 61 6e 64 73 0a 0a 54 68 65 20 40 53 4c 49 | ion.Inspector.commands..The.@SLI |
| 24bb80 | 4d 45 7b 7d 20 69 6e 73 70 65 63 74 6f 72 20 69 73 20 61 20 45 6d 61 63 73 2d 62 61 73 65 64 20 | ME{}.inspector.is.a.Emacs-based. |
| 24bba0 | 61 6c 74 65 72 6e 61 74 69 76 65 20 74 6f 20 74 68 65 0a 73 74 61 6e 64 61 72 64 20 40 63 6f 64 | alternative.to.the.standard.@cod |
| 24bbc0 | 65 7b 49 4e 53 50 45 43 54 7d 20 66 75 6e 63 74 69 6f 6e 2e 20 54 68 65 20 69 6e 73 70 65 63 74 | e{INSPECT}.function..The.inspect |
| 24bbe0 | 6f 72 20 70 72 65 73 65 6e 74 73 20 6f 62 6a 65 63 74 73 20 69 6e 0a 45 6d 61 63 73 20 62 75 66 | or.presents.objects.in.Emacs.buf |
| 24bc00 | 66 65 72 73 20 75 73 69 6e 67 20 61 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 70 6c 61 69 | fers.using.a.combination.of.plai |
| 24bc20 | 6e 20 74 65 78 74 2c 20 68 79 70 65 72 6c 69 6e 6b 73 20 74 6f 20 72 65 6c 61 74 65 64 0a 6f 62 | n.text,.hyperlinks.to.related.ob |
| 24bc40 | 6a 65 63 74 73 2e 0a 0a 54 68 65 20 69 6e 73 70 65 63 74 6f 72 20 63 61 6e 20 65 61 73 69 6c 79 | jects...The.inspector.can.easily |
| 24bc60 | 20 62 65 20 73 70 65 63 69 61 6c 69 7a 65 64 20 66 6f 72 20 74 68 65 20 6f 62 6a 65 63 74 73 20 | .be.specialized.for.the.objects. |
| 24bc80 | 69 6e 20 79 6f 75 72 20 6f 77 6e 0a 70 72 6f 67 72 61 6d 73 2e 20 46 6f 72 20 64 65 74 61 69 6c | in.your.own.programs..For.detail |
| 24bca0 | 73 20 73 65 65 20 74 68 65 20 40 63 6f 64 65 7b 69 6e 73 70 65 63 74 2d 66 6f 72 2d 65 6d 61 63 | s.see.the.@code{inspect-for-emac |
| 24bcc0 | 73 7d 20 67 65 6e 65 72 69 63 0a 66 75 6e 63 74 69 6f 6e 20 69 6e 20 40 66 69 6c 65 7b 73 77 61 | s}.generic.function.in.@file{swa |
| 24bce0 | 6e 6b 2f 62 61 63 6b 65 6e 64 2e 6c 69 73 70 7d 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a | nk/backend.lisp}...@table.@kbd.. |
| 24bd00 | 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 49 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 7d 0a 49 | @kbditem{C-c.I,.slime-inspect}.I |
| 24bd20 | 6e 73 70 65 63 74 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61 6e 20 65 78 70 72 65 73 73 69 6f | nspect.the.value.of.an.expressio |
| 24bd40 | 6e 20 65 6e 74 65 72 65 64 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 0a 40 65 | n.entered.in.the.minibuffer...@e |
| 24bd60 | 6e 64 20 74 61 62 6c 65 0a 0a 54 68 65 20 73 74 61 6e 64 61 72 64 20 63 6f 6d 6d 61 6e 64 73 20 | nd.table..The.standard.commands. |
| 24bd80 | 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 61 72 65 3a 0a | available.in.the.inspector.are:. |
| 24bda0 | 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 6b 62 64 69 74 65 6d 7b 52 45 54 2c 20 73 6c 69 6d | .@table.@kbd..@kbditem{RET,.slim |
| 24bdc0 | 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6f 70 65 72 61 74 65 2d 6f 6e 2d 70 6f 69 6e 74 7d 0a 49 66 | e-inspector-operate-on-point}.If |
| 24bde0 | 20 70 6f 69 6e 74 20 69 73 20 6f 6e 20 61 20 76 61 6c 75 65 20 74 68 65 6e 20 72 65 63 75 72 73 | .point.is.on.a.value.then.recurs |
| 24be00 | 69 76 65 6c 79 20 63 61 6c 6c 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 6f 6e 20 74 68 61 74 | ively.call.the.inspector.on.that |
| 24be20 | 0a 76 61 6c 75 65 2e 20 49 66 20 70 6f 69 6e 74 20 69 73 20 6f 6e 20 61 6e 20 61 63 74 69 6f 6e | .value..If.point.is.on.an.action |
| 24be40 | 20 74 68 65 6e 20 63 61 6c 6c 20 74 68 61 74 20 61 63 74 69 6f 6e 2e 0a 0a 40 6b 62 64 69 74 65 | .then.call.that.action...@kbdite |
| 24be60 | 6d 7b 64 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 64 65 73 63 72 69 62 65 7d 0a 44 | m{d,.slime-inspector-describe}.D |
| 24be80 | 65 73 63 72 69 62 65 20 74 68 65 20 73 6c 6f 74 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 40 6b 62 64 | escribe.the.slot.at.point...@kbd |
| 24bea0 | 69 74 65 6d 7b 65 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 65 76 61 6c 7d 0a 45 76 | item{e,.slime-inspector-eval}.Ev |
| 24bec0 | 61 6c 75 61 74 65 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 20 74 68 65 20 63 6f 6e 74 | aluate.an.expression.in.the.cont |
| 24bee0 | 65 78 74 20 6f 66 20 74 68 65 20 69 6e 73 70 65 63 74 65 64 20 6f 62 6a 65 63 74 2e 20 20 54 68 | ext.of.the.inspected.object...Th |
| 24bf00 | 65 0a 76 61 72 69 61 62 6c 65 20 40 63 6f 64 65 7b 2a 7d 20 77 69 6c 6c 20 62 65 20 62 6f 75 6e | e.variable.@code{*}.will.be.boun |
| 24bf20 | 64 20 74 6f 20 74 68 65 20 69 6e 73 70 65 63 74 65 64 20 6f 62 6a 65 63 74 2e 0a 0a 40 6b 62 64 | d.to.the.inspected.object...@kbd |
| 24bf40 | 69 74 65 6d 7b 76 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 74 6f 67 67 6c 65 2d 76 | item{v,.slime-inspector-toggle-v |
| 24bf60 | 65 72 62 6f 73 65 7d 0a 54 6f 67 67 6c 65 20 62 65 74 77 65 65 6e 20 76 65 72 62 6f 73 65 20 61 | erbose}.Toggle.between.verbose.a |
| 24bf80 | 6e 64 20 74 65 72 73 65 20 6d 6f 64 65 2e 20 44 65 66 61 75 6c 74 20 69 73 20 64 65 74 65 72 6d | nd.terse.mode..Default.is.determ |
| 24bfa0 | 69 6e 65 64 20 62 79 0a 60 73 77 61 6e 6b 3a 2a 69 6e 73 70 65 63 74 6f 72 2d 76 65 72 62 6f 73 | ined.by.`swank:*inspector-verbos |
| 24bfc0 | 65 2a 27 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 6c 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f | e*'...@kbditem{l,.slime-inspecto |
| 24bfe0 | 72 2d 70 6f 70 7d 0a 47 6f 20 62 61 63 6b 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6f | r-pop}.Go.back.to.the.previous.o |
| 24c000 | 62 6a 65 63 74 20 28 72 65 74 75 72 6e 20 66 72 6f 6d 20 40 6b 62 64 7b 52 45 54 7d 29 2e 0a 0a | bject.(return.from.@kbd{RET})... |
| 24c020 | 40 6b 62 64 69 74 65 6d 7b 6e 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 | @kbditem{n,.slime-inspector-next |
| 24c040 | 7d 0a 54 68 65 20 69 6e 76 65 72 73 65 20 6f 66 20 40 6b 62 64 7b 6c 7d 2e 20 41 6c 73 6f 20 62 | }.The.inverse.of.@kbd{l}..Also.b |
| 24c060 | 6f 75 6e 64 20 74 6f 20 40 6b 62 64 7b 53 50 43 7d 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 67 2c 20 | ound.to.@kbd{SPC}...@kbditem{g,. |
| 24c080 | 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 72 65 69 6e 73 70 65 63 74 7d 0a 52 65 69 6e 73 | slime-inspector-reinspect}.Reins |
| 24c0a0 | 70 65 63 74 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 71 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 | pect...@kbditem{q,.slime-inspect |
| 24c0c0 | 6f 72 2d 71 75 69 74 7d 0a 44 69 73 6d 69 73 73 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 62 | or-quit}.Dismiss.the.inspector.b |
| 24c0e0 | 75 66 66 65 72 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 70 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 | uffer...@kbditem{p,.slime-inspec |
| 24c100 | 74 6f 72 2d 70 70 72 69 6e 74 7d 0a 50 72 65 74 74 79 20 70 72 69 6e 74 20 69 6e 20 61 6e 6f 74 | tor-pprint}.Pretty.print.in.anot |
| 24c120 | 68 65 72 20 62 75 66 66 65 72 20 6f 62 6a 65 63 74 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 40 6b 62 | her.buffer.object.at.point...@kb |
| 24c140 | 64 69 74 65 6d 7b 2e 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 73 68 6f 77 2d 73 6f | ditem{.,.slime-inspector-show-so |
| 24c160 | 75 72 63 65 7d 0a 46 69 6e 64 20 73 6f 75 72 63 65 20 6f 66 20 6f 62 6a 65 63 74 20 61 74 20 70 | urce}.Find.source.of.object.at.p |
| 24c180 | 6f 69 6e 74 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 3e 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 | oint...@kbditem{>,.slime-inspect |
| 24c1a0 | 6f 72 2d 66 65 74 63 68 2d 61 6c 6c 7d 0a 46 65 74 63 68 20 61 6c 6c 20 69 6e 73 70 65 63 74 6f | or-fetch-all}.Fetch.all.inspecto |
| 24c1c0 | 72 20 63 6f 6e 74 65 6e 74 73 20 61 6e 64 20 67 6f 20 74 6f 20 74 68 65 20 65 6e 64 2e 0a 0a 40 | r.contents.and.go.to.the.end...@ |
| 24c1e0 | 6b 62 64 69 74 65 6d 7b 4d 2d 52 45 54 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 63 | kbditem{M-RET,.slime-inspector-c |
| 24c200 | 6f 70 79 2d 64 6f 77 6e 7d 0a 53 74 6f 72 65 20 74 68 65 20 76 61 6c 75 65 20 75 6e 64 65 72 20 | opy-down}.Store.the.value.under. |
| 24c220 | 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 60 2a 27 2e 20 20 54 68 69 73 | point.in.the.variable.`*'...This |
| 24c240 | 20 63 61 6e 0a 74 68 65 6e 20 62 65 20 75 73 65 64 20 74 6f 20 61 63 63 65 73 73 20 74 68 65 20 | .can.then.be.used.to.access.the. |
| 24c260 | 6f 62 6a 65 63 74 20 69 6e 20 74 68 65 20 52 45 50 4c 2e 0a 0a 40 6b 62 64 69 74 65 6d 70 61 69 | object.in.the.REPL...@kbditempai |
| 24c280 | 72 7b 54 41 42 2c 20 53 2d 54 41 42 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 | r{TAB,.S-TAB,.slime-inspector-ne |
| 24c2a0 | 78 74 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 74 2c 20 73 6c 69 6d 65 2d 69 6e 73 | xt-inspectable-object,.slime-ins |
| 24c2c0 | 70 65 63 74 6f 72 2d 70 72 65 76 69 6f 75 73 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 | pector-previous-inspectable-obje |
| 24c2e0 | 63 74 7d 0a 0a 4a 75 6d 70 20 74 6f 20 74 68 65 20 6e 65 78 74 20 61 6e 64 20 70 72 65 76 69 6f | ct}..Jump.to.the.next.and.previo |
| 24c300 | 75 73 20 69 6e 73 70 65 63 74 61 62 6c 65 20 6f 62 6a 65 63 74 20 72 65 73 70 65 63 74 69 76 65 | us.inspectable.object.respective |
| 24c320 | 6c 79 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ly...@end.table..@c.------------ |
| 24c340 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 50 72 6f 66 69 6c 69 6e 67 0a 40 73 65 63 | -----------.@node.Profiling.@sec |
| 24c360 | 74 69 6f 6e 20 50 72 6f 66 69 6c 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 0a 0a 54 68 65 20 70 72 6f | tion.Profiling.commands..The.pro |
| 24c380 | 66 69 6c 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 62 61 73 65 64 20 6f 6e 20 43 4d 55 | filing.commands.are.based.on.CMU |
| 24c3a0 | 43 4c 27 73 20 70 72 6f 66 69 6c 65 72 2e 20 20 54 68 65 73 65 20 61 72 65 0a 73 69 6d 70 6c 65 | CL's.profiler...These.are.simple |
| 24c3c0 | 20 77 72 61 70 70 65 72 73 20 61 72 6f 75 6e 64 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 | .wrappers.around.functions.which |
| 24c3e0 | 20 75 73 75 61 6c 6c 79 20 70 72 69 6e 74 20 73 6f 6d 65 74 68 69 6e 67 20 74 6f 20 74 68 65 0a | .usually.print.something.to.the. |
| 24c400 | 6f 75 74 70 75 74 20 62 75 66 66 65 72 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 63 6d 64 | output.buffer...@table.@kbd.@cmd |
| 24c420 | 69 74 65 6d 7b 73 6c 69 6d 65 2d 74 6f 67 67 6c 65 2d 70 72 6f 66 69 6c 65 2d 66 64 65 66 69 6e | item{slime-toggle-profile-fdefin |
| 24c440 | 69 74 69 6f 6e 7d 0a 54 6f 67 67 6c 65 20 70 72 6f 66 69 6c 69 6e 67 20 6f 66 20 61 20 66 75 6e | ition}.Toggle.profiling.of.a.fun |
| 24c460 | 63 74 69 6f 6e 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 70 61 | ction..@cmditem{slime-profile-pa |
| 24c480 | 63 6b 61 67 65 7d 0a 50 72 6f 66 69 6c 65 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 20 | ckage}.Profile.all.functions.in. |
| 24c4a0 | 61 20 70 61 63 6b 61 67 65 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 70 72 6f 66 69 6c | a.package..@cmditem{slime-profil |
| 24c4c0 | 65 2d 62 79 2d 73 75 62 73 74 72 69 6e 67 7d 0a 50 72 6f 66 69 6c 65 20 61 6c 6c 20 66 75 6e 63 | e-by-substring}.Profile.all.func |
| 24c4e0 | 74 69 6f 6e 73 20 77 68 69 63 68 20 6e 61 6d 65 73 20 63 6f 6e 74 61 69 6e 20 61 20 73 75 62 73 | tions.which.names.contain.a.subs |
| 24c500 | 74 72 69 6e 67 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 75 6e 70 72 6f 66 69 6c 65 2d | tring..@cmditem{slime-unprofile- |
| 24c520 | 61 6c 6c 7d 0a 55 6e 70 72 6f 66 69 6c 65 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 40 63 | all}.Unprofile.all.functions..@c |
| 24c540 | 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 7d 0a 52 65 70 | mditem{slime-profile-report}.Rep |
| 24c560 | 6f 72 74 20 70 72 6f 66 69 6c 65 72 20 64 61 74 61 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d | ort.profiler.data..@cmditem{slim |
| 24c580 | 65 2d 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 7d 0a 52 65 73 65 74 20 70 72 6f 66 69 6c 65 72 20 | e-profile-reset}.Reset.profiler. |
| 24c5a0 | 64 61 74 61 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 64 2d 66 75 | data..@cmditem{slime-profiled-fu |
| 24c5c0 | 6e 63 74 69 6f 6e 73 7d 0a 53 68 6f 77 20 6c 69 73 74 20 6f 66 20 63 75 72 72 65 6e 74 6c 79 20 | nctions}.Show.list.of.currently. |
| 24c5e0 | 70 72 6f 66 69 6c 65 64 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a | profiled.functions..@end.table.. |
| 24c600 | 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 | @c.-----------------------.@node |
| 24c620 | 20 4f 74 68 65 72 0a 40 73 65 63 74 69 6f 6e 20 53 68 61 64 6f 77 65 64 20 43 6f 6d 6d 61 6e 64 | .Other.@section.Shadowed.Command |
| 24c640 | 73 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 6b 62 64 69 74 65 6d 70 61 69 72 7b 43 2d 63 | s..@table.@kbd..@kbditempair{C-c |
| 24c660 | 20 43 2d 61 2c 20 43 2d 63 20 43 2d 76 2c 20 73 6c 69 6d 65 2d 6e 6f 70 2c 20 73 6c 69 6d 65 2d | .C-a,.C-c.C-v,.slime-nop,.slime- |
| 24c680 | 6e 6f 70 7d 0a 54 68 69 73 20 6b 65 79 2d 62 69 6e 64 69 6e 67 20 69 73 20 73 68 61 64 6f 77 65 | nop}.This.key-binding.is.shadowe |
| 24c6a0 | 64 20 66 72 6f 6d 20 69 6e 66 2d 6c 69 73 70 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 63 | d.from.inf-lisp...@end.table..@c |
| 24c6c0 | 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 53 | .-----------------------.@node.S |
| 24c6e0 | 65 6d 61 6e 74 69 63 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 40 73 65 63 74 69 6f 6e 20 53 65 6d | emantic.indentation.@section.Sem |
| 24c700 | 61 6e 74 69 63 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 0a 40 53 4c 49 4d 45 7b 7d 20 61 75 74 6f | antic.indentation..@SLIME{}.auto |
| 24c720 | 6d 61 74 69 63 61 6c 6c 79 20 64 69 73 63 6f 76 65 72 73 20 68 6f 77 20 74 6f 20 69 6e 64 65 6e | matically.discovers.how.to.inden |
| 24c740 | 74 20 74 68 65 20 6d 61 63 72 6f 73 20 69 6e 20 79 6f 75 72 20 4c 69 73 70 0a 73 79 73 74 65 6d | t.the.macros.in.your.Lisp.system |
| 24c760 | 2e 20 54 6f 20 64 6f 20 74 68 69 73 20 74 68 65 20 4c 69 73 70 20 73 69 64 65 20 73 63 61 6e 73 | ..To.do.this.the.Lisp.side.scans |
| 24c780 | 20 61 6c 6c 20 74 68 65 20 6d 61 63 72 6f 73 20 69 6e 20 74 68 65 20 73 79 73 74 65 6d 20 61 6e | .all.the.macros.in.the.system.an |
| 24c7a0 | 64 0a 72 65 70 6f 72 74 73 20 74 6f 20 45 6d 61 63 73 20 61 6c 6c 20 74 68 65 20 6f 6e 65 73 20 | d.reports.to.Emacs.all.the.ones. |
| 24c7c0 | 77 69 74 68 20 40 63 6f 64 65 7b 26 62 6f 64 79 7d 20 61 72 67 75 6d 65 6e 74 73 2e 20 45 6d 61 | with.@code{&body}.arguments..Ema |
| 24c7e0 | 63 73 20 74 68 65 6e 0a 69 6e 64 65 6e 74 73 20 74 68 65 73 65 20 73 70 65 63 69 61 6c 6c 79 2c | cs.then.indents.these.specially, |
| 24c800 | 20 70 75 74 74 69 6e 67 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 75 | .putting.the.first.arguments.fou |
| 24c820 | 72 20 73 70 61 63 65 73 20 69 6e 20 61 6e 64 0a 74 68 65 20 60 60 62 6f 64 79 27 27 20 61 72 67 | r.spaces.in.and.the.``body''.arg |
| 24c840 | 75 6d 65 6e 74 73 20 6a 75 73 74 20 74 77 6f 20 73 70 61 63 65 73 2c 20 61 73 20 75 73 75 61 6c | uments.just.two.spaces,.as.usual |
| 24c860 | 2e 0a 0a 54 68 69 73 20 73 68 6f 75 6c 64 20 60 60 6a 75 73 74 20 77 6f 72 6b 2e 27 27 20 49 66 | ...This.should.``just.work.''.If |
| 24c880 | 20 79 6f 75 20 61 72 65 20 61 20 6c 75 63 6b 79 20 73 6f 72 74 20 6f 66 20 70 65 72 73 6f 6e 20 | .you.are.a.lucky.sort.of.person. |
| 24c8a0 | 79 6f 75 20 6e 65 65 64 6e 27 74 0a 72 65 61 64 20 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 69 | you.needn't.read.the.rest.of.thi |
| 24c8c0 | 73 20 73 65 63 74 69 6f 6e 2e 0a 0a 54 6f 20 73 69 6d 70 6c 69 66 79 20 74 68 65 20 69 6d 70 6c | s.section...To.simplify.the.impl |
| 24c8e0 | 65 6d 65 6e 74 61 74 69 6f 6e 2c 20 40 53 4c 49 4d 45 7b 7d 20 64 6f 65 73 6e 27 74 20 64 69 73 | ementation,.@SLIME{}.doesn't.dis |
| 24c900 | 74 69 6e 67 75 69 73 68 20 62 65 74 77 65 65 6e 0a 6d 61 63 72 6f 73 20 77 69 74 68 20 74 68 65 | tinguish.between.macros.with.the |
| 24c920 | 20 73 61 6d 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 62 75 74 20 64 69 66 66 65 72 65 6e 74 20 | .same.symbol-name.but.different. |
| 24c940 | 70 61 63 6b 61 67 65 73 2e 20 54 68 69 73 20 6d 61 6b 65 73 20 69 74 0a 66 69 74 20 6e 69 63 65 | packages..This.makes.it.fit.nice |
| 24c960 | 6c 79 20 77 69 74 68 20 45 6d 61 63 73 27 73 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 63 6f 64 65 | ly.with.Emacs's.indentation.code |
| 24c980 | 2e 20 48 6f 77 65 76 65 72 2c 20 69 66 20 79 6f 75 20 64 6f 20 68 61 76 65 0a 73 65 76 65 72 61 | ..However,.if.you.do.have.severa |
| 24c9a0 | 6c 20 6d 61 63 72 6f 73 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 73 79 6d 62 6f 6c 2d 6e 61 | l.macros.with.the.same.symbol-na |
| 24c9c0 | 6d 65 20 74 68 65 6e 20 74 68 65 79 20 77 69 6c 6c 20 61 6c 6c 20 62 65 20 69 6e 64 65 6e 74 65 | me.then.they.will.all.be.indente |
| 24c9e0 | 64 0a 74 68 65 20 73 61 6d 65 20 77 61 79 2c 20 61 72 62 69 74 72 61 72 69 6c 79 20 75 73 69 6e | d.the.same.way,.arbitrarily.usin |
| 24ca00 | 67 20 74 68 65 20 73 74 79 6c 65 20 66 72 6f 6d 20 6f 6e 65 20 6f 66 20 74 68 65 69 72 0a 61 72 | g.the.style.from.one.of.their.ar |
| 24ca20 | 67 6c 69 73 74 73 2e 20 59 6f 75 20 63 61 6e 20 66 69 6e 64 20 6f 75 74 20 77 68 69 63 68 20 73 | glists..You.can.find.out.which.s |
| 24ca40 | 79 6d 62 6f 6c 73 20 61 72 65 20 69 6e 76 6f 6c 76 65 64 20 69 6e 20 63 6f 6c 6c 69 73 69 6f 6e | ymbols.are.involved.in.collision |
| 24ca60 | 73 0a 77 69 74 68 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 28 73 77 61 6e 6b 3a 70 72 69 6e 74 2d 69 | s.with:..@example.(swank:print-i |
| 24ca80 | 6e 64 65 6e 74 61 74 69 6f 6e 2d 6c 6f 73 73 61 67 65 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 | ndentation-lossage).@end.example |
| 24caa0 | 0a 0a 49 66 20 61 20 63 6f 6c 6c 69 73 69 6f 6e 20 63 61 75 73 65 73 20 79 6f 75 20 69 72 72 69 | ..If.a.collision.causes.you.irri |
| 24cac0 | 74 61 74 69 6f 6e 2c 20 64 6f 6e 27 74 20 68 61 76 65 20 61 20 6e 65 72 76 6f 75 73 20 62 72 65 | tation,.don't.have.a.nervous.bre |
| 24cae0 | 61 6b 64 6f 77 6e 2c 0a 6a 75 73 74 20 6f 76 65 72 72 69 64 65 20 74 68 65 20 45 6c 69 73 70 20 | akdown,.just.override.the.Elisp. |
| 24cb00 | 73 79 6d 62 6f 6c 27 73 20 40 63 6f 64 65 7b 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e | symbol's.@code{common-lisp-inden |
| 24cb20 | 74 2d 66 75 6e 63 74 69 6f 6e 7d 0a 70 72 6f 70 65 72 74 79 20 74 6f 20 79 6f 75 72 20 74 61 73 | t-function}.property.to.your.tas |
| 24cb40 | 74 65 2e 20 40 53 4c 49 4d 45 7b 7d 20 77 6f 6e 27 74 20 6f 76 65 72 72 69 64 65 20 79 6f 75 72 | te..@SLIME{}.won't.override.your |
| 24cb60 | 20 63 75 73 74 6f 6d 20 73 65 74 74 69 6e 67 73 2c 20 69 74 0a 6a 75 73 74 20 74 72 69 65 73 20 | .custom.settings,.it.just.tries. |
| 24cb80 | 74 6f 20 67 69 76 65 20 79 6f 75 20 67 6f 6f 64 20 64 65 66 61 75 6c 74 73 2e 0a 0a 41 20 6d 6f | to.give.you.good.defaults...A.mo |
| 24cba0 | 72 65 20 73 75 62 74 6c 65 20 69 73 73 75 65 20 69 73 20 74 68 61 74 20 69 6d 70 65 72 66 65 63 | re.subtle.issue.is.that.imperfec |
| 24cbc0 | 74 20 63 61 63 68 69 6e 67 20 69 73 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 73 61 6b 65 20 6f | t.caching.is.used.for.the.sake.o |
| 24cbe0 | 66 0a 70 65 72 66 6f 72 6d 61 6e 63 65 2e 20 40 66 6f 6f 74 6e 6f 74 65 7b 40 65 6d 70 68 7b 4f | f.performance..@footnote{@emph{O |
| 24cc00 | 66 20 63 6f 75 72 73 65 7d 20 77 65 20 6d 61 64 65 20 73 75 72 65 20 69 74 20 77 61 73 20 61 63 | f.course}.we.made.sure.it.was.ac |
| 24cc20 | 74 75 61 6c 6c 79 20 74 6f 6f 0a 73 6c 6f 77 20 62 65 66 6f 72 65 20 6d 61 6b 69 6e 67 20 74 68 | tually.too.slow.before.making.th |
| 24cc40 | 65 20 75 67 6c 79 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 2e 7d 0a 0a 49 6e 20 61 6e 20 69 64 65 | e.ugly.optimization.}..In.an.ide |
| 24cc60 | 61 6c 20 77 6f 72 6c 64 2c 20 4c 69 73 70 20 77 6f 75 6c 64 20 61 75 74 6f 6d 61 74 69 63 61 6c | al.world,.Lisp.would.automatical |
| 24cc80 | 6c 79 20 73 63 61 6e 20 65 76 65 72 79 20 73 79 6d 62 6f 6c 20 66 6f 72 0a 69 6e 64 65 6e 74 61 | ly.scan.every.symbol.for.indenta |
| 24cca0 | 74 69 6f 6e 20 63 68 61 6e 67 65 73 20 61 66 74 65 72 20 65 61 63 68 20 63 6f 6d 6d 61 6e 64 20 | tion.changes.after.each.command. |
| 24ccc0 | 66 72 6f 6d 20 45 6d 61 63 73 2e 20 48 6f 77 65 76 65 72 2c 20 74 68 69 73 20 69 73 20 74 6f 6f | from.Emacs..However,.this.is.too |
| 24cce0 | 0a 65 78 70 65 6e 73 69 76 65 20 74 6f 20 64 6f 20 65 76 65 72 79 20 74 69 6d 65 2e 20 49 6e 73 | .expensive.to.do.every.time..Ins |
| 24cd00 | 74 65 61 64 20 4c 69 73 70 20 75 73 75 61 6c 6c 79 20 6a 75 73 74 20 73 63 61 6e 73 20 74 68 65 | tead.Lisp.usually.just.scans.the |
| 24cd20 | 20 73 79 6d 62 6f 6c 73 0a 77 68 6f 73 65 20 68 6f 6d 65 20 70 61 63 6b 61 67 65 20 6d 61 74 63 | .symbols.whose.home.package.matc |
| 24cd40 | 68 65 73 20 74 68 65 20 6f 6e 65 20 75 73 65 64 20 62 79 20 74 68 65 20 45 6d 61 63 73 20 62 75 | hes.the.one.used.by.the.Emacs.bu |
| 24cd60 | 66 66 65 72 20 77 68 65 72 65 20 74 68 65 0a 72 65 71 75 65 73 74 20 63 6f 6d 65 73 20 66 72 6f | ffer.where.the.request.comes.fro |
| 24cd80 | 6d 2e 20 54 68 61 74 20 69 73 20 73 75 66 66 69 63 69 65 6e 74 20 74 6f 20 70 69 63 6b 20 75 70 | m..That.is.sufficient.to.pick.up |
| 24cda0 | 20 74 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 0a 6d 6f 73 74 20 69 6e 74 65 72 61 63 | .the.indentation.of.most.interac |
| 24cdc0 | 74 69 76 65 6c 79 2d 64 65 66 69 6e 65 64 20 6d 61 63 72 6f 73 2e 20 54 6f 20 63 61 74 63 68 20 | tively-defined.macros..To.catch. |
| 24cde0 | 74 68 65 20 72 65 73 74 20 77 65 20 6d 61 6b 65 20 61 20 66 75 6c 6c 20 73 63 61 6e 0a 6f 66 20 | the.rest.we.make.a.full.scan.of. |
| 24ce00 | 65 76 65 72 79 20 73 79 6d 62 6f 6c 20 65 61 63 68 20 74 69 6d 65 20 61 20 6e 65 77 20 4c 69 73 | every.symbol.each.time.a.new.Lis |
| 24ce20 | 70 20 70 61 63 6b 61 67 65 20 69 73 20 63 72 65 61 74 65 64 20 62 65 74 77 65 65 6e 20 63 6f 6d | p.package.is.created.between.com |
| 24ce40 | 6d 61 6e 64 73 0a 2d 2d 20 74 68 61 74 20 74 61 6b 65 73 20 63 61 72 65 20 6f 66 20 74 68 69 6e | mands.--.that.takes.care.of.thin |
| 24ce60 | 67 73 20 6c 69 6b 65 20 6e 65 77 20 73 79 73 74 65 6d 73 20 62 65 69 6e 67 20 6c 6f 61 64 65 64 | gs.like.new.systems.being.loaded |
| 24ce80 | 2e 0a 0a 59 6f 75 20 63 61 6e 20 75 73 65 20 40 6b 62 64 7b 4d 2d 78 20 73 6c 69 6d 65 2d 75 70 | ...You.can.use.@kbd{M-x.slime-up |
| 24cea0 | 64 61 74 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 7d 20 74 6f 20 66 6f 72 63 65 20 61 6c 6c 20 73 | date-indentation}.to.force.all.s |
| 24cec0 | 79 6d 62 6f 6c 73 20 74 6f 0a 62 65 20 73 63 61 6e 6e 65 64 20 66 6f 72 20 69 6e 64 65 6e 74 61 | ymbols.to.be.scanned.for.indenta |
| 24cee0 | 74 69 6f 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | tion.information...@c.---------- |
| 24cf00 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 52 65 61 64 65 72 20 63 6f 6e 64 69 | -------------.@node.Reader.condi |
| 24cf20 | 74 69 6f 6e 61 6c 73 0a 40 73 65 63 74 69 6f 6e 20 52 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f | tionals.@section.Reader.conditio |
| 24cf40 | 6e 61 6c 20 66 6f 6e 74 69 66 69 63 61 74 69 6f 6e 0a 0a 40 53 4c 49 4d 45 7b 7d 20 61 75 74 6f | nal.fontification..@SLIME{}.auto |
| 24cf60 | 6d 61 74 69 63 61 6c 6c 79 20 65 76 61 6c 75 61 74 65 73 20 72 65 61 64 65 72 2d 63 6f 6e 64 69 | matically.evaluates.reader-condi |
| 24cf80 | 74 69 6f 6e 61 6c 20 65 78 70 72 65 73 73 69 6f 6e 73 2c 20 6c 69 6b 65 0a 40 63 6f 64 65 7b 23 | tional.expressions,.like.@code{# |
| 24cfa0 | 2b 6c 69 6e 75 78 7d 2c 20 69 6e 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 73 20 61 6e 64 20 60 | +linux},.in.source.buffers.and.` |
| 24cfc0 | 60 67 72 61 79 73 20 6f 75 74 27 27 20 63 6f 64 65 20 74 68 61 74 20 77 69 6c 6c 20 62 65 0a 73 | `grays.out''.code.that.will.be.s |
| 24cfe0 | 6b 69 70 70 65 64 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 4c 69 73 70 20 63 6f 6e 6e | kipped.for.the.current.Lisp.conn |
| 24d000 | 65 63 74 69 6f 6e 2e 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ection...@c.-------------------- |
| 24d020 | 2d 2d 2d 0a 40 6e 6f 64 65 20 44 65 62 75 67 67 65 72 0a 40 63 68 61 70 74 65 72 20 53 4c 44 42 | ---.@node.Debugger.@chapter.SLDB |
| 24d040 | 3a 20 74 68 65 20 53 4c 49 4d 45 20 64 65 62 75 67 67 65 72 0a 0a 40 63 69 6e 64 65 78 20 44 65 | :.the.SLIME.debugger..@cindex.De |
| 24d060 | 62 75 67 67 65 72 0a 0a 40 53 4c 49 4d 45 7b 7d 20 68 61 73 20 61 20 63 75 73 74 6f 6d 20 45 6d | bugger..@SLIME{}.has.a.custom.Em |
| 24d080 | 61 63 73 2d 62 61 73 65 64 20 64 65 62 75 67 67 65 72 20 63 61 6c 6c 65 64 20 40 53 4c 44 42 7b | acs-based.debugger.called.@SLDB{ |
| 24d0a0 | 7d 2e 20 43 6f 6e 64 69 74 69 6f 6e 73 0a 73 69 67 6e 61 6c 6c 65 64 20 69 6e 20 74 68 65 20 4c | }..Conditions.signalled.in.the.L |
| 24d0c0 | 69 73 70 20 73 79 73 74 65 6d 20 69 6e 76 6f 6b 65 20 40 53 4c 44 42 7b 7d 20 69 6e 20 45 6d 61 | isp.system.invoke.@SLDB{}.in.Ema |
| 24d0e0 | 63 73 20 62 79 20 77 61 79 20 6f 66 20 74 68 65 0a 4c 69 73 70 20 40 63 6f 64 65 7b 2a 44 45 42 | cs.by.way.of.the.Lisp.@code{*DEB |
| 24d100 | 55 47 47 45 52 2d 48 4f 4f 4b 2a 7d 2e 0a 0a 40 53 4c 44 42 7b 7d 20 70 6f 70 73 20 75 70 20 61 | UGGER-HOOK*}...@SLDB{}.pops.up.a |
| 24d120 | 20 62 75 66 66 65 72 20 77 68 65 6e 20 61 20 63 6f 6e 64 69 74 69 6f 6e 20 69 73 20 73 69 67 6e | .buffer.when.a.condition.is.sign |
| 24d140 | 61 6c 6c 65 64 2e 20 54 68 65 20 62 75 66 66 65 72 0a 64 69 73 70 6c 61 79 73 20 61 20 64 65 73 | alled..The.buffer.displays.a.des |
| 24d160 | 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 2c 20 61 20 6c 69 73 | cription.of.the.condition,.a.lis |
| 24d180 | 74 20 6f 66 20 72 65 73 74 61 72 74 73 2c 20 61 6e 64 20 61 0a 62 61 63 6b 74 72 61 63 65 2e 20 | t.of.restarts,.and.a.backtrace.. |
| 24d1a0 | 43 6f 6d 6d 61 6e 64 73 20 61 72 65 20 6f 66 66 65 72 65 64 20 66 6f 72 20 69 6e 76 6f 6b 69 6e | Commands.are.offered.for.invokin |
| 24d1c0 | 67 20 72 65 73 74 61 72 74 73 2c 20 65 78 61 6d 69 6e 69 6e 67 20 74 68 65 0a 62 61 63 6b 74 72 | g.restarts,.examining.the.backtr |
| 24d1e0 | 61 63 65 2c 20 61 6e 64 20 70 6f 6b 69 6e 67 20 61 72 6f 75 6e 64 20 69 6e 20 73 74 61 63 6b 20 | ace,.and.poking.around.in.stack. |
| 24d200 | 66 72 61 6d 65 73 2e 0a 0a 40 6d 65 6e 75 0a 2a 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 | frames...@menu.*.Examining.frame |
| 24d220 | 73 3a 3a 0a 2a 20 52 65 73 74 61 72 74 73 3a 3a 0a 2a 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 | s::.*.Restarts::.*.Frame.Navigat |
| 24d240 | 69 6f 6e 3a 3a 0a 2a 20 53 74 65 70 70 69 6e 67 3a 3a 0a 2a 20 4d 69 73 63 65 6c 6c 61 6e 65 6f | ion::.*.Stepping::.*.Miscellaneo |
| 24d260 | 75 73 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | us::.@end.menu..@c.------------- |
| 24d280 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 | ----------.@node.Examining.frame |
| 24d2a0 | 73 0a 40 73 65 63 74 69 6f 6e 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 0a 0a 43 6f 6d | s.@section.Examining.frames..Com |
| 24d2c0 | 6d 61 6e 64 73 20 66 6f 72 20 65 78 61 6d 69 6e 69 6e 67 20 74 68 65 20 73 74 61 63 6b 20 66 72 | mands.for.examining.the.stack.fr |
| 24d2e0 | 61 6d 65 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 | ame.at.point...@table.@kbd.@kbdi |
| 24d300 | 74 65 6d 7b 74 2c 20 73 6c 64 62 2d 74 6f 67 67 6c 65 2d 64 65 74 61 69 6c 73 7d 0a 54 6f 67 67 | tem{t,.sldb-toggle-details}.Togg |
| 24d320 | 6c 65 20 64 69 73 70 6c 61 79 20 6f 66 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 61 6e | le.display.of.local.variables.an |
| 24d340 | 64 20 40 63 6f 64 65 7b 43 41 54 43 48 7d 20 74 61 67 73 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 76 | d.@code{CATCH}.tags...@kbditem{v |
| 24d360 | 2c 20 73 6c 64 62 2d 73 68 6f 77 2d 73 6f 75 72 63 65 7d 0a 56 69 65 77 20 74 68 65 20 66 72 61 | ,.sldb-show-source}.View.the.fra |
| 24d380 | 6d 65 27 73 20 63 75 72 72 65 6e 74 20 73 6f 75 72 63 65 20 65 78 70 72 65 73 73 69 6f 6e 2e 20 | me's.current.source.expression.. |
| 24d3a0 | 54 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 69 73 0a 70 72 65 73 65 6e 74 65 64 20 69 6e 20 74 | The.expression.is.presented.in.t |
| 24d3c0 | 68 65 20 4c 69 73 70 20 73 6f 75 72 63 65 20 66 69 6c 65 27 73 20 62 75 66 66 65 72 2e 0a 0a 40 | he.Lisp.source.file's.buffer...@ |
| 24d3e0 | 6b 62 64 69 74 65 6d 7b 65 2c 20 73 6c 64 62 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 7d 0a 45 | kbditem{e,.sldb-eval-in-frame}.E |
| 24d400 | 76 61 6c 75 61 74 65 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 20 74 68 65 20 66 72 61 | valuate.an.expression.in.the.fra |
| 24d420 | 6d 65 2e 20 54 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 63 61 6e 20 72 65 66 65 72 20 74 6f 20 | me..The.expression.can.refer.to. |
| 24d440 | 74 68 65 0a 61 76 61 69 6c 61 62 6c 65 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 69 6e | the.available.local.variables.in |
| 24d460 | 20 74 68 65 20 66 72 61 6d 65 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 64 2c 20 73 6c 64 62 2d 70 70 | .the.frame...@kbditem{d,.sldb-pp |
| 24d480 | 72 69 6e 74 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 7d 0a 45 76 61 6c 75 61 74 65 20 61 6e 20 | rint-eval-in-frame}.Evaluate.an. |
| 24d4a0 | 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 20 74 68 65 20 66 72 61 6d 65 20 61 6e 64 20 70 72 65 74 | expression.in.the.frame.and.pret |
| 24d4c0 | 74 79 2d 70 72 69 6e 74 20 74 68 65 20 72 65 73 75 6c 74 20 69 6e 20 61 0a 74 65 6d 70 6f 72 61 | ty-print.the.result.in.a.tempora |
| 24d4e0 | 72 79 20 62 75 66 66 65 72 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 44 2c 20 73 6c 64 62 2d 64 69 73 | ry.buffer...@kbditem{D,.sldb-dis |
| 24d500 | 61 73 73 65 6d 62 6c 65 7d 0a 44 69 73 61 73 73 65 6d 62 6c 65 20 74 68 65 20 66 72 61 6d 65 27 | assemble}.Disassemble.the.frame' |
| 24d520 | 73 20 66 75 6e 63 74 69 6f 6e 2e 20 49 6e 63 6c 75 64 65 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e | s.function..Includes.information |
| 24d540 | 20 73 75 63 68 20 61 73 20 74 68 65 0a 69 6e 73 74 72 75 63 74 69 6f 6e 20 70 6f 69 6e 74 65 72 | .such.as.the.instruction.pointer |
| 24d560 | 20 77 69 74 68 69 6e 20 74 68 65 20 66 72 61 6d 65 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 69 2c 20 | .within.the.frame...@kbditem{i,. |
| 24d580 | 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 69 6e 2d 66 72 61 6d 65 7d 0a 49 6e 73 70 65 63 74 20 74 | sldb-inspect-in-frame}.Inspect.t |
| 24d5a0 | 68 65 20 72 65 73 75 6c 74 20 6f 66 20 65 76 61 6c 75 61 74 69 6e 67 20 61 6e 20 65 78 70 72 65 | he.result.of.evaluating.an.expre |
| 24d5c0 | 73 73 69 6f 6e 20 69 6e 20 74 68 65 20 66 72 61 6d 65 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d | ssion.in.the.frame...@kbditem{C- |
| 24d5e0 | 63 20 43 2d 63 2c 20 73 6c 64 62 2d 72 65 63 6f 6d 70 69 6c 65 2d 66 72 61 6d 65 2d 73 6f 75 72 | c.C-c,.sldb-recompile-frame-sour |
| 24d600 | 63 65 7d 0a 52 65 63 6f 6d 70 69 6c 65 20 66 72 61 6d 65 2e 20 40 6b 62 64 7b 43 2d 75 20 43 2d | ce}.Recompile.frame..@kbd{C-u.C- |
| 24d620 | 63 20 43 2d 63 7d 20 66 6f 72 20 72 65 63 6f 6d 70 69 6c 69 6e 67 20 77 69 74 68 20 6d 61 78 69 | c.C-c}.for.recompiling.with.maxi |
| 24d640 | 6d 75 6d 20 64 65 62 75 67 20 73 65 74 74 69 6e 67 73 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a | mum.debug.settings...@end.table. |
| 24d660 | 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 | .@c.-----------------------.@nod |
| 24d680 | 65 20 52 65 73 74 61 72 74 73 0a 40 73 65 63 74 69 6f 6e 20 49 6e 76 6f 6b 69 6e 67 20 72 65 73 | e.Restarts.@section.Invoking.res |
| 24d6a0 | 74 61 72 74 73 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d 7b 61 2c 20 73 | tarts..@table.@kbd.@kbditem{a,.s |
| 24d6c0 | 6c 64 62 2d 61 62 6f 72 74 7d 0a 49 6e 76 6f 6b 65 20 74 68 65 20 40 63 6f 64 65 7b 41 42 4f 52 | ldb-abort}.Invoke.the.@code{ABOR |
| 24d6e0 | 54 7d 20 72 65 73 74 61 72 74 2e 0a 0a 40 61 6e 63 68 6f 72 7b 73 6c 64 62 2d 71 75 69 74 7d 0a | T}.restart...@anchor{sldb-quit}. |
| 24d700 | 40 6b 62 64 69 74 65 6d 7b 71 2c 20 73 6c 64 62 2d 71 75 69 74 7d 0a 60 60 51 75 69 74 27 27 20 | @kbditem{q,.sldb-quit}.``Quit''. |
| 24d720 | 2d 2d 20 46 6f 72 20 40 53 4c 49 4d 45 7b 7d 20 65 76 61 6c 75 61 74 69 6f 6e 20 72 65 71 75 65 | --.For.@SLIME{}.evaluation.reque |
| 24d740 | 73 74 73 2c 20 69 6e 76 6f 6b 65 20 61 20 72 65 73 74 61 72 74 20 77 68 69 63 68 0a 72 65 73 74 | sts,.invoke.a.restart.which.rest |
| 24d760 | 6f 72 65 73 20 74 6f 20 61 20 6b 6e 6f 77 6e 20 70 72 6f 67 72 61 6d 20 73 74 61 74 65 2e 20 46 | ores.to.a.known.program.state..F |
| 24d780 | 6f 72 20 65 72 72 6f 72 73 20 69 6e 20 6f 74 68 65 72 20 74 68 72 65 61 64 73 2c 20 73 65 65 0a | or.errors.in.other.threads,.see. |
| 24d7a0 | 40 72 65 66 7b 2a 53 4c 44 42 2d 51 55 49 54 2d 52 45 53 54 41 52 54 2a 7d 2e 0a 0a 40 6b 62 64 | @ref{*SLDB-QUIT-RESTART*}...@kbd |
| 24d7c0 | 69 74 65 6d 7b 63 2c 20 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 7d 0a 49 6e 76 6f 6b 65 20 74 68 | item{c,.sldb-continue}.Invoke.th |
| 24d7e0 | 65 20 40 63 6f 64 65 7b 43 4f 4e 54 49 4e 55 45 7d 20 72 65 73 74 61 72 74 2e 0a 0a 40 69 74 65 | e.@code{CONTINUE}.restart...@ite |
| 24d800 | 6d 20 30 20 2e 2e 2e 20 39 0a 49 6e 76 6f 6b 65 20 61 20 72 65 73 74 61 72 74 20 62 79 20 6e 75 | m.0.....9.Invoke.a.restart.by.nu |
| 24d820 | 6d 62 65 72 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 52 65 73 74 61 72 74 73 20 63 61 6e 20 61 | mber..@end.table..Restarts.can.a |
| 24d840 | 6c 73 6f 20 62 65 20 69 6e 76 6f 6b 65 64 20 62 79 20 70 72 65 73 73 69 6e 67 20 40 6b 62 64 7b | lso.be.invoked.by.pressing.@kbd{ |
| 24d860 | 52 45 54 7d 20 6f 72 20 40 6b 62 64 7b 4d 6f 75 73 65 2d 32 7d 20 6f 6e 0a 74 68 65 6d 20 69 6e | RET}.or.@kbd{Mouse-2}.on.them.in |
| 24d880 | 20 74 68 65 20 62 75 66 66 65 72 2e 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | .the.buffer...@c.--------------- |
| 24d8a0 | 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 0a | --------.@node.Frame.Navigation. |
| 24d8c0 | 40 73 65 63 74 69 6f 6e 20 4e 61 76 69 67 61 74 69 6e 67 20 62 65 74 77 65 65 6e 20 66 72 61 6d | @section.Navigating.between.fram |
| 24d8e0 | 65 73 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d 70 61 69 72 7b 6e 2c 70 | es..@table.@kbd.@kbditempair{n,p |
| 24d900 | 2c 73 6c 64 62 2d 64 6f 77 6e 2c 73 6c 64 62 2d 75 70 7d 0a 4d 6f 76 65 20 62 65 74 77 65 65 6e | ,sldb-down,sldb-up}.Move.between |
| 24d920 | 20 66 72 61 6d 65 73 2e 0a 0a 40 6b 62 64 69 74 65 6d 70 61 69 72 7b 4d 2d 6e 2c 20 4d 2d 70 2c | .frames...@kbditempair{M-n,.M-p, |
| 24d940 | 20 73 6c 64 62 2d 64 65 74 61 69 6c 73 2d 64 6f 77 6e 2c 20 73 6c 64 62 2d 64 65 74 61 69 6c 73 | .sldb-details-down,.sldb-details |
| 24d960 | 2d 75 70 7d 0a 4d 6f 76 65 20 62 65 74 77 65 65 6e 20 66 72 61 6d 65 73 20 60 60 77 69 74 68 20 | -up}.Move.between.frames.``with. |
| 24d980 | 73 75 67 61 72 27 27 3a 20 68 69 64 65 20 74 68 65 20 64 65 74 61 69 6c 73 20 6f 66 20 74 68 65 | sugar'':.hide.the.details.of.the |
| 24d9a0 | 20 6f 72 69 67 69 6e 61 6c 0a 66 72 61 6d 65 20 61 6e 64 20 64 69 73 70 6c 61 79 20 74 68 65 20 | .original.frame.and.display.the. |
| 24d9c0 | 64 65 74 61 69 6c 73 20 61 6e 64 20 73 6f 75 72 63 65 20 63 6f 64 65 20 6f 66 20 74 68 65 20 6e | details.and.source.code.of.the.n |
| 24d9e0 | 65 78 74 2e 20 53 75 67 61 72 65 64 0a 6d 6f 74 69 6f 6e 20 6d 61 6b 65 73 20 79 6f 75 20 73 65 | ext..Sugared.motion.makes.you.se |
| 24da00 | 65 20 74 68 65 20 64 65 74 61 69 6c 73 20 61 6e 64 20 73 6f 75 72 63 65 20 63 6f 64 65 20 66 6f | e.the.details.and.source.code.fo |
| 24da20 | 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 72 61 6d 65 0a 6f 6e 6c 79 2e 0a 0a 40 6b 62 64 69 | r.the.current.frame.only...@kbdi |
| 24da40 | 74 65 6d 7b 3e 2c 20 73 6c 64 62 2d 65 6e 64 2d 6f 66 2d 62 61 63 6b 74 72 61 63 65 7d 0a 46 65 | tem{>,.sldb-end-of-backtrace}.Fe |
| 24da60 | 74 63 68 20 74 68 65 20 65 6e 74 69 72 65 20 62 61 63 6b 74 72 61 63 65 20 61 6e 64 20 67 6f 20 | tch.the.entire.backtrace.and.go. |
| 24da80 | 74 6f 20 74 68 65 20 6c 61 73 74 20 66 72 61 6d 65 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 3c 2c 20 | to.the.last.frame...@kbditem{<,. |
| 24daa0 | 73 6c 64 62 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 62 61 63 6b 74 72 61 63 65 7d 0a 47 6f 74 | sldb-beginning-of-backtrace}.Got |
| 24dac0 | 6f 20 74 68 65 20 66 69 72 73 74 20 66 72 61 6d 65 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a | o.the.first.frame...@end.table.. |
| 24dae0 | 40 6e 6f 64 65 20 53 74 65 70 70 69 6e 67 0a 40 73 65 63 74 69 6f 6e 20 53 74 65 70 70 69 6e 67 | @node.Stepping.@section.Stepping |
| 24db00 | 0a 0a 40 63 69 6e 64 65 78 20 53 74 65 70 70 69 6e 67 0a 0a 53 74 65 70 70 69 6e 67 20 69 73 20 | ..@cindex.Stepping..Stepping.is. |
| 24db20 | 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 61 6c 6c 20 69 6d 70 6c 65 6d 65 6e 74 61 74 | not.available.in.all.implementat |
| 24db40 | 69 6f 6e 73 20 61 6e 64 20 77 6f 72 6b 73 20 76 65 72 79 0a 64 69 66 66 65 72 65 6e 74 6c 79 20 | ions.and.works.very.differently. |
| 24db60 | 69 6e 20 74 68 6f 73 65 20 69 6e 20 77 68 69 63 68 20 69 74 20 69 73 20 61 76 61 69 6c 61 62 6c | in.those.in.which.it.is.availabl |
| 24db80 | 65 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d 7b 73 2c 20 73 6c 64 62 | e...@table.@kbd.@kbditem{s,.sldb |
| 24dba0 | 2d 73 74 65 70 7d 0a 53 74 65 70 20 74 6f 20 74 68 65 20 6e 65 78 74 20 65 78 70 72 65 73 73 69 | -step}.Step.to.the.next.expressi |
| 24dbc0 | 6f 6e 20 69 6e 20 74 68 65 20 66 72 61 6d 65 2e 20 20 46 6f 72 20 43 4d 55 43 4c 20 74 68 61 74 | on.in.the.frame...For.CMUCL.that |
| 24dbe0 | 20 6d 65 61 6e 73 2c 20 73 65 74 20 61 0a 62 72 65 61 6b 70 6f 69 6e 74 20 61 74 20 61 6c 6c 20 | .means,.set.a.breakpoint.at.all. |
| 24dc00 | 74 68 6f 73 65 20 63 6f 64 65 20 6c 6f 63 61 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 63 75 72 72 | those.code.locations.in.the.curr |
| 24dc20 | 65 6e 74 20 63 6f 64 65 20 62 6c 6f 63 6b 20 77 68 69 63 68 0a 61 72 65 20 72 65 61 63 68 61 62 | ent.code.block.which.are.reachab |
| 24dc40 | 6c 65 20 66 72 6f 6d 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 64 65 20 6c 6f 63 61 74 69 6f | le.from.the.current.code.locatio |
| 24dc60 | 6e 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 78 2c 20 73 6c 64 62 2d 6e 65 78 74 7d 0a 53 74 65 70 20 | n...@kbditem{x,.sldb-next}.Step. |
| 24dc80 | 74 6f 20 74 68 65 20 6e 65 78 74 20 66 6f 72 6d 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 | to.the.next.form.in.the.current. |
| 24dca0 | 66 75 6e 63 74 69 6f 6e 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 6f 2c 20 73 6c 64 62 2d 6f 75 74 7d | function...@kbditem{o,.sldb-out} |
| 24dcc0 | 0a 53 74 6f 70 20 73 69 6e 67 6c 65 2d 73 74 65 70 70 69 6e 67 20 74 65 6d 70 6f 72 61 72 69 6c | .Stop.single-stepping.temporaril |
| 24dce0 | 79 2c 20 62 75 74 20 72 65 73 75 6d 65 20 69 74 20 6f 6e 63 65 20 74 68 65 20 63 75 72 72 65 6e | y,.but.resume.it.once.the.curren |
| 24dd00 | 74 0a 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a | t.function.returns...@end.table. |
| 24dd20 | 0a 40 6e 6f 64 65 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 0a 40 73 65 63 74 69 6f 6e 20 4d 69 | .@node.Miscellaneous.@section.Mi |
| 24dd40 | 73 63 65 6c 6c 61 6e 65 6f 75 73 20 43 6f 6d 6d 61 6e 64 73 0a 0a 40 74 61 62 6c 65 20 40 6b 62 | scellaneous.Commands..@table.@kb |
| 24dd60 | 64 0a 40 6b 62 64 69 74 65 6d 7b 72 2c 20 73 6c 64 62 2d 72 65 73 74 61 72 74 2d 66 72 61 6d 65 | d.@kbditem{r,.sldb-restart-frame |
| 24dd80 | 7d 0a 52 65 73 74 61 72 74 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 72 61 6d 65 | }.Restart.execution.of.the.frame |
| 24dda0 | 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 20 69 74 20 77 61 73 0a | .with.the.same.arguments.it.was. |
| 24ddc0 | 6f 72 69 67 69 6e 61 6c 6c 79 20 63 61 6c 6c 65 64 20 77 69 74 68 2e 20 28 54 68 69 73 20 63 6f | originally.called.with..(This.co |
| 24dde0 | 6d 6d 61 6e 64 20 69 73 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 61 6c 6c 0a 69 6d | mmand.is.not.available.in.all.im |
| 24de00 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 29 0a 0a 40 6b 62 64 69 74 65 6d 7b 52 2c 20 73 6c 64 | plementations.)..@kbditem{R,.sld |
| 24de20 | 62 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 7d 0a 52 65 74 75 72 6e 20 66 72 6f 6d | b-return-from-frame}.Return.from |
| 24de40 | 20 74 68 65 20 66 72 61 6d 65 20 77 69 74 68 20 61 20 76 61 6c 75 65 20 65 6e 74 65 72 65 64 20 | .the.frame.with.a.value.entered. |
| 24de60 | 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 20 28 54 68 69 73 0a 63 6f 6d 6d 61 6e 64 | in.the.minibuffer..(This.command |
| 24de80 | 20 69 73 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 61 6c 6c 20 69 6d 70 6c 65 6d 65 | .is.not.available.in.all.impleme |
| 24dea0 | 6e 74 61 74 69 6f 6e 73 2e 29 0a 0a 0a 40 6b 62 64 69 74 65 6d 7b 42 2c 20 73 6c 64 62 2d 62 72 | ntations.)...@kbditem{B,.sldb-br |
| 24dec0 | 65 61 6b 2d 77 69 74 68 2d 64 65 66 61 75 6c 74 2d 64 65 62 75 67 67 65 72 7d 0a 45 78 69 74 20 | eak-with-default-debugger}.Exit. |
| 24dee0 | 40 53 4c 44 42 7b 7d 20 61 6e 64 20 64 65 62 75 67 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 20 | @SLDB{}.and.debug.the.condition. |
| 24df00 | 75 73 69 6e 67 20 74 68 65 20 4c 69 73 70 20 73 79 73 74 65 6d 27 73 20 64 65 66 61 75 6c 74 0a | using.the.Lisp.system's.default. |
| 24df20 | 64 65 62 75 67 67 65 72 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2c 20 73 6c 64 62 2d 69 6e 73 70 | debugger...@kbditem{C,.sldb-insp |
| 24df40 | 65 63 74 2d 63 6f 6e 64 69 74 69 6f 6e 7d 0a 49 6e 73 70 65 63 74 20 74 68 65 20 63 6f 6e 64 69 | ect-condition}.Inspect.the.condi |
| 24df60 | 74 69 6f 6e 20 63 75 72 72 65 6e 74 6c 79 20 62 65 69 6e 67 20 64 65 62 75 67 67 65 64 2e 0a 0a | tion.currently.being.debugged... |
| 24df80 | 40 6b 62 64 69 74 65 6d 7b 3a 2c 20 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 | @kbditem{:,.slime-interactive-ev |
| 24dfa0 | 61 6c 7d 0a 45 76 61 6c 75 61 74 65 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 65 6e 74 65 72 | al}.Evaluate.an.expression.enter |
| 24dfc0 | 65 64 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 40 6b 62 64 69 74 65 6d 7b 41 | ed.in.the.minibuffer..@kbditem{A |
| 24dfe0 | 2c 20 73 6c 64 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d 73 79 73 74 65 6d 2d 64 65 62 75 67 67 65 | ,.sldb-break-with-system-debugge |
| 24e000 | 72 7d 0a 41 74 74 61 63 68 20 64 65 62 75 67 67 65 72 20 28 65 2e 67 2e 20 67 64 62 29 20 74 6f | r}.Attach.debugger.(e.g..gdb).to |
| 24e020 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 73 70 20 70 72 6f 63 65 73 73 2e 0a 0a 40 65 6e 64 | .the.current.lisp.process...@end |
| 24e040 | 20 74 61 62 6c 65 0a 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | .table...@c.-------------------- |
| 24e060 | 2d 2d 2d 0a 40 6e 6f 64 65 20 4d 69 73 63 0a 40 63 68 61 70 74 65 72 20 4d 69 73 63 0a 0a 40 6d | ---.@node.Misc.@chapter.Misc..@m |
| 24e080 | 65 6e 75 0a 2a 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 6d | enu.*.slime-selector::.*.slime-m |
| 24e0a0 | 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 3a 3a 0a 2a 20 4d 75 6c | acroexpansion-minor-mode::.*.Mul |
| 24e0c0 | 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 0a 0a 40 | tiple.connections::.@end.menu..@ |
| 24e0e0 | 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 | c.-----------------------.@node. |
| 24e100 | 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 0a 40 73 65 63 74 69 6f 6e 20 40 63 6f 64 65 7b 73 6c | slime-selector.@section.@code{sl |
| 24e120 | 69 6d 65 2d 73 65 6c 65 63 74 6f 72 7d 0a 0a 54 68 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 73 | ime-selector}..The.@code{slime-s |
| 24e140 | 65 6c 65 63 74 6f 72 7d 20 63 6f 6d 6d 61 6e 64 20 69 73 20 66 6f 72 20 71 75 69 63 6b 6c 79 20 | elector}.command.is.for.quickly. |
| 24e160 | 73 77 69 74 63 68 69 6e 67 20 74 6f 0a 69 6d 70 6f 72 74 61 6e 74 20 62 75 66 66 65 72 73 3a 20 | switching.to.important.buffers:. |
| 24e180 | 74 68 65 20 40 52 45 50 4c 7b 7d 2c 20 40 53 4c 44 42 7b 7d 2c 20 74 68 65 20 4c 69 73 70 20 73 | the.@REPL{},.@SLDB{},.the.Lisp.s |
| 24e1a0 | 6f 75 72 63 65 20 79 6f 75 20 77 65 72 65 20 6a 75 73 74 0a 68 61 63 6b 69 6e 67 2c 20 65 74 63 | ource.you.were.just.hacking,.etc |
| 24e1c0 | 2e 20 4f 6e 63 65 20 69 6e 76 6f 6b 65 64 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 70 72 6f 6d 70 | ..Once.invoked.the.command.promp |
| 24e1e0 | 74 73 20 66 6f 72 20 61 20 73 69 6e 67 6c 65 20 6c 65 74 74 65 72 20 74 6f 0a 73 70 65 63 69 66 | ts.for.a.single.letter.to.specif |
| 24e200 | 79 20 77 68 69 63 68 20 62 75 66 66 65 72 20 69 74 20 73 68 6f 75 6c 64 20 64 69 73 70 6c 61 79 | y.which.buffer.it.should.display |
| 24e220 | 2e 20 49 66 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 73 0a 73 70 65 63 69 66 | ..If.a.prefix.argument.is.specif |
| 24e240 | 69 65 64 20 74 68 65 6e 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 73 68 6f 77 6e 20 69 6e 20 | ied.then.the.buffer.is.shown.in. |
| 24e260 | 74 68 65 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 20 48 65 72 65 20 61 72 65 20 73 6f 6d 65 0a | the.other.window..Here.are.some. |
| 24e280 | 6f 66 20 74 68 65 20 6d 61 69 6e 20 6f 70 74 69 6f 6e 73 3a 0a 0a 40 74 61 62 6c 65 20 40 6b 62 | of.the.main.options:..@table.@kb |
| 24e2a0 | 64 0a 40 69 74 65 6d 20 3f 0a 41 20 68 65 6c 70 20 62 75 66 66 65 72 20 6c 69 73 74 69 6e 67 20 | d.@item.?.A.help.buffer.listing. |
| 24e2c0 | 61 6c 6c 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 73 7d 27 73 20 61 76 61 | all.@code{slime-selectors}'s.ava |
| 24e2e0 | 69 6c 61 62 6c 65 20 62 75 66 66 65 72 73 2e 0a 54 68 69 73 20 69 6e 63 6c 75 64 65 73 20 73 6f | ilable.buffers..This.includes.so |
| 24e300 | 6d 65 20 6f 70 74 69 6f 6e 73 20 6f 66 20 6c 65 73 73 65 72 20 69 6d 70 6f 72 74 61 6e 63 65 2c | me.options.of.lesser.importance, |
| 24e320 | 20 65 2e 67 2e 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 0a 64 65 62 75 67 67 69 6e 67 20 40 53 4c | .e.g..intended.for.debugging.@SL |
| 24e340 | 49 4d 45 7b 7d 2c 20 77 68 69 63 68 20 61 72 65 20 6e 6f 74 20 69 6e 63 6c 75 64 65 64 20 69 6e | IME{},.which.are.not.included.in |
| 24e360 | 20 74 68 69 73 20 6c 69 73 74 2e 0a 40 69 74 65 6d 20 72 0a 54 68 65 20 40 52 45 50 4c 7b 7d 20 | .this.list..@item.r.The.@REPL{}. |
| 24e380 | 62 75 66 66 65 72 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 40 53 4c 49 4d 45 7b 7d 20 | buffer.for.the.current.@SLIME{}. |
| 24e3a0 | 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 40 69 74 65 6d 20 64 0a 54 68 65 20 6d 6f 73 74 20 72 65 63 | connection..@item.d.The.most.rec |
| 24e3c0 | 65 6e 74 6c 79 20 61 63 74 69 76 61 74 65 64 20 40 53 4c 44 42 7b 7d 20 62 75 66 66 65 72 20 66 | ently.activated.@SLDB{}.buffer.f |
| 24e3e0 | 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 40 69 74 65 6d | or.the.current.connection..@item |
| 24e400 | 20 6c 0a 54 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 20 76 69 73 69 74 65 64 20 40 63 6f | .l.The.most.recently.visited.@co |
| 24e420 | 64 65 7b 6c 69 73 70 2d 6d 6f 64 65 7d 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 2e 0a 40 69 74 | de{lisp-mode}.source.buffer..@it |
| 24e440 | 65 6d 20 73 0a 54 68 65 20 40 63 6f 64 65 7b 2a 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 2a 7d 20 | em.s.The.@code{*slime-scratch*}. |
| 24e460 | 62 75 66 66 65 72 20 28 40 70 78 72 65 66 7b 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 7d 29 2e 0a | buffer.(@pxref{slime-scratch}).. |
| 24e480 | 40 69 74 65 6d 20 63 0a 53 4c 49 4d 45 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 62 75 66 66 65 72 | @item.c.SLIME.connections.buffer |
| 24e4a0 | 20 28 40 70 78 72 65 66 7b 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 7d 29 2e | .(@pxref{Multiple.connections}). |
| 24e4c0 | 0a 40 69 74 65 6d 20 6e 0a 43 79 63 6c 65 20 74 6f 20 74 68 65 20 6e 65 78 74 20 4c 69 73 70 20 | .@item.n.Cycle.to.the.next.Lisp. |
| 24e4e0 | 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 40 70 78 72 65 66 7b 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e | connection.(@pxref{Multiple.conn |
| 24e500 | 65 63 74 69 6f 6e 73 7d 29 2e 0a 40 69 74 65 6d 20 74 0a 53 4c 49 4d 45 20 74 68 72 65 61 64 73 | ections})..@item.t.SLIME.threads |
| 24e520 | 20 62 75 66 66 65 72 20 28 40 70 78 72 65 66 7b 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 | .buffer.(@pxref{Multiple.connect |
| 24e540 | 69 6f 6e 73 7d 29 2e 0a 40 69 74 65 6d 20 69 0a 54 68 65 20 40 63 6f 64 65 7b 2a 69 6e 66 65 72 | ions})..@item.i.The.@code{*infer |
| 24e560 | 69 6f 72 2d 6c 69 73 70 2a 7d 20 62 75 66 66 65 72 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e | ior-lisp*}.buffer.for.the.curren |
| 24e580 | 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 40 69 74 65 6d 20 34 0a 53 68 6f 77 20 62 75 66 66 65 | t.connection..@item.4.Show.buffe |
| 24e5a0 | 72 20 69 6e 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 20 45 71 75 69 76 61 6c 65 6e 74 20 74 6f | r.in.other.window..Equivalent.to |
| 24e5c0 | 20 73 75 70 70 6c 79 69 6e 67 20 61 20 70 72 65 66 69 78 0a 61 72 67 75 6d 65 6e 74 2e 20 50 72 | .supplying.a.prefix.argument..Pr |
| 24e5e0 | 6f 6d 70 74 73 20 61 67 61 69 6e 20 66 6f 72 20 77 68 69 63 68 20 62 75 66 66 65 72 20 74 6f 20 | ompts.again.for.which.buffer.to. |
| 24e600 | 73 65 6c 65 63 74 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 63 6f 64 65 7b 73 6c 69 6d 65 2d | select..@end.table..@code{slime- |
| 24e620 | 73 65 6c 65 63 74 6f 72 7d 20 64 6f 65 73 6e 27 74 20 68 61 76 65 20 61 20 6b 65 79 20 62 69 6e | selector}.doesn't.have.a.key.bin |
| 24e640 | 64 69 6e 67 20 62 79 20 64 65 66 61 75 6c 74 20 62 75 74 20 77 65 0a 73 75 67 67 65 73 74 20 74 | ding.by.default.but.we.suggest.t |
| 24e660 | 68 61 74 20 79 6f 75 20 61 73 73 69 67 6e 20 69 74 20 61 20 67 6c 6f 62 61 6c 20 6f 6e 65 2e 20 | hat.you.assign.it.a.global.one.. |
| 24e680 | 59 6f 75 20 63 61 6e 20 62 69 6e 64 20 69 74 20 74 6f 20 40 6b 62 64 7b 43 2d 63 20 73 7d 0a 6c | You.can.bind.it.to.@kbd{C-c.s}.l |
| 24e6a0 | 69 6b 65 20 74 68 69 73 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 28 67 6c 6f 62 61 6c 2d 73 65 74 2d | ike.this:..@example.(global-set- |
| 24e6c0 | 6b 65 79 20 22 5c 43 2d 63 73 22 20 27 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 29 0a 40 65 6e | key."\C-cs".'slime-selector).@en |
| 24e6e0 | 64 20 65 78 61 6d 70 6c 65 0a 0a 40 6e 6f 69 6e 64 65 6e 74 0a 41 6e 64 20 74 68 65 6e 20 79 6f | d.example..@noindent.And.then.yo |
| 24e700 | 75 20 63 61 6e 20 73 77 69 74 63 68 20 74 6f 20 74 68 65 20 40 52 45 50 4c 7b 7d 20 66 72 6f 6d | u.can.switch.to.the.@REPL{}.from |
| 24e720 | 20 61 6e 79 77 68 65 72 65 20 77 69 74 68 20 40 6b 62 64 7b 43 2d 63 20 73 0a 72 7d 2e 0a 0a 54 | .anywhere.with.@kbd{C-c.s.r}...T |
| 24e740 | 68 65 20 6d 61 63 72 6f 20 40 63 6f 64 65 7b 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f | he.macro.@code{def-slime-selecto |
| 24e760 | 72 2d 6d 65 74 68 6f 64 7d 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 64 65 66 69 6e 65 20 | r-method}.can.be.used.to.define. |
| 24e780 | 6e 65 77 0a 62 75 66 66 65 72 73 20 66 6f 72 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 73 65 6c 65 | new.buffers.for.@code{slime-sele |
| 24e7a0 | 63 74 6f 72 7d 20 74 6f 20 66 69 6e 64 2e 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ctor}.to.find...@c.------------- |
| 24e7c0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 | ----------.@node.slime-macroexpa |
| 24e7e0 | 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 0a 40 73 65 63 74 69 6f 6e 20 73 6c 69 6d 65 2d | nsion-minor-mode.@section.slime- |
| 24e800 | 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 0a 0a 57 69 74 68 69 | macroexpansion-minor-mode..Withi |
| 24e820 | 6e 20 61 20 73 6c 69 6d 65 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 62 75 66 66 65 72 20 | n.a.slime.macroexpansion.buffer. |
| 24e840 | 73 6f 6d 65 20 65 78 74 72 61 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 | some.extra.commands.are.provided |
| 24e860 | 0a 28 74 68 65 73 65 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 61 6c 77 61 79 73 20 61 76 61 69 | .(these.commands.are.always.avai |
| 24e880 | 6c 61 62 6c 65 20 62 75 74 20 61 72 65 20 6f 6e 6c 79 20 62 6f 75 6e 64 20 74 6f 20 6b 65 79 73 | lable.but.are.only.bound.to.keys |
| 24e8a0 | 20 69 6e 20 61 0a 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 62 75 66 66 65 72 29 2e 0a 0a 40 | .in.a.macroexpansion.buffer)...@ |
| 24e8c0 | 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 6d 2c 20 73 6c 69 | table.@kbd.@kbditem{C-c.C-m,.sli |
| 24e8e0 | 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 2d 69 6e 70 6c 61 63 65 7d 0a 4a 75 73 74 20 6c | me-macroexpand-1-inplace}.Just.l |
| 24e900 | 69 6b 65 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 62 75 74 20 74 68 65 20 | ike.slime-macroexpand-1.but.the. |
| 24e920 | 6f 72 69 67 69 6e 61 6c 20 66 6f 72 6d 20 69 73 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 0a 74 | original.form.is.replaced.with.t |
| 24e940 | 68 65 20 65 78 70 61 6e 73 69 6f 6e 2e 0a 0a 40 63 20 40 61 6e 63 68 6f 72 7b 73 6c 69 6d 65 2d | he.expansion...@c.@anchor{slime- |
| 24e960 | 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 2d 69 6e 70 6c 61 63 65 7d 0a 40 6b 62 64 69 74 65 6d 7b | macroexpand-1-inplace}.@kbditem{ |
| 24e980 | 67 2c 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 2d 69 6e 70 6c 61 63 65 7d 0a | g,.slime-macroexpand-1-inplace}. |
| 24e9a0 | 54 68 65 20 6c 61 73 74 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 69 73 20 70 65 72 66 6f | The.last.macroexpansion.is.perfo |
| 24e9c0 | 72 6d 65 64 20 61 67 61 69 6e 2c 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 74 65 6e 74 73 | rmed.again,.the.current.contents |
| 24e9e0 | 20 6f 66 0a 74 68 65 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 62 75 66 66 65 72 20 61 72 | .of.the.macroexpansion.buffer.ar |
| 24ea00 | 65 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 74 68 65 20 6e 65 77 20 65 78 70 61 6e 73 69 6f | e.replaced.with.the.new.expansio |
| 24ea20 | 6e 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 71 2c 20 73 6c 69 6d 65 2d 74 65 6d 70 2d 62 75 66 66 65 | n...@kbditem{q,.slime-temp-buffe |
| 24ea40 | 72 2d 71 75 69 74 7d 0a 43 6c 6f 73 65 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 20 62 75 66 66 | r-quit}.Close.the.expansion.buff |
| 24ea60 | 65 72 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 5f 2c 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 | er...@kbditem{C-_,.slime-macroex |
| 24ea80 | 70 61 6e 64 2d 75 6e 64 6f 7d 0a 55 6e 64 6f 20 6c 61 73 74 20 6d 61 63 72 6f 65 78 70 61 6e 73 | pand-undo}.Undo.last.macroexpans |
| 24eaa0 | 69 6f 6e 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 63 20 2d | ion.operation...@end.table..@c.- |
| 24eac0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 4d 75 6c | ----------------------.@node.Mul |
| 24eae0 | 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 0a 40 73 65 63 74 69 6f 6e 20 4d 75 6c 74 69 | tiple.connections.@section.Multi |
| 24eb00 | 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 0a 0a 40 53 4c 49 4d 45 7b 7d 20 69 73 20 61 62 6c | ple.connections..@SLIME{}.is.abl |
| 24eb20 | 65 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 20 6d 75 6c 74 69 70 6c 65 20 4c 69 73 70 20 70 72 | e.to.connect.to.multiple.Lisp.pr |
| 24eb40 | 6f 63 65 73 73 65 73 20 61 74 20 74 68 65 20 73 61 6d 65 0a 74 69 6d 65 2e 20 54 68 65 20 40 6b | ocesses.at.the.same.time..The.@k |
| 24eb60 | 62 64 7b 4d 2d 78 20 73 6c 69 6d 65 7d 20 63 6f 6d 6d 61 6e 64 2c 20 77 68 65 6e 20 69 6e 76 6f | bd{M-x.slime}.command,.when.invo |
| 24eb80 | 6b 65 64 20 77 69 74 68 20 61 20 70 72 65 66 69 78 0a 61 72 67 75 6d 65 6e 74 2c 20 77 69 6c 6c | ked.with.a.prefix.argument,.will |
| 24eba0 | 20 6f 66 66 65 72 20 74 6f 20 63 72 65 61 74 65 20 61 6e 20 61 64 64 69 74 69 6f 6e 61 6c 20 4c | .offer.to.create.an.additional.L |
| 24ebc0 | 69 73 70 20 70 72 6f 63 65 73 73 20 69 66 20 6f 6e 65 20 69 73 0a 61 6c 72 65 61 64 79 20 72 75 | isp.process.if.one.is.already.ru |
| 24ebe0 | 6e 6e 69 6e 67 2e 20 54 68 69 73 20 69 73 20 6f 66 74 65 6e 20 63 6f 6e 76 65 6e 69 65 6e 74 2c | nning..This.is.often.convenient, |
| 24ec00 | 20 62 75 74 20 69 74 20 72 65 71 75 69 72 65 73 20 73 6f 6d 65 0a 75 6e 64 65 72 73 74 61 6e 64 | .but.it.requires.some.understand |
| 24ec20 | 69 6e 67 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 79 6f 75 72 20 40 53 4c 49 4d | ing.to.make.sure.that.your.@SLIM |
| 24ec40 | 45 7b 7d 20 63 6f 6d 6d 61 6e 64 73 20 65 78 65 63 75 74 65 20 69 6e 20 74 68 65 0a 4c 69 73 70 | E{}.commands.execute.in.the.Lisp |
| 24ec60 | 20 74 68 61 74 20 79 6f 75 20 65 78 70 65 63 74 20 74 68 65 6d 20 74 6f 2e 0a 0a 53 6f 6d 65 20 | .that.you.expect.them.to...Some. |
| 24ec80 | 62 75 66 66 65 72 73 20 61 72 65 20 74 69 65 64 20 74 6f 20 73 70 65 63 69 66 69 63 20 4c 69 73 | buffers.are.tied.to.specific.Lis |
| 24eca0 | 70 20 70 72 6f 63 65 73 73 65 73 2e 20 45 61 63 68 20 4c 69 73 70 20 63 6f 6e 6e 65 63 74 69 6f | p.processes..Each.Lisp.connectio |
| 24ecc0 | 6e 0a 68 61 73 20 69 74 73 20 6f 77 6e 20 40 61 63 72 6f 6e 79 6d 7b 52 45 50 4c 7d 20 62 75 66 | n.has.its.own.@acronym{REPL}.buf |
| 24ece0 | 66 65 72 2c 20 61 6e 64 20 61 6c 6c 20 65 78 70 72 65 73 73 69 6f 6e 73 20 65 6e 74 65 72 65 64 | fer,.and.all.expressions.entered |
| 24ed00 | 20 6f 72 0a 40 53 4c 49 4d 45 7b 7d 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 76 6f 6b 65 64 20 69 6e | .or.@SLIME{}.commands.invoked.in |
| 24ed20 | 20 74 68 61 74 20 62 75 66 66 65 72 20 61 72 65 20 73 65 6e 74 20 74 6f 20 74 68 65 20 61 73 73 | .that.buffer.are.sent.to.the.ass |
| 24ed40 | 6f 63 69 61 74 65 64 0a 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 4f 74 68 65 72 20 62 75 66 66 65 72 | ociated.connection..Other.buffer |
| 24ed60 | 73 20 63 72 65 61 74 65 64 20 62 79 20 40 53 4c 49 4d 45 7b 7d 20 61 72 65 20 73 69 6d 69 6c 61 | s.created.by.@SLIME{}.are.simila |
| 24ed80 | 72 6c 79 20 74 69 65 64 20 74 6f 0a 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 74 68 65 79 | rly.tied.to.the.connections.they |
| 24eda0 | 20 6f 72 69 67 69 6e 61 74 65 20 66 72 6f 6d 2c 20 69 6e 63 6c 75 64 69 6e 67 20 40 53 4c 44 42 | .originate.from,.including.@SLDB |
| 24edc0 | 7b 7d 20 62 75 66 66 65 72 73 2c 0a 61 70 72 6f 70 6f 73 20 72 65 73 75 6c 74 20 6c 69 73 74 69 | {}.buffers,.apropos.result.listi |
| 24ede0 | 6e 67 73 2c 20 61 6e 64 20 73 6f 20 6f 6e 2e 20 54 68 65 73 65 20 62 75 66 66 65 72 73 20 61 72 | ngs,.and.so.on..These.buffers.ar |
| 24ee00 | 65 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 0a 73 6f 6d 65 20 69 6e 74 65 72 61 63 74 69 6f 6e | e.the.result.of.some.interaction |
| 24ee20 | 20 77 69 74 68 20 61 20 4c 69 73 70 20 70 72 6f 63 65 73 73 2c 20 73 6f 20 63 6f 6d 6d 61 6e 64 | .with.a.Lisp.process,.so.command |
| 24ee40 | 73 20 69 6e 20 74 68 65 6d 20 61 6c 77 61 79 73 20 67 6f 0a 62 61 63 6b 20 74 6f 20 74 68 61 74 | s.in.them.always.go.back.to.that |
| 24ee60 | 20 73 61 6d 65 20 70 72 6f 63 65 73 73 2e 0a 0a 43 6f 6d 6d 61 6e 64 73 20 65 78 65 63 75 74 65 | .same.process...Commands.execute |
| 24ee80 | 64 20 69 6e 20 6f 74 68 65 72 20 70 6c 61 63 65 73 2c 20 73 75 63 68 20 61 73 20 40 63 6f 64 65 | d.in.other.places,.such.as.@code |
| 24eea0 | 7b 73 6c 69 6d 65 2d 6d 6f 64 65 7d 20 73 6f 75 72 63 65 0a 62 75 66 66 65 72 73 2c 20 61 6c 77 | {slime-mode}.source.buffers,.alw |
| 24eec0 | 61 79 73 20 75 73 65 20 74 68 65 20 60 60 64 65 66 61 75 6c 74 27 27 20 63 6f 6e 6e 65 63 74 69 | ays.use.the.``default''.connecti |
| 24eee0 | 6f 6e 2e 20 55 73 75 61 6c 6c 79 20 74 68 69 73 20 69 73 20 74 68 65 0a 6d 6f 73 74 20 72 65 63 | on..Usually.this.is.the.most.rec |
| 24ef00 | 65 6e 74 6c 79 20 65 73 74 61 62 6c 69 73 68 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 2c 20 62 75 | ently.established.connection,.bu |
| 24ef20 | 74 20 74 68 69 73 20 63 61 6e 20 62 65 20 72 65 61 73 73 69 67 6e 65 64 20 76 69 61 0a 74 68 65 | t.this.can.be.reassigned.via.the |
| 24ef40 | 20 60 60 63 6f 6e 6e 65 63 74 69 6f 6e 20 6c 69 73 74 27 27 20 62 75 66 66 65 72 3a 0a 0a 40 74 | .``connection.list''.buffer:..@t |
| 24ef60 | 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 78 20 63 2c 20 73 6c | able.@kbd.@kbditem{C-c.C-x.c,.sl |
| 24ef80 | 69 6d 65 2d 6c 69 73 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 7d 0a 50 6f 70 20 75 70 20 61 20 62 | ime-list-connections}.Pop.up.a.b |
| 24efa0 | 75 66 66 65 72 20 6c 69 73 74 69 6e 67 20 74 68 65 20 65 73 74 61 62 6c 69 73 68 65 64 20 63 6f | uffer.listing.the.established.co |
| 24efc0 | 6e 6e 65 63 74 69 6f 6e 73 2e 20 20 49 74 20 69 73 20 61 6c 73 6f 0a 61 76 61 69 6c 61 62 6c 65 | nnections...It.is.also.available |
| 24efe0 | 20 62 79 20 74 68 65 20 74 79 70 69 6e 67 20 40 6b 62 64 7b 63 7d 20 66 72 6f 6d 20 74 68 65 20 | .by.the.typing.@kbd{c}.from.the. |
| 24f000 | 40 53 4c 49 4d 45 7b 7d 20 73 65 6c 65 63 74 6f 72 0a 28 40 72 65 66 7b 73 6c 69 6d 65 2d 73 65 | @SLIME{}.selector.(@ref{slime-se |
| 24f020 | 6c 65 63 74 6f 72 7d 29 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 78 20 6e 2c 20 73 | lector})...@kbditem{C-c.C-x.n,.s |
| 24f040 | 6c 69 6d 65 2d 63 79 63 6c 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 7d 0a 43 68 61 6e 67 65 20 63 | lime-cycle-connections}.Change.c |
| 24f060 | 75 72 72 65 6e 74 20 4c 69 73 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 79 20 63 79 63 6c 69 6e | urrent.Lisp.connection.by.cyclin |
| 24f080 | 67 20 74 68 72 6f 75 67 68 20 61 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 20 20 49 74 0a 69 | g.through.all.connections...It.i |
| 24f0a0 | 73 20 61 6c 73 6f 20 61 76 61 69 6c 61 62 6c 65 20 62 79 20 74 68 65 20 74 79 70 69 6e 67 20 40 | s.also.available.by.the.typing.@ |
| 24f0c0 | 6b 62 64 7b 6e 7d 20 66 72 6f 6d 20 74 68 65 20 53 4c 49 4d 45 20 73 65 6c 65 63 74 6f 72 0a 28 | kbd{n}.from.the.SLIME.selector.( |
| 24f0e0 | 40 72 65 66 7b 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 7d 29 2e 0a 0a 40 6b 62 64 69 74 65 6d | @ref{slime-selector})...@kbditem |
| 24f100 | 7b 43 2d 63 20 43 2d 78 20 74 2c 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 74 68 72 65 61 64 73 7d 0a | {C-c.C-x.t,.slime-list-threads}. |
| 24f120 | 50 6f 70 20 75 70 20 61 20 62 75 66 66 65 72 20 6c 69 73 74 69 6e 67 20 74 68 65 20 63 75 72 72 | Pop.up.a.buffer.listing.the.curr |
| 24f140 | 65 6e 74 20 74 68 72 65 61 64 73 2e 20 20 49 74 20 69 73 20 61 6c 73 6f 20 61 76 61 69 6c 61 62 | ent.threads...It.is.also.availab |
| 24f160 | 6c 65 20 62 79 0a 74 68 65 20 74 79 70 69 6e 67 20 40 6b 62 64 7b 74 7d 20 66 72 6f 6d 20 74 68 | le.by.the.typing.@kbd{t}.from.th |
| 24f180 | 65 20 40 53 4c 49 4d 45 7b 7d 20 73 65 6c 65 63 74 6f 72 20 28 40 72 65 66 7b 73 6c 69 6d 65 2d | e.@SLIME{}.selector.(@ref{slime- |
| 24f1a0 | 73 65 6c 65 63 74 6f 72 7d 29 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 54 68 65 20 62 75 66 66 | selector})..@end.table..The.buff |
| 24f1c0 | 65 72 20 64 69 73 70 6c 61 79 65 64 20 62 79 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 6c 69 73 74 | er.displayed.by.@code{slime-list |
| 24f1e0 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 7d 20 67 69 76 65 73 20 61 20 6f 6e 65 2d 6c 69 6e 65 0a 73 | -connections}.gives.a.one-line.s |
| 24f200 | 75 6d 6d 61 72 79 20 6f 66 20 65 61 63 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 54 68 65 20 73 | ummary.of.each.connection..The.s |
| 24f220 | 75 6d 6d 61 72 79 20 73 68 6f 77 73 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 27 73 20 73 65 | ummary.shows.the.connection's.se |
| 24f240 | 72 69 61 6c 0a 6e 75 6d 62 65 72 2c 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 4c 69 73 | rial.number,.the.name.of.the.Lis |
| 24f260 | 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2c 20 61 6e 64 20 6f 74 68 65 72 20 64 65 74 61 | p.implementation,.and.other.deta |
| 24f280 | 69 6c 73 20 6f 66 20 74 68 65 0a 4c 69 73 70 20 70 72 6f 63 65 73 73 2e 20 54 68 65 20 63 75 72 | ils.of.the.Lisp.process..The.cur |
| 24f2a0 | 72 65 6e 74 20 60 60 64 65 66 61 75 6c 74 27 27 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 69 | rent.``default''.connection.is.i |
| 24f2c0 | 6e 64 69 63 61 74 65 64 20 77 69 74 68 20 61 6e 0a 61 73 74 65 72 69 73 6b 2e 0a 0a 54 68 65 20 | ndicated.with.an.asterisk...The. |
| 24f2e0 | 63 6f 6d 6d 61 6e 64 73 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 74 68 65 20 63 6f 6e 6e 65 63 | commands.available.in.the.connec |
| 24f300 | 74 69 6f 6e 2d 6c 69 73 74 20 62 75 66 66 65 72 20 61 72 65 3a 0a 0a 40 74 61 62 6c 65 20 40 6b | tion-list.buffer.are:..@table.@k |
| 24f320 | 62 64 0a 40 6b 62 64 69 74 65 6d 7b 52 45 54 2c 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 63 6f 6e 6e | bd.@kbditem{RET,.slime-goto-conn |
| 24f340 | 65 63 74 69 6f 6e 7d 0a 50 6f 70 20 74 6f 20 74 68 65 20 40 61 63 72 6f 6e 79 6d 7b 52 45 50 4c | ection}.Pop.to.the.@acronym{REPL |
| 24f360 | 7d 20 62 75 66 66 65 72 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 61 74 20 70 6f | }.buffer.of.the.connection.at.po |
| 24f380 | 69 6e 74 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 64 2c 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 | int...@kbditem{d,.slime-connecti |
| 24f3a0 | 6f 6e 2d 6c 69 73 74 2d 6d 61 6b 65 2d 64 65 66 61 75 6c 74 7d 0a 4d 61 6b 65 20 74 68 65 20 63 | on-list-make-default}.Make.the.c |
| 24f3c0 | 6f 6e 6e 65 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 20 74 68 65 20 60 60 64 65 66 61 75 6c 74 | onnection.at.point.the.``default |
| 24f3e0 | 27 27 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 49 74 20 77 69 6c 6c 20 74 68 65 6e 0a 62 65 20 75 | ''.connection..It.will.then.be.u |
| 24f400 | 73 65 64 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d | sed.for.commands.in.@code{slime- |
| 24f420 | 6d 6f 64 65 7d 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 73 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b | mode}.source.buffers...@kbditem{ |
| 24f440 | 67 2c 20 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 7d | g,.slime-update-connection-list} |
| 24f460 | 0a 55 70 64 61 74 65 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6c 69 73 74 20 69 6e 20 74 | .Update.the.connection.list.in.t |
| 24f480 | 68 65 20 62 75 66 66 65 72 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 71 2c 20 73 6c 69 6d 65 2d 74 65 | he.buffer...@kbditem{q,.slime-te |
| 24f4a0 | 6d 70 2d 62 75 66 66 65 72 2d 71 75 69 74 7d 0a 51 75 69 74 20 74 68 65 20 63 6f 6e 6e 65 63 74 | mp-buffer-quit}.Quit.the.connect |
| 24f4c0 | 69 6f 6e 20 6c 69 73 74 20 28 6b 69 6c 6c 20 62 75 66 66 65 72 2c 20 72 65 73 74 6f 72 65 20 77 | ion.list.(kill.buffer,.restore.w |
| 24f4e0 | 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b | indow.configuration)...@kbditem{ |
| 24f500 | 52 2c 20 73 6c 69 6d 65 2d 72 65 73 74 61 72 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 2d 70 | R,.slime-restart-connection-at-p |
| 24f520 | 6f 69 6e 74 7d 0a 52 65 73 74 61 72 74 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 20 66 | oint}.Restart.the.Lisp.process.f |
| 24f540 | 6f 72 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 40 63 6d | or.the.connection.at.point...@cm |
| 24f560 | 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 7d 0a 43 6f 6e 6e 65 63 74 20 74 6f 20 | ditem{slime-connect}.Connect.to. |
| 24f580 | 61 20 72 75 6e 6e 69 6e 67 20 53 77 61 6e 6b 20 73 65 72 76 65 72 2e 0a 0a 40 63 6d 64 69 74 65 | a.running.Swank.server...@cmdite |
| 24f5a0 | 6d 7b 73 6c 69 6d 65 2d 64 69 73 63 6f 6e 6e 65 63 74 7d 0a 44 69 73 63 6f 6e 6e 65 63 74 20 61 | m{slime-disconnect}.Disconnect.a |
| 24f5c0 | 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d | ll.connections...@cmditem{slime- |
| 24f5e0 | 61 62 6f 72 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 7d 0a 41 62 6f 72 74 20 74 68 65 20 63 75 72 72 | abort-connection}.Abort.the.curr |
| 24f600 | 65 6e 74 20 61 74 74 65 6d 70 74 20 74 6f 20 63 6f 6e 6e 65 63 74 2e 0a 0a 40 65 6e 64 20 74 61 | ent.attempt.to.connect...@end.ta |
| 24f620 | 62 6c 65 0a 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ble...@c.----------------------- |
| 24f640 | 0a 40 6e 6f 64 65 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 40 63 68 61 70 74 65 72 20 43 75 | .@node.Customization.@chapter.Cu |
| 24f660 | 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 0a 40 6d 65 6e 75 0a 2a 20 45 6d 61 63 73 2d 73 69 64 65 20 | stomization..@menu.*.Emacs-side. |
| 24f680 | 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 3a 3a 0a 2a 20 4c 69 73 70 2d 73 69 64 65 3a 3a 0a 40 65 | customization::.*.Lisp-side::.@e |
| 24f6a0 | 6e 64 20 6d 65 6e 75 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | nd.menu..@c.-------------------- |
| 24f6c0 | 2d 2d 2d 0a 40 6e 6f 64 65 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 | ---.@node.Emacs-side.customizati |
| 24f6e0 | 6f 6e 0a 40 73 65 63 74 69 6f 6e 20 45 6d 61 63 73 2d 73 69 64 65 0a 0a 54 68 65 20 45 6d 61 63 | on.@section.Emacs-side..The.Emac |
| 24f700 | 73 20 70 61 72 74 20 6f 66 20 40 53 4c 49 4d 45 7b 7d 20 63 61 6e 20 62 65 20 63 6f 6e 66 69 67 | s.part.of.@SLIME{}.can.be.config |
| 24f720 | 75 72 65 64 20 77 69 74 68 20 74 68 65 20 45 6d 61 63 73 0a 40 63 6f 64 65 7b 63 75 73 74 6f 6d | ured.with.the.Emacs.@code{custom |
| 24f740 | 69 7a 65 7d 20 73 79 73 74 65 6d 2c 20 6a 75 73 74 20 75 73 65 20 40 6b 62 64 7b 4d 2d 78 20 63 | ize}.system,.just.use.@kbd{M-x.c |
| 24f760 | 75 73 74 6f 6d 69 7a 65 2d 67 72 6f 75 70 20 73 6c 69 6d 65 0a 52 45 54 7d 2e 20 42 65 63 61 75 | ustomize-group.slime.RET}..Becau |
| 24f780 | 73 65 20 74 68 65 20 63 75 73 74 6f 6d 69 7a 65 20 73 79 73 74 65 6d 20 69 73 20 73 65 6c 66 2d | se.the.customize.system.is.self- |
| 24f7a0 | 64 65 73 63 72 69 62 69 6e 67 2c 20 77 65 20 6f 6e 6c 79 20 63 6f 76 65 72 20 61 0a 66 65 77 20 | describing,.we.only.cover.a.few. |
| 24f7c0 | 69 6d 70 6f 72 74 61 6e 74 20 6f 72 20 6f 62 73 63 75 72 65 20 63 6f 6e 66 69 67 75 72 61 74 69 | important.or.obscure.configurati |
| 24f7e0 | 6f 6e 20 6f 70 74 69 6f 6e 73 20 68 65 72 65 20 69 6e 20 74 68 65 20 6d 61 6e 75 61 6c 2e 0a 0a | on.options.here.in.the.manual... |
| 24f800 | 40 74 61 62 6c 65 20 40 63 6f 64 65 0a 0a 40 69 74 65 6d 20 73 6c 69 6d 65 2d 74 72 75 6e 63 61 | @table.@code..@item.slime-trunca |
| 24f820 | 74 65 2d 6c 69 6e 65 73 0a 54 68 65 20 76 61 6c 75 65 20 74 6f 20 75 73 65 20 66 6f 72 20 40 63 | te-lines.The.value.to.use.for.@c |
| 24f840 | 6f 64 65 7b 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 7d 20 69 6e 20 6c 69 6e 65 2d 62 79 2d 6c | ode{truncate-lines}.in.line-by-l |
| 24f860 | 69 6e 65 20 73 75 6d 6d 61 72 79 0a 62 75 66 66 65 72 73 20 70 6f 70 70 65 64 20 75 70 20 62 79 | ine.summary.buffers.popped.up.by |
| 24f880 | 20 40 53 4c 49 4d 45 7b 7d 2e 20 54 68 69 73 20 69 73 20 40 63 6f 64 65 7b 74 7d 20 62 79 20 64 | .@SLIME{}..This.is.@code{t}.by.d |
| 24f8a0 | 65 66 61 75 6c 74 2c 20 77 68 69 63 68 0a 65 6e 73 75 72 65 73 20 74 68 61 74 20 6c 69 6e 65 73 | efault,.which.ensures.that.lines |
| 24f8c0 | 20 64 6f 20 6e 6f 74 20 77 72 61 70 20 69 6e 20 62 61 63 6b 74 72 61 63 65 73 2c 20 61 70 72 6f | .do.not.wrap.in.backtraces,.apro |
| 24f8e0 | 70 6f 73 20 6c 69 73 74 69 6e 67 73 2c 20 61 6e 64 20 73 6f 0a 6f 6e 2e 20 49 74 20 63 61 6e 20 | pos.listings,.and.so.on..It.can. |
| 24f900 | 68 6f 77 65 76 65 72 20 63 61 75 73 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 20 73 70 69 | however.cause.information.to.spi |
| 24f920 | 6c 6c 20 6f 66 66 20 74 68 65 20 73 63 72 65 65 6e 2e 0a 0a 40 61 6e 63 68 6f 72 7b 73 6c 69 6d | ll.off.the.screen...@anchor{slim |
| 24f940 | 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 7d | e-completion-at-point-functions} |
| 24f960 | 0a 40 76 69 6e 64 65 78 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 | .@vindex.slime-completion-at-poi |
| 24f980 | 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 0a 40 69 74 65 6d 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 | nt-functions.@item.slime-complet |
| 24f9a0 | 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 0a 41 20 6c 69 73 74 20 6f 66 | ion-at-point-functions.A.list.of |
| 24f9c0 | 20 66 75 6e 63 74 69 6f 6e 73 20 75 73 65 64 20 66 6f 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 6f | .functions.used.for.completion.o |
| 24f9e0 | 66 20 4c 69 73 70 20 73 79 6d 62 6f 6c 73 2e 20 20 54 68 69 73 20 77 6f 72 6b 73 0a 61 73 20 74 | f.Lisp.symbols...This.works.as.t |
| 24fa00 | 68 65 20 73 74 61 6e 64 61 72 64 0a 40 63 6f 64 65 7b 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d | he.standard.@code{completion-at- |
| 24fa20 | 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 7d 0a 28 40 70 78 72 65 66 7b 43 6f 6d 70 6c 65 74 | point-functions}.(@pxref{Complet |
| 24fa40 | 69 6f 6e 20 69 6e 20 42 75 66 66 65 72 73 2c 2c 2c 65 6c 69 73 70 7d 29 2e 20 20 54 68 72 65 65 | ion.in.Buffers,,,elisp})...Three |
| 24fa60 | 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 73 74 79 6c 65 73 20 61 72 65 20 61 76 61 69 6c 61 62 6c 65 | .completion.styles.are.available |
| 24fa80 | 3a 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d | :.@code{slime-simple-completion- |
| 24faa0 | 61 74 2d 70 6f 69 6e 74 7d 2c 0a 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d | at-point},.@code{slime-complete- |
| 24fac0 | 73 79 6d 62 6f 6c 2a 7d 20 28 40 70 78 72 65 66 7b 43 6f 6d 70 6f 75 6e 64 20 43 6f 6d 70 6c 65 | symbol*}.(@pxref{Compound.Comple |
| 24fae0 | 74 69 6f 6e 7d 29 2c 0a 61 6e 64 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f | tion}),.and.@code{slime-fuzzy-co |
| 24fb00 | 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 7d 20 28 40 70 78 72 65 66 7b 46 75 7a 7a 79 20 43 6f 6d | mplete-symbol}.(@pxref{Fuzzy.Com |
| 24fb20 | 70 6c 65 74 69 6f 6e 7d 29 2e 0a 0a 54 68 65 20 64 65 66 61 75 6c 74 20 69 73 20 40 63 6f 64 65 | pletion})...The.default.is.@code |
| 24fb40 | 7b 73 6c 69 6d 65 2d 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e | {slime-simple-completion-at-poin |
| 24fb60 | 74 7d 2c 20 77 68 69 63 68 0a 63 6f 6d 70 6c 65 74 65 73 20 69 6e 20 74 68 65 20 75 73 75 61 6c | t},.which.completes.in.the.usual |
| 24fb80 | 20 45 6d 61 63 73 20 77 61 79 2e 0a 0a 40 76 69 6e 64 65 78 20 73 6c 69 6d 65 2d 66 69 6c 65 6e | .Emacs.way...@vindex.slime-filen |
| 24fba0 | 61 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 0a 40 69 74 65 6d 20 73 6c 69 6d 65 2d 66 69 6c | ame-translations.@item.slime-fil |
| 24fbc0 | 65 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 | ename-translations.This.variable |
| 24fbe0 | 20 63 6f 6e 74 72 6f 6c 73 20 66 69 6c 65 6e 61 6d 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 | .controls.filename.translation.b |
| 24fc00 | 65 74 77 65 65 6e 20 45 6d 61 63 73 20 61 6e 64 20 74 68 65 20 4c 69 73 70 0a 73 79 73 74 65 6d | etween.Emacs.and.the.Lisp.system |
| 24fc20 | 2e 20 49 74 20 69 73 20 75 73 65 66 75 6c 20 69 66 20 79 6f 75 20 72 75 6e 20 45 6d 61 63 73 20 | ..It.is.useful.if.you.run.Emacs. |
| 24fc40 | 61 6e 64 20 4c 69 73 70 20 6f 6e 20 73 65 70 61 72 61 74 65 20 6d 61 63 68 69 6e 65 73 0a 77 68 | and.Lisp.on.separate.machines.wh |
| 24fc60 | 69 63 68 20 64 6f 6e 27 74 20 73 68 61 72 65 20 61 20 63 6f 6d 6d 6f 6e 20 66 69 6c 65 20 73 79 | ich.don't.share.a.common.file.sy |
| 24fc80 | 73 74 65 6d 20 6f 72 20 69 66 20 74 68 65 79 20 73 68 61 72 65 20 74 68 65 20 66 69 6c 65 73 79 | stem.or.if.they.share.the.filesy |
| 24fca0 | 73 74 65 6d 0a 62 75 74 20 68 61 76 65 20 64 69 66 66 65 72 65 6e 74 20 6c 61 79 6f 75 74 73 2c | stem.but.have.different.layouts, |
| 24fcc0 | 20 61 73 20 69 73 20 74 68 65 20 63 61 73 65 20 77 69 74 68 20 40 61 63 72 6f 6e 79 6d 7b 53 4d | .as.is.the.case.with.@acronym{SM |
| 24fce0 | 42 7d 2d 62 61 73 65 64 0a 66 69 6c 65 20 73 68 61 72 69 6e 67 2e 0a 0a 40 61 6e 63 68 6f 72 7b | B}-based.file.sharing...@anchor{ |
| 24fd00 | 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 7d 0a 40 76 69 6e 64 65 78 | slime-net-coding-system}.@vindex |
| 24fd20 | 20 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 0a 40 63 69 6e 64 65 78 | .slime-net-coding-system.@cindex |
| 24fd40 | 20 55 6e 69 63 6f 64 65 0a 40 63 69 6e 64 65 78 20 55 54 46 2d 38 0a 40 63 69 6e 64 65 78 20 41 | .Unicode.@cindex.UTF-8.@cindex.A |
| 24fd60 | 53 43 49 49 0a 40 63 69 6e 64 65 78 20 4c 41 54 49 4e 2d 31 0a 40 63 69 6e 64 65 78 20 43 68 61 | SCII.@cindex.LATIN-1.@cindex.Cha |
| 24fd80 | 72 61 63 74 65 72 20 45 6e 63 6f 64 69 6e 67 0a 40 69 74 65 6d 20 73 6c 69 6d 65 2d 6e 65 74 2d | racter.Encoding.@item.slime-net- |
| 24fda0 | 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 0a 49 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 74 72 61 | coding-system.If.you.want.to.tra |
| 24fdc0 | 6e 73 6d 69 74 20 55 6e 69 63 6f 64 65 20 63 68 61 72 61 63 74 65 72 73 20 62 65 74 77 65 65 6e | nsmit.Unicode.characters.between |
| 24fde0 | 20 45 6d 61 63 73 20 61 6e 64 20 74 68 65 20 4c 69 73 70 0a 73 79 73 74 65 6d 2c 20 79 6f 75 20 | .Emacs.and.the.Lisp.system,.you. |
| 24fe00 | 73 68 6f 75 6c 64 20 63 75 73 74 6f 6d 69 7a 65 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 2e 20 | should.customize.this.variable.. |
| 24fe20 | 20 45 2e 67 2e 2c 20 69 66 20 79 6f 75 20 75 73 65 20 53 42 43 4c 2c 20 79 6f 75 0a 63 61 6e 20 | .E.g.,.if.you.use.SBCL,.you.can. |
| 24fe40 | 73 65 74 3a 0a 40 65 78 61 6d 70 6c 65 0a 28 73 65 74 71 20 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f | set:.@example.(setq.slime-net-co |
| 24fe60 | 64 69 6e 67 2d 73 79 73 74 65 6d 20 27 75 74 66 2d 38 2d 75 6e 69 78 29 0a 40 65 6e 64 20 65 78 | ding-system.'utf-8-unix).@end.ex |
| 24fe80 | 61 6d 70 6c 65 0a 54 6f 20 61 63 74 75 61 6c 6c 79 20 64 69 73 70 6c 61 79 20 55 6e 69 63 6f 64 | ample.To.actually.display.Unicod |
| 24fea0 | 65 20 63 68 61 72 61 63 74 65 72 73 20 79 6f 75 20 61 6c 73 6f 20 6e 65 65 64 20 61 70 70 72 6f | e.characters.you.also.need.appro |
| 24fec0 | 70 72 69 61 74 65 0a 66 6f 6e 74 73 2c 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 63 68 61 72 | priate.fonts,.otherwise.the.char |
| 24fee0 | 61 63 74 65 72 73 20 77 69 6c 6c 20 62 65 20 72 65 6e 64 65 72 65 64 20 61 73 20 68 6f 6c 6c 6f | acters.will.be.rendered.as.hollo |
| 24ff00 | 77 20 62 6f 78 65 73 2e 20 20 49 66 0a 79 6f 75 20 61 72 65 20 75 73 69 6e 67 20 41 6c 6c 65 67 | w.boxes...If.you.are.using.Alleg |
| 24ff20 | 72 6f 20 43 4c 20 61 6e 64 20 47 4e 55 20 45 6d 61 63 73 2c 20 79 6f 75 20 63 61 6e 20 61 6c 73 | ro.CL.and.GNU.Emacs,.you.can.als |
| 24ff40 | 6f 0a 75 73 65 20 40 63 6f 64 65 7b 65 6d 61 63 73 2d 6d 75 6c 65 2d 75 6e 69 78 7d 20 61 73 20 | o.use.@code{emacs-mule-unix}.as. |
| 24ff60 | 63 6f 64 69 6e 67 20 73 79 73 74 65 6d 2e 20 20 47 4e 55 20 45 6d 61 63 73 20 68 61 73 20 6f 66 | coding.system...GNU.Emacs.has.of |
| 24ff80 | 74 65 6e 0a 6e 69 63 65 72 20 66 6f 6e 74 73 20 66 6f 72 20 74 68 65 20 6c 61 74 74 65 72 20 65 | ten.nicer.fonts.for.the.latter.e |
| 24ffa0 | 6e 63 6f 64 69 6e 67 2e 20 20 28 44 69 66 66 65 72 65 6e 74 20 65 6e 63 6f 64 69 6e 67 73 20 63 | ncoding...(Different.encodings.c |
| 24ffc0 | 61 6e 20 62 65 20 75 73 65 64 0a 66 6f 72 20 64 69 66 66 65 72 65 6e 74 20 4c 69 73 70 73 2c 20 | an.be.used.for.different.Lisps,. |
| 24ffe0 | 73 65 65 20 40 72 65 66 7b 4d 75 6c 74 69 70 6c 65 20 4c 69 73 70 73 7d 2e 29 0a 0a 40 65 6e 64 | see.@ref{Multiple.Lisps}.)..@end |
| 250000 | 20 74 61 62 6c 65 0a 0a 40 6d 65 6e 75 0a 2a 20 48 6f 6f 6b 73 3a 3a 0a 40 65 6e 64 20 6d 65 6e | .table..@menu.*.Hooks::.@end.men |
| 250020 | 75 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 03 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 | u..@c.--------.---------------.@ |
| 250040 | 6e 6f 64 65 20 48 6f 6f 6b 73 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 48 6f 6f 6b 73 0a 0a 40 74 | node.Hooks.@subsection.Hooks..@t |
| 250060 | 61 62 6c 65 20 40 63 6f 64 65 0a 0a 40 76 69 6e 64 65 78 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 | able.@code..@vindex.slime-mode-h |
| 250080 | 6f 6f 6b 0a 40 69 74 65 6d 20 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 54 68 69 73 20 68 | ook.@item.slime-mode-hook.This.h |
| 2500a0 | 6f 6f 6b 20 69 73 20 72 75 6e 20 65 61 63 68 20 74 69 6d 65 20 61 20 62 75 66 66 65 72 20 65 6e | ook.is.run.each.time.a.buffer.en |
| 2500c0 | 74 65 72 73 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 6d 6f 64 65 7d 2e 20 49 74 20 69 73 0a 6d 6f | ters.@code{slime-mode}..It.is.mo |
| 2500e0 | 73 74 20 75 73 65 66 75 6c 20 66 6f 72 20 73 65 74 74 69 6e 67 20 62 75 66 66 65 72 2d 6c 6f 63 | st.useful.for.setting.buffer-loc |
| 250100 | 61 6c 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 69 6e 20 79 6f 75 72 20 4c 69 73 70 20 73 6f | al.configuration.in.your.Lisp.so |
| 250120 | 75 72 63 65 0a 62 75 66 66 65 72 73 2e 20 41 6e 20 65 78 61 6d 70 6c 65 20 75 73 65 20 69 73 20 | urce.buffers..An.example.use.is. |
| 250140 | 74 6f 20 65 6e 61 62 6c 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f | to.enable.@code{slime-autodoc-mo |
| 250160 | 64 65 7d 0a 28 40 70 78 72 65 66 7b 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 7d 29 | de}.(@pxref{slime-autodoc-mode}) |
| 250180 | 2e 0a 0a 40 61 6e 63 68 6f 72 7b 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 7d | ...@anchor{slime-connected-hook} |
| 2501a0 | 0a 40 76 69 6e 64 65 78 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 0a 40 69 | .@vindex.slime-connected-hook.@i |
| 2501c0 | 74 65 6d 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 0a 54 68 69 73 20 68 6f | tem.slime-connected-hook.This.ho |
| 2501e0 | 6f 6b 20 69 73 20 72 75 6e 20 77 68 65 6e 20 40 53 4c 49 4d 45 7b 7d 20 65 73 74 61 62 6c 69 73 | ok.is.run.when.@SLIME{}.establis |
| 250200 | 68 65 73 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 61 20 4c 69 73 70 0a 73 65 72 76 65 | hes.a.connection.to.a.Lisp.serve |
| 250220 | 72 2e 20 41 6e 20 65 78 61 6d 70 6c 65 20 75 73 65 20 69 73 20 74 6f 20 63 72 65 61 74 65 20 61 | r..An.example.use.is.to.create.a |
| 250240 | 20 54 79 70 65 6f 75 74 20 66 72 61 6d 65 20 28 40 78 72 65 66 7b 54 79 70 65 6f 75 74 20 66 72 | .Typeout.frame.(@xref{Typeout.fr |
| 250260 | 61 6d 65 73 7d 2e 29 0a 0a 40 76 69 6e 64 65 78 20 73 6c 64 62 2d 68 6f 6f 6b 0a 40 69 74 65 6d | ames}.)..@vindex.sldb-hook.@item |
| 250280 | 20 73 6c 64 62 2d 68 6f 6f 6b 0a 54 68 69 73 20 68 6f 6f 6b 20 69 73 20 72 75 6e 20 61 66 74 65 | .sldb-hook.This.hook.is.run.afte |
| 2502a0 | 72 20 40 53 4c 44 42 7b 7d 20 69 73 20 69 6e 76 6f 6b 65 64 2e 20 54 68 65 20 68 6f 6f 6b 20 66 | r.@SLDB{}.is.invoked..The.hook.f |
| 2502c0 | 75 6e 63 74 69 6f 6e 73 20 61 72 65 0a 63 61 6c 6c 65 64 20 66 72 6f 6d 20 74 68 65 20 40 53 4c | unctions.are.called.from.the.@SL |
| 2502e0 | 44 42 7b 7d 20 62 75 66 66 65 72 20 61 66 74 65 72 20 69 74 20 69 73 20 69 6e 69 74 69 61 6c 69 | DB{}.buffer.after.it.is.initiali |
| 250300 | 7a 65 64 2e 20 41 6e 20 65 78 61 6d 70 6c 65 20 75 73 65 0a 69 73 20 74 6f 20 61 64 64 20 40 63 | zed..An.example.use.is.to.add.@c |
| 250320 | 6f 64 65 7b 73 6c 64 62 2d 70 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 7d 20 74 6f 20 74 68 69 | ode{sldb-print-condition}.to.thi |
| 250340 | 73 20 68 6f 6f 6b 2c 20 77 68 69 63 68 20 6d 61 6b 65 73 20 61 6c 6c 0a 63 6f 6e 64 69 74 69 6f | s.hook,.which.makes.all.conditio |
| 250360 | 6e 73 20 64 65 62 75 67 67 65 64 20 77 69 74 68 20 40 53 4c 44 42 7b 7d 20 62 65 20 72 65 63 6f | ns.debugged.with.@SLDB{}.be.reco |
| 250380 | 72 64 65 64 20 69 6e 20 74 68 65 20 40 52 45 50 4c 7b 7d 20 62 75 66 66 65 72 2e 0a 0a 40 65 6e | rded.in.the.@REPL{}.buffer...@en |
| 2503a0 | 64 20 74 61 62 6c 65 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | d.table..@c.-------------------- |
| 2503c0 | 2d 2d 2d 0a 40 6e 6f 64 65 20 4c 69 73 70 2d 73 69 64 65 0a 40 73 65 63 74 69 6f 6e 20 4c 69 73 | ---.@node.Lisp-side.@section.Lis |
| 2503e0 | 70 2d 73 69 64 65 20 28 53 77 61 6e 6b 29 0a 0a 54 68 65 20 4c 69 73 70 20 73 65 72 76 65 72 20 | p-side.(Swank)..The.Lisp.server. |
| 250400 | 73 69 64 65 20 6f 66 20 40 53 4c 49 4d 45 7b 7d 20 28 6b 6e 6f 77 6e 20 61 73 20 60 60 53 77 61 | side.of.@SLIME{}.(known.as.``Swa |
| 250420 | 6e 6b 27 27 29 20 6f 66 66 65 72 73 20 73 65 76 65 72 61 6c 0a 76 61 72 69 61 62 6c 65 73 20 74 | nk'').offers.several.variables.t |
| 250440 | 6f 20 63 6f 6e 66 69 67 75 72 65 2e 20 54 68 65 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 | o.configure..The.initialization. |
| 250460 | 66 69 6c 65 20 40 66 69 6c 65 7b 7e 2f 2e 73 77 61 6e 6b 2e 6c 69 73 70 7d 0a 69 73 20 61 75 74 | file.@file{~/.swank.lisp}.is.aut |
| 250480 | 6f 6d 61 74 69 63 61 6c 6c 79 20 65 76 61 6c 75 61 74 65 64 20 61 74 20 73 74 61 72 74 75 70 20 | omatically.evaluated.at.startup. |
| 2504a0 | 61 6e 64 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 73 65 74 20 74 68 65 73 65 0a 76 61 72 | and.can.be.used.to.set.these.var |
| 2504c0 | 69 61 62 6c 65 73 2e 0a 0a 40 6d 65 6e 75 0a 2a 20 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 | iables...@menu.*.Communication.s |
| 2504e0 | 74 79 6c 65 3a 3a 0a 2a 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 3a 3a 0a 40 | tyle::.*.Other.configurables::.@ |
| 250500 | 65 6e 64 20 6d 65 6e 75 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | end.menu..@c.------------------- |
| 250520 | 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 0a 40 | ----.@node.Communication.style.@ |
| 250540 | 73 75 62 73 65 63 74 69 6f 6e 20 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 0a 40 | subsection.Communication.style.@ |
| 250560 | 76 69 6e 64 65 78 20 53 57 41 4e 4b 3a 2a 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 2d 53 54 59 4c | vindex.SWANK:*COMMUNICATION-STYL |
| 250580 | 45 2a 0a 0a 54 68 65 20 6d 6f 73 74 20 69 6d 70 6f 72 74 61 6e 74 20 63 6f 6e 66 69 67 75 72 61 | E*..The.most.important.configura |
| 2505a0 | 62 6c 65 20 69 73 20 40 63 6f 64 65 7b 53 57 41 4e 4b 3a 2a 43 4f 4d 4d 55 4e 49 43 41 54 49 4f | ble.is.@code{SWANK:*COMMUNICATIO |
| 2505c0 | 4e 2d 53 54 59 4c 45 2a 7d 2c 0a 77 68 69 63 68 20 73 70 65 63 69 66 69 65 73 20 74 68 65 20 6d | N-STYLE*},.which.specifies.the.m |
| 2505e0 | 65 63 68 61 6e 69 73 6d 20 62 79 20 77 68 69 63 68 20 4c 69 73 70 20 72 65 61 64 73 20 61 6e 64 | echanism.by.which.Lisp.reads.and |
| 250600 | 20 70 72 6f 63 65 73 73 65 73 0a 70 72 6f 74 6f 63 6f 6c 20 6d 65 73 73 61 67 65 73 20 66 72 6f | .processes.protocol.messages.fro |
| 250620 | 6d 20 45 6d 61 63 73 2e 20 54 68 65 20 63 68 6f 69 63 65 20 6f 66 20 63 6f 6d 6d 75 6e 69 63 61 | m.Emacs..The.choice.of.communica |
| 250640 | 74 69 6f 6e 20 73 74 79 6c 65 20 68 61 73 20 61 0a 67 6c 6f 62 61 6c 20 69 6e 66 6c 75 65 6e 63 | tion.style.has.a.global.influenc |
| 250660 | 65 20 6f 6e 20 40 53 4c 49 4d 45 7b 7d 27 73 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 0a 54 68 65 20 | e.on.@SLIME{}'s.operation...The. |
| 250680 | 61 76 61 69 6c 61 62 6c 65 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 73 20 61 | available.communication.styles.a |
| 2506a0 | 72 65 3a 0a 0a 40 74 61 62 6c 65 20 40 63 6f 64 65 0a 40 69 74 65 6d 20 4e 49 4c 0a 54 68 69 73 | re:..@table.@code.@item.NIL.This |
| 2506c0 | 20 73 74 79 6c 65 20 73 69 6d 70 6c 79 20 6c 6f 6f 70 73 20 72 65 61 64 69 6e 67 20 69 6e 70 75 | .style.simply.loops.reading.inpu |
| 2506e0 | 74 20 66 72 6f 6d 20 74 68 65 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 6f 63 6b 65 74 0a | t.from.the.communication.socket. |
| 250700 | 61 6e 64 20 73 65 72 76 65 73 20 40 53 4c 49 4d 45 7b 7d 20 70 72 6f 74 6f 63 6f 6c 20 65 76 65 | and.serves.@SLIME{}.protocol.eve |
| 250720 | 6e 74 73 20 61 73 20 74 68 65 79 20 61 72 69 73 65 2e 20 54 68 65 20 73 69 6d 70 6c 69 63 69 74 | nts.as.they.arise..The.simplicit |
| 250740 | 79 0a 6d 65 61 6e 73 20 74 68 61 74 20 74 68 65 20 4c 69 73 70 20 63 61 6e 6e 6f 74 20 64 6f 20 | y.means.that.the.Lisp.cannot.do. |
| 250760 | 61 6e 79 20 6f 74 68 65 72 20 70 72 6f 63 65 73 73 69 6e 67 20 77 68 69 6c 65 20 75 6e 64 65 72 | any.other.processing.while.under |
| 250780 | 0a 40 53 4c 49 4d 45 7b 7d 27 73 20 63 6f 6e 74 72 6f 6c 2e 0a 0a 40 69 74 65 6d 20 3a 46 44 2d | .@SLIME{}'s.control...@item.:FD- |
| 2507a0 | 48 41 4e 44 4c 45 52 0a 54 68 69 73 20 73 74 79 6c 65 20 75 73 65 73 20 74 68 65 20 63 6c 61 73 | HANDLER.This.style.uses.the.clas |
| 2507c0 | 73 69 63 61 6c 20 55 6e 69 78 2d 73 74 79 6c 65 20 60 60 40 63 6f 64 65 7b 73 65 6c 65 63 74 28 | sical.Unix-style.``@code{select( |
| 2507e0 | 29 7d 2d 6c 6f 6f 70 2e 27 27 0a 53 77 61 6e 6b 20 72 65 67 69 73 74 65 72 73 20 74 68 65 20 63 | )}-loop.''.Swank.registers.the.c |
| 250800 | 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 6f 63 6b 65 74 20 77 69 74 68 20 61 6e 20 65 76 65 6e | ommunication.socket.with.an.even |
| 250820 | 74 2d 64 69 73 70 61 74 63 68 69 6e 67 0a 66 72 61 6d 65 77 6f 72 6b 20 28 73 75 63 68 20 61 73 | t-dispatching.framework.(such.as |
| 250840 | 20 40 63 6f 64 65 7b 53 45 52 56 45 2d 45 56 45 4e 54 7d 20 69 6e 20 40 61 63 72 6f 6e 79 6d 7b | .@code{SERVE-EVENT}.in.@acronym{ |
| 250860 | 43 4d 55 43 4c 7d 20 61 6e 64 0a 40 61 63 72 6f 6e 79 6d 7b 53 42 43 4c 7d 29 20 61 6e 64 20 72 | CMUCL}.and.@acronym{SBCL}).and.r |
| 250880 | 65 63 65 69 76 65 73 20 61 20 63 61 6c 6c 62 61 63 6b 20 77 68 65 6e 20 64 61 74 61 20 69 73 20 | eceives.a.callback.when.data.is. |
| 2508a0 | 61 76 61 69 6c 61 62 6c 65 2e 20 49 6e 0a 74 68 69 73 20 73 74 79 6c 65 20 72 65 71 75 65 73 74 | available..In.this.style.request |
| 2508c0 | 73 20 66 72 6f 6d 20 45 6d 61 63 73 20 61 72 65 20 6f 6e 6c 79 20 64 65 74 65 63 74 65 64 20 61 | s.from.Emacs.are.only.detected.a |
| 2508e0 | 6e 64 20 70 72 6f 63 65 73 73 65 64 20 77 68 65 6e 0a 4c 69 73 70 20 65 6e 74 65 72 73 20 74 68 | nd.processed.when.Lisp.enters.th |
| 250900 | 65 20 65 76 65 6e 74 2d 6c 6f 6f 70 2e 20 54 68 69 73 20 73 74 79 6c 65 20 69 73 20 73 69 6d 70 | e.event-loop..This.style.is.simp |
| 250920 | 6c 65 20 61 6e 64 20 70 72 65 64 69 63 74 61 62 6c 65 2e 0a 0a 40 69 74 65 6d 20 3a 53 49 47 49 | le.and.predictable...@item.:SIGI |
| 250940 | 4f 0a 54 68 69 73 20 73 74 79 6c 65 20 75 73 65 73 20 40 64 66 6e 7b 73 69 67 6e 61 6c 2d 64 72 | O.This.style.uses.@dfn{signal-dr |
| 250960 | 69 76 65 6e 20 49 2f 4f 7d 20 77 69 74 68 20 61 20 40 63 6f 64 65 7b 53 49 47 49 4f 7d 20 73 69 | iven.I/O}.with.a.@code{SIGIO}.si |
| 250980 | 67 6e 61 6c 0a 68 61 6e 64 6c 65 72 2e 20 4c 69 73 70 20 72 65 63 65 69 76 65 73 20 72 65 71 75 | gnal.handler..Lisp.receives.requ |
| 2509a0 | 65 73 74 73 20 66 72 6f 6d 20 45 6d 61 63 73 20 61 6c 6f 6e 67 20 77 69 74 68 20 61 20 73 69 67 | ests.from.Emacs.along.with.a.sig |
| 2509c0 | 6e 61 6c 2c 0a 63 61 75 73 69 6e 67 20 69 74 20 74 6f 20 69 6e 74 65 72 72 75 70 74 20 77 68 61 | nal,.causing.it.to.interrupt.wha |
| 2509e0 | 74 65 76 65 72 20 69 74 20 69 73 20 64 6f 69 6e 67 20 74 6f 20 73 65 72 76 65 20 74 68 65 0a 72 | tever.it.is.doing.to.serve.the.r |
| 250a00 | 65 71 75 65 73 74 2e 20 54 68 69 73 20 73 74 79 6c 65 20 68 61 73 20 74 68 65 20 61 64 76 61 6e | equest..This.style.has.the.advan |
| 250a20 | 74 61 67 65 20 6f 66 20 72 65 73 70 6f 6e 73 69 76 65 6e 65 73 73 2c 20 73 69 6e 63 65 20 45 6d | tage.of.responsiveness,.since.Em |
| 250a40 | 61 63 73 0a 63 61 6e 20 70 65 72 66 6f 72 6d 20 6f 70 65 72 61 74 69 6f 6e 73 20 69 6e 20 4c 69 | acs.can.perform.operations.in.Li |
| 250a60 | 73 70 20 65 76 65 6e 20 77 68 69 6c 65 20 69 74 20 69 73 20 62 75 73 79 20 64 6f 69 6e 67 20 6f | sp.even.while.it.is.busy.doing.o |
| 250a80 | 74 68 65 72 0a 74 68 69 6e 67 73 2e 20 49 74 20 61 6c 73 6f 20 61 6c 6c 6f 77 73 20 45 6d 61 63 | ther.things..It.also.allows.Emac |
| 250aa0 | 73 20 74 6f 20 69 73 73 75 65 20 72 65 71 75 65 73 74 73 20 63 6f 6e 63 75 72 72 65 6e 74 6c 79 | s.to.issue.requests.concurrently |
| 250ac0 | 2c 20 65 2e 67 2e 20 74 6f 0a 73 65 6e 64 20 6f 6e 65 20 6c 6f 6e 67 2d 72 75 6e 6e 69 6e 67 20 | ,.e.g..to.send.one.long-running. |
| 250ae0 | 72 65 71 75 65 73 74 20 28 6c 69 6b 65 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 29 20 61 6e 64 20 74 | request.(like.compilation).and.t |
| 250b00 | 68 65 6e 20 69 6e 74 65 72 72 75 70 74 0a 74 68 61 74 20 77 69 74 68 20 73 65 76 65 72 61 6c 20 | hen.interrupt.that.with.several. |
| 250b20 | 73 68 6f 72 74 20 72 65 71 75 65 73 74 73 20 62 65 66 6f 72 65 20 69 74 20 63 6f 6d 70 6c 65 74 | short.requests.before.it.complet |
| 250b40 | 65 73 2e 20 54 68 65 0a 64 69 73 61 64 76 61 6e 74 61 67 65 73 20 61 72 65 20 74 68 61 74 20 69 | es..The.disadvantages.are.that.i |
| 250b60 | 74 20 6d 61 79 20 63 6f 6e 66 6c 69 63 74 20 77 69 74 68 20 6f 74 68 65 72 20 75 73 65 73 20 6f | t.may.conflict.with.other.uses.o |
| 250b80 | 66 20 40 63 6f 64 65 7b 53 49 47 49 4f 7d 0a 62 79 20 4c 69 73 70 20 63 6f 64 65 2c 20 61 6e 64 | f.@code{SIGIO}.by.Lisp.code,.and |
| 250ba0 | 20 69 74 20 6d 61 79 20 63 61 75 73 65 20 75 6e 74 6f 6c 64 20 68 61 76 6f 63 20 62 79 20 69 6e | .it.may.cause.untold.havoc.by.in |
| 250bc0 | 74 65 72 72 75 70 74 69 6e 67 20 4c 69 73 70 20 61 74 20 61 6e 0a 61 77 6b 77 61 72 64 20 6d 6f | terrupting.Lisp.at.an.awkward.mo |
| 250be0 | 6d 65 6e 74 2e 0a 0a 40 69 74 65 6d 20 3a 53 50 41 57 4e 0a 54 68 69 73 20 73 74 79 6c 65 20 75 | ment...@item.:SPAWN.This.style.u |
| 250c00 | 73 65 73 20 6d 75 6c 74 69 70 72 6f 63 65 73 73 69 6e 67 20 73 75 70 70 6f 72 74 20 69 6e 20 74 | ses.multiprocessing.support.in.t |
| 250c20 | 68 65 20 4c 69 73 70 20 73 79 73 74 65 6d 20 74 6f 20 65 78 65 63 75 74 65 0a 65 61 63 68 20 72 | he.Lisp.system.to.execute.each.r |
| 250c40 | 65 71 75 65 73 74 20 69 6e 20 61 20 73 65 70 61 72 61 74 65 20 74 68 72 65 61 64 2e 20 54 68 69 | equest.in.a.separate.thread..Thi |
| 250c60 | 73 20 73 74 79 6c 65 20 68 61 73 20 73 69 6d 69 6c 61 72 20 70 72 6f 70 65 72 74 69 65 73 0a 74 | s.style.has.similar.properties.t |
| 250c80 | 6f 20 40 63 6f 64 65 7b 3a 53 49 47 49 4f 7d 2c 20 62 75 74 20 69 74 20 64 6f 65 73 20 6e 6f 74 | o.@code{:SIGIO},.but.it.does.not |
| 250ca0 | 20 75 73 65 20 73 69 67 6e 61 6c 73 20 61 6e 64 20 61 6c 6c 20 72 65 71 75 65 73 74 73 20 69 73 | .use.signals.and.all.requests.is |
| 250cc0 | 73 75 65 64 0a 62 79 20 45 6d 61 63 73 20 63 61 6e 20 62 65 20 65 78 65 63 75 74 65 64 20 69 6e | sued.by.Emacs.can.be.executed.in |
| 250ce0 | 20 70 61 72 61 6c 6c 65 6c 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 54 68 65 20 64 65 66 61 | .parallel...@end.table..The.defa |
| 250d00 | 75 6c 74 20 72 65 71 75 65 73 74 20 68 61 6e 64 6c 69 6e 67 20 73 74 79 6c 65 20 69 73 20 63 68 | ult.request.handling.style.is.ch |
| 250d20 | 6f 73 65 6e 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 0a 63 61 70 61 62 69 6c 69 74 69 | osen.according.to.the.capabiliti |
| 250d40 | 65 73 20 6f 66 20 79 6f 75 72 20 4c 69 73 70 20 73 79 73 74 65 6d 2e 20 54 68 65 20 67 65 6e 65 | es.of.your.Lisp.system..The.gene |
| 250d60 | 72 61 6c 20 6f 72 64 65 72 20 6f 66 20 70 72 65 66 65 72 65 6e 63 65 20 69 73 0a 40 63 6f 64 65 | ral.order.of.preference.is.@code |
| 250d80 | 7b 3a 53 50 41 57 4e 7d 2c 20 74 68 65 6e 20 40 63 6f 64 65 7b 3a 53 49 47 49 4f 7d 2c 20 74 68 | {:SPAWN},.then.@code{:SIGIO},.th |
| 250da0 | 65 6e 20 40 63 6f 64 65 7b 3a 46 44 2d 48 41 4e 44 4c 45 52 7d 2c 20 77 69 74 68 0a 40 63 6f 64 | en.@code{:FD-HANDLER},.with.@cod |
| 250dc0 | 65 7b 4e 49 4c 7d 20 61 73 20 61 20 6c 61 73 74 20 72 65 73 6f 72 74 2e 20 59 6f 75 20 63 61 6e | e{NIL}.as.a.last.resort..You.can |
| 250de0 | 20 63 68 65 63 6b 20 74 68 65 20 64 65 66 61 75 6c 74 20 73 74 79 6c 65 20 62 79 0a 63 61 6c 6c | .check.the.default.style.by.call |
| 250e00 | 69 6e 67 20 40 63 6f 64 65 7b 53 57 41 4e 4b 2d 42 41 43 4b 45 4e 44 3a 3a 50 52 45 46 45 52 52 | ing.@code{SWANK-BACKEND::PREFERR |
| 250e20 | 45 44 2d 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 2d 53 54 59 4c 45 7d 2e 20 59 6f 75 20 63 61 6e | ED-COMMUNICATION-STYLE}..You.can |
| 250e40 | 0a 61 6c 73 6f 20 6f 76 65 72 72 69 64 65 20 74 68 65 20 64 65 66 61 75 6c 74 20 62 79 20 73 65 | .also.override.the.default.by.se |
| 250e60 | 74 74 69 6e 67 0a 40 63 6f 64 65 7b 53 57 41 4e 4b 3a 2a 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e | tting.@code{SWANK:*COMMUNICATION |
| 250e80 | 2d 53 54 59 4c 45 2a 7d 20 69 6e 20 79 6f 75 72 20 53 77 61 6e 6b 20 69 6e 69 74 20 66 69 6c 65 | -STYLE*}.in.your.Swank.init.file |
| 250ea0 | 2e 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e | ...@c.-----------------------.@n |
| 250ec0 | 6f 64 65 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 0a 40 73 75 62 73 65 63 74 | ode.Other.configurables.@subsect |
| 250ee0 | 69 6f 6e 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 0a 0a 54 68 65 73 65 20 4c | ion.Other.configurables..These.L |
| 250f00 | 69 73 70 20 76 61 72 69 61 62 6c 65 73 20 63 61 6e 20 62 65 20 63 6f 6e 66 69 67 75 72 65 64 20 | isp.variables.can.be.configured. |
| 250f20 | 76 69 61 20 79 6f 75 72 20 40 66 69 6c 65 7b 7e 2f 2e 73 77 61 6e 6b 2e 6c 69 73 70 7d 0a 66 69 | via.your.@file{~/.swank.lisp}.fi |
| 250f40 | 6c 65 3a 0a 0a 40 74 61 62 6c 65 20 40 63 6f 64 65 0a 0a 40 76 69 6e 64 65 78 20 53 57 41 4e 4b | le:..@table.@code..@vindex.SWANK |
| 250f60 | 3a 2a 43 4f 4e 46 49 47 55 52 45 2d 45 4d 41 43 53 2d 49 4e 44 45 4e 54 41 54 49 4f 4e 2a 0a 40 | :*CONFIGURE-EMACS-INDENTATION*.@ |
| 250f80 | 69 74 65 6d 20 53 57 41 4e 4b 3a 2a 43 4f 4e 46 49 47 55 52 45 2d 45 4d 41 43 53 2d 49 4e 44 45 | item.SWANK:*CONFIGURE-EMACS-INDE |
| 250fa0 | 4e 54 41 54 49 4f 4e 2a 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 63 6f 6e 74 72 6f 6c 73 20 | NTATION*.This.variable.controls. |
| 250fc0 | 77 68 65 74 68 65 72 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 74 79 6c 65 73 20 66 6f 72 0a 40 | whether.indentation.styles.for.@ |
| 250fe0 | 63 6f 64 65 7b 26 62 6f 64 79 7d 2d 61 72 67 75 6d 65 6e 74 73 20 69 6e 20 6d 61 63 72 6f 73 20 | code{&body}-arguments.in.macros. |
| 251000 | 61 72 65 20 64 69 73 63 6f 76 65 72 65 64 20 61 6e 64 20 73 65 6e 74 20 74 6f 20 45 6d 61 63 73 | are.discovered.and.sent.to.Emacs |
| 251020 | 2e 20 49 74 0a 69 73 20 65 6e 61 62 6c 65 64 20 62 79 20 64 65 66 61 75 6c 74 2e 0a 0a 40 76 69 | ..It.is.enabled.by.default...@vi |
| 251040 | 6e 64 65 78 20 53 57 41 4e 4b 3a 2a 47 4c 4f 42 41 4c 4c 59 2d 52 45 44 49 52 45 43 54 2d 49 4f | ndex.SWANK:*GLOBALLY-REDIRECT-IO |
| 251060 | 2a 0a 40 69 74 65 6d 20 53 57 41 4e 4b 3a 2a 47 4c 4f 42 41 4c 4c 59 2d 52 45 44 49 52 45 43 54 | *.@item.SWANK:*GLOBALLY-REDIRECT |
| 251080 | 2d 49 4f 2a 0a 57 68 65 6e 20 54 20 74 68 69 73 20 63 61 75 73 65 73 20 74 68 65 20 73 74 61 6e | -IO*.When.T.this.causes.the.stan |
| 2510a0 | 64 61 72 64 20 73 74 72 65 61 6d 73 20 28 40 63 6f 64 65 7b 2a 73 74 61 6e 64 61 72 64 2d 6f 75 | dard.streams.(@code{*standard-ou |
| 2510c0 | 74 70 75 74 2a 7d 2c 0a 65 74 63 29 20 74 6f 20 62 65 20 67 6c 6f 62 61 6c 6c 79 20 72 65 64 69 | tput*},.etc).to.be.globally.redi |
| 2510e0 | 72 65 63 74 65 64 20 74 6f 20 74 68 65 20 40 52 45 50 4c 7b 7d 20 69 6e 20 45 6d 61 63 73 2e 0a | rected.to.the.@REPL{}.in.Emacs.. |
| 251100 | 0a 57 68 65 6e 20 40 63 6f 64 65 7b 3a 53 54 41 52 54 45 44 2d 46 52 4f 4d 2d 45 4d 41 43 53 7d | .When.@code{:STARTED-FROM-EMACS} |
| 251120 | 20 28 64 65 66 61 75 6c 74 29 20 72 65 64 69 72 65 63 74 73 20 74 68 65 20 6f 75 74 70 75 74 20 | .(default).redirects.the.output. |
| 251140 | 77 68 65 6e 0a 74 68 65 20 6c 69 73 70 20 69 73 20 6c 61 75 6e 63 68 65 64 20 66 72 6f 6d 20 65 | when.the.lisp.is.launched.from.e |
| 251160 | 6d 61 63 73 20 28 69 2e 65 2e 20 40 6b 62 64 7b 4d 2d 78 20 73 6c 69 6d 65 7d 29 2c 20 62 75 74 | macs.(i.e..@kbd{M-x.slime}),.but |
| 251180 | 20 6e 6f 74 0a 66 72 6f 6d 20 40 6b 62 64 7b 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 | .not.from.@kbd{M-x.slime-connect |
| 2511a0 | 7d 2e 0a 0a 57 68 65 6e 20 40 63 6f 64 65 7b 4e 49 4c 7d 20 74 68 65 73 65 20 73 74 72 65 61 6d | }...When.@code{NIL}.these.stream |
| 2511c0 | 73 20 61 72 65 20 6f 6e 6c 79 20 74 65 6d 70 6f 72 61 72 69 6c 79 20 72 65 64 69 72 65 63 74 65 | s.are.only.temporarily.redirecte |
| 2511e0 | 64 0a 74 6f 20 45 6d 61 63 73 20 75 73 69 6e 67 20 64 79 6e 61 6d 69 63 20 62 69 6e 64 69 6e 67 | d.to.Emacs.using.dynamic.binding |
| 251200 | 73 20 77 68 69 6c 65 20 68 61 6e 64 6c 69 6e 67 20 72 65 71 75 65 73 74 73 2e 20 4e 6f 74 65 20 | s.while.handling.requests..Note. |
| 251220 | 74 68 61 74 0a 40 63 6f 64 65 7b 2a 73 74 61 6e 64 61 72 64 2d 69 6e 70 75 74 2a 7d 20 69 73 20 | that.@code{*standard-input*}.is. |
| 251240 | 63 75 72 72 65 6e 74 6c 79 20 6e 65 76 65 72 20 67 6c 6f 62 61 6c 6c 79 20 72 65 64 69 72 65 63 | currently.never.globally.redirec |
| 251260 | 74 65 64 20 69 6e 74 6f 0a 45 6d 61 63 73 2c 20 62 65 63 61 75 73 65 20 69 74 20 63 61 6e 20 69 | ted.into.Emacs,.because.it.can.i |
| 251280 | 6e 74 65 72 61 63 74 20 62 61 64 6c 79 20 77 69 74 68 20 74 68 65 20 4c 69 73 70 27 73 20 6e 61 | nteract.badly.with.the.Lisp's.na |
| 2512a0 | 74 69 76 65 20 40 52 45 50 4c 7b 7d 20 62 79 0a 68 61 76 69 6e 67 20 69 74 20 74 72 79 20 74 6f | tive.@REPL{}.by.having.it.try.to |
| 2512c0 | 20 72 65 61 64 20 66 72 6f 6d 20 74 68 65 20 45 6d 61 63 73 20 6f 6e 65 2e 0a 0a 40 76 69 6e 64 | .read.from.the.Emacs.one...@vind |
| 2512e0 | 65 78 20 53 57 41 4e 4b 3a 2a 47 4c 4f 42 41 4c 2d 44 45 42 55 47 47 45 52 2a 0a 40 69 74 65 6d | ex.SWANK:*GLOBAL-DEBUGGER*.@item |
| 251300 | 20 53 57 41 4e 4b 3a 2a 47 4c 4f 42 41 4c 2d 44 45 42 55 47 47 45 52 2a 0a 57 68 65 6e 20 74 72 | .SWANK:*GLOBAL-DEBUGGER*.When.tr |
| 251320 | 75 65 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 20 74 68 69 73 20 63 61 75 73 65 73 20 40 63 6f | ue.(the.default).this.causes.@co |
| 251340 | 64 65 7b 2a 44 45 42 55 47 47 45 52 2d 48 4f 4f 4b 2a 7d 20 74 6f 20 62 65 0a 67 6c 6f 62 61 6c | de{*DEBUGGER-HOOK*}.to.be.global |
| 251360 | 6c 79 20 73 65 74 20 74 6f 20 40 63 6f 64 65 7b 53 57 41 4e 4b 3a 53 57 41 4e 4b 2d 44 45 42 55 | ly.set.to.@code{SWANK:SWANK-DEBU |
| 251380 | 47 47 45 52 2d 48 4f 4f 4b 7d 20 61 6e 64 20 74 68 75 73 20 66 6f 72 20 40 53 4c 49 4d 45 7b 7d | GGER-HOOK}.and.thus.for.@SLIME{} |
| 2513a0 | 0a 74 6f 20 68 61 6e 64 6c 65 20 61 6c 6c 20 64 65 62 75 67 67 69 6e 67 20 69 6e 20 74 68 65 20 | .to.handle.all.debugging.in.the. |
| 2513c0 | 4c 69 73 70 20 69 6d 61 67 65 2e 20 54 68 69 73 20 69 73 20 66 6f 72 20 64 65 62 75 67 67 69 6e | Lisp.image..This.is.for.debuggin |
| 2513e0 | 67 0a 6d 75 6c 74 69 74 68 72 65 61 64 65 64 20 61 6e 64 20 63 61 6c 6c 62 61 63 6b 2d 64 72 69 | g.multithreaded.and.callback-dri |
| 251400 | 76 65 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 2e 0a 0a 40 61 6e 63 68 6f 72 7b 2a 53 4c 44 42 | ven.applications...@anchor{*SLDB |
| 251420 | 2d 51 55 49 54 2d 52 45 53 54 41 52 54 2a 7d 0a 40 76 69 6e 64 65 78 20 53 57 41 4e 4b 3a 2a 53 | -QUIT-RESTART*}.@vindex.SWANK:*S |
| 251440 | 4c 44 42 2d 51 55 49 54 2d 52 45 53 54 41 52 54 2a 0a 40 69 74 65 6d 20 53 57 41 4e 4b 3a 2a 53 | LDB-QUIT-RESTART*.@item.SWANK:*S |
| 251460 | 4c 44 42 2d 51 55 49 54 2d 52 45 53 54 41 52 54 2a 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 | LDB-QUIT-RESTART*.This.variable. |
| 251480 | 6e 61 6d 65 73 20 74 68 65 20 72 65 73 74 61 72 74 20 74 68 61 74 20 69 73 20 69 6e 76 6f 6b 65 | names.the.restart.that.is.invoke |
| 2514a0 | 64 20 77 68 65 6e 20 70 72 65 73 73 69 6e 67 20 40 6b 62 64 7b 71 7d 0a 28 40 70 78 72 65 66 7b | d.when.pressing.@kbd{q}.(@pxref{ |
| 2514c0 | 73 6c 64 62 2d 71 75 69 74 7d 29 20 69 6e 20 40 53 4c 44 42 7b 7d 2e 20 46 6f 72 20 40 53 4c 49 | sldb-quit}).in.@SLDB{}..For.@SLI |
| 2514e0 | 4d 45 7b 7d 20 65 76 61 6c 75 61 74 69 6f 6e 20 72 65 71 75 65 73 74 73 20 74 68 69 73 0a 69 73 | ME{}.evaluation.requests.this.is |
| 251500 | 20 40 65 6d 70 68 7b 75 6e 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c 79 7d 20 62 6f 75 6e 64 20 74 6f | .@emph{unconditionally}.bound.to |
| 251520 | 20 61 20 72 65 73 74 61 72 74 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 6f 20 61 20 73 61 66 | .a.restart.that.returns.to.a.saf |
| 251540 | 65 0a 70 6f 69 6e 74 2e 20 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 73 75 70 70 6f 73 | e.point..This.variable.is.suppos |
| 251560 | 65 64 20 74 6f 20 63 75 73 74 6f 6d 69 7a 65 20 77 68 61 74 20 40 6b 62 64 7b 71 7d 20 64 6f 65 | ed.to.customize.what.@kbd{q}.doe |
| 251580 | 73 20 69 66 20 61 6e 0a 61 70 70 6c 69 63 61 74 69 6f 6e 27 73 20 74 68 72 65 61 64 20 6c 61 6e | s.if.an.application's.thread.lan |
| 2515a0 | 64 73 20 69 6e 74 6f 20 74 68 65 20 64 65 62 75 67 67 65 72 20 28 73 65 65 0a 40 63 6f 64 65 7b | ds.into.the.debugger.(see.@code{ |
| 2515c0 | 53 57 41 4e 4b 3a 2a 47 4c 4f 42 41 4c 2d 44 45 42 55 47 47 45 52 2a 7d 29 2e 0a 40 65 78 61 6d | SWANK:*GLOBAL-DEBUGGER*})..@exam |
| 2515e0 | 70 6c 65 0a 28 73 65 74 66 20 73 77 61 6e 6b 3a 2a 73 6c 64 62 2d 71 75 69 74 2d 72 65 73 74 61 | ple.(setf.swank:*sldb-quit-resta |
| 251600 | 72 74 2a 20 27 73 62 2d 74 68 72 65 61 64 3a 74 65 72 6d 69 6e 61 74 65 2d 74 68 72 65 61 64 29 | rt*.'sb-thread:terminate-thread) |
| 251620 | 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 40 76 69 6e 64 65 78 20 53 57 41 4e 4b 3a 2a 42 41 | .@end.example..@vindex.SWANK:*BA |
| 251640 | 43 4b 54 52 41 43 45 2d 50 52 49 4e 54 45 52 2d 42 49 4e 44 49 4e 47 53 2a 0a 40 76 69 6e 64 65 | CKTRACE-PRINTER-BINDINGS*.@vinde |
| 251660 | 78 20 53 57 41 4e 4b 3a 2a 4d 41 43 52 4f 45 58 50 41 4e 44 2d 50 52 49 4e 54 45 52 2d 42 49 4e | x.SWANK:*MACROEXPAND-PRINTER-BIN |
| 251680 | 44 49 4e 47 53 2a 0a 40 76 69 6e 64 65 78 20 53 57 41 4e 4b 3a 2a 53 4c 44 42 2d 50 52 49 4e 54 | DINGS*.@vindex.SWANK:*SLDB-PRINT |
| 2516a0 | 45 52 2d 42 49 4e 44 49 4e 47 53 2a 0a 40 76 69 6e 64 65 78 20 53 57 41 4e 4b 3a 2a 53 57 41 4e | ER-BINDINGS*.@vindex.SWANK:*SWAN |
| 2516c0 | 4b 2d 50 50 52 49 4e 54 2d 42 49 4e 44 49 4e 47 53 2a 0a 40 69 74 65 6d 20 53 57 41 4e 4b 3a 2a | K-PPRINT-BINDINGS*.@item.SWANK:* |
| 2516e0 | 42 41 43 4b 54 52 41 43 45 2d 50 52 49 4e 54 45 52 2d 42 49 4e 44 49 4e 47 53 2a 0a 40 69 74 65 | BACKTRACE-PRINTER-BINDINGS*.@ite |
| 251700 | 6d 78 20 53 57 41 4e 4b 3a 2a 4d 41 43 52 4f 45 58 50 41 4e 44 2d 50 52 49 4e 54 45 52 2d 42 49 | mx.SWANK:*MACROEXPAND-PRINTER-BI |
| 251720 | 4e 44 49 4e 47 53 2a 0a 40 69 74 65 6d 78 20 53 57 41 4e 4b 3a 2a 53 4c 44 42 2d 50 52 49 4e 54 | NDINGS*.@itemx.SWANK:*SLDB-PRINT |
| 251740 | 45 52 2d 42 49 4e 44 49 4e 47 53 2a 0a 40 69 74 65 6d 78 20 53 57 41 4e 4b 3a 2a 53 57 41 4e 4b | ER-BINDINGS*.@itemx.SWANK:*SWANK |
| 251760 | 2d 50 50 52 49 4e 54 2d 42 49 4e 44 49 4e 47 53 2a 0a 54 68 65 73 65 20 76 61 72 69 61 62 6c 65 | -PPRINT-BINDINGS*.These.variable |
| 251780 | 73 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 63 75 73 74 6f 6d 69 7a 65 20 74 68 65 20 70 | s.can.be.used.to.customize.the.p |
| 2517a0 | 72 69 6e 74 65 72 20 69 6e 20 76 61 72 69 6f 75 73 0a 73 69 74 75 61 74 69 6f 6e 73 2e 20 20 54 | rinter.in.various.situations...T |
| 2517c0 | 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 61 | he.values.of.the.variables.are.a |
| 2517e0 | 73 73 6f 63 69 61 74 69 6f 6e 20 6c 69 73 74 73 20 6f 66 0a 70 72 69 6e 74 65 72 20 76 61 72 69 | ssociation.lists.of.printer.vari |
| 251800 | 61 62 6c 65 20 6e 61 6d 65 73 20 77 69 74 68 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e | able.names.with.the.correspondin |
| 251820 | 67 20 76 61 6c 75 65 2e 20 20 45 2e 67 2e 2c 20 74 6f 20 65 6e 61 62 6c 65 0a 74 68 65 20 70 72 | g.value...E.g.,.to.enable.the.pr |
| 251840 | 65 74 74 79 20 70 72 69 6e 74 65 72 20 66 6f 72 20 66 6f 72 6d 61 74 74 69 6e 67 20 62 61 63 6b | etty.printer.for.formatting.back |
| 251860 | 74 72 61 63 65 73 20 69 6e 20 40 53 4c 44 42 7b 7d 2c 20 79 6f 75 20 63 61 6e 20 75 73 65 3a 0a | traces.in.@SLDB{},.you.can.use:. |
| 251880 | 40 65 78 61 6d 70 6c 65 0a 28 70 75 73 68 20 27 28 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a 20 | @example.(push.'(*print-pretty*. |
| 2518a0 | 2e 20 74 29 20 73 77 61 6e 6b 3a 2a 73 6c 64 62 2d 70 72 69 6e 74 65 72 2d 62 69 6e 64 69 6e 67 | ..t).swank:*sldb-printer-binding |
| 2518c0 | 73 2a 29 2e 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 40 76 69 6e 64 65 78 20 53 57 41 4e 4b | s*)..@end.example..@vindex.SWANK |
| 2518e0 | 3a 2a 4c 4f 47 2d 45 56 45 4e 54 53 2a 0a 40 69 74 65 6d 20 53 57 41 4e 4b 3a 2a 4c 4f 47 2d 45 | :*LOG-EVENTS*.@item.SWANK:*LOG-E |
| 251900 | 56 45 4e 54 53 2a 0a 53 65 74 74 69 6e 67 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 74 6f 20 | VENTS*.Setting.this.variable.to. |
| 251920 | 40 63 6f 64 65 7b 74 7d 20 63 61 75 73 65 73 20 61 6c 6c 20 70 72 6f 74 6f 63 6f 6c 20 6d 65 73 | @code{t}.causes.all.protocol.mes |
| 251940 | 73 61 67 65 73 0a 65 78 63 68 61 6e 67 65 64 20 77 69 74 68 20 45 6d 61 63 73 20 74 6f 20 62 65 | sages.exchanged.with.Emacs.to.be |
| 251960 | 20 70 72 69 6e 74 65 64 20 74 6f 20 40 63 6f 64 65 7b 2a 54 45 52 4d 49 4e 41 4c 2d 49 4f 2a 7d | .printed.to.@code{*TERMINAL-IO*} |
| 251980 | 2e 20 54 68 69 73 20 69 73 0a 75 73 65 66 75 6c 20 66 6f 72 20 6c 6f 77 2d 6c 65 76 65 6c 20 64 | ..This.is.useful.for.low-level.d |
| 2519a0 | 65 62 75 67 67 69 6e 67 20 61 6e 64 20 66 6f 72 20 6f 62 73 65 72 76 69 6e 67 20 68 6f 77 20 40 | ebugging.and.for.observing.how.@ |
| 2519c0 | 53 4c 49 4d 45 7b 7d 20 77 6f 72 6b 73 0a 60 60 6f 6e 20 74 68 65 20 77 69 72 65 2e 27 27 20 54 | SLIME{}.works.``on.the.wire.''.T |
| 2519e0 | 68 65 20 6f 75 74 70 75 74 20 6f 66 20 40 63 6f 64 65 7b 2a 54 45 52 4d 49 4e 41 4c 2d 49 4f 2a | he.output.of.@code{*TERMINAL-IO* |
| 251a00 | 7d 20 63 61 6e 20 62 65 20 66 6f 75 6e 64 20 69 6e 0a 79 6f 75 72 20 4c 69 73 70 20 73 79 73 74 | }.can.be.found.in.your.Lisp.syst |
| 251a20 | 65 6d 27 73 20 6f 77 6e 20 6c 69 73 74 65 6e 65 72 2c 20 75 73 75 61 6c 6c 79 20 69 6e 20 74 68 | em's.own.listener,.usually.in.th |
| 251a40 | 65 20 62 75 66 66 65 72 0a 40 63 6f 64 65 7b 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 7d 2e | e.buffer.@code{*inferior-lisp*}. |
| 251a60 | 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ..@end.table..@c.--------------- |
| 251a80 | 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 54 69 70 73 20 61 6e 64 20 54 72 69 63 6b 73 0a 40 | --------.@node.Tips.and.Tricks.@ |
| 251aa0 | 63 68 61 70 74 65 72 20 54 69 70 73 20 61 6e 64 20 54 72 69 63 6b 73 0a 0a 40 6d 65 6e 75 0a 2a | chapter.Tips.and.Tricks..@menu.* |
| 251ac0 | 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 61 20 72 65 6d 6f 74 65 20 6c 69 73 70 3a 3a 0a 2a | .Connecting.to.a.remote.lisp::.* |
| 251ae0 | 20 47 6c 6f 62 61 6c 20 49 4f 20 52 65 64 69 72 65 63 74 69 6f 6e 3a 3a 0a 2a 20 41 75 74 6f 2d | .Global.IO.Redirection::.*.Auto- |
| 251b00 | 53 4c 49 4d 45 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | SLIME::.@end.menu..@c.---------- |
| 251b20 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 | -------------.@node.Connecting.t |
| 251b40 | 6f 20 61 20 72 65 6d 6f 74 65 20 6c 69 73 70 0a 40 73 65 63 74 69 6f 6e 20 43 6f 6e 6e 65 63 74 | o.a.remote.lisp.@section.Connect |
| 251b60 | 69 6e 67 20 74 6f 20 61 20 72 65 6d 6f 74 65 20 6c 69 73 70 0a 0a 4f 6e 65 20 6f 66 20 74 68 65 | ing.to.a.remote.lisp..One.of.the |
| 251b80 | 20 61 64 76 61 6e 74 61 67 65 73 20 6f 66 20 74 68 65 20 77 61 79 20 40 53 4c 49 4d 45 7b 7d 20 | .advantages.of.the.way.@SLIME{}. |
| 251ba0 | 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 73 20 74 68 61 74 20 77 65 20 63 61 6e 0a 65 61 | is.implemented.is.that.we.can.ea |
| 251bc0 | 73 69 6c 79 20 72 75 6e 20 74 68 65 20 45 6d 61 63 73 20 73 69 64 65 20 28 73 6c 69 6d 65 2e 65 | sily.run.the.Emacs.side.(slime.e |
| 251be0 | 6c 29 20 6f 6e 20 6f 6e 65 20 6d 61 63 68 69 6e 65 20 61 6e 64 20 74 68 65 20 6c 69 73 70 20 62 | l).on.one.machine.and.the.lisp.b |
| 251c00 | 61 63 6b 65 6e 64 0a 28 73 77 61 6e 6b 29 20 6f 6e 20 61 6e 6f 74 68 65 72 2e 20 54 68 65 20 62 | ackend.(swank).on.another..The.b |
| 251c20 | 61 73 69 63 20 69 64 65 61 20 69 73 20 74 6f 20 73 74 61 72 74 20 75 70 20 6c 69 73 70 20 6f 6e | asic.idea.is.to.start.up.lisp.on |
| 251c40 | 20 74 68 65 20 72 65 6d 6f 74 65 0a 6d 61 63 68 69 6e 65 2c 20 6c 6f 61 64 20 73 77 61 6e 6b 20 | .the.remote.machine,.load.swank. |
| 251c60 | 61 6e 64 20 77 61 69 74 20 66 6f 72 20 69 6e 63 6f 6d 69 6e 67 20 40 53 4c 49 4d 45 7b 7d 20 63 | and.wait.for.incoming.@SLIME{}.c |
| 251c80 | 6f 6e 6e 65 63 74 69 6f 6e 73 2e 20 4f 6e 20 74 68 65 0a 6c 6f 63 61 6c 20 6d 61 63 68 69 6e 65 | onnections..On.the.local.machine |
| 251ca0 | 20 77 65 20 73 74 61 72 74 20 75 70 20 65 6d 61 63 73 20 61 6e 64 20 74 65 6c 6c 20 40 53 4c 49 | .we.start.up.emacs.and.tell.@SLI |
| 251cc0 | 4d 45 7b 7d 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 20 74 68 65 0a 72 65 6d 6f 74 65 20 6d 61 | ME{}.to.connect.to.the.remote.ma |
| 251ce0 | 63 68 69 6e 65 2e 20 54 68 65 20 64 65 74 61 69 6c 73 20 61 72 65 20 61 20 62 69 74 20 6d 65 73 | chine..The.details.are.a.bit.mes |
| 251d00 | 73 69 65 72 20 62 75 74 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 69 64 65 61 20 69 73 0a | sier.but.the.underlying.idea.is. |
| 251d20 | 74 68 61 74 20 73 69 6d 70 6c 65 2e 0a 0a 40 6d 65 6e 75 0a 2a 20 53 65 74 74 69 6e 67 20 75 70 | that.simple...@menu.*.Setting.up |
| 251d40 | 20 74 68 65 20 6c 69 73 70 20 69 6d 61 67 65 3a 3a 0a 2a 20 53 65 74 74 69 6e 67 20 75 70 20 45 | .the.lisp.image::.*.Setting.up.E |
| 251d60 | 6d 61 63 73 3a 3a 0a 2a 20 53 65 74 74 69 6e 67 20 75 70 20 70 61 74 68 6e 61 6d 65 20 74 72 61 | macs::.*.Setting.up.pathname.tra |
| 251d80 | 6e 73 6c 61 74 69 6f 6e 73 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d | nslations::.@end.menu..@c.------ |
| 251da0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 53 65 74 74 69 6e 67 20 | -----------------.@node.Setting. |
| 251dc0 | 75 70 20 74 68 65 20 6c 69 73 70 20 69 6d 61 67 65 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 53 65 | up.the.lisp.image.@subsection.Se |
| 251de0 | 74 74 69 6e 67 20 75 70 20 74 68 65 20 6c 69 73 70 20 69 6d 61 67 65 0a 0a 57 68 65 6e 20 79 6f | tting.up.the.lisp.image..When.yo |
| 251e00 | 75 20 77 61 6e 74 20 74 6f 20 6c 6f 61 64 20 73 77 61 6e 6b 20 77 69 74 68 6f 75 74 20 67 6f 69 | u.want.to.load.swank.without.goi |
| 251e20 | 6e 67 20 74 68 72 6f 75 67 68 20 74 68 65 20 6e 6f 72 6d 61 6c 2c 20 45 6d 61 63 73 0a 62 61 73 | ng.through.the.normal,.Emacs.bas |
| 251e40 | 65 64 2c 20 70 72 6f 63 65 73 73 20 6a 75 73 74 20 6c 6f 61 64 20 74 68 65 20 40 66 69 6c 65 7b | ed,.process.just.load.the.@file{ |
| 251e60 | 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 2e 6c 69 73 70 7d 20 66 69 6c 65 2e 20 4a 75 73 74 0a 65 78 | swank-loader.lisp}.file..Just.ex |
| 251e80 | 65 63 75 74 65 0a 0a 40 65 78 61 6d 70 6c 65 0a 28 6c 6f 61 64 20 22 2f 70 61 74 68 2f 74 6f 2f | ecute..@example.(load."/path/to/ |
| 251ea0 | 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 2e 6c 69 73 70 22 29 0a 28 73 77 61 6e 6b 2d 6c 6f 61 64 65 | swank-loader.lisp").(swank-loade |
| 251ec0 | 72 3a 69 6e 69 74 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 69 6e 73 69 64 65 20 61 20 72 | r:init).@end.example..inside.a.r |
| 251ee0 | 75 6e 6e 69 6e 67 20 6c 69 73 70 20 69 6d 61 67 65 40 66 6f 6f 74 6e 6f 74 65 7b 40 53 4c 49 4d | unning.lisp.image@footnote{@SLIM |
| 251f00 | 45 7b 7d 20 61 6c 73 6f 20 70 72 6f 76 69 64 65 73 20 61 6e 0a 40 61 63 72 6f 6e 79 6d 7b 41 53 | E{}.also.provides.an.@acronym{AS |
| 251f20 | 44 46 7d 20 73 79 73 74 65 6d 20 64 65 66 69 6e 69 74 69 6f 6e 20 77 68 69 63 68 20 64 6f 65 73 | DF}.system.definition.which.does |
| 251f40 | 20 74 68 65 20 73 61 6d 65 20 74 68 69 6e 67 7d 2e 20 4e 6f 77 20 61 6c 6c 20 77 65 0a 6e 65 65 | .the.same.thing}..Now.all.we.nee |
| 251f60 | 64 20 74 6f 20 64 6f 20 69 73 20 73 74 61 72 74 75 70 20 6f 75 72 20 73 77 61 6e 6b 20 73 65 72 | d.to.do.is.startup.our.swank.ser |
| 251f80 | 76 65 72 2e 20 54 68 65 20 66 69 72 73 74 20 65 78 61 6d 70 6c 65 20 61 73 73 75 6d 65 73 20 77 | ver..The.first.example.assumes.w |
| 251fa0 | 65 27 72 65 0a 75 73 69 6e 67 20 74 68 65 20 64 65 66 61 75 6c 74 20 73 65 74 74 69 6e 67 73 2e | e're.using.the.default.settings. |
| 251fc0 | 0a 0a 40 65 78 61 6d 70 6c 65 0a 28 73 77 61 6e 6b 3a 63 72 65 61 74 65 2d 73 65 72 76 65 72 29 | ..@example.(swank:create-server) |
| 251fe0 | 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 53 69 6e 63 65 20 77 65 27 72 65 20 67 6f 69 6e 67 | .@end.example..Since.we're.going |
| 252000 | 20 74 6f 20 62 65 20 74 75 6e 6e 65 6c 69 6e 67 20 6f 75 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 | .to.be.tunneling.our.connection. |
| 252020 | 76 69 61 20 73 73 68 40 66 6f 6f 74 6e 6f 74 65 7b 74 68 65 72 65 0a 69 73 20 61 20 77 61 79 20 | via.ssh@footnote{there.is.a.way. |
| 252040 | 74 6f 20 63 6f 6e 6e 65 63 74 20 77 69 74 68 6f 75 74 20 61 6e 20 73 73 68 20 74 75 6e 6e 65 6c | to.connect.without.an.ssh.tunnel |
| 252060 | 2c 20 62 75 74 20 69 74 20 68 61 73 20 74 68 65 20 73 69 64 65 2d 65 66 66 65 63 74 20 6f 66 0a | ,.but.it.has.the.side-effect.of. |
| 252080 | 67 69 76 69 6e 67 20 74 68 65 20 65 6e 74 69 72 65 20 77 6f 72 6c 64 20 61 63 63 65 73 73 20 74 | giving.the.entire.world.access.t |
| 2520a0 | 6f 20 79 6f 75 72 20 6c 69 73 70 20 69 6d 61 67 65 2c 20 73 6f 20 77 65 27 72 65 20 6e 6f 74 20 | o.your.lisp.image,.so.we're.not. |
| 2520c0 | 67 6f 69 6e 67 20 74 6f 0a 74 61 6c 6b 20 61 62 6f 75 74 20 69 74 7d 20 61 6e 64 20 77 65 27 6c | going.to.talk.about.it}.and.we'l |
| 2520e0 | 6c 20 6f 6e 6c 79 20 68 61 76 65 20 6f 6e 65 20 70 6f 72 74 20 6f 70 65 6e 20 77 65 20 77 61 6e | l.only.have.one.port.open.we.wan |
| 252100 | 74 20 74 6f 20 74 65 6c 6c 20 73 77 61 6e 6b 0a 74 6f 20 6e 6f 74 20 75 73 65 20 61 6e 20 65 78 | t.to.tell.swank.to.not.use.an.ex |
| 252120 | 74 72 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 6f 75 74 70 75 74 20 28 74 68 69 73 20 | tra.connection.for.output.(this. |
| 252140 | 69 73 20 61 63 74 75 61 6c 6c 79 20 74 68 65 20 64 65 66 61 75 6c 74 0a 69 6e 20 63 75 72 72 65 | is.actually.the.default.in.curre |
| 252160 | 6e 74 20 40 53 4c 49 4d 45 7b 7d 29 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 28 73 65 74 66 20 73 77 | nt.@SLIME{}):..@example.(setf.sw |
| 252180 | 61 6e 6b 3a 2a 75 73 65 2d 64 65 64 69 63 61 74 65 64 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d | ank:*use-dedicated-output-stream |
| 2521a0 | 2a 20 6e 69 6c 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d | *.nil).@end.example..@c.-------- |
| 2521c0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 49 66 20 79 6f 75 20 6e 65 65 64 20 74 6f 20 64 | ---------------.If.you.need.to.d |
| 2521e0 | 6f 20 61 6e 79 74 68 69 6e 67 20 70 61 72 74 69 63 75 6c 61 72 0a 28 6c 69 6b 65 20 62 65 20 61 | o.anything.particular.(like.be.a |
| 252200 | 62 6c 65 20 74 6f 20 72 65 63 6f 6e 6e 65 63 74 20 74 6f 20 73 77 61 6e 6b 20 61 66 74 65 72 20 | ble.to.reconnect.to.swank.after. |
| 252220 | 79 6f 75 27 72 65 20 64 6f 6e 65 29 2c 20 6c 6f 6f 6b 20 69 6e 74 6f 0a 40 63 6f 64 65 7b 73 77 | you're.done),.look.into.@code{sw |
| 252240 | 61 6e 6b 3a 63 72 65 61 74 65 2d 73 65 72 76 65 72 7d 27 73 20 6f 74 68 65 72 20 61 72 67 75 6d | ank:create-server}'s.other.argum |
| 252260 | 65 6e 74 73 2e 20 53 6f 6d 65 20 6f 66 20 74 68 65 73 65 20 61 72 67 75 6d 65 6e 74 73 0a 61 72 | ents..Some.of.these.arguments.ar |
| 252280 | 65 0a 40 74 61 62 6c 65 20 40 63 6f 64 65 0a 0a 40 69 74 65 6d 20 3a 50 4f 52 54 0a 50 6f 72 74 | e.@table.@code..@item.:PORT.Port |
| 2522a0 | 20 6e 75 6d 62 65 72 20 66 6f 72 20 74 68 65 20 73 65 72 76 65 72 20 74 6f 20 6c 69 73 74 65 6e | .number.for.the.server.to.listen |
| 2522c0 | 20 6f 6e 20 28 64 65 66 61 75 6c 74 3a 20 34 30 30 35 29 2e 0a 40 69 74 65 6d 20 3a 53 54 59 4c | .on.(default:.4005)..@item.:STYL |
| 2522e0 | 45 0a 53 65 65 20 40 78 72 65 66 7b 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 7d | E.See.@xref{Communication.style} |
| 252300 | 2e 0a 40 69 74 65 6d 20 3a 44 4f 4e 54 2d 43 4c 4f 53 45 0a 42 6f 6f 6c 65 61 6e 20 69 6e 64 69 | ..@item.:DONT-CLOSE.Boolean.indi |
| 252320 | 63 61 74 69 6e 67 20 69 66 20 74 68 65 20 73 65 72 76 65 72 20 77 69 6c 6c 20 63 6f 6e 74 69 6e | cating.if.the.server.will.contin |
| 252340 | 75 65 20 74 6f 20 61 63 63 65 70 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 0a 61 66 74 65 72 20 74 | ue.to.accept.connections.after.t |
| 252360 | 68 65 20 66 69 72 73 74 20 6f 6e 65 20 28 64 65 66 61 75 6c 74 3a 20 40 63 6f 64 65 7b 4e 49 4c | he.first.one.(default:.@code{NIL |
| 252380 | 7d 29 2e 20 46 6f 72 20 60 60 6c 6f 6e 67 2d 72 75 6e 6e 69 6e 67 27 27 20 6c 69 73 70 20 70 72 | })..For.``long-running''.lisp.pr |
| 2523a0 | 6f 63 65 73 73 65 73 0a 74 6f 20 77 68 69 63 68 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 62 65 20 | ocesses.to.which.you.want.to.be. |
| 2523c0 | 61 62 6c 65 20 74 6f 20 63 6f 6e 6e 65 63 74 20 66 72 6f 6d 20 74 69 6d 65 20 74 6f 20 74 69 6d | able.to.connect.from.time.to.tim |
| 2523e0 | 65 2c 0a 73 70 65 63 69 66 79 20 40 63 6f 64 65 7b 3a 64 6f 6e 74 2d 63 6c 6f 73 65 20 74 7d 0a | e,.specify.@code{:dont-close.t}. |
| 252400 | 40 65 6e 64 20 74 61 62 6c 65 0a 0a 53 6f 20 74 68 65 20 6d 6f 72 65 20 63 6f 6d 70 6c 65 74 65 | @end.table..So.the.more.complete |
| 252420 | 20 65 78 61 6d 70 6c 65 20 77 69 6c 6c 20 62 65 0a 40 65 78 61 6d 70 6c 65 0a 28 73 77 61 6e 6b | .example.will.be.@example.(swank |
| 252440 | 3a 63 72 65 61 74 65 2d 73 65 72 76 65 72 20 3a 70 6f 72 74 20 34 30 30 35 20 20 3a 64 6f 6e 74 | :create-server.:port.4005..:dont |
| 252460 | 2d 63 6c 6f 73 65 20 74 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 4f 6e 20 74 68 65 20 65 6d | -close.t).@end.example.On.the.em |
| 252480 | 61 63 73 20 73 69 64 65 20 79 6f 75 20 77 69 6c 6c 20 75 73 65 20 73 6f 6d 65 74 68 69 6e 67 20 | acs.side.you.will.use.something. |
| 2524a0 | 6c 69 6b 65 0a 40 65 78 61 6d 70 6c 65 0a 28 73 65 74 71 20 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f | like.@example.(setq.slime-net-co |
| 2524c0 | 64 69 6e 67 2d 73 79 73 74 65 6d 20 27 75 74 66 2d 38 2d 75 6e 69 78 29 0a 28 73 6c 69 6d 65 2d | ding-system.'utf-8-unix).(slime- |
| 2524e0 | 63 6f 6e 6e 65 63 74 20 22 6c 6f 63 61 6c 68 6f 73 74 22 20 34 30 30 35 29 29 0a 40 65 6e 64 20 | connect."localhost".4005)).@end. |
| 252500 | 65 78 61 6d 70 6c 65 0a 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 20 74 68 69 73 20 6c 69 73 70 20 | example.to.connect.to.this.lisp. |
| 252520 | 69 6d 61 67 65 20 66 72 6f 6d 20 74 68 65 20 73 61 6d 65 20 6d 61 63 68 69 6e 65 2e 0a 0a 0a 40 | image.from.the.same.machine....@ |
| 252540 | 6e 6f 64 65 20 53 65 74 74 69 6e 67 20 75 70 20 45 6d 61 63 73 0a 40 73 75 62 73 65 63 74 69 6f | node.Setting.up.Emacs.@subsectio |
| 252560 | 6e 20 53 65 74 74 69 6e 67 20 75 70 20 45 6d 61 63 73 0a 0a 4e 6f 77 20 77 65 20 6e 65 65 64 20 | n.Setting.up.Emacs..Now.we.need. |
| 252580 | 74 6f 20 63 72 65 61 74 65 20 74 68 65 20 74 75 6e 6e 65 6c 20 62 65 74 77 65 65 6e 20 74 68 65 | to.create.the.tunnel.between.the |
| 2525a0 | 20 6c 6f 63 61 6c 20 6d 61 63 68 69 6e 65 20 61 6e 64 20 74 68 65 0a 72 65 6d 6f 74 65 20 6d 61 | .local.machine.and.the.remote.ma |
| 2525c0 | 63 68 69 6e 65 2e 0a 0a 40 65 78 61 6d 70 6c 65 0a 73 73 68 20 2d 4c 34 30 30 35 3a 6c 6f 63 61 | chine...@example.ssh.-L4005:loca |
| 2525e0 | 6c 68 6f 73 74 3a 34 30 30 35 20 75 73 65 72 6e 61 6d 65 40 40 72 65 6d 6f 74 65 2e 65 78 61 6d | lhost:4005.username@@remote.exam |
| 252600 | 70 6c 65 2e 63 6f 6d 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 54 68 61 74 20 73 73 68 20 69 | ple.com.@end.example..That.ssh.i |
| 252620 | 6e 76 6f 63 61 74 69 6f 6e 20 63 72 65 61 74 65 73 20 61 6e 20 73 73 68 20 74 75 6e 6e 65 6c 20 | nvocation.creates.an.ssh.tunnel. |
| 252640 | 62 65 74 77 65 65 6e 20 74 68 65 20 70 6f 72 74 20 34 30 30 35 20 6f 6e 20 6f 75 72 0a 6c 6f 63 | between.the.port.4005.on.our.loc |
| 252660 | 61 6c 20 6d 61 63 68 69 6e 65 20 61 6e 64 20 74 68 65 20 70 6f 72 74 20 34 30 30 35 20 6f 6e 20 | al.machine.and.the.port.4005.on. |
| 252680 | 74 68 65 20 72 65 6d 6f 74 65 20 6d 61 63 68 69 6e 65 40 66 6f 6f 74 6e 6f 74 65 7b 42 79 0a 64 | the.remote.machine@footnote{By.d |
| 2526a0 | 65 66 61 75 6c 74 20 73 77 61 6e 6b 20 6c 69 73 74 65 6e 73 20 66 6f 72 20 69 6e 63 6f 6d 69 6e | efault.swank.listens.for.incomin |
| 2526c0 | 67 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 6f 6e 20 70 6f 72 74 20 34 30 30 35 2c 20 68 61 64 20 | g.connections.on.port.4005,.had. |
| 2526e0 | 77 65 0a 70 61 73 73 65 64 20 61 20 40 63 6f 64 65 7b 3a 70 6f 72 74 7d 20 70 61 72 61 6d 65 74 | we.passed.a.@code{:port}.paramet |
| 252700 | 65 72 20 74 6f 20 40 63 6f 64 65 7b 73 77 61 6e 6b 3a 63 72 65 61 74 65 2d 73 65 72 76 65 72 7d | er.to.@code{swank:create-server} |
| 252720 | 20 77 65 27 64 20 62 65 0a 75 73 69 6e 67 20 74 68 61 74 20 70 6f 72 74 20 6e 75 6d 62 65 72 20 | .we'd.be.using.that.port.number. |
| 252740 | 69 6e 73 74 65 61 64 7d 2e 0a 0a 46 69 6e 61 6c 6c 79 20 77 65 20 63 61 6e 20 73 74 61 72 74 20 | instead}...Finally.we.can.start. |
| 252760 | 40 53 4c 49 4d 45 7b 7d 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f | @SLIME{}:..@example.M-x.slime-co |
| 252780 | 6e 6e 65 63 74 20 52 45 54 20 52 45 54 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 54 68 65 20 | nnect.RET.RET.@end.example..The. |
| 2527a0 | 40 6b 62 64 7b 52 45 54 20 52 45 54 7d 20 73 65 71 75 65 6e 63 65 20 6a 75 73 74 20 6d 65 61 6e | @kbd{RET.RET}.sequence.just.mean |
| 2527c0 | 73 20 74 68 61 74 20 77 65 20 77 61 6e 74 20 74 6f 20 75 73 65 20 74 68 65 20 64 65 66 61 75 6c | s.that.we.want.to.use.the.defaul |
| 2527e0 | 74 0a 68 6f 73 74 20 28 40 63 6f 64 65 7b 6c 6f 63 61 6c 68 6f 73 74 7d 29 20 61 6e 64 20 74 68 | t.host.(@code{localhost}).and.th |
| 252800 | 65 20 64 65 66 61 75 6c 74 20 70 6f 72 74 20 28 40 63 6f 64 65 7b 34 30 30 35 7d 29 2e 20 45 76 | e.default.port.(@code{4005})..Ev |
| 252820 | 65 6e 0a 74 68 6f 75 67 68 20 77 65 27 72 65 20 63 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 61 20 | en.though.we're.connecting.to.a. |
| 252840 | 72 65 6d 6f 74 65 20 6d 61 63 68 69 6e 65 20 74 68 65 20 73 73 68 20 74 75 6e 6e 65 6c 20 66 6f | remote.machine.the.ssh.tunnel.fo |
| 252860 | 6f 6c 73 20 45 6d 61 63 73 0a 69 6e 74 6f 20 74 68 69 6e 6b 69 6e 67 20 69 74 27 73 20 61 63 74 | ols.Emacs.into.thinking.it's.act |
| 252880 | 75 61 6c 6c 79 20 40 63 6f 64 65 7b 6c 6f 63 61 6c 68 6f 73 74 7d 2e 0a 0a 40 63 20 2d 2d 2d 2d | ually.@code{localhost}...@c.---- |
| 2528a0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 53 65 74 74 69 6e | -------------------.@node.Settin |
| 2528c0 | 67 20 75 70 20 70 61 74 68 6e 61 6d 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 0a 40 73 75 62 73 | g.up.pathname.translations.@subs |
| 2528e0 | 65 63 74 69 6f 6e 20 53 65 74 74 69 6e 67 20 75 70 20 70 61 74 68 6e 61 6d 65 20 74 72 61 6e 73 | ection.Setting.up.pathname.trans |
| 252900 | 6c 61 74 69 6f 6e 73 0a 0a 4f 6e 65 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 70 72 6f 62 6c 65 6d | lations..One.of.the.main.problem |
| 252920 | 73 20 77 69 74 68 20 72 75 6e 6e 69 6e 67 20 73 77 61 6e 6b 20 72 65 6d 6f 74 65 6c 79 20 69 73 | s.with.running.swank.remotely.is |
| 252940 | 20 74 68 61 74 20 45 6d 61 63 73 0a 61 73 73 75 6d 65 73 20 74 68 65 20 66 69 6c 65 73 20 63 61 | .that.Emacs.assumes.the.files.ca |
| 252960 | 6e 20 62 65 20 66 6f 75 6e 64 20 75 73 69 6e 67 20 6e 6f 72 6d 61 6c 20 66 69 6c 65 6e 61 6d 65 | n.be.found.using.normal.filename |
| 252980 | 73 2e 20 69 66 20 77 65 20 77 61 6e 74 0a 74 68 69 6e 67 73 20 6c 69 6b 65 20 40 63 6f 64 65 7b | s..if.we.want.things.like.@code{ |
| 2529a0 | 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 2d 66 69 6c 65 7d 20 28 40 6b | slime-compile-and-load-file}.(@k |
| 2529c0 | 62 64 7b 43 2d 63 20 43 2d 6b 7d 29 20 61 6e 64 0a 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 65 64 69 | bd{C-c.C-k}).and.@code{slime-edi |
| 2529e0 | 74 2d 64 65 66 69 6e 69 74 69 6f 6e 7d 20 28 40 6b 62 64 7b 4d 2d 2e 7d 29 20 74 6f 20 77 6f 72 | t-definition}.(@kbd{M-.}).to.wor |
| 252a00 | 6b 20 63 6f 72 72 65 63 74 6c 79 20 77 65 20 6e 65 65 64 20 74 6f 0a 66 69 6e 64 20 61 20 77 61 | k.correctly.we.need.to.find.a.wa |
| 252a20 | 79 20 74 6f 20 6c 65 74 20 6f 75 72 20 6c 6f 63 61 6c 20 45 6d 61 63 73 20 72 65 66 65 72 20 74 | y.to.let.our.local.Emacs.refer.t |
| 252a40 | 6f 20 72 65 6d 6f 74 65 20 66 69 6c 65 73 2e 0a 0a 54 68 65 72 65 20 61 72 65 2c 20 6d 61 69 6e | o.remote.files...There.are,.main |
| 252a60 | 6c 79 2c 20 74 77 6f 20 77 61 79 73 20 74 6f 20 64 6f 20 74 68 69 73 2e 20 54 68 65 20 66 69 72 | ly,.two.ways.to.do.this..The.fir |
| 252a80 | 73 74 20 69 73 20 74 6f 20 6d 6f 75 6e 74 2c 20 75 73 69 6e 67 0a 4e 46 53 20 6f 72 20 73 69 6d | st.is.to.mount,.using.NFS.or.sim |
| 252aa0 | 69 6c 61 72 2c 20 74 68 65 20 72 65 6d 6f 74 65 20 6d 61 63 68 69 6e 65 27 73 20 68 61 72 64 20 | ilar,.the.remote.machine's.hard. |
| 252ac0 | 64 69 73 6b 20 6f 6e 20 74 68 65 20 6c 6f 63 61 6c 20 6d 61 63 68 69 6e 65 27 73 0a 66 69 6c 65 | disk.on.the.local.machine's.file |
| 252ae0 | 20 73 79 73 74 65 6d 20 69 6e 20 73 75 63 68 20 61 20 66 61 73 68 69 6f 6e 20 74 68 61 74 20 61 | .system.in.such.a.fashion.that.a |
| 252b00 | 20 66 69 6c 65 6e 61 6d 65 20 6c 69 6b 65 0a 40 66 69 6c 65 7b 2f 6f 70 74 2f 70 72 6f 6a 65 63 | .filename.like.@file{/opt/projec |
| 252b20 | 74 2f 73 6f 75 72 63 65 2e 6c 69 73 70 7d 20 72 65 66 65 72 73 20 74 6f 20 74 68 65 20 73 61 6d | t/source.lisp}.refers.to.the.sam |
| 252b40 | 65 20 66 69 6c 65 20 6f 6e 20 62 6f 74 68 0a 6d 61 63 68 69 6e 65 73 2e 20 55 6e 66 6f 72 74 75 | e.file.on.both.machines..Unfortu |
| 252b60 | 6e 61 74 65 6c 79 20 4e 46 53 20 69 73 20 75 73 75 61 6c 6c 79 20 73 6c 6f 77 2c 20 6f 66 74 65 | nately.NFS.is.usually.slow,.ofte |
| 252b80 | 6e 20 62 75 67 67 79 2c 20 61 6e 64 20 6e 6f 74 0a 61 6c 77 61 79 73 20 66 65 61 73 69 62 6c 65 | n.buggy,.and.not.always.feasible |
| 252ba0 | 2c 20 66 6f 72 74 75 6e 61 74 65 6c 79 20 77 65 20 68 61 76 65 20 61 6e 20 73 73 68 20 63 6f 6e | ,.fortunately.we.have.an.ssh.con |
| 252bc0 | 6e 65 63 74 69 6f 6e 20 61 6e 64 20 45 6d 61 63 73 27 0a 40 63 6f 64 65 7b 74 72 61 6d 70 2d 6d | nection.and.Emacs'.@code{tramp-m |
| 252be0 | 6f 64 65 7d 20 63 61 6e 20 64 6f 20 74 68 65 20 72 65 73 74 2e 0a 28 53 65 65 20 40 69 6e 66 6f | ode}.can.do.the.rest..(See.@info |
| 252c00 | 72 65 66 7b 54 6f 70 2c 20 54 52 41 4d 50 20 55 73 65 72 20 4d 61 6e 75 61 6c 2c 74 72 61 6d 70 | ref{Top,.TRAMP.User.Manual,tramp |
| 252c20 | 7d 2e 29 0a 0a 57 68 61 74 20 77 65 20 64 6f 20 69 73 20 74 65 61 63 68 20 45 6d 61 63 73 20 68 | }.)..What.we.do.is.teach.Emacs.h |
| 252c40 | 6f 77 20 74 6f 20 74 61 6b 65 20 61 20 66 69 6c 65 6e 61 6d 65 20 6f 6e 20 74 68 65 20 72 65 6d | ow.to.take.a.filename.on.the.rem |
| 252c60 | 6f 74 65 20 6d 61 63 68 69 6e 65 0a 61 6e 64 20 74 72 61 6e 73 6c 61 74 65 20 69 74 20 69 6e 74 | ote.machine.and.translate.it.int |
| 252c80 | 6f 20 73 6f 6d 65 74 68 69 6e 67 20 74 68 61 74 20 74 72 61 6d 70 20 63 61 6e 20 75 6e 64 65 72 | o.something.that.tramp.can.under |
| 252ca0 | 73 74 61 6e 64 20 61 6e 64 20 61 63 63 65 73 73 0a 28 61 6e 64 20 76 69 63 65 20 76 65 72 73 61 | stand.and.access.(and.vice.versa |
| 252cc0 | 29 2e 20 41 73 73 75 6d 69 6e 67 20 74 68 65 20 72 65 6d 6f 74 65 20 6d 61 63 68 69 6e 65 27 73 | )..Assuming.the.remote.machine's |
| 252ce0 | 20 68 6f 73 74 20 6e 61 6d 65 20 69 73 0a 40 63 6f 64 65 7b 72 65 6d 6f 74 65 2e 65 78 61 6d 70 | .host.name.is.@code{remote.examp |
| 252d00 | 6c 65 2e 63 6f 6d 7d 2c 20 40 63 6f 64 65 7b 63 6c 3a 6d 61 63 68 69 6e 65 2d 69 6e 73 74 61 6e | le.com},.@code{cl:machine-instan |
| 252d20 | 63 65 7d 20 72 65 74 75 72 6e 73 0a 60 60 72 65 6d 6f 74 65 27 27 20 61 6e 64 20 77 65 20 6c 6f | ce}.returns.``remote''.and.we.lo |
| 252d40 | 67 69 6e 20 61 73 20 74 68 65 20 75 73 65 72 20 60 60 75 73 65 72 27 27 20 77 65 20 63 61 6e 20 | gin.as.the.user.``user''.we.can. |
| 252d60 | 75 73 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 74 72 61 6d 70 7d 0a 63 6f 6e 74 72 69 62 20 74 | use.@code{slime-tramp}.contrib.t |
| 252d80 | 6f 20 73 65 74 75 70 20 74 68 65 20 70 72 6f 70 65 72 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 | o.setup.the.proper.translations. |
| 252da0 | 62 79 20 73 69 6d 70 6c 79 20 64 6f 69 6e 67 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 28 61 64 64 2d | by.simply.doing:..@example.(add- |
| 252dc0 | 74 6f 2d 6c 69 73 74 20 27 73 6c 69 6d 65 2d 66 69 6c 65 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 | to-list.'slime-filename-translat |
| 252de0 | 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 72 65 61 74 65 2d | ions..............(slime-create- |
| 252e00 | 66 69 6c 65 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | filename-translator............. |
| 252e20 | 20 20 3a 6d 61 63 68 69 6e 65 2d 69 6e 73 74 61 6e 63 65 20 22 72 65 6d 6f 74 65 22 0a 20 20 20 | ..:machine-instance."remote".... |
| 252e40 | 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 6d 6f 74 65 2d 68 6f 73 74 20 22 72 65 6d 6f 74 65 2e | ...........:remote-host."remote. |
| 252e60 | 65 78 61 6d 70 6c 65 2e 63 6f 6d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 75 73 65 72 | example.com"...............:user |
| 252e80 | 6e 61 6d 65 20 22 75 73 65 72 22 29 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 40 63 20 2d | name."user")).@end.example..@c.- |
| 252ea0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 47 6c 6f | ----------------------.@node.Glo |
| 252ec0 | 62 61 6c 20 49 4f 20 52 65 64 69 72 65 63 74 69 6f 6e 0a 40 73 65 63 74 69 6f 6e 20 47 6c 6f 62 | bal.IO.Redirection.@section.Glob |
| 252ee0 | 61 6c 6c 79 20 72 65 64 69 72 65 63 74 69 6e 67 20 61 6c 6c 20 49 4f 20 74 6f 20 74 68 65 20 52 | ally.redirecting.all.IO.to.the.R |
| 252f00 | 45 50 4c 0a 0a 57 68 65 6e 20 63 6f 6e 6e 65 63 74 69 6e 67 20 76 69 61 20 40 6b 62 64 7b 4d 2d | EPL..When.connecting.via.@kbd{M- |
| 252f20 | 78 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 7d 20 40 53 4c 49 4d 45 7b 7d 20 64 6f 65 73 0a 6e | x.slime-connect}.@SLIME{}.does.n |
| 252f40 | 6f 74 20 63 68 61 6e 67 65 20 40 63 6f 64 65 7b 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 | ot.change.@code{*standard-output |
| 252f60 | 2a 7d 20 61 6e 64 20 66 72 69 65 6e 64 73 20 6f 75 74 73 69 64 65 20 6f 66 20 74 68 65 0a 40 52 | *}.and.friends.outside.of.the.@R |
| 252f80 | 45 50 4c 7b 7d 2e 20 49 66 20 79 6f 75 20 68 61 76 65 20 61 6e 79 20 6f 74 68 65 72 20 74 68 72 | EPL{}..If.you.have.any.other.thr |
| 252fa0 | 65 61 64 73 20 77 68 69 63 68 20 63 61 6c 6c 20 40 63 6f 64 65 7b 66 6f 72 6d 61 74 7d 2c 0a 40 | eads.which.call.@code{format},.@ |
| 252fc0 | 63 6f 64 65 7b 77 72 69 74 65 2d 73 74 72 69 6e 67 7d 2c 20 65 74 63 2e 20 74 68 61 74 20 6f 75 | code{write-string},.etc..that.ou |
| 252fe0 | 74 70 75 74 20 77 69 6c 6c 20 62 65 20 73 65 65 6e 20 6f 6e 6c 79 20 69 6e 0a 74 68 65 20 40 63 | tput.will.be.seen.only.in.the.@c |
| 253000 | 6f 64 65 7b 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 7d 20 62 75 66 66 65 72 20 6f 72 20 6f | ode{*inferior-lisp*}.buffer.or.o |
| 253020 | 6e 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 2c 20 6d 6f 72 65 20 6f 66 74 65 6e 20 74 68 61 6e 0a | n.the.terminal,.more.often.than. |
| 253040 | 6e 6f 74 20 74 68 69 73 20 69 73 20 69 6e 63 6f 6e 76 65 6e 69 65 6e 74 2e 20 53 6f 2c 20 69 66 | not.this.is.inconvenient..So,.if |
| 253060 | 20 79 6f 75 20 77 61 6e 74 20 63 6f 64 65 20 73 75 63 68 20 61 73 20 74 68 69 73 3a 0a 0a 40 65 | .you.want.code.such.as.this:..@e |
| 253080 | 78 61 6d 70 6c 65 0a 28 72 75 6e 2d 69 6e 2d 6e 65 77 2d 74 68 72 65 61 64 0a 20 20 28 6c 61 6d | xample.(run-in-new-thread...(lam |
| 2530a0 | 62 64 61 20 28 29 0a 20 20 20 20 28 77 72 69 74 65 2d 6c 69 6e 65 20 22 49 6e 20 73 6f 6d 65 20 | bda.().....(write-line."In.some. |
| 2530c0 | 72 61 6e 64 6f 6d 20 74 68 72 65 61 64 2e 7e 25 22 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 | random.thread.~%".*standard-outp |
| 2530e0 | 75 74 2a 29 29 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 74 6f 20 73 65 6e 64 20 69 74 73 | ut*))).@end.example..to.send.its |
| 253100 | 20 6f 75 74 70 75 74 20 74 6f 20 40 53 4c 49 4d 45 7b 7d 27 73 20 72 65 70 6c 20 62 75 66 66 65 | .output.to.@SLIME{}'s.repl.buffe |
| 253120 | 72 2c 20 61 73 20 6f 70 70 6f 73 65 64 20 74 6f 0a 40 63 6f 64 65 7b 2a 69 6e 66 65 72 69 6f 72 | r,.as.opposed.to.@code{*inferior |
| 253140 | 2d 6c 69 73 70 2a 7d 2c 20 73 65 74 20 40 63 6f 64 65 7b 73 77 61 6e 6b 3a 2a 67 6c 6f 62 61 6c | -lisp*},.set.@code{swank:*global |
| 253160 | 6c 79 2d 72 65 64 69 72 65 63 74 2d 69 6f 2a 7d 20 74 6f 20 54 0a 69 6e 20 40 66 69 6c 65 7b 7e | ly-redirect-io*}.to.T.in.@file{~ |
| 253180 | 2f 2e 73 77 61 6e 6b 2e 6c 69 73 70 7d 0a 0a 42 75 74 20 77 68 65 6e 20 73 74 61 72 74 65 64 20 | /.swank.lisp}..But.when.started. |
| 2531a0 | 75 73 69 6e 67 20 40 6b 62 64 7b 4d 2d 78 20 73 6c 69 6d 65 7d 20 74 68 65 20 73 74 72 65 61 6d | using.@kbd{M-x.slime}.the.stream |
| 2531c0 | 73 20 61 72 65 20 72 65 64 69 72 65 63 74 65 64 20 62 79 0a 64 65 66 61 75 6c 74 2e 0a 0a 40 63 | s.are.redirected.by.default...@c |
| 2531e0 | 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 41 | .-----------------------.@node.A |
| 253200 | 75 74 6f 2d 53 4c 49 4d 45 0a 40 73 65 63 74 69 6f 6e 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f | uto-SLIME.@section.Connecting.to |
| 253220 | 20 53 4c 49 4d 45 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 0a 54 6f 20 6d 61 6b 65 20 40 53 | .SLIME.automatically..To.make.@S |
| 253240 | 4c 49 4d 45 7b 7d 20 63 6f 6e 6e 65 63 74 20 74 6f 20 79 6f 75 72 20 6c 69 73 70 20 77 68 65 6e | LIME{}.connect.to.your.lisp.when |
| 253260 | 65 76 65 72 20 79 6f 75 20 6f 70 65 6e 20 61 20 6c 69 73 70 20 66 69 6c 65 0a 6a 75 73 74 20 61 | ever.you.open.a.lisp.file.just.a |
| 253280 | 64 64 20 74 68 69 73 20 74 6f 20 79 6f 75 72 20 40 66 69 6c 65 7b 2e 65 6d 61 63 73 7d 3a 0a 0a | dd.this.to.your.@file{.emacs}:.. |
| 2532a0 | 40 65 78 61 6d 70 6c 65 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 | @example.(add-hook.'slime-mode-h |
| 2532c0 | 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 | ook...........(lambda.()........ |
| 2532e0 | 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 | .....(unless.(slime-connected-p) |
| 253300 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 | ...............(save-excursion.( |
| 253320 | 73 6c 69 6d 65 29 29 29 29 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 40 6e 6f 64 65 20 43 | slime))))).@end.example..@node.C |
| 253340 | 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 40 63 68 61 70 74 65 72 20 43 6f 6e | ontributed.Packages.@chapter.Con |
| 253360 | 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 49 6e 20 76 65 72 73 69 6f 6e 20 32 2e | tributed.Packages..In.version.2. |
| 253380 | 31 20 77 65 20 6d 6f 76 65 64 20 73 6f 6d 65 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 20 74 6f | 1.we.moved.some.functionality.to |
| 2533a0 | 20 73 65 70 61 72 61 74 65 20 70 61 63 6b 61 67 65 73 2e 20 20 54 68 69 73 0a 63 68 61 70 74 65 | .separate.packages...This.chapte |
| 2533c0 | 72 20 74 65 6c 6c 73 20 79 6f 75 20 68 6f 77 20 74 6f 20 6c 6f 61 64 20 63 6f 6e 74 72 69 62 20 | r.tells.you.how.to.load.contrib. |
| 2533e0 | 6d 6f 64 75 6c 65 73 20 61 6e 64 20 64 65 73 63 72 69 62 65 73 20 77 68 61 74 20 74 68 65 0a 70 | modules.and.describes.what.the.p |
| 253400 | 61 72 74 69 63 75 6c 61 72 20 70 61 63 6b 61 67 65 73 20 64 6f 2e 0a 0a 40 6d 65 6e 75 0a 2a 20 | articular.packages.do...@menu.*. |
| 253420 | 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 3a 3a 0a 2a 20 52 45 50 4c 3a 3a 0a 2a 20 73 6c | Loading.Contribs::.*.REPL::.*.sl |
| 253440 | 69 6d 65 2d 6d 72 65 70 6c 3a 3a 0a 2a 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 | ime-mrepl::.*.inferior-slime-mod |
| 253460 | 65 3a 3a 0a 2a 20 43 6f 6d 70 6f 75 6e 64 20 43 6f 6d 70 6c 65 74 69 6f 6e 3a 3a 0a 2a 20 46 75 | e::.*.Compound.Completion::.*.Fu |
| 253480 | 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 | zzy.Completion::.*.slime-autodoc |
| 2534a0 | 2d 6d 6f 64 65 3a 3a 0a 2a 20 41 53 44 46 3a 3a 0a 2a 20 42 61 6e 6e 65 72 3a 3a 0a 2a 20 45 64 | -mode::.*.ASDF::.*.Banner::.*.Ed |
| 2534c0 | 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 3a 3a 0a 2a 20 46 61 6e 63 79 20 49 6e 73 70 65 63 74 | iting.Commands::.*.Fancy.Inspect |
| 2534e0 | 6f 72 3a 3a 0a 2a 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 3a 3a 0a 2a 20 54 79 70 65 6f 75 74 | or::.*.Presentations::.*.Typeout |
| 253500 | 20 66 72 61 6d 65 73 3a 3a 0a 2a 20 54 52 41 4d 50 3a 3a 0a 2a 20 44 6f 63 75 6d 65 6e 74 61 74 | .frames::.*.TRAMP::.*.Documentat |
| 253520 | 69 6f 6e 20 4c 69 6e 6b 73 3a 3a 0a 2a 20 58 72 65 66 20 61 6e 64 20 43 6c 61 73 73 20 42 72 6f | ion.Links::.*.Xref.and.Class.Bro |
| 253540 | 77 73 65 72 3a 3a 0a 2a 20 48 69 67 68 6c 69 67 68 74 20 45 64 69 74 73 3a 3a 0a 2a 20 53 63 72 | wser::.*.Highlight.Edits::.*.Scr |
| 253560 | 61 74 63 68 20 42 75 66 66 65 72 3a 3a 0a 2a 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c | atch.Buffer::.*.SLIME.Trace.Dial |
| 253580 | 6f 67 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 73 70 72 6f 66 3a 3a 0a 2a 20 53 4c 49 4d 45 20 45 6e 68 | og::.*.slime-sprof::.*.SLIME.Enh |
| 2535a0 | 61 6e 63 65 64 20 4d 2d 2e 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 66 61 6e 63 79 3a 3a 0a 2a 20 51 75 | anced.M-.::.*.slime-fancy::.*.Qu |
| 2535c0 | 69 63 6b 6c 69 73 70 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 0a 0a 40 6e 6f 64 65 20 4c 6f 61 64 69 | icklisp::.@end.menu..@node.Loadi |
| 2535e0 | 6e 67 20 43 6f 6e 74 72 69 62 73 0a 40 73 65 63 74 69 6f 6e 20 4c 6f 61 64 69 6e 67 20 43 6f 6e | ng.Contribs.@section.Loading.Con |
| 253600 | 74 72 69 62 20 50 61 63 6b 61 67 65 73 0a 0a 40 63 69 6e 64 65 78 20 43 6f 6e 74 72 69 62 73 0a | trib.Packages..@cindex.Contribs. |
| 253620 | 40 63 69 6e 64 65 78 20 43 6f 6e 74 72 69 62 75 74 69 6f 6e 73 0a 40 63 69 6e 64 65 78 20 50 6c | @cindex.Contributions.@cindex.Pl |
| 253640 | 75 67 69 6e 73 0a 0a 43 6f 6e 74 72 69 62 20 70 61 63 6b 61 67 65 73 20 61 72 65 6e 27 74 20 6c | ugins..Contrib.packages.aren't.l |
| 253660 | 6f 61 64 65 64 20 62 79 20 64 65 66 61 75 6c 74 2e 20 20 59 6f 75 20 68 61 76 65 20 74 6f 20 6d | oaded.by.default...You.have.to.m |
| 253680 | 6f 64 69 66 79 20 79 6f 75 72 0a 73 65 74 75 70 20 61 20 62 69 74 20 73 6f 20 74 68 61 74 20 45 | odify.your.setup.a.bit.so.that.E |
| 2536a0 | 6d 61 63 73 20 6b 6e 6f 77 73 20 77 68 65 72 65 20 74 6f 20 66 69 6e 64 20 74 68 65 6d 20 61 6e | macs.knows.where.to.find.them.an |
| 2536c0 | 64 20 77 68 69 63 68 20 6f 66 20 74 68 65 6d 0a 74 6f 20 6c 6f 61 64 2e 20 20 47 65 6e 65 72 61 | d.which.of.them.to.load...Genera |
| 2536e0 | 6c 6c 79 2c 20 79 6f 75 20 73 65 74 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 40 63 6f 64 65 7b | lly,.you.set.the.variable.@code{ |
| 253700 | 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 7d 20 77 69 74 68 0a 74 68 65 20 6c 69 73 74 20 6f 66 | slime-contribs}.with.the.list.of |
| 253720 | 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 73 20 74 68 61 74 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 | .package-names.that.you.want.to. |
| 253740 | 75 73 65 2e 20 49 74 73 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 0a 69 73 20 40 63 6f 64 65 7b | use..Its.default.value.is.@code{ |
| 253760 | 73 6c 69 6d 65 2d 66 61 6e 63 79 7d 20 77 68 69 63 68 20 6c 6f 61 64 73 20 61 6c 6d 6f 73 74 20 | slime-fancy}.which.loads.almost. |
| 253780 | 65 76 65 72 79 74 68 69 6e 67 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 61 0a 73 65 74 75 | everything...For.example,.a.setu |
| 2537a0 | 70 20 74 6f 20 6c 6f 61 64 20 74 68 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 73 63 72 61 74 63 | p.to.load.the.@code{slime-scratc |
| 2537c0 | 68 7d 0a 61 6e 64 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 63 6f 6d 6d 61 | h}.and.@code{slime-editing-comma |
| 2537e0 | 6e 64 73 7d 20 70 61 63 6b 61 67 65 73 20 6c 6f 6f 6b 73 20 6c 69 6b 65 3a 0a 0a 40 65 78 61 6d | nds}.packages.looks.like:..@exam |
| 253800 | 70 6c 65 0a 3b 3b 20 40 65 6d 70 68 7b 53 65 74 75 70 20 6c 6f 61 64 2d 70 61 74 68 20 61 6e 64 | ple.;;.@emph{Setup.load-path.and |
| 253820 | 20 61 75 74 6f 6c 6f 61 64 73 7d 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f 61 64 2d 70 | .autoloads}.(add-to-list.'load-p |
| 253840 | 61 74 68 20 22 7e 2f 64 69 72 2f 74 6f 2f 63 6c 6f 6e 65 64 2f 73 6c 69 6d 65 22 29 0a 28 72 65 | ath."~/dir/to/cloned/slime").(re |
| 253860 | 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 61 75 74 6f 6c 6f 61 64 73 29 0a 0a 3b 3b 20 40 65 6d 70 | quire.'slime-autoloads)..;;.@emp |
| 253880 | 68 7b 53 65 74 20 79 6f 75 72 20 6c 69 73 70 20 73 79 73 74 65 6d 20 61 6e 64 20 73 6f 6d 65 20 | h{Set.your.lisp.system.and.some. |
| 2538a0 | 63 6f 6e 74 72 69 62 73 7d 0a 28 73 65 74 71 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 | contribs}.(setq.inferior-lisp-pr |
| 2538c0 | 6f 67 72 61 6d 20 22 2f 6f 70 74 2f 73 62 63 6c 2f 62 69 6e 2f 73 62 63 6c 22 29 0a 28 73 65 74 | ogram."/opt/sbcl/bin/sbcl").(set |
| 2538e0 | 71 20 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 20 27 28 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 | q.slime-contribs.'(slime-scratch |
| 253900 | 20 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 63 6f 6d 6d 61 6e 64 73 29 29 0a 40 65 6e 64 20 65 | .slime-editing-commands)).@end.e |
| 253920 | 78 61 6d 70 6c 65 0a 0a 41 66 74 65 72 20 73 74 61 72 74 69 6e 67 20 40 53 4c 49 4d 45 7b 7d 2c | xample..After.starting.@SLIME{}, |
| 253940 | 20 74 68 65 20 63 6f 6d 6d 61 6e 64 73 20 6f 66 20 62 6f 74 68 20 70 61 63 6b 61 67 65 73 20 73 | .the.commands.of.both.packages.s |
| 253960 | 68 6f 75 6c 64 20 62 65 0a 61 76 61 69 6c 61 62 6c 65 2e 0a 0a 40 73 75 62 73 65 63 74 69 6f 6e | hould.be.available...@subsection |
| 253980 | 20 4c 6f 61 64 69 6e 67 20 61 6e 64 20 75 6e 6c 6f 61 64 69 6e 67 20 60 60 6f 6e 20 74 68 65 20 | .Loading.and.unloading.``on.the. |
| 2539a0 | 66 6c 79 27 27 0a 0a 57 65 20 72 65 63 6f 6d 6d 65 6e 64 20 74 68 61 74 20 79 6f 75 20 73 65 74 | fly''..We.recommend.that.you.set |
| 2539c0 | 75 70 20 63 6f 6e 74 72 69 62 73 20 40 65 6d 70 68 7b 62 65 66 6f 72 65 7d 20 73 74 61 72 74 69 | up.contribs.@emph{before}.starti |
| 2539e0 | 6e 67 20 40 53 4c 49 4d 45 7b 7d 20 76 69 61 0a 40 6b 62 64 7b 4d 2d 78 20 73 6c 69 6d 65 7d 2c | ng.@SLIME{}.via.@kbd{M-x.slime}, |
| 253a00 | 20 62 75 74 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 65 6e 61 62 6c 65 20 6d 6f 72 65 20 | .but.if.you.want.to.enable.more. |
| 253a20 | 63 6f 6e 74 72 69 62 73 20 40 65 6d 70 68 7b 61 66 74 65 72 7d 0a 79 6f 75 20 64 6f 20 74 68 61 | contribs.@emph{after}.you.do.tha |
| 253a40 | 74 2c 20 79 6f 75 20 63 61 6e 20 73 65 74 20 74 68 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 63 | t,.you.can.set.the.@code{slime-c |
| 253a60 | 6f 6e 74 72 69 62 73 7d 20 76 61 72 69 61 62 6c 65 20 74 6f 20 61 6e 6f 74 68 65 72 0a 76 61 6c | ontribs}.variable.to.another.val |
| 253a80 | 75 65 20 61 6e 64 20 63 61 6c 6c 20 40 63 6f 64 65 7b 4d 2d 78 20 73 6c 69 6d 65 2d 73 65 74 75 | ue.and.call.@code{M-x.slime-setu |
| 253aa0 | 70 7d 2e 20 4e 6f 74 65 20 74 68 69 73 20 74 68 6f 75 67 68 3a 0a 0a 40 69 74 65 6d 69 7a 65 20 | p}..Note.this.though:..@itemize. |
| 253ac0 | 40 62 75 6c 6c 65 74 0a 40 69 74 65 6d 0a 49 66 20 79 6f 75 27 76 65 20 72 65 6d 6f 76 65 64 20 | @bullet.@item.If.you've.removed. |
| 253ae0 | 63 6f 6e 74 72 69 62 73 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20 74 68 65 79 20 77 6f 6e 27 | contribs.from.the.list.they.won' |
| 253b00 | 74 20 62 65 20 75 6e 6c 6f 61 64 65 64 0a 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 2e 0a 40 69 74 | t.be.unloaded.automatically..@it |
| 253b20 | 65 6d 0a 49 66 20 79 6f 75 20 68 61 76 65 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 40 53 4c | em.If.you.have.more.than.one.@SL |
| 253b40 | 49 4d 45 7b 7d 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 75 72 72 65 6e 74 6c 79 20 61 63 74 69 76 | IME{}.connection.currently.activ |
| 253b60 | 65 2c 20 79 6f 75 20 6d 75 73 74 0a 6d 61 6e 75 61 6c 6c 79 20 72 65 70 65 61 74 20 74 68 65 20 | e,.you.must.manually.repeat.the. |
| 253b80 | 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 73 65 74 75 70 7d 20 73 74 65 70 20 66 6f 72 20 65 61 63 68 | @code{slime-setup}.step.for.each |
| 253ba0 | 20 6f 66 20 74 68 65 6d 2e 0a 40 65 6e 64 20 69 74 65 6d 69 7a 65 0a 0a 53 68 6f 72 74 20 6f 66 | .of.them..@end.itemize..Short.of |
| 253bc0 | 20 72 65 73 74 61 72 74 69 6e 67 20 45 6d 61 63 73 2c 20 61 20 72 65 61 73 6f 6e 61 62 6c 65 20 | .restarting.Emacs,.a.reasonable. |
| 253be0 | 77 61 79 20 6f 66 20 75 6e 6c 6f 61 64 69 6e 67 20 63 6f 6e 74 72 69 62 73 20 69 73 0a 62 79 20 | way.of.unloading.contribs.is.by. |
| 253c00 | 63 61 6c 6c 69 6e 67 20 61 6e 20 45 6d 61 63 73 20 4c 69 73 70 20 66 75 6e 63 74 69 6f 6e 20 77 | calling.an.Emacs.Lisp.function.w |
| 253c20 | 68 6f 73 65 20 6e 61 6d 65 20 69 73 20 6f 62 74 61 69 6e 65 64 20 62 79 0a 61 64 64 69 6e 67 20 | hose.name.is.obtained.by.adding. |
| 253c40 | 40 63 6f 64 65 7b 2d 75 6e 6c 6f 61 64 7d 20 74 6f 20 74 68 65 20 63 6f 6e 74 72 69 62 27 73 20 | @code{-unload}.to.the.contrib's. |
| 253c60 | 6e 61 6d 65 2c 20 66 6f 72 20 65 76 65 72 79 20 63 6f 6e 74 72 69 62 20 79 6f 75 0a 77 69 73 68 | name,.for.every.contrib.you.wish |
| 253c80 | 20 74 6f 20 75 6e 6c 6f 61 64 2e 20 53 6f 2c 20 74 6f 20 72 65 6d 6f 76 65 20 40 63 6f 64 65 7b | .to.unload..So,.to.remove.@code{ |
| 253ca0 | 73 6c 69 6d 65 2d 72 65 70 6c 7d 2c 20 79 6f 75 20 6d 75 73 74 20 63 61 6c 6c 0a 40 63 6f 64 65 | slime-repl},.you.must.call.@code |
| 253cc0 | 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 75 6e 6c 6f 61 64 7d 2e 20 42 65 63 61 75 73 65 20 74 68 65 | {slime-repl-unload}..Because.the |
| 253ce0 | 20 75 6e 6c 6f 61 64 20 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 6f 6e 6c 79 2c 20 69 66 0a 65 | .unload.function.will.only,.if.e |
| 253d00 | 76 65 72 2c 20 75 6e 6c 6f 61 64 20 74 68 65 20 45 6d 61 63 73 20 4c 69 73 70 20 73 69 64 65 20 | ver,.unload.the.Emacs.Lisp.side. |
| 253d20 | 6f 66 20 74 68 65 20 63 6f 6e 74 72 69 62 2c 20 79 6f 75 20 6d 61 79 20 61 6c 73 6f 20 6e 65 65 | of.the.contrib,.you.may.also.nee |
| 253d40 | 64 20 74 6f 0a 72 65 73 74 61 72 74 20 79 6f 75 72 20 6c 69 73 70 73 2e 0a 0a 40 63 20 2d 2d 2d | d.to.restart.your.lisps...@c.--- |
| 253d60 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 52 45 50 4c 0a | --------------------.@node.REPL. |
| 253d80 | 40 73 65 63 74 69 6f 6e 20 52 45 50 4c 3a 20 74 68 65 20 60 60 74 6f 70 20 6c 65 76 65 6c 27 27 | @section.REPL:.the.``top.level'' |
| 253da0 | 0a 0a 40 63 69 6e 64 65 78 20 4c 69 73 74 65 6e 65 72 0a 0a 40 53 4c 49 4d 45 7b 7d 20 75 73 65 | ..@cindex.Listener..@SLIME{}.use |
| 253dc0 | 73 20 61 20 63 75 73 74 6f 6d 20 52 65 61 64 2d 45 76 61 6c 2d 50 72 69 6e 74 20 4c 6f 6f 70 20 | s.a.custom.Read-Eval-Print.Loop. |
| 253de0 | 28 40 52 45 50 4c 7b 7d 2c 20 61 6c 73 6f 20 6b 6e 6f 77 6e 20 61 73 20 61 0a 60 60 74 6f 70 20 | (@REPL{},.also.known.as.a.``top. |
| 253e00 | 6c 65 76 65 6c 27 27 2c 20 6f 72 20 6c 69 73 74 65 6e 65 72 29 2e 20 54 68 65 20 40 52 45 50 4c | level'',.or.listener)..The.@REPL |
| 253e20 | 7b 7d 20 75 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 69 73 20 77 72 69 74 74 65 6e 20 69 6e 0a | {}.user-interface.is.written.in. |
| 253e40 | 45 6d 61 63 73 20 4c 69 73 70 2c 20 77 68 69 63 68 20 67 69 76 65 73 20 6d 6f 72 65 20 45 6d 61 | Emacs.Lisp,.which.gives.more.Ema |
| 253e60 | 63 73 2d 69 6e 74 65 67 72 61 74 69 6f 6e 20 74 68 61 6e 20 74 68 65 20 74 72 61 64 69 74 69 6f | cs-integration.than.the.traditio |
| 253e80 | 6e 61 6c 0a 40 63 6f 64 65 7b 63 6f 6d 69 6e 74 7d 2d 62 61 73 65 64 20 4c 69 73 70 20 69 6e 74 | nal.@code{comint}-based.Lisp.int |
| 253ea0 | 65 72 61 63 74 69 6f 6e 3a 0a 0a 40 69 74 65 6d 69 7a 65 20 40 62 75 6c 6c 65 74 0a 40 69 74 65 | eraction:..@itemize.@bullet.@ite |
| 253ec0 | 6d 0a 43 6f 6e 64 69 74 69 6f 6e 73 20 73 69 67 6e 61 6c 6c 65 64 20 69 6e 20 40 52 45 50 4c 7b | m.Conditions.signalled.in.@REPL{ |
| 253ee0 | 7d 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 72 65 20 64 65 62 75 67 67 65 64 20 77 69 74 68 20 | }.expressions.are.debugged.with. |
| 253f00 | 40 53 4c 44 42 7b 7d 2e 0a 40 69 74 65 6d 0a 52 65 74 75 72 6e 20 76 61 6c 75 65 73 20 61 72 65 | @SLDB{}..@item.Return.values.are |
| 253f20 | 20 64 69 73 74 69 6e 67 75 69 73 68 65 64 20 66 72 6f 6d 20 70 72 69 6e 74 65 64 20 6f 75 74 70 | .distinguished.from.printed.outp |
| 253f40 | 75 74 20 62 79 20 73 65 70 61 72 61 74 65 20 45 6d 61 63 73 0a 66 61 63 65 73 20 28 63 6f 6c 6f | ut.by.separate.Emacs.faces.(colo |
| 253f60 | 75 72 73 29 2e 0a 40 69 74 65 6d 0a 45 6d 61 63 73 20 6d 61 6e 61 67 65 73 20 74 68 65 20 40 52 | urs)..@item.Emacs.manages.the.@R |
| 253f80 | 45 50 4c 7b 7d 20 70 72 6f 6d 70 74 20 77 69 74 68 20 6d 61 72 6b 65 72 73 2e 20 54 68 69 73 20 | EPL{}.prompt.with.markers..This. |
| 253fa0 | 65 6e 73 75 72 65 73 20 74 68 61 74 20 4c 69 73 70 0a 6f 75 74 70 75 74 20 69 73 20 69 6e 73 65 | ensures.that.Lisp.output.is.inse |
| 253fc0 | 72 74 65 64 20 69 6e 20 74 68 65 20 72 69 67 68 74 20 70 6c 61 63 65 2c 20 61 6e 64 20 64 6f 65 | rted.in.the.right.place,.and.doe |
| 253fe0 | 73 6e 27 74 20 67 65 74 20 6d 69 78 65 64 20 75 70 20 77 69 74 68 0a 75 73 65 72 20 69 6e 70 75 | sn't.get.mixed.up.with.user.inpu |
| 254000 | 74 2e 0a 40 65 6e 64 20 69 74 65 6d 69 7a 65 0a 0a 54 6f 20 6c 6f 61 64 20 74 68 65 20 52 45 50 | t..@end.itemize..To.load.the.REP |
| 254020 | 4c 20 75 73 65 20 40 63 6f 64 65 7b 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 73 6c 69 6d 65 2d | L.use.@code{(add-to-list.'slime- |
| 254040 | 63 6f 6e 74 72 69 62 73 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 7d 20 69 6e 20 79 6f 75 72 0a 40 | contribs.'slime-repl)}.in.your.@ |
| 254060 | 63 6f 64 65 7b 2e 65 6d 61 63 73 7d 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 6b 62 64 | code{.emacs}...@table.@kbd..@kbd |
| 254080 | 69 74 65 6d 7b 43 2d 63 20 43 2d 7a 2c 20 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f 2d 6f 75 | item{C-c.C-z,.slime-switch-to-ou |
| 2540a0 | 74 70 75 74 2d 62 75 66 66 65 72 7d 0a 53 65 6c 65 63 74 20 74 68 65 20 6f 75 74 70 75 74 20 62 | tput-buffer}.Select.the.output.b |
| 2540c0 | 75 66 66 65 72 2c 20 70 72 65 66 65 72 61 62 6c 79 20 69 6e 20 61 20 64 69 66 66 65 72 65 6e 74 | uffer,.preferably.in.a.different |
| 2540e0 | 20 77 69 6e 64 6f 77 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 79 2c 20 73 6c 69 6d | .window...@kbditem{C-c.C-y,.slim |
| 254100 | 65 2d 63 61 6c 6c 2d 64 65 66 75 6e 7d 0a 49 6e 73 65 72 74 20 61 20 63 61 6c 6c 20 74 6f 20 74 | e-call-defun}.Insert.a.call.to.t |
| 254120 | 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 66 69 6e 65 64 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 | he.function.defined.around.point |
| 254140 | 20 69 6e 74 6f 20 74 68 65 20 52 45 50 4c 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d | .into.the.REPL...@kbditem{C-c.C- |
| 254160 | 6a 2c 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 2d 69 6e | j,.slime-eval-last-expression-in |
| 254180 | 2d 72 65 70 6c 7d 0a 49 6e 73 65 72 74 73 20 74 68 65 20 6c 61 73 74 20 65 78 70 72 65 73 73 69 | -repl}.Inserts.the.last.expressi |
| 2541a0 | 6f 6e 20 74 6f 20 74 68 65 20 52 45 50 4c 20 61 6e 64 20 65 76 61 6c 75 61 74 65 73 20 69 74 20 | on.to.the.REPL.and.evaluates.it. |
| 2541c0 | 74 68 65 72 65 2e 0a 53 77 69 74 63 68 65 73 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 | there..Switches.to.the.current.p |
| 2541e0 | 61 63 6b 61 67 65 20 6f 66 20 74 68 65 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 20 66 6f 72 20 | ackage.of.the.source.buffer.for. |
| 254200 | 74 68 65 20 64 75 72 61 74 69 6f 6e 2e 0a 49 66 20 75 73 65 64 20 77 69 74 68 20 61 20 70 72 65 | the.duration..If.used.with.a.pre |
| 254220 | 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 64 6f 65 73 6e 27 74 20 73 77 69 74 63 68 20 62 61 63 | fix.argument,.doesn't.switch.bac |
| 254240 | 6b 20 61 66 74 65 72 77 61 72 64 73 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 6d 65 6e 75 | k.afterwards...@end.table..@menu |
| 254260 | 0a 2a 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 3a 3a 0a 2a 20 49 6e 70 75 74 20 4e 61 76 69 67 | .*.REPL.commands::.*.Input.Navig |
| 254280 | 61 74 69 6f 6e 3a 3a 0a 2a 20 53 68 6f 72 74 63 75 74 73 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 0a | ation::.*.Shortcuts::.@end.menu. |
| 2542a0 | 0a 40 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 | .@c.-----------------------.@nod |
| 2542c0 | 65 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 52 45 50 4c | e.REPL.commands.@subsection.REPL |
| 2542e0 | 20 63 6f 6d 6d 61 6e 64 73 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 6b 62 64 69 74 65 6d | .commands..@table.@kbd..@kbditem |
| 254300 | 7b 52 45 54 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 7d 0a 45 76 61 6c 75 61 74 | {RET,.slime-repl-return}.Evaluat |
| 254320 | 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 69 6e 20 4c 69 73 70 20 69 66 20 69 | e.the.current.input.in.Lisp.if.i |
| 254340 | 74 20 69 73 20 63 6f 6d 70 6c 65 74 65 2e 20 49 66 20 69 6e 63 6f 6d 70 6c 65 74 65 2c 0a 6f 70 | t.is.complete..If.incomplete,.op |
| 254360 | 65 6e 20 61 20 6e 65 77 20 6c 69 6e 65 20 61 6e 64 20 69 6e 64 65 6e 74 2e 20 49 66 20 61 20 70 | en.a.new.line.and.indent..If.a.p |
| 254380 | 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 73 20 67 69 76 65 6e 20 74 68 65 6e 20 74 68 65 | refix.argument.is.given.then.the |
| 2543a0 | 0a 69 6e 70 75 74 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 77 69 74 68 6f 75 74 20 63 68 65 63 | .input.is.evaluated.without.chec |
| 2543c0 | 6b 69 6e 67 20 66 6f 72 20 63 6f 6d 70 6c 65 74 65 6e 65 73 73 2e 0a 0a 40 6b 62 64 69 74 65 6d | king.for.completeness...@kbditem |
| 2543e0 | 7b 43 2d 52 45 54 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 6f 73 69 6e 67 2d 72 65 74 75 72 | {C-RET,.slime-repl-closing-retur |
| 254400 | 6e 7d 0a 43 6c 6f 73 65 20 61 6e 79 20 75 6e 6d 61 74 63 68 65 64 20 70 61 72 65 6e 74 68 65 73 | n}.Close.any.unmatched.parenthes |
| 254420 | 69 73 20 61 6e 64 20 74 68 65 6e 20 65 76 61 6c 75 61 74 65 20 74 68 65 20 63 75 72 72 65 6e 74 | is.and.then.evaluate.the.current |
| 254440 | 20 69 6e 70 75 74 20 69 6e 0a 4c 69 73 70 2e 20 41 6c 73 6f 20 62 6f 75 6e 64 20 74 6f 20 40 6b | .input.in.Lisp..Also.bound.to.@k |
| 254460 | 62 64 7b 4d 2d 52 45 54 7d 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 54 41 42 2c 20 73 6c 69 6d 65 2d | bd{M-RET}...@kbditem{TAB,.slime- |
| 254480 | 69 6e 64 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 7d 0a 49 6e 64 65 | indent-and-complete-symbol}.Inde |
| 2544a0 | 6e 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 6e 64 20 70 65 72 66 6f 72 6d 20 | nt.the.current.line.and.perform. |
| 2544c0 | 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 6a | symbol.completion...@kbditem{C-j |
| 2544e0 | 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 69 6e 64 65 6e 74 7d | ,.slime-repl-newline-and-indent} |
| 254500 | 0a 4f 70 65 6e 20 61 6e 64 20 69 6e 64 65 6e 74 20 61 20 6e 65 77 20 6c 69 6e 65 2e 0a 0a 40 6b | .Open.and.indent.a.new.line...@k |
| 254520 | 62 64 69 74 65 6d 7b 43 2d 61 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 6f 6c 7d 0a 47 6f 20 74 | bditem{C-a,.slime-repl-bol}.Go.t |
| 254540 | 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 6c 69 6e 65 2c 20 62 75 74 | o.the.beginning.of.the.line,.but |
| 254560 | 20 73 74 6f 70 20 61 74 20 74 68 65 20 40 52 45 50 4c 7b 7d 20 70 72 6f 6d 70 74 2e 0a 0a 40 63 | .stop.at.the.@REPL{}.prompt...@c |
| 254580 | 20 40 61 6e 63 68 6f 72 7b 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 7d 0a 40 6b 62 64 69 74 | .@anchor{slime-interrupt}.@kbdit |
| 2545a0 | 65 6d 7b 43 2d 63 20 43 2d 63 2c 20 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 7d 0a 49 6e 74 | em{C-c.C-c,.slime-interrupt}.Int |
| 2545c0 | 65 72 72 75 70 74 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 20 77 69 74 68 20 40 63 6f | errupt.the.Lisp.process.with.@co |
| 2545e0 | 64 65 7b 53 49 47 49 4e 54 7d 2e 0a 0a 40 63 20 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 4d 2d 67 | de{SIGINT}...@c.@kbditem{C-c.M-g |
| 254600 | 2c 20 73 6c 69 6d 65 2d 71 75 69 74 7d 0a 40 63 20 51 75 69 74 20 40 53 4c 49 4d 45 7b 7d 2e 0a | ,.slime-quit}.@c.Quit.@SLIME{}.. |
| 254620 | 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 4d 2d 6f 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c | .@kbditem{C-c.M-o,.slime-repl-cl |
| 254640 | 65 61 72 2d 62 75 66 66 65 72 7d 0a 43 6c 65 61 72 20 74 68 65 20 65 6e 74 69 72 65 20 62 75 66 | ear-buffer}.Clear.the.entire.buf |
| 254660 | 66 65 72 2c 20 6c 65 61 76 69 6e 67 20 6f 6e 6c 79 20 61 20 70 72 6f 6d 70 74 2e 0a 0a 40 6b 62 | fer,.leaving.only.a.prompt...@kb |
| 254680 | 64 69 74 65 6d 7b 43 2d 63 20 43 2d 6f 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d | ditem{C-c.C-o,.slime-repl-clear- |
| 2546a0 | 6f 75 74 70 75 74 7d 0a 52 65 6d 6f 76 65 20 74 68 65 20 6f 75 74 70 75 74 20 61 6e 64 20 72 65 | output}.Remove.the.output.and.re |
| 2546c0 | 73 75 6c 74 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 65 78 70 72 65 73 73 69 6f 6e 20 | sult.of.the.previous.expression. |
| 2546e0 | 66 72 6f 6d 20 74 68 65 0a 62 75 66 66 65 72 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 63 | from.the.buffer...@end.table..@c |
| 254700 | 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 49 | .-----------------------.@node.I |
| 254720 | 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 49 6e 70 75 | nput.Navigation.@subsection.Inpu |
| 254740 | 74 20 6e 61 76 69 67 61 74 69 6f 6e 0a 0a 40 63 69 6e 64 65 78 20 49 6e 70 75 74 20 48 69 73 74 | t.navigation..@cindex.Input.Hist |
| 254760 | 6f 72 79 0a 0a 54 68 65 20 69 6e 70 75 74 20 6e 61 76 69 67 61 74 69 6f 6e 20 28 61 2e 6b 2e 61 | ory..The.input.navigation.(a.k.a |
| 254780 | 2e 20 68 69 73 74 6f 72 79 29 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 6d 6f 64 65 6c 6c 65 64 | ..history).commands.are.modelled |
| 2547a0 | 20 61 66 74 65 72 0a 40 63 6f 64 65 7b 63 6f 6d 69 6e 67 7d 2d 6d 6f 64 65 2e 20 20 42 65 20 63 | .after.@code{coming}-mode...Be.c |
| 2547c0 | 61 72 65 66 75 6c 20 69 66 20 79 6f 75 20 61 72 65 20 75 73 65 64 20 74 6f 20 42 61 73 68 2d 6c | areful.if.you.are.used.to.Bash-l |
| 2547e0 | 69 6b 65 0a 6b 65 79 62 69 6e 64 69 6e 67 73 3a 20 40 6b 62 64 7b 4d 2d 70 7d 20 61 6e 64 20 40 | ike.keybindings:.@kbd{M-p}.and.@ |
| 254800 | 6b 62 64 7b 4d 2d 6e 7d 20 75 73 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 61 | kbd{M-n}.use.the.current.input.a |
| 254820 | 73 20 73 65 61 72 63 68 0a 70 61 74 74 65 72 6e 20 61 6e 64 20 6f 6e 6c 79 20 77 6f 72 6b 20 42 | s.search.pattern.and.only.work.B |
| 254840 | 61 73 68 2d 6c 69 6b 65 20 69 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 69 73 0a | ash-like.if.the.current.line.is. |
| 254860 | 65 6d 70 74 79 2e 20 40 6b 62 64 7b 43 2d 3c 75 70 3e 7d 20 61 6e 64 20 40 6b 62 64 7b 43 2d 3c | empty..@kbd{C-<up>}.and.@kbd{C-< |
| 254880 | 75 70 3e 7d 20 77 6f 72 6b 20 6c 69 6b 65 20 74 68 65 20 75 70 20 61 6e 64 20 64 6f 77 6e 20 6b | up>}.work.like.the.up.and.down.k |
| 2548a0 | 65 79 73 20 69 6e 0a 42 61 73 68 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 6b 62 64 69 | eys.in.Bash...@table.@kbd..@kbdi |
| 2548c0 | 74 65 6d 70 61 69 72 7b 43 2d 3c 75 70 3e 2c 20 43 2d 3c 64 6f 77 6e 3e 2c 20 73 6c 69 6d 65 2d | tempair{C-<up>,.C-<down>,.slime- |
| 2548e0 | 72 65 70 6c 2d 66 6f 72 77 61 72 64 2d 69 6e 70 75 74 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 | repl-forward-input,.slime-repl-b |
| 254900 | 61 63 6b 77 61 72 64 2d 69 6e 70 75 74 7d 0a 47 6f 20 74 6f 20 74 68 65 20 6e 65 78 74 2f 70 72 | ackward-input}.Go.to.the.next/pr |
| 254920 | 65 76 69 6f 75 73 20 68 69 73 74 6f 72 79 20 69 74 65 6d 2e 0a 0a 40 6b 62 64 69 74 65 6d 70 61 | evious.history.item...@kbditempa |
| 254940 | 69 72 7b 4d 2d 6e 2c 20 4d 2d 70 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d 69 6e 70 | ir{M-n,.M-p,.slime-repl-next-inp |
| 254960 | 75 74 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 69 6e 70 75 74 7d 0a 53 | ut,.slime-repl-previous-input}.S |
| 254980 | 65 61 72 63 68 20 74 68 65 20 6e 65 78 74 2f 70 72 65 76 69 6f 75 73 20 69 74 65 6d 20 69 6e 20 | earch.the.next/previous.item.in. |
| 2549a0 | 74 68 65 20 63 6f 6d 6d 61 6e 64 20 68 69 73 74 6f 72 79 20 75 73 69 6e 67 20 74 68 65 20 63 75 | the.command.history.using.the.cu |
| 2549c0 | 72 72 65 6e 74 0a 69 6e 70 75 74 20 61 73 20 73 65 61 72 63 68 20 70 61 74 74 65 72 6e 2e 20 20 | rrent.input.as.search.pattern... |
| 2549e0 | 49 66 20 40 6b 62 64 7b 4d 2d 6e 7d 2f 40 6b 62 64 7b 4d 2d 6e 7d 20 69 73 20 74 79 70 65 64 20 | If.@kbd{M-n}/@kbd{M-n}.is.typed. |
| 254a00 | 74 77 6f 20 74 69 6d 65 73 20 69 6e 0a 61 20 72 6f 77 2c 20 74 68 65 20 73 65 63 6f 6e 64 20 69 | two.times.in.a.row,.the.second.i |
| 254a20 | 6e 76 6f 63 61 74 69 6f 6e 20 75 73 65 73 20 74 68 65 20 73 61 6d 65 20 73 65 61 72 63 68 20 70 | nvocation.uses.the.same.search.p |
| 254a40 | 61 74 74 65 72 6e 20 28 65 76 65 6e 20 69 66 20 74 68 65 0a 63 75 72 72 65 6e 74 20 69 6e 70 75 | attern.(even.if.the.current.inpu |
| 254a60 | 74 20 68 61 73 20 63 68 61 6e 67 65 64 29 2e 0a 0a 40 6b 62 64 69 74 65 6d 70 61 69 72 7b 4d 2d | t.has.changed)...@kbditempair{M- |
| 254a80 | 73 2c 20 4d 2d 72 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d 6d 61 74 63 68 69 6e 67 | s,.M-r,.slime-repl-next-matching |
| 254aa0 | 2d 69 6e 70 75 74 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 6d 61 74 63 | -input,.slime-repl-previous-matc |
| 254ac0 | 68 69 6e 67 2d 69 6e 70 75 74 7d 0a 53 65 61 72 63 68 20 66 6f 72 77 61 72 64 2f 72 65 76 65 72 | hing-input}.Search.forward/rever |
| 254ae0 | 73 65 20 74 68 72 6f 75 67 68 20 63 6f 6d 6d 61 6e 64 20 68 69 73 74 6f 72 79 20 77 69 74 68 20 | se.through.command.history.with. |
| 254b00 | 72 65 67 65 78 0a 0a 40 63 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 40 7b 6e 65 78 | regex..@c.@code{slime-repl-@{nex |
| 254b20 | 74 2c 70 72 65 76 69 6f 75 73 40 7d 2d 69 6e 70 75 74 7d 40 2a 0a 40 63 20 40 63 6f 64 65 7b 73 | t,previous@}-input}@*.@c.@code{s |
| 254b40 | 6c 69 6d 65 2d 72 65 70 6c 2d 40 7b 6e 65 78 74 2c 70 72 65 76 69 6f 75 73 40 7d 2d 6d 61 74 63 | lime-repl-@{next,previous@}-matc |
| 254b60 | 68 69 6e 67 2d 69 6e 70 75 74 7d 40 2a 0a 40 63 20 40 63 6f 64 65 7b 63 6f 6d 69 6e 74 7d 2d 73 | hing-input}@*.@c.@code{comint}-s |
| 254b80 | 74 79 6c 65 20 69 6e 70 75 74 20 68 69 73 74 6f 72 79 20 63 6f 6d 6d 61 6e 64 73 2e 0a 0a 40 6b | tyle.input.history.commands...@k |
| 254ba0 | 62 64 69 74 65 6d 70 61 69 72 7b 43 2d 63 20 43 2d 6e 2c 20 43 2d 63 20 43 2d 70 2c 20 73 6c 69 | bditempair{C-c.C-n,.C-c.C-p,.sli |
| 254bc0 | 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d 70 72 6f 6d 70 74 2c 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | me-repl-next-prompt,.slime-repl- |
| 254be0 | 70 72 65 76 69 6f 75 73 2d 70 72 6f 6d 70 74 7d 0a 4d 6f 76 65 20 62 65 74 77 65 65 6e 20 74 68 | previous-prompt}.Move.between.th |
| 254c00 | 65 20 63 75 72 72 65 6e 74 20 61 6e 64 20 70 72 65 76 69 6f 75 73 20 70 72 6f 6d 70 74 73 20 69 | e.current.and.previous.prompts.i |
| 254c20 | 6e 20 74 68 65 20 40 52 45 50 4c 7b 7d 20 62 75 66 66 65 72 2e 0a 50 72 65 73 73 69 6e 67 20 52 | n.the.@REPL{}.buffer..Pressing.R |
| 254c40 | 45 54 20 6f 6e 20 61 20 6c 69 6e 65 20 77 69 74 68 20 6f 6c 64 20 69 6e 70 75 74 20 63 6f 70 69 | ET.on.a.line.with.old.input.copi |
| 254c60 | 65 73 20 74 68 61 74 20 6c 69 6e 65 20 74 6f 20 74 68 65 20 6e 65 77 65 73 74 0a 70 72 6f 6d 70 | es.that.line.to.the.newest.promp |
| 254c80 | 74 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 76 69 6e 64 65 78 20 73 6c 69 6d 65 2d 72 65 70 | t..@end.table..@vindex.slime-rep |
| 254ca0 | 6c 2d 77 72 61 70 2d 68 69 73 74 6f 72 79 0a 54 68 65 20 76 61 72 69 61 62 6c 65 20 40 63 6f 64 | l-wrap-history.The.variable.@cod |
| 254cc0 | 65 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 77 72 61 70 2d 68 69 73 74 6f 72 79 7d 20 63 6f 6e 74 72 | e{slime-repl-wrap-history}.contr |
| 254ce0 | 6f 6c 73 20 77 72 61 70 20 61 72 6f 75 6e 64 0a 62 65 68 61 76 69 6f 75 72 2c 20 69 2e 65 2e 20 | ols.wrap.around.behaviour,.i.e.. |
| 254d00 | 77 68 65 74 68 65 72 20 63 79 63 6c 69 6e 67 20 73 68 6f 75 6c 64 20 72 65 73 74 61 72 74 20 61 | whether.cycling.should.restart.a |
| 254d20 | 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 0a 68 69 73 74 6f 72 79 20 69 | t.the.beginning.of.the.history.i |
| 254d40 | 66 20 74 68 65 20 65 6e 64 20 69 73 20 72 65 61 63 68 65 64 2e 0a 0a 40 63 20 2d 2d 2d 2d 2d 2d | f.the.end.is.reached...@c.------ |
| 254d60 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 63 6f 6d 6d 65 6e 74 20 20 6e 6f 64 65 | -----------------.@comment..node |
| 254d80 | 2d 6e 61 6d 65 2c 20 20 6e 65 78 74 2c 20 20 70 72 65 76 69 6f 75 73 2c 20 20 75 70 0a 40 6e 6f | -name,..next,..previous,..up.@no |
| 254da0 | 64 65 20 53 68 6f 72 74 63 75 74 73 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 53 68 6f 72 74 63 75 | de.Shortcuts.@subsection.Shortcu |
| 254dc0 | 74 73 0a 0a 40 63 69 6e 64 65 78 20 53 68 6f 72 74 63 75 74 73 0a 0a 60 60 53 68 6f 72 74 63 75 | ts..@cindex.Shortcuts..``Shortcu |
| 254de0 | 74 73 27 27 20 61 72 65 20 61 20 73 70 65 63 69 61 6c 20 73 65 74 20 6f 66 20 40 52 45 50 4c 7b | ts''.are.a.special.set.of.@REPL{ |
| 254e00 | 7d 20 63 6f 6d 6d 61 6e 64 73 20 74 68 61 74 20 61 72 65 20 69 6e 76 6f 6b 65 64 0a 62 79 20 6e | }.commands.that.are.invoked.by.n |
| 254e20 | 61 6d 65 2e 20 54 6f 20 69 6e 76 6f 6b 65 20 61 20 73 68 6f 72 74 63 75 74 20 79 6f 75 20 66 69 | ame..To.invoke.a.shortcut.you.fi |
| 254e40 | 72 73 74 20 70 72 65 73 73 20 40 6b 62 64 7b 2c 7d 20 28 63 6f 6d 6d 61 29 20 61 74 20 74 68 65 | rst.press.@kbd{,}.(comma).at.the |
| 254e60 | 0a 40 52 45 50 4c 7b 7d 20 70 72 6f 6d 70 74 20 61 6e 64 20 74 68 65 6e 20 65 6e 74 65 72 20 74 | .@REPL{}.prompt.and.then.enter.t |
| 254e80 | 68 65 20 73 68 6f 72 74 63 75 74 27 73 20 6e 61 6d 65 20 77 68 65 6e 20 70 72 6f 6d 70 74 65 64 | he.shortcut's.name.when.prompted |
| 254ea0 | 2e 0a 0a 53 68 6f 72 74 63 75 74 73 20 64 65 61 6c 20 77 69 74 68 20 74 68 69 6e 67 73 20 6c 69 | ...Shortcuts.deal.with.things.li |
| 254ec0 | 6b 65 20 73 77 69 74 63 68 69 6e 67 20 62 65 74 77 65 65 6e 20 64 69 72 65 63 74 6f 72 69 65 73 | ke.switching.between.directories |
| 254ee0 | 20 61 6e 64 0a 63 6f 6d 70 69 6c 69 6e 67 20 61 6e 64 20 6c 6f 61 64 69 6e 67 20 4c 69 73 70 20 | .and.compiling.and.loading.Lisp. |
| 254f00 | 73 79 73 74 65 6d 73 2e 20 54 68 65 20 73 65 74 20 6f 66 20 73 68 6f 72 74 63 75 74 73 20 69 73 | systems..The.set.of.shortcuts.is |
| 254f20 | 20 6c 69 73 74 65 64 0a 62 65 6c 6f 77 2c 20 61 6e 64 20 79 6f 75 20 63 61 6e 20 61 6c 73 6f 20 | .listed.below,.and.you.can.also. |
| 254f40 | 75 73 65 20 74 68 65 20 40 63 6f 64 65 7b 68 65 6c 70 7d 0a 73 68 6f 72 74 63 75 74 20 74 6f 20 | use.the.@code{help}.shortcut.to. |
| 254f60 | 6c 69 73 74 20 74 68 65 6d 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2e 0a 0a 40 74 61 62 6c 65 | list.them.interactively...@table |
| 254f80 | 20 40 6b 62 64 0a 40 69 74 65 6d 20 63 68 61 6e 67 65 2d 64 69 72 65 63 74 6f 72 79 20 28 61 6b | .@kbd.@item.change-directory.(ak |
| 254fa0 | 61 20 21 64 2c 20 63 64 29 0a 43 68 61 6e 67 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 | a.!d,.cd).Change.the.current.dir |
| 254fc0 | 65 63 74 6f 72 79 2e 0a 0a 40 69 74 65 6d 20 63 68 61 6e 67 65 2d 70 61 63 6b 61 67 65 20 28 61 | ectory...@item.change-package.(a |
| 254fe0 | 6b 61 20 21 70 2c 20 69 6e 2c 20 69 6e 2d 70 61 63 6b 61 67 65 29 0a 43 68 61 6e 67 65 20 74 68 | ka.!p,.in,.in-package).Change.th |
| 255000 | 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 2e 0a 0a 40 69 74 65 6d 20 63 6f 6d 70 69 6c | e.current.package...@item.compil |
| 255020 | 65 2d 61 6e 64 2d 6c 6f 61 64 20 28 61 6b 61 20 63 6c 29 0a 43 6f 6d 70 69 6c 65 20 28 69 66 20 | e-and-load.(aka.cl).Compile.(if. |
| 255040 | 6e 65 63 65 73 73 61 72 79 29 20 61 6e 64 20 6c 6f 61 64 20 61 20 6c 69 73 70 20 66 69 6c 65 2e | necessary).and.load.a.lisp.file. |
| 255060 | 0a 0a 40 69 74 65 6d 20 64 65 66 70 61 72 61 6d 65 74 65 72 20 28 61 6b 61 20 21 29 0a 44 65 66 | ..@item.defparameter.(aka.!).Def |
| 255080 | 69 6e 65 20 61 20 6e 65 77 20 67 6c 6f 62 61 6c 2c 20 73 70 65 63 69 61 6c 2c 20 76 61 72 69 61 | ine.a.new.global,.special,.varia |
| 2550a0 | 62 6c 65 2e 0a 0a 40 69 74 65 6d 20 64 69 73 63 6f 6e 6e 65 63 74 0a 44 69 73 63 6f 6e 6e 65 63 | ble...@item.disconnect.Disconnec |
| 2550c0 | 74 20 61 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 0a 40 69 74 65 6d 20 68 65 6c 70 20 28 | t.all.connections...@item.help.( |
| 2550e0 | 61 6b 61 20 3f 29 0a 44 69 73 70 6c 61 79 20 74 68 65 20 68 65 6c 70 2e 0a 0a 40 69 74 65 6d 20 | aka.?).Display.the.help...@item. |
| 255100 | 70 6f 70 2d 64 69 72 65 63 74 6f 72 79 20 28 61 6b 61 20 2d 64 29 0a 50 6f 70 20 74 68 65 20 63 | pop-directory.(aka.-d).Pop.the.c |
| 255120 | 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 40 69 74 65 6d 20 70 6f 70 2d 70 61 63 | urrent.directory...@item.pop-pac |
| 255140 | 6b 61 67 65 20 28 61 6b 61 20 2d 70 29 0a 50 6f 70 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 | kage.(aka.-p).Pop.the.top.of.the |
| 255160 | 20 70 61 63 6b 61 67 65 20 73 74 61 63 6b 2e 0a 0a 40 69 74 65 6d 20 70 75 73 68 2d 64 69 72 65 | .package.stack...@item.push-dire |
| 255180 | 63 74 6f 72 79 20 28 61 6b 61 20 2b 64 2c 20 70 75 73 68 64 29 0a 50 75 73 68 20 61 20 6e 65 77 | ctory.(aka.+d,.pushd).Push.a.new |
| 2551a0 | 20 64 69 72 65 63 74 6f 72 79 20 6f 6e 74 6f 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 73 74 | .directory.onto.the.directory.st |
| 2551c0 | 61 63 6b 2e 0a 0a 40 69 74 65 6d 20 70 75 73 68 2d 70 61 63 6b 61 67 65 20 28 61 6b 61 20 2b 70 | ack...@item.push-package.(aka.+p |
| 2551e0 | 29 0a 50 75 73 68 20 61 20 70 61 63 6b 61 67 65 20 6f 6e 74 6f 20 74 68 65 20 70 61 63 6b 61 67 | ).Push.a.package.onto.the.packag |
| 255200 | 65 20 73 74 61 63 6b 2e 0a 0a 40 69 74 65 6d 20 70 77 64 0a 53 68 6f 77 20 74 68 65 20 63 75 72 | e.stack...@item.pwd.Show.the.cur |
| 255220 | 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 40 69 74 65 6d 20 71 75 69 74 0a 51 75 69 74 | rent.directory...@item.quit.Quit |
| 255240 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 4c 69 73 70 2e 0a 0a 40 69 74 65 6d 20 72 65 73 65 6e 64 | .the.current.Lisp...@item.resend |
| 255260 | 2d 66 6f 72 6d 0a 52 65 73 65 6e 64 20 74 68 65 20 6c 61 73 74 20 66 6f 72 6d 2e 0a 0a 40 69 74 | -form.Resend.the.last.form...@it |
| 255280 | 65 6d 20 72 65 73 74 61 72 74 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 0a 52 65 73 74 61 72 74 | em.restart-inferior-lisp.Restart |
| 2552a0 | 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 20 61 6e 64 20 72 65 63 6f 6e 6e 65 63 74 20 40 | .*inferior-lisp*.and.reconnect.@ |
| 2552c0 | 53 4c 49 4d 45 7b 7d 2e 0a 0a 40 69 74 65 6d 20 73 61 79 6f 6f 6e 61 72 61 0a 51 75 69 74 20 61 | SLIME{}...@item.sayoonara.Quit.a |
| 2552e0 | 6c 6c 20 4c 69 73 70 73 20 61 6e 64 20 63 6c 6f 73 65 20 61 6c 6c 20 40 53 4c 49 4d 45 7b 7d 20 | ll.Lisps.and.close.all.@SLIME{}. |
| 255300 | 62 75 66 66 65 72 73 2e 0a 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 6e 6f 64 65 20 73 6c 69 6d | buffers...@end.table..@node.slim |
| 255320 | 65 2d 6d 72 65 70 6c 0a 40 73 65 63 74 69 6f 6e 20 4d 75 6c 74 69 70 6c 65 20 52 45 50 4c 73 0a | e-mrepl.@section.Multiple.REPLs. |
| 255340 | 0a 54 68 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 6d 72 65 70 6c 7d 20 70 61 63 6b 61 67 65 20 | .The.@code{slime-mrepl}.package. |
| 255360 | 61 64 64 73 20 73 75 70 70 6f 72 74 20 66 6f 72 20 6d 75 6c 74 69 70 6c 65 20 6c 69 73 74 65 6e | adds.support.for.multiple.listen |
| 255380 | 65 72 0a 62 75 66 66 65 72 73 2e 20 20 54 68 65 20 63 6f 6d 6d 61 6e 64 20 40 6b 62 64 7b 4d 2d | er.buffers...The.command.@kbd{M- |
| 2553a0 | 78 20 73 6c 69 6d 65 2d 6e 65 77 2d 6d 72 65 70 6c 7d 20 63 72 65 61 74 65 73 20 61 20 6e 65 77 | x.slime-new-mrepl}.creates.a.new |
| 2553c0 | 0a 62 75 66 66 65 72 2e 20 20 49 6e 20 61 20 6d 75 6c 74 69 2d 74 68 72 65 61 64 65 64 20 4c 69 | .buffer...In.a.multi-threaded.Li |
| 2553e0 | 73 70 2c 20 65 61 63 68 20 6c 69 73 74 65 6e 65 72 20 69 73 20 61 73 73 6f 63 69 61 74 65 64 20 | sp,.each.listener.is.associated. |
| 255400 | 77 69 74 68 20 61 0a 73 65 70 61 72 61 74 65 20 74 68 72 65 61 64 2e 20 20 49 6e 20 61 20 73 69 | with.a.separate.thread...In.a.si |
| 255420 | 6e 67 6c 65 2d 74 68 72 65 61 64 65 64 20 4c 69 73 70 20 69 74 27 73 20 61 6c 73 6f 20 70 6f 73 | ngle-threaded.Lisp.it's.also.pos |
| 255440 | 73 69 62 6c 65 20 74 6f 0a 63 72 65 61 74 65 20 6d 75 6c 74 69 70 6c 65 20 6c 69 73 74 65 6e 65 | sible.to.create.multiple.listene |
| 255460 | 72 20 62 75 66 66 65 72 73 20 62 75 74 20 74 68 65 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 65 | r.buffers.but.the.commands.are.e |
| 255480 | 78 65 63 75 74 65 64 0a 73 65 71 75 65 6e 74 69 61 6c 6c 79 20 62 79 20 74 68 65 20 73 61 6d 65 | xecuted.sequentially.by.the.same |
| 2554a0 | 20 70 72 6f 63 65 73 73 2e 0a 0a 40 6e 6f 64 65 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d | .process...@node.inferior-slime- |
| 2554c0 | 6d 6f 64 65 0a 40 73 65 63 74 69 6f 6e 20 40 63 6f 64 65 7b 69 6e 66 65 72 69 6f 72 2d 73 6c 69 | mode.@section.@code{inferior-sli |
| 2554e0 | 6d 65 2d 6d 6f 64 65 7d 0a 0a 54 68 65 20 40 63 6f 64 65 7b 69 6e 66 65 72 69 6f 72 2d 73 6c 69 | me-mode}..The.@code{inferior-sli |
| 255500 | 6d 65 2d 6d 6f 64 65 7d 20 69 73 20 61 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 69 73 20 69 6e 74 65 | me-mode}.is.a.minor.mode.is.inte |
| 255520 | 6e 64 65 64 20 74 6f 20 75 73 65 20 77 69 74 68 0a 74 68 65 20 40 63 6f 64 65 7b 2a 69 6e 66 65 | nded.to.use.with.the.@code{*infe |
| 255540 | 72 69 6f 72 2d 6c 69 73 70 2a 7d 20 6c 69 73 70 20 62 75 66 66 65 72 2e 20 20 49 74 20 70 72 6f | rior-lisp*}.lisp.buffer...It.pro |
| 255560 | 76 69 64 65 73 20 73 6f 6d 65 20 6f 66 20 74 68 65 0a 40 53 4c 49 4d 45 7b 7d 20 63 6f 6d 6d 61 | vides.some.of.the.@SLIME{}.comma |
| 255580 | 6e 64 73 2c 20 6c 69 6b 65 20 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 6e 64 20 | nds,.like.symbol.completion.and. |
| 2555a0 | 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 6f 6b 75 70 2e 20 49 74 0a 61 6c 73 6f 20 74 72 | documentation.lookup..It.also.tr |
| 2555c0 | 61 63 6b 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 | acks.the.current.directory.of.th |
| 2555e0 | 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 2e 20 20 54 6f 20 69 6e 73 74 61 6c 6c 20 69 74 2c 0a | e.Lisp.process...To.install.it,. |
| 255600 | 61 64 64 20 73 6f 6d 65 74 68 69 6e 67 20 6c 69 6b 65 20 74 68 69 73 20 74 6f 20 75 73 65 72 20 | add.something.like.this.to.user. |
| 255620 | 40 66 69 6c 65 7b 2e 65 6d 61 63 73 7d 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 28 61 64 64 2d 74 6f | @file{.emacs}:..@example.(add-to |
| 255640 | 2d 6c 69 73 74 20 27 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 20 27 69 6e 66 65 72 69 6f 72 2d | -list.'slime-contribs.'inferior- |
| 255660 | 73 6c 69 6d 65 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 | slime).@end.example..@table.@kbd |
| 255680 | 0a 40 63 6d 64 69 74 65 6d 7b 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 7d 0a 54 | .@cmditem{inferior-slime-mode}.T |
| 2556a0 | 75 72 6e 73 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 20 6f 6e 20 6f 72 20 6f | urns.inferior-slime-mode.on.or.o |
| 2556c0 | 66 66 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 76 69 6e 64 65 78 20 69 6e 66 65 72 69 6f 72 | ff..@end.table..@vindex.inferior |
| 2556e0 | 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 0a 54 68 65 20 76 61 72 69 61 62 6c 65 20 40 63 6f | -slime-mode-map.The.variable.@co |
| 255700 | 64 65 7b 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 7d 20 63 6f 6e 74 | de{inferior-slime-mode-map}.cont |
| 255720 | 61 69 6e 73 20 74 68 65 20 65 78 74 72 61 0a 6b 65 79 62 69 6e 64 69 6e 67 73 2e 0a 0a 40 6e 6f | ains.the.extra.keybindings...@no |
| 255740 | 64 65 20 43 6f 6d 70 6f 75 6e 64 20 43 6f 6d 70 6c 65 74 69 6f 6e 0a 40 73 65 63 74 69 6f 6e 20 | de.Compound.Completion.@section. |
| 255760 | 43 6f 6d 70 6f 75 6e 64 20 43 6f 6d 70 6c 65 74 69 6f 6e 0a 0a 40 61 6e 63 68 6f 72 7b 73 6c 69 | Compound.Completion..@anchor{sli |
| 255780 | 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2a 7d 0a 54 68 65 20 70 61 63 6b 61 67 65 | me-complete-symbol*}.The.package |
| 2557a0 | 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 63 2d 70 2d 63 7d 20 70 72 6f 76 69 64 65 73 20 61 20 64 | .@code{slime-c-p-c}.provides.a.d |
| 2557c0 | 69 66 66 65 72 65 6e 74 20 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 61 6c 67 6f 72 | ifferent.symbol.completion.algor |
| 2557e0 | 69 74 68 6d 2c 20 77 68 69 63 68 20 70 65 72 66 6f 72 6d 73 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 | ithm,.which.performs.completion. |
| 255800 | 60 60 69 6e 20 70 61 72 61 6c 6c 65 6c 27 27 20 6f 76 65 72 20 74 68 65 0a 68 79 70 68 65 6e 2d | ``in.parallel''.over.the.hyphen- |
| 255820 | 64 65 6c 69 6d 69 74 65 64 20 73 75 62 2d 77 6f 72 64 73 20 6f 66 20 61 20 73 79 6d 62 6f 6c 20 | delimited.sub-words.of.a.symbol. |
| 255840 | 6e 61 6d 65 2e 0a 40 66 6f 6f 74 6e 6f 74 65 7b 54 68 69 73 20 73 74 79 6c 65 20 6f 66 20 63 6f | name..@footnote{This.style.of.co |
| 255860 | 6d 70 6c 65 74 69 6f 6e 20 69 73 20 6d 6f 64 65 6c 6c 65 64 20 6f 6e 20 40 66 69 6c 65 7b 63 6f | mpletion.is.modelled.on.@file{co |
| 255880 | 6d 70 6c 65 74 65 72 2e 65 6c 7d 0a 62 79 20 43 68 72 69 73 20 4d 63 43 6f 6e 6e 65 6c 6c 2e 20 | mpleter.el}.by.Chris.McConnell.. |
| 2558a0 | 54 68 61 74 20 70 61 63 6b 61 67 65 20 69 73 20 62 75 6e 64 6c 65 64 20 77 69 74 68 20 40 61 63 | That.package.is.bundled.with.@ac |
| 2558c0 | 72 6f 6e 79 6d 7b 49 4c 49 53 50 7d 2e 7d 0a 46 6f 72 6d 61 6c 6c 79 20 74 68 69 73 20 6d 65 61 | ronym{ILISP}.}.Formally.this.mea |
| 2558e0 | 6e 73 20 74 68 61 74 20 60 60 40 63 6f 64 65 7b 61 2d 62 2d 63 7d 27 27 20 63 61 6e 20 63 6f 6d | ns.that.``@code{a-b-c}''.can.com |
| 255900 | 70 6c 65 74 65 20 74 6f 20 61 6e 79 20 73 79 6d 62 6f 6c 0a 6d 61 74 63 68 69 6e 67 20 74 68 65 | plete.to.any.symbol.matching.the |
| 255920 | 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 60 60 40 63 6f 64 65 7b 5e 61 2e 2a | .regular.expression.``@code{^a.* |
| 255940 | 2d 62 2e 2a 2d 63 2e 2a 7d 27 27 20 28 77 68 65 72 65 20 60 60 64 6f 74 27 27 0a 6d 61 74 63 68 | -b.*-c.*}''.(where.``dot''.match |
| 255960 | 65 73 20 61 6e 79 74 68 69 6e 67 20 62 75 74 20 61 20 68 79 70 68 65 6e 29 2e 20 45 78 61 6d 70 | es.anything.but.a.hyphen)..Examp |
| 255980 | 6c 65 73 20 67 69 76 65 20 61 20 6d 6f 72 65 20 69 6e 74 75 69 74 69 76 65 0a 66 65 65 6c 69 6e | les.give.a.more.intuitive.feelin |
| 2559a0 | 67 3a 0a 40 69 74 65 6d 69 7a 65 20 40 62 75 6c 6c 65 74 0a 40 69 74 65 6d 0a 40 63 6f 64 65 7b | g:.@itemize.@bullet.@item.@code{ |
| 2559c0 | 6d 2d 76 2d 62 7d 20 63 6f 6d 70 6c 65 74 65 73 20 74 6f 20 40 63 6f 64 65 7b 6d 75 6c 74 69 70 | m-v-b}.completes.to.@code{multip |
| 2559e0 | 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 7d 2e 0a 40 69 74 65 6d 0a 40 63 6f 64 65 7b 77 2d 6f 70 | le-value-bind}..@item.@code{w-op |
| 255a00 | 65 6e 7d 20 69 73 20 61 6d 62 69 67 75 6f 75 73 3a 20 69 74 20 63 6f 6d 70 6c 65 74 65 73 20 74 | en}.is.ambiguous:.it.completes.t |
| 255a20 | 6f 20 65 69 74 68 65 72 0a 40 63 6f 64 65 7b 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 7d 20 6f | o.either.@code{with-open-file}.o |
| 255a40 | 72 20 40 63 6f 64 65 7b 77 69 74 68 2d 6f 70 65 6e 2d 73 74 72 65 61 6d 7d 2e 20 54 68 65 20 73 | r.@code{with-open-stream}..The.s |
| 255a60 | 79 6d 62 6f 6c 20 69 73 0a 65 78 70 61 6e 64 65 64 20 74 6f 20 74 68 65 20 6c 6f 6e 67 65 73 74 | ymbol.is.expanded.to.the.longest |
| 255a80 | 20 63 6f 6d 6d 6f 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 28 40 63 6f 64 65 7b 77 69 74 68 2d 6f | .common.completion.(@code{with-o |
| 255aa0 | 70 65 6e 2d 7d 29 20 61 6e 64 20 74 68 65 0a 70 6f 69 6e 74 20 69 73 20 70 6c 61 63 65 64 20 61 | pen-}).and.the.point.is.placed.a |
| 255ac0 | 74 20 74 68 65 20 66 69 72 73 74 20 70 6f 69 6e 74 20 6f 66 20 61 6d 62 69 67 75 69 74 79 2c 20 | t.the.first.point.of.ambiguity,. |
| 255ae0 | 77 68 69 63 68 20 69 6e 20 74 68 69 73 20 63 61 73 65 20 69 73 0a 74 68 65 20 65 6e 64 2e 0a 40 | which.in.this.case.is.the.end..@ |
| 255b00 | 69 74 65 6d 0a 40 63 6f 64 65 7b 77 2d 2d 73 74 72 65 61 6d 7d 20 63 6f 6d 70 6c 65 74 65 73 20 | item.@code{w--stream}.completes. |
| 255b20 | 74 6f 20 40 63 6f 64 65 7b 77 69 74 68 2d 6f 70 65 6e 2d 73 74 72 65 61 6d 7d 2e 0a 40 65 6e 64 | to.@code{with-open-stream}..@end |
| 255b40 | 20 69 74 65 6d 69 7a 65 0a 0a 54 68 65 20 76 61 72 69 61 62 6c 65 20 40 63 6f 64 65 7b 73 6c 69 | .itemize..The.variable.@code{sli |
| 255b60 | 6d 65 2d 63 2d 70 2d 63 2d 75 6e 61 6d 62 69 67 75 6f 75 73 2d 70 72 65 66 69 78 2d 70 7d 20 73 | me-c-p-c-unambiguous-prefix-p}.s |
| 255b80 | 70 65 63 69 66 69 65 73 20 77 68 65 72 65 0a 70 6f 69 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 70 | pecifies.where.point.should.be.p |
| 255ba0 | 6c 61 63 65 64 20 61 66 74 65 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 20 20 45 2e 67 2e 20 74 68 | laced.after.completion...E.g..th |
| 255bc0 | 65 20 70 6f 73 73 69 62 6c 65 0a 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 66 6f 72 20 40 63 6f 64 65 | e.possible.completions.for.@code |
| 255be0 | 7b 66 2d 6f 7d 20 61 72 65 20 40 63 6f 64 65 7b 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 7d 20 61 | {f-o}.are.@code{finish-output}.a |
| 255c00 | 6e 64 0a 40 63 6f 64 65 7b 66 6f 72 63 65 2d 6f 75 74 70 75 74 7d 2e 20 20 42 79 20 74 68 65 20 | nd.@code{force-output}...By.the. |
| 255c20 | 64 65 66 61 75 6c 74 20 70 6f 69 6e 74 20 69 73 20 6d 6f 76 65 64 20 61 66 74 65 72 20 74 68 65 | default.point.is.moved.after.the |
| 255c40 | 0a 40 63 6f 64 65 7b 66 7d 2c 20 62 65 63 61 75 73 65 20 74 68 61 74 20 69 73 20 74 68 65 20 75 | .@code{f},.because.that.is.the.u |
| 255c60 | 6e 61 6d 62 69 67 75 6f 75 73 20 70 72 65 66 69 78 2e 20 20 49 66 0a 40 63 6f 64 65 7b 73 6c 69 | nambiguous.prefix...If.@code{sli |
| 255c80 | 6d 65 2d 63 2d 70 2d 63 2d 75 6e 61 6d 62 69 67 75 6f 75 73 2d 70 72 65 66 69 78 2d 70 7d 20 69 | me-c-p-c-unambiguous-prefix-p}.i |
| 255ca0 | 73 20 6e 69 6c 2c 20 70 6f 69 6e 74 20 6d 6f 76 65 73 20 74 6f 0a 74 68 65 20 65 6e 64 20 6f 66 | s.nil,.point.moves.to.the.end.of |
| 255cc0 | 20 74 68 65 20 69 6e 73 65 72 74 65 64 20 74 65 78 74 2c 20 61 66 74 65 72 20 74 68 65 20 40 63 | .the.inserted.text,.after.the.@c |
| 255ce0 | 6f 64 65 7b 6f 7d 20 69 6e 20 74 68 69 73 20 63 61 73 65 2e 0a 0a 49 6e 20 61 64 64 69 74 69 6f | ode{o}.in.this.case...In.additio |
| 255d00 | 6e 2c 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 63 2d 70 2d 63 7d 20 70 72 6f 76 69 64 65 73 20 63 | n,.@code{slime-c-p-c}.provides.c |
| 255d20 | 6f 6d 70 6c 65 74 69 6f 6e 20 66 6f 72 20 63 68 61 72 61 63 74 65 72 20 6e 61 6d 65 73 0a 28 6d | ompletion.for.character.names.(m |
| 255d40 | 6f 73 74 6c 79 20 75 73 65 66 75 6c 20 66 6f 72 20 55 6e 69 63 6f 64 65 2d 61 77 61 72 65 20 69 | ostly.useful.for.Unicode-aware.i |
| 255d60 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 29 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 43 4c 2d 55 53 | mplementations):..@example.CL-US |
| 255d80 | 45 52 3e 20 23 5c 53 70 3c 54 41 42 3e 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 48 65 72 65 | ER>.#\Sp<TAB>.@end.example..Here |
| 255da0 | 20 40 53 4c 49 4d 45 7b 7d 20 77 69 6c 6c 20 75 73 75 61 6c 6c 79 20 63 6f 6d 70 6c 65 74 65 20 | .@SLIME{}.will.usually.complete. |
| 255dc0 | 74 68 65 20 63 68 61 72 61 63 74 65 72 20 74 6f 20 40 63 6f 64 65 7b 23 5c 53 70 61 63 65 7d 2c | the.character.to.@code{#\Space}, |
| 255de0 | 20 62 75 74 0a 69 6e 20 61 20 55 6e 69 63 6f 64 65 2d 61 77 61 72 65 20 69 6d 70 6c 65 6d 65 6e | .but.in.a.Unicode-aware.implemen |
| 255e00 | 74 61 74 69 6f 6e 2c 20 74 68 69 73 20 6d 69 67 68 74 20 70 72 6f 76 69 64 65 20 74 68 65 20 66 | tation,.this.might.provide.the.f |
| 255e20 | 6f 6c 6c 6f 77 69 6e 67 0a 63 6f 6d 70 6c 65 74 69 6f 6e 73 3a 0a 40 65 78 61 6d 70 6c 65 0a 53 | ollowing.completions:.@example.S |
| 255e40 | 70 61 63 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pace............................ |
| 255e60 | 20 20 53 70 61 63 65 0a 53 70 61 72 6b 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..Space.Sparkle................. |
| 255e80 | 20 20 20 20 20 20 20 20 20 20 20 53 70 68 65 72 69 63 61 6c 5f 41 6e 67 6c 65 0a 53 70 68 65 72 | ...........Spherical_Angle.Spher |
| 255ea0 | 69 63 61 6c 5f 41 6e 67 6c 65 5f 4f 70 65 6e 69 6e 67 5f 4c 65 66 74 20 20 20 20 20 20 20 53 70 | ical_Angle_Opening_Left.......Sp |
| 255ec0 | 68 65 72 69 63 61 6c 5f 41 6e 67 6c 65 5f 4f 70 65 6e 69 6e 67 5f 55 70 0a 40 65 6e 64 20 65 78 | herical_Angle_Opening_Up.@end.ex |
| 255ee0 | 61 6d 70 6c 65 0a 0a 54 68 65 20 70 61 63 6b 61 67 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 63 | ample..The.package.@code{slime-c |
| 255f00 | 2d 70 2d 63 7d 20 61 6c 73 6f 20 70 72 6f 76 69 64 65 73 20 63 6f 6e 74 65 78 74 2d 73 65 6e 73 | -p-c}.also.provides.context-sens |
| 255f20 | 69 74 69 76 65 0a 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 6f 72 20 6b 65 79 77 6f 72 64 73 2e 20 20 | itive.completion.for.keywords... |
| 255f40 | 45 78 61 6d 70 6c 65 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 43 4c 2d 55 53 45 52 3e 20 28 66 69 6e | Example:..@example.CL-USER>.(fin |
| 255f60 | 64 20 31 20 27 28 31 20 32 20 33 29 20 3a 73 3c 54 41 42 3e 0a 40 65 6e 64 20 65 78 61 6d 70 6c | d.1.'(1.2.3).:s<TAB>.@end.exampl |
| 255f80 | 65 0a 0a 48 65 72 65 20 40 53 4c 49 4d 45 7b 7d 20 77 69 6c 6c 20 63 6f 6d 70 6c 65 74 65 20 40 | e..Here.@SLIME{}.will.complete.@ |
| 255fa0 | 63 6f 64 65 7b 3a 73 74 61 72 74 7d 2c 20 72 61 74 68 65 72 20 74 68 61 6e 20 73 75 67 67 65 73 | code{:start},.rather.than.sugges |
| 255fc0 | 74 69 6e 67 20 61 6c 6c 0a 65 76 65 72 2d 69 6e 74 65 72 6e 65 64 20 6b 65 79 77 6f 72 64 73 20 | ting.all.ever-interned.keywords. |
| 255fe0 | 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 40 63 6f 64 65 7b 3a 73 7d 2e 0a 0a 0a 40 74 61 62 6c | starting.with.@code{:s}....@tabl |
| 256000 | 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 73 2c 20 73 6c 69 6d 65 2d 63 | e.@kbd.@kbditem{C-c.C-s,.slime-c |
| 256020 | 6f 6d 70 6c 65 74 65 2d 66 6f 72 6d 7d 0a 4c 6f 6f 6b 73 20 75 70 20 61 6e 64 20 69 6e 73 65 72 | omplete-form}.Looks.up.and.inser |
| 256040 | 74 73 20 69 6e 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 74 68 65 20 61 | ts.into.the.current.buffer.the.a |
| 256060 | 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 66 6f 72 20 74 68 65 0a 66 75 6e 63 74 69 6f 6e 20 61 74 | rgument.list.for.the.function.at |
| 256080 | 20 70 6f 69 6e 74 2c 20 69 66 20 74 68 65 72 65 20 69 73 20 6f 6e 65 2e 20 20 4d 6f 72 65 20 67 | .point,.if.there.is.one...More.g |
| 2560a0 | 65 6e 65 72 61 6c 6c 79 2c 20 74 68 65 20 63 6f 6d 6d 61 6e 64 0a 63 6f 6d 70 6c 65 74 65 73 20 | enerally,.the.command.completes. |
| 2560c0 | 61 6e 20 69 6e 63 6f 6d 70 6c 65 74 65 20 66 6f 72 6d 20 77 69 74 68 20 61 20 74 65 6d 70 6c 61 | an.incomplete.form.with.a.templa |
| 2560e0 | 74 65 20 66 6f 72 20 74 68 65 20 6d 69 73 73 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 2e 0a 54 68 | te.for.the.missing.arguments..Th |
| 256100 | 65 72 65 20 69 73 20 73 70 65 63 69 61 6c 20 63 6f 64 65 20 66 6f 72 20 64 69 73 63 6f 76 65 72 | ere.is.special.code.for.discover |
| 256120 | 69 6e 67 20 65 78 74 72 61 20 6b 65 79 77 6f 72 64 73 20 6f 66 20 67 65 6e 65 72 69 63 0a 66 75 | ing.extra.keywords.of.generic.fu |
| 256140 | 6e 63 74 69 6f 6e 73 20 61 6e 64 20 66 6f 72 20 68 61 6e 64 6c 69 6e 67 20 40 63 6f 64 65 7b 6d | nctions.and.for.handling.@code{m |
| 256160 | 61 6b 65 2d 69 6e 73 74 61 6e 63 65 7d 2c 0a 40 63 6f 64 65 7b 64 65 66 6d 65 74 68 6f 64 7d 2c | ake-instance},.@code{defmethod}, |
| 256180 | 20 61 6e 64 20 6d 61 6e 79 20 6f 74 68 65 72 20 66 75 6e 63 74 69 6f 6e 73 2e 20 45 78 61 6d 70 | .and.many.other.functions..Examp |
| 2561a0 | 6c 65 73 3a 0a 0a 40 65 78 61 6d 70 6c 65 0a 28 73 75 62 73 65 71 20 22 61 62 63 22 20 3c 43 2d | les:..@example.(subseq."abc".<C- |
| 2561c0 | 63 20 43 2d 73 3e 0a 20 20 2d 2d 69 6e 73 65 72 74 73 2d 2d 3e 20 73 74 61 72 74 20 5b 65 6e 64 | c.C-s>...--inserts-->.start.[end |
| 2561e0 | 5d 29 0a 28 66 69 6e 64 20 31 37 20 3c 43 2d 63 20 43 2d 73 3e 0a 20 20 2d 2d 69 6e 73 65 72 74 | ]).(find.17.<C-c.C-s>...--insert |
| 256200 | 73 2d 2d 3e 20 73 65 71 75 65 6e 63 65 20 3a 66 72 6f 6d 2d 65 6e 64 20 66 72 6f 6d 2d 65 6e 64 | s-->.sequence.:from-end.from-end |
| 256220 | 20 3a 74 65 73 74 20 74 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 | .:test.test................:test |
| 256240 | 2d 6e 6f 74 20 74 65 73 74 2d 6e 6f 74 20 3a 73 74 61 72 74 20 73 74 61 72 74 20 3a 65 6e 64 20 | -not.test-not.:start.start.:end. |
| 256260 | 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 6b 65 79 29 0a 28 66 69 | end................:key.key).(fi |
| 256280 | 6e 64 20 31 37 20 27 28 31 37 20 31 38 20 31 39 29 20 3a 74 65 73 74 20 23 27 3d 20 3c 43 2d 63 | nd.17.'(17.18.19).:test.#'=.<C-c |
| 2562a0 | 20 43 2d 73 3e 0a 20 20 2d 2d 69 6e 73 65 72 74 73 2d 2d 3e 20 3a 66 72 6f 6d 2d 65 6e 64 20 66 | .C-s>...--inserts-->.:from-end.f |
| 2562c0 | 72 6f 6d 2d 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 2d 6e 6f 74 | rom-end................:test-not |
| 2562e0 | 20 74 65 73 74 2d 6e 6f 74 20 3a 73 74 61 72 74 20 73 74 61 72 74 20 3a 65 6e 64 20 65 6e 64 0a | .test-not.:start.start.:end.end. |
| 256300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 6b 65 79 29 0a 28 64 65 66 63 6c 61 | ...............:key.key).(defcla |
| 256320 | 73 73 20 66 6f 6f 20 28 29 20 28 28 62 61 72 20 3a 69 6e 69 74 61 72 67 20 3a 62 61 72 29 29 29 | ss.foo.().((bar.:initarg.:bar))) |
| 256340 | 0a 28 64 65 66 6d 65 74 68 6f 64 20 70 72 69 6e 74 2d 6f 62 6a 65 63 74 20 3c 43 2d 63 20 43 2d | .(defmethod.print-object.<C-c.C- |
| 256360 | 73 3e 0a 20 20 2d 2d 69 6e 73 65 72 74 73 2d 2d 3e 20 20 20 28 6f 62 6a 65 63 74 20 73 74 72 65 | s>...--inserts-->...(object.stre |
| 256380 | 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 6f 64 79 2e 2e 2e 29 0a 28 64 65 66 | am)................body...).(def |
| 2563a0 | 6d 65 74 68 6f 64 20 69 6e 69 74 69 61 6c 69 7a 65 2d 69 6e 73 74 61 6e 63 65 20 3a 61 66 74 65 | method.initialize-instance.:afte |
| 2563c0 | 72 20 28 28 6f 62 6a 65 63 74 20 66 6f 6f 29 20 26 6b 65 79 20 62 6c 75 62 29 29 0a 28 6d 61 6b | r.((object.foo).&key.blub)).(mak |
| 2563e0 | 65 2d 69 6e 73 74 61 6e 63 65 20 27 66 6f 6f 20 3c 43 2d 63 20 43 2d 73 3e 0a 20 20 2d 2d 69 6e | e-instance.'foo.<C-c.C-s>...--in |
| 256400 | 73 65 72 74 73 2d 2d 3e 20 3a 62 61 72 20 62 61 72 20 3a 62 6c 75 62 20 62 6c 75 62 20 69 6e 69 | serts-->.:bar.bar.:blub.blub.ini |
| 256420 | 74 61 72 67 73 2e 2e 2e 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 40 65 6e 64 20 74 61 62 6c | targs...).@end.example.@end.tabl |
| 256440 | 65 0a 0a 40 6e 6f 64 65 20 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 0a 40 73 65 63 74 69 | e..@node.Fuzzy.Completion.@secti |
| 256460 | 6f 6e 20 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 0a 0a 54 68 65 20 70 61 63 6b 61 67 65 | on.Fuzzy.Completion..The.package |
| 256480 | 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 66 75 7a 7a 79 7d 20 69 6d 70 6c 65 6d 65 6e 74 73 20 79 | .@code{slime-fuzzy}.implements.y |
| 2564a0 | 65 74 20 61 6e 6f 74 68 65 72 20 73 79 6d 62 6f 6c 0a 63 6f 6d 70 6c 65 74 69 6f 6e 20 68 65 75 | et.another.symbol.completion.heu |
| 2564c0 | 72 69 73 74 69 63 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 61 6e 63 68 6f 72 7b 73 6c 69 | ristic...@table.@kbd.@anchor{sli |
| 2564e0 | 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 7d 0a 40 6b 62 64 69 74 | me-fuzzy-complete-symbol}.@kbdit |
| 256500 | 65 6d 7b 43 2d 63 20 4d 2d 69 2c 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 | em{C-c.M-i,.slime-fuzzy-complete |
| 256520 | 2d 73 79 6d 62 6f 6c 7d 0a 50 72 65 73 65 6e 74 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 6b 65 | -symbol}.Presents.a.list.of.like |
| 256540 | 6c 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 74 6f 20 63 68 6f 6f 73 65 20 66 72 6f 6d 20 66 6f | ly.completions.to.choose.from.fo |
| 256560 | 72 20 61 6e 0a 61 62 62 72 65 76 69 61 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2e 20 20 49 66 20 | r.an.abbreviation.at.point...If. |
| 256580 | 79 6f 75 20 73 65 74 20 74 68 65 0a 76 61 72 69 61 62 6c 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 | you.set.the.variable.@code{slime |
| 2565a0 | 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 7d 20 74 6f 20 74 68 | -complete-symbol-function}.to.th |
| 2565c0 | 69 73 20 63 6f 6d 6d 61 6e 64 2c 20 66 75 7a 7a 79 0a 63 6f 6d 70 6c 65 74 69 6f 6e 20 77 69 6c | is.command,.fuzzy.completion.wil |
| 2565e0 | 6c 20 61 6c 73 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 40 6b 62 64 7b 4d 2d 54 41 42 7d 2e 0a | l.also.be.used.for.@kbd{M-TAB}.. |
| 256600 | 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 54 68 65 20 41 6c 67 6f | @end.table..@subsection.The.Algo |
| 256620 | 72 69 74 68 6d 0a 0a 49 74 20 61 74 74 65 6d 70 74 73 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 61 | rithm..It.attempts.to.complete.a |
| 256640 | 20 73 79 6d 62 6f 6c 20 61 6c 6c 20 61 74 20 6f 6e 63 65 2c 20 69 6e 73 74 65 61 64 20 6f 66 20 | .symbol.all.at.once,.instead.of. |
| 256660 | 69 6e 20 70 69 65 63 65 73 2e 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 60 60 6d 76 62 27 27 20 | in.pieces..For.example,.``mvb''. |
| 256680 | 77 69 6c 6c 20 66 69 6e 64 20 60 60 40 63 6f 64 65 7b 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | will.find.``@code{multiple-value |
| 2566a0 | 2d 62 69 6e 64 7d 27 27 20 61 6e 64 0a 60 60 6e 6f 72 6d 2d 64 66 27 27 20 77 69 6c 6c 20 66 69 | -bind}''.and.``norm-df''.will.fi |
| 2566c0 | 6e 64 0a 60 60 40 63 6f 64 65 7b 6c 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d 6e 6f 72 6d 61 6c | nd.``@code{least-positive-normal |
| 2566e0 | 69 7a 65 64 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 7d 27 27 2e 0a 0a 54 68 65 20 61 6c 67 6f 72 | ized-double-float}''...The.algor |
| 256700 | 69 74 68 6d 20 74 72 69 65 73 20 74 6f 20 65 78 70 61 6e 64 20 65 76 65 72 79 20 63 68 61 72 61 | ithm.tries.to.expand.every.chara |
| 256720 | 63 74 65 72 20 69 6e 20 76 61 72 69 6f 75 73 20 77 61 79 73 20 61 6e 64 0a 72 61 74 65 73 20 74 | cter.in.various.ways.and.rates.t |
| 256740 | 68 65 20 6c 69 73 74 20 6f 66 20 70 6f 73 73 69 62 6c 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 | he.list.of.possible.completions. |
| 256760 | 77 69 74 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 68 65 75 72 69 73 74 69 63 2e 0a 0a 4c | with.the.following.heuristic...L |
| 256780 | 65 74 74 65 72 73 20 61 72 65 20 67 69 76 65 6e 20 73 63 6f 72 65 73 20 62 61 73 65 64 20 6f 6e | etters.are.given.scores.based.on |
| 2567a0 | 20 74 68 65 69 72 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 74 68 65 20 73 74 72 69 6e 67 2e 0a 4c | .their.position.in.the.string..L |
| 2567c0 | 65 74 74 65 72 73 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 20 73 74 72 | etters.at.the.beginning.of.a.str |
| 2567e0 | 69 6e 67 20 6f 72 20 61 66 74 65 72 20 61 20 70 72 65 66 69 78 20 6c 65 74 74 65 72 20 61 74 0a | ing.or.after.a.prefix.letter.at. |
| 256800 | 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 20 73 74 72 69 6e 67 20 61 72 65 20 73 63 | the.beginning.of.a.string.are.sc |
| 256820 | 6f 72 65 64 20 68 69 67 68 65 73 74 2e 20 20 4c 65 74 74 65 72 73 20 61 66 74 65 72 20 61 0a 77 | ored.highest...Letters.after.a.w |
| 256840 | 6f 72 64 20 73 65 70 61 72 61 74 6f 72 20 73 75 63 68 20 61 73 20 23 5c 2d 20 61 72 65 20 73 63 | ord.separator.such.as.#\-.are.sc |
| 256860 | 6f 72 65 64 20 6e 65 78 74 20 68 69 67 68 65 73 74 2e 20 20 4c 65 74 74 65 72 73 20 61 74 0a 74 | ored.next.highest...Letters.at.t |
| 256880 | 68 65 20 65 6e 64 20 6f 66 20 61 20 73 74 72 69 6e 67 20 6f 72 20 62 65 66 6f 72 65 20 61 20 73 | he.end.of.a.string.or.before.a.s |
| 2568a0 | 75 66 66 69 78 20 6c 65 74 74 65 72 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 61 0a 73 74 72 | uffix.letter.at.the.end.of.a.str |
| 2568c0 | 69 6e 67 20 61 72 65 20 73 63 6f 72 65 64 20 6d 65 64 69 75 6d 2c 20 61 6e 64 20 6c 65 74 74 65 | ing.are.scored.medium,.and.lette |
| 2568e0 | 72 73 20 61 6e 79 77 68 65 72 65 20 65 6c 73 65 20 61 72 65 20 73 63 6f 72 65 64 0a 6c 6f 77 2e | rs.anywhere.else.are.scored.low. |
| 256900 | 0a 0a 49 66 20 61 20 6c 65 74 74 65 72 20 69 73 20 64 69 72 65 63 74 6c 79 20 61 66 74 65 72 20 | ..If.a.letter.is.directly.after. |
| 256920 | 61 6e 6f 74 68 65 72 20 6d 61 74 63 68 65 64 20 6c 65 74 74 65 72 2c 20 61 6e 64 20 69 74 73 0a | another.matched.letter,.and.its. |
| 256940 | 69 6e 74 72 69 6e 73 69 63 20 76 61 6c 75 65 20 69 6e 20 74 68 61 74 20 70 6f 73 69 74 69 6f 6e | intrinsic.value.in.that.position |
| 256960 | 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 61 20 70 65 72 63 65 6e 74 61 67 65 20 6f 66 20 74 68 | .is.less.than.a.percentage.of.th |
| 256980 | 65 0a 70 72 65 76 69 6f 75 73 20 6c 65 74 74 65 72 27 73 20 76 61 6c 75 65 2c 20 69 74 20 77 69 | e.previous.letter's.value,.it.wi |
| 2569a0 | 6c 6c 20 75 73 65 20 74 68 61 74 20 70 65 72 63 65 6e 74 61 67 65 20 69 6e 73 74 65 61 64 2e 0a | ll.use.that.percentage.instead.. |
| 2569c0 | 0a 46 69 6e 61 6c 6c 79 2c 20 61 20 73 6d 61 6c 6c 20 73 63 61 6c 69 6e 67 20 66 61 63 74 6f 72 | .Finally,.a.small.scaling.factor |
| 2569e0 | 20 69 73 20 61 70 70 6c 69 65 64 20 74 6f 20 66 61 76 6f 72 20 73 68 6f 72 74 65 72 0a 6d 61 74 | .is.applied.to.favor.shorter.mat |
| 256a00 | 63 68 65 73 2c 20 61 6c 6c 20 6f 74 68 65 72 20 74 68 69 6e 67 73 20 62 65 69 6e 67 20 65 71 75 | ches,.all.other.things.being.equ |
| 256a20 | 61 6c 2e 0a 0a 40 73 75 62 73 65 63 74 69 6f 6e 20 44 75 70 6c 69 63 61 74 65 20 53 79 6d 62 6f | al...@subsection.Duplicate.Symbo |
| 256a40 | 6c 73 0a 0a 49 6e 20 63 61 73 65 20 61 20 73 79 6d 62 6f 6c 20 69 73 20 61 63 63 65 73 73 69 62 | ls..In.case.a.symbol.is.accessib |
| 256a60 | 6c 65 20 76 69 61 20 73 65 76 65 72 61 6c 20 70 61 63 6b 61 67 65 73 2c 20 64 75 70 6c 69 63 61 | le.via.several.packages,.duplica |
| 256a80 | 74 65 20 73 79 6d 62 6f 6c 0a 66 69 6c 74 65 72 20 73 70 65 63 69 66 69 65 64 20 76 69 61 20 40 | te.symbol.filter.specified.via.@ |
| 256aa0 | 63 6f 64 65 7b 2a 66 75 7a 7a 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c | code{*fuzzy-duplicate-symbol-fil |
| 256ac0 | 74 65 72 2a 7d 20 73 77 61 6e 6b 0a 76 61 72 69 61 62 6c 65 20 69 73 20 61 70 70 6c 69 65 64 2e | ter*}.swank.variable.is.applied. |
| 256ae0 | 20 40 63 6f 64 65 7b 3a 6e 65 61 72 65 73 74 2d 70 61 63 6b 61 67 65 7d 20 76 61 6c 75 65 20 73 | .@code{:nearest-package}.value.s |
| 256b00 | 70 65 63 69 66 69 65 73 20 74 68 61 74 20 6f 6e 6c 79 0a 73 79 6d 62 6f 6c 73 20 69 6e 20 74 68 | pecifies.that.only.symbols.in.th |
| 256b20 | 65 20 70 61 63 6b 61 67 65 20 77 69 74 68 20 68 69 67 68 65 73 74 20 73 63 6f 72 65 20 73 68 6f | e.package.with.highest.score.sho |
| 256b40 | 75 6c 64 20 62 65 20 6b 65 70 74 2e 0a 40 63 6f 64 65 7b 3a 68 6f 6d 65 2d 70 61 63 6b 61 67 65 | uld.be.kept..@code{:home-package |
| 256b60 | 7d 20 73 70 65 63 69 66 69 65 73 20 74 68 61 74 20 6f 6e 6c 79 20 74 68 65 20 6d 61 74 63 68 20 | }.specifies.that.only.the.match. |
| 256b80 | 74 68 61 74 20 72 65 70 72 65 73 65 6e 74 73 20 74 68 65 20 68 6f 6d 65 0a 70 61 63 6b 61 67 65 | that.represents.the.home.package |
| 256ba0 | 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 75 73 65 64 2c 20 61 6e 64 20 40 63 6f 64 | .of.the.symbol.is.used,.and.@cod |
| 256bc0 | 65 7b 3a 61 6c 6c 7d 20 76 61 6c 75 65 20 73 70 65 63 69 66 69 65 73 20 74 68 61 74 0a 64 75 70 | e{:all}.value.specifies.that.dup |
| 256be0 | 6c 69 63 61 74 65 20 73 79 6d 62 6f 6c 20 66 69 6c 74 65 72 20 6d 6f 64 65 20 73 68 6f 75 6c 64 | licate.symbol.filter.mode.should |
| 256c00 | 20 62 65 20 74 75 72 6e 65 64 20 6f 66 66 2e 0a 0a 54 6f 20 73 70 65 63 69 66 79 20 61 20 63 75 | .be.turned.off...To.specify.a.cu |
| 256c20 | 73 74 6f 6d 20 66 69 6c 74 65 72 2c 20 73 65 74 20 40 63 6f 64 65 7b 2a 66 75 7a 7a 79 2d 64 75 | stom.filter,.set.@code{*fuzzy-du |
| 256c40 | 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c 74 65 72 2a 7d 0a 74 6f 20 61 20 66 75 6e | plicate-symbol-filter*}.to.a.fun |
| 256c60 | 63 74 69 6f 6e 20 61 63 63 65 70 74 69 6e 67 20 74 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 3a | ction.accepting.three.arguments: |
| 256c80 | 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 70 61 63 6b 61 67 65 20 62 65 69 6e 67 0a 65 78 61 6d 69 | .the.name.of.package.being.exami |
| 256ca0 | 6e 65 64 2c 20 74 68 65 20 6c 69 73 74 20 6f 66 20 6e 61 6d 65 73 20 6f 66 20 61 6c 6c 20 70 61 | ned,.the.list.of.names.of.all.pa |
| 256cc0 | 63 6b 61 67 65 73 20 62 65 69 6e 67 20 65 78 61 6d 69 6e 65 64 20 77 69 74 68 0a 70 61 63 6b 61 | ckages.being.examined.with.packa |
| 256ce0 | 67 65 73 20 77 69 74 68 20 68 69 67 68 65 73 74 20 6d 61 74 63 68 69 6e 67 20 73 63 6f 72 65 20 | ges.with.highest.matching.score. |
| 256d00 | 6c 69 73 74 65 64 20 66 69 72 73 74 20 61 6e 64 20 61 6e 20 40 63 6f 64 65 7b 65 71 75 61 6c 7d | listed.first.and.an.@code{equal} |
| 256d20 | 0a 68 61 73 68 2d 74 61 62 6c 65 20 74 68 61 74 20 69 73 20 73 68 61 72 65 64 20 62 65 74 77 65 | .hash-table.that.is.shared.betwe |
| 256d40 | 65 6e 20 63 61 6c 6c 73 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 63 61 6e | en.calls.to.the.function.and.can |
| 256d60 | 20 62 65 0a 75 73 65 64 20 66 6f 72 20 64 65 64 75 70 6c 69 63 61 74 69 6f 6e 20 70 75 72 70 6f | .be.used.for.deduplication.purpo |
| 256d80 | 73 65 73 2e 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 | ses..The.function.should.return. |
| 256da0 | 61 0a 64 65 64 75 70 6c 69 63 61 74 69 6f 6e 20 66 69 6c 74 65 72 20 66 75 6e 63 74 69 6f 6e 20 | a.deduplication.filter.function. |
| 256dc0 | 77 68 69 63 68 20 61 63 63 65 70 74 73 20 61 20 73 79 6d 62 6f 6c 20 61 6e 64 20 72 65 74 75 72 | which.accepts.a.symbol.and.retur |
| 256de0 | 6e 73 20 74 72 75 65 0a 69 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 73 68 6f 75 6c 64 20 62 65 20 | ns.true.if.the.symbol.should.be. |
| 256e00 | 6b 65 70 74 2e 0a 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 65 20 65 66 66 65 63 74 20 6f | kept...For.example,.the.effect.o |
| 256e20 | 66 20 40 63 6f 64 65 7b 3a 6e 65 61 72 65 73 74 2d 70 61 63 6b 61 67 65 7d 20 63 61 6e 20 62 65 | f.@code{:nearest-package}.can.be |
| 256e40 | 20 61 6c 73 6f 20 61 63 68 69 65 76 65 64 0a 62 79 20 73 70 65 63 69 66 79 69 6e 67 20 74 68 65 | .also.achieved.by.specifying.the |
| 256e60 | 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 75 73 74 6f 6d 20 66 69 6c 74 65 72 20 69 6e 20 40 66 69 6c | .following.custom.filter.in.@fil |
| 256e80 | 65 7b 7e 2f 2e 73 77 61 6e 6b 2e 6c 69 73 70 7d 3a 0a 40 65 78 61 6d 70 6c 65 0a 28 73 65 74 66 | e{~/.swank.lisp}:.@example.(setf |
| 256ea0 | 20 2a 66 75 7a 7a 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c 74 65 72 2a | .*fuzzy-duplicate-symbol-filter* |
| 256ec0 | 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 75 72 2d 70 61 63 6b 61 67 65 20 61 6c 6c 2d | .......(lambda.(cur-package.all- |
| 256ee0 | 70 61 63 6b 61 67 65 73 20 64 65 64 75 70 2d 74 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 28 64 | packages.dedup-table).........(d |
| 256f00 | 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 75 72 2d 70 61 63 6b 61 67 65 20 61 6c 6c 2d 70 | eclare.(ignore.cur-package.all-p |
| 256f20 | 61 63 6b 61 67 65 73 29 29 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 62 6f | ackages)).........(lambda.(symbo |
| 256f40 | 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 67 65 74 68 61 73 68 20 28 | l)............(unless.(gethash.( |
| 256f60 | 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 20 64 65 64 75 70 2d 74 61 62 6c 65 29 | symbol-name.symbol).dedup-table) |
| 256f80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 28 73 | ...............(setf.(gethash.(s |
| 256fa0 | 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 20 64 65 64 75 70 2d 74 61 62 6c 65 29 20 | ymbol-name.symbol).dedup-table). |
| 256fc0 | 74 29 29 29 29 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 41 6e 64 20 69 6e 73 74 65 61 64 20 | t))))).@end.example.And.instead. |
| 256fe0 | 6f 66 20 40 63 6f 64 65 7b 3a 68 6f 6d 65 2d 70 61 63 6b 61 67 65 7d 2c 20 74 68 65 20 66 6f 6c | of.@code{:home-package},.the.fol |
| 257000 | 6c 6f 77 69 6e 67 20 63 61 6e 20 62 65 20 75 73 65 64 3a 0a 40 65 78 61 6d 70 6c 65 0a 28 73 65 | lowing.can.be.used:.@example.(se |
| 257020 | 74 66 20 2a 66 75 7a 7a 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c 74 65 | tf.*fuzzy-duplicate-symbol-filte |
| 257040 | 72 2a 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 75 72 2d 70 61 63 6b 61 67 65 20 61 6c | r*.......(lambda.(cur-package.al |
| 257060 | 6c 2d 70 61 63 6b 61 67 65 73 20 64 65 64 75 70 2d 74 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 | l-packages.dedup-table)......... |
| 257080 | 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 64 65 64 75 70 2d 74 61 62 6c 65 29 29 0a 20 | (declare.(ignore.dedup-table)).. |
| 2570a0 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 73 20 28 6d 61 70 63 61 72 20 23 | .......(let.((packages.(mapcar.# |
| 2570c0 | 27 66 69 6e 64 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 'find-package................... |
| 2570e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 63 75 72 2d 70 61 63 6b 61 67 | ..............(remove.cur-packag |
| 257100 | 65 20 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 | e.all-packages))))...........(la |
| 257120 | 6d 62 64 61 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 | mbda.(symbol).............(not.( |
| 257140 | 6d 65 6d 62 65 72 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 73 79 6d 62 6f 6c 29 20 70 | member.(symbol-package.symbol).p |
| 257160 | 61 63 6b 61 67 65 73 29 29 29 29 29 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 40 6e 6f 64 | ackages)))))).@end.example..@nod |
| 257180 | 65 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 0a 40 73 65 63 74 69 6f 6e 20 40 63 | e.slime-autodoc-mode.@section.@c |
| 2571a0 | 6f 64 65 7b 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 7d 0a 0a 41 75 74 6f 64 6f 63 | ode{slime-autodoc-mode}..Autodoc |
| 2571c0 | 20 6d 6f 64 65 20 69 73 20 61 6e 20 61 64 64 69 74 69 6f 6e 61 6c 20 6d 69 6e 6f 72 2d 6d 6f 64 | .mode.is.an.additional.minor-mod |
| 2571e0 | 65 20 66 6f 72 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 68 6f 77 69 6e 67 0a 69 6e 66 6f | e.for.automatically.showing.info |
| 257200 | 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 73 79 6d 62 6f 6c 73 20 6e 65 61 72 20 74 68 65 20 70 | rmation.about.symbols.near.the.p |
| 257220 | 6f 69 6e 74 2e 20 46 6f 72 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 20 74 68 65 0a 61 72 67 | oint..For.function.names.the.arg |
| 257240 | 75 6d 65 6e 74 20 6c 69 73 74 20 69 73 20 64 69 73 70 6c 61 79 65 64 2c 20 61 6e 64 20 66 6f 72 | ument.list.is.displayed,.and.for |
| 257260 | 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 2c 20 74 68 65 20 76 61 6c 75 65 2e 0a 41 75 | .global.variables,.the.value..Au |
| 257280 | 74 6f 64 6f 63 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 20 6d 65 61 6e 73 20 6f 66 | todoc.is.implemented.by.means.of |
| 2572a0 | 20 40 63 6f 64 65 7b 65 6c 64 6f 63 2d 6d 6f 64 65 7d 20 6f 66 20 45 6d 61 63 73 2e 0a 0a 54 68 | .@code{eldoc-mode}.of.Emacs...Th |
| 2572c0 | 65 20 6d 6f 64 65 20 63 61 6e 20 62 65 20 65 6e 61 62 6c 65 64 20 62 79 20 64 65 66 61 75 6c 74 | e.mode.can.be.enabled.by.default |
| 2572e0 | 20 69 6e 20 79 6f 75 72 20 40 63 6f 64 65 7b 7e 2f 2e 65 6d 61 63 73 7d 3a 0a 40 65 78 61 6d 70 | .in.your.@code{~/.emacs}:.@examp |
| 257300 | 6c 65 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 20 | le.(add-to-list.'slime-contribs. |
| 257320 | 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 40 74 | 'slime-autodoc).@end.example..@t |
| 257340 | 61 62 6c 65 20 40 6b 62 64 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 61 72 67 6c 69 73 74 | able.@kbd.@cmditem{slime-arglist |
| 257360 | 20 4e 41 4d 45 7d 0a 53 68 6f 77 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 6f 66 | .NAME}.Show.the.argument.list.of |
| 257380 | 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 4e 41 4d 45 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c | .the.function.NAME...@cmditem{sl |
| 2573a0 | 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 7d 0a 54 6f 67 67 6c 65 73 20 61 75 74 6f 64 6f | ime-autodoc-mode}.Toggles.autodo |
| 2573c0 | 63 2d 6d 6f 64 65 20 6f 6e 20 6f 72 20 6f 66 66 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 | c-mode.on.or.off.according.to.th |
| 2573e0 | 65 20 61 72 67 75 6d 65 6e 74 2c 20 61 6e 64 0a 74 6f 67 67 6c 65 73 20 74 68 65 20 6d 6f 64 65 | e.argument,.and.toggles.the.mode |
| 257400 | 20 77 68 65 6e 20 69 6e 76 6f 6b 65 64 20 77 69 74 68 6f 75 74 20 61 72 67 75 6d 65 6e 74 2e 0a | .when.invoked.without.argument.. |
| 257420 | 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 64 20 61 2c 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f | @kbditem{C-c.C-d.a,.slime-autodo |
| 257440 | 63 2d 6d 61 6e 75 61 6c 6c 79 7d 0a 4c 69 6b 65 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2c 20 | c-manually}.Like.slime-autodoc,. |
| 257460 | 62 75 74 20 77 68 65 6e 20 63 61 6c 6c 65 64 20 74 77 69 63 65 2c 0a 6f 72 20 61 66 74 65 72 20 | but.when.called.twice,.or.after. |
| 257480 | 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 20 77 61 73 20 61 6c 72 65 61 64 79 20 61 75 74 6f 6d 61 | slime-autodoc.was.already.automa |
| 2574a0 | 74 69 63 61 6c 6c 79 20 63 61 6c 6c 65 64 2c 0a 64 69 73 70 6c 61 79 20 6d 75 6c 74 69 6c 69 6e | tically.called,.display.multilin |
| 2574c0 | 65 20 61 72 67 6c 69 73 74 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 76 69 6e 64 65 78 20 73 | e.arglist..@end.table..@vindex.s |
| 2574e0 | 6c 69 6d 65 2d 75 73 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 0a 49 66 20 74 68 65 20 76 61 72 | lime-use-autodoc-mode.If.the.var |
| 257500 | 69 61 62 6c 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 75 73 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f | iable.@code{slime-use-autodoc-mo |
| 257520 | 64 65 7d 20 69 73 20 73 65 74 20 28 64 65 66 61 75 6c 74 29 2c 20 45 6d 61 63 73 0a 73 74 61 72 | de}.is.set.(default),.Emacs.star |
| 257540 | 74 73 20 61 20 74 69 6d 65 72 2c 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 69 6e 66 6f 72 6d | ts.a.timer,.otherwise.the.inform |
| 257560 | 61 74 69 6f 6e 20 69 73 20 6f 6e 6c 79 20 64 69 73 70 6c 61 79 65 64 20 61 66 74 65 72 0a 70 72 | ation.is.only.displayed.after.pr |
| 257580 | 65 73 73 69 6e 67 20 53 50 43 2e 0a 0a 40 76 69 6e 64 65 78 20 73 6c 69 6d 65 2d 61 75 74 6f 64 | essing.SPC...@vindex.slime-autod |
| 2575a0 | 6f 63 2d 75 73 65 2d 6d 75 6c 74 69 6c 69 6e 65 2d 70 0a 49 66 20 40 63 6f 64 65 7b 73 6c 69 6d | oc-use-multiline-p.If.@code{slim |
| 2575c0 | 65 2d 61 75 74 6f 64 6f 63 2d 75 73 65 2d 6d 75 6c 74 69 6c 69 6e 65 2d 70 7d 20 69 73 20 73 65 | e-autodoc-use-multiline-p}.is.se |
| 2575e0 | 74 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 0a 61 6c 6c 6f 77 20 6c 6f 6e 67 20 61 75 74 6f 64 6f 63 | t.to.non-nil,.allow.long.autodoc |
| 257600 | 20 6d 65 73 73 61 67 65 73 20 74 6f 20 72 65 73 69 7a 65 20 65 63 68 6f 20 61 72 65 61 20 64 69 | .messages.to.resize.echo.area.di |
| 257620 | 73 70 6c 61 79 2e 0a 0a 40 76 69 6e 64 65 78 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f | splay...@vindex.slime-autodoc-mo |
| 257640 | 64 65 2d 73 74 72 69 6e 67 0a 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f | de-string.@code{slime-autodoc-mo |
| 257660 | 64 65 2d 73 74 72 69 6e 67 7d 20 69 73 20 61 20 73 74 72 69 6e 67 20 74 68 61 74 20 77 69 6c 6c | de-string}.is.a.string.that.will |
| 257680 | 20 62 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e 0a 74 68 65 20 6d 6f 64 65 20 6c 69 6e 65 20 77 | .be.displayed.in.the.mode.line.w |
| 2576a0 | 68 65 6e 20 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 20 69 73 20 65 6e 61 62 6c 65 64 2c 20 6f 72 20 | hen.autodoc-mode.is.enabled,.or. |
| 2576c0 | 6e 69 6c 2c 20 69 66 20 79 6f 75 20 70 72 65 66 65 72 20 6e 6f 0a 69 6e 64 69 63 61 74 69 6f 6e | nil,.if.you.prefer.no.indication |
| 2576e0 | 2e 20 59 6f 75 20 63 61 6e 20 63 75 73 74 6f 6d 69 7a 65 20 74 68 69 73 20 76 61 72 69 61 62 6c | ..You.can.customize.this.variabl |
| 257700 | 65 2e 0a 0a 40 6e 6f 64 65 20 41 53 44 46 0a 40 73 65 63 74 69 6f 6e 20 41 53 44 46 0a 0a 40 61 | e...@node.ASDF.@section.ASDF..@a |
| 257720 | 63 72 6f 6e 79 6d 7b 41 53 44 46 7d 20 69 73 20 61 20 70 6f 70 75 6c 61 72 20 60 60 73 79 73 74 | cronym{ASDF}.is.a.popular.``syst |
| 257740 | 65 6d 20 63 6f 6e 73 74 72 75 63 74 69 6f 6e 20 74 6f 6f 6c 27 27 2e 20 20 54 68 65 20 70 61 63 | em.construction.tool''...The.pac |
| 257760 | 6b 61 67 65 0a 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 61 73 64 66 7d 20 70 72 6f 76 69 64 65 73 20 | kage.@code{slime-asdf}.provides. |
| 257780 | 73 6f 6d 65 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 6c 6f 61 64 20 61 6e 64 20 63 6f 6d 70 69 6c | some.commands.to.load.and.compil |
| 2577a0 | 65 20 73 75 63 68 0a 73 79 73 74 65 6d 73 20 66 72 6f 6d 20 45 6d 61 63 73 2e 20 20 40 61 63 72 | e.such.systems.from.Emacs...@acr |
| 2577c0 | 6f 6e 79 6d 7b 41 53 44 46 7d 20 69 74 73 65 6c 66 20 69 73 20 6e 6f 74 20 69 6e 63 6c 75 64 65 | onym{ASDF}.itself.is.not.include |
| 2577e0 | 64 20 77 69 74 68 0a 40 53 4c 49 4d 45 7b 7d 3b 20 79 6f 75 20 68 61 76 65 20 74 6f 20 6c 6f 61 | d.with.@SLIME{};.you.have.to.loa |
| 257800 | 64 20 74 68 61 74 20 79 6f 75 72 73 65 6c 66 20 69 6e 74 6f 20 79 6f 75 72 20 4c 69 73 70 2e 20 | d.that.yourself.into.your.Lisp.. |
| 257820 | 20 49 6e 0a 70 61 72 74 69 63 75 6c 61 72 2c 20 79 6f 75 20 6d 75 73 74 20 6c 6f 61 64 20 40 61 | .In.particular,.you.must.load.@a |
| 257840 | 63 72 6f 6e 79 6d 7b 41 53 44 46 7d 20 62 65 66 6f 72 65 20 79 6f 75 20 63 6f 6e 6e 65 63 74 2c | cronym{ASDF}.before.you.connect, |
| 257860 | 20 6f 74 68 65 72 77 69 73 65 0a 79 6f 75 20 77 69 6c 6c 20 67 65 74 20 65 72 72 6f 72 73 20 61 | .otherwise.you.will.get.errors.a |
| 257880 | 62 6f 75 74 20 6d 69 73 73 69 6e 67 20 73 79 6d 62 6f 6c 73 2e 0a 0a 40 74 61 62 6c 65 20 40 6b | bout.missing.symbols...@table.@k |
| 2578a0 | 62 64 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 6c 6f 61 64 2d 73 79 73 74 65 6d 20 4e 41 | bd.@cmditem{slime-load-system.NA |
| 2578c0 | 4d 45 7d 0a 43 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 61 6e 20 41 53 44 46 20 73 79 73 | ME}.Compile.and.load.an.ASDF.sys |
| 2578e0 | 74 65 6d 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 73 79 73 74 65 6d 20 6e 61 6d 65 20 69 73 | tem...The.default.system.name.is |
| 257900 | 20 74 61 6b 65 6e 0a 66 72 6f 6d 20 74 68 65 20 66 69 72 73 74 20 66 69 6c 65 20 6d 61 74 63 68 | .taken.from.the.first.file.match |
| 257920 | 69 6e 67 20 2a 2e 61 73 64 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f | ing.*.asd.in.the.current.directo |
| 257940 | 72 79 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 72 65 6c 6f 61 64 2d 73 79 73 74 65 6d | ry..@cmditem{slime-reload-system |
| 257960 | 20 4e 41 4d 45 7d 0a 52 65 63 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 61 6e 20 41 53 44 | .NAME}.Recompile.and.load.an.ASD |
| 257980 | 46 20 73 79 73 74 65 6d 20 77 69 74 68 6f 75 74 20 72 65 63 6f 6d 70 69 6c 69 6e 67 20 69 74 73 | F.system.without.recompiling.its |
| 2579a0 | 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 6f 70 | .dependencies..@cmditem{slime-op |
| 2579c0 | 65 6e 2d 73 79 73 74 65 6d 20 4e 41 4d 45 20 26 6f 70 74 69 6f 6e 61 6c 20 4c 4f 41 44 7d 0a 4f | en-system.NAME.&optional.LOAD}.O |
| 2579e0 | 70 65 6e 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20 61 20 73 79 73 74 65 6d 2c 20 6f 70 74 69 6f | pen.all.files.in.a.system,.optio |
| 257a00 | 6e 61 6c 6c 79 20 6c 6f 61 64 20 69 74 20 69 66 20 4c 4f 41 44 20 69 73 20 6e 6f 6e 2d 6e 69 6c | nally.load.it.if.LOAD.is.non-nil |
| 257a20 | 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 62 72 6f 77 73 65 2d 73 79 73 74 65 6d 20 4e | ..@cmditem{slime-browse-system.N |
| 257a40 | 41 4d 45 7d 0a 42 72 6f 77 73 65 20 66 69 6c 65 73 20 69 6e 20 61 20 73 79 73 74 65 6d 20 75 73 | AME}.Browse.files.in.a.system.us |
| 257a60 | 69 6e 67 20 44 69 72 65 64 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 64 65 6c 65 74 65 | ing.Dired..@cmditem{slime-delete |
| 257a80 | 2d 73 79 73 74 65 6d 2d 66 61 73 6c 73 20 4e 41 4d 45 7d 0a 44 65 6c 65 74 65 20 46 41 53 4c 73 | -system-fasls.NAME}.Delete.FASLs |
| 257aa0 | 20 70 72 6f 64 75 63 65 64 20 62 79 20 63 6f 6d 70 69 6c 69 6e 67 20 61 20 73 79 73 74 65 6d 2e | .produced.by.compiling.a.system. |
| 257ac0 | 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 72 67 72 65 70 2d 73 79 73 74 65 6d 20 4e 41 4d | .@cmditem{slime-rgrep-system.NAM |
| 257ae0 | 45 20 52 45 47 45 58 50 7d 0a 52 75 6e 20 40 63 6f 64 65 7b 72 67 72 65 70 7d 20 6f 6e 20 74 68 | E.REGEXP}.Run.@code{rgrep}.on.th |
| 257b00 | 65 20 62 61 73 65 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 61 6e 20 41 53 44 46 20 73 79 73 74 | e.base.directory.of.an.ASDF.syst |
| 257b20 | 65 6d 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 69 73 65 61 72 63 68 2d 73 79 73 74 65 | em..@cmditem{slime-isearch-syste |
| 257b40 | 6d 20 4e 41 4d 45 7d 0a 52 75 6e 20 40 63 6f 64 65 7b 69 73 65 61 72 63 68 2d 66 6f 72 77 61 72 | m.NAME}.Run.@code{isearch-forwar |
| 257b60 | 64 7d 20 6f 6e 20 74 68 65 20 66 69 6c 65 73 20 6f 66 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 | d}.on.the.files.of.an.ASDF.syste |
| 257b80 | 6d 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 2d | m..@cmditem{slime-query-replace- |
| 257ba0 | 73 79 73 74 65 6d 20 4e 41 4d 45 20 46 52 4f 4d 20 54 4f 20 26 4f 50 54 49 4f 4e 41 4c 20 44 45 | system.NAME.FROM.TO.&OPTIONAL.DE |
| 257bc0 | 4c 49 4d 49 54 45 44 7d 0a 52 75 6e 20 40 63 6f 64 65 7b 71 75 65 72 79 2d 72 65 70 6c 61 63 65 | LIMITED}.Run.@code{query-replace |
| 257be0 | 7d 20 6f 6e 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a | }.on.an.ASDF.system..@end.table. |
| 257c00 | 54 68 65 20 70 61 63 6b 61 67 65 20 61 6c 73 6f 20 69 6e 73 74 61 6c 6c 73 20 73 6f 6d 65 20 6e | The.package.also.installs.some.n |
| 257c20 | 65 77 20 52 45 50 4c 20 73 68 6f 72 74 63 75 74 73 20 28 40 70 78 72 65 66 7b 53 68 6f 72 74 63 | ew.REPL.shortcuts.(@pxref{Shortc |
| 257c40 | 75 74 73 7d 29 3a 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 69 74 65 6d 20 6c 6f 61 64 2d 73 | uts}):..@table.@kbd.@item.load-s |
| 257c60 | 79 73 74 65 6d 0a 43 6f 6d 70 69 6c 65 20 28 61 73 20 6e 65 65 64 65 64 29 20 61 6e 64 20 6c 6f | ystem.Compile.(as.needed).and.lo |
| 257c80 | 61 64 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e 0a 40 69 74 65 6d 20 72 65 6c 6f 61 64 2d | ad.an.ASDF.system..@item.reload- |
| 257ca0 | 73 79 73 74 65 6d 0a 52 65 63 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 61 6e 20 41 53 44 | system.Recompile.and.load.an.ASD |
| 257cc0 | 46 20 73 79 73 74 65 6d 2e 0a 40 69 74 65 6d 20 63 6f 6d 70 69 6c 65 2d 73 79 73 74 65 6d 0a 43 | F.system..@item.compile-system.C |
| 257ce0 | 6f 6d 70 69 6c 65 20 28 62 75 74 20 6e 6f 74 20 6c 6f 61 64 29 20 61 6e 20 41 53 44 46 20 73 79 | ompile.(but.not.load).an.ASDF.sy |
| 257d00 | 73 74 65 6d 2e 0a 40 69 74 65 6d 20 66 6f 72 63 65 2d 63 6f 6d 70 69 6c 65 2d 73 79 73 74 65 6d | stem..@item.force-compile-system |
| 257d20 | 0a 52 65 63 6f 6d 70 69 6c 65 20 28 62 75 74 20 6e 6f 74 20 6c 6f 61 64 29 20 61 6e 20 41 53 44 | .Recompile.(but.not.load).an.ASD |
| 257d40 | 46 20 73 79 73 74 65 6d 2e 0a 40 69 74 65 6d 20 66 6f 72 63 65 2d 6c 6f 61 64 2d 73 79 73 74 65 | F.system..@item.force-load-syste |
| 257d60 | 6d 0a 52 65 63 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 61 6e 20 41 53 44 46 20 73 79 73 | m.Recompile.and.load.an.ASDF.sys |
| 257d80 | 74 65 6d 2e 0a 40 69 74 65 6d 20 6f 70 65 6e 2d 73 79 73 74 65 6d 0a 4f 70 65 6e 20 61 6c 6c 20 | tem..@item.open-system.Open.all. |
| 257da0 | 66 69 6c 65 73 20 69 6e 20 61 20 73 79 73 74 65 6d 2e 0a 40 69 74 65 6d 20 62 72 6f 77 73 65 2d | files.in.a.system..@item.browse- |
| 257dc0 | 73 79 73 74 65 6d 0a 42 72 6f 77 73 65 20 66 69 6c 65 73 20 69 6e 20 61 20 73 79 73 74 65 6d 20 | system.Browse.files.in.a.system. |
| 257de0 | 75 73 69 6e 67 20 44 69 72 65 64 2e 0a 40 69 74 65 6d 20 64 65 6c 65 74 65 2d 73 79 73 74 65 6d | using.Dired..@item.delete-system |
| 257e00 | 2d 66 61 73 6c 73 0a 44 65 6c 65 74 65 20 46 41 53 4c 73 20 70 72 6f 64 75 63 65 64 20 62 79 20 | -fasls.Delete.FASLs.produced.by. |
| 257e20 | 63 6f 6d 70 69 6c 69 6e 67 20 61 20 73 79 73 74 65 6d 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a | compiling.a.system..@end.table.. |
| 257e40 | 40 6e 6f 64 65 20 42 61 6e 6e 65 72 0a 40 73 65 63 74 69 6f 6e 20 42 61 6e 6e 65 72 0a 54 68 65 | @node.Banner.@section.Banner.The |
| 257e60 | 20 70 61 63 6b 61 67 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 62 61 6e 6e 65 72 7d 20 69 6e 73 | .package.@code{slime-banner}.ins |
| 257e80 | 74 61 6c 6c 73 20 61 20 77 69 6e 64 6f 77 20 68 65 61 64 65 72 20 6c 69 6e 65 20 28 0a 40 69 6e | talls.a.window.header.line.(.@in |
| 257ea0 | 66 6f 72 65 66 7b 48 65 61 64 65 72 20 4c 69 6e 65 73 2c 20 2c 20 65 6c 69 73 70 7d 2e 29 20 69 | foref{Header.Lines,.,.elisp}.).i |
| 257ec0 | 6e 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 2e 20 20 49 74 20 61 6c 73 6f 20 72 75 6e 73 | n.the.REPL.buffer...It.also.runs |
| 257ee0 | 20 61 6e 0a 61 6e 69 6d 61 74 69 6f 6e 20 61 74 20 73 74 61 72 74 75 70 2e 0a 0a 40 76 69 6e 64 | .an.animation.at.startup...@vind |
| 257f00 | 65 78 20 73 6c 69 6d 65 2d 73 74 61 72 74 75 70 2d 61 6e 69 6d 61 74 69 6f 6e 0a 40 76 69 6e 64 | ex.slime-startup-animation.@vind |
| 257f20 | 65 78 20 73 6c 69 6d 65 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 70 0a 42 79 20 73 65 74 74 69 6e | ex.slime-header-line-p.By.settin |
| 257f40 | 67 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 73 74 61 72 74 | g.the.variable.@code{slime-start |
| 257f60 | 75 70 2d 61 6e 69 6d 61 74 69 6f 6e 7d 20 74 6f 20 6e 69 6c 20 79 6f 75 20 63 61 6e 0a 64 69 73 | up-animation}.to.nil.you.can.dis |
| 257f80 | 61 62 6c 65 20 74 68 65 20 61 6e 69 6d 61 74 69 6f 6e 20 72 65 73 70 65 63 74 69 76 65 6c 79 20 | able.the.animation.respectively. |
| 257fa0 | 77 69 74 68 20 74 68 65 0a 76 61 72 69 61 62 6c 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 68 65 | with.the.variable.@code{slime-he |
| 257fc0 | 61 64 65 72 2d 6c 69 6e 65 2d 70 7d 20 74 68 65 20 68 65 61 64 65 72 20 6c 69 6e 65 2e 0a 0a 40 | ader-line-p}.the.header.line...@ |
| 257fe0 | 6e 6f 64 65 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 0a 40 73 65 63 74 69 6f 6e 20 45 | node.Editing.Commands.@section.E |
| 258000 | 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 0a 0a 54 68 65 20 70 61 63 6b 61 67 65 20 40 63 6f | diting.Commands..The.package.@co |
| 258020 | 64 65 7b 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 63 6f 6d 6d 61 6e 64 73 7d 20 70 72 6f 76 69 | de{slime-editing-commands}.provi |
| 258040 | 64 65 73 20 73 6f 6d 65 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 0a 65 64 69 74 20 4c 69 73 70 20 65 | des.some.commands.to.edit.Lisp.e |
| 258060 | 78 70 72 65 73 73 69 6f 6e 73 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 | xpressions...@table.@kbd.@kbdite |
| 258080 | 6d 7b 43 2d 63 20 4d 2d 71 2c 20 73 6c 69 6d 65 2d 72 65 69 6e 64 65 6e 74 2d 64 65 66 75 6e 7d | m{C-c.M-q,.slime-reindent-defun} |
| 2580a0 | 0a 52 65 2d 69 6e 64 65 6e 74 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 75 6e 2c 20 6f | .Re-indents.the.current.defun,.o |
| 2580c0 | 72 20 72 65 66 69 6c 6c 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 72 61 67 72 61 70 68 2e | r.refills.the.current.paragraph. |
| 2580e0 | 0a 49 66 20 70 6f 69 6e 74 20 69 73 20 69 6e 73 69 64 65 20 61 20 63 6f 6d 6d 65 6e 74 20 62 6c | .If.point.is.inside.a.comment.bl |
| 258100 | 6f 63 6b 2c 20 74 68 65 20 74 65 78 74 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 20 77 69 6c 6c 20 | ock,.the.text.around.point.will. |
| 258120 | 62 65 0a 74 72 65 61 74 65 64 20 61 73 20 61 20 70 61 72 61 67 72 61 70 68 20 61 6e 64 20 77 69 | be.treated.as.a.paragraph.and.wi |
| 258140 | 6c 6c 20 62 65 20 66 69 6c 6c 65 64 20 77 69 74 68 20 40 63 6f 64 65 7b 66 69 6c 6c 2d 70 61 72 | ll.be.filled.with.@code{fill-par |
| 258160 | 61 67 72 61 70 68 7d 2e 0a 4f 74 68 65 72 77 69 73 65 2c 20 69 74 20 77 69 6c 6c 20 62 65 20 74 | agraph}..Otherwise,.it.will.be.t |
| 258180 | 72 65 61 74 65 64 20 61 73 20 4c 69 73 70 20 63 6f 64 65 2c 20 61 6e 64 20 74 68 65 20 63 75 72 | reated.as.Lisp.code,.and.the.cur |
| 2581a0 | 72 65 6e 74 20 64 65 66 75 6e 0a 77 69 6c 6c 20 62 65 20 72 65 69 6e 64 65 6e 74 65 64 2e 20 20 | rent.defun.will.be.reindented... |
| 2581c0 | 49 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 75 6e 20 68 61 73 20 75 6e 62 61 6c 61 6e | If.the.current.defun.has.unbalan |
| 2581e0 | 63 65 64 20 70 61 72 65 6e 73 2c 0a 61 6e 20 61 74 74 65 6d 70 74 20 77 69 6c 6c 20 62 65 20 6d | ced.parens,.an.attempt.will.be.m |
| 258200 | 61 64 65 20 74 6f 20 66 69 78 20 69 74 20 62 65 66 6f 72 65 20 72 65 69 6e 64 65 6e 74 69 6e 67 | ade.to.fix.it.before.reindenting |
| 258220 | 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 5d 2c 20 73 6c 69 6d 65 2d 63 6c 6f 73 65 | ...@kbditem{C-c.C-],.slime-close |
| 258240 | 2d 61 6c 6c 2d 70 61 72 65 6e 73 2d 69 6e 2d 73 65 78 70 7d 0a 42 61 6c 61 6e 63 65 20 70 61 72 | -all-parens-in-sexp}.Balance.par |
| 258260 | 65 6e 74 68 65 73 65 73 20 6f 66 20 6f 70 65 6e 20 73 2d 65 78 70 72 65 73 73 69 6f 6e 73 20 61 | entheses.of.open.s-expressions.a |
| 258280 | 74 20 70 6f 69 6e 74 2e 0a 49 6e 73 65 72 74 20 65 6e 6f 75 67 68 20 72 69 67 68 74 20 70 61 72 | t.point..Insert.enough.right.par |
| 2582a0 | 65 6e 74 68 65 73 65 73 20 74 6f 20 62 61 6c 61 6e 63 65 20 75 6e 6d 61 74 63 68 65 64 20 6c 65 | entheses.to.balance.unmatched.le |
| 2582c0 | 66 74 20 70 61 72 65 6e 74 68 65 73 65 73 2e 0a 44 65 6c 65 74 65 20 65 78 74 72 61 20 6c 65 66 | ft.parentheses..Delete.extra.lef |
| 2582e0 | 74 20 70 61 72 65 6e 74 68 65 73 65 73 2e 20 20 52 65 66 6f 72 6d 61 74 20 74 72 61 69 6c 69 6e | t.parentheses...Reformat.trailin |
| 258300 | 67 20 70 61 72 65 6e 74 68 65 73 65 73 0a 4c 69 73 70 2d 73 74 79 6c 69 73 68 6c 79 2e 0a 0a 49 | g.parentheses.Lisp-stylishly...I |
| 258320 | 66 20 52 45 47 49 4f 4e 20 69 73 20 74 72 75 65 2c 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 | f.REGION.is.true,.operate.on.the |
| 258340 | 20 72 65 67 69 6f 6e 2e 20 4f 74 68 65 72 77 69 73 65 20 6f 70 65 72 61 74 65 20 6f 6e 0a 74 68 | .region..Otherwise.operate.on.th |
| 258360 | 65 20 74 6f 70 2d 6c 65 76 65 6c 20 73 65 78 70 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 0a | e.top-level.sexp.before.point... |
| 258380 | 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 62 61 6c 61 6e 63 65 64 2d 63 | @cmditem{slime-insert-balanced-c |
| 2583a0 | 6f 6d 6d 65 6e 74 73 7d 0a 49 6e 73 65 72 74 20 61 20 73 65 74 20 6f 66 20 62 61 6c 61 6e 63 65 | omments}.Insert.a.set.of.balance |
| 2583c0 | 64 20 63 6f 6d 6d 65 6e 74 73 20 61 72 6f 75 6e 64 20 74 68 65 20 73 2d 65 78 70 72 65 73 73 69 | d.comments.around.the.s-expressi |
| 2583e0 | 6f 6e 20 63 6f 6e 74 61 69 6e 69 6e 67 0a 74 68 65 20 70 6f 69 6e 74 2e 20 20 49 66 20 74 68 69 | on.containing.the.point...If.thi |
| 258400 | 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 69 6e 76 6f 6b 65 64 20 72 65 70 65 61 74 65 64 6c 79 20 | s.command.is.invoked.repeatedly. |
| 258420 | 28 77 69 74 68 6f 75 74 20 61 6e 79 20 6f 74 68 65 72 0a 63 6f 6d 6d 61 6e 64 20 6f 63 63 75 72 | (without.any.other.command.occur |
| 258440 | 72 69 6e 67 20 62 65 74 77 65 65 6e 20 69 6e 76 6f 63 61 74 69 6f 6e 73 29 2c 20 74 68 65 20 63 | ring.between.invocations),.the.c |
| 258460 | 6f 6d 6d 65 6e 74 20 70 72 6f 67 72 65 73 73 69 76 65 6c 79 0a 6d 6f 76 65 73 20 6f 75 74 77 61 | omment.progressively.moves.outwa |
| 258480 | 72 64 20 6f 76 65 72 20 65 6e 63 6c 6f 73 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 20 20 | rd.over.enclosing.expressions... |
| 2584a0 | 49 66 20 69 6e 76 6f 6b 65 64 20 77 69 74 68 20 61 20 70 6f 73 69 74 69 76 65 0a 70 72 65 66 69 | If.invoked.with.a.positive.prefi |
| 2584c0 | 78 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 65 20 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 61 72 67 | x.argument,.the.s-expression.arg |
| 2584e0 | 20 65 78 70 72 65 73 73 69 6f 6e 73 20 6f 75 74 20 69 73 20 65 6e 63 6c 6f 73 65 64 20 69 6e 20 | .expressions.out.is.enclosed.in. |
| 258500 | 61 0a 73 65 74 20 6f 66 20 62 61 6c 61 6e 63 65 64 20 63 6f 6d 6d 65 6e 74 73 2e 0a 0a 40 6b 62 | a.set.of.balanced.comments...@kb |
| 258520 | 64 69 74 65 6d 7b 4d 2d 43 2d 61 2c 20 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d | ditem{M-C-a,.slime-beginning-of- |
| 258540 | 64 65 66 75 6e 7d 0a 40 6b 62 64 69 74 65 6d 7b 4d 2d 43 2d 65 2c 20 73 6c 69 6d 65 2d 65 6e 64 | defun}.@kbditem{M-C-e,.slime-end |
| 258560 | 2d 6f 66 2d 64 65 66 75 6e 7d 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 6e 6f 64 65 20 46 61 6e | -of-defun}.@end.table..@node.Fan |
| 258580 | 63 79 20 49 6e 73 70 65 63 74 6f 72 0a 40 73 65 63 74 69 6f 6e 20 46 61 6e 63 79 20 49 6e 73 70 | cy.Inspector.@section.Fancy.Insp |
| 2585a0 | 65 63 74 6f 72 0a 0a 40 63 69 6e 64 65 78 20 4d 65 74 68 6f 64 73 0a 0a 41 6e 20 61 6c 74 65 72 | ector..@cindex.Methods..An.alter |
| 2585c0 | 6e 61 74 69 76 65 20 74 6f 20 64 65 66 61 75 6c 74 20 69 6e 73 70 65 63 74 6f 72 20 69 73 20 70 | native.to.default.inspector.is.p |
| 2585e0 | 72 6f 76 69 64 65 64 20 62 79 20 74 68 65 20 70 61 63 6b 61 67 65 0a 60 73 6c 69 6d 65 2d 66 61 | rovided.by.the.package.`slime-fa |
| 258600 | 6e 63 79 2d 69 6e 73 70 65 63 74 6f 72 27 2e 20 20 54 68 69 73 20 69 6e 73 70 65 63 74 6f 72 20 | ncy-inspector'...This.inspector. |
| 258620 | 6b 6e 6f 77 73 20 61 20 6c 6f 74 20 61 62 6f 75 74 20 43 4c 4f 53 0a 6f 62 6a 65 63 74 73 20 61 | knows.a.lot.about.CLOS.objects.a |
| 258640 | 6e 64 20 6d 65 74 68 6f 64 73 2e 20 20 49 74 20 70 72 6f 76 69 64 65 73 20 6d 61 6e 79 20 60 60 | nd.methods...It.provides.many.`` |
| 258660 | 61 63 74 69 6f 6e 73 27 27 20 74 68 61 74 20 63 61 6e 20 62 65 0a 73 65 6c 65 63 74 65 64 20 74 | actions''.that.can.be.selected.t |
| 258680 | 6f 20 69 6e 76 6f 6b 65 20 4c 69 73 70 20 63 6f 64 65 20 6f 6e 20 74 68 65 20 69 6e 73 70 65 63 | o.invoke.Lisp.code.on.the.inspec |
| 2586a0 | 74 65 64 20 6f 62 6a 65 63 74 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 6f 0a 70 72 65 73 | ted.object..For.example,.to.pres |
| 2586c0 | 65 6e 74 20 61 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 74 68 65 20 69 6e 73 70 65 | ent.a.generic.function.the.inspe |
| 2586e0 | 63 74 6f 72 20 73 68 6f 77 73 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 69 6e 0a | ctor.shows.the.documentation.in. |
| 258700 | 70 6c 61 69 6e 20 74 65 78 74 20 61 6e 64 20 70 72 65 73 65 6e 74 73 20 65 61 63 68 20 6d 65 74 | plain.text.and.presents.each.met |
| 258720 | 68 6f 64 20 77 69 74 68 20 62 6f 74 68 20 61 20 68 79 70 65 72 6c 69 6e 6b 20 74 6f 20 69 6e 73 | hod.with.both.a.hyperlink.to.ins |
| 258740 | 70 65 63 74 0a 74 68 65 20 6d 65 74 68 6f 64 20 6f 62 6a 65 63 74 20 61 6e 64 20 61 20 60 60 72 | pect.the.method.object.and.a.``r |
| 258760 | 65 6d 6f 76 65 20 6d 65 74 68 6f 64 27 27 20 61 63 74 69 6f 6e 20 74 68 61 74 20 79 6f 75 20 63 | emove.method''.action.that.you.c |
| 258780 | 61 6e 20 69 6e 76 6f 6b 65 0a 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2e 20 20 54 68 65 20 6b 65 | an.invoke.interactively...The.ke |
| 2587a0 | 79 2d 62 69 6e 64 69 6e 67 73 20 61 72 65 20 74 68 65 20 73 61 6d 65 20 61 73 20 66 6f 72 20 74 | y-bindings.are.the.same.as.for.t |
| 2587c0 | 68 65 20 62 61 73 69 63 0a 69 6e 73 70 65 63 74 6f 72 20 28 40 70 78 72 65 66 7b 49 6e 73 70 65 | he.basic.inspector.(@pxref{Inspe |
| 2587e0 | 63 74 6f 72 7d 29 2e 0a 0a 40 6e 6f 64 65 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 0a 40 73 65 | ctor})...@node.Presentations.@se |
| 258800 | 63 74 69 6f 6e 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 0a 0a 40 63 69 6e 64 65 78 20 50 72 65 | ction.Presentations..@cindex.Pre |
| 258820 | 73 65 6e 74 61 74 69 6f 6e 73 0a 0a 41 20 60 60 70 72 65 73 65 6e 74 61 74 69 6f 6e 27 27 40 66 | sentations..A.``presentation''@f |
| 258840 | 6f 6f 74 6e 6f 74 65 7b 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 61 72 65 20 61 20 66 65 61 74 | ootnote{Presentations.are.a.feat |
| 258860 | 75 72 65 20 6f 72 69 67 69 6e 61 74 69 6e 67 0a 66 72 6f 6d 20 74 68 65 20 4c 69 73 70 20 6d 61 | ure.originating.from.the.Lisp.ma |
| 258880 | 63 68 69 6e 65 73 2e 20 20 49 74 20 77 61 73 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 64 65 66 69 | chines...It.was.possible.to.defi |
| 2588a0 | 6e 65 20 40 63 6f 64 65 7b 70 72 65 73 65 6e 74 7d 0a 6d 65 74 68 6f 64 73 20 73 70 65 63 69 61 | ne.@code{present}.methods.specia |
| 2588c0 | 6c 69 7a 65 64 20 74 6f 20 76 61 72 69 6f 75 73 20 64 65 76 69 63 65 73 2c 20 65 2e 67 2e 20 74 | lized.to.various.devices,.e.g..t |
| 2588e0 | 6f 20 64 72 61 77 20 61 6e 20 6f 62 6a 65 63 74 20 74 6f 0a 62 69 74 6d 61 70 70 65 64 20 73 63 | o.draw.an.object.to.bitmapped.sc |
| 258900 | 72 65 65 6e 20 6f 72 20 74 6f 20 77 72 69 74 65 20 73 6f 6d 65 20 74 65 78 74 20 74 6f 20 61 20 | reen.or.to.write.some.text.to.a. |
| 258920 | 63 68 61 72 61 63 74 65 72 20 73 74 72 65 61 6d 2e 7d 20 69 6e 0a 40 53 4c 49 4d 45 7b 7d 20 69 | character.stream.}.in.@SLIME{}.i |
| 258940 | 73 20 61 20 72 65 67 69 6f 6e 20 6f 66 20 74 65 78 74 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 | s.a.region.of.text.associated.wi |
| 258960 | 74 68 20 61 20 4c 69 73 70 20 6f 62 6a 65 63 74 2e 0a 52 69 67 68 74 2d 63 6c 69 63 6b 69 6e 67 | th.a.Lisp.object..Right-clicking |
| 258980 | 20 6f 6e 20 74 68 65 20 74 65 78 74 20 62 72 69 6e 67 73 20 75 70 20 61 20 6d 65 6e 75 20 77 69 | .on.the.text.brings.up.a.menu.wi |
| 2589a0 | 74 68 20 6f 70 65 72 61 74 69 6f 6e 73 20 66 6f 72 20 74 68 65 0a 70 61 72 74 69 63 75 6c 61 72 | th.operations.for.the.particular |
| 2589c0 | 20 6f 62 6a 65 63 74 2e 20 20 53 6f 6d 65 20 6f 70 65 72 61 74 69 6f 6e 73 2c 20 6c 69 6b 65 20 | .object...Some.operations,.like. |
| 2589e0 | 69 6e 73 70 65 63 74 69 6e 67 2c 20 61 72 65 20 61 76 61 69 6c 61 62 6c 65 0a 66 6f 72 20 61 6c | inspecting,.are.available.for.al |
| 258a00 | 6c 20 6f 62 6a 65 63 74 73 2c 20 62 75 74 20 74 68 65 20 6f 62 6a 65 63 74 20 6d 61 79 20 61 6c | l.objects,.but.the.object.may.al |
| 258a20 | 73 6f 20 68 61 76 65 20 73 70 65 63 69 61 6c 69 7a 65 64 20 6f 70 65 72 61 74 69 6f 6e 73 2e 0a | so.have.specialized.operations.. |
| 258a40 | 46 6f 72 20 69 6e 73 74 61 6e 63 65 2c 20 70 61 74 68 6e 61 6d 65 73 20 68 61 76 65 20 61 20 64 | For.instance,.pathnames.have.a.d |
| 258a60 | 69 72 65 64 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 0a 4d 6f 72 65 20 69 6d 70 6f 72 74 61 6e 74 6c | ired.operation...More.importantl |
| 258a80 | 79 2c 20 69 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 63 75 74 20 61 6e 64 20 70 61 73 | y,.it.is.possible.to.cut.and.pas |
| 258aa0 | 74 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 28 69 2e 65 2e 2c 0a 4c 69 73 70 20 6f 62 6a | te.presentations.(i.e.,.Lisp.obj |
| 258ac0 | 65 63 74 73 2c 20 6e 6f 74 20 6a 75 73 74 20 74 68 65 69 72 20 70 72 69 6e 74 65 64 20 70 72 65 | ects,.not.just.their.printed.pre |
| 258ae0 | 73 65 6e 74 61 74 69 6f 6e 29 2c 20 75 73 69 6e 67 20 61 6c 6c 20 73 74 61 6e 64 61 72 64 0a 45 | sentation),.using.all.standard.E |
| 258b00 | 6d 61 63 73 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 54 68 69 73 20 77 61 79 20 69 74 20 69 73 20 70 | macs.commands...This.way.it.is.p |
| 258b20 | 6f 73 73 69 62 6c 65 20 74 6f 20 63 75 74 20 61 6e 64 20 70 61 73 74 65 20 74 68 65 20 72 65 73 | ossible.to.cut.and.paste.the.res |
| 258b40 | 75 6c 74 73 20 6f 66 0a 70 72 65 76 69 6f 75 73 20 63 6f 6d 70 75 74 61 74 69 6f 6e 73 20 69 6e | ults.of.previous.computations.in |
| 258b60 | 20 74 68 65 20 52 45 50 4c 2e 20 20 54 68 69 73 20 69 73 20 6f 66 20 70 61 72 74 69 63 75 6c 61 | .the.REPL...This.is.of.particula |
| 258b80 | 72 20 69 6d 70 6f 72 74 61 6e 63 65 20 66 6f 72 0a 75 6e 72 65 61 64 61 62 6c 65 20 6f 62 6a 65 | r.importance.for.unreadable.obje |
| 258ba0 | 63 74 73 2e 0a 0a 54 68 65 20 70 61 63 6b 61 67 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 70 72 | cts...The.package.@code{slime-pr |
| 258bc0 | 65 73 65 6e 74 61 74 69 6f 6e 73 7d 20 69 6e 73 74 61 6c 6c 73 20 70 72 65 73 65 6e 74 61 74 69 | esentations}.installs.presentati |
| 258be0 | 6f 6e 73 20 69 6e 20 74 68 65 0a 52 45 50 4c 2c 20 69 2e 65 2e 20 74 68 65 20 72 65 73 75 6c 74 | ons.in.the.REPL,.i.e..the.result |
| 258c00 | 73 20 6f 66 20 65 76 61 6c 75 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 20 62 65 63 6f 6d 65 20 | s.of.evaluation.commands.become. |
| 258c20 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 49 6e 0a 74 68 69 73 20 77 61 79 2c 20 70 72 65 | presentations...In.this.way,.pre |
| 258c40 | 73 65 6e 74 61 74 69 6f 6e 73 20 67 65 6e 65 72 61 6c 69 7a 65 20 74 68 65 20 75 73 65 20 6f 66 | sentations.generalize.the.use.of |
| 258c60 | 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 0a 52 45 50 4c 20 68 | .the.standard.Common.Lisp.REPL.h |
| 258c80 | 69 73 74 6f 72 79 20 76 61 72 69 61 62 6c 65 73 20 40 63 6f 64 65 7b 2a 7d 2c 20 40 63 6f 64 65 | istory.variables.@code{*},.@code |
| 258ca0 | 7b 2a 2a 7d 2c 20 40 63 6f 64 65 7b 2a 2a 2a 7d 2e 20 20 45 78 61 6d 70 6c 65 3a 0a 0a 40 65 78 | {**},.@code{***}...Example:..@ex |
| 258cc0 | 61 6d 70 6c 65 0a 43 4c 2d 55 53 45 52 3e 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 27 73 74 61 6e | ample.CL-USER>.(find-class.'stan |
| 258ce0 | 64 61 72 64 2d 63 6c 61 73 73 29 0a 40 65 6d 70 68 7b 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 | dard-class).@emph{#<STANDARD-CLA |
| 258d00 | 53 53 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 7d 0a 43 4c 2d 55 53 45 52 3e 0a 40 65 6e | SS.STANDARD-CLASS>}.CL-USER>.@en |
| 258d20 | 64 20 65 78 61 6d 70 6c 65 0a 0a 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 61 70 70 65 61 72 20 | d.example..Presentations.appear. |
| 258d40 | 69 6e 20 72 65 64 20 63 6f 6c 6f 72 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 0a 28 49 6e 20 | in.red.color.in.the.buffer..(In. |
| 258d60 | 74 68 69 73 20 6d 61 6e 75 61 6c 2c 20 77 65 20 69 6e 64 69 63 61 74 65 20 74 68 65 20 70 72 65 | this.manual,.we.indicate.the.pre |
| 258d80 | 73 65 6e 74 61 74 69 6f 6e 73 20 40 65 6d 70 68 7b 6c 69 6b 65 20 74 68 69 73 7d 2e 29 0a 55 73 | sentations.@emph{like.this}.).Us |
| 258da0 | 69 6e 67 20 73 74 61 6e 64 61 72 64 20 45 6d 61 63 73 0a 63 6f 6d 6d 61 6e 64 73 2c 20 74 68 65 | ing.standard.Emacs.commands,.the |
| 258dc0 | 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 63 61 6e 20 62 65 20 63 6f 70 69 65 64 20 74 6f 20 61 | .presentation.can.be.copied.to.a |
| 258de0 | 20 6e 65 77 20 69 6e 70 75 74 20 69 6e 20 74 68 65 20 52 45 50 4c 3a 0a 0a 40 65 78 61 6d 70 6c | .new.input.in.the.REPL:..@exampl |
| 258e00 | 65 0a 43 4c 2d 55 53 45 52 3e 20 28 65 71 6c 20 27 40 65 6d 70 68 7b 23 3c 53 54 41 4e 44 41 52 | e.CL-USER>.(eql.'@emph{#<STANDAR |
| 258e20 | 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 7d 0a 20 20 20 20 20 20 20 | D-CLASS.STANDARD-CLASS>}........ |
| 258e40 | 20 20 20 20 20 20 20 27 40 65 6d 70 68 7b 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 20 53 | .......'@emph{#<STANDARD-CLASS.S |
| 258e60 | 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 7d 29 0a 40 65 6d 70 68 7b 54 7d 0a 40 65 6e 64 20 65 | TANDARD-CLASS>}).@emph{T}.@end.e |
| 258e80 | 78 61 6d 70 6c 65 0a 0a 4e 6f 74 65 20 74 68 61 74 20 73 74 61 6e 64 61 72 64 20 65 76 61 6c 75 | xample..Note.that.standard.evalu |
| 258ea0 | 61 74 69 6f 6e 20 61 6e 64 20 71 75 6f 74 69 6e 67 20 72 75 6c 65 73 20 73 74 69 6c 6c 20 61 70 | ation.and.quoting.rules.still.ap |
| 258ec0 | 70 6c 79 2e 20 20 53 6f 20 69 66 20 61 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 69 73 20 61 20 | ply...So.if.a.presentation.is.a. |
| 258ee0 | 6c 69 73 74 2c 20 69 74 20 6e 65 65 64 73 20 74 6f 20 62 65 20 71 75 6f 74 65 64 20 69 6e 20 61 | list,.it.needs.to.be.quoted.in.a |
| 258f00 | 6e 20 65 76 61 6c 75 61 74 65 64 20 63 6f 6e 74 65 78 74 20 74 6f 0a 61 76 6f 69 64 20 74 72 65 | n.evaluated.context.to.avoid.tre |
| 258f20 | 61 74 69 6e 67 20 69 74 20 61 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 3a 0a 0a 40 65 | ating.it.as.a.function.call:..@e |
| 258f40 | 78 61 6d 70 6c 65 0a 43 4c 2d 55 53 45 52 3e 20 28 6c 69 73 74 20 28 66 69 6e 64 2d 63 6c 61 73 | xample.CL-USER>.(list.(find-clas |
| 258f60 | 73 20 27 73 74 61 6e 64 61 72 64 2d 63 6c 61 73 73 29 20 32 20 33 20 34 29 0a 40 65 6d 70 68 7b | s.'standard-class).2.3.4).@emph{ |
| 258f80 | 28 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 | (#<STANDARD-CLASS.STANDARD-CLASS |
| 258fa0 | 3e 20 32 20 33 20 34 29 7d 0a 43 4c 2d 55 53 45 52 3e 20 40 65 6d 70 68 7b 28 23 3c 53 54 41 4e | >.2.3.4)}.CL-USER>.@emph{(#<STAN |
| 258fc0 | 44 41 52 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 20 32 20 33 20 34 | DARD-CLASS.STANDARD-CLASS>.2.3.4 |
| 258fe0 | 29 7d 0a 3b 20 46 75 6e 63 61 6c 6c 20 6f 66 20 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 | )}.;.Funcall.of.#<STANDARD-CLASS |
| 259000 | 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 20 77 68 69 63 68 20 69 73 20 61 20 6e 6f 6e 2d | .STANDARD-CLASS>.which.is.a.non- |
| 259020 | 66 75 6e 63 74 69 6f 6e 2e 0a 3b 20 45 76 61 6c 75 61 74 69 6f 6e 20 61 62 6f 72 74 65 64 2e 0a | function..;.Evaluation.aborted.. |
| 259040 | 43 4c 2d 55 53 45 52 3e 20 27 40 65 6d 70 68 7b 28 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 | CL-USER>.'@emph{(#<STANDARD-CLAS |
| 259060 | 53 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 20 32 20 33 20 34 29 7d 0a 28 23 3c 53 54 41 | S.STANDARD-CLASS>.2.3.4)}.(#<STA |
| 259080 | 4e 44 41 52 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 20 32 20 33 20 | NDARD-CLASS.STANDARD-CLASS>.2.3. |
| 2590a0 | 34 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 57 68 65 6e 20 79 6f 75 20 63 6f 70 79 20 61 | 4).@end.example..When.you.copy.a |
| 2590c0 | 6e 20 69 6e 63 6f 6d 70 6c 65 74 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 72 20 65 64 69 | n.incomplete.presentation.or.edi |
| 2590e0 | 74 20 74 68 65 20 74 65 78 74 20 77 69 74 68 69 6e 20 61 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e | t.the.text.within.a.presentation |
| 259100 | 2c 20 74 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 63 68 61 6e 67 65 73 20 74 6f 20 70 6c | ,.the.presentation.changes.to.pl |
| 259120 | 61 69 6e 20 74 65 78 74 2c 20 6c 6f 73 69 6e 67 20 74 68 65 0a 61 73 73 6f 63 69 61 74 69 6f 6e | ain.text,.losing.the.association |
| 259140 | 20 77 69 74 68 20 61 20 4c 69 73 70 20 6f 62 6a 65 63 74 2e 20 20 49 6e 20 74 68 65 20 62 75 66 | .with.a.Lisp.object...In.the.buf |
| 259160 | 66 65 72 2c 20 74 68 69 73 20 69 73 20 69 6e 64 69 63 61 74 65 64 20 62 79 0a 63 68 61 6e 67 69 | fer,.this.is.indicated.by.changi |
| 259180 | 6e 67 20 74 68 65 20 63 6f 6c 6f 72 20 6f 66 20 74 68 65 20 74 65 78 74 20 66 72 6f 6d 20 72 65 | ng.the.color.of.the.text.from.re |
| 2591a0 | 64 20 74 6f 20 62 6c 61 63 6b 2e 20 20 54 68 69 73 20 63 61 6e 20 62 65 20 75 6e 64 6f 6e 65 2e | d.to.black...This.can.be.undone. |
| 2591c0 | 0a 0a 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 61 72 65 20 61 6c 73 6f 20 61 76 61 69 6c 61 62 | ..Presentations.are.also.availab |
| 2591e0 | 6c 65 20 69 6e 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 28 61 6c 6c 20 69 6e 73 70 65 63 74 | le.in.the.inspector.(all.inspect |
| 259200 | 61 62 6c 65 20 70 61 72 74 73 0a 61 72 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 29 20 61 6e | able.parts.are.presentations).an |
| 259220 | 64 20 74 68 65 20 64 65 62 75 67 67 65 72 20 28 61 6c 6c 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 | d.the.debugger.(all.local.variab |
| 259240 | 6c 65 73 20 61 72 65 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 29 2e 20 20 54 68 69 73 20 6d 61 | les.are.presentations)...This.ma |
| 259260 | 6b 65 73 20 69 74 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 65 76 61 6c 75 61 74 65 20 65 78 70 72 | kes.it.possible.to.evaluate.expr |
| 259280 | 65 73 73 69 6f 6e 73 20 69 6e 20 74 68 65 0a 52 45 50 4c 20 75 73 69 6e 67 20 6f 62 6a 65 63 74 | essions.in.the.REPL.using.object |
| 2592a0 | 73 20 74 68 61 74 20 61 70 70 65 61 72 20 69 6e 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 | s.that.appear.in.local.variables |
| 2592c0 | 20 6f 66 20 73 6f 6d 65 20 61 63 74 69 76 65 0a 64 65 62 75 67 67 65 72 20 66 72 61 6d 65 3b 20 | .of.some.active.debugger.frame;. |
| 2592e0 | 74 68 69 73 20 63 61 6e 20 62 65 20 6d 6f 72 65 20 63 6f 6e 76 65 6e 69 65 6e 74 20 74 68 61 6e | this.can.be.more.convenient.than |
| 259300 | 20 75 73 69 6e 67 20 40 63 6f 64 65 7b 4d 2d 78 0a 73 6c 64 62 2d 65 76 61 6c 2d 69 6e 2d 66 72 | .using.@code{M-x.sldb-eval-in-fr |
| 259320 | 61 6d 65 7d 2e 20 20 40 73 74 72 6f 6e 67 7b 57 61 72 6e 69 6e 67 3a 7d 20 54 68 65 20 70 72 65 | ame}...@strong{Warning:}.The.pre |
| 259340 | 73 65 6e 74 61 74 69 6f 6e 73 20 74 68 61 74 20 73 74 65 6d 20 66 72 6f 6d 0a 74 68 65 20 69 6e | sentations.that.stem.from.the.in |
| 259360 | 73 70 65 63 74 6f 72 20 61 6e 64 20 64 65 62 75 67 67 65 72 20 61 72 65 20 6f 6e 6c 79 20 76 61 | spector.and.debugger.are.only.va |
| 259380 | 6c 69 64 20 61 73 20 6c 6f 6e 67 20 61 73 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 | lid.as.long.as.the.corresponding |
| 2593a0 | 0a 62 75 66 66 65 72 73 20 61 72 65 20 6f 70 65 6e 2e 20 20 55 73 69 6e 67 20 74 68 65 6d 20 6c | .buffers.are.open...Using.them.l |
| 2593c0 | 61 74 65 72 20 63 61 6e 20 63 61 75 73 65 20 65 72 72 6f 72 73 20 6f 72 20 63 6f 6e 66 75 73 69 | ater.can.cause.errors.or.confusi |
| 2593e0 | 6e 67 0a 62 65 68 61 76 69 6f 72 2e 0a 0a 46 6f 72 20 73 6f 6d 65 20 4c 69 73 70 20 69 6d 70 6c | ng.behavior...For.some.Lisp.impl |
| 259400 | 65 6d 65 6e 74 61 74 69 6f 6e 73 20 79 6f 75 20 63 61 6e 20 61 6c 73 6f 20 69 6e 73 74 61 6c 6c | ementations.you.can.also.install |
| 259420 | 20 74 68 65 20 70 61 63 6b 61 67 65 0a 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 | .the.package.@code{slime-present |
| 259440 | 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 7d 2c 20 77 68 69 63 68 20 65 6e 61 62 6c 65 73 20 70 72 | ation-streams},.which.enables.pr |
| 259460 | 65 73 65 6e 74 61 74 69 6f 6e 73 20 6f 6e 20 74 68 65 0a 4c 69 73 70 20 40 63 6f 64 65 7b 2a 73 | esentations.on.the.Lisp.@code{*s |
| 259480 | 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 7d 20 73 74 72 65 61 6d 20 61 6e 64 20 73 69 6d 69 | tandard-output*}.stream.and.simi |
| 2594a0 | 6c 61 72 20 73 74 72 65 61 6d 73 2e 20 20 54 68 69 73 20 6d 65 61 6e 73 0a 74 68 61 74 20 6e 6f | lar.streams...This.means.that.no |
| 2594c0 | 74 20 6f 6e 6c 79 20 72 65 73 75 6c 74 73 0a 6f 66 20 63 6f 6d 70 75 74 61 74 69 6f 6e 73 2c 20 | t.only.results.of.computations,. |
| 2594e0 | 62 75 74 20 61 6c 73 6f 20 73 6f 6d 65 20 6f 62 6a 65 63 74 73 20 74 68 61 74 20 61 72 65 20 70 | but.also.some.objects.that.are.p |
| 259500 | 72 69 6e 74 65 64 20 74 6f 20 74 68 65 20 73 74 61 6e 64 61 72 64 0a 6f 75 74 70 75 74 20 28 61 | rinted.to.the.standard.output.(a |
| 259520 | 73 20 61 20 73 69 64 65 2d 65 66 66 65 63 74 20 6f 66 20 74 68 65 20 63 6f 6d 70 75 74 61 74 69 | s.a.side-effect.of.the.computati |
| 259540 | 6f 6e 29 20 61 72 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 0a 70 72 65 73 65 6e 74 61 | on).are.associated.with.presenta |
| 259560 | 74 69 6f 6e 73 2e 20 20 43 75 72 72 65 6e 74 6c 79 2c 20 61 6c 6c 20 75 6e 72 65 61 64 61 62 6c | tions...Currently,.all.unreadabl |
| 259580 | 65 20 6f 62 6a 65 63 74 73 0a 61 6e 64 20 70 61 74 68 6e 61 6d 65 73 20 67 65 74 20 70 72 69 6e | e.objects.and.pathnames.get.prin |
| 2595a0 | 74 65 64 20 61 73 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 0a 0a 40 65 78 61 6d 70 6c 65 0a | ted.as.presentations...@example. |
| 2595c0 | 43 4c 2d 55 53 45 52 3e 20 28 64 65 73 63 72 69 62 65 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 27 | CL-USER>.(describe.(find-class.' |
| 2595e0 | 73 74 61 6e 64 61 72 64 2d 6f 62 6a 65 63 74 29 29 0a 40 65 6d 70 68 7b 23 3c 53 54 41 4e 44 41 | standard-object)).@emph{#<STANDA |
| 259600 | 52 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 52 44 2d 4f 42 4a 45 43 54 3e 7d 20 69 73 20 61 6e | RD-CLASS.STANDARD-OBJECT>}.is.an |
| 259620 | 20 69 6e 73 74 61 6e 63 65 20 6f 66 0a 20 20 20 20 40 65 6d 70 68 7b 23 3c 53 54 41 4e 44 41 52 | .instance.of.....@emph{#<STANDAR |
| 259640 | 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 7d 3a 0a 20 54 68 65 20 66 | D-CLASS.STANDARD-CLASS>}:..The.f |
| 259660 | 6f 6c 6c 6f 77 69 6e 67 20 73 6c 6f 74 73 20 68 61 76 65 20 3a 49 4e 53 54 41 4e 43 45 20 61 6c | ollowing.slots.have.:INSTANCE.al |
| 259680 | 6c 6f 63 61 74 69 6f 6e 3a 0a 20 20 50 4c 49 53 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | location:...PLIST............... |
| 2596a0 | 20 20 20 20 4e 49 4c 0a 20 20 46 4c 41 47 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....NIL...FLAGS................. |
| 2596c0 | 20 20 31 0a 20 20 44 49 52 45 43 54 2d 4d 45 54 48 4f 44 53 20 20 20 20 20 20 20 20 20 20 28 28 | ..1...DIRECT-METHODS..........(( |
| 2596e0 | 40 65 6d 70 68 7b 23 3c 53 54 41 4e 44 41 52 44 2d 4d 45 54 48 4f 44 0a 20 20 20 20 20 20 20 20 | @emph{#<STANDARD-METHOD......... |
| 259700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 57 41 4e 4b 3a 3a 41 4c 4c | ......................SWANK::ALL |
| 259720 | 2d 53 4c 4f 54 53 2d 46 4f 52 2d 49 4e 53 50 45 43 54 4f 52 0a 20 20 20 20 20 20 20 20 20 20 20 | -SLOTS-FOR-INSPECTOR............ |
| 259740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 53 54 41 4e 44 41 52 44 2d 4f 42 4a | ...................(STANDARD-OBJ |
| 259760 | 45 43 54 20 54 29 3e 7d 0a 20 20 2e 2e 2e 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 41 67 61 | ECT.T)>}.......@end.example..Aga |
| 259780 | 69 6e 2c 20 74 68 69 73 20 6d 61 6b 65 73 20 69 74 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 69 6e | in,.this.makes.it.possible.to.in |
| 2597a0 | 73 70 65 63 74 20 61 6e 64 20 63 6f 70 79 2d 70 61 73 74 65 20 74 68 65 73 65 20 6f 62 6a 65 63 | spect.and.copy-paste.these.objec |
| 2597c0 | 74 73 2e 0a 0a 49 6e 20 61 64 64 69 74 69 6f 6e 20 74 6f 20 74 68 65 20 73 74 61 6e 64 61 72 64 | ts...In.addition.to.the.standard |
| 2597e0 | 20 45 6d 61 63 73 20 63 6f 6d 6d 61 6e 64 73 2c 20 74 68 65 72 65 20 61 72 65 20 73 65 76 65 72 | .Emacs.commands,.there.are.sever |
| 259800 | 61 6c 20 6b 65 79 62 6f 61 72 64 0a 63 6f 6d 6d 61 6e 64 73 2c 20 61 20 6d 65 6e 75 2d 62 61 72 | al.keyboard.commands,.a.menu-bar |
| 259820 | 20 6d 65 6e 75 2c 20 61 6e 64 20 61 20 63 6f 6e 74 65 78 74 20 6d 65 6e 75 20 74 6f 20 6f 70 65 | .menu,.and.a.context.menu.to.ope |
| 259840 | 72 61 74 65 20 6f 6e 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 57 65 20 64 65 73 63 72 | rate.on.presentations...We.descr |
| 259860 | 69 62 65 20 74 68 65 20 6b 65 79 62 6f 61 72 64 20 63 6f 6d 6d 61 6e 64 73 20 62 65 6c 6f 77 3b | ibe.the.keyboard.commands.below; |
| 259880 | 20 74 68 65 79 20 61 72 65 20 61 6c 73 6f 0a 73 68 6f 77 6e 20 69 6e 20 74 68 65 20 6d 65 6e 75 | .they.are.also.shown.in.the.menu |
| 2598a0 | 2d 62 61 72 20 6d 65 6e 75 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d | -bar.menu...@table.@kbd.@kbditem |
| 2598c0 | 7b 43 2d 63 20 43 2d 76 20 53 50 43 2c 20 73 6c 69 6d 65 2d 6d 61 72 6b 2d 70 72 65 73 65 6e 74 | {C-c.C-v.SPC,.slime-mark-present |
| 2598e0 | 61 74 69 6f 6e 7d 0a 49 66 20 70 6f 69 6e 74 20 69 73 20 77 69 74 68 69 6e 20 61 20 70 72 65 73 | ation}.If.point.is.within.a.pres |
| 259900 | 65 6e 74 61 74 69 6f 6e 2c 20 6d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 62 65 67 69 | entation,.move.point.to.the.begi |
| 259920 | 6e 6e 69 6e 67 20 6f 66 20 74 68 65 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 61 6e 64 20 6d 61 | nning.of.the.presentation.and.ma |
| 259940 | 72 6b 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f | rk.to.the.end.of.the.presentatio |
| 259960 | 6e 2e 0a 54 68 69 73 20 6d 61 6b 65 73 20 69 74 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 63 6f 70 | n..This.makes.it.possible.to.cop |
| 259980 | 79 20 74 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d | y.the.presentation...@kbditem{C- |
| 2599a0 | 63 20 43 2d 76 20 77 2c 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e | c.C-v.w,.slime-copy-presentation |
| 2599c0 | 2d 61 74 2d 70 6f 69 6e 74 2d 74 6f 2d 6b 69 6c 6c 2d 72 69 6e 67 7d 0a 49 66 20 70 6f 69 6e 74 | -at-point-to-kill-ring}.If.point |
| 2599e0 | 20 69 73 20 77 69 74 68 69 6e 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 63 6f 70 79 20 | .is.within.a.presentation,.copy. |
| 259a00 | 74 68 65 20 73 75 72 72 6f 75 6e 64 69 6e 67 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 74 6f 20 | the.surrounding.presentation.to. |
| 259a20 | 74 68 65 20 6b 69 6c 6c 20 72 69 6e 67 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 76 | the.kill.ring...@kbditem{C-c.C-v |
| 259a40 | 20 72 2c 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 | .r,.slime-copy-presentation-at-p |
| 259a60 | 6f 69 6e 74 2d 74 6f 2d 72 65 70 6c 7d 0a 49 66 20 70 6f 69 6e 74 20 69 73 20 77 69 74 68 69 6e | oint-to-repl}.If.point.is.within |
| 259a80 | 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 63 6f 70 79 20 74 68 65 20 73 75 72 72 6f 75 | .a.presentation,.copy.the.surrou |
| 259aa0 | 6e 64 69 6e 67 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a 74 6f 20 74 68 65 20 52 45 50 4c 2e 0a | nding.presentation.to.the.REPL.. |
| 259ac0 | 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 76 20 64 2c 20 73 6c 69 6d 65 2d 64 65 73 63 72 | .@kbditem{C-c.C-v.d,.slime-descr |
| 259ae0 | 69 62 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 7d 0a 49 66 20 70 6f | ibe-presentation-at-point}.If.po |
| 259b00 | 69 6e 74 20 69 73 20 77 69 74 68 69 6e 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 64 65 | int.is.within.a.presentation,.de |
| 259b20 | 73 63 72 69 62 65 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 6f 62 6a 65 63 74 2e 0a 0a 40 | scribe.the.associated.object...@ |
| 259b40 | 6b 62 64 69 74 65 6d 7b 43 2d 63 20 43 2d 76 20 69 2c 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 | kbditem{C-c.C-v.i,.slime-inspect |
| 259b60 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 7d 0a 49 66 20 70 6f 69 6e 74 | -presentation-at-point}.If.point |
| 259b80 | 20 69 73 20 77 69 74 68 69 6e 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 69 6e 73 70 65 | .is.within.a.presentation,.inspe |
| 259ba0 | 63 74 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 6f 62 6a 65 63 74 20 77 69 74 68 0a 74 68 | ct.the.associated.object.with.th |
| 259bc0 | 65 20 40 53 4c 49 4d 45 7b 7d 20 69 6e 73 70 65 63 74 6f 72 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b | e.@SLIME{}.inspector...@kbditem{ |
| 259be0 | 43 2d 63 20 43 2d 76 20 6e 2c 20 73 6c 69 6d 65 2d 6e 65 78 74 2d 70 72 65 73 65 6e 74 61 74 69 | C-c.C-v.n,.slime-next-presentati |
| 259c00 | 6f 6e 7d 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 6e 65 78 74 20 70 72 65 73 65 | on}.Move.point.to.the.next.prese |
| 259c20 | 6e 74 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 0a 0a 40 6b 62 64 69 74 65 6d | ntation.in.the.buffer...@kbditem |
| 259c40 | 7b 43 2d 63 20 43 2d 76 20 70 2c 20 73 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 70 72 65 73 65 | {C-c.C-v.p,.slime-previous-prese |
| 259c60 | 6e 74 61 74 69 6f 6e 7d 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 70 72 65 76 69 | ntation}.Move.point.to.the.previ |
| 259c80 | 6f 75 73 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 0a | ous.presentation.in.the.buffer.. |
| 259ca0 | 0a 40 65 6e 64 20 74 61 62 6c 65 0a 53 69 6d 69 6c 61 72 20 6f 70 65 72 61 74 69 6f 6e 73 20 61 | .@end.table.Similar.operations.a |
| 259cc0 | 72 65 20 61 6c 73 6f 20 70 6f 73 73 69 62 6c 65 20 66 72 6f 6d 20 74 68 65 20 63 6f 6e 74 65 78 | re.also.possible.from.the.contex |
| 259ce0 | 74 20 6d 65 6e 75 20 6f 66 20 65 76 65 72 79 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 20 20 55 | t.menu.of.every.presentation...U |
| 259d00 | 73 69 6e 67 20 40 6b 62 64 7b 6d 6f 75 73 65 2d 33 7d 20 6f 6e 20 61 20 70 72 65 73 65 6e 74 61 | sing.@kbd{mouse-3}.on.a.presenta |
| 259d20 | 74 69 6f 6e 2c 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6d 65 6e 75 0a 6f 70 65 6e 73 20 61 6e 64 | tion,.the.context.menu.opens.and |
| 259d40 | 20 6f 66 66 65 72 73 20 76 61 72 69 6f 75 73 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 46 6f 72 20 73 | .offers.various.commands...For.s |
| 259d60 | 6f 6d 65 20 6f 62 6a 65 63 74 73 2c 20 73 70 65 63 69 61 6c 69 7a 65 64 0a 63 6f 6d 6d 61 6e 64 | ome.objects,.specialized.command |
| 259d80 | 73 20 61 72 65 20 61 6c 73 6f 20 6f 66 66 65 72 65 64 2e 20 20 55 73 65 72 73 20 63 61 6e 20 64 | s.are.also.offered...Users.can.d |
| 259da0 | 65 66 69 6e 65 20 61 64 64 69 74 69 6f 6e 61 6c 20 73 70 65 63 69 61 6c 69 7a 65 64 0a 63 6f 6d | efine.additional.specialized.com |
| 259dc0 | 6d 61 6e 64 73 20 62 79 20 64 65 66 69 6e 69 6e 67 20 61 20 6d 65 74 68 6f 64 20 66 6f 72 0a 40 | mands.by.defining.a.method.for.@ |
| 259de0 | 63 6f 64 65 7b 73 77 61 6e 6b 3a 3a 6d 65 6e 75 2d 63 68 6f 69 63 65 73 2d 66 6f 72 2d 70 72 65 | code{swank::menu-choices-for-pre |
| 259e00 | 73 65 6e 74 61 74 69 6f 6e 7d 2e 0a 0a 0a 40 73 74 72 6f 6e 67 7b 57 61 72 6e 69 6e 67 3a 7d 20 | sentation}....@strong{Warning:}. |
| 259e20 | 4f 6e 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 77 69 74 68 6f 75 74 20 | On.Lisp.implementations.without. |
| 259e40 | 77 65 61 6b 20 68 61 73 68 20 74 61 62 6c 65 73 2c 0a 61 6c 6c 20 6f 62 6a 65 63 74 73 20 61 73 | weak.hash.tables,.all.objects.as |
| 259e60 | 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 61 72 65 20 | sociated.with.presentations.are. |
| 259e80 | 70 72 6f 74 65 63 74 65 64 20 66 72 6f 6d 20 67 61 72 62 61 67 65 0a 63 6f 6c 6c 65 63 74 69 6f | protected.from.garbage.collectio |
| 259ea0 | 6e 2e 20 20 49 66 20 79 6f 75 72 20 4c 69 73 70 20 69 6d 61 67 65 20 67 72 6f 77 73 20 74 6f 6f | n...If.your.Lisp.image.grows.too |
| 259ec0 | 20 6c 61 72 67 65 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 61 74 2c 0a 75 73 65 20 40 6b 62 64 | .large.because.of.that,.use.@kbd |
| 259ee0 | 7b 43 2d 63 20 43 2d 76 20 4d 2d 6f 7d 20 28 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 63 6c 65 61 72 | {C-c.C-v.M-o}.(@code{slime-clear |
| 259f00 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 7d 29 20 74 6f 20 72 65 6d 6f 76 65 20 74 68 65 73 65 | -presentations}).to.remove.these |
| 259f20 | 0a 61 73 73 6f 63 69 61 74 69 6f 6e 73 2e 20 20 59 6f 75 20 63 61 6e 20 61 6c 73 6f 20 75 73 65 | .associations...You.can.also.use |
| 259f40 | 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 40 6b 62 64 7b 43 2d 63 20 4d 2d 6f 7d 0a 28 40 63 6f 64 | .the.command.@kbd{C-c.M-o}.(@cod |
| 259f60 | 65 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 62 75 66 66 65 72 7d 29 2c 20 77 68 69 | e{slime-repl-clear-buffer}),.whi |
| 259f80 | 63 68 20 62 6f 74 68 20 63 6c 65 61 72 73 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 20 61 | ch.both.clears.the.REPL.buffer.a |
| 259fa0 | 6e 64 0a 72 65 6d 6f 76 65 73 20 61 6c 6c 20 61 73 73 6f 63 69 61 74 69 6f 6e 73 20 6f 66 20 6f | nd.removes.all.associations.of.o |
| 259fc0 | 62 6a 65 63 74 73 20 77 69 74 68 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 0a 0a 40 73 74 72 | bjects.with.presentations...@str |
| 259fe0 | 6f 6e 67 7b 57 61 72 6e 69 6e 67 3a 7d 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 63 61 6e 20 | ong{Warning:}.Presentations.can. |
| 25a000 | 63 6f 6e 66 75 73 65 20 6e 65 77 20 75 73 65 72 73 2e 0a 0a 40 65 78 61 6d 70 6c 65 0a 43 4c 2d | confuse.new.users...@example.CL- |
| 25a020 | 55 53 45 52 3e 20 28 63 6f 6e 73 20 31 20 32 29 0a 40 65 6d 70 68 7b 28 31 20 2e 20 32 29 7d 0a | USER>.(cons.1.2).@emph{(1...2)}. |
| 25a040 | 43 4c 2d 55 53 45 52 3e 20 28 65 71 20 27 40 65 6d 70 68 7b 28 31 20 2e 20 32 29 7d 20 27 40 65 | CL-USER>.(eq.'@emph{(1...2)}.'@e |
| 25a060 | 6d 70 68 7b 28 31 20 2e 20 32 29 7d 29 0a 40 65 6d 70 68 7b 54 7d 0a 40 65 6e 64 20 65 78 61 6d | mph{(1...2)}).@emph{T}.@end.exam |
| 25a080 | 70 6c 65 0a 0a 4f 6e 65 20 63 6f 75 6c 64 20 68 61 76 65 20 65 78 70 65 63 74 65 64 20 40 63 6f | ple..One.could.have.expected.@co |
| 25a0a0 | 64 65 7b 4e 49 4c 7d 20 68 65 72 65 2c 20 62 65 63 61 75 73 65 20 69 74 20 6c 6f 6f 6b 73 20 6c | de{NIL}.here,.because.it.looks.l |
| 25a0c0 | 69 6b 65 20 74 77 6f 0a 66 72 65 73 68 20 63 6f 6e 73 20 63 65 6c 6c 73 20 61 72 65 20 63 6f 6d | ike.two.fresh.cons.cells.are.com |
| 25a0e0 | 70 61 72 65 64 20 72 65 67 61 72 64 69 6e 67 20 6f 62 6a 65 63 74 20 69 64 65 6e 74 69 74 79 2e | pared.regarding.object.identity. |
| 25a100 | 0a 48 6f 77 65 76 65 72 2c 20 69 6e 20 74 68 65 20 65 78 61 6d 70 6c 65 20 74 68 65 20 70 72 65 | .However,.in.the.example.the.pre |
| 25a120 | 73 65 6e 74 61 74 69 6f 6e 20 40 63 6f 64 65 7b 40 65 6d 70 68 7b 28 31 20 2e 20 32 29 7d 7d 20 | sentation.@code{@emph{(1...2)}}. |
| 25a140 | 77 61 73 20 63 6f 70 69 65 64 20 74 77 69 63 65 0a 74 6f 20 74 68 65 20 52 45 50 4c 2e 20 20 54 | was.copied.twice.to.the.REPL...T |
| 25a160 | 68 75 73 20 40 63 6f 64 65 7b 45 51 7d 20 69 73 20 72 65 61 6c 6c 79 20 69 6e 76 6f 6b 65 64 20 | hus.@code{EQ}.is.really.invoked. |
| 25a180 | 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 6f 62 6a 65 63 74 2c 0a 6e 61 6d 65 6c 79 20 74 68 65 | with.the.same.object,.namely.the |
| 25a1a0 | 20 63 6f 6e 73 20 63 65 6c 6c 20 74 68 61 74 20 77 61 73 20 72 65 74 75 72 6e 65 64 20 62 79 20 | .cons.cell.that.was.returned.by. |
| 25a1c0 | 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 65 6e 74 65 72 65 64 20 69 6e 20 74 68 65 0a 52 45 | the.first.form.entered.in.the.RE |
| 25a1e0 | 50 4c 2e 0a 0a 40 6e 6f 64 65 20 54 79 70 65 6f 75 74 20 66 72 61 6d 65 73 0a 40 73 65 63 74 69 | PL...@node.Typeout.frames.@secti |
| 25a200 | 6f 6e 20 54 79 70 65 6f 75 74 20 66 72 61 6d 65 73 0a 0a 40 63 69 6e 64 65 78 20 54 79 70 65 6f | on.Typeout.frames..@cindex.Typeo |
| 25a220 | 75 74 20 46 72 61 6d 65 0a 0a 41 20 60 60 74 79 70 65 6f 75 74 20 66 72 61 6d 65 27 27 20 69 73 | ut.Frame..A.``typeout.frame''.is |
| 25a240 | 20 61 20 73 70 65 63 69 61 6c 20 45 6d 61 63 73 20 66 72 61 6d 65 20 77 68 69 63 68 20 69 73 20 | .a.special.Emacs.frame.which.is. |
| 25a260 | 75 73 65 64 20 69 6e 73 74 65 61 64 20 6f 66 0a 74 68 65 20 65 63 68 6f 20 61 72 65 61 20 28 6d | used.instead.of.the.echo.area.(m |
| 25a280 | 69 6e 69 62 75 66 66 65 72 29 20 74 6f 20 64 69 73 70 6c 61 79 20 6d 65 73 73 61 67 65 73 20 66 | inibuffer).to.display.messages.f |
| 25a2a0 | 72 6f 6d 20 40 53 4c 49 4d 45 7b 7d 20 63 6f 6d 6d 61 6e 64 73 2e 0a 54 68 69 73 20 69 73 20 61 | rom.@SLIME{}.commands..This.is.a |
| 25a2c0 | 6e 20 6f 70 74 69 6f 6e 61 6c 20 66 65 61 74 75 72 65 2e 20 54 68 65 20 61 64 76 61 6e 74 61 67 | n.optional.feature..The.advantag |
| 25a2e0 | 65 20 6f 66 20 61 20 74 79 70 65 6f 75 74 20 66 72 61 6d 65 20 6f 76 65 72 20 74 68 65 0a 65 63 | e.of.a.typeout.frame.over.the.ec |
| 25a300 | 68 6f 20 61 72 65 61 20 69 73 20 74 68 61 74 20 69 74 20 63 61 6e 20 68 6f 6c 64 20 6d 6f 72 65 | ho.area.is.that.it.can.hold.more |
| 25a320 | 20 74 65 78 74 2c 20 69 74 20 63 61 6e 20 62 65 20 73 63 72 6f 6c 6c 65 64 2c 20 61 6e 64 20 69 | .text,.it.can.be.scrolled,.and.i |
| 25a340 | 74 73 0a 63 6f 6e 74 65 6e 74 73 20 64 6f 6e 27 74 20 64 69 73 61 70 70 65 61 72 20 77 68 65 6e | ts.contents.don't.disappear.when |
| 25a360 | 20 79 6f 75 20 70 72 65 73 73 20 61 20 6b 65 79 2e 20 41 6c 6c 20 70 6f 74 65 6e 74 69 61 6c 6c | .you.press.a.key..All.potentiall |
| 25a380 | 79 20 6c 6f 6e 67 0a 6d 65 73 73 61 67 65 73 20 61 72 65 20 73 65 6e 74 20 74 6f 20 74 68 65 20 | y.long.messages.are.sent.to.the. |
| 25a3a0 | 74 79 70 65 6f 75 74 20 66 72 61 6d 65 2c 20 73 75 63 68 20 61 73 20 61 72 67 75 6d 65 6e 74 20 | typeout.frame,.such.as.argument. |
| 25a3c0 | 6c 69 73 74 73 2c 20 6d 61 63 72 6f 0a 65 78 70 61 6e 73 69 6f 6e 73 2c 20 61 6e 64 20 73 6f 20 | lists,.macro.expansions,.and.so. |
| 25a3e0 | 6f 6e 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d | on...@table.@kbd.@cmditem{slime- |
| 25a400 | 65 6e 73 75 72 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 7d 0a 45 6e 73 75 72 65 20 74 68 61 | ensure-typeout-frame}.Ensure.tha |
| 25a420 | 74 20 61 20 74 79 70 65 6f 75 74 20 66 72 61 6d 65 20 65 78 69 73 74 73 2c 20 63 72 65 61 74 69 | t.a.typeout.frame.exists,.creati |
| 25a440 | 6e 67 20 6f 6e 65 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a | ng.one.if.necessary..@end.table. |
| 25a460 | 0a 49 66 20 74 68 65 20 74 79 70 65 6f 75 74 20 66 72 61 6d 65 20 69 73 20 63 6c 6f 73 65 64 20 | .If.the.typeout.frame.is.closed. |
| 25a480 | 74 68 65 6e 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20 | then.the.echo.area.will.be.used. |
| 25a4a0 | 61 67 61 69 6e 0a 61 73 20 75 73 75 61 6c 2e 0a 0a 54 6f 20 68 61 76 65 20 61 20 74 79 70 65 6f | again.as.usual...To.have.a.typeo |
| 25a4c0 | 75 74 20 66 72 61 6d 65 20 63 72 65 61 74 65 64 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 61 | ut.frame.created.automatically.a |
| 25a4e0 | 74 20 73 74 61 72 74 75 70 20 79 6f 75 20 73 68 6f 75 6c 64 0a 6c 6f 61 64 20 74 68 65 20 40 63 | t.startup.you.should.load.the.@c |
| 25a500 | 6f 64 65 7b 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 7d 20 70 61 63 6b 61 67 65 | ode{slime-typeout-frame}.package |
| 25a520 | 2e 20 28 40 70 78 72 65 66 7b 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 7d 2e 29 0a 0a 54 | ..(@pxref{Loading.Contribs}.)..T |
| 25a540 | 68 65 20 76 61 72 69 61 62 6c 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d | he.variable.@code{slime-typeout- |
| 25a560 | 66 72 61 6d 65 2d 70 72 6f 70 65 72 74 69 65 73 7d 20 73 70 65 63 69 66 69 65 73 20 74 68 65 0a | frame-properties}.specifies.the. |
| 25a580 | 68 65 69 67 68 74 20 61 6e 64 20 70 6f 73 73 69 62 6c 79 20 6f 74 68 65 72 20 70 72 6f 70 65 72 | height.and.possibly.other.proper |
| 25a5a0 | 74 69 65 73 20 6f 66 20 74 68 65 20 66 72 61 6d 65 2e 20 20 49 74 73 20 76 61 6c 75 65 20 69 73 | ties.of.the.frame...Its.value.is |
| 25a5c0 | 0a 70 61 73 73 65 64 20 74 6f 20 40 63 6f 64 65 7b 6d 61 6b 65 2d 66 72 61 6d 65 7d 2e 20 28 40 | .passed.to.@code{make-frame}..(@ |
| 25a5e0 | 69 6e 66 6f 72 65 66 7b 43 72 65 61 74 69 6e 67 20 46 72 61 6d 65 73 2c 20 2c 65 6c 69 73 70 7d | inforef{Creating.Frames,.,elisp} |
| 25a600 | 2e 29 0a 0a 40 6e 6f 64 65 20 54 52 41 4d 50 0a 40 73 65 63 74 69 6f 6e 20 54 52 41 4d 50 0a 0a | .)..@node.TRAMP.@section.TRAMP.. |
| 25a620 | 40 63 69 6e 64 65 78 20 54 52 41 4d 50 0a 0a 54 68 65 20 70 61 63 6b 61 67 65 20 40 63 6f 64 65 | @cindex.TRAMP..The.package.@code |
| 25a640 | 7b 73 6c 69 6d 65 2d 74 72 61 6d 70 7d 20 70 72 6f 76 69 64 65 73 20 73 6f 6d 65 20 66 75 6e 63 | {slime-tramp}.provides.some.func |
| 25a660 | 74 69 6f 6e 73 20 74 6f 20 73 65 74 20 75 70 0a 66 69 6c 65 6e 61 6d 65 20 74 72 61 6e 73 6c 61 | tions.to.set.up.filename.transla |
| 25a680 | 74 69 6f 6e 73 20 66 6f 72 20 54 52 41 4d 50 2e 20 28 40 70 78 72 65 66 7b 53 65 74 74 69 6e 67 | tions.for.TRAMP..(@pxref{Setting |
| 25a6a0 | 20 75 70 20 70 61 74 68 6e 61 6d 65 0a 74 72 61 6e 73 6c 61 74 69 6f 6e 73 7d 29 0a 0a 40 6e 6f | .up.pathname.translations})..@no |
| 25a6c0 | 64 65 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 4c 69 6e 6b 73 0a 40 73 65 63 74 69 6f 6e 20 | de.Documentation.Links.@section. |
| 25a6e0 | 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 4c 69 6e 6b 73 0a 0a 46 6f 72 20 63 65 72 74 61 69 6e | Documentation.Links..For.certain |
| 25a700 | 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 2c 20 53 42 43 4c 20 69 6e 63 6c 75 64 65 73 20 72 | .error.messages,.SBCL.includes.r |
| 25a720 | 65 66 65 72 65 6e 63 65 73 20 74 6f 20 74 68 65 20 41 4e 53 49 0a 53 74 61 6e 64 61 72 64 20 6f | eferences.to.the.ANSI.Standard.o |
| 25a740 | 72 20 74 68 65 20 53 42 43 4c 20 55 73 65 72 20 4d 61 6e 75 61 6c 2e 20 20 54 68 65 20 40 63 6f | r.the.SBCL.User.Manual...The.@co |
| 25a760 | 64 65 7b 73 6c 69 6d 65 2d 72 65 66 65 72 65 6e 63 65 73 7d 20 70 61 63 6b 61 67 65 0a 74 75 72 | de{slime-references}.package.tur |
| 25a780 | 6e 73 20 74 68 6f 73 65 20 72 65 66 65 72 65 6e 63 65 73 20 69 6e 74 6f 20 63 6c 69 63 6b 61 62 | ns.those.references.into.clickab |
| 25a7a0 | 6c 65 20 6c 69 6e 6b 73 2e 20 20 54 68 69 73 20 6d 61 6b 65 73 20 66 69 6e 64 69 6e 67 20 74 68 | le.links...This.makes.finding.th |
| 25a7c0 | 65 0a 72 65 66 65 72 65 6e 63 65 64 20 73 65 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 48 79 70 65 | e.referenced.section.of.the.Hype |
| 25a7e0 | 72 53 70 65 63 20 6d 75 63 68 20 65 61 73 69 65 72 2e 0a 0a 40 6e 6f 64 65 20 58 72 65 66 20 61 | rSpec.much.easier...@node.Xref.a |
| 25a800 | 6e 64 20 43 6c 61 73 73 20 42 72 6f 77 73 65 72 0a 40 73 65 63 74 69 6f 6e 20 58 72 65 66 20 61 | nd.Class.Browser.@section.Xref.a |
| 25a820 | 6e 64 20 43 6c 61 73 73 20 42 72 6f 77 73 65 72 0a 0a 41 20 72 75 64 69 6d 65 6e 74 61 72 79 20 | nd.Class.Browser..A.rudimentary. |
| 25a840 | 63 6c 61 73 73 20 62 72 6f 77 73 65 72 20 69 73 20 70 72 6f 76 69 64 65 64 20 62 79 0a 74 68 65 | class.browser.is.provided.by.the |
| 25a860 | 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 78 72 65 66 2d 62 72 6f 77 73 65 72 7d 20 70 61 63 6b 61 | .@code{slime-xref-browser}.packa |
| 25a880 | 67 65 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d | ge...@table.@kbd.@cmditem{slime- |
| 25a8a0 | 62 72 6f 77 73 65 2d 63 6c 61 73 73 65 73 7d 0a 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 61 73 6b | browse-classes}.This.command.ask |
| 25a8c0 | 73 20 66 6f 72 20 61 20 63 6c 61 73 73 20 6e 61 6d 65 20 61 6e 64 20 64 69 73 70 6c 61 79 73 20 | s.for.a.class.name.and.displays. |
| 25a8e0 | 69 6e 68 65 72 69 74 61 6e 63 65 20 74 72 65 65 20 6f 66 0a 66 6f 72 20 74 68 65 20 63 6c 61 73 | inheritance.tree.of.for.the.clas |
| 25a900 | 73 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 62 72 6f 77 73 65 2d 78 72 65 66 73 7d | s...@cmditem{slime-browse-xrefs} |
| 25a920 | 0a 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 70 72 6f 6d 70 74 73 20 66 6f 72 20 61 20 73 79 6d 62 | .This.command.prompts.for.a.symb |
| 25a940 | 6f 6c 20 61 6e 64 20 74 68 65 20 6b 69 6e 64 20 6f 66 20 63 72 6f 73 73 20 72 65 66 65 72 65 6e | ol.and.the.kind.of.cross.referen |
| 25a960 | 63 65 2c 0a 65 2e 67 2e 20 63 61 6c 6c 65 72 73 2e 20 20 54 68 65 20 63 72 6f 73 73 20 72 65 66 | ce,.e.g..callers...The.cross.ref |
| 25a980 | 65 72 65 6e 63 65 20 74 72 65 65 20 72 6f 6f 74 65 64 20 61 74 20 74 68 65 20 73 79 6d 62 6f 6c | erence.tree.rooted.at.the.symbol |
| 25a9a0 | 20 69 73 20 74 68 65 6e 0a 74 68 65 6e 20 64 69 73 70 6c 61 79 65 64 2e 0a 0a 40 65 6e 64 20 74 | .is.then.then.displayed...@end.t |
| 25a9c0 | 61 62 6c 65 0a 0a 0a 40 6e 6f 64 65 20 48 69 67 68 6c 69 67 68 74 20 45 64 69 74 73 0a 40 73 65 | able...@node.Highlight.Edits.@se |
| 25a9e0 | 63 74 69 6f 6e 20 48 69 67 68 6c 69 67 68 74 20 45 64 69 74 73 0a 0a 40 63 6f 64 65 7b 73 6c 69 | ction.Highlight.Edits..@code{sli |
| 25aa00 | 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 7d 20 69 73 20 61 20 6d 69 6e 6f 72 20 6d | me-highlight-edits}.is.a.minor.m |
| 25aa20 | 6f 64 65 20 74 6f 20 68 69 67 68 6c 69 67 68 74 20 74 68 6f 73 65 0a 72 65 67 69 6f 6e 73 20 69 | ode.to.highlight.those.regions.i |
| 25aa40 | 6e 20 61 20 4c 69 73 70 20 73 6f 75 72 63 65 20 66 69 6c 65 20 77 68 69 63 68 20 61 72 65 20 6d | n.a.Lisp.source.file.which.are.m |
| 25aa60 | 6f 64 69 66 69 65 64 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 74 6f 0a 71 75 69 63 | odified...This.is.useful.to.quic |
| 25aa80 | 6b 6c 79 20 66 69 6e 64 20 74 68 6f 73 65 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 6e | kly.find.those.functions.which.n |
| 25aaa0 | 65 65 64 20 74 6f 20 62 65 20 72 65 63 6f 6d 70 69 6c 65 64 20 28 77 69 74 68 0a 40 6b 62 64 7b | eed.to.be.recompiled.(with.@kbd{ |
| 25aac0 | 43 2d 63 20 43 2d 63 7d 29 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 63 6d 64 69 74 65 6d 7b | C-c.C-c})..@table.@kbd.@cmditem{ |
| 25aae0 | 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 6d 6f 64 65 7d 0a 54 75 72 6e | slime-highlight-edits-mode}.Turn |
| 25ab00 | 73 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 6d 6f | s.@code{slime-highlight-edits-mo |
| 25ab20 | 64 65 7d 20 6f 6e 20 6f 72 20 6f 66 66 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 6e 6f 64 65 | de}.on.or.off..@end.table..@node |
| 25ab40 | 20 53 63 72 61 74 63 68 20 42 75 66 66 65 72 0a 40 73 65 63 74 69 6f 6e 20 53 63 72 61 74 63 68 | .Scratch.Buffer.@section.Scratch |
| 25ab60 | 20 42 75 66 66 65 72 0a 0a 40 61 6e 63 68 6f 72 7b 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 7d 0a | .Buffer..@anchor{slime-scratch}. |
| 25ab80 | 54 68 65 20 40 53 4c 49 4d 45 7b 7d 20 73 63 72 61 74 63 68 20 62 75 66 66 65 72 2c 20 69 6e 20 | The.@SLIME{}.scratch.buffer,.in. |
| 25aba0 | 63 6f 6e 74 72 69 62 20 70 61 63 6b 61 67 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 73 63 72 61 | contrib.package.@code{slime-scra |
| 25abc0 | 74 63 68 7d 2c 0a 69 6d 69 74 61 74 65 73 20 45 6d 61 63 73 27 20 75 73 75 61 6c 20 40 63 6f 64 | tch},.imitates.Emacs'.usual.@cod |
| 25abe0 | 65 7b 2a 73 63 72 61 74 63 68 2a 7d 20 62 75 66 66 65 72 2e 0a 49 66 20 40 63 6f 64 65 7b 73 6c | e{*scratch*}.buffer..If.@code{sl |
| 25ac00 | 69 6d 65 2d 73 63 72 61 74 63 68 2d 66 69 6c 65 7d 20 69 73 20 73 65 74 2c 20 69 74 20 69 73 20 | ime-scratch-file}.is.set,.it.is. |
| 25ac20 | 75 73 65 64 20 74 6f 20 62 61 63 6b 20 74 68 65 20 73 63 72 61 74 63 68 0a 62 75 66 66 65 72 2c | used.to.back.the.scratch.buffer, |
| 25ac40 | 20 6d 61 6b 69 6e 67 20 69 74 20 70 65 72 73 69 73 74 65 6e 74 2e 20 54 68 65 20 62 75 66 66 65 | .making.it.persistent..The.buffe |
| 25ac60 | 72 20 69 73 20 6c 69 6b 65 20 61 6e 79 20 6f 74 68 65 72 20 4c 69 73 70 0a 62 75 66 66 65 72 2c | r.is.like.any.other.Lisp.buffer, |
| 25ac80 | 20 65 78 63 65 70 74 20 66 6f 72 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 62 6f 75 6e 64 20 74 6f | .except.for.the.command.bound.to |
| 25aca0 | 20 40 6b 62 64 7b 43 2d 6a 7d 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 6b 62 64 69 74 | .@kbd{C-j}...@table.@kbd..@kbdit |
| 25acc0 | 65 6d 7b 43 2d 6a 2c 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 65 78 | em{C-j,.slime-eval-print-last-ex |
| 25ace0 | 70 72 65 73 73 69 6f 6e 7d 0a 45 76 61 6c 75 61 74 65 20 74 68 65 20 65 78 70 72 65 73 73 69 6f | pression}.Evaluate.the.expressio |
| 25ad00 | 6e 20 73 65 78 70 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 20 61 6e 64 20 69 6e 73 65 72 74 20 70 | n.sexp.before.point.and.insert.p |
| 25ad20 | 72 69 6e 74 20 76 61 6c 75 65 20 69 6e 74 6f 0a 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 | rint.value.into.the.current.buff |
| 25ad40 | 65 72 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 7d 0a 43 72 65 | er...@cmditem{slime-scratch}.Cre |
| 25ad60 | 61 74 65 20 61 20 40 66 69 6c 65 7b 2a 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 2a 7d 20 62 75 66 | ate.a.@file{*slime-scratch*}.buf |
| 25ad80 | 66 65 72 2e 20 49 6e 20 74 68 69 73 0a 62 75 66 66 65 72 20 79 6f 75 20 63 61 6e 20 65 6e 74 65 | fer..In.this.buffer.you.can.ente |
| 25ada0 | 72 20 4c 69 73 70 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 | r.Lisp.expressions.and.evaluate. |
| 25adc0 | 74 68 65 6d 20 77 69 74 68 0a 40 6b 62 64 7b 43 2d 6a 7d 2c 20 6c 69 6b 65 20 69 6e 20 45 6d 61 | them.with.@kbd{C-j},.like.in.Ema |
| 25ade0 | 63 73 27 73 20 40 66 69 6c 65 7b 2a 73 63 72 61 74 63 68 2a 7d 20 62 75 66 66 65 72 2e 0a 0a 40 | cs's.@file{*scratch*}.buffer...@ |
| 25ae00 | 65 6e 64 20 74 61 62 6c 65 0a 0a 40 6e 6f 64 65 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 | end.table..@node.SLIME.Trace.Dia |
| 25ae20 | 6c 6f 67 0a 40 73 65 63 74 69 6f 6e 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 0a | log.@section.SLIME.Trace.Dialog. |
| 25ae40 | 0a 54 68 65 20 40 53 4c 49 4d 45 7b 7d 20 54 72 61 63 65 20 44 69 61 6c 6f 67 2c 20 69 6e 20 70 | .The.@SLIME{}.Trace.Dialog,.in.p |
| 25ae60 | 61 63 6b 61 67 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 7d | ackage.@code{slime-trace-dialog} |
| 25ae80 | 2c 20 69 73 20 61 0a 74 72 61 63 69 6e 67 20 66 61 63 69 6c 69 74 79 2c 20 73 69 6d 69 6c 61 72 | ,.is.a.tracing.facility,.similar |
| 25aea0 | 20 74 6f 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 27 73 20 40 63 6f 64 65 7b 74 72 61 63 65 7d 2c 20 | .to.Common.Lisp's.@code{trace},. |
| 25aec0 | 62 75 74 0a 69 6e 74 65 72 61 63 74 69 76 65 20 72 61 74 68 65 72 20 74 68 61 6e 20 70 75 72 65 | but.interactive.rather.than.pure |
| 25aee0 | 6c 79 20 74 65 78 74 75 61 6c 2e 20 49 74 20 69 73 20 61 6e 20 45 6d 61 63 73 20 32 34 2d 6f 6e | ly.textual..It.is.an.Emacs.24-on |
| 25af00 | 6c 79 0a 63 6f 6e 74 72 69 62 2e 0a 0a 59 6f 75 20 75 73 65 20 69 74 20 6a 75 73 74 20 6c 69 6b | ly.contrib...You.use.it.just.lik |
| 25af20 | 65 20 79 6f 75 20 77 6f 75 6c 64 20 72 65 67 75 6c 61 72 20 40 63 6f 64 65 7b 74 72 61 63 65 7d | e.you.would.regular.@code{trace} |
| 25af40 | 3a 20 61 66 74 65 72 20 74 72 61 63 69 6e 67 20 61 0a 66 75 6e 63 74 69 6f 6e 2c 20 63 61 6c 6c | :.after.tracing.a.function,.call |
| 25af60 | 69 6e 67 20 69 74 20 63 61 75 73 65 73 20 69 6e 74 65 72 65 73 74 69 6e 67 20 69 6e 66 6f 72 6d | ing.it.causes.interesting.inform |
| 25af80 | 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 61 74 0a 70 61 72 74 69 63 75 6c 61 72 20 63 61 6c 6c | ation.about.that.particular.call |
| 25afa0 | 20 74 6f 20 62 65 20 72 65 70 6f 72 74 65 64 2e 0a 0a 48 6f 77 65 76 65 72 2c 20 69 6e 73 74 65 | .to.be.reported...However,.inste |
| 25afc0 | 61 64 20 6f 66 20 70 72 69 6e 74 69 6e 67 20 74 68 65 20 74 72 61 63 65 20 72 65 73 75 6c 74 73 | ad.of.printing.the.trace.results |
| 25afe0 | 20 74 6f 20 74 68 65 0a 74 68 65 20 40 63 6f 64 65 7b 2a 74 72 61 63 65 2d 6f 75 74 70 75 74 2a | .to.the.the.@code{*trace-output* |
| 25b000 | 7d 20 73 74 72 65 61 6d 20 28 75 73 75 61 6c 6c 79 20 74 68 65 20 52 45 50 4c 29 2c 20 74 68 65 | }.stream.(usually.the.REPL),.the |
| 25b020 | 20 40 53 4c 49 4d 45 7b 7d 0a 54 72 61 63 65 20 44 69 61 6c 6f 67 20 63 6f 6c 6c 65 63 74 73 20 | .@SLIME{}.Trace.Dialog.collects. |
| 25b040 | 61 6e 64 20 73 74 6f 72 65 73 20 74 68 65 6d 20 69 6e 20 79 6f 75 72 20 6c 69 73 70 20 65 6e 76 | and.stores.them.in.your.lisp.env |
| 25b060 | 69 72 6f 6e 6d 65 6e 74 20 75 6e 74 69 6c 2c 0a 6f 6e 20 75 73 65 72 27 73 20 72 65 71 75 65 73 | ironment.until,.on.user's.reques |
| 25b080 | 74 2c 20 74 68 65 79 20 61 72 65 20 66 65 74 63 68 65 64 20 69 6e 74 6f 20 45 6d 61 63 73 20 61 | t,.they.are.fetched.into.Emacs.a |
| 25b0a0 | 6e 64 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 61 0a 64 69 61 6c 6f 67 2d 6c 69 6b 65 20 69 6e | nd.displayed.in.a.dialog-like.in |
| 25b0c0 | 74 65 72 61 63 74 69 76 65 20 76 69 65 77 2e 0a 0a 41 66 74 65 72 20 73 74 61 72 74 69 6e 67 20 | teractive.view...After.starting. |
| 25b0e0 | 75 70 20 40 53 4c 49 4d 45 7b 7d 2c 20 40 53 4c 49 4d 45 7b 7d 27 73 20 54 72 61 63 65 20 44 69 | up.@SLIME{},.@SLIME{}'s.Trace.Di |
| 25b100 | 61 6c 6f 67 20 69 6e 73 74 61 6c 6c 73 0a 61 20 40 65 6d 70 68 7b 54 72 61 63 65 7d 20 6d 65 6e | alog.installs.a.@emph{Trace}.men |
| 25b120 | 75 20 69 6e 20 74 68 65 20 6d 65 6e 75 2d 62 61 72 20 6f 66 20 61 6e 79 20 40 63 6f 64 65 7b 73 | u.in.the.menu-bar.of.any.@code{s |
| 25b140 | 6c 69 6d 65 2d 6d 6f 64 65 7d 20 62 75 66 66 65 72 20 61 6e 64 0a 61 64 64 73 20 74 77 6f 20 6e | lime-mode}.buffer.and.adds.two.n |
| 25b160 | 65 77 20 63 6f 6d 6d 61 6e 64 73 2c 20 77 69 74 68 20 72 65 73 70 65 63 74 69 76 65 20 6b 65 79 | ew.commands,.with.respective.key |
| 25b180 | 2d 62 69 6e 64 69 6e 67 73 3a 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 74 65 6d | -bindings:..@table.@kbd.@kbditem |
| 25b1a0 | 7b 43 2d 63 20 4d 2d 74 2c 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 74 6f 67 | {C-c.M-t,.slime-trace-dialog-tog |
| 25b1c0 | 67 6c 65 2d 74 72 61 63 65 7d 0a 49 66 20 70 6f 69 6e 74 20 69 73 20 6f 6e 20 61 20 73 79 6d 62 | gle-trace}.If.point.is.on.a.symb |
| 25b1e0 | 6f 6c 20 6e 61 6d 65 2c 20 74 6f 67 67 6c 65 20 74 72 61 63 69 6e 67 20 6f 66 20 69 74 73 20 66 | ol.name,.toggle.tracing.of.its.f |
| 25b200 | 75 6e 63 74 69 6f 6e 0a 64 65 66 69 6e 69 74 69 6f 6e 2e 20 49 66 20 70 6f 69 6e 74 20 69 73 20 | unction.definition..If.point.is. |
| 25b220 | 6e 6f 74 20 6f 6e 20 61 20 73 79 6d 62 6f 6c 2c 20 70 72 6f 6d 70 74 20 75 73 65 72 20 66 6f 72 | not.on.a.symbol,.prompt.user.for |
| 25b240 | 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 57 69 74 68 20 61 20 40 6b 62 64 7b 43 2d 75 7d 20 70 | .a.function...With.a.@kbd{C-u}.p |
| 25b260 | 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 61 6e 64 20 69 66 20 79 6f 75 72 20 6c 69 73 70 | refix.argument,.and.if.your.lisp |
| 25b280 | 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 61 6c 6c 6f 77 73 20 69 74 2c 20 61 74 74 65 6d | .implementation.allows.it,.attem |
| 25b2a0 | 70 74 20 74 6f 20 64 65 63 69 70 68 65 72 20 6c 61 6d 62 64 61 73 2c 20 6d 65 74 68 6f 64 73 20 | pt.to.decipher.lambdas,.methods. |
| 25b2c0 | 61 6e 64 20 6f 74 68 65 72 20 63 6f 6d 70 6c 69 63 61 74 65 64 0a 66 75 6e 63 74 69 6f 6e 20 73 | and.other.complicated.function.s |
| 25b2e0 | 69 67 6e 61 74 75 72 65 73 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 74 72 61 63 | ignatures...The.function.is.trac |
| 25b300 | 65 64 20 66 6f 72 20 74 68 65 20 40 53 4c 49 4d 45 7b 7d 20 54 72 61 63 65 20 44 69 61 6c 6f 67 | ed.for.the.@SLIME{}.Trace.Dialog |
| 25b320 | 20 6f 6e 6c 79 2c 20 69 2e 65 2e 20 69 74 20 69 73 0a 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 74 | .only,.i.e..it.is.not.found.in.t |
| 25b340 | 68 65 20 6c 69 73 74 20 72 65 74 75 72 6e 65 64 20 62 79 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 27 | he.list.returned.by.Common.Lisp' |
| 25b360 | 73 20 40 63 6f 64 65 7b 74 72 61 63 65 7d 2e 0a 0a 40 6b 62 64 69 74 65 6d 7b 43 2d 63 20 54 2c | s.@code{trace}...@kbditem{C-c.T, |
| 25b380 | 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 7d 0a 50 6f 70 20 74 6f 20 74 68 65 20 | .slime-trace-dialog}.Pop.to.the. |
| 25b3a0 | 69 6e 74 65 72 61 63 74 69 76 65 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 20 62 | interactive.SLIME.Trace.Dialog.b |
| 25b3c0 | 75 66 66 65 72 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 0a 63 75 72 72 65 6e | uffer.associated.with.the.curren |
| 25b3e0 | 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 40 70 78 72 65 66 7b 4d 75 6c 74 69 70 6c 65 20 63 6f | t.connection.(@pxref{Multiple.co |
| 25b400 | 6e 6e 65 63 74 69 6f 6e 73 7d 29 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 70 61 67 65 0a 43 | nnections})..@end.table..@page.C |
| 25b420 | 6f 6e 73 69 64 65 72 20 74 68 65 20 28 75 73 65 6c 65 73 73 29 20 70 72 6f 67 72 61 6d 3a 0a 0a | onsider.the.(useless).program:.. |
| 25b440 | 40 65 78 61 6d 70 6c 65 0a 28 64 65 66 75 6e 20 66 6f 6f 20 28 6e 29 20 28 69 66 20 28 70 6c 75 | @example.(defun.foo.(n).(if.(plu |
| 25b460 | 73 70 20 6e 29 20 28 2a 20 6e 20 28 62 61 72 20 28 31 2d 20 6e 29 29 29 20 31 29 29 0a 28 64 65 | sp.n).(*.n.(bar.(1-.n))).1)).(de |
| 25b480 | 66 75 6e 20 62 61 72 20 28 6e 29 20 28 69 66 20 28 70 6c 75 73 70 20 6e 29 20 28 2a 20 6e 20 28 | fun.bar.(n).(if.(plusp.n).(*.n.( |
| 25b4a0 | 66 6f 6f 20 28 31 2d 20 6e 29 29 29 20 31 29 29 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 41 | foo.(1-.n))).1)).@end.example..A |
| 25b4c0 | 66 74 65 72 20 74 72 61 63 69 6e 67 20 62 6f 74 68 20 40 63 6f 64 65 7b 66 6f 6f 7d 20 61 6e 64 | fter.tracing.both.@code{foo}.and |
| 25b4e0 | 20 40 63 6f 64 65 7b 62 61 72 7d 20 77 69 74 68 20 40 6b 62 64 7b 43 2d 63 20 4d 2d 74 7d 2c 0a | .@code{bar}.with.@kbd{C-c.M-t},. |
| 25b500 | 63 61 6c 6c 69 6e 67 20 63 61 6c 6c 20 40 63 6f 64 65 7b 28 66 6f 6f 20 32 29 7d 20 61 6e 64 20 | calling.call.@code{(foo.2)}.and. |
| 25b520 | 6d 6f 76 69 6e 67 20 74 6f 20 74 68 65 20 74 72 61 63 65 20 64 69 61 6c 6f 67 20 77 69 74 68 0a | moving.to.the.trace.dialog.with. |
| 25b540 | 40 6b 62 64 7b 43 2d 63 20 54 7d 2c 20 77 65 20 61 72 65 20 70 72 65 73 65 6e 74 65 64 20 77 69 | @kbd{C-c.T},.we.are.presented.wi |
| 25b560 | 74 68 20 74 68 69 73 20 62 75 66 66 65 72 2e 0a 0a 40 65 78 61 6d 70 6c 65 0a 54 72 61 63 65 64 | th.this.buffer...@example.Traced |
| 25b580 | 20 73 70 65 63 73 20 28 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .specs.(2)...................... |
| 25b5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 5b 72 65 66 72 65 73 68 5d 0a 20 20 20 20 20 20 20 20 20 20 | ............[refresh]........... |
| 25b5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 25b5e0 | 20 20 20 20 20 20 20 20 5b 75 6e 74 72 61 63 65 20 61 6c 6c 5d 0a 20 20 5b 75 6e 74 72 61 63 65 | ........[untrace.all]...[untrace |
| 25b600 | 5d 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 75 73 65 72 3a 3a 62 61 72 0a 20 20 5b 75 6e 74 72 61 | ].common-lisp-user::bar...[untra |
| 25b620 | 63 65 5d 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 75 73 65 72 3a 3a 66 6f 6f 0a 0a 54 72 61 63 65 | ce].common-lisp-user::foo..Trace |
| 25b640 | 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 73 74 61 74 75 73 20 28 33 2f 33 29 20 20 20 20 20 20 20 20 | .collection.status.(3/3)........ |
| 25b660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 72 65 66 72 65 73 68 5d 0a 20 20 20 20 20 20 20 20 20 | .............[refresh].......... |
| 25b680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 25b6a0 | 20 20 20 20 20 20 20 20 20 5b 63 6c 65 61 72 5d 0a 0a 20 20 20 30 20 2d 20 63 6f 6d 6d 6f 6e 2d | .........[clear].....0.-.common- |
| 25b6c0 | 6c 69 73 70 2d 75 73 65 72 3a 3a 66 6f 6f 0a 20 20 20 20 20 7c 20 3e 20 32 0a 20 20 20 20 20 7c | lisp-user::foo......|.>.2......| |
| 25b6e0 | 20 3c 20 32 0a 20 20 20 31 20 60 2d 2d 2d 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 75 73 65 72 3a | .<.2....1.`---.common-lisp-user: |
| 25b700 | 3a 62 61 72 0a 20 20 20 20 20 20 20 20 7c 20 3e 20 31 0a 20 20 20 20 20 20 20 20 7c 20 3c 20 31 | :bar.........|.>.1.........|.<.1 |
| 25b720 | 0a 20 20 20 32 20 20 20 20 60 2d 2d 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 75 73 65 72 3a 3a 66 | ....2....`--.common-lisp-user::f |
| 25b740 | 6f 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3e 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 | oo..............>.0............. |
| 25b760 | 20 3c 20 31 0a 40 65 6e 64 20 65 78 61 6d 70 6c 65 0a 0a 54 68 65 20 64 69 61 6c 6f 67 20 69 73 | .<.1.@end.example..The.dialog.is |
| 25b780 | 20 64 69 76 69 64 65 64 20 69 6e 74 6f 20 73 65 63 74 69 6f 6e 73 20 64 69 73 70 6c 61 79 69 6e | .divided.into.sections.displayin |
| 25b7a0 | 67 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 61 6c 72 65 61 64 79 0a 74 72 61 63 65 64 2c 20 | g.the.functions.already.traced,. |
| 25b7c0 | 74 68 65 20 74 72 61 63 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 70 72 6f 67 72 65 73 73 20 61 6e | the.trace.collection.progress.an |
| 25b7e0 | 64 20 74 68 65 20 61 63 74 75 61 6c 20 74 72 61 63 65 20 74 72 65 65 20 74 68 61 74 0a 66 6f 6c | d.the.actual.trace.tree.that.fol |
| 25b800 | 6c 6f 77 20 79 6f 75 72 20 70 72 6f 67 72 61 6d 27 73 20 6c 6f 67 69 63 2e 20 54 68 65 20 6d 6f | low.your.program's.logic..The.mo |
| 25b820 | 73 74 20 69 6d 70 6f 72 74 61 6e 74 20 6b 65 79 2d 62 69 6e 64 69 6e 67 73 20 69 6e 20 74 68 69 | st.important.key-bindings.in.thi |
| 25b840 | 73 0a 62 75 66 66 65 72 20 61 72 65 3a 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 6b 62 64 69 | s.buffer.are:..@table.@kbd.@kbdi |
| 25b860 | 74 65 6d 7b 67 2c 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d | tem{g,.slime-trace-dialog-fetch- |
| 25b880 | 73 74 61 74 75 73 7d 0a 55 70 64 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 74 68 | status}.Update.information.on.th |
| 25b8a0 | 65 20 74 72 61 63 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 61 6e 64 20 74 72 61 63 65 64 20 73 70 | e.trace.collection.and.traced.sp |
| 25b8c0 | 65 63 73 2e 0a 40 6b 62 64 69 74 65 6d 7b 47 2c 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 | ecs..@kbditem{G,.slime-trace-dia |
| 25b8e0 | 6c 6f 67 2d 66 65 74 63 68 2d 74 72 61 63 65 73 7d 0a 46 65 74 63 68 20 74 68 65 20 6e 65 78 74 | log-fetch-traces}.Fetch.the.next |
| 25b900 | 20 62 61 74 63 68 20 6f 66 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 28 6e 6f 74 20 66 65 74 63 68 | .batch.of.outstanding.(not.fetch |
| 25b920 | 65 64 20 79 65 74 29 20 74 72 61 63 65 73 2e 20 57 69 74 68 20 61 0a 40 6b 62 64 7b 43 2d 75 7d | ed.yet).traces..With.a.@kbd{C-u} |
| 25b940 | 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 72 65 70 65 61 74 20 75 6e 74 69 6c 20 6e | .prefix.argument,.repeat.until.n |
| 25b960 | 6f 20 6d 6f 72 65 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 74 72 61 63 65 73 2e 0a 40 6b 62 64 69 | o.more.outstanding.traces..@kbdi |
| 25b980 | 74 65 6d 7b 43 2d 6b 2c 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 63 6c 65 61 | tem{C-k,.slime-trace-dialog-clea |
| 25b9a0 | 72 2d 66 65 74 63 68 65 64 2d 74 72 61 63 65 73 7d 0a 50 72 6f 6d 70 74 20 66 6f 72 20 63 6f 6e | r-fetched-traces}.Prompt.for.con |
| 25b9c0 | 66 69 72 6d 61 74 69 6f 6e 2c 20 74 68 65 6e 20 63 6c 65 61 72 20 61 6c 6c 20 74 72 61 63 65 73 | firmation,.then.clear.all.traces |
| 25b9e0 | 2c 20 62 6f 74 68 20 66 65 74 63 68 65 64 20 61 6e 64 0a 6f 75 74 73 74 61 6e 64 69 6e 67 2e 0a | ,.both.fetched.and.outstanding.. |
| 25ba00 | 40 65 6e 64 20 74 61 62 6c 65 0a 0a 54 68 65 20 61 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 72 65 | @end.table..The.arguments.and.re |
| 25ba20 | 74 75 72 6e 20 76 61 6c 75 65 73 20 62 65 6c 6f 77 20 65 61 63 68 20 65 6e 74 72 79 20 61 72 65 | turn.values.below.each.entry.are |
| 25ba40 | 20 69 6e 74 65 72 61 63 74 69 76 65 0a 62 75 74 74 6f 6e 73 2e 20 43 6c 69 63 6b 69 6e 67 20 74 | .interactive.buttons..Clicking.t |
| 25ba60 | 68 65 6d 20 6f 70 65 6e 73 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 0a 28 40 70 78 72 65 66 7b | hem.opens.the.inspector.(@pxref{ |
| 25ba80 | 49 6e 73 70 65 63 74 6f 72 7d 29 2e 20 49 6e 76 6f 6b 69 6e 67 20 40 6b 62 64 7b 4d 2d 52 45 54 | Inspector})..Invoking.@kbd{M-RET |
| 25baa0 | 7d 0a 28 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 63 6f 70 79 | }.(@code{slime-trace-dialog-copy |
| 25bac0 | 2d 64 6f 77 6e 2d 74 6f 2d 72 65 70 6c 7d 29 20 72 65 74 75 72 6e 73 20 74 68 65 6d 20 74 6f 20 | -down-to-repl}).returns.them.to. |
| 25bae0 | 74 68 65 20 52 45 50 4c 0a 66 6f 72 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 20 28 40 70 78 72 65 | the.REPL.for.manipulation.(@pxre |
| 25bb00 | 66 7b 52 45 50 4c 7d 29 2e 20 54 68 65 20 6e 75 6d 62 65 72 20 6c 65 66 74 20 6f 66 20 65 61 63 | f{REPL})..The.number.left.of.eac |
| 25bb20 | 68 20 65 6e 74 72 79 0a 69 6e 64 69 63 61 74 65 73 20 69 74 73 20 61 62 73 6f 6c 75 74 65 20 70 | h.entry.indicates.its.absolute.p |
| 25bb40 | 6f 73 69 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 6f 72 64 65 72 2c 20 77 68 | osition.in.the.calling.order,.wh |
| 25bb60 | 69 63 68 20 6d 69 67 68 74 0a 64 69 66 66 65 72 20 66 72 6f 6d 20 64 69 73 70 6c 61 79 20 6f 72 | ich.might.differ.from.display.or |
| 25bb80 | 64 65 72 20 69 6e 20 63 61 73 65 20 6d 75 6c 74 69 70 6c 65 20 74 68 72 65 61 64 73 20 63 61 6c | der.in.case.multiple.threads.cal |
| 25bba0 | 6c 20 74 68 65 20 73 61 6d 65 0a 74 72 61 63 65 64 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 40 63 6f | l.the.same.traced.function...@co |
| 25bbc0 | 64 65 7b 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 68 69 64 65 2d 64 65 74 61 69 | de{slime-trace-dialog-hide-detai |
| 25bbe0 | 6c 73 2d 6d 6f 64 65 7d 20 68 69 64 65 73 20 61 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 72 65 74 | ls-mode}.hides.arguments.and.ret |
| 25bc00 | 75 72 6e 0a 76 61 6c 75 65 73 20 73 6f 20 79 6f 75 20 63 61 6e 20 63 6f 6e 63 65 6e 74 72 61 74 | urn.values.so.you.can.concentrat |
| 25bc20 | 65 20 6f 6e 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 6c 6f 67 69 63 2e 20 41 64 64 69 74 69 6f 6e | e.on.the.calling.logic..Addition |
| 25bc40 | 61 6c 6c 79 2c 0a 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 61 | ally,.@code{slime-trace-dialog-a |
| 25bc60 | 75 74 6f 66 6f 6c 6c 6f 77 2d 6d 6f 64 65 7d 20 77 69 6c 6c 20 61 75 74 6f 6d 61 74 69 63 61 6c | utofollow-mode}.will.automatical |
| 25bc80 | 6c 79 0a 64 69 73 70 6c 61 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 64 65 74 61 69 6c 20 61 62 6f | ly.display.additional.detail.abo |
| 25bca0 | 75 74 20 61 6e 20 65 6e 74 72 79 20 77 68 65 6e 20 74 68 65 20 63 75 72 73 6f 72 20 6d 6f 76 65 | ut.an.entry.when.the.cursor.move |
| 25bcc0 | 73 20 6f 76 65 72 0a 69 74 2e 0a 0a 40 6e 6f 64 65 20 73 6c 69 6d 65 2d 73 70 72 6f 66 0a 40 73 | s.over.it...@node.slime-sprof.@s |
| 25bce0 | 65 63 74 69 6f 6e 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 73 70 72 6f 66 7d 0a 0a 40 63 6f 64 65 | ection.@code{slime-sprof}..@code |
| 25bd00 | 7b 73 6c 69 6d 65 2d 73 70 72 6f 66 7d 20 69 73 20 61 20 70 61 63 6b 61 67 65 20 66 6f 72 20 69 | {slime-sprof}.is.a.package.for.i |
| 25bd20 | 6e 74 65 67 72 61 74 69 6e 67 20 53 42 43 4c 27 73 20 73 74 61 74 69 73 74 69 63 61 6c 20 70 72 | ntegrating.SBCL's.statistical.pr |
| 25bd40 | 6f 66 69 6c 65 72 2c 20 73 62 2d 73 70 72 6f 66 2e 0a 0a 54 68 65 20 76 61 72 69 61 62 6c 65 20 | ofiler,.sb-sprof...The.variable. |
| 25bd60 | 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 65 78 63 6c 75 64 65 2d 73 77 61 6e 6b 7d | @code{slime-sprof-exclude-swank} |
| 25bd80 | 20 63 6f 6e 74 72 6f 6c 73 20 77 68 65 74 68 65 72 20 74 6f 0a 64 69 73 70 6c 61 79 20 73 77 61 | .controls.whether.to.display.swa |
| 25bda0 | 6e 6b 20 66 75 6e 63 74 69 6f 6e 73 2e 20 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 | nk.functions..The.default.value. |
| 25bdc0 | 69 73 20 4e 49 4c 2e 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 | is.NIL...@table.@kbd..@cmditem{s |
| 25bde0 | 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 74 61 72 74 7d 0a 53 74 61 72 74 20 70 72 6f 66 69 6c 69 6e | lime-sprof-start}.Start.profilin |
| 25be00 | 67 2e 0a 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 74 6f 70 7d 0a 53 | g...@cmditem{slime-sprof-stop}.S |
| 25be20 | 74 6f 70 20 70 72 6f 66 69 6c 69 6e 67 2e 0a 40 63 6d 64 69 74 65 6d 7b 73 6c 69 6d 65 2d 73 70 | top.profiling..@cmditem{slime-sp |
| 25be40 | 72 6f 66 2d 72 65 70 6f 72 74 7d 0a 52 65 70 6f 72 74 20 72 65 73 75 6c 74 73 20 6f 66 20 74 68 | rof-report}.Report.results.of.th |
| 25be60 | 65 20 70 72 6f 66 69 6c 69 6e 67 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 54 68 65 20 66 6f 6c | e.profiling..@end.table..The.fol |
| 25be80 | 6c 6f 77 69 6e 67 20 6b 65 79 73 20 61 72 65 20 64 65 66 69 6e 65 64 20 69 6e 20 73 6c 69 6d 65 | lowing.keys.are.defined.in.slime |
| 25bea0 | 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 20 6d 6f 64 65 3a 0a 40 74 61 62 6c 65 20 40 6b 62 64 | -sprof-browser.mode:.@table.@kbd |
| 25bec0 | 0a 0a 40 6b 62 64 69 74 65 6d 7b 52 45 54 2c 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 | ..@kbditem{RET,.slime-sprof-brow |
| 25bee0 | 73 65 72 2d 74 6f 67 67 6c 65 7d 0a 45 78 70 61 6e 64 20 2f 20 63 6f 6c 6c 61 70 73 65 20 66 75 | ser-toggle}.Expand./.collapse.fu |
| 25bf00 | 6e 63 74 69 6f 6e 20 64 65 74 61 69 6c 73 20 28 63 61 6c 6c 65 72 73 2c 20 63 61 6c 6c 73 20 74 | nction.details.(callers,.calls.t |
| 25bf20 | 6f 29 0a 40 6b 62 64 69 74 65 6d 7b 76 2c 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 | o).@kbditem{v,.slime-sprof-brows |
| 25bf40 | 65 72 2d 76 69 65 77 2d 73 6f 75 72 63 65 7d 0a 56 69 65 77 20 66 75 6e 63 74 69 6f 6e 20 73 6f | er-view-source}.View.function.so |
| 25bf60 | 75 72 63 65 73 2e 0a 40 6b 62 64 69 74 65 6d 7b 64 2c 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 | urces..@kbditem{d,.slime-sprof-b |
| 25bf80 | 72 6f 77 73 65 72 2d 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 75 6e 63 74 69 6f 6e 7d 0a 44 69 73 | rowser-disassemble-function}.Dis |
| 25bfa0 | 61 73 73 65 6d 62 6c 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 40 6b 62 64 69 74 65 6d 7b 73 2c 20 73 | assemble.function..@kbditem{s,.s |
| 25bfc0 | 6c 69 6d 65 2d 73 70 72 6f 66 2d 74 6f 67 67 6c 65 2d 73 77 61 6e 6b 2d 65 78 63 6c 75 73 69 6f | lime-sprof-toggle-swank-exclusio |
| 25bfe0 | 6e 7d 0a 54 6f 67 67 6c 65 20 65 78 63 6c 75 73 69 6f 6e 20 6f 66 20 73 77 61 6e 6b 20 66 75 6e | n}.Toggle.exclusion.of.swank.fun |
| 25c000 | 63 74 69 6f 6e 73 20 66 72 6f 6d 20 74 68 65 20 72 65 70 6f 72 74 2e 0a 0a 40 65 6e 64 20 74 61 | ctions.from.the.report...@end.ta |
| 25c020 | 62 6c 65 0a 0a 40 6e 6f 64 65 20 53 4c 49 4d 45 20 45 6e 68 61 6e 63 65 64 20 4d 2d 2e 0a 40 73 | ble..@node.SLIME.Enhanced.M-..@s |
| 25c040 | 65 63 74 69 6f 6e 20 53 4c 49 4d 45 20 45 6e 68 61 6e 63 65 64 20 4d 2d 2e 0a 40 63 6f 64 65 7b | ection.SLIME.Enhanced.M-..@code{ |
| 25c060 | 73 6c 69 6d 65 2d 6d 64 6f 74 2d 66 75 7d 20 65 6e 61 62 6c 65 73 20 6d 65 74 61 2d 70 6f 69 6e | slime-mdot-fu}.enables.meta-poin |
| 25c080 | 74 20 74 6f 20 6a 75 6d 70 20 74 6f 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 0a 62 6f 75 | t.to.jump.to.local.variables.bou |
| 25c0a0 | 6e 64 20 77 69 74 68 20 40 63 6f 64 65 7b 6c 65 74 7d 20 61 6e 64 20 40 63 6f 64 65 7b 6c 65 74 | nd.with.@code{let}.and.@code{let |
| 25c0c0 | 2a 7d 2c 20 69 6e 20 61 64 64 69 74 69 6f 6e 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20 62 69 6e 64 | *},.in.addition.to.function.bind |
| 25c0e0 | 69 6e 67 73 0a 64 65 63 6c 61 72 65 64 20 77 69 74 68 20 40 63 6f 64 65 7b 66 6c 65 74 7d 20 61 | ings.declared.with.@code{flet}.a |
| 25c100 | 6e 64 20 40 63 6f 64 65 7b 6c 61 62 65 6c 73 7d 2c 20 76 69 61 0a 40 63 6f 64 65 7b 73 6c 69 6d | nd.@code{labels},.via.@code{slim |
| 25c120 | 65 2d 65 64 69 74 2d 6c 6f 63 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 7d 2e 0a 0a 40 6e 6f 64 65 | e-edit-local-definition}...@node |
| 25c140 | 20 73 6c 69 6d 65 2d 66 61 6e 63 79 0a 40 73 65 63 74 69 6f 6e 20 4d 65 74 61 20 70 61 63 6b 61 | .slime-fancy.@section.Meta.packa |
| 25c160 | 67 65 3a 20 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 66 61 6e 63 79 7d 0a 0a 40 63 6f 64 65 7b 73 6c | ge:.@code{slime-fancy}..@code{sl |
| 25c180 | 69 6d 65 2d 66 61 6e 63 79 7d 20 69 73 20 61 20 6d 65 74 61 20 70 61 63 6b 61 67 65 20 77 68 69 | ime-fancy}.is.a.meta.package.whi |
| 25c1a0 | 63 68 20 6c 6f 61 64 73 20 61 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 0a 6d 6f | ch.loads.a.combination.of.the.mo |
| 25c1c0 | 73 74 20 70 6f 70 75 6c 61 72 20 70 61 63 6b 61 67 65 73 2e 20 49 74 20 69 73 20 74 68 65 20 64 | st.popular.packages..It.is.the.d |
| 25c1e0 | 65 66 61 75 6c 74 20 76 61 6c 75 65 20 6f 66 0a 40 63 6f 64 65 7b 73 6c 69 6d 65 2d 63 6f 6e 74 | efault.value.of.@code{slime-cont |
| 25c200 | 72 69 62 73 7d 2c 20 74 68 75 73 20 69 74 20 69 73 20 6c 6f 61 64 65 64 20 62 79 20 64 65 66 61 | ribs},.thus.it.is.loaded.by.defa |
| 25c220 | 75 6c 74 2e 0a 0a 40 6e 6f 64 65 20 51 75 69 63 6b 6c 69 73 70 0a 40 73 65 63 74 69 6f 6e 20 51 | ult...@node.Quicklisp.@section.Q |
| 25c240 | 75 69 63 6b 6c 69 73 70 0a 54 68 65 20 70 61 63 6b 61 67 65 20 40 63 6f 64 65 7b 73 6c 69 6d 65 | uicklisp.The.package.@code{slime |
| 25c260 | 2d 71 75 69 63 6b 6c 69 73 70 7d 20 61 64 64 73 20 73 75 70 70 6f 72 74 20 66 6f 72 20 6c 6f 61 | -quicklisp}.adds.support.for.loa |
| 25c280 | 64 69 6e 67 20 51 75 69 63 6b 6c 69 73 70 0a 73 79 73 74 65 6d 73 20 69 6e 20 74 68 65 20 52 45 | ding.Quicklisp.systems.in.the.RE |
| 25c2a0 | 50 4c 20 62 75 66 66 65 72 2e 20 20 49 6e 20 6f 72 64 65 72 20 66 6f 72 20 74 68 69 73 20 74 6f | PL.buffer...In.order.for.this.to |
| 25c2c0 | 20 77 6f 72 6b 2c 20 51 75 69 63 6b 6c 69 73 70 0a 73 68 6f 75 6c 64 20 68 61 76 65 20 61 6c 72 | .work,.Quicklisp.should.have.alr |
| 25c2e0 | 65 61 64 79 20 62 65 65 6e 20 6c 6f 61 64 65 64 20 69 6e 20 74 68 65 20 4c 69 73 70 20 69 6d 70 | eady.been.loaded.in.the.Lisp.imp |
| 25c300 | 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 52 65 66 65 72 0a 74 6f 20 40 75 72 6c 7b 68 74 74 70 | lementation...Refer.to.@url{http |
| 25c320 | 73 3a 2f 2f 77 77 77 2e 71 75 69 63 6b 6c 69 73 70 2e 6f 72 67 2f 7d 20 66 6f 72 20 51 75 69 63 | s://www.quicklisp.org/}.for.Quic |
| 25c340 | 6b 6c 69 73 70 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e 0a 64 65 74 61 69 6c 73 2e 0a 0a 54 68 65 | klisp.installation.details...The |
| 25c360 | 20 70 61 63 6b 61 67 65 20 69 6e 73 74 61 6c 6c 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 | .package.installs.the.following. |
| 25c380 | 52 45 50 4c 20 73 68 6f 72 74 63 75 74 73 20 28 40 70 78 72 65 66 7b 53 68 6f 72 74 63 75 74 73 | REPL.shortcuts.(@pxref{Shortcuts |
| 25c3a0 | 7d 29 3a 0a 0a 40 74 61 62 6c 65 20 40 6b 62 64 0a 40 69 74 65 6d 20 71 75 69 63 6b 6c 69 73 70 | }):..@table.@kbd.@item.quicklisp |
| 25c3c0 | 2d 71 75 69 63 6b 6c 6f 61 64 20 28 61 6b 61 20 71 6c 29 0a 4c 6f 61 64 20 61 20 51 75 69 63 6b | -quickload.(aka.ql).Load.a.Quick |
| 25c3e0 | 6c 69 73 70 20 73 79 73 74 65 6d 2e 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 63 20 2d 2d 2d 2d | lisp.system..@end.table..@c.---- |
| 25c400 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 6e 6f 64 65 20 43 72 65 64 69 74 | -------------------.@node.Credit |
| 25c420 | 73 0a 40 63 68 61 70 74 65 72 20 43 72 65 64 69 74 73 0a 0a 40 65 6d 70 68 7b 54 68 65 20 73 6f | s.@chapter.Credits..@emph{The.so |
| 25c440 | 70 70 79 20 65 6e 64 69 6e 67 2e 2e 2e 7d 0a 0a 40 75 6e 6e 75 6d 62 65 72 65 64 73 65 63 20 48 | ppy.ending...}..@unnumberedsec.H |
| 25c460 | 61 63 6b 65 72 73 20 6f 66 20 74 68 65 20 67 6f 6f 64 20 68 61 63 6b 0a 0a 40 53 4c 49 4d 45 7b | ackers.of.the.good.hack..@SLIME{ |
| 25c480 | 7d 20 69 73 20 61 6e 20 45 78 74 65 6e 73 69 6f 6e 20 6f 66 20 40 61 63 72 6f 6e 79 6d 7b 53 4c | }.is.an.Extension.of.@acronym{SL |
| 25c4a0 | 49 4d 7d 20 62 79 20 45 72 69 63 20 4d 61 72 73 64 65 6e 2e 20 41 74 20 74 68 65 0a 74 69 6d 65 | IM}.by.Eric.Marsden..At.the.time |
| 25c4c0 | 20 6f 66 20 77 72 69 74 69 6e 67 2c 20 74 68 65 20 61 75 74 68 6f 72 73 20 61 6e 64 20 63 6f 64 | .of.writing,.the.authors.and.cod |
| 25c4e0 | 65 2d 63 6f 6e 74 72 69 62 75 74 6f 72 73 20 6f 66 20 40 53 4c 49 4d 45 7b 7d 20 61 72 65 3a 0a | e-contributors.of.@SLIME{}.are:. |
| 25c500 | 0a 40 69 6e 63 6c 75 64 65 20 63 6f 6e 74 72 69 62 75 74 6f 72 73 2e 74 65 78 69 0a 0a 2e 2e 2e | .@include.contributors.texi..... |
| 25c520 | 20 6e 6f 74 20 63 6f 75 6e 74 69 6e 67 20 74 68 65 20 62 75 6e 64 6c 65 64 20 63 6f 64 65 20 66 | .not.counting.the.bundled.code.f |
| 25c540 | 72 6f 6d 20 40 66 69 6c 65 7b 68 79 70 65 72 73 70 65 63 2e 65 6c 7d 2c 0a 40 63 69 74 65 7b 43 | rom.@file{hyperspec.el},.@cite{C |
| 25c560 | 4c 4f 43 43 7d 2c 20 61 6e 64 20 74 68 65 20 40 63 69 74 65 7b 43 4d 55 20 41 49 20 52 65 70 6f | LOCC},.and.the.@cite{CMU.AI.Repo |
| 25c580 | 73 69 74 6f 72 79 7d 2e 0a 0a 4d 61 6e 79 20 70 65 6f 70 6c 65 20 6f 6e 20 74 68 65 20 40 63 6f | sitory}...Many.people.on.the.@co |
| 25c5a0 | 64 65 7b 73 6c 69 6d 65 2d 64 65 76 65 6c 7d 20 6d 61 69 6c 69 6e 67 20 6c 69 73 74 20 68 61 76 | de{slime-devel}.mailing.list.hav |
| 25c5c0 | 65 20 6d 61 64 65 20 6e 6f 6e 2d 63 6f 64 65 0a 63 6f 6e 74 72 69 62 75 74 69 6f 6e 73 20 74 6f | e.made.non-code.contributions.to |
| 25c5e0 | 20 40 53 4c 49 4d 45 7b 7d 2e 20 4c 69 66 65 20 69 73 20 68 61 72 64 20 74 68 6f 75 67 68 3a 20 | .@SLIME{}..Life.is.hard.though:. |
| 25c600 | 79 6f 75 20 67 6f 74 74 61 20 73 65 6e 64 20 63 6f 64 65 20 74 6f 0a 67 65 74 20 79 6f 75 72 20 | you.gotta.send.code.to.get.your. |
| 25c620 | 6e 61 6d 65 20 69 6e 20 74 68 65 20 6d 61 6e 75 61 6c 2e 20 40 63 6f 64 65 7b 3a 2d 29 7d 0a 0a | name.in.the.manual..@code{:-)}.. |
| 25c640 | 40 75 6e 6e 75 6d 62 65 72 65 64 73 65 63 20 54 68 61 6e 6b 73 21 0a 0a 57 65 27 72 65 20 69 6e | @unnumberedsec.Thanks!..We're.in |
| 25c660 | 64 65 62 74 65 64 20 74 6f 20 74 68 65 20 67 6f 6f 64 20 70 65 6f 70 6c 65 20 6f 66 20 40 63 6f | debted.to.the.good.people.of.@co |
| 25c680 | 64 65 7b 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 7d 20 66 6f 72 20 74 68 65 69 72 0a 68 6f | de{common-lisp.net}.for.their.ho |
| 25c6a0 | 73 74 69 6e 67 20 61 6e 64 20 68 65 6c 70 2c 20 61 6e 64 20 66 6f 72 20 72 65 73 63 75 69 6e 67 | sting.and.help,.and.for.rescuing |
| 25c6c0 | 20 75 73 20 66 72 6f 6d 20 60 60 53 6f 75 72 63 65 66 6f 72 67 65 20 68 65 6c 6c 2e 27 27 0a 0a | .us.from.``Sourceforge.hell.''.. |
| 25c6e0 | 49 6d 70 6c 65 6d 65 6e 74 6f 72 73 20 6f 66 20 74 68 65 20 4c 69 73 70 73 20 74 68 61 74 20 77 | Implementors.of.the.Lisps.that.w |
| 25c700 | 65 20 73 75 70 70 6f 72 74 20 68 61 76 65 20 62 65 65 6e 20 61 20 67 72 65 61 74 20 68 65 6c 70 | e.support.have.been.a.great.help |
| 25c720 | 2e 20 57 65 27 64 0a 6c 69 6b 65 20 74 6f 20 74 68 61 6e 6b 20 74 68 65 20 40 61 63 72 6f 6e 79 | ..We'd.like.to.thank.the.@acrony |
| 25c740 | 6d 7b 43 4d 55 43 4c 7d 20 6d 61 69 6e 74 61 69 6e 65 72 73 20 66 6f 72 20 74 68 65 69 72 20 68 | m{CMUCL}.maintainers.for.their.h |
| 25c760 | 65 6c 70 66 75 6c 0a 61 6e 73 77 65 72 73 2c 20 43 72 61 69 67 20 4e 6f 72 76 65 6c 6c 20 61 6e | elpful.answers,.Craig.Norvell.an |
| 25c780 | 64 20 4b 65 76 69 6e 20 4c 61 79 65 72 20 61 74 20 46 72 61 6e 7a 20 70 72 6f 76 69 64 69 6e 67 | d.Kevin.Layer.at.Franz.providing |
| 25c7a0 | 20 41 6c 6c 65 67 72 6f 20 43 4c 0a 6c 69 63 65 6e 73 65 73 20 66 6f 72 20 40 53 4c 49 4d 45 7b | .Allegro.CL.licenses.for.@SLIME{ |
| 25c7c0 | 7d 20 64 65 76 65 6c 6f 70 6d 65 6e 74 2c 20 61 6e 64 20 50 65 74 65 72 20 47 72 61 76 65 73 20 | }.development,.and.Peter.Graves. |
| 25c7e0 | 66 6f 72 20 68 69 73 20 68 65 6c 70 20 74 6f 0a 67 65 74 20 40 53 4c 49 4d 45 7b 7d 20 72 75 6e | for.his.help.to.get.@SLIME{}.run |
| 25c800 | 6e 69 6e 67 20 77 69 74 68 20 40 61 63 72 6f 6e 79 6d 7b 41 42 43 4c 7d 2e 0a 0a 4d 6f 73 74 20 | ning.with.@acronym{ABCL}...Most. |
| 25c820 | 6f 66 20 61 6c 6c 20 77 65 27 72 65 20 68 61 70 70 79 20 74 6f 20 62 65 20 77 6f 72 6b 69 6e 67 | of.all.we're.happy.to.be.working |
| 25c840 | 20 77 69 74 68 20 74 68 65 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 6f 72 73 0a 77 68 6f 27 | .with.the.Lisp.implementors.who' |
| 25c860 | 76 65 20 6a 6f 69 6e 65 64 20 69 6e 20 74 68 65 20 40 53 4c 49 4d 45 7b 7d 20 64 65 76 65 6c 6f | ve.joined.in.the.@SLIME{}.develo |
| 25c880 | 70 6d 65 6e 74 3a 20 44 61 6e 20 42 61 72 6c 6f 77 20 61 6e 64 20 43 68 72 69 73 74 6f 70 68 65 | pment:.Dan.Barlow.and.Christophe |
| 25c8a0 | 0a 52 68 6f 64 65 73 20 6f 66 20 40 61 63 72 6f 6e 79 6d 7b 53 42 43 4c 7d 2c 20 47 61 72 79 20 | .Rhodes.of.@acronym{SBCL},.Gary. |
| 25c8c0 | 42 79 65 72 73 20 6f 66 20 4f 70 65 6e 4d 43 4c 2c 20 61 6e 64 20 4d 61 72 74 69 6e 20 53 69 6d | Byers.of.OpenMCL,.and.Martin.Sim |
| 25c8e0 | 6d 6f 6e 73 20 6f 66 0a 4c 69 73 70 57 6f 72 6b 73 2e 20 54 68 61 6e 6b 73 20 61 6c 73 6f 20 74 | mons.of.LispWorks..Thanks.also.t |
| 25c900 | 6f 20 41 6c 61 69 6e 20 50 69 63 61 72 64 20 61 6e 64 20 4d 65 6d 65 74 72 69 63 73 20 66 6f 72 | o.Alain.Picard.and.Memetrics.for |
| 25c920 | 20 66 75 6e 64 69 6e 67 0a 4d 61 72 74 69 6e 27 73 20 69 6e 69 74 69 61 6c 20 77 6f 72 6b 20 6f | .funding.Martin's.initial.work.o |
| 25c940 | 6e 20 74 68 65 20 4c 69 73 70 57 6f 72 6b 73 20 62 61 63 6b 65 6e 64 21 0a 0a 40 69 67 6e 6f 72 | n.the.LispWorks.backend!..@ignor |
| 25c960 | 65 0a 54 68 69 73 20 69 6e 64 65 78 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 69 67 6e 6f 72 65 | e.This.index.is.currently.ignore |
| 25c980 | 64 2c 20 62 65 63 61 75 73 65 20 74 65 78 69 6e 66 6f 27 73 20 62 75 69 6c 74 2d 69 6e 20 69 6e | d,.because.texinfo's.built-in.in |
| 25c9a0 | 64 65 78 69 6e 67 0a 70 72 6f 64 75 63 65 73 20 6e 69 63 65 72 20 72 65 73 75 6c 74 73 2e 20 20 | dexing.produces.nicer.results... |
| 25c9c0 | 2d 2d 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 0a 0a 40 63 40 6e 6f 64 65 20 49 6e 64 65 78 20 74 | --.Helmut.Eller..@c@node.Index.t |
| 25c9e0 | 6f 20 46 75 6e 63 74 69 6f 6e 73 0a 40 63 40 61 70 70 65 6e 64 69 78 20 49 6e 64 65 78 20 74 6f | o.Functions.@c@appendix.Index.to |
| 25ca00 | 20 46 75 6e 63 74 69 6f 6e 73 0a 0a 54 68 65 73 65 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 | .Functions..These.functions.are. |
| 25ca20 | 61 6c 6c 20 61 76 61 69 6c 61 62 6c 65 20 28 77 68 65 6e 20 72 65 6c 65 76 61 6e 74 29 2e 20 54 | all.available.(when.relevant)..T |
| 25ca40 | 6f 20 66 69 6e 64 20 74 68 65 0a 6b 65 79 62 69 6e 64 69 6e 67 20 28 69 66 20 74 68 65 72 65 20 | o.find.the.keybinding.(if.there. |
| 25ca60 | 69 73 20 6f 6e 65 29 20 72 65 66 65 72 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 | is.one).refer.to.the.function.de |
| 25ca80 | 73 63 72 69 70 74 69 6f 6e 2e 0a 0a 40 63 20 4e 6f 74 65 20 74 6f 20 65 64 69 74 6f 72 73 3a 20 | scription...@c.Note.to.editors:. |
| 25caa0 | 40 66 63 6e 69 6e 64 65 78 7b 2e 2e 2e 7d 20 6c 69 6e 65 73 20 63 6f 6d 6d 65 6e 74 65 64 20 6f | @fcnindex{...}.lines.commented.o |
| 25cac0 | 75 74 20 62 65 6c 6f 77 20 61 72 65 20 70 6c 61 63 65 20 68 6f 6c 64 65 72 73 0a 40 63 20 2d 2d | ut.below.are.place.holders.@c.-- |
| 25cae0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 40 63 20 54 68 65 79 20 68 61 76 65 20 79 65 74 20 | --------------.@c.They.have.yet. |
| 25cb00 | 74 6f 20 62 65 20 64 6f 63 75 6d 65 6e 74 65 64 0a 40 63 20 50 6c 65 61 73 65 20 66 65 65 6c 20 | to.be.documented.@c.Please.feel. |
| 25cb20 | 66 72 65 65 20 74 6f 20 61 64 64 20 64 65 73 63 72 69 70 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 | free.to.add.descriptions.in.the. |
| 25cb40 | 74 65 78 74 20 77 68 65 72 65 20 61 70 70 72 6f 70 72 69 61 74 65 2c 20 61 64 64 20 74 68 65 0a | text.where.appropriate,.add.the. |
| 25cb60 | 40 63 20 61 70 70 72 6f 70 72 69 61 74 65 20 61 6e 63 68 6f 72 73 20 61 6e 64 20 75 6e 63 6f 6d | @c.appropriate.anchors.and.uncom |
| 25cb80 | 6d 65 6e 74 20 74 68 65 6d 2e 0a 40 63 0a 40 63 20 5b 6a 6b 63 5d 0a 0a 40 74 61 62 6c 65 20 40 | ment.them..@c.@c.[jkc]..@table.@ |
| 25cba0 | 63 6f 64 65 0a 40 66 63 6e 69 6e 64 65 78 7b 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 | code.@fcnindex{common-lisp-hyper |
| 25cbc0 | 73 70 65 63 2d 66 6f 72 6d 61 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 61 62 6f 72 | spec-format}.@fcnindex{sldb-abor |
| 25cbe0 | 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 61 63 74 69 76 61 74 65 7d 0a 40 | t}.@c.@fcnindex{sldb-activate}.@ |
| 25cc00 | 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 61 64 64 2d 66 61 63 65 7d 0a 40 63 20 40 66 | c.@fcnindex{sldb-add-face}.@c.@f |
| 25cc20 | 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 62 61 63 6b 77 61 72 64 2d 66 72 61 6d 65 7d 0a 40 63 20 | cnindex{sldb-backward-frame}.@c. |
| 25cc40 | 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 62 61 63 6b | @fcnindex{sldb-beginning-of-back |
| 25cc60 | 74 72 61 63 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 62 72 65 61 6b 7d 0a | trace}.@c.@fcnindex{sldb-break}. |
| 25cc80 | 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 62 72 65 61 6b 2d 6f 6e 2d 72 65 74 75 72 | @c.@fcnindex{sldb-break-on-retur |
| 25cca0 | 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d 64 65 66 | n}.@fcnindex{sldb-break-with-def |
| 25ccc0 | 61 75 6c 74 2d 64 65 62 75 67 67 65 72 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 | ault-debugger}.@c.@fcnindex{sldb |
| 25cce0 | 2d 62 75 66 66 65 72 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 63 61 74 63 | -buffers}.@c.@fcnindex{sldb-catc |
| 25cd00 | 68 2d 74 61 67 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 7d | h-tags}.@fcnindex{sldb-continue} |
| 25cd20 | 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 64 65 62 75 67 67 65 64 2d 63 6f 6e 74 | .@c.@fcnindex{sldb-debugged-cont |
| 25cd40 | 69 6e 75 61 74 69 6f 6e 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 64 65 66 | inuations}.@c.@fcnindex{sldb-def |
| 25cd60 | 61 75 6c 74 2d 61 63 74 69 6f 6e 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 64 | ault-action}.@c.@fcnindex{sldb-d |
| 25cd80 | 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 2f 6d 6f 75 73 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 | efault-action/mouse}.@c.@fcninde |
| 25cda0 | 78 7b 73 6c 64 62 2d 64 65 6c 65 74 65 2d 6f 76 65 72 6c 61 79 73 7d 0a 40 63 20 40 66 63 6e 69 | x{sldb-delete-overlays}.@c.@fcni |
| 25cdc0 | 6e 64 65 78 7b 73 6c 64 62 2d 64 65 74 61 69 6c 73 2d 64 6f 77 6e 7d 0a 40 63 20 40 66 63 6e 69 | ndex{sldb-details-down}.@c.@fcni |
| 25cde0 | 6e 64 65 78 7b 73 6c 64 62 2d 64 65 74 61 69 6c 73 2d 75 70 7d 0a 40 66 63 6e 69 6e 64 65 78 7b | ndex{sldb-details-up}.@fcnindex{ |
| 25ce00 | 73 6c 64 62 2d 64 69 73 61 73 73 65 6d 62 6c 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 | sldb-disassemble}.@c.@fcnindex{s |
| 25ce20 | 6c 64 62 2d 64 69 73 70 61 74 63 68 2d 65 78 74 72 61 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 | ldb-dispatch-extras}.@c.@fcninde |
| 25ce40 | 78 7b 73 6c 64 62 2d 64 6f 77 6e 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 65 | x{sldb-down}.@c.@fcnindex{sldb-e |
| 25ce60 | 6e 64 2d 6f 66 2d 62 61 63 6b 74 72 61 63 65 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d | nd-of-backtrace}.@fcnindex{sldb- |
| 25ce80 | 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 | eval-in-frame}.@c.@fcnindex{sldb |
| 25cea0 | 2d 65 78 69 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 66 65 74 63 68 2d 61 | -exit}.@c.@fcnindex{sldb-fetch-a |
| 25cec0 | 6c 6c 2d 66 72 61 6d 65 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 66 65 74 | ll-frames}.@c.@fcnindex{sldb-fet |
| 25cee0 | 63 68 2d 6d 6f 72 65 2d 66 72 61 6d 65 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 | ch-more-frames}.@c.@fcnindex{sld |
| 25cf00 | 62 2d 66 69 6e 64 2d 62 75 66 66 65 72 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 | b-find-buffer}.@c.@fcnindex{sldb |
| 25cf20 | 2d 66 6f 72 6d 61 74 2d 72 65 66 65 72 65 6e 63 65 2d 6e 6f 64 65 7d 0a 40 63 20 40 66 63 6e 69 | -format-reference-node}.@c.@fcni |
| 25cf40 | 6e 64 65 78 7b 73 6c 64 62 2d 66 6f 72 6d 61 74 2d 72 65 66 65 72 65 6e 63 65 2d 73 6f 75 72 63 | ndex{sldb-format-reference-sourc |
| 25cf60 | 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 66 6f 72 77 61 72 64 2d 66 72 61 | e}.@c.@fcnindex{sldb-forward-fra |
| 25cf80 | 6d 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 66 72 61 6d 65 2d 64 65 74 61 | me}.@c.@fcnindex{sldb-frame-deta |
| 25cfa0 | 69 6c 73 2d 76 69 73 69 62 6c 65 2d 70 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 | ils-visible-p}.@c.@fcnindex{sldb |
| 25cfc0 | 2d 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 | -frame-locals}.@c.@fcnindex{sldb |
| 25cfe0 | 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 7d 0a 40 63 20 40 66 63 6e 69 | -frame-number-at-point}.@c.@fcni |
| 25d000 | 6e 64 65 78 7b 73 6c 64 62 2d 66 72 61 6d 65 2d 72 65 67 69 6f 6e 7d 0a 40 63 20 40 66 63 6e 69 | ndex{sldb-frame-region}.@c.@fcni |
| 25d020 | 6e 64 65 78 7b 73 6c 64 62 2d 67 65 74 2d 62 75 66 66 65 72 7d 0a 40 63 20 40 66 63 6e 69 6e 64 | ndex{sldb-get-buffer}.@c.@fcnind |
| 25d040 | 65 78 7b 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 7d 0a 40 63 20 40 | ex{sldb-get-default-buffer}.@c.@ |
| 25d060 | 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 67 6f 74 6f 2d 6c 61 73 74 2d 66 72 61 6d 65 7d 0a 40 | fcnindex{sldb-goto-last-frame}.@ |
| 25d080 | 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 68 65 6c 70 2d 73 75 6d 6d 61 72 79 7d 0a 40 | c.@fcnindex{sldb-help-summary}.@ |
| 25d0a0 | 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 68 69 64 65 2d 66 72 61 6d 65 2d 64 65 74 61 | c.@fcnindex{sldb-hide-frame-deta |
| 25d0c0 | 69 6c 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 68 69 67 68 6c 69 67 68 74 | ils}.@c.@fcnindex{sldb-highlight |
| 25d0e0 | 2d 73 65 78 70 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 69 6e 73 65 72 74 2d | -sexp}.@c.@fcnindex{sldb-insert- |
| 25d100 | 63 6f 6e 64 69 74 69 6f 6e 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 69 6e 73 | condition}.@c.@fcnindex{sldb-ins |
| 25d120 | 65 72 74 2d 66 72 61 6d 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 69 6e 73 | ert-frame}.@c.@fcnindex{sldb-ins |
| 25d140 | 65 72 74 2d 66 72 61 6d 65 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 69 6e | ert-frames}.@c.@fcnindex{sldb-in |
| 25d160 | 73 65 72 74 2d 6c 6f 63 61 6c 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 69 | sert-locals}.@c.@fcnindex{sldb-i |
| 25d180 | 6e 73 65 72 74 2d 72 65 66 65 72 65 6e 63 65 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 | nsert-references}.@c.@fcnindex{s |
| 25d1a0 | 6c 64 62 2d 69 6e 73 65 72 74 2d 72 65 73 74 61 72 74 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 | ldb-insert-restarts}.@c.@fcninde |
| 25d1c0 | 78 7b 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 63 6f 6e 64 69 74 69 6f 6e 7d 0a 40 66 63 6e 69 6e | x{sldb-inspect-condition}.@fcnin |
| 25d1e0 | 64 65 78 7b 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 69 6e 2d 66 72 61 6d 65 7d 0a 40 63 20 40 66 | dex{sldb-inspect-in-frame}.@c.@f |
| 25d200 | 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 76 61 72 7d 0a 40 63 20 40 66 63 | cnindex{sldb-inspect-var}.@c.@fc |
| 25d220 | 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 7d 0a 40 63 20 40 | nindex{sldb-invoke-restart}.@c.@ |
| 25d240 | 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 6c 65 76 65 6c 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 | fcnindex{sldb-level}.@c.@fcninde |
| 25d260 | 78 7b 73 6c 64 62 2d 6c 69 73 74 2d 63 61 74 63 68 2d 74 61 67 73 7d 0a 40 63 20 40 66 63 6e 69 | x{sldb-list-catch-tags}.@c.@fcni |
| 25d280 | 6e 64 65 78 7b 73 6c 64 62 2d 6c 69 73 74 2d 6c 6f 63 61 6c 73 7d 0a 40 63 20 40 66 63 6e 69 6e | ndex{sldb-list-locals}.@c.@fcnin |
| 25d2a0 | 64 65 78 7b 73 6c 64 62 2d 6c 6f 6f 6b 75 70 2d 72 65 66 65 72 65 6e 63 65 7d 0a 40 63 20 40 66 | dex{sldb-lookup-reference}.@c.@f |
| 25d2c0 | 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 6d 61 79 62 65 2d 72 65 63 65 6e 74 65 72 2d 72 65 67 69 | cnindex{sldb-maybe-recenter-regi |
| 25d2e0 | 6f 6e 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 6d 6f 64 65 2d 68 6f 6f 6b 7d | on}.@c.@fcnindex{sldb-mode-hook} |
| 25d300 | 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 6e 65 78 74 7d 0a 40 63 20 40 66 63 6e | .@c.@fcnindex{sldb-next}.@c.@fcn |
| 25d320 | 69 6e 64 65 78 7b 73 6c 64 62 2d 6f 75 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 70 | index{sldb-out}.@fcnindex{sldb-p |
| 25d340 | 70 72 69 6e 74 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 | print-eval-in-frame}.@c.@fcninde |
| 25d360 | 78 7b 73 6c 64 62 2d 70 72 65 76 69 6f 75 73 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 7d 0a 40 63 | x{sldb-previous-frame-number}.@c |
| 25d380 | 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 70 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 7d | .@fcnindex{sldb-print-condition} |
| 25d3a0 | 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 70 72 75 6e 65 2d 69 6e 69 74 69 61 6c | .@c.@fcnindex{sldb-prune-initial |
| 25d3c0 | 2d 66 72 61 6d 65 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 71 75 69 74 7d 0a 40 63 | -frames}.@fcnindex{sldb-quit}.@c |
| 25d3e0 | 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 72 65 66 65 72 65 6e 63 65 2d 70 72 6f 70 65 72 | .@fcnindex{sldb-reference-proper |
| 25d400 | 74 69 65 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 72 65 73 74 61 72 74 2d | ties}.@c.@fcnindex{sldb-restart- |
| 25d420 | 61 74 2d 70 6f 69 6e 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 72 65 73 74 61 72 74 | at-point}.@fcnindex{sldb-restart |
| 25d440 | 2d 66 72 61 6d 65 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 72 65 74 75 72 6e 2d 66 72 | -frame}.@fcnindex{sldb-return-fr |
| 25d460 | 6f 6d 2d 66 72 61 6d 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 73 65 74 75 | om-frame}.@c.@fcnindex{sldb-setu |
| 25d480 | 70 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 73 68 6f 77 2d 66 72 61 6d 65 2d | p}.@c.@fcnindex{sldb-show-frame- |
| 25d4a0 | 64 65 74 61 69 6c 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 73 68 6f 77 2d | details}.@c.@fcnindex{sldb-show- |
| 25d4c0 | 66 72 61 6d 65 2d 73 6f 75 72 63 65 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 73 68 6f | frame-source}.@fcnindex{sldb-sho |
| 25d4e0 | 77 2d 73 6f 75 72 63 65 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 73 74 65 70 7d 0a 40 | w-source}.@fcnindex{sldb-step}.@ |
| 25d500 | 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 73 75 67 61 72 2d 6d 6f 76 65 7d 0a 40 66 63 | c.@fcnindex{sldb-sugar-move}.@fc |
| 25d520 | 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 74 6f 67 67 6c 65 2d 64 65 74 61 69 6c 73 7d 0a 40 63 20 40 | nindex{sldb-toggle-details}.@c.@ |
| 25d540 | 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d 75 70 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 | fcnindex{sldb-up}.@c.@fcnindex{s |
| 25d560 | 6c 64 62 2d 76 61 72 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 69 6e 74 7d 0a 40 63 20 40 66 63 6e | ldb-var-number-at-point}.@c.@fcn |
| 25d580 | 69 6e 64 65 78 7b 73 6c 64 62 2d 78 65 6d 61 63 73 2d 65 6d 75 6c 61 74 65 2d 70 6f 69 6e 74 2d | index{sldb-xemacs-emulate-point- |
| 25d5a0 | 65 6e 74 65 72 65 64 2d 68 6f 6f 6b 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 64 62 2d | entered-hook}.@c.@fcnindex{sldb- |
| 25d5c0 | 78 65 6d 61 63 73 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 7d 0a 0a 0a 40 63 20 40 | xemacs-post-command-hook}...@c.@ |
| 25d5e0 | 66 63 6e 69 6e 64 65 78 7b 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 63 6c 6f 73 69 6e 67 2d | fcnindex{inferior-slime-closing- |
| 25d600 | 72 65 74 75 72 6e 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 69 6e 66 65 72 69 6f 72 2d 73 6c | return}.@c.@fcnindex{inferior-sl |
| 25d620 | 69 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 69 6e | ime-indent-line}.@c.@fcnindex{in |
| 25d640 | 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b | ferior-slime-mode}.@c.@fcnindex{ |
| 25d660 | 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 72 65 74 75 72 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 | inferior-slime-return}.@fcnindex |
| 25d680 | 7b 73 6c 69 6d 65 2d 61 62 6f 72 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 7d 0a 40 66 63 6e 69 6e 64 | {slime-abort-connection}.@fcnind |
| 25d6a0 | 65 78 7b 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d | ex{slime-apropos}.@fcnindex{slim |
| 25d6c0 | 65 2d 61 70 72 6f 70 6f 73 2d 61 6c 6c 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 61 | e-apropos-all}.@fcnindex{slime-a |
| 25d6e0 | 70 72 6f 70 6f 73 2d 70 61 63 6b 61 67 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 | propos-package}.@c.@fcnindex{sli |
| 25d700 | 6d 65 2d 61 72 67 6c 69 73 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 61 75 74 6f | me-arglist}.@fcnindex{slime-auto |
| 25d720 | 64 6f 63 2d 6d 6f 64 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 61 75 74 | doc-mode}.@c.@fcnindex{slime-aut |
| 25d740 | 6f 64 6f 63 2d 73 74 61 72 74 2d 74 69 6d 65 72 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 | odoc-start-timer}.@c.@fcnindex{s |
| 25d760 | 6c 69 6d 65 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 61 63 74 69 76 69 74 69 65 73 2d 65 6e 61 62 6c | lime-background-activities-enabl |
| 25d780 | 65 64 2d 70 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 62 61 63 6b 67 72 6f | ed-p}.@c.@fcnindex{slime-backgro |
| 25d7a0 | 75 6e 64 2d 6d 65 73 73 61 67 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d | und-message}.@c.@fcnindex{slime- |
| 25d7c0 | 62 72 6f 77 73 65 2d 63 6c 61 73 73 65 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 | browse-classes}.@c.@fcnindex{sli |
| 25d7e0 | 6d 65 2d 62 72 6f 77 73 65 2d 78 72 65 66 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 | me-browse-xrefs}.@fcnindex{slime |
| 25d800 | 2d 63 61 6c 6c 2d 64 65 66 75 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 61 6c | -call-defun}.@fcnindex{slime-cal |
| 25d820 | 6c 73 2d 77 68 6f 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 68 65 63 6b | ls-who}.@c.@fcnindex{slime-check |
| 25d840 | 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d | -coding-system}.@fcnindex{slime- |
| 25d860 | 63 6c 6f 73 65 2d 61 6c 6c 2d 73 65 78 70 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d | close-all-sexp}.@fcnindex{slime- |
| 25d880 | 63 6c 6f 73 65 2d 70 61 72 65 6e 73 2d 61 74 2d 70 6f 69 6e 74 7d 0a 40 66 63 6e 69 6e 64 65 78 | close-parens-at-point}.@fcnindex |
| 25d8a0 | 7b 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 2d 66 69 6c 65 7d 0a 40 66 | {slime-compile-and-load-file}.@f |
| 25d8c0 | 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 64 65 66 75 6e 7d 0a 40 66 63 | cnindex{slime-compile-defun}.@fc |
| 25d8e0 | 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 7d 0a 40 66 63 6e 69 | nindex{slime-compile-file}.@fcni |
| 25d900 | 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 72 65 67 69 6f 6e 7d 0a 40 66 63 6e 69 | ndex{slime-compile-region}.@fcni |
| 25d920 | 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 7d | ndex{slime-compiler-macroexpand} |
| 25d940 | 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 | .@fcnindex{slime-compiler-macroe |
| 25d960 | 78 70 61 6e 64 2d 31 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f 6d 70 | xpand-1}.@c.@fcnindex{slime-comp |
| 25d980 | 69 6c 65 72 2d 6e 6f 74 65 73 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 2d 6f 72 2d 73 68 6f | iler-notes-default-action-or-sho |
| 25d9a0 | 77 2d 64 65 74 61 69 6c 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f | w-details}.@c.@fcnindex{slime-co |
| 25d9c0 | 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 64 65 66 61 75 6c 74 2d 61 63 74 69 6f 6e 2d 6f 72 2d 73 | mpiler-notes-default-action-or-s |
| 25d9e0 | 68 6f 77 2d 64 65 74 61 69 6c 73 2f 6d 6f 75 73 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b | how-details/mouse}.@c.@fcnindex{ |
| 25da00 | 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 71 75 69 74 7d 0a 40 63 20 40 66 | slime-compiler-notes-quit}.@c.@f |
| 25da20 | 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 2d 73 68 6f | cnindex{slime-compiler-notes-sho |
| 25da40 | 77 2d 64 65 74 61 69 6c 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f | w-details}.@c.@fcnindex{slime-co |
| 25da60 | 6d 70 6c 65 74 65 2d 66 6f 72 6d 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f 6d | mplete-form}.@fcnindex{slime-com |
| 25da80 | 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f | plete-symbol}.@fcnindex{slime-co |
| 25daa0 | 6e 6e 65 63 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f | nnect}.@fcnindex{slime-connectio |
| 25dac0 | 6e 2d 6c 69 73 74 2d 6d 61 6b 65 2d 64 65 66 61 75 6c 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 | n-list-make-default}.@c.@fcninde |
| 25dae0 | 78 7b 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 2d 6d 6f 64 65 7d 0a 40 63 | x{slime-connection-list-mode}.@c |
| 25db00 | 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 | .@fcnindex{slime-copy-presentati |
| 25db20 | 6f 6e 2d 61 74 2d 70 6f 69 6e 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 64 65 73 | on-at-point}.@fcnindex{slime-des |
| 25db40 | 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d | cribe-function}.@fcnindex{slime- |
| 25db60 | 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 | describe-symbol}.@fcnindex{slime |
| 25db80 | 2d 64 69 73 61 73 73 65 6d 62 6c 65 2d 73 79 6d 62 6f 6c 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 | -disassemble-symbol}.@fcnindex{s |
| 25dba0 | 6c 69 6d 65 2d 64 69 73 63 6f 6e 6e 65 63 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c | lime-disconnect}.@c.@fcnindex{sl |
| 25dbc0 | 69 6d 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 | ime-documentation}.@fcnindex{sli |
| 25dbe0 | 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c | me-edit-definition}.@fcnindex{sl |
| 25dc00 | 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6f 74 68 65 72 2d 66 72 61 6d 65 7d | ime-edit-definition-other-frame} |
| 25dc20 | 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e | .@fcnindex{slime-edit-definition |
| 25dc40 | 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 65 | -other-window}.@fcnindex{slime-e |
| 25dc60 | 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 77 69 74 68 2d 65 74 61 67 73 7d 0a 40 66 63 6e 69 | dit-definition-with-etags}.@fcni |
| 25dc80 | 6e 64 65 78 7b 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 7d 0a 40 63 20 40 66 63 6e 69 6e | ndex{slime-edit-value}.@c.@fcnin |
| 25dca0 | 64 65 78 7b 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 2d 63 6f 6d 6d 69 74 7d 0a 40 63 20 | dex{slime-edit-value-commit}.@c. |
| 25dcc0 | 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 2d 6d 6f 64 65 7d | @fcnindex{slime-edit-value-mode} |
| 25dce0 | 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 65 6e 73 75 72 65 2d 74 79 70 65 6f 75 74 2d | .@fcnindex{slime-ensure-typeout- |
| 25dd00 | 66 72 61 6d 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 65 76 61 6c 2d 62 | frame}.@c.@fcnindex{slime-eval-b |
| 25dd20 | 75 66 66 65 72 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 66 75 | uffer}.@fcnindex{slime-eval-defu |
| 25dd40 | 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 | n}.@fcnindex{slime-eval-last-exp |
| 25dd60 | 72 65 73 73 69 6f 6e 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 65 76 61 6c | ression}.@c.@fcnindex{slime-eval |
| 25dd80 | 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 7d 0a 40 66 63 6e 69 6e 64 65 | -print-last-expression}.@fcninde |
| 25dda0 | 78 7b 73 6c 69 6d 65 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 | x{slime-eval-region}.@fcnindex{s |
| 25ddc0 | 6c 69 6d 65 2d 66 75 7a 7a 79 2d 61 62 6f 72 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d | lime-fuzzy-abort}.@fcnindex{slim |
| 25dde0 | 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 7d 0a 40 66 63 6e 69 6e 64 | e-fuzzy-complete-symbol}.@fcnind |
| 25de00 | 65 78 7b 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 6d 6f 64 65 7d | ex{slime-fuzzy-completions-mode} |
| 25de20 | 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 6e 65 78 74 7d 0a | .@c.@fcnindex{slime-fuzzy-next}. |
| 25de40 | 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 70 72 65 76 7d 0a 40 | @c.@fcnindex{slime-fuzzy-prev}.@ |
| 25de60 | 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 7d 0a | c.@fcnindex{slime-fuzzy-select}. |
| 25de80 | 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 73 65 6c 65 63 74 2f | @c.@fcnindex{slime-fuzzy-select/ |
| 25dea0 | 6d 6f 75 73 65 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 67 6f 74 6f 2d 63 6f 6e 6e | mouse}.@fcnindex{slime-goto-conn |
| 25dec0 | 65 63 74 69 6f 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 67 6f 74 6f 2d 78 72 65 | ection}.@fcnindex{slime-goto-xre |
| 25dee0 | 66 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 68 61 6e 64 6c 65 2d 72 65 70 | f}.@c.@fcnindex{slime-handle-rep |
| 25df00 | 6c 2d 73 68 6f 72 74 63 75 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 68 | l-shortcut}.@c.@fcnindex{slime-h |
| 25df20 | 69 67 68 6c 69 67 68 74 2d 6e 6f 74 65 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d | ighlight-notes}.@fcnindex{slime- |
| 25df40 | 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 | hyperspec-lookup}.@c.@fcnindex{s |
| 25df60 | 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 7d | lime-indent-and-complete-symbol} |
| 25df80 | 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 69 6e 69 74 2d 6b 65 79 6d 61 70 73 | .@c.@fcnindex{slime-init-keymaps |
| 25dfa0 | 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 61 72 67 6c | }.@c.@fcnindex{slime-insert-argl |
| 25dfc0 | 69 73 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 62 | ist}.@c.@fcnindex{slime-insert-b |
| 25dfe0 | 61 6c 61 6e 63 65 64 2d 63 6f 6d 6d 65 6e 74 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d | alanced-comments}.@fcnindex{slim |
| 25e000 | 65 2d 69 6e 73 70 65 63 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 69 6e 73 70 65 | e-inspect}.@fcnindex{slime-inspe |
| 25e020 | 63 74 6f 72 2d 63 6f 70 79 2d 64 6f 77 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d | ctor-copy-down}.@fcnindex{slime- |
| 25e040 | 69 6e 73 70 65 63 74 6f 72 2d 64 65 73 63 72 69 62 65 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c | inspector-describe}.@fcnindex{sl |
| 25e060 | 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 | ime-inspector-next}.@c.@fcnindex |
| 25e080 | 7b 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 2d 69 6e 73 70 65 63 74 61 62 6c | {slime-inspector-next-inspectabl |
| 25e0a0 | 65 2d 6f 62 6a 65 63 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 69 6e 73 70 65 63 | e-object}.@fcnindex{slime-inspec |
| 25e0c0 | 74 6f 72 2d 71 75 69 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 69 6e 73 | tor-quit}.@c.@fcnindex{slime-ins |
| 25e0e0 | 70 65 63 74 6f 72 2d 72 65 69 6e 73 70 65 63 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d | pector-reinspect}.@fcnindex{slim |
| 25e100 | 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c | e-interactive-eval}.@fcnindex{sl |
| 25e120 | 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 6c | ime-interrupt}.@fcnindex{slime-l |
| 25e140 | 69 73 74 2d 63 61 6c 6c 65 65 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 6c 69 73 | ist-callees}.@fcnindex{slime-lis |
| 25e160 | 74 2d 63 61 6c 6c 65 72 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 6c 69 | t-callers}.@c.@fcnindex{slime-li |
| 25e180 | 73 74 2d 63 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 | st-compiler-notes}.@fcnindex{sli |
| 25e1a0 | 6d 65 2d 6c 69 73 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 | me-list-connections}.@c.@fcninde |
| 25e1c0 | 78 7b 73 6c 69 6d 65 2d 6c 69 73 74 2d 72 65 70 6c 2d 73 68 6f 72 74 63 75 74 73 7d 0a 40 66 63 | x{slime-list-repl-shortcuts}.@fc |
| 25e1e0 | 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 6c 69 73 74 2d 74 68 72 65 61 64 73 7d 0a 40 66 63 6e 69 | nindex{slime-list-threads}.@fcni |
| 25e200 | 6e 64 65 78 7b 73 6c 69 6d 65 2d 6c 6f 61 64 2d 66 69 6c 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 | ndex{slime-load-file}.@c.@fcnind |
| 25e220 | 65 78 7b 73 6c 69 6d 65 2d 6c 6f 61 64 2d 73 79 73 74 65 6d 7d 0a 40 66 63 6e 69 6e 64 65 78 7b | ex{slime-load-system}.@fcnindex{ |
| 25e240 | 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 | slime-macroexpand-1}.@fcnindex{s |
| 25e260 | 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 2d 69 6e 70 6c 61 63 65 7d 0a 40 66 63 6e | lime-macroexpand-1-inplace}.@fcn |
| 25e280 | 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 7d 0a 40 63 20 | index{slime-macroexpand-all}.@c. |
| 25e2a0 | 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 6d 61 6b 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6e | @fcnindex{slime-make-default-con |
| 25e2c0 | 6e 65 63 74 69 6f 6e 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 6d 61 6b 65 | nection}.@c.@fcnindex{slime-make |
| 25e2e0 | 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d | -typeout-frame}.@fcnindex{slime- |
| 25e300 | 6d 6f 64 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 6e 65 78 74 2d 6c 6f | mode}.@c.@fcnindex{slime-next-lo |
| 25e320 | 63 61 74 69 6f 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 6e 65 78 74 2d 6e 6f 74 | cation}.@fcnindex{slime-next-not |
| 25e340 | 65 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 6e 6f 70 7d 0a 40 63 20 40 66 63 6e 69 | e}.@fcnindex{slime-nop}.@c.@fcni |
| 25e360 | 6e 64 65 78 7b 73 6c 69 6d 65 2d 70 69 6e 67 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 | ndex{slime-ping}.@fcnindex{slime |
| 25e380 | 2d 70 6f 70 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 63 6b 7d 0a 40 66 63 6e | -pop-find-definition-stack}.@fcn |
| 25e3a0 | 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 | index{slime-pprint-eval-last-exp |
| 25e3c0 | 72 65 73 73 69 6f 6e 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 70 72 65 73 | ression}.@c.@fcnindex{slime-pres |
| 25e3e0 | 65 6e 74 61 74 69 6f 6e 2d 6d 65 6e 75 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d | entation-menu}.@c.@fcnindex{slim |
| 25e400 | 65 2d 70 72 65 74 74 79 2d 6c 61 6d 62 64 61 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d | e-pretty-lambdas}.@fcnindex{slim |
| 25e420 | 65 2d 70 72 65 76 69 6f 75 73 2d 6e 6f 74 65 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 | e-previous-note}.@fcnindex{slime |
| 25e440 | 2d 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d | -profile-package}.@fcnindex{slim |
| 25e460 | 65 2d 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d | e-profile-report}.@fcnindex{slim |
| 25e480 | 65 2d 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 | e-profile-reset}.@fcnindex{slime |
| 25e4a0 | 2d 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 | -profiled-functions}.@fcnindex{s |
| 25e4c0 | 6c 69 6d 65 2d 71 75 69 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 71 75 | lime-quit}.@c.@fcnindex{slime-qu |
| 25e4e0 | 69 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 7d 0a 40 63 20 40 66 63 6e 69 | it-connection-at-point}.@c.@fcni |
| 25e500 | 6e 64 65 78 7b 73 6c 69 6d 65 2d 71 75 69 74 2d 6c 69 73 70 7d 0a 40 63 20 40 66 63 6e 69 6e 64 | ndex{slime-quit-lisp}.@c.@fcnind |
| 25e520 | 65 78 7b 73 6c 69 6d 65 2d 72 65 2d 65 76 61 6c 75 61 74 65 2d 64 65 66 76 61 72 7d 0a 40 63 20 | ex{slime-re-evaluate-defvar}.@c. |
| 25e540 | 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 62 79 74 65 63 6f | @fcnindex{slime-recompile-byteco |
| 25e560 | 64 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 67 69 73 74 65 72 2d | de}.@c.@fcnindex{slime-register- |
| 25e580 | 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 | lisp-implementation}.@fcnindex{s |
| 25e5a0 | 6c 69 6d 65 2d 72 65 69 6e 64 65 6e 74 2d 64 65 66 75 6e 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 | lime-reindent-defun}.@c.@fcninde |
| 25e5c0 | 78 7b 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 62 61 6c 61 6e 63 65 64 2d 63 6f 6d 6d 65 6e 74 73 | x{slime-remove-balanced-comments |
| 25e5e0 | 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 6e 6f 74 65 73 7d 0a | }.@fcnindex{slime-remove-notes}. |
| 25e600 | 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 7d 0a 40 66 63 6e 69 6e 64 | @c.@fcnindex{slime-repl}.@fcnind |
| 25e620 | 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e | ex{slime-repl-beginning-of-defun |
| 25e640 | 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 6f 6c 7d 0a 40 66 63 6e | }.@fcnindex{slime-repl-bol}.@fcn |
| 25e660 | 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 62 75 66 66 65 72 7d 0a 40 | index{slime-repl-clear-buffer}.@ |
| 25e680 | 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 6f 75 74 70 75 74 | fcnindex{slime-repl-clear-output |
| 25e6a0 | 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 6f 73 69 6e 67 2d 72 | }.@fcnindex{slime-repl-closing-r |
| 25e6c0 | 65 74 75 72 6e 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 | eturn}.@c.@fcnindex{slime-repl-c |
| 25e6e0 | 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c | ompile-and-load}.@c.@fcnindex{sl |
| 25e700 | 69 6d 65 2d 72 65 70 6c 2d 63 6f 6d 70 69 6c 65 2d 73 79 73 74 65 6d 7d 0a 40 63 20 40 66 63 6e | ime-repl-compile-system}.@c.@fcn |
| 25e720 | 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6f 6d 70 69 6c 65 2f 66 6f 72 63 65 2d 73 | index{slime-repl-compile/force-s |
| 25e740 | 79 73 74 65 6d 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 64 | ystem}.@c.@fcnindex{slime-repl-d |
| 25e760 | 65 66 70 61 72 61 6d 65 74 65 72 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 | efparameter}.@fcnindex{slime-rep |
| 25e780 | 6c 2d 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 | l-end-of-defun}.@c.@fcnindex{sli |
| 25e7a0 | 6d 65 2d 72 65 70 6c 2d 65 6f 6c 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d | me-repl-eol}.@c.@fcnindex{slime- |
| 25e7c0 | 72 65 70 6c 2d 6c 6f 61 64 2d 73 79 73 74 65 6d 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 | repl-load-system}.@c.@fcnindex{s |
| 25e7e0 | 6c 69 6d 65 2d 72 65 70 6c 2d 6c 6f 61 64 2f 66 6f 72 63 65 2d 73 79 73 74 65 6d 7d 0a 40 63 20 | lime-repl-load/force-system}.@c. |
| 25e800 | 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 7d 0a 40 66 63 6e 69 | @fcnindex{slime-repl-mode}.@fcni |
| 25e820 | 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 69 6e 64 65 | ndex{slime-repl-newline-and-inde |
| 25e840 | 6e 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d 69 6e | nt}.@fcnindex{slime-repl-next-in |
| 25e860 | 70 75 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d 6d | put}.@fcnindex{slime-repl-next-m |
| 25e880 | 61 74 63 68 69 6e 67 2d 69 6e 70 75 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 | atching-input}.@fcnindex{slime-r |
| 25e8a0 | 65 70 6c 2d 6e 65 78 74 2d 70 72 6f 6d 70 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c | epl-next-prompt}.@c.@fcnindex{sl |
| 25e8c0 | 69 6d 65 2d 72 65 70 6c 2d 70 6f 70 2d 64 69 72 65 63 74 6f 72 79 7d 0a 40 63 20 40 66 63 6e 69 | ime-repl-pop-directory}.@c.@fcni |
| 25e8e0 | 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 6f 70 2d 70 61 63 6b 61 67 65 73 7d 0a 40 66 | ndex{slime-repl-pop-packages}.@f |
| 25e900 | 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 69 6e 70 75 | cnindex{slime-repl-previous-inpu |
| 25e920 | 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 | t}.@fcnindex{slime-repl-previous |
| 25e940 | 2d 6d 61 74 63 68 69 6e 67 2d 69 6e 70 75 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 | -matching-input}.@fcnindex{slime |
| 25e960 | 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 70 72 6f 6d 70 74 7d 0a 40 63 20 40 66 63 6e 69 6e | -repl-previous-prompt}.@c.@fcnin |
| 25e980 | 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 75 73 68 2d 64 69 72 65 63 74 6f 72 79 7d 0a 40 | dex{slime-repl-push-directory}.@ |
| 25e9a0 | 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 75 73 68 2d 70 61 63 6b | c.@fcnindex{slime-repl-push-pack |
| 25e9c0 | 61 67 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 61 | age}.@c.@fcnindex{slime-repl-rea |
| 25e9e0 | 64 2d 62 72 65 61 6b 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c | d-break}.@c.@fcnindex{slime-repl |
| 25ea00 | 2d 72 65 61 64 2d 6d 6f 64 65 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c | -read-mode}.@fcnindex{slime-repl |
| 25ea20 | 2d 72 65 74 75 72 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 70 6c 2d 73 65 | -return}.@fcnindex{slime-repl-se |
| 25ea40 | 74 2d 70 61 63 6b 61 67 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 | t-package}.@c.@fcnindex{slime-re |
| 25ea60 | 70 6c 2d 73 68 6f 72 74 63 75 74 2d 68 65 6c 70 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 | pl-shortcut-help}.@c.@fcnindex{s |
| 25ea80 | 6c 69 6d 65 2d 72 65 73 65 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 | lime-reset}.@c.@fcnindex{slime-r |
| 25eaa0 | 65 73 74 61 72 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 7d 0a 40 63 20 40 | estart-connection-at-point}.@c.@ |
| 25eac0 | 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 73 74 61 72 74 2d 69 6e 66 65 72 69 6f 72 2d | fcnindex{slime-restart-inferior- |
| 25eae0 | 6c 69 73 70 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 72 65 73 74 61 72 74 | lisp}.@c.@fcnindex{slime-restart |
| 25eb00 | 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 61 75 78 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c | -inferior-lisp-aux}.@fcnindex{sl |
| 25eb20 | 69 6d 65 2d 73 63 72 61 74 63 68 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d | ime-scratch}.@c.@fcnindex{slime- |
| 25eb40 | 73 65 6c 65 63 74 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 7d 0a 40 66 63 6e | select-lisp-implementation}.@fcn |
| 25eb60 | 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 7d 0a 40 63 20 40 66 63 6e 69 6e 64 | index{slime-selector}.@c.@fcnind |
| 25eb80 | 65 78 7b 73 6c 69 6d 65 2d 73 65 6e 64 2d 73 69 67 69 6e 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 | ex{slime-send-sigint}.@c.@fcnind |
| 25eba0 | 65 78 7b 73 6c 69 6d 65 2d 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 7d 0a | ex{slime-set-default-directory}. |
| 25ebc0 | 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 73 65 74 2d 70 61 63 6b 61 67 65 7d 0a | @c.@fcnindex{slime-set-package}. |
| 25ebe0 | 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 73 68 6f 77 2d 78 72 65 66 7d 0a 40 66 | @c.@fcnindex{slime-show-xref}.@f |
| 25ec00 | 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 73 70 61 63 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 | cnindex{slime-space}.@c.@fcninde |
| 25ec20 | 78 7b 73 6c 69 6d 65 2d 73 74 61 72 74 2d 61 6e 64 2d 6c 6f 61 64 7d 0a 40 66 63 6e 69 6e 64 65 | x{slime-start-and-load}.@fcninde |
| 25ec40 | 78 7b 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 7d | x{slime-switch-to-output-buffer} |
| 25ec60 | 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 73 79 6e 63 2d 70 61 63 6b 61 67 65 2d 61 6e | .@fcnindex{slime-sync-package-an |
| 25ec80 | 64 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 | d-default-directory}.@c.@fcninde |
| 25eca0 | 78 7b 73 6c 69 6d 65 2d 74 65 6d 70 2d 62 75 66 66 65 72 2d 6d 6f 64 65 7d 0a 40 66 63 6e 69 6e | x{slime-temp-buffer-mode}.@fcnin |
| 25ecc0 | 64 65 78 7b 73 6c 69 6d 65 2d 74 65 6d 70 2d 62 75 66 66 65 72 2d 71 75 69 74 7d 0a 40 63 20 40 | dex{slime-temp-buffer-quit}.@c.@ |
| 25ece0 | 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 74 68 72 65 61 64 2d 61 74 74 61 63 68 7d 0a 40 63 | fcnindex{slime-thread-attach}.@c |
| 25ed00 | 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 74 68 72 65 61 64 2d 64 65 62 75 67 7d 0a 40 | .@fcnindex{slime-thread-debug}.@ |
| 25ed20 | 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 74 68 72 65 61 64 2d 63 6f 6e 74 72 6f 6c | c.@fcnindex{slime-thread-control |
| 25ed40 | 2d 6d 6f 64 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 74 68 72 65 61 64 | -mode}.@c.@fcnindex{slime-thread |
| 25ed60 | 2d 6b 69 6c 6c 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 74 68 72 65 61 64 | -kill}.@c.@fcnindex{slime-thread |
| 25ed80 | 2d 71 75 69 74 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 74 6f 67 67 6c 65 2d 70 72 | -quit}.@fcnindex{slime-toggle-pr |
| 25eda0 | 6f 66 69 6c 65 2d 66 64 65 66 69 6e 69 74 69 6f 6e 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 | ofile-fdefinition}.@fcnindex{sli |
| 25edc0 | 6d 65 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 66 64 65 66 69 6e 69 74 69 6f 6e 7d 0a 40 66 63 | me-toggle-trace-fdefinition}.@fc |
| 25ede0 | 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 75 6e 64 65 66 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 7d 0a | nindex{slime-undefine-function}. |
| 25ee00 | 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c 7d 0a 40 | @fcnindex{slime-unprofile-all}.@ |
| 25ee20 | 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 75 6e 74 72 61 63 65 2d 61 6c 6c 7d 0a 40 66 63 6e | fcnindex{slime-untrace-all}.@fcn |
| 25ee40 | 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 | index{slime-update-connection-li |
| 25ee60 | 73 74 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 69 6e | st}.@c.@fcnindex{slime-update-in |
| 25ee80 | 64 65 6e 74 61 74 69 6f 6e 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3f 3f 3f 0a | dentation}..................???. |
| 25eea0 | 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d 65 2d 77 68 6f 2d 62 69 6e 64 73 7d 0a 40 66 63 6e 69 | @fcnindex{slime-who-binds}.@fcni |
| 25eec0 | 6e 64 65 78 7b 73 6c 69 6d 65 2d 77 68 6f 2d 63 61 6c 6c 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b | ndex{slime-who-calls}.@fcnindex{ |
| 25eee0 | 73 6c 69 6d 65 2d 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 7d 0a 40 66 63 6e 69 6e 64 65 | slime-who-macroexpands}.@fcninde |
| 25ef00 | 78 7b 73 6c 69 6d 65 2d 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 7d 0a 40 66 63 6e 69 6e 64 65 | x{slime-who-references}.@fcninde |
| 25ef20 | 78 7b 73 6c 69 6d 65 2d 77 68 6f 2d 73 65 74 73 7d 0a 40 66 63 6e 69 6e 64 65 78 7b 73 6c 69 6d | x{slime-who-sets}.@fcnindex{slim |
| 25ef40 | 65 2d 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b | e-who-specializes}.@c.@fcnindex{ |
| 25ef60 | 73 6c 69 6d 65 2d 78 72 65 66 2d 6d 6f 64 65 7d 0a 40 63 20 40 66 63 6e 69 6e 64 65 78 7b 73 6c | slime-xref-mode}.@c.@fcnindex{sl |
| 25ef80 | 69 6d 65 2d 78 72 65 66 2d 71 75 69 74 7d 0a 40 65 6e 64 20 74 61 62 6c 65 0a 0a 40 65 6e 64 20 | ime-xref-quit}.@end.table..@end. |
| 25efa0 | 69 67 6e 6f 72 65 0a 0a 40 6e 6f 64 65 20 4b 65 79 20 49 6e 64 65 78 0a 40 75 6e 6e 75 6d 62 65 | ignore..@node.Key.Index.@unnumbe |
| 25efc0 | 72 65 64 20 4b 65 79 20 28 43 68 61 72 61 63 74 65 72 29 20 49 6e 64 65 78 0a 40 70 72 69 6e 74 | red.Key.(Character).Index.@print |
| 25efe0 | 69 6e 64 65 78 20 6b 79 0a 0a 40 6e 6f 64 65 20 43 6f 6d 6d 61 6e 64 20 49 6e 64 65 78 0a 40 75 | index.ky..@node.Command.Index.@u |
| 25f000 | 6e 6e 75 6d 62 65 72 65 64 20 43 6f 6d 6d 61 6e 64 20 61 6e 64 20 46 75 6e 63 74 69 6f 6e 20 49 | nnumbered.Command.and.Function.I |
| 25f020 | 6e 64 65 78 0a 40 70 72 69 6e 74 69 6e 64 65 78 20 66 6e 0a 0a 40 6e 6f 64 65 20 56 61 72 69 61 | ndex.@printindex.fn..@node.Varia |
| 25f040 | 62 6c 65 20 49 6e 64 65 78 0a 40 75 6e 6e 75 6d 62 65 72 65 64 20 56 61 72 69 61 62 6c 65 20 61 | ble.Index.@unnumbered.Variable.a |
| 25f060 | 6e 64 20 43 6f 6e 63 65 70 74 20 49 6e 64 65 78 0a 40 70 72 69 6e 74 69 6e 64 65 78 20 76 72 0a | nd.Concept.Index.@printindex.vr. |
| 25f080 | 0a 40 62 79 65 0a 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 3a 0a 70 61 72 61 67 72 61 70 68 | .@bye.Local.Variables:.paragraph |
| 25f0a0 | 2d 73 74 61 72 74 3a 20 22 40 5b 61 2d 7a 41 2d 5a 5d 2b 5c 5c 28 7b 5b 5e 7d 5d 2b 7d 5c 5c 29 | -start:."@[a-zA-Z]+\\({[^}]+}\\) |
| 25f0c0 | 3f 5b 20 5c 6e 5d 5c 5c 7c 5b 20 5d 2a 24 22 0a 70 61 72 61 67 72 61 70 68 2d 73 65 70 61 72 61 | ?[.\n]\\|[.]*$".paragraph-separa |
| 25f0e0 | 74 65 3a 20 22 40 5b 61 2d 7a 41 2d 5a 5d 2b 5c 5c 28 7b 5b 5e 7d 5d 2b 7d 5c 5c 29 3f 5b 20 5c | te:."@[a-zA-Z]+\\({[^}]+}\\)?[.\ |
| 25f100 | 6e 5d 5c 5c 7c 5b 20 5d 2a 24 22 0a 45 6e 64 3a 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | n]\\|[.]*$".End:................ |
| 25f120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 64 6f 63 2f 74 65 78 69 6e 66 6f 2d 74 61 62 75 6c 61 74 65 2e | slime-2.31/doc/texinfo-tabulate. |
| 25f220 | 61 77 6b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | awk............................. |
| 25f240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 25f280 | 30 30 30 30 37 36 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 37 34 32 00 20 30 00 00 00 | 0000764.00000000000.015742..0... |
| 25f2a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f2c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 25f320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 25f340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f400 | 23 21 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 61 77 6b 20 2d 66 0a 23 0a 23 20 46 6f 72 6d 61 74 | #!/usr/bin/env.awk.-f.#.#.Format |
| 25f420 | 20 69 6e 70 75 74 20 6c 69 6e 65 73 20 69 6e 74 6f 20 61 20 6d 75 6c 74 69 2d 63 6f 6c 75 6d 6e | .input.lines.into.a.multi-column |
| 25f440 | 20 74 65 78 69 6e 66 6f 20 74 61 62 6c 65 2e 0a 23 20 4e 6f 74 65 3a 20 64 6f 65 73 20 6e 6f 74 | .texinfo.table..#.Note:.does.not |
| 25f460 | 20 64 6f 20 74 65 78 69 6e 66 6f 2d 65 73 63 61 70 69 6e 67 20 6f 66 20 74 68 65 20 69 6e 70 75 | .do.texinfo-escaping.of.the.inpu |
| 25f480 | 74 2e 0a 0a 23 20 54 68 69 73 20 63 6f 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 | t...#.This.code.has.been.placed. |
| 25f4a0 | 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 | in.the.Public.Domain...All.warra |
| 25f4c0 | 6e 74 69 65 73 0a 23 20 61 72 65 20 64 69 73 63 6c 61 69 6d 65 64 2e 0a 0a 42 45 47 49 4e 20 7b | nties.#.are.disclaimed...BEGIN.{ |
| 25f4e0 | 0a 20 20 63 6f 6c 75 6d 6e 73 20 3d 20 33 3b 0a 20 20 70 72 69 6e 74 66 28 22 40 6d 75 6c 74 69 | ...columns.=.3;...printf("@multi |
| 25f500 | 74 61 62 6c 65 20 40 63 6f 6c 75 6d 6e 66 72 61 63 74 69 6f 6e 73 22 29 3b 0a 20 20 66 6f 72 20 | table.@columnfractions");...for. |
| 25f520 | 28 69 20 3d 20 30 3b 20 69 20 3c 20 63 6f 6c 75 6d 6e 73 3b 20 69 2b 2b 29 0a 20 20 20 20 70 72 | (i.=.0;.i.<.columns;.i++).....pr |
| 25f540 | 69 6e 74 66 28 22 20 25 66 22 2c 20 31 2e 30 2f 63 6f 6c 75 6d 6e 73 29 3b 0a 20 20 70 72 69 6e | intf(".%f",.1.0/columns);...prin |
| 25f560 | 74 0a 7d 0a 0a 7b 20 69 66 20 28 4e 52 20 25 20 63 6f 6c 75 6d 6e 73 20 3d 3d 20 31 29 20 70 72 | t.}..{.if.(NR.%.columns.==.1).pr |
| 25f580 | 69 6e 74 66 28 22 5c 6e 40 69 74 65 6d 20 25 73 22 2c 20 24 30 29 3b 0a 20 20 65 6c 73 65 20 20 | intf("\n@item.%s",.$0);...else.. |
| 25f5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 66 28 22 20 40 74 61 62 20 25 | .................printf(".@tab.% |
| 25f5c0 | 73 22 2c 20 24 30 29 3b 20 7d 0a 0a 45 4e 44 20 7b 20 70 72 69 6e 74 66 28 22 5c 6e 40 65 6e 64 | s",.$0);.}..END.{.printf("\n@end |
| 25f5e0 | 20 6d 75 6c 74 69 74 61 62 6c 65 5c 6e 22 29 3b 20 7d 0a 0a 00 00 00 00 00 00 00 00 00 00 00 00 | .multitable\n");.}.............. |
| 25f600 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 6c 69 62 2f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/lib/................. |
| 25f620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f660 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 25f680 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 31 37 35 35 00 20 35 00 00 00 | 0000000.00000000000.011755..5... |
| 25f6a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f6c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f6e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 25f720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 25f740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f7a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f800 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 6c 69 62 2f 2e 6e 6f 73 65 61 72 63 68 00 00 00 00 00 00 00 00 | slime-2.31/lib/.nosearch........ |
| 25f820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 25f880 | 30 30 30 30 30 37 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 35 36 32 00 20 30 00 00 00 | 0000075.00000000000.013562..0... |
| 25f8a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 25f920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 25f940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25f9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fa00 | 3b 3b 20 6e 6f 72 6d 61 6c 2d 74 6f 70 2d 6c 65 76 65 6c 2d 61 64 64 2d 73 75 62 64 69 72 73 2d | ;;.normal-top-level-add-subdirs- |
| 25fa20 | 74 6f 2d 6c 6f 61 64 2d 70 61 74 68 20 6e 65 65 64 73 20 74 68 69 73 20 66 69 6c 65 0a 00 00 00 | to-load-path.needs.this.file.... |
| 25fa40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fa60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fa80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25faa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fb00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fb20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fc00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 6c 69 62 2f 6d 61 63 72 6f 73 74 65 70 2e 65 6c 00 00 00 00 00 | slime-2.31/lib/macrostep.el..... |
| 25fc20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fc40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fc60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 25fc80 | 30 31 33 30 33 33 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 32 37 34 00 20 30 00 00 00 | 0130330.00000000000.014274..0... |
| 25fca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fcc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fd00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 25fd20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 25fd40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fd60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fd80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fdc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25fe00 | 3b 3b 3b 20 6d 61 63 72 6f 73 74 65 70 2e 65 6c 20 2d 2d 2d 20 69 6e 74 65 72 61 63 74 69 76 65 | ;;;.macrostep.el.---.interactive |
| 25fe20 | 20 6d 61 63 72 6f 20 65 78 70 61 6e 64 65 72 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 | .macro.expander..;;.Copyright.(C |
| 25fe40 | 29 20 32 30 31 32 2d 32 30 31 35 20 4a 6f 6e 20 4f 64 64 69 65 20 3c 6a 2e 6a 2e 6f 64 64 69 65 | ).2012-2015.Jon.Oddie.<j.j.oddie |
| 25fe60 | 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 20 20 20 20 6a 6f 64 64 | @gmail.com>..;;.Author:.....jodd |
| 25fe80 | 69 65 20 3c 6a 2e 6a 2e 6f 64 64 69 65 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 4d 61 69 6e | ie.<j.j.oddie@gmail.com>.;;.Main |
| 25fea0 | 74 61 69 6e 65 72 3a 20 6a 6f 64 64 69 65 20 3c 6a 2e 6a 2e 6f 64 64 69 65 40 67 6d 61 69 6c 2e | tainer:.joddie.<j.j.oddie@gmail. |
| 25fec0 | 63 6f 6d 3e 0a 3b 3b 20 43 72 65 61 74 65 64 3a 20 20 20 20 31 36 20 4a 61 6e 75 61 72 79 20 32 | com>.;;.Created:....16.January.2 |
| 25fee0 | 30 31 32 0a 3b 3b 20 55 70 64 61 74 65 64 3a 20 20 20 20 30 37 20 44 65 63 65 6d 62 65 72 20 32 | 012.;;.Updated:....07.December.2 |
| 25ff00 | 30 31 35 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 20 20 20 30 2e 39 0a 3b 3b 20 4b 65 79 77 6f 72 | 015.;;.Version:....0.9.;;.Keywor |
| 25ff20 | 64 73 3a 20 20 20 6c 69 73 70 2c 20 6c 61 6e 67 75 61 67 65 73 2c 20 6d 61 63 72 6f 2c 20 64 65 | ds:...lisp,.languages,.macro,.de |
| 25ff40 | 62 75 67 67 69 6e 67 0a 3b 3b 20 55 72 6c 3a 20 20 20 20 20 20 20 20 68 74 74 70 73 3a 2f 2f 67 | bugging.;;.Url:........https://g |
| 25ff60 | 69 74 68 75 62 2e 63 6f 6d 2f 6a 6f 64 64 69 65 2f 6d 61 63 72 6f 73 74 65 70 0a 3b 3b 20 50 61 | ithub.com/joddie/macrostep.;;.Pa |
| 25ff80 | 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 63 6c 2d 6c 69 62 20 22 30 2e 35 22 29 29 | ckage-Requires:.((cl-lib."0.5")) |
| 25ffa0 | 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 20 47 4e | ..;;.This.file.is.NOT.part.of.GN |
| 25ffc0 | 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 | U.Emacs...;;.This.program.is.fre |
| 25ffe0 | 65 20 73 6f 66 74 77 61 72 65 3a 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 | e.software:.you.can.redistribute |
| 260000 | 20 69 74 20 61 6e 64 2f 6f 72 0a 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 | .it.and/or.;;.modify.it.under.th |
| 260020 | 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 | e.terms.of.the.GNU.General.Publi |
| 260040 | 63 20 4c 69 63 65 6e 73 65 20 61 73 0a 3b 3b 20 70 75 62 6c 69 73 68 65 64 20 62 79 20 74 68 65 | c.License.as.;;.published.by.the |
| 260060 | 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 | .Free.Software.Foundation,.eithe |
| 260080 | 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 0a 3b 3b 20 4c 69 63 65 6e 73 65 2c 20 6f | r.version.3.of.the.;;.License,.o |
| 2600a0 | 72 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 | r.(at.your.option).any.later.ver |
| 2600c0 | 73 69 6f 6e 2e 0a 3b 3b 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 | sion..;;.;;.This.program.is.dist |
| 2600e0 | 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c | ributed.in.the.hope.that.it.will |
| 260100 | 20 62 65 20 75 73 65 66 75 6c 2c 20 62 75 74 0a 3b 3b 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 | .be.useful,.but.;;.WITHOUT.ANY.W |
| 260120 | 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 | ARRANTY;.without.even.the.implie |
| 260140 | 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 | d.warranty.of.;;.MERCHANTABILITY |
| 260160 | 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 | .or.FITNESS.FOR.A.PARTICULAR.PUR |
| 260180 | 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 20 47 4e 55 0a 3b 3b 20 47 65 6e 65 72 61 6c 20 50 75 | POSE...See.the.GNU.;;.General.Pu |
| 2601a0 | 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 3b | blic.License.for.more.details..; |
| 2601c0 | 3b 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 | ;.;;.You.should.have.received.a. |
| 2601e0 | 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c | copy.of.the.GNU.General.Public.L |
| 260200 | 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 | icense.;;.along.with.this.progra |
| 260220 | 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 60 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e | m...If.not,.see.`http://www.gnu. |
| 260240 | 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 27 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a | org/licenses/'...;;;.Commentary: |
| 260260 | 0a 0a 3b 3b 20 60 6d 61 63 72 6f 73 74 65 70 27 20 69 73 20 61 6e 20 45 6d 61 63 73 20 6d 69 6e | ..;;.`macrostep'.is.an.Emacs.min |
| 260280 | 6f 72 20 6d 6f 64 65 20 66 6f 72 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 73 74 65 70 70 69 | or.mode.for.interactively.steppi |
| 2602a0 | 6e 67 20 74 68 72 6f 75 67 68 0a 3b 3b 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 6d | ng.through.;;.the.expansion.of.m |
| 2602c0 | 61 63 72 6f 73 20 69 6e 20 45 6d 61 63 73 20 4c 69 73 70 20 73 6f 75 72 63 65 20 63 6f 64 65 2e | acros.in.Emacs.Lisp.source.code. |
| 2602e0 | 20 20 49 74 20 6c 65 74 73 20 79 6f 75 20 73 65 65 0a 3b 3b 20 65 78 61 63 74 6c 79 20 77 68 61 | ..It.lets.you.see.;;.exactly.wha |
| 260300 | 74 20 68 61 70 70 65 6e 73 20 61 74 20 65 61 63 68 20 73 74 65 70 20 6f 66 20 74 68 65 20 65 78 | t.happens.at.each.step.of.the.ex |
| 260320 | 70 61 6e 73 69 6f 6e 20 70 72 6f 63 65 73 73 20 62 79 0a 3b 3b 20 70 72 65 74 74 79 2d 70 72 69 | pansion.process.by.;;.pretty-pri |
| 260340 | 6e 74 69 6e 67 20 74 68 65 20 65 78 70 61 6e 64 65 64 20 66 6f 72 6d 73 20 69 6e 6c 69 6e 65 20 | nting.the.expanded.forms.inline. |
| 260360 | 69 6e 20 74 68 65 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 2c 20 77 68 69 63 68 20 69 73 0a 3b | in.the.source.buffer,.which.is.; |
| 260380 | 3b 20 74 65 6d 70 6f 72 61 72 69 6c 79 20 72 65 61 64 2d 6f 6e 6c 79 20 77 68 69 6c 65 20 6d 61 | ;.temporarily.read-only.while.ma |
| 2603a0 | 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 73 20 61 72 65 20 76 69 73 69 62 6c 65 2e 20 20 59 6f 75 | cro.expansions.are.visible...You |
| 2603c0 | 20 63 61 6e 0a 3b 3b 20 65 78 70 61 6e 64 20 61 6e 64 20 63 6f 6c 6c 61 70 73 65 20 6d 61 63 72 | .can.;;.expand.and.collapse.macr |
| 2603e0 | 6f 20 66 6f 72 6d 73 20 6f 6e 65 20 73 74 65 70 20 61 74 20 61 20 74 69 6d 65 2c 20 61 6e 64 20 | o.forms.one.step.at.a.time,.and. |
| 260400 | 65 76 61 6c 75 61 74 65 20 6f 72 0a 3b 3b 20 69 6e 73 74 72 75 6d 65 6e 74 20 74 68 65 20 65 78 | evaluate.or.;;.instrument.the.ex |
| 260420 | 70 61 6e 73 69 6f 6e 73 20 66 6f 72 20 64 65 62 75 67 67 69 6e 67 20 77 69 74 68 20 45 64 65 62 | pansions.for.debugging.with.Edeb |
| 260440 | 75 67 20 61 73 20 6e 6f 72 6d 61 6c 20 28 62 75 74 20 73 65 65 0a 3b 3b 20 22 42 75 67 73 20 61 | ug.as.normal.(but.see.;;."Bugs.a |
| 260460 | 6e 64 20 6b 6e 6f 77 6e 20 6c 69 6d 69 74 61 74 69 6f 6e 73 22 2c 20 62 65 6c 6f 77 29 2e 20 20 | nd.known.limitations",.below)... |
| 260480 | 53 69 6e 67 6c 65 2d 73 74 65 70 70 69 6e 67 20 74 68 72 6f 75 67 68 20 74 68 65 0a 3b 3b 20 65 | Single-stepping.through.the.;;.e |
| 2604a0 | 78 70 61 6e 73 69 6f 6e 20 69 73 20 70 61 72 74 69 63 75 6c 61 72 6c 79 20 75 73 65 66 75 6c 20 | xpansion.is.particularly.useful. |
| 2604c0 | 66 6f 72 20 64 65 62 75 67 67 69 6e 67 20 6d 61 63 72 6f 73 20 74 68 61 74 20 65 78 70 61 6e 64 | for.debugging.macros.that.expand |
| 2604e0 | 20 69 6e 74 6f 0a 3b 3b 20 61 6e 6f 74 68 65 72 20 6d 61 63 72 6f 20 66 6f 72 6d 2e 20 20 54 68 | .into.;;.another.macro.form...Th |
| 260500 | 65 73 65 20 63 61 6e 20 62 65 20 64 69 66 66 69 63 75 6c 74 20 74 6f 20 64 65 62 75 67 20 77 69 | ese.can.be.difficult.to.debug.wi |
| 260520 | 74 68 20 45 6d 61 63 73 27 0a 3b 3b 20 62 75 69 6c 74 2d 69 6e 20 60 6d 61 63 72 6f 65 78 70 61 | th.Emacs'.;;.built-in.`macroexpa |
| 260540 | 6e 64 27 2c 20 77 68 69 63 68 20 63 6f 6e 74 69 6e 75 65 73 20 65 78 70 61 6e 73 69 6f 6e 20 75 | nd',.which.continues.expansion.u |
| 260560 | 6e 74 69 6c 20 74 68 65 20 74 6f 70 2d 6c 65 76 65 6c 0a 3b 3b 20 66 6f 72 6d 20 69 73 20 6e 6f | ntil.the.top-level.;;.form.is.no |
| 260580 | 20 6c 6f 6e 67 65 72 20 61 20 6d 61 63 72 6f 20 63 61 6c 6c 2e 0a 0a 3b 3b 20 42 6f 74 68 20 67 | .longer.a.macro.call...;;.Both.g |
| 2605a0 | 6c 6f 62 61 6c 6c 79 2d 76 69 73 69 62 6c 65 20 6d 61 63 72 6f 73 20 61 73 20 64 65 66 69 6e 65 | lobally-visible.macros.as.define |
| 2605c0 | 64 20 62 79 20 60 64 65 66 6d 61 63 72 6f 27 20 61 6e 64 20 6c 6f 63 61 6c 20 6d 61 63 72 6f 73 | d.by.`defmacro'.and.local.macros |
| 2605e0 | 0a 3b 3b 20 62 6f 75 6e 64 20 62 79 20 60 28 63 6c 2d 29 6d 61 63 72 6f 6c 65 74 27 20 6f 72 20 | .;;.bound.by.`(cl-)macrolet'.or. |
| 260600 | 61 6e 6f 74 68 65 72 20 6d 61 63 72 6f 2d 64 65 66 69 6e 69 6e 67 20 66 6f 72 6d 20 63 61 6e 20 | another.macro-defining.form.can. |
| 260620 | 62 65 20 65 78 70 61 6e 64 65 64 2e 0a 3b 3b 20 57 69 74 68 69 6e 20 6d 61 63 72 6f 20 65 78 70 | be.expanded..;;.Within.macro.exp |
| 260640 | 61 6e 73 69 6f 6e 73 2c 20 63 61 6c 6c 73 20 74 6f 20 6d 61 63 72 6f 73 20 61 6e 64 20 63 6f 6d | ansions,.calls.to.macros.and.com |
| 260660 | 70 69 6c 65 72 20 6d 61 63 72 6f 73 20 61 72 65 0a 3b 3b 20 66 6f 6e 74 69 66 69 65 64 20 73 70 | piler.macros.are.;;.fontified.sp |
| 260680 | 65 63 69 61 6c 6c 79 3a 20 6d 61 63 72 6f 20 66 6f 72 6d 73 20 75 73 69 6e 67 20 60 6d 61 63 72 | ecially:.macro.forms.using.`macr |
| 2606a0 | 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 61 63 65 27 2c 20 61 6e 64 0a 3b 3b 20 66 75 6e 63 74 69 | ostep-macro-face',.and.;;.functi |
| 2606c0 | 6f 6e 73 20 77 69 74 68 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 73 20 75 73 69 6e 67 20 60 | ons.with.compiler.macros.using.` |
| 2606e0 | 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 61 63 65 27 2e 0a | macrostep-compiler-macro-face'.. |
| 260700 | 3b 3b 20 55 6e 69 6e 74 65 72 6e 65 64 20 73 79 6d 62 6f 6c 73 20 28 67 65 6e 73 79 6d 73 29 20 | ;;.Uninterned.symbols.(gensyms). |
| 260720 | 61 72 65 20 66 6f 6e 74 69 66 69 65 64 20 62 61 73 65 64 20 6f 6e 20 77 68 69 63 68 20 73 74 65 | are.fontified.based.on.which.ste |
| 260740 | 70 20 69 6e 20 74 68 65 0a 3b 3b 20 65 78 70 61 6e 73 69 6f 6e 20 63 72 65 61 74 65 64 20 74 68 | p.in.the.;;.expansion.created.th |
| 260760 | 65 6d 2c 20 74 6f 20 64 69 73 74 69 6e 67 75 69 73 68 20 74 68 65 6d 20 62 6f 74 68 20 66 72 6f | em,.to.distinguish.them.both.fro |
| 260780 | 6d 20 6e 6f 72 6d 61 6c 20 73 79 6d 62 6f 6c 73 20 61 6e 64 0a 3b 3b 20 66 72 6f 6d 20 6f 74 68 | m.normal.symbols.and.;;.from.oth |
| 2607a0 | 65 72 20 67 65 6e 73 79 6d 73 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 70 72 69 6e 74 20 6e | er.gensyms.with.the.same.print.n |
| 2607c0 | 61 6d 65 2e 0a 0a 3b 3b 20 41 73 20 6f 66 20 76 65 72 73 69 6f 6e 20 30 2e 39 2c 20 69 74 20 69 | ame...;;.As.of.version.0.9,.it.i |
| 2607e0 | 73 20 61 6c 73 6f 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 65 78 74 65 6e 64 20 60 6d 61 63 72 6f | s.also.possible.to.extend.`macro |
| 260800 | 73 74 65 70 27 20 74 6f 20 77 6f 72 6b 0a 3b 3b 20 77 69 74 68 20 6f 74 68 65 72 20 6c 61 6e 67 | step'.to.work.;;.with.other.lang |
| 260820 | 75 61 67 65 73 20 77 69 74 68 20 6d 61 63 72 6f 20 73 79 73 74 65 6d 73 20 69 6e 20 61 64 64 69 | uages.with.macro.systems.in.addi |
| 260840 | 74 69 6f 6e 20 74 6f 20 45 6d 61 63 73 20 4c 69 73 70 2e 20 20 41 6e 0a 3b 3b 20 65 78 74 65 6e | tion.to.Emacs.Lisp...An.;;.exten |
| 260860 | 73 69 6f 6e 20 66 6f 72 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 76 69 61 20 53 4c 49 4d 45 29 | sion.for.Common.Lisp.(via.SLIME) |
| 260880 | 20 69 73 20 69 6e 20 74 68 65 20 77 6f 72 6b 73 3b 20 63 6f 6e 74 72 69 62 75 74 69 6f 6e 73 20 | .is.in.the.works;.contributions. |
| 2608a0 | 66 6f 72 0a 3b 3b 20 6f 74 68 65 72 20 6c 61 6e 67 75 61 67 65 73 20 61 72 65 20 77 65 6c 63 6f | for.;;.other.languages.are.welco |
| 2608c0 | 6d 65 2e 20 20 53 65 65 20 22 45 78 74 65 6e 64 69 6e 67 20 6d 61 63 72 6f 73 74 65 70 22 20 62 | me...See."Extending.macrostep".b |
| 2608e0 | 65 6c 6f 77 20 66 6f 72 0a 3b 3b 20 64 65 74 61 69 6c 73 2e 0a 0a 0a 3b 3b 20 31 20 4b 65 79 2d | elow.for.;;.details....;;.1.Key- |
| 260900 | 62 69 6e 64 69 6e 67 73 20 61 6e 64 20 75 73 61 67 65 0a 3b 3b 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | bindings.and.usage.;;.========== |
| 260920 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 20 20 54 68 65 20 73 74 61 6e 64 61 72 | ==============..;;...The.standar |
| 260940 | 64 20 6b 65 79 62 69 6e 64 69 6e 67 73 20 69 6e 20 60 6d 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 | d.keybindings.in.`macrostep-mode |
| 260960 | 27 20 61 72 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 3a 0a 0a 3b 3b 20 20 20 65 2c 20 3d 2c | '.are.the.following:..;;...e,.=, |
| 260980 | 20 52 45 54 20 3a 20 65 78 70 61 6e 64 20 74 68 65 20 6d 61 63 72 6f 20 66 6f 72 6d 20 66 6f 6c | .RET.:.expand.the.macro.form.fol |
| 2609a0 | 6c 6f 77 69 6e 67 20 70 6f 69 6e 74 20 6f 6e 65 20 73 74 65 70 0a 3b 3b 20 20 20 63 2c 20 75 2c | lowing.point.one.step.;;...c,.u, |
| 2609c0 | 20 44 45 4c 20 3a 20 63 6f 6c 6c 61 70 73 65 20 74 68 65 20 66 6f 72 6d 20 66 6f 6c 6c 6f 77 69 | .DEL.:.collapse.the.form.followi |
| 2609e0 | 6e 67 20 70 6f 69 6e 74 0a 3b 3b 20 20 20 71 2c 20 43 2d 63 20 43 2d 63 3a 20 63 6f 6c 6c 61 70 | ng.point.;;...q,.C-c.C-c:.collap |
| 260a00 | 73 65 20 61 6c 6c 20 65 78 70 61 6e 64 65 64 20 66 6f 72 6d 73 20 61 6e 64 20 65 78 69 74 20 6d | se.all.expanded.forms.and.exit.m |
| 260a20 | 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 0a 3b 3b 20 20 20 6e 2c 20 54 41 42 20 20 20 20 3a 20 6a | acrostep-mode.;;...n,.TAB....:.j |
| 260a40 | 75 6d 70 20 74 6f 20 74 68 65 20 6e 65 78 74 20 6d 61 63 72 6f 20 66 6f 72 6d 20 69 6e 20 74 68 | ump.to.the.next.macro.form.in.th |
| 260a60 | 65 20 65 78 70 61 6e 73 69 6f 6e 0a 3b 3b 20 20 20 70 2c 20 4d 2d 54 41 42 20 20 3a 20 6a 75 6d | e.expansion.;;...p,.M-TAB..:.jum |
| 260a80 | 70 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6d 61 63 72 6f 20 66 6f 72 6d 20 69 6e 20 | p.to.the.previous.macro.form.in. |
| 260aa0 | 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 0a 0a 3b 3b 20 20 20 49 74 27 73 20 6e 6f 74 20 76 65 72 | the.expansion..;;...It's.not.ver |
| 260ac0 | 79 20 75 73 65 66 75 6c 20 74 6f 20 65 6e 61 62 6c 65 20 61 6e 64 20 64 69 73 61 62 6c 65 20 6d | y.useful.to.enable.and.disable.m |
| 260ae0 | 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 20 64 69 72 65 63 74 6c 79 2e 0a 3b 3b 20 20 20 49 6e 73 | acrostep-mode.directly..;;...Ins |
| 260b00 | 74 65 61 64 2c 20 62 69 6e 64 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 27 20 74 6f | tead,.bind.`macrostep-expand'.to |
| 260b20 | 20 61 20 6b 65 79 20 69 6e 20 60 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 27 2c | .a.key.in.`emacs-lisp-mode-map', |
| 260b40 | 0a 3b 3b 20 20 20 66 6f 72 20 65 78 61 6d 70 6c 65 20 43 2d 63 20 65 3a 0a 0a 3b 3b 20 20 20 2c | .;;...for.example.C-c.e:..;;..., |
| 260b60 | 2d 2d 2d 2d 0a 3b 3b 20 20 20 7c 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6d 61 63 73 2d 6c 69 | ----.;;...|.(define-key.emacs-li |
| 260b80 | 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 65 22 29 20 27 6d 61 63 72 6f | sp-mode-map.(kbd."C-c.e").'macro |
| 260ba0 | 73 74 65 70 2d 65 78 70 61 6e 64 29 0a 3b 3b 20 20 20 60 2d 2d 2d 2d 0a 0a 3b 3b 20 20 20 59 6f | step-expand).;;...`----..;;...Yo |
| 260bc0 | 75 20 63 61 6e 20 74 68 65 6e 20 65 6e 74 65 72 20 6d 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 20 | u.can.then.enter.macrostep-mode. |
| 260be0 | 61 6e 64 20 65 78 70 61 6e 64 20 61 20 6d 61 63 72 6f 20 66 6f 72 6d 20 63 6f 6d 70 6c 65 74 65 | and.expand.a.macro.form.complete |
| 260c00 | 6c 79 0a 3b 3b 20 20 20 62 79 20 74 79 70 69 6e 67 20 60 43 2d 63 20 65 20 65 20 65 20 2e 2e 2e | ly.;;...by.typing.`C-c.e.e.e.... |
| 260c20 | 27 20 61 73 20 6d 61 6e 79 20 74 69 6d 65 73 20 61 73 20 6e 65 63 65 73 73 61 72 79 2e 0a 0a 3b | '.as.many.times.as.necessary...; |
| 260c40 | 3b 20 20 20 45 78 69 74 20 6d 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 20 62 79 20 74 79 70 69 6e | ;...Exit.macrostep-mode.by.typin |
| 260c60 | 67 20 60 71 27 20 6f 72 20 60 43 2d 63 20 43 2d 63 27 2c 20 6f 72 20 62 79 20 73 75 63 63 65 73 | g.`q'.or.`C-c.C-c',.or.by.succes |
| 260c80 | 73 69 76 65 6c 79 0a 3b 3b 20 20 20 74 79 70 69 6e 67 20 60 63 27 20 74 6f 20 63 6f 6c 6c 61 70 | sively.;;...typing.`c'.to.collap |
| 260ca0 | 73 65 20 61 6c 6c 20 73 75 72 72 6f 75 6e 64 69 6e 67 20 65 78 70 61 6e 73 69 6f 6e 73 2e 0a 0a | se.all.surrounding.expansions... |
| 260cc0 | 0a 3b 3b 20 32 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 0a 3b 3b 20 3d | .;;.2.Customization.options.;;.= |
| 260ce0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 20 20 54 79 70 | ======================..;;...Typ |
| 260d00 | 65 20 60 4d 2d 78 20 63 75 73 74 6f 6d 69 7a 65 2d 67 72 6f 75 70 20 52 45 54 20 6d 61 63 72 6f | e.`M-x.customize-group.RET.macro |
| 260d20 | 73 74 65 70 20 52 45 54 27 20 74 6f 20 63 75 73 74 6f 6d 69 7a 65 20 6f 70 74 69 6f 6e 73 20 61 | step.RET'.to.customize.options.a |
| 260d40 | 6e 64 0a 3b 3b 20 20 20 66 61 63 65 73 2e 0a 0a 3b 3b 20 20 20 54 6f 20 64 69 73 70 6c 61 79 20 | nd.;;...faces...;;...To.display. |
| 260d60 | 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 73 20 69 6e 20 61 20 73 65 70 61 72 61 74 65 20 77 | macro.expansions.in.a.separate.w |
| 260d80 | 69 6e 64 6f 77 2c 20 69 6e 73 74 65 61 64 20 6f 66 20 69 6e 6c 69 6e 65 20 69 6e 0a 3b 3b 20 20 | indow,.instead.of.inline.in.;;.. |
| 260da0 | 20 74 68 65 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 2c 20 63 75 73 74 6f 6d 69 7a 65 20 60 6d | .the.source.buffer,.customize.`m |
| 260dc0 | 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 69 6e 2d 73 65 70 61 72 61 74 65 2d 62 75 66 66 | acrostep-expand-in-separate-buff |
| 260de0 | 65 72 27 20 74 6f 0a 3b 3b 20 20 20 60 74 27 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 69 73 | er'.to.;;...`t'...The.default.is |
| 260e00 | 20 60 6e 69 6c 27 2e 20 20 57 68 69 63 68 65 76 65 72 20 64 65 66 61 75 6c 74 20 62 65 68 61 76 | .`nil'...Whichever.default.behav |
| 260e20 | 69 6f 72 20 69 73 20 73 65 6c 65 63 74 65 64 2c 0a 3b 3b 20 20 20 74 68 65 20 61 6c 74 65 72 6e | ior.is.selected,.;;...the.altern |
| 260e40 | 61 74 69 76 65 20 62 65 68 61 76 69 6f 72 20 63 61 6e 20 62 65 20 6f 62 74 61 69 6e 65 64 20 74 | ative.behavior.can.be.obtained.t |
| 260e60 | 65 6d 70 6f 72 61 72 69 6c 79 20 62 79 20 67 69 76 69 6e 67 20 61 0a 3b 3b 20 20 20 70 72 65 66 | emporarily.by.giving.a.;;...pref |
| 260e80 | 69 78 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 | ix.argument.to.`macrostep-expand |
| 260ea0 | 27 2e 0a 0a 3b 3b 20 20 20 54 6f 20 68 61 76 65 20 60 6d 61 63 72 6f 73 74 65 70 27 20 69 67 6e | '...;;...To.have.`macrostep'.ign |
| 260ec0 | 6f 72 65 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 73 2c 20 63 75 73 74 6f 6d 69 7a 65 0a 3b | ore.compiler.macros,.customize.; |
| 260ee0 | 3b 20 20 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d | ;...`macrostep-expand-compiler-m |
| 260f00 | 61 63 72 6f 73 27 20 74 6f 20 60 6e 69 6c 27 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 69 73 | acros'.to.`nil'...The.default.is |
| 260f20 | 20 60 74 27 2e 0a 0a 3b 3b 20 20 20 43 75 73 74 6f 6d 69 7a 65 20 74 68 65 20 66 61 63 65 73 20 | .`t'...;;...Customize.the.faces. |
| 260f40 | 60 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 61 63 65 27 2c 0a 3b 3b 20 20 20 60 6d 61 | `macrostep-macro-face',.;;...`ma |
| 260f60 | 63 72 6f 73 74 65 70 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 61 63 65 27 2c 20 61 6e | crostep-compiler-macro-face',.an |
| 260f80 | 64 20 60 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 31 27 20 74 68 72 6f 75 67 68 0a 3b | d.`macrostep-gensym-1'.through.; |
| 260fa0 | 3b 20 20 20 60 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 35 27 20 74 6f 20 61 6c 74 65 | ;...`macrostep-gensym-5'.to.alte |
| 260fc0 | 72 20 74 68 65 20 61 70 70 65 61 72 61 6e 63 65 20 6f 66 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 | r.the.appearance.of.macro.expans |
| 260fe0 | 69 6f 6e 73 2e 0a 0a 0a 3b 3b 20 33 20 4c 6f 63 61 6c 6c 79 2d 62 6f 75 6e 64 20 6d 61 63 72 6f | ions....;;.3.Locally-bound.macro |
| 261000 | 73 0a 3b 3b 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 | s.;;.======================..;;. |
| 261020 | 20 20 41 73 20 6f 66 20 76 65 72 73 69 6f 6e 20 30 2e 39 2c 20 60 6d 61 63 72 6f 73 74 65 70 27 | ..As.of.version.0.9,.`macrostep' |
| 261040 | 20 63 61 6e 20 65 78 70 61 6e 64 20 63 61 6c 6c 73 20 74 6f 20 61 20 6c 6f 63 61 6c 6c 79 2d 62 | .can.expand.calls.to.a.locally-b |
| 261060 | 6f 75 6e 64 0a 3b 3b 20 20 20 6d 61 63 72 6f 2c 20 77 68 65 74 68 65 72 20 64 65 66 69 6e 65 64 | ound.;;...macro,.whether.defined |
| 261080 | 20 62 79 20 61 20 73 75 72 72 6f 75 6e 64 69 6e 67 20 60 28 63 6c 2d 29 6d 61 63 72 6f 6c 65 74 | .by.a.surrounding.`(cl-)macrolet |
| 2610a0 | 27 20 66 6f 72 6d 2c 20 6f 72 20 62 79 0a 3b 3b 20 20 20 61 6e 6f 74 68 65 72 20 6d 61 63 72 6f | '.form,.or.by.;;...another.macro |
| 2610c0 | 2d 64 65 66 69 6e 69 6e 67 20 6d 61 63 72 6f 2e 20 20 49 6e 20 6f 74 68 65 72 20 77 6f 72 64 73 | -defining.macro...In.other.words |
| 2610e0 | 2c 20 69 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 74 6f 0a 3b 3b 20 20 20 65 78 70 61 6e 64 20 | ,.it.is.possible.to.;;...expand. |
| 261100 | 74 68 65 20 69 6e 6e 65 72 20 60 6c 6f 63 61 6c 2d 6d 61 63 72 6f 27 20 66 6f 72 6d 73 20 69 6e | the.inner.`local-macro'.forms.in |
| 261120 | 20 62 6f 74 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 78 61 6d 70 6c 65 73 2c 0a 3b 3b | .both.the.following.examples,.;; |
| 261140 | 20 20 20 77 68 65 74 68 65 72 20 60 6c 6f 63 61 6c 2d 6d 61 63 72 6f 27 20 69 73 20 64 65 66 69 | ...whether.`local-macro'.is.defi |
| 261160 | 6e 65 64 20 62 79 20 61 6e 20 65 6e 63 6c 6f 73 69 6e 67 20 60 63 6c 2d 6d 61 63 72 6f 6c 65 74 | ned.by.an.enclosing.`cl-macrolet |
| 261180 | 27 20 2d 2d 0a 0a 3b 3b 20 20 20 2c 2d 2d 2d 2d 0a 3b 3b 20 20 20 7c 20 28 63 6c 2d 6d 61 63 72 | '.--..;;...,----.;;...|.(cl-macr |
| 2611a0 | 6f 6c 65 74 20 28 28 6c 6f 63 61 6c 2d 6d 61 63 72 6f 20 28 26 72 65 73 74 20 61 72 67 73 29 0a | olet.((local-macro.(&rest.args). |
| 2611c0 | 3b 3b 20 20 20 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 65 78 70 61 6e 73 69 | ;;...|.................`(expansi |
| 2611e0 | 6f 6e 20 6f 66 20 2c 61 72 67 73 29 29 29 0a 3b 3b 20 20 20 7c 20 20 20 28 6c 6f 63 61 6c 2d 6d | on.of.,args))).;;...|...(local-m |
| 261200 | 61 63 72 6f 20 28 64 6f 2d 73 6f 6d 65 74 68 69 6e 67 29 29 29 0a 3b 3b 20 20 20 60 2d 2d 2d 2d | acro.(do-something))).;;...`---- |
| 261220 | 0a 0a 3b 3b 20 20 20 2d 2d 20 6f 72 20 62 79 20 61 20 6d 61 63 72 6f 20 77 68 69 63 68 20 65 78 | ..;;...--.or.by.a.macro.which.ex |
| 261240 | 70 61 6e 64 73 20 69 6e 74 6f 20 60 63 6c 2d 6d 61 63 72 6f 6c 65 74 27 2c 20 70 72 6f 76 69 64 | pands.into.`cl-macrolet',.provid |
| 261260 | 65 64 20 74 68 61 74 20 69 74 73 0a 3b 3b 20 20 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 6d | ed.that.its.;;...definition.of.m |
| 261280 | 61 63 72 6f 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 70 72 69 6f 72 20 74 6f 20 63 61 6c 6c 69 | acro.is.evaluated.prior.to.calli |
| 2612a0 | 6e 67 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 27 3a 0a 0a 3b 3b 20 20 20 2c 2d 2d | ng.`macrostep-expand':..;;...,-- |
| 2612c0 | 2d 2d 0a 3b 3b 20 20 20 7c 20 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 6c 6f 63 61 6c 2d 6d | --.;;...|.(defmacro.with-local-m |
| 2612e0 | 61 63 72 6f 20 28 26 72 65 73 74 20 62 6f 64 79 29 0a 3b 3b 20 20 20 7c 20 20 20 60 28 63 6c 2d | acro.(&rest.body).;;...|...`(cl- |
| 261300 | 6d 61 63 72 6f 6c 65 74 20 28 28 6c 6f 63 61 6c 2d 6d 61 63 72 6f 20 28 26 72 65 73 74 20 61 72 | macrolet.((local-macro.(&rest.ar |
| 261320 | 67 73 29 0a 3b 3b 20 20 20 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 | gs).;;...|....................`( |
| 261340 | 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 2c 61 72 67 73 29 29 29 0a 3b 3b 20 20 20 7c 20 20 20 20 | expansion.of.,args))).;;...|.... |
| 261360 | 20 20 2c 40 62 6f 64 79 29 29 0a 3b 3b 20 20 20 7c 20 0a 3b 3b 20 20 20 7c 20 28 77 69 74 68 2d | ..,@body)).;;...|..;;...|.(with- |
| 261380 | 6c 6f 63 61 6c 2d 6d 61 63 72 6f 0a 3b 3b 20 20 20 7c 20 20 20 20 20 28 6c 6f 63 61 6c 2d 6d 61 | local-macro.;;...|.....(local-ma |
| 2613a0 | 63 72 6f 20 28 64 6f 20 73 6f 6d 65 74 68 69 6e 67 20 28 65 6c 73 65 29 29 29 0a 3b 3b 20 20 20 | cro.(do.something.(else))).;;... |
| 2613c0 | 60 2d 2d 2d 2d 0a 0a 3b 3b 20 20 20 53 65 65 20 74 68 65 20 60 77 69 74 68 2d 6a 73 27 20 6d 61 | `----..;;...See.the.`with-js'.ma |
| 2613e0 | 63 72 6f 20 69 6e 20 45 6d 61 63 73 27 73 20 60 6a 73 2e 65 6c 27 20 66 6f 72 20 61 20 72 65 61 | cro.in.Emacs's.`js.el'.for.a.rea |
| 261400 | 6c 20 65 78 61 6d 70 6c 65 20 6f 66 20 74 68 65 0a 3b 3b 20 20 20 6c 61 74 74 65 72 20 6b 69 6e | l.example.of.the.;;...latter.kin |
| 261420 | 64 20 6f 66 20 6d 61 63 72 6f 2e 0a 0a 3b 3b 20 20 20 45 78 70 61 6e 73 69 6f 6e 20 6f 66 20 6c | d.of.macro...;;...Expansion.of.l |
| 261440 | 6f 63 61 6c 6c 79 2d 62 6f 75 6e 64 20 6d 61 63 72 6f 73 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 | ocally-bound.macros.is.implement |
| 261460 | 65 64 20 62 79 20 69 6e 73 74 72 75 6d 65 6e 74 69 6e 67 0a 3b 3b 20 20 20 45 6d 61 63 73 20 4c | ed.by.instrumenting.;;...Emacs.L |
| 261480 | 69 73 70 27 73 20 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 20 74 6f 20 63 61 70 74 75 72 65 20 | isp's.macro-expander.to.capture. |
| 2614a0 | 74 68 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 61 74 20 70 6f 69 6e 74 2e 20 20 41 0a 3b 3b 20 | the.environment.at.point...A.;;. |
| 2614c0 | 20 20 73 69 6d 69 6c 61 72 20 74 72 69 63 6b 20 69 73 20 75 73 65 64 20 74 6f 20 64 65 74 65 63 | ..similar.trick.is.used.to.detec |
| 2614e0 | 74 20 6d 61 63 72 6f 2d 20 61 6e 64 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 63 61 6c 6c | t.macro-.and.compiler-macro.call |
| 261500 | 73 20 77 69 74 68 69 6e 0a 3b 3b 20 20 20 65 78 70 61 6e 64 65 64 20 74 65 78 74 20 73 6f 20 74 | s.within.;;...expanded.text.so.t |
| 261520 | 68 61 74 20 74 68 65 79 20 63 61 6e 20 62 65 20 66 6f 6e 74 69 66 69 65 64 20 61 63 63 75 72 61 | hat.they.can.be.fontified.accura |
| 261540 | 74 65 6c 79 2e 0a 0a 0a 3b 3b 20 34 20 45 78 70 61 6e 64 69 6e 67 20 73 75 62 2d 66 6f 72 6d 73 | tely....;;.4.Expanding.sub-forms |
| 261560 | 0a 3b 3b 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 20 20 | .;;.=====================..;;... |
| 261580 | 42 79 20 6d 6f 76 69 6e 67 20 70 6f 69 6e 74 20 61 72 6f 75 6e 64 20 69 6e 20 74 68 65 20 6d 61 | By.moving.point.around.in.the.ma |
| 2615a0 | 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 20 75 73 69 6e 67 0a 3b 3b 20 20 20 60 6d 61 63 72 6f 73 | cro.expansion.using.;;...`macros |
| 2615c0 | 74 65 70 2d 6e 65 78 74 2d 6d 61 63 72 6f 27 20 61 6e 64 20 60 6d 61 63 72 6f 73 74 65 70 2d 70 | tep-next-macro'.and.`macrostep-p |
| 2615e0 | 72 65 76 2d 6d 61 63 72 6f 27 20 28 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 60 6e 27 0a 3b 3b 20 | rev-macro'.(bound.to.the.`n'.;;. |
| 261600 | 20 20 61 6e 64 20 60 70 27 20 6b 65 79 73 29 2c 20 69 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 | ..and.`p'.keys),.it.is.possible. |
| 261620 | 74 6f 20 65 78 70 61 6e 64 20 6f 74 68 65 72 20 6d 61 63 72 6f 20 63 61 6c 6c 73 20 77 69 74 68 | to.expand.other.macro.calls.with |
| 261640 | 69 6e 20 74 68 65 0a 3b 3b 20 20 20 65 78 70 61 6e 73 69 6f 6e 20 62 65 66 6f 72 65 20 65 78 70 | in.the.;;...expansion.before.exp |
| 261660 | 61 6e 64 69 6e 67 20 74 68 65 20 6f 75 74 65 72 6d 6f 73 74 20 66 6f 72 6d 2e 20 20 54 68 69 73 | anding.the.outermost.form...This |
| 261680 | 20 63 61 6e 20 73 6f 6d 65 74 69 6d 65 73 20 62 65 0a 3b 3b 20 20 20 75 73 65 66 75 6c 2c 20 61 | .can.sometimes.be.;;...useful,.a |
| 2616a0 | 6c 74 68 6f 75 67 68 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 63 6f 72 72 65 73 70 6f 6e 64 20 74 | lthough.it.does.not.correspond.t |
| 2616c0 | 6f 20 74 68 65 20 72 65 61 6c 20 6f 72 64 65 72 20 6f 66 20 6d 61 63 72 6f 0a 3b 3b 20 20 20 65 | o.the.real.order.of.macro.;;...e |
| 2616e0 | 78 70 61 6e 73 69 6f 6e 20 69 6e 20 45 6d 61 63 73 20 4c 69 73 70 2c 20 77 68 69 63 68 20 70 72 | xpansion.in.Emacs.Lisp,.which.pr |
| 261700 | 6f 63 65 65 64 73 20 62 79 20 66 75 6c 6c 79 20 65 78 70 61 6e 64 69 6e 67 20 74 68 65 20 6f 75 | oceeds.by.fully.expanding.the.ou |
| 261720 | 74 65 72 0a 3b 3b 20 20 20 66 6f 72 6d 20 74 6f 20 61 20 6e 6f 6e 2d 6d 61 63 72 6f 20 66 6f 72 | ter.;;...form.to.a.non-macro.for |
| 261740 | 6d 20 62 65 66 6f 72 65 20 65 78 70 61 6e 64 69 6e 67 20 73 75 62 2d 66 6f 72 6d 73 2e 0a 0a 3b | m.before.expanding.sub-forms...; |
| 261760 | 3b 20 20 20 54 68 65 20 6d 61 69 6e 20 72 65 61 73 6f 6e 20 74 6f 20 65 78 70 61 6e 64 20 73 75 | ;...The.main.reason.to.expand.su |
| 261780 | 62 2d 66 6f 72 6d 73 20 6f 75 74 20 6f 66 20 6f 72 64 65 72 20 69 73 20 74 6f 20 68 65 6c 70 20 | b-forms.out.of.order.is.to.help. |
| 2617a0 | 77 69 74 68 0a 3b 3b 20 20 20 64 65 62 75 67 67 69 6e 67 20 6d 61 63 72 6f 73 20 77 68 69 63 68 | with.;;...debugging.macros.which |
| 2617c0 | 20 70 72 6f 67 72 61 6d 6d 61 74 69 63 61 6c 6c 79 20 65 78 70 61 6e 64 20 74 68 65 69 72 20 61 | .programmatically.expand.their.a |
| 2617e0 | 72 67 75 6d 65 6e 74 73 20 69 6e 0a 3b 3b 20 20 20 6f 72 64 65 72 20 74 6f 20 72 65 77 72 69 74 | rguments.in.;;...order.to.rewrit |
| 261800 | 65 20 74 68 65 6d 2e 20 20 45 78 70 61 6e 64 69 6e 67 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 | e.them...Expanding.the.arguments |
| 261820 | 20 6f 66 20 73 75 63 68 20 61 20 6d 61 63 72 6f 20 6c 65 74 73 0a 3b 3b 20 20 20 79 6f 75 20 76 | .of.such.a.macro.lets.;;...you.v |
| 261840 | 69 73 75 61 6c 69 73 65 20 77 68 61 74 20 74 68 65 20 6d 61 63 72 6f 20 64 65 66 69 6e 69 74 69 | isualise.what.the.macro.definiti |
| 261860 | 6f 6e 20 77 6f 75 6c 64 20 63 6f 6d 70 75 74 65 20 76 69 61 0a 3b 3b 20 20 20 60 6d 61 63 72 6f | on.would.compute.via.;;...`macro |
| 261880 | 65 78 70 61 6e 64 2d 61 6c 6c 27 2e 0a 0a 0a 3b 3b 20 35 20 45 78 74 65 6e 64 69 6e 67 20 6d 61 | expand-all'....;;.5.Extending.ma |
| 2618a0 | 63 72 6f 73 74 65 70 20 66 6f 72 20 6f 74 68 65 72 20 6c 61 6e 67 75 61 67 65 73 0a 3b 3b 20 3d | crostep.for.other.languages.;;.= |
| 2618c0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ================================ |
| 2618e0 | 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 20 20 53 69 6e 63 65 20 76 65 72 73 69 6f 6e 20 30 2e 39 | ========..;;...Since.version.0.9 |
| 261900 | 2c 20 69 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 65 78 74 65 6e 64 20 6d 61 63 72 6f | ,.it.is.possible.to.extend.macro |
| 261920 | 73 74 65 70 20 74 6f 20 77 6f 72 6b 20 77 69 74 68 0a 3b 3b 20 20 20 6f 74 68 65 72 20 6c 61 6e | step.to.work.with.;;...other.lan |
| 261940 | 67 75 61 67 65 73 20 62 65 73 69 64 65 73 20 45 6d 61 63 73 20 4c 69 73 70 2e 20 20 49 6e 20 74 | guages.besides.Emacs.Lisp...In.t |
| 261960 | 79 70 69 63 61 6c 20 45 6d 61 63 73 20 66 61 73 68 69 6f 6e 2c 20 74 68 69 73 20 69 73 0a 3b 3b | ypical.Emacs.fashion,.this.is.;; |
| 261980 | 20 20 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 20 73 65 74 74 69 6e 67 20 62 75 66 66 65 72 | ...implemented.by.setting.buffer |
| 2619a0 | 2d 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 74 6f 20 64 69 66 66 65 72 65 6e 74 20 66 75 | -local.variables.to.different.fu |
| 2619c0 | 6e 63 74 69 6f 6e 0a 3b 3b 20 20 20 76 61 6c 75 65 73 2e 20 20 53 69 78 20 62 75 66 66 65 72 2d | nction.;;...values...Six.buffer- |
| 2619e0 | 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 64 65 66 69 6e 65 20 74 68 65 20 6c 61 6e 67 75 | local.variables.define.the.langu |
| 261a00 | 61 67 65 2d 73 70 65 63 69 66 69 63 20 70 61 72 74 0a 3b 3b 20 20 20 6f 66 20 74 68 65 20 69 6d | age-specific.part.;;...of.the.im |
| 261a20 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 3a 0a 0a 3b 3b 20 20 20 2d 20 60 6d 61 63 72 6f 73 74 65 70 | plementation:..;;...-.`macrostep |
| 261a40 | 2d 73 65 78 70 2d 62 6f 75 6e 64 73 2d 66 75 6e 63 74 69 6f 6e 27 0a 3b 3b 20 20 20 2d 20 60 6d | -sexp-bounds-function'.;;...-.`m |
| 261a60 | 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 | acrostep-sexp-at-point-function' |
| 261a80 | 0a 3b 3b 20 20 20 2d 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 61 | .;;...-.`macrostep-environment-a |
| 261aa0 | 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 0a 3b 3b 20 20 20 2d 20 60 6d 61 63 72 6f 73 | t-point-function'.;;...-.`macros |
| 261ac0 | 74 65 70 2d 65 78 70 61 6e 64 2d 31 2d 66 75 6e 63 74 69 6f 6e 27 0a 3b 3b 20 20 20 2d 20 60 6d | tep-expand-1-function'.;;...-.`m |
| 261ae0 | 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 0a 3b 3b 20 20 20 2d 20 | acrostep-print-function'.;;...-. |
| 261b00 | 60 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 70 2d 66 75 6e 63 74 69 6f 6e | `macrostep-macro-form-p-function |
| 261b20 | 27 0a 0a 3b 3b 20 20 20 54 79 70 69 63 61 6c 6c 79 2c 20 61 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 | '..;;...Typically,.an.implementa |
| 261b40 | 74 69 6f 6e 20 66 6f 72 20 61 6e 6f 74 68 65 72 20 6c 61 6e 67 75 61 67 65 20 77 6f 75 6c 64 20 | tion.for.another.language.would. |
| 261b60 | 73 65 74 20 74 68 65 73 65 0a 3b 3b 20 20 20 76 61 72 69 61 62 6c 65 73 20 69 6e 20 61 20 6d 61 | set.these.;;...variables.in.a.ma |
| 261b80 | 6a 6f 72 2d 6d 6f 64 65 20 68 6f 6f 6b 2e 20 20 53 65 65 20 74 68 65 20 64 6f 63 73 74 72 69 6e | jor-mode.hook...See.the.docstrin |
| 261ba0 | 67 73 20 6f 66 20 65 61 63 68 20 76 61 72 69 61 62 6c 65 0a 3b 3b 20 20 20 66 6f 72 20 64 65 74 | gs.of.each.variable.;;...for.det |
| 261bc0 | 61 69 6c 73 20 6f 6e 20 68 6f 77 20 65 61 63 68 20 6f 6e 65 20 69 73 20 63 61 6c 6c 65 64 20 61 | ails.on.how.each.one.is.called.a |
| 261be0 | 6e 64 20 77 68 61 74 20 69 74 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 2e 20 20 41 74 20 61 0a | nd.what.it.should.return...At.a. |
| 261c00 | 3b 3b 20 20 20 6d 69 6e 69 6d 75 6d 2c 20 61 6e 6f 74 68 65 72 20 6c 61 6e 67 75 61 67 65 20 69 | ;;...minimum,.another.language.i |
| 261c20 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6e 65 65 64 73 20 74 6f 20 70 72 6f 76 69 64 65 0a 3b | mplementation.needs.to.provide.; |
| 261c40 | 3b 20 20 20 60 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e | ;...`macrostep-sexp-at-point-fun |
| 261c60 | 63 74 69 6f 6e 27 2c 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 31 2d 66 75 6e 63 | ction',.`macrostep-expand-1-func |
| 261c80 | 74 69 6f 6e 27 2c 20 61 6e 64 0a 3b 3b 20 20 20 60 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 | tion',.and.;;...`macrostep-print |
| 261ca0 | 2d 66 75 6e 63 74 69 6f 6e 27 2e 20 20 4c 69 73 70 2d 6c 69 6b 65 20 6c 61 6e 67 75 61 67 65 73 | -function'...Lisp-like.languages |
| 261cc0 | 20 6d 61 79 20 62 65 20 61 62 6c 65 20 74 6f 20 72 65 75 73 65 0a 3b 3b 20 20 20 74 68 65 20 64 | .may.be.able.to.reuse.;;...the.d |
| 261ce0 | 65 66 61 75 6c 74 20 60 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 62 6f 75 6e 64 73 2d 66 75 | efault.`macrostep-sexp-bounds-fu |
| 261d00 | 6e 63 74 69 6f 6e 27 20 69 66 20 74 68 65 79 20 70 72 6f 76 69 64 65 20 61 6e 6f 74 68 65 72 0a | nction'.if.they.provide.another. |
| 261d20 | 3b 3b 20 20 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 60 6d 61 63 72 6f 73 74 65 | ;;...implementation.of.`macroste |
| 261d40 | 70 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 70 2d 66 75 6e 63 74 69 6f 6e 27 2e 20 20 4c 61 6e 67 75 | p-macro-form-p-function'...Langu |
| 261d60 | 61 67 65 73 20 77 68 69 63 68 0a 3b 3b 20 20 20 64 6f 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 | ages.which.;;...do.not.implement |
| 261d80 | 20 6c 6f 63 61 6c 6c 79 2d 64 65 66 69 6e 65 64 20 6d 61 63 72 6f 73 20 63 61 6e 20 73 65 74 0a | .locally-defined.macros.can.set. |
| 261da0 | 3b 3b 20 20 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 61 74 2d 70 | ;;...`macrostep-environment-at-p |
| 261dc0 | 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 20 74 6f 20 60 69 67 6e 6f 72 65 27 2e 0a 0a 3b 3b 20 | oint-function'.to.`ignore'...;;. |
| 261de0 | 20 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 20 63 6f 72 65 20 60 6d 61 63 72 6f 73 74 65 70 27 | ..Note.that.the.core.`macrostep' |
| 261e00 | 20 6d 61 63 68 69 6e 65 72 79 20 6f 6e 6c 79 20 69 6e 74 65 72 70 72 65 74 73 20 74 68 65 20 72 | .machinery.only.interprets.the.r |
| 261e20 | 65 74 75 72 6e 0a 3b 3b 20 20 20 76 61 6c 75 65 20 6f 66 20 60 6d 61 63 72 6f 73 74 65 70 2d 73 | eturn.;;...value.of.`macrostep-s |
| 261e40 | 65 78 70 2d 62 6f 75 6e 64 73 2d 66 75 6e 63 74 69 6f 6e 27 2c 20 73 6f 20 69 6d 70 6c 65 6d 65 | exp-bounds-function',.so.impleme |
| 261e60 | 6e 74 61 74 69 6f 6e 73 20 66 6f 72 0a 3b 3b 20 20 20 6f 74 68 65 72 20 6c 61 6e 67 75 61 67 65 | ntations.for.;;...other.language |
| 261e80 | 73 20 63 61 6e 20 75 73 65 20 61 6e 79 20 69 6e 74 65 72 6e 61 6c 20 72 65 70 72 65 73 65 6e 74 | s.can.use.any.internal.represent |
| 261ea0 | 61 74 69 6f 6e 73 20 6f 66 20 63 6f 64 65 20 61 6e 64 0a 3b 3b 20 20 20 65 6e 76 69 72 6f 6e 6d | ations.of.code.and.;;...environm |
| 261ec0 | 65 6e 74 73 20 77 68 69 63 68 20 69 73 20 63 6f 6e 76 65 6e 69 65 6e 74 2e 20 20 41 6c 74 68 6f | ents.which.is.convenient...Altho |
| 261ee0 | 75 67 68 20 74 68 65 20 74 65 72 6d 69 6e 6f 6c 6f 67 79 20 69 73 0a 3b 3b 20 20 20 4c 69 73 70 | ugh.the.terminology.is.;;...Lisp |
| 261f00 | 2d 73 70 65 63 69 66 69 63 2c 20 74 68 65 72 65 20 69 73 20 6e 6f 20 72 65 61 73 6f 6e 20 74 68 | -specific,.there.is.no.reason.th |
| 261f20 | 61 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 63 6f 75 6c 64 20 6e 6f 74 20 62 65 0a | at.implementations.could.not.be. |
| 261f40 | 3b 3b 20 20 20 70 72 6f 76 69 64 65 64 20 66 6f 72 20 6e 6f 6e 2d 4c 69 73 70 20 6c 61 6e 67 75 | ;;...provided.for.non-Lisp.langu |
| 261f60 | 61 67 65 73 20 77 69 74 68 20 6d 61 63 72 6f 20 73 79 73 74 65 6d 73 2c 20 70 72 6f 76 69 64 65 | ages.with.macro.systems,.provide |
| 261f80 | 64 20 74 68 65 72 65 20 69 73 0a 3b 3b 20 20 20 73 6f 6d 65 20 77 61 79 20 6f 66 20 69 64 65 6e | d.there.is.;;...some.way.of.iden |
| 261fa0 | 74 69 66 79 69 6e 67 20 6d 61 63 72 6f 20 63 61 6c 6c 73 20 61 6e 64 20 63 61 6c 6c 69 6e 67 20 | tifying.macro.calls.and.calling. |
| 261fc0 | 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 2f 0a 3b 3b 20 20 20 70 72 65 70 72 6f 63 65 73 73 6f 72 | the.compiler./.;;...preprocessor |
| 261fe0 | 20 74 6f 20 6f 62 74 61 69 6e 20 74 68 65 69 72 20 65 78 70 61 6e 73 69 6f 6e 73 2e 0a 0a 0a 3b | .to.obtain.their.expansions....; |
| 262000 | 3b 20 36 20 42 75 67 73 20 61 6e 64 20 6b 6e 6f 77 6e 20 6c 69 6d 69 74 61 74 69 6f 6e 73 0a 3b | ;.6.Bugs.and.known.limitations.; |
| 262020 | 3b 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a | ;.============================.. |
| 262040 | 3b 3b 20 20 20 59 6f 75 20 63 61 6e 20 65 76 61 6c 75 61 74 65 20 61 6e 64 20 65 64 65 62 75 67 | ;;...You.can.evaluate.and.edebug |
| 262060 | 20 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 64 20 66 6f 72 6d 73 20 61 6e 64 20 73 74 65 70 20 74 | .macro-expanded.forms.and.step.t |
| 262080 | 68 72 6f 75 67 68 20 74 68 65 0a 3b 3b 20 20 20 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 64 20 76 | hrough.the.;;...macro-expanded.v |
| 2620a0 | 65 72 73 69 6f 6e 2c 20 62 75 74 20 74 68 65 20 66 6f 72 6d 20 74 68 61 74 20 60 65 76 61 6c 2d | ersion,.but.the.form.that.`eval- |
| 2620c0 | 64 65 66 75 6e 27 20 61 6e 64 20 66 72 69 65 6e 64 73 0a 3b 3b 20 20 20 72 65 61 64 20 66 72 6f | defun'.and.friends.;;...read.fro |
| 2620e0 | 6d 20 74 68 65 20 62 75 66 66 65 72 20 77 6f 6e 27 74 20 68 61 76 65 20 74 68 65 20 75 6e 69 6e | m.the.buffer.won't.have.the.unin |
| 262100 | 74 65 72 6e 65 64 20 73 79 6d 62 6f 6c 73 20 6f 66 20 74 68 65 20 72 65 61 6c 0a 3b 3b 20 20 20 | terned.symbols.of.the.real.;;... |
| 262120 | 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 2e 20 20 54 68 69 73 20 77 69 6c 6c 20 70 72 6f 62 | macro.expansion...This.will.prob |
| 262140 | 61 62 6c 79 20 77 6f 72 6b 20 4f 4b 20 77 69 74 68 20 43 4c 2d 73 74 79 6c 65 20 67 65 6e 73 79 | ably.work.OK.with.CL-style.gensy |
| 262160 | 6d 73 2c 0a 3b 3b 20 20 20 62 75 74 20 6d 61 79 20 63 61 75 73 65 20 70 72 6f 62 6c 65 6d 73 20 | ms,.;;...but.may.cause.problems. |
| 262180 | 77 69 74 68 20 60 6d 61 6b 65 2d 73 79 6d 62 6f 6c 27 20 73 79 6d 62 6f 6c 73 20 69 66 20 74 68 | with.`make-symbol'.symbols.if.th |
| 2621a0 | 65 79 20 68 61 76 65 20 74 68 65 0a 3b 3b 20 20 20 73 61 6d 65 20 70 72 69 6e 74 20 6e 61 6d 65 | ey.have.the.;;...same.print.name |
| 2621c0 | 20 61 73 20 61 6e 6f 74 68 65 72 20 73 79 6d 62 6f 6c 20 69 6e 20 74 68 65 20 65 78 70 61 6e 73 | .as.another.symbol.in.the.expans |
| 2621e0 | 69 6f 6e 2e 20 49 74 27 73 20 70 6f 73 73 69 62 6c 65 20 74 68 61 74 0a 3b 3b 20 20 20 75 73 69 | ion..It's.possible.that.;;...usi |
| 262200 | 6e 67 20 60 70 72 69 6e 74 2d 63 69 72 63 6c 65 27 20 61 6e 64 20 60 70 72 69 6e 74 2d 67 65 6e | ng.`print-circle'.and.`print-gen |
| 262220 | 73 79 6d 27 20 63 6f 75 6c 64 20 67 65 74 20 61 72 6f 75 6e 64 20 74 68 69 73 2e 0a 0a 3b 3b 20 | sym'.could.get.around.this...;;. |
| 262240 | 20 20 50 6c 65 61 73 65 20 73 65 6e 64 20 6f 74 68 65 72 20 62 75 67 20 72 65 70 6f 72 74 73 20 | ..Please.send.other.bug.reports. |
| 262260 | 61 6e 64 20 66 65 61 74 75 72 65 20 72 65 71 75 65 73 74 73 20 74 6f 20 74 68 65 20 61 75 74 68 | and.feature.requests.to.the.auth |
| 262280 | 6f 72 2e 0a 0a 0a 3b 3b 20 37 20 41 63 6b 6e 6f 77 6c 65 64 67 65 6d 65 6e 74 73 0a 3b 3b 20 3d | or....;;.7.Acknowledgements.;;.= |
| 2622a0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 20 20 54 68 61 6e 6b 73 20 74 | =================..;;...Thanks.t |
| 2622c0 | 6f 3a 0a 3b 3b 20 20 20 2d 20 4a 6f 68 6e 20 57 69 65 67 6c 65 79 20 66 6f 72 20 66 69 78 69 6e | o:.;;...-.John.Wiegley.for.fixin |
| 2622e0 | 67 20 61 20 62 75 67 20 77 69 74 68 20 74 68 65 20 66 61 63 65 20 64 65 66 69 6e 69 74 69 6f 6e | g.a.bug.with.the.face.definition |
| 262300 | 73 20 75 6e 64 65 72 20 45 6d 61 63 73 0a 3b 3b 20 20 20 20 20 32 34 20 26 20 66 6f 72 20 70 6c | s.under.Emacs.;;.....24.&.for.pl |
| 262320 | 75 67 67 69 6e 67 20 6d 61 63 72 6f 73 74 65 70 20 69 6e 20 68 69 73 20 5b 45 6d 61 63 73 43 6f | ugging.macrostep.in.his.[EmacsCo |
| 262340 | 6e 66 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 5d 21 0a 3b 3b 20 20 20 2d 20 47 65 6f 72 67 65 20 | nf.presentation]!.;;...-.George. |
| 262360 | 4b 65 74 74 6c 65 62 6f 72 6f 75 67 68 20 66 6f 72 20 62 75 67 20 72 65 70 6f 72 74 73 2c 20 61 | Kettleborough.for.bug.reports,.a |
| 262380 | 6e 64 20 70 61 74 63 68 65 73 20 74 6f 20 68 69 67 68 6c 69 67 68 74 20 74 68 65 0a 3b 3b 20 20 | nd.patches.to.highlight.the.;;.. |
| 2623a0 | 20 20 20 65 78 70 61 6e 64 65 64 20 72 65 67 69 6f 6e 20 61 6e 64 20 70 72 6f 70 65 72 6c 79 20 | ...expanded.region.and.properly. |
| 2623c0 | 68 61 6e 64 6c 65 20 62 61 63 6b 71 75 6f 74 65 73 2e 0a 3b 3b 20 20 20 2d 20 4e 69 63 20 46 65 | handle.backquotes..;;...-.Nic.Fe |
| 2623e0 | 72 72 69 65 72 20 66 6f 72 20 73 75 67 67 65 73 74 69 6e 67 20 73 75 70 70 6f 72 74 20 66 6f 72 | rrier.for.suggesting.support.for |
| 262400 | 20 6c 6f 63 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 77 69 74 68 69 6e 0a 3b 3b 20 20 20 20 | .local.definitions.within.;;.... |
| 262420 | 20 6d 61 63 72 6f 6c 65 74 20 66 6f 72 6d 73 0a 3b 3b 20 20 20 2d 20 4c 75 c3 ad 73 20 4f 6c 69 | .macrolet.forms.;;...-.Lu..s.Oli |
| 262440 | 76 65 69 72 61 20 66 6f 72 20 73 75 67 67 65 73 74 69 6e 67 20 61 6e 64 20 69 6d 70 6c 65 6d 65 | veira.for.suggesting.and.impleme |
| 262460 | 6e 74 69 6e 67 20 53 4c 49 4d 45 20 73 75 70 70 6f 72 74 0a 0a 3b 3b 20 20 20 60 6d 61 63 72 6f | nting.SLIME.support..;;...`macro |
| 262480 | 73 74 65 70 27 20 77 61 73 20 6f 72 69 67 69 6e 61 6c 6c 79 20 69 6e 73 70 69 72 65 64 20 62 79 | step'.was.originally.inspired.by |
| 2624a0 | 20 4a 2e 20 56 2e 20 54 6f 75 70 73 27 73 20 27 44 65 65 70 20 45 6d 61 63 73 20 4c 69 73 70 27 | .J..V..Toups's.'Deep.Emacs.Lisp' |
| 2624c0 | 0a 3b 3b 20 20 20 61 72 74 69 63 6c 65 73 20 28 5b 70 61 72 74 20 31 5d 2c 20 5b 70 61 72 74 20 | .;;...articles.([part.1],.[part. |
| 2624e0 | 32 5d 2c 20 5b 73 63 72 65 65 6e 63 61 73 74 5d 29 2e 0a 0a 3b 3b 20 20 20 5b 45 6d 61 63 73 43 | 2],.[screencast])...;;...[EmacsC |
| 262500 | 6f 6e 66 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 5d 20 68 74 74 70 3a 2f 2f 79 6f 75 74 75 2e 62 | onf.presentation].http://youtu.b |
| 262520 | 65 2f 52 76 50 46 5a 4c 36 4e 4a 4e 51 0a 0a 3b 3b 20 20 20 5b 70 61 72 74 20 31 5d 0a 3b 3b 20 | e/RvPFZL6NJNQ..;;...[part.1].;;. |
| 262540 | 20 20 68 74 74 70 3a 2f 2f 64 6f 72 6f 70 68 6f 6e 65 2e 62 6c 6f 67 73 70 6f 74 2e 63 6f 2e 75 | ..http://dorophone.blogspot.co.u |
| 262560 | 6b 2f 32 30 31 31 2f 30 34 2f 64 65 65 70 2d 65 6d 61 63 73 2d 70 61 72 74 2d 31 2e 68 74 6d 6c | k/2011/04/deep-emacs-part-1.html |
| 262580 | 0a 0a 3b 3b 20 20 20 5b 70 61 72 74 20 32 5d 0a 3b 3b 20 20 20 68 74 74 70 3a 2f 2f 64 6f 72 6f | ..;;...[part.2].;;...http://doro |
| 2625a0 | 70 68 6f 6e 65 2e 62 6c 6f 67 73 70 6f 74 2e 63 6f 2e 75 6b 2f 32 30 31 31 2f 30 34 2f 64 65 65 | phone.blogspot.co.uk/2011/04/dee |
| 2625c0 | 70 2d 65 6d 61 63 73 2d 6c 69 73 70 2d 70 61 72 74 2d 32 2e 68 74 6d 6c 0a 0a 3b 3b 20 20 20 5b | p-emacs-lisp-part-2.html..;;...[ |
| 2625e0 | 73 63 72 65 65 6e 63 61 73 74 5d 0a 3b 3b 20 20 20 68 74 74 70 3a 2f 2f 64 6f 72 6f 70 68 6f 6e | screencast].;;...http://dorophon |
| 262600 | 65 2e 62 6c 6f 67 73 70 6f 74 2e 63 6f 2e 75 6b 2f 32 30 31 31 2f 30 35 2f 6d 6f 6e 61 64 69 63 | e.blogspot.co.uk/2011/05/monadic |
| 262620 | 2d 70 61 72 73 65 72 2d 63 6f 6d 62 69 6e 61 74 6f 72 73 2d 69 6e 2d 65 6c 69 73 70 2e 68 74 6d | -parser-combinators-in-elisp.htm |
| 262640 | 6c 0a 0a 0a 3b 3b 20 38 20 43 68 61 6e 67 65 6c 6f 67 0a 3b 3b 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | l...;;.8.Changelog.;;.========== |
| 262660 | 3d 0a 0a 3b 3b 20 20 20 2d 20 76 30 2e 39 2c 20 32 30 31 35 2d 31 30 2d 30 31 3a 0a 3b 3b 20 20 | =..;;...-.v0.9,.2015-10-01:.;;.. |
| 262680 | 20 20 20 2d 20 73 65 70 61 72 61 74 65 20 69 6e 74 6f 20 45 6c 69 73 70 2d 73 70 65 63 69 66 69 | ...-.separate.into.Elisp-specifi |
| 2626a0 | 63 20 61 6e 64 20 67 65 6e 65 72 69 63 20 63 6f 6d 70 6f 6e 65 6e 74 73 0a 3b 3b 20 20 20 20 20 | c.and.generic.components.;;..... |
| 2626c0 | 2d 20 68 69 67 68 6c 69 67 68 74 20 61 6e 64 20 65 78 70 61 6e 64 20 63 6f 6d 70 69 6c 65 72 20 | -.highlight.and.expand.compiler. |
| 2626e0 | 6d 61 63 72 6f 73 0a 3b 3b 20 20 20 20 20 2d 20 69 6d 70 72 6f 76 65 20 6c 6f 63 61 6c 20 6d 61 | macros.;;.....-.improve.local.ma |
| 262700 | 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 20 61 6e 64 20 6d 61 63 72 6f 20 66 6f 72 6d 20 69 64 65 | cro.expansion.and.macro.form.ide |
| 262720 | 6e 74 69 66 69 63 61 74 69 6f 6e 20 62 79 0a 3b 3b 20 20 20 20 20 20 20 69 6e 73 74 72 75 6d 65 | ntification.by.;;.......instrume |
| 262740 | 6e 74 69 6e 67 20 60 6d 61 63 72 6f 65 78 70 61 6e 64 28 2d 61 6c 6c 29 27 0a 3b 3b 20 20 20 2d | nting.`macroexpand(-all)'.;;...- |
| 262760 | 20 76 30 2e 38 2c 20 32 30 31 34 2d 30 35 2d 32 39 3a 20 66 69 78 20 61 20 62 75 67 20 77 69 74 | .v0.8,.2014-05-29:.fix.a.bug.wit |
| 262780 | 68 20 70 72 69 6e 74 69 6e 67 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 | h.printing.the.first.element.of. |
| 2627a0 | 6c 69 73 74 73 0a 3b 3b 20 20 20 2d 20 76 30 2e 37 2c 20 32 30 31 34 2d 30 35 2d 31 31 3a 20 65 | lists.;;...-.v0.7,.2014-05-11:.e |
| 2627c0 | 78 70 61 6e 64 20 6c 6f 63 61 6c 6c 79 2d 64 65 66 69 6e 65 64 20 6d 61 63 72 6f 73 20 77 69 74 | xpand.locally-defined.macros.wit |
| 2627e0 | 68 69 6e 0a 3b 3b 20 20 20 20 20 60 28 63 6c 2d 29 6d 61 63 72 6f 6c 65 74 27 20 66 6f 72 6d 73 | hin.;;.....`(cl-)macrolet'.forms |
| 262800 | 0a 3b 3b 20 20 20 2d 20 76 30 2e 36 2c 20 32 30 31 33 2d 30 35 2d 30 34 3a 20 62 65 74 74 65 72 | .;;...-.v0.6,.2013-05-04:.better |
| 262820 | 20 68 61 6e 64 6c 69 6e 67 20 6f 66 20 71 75 6f 74 65 20 61 6e 64 20 62 61 63 6b 71 75 6f 74 65 | .handling.of.quote.and.backquote |
| 262840 | 0a 3b 3b 20 20 20 2d 20 76 30 2e 35 2c 20 32 30 31 33 2d 30 34 2d 31 36 3a 20 68 69 67 68 6c 69 | .;;...-.v0.5,.2013-04-16:.highli |
| 262860 | 67 68 74 20 72 65 67 69 6f 6e 2c 20 6d 61 69 6e 74 61 69 6e 20 63 6c 65 61 6e 65 72 20 62 75 66 | ght.region,.maintain.cleaner.buf |
| 262880 | 66 65 72 20 73 74 61 74 65 0a 3b 3b 20 20 20 2d 20 76 30 2e 34 2c 20 32 30 31 33 2d 30 34 2d 30 | fer.state.;;...-.v0.4,.2013-04-0 |
| 2628a0 | 37 3a 20 6f 6e 6c 79 20 65 6e 74 65 72 20 6d 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 20 6f 6e 20 | 7:.only.enter.macrostep-mode.on. |
| 2628c0 | 73 75 63 63 65 73 73 66 75 6c 0a 3b 3b 20 20 20 20 20 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f | successful.;;.....macro-expansio |
| 2628e0 | 6e 0a 3b 3b 20 20 20 2d 20 76 30 2e 33 2c 20 32 30 31 32 2d 31 30 2d 33 30 3a 20 70 72 69 6e 74 | n.;;...-.v0.3,.2012-10-30:.print |
| 262900 | 20 64 6f 74 74 65 64 20 6c 69 73 74 73 20 63 6f 72 72 65 63 74 6c 79 2e 20 61 75 74 6f 6c 6f 61 | .dotted.lists.correctly..autoloa |
| 262920 | 64 0a 3b 3b 20 20 20 20 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a | d.;;.....definitions...;;;.Code: |
| 262940 | 0a 0a 28 72 65 71 75 69 72 65 20 27 70 70 29 0a 28 72 65 71 75 69 72 65 20 27 72 69 6e 67 29 0a | ..(require.'pp).(require.'ring). |
| 262960 | 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 63 6c | (eval-and-compile...(require.'cl |
| 262980 | 2d 6c 69 62 20 6e 69 6c 20 74 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 20 22 | -lib.nil.t)...(require.'cl-lib." |
| 2629a0 | 6c 69 62 2f 63 6c 2d 6c 69 62 22 29 29 0a 0a 0c 0a 3b 3b 3b 20 43 6f 6e 73 74 61 6e 74 73 20 61 | lib/cl-lib"))....;;;.Constants.a |
| 2629c0 | 6e 64 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 62 6f 75 6e 64 20 76 61 72 69 61 62 6c 65 73 0a 28 | nd.dynamically.bound.variables.( |
| 2629e0 | 64 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d 6f 76 65 72 6c 61 79 73 20 6e 69 6c 0a 20 20 | defvar.macrostep-overlays.nil... |
| 262a00 | 22 4c 69 73 74 20 6f 66 20 61 6c 6c 20 6d 61 63 72 6f 20 73 74 65 70 70 65 72 20 6f 76 65 72 6c | "List.of.all.macro.stepper.overl |
| 262a20 | 61 79 73 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 29 0a 28 6d 61 | ays.in.the.current.buffer.").(ma |
| 262a40 | 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f 73 | ke-variable-buffer-local.'macros |
| 262a60 | 74 65 70 2d 6f 76 65 72 6c 61 79 73 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 | tep-overlays)..(defvar.macrostep |
| 262a80 | 2d 67 65 6e 73 79 6d 2d 64 65 70 74 68 20 6e 69 6c 0a 20 20 22 4e 75 6d 62 65 72 20 6f 66 20 6d | -gensym-depth.nil..."Number.of.m |
| 262aa0 | 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 20 6c 65 76 65 6c 73 20 74 68 61 74 20 68 61 76 65 20 | acro.expansion.levels.that.have. |
| 262ac0 | 69 6e 74 72 6f 64 75 63 65 64 20 67 65 6e 73 79 6d 73 20 73 6f 20 66 61 72 2e 22 29 0a 28 6d 61 | introduced.gensyms.so.far.").(ma |
| 262ae0 | 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f 73 | ke-variable-buffer-local.'macros |
| 262b00 | 74 65 70 2d 67 65 6e 73 79 6d 2d 64 65 70 74 68 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 63 72 6f | tep-gensym-depth)..(defvar.macro |
| 262b20 | 73 74 65 70 2d 67 65 6e 73 79 6d 73 2d 74 68 69 73 2d 6c 65 76 65 6c 20 6e 69 6c 0a 20 20 22 74 | step-gensyms-this-level.nil..."t |
| 262b40 | 20 69 66 20 67 65 6e 73 79 6d 73 20 68 61 76 65 20 62 65 65 6e 20 65 6e 63 6f 75 6e 74 65 72 65 | .if.gensyms.have.been.encountere |
| 262b60 | 64 20 64 75 72 69 6e 67 20 63 75 72 72 65 6e 74 20 6c 65 76 65 6c 20 6f 66 20 6d 61 63 72 6f 20 | d.during.current.level.of.macro. |
| 262b80 | 65 78 70 61 6e 73 69 6f 6e 2e 22 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 | expansion.").(make-variable-buff |
| 262ba0 | 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 73 2d 74 68 69 73 | er-local.'macrostep-gensyms-this |
| 262bc0 | 2d 6c 65 76 65 6c 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d 73 61 76 65 64 | -level)..(defvar.macrostep-saved |
| 262be0 | 2d 75 6e 64 6f 2d 6c 69 73 74 20 6e 69 6c 0a 20 20 22 53 61 76 65 64 20 76 61 6c 75 65 20 6f 66 | -undo-list.nil..."Saved.value.of |
| 262c00 | 20 62 75 66 66 65 72 2d 75 6e 64 6f 2d 6c 69 73 74 20 75 70 6f 6e 20 65 6e 74 65 72 69 6e 67 20 | .buffer-undo-list.upon.entering. |
| 262c20 | 6d 61 63 72 6f 73 74 65 70 20 6d 6f 64 65 2e 22 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 | macrostep.mode.").(make-variable |
| 262c40 | 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f 73 74 65 70 2d 73 61 76 65 64 2d 75 | -buffer-local.'macrostep-saved-u |
| 262c60 | 6e 64 6f 2d 6c 69 73 74 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d 73 61 76 | ndo-list)..(defvar.macrostep-sav |
| 262c80 | 65 64 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 0a 20 20 22 53 61 76 65 64 20 76 61 6c 75 65 20 | ed-read-only.nil..."Saved.value. |
| 262ca0 | 6f 66 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 75 70 6f 6e 20 65 6e 74 65 72 69 6e | of.buffer-read-only.upon.enterin |
| 262cc0 | 67 20 6d 61 63 72 6f 73 74 65 70 20 6d 6f 64 65 2e 22 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 | g.macrostep.mode.").(make-variab |
| 262ce0 | 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f 73 74 65 70 2d 73 61 76 65 64 | le-buffer-local.'macrostep-saved |
| 262d00 | 2d 72 65 61 64 2d 6f 6e 6c 79 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d 65 | -read-only)..(defvar.macrostep-e |
| 262d20 | 78 70 61 6e 73 69 6f 6e 2d 62 75 66 66 65 72 20 6e 69 6c 0a 20 20 22 4e 6f 6e 2d 6e 69 6c 20 69 | xpansion-buffer.nil..."Non-nil.i |
| 262d40 | 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 69 73 20 61 20 6d 61 63 72 6f 2d | f.the.current.buffer.is.a.macro- |
| 262d60 | 65 78 70 61 6e 73 69 6f 6e 20 62 75 66 66 65 72 2e 22 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 | expansion.buffer.").(make-variab |
| 262d80 | 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e | le-buffer-local.'macrostep-expan |
| 262da0 | 73 69 6f 6e 2d 62 75 66 66 65 72 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d | sion-buffer)..(defvar.macrostep- |
| 262dc0 | 6f 75 74 65 72 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 6e 69 6c 0a 20 20 22 4f 75 74 65 72 6d 6f | outer-environment.nil..."Outermo |
| 262de0 | 73 74 20 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 74 | st.macro-expansion.environment.t |
| 262e00 | 6f 20 75 73 65 20 69 6e 20 61 20 64 65 64 69 63 61 74 65 64 20 6d 61 63 72 6f 2d 65 78 70 61 6e | o.use.in.a.dedicated.macro-expan |
| 262e20 | 73 69 6f 6e 20 62 75 66 66 65 72 73 2e 0a 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 | sion.buffers...This.variable.is. |
| 262e40 | 75 73 65 64 20 74 6f 20 73 61 76 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 61 | used.to.save.information.about.a |
| 262e60 | 6e 79 20 65 6e 63 6c 6f 73 69 6e 67 0a 60 63 6c 2d 6d 61 63 72 6f 6c 65 74 27 20 63 6f 6e 74 65 | ny.enclosing.`cl-macrolet'.conte |
| 262e80 | 78 74 20 77 68 65 6e 20 61 20 6d 61 63 72 6f 20 66 6f 72 6d 20 69 73 20 65 78 70 61 6e 64 65 64 | xt.when.a.macro.form.is.expanded |
| 262ea0 | 20 69 6e 20 61 20 73 65 70 61 72 61 74 65 0a 62 75 66 66 65 72 2e 22 29 0a 28 6d 61 6b 65 2d 76 | .in.a.separate.buffer.").(make-v |
| 262ec0 | 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f 73 74 65 70 2d | ariable-buffer-local.'macrostep- |
| 262ee0 | 6f 75 74 65 72 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 0a 3b 3b 3b 20 43 75 73 74 6f 6d 69 7a | outer-environment)..;;;.Customiz |
| 262f00 | 61 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 66 61 63 65 73 0a 28 64 65 66 67 72 6f 75 | ation.options.and.faces.(defgrou |
| 262f20 | 70 20 6d 61 63 72 6f 73 74 65 70 20 6e 69 6c 0a 20 20 22 49 6e 74 65 72 61 63 74 69 76 65 20 6d | p.macrostep.nil..."Interactive.m |
| 262f40 | 61 63 72 6f 20 73 74 65 70 70 65 72 20 66 6f 72 20 45 6d 61 63 73 20 4c 69 73 70 2e 22 0a 20 20 | acro.stepper.for.Emacs.Lisp."... |
| 262f60 | 3a 67 72 6f 75 70 20 27 6c 69 73 70 0a 20 20 3a 6c 69 6e 6b 20 27 28 65 6d 61 63 73 2d 63 6f 6d | :group.'lisp...:link.'(emacs-com |
| 262f80 | 6d 65 6e 74 61 72 79 2d 6c 69 6e 6b 20 3a 74 61 67 20 22 63 6f 6d 6d 65 6e 74 61 72 79 22 20 22 | mentary-link.:tag."commentary"." |
| 262fa0 | 6d 61 63 72 6f 73 74 65 70 2e 65 6c 22 29 0a 20 20 3a 6c 69 6e 6b 20 27 28 65 6d 61 63 73 2d 6c | macrostep.el")...:link.'(emacs-l |
| 262fc0 | 69 62 72 61 72 79 2d 6c 69 6e 6b 20 3a 74 61 67 20 22 6c 69 73 70 20 66 69 6c 65 22 20 22 6d 61 | ibrary-link.:tag."lisp.file"."ma |
| 262fe0 | 63 72 6f 73 74 65 70 2e 65 6c 22 29 0a 20 20 3a 6c 69 6e 6b 20 27 28 75 72 6c 2d 6c 69 6e 6b 20 | crostep.el")...:link.'(url-link. |
| 263000 | 3a 74 61 67 20 22 77 65 62 20 70 61 67 65 22 20 22 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e | :tag."web.page"."https://github. |
| 263020 | 63 6f 6d 2f 6a 6f 64 64 69 65 2f 6d 61 63 72 6f 73 74 65 70 22 29 29 0a 0a 28 64 65 66 66 61 63 | com/joddie/macrostep"))..(deffac |
| 263040 | 65 20 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 31 0a 20 20 27 28 28 28 28 6d 69 6e 2d | e.macrostep-gensym-1...'((((min- |
| 263060 | 63 6f 6c 6f 72 73 20 31 36 35 38 31 33 37 35 29 29 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 | colors.16581375)).:foreground."# |
| 263080 | 38 30 38 30 63 30 22 20 3a 62 6f 78 20 74 20 3a 62 6f 6c 64 20 74 29 0a 20 20 20 20 28 28 28 6d | 8080c0".:box.t.:bold.t).....(((m |
| 2630a0 | 69 6e 2d 63 6f 6c 6f 72 73 20 38 29 29 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 63 79 61 6e 22 | in-colors.8)).:background."cyan" |
| 2630c0 | 29 0a 20 20 20 20 28 74 20 3a 69 6e 76 65 72 73 65 2d 76 69 64 65 6f 20 74 29 29 0a 20 20 22 46 | ).....(t.:inverse-video.t))..."F |
| 2630e0 | 61 63 65 20 66 6f 72 20 67 65 6e 73 79 6d 73 20 63 72 65 61 74 65 64 20 69 6e 20 74 68 65 20 66 | ace.for.gensyms.created.in.the.f |
| 263100 | 69 72 73 74 20 6c 65 76 65 6c 20 6f 66 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 2e 22 0a | irst.level.of.macro.expansion.". |
| 263120 | 20 20 3a 67 72 6f 75 70 20 27 6d 61 63 72 6f 73 74 65 70 29 0a 0a 28 64 65 66 66 61 63 65 20 6d | ..:group.'macrostep)..(defface.m |
| 263140 | 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 32 0a 20 20 27 28 28 28 28 6d 69 6e 2d 63 6f 6c | acrostep-gensym-2...'((((min-col |
| 263160 | 6f 72 73 20 31 36 35 38 31 33 37 35 29 29 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 38 66 62 | ors.16581375)).:foreground."#8fb |
| 263180 | 63 38 66 22 20 3a 62 6f 78 20 74 20 3a 62 6f 6c 64 20 74 29 0a 20 20 20 20 28 28 28 6d 69 6e 2d | c8f".:box.t.:bold.t).....(((min- |
| 2631a0 | 63 6f 6c 6f 72 73 20 38 29 29 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 23 30 30 63 64 30 30 22 | colors.8)).:background."#00cd00" |
| 2631c0 | 29 0a 20 20 20 20 28 74 20 3a 69 6e 76 65 72 73 65 2d 76 69 64 65 6f 20 74 29 29 0a 20 20 22 46 | ).....(t.:inverse-video.t))..."F |
| 2631e0 | 61 63 65 20 66 6f 72 20 67 65 6e 73 79 6d 73 20 63 72 65 61 74 65 64 20 69 6e 20 74 68 65 20 73 | ace.for.gensyms.created.in.the.s |
| 263200 | 65 63 6f 6e 64 20 6c 65 76 65 6c 20 6f 66 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 2e 22 | econd.level.of.macro.expansion." |
| 263220 | 0a 20 20 3a 67 72 6f 75 70 20 27 6d 61 63 72 6f 73 74 65 70 29 0a 0a 28 64 65 66 66 61 63 65 20 | ...:group.'macrostep)..(defface. |
| 263240 | 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 33 0a 20 20 27 28 28 28 28 6d 69 6e 2d 63 6f | macrostep-gensym-3...'((((min-co |
| 263260 | 6c 6f 72 73 20 31 36 35 38 31 33 37 35 29 29 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 64 61 | lors.16581375)).:foreground."#da |
| 263280 | 61 35 32 30 22 20 3a 62 6f 78 20 74 20 3a 62 6f 6c 64 20 74 29 0a 20 20 20 20 28 28 28 6d 69 6e | a520".:box.t.:bold.t).....(((min |
| 2632a0 | 2d 63 6f 6c 6f 72 73 20 38 29 29 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 79 65 6c 6c 6f 77 22 | -colors.8)).:background."yellow" |
| 2632c0 | 29 0a 20 20 20 20 28 74 20 3a 69 6e 76 65 72 73 65 2d 76 69 64 65 6f 20 74 29 29 0a 20 20 22 46 | ).....(t.:inverse-video.t))..."F |
| 2632e0 | 61 63 65 20 66 6f 72 20 67 65 6e 73 79 6d 73 20 63 72 65 61 74 65 64 20 69 6e 20 74 68 65 20 74 | ace.for.gensyms.created.in.the.t |
| 263300 | 68 69 72 64 20 6c 65 76 65 6c 20 6f 66 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 2e 22 0a | hird.level.of.macro.expansion.". |
| 263320 | 20 20 3a 67 72 6f 75 70 20 27 6d 61 63 72 6f 73 74 65 70 29 0a 0a 28 64 65 66 66 61 63 65 20 6d | ..:group.'macrostep)..(defface.m |
| 263340 | 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 34 0a 20 20 27 28 28 28 28 6d 69 6e 2d 63 6f 6c | acrostep-gensym-4...'((((min-col |
| 263360 | 6f 72 73 20 31 36 35 38 31 33 37 35 29 29 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 63 64 35 | ors.16581375)).:foreground."#cd5 |
| 263380 | 63 35 63 22 20 3a 62 6f 78 20 74 20 3a 62 6f 6c 64 20 74 29 0a 20 20 20 20 28 28 28 6d 69 6e 2d | c5c".:box.t.:bold.t).....(((min- |
| 2633a0 | 63 6f 6c 6f 72 73 20 38 29 29 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 72 65 64 22 29 0a 20 20 | colors.8)).:background."red")... |
| 2633c0 | 20 20 28 74 20 3a 69 6e 76 65 72 73 65 2d 76 69 64 65 6f 20 74 29 29 0a 20 20 22 46 61 63 65 20 | ..(t.:inverse-video.t))..."Face. |
| 2633e0 | 66 6f 72 20 67 65 6e 73 79 6d 73 20 63 72 65 61 74 65 64 20 69 6e 20 74 68 65 20 66 6f 75 72 74 | for.gensyms.created.in.the.fourt |
| 263400 | 68 20 6c 65 76 65 6c 20 6f 66 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 2e 22 0a 20 20 3a | h.level.of.macro.expansion."...: |
| 263420 | 67 72 6f 75 70 20 27 6d 61 63 72 6f 73 74 65 70 29 0a 0a 28 64 65 66 66 61 63 65 20 6d 61 63 72 | group.'macrostep)..(defface.macr |
| 263440 | 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 35 0a 20 20 27 28 28 28 28 6d 69 6e 2d 63 6f 6c 6f 72 73 | ostep-gensym-5...'((((min-colors |
| 263460 | 20 31 36 35 38 31 33 37 35 29 29 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 23 64 61 37 30 64 36 | .16581375)).:foreground."#da70d6 |
| 263480 | 22 20 3a 62 6f 78 20 74 20 3a 62 6f 6c 64 20 74 29 0a 20 20 20 20 28 28 28 6d 69 6e 2d 63 6f 6c | ".:box.t.:bold.t).....(((min-col |
| 2634a0 | 6f 72 73 20 38 29 29 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 6d 61 67 65 6e 74 61 22 29 0a 20 | ors.8)).:background."magenta").. |
| 2634c0 | 20 20 20 28 74 20 3a 69 6e 76 65 72 73 65 2d 76 69 64 65 6f 20 74 29 29 0a 20 20 22 46 61 63 65 | ...(t.:inverse-video.t))..."Face |
| 2634e0 | 20 66 6f 72 20 67 65 6e 73 79 6d 73 20 63 72 65 61 74 65 64 20 69 6e 20 74 68 65 20 66 69 66 74 | .for.gensyms.created.in.the.fift |
| 263500 | 68 20 6c 65 76 65 6c 20 6f 66 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 2e 22 0a 20 20 3a | h.level.of.macro.expansion."...: |
| 263520 | 67 72 6f 75 70 20 27 6d 61 63 72 6f 73 74 65 70 29 0a 0a 28 64 65 66 66 61 63 65 20 6d 61 63 72 | group.'macrostep)..(defface.macr |
| 263540 | 6f 73 74 65 70 2d 65 78 70 61 6e 73 69 6f 6e 2d 68 69 67 68 6c 69 67 68 74 2d 66 61 63 65 0a 20 | ostep-expansion-highlight-face.. |
| 263560 | 20 27 28 28 28 28 6d 69 6e 2d 63 6f 6c 6f 72 73 20 31 36 35 38 31 33 37 35 29 20 28 62 61 63 6b | .'((((min-colors.16581375).(back |
| 263580 | 67 72 6f 75 6e 64 20 6c 69 67 68 74 29 29 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 23 65 65 65 | ground.light)).:background."#eee |
| 2635a0 | 38 64 35 22 29 0a 20 20 20 20 28 28 28 6d 69 6e 2d 63 6f 6c 6f 72 73 20 31 36 35 38 31 33 37 35 | 8d5").....(((min-colors.16581375 |
| 2635c0 | 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 64 61 72 6b 29 29 20 3a 62 61 63 6b 67 72 6f 75 6e 64 | ).(background.dark)).:background |
| 2635e0 | 20 22 23 32 32 32 32 32 32 22 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 6d 61 63 72 6f 2d 65 | ."#222222"))..."Face.for.macro-e |
| 263600 | 78 70 61 6e 73 69 6f 6e 20 68 69 67 68 6c 69 67 68 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6d | xpansion.highlight."...:group.'m |
| 263620 | 61 63 72 6f 73 74 65 70 29 0a 0a 28 64 65 66 66 61 63 65 20 6d 61 63 72 6f 73 74 65 70 2d 6d 61 | acrostep)..(defface.macrostep-ma |
| 263640 | 63 72 6f 2d 66 61 63 65 0a 20 20 27 28 28 74 20 3a 75 6e 64 65 72 6c 69 6e 65 20 74 29 29 0a 20 | cro-face...'((t.:underline.t)).. |
| 263660 | 20 22 46 61 63 65 20 66 6f 72 20 6d 61 63 72 6f 73 20 69 6e 20 6d 61 63 72 6f 2d 65 78 70 61 6e | ."Face.for.macros.in.macro-expan |
| 263680 | 64 65 64 20 63 6f 64 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6d 61 63 72 6f 73 74 65 70 29 0a | ded.code."...:group.'macrostep). |
| 2636a0 | 0a 28 64 65 66 66 61 63 65 20 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 | .(defface.macrostep-compiler-mac |
| 2636c0 | 72 6f 2d 66 61 63 65 0a 20 20 27 28 28 74 20 3a 73 6c 61 6e 74 20 69 74 61 6c 69 63 29 29 0a 20 | ro-face...'((t.:slant.italic)).. |
| 2636e0 | 20 22 46 61 63 65 20 66 6f 72 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 73 20 69 6e 20 6d 61 | ."Face.for.compiler.macros.in.ma |
| 263700 | 63 72 6f 2d 65 78 70 61 6e 64 65 64 20 63 6f 64 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6d 61 | cro-expanded.code."...:group.'ma |
| 263720 | 63 72 6f 73 74 65 70 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6d 61 63 72 6f 73 74 65 70 2d 65 | crostep)..(defcustom.macrostep-e |
| 263740 | 78 70 61 6e 64 2d 69 6e 2d 73 65 70 61 72 61 74 65 2d 62 75 66 66 65 72 20 6e 69 6c 0a 20 20 22 | xpand-in-separate-buffer.nil..." |
| 263760 | 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 73 68 6f 77 20 65 78 70 61 6e 73 69 6f 6e 73 20 69 6e | When.non-nil,.show.expansions.in |
| 263780 | 20 61 20 73 65 70 61 72 61 74 65 20 62 75 66 66 65 72 20 69 6e 73 74 65 61 64 20 6f 66 20 69 6e | .a.separate.buffer.instead.of.in |
| 2637a0 | 6c 69 6e 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6d 61 63 72 6f 73 74 65 70 0a 20 20 3a 74 79 | line."...:group.'macrostep...:ty |
| 2637c0 | 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6d 61 63 72 6f 73 74 | pe.'boolean)..(defcustom.macrost |
| 2637e0 | 65 70 2d 65 78 70 61 6e 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 20 74 0a 20 20 22 57 | ep-expand-compiler-macros.t..."W |
| 263800 | 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 78 70 61 6e 64 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 | hen.non-nil,.expand.compiler.mac |
| 263820 | 72 6f 73 20 61 73 20 77 65 6c 6c 20 61 73 20 60 64 65 66 6d 61 63 72 6f 27 20 61 6e 64 20 60 6d | ros.as.well.as.`defmacro'.and.`m |
| 263840 | 61 63 72 6f 6c 65 74 27 20 6d 61 63 72 6f 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6d 61 63 72 | acrolet'.macros."...:group.'macr |
| 263860 | 6f 73 74 65 70 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 3b 3b 20 4e 65 65 64 | ostep...:type.'boolean)..;;.Need |
| 263880 | 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 6f 72 20 6d 61 6b 69 6e 67 20 74 68 65 20 72 69 | .the.following.for.making.the.ri |
| 2638a0 | 6e 67 20 6f 66 20 66 61 63 65 73 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 6d 61 6b | ng.of.faces.(defun.macrostep-mak |
| 2638c0 | 65 2d 72 69 6e 67 20 28 26 72 65 73 74 20 69 74 65 6d 73 29 0a 20 20 22 4d 61 6b 65 20 61 20 72 | e-ring.(&rest.items)..."Make.a.r |
| 2638e0 | 69 6e 67 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61 6c 6c 20 6f 66 20 49 54 45 4d 53 20 77 69 74 68 | ing.containing.all.of.ITEMS.with |
| 263900 | 20 6e 6f 20 65 6d 70 74 79 20 73 6c 6f 74 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 72 69 6e 67 20 | .no.empty.slots."...(let.((ring. |
| 263920 | 28 6d 61 6b 65 2d 72 69 6e 67 20 28 6c 65 6e 67 74 68 20 69 74 65 6d 73 29 29 29 29 0a 20 20 20 | (make-ring.(length.items)))).... |
| 263940 | 20 28 6d 61 70 63 20 28 6c 61 6d 62 64 61 20 28 69 74 65 6d 29 20 28 72 69 6e 67 2d 69 6e 73 65 | .(mapc.(lambda.(item).(ring-inse |
| 263960 | 72 74 20 72 69 6e 67 20 69 74 65 6d 29 29 20 28 72 65 76 65 72 73 65 20 69 74 65 6d 73 29 29 0a | rt.ring.item)).(reverse.items)). |
| 263980 | 20 20 20 20 72 69 6e 67 29 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d 67 65 | ....ring))..(defvar.macrostep-ge |
| 2639a0 | 6e 73 79 6d 2d 66 61 63 65 73 0a 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 6d 61 6b 65 2d 72 69 6e | nsym-faces...(macrostep-make-rin |
| 2639c0 | 67 0a 20 20 20 27 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 31 20 27 6d 61 63 72 6f 73 | g....'macrostep-gensym-1.'macros |
| 2639e0 | 74 65 70 2d 67 65 6e 73 79 6d 2d 32 20 27 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 33 | tep-gensym-2.'macrostep-gensym-3 |
| 263a00 | 0a 20 20 20 27 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 34 20 27 6d 61 63 72 6f 73 74 | ....'macrostep-gensym-4.'macrost |
| 263a20 | 65 70 2d 67 65 6e 73 79 6d 2d 35 29 0a 20 20 22 52 69 6e 67 20 6f 66 20 61 6c 6c 20 6d 61 63 72 | ep-gensym-5)..."Ring.of.all.macr |
| 263a40 | 6f 73 74 65 70 70 65 72 20 66 61 63 65 73 20 66 6f 72 20 66 6f 6e 74 69 66 79 69 6e 67 20 67 65 | ostepper.faces.for.fontifying.ge |
| 263a60 | 6e 73 79 6d 73 2e 22 29 0a 0a 3b 3b 20 4f 74 68 65 72 20 6d 6f 64 65 73 20 63 61 6e 20 65 6e 61 | nsyms.")..;;.Other.modes.can.ena |
| 263a80 | 62 6c 65 20 6d 61 63 72 6f 73 74 65 70 20 62 79 20 72 65 64 65 66 69 6e 69 6e 67 20 74 68 65 73 | ble.macrostep.by.redefining.thes |
| 263aa0 | 65 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 0a 3b 3b 20 6c 61 6e 67 75 61 67 65 2d 73 70 65 63 69 | e.functions.to.;;.language-speci |
| 263ac0 | 66 69 63 20 76 65 72 73 69 6f 6e 73 2e 0a 28 64 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d | fic.versions..(defvar.macrostep- |
| 263ae0 | 73 65 78 70 2d 62 6f 75 6e 64 73 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 23 27 6d 61 63 72 6f 73 74 | sexp-bounds-function...#'macrost |
| 263b00 | 65 70 2d 73 65 78 70 2d 62 6f 75 6e 64 73 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 72 65 | ep-sexp-bounds..."Function.to.re |
| 263b20 | 74 75 72 6e 20 74 68 65 20 62 6f 75 6e 64 73 20 6f 66 20 74 68 65 20 6d 61 63 72 6f 20 66 6f 72 | turn.the.bounds.of.the.macro.for |
| 263b40 | 6d 20 6e 65 61 72 65 73 74 20 70 6f 69 6e 74 2e 0a 0a 49 74 20 77 69 6c 6c 20 62 65 20 63 61 6c | m.nearest.point...It.will.be.cal |
| 263b60 | 6c 65 64 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 73 68 6f 75 6c 64 | led.with.no.arguments.and.should |
| 263b80 | 20 72 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 6f 66 0a 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f | .return.a.cons.of.buffer.positio |
| 263ba0 | 6e 73 2c 20 28 53 54 41 52 54 20 2e 20 45 4e 44 29 2e 20 20 49 74 20 73 68 6f 75 6c 64 20 75 73 | ns,.(START...END)...It.should.us |
| 263bc0 | 65 20 60 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 27 0a 74 6f 20 61 76 6f 69 64 20 63 68 61 6e | e.`save-excursion'.to.avoid.chan |
| 263be0 | 67 69 6e 67 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 70 6f 69 6e 74 2e 0a 0a 54 68 65 | ging.the.position.of.point...The |
| 263c00 | 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 2c 20 60 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d | .default.value,.`macrostep-sexp- |
| 263c20 | 62 6f 75 6e 64 73 27 2c 20 69 6d 70 6c 65 6d 65 6e 74 73 20 74 68 69 73 20 66 6f 72 0a 45 6d 61 | bounds',.implements.this.for.Ema |
| 263c40 | 63 73 20 4c 69 73 70 2c 20 61 6e 64 20 6d 61 79 20 62 65 20 73 75 69 74 61 62 6c 65 20 66 6f 72 | cs.Lisp,.and.may.be.suitable.for |
| 263c60 | 20 6f 74 68 65 72 20 4c 69 73 70 2d 6c 69 6b 65 20 6c 61 6e 67 75 61 67 65 73 2e 22 29 0a 28 6d | .other.Lisp-like.languages.").(m |
| 263c80 | 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f | ake-variable-buffer-local.'macro |
| 263ca0 | 73 74 65 70 2d 73 65 78 70 2d 62 6f 75 6e 64 73 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 66 | step-sexp-bounds-function)..(def |
| 263cc0 | 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 | var.macrostep-sexp-at-point-func |
| 263ce0 | 74 69 6f 6e 0a 20 20 23 27 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 | tion...#'macrostep-sexp-at-point |
| 263d00 | 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 72 65 74 75 72 6e 20 74 68 65 20 6d 61 63 72 6f | ..."Function.to.return.the.macro |
| 263d20 | 20 66 6f 72 6d 20 61 74 20 70 6f 69 6e 74 20 66 6f 72 20 65 78 70 61 6e 73 69 6f 6e 2e 0a 0a 49 | .form.at.point.for.expansion...I |
| 263d40 | 74 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65 | t.will.be.called.with.two.argume |
| 263d60 | 6e 74 73 2c 20 74 68 65 20 76 61 6c 75 65 73 20 6f 66 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 | nts,.the.values.of.START.and.END |
| 263d80 | 0a 72 65 74 75 72 6e 65 64 20 62 79 20 60 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 62 6f 75 | .returned.by.`macrostep-sexp-bou |
| 263da0 | 6e 64 73 2d 66 75 6e 63 74 69 6f 6e 27 2c 20 61 6e 64 20 77 69 74 68 20 70 6f 69 6e 74 0a 70 6f | nds-function',.and.with.point.po |
| 263dc0 | 73 69 74 69 6f 6e 65 64 20 61 74 20 53 54 41 52 54 2e 20 20 49 74 20 73 68 6f 75 6c 64 20 72 65 | sitioned.at.START...It.should.re |
| 263de0 | 74 75 72 6e 20 61 20 76 61 6c 75 65 20 73 75 69 74 61 62 6c 65 20 66 6f 72 0a 70 61 73 73 69 6e | turn.a.value.suitable.for.passin |
| 263e00 | 67 20 61 73 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 60 6d 61 63 72 | g.as.the.first.argument.to.`macr |
| 263e20 | 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 31 2d 66 75 6e 63 74 69 6f 6e 27 2e 0a 0a 54 68 65 20 64 | ostep-expand-1-function'...The.d |
| 263e40 | 65 66 61 75 6c 74 20 76 61 6c 75 65 2c 20 60 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 61 74 | efault.value,.`macrostep-sexp-at |
| 263e60 | 2d 70 6f 69 6e 74 27 2c 20 69 6d 70 6c 65 6d 65 6e 74 73 20 74 68 69 73 20 66 6f 72 0a 45 6d 61 | -point',.implements.this.for.Ema |
| 263e80 | 63 73 20 4c 69 73 70 2c 20 61 6e 64 20 6d 61 79 20 62 65 20 73 75 69 74 61 62 6c 65 20 66 6f 72 | cs.Lisp,.and.may.be.suitable.for |
| 263ea0 | 20 6f 74 68 65 72 20 4c 69 73 70 2d 6c 69 6b 65 20 6c 61 6e 67 75 61 67 65 73 2e 22 29 0a 28 6d | .other.Lisp-like.languages.").(m |
| 263ec0 | 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f | ake-variable-buffer-local.'macro |
| 263ee0 | 73 74 65 70 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 | step-sexp-at-point-function)..(d |
| 263f00 | 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 61 74 2d 70 | efvar.macrostep-environment-at-p |
| 263f20 | 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 23 27 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 | oint-function...#'macrostep-envi |
| 263f40 | 72 6f 6e 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 | ronment-at-point..."Function.to. |
| 263f60 | 72 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 61 6c 20 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e | return.the.local.macro-expansion |
| 263f80 | 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 49 74 20 77 69 6c 6c 20 | .environment.at.point...It.will. |
| 263fa0 | 62 65 20 63 61 6c 6c 65 64 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2c 20 61 6e 64 | be.called.with.no.arguments,.and |
| 263fc0 | 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 20 76 61 6c 75 65 0a 73 75 69 74 61 62 6c 65 20 | .should.return.a.value.suitable. |
| 263fe0 | 66 6f 72 20 70 61 73 73 69 6e 67 20 61 73 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 | for.passing.as.the.second.argume |
| 264000 | 6e 74 20 74 6f 0a 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 31 2d 66 75 6e 63 74 69 | nt.to.`macrostep-expand-1-functi |
| 264020 | 6f 6e 27 2e 0a 0a 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 2c 20 60 6d 61 63 72 6f 73 | on'...The.default.value,.`macros |
| 264040 | 74 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 27 2c 20 69 73 20 73 70 | tep-environment-at-point',.is.sp |
| 264060 | 65 63 69 66 69 63 0a 74 6f 20 45 6d 61 63 73 20 4c 69 73 70 2e 20 20 46 6f 72 20 6c 61 6e 67 75 | ecific.to.Emacs.Lisp...For.langu |
| 264080 | 61 67 65 73 20 77 68 69 63 68 20 64 6f 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 20 6c 6f 63 61 | ages.which.do.not.implement.loca |
| 2640a0 | 6c 0a 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 2c 20 | l.macro-expansion.environments,. |
| 2640c0 | 74 68 69 73 20 73 68 6f 75 6c 64 20 62 65 20 73 65 74 20 74 6f 20 60 69 67 6e 6f 72 65 27 0a 6f | this.should.be.set.to.`ignore'.o |
| 2640e0 | 72 20 60 28 6c 61 6d 62 64 61 20 28 29 20 6e 69 6c 29 27 2e 22 29 0a 28 6d 61 6b 65 2d 76 61 72 | r.`(lambda.().nil)'.").(make-var |
| 264100 | 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f 73 74 65 70 2d 65 6e | iable-buffer-local.'macrostep-en |
| 264120 | 76 69 72 6f 6e 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 | vironment-at-point-function)..(d |
| 264140 | 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 31 2d 66 75 6e 63 74 69 6f | efvar.macrostep-expand-1-functio |
| 264160 | 6e 0a 20 20 23 27 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 31 0a 20 20 22 46 75 6e 63 | n...#'macrostep-expand-1..."Func |
| 264180 | 74 69 6f 6e 20 74 6f 20 70 65 72 66 6f 72 6d 20 6f 6e 65 20 73 74 65 70 20 6f 66 20 6d 61 63 72 | tion.to.perform.one.step.of.macr |
| 2641a0 | 6f 2d 65 78 70 61 6e 73 69 6f 6e 2e 0a 0a 49 74 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 | o-expansion...It.will.be.called. |
| 2641c0 | 77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 2c 20 46 4f 52 4d 20 61 6e 64 20 45 4e 56 | with.two.arguments,.FORM.and.ENV |
| 2641e0 | 49 52 4f 4e 4d 45 4e 54 2c 20 74 68 65 0a 72 65 74 75 72 6e 20 76 61 6c 75 65 73 20 6f 66 20 60 | IRONMENT,.the.return.values.of.` |
| 264200 | 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e | macrostep-sexp-at-point-function |
| 264220 | 27 20 61 6e 64 0a 60 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 61 74 2d | '.and.`macrostep-environment-at- |
| 264240 | 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 20 20 49 | point-function'.respectively...I |
| 264260 | 74 0a 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 65 78 | t.should.return.the.result.of.ex |
| 264280 | 70 61 6e 64 69 6e 67 20 46 4f 52 4d 20 62 79 20 6f 6e 65 20 73 74 65 70 20 61 73 20 61 20 76 61 | panding.FORM.by.one.step.as.a.va |
| 2642a0 | 6c 75 65 0a 77 68 69 63 68 20 69 73 20 73 75 69 74 61 62 6c 65 20 66 6f 72 20 70 61 73 73 69 6e | lue.which.is.suitable.for.passin |
| 2642c0 | 67 20 61 73 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 74 6f 0a 60 6d 61 63 72 6f 73 74 65 70 2d | g.as.the.argument.to.`macrostep- |
| 2642e0 | 70 72 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 2e 0a 0a 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 | print-function'...The.default.va |
| 264300 | 6c 75 65 2c 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 31 27 2c 20 69 73 20 73 70 | lue,.`macrostep-expand-1',.is.sp |
| 264320 | 65 63 69 66 69 63 20 74 6f 20 45 6d 61 63 73 20 4c 69 73 70 2e 22 29 0a 28 6d 61 6b 65 2d 76 61 | ecific.to.Emacs.Lisp.").(make-va |
| 264340 | 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f 73 74 65 70 2d 65 | riable-buffer-local.'macrostep-e |
| 264360 | 78 70 61 6e 64 2d 31 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 63 72 6f | xpand-1-function)..(defvar.macro |
| 264380 | 73 74 65 70 2d 70 72 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 23 27 6d 61 63 72 6f 73 74 65 | step-print-function...#'macroste |
| 2643a0 | 70 2d 70 70 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 70 72 65 74 74 79 2d 70 72 69 6e 74 | p-pp..."Function.to.pretty-print |
| 2643c0 | 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 73 2e 0a 0a 49 74 20 77 69 6c 6c 20 62 65 20 63 | .macro.expansions...It.will.be.c |
| 2643e0 | 61 6c 6c 65 64 20 77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 2c 20 46 4f 52 4d 20 61 | alled.with.two.arguments,.FORM.a |
| 264400 | 6e 64 20 45 4e 56 49 52 4f 4e 4d 45 4e 54 2c 20 74 68 65 0a 72 65 74 75 72 6e 20 76 61 6c 75 65 | nd.ENVIRONMENT,.the.return.value |
| 264420 | 73 20 6f 66 20 60 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 | s.of.`macrostep-sexp-at-point-fu |
| 264440 | 6e 63 74 69 6f 6e 27 20 61 6e 64 0a 60 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 | nction'.and.`macrostep-environme |
| 264460 | 6e 74 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 20 72 65 73 70 65 63 74 69 76 65 | nt-at-point-function'.respective |
| 264480 | 6c 79 2e 20 20 49 74 0a 73 68 6f 75 6c 64 20 69 6e 73 65 72 74 20 61 20 70 72 65 74 74 79 2d 70 | ly...It.should.insert.a.pretty-p |
| 2644a0 | 72 69 6e 74 65 64 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 20 69 | rinted.representation.at.point.i |
| 2644c0 | 6e 20 74 68 65 0a 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2c 20 6c 65 61 76 69 6e 67 20 70 6f | n.the.current.buffer,.leaving.po |
| 2644e0 | 69 6e 74 20 6a 75 73 74 20 61 66 74 65 72 20 74 68 65 20 69 6e 73 65 72 74 65 64 0a 72 65 70 72 | int.just.after.the.inserted.repr |
| 264500 | 65 73 65 6e 74 61 74 69 6f 6e 2c 20 77 69 74 68 6f 75 74 20 61 6c 74 65 72 69 6e 67 20 61 6e 79 | esentation,.without.altering.any |
| 264520 | 20 6f 74 68 65 72 20 74 65 78 74 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 0a 62 75 66 66 65 | .other.text.in.the.current.buffe |
| 264540 | 72 2e 0a 0a 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 2c 20 60 6d 61 63 72 6f 73 74 65 | r...The.default.value,.`macroste |
| 264560 | 70 2d 70 70 27 2c 20 69 73 20 73 70 65 63 69 66 69 63 20 74 6f 20 45 6d 61 63 73 20 4c 69 73 70 | p-pp',.is.specific.to.Emacs.Lisp |
| 264580 | 2e 22 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 | .").(make-variable-buffer-local. |
| 2645a0 | 27 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 66 | 'macrostep-print-function)..(def |
| 2645c0 | 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 70 2d 66 75 6e 63 74 | var.macrostep-macro-form-p-funct |
| 2645e0 | 69 6f 6e 0a 20 20 23 27 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 70 0a 20 | ion...#'macrostep-macro-form-p.. |
| 264600 | 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 63 68 65 63 6b 20 77 68 65 74 68 65 72 20 61 20 66 6f | ."Function.to.check.whether.a.fo |
| 264620 | 72 6d 20 69 73 20 61 20 6d 61 63 72 6f 20 63 61 6c 6c 2e 0a 0a 49 74 20 77 69 6c 6c 20 62 65 20 | rm.is.a.macro.call...It.will.be. |
| 264640 | 63 61 6c 6c 65 64 20 77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 2c 20 46 4f 52 4d 20 | called.with.two.arguments,.FORM. |
| 264660 | 61 6e 64 20 45 4e 56 49 52 4f 4e 4d 45 4e 54 20 2d 2d 20 74 68 65 0a 72 65 74 75 72 6e 20 76 61 | and.ENVIRONMENT.--.the.return.va |
| 264680 | 6c 75 65 73 20 6f 66 20 60 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 | lues.of.`macrostep-sexp-at-point |
| 2646a0 | 2d 66 75 6e 63 74 69 6f 6e 27 20 61 6e 64 0a 60 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f | -function'.and.`macrostep-enviro |
| 2646c0 | 6e 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 20 72 65 73 70 65 63 74 | nment-at-point-function'.respect |
| 2646e0 | 69 76 65 6c 79 20 2d 2d 20 61 6e 64 0a 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 6e | ively.--.and.should.return.non-n |
| 264700 | 69 6c 20 69 66 20 46 4f 52 4d 20 77 6f 75 6c 64 20 75 6e 64 65 72 67 6f 20 6d 61 63 72 6f 2d 65 | il.if.FORM.would.undergo.macro-e |
| 264720 | 78 70 61 6e 73 69 6f 6e 20 69 6e 0a 45 4e 56 49 52 4f 4e 4d 45 4e 54 2e 0a 0a 54 68 69 73 20 69 | xpansion.in.ENVIRONMENT...This.i |
| 264740 | 73 20 63 61 6c 6c 65 64 20 6f 6e 6c 79 20 66 72 6f 6d 20 60 6d 61 63 72 6f 73 74 65 70 2d 73 65 | s.called.only.from.`macrostep-se |
| 264760 | 78 70 2d 62 6f 75 6e 64 73 27 2c 20 73 6f 20 69 74 20 6e 65 65 64 20 6e 6f 74 0a 62 65 20 70 72 | xp-bounds',.so.it.need.not.be.pr |
| 264780 | 6f 76 69 64 65 64 20 69 66 20 61 20 64 69 66 66 65 72 65 6e 74 20 76 61 6c 75 65 20 69 73 20 75 | ovided.if.a.different.value.is.u |
| 2647a0 | 73 65 64 20 66 6f 72 0a 60 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 62 6f 75 6e 64 73 2d 66 | sed.for.`macrostep-sexp-bounds-f |
| 2647c0 | 75 6e 63 74 69 6f 6e 27 2e 0a 0a 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 2c 20 60 6d | unction'...The.default.value,.`m |
| 2647e0 | 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 70 27 2c 20 69 73 20 73 70 65 63 69 | acrostep-macro-form-p',.is.speci |
| 264800 | 66 69 63 20 74 6f 20 45 6d 61 63 73 20 4c 69 73 70 2e 22 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 | fic.to.Emacs.Lisp.").(make-varia |
| 264820 | 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 | ble-buffer-local.'macrostep-macr |
| 264840 | 6f 2d 66 6f 72 6d 2d 70 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 0c 0a 3b 3b 3b 20 44 65 66 69 6e 65 | o-form-p-function)....;;;.Define |
| 264860 | 20 6b 65 79 6d 61 70 20 61 6e 64 20 6d 69 6e 6f 72 20 6d 6f 64 65 0a 28 64 65 66 76 61 72 20 6d | .keymap.and.minor.mode.(defvar.m |
| 264880 | 61 63 72 6f 73 74 65 70 2d 6b 65 79 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 | acrostep-keymap...(let.((map.(ma |
| 2648a0 | 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d | ke-sparse-keymap))).....(define- |
| 2648c0 | 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 52 45 54 22 29 20 27 6d 61 63 72 6f 73 74 65 70 2d 65 | key.map.(kbd."RET").'macrostep-e |
| 2648e0 | 78 70 61 6e 64 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 3d 22 20 27 | xpand).....(define-key.map."=".' |
| 264900 | 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 | macrostep-expand).....(define-ke |
| 264920 | 79 20 6d 61 70 20 22 65 22 20 27 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 29 0a 0a 20 20 | y.map."e".'macrostep-expand).... |
| 264940 | 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 44 45 4c 22 29 20 27 6d | ..(define-key.map.(kbd."DEL").'m |
| 264960 | 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 61 70 73 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b | acrostep-collapse).....(define-k |
| 264980 | 65 79 20 6d 61 70 20 22 75 22 20 27 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 61 70 73 65 29 0a | ey.map."u".'macrostep-collapse). |
| 2649a0 | 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 63 22 20 27 6d 61 63 72 6f 73 74 | ....(define-key.map."c".'macrost |
| 2649c0 | 65 70 2d 63 6f 6c 6c 61 70 73 65 29 0a 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 | ep-collapse)......(define-key.ma |
| 2649e0 | 70 20 28 6b 62 64 20 22 54 41 42 22 29 20 27 6d 61 63 72 6f 73 74 65 70 2d 6e 65 78 74 2d 6d 61 | p.(kbd."TAB").'macrostep-next-ma |
| 264a00 | 63 72 6f 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 6e 22 20 27 6d 61 | cro).....(define-key.map."n".'ma |
| 264a20 | 63 72 6f 73 74 65 70 2d 6e 65 78 74 2d 6d 61 63 72 6f 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d | crostep-next-macro).....(define- |
| 264a40 | 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 4d 2d 54 41 42 22 29 20 27 6d 61 63 72 6f 73 74 65 70 | key.map.(kbd."M-TAB").'macrostep |
| 264a60 | 2d 70 72 65 76 2d 6d 61 63 72 6f 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 | -prev-macro).....(define-key.map |
| 264a80 | 20 22 70 22 20 27 6d 61 63 72 6f 73 74 65 70 2d 70 72 65 76 2d 6d 61 63 72 6f 29 0a 0a 20 20 20 | ."p".'macrostep-prev-macro)..... |
| 264aa0 | 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 71 22 20 27 6d 61 63 72 6f 73 74 65 70 2d | .(define-key.map."q".'macrostep- |
| 264ac0 | 63 6f 6c 6c 61 70 73 65 2d 61 6c 6c 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 | collapse-all).....(define-key.ma |
| 264ae0 | 70 20 28 6b 62 64 20 22 43 2d 63 20 43 2d 63 22 29 20 27 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c | p.(kbd."C-c.C-c").'macrostep-col |
| 264b00 | 6c 61 70 73 65 2d 61 6c 6c 29 0a 20 20 20 20 6d 61 70 29 0a 20 20 22 4b 65 79 6d 61 70 20 66 6f | lapse-all).....map)..."Keymap.fo |
| 264b20 | 72 20 60 6d 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 27 2e 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 | r.`macrostep-mode'.")..;;;###aut |
| 264b40 | 6f 6c 6f 61 64 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 6d 61 63 72 6f 73 74 | oload.(define-minor-mode.macrost |
| 264b60 | 65 70 2d 6d 6f 64 65 0a 20 20 22 4d 69 6e 6f 72 20 6d 6f 64 65 20 66 6f 72 20 69 6e 6c 69 6e 65 | ep-mode..."Minor.mode.for.inline |
| 264b80 | 20 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 6d 61 63 72 6f 73 20 69 6e 20 45 6d 61 63 73 20 4c 69 | .expansion.of.macros.in.Emacs.Li |
| 264ba0 | 73 70 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 73 2e 0a 0a 5c 5c 3c 6d 61 63 72 6f 73 74 65 70 | sp.source.buffers...\\<macrostep |
| 264bc0 | 2d 6b 65 79 6d 61 70 3e 50 72 6f 67 72 65 73 73 69 76 65 6c 79 20 65 78 70 61 6e 64 20 6d 61 63 | -keymap>Progressively.expand.mac |
| 264be0 | 72 6f 20 66 6f 72 6d 73 20 77 69 74 68 20 5c 5c 5b 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e | ro.forms.with.\\[macrostep-expan |
| 264c00 | 64 5d 2c 20 63 6f 6c 6c 61 70 73 65 20 74 68 65 6d 20 77 69 74 68 20 5c 5c 5b 6d 61 63 72 6f 73 | d],.collapse.them.with.\\[macros |
| 264c20 | 74 65 70 2d 63 6f 6c 6c 61 70 73 65 5d 2c 0a 61 6e 64 20 6d 6f 76 65 20 62 61 63 6b 20 61 6e 64 | tep-collapse],.and.move.back.and |
| 264c40 | 20 66 6f 72 74 68 20 77 69 74 68 20 5c 5c 5b 6d 61 63 72 6f 73 74 65 70 2d 6e 65 78 74 2d 6d 61 | .forth.with.\\[macrostep-next-ma |
| 264c60 | 63 72 6f 5d 20 61 6e 64 20 5c 5c 5b 6d 61 63 72 6f 73 74 65 70 2d 70 72 65 76 2d 6d 61 63 72 6f | cro].and.\\[macrostep-prev-macro |
| 264c80 | 5d 2e 0a 55 73 65 20 5c 5c 5b 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 61 70 73 65 2d 61 6c 6c | ]..Use.\\[macrostep-collapse-all |
| 264ca0 | 5d 20 6f 72 20 63 6f 6c 6c 61 70 73 65 20 61 6c 6c 20 76 69 73 69 62 6c 65 20 65 78 70 61 6e 73 | ].or.collapse.all.visible.expans |
| 264cc0 | 69 6f 6e 73 20 74 6f 0a 71 75 69 74 20 61 6e 64 20 72 65 74 75 72 6e 20 74 6f 20 6e 6f 72 6d 61 | ions.to.quit.and.return.to.norma |
| 264ce0 | 6c 20 65 64 69 74 69 6e 67 2e 0a 0a 5c 5c 7b 6d 61 63 72 6f 73 74 65 70 2d 6b 65 79 6d 61 70 7d | l.editing...\\{macrostep-keymap} |
| 264d00 | 22 0a 20 20 3a 69 6e 69 74 2d 76 61 6c 75 65 20 6e 69 6c 0a 20 20 3a 6c 69 67 68 74 65 72 20 22 | "...:init-value.nil...:lighter." |
| 264d20 | 20 4d 61 63 72 6f 2d 53 74 65 70 70 65 72 22 0a 20 20 3a 6b 65 79 6d 61 70 20 6d 61 63 72 6f 73 | .Macro-Stepper"...:keymap.macros |
| 264d40 | 74 65 70 2d 6b 65 79 6d 61 70 0a 20 20 3a 67 72 6f 75 70 20 6d 61 63 72 6f 73 74 65 70 0a 20 20 | tep-keymap...:group.macrostep... |
| 264d60 | 28 69 66 20 6d 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 0a 20 20 20 20 20 20 28 70 72 6f 67 6e 0a | (if.macrostep-mode.......(progn. |
| 264d80 | 20 20 20 20 20 20 20 20 3b 3b 20 44 69 73 61 62 6c 65 20 72 65 63 6f 72 64 69 6e 67 20 6f 66 20 | ........;;.Disable.recording.of. |
| 264da0 | 75 6e 64 6f 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d | undo.information.........(setq.m |
| 264dc0 | 61 63 72 6f 73 74 65 70 2d 73 61 76 65 64 2d 75 6e 64 6f 2d 6c 69 73 74 20 62 75 66 66 65 72 2d | acrostep-saved-undo-list.buffer- |
| 264de0 | 75 6e 64 6f 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 75 | undo-list...............buffer-u |
| 264e00 | 6e 64 6f 2d 6c 69 73 74 20 74 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 52 65 6d 65 6d 62 65 72 20 | ndo-list.t).........;;.Remember. |
| 264e20 | 77 68 65 74 68 65 72 20 62 75 66 66 65 72 20 77 61 73 20 72 65 61 64 2d 6f 6e 6c 79 0a 20 20 20 | whether.buffer.was.read-only.... |
| 264e40 | 20 20 20 20 20 28 73 65 74 71 20 6d 61 63 72 6f 73 74 65 70 2d 73 61 76 65 64 2d 72 65 61 64 2d | .....(setq.macrostep-saved-read- |
| 264e60 | 6f 6e 6c 79 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 0a 20 20 20 20 20 20 20 20 20 20 | only.buffer-read-only........... |
| 264e80 | 20 20 20 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 | ....buffer-read-only.t)......... |
| 264ea0 | 3b 3b 20 53 65 74 20 75 70 20 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 20 68 6f 6f 6b 20 74 6f 20 62 | ;;.Set.up.post-command.hook.to.b |
| 264ec0 | 61 69 6c 20 6f 75 74 20 6f 6e 20 6c 65 61 76 69 6e 67 20 72 65 61 64 2d 6f 6e 6c 79 0a 20 20 20 | ail.out.on.leaving.read-only.... |
| 264ee0 | 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f | .....(add-hook.'post-command-hoo |
| 264f00 | 6b 20 27 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 6e 69 6c 20 74 29 | k.'macrostep-command-hook.nil.t) |
| 264f20 | 0a 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 28 73 75 62 73 | .........(message..........(subs |
| 264f40 | 74 69 74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 0a 20 20 20 20 20 20 20 20 20 20 22 5c | titute-command-keys..........."\ |
| 264f60 | 5c 3c 6d 61 63 72 6f 73 74 65 70 2d 6b 65 79 6d 61 70 3e 45 6e 74 65 72 69 6e 67 20 6d 61 63 72 | \<macrostep-keymap>Entering.macr |
| 264f80 | 6f 20 73 74 65 70 70 65 72 20 6d 6f 64 65 2e 20 55 73 65 20 5c 5c 5b 6d 61 63 72 6f 73 74 65 70 | o.stepper.mode..Use.\\[macrostep |
| 264fa0 | 2d 65 78 70 61 6e 64 5d 20 74 6f 20 65 78 70 61 6e 64 2c 20 5c 5c 5b 6d 61 63 72 6f 73 74 65 70 | -expand].to.expand,.\\[macrostep |
| 264fc0 | 2d 63 6f 6c 6c 61 70 73 65 5d 20 74 6f 20 63 6f 6c 6c 61 70 73 65 2c 20 5c 5c 5b 6d 61 63 72 6f | -collapse].to.collapse,.\\[macro |
| 264fe0 | 73 74 65 70 2d 63 6f 6c 6c 61 70 73 65 2d 61 6c 6c 5d 20 74 6f 20 65 78 69 74 2e 22 29 29 29 0a | step-collapse-all].to.exit."))). |
| 265000 | 0a 20 20 20 20 3b 3b 20 45 78 69 74 69 6e 67 20 6d 6f 64 65 0a 20 20 20 20 28 69 66 20 6d 61 63 | .....;;.Exiting.mode.....(if.mac |
| 265020 | 72 6f 73 74 65 70 2d 65 78 70 61 6e 73 69 6f 6e 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 | rostep-expansion-buffer......... |
| 265040 | 3b 3b 20 4b 69 6c 6c 20 64 65 64 69 63 61 74 65 64 20 65 78 70 61 6e 73 69 6f 6e 20 62 75 66 66 | ;;.Kill.dedicated.expansion.buff |
| 265060 | 65 72 73 0a 20 20 20 20 20 20 20 20 28 71 75 69 74 2d 77 69 6e 64 6f 77 20 74 29 0a 20 20 20 20 | ers.........(quit-window.t)..... |
| 265080 | 20 20 3b 3b 20 43 6f 6c 6c 61 70 73 65 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e 67 20 6f 76 65 72 | ..;;.Collapse.any.remaining.over |
| 2650a0 | 6c 61 79 73 0a 20 20 20 20 20 20 28 77 68 65 6e 20 6d 61 63 72 6f 73 74 65 70 2d 6f 76 65 72 6c | lays.......(when.macrostep-overl |
| 2650c0 | 61 79 73 20 28 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 61 70 73 65 2d 61 6c 6c 29 29 0a 20 20 | ays.(macrostep-collapse-all))... |
| 2650e0 | 20 20 20 20 3b 3b 20 52 65 73 74 6f 72 65 20 75 6e 64 6f 20 69 6e 66 6f 20 26 20 72 65 61 64 2d | ....;;.Restore.undo.info.&.read- |
| 265100 | 6f 6e 6c 79 20 73 74 61 74 65 0a 20 20 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 75 6e | only.state.......(setq.buffer-un |
| 265120 | 64 6f 2d 6c 69 73 74 20 6d 61 63 72 6f 73 74 65 70 2d 73 61 76 65 64 2d 75 6e 64 6f 2d 6c 69 73 | do-list.macrostep-saved-undo-lis |
| 265140 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6d | t.............buffer-read-only.m |
| 265160 | 61 63 72 6f 73 74 65 70 2d 73 61 76 65 64 2d 72 65 61 64 2d 6f 6e 6c 79 0a 20 20 20 20 20 20 20 | acrostep-saved-read-only........ |
| 265180 | 20 20 20 20 20 6d 61 63 72 6f 73 74 65 70 2d 73 61 76 65 64 2d 75 6e 64 6f 2d 6c 69 73 74 20 6e | .....macrostep-saved-undo-list.n |
| 2651a0 | 69 6c 29 0a 20 20 20 20 20 20 3b 3b 20 52 65 6d 6f 76 65 20 6f 75 72 20 70 6f 73 74 2d 63 6f 6d | il).......;;.Remove.our.post-com |
| 2651c0 | 6d 61 6e 64 20 68 6f 6f 6b 0a 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 70 6f | mand.hook.......(remove-hook.'po |
| 2651e0 | 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 27 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6d 6d 61 | st-command-hook.'macrostep-comma |
| 265200 | 6e 64 2d 68 6f 6f 6b 20 74 29 29 29 29 0a 0a 3b 3b 20 50 6f 73 74 2d 63 6f 6d 6d 61 6e 64 20 68 | nd-hook.t))))..;;.Post-command.h |
| 265220 | 6f 6f 6b 3a 20 62 61 69 6c 20 6f 75 74 20 6f 66 20 6d 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 20 | ook:.bail.out.of.macrostep-mode. |
| 265240 | 69 66 20 74 68 65 20 75 73 65 72 20 74 79 70 65 73 20 43 2d 78 0a 3b 3b 20 43 2d 71 20 74 6f 20 | if.the.user.types.C-x.;;.C-q.to. |
| 265260 | 6d 61 6b 65 20 74 68 65 20 62 75 66 66 65 72 20 77 72 69 74 61 62 6c 65 20 61 67 61 69 6e 2e 0a | make.the.buffer.writable.again.. |
| 265280 | 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 28 29 | (defun.macrostep-command-hook.() |
| 2652a0 | 0a 20 20 28 69 66 20 28 6e 6f 74 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 29 0a 20 20 | ...(if.(not.buffer-read-only)... |
| 2652c0 | 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 20 30 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 | ....(macrostep-mode.0)))....;;;. |
| 2652e0 | 49 6e 74 65 72 61 63 74 69 76 65 20 66 75 6e 63 74 69 6f 6e 73 0a 3b 3b 3b 23 23 23 61 75 74 6f | Interactive.functions.;;;###auto |
| 265300 | 6c 6f 61 64 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 20 28 26 6f | load.(defun.macrostep-expand.(&o |
| 265320 | 70 74 69 6f 6e 61 6c 20 74 6f 67 67 6c 65 2d 73 65 70 61 72 61 74 65 2d 62 75 66 66 65 72 29 0a | ptional.toggle-separate-buffer). |
| 265340 | 20 20 22 45 78 70 61 6e 64 20 74 68 65 20 6d 61 63 72 6f 20 66 6f 72 6d 20 66 6f 6c 6c 6f 77 69 | .."Expand.the.macro.form.followi |
| 265360 | 6e 67 20 70 6f 69 6e 74 20 62 79 20 6f 6e 65 20 73 74 65 70 2e 0a 0a 45 6e 74 65 72 73 20 60 6d | ng.point.by.one.step...Enters.`m |
| 265380 | 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 27 20 69 66 20 69 74 20 69 73 20 6e 6f 74 20 61 6c 72 65 | acrostep-mode'.if.it.is.not.alre |
| 2653a0 | 61 64 79 20 61 63 74 69 76 65 2c 20 6d 61 6b 69 6e 67 20 74 68 65 0a 62 75 66 66 65 72 20 74 65 | ady.active,.making.the.buffer.te |
| 2653c0 | 6d 70 6f 72 61 72 69 6c 79 20 72 65 61 64 2d 6f 6e 6c 79 2e 20 49 66 20 6d 61 63 72 6f 73 74 65 | mporarily.read-only..If.macroste |
| 2653e0 | 70 2d 6d 6f 64 65 20 69 73 20 61 63 74 69 76 65 20 61 6e 64 20 74 68 65 0a 66 6f 72 6d 20 66 6f | p-mode.is.active.and.the.form.fo |
| 265400 | 6c 6c 6f 77 69 6e 67 20 70 6f 69 6e 74 20 69 73 20 6e 6f 74 20 61 20 6d 61 63 72 6f 20 66 6f 72 | llowing.point.is.not.a.macro.for |
| 265420 | 6d 2c 20 73 65 61 72 63 68 20 66 6f 72 77 61 72 64 20 69 6e 20 74 68 65 0a 62 75 66 66 65 72 20 | m,.search.forward.in.the.buffer. |
| 265440 | 61 6e 64 20 65 78 70 61 6e 64 20 74 68 65 20 6e 65 78 74 20 6d 61 63 72 6f 20 66 6f 72 6d 20 66 | and.expand.the.next.macro.form.f |
| 265460 | 6f 75 6e 64 2c 20 69 66 20 61 6e 79 2e 0a 0a 57 69 74 68 20 61 20 70 72 65 66 69 78 20 61 72 67 | ound,.if.any...With.a.prefix.arg |
| 265480 | 75 6d 65 6e 74 2c 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 20 69 73 20 64 69 73 70 6c 61 79 65 | ument,.the.expansion.is.displaye |
| 2654a0 | 64 20 69 6e 20 61 20 73 65 70 61 72 61 74 65 0a 62 75 66 66 65 72 20 69 6e 73 74 65 61 64 20 6f | d.in.a.separate.buffer.instead.o |
| 2654c0 | 66 20 69 6e 6c 69 6e 65 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 20 | f.inline.in.the.current.buffer.. |
| 2654e0 | 20 53 65 74 74 69 6e 67 0a 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 69 6e 2d 73 65 | .Setting.`macrostep-expand-in-se |
| 265500 | 70 61 72 61 74 65 2d 62 75 66 66 65 72 27 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 20 73 77 61 70 73 20 | parate-buffer'.to.non-nil.swaps. |
| 265520 | 74 68 65 73 65 20 74 77 6f 0a 62 65 68 61 76 69 6f 72 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | these.two.behaviors."...(interac |
| 265540 | 74 69 76 65 20 22 50 22 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 | tive."P")...(cl-destructuring-bi |
| 265560 | 6e 64 20 28 73 74 61 72 74 20 2e 20 65 6e 64 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 | nd.(start...end).......(funcall. |
| 265580 | 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 62 6f 75 6e 64 73 2d 66 75 6e 63 74 69 6f 6e 29 0a | macrostep-sexp-bounds-function). |
| 2655a0 | 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 20 28 6c 65 74 2a 20 | ....(goto-char.start).....(let*. |
| 2655c0 | 28 28 73 65 78 70 20 28 66 75 6e 63 61 6c 6c 20 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 61 | ((sexp.(funcall.macrostep-sexp-a |
| 2655e0 | 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 29 29 0a 20 20 20 | t-point-function.start.end)).... |
| 265600 | 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 63 6f 70 79 2d 6d 61 72 6b 65 72 20 65 6e 64 29 29 0a | ........(end.(copy-marker.end)). |
| 265620 | 20 20 20 20 20 20 20 20 20 20 20 28 74 65 78 74 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 | ...........(text.(buffer-substri |
| 265640 | 6e 67 20 73 74 61 72 74 20 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 76 20 28 | ng.start.end))............(env.( |
| 265660 | 66 75 6e 63 61 6c 6c 20 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 61 74 | funcall.macrostep-environment-at |
| 265680 | 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 78 | -point-function))............(ex |
| 2656a0 | 70 61 6e 73 69 6f 6e 20 28 66 75 6e 63 61 6c 6c 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e | pansion.(funcall.macrostep-expan |
| 2656c0 | 64 2d 31 2d 66 75 6e 63 74 69 6f 6e 20 73 65 78 70 20 65 6e 76 29 29 29 0a 0a 20 20 20 20 20 20 | d-1-function.sexp.env)))........ |
| 2656e0 | 3b 3b 20 43 72 65 61 74 65 20 61 20 64 65 64 69 63 61 74 65 64 20 6d 61 63 72 6f 2d 65 78 70 61 | ;;.Create.a.dedicated.macro-expa |
| 265700 | 6e 73 69 6f 6e 20 62 75 66 66 65 72 20 61 6e 64 20 63 6f 70 79 20 74 68 65 20 74 65 78 74 20 74 | nsion.buffer.and.copy.the.text.t |
| 265720 | 6f 0a 20 20 20 20 20 20 3b 3b 20 62 65 20 65 78 70 61 6e 64 65 64 20 69 6e 74 6f 20 69 74 2c 20 | o.......;;.be.expanded.into.it,. |
| 265740 | 69 66 20 72 65 71 75 69 72 65 64 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 65 70 61 72 61 74 | if.required.......(let.((separat |
| 265760 | 65 2d 62 75 66 66 65 72 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 74 6f 67 67 | e-buffer-p..............(if.togg |
| 265780 | 6c 65 2d 73 65 70 61 72 61 74 65 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-separate-buffer.............. |
| 2657a0 | 20 20 20 20 28 6e 6f 74 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 69 6e 2d 73 65 70 | ....(not.macrostep-expand-in-sep |
| 2657c0 | 61 72 61 74 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 63 | arate-buffer)................mac |
| 2657e0 | 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 69 6e 2d 73 65 70 61 72 61 74 65 2d 62 75 66 66 65 72 | rostep-expand-in-separate-buffer |
| 265800 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 73 65 70 61 72 61 74 65 2d | ))).........(when.(and.separate- |
| 265820 | 62 75 66 66 65 72 2d 70 20 28 6e 6f 74 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 73 69 6f | buffer-p.(not.macrostep-expansio |
| 265840 | 6e 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 6f 64 65 | n-buffer))...........(let.((mode |
| 265860 | 20 6d 61 6a 6f 72 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 | .major-mode).................(bu |
| 265880 | 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 62 75 66 66 65 | ffer..................(get-buffe |
| 2658a0 | 72 2d 63 72 65 61 74 65 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 2d 6e 61 | r-create.(generate-new-buffer-na |
| 2658c0 | 6d 65 20 22 2a 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 2a 22 29 29 29 29 0a 20 20 20 20 20 | me."*macro.expansion*"))))...... |
| 2658e0 | 20 20 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 | .......(set-buffer.buffer)...... |
| 265900 | 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 | .......(funcall.mode)........... |
| 265920 | 20 20 28 73 65 74 71 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 73 69 6f 6e 2d 62 75 66 66 | ..(setq.macrostep-expansion-buff |
| 265940 | 65 72 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 61 63 72 6f 73 74 65 | er.t).............(setq.macroste |
| 265960 | 70 2d 6f 75 74 65 72 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 65 6e 76 29 0a 20 20 20 20 20 20 20 | p-outer-environment.env)........ |
| 265980 | 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | .....(save-excursion............ |
| 2659a0 | 20 20 20 28 73 65 74 71 20 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 | ...(setq.start.(point))......... |
| 2659c0 | 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(insert.text)............. |
| 2659e0 | 20 20 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 29 0a 20 20 20 | ..(setq.end.(point-marker))).... |
| 265a00 | 20 20 20 20 20 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 29 | .........(pop-to-buffer.buffer)) |
| 265a20 | 29 29 0a 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 6d 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 | ))........(unless.macrostep-mode |
| 265a40 | 20 28 6d 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 20 74 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 | .(macrostep-mode.t)).......(let. |
| 265a60 | 28 28 65 78 69 73 74 69 6e 67 2d 6f 76 65 72 6c 61 79 20 28 6d 61 63 72 6f 73 74 65 70 2d 6f 76 | ((existing-overlay.(macrostep-ov |
| 265a80 | 65 72 6c 61 79 2d 61 74 2d 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 | erlay-at-point)).............(ma |
| 265aa0 | 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 64 65 70 74 68 20 6d 61 63 72 6f 73 74 65 70 2d 67 | crostep-gensym-depth.macrostep-g |
| 265ac0 | 65 6e 73 79 6d 2d 64 65 70 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 | ensym-depth).............(macros |
| 265ae0 | 74 65 70 2d 67 65 6e 73 79 6d 73 2d 74 68 69 73 2d 6c 65 76 65 6c 20 6e 69 6c 29 0a 20 20 20 20 | tep-gensyms-this-level.nil)..... |
| 265b00 | 20 20 20 20 20 20 20 20 70 72 69 6f 72 69 74 79 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 65 78 | ........priority).........(if.ex |
| 265b20 | 69 73 74 69 6e 67 2d 6f 76 65 72 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 | isting-overlay.............(prog |
| 265b40 | 6e 20 20 20 20 20 20 20 20 3b 20 45 78 70 61 6e 64 69 6e 67 20 70 61 72 74 20 6f 66 20 61 20 70 | n........;.Expanding.part.of.a.p |
| 265b60 | 72 65 76 69 6f 75 73 20 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 | revious.macro-expansion......... |
| 265b80 | 20 20 20 20 20 20 28 73 65 74 71 20 70 72 69 6f 72 69 74 79 20 28 31 2b 20 28 6f 76 65 72 6c 61 | ......(setq.priority.(1+.(overla |
| 265ba0 | 79 2d 67 65 74 20 65 78 69 73 74 69 6e 67 2d 6f 76 65 72 6c 61 79 20 27 70 72 69 6f 72 69 74 79 | y-get.existing-overlay.'priority |
| 265bc0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 61 63 72 6f 73 74 65 | )))...............(setq.macroste |
| 265be0 | 70 2d 67 65 6e 73 79 6d 2d 64 65 70 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p-gensym-depth.................. |
| 265c00 | 20 20 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 65 78 69 73 74 69 6e 67 2d 6f 76 65 72 6c 61 79 | ...(overlay-get.existing-overlay |
| 265c20 | 20 27 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 64 65 70 74 68 29 29 29 0a 20 20 20 20 | .'macrostep-gensym-depth)))..... |
| 265c40 | 20 20 20 20 20 20 3b 3b 20 45 78 70 61 6e 64 69 6e 67 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 | ......;;.Expanding.source.buffer |
| 265c60 | 20 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 72 69 6f 72 69 74 79 20 31 | .text...........(setq.priority.1 |
| 265c80 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 | )...........(setq.macrostep-gens |
| 265ca0 | 79 6d 2d 64 65 70 74 68 20 2d 31 29 29 0a 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 69 6c | ym-depth.-1))..........(with-sil |
| 265cc0 | 65 6e 74 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 28 61 74 6f | ent-modifications...........(ato |
| 265ce0 | 6d 69 63 2d 63 68 61 6e 67 65 2d 67 72 6f 75 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | mic-change-group.............(le |
| 265d00 | 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 | t.((inhibit-read-only.t))....... |
| 265d20 | 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 | ........(save-excursion......... |
| 265d40 | 20 20 20 20 20 20 20 20 3b 3b 20 49 6e 73 65 72 74 20 65 78 70 61 6e 73 69 6f 6e 0a 20 20 20 20 | ........;;.Insert.expansion..... |
| 265d60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6d 61 63 72 6f 73 74 65 70 2d 70 | ............(funcall.macrostep-p |
| 265d80 | 72 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 65 78 70 61 6e 73 69 6f 6e 20 65 6e 76 29 0a 20 20 20 | rint-function.expansion.env).... |
| 265da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 44 65 6c 65 74 65 20 74 68 65 20 6f 72 69 67 69 | .............;;.Delete.the.origi |
| 265dc0 | 6e 61 6c 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 | nal.form.................(macros |
| 265de0 | 74 65 70 2d 63 6f 6c 6c 61 70 73 65 2d 6f 76 65 72 6c 61 79 73 2d 69 6e 20 28 70 6f 69 6e 74 29 | tep-collapse-overlays-in.(point) |
| 265e00 | 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 | .end).................(delete-re |
| 265e20 | 67 69 6f 6e 20 28 70 6f 69 6e 74 29 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gion.(point).end)............... |
| 265e40 | 20 20 3b 3b 20 43 72 65 61 74 65 20 61 20 6e 65 77 20 6f 76 65 72 6c 61 79 0a 20 20 20 20 20 20 | ..;;.Create.a.new.overlay....... |
| 265e60 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 76 65 72 6c 61 79 0a 20 20 20 20 20 20 20 | ..........(let.((overlay........ |
| 265e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 73 74 | ................(make-overlay.st |
| 265ea0 | 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | art............................. |
| 265ec0 | 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 6e 22 29 0a 20 | .........(if.(looking-at."\n").. |
| 265ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 265f00 | 20 20 20 20 20 20 20 20 28 31 2b 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ........(1+.(point))............ |
| 265f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 | ............................(poi |
| 265f40 | 6e 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 | nt)))))...................(unles |
| 265f60 | 73 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 73 69 6f 6e 2d 62 75 66 66 65 72 0a 20 20 20 | s.macrostep-expansion-buffer.... |
| 265f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 69 67 68 6c 69 67 68 74 20 74 68 | .................;;.Highlight.th |
| 265fa0 | 65 20 6f 76 65 72 6c 61 79 20 69 6e 20 6f 72 69 67 69 6e 61 6c 20 73 6f 75 72 63 65 20 62 75 66 | e.overlay.in.original.source.buf |
| 265fc0 | 66 65 72 73 20 6f 6e 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f | fers.only.....................(o |
| 265fe0 | 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 20 27 66 61 63 65 20 27 6d 61 63 72 6f 73 | verlay-put.overlay.'face.'macros |
| 266000 | 74 65 70 2d 65 78 70 61 6e 73 69 6f 6e 2d 68 69 67 68 6c 69 67 68 74 2d 66 61 63 65 29 29 0a 20 | tep-expansion-highlight-face)).. |
| 266020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 | .................(overlay-put.ov |
| 266040 | 65 72 6c 61 79 20 27 70 72 69 6f 72 69 74 79 20 70 72 69 6f 72 69 74 79 29 0a 20 20 20 20 20 20 | erlay.'priority.priority)....... |
| 266060 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 65 72 6c 61 79 | ............(overlay-put.overlay |
| 266080 | 20 27 6d 61 63 72 6f 73 74 65 70 2d 6f 72 69 67 69 6e 61 6c 2d 74 65 78 74 20 74 65 78 74 29 0a | .'macrostep-original-text.text). |
| 2660a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f | ..................(overlay-put.o |
| 2660c0 | 76 65 72 6c 61 79 20 27 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 64 65 70 74 68 20 6d | verlay.'macrostep-gensym-depth.m |
| 2660e0 | 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 64 65 70 74 68 29 0a 20 20 20 20 20 20 20 20 20 | acrostep-gensym-depth).......... |
| 266100 | 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6f 76 65 72 6c 61 79 20 6d 61 63 72 6f 73 74 65 70 | .........(push.overlay.macrostep |
| 266120 | 2d 6f 76 65 72 6c 61 79 73 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 | -overlays))))))))))..(defun.macr |
| 266140 | 6f 73 74 65 70 2d 63 6f 6c 6c 61 70 73 65 20 28 29 0a 20 20 22 43 6f 6c 6c 61 70 73 65 20 74 68 | ostep-collapse.()..."Collapse.th |
| 266160 | 65 20 69 6e 6e 65 72 6d 6f 73 74 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 20 6e 65 61 72 | e.innermost.macro.expansion.near |
| 266180 | 20 70 6f 69 6e 74 20 74 6f 20 69 74 73 20 73 6f 75 72 63 65 20 74 65 78 74 2e 0a 0a 49 66 20 6e | .point.to.its.source.text...If.n |
| 2661a0 | 6f 20 6d 6f 72 65 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 73 20 61 72 65 20 76 69 73 69 | o.more.macro.expansions.are.visi |
| 2661c0 | 62 6c 65 20 61 66 74 65 72 20 74 68 69 73 2c 20 65 78 69 74 0a 60 6d 61 63 72 6f 73 74 65 70 2d | ble.after.this,.exit.`macrostep- |
| 2661e0 | 6d 6f 64 65 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 | mode'."...(interactive)...(let.( |
| 266200 | 28 6f 76 65 72 6c 61 79 20 28 6d 61 63 72 6f 73 74 65 70 2d 6f 76 65 72 6c 61 79 2d 61 74 2d 70 | (overlay.(macrostep-overlay-at-p |
| 266220 | 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 6f 76 65 72 6c 61 79 29 20 | oint))).....(when.(not.overlay). |
| 266240 | 28 65 72 72 6f 72 20 22 4e 6f 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 20 61 74 20 70 6f | (error."No.macro.expansion.at.po |
| 266260 | 69 6e 74 22 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f | int")).....(let.((inhibit-read-o |
| 266280 | 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 73 69 6c 65 6e 74 2d 6d 6f 64 69 66 | nly.t)).......(with-silent-modif |
| 2662a0 | 69 63 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 28 61 74 6f 6d 69 63 2d 63 68 61 6e 67 65 2d | ications.........(atomic-change- |
| 2662c0 | 67 72 6f 75 70 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 61 | group...........(macrostep-colla |
| 2662e0 | 70 73 65 2d 6f 76 65 72 6c 61 79 20 6f 76 65 72 6c 61 79 29 29 29 29 29 0a 20 20 28 69 66 20 28 | pse-overlay.overlay)))))...(if.( |
| 266300 | 6e 6f 74 20 6d 61 63 72 6f 73 74 65 70 2d 6f 76 65 72 6c 61 79 73 29 0a 20 20 20 20 20 20 28 6d | not.macrostep-overlays).......(m |
| 266320 | 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 20 30 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f | acrostep-mode.0)))..(defun.macro |
| 266340 | 73 74 65 70 2d 63 6f 6c 6c 61 70 73 65 2d 61 6c 6c 20 28 29 0a 20 20 22 43 6f 6c 6c 61 70 73 65 | step-collapse-all.()..."Collapse |
| 266360 | 20 61 6c 6c 20 76 69 73 69 62 6c 65 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 73 20 61 6e | .all.visible.macro.expansions.an |
| 266380 | 64 20 65 78 69 74 20 60 6d 61 63 72 6f 73 74 65 70 2d 6d 6f 64 65 27 2e 22 0a 20 20 28 69 6e 74 | d.exit.`macrostep-mode'."...(int |
| 2663a0 | 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d | eractive)...(let.((inhibit-read- |
| 2663c0 | 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 28 77 69 74 68 2d 73 69 6c 65 6e 74 2d 6d 6f 64 69 66 69 | only.t)).....(with-silent-modifi |
| 2663e0 | 63 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6f 76 65 72 6c 61 79 20 6d | cations.......(dolist.(overlay.m |
| 266400 | 61 63 72 6f 73 74 65 70 2d 6f 76 65 72 6c 61 79 73 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 | acrostep-overlays).........(let. |
| 266420 | 28 28 6f 75 74 65 72 6d 6f 73 74 20 28 3d 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 65 72 | ((outermost.(=.(overlay-get.over |
| 266440 | 6c 61 79 20 27 70 72 69 6f 72 69 74 79 29 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | lay.'priority).1)))...........;; |
| 266460 | 20 57 65 20 6f 6e 6c 79 20 6e 65 65 64 20 72 65 73 74 6f 72 65 20 74 68 65 20 6f 72 69 67 69 6e | .We.only.need.restore.the.origin |
| 266480 | 61 6c 20 74 65 78 74 20 66 6f 72 20 74 68 65 20 6f 75 74 65 72 6d 6f 73 74 0a 20 20 20 20 20 20 | al.text.for.the.outermost....... |
| 2664a0 | 20 20 20 20 3b 3b 20 6f 76 65 72 6c 61 79 73 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f | ....;;.overlays...........(macro |
| 2664c0 | 73 74 65 70 2d 63 6f 6c 6c 61 70 73 65 2d 6f 76 65 72 6c 61 79 20 6f 76 65 72 6c 61 79 20 28 6e | step-collapse-overlay.overlay.(n |
| 2664e0 | 6f 74 20 6f 75 74 65 72 6d 6f 73 74 29 29 29 29 29 29 0a 20 20 28 73 65 74 71 20 6d 61 63 72 6f | ot.outermost))))))...(setq.macro |
| 266500 | 73 74 65 70 2d 6f 76 65 72 6c 61 79 73 20 6e 69 6c 29 0a 20 20 28 6d 61 63 72 6f 73 74 65 70 2d | step-overlays.nil)...(macrostep- |
| 266520 | 6d 6f 64 65 20 30 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 6e 65 78 74 2d | mode.0))..(defun.macrostep-next- |
| 266540 | 6d 61 63 72 6f 20 28 29 0a 20 20 22 4d 6f 76 65 20 70 6f 69 6e 74 20 66 6f 72 77 61 72 64 20 74 | macro.()..."Move.point.forward.t |
| 266560 | 6f 20 74 68 65 20 6e 65 78 74 20 6d 61 63 72 6f 20 66 6f 72 6d 20 69 6e 20 6d 61 63 72 6f 2d 65 | o.the.next.macro.form.in.macro-e |
| 266580 | 78 70 61 6e 64 65 64 20 74 65 78 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | xpanded.text."...(interactive).. |
| 2665a0 | 20 28 6c 65 74 2a 20 28 28 73 74 61 72 74 20 0a 09 20 28 69 66 20 28 67 65 74 2d 74 65 78 74 2d | .(let*.((start....(if.(get-text- |
| 2665c0 | 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 | property.(point).'macrostep-macr |
| 2665e0 | 6f 2d 73 74 61 72 74 29 0a 09 20 20 20 20 20 28 31 2b 20 28 70 6f 69 6e 74 29 29 0a 09 20 20 20 | o-start).......(1+.(point))..... |
| 266600 | 28 70 6f 69 6e 74 29 29 29 0a 09 20 28 6e 65 78 74 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 | (point)))...(next.(next-single-p |
| 266620 | 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 73 74 61 72 74 20 27 6d 61 63 72 6f 73 74 65 70 2d | roperty-change.start.'macrostep- |
| 266640 | 6d 61 63 72 6f 2d 73 74 61 72 74 29 29 29 0a 20 20 20 20 28 69 66 20 6e 65 78 74 0a 09 28 67 6f | macro-start))).....(if.next..(go |
| 266660 | 74 6f 2d 63 68 61 72 20 6e 65 78 74 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 6d | to-char.next).......(error."No.m |
| 266680 | 6f 72 65 20 6d 61 63 72 6f 20 66 6f 72 6d 73 20 66 6f 75 6e 64 22 29 29 29 29 0a 0a 28 64 65 66 | ore.macro.forms.found"))))..(def |
| 2666a0 | 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 70 72 65 76 2d 6d 61 63 72 6f 20 28 29 0a 20 20 22 4d 6f | un.macrostep-prev-macro.()..."Mo |
| 2666c0 | 76 65 20 70 6f 69 6e 74 20 62 61 63 6b 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6d 61 | ve.point.back.to.the.previous.ma |
| 2666e0 | 63 72 6f 20 66 6f 72 6d 20 69 6e 20 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 64 20 74 65 78 74 2e | cro.form.in.macro-expanded.text. |
| 266700 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 70 72 65 76 29 0a | "...(interactive)...(let.(prev). |
| 266720 | 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 77 68 69 6c 65 | ....(save-excursion.......(while |
| 266740 | 0a 09 20 20 28 70 72 6f 67 6e 0a 09 20 20 20 20 28 73 65 74 71 20 70 72 65 76 0a 09 09 20 20 28 | ....(progn......(setq.prev.....( |
| 266760 | 70 72 65 76 69 6f 75 73 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 | previous-single-property-change. |
| 266780 | 28 70 6f 69 6e 74 29 20 27 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 73 74 61 72 74 29 29 | (point).'macrostep-macro-start)) |
| 2667a0 | 0a 09 20 20 20 20 28 69 66 20 28 6f 72 20 28 6e 6f 74 20 70 72 65 76 29 0a 09 09 20 20 20 20 28 | ......(if.(or.(not.prev).......( |
| 2667c0 | 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 31 2d 20 70 72 65 76 29 20 27 6d 61 63 | get-text-property.(1-.prev).'mac |
| 2667e0 | 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 73 74 61 72 74 29 29 0a 09 09 6e 69 6c 0a 09 20 20 20 20 | rostep-macro-start))...nil...... |
| 266800 | 20 20 28 70 72 6f 67 31 20 74 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 72 65 76 29 29 29 29 29 29 | ..(prog1.t.(goto-char.prev)))))) |
| 266820 | 0a 20 20 20 20 28 69 66 20 70 72 65 76 0a 09 28 67 6f 74 6f 2d 63 68 61 72 20 28 31 2d 20 70 72 | .....(if.prev..(goto-char.(1-.pr |
| 266840 | 65 76 29 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 70 72 65 76 69 6f 75 73 20 6d | ev)).......(error."No.previous.m |
| 266860 | 61 63 72 6f 20 66 6f 72 6d 20 66 6f 75 6e 64 22 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 55 74 69 6c | acro.form.found"))))....;;;.Util |
| 266880 | 69 74 79 20 66 75 6e 63 74 69 6f 6e 73 20 28 6e 6f 74 20 6c 61 6e 67 75 61 67 65 2d 73 70 65 63 | ity.functions.(not.language-spec |
| 2668a0 | 69 66 69 63 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 6f 76 65 72 6c 61 79 2d | ific)..(defun.macrostep-overlay- |
| 2668c0 | 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 69 6e 6e 65 72 6d | at-point.()..."Return.the.innerm |
| 2668e0 | 6f 73 74 20 6d 61 63 72 6f 20 73 74 65 70 70 65 72 20 6f 76 65 72 6c 61 79 20 61 74 20 70 6f 69 | ost.macro.stepper.overlay.at.poi |
| 266900 | 6e 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 0a 09 20 28 67 65 74 2d 63 68 61 72 | nt."...(let.((result...(get-char |
| 266920 | 2d 70 72 6f 70 65 72 74 79 2d 61 6e 64 2d 6f 76 65 72 6c 61 79 20 28 70 6f 69 6e 74 29 20 27 6d | -property-and-overlay.(point).'m |
| 266940 | 61 63 72 6f 73 74 65 70 2d 6f 72 69 67 69 6e 61 6c 2d 74 65 78 74 29 29 29 0a 20 20 20 20 28 63 | acrostep-original-text))).....(c |
| 266960 | 64 72 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 63 | dr.result)))..(defun.macrostep-c |
| 266980 | 6f 6c 6c 61 70 73 65 2d 6f 76 65 72 6c 61 79 20 28 6f 76 65 72 6c 61 79 20 26 6f 70 74 69 6f 6e | ollapse-overlay.(overlay.&option |
| 2669a0 | 61 6c 20 6e 6f 2d 72 65 73 74 6f 72 65 2d 70 29 0a 20 20 22 43 6f 6c 6c 61 70 73 65 20 61 20 6d | al.no-restore-p)..."Collapse.a.m |
| 2669c0 | 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 20 6f 76 65 72 6c 61 79 20 61 6e 64 20 72 65 73 74 6f | acro-expansion.overlay.and.resto |
| 2669e0 | 72 65 20 74 68 65 20 75 6e 65 78 70 61 6e 64 65 64 20 73 6f 75 72 63 65 20 74 65 78 74 2e 0a 0a | re.the.unexpanded.source.text... |
| 266a00 | 41 73 20 61 20 6d 69 6e 6f 72 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 2c 20 64 6f 65 73 20 6e 6f | As.a.minor.optimization,.does.no |
| 266a20 | 74 20 72 65 73 74 6f 72 65 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 73 6f 75 72 63 65 0a 74 65 | t.restore.the.original.source.te |
| 266a40 | 78 74 20 69 66 20 4e 4f 2d 52 45 53 54 4f 52 45 2d 50 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 20 54 | xt.if.NO-RESTORE-P.is.non-nil..T |
| 266a60 | 68 69 73 20 69 73 20 73 61 66 65 20 74 6f 20 64 6f 20 77 68 65 6e 0a 63 6f 6c 6c 61 70 73 69 6e | his.is.safe.to.do.when.collapsin |
| 266a80 | 67 20 61 6c 6c 20 74 68 65 20 73 75 62 2d 65 78 70 61 6e 73 69 6f 6e 73 20 6f 66 20 61 6e 20 6f | g.all.the.sub-expansions.of.an.o |
| 266aa0 | 75 74 65 72 20 6f 76 65 72 6c 61 79 2c 20 73 69 6e 63 65 20 74 68 65 0a 6f 75 74 65 72 20 6f 76 | uter.overlay,.since.the.outer.ov |
| 266ac0 | 65 72 6c 61 79 20 77 69 6c 6c 20 72 65 73 74 6f 72 65 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 | erlay.will.restore.the.original. |
| 266ae0 | 73 6f 75 72 63 65 20 69 74 73 65 6c 66 2e 0a 0a 41 6c 73 6f 20 72 65 6d 6f 76 65 73 20 74 68 65 | source.itself...Also.removes.the |
| 266b00 | 20 6f 76 65 72 6c 61 79 20 66 72 6f 6d 20 60 6d 61 63 72 6f 73 74 65 70 2d 6f 76 65 72 6c 61 79 | .overlay.from.`macrostep-overlay |
| 266b20 | 73 27 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 76 65 | s'."...(with-current-buffer.(ove |
| 266b40 | 72 6c 61 79 2d 62 75 66 66 65 72 20 6f 76 65 72 6c 61 79 29 0a 20 20 20 20 3b 3b 20 49 66 20 77 | rlay-buffer.overlay).....;;.If.w |
| 266b60 | 65 27 72 65 20 63 6c 65 61 6e 69 6e 67 20 75 70 20 77 65 20 64 6f 6e 27 74 20 6e 65 65 64 20 74 | e're.cleaning.up.we.don't.need.t |
| 266b80 | 6f 20 62 6f 74 68 65 72 20 72 65 73 74 6f 72 69 6e 67 20 74 65 78 74 0a 20 20 20 20 3b 3b 20 6f | o.bother.restoring.text.....;;.o |
| 266ba0 | 72 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 69 6e 6e 65 72 20 6f 76 65 72 6c 61 79 73 20 74 6f | r.checking.for.inner.overlays.to |
| 266bc0 | 20 64 65 6c 65 74 65 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 6e 6f 2d 72 65 73 74 6f 72 65 2d 70 | .delete.....(unless.no-restore-p |
| 266be0 | 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 61 72 74 20 28 6f 76 65 72 6c 61 79 2d 73 74 | .......(let*.((start.(overlay-st |
| 266c00 | 61 72 74 20 6f 76 65 72 6c 61 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 | art.overlay))..............(end. |
| 266c20 | 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6f 76 65 72 6c 61 79 29 29 0a 20 20 20 20 20 20 20 20 20 | (overlay-end.overlay)).......... |
| 266c40 | 20 20 20 20 28 74 65 78 74 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 65 72 6c 61 79 20 27 | ....(text.(overlay-get.overlay.' |
| 266c60 | 6d 61 63 72 6f 73 74 65 70 2d 6f 72 69 67 69 6e 61 6c 2d 74 65 78 74 29 29 0a 20 20 20 20 20 20 | macrostep-original-text))....... |
| 266c80 | 20 20 20 20 20 20 20 28 73 65 78 70 2d 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .......(sexp-end...............( |
| 266ca0 | 63 6f 70 79 2d 6d 61 72 6b 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | copy-marker................(if.( |
| 266cc0 | 65 71 75 61 6c 20 28 63 68 61 72 2d 62 65 66 6f 72 65 20 65 6e 64 29 20 3f 5c 6e 29 20 28 31 2d | equal.(char-before.end).?\n).(1- |
| 266ce0 | 20 65 6e 64 29 20 65 6e 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 | .end).end)))).........(macrostep |
| 266d00 | 2d 63 6f 6c 6c 61 70 73 65 2d 6f 76 65 72 6c 61 79 73 2d 69 6e 20 73 74 61 72 74 20 65 6e 64 29 | -collapse-overlays-in.start.end) |
| 266d20 | 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 | .........(goto-char.(overlay-sta |
| 266d40 | 72 74 20 6f 76 65 72 6c 61 79 29 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 | rt.overlay)).........(save-excur |
| 266d60 | 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 74 65 78 74 29 0a 20 20 20 | sion...........(insert.text).... |
| 266d80 | 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 29 20 73 65 | .......(delete-region.(point).se |
| 266da0 | 78 70 2d 65 6e 64 29 29 29 29 0a 20 20 20 20 3b 3b 20 52 65 6d 6f 76 65 20 6f 76 65 72 6c 61 79 | xp-end)))).....;;.Remove.overlay |
| 266dc0 | 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20 61 6e 64 20 64 65 6c 65 74 65 20 69 74 0a 20 20 20 | .from.the.list.and.delete.it.... |
| 266de0 | 20 28 73 65 74 71 20 6d 61 63 72 6f 73 74 65 70 2d 6f 76 65 72 6c 61 79 73 0a 20 20 20 20 20 20 | .(setq.macrostep-overlays....... |
| 266e00 | 20 20 20 20 28 64 65 6c 71 20 6f 76 65 72 6c 61 79 20 6d 61 63 72 6f 73 74 65 70 2d 6f 76 65 72 | ....(delq.overlay.macrostep-over |
| 266e20 | 6c 61 79 73 29 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 6f 76 65 72 6c 61 79 20 6f 76 65 72 6c | lays)).....(delete-overlay.overl |
| 266e40 | 61 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 61 70 73 65 | ay)))..(defun.macrostep-collapse |
| 266e60 | 2d 6f 76 65 72 6c 61 79 73 2d 69 6e 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 43 6f 6c 6c | -overlays-in.(start.end)..."Coll |
| 266e80 | 61 70 73 65 20 61 6c 6c 20 6d 61 63 72 6f 73 74 65 70 70 65 72 20 6f 76 65 72 6c 61 79 73 20 74 | apse.all.macrostepper.overlays.t |
| 266ea0 | 68 61 74 20 61 72 65 20 73 74 72 69 63 74 6c 79 20 62 65 74 77 65 65 6e 20 53 54 41 52 54 20 61 | hat.are.strictly.between.START.a |
| 266ec0 | 6e 64 20 45 4e 44 2e 0a 0a 57 69 6c 6c 20 6e 6f 74 20 63 6f 6c 6c 61 70 73 65 20 6f 76 65 72 6c | nd.END...Will.not.collapse.overl |
| 266ee0 | 61 79 73 20 74 68 61 74 20 62 65 67 69 6e 20 61 74 20 53 54 41 52 54 20 61 6e 64 20 65 6e 64 20 | ays.that.begin.at.START.and.end. |
| 266f00 | 61 74 20 45 4e 44 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 6f 6c 20 28 6f 76 65 72 6c 61 79 73 | at.END."...(dolist.(ol.(overlays |
| 266f20 | 2d 69 6e 20 73 74 61 72 74 20 65 6e 64 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 3e 20 | -in.start.end)).....(if.(and.(>. |
| 266f40 | 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 6f 6c 29 20 73 74 61 72 74 29 0a 09 20 20 20 20 20 | (overlay-start.ol).start)....... |
| 266f60 | 28 3c 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6f 6c 29 20 65 6e 64 29 0a 09 20 20 20 20 20 28 | (<.(overlay-end.ol).end).......( |
| 266f80 | 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 6c 20 27 6d 61 63 72 6f 73 74 65 70 2d 6f 72 69 67 69 6e | overlay-get.ol.'macrostep-origin |
| 266fa0 | 61 6c 2d 74 65 78 74 29 29 0a 09 28 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 61 70 73 65 2d 6f | al-text))..(macrostep-collapse-o |
| 266fc0 | 76 65 72 6c 61 79 20 6f 6c 20 74 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 45 6d 61 63 73 20 4c 69 73 | verlay.ol.t))))....;;;.Emacs.Lis |
| 266fe0 | 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 | p.implementation..(defun.macrost |
| 267000 | 65 70 2d 73 65 78 70 2d 62 6f 75 6e 64 73 20 28 29 0a 20 20 22 46 69 6e 64 20 74 68 65 20 62 6f | ep-sexp-bounds.()..."Find.the.bo |
| 267020 | 75 6e 64 73 20 6f 66 20 74 68 65 20 6d 61 63 72 6f 20 66 6f 72 6d 20 6e 65 61 72 65 73 74 20 70 | unds.of.the.macro.form.nearest.p |
| 267040 | 6f 69 6e 74 2e 0a 0a 49 66 20 70 6f 69 6e 74 20 69 73 20 6e 6f 74 20 62 65 66 6f 72 65 20 61 6e | oint...If.point.is.not.before.an |
| 267060 | 20 6f 70 65 6e 2d 70 61 72 65 6e 2c 20 6d 6f 76 65 73 20 75 70 20 74 6f 20 74 68 65 20 6e 65 61 | .open-paren,.moves.up.to.the.nea |
| 267080 | 72 65 73 74 0a 65 6e 63 6c 6f 73 69 6e 67 20 6c 69 73 74 2e 20 20 49 66 20 74 68 65 20 66 6f 72 | rest.enclosing.list...If.the.for |
| 2670a0 | 6d 20 61 74 20 70 6f 69 6e 74 20 69 73 20 6e 6f 74 20 61 20 6d 61 63 72 6f 20 63 61 6c 6c 2c 0a | m.at.point.is.not.a.macro.call,. |
| 2670c0 | 61 74 74 65 6d 70 74 73 20 74 6f 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 20 74 6f 20 74 68 65 20 | attempts.to.move.forward.to.the. |
| 2670e0 | 6e 65 78 74 20 6d 61 63 72 6f 20 66 6f 72 6d 20 61 73 20 64 65 74 65 72 6d 69 6e 65 64 20 62 79 | next.macro.form.as.determined.by |
| 267100 | 0a 60 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 70 2d 66 75 6e 63 74 69 6f | .`macrostep-macro-form-p-functio |
| 267120 | 6e 27 2e 0a 0a 52 65 74 75 72 6e 73 20 61 20 63 6f 6e 73 20 6f 66 20 62 75 66 66 65 72 20 70 6f | n'...Returns.a.cons.of.buffer.po |
| 267140 | 73 69 74 69 6f 6e 73 2c 20 28 53 54 41 52 54 20 2e 20 45 4e 44 29 2e 22 0a 20 20 28 73 61 76 65 | sitions,.(START...END)."...(save |
| 267160 | 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 6c 6f 6f 6b 69 6e 67 | -excursion.....(if.(not.(looking |
| 267180 | 2d 61 74 20 22 5b 28 60 5d 22 29 29 0a 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 75 | -at."[(`]")).........(backward-u |
| 2671a0 | 70 2d 6c 69 73 74 20 31 29 29 0a 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 28 63 68 61 72 2d | p-list.1)).....(if.(equal.(char- |
| 2671c0 | 62 65 66 6f 72 65 29 20 3f 60 29 0a 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 63 68 | before).?`).........(backward-ch |
| 2671e0 | 61 72 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 65 78 70 20 28 66 75 6e 63 61 6c 6c 20 6d 61 | ar)).....(let.((sexp.(funcall.ma |
| 267200 | 63 72 6f 73 74 65 70 2d 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 29 29 | crostep-sexp-at-point-function)) |
| 267220 | 0a 20 20 20 20 20 20 20 20 20 20 28 65 6e 76 20 28 66 75 6e 63 61 6c 6c 20 6d 61 63 72 6f 73 74 | ...........(env.(funcall.macrost |
| 267240 | 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e | ep-environment-at-point-function |
| 267260 | 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 49 66 20 74 68 69 73 20 69 73 6e 27 74 20 61 20 6d 61 63 | ))).......;;.If.this.isn't.a.mac |
| 267280 | 72 6f 20 66 6f 72 6d 2c 20 74 72 79 20 74 6f 20 66 69 6e 64 20 74 68 65 20 6e 65 78 74 20 6f 6e | ro.form,.try.to.find.the.next.on |
| 2672a0 | 65 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 | e.in.the.buffer.......(unless.(f |
| 2672c0 | 75 6e 63 61 6c 6c 20 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 70 2d 66 75 | uncall.macrostep-macro-form-p-fu |
| 2672e0 | 6e 63 74 69 6f 6e 20 73 65 78 70 20 65 6e 76 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 | nction.sexp.env).........(condit |
| 267300 | 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 | ion-case.nil.............(macros |
| 267320 | 74 65 70 2d 6e 65 78 74 2d 6d 61 63 72 6f 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 | tep-next-macro)...........(error |
| 267340 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 6f 6e 73 70 20 73 65 78 70 29 0a 20 20 20 | ............(if.(consp.sexp).... |
| 267360 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 28 25 73 20 2e 2e 2e 29 20 69 73 20 | ............(error."(%s....).is. |
| 267380 | 6e 6f 74 20 61 20 6d 61 63 72 6f 20 66 6f 72 6d 22 20 28 63 61 72 20 73 65 78 70 29 29 0a 20 20 | not.a.macro.form".(car.sexp))... |
| 2673a0 | 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 54 65 78 74 20 61 74 20 70 6f 69 6e 74 | ...........(error."Text.at.point |
| 2673c0 | 20 69 73 20 6e 6f 74 20 61 20 6d 61 63 72 6f 20 66 6f 72 6d 2e 22 29 29 29 29 29 29 0a 20 20 20 | .is.not.a.macro.form.")))))).... |
| 2673e0 | 20 28 63 6f 6e 73 20 28 70 6f 69 6e 74 29 20 28 73 63 61 6e 2d 73 65 78 70 73 20 28 70 6f 69 6e | .(cons.(point).(scan-sexps.(poin |
| 267400 | 74 29 20 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 73 65 78 70 2d | t).1))))..(defun.macrostep-sexp- |
| 267420 | 61 74 2d 70 6f 69 6e 74 20 28 26 72 65 73 74 20 69 67 6e 6f 72 65 29 0a 20 20 22 52 65 74 75 72 | at-point.(&rest.ignore)..."Retur |
| 267440 | 6e 20 74 68 65 20 73 65 78 70 20 6e 65 61 72 20 70 6f 69 6e 74 20 66 6f 72 20 70 75 72 70 6f 73 | n.the.sexp.near.point.for.purpos |
| 267460 | 65 73 20 6f 66 20 6d 61 63 72 6f 2d 73 74 65 70 70 65 72 20 65 78 70 61 6e 73 69 6f 6e 2e 0a 0a | es.of.macro-stepper.expansion... |
| 267480 | 49 66 20 74 68 65 20 73 65 78 70 20 6e 65 61 72 20 70 6f 69 6e 74 20 69 73 20 70 61 72 74 20 6f | If.the.sexp.near.point.is.part.o |
| 2674a0 | 66 20 61 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 2c 20 72 65 74 75 72 6e 73 20 74 68 65 | f.a.macro.expansion,.returns.the |
| 2674c0 | 0a 73 61 76 65 64 20 74 65 78 74 20 6f 66 20 74 68 65 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 | .saved.text.of.the.macro.expansi |
| 2674e0 | 6f 6e 2c 20 61 6e 64 20 64 6f 65 73 20 6e 6f 74 20 72 65 61 64 20 66 72 6f 6d 20 74 68 65 0a 62 | on,.and.does.not.read.from.the.b |
| 267500 | 75 66 66 65 72 2e 20 20 54 68 69 73 20 70 72 65 73 65 72 76 65 73 20 75 6e 69 6e 74 65 72 6e 65 | uffer...This.preserves.uninterne |
| 267520 | 64 20 73 79 6d 62 6f 6c 73 20 69 6e 20 74 68 65 20 6d 61 63 72 6f 0a 65 78 70 61 6e 73 69 6f 6e | d.symbols.in.the.macro.expansion |
| 267540 | 2c 20 73 6f 20 74 68 61 74 20 74 68 65 79 20 63 61 6e 20 62 65 20 66 6f 6e 74 69 66 69 65 64 20 | ,.so.that.they.can.be.fontified. |
| 267560 | 63 6f 6e 73 69 73 74 65 6e 74 6c 79 2e 20 20 28 53 65 65 0a 60 6d 61 63 72 6f 73 74 65 70 2d 70 | consistently...(See.`macrostep-p |
| 267580 | 72 69 6e 74 2d 73 65 78 70 27 2e 29 22 0a 20 20 28 6f 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 | rint-sexp'.)"...(or.(get-text-pr |
| 2675a0 | 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 | operty.(point).'macrostep-expand |
| 2675c0 | 65 64 2d 74 65 78 74 29 0a 20 20 20 20 20 20 28 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 29 29 29 | ed-text).......(sexp-at-point))) |
| 2675e0 | 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 70 20 | ..(defun.macrostep-macro-form-p. |
| 267600 | 28 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 22 52 65 74 75 72 6e 20 6e 6f 6e | (form.environment)..."Return.non |
| 267620 | 2d 6e 69 6c 20 69 66 20 46 4f 52 4d 20 77 6f 75 6c 64 20 62 65 20 65 76 61 6c 75 61 74 65 64 20 | -nil.if.FORM.would.be.evaluated. |
| 267640 | 76 69 61 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 2e 0a 0a 49 66 20 46 4f 52 4d 20 69 73 | via.macro.expansion...If.FORM.is |
| 267660 | 20 61 6e 20 69 6e 76 6f 63 61 74 69 6f 6e 20 6f 66 20 61 20 6d 61 63 72 6f 20 64 65 66 69 6e 65 | .an.invocation.of.a.macro.define |
| 267680 | 64 20 62 79 20 60 64 65 66 6d 61 63 72 6f 27 20 6f 72 20 61 6e 0a 65 6e 63 6c 6f 73 69 6e 67 20 | d.by.`defmacro'.or.an.enclosing. |
| 2676a0 | 60 63 6c 2d 6d 61 63 72 6f 6c 65 74 27 20 66 6f 72 6d 2c 20 72 65 74 75 72 6e 20 74 68 65 20 73 | `cl-macrolet'.form,.return.the.s |
| 2676c0 | 79 6d 62 6f 6c 20 60 6d 61 63 72 6f 27 2e 0a 0a 49 66 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 | ymbol.`macro'...If.`macrostep-ex |
| 2676e0 | 70 61 6e 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 27 20 69 73 20 6e 6f 6e 2d 6e 69 6c | pand-compiler-macros'.is.non-nil |
| 267700 | 20 61 6e 64 20 46 4f 52 4d 20 69 73 20 61 0a 63 61 6c 6c 20 74 6f 20 61 20 66 75 6e 63 74 69 6f | .and.FORM.is.a.call.to.a.functio |
| 267720 | 6e 20 77 69 74 68 20 61 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 2c 20 72 65 74 75 72 6e 20 | n.with.a.compiler.macro,.return. |
| 267740 | 74 68 65 20 73 79 6d 62 6f 6c 0a 60 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 27 2e 0a 0a 4f 74 | the.symbol.`compiler-macro'...Ot |
| 267760 | 68 65 72 77 69 73 65 2c 20 72 65 74 75 72 6e 20 6e 69 6c 2e 22 0a 20 20 28 63 61 72 20 28 6d 61 | herwise,.return.nil."...(car.(ma |
| 267780 | 63 72 6f 73 74 65 70 2d 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 69 6e 66 6f 20 66 6f 72 6d 20 65 6e | crostep--macro-form-info.form.en |
| 2677a0 | 76 69 72 6f 6e 6d 65 6e 74 20 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 | vironment.t)))..(defun.macrostep |
| 2677c0 | 2d 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 69 6e 66 6f 20 28 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d | --macro-form-info.(form.environm |
| 2677e0 | 65 6e 74 20 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 68 69 62 69 74 2d 61 75 74 6f 6c 6f 61 64 29 0a | ent.&optional.inhibit-autoload). |
| 267800 | 20 20 22 52 65 74 75 72 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 6d 61 63 72 | .."Return.information.about.macr |
| 267820 | 6f 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 74 68 61 74 20 61 70 70 6c 79 20 74 6f 20 46 4f 52 4d | o.definitions.that.apply.to.FORM |
| 267840 | 2e 0a 0a 49 66 20 6e 6f 20 6d 61 63 72 6f 73 20 61 72 65 20 69 6e 76 6f 6c 76 65 64 20 69 6e 20 | ...If.no.macros.are.involved.in. |
| 267860 | 74 68 65 20 65 76 61 6c 75 61 74 69 6f 6e 20 6f 66 20 46 4f 52 4d 20 77 69 74 68 69 6e 0a 45 4e | the.evaluation.of.FORM.within.EN |
| 267880 | 56 49 52 4f 4e 4d 45 4e 54 2c 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 20 20 4f 74 68 65 72 77 69 | VIRONMENT,.returns.nil...Otherwi |
| 2678a0 | 73 65 2c 20 72 65 74 75 72 6e 73 20 61 20 63 6f 6e 73 20 28 54 59 50 45 0a 2e 20 44 45 46 49 4e | se,.returns.a.cons.(TYPE...DEFIN |
| 2678c0 | 49 54 49 4f 4e 29 2e 0a 0a 49 66 20 46 4f 52 4d 20 77 6f 75 6c 64 20 62 65 20 65 76 61 6c 75 61 | ITION)...If.FORM.would.be.evalua |
| 2678e0 | 74 65 64 20 62 79 20 61 20 6d 61 63 72 6f 20 64 65 66 69 6e 65 64 20 62 79 20 60 64 65 66 6d 61 | ted.by.a.macro.defined.by.`defma |
| 267900 | 63 72 6f 27 2c 0a 60 63 6c 2d 6d 61 63 72 6f 6c 65 74 27 2c 20 65 74 63 2e 2c 20 54 59 50 45 20 | cro',.`cl-macrolet',.etc.,.TYPE. |
| 267920 | 69 73 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 6d 61 63 72 6f 27 20 61 6e 64 20 44 45 46 49 4e 49 | is.the.symbol.`macro'.and.DEFINI |
| 267940 | 54 49 4f 4e 20 69 73 0a 74 68 65 20 6d 61 63 72 6f 20 64 65 66 69 6e 69 74 69 6f 6e 2c 20 61 73 | TION.is.the.macro.definition,.as |
| 267960 | 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 49 66 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 | .a.function...If.`macrostep-expa |
| 267980 | 6e 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 27 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 61 | nd-compiler-macros'.is.non-nil.a |
| 2679a0 | 6e 64 20 46 4f 52 4d 20 77 6f 75 6c 64 0a 62 65 20 63 6f 6d 70 69 6c 65 64 20 75 73 69 6e 67 20 | nd.FORM.would.be.compiled.using. |
| 2679c0 | 61 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 2c 20 54 59 50 45 20 69 73 20 74 68 65 20 73 79 | a.compiler.macro,.TYPE.is.the.sy |
| 2679e0 | 6d 62 6f 6c 0a 60 63 6f 6d 70 6d 69 6c 65 72 2d 6d 61 63 72 6f 27 20 61 6e 64 20 44 45 46 49 4e | mbol.`compmiler-macro'.and.DEFIN |
| 267a00 | 49 54 49 4f 4e 20 69 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 69 6d 70 6c 65 | ITION.is.the.function.that.imple |
| 267a20 | 6d 65 6e 74 73 0a 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 2e 0a 0a 49 66 20 46 4f | ments.the.compiler.macro...If.FO |
| 267a40 | 52 4d 20 69 73 20 61 6e 20 69 6e 76 6f 63 61 74 69 6f 6e 20 6f 66 20 61 6e 20 61 75 74 6f 6c 6f | RM.is.an.invocation.of.an.autolo |
| 267a60 | 61 64 65 64 20 6d 61 63 72 6f 2c 20 74 68 65 20 62 65 68 61 76 69 6f 72 0a 64 65 70 65 6e 64 73 | aded.macro,.the.behavior.depends |
| 267a80 | 20 6f 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 49 4e 48 49 42 49 54 2d 41 55 54 4f 4c 4f 41 | .on.the.value.of.INHIBIT-AUTOLOA |
| 267aa0 | 44 2e 20 20 49 66 20 49 4e 48 49 42 49 54 2d 41 55 54 4f 4c 4f 41 44 20 69 73 0a 6e 69 6c 2c 20 | D...If.INHIBIT-AUTOLOAD.is.nil,. |
| 267ac0 | 74 68 65 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 6d 61 63 72 6f 20 64 65 | the.file.containing.the.macro.de |
| 267ae0 | 66 69 6e 69 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 6c 6f 61 64 65 64 0a 75 73 69 6e 67 20 60 6c | finition.will.be.loaded.using.`l |
| 267b00 | 6f 61 64 2d 6c 69 62 72 61 72 79 27 20 61 6e 64 20 74 68 65 20 6d 61 63 72 6f 20 64 65 66 69 6e | oad-library'.and.the.macro.defin |
| 267b20 | 69 74 69 6f 6e 20 72 65 74 75 72 6e 65 64 20 61 73 20 6e 6f 72 6d 61 6c 2e 0a 49 66 20 49 4e 48 | ition.returned.as.normal..If.INH |
| 267b40 | 49 42 49 54 2d 41 55 54 4f 4c 4f 41 44 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 6e 6f 20 66 69 6c | IBIT-AUTOLOAD.is.non-nil,.no.fil |
| 267b60 | 65 73 20 77 69 6c 6c 20 62 65 20 6c 6f 61 64 65 64 2c 20 61 6e 64 20 74 68 65 0a 76 61 6c 75 65 | es.will.be.loaded,.and.the.value |
| 267b80 | 20 6f 66 20 44 45 46 49 4e 49 54 49 4f 4e 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 20 77 69 6c | .of.DEFINITION.in.the.result.wil |
| 267ba0 | 6c 20 62 65 20 6e 69 6c 2e 22 0a 20 20 28 69 66 20 28 6e 6f 74 20 28 61 6e 64 20 28 63 6f 6e 73 | l.be.nil."...(if.(not.(and.(cons |
| 267bc0 | 70 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 70 | p.form).................(symbolp |
| 267be0 | 20 28 63 61 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 20 20 60 28 6e 69 6c 20 2e 20 6e 69 6c | .(car.form)))).......`(nil...nil |
| 267c00 | 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 68 65 61 64 20 28 63 61 72 20 66 6f 72 6d 29 29 0a 20 | ).....(let*.((head.(car.form)).. |
| 267c20 | 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 61 73 73 | ..........(local-definition.(ass |
| 267c40 | 6f 63 2d 64 65 66 61 75 6c 74 20 68 65 61 64 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 23 27 65 71 | oc-default.head.environment.#'eq |
| 267c60 | 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 6c 6f 63 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 0a 20 | ))).......(if.local-definition.. |
| 267c80 | 20 20 20 20 20 20 20 20 20 60 28 6d 61 63 72 6f 20 2e 20 2c 6c 6f 63 61 6c 2d 64 65 66 69 6e 69 | .........`(macro...,local-defini |
| 267ca0 | 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 | tion).........(let.((compiler-ma |
| 267cc0 | 63 72 6f 2d 64 65 66 69 6e 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | cro-definition................(a |
| 267ce0 | 6e 64 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 | nd.macrostep-expand-compiler-mac |
| 267d00 | 72 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 67 65 74 | ros.....................(or.(get |
| 267d20 | 20 68 65 61 64 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 29 0a 09 09 09 28 67 65 74 20 68 | .head.'compiler-macro)....(get.h |
| 267d40 | 65 61 64 20 27 63 6c 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 29 29 29 29 29 0a 20 20 20 20 | ead.'cl-compiler-macro)))))..... |
| 267d60 | 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 64 65 | ......(if.(and.compiler-macro-de |
| 267d80 | 66 69 6e 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 | finition....................(not |
| 267da0 | 20 28 65 71 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(eq.form....................... |
| 267dc0 | 20 20 20 20 20 20 28 61 70 70 6c 79 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 64 65 66 69 | ......(apply.compiler-macro-defi |
| 267de0 | 6e 69 74 69 6f 6e 20 66 6f 72 6d 20 28 63 64 72 20 66 6f 72 6d 29 29 29 29 29 0a 20 20 20 20 20 | nition.form.(cdr.form)))))...... |
| 267e00 | 20 20 20 20 20 20 20 20 20 60 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 2e 20 2c 63 6f 6d | .........`(compiler-macro...,com |
| 267e20 | 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 64 65 66 69 6e 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | piler-macro-definition)......... |
| 267e40 | 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 | ....(condition-case.nil......... |
| 267e60 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 75 6e 20 28 69 6e 64 69 72 65 63 74 2d 66 75 6e | ........(let.((fun.(indirect-fun |
| 267e80 | 63 74 69 6f 6e 20 68 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ction.head)))................... |
| 267ea0 | 28 63 6c 2d 63 61 73 65 20 28 63 61 72 2d 73 61 66 65 20 66 75 6e 29 0a 20 20 20 20 20 20 20 20 | (cl-case.(car-safe.fun)......... |
| 267ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 61 63 72 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ............((macro)............ |
| 267ee0 | 20 20 20 20 20 20 20 20 20 20 60 28 6d 61 63 72 6f 20 2e 20 2c 28 63 64 72 20 66 75 6e 29 29 29 | ..........`(macro...,(cdr.fun))) |
| 267f00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 75 74 6f 6c 6f 61 64 29 | .....................((autoload) |
| 267f20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 | ......................(when.(eq. |
| 267f40 | 28 6e 74 68 20 34 20 66 75 6e 29 20 27 6d 61 63 72 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (nth.4.fun).'macro)............. |
| 267f60 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 69 6e 68 69 62 69 74 2d 61 75 74 6f 6c 6f 61 64 0a | ...........(if.inhibit-autoload. |
| 267f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6d 61 63 | ...........................`(mac |
| 267fa0 | 72 6f 20 2e 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ro...nil)....................... |
| 267fc0 | 20 20 20 28 6c 6f 61 64 2d 6c 69 62 72 61 72 79 20 28 6e 74 68 20 31 20 66 75 6e 29 29 0a 20 20 | ...(load-library.(nth.1.fun))... |
| 267fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 | .......................(macroste |
| 268000 | 70 2d 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 69 6e 66 6f 20 66 6f 72 6d 20 6e 69 6c 29 29 29 29 0a | p--macro-form-info.form.nil)))). |
| 268020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 | ....................(t.......... |
| 268040 | 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6e 69 6c 20 2e 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 | ............`(nil...nil))))..... |
| 268060 | 20 20 20 20 20 20 20 20 20 20 28 76 6f 69 64 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 29 29 29 29 | ..........(void-function.nil)))) |
| 268080 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 31 20 | ))))..(defun.macrostep-expand-1. |
| 2680a0 | 28 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 22 52 65 74 75 72 6e 20 72 65 73 | (form.environment)..."Return.res |
| 2680c0 | 75 6c 74 20 6f 66 20 6d 61 63 72 6f 2d 65 78 70 61 6e 64 69 6e 67 20 74 68 65 20 74 6f 70 20 6c | ult.of.macro-expanding.the.top.l |
| 2680e0 | 65 76 65 6c 20 6f 66 20 46 4f 52 4d 20 62 79 20 65 78 61 63 74 6c 79 20 6f 6e 65 20 73 74 65 70 | evel.of.FORM.by.exactly.one.step |
| 268100 | 2e 0a 55 6e 6c 69 6b 65 20 60 6d 61 63 72 6f 65 78 70 61 6e 64 27 2c 20 74 68 69 73 20 66 75 6e | ..Unlike.`macroexpand',.this.fun |
| 268120 | 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 69 6e 75 65 20 6d 61 63 72 6f 0a 65 78 | ction.does.not.continue.macro.ex |
| 268140 | 70 61 6e 73 69 6f 6e 20 75 6e 74 69 6c 20 61 20 6e 6f 6e 2d 6d 61 63 72 6f 2d 63 61 6c 6c 20 72 | pansion.until.a.non-macro-call.r |
| 268160 | 65 73 75 6c 74 73 2e 22 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e | esults."...(cl-destructuring-bin |
| 268180 | 64 20 28 74 79 70 65 20 2e 20 64 65 66 69 6e 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 6d 61 63 | d.(type...definition).......(mac |
| 2681a0 | 72 6f 73 74 65 70 2d 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 69 6e 66 6f 20 66 6f 72 6d 20 65 6e 76 | rostep--macro-form-info.form.env |
| 2681c0 | 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 28 63 6c 2d 65 63 61 73 65 20 74 79 70 65 0a 20 20 20 | ironment).....(cl-ecase.type.... |
| 2681e0 | 20 20 20 28 28 6e 69 6c 29 0a 20 20 20 20 20 20 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 28 28 6d | ...((nil)........form).......((m |
| 268200 | 61 63 72 6f 29 0a 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 64 65 66 69 6e 69 74 69 6f 6e 20 28 | acro)........(apply.definition.( |
| 268220 | 63 64 72 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 28 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 | cdr.form))).......((compiler-mac |
| 268240 | 72 6f 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 78 70 61 6e 73 69 6f 6e 0a 09 20 20 20 | ro)........(let.((expansion..... |
| 268260 | 20 20 20 28 61 70 70 6c 79 20 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 6d 20 28 63 64 72 20 66 | ...(apply.definition.form.(cdr.f |
| 268280 | 6f 72 6d 29 29 29 29 0a 09 20 28 69 66 20 28 65 71 75 61 6c 20 66 6f 72 6d 20 65 78 70 61 6e 73 | orm))))...(if.(equal.form.expans |
| 2682a0 | 69 6f 6e 29 0a 09 20 20 20 20 20 28 65 72 72 6f 72 20 22 46 6f 72 6d 20 6c 65 66 74 20 75 6e 63 | ion).......(error."Form.left.unc |
| 2682c0 | 68 61 6e 67 65 64 20 62 79 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 22 29 0a 09 20 20 20 65 | hanged.by.compiler.macro").....e |
| 2682e0 | 78 70 61 6e 73 69 6f 6e 29 29 29 29 29 29 0a 0a 28 70 75 74 20 27 6d 61 63 72 6f 73 74 65 70 2d | xpansion))))))..(put.'macrostep- |
| 268300 | 67 72 61 62 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 66 61 69 6c 65 64 20 27 65 72 72 6f 72 2d 63 | grab-environment-failed.'error-c |
| 268320 | 6f 6e 64 69 74 69 6f 6e 73 0a 20 20 20 20 20 27 28 6d 61 63 72 6f 73 74 65 70 2d 67 72 61 62 2d | onditions......'(macrostep-grab- |
| 268340 | 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 66 61 69 6c 65 64 20 65 72 72 6f 72 29 29 0a 0a 28 64 65 66 | environment-failed.error))..(def |
| 268360 | 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e | un.macrostep-environment-at-poin |
| 268380 | 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 61 6c 20 6d 61 63 72 6f 2d 65 | t.()..."Return.the.local.macro-e |
| 2683a0 | 78 70 61 6e 73 69 6f 6e 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 61 74 20 70 6f 69 6e 74 2c 20 69 | xpansion.environment.at.point,.i |
| 2683c0 | 66 20 61 6e 79 2e 0a 0a 54 68 65 20 6c 6f 63 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 69 6e | f.any...The.local.environment.in |
| 2683e0 | 63 6c 75 64 65 73 20 6d 61 63 72 6f 73 20 64 65 63 6c 61 72 65 64 20 62 79 20 61 6e 79 20 60 6d | cludes.macros.declared.by.any.`m |
| 268400 | 61 63 72 6f 6c 65 74 27 0a 6f 72 20 60 63 6c 2d 6d 61 63 72 6f 6c 65 74 27 20 66 6f 72 6d 73 20 | acrolet'.or.`cl-macrolet'.forms. |
| 268420 | 73 75 72 72 6f 75 6e 64 69 6e 67 20 70 6f 69 6e 74 2c 20 61 73 20 77 65 6c 6c 20 61 73 20 62 79 | surrounding.point,.as.well.as.by |
| 268440 | 20 61 6e 79 20 6d 61 63 72 6f 0a 66 6f 72 6d 73 20 77 68 69 63 68 20 65 78 70 61 6e 64 20 69 6e | .any.macro.forms.which.expand.in |
| 268460 | 74 6f 20 61 20 60 6d 61 63 72 6f 6c 65 74 27 2e 0a 0a 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c | to.a.`macrolet'...The.return.val |
| 268480 | 75 65 20 69 73 20 61 6e 20 61 6c 69 73 74 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 28 4e 41 4d 45 | ue.is.an.alist.of.elements.(NAME |
| 2684a0 | 20 2e 20 46 55 4e 43 54 49 4f 4e 29 2c 20 77 68 65 72 65 0a 4e 41 4d 45 20 69 73 20 74 68 65 20 | ...FUNCTION),.where.NAME.is.the. |
| 2684c0 | 73 79 6d 62 6f 6c 20 6c 6f 63 61 6c 6c 79 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 6d 61 63 72 | symbol.locally.bound.to.the.macr |
| 2684e0 | 6f 20 61 6e 64 20 46 55 4e 43 54 49 4f 4e 20 69 73 20 74 68 65 0a 6c 61 6d 62 64 61 20 65 78 70 | o.and.FUNCTION.is.the.lambda.exp |
| 268500 | 72 65 73 73 69 6f 6e 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 69 74 73 20 65 78 70 61 6e 73 69 | ression.that.returns.its.expansi |
| 268520 | 6f 6e 2e 22 0a 20 20 3b 3b 20 49 66 20 70 6f 69 6e 74 20 69 73 20 6f 6e 20 61 20 6d 61 63 72 6f | on."...;;.If.point.is.on.a.macro |
| 268540 | 20 66 6f 72 6d 20 77 69 74 68 69 6e 20 61 6e 20 65 78 70 61 6e 73 69 6f 6e 20 69 6e 73 65 72 74 | .form.within.an.expansion.insert |
| 268560 | 65 64 20 62 79 0a 20 20 3b 3b 20 60 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 2d 73 65 78 70 | ed.by...;;.`macrostep-print-sexp |
| 268580 | 27 2c 20 61 20 6c 6f 63 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 6d 61 79 20 68 61 76 65 20 | ',.a.local.environment.may.have. |
| 2685a0 | 62 65 65 6e 0a 20 20 3b 3b 20 70 72 65 76 69 6f 75 73 6c 79 20 73 61 76 65 64 20 61 73 20 61 20 | been...;;.previously.saved.as.a. |
| 2685c0 | 74 65 78 74 20 70 72 6f 70 65 72 74 79 2e 0a 20 20 28 6c 65 74 20 28 28 73 61 76 65 64 2d 65 6e | text.property....(let.((saved-en |
| 2685e0 | 76 69 72 6f 6e 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f | vironment..........(get-text-pro |
| 268600 | 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f 6e | perty.(point).'macrostep-environ |
| 268620 | 6d 65 6e 74 29 29 29 0a 20 20 20 20 28 69 66 20 73 61 76 65 64 2d 65 6e 76 69 72 6f 6e 6d 65 6e | ment))).....(if.saved-environmen |
| 268640 | 74 0a 20 20 20 20 20 20 20 20 73 61 76 65 64 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 0a 20 20 20 20 | t.........saved-environment..... |
| 268660 | 20 20 3b 3b 20 4f 74 68 65 72 77 69 73 65 2c 20 77 65 20 28 61 62 29 75 73 65 20 74 68 65 20 6d | ..;;.Otherwise,.we.(ab)use.the.m |
| 268680 | 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 20 74 6f 20 72 65 74 75 72 6e 20 74 68 65 0a 20 20 20 20 | acro-expander.to.return.the..... |
| 2686a0 | 20 20 3b 3b 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 61 74 20 70 6f 69 6e 74 2e 20 20 49 66 20 70 | ..;;.environment.at.point...If.p |
| 2686c0 | 6f 69 6e 74 20 69 73 20 6e 6f 74 20 61 74 20 61 6e 20 65 76 61 6c 75 61 74 65 64 0a 20 20 20 20 | oint.is.not.at.an.evaluated..... |
| 2686e0 | 20 20 3b 3b 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 | ..;;.position.in.the.containing. |
| 268700 | 66 6f 72 6d 2c 0a 20 20 20 20 20 20 3b 3b 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f | form,.......;;.`macrostep-enviro |
| 268720 | 6e 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 2d 31 27 20 77 69 6c 6c 20 72 61 69 73 65 20 61 6e 20 | nment-at-point-1'.will.raise.an. |
| 268740 | 65 72 72 6f 72 2c 20 61 6e 64 0a 20 20 20 20 20 20 3b 3b 20 77 65 20 62 61 63 6b 20 75 70 20 70 | error,.and.......;;.we.back.up.p |
| 268760 | 72 6f 67 72 65 73 73 69 76 65 6c 79 20 74 68 72 6f 75 67 68 20 74 68 65 20 63 6f 6e 74 61 69 6e | rogressively.through.the.contain |
| 268780 | 69 6e 67 20 66 6f 72 6d 73 20 75 6e 74 69 6c 0a 20 20 20 20 20 20 3b 3b 20 69 74 20 73 75 63 63 | ing.forms.until.......;;.it.succ |
| 2687a0 | 65 65 64 73 2e 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 09 28 63 61 | eeds........(save-excursion..(ca |
| 2687c0 | 74 63 68 20 27 64 6f 6e 65 0a 09 20 20 28 77 68 69 6c 65 20 74 0a 09 20 20 20 20 28 63 6f 6e 64 | tch.'done....(while.t......(cond |
| 2687e0 | 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 09 09 28 74 68 72 6f 77 20 27 64 6f 6e 65 20 28 6d | ition-case.nil...(throw.'done.(m |
| 268800 | 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 2d 31 29 | acrostep-environment-at-point-1) |
| 268820 | 29 0a 09 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 67 72 61 62 2d 65 6e 76 69 72 6f 6e | )........(macrostep-grab-environ |
| 268840 | 6d 65 6e 74 2d 66 61 69 6c 65 64 0a 09 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 | ment-failed.........(condition-c |
| 268860 | 61 73 65 20 6e 69 6c 0a 09 09 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 29 0a 09 09 20 | ase.nil......(backward-sexp).... |
| 268880 | 28 73 63 61 6e 2d 65 72 72 6f 72 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 29 29 29 | (scan-error.(backward-up-list))) |
| 2688a0 | 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 | ))))))))..(defun.macrostep-envir |
| 2688c0 | 6f 6e 6d 65 6e 74 2d 61 74 2d 70 6f 69 6e 74 2d 31 20 28 29 0a 20 20 22 41 74 74 65 6d 70 74 20 | onment-at-point-1.()..."Attempt. |
| 2688e0 | 74 6f 20 65 78 74 72 61 63 74 20 74 68 65 20 6d 61 63 72 6f 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 | to.extract.the.macro.environment |
| 268900 | 20 74 68 61 74 20 77 6f 75 6c 64 20 62 65 20 61 63 74 69 76 65 20 61 74 20 70 6f 69 6e 74 2e 0a | .that.would.be.active.at.point.. |
| 268920 | 0a 49 66 20 70 6f 69 6e 74 20 69 73 20 6e 6f 74 20 61 74 20 61 6e 20 65 76 61 6c 75 61 74 65 64 | .If.point.is.not.at.an.evaluated |
| 268940 | 20 70 6f 73 69 74 69 6f 6e 20 77 69 74 68 69 6e 20 74 68 65 20 63 6f 6e 74 61 69 6e 69 6e 67 0a | .position.within.the.containing. |
| 268960 | 66 6f 72 6d 2c 20 72 61 69 73 65 20 61 6e 20 65 72 72 6f 72 2e 22 0a 20 20 3b 3b 20 4d 61 63 72 | form,.raise.an.error."...;;.Macr |
| 268980 | 6f 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 20 61 72 65 20 65 78 74 72 61 63 74 65 64 20 75 73 69 | o.environments.are.extracted.usi |
| 2689a0 | 6e 67 20 45 6d 61 63 73 20 4c 69 73 70 27 73 20 62 75 69 6c 74 69 6e 0a 20 20 3b 3b 20 6d 61 63 | ng.Emacs.Lisp's.builtin...;;.mac |
| 2689c0 | 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 20 6d 61 63 68 69 6e 65 72 79 2e 20 20 54 68 65 20 66 6f 72 | ro-expansion.machinery...The.for |
| 2689e0 | 6d 20 63 6f 6e 74 61 69 6e 69 6e 67 20 70 6f 69 6e 74 20 69 73 20 63 6f 70 69 65 64 0a 20 20 3b | m.containing.point.is.copied...; |
| 268a00 | 3b 20 74 6f 20 61 20 74 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 2c 20 61 6e 64 20 61 20 63 | ;.to.a.temporary.buffer,.and.a.c |
| 268a20 | 61 6c 6c 20 74 6f 0a 20 20 3b 3b 20 60 2d 2d 6d 61 63 72 6f 73 74 65 70 2d 67 72 61 62 2d 65 6e | all.to...;;.`--macrostep-grab-en |
| 268a40 | 76 69 72 6f 6e 6d 65 6e 74 2d 2d 27 20 69 73 20 69 6e 73 65 72 74 65 64 20 61 74 20 70 6f 69 6e | vironment--'.is.inserted.at.poin |
| 268a60 | 74 2e 20 20 54 68 69 73 0a 20 20 3b 3b 20 61 6c 74 65 72 65 64 20 66 6f 72 6d 20 69 73 20 74 68 | t...This...;;.altered.form.is.th |
| 268a80 | 65 6e 20 66 75 6c 6c 79 20 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 64 2c 20 69 6e 20 61 6e 20 65 | en.fully.macro-expanded,.in.an.e |
| 268aa0 | 6e 76 69 72 6f 6e 6d 65 6e 74 0a 20 20 3b 3b 20 77 68 65 72 65 20 60 2d 2d 6d 61 63 72 6f 73 74 | nvironment...;;.where.`--macrost |
| 268ac0 | 65 70 2d 67 72 61 62 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 2d 27 20 69 73 20 64 65 66 69 6e 65 | ep-grab-environment--'.is.define |
| 268ae0 | 64 20 61 73 20 61 20 6d 61 63 72 6f 0a 20 20 3b 3b 20 77 68 69 63 68 20 74 68 72 6f 77 73 20 74 | d.as.a.macro...;;.which.throws.t |
| 268b00 | 68 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 74 6f 20 61 20 75 6e 69 71 75 65 6c 79 2d 67 65 6e | he.environment.to.a.uniquely-gen |
| 268b20 | 65 72 61 74 65 64 20 74 61 67 2e 0a 20 20 28 6c 65 74 2a 20 28 28 70 6f 69 6e 74 2d 61 74 2d 74 | erated.tag....(let*.((point-at-t |
| 268b40 | 6f 70 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 | op-level...........(save-excursi |
| 268b60 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 69 67 6e 6f 72 65 2d 65 72 | on.............(while.(ignore-er |
| 268b80 | 72 6f 72 73 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 29 20 74 29 29 0a 20 20 20 20 | rors.(backward-up-list).t))..... |
| 268ba0 | 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 6e 63 6c | ........(point)))..........(encl |
| 268bc0 | 6f 73 69 6e 67 2d 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 | osing-form...........(buffer-sub |
| 268be0 | 73 74 72 69 6e 67 20 70 6f 69 6e 74 2d 61 74 2d 74 6f 70 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 | string.point-at-top-level....... |
| 268c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 63 61 6e 2d 73 65 78 70 | ......................(scan-sexp |
| 268c20 | 73 20 70 6f 69 6e 74 2d 61 74 2d 74 6f 70 2d 6c 65 76 65 6c 20 31 29 29 29 0a 20 20 20 20 20 20 | s.point-at-top-level.1)))....... |
| 268c40 | 20 20 20 28 70 6f 73 69 74 69 6f 6e 20 28 2d 20 28 70 6f 69 6e 74 29 20 70 6f 69 6e 74 2d 61 74 | ...(position.(-.(point).point-at |
| 268c60 | 2d 74 6f 70 2d 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 61 67 20 28 6d 61 6b 65 | -top-level))..........(tag.(make |
| 268c80 | 2d 73 79 6d 62 6f 6c 20 22 6d 61 63 72 6f 73 74 65 70 2d 67 72 61 62 2d 65 6e 76 69 72 6f 6e 6d | -symbol."macrostep-grab-environm |
| 268ca0 | 65 6e 74 2d 74 61 67 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 67 72 61 62 2d 65 6e 76 69 72 6f | ent-tag"))..........(grab-enviro |
| 268cc0 | 6e 6d 65 6e 74 20 27 2d 2d 6d 61 63 72 6f 73 74 65 70 2d 67 72 61 62 2d 65 6e 76 69 72 6f 6e 6d | nment.'--macrostep-grab-environm |
| 268ce0 | 65 6e 74 2d 2d 29 29 0a 20 20 20 20 28 69 66 20 28 3d 20 70 6f 73 69 74 69 6f 6e 20 30 29 0a 20 | ent--)).....(if.(=.position.0).. |
| 268d00 | 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 | .......nil.......(with-temp-buff |
| 268d20 | 65 72 0a 20 20 20 20 20 20 20 20 28 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 | er.........(emacs-lisp-mode).... |
| 268d40 | 20 20 20 20 20 28 69 6e 73 65 72 74 20 65 6e 63 6c 6f 73 69 6e 67 2d 66 6f 72 6d 29 0a 20 20 20 | .....(insert.enclosing-form).... |
| 268d60 | 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 2b 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 70 | .....(goto-char.(+.(point-min).p |
| 268d80 | 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 20 60 28 2c 67 72 61 62 | osition)).........(prin1.`(,grab |
| 268da0 | 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a | -environment).(current-buffer)). |
| 268dc0 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 20 28 72 65 61 64 20 28 63 6f 70 79 2d | ........(let.((form.(read.(copy- |
| 268de0 | 6d 61 72 6b 65 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | marker.(point-min))))).......... |
| 268e00 | 20 28 63 61 74 63 68 20 74 61 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 65 74 66 | .(catch.tag.............(cl-letf |
| 268e20 | 20 28 28 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 23 27 6d 65 73 73 61 67 65 29 20 28 | .(((symbol-function.#'message).( |
| 268e40 | 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 23 27 66 6f 72 6d 61 74 29 29 29 0a 20 20 20 20 | symbol-function.#'format)))..... |
| 268e60 | 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 6e 6f 2d 77 61 72 6e 69 6e 67 73 0a 20 20 20 20 | ..........(with-no-warnings..... |
| 268e80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 | ............(ignore-errors...... |
| 268ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 0a 20 20 | .............(macroexpand-all... |
| 268ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 63 6c 2d 6d 61 63 72 6f 6c 65 74 20 28 | .................`(cl-macrolet.( |
| 268ee0 | 28 2c 67 72 61 62 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 26 65 6e 76 69 72 6f 6e 6d 65 6e 74 | (,grab-environment.(&environment |
| 268f00 | 20 65 6e 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .env)........................... |
| 268f20 | 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 2c 74 61 67 20 65 6e 76 29 29 29 0a 20 20 | ..........(throw.',tag.env)))... |
| 268f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 66 6f 72 6d 29 29 29 29 29 0a 20 | ....................,form))))).. |
| 268f60 | 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 27 6d 61 63 72 6f 73 74 65 70 2d 67 72 | ...........(signal.'macrostep-gr |
| 268f80 | 61 62 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 66 61 69 6c 65 64 20 6e 69 6c 29 29 29 29 29 29 29 | ab-environment-failed.nil))))))) |
| 268fa0 | 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 65 63 74 2d 6d 61 63 72 6f | ..(defun.macrostep-collect-macro |
| 268fc0 | 2d 66 6f 72 6d 73 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 | -forms.(form.&optional.environme |
| 268fe0 | 6e 74 29 0a 20 20 22 49 64 65 6e 74 69 66 79 20 73 75 62 2d 66 6f 72 6d 73 20 6f 66 20 46 4f 52 | nt)..."Identify.sub-forms.of.FOR |
| 269000 | 4d 20 77 68 69 63 68 20 75 6e 64 65 72 67 6f 20 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 2e | M.which.undergo.macro-expansion. |
| 269020 | 0a 0a 46 4f 52 4d 20 69 73 20 61 6e 20 45 6d 61 63 73 20 4c 69 73 70 20 66 6f 72 6d 2e 20 45 4e | ..FORM.is.an.Emacs.Lisp.form..EN |
| 269040 | 56 49 52 4f 4e 4d 45 4e 54 20 69 73 20 61 20 6c 6f 63 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 | VIRONMENT.is.a.local.environment |
| 269060 | 20 6f 66 0a 6d 61 63 72 6f 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 0a 54 68 65 20 72 65 74 75 | .of.macro.definitions...The.retu |
| 269080 | 72 6e 20 76 61 6c 75 65 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 65 6c 65 6d 65 6e | rn.value.is.a.list.of.two.elemen |
| 2690a0 | 74 73 2c 20 28 4d 41 43 52 4f 2d 46 4f 52 4d 2d 41 4c 49 53 54 0a 43 4f 4d 50 49 4c 45 52 2d 4d | ts,.(MACRO-FORM-ALIST.COMPILER-M |
| 2690c0 | 41 43 52 4f 2d 46 4f 52 4d 53 29 2e 0a 0a 4d 41 43 52 4f 2d 46 4f 52 4d 2d 41 4c 49 53 54 20 69 | ACRO-FORMS)...MACRO-FORM-ALIST.i |
| 2690e0 | 73 20 61 6e 20 61 6c 69 73 74 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 20 66 6f | s.an.alist.of.elements.of.the.fo |
| 269100 | 72 6d 20 28 53 55 42 46 4f 52 4d 0a 2e 20 45 4e 56 49 52 4f 4e 4d 45 4e 54 29 2c 20 77 68 65 72 | rm.(SUBFORM...ENVIRONMENT),.wher |
| 269120 | 65 20 53 55 42 46 4f 52 4d 20 69 73 20 61 20 66 6f 72 6d 20 77 68 69 63 68 20 75 6e 64 65 72 67 | e.SUBFORM.is.a.form.which.underg |
| 269140 | 6f 65 73 0a 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 20 69 6e 20 74 68 65 20 63 6f 75 72 73 | oes.macro-expansion.in.the.cours |
| 269160 | 65 20 6f 66 20 65 78 70 61 6e 64 69 6e 67 20 46 4f 52 4d 2c 20 61 6e 64 20 45 4e 56 49 52 4f 4e | e.of.expanding.FORM,.and.ENVIRON |
| 269180 | 4d 45 4e 54 0a 69 73 20 74 68 65 20 6c 6f 63 61 6c 20 6d 61 63 72 6f 20 65 6e 76 69 72 6f 6e 6d | MENT.is.the.local.macro.environm |
| 2691a0 | 65 6e 74 20 69 6e 20 66 6f 72 63 65 20 77 68 65 6e 20 69 74 20 69 73 20 65 78 70 61 6e 64 65 64 | ent.in.force.when.it.is.expanded |
| 2691c0 | 2e 0a 0a 43 4f 4d 50 49 4c 45 52 2d 4d 41 43 52 4f 2d 46 4f 52 4d 53 20 69 73 20 61 20 6c 69 73 | ...COMPILER-MACRO-FORMS.is.a.lis |
| 2691e0 | 74 20 6f 66 20 73 75 62 66 6f 72 6d 73 20 77 68 69 63 68 20 77 6f 75 6c 64 20 62 65 0a 63 6f 6d | t.of.subforms.which.would.be.com |
| 269200 | 70 69 6c 65 64 20 75 73 69 6e 67 20 61 20 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 2e 20 20 53 | piled.using.a.compiler.macro...S |
| 269220 | 69 6e 63 65 20 74 68 65 72 65 20 69 73 20 6e 6f 20 73 74 61 6e 64 61 72 64 20 77 61 79 0a 74 6f | ince.there.is.no.standard.way.to |
| 269240 | 20 70 72 6f 76 69 64 65 20 61 20 6c 6f 63 61 6c 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 | .provide.a.local.compiler-macro. |
| 269260 | 64 65 66 69 6e 69 74 69 6f 6e 20 69 6e 20 45 6d 61 63 73 20 4c 69 73 70 2c 20 6e 6f 0a 63 6f 72 | definition.in.Emacs.Lisp,.no.cor |
| 269280 | 72 65 73 70 6f 6e 64 69 6e 67 20 6c 6f 63 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 20 61 72 | responding.local.environments.ar |
| 2692a0 | 65 20 63 6f 6c 6c 65 63 74 65 64 20 66 6f 72 20 74 68 65 73 65 2e 0a 0a 46 6f 72 6d 73 20 61 6e | e.collected.for.these...Forms.an |
| 2692c0 | 64 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 20 61 72 65 20 65 78 74 72 61 63 74 65 64 20 66 72 6f | d.environments.are.extracted.fro |
| 2692e0 | 6d 20 46 4f 52 4d 20 62 79 20 69 6e 73 74 72 75 6d 65 6e 74 69 6e 67 0a 45 6d 61 63 73 27 73 20 | m.FORM.by.instrumenting.Emacs's. |
| 269300 | 62 75 69 6c 74 69 6e 20 60 6d 61 63 72 6f 65 78 70 61 6e 64 27 20 66 75 6e 63 74 69 6f 6e 20 61 | builtin.`macroexpand'.function.a |
| 269320 | 6e 64 20 63 61 6c 6c 69 6e 67 0a 60 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c 27 2e 22 0a 20 | nd.calling.`macroexpand-all'.".. |
| 269340 | 20 28 6c 65 74 20 28 28 72 65 61 6c 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 28 69 6e 64 69 72 65 | .(let.((real-macroexpand.(indire |
| 269360 | 63 74 2d 66 75 6e 63 74 69 6f 6e 20 23 27 6d 61 63 72 6f 65 78 70 61 6e 64 29 29 0a 20 20 20 20 | ct-function.#'macroexpand))..... |
| 269380 | 20 20 20 20 28 6d 61 63 72 6f 2d 66 6f 72 6d 2d 61 6c 69 73 74 20 27 28 29 29 0a 20 20 20 20 20 | ....(macro-form-alist.'())...... |
| 2693a0 | 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 27 28 29 29 29 0a 20 | ...(compiler-macro-forms.'())).. |
| 2693c0 | 20 20 20 28 63 6c 2d 6c 65 74 66 0a 20 20 20 20 20 20 20 20 28 28 28 73 79 6d 62 6f 6c 2d 66 75 | ...(cl-letf.........(((symbol-fu |
| 2693e0 | 6e 63 74 69 6f 6e 20 23 27 6d 61 63 72 6f 65 78 70 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 | nction.#'macroexpand)........... |
| 269400 | 28 6c 61 6d 62 64 61 20 28 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 26 72 65 73 74 20 | (lambda.(form.environment.&rest. |
| 269420 | 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 78 70 61 6e 73 69 | args).............(let.((expansi |
| 269440 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 72 65 61 | on....................(apply.rea |
| 269460 | 6c 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 61 | l-macroexpand.form.environment.a |
| 269480 | 72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 | rgs)))...............(cond.((not |
| 2694a0 | 20 28 65 71 20 65 78 70 61 6e 73 69 6f 6e 20 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .(eq.expansion.form))........... |
| 2694c0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 61 63 72 6f 2d 66 6f 72 6d 2d 61 6c 69 73 | ...........(setq.macro-form-alis |
| 2694e0 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | t............................(co |
| 269500 | 6e 73 20 28 63 6f 6e 73 20 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 20 | ns.(cons.form.environment)...... |
| 269520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 63 72 | ............................macr |
| 269540 | 6f 2d 66 6f 72 6d 2d 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o-form-alist)))................. |
| 269560 | 20 20 20 20 28 28 61 6e 64 20 28 63 6f 6e 73 70 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 | ....((and.(consp.form).......... |
| 269580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 70 20 28 63 61 72 20 66 | .................(symbolp.(car.f |
| 2695a0 | 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | orm))........................... |
| 2695c0 | 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 73 | macrostep-expand-compiler-macros |
| 2695e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 | ...........................(not. |
| 269600 | 28 65 71 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (eq.form........................ |
| 269620 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 | ............(cl-compiler-macroex |
| 269640 | 70 61 6e 64 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pand.form))))................... |
| 269660 | 20 20 20 28 73 65 74 71 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 0a 20 20 | ...(setq.compiler-macro-forms... |
| 269680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 66 | .........................(cons.f |
| 2696a0 | 6f 72 6d 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 29 29 29 29 0a 20 20 20 | orm.compiler-macro-forms)))).... |
| 2696c0 | 20 20 20 20 20 20 20 20 20 20 20 65 78 70 61 6e 73 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 28 | ...........expansion)))).......( |
| 2696e0 | 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 65 78 70 61 | ignore-errors.........(macroexpa |
| 269700 | 6e 64 2d 61 6c 6c 20 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 0a 20 20 20 20 28 | nd-all.form.environment))).....( |
| 269720 | 6c 69 73 74 20 6d 61 63 72 6f 2d 66 6f 72 6d 2d 61 6c 69 73 74 20 63 6f 6d 70 69 6c 65 72 2d 6d | list.macro-form-alist.compiler-m |
| 269740 | 61 63 72 6f 2d 66 6f 72 6d 73 29 29 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 | acro-forms)))..(defvar.macrostep |
| 269760 | 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 61 6c 69 73 74 20 6e 69 6c 0a | -collected-macro-form-alist.nil. |
| 269780 | 20 20 22 41 6e 20 61 6c 69 73 74 20 6f 66 20 6d 61 63 72 6f 20 66 6f 72 6d 73 20 61 6e 64 20 65 | .."An.alist.of.macro.forms.and.e |
| 2697a0 | 6e 76 69 72 6f 6e 6d 65 6e 74 73 2e 0a 43 6f 6e 74 72 6f 6c 73 20 74 68 65 20 70 72 69 6e 74 69 | nvironments..Controls.the.printi |
| 2697c0 | 6e 67 20 6f 66 20 73 75 62 2d 66 6f 72 6d 73 20 69 6e 20 60 6d 61 63 72 6f 73 74 65 70 2d 70 72 | ng.of.sub-forms.in.`macrostep-pr |
| 2697e0 | 69 6e 74 2d 73 65 78 70 27 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 63 72 6f 73 74 65 70 2d | int-sexp'.")..(defvar.macrostep- |
| 269800 | 63 6f 6c 6c 65 63 74 65 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 20 6e | collected-compiler-macro-forms.n |
| 269820 | 69 6c 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 | il..."A.list.of.compiler-macro.f |
| 269840 | 6f 72 6d 73 20 74 6f 20 62 65 20 68 69 67 68 6c 69 67 68 74 65 64 20 69 6e 20 60 6d 61 63 72 6f | orms.to.be.highlighted.in.`macro |
| 269860 | 73 74 65 70 2d 70 72 69 6e 74 2d 73 65 78 70 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 | step-print-sexp'.")..(defun.macr |
| 269880 | 6f 73 74 65 70 2d 70 70 20 28 73 65 78 70 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 22 50 | ostep-pp.(sexp.environment)..."P |
| 2698a0 | 72 65 74 74 79 2d 70 72 69 6e 74 20 53 45 58 50 2c 20 66 6f 6e 74 69 66 79 69 6e 67 20 6d 61 63 | retty-print.SEXP,.fontifying.mac |
| 2698c0 | 72 6f 20 66 6f 72 6d 73 20 61 6e 64 20 75 6e 69 6e 74 65 72 6e 65 64 20 73 79 6d 62 6f 6c 73 2e | ro.forms.and.uninterned.symbols. |
| 2698e0 | 22 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 0a 20 20 20 20 20 | "...(cl-destructuring-bind...... |
| 269900 | 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f | ...(macrostep-collected-macro-fo |
| 269920 | 72 6d 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c | rm-alist..........macrostep-coll |
| 269940 | 65 63 74 65 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 29 0a 20 20 20 20 | ected-compiler-macro-forms)..... |
| 269960 | 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 65 63 74 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 | ..(macrostep-collect-macro-forms |
| 269980 | 20 73 65 78 70 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 72 | .sexp.environment).....(let.((pr |
| 2699a0 | 69 6e 74 2d 71 75 6f 74 65 64 20 74 29 29 0a 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d | int-quoted.t)).......(macrostep- |
| 2699c0 | 70 72 69 6e 74 2d 73 65 78 70 20 73 65 78 70 29 0a 20 20 20 20 20 20 3b 3b 20 50 6f 69 6e 74 20 | print-sexp.sexp).......;;.Point. |
| 2699e0 | 69 73 20 6e 6f 77 20 61 66 74 65 72 20 74 68 65 20 65 78 70 61 6e 64 65 64 20 66 6f 72 6d 3b 20 | is.now.after.the.expanded.form;. |
| 269a00 | 70 72 65 74 74 79 2d 70 72 69 6e 74 20 69 74 0a 20 20 20 20 20 20 28 73 61 76 65 2d 72 65 73 74 | pretty-print.it.......(save-rest |
| 269a20 | 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f | riction.........(narrow-to-regio |
| 269a40 | 6e 20 28 73 63 61 6e 2d 73 65 78 70 73 20 28 70 6f 69 6e 74 29 20 2d 31 29 20 28 70 6f 69 6e 74 | n.(scan-sexps.(point).-1).(point |
| 269a60 | 29 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 | )).........(save-excursion...... |
| 269a80 | 20 20 20 20 20 28 70 70 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 52 65 | .....(pp-buffer)...........;;.Re |
| 269aa0 | 6d 6f 76 65 20 74 68 65 20 65 78 74 72 61 20 6e 65 77 6c 69 6e 65 20 69 6e 73 65 72 74 65 64 20 | move.the.extra.newline.inserted. |
| 269ac0 | 62 79 20 70 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 | by.pp-buffer...........(goto-cha |
| 269ae0 | 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 | r.(point-max))...........(delete |
| 269b00 | 2d 72 65 67 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 | -region............(point)...... |
| 269b20 | 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 73 6b 69 70 2d 63 68 61 72 | ......(save-excursion.(skip-char |
| 269b40 | 73 2d 62 61 63 6b 77 61 72 64 20 22 20 5c 74 5c 6e 22 29 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 | s-backward.".\t\n").(point)))).. |
| 269b60 | 20 20 20 20 20 20 20 3b 3b 20 49 6e 64 65 6e 74 20 74 68 65 20 6e 65 77 6c 79 2d 69 6e 73 65 72 | .......;;.Indent.the.newly-inser |
| 269b80 | 74 65 64 20 66 6f 72 6d 20 69 6e 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 28 77 69 64 | ted.form.in.context.........(wid |
| 269ba0 | 65 6e 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 | en).........(save-excursion..... |
| 269bc0 | 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 | ......(backward-sexp)........... |
| 269be0 | 28 69 6e 64 65 6e 74 2d 73 65 78 70 29 29 29 29 29 29 0a 0a 3b 3b 20 54 68 69 73 20 6d 75 73 74 | (indent-sexp))))))..;;.This.must |
| 269c00 | 20 62 65 20 64 65 66 69 6e 65 64 20 62 65 66 6f 72 65 20 60 6d 61 63 72 6f 73 74 65 70 2d 70 72 | .be.defined.before.`macrostep-pr |
| 269c20 | 69 6e 74 2d 73 65 78 70 27 3a 0a 28 64 65 66 6d 61 63 72 6f 20 6d 61 63 72 6f 73 74 65 70 2d 70 | int-sexp':.(defmacro.macrostep-p |
| 269c40 | 72 6f 70 65 72 74 69 7a 65 20 28 66 6f 72 6d 20 26 72 65 73 74 20 70 6c 69 73 74 29 0a 20 20 22 | ropertize.(form.&rest.plist)..." |
| 269c60 | 45 76 61 6c 75 61 74 65 20 46 4f 52 4d 2c 20 61 70 70 6c 79 69 6e 67 20 73 79 6e 74 61 78 20 70 | Evaluate.FORM,.applying.syntax.p |
| 269c80 | 72 6f 70 65 72 74 69 65 73 20 69 6e 20 50 4c 49 53 54 20 74 6f 20 61 6e 79 20 69 6e 73 65 72 74 | roperties.in.PLIST.to.any.insert |
| 269ca0 | 65 64 20 74 65 78 74 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 0a | ed.text."...(declare.(indent.1). |
| 269cc0 | 20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 20 28 26 72 65 73 74 20 66 6f 72 6d 29 29 29 | ...........(debug.(&rest.form))) |
| 269ce0 | 0a 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 73 74 | ...(let.((start.(make-symbol."st |
| 269d00 | 61 72 74 22 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 73 74 61 72 74 20 28 70 6f 69 6e | art"))).....`(let.((,start.(poin |
| 269d20 | 74 29 29 29 0a 20 20 20 20 20 20 20 28 70 72 6f 67 31 0a 20 20 20 20 20 20 20 20 20 20 20 2c 66 | t)))........(prog1............,f |
| 269d40 | 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 2c 40 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6b 65 79 | orm..........,@(cl-loop.for.(key |
| 269d60 | 20 76 61 6c 75 65 29 20 6f 6e 20 70 6c 69 73 74 20 62 79 20 23 27 63 64 64 72 0a 20 20 20 20 20 | .value).on.plist.by.#'cddr...... |
| 269d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 60 28 70 75 74 2d 74 65 78 | ...............collect.`(put-tex |
| 269da0 | 74 2d 70 72 6f 70 65 72 74 79 20 2c 73 74 61 72 74 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 | t-property.,start.(point)....... |
| 269dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 269de0 | 20 20 20 20 20 20 20 20 20 20 2c 6b 65 79 20 2c 76 61 6c 75 65 29 29 29 29 29 29 0a 0a 28 64 65 | ..........,key.,value))))))..(de |
| 269e00 | 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 2d 73 65 78 70 20 28 73 65 78 70 29 0a | fun.macrostep-print-sexp.(sexp). |
| 269e20 | 20 20 22 49 6e 73 65 72 74 20 53 45 58 50 20 6c 69 6b 65 20 60 70 72 69 6e 74 27 2c 20 66 6f 6e | .."Insert.SEXP.like.`print',.fon |
| 269e40 | 74 69 66 79 69 6e 67 20 6d 61 63 72 6f 20 66 6f 72 6d 73 20 61 6e 64 20 75 6e 69 6e 74 65 72 6e | tifying.macro.forms.and.unintern |
| 269e60 | 65 64 20 73 79 6d 62 6f 6c 73 2e 0a 0a 46 6f 6e 74 69 66 69 65 73 20 75 6e 69 6e 74 65 72 6e 65 | ed.symbols...Fontifies.uninterne |
| 269e80 | 64 20 73 79 6d 62 6f 6c 73 20 61 6e 64 20 6d 61 63 72 6f 20 66 6f 72 6d 73 20 75 73 69 6e 67 0a | d.symbols.and.macro.forms.using. |
| 269ea0 | 60 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 61 63 65 27 20 70 72 6f 70 65 72 74 79 2c 20 61 6e 64 20 73 | `font-lock-face'.property,.and.s |
| 269ec0 | 61 76 65 73 20 74 68 65 20 61 63 74 75 61 6c 20 74 65 78 74 20 6f 66 20 53 45 58 50 27 73 0a 73 | aves.the.actual.text.of.SEXP's.s |
| 269ee0 | 75 62 2d 66 6f 72 6d 73 20 61 73 20 74 68 65 20 60 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e | ub-forms.as.the.`macrostep-expan |
| 269f00 | 64 65 64 2d 74 65 78 74 27 20 74 65 78 74 20 70 72 6f 70 65 72 74 79 20 73 6f 20 74 68 61 74 0a | ded-text'.text.property.so.that. |
| 269f20 | 61 6e 79 20 75 6e 69 6e 74 65 72 6e 65 64 20 73 79 6d 62 6f 6c 73 20 63 61 6e 20 62 65 20 72 65 | any.uninterned.symbols.can.be.re |
| 269f40 | 75 73 65 64 20 69 6e 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 73 20 6f 66 20 74 68 65 0a | used.in.macro.expansions.of.the. |
| 269f60 | 73 75 62 2d 66 6f 72 6d 73 2e 20 20 53 65 65 20 61 6c 73 6f 20 60 6d 61 63 72 6f 73 74 65 70 2d | sub-forms...See.also.`macrostep- |
| 269f80 | 73 65 78 70 2d 61 74 2d 70 6f 69 6e 74 27 2e 0a 0a 4d 61 63 72 6f 20 61 6e 64 20 63 6f 6d 70 69 | sexp-at-point'...Macro.and.compi |
| 269fa0 | 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 6d 73 20 77 69 74 68 69 6e 20 53 45 58 50 20 61 72 65 20 | ler-macro.forms.within.SEXP.are. |
| 269fc0 | 69 64 65 6e 74 69 66 69 65 64 20 62 79 0a 63 6f 6d 70 61 72 69 73 6f 6e 20 77 69 74 68 20 74 68 | identified.by.comparison.with.th |
| 269fe0 | 65 20 60 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 | e.`macrostep-collected-macro-for |
| 26a000 | 6d 2d 61 6c 69 73 74 27 20 61 6e 64 0a 60 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 65 63 74 65 | m-alist'.and.`macrostep-collecte |
| 26a020 | 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 27 20 76 61 72 69 61 62 6c 65 | d-compiler-macro-forms'.variable |
| 26a040 | 73 2c 20 77 68 69 63 68 0a 73 68 6f 75 6c 64 20 62 65 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 6c | s,.which.should.be.dynamically.l |
| 26a060 | 65 74 2d 62 6f 75 6e 64 20 61 72 6f 75 6e 64 20 63 61 6c 6c 73 20 74 6f 20 74 68 69 73 20 66 75 | et-bound.around.calls.to.this.fu |
| 26a080 | 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 73 79 6d 62 6f 6c 70 20 73 65 | nction."...(cond....((symbolp.se |
| 26a0a0 | 78 70 29 0a 20 20 20 20 3b 3b 20 46 6f 6e 74 69 66 79 20 67 65 6e 73 79 6d 73 0a 20 20 20 20 28 | xp).....;;.Fontify.gensyms.....( |
| 26a0c0 | 69 66 20 28 6e 6f 74 20 28 65 71 20 73 65 78 70 20 28 69 6e 74 65 72 6e 2d 73 6f 66 74 20 28 73 | if.(not.(eq.sexp.(intern-soft.(s |
| 26a0e0 | 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 65 78 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 6d 61 63 | ymbol-name.sexp)))).........(mac |
| 26a100 | 72 6f 73 74 65 70 2d 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | rostep-propertize.............(p |
| 26a120 | 72 69 6e 31 20 73 65 78 70 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 | rin1.sexp.(current-buffer))..... |
| 26a140 | 20 20 20 20 20 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 61 63 65 20 28 6d 61 63 72 6f 73 74 65 70 | ......'font-lock-face.(macrostep |
| 26a160 | 2d 67 65 74 2d 67 65 6e 73 79 6d 2d 66 61 63 65 20 73 65 78 70 29 29 0a 20 20 20 20 20 20 3b 3b | -get-gensym-face.sexp)).......;; |
| 26a180 | 20 50 72 69 6e 74 20 6f 74 68 65 72 20 73 79 6d 62 6f 6c 73 20 61 73 20 6e 6f 72 6d 61 6c 0a 20 | .Print.other.symbols.as.normal.. |
| 26a1a0 | 20 20 20 20 20 28 70 72 69 6e 31 20 73 65 78 70 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 | .....(prin1.sexp.(current-buffer |
| 26a1c0 | 29 29 29 29 0a 0a 20 20 20 28 28 6c 69 73 74 70 20 73 65 78 70 29 0a 20 20 20 20 3b 3b 20 50 72 | )))).....((listp.sexp).....;;.Pr |
| 26a1e0 | 69 6e 74 20 71 75 6f 74 65 64 20 61 6e 64 20 71 75 61 73 69 71 75 6f 74 65 64 20 66 6f 72 6d 73 | int.quoted.and.quasiquoted.forms |
| 26a200 | 20 6e 69 63 65 6c 79 2e 0a 20 20 20 20 28 6c 65 74 20 28 28 68 65 61 64 20 28 63 61 72 20 73 65 | .nicely......(let.((head.(car.se |
| 26a220 | 78 70 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 65 71 20 68 65 61 64 | xp))).......(cond.((and.(eq.head |
| 26a240 | 20 27 71 75 6f 74 65 29 09 3b 20 71 75 6f 74 65 0a 09 09 20 20 28 3d 20 28 6c 65 6e 67 74 68 20 | .'quote).;.quote.....(=.(length. |
| 26a260 | 73 65 78 70 29 20 32 29 29 0a 09 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 27 22 29 0a 09 20 20 | sexp).2)).......(insert."'").... |
| 26a280 | 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 2d 73 65 78 70 20 28 63 61 64 72 20 73 | ...(macrostep-print-sexp.(cadr.s |
| 26a2a0 | 65 78 70 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 65 71 20 68 65 | exp)))..............((and.(eq.he |
| 26a2c0 | 61 64 20 27 5c 60 29 20 20 20 20 20 20 20 20 20 3b 20 62 61 63 6b 71 75 6f 74 65 0a 20 20 20 20 | ad.'\`).........;.backquote..... |
| 26a2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6c 65 6e 67 74 68 20 73 65 78 70 29 20 32 | ..............(=.(length.sexp).2 |
| 26a300 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 73 73 71 20 73 65 78 70 20 6d | ))..............(if.(assq.sexp.m |
| 26a320 | 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 61 6c | acrostep-collected-macro-form-al |
| 26a340 | 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 | ist)..................(macrostep |
| 26a360 | 2d 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -propertize..................... |
| 26a380 | 20 28 69 6e 73 65 72 74 20 22 60 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(insert."`")................... |
| 26a3a0 | 20 27 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 65 64 2d 74 65 78 74 20 73 65 78 70 0a 20 | .'macrostep-expanded-text.sexp.. |
| 26a3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 | ..................'macrostep-mac |
| 26a3e0 | 72 6f 2d 73 74 61 72 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 | ro-start.t....................'f |
| 26a400 | 6f 6e 74 2d 6c 6f 63 6b 2d 66 61 63 65 20 27 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 | ont-lock-face.'macrostep-macro-f |
| 26a420 | 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 60 22 29 | ace)................(insert."`") |
| 26a440 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 2d | )..............(macrostep-print- |
| 26a460 | 73 65 78 70 20 28 63 61 64 72 20 73 65 78 70 29 29 29 0a 0a 09 20 20 20 20 28 28 61 6e 64 20 28 | sexp.(cadr.sexp))).......((and.( |
| 26a480 | 6d 65 6d 71 20 68 65 61 64 20 27 28 5c 2c 20 5c 2c 40 29 29 20 3b 20 75 6e 71 75 6f 74 65 0a 09 | memq.head.'(\,.\,@)).;.unquote.. |
| 26a4a0 | 09 20 20 28 3d 20 28 6c 65 6e 67 74 68 20 73 65 78 70 29 20 32 29 29 0a 09 20 20 20 20 20 28 70 | ...(=.(length.sexp).2)).......(p |
| 26a4c0 | 72 69 6e 63 20 68 65 61 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 09 20 20 20 | rinc.head.(current-buffer))..... |
| 26a4e0 | 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 2d 73 65 78 70 20 28 63 61 64 72 20 73 65 | ..(macrostep-print-sexp.(cadr.se |
| 26a500 | 78 70 29 29 29 0a 0a 09 20 20 20 20 28 74 09 09 09 09 3b 20 6f 74 68 65 72 20 6c 69 73 74 20 66 | xp))).......(t....;.other.list.f |
| 26a520 | 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 | orm..............(cl-destructuri |
| 26a540 | 6e 67 2d 62 69 6e 64 20 28 6d 61 63 72 6f 3f 20 2e 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 | ng-bind.(macro?...environment).. |
| 26a560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 61 73 73 71 20 73 65 78 70 20 6d | ................(or.(assq.sexp.m |
| 26a580 | 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 65 63 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 2d 61 6c | acrostep-collected-macro-form-al |
| 26a5a0 | 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 6e 69 6c 20 | ist)......................'(nil. |
| 26a5c0 | 2e 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 0a 20 20 20 20 | ..nil))................(let..... |
| 26a5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 3f | ...............((compiler-macro? |
| 26a600 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 71 20 73 65 78 70 | ......................(memq.sexp |
| 26a620 | 20 6d 61 63 72 6f 73 74 65 70 2d 63 6f 6c 6c 65 63 74 65 64 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 | .macrostep-collected-compiler-ma |
| 26a640 | 63 72 6f 2d 66 6f 72 6d 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | cro-forms)))..................(i |
| 26a660 | 66 20 28 6f 72 20 6d 61 63 72 6f 3f 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 3f 29 0a 20 20 | f.(or.macro?.compiler-macro?)... |
| 26a680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 | ...................(progn....... |
| 26a6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 61 76 65 20 74 68 65 20 72 65 61 | .................;;.Save.the.rea |
| 26a6c0 | 6c 20 65 78 70 61 6e 73 69 6f 6e 20 61 73 20 61 20 74 65 78 74 20 70 72 6f 70 65 72 74 79 20 6f | l.expansion.as.a.text.property.o |
| 26a6e0 | 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | n.the........................;;. |
| 26a700 | 6f 70 65 6e 69 6e 67 20 70 61 72 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | opening.paren................... |
| 26a720 | 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 | .....(macrostep-propertize...... |
| 26a740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 28 22 29 0a | ...................(insert."("). |
| 26a760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 61 63 72 6f 73 74 | ........................'macrost |
| 26a780 | 65 70 2d 6d 61 63 72 6f 2d 73 74 61 72 74 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ep-macro-start.t................ |
| 26a7a0 | 20 20 20 20 20 20 20 20 20 27 6d 61 63 72 6f 73 74 65 70 2d 65 78 70 61 6e 64 65 64 2d 74 65 78 | .........'macrostep-expanded-tex |
| 26a7c0 | 74 20 73 65 78 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | t.sexp.........................' |
| 26a7e0 | 6d 61 63 72 6f 73 74 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e | macrostep-environment.environmen |
| 26a800 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 6f 6e | t)........................;;.Fon |
| 26a820 | 74 69 66 79 20 74 68 65 20 68 65 61 64 20 6f 66 20 74 68 65 20 6d 61 63 72 6f 0a 20 20 20 20 20 | tify.the.head.of.the.macro...... |
| 26a840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 70 72 6f | ..................(macrostep-pro |
| 26a860 | 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pertize......................... |
| 26a880 | 28 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 2d 73 65 78 70 20 68 65 61 64 29 0a 20 20 20 20 | (macrostep-print-sexp.head)..... |
| 26a8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 | ....................'font-lock-f |
| 26a8c0 | 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | ace.........................(if. |
| 26a8e0 | 6d 61 63 72 6f 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | macro?.......................... |
| 26a900 | 20 20 20 27 6d 61 63 72 6f 73 74 65 70 2d 6d 61 63 72 6f 2d 66 61 63 65 0a 20 20 20 20 20 20 20 | ...'macrostep-macro-face........ |
| 26a920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 61 63 72 6f 73 74 65 70 2d 63 6f | ...................'macrostep-co |
| 26a940 | 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | mpiler-macro-face)))............ |
| 26a960 | 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 74 20 61 20 6d 61 63 72 6f 20 66 6f 72 6d 0a 20 20 20 20 | ........;;.Not.a.macro.form..... |
| 26a980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 28 22 29 0a 20 20 20 20 | ...............(insert."(")..... |
| 26a9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 2d | ...............(macrostep-print- |
| 26a9c0 | 73 65 78 70 20 68 65 61 64 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 50 | sexp.head))))...............;;.P |
| 26a9e0 | 72 69 6e 74 20 72 65 6d 61 69 6e 69 6e 67 20 6c 69 73 74 20 65 6c 65 6d 65 6e 74 73 0a 20 20 20 | rint.remaining.list.elements.... |
| 26aa00 | 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 65 78 70 20 28 63 64 72 20 73 65 78 70 29 29 | ..........(setq.sexp.(cdr.sexp)) |
| 26aa20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 65 78 70 20 28 69 6e 73 65 72 74 | ..............(when.sexp.(insert |
| 26aa40 | 20 22 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 73 65 78 70 0a | ."."))..............(while.sexp. |
| 26aa60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 20 73 65 78 70 29 0a | ...............(if.(listp.sexp). |
| 26aa80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 | ...................(progn....... |
| 26aaa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 2d | ...............(macrostep-print- |
| 26aac0 | 73 65 78 70 20 28 63 61 72 20 73 65 78 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sexp.(car.sexp))................ |
| 26aae0 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 64 72 20 73 65 78 70 29 20 28 69 6e 73 65 72 74 20 22 | ......(when.(cdr.sexp).(insert." |
| 26ab00 | 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | ."))......................(setq. |
| 26ab20 | 73 65 78 70 20 28 63 64 72 20 73 65 78 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sexp.(cdr.sexp)))............... |
| 26ab40 | 20 20 20 3b 3b 20 50 72 69 6e 74 20 74 61 69 6c 20 6f 66 20 64 6f 74 74 65 64 20 6c 69 73 74 0a | ...;;.Print.tail.of.dotted.list. |
| 26ab60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 2e 20 22 29 0a 20 | .................(insert."..").. |
| 26ab80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 73 74 65 70 2d 70 72 69 6e 74 | ................(macrostep-print |
| 26aba0 | 2d 73 65 78 70 20 73 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | -sexp.sexp)..................(se |
| 26abc0 | 74 71 20 73 65 78 70 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 | tq.sexp.nil)))..............(ins |
| 26abe0 | 65 72 74 20 22 29 22 29 29 29 29 29 0a 0a 20 20 20 3b 3b 20 50 72 69 6e 74 20 65 76 65 72 79 74 | ert.")"))))).....;;.Print.everyt |
| 26ac00 | 68 69 6e 67 20 65 78 63 65 70 74 20 73 79 6d 62 6f 6c 73 20 61 6e 64 20 6c 69 73 74 73 20 61 73 | hing.except.symbols.and.lists.as |
| 26ac20 | 20 6e 6f 72 6d 61 6c 0a 20 20 20 28 74 20 28 70 72 69 6e 31 20 73 65 78 70 20 28 63 75 72 72 65 | .normal....(t.(prin1.sexp.(curre |
| 26ac40 | 6e 74 2d 62 75 66 66 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 73 74 65 70 | nt-buffer)))))..(defun.macrostep |
| 26ac60 | 2d 67 65 74 2d 67 65 6e 73 79 6d 2d 66 61 63 65 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 52 65 74 | -get-gensym-face.(symbol)..."Ret |
| 26ac80 | 75 72 6e 20 74 68 65 20 66 61 63 65 20 74 6f 20 75 73 65 20 69 6e 20 66 6f 6e 74 69 66 79 69 6e | urn.the.face.to.use.in.fontifyin |
| 26aca0 | 67 20 53 59 4d 42 4f 4c 20 69 6e 20 70 72 69 6e 74 65 64 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 | g.SYMBOL.in.printed.macro.expans |
| 26acc0 | 69 6f 6e 73 2e 0a 0a 41 6c 6c 20 73 79 6d 62 6f 6c 73 20 69 6e 74 72 6f 64 75 63 65 64 20 69 6e | ions...All.symbols.introduced.in |
| 26ace0 | 20 74 68 65 20 73 61 6d 65 20 6c 65 76 65 6c 20 6f 66 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 | .the.same.level.of.macro.expansi |
| 26ad00 | 6f 6e 20 61 72 65 0a 66 6f 6e 74 69 66 69 65 64 20 75 73 69 6e 67 20 74 68 65 20 73 61 6d 65 20 | on.are.fontified.using.the.same. |
| 26ad20 | 66 61 63 65 20 28 6d 6f 64 75 6c 6f 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 66 61 63 65 73 | face.(modulo.the.number.of.faces |
| 26ad40 | 3b 20 73 65 65 0a 60 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 66 61 63 65 73 27 29 2e | ;.see.`macrostep-gensym-faces'). |
| 26ad60 | 22 0a 20 20 28 6f 72 20 28 67 65 74 20 73 79 6d 62 6f 6c 20 27 6d 61 63 72 6f 73 74 65 70 2d 67 | "...(or.(get.symbol.'macrostep-g |
| 26ad80 | 65 6e 73 79 6d 2d 66 61 63 65 29 0a 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 09 28 69 66 20 28 6e | ensym-face).......(progn..(if.(n |
| 26ada0 | 6f 74 20 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 73 2d 74 68 69 73 2d 6c 65 76 65 6c 29 | ot.macrostep-gensyms-this-level) |
| 26adc0 | 0a 09 20 20 20 20 28 73 65 74 71 20 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 64 65 70 | ......(setq.macrostep-gensym-dep |
| 26ade0 | 74 68 20 28 31 2b 20 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 64 65 70 74 68 29 0a 09 | th.(1+.macrostep-gensym-depth).. |
| 26ae00 | 09 20 20 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 79 6d 73 2d 74 68 69 73 2d 6c 65 76 65 6c 20 | ...macrostep-gensyms-this-level. |
| 26ae20 | 74 29 29 0a 09 28 6c 65 74 20 28 28 66 61 63 65 20 28 72 69 6e 67 2d 72 65 66 20 6d 61 63 72 6f | t))..(let.((face.(ring-ref.macro |
| 26ae40 | 73 74 65 70 2d 67 65 6e 73 79 6d 2d 66 61 63 65 73 20 6d 61 63 72 6f 73 74 65 70 2d 67 65 6e 73 | step-gensym-faces.macrostep-gens |
| 26ae60 | 79 6d 2d 64 65 70 74 68 29 29 29 0a 09 20 20 28 70 75 74 20 73 79 6d 62 6f 6c 20 27 6d 61 63 72 | ym-depth)))....(put.symbol.'macr |
| 26ae80 | 6f 73 74 65 70 2d 67 65 6e 73 79 6d 2d 66 61 63 65 20 66 61 63 65 29 0a 09 20 20 66 61 63 65 29 | ostep-gensym-face.face)....face) |
| 26aea0 | 29 29 29 0a 0a 0c 0a 28 70 72 6f 76 69 64 65 20 27 6d 61 63 72 6f 73 74 65 70 29 0a 0a 3b 3b 3b | )))....(provide.'macrostep)..;;; |
| 26aec0 | 20 6d 61 63 72 6f 73 74 65 70 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 | .macrostep.el.ends.here......... |
| 26aee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26af00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26af20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26af40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26af60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26af80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26afa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26afc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26afe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 6c 69 62 2f 68 79 70 65 72 73 70 65 63 2e 65 6c 00 00 00 00 00 | slime-2.31/lib/hyperspec.el..... |
| 26b020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 26b080 | 30 32 37 30 34 30 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 33 30 37 00 20 30 00 00 00 | 0270403.00000000000.014307..0... |
| 26b0a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b0c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b0e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 26b120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 26b140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26b200 | 3b 3b 3b 20 68 79 70 65 72 73 70 65 63 2e 65 6c 20 2d 2d 2d 20 42 72 6f 77 73 65 20 64 6f 63 75 | ;;;.hyperspec.el.---.Browse.docu |
| 26b220 | 6d 65 6e 74 61 74 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 48 | mentation.from.the.Common.Lisp.H |
| 26b240 | 79 70 65 72 53 70 65 63 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 31 39 39 37 20 4e 61 67 67 | yperSpec..;;.Copyright.1997.Nagg |
| 26b260 | 75 6d 20 53 6f 66 74 77 61 72 65 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 45 72 69 6b 20 4e 61 67 | um.Software..;;.Author:.Erik.Nag |
| 26b280 | 67 75 6d 20 3c 65 72 69 6b 40 6e 61 67 67 75 6d 2e 6e 6f 3e 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 | gum.<erik@naggum.no>.;;.Keywords |
| 26b2a0 | 3a 20 6c 69 73 70 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 70 61 72 74 | :.lisp..;;.This.file.is.not.part |
| 26b2c0 | 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2c 20 62 75 74 20 64 69 73 74 72 69 62 75 74 65 64 20 75 | .of.GNU.Emacs,.but.distributed.u |
| 26b2e0 | 6e 64 65 72 20 74 68 65 20 73 61 6d 65 0a 3b 3b 20 63 6f 6e 64 69 74 69 6f 6e 73 20 61 73 20 47 | nder.the.same.;;.conditions.as.G |
| 26b300 | 4e 55 20 45 6d 61 63 73 2c 20 61 6e 64 20 69 73 20 75 73 65 6c 65 73 73 20 77 69 74 68 6f 75 74 | NU.Emacs,.and.is.useless.without |
| 26b320 | 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 47 4e 55 20 45 6d 61 63 73 20 69 73 20 66 72 65 | .GNU.Emacs...;;.GNU.Emacs.is.fre |
| 26b340 | 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 | e.software;.you.can.redistribute |
| 26b360 | 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 | .it.and/or.modify.;;.it.under.th |
| 26b380 | 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 | e.terms.of.the.GNU.General.Publi |
| 26b3a0 | 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 | c.License.as.published.by.;;.the |
| 26b3c0 | 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69 74 68 65 | .Free.Software.Foundation;.eithe |
| 26b3e0 | 72 20 76 65 72 73 69 6f 6e 20 32 2c 20 6f 72 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 | r.version.2,.or.(at.your.option) |
| 26b400 | 0a 3b 3b 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 47 4e 55 20 45 | .;;.any.later.version...;;.GNU.E |
| 26b420 | 6d 61 63 73 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 | macs.is.distributed.in.the.hope. |
| 26b440 | 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 | that.it.will.be.useful,.;;.but.W |
| 26b460 | 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 | ITHOUT.ANY.WARRANTY;.without.eve |
| 26b480 | 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 | n.the.implied.warranty.of.;;.MER |
| 26b4a0 | 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 | CHANTABILITY.or.FITNESS.FOR.A.PA |
| 26b4c0 | 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e | RTICULAR.PURPOSE...See.the.;;.GN |
| 26b4e0 | 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 | U.General.Public.License.for.mor |
| 26b500 | 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 | e.details...;;.You.should.have.r |
| 26b520 | 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 | eceived.a.copy.of.the.GNU.Genera |
| 26b540 | 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 47 | l.Public.License.;;.along.with.G |
| 26b560 | 4e 55 20 45 6d 61 63 73 3b 20 73 65 65 20 74 68 65 20 66 69 6c 65 20 43 4f 50 59 49 4e 47 2e 20 | NU.Emacs;.see.the.file.COPYING.. |
| 26b580 | 20 49 66 20 6e 6f 74 2c 20 77 72 69 74 65 20 74 6f 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f | .If.not,.write.to.;;.the.Free.So |
| 26b5a0 | 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 54 65 6d 70 | ftware.Foundation,.Inc.,.59.Temp |
| 26b5c0 | 6c 65 20 50 6c 61 63 65 20 2d 20 53 75 69 74 65 20 33 33 30 2c 0a 3b 3b 20 42 6f 73 74 6f 6e 2c | le.Place.-.Suite.330,.;;.Boston, |
| 26b5e0 | 20 4d 41 20 30 32 31 31 31 2d 31 33 30 37 2c 20 55 53 41 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e | .MA.02111-1307,.USA...;;;.Commen |
| 26b600 | 74 61 72 79 3a 0a 0a 3b 3b 20 4b 65 6e 74 20 50 69 74 6d 61 6e 20 61 6e 64 20 58 61 6e 61 6c 79 | tary:..;;.Kent.Pitman.and.Xanaly |
| 26b620 | 73 20 49 6e 63 2e 20 68 61 76 65 20 6d 61 64 65 20 74 68 65 20 74 65 78 74 20 6f 66 20 41 6d 65 | s.Inc..have.made.the.text.of.Ame |
| 26b640 | 72 69 63 61 6e 20 4e 61 74 69 6f 6e 61 6c 0a 3b 3b 20 53 74 61 6e 64 61 72 64 20 66 6f 72 20 49 | rican.National.;;.Standard.for.I |
| 26b660 | 6e 66 6f 72 6d 61 74 69 6f 6e 20 54 65 63 68 6e 6f 6c 6f 67 79 20 2d 2d 20 50 72 6f 67 72 61 6d | nformation.Technology.--.Program |
| 26b680 | 6d 69 6e 67 20 4c 61 6e 67 75 61 67 65 20 2d 2d 20 43 6f 6d 6d 6f 6e 0a 3b 3b 20 4c 69 73 70 2c | ming.Language.--.Common.;;.Lisp, |
| 26b6a0 | 20 41 4e 53 49 20 58 33 2e 32 32 36 2d 31 39 39 34 20 61 76 61 69 6c 61 62 6c 65 20 6f 6e 20 74 | .ANSI.X3.226-1994.available.on.t |
| 26b6c0 | 68 65 20 57 57 57 2c 20 69 6e 20 74 68 65 20 66 6f 72 6d 20 6f 66 20 74 68 65 20 43 6f 6d 6d 6f | he.WWW,.in.the.form.of.the.Commo |
| 26b6e0 | 6e 0a 3b 3b 20 4c 69 73 70 20 48 79 70 65 72 53 70 65 63 2e 20 20 54 68 69 73 20 70 61 63 6b 61 | n.;;.Lisp.HyperSpec...This.packa |
| 26b700 | 67 65 20 6d 61 6b 65 73 20 69 74 20 63 6f 6e 76 65 6e 69 65 6e 74 20 74 6f 20 70 65 72 75 73 65 | ge.makes.it.convenient.to.peruse |
| 26b720 | 20 74 68 69 73 0a 3b 3b 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 72 6f 6d 20 77 69 74 68 | .this.;;.documentation.from.with |
| 26b740 | 69 6e 20 45 6d 61 63 73 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 | in.Emacs...;;;.Code:..(require.' |
| 26b760 | 63 6c 2d 6c 69 62 20 6e 69 6c 20 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 20 22 | cl-lib.nil.t).(require.'cl-lib." |
| 26b780 | 6c 69 62 2f 63 6c 2d 6c 69 62 22 29 0a 28 72 65 71 75 69 72 65 20 27 62 72 6f 77 73 65 2d 75 72 | lib/cl-lib").(require.'browse-ur |
| 26b7a0 | 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 79 6f 75 20 6e 65 65 64 20 74 | l)...................;you.need.t |
| 26b7c0 | 68 65 20 45 6d 61 63 73 20 32 30 20 76 65 72 73 69 6f 6e 0a 28 72 65 71 75 69 72 65 20 27 74 68 | he.Emacs.20.version.(require.'th |
| 26b7e0 | 69 6e 67 61 74 70 74 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 | ingatpt)..(defvar.common-lisp-hy |
| 26b800 | 70 65 72 73 70 65 63 2d 72 6f 6f 74 0a 20 20 22 68 74 74 70 3a 2f 2f 77 77 77 2e 6c 69 73 70 77 | perspec-root..."http://www.lispw |
| 26b820 | 6f 72 6b 73 2e 63 6f 6d 2f 72 65 66 65 72 65 6e 63 65 2f 48 79 70 65 72 53 70 65 63 2f 22 0a 20 | orks.com/reference/HyperSpec/".. |
| 26b840 | 20 22 54 68 65 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 48 79 | ."The.root.of.the.Common.Lisp.Hy |
| 26b860 | 70 65 72 53 70 65 63 20 55 52 4c 2e 0a 49 66 20 79 6f 75 20 63 6f 70 79 20 74 68 65 20 48 79 70 | perSpec.URL..If.you.copy.the.Hyp |
| 26b880 | 65 72 53 70 65 63 20 74 6f 20 79 6f 75 72 20 6c 6f 63 61 6c 20 73 79 73 74 65 6d 2c 20 73 65 74 | erSpec.to.your.local.system,.set |
| 26b8a0 | 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 74 6f 0a 73 6f 6d 65 74 68 69 6e 67 20 6c 69 6b 65 | .this.variable.to.something.like |
| 26b8c0 | 20 5c 22 66 69 6c 65 3a 2f 2f 75 73 72 2f 6c 6f 63 61 6c 2f 64 6f 63 2f 48 79 70 65 72 53 70 65 | .\"file://usr/local/doc/HyperSpe |
| 26b8e0 | 63 2f 5c 22 2e 22 29 0a 0a 3b 3b 3b 20 41 64 64 65 64 20 76 61 72 69 61 62 6c 65 20 66 6f 72 20 | c/\".")..;;;.Added.variable.for. |
| 26b900 | 43 4c 48 53 20 73 79 6d 62 6f 6c 20 74 61 62 6c 65 2e 20 53 65 65 20 64 65 74 61 69 6c 73 20 62 | CLHS.symbol.table..See.details.b |
| 26b920 | 65 6c 6f 77 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 32 30 30 31 31 32 30 31 20 45 64 69 20 57 65 69 74 7a | elow..;;;.;;;.20011201.Edi.Weitz |
| 26b940 | 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d | ..(defvar.common-lisp-hyperspec- |
| 26b960 | 73 79 6d 62 6f 6c 2d 74 61 62 6c 65 20 6e 69 6c 0a 20 20 22 54 68 65 20 48 79 70 65 72 53 70 65 | symbol-table.nil..."The.HyperSpe |
| 26b980 | 63 20 73 79 6d 62 6f 6c 20 74 61 62 6c 65 20 66 69 6c 65 2e 0a 49 66 20 79 6f 75 20 63 6f 70 79 | c.symbol.table.file..If.you.copy |
| 26b9a0 | 20 74 68 65 20 48 79 70 65 72 53 70 65 63 20 74 6f 20 79 6f 75 72 20 6c 6f 63 61 6c 20 73 79 73 | .the.HyperSpec.to.your.local.sys |
| 26b9c0 | 74 65 6d 2c 20 73 65 74 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 74 6f 0a 74 68 65 20 6c 6f | tem,.set.this.variable.to.the.lo |
| 26b9e0 | 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 74 61 62 6c 65 20 77 68 69 63 68 | cation.of.the.symbol.table.which |
| 26ba00 | 20 69 73 20 75 73 75 61 6c 6c 79 20 5c 22 4d 61 70 5f 53 79 6d 2e 74 78 74 5c 22 0a 6f 72 20 5c | .is.usually.\"Map_Sym.txt\".or.\ |
| 26ba20 | 22 53 79 6d 62 6f 6c 2d 54 61 62 6c 65 2e 74 65 78 74 5c 22 2e 22 29 0a 0a 28 64 65 66 76 61 72 | "Symbol-Table.text\".")..(defvar |
| 26ba40 | 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 68 69 73 74 6f 72 79 20 6e | .common-lisp-hyperspec-history.n |
| 26ba60 | 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 20 6f 66 20 73 79 6d 62 6f 6c 73 20 6c 6f 6f 6b 65 64 20 | il..."History.of.symbols.looked. |
| 26ba80 | 75 70 20 69 6e 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 48 79 70 65 72 53 70 65 63 2e | up.in.the.Common.Lisp.HyperSpec. |
| 26baa0 | 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 | ")..(defvar.common-lisp-hyperspe |
| 26bac0 | 63 2d 2d 73 79 6d 62 6f 6c 73 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 | c--symbols.(make-hash-table.:tes |
| 26bae0 | 74 20 27 65 71 75 61 6c 29 0a 20 20 22 4d 61 70 20 61 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 20 74 | t.'equal)..."Map.a.symbol.name.t |
| 26bb00 | 6f 20 69 74 73 20 6c 69 73 74 20 6f 66 20 72 65 6c 61 74 69 76 65 20 55 52 4c 73 2e 22 29 0a 0a | o.its.list.of.relative.URLs.").. |
| 26bb20 | 3b 3b 20 4c 6f 6f 6b 75 70 20 4e 41 4d 45 20 69 6e 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 | ;;.Lookup.NAME.in.'common-lisp-h |
| 26bb40 | 79 70 65 72 73 70 65 63 2d 2d 73 79 6d 62 6f 6c 73 c2 b4 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f | yperspec--symbols...(defun.commo |
| 26bb60 | 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 66 69 6e 64 20 28 6e 61 6d 65 29 0a 20 20 | n-lisp-hyperspec--find.(name)... |
| 26bb80 | 22 47 65 74 20 74 68 65 20 72 65 6c 61 74 69 76 65 20 75 72 6c 20 6f 66 20 61 20 43 6f 6d 6d 6f | "Get.the.relative.url.of.a.Commo |
| 26bba0 | 6e 20 4c 69 73 70 20 73 79 6d 62 6f 6c 20 4e 41 4d 45 2e 22 0a 20 20 28 67 65 74 68 61 73 68 20 | n.Lisp.symbol.NAME."...(gethash. |
| 26bbc0 | 6e 61 6d 65 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 73 79 6d 62 | name.common-lisp-hyperspec--symb |
| 26bbe0 | 6f 6c 73 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 | ols))..(defun.common-lisp-hypers |
| 26bc00 | 70 65 63 2d 2d 69 6e 73 65 72 74 20 28 6e 61 6d 65 20 72 65 6c 61 74 69 76 65 2d 75 72 6c 29 0a | pec--insert.(name.relative-url). |
| 26bc20 | 20 20 22 49 6e 73 65 72 74 20 43 4c 20 73 79 6d 62 6f 6c 20 4e 41 4d 45 20 61 6e 64 20 52 45 4c | .."Insert.CL.symbol.NAME.and.REL |
| 26bc40 | 41 54 49 56 45 2d 55 52 4c 20 69 6e 74 6f 20 6d 61 73 74 65 72 20 74 61 62 6c 65 2e 22 0a 20 20 | ATIVE-URL.into.master.table."... |
| 26bc60 | 28 63 6c 2d 70 75 73 68 6e 65 77 20 72 65 6c 61 74 69 76 65 2d 75 72 6c 0a 09 20 20 20 20 20 20 | (cl-pushnew.relative-url........ |
| 26bc80 | 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 | (gethash.name.common-lisp-hypers |
| 26bca0 | 70 65 63 2d 2d 73 79 6d 62 6f 6c 73 29 0a 09 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 65 71 75 | pec--symbols)........:test.#'equ |
| 26bcc0 | 61 6c 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 | al))..(defun.common-lisp-hypersp |
| 26bce0 | 65 63 2d 2d 73 74 72 69 70 2d 63 6c 2d 70 61 63 6b 61 67 65 20 28 6e 61 6d 65 29 0a 20 20 28 69 | ec--strip-cl-package.(name)...(i |
| 26bd00 | 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5c 5c 28 5b 5e 3a 5d 2a 5c 5c 29 3a 3a 3f | f.(string-match."^\\([^:]*\\)::? |
| 26bd20 | 5c 5c 28 5b 5e 3a 5d 2a 5c 5c 29 24 22 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 | \\([^:]*\\)$".name).......(let.( |
| 26bd40 | 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6e 61 | (package-name.(match-string.1.na |
| 26bd60 | 6d 65 29 29 0a 09 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 6d 61 74 63 68 2d 73 74 | me))......(symbol-name.(match-st |
| 26bd80 | 72 69 6e 67 20 32 20 6e 61 6d 65 29 29 29 0a 09 28 69 66 20 28 6d 65 6d 62 65 72 20 28 64 6f 77 | ring.2.name)))..(if.(member.(dow |
| 26bda0 | 6e 63 61 73 65 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 09 09 20 20 20 20 27 28 22 63 6c 22 | ncase.package-name).......'("cl" |
| 26bdc0 | 20 22 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 22 29 29 0a 09 20 20 20 20 73 79 6d 62 6f 6c 2d 6e 61 6d | ."common-lisp"))......symbol-nam |
| 26bde0 | 65 0a 09 20 20 6e 61 6d 65 29 29 0a 20 20 20 20 6e 61 6d 65 29 29 0a 0a 3b 3b 20 43 68 6f 6f 73 | e....name)).....name))..;;.Choos |
| 26be00 | 65 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 20 6f 72 20 72 65 61 64 20 73 79 | e.the.symbol.at.point.or.read.sy |
| 26be20 | 6d 62 6f 6c 2d 6e 61 6d 65 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 28 | mbol-name.from.the.minibuffer..( |
| 26be40 | 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 72 65 61 64 | defun.common-lisp-hyperspec-read |
| 26be60 | 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 79 6d 62 6f 6c 2d 61 | -symbol-name.(&optional.symbol-a |
| 26be80 | 74 2d 70 6f 69 6e 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 | t-point)...(let*.((symbol-at-poi |
| 26bea0 | 6e 74 20 28 6f 72 20 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 28 74 68 69 6e 67 2d 61 74 | nt.(or.symbol-at-point.(thing-at |
| 26bec0 | 2d 70 6f 69 6e 74 20 27 73 79 6d 62 6f 6c 29 29 29 0a 09 20 28 73 74 72 69 70 70 65 64 2d 73 79 | -point.'symbol)))...(stripped-sy |
| 26bee0 | 6d 62 6f 6c 20 28 61 6e 64 20 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 0a 09 09 09 20 20 20 | mbol.(and.symbol-at-point....... |
| 26bf00 | 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 73 74 72 69 | ....(common-lisp-hyperspec--stri |
| 26bf20 | 70 2d 63 6c 2d 70 61 63 6b 61 67 65 0a 09 09 09 09 28 64 6f 77 6e 63 61 73 65 20 73 79 6d 62 6f | p-cl-package.....(downcase.symbo |
| 26bf40 | 6c 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 | l-at-point))))).....(cond.((and. |
| 26bf60 | 73 74 72 69 70 70 65 64 2d 73 79 6d 62 6f 6c 0a 09 09 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 | stripped-symbol...(common-lisp-h |
| 26bf80 | 79 70 65 72 73 70 65 63 2d 2d 66 69 6e 64 20 73 74 72 69 70 70 65 64 2d 73 79 6d 62 6f 6c 29 29 | yperspec--find.stripped-symbol)) |
| 26bfa0 | 0a 09 20 20 20 73 74 72 69 70 70 65 64 2d 73 79 6d 62 6f 6c 29 0a 09 20 20 28 74 0a 09 20 20 20 | .....stripped-symbol)....(t..... |
| 26bfc0 | 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 4c 6f 6f 6b 20 75 70 20 73 79 6d 62 6f 6c | (completing-read."Look.up.symbol |
| 26bfe0 | 20 69 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 48 79 70 65 72 53 70 65 63 3a 20 22 0a 09 09 09 | .in.Common.Lisp.HyperSpec:.".... |
| 26c000 | 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 73 79 6d 62 6f | ....common-lisp-hyperspec--symbo |
| 26c020 | 6c 73 20 6e 69 6c 20 74 0a 09 09 09 20 20 20 20 73 74 72 69 70 70 65 64 2d 73 79 6d 62 6f 6c 0a | ls.nil.t........stripped-symbol. |
| 26c040 | 09 09 09 20 20 20 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 68 69 | .......'common-lisp-hyperspec-hi |
| 26c060 | 73 74 6f 72 79 29 29 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 69 73 20 74 68 65 20 28 73 6c | story)))))..;;.FIXME:.is.the.(sl |
| 26c080 | 65 65 70 2d 66 6f 72 20 31 2e 35 29 20 61 20 61 63 74 75 61 6c 6c 79 20 6e 65 65 64 65 64 3f 0a | eep-for.1.5).a.actually.needed?. |
| 26c0a0 | 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 20 28 73 79 | (defun.common-lisp-hyperspec.(sy |
| 26c0c0 | 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 22 56 69 65 77 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 | mbol-name)..."View.the.documenta |
| 26c0e0 | 74 69 6f 6e 20 6f 6e 20 53 59 4d 42 4f 4c 2d 4e 41 4d 45 20 66 72 6f 6d 20 74 68 65 20 43 6f 6d | tion.on.SYMBOL-NAME.from.the.Com |
| 26c100 | 6d 6f 6e 20 4c 69 73 70 20 48 79 70 65 72 53 70 65 63 2e 0a 49 66 20 53 59 4d 42 4f 4c 2d 4e 41 | mon.Lisp.HyperSpec..If.SYMBOL-NA |
| 26c120 | 4d 45 20 68 61 73 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 64 65 66 69 6e 69 74 69 6f 6e 2c | ME.has.more.than.one.definition, |
| 26c140 | 20 61 6c 6c 20 6f 66 20 74 68 65 6d 20 61 72 65 20 64 69 73 70 6c 61 79 65 64 20 77 69 74 68 0a | .all.of.them.are.displayed.with. |
| 26c160 | 79 6f 75 72 20 66 61 76 6f 72 69 74 65 20 62 72 6f 77 73 65 72 20 69 6e 20 73 65 71 75 65 6e 63 | your.favorite.browser.in.sequenc |
| 26c180 | 65 2e 20 20 54 68 65 20 62 72 6f 77 73 65 72 20 73 68 6f 75 6c 64 20 68 61 76 65 20 61 20 5c 22 | e...The.browser.should.have.a.\" |
| 26c1a0 | 62 61 63 6b 5c 22 0a 66 75 6e 63 74 69 6f 6e 20 74 6f 20 76 69 65 77 20 74 68 65 20 73 65 70 61 | back\".function.to.view.the.sepa |
| 26c1c0 | 72 61 74 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 0a 54 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 | rate.definitions...The.Common.Li |
| 26c1e0 | 73 70 20 48 79 70 65 72 53 70 65 63 20 69 73 20 74 68 65 20 66 75 6c 6c 20 41 4e 53 49 20 53 74 | sp.HyperSpec.is.the.full.ANSI.St |
| 26c200 | 61 6e 64 61 72 64 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2c 20 70 72 6f 76 69 64 65 64 0a 62 79 20 | andard.Common.Lisp,.provided.by. |
| 26c220 | 4b 65 6e 74 20 50 69 74 6d 61 6e 20 61 6e 64 20 58 61 6e 61 6c 79 73 20 49 6e 63 2e 20 20 42 79 | Kent.Pitman.and.Xanalys.Inc...By |
| 26c240 | 20 64 65 66 61 75 6c 74 2c 20 74 68 65 20 58 61 6e 61 6c 79 73 20 57 65 62 20 73 69 74 65 20 69 | .default,.the.Xanalys.Web.site.i |
| 26c260 | 73 0a 76 69 73 69 74 65 64 20 74 6f 20 72 65 74 72 69 65 76 65 20 74 68 65 20 69 6e 66 6f 72 6d | s.visited.to.retrieve.the.inform |
| 26c280 | 61 74 69 6f 6e 2e 20 20 58 61 6e 61 6c 79 73 20 49 6e 63 2e 20 61 6c 6c 6f 77 73 20 79 6f 75 20 | ation...Xanalys.Inc..allows.you. |
| 26c2a0 | 74 6f 20 74 72 61 6e 73 66 65 72 0a 74 68 65 20 65 6e 74 69 72 65 20 43 6f 6d 6d 6f 6e 20 4c 69 | to.transfer.the.entire.Common.Li |
| 26c2c0 | 73 70 20 48 79 70 65 72 53 70 65 63 20 74 6f 20 79 6f 75 72 20 6f 77 6e 20 73 69 74 65 20 75 6e | sp.HyperSpec.to.your.own.site.un |
| 26c2e0 | 64 65 72 20 63 65 72 74 61 69 6e 20 63 6f 6e 64 69 74 69 6f 6e 73 2e 0a 56 69 73 69 74 20 68 74 | der.certain.conditions..Visit.ht |
| 26c300 | 74 70 3a 2f 2f 77 77 77 2e 6c 69 73 70 77 6f 72 6b 73 2e 63 6f 6d 2f 72 65 66 65 72 65 6e 63 65 | tp://www.lispworks.com/reference |
| 26c320 | 2f 48 79 70 65 72 53 70 65 63 2f 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e | /HyperSpec/.for.more.information |
| 26c340 | 2e 0a 49 66 20 79 6f 75 20 63 6f 70 79 20 74 68 65 20 48 79 70 65 72 53 70 65 63 20 74 6f 20 61 | ..If.you.copy.the.HyperSpec.to.a |
| 26c360 | 6e 6f 74 68 65 72 20 6c 6f 63 61 74 69 6f 6e 2c 20 63 75 73 74 6f 6d 69 7a 65 20 74 68 65 20 76 | nother.location,.customize.the.v |
| 26c380 | 61 72 69 61 62 6c 65 0a 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 72 | ariable.`common-lisp-hyperspec-r |
| 26c3a0 | 6f 6f 74 27 20 74 6f 20 70 6f 69 6e 74 20 74 6f 20 74 68 61 74 20 6c 6f 63 61 74 69 6f 6e 2e 22 | oot'.to.point.to.that.location." |
| 26c3c0 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 | ...(interactive.(list.(common-li |
| 26c3e0 | 73 70 2d 68 79 70 65 72 73 70 65 63 2d 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 | sp-hyperspec-read-symbol-name))) |
| 26c400 | 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 | ...(let.((name.(common-lisp-hype |
| 26c420 | 72 73 70 65 63 2d 2d 73 74 72 69 70 2d 63 6c 2d 70 61 63 6b 61 67 65 0a 09 20 20 20 20 20 20 20 | rspec--strip-cl-package......... |
| 26c440 | 28 64 6f 77 6e 63 61 73 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 63 | (downcase.symbol-name)))).....(c |
| 26c460 | 6c 2d 6d 61 70 6c 69 73 74 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 0a 09 09 20 20 28 62 | l-maplist.(lambda.(entry).....(b |
| 26c480 | 72 6f 77 73 65 2d 75 72 6c 20 28 63 6f 6e 63 61 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 | rowse-url.(concat.common-lisp-hy |
| 26c4a0 | 70 65 72 73 70 65 63 2d 72 6f 6f 74 20 22 42 6f 64 79 2f 22 0a 09 09 09 09 20 20 20 20 20 20 28 | perspec-root."Body/"...........( |
| 26c4c0 | 63 61 72 20 65 6e 74 72 79 29 29 29 0a 09 09 20 20 28 77 68 65 6e 20 28 63 64 72 20 65 6e 74 72 | car.entry))).....(when.(cdr.entr |
| 26c4e0 | 79 29 0a 09 09 20 20 20 20 28 73 6c 65 65 70 2d 66 6f 72 20 31 2e 35 29 29 29 0a 09 09 28 6f 72 | y).......(sleep-for.1.5)))...(or |
| 26c500 | 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 66 69 6e 64 20 6e 61 | .(common-lisp-hyperspec--find.na |
| 26c520 | 6d 65 29 0a 09 09 20 20 20 20 28 65 72 72 6f 72 20 22 54 68 65 20 73 79 6d 62 6f 6c 20 60 25 73 | me).......(error."The.symbol.`%s |
| 26c540 | 27 20 69 73 20 6e 6f 74 20 64 65 66 69 6e 65 64 20 69 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 22 | '.is.not.defined.in.Common.Lisp" |
| 26c560 | 0a 09 09 09 20 20 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 29 29 0a 0a 3b 3b 3b 20 41 64 64 | .......symbol-name)))))..;;;.Add |
| 26c580 | 65 64 20 64 79 6e 61 6d 69 63 20 6c 6f 6f 6b 75 70 20 6f 66 20 73 79 6d 62 6f 6c 20 69 6e 20 43 | ed.dynamic.lookup.of.symbol.in.C |
| 26c5a0 | 4c 48 53 20 73 79 6d 62 6f 6c 20 74 61 62 6c 65 0a 3b 3b 3b 0a 3b 3b 3b 20 32 30 30 31 31 32 30 | LHS.symbol.table.;;;.;;;.2001120 |
| 26c5c0 | 32 20 45 64 69 20 57 65 69 74 7a 0a 0a 3b 3b 3b 20 52 65 70 6c 61 63 65 64 20 73 79 6d 62 6f 6c | 2.Edi.Weitz..;;;.Replaced.symbol |
| 26c5e0 | 20 74 61 62 6c 65 20 66 6f 72 20 76 20 34 2e 30 20 77 69 74 68 20 74 68 65 20 6f 6e 65 20 66 6f | .table.for.v.4.0.with.the.one.fo |
| 26c600 | 72 20 76 20 36 2e 30 0a 3b 3b 3b 20 28 77 68 69 63 68 20 69 73 20 6e 6f 77 20 6f 6e 6c 69 6e 65 | r.v.6.0.;;;.(which.is.now.online |
| 26c620 | 20 61 74 20 58 61 6e 61 6c 79 73 27 20 73 69 74 65 29 0a 3b 3b 3b 0a 3b 3b 3b 20 32 30 30 32 30 | .at.Xanalys'.site).;;;.;;;.20020 |
| 26c640 | 32 31 33 20 45 64 69 20 57 65 69 74 7a 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 | 213.Edi.Weitz..(defun.common-lis |
| 26c660 | 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 67 65 74 2d 6f 6e 65 2d 6c 69 6e 65 20 28 29 0a 20 20 28 | p-hyperspec--get-one-line.()...( |
| 26c680 | 70 72 6f 67 31 0a 20 20 20 20 20 20 28 63 6c 2d 64 65 6c 65 74 65 20 3f 5c 6e 20 28 74 68 69 6e | prog1.......(cl-delete.?\n.(thin |
| 26c6a0 | 67 2d 61 74 2d 70 6f 69 6e 74 20 27 6c 69 6e 65 29 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d | g-at-point.'line)).....(forward- |
| 26c6c0 | 6c 69 6e 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 | line)))..(defun.common-lisp-hype |
| 26c6e0 | 72 73 70 65 63 2d 2d 70 61 72 73 65 2d 6d 61 70 2d 66 69 6c 65 20 28 66 69 6c 65 29 0a 20 20 28 | rspec--parse-map-file.(file)...( |
| 26c700 | 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c | with-temp-buffer.....(insert-fil |
| 26c720 | 65 2d 63 6f 6e 74 65 6e 74 73 20 66 69 6c 65 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | e-contents.file).....(goto-char. |
| 26c740 | 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 27 | (point-min)).....(let.((result.' |
| 26c760 | 28 29 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 3c 20 28 70 6f 69 6e 74 29 20 28 70 6f | ())).......(while.(<.(point).(po |
| 26c780 | 69 6e 74 2d 6d 61 78 29 29 0a 09 28 6c 65 74 2a 20 28 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 | int-max))..(let*.((symbol-name.( |
| 26c7a0 | 64 6f 77 6e 63 61 73 65 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d | downcase.(common-lisp-hyperspec- |
| 26c7c0 | 2d 67 65 74 2d 6f 6e 65 2d 6c 69 6e 65 29 29 29 0a 09 20 20 20 20 20 20 20 28 72 65 6c 61 74 69 | -get-one-line))).........(relati |
| 26c7e0 | 76 65 2d 75 72 6c 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 67 | ve-url.(common-lisp-hyperspec--g |
| 26c800 | 65 74 2d 6f 6e 65 2d 6c 69 6e 65 29 29 0a 09 20 20 20 20 20 20 20 28 66 69 6c 65 20 28 66 69 6c | et-one-line)).........(file.(fil |
| 26c820 | 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 72 65 6c 61 74 69 76 65 2d 75 72 6c | e-name-nondirectory.relative-url |
| 26c840 | 29 29 29 0a 09 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 66 | )))....(push.(list.symbol-name.f |
| 26c860 | 69 6c 65 29 0a 09 09 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 28 72 65 76 65 72 73 65 20 | ile)...result))).......(reverse. |
| 26c880 | 72 65 73 75 6c 74 29 29 29 29 0a 0a 28 6d 61 70 63 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 | result))))..(mapc.(lambda.(entry |
| 26c8a0 | 29 0a 09 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 69 6e 73 65 72 | )..(common-lisp-hyperspec--inser |
| 26c8c0 | 74 20 28 63 61 72 20 65 6e 74 72 79 29 20 28 63 61 64 72 20 65 6e 74 72 79 29 29 29 0a 20 20 20 | t.(car.entry).(cadr.entry))).... |
| 26c8e0 | 20 20 20 28 69 66 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 73 79 6d | ...(if.common-lisp-hyperspec-sym |
| 26c900 | 62 6f 6c 2d 74 61 62 6c 65 0a 09 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 | bol-table....(common-lisp-hypers |
| 26c920 | 70 65 63 2d 2d 70 61 72 73 65 2d 6d 61 70 2d 66 69 6c 65 0a 09 20 20 20 63 6f 6d 6d 6f 6e 2d 6c | pec--parse-map-file.....common-l |
| 26c940 | 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 73 79 6d 62 6f 6c 2d 74 61 62 6c 65 29 0a 09 27 28 28 | isp-hyperspec-symbol-table)..'(( |
| 26c960 | 22 26 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 22 20 22 30 33 5f 64 61 2e 68 74 6d 22 29 | "&allow-other-keys"."03_da.htm") |
| 26c980 | 0a 09 20 20 28 22 26 61 75 78 22 20 22 30 33 5f 64 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 26 62 | ....("&aux"."03_da.htm")....("&b |
| 26c9a0 | 6f 64 79 22 20 22 30 33 5f 64 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 26 65 6e 76 69 72 6f 6e 6d | ody"."03_dd.htm")....("&environm |
| 26c9c0 | 65 6e 74 22 20 22 30 33 5f 64 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 26 6b 65 79 22 20 22 30 33 | ent"."03_dd.htm")....("&key"."03 |
| 26c9e0 | 5f 64 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 26 6f 70 74 69 6f 6e 61 6c 22 20 22 30 33 5f 64 61 | _da.htm")....("&optional"."03_da |
| 26ca00 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 26 72 65 73 74 22 20 22 30 33 5f 64 61 2e 68 74 6d 22 29 0a | .htm")....("&rest"."03_da.htm"). |
| 26ca20 | 09 20 20 28 22 26 77 68 6f 6c 65 22 20 22 30 33 5f 64 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a | ...("&whole"."03_dd.htm")....("* |
| 26ca40 | 22 20 22 61 5f 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 2a 22 20 22 76 5f 5f 73 74 73 74 5f | "."a_st.htm")....("**"."v__stst_ |
| 26ca60 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 2a 2a 22 20 22 76 5f 5f 73 74 73 74 5f 2e 68 74 6d 22 29 | .htm")....("***"."v__stst_.htm") |
| 26ca80 | 0a 09 20 20 28 22 2a 62 72 65 61 6b 2d 6f 6e 2d 73 69 67 6e 61 6c 73 2a 22 20 22 76 5f 62 72 65 | ....("*break-on-signals*"."v_bre |
| 26caa0 | 61 6b 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 | ak_.htm")....("*compile-file-pat |
| 26cac0 | 68 6e 61 6d 65 2a 22 20 22 76 5f 63 6d 70 5f 66 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 63 6f | hname*"."v_cmp_fi.htm")....("*co |
| 26cae0 | 6d 70 69 6c 65 2d 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 2a 22 20 22 76 5f 63 6d 70 5f 66 69 2e | mpile-file-truename*"."v_cmp_fi. |
| 26cb00 | 68 74 6d 22 29 0a 09 20 20 28 22 2a 63 6f 6d 70 69 6c 65 2d 70 72 69 6e 74 2a 22 20 22 76 5f 63 | htm")....("*compile-print*"."v_c |
| 26cb20 | 6d 70 5f 70 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 63 6f 6d 70 69 6c 65 2d 76 65 72 62 6f 73 | mp_pr.htm")....("*compile-verbos |
| 26cb40 | 65 2a 22 20 22 76 5f 63 6d 70 5f 70 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 64 65 62 75 67 2d | e*"."v_cmp_pr.htm")....("*debug- |
| 26cb60 | 69 6f 2a 22 20 22 76 5f 64 65 62 75 67 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 64 65 62 75 67 | io*"."v_debug_.htm")....("*debug |
| 26cb80 | 67 65 72 2d 68 6f 6f 6b 2a 22 20 22 76 5f 64 65 62 75 67 67 2e 68 74 6d 22 29 0a 09 20 20 28 22 | ger-hook*"."v_debugg.htm")....(" |
| 26cba0 | 2a 64 65 66 61 75 6c 74 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 22 20 22 76 5f | *default-pathname-defaults*"."v_ |
| 26cbc0 | 64 65 66 61 75 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 65 72 72 6f 72 2d 6f 75 74 70 75 74 2a | defaul.htm")....("*error-output* |
| 26cbe0 | 22 20 22 76 5f 64 65 62 75 67 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 66 65 61 74 75 72 65 73 | "."v_debug_.htm")....("*features |
| 26cc00 | 2a 22 20 22 76 5f 66 65 61 74 75 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 67 65 6e 73 79 6d 2d | *"."v_featur.htm")....("*gensym- |
| 26cc20 | 63 6f 75 6e 74 65 72 2a 22 20 22 76 5f 67 65 6e 73 79 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a | counter*"."v_gensym.htm")....("* |
| 26cc40 | 6c 6f 61 64 2d 70 61 74 68 6e 61 6d 65 2a 22 20 22 76 5f 6c 64 5f 70 6e 73 2e 68 74 6d 22 29 0a | load-pathname*"."v_ld_pns.htm"). |
| 26cc60 | 09 20 20 28 22 2a 6c 6f 61 64 2d 70 72 69 6e 74 2a 22 20 22 76 5f 6c 64 5f 70 72 73 2e 68 74 6d | ...("*load-print*"."v_ld_prs.htm |
| 26cc80 | 22 29 0a 09 20 20 28 22 2a 6c 6f 61 64 2d 74 72 75 65 6e 61 6d 65 2a 22 20 22 76 5f 6c 64 5f 70 | ")....("*load-truename*"."v_ld_p |
| 26cca0 | 6e 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 6c 6f 61 64 2d 76 65 72 62 6f 73 65 2a 22 20 22 76 | ns.htm")....("*load-verbose*"."v |
| 26ccc0 | 5f 6c 64 5f 70 72 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 6d 61 63 72 6f 65 78 70 61 6e 64 2d | _ld_prs.htm")....("*macroexpand- |
| 26cce0 | 68 6f 6f 6b 2a 22 20 22 76 5f 6d 65 78 70 5f 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 6d 6f 64 | hook*"."v_mexp_h.htm")....("*mod |
| 26cd00 | 75 6c 65 73 2a 22 20 22 76 5f 6d 6f 64 75 6c 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 70 61 63 | ules*"."v_module.htm")....("*pac |
| 26cd20 | 6b 61 67 65 2a 22 20 22 76 5f 70 6b 67 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 70 72 69 6e 74 2d | kage*"."v_pkg.htm")....("*print- |
| 26cd40 | 61 72 72 61 79 2a 22 20 22 76 5f 70 72 5f 61 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 70 72 69 | array*"."v_pr_ar.htm")....("*pri |
| 26cd60 | 6e 74 2d 62 61 73 65 2a 22 20 22 76 5f 70 72 5f 62 61 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a | nt-base*"."v_pr_bas.htm")....("* |
| 26cd80 | 70 72 69 6e 74 2d 63 61 73 65 2a 22 20 22 76 5f 70 72 5f 63 61 73 2e 68 74 6d 22 29 0a 09 20 20 | print-case*"."v_pr_cas.htm").... |
| 26cda0 | 28 22 2a 70 72 69 6e 74 2d 63 69 72 63 6c 65 2a 22 20 22 76 5f 70 72 5f 63 69 72 2e 68 74 6d 22 | ("*print-circle*"."v_pr_cir.htm" |
| 26cdc0 | 29 0a 09 20 20 28 22 2a 70 72 69 6e 74 2d 65 73 63 61 70 65 2a 22 20 22 76 5f 70 72 5f 65 73 63 | )....("*print-escape*"."v_pr_esc |
| 26cde0 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 70 72 69 6e 74 2d 67 65 6e 73 79 6d 2a 22 20 22 76 5f 70 | .htm")....("*print-gensym*"."v_p |
| 26ce00 | 72 5f 67 65 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 70 72 69 6e 74 2d 6c 65 6e 67 74 68 2a 22 | r_gen.htm")....("*print-length*" |
| 26ce20 | 20 22 76 5f 70 72 5f 6c 65 76 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 70 72 69 6e 74 2d 6c 65 76 | ."v_pr_lev.htm")....("*print-lev |
| 26ce40 | 65 6c 2a 22 20 22 76 5f 70 72 5f 6c 65 76 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 70 72 69 6e 74 | el*"."v_pr_lev.htm")....("*print |
| 26ce60 | 2d 6c 69 6e 65 73 2a 22 20 22 76 5f 70 72 5f 6c 69 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 70 | -lines*"."v_pr_lin.htm")....("*p |
| 26ce80 | 72 69 6e 74 2d 6d 69 73 65 72 2d 77 69 64 74 68 2a 22 20 22 76 5f 70 72 5f 6d 69 73 2e 68 74 6d | rint-miser-width*"."v_pr_mis.htm |
| 26cea0 | 22 29 0a 09 20 20 28 22 2a 70 72 69 6e 74 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 2a 22 | ")....("*print-pprint-dispatch*" |
| 26cec0 | 20 22 76 5f 70 72 5f 70 70 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 70 72 69 6e 74 2d 70 72 65 | ."v_pr_ppr.htm")....("*print-pre |
| 26cee0 | 74 74 79 2a 22 20 22 76 5f 70 72 5f 70 72 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 70 72 69 6e | tty*"."v_pr_pre.htm")....("*prin |
| 26cf00 | 74 2d 72 61 64 69 78 2a 22 20 22 76 5f 70 72 5f 62 61 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a | t-radix*"."v_pr_bas.htm")....("* |
| 26cf20 | 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 22 20 22 76 5f 70 72 5f 72 64 61 2e 68 74 6d 22 29 | print-readably*"."v_pr_rda.htm") |
| 26cf40 | 0a 09 20 20 28 22 2a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 2a 22 20 22 76 5f 70 | ....("*print-right-margin*"."v_p |
| 26cf60 | 72 5f 72 69 67 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 71 75 65 72 79 2d 69 6f 2a 22 20 22 76 5f | r_rig.htm")....("*query-io*"."v_ |
| 26cf80 | 64 65 62 75 67 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 72 61 6e 64 6f 6d 2d 73 74 61 74 65 2a | debug_.htm")....("*random-state* |
| 26cfa0 | 22 20 22 76 5f 72 6e 64 5f 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 72 65 61 64 2d 62 61 73 | "."v_rnd_st.htm")....("*read-bas |
| 26cfc0 | 65 2a 22 20 22 76 5f 72 64 5f 62 61 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 72 65 61 64 2d 64 | e*"."v_rd_bas.htm")....("*read-d |
| 26cfe0 | 65 66 61 75 6c 74 2d 66 6c 6f 61 74 2d 66 6f 72 6d 61 74 2a 22 20 22 76 5f 72 64 5f 64 65 66 2e | efault-float-format*"."v_rd_def. |
| 26d000 | 68 74 6d 22 29 0a 09 20 20 28 22 2a 72 65 61 64 2d 65 76 61 6c 2a 22 20 22 76 5f 72 64 5f 65 76 | htm")....("*read-eval*"."v_rd_ev |
| 26d020 | 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 72 65 61 64 2d 73 75 70 70 72 65 73 73 2a 22 20 22 76 | a.htm")....("*read-suppress*"."v |
| 26d040 | 5f 72 64 5f 73 75 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 72 65 61 64 74 61 62 6c 65 2a 22 20 | _rd_sup.htm")....("*readtable*". |
| 26d060 | 22 76 5f 72 64 74 61 62 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 73 74 61 6e 64 61 72 64 2d 69 | "v_rdtabl.htm")....("*standard-i |
| 26d080 | 6e 70 75 74 2a 22 20 22 76 5f 64 65 62 75 67 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 2a 73 74 61 | nput*"."v_debug_.htm")....("*sta |
| 26d0a0 | 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 22 20 22 76 5f 64 65 62 75 67 5f 2e 68 74 6d 22 29 0a 09 | ndard-output*"."v_debug_.htm").. |
| 26d0c0 | 20 20 28 22 2a 74 65 72 6d 69 6e 61 6c 2d 69 6f 2a 22 20 22 76 5f 74 65 72 6d 69 6e 2e 68 74 6d | ..("*terminal-io*"."v_termin.htm |
| 26d0e0 | 22 29 0a 09 20 20 28 22 2a 74 72 61 63 65 2d 6f 75 74 70 75 74 2a 22 20 22 76 5f 64 65 62 75 67 | ")....("*trace-output*"."v_debug |
| 26d100 | 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 2b 22 20 22 61 5f 70 6c 2e 68 74 6d 22 29 0a 09 20 20 28 | _.htm")....("+"."a_pl.htm")....( |
| 26d120 | 22 2b 2b 22 20 22 76 5f 70 6c 5f 70 6c 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 2b 2b 2b 22 20 22 | "++"."v_pl_plp.htm")....("+++"." |
| 26d140 | 76 5f 70 6c 5f 70 6c 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 2d 22 20 22 61 5f 5f 2e 68 74 6d 22 | v_pl_plp.htm")....("-"."a__.htm" |
| 26d160 | 29 0a 09 20 20 28 22 2f 22 20 22 61 5f 73 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 2f 2f 22 20 22 | )....("/"."a_sl.htm")....("//"." |
| 26d180 | 76 5f 73 6c 5f 73 6c 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 2f 2f 2f 22 20 22 76 5f 73 6c 5f 73 | v_sl_sls.htm")....("///"."v_sl_s |
| 26d1a0 | 6c 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 2f 3d 22 20 22 66 5f 65 71 5f 73 6c 65 2e 68 74 6d 22 | ls.htm")....("/="."f_eq_sle.htm" |
| 26d1c0 | 29 0a 09 20 20 28 22 31 2b 22 20 22 66 5f 31 70 6c 5f 31 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 | )....("1+"."f_1pl_1_.htm")....(" |
| 26d1e0 | 31 2d 22 20 22 66 5f 31 70 6c 5f 31 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 3c 22 20 22 66 5f 65 | 1-"."f_1pl_1_.htm")....("<"."f_e |
| 26d200 | 71 5f 73 6c 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 3c 3d 22 20 22 66 5f 65 71 5f 73 6c 65 2e 68 | q_sle.htm")....("<="."f_eq_sle.h |
| 26d220 | 74 6d 22 29 0a 09 20 20 28 22 3d 22 20 22 66 5f 65 71 5f 73 6c 65 2e 68 74 6d 22 29 0a 09 20 20 | tm")....("="."f_eq_sle.htm").... |
| 26d240 | 28 22 3e 22 20 22 66 5f 65 71 5f 73 6c 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 3e 3d 22 20 22 66 | (">"."f_eq_sle.htm")....(">="."f |
| 26d260 | 5f 65 71 5f 73 6c 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 62 6f 72 74 22 20 22 61 5f 61 62 6f | _eq_sle.htm")....("abort"."a_abo |
| 26d280 | 72 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 62 73 22 20 22 66 5f 61 62 73 2e 68 74 6d 22 29 0a | rt.htm")....("abs"."f_abs.htm"). |
| 26d2a0 | 09 20 20 28 22 61 63 6f 6e 73 22 20 22 66 5f 61 63 6f 6e 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 | ...("acons"."f_acons.htm")....(" |
| 26d2c0 | 61 63 6f 73 22 20 22 66 5f 61 73 69 6e 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 63 6f 73 68 22 | acos"."f_asin_.htm")....("acosh" |
| 26d2e0 | 20 22 66 5f 73 69 6e 68 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 64 64 2d 6d 65 74 68 6f 64 22 | ."f_sinh_.htm")....("add-method" |
| 26d300 | 20 22 66 5f 61 64 64 5f 6d 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 64 6a 6f 69 6e 22 20 22 66 | ."f_add_me.htm")....("adjoin"."f |
| 26d320 | 5f 61 64 6a 6f 69 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 64 6a 75 73 74 2d 61 72 72 61 79 22 | _adjoin.htm")....("adjust-array" |
| 26d340 | 20 22 66 5f 61 64 6a 75 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 64 6a 75 73 74 61 62 6c 65 | ."f_adjust.htm")....("adjustable |
| 26d360 | 2d 61 72 72 61 79 2d 70 22 20 22 66 5f 61 64 6a 75 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 | -array-p"."f_adju_1.htm")....("a |
| 26d380 | 6c 6c 6f 63 61 74 65 2d 69 6e 73 74 61 6e 63 65 22 20 22 66 5f 61 6c 6c 6f 63 61 2e 68 74 6d 22 | llocate-instance"."f_alloca.htm" |
| 26d3a0 | 29 0a 09 20 20 28 22 61 6c 70 68 61 2d 63 68 61 72 2d 70 22 20 22 66 5f 61 6c 70 68 61 5f 2e 68 | )....("alpha-char-p"."f_alpha_.h |
| 26d3c0 | 74 6d 22 29 0a 09 20 20 28 22 61 6c 70 68 61 6e 75 6d 65 72 69 63 70 22 20 22 66 5f 61 6c 70 68 | tm")....("alphanumericp"."f_alph |
| 26d3e0 | 61 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 6e 64 22 20 22 61 5f 61 6e 64 2e 68 74 6d 22 29 0a | an.htm")....("and"."a_and.htm"). |
| 26d400 | 09 20 20 28 22 61 70 70 65 6e 64 22 20 22 66 5f 61 70 70 65 6e 64 2e 68 74 6d 22 29 0a 09 20 20 | ...("append"."f_append.htm").... |
| 26d420 | 28 22 61 70 70 6c 79 22 20 22 66 5f 61 70 70 6c 79 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 70 72 | ("apply"."f_apply.htm")....("apr |
| 26d440 | 6f 70 6f 73 22 20 22 66 5f 61 70 72 6f 70 6f 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 70 72 6f 70 | opos"."f_apropo.htm")....("aprop |
| 26d460 | 6f 73 2d 6c 69 73 74 22 20 22 66 5f 61 70 72 6f 70 6f 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 | os-list"."f_apropo.htm")....("ar |
| 26d480 | 65 66 22 20 22 66 5f 61 72 65 66 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 69 74 68 6d 65 74 69 | ef"."f_aref.htm")....("arithmeti |
| 26d4a0 | 63 2d 65 72 72 6f 72 22 20 22 65 5f 61 72 69 74 68 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 | c-error"."e_arithm.htm")....("ar |
| 26d4c0 | 69 74 68 6d 65 74 69 63 2d 65 72 72 6f 72 2d 6f 70 65 72 61 6e 64 73 22 20 22 66 5f 61 72 69 74 | ithmetic-error-operands"."f_arit |
| 26d4e0 | 68 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 69 74 68 6d 65 74 69 63 2d 65 72 72 6f 72 2d 6f | hm.htm")....("arithmetic-error-o |
| 26d500 | 70 65 72 61 74 69 6f 6e 22 20 22 66 5f 61 72 69 74 68 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 | peration"."f_arithm.htm")....("a |
| 26d520 | 72 72 61 79 22 20 22 74 5f 61 72 72 61 79 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 72 61 79 2d | rray"."t_array.htm")....("array- |
| 26d540 | 64 69 6d 65 6e 73 69 6f 6e 22 20 22 66 5f 61 72 5f 64 69 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 | dimension"."f_ar_dim.htm")....(" |
| 26d560 | 61 72 72 61 79 2d 64 69 6d 65 6e 73 69 6f 6e 2d 6c 69 6d 69 74 22 20 22 76 5f 61 72 5f 64 69 6d | array-dimension-limit"."v_ar_dim |
| 26d580 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 72 61 79 2d 64 69 6d 65 6e 73 69 6f 6e 73 22 20 22 66 | .htm")....("array-dimensions"."f |
| 26d5a0 | 5f 61 72 5f 64 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 72 61 79 2d 64 69 73 70 6c 61 63 | _ar_d_1.htm")....("array-displac |
| 26d5c0 | 65 6d 65 6e 74 22 20 22 66 5f 61 72 5f 64 69 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 72 61 | ement"."f_ar_dis.htm")....("arra |
| 26d5e0 | 79 2d 65 6c 65 6d 65 6e 74 2d 74 79 70 65 22 20 22 66 5f 61 72 5f 65 6c 65 2e 68 74 6d 22 29 0a | y-element-type"."f_ar_ele.htm"). |
| 26d600 | 09 20 20 28 22 61 72 72 61 79 2d 68 61 73 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 2d 70 22 20 22 | ...("array-has-fill-pointer-p"." |
| 26d620 | 66 5f 61 72 5f 68 61 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 72 61 79 2d 69 6e 2d 62 6f 75 | f_ar_has.htm")....("array-in-bou |
| 26d640 | 6e 64 73 2d 70 22 20 22 66 5f 61 72 5f 69 6e 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 72 61 | nds-p"."f_ar_in_.htm")....("arra |
| 26d660 | 79 2d 72 61 6e 6b 22 20 22 66 5f 61 72 5f 72 61 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 72 | y-rank"."f_ar_ran.htm")....("arr |
| 26d680 | 61 79 2d 72 61 6e 6b 2d 6c 69 6d 69 74 22 20 22 76 5f 61 72 5f 72 61 6e 2e 68 74 6d 22 29 0a 09 | ay-rank-limit"."v_ar_ran.htm").. |
| 26d6a0 | 20 20 28 22 61 72 72 61 79 2d 72 6f 77 2d 6d 61 6a 6f 72 2d 69 6e 64 65 78 22 20 22 66 5f 61 72 | ..("array-row-major-index"."f_ar |
| 26d6c0 | 5f 72 6f 77 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 72 61 79 2d 74 6f 74 61 6c 2d 73 69 7a 65 | _row.htm")....("array-total-size |
| 26d6e0 | 22 20 22 66 5f 61 72 5f 74 6f 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 72 72 61 79 2d 74 6f 74 | "."f_ar_tot.htm")....("array-tot |
| 26d700 | 61 6c 2d 73 69 7a 65 2d 6c 69 6d 69 74 22 20 22 76 5f 61 72 5f 74 6f 74 2e 68 74 6d 22 29 0a 09 | al-size-limit"."v_ar_tot.htm").. |
| 26d720 | 20 20 28 22 61 72 72 61 79 70 22 20 22 66 5f 61 72 72 61 79 70 2e 68 74 6d 22 29 0a 09 20 20 28 | ..("arrayp"."f_arrayp.htm")....( |
| 26d740 | 22 61 73 68 22 20 22 66 5f 61 73 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 73 69 6e 22 20 22 66 | "ash"."f_ash.htm")....("asin"."f |
| 26d760 | 5f 61 73 69 6e 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 73 69 6e 68 22 20 22 66 5f 73 69 6e 68 | _asin_.htm")....("asinh"."f_sinh |
| 26d780 | 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 73 73 65 72 74 22 20 22 6d 5f 61 73 73 65 72 74 2e 68 | _.htm")....("assert"."m_assert.h |
| 26d7a0 | 74 6d 22 29 0a 09 20 20 28 22 61 73 73 6f 63 22 20 22 66 5f 61 73 73 6f 63 63 2e 68 74 6d 22 29 | tm")....("assoc"."f_assocc.htm") |
| 26d7c0 | 0a 09 20 20 28 22 61 73 73 6f 63 2d 69 66 22 20 22 66 5f 61 73 73 6f 63 63 2e 68 74 6d 22 29 0a | ....("assoc-if"."f_assocc.htm"). |
| 26d7e0 | 09 20 20 28 22 61 73 73 6f 63 2d 69 66 2d 6e 6f 74 22 20 22 66 5f 61 73 73 6f 63 63 2e 68 74 6d | ...("assoc-if-not"."f_assocc.htm |
| 26d800 | 22 29 0a 09 20 20 28 22 61 74 61 6e 22 20 22 66 5f 61 73 69 6e 5f 2e 68 74 6d 22 29 0a 09 20 20 | ")....("atan"."f_asin_.htm").... |
| 26d820 | 28 22 61 74 61 6e 68 22 20 22 66 5f 73 69 6e 68 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 61 74 6f | ("atanh"."f_sinh_.htm")....("ato |
| 26d840 | 6d 22 20 22 61 5f 61 74 6f 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 61 73 65 2d 63 68 61 72 22 | m"."a_atom.htm")....("base-char" |
| 26d860 | 20 22 74 5f 62 61 73 65 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 61 73 65 2d 73 74 72 69 6e | ."t_base_c.htm")....("base-strin |
| 26d880 | 67 22 20 22 74 5f 62 61 73 65 5f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 69 67 6e 75 6d 22 20 | g"."t_base_s.htm")....("bignum". |
| 26d8a0 | 22 74 5f 62 69 67 6e 75 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 69 74 22 20 22 61 5f 62 69 74 | "t_bignum.htm")....("bit"."a_bit |
| 26d8c0 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 69 74 2d 61 6e 64 22 20 22 66 5f 62 74 5f 61 6e 64 2e 68 | .htm")....("bit-and"."f_bt_and.h |
| 26d8e0 | 74 6d 22 29 0a 09 20 20 28 22 62 69 74 2d 61 6e 64 63 31 22 20 22 66 5f 62 74 5f 61 6e 64 2e 68 | tm")....("bit-andc1"."f_bt_and.h |
| 26d900 | 74 6d 22 29 0a 09 20 20 28 22 62 69 74 2d 61 6e 64 63 32 22 20 22 66 5f 62 74 5f 61 6e 64 2e 68 | tm")....("bit-andc2"."f_bt_and.h |
| 26d920 | 74 6d 22 29 0a 09 20 20 28 22 62 69 74 2d 65 71 76 22 20 22 66 5f 62 74 5f 61 6e 64 2e 68 74 6d | tm")....("bit-eqv"."f_bt_and.htm |
| 26d940 | 22 29 0a 09 20 20 28 22 62 69 74 2d 69 6f 72 22 20 22 66 5f 62 74 5f 61 6e 64 2e 68 74 6d 22 29 | ")....("bit-ior"."f_bt_and.htm") |
| 26d960 | 0a 09 20 20 28 22 62 69 74 2d 6e 61 6e 64 22 20 22 66 5f 62 74 5f 61 6e 64 2e 68 74 6d 22 29 0a | ....("bit-nand"."f_bt_and.htm"). |
| 26d980 | 09 20 20 28 22 62 69 74 2d 6e 6f 72 22 20 22 66 5f 62 74 5f 61 6e 64 2e 68 74 6d 22 29 0a 09 20 | ...("bit-nor"."f_bt_and.htm")... |
| 26d9a0 | 20 28 22 62 69 74 2d 6e 6f 74 22 20 22 66 5f 62 74 5f 61 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 | .("bit-not"."f_bt_and.htm")....( |
| 26d9c0 | 22 62 69 74 2d 6f 72 63 31 22 20 22 66 5f 62 74 5f 61 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 | "bit-orc1"."f_bt_and.htm")....(" |
| 26d9e0 | 62 69 74 2d 6f 72 63 32 22 20 22 66 5f 62 74 5f 61 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 | bit-orc2"."f_bt_and.htm")....("b |
| 26da00 | 69 74 2d 76 65 63 74 6f 72 22 20 22 74 5f 62 74 5f 76 65 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 | it-vector"."t_bt_vec.htm")....(" |
| 26da20 | 62 69 74 2d 76 65 63 74 6f 72 2d 70 22 20 22 66 5f 62 74 5f 76 65 63 2e 68 74 6d 22 29 0a 09 20 | bit-vector-p"."f_bt_vec.htm")... |
| 26da40 | 20 28 22 62 69 74 2d 78 6f 72 22 20 22 66 5f 62 74 5f 61 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 | .("bit-xor"."f_bt_and.htm")....( |
| 26da60 | 22 62 6c 6f 63 6b 22 20 22 73 5f 62 6c 6f 63 6b 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c | "block"."s_block.htm")....("bool |
| 26da80 | 65 22 20 22 66 5f 62 6f 6f 6c 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 31 22 20 | e"."f_boole.htm")....("boole-1". |
| 26daa0 | 22 76 5f 62 5f 31 5f 62 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 32 22 20 22 76 5f | "v_b_1_b.htm")....("boole-2"."v_ |
| 26dac0 | 62 5f 31 5f 62 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 61 6e 64 22 20 22 76 5f 62 | b_1_b.htm")....("boole-and"."v_b |
| 26dae0 | 5f 31 5f 62 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 61 6e 64 63 31 22 20 22 76 5f | _1_b.htm")....("boole-andc1"."v_ |
| 26db00 | 62 5f 31 5f 62 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 61 6e 64 63 32 22 20 22 76 | b_1_b.htm")....("boole-andc2"."v |
| 26db20 | 5f 62 5f 31 5f 62 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 63 31 22 20 22 76 5f 62 | _b_1_b.htm")....("boole-c1"."v_b |
| 26db40 | 5f 31 5f 62 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 63 32 22 20 22 76 5f 62 5f 31 | _1_b.htm")....("boole-c2"."v_b_1 |
| 26db60 | 5f 62 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 63 6c 72 22 20 22 76 5f 62 5f 31 5f | _b.htm")....("boole-clr"."v_b_1_ |
| 26db80 | 62 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 65 71 76 22 20 22 76 5f 62 5f 31 5f 62 | b.htm")....("boole-eqv"."v_b_1_b |
| 26dba0 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 69 6f 72 22 20 22 76 5f 62 5f 31 5f 62 2e | .htm")....("boole-ior"."v_b_1_b. |
| 26dbc0 | 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 6e 61 6e 64 22 20 22 76 5f 62 5f 31 5f 62 2e | htm")....("boole-nand"."v_b_1_b. |
| 26dbe0 | 68 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 6e 6f 72 22 20 22 76 5f 62 5f 31 5f 62 2e 68 | htm")....("boole-nor"."v_b_1_b.h |
| 26dc00 | 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 6f 72 63 31 22 20 22 76 5f 62 5f 31 5f 62 2e 68 | tm")....("boole-orc1"."v_b_1_b.h |
| 26dc20 | 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 6f 72 63 32 22 20 22 76 5f 62 5f 31 5f 62 2e 68 | tm")....("boole-orc2"."v_b_1_b.h |
| 26dc40 | 74 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 73 65 74 22 20 22 76 5f 62 5f 31 5f 62 2e 68 74 | tm")....("boole-set"."v_b_1_b.ht |
| 26dc60 | 6d 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 2d 78 6f 72 22 20 22 76 5f 62 5f 31 5f 62 2e 68 74 6d | m")....("boole-xor"."v_b_1_b.htm |
| 26dc80 | 22 29 0a 09 20 20 28 22 62 6f 6f 6c 65 61 6e 22 20 22 74 5f 62 61 6e 2e 68 74 6d 22 29 0a 09 20 | ")....("boolean"."t_ban.htm")... |
| 26dca0 | 20 28 22 62 6f 74 68 2d 63 61 73 65 2d 70 22 20 22 66 5f 75 70 70 65 72 5f 2e 68 74 6d 22 29 0a | .("both-case-p"."f_upper_.htm"). |
| 26dcc0 | 09 20 20 28 22 62 6f 75 6e 64 70 22 20 22 66 5f 62 6f 75 6e 64 70 2e 68 74 6d 22 29 0a 09 20 20 | ...("boundp"."f_boundp.htm").... |
| 26dce0 | 28 22 62 72 65 61 6b 22 20 22 66 5f 62 72 65 61 6b 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 72 6f | ("break"."f_break.htm")....("bro |
| 26dd00 | 61 64 63 61 73 74 2d 73 74 72 65 61 6d 22 20 22 74 5f 62 72 6f 61 64 63 2e 68 74 6d 22 29 0a 09 | adcast-stream"."t_broadc.htm").. |
| 26dd20 | 20 20 28 22 62 72 6f 61 64 63 61 73 74 2d 73 74 72 65 61 6d 2d 73 74 72 65 61 6d 73 22 20 22 66 | ..("broadcast-stream-streams"."f |
| 26dd40 | 5f 62 72 6f 61 64 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 75 69 6c 74 2d 69 6e 2d 63 6c 61 73 | _broadc.htm")....("built-in-clas |
| 26dd60 | 73 22 20 22 74 5f 62 75 69 6c 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 75 74 6c 61 73 74 22 | s"."t_built_.htm")....("butlast" |
| 26dd80 | 20 22 66 5f 62 75 74 6c 61 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 79 74 65 22 20 22 66 5f 62 | ."f_butlas.htm")....("byte"."f_b |
| 26dda0 | 79 5f 62 79 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 79 74 65 2d 70 6f 73 69 74 69 6f 6e 22 20 22 | y_by.htm")....("byte-position"." |
| 26ddc0 | 66 5f 62 79 5f 62 79 2e 68 74 6d 22 29 0a 09 20 20 28 22 62 79 74 65 2d 73 69 7a 65 22 20 22 66 | f_by_by.htm")....("byte-size"."f |
| 26dde0 | 5f 62 79 5f 62 79 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 61 61 61 61 72 22 20 22 66 5f 63 61 72 | _by_by.htm")....("caaaar"."f_car |
| 26de00 | 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 61 61 61 64 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 | _c.htm")....("caaadr"."f_car_c.h |
| 26de20 | 74 6d 22 29 0a 09 20 20 28 22 63 61 61 61 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a | tm")....("caaar"."f_car_c.htm"). |
| 26de40 | 09 20 20 28 22 63 61 61 64 61 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 | ...("caadar"."f_car_c.htm")....( |
| 26de60 | 22 63 61 61 64 64 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 61 61 | "caaddr"."f_car_c.htm")....("caa |
| 26de80 | 64 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 61 61 72 22 20 22 66 | dr"."f_car_c.htm")....("caar"."f |
| 26dea0 | 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 61 64 61 61 72 22 20 22 66 5f 63 61 72 | _car_c.htm")....("cadaar"."f_car |
| 26dec0 | 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 61 64 61 64 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 | _c.htm")....("cadadr"."f_car_c.h |
| 26dee0 | 74 6d 22 29 0a 09 20 20 28 22 63 61 64 61 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a | tm")....("cadar"."f_car_c.htm"). |
| 26df00 | 09 20 20 28 22 63 61 64 64 61 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 | ...("caddar"."f_car_c.htm")....( |
| 26df20 | 22 63 61 64 64 64 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 61 64 | "cadddr"."f_car_c.htm")....("cad |
| 26df40 | 64 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 61 64 72 22 20 22 66 | dr"."f_car_c.htm")....("cadr"."f |
| 26df60 | 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 61 6c 6c 2d 61 72 67 75 6d 65 6e 74 73 | _car_c.htm")....("call-arguments |
| 26df80 | 2d 6c 69 6d 69 74 22 20 22 76 5f 63 61 6c 6c 5f 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 61 6c | -limit"."v_call_a.htm")....("cal |
| 26dfa0 | 6c 2d 6d 65 74 68 6f 64 22 20 22 6d 5f 63 61 6c 6c 5f 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 | l-method"."m_call_m.htm")....("c |
| 26dfc0 | 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 22 20 22 66 5f 63 61 6c 6c 5f 6e 2e 68 74 6d 22 29 | all-next-method"."f_call_n.htm") |
| 26dfe0 | 0a 09 20 20 28 22 63 61 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 | ....("car"."f_car_c.htm")....("c |
| 26e000 | 61 73 65 22 20 22 6d 5f 63 61 73 65 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 61 74 63 68 22 20 | ase"."m_case_.htm")....("catch". |
| 26e020 | 22 73 5f 63 61 74 63 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 63 61 73 65 22 20 22 6d 5f 63 61 | "s_catch.htm")....("ccase"."m_ca |
| 26e040 | 73 65 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 64 61 61 61 72 22 20 22 66 5f 63 61 72 5f 63 2e | se_.htm")....("cdaaar"."f_car_c. |
| 26e060 | 68 74 6d 22 29 0a 09 20 20 28 22 63 64 61 61 64 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 | htm")....("cdaadr"."f_car_c.htm" |
| 26e080 | 29 0a 09 20 20 28 22 63 64 61 61 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 | )....("cdaar"."f_car_c.htm").... |
| 26e0a0 | 28 22 63 64 61 64 61 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 64 | ("cdadar"."f_car_c.htm")....("cd |
| 26e0c0 | 61 64 64 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 64 61 64 72 22 | addr"."f_car_c.htm")....("cdadr" |
| 26e0e0 | 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 64 61 72 22 20 22 66 5f 63 61 | ."f_car_c.htm")....("cdar"."f_ca |
| 26e100 | 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 64 64 61 61 72 22 20 22 66 5f 63 61 72 5f 63 2e | r_c.htm")....("cddaar"."f_car_c. |
| 26e120 | 68 74 6d 22 29 0a 09 20 20 28 22 63 64 64 61 64 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 | htm")....("cddadr"."f_car_c.htm" |
| 26e140 | 29 0a 09 20 20 28 22 63 64 64 61 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 | )....("cddar"."f_car_c.htm").... |
| 26e160 | 28 22 63 64 64 64 61 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 64 | ("cdddar"."f_car_c.htm")....("cd |
| 26e180 | 64 64 64 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 64 64 64 72 22 | dddr"."f_car_c.htm")....("cdddr" |
| 26e1a0 | 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 64 64 72 22 20 22 66 5f 63 61 | ."f_car_c.htm")....("cddr"."f_ca |
| 26e1c0 | 72 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 64 72 22 20 22 66 5f 63 61 72 5f 63 2e 68 74 6d | r_c.htm")....("cdr"."f_car_c.htm |
| 26e1e0 | 22 29 0a 09 20 20 28 22 63 65 69 6c 69 6e 67 22 20 22 66 5f 66 6c 6f 6f 72 63 2e 68 74 6d 22 29 | ")....("ceiling"."f_floorc.htm") |
| 26e200 | 0a 09 20 20 28 22 63 65 6c 6c 2d 65 72 72 6f 72 22 20 22 65 5f 63 65 6c 6c 5f 65 2e 68 74 6d 22 | ....("cell-error"."e_cell_e.htm" |
| 26e220 | 29 0a 09 20 20 28 22 63 65 6c 6c 2d 65 72 72 6f 72 2d 6e 61 6d 65 22 20 22 66 5f 63 65 6c 6c 5f | )....("cell-error-name"."f_cell_ |
| 26e240 | 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 65 72 72 6f 72 22 20 22 66 5f 63 65 72 72 6f 72 2e 68 | e.htm")....("cerror"."f_cerror.h |
| 26e260 | 74 6d 22 29 0a 09 20 20 28 22 63 68 61 6e 67 65 2d 63 6c 61 73 73 22 20 22 66 5f 63 68 67 5f 63 | tm")....("change-class"."f_chg_c |
| 26e280 | 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 22 20 22 66 5f 63 68 61 72 5f 2e 68 74 6d 22 | l.htm")....("char"."f_char_.htm" |
| 26e2a0 | 29 0a 09 20 20 28 22 63 68 61 72 2d 63 6f 64 65 22 20 22 66 5f 63 68 61 72 5f 63 2e 68 74 6d 22 | )....("char-code"."f_char_c.htm" |
| 26e2c0 | 29 0a 09 20 20 28 22 63 68 61 72 2d 63 6f 64 65 2d 6c 69 6d 69 74 22 20 22 76 5f 63 68 61 72 5f | )....("char-code-limit"."v_char_ |
| 26e2e0 | 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 2d 64 6f 77 6e 63 61 73 65 22 20 22 66 5f 63 | c.htm")....("char-downcase"."f_c |
| 26e300 | 68 61 72 5f 75 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 2d 65 71 75 61 6c 22 20 22 66 5f | har_u.htm")....("char-equal"."f_ |
| 26e320 | 63 68 61 72 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 2d 67 72 65 61 74 65 72 70 22 | chareq.htm")....("char-greaterp" |
| 26e340 | 20 22 66 5f 63 68 61 72 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 2d 69 6e 74 22 20 | ."f_chareq.htm")....("char-int". |
| 26e360 | 22 66 5f 63 68 61 72 5f 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 2d 6c 65 73 73 70 22 | "f_char_i.htm")....("char-lessp" |
| 26e380 | 20 22 66 5f 63 68 61 72 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 2d 6e 61 6d 65 22 | ."f_chareq.htm")....("char-name" |
| 26e3a0 | 20 22 66 5f 63 68 61 72 5f 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 2d 6e 6f 74 2d 65 | ."f_char_n.htm")....("char-not-e |
| 26e3c0 | 71 75 61 6c 22 20 22 66 5f 63 68 61 72 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 2d | qual"."f_chareq.htm")....("char- |
| 26e3e0 | 6e 6f 74 2d 67 72 65 61 74 65 72 70 22 20 22 66 5f 63 68 61 72 65 71 2e 68 74 6d 22 29 0a 09 20 | not-greaterp"."f_chareq.htm")... |
| 26e400 | 20 28 22 63 68 61 72 2d 6e 6f 74 2d 6c 65 73 73 70 22 20 22 66 5f 63 68 61 72 65 71 2e 68 74 6d | .("char-not-lessp"."f_chareq.htm |
| 26e420 | 22 29 0a 09 20 20 28 22 63 68 61 72 2d 75 70 63 61 73 65 22 20 22 66 5f 63 68 61 72 5f 75 2e 68 | ")....("char-upcase"."f_char_u.h |
| 26e440 | 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 2f 3d 22 20 22 66 5f 63 68 61 72 65 71 2e 68 74 6d 22 | tm")....("char/="."f_chareq.htm" |
| 26e460 | 29 0a 09 20 20 28 22 63 68 61 72 3c 22 20 22 66 5f 63 68 61 72 65 71 2e 68 74 6d 22 29 0a 09 20 | )....("char<"."f_chareq.htm")... |
| 26e480 | 20 28 22 63 68 61 72 3c 3d 22 20 22 66 5f 63 68 61 72 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 | .("char<="."f_chareq.htm")....(" |
| 26e4a0 | 63 68 61 72 3d 22 20 22 66 5f 63 68 61 72 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 | char="."f_chareq.htm")....("char |
| 26e4c0 | 3e 22 20 22 66 5f 63 68 61 72 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 3e 3d 22 20 | >"."f_chareq.htm")....("char>=". |
| 26e4e0 | 22 66 5f 63 68 61 72 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 61 63 74 65 72 22 20 | "f_chareq.htm")....("character". |
| 26e500 | 22 61 5f 63 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 61 72 61 63 74 65 72 70 22 20 22 66 5f | "a_ch.htm")....("characterp"."f_ |
| 26e520 | 63 68 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 68 65 63 6b 2d 74 79 70 65 22 20 22 6d 5f 63 68 | chp.htm")....("check-type"."m_ch |
| 26e540 | 65 63 6b 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 69 73 22 20 22 66 5f 63 69 73 2e 68 74 6d 22 | eck_.htm")....("cis"."f_cis.htm" |
| 26e560 | 29 0a 09 20 20 28 22 63 6c 61 73 73 22 20 22 74 5f 63 6c 61 73 73 2e 68 74 6d 22 29 0a 09 20 20 | )....("class"."t_class.htm").... |
| 26e580 | 28 22 63 6c 61 73 73 2d 6e 61 6d 65 22 20 22 66 5f 63 6c 61 73 73 5f 2e 68 74 6d 22 29 0a 09 20 | ("class-name"."f_class_.htm")... |
| 26e5a0 | 20 28 22 63 6c 61 73 73 2d 6f 66 22 20 22 66 5f 63 6c 61 73 5f 31 2e 68 74 6d 22 29 0a 09 20 20 | .("class-of"."f_clas_1.htm").... |
| 26e5c0 | 28 22 63 6c 65 61 72 2d 69 6e 70 75 74 22 20 22 66 5f 63 6c 65 61 72 5f 2e 68 74 6d 22 29 0a 09 | ("clear-input"."f_clear_.htm").. |
| 26e5e0 | 20 20 28 22 63 6c 65 61 72 2d 6f 75 74 70 75 74 22 20 22 66 5f 66 69 6e 69 73 68 2e 68 74 6d 22 | ..("clear-output"."f_finish.htm" |
| 26e600 | 29 0a 09 20 20 28 22 63 6c 6f 73 65 22 20 22 66 5f 63 6c 6f 73 65 2e 68 74 6d 22 29 0a 09 20 20 | )....("close"."f_close.htm").... |
| 26e620 | 28 22 63 6c 72 68 61 73 68 22 20 22 66 5f 63 6c 72 68 61 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 | ("clrhash"."f_clrhas.htm")....(" |
| 26e640 | 63 6f 64 65 2d 63 68 61 72 22 20 22 66 5f 63 6f 64 65 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 | code-char"."f_code_c.htm")....(" |
| 26e660 | 63 6f 65 72 63 65 22 20 22 66 5f 63 6f 65 72 63 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6d | coerce"."f_coerce.htm")....("com |
| 26e680 | 70 69 6c 61 74 69 6f 6e 2d 73 70 65 65 64 22 20 22 64 5f 6f 70 74 69 6d 69 2e 68 74 6d 22 29 0a | pilation-speed"."d_optimi.htm"). |
| 26e6a0 | 09 20 20 28 22 63 6f 6d 70 69 6c 65 22 20 22 66 5f 63 6d 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 | ...("compile"."f_cmp.htm")....(" |
| 26e6c0 | 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 22 20 22 66 5f 63 6d 70 5f 66 69 2e 68 74 6d 22 29 0a 09 20 | compile-file"."f_cmp_fi.htm")... |
| 26e6e0 | 20 28 22 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 68 6e 61 6d 65 22 20 22 66 5f 63 6d 70 | .("compile-file-pathname"."f_cmp |
| 26e700 | 5f 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e | __1.htm")....("compiled-function |
| 26e720 | 22 20 22 74 5f 63 6d 70 64 5f 66 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6d 70 69 6c 65 64 2d | "."t_cmpd_f.htm")....("compiled- |
| 26e740 | 66 75 6e 63 74 69 6f 6e 2d 70 22 20 22 66 5f 63 6d 70 64 5f 66 2e 68 74 6d 22 29 0a 09 20 20 28 | function-p"."f_cmpd_f.htm")....( |
| 26e760 | 22 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 22 20 22 66 5f 64 6f 63 75 6d 65 2e 68 74 6d 22 29 | "compiler-macro"."f_docume.htm") |
| 26e780 | 0a 09 20 20 28 22 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 22 20 22 | ....("compiler-macro-function"." |
| 26e7a0 | 66 5f 63 6d 70 5f 6d 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6d 70 6c 65 6d 65 6e 74 22 20 | f_cmp_ma.htm")....("complement". |
| 26e7c0 | 22 66 5f 63 6f 6d 70 6c 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6d 70 6c 65 78 22 20 22 61 | "f_comple.htm")....("complex"."a |
| 26e7e0 | 5f 63 6f 6d 70 6c 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6d 70 6c 65 78 70 22 20 22 66 5f | _comple.htm")....("complexp"."f_ |
| 26e800 | 63 6f 6d 70 5f 33 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 63 | comp_3.htm")....("compute-applic |
| 26e820 | 61 62 6c 65 2d 6d 65 74 68 6f 64 73 22 20 22 66 5f 63 6f 6d 70 75 74 2e 68 74 6d 22 29 0a 09 20 | able-methods"."f_comput.htm")... |
| 26e840 | 20 28 22 63 6f 6d 70 75 74 65 2d 72 65 73 74 61 72 74 73 22 20 22 66 5f 63 6f 6d 70 5f 31 2e 68 | .("compute-restarts"."f_comp_1.h |
| 26e860 | 74 6d 22 29 0a 09 20 20 28 22 63 6f 6e 63 61 74 65 6e 61 74 65 22 20 22 66 5f 63 6f 6e 63 61 74 | tm")....("concatenate"."f_concat |
| 26e880 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6e 63 61 74 65 6e 61 74 65 64 2d 73 74 72 65 61 6d 22 | .htm")....("concatenated-stream" |
| 26e8a0 | 20 22 74 5f 63 6f 6e 63 61 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6e 63 61 74 65 6e 61 74 | ."t_concat.htm")....("concatenat |
| 26e8c0 | 65 64 2d 73 74 72 65 61 6d 2d 73 74 72 65 61 6d 73 22 20 22 66 5f 63 6f 6e 63 5f 31 2e 68 74 6d | ed-stream-streams"."f_conc_1.htm |
| 26e8e0 | 22 29 0a 09 20 20 28 22 63 6f 6e 64 22 20 22 6d 5f 63 6f 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 | ")....("cond"."m_cond.htm")....( |
| 26e900 | 22 63 6f 6e 64 69 74 69 6f 6e 22 20 22 65 5f 63 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f | "condition"."e_cnd.htm")....("co |
| 26e920 | 6e 6a 75 67 61 74 65 22 20 22 66 5f 63 6f 6e 6a 75 67 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f | njugate"."f_conjug.htm")....("co |
| 26e940 | 6e 73 22 20 22 61 5f 63 6f 6e 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6e 73 70 22 20 22 66 | ns"."a_cons.htm")....("consp"."f |
| 26e960 | 5f 63 6f 6e 73 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6e 73 74 61 6e 74 6c 79 22 20 22 66 | _consp.htm")....("constantly"."f |
| 26e980 | 5f 63 6f 6e 73 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6e 73 74 61 6e 74 70 22 20 22 66 | _cons_1.htm")....("constantp"."f |
| 26e9a0 | 5f 63 6f 6e 73 74 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6e 74 69 6e 75 65 22 20 22 61 5f | _consta.htm")....("continue"."a_ |
| 26e9c0 | 63 6f 6e 74 69 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 6e 74 72 6f 6c 2d 65 72 72 6f 72 22 | contin.htm")....("control-error" |
| 26e9e0 | 20 22 65 5f 63 6f 6e 74 72 6f 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 70 79 2d 61 6c 69 73 74 | ."e_contro.htm")....("copy-alist |
| 26ea00 | 22 20 22 66 5f 63 70 5f 61 6c 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 70 79 2d 6c 69 73 74 | "."f_cp_ali.htm")....("copy-list |
| 26ea20 | 22 20 22 66 5f 63 70 5f 6c 69 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 70 79 2d 70 70 72 69 | "."f_cp_lis.htm")....("copy-ppri |
| 26ea40 | 6e 74 2d 64 69 73 70 61 74 63 68 22 20 22 66 5f 63 70 5f 70 70 72 2e 68 74 6d 22 29 0a 09 20 20 | nt-dispatch"."f_cp_ppr.htm").... |
| 26ea60 | 28 22 63 6f 70 79 2d 72 65 61 64 74 61 62 6c 65 22 20 22 66 5f 63 70 5f 72 64 74 2e 68 74 6d 22 | ("copy-readtable"."f_cp_rdt.htm" |
| 26ea80 | 29 0a 09 20 20 28 22 63 6f 70 79 2d 73 65 71 22 20 22 66 5f 63 70 5f 73 65 71 2e 68 74 6d 22 29 | )....("copy-seq"."f_cp_seq.htm") |
| 26eaa0 | 0a 09 20 20 28 22 63 6f 70 79 2d 73 74 72 75 63 74 75 72 65 22 20 22 66 5f 63 70 5f 73 74 75 2e | ....("copy-structure"."f_cp_stu. |
| 26eac0 | 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 70 79 2d 73 79 6d 62 6f 6c 22 20 22 66 5f 63 70 5f 73 79 | htm")....("copy-symbol"."f_cp_sy |
| 26eae0 | 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 70 79 2d 74 72 65 65 22 20 22 66 5f 63 70 5f 74 72 | m.htm")....("copy-tree"."f_cp_tr |
| 26eb00 | 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 73 22 20 22 66 5f 73 69 6e 5f 63 2e 68 74 6d 22 29 | e.htm")....("cos"."f_sin_c.htm") |
| 26eb20 | 0a 09 20 20 28 22 63 6f 73 68 22 20 22 66 5f 73 69 6e 68 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 | ....("cosh"."f_sinh_.htm")....(" |
| 26eb40 | 63 6f 75 6e 74 22 20 22 66 5f 63 6f 75 6e 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 75 6e | count"."f_countc.htm")....("coun |
| 26eb60 | 74 2d 69 66 22 20 22 66 5f 63 6f 75 6e 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 6f 75 6e 74 | t-if"."f_countc.htm")....("count |
| 26eb80 | 2d 69 66 2d 6e 6f 74 22 20 22 66 5f 63 6f 75 6e 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 63 74 | -if-not"."f_countc.htm")....("ct |
| 26eba0 | 79 70 65 63 61 73 65 22 20 22 6d 5f 74 70 63 61 73 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 | ypecase"."m_tpcase.htm")....("de |
| 26ebc0 | 62 75 67 22 20 22 64 5f 6f 70 74 69 6d 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 63 66 22 20 | bug"."d_optimi.htm")....("decf". |
| 26ebe0 | 22 6d 5f 69 6e 63 66 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 63 6c 61 69 6d 22 20 22 6d 5f | "m_incf_.htm")....("declaim"."m_ |
| 26ec00 | 64 65 63 6c 61 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 63 6c 61 72 61 74 69 6f 6e 22 20 22 | declai.htm")....("declaration"." |
| 26ec20 | 64 5f 64 65 63 6c 61 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 63 6c 61 72 65 22 20 22 73 5f | d_declar.htm")....("declare"."s_ |
| 26ec40 | 64 65 63 6c 61 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 63 6f 64 65 2d 66 6c 6f 61 74 22 20 | declar.htm")....("decode-float". |
| 26ec60 | 22 66 5f 64 65 63 5f 66 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 63 6f 64 65 2d 75 6e 69 76 | "f_dec_fl.htm")....("decode-univ |
| 26ec80 | 65 72 73 61 6c 2d 74 69 6d 65 22 20 22 66 5f 64 65 63 5f 75 6e 2e 68 74 6d 22 29 0a 09 20 20 28 | ersal-time"."f_dec_un.htm")....( |
| 26eca0 | 22 64 65 66 63 6c 61 73 73 22 20 22 6d 5f 64 65 66 63 6c 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 | "defclass"."m_defcla.htm")....(" |
| 26ecc0 | 64 65 66 63 6f 6e 73 74 61 6e 74 22 20 22 6d 5f 64 65 66 63 6f 6e 2e 68 74 6d 22 29 0a 09 20 20 | defconstant"."m_defcon.htm").... |
| 26ece0 | 28 22 64 65 66 67 65 6e 65 72 69 63 22 20 22 6d 5f 64 65 66 67 65 6e 2e 68 74 6d 22 29 0a 09 20 | ("defgeneric"."m_defgen.htm")... |
| 26ed00 | 20 28 22 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 22 20 22 6d 5f 64 65 66 | .("define-compiler-macro"."m_def |
| 26ed20 | 69 6e 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 22 | ine.htm")....("define-condition" |
| 26ed40 | 20 22 6d 5f 64 65 66 69 5f 35 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 66 69 6e 65 2d 6d 65 74 | ."m_defi_5.htm")....("define-met |
| 26ed60 | 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 22 20 22 6d 5f 64 65 66 69 5f 34 2e 68 74 6d 22 29 | hod-combination"."m_defi_4.htm") |
| 26ed80 | 0a 09 20 20 28 22 64 65 66 69 6e 65 2d 6d 6f 64 69 66 79 2d 6d 61 63 72 6f 22 20 22 6d 5f 64 65 | ....("define-modify-macro"."m_de |
| 26eda0 | 66 69 5f 32 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 66 69 6e 65 2d 73 65 74 66 2d 65 78 70 61 | fi_2.htm")....("define-setf-expa |
| 26edc0 | 6e 64 65 72 22 20 22 6d 5f 64 65 66 69 5f 33 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 66 69 6e | nder"."m_defi_3.htm")....("defin |
| 26ede0 | 65 2d 73 79 6d 62 6f 6c 2d 6d 61 63 72 6f 22 20 22 6d 5f 64 65 66 69 5f 31 2e 68 74 6d 22 29 0a | e-symbol-macro"."m_defi_1.htm"). |
| 26ee00 | 09 20 20 28 22 64 65 66 6d 61 63 72 6f 22 20 22 6d 5f 64 65 66 6d 61 63 2e 68 74 6d 22 29 0a 09 | ...("defmacro"."m_defmac.htm").. |
| 26ee20 | 20 20 28 22 64 65 66 6d 65 74 68 6f 64 22 20 22 6d 5f 64 65 66 6d 65 74 2e 68 74 6d 22 29 0a 09 | ..("defmethod"."m_defmet.htm").. |
| 26ee40 | 20 20 28 22 64 65 66 70 61 63 6b 61 67 65 22 20 22 6d 5f 64 65 66 70 6b 67 2e 68 74 6d 22 29 0a | ..("defpackage"."m_defpkg.htm"). |
| 26ee60 | 09 20 20 28 22 64 65 66 70 61 72 61 6d 65 74 65 72 22 20 22 6d 5f 64 65 66 70 61 72 2e 68 74 6d | ...("defparameter"."m_defpar.htm |
| 26ee80 | 22 29 0a 09 20 20 28 22 64 65 66 73 65 74 66 22 20 22 6d 5f 64 65 66 73 65 74 2e 68 74 6d 22 29 | ")....("defsetf"."m_defset.htm") |
| 26eea0 | 0a 09 20 20 28 22 64 65 66 73 74 72 75 63 74 22 20 22 6d 5f 64 65 66 73 74 72 2e 68 74 6d 22 29 | ....("defstruct"."m_defstr.htm") |
| 26eec0 | 0a 09 20 20 28 22 64 65 66 74 79 70 65 22 20 22 6d 5f 64 65 66 74 70 2e 68 74 6d 22 29 0a 09 20 | ....("deftype"."m_deftp.htm")... |
| 26eee0 | 20 28 22 64 65 66 75 6e 22 20 22 6d 5f 64 65 66 75 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 | .("defun"."m_defun.htm")....("de |
| 26ef00 | 66 76 61 72 22 20 22 6d 5f 64 65 66 70 61 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 6c 65 74 | fvar"."m_defpar.htm")....("delet |
| 26ef20 | 65 22 20 22 66 5f 72 6d 5f 72 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 6c 65 74 65 2d 64 75 | e"."f_rm_rm.htm")....("delete-du |
| 26ef40 | 70 6c 69 63 61 74 65 73 22 20 22 66 5f 72 6d 5f 64 75 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 | plicates"."f_rm_dup.htm")....("d |
| 26ef60 | 65 6c 65 74 65 2d 66 69 6c 65 22 20 22 66 5f 64 65 6c 5f 66 69 2e 68 74 6d 22 29 0a 09 20 20 28 | elete-file"."f_del_fi.htm")....( |
| 26ef80 | 22 64 65 6c 65 74 65 2d 69 66 22 20 22 66 5f 72 6d 5f 72 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 | "delete-if"."f_rm_rm.htm")....(" |
| 26efa0 | 64 65 6c 65 74 65 2d 69 66 2d 6e 6f 74 22 20 22 66 5f 72 6d 5f 72 6d 2e 68 74 6d 22 29 0a 09 20 | delete-if-not"."f_rm_rm.htm")... |
| 26efc0 | 20 28 22 64 65 6c 65 74 65 2d 70 61 63 6b 61 67 65 22 20 22 66 5f 64 65 6c 5f 70 6b 2e 68 74 6d | .("delete-package"."f_del_pk.htm |
| 26efe0 | 22 29 0a 09 20 20 28 22 64 65 6e 6f 6d 69 6e 61 74 6f 72 22 20 22 66 5f 6e 75 6d 65 72 61 2e 68 | ")....("denominator"."f_numera.h |
| 26f000 | 74 6d 22 29 0a 09 20 20 28 22 64 65 70 6f 73 69 74 2d 66 69 65 6c 64 22 20 22 66 5f 64 65 70 6f | tm")....("deposit-field"."f_depo |
| 26f020 | 73 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 73 63 72 69 62 65 22 20 22 66 5f 64 65 73 63 72 | si.htm")....("describe"."f_descr |
| 26f040 | 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 73 63 72 69 62 65 2d 6f 62 6a 65 63 74 22 20 22 66 | i.htm")....("describe-object"."f |
| 26f060 | 5f 64 65 73 63 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 65 73 74 72 75 63 74 75 72 69 6e 67 | _desc_1.htm")....("destructuring |
| 26f080 | 2d 62 69 6e 64 22 20 22 6d 5f 64 65 73 74 72 75 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 69 67 69 | -bind"."m_destru.htm")....("digi |
| 26f0a0 | 74 2d 63 68 61 72 22 20 22 66 5f 64 69 67 69 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 69 67 | t-char"."f_digit_.htm")....("dig |
| 26f0c0 | 69 74 2d 63 68 61 72 2d 70 22 20 22 66 5f 64 69 67 69 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 | it-char-p"."f_digi_1.htm")....(" |
| 26f0e0 | 64 69 72 65 63 74 6f 72 79 22 20 22 66 5f 64 69 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 69 72 | directory"."f_dir.htm")....("dir |
| 26f100 | 65 63 74 6f 72 79 2d 6e 61 6d 65 73 74 72 69 6e 67 22 20 22 66 5f 6e 61 6d 65 73 74 2e 68 74 6d | ectory-namestring"."f_namest.htm |
| 26f120 | 22 29 0a 09 20 20 28 22 64 69 73 61 73 73 65 6d 62 6c 65 22 20 22 66 5f 64 69 73 61 73 73 2e 68 | ")....("disassemble"."f_disass.h |
| 26f140 | 74 6d 22 29 0a 09 20 20 28 22 64 69 76 69 73 69 6f 6e 2d 62 79 2d 7a 65 72 6f 22 20 22 65 5f 64 | tm")....("division-by-zero"."e_d |
| 26f160 | 69 76 69 73 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 6f 22 20 22 6d 5f 64 6f 5f 64 6f 2e 68 74 | ivisi.htm")....("do"."m_do_do.ht |
| 26f180 | 6d 22 29 0a 09 20 20 28 22 64 6f 2a 22 20 22 6d 5f 64 6f 5f 64 6f 2e 68 74 6d 22 29 0a 09 20 20 | m")....("do*"."m_do_do.htm").... |
| 26f1a0 | 28 22 64 6f 2d 61 6c 6c 2d 73 79 6d 62 6f 6c 73 22 20 22 6d 5f 64 6f 5f 73 79 6d 2e 68 74 6d 22 | ("do-all-symbols"."m_do_sym.htm" |
| 26f1c0 | 29 0a 09 20 20 28 22 64 6f 2d 65 78 74 65 72 6e 61 6c 2d 73 79 6d 62 6f 6c 73 22 20 22 6d 5f 64 | )....("do-external-symbols"."m_d |
| 26f1e0 | 6f 5f 73 79 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 6f 2d 73 79 6d 62 6f 6c 73 22 20 22 6d 5f | o_sym.htm")....("do-symbols"."m_ |
| 26f200 | 64 6f 5f 73 79 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 22 | do_sym.htm")....("documentation" |
| 26f220 | 20 22 66 5f 64 6f 63 75 6d 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 6f 6c 69 73 74 22 20 22 6d | ."f_docume.htm")....("dolist"."m |
| 26f240 | 5f 64 6f 6c 69 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 6f 74 69 6d 65 73 22 20 22 6d 5f 64 | _dolist.htm")....("dotimes"."m_d |
| 26f260 | 6f 74 69 6d 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 22 20 22 | otime.htm")....("double-float"." |
| 26f280 | 74 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 | t_short_.htm")....("double-float |
| 26f2a0 | 2d 65 70 73 69 6c 6f 6e 22 20 22 76 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 | -epsilon"."v_short_.htm")....("d |
| 26f2c0 | 6f 75 62 6c 65 2d 66 6c 6f 61 74 2d 6e 65 67 61 74 69 76 65 2d 65 70 73 69 6c 6f 6e 22 20 22 76 | ouble-float-negative-epsilon"."v |
| 26f2e0 | 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 64 70 62 22 20 22 66 5f 64 70 62 2e 68 | _short_.htm")....("dpb"."f_dpb.h |
| 26f300 | 74 6d 22 29 0a 09 20 20 28 22 64 72 69 62 62 6c 65 22 20 22 66 5f 64 72 69 62 62 6c 2e 68 74 6d | tm")....("dribble"."f_dribbl.htm |
| 26f320 | 22 29 0a 09 20 20 28 22 64 79 6e 61 6d 69 63 2d 65 78 74 65 6e 74 22 20 22 64 5f 64 79 6e 61 6d | ")....("dynamic-extent"."d_dynam |
| 26f340 | 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 63 61 73 65 22 20 22 6d 5f 63 61 73 65 5f 2e 68 74 6d | i.htm")....("ecase"."m_case_.htm |
| 26f360 | 22 29 0a 09 20 20 28 22 65 63 68 6f 2d 73 74 72 65 61 6d 22 20 22 74 5f 65 63 68 6f 5f 73 2e 68 | ")....("echo-stream"."t_echo_s.h |
| 26f380 | 74 6d 22 29 0a 09 20 20 28 22 65 63 68 6f 2d 73 74 72 65 61 6d 2d 69 6e 70 75 74 2d 73 74 72 65 | tm")....("echo-stream-input-stre |
| 26f3a0 | 61 6d 22 20 22 66 5f 65 63 68 6f 5f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 63 68 6f 2d 73 74 | am"."f_echo_s.htm")....("echo-st |
| 26f3c0 | 72 65 61 6d 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 22 20 22 66 5f 65 63 68 6f 5f 73 2e 68 74 | ream-output-stream"."f_echo_s.ht |
| 26f3e0 | 6d 22 29 0a 09 20 20 28 22 65 64 22 20 22 66 5f 65 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 69 | m")....("ed"."f_ed.htm")....("ei |
| 26f400 | 67 68 74 68 22 20 22 66 5f 66 69 72 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 6c 74 22 20 | ghth"."f_firstc.htm")....("elt". |
| 26f420 | 22 66 5f 65 6c 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 6e 63 6f 64 65 2d 75 6e 69 76 65 72 73 | "f_elt.htm")....("encode-univers |
| 26f440 | 61 6c 2d 74 69 6d 65 22 20 22 66 5f 65 6e 63 6f 64 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 6e | al-time"."f_encode.htm")....("en |
| 26f460 | 64 2d 6f 66 2d 66 69 6c 65 22 20 22 65 5f 65 6e 64 5f 6f 66 2e 68 74 6d 22 29 0a 09 20 20 28 22 | d-of-file"."e_end_of.htm")....(" |
| 26f480 | 65 6e 64 70 22 20 22 66 5f 65 6e 64 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 6e 6f 75 67 68 2d | endp"."f_endp.htm")....("enough- |
| 26f4a0 | 6e 61 6d 65 73 74 72 69 6e 67 22 20 22 66 5f 6e 61 6d 65 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 | namestring"."f_namest.htm")....( |
| 26f4c0 | 22 65 6e 73 75 72 65 2d 64 69 72 65 63 74 6f 72 69 65 73 2d 65 78 69 73 74 22 20 22 66 5f 65 6e | "ensure-directories-exist"."f_en |
| 26f4e0 | 73 75 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 6e 73 75 72 65 2d 67 65 6e 65 72 69 63 2d 66 | su_1.htm")....("ensure-generic-f |
| 26f500 | 75 6e 63 74 69 6f 6e 22 20 22 66 5f 65 6e 73 75 72 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 71 | unction"."f_ensure.htm")....("eq |
| 26f520 | 22 20 22 66 5f 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 71 6c 22 20 22 61 5f 65 71 6c 2e 68 | "."f_eq.htm")....("eql"."a_eql.h |
| 26f540 | 74 6d 22 29 0a 09 20 20 28 22 65 71 75 61 6c 22 20 22 66 5f 65 71 75 61 6c 2e 68 74 6d 22 29 0a | tm")....("equal"."f_equal.htm"). |
| 26f560 | 09 20 20 28 22 65 71 75 61 6c 70 22 20 22 66 5f 65 71 75 61 6c 70 2e 68 74 6d 22 29 0a 09 20 20 | ...("equalp"."f_equalp.htm").... |
| 26f580 | 28 22 65 72 72 6f 72 22 20 22 61 5f 65 72 72 6f 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 74 79 | ("error"."a_error.htm")....("ety |
| 26f5a0 | 70 65 63 61 73 65 22 20 22 6d 5f 74 70 63 61 73 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 76 61 | pecase"."m_tpcase.htm")....("eva |
| 26f5c0 | 6c 22 20 22 66 5f 65 76 61 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 76 61 6c 2d 77 68 65 6e 22 | l"."f_eval.htm")....("eval-when" |
| 26f5e0 | 20 22 73 5f 65 76 61 6c 5f 77 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 76 65 6e 70 22 20 22 66 5f | ."s_eval_w.htm")....("evenp"."f_ |
| 26f600 | 65 76 65 6e 70 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 76 65 72 79 22 20 22 66 5f 65 76 65 72 | evenpc.htm")....("every"."f_ever |
| 26f620 | 79 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 78 70 22 20 22 66 5f 65 78 70 5f 65 2e 68 74 6d 22 | yc.htm")....("exp"."f_exp_e.htm" |
| 26f640 | 29 0a 09 20 20 28 22 65 78 70 6f 72 74 22 20 22 66 5f 65 78 70 6f 72 74 2e 68 74 6d 22 29 0a 09 | )....("export"."f_export.htm").. |
| 26f660 | 20 20 28 22 65 78 70 74 22 20 22 66 5f 65 78 70 5f 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 65 78 | ..("expt"."f_exp_e.htm")....("ex |
| 26f680 | 74 65 6e 64 65 64 2d 63 68 61 72 22 20 22 74 5f 65 78 74 65 6e 64 2e 68 74 6d 22 29 0a 09 20 20 | tended-char"."t_extend.htm").... |
| 26f6a0 | 28 22 66 62 6f 75 6e 64 70 22 20 22 66 5f 66 62 6f 75 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 | ("fboundp"."f_fbound.htm")....(" |
| 26f6c0 | 66 63 65 69 6c 69 6e 67 22 20 22 66 5f 66 6c 6f 6f 72 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 | fceiling"."f_floorc.htm")....("f |
| 26f6e0 | 64 65 66 69 6e 69 74 69 6f 6e 22 20 22 66 5f 66 64 65 66 69 6e 2e 68 74 6d 22 29 0a 09 20 20 28 | definition"."f_fdefin.htm")....( |
| 26f700 | 22 66 66 6c 6f 6f 72 22 20 22 66 5f 66 6c 6f 6f 72 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 69 | "ffloor"."f_floorc.htm")....("fi |
| 26f720 | 66 74 68 22 20 22 66 5f 66 69 72 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 69 6c 65 2d 61 | fth"."f_firstc.htm")....("file-a |
| 26f740 | 75 74 68 6f 72 22 20 22 66 5f 66 69 6c 65 5f 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 69 6c 65 | uthor"."f_file_a.htm")....("file |
| 26f760 | 2d 65 72 72 6f 72 22 20 22 65 5f 66 69 6c 65 5f 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 69 6c | -error"."e_file_e.htm")....("fil |
| 26f780 | 65 2d 65 72 72 6f 72 2d 70 61 74 68 6e 61 6d 65 22 20 22 66 5f 66 69 6c 65 5f 65 2e 68 74 6d 22 | e-error-pathname"."f_file_e.htm" |
| 26f7a0 | 29 0a 09 20 20 28 22 66 69 6c 65 2d 6c 65 6e 67 74 68 22 20 22 66 5f 66 69 6c 65 5f 6c 2e 68 74 | )....("file-length"."f_file_l.ht |
| 26f7c0 | 6d 22 29 0a 09 20 20 28 22 66 69 6c 65 2d 6e 61 6d 65 73 74 72 69 6e 67 22 20 22 66 5f 6e 61 6d | m")....("file-namestring"."f_nam |
| 26f7e0 | 65 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 22 20 22 66 | est.htm")....("file-position"."f |
| 26f800 | 5f 66 69 6c 65 5f 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 69 6c 65 2d 73 74 72 65 61 6d 22 20 | _file_p.htm")....("file-stream". |
| 26f820 | 22 74 5f 66 69 6c 65 5f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 69 6c 65 2d 73 74 72 69 6e 67 | "t_file_s.htm")....("file-string |
| 26f840 | 2d 6c 65 6e 67 74 68 22 20 22 66 5f 66 69 6c 65 5f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 69 | -length"."f_file_s.htm")....("fi |
| 26f860 | 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 22 20 22 66 5f 66 69 6c 65 5f 77 2e 68 74 6d 22 29 0a 09 | le-write-date"."f_file_w.htm").. |
| 26f880 | 20 20 28 22 66 69 6c 6c 22 20 22 66 5f 66 69 6c 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 69 6c | ..("fill"."f_fill.htm")....("fil |
| 26f8a0 | 6c 2d 70 6f 69 6e 74 65 72 22 20 22 66 5f 66 69 6c 6c 5f 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 | l-pointer"."f_fill_p.htm")....(" |
| 26f8c0 | 66 69 6e 64 22 20 22 66 5f 66 69 6e 64 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 69 6e 64 2d 61 | find"."f_find_.htm")....("find-a |
| 26f8e0 | 6c 6c 2d 73 79 6d 62 6f 6c 73 22 20 22 66 5f 66 69 6e 64 5f 61 2e 68 74 6d 22 29 0a 09 20 20 28 | ll-symbols"."f_find_a.htm")....( |
| 26f900 | 22 66 69 6e 64 2d 63 6c 61 73 73 22 20 22 66 5f 66 69 6e 64 5f 63 2e 68 74 6d 22 29 0a 09 20 20 | "find-class"."f_find_c.htm").... |
| 26f920 | 28 22 66 69 6e 64 2d 69 66 22 20 22 66 5f 66 69 6e 64 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 | ("find-if"."f_find_.htm")....("f |
| 26f940 | 69 6e 64 2d 69 66 2d 6e 6f 74 22 20 22 66 5f 66 69 6e 64 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 | ind-if-not"."f_find_.htm")....(" |
| 26f960 | 66 69 6e 64 2d 6d 65 74 68 6f 64 22 20 22 66 5f 66 69 6e 64 5f 6d 2e 68 74 6d 22 29 0a 09 20 20 | find-method"."f_find_m.htm").... |
| 26f980 | 28 22 66 69 6e 64 2d 70 61 63 6b 61 67 65 22 20 22 66 5f 66 69 6e 64 5f 70 2e 68 74 6d 22 29 0a | ("find-package"."f_find_p.htm"). |
| 26f9a0 | 09 20 20 28 22 66 69 6e 64 2d 72 65 73 74 61 72 74 22 20 22 66 5f 66 69 6e 64 5f 72 2e 68 74 6d | ...("find-restart"."f_find_r.htm |
| 26f9c0 | 22 29 0a 09 20 20 28 22 66 69 6e 64 2d 73 79 6d 62 6f 6c 22 20 22 66 5f 66 69 6e 64 5f 73 2e 68 | ")....("find-symbol"."f_find_s.h |
| 26f9e0 | 74 6d 22 29 0a 09 20 20 28 22 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 22 20 22 66 5f 66 69 6e 69 | tm")....("finish-output"."f_fini |
| 26fa00 | 73 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 69 72 73 74 22 20 22 66 5f 66 69 72 73 74 63 2e 68 | sh.htm")....("first"."f_firstc.h |
| 26fa20 | 74 6d 22 29 0a 09 20 20 28 22 66 69 78 6e 75 6d 22 20 22 74 5f 66 69 78 6e 75 6d 2e 68 74 6d 22 | tm")....("fixnum"."t_fixnum.htm" |
| 26fa40 | 29 0a 09 20 20 28 22 66 6c 65 74 22 20 22 73 5f 66 6c 65 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 | )....("flet"."s_flet_.htm")....( |
| 26fa60 | 22 66 6c 6f 61 74 22 20 22 61 5f 66 6c 6f 61 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 6c 6f 61 | "float"."a_float.htm")....("floa |
| 26fa80 | 74 2d 64 69 67 69 74 73 22 20 22 66 5f 64 65 63 5f 66 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 | t-digits"."f_dec_fl.htm")....("f |
| 26faa0 | 6c 6f 61 74 2d 70 72 65 63 69 73 69 6f 6e 22 20 22 66 5f 64 65 63 5f 66 6c 2e 68 74 6d 22 29 0a | loat-precision"."f_dec_fl.htm"). |
| 26fac0 | 09 20 20 28 22 66 6c 6f 61 74 2d 72 61 64 69 78 22 20 22 66 5f 64 65 63 5f 66 6c 2e 68 74 6d 22 | ...("float-radix"."f_dec_fl.htm" |
| 26fae0 | 29 0a 09 20 20 28 22 66 6c 6f 61 74 2d 73 69 67 6e 22 20 22 66 5f 64 65 63 5f 66 6c 2e 68 74 6d | )....("float-sign"."f_dec_fl.htm |
| 26fb00 | 22 29 0a 09 20 20 28 22 66 6c 6f 61 74 69 6e 67 2d 70 6f 69 6e 74 2d 69 6e 65 78 61 63 74 22 20 | ")....("floating-point-inexact". |
| 26fb20 | 22 65 5f 66 6c 6f 61 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 6c 6f 61 74 69 6e 67 2d 70 6f | "e_floa_1.htm")....("floating-po |
| 26fb40 | 69 6e 74 2d 69 6e 76 61 6c 69 64 2d 6f 70 65 72 61 74 69 6f 6e 22 20 22 65 5f 66 6c 6f 61 74 69 | int-invalid-operation"."e_floati |
| 26fb60 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 6c 6f 61 74 69 6e 67 2d 70 6f 69 6e 74 2d 6f 76 65 72 66 | .htm")....("floating-point-overf |
| 26fb80 | 6c 6f 77 22 20 22 65 5f 66 6c 6f 61 5f 32 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 6c 6f 61 74 69 | low"."e_floa_2.htm")....("floati |
| 26fba0 | 6e 67 2d 70 6f 69 6e 74 2d 75 6e 64 65 72 66 6c 6f 77 22 20 22 65 5f 66 6c 6f 61 5f 33 2e 68 74 | ng-point-underflow"."e_floa_3.ht |
| 26fbc0 | 6d 22 29 0a 09 20 20 28 22 66 6c 6f 61 74 70 22 20 22 66 5f 66 6c 6f 61 74 70 2e 68 74 6d 22 29 | m")....("floatp"."f_floatp.htm") |
| 26fbe0 | 0a 09 20 20 28 22 66 6c 6f 6f 72 22 20 22 66 5f 66 6c 6f 6f 72 63 2e 68 74 6d 22 29 0a 09 20 20 | ....("floor"."f_floorc.htm").... |
| 26fc00 | 28 22 66 6d 61 6b 75 6e 62 6f 75 6e 64 22 20 22 66 5f 66 6d 61 6b 75 6e 2e 68 74 6d 22 29 0a 09 | ("fmakunbound"."f_fmakun.htm").. |
| 26fc20 | 20 20 28 22 66 6f 72 63 65 2d 6f 75 74 70 75 74 22 20 22 66 5f 66 69 6e 69 73 68 2e 68 74 6d 22 | ..("force-output"."f_finish.htm" |
| 26fc40 | 29 0a 09 20 20 28 22 66 6f 72 6d 61 74 22 20 22 66 5f 66 6f 72 6d 61 74 2e 68 74 6d 22 29 0a 09 | )....("format"."f_format.htm").. |
| 26fc60 | 20 20 28 22 66 6f 72 6d 61 74 74 65 72 22 20 22 6d 5f 66 6f 72 6d 61 74 2e 68 74 6d 22 29 0a 09 | ..("formatter"."m_format.htm").. |
| 26fc80 | 20 20 28 22 66 6f 75 72 74 68 22 20 22 66 5f 66 69 72 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 | ..("fourth"."f_firstc.htm")....( |
| 26fca0 | 22 66 72 65 73 68 2d 6c 69 6e 65 22 20 22 66 5f 74 65 72 70 72 69 2e 68 74 6d 22 29 0a 09 20 20 | "fresh-line"."f_terpri.htm").... |
| 26fcc0 | 28 22 66 72 6f 75 6e 64 22 20 22 66 5f 66 6c 6f 6f 72 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 | ("fround"."f_floorc.htm")....("f |
| 26fce0 | 74 72 75 6e 63 61 74 65 22 20 22 66 5f 66 6c 6f 6f 72 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 | truncate"."f_floorc.htm")....("f |
| 26fd00 | 74 79 70 65 22 20 22 64 5f 66 74 79 70 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 75 6e 63 61 6c | type"."d_ftype.htm")....("funcal |
| 26fd20 | 6c 22 20 22 66 5f 66 75 6e 63 61 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 75 6e 63 74 69 6f 6e | l"."f_funcal.htm")....("function |
| 26fd40 | 22 20 22 61 5f 66 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 77 | "."a_fn.htm")....("function-keyw |
| 26fd60 | 6f 72 64 73 22 20 22 66 5f 66 6e 5f 6b 77 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 75 6e 63 74 | ords"."f_fn_kwd.htm")....("funct |
| 26fd80 | 69 6f 6e 2d 6c 61 6d 62 64 61 2d 65 78 70 72 65 73 73 69 6f 6e 22 20 22 66 5f 66 6e 5f 6c 61 6d | ion-lambda-expression"."f_fn_lam |
| 26fda0 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 66 75 6e 63 74 69 6f 6e 70 22 20 22 66 5f 66 6e 70 2e 68 74 | .htm")....("functionp"."f_fnp.ht |
| 26fdc0 | 6d 22 29 0a 09 20 20 28 22 67 63 64 22 20 22 66 5f 67 63 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 | m")....("gcd"."f_gcd.htm")....(" |
| 26fde0 | 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 22 20 22 74 5f 67 65 6e 65 72 69 2e 68 74 6d 22 | generic-function"."t_generi.htm" |
| 26fe00 | 29 0a 09 20 20 28 22 67 65 6e 73 79 6d 22 20 22 66 5f 67 65 6e 73 79 6d 2e 68 74 6d 22 29 0a 09 | )....("gensym"."f_gensym.htm").. |
| 26fe20 | 20 20 28 22 67 65 6e 74 65 6d 70 22 20 22 66 5f 67 65 6e 74 65 6d 2e 68 74 6d 22 29 0a 09 20 20 | ..("gentemp"."f_gentem.htm").... |
| 26fe40 | 28 22 67 65 74 22 20 22 66 5f 67 65 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 67 65 74 2d 64 65 63 | ("get"."f_get.htm")....("get-dec |
| 26fe60 | 6f 64 65 64 2d 74 69 6d 65 22 20 22 66 5f 67 65 74 5f 75 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 | oded-time"."f_get_un.htm")....(" |
| 26fe80 | 67 65 74 2d 64 69 73 70 61 74 63 68 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 22 20 22 66 | get-dispatch-macro-character"."f |
| 26fea0 | 5f 73 65 74 5f 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d | _set__1.htm")....("get-internal- |
| 26fec0 | 72 65 61 6c 2d 74 69 6d 65 22 20 22 66 5f 67 65 74 5f 69 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 | real-time"."f_get_in.htm")....(" |
| 26fee0 | 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 75 6e 2d 74 69 6d 65 22 20 22 66 5f 67 65 74 5f 5f 31 | get-internal-run-time"."f_get__1 |
| 26ff00 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 67 65 74 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 22 | .htm")....("get-macro-character" |
| 26ff20 | 20 22 66 5f 73 65 74 5f 6d 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 67 65 74 2d 6f 75 74 70 75 74 | ."f_set_ma.htm")....("get-output |
| 26ff40 | 2d 73 74 72 65 61 6d 2d 73 74 72 69 6e 67 22 20 22 66 5f 67 65 74 5f 6f 75 2e 68 74 6d 22 29 0a | -stream-string"."f_get_ou.htm"). |
| 26ff60 | 09 20 20 28 22 67 65 74 2d 70 72 6f 70 65 72 74 69 65 73 22 20 22 66 5f 67 65 74 5f 70 72 2e 68 | ...("get-properties"."f_get_pr.h |
| 26ff80 | 74 6d 22 29 0a 09 20 20 28 22 67 65 74 2d 73 65 74 66 2d 65 78 70 61 6e 73 69 6f 6e 22 20 22 66 | tm")....("get-setf-expansion"."f |
| 26ffa0 | 5f 67 65 74 5f 73 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 67 65 74 2d 75 6e 69 76 65 72 73 61 6c | _get_se.htm")....("get-universal |
| 26ffc0 | 2d 74 69 6d 65 22 20 22 66 5f 67 65 74 5f 75 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 67 65 74 66 | -time"."f_get_un.htm")....("getf |
| 26ffe0 | 22 20 22 66 5f 67 65 74 66 2e 68 74 6d 22 29 0a 09 20 20 28 22 67 65 74 68 61 73 68 22 20 22 66 | "."f_getf.htm")....("gethash"."f |
| 270000 | 5f 67 65 74 68 61 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 67 6f 22 20 22 73 5f 67 6f 2e 68 74 6d | _gethas.htm")....("go"."s_go.htm |
| 270020 | 22 29 0a 09 20 20 28 22 67 72 61 70 68 69 63 2d 63 68 61 72 2d 70 22 20 22 66 5f 67 72 61 70 68 | ")....("graphic-char-p"."f_graph |
| 270040 | 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 68 61 6e 64 6c 65 72 2d 62 69 6e 64 22 20 22 6d 5f 68 61 | i.htm")....("handler-bind"."m_ha |
| 270060 | 6e 64 6c 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 68 61 6e 64 6c 65 72 2d 63 61 73 65 22 20 22 6d | ndle.htm")....("handler-case"."m |
| 270080 | 5f 68 61 6e 64 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 68 61 73 68 2d 74 61 62 6c 65 22 20 22 | _hand_1.htm")....("hash-table"." |
| 2700a0 | 74 5f 68 61 73 68 5f 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 68 61 73 68 2d 74 61 62 6c 65 2d 63 | t_hash_t.htm")....("hash-table-c |
| 2700c0 | 6f 75 6e 74 22 20 22 66 5f 68 61 73 68 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 68 61 73 68 2d | ount"."f_hash_1.htm")....("hash- |
| 2700e0 | 74 61 62 6c 65 2d 70 22 20 22 66 5f 68 61 73 68 5f 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 68 61 | table-p"."f_hash_t.htm")....("ha |
| 270100 | 73 68 2d 74 61 62 6c 65 2d 72 65 68 61 73 68 2d 73 69 7a 65 22 20 22 66 5f 68 61 73 68 5f 32 2e | sh-table-rehash-size"."f_hash_2. |
| 270120 | 68 74 6d 22 29 0a 09 20 20 28 22 68 61 73 68 2d 74 61 62 6c 65 2d 72 65 68 61 73 68 2d 74 68 72 | htm")....("hash-table-rehash-thr |
| 270140 | 65 73 68 6f 6c 64 22 20 22 66 5f 68 61 73 68 5f 33 2e 68 74 6d 22 29 0a 09 20 20 28 22 68 61 73 | eshold"."f_hash_3.htm")....("has |
| 270160 | 68 2d 74 61 62 6c 65 2d 73 69 7a 65 22 20 22 66 5f 68 61 73 68 5f 34 2e 68 74 6d 22 29 0a 09 20 | h-table-size"."f_hash_4.htm")... |
| 270180 | 20 28 22 68 61 73 68 2d 74 61 62 6c 65 2d 74 65 73 74 22 20 22 66 5f 68 61 73 68 5f 35 2e 68 74 | .("hash-table-test"."f_hash_5.ht |
| 2701a0 | 6d 22 29 0a 09 20 20 28 22 68 6f 73 74 2d 6e 61 6d 65 73 74 72 69 6e 67 22 20 22 66 5f 6e 61 6d | m")....("host-namestring"."f_nam |
| 2701c0 | 65 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 64 65 6e 74 69 74 79 22 20 22 66 5f 69 64 65 6e | est.htm")....("identity"."f_iden |
| 2701e0 | 74 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 66 22 20 22 73 5f 69 66 2e 68 74 6d 22 29 0a 09 20 | ti.htm")....("if"."s_if.htm")... |
| 270200 | 20 28 22 69 67 6e 6f 72 61 62 6c 65 22 20 22 64 5f 69 67 6e 6f 72 65 2e 68 74 6d 22 29 0a 09 20 | .("ignorable"."d_ignore.htm")... |
| 270220 | 20 28 22 69 67 6e 6f 72 65 22 20 22 64 5f 69 67 6e 6f 72 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 | .("ignore"."d_ignore.htm")....(" |
| 270240 | 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 22 20 22 6d 5f 69 67 6e 6f 72 65 2e 68 74 6d 22 29 0a 09 | ignore-errors"."m_ignore.htm").. |
| 270260 | 20 20 28 22 69 6d 61 67 70 61 72 74 22 20 22 66 5f 72 65 61 6c 70 61 2e 68 74 6d 22 29 0a 09 20 | ..("imagpart"."f_realpa.htm")... |
| 270280 | 20 28 22 69 6d 70 6f 72 74 22 20 22 66 5f 69 6d 70 6f 72 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 | .("import"."f_import.htm")....(" |
| 2702a0 | 69 6e 2d 70 61 63 6b 61 67 65 22 20 22 6d 5f 69 6e 5f 70 6b 67 2e 68 74 6d 22 29 0a 09 20 20 28 | in-package"."m_in_pkg.htm")....( |
| 2702c0 | 22 69 6e 63 66 22 20 22 6d 5f 69 6e 63 66 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 6e 69 74 69 | "incf"."m_incf_.htm")....("initi |
| 2702e0 | 61 6c 69 7a 65 2d 69 6e 73 74 61 6e 63 65 22 20 22 66 5f 69 6e 69 74 5f 69 2e 68 74 6d 22 29 0a | alize-instance"."f_init_i.htm"). |
| 270300 | 09 20 20 28 22 69 6e 6c 69 6e 65 22 20 22 64 5f 69 6e 6c 69 6e 65 2e 68 74 6d 22 29 0a 09 20 20 | ...("inline"."d_inline.htm").... |
| 270320 | 28 22 69 6e 70 75 74 2d 73 74 72 65 61 6d 2d 70 22 20 22 66 5f 69 6e 5f 73 74 6d 2e 68 74 6d 22 | ("input-stream-p"."f_in_stm.htm" |
| 270340 | 29 0a 09 20 20 28 22 69 6e 73 70 65 63 74 22 20 22 66 5f 69 6e 73 70 65 63 2e 68 74 6d 22 29 0a | )....("inspect"."f_inspec.htm"). |
| 270360 | 09 20 20 28 22 69 6e 74 65 67 65 72 22 20 22 74 5f 69 6e 74 65 67 65 2e 68 74 6d 22 29 0a 09 20 | ...("integer"."t_intege.htm")... |
| 270380 | 20 28 22 69 6e 74 65 67 65 72 2d 64 65 63 6f 64 65 2d 66 6c 6f 61 74 22 20 22 66 5f 64 65 63 5f | .("integer-decode-float"."f_dec_ |
| 2703a0 | 66 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 6e 74 65 67 65 72 2d 6c 65 6e 67 74 68 22 20 22 66 | fl.htm")....("integer-length"."f |
| 2703c0 | 5f 69 6e 74 65 67 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 6e 74 65 67 65 72 70 22 20 22 66 5f | _intege.htm")....("integerp"."f_ |
| 2703e0 | 69 6e 74 65 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 6e 74 65 72 61 63 74 69 76 65 2d 73 74 | inte_1.htm")....("interactive-st |
| 270400 | 72 65 61 6d 2d 70 22 20 22 66 5f 69 6e 74 65 72 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 6e 74 | ream-p"."f_intera.htm")....("int |
| 270420 | 65 72 6e 22 20 22 66 5f 69 6e 74 65 72 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 6e 74 65 72 6e | ern"."f_intern.htm")....("intern |
| 270440 | 61 6c 2d 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 22 20 22 76 5f 69 6e 74 | al-time-units-per-second"."v_int |
| 270460 | 65 72 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 6e 74 65 72 73 65 63 74 69 6f 6e 22 20 22 66 5f | ern.htm")....("intersection"."f_ |
| 270480 | 69 73 65 63 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 6e 76 61 6c 69 64 2d 6d 65 74 68 6f 64 2d | isec_.htm")....("invalid-method- |
| 2704a0 | 65 72 72 6f 72 22 20 22 66 5f 69 6e 76 61 6c 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 6e 76 6f | error"."f_invali.htm")....("invo |
| 2704c0 | 6b 65 2d 64 65 62 75 67 67 65 72 22 20 22 66 5f 69 6e 76 6f 6b 65 2e 68 74 6d 22 29 0a 09 20 20 | ke-debugger"."f_invoke.htm").... |
| 2704e0 | 28 22 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 22 20 22 66 5f 69 6e 76 6f 5f 31 2e 68 74 6d 22 | ("invoke-restart"."f_invo_1.htm" |
| 270500 | 29 0a 09 20 20 28 22 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 2d 69 6e 74 65 72 61 63 74 69 76 | )....("invoke-restart-interactiv |
| 270520 | 65 6c 79 22 20 22 66 5f 69 6e 76 6f 5f 32 2e 68 74 6d 22 29 0a 09 20 20 28 22 69 73 71 72 74 22 | ely"."f_invo_2.htm")....("isqrt" |
| 270540 | 20 22 66 5f 73 71 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6b 65 79 77 6f 72 64 22 20 22 74 | ."f_sqrt_.htm")....("keyword"."t |
| 270560 | 5f 6b 77 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6b 65 79 77 6f 72 64 70 22 20 22 66 5f 6b 77 64 | _kwd.htm")....("keywordp"."f_kwd |
| 270580 | 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 61 62 65 6c 73 22 20 22 73 5f 66 6c 65 74 5f 2e 68 74 | p.htm")....("labels"."s_flet_.ht |
| 2705a0 | 6d 22 29 0a 09 20 20 28 22 6c 61 6d 62 64 61 22 20 22 61 5f 6c 61 6d 62 64 61 2e 68 74 6d 22 29 | m")....("lambda"."a_lambda.htm") |
| 2705c0 | 0a 09 20 20 28 22 6c 61 6d 62 64 61 2d 6c 69 73 74 2d 6b 65 79 77 6f 72 64 73 22 20 22 76 5f 6c | ....("lambda-list-keywords"."v_l |
| 2705e0 | 61 6d 62 64 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 61 6d 62 64 61 2d 70 61 72 61 6d 65 74 65 | ambda.htm")....("lambda-paramete |
| 270600 | 72 73 2d 6c 69 6d 69 74 22 20 22 76 5f 6c 61 6d 62 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c | rs-limit"."v_lamb_1.htm")....("l |
| 270620 | 61 73 74 22 20 22 66 5f 6c 61 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 63 6d 22 20 22 66 5f | ast"."f_last.htm")....("lcm"."f_ |
| 270640 | 6c 63 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 64 62 22 20 22 66 5f 6c 64 62 2e 68 74 6d 22 29 | lcm.htm")....("ldb"."f_ldb.htm") |
| 270660 | 0a 09 20 20 28 22 6c 64 62 2d 74 65 73 74 22 20 22 66 5f 6c 64 62 5f 74 65 2e 68 74 6d 22 29 0a | ....("ldb-test"."f_ldb_te.htm"). |
| 270680 | 09 20 20 28 22 6c 64 69 66 66 22 20 22 66 5f 6c 64 69 66 66 63 2e 68 74 6d 22 29 0a 09 20 20 28 | ...("ldiff"."f_ldiffc.htm")....( |
| 2706a0 | 22 6c 65 61 73 74 2d 6e 65 67 61 74 69 76 65 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 22 20 22 76 | "least-negative-double-float"."v |
| 2706c0 | 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 2d 6e 65 67 61 74 69 76 | _most_1.htm")....("least-negativ |
| 2706e0 | 65 2d 6c 6f 6e 67 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 | e-long-float"."v_most_1.htm")... |
| 270700 | 20 28 22 6c 65 61 73 74 2d 6e 65 67 61 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d 64 6f 75 | .("least-negative-normalized-dou |
| 270720 | 62 6c 65 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 | ble-float"."v_most_1.htm")....(" |
| 270740 | 6c 65 61 73 74 2d 6e 65 67 61 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d 6c 6f 6e 67 2d 66 | least-negative-normalized-long-f |
| 270760 | 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 | loat"."v_most_1.htm")....("least |
| 270780 | 2d 6e 65 67 61 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d 73 68 6f 72 74 2d 66 6c 6f 61 74 | -negative-normalized-short-float |
| 2707a0 | 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 2d 6e 65 67 | "."v_most_1.htm")....("least-neg |
| 2707c0 | 61 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 22 20 22 | ative-normalized-single-float"." |
| 2707e0 | 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 2d 6e 65 67 61 74 69 | v_most_1.htm")....("least-negati |
| 270800 | 76 65 2d 73 68 6f 72 74 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a | ve-short-float"."v_most_1.htm"). |
| 270820 | 09 20 20 28 22 6c 65 61 73 74 2d 6e 65 67 61 74 69 76 65 2d 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 | ...("least-negative-single-float |
| 270840 | 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 2d 70 6f 73 | "."v_most_1.htm")....("least-pos |
| 270860 | 69 74 69 76 65 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 | itive-double-float"."v_most_1.ht |
| 270880 | 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d 6c 6f 6e 67 2d 66 6c 6f | m")....("least-positive-long-flo |
| 2708a0 | 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 2d 70 | at"."v_most_1.htm")....("least-p |
| 2708c0 | 6f 73 69 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 22 | ositive-normalized-double-float" |
| 2708e0 | 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 2d 70 6f 73 69 | ."v_most_1.htm")....("least-posi |
| 270900 | 74 69 76 65 2d 6e 6f 72 6d 61 6c 69 7a 65 64 2d 6c 6f 6e 67 2d 66 6c 6f 61 74 22 20 22 76 5f 6d | tive-normalized-long-float"."v_m |
| 270920 | 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d | ost_1.htm")....("least-positive- |
| 270940 | 6e 6f 72 6d 61 6c 69 7a 65 64 2d 73 68 6f 72 74 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f | normalized-short-float"."v_most_ |
| 270960 | 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d 6e 6f 72 6d | 1.htm")....("least-positive-norm |
| 270980 | 61 6c 69 7a 65 64 2d 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 | alized-single-float"."v_most_1.h |
| 2709a0 | 74 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d 73 68 6f 72 74 2d 66 | tm")....("least-positive-short-f |
| 2709c0 | 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 65 61 73 74 | loat"."v_most_1.htm")....("least |
| 2709e0 | 2d 70 6f 73 69 74 69 76 65 2d 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f | -positive-single-float"."v_most_ |
| 270a00 | 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 65 6e 67 74 68 22 20 22 66 5f 6c 65 6e 67 74 68 2e 68 | 1.htm")....("length"."f_length.h |
| 270a20 | 74 6d 22 29 0a 09 20 20 28 22 6c 65 74 22 20 22 73 5f 6c 65 74 5f 6c 2e 68 74 6d 22 29 0a 09 20 | tm")....("let"."s_let_l.htm")... |
| 270a40 | 20 28 22 6c 65 74 2a 22 20 22 73 5f 6c 65 74 5f 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 69 73 | .("let*"."s_let_l.htm")....("lis |
| 270a60 | 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 22 20 22 66 5f 6c 69 73 70 5f 69 | p-implementation-type"."f_lisp_i |
| 270a80 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d | .htm")....("lisp-implementation- |
| 270aa0 | 76 65 72 73 69 6f 6e 22 20 22 66 5f 6c 69 73 70 5f 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 69 | version"."f_lisp_i.htm")....("li |
| 270ac0 | 73 74 22 20 22 61 5f 6c 69 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 69 73 74 2a 22 20 22 66 | st"."a_list.htm")....("list*"."f |
| 270ae0 | 5f 6c 69 73 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 69 73 74 2d 61 6c 6c 2d 70 61 63 6b 61 | _list_.htm")....("list-all-packa |
| 270b00 | 67 65 73 22 20 22 66 5f 6c 69 73 74 5f 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 69 73 74 2d 6c | ges"."f_list_a.htm")....("list-l |
| 270b20 | 65 6e 67 74 68 22 20 22 66 5f 6c 69 73 74 5f 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 69 73 74 | ength"."f_list_l.htm")....("list |
| 270b40 | 65 6e 22 20 22 66 5f 6c 69 73 74 65 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 69 73 74 70 22 20 | en"."f_listen.htm")....("listp". |
| 270b60 | 22 66 5f 6c 69 73 74 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 61 64 22 20 22 66 5f 6c 6f 61 | "f_listp.htm")....("load"."f_loa |
| 270b80 | 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 61 64 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 | d.htm")....("load-logical-pathna |
| 270ba0 | 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 22 20 22 66 5f 6c 64 5f 6c 6f 67 2e 68 74 6d 22 29 | me-translations"."f_ld_log.htm") |
| 270bc0 | 0a 09 20 20 28 22 6c 6f 61 64 2d 74 69 6d 65 2d 76 61 6c 75 65 22 20 22 73 5f 6c 64 5f 74 69 6d | ....("load-time-value"."s_ld_tim |
| 270be0 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 63 61 6c 6c 79 22 20 22 73 5f 6c 6f 63 61 6c 6c 2e 68 | .htm")....("locally"."s_locall.h |
| 270c00 | 74 6d 22 29 0a 09 20 20 28 22 6c 6f 67 22 20 22 66 5f 6c 6f 67 2e 68 74 6d 22 29 0a 09 20 20 28 | tm")....("log"."f_log.htm")....( |
| 270c20 | 22 6c 6f 67 61 6e 64 22 20 22 66 5f 6c 6f 67 61 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f | "logand"."f_logand.htm")....("lo |
| 270c40 | 67 61 6e 64 63 31 22 20 22 66 5f 6c 6f 67 61 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 67 | gandc1"."f_logand.htm")....("log |
| 270c60 | 61 6e 64 63 32 22 20 22 66 5f 6c 6f 67 61 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 67 62 | andc2"."f_logand.htm")....("logb |
| 270c80 | 69 74 70 22 20 22 66 5f 6c 6f 67 62 74 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 67 63 6f 75 | itp"."f_logbtp.htm")....("logcou |
| 270ca0 | 6e 74 22 20 22 66 5f 6c 6f 67 63 6f 75 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 67 65 71 76 22 | nt"."f_logcou.htm")....("logeqv" |
| 270cc0 | 20 22 66 5f 6c 6f 67 61 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 67 69 63 61 6c 2d 70 61 | ."f_logand.htm")....("logical-pa |
| 270ce0 | 74 68 6e 61 6d 65 22 20 22 61 5f 6c 6f 67 69 63 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 67 | thname"."a_logica.htm")....("log |
| 270d00 | 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 22 20 22 66 5f 6c | ical-pathname-translations"."f_l |
| 270d20 | 6f 67 69 63 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 67 69 6f 72 22 20 22 66 5f 6c 6f 67 61 | ogica.htm")....("logior"."f_loga |
| 270d40 | 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 67 6e 61 6e 64 22 20 22 66 5f 6c 6f 67 61 6e 64 | nd.htm")....("lognand"."f_logand |
| 270d60 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 67 6e 6f 72 22 20 22 66 5f 6c 6f 67 61 6e 64 2e 68 74 | .htm")....("lognor"."f_logand.ht |
| 270d80 | 6d 22 29 0a 09 20 20 28 22 6c 6f 67 6e 6f 74 22 20 22 66 5f 6c 6f 67 61 6e 64 2e 68 74 6d 22 29 | m")....("lognot"."f_logand.htm") |
| 270da0 | 0a 09 20 20 28 22 6c 6f 67 6f 72 63 31 22 20 22 66 5f 6c 6f 67 61 6e 64 2e 68 74 6d 22 29 0a 09 | ....("logorc1"."f_logand.htm").. |
| 270dc0 | 20 20 28 22 6c 6f 67 6f 72 63 32 22 20 22 66 5f 6c 6f 67 61 6e 64 2e 68 74 6d 22 29 0a 09 20 20 | ..("logorc2"."f_logand.htm").... |
| 270de0 | 28 22 6c 6f 67 74 65 73 74 22 20 22 66 5f 6c 6f 67 74 65 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 | ("logtest"."f_logtes.htm")....(" |
| 270e00 | 6c 6f 67 78 6f 72 22 20 22 66 5f 6c 6f 67 61 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 6e | logxor"."f_logand.htm")....("lon |
| 270e20 | 67 2d 66 6c 6f 61 74 22 20 22 74 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f | g-float"."t_short_.htm")....("lo |
| 270e40 | 6e 67 2d 66 6c 6f 61 74 2d 65 70 73 69 6c 6f 6e 22 20 22 76 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 | ng-float-epsilon"."v_short_.htm" |
| 270e60 | 29 0a 09 20 20 28 22 6c 6f 6e 67 2d 66 6c 6f 61 74 2d 6e 65 67 61 74 69 76 65 2d 65 70 73 69 6c | )....("long-float-negative-epsil |
| 270e80 | 6f 6e 22 20 22 76 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 6e 67 2d 73 69 | on"."v_short_.htm")....("long-si |
| 270ea0 | 74 65 2d 6e 61 6d 65 22 20 22 66 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f | te-name"."f_short_.htm")....("lo |
| 270ec0 | 6f 70 22 20 22 6d 5f 6c 6f 6f 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 6f 70 2d 66 69 6e 69 | op"."m_loop.htm")....("loop-fini |
| 270ee0 | 73 68 22 20 22 6d 5f 6c 6f 6f 70 5f 66 2e 68 74 6d 22 29 0a 09 20 20 28 22 6c 6f 77 65 72 2d 63 | sh"."m_loop_f.htm")....("lower-c |
| 270f00 | 61 73 65 2d 70 22 20 22 66 5f 75 70 70 65 72 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 63 68 | ase-p"."f_upper_.htm")....("mach |
| 270f20 | 69 6e 65 2d 69 6e 73 74 61 6e 63 65 22 20 22 66 5f 6d 61 63 68 5f 69 2e 68 74 6d 22 29 0a 09 20 | ine-instance"."f_mach_i.htm")... |
| 270f40 | 20 28 22 6d 61 63 68 69 6e 65 2d 74 79 70 65 22 20 22 66 5f 6d 61 63 68 5f 74 2e 68 74 6d 22 29 | .("machine-type"."f_mach_t.htm") |
| 270f60 | 0a 09 20 20 28 22 6d 61 63 68 69 6e 65 2d 76 65 72 73 69 6f 6e 22 20 22 66 5f 6d 61 63 68 5f 76 | ....("machine-version"."f_mach_v |
| 270f80 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 22 20 22 66 5f 6d | .htm")....("macro-function"."f_m |
| 270fa0 | 61 63 72 6f 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 63 72 6f 65 78 70 61 6e 64 22 20 22 66 | acro_.htm")....("macroexpand"."f |
| 270fc0 | 5f 6d 65 78 70 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 22 | _mexp_.htm")....("macroexpand-1" |
| 270fe0 | 20 22 66 5f 6d 65 78 70 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 63 72 6f 6c 65 74 22 20 22 | ."f_mexp_.htm")....("macrolet"." |
| 271000 | 73 5f 66 6c 65 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 61 72 72 61 79 22 20 22 | s_flet_.htm")....("make-array"." |
| 271020 | 66 5f 6d 6b 5f 61 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 62 72 6f 61 64 63 61 73 | f_mk_ar.htm")....("make-broadcas |
| 271040 | 74 2d 73 74 72 65 61 6d 22 20 22 66 5f 6d 6b 5f 62 72 6f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d | t-stream"."f_mk_bro.htm")....("m |
| 271060 | 61 6b 65 2d 63 6f 6e 63 61 74 65 6e 61 74 65 64 2d 73 74 72 65 61 6d 22 20 22 66 5f 6d 6b 5f 63 | ake-concatenated-stream"."f_mk_c |
| 271080 | 6f 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 63 6f 6e 64 69 74 69 6f 6e 22 20 22 66 | on.htm")....("make-condition"."f |
| 2710a0 | 5f 6d 6b 5f 63 6e 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 64 69 73 70 61 74 63 68 | _mk_cnd.htm")....("make-dispatch |
| 2710c0 | 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 22 20 22 66 5f 6d 6b 5f 64 69 73 2e 68 74 6d 22 | -macro-character"."f_mk_dis.htm" |
| 2710e0 | 29 0a 09 20 20 28 22 6d 61 6b 65 2d 65 63 68 6f 2d 73 74 72 65 61 6d 22 20 22 66 5f 6d 6b 5f 65 | )....("make-echo-stream"."f_mk_e |
| 271100 | 63 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 22 20 22 | ch.htm")....("make-hash-table"." |
| 271120 | 66 5f 6d 6b 5f 68 61 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 | f_mk_has.htm")....("make-instanc |
| 271140 | 65 22 20 22 66 5f 6d 6b 5f 69 6e 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 69 6e 73 | e"."f_mk_ins.htm")....("make-ins |
| 271160 | 74 61 6e 63 65 73 2d 6f 62 73 6f 6c 65 74 65 22 20 22 66 5f 6d 6b 5f 69 5f 31 2e 68 74 6d 22 29 | tances-obsolete"."f_mk_i_1.htm") |
| 271180 | 0a 09 20 20 28 22 6d 61 6b 65 2d 6c 69 73 74 22 20 22 66 5f 6d 6b 5f 6c 69 73 2e 68 74 6d 22 29 | ....("make-list"."f_mk_lis.htm") |
| 2711a0 | 0a 09 20 20 28 22 6d 61 6b 65 2d 6c 6f 61 64 2d 66 6f 72 6d 22 20 22 66 5f 6d 6b 5f 6c 64 5f 2e | ....("make-load-form"."f_mk_ld_. |
| 2711c0 | 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 6c 6f 61 64 2d 66 6f 72 6d 2d 73 61 76 69 6e 67 | htm")....("make-load-form-saving |
| 2711e0 | 2d 73 6c 6f 74 73 22 20 22 66 5f 6d 6b 5f 6c 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b | -slots"."f_mk_l_1.htm")....("mak |
| 271200 | 65 2d 6d 65 74 68 6f 64 22 20 22 6d 5f 63 61 6c 6c 5f 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d | e-method"."m_call_m.htm")....("m |
| 271220 | 61 6b 65 2d 70 61 63 6b 61 67 65 22 20 22 66 5f 6d 6b 5f 70 6b 67 2e 68 74 6d 22 29 0a 09 20 20 | ake-package"."f_mk_pkg.htm").... |
| 271240 | 28 22 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 22 20 22 66 5f 6d 6b 5f 70 6e 2e 68 74 6d 22 29 0a | ("make-pathname"."f_mk_pn.htm"). |
| 271260 | 09 20 20 28 22 6d 61 6b 65 2d 72 61 6e 64 6f 6d 2d 73 74 61 74 65 22 20 22 66 5f 6d 6b 5f 72 6e | ...("make-random-state"."f_mk_rn |
| 271280 | 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 73 65 71 75 65 6e 63 65 22 20 22 66 5f 6d | d.htm")....("make-sequence"."f_m |
| 2712a0 | 6b 5f 73 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 73 74 72 69 6e 67 22 20 22 66 | k_seq.htm")....("make-string"."f |
| 2712c0 | 5f 6d 6b 5f 73 74 67 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 73 74 72 69 6e 67 2d 69 | _mk_stg.htm")....("make-string-i |
| 2712e0 | 6e 70 75 74 2d 73 74 72 65 61 6d 22 20 22 66 5f 6d 6b 5f 73 5f 31 2e 68 74 6d 22 29 0a 09 20 20 | nput-stream"."f_mk_s_1.htm").... |
| 271300 | 28 22 6d 61 6b 65 2d 73 74 72 69 6e 67 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 22 20 22 66 5f | ("make-string-output-stream"."f_ |
| 271320 | 6d 6b 5f 73 5f 32 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 73 79 6d 62 6f 6c 22 20 22 | mk_s_2.htm")....("make-symbol"." |
| 271340 | 66 5f 6d 6b 5f 73 79 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 6b 65 2d 73 79 6e 6f 6e 79 6d | f_mk_sym.htm")....("make-synonym |
| 271360 | 2d 73 74 72 65 61 6d 22 20 22 66 5f 6d 6b 5f 73 79 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 | -stream"."f_mk_syn.htm")....("ma |
| 271380 | 6b 65 2d 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 22 20 22 66 5f 6d 6b 5f 74 77 6f 2e 68 74 6d | ke-two-way-stream"."f_mk_two.htm |
| 2713a0 | 22 29 0a 09 20 20 28 22 6d 61 6b 75 6e 62 6f 75 6e 64 22 20 22 66 5f 6d 61 6b 75 6e 62 2e 68 74 | ")....("makunbound"."f_makunb.ht |
| 2713c0 | 6d 22 29 0a 09 20 20 28 22 6d 61 70 22 20 22 66 5f 6d 61 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 | m")....("map"."f_map.htm")....(" |
| 2713e0 | 6d 61 70 2d 69 6e 74 6f 22 20 22 66 5f 6d 61 70 5f 69 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d | map-into"."f_map_in.htm")....("m |
| 271400 | 61 70 63 22 20 22 66 5f 6d 61 70 63 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 70 63 61 6e 22 | apc"."f_mapc_.htm")....("mapcan" |
| 271420 | 20 22 66 5f 6d 61 70 63 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 70 63 61 72 22 20 22 66 5f | ."f_mapc_.htm")....("mapcar"."f_ |
| 271440 | 6d 61 70 63 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 70 63 6f 6e 22 20 22 66 5f 6d 61 70 63 | mapc_.htm")....("mapcon"."f_mapc |
| 271460 | 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 70 68 61 73 68 22 20 22 66 5f 6d 61 70 68 61 73 2e | _.htm")....("maphash"."f_maphas. |
| 271480 | 68 74 6d 22 29 0a 09 20 20 28 22 6d 61 70 6c 22 20 22 66 5f 6d 61 70 63 5f 2e 68 74 6d 22 29 0a | htm")....("mapl"."f_mapc_.htm"). |
| 2714a0 | 09 20 20 28 22 6d 61 70 6c 69 73 74 22 20 22 66 5f 6d 61 70 63 5f 2e 68 74 6d 22 29 0a 09 20 20 | ...("maplist"."f_mapc_.htm").... |
| 2714c0 | 28 22 6d 61 73 6b 2d 66 69 65 6c 64 22 20 22 66 5f 6d 61 73 6b 5f 66 2e 68 74 6d 22 29 0a 09 20 | ("mask-field"."f_mask_f.htm")... |
| 2714e0 | 20 28 22 6d 61 78 22 20 22 66 5f 6d 61 78 5f 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 65 6d 62 | .("max"."f_max_m.htm")....("memb |
| 271500 | 65 72 22 20 22 61 5f 6d 65 6d 62 65 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 65 6d 62 65 72 2d | er"."a_member.htm")....("member- |
| 271520 | 69 66 22 20 22 66 5f 6d 65 6d 5f 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 65 6d 62 65 72 2d 69 | if"."f_mem_m.htm")....("member-i |
| 271540 | 66 2d 6e 6f 74 22 20 22 66 5f 6d 65 6d 5f 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 65 72 67 65 | f-not"."f_mem_m.htm")....("merge |
| 271560 | 22 20 22 66 5f 6d 65 72 67 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 65 72 67 65 2d 70 61 74 68 | "."f_merge.htm")....("merge-path |
| 271580 | 6e 61 6d 65 73 22 20 22 66 5f 6d 65 72 67 65 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 65 74 68 | names"."f_merge_.htm")....("meth |
| 2715a0 | 6f 64 22 20 22 74 5f 6d 65 74 68 6f 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 65 74 68 6f 64 2d | od"."t_method.htm")....("method- |
| 2715c0 | 63 6f 6d 62 69 6e 61 74 69 6f 6e 22 20 22 61 5f 6d 65 74 68 6f 64 2e 68 74 6d 22 29 0a 09 20 20 | combination"."a_method.htm").... |
| 2715e0 | 28 22 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 2d 65 72 72 6f 72 22 20 22 66 5f 6d | ("method-combination-error"."f_m |
| 271600 | 65 74 68 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 65 74 68 6f 64 2d 71 75 61 6c 69 66 69 65 | eth_1.htm")....("method-qualifie |
| 271620 | 72 73 22 20 22 66 5f 6d 65 74 68 6f 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 69 6e 22 20 22 66 | rs"."f_method.htm")....("min"."f |
| 271640 | 5f 6d 61 78 5f 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 69 6e 75 73 70 22 20 22 66 5f 6d 69 6e | _max_m.htm")....("minusp"."f_min |
| 271660 | 75 73 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 69 73 6d 61 74 63 68 22 20 22 66 5f 6d 69 73 6d | usp.htm")....("mismatch"."f_mism |
| 271680 | 61 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 6f 64 22 20 22 61 5f 6d 6f 64 2e 68 74 6d 22 29 0a | at.htm")....("mod"."a_mod.htm"). |
| 2716a0 | 09 20 20 28 22 6d 6f 73 74 2d 6e 65 67 61 74 69 76 65 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 22 | ...("most-negative-double-float" |
| 2716c0 | 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 6f 73 74 2d 6e 65 67 61 74 | ."v_most_1.htm")....("most-negat |
| 2716e0 | 69 76 65 2d 66 69 78 6e 75 6d 22 20 22 76 5f 6d 6f 73 74 5f 70 2e 68 74 6d 22 29 0a 09 20 20 28 | ive-fixnum"."v_most_p.htm")....( |
| 271700 | 22 6d 6f 73 74 2d 6e 65 67 61 74 69 76 65 2d 6c 6f 6e 67 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f | "most-negative-long-float"."v_mo |
| 271720 | 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 6f 73 74 2d 6e 65 67 61 74 69 76 65 2d 73 68 | st_1.htm")....("most-negative-sh |
| 271740 | 6f 72 74 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 | ort-float"."v_most_1.htm")....(" |
| 271760 | 6d 6f 73 74 2d 6e 65 67 61 74 69 76 65 2d 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 22 20 22 76 5f 6d | most-negative-single-float"."v_m |
| 271780 | 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 64 | ost_1.htm")....("most-positive-d |
| 2717a0 | 6f 75 62 6c 65 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 | ouble-float"."v_most_1.htm").... |
| 2717c0 | 28 22 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d 22 20 22 76 5f 6d 6f 73 74 5f | ("most-positive-fixnum"."v_most_ |
| 2717e0 | 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 6c 6f 6e 67 2d | p.htm")....("most-positive-long- |
| 271800 | 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 6f 73 74 | float"."v_most_1.htm")....("most |
| 271820 | 2d 70 6f 73 69 74 69 76 65 2d 73 68 6f 72 74 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 | -positive-short-float"."v_most_1 |
| 271840 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 73 69 6e 67 6c 65 | .htm")....("most-positive-single |
| 271860 | 2d 66 6c 6f 61 74 22 20 22 76 5f 6d 6f 73 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 75 66 | -float"."v_most_1.htm")....("muf |
| 271880 | 66 6c 65 2d 77 61 72 6e 69 6e 67 22 20 22 61 5f 6d 75 66 66 6c 65 2e 68 74 6d 22 29 0a 09 20 20 | fle-warning"."a_muffle.htm").... |
| 2718a0 | 28 22 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 22 20 22 6d 5f 6d 75 6c 74 69 70 | ("multiple-value-bind"."m_multip |
| 2718c0 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 22 | .htm")....("multiple-value-call" |
| 2718e0 | 20 22 73 5f 6d 75 6c 74 69 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 75 6c 74 69 70 6c 65 2d 76 | ."s_multip.htm")....("multiple-v |
| 271900 | 61 6c 75 65 2d 6c 69 73 74 22 20 22 6d 5f 6d 75 6c 74 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 | alue-list"."m_mult_1.htm")....(" |
| 271920 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 70 72 6f 67 31 22 20 22 73 5f 6d 75 6c 74 5f 31 2e | multiple-value-prog1"."s_mult_1. |
| 271940 | 68 74 6d 22 29 0a 09 20 20 28 22 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 22 20 | htm")....("multiple-value-setq". |
| 271960 | 22 6d 5f 6d 75 6c 74 5f 32 2e 68 74 6d 22 29 0a 09 20 20 28 22 6d 75 6c 74 69 70 6c 65 2d 76 61 | "m_mult_2.htm")....("multiple-va |
| 271980 | 6c 75 65 73 2d 6c 69 6d 69 74 22 20 22 76 5f 6d 75 6c 74 69 70 2e 68 74 6d 22 29 0a 09 20 20 28 | lues-limit"."v_multip.htm")....( |
| 2719a0 | 22 6e 61 6d 65 2d 63 68 61 72 22 20 22 66 5f 6e 61 6d 65 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 | "name-char"."f_name_c.htm")....( |
| 2719c0 | 22 6e 61 6d 65 73 74 72 69 6e 67 22 20 22 66 5f 6e 61 6d 65 73 74 2e 68 74 6d 22 29 0a 09 20 20 | "namestring"."f_namest.htm").... |
| 2719e0 | 28 22 6e 62 75 74 6c 61 73 74 22 20 22 66 5f 62 75 74 6c 61 73 2e 68 74 6d 22 29 0a 09 20 20 28 | ("nbutlast"."f_butlas.htm")....( |
| 271a00 | 22 6e 63 6f 6e 63 22 20 22 66 5f 6e 63 6f 6e 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 65 78 74 | "nconc"."f_nconc.htm")....("next |
| 271a20 | 2d 6d 65 74 68 6f 64 2d 70 22 20 22 66 5f 6e 65 78 74 5f 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 | -method-p"."f_next_m.htm")....(" |
| 271a40 | 6e 69 6c 22 20 22 61 5f 6e 69 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 69 6e 74 65 72 73 65 63 | nil"."a_nil.htm")....("nintersec |
| 271a60 | 74 69 6f 6e 22 20 22 66 5f 69 73 65 63 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 69 6e 74 68 22 | tion"."f_isec_.htm")....("ninth" |
| 271a80 | 20 22 66 5f 66 69 72 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 6f 2d 61 70 70 6c 69 63 61 | ."f_firstc.htm")....("no-applica |
| 271aa0 | 62 6c 65 2d 6d 65 74 68 6f 64 22 20 22 66 5f 6e 6f 5f 61 70 70 2e 68 74 6d 22 29 0a 09 20 20 28 | ble-method"."f_no_app.htm")....( |
| 271ac0 | 22 6e 6f 2d 6e 65 78 74 2d 6d 65 74 68 6f 64 22 20 22 66 5f 6e 6f 5f 6e 65 78 2e 68 74 6d 22 29 | "no-next-method"."f_no_nex.htm") |
| 271ae0 | 0a 09 20 20 28 22 6e 6f 74 22 20 22 61 5f 6e 6f 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 6f 74 | ....("not"."a_not.htm")....("not |
| 271b00 | 61 6e 79 22 20 22 66 5f 65 76 65 72 79 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 6f 74 65 76 65 | any"."f_everyc.htm")....("noteve |
| 271b20 | 72 79 22 20 22 66 5f 65 76 65 72 79 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 6f 74 69 6e 6c 69 | ry"."f_everyc.htm")....("notinli |
| 271b40 | 6e 65 22 20 22 64 5f 69 6e 6c 69 6e 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 72 65 63 6f 6e 63 | ne"."d_inline.htm")....("nreconc |
| 271b60 | 22 20 22 66 5f 72 65 76 61 70 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 72 65 76 65 72 73 65 22 | "."f_revapp.htm")....("nreverse" |
| 271b80 | 20 22 66 5f 72 65 76 65 72 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 73 65 74 2d 64 69 66 66 65 | ."f_revers.htm")....("nset-diffe |
| 271ba0 | 72 65 6e 63 65 22 20 22 66 5f 73 65 74 5f 64 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 73 65 74 | rence"."f_set_di.htm")....("nset |
| 271bc0 | 2d 65 78 63 6c 75 73 69 76 65 2d 6f 72 22 20 22 66 5f 73 65 74 5f 65 78 2e 68 74 6d 22 29 0a 09 | -exclusive-or"."f_set_ex.htm").. |
| 271be0 | 20 20 28 22 6e 73 74 72 69 6e 67 2d 63 61 70 69 74 61 6c 69 7a 65 22 20 22 66 5f 73 74 67 5f 75 | ..("nstring-capitalize"."f_stg_u |
| 271c00 | 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 22 20 22 | p.htm")....("nstring-downcase"." |
| 271c20 | 66 5f 73 74 67 5f 75 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 73 74 72 69 6e 67 2d 75 70 63 61 | f_stg_up.htm")....("nstring-upca |
| 271c40 | 73 65 22 20 22 66 5f 73 74 67 5f 75 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 73 75 62 6c 69 73 | se"."f_stg_up.htm")....("nsublis |
| 271c60 | 22 20 22 66 5f 73 75 62 6c 69 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 73 75 62 73 74 22 20 22 | "."f_sublis.htm")....("nsubst"." |
| 271c80 | 66 5f 73 75 62 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 73 75 62 73 74 2d 69 66 22 20 22 | f_substc.htm")....("nsubst-if"." |
| 271ca0 | 66 5f 73 75 62 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 73 75 62 73 74 2d 69 66 2d 6e 6f | f_substc.htm")....("nsubst-if-no |
| 271cc0 | 74 22 20 22 66 5f 73 75 62 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 73 75 62 73 74 69 74 | t"."f_substc.htm")....("nsubstit |
| 271ce0 | 75 74 65 22 20 22 66 5f 73 62 73 5f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 73 75 62 73 74 69 | ute"."f_sbs_s.htm")....("nsubsti |
| 271d00 | 74 75 74 65 2d 69 66 22 20 22 66 5f 73 62 73 5f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 73 75 | tute-if"."f_sbs_s.htm")....("nsu |
| 271d20 | 62 73 74 69 74 75 74 65 2d 69 66 2d 6e 6f 74 22 20 22 66 5f 73 62 73 5f 73 2e 68 74 6d 22 29 0a | bstitute-if-not"."f_sbs_s.htm"). |
| 271d40 | 09 20 20 28 22 6e 74 68 22 20 22 66 5f 6e 74 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 74 68 2d | ...("nth"."f_nth.htm")....("nth- |
| 271d60 | 76 61 6c 75 65 22 20 22 6d 5f 6e 74 68 5f 76 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 74 68 63 | value"."m_nth_va.htm")....("nthc |
| 271d80 | 64 72 22 20 22 66 5f 6e 74 68 63 64 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 75 6c 6c 22 20 22 | dr"."f_nthcdr.htm")....("null"." |
| 271da0 | 61 5f 6e 75 6c 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 75 6d 62 65 72 22 20 22 74 5f 6e 75 6d | a_null.htm")....("number"."t_num |
| 271dc0 | 62 65 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 6e 75 6d 62 65 72 70 22 20 22 66 5f 6e 75 6d 70 2e | ber.htm")....("numberp"."f_nump. |
| 271de0 | 68 74 6d 22 29 0a 09 20 20 28 22 6e 75 6d 65 72 61 74 6f 72 22 20 22 66 5f 6e 75 6d 65 72 61 2e | htm")....("numerator"."f_numera. |
| 271e00 | 68 74 6d 22 29 0a 09 20 20 28 22 6e 75 6e 69 6f 6e 22 20 22 66 5f 75 6e 69 6f 6e 63 2e 68 74 6d | htm")....("nunion"."f_unionc.htm |
| 271e20 | 22 29 0a 09 20 20 28 22 6f 64 64 70 22 20 22 66 5f 65 76 65 6e 70 63 2e 68 74 6d 22 29 0a 09 20 | ")....("oddp"."f_evenpc.htm")... |
| 271e40 | 20 28 22 6f 70 65 6e 22 20 22 66 5f 6f 70 65 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 6f 70 65 6e | .("open"."f_open.htm")....("open |
| 271e60 | 2d 73 74 72 65 61 6d 2d 70 22 20 22 66 5f 6f 70 65 6e 5f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 | -stream-p"."f_open_s.htm")....(" |
| 271e80 | 6f 70 74 69 6d 69 7a 65 22 20 22 64 5f 6f 70 74 69 6d 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 6f | optimize"."d_optimi.htm")....("o |
| 271ea0 | 72 22 20 22 61 5f 6f 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 6f 74 68 65 72 77 69 73 65 22 20 22 | r"."a_or.htm")....("otherwise"." |
| 271ec0 | 6d 5f 63 61 73 65 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 6f 75 74 70 75 74 2d 73 74 72 65 61 6d | m_case_.htm")....("output-stream |
| 271ee0 | 2d 70 22 20 22 66 5f 69 6e 5f 73 74 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 63 6b 61 67 65 | -p"."f_in_stm.htm")....("package |
| 271f00 | 22 20 22 74 5f 70 6b 67 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 63 6b 61 67 65 2d 65 72 72 6f | "."t_pkg.htm")....("package-erro |
| 271f20 | 72 22 20 22 65 5f 70 6b 67 5f 65 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 63 6b 61 67 65 2d | r"."e_pkg_er.htm")....("package- |
| 271f40 | 65 72 72 6f 72 2d 70 61 63 6b 61 67 65 22 20 22 66 5f 70 6b 67 5f 65 72 2e 68 74 6d 22 29 0a 09 | error-package"."f_pkg_er.htm").. |
| 271f60 | 20 20 28 22 70 61 63 6b 61 67 65 2d 6e 61 6d 65 22 20 22 66 5f 70 6b 67 5f 6e 61 2e 68 74 6d 22 | ..("package-name"."f_pkg_na.htm" |
| 271f80 | 29 0a 09 20 20 28 22 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 73 22 20 22 66 5f 70 6b 67 | )....("package-nicknames"."f_pkg |
| 271fa0 | 5f 6e 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 63 6b 61 67 65 2d 73 68 61 64 6f 77 69 6e 67 | _ni.htm")....("package-shadowing |
| 271fc0 | 2d 73 79 6d 62 6f 6c 73 22 20 22 66 5f 70 6b 67 5f 73 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 | -symbols"."f_pkg_sh.htm")....("p |
| 271fe0 | 61 63 6b 61 67 65 2d 75 73 65 2d 6c 69 73 74 22 20 22 66 5f 70 6b 67 5f 75 73 2e 68 74 6d 22 29 | ackage-use-list"."f_pkg_us.htm") |
| 272000 | 0a 09 20 20 28 22 70 61 63 6b 61 67 65 2d 75 73 65 64 2d 62 79 2d 6c 69 73 74 22 20 22 66 5f 70 | ....("package-used-by-list"."f_p |
| 272020 | 6b 67 5f 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 63 6b 61 67 65 70 22 20 22 66 5f 70 6b | kg__1.htm")....("packagep"."f_pk |
| 272040 | 67 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 69 72 6c 69 73 22 20 22 66 5f 70 61 69 72 6c 69 | gp.htm")....("pairlis"."f_pairli |
| 272060 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 72 73 65 2d 65 72 72 6f 72 22 20 22 65 5f 70 61 72 73 | .htm")....("parse-error"."e_pars |
| 272080 | 65 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 72 73 65 2d 69 6e 74 65 67 65 72 22 20 22 66 5f | e_.htm")....("parse-integer"."f_ |
| 2720a0 | 70 61 72 73 65 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 72 73 65 2d 6e 61 6d 65 73 74 72 69 | parse_.htm")....("parse-namestri |
| 2720c0 | 6e 67 22 20 22 66 5f 70 61 72 73 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 74 68 6e 61 6d | ng"."f_pars_1.htm")....("pathnam |
| 2720e0 | 65 22 20 22 61 5f 70 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 64 65 76 | e"."a_pn.htm")....("pathname-dev |
| 272100 | 69 63 65 22 20 22 66 5f 70 6e 5f 68 6f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 74 68 6e 61 | ice"."f_pn_hos.htm")....("pathna |
| 272120 | 6d 65 2d 64 69 72 65 63 74 6f 72 79 22 20 22 66 5f 70 6e 5f 68 6f 73 2e 68 74 6d 22 29 0a 09 20 | me-directory"."f_pn_hos.htm")... |
| 272140 | 20 28 22 70 61 74 68 6e 61 6d 65 2d 68 6f 73 74 22 20 22 66 5f 70 6e 5f 68 6f 73 2e 68 74 6d 22 | .("pathname-host"."f_pn_hos.htm" |
| 272160 | 29 0a 09 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 6d 61 74 63 68 2d 70 22 20 22 66 5f 70 6e 5f 6d | )....("pathname-match-p"."f_pn_m |
| 272180 | 61 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 22 20 22 66 5f | at.htm")....("pathname-name"."f_ |
| 2721a0 | 70 6e 5f 68 6f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 74 79 70 65 22 | pn_hos.htm")....("pathname-type" |
| 2721c0 | 20 22 66 5f 70 6e 5f 68 6f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 76 | ."f_pn_hos.htm")....("pathname-v |
| 2721e0 | 65 72 73 69 6f 6e 22 20 22 66 5f 70 6e 5f 68 6f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 61 74 | ersion"."f_pn_hos.htm")....("pat |
| 272200 | 68 6e 61 6d 65 70 22 20 22 66 5f 70 6e 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 65 65 6b 2d 63 | hnamep"."f_pnp.htm")....("peek-c |
| 272220 | 68 61 72 22 20 22 66 5f 70 65 65 6b 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 68 61 73 65 22 | har"."f_peek_c.htm")....("phase" |
| 272240 | 20 22 66 5f 70 68 61 73 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 69 22 20 22 76 5f 70 69 2e 68 | ."f_phase.htm")....("pi"."v_pi.h |
| 272260 | 74 6d 22 29 0a 09 20 20 28 22 70 6c 75 73 70 22 20 22 66 5f 6d 69 6e 75 73 70 2e 68 74 6d 22 29 | tm")....("plusp"."f_minusp.htm") |
| 272280 | 0a 09 20 20 28 22 70 6f 70 22 20 22 6d 5f 70 6f 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 6f 73 | ....("pop"."m_pop.htm")....("pos |
| 2722a0 | 69 74 69 6f 6e 22 20 22 66 5f 70 6f 73 5f 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 6f 73 69 74 | ition"."f_pos_p.htm")....("posit |
| 2722c0 | 69 6f 6e 2d 69 66 22 20 22 66 5f 70 6f 73 5f 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 6f 73 69 | ion-if"."f_pos_p.htm")....("posi |
| 2722e0 | 74 69 6f 6e 2d 69 66 2d 6e 6f 74 22 20 22 66 5f 70 6f 73 5f 70 2e 68 74 6d 22 29 0a 09 20 20 28 | tion-if-not"."f_pos_p.htm")....( |
| 272300 | 22 70 70 72 69 6e 74 22 20 22 66 5f 77 72 5f 70 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 70 72 | "pprint"."f_wr_pr.htm")....("ppr |
| 272320 | 69 6e 74 2d 64 69 73 70 61 74 63 68 22 20 22 66 5f 70 70 72 5f 64 69 2e 68 74 6d 22 29 0a 09 20 | int-dispatch"."f_ppr_di.htm")... |
| 272340 | 20 28 22 70 70 72 69 6e 74 2d 65 78 69 74 2d 69 66 2d 6c 69 73 74 2d 65 78 68 61 75 73 74 65 64 | .("pprint-exit-if-list-exhausted |
| 272360 | 22 20 22 6d 5f 70 70 72 5f 65 78 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 70 72 69 6e 74 2d 66 69 | "."m_ppr_ex.htm")....("pprint-fi |
| 272380 | 6c 6c 22 20 22 66 5f 70 70 72 5f 66 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 70 72 69 6e 74 2d | ll"."f_ppr_fi.htm")....("pprint- |
| 2723a0 | 69 6e 64 65 6e 74 22 20 22 66 5f 70 70 72 5f 69 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 70 72 | indent"."f_ppr_in.htm")....("ppr |
| 2723c0 | 69 6e 74 2d 6c 69 6e 65 61 72 22 20 22 66 5f 70 70 72 5f 66 69 2e 68 74 6d 22 29 0a 09 20 20 28 | int-linear"."f_ppr_fi.htm")....( |
| 2723e0 | 22 70 70 72 69 6e 74 2d 6c 6f 67 69 63 61 6c 2d 62 6c 6f 63 6b 22 20 22 6d 5f 70 70 72 5f 6c 6f | "pprint-logical-block"."m_ppr_lo |
| 272400 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 70 72 69 6e 74 2d 6e 65 77 6c 69 6e 65 22 20 22 66 5f 70 | .htm")....("pprint-newline"."f_p |
| 272420 | 70 72 5f 6e 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 70 72 69 6e 74 2d 70 6f 70 22 20 22 6d 5f | pr_nl.htm")....("pprint-pop"."m_ |
| 272440 | 70 70 72 5f 70 6f 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 70 72 69 6e 74 2d 74 61 62 22 20 22 66 | ppr_po.htm")....("pprint-tab"."f |
| 272460 | 5f 70 70 72 5f 74 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 70 72 69 6e 74 2d 74 61 62 75 6c 61 | _ppr_ta.htm")....("pprint-tabula |
| 272480 | 72 22 20 22 66 5f 70 70 72 5f 66 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 69 6e 31 22 20 22 | r"."f_ppr_fi.htm")....("prin1"." |
| 2724a0 | 66 5f 77 72 5f 70 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 | f_wr_pr.htm")....("prin1-to-stri |
| 2724c0 | 6e 67 22 20 22 66 5f 77 72 5f 74 6f 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 69 6e 63 22 20 | ng"."f_wr_to_.htm")....("princ". |
| 2724e0 | 22 66 5f 77 72 5f 70 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 69 6e 63 2d 74 6f 2d 73 74 72 | "f_wr_pr.htm")....("princ-to-str |
| 272500 | 69 6e 67 22 20 22 66 5f 77 72 5f 74 6f 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 69 6e 74 22 | ing"."f_wr_to_.htm")....("print" |
| 272520 | 20 22 66 5f 77 72 5f 70 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 69 6e 74 2d 6e 6f 74 2d 72 | ."f_wr_pr.htm")....("print-not-r |
| 272540 | 65 61 64 61 62 6c 65 22 20 22 65 5f 70 72 5f 6e 6f 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 | eadable"."e_pr_not.htm")....("pr |
| 272560 | 69 6e 74 2d 6e 6f 74 2d 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 22 20 22 66 5f 70 72 5f 6e | int-not-readable-object"."f_pr_n |
| 272580 | 6f 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 69 6e 74 2d 6f 62 6a 65 63 74 22 20 22 66 5f 70 | ot.htm")....("print-object"."f_p |
| 2725a0 | 72 5f 6f 62 6a 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c | r_obj.htm")....("print-unreadabl |
| 2725c0 | 65 2d 6f 62 6a 65 63 74 22 20 22 6d 5f 70 72 5f 75 6e 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 | e-object"."m_pr_unr.htm")....("p |
| 2725e0 | 72 6f 62 65 2d 66 69 6c 65 22 20 22 66 5f 70 72 6f 62 65 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 | robe-file"."f_probe_.htm")....(" |
| 272600 | 70 72 6f 63 6c 61 69 6d 22 20 22 66 5f 70 72 6f 63 6c 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 | proclaim"."f_procla.htm")....("p |
| 272620 | 72 6f 67 22 20 22 6d 5f 70 72 6f 67 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 6f 67 2a 22 20 | rog"."m_prog_.htm")....("prog*". |
| 272640 | 22 6d 5f 70 72 6f 67 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 6f 67 31 22 20 22 6d 5f 70 72 | "m_prog_.htm")....("prog1"."m_pr |
| 272660 | 6f 67 31 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 6f 67 32 22 20 22 6d 5f 70 72 6f 67 31 63 | og1c.htm")....("prog2"."m_prog1c |
| 272680 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 72 6f 67 6e 22 20 22 73 5f 70 72 6f 67 6e 2e 68 74 6d 22 | .htm")....("progn"."s_progn.htm" |
| 2726a0 | 29 0a 09 20 20 28 22 70 72 6f 67 72 61 6d 2d 65 72 72 6f 72 22 20 22 65 5f 70 72 6f 67 72 61 2e | )....("program-error"."e_progra. |
| 2726c0 | 68 74 6d 22 29 0a 09 20 20 28 22 70 72 6f 67 76 22 20 22 73 5f 70 72 6f 67 76 2e 68 74 6d 22 29 | htm")....("progv"."s_progv.htm") |
| 2726e0 | 0a 09 20 20 28 22 70 72 6f 76 69 64 65 22 20 22 66 5f 70 72 6f 76 69 64 2e 68 74 6d 22 29 0a 09 | ....("provide"."f_provid.htm").. |
| 272700 | 20 20 28 22 70 73 65 74 66 22 20 22 6d 5f 73 65 74 66 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 | ..("psetf"."m_setf_.htm")....("p |
| 272720 | 73 65 74 71 22 20 22 6d 5f 70 73 65 74 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 75 73 68 22 20 | setq"."m_psetq.htm")....("push". |
| 272740 | 22 6d 5f 70 75 73 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 70 75 73 68 6e 65 77 22 20 22 6d 5f 70 | "m_push.htm")....("pushnew"."m_p |
| 272760 | 73 68 6e 65 77 2e 68 74 6d 22 29 0a 09 20 20 28 22 71 75 6f 74 65 22 20 22 73 5f 71 75 6f 74 65 | shnew.htm")....("quote"."s_quote |
| 272780 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 61 6e 64 6f 6d 22 20 22 66 5f 72 61 6e 64 6f 6d 2e 68 74 | .htm")....("random"."f_random.ht |
| 2727a0 | 6d 22 29 0a 09 20 20 28 22 72 61 6e 64 6f 6d 2d 73 74 61 74 65 22 20 22 74 5f 72 6e 64 5f 73 74 | m")....("random-state"."t_rnd_st |
| 2727c0 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 61 6e 64 6f 6d 2d 73 74 61 74 65 2d 70 22 20 22 66 5f 72 | .htm")....("random-state-p"."f_r |
| 2727e0 | 6e 64 5f 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 61 73 73 6f 63 22 20 22 66 5f 72 61 73 73 | nd_st.htm")....("rassoc"."f_rass |
| 272800 | 6f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 61 73 73 6f 63 2d 69 66 22 20 22 66 5f 72 61 73 73 | oc.htm")....("rassoc-if"."f_rass |
| 272820 | 6f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 61 73 73 6f 63 2d 69 66 2d 6e 6f 74 22 20 22 66 5f | oc.htm")....("rassoc-if-not"."f_ |
| 272840 | 72 61 73 73 6f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 61 74 69 6f 22 20 22 74 5f 72 61 74 69 | rassoc.htm")....("ratio"."t_rati |
| 272860 | 6f 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 61 74 69 6f 6e 61 6c 22 20 22 61 5f 72 61 74 69 6f 6e | o.htm")....("rational"."a_ration |
| 272880 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 61 74 69 6f 6e 61 6c 69 7a 65 22 20 22 66 5f 72 61 74 69 | .htm")....("rationalize"."f_rati |
| 2728a0 | 6f 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 61 74 69 6f 6e 61 6c 70 22 20 22 66 5f 72 61 74 69 | on.htm")....("rationalp"."f_rati |
| 2728c0 | 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 61 64 22 20 22 66 5f 72 64 5f 72 64 2e 68 74 6d | _1.htm")....("read"."f_rd_rd.htm |
| 2728e0 | 22 29 0a 09 20 20 28 22 72 65 61 64 2d 62 79 74 65 22 20 22 66 5f 72 64 5f 62 79 2e 68 74 6d 22 | ")....("read-byte"."f_rd_by.htm" |
| 272900 | 29 0a 09 20 20 28 22 72 65 61 64 2d 63 68 61 72 22 20 22 66 5f 72 64 5f 63 68 61 2e 68 74 6d 22 | )....("read-char"."f_rd_cha.htm" |
| 272920 | 29 0a 09 20 20 28 22 72 65 61 64 2d 63 68 61 72 2d 6e 6f 2d 68 61 6e 67 22 20 22 66 5f 72 64 5f | )....("read-char-no-hang"."f_rd_ |
| 272940 | 63 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 61 64 2d 64 65 6c 69 6d 69 74 65 64 2d 6c 69 | c_1.htm")....("read-delimited-li |
| 272960 | 73 74 22 20 22 66 5f 72 64 5f 64 65 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 61 64 2d 66 72 | st"."f_rd_del.htm")....("read-fr |
| 272980 | 6f 6d 2d 73 74 72 69 6e 67 22 20 22 66 5f 72 64 5f 66 72 6f 2e 68 74 6d 22 29 0a 09 20 20 28 22 | om-string"."f_rd_fro.htm")....(" |
| 2729a0 | 72 65 61 64 2d 6c 69 6e 65 22 20 22 66 5f 72 64 5f 6c 69 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 | read-line"."f_rd_lin.htm")....(" |
| 2729c0 | 72 65 61 64 2d 70 72 65 73 65 72 76 69 6e 67 2d 77 68 69 74 65 73 70 61 63 65 22 20 22 66 5f 72 | read-preserving-whitespace"."f_r |
| 2729e0 | 64 5f 72 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 61 64 2d 73 65 71 75 65 6e 63 65 22 20 22 | d_rd.htm")....("read-sequence"." |
| 272a00 | 66 5f 72 64 5f 73 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 61 64 65 72 2d 65 72 72 6f 72 | f_rd_seq.htm")....("reader-error |
| 272a20 | 22 20 22 65 5f 72 64 65 72 5f 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 61 64 74 61 62 6c 65 | "."e_rder_e.htm")....("readtable |
| 272a40 | 22 20 22 74 5f 72 64 74 61 62 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 61 64 74 61 62 6c 65 | "."t_rdtabl.htm")....("readtable |
| 272a60 | 2d 63 61 73 65 22 20 22 66 5f 72 64 74 61 62 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 61 64 | -case"."f_rdtabl.htm")....("read |
| 272a80 | 74 61 62 6c 65 70 22 20 22 66 5f 72 64 74 61 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 61 | tablep"."f_rdta_1.htm")....("rea |
| 272aa0 | 6c 22 20 22 74 5f 72 65 61 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 61 6c 70 22 20 22 66 5f | l"."t_real.htm")....("realp"."f_ |
| 272ac0 | 72 65 61 6c 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 61 6c 70 61 72 74 22 20 22 66 5f 72 65 | realp.htm")....("realpart"."f_re |
| 272ae0 | 61 6c 70 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 64 75 63 65 22 20 22 66 5f 72 65 64 75 63 | alpa.htm")....("reduce"."f_reduc |
| 272b00 | 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 69 6e 69 74 69 61 6c 69 7a 65 2d 69 6e 73 74 61 6e | e.htm")....("reinitialize-instan |
| 272b20 | 63 65 22 20 22 66 5f 72 65 69 6e 69 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 6d 22 20 22 66 | ce"."f_reinit.htm")....("rem"."f |
| 272b40 | 5f 6d 6f 64 5f 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 6d 66 22 20 22 6d 5f 72 65 6d 66 2e | _mod_r.htm")....("remf"."m_remf. |
| 272b60 | 68 74 6d 22 29 0a 09 20 20 28 22 72 65 6d 68 61 73 68 22 20 22 66 5f 72 65 6d 68 61 73 2e 68 74 | htm")....("remhash"."f_remhas.ht |
| 272b80 | 6d 22 29 0a 09 20 20 28 22 72 65 6d 6f 76 65 22 20 22 66 5f 72 6d 5f 72 6d 2e 68 74 6d 22 29 0a | m")....("remove"."f_rm_rm.htm"). |
| 272ba0 | 09 20 20 28 22 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 22 20 22 66 5f 72 6d 5f 64 75 | ...("remove-duplicates"."f_rm_du |
| 272bc0 | 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 6d 6f 76 65 2d 69 66 22 20 22 66 5f 72 6d 5f 72 6d | p.htm")....("remove-if"."f_rm_rm |
| 272be0 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 22 20 22 66 5f 72 6d | .htm")....("remove-if-not"."f_rm |
| 272c00 | 5f 72 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 6d 6f 76 65 2d 6d 65 74 68 6f 64 22 20 22 66 | _rm.htm")....("remove-method"."f |
| 272c20 | 5f 72 6d 5f 6d 65 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 6d 70 72 6f 70 22 20 22 66 5f 72 | _rm_met.htm")....("remprop"."f_r |
| 272c40 | 65 6d 70 72 6f 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 6e 61 6d 65 2d 66 69 6c 65 22 20 22 66 | empro.htm")....("rename-file"."f |
| 272c60 | 5f 72 6e 5f 66 69 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 6e 61 6d 65 2d 70 61 63 6b 61 67 | _rn_fil.htm")....("rename-packag |
| 272c80 | 65 22 20 22 66 5f 72 6e 5f 70 6b 67 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 70 6c 61 63 65 22 | e"."f_rn_pkg.htm")....("replace" |
| 272ca0 | 20 22 66 5f 72 65 70 6c 61 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 71 75 69 72 65 22 20 22 | ."f_replac.htm")....("require"." |
| 272cc0 | 66 5f 70 72 6f 76 69 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 73 74 22 20 22 66 5f 72 65 73 | f_provid.htm")....("rest"."f_res |
| 272ce0 | 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 73 74 61 72 74 22 20 22 74 5f 72 73 74 2e 68 74 6d | t.htm")....("restart"."t_rst.htm |
| 272d00 | 22 29 0a 09 20 20 28 22 72 65 73 74 61 72 74 2d 62 69 6e 64 22 20 22 6d 5f 72 73 74 5f 62 69 2e | ")....("restart-bind"."m_rst_bi. |
| 272d20 | 68 74 6d 22 29 0a 09 20 20 28 22 72 65 73 74 61 72 74 2d 63 61 73 65 22 20 22 6d 5f 72 73 74 5f | htm")....("restart-case"."m_rst_ |
| 272d40 | 63 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 73 74 61 72 74 2d 6e 61 6d 65 22 20 22 66 5f 72 | ca.htm")....("restart-name"."f_r |
| 272d60 | 73 74 5f 6e 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 74 75 72 6e 22 20 22 6d 5f 72 65 74 75 | st_na.htm")....("return"."m_retu |
| 272d80 | 72 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 74 75 72 6e 2d 66 72 6f 6d 22 20 22 73 5f 72 65 | rn.htm")....("return-from"."s_re |
| 272da0 | 74 5f 66 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 76 61 70 70 65 6e 64 22 20 22 66 5f 72 65 | t_fr.htm")....("revappend"."f_re |
| 272dc0 | 76 61 70 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 65 76 65 72 73 65 22 20 22 66 5f 72 65 76 65 | vapp.htm")....("reverse"."f_reve |
| 272de0 | 72 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 72 6f 6f 6d 22 20 22 66 5f 72 6f 6f 6d 2e 68 74 6d 22 | rs.htm")....("room"."f_room.htm" |
| 272e00 | 29 0a 09 20 20 28 22 72 6f 74 61 74 65 66 22 20 22 6d 5f 72 6f 74 61 74 65 2e 68 74 6d 22 29 0a | )....("rotatef"."m_rotate.htm"). |
| 272e20 | 09 20 20 28 22 72 6f 75 6e 64 22 20 22 66 5f 66 6c 6f 6f 72 63 2e 68 74 6d 22 29 0a 09 20 20 28 | ...("round"."f_floorc.htm")....( |
| 272e40 | 22 72 6f 77 2d 6d 61 6a 6f 72 2d 61 72 65 66 22 20 22 66 5f 72 6f 77 5f 6d 61 2e 68 74 6d 22 29 | "row-major-aref"."f_row_ma.htm") |
| 272e60 | 0a 09 20 20 28 22 72 70 6c 61 63 61 22 20 22 66 5f 72 70 6c 61 63 61 2e 68 74 6d 22 29 0a 09 20 | ....("rplaca"."f_rplaca.htm")... |
| 272e80 | 20 28 22 72 70 6c 61 63 64 22 20 22 66 5f 72 70 6c 61 63 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 | .("rplacd"."f_rplaca.htm")....(" |
| 272ea0 | 73 61 66 65 74 79 22 20 22 64 5f 6f 70 74 69 6d 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 61 74 | safety"."d_optimi.htm")....("sat |
| 272ec0 | 69 73 66 69 65 73 22 20 22 74 5f 73 61 74 69 73 66 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 62 69 | isfies"."t_satisf.htm")....("sbi |
| 272ee0 | 74 22 20 22 66 5f 62 74 5f 73 62 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 63 61 6c 65 2d 66 6c 6f | t"."f_bt_sb.htm")....("scale-flo |
| 272f00 | 61 74 22 20 22 66 5f 64 65 63 5f 66 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 63 68 61 72 22 20 | at"."f_dec_fl.htm")....("schar". |
| 272f20 | 22 66 5f 63 68 61 72 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 65 61 72 63 68 22 20 22 66 5f 73 | "f_char_.htm")....("search"."f_s |
| 272f40 | 65 61 72 63 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 65 63 6f 6e 64 22 20 22 66 5f 66 69 72 73 | earch.htm")....("second"."f_firs |
| 272f60 | 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 65 71 75 65 6e 63 65 22 20 22 74 5f 73 65 71 2e 68 | tc.htm")....("sequence"."t_seq.h |
| 272f80 | 74 6d 22 29 0a 09 20 20 28 22 73 65 72 69 6f 75 73 2d 63 6f 6e 64 69 74 69 6f 6e 22 20 22 65 5f | tm")....("serious-condition"."e_ |
| 272fa0 | 73 65 72 69 6f 75 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 65 74 22 20 22 66 5f 73 65 74 2e 68 74 | seriou.htm")....("set"."f_set.ht |
| 272fc0 | 6d 22 29 0a 09 20 20 28 22 73 65 74 2d 64 69 66 66 65 72 65 6e 63 65 22 20 22 66 5f 73 65 74 5f | m")....("set-difference"."f_set_ |
| 272fe0 | 64 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 65 74 2d 64 69 73 70 61 74 63 68 2d 6d 61 63 72 6f | di.htm")....("set-dispatch-macro |
| 273000 | 2d 63 68 61 72 61 63 74 65 72 22 20 22 66 5f 73 65 74 5f 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 | -character"."f_set__1.htm")....( |
| 273020 | 22 73 65 74 2d 65 78 63 6c 75 73 69 76 65 2d 6f 72 22 20 22 66 5f 73 65 74 5f 65 78 2e 68 74 6d | "set-exclusive-or"."f_set_ex.htm |
| 273040 | 22 29 0a 09 20 20 28 22 73 65 74 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 22 20 22 66 5f | ")....("set-macro-character"."f_ |
| 273060 | 73 65 74 5f 6d 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 65 74 2d 70 70 72 69 6e 74 2d 64 69 73 | set_ma.htm")....("set-pprint-dis |
| 273080 | 70 61 74 63 68 22 20 22 66 5f 73 65 74 5f 70 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 65 74 2d | patch"."f_set_pp.htm")....("set- |
| 2730a0 | 73 79 6e 74 61 78 2d 66 72 6f 6d 2d 63 68 61 72 22 20 22 66 5f 73 65 74 5f 73 79 2e 68 74 6d 22 | syntax-from-char"."f_set_sy.htm" |
| 2730c0 | 29 0a 09 20 20 28 22 73 65 74 66 22 20 22 61 5f 73 65 74 66 2e 68 74 6d 22 29 0a 09 20 20 28 22 | )....("setf"."a_setf.htm")....(" |
| 2730e0 | 73 65 74 71 22 20 22 73 5f 73 65 74 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 65 76 65 6e 74 68 | setq"."s_setq.htm")....("seventh |
| 273100 | 22 20 22 66 5f 66 69 72 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 68 61 64 6f 77 22 20 22 | "."f_firstc.htm")....("shadow"." |
| 273120 | 66 5f 73 68 61 64 6f 77 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 68 61 64 6f 77 69 6e 67 2d 69 6d | f_shadow.htm")....("shadowing-im |
| 273140 | 70 6f 72 74 22 20 22 66 5f 73 68 64 77 5f 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 68 61 72 65 | port"."f_shdw_i.htm")....("share |
| 273160 | 64 2d 69 6e 69 74 69 61 6c 69 7a 65 22 20 22 66 5f 73 68 61 72 65 64 2e 68 74 6d 22 29 0a 09 20 | d-initialize"."f_shared.htm")... |
| 273180 | 20 28 22 73 68 69 66 74 66 22 20 22 6d 5f 73 68 69 66 74 66 2e 68 74 6d 22 29 0a 09 20 20 28 22 | .("shiftf"."m_shiftf.htm")....(" |
| 2731a0 | 73 68 6f 72 74 2d 66 6c 6f 61 74 22 20 22 74 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 | short-float"."t_short_.htm").... |
| 2731c0 | 28 22 73 68 6f 72 74 2d 66 6c 6f 61 74 2d 65 70 73 69 6c 6f 6e 22 20 22 76 5f 73 68 6f 72 74 5f | ("short-float-epsilon"."v_short_ |
| 2731e0 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 68 6f 72 74 2d 66 6c 6f 61 74 2d 6e 65 67 61 74 69 76 65 | .htm")....("short-float-negative |
| 273200 | 2d 65 70 73 69 6c 6f 6e 22 20 22 76 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 | -epsilon"."v_short_.htm")....("s |
| 273220 | 68 6f 72 74 2d 73 69 74 65 2d 6e 61 6d 65 22 20 22 66 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a | hort-site-name"."f_short_.htm"). |
| 273240 | 09 20 20 28 22 73 69 67 6e 61 6c 22 20 22 66 5f 73 69 67 6e 61 6c 2e 68 74 6d 22 29 0a 09 20 20 | ...("signal"."f_signal.htm").... |
| 273260 | 28 22 73 69 67 6e 65 64 2d 62 79 74 65 22 20 22 74 5f 73 67 6e 5f 62 79 2e 68 74 6d 22 29 0a 09 | ("signed-byte"."t_sgn_by.htm").. |
| 273280 | 20 20 28 22 73 69 67 6e 75 6d 22 20 22 66 5f 73 69 67 6e 75 6d 2e 68 74 6d 22 29 0a 09 20 20 28 | ..("signum"."f_signum.htm")....( |
| 2732a0 | 22 73 69 6d 70 6c 65 2d 61 72 72 61 79 22 20 22 74 5f 73 6d 70 5f 61 72 2e 68 74 6d 22 29 0a 09 | "simple-array"."t_smp_ar.htm").. |
| 2732c0 | 20 20 28 22 73 69 6d 70 6c 65 2d 62 61 73 65 2d 73 74 72 69 6e 67 22 20 22 74 5f 73 6d 70 5f 62 | ..("simple-base-string"."t_smp_b |
| 2732e0 | 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 6d 70 6c 65 2d 62 69 74 2d 76 65 63 74 6f 72 22 20 | a.htm")....("simple-bit-vector". |
| 273300 | 22 74 5f 73 6d 70 5f 62 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 6d 70 6c 65 2d 62 69 74 2d | "t_smp_bt.htm")....("simple-bit- |
| 273320 | 76 65 63 74 6f 72 2d 70 22 20 22 66 5f 73 6d 70 5f 62 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 | vector-p"."f_smp_bt.htm")....("s |
| 273340 | 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 22 20 22 65 5f 73 6d 70 5f 63 6e 2e 68 74 6d 22 29 | imple-condition"."e_smp_cn.htm") |
| 273360 | 0a 09 20 20 28 22 73 69 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d 61 74 2d 61 72 | ....("simple-condition-format-ar |
| 273380 | 67 75 6d 65 6e 74 73 22 20 22 66 5f 73 6d 70 5f 63 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 | guments"."f_smp_cn.htm")....("si |
| 2733a0 | 6d 70 6c 65 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d 61 74 2d 63 6f 6e 74 72 6f 6c 22 20 22 | mple-condition-format-control"." |
| 2733c0 | 66 5f 73 6d 70 5f 63 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 6d 70 6c 65 2d 65 72 72 6f 72 | f_smp_cn.htm")....("simple-error |
| 2733e0 | 22 20 22 65 5f 73 6d 70 5f 65 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 6d 70 6c 65 2d 73 74 | "."e_smp_er.htm")....("simple-st |
| 273400 | 72 69 6e 67 22 20 22 74 5f 73 6d 70 5f 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 6d 70 6c | ring"."t_smp_st.htm")....("simpl |
| 273420 | 65 2d 73 74 72 69 6e 67 2d 70 22 20 22 66 5f 73 6d 70 5f 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 | e-string-p"."f_smp_st.htm")....( |
| 273440 | 22 73 69 6d 70 6c 65 2d 74 79 70 65 2d 65 72 72 6f 72 22 20 22 65 5f 73 6d 70 5f 74 70 2e 68 74 | "simple-type-error"."e_smp_tp.ht |
| 273460 | 6d 22 29 0a 09 20 20 28 22 73 69 6d 70 6c 65 2d 76 65 63 74 6f 72 22 20 22 74 5f 73 6d 70 5f 76 | m")....("simple-vector"."t_smp_v |
| 273480 | 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 6d 70 6c 65 2d 76 65 63 74 6f 72 2d 70 22 20 22 66 | e.htm")....("simple-vector-p"."f |
| 2734a0 | 5f 73 6d 70 5f 76 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 6d 70 6c 65 2d 77 61 72 6e 69 6e | _smp_ve.htm")....("simple-warnin |
| 2734c0 | 67 22 20 22 65 5f 73 6d 70 5f 77 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 6e 22 20 22 66 5f | g"."e_smp_wa.htm")....("sin"."f_ |
| 2734e0 | 73 69 6e 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 22 20 22 | sin_c.htm")....("single-float"." |
| 273500 | 74 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 6e 67 6c 65 2d 66 6c 6f 61 74 | t_short_.htm")....("single-float |
| 273520 | 2d 65 70 73 69 6c 6f 6e 22 20 22 76 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 | -epsilon"."v_short_.htm")....("s |
| 273540 | 69 6e 67 6c 65 2d 66 6c 6f 61 74 2d 6e 65 67 61 74 69 76 65 2d 65 70 73 69 6c 6f 6e 22 20 22 76 | ingle-float-negative-epsilon"."v |
| 273560 | 5f 73 68 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 6e 68 22 20 22 66 5f 73 69 6e 68 | _short_.htm")....("sinh"."f_sinh |
| 273580 | 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 69 78 74 68 22 20 22 66 5f 66 69 72 73 74 63 2e 68 74 | _.htm")....("sixth"."f_firstc.ht |
| 2735a0 | 6d 22 29 0a 09 20 20 28 22 73 6c 65 65 70 22 20 22 66 5f 73 6c 65 65 70 2e 68 74 6d 22 29 0a 09 | m")....("sleep"."f_sleep.htm").. |
| 2735c0 | 20 20 28 22 73 6c 6f 74 2d 62 6f 75 6e 64 70 22 20 22 66 5f 73 6c 74 5f 62 6f 2e 68 74 6d 22 29 | ..("slot-boundp"."f_slt_bo.htm") |
| 2735e0 | 0a 09 20 20 28 22 73 6c 6f 74 2d 65 78 69 73 74 73 2d 70 22 20 22 66 5f 73 6c 74 5f 65 78 2e 68 | ....("slot-exists-p"."f_slt_ex.h |
| 273600 | 74 6d 22 29 0a 09 20 20 28 22 73 6c 6f 74 2d 6d 61 6b 75 6e 62 6f 75 6e 64 22 20 22 66 5f 73 6c | tm")....("slot-makunbound"."f_sl |
| 273620 | 74 5f 6d 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 6c 6f 74 2d 6d 69 73 73 69 6e 67 22 20 22 66 | t_ma.htm")....("slot-missing"."f |
| 273640 | 5f 73 6c 74 5f 6d 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 6c 6f 74 2d 75 6e 62 6f 75 6e 64 22 | _slt_mi.htm")....("slot-unbound" |
| 273660 | 20 22 66 5f 73 6c 74 5f 75 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 6c 6f 74 2d 76 61 6c 75 65 | ."f_slt_un.htm")....("slot-value |
| 273680 | 22 20 22 66 5f 73 6c 74 5f 76 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 6f 66 74 77 61 72 65 2d | "."f_slt_va.htm")....("software- |
| 2736a0 | 74 79 70 65 22 20 22 66 5f 73 77 5f 74 70 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 6f 66 74 77 | type"."f_sw_tpc.htm")....("softw |
| 2736c0 | 61 72 65 2d 76 65 72 73 69 6f 6e 22 20 22 66 5f 73 77 5f 74 70 63 2e 68 74 6d 22 29 0a 09 20 20 | are-version"."f_sw_tpc.htm").... |
| 2736e0 | 28 22 73 6f 6d 65 22 20 22 66 5f 65 76 65 72 79 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 6f 72 | ("some"."f_everyc.htm")....("sor |
| 273700 | 74 22 20 22 66 5f 73 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 70 61 63 65 22 20 22 64 | t"."f_sort_.htm")....("space"."d |
| 273720 | 5f 6f 70 74 69 6d 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 70 65 63 69 61 6c 22 20 22 64 5f 73 | _optimi.htm")....("special"."d_s |
| 273740 | 70 65 63 69 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 74 6f | pecia.htm")....("special-operato |
| 273760 | 72 2d 70 22 20 22 66 5f 73 70 65 63 69 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 70 65 65 64 22 | r-p"."f_specia.htm")....("speed" |
| 273780 | 20 22 64 5f 6f 70 74 69 6d 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 71 72 74 22 20 22 66 5f 73 | ."d_optimi.htm")....("sqrt"."f_s |
| 2737a0 | 71 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 61 62 6c 65 2d 73 6f 72 74 22 20 22 66 5f | qrt_.htm")....("stable-sort"."f_ |
| 2737c0 | 73 6f 72 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 61 6e 64 61 72 64 22 20 22 30 37 5f 66 | sort_.htm")....("standard"."07_f |
| 2737e0 | 66 62 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 61 6e 64 61 72 64 2d 63 68 61 72 22 20 22 74 5f | fb.htm")....("standard-char"."t_ |
| 273800 | 73 74 64 5f 63 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 61 6e 64 61 72 64 2d 63 68 61 72 2d | std_ch.htm")....("standard-char- |
| 273820 | 70 22 20 22 66 5f 73 74 64 5f 63 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 61 6e 64 61 72 64 | p"."f_std_ch.htm")....("standard |
| 273840 | 2d 63 6c 61 73 73 22 20 22 74 5f 73 74 64 5f 63 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 61 | -class"."t_std_cl.htm")....("sta |
| 273860 | 6e 64 61 72 64 2d 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 22 20 22 74 5f 73 74 64 5f 67 | ndard-generic-function"."t_std_g |
| 273880 | 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 61 6e 64 61 72 64 2d 6d 65 74 68 6f 64 22 20 22 74 | e.htm")....("standard-method"."t |
| 2738a0 | 5f 73 74 64 5f 6d 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 61 6e 64 61 72 64 2d 6f 62 6a 65 | _std_me.htm")....("standard-obje |
| 2738c0 | 63 74 22 20 22 74 5f 73 74 64 5f 6f 62 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 65 70 22 20 22 | ct"."t_std_ob.htm")....("step"." |
| 2738e0 | 6d 5f 73 74 65 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 6f 72 61 67 65 2d 63 6f 6e 64 69 74 | m_step.htm")....("storage-condit |
| 273900 | 69 6f 6e 22 20 22 65 5f 73 74 6f 72 61 67 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 6f 72 65 2d | ion"."e_storag.htm")....("store- |
| 273920 | 76 61 6c 75 65 22 20 22 61 5f 73 74 6f 72 65 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 65 | value"."a_store_.htm")....("stre |
| 273940 | 61 6d 22 20 22 74 5f 73 74 72 65 61 6d 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 65 61 6d 2d | am"."t_stream.htm")....("stream- |
| 273960 | 65 6c 65 6d 65 6e 74 2d 74 79 70 65 22 20 22 66 5f 73 74 6d 5f 65 6c 2e 68 74 6d 22 29 0a 09 20 | element-type"."f_stm_el.htm")... |
| 273980 | 20 28 22 73 74 72 65 61 6d 2d 65 72 72 6f 72 22 20 22 65 5f 73 74 6d 5f 65 72 2e 68 74 6d 22 29 | .("stream-error"."e_stm_er.htm") |
| 2739a0 | 0a 09 20 20 28 22 73 74 72 65 61 6d 2d 65 72 72 6f 72 2d 73 74 72 65 61 6d 22 20 22 66 5f 73 74 | ....("stream-error-stream"."f_st |
| 2739c0 | 6d 5f 65 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 65 61 6d 2d 65 78 74 65 72 6e 61 6c 2d | m_er.htm")....("stream-external- |
| 2739e0 | 66 6f 72 6d 61 74 22 20 22 66 5f 73 74 6d 5f 65 78 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 | format"."f_stm_ex.htm")....("str |
| 273a00 | 65 61 6d 70 22 20 22 66 5f 73 74 6d 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 69 6e 67 22 | eamp"."f_stmp.htm")....("string" |
| 273a20 | 20 22 61 5f 73 74 72 69 6e 67 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 69 6e 67 2d 63 61 70 | ."a_string.htm")....("string-cap |
| 273a40 | 69 74 61 6c 69 7a 65 22 20 22 66 5f 73 74 67 5f 75 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 | italize"."f_stg_up.htm")....("st |
| 273a60 | 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 22 20 22 66 5f 73 74 67 5f 75 70 2e 68 74 6d 22 29 0a 09 | ring-downcase"."f_stg_up.htm").. |
| 273a80 | 20 20 28 22 73 74 72 69 6e 67 2d 65 71 75 61 6c 22 20 22 66 5f 73 74 67 65 71 5f 2e 68 74 6d 22 | ..("string-equal"."f_stgeq_.htm" |
| 273aa0 | 29 0a 09 20 20 28 22 73 74 72 69 6e 67 2d 67 72 65 61 74 65 72 70 22 20 22 66 5f 73 74 67 65 71 | )....("string-greaterp"."f_stgeq |
| 273ac0 | 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 69 6e 67 2d 6c 65 66 74 2d 74 72 69 6d 22 20 22 | _.htm")....("string-left-trim"." |
| 273ae0 | 66 5f 73 74 67 5f 74 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 69 6e 67 2d 6c 65 73 73 70 | f_stg_tr.htm")....("string-lessp |
| 273b00 | 22 20 22 66 5f 73 74 67 65 71 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 69 6e 67 2d 6e 6f | "."f_stgeq_.htm")....("string-no |
| 273b20 | 74 2d 65 71 75 61 6c 22 20 22 66 5f 73 74 67 65 71 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 | t-equal"."f_stgeq_.htm")....("st |
| 273b40 | 72 69 6e 67 2d 6e 6f 74 2d 67 72 65 61 74 65 72 70 22 20 22 66 5f 73 74 67 65 71 5f 2e 68 74 6d | ring-not-greaterp"."f_stgeq_.htm |
| 273b60 | 22 29 0a 09 20 20 28 22 73 74 72 69 6e 67 2d 6e 6f 74 2d 6c 65 73 73 70 22 20 22 66 5f 73 74 67 | ")....("string-not-lessp"."f_stg |
| 273b80 | 65 71 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 69 6e 67 2d 72 69 67 68 74 2d 74 72 69 6d | eq_.htm")....("string-right-trim |
| 273ba0 | 22 20 22 66 5f 73 74 67 5f 74 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 69 6e 67 2d 73 74 | "."f_stg_tr.htm")....("string-st |
| 273bc0 | 72 65 61 6d 22 20 22 74 5f 73 74 67 5f 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 69 6e | ream"."t_stg_st.htm")....("strin |
| 273be0 | 67 2d 74 72 69 6d 22 20 22 66 5f 73 74 67 5f 74 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 | g-trim"."f_stg_tr.htm")....("str |
| 273c00 | 69 6e 67 2d 75 70 63 61 73 65 22 20 22 66 5f 73 74 67 5f 75 70 2e 68 74 6d 22 29 0a 09 20 20 28 | ing-upcase"."f_stg_up.htm")....( |
| 273c20 | 22 73 74 72 69 6e 67 2f 3d 22 20 22 66 5f 73 74 67 65 71 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 | "string/="."f_stgeq_.htm")....(" |
| 273c40 | 73 74 72 69 6e 67 3c 22 20 22 66 5f 73 74 67 65 71 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 | string<"."f_stgeq_.htm")....("st |
| 273c60 | 72 69 6e 67 3c 3d 22 20 22 66 5f 73 74 67 65 71 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 | ring<="."f_stgeq_.htm")....("str |
| 273c80 | 69 6e 67 3d 22 20 22 66 5f 73 74 67 65 71 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 69 6e | ing="."f_stgeq_.htm")....("strin |
| 273ca0 | 67 3e 22 20 22 66 5f 73 74 67 65 71 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 69 6e 67 3e | g>"."f_stgeq_.htm")....("string> |
| 273cc0 | 3d 22 20 22 66 5f 73 74 67 65 71 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 69 6e 67 70 22 | ="."f_stgeq_.htm")....("stringp" |
| 273ce0 | 20 22 66 5f 73 74 67 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 75 63 74 75 72 65 22 20 22 | ."f_stgp.htm")....("structure"." |
| 273d00 | 66 5f 64 6f 63 75 6d 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 75 63 74 75 72 65 2d 63 6c | f_docume.htm")....("structure-cl |
| 273d20 | 61 73 73 22 20 22 74 5f 73 74 75 5f 63 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 74 72 75 63 74 | ass"."t_stu_cl.htm")....("struct |
| 273d40 | 75 72 65 2d 6f 62 6a 65 63 74 22 20 22 74 5f 73 74 75 5f 6f 62 2e 68 74 6d 22 29 0a 09 20 20 28 | ure-object"."t_stu_ob.htm")....( |
| 273d60 | 22 73 74 79 6c 65 2d 77 61 72 6e 69 6e 67 22 20 22 65 5f 73 74 79 6c 65 5f 2e 68 74 6d 22 29 0a | "style-warning"."e_style_.htm"). |
| 273d80 | 09 20 20 28 22 73 75 62 6c 69 73 22 20 22 66 5f 73 75 62 6c 69 73 2e 68 74 6d 22 29 0a 09 20 20 | ...("sublis"."f_sublis.htm").... |
| 273da0 | 28 22 73 75 62 73 65 71 22 20 22 66 5f 73 75 62 73 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 | ("subseq"."f_subseq.htm")....("s |
| 273dc0 | 75 62 73 65 74 70 22 20 22 66 5f 73 75 62 73 65 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 75 62 | ubsetp"."f_subset.htm")....("sub |
| 273de0 | 73 74 22 20 22 66 5f 73 75 62 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 75 62 73 74 2d 69 | st"."f_substc.htm")....("subst-i |
| 273e00 | 66 22 20 22 66 5f 73 75 62 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 75 62 73 74 2d 69 66 | f"."f_substc.htm")....("subst-if |
| 273e20 | 2d 6e 6f 74 22 20 22 66 5f 73 75 62 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 75 62 73 74 | -not"."f_substc.htm")....("subst |
| 273e40 | 69 74 75 74 65 22 20 22 66 5f 73 62 73 5f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 75 62 73 74 | itute"."f_sbs_s.htm")....("subst |
| 273e60 | 69 74 75 74 65 2d 69 66 22 20 22 66 5f 73 62 73 5f 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 75 | itute-if"."f_sbs_s.htm")....("su |
| 273e80 | 62 73 74 69 74 75 74 65 2d 69 66 2d 6e 6f 74 22 20 22 66 5f 73 62 73 5f 73 2e 68 74 6d 22 29 0a | bstitute-if-not"."f_sbs_s.htm"). |
| 273ea0 | 09 20 20 28 22 73 75 62 74 79 70 65 70 22 20 22 66 5f 73 75 62 74 70 70 2e 68 74 6d 22 29 0a 09 | ...("subtypep"."f_subtpp.htm").. |
| 273ec0 | 20 20 28 22 73 76 72 65 66 22 20 22 66 5f 73 76 72 65 66 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 | ..("svref"."f_svref.htm")....("s |
| 273ee0 | 78 68 61 73 68 22 20 22 66 5f 73 78 68 61 73 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 79 6d 62 | xhash"."f_sxhash.htm")....("symb |
| 273f00 | 6f 6c 22 20 22 74 5f 73 79 6d 62 6f 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 79 6d 62 6f 6c 2d | ol"."t_symbol.htm")....("symbol- |
| 273f20 | 66 75 6e 63 74 69 6f 6e 22 20 22 66 5f 73 79 6d 62 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 | function"."f_symb_1.htm")....("s |
| 273f40 | 79 6d 62 6f 6c 2d 6d 61 63 72 6f 6c 65 74 22 20 22 73 5f 73 79 6d 62 6f 6c 2e 68 74 6d 22 29 0a | ymbol-macrolet"."s_symbol.htm"). |
| 273f60 | 09 20 20 28 22 73 79 6d 62 6f 6c 2d 6e 61 6d 65 22 20 22 66 5f 73 79 6d 62 5f 32 2e 68 74 6d 22 | ...("symbol-name"."f_symb_2.htm" |
| 273f80 | 29 0a 09 20 20 28 22 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 22 20 22 66 5f 73 79 6d 62 5f 33 | )....("symbol-package"."f_symb_3 |
| 273fa0 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 79 6d 62 6f 6c 2d 70 6c 69 73 74 22 20 22 66 5f 73 79 6d | .htm")....("symbol-plist"."f_sym |
| 273fc0 | 62 5f 34 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 22 20 22 66 5f | b_4.htm")....("symbol-value"."f_ |
| 273fe0 | 73 79 6d 62 5f 35 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 79 6d 62 6f 6c 70 22 20 22 66 5f 73 79 | symb_5.htm")....("symbolp"."f_sy |
| 274000 | 6d 62 6f 6c 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 79 6e 6f 6e 79 6d 2d 73 74 72 65 61 6d 22 20 | mbol.htm")....("synonym-stream". |
| 274020 | 22 74 5f 73 79 6e 5f 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 73 79 6e 6f 6e 79 6d 2d 73 74 72 | "t_syn_st.htm")....("synonym-str |
| 274040 | 65 61 6d 2d 73 79 6d 62 6f 6c 22 20 22 66 5f 73 79 6e 5f 73 74 2e 68 74 6d 22 29 0a 09 20 20 28 | eam-symbol"."f_syn_st.htm")....( |
| 274060 | 22 74 22 20 22 61 5f 74 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 61 67 62 6f 64 79 22 20 22 73 5f | "t"."a_t.htm")....("tagbody"."s_ |
| 274080 | 74 61 67 62 6f 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 61 69 6c 70 22 20 22 66 5f 6c 64 69 66 | tagbod.htm")....("tailp"."f_ldif |
| 2740a0 | 66 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 61 6e 22 20 22 66 5f 73 69 6e 5f 63 2e 68 74 6d 22 | fc.htm")....("tan"."f_sin_c.htm" |
| 2740c0 | 29 0a 09 20 20 28 22 74 61 6e 68 22 20 22 66 5f 73 69 6e 68 5f 2e 68 74 6d 22 29 0a 09 20 20 28 | )....("tanh"."f_sinh_.htm")....( |
| 2740e0 | 22 74 65 6e 74 68 22 20 22 66 5f 66 69 72 73 74 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 65 72 | "tenth"."f_firstc.htm")....("ter |
| 274100 | 70 72 69 22 20 22 66 5f 74 65 72 70 72 69 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 68 65 22 20 22 | pri"."f_terpri.htm")....("the"." |
| 274120 | 73 5f 74 68 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 68 69 72 64 22 20 22 66 5f 66 69 72 73 74 | s_the.htm")....("third"."f_first |
| 274140 | 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 68 72 6f 77 22 20 22 73 5f 74 68 72 6f 77 2e 68 74 6d | c.htm")....("throw"."s_throw.htm |
| 274160 | 22 29 0a 09 20 20 28 22 74 69 6d 65 22 20 22 6d 5f 74 69 6d 65 2e 68 74 6d 22 29 0a 09 20 20 28 | ")....("time"."m_time.htm")....( |
| 274180 | 22 74 72 61 63 65 22 20 22 6d 5f 74 72 61 63 65 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 72 61 | "trace"."m_tracec.htm")....("tra |
| 2741a0 | 6e 73 6c 61 74 65 2d 6c 6f 67 69 63 61 6c 2d 70 61 74 68 6e 61 6d 65 22 20 22 66 5f 74 72 5f 6c | nslate-logical-pathname"."f_tr_l |
| 2741c0 | 6f 67 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 72 61 6e 73 6c 61 74 65 2d 70 61 74 68 6e 61 6d 65 | og.htm")....("translate-pathname |
| 2741e0 | 22 20 22 66 5f 74 72 5f 70 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 72 65 65 2d 65 71 75 61 6c | "."f_tr_pn.htm")....("tree-equal |
| 274200 | 22 20 22 66 5f 74 72 65 65 5f 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 72 75 65 6e 61 6d 65 22 | "."f_tree_e.htm")....("truename" |
| 274220 | 20 22 66 5f 74 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 72 75 6e 63 61 74 65 22 20 22 66 5f 66 | ."f_tn.htm")....("truncate"."f_f |
| 274240 | 6c 6f 6f 72 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 22 | loorc.htm")....("two-way-stream" |
| 274260 | 20 22 74 5f 74 77 6f 5f 77 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 77 6f 2d 77 61 79 2d 73 74 | ."t_two_wa.htm")....("two-way-st |
| 274280 | 72 65 61 6d 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 22 20 22 66 5f 74 77 6f 5f 77 61 2e 68 74 6d | ream-input-stream"."f_two_wa.htm |
| 2742a0 | 22 29 0a 09 20 20 28 22 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 2d 6f 75 74 70 75 74 2d 73 74 | ")....("two-way-stream-output-st |
| 2742c0 | 72 65 61 6d 22 20 22 66 5f 74 77 6f 5f 77 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 79 70 65 22 | ream"."f_two_wa.htm")....("type" |
| 2742e0 | 20 22 61 5f 74 79 70 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 79 70 65 2d 65 72 72 6f 72 22 20 | ."a_type.htm")....("type-error". |
| 274300 | 22 65 5f 74 70 5f 65 72 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 79 70 65 2d 65 72 72 6f 72 2d | "e_tp_err.htm")....("type-error- |
| 274320 | 64 61 74 75 6d 22 20 22 66 5f 74 70 5f 65 72 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 74 79 70 65 | datum"."f_tp_err.htm")....("type |
| 274340 | 2d 65 72 72 6f 72 2d 65 78 70 65 63 74 65 64 2d 74 79 70 65 22 20 22 66 5f 74 70 5f 65 72 72 2e | -error-expected-type"."f_tp_err. |
| 274360 | 68 74 6d 22 29 0a 09 20 20 28 22 74 79 70 65 2d 6f 66 22 20 22 66 5f 74 70 5f 6f 66 2e 68 74 6d | htm")....("type-of"."f_tp_of.htm |
| 274380 | 22 29 0a 09 20 20 28 22 74 79 70 65 63 61 73 65 22 20 22 6d 5f 74 70 63 61 73 65 2e 68 74 6d 22 | ")....("typecase"."m_tpcase.htm" |
| 2743a0 | 29 0a 09 20 20 28 22 74 79 70 65 70 22 20 22 66 5f 74 79 70 65 70 2e 68 74 6d 22 29 0a 09 20 20 | )....("typep"."f_typep.htm").... |
| 2743c0 | 28 22 75 6e 62 6f 75 6e 64 2d 73 6c 6f 74 22 20 22 65 5f 75 6e 62 6f 75 6e 2e 68 74 6d 22 29 0a | ("unbound-slot"."e_unboun.htm"). |
| 2743e0 | 09 20 20 28 22 75 6e 62 6f 75 6e 64 2d 73 6c 6f 74 2d 69 6e 73 74 61 6e 63 65 22 20 22 66 5f 75 | ...("unbound-slot-instance"."f_u |
| 274400 | 6e 62 6f 75 6e 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 6e 62 6f 75 6e 64 2d 76 61 72 69 61 62 6c | nboun.htm")....("unbound-variabl |
| 274420 | 65 22 20 22 65 5f 75 6e 62 6f 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 6e 64 65 66 69 6e 65 | e"."e_unbo_1.htm")....("undefine |
| 274440 | 64 2d 66 75 6e 63 74 69 6f 6e 22 20 22 65 5f 75 6e 64 65 66 69 2e 68 74 6d 22 29 0a 09 20 20 28 | d-function"."e_undefi.htm")....( |
| 274460 | 22 75 6e 65 78 70 6f 72 74 22 20 22 66 5f 75 6e 65 78 70 6f 2e 68 74 6d 22 29 0a 09 20 20 28 22 | "unexport"."f_unexpo.htm")....(" |
| 274480 | 75 6e 69 6e 74 65 72 6e 22 20 22 66 5f 75 6e 69 6e 74 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 | unintern"."f_uninte.htm")....("u |
| 2744a0 | 6e 69 6f 6e 22 20 22 66 5f 75 6e 69 6f 6e 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 6e 6c 65 73 | nion"."f_unionc.htm")....("unles |
| 2744c0 | 73 22 20 22 6d 5f 77 68 65 6e 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 6e 72 65 61 64 2d 63 68 | s"."m_when_.htm")....("unread-ch |
| 2744e0 | 61 72 22 20 22 66 5f 75 6e 72 64 5f 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 6e 73 69 67 6e 65 | ar"."f_unrd_c.htm")....("unsigne |
| 274500 | 64 2d 62 79 74 65 22 20 22 74 5f 75 6e 73 67 6e 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 6e 74 | d-byte"."t_unsgn_.htm")....("unt |
| 274520 | 72 61 63 65 22 20 22 6d 5f 74 72 61 63 65 63 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 6e 75 73 65 | race"."m_tracec.htm")....("unuse |
| 274540 | 2d 70 61 63 6b 61 67 65 22 20 22 66 5f 75 6e 75 73 65 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 | -package"."f_unuse_.htm")....("u |
| 274560 | 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 22 20 22 73 5f 75 6e 77 69 6e 64 2e 68 74 6d 22 29 0a 09 | nwind-protect"."s_unwind.htm").. |
| 274580 | 20 20 28 22 75 70 64 61 74 65 2d 69 6e 73 74 61 6e 63 65 2d 66 6f 72 2d 64 69 66 66 65 72 65 6e | ..("update-instance-for-differen |
| 2745a0 | 74 2d 63 6c 61 73 73 22 20 22 66 5f 75 70 64 61 74 65 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 70 | t-class"."f_update.htm")....("up |
| 2745c0 | 64 61 74 65 2d 69 6e 73 74 61 6e 63 65 2d 66 6f 72 2d 72 65 64 65 66 69 6e 65 64 2d 63 6c 61 73 | date-instance-for-redefined-clas |
| 2745e0 | 73 22 20 22 66 5f 75 70 64 61 5f 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 70 67 72 61 64 65 64 | s"."f_upda_1.htm")....("upgraded |
| 274600 | 2d 61 72 72 61 79 2d 65 6c 65 6d 65 6e 74 2d 74 79 70 65 22 20 22 66 5f 75 70 67 72 5f 31 2e 68 | -array-element-type"."f_upgr_1.h |
| 274620 | 74 6d 22 29 0a 09 20 20 28 22 75 70 67 72 61 64 65 64 2d 63 6f 6d 70 6c 65 78 2d 70 61 72 74 2d | tm")....("upgraded-complex-part- |
| 274640 | 74 79 70 65 22 20 22 66 5f 75 70 67 72 61 64 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 70 70 65 72 | type"."f_upgrad.htm")....("upper |
| 274660 | 2d 63 61 73 65 2d 70 22 20 22 66 5f 75 70 70 65 72 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 75 73 | -case-p"."f_upper_.htm")....("us |
| 274680 | 65 2d 70 61 63 6b 61 67 65 22 20 22 66 5f 75 73 65 5f 70 6b 2e 68 74 6d 22 29 0a 09 20 20 28 22 | e-package"."f_use_pk.htm")....(" |
| 2746a0 | 75 73 65 2d 76 61 6c 75 65 22 20 22 61 5f 75 73 65 5f 76 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 | use-value"."a_use_va.htm")....(" |
| 2746c0 | 75 73 65 72 2d 68 6f 6d 65 64 69 72 2d 70 61 74 68 6e 61 6d 65 22 20 22 66 5f 75 73 65 72 5f 68 | user-homedir-pathname"."f_user_h |
| 2746e0 | 2e 68 74 6d 22 29 0a 09 20 20 28 22 76 61 6c 75 65 73 22 20 22 61 5f 76 61 6c 75 65 73 2e 68 74 | .htm")....("values"."a_values.ht |
| 274700 | 6d 22 29 0a 09 20 20 28 22 76 61 6c 75 65 73 2d 6c 69 73 74 22 20 22 66 5f 76 61 6c 73 5f 6c 2e | m")....("values-list"."f_vals_l. |
| 274720 | 68 74 6d 22 29 0a 09 20 20 28 22 76 61 72 69 61 62 6c 65 22 20 22 66 5f 64 6f 63 75 6d 65 2e 68 | htm")....("variable"."f_docume.h |
| 274740 | 74 6d 22 29 0a 09 20 20 28 22 76 65 63 74 6f 72 22 20 22 61 5f 76 65 63 74 6f 72 2e 68 74 6d 22 | tm")....("vector"."a_vector.htm" |
| 274760 | 29 0a 09 20 20 28 22 76 65 63 74 6f 72 2d 70 6f 70 22 20 22 66 5f 76 65 63 5f 70 6f 2e 68 74 6d | )....("vector-pop"."f_vec_po.htm |
| 274780 | 22 29 0a 09 20 20 28 22 76 65 63 74 6f 72 2d 70 75 73 68 22 20 22 66 5f 76 65 63 5f 70 73 2e 68 | ")....("vector-push"."f_vec_ps.h |
| 2747a0 | 74 6d 22 29 0a 09 20 20 28 22 76 65 63 74 6f 72 2d 70 75 73 68 2d 65 78 74 65 6e 64 22 20 22 66 | tm")....("vector-push-extend"."f |
| 2747c0 | 5f 76 65 63 5f 70 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 76 65 63 74 6f 72 70 22 20 22 66 5f 76 | _vec_ps.htm")....("vectorp"."f_v |
| 2747e0 | 65 63 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 61 72 6e 22 20 22 66 5f 77 61 72 6e 2e 68 74 6d | ecp.htm")....("warn"."f_warn.htm |
| 274800 | 22 29 0a 09 20 20 28 22 77 61 72 6e 69 6e 67 22 20 22 65 5f 77 61 72 6e 69 6e 2e 68 74 6d 22 29 | ")....("warning"."e_warnin.htm") |
| 274820 | 0a 09 20 20 28 22 77 68 65 6e 22 20 22 6d 5f 77 68 65 6e 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 | ....("when"."m_when_.htm")....(" |
| 274840 | 77 69 6c 64 2d 70 61 74 68 6e 61 6d 65 2d 70 22 20 22 66 5f 77 69 6c 64 5f 70 2e 68 74 6d 22 29 | wild-pathname-p"."f_wild_p.htm") |
| 274860 | 0a 09 20 20 28 22 77 69 74 68 2d 61 63 63 65 73 73 6f 72 73 22 20 22 6d 5f 77 5f 61 63 63 65 2e | ....("with-accessors"."m_w_acce. |
| 274880 | 68 74 6d 22 29 0a 09 20 20 28 22 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 75 6e 69 74 | htm")....("with-compilation-unit |
| 2748a0 | 22 20 22 6d 5f 77 5f 63 6f 6d 70 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 69 74 68 2d 63 6f 6e 64 | "."m_w_comp.htm")....("with-cond |
| 2748c0 | 69 74 69 6f 6e 2d 72 65 73 74 61 72 74 73 22 20 22 6d 5f 77 5f 63 6e 64 5f 2e 68 74 6d 22 29 0a | ition-restarts"."m_w_cnd_.htm"). |
| 2748e0 | 09 20 20 28 22 77 69 74 68 2d 68 61 73 68 2d 74 61 62 6c 65 2d 69 74 65 72 61 74 6f 72 22 20 22 | ...("with-hash-table-iterator"." |
| 274900 | 6d 5f 77 5f 68 61 73 68 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 69 74 68 2d 69 6e 70 75 74 2d 66 | m_w_hash.htm")....("with-input-f |
| 274920 | 72 6f 6d 2d 73 74 72 69 6e 67 22 20 22 6d 5f 77 5f 69 6e 5f 66 2e 68 74 6d 22 29 0a 09 20 20 28 | rom-string"."m_w_in_f.htm")....( |
| 274940 | 22 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 22 20 22 6d 5f 77 5f 6f 70 65 6e 2e 68 74 6d 22 29 | "with-open-file"."m_w_open.htm") |
| 274960 | 0a 09 20 20 28 22 77 69 74 68 2d 6f 70 65 6e 2d 73 74 72 65 61 6d 22 20 22 6d 5f 77 5f 6f 70 5f | ....("with-open-stream"."m_w_op_ |
| 274980 | 31 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 | 1.htm")....("with-output-to-stri |
| 2749a0 | 6e 67 22 20 22 6d 5f 77 5f 6f 75 74 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 69 74 68 2d 70 61 | ng"."m_w_out_.htm")....("with-pa |
| 2749c0 | 63 6b 61 67 65 2d 69 74 65 72 61 74 6f 72 22 20 22 6d 5f 77 5f 70 6b 67 5f 2e 68 74 6d 22 29 0a | ckage-iterator"."m_w_pkg_.htm"). |
| 2749e0 | 09 20 20 28 22 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 22 20 22 6d 5f 77 5f 73 | ...("with-simple-restart"."m_w_s |
| 274a00 | 6d 70 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 69 74 68 2d 73 6c 6f 74 73 22 20 22 6d 5f 77 5f | mp_.htm")....("with-slots"."m_w_ |
| 274a20 | 73 6c 74 73 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f | slts.htm")....("with-standard-io |
| 274a40 | 2d 73 79 6e 74 61 78 22 20 22 6d 5f 77 5f 73 74 64 5f 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 72 | -syntax"."m_w_std_.htm")....("wr |
| 274a60 | 69 74 65 22 20 22 66 5f 77 72 5f 70 72 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 72 69 74 65 2d 62 | ite"."f_wr_pr.htm")....("write-b |
| 274a80 | 79 74 65 22 20 22 66 5f 77 72 5f 62 79 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 72 69 74 65 2d 63 | yte"."f_wr_by.htm")....("write-c |
| 274aa0 | 68 61 72 22 20 22 66 5f 77 72 5f 63 68 61 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 72 69 74 65 2d | har"."f_wr_cha.htm")....("write- |
| 274ac0 | 6c 69 6e 65 22 20 22 66 5f 77 72 5f 73 74 67 2e 68 74 6d 22 29 0a 09 20 20 28 22 77 72 69 74 65 | line"."f_wr_stg.htm")....("write |
| 274ae0 | 2d 73 65 71 75 65 6e 63 65 22 20 22 66 5f 77 72 5f 73 65 71 2e 68 74 6d 22 29 0a 09 20 20 28 22 | -sequence"."f_wr_seq.htm")....(" |
| 274b00 | 77 72 69 74 65 2d 73 74 72 69 6e 67 22 20 22 66 5f 77 72 5f 73 74 67 2e 68 74 6d 22 29 0a 09 20 | write-string"."f_wr_stg.htm")... |
| 274b20 | 20 28 22 77 72 69 74 65 2d 74 6f 2d 73 74 72 69 6e 67 22 20 22 66 5f 77 72 5f 74 6f 5f 2e 68 74 | .("write-to-string"."f_wr_to_.ht |
| 274b40 | 6d 22 29 0a 09 20 20 28 22 79 2d 6f 72 2d 6e 2d 70 22 20 22 66 5f 79 5f 6f 72 5f 6e 2e 68 74 6d | m")....("y-or-n-p"."f_y_or_n.htm |
| 274b60 | 22 29 0a 09 20 20 28 22 79 65 73 2d 6f 72 2d 6e 6f 2d 70 22 20 22 66 5f 79 5f 6f 72 5f 6e 2e 68 | ")....("yes-or-no-p"."f_y_or_n.h |
| 274b80 | 74 6d 22 29 0a 09 20 20 28 22 7a 65 72 6f 70 22 20 22 66 5f 7a 65 72 6f 70 2e 68 74 6d 22 29 29 | tm")....("zerop"."f_zerop.htm")) |
| 274ba0 | 29 29 0a 0a 3b 3b 3b 20 41 64 64 65 64 20 65 6e 74 72 69 65 73 20 66 6f 72 20 72 65 61 64 65 72 | ))..;;;.Added.entries.for.reader |
| 274bc0 | 20 6d 61 63 72 6f 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 32 30 30 39 30 33 30 32 20 54 6f 62 69 61 73 | .macros..;;;.;;;.20090302.Tobias |
| 274be0 | 20 43 20 52 69 74 74 77 65 69 6c 65 72 2c 20 61 6e 64 20 53 74 61 73 20 42 6f 75 6b 61 72 65 76 | .C.Rittweiler,.and.Stas.Boukarev |
| 274c00 | 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d | ..(defvar.common-lisp-hyperspec- |
| 274c20 | 2d 72 65 61 64 65 72 2d 6d 61 63 72 6f 73 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 | -reader-macros.(make-hash-table. |
| 274c40 | 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 0a 3b 3b 3b 20 44 61 74 61 2f 4d 61 70 5f 53 79 | :test.#'equal))..;;;.Data/Map_Sy |
| 274c60 | 6d 2e 74 78 74 20 69 6e 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 65 6e 74 72 69 65 | m.txt.in.does.not.contain.entrie |
| 274c80 | 73 20 66 6f 72 20 74 68 65 20 72 65 61 64 65 72 0a 3b 3b 3b 20 6d 61 63 72 6f 73 2e 20 53 6f 20 | s.for.the.reader.;;;.macros..So. |
| 274ca0 | 77 65 20 68 61 76 65 20 74 6f 20 65 6e 75 6d 65 72 61 74 65 20 74 68 65 73 65 20 65 78 70 6c 69 | we.have.to.enumerate.these.expli |
| 274cc0 | 63 69 74 6c 79 2e 0a 28 6d 61 70 63 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 0a 09 28 70 | citly..(mapc.(lambda.(entry)..(p |
| 274ce0 | 75 74 68 61 73 68 20 28 63 61 72 20 65 6e 74 72 79 29 20 28 63 61 64 72 20 65 6e 74 72 79 29 0a | uthash.(car.entry).(cadr.entry). |
| 274d00 | 09 09 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 72 65 61 64 65 72 | ...common-lisp-hyperspec--reader |
| 274d20 | 2d 6d 61 63 72 6f 73 29 29 0a 20 20 20 20 20 20 27 28 28 22 23 22 20 22 30 32 5f 64 68 2e 68 74 | -macros)).......'(("#"."02_dh.ht |
| 274d40 | 6d 22 29 0a 09 28 22 23 23 22 20 22 30 32 5f 64 68 70 2e 68 74 6d 22 29 0a 09 28 22 23 27 22 20 | m")..("##"."02_dhp.htm")..("#'". |
| 274d60 | 22 30 32 5f 64 68 62 2e 68 74 6d 22 29 0a 09 28 22 23 28 22 20 22 30 32 5f 64 68 63 2e 68 74 6d | "02_dhb.htm")..("#("."02_dhc.htm |
| 274d80 | 22 29 0a 09 28 22 23 2a 22 20 22 30 32 5f 64 68 64 2e 68 74 6d 22 29 0a 09 28 22 23 3a 22 20 22 | ")..("#*"."02_dhd.htm")..("#:"." |
| 274da0 | 30 32 5f 64 68 65 2e 68 74 6d 22 29 0a 09 28 22 23 2e 22 20 22 30 32 5f 64 68 66 2e 68 74 6d 22 | 02_dhe.htm")..("#."."02_dhf.htm" |
| 274dc0 | 29 0a 09 28 22 23 3d 22 20 22 30 32 5f 64 68 6f 2e 68 74 6d 22 29 0a 09 28 22 23 2b 22 20 22 30 | )..("#="."02_dho.htm")..("#+"."0 |
| 274de0 | 32 5f 64 68 71 2e 68 74 6d 22 29 0a 09 28 22 23 2d 22 20 22 30 32 5f 64 68 72 2e 68 74 6d 22 29 | 2_dhq.htm")..("#-"."02_dhr.htm") |
| 274e00 | 0a 09 28 22 23 3c 22 20 22 30 32 5f 64 68 74 2e 68 74 6d 22 29 0a 09 28 22 23 41 22 20 22 30 32 | ..("#<"."02_dht.htm")..("#A"."02 |
| 274e20 | 5f 64 68 6c 2e 68 74 6d 22 29 0a 09 28 22 23 42 22 20 22 30 32 5f 64 68 67 2e 68 74 6d 22 29 0a | _dhl.htm")..("#B"."02_dhg.htm"). |
| 274e40 | 09 28 22 23 43 22 20 22 30 32 5f 64 68 6b 2e 68 74 6d 22 29 0a 09 28 22 23 4f 22 20 22 30 32 5f | .("#C"."02_dhk.htm")..("#O"."02_ |
| 274e60 | 64 68 68 2e 68 74 6d 22 29 0a 09 28 22 23 50 22 20 22 30 32 5f 64 68 6e 2e 68 74 6d 22 29 0a 09 | dhh.htm")..("#P"."02_dhn.htm").. |
| 274e80 | 28 22 23 52 22 20 22 30 32 5f 64 68 6a 2e 68 74 6d 22 29 0a 09 28 22 23 53 22 20 22 30 32 5f 64 | ("#R"."02_dhj.htm")..("#S"."02_d |
| 274ea0 | 68 6d 2e 68 74 6d 22 29 0a 09 28 22 23 58 22 20 22 30 32 5f 64 68 69 2e 68 74 6d 22 29 0a 09 28 | hm.htm")..("#X"."02_dhi.htm")..( |
| 274ec0 | 22 23 5c 5c 22 20 22 30 32 5f 64 68 61 2e 68 74 6d 22 29 0a 09 28 22 23 7c 22 20 22 30 32 5f 64 | "#\\"."02_dha.htm")..("#|"."02_d |
| 274ee0 | 68 73 2e 68 74 6d 22 29 0a 09 28 22 5c 22 22 20 22 30 32 5f 64 65 2e 68 74 6d 22 29 0a 09 28 22 | hs.htm")..("\""."02_de.htm")..(" |
| 274f00 | 27 22 20 22 30 32 5f 64 63 2e 68 74 6d 22 29 0a 09 28 22 60 22 20 22 30 32 5f 64 66 2e 68 74 6d | '"."02_dc.htm")..("`"."02_df.htm |
| 274f20 | 22 29 0a 09 28 22 2c 22 20 22 30 32 5f 64 67 2e 68 74 6d 22 29 0a 09 28 22 28 22 20 22 30 32 5f | ")..(","."02_dg.htm")..("("."02_ |
| 274f40 | 64 61 2e 68 74 6d 22 29 0a 09 28 22 29 22 20 22 30 32 5f 64 62 2e 68 74 6d 22 29 0a 09 28 22 3b | da.htm")..(")"."02_db.htm")..("; |
| 274f60 | 22 20 22 30 32 5f 64 64 2e 68 74 6d 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d | "."02_dd.htm")))..(defun.common- |
| 274f80 | 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 2d 72 65 61 64 65 72 2d 6d 61 63 | lisp-hyperspec-lookup-reader-mac |
| 274fa0 | 72 6f 20 28 6d 61 63 72 6f 29 0a 20 20 22 42 72 6f 77 73 65 20 74 68 65 20 43 4c 48 53 20 65 6e | ro.(macro)..."Browse.the.CLHS.en |
| 274fc0 | 74 72 79 20 66 6f 72 20 74 68 65 20 72 65 61 64 65 72 2d 6d 61 63 72 6f 20 4d 41 43 52 4f 2e 22 | try.for.the.reader-macro.MACRO." |
| 274fe0 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 0a 20 20 20 20 28 6c 65 | ...(interactive....(list.....(le |
| 275000 | 74 20 28 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 69 67 6e 6f 72 65 2d 63 61 73 65 20 74 29 29 0a 20 | t.((completion-ignore-case.t)).. |
| 275020 | 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 4c 6f 6f 6b 20 75 70 20 72 | .....(completing-read."Look.up.r |
| 275040 | 65 61 64 65 72 2d 6d 61 63 72 6f 3a 20 22 0a 09 09 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c | eader-macro:."..........common-l |
| 275060 | 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 72 65 61 64 65 72 2d 6d 61 63 72 6f 73 20 6e 69 6c | isp-hyperspec--reader-macros.nil |
| 275080 | 20 74 0a 09 09 20 20 20 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 | .t..........(common-lisp-hypersp |
| 2750a0 | 65 63 2d 72 65 61 64 65 72 2d 6d 61 63 72 6f 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 | ec-reader-macro-at-point)))))... |
| 2750c0 | 28 62 72 6f 77 73 65 2d 75 72 6c 0a 20 20 20 28 63 6f 6e 63 61 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 | (browse-url....(concat.common-li |
| 2750e0 | 73 70 2d 68 79 70 65 72 73 70 65 63 2d 72 6f 6f 74 20 22 42 6f 64 79 2f 22 0a 09 20 20 20 28 67 | sp-hyperspec-root."Body/".....(g |
| 275100 | 65 74 68 61 73 68 20 6d 61 63 72 6f 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 | ethash.macro.common-lisp-hypersp |
| 275120 | 65 63 2d 2d 72 65 61 64 65 72 2d 6d 61 63 72 6f 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f | ec--reader-macros))))..(defun.co |
| 275140 | 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 72 65 61 64 65 72 2d 6d 61 63 72 6f | mmon-lisp-hyperspec-reader-macro |
| 275160 | 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 28 6c 65 74 20 28 28 72 65 67 65 78 70 20 22 5c 5c | -at-point.()...(let.((regexp."\\ |
| 275180 | 28 23 2e 3f 5c 5c 29 5c 5c 7c 5c 5c 28 5b 5c 22 27 2c 60 27 3b 28 29 5d 5c 5c 29 22 29 29 0a 20 | (#.?\\)\\|\\([\"',`';()]\\)")).. |
| 2751a0 | 20 20 20 28 77 68 65 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 62 61 63 6b 20 72 65 67 65 78 70 20 6e 69 | ...(when.(looking-back.regexp.ni |
| 2751c0 | 6c 20 74 29 0a 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 | l.t).......(match-string-no-prop |
| 2751e0 | 65 72 74 69 65 73 20 30 29 29 29 29 0a 0a 3b 3b 3b 20 46 4f 52 4d 41 54 20 63 68 61 72 61 63 74 | erties.0))))..;;;.FORMAT.charact |
| 275200 | 65 72 20 6c 6f 6f 6b 75 70 20 62 79 20 46 72 6f 64 65 20 56 61 74 76 65 64 74 20 46 6a 65 6c 64 | er.lookup.by.Frode.Vatvedt.Fjeld |
| 275220 | 20 3c 66 72 6f 64 65 66 40 61 63 6d 2e 6f 72 67 3e 20 32 30 30 33 30 39 30 32 0a 3b 3b 3b 0a 3b | .<frodef@acm.org>.20030902.;;;.; |
| 275240 | 3b 3b 20 61 64 6a 75 73 74 65 64 20 66 6f 72 20 49 4c 49 53 50 20 62 79 20 4e 69 6b 6f 64 65 6d | ;;.adjusted.for.ILISP.by.Nikodem |
| 275260 | 75 73 20 53 69 69 76 6f 6c 61 20 32 30 30 33 30 39 30 33 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d | us.Siivola.20030903..(defvar.com |
| 275280 | 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 66 6f 72 6d 61 74 2d 68 69 73 74 6f 72 | mon-lisp-hyperspec-format-histor |
| 2752a0 | 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 20 6f 66 20 66 6f 72 6d 61 74 20 63 68 61 72 61 | y.nil..."History.of.format.chara |
| 2752c0 | 63 74 65 72 73 20 6c 6f 6f 6b 65 64 20 75 70 20 69 6e 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 | cters.looked.up.in.the.Common.Li |
| 2752e0 | 73 70 20 48 79 70 65 72 53 70 65 63 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c | sp.HyperSpec.")..(defun.common-l |
| 275300 | 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 73 65 63 74 69 6f 6e 2d 36 2e 30 20 28 69 6e 64 69 63 | isp-hyperspec-section-6.0.(indic |
| 275320 | 65 73 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 20 28 66 6f 72 6d 61 74 20 22 25 73 42 | es)...(let.((string.(format."%sB |
| 275340 | 6f 64 79 2f 25 73 5f 22 0a 09 09 09 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 | ody/%s_"....common-lisp-hyperspe |
| 275360 | 63 2d 72 6f 6f 74 0a 09 09 09 28 6c 65 74 20 28 28 62 61 73 65 20 28 70 6f 70 20 69 6e 64 69 63 | c-root....(let.((base.(pop.indic |
| 275380 | 65 73 29 29 29 0a 09 09 09 20 20 28 69 66 20 28 3c 20 62 61 73 65 20 31 30 29 0a 09 09 09 20 20 | es)))......(if.(<.base.10)...... |
| 2753a0 | 20 20 20 20 28 66 6f 72 6d 61 74 20 22 30 25 73 22 20 62 61 73 65 29 0a 09 09 09 20 20 20 20 62 | ....(format."0%s".base)........b |
| 2753c0 | 61 73 65 29 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 20 73 74 72 69 6e 67 0a 09 20 20 20 | ase))))).....(concat.string..... |
| 2753e0 | 20 28 6d 61 70 63 6f 6e 63 61 74 20 28 6c 61 6d 62 64 61 20 28 6e 29 0a 09 09 09 20 28 6d 61 6b | .(mapconcat.(lambda.(n).....(mak |
| 275400 | 65 2d 73 74 72 69 6e 67 20 31 20 28 2b 20 3f 61 20 28 2d 20 6e 20 31 29 29 29 29 0a 09 09 20 20 | e-string.1.(+.?a.(-.n.1))))..... |
| 275420 | 20 20 20 20 20 69 6e 64 69 63 65 73 0a 09 09 20 20 20 20 20 20 20 22 22 29 0a 09 20 20 20 20 22 | .....indices.........."")......" |
| 275440 | 2e 68 74 6d 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 | .htm")))..(defun.common-lisp-hyp |
| 275460 | 65 72 73 70 65 63 2d 73 65 63 74 69 6f 6e 2d 34 2e 30 20 28 69 6e 64 69 63 65 73 29 0a 20 20 28 | erspec-section-4.0.(indices)...( |
| 275480 | 6c 65 74 20 28 28 73 74 72 69 6e 67 20 28 66 6f 72 6d 61 74 20 22 25 73 42 6f 64 79 2f 73 65 63 | let.((string.(format."%sBody/sec |
| 2754a0 | 5f 22 0a 09 09 09 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 72 6f 6f 74 | _"....common-lisp-hyperspec-root |
| 2754c0 | 29 29 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 20 73 74 72 69 6e 67 0a 09 20 20 20 20 28 6d 61 70 | ))).....(concat.string......(map |
| 2754e0 | 63 6f 6e 63 61 74 20 28 6c 61 6d 62 64 61 20 28 6e 29 0a 09 09 09 20 28 66 6f 72 6d 61 74 20 22 | concat.(lambda.(n).....(format." |
| 275500 | 25 64 22 20 6e 29 29 0a 09 09 20 20 20 20 20 20 20 69 6e 64 69 63 65 73 0a 09 09 20 20 20 20 20 | %d".n))..........indices........ |
| 275520 | 20 20 22 2d 22 29 0a 09 20 20 20 20 22 2e 68 74 6d 6c 22 29 29 29 0a 0a 28 64 65 66 76 61 72 20 | .."-")......".html")))..(defvar. |
| 275540 | 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 73 65 63 74 69 6f 6e 2d 66 75 | common-lisp-hyperspec-section-fu |
| 275560 | 6e 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 73 65 63 74 69 6f 6e | n.'common-lisp-hyperspec-section |
| 275580 | 2d 36 2e 30 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 | -6.0)..(defun.common-lisp-hypers |
| 2755a0 | 70 65 63 2d 73 65 63 74 69 6f 6e 20 28 69 6e 64 69 63 65 73 29 0a 20 20 28 66 75 6e 63 61 6c 6c | pec-section.(indices)...(funcall |
| 2755c0 | 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 73 65 63 74 69 6f 6e 2d 66 | .common-lisp-hyperspec-section-f |
| 2755e0 | 75 6e 20 69 6e 64 69 63 65 73 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 | un.indices))..(defvar.common-lis |
| 275600 | 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 66 6f 72 6d 61 74 2d 63 68 61 72 61 63 74 65 72 73 0a 20 | p-hyperspec--format-characters.. |
| 275620 | 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 | .(make-hash-table.:test.'equal)) |
| 275640 | 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d | ..(defun.common-lisp-hyperspec-- |
| 275660 | 72 65 61 64 2d 66 6f 72 6d 61 74 2d 63 68 61 72 61 63 74 65 72 20 28 29 0a 20 20 28 6c 65 74 20 | read-format-character.()...(let. |
| 275680 | 28 28 63 68 61 72 2d 61 74 2d 70 6f 69 6e 74 0a 09 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 | ((char-at-point...(ignore-errors |
| 2756a0 | 20 28 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 28 63 68 61 72 2d 61 66 74 65 72 20 28 70 6f | .(char-to-string.(char-after.(po |
| 2756c0 | 69 6e 74 29 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 63 68 61 72 2d 61 74 2d 70 | int)))))).....(if.(and.char-at-p |
| 2756e0 | 6f 69 6e 74 0a 09 20 20 20 20 20 28 67 65 74 68 61 73 68 20 28 75 70 63 61 73 65 20 63 68 61 72 | oint.......(gethash.(upcase.char |
| 275700 | 2d 61 74 2d 70 6f 69 6e 74 29 0a 09 09 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 | -at-point).........common-lisp-h |
| 275720 | 79 70 65 72 73 70 65 63 2d 2d 66 6f 72 6d 61 74 2d 63 68 61 72 61 63 74 65 72 73 29 29 0a 09 63 | yperspec--format-characters))..c |
| 275740 | 68 61 72 2d 61 74 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 | har-at-point.......(completing-r |
| 275760 | 65 61 64 0a 20 20 20 20 20 20 20 22 4c 6f 6f 6b 20 75 70 20 66 6f 72 6d 61 74 20 63 6f 6e 74 72 | ead........"Look.up.format.contr |
| 275780 | 6f 6c 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 48 79 70 65 | ol.character.in.Common.Lisp.Hype |
| 2757a0 | 72 53 70 65 63 3a 20 22 0a 20 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 | rSpec:."........common-lisp-hype |
| 2757c0 | 72 73 70 65 63 2d 2d 66 6f 72 6d 61 74 2d 63 68 61 72 61 63 74 65 72 73 20 6e 69 6c 20 74 20 6e | rspec--format-characters.nil.t.n |
| 2757e0 | 69 6c 0a 20 20 20 20 20 20 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 | il........'common-lisp-hyperspec |
| 275800 | 2d 66 6f 72 6d 61 74 2d 68 69 73 74 6f 72 79 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d | -format-history))))..(defun.comm |
| 275820 | 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 66 6f 72 6d 61 74 20 28 63 68 61 72 61 63 | on-lisp-hyperspec-format.(charac |
| 275840 | 74 65 72 2d 6e 61 6d 65 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 | ter-name)...(interactive.(list.( |
| 275860 | 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 72 65 61 64 2d 66 6f 72 6d | common-lisp-hyperspec--read-form |
| 275880 | 61 74 2d 63 68 61 72 61 63 74 65 72 29 29 29 0a 20 20 28 63 6c 2d 6d 61 70 6c 69 73 74 20 28 6c | at-character)))...(cl-maplist.(l |
| 2758a0 | 61 6d 62 64 61 20 28 65 6e 74 72 79 29 0a 09 09 28 62 72 6f 77 73 65 2d 75 72 6c 20 28 63 6f 6d | ambda.(entry)...(browse-url.(com |
| 2758c0 | 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 73 65 63 74 69 6f 6e 20 28 63 61 72 20 | mon-lisp-hyperspec-section.(car. |
| 2758e0 | 65 6e 74 72 79 29 29 29 29 0a 09 20 20 20 20 20 20 28 6f 72 20 28 67 65 74 68 61 73 68 20 63 68 | entry))))........(or.(gethash.ch |
| 275900 | 61 72 61 63 74 65 72 2d 6e 61 6d 65 0a 09 09 09 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 | aracter-name.......common-lisp-h |
| 275920 | 79 70 65 72 73 70 65 63 2d 2d 66 6f 72 6d 61 74 2d 63 68 61 72 61 63 74 65 72 73 29 0a 09 09 20 | yperspec--format-characters).... |
| 275940 | 20 28 65 72 72 6f 72 20 22 54 68 65 20 73 79 6d 62 6f 6c 20 60 25 73 27 20 69 73 20 6e 6f 74 20 | .(error."The.symbol.`%s'.is.not. |
| 275960 | 64 65 66 69 6e 65 64 20 69 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 22 0a 09 09 09 20 63 68 61 72 | defined.in.Common.Lisp".....char |
| 275980 | 61 63 74 65 72 2d 6e 61 6d 65 29 29 29 29 0a 0a 3b 3b 3b 20 50 72 65 76 69 6f 75 73 6c 79 20 74 | acter-name))))..;;;.Previously.t |
| 2759a0 | 68 65 72 65 20 77 65 72 65 20 65 6e 74 72 69 65 73 20 66 6f 72 20 22 43 22 20 61 6e 64 20 22 43 | here.were.entries.for."C".and."C |
| 2759c0 | 3a 20 43 68 61 72 61 63 74 65 72 22 2c 0a 3b 3b 3b 20 77 68 69 63 68 20 75 6e 70 6c 65 61 73 69 | :.Character",.;;;.which.unpleasi |
| 2759e0 | 6e 67 6c 79 20 63 72 6f 77 64 65 64 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 62 75 66 66 | ngly.crowded.the.completion.buff |
| 275a00 | 65 72 2c 20 73 6f 20 49 20 6d 61 64 65 0a 3b 3b 3b 20 69 74 20 73 68 6f 77 20 6f 6e 65 20 65 6e | er,.so.I.made.;;;.it.show.one.en |
| 275a20 | 74 72 79 20 28 22 43 20 2d 20 43 68 61 72 61 63 74 65 72 22 29 20 6f 6e 6c 79 2e 0a 3b 3b 3b 0a | try.("C.-.Character").only..;;;. |
| 275a40 | 3b 3b 3b 20 32 30 31 30 30 31 33 31 20 54 6f 62 69 61 73 20 43 20 52 69 74 74 77 65 69 6c 65 72 | ;;;.20100131.Tobias.C.Rittweiler |
| 275a60 | 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d | ..(defun.common-lisp-hyperspec-- |
| 275a80 | 69 6e 73 65 72 74 2d 66 6f 72 6d 61 74 2d 64 69 72 65 63 74 69 76 65 20 28 63 68 61 72 20 73 65 | insert-format-directive.(char.se |
| 275aa0 | 63 74 69 6f 6e 0a 09 09 09 09 09 09 09 20 20 20 20 26 6f 70 74 69 6f 6e 61 6c 20 73 75 6d 6d 61 | ction............&optional.summa |
| 275ac0 | 72 79 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 65 73 69 67 6e 61 74 6f 72 20 28 69 66 20 73 75 6d | ry)...(let*.((designator.(if.sum |
| 275ae0 | 6d 61 72 79 20 28 66 6f 72 6d 61 74 20 22 25 73 20 2d 20 25 73 22 20 63 68 61 72 20 73 75 6d 6d | mary.(format."%s.-.%s".char.summ |
| 275b00 | 61 72 79 29 20 63 68 61 72 29 29 29 0a 20 20 20 20 28 63 6c 2d 70 75 73 68 6e 65 77 20 73 65 63 | ary).char))).....(cl-pushnew.sec |
| 275b20 | 74 69 6f 6e 20 28 67 65 74 68 61 73 68 20 64 65 73 69 67 6e 61 74 6f 72 0a 09 09 09 09 20 63 6f | tion.(gethash.designator......co |
| 275b40 | 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 66 6f 72 6d 61 74 2d 63 68 61 72 | mmon-lisp-hyperspec--format-char |
| 275b60 | 61 63 74 65 72 73 29 0a 09 09 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 29 0a 0a 28 6d 61 70 | acters)...:test.#'equal)))..(map |
| 275b80 | 63 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 0a 09 28 63 6c 2d 64 65 73 74 72 75 63 74 75 | c.(lambda.(entry)..(cl-destructu |
| 275ba0 | 72 69 6e 67 2d 62 69 6e 64 20 28 63 68 61 72 20 73 65 63 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 | ring-bind.(char.section.&optiona |
| 275bc0 | 6c 20 73 75 6d 6d 61 72 79 29 20 65 6e 74 72 79 0a 09 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | l.summary).entry....(common-lisp |
| 275be0 | 2d 68 79 70 65 72 73 70 65 63 2d 2d 69 6e 73 65 72 74 2d 66 6f 72 6d 61 74 2d 64 69 72 65 63 74 | -hyperspec--insert-format-direct |
| 275c00 | 69 76 65 20 63 68 61 72 20 73 65 63 74 69 6f 6e 20 73 75 6d 6d 61 72 79 29 0a 09 20 20 28 77 68 | ive.char.section.summary)....(wh |
| 275c20 | 65 6e 20 28 61 6e 64 20 28 3d 20 31 20 28 6c 65 6e 67 74 68 20 63 68 61 72 29 29 0a 09 09 20 20 | en.(and.(=.1.(length.char))..... |
| 275c40 | 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 63 68 61 72 20 28 75 70 63 61 | ...(not.(string-equal.char.(upca |
| 275c60 | 73 65 20 63 68 61 72 29 29 29 29 0a 09 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 | se.char))))......(common-lisp-hy |
| 275c80 | 70 65 72 73 70 65 63 2d 2d 69 6e 73 65 72 74 2d 66 6f 72 6d 61 74 2d 64 69 72 65 63 74 69 76 65 | perspec--insert-format-directive |
| 275ca0 | 0a 09 20 20 20 20 20 28 75 70 63 61 73 65 20 63 68 61 72 29 20 73 65 63 74 69 6f 6e 20 73 75 6d | .......(upcase.char).section.sum |
| 275cc0 | 6d 61 72 79 29 29 29 29 0a 20 20 20 20 20 20 27 28 28 22 63 22 20 28 32 32 20 33 20 31 20 31 29 | mary)))).......'(("c".(22.3.1.1) |
| 275ce0 | 20 22 43 68 61 72 61 63 74 65 72 22 29 0a 09 28 22 25 22 20 28 32 32 20 33 20 31 20 32 29 20 22 | ."Character")..("%".(22.3.1.2)." |
| 275d00 | 4e 65 77 6c 69 6e 65 22 29 0a 09 28 22 26 22 20 28 32 32 20 33 20 31 20 33 29 20 22 46 72 65 73 | Newline")..("&".(22.3.1.3)."Fres |
| 275d20 | 68 2d 6c 69 6e 65 22 29 0a 09 28 22 7c 22 20 28 32 32 20 33 20 31 20 34 29 20 22 50 61 67 65 22 | h-line")..("|".(22.3.1.4)."Page" |
| 275d40 | 29 0a 09 28 22 7e 22 20 28 32 32 20 33 20 31 20 35 29 20 22 54 69 6c 64 65 22 29 0a 09 28 22 72 | )..("~".(22.3.1.5)."Tilde")..("r |
| 275d60 | 22 20 28 32 32 20 33 20 32 20 31 29 20 22 52 61 64 69 78 22 29 0a 09 28 22 64 22 20 28 32 32 20 | ".(22.3.2.1)."Radix")..("d".(22. |
| 275d80 | 33 20 32 20 32 29 20 22 44 65 63 69 6d 61 6c 22 29 0a 09 28 22 62 22 20 28 32 32 20 33 20 32 20 | 3.2.2)."Decimal")..("b".(22.3.2. |
| 275da0 | 33 29 20 22 42 69 6e 61 72 79 22 29 0a 09 28 22 6f 22 20 28 32 32 20 33 20 32 20 34 29 20 22 4f | 3)."Binary")..("o".(22.3.2.4)."O |
| 275dc0 | 63 74 61 6c 22 29 0a 09 28 22 78 22 20 28 32 32 20 33 20 32 20 35 29 20 22 48 65 78 61 64 65 63 | ctal")..("x".(22.3.2.5)."Hexadec |
| 275de0 | 69 6d 61 6c 22 29 0a 09 28 22 66 22 20 28 32 32 20 33 20 33 20 31 29 20 22 46 69 78 65 64 2d 46 | imal")..("f".(22.3.3.1)."Fixed-F |
| 275e00 | 6f 72 6d 61 74 20 46 6c 6f 61 74 69 6e 67 2d 50 6f 69 6e 74 22 29 0a 09 28 22 65 22 20 28 32 32 | ormat.Floating-Point")..("e".(22 |
| 275e20 | 20 33 20 33 20 32 29 20 22 45 78 70 6f 6e 65 6e 74 69 61 6c 20 46 6c 6f 61 74 69 6e 67 2d 50 6f | .3.3.2)."Exponential.Floating-Po |
| 275e40 | 69 6e 74 22 29 0a 09 28 22 67 22 20 28 32 32 20 33 20 33 20 33 29 20 22 47 65 6e 65 72 61 6c 20 | int")..("g".(22.3.3.3)."General. |
| 275e60 | 46 6c 6f 61 74 69 6e 67 2d 50 6f 69 6e 74 22 29 0a 09 28 22 24 22 20 28 32 32 20 33 20 33 20 34 | Floating-Point")..("$".(22.3.3.4 |
| 275e80 | 29 20 22 4d 6f 6e 65 74 61 72 79 20 46 6c 6f 61 74 69 6e 67 2d 50 6f 69 6e 74 22 29 0a 09 28 22 | )."Monetary.Floating-Point")..(" |
| 275ea0 | 61 22 20 28 32 32 20 33 20 34 20 31 29 20 22 41 65 73 74 68 65 74 69 63 22 29 0a 09 28 22 73 22 | a".(22.3.4.1)."Aesthetic")..("s" |
| 275ec0 | 20 28 32 32 20 33 20 34 20 32 29 20 22 53 74 61 6e 64 61 72 64 22 29 0a 09 28 22 77 22 20 28 32 | .(22.3.4.2)."Standard")..("w".(2 |
| 275ee0 | 32 20 33 20 34 20 33 29 20 22 57 72 69 74 65 22 29 0a 09 28 22 5f 22 20 28 32 32 20 33 20 35 20 | 2.3.4.3)."Write")..("_".(22.3.5. |
| 275f00 | 31 29 20 22 43 6f 6e 64 69 74 69 6f 6e 61 6c 20 4e 65 77 6c 69 6e 65 22 29 0a 09 28 22 3c 22 20 | 1)."Conditional.Newline")..("<". |
| 275f20 | 28 32 32 20 33 20 35 20 32 29 20 22 4c 6f 67 69 63 61 6c 20 42 6c 6f 63 6b 22 29 0a 09 28 22 69 | (22.3.5.2)."Logical.Block")..("i |
| 275f40 | 22 20 28 32 32 20 33 20 35 20 33 29 20 22 49 6e 64 65 6e 74 22 29 0a 09 28 22 2f 22 20 28 32 32 | ".(22.3.5.3)."Indent")..("/".(22 |
| 275f60 | 20 33 20 35 20 34 29 20 22 43 61 6c 6c 20 46 75 6e 63 74 69 6f 6e 22 29 0a 09 28 22 74 22 20 28 | .3.5.4)."Call.Function")..("t".( |
| 275f80 | 32 32 20 33 20 36 20 31 29 20 22 54 61 62 75 6c 61 74 65 22 29 0a 09 28 22 3c 22 20 28 32 32 20 | 22.3.6.1)."Tabulate")..("<".(22. |
| 275fa0 | 33 20 36 20 32 29 20 22 4a 75 73 74 69 66 69 63 61 74 69 6f 6e 22 29 0a 09 28 22 3e 22 20 28 32 | 3.6.2)."Justification")..(">".(2 |
| 275fc0 | 32 20 33 20 36 20 33 29 20 22 45 6e 64 20 6f 66 20 4a 75 73 74 69 66 69 63 61 74 69 6f 6e 22 29 | 2.3.6.3)."End.of.Justification") |
| 275fe0 | 0a 09 28 22 2a 22 20 28 32 32 20 33 20 37 20 31 29 20 22 47 6f 2d 54 6f 22 29 0a 09 28 22 5b 22 | ..("*".(22.3.7.1)."Go-To")..("[" |
| 276000 | 20 28 32 32 20 33 20 37 20 32 29 20 22 43 6f 6e 64 69 74 69 6f 6e 61 6c 20 45 78 70 72 65 73 73 | .(22.3.7.2)."Conditional.Express |
| 276020 | 69 6f 6e 22 29 0a 09 28 22 5d 22 20 28 32 32 20 33 20 37 20 33 29 20 22 45 6e 64 20 6f 66 20 43 | ion")..("]".(22.3.7.3)."End.of.C |
| 276040 | 6f 6e 64 69 74 69 6f 6e 61 6c 20 45 78 70 72 65 73 73 69 6f 6e 22 29 0a 09 28 22 7b 22 20 28 32 | onditional.Expression")..("{".(2 |
| 276060 | 32 20 33 20 37 20 34 29 20 22 49 74 65 72 61 74 69 6f 6e 22 29 0a 09 28 22 7d 22 20 28 32 32 20 | 2.3.7.4)."Iteration")..("}".(22. |
| 276080 | 33 20 37 20 35 29 20 22 45 6e 64 20 6f 66 20 49 74 65 72 61 74 69 6f 6e 22 29 0a 09 28 22 3f 22 | 3.7.5)."End.of.Iteration")..("?" |
| 2760a0 | 20 28 32 32 20 33 20 37 20 36 29 20 22 52 65 63 75 72 73 69 76 65 20 50 72 6f 63 65 73 73 69 6e | .(22.3.7.6)."Recursive.Processin |
| 2760c0 | 67 22 29 0a 09 28 22 28 22 20 28 32 32 20 33 20 38 20 31 29 20 22 43 61 73 65 20 43 6f 6e 76 65 | g")..("(".(22.3.8.1)."Case.Conve |
| 2760e0 | 72 73 69 6f 6e 22 29 0a 09 28 22 29 22 20 28 32 32 20 33 20 38 20 32 29 20 22 45 6e 64 20 6f 66 | rsion")..(")".(22.3.8.2)."End.of |
| 276100 | 20 43 61 73 65 20 43 6f 6e 76 65 72 73 69 6f 6e 22 29 0a 09 28 22 70 22 20 28 32 32 20 33 20 38 | .Case.Conversion")..("p".(22.3.8 |
| 276120 | 20 33 29 20 22 50 6c 75 72 61 6c 22 29 0a 09 28 22 3b 22 20 28 32 32 20 33 20 39 20 31 29 20 22 | .3)."Plural")..(";".(22.3.9.1)." |
| 276140 | 43 6c 61 75 73 65 20 53 65 70 61 72 61 74 6f 72 22 29 0a 09 28 22 5e 22 20 28 32 32 20 33 20 39 | Clause.Separator")..("^".(22.3.9 |
| 276160 | 20 32 29 20 22 45 73 63 61 70 65 20 55 70 77 61 72 64 22 29 0a 09 28 22 4e 65 77 6c 69 6e 65 3a | .2)."Escape.Upward")..("Newline: |
| 276180 | 20 49 67 6e 6f 72 65 64 20 4e 65 77 6c 69 6e 65 22 20 28 32 32 20 33 20 39 20 33 29 29 0a 09 28 | .Ignored.Newline".(22.3.9.3))..( |
| 2761a0 | 22 4e 65 73 74 69 6e 67 20 6f 66 20 46 4f 52 4d 41 54 20 4f 70 65 72 61 74 69 6f 6e 73 22 20 28 | "Nesting.of.FORMAT.Operations".( |
| 2761c0 | 32 32 20 33 20 31 30 20 31 29 29 0a 09 28 22 4d 69 73 73 69 6e 67 20 61 6e 64 20 41 64 64 69 74 | 22.3.10.1))..("Missing.and.Addit |
| 2761e0 | 69 6f 6e 61 6c 20 46 4f 52 4d 41 54 20 41 72 67 75 6d 65 6e 74 73 22 20 28 32 32 20 33 20 31 30 | ional.FORMAT.Arguments".(22.3.10 |
| 276200 | 20 32 29 29 0a 09 28 22 41 64 64 69 74 69 6f 6e 61 6c 20 46 4f 52 4d 41 54 20 50 61 72 61 6d 65 | .2))..("Additional.FORMAT.Parame |
| 276220 | 74 65 72 73 22 20 28 32 32 20 33 20 31 30 20 33 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 47 6c 6f | ters".(22.3.10.3))))....;;;;.Glo |
| 276240 | 73 73 61 72 79 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 | ssary..(defvar.common-lisp-hyper |
| 276260 | 73 70 65 63 2d 67 6c 6f 73 73 61 72 79 2d 66 75 6e 63 74 69 6f 6e 20 27 63 6f 6d 6d 6f 6e 2d 6c | spec-glossary-function.'common-l |
| 276280 | 69 73 70 2d 67 6c 6f 73 73 61 72 79 2d 36 2e 30 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 68 61 | isp-glossary-6.0..."Function.tha |
| 2762a0 | 74 20 63 72 65 61 74 65 73 20 61 20 55 52 4c 20 66 6f 72 20 61 20 67 6c 6f 73 73 61 72 79 20 74 | t.creates.a.URL.for.a.glossary.t |
| 2762c0 | 65 72 6d 2e 22 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c | erm.")..(define-obsolete-variabl |
| 2762e0 | 65 2d 61 6c 69 61 73 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 67 6c 6f 73 73 61 72 79 2d 66 75 | e-alias.'common-lisp-glossary-fu |
| 276300 | 6e 0a 20 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 67 6c 6f 73 73 | n...'common-lisp-hyperspec-gloss |
| 276320 | 61 72 79 2d 66 75 6e 63 74 69 6f 6e 20 22 32 30 31 35 2d 31 32 2d 32 39 22 29 0a 0a 28 64 65 66 | ary-function."2015-12-29")..(def |
| 276340 | 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 67 6c 6f 73 73 | var.common-lisp-hyperspec--gloss |
| 276360 | 61 72 79 2d 74 65 72 6d 73 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 | ary-terms.(make-hash-table.:test |
| 276380 | 20 23 27 65 71 75 61 6c 29 0a 20 20 22 43 6f 6c 6c 65 63 74 69 6f 6e 20 6f 66 20 67 6c 6f 73 73 | .#'equal)..."Collection.of.gloss |
| 2763a0 | 61 72 79 20 74 65 72 6d 73 20 61 6e 64 20 72 65 6c 61 74 69 76 65 20 55 52 4c 73 2e 22 29 0a 0a | ary.terms.and.relative.URLs.").. |
| 2763c0 | 3b 3b 3b 20 46 75 6e 63 74 69 6f 6e 73 0a 0a 3b 3b 3b 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 73 | ;;;.Functions..;;;.The.functions |
| 2763e0 | 20 62 65 6c 6f 77 20 61 72 65 20 75 73 65 64 20 74 6f 20 63 6f 6c 6c 65 63 74 20 67 6c 6f 73 73 | .below.are.used.to.collect.gloss |
| 276400 | 61 72 79 20 74 65 72 6d 73 20 61 6e 64 20 70 61 67 65 20 61 6e 63 68 6f 72 73 0a 3b 3b 3b 20 66 | ary.terms.and.page.anchors.;;;.f |
| 276420 | 72 6f 6d 20 43 4c 48 53 2e 20 54 68 65 79 20 61 72 65 20 63 6f 6d 6d 65 6e 74 65 64 20 6f 75 74 | rom.CLHS..They.are.commented.out |
| 276440 | 20 62 65 63 61 75 73 65 20 74 68 65 79 20 61 72 65 20 6e 6f 74 20 6e 65 65 64 65 64 20 75 6e 6c | .because.they.are.not.needed.unl |
| 276460 | 65 73 73 20 74 68 65 0a 3b 3b 3b 20 6c 69 73 74 20 6f 66 20 74 65 72 6d 73 2f 61 6e 63 68 6f 72 | ess.the.;;;.list.of.terms/anchor |
| 276480 | 73 20 6e 65 65 64 20 74 6f 20 62 65 20 75 70 64 61 74 65 64 2e 0a 0a 3b 3b 20 28 64 65 66 75 6e | s.need.to.be.updated...;;.(defun |
| 2764a0 | 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 67 6c 6f 73 73 61 72 79 2d | .common-lisp-hyperspec-glossary- |
| 2764c0 | 70 61 67 65 73 20 28 29 0a 3b 3b 20 20 20 22 4c 69 73 74 20 6f 66 20 43 4c 48 53 20 67 6c 6f 73 | pages.().;;..."List.of.CLHS.glos |
| 2764e0 | 73 61 72 79 20 70 61 67 65 73 2e 22 0a 3b 3b 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 | sary.pages.".;;...(mapcar.(lambd |
| 276500 | 61 20 28 65 6e 64 29 0a 3b 3b 09 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 42 6f 64 79 2f 32 | a.(end).;;.....(format."%sBody/2 |
| 276520 | 36 5f 67 6c 6f 5f 25 73 2e 68 74 6d 22 0a 3b 3b 09 09 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 | 6_glo_%s.htm".;;......common-lis |
| 276540 | 70 2d 68 79 70 65 72 73 70 65 63 2d 72 6f 6f 74 0a 3b 3b 09 09 20 20 20 20 65 6e 64 29 29 0a 3b | p-hyperspec-root.;;......end)).; |
| 276560 | 3b 09 20 20 28 63 6f 6e 73 20 22 39 22 20 28 6d 61 70 63 61 72 20 23 27 63 68 61 72 2d 74 6f 2d | ;...(cons."9".(mapcar.#'char-to- |
| 276580 | 73 74 72 69 6e 67 0a 3b 3b 09 09 09 20 20 20 20 28 6e 75 6d 62 65 72 2d 73 65 71 75 65 6e 63 65 | string.;;.......(number-sequence |
| 2765a0 | 20 3f 61 20 3f 7a 29 29 29 29 29 0a 0a 3b 3b 20 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 | .?a.?z)))))..;;.(defun.common-li |
| 2765c0 | 73 70 2d 68 79 70 65 72 73 70 65 63 2d 67 6c 6f 73 73 61 72 79 2d 64 6f 77 6e 6c 6f 61 64 20 28 | sp-hyperspec-glossary-download.( |
| 2765e0 | 29 0a 3b 3b 20 20 20 22 44 6f 77 6e 6c 6f 61 64 20 43 4c 48 53 20 67 6c 6f 73 73 61 72 79 20 70 | ).;;..."Download.CLHS.glossary.p |
| 276600 | 61 67 65 73 20 74 6f 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 73 20 61 6e 64 20 72 65 74 75 | ages.to.temporary.files.and.retu |
| 276620 | 72 6e 20 61 0a 3b 3b 20 6c 69 73 74 20 6f 66 20 66 69 6c 65 20 6e 61 6d 65 73 2e 22 0a 3b 3b 20 | rn.a.;;.list.of.file.names.".;;. |
| 276640 | 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 75 72 6c 29 0a 3b 3b 09 20 20 20 20 28 | ..(mapcar.(lambda.(url).;;.....( |
| 276660 | 75 72 6c 2d 66 69 6c 65 2d 6c 6f 63 61 6c 2d 63 6f 70 79 20 75 72 6c 29 29 0a 3b 3b 09 20 20 28 | url-file-local-copy.url)).;;...( |
| 276680 | 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 67 6c 6f 73 73 61 72 79 2d 70 | common-lisp-hyperspec-glossary-p |
| 2766a0 | 61 67 65 73 29 29 29 0a 0a 3b 3b 20 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 | ages)))..;;.(defun.common-lisp-h |
| 2766c0 | 79 70 65 72 73 70 65 63 2d 67 6c 6f 73 73 61 72 79 2d 65 6e 74 72 69 65 73 20 28 66 69 6c 65 29 | yperspec-glossary-entries.(file) |
| 2766e0 | 0a 3b 3b 20 20 20 22 47 69 76 65 6e 20 61 20 43 4c 48 53 20 67 6c 6f 73 73 61 72 79 20 66 69 6c | .;;..."Given.a.CLHS.glossary.fil |
| 276700 | 65 20 46 49 4c 45 2c 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 0a 3b 3b 20 74 65 72 6d | e.FILE,.return.a.list.of.;;.term |
| 276720 | 2d 61 6e 63 68 6f 72 20 70 61 69 72 73 2e 0a 0a 3b 3b 20 54 65 72 6d 20 69 73 20 74 68 65 20 67 | -anchor.pairs...;;.Term.is.the.g |
| 276740 | 6c 6f 73 73 61 72 79 20 74 65 72 6d 20 61 6e 64 20 61 6e 63 68 6f 72 20 69 73 20 74 68 65 20 74 | lossary.term.and.anchor.is.the.t |
| 276760 | 65 72 6d 27 73 20 61 6e 63 68 6f 72 20 6f 6e 20 74 68 65 0a 3b 3b 20 70 61 67 65 2e 22 0a 3b 3b | erm's.anchor.on.the.;;.page.".;; |
| 276780 | 20 20 20 28 6c 65 74 20 28 65 6e 74 72 69 65 73 29 0a 3b 3b 20 20 20 20 20 28 73 61 76 65 2d 65 | ...(let.(entries).;;.....(save-e |
| 2767a0 | 78 63 75 72 73 69 6f 6e 0a 3b 3b 20 20 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 28 66 | xcursion.;;.......(set-buffer.(f |
| 2767c0 | 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 66 69 6c 65 29 29 0a 3b 3b 20 20 20 20 20 | ind-file-noselect.file)).;;..... |
| 2767e0 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 3b 3b 20 20 20 20 | ..(goto-char.(point-min)).;;.... |
| 276800 | 20 20 20 28 77 68 69 6c 65 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 2d 72 65 67 65 78 70 | ...(while.(search-forward-regexp |
| 276820 | 20 22 3c 61 5c 5c 20 6e 61 6d 65 3d 5c 22 5c 5c 28 2e 2a 3f 5c 5c 29 5c 22 3e 3c 62 3e 5c 5c 28 | ."<a\\.name=\"\\(.*?\\)\"><b>\\( |
| 276840 | 2e 2a 3f 5c 5c 29 3c 2f 62 3e 22 20 6e 69 6c 20 74 29 0a 3b 3b 09 28 73 65 74 71 20 65 6e 74 72 | .*?\\)</b>".nil.t).;;.(setq.entr |
| 276860 | 69 65 73 20 28 63 6f 6e 73 20 28 6c 69 73 74 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f | ies.(cons.(list.(match-string-no |
| 276880 | 2d 70 72 6f 70 65 72 74 69 65 73 20 32 29 0a 3b 3b 09 09 09 09 20 20 28 6d 61 74 63 68 2d 73 74 | -properties.2).;;......(match-st |
| 2768a0 | 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 29 29 0a 3b 3b 09 09 09 20 20 20 20 | ring-no-properties.1)).;;....... |
| 2768c0 | 65 6e 74 72 69 65 73 29 29 29 29 0a 3b 3b 20 20 20 20 20 28 73 6f 72 74 20 65 6e 74 72 69 65 73 | entries)))).;;.....(sort.entries |
| 2768e0 | 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 0a 3b 3b 09 09 20 20 20 20 28 73 74 72 69 6e 67 3c 20 | .(lambda.(a.b).;;......(string<. |
| 276900 | 28 63 61 72 20 61 29 20 28 63 61 72 20 62 29 29 29 29 29 29 0a 0a 3b 3b 20 3b 3b 20 41 64 64 20 | (car.a).(car.b))))))..;;.;;.Add. |
| 276920 | 67 6c 6f 73 73 61 72 79 20 74 65 72 6d 73 20 62 79 20 64 6f 77 6e 6c 6f 61 64 69 6e 67 20 61 6e | glossary.terms.by.downloading.an |
| 276940 | 64 20 70 61 72 73 69 6e 67 20 67 6c 6f 73 73 61 72 79 20 70 61 67 65 73 20 66 72 6f 6d 20 43 4c | d.parsing.glossary.pages.from.CL |
| 276960 | 48 53 0a 3b 3b 20 28 6d 61 70 63 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 0a 3b 3b 20 20 | HS.;;.(mapc.(lambda.(entry).;;.. |
| 276980 | 20 20 20 20 20 20 28 70 75 74 68 61 73 68 20 28 63 61 72 20 65 6e 74 72 79 29 20 28 63 61 64 72 | ......(puthash.(car.entry).(cadr |
| 2769a0 | 20 65 6e 74 72 79 29 0a 3b 3b 09 09 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 | .entry).;;..common-lisp-hyperspe |
| 2769c0 | 63 2d 2d 67 6c 6f 73 73 61 72 79 2d 74 65 72 6d 73 29 29 0a 3b 3b 20 20 20 20 20 20 28 63 6c 2d | c--glossary-terms)).;;......(cl- |
| 2769e0 | 72 65 64 75 63 65 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 0a 3b 3b 09 20 20 20 20 20 28 61 70 | reduce.(lambda.(a.b).;;......(ap |
| 276a00 | 70 65 6e 64 20 61 20 62 29 29 0a 3b 3b 09 20 20 20 28 6d 61 70 63 61 72 20 23 27 63 6f 6d 6d 6f | pend.a.b)).;;....(mapcar.#'commo |
| 276a20 | 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 67 6c 6f 73 73 61 72 79 2d 65 6e 74 72 69 65 | n-lisp-hyperspec-glossary-entrie |
| 276a40 | 73 0a 3b 3b 09 09 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d | s.;;.....(common-lisp-hyperspec- |
| 276a60 | 67 6c 6f 73 73 61 72 79 2d 64 6f 77 6e 6c 6f 61 64 29 29 29 29 0a 0a 3b 3b 20 41 64 64 20 67 6c | glossary-download))))..;;.Add.gl |
| 276a80 | 6f 73 73 61 72 79 20 65 6e 74 72 69 65 73 20 74 6f 20 74 68 65 20 6d 61 73 74 65 72 20 68 61 73 | ossary.entries.to.the.master.has |
| 276aa0 | 68 20 74 61 62 6c 65 0a 28 6d 61 70 63 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 0a 09 28 | h.table.(mapc.(lambda.(entry)..( |
| 276ac0 | 70 75 74 68 61 73 68 20 28 63 61 72 20 65 6e 74 72 79 29 20 28 63 61 64 72 20 65 6e 74 72 79 29 | puthash.(car.entry).(cadr.entry) |
| 276ae0 | 0a 09 09 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 67 6c 6f 73 73 | ....common-lisp-hyperspec--gloss |
| 276b00 | 61 72 79 2d 74 65 72 6d 73 29 29 0a 20 20 20 20 20 20 27 28 28 22 28 29 22 20 22 4f 50 43 50 22 | ary-terms)).......'(("()"."OPCP" |
| 276b20 | 29 0a 09 28 22 61 62 73 6f 6c 75 74 65 22 20 22 61 62 73 6f 6c 75 74 65 22 29 0a 09 28 22 61 63 | )..("absolute"."absolute")..("ac |
| 276b40 | 63 65 73 73 22 20 22 61 63 63 65 73 73 22 29 0a 09 28 22 61 63 63 65 73 73 69 62 69 6c 69 74 79 | cess"."access")..("accessibility |
| 276b60 | 22 20 22 61 63 63 65 73 73 69 62 69 6c 69 74 79 22 29 0a 09 28 22 61 63 63 65 73 73 69 62 6c 65 | "."accessibility")..("accessible |
| 276b80 | 22 20 22 61 63 63 65 73 73 69 62 6c 65 22 29 0a 09 28 22 61 63 63 65 73 73 6f 72 22 20 22 61 63 | "."accessible")..("accessor"."ac |
| 276ba0 | 63 65 73 73 6f 72 22 29 0a 09 28 22 61 63 74 69 76 65 22 20 22 61 63 74 69 76 65 22 29 0a 09 28 | cessor")..("active"."active")..( |
| 276bc0 | 22 61 63 74 75 61 6c 20 61 64 6a 75 73 74 61 62 69 6c 69 74 79 22 20 22 61 63 74 75 61 6c 5f 61 | "actual.adjustability"."actual_a |
| 276be0 | 64 6a 75 73 74 61 62 69 6c 69 74 79 22 29 0a 09 28 22 61 63 74 75 61 6c 20 61 72 67 75 6d 65 6e | djustability")..("actual.argumen |
| 276c00 | 74 22 20 22 61 63 74 75 61 6c 5f 61 72 67 75 6d 65 6e 74 22 29 0a 09 28 22 61 63 74 75 61 6c 20 | t"."actual_argument")..("actual. |
| 276c20 | 61 72 72 61 79 20 65 6c 65 6d 65 6e 74 20 74 79 70 65 22 20 22 61 63 74 75 61 6c 5f 61 72 72 61 | array.element.type"."actual_arra |
| 276c40 | 79 5f 65 6c 65 6d 65 6e 74 5f 74 79 70 65 22 29 0a 09 28 22 61 63 74 75 61 6c 20 63 6f 6d 70 6c | y_element_type")..("actual.compl |
| 276c60 | 65 78 20 70 61 72 74 20 74 79 70 65 22 20 22 61 63 74 75 61 6c 5f 63 6f 6d 70 6c 65 78 5f 70 61 | ex.part.type"."actual_complex_pa |
| 276c80 | 72 74 5f 74 79 70 65 22 29 0a 09 28 22 61 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 22 20 22 | rt_type")..("actual.parameter"." |
| 276ca0 | 61 63 74 75 61 6c 5f 70 61 72 61 6d 65 74 65 72 22 29 0a 09 28 22 61 63 74 75 61 6c 6c 79 20 61 | actual_parameter")..("actually.a |
| 276cc0 | 64 6a 75 73 74 61 62 6c 65 22 20 22 61 63 74 75 61 6c 6c 79 5f 61 64 6a 75 73 74 61 62 6c 65 22 | djustable"."actually_adjustable" |
| 276ce0 | 29 0a 09 28 22 61 64 6a 75 73 74 61 62 69 6c 69 74 79 22 20 22 61 64 6a 75 73 74 61 62 69 6c 69 | )..("adjustability"."adjustabili |
| 276d00 | 74 79 22 29 0a 09 28 22 61 64 6a 75 73 74 61 62 6c 65 22 20 22 61 64 6a 75 73 74 61 62 6c 65 22 | ty")..("adjustable"."adjustable" |
| 276d20 | 29 0a 09 28 22 61 66 74 65 72 20 6d 65 74 68 6f 64 22 20 22 61 66 74 65 72 5f 6d 65 74 68 6f 64 | )..("after.method"."after_method |
| 276d40 | 22 29 0a 09 28 22 61 6c 69 73 74 22 20 22 61 6c 69 73 74 22 29 0a 09 28 22 61 6c 70 68 61 62 65 | ")..("alist"."alist")..("alphabe |
| 276d60 | 74 69 63 22 20 22 61 6c 70 68 61 62 65 74 69 63 22 29 0a 09 28 22 61 6c 70 68 61 6e 75 6d 65 72 | tic"."alphabetic")..("alphanumer |
| 276d80 | 69 63 22 20 22 61 6c 70 68 61 6e 75 6d 65 72 69 63 22 29 0a 09 28 22 61 6d 70 65 72 73 61 6e 64 | ic"."alphanumeric")..("ampersand |
| 276da0 | 22 20 22 61 6d 70 65 72 73 61 6e 64 22 29 0a 09 28 22 61 6e 6f 6e 79 6d 6f 75 73 22 20 22 61 6e | "."ampersand")..("anonymous"."an |
| 276dc0 | 6f 6e 79 6d 6f 75 73 22 29 0a 09 28 22 61 70 70 61 72 65 6e 74 6c 79 20 75 6e 69 6e 74 65 72 6e | onymous")..("apparently.unintern |
| 276de0 | 65 64 22 20 22 61 70 70 61 72 65 6e 74 6c 79 5f 75 6e 69 6e 74 65 72 6e 65 64 22 29 0a 09 28 22 | ed"."apparently_uninterned")..(" |
| 276e00 | 61 70 70 6c 69 63 61 62 6c 65 22 20 22 61 70 70 6c 69 63 61 62 6c 65 22 29 0a 09 28 22 61 70 70 | applicable"."applicable")..("app |
| 276e20 | 6c 69 63 61 62 6c 65 20 68 61 6e 64 6c 65 72 22 20 22 61 70 70 6c 69 63 61 62 6c 65 5f 68 61 6e | licable.handler"."applicable_han |
| 276e40 | 64 6c 65 72 22 29 0a 09 28 22 61 70 70 6c 69 63 61 62 6c 65 20 6d 65 74 68 6f 64 22 20 22 61 70 | dler")..("applicable.method"."ap |
| 276e60 | 70 6c 69 63 61 62 6c 65 5f 6d 65 74 68 6f 64 22 29 0a 09 28 22 61 70 70 6c 69 63 61 62 6c 65 20 | plicable_method")..("applicable. |
| 276e80 | 72 65 73 74 61 72 74 22 20 22 61 70 70 6c 69 63 61 62 6c 65 5f 72 65 73 74 61 72 74 22 29 0a 09 | restart"."applicable_restart").. |
| 276ea0 | 28 22 61 70 70 6c 79 22 20 22 61 70 70 6c 79 22 29 0a 09 28 22 61 72 67 75 6d 65 6e 74 22 20 22 | ("apply"."apply")..("argument"." |
| 276ec0 | 61 72 67 75 6d 65 6e 74 22 29 0a 09 28 22 61 72 67 75 6d 65 6e 74 20 65 76 61 6c 75 61 74 69 6f | argument")..("argument.evaluatio |
| 276ee0 | 6e 20 6f 72 64 65 72 22 20 22 61 72 67 75 6d 65 6e 74 5f 65 76 61 6c 75 61 74 69 6f 6e 5f 6f 72 | n.order"."argument_evaluation_or |
| 276f00 | 64 65 72 22 29 0a 09 28 22 61 72 67 75 6d 65 6e 74 20 70 72 65 63 65 64 65 6e 63 65 20 6f 72 64 | der")..("argument.precedence.ord |
| 276f20 | 65 72 22 20 22 61 72 67 75 6d 65 6e 74 5f 70 72 65 63 65 64 65 6e 63 65 5f 6f 72 64 65 72 22 29 | er"."argument_precedence_order") |
| 276f40 | 0a 09 28 22 61 72 6f 75 6e 64 20 6d 65 74 68 6f 64 22 20 22 61 72 6f 75 6e 64 5f 6d 65 74 68 6f | ..("around.method"."around_metho |
| 276f60 | 64 22 29 0a 09 28 22 61 72 72 61 79 22 20 22 61 72 72 61 79 22 29 0a 09 28 22 61 72 72 61 79 20 | d")..("array"."array")..("array. |
| 276f80 | 65 6c 65 6d 65 6e 74 20 74 79 70 65 22 20 22 61 72 72 61 79 5f 65 6c 65 6d 65 6e 74 5f 74 79 70 | element.type"."array_element_typ |
| 276fa0 | 65 22 29 0a 09 28 22 61 72 72 61 79 20 74 6f 74 61 6c 20 73 69 7a 65 22 20 22 61 72 72 61 79 5f | e")..("array.total.size"."array_ |
| 276fc0 | 74 6f 74 61 6c 5f 73 69 7a 65 22 29 0a 09 28 22 61 73 73 69 67 6e 22 20 22 61 73 73 69 67 6e 22 | total_size")..("assign"."assign" |
| 276fe0 | 29 0a 09 28 22 61 73 73 6f 63 69 61 74 69 6f 6e 20 6c 69 73 74 22 20 22 61 73 73 6f 63 69 61 74 | )..("association.list"."associat |
| 277000 | 69 6f 6e 5f 6c 69 73 74 22 29 0a 09 28 22 61 73 74 65 72 69 73 6b 22 20 22 61 73 74 65 72 69 73 | ion_list")..("asterisk"."asteris |
| 277020 | 6b 22 29 0a 09 28 22 61 74 2d 73 69 67 6e 22 20 22 61 74 2d 73 69 67 6e 22 29 0a 09 28 22 61 74 | k")..("at-sign"."at-sign")..("at |
| 277040 | 6f 6d 22 20 22 61 74 6f 6d 22 29 0a 09 28 22 61 74 6f 6d 69 63 22 20 22 61 74 6f 6d 69 63 22 29 | om"."atom")..("atomic"."atomic") |
| 277060 | 0a 09 28 22 61 74 6f 6d 69 63 20 74 79 70 65 20 73 70 65 63 69 66 69 65 72 22 20 22 61 74 6f 6d | ..("atomic.type.specifier"."atom |
| 277080 | 69 63 5f 74 79 70 65 5f 73 70 65 63 69 66 69 65 72 22 29 0a 09 28 22 61 74 74 72 69 62 75 74 65 | ic_type_specifier")..("attribute |
| 2770a0 | 22 20 22 61 74 74 72 69 62 75 74 65 22 29 0a 09 28 22 61 75 78 20 76 61 72 69 61 62 6c 65 22 20 | "."attribute")..("aux.variable". |
| 2770c0 | 22 61 75 78 5f 76 61 72 69 61 62 6c 65 22 29 0a 09 28 22 61 75 78 69 6c 69 61 72 79 20 6d 65 74 | "aux_variable")..("auxiliary.met |
| 2770e0 | 68 6f 64 22 20 22 61 75 78 69 6c 69 61 72 79 5f 6d 65 74 68 6f 64 22 29 0a 09 28 22 62 61 63 6b | hod"."auxiliary_method")..("back |
| 277100 | 71 75 6f 74 65 22 20 22 62 61 63 6b 71 75 6f 74 65 22 29 0a 09 28 22 62 61 63 6b 73 6c 61 73 68 | quote"."backquote")..("backslash |
| 277120 | 22 20 22 62 61 63 6b 73 6c 61 73 68 22 29 0a 09 28 22 62 61 73 65 20 63 68 61 72 61 63 74 65 72 | "."backslash")..("base.character |
| 277140 | 22 20 22 62 61 73 65 5f 63 68 61 72 61 63 74 65 72 22 29 0a 09 28 22 62 61 73 65 20 73 74 72 69 | "."base_character")..("base.stri |
| 277160 | 6e 67 22 20 22 62 61 73 65 5f 73 74 72 69 6e 67 22 29 0a 09 28 22 62 65 66 6f 72 65 20 6d 65 74 | ng"."base_string")..("before.met |
| 277180 | 68 6f 64 22 20 22 62 65 66 6f 72 65 5f 6d 65 74 68 6f 64 22 29 0a 09 28 22 62 69 64 69 72 65 63 | hod"."before_method")..("bidirec |
| 2771a0 | 74 69 6f 6e 61 6c 22 20 22 62 69 64 69 72 65 63 74 69 6f 6e 61 6c 22 29 0a 09 28 22 62 69 6e 61 | tional"."bidirectional")..("bina |
| 2771c0 | 72 79 22 20 22 62 69 6e 61 72 79 22 29 0a 09 28 22 62 69 6e 64 22 20 22 62 69 6e 64 22 29 0a 09 | ry"."binary")..("bind"."bind").. |
| 2771e0 | 28 22 62 69 6e 64 69 6e 67 22 20 22 62 69 6e 64 69 6e 67 22 29 0a 09 28 22 62 69 74 22 20 22 62 | ("binding"."binding")..("bit"."b |
| 277200 | 69 74 22 29 0a 09 28 22 62 69 74 20 61 72 72 61 79 22 20 22 62 69 74 5f 61 72 72 61 79 22 29 0a | it")..("bit.array"."bit_array"). |
| 277220 | 09 28 22 62 69 74 20 76 65 63 74 6f 72 22 20 22 62 69 74 5f 76 65 63 74 6f 72 22 29 0a 09 28 22 | .("bit.vector"."bit_vector")..(" |
| 277240 | 62 69 74 2d 77 69 73 65 20 6c 6f 67 69 63 61 6c 20 6f 70 65 72 61 74 69 6f 6e 20 73 70 65 63 69 | bit-wise.logical.operation.speci |
| 277260 | 66 69 65 72 22 20 22 62 69 74 2d 77 69 73 65 5f 6c 6f 67 69 63 61 6c 5f 6f 70 65 72 61 74 69 6f | fier"."bit-wise_logical_operatio |
| 277280 | 6e 5f 73 70 65 63 69 66 69 65 72 22 29 0a 09 28 22 62 6c 6f 63 6b 22 20 22 62 6c 6f 63 6b 22 29 | n_specifier")..("block"."block") |
| 2772a0 | 0a 09 28 22 62 6c 6f 63 6b 20 74 61 67 22 20 22 62 6c 6f 63 6b 5f 74 61 67 22 29 0a 09 28 22 62 | ..("block.tag"."block_tag")..("b |
| 2772c0 | 6f 61 20 6c 61 6d 62 64 61 20 6c 69 73 74 22 20 22 62 6f 61 5f 6c 61 6d 62 64 61 5f 6c 69 73 74 | oa.lambda.list"."boa_lambda_list |
| 2772e0 | 22 29 0a 09 28 22 62 6f 64 79 20 70 61 72 61 6d 65 74 65 72 22 20 22 62 6f 64 79 5f 70 61 72 61 | ")..("body.parameter"."body_para |
| 277300 | 6d 65 74 65 72 22 29 0a 09 28 22 62 6f 6f 6c 65 61 6e 22 20 22 62 6f 6f 6c 65 61 6e 22 29 0a 09 | meter")..("boolean"."boolean").. |
| 277320 | 28 22 62 6f 6f 6c 65 61 6e 20 65 71 75 69 76 61 6c 65 6e 74 22 20 22 62 6f 6f 6c 65 61 6e 5f 65 | ("boolean.equivalent"."boolean_e |
| 277340 | 71 75 69 76 61 6c 65 6e 74 22 29 0a 09 28 22 62 6f 75 6e 64 22 20 22 62 6f 75 6e 64 22 29 0a 09 | quivalent")..("bound"."bound").. |
| 277360 | 28 22 62 6f 75 6e 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 22 20 22 62 6f 75 6e 64 5f 64 65 63 6c | ("bound.declaration"."bound_decl |
| 277380 | 61 72 61 74 69 6f 6e 22 29 0a 09 28 22 62 6f 75 6e 64 65 64 22 20 22 62 6f 75 6e 64 65 64 22 29 | aration")..("bounded"."bounded") |
| 2773a0 | 0a 09 28 22 62 6f 75 6e 64 69 6e 67 20 69 6e 64 65 78 22 20 22 62 6f 75 6e 64 69 6e 67 5f 69 6e | ..("bounding.index"."bounding_in |
| 2773c0 | 64 65 78 22 29 0a 09 28 22 62 6f 75 6e 64 69 6e 67 20 69 6e 64 65 78 20 64 65 73 69 67 6e 61 74 | dex")..("bounding.index.designat |
| 2773e0 | 6f 72 22 20 22 62 6f 75 6e 64 69 6e 67 5f 69 6e 64 65 78 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 | or"."bounding_index_designator") |
| 277400 | 0a 09 28 22 62 72 65 61 6b 20 6c 6f 6f 70 22 20 22 62 72 65 61 6b 5f 6c 6f 6f 70 22 29 0a 09 28 | ..("break.loop"."break_loop")..( |
| 277420 | 22 62 72 6f 61 64 63 61 73 74 20 73 74 72 65 61 6d 22 20 22 62 72 6f 61 64 63 61 73 74 5f 73 74 | "broadcast.stream"."broadcast_st |
| 277440 | 72 65 61 6d 22 29 0a 09 28 22 62 75 69 6c 74 2d 69 6e 20 63 6c 61 73 73 22 20 22 62 75 69 6c 74 | ream")..("built-in.class"."built |
| 277460 | 2d 69 6e 5f 63 6c 61 73 73 22 29 0a 09 28 22 62 75 69 6c 74 2d 69 6e 20 74 79 70 65 22 20 22 62 | -in_class")..("built-in.type"."b |
| 277480 | 75 69 6c 74 2d 69 6e 5f 74 79 70 65 22 29 0a 09 28 22 62 79 74 65 22 20 22 62 79 74 65 22 29 0a | uilt-in_type")..("byte"."byte"). |
| 2774a0 | 09 28 22 62 79 74 65 20 73 70 65 63 69 66 69 65 72 22 20 22 62 79 74 65 5f 73 70 65 63 69 66 69 | .("byte.specifier"."byte_specifi |
| 2774c0 | 65 72 22 29 0a 09 28 22 63 61 64 72 22 20 22 63 61 64 72 22 29 0a 09 28 22 63 61 6c 6c 22 20 22 | er")..("cadr"."cadr")..("call"." |
| 2774e0 | 63 61 6c 6c 22 29 0a 09 28 22 63 61 70 74 75 72 65 64 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f | call")..("captured.initializatio |
| 277500 | 6e 20 66 6f 72 6d 22 20 22 63 61 70 74 75 72 65 64 5f 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e | n.form"."captured_initialization |
| 277520 | 5f 66 6f 72 6d 22 29 0a 09 28 22 63 61 72 22 20 22 63 61 72 22 29 0a 09 28 22 63 61 73 65 22 20 | _form")..("car"."car")..("case". |
| 277540 | 22 63 61 73 65 22 29 0a 09 28 22 63 61 73 65 20 73 65 6e 73 69 74 69 76 69 74 79 20 6d 6f 64 65 | "case")..("case.sensitivity.mode |
| 277560 | 22 20 22 63 61 73 65 5f 73 65 6e 73 69 74 69 76 69 74 79 5f 6d 6f 64 65 22 29 0a 09 28 22 63 61 | "."case_sensitivity_mode")..("ca |
| 277580 | 74 63 68 22 20 22 63 61 74 63 68 22 29 0a 09 28 22 63 61 74 63 68 20 74 61 67 22 20 22 63 61 74 | tch"."catch")..("catch.tag"."cat |
| 2775a0 | 63 68 5f 74 61 67 22 29 0a 09 28 22 63 64 64 72 22 20 22 63 64 64 72 22 29 0a 09 28 22 63 64 72 | ch_tag")..("cddr"."cddr")..("cdr |
| 2775c0 | 22 20 22 63 64 72 22 29 0a 09 28 22 63 65 6c 6c 22 20 22 63 65 6c 6c 22 29 0a 09 28 22 63 68 61 | "."cdr")..("cell"."cell")..("cha |
| 2775e0 | 72 61 63 74 65 72 22 20 22 63 68 61 72 61 63 74 65 72 22 29 0a 09 28 22 63 68 61 72 61 63 74 65 | racter"."character")..("characte |
| 277600 | 72 20 63 6f 64 65 22 20 22 63 68 61 72 61 63 74 65 72 5f 63 6f 64 65 22 29 0a 09 28 22 63 68 61 | r.code"."character_code")..("cha |
| 277620 | 72 61 63 74 65 72 20 64 65 73 69 67 6e 61 74 6f 72 22 20 22 63 68 61 72 61 63 74 65 72 5f 64 65 | racter.designator"."character_de |
| 277640 | 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 63 69 72 63 75 6c 61 72 22 20 22 63 69 72 63 75 6c 61 | signator")..("circular"."circula |
| 277660 | 72 22 29 0a 09 28 22 63 69 72 63 75 6c 61 72 20 6c 69 73 74 22 20 22 63 69 72 63 75 6c 61 72 5f | r")..("circular.list"."circular_ |
| 277680 | 6c 69 73 74 22 29 0a 09 28 22 63 6c 61 73 73 22 20 22 63 6c 61 73 73 22 29 0a 09 28 22 63 6c 61 | list")..("class"."class")..("cla |
| 2776a0 | 73 73 20 64 65 73 69 67 6e 61 74 6f 72 22 20 22 63 6c 61 73 73 5f 64 65 73 69 67 6e 61 74 6f 72 | ss.designator"."class_designator |
| 2776c0 | 22 29 0a 09 28 22 63 6c 61 73 73 20 70 72 65 63 65 64 65 6e 63 65 20 6c 69 73 74 22 20 22 63 6c | ")..("class.precedence.list"."cl |
| 2776e0 | 61 73 73 5f 70 72 65 63 65 64 65 6e 63 65 5f 6c 69 73 74 22 29 0a 09 28 22 63 6c 6f 73 65 22 20 | ass_precedence_list")..("close". |
| 277700 | 22 63 6c 6f 73 65 22 29 0a 09 28 22 63 6c 6f 73 65 64 22 20 22 63 6c 6f 73 65 64 22 29 0a 09 28 | "close")..("closed"."closed")..( |
| 277720 | 22 63 6c 6f 73 75 72 65 22 20 22 63 6c 6f 73 75 72 65 22 29 0a 09 28 22 63 6f 61 6c 65 73 63 65 | "closure"."closure")..("coalesce |
| 277740 | 22 20 22 63 6f 61 6c 65 73 63 65 22 29 0a 09 28 22 63 6f 64 65 22 20 22 63 6f 64 65 22 29 0a 09 | "."coalesce")..("code"."code").. |
| 277760 | 28 22 63 6f 65 72 63 65 22 20 22 63 6f 65 72 63 65 22 29 0a 09 28 22 63 6f 6c 6f 6e 22 20 22 63 | ("coerce"."coerce")..("colon"."c |
| 277780 | 6f 6c 6f 6e 22 29 0a 09 28 22 63 6f 6d 6d 61 22 20 22 63 6f 6d 6d 61 22 29 0a 09 28 22 63 6f 6d | olon")..("comma"."comma")..("com |
| 2777a0 | 70 69 6c 61 74 69 6f 6e 22 20 22 63 6f 6d 70 69 6c 61 74 69 6f 6e 22 29 0a 09 28 22 63 6f 6d 70 | pilation"."compilation")..("comp |
| 2777c0 | 69 6c 61 74 69 6f 6e 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 20 22 63 6f 6d 70 69 6c 61 74 69 6f | ilation.environment"."compilatio |
| 2777e0 | 6e 5f 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 29 0a 09 28 22 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 75 | n_environment")..("compilation.u |
| 277800 | 6e 69 74 22 20 22 63 6f 6d 70 69 6c 61 74 69 6f 6e 5f 75 6e 69 74 22 29 0a 09 28 22 63 6f 6d 70 | nit"."compilation_unit")..("comp |
| 277820 | 69 6c 65 22 20 22 63 6f 6d 70 69 6c 65 22 29 0a 09 28 22 63 6f 6d 70 69 6c 65 20 74 69 6d 65 22 | ile"."compile")..("compile.time" |
| 277840 | 20 22 63 6f 6d 70 69 6c 65 5f 74 69 6d 65 22 29 0a 09 28 22 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 | ."compile_time")..("compile-time |
| 277860 | 20 64 65 66 69 6e 69 74 69 6f 6e 22 20 22 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 5f 64 65 66 69 6e | .definition"."compile-time_defin |
| 277880 | 69 74 69 6f 6e 22 29 0a 09 28 22 63 6f 6d 70 69 6c 65 64 20 63 6f 64 65 22 20 22 63 6f 6d 70 69 | ition")..("compiled.code"."compi |
| 2778a0 | 6c 65 64 5f 63 6f 64 65 22 29 0a 09 28 22 63 6f 6d 70 69 6c 65 64 20 66 69 6c 65 22 20 22 63 6f | led_code")..("compiled.file"."co |
| 2778c0 | 6d 70 69 6c 65 64 5f 66 69 6c 65 22 29 0a 09 28 22 63 6f 6d 70 69 6c 65 64 20 66 75 6e 63 74 69 | mpiled_file")..("compiled.functi |
| 2778e0 | 6f 6e 22 20 22 63 6f 6d 70 69 6c 65 64 5f 66 75 6e 63 74 69 6f 6e 22 29 0a 09 28 22 63 6f 6d 70 | on"."compiled_function")..("comp |
| 277900 | 69 6c 65 72 22 20 22 63 6f 6d 70 69 6c 65 72 22 29 0a 09 28 22 63 6f 6d 70 69 6c 65 72 20 6d 61 | iler"."compiler")..("compiler.ma |
| 277920 | 63 72 6f 22 20 22 63 6f 6d 70 69 6c 65 72 5f 6d 61 63 72 6f 22 29 0a 09 28 22 63 6f 6d 70 69 6c | cro"."compiler_macro")..("compil |
| 277940 | 65 72 20 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f 6e 22 20 22 63 6f 6d 70 69 6c 65 72 5f 6d 61 | er.macro.expansion"."compiler_ma |
| 277960 | 63 72 6f 5f 65 78 70 61 6e 73 69 6f 6e 22 29 0a 09 28 22 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 | cro_expansion")..("compiler.macr |
| 277980 | 6f 20 66 6f 72 6d 22 20 22 63 6f 6d 70 69 6c 65 72 5f 6d 61 63 72 6f 5f 66 6f 72 6d 22 29 0a 09 | o.form"."compiler_macro_form").. |
| 2779a0 | 28 22 63 6f 6d 70 69 6c 65 72 20 6d 61 63 72 6f 20 66 75 6e 63 74 69 6f 6e 22 20 22 63 6f 6d 70 | ("compiler.macro.function"."comp |
| 2779c0 | 69 6c 65 72 5f 6d 61 63 72 6f 5f 66 75 6e 63 74 69 6f 6e 22 29 0a 09 28 22 63 6f 6d 70 6c 65 78 | iler_macro_function")..("complex |
| 2779e0 | 22 20 22 63 6f 6d 70 6c 65 78 22 29 0a 09 28 22 63 6f 6d 70 6c 65 78 20 66 6c 6f 61 74 22 20 22 | "."complex")..("complex.float"." |
| 277a00 | 63 6f 6d 70 6c 65 78 5f 66 6c 6f 61 74 22 29 0a 09 28 22 63 6f 6d 70 6c 65 78 20 70 61 72 74 20 | complex_float")..("complex.part. |
| 277a20 | 74 79 70 65 22 20 22 63 6f 6d 70 6c 65 78 5f 70 61 72 74 5f 74 79 70 65 22 29 0a 09 28 22 63 6f | type"."complex_part_type")..("co |
| 277a40 | 6d 70 6c 65 78 20 72 61 74 69 6f 6e 61 6c 22 20 22 63 6f 6d 70 6c 65 78 5f 72 61 74 69 6f 6e 61 | mplex.rational"."complex_rationa |
| 277a60 | 6c 22 29 0a 09 28 22 63 6f 6d 70 6c 65 78 20 73 69 6e 67 6c 65 20 66 6c 6f 61 74 22 20 22 63 6f | l")..("complex.single.float"."co |
| 277a80 | 6d 70 6c 65 78 5f 73 69 6e 67 6c 65 5f 66 6c 6f 61 74 22 29 0a 09 28 22 63 6f 6d 70 6f 73 69 74 | mplex_single_float")..("composit |
| 277aa0 | 65 20 73 74 72 65 61 6d 22 20 22 63 6f 6d 70 6f 73 69 74 65 5f 73 74 72 65 61 6d 22 29 0a 09 28 | e.stream"."composite_stream")..( |
| 277ac0 | 22 63 6f 6d 70 6f 75 6e 64 20 66 6f 72 6d 22 20 22 63 6f 6d 70 6f 75 6e 64 5f 66 6f 72 6d 22 29 | "compound.form"."compound_form") |
| 277ae0 | 0a 09 28 22 63 6f 6d 70 6f 75 6e 64 20 74 79 70 65 20 73 70 65 63 69 66 69 65 72 22 20 22 63 6f | ..("compound.type.specifier"."co |
| 277b00 | 6d 70 6f 75 6e 64 5f 74 79 70 65 5f 73 70 65 63 69 66 69 65 72 22 29 0a 09 28 22 63 6f 6e 63 61 | mpound_type_specifier")..("conca |
| 277b20 | 74 65 6e 61 74 65 64 20 73 74 72 65 61 6d 22 20 22 63 6f 6e 63 61 74 65 6e 61 74 65 64 5f 73 74 | tenated.stream"."concatenated_st |
| 277b40 | 72 65 61 6d 22 29 0a 09 28 22 63 6f 6e 64 69 74 69 6f 6e 22 20 22 63 6f 6e 64 69 74 69 6f 6e 22 | ream")..("condition"."condition" |
| 277b60 | 29 0a 09 28 22 63 6f 6e 64 69 74 69 6f 6e 20 64 65 73 69 67 6e 61 74 6f 72 22 20 22 63 6f 6e 64 | )..("condition.designator"."cond |
| 277b80 | 69 74 69 6f 6e 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 63 6f 6e 64 69 74 69 6f 6e 20 | ition_designator")..("condition. |
| 277ba0 | 68 61 6e 64 6c 65 72 22 20 22 63 6f 6e 64 69 74 69 6f 6e 5f 68 61 6e 64 6c 65 72 22 29 0a 09 28 | handler"."condition_handler")..( |
| 277bc0 | 22 63 6f 6e 64 69 74 69 6f 6e 20 72 65 70 6f 72 74 65 72 22 20 22 63 6f 6e 64 69 74 69 6f 6e 5f | "condition.reporter"."condition_ |
| 277be0 | 72 65 70 6f 72 74 65 72 22 29 0a 09 28 22 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 6e 65 77 6c 69 6e | reporter")..("conditional.newlin |
| 277c00 | 65 22 20 22 63 6f 6e 64 69 74 69 6f 6e 61 6c 5f 6e 65 77 6c 69 6e 65 22 29 0a 09 28 22 63 6f 6e | e"."conditional_newline")..("con |
| 277c20 | 66 6f 72 6d 61 6e 63 65 22 20 22 63 6f 6e 66 6f 72 6d 61 6e 63 65 22 29 0a 09 28 22 63 6f 6e 66 | formance"."conformance")..("conf |
| 277c40 | 6f 72 6d 69 6e 67 20 63 6f 64 65 22 20 22 63 6f 6e 66 6f 72 6d 69 6e 67 5f 63 6f 64 65 22 29 0a | orming.code"."conforming_code"). |
| 277c60 | 09 28 22 63 6f 6e 66 6f 72 6d 69 6e 67 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 22 20 22 63 | .("conforming.implementation"."c |
| 277c80 | 6f 6e 66 6f 72 6d 69 6e 67 5f 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 22 29 0a 09 28 22 63 6f | onforming_implementation")..("co |
| 277ca0 | 6e 66 6f 72 6d 69 6e 67 20 70 72 6f 63 65 73 73 6f 72 22 20 22 63 6f 6e 66 6f 72 6d 69 6e 67 5f | nforming.processor"."conforming_ |
| 277cc0 | 70 72 6f 63 65 73 73 6f 72 22 29 0a 09 28 22 63 6f 6e 66 6f 72 6d 69 6e 67 20 70 72 6f 67 72 61 | processor")..("conforming.progra |
| 277ce0 | 6d 22 20 22 63 6f 6e 66 6f 72 6d 69 6e 67 5f 70 72 6f 67 72 61 6d 22 29 0a 09 28 22 63 6f 6e 67 | m"."conforming_program")..("cong |
| 277d00 | 72 75 65 6e 74 22 20 22 63 6f 6e 67 72 75 65 6e 74 22 29 0a 09 28 22 63 6f 6e 73 22 20 22 63 6f | ruent"."congruent")..("cons"."co |
| 277d20 | 6e 73 22 29 0a 09 28 22 63 6f 6e 73 74 61 6e 74 22 20 22 63 6f 6e 73 74 61 6e 74 22 29 0a 09 28 | ns")..("constant"."constant")..( |
| 277d40 | 22 63 6f 6e 73 74 61 6e 74 20 66 6f 72 6d 22 20 22 63 6f 6e 73 74 61 6e 74 5f 66 6f 72 6d 22 29 | "constant.form"."constant_form") |
| 277d60 | 0a 09 28 22 63 6f 6e 73 74 61 6e 74 20 6f 62 6a 65 63 74 22 20 22 63 6f 6e 73 74 61 6e 74 5f 6f | ..("constant.object"."constant_o |
| 277d80 | 62 6a 65 63 74 22 29 0a 09 28 22 63 6f 6e 73 74 61 6e 74 20 76 61 72 69 61 62 6c 65 22 20 22 63 | bject")..("constant.variable"."c |
| 277da0 | 6f 6e 73 74 61 6e 74 5f 76 61 72 69 61 62 6c 65 22 29 0a 09 28 22 63 6f 6e 73 74 69 74 75 65 6e | onstant_variable")..("constituen |
| 277dc0 | 74 22 20 22 63 6f 6e 73 74 69 74 75 65 6e 74 22 29 0a 09 28 22 63 6f 6e 73 74 69 74 75 65 6e 74 | t"."constituent")..("constituent |
| 277de0 | 20 74 72 61 69 74 22 20 22 63 6f 6e 73 74 69 74 75 65 6e 74 5f 74 72 61 69 74 22 29 0a 09 28 22 | .trait"."constituent_trait")..(" |
| 277e00 | 63 6f 6e 73 74 72 75 63 74 65 64 20 73 74 72 65 61 6d 22 20 22 63 6f 6e 73 74 72 75 63 74 65 64 | constructed.stream"."constructed |
| 277e20 | 5f 73 74 72 65 61 6d 22 29 0a 09 28 22 63 6f 6e 74 61 67 69 6f 6e 22 20 22 63 6f 6e 74 61 67 69 | _stream")..("contagion"."contagi |
| 277e40 | 6f 6e 22 29 0a 09 28 22 63 6f 6e 74 69 6e 75 61 62 6c 65 22 20 22 63 6f 6e 74 69 6e 75 61 62 6c | on")..("continuable"."continuabl |
| 277e60 | 65 22 29 0a 09 28 22 63 6f 6e 74 72 6f 6c 20 66 6f 72 6d 22 20 22 63 6f 6e 74 72 6f 6c 5f 66 6f | e")..("control.form"."control_fo |
| 277e80 | 72 6d 22 29 0a 09 28 22 63 6f 70 79 22 20 22 63 6f 70 79 22 29 0a 09 28 22 63 6f 72 72 65 63 74 | rm")..("copy"."copy")..("correct |
| 277ea0 | 61 62 6c 65 22 20 22 63 6f 72 72 65 63 74 61 62 6c 65 22 29 0a 09 28 22 63 75 72 72 65 6e 74 20 | able"."correctable")..("current. |
| 277ec0 | 69 6e 70 75 74 20 62 61 73 65 22 20 22 63 75 72 72 65 6e 74 5f 69 6e 70 75 74 5f 62 61 73 65 22 | input.base"."current_input_base" |
| 277ee0 | 29 0a 09 28 22 63 75 72 72 65 6e 74 20 6c 6f 67 69 63 61 6c 20 62 6c 6f 63 6b 22 20 22 63 75 72 | )..("current.logical.block"."cur |
| 277f00 | 72 65 6e 74 5f 6c 6f 67 69 63 61 6c 5f 62 6c 6f 63 6b 22 29 0a 09 28 22 63 75 72 72 65 6e 74 20 | rent_logical_block")..("current. |
| 277f20 | 6f 75 74 70 75 74 20 62 61 73 65 22 20 22 63 75 72 72 65 6e 74 5f 6f 75 74 70 75 74 5f 62 61 73 | output.base"."current_output_bas |
| 277f40 | 65 22 29 0a 09 28 22 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 22 20 22 63 75 72 72 65 6e 74 | e")..("current.package"."current |
| 277f60 | 5f 70 61 63 6b 61 67 65 22 29 0a 09 28 22 63 75 72 72 65 6e 74 20 70 70 72 69 6e 74 20 64 69 73 | _package")..("current.pprint.dis |
| 277f80 | 70 61 74 63 68 20 74 61 62 6c 65 22 20 22 63 75 72 72 65 6e 74 5f 70 70 72 69 6e 74 5f 64 69 73 | patch.table"."current_pprint_dis |
| 277fa0 | 70 61 74 63 68 5f 74 61 62 6c 65 22 29 0a 09 28 22 63 75 72 72 65 6e 74 20 72 61 6e 64 6f 6d 20 | patch_table")..("current.random. |
| 277fc0 | 73 74 61 74 65 22 20 22 63 75 72 72 65 6e 74 5f 72 61 6e 64 6f 6d 5f 73 74 61 74 65 22 29 0a 09 | state"."current_random_state").. |
| 277fe0 | 28 22 63 75 72 72 65 6e 74 20 72 65 61 64 74 61 62 6c 65 22 20 22 63 75 72 72 65 6e 74 5f 72 65 | ("current.readtable"."current_re |
| 278000 | 61 64 74 61 62 6c 65 22 29 0a 09 28 22 64 61 74 61 20 74 79 70 65 22 20 22 64 61 74 61 5f 74 79 | adtable")..("data.type"."data_ty |
| 278020 | 70 65 22 29 0a 09 28 22 64 65 62 75 67 20 49 2f 4f 22 20 22 64 65 62 75 67 5f 69 53 4c 6f 22 29 | pe")..("debug.I/O"."debug_iSLo") |
| 278040 | 0a 09 28 22 64 65 62 75 67 67 65 72 22 20 22 64 65 62 75 67 67 65 72 22 29 0a 09 28 22 64 65 63 | ..("debugger"."debugger")..("dec |
| 278060 | 6c 61 72 61 74 69 6f 6e 22 20 22 64 65 63 6c 61 72 61 74 69 6f 6e 22 29 0a 09 28 22 64 65 63 6c | laration"."declaration")..("decl |
| 278080 | 61 72 61 74 69 6f 6e 20 69 64 65 6e 74 69 66 69 65 72 22 20 22 64 65 63 6c 61 72 61 74 69 6f 6e | aration.identifier"."declaration |
| 2780a0 | 5f 69 64 65 6e 74 69 66 69 65 72 22 29 0a 09 28 22 64 65 63 6c 61 72 61 74 69 6f 6e 20 73 70 65 | _identifier")..("declaration.spe |
| 2780c0 | 63 69 66 69 65 72 22 20 22 64 65 63 6c 61 72 61 74 69 6f 6e 5f 73 70 65 63 69 66 69 65 72 22 29 | cifier"."declaration_specifier") |
| 2780e0 | 0a 09 28 22 64 65 63 6c 61 72 65 22 20 22 64 65 63 6c 61 72 65 22 29 0a 09 28 22 64 65 63 6c 69 | ..("declare"."declare")..("decli |
| 278100 | 6e 65 22 20 22 64 65 63 6c 69 6e 65 22 29 0a 09 28 22 64 65 63 6f 64 65 64 20 74 69 6d 65 22 20 | ne"."decline")..("decoded.time". |
| 278120 | 22 64 65 63 6f 64 65 64 5f 74 69 6d 65 22 29 0a 09 28 22 64 65 66 61 75 6c 74 20 6d 65 74 68 6f | "decoded_time")..("default.metho |
| 278140 | 64 22 20 22 64 65 66 61 75 6c 74 5f 6d 65 74 68 6f 64 22 29 0a 09 28 22 64 65 66 61 75 6c 74 65 | d"."default_method")..("defaulte |
| 278160 | 64 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 22 20 | d.initialization.argument.list". |
| 278180 | 22 64 65 66 61 75 6c 74 65 64 5f 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 5f 61 72 67 75 6d 65 | "defaulted_initialization_argume |
| 2781a0 | 6e 74 5f 6c 69 73 74 22 29 0a 09 28 22 64 65 66 69 6e 65 2d 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 | nt_list")..("define-method-combi |
| 2781c0 | 6e 61 74 69 6f 6e 20 61 72 67 75 6d 65 6e 74 73 20 6c 61 6d 62 64 61 20 6c 69 73 74 22 20 22 64 | nation.arguments.lambda.list"."d |
| 2781e0 | 65 66 69 6e 65 2d 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 5f 61 72 67 75 6d 65 6e | efine-method-combination_argumen |
| 278200 | 74 73 5f 6c 61 6d 62 64 61 5f 6c 69 73 74 22 29 0a 09 28 22 64 65 66 69 6e 65 2d 6d 6f 64 69 66 | ts_lambda_list")..("define-modif |
| 278220 | 79 2d 6d 61 63 72 6f 20 6c 61 6d 62 64 61 20 6c 69 73 74 22 20 22 64 65 66 69 6e 65 2d 6d 6f 64 | y-macro.lambda.list"."define-mod |
| 278240 | 69 66 79 2d 6d 61 63 72 6f 5f 6c 61 6d 62 64 61 5f 6c 69 73 74 22 29 0a 09 28 22 64 65 66 69 6e | ify-macro_lambda_list")..("defin |
| 278260 | 65 64 20 6e 61 6d 65 22 20 22 64 65 66 69 6e 65 64 5f 6e 61 6d 65 22 29 0a 09 28 22 64 65 66 69 | ed.name"."defined_name")..("defi |
| 278280 | 6e 69 6e 67 20 66 6f 72 6d 22 20 22 64 65 66 69 6e 69 6e 67 5f 66 6f 72 6d 22 29 0a 09 28 22 64 | ning.form"."defining_form")..("d |
| 2782a0 | 65 66 73 65 74 66 20 6c 61 6d 62 64 61 20 6c 69 73 74 22 20 22 64 65 66 73 65 74 66 5f 6c 61 6d | efsetf.lambda.list"."defsetf_lam |
| 2782c0 | 62 64 61 5f 6c 69 73 74 22 29 0a 09 28 22 64 65 66 74 79 70 65 20 6c 61 6d 62 64 61 20 6c 69 73 | bda_list")..("deftype.lambda.lis |
| 2782e0 | 74 22 20 22 64 65 66 74 79 70 65 5f 6c 61 6d 62 64 61 5f 6c 69 73 74 22 29 0a 09 28 22 64 65 6e | t"."deftype_lambda_list")..("den |
| 278300 | 6f 72 6d 61 6c 69 7a 65 64 22 20 22 64 65 6e 6f 72 6d 61 6c 69 7a 65 64 22 29 0a 09 28 22 64 65 | ormalized"."denormalized")..("de |
| 278320 | 72 69 76 65 64 20 74 79 70 65 22 20 22 64 65 72 69 76 65 64 5f 74 79 70 65 22 29 0a 09 28 22 64 | rived.type"."derived_type")..("d |
| 278340 | 65 72 69 76 65 64 20 74 79 70 65 20 73 70 65 63 69 66 69 65 72 22 20 22 64 65 72 69 76 65 64 5f | erived.type.specifier"."derived_ |
| 278360 | 74 79 70 65 5f 73 70 65 63 69 66 69 65 72 22 29 0a 09 28 22 64 65 73 69 67 6e 61 74 6f 72 22 20 | type_specifier")..("designator". |
| 278380 | 22 64 65 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 64 65 73 74 72 75 63 74 69 76 65 22 20 22 64 | "designator")..("destructive"."d |
| 2783a0 | 65 73 74 72 75 63 74 69 76 65 22 29 0a 09 28 22 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 6c 61 | estructive")..("destructuring.la |
| 2783c0 | 6d 62 64 61 20 6c 69 73 74 22 20 22 64 65 73 74 72 75 63 74 75 72 69 6e 67 5f 6c 61 6d 62 64 61 | mbda.list"."destructuring_lambda |
| 2783e0 | 5f 6c 69 73 74 22 29 0a 09 28 22 64 69 66 66 65 72 65 6e 74 22 20 22 64 69 66 66 65 72 65 6e 74 | _list")..("different"."different |
| 278400 | 22 29 0a 09 28 22 64 69 67 69 74 22 20 22 64 69 67 69 74 22 29 0a 09 28 22 64 69 6d 65 6e 73 69 | ")..("digit"."digit")..("dimensi |
| 278420 | 6f 6e 22 20 22 64 69 6d 65 6e 73 69 6f 6e 22 29 0a 09 28 22 64 69 72 65 63 74 20 69 6e 73 74 61 | on"."dimension")..("direct.insta |
| 278440 | 6e 63 65 22 20 22 64 69 72 65 63 74 5f 69 6e 73 74 61 6e 63 65 22 29 0a 09 28 22 64 69 72 65 63 | nce"."direct_instance")..("direc |
| 278460 | 74 20 73 75 62 63 6c 61 73 73 22 20 22 64 69 72 65 63 74 5f 73 75 62 63 6c 61 73 73 22 29 0a 09 | t.subclass"."direct_subclass").. |
| 278480 | 28 22 64 69 72 65 63 74 20 73 75 70 65 72 63 6c 61 73 73 22 20 22 64 69 72 65 63 74 5f 73 75 70 | ("direct.superclass"."direct_sup |
| 2784a0 | 65 72 63 6c 61 73 73 22 29 0a 09 28 22 64 69 73 65 73 74 61 62 6c 69 73 68 22 20 22 64 69 73 65 | erclass")..("disestablish"."dise |
| 2784c0 | 73 74 61 62 6c 69 73 68 22 29 0a 09 28 22 64 69 73 6a 6f 69 6e 74 22 20 22 64 69 73 6a 6f 69 6e | stablish")..("disjoint"."disjoin |
| 2784e0 | 74 22 29 0a 09 28 22 64 69 73 70 61 74 63 68 69 6e 67 20 6d 61 63 72 6f 20 63 68 61 72 61 63 74 | t")..("dispatching.macro.charact |
| 278500 | 65 72 22 20 22 64 69 73 70 61 74 63 68 69 6e 67 5f 6d 61 63 72 6f 5f 63 68 61 72 61 63 74 65 72 | er"."dispatching_macro_character |
| 278520 | 22 29 0a 09 28 22 64 69 73 70 6c 61 63 65 64 20 61 72 72 61 79 22 20 22 64 69 73 70 6c 61 63 65 | ")..("displaced.array"."displace |
| 278540 | 64 5f 61 72 72 61 79 22 29 0a 09 28 22 64 69 73 74 69 6e 63 74 22 20 22 64 69 73 74 69 6e 63 74 | d_array")..("distinct"."distinct |
| 278560 | 22 29 0a 09 28 22 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 22 20 22 64 6f 63 | ")..("documentation.string"."doc |
| 278580 | 75 6d 65 6e 74 61 74 69 6f 6e 5f 73 74 72 69 6e 67 22 29 0a 09 28 22 64 6f 74 22 20 22 64 6f 74 | umentation_string")..("dot"."dot |
| 2785a0 | 22 29 0a 09 28 22 64 6f 74 74 65 64 20 6c 69 73 74 22 20 22 64 6f 74 74 65 64 5f 6c 69 73 74 22 | ")..("dotted.list"."dotted_list" |
| 2785c0 | 29 0a 09 28 22 64 6f 74 74 65 64 20 70 61 69 72 22 20 22 64 6f 74 74 65 64 5f 70 61 69 72 22 29 | )..("dotted.pair"."dotted_pair") |
| 2785e0 | 0a 09 28 22 64 6f 75 62 6c 65 20 66 6c 6f 61 74 22 20 22 64 6f 75 62 6c 65 5f 66 6c 6f 61 74 22 | ..("double.float"."double_float" |
| 278600 | 29 0a 09 28 22 64 6f 75 62 6c 65 2d 71 75 6f 74 65 22 20 22 64 6f 75 62 6c 65 2d 71 75 6f 74 65 | )..("double-quote"."double-quote |
| 278620 | 22 29 0a 09 28 22 64 79 6e 61 6d 69 63 20 62 69 6e 64 69 6e 67 22 20 22 64 79 6e 61 6d 69 63 5f | ")..("dynamic.binding"."dynamic_ |
| 278640 | 62 69 6e 64 69 6e 67 22 29 0a 09 28 22 64 79 6e 61 6d 69 63 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 | binding")..("dynamic.environment |
| 278660 | 22 20 22 64 79 6e 61 6d 69 63 5f 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 29 0a 09 28 22 64 79 6e 61 | "."dynamic_environment")..("dyna |
| 278680 | 6d 69 63 20 65 78 74 65 6e 74 22 20 22 64 79 6e 61 6d 69 63 5f 65 78 74 65 6e 74 22 29 0a 09 28 | mic.extent"."dynamic_extent")..( |
| 2786a0 | 22 64 79 6e 61 6d 69 63 20 73 63 6f 70 65 22 20 22 64 79 6e 61 6d 69 63 5f 73 63 6f 70 65 22 29 | "dynamic.scope"."dynamic_scope") |
| 2786c0 | 0a 09 28 22 64 79 6e 61 6d 69 63 20 76 61 72 69 61 62 6c 65 22 20 22 64 79 6e 61 6d 69 63 5f 76 | ..("dynamic.variable"."dynamic_v |
| 2786e0 | 61 72 69 61 62 6c 65 22 29 0a 09 28 22 65 63 68 6f 20 73 74 72 65 61 6d 22 20 22 65 63 68 6f 5f | ariable")..("echo.stream"."echo_ |
| 278700 | 73 74 72 65 61 6d 22 29 0a 09 28 22 65 66 66 65 63 74 69 76 65 20 6d 65 74 68 6f 64 22 20 22 65 | stream")..("effective.method"."e |
| 278720 | 66 66 65 63 74 69 76 65 5f 6d 65 74 68 6f 64 22 29 0a 09 28 22 65 6c 65 6d 65 6e 74 22 20 22 65 | ffective_method")..("element"."e |
| 278740 | 6c 65 6d 65 6e 74 22 29 0a 09 28 22 65 6c 65 6d 65 6e 74 20 74 79 70 65 22 20 22 65 6c 65 6d 65 | lement")..("element.type"."eleme |
| 278760 | 6e 74 5f 74 79 70 65 22 29 0a 09 28 22 65 6d 22 20 22 65 6d 22 29 0a 09 28 22 65 6d 70 74 79 20 | nt_type")..("em"."em")..("empty. |
| 278780 | 6c 69 73 74 22 20 22 65 6d 70 74 79 5f 6c 69 73 74 22 29 0a 09 28 22 65 6d 70 74 79 20 74 79 70 | list"."empty_list")..("empty.typ |
| 2787a0 | 65 22 20 22 65 6d 70 74 79 5f 74 79 70 65 22 29 0a 09 28 22 65 6e 64 20 6f 66 20 66 69 6c 65 22 | e"."empty_type")..("end.of.file" |
| 2787c0 | 20 22 65 6e 64 5f 6f 66 5f 66 69 6c 65 22 29 0a 09 28 22 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 20 | ."end_of_file")..("environment". |
| 2787e0 | 22 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 29 0a 09 28 22 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 6f 62 | "environment")..("environment.ob |
| 278800 | 6a 65 63 74 22 20 22 65 6e 76 69 72 6f 6e 6d 65 6e 74 5f 6f 62 6a 65 63 74 22 29 0a 09 28 22 65 | ject"."environment_object")..("e |
| 278820 | 6e 76 69 72 6f 6e 6d 65 6e 74 20 70 61 72 61 6d 65 74 65 72 22 20 22 65 6e 76 69 72 6f 6e 6d 65 | nvironment.parameter"."environme |
| 278840 | 6e 74 5f 70 61 72 61 6d 65 74 65 72 22 29 0a 09 28 22 65 72 72 6f 72 22 20 22 65 72 72 6f 72 22 | nt_parameter")..("error"."error" |
| 278860 | 29 0a 09 28 22 65 72 72 6f 72 20 6f 75 74 70 75 74 22 20 22 65 72 72 6f 72 5f 6f 75 74 70 75 74 | )..("error.output"."error_output |
| 278880 | 22 29 0a 09 28 22 65 73 63 61 70 65 22 20 22 65 73 63 61 70 65 22 29 0a 09 28 22 65 73 74 61 62 | ")..("escape"."escape")..("estab |
| 2788a0 | 6c 69 73 68 22 20 22 65 73 74 61 62 6c 69 73 68 22 29 0a 09 28 22 65 76 61 6c 75 61 74 65 22 20 | lish"."establish")..("evaluate". |
| 2788c0 | 22 65 76 61 6c 75 61 74 65 22 29 0a 09 28 22 65 76 61 6c 75 61 74 69 6f 6e 22 20 22 65 76 61 6c | "evaluate")..("evaluation"."eval |
| 2788e0 | 75 61 74 69 6f 6e 22 29 0a 09 28 22 65 76 61 6c 75 61 74 69 6f 6e 20 65 6e 76 69 72 6f 6e 6d 65 | uation")..("evaluation.environme |
| 278900 | 6e 74 22 20 22 65 76 61 6c 75 61 74 69 6f 6e 5f 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 29 0a 09 28 | nt"."evaluation_environment")..( |
| 278920 | 22 65 78 65 63 75 74 65 22 20 22 65 78 65 63 75 74 65 22 29 0a 09 28 22 65 78 65 63 75 74 69 6f | "execute"."execute")..("executio |
| 278940 | 6e 20 74 69 6d 65 22 20 22 65 78 65 63 75 74 69 6f 6e 5f 74 69 6d 65 22 29 0a 09 28 22 65 78 68 | n.time"."execution_time")..("exh |
| 278960 | 61 75 73 74 69 76 65 20 70 61 72 74 69 74 69 6f 6e 22 20 22 65 78 68 61 75 73 74 69 76 65 5f 70 | austive.partition"."exhaustive_p |
| 278980 | 61 72 74 69 74 69 6f 6e 22 29 0a 09 28 22 65 78 68 61 75 73 74 69 76 65 20 75 6e 69 6f 6e 22 20 | artition")..("exhaustive.union". |
| 2789a0 | 22 65 78 68 61 75 73 74 69 76 65 5f 75 6e 69 6f 6e 22 29 0a 09 28 22 65 78 69 74 20 70 6f 69 6e | "exhaustive_union")..("exit.poin |
| 2789c0 | 74 22 20 22 65 78 69 74 5f 70 6f 69 6e 74 22 29 0a 09 28 22 65 78 70 6c 69 63 69 74 20 72 65 74 | t"."exit_point")..("explicit.ret |
| 2789e0 | 75 72 6e 22 20 22 65 78 70 6c 69 63 69 74 5f 72 65 74 75 72 6e 22 29 0a 09 28 22 65 78 70 6c 69 | urn"."explicit_return")..("expli |
| 278a00 | 63 69 74 20 75 73 65 22 20 22 65 78 70 6c 69 63 69 74 5f 75 73 65 22 29 0a 09 28 22 65 78 70 6f | cit.use"."explicit_use")..("expo |
| 278a20 | 6e 65 6e 74 20 6d 61 72 6b 65 72 22 20 22 65 78 70 6f 6e 65 6e 74 5f 6d 61 72 6b 65 72 22 29 0a | nent.marker"."exponent_marker"). |
| 278a40 | 09 28 22 65 78 70 6f 72 74 22 20 22 65 78 70 6f 72 74 22 29 0a 09 28 22 65 78 70 6f 72 74 65 64 | .("export"."export")..("exported |
| 278a60 | 22 20 22 65 78 70 6f 72 74 65 64 22 29 0a 09 28 22 65 78 70 72 65 73 73 65 64 20 61 64 6a 75 73 | "."exported")..("expressed.adjus |
| 278a80 | 74 61 62 69 6c 69 74 79 22 20 22 65 78 70 72 65 73 73 65 64 5f 61 64 6a 75 73 74 61 62 69 6c 69 | tability"."expressed_adjustabili |
| 278aa0 | 74 79 22 29 0a 09 28 22 65 78 70 72 65 73 73 65 64 20 61 72 72 61 79 20 65 6c 65 6d 65 6e 74 20 | ty")..("expressed.array.element. |
| 278ac0 | 74 79 70 65 22 20 22 65 78 70 72 65 73 73 65 64 5f 61 72 72 61 79 5f 65 6c 65 6d 65 6e 74 5f 74 | type"."expressed_array_element_t |
| 278ae0 | 79 70 65 22 29 0a 09 28 22 65 78 70 72 65 73 73 65 64 20 63 6f 6d 70 6c 65 78 20 70 61 72 74 20 | ype")..("expressed.complex.part. |
| 278b00 | 74 79 70 65 22 20 22 65 78 70 72 65 73 73 65 64 5f 63 6f 6d 70 6c 65 78 5f 70 61 72 74 5f 74 79 | type"."expressed_complex_part_ty |
| 278b20 | 70 65 22 29 0a 09 28 22 65 78 70 72 65 73 73 69 6f 6e 22 20 22 65 78 70 72 65 73 73 69 6f 6e 22 | pe")..("expression"."expression" |
| 278b40 | 29 0a 09 28 22 65 78 70 72 65 73 73 6c 79 20 61 64 6a 75 73 74 61 62 6c 65 22 20 22 65 78 70 72 | )..("expressly.adjustable"."expr |
| 278b60 | 65 73 73 6c 79 5f 61 64 6a 75 73 74 61 62 6c 65 22 29 0a 09 28 22 65 78 74 65 6e 64 65 64 20 63 | essly_adjustable")..("extended.c |
| 278b80 | 68 61 72 61 63 74 65 72 22 20 22 65 78 74 65 6e 64 65 64 5f 63 68 61 72 61 63 74 65 72 22 29 0a | haracter"."extended_character"). |
| 278ba0 | 09 28 22 65 78 74 65 6e 64 65 64 20 66 75 6e 63 74 69 6f 6e 20 64 65 73 69 67 6e 61 74 6f 72 22 | .("extended.function.designator" |
| 278bc0 | 20 22 65 78 74 65 6e 64 65 64 5f 66 75 6e 63 74 69 6f 6e 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 | ."extended_function_designator") |
| 278be0 | 0a 09 28 22 65 78 74 65 6e 64 65 64 20 6c 61 6d 62 64 61 20 6c 69 73 74 22 20 22 65 78 74 65 6e | ..("extended.lambda.list"."exten |
| 278c00 | 64 65 64 5f 6c 61 6d 62 64 61 5f 6c 69 73 74 22 29 0a 09 28 22 65 78 74 65 6e 73 69 6f 6e 22 20 | ded_lambda_list")..("extension". |
| 278c20 | 22 65 78 74 65 6e 73 69 6f 6e 22 29 0a 09 28 22 65 78 74 65 6e 74 22 20 22 65 78 74 65 6e 74 22 | "extension")..("extent"."extent" |
| 278c40 | 29 0a 09 28 22 65 78 74 65 72 6e 61 6c 20 66 69 6c 65 20 66 6f 72 6d 61 74 22 20 22 65 78 74 65 | )..("external.file.format"."exte |
| 278c60 | 72 6e 61 6c 5f 66 69 6c 65 5f 66 6f 72 6d 61 74 22 29 0a 09 28 22 65 78 74 65 72 6e 61 6c 20 66 | rnal_file_format")..("external.f |
| 278c80 | 69 6c 65 20 66 6f 72 6d 61 74 20 64 65 73 69 67 6e 61 74 6f 72 22 20 22 65 78 74 65 72 6e 61 6c | ile.format.designator"."external |
| 278ca0 | 5f 66 69 6c 65 5f 66 6f 72 6d 61 74 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 65 78 74 | _file_format_designator")..("ext |
| 278cc0 | 65 72 6e 61 6c 20 73 79 6d 62 6f 6c 22 20 22 65 78 74 65 72 6e 61 6c 5f 73 79 6d 62 6f 6c 22 29 | ernal.symbol"."external_symbol") |
| 278ce0 | 0a 09 28 22 65 78 74 65 72 6e 61 6c 69 7a 61 62 6c 65 20 6f 62 6a 65 63 74 22 20 22 65 78 74 65 | ..("externalizable.object"."exte |
| 278d00 | 72 6e 61 6c 69 7a 61 62 6c 65 5f 6f 62 6a 65 63 74 22 29 0a 09 28 22 66 61 6c 73 65 22 20 22 66 | rnalizable_object")..("false"."f |
| 278d20 | 61 6c 73 65 22 29 0a 09 28 22 66 62 6f 75 6e 64 22 20 22 66 62 6f 75 6e 64 22 29 0a 09 28 22 66 | alse")..("fbound"."fbound")..("f |
| 278d40 | 65 61 74 75 72 65 22 20 22 66 65 61 74 75 72 65 22 29 0a 09 28 22 66 65 61 74 75 72 65 20 65 78 | eature"."feature")..("feature.ex |
| 278d60 | 70 72 65 73 73 69 6f 6e 22 20 22 66 65 61 74 75 72 65 5f 65 78 70 72 65 73 73 69 6f 6e 22 29 0a | pression"."feature_expression"). |
| 278d80 | 09 28 22 66 65 61 74 75 72 65 73 20 6c 69 73 74 22 20 22 66 65 61 74 75 72 65 73 5f 6c 69 73 74 | .("features.list"."features_list |
| 278da0 | 22 29 0a 09 28 22 66 69 6c 65 22 20 22 66 69 6c 65 22 29 0a 09 28 22 66 69 6c 65 20 63 6f 6d 70 | ")..("file"."file")..("file.comp |
| 278dc0 | 69 6c 65 72 22 20 22 66 69 6c 65 5f 63 6f 6d 70 69 6c 65 72 22 29 0a 09 28 22 66 69 6c 65 20 70 | iler"."file_compiler")..("file.p |
| 278de0 | 6f 73 69 74 69 6f 6e 22 20 22 66 69 6c 65 5f 70 6f 73 69 74 69 6f 6e 22 29 0a 09 28 22 66 69 6c | osition"."file_position")..("fil |
| 278e00 | 65 20 70 6f 73 69 74 69 6f 6e 20 64 65 73 69 67 6e 61 74 6f 72 22 20 22 66 69 6c 65 5f 70 6f 73 | e.position.designator"."file_pos |
| 278e20 | 69 74 69 6f 6e 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 66 69 6c 65 20 73 74 72 65 61 | ition_designator")..("file.strea |
| 278e40 | 6d 22 20 22 66 69 6c 65 5f 73 74 72 65 61 6d 22 29 0a 09 28 22 66 69 6c 65 20 73 79 73 74 65 6d | m"."file_stream")..("file.system |
| 278e60 | 22 20 22 66 69 6c 65 5f 73 79 73 74 65 6d 22 29 0a 09 28 22 66 69 6c 65 6e 61 6d 65 22 20 22 66 | "."file_system")..("filename"."f |
| 278e80 | 69 6c 65 6e 61 6d 65 22 29 0a 09 28 22 66 69 6c 6c 20 70 6f 69 6e 74 65 72 22 20 22 66 69 6c 6c | ilename")..("fill.pointer"."fill |
| 278ea0 | 5f 70 6f 69 6e 74 65 72 22 29 0a 09 28 22 66 69 6e 69 74 65 22 20 22 66 69 6e 69 74 65 22 29 0a | _pointer")..("finite"."finite"). |
| 278ec0 | 09 28 22 66 69 78 6e 75 6d 22 20 22 66 69 78 6e 75 6d 22 29 0a 09 28 22 66 6c 6f 61 74 22 20 22 | .("fixnum"."fixnum")..("float"." |
| 278ee0 | 66 6c 6f 61 74 22 29 0a 09 28 22 66 6f 72 2d 76 61 6c 75 65 22 20 22 66 6f 72 2d 76 61 6c 75 65 | float")..("for-value"."for-value |
| 278f00 | 22 29 0a 09 28 22 66 6f 72 6d 22 20 22 66 6f 72 6d 22 29 0a 09 28 22 66 6f 72 6d 61 6c 20 61 72 | ")..("form"."form")..("formal.ar |
| 278f20 | 67 75 6d 65 6e 74 22 20 22 66 6f 72 6d 61 6c 5f 61 72 67 75 6d 65 6e 74 22 29 0a 09 28 22 66 6f | gument"."formal_argument")..("fo |
| 278f40 | 72 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 22 20 22 66 6f 72 6d 61 6c 5f 70 61 72 61 6d 65 74 65 | rmal.parameter"."formal_paramete |
| 278f60 | 72 22 29 0a 09 28 22 66 6f 72 6d 61 74 22 20 22 66 6f 72 6d 61 74 22 29 0a 09 28 22 66 6f 72 6d | r")..("format"."format")..("form |
| 278f80 | 61 74 20 61 72 67 75 6d 65 6e 74 22 20 22 66 6f 72 6d 61 74 5f 61 72 67 75 6d 65 6e 74 22 29 0a | at.argument"."format_argument"). |
| 278fa0 | 09 28 22 66 6f 72 6d 61 74 20 63 6f 6e 74 72 6f 6c 22 20 22 66 6f 72 6d 61 74 5f 63 6f 6e 74 72 | .("format.control"."format_contr |
| 278fc0 | 6f 6c 22 29 0a 09 28 22 66 6f 72 6d 61 74 20 64 69 72 65 63 74 69 76 65 22 20 22 66 6f 72 6d 61 | ol")..("format.directive"."forma |
| 278fe0 | 74 5f 64 69 72 65 63 74 69 76 65 22 29 0a 09 28 22 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 22 20 | t_directive")..("format.string". |
| 279000 | 22 66 6f 72 6d 61 74 5f 73 74 72 69 6e 67 22 29 0a 09 28 22 66 72 65 65 20 64 65 63 6c 61 72 61 | "format_string")..("free.declara |
| 279020 | 74 69 6f 6e 22 20 22 66 72 65 65 5f 64 65 63 6c 61 72 61 74 69 6f 6e 22 29 0a 09 28 22 66 72 65 | tion"."free_declaration")..("fre |
| 279040 | 73 68 22 20 22 66 72 65 73 68 22 29 0a 09 28 22 66 72 65 73 68 6c 69 6e 65 22 20 22 66 72 65 73 | sh"."fresh")..("freshline"."fres |
| 279060 | 68 6c 69 6e 65 22 29 0a 09 28 22 66 75 6e 62 6f 75 6e 64 22 20 22 66 75 6e 62 6f 75 6e 64 22 29 | hline")..("funbound"."funbound") |
| 279080 | 0a 09 28 22 66 75 6e 63 74 69 6f 6e 22 20 22 66 75 6e 63 74 69 6f 6e 22 29 0a 09 28 22 66 75 6e | ..("function"."function")..("fun |
| 2790a0 | 63 74 69 6f 6e 20 62 6c 6f 63 6b 20 6e 61 6d 65 22 20 22 66 75 6e 63 74 69 6f 6e 5f 62 6c 6f 63 | ction.block.name"."function_bloc |
| 2790c0 | 6b 5f 6e 61 6d 65 22 29 0a 09 28 22 66 75 6e 63 74 69 6f 6e 20 63 65 6c 6c 22 20 22 66 75 6e 63 | k_name")..("function.cell"."func |
| 2790e0 | 74 69 6f 6e 5f 63 65 6c 6c 22 29 0a 09 28 22 66 75 6e 63 74 69 6f 6e 20 64 65 73 69 67 6e 61 74 | tion_cell")..("function.designat |
| 279100 | 6f 72 22 20 22 66 75 6e 63 74 69 6f 6e 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 66 75 | or"."function_designator")..("fu |
| 279120 | 6e 63 74 69 6f 6e 20 66 6f 72 6d 22 20 22 66 75 6e 63 74 69 6f 6e 5f 66 6f 72 6d 22 29 0a 09 28 | nction.form"."function_form")..( |
| 279140 | 22 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 22 20 22 66 75 6e 63 74 69 6f 6e 5f 6e 61 6d 65 22 29 | "function.name"."function_name") |
| 279160 | 0a 09 28 22 66 75 6e 63 74 69 6f 6e 61 6c 20 65 76 61 6c 75 61 74 69 6f 6e 22 20 22 66 75 6e 63 | ..("functional.evaluation"."func |
| 279180 | 74 69 6f 6e 61 6c 5f 65 76 61 6c 75 61 74 69 6f 6e 22 29 0a 09 28 22 66 75 6e 63 74 69 6f 6e 61 | tional_evaluation")..("functiona |
| 2791a0 | 6c 20 76 61 6c 75 65 22 20 22 66 75 6e 63 74 69 6f 6e 61 6c 5f 76 61 6c 75 65 22 29 0a 09 28 22 | l.value"."functional_value")..(" |
| 2791c0 | 66 75 72 74 68 65 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 22 20 22 66 75 72 74 68 65 72 5f 63 6f | further.compilation"."further_co |
| 2791e0 | 6d 70 69 6c 61 74 69 6f 6e 22 29 0a 09 28 22 67 65 6e 65 72 61 6c 22 20 22 67 65 6e 65 72 61 6c | mpilation")..("general"."general |
| 279200 | 22 29 0a 09 28 22 67 65 6e 65 72 61 6c 69 7a 65 64 20 62 6f 6f 6c 65 61 6e 22 20 22 67 65 6e 65 | ")..("generalized.boolean"."gene |
| 279220 | 72 61 6c 69 7a 65 64 5f 62 6f 6f 6c 65 61 6e 22 29 0a 09 28 22 67 65 6e 65 72 61 6c 69 7a 65 64 | ralized_boolean")..("generalized |
| 279240 | 20 69 6e 73 74 61 6e 63 65 22 20 22 67 65 6e 65 72 61 6c 69 7a 65 64 5f 69 6e 73 74 61 6e 63 65 | .instance"."generalized_instance |
| 279260 | 22 29 0a 09 28 22 67 65 6e 65 72 61 6c 69 7a 65 64 20 72 65 66 65 72 65 6e 63 65 22 20 22 67 65 | ")..("generalized.reference"."ge |
| 279280 | 6e 65 72 61 6c 69 7a 65 64 5f 72 65 66 65 72 65 6e 63 65 22 29 0a 09 28 22 67 65 6e 65 72 61 6c | neralized_reference")..("general |
| 2792a0 | 69 7a 65 64 20 73 79 6e 6f 6e 79 6d 20 73 74 72 65 61 6d 22 20 22 67 65 6e 65 72 61 6c 69 7a 65 | ized.synonym.stream"."generalize |
| 2792c0 | 64 5f 73 79 6e 6f 6e 79 6d 5f 73 74 72 65 61 6d 22 29 0a 09 28 22 67 65 6e 65 72 69 63 20 66 75 | d_synonym_stream")..("generic.fu |
| 2792e0 | 6e 63 74 69 6f 6e 22 20 22 67 65 6e 65 72 69 63 5f 66 75 6e 63 74 69 6f 6e 22 29 0a 09 28 22 67 | nction"."generic_function")..("g |
| 279300 | 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 6c 61 6d 62 64 61 20 6c 69 73 74 22 20 22 67 65 | eneric.function.lambda.list"."ge |
| 279320 | 6e 65 72 69 63 5f 66 75 6e 63 74 69 6f 6e 5f 6c 61 6d 62 64 61 5f 6c 69 73 74 22 29 0a 09 28 22 | neric_function_lambda_list")..(" |
| 279340 | 67 65 6e 73 79 6d 22 20 22 67 65 6e 73 79 6d 22 29 0a 09 28 22 67 6c 6f 62 61 6c 20 64 65 63 6c | gensym"."gensym")..("global.decl |
| 279360 | 61 72 61 74 69 6f 6e 22 20 22 67 6c 6f 62 61 6c 5f 64 65 63 6c 61 72 61 74 69 6f 6e 22 29 0a 09 | aration"."global_declaration").. |
| 279380 | 28 22 67 6c 6f 62 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 20 22 67 6c 6f 62 61 6c 5f 65 6e | ("global.environment"."global_en |
| 2793a0 | 76 69 72 6f 6e 6d 65 6e 74 22 29 0a 09 28 22 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 22 20 | vironment")..("global.variable". |
| 2793c0 | 22 67 6c 6f 62 61 6c 5f 76 61 72 69 61 62 6c 65 22 29 0a 09 28 22 67 6c 79 70 68 22 20 22 67 6c | "global_variable")..("glyph"."gl |
| 2793e0 | 79 70 68 22 29 0a 09 28 22 67 6f 22 20 22 67 6f 22 29 0a 09 28 22 67 6f 20 70 6f 69 6e 74 22 20 | yph")..("go"."go")..("go.point". |
| 279400 | 22 67 6f 5f 70 6f 69 6e 74 22 29 0a 09 28 22 67 6f 20 74 61 67 22 20 22 67 6f 5f 74 61 67 22 29 | "go_point")..("go.tag"."go_tag") |
| 279420 | 0a 09 28 22 67 72 61 70 68 69 63 22 20 22 67 72 61 70 68 69 63 22 29 0a 09 28 22 68 61 6e 64 6c | ..("graphic"."graphic")..("handl |
| 279440 | 65 22 20 22 68 61 6e 64 6c 65 22 29 0a 09 28 22 68 61 6e 64 6c 65 72 22 20 22 68 61 6e 64 6c 65 | e"."handle")..("handler"."handle |
| 279460 | 72 22 29 0a 09 28 22 68 61 73 68 20 74 61 62 6c 65 22 20 22 68 61 73 68 5f 74 61 62 6c 65 22 29 | r")..("hash.table"."hash_table") |
| 279480 | 0a 09 28 22 68 6f 6d 65 20 70 61 63 6b 61 67 65 22 20 22 68 6f 6d 65 5f 70 61 63 6b 61 67 65 22 | ..("home.package"."home_package" |
| 2794a0 | 29 0a 09 28 22 49 2f 4f 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 20 76 61 72 69 61 62 6c 65 22 | )..("I/O.customization.variable" |
| 2794c0 | 20 22 69 53 4c 6f 5f 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 5f 76 61 72 69 61 62 6c 65 22 29 0a | ."iSLo_customization_variable"). |
| 2794e0 | 09 28 22 69 64 65 6e 74 69 63 61 6c 22 20 22 69 64 65 6e 74 69 63 61 6c 22 29 0a 09 28 22 69 64 | .("identical"."identical")..("id |
| 279500 | 65 6e 74 69 66 69 65 72 22 20 22 69 64 65 6e 74 69 66 69 65 72 22 29 0a 09 28 22 69 6d 6d 75 74 | entifier"."identifier")..("immut |
| 279520 | 61 62 6c 65 22 20 22 69 6d 6d 75 74 61 62 6c 65 22 29 0a 09 28 22 69 6d 70 6c 65 6d 65 6e 74 61 | able"."immutable")..("implementa |
| 279540 | 74 69 6f 6e 22 20 22 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 22 29 0a 09 28 22 69 6d 70 6c 65 | tion"."implementation")..("imple |
| 279560 | 6d 65 6e 74 61 74 69 6f 6e 20 6c 69 6d 69 74 22 20 22 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | mentation.limit"."implementation |
| 279580 | 5f 6c 69 6d 69 74 22 29 0a 09 28 22 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 64 65 66 69 6e | _limit")..("implementation-defin |
| 2795a0 | 65 64 22 20 22 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 64 65 66 69 6e 65 64 22 29 0a 09 28 | ed"."implementation-defined")..( |
| 2795c0 | 22 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 64 65 70 65 6e 64 65 6e 74 22 20 22 69 6d 70 6c | "implementation-dependent"."impl |
| 2795e0 | 65 6d 65 6e 74 61 74 69 6f 6e 2d 64 65 70 65 6e 64 65 6e 74 22 29 0a 09 28 22 69 6d 70 6c 65 6d | ementation-dependent")..("implem |
| 279600 | 65 6e 74 61 74 69 6f 6e 2d 69 6e 64 65 70 65 6e 64 65 6e 74 22 20 22 69 6d 70 6c 65 6d 65 6e 74 | entation-independent"."implement |
| 279620 | 61 74 69 6f 6e 2d 69 6e 64 65 70 65 6e 64 65 6e 74 22 29 0a 09 28 22 69 6d 70 6c 69 63 69 74 20 | ation-independent")..("implicit. |
| 279640 | 62 6c 6f 63 6b 22 20 22 69 6d 70 6c 69 63 69 74 5f 62 6c 6f 63 6b 22 29 0a 09 28 22 69 6d 70 6c | block"."implicit_block")..("impl |
| 279660 | 69 63 69 74 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 22 20 22 69 6d 70 6c 69 63 69 74 5f 63 6f 6d 70 | icit.compilation"."implicit_comp |
| 279680 | 69 6c 61 74 69 6f 6e 22 29 0a 09 28 22 69 6d 70 6c 69 63 69 74 20 70 72 6f 67 6e 22 20 22 69 6d | ilation")..("implicit.progn"."im |
| 2796a0 | 70 6c 69 63 69 74 5f 70 72 6f 67 6e 22 29 0a 09 28 22 69 6d 70 6c 69 63 69 74 20 74 61 67 62 6f | plicit_progn")..("implicit.tagbo |
| 2796c0 | 64 79 22 20 22 69 6d 70 6c 69 63 69 74 5f 74 61 67 62 6f 64 79 22 29 0a 09 28 22 69 6d 70 6f 72 | dy"."implicit_tagbody")..("impor |
| 2796e0 | 74 22 20 22 69 6d 70 6f 72 74 22 29 0a 09 28 22 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 22 20 22 | t"."import")..("improper.list"." |
| 279700 | 69 6d 70 72 6f 70 65 72 5f 6c 69 73 74 22 29 0a 09 28 22 69 6e 61 63 63 65 73 73 69 62 6c 65 22 | improper_list")..("inaccessible" |
| 279720 | 20 22 69 6e 61 63 63 65 73 73 69 62 6c 65 22 29 0a 09 28 22 69 6e 64 65 66 69 6e 69 74 65 20 65 | ."inaccessible")..("indefinite.e |
| 279740 | 78 74 65 6e 74 22 20 22 69 6e 64 65 66 69 6e 69 74 65 5f 65 78 74 65 6e 74 22 29 0a 09 28 22 69 | xtent"."indefinite_extent")..("i |
| 279760 | 6e 64 65 66 69 6e 69 74 65 20 73 63 6f 70 65 22 20 22 69 6e 64 65 66 69 6e 69 74 65 5f 73 63 6f | ndefinite.scope"."indefinite_sco |
| 279780 | 70 65 22 29 0a 09 28 22 69 6e 64 69 63 61 74 6f 72 22 20 22 69 6e 64 69 63 61 74 6f 72 22 29 0a | pe")..("indicator"."indicator"). |
| 2797a0 | 09 28 22 69 6e 64 69 72 65 63 74 20 69 6e 73 74 61 6e 63 65 22 20 22 69 6e 64 69 72 65 63 74 5f | .("indirect.instance"."indirect_ |
| 2797c0 | 69 6e 73 74 61 6e 63 65 22 29 0a 09 28 22 69 6e 68 65 72 69 74 22 20 22 69 6e 68 65 72 69 74 22 | instance")..("inherit"."inherit" |
| 2797e0 | 29 0a 09 28 22 69 6e 69 74 69 61 6c 20 70 70 72 69 6e 74 20 64 69 73 70 61 74 63 68 20 74 61 62 | )..("initial.pprint.dispatch.tab |
| 279800 | 6c 65 22 20 22 69 6e 69 74 69 61 6c 5f 70 70 72 69 6e 74 5f 64 69 73 70 61 74 63 68 5f 74 61 62 | le"."initial_pprint_dispatch_tab |
| 279820 | 6c 65 22 29 0a 09 28 22 69 6e 69 74 69 61 6c 20 72 65 61 64 74 61 62 6c 65 22 20 22 69 6e 69 74 | le")..("initial.readtable"."init |
| 279840 | 69 61 6c 5f 72 65 61 64 74 61 62 6c 65 22 29 0a 09 28 22 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f | ial_readtable")..("initializatio |
| 279860 | 6e 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 22 20 22 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e | n.argument.list"."initialization |
| 279880 | 5f 61 72 67 75 6d 65 6e 74 5f 6c 69 73 74 22 29 0a 09 28 22 69 6e 69 74 69 61 6c 69 7a 61 74 69 | _argument_list")..("initializati |
| 2798a0 | 6f 6e 20 66 6f 72 6d 22 20 22 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 5f 66 6f 72 6d 22 29 0a | on.form"."initialization_form"). |
| 2798c0 | 09 28 22 69 6e 70 75 74 22 20 22 69 6e 70 75 74 22 29 0a 09 28 22 69 6e 73 74 61 6e 63 65 22 20 | .("input"."input")..("instance". |
| 2798e0 | 22 69 6e 73 74 61 6e 63 65 22 29 0a 09 28 22 69 6e 74 65 67 65 72 22 20 22 69 6e 74 65 67 65 72 | "instance")..("integer"."integer |
| 279900 | 22 29 0a 09 28 22 69 6e 74 65 72 61 63 74 69 76 65 20 73 74 72 65 61 6d 22 20 22 69 6e 74 65 72 | ")..("interactive.stream"."inter |
| 279920 | 61 63 74 69 76 65 5f 73 74 72 65 61 6d 22 29 0a 09 28 22 69 6e 74 65 72 6e 22 20 22 69 6e 74 65 | active_stream")..("intern"."inte |
| 279940 | 72 6e 22 29 0a 09 28 22 69 6e 74 65 72 6e 61 6c 20 73 79 6d 62 6f 6c 22 20 22 69 6e 74 65 72 6e | rn")..("internal.symbol"."intern |
| 279960 | 61 6c 5f 73 79 6d 62 6f 6c 22 29 0a 09 28 22 69 6e 74 65 72 6e 61 6c 20 74 69 6d 65 22 20 22 69 | al_symbol")..("internal.time"."i |
| 279980 | 6e 74 65 72 6e 61 6c 5f 74 69 6d 65 22 29 0a 09 28 22 69 6e 74 65 72 6e 61 6c 20 74 69 6d 65 20 | nternal_time")..("internal.time. |
| 2799a0 | 75 6e 69 74 22 20 22 69 6e 74 65 72 6e 61 6c 5f 74 69 6d 65 5f 75 6e 69 74 22 29 0a 09 28 22 69 | unit"."internal_time_unit")..("i |
| 2799c0 | 6e 74 65 72 6e 65 64 22 20 22 69 6e 74 65 72 6e 65 64 22 29 0a 09 28 22 69 6e 74 65 72 70 72 65 | nterned"."interned")..("interpre |
| 2799e0 | 74 65 64 20 66 75 6e 63 74 69 6f 6e 22 20 22 69 6e 74 65 72 70 72 65 74 65 64 5f 66 75 6e 63 74 | ted.function"."interpreted_funct |
| 279a00 | 69 6f 6e 22 29 0a 09 28 22 69 6e 74 65 72 70 72 65 74 65 64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 | ion")..("interpreted.implementat |
| 279a20 | 69 6f 6e 22 20 22 69 6e 74 65 72 70 72 65 74 65 64 5f 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ion"."interpreted_implementation |
| 279a40 | 22 29 0a 09 28 22 69 6e 74 65 72 76 61 6c 20 64 65 73 69 67 6e 61 74 6f 72 22 20 22 69 6e 74 65 | ")..("interval.designator"."inte |
| 279a60 | 72 76 61 6c 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 69 6e 76 61 6c 69 64 22 20 22 69 | rval_designator")..("invalid"."i |
| 279a80 | 6e 76 61 6c 69 64 22 29 0a 09 28 22 69 74 65 72 61 74 69 6f 6e 20 66 6f 72 6d 22 20 22 69 74 65 | nvalid")..("iteration.form"."ite |
| 279aa0 | 72 61 74 69 6f 6e 5f 66 6f 72 6d 22 29 0a 09 28 22 69 74 65 72 61 74 69 6f 6e 20 76 61 72 69 61 | ration_form")..("iteration.varia |
| 279ac0 | 62 6c 65 22 20 22 69 74 65 72 61 74 69 6f 6e 5f 76 61 72 69 61 62 6c 65 22 29 0a 09 28 22 6b 65 | ble"."iteration_variable")..("ke |
| 279ae0 | 79 22 20 22 6b 65 79 22 29 0a 09 28 22 6b 65 79 77 6f 72 64 22 20 22 6b 65 79 77 6f 72 64 22 29 | y"."key")..("keyword"."keyword") |
| 279b00 | 0a 09 28 22 6b 65 79 77 6f 72 64 20 70 61 72 61 6d 65 74 65 72 22 20 22 6b 65 79 77 6f 72 64 5f | ..("keyword.parameter"."keyword_ |
| 279b20 | 70 61 72 61 6d 65 74 65 72 22 29 0a 09 28 22 6b 65 79 77 6f 72 64 2f 76 61 6c 75 65 20 70 61 69 | parameter")..("keyword/value.pai |
| 279b40 | 72 22 20 22 6b 65 79 77 6f 72 64 53 4c 76 61 6c 75 65 5f 70 61 69 72 22 29 0a 09 28 22 4c 69 73 | r"."keywordSLvalue_pair")..("Lis |
| 279b60 | 70 20 69 6d 61 67 65 22 20 22 6c 69 73 70 5f 69 6d 61 67 65 22 29 0a 09 28 22 4c 69 73 70 20 70 | p.image"."lisp_image")..("Lisp.p |
| 279b80 | 72 69 6e 74 65 72 22 20 22 6c 69 73 70 5f 70 72 69 6e 74 65 72 22 29 0a 09 28 22 4c 69 73 70 20 | rinter"."lisp_printer")..("Lisp. |
| 279ba0 | 72 65 61 64 2d 65 76 61 6c 2d 70 72 69 6e 74 20 6c 6f 6f 70 22 20 22 6c 69 73 70 5f 72 65 61 64 | read-eval-print.loop"."lisp_read |
| 279bc0 | 2d 65 76 61 6c 2d 70 72 69 6e 74 5f 6c 6f 6f 70 22 29 0a 09 28 22 4c 69 73 70 20 72 65 61 64 65 | -eval-print_loop")..("Lisp.reade |
| 279be0 | 72 22 20 22 6c 69 73 70 5f 72 65 61 64 65 72 22 29 0a 09 28 22 6c 61 6d 62 64 61 20 63 6f 6d 62 | r"."lisp_reader")..("lambda.comb |
| 279c00 | 69 6e 61 74 69 6f 6e 22 20 22 6c 61 6d 62 64 61 5f 63 6f 6d 62 69 6e 61 74 69 6f 6e 22 29 0a 09 | ination"."lambda_combination").. |
| 279c20 | 28 22 6c 61 6d 62 64 61 20 65 78 70 72 65 73 73 69 6f 6e 22 20 22 6c 61 6d 62 64 61 5f 65 78 70 | ("lambda.expression"."lambda_exp |
| 279c40 | 72 65 73 73 69 6f 6e 22 29 0a 09 28 22 6c 61 6d 62 64 61 20 66 6f 72 6d 22 20 22 6c 61 6d 62 64 | ression")..("lambda.form"."lambd |
| 279c60 | 61 5f 66 6f 72 6d 22 29 0a 09 28 22 6c 61 6d 62 64 61 20 6c 69 73 74 22 20 22 6c 61 6d 62 64 61 | a_form")..("lambda.list"."lambda |
| 279c80 | 5f 6c 69 73 74 22 29 0a 09 28 22 6c 61 6d 62 64 61 20 6c 69 73 74 20 6b 65 79 77 6f 72 64 22 20 | _list")..("lambda.list.keyword". |
| 279ca0 | 22 6c 61 6d 62 64 61 5f 6c 69 73 74 5f 6b 65 79 77 6f 72 64 22 29 0a 09 28 22 6c 61 6d 62 64 61 | "lambda_list_keyword")..("lambda |
| 279cc0 | 20 76 61 72 69 61 62 6c 65 22 20 22 6c 61 6d 62 64 61 5f 76 61 72 69 61 62 6c 65 22 29 0a 09 28 | .variable"."lambda_variable")..( |
| 279ce0 | 22 6c 65 61 66 22 20 22 6c 65 61 66 22 29 0a 09 28 22 6c 65 61 70 20 73 65 63 6f 6e 64 73 22 20 | "leaf"."leaf")..("leap.seconds". |
| 279d00 | 22 6c 65 61 70 5f 73 65 63 6f 6e 64 73 22 29 0a 09 28 22 6c 65 66 74 2d 70 61 72 65 6e 74 68 65 | "leap_seconds")..("left-parenthe |
| 279d20 | 73 69 73 22 20 22 6c 65 66 74 2d 70 61 72 65 6e 74 68 65 73 69 73 22 29 0a 09 28 22 6c 65 6e 67 | sis"."left-parenthesis")..("leng |
| 279d40 | 74 68 22 20 22 6c 65 6e 67 74 68 22 29 0a 09 28 22 6c 65 78 69 63 61 6c 20 62 69 6e 64 69 6e 67 | th"."length")..("lexical.binding |
| 279d60 | 22 20 22 6c 65 78 69 63 61 6c 5f 62 69 6e 64 69 6e 67 22 29 0a 09 28 22 6c 65 78 69 63 61 6c 20 | "."lexical_binding")..("lexical. |
| 279d80 | 63 6c 6f 73 75 72 65 22 20 22 6c 65 78 69 63 61 6c 5f 63 6c 6f 73 75 72 65 22 29 0a 09 28 22 6c | closure"."lexical_closure")..("l |
| 279da0 | 65 78 69 63 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 20 22 6c 65 78 69 63 61 6c 5f 65 6e 76 | exical.environment"."lexical_env |
| 279dc0 | 69 72 6f 6e 6d 65 6e 74 22 29 0a 09 28 22 6c 65 78 69 63 61 6c 20 73 63 6f 70 65 22 20 22 6c 65 | ironment")..("lexical.scope"."le |
| 279de0 | 78 69 63 61 6c 5f 73 63 6f 70 65 22 29 0a 09 28 22 6c 65 78 69 63 61 6c 20 76 61 72 69 61 62 6c | xical_scope")..("lexical.variabl |
| 279e00 | 65 22 20 22 6c 65 78 69 63 61 6c 5f 76 61 72 69 61 62 6c 65 22 29 0a 09 28 22 6c 69 73 74 22 20 | e"."lexical_variable")..("list". |
| 279e20 | 22 6c 69 73 74 22 29 0a 09 28 22 6c 69 73 74 20 64 65 73 69 67 6e 61 74 6f 72 22 20 22 6c 69 73 | "list")..("list.designator"."lis |
| 279e40 | 74 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 6c 69 73 74 20 73 74 72 75 63 74 75 72 65 | t_designator")..("list.structure |
| 279e60 | 22 20 22 6c 69 73 74 5f 73 74 72 75 63 74 75 72 65 22 29 0a 09 28 22 6c 69 74 65 72 61 6c 22 20 | "."list_structure")..("literal". |
| 279e80 | 22 6c 69 74 65 72 61 6c 22 29 0a 09 28 22 6c 6f 61 64 22 20 22 6c 6f 61 64 22 29 0a 09 28 22 6c | "literal")..("load"."load")..("l |
| 279ea0 | 6f 61 64 20 74 69 6d 65 22 20 22 6c 6f 61 64 5f 74 69 6d 65 22 29 0a 09 28 22 6c 6f 61 64 20 74 | oad.time"."load_time")..("load.t |
| 279ec0 | 69 6d 65 20 76 61 6c 75 65 22 20 22 6c 6f 61 64 5f 74 69 6d 65 5f 76 61 6c 75 65 22 29 0a 09 28 | ime.value"."load_time_value")..( |
| 279ee0 | 22 6c 6f 61 64 65 72 22 20 22 6c 6f 61 64 65 72 22 29 0a 09 28 22 6c 6f 63 61 6c 20 64 65 63 6c | "loader"."loader")..("local.decl |
| 279f00 | 61 72 61 74 69 6f 6e 22 20 22 6c 6f 63 61 6c 5f 64 65 63 6c 61 72 61 74 69 6f 6e 22 29 0a 09 28 | aration"."local_declaration")..( |
| 279f20 | 22 6c 6f 63 61 6c 20 70 72 65 63 65 64 65 6e 63 65 20 6f 72 64 65 72 22 20 22 6c 6f 63 61 6c 5f | "local.precedence.order"."local_ |
| 279f40 | 70 72 65 63 65 64 65 6e 63 65 5f 6f 72 64 65 72 22 29 0a 09 28 22 6c 6f 63 61 6c 20 73 6c 6f 74 | precedence_order")..("local.slot |
| 279f60 | 22 20 22 6c 6f 63 61 6c 5f 73 6c 6f 74 22 29 0a 09 28 22 6c 6f 67 69 63 61 6c 20 62 6c 6f 63 6b | "."local_slot")..("logical.block |
| 279f80 | 22 20 22 6c 6f 67 69 63 61 6c 5f 62 6c 6f 63 6b 22 29 0a 09 28 22 6c 6f 67 69 63 61 6c 20 68 6f | "."logical_block")..("logical.ho |
| 279fa0 | 73 74 22 20 22 6c 6f 67 69 63 61 6c 5f 68 6f 73 74 22 29 0a 09 28 22 6c 6f 67 69 63 61 6c 20 68 | st"."logical_host")..("logical.h |
| 279fc0 | 6f 73 74 20 64 65 73 69 67 6e 61 74 6f 72 22 20 22 6c 6f 67 69 63 61 6c 5f 68 6f 73 74 5f 64 65 | ost.designator"."logical_host_de |
| 279fe0 | 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 6c 6f 67 69 63 61 6c 20 70 61 74 68 6e 61 6d 65 22 20 | signator")..("logical.pathname". |
| 27a000 | 22 6c 6f 67 69 63 61 6c 5f 70 61 74 68 6e 61 6d 65 22 29 0a 09 28 22 6c 6f 6e 67 20 66 6c 6f 61 | "logical_pathname")..("long.floa |
| 27a020 | 74 22 20 22 6c 6f 6e 67 5f 66 6c 6f 61 74 22 29 0a 09 28 22 6c 6f 6f 70 20 6b 65 79 77 6f 72 64 | t"."long_float")..("loop.keyword |
| 27a040 | 22 20 22 6c 6f 6f 70 5f 6b 65 79 77 6f 72 64 22 29 0a 09 28 22 6c 6f 77 65 72 63 61 73 65 22 20 | "."loop_keyword")..("lowercase". |
| 27a060 | 22 6c 6f 77 65 72 63 61 73 65 22 29 0a 09 28 22 4d 65 74 61 6f 62 6a 65 63 74 20 50 72 6f 74 6f | "lowercase")..("Metaobject.Proto |
| 27a080 | 63 6f 6c 22 20 22 6d 65 74 61 6f 62 6a 65 63 74 5f 70 72 6f 74 6f 63 6f 6c 22 29 0a 09 28 22 6d | col"."metaobject_protocol")..("m |
| 27a0a0 | 61 63 72 6f 22 20 22 6d 61 63 72 6f 22 29 0a 09 28 22 6d 61 63 72 6f 20 63 68 61 72 61 63 74 65 | acro"."macro")..("macro.characte |
| 27a0c0 | 72 22 20 22 6d 61 63 72 6f 5f 63 68 61 72 61 63 74 65 72 22 29 0a 09 28 22 6d 61 63 72 6f 20 65 | r"."macro_character")..("macro.e |
| 27a0e0 | 78 70 61 6e 73 69 6f 6e 22 20 22 6d 61 63 72 6f 5f 65 78 70 61 6e 73 69 6f 6e 22 29 0a 09 28 22 | xpansion"."macro_expansion")..(" |
| 27a100 | 6d 61 63 72 6f 20 66 6f 72 6d 22 20 22 6d 61 63 72 6f 5f 66 6f 72 6d 22 29 0a 09 28 22 6d 61 63 | macro.form"."macro_form")..("mac |
| 27a120 | 72 6f 20 66 75 6e 63 74 69 6f 6e 22 20 22 6d 61 63 72 6f 5f 66 75 6e 63 74 69 6f 6e 22 29 0a 09 | ro.function"."macro_function").. |
| 27a140 | 28 22 6d 61 63 72 6f 20 6c 61 6d 62 64 61 20 6c 69 73 74 22 20 22 6d 61 63 72 6f 5f 6c 61 6d 62 | ("macro.lambda.list"."macro_lamb |
| 27a160 | 64 61 5f 6c 69 73 74 22 29 0a 09 28 22 6d 61 63 72 6f 20 6e 61 6d 65 22 20 22 6d 61 63 72 6f 5f | da_list")..("macro.name"."macro_ |
| 27a180 | 6e 61 6d 65 22 29 0a 09 28 22 6d 61 63 72 6f 65 78 70 61 6e 64 20 68 6f 6f 6b 22 20 22 6d 61 63 | name")..("macroexpand.hook"."mac |
| 27a1a0 | 72 6f 65 78 70 61 6e 64 5f 68 6f 6f 6b 22 29 0a 09 28 22 6d 61 70 70 69 6e 67 22 20 22 6d 61 70 | roexpand_hook")..("mapping"."map |
| 27a1c0 | 70 69 6e 67 22 29 0a 09 28 22 6d 65 74 61 63 6c 61 73 73 22 20 22 6d 65 74 61 63 6c 61 73 73 22 | ping")..("metaclass"."metaclass" |
| 27a1e0 | 29 0a 09 28 22 6d 65 74 68 6f 64 22 20 22 6d 65 74 68 6f 64 22 29 0a 09 28 22 6d 65 74 68 6f 64 | )..("method"."method")..("method |
| 27a200 | 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 22 20 22 6d 65 74 68 6f 64 5f 63 6f 6d 62 69 6e 61 74 69 6f | .combination"."method_combinatio |
| 27a220 | 6e 22 29 0a 09 28 22 6d 65 74 68 6f 64 2d 64 65 66 69 6e 69 6e 67 20 66 6f 72 6d 22 20 22 6d 65 | n")..("method-defining.form"."me |
| 27a240 | 74 68 6f 64 2d 64 65 66 69 6e 69 6e 67 5f 66 6f 72 6d 22 29 0a 09 28 22 6d 65 74 68 6f 64 2d 64 | thod-defining_form")..("method-d |
| 27a260 | 65 66 69 6e 69 6e 67 20 6f 70 65 72 61 74 6f 72 22 20 22 6d 65 74 68 6f 64 2d 64 65 66 69 6e 69 | efining.operator"."method-defini |
| 27a280 | 6e 67 5f 6f 70 65 72 61 74 6f 72 22 29 0a 09 28 22 6d 69 6e 69 6d 61 6c 20 63 6f 6d 70 69 6c 61 | ng_operator")..("minimal.compila |
| 27a2a0 | 74 69 6f 6e 22 20 22 6d 69 6e 69 6d 61 6c 5f 63 6f 6d 70 69 6c 61 74 69 6f 6e 22 29 0a 09 28 22 | tion"."minimal_compilation")..(" |
| 27a2c0 | 6d 6f 64 69 66 69 65 64 20 6c 61 6d 62 64 61 20 6c 69 73 74 22 20 22 6d 6f 64 69 66 69 65 64 5f | modified.lambda.list"."modified_ |
| 27a2e0 | 6c 61 6d 62 64 61 5f 6c 69 73 74 22 29 0a 09 28 22 6d 6f 73 74 20 72 65 63 65 6e 74 22 20 22 6d | lambda_list")..("most.recent"."m |
| 27a300 | 6f 73 74 5f 72 65 63 65 6e 74 22 29 0a 09 28 22 6d 75 6c 74 69 70 6c 65 20 65 73 63 61 70 65 22 | ost_recent")..("multiple.escape" |
| 27a320 | 20 22 6d 75 6c 74 69 70 6c 65 5f 65 73 63 61 70 65 22 29 0a 09 28 22 6d 75 6c 74 69 70 6c 65 20 | ."multiple_escape")..("multiple. |
| 27a340 | 76 61 6c 75 65 73 22 20 22 6d 75 6c 74 69 70 6c 65 5f 76 61 6c 75 65 73 22 29 0a 09 28 22 6e 61 | values"."multiple_values")..("na |
| 27a360 | 6d 65 22 20 22 6e 61 6d 65 22 29 0a 09 28 22 6e 61 6d 65 64 20 63 6f 6e 73 74 61 6e 74 22 20 22 | me"."name")..("named.constant"." |
| 27a380 | 6e 61 6d 65 64 5f 63 6f 6e 73 74 61 6e 74 22 29 0a 09 28 22 6e 61 6d 65 73 70 61 63 65 22 20 22 | named_constant")..("namespace"." |
| 27a3a0 | 6e 61 6d 65 73 70 61 63 65 22 29 0a 09 28 22 6e 61 6d 65 73 74 72 69 6e 67 22 20 22 6e 61 6d 65 | namespace")..("namestring"."name |
| 27a3c0 | 73 74 72 69 6e 67 22 29 0a 09 28 22 6e 65 77 6c 69 6e 65 22 20 22 6e 65 77 6c 69 6e 65 22 29 0a | string")..("newline"."newline"). |
| 27a3e0 | 09 28 22 6e 65 78 74 20 6d 65 74 68 6f 64 22 20 22 6e 65 78 74 5f 6d 65 74 68 6f 64 22 29 0a 09 | .("next.method"."next_method").. |
| 27a400 | 28 22 6e 69 63 6b 6e 61 6d 65 22 20 22 6e 69 63 6b 6e 61 6d 65 22 29 0a 09 28 22 6e 69 6c 22 20 | ("nickname"."nickname")..("nil". |
| 27a420 | 22 6e 69 6c 22 29 0a 09 28 22 6e 6f 6e 2d 61 74 6f 6d 69 63 22 20 22 6e 6f 6e 2d 61 74 6f 6d 69 | "nil")..("non-atomic"."non-atomi |
| 27a440 | 63 22 29 0a 09 28 22 6e 6f 6e 2d 63 6f 6e 73 74 61 6e 74 20 76 61 72 69 61 62 6c 65 22 20 22 6e | c")..("non-constant.variable"."n |
| 27a460 | 6f 6e 2d 63 6f 6e 73 74 61 6e 74 5f 76 61 72 69 61 62 6c 65 22 29 0a 09 28 22 6e 6f 6e 2d 63 6f | on-constant_variable")..("non-co |
| 27a480 | 72 72 65 63 74 61 62 6c 65 22 20 22 6e 6f 6e 2d 63 6f 72 72 65 63 74 61 62 6c 65 22 29 0a 09 28 | rrectable"."non-correctable")..( |
| 27a4a0 | 22 6e 6f 6e 2d 65 6d 70 74 79 22 20 22 6e 6f 6e 2d 65 6d 70 74 79 22 29 0a 09 28 22 6e 6f 6e 2d | "non-empty"."non-empty")..("non- |
| 27a4c0 | 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 22 20 22 6e 6f 6e 2d 67 65 6e 65 72 69 63 5f 66 | generic.function"."non-generic_f |
| 27a4e0 | 75 6e 63 74 69 6f 6e 22 29 0a 09 28 22 6e 6f 6e 2d 67 72 61 70 68 69 63 22 20 22 6e 6f 6e 2d 67 | unction")..("non-graphic"."non-g |
| 27a500 | 72 61 70 68 69 63 22 29 0a 09 28 22 6e 6f 6e 2d 6c 69 73 74 22 20 22 6e 6f 6e 2d 6c 69 73 74 22 | raphic")..("non-list"."non-list" |
| 27a520 | 29 0a 09 28 22 6e 6f 6e 2d 6c 6f 63 61 6c 20 65 78 69 74 22 20 22 6e 6f 6e 2d 6c 6f 63 61 6c 5f | )..("non-local.exit"."non-local_ |
| 27a540 | 65 78 69 74 22 29 0a 09 28 22 6e 6f 6e 2d 6e 69 6c 22 20 22 6e 6f 6e 2d 6e 69 6c 22 29 0a 09 28 | exit")..("non-nil"."non-nil")..( |
| 27a560 | 22 6e 6f 6e 2d 6e 75 6c 6c 20 6c 65 78 69 63 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 20 22 | "non-null.lexical.environment"." |
| 27a580 | 6e 6f 6e 2d 6e 75 6c 6c 5f 6c 65 78 69 63 61 6c 5f 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 29 0a 09 | non-null_lexical_environment").. |
| 27a5a0 | 28 22 6e 6f 6e 2d 73 69 6d 70 6c 65 22 20 22 6e 6f 6e 2d 73 69 6d 70 6c 65 22 29 0a 09 28 22 6e | ("non-simple"."non-simple")..("n |
| 27a5c0 | 6f 6e 2d 74 65 72 6d 69 6e 61 74 69 6e 67 22 20 22 6e 6f 6e 2d 74 65 72 6d 69 6e 61 74 69 6e 67 | on-terminating"."non-terminating |
| 27a5e0 | 22 29 0a 09 28 22 6e 6f 6e 2d 74 6f 70 2d 6c 65 76 65 6c 20 66 6f 72 6d 22 20 22 6e 6f 6e 2d 74 | ")..("non-top-level.form"."non-t |
| 27a600 | 6f 70 2d 6c 65 76 65 6c 5f 66 6f 72 6d 22 29 0a 09 28 22 6e 6f 72 6d 61 6c 20 72 65 74 75 72 6e | op-level_form")..("normal.return |
| 27a620 | 22 20 22 6e 6f 72 6d 61 6c 5f 72 65 74 75 72 6e 22 29 0a 09 28 22 6e 6f 72 6d 61 6c 69 7a 65 64 | "."normal_return")..("normalized |
| 27a640 | 22 20 22 6e 6f 72 6d 61 6c 69 7a 65 64 22 29 0a 09 28 22 6e 75 6c 6c 22 20 22 6e 75 6c 6c 22 29 | "."normalized")..("null"."null") |
| 27a660 | 0a 09 28 22 6e 75 6c 6c 20 6c 65 78 69 63 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 20 22 6e | ..("null.lexical.environment"."n |
| 27a680 | 75 6c 6c 5f 6c 65 78 69 63 61 6c 5f 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 29 0a 09 28 22 6e 75 6d | ull_lexical_environment")..("num |
| 27a6a0 | 62 65 72 22 20 22 6e 75 6d 62 65 72 22 29 0a 09 28 22 6e 75 6d 65 72 69 63 22 20 22 6e 75 6d 65 | ber"."number")..("numeric"."nume |
| 27a6c0 | 72 69 63 22 29 0a 09 28 22 6f 62 6a 65 63 74 22 20 22 6f 62 6a 65 63 74 22 29 0a 09 28 22 6f 62 | ric")..("object"."object")..("ob |
| 27a6e0 | 6a 65 63 74 2d 74 72 61 76 65 72 73 69 6e 67 22 20 22 6f 62 6a 65 63 74 2d 74 72 61 76 65 72 73 | ject-traversing"."object-travers |
| 27a700 | 69 6e 67 22 29 0a 09 28 22 6f 70 65 6e 22 20 22 6f 70 65 6e 22 29 0a 09 28 22 6f 70 65 72 61 74 | ing")..("open"."open")..("operat |
| 27a720 | 6f 72 22 20 22 6f 70 65 72 61 74 6f 72 22 29 0a 09 28 22 6f 70 74 69 6d 69 7a 65 20 71 75 61 6c | or"."operator")..("optimize.qual |
| 27a740 | 69 74 79 22 20 22 6f 70 74 69 6d 69 7a 65 5f 71 75 61 6c 69 74 79 22 29 0a 09 28 22 6f 70 74 69 | ity"."optimize_quality")..("opti |
| 27a760 | 6f 6e 61 6c 20 70 61 72 61 6d 65 74 65 72 22 20 22 6f 70 74 69 6f 6e 61 6c 5f 70 61 72 61 6d 65 | onal.parameter"."optional_parame |
| 27a780 | 74 65 72 22 29 0a 09 28 22 6f 72 64 69 6e 61 72 79 20 66 75 6e 63 74 69 6f 6e 22 20 22 6f 72 64 | ter")..("ordinary.function"."ord |
| 27a7a0 | 69 6e 61 72 79 5f 66 75 6e 63 74 69 6f 6e 22 29 0a 09 28 22 6f 72 64 69 6e 61 72 79 20 6c 61 6d | inary_function")..("ordinary.lam |
| 27a7c0 | 62 64 61 20 6c 69 73 74 22 20 22 6f 72 64 69 6e 61 72 79 5f 6c 61 6d 62 64 61 5f 6c 69 73 74 22 | bda.list"."ordinary_lambda_list" |
| 27a7e0 | 29 0a 09 28 22 6f 74 68 65 72 77 69 73 65 20 69 6e 61 63 63 65 73 73 69 62 6c 65 20 70 61 72 74 | )..("otherwise.inaccessible.part |
| 27a800 | 22 20 22 6f 74 68 65 72 77 69 73 65 5f 69 6e 61 63 63 65 73 73 69 62 6c 65 5f 70 61 72 74 22 29 | "."otherwise_inaccessible_part") |
| 27a820 | 0a 09 28 22 6f 75 74 70 75 74 22 20 22 6f 75 74 70 75 74 22 29 0a 09 28 22 70 61 63 6b 61 67 65 | ..("output"."output")..("package |
| 27a840 | 22 20 22 70 61 63 6b 61 67 65 22 29 0a 09 28 22 70 61 63 6b 61 67 65 20 63 65 6c 6c 22 20 22 70 | "."package")..("package.cell"."p |
| 27a860 | 61 63 6b 61 67 65 5f 63 65 6c 6c 22 29 0a 09 28 22 70 61 63 6b 61 67 65 20 64 65 73 69 67 6e 61 | ackage_cell")..("package.designa |
| 27a880 | 74 6f 72 22 20 22 70 61 63 6b 61 67 65 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 70 61 | tor"."package_designator")..("pa |
| 27a8a0 | 63 6b 61 67 65 20 6d 61 72 6b 65 72 22 20 22 70 61 63 6b 61 67 65 5f 6d 61 72 6b 65 72 22 29 0a | ckage.marker"."package_marker"). |
| 27a8c0 | 09 28 22 70 61 63 6b 61 67 65 20 70 72 65 66 69 78 22 20 22 70 61 63 6b 61 67 65 5f 70 72 65 66 | .("package.prefix"."package_pref |
| 27a8e0 | 69 78 22 29 0a 09 28 22 70 61 63 6b 61 67 65 20 72 65 67 69 73 74 72 79 22 20 22 70 61 63 6b 61 | ix")..("package.registry"."packa |
| 27a900 | 67 65 5f 72 65 67 69 73 74 72 79 22 29 0a 09 28 22 70 61 69 72 77 69 73 65 22 20 22 70 61 69 72 | ge_registry")..("pairwise"."pair |
| 27a920 | 77 69 73 65 22 29 0a 09 28 22 70 61 72 61 6c 6c 65 6c 22 20 22 70 61 72 61 6c 6c 65 6c 22 29 0a | wise")..("parallel"."parallel"). |
| 27a940 | 09 28 22 70 61 72 61 6d 65 74 65 72 22 20 22 70 61 72 61 6d 65 74 65 72 22 29 0a 09 28 22 70 61 | .("parameter"."parameter")..("pa |
| 27a960 | 72 61 6d 65 74 65 72 20 73 70 65 63 69 61 6c 69 7a 65 72 22 20 22 70 61 72 61 6d 65 74 65 72 5f | rameter.specializer"."parameter_ |
| 27a980 | 73 70 65 63 69 61 6c 69 7a 65 72 22 29 0a 09 28 22 70 61 72 61 6d 65 74 65 72 20 73 70 65 63 69 | specializer")..("parameter.speci |
| 27a9a0 | 61 6c 69 7a 65 72 20 6e 61 6d 65 22 20 22 70 61 72 61 6d 65 74 65 72 5f 73 70 65 63 69 61 6c 69 | alizer.name"."parameter_speciali |
| 27a9c0 | 7a 65 72 5f 6e 61 6d 65 22 29 0a 09 28 22 70 61 74 68 6e 61 6d 65 22 20 22 70 61 74 68 6e 61 6d | zer_name")..("pathname"."pathnam |
| 27a9e0 | 65 22 29 0a 09 28 22 70 61 74 68 6e 61 6d 65 20 64 65 73 69 67 6e 61 74 6f 72 22 20 22 70 61 74 | e")..("pathname.designator"."pat |
| 27aa00 | 68 6e 61 6d 65 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 70 68 79 73 69 63 61 6c 20 70 | hname_designator")..("physical.p |
| 27aa20 | 61 74 68 6e 61 6d 65 22 20 22 70 68 79 73 69 63 61 6c 5f 70 61 74 68 6e 61 6d 65 22 29 0a 09 28 | athname"."physical_pathname")..( |
| 27aa40 | 22 70 6c 61 63 65 22 20 22 70 6c 61 63 65 22 29 0a 09 28 22 70 6c 69 73 74 22 20 22 70 6c 69 73 | "place"."place")..("plist"."plis |
| 27aa60 | 74 22 29 0a 09 28 22 70 6f 72 74 61 62 6c 65 22 20 22 70 6f 72 74 61 62 6c 65 22 29 0a 09 28 22 | t")..("portable"."portable")..(" |
| 27aa80 | 70 6f 74 65 6e 74 69 61 6c 20 63 6f 70 79 22 20 22 70 6f 74 65 6e 74 69 61 6c 5f 63 6f 70 79 22 | potential.copy"."potential_copy" |
| 27aaa0 | 29 0a 09 28 22 70 6f 74 65 6e 74 69 61 6c 20 6e 75 6d 62 65 72 22 20 22 70 6f 74 65 6e 74 69 61 | )..("potential.number"."potentia |
| 27aac0 | 6c 5f 6e 75 6d 62 65 72 22 29 0a 09 28 22 70 70 72 69 6e 74 20 64 69 73 70 61 74 63 68 20 74 61 | l_number")..("pprint.dispatch.ta |
| 27aae0 | 62 6c 65 22 20 22 70 70 72 69 6e 74 5f 64 69 73 70 61 74 63 68 5f 74 61 62 6c 65 22 29 0a 09 28 | ble"."pprint_dispatch_table")..( |
| 27ab00 | 22 70 72 65 64 69 63 61 74 65 22 20 22 70 72 65 64 69 63 61 74 65 22 29 0a 09 28 22 70 72 65 73 | "predicate"."predicate")..("pres |
| 27ab20 | 65 6e 74 22 20 22 70 72 65 73 65 6e 74 22 29 0a 09 28 22 70 72 65 74 74 79 20 70 72 69 6e 74 22 | ent"."present")..("pretty.print" |
| 27ab40 | 20 22 70 72 65 74 74 79 5f 70 72 69 6e 74 22 29 0a 09 28 22 70 72 65 74 74 79 20 70 72 69 6e 74 | ."pretty_print")..("pretty.print |
| 27ab60 | 65 72 22 20 22 70 72 65 74 74 79 5f 70 72 69 6e 74 65 72 22 29 0a 09 28 22 70 72 65 74 74 79 20 | er"."pretty_printer")..("pretty. |
| 27ab80 | 70 72 69 6e 74 69 6e 67 20 73 74 72 65 61 6d 22 20 22 70 72 65 74 74 79 5f 70 72 69 6e 74 69 6e | printing.stream"."pretty_printin |
| 27aba0 | 67 5f 73 74 72 65 61 6d 22 29 0a 09 28 22 70 72 69 6d 61 72 79 20 6d 65 74 68 6f 64 22 20 22 70 | g_stream")..("primary.method"."p |
| 27abc0 | 72 69 6d 61 72 79 5f 6d 65 74 68 6f 64 22 29 0a 09 28 22 70 72 69 6d 61 72 79 20 76 61 6c 75 65 | rimary_method")..("primary.value |
| 27abe0 | 22 20 22 70 72 69 6d 61 72 79 5f 76 61 6c 75 65 22 29 0a 09 28 22 70 72 69 6e 63 69 70 61 6c 22 | "."primary_value")..("principal" |
| 27ac00 | 20 22 70 72 69 6e 63 69 70 61 6c 22 29 0a 09 28 22 70 72 69 6e 74 20 6e 61 6d 65 22 20 22 70 72 | ."principal")..("print.name"."pr |
| 27ac20 | 69 6e 74 5f 6e 61 6d 65 22 29 0a 09 28 22 70 72 69 6e 74 65 72 20 63 6f 6e 74 72 6f 6c 20 76 61 | int_name")..("printer.control.va |
| 27ac40 | 72 69 61 62 6c 65 22 20 22 70 72 69 6e 74 65 72 5f 63 6f 6e 74 72 6f 6c 5f 76 61 72 69 61 62 6c | riable"."printer_control_variabl |
| 27ac60 | 65 22 29 0a 09 28 22 70 72 69 6e 74 65 72 20 65 73 63 61 70 69 6e 67 22 20 22 70 72 69 6e 74 65 | e")..("printer.escaping"."printe |
| 27ac80 | 72 5f 65 73 63 61 70 69 6e 67 22 29 0a 09 28 22 70 72 69 6e 74 69 6e 67 22 20 22 70 72 69 6e 74 | r_escaping")..("printing"."print |
| 27aca0 | 69 6e 67 22 29 0a 09 28 22 70 72 6f 63 65 73 73 22 20 22 70 72 6f 63 65 73 73 22 29 0a 09 28 22 | ing")..("process"."process")..(" |
| 27acc0 | 70 72 6f 63 65 73 73 6f 72 22 20 22 70 72 6f 63 65 73 73 6f 72 22 29 0a 09 28 22 70 72 6f 63 6c | processor"."processor")..("procl |
| 27ace0 | 61 69 6d 22 20 22 70 72 6f 63 6c 61 69 6d 22 29 0a 09 28 22 70 72 6f 63 6c 61 6d 61 74 69 6f 6e | aim"."proclaim")..("proclamation |
| 27ad00 | 22 20 22 70 72 6f 63 6c 61 6d 61 74 69 6f 6e 22 29 0a 09 28 22 70 72 6f 67 20 74 61 67 22 20 22 | "."proclamation")..("prog.tag"." |
| 27ad20 | 70 72 6f 67 5f 74 61 67 22 29 0a 09 28 22 70 72 6f 67 72 61 6d 22 20 22 70 72 6f 67 72 61 6d 22 | prog_tag")..("program"."program" |
| 27ad40 | 29 0a 09 28 22 70 72 6f 67 72 61 6d 6d 65 72 22 20 22 70 72 6f 67 72 61 6d 6d 65 72 22 29 0a 09 | )..("programmer"."programmer").. |
| 27ad60 | 28 22 70 72 6f 67 72 61 6d 6d 65 72 20 63 6f 64 65 22 20 22 70 72 6f 67 72 61 6d 6d 65 72 5f 63 | ("programmer.code"."programmer_c |
| 27ad80 | 6f 64 65 22 29 0a 09 28 22 70 72 6f 70 65 72 20 6c 69 73 74 22 20 22 70 72 6f 70 65 72 5f 6c 69 | ode")..("proper.list"."proper_li |
| 27ada0 | 73 74 22 29 0a 09 28 22 70 72 6f 70 65 72 20 6e 61 6d 65 22 20 22 70 72 6f 70 65 72 5f 6e 61 6d | st")..("proper.name"."proper_nam |
| 27adc0 | 65 22 29 0a 09 28 22 70 72 6f 70 65 72 20 73 65 71 75 65 6e 63 65 22 20 22 70 72 6f 70 65 72 5f | e")..("proper.sequence"."proper_ |
| 27ade0 | 73 65 71 75 65 6e 63 65 22 29 0a 09 28 22 70 72 6f 70 65 72 20 73 75 62 74 79 70 65 22 20 22 70 | sequence")..("proper.subtype"."p |
| 27ae00 | 72 6f 70 65 72 5f 73 75 62 74 79 70 65 22 29 0a 09 28 22 70 72 6f 70 65 72 74 79 22 20 22 70 72 | roper_subtype")..("property"."pr |
| 27ae20 | 6f 70 65 72 74 79 22 29 0a 09 28 22 70 72 6f 70 65 72 74 79 20 69 6e 64 69 63 61 74 6f 72 22 20 | operty")..("property.indicator". |
| 27ae40 | 22 70 72 6f 70 65 72 74 79 5f 69 6e 64 69 63 61 74 6f 72 22 29 0a 09 28 22 70 72 6f 70 65 72 74 | "property_indicator")..("propert |
| 27ae60 | 79 20 6c 69 73 74 22 20 22 70 72 6f 70 65 72 74 79 5f 6c 69 73 74 22 29 0a 09 28 22 70 72 6f 70 | y.list"."property_list")..("prop |
| 27ae80 | 65 72 74 79 20 76 61 6c 75 65 22 20 22 70 72 6f 70 65 72 74 79 5f 76 61 6c 75 65 22 29 0a 09 28 | erty.value"."property_value")..( |
| 27aea0 | 22 70 75 72 70 6f 72 74 73 20 74 6f 20 63 6f 6e 66 6f 72 6d 22 20 22 70 75 72 70 6f 72 74 73 5f | "purports.to.conform"."purports_ |
| 27aec0 | 74 6f 5f 63 6f 6e 66 6f 72 6d 22 29 0a 09 28 22 71 75 61 6c 69 66 69 65 64 20 6d 65 74 68 6f 64 | to_conform")..("qualified.method |
| 27aee0 | 22 20 22 71 75 61 6c 69 66 69 65 64 5f 6d 65 74 68 6f 64 22 29 0a 09 28 22 71 75 61 6c 69 66 69 | "."qualified_method")..("qualifi |
| 27af00 | 65 72 22 20 22 71 75 61 6c 69 66 69 65 72 22 29 0a 09 28 22 71 75 65 72 79 20 49 2f 4f 22 20 22 | er"."qualifier")..("query.I/O"." |
| 27af20 | 71 75 65 72 79 5f 69 53 4c 6f 22 29 0a 09 28 22 71 75 6f 74 65 64 20 6f 62 6a 65 63 74 22 20 22 | query_iSLo")..("quoted.object"." |
| 27af40 | 71 75 6f 74 65 64 5f 6f 62 6a 65 63 74 22 29 0a 09 28 22 72 61 64 69 78 22 20 22 72 61 64 69 78 | quoted_object")..("radix"."radix |
| 27af60 | 22 29 0a 09 28 22 72 61 6e 64 6f 6d 20 73 74 61 74 65 22 20 22 72 61 6e 64 6f 6d 5f 73 74 61 74 | ")..("random.state"."random_stat |
| 27af80 | 65 22 29 0a 09 28 22 72 61 6e 6b 22 20 22 72 61 6e 6b 22 29 0a 09 28 22 72 61 74 69 6f 22 20 22 | e")..("rank"."rank")..("ratio"." |
| 27afa0 | 72 61 74 69 6f 22 29 0a 09 28 22 72 61 74 69 6f 20 6d 61 72 6b 65 72 22 20 22 72 61 74 69 6f 5f | ratio")..("ratio.marker"."ratio_ |
| 27afc0 | 6d 61 72 6b 65 72 22 29 0a 09 28 22 72 61 74 69 6f 6e 61 6c 22 20 22 72 61 74 69 6f 6e 61 6c 22 | marker")..("rational"."rational" |
| 27afe0 | 29 0a 09 28 22 72 65 61 64 22 20 22 72 65 61 64 22 29 0a 09 28 22 72 65 61 64 61 62 6c 79 22 20 | )..("read"."read")..("readably". |
| 27b000 | 22 72 65 61 64 61 62 6c 79 22 29 0a 09 28 22 72 65 61 64 65 72 22 20 22 72 65 61 64 65 72 22 29 | "readably")..("reader"."reader") |
| 27b020 | 0a 09 28 22 72 65 61 64 65 72 20 6d 61 63 72 6f 22 20 22 72 65 61 64 65 72 5f 6d 61 63 72 6f 22 | ..("reader.macro"."reader_macro" |
| 27b040 | 29 0a 09 28 22 72 65 61 64 65 72 20 6d 61 63 72 6f 20 66 75 6e 63 74 69 6f 6e 22 20 22 72 65 61 | )..("reader.macro.function"."rea |
| 27b060 | 64 65 72 5f 6d 61 63 72 6f 5f 66 75 6e 63 74 69 6f 6e 22 29 0a 09 28 22 72 65 61 64 74 61 62 6c | der_macro_function")..("readtabl |
| 27b080 | 65 22 20 22 72 65 61 64 74 61 62 6c 65 22 29 0a 09 28 22 72 65 61 64 74 61 62 6c 65 20 63 61 73 | e"."readtable")..("readtable.cas |
| 27b0a0 | 65 22 20 22 72 65 61 64 74 61 62 6c 65 5f 63 61 73 65 22 29 0a 09 28 22 72 65 61 64 74 61 62 6c | e"."readtable_case")..("readtabl |
| 27b0c0 | 65 20 64 65 73 69 67 6e 61 74 6f 72 22 20 22 72 65 61 64 74 61 62 6c 65 5f 64 65 73 69 67 6e 61 | e.designator"."readtable_designa |
| 27b0e0 | 74 6f 72 22 29 0a 09 28 22 72 65 63 6f 67 6e 69 7a 61 62 6c 65 20 73 75 62 74 79 70 65 22 20 22 | tor")..("recognizable.subtype"." |
| 27b100 | 72 65 63 6f 67 6e 69 7a 61 62 6c 65 5f 73 75 62 74 79 70 65 22 29 0a 09 28 22 72 65 66 65 72 65 | recognizable_subtype")..("refere |
| 27b120 | 6e 63 65 22 20 22 72 65 66 65 72 65 6e 63 65 22 29 0a 09 28 22 72 65 67 69 73 74 65 72 65 64 20 | nce"."reference")..("registered. |
| 27b140 | 70 61 63 6b 61 67 65 22 20 22 72 65 67 69 73 74 65 72 65 64 5f 70 61 63 6b 61 67 65 22 29 0a 09 | package"."registered_package").. |
| 27b160 | 28 22 72 65 6c 61 74 69 76 65 22 20 22 72 65 6c 61 74 69 76 65 22 29 0a 09 28 22 72 65 70 65 72 | ("relative"."relative")..("reper |
| 27b180 | 74 6f 69 72 65 22 20 22 72 65 70 65 72 74 6f 69 72 65 22 29 0a 09 28 22 72 65 70 6f 72 74 22 20 | toire"."repertoire")..("report". |
| 27b1a0 | 22 72 65 70 6f 72 74 22 29 0a 09 28 22 72 65 70 6f 72 74 20 6d 65 73 73 61 67 65 22 20 22 72 65 | "report")..("report.message"."re |
| 27b1c0 | 70 6f 72 74 5f 6d 65 73 73 61 67 65 22 29 0a 09 28 22 72 65 71 75 69 72 65 64 20 70 61 72 61 6d | port_message")..("required.param |
| 27b1e0 | 65 74 65 72 22 20 22 72 65 71 75 69 72 65 64 5f 70 61 72 61 6d 65 74 65 72 22 29 0a 09 28 22 72 | eter"."required_parameter")..("r |
| 27b200 | 65 73 74 20 6c 69 73 74 22 20 22 72 65 73 74 5f 6c 69 73 74 22 29 0a 09 28 22 72 65 73 74 20 70 | est.list"."rest_list")..("rest.p |
| 27b220 | 61 72 61 6d 65 74 65 72 22 20 22 72 65 73 74 5f 70 61 72 61 6d 65 74 65 72 22 29 0a 09 28 22 72 | arameter"."rest_parameter")..("r |
| 27b240 | 65 73 74 61 72 74 22 20 22 72 65 73 74 61 72 74 22 29 0a 09 28 22 72 65 73 74 61 72 74 20 64 65 | estart"."restart")..("restart.de |
| 27b260 | 73 69 67 6e 61 74 6f 72 22 20 22 72 65 73 74 61 72 74 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 0a | signator"."restart_designator"). |
| 27b280 | 09 28 22 72 65 73 74 61 72 74 20 66 75 6e 63 74 69 6f 6e 22 20 22 72 65 73 74 61 72 74 5f 66 75 | .("restart.function"."restart_fu |
| 27b2a0 | 6e 63 74 69 6f 6e 22 29 0a 09 28 22 72 65 74 75 72 6e 22 20 22 72 65 74 75 72 6e 22 29 0a 09 28 | nction")..("return"."return")..( |
| 27b2c0 | 22 72 65 74 75 72 6e 20 76 61 6c 75 65 22 20 22 72 65 74 75 72 6e 5f 76 61 6c 75 65 22 29 0a 09 | "return.value"."return_value").. |
| 27b2e0 | 28 22 72 69 67 68 74 2d 70 61 72 65 6e 74 68 65 73 69 73 22 20 22 72 69 67 68 74 2d 70 61 72 65 | ("right-parenthesis"."right-pare |
| 27b300 | 6e 74 68 65 73 69 73 22 29 0a 09 28 22 72 75 6e 20 74 69 6d 65 22 20 22 72 75 6e 5f 74 69 6d 65 | nthesis")..("run.time"."run_time |
| 27b320 | 22 29 0a 09 28 22 72 75 6e 2d 74 69 6d 65 20 63 6f 6d 70 69 6c 65 72 22 20 22 72 75 6e 2d 74 69 | ")..("run-time.compiler"."run-ti |
| 27b340 | 6d 65 5f 63 6f 6d 70 69 6c 65 72 22 29 0a 09 28 22 72 75 6e 2d 74 69 6d 65 20 64 65 66 69 6e 69 | me_compiler")..("run-time.defini |
| 27b360 | 74 69 6f 6e 22 20 22 72 75 6e 2d 74 69 6d 65 5f 64 65 66 69 6e 69 74 69 6f 6e 22 29 0a 09 28 22 | tion"."run-time_definition")..(" |
| 27b380 | 72 75 6e 2d 74 69 6d 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 20 22 72 75 6e 2d 74 69 6d 65 5f | run-time.environment"."run-time_ |
| 27b3a0 | 65 6e 76 69 72 6f 6e 6d 65 6e 74 22 29 0a 09 28 22 73 61 66 65 22 20 22 73 61 66 65 22 29 0a 09 | environment")..("safe"."safe").. |
| 27b3c0 | 28 22 73 61 66 65 20 63 61 6c 6c 22 20 22 73 61 66 65 5f 63 61 6c 6c 22 29 0a 09 28 22 73 61 6d | ("safe.call"."safe_call")..("sam |
| 27b3e0 | 65 22 20 22 73 61 6d 65 22 29 0a 09 28 22 73 61 74 69 73 66 79 20 74 68 65 20 74 65 73 74 22 20 | e"."same")..("satisfy.the.test". |
| 27b400 | 22 73 61 74 69 73 66 79 5f 74 68 65 5f 74 65 73 74 22 29 0a 09 28 22 73 63 6f 70 65 22 20 22 73 | "satisfy_the_test")..("scope"."s |
| 27b420 | 63 6f 70 65 22 29 0a 09 28 22 73 63 72 69 70 74 22 20 22 73 63 72 69 70 74 22 29 0a 09 28 22 73 | cope")..("script"."script")..("s |
| 27b440 | 65 63 6f 6e 64 61 72 79 20 76 61 6c 75 65 22 20 22 73 65 63 6f 6e 64 61 72 79 5f 76 61 6c 75 65 | econdary.value"."secondary_value |
| 27b460 | 22 29 0a 09 28 22 73 65 63 74 69 6f 6e 22 20 22 73 65 63 74 69 6f 6e 22 29 0a 09 28 22 73 65 6c | ")..("section"."section")..("sel |
| 27b480 | 66 2d 65 76 61 6c 75 61 74 69 6e 67 20 6f 62 6a 65 63 74 22 20 22 73 65 6c 66 2d 65 76 61 6c 75 | f-evaluating.object"."self-evalu |
| 27b4a0 | 61 74 69 6e 67 5f 6f 62 6a 65 63 74 22 29 0a 09 28 22 73 65 6d 69 2d 73 74 61 6e 64 61 72 64 22 | ating_object")..("semi-standard" |
| 27b4c0 | 20 22 73 65 6d 69 2d 73 74 61 6e 64 61 72 64 22 29 0a 09 28 22 73 65 6d 69 63 6f 6c 6f 6e 22 20 | ."semi-standard")..("semicolon". |
| 27b4e0 | 22 73 65 6d 69 63 6f 6c 6f 6e 22 29 0a 09 28 22 73 65 71 75 65 6e 63 65 22 20 22 73 65 71 75 65 | "semicolon")..("sequence"."seque |
| 27b500 | 6e 63 65 22 29 0a 09 28 22 73 65 71 75 65 6e 63 65 20 66 75 6e 63 74 69 6f 6e 22 20 22 73 65 71 | nce")..("sequence.function"."seq |
| 27b520 | 75 65 6e 63 65 5f 66 75 6e 63 74 69 6f 6e 22 29 0a 09 28 22 73 65 71 75 65 6e 74 69 61 6c 22 20 | uence_function")..("sequential". |
| 27b540 | 22 73 65 71 75 65 6e 74 69 61 6c 22 29 0a 09 28 22 73 65 71 75 65 6e 74 69 61 6c 6c 79 22 20 22 | "sequential")..("sequentially"." |
| 27b560 | 73 65 71 75 65 6e 74 69 61 6c 6c 79 22 29 0a 09 28 22 73 65 72 69 6f 75 73 20 63 6f 6e 64 69 74 | sequentially")..("serious.condit |
| 27b580 | 69 6f 6e 22 20 22 73 65 72 69 6f 75 73 5f 63 6f 6e 64 69 74 69 6f 6e 22 29 0a 09 28 22 73 65 73 | ion"."serious_condition")..("ses |
| 27b5a0 | 73 69 6f 6e 22 20 22 73 65 73 73 69 6f 6e 22 29 0a 09 28 22 73 65 74 22 20 22 73 65 74 22 29 0a | sion"."session")..("set"."set"). |
| 27b5c0 | 09 28 22 73 65 74 66 20 65 78 70 61 6e 64 65 72 22 20 22 73 65 74 66 5f 65 78 70 61 6e 64 65 72 | .("setf.expander"."setf_expander |
| 27b5e0 | 22 29 0a 09 28 22 73 65 74 66 20 65 78 70 61 6e 73 69 6f 6e 22 20 22 73 65 74 66 5f 65 78 70 61 | ")..("setf.expansion"."setf_expa |
| 27b600 | 6e 73 69 6f 6e 22 29 0a 09 28 22 73 65 74 66 20 66 75 6e 63 74 69 6f 6e 22 20 22 73 65 74 66 5f | nsion")..("setf.function"."setf_ |
| 27b620 | 66 75 6e 63 74 69 6f 6e 22 29 0a 09 28 22 73 65 74 66 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 | function")..("setf.function.name |
| 27b640 | 22 20 22 73 65 74 66 5f 66 75 6e 63 74 69 6f 6e 5f 6e 61 6d 65 22 29 0a 09 28 22 73 68 61 64 6f | "."setf_function_name")..("shado |
| 27b660 | 77 22 20 22 73 68 61 64 6f 77 22 29 0a 09 28 22 73 68 61 64 6f 77 69 6e 67 20 73 79 6d 62 6f 6c | w"."shadow")..("shadowing.symbol |
| 27b680 | 22 20 22 73 68 61 64 6f 77 69 6e 67 5f 73 79 6d 62 6f 6c 22 29 0a 09 28 22 73 68 61 64 6f 77 69 | "."shadowing_symbol")..("shadowi |
| 27b6a0 | 6e 67 20 73 79 6d 62 6f 6c 73 20 6c 69 73 74 22 20 22 73 68 61 64 6f 77 69 6e 67 5f 73 79 6d 62 | ng.symbols.list"."shadowing_symb |
| 27b6c0 | 6f 6c 73 5f 6c 69 73 74 22 29 0a 09 28 22 73 68 61 72 65 64 20 73 6c 6f 74 22 20 22 73 68 61 72 | ols_list")..("shared.slot"."shar |
| 27b6e0 | 65 64 5f 73 6c 6f 74 22 29 0a 09 28 22 73 68 61 72 70 73 69 67 6e 22 20 22 73 68 61 72 70 73 69 | ed_slot")..("sharpsign"."sharpsi |
| 27b700 | 67 6e 22 29 0a 09 28 22 73 68 6f 72 74 20 66 6c 6f 61 74 22 20 22 73 68 6f 72 74 5f 66 6c 6f 61 | gn")..("short.float"."short_floa |
| 27b720 | 74 22 29 0a 09 28 22 73 69 67 6e 22 20 22 73 69 67 6e 22 29 0a 09 28 22 73 69 67 6e 61 6c 22 20 | t")..("sign"."sign")..("signal". |
| 27b740 | 22 73 69 67 6e 61 6c 22 29 0a 09 28 22 73 69 67 6e 61 74 75 72 65 22 20 22 73 69 67 6e 61 74 75 | "signal")..("signature"."signatu |
| 27b760 | 72 65 22 29 0a 09 28 22 73 69 6d 69 6c 61 72 22 20 22 73 69 6d 69 6c 61 72 22 29 0a 09 28 22 73 | re")..("similar"."similar")..("s |
| 27b780 | 69 6d 69 6c 61 72 69 74 79 22 20 22 73 69 6d 69 6c 61 72 69 74 79 22 29 0a 09 28 22 73 69 6d 70 | imilarity"."similarity")..("simp |
| 27b7a0 | 6c 65 22 20 22 73 69 6d 70 6c 65 22 29 0a 09 28 22 73 69 6d 70 6c 65 20 61 72 72 61 79 22 20 22 | le"."simple")..("simple.array"." |
| 27b7c0 | 73 69 6d 70 6c 65 5f 61 72 72 61 79 22 29 0a 09 28 22 73 69 6d 70 6c 65 20 62 69 74 20 61 72 72 | simple_array")..("simple.bit.arr |
| 27b7e0 | 61 79 22 20 22 73 69 6d 70 6c 65 5f 62 69 74 5f 61 72 72 61 79 22 29 0a 09 28 22 73 69 6d 70 6c | ay"."simple_bit_array")..("simpl |
| 27b800 | 65 20 62 69 74 20 76 65 63 74 6f 72 22 20 22 73 69 6d 70 6c 65 5f 62 69 74 5f 76 65 63 74 6f 72 | e.bit.vector"."simple_bit_vector |
| 27b820 | 22 29 0a 09 28 22 73 69 6d 70 6c 65 20 63 6f 6e 64 69 74 69 6f 6e 22 20 22 73 69 6d 70 6c 65 5f | ")..("simple.condition"."simple_ |
| 27b840 | 63 6f 6e 64 69 74 69 6f 6e 22 29 0a 09 28 22 73 69 6d 70 6c 65 20 67 65 6e 65 72 61 6c 20 76 65 | condition")..("simple.general.ve |
| 27b860 | 63 74 6f 72 22 20 22 73 69 6d 70 6c 65 5f 67 65 6e 65 72 61 6c 5f 76 65 63 74 6f 72 22 29 0a 09 | ctor"."simple_general_vector").. |
| 27b880 | 28 22 73 69 6d 70 6c 65 20 73 74 72 69 6e 67 22 20 22 73 69 6d 70 6c 65 5f 73 74 72 69 6e 67 22 | ("simple.string"."simple_string" |
| 27b8a0 | 29 0a 09 28 22 73 69 6d 70 6c 65 20 76 65 63 74 6f 72 22 20 22 73 69 6d 70 6c 65 5f 76 65 63 74 | )..("simple.vector"."simple_vect |
| 27b8c0 | 6f 72 22 29 0a 09 28 22 73 69 6e 67 6c 65 20 65 73 63 61 70 65 22 20 22 73 69 6e 67 6c 65 5f 65 | or")..("single.escape"."single_e |
| 27b8e0 | 73 63 61 70 65 22 29 0a 09 28 22 73 69 6e 67 6c 65 20 66 6c 6f 61 74 22 20 22 73 69 6e 67 6c 65 | scape")..("single.float"."single |
| 27b900 | 5f 66 6c 6f 61 74 22 29 0a 09 28 22 73 69 6e 67 6c 65 2d 71 75 6f 74 65 22 20 22 73 69 6e 67 6c | _float")..("single-quote"."singl |
| 27b920 | 65 2d 71 75 6f 74 65 22 29 0a 09 28 22 73 69 6e 67 6c 65 74 6f 6e 22 20 22 73 69 6e 67 6c 65 74 | e-quote")..("singleton"."singlet |
| 27b940 | 6f 6e 22 29 0a 09 28 22 73 69 74 75 61 74 69 6f 6e 22 20 22 73 69 74 75 61 74 69 6f 6e 22 29 0a | on")..("situation"."situation"). |
| 27b960 | 09 28 22 73 6c 61 73 68 22 20 22 73 6c 61 73 68 22 29 0a 09 28 22 73 6c 6f 74 22 20 22 73 6c 6f | .("slash"."slash")..("slot"."slo |
| 27b980 | 74 22 29 0a 09 28 22 73 6c 6f 74 20 73 70 65 63 69 66 69 65 72 22 20 22 73 6c 6f 74 5f 73 70 65 | t")..("slot.specifier"."slot_spe |
| 27b9a0 | 63 69 66 69 65 72 22 29 0a 09 28 22 73 6f 75 72 63 65 20 63 6f 64 65 22 20 22 73 6f 75 72 63 65 | cifier")..("source.code"."source |
| 27b9c0 | 5f 63 6f 64 65 22 29 0a 09 28 22 73 6f 75 72 63 65 20 66 69 6c 65 22 20 22 73 6f 75 72 63 65 5f | _code")..("source.file"."source_ |
| 27b9e0 | 66 69 6c 65 22 29 0a 09 28 22 73 70 61 63 65 22 20 22 73 70 61 63 65 22 29 0a 09 28 22 73 70 65 | file")..("space"."space")..("spe |
| 27ba00 | 63 69 61 6c 20 66 6f 72 6d 22 20 22 73 70 65 63 69 61 6c 5f 66 6f 72 6d 22 29 0a 09 28 22 73 70 | cial.form"."special_form")..("sp |
| 27ba20 | 65 63 69 61 6c 20 6f 70 65 72 61 74 6f 72 22 20 22 73 70 65 63 69 61 6c 5f 6f 70 65 72 61 74 6f | ecial.operator"."special_operato |
| 27ba40 | 72 22 29 0a 09 28 22 73 70 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 22 20 22 73 70 65 63 69 61 | r")..("special.variable"."specia |
| 27ba60 | 6c 5f 76 61 72 69 61 62 6c 65 22 29 0a 09 28 22 73 70 65 63 69 61 6c 69 7a 65 22 20 22 73 70 65 | l_variable")..("specialize"."spe |
| 27ba80 | 63 69 61 6c 69 7a 65 22 29 0a 09 28 22 73 70 65 63 69 61 6c 69 7a 65 64 22 20 22 73 70 65 63 69 | cialize")..("specialized"."speci |
| 27baa0 | 61 6c 69 7a 65 64 22 29 0a 09 28 22 73 70 65 63 69 61 6c 69 7a 65 64 20 6c 61 6d 62 64 61 20 6c | alized")..("specialized.lambda.l |
| 27bac0 | 69 73 74 22 20 22 73 70 65 63 69 61 6c 69 7a 65 64 5f 6c 61 6d 62 64 61 5f 6c 69 73 74 22 29 0a | ist"."specialized_lambda_list"). |
| 27bae0 | 09 28 22 73 70 72 65 61 64 61 62 6c 65 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 64 65 73 69 | .("spreadable.argument.list.desi |
| 27bb00 | 67 6e 61 74 6f 72 22 20 22 73 70 72 65 61 64 61 62 6c 65 5f 61 72 67 75 6d 65 6e 74 5f 6c 69 73 | gnator"."spreadable_argument_lis |
| 27bb20 | 74 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 73 74 61 63 6b 20 61 6c 6c 6f 63 61 74 65 | t_designator")..("stack.allocate |
| 27bb40 | 22 20 22 73 74 61 63 6b 5f 61 6c 6c 6f 63 61 74 65 22 29 0a 09 28 22 73 74 61 63 6b 2d 61 6c 6c | "."stack_allocate")..("stack-all |
| 27bb60 | 6f 63 61 74 65 64 22 20 22 73 74 61 63 6b 2d 61 6c 6c 6f 63 61 74 65 64 22 29 0a 09 28 22 73 74 | ocated"."stack-allocated")..("st |
| 27bb80 | 61 6e 64 61 72 64 20 63 68 61 72 61 63 74 65 72 22 20 22 73 74 61 6e 64 61 72 64 5f 63 68 61 72 | andard.character"."standard_char |
| 27bba0 | 61 63 74 65 72 22 29 0a 09 28 22 73 74 61 6e 64 61 72 64 20 63 6c 61 73 73 22 20 22 73 74 61 6e | acter")..("standard.class"."stan |
| 27bbc0 | 64 61 72 64 5f 63 6c 61 73 73 22 29 0a 09 28 22 73 74 61 6e 64 61 72 64 20 67 65 6e 65 72 69 63 | dard_class")..("standard.generic |
| 27bbe0 | 20 66 75 6e 63 74 69 6f 6e 22 20 22 73 74 61 6e 64 61 72 64 5f 67 65 6e 65 72 69 63 5f 66 75 6e | .function"."standard_generic_fun |
| 27bc00 | 63 74 69 6f 6e 22 29 0a 09 28 22 73 74 61 6e 64 61 72 64 20 69 6e 70 75 74 22 20 22 73 74 61 6e | ction")..("standard.input"."stan |
| 27bc20 | 64 61 72 64 5f 69 6e 70 75 74 22 29 0a 09 28 22 73 74 61 6e 64 61 72 64 20 6d 65 74 68 6f 64 20 | dard_input")..("standard.method. |
| 27bc40 | 63 6f 6d 62 69 6e 61 74 69 6f 6e 22 20 22 73 74 61 6e 64 61 72 64 5f 6d 65 74 68 6f 64 5f 63 6f | combination"."standard_method_co |
| 27bc60 | 6d 62 69 6e 61 74 69 6f 6e 22 29 0a 09 28 22 73 74 61 6e 64 61 72 64 20 6f 62 6a 65 63 74 22 20 | mbination")..("standard.object". |
| 27bc80 | 22 73 74 61 6e 64 61 72 64 5f 6f 62 6a 65 63 74 22 29 0a 09 28 22 73 74 61 6e 64 61 72 64 20 6f | "standard_object")..("standard.o |
| 27bca0 | 75 74 70 75 74 22 20 22 73 74 61 6e 64 61 72 64 5f 6f 75 74 70 75 74 22 29 0a 09 28 22 73 74 61 | utput"."standard_output")..("sta |
| 27bcc0 | 6e 64 61 72 64 20 70 70 72 69 6e 74 20 64 69 73 70 61 74 63 68 20 74 61 62 6c 65 22 20 22 73 74 | ndard.pprint.dispatch.table"."st |
| 27bce0 | 61 6e 64 61 72 64 5f 70 70 72 69 6e 74 5f 64 69 73 70 61 74 63 68 5f 74 61 62 6c 65 22 29 0a 09 | andard_pprint_dispatch_table").. |
| 27bd00 | 28 22 73 74 61 6e 64 61 72 64 20 72 65 61 64 74 61 62 6c 65 22 20 22 73 74 61 6e 64 61 72 64 5f | ("standard.readtable"."standard_ |
| 27bd20 | 72 65 61 64 74 61 62 6c 65 22 29 0a 09 28 22 73 74 61 6e 64 61 72 64 20 73 79 6e 74 61 78 22 20 | readtable")..("standard.syntax". |
| 27bd40 | 22 73 74 61 6e 64 61 72 64 5f 73 79 6e 74 61 78 22 29 0a 09 28 22 73 74 61 6e 64 61 72 64 69 7a | "standard_syntax")..("standardiz |
| 27bd60 | 65 64 22 20 22 73 74 61 6e 64 61 72 64 69 7a 65 64 22 29 0a 09 28 22 73 74 61 72 74 75 70 20 65 | ed"."standardized")..("startup.e |
| 27bd80 | 6e 76 69 72 6f 6e 6d 65 6e 74 22 20 22 73 74 61 72 74 75 70 5f 65 6e 76 69 72 6f 6e 6d 65 6e 74 | nvironment"."startup_environment |
| 27bda0 | 22 29 0a 09 28 22 73 74 65 70 22 20 22 73 74 65 70 22 29 0a 09 28 22 73 74 72 65 61 6d 22 20 22 | ")..("step"."step")..("stream"." |
| 27bdc0 | 73 74 72 65 61 6d 22 29 0a 09 28 22 73 74 72 65 61 6d 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 | stream")..("stream.associated.wi |
| 27bde0 | 74 68 20 61 20 66 69 6c 65 22 20 22 73 74 72 65 61 6d 5f 61 73 73 6f 63 69 61 74 65 64 5f 77 69 | th.a.file"."stream_associated_wi |
| 27be00 | 74 68 5f 61 5f 66 69 6c 65 22 29 0a 09 28 22 73 74 72 65 61 6d 20 64 65 73 69 67 6e 61 74 6f 72 | th_a_file")..("stream.designator |
| 27be20 | 22 20 22 73 74 72 65 61 6d 5f 64 65 73 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 73 74 72 65 61 6d | "."stream_designator")..("stream |
| 27be40 | 20 65 6c 65 6d 65 6e 74 20 74 79 70 65 22 20 22 73 74 72 65 61 6d 5f 65 6c 65 6d 65 6e 74 5f 74 | .element.type"."stream_element_t |
| 27be60 | 79 70 65 22 29 0a 09 28 22 73 74 72 65 61 6d 20 76 61 72 69 61 62 6c 65 22 20 22 73 74 72 65 61 | ype")..("stream.variable"."strea |
| 27be80 | 6d 5f 76 61 72 69 61 62 6c 65 22 29 0a 09 28 22 73 74 72 65 61 6d 20 76 61 72 69 61 62 6c 65 20 | m_variable")..("stream.variable. |
| 27bea0 | 64 65 73 69 67 6e 61 74 6f 72 22 20 22 73 74 72 65 61 6d 5f 76 61 72 69 61 62 6c 65 5f 64 65 73 | designator"."stream_variable_des |
| 27bec0 | 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 73 74 72 69 6e 67 22 20 22 73 74 72 69 6e 67 22 29 0a 09 | ignator")..("string"."string").. |
| 27bee0 | 28 22 73 74 72 69 6e 67 20 64 65 73 69 67 6e 61 74 6f 72 22 20 22 73 74 72 69 6e 67 5f 64 65 73 | ("string.designator"."string_des |
| 27bf00 | 69 67 6e 61 74 6f 72 22 29 0a 09 28 22 73 74 72 69 6e 67 20 65 71 75 61 6c 22 20 22 73 74 72 69 | ignator")..("string.equal"."stri |
| 27bf20 | 6e 67 5f 65 71 75 61 6c 22 29 0a 09 28 22 73 74 72 69 6e 67 20 73 74 72 65 61 6d 22 20 22 73 74 | ng_equal")..("string.stream"."st |
| 27bf40 | 72 69 6e 67 5f 73 74 72 65 61 6d 22 29 0a 09 28 22 73 74 72 75 63 74 75 72 65 22 20 22 73 74 72 | ring_stream")..("structure"."str |
| 27bf60 | 75 63 74 75 72 65 22 29 0a 09 28 22 73 74 72 75 63 74 75 72 65 20 63 6c 61 73 73 22 20 22 73 74 | ucture")..("structure.class"."st |
| 27bf80 | 72 75 63 74 75 72 65 5f 63 6c 61 73 73 22 29 0a 09 28 22 73 74 72 75 63 74 75 72 65 20 6e 61 6d | ructure_class")..("structure.nam |
| 27bfa0 | 65 22 20 22 73 74 72 75 63 74 75 72 65 5f 6e 61 6d 65 22 29 0a 09 28 22 73 74 79 6c 65 20 77 61 | e"."structure_name")..("style.wa |
| 27bfc0 | 72 6e 69 6e 67 22 20 22 73 74 79 6c 65 5f 77 61 72 6e 69 6e 67 22 29 0a 09 28 22 73 75 62 63 6c | rning"."style_warning")..("subcl |
| 27bfe0 | 61 73 73 22 20 22 73 75 62 63 6c 61 73 73 22 29 0a 09 28 22 73 75 62 65 78 70 72 65 73 73 69 6f | ass"."subclass")..("subexpressio |
| 27c000 | 6e 22 20 22 73 75 62 65 78 70 72 65 73 73 69 6f 6e 22 29 0a 09 28 22 73 75 62 66 6f 72 6d 22 20 | n"."subexpression")..("subform". |
| 27c020 | 22 73 75 62 66 6f 72 6d 22 29 0a 09 28 22 73 75 62 72 65 70 65 72 74 6f 69 72 65 22 20 22 73 75 | "subform")..("subrepertoire"."su |
| 27c040 | 62 72 65 70 65 72 74 6f 69 72 65 22 29 0a 09 28 22 73 75 62 74 79 70 65 22 20 22 73 75 62 74 79 | brepertoire")..("subtype"."subty |
| 27c060 | 70 65 22 29 0a 09 28 22 73 75 70 65 72 63 6c 61 73 73 22 20 22 73 75 70 65 72 63 6c 61 73 73 22 | pe")..("superclass"."superclass" |
| 27c080 | 29 0a 09 28 22 73 75 70 65 72 74 79 70 65 22 20 22 73 75 70 65 72 74 79 70 65 22 29 0a 09 28 22 | )..("supertype"."supertype")..(" |
| 27c0a0 | 73 75 70 70 6c 69 65 64 2d 70 20 70 61 72 61 6d 65 74 65 72 22 20 22 73 75 70 70 6c 69 65 64 2d | supplied-p.parameter"."supplied- |
| 27c0c0 | 70 5f 70 61 72 61 6d 65 74 65 72 22 29 0a 09 28 22 73 79 6d 62 6f 6c 22 20 22 73 79 6d 62 6f 6c | p_parameter")..("symbol"."symbol |
| 27c0e0 | 22 29 0a 09 28 22 73 79 6d 62 6f 6c 20 6d 61 63 72 6f 22 20 22 73 79 6d 62 6f 6c 5f 6d 61 63 72 | ")..("symbol.macro"."symbol_macr |
| 27c100 | 6f 22 29 0a 09 28 22 73 79 6e 6f 6e 79 6d 20 73 74 72 65 61 6d 22 20 22 73 79 6e 6f 6e 79 6d 5f | o")..("synonym.stream"."synonym_ |
| 27c120 | 73 74 72 65 61 6d 22 29 0a 09 28 22 73 79 6e 6f 6e 79 6d 20 73 74 72 65 61 6d 20 73 79 6d 62 6f | stream")..("synonym.stream.symbo |
| 27c140 | 6c 22 20 22 73 79 6e 6f 6e 79 6d 5f 73 74 72 65 61 6d 5f 73 79 6d 62 6f 6c 22 29 0a 09 28 22 73 | l"."synonym_stream_symbol")..("s |
| 27c160 | 79 6e 74 61 78 20 74 79 70 65 22 20 22 73 79 6e 74 61 78 5f 74 79 70 65 22 29 0a 09 28 22 73 79 | yntax.type"."syntax_type")..("sy |
| 27c180 | 73 74 65 6d 20 63 6c 61 73 73 22 20 22 73 79 73 74 65 6d 5f 63 6c 61 73 73 22 29 0a 09 28 22 73 | stem.class"."system_class")..("s |
| 27c1a0 | 79 73 74 65 6d 20 63 6f 64 65 22 20 22 73 79 73 74 65 6d 5f 63 6f 64 65 22 29 0a 09 28 22 74 22 | ystem.code"."system_code")..("t" |
| 27c1c0 | 20 22 74 22 29 0a 09 28 22 74 61 67 22 20 22 74 61 67 22 29 0a 09 28 22 74 61 69 6c 22 20 22 74 | ."t")..("tag"."tag")..("tail"."t |
| 27c1e0 | 61 69 6c 22 29 0a 09 28 22 74 61 72 67 65 74 22 20 22 74 61 72 67 65 74 22 29 0a 09 28 22 74 65 | ail")..("target"."target")..("te |
| 27c200 | 72 6d 69 6e 61 6c 20 49 2f 4f 22 20 22 74 65 72 6d 69 6e 61 6c 5f 69 53 4c 6f 22 29 0a 09 28 22 | rminal.I/O"."terminal_iSLo")..(" |
| 27c220 | 74 65 72 6d 69 6e 61 74 69 6e 67 22 20 22 74 65 72 6d 69 6e 61 74 69 6e 67 22 29 0a 09 28 22 74 | terminating"."terminating")..("t |
| 27c240 | 65 72 74 69 61 72 79 20 76 61 6c 75 65 22 20 22 74 65 72 74 69 61 72 79 5f 76 61 6c 75 65 22 29 | ertiary.value"."tertiary_value") |
| 27c260 | 0a 09 28 22 74 68 72 6f 77 22 20 22 74 68 72 6f 77 22 29 0a 09 28 22 74 69 6c 64 65 22 20 22 74 | ..("throw"."throw")..("tilde"."t |
| 27c280 | 69 6c 64 65 22 29 0a 09 28 22 74 69 6d 65 22 20 22 74 69 6d 65 22 29 0a 09 28 22 74 69 6d 65 20 | ilde")..("time"."time")..("time. |
| 27c2a0 | 7a 6f 6e 65 22 20 22 74 69 6d 65 5f 7a 6f 6e 65 22 29 0a 09 28 22 74 6f 6b 65 6e 22 20 22 74 6f | zone"."time_zone")..("token"."to |
| 27c2c0 | 6b 65 6e 22 29 0a 09 28 22 74 6f 70 20 6c 65 76 65 6c 20 66 6f 72 6d 22 20 22 74 6f 70 5f 6c 65 | ken")..("top.level.form"."top_le |
| 27c2e0 | 76 65 6c 5f 66 6f 72 6d 22 29 0a 09 28 22 74 72 61 63 65 20 6f 75 74 70 75 74 22 20 22 74 72 61 | vel_form")..("trace.output"."tra |
| 27c300 | 63 65 5f 6f 75 74 70 75 74 22 29 0a 09 28 22 74 72 65 65 22 20 22 74 72 65 65 22 29 0a 09 28 22 | ce_output")..("tree"."tree")..(" |
| 27c320 | 74 72 65 65 20 73 74 72 75 63 74 75 72 65 22 20 22 74 72 65 65 5f 73 74 72 75 63 74 75 72 65 22 | tree.structure"."tree_structure" |
| 27c340 | 29 0a 09 28 22 74 72 75 65 22 20 22 74 72 75 65 22 29 0a 09 28 22 74 72 75 65 6e 61 6d 65 22 20 | )..("true"."true")..("truename". |
| 27c360 | 22 74 72 75 65 6e 61 6d 65 22 29 0a 09 28 22 74 77 6f 2d 77 61 79 20 73 74 72 65 61 6d 22 20 22 | "truename")..("two-way.stream"." |
| 27c380 | 74 77 6f 2d 77 61 79 5f 73 74 72 65 61 6d 22 29 0a 09 28 22 74 79 70 65 22 20 22 74 79 70 65 22 | two-way_stream")..("type"."type" |
| 27c3a0 | 29 0a 09 28 22 74 79 70 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 22 20 22 74 79 70 65 5f 64 65 63 | )..("type.declaration"."type_dec |
| 27c3c0 | 6c 61 72 61 74 69 6f 6e 22 29 0a 09 28 22 74 79 70 65 20 65 71 75 69 76 61 6c 65 6e 74 22 20 22 | laration")..("type.equivalent"." |
| 27c3e0 | 74 79 70 65 5f 65 71 75 69 76 61 6c 65 6e 74 22 29 0a 09 28 22 74 79 70 65 20 65 78 70 61 6e 64 | type_equivalent")..("type.expand |
| 27c400 | 22 20 22 74 79 70 65 5f 65 78 70 61 6e 64 22 29 0a 09 28 22 74 79 70 65 20 73 70 65 63 69 66 69 | "."type_expand")..("type.specifi |
| 27c420 | 65 72 22 20 22 74 79 70 65 5f 73 70 65 63 69 66 69 65 72 22 29 0a 09 28 22 75 6e 62 6f 75 6e 64 | er"."type_specifier")..("unbound |
| 27c440 | 22 20 22 75 6e 62 6f 75 6e 64 22 29 0a 09 28 22 75 6e 62 6f 75 6e 64 20 76 61 72 69 61 62 6c 65 | "."unbound")..("unbound.variable |
| 27c460 | 22 20 22 75 6e 62 6f 75 6e 64 5f 76 61 72 69 61 62 6c 65 22 29 0a 09 28 22 75 6e 64 65 66 69 6e | "."unbound_variable")..("undefin |
| 27c480 | 65 64 20 66 75 6e 63 74 69 6f 6e 22 20 22 75 6e 64 65 66 69 6e 65 64 5f 66 75 6e 63 74 69 6f 6e | ed.function"."undefined_function |
| 27c4a0 | 22 29 0a 09 28 22 75 6e 69 6e 74 65 72 6e 22 20 22 75 6e 69 6e 74 65 72 6e 22 29 0a 09 28 22 75 | ")..("unintern"."unintern")..("u |
| 27c4c0 | 6e 69 6e 74 65 72 6e 65 64 22 20 22 75 6e 69 6e 74 65 72 6e 65 64 22 29 0a 09 28 22 75 6e 69 76 | ninterned"."uninterned")..("univ |
| 27c4e0 | 65 72 73 61 6c 20 74 69 6d 65 22 20 22 75 6e 69 76 65 72 73 61 6c 5f 74 69 6d 65 22 29 0a 09 28 | ersal.time"."universal_time")..( |
| 27c500 | 22 75 6e 71 75 61 6c 69 66 69 65 64 20 6d 65 74 68 6f 64 22 20 22 75 6e 71 75 61 6c 69 66 69 65 | "unqualified.method"."unqualifie |
| 27c520 | 64 5f 6d 65 74 68 6f 64 22 29 0a 09 28 22 75 6e 72 65 67 69 73 74 65 72 65 64 20 70 61 63 6b 61 | d_method")..("unregistered.packa |
| 27c540 | 67 65 22 20 22 75 6e 72 65 67 69 73 74 65 72 65 64 5f 70 61 63 6b 61 67 65 22 29 0a 09 28 22 75 | ge"."unregistered_package")..("u |
| 27c560 | 6e 73 61 66 65 22 20 22 75 6e 73 61 66 65 22 29 0a 09 28 22 75 6e 73 61 66 65 20 63 61 6c 6c 22 | nsafe"."unsafe")..("unsafe.call" |
| 27c580 | 20 22 75 6e 73 61 66 65 5f 63 61 6c 6c 22 29 0a 09 28 22 75 70 67 72 61 64 65 22 20 22 75 70 67 | ."unsafe_call")..("upgrade"."upg |
| 27c5a0 | 72 61 64 65 22 29 0a 09 28 22 75 70 67 72 61 64 65 64 20 61 72 72 61 79 20 65 6c 65 6d 65 6e 74 | rade")..("upgraded.array.element |
| 27c5c0 | 20 74 79 70 65 22 20 22 75 70 67 72 61 64 65 64 5f 61 72 72 61 79 5f 65 6c 65 6d 65 6e 74 5f 74 | .type"."upgraded_array_element_t |
| 27c5e0 | 79 70 65 22 29 0a 09 28 22 75 70 67 72 61 64 65 64 20 63 6f 6d 70 6c 65 78 20 70 61 72 74 20 74 | ype")..("upgraded.complex.part.t |
| 27c600 | 79 70 65 22 20 22 75 70 67 72 61 64 65 64 5f 63 6f 6d 70 6c 65 78 5f 70 61 72 74 5f 74 79 70 65 | ype"."upgraded_complex_part_type |
| 27c620 | 22 29 0a 09 28 22 75 70 70 65 72 63 61 73 65 22 20 22 75 70 70 65 72 63 61 73 65 22 29 0a 09 28 | ")..("uppercase"."uppercase")..( |
| 27c640 | 22 75 73 65 22 20 22 75 73 65 22 29 0a 09 28 22 75 73 65 20 6c 69 73 74 22 20 22 75 73 65 5f 6c | "use"."use")..("use.list"."use_l |
| 27c660 | 69 73 74 22 29 0a 09 28 22 75 73 65 72 22 20 22 75 73 65 72 22 29 0a 09 28 22 76 61 6c 69 64 20 | ist")..("user"."user")..("valid. |
| 27c680 | 61 72 72 61 79 20 64 69 6d 65 6e 73 69 6f 6e 22 20 22 76 61 6c 69 64 5f 61 72 72 61 79 5f 64 69 | array.dimension"."valid_array_di |
| 27c6a0 | 6d 65 6e 73 69 6f 6e 22 29 0a 09 28 22 76 61 6c 69 64 20 61 72 72 61 79 20 69 6e 64 65 78 22 20 | mension")..("valid.array.index". |
| 27c6c0 | 22 76 61 6c 69 64 5f 61 72 72 61 79 5f 69 6e 64 65 78 22 29 0a 09 28 22 76 61 6c 69 64 20 61 72 | "valid_array_index")..("valid.ar |
| 27c6e0 | 72 61 79 20 72 6f 77 2d 6d 61 6a 6f 72 20 69 6e 64 65 78 22 20 22 76 61 6c 69 64 5f 61 72 72 61 | ray.row-major.index"."valid_arra |
| 27c700 | 79 5f 72 6f 77 2d 6d 61 6a 6f 72 5f 69 6e 64 65 78 22 29 0a 09 28 22 76 61 6c 69 64 20 66 69 6c | y_row-major_index")..("valid.fil |
| 27c720 | 6c 20 70 6f 69 6e 74 65 72 22 20 22 76 61 6c 69 64 5f 66 69 6c 6c 5f 70 6f 69 6e 74 65 72 22 29 | l.pointer"."valid_fill_pointer") |
| 27c740 | 0a 09 28 22 76 61 6c 69 64 20 6c 6f 67 69 63 61 6c 20 70 61 74 68 6e 61 6d 65 20 68 6f 73 74 22 | ..("valid.logical.pathname.host" |
| 27c760 | 20 22 76 61 6c 69 64 5f 6c 6f 67 69 63 61 6c 5f 70 61 74 68 6e 61 6d 65 5f 68 6f 73 74 22 29 0a | ."valid_logical_pathname_host"). |
| 27c780 | 09 28 22 76 61 6c 69 64 20 70 61 74 68 6e 61 6d 65 20 64 65 76 69 63 65 22 20 22 76 61 6c 69 64 | .("valid.pathname.device"."valid |
| 27c7a0 | 5f 70 61 74 68 6e 61 6d 65 5f 64 65 76 69 63 65 22 29 0a 09 28 22 76 61 6c 69 64 20 70 61 74 68 | _pathname_device")..("valid.path |
| 27c7c0 | 6e 61 6d 65 20 64 69 72 65 63 74 6f 72 79 22 20 22 76 61 6c 69 64 5f 70 61 74 68 6e 61 6d 65 5f | name.directory"."valid_pathname_ |
| 27c7e0 | 64 69 72 65 63 74 6f 72 79 22 29 0a 09 28 22 76 61 6c 69 64 20 70 61 74 68 6e 61 6d 65 20 68 6f | directory")..("valid.pathname.ho |
| 27c800 | 73 74 22 20 22 76 61 6c 69 64 5f 70 61 74 68 6e 61 6d 65 5f 68 6f 73 74 22 29 0a 09 28 22 76 61 | st"."valid_pathname_host")..("va |
| 27c820 | 6c 69 64 20 70 61 74 68 6e 61 6d 65 20 6e 61 6d 65 22 20 22 76 61 6c 69 64 5f 70 61 74 68 6e 61 | lid.pathname.name"."valid_pathna |
| 27c840 | 6d 65 5f 6e 61 6d 65 22 29 0a 09 28 22 76 61 6c 69 64 20 70 61 74 68 6e 61 6d 65 20 74 79 70 65 | me_name")..("valid.pathname.type |
| 27c860 | 22 20 22 76 61 6c 69 64 5f 70 61 74 68 6e 61 6d 65 5f 74 79 70 65 22 29 0a 09 28 22 76 61 6c 69 | "."valid_pathname_type")..("vali |
| 27c880 | 64 20 70 61 74 68 6e 61 6d 65 20 76 65 72 73 69 6f 6e 22 20 22 76 61 6c 69 64 5f 70 61 74 68 6e | d.pathname.version"."valid_pathn |
| 27c8a0 | 61 6d 65 5f 76 65 72 73 69 6f 6e 22 29 0a 09 28 22 76 61 6c 69 64 20 70 68 79 73 69 63 61 6c 20 | ame_version")..("valid.physical. |
| 27c8c0 | 70 61 74 68 6e 61 6d 65 20 68 6f 73 74 22 20 22 76 61 6c 69 64 5f 70 68 79 73 69 63 61 6c 5f 70 | pathname.host"."valid_physical_p |
| 27c8e0 | 61 74 68 6e 61 6d 65 5f 68 6f 73 74 22 29 0a 09 28 22 76 61 6c 69 64 20 73 65 71 75 65 6e 63 65 | athname_host")..("valid.sequence |
| 27c900 | 20 69 6e 64 65 78 22 20 22 76 61 6c 69 64 5f 73 65 71 75 65 6e 63 65 5f 69 6e 64 65 78 22 29 0a | .index"."valid_sequence_index"). |
| 27c920 | 09 28 22 76 61 6c 75 65 22 20 22 76 61 6c 75 65 22 29 0a 09 28 22 76 61 6c 75 65 20 63 65 6c 6c | .("value"."value")..("value.cell |
| 27c940 | 22 20 22 76 61 6c 75 65 5f 63 65 6c 6c 22 29 0a 09 28 22 76 61 72 69 61 62 6c 65 22 20 22 76 61 | "."value_cell")..("variable"."va |
| 27c960 | 72 69 61 62 6c 65 22 29 0a 09 28 22 76 65 63 74 6f 72 22 20 22 76 65 63 74 6f 72 22 29 0a 09 28 | riable")..("vector"."vector")..( |
| 27c980 | 22 76 65 72 74 69 63 61 6c 2d 62 61 72 22 20 22 76 65 72 74 69 63 61 6c 2d 62 61 72 22 29 0a 09 | "vertical-bar"."vertical-bar").. |
| 27c9a0 | 28 22 77 68 69 74 65 73 70 61 63 65 22 20 22 77 68 69 74 65 73 70 61 63 65 22 29 0a 09 28 22 77 | ("whitespace"."whitespace")..("w |
| 27c9c0 | 69 6c 64 22 20 22 77 69 6c 64 22 29 0a 09 28 22 77 72 69 74 65 22 20 22 77 72 69 74 65 22 29 0a | ild"."wild")..("write"."write"). |
| 27c9e0 | 09 28 22 77 72 69 74 65 72 22 20 22 77 72 69 74 65 72 22 29 0a 09 28 22 79 69 65 6c 64 22 20 22 | .("writer"."writer")..("yield"." |
| 27ca00 | 79 69 65 6c 64 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 | yield")))..(defun.common-lisp-hy |
| 27ca20 | 70 65 72 73 70 65 63 2d 67 6c 6f 73 73 61 72 79 2d 74 65 72 6d 20 28 74 65 72 6d 29 0a 20 20 22 | perspec-glossary-term.(term)..." |
| 27ca40 | 56 69 65 77 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 54 45 52 4d 20 6f 6e 20 74 | View.the.definition.of.TERM.on.t |
| 27ca60 | 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 48 79 70 65 72 73 70 65 63 2e 22 0a 20 20 28 69 6e | he.Common.Lisp.Hyperspec."...(in |
| 27ca80 | 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 0a 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 | teractive....(list.....(completi |
| 27caa0 | 6e 67 2d 72 65 61 64 20 22 4c 6f 6f 6b 20 75 70 20 67 6c 6f 73 73 61 72 79 20 74 65 72 6d 3a 20 | ng-read."Look.up.glossary.term:. |
| 27cac0 | 22 0a 09 09 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d | "........common-lisp-hyperspec-- |
| 27cae0 | 67 6c 6f 73 73 61 72 79 2d 74 65 72 6d 73 20 6e 69 6c 20 74 29 29 29 0a 20 20 28 62 72 6f 77 73 | glossary-terms.nil.t)))...(brows |
| 27cb00 | 65 2d 75 72 6c 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 | e-url.(funcall.common-lisp-hyper |
| 27cb20 | 73 70 65 63 2d 67 6c 6f 73 73 61 72 79 2d 66 75 6e 63 74 69 6f 6e 20 74 65 72 6d 29 29 29 0a 0a | spec-glossary-function.term))).. |
| 27cb40 | 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 67 6c 6f 73 73 61 72 79 2d 36 2e 30 20 | (defun.common-lisp-glossary-6.0. |
| 27cb60 | 28 74 65 72 6d 29 0a 20 20 22 47 65 74 20 61 20 55 52 4c 20 66 6f 72 20 61 20 67 6c 6f 73 73 61 | (term)..."Get.a.URL.for.a.glossa |
| 27cb80 | 72 79 20 74 65 72 6d 20 54 45 52 4d 2e 22 0a 20 20 28 6c 65 74 20 28 28 61 6e 63 68 6f 72 20 28 | ry.term.TERM."...(let.((anchor.( |
| 27cba0 | 67 65 74 68 61 73 68 20 74 65 72 6d 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 | gethash.term.common-lisp-hypersp |
| 27cbc0 | 65 63 2d 2d 67 6c 6f 73 73 61 72 79 2d 74 65 72 6d 73 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e | ec--glossary-terms))).....(if.(n |
| 27cbe0 | 6f 74 20 61 6e 63 68 6f 72 29 0a 09 28 6d 65 73 73 61 67 65 20 22 55 6e 6b 6e 6f 77 6e 20 67 6c | ot.anchor)..(message."Unknown.gl |
| 27cc00 | 6f 73 73 61 72 79 20 74 65 72 6d 3a 20 25 73 22 20 74 65 72 6d 29 0a 20 20 20 20 20 20 28 66 6f | ossary.term:.%s".term).......(fo |
| 27cc20 | 72 6d 61 74 20 22 25 73 42 6f 64 79 2f 32 36 5f 67 6c 6f 5f 25 73 2e 68 74 6d 23 25 73 22 0a 09 | rmat."%sBody/26_glo_%s.htm#%s".. |
| 27cc40 | 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 72 6f 6f 74 | ......common-lisp-hyperspec-root |
| 27cc60 | 0a 09 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 68 61 72 20 28 73 74 72 69 6e 67 2d 74 6f 2d 63 | ........(let.((char.(string-to-c |
| 27cc80 | 68 61 72 20 74 65 72 6d 29 29 29 0a 09 09 28 69 66 20 28 61 6e 64 20 28 3c 3d 20 3f 61 20 63 68 | har.term)))...(if.(and.(<=.?a.ch |
| 27cca0 | 61 72 29 0a 09 09 09 20 28 3c 3d 20 63 68 61 72 20 3f 7a 29 29 0a 09 09 20 20 20 20 28 6d 61 6b | ar).....(<=.char.?z)).......(mak |
| 27ccc0 | 65 2d 73 74 72 69 6e 67 20 31 20 63 68 61 72 29 0a 09 09 20 20 22 39 22 29 29 0a 09 20 20 20 20 | e-string.1.char)....."9"))...... |
| 27cce0 | 20 20 61 6e 63 68 6f 72 29 29 29 29 0a 0a 3b 3b 20 54 69 61 6e 78 69 61 6e 67 20 58 69 6f 6e 67 | ..anchor))))..;;.Tianxiang.Xiong |
| 27cd00 | 20 32 30 31 35 31 32 32 39 0a 3b 3b 20 49 73 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6e 65 | .20151229.;;.Is.this.function.ne |
| 27cd20 | 63 65 73 73 61 72 79 3f 20 54 68 65 20 6c 69 6e 6b 20 64 6f 65 73 20 63 72 65 61 74 65 64 20 64 | cessary?.The.link.does.created.d |
| 27cd40 | 6f 65 73 20 6e 6f 74 20 77 6f 72 6b 2e 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | oes.not.work..(defun.common-lisp |
| 27cd60 | 2d 67 6c 6f 73 73 61 72 79 2d 34 2e 30 20 28 73 74 72 69 6e 67 29 0a 20 20 28 66 6f 72 6d 61 74 | -glossary-4.0.(string)...(format |
| 27cd80 | 20 22 25 73 42 6f 64 79 2f 67 6c 6f 5f 25 73 2e 68 74 6d 6c 23 25 73 22 0a 09 20 20 63 6f 6d 6d | ."%sBody/glo_%s.html#%s"....comm |
| 27cda0 | 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 72 6f 6f 74 0a 09 20 20 28 6c 65 74 20 28 | on-lisp-hyperspec-root....(let.( |
| 27cdc0 | 28 63 68 61 72 20 28 73 74 72 69 6e 67 2d 74 6f 2d 63 68 61 72 20 73 74 72 69 6e 67 29 29 29 0a | (char.(string-to-char.string))). |
| 27cde0 | 09 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 3c 3d 20 3f 61 20 63 68 61 72 29 0a 09 09 20 20 20 | .....(if.(and.(<=.?a.char)...... |
| 27ce00 | 20 20 28 3c 3d 20 63 68 61 72 20 3f 7a 29 29 0a 09 09 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 31 | ..(<=.char.?z))...(make-string.1 |
| 27ce20 | 20 63 68 61 72 29 0a 09 20 20 20 20 20 20 22 39 22 29 29 0a 09 20 20 28 73 75 62 73 74 2d 63 68 | .char)........"9"))....(subst-ch |
| 27ce40 | 61 72 2d 69 6e 2d 73 74 72 69 6e 67 20 3f 5c 20 20 3f 5f 20 73 74 72 69 6e 67 29 29 29 0a 0a 0c | ar-in-string.?\..?_.string)))... |
| 27ce60 | 0a 3b 3b 3b 3b 20 49 73 73 75 65 78 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 74 68 65 20 69 73 73 75 | .;;;;.Issuex..;;.FIXME:.the.issu |
| 27ce80 | 65 78 20 73 74 75 66 66 20 69 73 20 6e 6f 74 20 75 73 65 64 0a 28 64 65 66 76 61 72 20 63 6f 6d | ex.stuff.is.not.used.(defvar.com |
| 27cea0 | 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 69 73 73 75 65 78 2d 74 61 62 6c 65 20 | mon-lisp-hyperspec-issuex-table. |
| 27cec0 | 6e 69 6c 0a 20 20 22 54 68 65 20 48 79 70 65 72 53 70 65 63 20 49 73 73 75 65 58 20 74 61 62 6c | nil..."The.HyperSpec.IssueX.tabl |
| 27cee0 | 65 20 66 69 6c 65 2e 20 20 49 66 20 79 6f 75 20 63 6f 70 79 20 74 68 65 20 48 79 70 65 72 53 70 | e.file...If.you.copy.the.HyperSp |
| 27cf00 | 65 63 20 74 6f 20 79 6f 75 72 0a 6c 6f 63 61 6c 20 73 79 73 74 65 6d 2c 20 73 65 74 20 74 68 69 | ec.to.your.local.system,.set.thi |
| 27cf20 | 73 20 76 61 72 69 61 62 6c 65 20 74 6f 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 | s.variable.to.the.location.of.th |
| 27cf40 | 65 20 49 73 73 75 65 0a 63 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 73 20 74 61 62 6c 65 20 77 | e.Issue.cross-references.table.w |
| 27cf60 | 68 69 63 68 20 69 73 20 75 73 75 61 6c 6c 79 20 5c 22 4d 61 70 5f 49 73 73 58 2e 74 78 74 5c 22 | hich.is.usually.\"Map_IssX.txt\" |
| 27cf80 | 20 6f 72 0a 5c 22 49 73 73 75 65 2d 43 72 6f 73 73 2d 52 65 66 73 2e 74 65 78 74 5c 22 2e 22 29 | .or.\"Issue-Cross-Refs.text\".") |
| 27cfa0 | 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d | ..(defvar.common-lisp-hyperspec- |
| 27cfc0 | 2d 69 73 73 75 65 78 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 | -issuex-symbols...(make-hash-tab |
| 27cfe0 | 6c 65 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 0a 28 6d 61 70 63 0a 20 28 6c 61 6d 62 64 | le.:test.'equal))..(mapc..(lambd |
| 27d000 | 61 20 28 65 6e 74 72 79 29 0a 20 20 20 28 70 75 74 68 61 73 68 20 28 63 61 72 20 65 6e 74 72 79 | a.(entry)....(puthash.(car.entry |
| 27d020 | 29 20 28 63 61 64 72 20 65 6e 74 72 79 29 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 | ).(cadr.entry).common-lisp-hyper |
| 27d040 | 73 70 65 63 2d 2d 69 73 73 75 65 78 2d 73 79 6d 62 6f 6c 73 29 29 0a 20 28 69 66 20 63 6f 6d 6d | spec--issuex-symbols))..(if.comm |
| 27d060 | 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 69 73 73 75 65 78 2d 74 61 62 6c 65 0a 20 | on-lisp-hyperspec-issuex-table.. |
| 27d080 | 20 20 20 20 28 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 70 61 72 73 | ....(common-lisp-hyperspec--pars |
| 27d0a0 | 65 2d 6d 61 70 2d 66 69 6c 65 0a 20 20 20 20 20 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 | e-map-file.......common-lisp-hyp |
| 27d0c0 | 65 72 73 70 65 63 2d 69 73 73 75 65 78 2d 74 61 62 6c 65 29 0a 20 20 20 27 28 28 22 26 65 6e 76 | erspec-issuex-table)....'(("&env |
| 27d0e0 | 69 72 6f 6e 6d 65 6e 74 2d 62 69 6e 64 69 6e 67 2d 6f 72 64 65 72 3a 66 69 72 73 74 22 20 22 69 | ironment-binding-order:first"."i |
| 27d100 | 73 73 30 30 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 61 63 63 65 73 73 2d 65 72 72 6f 72 2d | ss001.htm")......("access-error- |
| 27d120 | 6e 61 6d 65 22 20 22 69 73 73 30 30 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 61 64 6a 75 73 | name"."iss002.htm")......("adjus |
| 27d140 | 74 2d 61 72 72 61 79 2d 64 69 73 70 6c 61 63 65 6d 65 6e 74 22 20 22 69 73 73 30 30 33 2e 68 74 | t-array-displacement"."iss003.ht |
| 27d160 | 6d 22 29 0a 20 20 20 20 20 28 22 61 64 6a 75 73 74 2d 61 72 72 61 79 2d 66 69 6c 6c 2d 70 6f 69 | m")......("adjust-array-fill-poi |
| 27d180 | 6e 74 65 72 22 20 22 69 73 73 30 30 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 61 64 6a 75 73 | nter"."iss004.htm")......("adjus |
| 27d1a0 | 74 2d 61 72 72 61 79 2d 6e 6f 74 2d 61 64 6a 75 73 74 61 62 6c 65 3a 69 6d 70 6c 69 63 69 74 2d | t-array-not-adjustable:implicit- |
| 27d1c0 | 63 6f 70 79 22 20 22 69 73 73 30 30 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 61 6c 6c 6f 63 | copy"."iss005.htm")......("alloc |
| 27d1e0 | 61 74 65 2d 69 6e 73 74 61 6e 63 65 3a 61 64 64 22 20 22 69 73 73 30 30 36 2e 68 74 6d 22 29 0a | ate-instance:add"."iss006.htm"). |
| 27d200 | 20 20 20 20 20 28 22 61 6c 6c 6f 77 2d 6c 6f 63 61 6c 2d 69 6e 6c 69 6e 65 3a 69 6e 6c 69 6e 65 | .....("allow-local-inline:inline |
| 27d220 | 2d 6e 6f 74 69 6e 6c 69 6e 65 22 20 22 69 73 73 30 30 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | -notinline"."iss007.htm")......( |
| 27d240 | 22 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 2d 6e 69 6c 3a 70 65 72 6d 69 74 22 20 22 69 | "allow-other-keys-nil:permit"."i |
| 27d260 | 73 73 30 30 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 61 72 65 66 2d 31 64 22 20 22 69 73 73 | ss008.htm")......("aref-1d"."iss |
| 27d280 | 30 30 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 61 72 67 75 6d 65 6e 74 2d 6d 69 73 6d 61 74 | 009.htm")......("argument-mismat |
| 27d2a0 | 63 68 2d 65 72 72 6f 72 2d 61 67 61 69 6e 3a 63 6f 6e 73 69 73 74 65 6e 74 22 20 22 69 73 73 30 | ch-error-again:consistent"."iss0 |
| 27d2c0 | 31 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 61 72 67 75 6d 65 6e 74 2d 6d 69 73 6d 61 74 63 | 10.htm")......("argument-mismatc |
| 27d2e0 | 68 2d 65 72 72 6f 72 2d 6d 6f 6f 6e 3a 66 69 78 22 20 22 69 73 73 30 31 31 2e 68 74 6d 22 29 0a | h-error-moon:fix"."iss011.htm"). |
| 27d300 | 20 20 20 20 20 28 22 61 72 67 75 6d 65 6e 74 2d 6d 69 73 6d 61 74 63 68 2d 65 72 72 6f 72 3a 6d | .....("argument-mismatch-error:m |
| 27d320 | 6f 72 65 2d 63 6c 61 72 69 66 69 63 61 74 69 6f 6e 73 22 20 22 69 73 73 30 31 32 2e 68 74 6d 22 | ore-clarifications"."iss012.htm" |
| 27d340 | 29 0a 20 20 20 20 20 28 22 61 72 67 75 6d 65 6e 74 73 2d 75 6e 64 65 72 73 70 65 63 69 66 69 65 | )......("arguments-underspecifie |
| 27d360 | 64 3a 73 70 65 63 69 66 79 22 20 22 69 73 73 30 31 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 | d:specify"."iss013.htm")......(" |
| 27d380 | 61 72 72 61 79 2d 64 69 6d 65 6e 73 69 6f 6e 2d 6c 69 6d 69 74 2d 69 6d 70 6c 69 63 61 74 69 6f | array-dimension-limit-implicatio |
| 27d3a0 | 6e 73 3a 61 6c 6c 2d 66 69 78 6e 75 6d 22 20 22 69 73 73 30 31 34 2e 68 74 6d 22 29 0a 20 20 20 | ns:all-fixnum"."iss014.htm").... |
| 27d3c0 | 20 20 28 22 61 72 72 61 79 2d 74 79 70 65 2d 65 6c 65 6d 65 6e 74 2d 74 79 70 65 2d 73 65 6d 61 | ..("array-type-element-type-sema |
| 27d3e0 | 6e 74 69 63 73 3a 75 6e 69 66 79 2d 75 70 67 72 61 64 69 6e 67 22 20 22 69 73 73 30 31 35 2e 68 | ntics:unify-upgrading"."iss015.h |
| 27d400 | 74 6d 22 29 0a 20 20 20 20 20 28 22 61 73 73 65 72 74 2d 65 72 72 6f 72 2d 74 79 70 65 3a 65 72 | tm")......("assert-error-type:er |
| 27d420 | 72 6f 72 22 20 22 69 73 73 30 31 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 61 73 73 6f 63 2d | ror"."iss016.htm")......("assoc- |
| 27d440 | 72 61 73 73 6f 63 2d 69 66 2d 6b 65 79 22 20 22 69 73 73 30 31 37 2e 68 74 6d 22 29 0a 20 20 20 | rassoc-if-key"."iss017.htm").... |
| 27d460 | 20 20 28 22 61 73 73 6f 63 2d 72 61 73 73 6f 63 2d 69 66 2d 6b 65 79 3a 79 65 73 22 20 22 69 73 | ..("assoc-rassoc-if-key:yes"."is |
| 27d480 | 73 30 31 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 62 6f 61 2d 61 75 78 2d 69 6e 69 74 69 61 | s018.htm")......("boa-aux-initia |
| 27d4a0 | 6c 69 7a 61 74 69 6f 6e 3a 65 72 72 6f 72 2d 6f 6e 2d 72 65 61 64 22 20 22 69 73 73 30 31 39 2e | lization:error-on-read"."iss019. |
| 27d4c0 | 68 74 6d 22 29 0a 20 20 20 20 20 28 22 62 72 65 61 6b 2d 6f 6e 2d 77 61 72 6e 69 6e 67 73 2d 6f | htm")......("break-on-warnings-o |
| 27d4e0 | 62 73 6f 6c 65 74 65 3a 72 65 6d 6f 76 65 22 20 22 69 73 73 30 32 30 2e 68 74 6d 22 29 0a 20 20 | bsolete:remove"."iss020.htm")... |
| 27d500 | 20 20 20 28 22 62 72 6f 61 64 63 61 73 74 2d 73 74 72 65 61 6d 2d 72 65 74 75 72 6e 2d 76 61 6c | ...("broadcast-stream-return-val |
| 27d520 | 75 65 73 3a 63 6c 61 72 69 66 79 2d 6d 69 6e 69 6d 61 6c 6c 79 22 20 22 69 73 73 30 32 31 2e 68 | ues:clarify-minimally"."iss021.h |
| 27d540 | 74 6d 22 29 0a 20 20 20 20 20 28 22 62 75 74 6c 61 73 74 2d 6e 65 67 61 74 69 76 65 3a 73 68 6f | tm")......("butlast-negative:sho |
| 27d560 | 75 6c 64 2d 73 69 67 6e 61 6c 22 20 22 69 73 73 30 32 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | uld-signal"."iss022.htm")......( |
| 27d580 | 22 63 68 61 6e 67 65 2d 63 6c 61 73 73 2d 69 6e 69 74 61 72 67 73 3a 70 65 72 6d 69 74 22 20 22 | "change-class-initargs:permit"." |
| 27d5a0 | 69 73 73 30 32 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 2d 6e 61 6d 65 2d 63 61 | iss023.htm")......("char-name-ca |
| 27d5c0 | 73 65 3a 78 33 6a 31 33 2d 6d 61 72 2d 39 31 22 20 22 69 73 73 30 32 34 2e 68 74 6d 22 29 0a 20 | se:x3j13-mar-91"."iss024.htm").. |
| 27d5e0 | 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 6c 6f 6f 73 65 2d 65 6e 64 73 3a 66 69 78 22 20 | ....("character-loose-ends:fix". |
| 27d600 | 22 69 73 73 30 32 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 | "iss025.htm")......("character-p |
| 27d620 | 72 6f 70 6f 73 61 6c 3a 32 22 20 22 69 73 73 30 32 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 | roposal:2"."iss026.htm")......(" |
| 27d640 | 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d 31 2d 31 22 20 22 69 73 73 30 32 | character-proposal:2-1-1"."iss02 |
| 27d660 | 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 | 7.htm")......("character-proposa |
| 27d680 | 6c 3a 32 2d 31 2d 32 22 20 22 69 73 73 30 32 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 | l:2-1-2"."iss028.htm")......("ch |
| 27d6a0 | 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d 32 2d 31 22 20 22 69 73 73 30 32 39 2e | aracter-proposal:2-2-1"."iss029. |
| 27d6c0 | 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a | htm")......("character-proposal: |
| 27d6e0 | 32 2d 33 2d 31 22 20 22 69 73 73 30 33 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 | 2-3-1"."iss030.htm")......("char |
| 27d700 | 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d 33 2d 32 22 20 22 69 73 73 30 33 31 2e 68 74 | acter-proposal:2-3-2"."iss031.ht |
| 27d720 | 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d | m")......("character-proposal:2- |
| 27d740 | 33 2d 33 22 20 22 69 73 73 30 33 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 | 3-3"."iss032.htm")......("charac |
| 27d760 | 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d 33 2d 34 22 20 22 69 73 73 30 33 33 2e 68 74 6d 22 | ter-proposal:2-3-4"."iss033.htm" |
| 27d780 | 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d 33 2d | )......("character-proposal:2-3- |
| 27d7a0 | 35 22 20 22 69 73 73 30 33 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 | 5"."iss034.htm")......("characte |
| 27d7c0 | 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d 33 2d 36 22 20 22 69 73 73 30 33 35 2e 68 74 6d 22 29 0a | r-proposal:2-3-6"."iss035.htm"). |
| 27d7e0 | 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d 34 2d 31 22 | .....("character-proposal:2-4-1" |
| 27d800 | 20 22 69 73 73 30 33 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d | ."iss036.htm")......("character- |
| 27d820 | 70 72 6f 70 6f 73 61 6c 3a 32 2d 34 2d 32 22 20 22 69 73 73 30 33 37 2e 68 74 6d 22 29 0a 20 20 | proposal:2-4-2"."iss037.htm")... |
| 27d840 | 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d 34 2d 33 22 20 22 | ...("character-proposal:2-4-3"." |
| 27d860 | 69 73 73 30 33 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 72 | iss038.htm")......("character-pr |
| 27d880 | 6f 70 6f 73 61 6c 3a 32 2d 35 2d 32 22 20 22 69 73 73 30 33 39 2e 68 74 6d 22 29 0a 20 20 20 20 | oposal:2-5-2"."iss039.htm")..... |
| 27d8a0 | 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d 35 2d 36 22 20 22 69 73 | .("character-proposal:2-5-6"."is |
| 27d8c0 | 73 30 34 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 | s040.htm")......("character-prop |
| 27d8e0 | 6f 73 61 6c 3a 32 2d 35 2d 37 22 20 22 69 73 73 30 34 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | osal:2-5-7"."iss041.htm")......( |
| 27d900 | 22 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d 36 2d 31 22 20 22 69 73 73 30 | "character-proposal:2-6-1"."iss0 |
| 27d920 | 34 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 | 42.htm")......("character-propos |
| 27d940 | 61 6c 3a 32 2d 36 2d 32 22 20 22 69 73 73 30 34 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 | al:2-6-2"."iss043.htm")......("c |
| 27d960 | 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c 3a 32 2d 36 2d 33 22 20 22 69 73 73 30 34 34 | haracter-proposal:2-6-3"."iss044 |
| 27d980 | 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 72 61 63 74 65 72 2d 70 72 6f 70 6f 73 61 6c | .htm")......("character-proposal |
| 27d9a0 | 3a 32 2d 36 2d 35 22 20 22 69 73 73 30 34 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 68 61 | :2-6-5"."iss045.htm")......("cha |
| 27d9c0 | 72 61 63 74 65 72 2d 76 73 2d 63 68 61 72 3a 6c 65 73 73 2d 69 6e 63 6f 6e 73 69 73 74 65 6e 74 | racter-vs-char:less-inconsistent |
| 27d9e0 | 2d 73 68 6f 72 74 22 20 22 69 73 73 30 34 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6c 61 | -short"."iss046.htm")......("cla |
| 27da00 | 73 73 2d 6f 62 6a 65 63 74 2d 73 70 65 63 69 61 6c 69 7a 65 72 3a 61 66 66 69 72 6d 22 20 22 69 | ss-object-specializer:affirm"."i |
| 27da20 | 73 73 30 34 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6c 6f 73 2d 63 6f 6e 64 69 74 69 6f | ss047.htm")......("clos-conditio |
| 27da40 | 6e 73 2d 61 67 61 69 6e 3a 61 6c 6c 6f 77 2d 73 75 62 73 65 74 22 20 22 69 73 73 30 34 38 2e 68 | ns-again:allow-subset"."iss048.h |
| 27da60 | 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6c 6f 73 2d 63 6f 6e 64 69 74 69 6f 6e 73 3a 69 6e 74 65 | tm")......("clos-conditions:inte |
| 27da80 | 67 72 61 74 65 22 20 22 69 73 73 30 34 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6c 6f 73 | grate"."iss049.htm")......("clos |
| 27daa0 | 2d 65 72 72 6f 72 2d 63 68 65 63 6b 69 6e 67 2d 6f 72 64 65 72 3a 6e 6f 2d 61 70 70 6c 69 63 61 | -error-checking-order:no-applica |
| 27dac0 | 62 6c 65 2d 6d 65 74 68 6f 64 2d 66 69 72 73 74 22 20 22 69 73 73 30 35 30 2e 68 74 6d 22 29 0a | ble-method-first"."iss050.htm"). |
| 27dae0 | 20 20 20 20 20 28 22 63 6c 6f 73 2d 6d 61 63 72 6f 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 3a 6d 69 | .....("clos-macro-compilation:mi |
| 27db00 | 6e 69 6d 61 6c 22 20 22 69 73 73 30 35 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6c 6f 73 | nimal"."iss051.htm")......("clos |
| 27db20 | 65 2d 63 6f 6e 73 74 72 75 63 74 65 64 2d 73 74 72 65 61 6d 3a 61 72 67 75 6d 65 6e 74 2d 73 74 | e-constructed-stream:argument-st |
| 27db40 | 72 65 61 6d 2d 6f 6e 6c 79 22 20 22 69 73 73 30 35 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 | ream-only"."iss052.htm")......(" |
| 27db60 | 63 6c 6f 73 65 64 2d 73 74 72 65 61 6d 2d 6f 70 65 72 61 74 69 6f 6e 73 3a 61 6c 6c 6f 77 2d 69 | closed-stream-operations:allow-i |
| 27db80 | 6e 71 75 69 72 79 22 20 22 69 73 73 30 35 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 65 | nquiry"."iss053.htm")......("coe |
| 27dba0 | 72 63 69 6e 67 2d 73 65 74 66 2d 6e 61 6d 65 2d 74 6f 2d 66 75 6e 63 74 69 6f 6e 3a 61 6c 6c 2d | rcing-setf-name-to-function:all- |
| 27dbc0 | 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 73 22 20 22 69 73 73 30 35 34 2e 68 74 6d 22 29 0a 20 20 | function-names"."iss054.htm")... |
| 27dbe0 | 20 20 20 28 22 63 6f 6c 6f 6e 2d 6e 75 6d 62 65 72 22 20 22 69 73 73 30 35 35 2e 68 74 6d 22 29 | ...("colon-number"."iss055.htm") |
| 27dc00 | 0a 20 20 20 20 20 28 22 63 6f 6d 6d 6f 6e 2d 66 65 61 74 75 72 65 73 3a 73 70 65 63 69 66 79 22 | ......("common-features:specify" |
| 27dc20 | 20 22 69 73 73 30 35 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6d 6d 6f 6e 2d 74 79 70 | ."iss056.htm")......("common-typ |
| 27dc40 | 65 3a 72 65 6d 6f 76 65 22 20 22 69 73 73 30 35 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 | e:remove"."iss057.htm")......("c |
| 27dc60 | 6f 6d 70 69 6c 65 2d 61 72 67 75 6d 65 6e 74 2d 70 72 6f 62 6c 65 6d 73 2d 61 67 61 69 6e 3a 66 | ompile-argument-problems-again:f |
| 27dc80 | 69 78 22 20 22 69 73 73 30 35 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6d 70 69 6c 65 | ix"."iss058.htm")......("compile |
| 27dca0 | 2d 66 69 6c 65 2d 68 61 6e 64 6c 69 6e 67 2d 6f 66 2d 74 6f 70 2d 6c 65 76 65 6c 2d 66 6f 72 6d | -file-handling-of-top-level-form |
| 27dcc0 | 73 3a 63 6c 61 72 69 66 79 22 20 22 69 73 73 30 35 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 | s:clarify"."iss059.htm")......(" |
| 27dce0 | 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 75 74 70 75 74 2d 66 69 6c 65 2d 64 65 66 61 75 6c 74 | compile-file-output-file-default |
| 27dd00 | 73 3a 69 6e 70 75 74 2d 66 69 6c 65 22 20 22 69 73 73 30 36 30 2e 68 74 6d 22 29 0a 20 20 20 20 | s:input-file"."iss060.htm")..... |
| 27dd20 | 20 28 22 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 63 6b 61 67 65 22 20 22 69 73 73 30 36 31 | .("compile-file-package"."iss061 |
| 27dd40 | 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 68 6e | .htm")......("compile-file-pathn |
| 27dd60 | 61 6d 65 2d 61 72 67 75 6d 65 6e 74 73 3a 6d 61 6b 65 2d 63 6f 6e 73 69 73 74 65 6e 74 22 20 22 | ame-arguments:make-consistent"." |
| 27dd80 | 69 73 73 30 36 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 | iss062.htm")......("compile-file |
| 27dda0 | 2d 73 79 6d 62 6f 6c 2d 68 61 6e 64 6c 69 6e 67 3a 6e 65 77 2d 72 65 71 75 69 72 65 2d 63 6f 6e | -symbol-handling:new-require-con |
| 27ddc0 | 73 69 73 74 65 6e 63 79 22 20 22 69 73 73 30 36 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 | sistency"."iss063.htm")......("c |
| 27dde0 | 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 72 65 71 75 69 72 65 6d 65 6e 74 73 3a 74 69 | ompiled-function-requirements:ti |
| 27de00 | 67 68 74 65 6e 22 20 22 69 73 73 30 36 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6d 70 | ghten"."iss064.htm")......("comp |
| 27de20 | 69 6c 65 72 2d 64 69 61 67 6e 6f 73 74 69 63 73 3a 75 73 65 2d 68 61 6e 64 6c 65 72 22 20 22 69 | iler-diagnostics:use-handler"."i |
| 27de40 | 73 73 30 36 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6d 70 69 6c 65 72 2d 6c 65 74 2d | ss065.htm")......("compiler-let- |
| 27de60 | 63 6f 6e 66 75 73 69 6f 6e 3a 65 6c 69 6d 69 6e 61 74 65 22 20 22 69 73 73 30 36 36 2e 68 74 6d | confusion:eliminate"."iss066.htm |
| 27de80 | 22 29 0a 20 20 20 20 20 28 22 63 6f 6d 70 69 6c 65 72 2d 76 65 72 62 6f 73 69 74 79 3a 6c 69 6b | ")......("compiler-verbosity:lik |
| 27dea0 | 65 2d 6c 6f 61 64 22 20 22 69 73 73 30 36 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6d | e-load"."iss067.htm")......("com |
| 27dec0 | 70 69 6c 65 72 2d 77 61 72 6e 69 6e 67 2d 73 74 72 65 61 6d 22 20 22 69 73 73 30 36 38 2e 68 74 | piler-warning-stream"."iss068.ht |
| 27dee0 | 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6d 70 6c 65 78 2d 61 74 61 6e 2d 62 72 61 6e 63 68 2d 63 | m")......("complex-atan-branch-c |
| 27df00 | 75 74 3a 74 77 65 61 6b 22 20 22 69 73 73 30 36 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 | ut:tweak"."iss069.htm")......("c |
| 27df20 | 6f 6d 70 6c 65 78 2d 61 74 61 6e 68 2d 62 6f 67 75 73 2d 66 6f 72 6d 75 6c 61 3a 74 77 65 61 6b | omplex-atanh-bogus-formula:tweak |
| 27df40 | 2d 6d 6f 72 65 22 20 22 69 73 73 30 37 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6d 70 | -more"."iss070.htm")......("comp |
| 27df60 | 6c 65 78 2d 72 61 74 69 6f 6e 61 6c 2d 72 65 73 75 6c 74 3a 65 78 74 65 6e 64 22 20 22 69 73 73 | lex-rational-result:extend"."iss |
| 27df80 | 30 37 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6d 70 75 74 65 2d 61 70 70 6c 69 63 61 | 071.htm")......("compute-applica |
| 27dfa0 | 62 6c 65 2d 6d 65 74 68 6f 64 73 3a 67 65 6e 65 72 69 63 22 20 22 69 73 73 30 37 32 2e 68 74 6d | ble-methods:generic"."iss072.htm |
| 27dfc0 | 22 29 0a 20 20 20 20 20 28 22 63 6f 6e 63 61 74 65 6e 61 74 65 2d 73 65 71 75 65 6e 63 65 3a 73 | ")......("concatenate-sequence:s |
| 27dfe0 | 69 67 6e 61 6c 2d 65 72 72 6f 72 22 20 22 69 73 73 30 37 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 | ignal-error"."iss073.htm")...... |
| 27e000 | 28 22 63 6f 6e 64 69 74 69 6f 6e 2d 61 63 63 65 73 73 6f 72 73 2d 73 65 74 66 61 62 6c 65 3a 6e | ("condition-accessors-setfable:n |
| 27e020 | 6f 22 20 22 69 73 73 30 37 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6e 64 69 74 69 6f | o"."iss074.htm")......("conditio |
| 27e040 | 6e 2d 72 65 73 74 61 72 74 73 3a 62 75 67 67 79 22 20 22 69 73 73 30 37 35 2e 68 74 6d 22 29 0a | n-restarts:buggy"."iss075.htm"). |
| 27e060 | 20 20 20 20 20 28 22 63 6f 6e 64 69 74 69 6f 6e 2d 72 65 73 74 61 72 74 73 3a 70 65 72 6d 69 74 | .....("condition-restarts:permit |
| 27e080 | 2d 61 73 73 6f 63 69 61 74 69 6f 6e 22 20 22 69 73 73 30 37 36 2e 68 74 6d 22 29 0a 20 20 20 20 | -association"."iss076.htm")..... |
| 27e0a0 | 20 28 22 63 6f 6e 64 69 74 69 6f 6e 2d 73 6c 6f 74 73 3a 68 69 64 64 65 6e 22 20 22 69 73 73 30 | .("condition-slots:hidden"."iss0 |
| 27e0c0 | 37 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6e 73 2d 74 79 70 65 2d 73 70 65 63 69 66 | 77.htm")......("cons-type-specif |
| 27e0e0 | 69 65 72 3a 61 64 64 22 20 22 69 73 73 30 37 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f | ier:add"."iss078.htm")......("co |
| 27e100 | 6e 73 74 61 6e 74 2d 63 69 72 63 75 6c 61 72 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 3a 79 65 73 22 | nstant-circular-compilation:yes" |
| 27e120 | 20 22 69 73 73 30 37 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6e 73 74 61 6e 74 2d 63 | ."iss079.htm")......("constant-c |
| 27e140 | 6f 6c 6c 61 70 73 69 6e 67 3a 67 65 6e 65 72 61 6c 69 7a 65 22 20 22 69 73 73 30 38 30 2e 68 74 | ollapsing:generalize"."iss080.ht |
| 27e160 | 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6e 73 74 61 6e 74 2d 63 6f 6d 70 69 6c 61 62 6c 65 2d 74 | m")......("constant-compilable-t |
| 27e180 | 79 70 65 73 3a 73 70 65 63 69 66 79 22 20 22 69 73 73 30 38 31 2e 68 74 6d 22 29 0a 20 20 20 20 | ypes:specify"."iss081.htm")..... |
| 27e1a0 | 20 28 22 63 6f 6e 73 74 61 6e 74 2d 66 75 6e 63 74 69 6f 6e 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e | .("constant-function-compilation |
| 27e1c0 | 3a 6e 6f 22 20 22 69 73 73 30 38 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6e 73 74 61 | :no"."iss082.htm")......("consta |
| 27e1e0 | 6e 74 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 3a 64 69 73 61 6c 6c 6f 77 22 20 22 69 73 73 30 38 | nt-modification:disallow"."iss08 |
| 27e200 | 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6e 73 74 61 6e 74 70 2d 64 65 66 69 6e 69 74 | 3.htm")......("constantp-definit |
| 27e220 | 69 6f 6e 3a 69 6e 74 65 6e 74 69 6f 6e 61 6c 22 20 22 69 73 73 30 38 34 2e 68 74 6d 22 29 0a 20 | ion:intentional"."iss084.htm").. |
| 27e240 | 20 20 20 20 28 22 63 6f 6e 73 74 61 6e 74 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 3a 61 64 64 2d | ....("constantp-environment:add- |
| 27e260 | 61 72 67 22 20 22 69 73 73 30 38 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 6e 74 61 67 | arg"."iss085.htm")......("contag |
| 27e280 | 69 6f 6e 2d 6f 6e 2d 6e 75 6d 65 72 69 63 61 6c 2d 63 6f 6d 70 61 72 69 73 6f 6e 73 3a 74 72 61 | ion-on-numerical-comparisons:tra |
| 27e2a0 | 6e 73 69 74 69 76 65 22 20 22 69 73 73 30 38 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f | nsitive"."iss086.htm")......("co |
| 27e2c0 | 70 79 2d 73 79 6d 62 6f 6c 2d 63 6f 70 79 2d 70 6c 69 73 74 3a 63 6f 70 79 2d 6c 69 73 74 22 20 | py-symbol-copy-plist:copy-list". |
| 27e2e0 | 22 69 73 73 30 38 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 63 6f 70 79 2d 73 79 6d 62 6f 6c | "iss087.htm")......("copy-symbol |
| 27e300 | 2d 70 72 69 6e 74 2d 6e 61 6d 65 3a 65 71 75 61 6c 22 20 22 69 73 73 30 38 38 2e 68 74 6d 22 29 | -print-name:equal"."iss088.htm") |
| 27e320 | 0a 20 20 20 20 20 28 22 64 61 74 61 2d 69 6f 3a 61 64 64 2d 73 75 70 70 6f 72 74 22 20 22 69 73 | ......("data-io:add-support"."is |
| 27e340 | 73 30 38 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 61 74 61 2d 74 79 70 65 73 2d 68 69 65 | s089.htm")......("data-types-hie |
| 27e360 | 72 61 72 63 68 79 2d 75 6e 64 65 72 73 70 65 63 69 66 69 65 64 22 20 22 69 73 73 30 39 30 2e 68 | rarchy-underspecified"."iss090.h |
| 27e380 | 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2d 76 73 2d 62 72 65 | tm")......("debugger-hook-vs-bre |
| 27e3a0 | 61 6b 3a 63 6c 61 72 69 66 79 22 20 22 69 73 73 30 39 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | ak:clarify"."iss091.htm")......( |
| 27e3c0 | 22 64 65 63 6c 61 72 61 74 69 6f 6e 2d 73 63 6f 70 65 3a 6e 6f 2d 68 6f 69 73 74 69 6e 67 22 20 | "declaration-scope:no-hoisting". |
| 27e3e0 | 22 69 73 73 30 39 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 63 6c 61 72 65 2d 61 72 72 | "iss092.htm")......("declare-arr |
| 27e400 | 61 79 2d 74 79 70 65 2d 65 6c 65 6d 65 6e 74 2d 72 65 66 65 72 65 6e 63 65 73 3a 72 65 73 74 72 | ay-type-element-references:restr |
| 27e420 | 69 63 74 69 76 65 22 20 22 69 73 73 30 39 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 63 | ictive"."iss093.htm")......("dec |
| 27e440 | 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 2d 61 6d 62 69 67 75 69 74 79 3a 64 65 6c 65 74 65 2d 66 | lare-function-ambiguity:delete-f |
| 27e460 | 74 79 70 65 2d 61 62 62 72 65 76 69 61 74 69 6f 6e 22 20 22 69 73 73 30 39 34 2e 68 74 6d 22 29 | type-abbreviation"."iss094.htm") |
| 27e480 | 0a 20 20 20 20 20 28 22 64 65 63 6c 61 72 65 2d 6d 61 63 72 6f 73 3a 66 6c 75 73 68 22 20 22 69 | ......("declare-macros:flush"."i |
| 27e4a0 | 73 73 30 39 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 63 6c 61 72 65 2d 74 79 70 65 2d | ss095.htm")......("declare-type- |
| 27e4c0 | 66 72 65 65 3a 6c 65 78 69 63 61 6c 22 20 22 69 73 73 30 39 36 2e 68 74 6d 22 29 0a 20 20 20 20 | free:lexical"."iss096.htm")..... |
| 27e4e0 | 20 28 22 64 65 63 6c 73 2d 61 6e 64 2d 64 6f 63 22 20 22 69 73 73 30 39 37 2e 68 74 6d 22 29 0a | .("decls-and-doc"."iss097.htm"). |
| 27e500 | 20 20 20 20 20 28 22 64 65 63 6f 64 65 2d 75 6e 69 76 65 72 73 61 6c 2d 74 69 6d 65 2d 64 61 79 | .....("decode-universal-time-day |
| 27e520 | 6c 69 67 68 74 3a 6c 69 6b 65 2d 65 6e 63 6f 64 65 22 20 22 69 73 73 30 39 38 2e 68 74 6d 22 29 | light:like-encode"."iss098.htm") |
| 27e540 | 0a 20 20 20 20 20 28 22 64 65 66 63 6f 6e 73 74 61 6e 74 2d 73 70 65 63 69 61 6c 3a 6e 6f 22 20 | ......("defconstant-special:no". |
| 27e560 | 22 69 73 73 30 39 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 67 65 6e 65 72 69 63 2d | "iss099.htm")......("defgeneric- |
| 27e580 | 64 65 63 6c 61 72 65 3a 61 6c 6c 6f 77 2d 6d 75 6c 74 69 70 6c 65 22 20 22 69 73 73 31 30 30 2e | declare:allow-multiple"."iss100. |
| 27e5a0 | 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 69 6e 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 | htm")......("define-compiler-mac |
| 27e5c0 | 72 6f 3a 78 33 6a 31 33 2d 6e 6f 76 38 39 22 20 22 69 73 73 31 30 31 2e 68 74 6d 22 29 0a 20 20 | ro:x3j13-nov89"."iss101.htm")... |
| 27e5e0 | 20 20 20 28 22 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 2d 73 79 6e 74 61 78 3a 5c 0a 69 | ...("define-condition-syntax:\.i |
| 27e600 | 6e 63 6f 6d 70 61 74 69 62 6c 79 2d 6d 6f 72 65 2d 6c 69 6b 65 2d 64 65 66 63 6c 61 73 73 2b 65 | ncompatibly-more-like-defclass+e |
| 27e620 | 6d 70 68 61 73 69 7a 65 2d 72 65 61 64 2d 6f 6e 6c 79 22 20 22 69 73 73 31 30 32 2e 68 74 6d 22 | mphasize-read-only"."iss102.htm" |
| 27e640 | 29 0a 20 20 20 20 20 28 22 64 65 66 69 6e 65 2d 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 | )......("define-method-combinati |
| 27e660 | 6f 6e 2d 62 65 68 61 76 69 6f 72 3a 63 6c 61 72 69 66 79 22 20 22 69 73 73 31 30 33 2e 68 74 6d | on-behavior:clarify"."iss103.htm |
| 27e680 | 22 29 0a 20 20 20 20 20 28 22 64 65 66 69 6e 69 6e 67 2d 6d 61 63 72 6f 73 2d 6e 6f 6e 2d 74 6f | ")......("defining-macros-non-to |
| 27e6a0 | 70 2d 6c 65 76 65 6c 3a 61 6c 6c 6f 77 22 20 22 69 73 73 31 30 34 2e 68 74 6d 22 29 0a 20 20 20 | p-level:allow"."iss104.htm").... |
| 27e6c0 | 20 20 28 22 64 65 66 6d 61 63 72 6f 2d 62 6c 6f 63 6b 2d 73 63 6f 70 65 3a 65 78 63 6c 75 64 65 | ..("defmacro-block-scope:exclude |
| 27e6e0 | 73 2d 62 69 6e 64 69 6e 67 73 22 20 22 69 73 73 31 30 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | s-bindings"."iss105.htm")......( |
| 27e700 | 22 64 65 66 6d 61 63 72 6f 2d 6c 61 6d 62 64 61 2d 6c 69 73 74 3a 74 69 67 68 74 65 6e 2d 64 65 | "defmacro-lambda-list:tighten-de |
| 27e720 | 73 63 72 69 70 74 69 6f 6e 22 20 22 69 73 73 31 30 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 | scription"."iss106.htm")......(" |
| 27e740 | 64 65 66 6d 65 74 68 6f 64 2d 64 65 63 6c 61 72 61 74 69 6f 6e 2d 73 63 6f 70 65 3a 63 6f 72 72 | defmethod-declaration-scope:corr |
| 27e760 | 65 73 70 6f 6e 64 73 2d 74 6f 2d 62 69 6e 64 69 6e 67 73 22 20 22 69 73 73 31 30 37 2e 68 74 6d | esponds-to-bindings"."iss107.htm |
| 27e780 | 22 29 0a 20 20 20 20 20 28 22 64 65 66 70 61 63 6b 61 67 65 3a 61 64 64 69 74 69 6f 6e 22 20 22 | ")......("defpackage:addition"." |
| 27e7a0 | 69 73 73 31 30 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 74 2d 63 6f | iss108.htm")......("defstruct-co |
| 27e7c0 | 6e 73 74 72 75 63 74 6f 72 2d 6b 65 79 2d 6d 69 78 74 75 72 65 3a 61 6c 6c 6f 77 2d 6b 65 79 22 | nstructor-key-mixture:allow-key" |
| 27e7e0 | 20 22 69 73 73 31 30 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 74 2d | ."iss109.htm")......("defstruct- |
| 27e800 | 63 6f 6e 73 74 72 75 63 74 6f 72 2d 6f 70 74 69 6f 6e 73 3a 65 78 70 6c 69 63 69 74 22 20 22 69 | constructor-options:explicit"."i |
| 27e820 | 73 73 31 31 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 74 2d 63 6f 6e | ss110.htm")......("defstruct-con |
| 27e840 | 73 74 72 75 63 74 6f 72 2d 73 6c 6f 74 2d 76 61 72 69 61 62 6c 65 73 3a 6e 6f 74 2d 62 6f 75 6e | structor-slot-variables:not-boun |
| 27e860 | 64 22 20 22 69 73 73 31 31 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 | d"."iss111.htm")......("defstruc |
| 27e880 | 74 2d 63 6f 70 69 65 72 2d 61 72 67 75 6d 65 6e 74 2d 74 79 70 65 3a 72 65 73 74 72 69 63 74 22 | t-copier-argument-type:restrict" |
| 27e8a0 | 20 22 69 73 73 31 31 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 74 2d | ."iss112.htm")......("defstruct- |
| 27e8c0 | 63 6f 70 69 65 72 3a 61 72 67 75 6d 65 6e 74 2d 74 79 70 65 22 20 22 69 73 73 31 31 33 2e 68 74 | copier:argument-type"."iss113.ht |
| 27e8e0 | 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 74 2d 64 65 66 61 75 6c 74 2d 76 61 6c | m")......("defstruct-default-val |
| 27e900 | 75 65 2d 65 76 61 6c 75 61 74 69 6f 6e 3a 69 66 66 2d 6e 65 65 64 65 64 22 20 22 69 73 73 31 31 | ue-evaluation:iff-needed"."iss11 |
| 27e920 | 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 74 2d 69 6e 63 6c 75 64 65 | 4.htm")......("defstruct-include |
| 27e940 | 2d 64 65 66 74 79 70 65 3a 65 78 70 6c 69 63 69 74 6c 79 2d 75 6e 64 65 66 69 6e 65 64 22 20 22 | -deftype:explicitly-undefined"." |
| 27e960 | 69 73 73 31 31 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 74 2d 70 72 | iss115.htm")......("defstruct-pr |
| 27e980 | 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 2d 61 67 61 69 6e 3a 78 33 6a 31 33 2d 6d 61 72 2d 39 33 22 | int-function-again:x3j13-mar-93" |
| 27e9a0 | 20 22 69 73 73 31 31 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 74 2d | ."iss116.htm")......("defstruct- |
| 27e9c0 | 70 72 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 2d 69 6e 68 65 72 69 74 61 6e 63 65 3a 79 65 73 22 20 | print-function-inheritance:yes". |
| 27e9e0 | 22 69 73 73 31 31 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 74 2d 72 | "iss117.htm")......("defstruct-r |
| 27ea00 | 65 64 65 66 69 6e 69 74 69 6f 6e 3a 65 72 72 6f 72 22 20 22 69 73 73 31 31 38 2e 68 74 6d 22 29 | edefinition:error"."iss118.htm") |
| 27ea20 | 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 74 2d 73 6c 6f 74 73 2d 63 6f 6e 73 74 72 61 69 | ......("defstruct-slots-constrai |
| 27ea40 | 6e 74 73 2d 6e 61 6d 65 3a 64 75 70 6c 69 63 61 74 65 73 2d 65 72 72 6f 72 22 20 22 69 73 73 31 | nts-name:duplicates-error"."iss1 |
| 27ea60 | 31 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 73 74 72 75 63 74 2d 73 6c 6f 74 73 2d | 19.htm")......("defstruct-slots- |
| 27ea80 | 63 6f 6e 73 74 72 61 69 6e 74 73 2d 6e 75 6d 62 65 72 22 20 22 69 73 73 31 32 30 2e 68 74 6d 22 | constraints-number"."iss120.htm" |
| 27eaa0 | 29 0a 20 20 20 20 20 28 22 64 65 66 74 79 70 65 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 3a 79 | )......("deftype-destructuring:y |
| 27eac0 | 65 73 22 20 22 69 73 73 31 32 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 74 79 70 65 | es"."iss121.htm")......("deftype |
| 27eae0 | 2d 6b 65 79 3a 61 6c 6c 6f 77 22 20 22 69 73 73 31 32 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | -key:allow"."iss122.htm")......( |
| 27eb00 | 22 64 65 66 76 61 72 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 75 6e 65 76 61 6c 75 61 74 65 | "defvar-documentation:unevaluate |
| 27eb20 | 64 22 20 22 69 73 73 31 32 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 76 61 72 2d 69 | d"."iss123.htm")......("defvar-i |
| 27eb40 | 6e 69 74 2d 74 69 6d 65 3a 6e 6f 74 2d 64 65 6c 61 79 65 64 22 20 22 69 73 73 31 32 34 2e 68 74 | nit-time:not-delayed"."iss124.ht |
| 27eb60 | 6d 22 29 0a 20 20 20 20 20 28 22 64 65 66 76 61 72 2d 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e | m")......("defvar-initialization |
| 27eb80 | 3a 63 6f 6e 73 65 72 76 61 74 69 76 65 22 20 22 69 73 73 31 32 35 2e 68 74 6d 22 29 0a 20 20 20 | :conservative"."iss125.htm").... |
| 27eba0 | 20 20 28 22 64 65 70 72 65 63 61 74 69 6f 6e 2d 70 6f 73 69 74 69 6f 6e 3a 6c 69 6d 69 74 65 64 | ..("deprecation-position:limited |
| 27ebc0 | 22 20 22 69 73 73 31 32 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 73 63 72 69 62 65 2d | "."iss126.htm")......("describe- |
| 27ebe0 | 69 6e 74 65 72 61 63 74 69 76 65 3a 6e 6f 22 20 22 69 73 73 31 32 37 2e 68 74 6d 22 29 0a 20 20 | interactive:no"."iss127.htm")... |
| 27ec00 | 20 20 20 28 22 64 65 73 63 72 69 62 65 2d 75 6e 64 65 72 73 70 65 63 69 66 69 65 64 3a 64 65 73 | ...("describe-underspecified:des |
| 27ec20 | 63 72 69 62 65 2d 6f 62 6a 65 63 74 22 20 22 69 73 73 31 32 38 2e 68 74 6d 22 29 0a 20 20 20 20 | cribe-object"."iss128.htm")..... |
| 27ec40 | 20 28 22 64 65 73 74 72 75 63 74 69 76 65 2d 6f 70 65 72 61 74 69 6f 6e 73 3a 73 70 65 63 69 66 | .("destructive-operations:specif |
| 27ec60 | 79 22 20 22 69 73 73 31 32 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 65 73 74 72 75 63 74 | y"."iss129.htm")......("destruct |
| 27ec80 | 75 72 69 6e 67 2d 62 69 6e 64 3a 6e 65 77 2d 6d 61 63 72 6f 22 20 22 69 73 73 31 33 30 2e 68 74 | uring-bind:new-macro"."iss130.ht |
| 27eca0 | 6d 22 29 0a 20 20 20 20 20 28 22 64 69 73 61 73 73 65 6d 62 6c 65 2d 73 69 64 65 2d 65 66 66 65 | m")......("disassemble-side-effe |
| 27ecc0 | 63 74 3a 64 6f 2d 6e 6f 74 2d 69 6e 73 74 61 6c 6c 22 20 22 69 73 73 31 33 31 2e 68 74 6d 22 29 | ct:do-not-install"."iss131.htm") |
| 27ece0 | 0a 20 20 20 20 20 28 22 64 69 73 70 6c 61 63 65 64 2d 61 72 72 61 79 2d 70 72 65 64 69 63 61 74 | ......("displaced-array-predicat |
| 27ed00 | 65 3a 61 64 64 22 20 22 69 73 73 31 33 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 6f 2d 73 | e:add"."iss132.htm")......("do-s |
| 27ed20 | 79 6d 62 6f 6c 73 2d 62 6c 6f 63 6b 2d 73 63 6f 70 65 3a 65 6e 74 69 72 65 2d 66 6f 72 6d 22 20 | ymbols-block-scope:entire-form". |
| 27ed40 | 22 69 73 73 31 33 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 6f 2d 73 79 6d 62 6f 6c 73 2d | "iss133.htm")......("do-symbols- |
| 27ed60 | 64 75 70 6c 69 63 61 74 65 73 22 20 22 69 73 73 31 33 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | duplicates"."iss134.htm")......( |
| 27ed80 | 22 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 2d 62 75 67 73 3a 66 69 78 | "documentation-function-bugs:fix |
| 27eda0 | 22 20 22 69 73 73 31 33 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 6f 63 75 6d 65 6e 74 61 | "."iss135.htm")......("documenta |
| 27edc0 | 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 2d 74 61 6e 67 6c 65 64 3a 72 65 71 75 69 72 65 2d 61 72 | tion-function-tangled:require-ar |
| 27ede0 | 67 75 6d 65 6e 74 22 20 22 69 73 73 31 33 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 6f 74 | gument"."iss136.htm")......("dot |
| 27ee00 | 69 6d 65 73 2d 69 67 6e 6f 72 65 3a 78 33 6a 31 33 2d 6d 61 72 39 31 22 20 22 69 73 73 31 33 37 | imes-ignore:x3j13-mar91"."iss137 |
| 27ee20 | 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 6f 74 74 65 64 2d 6c 69 73 74 2d 61 72 67 75 6d 65 | .htm")......("dotted-list-argume |
| 27ee40 | 6e 74 73 3a 63 6c 61 72 69 66 79 22 20 22 69 73 73 31 33 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 | nts:clarify"."iss138.htm")...... |
| 27ee60 | 28 22 64 6f 74 74 65 64 2d 6d 61 63 72 6f 2d 66 6f 72 6d 73 3a 61 6c 6c 6f 77 22 20 22 69 73 73 | ("dotted-macro-forms:allow"."iss |
| 27ee80 | 31 33 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 72 69 62 62 6c 65 2d 74 65 63 68 6e 69 71 | 139.htm")......("dribble-techniq |
| 27eea0 | 75 65 22 20 22 69 73 73 31 34 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 79 6e 61 6d 69 63 | ue"."iss140.htm")......("dynamic |
| 27eec0 | 2d 65 78 74 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 3a 65 78 74 65 6e 64 22 20 22 69 73 73 31 34 31 | -extent-function:extend"."iss141 |
| 27eee0 | 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 64 79 6e 61 6d 69 63 2d 65 78 74 65 6e 74 3a 6e 65 77 | .htm")......("dynamic-extent:new |
| 27ef00 | 2d 64 65 63 6c 61 72 61 74 69 6f 6e 22 20 22 69 73 73 31 34 32 2e 68 74 6d 22 29 0a 20 20 20 20 | -declaration"."iss142.htm")..... |
| 27ef20 | 20 28 22 65 71 75 61 6c 2d 73 74 72 75 63 74 75 72 65 3a 6d 61 79 62 65 2d 73 74 61 74 75 73 2d | .("equal-structure:maybe-status- |
| 27ef40 | 71 75 6f 22 20 22 69 73 73 31 34 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 65 72 72 6f 72 2d | quo"."iss143.htm")......("error- |
| 27ef60 | 74 65 72 6d 69 6e 6f 6c 6f 67 79 2d 77 61 72 6e 69 6e 67 3a 6d 69 67 68 74 22 20 22 69 73 73 31 | terminology-warning:might"."iss1 |
| 27ef80 | 34 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 65 76 61 6c 2d 6f 74 68 65 72 3a 73 65 6c 66 2d | 44.htm")......("eval-other:self- |
| 27efa0 | 65 76 61 6c 75 61 74 65 22 20 22 69 73 73 31 34 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 65 | evaluate"."iss145.htm")......("e |
| 27efc0 | 76 61 6c 2d 74 6f 70 2d 6c 65 76 65 6c 3a 6c 6f 61 64 2d 6c 69 6b 65 2d 63 6f 6d 70 69 6c 65 2d | val-top-level:load-like-compile- |
| 27efe0 | 66 69 6c 65 22 20 22 69 73 73 31 34 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 65 76 61 6c 2d | file"."iss146.htm")......("eval- |
| 27f000 | 77 68 65 6e 2d 6e 6f 6e 2d 74 6f 70 2d 6c 65 76 65 6c 3a 67 65 6e 65 72 61 6c 69 7a 65 2d 65 76 | when-non-top-level:generalize-ev |
| 27f020 | 61 6c 2d 6e 65 77 2d 6b 65 79 77 6f 72 64 73 22 20 22 69 73 73 31 34 37 2e 68 74 6d 22 29 0a 20 | al-new-keywords"."iss147.htm").. |
| 27f040 | 20 20 20 20 28 22 65 76 61 6c 2d 77 68 65 6e 2d 6f 62 73 6f 6c 65 74 65 2d 6b 65 79 77 6f 72 64 | ....("eval-when-obsolete-keyword |
| 27f060 | 73 3a 78 33 6a 31 33 2d 6d 61 72 2d 31 39 39 33 22 20 22 69 73 73 31 34 38 2e 68 74 6d 22 29 0a | s:x3j13-mar-1993"."iss148.htm"). |
| 27f080 | 20 20 20 20 20 28 22 65 76 61 6c 68 6f 6f 6b 2d 73 74 65 70 2d 63 6f 6e 66 75 73 69 6f 6e 3a 66 | .....("evalhook-step-confusion:f |
| 27f0a0 | 69 78 22 20 22 69 73 73 31 34 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 65 76 61 6c 68 6f 6f | ix"."iss149.htm")......("evalhoo |
| 27f0c0 | 6b 2d 73 74 65 70 2d 63 6f 6e 66 75 73 69 6f 6e 3a 78 33 6a 31 33 2d 6e 6f 76 2d 38 39 22 20 22 | k-step-confusion:x3j13-nov-89"." |
| 27f0e0 | 69 73 73 31 35 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 65 78 69 74 2d 65 78 74 65 6e 74 2d | iss150.htm")......("exit-extent- |
| 27f100 | 61 6e 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d 73 79 73 74 65 6d 3a 6c 69 6b 65 2d 64 79 6e 61 6d 69 | and-condition-system:like-dynami |
| 27f120 | 63 2d 62 69 6e 64 69 6e 67 73 22 20 22 69 73 73 31 35 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | c-bindings"."iss151.htm")......( |
| 27f140 | 22 65 78 69 74 2d 65 78 74 65 6e 74 3a 6d 69 6e 69 6d 61 6c 22 20 22 69 73 73 31 35 32 2e 68 74 | "exit-extent:minimal"."iss152.ht |
| 27f160 | 6d 22 29 0a 20 20 20 20 20 28 22 65 78 70 74 2d 72 61 74 69 6f 3a 70 2e 32 31 31 22 20 22 69 73 | m")......("expt-ratio:p.211"."is |
| 27f180 | 73 31 35 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 65 78 74 65 6e 73 69 6f 6e 73 2d 70 6f 73 | s153.htm")......("extensions-pos |
| 27f1a0 | 69 74 69 6f 6e 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 22 20 22 69 73 73 31 35 34 2e 68 74 6d | ition:documentation"."iss154.htm |
| 27f1c0 | 22 29 0a 20 20 20 20 20 28 22 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 2d 66 6f 72 2d 65 76 | ")......("external-format-for-ev |
| 27f1e0 | 65 72 79 2d 66 69 6c 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 3a 6d 69 6e 69 6d 75 6d 22 20 22 69 73 | ery-file-connection:minimum"."is |
| 27f200 | 73 31 35 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 65 78 74 72 61 2d 72 65 74 75 72 6e 2d 76 | s155.htm")......("extra-return-v |
| 27f220 | 61 6c 75 65 73 3a 6e 6f 22 20 22 69 73 73 31 35 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 | alues:no"."iss156.htm")......("f |
| 27f240 | 69 6c 65 2d 6f 70 65 6e 2d 65 72 72 6f 72 3a 73 69 67 6e 61 6c 2d 66 69 6c 65 2d 65 72 72 6f 72 | ile-open-error:signal-file-error |
| 27f260 | 22 20 22 69 73 73 31 35 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 69 78 6e 75 6d 2d 6e 6f | "."iss157.htm")......("fixnum-no |
| 27f280 | 6e 2d 70 6f 72 74 61 62 6c 65 3a 74 69 67 68 74 65 6e 2d 64 65 66 69 6e 69 74 69 6f 6e 22 20 22 | n-portable:tighten-definition"." |
| 27f2a0 | 69 73 73 31 35 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 6c 65 74 2d 64 65 63 6c 61 72 61 | iss158.htm")......("flet-declara |
| 27f2c0 | 74 69 6f 6e 73 22 20 22 69 73 73 31 35 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 6c 65 74 | tions"."iss159.htm")......("flet |
| 27f2e0 | 2d 64 65 63 6c 61 72 61 74 69 6f 6e 73 3a 61 6c 6c 6f 77 22 20 22 69 73 73 31 36 30 2e 68 74 6d | -declarations:allow"."iss160.htm |
| 27f300 | 22 29 0a 20 20 20 20 20 28 22 66 6c 65 74 2d 69 6d 70 6c 69 63 69 74 2d 62 6c 6f 63 6b 3a 79 65 | ")......("flet-implicit-block:ye |
| 27f320 | 73 22 20 22 69 73 73 31 36 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 6c 6f 61 74 2d 75 6e | s"."iss161.htm")......("float-un |
| 27f340 | 64 65 72 66 6c 6f 77 3a 61 64 64 2d 76 61 72 69 61 62 6c 65 73 22 20 22 69 73 73 31 36 32 2e 68 | derflow:add-variables"."iss162.h |
| 27f360 | 74 6d 22 29 0a 20 20 20 20 20 28 22 66 6c 6f 61 74 69 6e 67 2d 70 6f 69 6e 74 2d 63 6f 6e 64 69 | tm")......("floating-point-condi |
| 27f380 | 74 69 6f 6e 2d 6e 61 6d 65 73 3a 78 33 6a 31 33 2d 6e 6f 76 2d 38 39 22 20 22 69 73 73 31 36 33 | tion-names:x3j13-nov-89"."iss163 |
| 27f3a0 | 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 6f 72 6d 61 74 2d 61 74 73 69 67 6e 2d 63 6f 6c 6f | .htm")......("format-atsign-colo |
| 27f3c0 | 6e 22 20 22 69 73 73 31 36 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 6f 72 6d 61 74 2d 63 | n"."iss164.htm")......("format-c |
| 27f3e0 | 6f 6c 6f 6e 2d 75 70 61 72 72 6f 77 2d 73 63 6f 70 65 22 20 22 69 73 73 31 36 35 2e 68 74 6d 22 | olon-uparrow-scope"."iss165.htm" |
| 27f400 | 29 0a 20 20 20 20 20 28 22 66 6f 72 6d 61 74 2d 63 6f 6d 6d 61 2d 69 6e 74 65 72 76 61 6c 22 20 | )......("format-comma-interval". |
| 27f420 | 22 69 73 73 31 36 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 6f 72 6d 61 74 2d 65 2d 65 78 | "iss166.htm")......("format-e-ex |
| 27f440 | 70 6f 6e 65 6e 74 2d 73 69 67 6e 3a 66 6f 72 63 65 2d 73 69 67 6e 22 20 22 69 73 73 31 36 37 2e | ponent-sign:force-sign"."iss167. |
| 27f460 | 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 6f 72 6d 61 74 2d 6f 70 2d 63 22 20 22 69 73 73 31 36 | htm")......("format-op-c"."iss16 |
| 27f480 | 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 6f 72 6d 61 74 2d 70 72 65 74 74 79 2d 70 72 69 | 8.htm")......("format-pretty-pri |
| 27f4a0 | 6e 74 3a 79 65 73 22 20 22 69 73 73 31 36 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 6f 72 | nt:yes"."iss169.htm")......("for |
| 27f4c0 | 6d 61 74 2d 73 74 72 69 6e 67 2d 61 72 67 75 6d 65 6e 74 73 3a 73 70 65 63 69 66 79 22 20 22 69 | mat-string-arguments:specify"."i |
| 27f4e0 | 73 73 31 37 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 75 6e 63 74 69 6f 6e 2d 63 61 6c 6c | ss170.htm")......("function-call |
| 27f500 | 2d 65 76 61 6c 75 61 74 69 6f 6e 2d 6f 72 64 65 72 3a 6d 6f 72 65 2d 75 6e 73 70 65 63 69 66 69 | -evaluation-order:more-unspecifi |
| 27f520 | 65 64 22 20 22 69 73 73 31 37 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 75 6e 63 74 69 6f | ed"."iss171.htm")......("functio |
| 27f540 | 6e 2d 63 6f 6d 70 6f 73 69 74 69 6f 6e 3a 6a 61 6e 38 39 2d 78 33 6a 31 33 22 20 22 69 73 73 31 | n-composition:jan89-x3j13"."iss1 |
| 27f560 | 37 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 75 6e 63 74 69 6f 6e 2d 64 65 66 69 6e 69 74 | 72.htm")......("function-definit |
| 27f580 | 69 6f 6e 3a 6a 61 6e 38 39 2d 78 33 6a 31 33 22 20 22 69 73 73 31 37 33 2e 68 74 6d 22 29 0a 20 | ion:jan89-x3j13"."iss173.htm").. |
| 27f5a0 | 20 20 20 20 28 22 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 3a 6c 61 72 67 65 22 20 22 69 73 73 31 | ....("function-name:large"."iss1 |
| 27f5c0 | 37 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 75 6e 63 74 69 6f 6e 2d 74 79 70 65 22 20 22 | 74.htm")......("function-type"." |
| 27f5e0 | 69 73 73 31 37 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 75 6e 63 74 69 6f 6e 2d 74 79 70 | iss175.htm")......("function-typ |
| 27f600 | 65 2d 61 72 67 75 6d 65 6e 74 2d 74 79 70 65 2d 73 65 6d 61 6e 74 69 63 73 3a 72 65 73 74 72 69 | e-argument-type-semantics:restri |
| 27f620 | 63 74 69 76 65 22 20 22 69 73 73 31 37 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 75 6e 63 | ctive"."iss176.htm")......("func |
| 27f640 | 74 69 6f 6e 2d 74 79 70 65 2d 6b 65 79 2d 6e 61 6d 65 3a 73 70 65 63 69 66 79 2d 6b 65 79 77 6f | tion-type-key-name:specify-keywo |
| 27f660 | 72 64 22 20 22 69 73 73 31 37 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 66 75 6e 63 74 69 6f | rd"."iss177.htm")......("functio |
| 27f680 | 6e 2d 74 79 70 65 2d 72 65 73 74 2d 6c 69 73 74 2d 65 6c 65 6d 65 6e 74 3a 75 73 65 2d 61 63 74 | n-type-rest-list-element:use-act |
| 27f6a0 | 75 61 6c 2d 61 72 67 75 6d 65 6e 74 2d 74 79 70 65 22 20 22 69 73 73 31 37 38 2e 68 74 6d 22 29 | ual-argument-type"."iss178.htm") |
| 27f6c0 | 0a 20 20 20 20 20 28 22 66 75 6e 63 74 69 6f 6e 2d 74 79 70 65 3a 78 33 6a 31 33 2d 6d 61 72 63 | ......("function-type:x3j13-marc |
| 27f6e0 | 68 2d 38 38 22 20 22 69 73 73 31 37 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 67 65 6e 65 72 | h-88"."iss179.htm")......("gener |
| 27f700 | 61 6c 69 7a 65 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 65 72 3a 75 6e 69 66 79 22 20 22 69 73 73 | alize-pretty-printer:unify"."iss |
| 27f720 | 31 38 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 67 65 6e 65 72 69 63 2d 66 6c 65 74 2d 70 6f | 180.htm")......("generic-flet-po |
| 27f740 | 6f 72 6c 79 2d 64 65 73 69 67 6e 65 64 3a 64 65 6c 65 74 65 22 20 22 69 73 73 31 38 31 2e 68 74 | orly-designed:delete"."iss181.ht |
| 27f760 | 6d 22 29 0a 20 20 20 20 20 28 22 67 65 6e 73 79 6d 2d 6e 61 6d 65 2d 73 74 69 63 6b 69 6e 65 73 | m")......("gensym-name-stickines |
| 27f780 | 73 3a 6c 69 6b 65 2d 74 65 66 6c 6f 6e 22 20 22 69 73 73 31 38 32 2e 68 74 6d 22 29 0a 20 20 20 | s:like-teflon"."iss182.htm").... |
| 27f7a0 | 20 20 28 22 67 65 6e 74 65 6d 70 2d 62 61 64 2d 69 64 65 61 3a 64 65 70 72 65 63 61 74 65 22 20 | ..("gentemp-bad-idea:deprecate". |
| 27f7c0 | 22 69 73 73 31 38 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 67 65 74 2d 6d 61 63 72 6f 2d 63 | "iss183.htm")......("get-macro-c |
| 27f7e0 | 68 61 72 61 63 74 65 72 2d 72 65 61 64 74 61 62 6c 65 3a 6e 69 6c 2d 73 74 61 6e 64 61 72 64 22 | haracter-readtable:nil-standard" |
| 27f800 | 20 22 69 73 73 31 38 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 67 65 74 2d 73 65 74 66 2d 6d | ."iss184.htm")......("get-setf-m |
| 27f820 | 65 74 68 6f 64 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 3a 61 64 64 2d 61 72 67 22 20 22 69 73 73 31 | ethod-environment:add-arg"."iss1 |
| 27f840 | 38 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 68 61 73 68 2d 74 61 62 6c 65 2d 61 63 63 65 73 | 85.htm")......("hash-table-acces |
| 27f860 | 73 3a 78 33 6a 31 33 2d 6d 61 72 2d 38 39 22 20 22 69 73 73 31 38 36 2e 68 74 6d 22 29 0a 20 20 | s:x3j13-mar-89"."iss186.htm")... |
| 27f880 | 20 20 20 28 22 68 61 73 68 2d 74 61 62 6c 65 2d 6b 65 79 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e | ...("hash-table-key-modification |
| 27f8a0 | 3a 73 70 65 63 69 66 79 22 20 22 69 73 73 31 38 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 68 | :specify"."iss187.htm")......("h |
| 27f8c0 | 61 73 68 2d 74 61 62 6c 65 2d 70 61 63 6b 61 67 65 2d 67 65 6e 65 72 61 74 6f 72 73 3a 61 64 64 | ash-table-package-generators:add |
| 27f8e0 | 2d 77 69 74 68 2d 77 72 61 70 70 65 72 22 20 22 69 73 73 31 38 38 2e 68 74 6d 22 29 0a 20 20 20 | -with-wrapper"."iss188.htm").... |
| 27f900 | 20 20 28 22 68 61 73 68 2d 74 61 62 6c 65 2d 72 65 68 61 73 68 2d 73 69 7a 65 2d 69 6e 74 65 67 | ..("hash-table-rehash-size-integ |
| 27f920 | 65 72 22 20 22 69 73 73 31 38 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 68 61 73 68 2d 74 61 | er"."iss189.htm")......("hash-ta |
| 27f940 | 62 6c 65 2d 73 69 7a 65 3a 69 6e 74 65 6e 64 65 64 2d 65 6e 74 72 69 65 73 22 20 22 69 73 73 31 | ble-size:intended-entries"."iss1 |
| 27f960 | 39 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 68 61 73 68 2d 74 61 62 6c 65 2d 74 65 73 74 73 | 90.htm")......("hash-table-tests |
| 27f980 | 3a 61 64 64 2d 65 71 75 61 6c 70 22 20 22 69 73 73 31 39 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 | :add-equalp"."iss191.htm")...... |
| 27f9a0 | 28 22 69 65 65 65 2d 61 74 61 6e 2d 62 72 61 6e 63 68 2d 63 75 74 3a 73 70 6c 69 74 22 20 22 69 | ("ieee-atan-branch-cut:split"."i |
| 27f9c0 | 73 73 31 39 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 69 67 6e 6f 72 65 2d 75 73 65 2d 74 65 | ss192.htm")......("ignore-use-te |
| 27f9e0 | 72 6d 69 6e 6f 6c 6f 67 79 3a 76 61 6c 75 65 2d 6f 6e 6c 79 22 20 22 69 73 73 31 39 33 2e 68 74 | rminology:value-only"."iss193.ht |
| 27fa00 | 6d 22 29 0a 20 20 20 20 20 28 22 69 6d 70 6f 72 74 2d 73 65 74 66 2d 73 79 6d 62 6f 6c 2d 70 61 | m")......("import-setf-symbol-pa |
| 27fa20 | 63 6b 61 67 65 22 20 22 69 73 73 31 39 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 69 6e 2d 70 | ckage"."iss194.htm")......("in-p |
| 27fa40 | 61 63 6b 61 67 65 2d 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 3a 6d 61 72 38 39 2d 78 33 6a 31 33 | ackage-functionality:mar89-x3j13 |
| 27fa60 | 22 20 22 69 73 73 31 39 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 69 6e 2d 73 79 6e 74 61 78 | "."iss195.htm")......("in-syntax |
| 27fa80 | 3a 6d 69 6e 69 6d 61 6c 22 20 22 69 73 73 31 39 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 69 | :minimal"."iss196.htm")......("i |
| 27faa0 | 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 77 6f 72 64 2d 63 | nitialization-function-keyword-c |
| 27fac0 | 68 65 63 6b 69 6e 67 22 20 22 69 73 73 31 39 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 69 73 | hecking"."iss197.htm")......("is |
| 27fae0 | 6f 2d 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 3a 61 64 64 2d 73 75 62 73 74 72 61 74 65 22 20 22 | o-compatibility:add-substrate"." |
| 27fb00 | 69 73 73 31 39 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6a 75 6e 39 30 2d 74 72 69 76 69 61 | iss198.htm")......("jun90-trivia |
| 27fb20 | 6c 2d 69 73 73 75 65 73 3a 31 31 22 20 22 69 73 73 31 39 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 | l-issues:11"."iss199.htm")...... |
| 27fb40 | 28 22 6a 75 6e 39 30 2d 74 72 69 76 69 61 6c 2d 69 73 73 75 65 73 3a 31 34 22 20 22 69 73 73 32 | ("jun90-trivial-issues:14"."iss2 |
| 27fb60 | 30 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6a 75 6e 39 30 2d 74 72 69 76 69 61 6c 2d 69 73 | 00.htm")......("jun90-trivial-is |
| 27fb80 | 73 75 65 73 3a 32 34 22 20 22 69 73 73 32 30 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6a 75 | sues:24"."iss201.htm")......("ju |
| 27fba0 | 6e 39 30 2d 74 72 69 76 69 61 6c 2d 69 73 73 75 65 73 3a 32 35 22 20 22 69 73 73 32 30 32 2e 68 | n90-trivial-issues:25"."iss202.h |
| 27fbc0 | 74 6d 22 29 0a 20 20 20 20 20 28 22 6a 75 6e 39 30 2d 74 72 69 76 69 61 6c 2d 69 73 73 75 65 73 | tm")......("jun90-trivial-issues |
| 27fbe0 | 3a 32 37 22 20 22 69 73 73 32 30 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6a 75 6e 39 30 2d | :27"."iss203.htm")......("jun90- |
| 27fc00 | 74 72 69 76 69 61 6c 2d 69 73 73 75 65 73 3a 33 22 20 22 69 73 73 32 30 34 2e 68 74 6d 22 29 0a | trivial-issues:3"."iss204.htm"). |
| 27fc20 | 20 20 20 20 20 28 22 6a 75 6e 39 30 2d 74 72 69 76 69 61 6c 2d 69 73 73 75 65 73 3a 34 22 20 22 | .....("jun90-trivial-issues:4"." |
| 27fc40 | 69 73 73 32 30 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6a 75 6e 39 30 2d 74 72 69 76 69 61 | iss205.htm")......("jun90-trivia |
| 27fc60 | 6c 2d 69 73 73 75 65 73 3a 35 22 20 22 69 73 73 32 30 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | l-issues:5"."iss206.htm")......( |
| 27fc80 | 22 6a 75 6e 39 30 2d 74 72 69 76 69 61 6c 2d 69 73 73 75 65 73 3a 39 22 20 22 69 73 73 32 30 37 | "jun90-trivial-issues:9"."iss207 |
| 27fca0 | 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6b 65 79 77 6f 72 64 2d 61 72 67 75 6d 65 6e 74 2d 6e | .htm")......("keyword-argument-n |
| 27fcc0 | 61 6d 65 2d 70 61 63 6b 61 67 65 3a 61 6e 79 22 20 22 69 73 73 32 30 38 2e 68 74 6d 22 29 0a 20 | ame-package:any"."iss208.htm").. |
| 27fce0 | 20 20 20 20 28 22 6c 61 73 74 2d 6e 22 20 22 69 73 73 32 30 39 2e 68 74 6d 22 29 0a 20 20 20 20 | ....("last-n"."iss209.htm")..... |
| 27fd00 | 20 28 22 6c 63 6d 2d 6e 6f 2d 61 72 67 75 6d 65 6e 74 73 3a 31 22 20 22 69 73 73 32 31 30 2e 68 | .("lcm-no-arguments:1"."iss210.h |
| 27fd20 | 74 6d 22 29 0a 20 20 20 20 20 28 22 6c 65 78 69 63 61 6c 2d 63 6f 6e 73 74 72 75 63 74 2d 67 6c | tm")......("lexical-construct-gl |
| 27fd40 | 6f 62 61 6c 2d 64 65 66 69 6e 69 74 69 6f 6e 3a 75 6e 64 65 66 69 6e 65 64 22 20 22 69 73 73 32 | obal-definition:undefined"."iss2 |
| 27fd60 | 31 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6c 69 73 70 2d 70 61 63 6b 61 67 65 2d 6e 61 6d | 11.htm")......("lisp-package-nam |
| 27fd80 | 65 3a 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 22 20 22 69 73 73 32 31 32 2e 68 74 6d 22 29 0a 20 20 20 | e:common-lisp"."iss212.htm").... |
| 27fda0 | 20 20 28 22 6c 69 73 70 2d 73 79 6d 62 6f 6c 2d 72 65 64 65 66 69 6e 69 74 69 6f 6e 2d 61 67 61 | ..("lisp-symbol-redefinition-aga |
| 27fdc0 | 69 6e 3a 6d 6f 72 65 2d 66 69 78 65 73 22 20 22 69 73 73 32 31 33 2e 68 74 6d 22 29 0a 20 20 20 | in:more-fixes"."iss213.htm").... |
| 27fde0 | 20 20 28 22 6c 69 73 70 2d 73 79 6d 62 6f 6c 2d 72 65 64 65 66 69 6e 69 74 69 6f 6e 3a 6d 61 72 | ..("lisp-symbol-redefinition:mar |
| 27fe00 | 38 39 2d 78 33 6a 31 33 22 20 22 69 73 73 32 31 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6c | 89-x3j13"."iss214.htm")......("l |
| 27fe20 | 6f 61 64 2d 6f 62 6a 65 63 74 73 3a 6d 61 6b 65 2d 6c 6f 61 64 2d 66 6f 72 6d 22 20 22 69 73 73 | oad-objects:make-load-form"."iss |
| 27fe40 | 32 31 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6c 6f 61 64 2d 74 69 6d 65 2d 65 76 61 6c 3a | 215.htm")......("load-time-eval: |
| 27fe60 | 72 2a 2a 32 2d 6e 65 77 2d 73 70 65 63 69 61 6c 2d 66 6f 72 6d 22 20 22 69 73 73 32 31 36 2e 68 | r**2-new-special-form"."iss216.h |
| 27fe80 | 74 6d 22 29 0a 20 20 20 20 20 28 22 6c 6f 61 64 2d 74 69 6d 65 2d 65 76 61 6c 3a 72 2a 2a 33 2d | tm")......("load-time-eval:r**3- |
| 27fea0 | 6e 65 77 2d 73 70 65 63 69 61 6c 2d 66 6f 72 6d 22 20 22 69 73 73 32 31 37 2e 68 74 6d 22 29 0a | new-special-form"."iss217.htm"). |
| 27fec0 | 20 20 20 20 20 28 22 6c 6f 61 64 2d 74 72 75 65 6e 61 6d 65 3a 6e 65 77 2d 70 61 74 68 6e 61 6d | .....("load-truename:new-pathnam |
| 27fee0 | 65 2d 76 61 72 69 61 62 6c 65 73 22 20 22 69 73 73 32 31 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 | e-variables"."iss218.htm")...... |
| 27ff00 | 28 22 6c 6f 63 61 6c 6c 79 2d 74 6f 70 2d 6c 65 76 65 6c 3a 73 70 65 63 69 61 6c 2d 66 6f 72 6d | ("locally-top-level:special-form |
| 27ff20 | 22 20 22 69 73 73 32 31 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6c 6f 6f 70 2d 61 6e 64 2d | "."iss219.htm")......("loop-and- |
| 27ff40 | 64 69 73 63 72 65 70 61 6e 63 79 3a 6e 6f 2d 72 65 69 74 65 72 61 74 69 6f 6e 22 20 22 69 73 73 | discrepancy:no-reiteration"."iss |
| 27ff60 | 32 32 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6c 6f 6f 70 2d 66 6f 72 2d 61 73 2d 6f 6e 2d | 220.htm")......("loop-for-as-on- |
| 27ff80 | 74 79 70 6f 3a 66 69 78 2d 74 79 70 6f 22 20 22 69 73 73 32 32 31 2e 68 74 6d 22 29 0a 20 20 20 | typo:fix-typo"."iss221.htm").... |
| 27ffa0 | 20 20 28 22 6c 6f 6f 70 2d 69 6e 69 74 66 6f 72 6d 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 3a 70 61 | ..("loop-initform-environment:pa |
| 27ffc0 | 72 74 69 61 6c 2d 69 6e 74 65 72 6c 65 61 76 69 6e 67 2d 76 61 67 75 65 22 20 22 69 73 73 32 32 | rtial-interleaving-vague"."iss22 |
| 27ffe0 | 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6c 6f 6f 70 2d 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 | 2.htm")......("loop-miscellaneou |
| 280000 | 73 2d 72 65 70 61 69 72 73 3a 66 69 78 22 20 22 69 73 73 32 32 33 2e 68 74 6d 22 29 0a 20 20 20 | s-repairs:fix"."iss223.htm").... |
| 280020 | 20 20 28 22 6c 6f 6f 70 2d 6e 61 6d 65 64 2d 62 6c 6f 63 6b 2d 6e 69 6c 3a 6f 76 65 72 72 69 64 | ..("loop-named-block-nil:overrid |
| 280040 | 65 22 20 22 69 73 73 32 32 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6c 6f 6f 70 2d 70 72 65 | e"."iss224.htm")......("loop-pre |
| 280060 | 73 65 6e 74 2d 73 79 6d 62 6f 6c 73 2d 74 79 70 6f 3a 66 6c 75 73 68 2d 77 72 6f 6e 67 2d 77 6f | sent-symbols-typo:flush-wrong-wo |
| 280080 | 72 64 73 22 20 22 69 73 73 32 32 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6c 6f 6f 70 2d 73 | rds"."iss225.htm")......("loop-s |
| 2800a0 | 79 6e 74 61 78 2d 6f 76 65 72 68 61 75 6c 3a 72 65 70 61 69 72 22 20 22 69 73 73 32 32 36 2e 68 | yntax-overhaul:repair"."iss226.h |
| 2800c0 | 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 63 72 6f 2d 61 73 2d 66 75 6e 63 74 69 6f 6e 3a 64 69 | tm")......("macro-as-function:di |
| 2800e0 | 73 61 6c 6c 6f 77 22 20 22 69 73 73 32 32 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 63 | sallow"."iss227.htm")......("mac |
| 280100 | 72 6f 2d 64 65 63 6c 61 72 61 74 69 6f 6e 73 3a 6d 61 6b 65 2d 65 78 70 6c 69 63 69 74 22 20 22 | ro-declarations:make-explicit"." |
| 280120 | 69 73 73 32 32 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 63 72 6f 2d 65 6e 76 69 72 6f | iss228.htm")......("macro-enviro |
| 280140 | 6e 6d 65 6e 74 2d 65 78 74 65 6e 74 3a 64 79 6e 61 6d 69 63 22 20 22 69 73 73 32 32 39 2e 68 74 | nment-extent:dynamic"."iss229.ht |
| 280160 | 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 2d 65 6e 76 69 72 6f | m")......("macro-function-enviro |
| 280180 | 6e 6d 65 6e 74 22 20 22 69 73 73 32 33 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 63 72 | nment"."iss230.htm")......("macr |
| 2801a0 | 6f 2d 66 75 6e 63 74 69 6f 6e 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 3a 79 65 73 22 20 22 69 73 73 | o-function-environment:yes"."iss |
| 2801c0 | 32 33 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 63 72 6f 2d 73 75 62 66 6f 72 6d 73 2d | 231.htm")......("macro-subforms- |
| 2801e0 | 74 6f 70 2d 6c 65 76 65 6c 2d 70 3a 61 64 64 2d 63 6f 6e 73 74 72 61 69 6e 74 73 22 20 22 69 73 | top-level-p:add-constraints"."is |
| 280200 | 73 32 33 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 63 72 6f 65 78 70 61 6e 64 2d 68 6f | s232.htm")......("macroexpand-ho |
| 280220 | 6f 6b 2d 64 65 66 61 75 6c 74 3a 65 78 70 6c 69 63 69 74 6c 79 2d 76 61 67 75 65 22 20 22 69 73 | ok-default:explicitly-vague"."is |
| 280240 | 73 32 33 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 63 72 6f 65 78 70 61 6e 64 2d 68 6f | s233.htm")......("macroexpand-ho |
| 280260 | 6f 6b 2d 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 3a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d | ok-initial-value:implementation- |
| 280280 | 64 65 70 65 6e 64 65 6e 74 22 20 22 69 73 73 32 33 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 | dependent"."iss234.htm")......(" |
| 2802a0 | 6d 61 63 72 6f 65 78 70 61 6e 64 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 3a 74 72 75 65 22 20 22 | macroexpand-return-value:true"." |
| 2802c0 | 69 73 73 32 33 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 6b 65 2d 6c 6f 61 64 2d 66 6f | iss235.htm")......("make-load-fo |
| 2802e0 | 72 6d 2d 63 6f 6e 66 75 73 69 6f 6e 3a 72 65 77 72 69 74 65 22 20 22 69 73 73 32 33 36 2e 68 74 | rm-confusion:rewrite"."iss236.ht |
| 280300 | 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 6b 65 2d 6c 6f 61 64 2d 66 6f 72 6d 2d 73 61 76 69 6e 67 | m")......("make-load-form-saving |
| 280320 | 2d 73 6c 6f 74 73 3a 6e 6f 2d 69 6e 69 74 66 6f 72 6d 73 22 20 22 69 73 73 32 33 37 2e 68 74 6d | -slots:no-initforms"."iss237.htm |
| 280340 | 22 29 0a 20 20 20 20 20 28 22 6d 61 6b 65 2d 70 61 63 6b 61 67 65 2d 75 73 65 2d 64 65 66 61 75 | ")......("make-package-use-defau |
| 280360 | 6c 74 3a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 64 65 70 65 6e 64 65 6e 74 22 20 22 69 73 | lt:implementation-dependent"."is |
| 280380 | 73 32 33 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 70 2d 69 6e 74 6f 3a 61 64 64 2d 66 | s238.htm")......("map-into:add-f |
| 2803a0 | 75 6e 63 74 69 6f 6e 22 20 22 69 73 73 32 33 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 61 | unction"."iss239.htm")......("ma |
| 2803c0 | 70 70 69 6e 67 2d 64 65 73 74 72 75 63 74 69 76 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 3a 65 78 | pping-destructive-interaction:ex |
| 2803e0 | 70 6c 69 63 69 74 6c 79 2d 76 61 67 75 65 22 20 22 69 73 73 32 34 30 2e 68 74 6d 22 29 0a 20 20 | plicitly-vague"."iss240.htm")... |
| 280400 | 20 20 20 28 22 6d 65 74 61 63 6c 61 73 73 2d 6f 66 2d 73 79 73 74 65 6d 2d 63 6c 61 73 73 3a 75 | ...("metaclass-of-system-class:u |
| 280420 | 6e 73 70 65 63 69 66 69 65 64 22 20 22 69 73 73 32 34 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | nspecified"."iss241.htm")......( |
| 280440 | 22 6d 65 74 68 6f 64 2d 63 6f 6d 62 69 6e 61 74 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 73 3a 63 6c | "method-combination-arguments:cl |
| 280460 | 61 72 69 66 79 22 20 22 69 73 73 32 34 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 65 74 68 | arify"."iss242.htm")......("meth |
| 280480 | 6f 64 2d 69 6e 69 74 66 6f 72 6d 3a 66 6f 72 62 69 64 2d 63 61 6c 6c 2d 6e 65 78 74 2d 6d 65 74 | od-initform:forbid-call-next-met |
| 2804a0 | 68 6f 64 22 20 22 69 73 73 32 34 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 75 66 66 6c 65 | hod"."iss243.htm")......("muffle |
| 2804c0 | 2d 77 61 72 6e 69 6e 67 2d 63 6f 6e 64 69 74 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 22 20 22 69 73 | -warning-condition-argument"."is |
| 2804e0 | 73 32 34 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 | s244.htm")......("multiple-value |
| 280500 | 2d 73 65 74 71 2d 6f 72 64 65 72 3a 6c 69 6b 65 2d 73 65 74 66 2d 6f 66 2d 76 61 6c 75 65 73 22 | -setq-order:like-setf-of-values" |
| 280520 | 20 22 69 73 73 32 34 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6d 75 6c 74 69 70 6c 65 2d 76 | ."iss245.htm")......("multiple-v |
| 280540 | 61 6c 75 65 73 2d 6c 69 6d 69 74 2d 6f 6e 2d 76 61 72 69 61 62 6c 65 73 3a 75 6e 64 65 66 69 6e | alues-limit-on-variables:undefin |
| 280560 | 65 64 22 20 22 69 73 73 32 34 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6e 69 6e 74 65 72 73 | ed"."iss246.htm")......("ninters |
| 280580 | 65 63 74 69 6f 6e 2d 64 65 73 74 72 75 63 74 69 6f 6e 22 20 22 69 73 73 32 34 37 2e 68 74 6d 22 | ection-destruction"."iss247.htm" |
| 2805a0 | 29 0a 20 20 20 20 20 28 22 6e 69 6e 74 65 72 73 65 63 74 69 6f 6e 2d 64 65 73 74 72 75 63 74 69 | )......("nintersection-destructi |
| 2805c0 | 6f 6e 3a 72 65 76 65 72 74 22 20 22 69 73 73 32 34 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 | on:revert"."iss248.htm")......(" |
| 2805e0 | 6e 6f 74 2d 61 6e 64 2d 6e 75 6c 6c 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 3a 78 33 6a 31 33 2d | not-and-null-return-value:x3j13- |
| 280600 | 6d 61 72 2d 39 33 22 20 22 69 73 73 32 34 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 6e 74 68 | mar-93"."iss249.htm")......("nth |
| 280620 | 2d 76 61 6c 75 65 3a 61 64 64 22 20 22 69 73 73 32 35 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | -value:add"."iss250.htm")......( |
| 280640 | 22 6f 70 74 69 6d 69 7a 65 2d 64 65 62 75 67 2d 69 6e 66 6f 3a 6e 65 77 2d 71 75 61 6c 69 74 79 | "optimize-debug-info:new-quality |
| 280660 | 22 20 22 69 73 73 32 35 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 63 6b 61 67 65 2d 63 | "."iss251.htm")......("package-c |
| 280680 | 6c 75 74 74 65 72 3a 72 65 64 75 63 65 22 20 22 69 73 73 32 35 32 2e 68 74 6d 22 29 0a 20 20 20 | lutter:reduce"."iss252.htm").... |
| 2806a0 | 20 20 28 22 70 61 63 6b 61 67 65 2d 64 65 6c 65 74 69 6f 6e 3a 6e 65 77 2d 66 75 6e 63 74 69 6f | ..("package-deletion:new-functio |
| 2806c0 | 6e 22 20 22 69 73 73 32 35 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 63 6b 61 67 65 2d | n"."iss253.htm")......("package- |
| 2806e0 | 66 75 6e 63 74 69 6f 6e 2d 63 6f 6e 73 69 73 74 65 6e 63 79 3a 6d 6f 72 65 2d 70 65 72 6d 69 73 | function-consistency:more-permis |
| 280700 | 73 69 76 65 22 20 22 69 73 73 32 35 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 72 73 65 | sive"."iss254.htm")......("parse |
| 280720 | 2d 65 72 72 6f 72 2d 73 74 72 65 61 6d 3a 73 70 6c 69 74 2d 74 79 70 65 73 22 20 22 69 73 73 32 | -error-stream:split-types"."iss2 |
| 280740 | 35 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 | 55.htm")......("pathname-compone |
| 280760 | 6e 74 2d 63 61 73 65 3a 6b 65 79 77 6f 72 64 2d 61 72 67 75 6d 65 6e 74 22 20 22 69 73 73 32 35 | nt-case:keyword-argument"."iss25 |
| 280780 | 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 63 6f 6d 70 6f 6e 65 6e | 6.htm")......("pathname-componen |
| 2807a0 | 74 2d 76 61 6c 75 65 3a 73 70 65 63 69 66 79 22 20 22 69 73 73 32 35 37 2e 68 74 6d 22 29 0a 20 | t-value:specify"."iss257.htm").. |
| 2807c0 | 20 20 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 68 6f 73 74 2d 70 61 72 73 69 6e 67 3a 72 65 63 6f | ....("pathname-host-parsing:reco |
| 2807e0 | 67 6e 69 7a 65 2d 6c 6f 67 69 63 61 6c 2d 68 6f 73 74 2d 6e 61 6d 65 73 22 20 22 69 73 73 32 35 | gnize-logical-host-names"."iss25 |
| 280800 | 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 6c 6f 67 69 63 61 6c 3a | 8.htm")......("pathname-logical: |
| 280820 | 61 64 64 22 20 22 69 73 73 32 35 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 74 68 6e 61 | add"."iss259.htm")......("pathna |
| 280840 | 6d 65 2d 70 72 69 6e 74 2d 72 65 61 64 3a 73 68 61 72 70 73 69 67 6e 2d 70 22 20 22 69 73 73 32 | me-print-read:sharpsign-p"."iss2 |
| 280860 | 36 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 73 74 72 65 61 6d 22 | 60.htm")......("pathname-stream" |
| 280880 | 20 22 69 73 73 32 36 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 73 | ."iss261.htm")......("pathname-s |
| 2808a0 | 74 72 65 61 6d 3a 66 69 6c 65 73 2d 6f 72 2d 73 79 6e 6f 6e 79 6d 22 20 22 69 73 73 32 36 32 2e | tream:files-or-synonym"."iss262. |
| 2808c0 | 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 73 75 62 64 69 72 65 63 74 6f | htm")......("pathname-subdirecto |
| 2808e0 | 72 79 2d 6c 69 73 74 3a 6e 65 77 2d 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 22 20 22 69 73 73 | ry-list:new-representation"."iss |
| 280900 | 32 36 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 74 68 6e 61 6d 65 2d 73 79 6d 62 6f 6c | 263.htm")......("pathname-symbol |
| 280920 | 22 20 22 69 73 73 32 36 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 74 68 6e 61 6d 65 2d | "."iss264.htm")......("pathname- |
| 280940 | 73 79 6e 74 61 78 2d 65 72 72 6f 72 2d 74 69 6d 65 3a 65 78 70 6c 69 63 69 74 6c 79 2d 76 61 67 | syntax-error-time:explicitly-vag |
| 280960 | 75 65 22 20 22 69 73 73 32 36 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 74 68 6e 61 6d | ue"."iss265.htm")......("pathnam |
| 280980 | 65 2d 75 6e 73 70 65 63 69 66 69 63 2d 63 6f 6d 70 6f 6e 65 6e 74 3a 6e 65 77 2d 74 6f 6b 65 6e | e-unspecific-component:new-token |
| 2809a0 | 22 20 22 69 73 73 32 36 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 61 74 68 6e 61 6d 65 2d | "."iss266.htm")......("pathname- |
| 2809c0 | 77 69 6c 64 3a 6e 65 77 2d 66 75 6e 63 74 69 6f 6e 73 22 20 22 69 73 73 32 36 37 2e 68 74 6d 22 | wild:new-functions"."iss267.htm" |
| 2809e0 | 29 0a 20 20 20 20 20 28 22 70 65 65 6b 2d 63 68 61 72 2d 72 65 61 64 2d 63 68 61 72 2d 65 63 68 | )......("peek-char-read-char-ech |
| 280a00 | 6f 3a 66 69 72 73 74 2d 72 65 61 64 2d 63 68 61 72 22 20 22 69 73 73 32 36 38 2e 68 74 6d 22 29 | o:first-read-char"."iss268.htm") |
| 280a20 | 0a 20 20 20 20 20 28 22 70 6c 69 73 74 2d 64 75 70 6c 69 63 61 74 65 73 3a 61 6c 6c 6f 77 22 20 | ......("plist-duplicates:allow". |
| 280a40 | 22 69 73 73 32 36 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 72 65 74 74 79 2d 70 72 69 6e | "iss269.htm")......("pretty-prin |
| 280a60 | 74 2d 69 6e 74 65 72 66 61 63 65 22 20 22 69 73 73 32 37 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 | t-interface"."iss270.htm")...... |
| 280a80 | 28 22 70 72 69 6e 63 2d 72 65 61 64 61 62 6c 79 3a 78 33 6a 31 33 2d 64 65 63 2d 39 31 22 20 22 | ("princ-readably:x3j13-dec-91"." |
| 280aa0 | 69 73 73 32 37 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 72 69 6e 74 2d 63 61 73 65 2d 62 | iss271.htm")......("print-case-b |
| 280ac0 | 65 68 61 76 69 6f 72 3a 63 6c 61 72 69 66 79 22 20 22 69 73 73 32 37 32 2e 68 74 6d 22 29 0a 20 | ehavior:clarify"."iss272.htm").. |
| 280ae0 | 20 20 20 20 28 22 70 72 69 6e 74 2d 63 61 73 65 2d 70 72 69 6e 74 2d 65 73 63 61 70 65 2d 69 6e | ....("print-case-print-escape-in |
| 280b00 | 74 65 72 61 63 74 69 6f 6e 3a 76 65 72 74 69 63 61 6c 2d 62 61 72 2d 72 75 6c 65 2d 6e 6f 2d 75 | teraction:vertical-bar-rule-no-u |
| 280b20 | 70 63 61 73 65 22 0a 20 20 20 20 20 20 22 69 73 73 32 37 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 | pcase"......."iss273.htm")...... |
| 280b40 | 28 22 70 72 69 6e 74 2d 63 69 72 63 6c 65 2d 73 68 61 72 65 64 3a 72 65 73 70 65 63 74 2d 70 72 | ("print-circle-shared:respect-pr |
| 280b60 | 69 6e 74 2d 63 69 72 63 6c 65 22 20 22 69 73 73 32 37 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | int-circle"."iss274.htm")......( |
| 280b80 | 22 70 72 69 6e 74 2d 63 69 72 63 6c 65 2d 73 74 72 75 63 74 75 72 65 3a 75 73 65 72 2d 66 75 6e | "print-circle-structure:user-fun |
| 280ba0 | 63 74 69 6f 6e 73 2d 77 6f 72 6b 22 20 22 69 73 73 32 37 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 | ctions-work"."iss275.htm")...... |
| 280bc0 | 28 22 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2d 62 65 68 61 76 69 6f 72 3a 63 6c 61 72 69 66 | ("print-readably-behavior:clarif |
| 280be0 | 79 22 20 22 69 73 73 32 37 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 72 69 6e 74 65 72 2d | y"."iss276.htm")......("printer- |
| 280c00 | 77 68 69 74 65 73 70 61 63 65 3a 6a 75 73 74 2d 6f 6e 65 2d 73 70 61 63 65 22 20 22 69 73 73 32 | whitespace:just-one-space"."iss2 |
| 280c20 | 37 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 72 6f 63 6c 61 69 6d 2d 65 74 63 2d 69 6e 2d | 77.htm")......("proclaim-etc-in- |
| 280c40 | 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 3a 6e 65 77 2d 6d 61 63 72 6f 22 20 22 69 73 73 32 37 38 2e | compile-file:new-macro"."iss278. |
| 280c60 | 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 75 73 68 2d 65 76 61 6c 75 61 74 69 6f 6e 2d 6f 72 64 | htm")......("push-evaluation-ord |
| 280c80 | 65 72 3a 66 69 72 73 74 2d 69 74 65 6d 22 20 22 69 73 73 32 37 39 2e 68 74 6d 22 29 0a 20 20 20 | er:first-item"."iss279.htm").... |
| 280ca0 | 20 20 28 22 70 75 73 68 2d 65 76 61 6c 75 61 74 69 6f 6e 2d 6f 72 64 65 72 3a 69 74 65 6d 2d 66 | ..("push-evaluation-order:item-f |
| 280cc0 | 69 72 73 74 22 20 22 69 73 73 32 38 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 70 75 73 68 6e | irst"."iss280.htm")......("pushn |
| 280ce0 | 65 77 2d 73 74 6f 72 65 2d 72 65 71 75 69 72 65 64 3a 75 6e 73 70 65 63 69 66 69 65 64 22 20 22 | ew-store-required:unspecified"." |
| 280d00 | 69 73 73 32 38 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 71 75 6f 74 65 2d 73 65 6d 61 6e 74 | iss281.htm")......("quote-semant |
| 280d20 | 69 63 73 3a 6e 6f 2d 63 6f 70 79 69 6e 67 22 20 22 69 73 73 32 38 32 2e 68 74 6d 22 29 0a 20 20 | ics:no-copying"."iss282.htm")... |
| 280d40 | 20 20 20 28 22 72 61 6e 67 65 2d 6f 66 2d 63 6f 75 6e 74 2d 6b 65 79 77 6f 72 64 3a 6e 69 6c 2d | ...("range-of-count-keyword:nil- |
| 280d60 | 6f 72 2d 69 6e 74 65 67 65 72 22 20 22 69 73 73 32 38 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | or-integer"."iss283.htm")......( |
| 280d80 | 22 72 61 6e 67 65 2d 6f 66 2d 73 74 61 72 74 2d 61 6e 64 2d 65 6e 64 2d 70 61 72 61 6d 65 74 65 | "range-of-start-and-end-paramete |
| 280da0 | 72 73 3a 69 6e 74 65 67 65 72 2d 61 6e 64 2d 69 6e 74 65 67 65 72 2d 6e 69 6c 22 20 22 69 73 73 | rs:integer-and-integer-nil"."iss |
| 280dc0 | 32 38 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 72 65 61 64 2d 61 6e 64 2d 77 72 69 74 65 2d | 284.htm")......("read-and-write- |
| 280de0 | 62 79 74 65 73 3a 6e 65 77 2d 66 75 6e 63 74 69 6f 6e 73 22 20 22 69 73 73 32 38 35 2e 68 74 6d | bytes:new-functions"."iss285.htm |
| 280e00 | 22 29 0a 20 20 20 20 20 28 22 72 65 61 64 2d 63 61 73 65 2d 73 65 6e 73 69 74 69 76 69 74 79 3a | ")......("read-case-sensitivity: |
| 280e20 | 72 65 61 64 74 61 62 6c 65 2d 6b 65 79 77 6f 72 64 73 22 20 22 69 73 73 32 38 36 2e 68 74 6d 22 | readtable-keywords"."iss286.htm" |
| 280e40 | 29 0a 20 20 20 20 20 28 22 72 65 61 64 2d 6d 6f 64 69 66 79 2d 77 72 69 74 65 2d 65 76 61 6c 75 | )......("read-modify-write-evalu |
| 280e60 | 61 74 69 6f 6e 2d 6f 72 64 65 72 3a 64 65 6c 61 79 65 64 2d 61 63 63 65 73 73 2d 73 74 6f 72 65 | ation-order:delayed-access-store |
| 280e80 | 73 22 20 22 69 73 73 32 38 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 72 65 61 64 2d 73 75 70 | s"."iss287.htm")......("read-sup |
| 280ea0 | 70 72 65 73 73 2d 63 6f 6e 66 75 73 69 6e 67 3a 67 65 6e 65 72 61 6c 69 7a 65 22 20 22 69 73 73 | press-confusing:generalize"."iss |
| 280ec0 | 32 38 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 72 65 61 64 65 72 2d 65 72 72 6f 72 3a 6e 65 | 288.htm")......("reader-error:ne |
| 280ee0 | 77 2d 74 79 70 65 22 20 22 69 73 73 32 38 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 72 65 61 | w-type"."iss289.htm")......("rea |
| 280f00 | 6c 2d 6e 75 6d 62 65 72 2d 74 79 70 65 3a 78 33 6a 31 33 2d 6d 61 72 2d 38 39 22 20 22 69 73 73 | l-number-type:x3j13-mar-89"."iss |
| 280f20 | 32 39 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 72 65 63 75 72 73 69 76 65 2d 64 65 66 74 79 | 290.htm")......("recursive-defty |
| 280f40 | 70 65 3a 65 78 70 6c 69 63 69 74 6c 79 2d 76 61 67 75 65 22 20 22 69 73 73 32 39 31 2e 68 74 6d | pe:explicitly-vague"."iss291.htm |
| 280f60 | 22 29 0a 20 20 20 20 20 28 22 72 65 64 75 63 65 2d 61 72 67 75 6d 65 6e 74 2d 65 78 74 72 61 63 | ")......("reduce-argument-extrac |
| 280f80 | 74 69 6f 6e 22 20 22 69 73 73 32 39 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 72 65 6d 66 2d | tion"."iss292.htm")......("remf- |
| 280fa0 | 64 65 73 74 72 75 63 74 69 6f 6e 2d 75 6e 73 70 65 63 69 66 69 65 64 3a 78 33 6a 31 33 2d 6d 61 | destruction-unspecified:x3j13-ma |
| 280fc0 | 72 2d 38 39 22 20 22 69 73 73 32 39 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 72 65 71 75 69 | r-89"."iss293.htm")......("requi |
| 280fe0 | 72 65 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2d 61 67 61 69 6e 3a 78 33 6a 31 33 | re-pathname-defaults-again:x3j13 |
| 281000 | 2d 64 65 63 2d 39 31 22 20 22 69 73 73 32 39 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 72 65 | -dec-91"."iss294.htm")......("re |
| 281020 | 71 75 69 72 65 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2d 79 65 74 2d 61 67 61 69 | quire-pathname-defaults-yet-agai |
| 281040 | 6e 3a 72 65 73 74 6f 72 65 2d 61 72 67 75 6d 65 6e 74 22 20 22 69 73 73 32 39 35 2e 68 74 6d 22 | n:restore-argument"."iss295.htm" |
| 281060 | 29 0a 20 20 20 20 20 28 22 72 65 71 75 69 72 65 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c | )......("require-pathname-defaul |
| 281080 | 74 73 3a 65 6c 69 6d 69 6e 61 74 65 22 20 22 69 73 73 32 39 36 2e 68 74 6d 22 29 0a 20 20 20 20 | ts:eliminate"."iss296.htm")..... |
| 2810a0 | 20 28 22 72 65 73 74 2d 6c 69 73 74 2d 61 6c 6c 6f 63 61 74 69 6f 6e 3a 6d 61 79 2d 73 68 61 72 | .("rest-list-allocation:may-shar |
| 2810c0 | 65 22 20 22 69 73 73 32 39 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 72 65 73 75 6c 74 2d 6c | e"."iss297.htm")......("result-l |
| 2810e0 | 69 73 74 73 2d 73 68 61 72 65 64 3a 73 70 65 63 69 66 79 22 20 22 69 73 73 32 39 38 2e 68 74 6d | ists-shared:specify"."iss298.htm |
| 281100 | 22 29 0a 20 20 20 20 20 28 22 72 65 74 75 72 6e 2d 76 61 6c 75 65 73 2d 75 6e 73 70 65 63 69 66 | ")......("return-values-unspecif |
| 281120 | 69 65 64 3a 73 70 65 63 69 66 79 22 20 22 69 73 73 32 39 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 | ied:specify"."iss299.htm")...... |
| 281140 | 28 22 72 6f 6f 6d 2d 64 65 66 61 75 6c 74 2d 61 72 67 75 6d 65 6e 74 3a 6e 65 77 2d 76 61 6c 75 | ("room-default-argument:new-valu |
| 281160 | 65 22 20 22 69 73 73 33 30 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 65 6c 66 2d 6d 6f 64 | e"."iss300.htm")......("self-mod |
| 281180 | 69 66 79 69 6e 67 2d 63 6f 64 65 3a 66 6f 72 62 69 64 22 20 22 69 73 73 33 30 31 2e 68 74 6d 22 | ifying-code:forbid"."iss301.htm" |
| 2811a0 | 29 0a 20 20 20 20 20 28 22 73 65 71 75 65 6e 63 65 2d 74 79 70 65 2d 6c 65 6e 67 74 68 3a 6d 75 | )......("sequence-type-length:mu |
| 2811c0 | 73 74 2d 6d 61 74 63 68 22 20 22 69 73 73 33 30 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 | st-match"."iss302.htm")......("s |
| 2811e0 | 65 74 66 2d 61 70 70 6c 79 2d 65 78 70 61 6e 73 69 6f 6e 3a 69 67 6e 6f 72 65 2d 65 78 70 61 6e | etf-apply-expansion:ignore-expan |
| 281200 | 64 65 72 22 20 22 69 73 73 33 30 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 65 74 66 2d 66 | der"."iss303.htm")......("setf-f |
| 281220 | 69 6e 64 2d 63 6c 61 73 73 3a 61 6c 6c 6f 77 2d 6e 69 6c 22 20 22 69 73 73 33 30 34 2e 68 74 6d | ind-class:allow-nil"."iss304.htm |
| 281240 | 22 29 0a 20 20 20 20 20 28 22 73 65 74 66 2d 66 75 6e 63 74 69 6f 6e 73 2d 61 67 61 69 6e 3a 6d | ")......("setf-functions-again:m |
| 281260 | 69 6e 69 6d 61 6c 2d 63 68 61 6e 67 65 73 22 20 22 69 73 73 33 30 35 2e 68 74 6d 22 29 0a 20 20 | inimal-changes"."iss305.htm")... |
| 281280 | 20 20 20 28 22 73 65 74 66 2d 67 65 74 2d 64 65 66 61 75 6c 74 3a 65 76 61 6c 75 61 74 65 64 2d | ...("setf-get-default:evaluated- |
| 2812a0 | 62 75 74 2d 69 67 6e 6f 72 65 64 22 20 22 69 73 73 33 30 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 | but-ignored"."iss306.htm")...... |
| 2812c0 | 28 22 73 65 74 66 2d 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 3a 6c 61 73 74 22 20 22 69 73 | ("setf-macro-expansion:last"."is |
| 2812e0 | 73 33 30 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 65 74 66 2d 6d 65 74 68 6f 64 2d 76 73 | s307.htm")......("setf-method-vs |
| 281300 | 2d 73 65 74 66 2d 6d 65 74 68 6f 64 3a 72 65 6e 61 6d 65 2d 6f 6c 64 2d 74 65 72 6d 73 22 20 22 | -setf-method:rename-old-terms"." |
| 281320 | 69 73 73 33 30 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 65 74 66 2d 6d 75 6c 74 69 70 6c | iss308.htm")......("setf-multipl |
| 281340 | 65 2d 73 74 6f 72 65 2d 76 61 72 69 61 62 6c 65 73 3a 61 6c 6c 6f 77 22 20 22 69 73 73 33 30 39 | e-store-variables:allow"."iss309 |
| 281360 | 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 65 74 66 2d 6f 66 2d 61 70 70 6c 79 3a 6f 6e 6c 79 | .htm")......("setf-of-apply:only |
| 281380 | 2d 61 72 65 66 2d 61 6e 64 2d 66 72 69 65 6e 64 73 22 20 22 69 73 73 33 31 30 2e 68 74 6d 22 29 | -aref-and-friends"."iss310.htm") |
| 2813a0 | 0a 20 20 20 20 20 28 22 73 65 74 66 2d 6f 66 2d 76 61 6c 75 65 73 3a 61 64 64 22 20 22 69 73 73 | ......("setf-of-values:add"."iss |
| 2813c0 | 33 31 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 65 74 66 2d 73 75 62 2d 6d 65 74 68 6f 64 | 311.htm")......("setf-sub-method |
| 2813e0 | 73 3a 64 65 6c 61 79 65 64 2d 61 63 63 65 73 73 2d 73 74 6f 72 65 73 22 20 22 69 73 73 33 31 32 | s:delayed-access-stores"."iss312 |
| 281400 | 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 68 61 64 6f 77 2d 61 6c 72 65 61 64 79 2d 70 72 65 | .htm")......("shadow-already-pre |
| 281420 | 73 65 6e 74 22 20 22 69 73 73 33 31 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 68 61 64 6f | sent"."iss313.htm")......("shado |
| 281440 | 77 2d 61 6c 72 65 61 64 79 2d 70 72 65 73 65 6e 74 3a 77 6f 72 6b 73 22 20 22 69 73 73 33 31 34 | w-already-present:works"."iss314 |
| 281460 | 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 68 61 72 70 2d 63 6f 6d 6d 61 2d 63 6f 6e 66 75 73 | .htm")......("sharp-comma-confus |
| 281480 | 69 6f 6e 3a 72 65 6d 6f 76 65 22 20 22 69 73 73 33 31 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | ion:remove"."iss315.htm")......( |
| 2814a0 | 22 73 68 61 72 70 2d 6f 2d 66 6f 6f 62 61 72 3a 63 6f 6e 73 65 71 75 65 6e 63 65 73 2d 75 6e 64 | "sharp-o-foobar:consequences-und |
| 2814c0 | 65 66 69 6e 65 64 22 20 22 69 73 73 33 31 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 68 61 | efined"."iss316.htm")......("sha |
| 2814e0 | 72 70 2d 73 74 61 72 2d 64 65 6c 69 6d 69 74 65 72 3a 6e 6f 72 6d 61 6c 2d 64 65 6c 69 6d 69 74 | rp-star-delimiter:normal-delimit |
| 281500 | 65 72 22 20 22 69 73 73 33 31 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 68 61 72 70 73 69 | er"."iss317.htm")......("sharpsi |
| 281520 | 67 6e 2d 70 6c 75 73 2d 6d 69 6e 75 73 2d 70 61 63 6b 61 67 65 3a 6b 65 79 77 6f 72 64 22 20 22 | gn-plus-minus-package:keyword"." |
| 281540 | 69 73 73 33 31 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 6c 6f 74 2d 6d 69 73 73 69 6e 67 | iss318.htm")......("slot-missing |
| 281560 | 2d 76 61 6c 75 65 73 3a 73 70 65 63 69 66 79 22 20 22 69 73 73 33 31 39 2e 68 74 6d 22 29 0a 20 | -values:specify"."iss319.htm").. |
| 281580 | 20 20 20 20 28 22 73 6c 6f 74 2d 76 61 6c 75 65 2d 6d 65 74 61 63 6c 61 73 73 65 73 3a 6c 65 73 | ....("slot-value-metaclasses:les |
| 2815a0 | 73 2d 6d 69 6e 69 6d 61 6c 22 20 22 69 73 73 33 32 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 | s-minimal"."iss320.htm")......(" |
| 2815c0 | 73 70 65 63 69 61 6c 2d 66 6f 72 6d 2d 70 2d 6d 69 73 6e 6f 6d 65 72 3a 72 65 6e 61 6d 65 22 20 | special-form-p-misnomer:rename". |
| 2815e0 | 22 69 73 73 33 32 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 70 65 63 69 61 6c 2d 74 79 70 | "iss321.htm")......("special-typ |
| 281600 | 65 2d 73 68 61 64 6f 77 69 6e 67 3a 63 6c 61 72 69 66 79 22 20 22 69 73 73 33 32 32 2e 68 74 6d | e-shadowing:clarify"."iss322.htm |
| 281620 | 22 29 0a 20 20 20 20 20 28 22 73 74 61 6e 64 61 72 64 2d 69 6e 70 75 74 2d 69 6e 69 74 69 61 6c | ")......("standard-input-initial |
| 281640 | 2d 62 69 6e 64 69 6e 67 3a 64 65 66 69 6e 65 64 2d 63 6f 6e 74 72 61 63 74 73 22 20 22 69 73 73 | -binding:defined-contracts"."iss |
| 281660 | 33 32 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 74 61 6e 64 61 72 64 2d 72 65 70 65 72 74 | 323.htm")......("standard-repert |
| 281680 | 6f 69 72 65 2d 67 72 61 74 75 69 74 6f 75 73 3a 72 65 6e 61 6d 65 22 20 22 69 73 73 33 32 34 2e | oire-gratuitous:rename"."iss324. |
| 2816a0 | 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 74 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 3a 63 75 | htm")......("step-environment:cu |
| 2816c0 | 72 72 65 6e 74 22 20 22 69 73 73 33 32 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 74 65 70 | rrent"."iss325.htm")......("step |
| 2816e0 | 2d 6d 69 6e 69 6d 61 6c 3a 70 65 72 6d 69 74 2d 70 72 6f 67 6e 22 20 22 69 73 73 33 32 36 2e 68 | -minimal:permit-progn"."iss326.h |
| 281700 | 74 6d 22 29 0a 20 20 20 20 20 28 22 73 74 72 65 61 6d 2d 61 63 63 65 73 73 3a 61 64 64 2d 74 79 | tm")......("stream-access:add-ty |
| 281720 | 70 65 73 2d 61 63 63 65 73 73 6f 72 73 22 20 22 69 73 73 33 32 37 2e 68 74 6d 22 29 0a 20 20 20 | pes-accessors"."iss327.htm").... |
| 281740 | 20 20 28 22 73 74 72 65 61 6d 2d 63 61 70 61 62 69 6c 69 74 69 65 73 3a 69 6e 74 65 72 61 63 74 | ..("stream-capabilities:interact |
| 281760 | 69 76 65 2d 73 74 72 65 61 6d 2d 70 22 20 22 69 73 73 33 32 38 2e 68 74 6d 22 29 0a 20 20 20 20 | ive-stream-p"."iss328.htm")..... |
| 281780 | 20 28 22 73 74 72 69 6e 67 2d 63 6f 65 72 63 69 6f 6e 3a 6d 61 6b 65 2d 63 6f 6e 73 69 73 74 65 | .("string-coercion:make-consiste |
| 2817a0 | 6e 74 22 20 22 69 73 73 33 32 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 74 72 69 6e 67 2d | nt"."iss329.htm")......("string- |
| 2817c0 | 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 62 61 73 68 69 6e 67 3a 75 6e 64 65 66 69 6e 65 64 22 | output-stream-bashing:undefined" |
| 2817e0 | 20 22 69 73 73 33 33 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 74 72 75 63 74 75 72 65 2d | ."iss330.htm")......("structure- |
| 281800 | 72 65 61 64 2d 70 72 69 6e 74 2d 73 79 6e 74 61 78 3a 6b 65 79 77 6f 72 64 73 22 20 22 69 73 73 | read-print-syntax:keywords"."iss |
| 281820 | 33 33 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 75 62 73 65 71 2d 6f 75 74 2d 6f 66 2d 62 | 331.htm")......("subseq-out-of-b |
| 281840 | 6f 75 6e 64 73 22 20 22 69 73 73 33 33 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 75 62 73 | ounds"."iss332.htm")......("subs |
| 281860 | 65 71 2d 6f 75 74 2d 6f 66 2d 62 6f 75 6e 64 73 3a 69 73 2d 61 6e 2d 65 72 72 6f 72 22 20 22 69 | eq-out-of-bounds:is-an-error"."i |
| 281880 | 73 73 33 33 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 75 62 73 65 74 74 69 6e 67 2d 70 6f | ss332.htm")......("subsetting-po |
| 2818a0 | 73 69 74 69 6f 6e 3a 6e 6f 6e 65 22 20 22 69 73 73 33 33 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 | sition:none"."iss333.htm")...... |
| 2818c0 | 28 22 73 75 62 74 79 70 65 70 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 3a 61 64 64 2d 61 72 67 22 20 | ("subtypep-environment:add-arg". |
| 2818e0 | 22 69 73 73 33 33 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 75 62 74 79 70 65 70 2d 74 6f | "iss334.htm")......("subtypep-to |
| 281900 | 6f 2d 76 61 67 75 65 3a 63 6c 61 72 69 66 79 2d 6d 6f 72 65 22 20 22 69 73 73 33 33 35 2e 68 74 | o-vague:clarify-more"."iss335.ht |
| 281920 | 6d 22 29 0a 20 20 20 20 20 28 22 73 78 68 61 73 68 2d 64 65 66 69 6e 69 74 69 6f 6e 3a 73 69 6d | m")......("sxhash-definition:sim |
| 281940 | 69 6c 61 72 2d 66 6f 72 2d 73 78 68 61 73 68 22 20 22 69 73 73 33 33 36 2e 68 74 6d 22 29 0a 20 | ilar-for-sxhash"."iss336.htm").. |
| 281960 | 20 20 20 20 28 22 73 79 6d 62 6f 6c 2d 6d 61 63 72 6f 6c 65 74 2d 64 65 63 6c 61 72 65 3a 61 6c | ....("symbol-macrolet-declare:al |
| 281980 | 6c 6f 77 22 20 22 69 73 73 33 33 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 79 6d 62 6f 6c | low"."iss337.htm")......("symbol |
| 2819a0 | 2d 6d 61 63 72 6f 6c 65 74 2d 73 65 6d 61 6e 74 69 63 73 3a 73 70 65 63 69 61 6c 2d 66 6f 72 6d | -macrolet-semantics:special-form |
| 2819c0 | 22 20 22 69 73 73 33 33 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 79 6d 62 6f 6c 2d 6d 61 | "."iss338.htm")......("symbol-ma |
| 2819e0 | 63 72 6f 6c 65 74 2d 74 79 70 65 2d 64 65 63 6c 61 72 61 74 69 6f 6e 3a 6e 6f 22 20 22 69 73 73 | crolet-type-declaration:no"."iss |
| 281a00 | 33 33 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 79 6d 62 6f 6c 2d 6d 61 63 72 6f 73 2d 61 | 339.htm")......("symbol-macros-a |
| 281a20 | 6e 64 2d 70 72 6f 63 6c 61 69 6d 65 64 2d 73 70 65 63 69 61 6c 73 3a 73 69 67 6e 61 6c 73 2d 61 | nd-proclaimed-specials:signals-a |
| 281a40 | 6e 2d 65 72 72 6f 72 22 20 22 69 73 73 33 34 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 79 | n-error"."iss340.htm")......("sy |
| 281a60 | 6d 62 6f 6c 2d 70 72 69 6e 74 2d 65 73 63 61 70 65 2d 62 65 68 61 76 69 6f 72 3a 63 6c 61 72 69 | mbol-print-escape-behavior:clari |
| 281a80 | 66 79 22 20 22 69 73 73 33 34 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 73 79 6e 74 61 63 74 | fy"."iss341.htm")......("syntact |
| 281aa0 | 69 63 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 2d 61 63 63 65 73 73 3a 72 65 74 72 61 63 74 65 64 2d | ic-environment-access:retracted- |
| 281ac0 | 6d 61 72 39 31 22 20 22 69 73 73 33 34 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 74 61 67 62 | mar91"."iss342.htm")......("tagb |
| 281ae0 | 6f 64 79 2d 74 61 67 2d 65 78 70 61 6e 73 69 6f 6e 3a 6e 6f 22 20 22 69 73 73 33 34 33 2e 68 74 | ody-tag-expansion:no"."iss343.ht |
| 281b00 | 6d 22 29 0a 20 20 20 20 20 28 22 74 61 69 6c 70 2d 6e 69 6c 3a 74 22 20 22 69 73 73 33 34 34 2e | m")......("tailp-nil:t"."iss344. |
| 281b20 | 68 74 6d 22 29 0a 20 20 20 20 20 28 22 74 65 73 74 2d 6e 6f 74 2d 69 66 2d 6e 6f 74 3a 66 6c 75 | htm")......("test-not-if-not:flu |
| 281b40 | 73 68 2d 61 6c 6c 22 20 22 69 73 73 33 34 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 74 68 65 | sh-all"."iss345.htm")......("the |
| 281b60 | 2d 61 6d 62 69 67 75 69 74 79 3a 66 6f 72 2d 64 65 63 6c 61 72 61 74 69 6f 6e 22 20 22 69 73 73 | -ambiguity:for-declaration"."iss |
| 281b80 | 33 34 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 74 68 65 2d 76 61 6c 75 65 73 3a 72 65 74 75 | 346.htm")......("the-values:retu |
| 281ba0 | 72 6e 2d 6e 75 6d 62 65 72 2d 72 65 63 65 69 76 65 64 22 20 22 69 73 73 33 34 37 2e 68 74 6d 22 | rn-number-received"."iss347.htm" |
| 281bc0 | 29 0a 20 20 20 20 20 28 22 74 69 6d 65 2d 7a 6f 6e 65 2d 6e 6f 6e 2d 69 6e 74 65 67 65 72 3a 61 | )......("time-zone-non-integer:a |
| 281be0 | 6c 6c 6f 77 22 20 22 69 73 73 33 34 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 74 79 70 65 2d | llow"."iss348.htm")......("type- |
| 281c00 | 64 65 63 6c 61 72 61 74 69 6f 6e 2d 61 62 62 72 65 76 69 61 74 69 6f 6e 3a 61 6c 6c 6f 77 2d 61 | declaration-abbreviation:allow-a |
| 281c20 | 6c 6c 22 20 22 69 73 73 33 34 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 74 79 70 65 2d 6f 66 | ll"."iss349.htm")......("type-of |
| 281c40 | 2d 61 6e 64 2d 70 72 65 64 65 66 69 6e 65 64 2d 63 6c 61 73 73 65 73 3a 74 79 70 65 2d 6f 66 2d | -and-predefined-classes:type-of- |
| 281c60 | 68 61 6e 64 6c 65 73 2d 66 6c 6f 61 74 73 22 20 22 69 73 73 33 35 30 2e 68 74 6d 22 29 0a 20 20 | handles-floats"."iss350.htm")... |
| 281c80 | 20 20 20 28 22 74 79 70 65 2d 6f 66 2d 61 6e 64 2d 70 72 65 64 65 66 69 6e 65 64 2d 63 6c 61 73 | ...("type-of-and-predefined-clas |
| 281ca0 | 73 65 73 3a 75 6e 69 66 79 2d 61 6e 64 2d 65 78 74 65 6e 64 22 20 22 69 73 73 33 35 31 2e 68 74 | ses:unify-and-extend"."iss351.ht |
| 281cc0 | 6d 22 29 0a 20 20 20 20 20 28 22 74 79 70 65 2d 6f 66 2d 75 6e 64 65 72 63 6f 6e 73 74 72 61 69 | m")......("type-of-underconstrai |
| 281ce0 | 6e 65 64 3a 61 64 64 2d 63 6f 6e 73 74 72 61 69 6e 74 73 22 20 22 69 73 73 33 35 32 2e 68 74 6d | ned:add-constraints"."iss352.htm |
| 281d00 | 22 29 0a 20 20 20 20 20 28 22 74 79 70 65 2d 73 70 65 63 69 66 69 65 72 2d 61 62 62 72 65 76 69 | ")......("type-specifier-abbrevi |
| 281d20 | 61 74 69 6f 6e 3a 78 33 6a 31 33 2d 6a 75 6e 39 30 2d 67 75 65 73 73 22 20 22 69 73 73 33 35 33 | ation:x3j13-jun90-guess"."iss353 |
| 281d40 | 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 75 6e 64 65 66 69 6e 65 64 2d 76 61 72 69 61 62 6c 65 | .htm")......("undefined-variable |
| 281d60 | 73 2d 61 6e 64 2d 66 75 6e 63 74 69 6f 6e 73 3a 63 6f 6d 70 72 6f 6d 69 73 65 22 20 22 69 73 73 | s-and-functions:compromise"."iss |
| 281d80 | 33 35 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 75 6e 69 6e 69 74 69 61 6c 69 7a 65 64 2d 65 | 354.htm")......("uninitialized-e |
| 281da0 | 6c 65 6d 65 6e 74 73 3a 63 6f 6e 73 65 71 75 65 6e 63 65 73 2d 75 6e 64 65 66 69 6e 65 64 22 20 | lements:consequences-undefined". |
| 281dc0 | 22 69 73 73 33 35 35 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 75 6e 72 65 61 64 2d 63 68 61 72 | "iss355.htm")......("unread-char |
| 281de0 | 2d 61 66 74 65 72 2d 70 65 65 6b 2d 63 68 61 72 3a 64 6f 6e 74 2d 61 6c 6c 6f 77 22 20 22 69 73 | -after-peek-char:dont-allow"."is |
| 281e00 | 73 33 35 36 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 75 6e 73 6f 6c 69 63 69 74 65 64 2d 6d 65 | s356.htm")......("unsolicited-me |
| 281e20 | 73 73 61 67 65 73 3a 6e 6f 74 2d 74 6f 2d 73 79 73 74 65 6d 2d 75 73 65 72 2d 73 74 72 65 61 6d | ssages:not-to-system-user-stream |
| 281e40 | 73 22 20 22 69 73 73 33 35 37 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 76 61 72 69 61 62 6c 65 | s"."iss357.htm")......("variable |
| 281e60 | 2d 6c 69 73 74 2d 61 73 79 6d 6d 65 74 72 79 3a 73 79 6d 6d 65 74 72 69 7a 65 22 20 22 69 73 73 | -list-asymmetry:symmetrize"."iss |
| 281e80 | 33 35 38 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 77 69 74 68 2d 61 64 64 65 64 2d 6d 65 74 68 | 358.htm")......("with-added-meth |
| 281ea0 | 6f 64 73 3a 64 65 6c 65 74 65 22 20 22 69 73 73 33 35 39 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 | ods:delete"."iss359.htm")......( |
| 281ec0 | 22 77 69 74 68 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 75 6e 69 74 3a 6e 65 77 2d 6d 61 63 72 6f | "with-compilation-unit:new-macro |
| 281ee0 | 22 20 22 69 73 73 33 36 30 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 77 69 74 68 2d 6f 70 65 6e | "."iss360.htm")......("with-open |
| 281f00 | 2d 66 69 6c 65 2d 64 6f 65 73 2d 6e 6f 74 2d 65 78 69 73 74 3a 73 74 72 65 61 6d 2d 69 73 2d 6e | -file-does-not-exist:stream-is-n |
| 281f20 | 69 6c 22 20 22 69 73 73 33 36 31 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 77 69 74 68 2d 6f 70 | il"."iss361.htm")......("with-op |
| 281f40 | 65 6e 2d 66 69 6c 65 2d 73 65 74 71 3a 65 78 70 6c 69 63 69 74 6c 79 2d 76 61 67 75 65 22 20 22 | en-file-setq:explicitly-vague"." |
| 281f60 | 69 73 73 33 36 32 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 77 69 74 68 2d 6f 70 65 6e 2d 66 69 | iss362.htm")......("with-open-fi |
| 281f80 | 6c 65 2d 73 74 72 65 61 6d 2d 65 78 74 65 6e 74 3a 64 79 6e 61 6d 69 63 2d 65 78 74 65 6e 74 22 | le-stream-extent:dynamic-extent" |
| 281fa0 | 20 22 69 73 73 33 36 33 2e 68 74 6d 22 29 0a 20 20 20 20 20 28 22 77 69 74 68 2d 6f 75 74 70 75 | ."iss363.htm")......("with-outpu |
| 281fc0 | 74 2d 74 6f 2d 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 2d 73 74 79 6c 65 3a 76 65 63 74 6f 72 2d | t-to-string-append-style:vector- |
| 281fe0 | 70 75 73 68 2d 65 78 74 65 6e 64 22 20 22 69 73 73 33 36 34 2e 68 74 6d 22 29 0a 20 20 20 20 20 | push-extend"."iss364.htm")...... |
| 282000 | 28 22 77 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 2d 72 65 61 64 74 61 | ("with-standard-io-syntax-readta |
| 282020 | 62 6c 65 3a 78 33 6a 31 33 2d 6d 61 72 2d 39 31 22 20 22 69 73 73 33 36 35 2e 68 74 6d 22 29 29 | ble:x3j13-mar-91"."iss365.htm")) |
| 282040 | 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 73 73 75 65 78 20 28 69 | ))..(defun.common-lisp-issuex.(i |
| 282060 | 73 73 75 65 2d 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 74 72 79 20 28 67 65 74 68 61 | ssue-name)...(let.((entry.(getha |
| 282080 | 73 68 20 28 64 6f 77 6e 63 61 73 65 20 69 73 73 75 65 2d 6e 61 6d 65 29 0a 09 09 09 63 6f 6d 6d | sh.(downcase.issue-name)....comm |
| 2820a0 | 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 2d 69 73 73 75 65 78 2d 73 79 6d 62 6f 6c | on-lisp-hyperspec--issuex-symbol |
| 2820c0 | 73 29 29 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 | s))).....(concat.common-lisp-hyp |
| 2820e0 | 65 72 73 70 65 63 2d 72 6f 6f 74 20 22 49 73 73 75 65 73 2f 22 20 65 6e 74 72 79 29 29 29 0a 0a | erspec-root."Issues/".entry))).. |
| 282100 | 28 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 73 70 65 63 69 61 6c 2d 6f 70 65 72 61 | (defun.common-lisp-special-opera |
| 282120 | 74 6f 72 20 28 6e 61 6d 65 29 0a 20 20 28 66 6f 72 6d 61 74 20 22 25 73 42 6f 64 79 2f 73 5f 25 | tor.(name)...(format."%sBody/s_% |
| 282140 | 73 2e 68 74 6d 22 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 72 6f 6f | s.htm".common-lisp-hyperspec-roo |
| 282160 | 74 20 6e 61 6d 65 29 29 0a 0a 3b 3b 3b 20 41 64 64 65 64 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e | t.name))..;;;.Added.the.followin |
| 282180 | 67 20 6a 75 73 74 20 74 6f 20 70 72 6f 76 69 64 65 20 61 20 63 6f 6d 6d 6f 6e 20 65 6e 74 72 79 | g.just.to.provide.a.common.entry |
| 2821a0 | 20 70 6f 69 6e 74 20 61 63 63 6f 72 64 69 6e 67 0a 3b 3b 3b 20 74 6f 20 74 68 65 20 76 61 72 69 | .point.according.;;;.to.the.vari |
| 2821c0 | 6f 75 73 20 27 68 79 70 65 72 73 70 65 63 27 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e | ous.'hyperspec'.implementations. |
| 2821e0 | 0a 3b 3b 3b 0a 3b 3b 3b 20 31 39 39 39 30 38 32 30 20 4d 61 72 63 6f 20 41 6e 74 6f 6e 69 6f 74 | .;;;.;;;.19990820.Marco.Antoniot |
| 282200 | 74 69 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 20 | ti..(defalias.'hyperspec-lookup. |
| 282220 | 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 29 0a 28 64 65 66 61 6c 69 61 | 'common-lisp-hyperspec).(defalia |
| 282240 | 73 20 27 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 2d 72 65 61 64 65 72 2d 6d 61 63 72 6f | s.'hyperspec-lookup-reader-macro |
| 282260 | 0a 20 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 | ...'common-lisp-hyperspec-lookup |
| 282280 | 2d 72 65 61 64 65 72 2d 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 79 70 65 72 73 | -reader-macro).(defalias.'hypers |
| 2822a0 | 70 65 63 2d 6c 6f 6f 6b 75 70 2d 66 6f 72 6d 61 74 20 27 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 | pec-lookup-format.'common-lisp-h |
| 2822c0 | 79 70 65 72 73 70 65 63 2d 66 6f 72 6d 61 74 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 68 79 70 65 | yperspec-format)..(provide.'hype |
| 2822e0 | 72 73 70 65 63 29 0a 0a 3b 3b 3b 20 68 79 70 65 72 73 70 65 63 2e 65 6c 20 65 6e 64 73 20 68 65 | rspec)..;;;.hyperspec.el.ends.he |
| 282300 | 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | re.............................. |
| 282320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 282340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 282360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 282380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2823a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2823c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2823e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 282400 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 6c 69 6d 65 2e 69 6e 66 6f 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/slime.info........... |
| 282420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 282440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 282460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 282480 | 30 34 34 33 30 37 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 32 31 30 00 20 30 00 00 00 | 0443073.00000000000.013210..0... |
| 2824a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2824c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2824e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 282500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 282520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 282540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 282560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 282580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2825a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2825c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2825e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 282600 | 54 68 69 73 20 69 73 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 70 72 6f 64 75 63 65 64 | This.is.docFDBrww.info,.produced |
| 282620 | 20 62 79 20 6d 61 6b 65 69 6e 66 6f 20 76 65 72 73 69 6f 6e 20 36 2e 38 20 66 72 6f 6d 0a 73 6c | .by.makeinfo.version.6.8.from.sl |
| 282640 | 69 6d 65 2e 74 65 78 69 2e 0a 0a 57 72 69 74 74 65 6e 20 62 79 20 4c 75 6b 65 20 47 6f 72 72 69 | ime.texi...Written.by.Luke.Gorri |
| 282660 | 65 20 61 6e 64 20 6f 74 68 65 72 73 2e 0a 0a 20 20 20 54 68 69 73 20 66 69 6c 65 20 68 61 73 20 | e.and.others......This.file.has. |
| 282680 | 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e | been.placed.in.the.public.domain |
| 2826a0 | 2e 0a 49 4e 46 4f 2d 44 49 52 2d 53 45 43 54 49 4f 4e 20 45 6d 61 63 73 0a 53 54 41 52 54 2d 49 | ..INFO-DIR-SECTION.Emacs.START-I |
| 2826c0 | 4e 46 4f 2d 44 49 52 2d 45 4e 54 52 59 0a 2a 20 53 4c 49 4d 45 3a 20 28 73 6c 69 6d 65 29 2e 20 | NFO-DIR-ENTRY.*.SLIME:.(slime).. |
| 2826e0 | 20 20 20 53 75 70 65 72 69 6f 72 20 4c 69 73 70 20 49 6e 74 65 72 61 63 74 69 6f 6e 20 4d 6f 64 | ...Superior.Lisp.Interaction.Mod |
| 282700 | 65 20 66 6f 72 20 45 6d 61 63 73 2e 0a 45 4e 44 2d 49 4e 46 4f 2d 44 49 52 2d 45 4e 54 52 59 0a | e.for.Emacs..END-INFO-DIR-ENTRY. |
| 282720 | 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 | ...File:.docFDBrww.info,..Node:. |
| 282740 | 54 6f 70 2c 20 20 4e 65 78 74 3a 20 49 6e 74 72 6f 64 75 63 74 69 6f 6e 2c 20 20 55 70 3a 20 28 | Top,..Next:.Introduction,..Up:.( |
| 282760 | 64 69 72 29 0a 0a 53 4c 49 4d 45 0a 2a 2a 2a 2a 2a 0a 0a 53 4c 49 4d 45 20 69 73 20 74 68 65 20 | dir)..SLIME.*****..SLIME.is.the. |
| 282780 | e2 80 9c 53 75 70 65 72 69 6f 72 20 4c 69 73 70 20 49 6e 74 65 72 61 63 74 69 6f 6e 20 4d 6f 64 | ...Superior.Lisp.Interaction.Mod |
| 2827a0 | 65 20 66 6f 72 20 45 6d 61 63 73 e2 80 9d 2e 20 20 54 68 69 73 20 69 73 20 74 68 65 0a 6d 61 6e | e.for.Emacs......This.is.the.man |
| 2827c0 | 75 61 6c 20 66 6f 72 20 76 65 72 73 69 6f 6e 20 32 2e 33 30 2e 20 20 28 4c 61 73 74 20 75 70 64 | ual.for.version.2.30...(Last.upd |
| 2827e0 | 61 74 65 64 20 44 65 63 65 6d 62 65 72 20 32 2c 20 32 30 32 34 29 0a 0a 20 20 20 57 72 69 74 74 | ated.December.2,.2024).....Writt |
| 282800 | 65 6e 20 62 79 20 4c 75 6b 65 20 47 6f 72 72 69 65 20 61 6e 64 20 6f 74 68 65 72 73 2e 0a 0a 20 | en.by.Luke.Gorrie.and.others.... |
| 282820 | 20 20 54 68 69 73 20 66 69 6c 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 | ..This.file.has.been.placed.in.t |
| 282840 | 68 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2e 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 49 6e | he.public.domain...*.Menu:..*.In |
| 282860 | 74 72 6f 64 75 63 74 69 6f 6e 3a 3a 0a 2a 20 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 3a 3a | troduction::.*.Getting.started:: |
| 282880 | 0a 2a 20 53 4c 49 4d 45 20 6d 6f 64 65 3a 3a 0a 2a 20 44 65 62 75 67 67 65 72 3a 3a 0a 2a 20 4d | .*.SLIME.mode::.*.Debugger::.*.M |
| 2828a0 | 69 73 63 3a 3a 0a 2a 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 3a 3a 0a 2a 20 54 69 70 73 20 61 | isc::.*.Customization::.*.Tips.a |
| 2828c0 | 6e 64 20 54 72 69 63 6b 73 3a 3a 0a 2a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 | nd.Tricks::.*.Contributed.Packag |
| 2828e0 | 65 73 3a 3a 0a 2a 20 43 72 65 64 69 74 73 3a 3a 0a 2a 20 4b 65 79 20 49 6e 64 65 78 3a 3a 0a 2a | es::.*.Credits::.*.Key.Index::.* |
| 282900 | 20 43 6f 6d 6d 61 6e 64 20 49 6e 64 65 78 3a 3a 0a 2a 20 56 61 72 69 61 62 6c 65 20 49 6e 64 65 | .Command.Index::.*.Variable.Inde |
| 282920 | 78 3a 3a 0a 0a 20 e2 80 94 20 54 68 65 20 44 65 74 61 69 6c 65 64 20 4e 6f 64 65 20 4c 69 73 74 | x::.......The.Detailed.Node.List |
| 282940 | 69 6e 67 20 e2 80 94 0a 0a 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 0a 0a 2a 20 50 6c 61 74 | ing......Getting.started..*.Plat |
| 282960 | 66 6f 72 6d 73 3a 3a 0a 2a 20 44 6f 77 6e 6c 6f 61 64 69 6e 67 3a 3a 0a 2a 20 49 6e 73 74 61 6c | forms::.*.Downloading::.*.Instal |
| 282980 | 6c 61 74 69 6f 6e 3a 3a 0a 2a 20 52 75 6e 6e 69 6e 67 3a 3a 0a 2a 20 53 65 74 75 70 20 54 75 6e | lation::.*.Running::.*.Setup.Tun |
| 2829a0 | 69 6e 67 3a 3a 0a 0a 44 6f 77 6e 6c 6f 61 64 69 6e 67 20 53 4c 49 4d 45 0a 0a 2a 20 47 69 74 3a | ing::..Downloading.SLIME..*.Git: |
| 2829c0 | 3a 0a 2a 20 47 69 74 20 49 6e 63 61 6e 74 61 74 69 6f 6e 73 3a 3a 0a 0a 53 65 74 75 70 20 54 75 | :.*.Git.Incantations::..Setup.Tu |
| 2829e0 | 6e 69 6e 67 0a 0a 2a 20 42 61 73 69 63 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 3a 3a 0a 2a 20 | ning..*.Basic.customization::.*. |
| 282a00 | 4d 75 6c 74 69 70 6c 65 20 4c 69 73 70 73 3a 3a 0a 2a 20 4c 6f 61 64 69 6e 67 20 53 77 61 6e 6b | Multiple.Lisps::.*.Loading.Swank |
| 282a20 | 20 66 61 73 74 65 72 3a 3a 0a 0a 55 73 69 6e 67 20 53 4c 49 4d 45 20 6d 6f 64 65 0a 0a 2a 20 55 | .faster::..Using.SLIME.mode..*.U |
| 282a40 | 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 3a 3a 0a 2a 20 45 76 | ser-interface.conventions::.*.Ev |
| 282a60 | 61 6c 75 61 74 69 6f 6e 3a 3a 0a 2a 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 3a 3a 0a 2a 20 43 6f 6d | aluation::.*.Compilation::.*.Com |
| 282a80 | 70 6c 65 74 69 6f 6e 3a 3a 0a 2a 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 3a | pletion::.*.Finding.definitions: |
| 282aa0 | 3a 0a 2a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 3a 0a 2a 20 43 72 6f 73 73 2d 72 65 66 65 | :.*.Documentation::.*.Cross-refe |
| 282ac0 | 72 65 6e 63 65 3a 3a 0a 2a 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 3a 3a 0a 2a 20 44 69 | rence::.*.Macro-expansion::.*.Di |
| 282ae0 | 73 61 73 73 65 6d 62 6c 79 3a 3a 0a 2a 20 52 65 63 6f 76 65 72 79 3a 3a 0a 2a 20 49 6e 73 70 65 | sassembly::.*.Recovery::.*.Inspe |
| 282b00 | 63 74 6f 72 3a 3a 0a 2a 20 50 72 6f 66 69 6c 69 6e 67 3a 3a 0a 2a 20 4f 74 68 65 72 3a 3a 0a 2a | ctor::.*.Profiling::.*.Other::.* |
| 282b20 | 20 53 65 6d 61 6e 74 69 63 20 69 6e 64 65 6e 74 61 74 69 6f 6e 3a 3a 0a 2a 20 52 65 61 64 65 72 | .Semantic.indentation::.*.Reader |
| 282b40 | 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 3a 3a 0a 0a 55 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 | .conditionals::..User-interface. |
| 282b60 | 63 6f 6e 76 65 6e 74 69 6f 6e 73 0a 0a 2a 20 54 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 | conventions..*.Temporary.buffers |
| 282b80 | 3a 3a 0a 2a 20 49 6e 66 65 72 69 6f 72 2d 6c 69 73 70 3a 3a 0a 2a 20 4d 75 6c 74 69 74 68 72 65 | ::.*.Inferior-lisp::.*.Multithre |
| 282ba0 | 61 64 69 6e 67 3a 3a 0a 2a 20 4b 65 79 20 62 69 6e 64 69 6e 67 73 3a 3a 0a 0a 53 4c 44 42 3a 20 | ading::.*.Key.bindings::..SLDB:. |
| 282bc0 | 74 68 65 20 53 4c 49 4d 45 20 64 65 62 75 67 67 65 72 0a 0a 2a 20 45 78 61 6d 69 6e 69 6e 67 20 | the.SLIME.debugger..*.Examining. |
| 282be0 | 66 72 61 6d 65 73 3a 3a 0a 2a 20 52 65 73 74 61 72 74 73 3a 3a 0a 2a 20 46 72 61 6d 65 20 4e 61 | frames::.*.Restarts::.*.Frame.Na |
| 282c00 | 76 69 67 61 74 69 6f 6e 3a 3a 0a 2a 20 53 74 65 70 70 69 6e 67 3a 3a 0a 2a 20 4d 69 73 63 65 6c | vigation::.*.Stepping::.*.Miscel |
| 282c20 | 6c 61 6e 65 6f 75 73 3a 3a 0a 0a 4d 69 73 63 0a 0a 2a 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f | laneous::..Misc..*.slime-selecto |
| 282c40 | 72 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 | r::.*.slime-macroexpansion-minor |
| 282c60 | 2d 6d 6f 64 65 3a 3a 0a 2a 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 3a 3a | -mode::.*.Multiple.connections:: |
| 282c80 | 0a 0a 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 0a 2a 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 | ..Customization..*.Emacs-side.cu |
| 282ca0 | 73 74 6f 6d 69 7a 61 74 69 6f 6e 3a 3a 0a 2a 20 4c 69 73 70 2d 73 69 64 65 3a 3a 0a 0a 45 6d 61 | stomization::.*.Lisp-side::..Ema |
| 282cc0 | 63 73 2d 73 69 64 65 0a 0a 2a 20 48 6f 6f 6b 73 3a 3a 0a 0a 4c 69 73 70 2d 73 69 64 65 20 28 53 | cs-side..*.Hooks::..Lisp-side.(S |
| 282ce0 | 77 61 6e 6b 29 0a 0a 2a 20 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 3a 3a 0a 2a | wank)..*.Communication.style::.* |
| 282d00 | 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 3a 3a 0a 0a 54 69 70 73 20 61 6e 64 | .Other.configurables::..Tips.and |
| 282d20 | 20 54 72 69 63 6b 73 0a 0a 2a 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 61 20 72 65 6d 6f 74 | .Tricks..*.Connecting.to.a.remot |
| 282d40 | 65 20 6c 69 73 70 3a 3a 0a 2a 20 47 6c 6f 62 61 6c 20 49 4f 20 52 65 64 69 72 65 63 74 69 6f 6e | e.lisp::.*.Global.IO.Redirection |
| 282d60 | 3a 3a 0a 2a 20 41 75 74 6f 2d 53 4c 49 4d 45 3a 3a 0a 0a 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f | ::.*.Auto-SLIME::..Connecting.to |
| 282d80 | 20 61 20 72 65 6d 6f 74 65 20 6c 69 73 70 0a 0a 2a 20 53 65 74 74 69 6e 67 20 75 70 20 74 68 65 | .a.remote.lisp..*.Setting.up.the |
| 282da0 | 20 6c 69 73 70 20 69 6d 61 67 65 3a 3a 0a 2a 20 53 65 74 74 69 6e 67 20 75 70 20 45 6d 61 63 73 | .lisp.image::.*.Setting.up.Emacs |
| 282dc0 | 3a 3a 0a 2a 20 53 65 74 74 69 6e 67 20 75 70 20 70 61 74 68 6e 61 6d 65 20 74 72 61 6e 73 6c 61 | ::.*.Setting.up.pathname.transla |
| 282de0 | 74 69 6f 6e 73 3a 3a 0a 0a 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 2a | tions::..Contributed.Packages..* |
| 282e00 | 20 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 3a 3a 0a 2a 20 52 45 50 4c 3a 3a 0a 2a 20 73 | .Loading.Contribs::.*.REPL::.*.s |
| 282e20 | 6c 69 6d 65 2d 6d 72 65 70 6c 3a 3a 0a 2a 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f | lime-mrepl::.*.inferior-slime-mo |
| 282e40 | 64 65 3a 3a 0a 2a 20 43 6f 6d 70 6f 75 6e 64 20 43 6f 6d 70 6c 65 74 69 6f 6e 3a 3a 0a 2a 20 46 | de::.*.Compound.Completion::.*.F |
| 282e60 | 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f | uzzy.Completion::.*.slime-autodo |
| 282e80 | 63 2d 6d 6f 64 65 3a 3a 0a 2a 20 41 53 44 46 3a 3a 0a 2a 20 42 61 6e 6e 65 72 3a 3a 0a 2a 20 45 | c-mode::.*.ASDF::.*.Banner::.*.E |
| 282ea0 | 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 3a 3a 0a 2a 20 46 61 6e 63 79 20 49 6e 73 70 65 63 | diting.Commands::.*.Fancy.Inspec |
| 282ec0 | 74 6f 72 3a 3a 0a 2a 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 3a 3a 0a 2a 20 54 79 70 65 6f 75 | tor::.*.Presentations::.*.Typeou |
| 282ee0 | 74 20 66 72 61 6d 65 73 3a 3a 0a 2a 20 54 52 41 4d 50 3a 3a 0a 2a 20 44 6f 63 75 6d 65 6e 74 61 | t.frames::.*.TRAMP::.*.Documenta |
| 282f00 | 74 69 6f 6e 20 4c 69 6e 6b 73 3a 3a 0a 2a 20 58 72 65 66 20 61 6e 64 20 43 6c 61 73 73 20 42 72 | tion.Links::.*.Xref.and.Class.Br |
| 282f20 | 6f 77 73 65 72 3a 3a 0a 2a 20 48 69 67 68 6c 69 67 68 74 20 45 64 69 74 73 3a 3a 0a 2a 20 53 63 | owser::.*.Highlight.Edits::.*.Sc |
| 282f40 | 72 61 74 63 68 20 42 75 66 66 65 72 3a 3a 0a 2a 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 | ratch.Buffer::.*.SLIME.Trace.Dia |
| 282f60 | 6c 6f 67 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 73 70 72 6f 66 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 66 61 | log::.*.slime-sprof::.*.slime-fa |
| 282f80 | 6e 63 79 3a 3a 0a 2a 20 51 75 69 63 6b 6c 69 73 70 3a 3a 0a 0a 52 45 50 4c 3a 20 74 68 65 20 e2 | ncy::.*.Quicklisp::..REPL:.the.. |
| 282fa0 | 80 9c 74 6f 70 20 6c 65 76 65 6c e2 80 9d 0a 0a 2a 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 3a | ..top.level.....*.REPL.commands: |
| 282fc0 | 3a 0a 2a 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 3a 3a 0a 2a 20 53 68 6f 72 74 63 75 | :.*.Input.Navigation::.*.Shortcu |
| 282fe0 | 74 73 3a 3a 0a 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 | ts::.....File:.docFDBrww.info,.. |
| 283000 | 4e 6f 64 65 3a 20 49 6e 74 72 6f 64 75 63 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 47 65 74 74 69 | Node:.Introduction,..Next:.Getti |
| 283020 | 6e 67 20 73 74 61 72 74 65 64 2c 20 20 50 72 65 76 3a 20 54 6f 70 2c 20 20 55 70 3a 20 54 6f 70 | ng.started,..Prev:.Top,..Up:.Top |
| 283040 | 0a 0a 31 20 49 6e 74 72 6f 64 75 63 74 69 6f 6e 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a | ..1.Introduction.**************. |
| 283060 | 0a 53 4c 49 4d 45 20 69 73 20 74 68 65 20 e2 80 9c 53 75 70 65 72 69 6f 72 20 4c 69 73 70 20 49 | .SLIME.is.the....Superior.Lisp.I |
| 283080 | 6e 74 65 72 61 63 74 69 6f 6e 20 4d 6f 64 65 20 66 6f 72 20 45 6d 61 63 73 2e e2 80 9d 0a 0a 20 | nteraction.Mode.for.Emacs....... |
| 2830a0 | 20 20 53 4c 49 4d 45 20 65 78 74 65 6e 64 73 20 45 6d 61 63 73 20 77 69 74 68 20 73 75 70 70 6f | ..SLIME.extends.Emacs.with.suppo |
| 2830c0 | 72 74 20 66 6f 72 20 69 6e 74 65 72 61 63 74 69 76 65 20 70 72 6f 67 72 61 6d 6d 69 6e 67 20 69 | rt.for.interactive.programming.i |
| 2830e0 | 6e 0a 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2e 20 20 54 68 65 20 66 65 61 74 75 72 65 73 20 61 72 65 | n.Common.Lisp...The.features.are |
| 283100 | 20 63 65 6e 74 65 72 65 64 20 61 72 6f 75 6e 64 20 e2 80 98 73 6c 69 6d 65 2d 6d 6f 64 65 e2 80 | .centered.around....slime-mode.. |
| 283120 | 99 2c 20 61 6e 20 45 6d 61 63 73 0a 6d 69 6e 6f 72 2d 6d 6f 64 65 20 74 68 61 74 20 63 6f 6d 70 | .,.an.Emacs.minor-mode.that.comp |
| 283140 | 6c 65 6d 65 6e 74 73 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 e2 80 98 6c 69 73 70 2d 6d 6f 64 | lements.the.standard....lisp-mod |
| 283160 | 65 e2 80 99 2e 20 20 57 68 69 6c 65 20 e2 80 98 6c 69 73 70 2d 6d 6f 64 65 e2 80 99 0a 73 75 70 | e......While....lisp-mode....sup |
| 283180 | 70 6f 72 74 73 20 65 64 69 74 69 6e 67 20 4c 69 73 70 20 73 6f 75 72 63 65 20 66 69 6c 65 73 2c | ports.editing.Lisp.source.files, |
| 2831a0 | 20 e2 80 98 73 6c 69 6d 65 2d 6d 6f 64 65 e2 80 99 20 61 64 64 73 20 73 75 70 70 6f 72 74 20 66 | ....slime-mode....adds.support.f |
| 2831c0 | 6f 72 0a 69 6e 74 65 72 61 63 74 69 6e 67 20 77 69 74 68 20 61 20 72 75 6e 6e 69 6e 67 20 43 6f | or.interacting.with.a.running.Co |
| 2831e0 | 6d 6d 6f 6e 20 4c 69 73 70 20 70 72 6f 63 65 73 73 20 66 6f 72 20 63 6f 6d 70 69 6c 61 74 69 6f | mmon.Lisp.process.for.compilatio |
| 283200 | 6e 2c 0a 64 65 62 75 67 67 69 6e 67 2c 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 6f 6b | n,.debugging,.documentation.look |
| 283220 | 75 70 2c 20 61 6e 64 20 73 6f 20 6f 6e 2e 0a 0a 20 20 20 54 68 65 20 e2 80 98 73 6c 69 6d 65 2d | up,.and.so.on......The....slime- |
| 283240 | 6d 6f 64 65 e2 80 99 20 70 72 6f 67 72 61 6d 6d 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 | mode....programming.environment. |
| 283260 | 66 6f 6c 6c 6f 77 73 20 74 68 65 20 65 78 61 6d 70 6c 65 20 6f 66 0a 45 6d 61 63 73 e2 80 99 73 | follows.the.example.of.Emacs...s |
| 283280 | 20 6e 61 74 69 76 65 20 45 6d 61 63 73 20 4c 69 73 70 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 2e 20 | .native.Emacs.Lisp.environment.. |
| 2832a0 | 20 57 65 20 68 61 76 65 20 61 6c 73 6f 20 69 6e 63 6c 75 64 65 64 20 67 6f 6f 64 20 69 64 65 61 | .We.have.also.included.good.idea |
| 2832c0 | 73 0a 66 72 6f 6d 20 73 69 6d 69 6c 61 72 20 73 79 73 74 65 6d 73 20 28 73 75 63 68 20 61 73 20 | s.from.similar.systems.(such.as. |
| 2832e0 | 49 4c 49 53 50 29 20 61 6e 64 20 73 6f 6d 65 20 6e 65 77 20 69 64 65 61 73 20 6f 66 20 6f 75 72 | ILISP).and.some.new.ideas.of.our |
| 283300 | 20 6f 77 6e 2e 0a 0a 20 20 20 53 4c 49 4d 45 20 69 73 20 63 6f 6e 73 74 72 75 63 74 65 64 20 66 | .own......SLIME.is.constructed.f |
| 283320 | 72 6f 6d 20 74 77 6f 20 70 61 72 74 73 3a 20 61 20 75 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 | rom.two.parts:.a.user-interface. |
| 283340 | 77 72 69 74 74 65 6e 20 69 6e 0a 45 6d 61 63 73 20 4c 69 73 70 2c 20 61 6e 64 20 61 20 73 75 70 | written.in.Emacs.Lisp,.and.a.sup |
| 283360 | 70 6f 72 74 69 6e 67 20 73 65 72 76 65 72 20 70 72 6f 67 72 61 6d 20 77 72 69 74 74 65 6e 20 69 | porting.server.program.written.i |
| 283380 | 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2e 20 20 54 68 65 0a 74 77 6f 20 73 69 64 65 73 20 61 72 | n.Common.Lisp...The.two.sides.ar |
| 2833a0 | 65 20 63 6f 6e 6e 65 63 74 65 64 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 61 20 73 6f 63 6b | e.connected.together.with.a.sock |
| 2833c0 | 65 74 20 61 6e 64 20 63 6f 6d 6d 75 6e 69 63 61 74 65 20 75 73 69 6e 67 20 61 6e 0a 52 50 43 2d | et.and.communicate.using.an.RPC- |
| 2833e0 | 6c 69 6b 65 20 70 72 6f 74 6f 63 6f 6c 2e 0a 0a 20 20 20 54 68 65 20 4c 69 73 70 20 73 65 72 76 | like.protocol......The.Lisp.serv |
| 283400 | 65 72 20 69 73 20 70 72 69 6d 61 72 69 6c 79 20 77 72 69 74 74 65 6e 20 69 6e 20 70 6f 72 74 61 | er.is.primarily.written.in.porta |
| 283420 | 62 6c 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2e 20 20 54 68 65 0a 72 65 71 75 69 72 65 64 20 69 | ble.Common.Lisp...The.required.i |
| 283440 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 69 66 69 63 20 66 75 6e 63 74 69 6f 6e 61 | mplementation-specific.functiona |
| 283460 | 6c 69 74 79 20 69 73 20 73 70 65 63 69 66 69 65 64 20 62 79 20 61 0a 77 65 6c 6c 2d 64 65 66 69 | lity.is.specified.by.a.well-defi |
| 283480 | 6e 65 64 20 69 6e 74 65 72 66 61 63 65 20 61 6e 64 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 73 65 | ned.interface.and.implemented.se |
| 2834a0 | 70 61 72 61 74 65 6c 79 20 66 6f 72 20 65 61 63 68 20 4c 69 73 70 0a 69 6d 70 6c 65 6d 65 6e 74 | parately.for.each.Lisp.implement |
| 2834c0 | 61 74 69 6f 6e 2e 20 20 54 68 69 73 20 6d 61 6b 65 73 20 53 4c 49 4d 45 20 72 65 61 64 69 6c 79 | ation...This.makes.SLIME.readily |
| 2834e0 | 20 70 6f 72 74 61 62 6c 65 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e | .portable.....File:.docFDBrww.in |
| 283500 | 66 6f 2c 20 20 4e 6f 64 65 3a 20 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 2c 20 20 4e 65 78 | fo,..Node:.Getting.started,..Nex |
| 283520 | 74 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 2c 20 20 50 72 65 76 3a 20 49 6e 74 72 6f 64 75 63 74 69 | t:.SLIME.mode,..Prev:.Introducti |
| 283540 | 6f 6e 2c 20 20 55 70 3a 20 54 6f 70 0a 0a 32 20 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 0a | on,..Up:.Top..2.Getting.started. |
| 283560 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 54 68 69 73 20 63 68 61 70 74 65 72 20 | *****************..This.chapter. |
| 283580 | 74 65 6c 6c 73 20 79 6f 75 20 68 6f 77 20 74 6f 20 67 65 74 20 53 4c 49 4d 45 20 75 70 20 61 6e | tells.you.how.to.get.SLIME.up.an |
| 2835a0 | 64 20 72 75 6e 6e 69 6e 67 2e 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 50 6c 61 74 66 6f 72 6d 73 | d.running...*.Menu:..*.Platforms |
| 2835c0 | 3a 3a 0a 2a 20 44 6f 77 6e 6c 6f 61 64 69 6e 67 3a 3a 0a 2a 20 49 6e 73 74 61 6c 6c 61 74 69 6f | ::.*.Downloading::.*.Installatio |
| 2835e0 | 6e 3a 3a 0a 2a 20 52 75 6e 6e 69 6e 67 3a 3a 0a 2a 20 53 65 74 75 70 20 54 75 6e 69 6e 67 3a 3a | n::.*.Running::.*.Setup.Tuning:: |
| 283600 | 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a | ....File:.docFDBrww.info,..Node: |
| 283620 | 20 50 6c 61 74 66 6f 72 6d 73 2c 20 20 4e 65 78 74 3a 20 44 6f 77 6e 6c 6f 61 64 69 6e 67 2c 20 | .Platforms,..Next:.Downloading,. |
| 283640 | 20 55 70 3a 20 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 0a 0a 32 2e 31 20 53 75 70 70 6f 72 | .Up:.Getting.started..2.1.Suppor |
| 283660 | 74 65 64 20 50 6c 61 74 66 6f 72 6d 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ted.Platforms.================== |
| 283680 | 3d 3d 3d 3d 3d 0a 0a 53 4c 49 4d 45 20 73 75 70 70 6f 72 74 73 20 61 20 77 69 64 65 20 72 61 6e | =====..SLIME.supports.a.wide.ran |
| 2836a0 | 67 65 20 6f 66 20 6f 70 65 72 61 74 69 6e 67 20 73 79 73 74 65 6d 73 20 61 6e 64 20 4c 69 73 70 | ge.of.operating.systems.and.Lisp |
| 2836c0 | 0a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 20 20 53 4c 49 4d 45 20 72 75 6e 73 20 6f 6e | .implementations...SLIME.runs.on |
| 2836e0 | 20 55 6e 69 78 20 73 79 73 74 65 6d 73 2c 20 4d 61 63 20 4f 53 58 2c 20 61 6e 64 20 4d 69 63 72 | .Unix.systems,.Mac.OSX,.and.Micr |
| 283700 | 6f 73 6f 66 74 0a 57 69 6e 64 6f 77 73 2e 20 20 47 4e 55 20 45 6d 61 63 73 20 76 65 72 73 69 6f | osoft.Windows...GNU.Emacs.versio |
| 283720 | 6e 73 20 32 34 2e 33 20 61 6e 64 20 61 62 6f 76 65 20 61 72 65 20 73 75 70 70 6f 72 74 65 64 2e | ns.24.3.and.above.are.supported. |
| 283740 | 20 20 5f 58 45 6d 61 63 73 20 69 73 0a 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 61 6e 79 6d 6f | .._XEmacs.is.not.supported.anymo |
| 283760 | 72 65 5f 2e 0a 0a 20 20 20 54 68 65 20 73 75 70 70 6f 72 74 65 64 20 4c 69 73 70 20 69 6d 70 6c | re_......The.supported.Lisp.impl |
| 283780 | 65 6d 65 6e 74 61 74 69 6f 6e 73 2c 20 72 6f 75 67 68 6c 79 20 6f 72 64 65 72 65 64 20 66 72 6f | ementations,.roughly.ordered.fro |
| 2837a0 | 6d 20 74 68 65 0a 62 65 73 74 2d 73 75 70 70 6f 72 74 65 64 2c 20 61 72 65 3a 0a 0a 20 20 20 e2 | m.the.best-supported,.are:...... |
| 2837c0 | 80 a2 20 43 4d 55 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 43 4d 55 43 4c 29 2c 20 31 39 64 20 | ...CMU.Common.Lisp.(CMUCL),.19d. |
| 2837e0 | 6f 72 20 6e 65 77 65 72 0a 20 20 20 e2 80 a2 20 53 74 65 65 6c 20 42 61 6e 6b 20 43 6f 6d 6d 6f | or.newer........Steel.Bank.Commo |
| 283800 | 6e 20 4c 69 73 70 20 28 53 42 43 4c 29 2c 20 31 2e 30 20 6f 72 20 6e 65 77 65 72 0a 20 20 20 e2 | n.Lisp.(SBCL),.1.0.or.newer..... |
| 283820 | 80 a2 20 43 6c 6f 7a 75 72 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 43 43 4c 29 2c 20 76 65 | ...Clozure.Common.Lisp.(CCL),.ve |
| 283840 | 72 73 69 6f 6e 20 31 2e 33 20 6f 72 20 6e 65 77 65 72 0a 20 20 20 e2 80 a2 20 4c 69 73 70 57 6f | rsion.1.3.or.newer........LispWo |
| 283860 | 72 6b 73 2c 20 76 65 72 73 69 6f 6e 20 34 2e 33 20 6f 72 20 6e 65 77 65 72 0a 20 20 20 e2 80 a2 | rks,.version.4.3.or.newer....... |
| 283880 | 20 41 6c 6c 65 67 72 6f 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 41 43 4c 29 2c 20 76 65 72 73 | .Allegro.Common.Lisp.(ACL),.vers |
| 2838a0 | 69 6f 6e 20 36 20 6f 72 20 6e 65 77 65 72 0a 20 20 20 e2 80 a2 20 43 4c 49 53 50 2c 20 76 65 72 | ion.6.or.newer........CLISP,.ver |
| 2838c0 | 73 69 6f 6e 20 32 2e 33 35 20 6f 72 20 6e 65 77 65 72 0a 20 20 20 e2 80 a2 20 41 72 6d 65 64 20 | sion.2.35.or.newer........Armed. |
| 2838e0 | 42 65 61 72 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 41 42 43 4c 29 0a 20 20 20 e2 80 a2 20 43 | Bear.Common.Lisp.(ABCL)........C |
| 283900 | 6f 72 6d 61 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2c 20 76 65 72 73 69 6f 6e 20 32 2e 35 31 20 | orman.Common.Lisp,.version.2.51. |
| 283920 | 6f 72 20 6e 65 77 65 72 20 77 69 74 68 20 74 68 65 20 70 61 74 63 68 65 73 20 66 72 6f 6d 0a 20 | or.newer.with.the.patches.from.. |
| 283940 | 20 20 20 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 72 75 6d 62 6c 65 73 6d 75 72 66 2e 6f 72 67 | ....<http://www.grumblesmurf.org |
| 283960 | 2f 6c 69 73 70 2f 63 6f 72 6d 61 6e 2d 70 61 74 63 68 65 73 3e 29 0a 20 20 20 e2 80 a2 20 53 63 | /lisp/corman-patches>)........Sc |
| 283980 | 69 65 6e 65 65 72 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 53 43 4c 29 2c 20 76 65 72 73 69 6f | ieneer.Common.Lisp.(SCL),.versio |
| 2839a0 | 6e 20 31 2e 32 2e 37 20 6f 72 20 6e 65 77 65 72 0a 20 20 20 e2 80 a2 20 45 6d 62 65 64 64 65 64 | n.1.2.7.or.newer........Embedded |
| 2839c0 | 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 45 43 4c 29 0a 0a 20 20 20 4d 6f 73 74 20 66 65 61 74 | .Common.Lisp.(ECL).....Most.feat |
| 2839e0 | 75 72 65 73 20 77 6f 72 6b 20 75 6e 69 66 6f 72 6d 6c 79 20 61 63 72 6f 73 73 20 69 6d 70 6c 65 | ures.work.uniformly.across.imple |
| 283a00 | 6d 65 6e 74 61 74 69 6f 6e 73 2c 20 62 75 74 20 73 6f 6d 65 20 61 72 65 0a 70 72 6f 6e 65 20 74 | mentations,.but.some.are.prone.t |
| 283a20 | 6f 20 76 61 72 69 61 74 69 6f 6e 2e 20 20 54 68 65 73 65 20 69 6e 63 6c 75 64 65 20 74 68 65 20 | o.variation...These.include.the. |
| 283a40 | 70 72 65 63 69 73 69 6f 6e 20 6f 66 20 70 6c 61 63 69 6e 67 0a 63 6f 6d 70 69 6c 65 72 2d 6e 6f | precision.of.placing.compiler-no |
| 283a60 | 74 65 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 2c 20 58 52 45 46 20 73 75 70 70 6f 72 74 2c 20 61 6e | te.annotations,.XREF.support,.an |
| 283a80 | 64 20 66 61 6e 63 79 20 64 65 62 75 67 67 65 72 20 63 6f 6d 6d 61 6e 64 73 0a 28 6c 69 6b 65 20 | d.fancy.debugger.commands.(like. |
| 283aa0 | e2 80 9c 72 65 73 74 61 72 74 20 66 72 61 6d 65 e2 80 9d 29 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 | ...restart.frame...).....File:.d |
| 283ac0 | 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 44 6f 77 6e 6c 6f 61 64 69 6e | ocFDBrww.info,..Node:.Downloadin |
| 283ae0 | 67 2c 20 20 4e 65 78 74 3a 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 2c 20 20 50 72 65 76 3a 20 50 | g,..Next:.Installation,..Prev:.P |
| 283b00 | 6c 61 74 66 6f 72 6d 73 2c 20 20 55 70 3a 20 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 0a 0a | latforms,..Up:.Getting.started.. |
| 283b20 | 32 2e 32 20 44 6f 77 6e 6c 6f 61 64 69 6e 67 20 53 4c 49 4d 45 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | 2.2.Downloading.SLIME.========== |
| 283b40 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 59 6f 75 20 63 61 6e 20 63 68 6f 6f 73 65 20 62 65 74 77 | ===========..You.can.choose.betw |
| 283b60 | 65 65 6e 20 75 73 69 6e 67 20 61 20 72 65 6c 65 61 73 65 64 20 76 65 72 73 69 6f 6e 20 6f 66 20 | een.using.a.released.version.of. |
| 283b80 | 53 4c 49 4d 45 20 6f 72 20 61 63 63 65 73 73 69 6e 67 0a 6f 75 72 20 47 69 74 20 72 65 70 6f 73 | SLIME.or.accessing.our.Git.repos |
| 283ba0 | 69 74 6f 72 79 20 64 69 72 65 63 74 6c 79 2e 20 20 59 6f 75 20 63 61 6e 20 64 6f 77 6e 6c 6f 61 | itory.directly...You.can.downloa |
| 283bc0 | 64 20 74 68 65 20 6c 61 74 65 73 74 20 72 65 6c 65 61 73 65 64 0a 76 65 72 73 69 6f 6e 20 66 72 | d.the.latest.released.version.fr |
| 283be0 | 6f 6d 20 6f 75 72 20 77 65 62 73 69 74 65 3a 0a 0a 20 20 20 3c 68 74 74 70 3a 2f 2f 67 69 74 68 | om.our.website:.....<http://gith |
| 283c00 | 75 62 2e 63 6f 6d 2f 73 6c 69 6d 65 2f 73 6c 69 6d 65 2f 3e 0a 0a 20 20 20 57 65 20 72 65 63 6f | ub.com/slime/slime/>.....We.reco |
| 283c20 | 6d 6d 65 6e 64 20 74 68 61 74 20 75 73 65 72 73 20 77 68 6f 20 70 61 72 74 69 63 69 70 61 74 65 | mmend.that.users.who.participate |
| 283c40 | 20 69 6e 20 74 68 65 20 e2 80 98 73 6c 69 6d 65 2d 64 65 76 65 6c e2 80 99 20 6d 61 69 6c 69 6e | .in.the....slime-devel....mailin |
| 283c60 | 67 0a 6c 69 73 74 20 75 73 65 20 74 68 65 20 47 69 74 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 | g.list.use.the.Git.version.of.th |
| 283c80 | 65 20 63 6f 64 65 2e 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 47 69 74 3a 3a 0a 2a 20 47 69 74 20 | e.code...*.Menu:..*.Git::.*.Git. |
| 283ca0 | 49 6e 63 61 6e 74 61 74 69 6f 6e 73 3a 3a 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 | Incantations::....File:.docFDBrw |
| 283cc0 | 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 47 69 74 2c 20 20 4e 65 78 74 3a 20 47 69 74 20 49 | w.info,..Node:.Git,..Next:.Git.I |
| 283ce0 | 6e 63 61 6e 74 61 74 69 6f 6e 73 2c 20 20 55 70 3a 20 44 6f 77 6e 6c 6f 61 64 69 6e 67 0a 0a 32 | ncantations,..Up:.Downloading..2 |
| 283d00 | 2e 32 2e 31 20 44 6f 77 6e 6c 6f 61 64 69 6e 67 20 66 72 6f 6d 20 47 69 74 0a 2d 2d 2d 2d 2d 2d | .2.1.Downloading.from.Git.------ |
| 283d20 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 53 4c 49 4d 45 20 69 73 20 61 | --------------------..SLIME.is.a |
| 283d40 | 76 61 69 6c 61 62 6c 65 20 66 72 6f 6d 20 74 68 65 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 | vailable.from.the.Git.repository |
| 283d60 | 20 6f 6e 20 e2 80 98 67 69 74 68 75 62 2e 63 6f 6d e2 80 99 2e 20 20 59 6f 75 20 68 61 76 65 0a | .on....github.com......You.have. |
| 283d80 | 74 68 65 20 6f 70 74 69 6f 6e 20 74 6f 20 75 73 65 20 65 69 74 68 65 72 20 74 68 65 20 76 65 72 | the.option.to.use.either.the.ver |
| 283da0 | 79 20 6c 61 74 65 73 74 20 63 6f 64 65 20 6f 72 20 74 68 65 20 74 61 67 67 65 64 0a e2 80 98 46 | y.latest.code.or.the.tagged....F |
| 283dc0 | 41 49 52 4c 59 2d 53 54 41 42 4c 45 e2 80 99 20 73 6e 61 70 73 68 6f 74 2e 0a 0a 20 20 20 54 68 | AIRLY-STABLE....snapshot......Th |
| 283de0 | 65 20 6c 61 74 65 73 74 20 76 65 72 73 69 6f 6e 20 74 65 6e 64 73 20 74 6f 20 68 61 76 65 20 6d | e.latest.version.tends.to.have.m |
| 283e00 | 6f 72 65 20 66 65 61 74 75 72 65 73 20 61 6e 64 20 66 65 77 65 72 20 62 75 67 73 20 74 68 61 6e | ore.features.and.fewer.bugs.than |
| 283e20 | 0a 74 68 65 20 e2 80 98 46 41 49 52 4c 59 2d 53 54 41 42 4c 45 e2 80 99 20 76 65 72 73 69 6f 6e | .the....FAIRLY-STABLE....version |
| 283e40 | 2c 20 62 75 74 20 69 74 20 63 61 6e 20 62 65 20 75 6e 73 74 61 62 6c 65 20 64 75 72 69 6e 67 20 | ,.but.it.can.be.unstable.during. |
| 283e60 | 74 69 6d 65 73 20 6f 66 0a 6d 61 6a 6f 72 20 73 75 72 67 65 72 79 2e 20 20 41 73 20 61 20 72 75 | times.of.major.surgery...As.a.ru |
| 283e80 | 6c 65 2d 6f 66 2d 74 68 75 6d 62 20 72 65 63 6f 6d 6d 65 6e 64 61 74 69 6f 6e 20 77 65 20 73 75 | le-of-thumb.recommendation.we.su |
| 283ea0 | 67 67 65 73 74 20 74 68 61 74 20 69 66 20 79 6f 75 0a 66 6f 6c 6c 6f 77 20 74 68 65 20 e2 80 98 | ggest.that.if.you.follow.the.... |
| 283ec0 | 73 6c 69 6d 65 2d 64 65 76 65 6c e2 80 99 20 6d 61 69 6c 69 6e 67 20 6c 69 73 74 20 74 68 65 6e | slime-devel....mailing.list.then |
| 283ee0 | 20 79 6f 75 e2 80 99 72 65 20 62 65 74 74 65 72 20 6f 66 66 20 77 69 74 68 20 74 68 65 0a 6c 61 | .you...re.better.off.with.the.la |
| 283f00 | 74 65 73 74 20 76 65 72 73 69 6f 6e 20 28 77 65 e2 80 99 6c 6c 20 73 65 6e 64 20 61 20 6e 6f 74 | test.version.(we...ll.send.a.not |
| 283f20 | 65 20 77 68 65 6e 20 69 74 e2 80 99 73 20 75 6e 64 65 72 67 6f 69 6e 67 20 6d 61 6a 6f 72 20 68 | e.when.it...s.undergoing.major.h |
| 283f40 | 61 63 6b 69 6e 67 29 2e 0a 49 66 20 79 6f 75 20 64 6f 6e e2 80 99 74 20 66 6f 6c 6c 6f 77 20 74 | acking)..If.you.don...t.follow.t |
| 283f60 | 68 65 20 6d 61 69 6c 69 6e 67 20 6c 69 73 74 20 79 6f 75 20 77 6f 6e e2 80 99 74 20 6b 6e 6f 77 | he.mailing.list.you.won...t.know |
| 283f80 | 20 74 68 65 20 73 74 61 74 75 73 20 6f 66 20 74 68 65 0a 6c 61 74 65 73 74 20 63 6f 64 65 2c 20 | .the.status.of.the.latest.code,. |
| 283fa0 | 73 6f 20 74 72 61 63 6b 69 6e 67 20 e2 80 98 46 41 49 52 4c 59 2d 53 54 41 42 4c 45 e2 80 99 20 | so.tracking....FAIRLY-STABLE.... |
| 283fc0 | 6f 72 20 75 73 69 6e 67 20 61 20 72 65 6c 65 61 73 65 64 20 76 65 72 73 69 6f 6e 20 69 73 0a 74 | or.using.a.released.version.is.t |
| 283fe0 | 68 65 20 73 61 66 65 20 6f 70 74 69 6f 6e 2e 0a 0a 20 20 20 49 66 20 79 6f 75 20 64 6f 77 6e 6c | he.safe.option......If.you.downl |
| 284000 | 6f 61 64 20 66 72 6f 6d 20 47 69 74 20 74 68 65 6e 20 72 65 6d 65 6d 62 65 72 20 74 6f 20 e2 80 | oad.from.Git.then.remember.to... |
| 284020 | 98 67 69 74 20 70 75 6c 6c e2 80 99 20 6f 63 63 61 73 69 6f 6e 61 6c 6c 79 2e 0a 49 6d 70 72 6f | .git.pull....occasionally..Impro |
| 284040 | 76 65 6d 65 6e 74 73 20 61 72 65 20 63 6f 6e 74 69 6e 75 61 6c 6c 79 20 62 65 69 6e 67 20 63 6f | vements.are.continually.being.co |
| 284060 | 6d 6d 69 74 74 65 64 2c 20 61 6e 64 20 74 68 65 20 e2 80 98 46 41 49 52 4c 59 2d 53 54 41 42 4c | mmitted,.and.the....FAIRLY-STABL |
| 284080 | 45 e2 80 99 0a 74 61 67 20 69 73 20 6d 6f 76 65 64 20 66 6f 72 77 61 72 64 20 66 72 6f 6d 20 74 | E....tag.is.moved.forward.from.t |
| 2840a0 | 69 6d 65 20 74 6f 20 74 69 6d 65 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e | ime.to.time.....File:.docFDBrww. |
| 2840c0 | 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 47 69 74 20 49 6e 63 61 6e 74 61 74 69 6f 6e 73 2c 20 20 | info,..Node:.Git.Incantations,.. |
| 2840e0 | 50 72 65 76 3a 20 47 69 74 2c 20 20 55 70 3a 20 44 6f 77 6e 6c 6f 61 64 69 6e 67 0a 0a 32 2e 32 | Prev:.Git,..Up:.Downloading..2.2 |
| 284100 | 2e 32 20 47 69 74 20 69 6e 63 61 6e 74 61 74 69 6f 6e 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | .2.Git.incantations.------------ |
| 284120 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 54 6f 20 64 6f 77 6e 6c 6f 61 64 20 74 68 65 20 76 65 72 79 | ----------..To.download.the.very |
| 284140 | 20 6c 61 74 65 73 74 20 53 4c 49 4d 45 20 79 6f 75 20 66 69 72 73 74 20 63 6f 6e 66 69 67 75 72 | .latest.SLIME.you.first.configur |
| 284160 | 65 20 79 6f 75 72 20 e2 80 98 47 69 74 52 4f 4f 54 e2 80 99 20 61 6e 64 0a 6c 6f 67 69 6e 20 74 | e.your....GitROOT....and.login.t |
| 284180 | 6f 20 74 68 65 20 72 65 70 6f 73 69 74 6f 72 79 2e 0a 0a 20 20 20 20 20 67 69 74 20 63 6c 6f 6e | o.the.repository........git.clon |
| 2841a0 | 65 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 73 6c 69 6d 65 2f 73 6c 69 6d 65 | e.https://github.com/slime/slime |
| 2841c0 | 2e 67 69 74 0a 0a 20 20 20 59 6f 75 20 6d 69 67 68 74 20 73 75 62 73 74 69 74 75 74 65 20 e2 80 | .git.....You.might.substitute... |
| 2841e0 | 98 68 74 74 70 73 e2 80 99 20 66 6f 72 20 e2 80 98 68 74 74 70 e2 80 99 20 69 66 20 79 6f 75 e2 | .https....for....http....if.you. |
| 284200 | 80 99 72 65 20 68 61 76 69 6e 67 20 70 72 6f 62 6c 65 6d 73 0a 77 69 74 68 20 74 68 61 74 20 70 | ..re.having.problems.with.that.p |
| 284220 | 72 6f 74 6f 63 6f 6c 2e 0a 0a 20 20 20 49 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 68 61 63 6b | rotocol......If.you.want.to.hack |
| 284240 | 20 6f 6e 20 53 4c 49 4d 45 2c 20 75 73 65 20 47 69 74 68 75 62 e2 80 99 73 20 5f 66 6f 72 6b 5f | .on.SLIME,.use.Github...s._fork_ |
| 284260 | 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 20 61 6e 64 0a 73 75 62 6d 69 74 20 61 20 5f 70 75 6c | .functionality.and.submit.a._pul |
| 284280 | 6c 20 72 65 71 75 65 73 74 5f 2e 20 20 42 65 20 73 75 72 65 20 74 6f 20 66 69 72 73 74 20 72 65 | l.request_...Be.sure.to.first.re |
| 2842a0 | 61 64 20 74 68 65 20 43 4f 4e 54 52 49 42 55 54 49 4e 47 2e 6d 64 20 66 69 6c 65 0a 66 69 72 73 | ad.the.CONTRIBUTING.md.file.firs |
| 2842c0 | 74 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 | t.....File:.docFDBrww.info,..Nod |
| 2842e0 | 65 3a 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 52 75 6e 6e 69 6e 67 2c | e:.Installation,..Next:.Running, |
| 284300 | 20 20 50 72 65 76 3a 20 44 6f 77 6e 6c 6f 61 64 69 6e 67 2c 20 20 55 70 3a 20 47 65 74 74 69 6e | ..Prev:.Downloading,..Up:.Gettin |
| 284320 | 67 20 73 74 61 72 74 65 64 0a 0a 32 2e 33 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 0a 3d 3d 3d 3d | g.started..2.3.Installation.==== |
| 284340 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 65 61 73 69 65 73 74 20 77 61 79 20 74 6f | ============..The.easiest.way.to |
| 284360 | 20 69 6e 73 74 61 6c 6c 20 61 6e 64 20 6b 65 65 70 20 53 4c 49 4d 45 20 75 70 2d 74 6f 2d 64 61 | .install.and.keep.SLIME.up-to-da |
| 284380 | 74 65 20 69 73 20 75 73 69 6e 67 20 45 6d 61 63 73 e2 80 99 73 0a 62 75 69 6c 74 2d 69 6e 20 70 | te.is.using.Emacs...s.built-in.p |
| 2843a0 | 61 63 6b 61 67 65 20 6d 61 6e 61 67 65 72 2e 20 20 53 4c 49 4d 45 20 69 73 20 61 76 61 69 6c 61 | ackage.manager...SLIME.is.availa |
| 2843c0 | 62 6c 65 20 66 72 6f 6d 20 74 68 65 20 4d 45 4c 50 41 20 72 65 70 6f 73 69 74 6f 72 79 2e 0a 41 | ble.from.the.MELPA.repository..A |
| 2843e0 | 66 74 65 72 20 73 65 74 74 69 6e 67 20 75 70 20 74 68 65 20 4d 45 4c 50 41 20 72 65 70 6f 73 69 | fter.setting.up.the.MELPA.reposi |
| 284400 | 74 6f 72 79 2c 20 53 4c 49 4d 45 20 63 61 6e 20 62 65 20 69 6e 73 74 61 6c 6c 65 64 20 76 69 61 | tory,.SLIME.can.be.installed.via |
| 284420 | 20 e2 80 98 4d 2d 78 0a 70 61 63 6b 61 67 65 2d 69 6e 73 74 61 6c 6c 20 52 45 54 20 73 6c 69 6d | ....M-x.package-install.RET.slim |
| 284440 | 65 20 52 45 54 e2 80 99 2e 20 20 59 6f 75 20 73 68 6f 75 6c 64 20 74 68 65 6e 20 64 65 66 69 6e | e.RET......You.should.then.defin |
| 284460 | 65 20 79 6f 75 72 20 64 65 66 61 75 6c 74 0a 4c 69 73 70 20 69 6e 20 79 6f 75 72 20 e2 80 98 2e | e.your.default.Lisp.in.your..... |
| 284480 | 65 6d 61 63 73 e2 80 99 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 0a 20 20 20 20 20 28 73 65 74 71 | emacs....as.follows:.......(setq |
| 2844a0 | 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 20 22 2f 6f 70 74 2f 73 62 63 | .inferior-lisp-program."/opt/sbc |
| 2844c0 | 6c 2f 62 69 6e 2f 73 62 63 6c 22 29 0a 0a 20 20 20 41 74 20 74 68 69 73 20 70 6f 69 6e 74 2c 20 | l/bin/sbcl").....At.this.point,. |
| 2844e0 | 79 6f 75 20 73 68 6f 75 6c 64 20 62 65 20 72 65 61 64 79 20 74 6f 20 73 74 61 72 74 20 2a 6e 6f | you.should.be.ready.to.start.*no |
| 284500 | 74 65 20 72 75 6e 6e 69 6e 67 20 53 4c 49 4d 45 3a 0a 52 75 6e 6e 69 6e 67 2e 0a 0a 20 20 20 54 | te.running.SLIME:.Running......T |
| 284520 | 68 69 73 20 69 73 20 74 68 65 20 6d 69 6e 69 6d 61 6c 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e | his.is.the.minimal.configuration |
| 284540 | 20 77 69 74 68 20 74 68 65 20 66 65 77 65 73 74 20 66 72 69 6c 6c 73 2e 20 20 49 66 20 74 68 65 | .with.the.fewest.frills...If.the |
| 284560 | 0a 62 61 73 69 63 20 73 65 74 75 70 20 69 73 20 77 6f 72 6b 69 6e 67 2c 20 79 6f 75 20 63 61 6e | .basic.setup.is.working,.you.can |
| 284580 | 20 74 72 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 6d 6f 64 75 6c 65 73 20 28 2a 6e 6f 74 65 20 4c | .try.additional.modules.(*note.L |
| 2845a0 | 6f 61 64 69 6e 67 0a 43 6f 6e 74 72 69 62 73 3a 3a 29 2e 0a 0a 32 2e 33 2e 31 20 49 6e 73 74 61 | oading.Contribs::)...2.3.1.Insta |
| 2845c0 | 6c 6c 69 6e 67 20 66 72 6f 6d 20 47 69 74 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | lling.from.Git.----------------- |
| 2845e0 | 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 49 66 20 79 6f 75 e2 80 99 64 20 72 61 74 68 65 72 20 69 6e 73 74 | --------..If.you...d.rather.inst |
| 284600 | 61 6c 6c 20 53 4c 49 4d 45 20 64 69 72 65 63 74 6c 79 20 66 72 6f 6d 20 69 74 73 20 67 69 74 20 | all.SLIME.directly.from.its.git. |
| 284620 | 72 65 70 6f 73 69 74 6f 72 79 2c 20 79 6f 75 20 77 69 6c 6c 0a 6e 65 65 64 20 74 6f 20 61 64 64 | repository,.you.will.need.to.add |
| 284640 | 20 61 20 66 65 77 20 65 78 74 72 61 20 6c 69 6e 65 73 20 69 6e 20 79 6f 75 72 20 e2 80 98 2e 65 | .a.few.extra.lines.in.your.....e |
| 284660 | 6d 61 63 73 e2 80 99 3a 0a 0a 20 20 20 20 20 3b 3b 20 5f 53 65 74 75 70 20 6c 6f 61 64 2d 70 61 | macs...:.......;;._Setup.load-pa |
| 284680 | 74 68 2c 20 61 75 74 6f 6c 6f 61 64 73 20 61 6e 64 20 79 6f 75 72 20 6c 69 73 70 20 73 79 73 74 | th,.autoloads.and.your.lisp.syst |
| 2846a0 | 65 6d 5f 0a 20 20 20 20 20 3b 3b 20 5f 4e 6f 74 20 6e 65 65 64 65 64 20 69 66 20 79 6f 75 20 69 | em_......;;._Not.needed.if.you.i |
| 2846c0 | 6e 73 74 61 6c 6c 20 53 4c 49 4d 45 20 76 69 61 20 4d 45 4c 50 41 5f 0a 20 20 20 20 20 28 61 64 | nstall.SLIME.via.MELPA_......(ad |
| 2846e0 | 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f 61 64 2d 70 61 74 68 20 22 7e 2f 64 69 72 2f 74 6f 2f 63 | d-to-list.'load-path."~/dir/to/c |
| 284700 | 6c 6f 6e 65 64 2f 73 6c 69 6d 65 22 29 0a 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 73 6c 69 | loned/slime")......(require.'sli |
| 284720 | 6d 65 2d 61 75 74 6f 6c 6f 61 64 73 29 0a 20 20 20 20 20 28 73 65 74 71 20 69 6e 66 65 72 69 6f | me-autoloads)......(setq.inferio |
| 284740 | 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 20 22 2f 6f 70 74 2f 73 62 63 6c 2f 62 69 6e 2f 73 62 | r-lisp-program."/opt/sbcl/bin/sb |
| 284760 | 63 6c 22 29 0a 0a 20 20 20 59 6f 75 20 6d 61 79 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 62 79 74 65 | cl").....You.may.optionally.byte |
| 284780 | 2d 63 6f 6d 70 69 6c 65 20 53 4c 49 4d 45 20 75 73 69 6e 67 20 e2 80 98 6d 61 6b 65 20 63 6f 6d | -compile.SLIME.using....make.com |
| 2847a0 | 70 69 6c 65 0a 63 6f 6e 74 72 69 62 2d 63 6f 6d 70 69 6c 65 e2 80 99 2e 0a 0a 1f 0a 46 69 6c 65 | pile.contrib-compile........File |
| 2847c0 | 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 52 75 6e 6e 69 6e 67 | :.docFDBrww.info,..Node:.Running |
| 2847e0 | 2c 20 20 4e 65 78 74 3a 20 53 65 74 75 70 20 54 75 6e 69 6e 67 2c 20 20 50 72 65 76 3a 20 49 6e | ,..Next:.Setup.Tuning,..Prev:.In |
| 284800 | 73 74 61 6c 6c 61 74 69 6f 6e 2c 20 20 55 70 3a 20 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 | stallation,..Up:.Getting.started |
| 284820 | 0a 0a 32 2e 34 20 52 75 6e 6e 69 6e 67 20 53 4c 49 4d 45 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ..2.4.Running.SLIME.============ |
| 284840 | 3d 3d 3d 3d 3d 0a 0a 53 4c 49 4d 45 20 69 73 20 73 74 61 72 74 65 64 20 77 69 74 68 20 74 68 65 | =====..SLIME.is.started.with.the |
| 284860 | 20 45 6d 61 63 73 20 63 6f 6d 6d 61 6e 64 20 e2 80 98 4d 2d 78 20 73 6c 69 6d 65 e2 80 99 2e 20 | .Emacs.command....M-x.slime..... |
| 284880 | 20 54 68 69 73 20 75 73 65 73 20 74 68 65 0a e2 80 98 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 e2 | .This.uses.the....inferior-lisp. |
| 2848a0 | 80 99 20 70 61 63 6b 61 67 65 20 74 6f 20 73 74 61 72 74 20 61 20 4c 69 73 70 20 70 72 6f 63 65 | ...package.to.start.a.Lisp.proce |
| 2848c0 | 73 73 2c 20 6c 6f 61 64 73 20 61 6e 64 20 73 74 61 72 74 73 20 74 68 65 0a 4c 69 73 70 2d 73 69 | ss,.loads.and.starts.the.Lisp-si |
| 2848e0 | 64 65 20 73 65 72 76 65 72 20 28 6b 6e 6f 77 6e 20 61 73 20 e2 80 9c 53 77 61 6e 6b e2 80 9d 29 | de.server.(known.as....Swank...) |
| 284900 | 2c 20 61 6e 64 20 65 73 74 61 62 6c 69 73 68 65 73 20 61 20 73 6f 63 6b 65 74 20 63 6f 6e 6e 65 | ,.and.establishes.a.socket.conne |
| 284920 | 63 74 69 6f 6e 0a 62 65 74 77 65 65 6e 20 45 6d 61 63 73 20 61 6e 64 20 4c 69 73 70 2e 20 20 46 | ction.between.Emacs.and.Lisp...F |
| 284940 | 69 6e 61 6c 6c 79 20 61 20 52 45 50 4c 20 62 75 66 66 65 72 20 69 73 20 63 72 65 61 74 65 64 20 | inally.a.REPL.buffer.is.created. |
| 284960 | 77 68 65 72 65 20 79 6f 75 20 63 61 6e 0a 65 6e 74 65 72 20 4c 69 73 70 20 65 78 70 72 65 73 73 | where.you.can.enter.Lisp.express |
| 284980 | 69 6f 6e 73 20 66 6f 72 20 65 76 61 6c 75 61 74 69 6f 6e 2e 0a 0a 20 20 20 41 74 20 74 68 69 73 | ions.for.evaluation......At.this |
| 2849a0 | 20 70 6f 69 6e 74 20 53 4c 49 4d 45 20 69 73 20 75 70 20 61 6e 64 20 72 75 6e 6e 69 6e 67 20 61 | .point.SLIME.is.up.and.running.a |
| 2849c0 | 6e 64 20 79 6f 75 20 63 61 6e 20 73 74 61 72 74 20 65 78 70 6c 6f 72 69 6e 67 2e 0a 0a 1f 0a 46 | nd.you.can.start.exploring.....F |
| 2849e0 | 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 53 65 74 75 | ile:.docFDBrww.info,..Node:.Setu |
| 284a00 | 70 20 54 75 6e 69 6e 67 2c 20 20 50 72 65 76 3a 20 52 75 6e 6e 69 6e 67 2c 20 20 55 70 3a 20 47 | p.Tuning,..Prev:.Running,..Up:.G |
| 284a20 | 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 0a 0a 32 2e 35 20 53 65 74 75 70 20 54 75 6e 69 6e 67 | etting.started..2.5.Setup.Tuning |
| 284a40 | 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 69 73 20 73 65 63 74 69 6f 6e 20 | .================..This.section. |
| 284a60 | 65 78 70 6c 61 69 6e 73 20 77 61 79 73 20 74 6f 20 70 65 72 66 6f 72 6d 20 62 61 73 69 63 20 65 | explains.ways.to.perform.basic.e |
| 284a80 | 78 74 65 6e 73 69 6f 6e 73 20 74 6f 20 53 4c 49 4d 45 2c 20 61 6e 64 20 68 6f 77 0a 74 6f 20 63 | xtensions.to.SLIME,.and.how.to.c |
| 284aa0 | 6f 6e 66 69 67 75 72 65 20 53 4c 49 4d 45 20 66 6f 72 20 6d 75 6c 74 69 70 6c 65 20 4c 69 73 70 | onfigure.SLIME.for.multiple.Lisp |
| 284ac0 | 20 73 79 73 74 65 6d 73 20 61 6e 64 20 68 6f 77 20 74 6f 20 72 65 64 75 63 65 20 53 4c 49 4d 45 | .systems.and.how.to.reduce.SLIME |
| 284ae0 | e2 80 99 73 0a 73 74 61 72 74 75 70 20 74 69 6d 65 2e 0a 0a 20 20 20 50 6c 65 61 73 65 20 70 72 | ...s.startup.time......Please.pr |
| 284b00 | 6f 63 65 65 64 20 77 69 74 68 20 74 68 69 73 20 73 65 63 74 69 6f 6e 20 6f 6e 6c 79 20 69 66 20 | oceed.with.this.section.only.if. |
| 284b20 | 79 6f 75 72 20 62 61 73 69 63 20 73 65 74 75 70 20 77 6f 72 6b 73 2e 20 20 49 66 0a 79 6f 75 20 | your.basic.setup.works...If.you. |
| 284b40 | 61 72 65 20 68 61 70 70 79 20 77 69 74 68 20 74 68 65 20 62 61 73 69 63 20 73 65 74 75 70 2c 20 | are.happy.with.the.basic.setup,. |
| 284b60 | 73 6b 69 70 20 74 68 69 73 20 73 65 63 74 69 6f 6e 2e 0a 0a 20 20 20 46 6f 72 20 63 6f 6e 74 72 | skip.this.section......For.contr |
| 284b80 | 69 62 20 6d 6f 64 75 6c 65 73 20 2a 6e 6f 74 65 20 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 | ib.modules.*note.Loading.Contrib |
| 284ba0 | 73 3a 3a 2e 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 42 61 73 69 63 20 63 75 73 74 6f 6d 69 7a 61 | s::...*.Menu:..*.Basic.customiza |
| 284bc0 | 74 69 6f 6e 3a 3a 0a 2a 20 4d 75 6c 74 69 70 6c 65 20 4c 69 73 70 73 3a 3a 0a 2a 20 4c 6f 61 64 | tion::.*.Multiple.Lisps::.*.Load |
| 284be0 | 69 6e 67 20 53 77 61 6e 6b 20 66 61 73 74 65 72 3a 3a 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 | ing.Swank.faster::....File:.docF |
| 284c00 | 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 42 61 73 69 63 20 63 75 73 74 6f 6d 69 | DBrww.info,..Node:.Basic.customi |
| 284c20 | 7a 61 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 4d 75 6c 74 69 70 6c 65 20 4c 69 73 70 73 2c 20 20 | zation,..Next:.Multiple.Lisps,.. |
| 284c40 | 55 70 3a 20 53 65 74 75 70 20 54 75 6e 69 6e 67 0a 0a 32 2e 35 2e 31 20 42 61 73 69 63 20 63 75 | Up:.Setup.Tuning..2.5.1.Basic.cu |
| 284c60 | 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | stomization.-------------------- |
| 284c80 | 2d 2d 2d 2d 2d 0a 0a 4f 6e 63 65 20 79 6f 75 20 68 61 76 65 20 74 68 65 20 62 61 73 69 63 20 6e | -----..Once.you.have.the.basic.n |
| 284ca0 | 6f 2d 66 72 69 6c 6c 73 20 73 65 74 75 70 20 77 6f 72 6b 69 6e 67 2c 20 79 6f 75 20 63 61 6e 20 | o-frills.setup.working,.you.can. |
| 284cc0 | 65 6e 68 61 6e 63 65 20 79 6f 75 72 0a 53 4c 49 4d 45 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e 20 | enhance.your.SLIME.installation. |
| 284ce0 | 77 69 74 68 20 62 75 6e 64 6c 65 64 20 65 78 74 65 6e 73 69 6f 6e 73 3a 0a 0a 20 20 20 20 20 3b | with.bundled.extensions:.......; |
| 284d00 | 3b 20 5f 53 65 74 75 70 20 6c 6f 61 64 2d 70 61 74 68 2c 20 61 75 74 6f 6c 6f 61 64 73 20 61 6e | ;._Setup.load-path,.autoloads.an |
| 284d20 | 64 20 79 6f 75 72 20 6c 69 73 70 20 73 79 73 74 65 6d 5f 0a 20 20 20 20 20 28 61 64 64 2d 74 6f | d.your.lisp.system_......(add-to |
| 284d40 | 2d 6c 69 73 74 20 27 6c 6f 61 64 2d 70 61 74 68 20 22 7e 2f 64 69 72 2f 74 6f 2f 63 6c 6f 6e 65 | -list.'load-path."~/dir/to/clone |
| 284d60 | 64 2f 73 6c 69 6d 65 22 29 0a 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 61 | d/slime")......(require.'slime-a |
| 284d80 | 75 74 6f 6c 6f 61 64 73 29 0a 0a 20 20 20 53 65 65 20 2a 6e 6f 74 65 20 4c 6f 61 64 69 6e 67 20 | utoloads).....See.*note.Loading. |
| 284da0 | 43 6f 6e 74 72 69 62 73 3a 3a 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 | Contribs::.for.more.information. |
| 284dc0 | 6f 6e 20 53 4c 49 4d 45 e2 80 99 73 20 63 6f 6e 74 72 69 62 0a 73 79 73 74 65 6d 2e 0a 0a 20 20 | on.SLIME...s.contrib.system..... |
| 284de0 | 20 54 6f 20 63 75 73 74 6f 6d 69 7a 65 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 62 69 6e 64 69 | .To.customize.a.particular.bindi |
| 284e00 | 6e 67 20 69 6e 20 6f 6e 65 20 6f 66 20 53 4c 49 4d 45 e2 80 99 73 20 6b 65 79 6d 61 70 73 2c 20 | ng.in.one.of.SLIME...s.keymaps,. |
| 284e20 | 79 6f 75 20 63 61 6e 0a 61 64 64 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 | you.can.add.one.of.the.following |
| 284e40 | 20 74 6f 20 79 6f 75 72 20 69 6e 69 74 20 66 69 6c 65 3a 0a 0a 20 20 20 20 20 28 61 64 64 2d 68 | .to.your.init.file:.......(add-h |
| 284e60 | 6f 6f 6b 20 27 73 6c 69 6d 65 2d 6c 6f 61 64 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 28 6c 61 6d | ook.'slime-load-hook........(lam |
| 284e80 | 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 6c 69 | bda.()...........(define-key.sli |
| 284ea0 | 6d 65 2d 70 72 65 66 69 78 2d 6d 61 70 20 28 6b 62 64 20 22 4d 2d 68 22 29 20 27 73 6c 69 6d 65 | me-prefix-map.(kbd."M-h").'slime |
| 284ec0 | 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 6c 6f 6f 6b 75 70 29 29 29 0a 0a 20 20 20 54 68 65 | -documentation-lookup))).....The |
| 284ee0 | 20 66 6f 72 6d 65 72 20 74 65 63 68 6e 69 71 75 65 20 77 6f 72 6b 73 20 6f 6e 6c 79 20 66 6f 72 | .former.technique.works.only.for |
| 284f00 | 20 53 4c 49 4d 45 e2 80 99 73 20 63 6f 72 65 20 6b 65 79 6d 61 70 73 2c 20 6e 6f 74 20 69 74 e2 | .SLIME...s.core.keymaps,.not.it. |
| 284f20 | 80 99 73 0a 63 6f 6e 74 72 69 62 73 e2 80 99 2e 20 20 46 6f 72 20 74 68 6f 73 65 20 79 6f 75 20 | ..s.contribs......For.those.you. |
| 284f40 | 63 61 6e 20 75 73 65 20 74 68 65 20 6c 61 74 74 65 72 20 66 6f 72 6d 20 77 68 69 63 68 20 77 6f | can.use.the.latter.form.which.wo |
| 284f60 | 72 6b 73 20 66 6f 72 20 61 6e 79 0a 45 6d 61 63 73 20 6c 69 62 72 61 72 79 2e 20 20 53 65 65 20 | rks.for.any.Emacs.library...See. |
| 284f80 | 61 6c 73 6f 20 2a 6e 6f 74 65 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 3a 3a 20 66 6f 72 20 6d | also.*note.Customization::.for.m |
| 284fa0 | 6f 72 65 20 61 64 76 61 6e 63 65 64 0a 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6f 70 74 69 6f | ore.advanced.configuration.optio |
| 284fc0 | 6e 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f | ns.....File:.docFDBrww.info,..No |
| 284fe0 | 64 65 3a 20 4d 75 6c 74 69 70 6c 65 20 4c 69 73 70 73 2c 20 20 4e 65 78 74 3a 20 4c 6f 61 64 69 | de:.Multiple.Lisps,..Next:.Loadi |
| 285000 | 6e 67 20 53 77 61 6e 6b 20 66 61 73 74 65 72 2c 20 20 50 72 65 76 3a 20 42 61 73 69 63 20 63 75 | ng.Swank.faster,..Prev:.Basic.cu |
| 285020 | 73 74 6f 6d 69 7a 61 74 69 6f 6e 2c 20 20 55 70 3a 20 53 65 74 75 70 20 54 75 6e 69 6e 67 0a 0a | stomization,..Up:.Setup.Tuning.. |
| 285040 | 32 2e 35 2e 32 20 4d 75 6c 74 69 70 6c 65 20 4c 69 73 70 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | 2.5.2.Multiple.Lisps.----------- |
| 285060 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 42 79 20 64 65 66 61 75 6c 74 2c 20 74 68 65 20 63 6f 6d 6d 61 | ---------..By.default,.the.comma |
| 285080 | 6e 64 20 e2 80 98 4d 2d 78 20 73 6c 69 6d 65 e2 80 99 20 73 74 61 72 74 73 20 74 68 65 20 70 72 | nd....M-x.slime....starts.the.pr |
| 2850a0 | 6f 67 72 61 6d 20 73 70 65 63 69 66 69 65 64 20 77 69 74 68 0a e2 80 98 69 6e 66 65 72 69 6f 72 | ogram.specified.with....inferior |
| 2850c0 | 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d e2 80 99 2e 20 20 49 66 20 79 6f 75 20 69 6e 76 6f 6b 65 | -lisp-program......If.you.invoke |
| 2850e0 | 20 e2 80 98 4d 2d 78 20 73 6c 69 6d 65 e2 80 99 20 77 69 74 68 20 61 20 70 72 65 66 69 78 0a 61 | ....M-x.slime....with.a.prefix.a |
| 285100 | 72 67 75 6d 65 6e 74 2c 20 45 6d 61 63 73 20 70 72 6f 6d 70 74 73 20 66 6f 72 20 74 68 65 20 70 | rgument,.Emacs.prompts.for.the.p |
| 285120 | 72 6f 67 72 61 6d 20 77 68 69 63 68 20 73 68 6f 75 6c 64 20 62 65 20 73 74 61 72 74 65 64 20 69 | rogram.which.should.be.started.i |
| 285140 | 6e 73 74 65 61 64 2e 0a 49 66 20 79 6f 75 20 6e 65 65 64 20 74 68 61 74 20 66 72 65 71 75 65 6e | nstead..If.you.need.that.frequen |
| 285160 | 74 6c 79 20 6f 72 20 69 66 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 69 6e 76 6f 6c 76 65 73 20 6c | tly.or.if.the.command.involves.l |
| 285180 | 6f 6e 67 20 66 69 6c 65 6e 61 6d 65 73 0a 69 74 e2 80 99 73 20 6d 6f 72 65 20 63 6f 6e 76 65 6e | ong.filenames.it...s.more.conven |
| 2851a0 | 69 65 6e 74 20 74 6f 20 73 65 74 20 74 68 65 20 e2 80 98 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d | ient.to.set.the....slime-lisp-im |
| 2851c0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 e2 80 99 20 76 61 72 69 61 62 6c 65 20 69 6e 0a 79 6f 75 | plementations....variable.in.you |
| 2851e0 | 72 20 e2 80 98 2e 65 6d 61 63 73 e2 80 99 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 20 68 65 72 | r.....emacs......For.example.her |
| 285200 | 65 20 77 65 20 64 65 66 69 6e 65 20 74 77 6f 20 70 72 6f 67 72 61 6d 73 3a 0a 0a 20 20 20 20 20 | e.we.define.two.programs:....... |
| 285220 | 28 73 65 74 71 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 | (setq.slime-lisp-implementations |
| 285240 | 0a 20 20 20 20 20 20 20 20 20 20 20 27 28 28 63 6d 75 63 6c 20 28 22 63 6d 75 63 6c 22 20 22 2d | ............'((cmucl.("cmucl"."- |
| 285260 | 71 75 69 65 74 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 63 6c 20 28 22 2f 6f | quiet"))..............(sbcl.("/o |
| 285280 | 70 74 2f 73 62 63 6c 2f 62 69 6e 2f 73 62 63 6c 22 29 20 3a 63 6f 64 69 6e 67 2d 73 79 73 74 65 | pt/sbcl/bin/sbcl").:coding-syste |
| 2852a0 | 6d 20 75 74 66 2d 38 2d 75 6e 69 78 29 29 29 0a 0a 20 20 20 54 68 69 73 20 76 61 72 69 61 62 6c | m.utf-8-unix))).....This.variabl |
| 2852c0 | 65 20 68 6f 6c 64 73 20 61 20 6c 69 73 74 20 6f 66 20 70 72 6f 67 72 61 6d 73 20 61 6e 64 20 69 | e.holds.a.list.of.programs.and.i |
| 2852e0 | 66 20 79 6f 75 20 69 6e 76 6f 6b 65 20 53 4c 49 4d 45 20 77 69 74 68 20 61 0a 6e 65 67 61 74 69 | f.you.invoke.SLIME.with.a.negati |
| 285300 | 76 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 e2 80 98 4d 2d 2d 20 4d 2d 78 20 73 | ve.prefix.argument,....M--.M-x.s |
| 285320 | 6c 69 6d 65 e2 80 99 2c 20 79 6f 75 20 63 61 6e 20 73 65 6c 65 63 74 20 61 20 70 72 6f 67 72 61 | lime...,.you.can.select.a.progra |
| 285340 | 6d 20 66 72 6f 6d 0a 74 68 61 74 20 6c 69 73 74 2e 20 20 57 68 65 6e 20 63 61 6c 6c 65 64 20 77 | m.from.that.list...When.called.w |
| 285360 | 69 74 68 6f 75 74 20 61 20 70 72 65 66 69 78 2c 20 65 69 74 68 65 72 20 74 68 65 20 6e 61 6d 65 | ithout.a.prefix,.either.the.name |
| 285380 | 20 73 70 65 63 69 66 69 65 64 20 69 6e 0a e2 80 98 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 6c | .specified.in....slime-default-l |
| 2853a0 | 69 73 70 e2 80 99 2c 20 6f 72 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 6f 66 20 74 68 65 | isp...,.or.the.first.item.of.the |
| 2853c0 | 20 6c 69 73 74 20 77 69 6c 6c 20 62 65 20 75 73 65 64 2e 20 20 54 68 65 0a 65 6c 65 6d 65 6e 74 | .list.will.be.used...The.element |
| 2853e0 | 73 20 6f 66 20 74 68 65 20 6c 69 73 74 20 73 68 6f 75 6c 64 20 6c 6f 6f 6b 20 6c 69 6b 65 0a 0a | s.of.the.list.should.look.like.. |
| 285400 | 20 20 20 20 20 28 4e 41 4d 45 20 28 50 52 4f 47 52 41 4d 20 50 52 4f 47 52 41 4d 2d 41 52 47 53 | .....(NAME.(PROGRAM.PROGRAM-ARGS |
| 285420 | 2e 2e 2e 29 20 26 6b 65 79 20 43 4f 44 49 4e 47 2d 53 59 53 54 45 4d 20 49 4e 49 54 20 49 4e 49 | ...).&key.CODING-SYSTEM.INIT.INI |
| 285440 | 54 2d 46 55 4e 43 54 49 4f 4e 20 45 4e 56 29 0a 0a e2 80 98 4e 41 4d 45 e2 80 99 0a 20 20 20 20 | T-FUNCTION.ENV).....NAME........ |
| 285460 | 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 69 64 65 6e | .is.a.symbol.and.is.used.to.iden |
| 285480 | 74 69 66 79 20 74 68 65 20 70 72 6f 67 72 61 6d 2e 0a e2 80 98 50 52 4f 47 52 41 4d e2 80 99 0a | tify.the.program.....PROGRAM.... |
| 2854a0 | 20 20 20 20 20 69 73 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20 6f 66 20 74 68 65 20 70 72 6f 67 | .....is.the.filename.of.the.prog |
| 2854c0 | 72 61 6d 2e 20 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20 63 61 6e | ram...Note.that.the.filename.can |
| 2854e0 | 20 63 6f 6e 74 61 69 6e 0a 20 20 20 20 20 73 70 61 63 65 73 2e 0a e2 80 98 50 52 4f 47 52 41 4d | .contain......spaces.....PROGRAM |
| 285500 | 2d 41 52 47 53 e2 80 99 0a 20 20 20 20 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6d 6d 61 | -ARGS.........is.a.list.of.comma |
| 285520 | 6e 64 20 6c 69 6e 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a e2 80 98 43 4f 44 49 4e 47 2d 53 59 53 | nd.line.arguments.....CODING-SYS |
| 285540 | 54 45 4d e2 80 99 0a 20 20 20 20 20 74 68 65 20 63 6f 64 69 6e 67 20 73 79 73 74 65 6d 20 66 6f | TEM.........the.coding.system.fo |
| 285560 | 72 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 20 28 2a 6e 6f 74 65 0a 20 20 20 20 20 73 | r.the.connection...(*note......s |
| 285580 | 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 3a 3a 29 78 0a e2 80 98 49 4e | lime-net-coding-system::)x....IN |
| 2855a0 | 49 54 e2 80 99 0a 20 20 20 20 20 73 68 6f 75 6c 64 20 62 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 | IT.........should.be.a.function. |
| 2855c0 | 77 68 69 63 68 20 74 61 6b 65 73 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 3a 20 61 20 66 69 6c | which.takes.two.arguments:.a.fil |
| 2855e0 | 65 6e 61 6d 65 20 61 6e 64 20 61 0a 20 20 20 20 20 63 68 61 72 61 63 74 65 72 20 65 6e 63 6f 64 | ename.and.a......character.encod |
| 285600 | 69 6e 67 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e | ing...The.function.should.return |
| 285620 | 20 61 20 4c 69 73 70 20 65 78 70 72 65 73 73 69 6f 6e 0a 20 20 20 20 20 61 73 20 61 20 73 74 72 | .a.Lisp.expression......as.a.str |
| 285640 | 69 6e 67 20 77 68 69 63 68 20 69 6e 73 74 72 75 63 74 73 20 4c 69 73 70 20 74 6f 20 73 74 61 72 | ing.which.instructs.Lisp.to.star |
| 285660 | 74 20 74 68 65 20 53 77 61 6e 6b 20 73 65 72 76 65 72 20 61 6e 64 20 74 6f 0a 20 20 20 20 20 77 | t.the.Swank.server.and.to......w |
| 285680 | 72 69 74 65 20 74 68 65 20 70 6f 72 74 20 6e 75 6d 62 65 72 20 74 6f 20 74 68 65 20 66 69 6c 65 | rite.the.port.number.to.the.file |
| 2856a0 | 2e 20 20 41 74 20 73 74 61 72 74 75 70 2c 20 53 4c 49 4d 45 20 73 74 61 72 74 73 20 74 68 65 0a | ...At.startup,.SLIME.starts.the. |
| 2856c0 | 20 20 20 20 20 4c 69 73 70 20 70 72 6f 63 65 73 73 20 61 6e 64 20 73 65 6e 64 73 20 74 68 65 20 | .....Lisp.process.and.sends.the. |
| 2856e0 | 72 65 73 75 6c 74 20 6f 66 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 4c 69 73 70 e2 | result.of.this.function.to.Lisp. |
| 285700 | 80 99 73 0a 20 20 20 20 20 73 74 61 6e 64 61 72 64 20 69 6e 70 75 74 2e 20 20 41 73 20 64 65 66 | ..s......standard.input...As.def |
| 285720 | 61 75 6c 74 2c 20 e2 80 98 73 6c 69 6d 65 2d 69 6e 69 74 2d 63 6f 6d 6d 61 6e 64 e2 80 99 20 69 | ault,....slime-init-command....i |
| 285740 | 73 20 75 73 65 64 2e 20 20 41 6e 0a 20 20 20 20 20 65 78 61 6d 70 6c 65 20 69 73 20 73 68 6f 77 | s.used...An......example.is.show |
| 285760 | 6e 20 69 6e 20 2a 6e 6f 74 65 20 4c 6f 61 64 69 6e 67 20 53 77 61 6e 6b 20 66 61 73 74 65 72 3a | n.in.*note.Loading.Swank.faster: |
| 285780 | 20 69 6e 69 74 2d 65 78 61 6d 70 6c 65 2e 0a e2 80 98 49 4e 49 54 2d 46 55 4e 43 54 49 4f 4e e2 | .init-example.....INIT-FUNCTION. |
| 2857a0 | 80 99 0a 20 20 20 20 20 73 68 6f 75 6c 64 20 62 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 | ........should.be.a.function.whi |
| 2857c0 | 63 68 20 74 61 6b 65 73 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2e 20 20 49 74 20 69 73 20 63 61 | ch.takes.no.arguments...It.is.ca |
| 2857e0 | 6c 6c 65 64 20 61 66 74 65 72 0a 20 20 20 20 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 | lled.after......the.connection.i |
| 285800 | 73 20 65 73 74 61 62 6c 69 73 68 65 64 2e 20 20 28 53 65 65 20 61 6c 73 6f 20 2a 6e 6f 74 65 0a | s.established...(See.also.*note. |
| 285820 | 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 3a 3a 2e 29 0a e2 80 | .....slime-connected-hook::.)... |
| 285840 | 98 45 4e 56 e2 80 99 0a 20 20 20 20 20 73 70 65 63 69 66 69 65 73 20 61 20 6c 69 73 74 20 6f 66 | .ENV.........specifies.a.list.of |
| 285860 | 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 73 20 66 6f 72 20 74 68 65 20 73 | .environment.variables.for.the.s |
| 285880 | 75 62 70 72 6f 63 65 73 73 2e 20 20 45 2e 67 2e 0a 20 20 20 20 20 20 20 20 20 20 28 73 62 63 6c | ubprocess...E.g............(sbcl |
| 2858a0 | 2d 63 76 73 20 28 22 2f 68 6f 6d 65 2f 6d 65 2f 73 62 63 6c 2d 63 76 73 2f 73 72 63 2f 72 75 6e | -cvs.("/home/me/sbcl-cvs/src/run |
| 2858c0 | 74 69 6d 65 2f 73 62 63 6c 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | time/sbcl"...................... |
| 2858e0 | 22 2d 2d 63 6f 72 65 22 20 22 2f 68 6f 6d 65 2f 6d 65 2f 73 62 63 6c 2d 63 76 73 2f 6f 75 74 70 | "--core"."/home/me/sbcl-cvs/outp |
| 285900 | 75 74 2f 73 62 63 6c 2e 63 6f 72 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ut/sbcl.core").................. |
| 285920 | 20 20 20 3a 65 6e 76 20 28 22 53 42 43 4c 5f 48 4f 4d 45 3d 2f 68 6f 6d 65 2f 6d 65 2f 73 62 63 | ...:env.("SBCL_HOME=/home/me/sbc |
| 285940 | 6c 2d 63 76 73 2f 63 6f 6e 74 72 69 62 2f 22 29 29 0a 20 20 20 20 20 69 6e 69 74 69 61 6c 69 7a | l-cvs/contrib/"))......initializ |
| 285960 | 65 73 20 e2 80 98 53 42 43 4c 5f 48 4f 4d 45 e2 80 99 20 69 6e 20 74 68 65 20 73 75 62 70 72 6f | es....SBCL_HOME....in.the.subpro |
| 285980 | 63 65 73 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 | cess.....File:.docFDBrww.info,.. |
| 2859a0 | 4e 6f 64 65 3a 20 4c 6f 61 64 69 6e 67 20 53 77 61 6e 6b 20 66 61 73 74 65 72 2c 20 20 50 72 65 | Node:.Loading.Swank.faster,..Pre |
| 2859c0 | 76 3a 20 4d 75 6c 74 69 70 6c 65 20 4c 69 73 70 73 2c 20 20 55 70 3a 20 53 65 74 75 70 20 54 75 | v:.Multiple.Lisps,..Up:.Setup.Tu |
| 2859e0 | 6e 69 6e 67 0a 0a 32 2e 35 2e 33 20 4c 6f 61 64 69 6e 67 20 53 77 61 6e 6b 20 66 61 73 74 65 72 | ning..2.5.3.Loading.Swank.faster |
| 285a00 | 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 46 6f 72 | .--------------------------..For |
| 285a20 | 20 53 42 43 4c 2c 20 77 65 20 72 65 63 6f 6d 6d 65 6e 64 20 74 68 61 74 20 79 6f 75 20 63 72 65 | .SBCL,.we.recommend.that.you.cre |
| 285a40 | 61 74 65 20 61 20 63 75 73 74 6f 6d 20 63 6f 72 65 20 66 69 6c 65 20 77 69 74 68 20 73 6f 63 6b | ate.a.custom.core.file.with.sock |
| 285a60 | 65 74 0a 73 75 70 70 6f 72 74 20 61 6e 64 20 50 4f 53 49 58 20 62 69 6e 64 69 6e 67 73 20 69 6e | et.support.and.POSIX.bindings.in |
| 285a80 | 63 6c 75 64 65 64 20 62 65 63 61 75 73 65 20 74 68 6f 73 65 20 6d 6f 64 75 6c 65 73 20 74 61 6b | cluded.because.those.modules.tak |
| 285aa0 | 65 20 74 68 65 20 6d 6f 73 74 0a 74 69 6d 65 20 74 6f 20 6c 6f 61 64 2e 20 20 54 6f 20 63 72 65 | e.the.most.time.to.load...To.cre |
| 285ac0 | 61 74 65 20 73 75 63 68 20 61 20 63 6f 72 65 2c 20 65 78 65 63 75 74 65 20 74 68 65 20 66 6f 6c | ate.such.a.core,.execute.the.fol |
| 285ae0 | 6c 6f 77 69 6e 67 20 73 74 65 70 73 3a 0a 0a 20 20 20 20 20 73 68 65 6c 6c 24 20 73 62 63 6c 0a | lowing.steps:.......shell$.sbcl. |
| 285b00 | 20 20 20 20 20 2a 20 28 6d 61 70 63 20 27 72 65 71 75 69 72 65 20 27 28 73 62 2d 62 73 64 2d 73 | .....*.(mapc.'require.'(sb-bsd-s |
| 285b20 | 6f 63 6b 65 74 73 20 73 62 2d 70 6f 73 69 78 20 73 62 2d 69 6e 74 72 6f 73 70 65 63 74 20 73 62 | ockets.sb-posix.sb-introspect.sb |
| 285b40 | 2d 63 6c 74 6c 32 20 61 73 64 66 29 29 0a 20 20 20 20 20 2a 20 28 73 61 76 65 2d 6c 69 73 70 2d | -cltl2.asdf))......*.(save-lisp- |
| 285b60 | 61 6e 64 2d 64 69 65 20 22 73 62 63 6c 2e 63 6f 72 65 2d 66 6f 72 2d 73 6c 69 6d 65 22 29 0a 0a | and-die."sbcl.core-for-slime").. |
| 285b80 | 20 20 20 41 66 74 65 72 20 74 68 61 74 2c 20 61 64 64 20 73 6f 6d 65 74 68 69 6e 67 20 6c 69 6b | ...After.that,.add.something.lik |
| 285ba0 | 65 20 74 68 69 73 20 74 6f 20 79 6f 75 72 20 e2 80 98 2e 65 6d 61 63 73 e2 80 99 3a 0a 0a 20 20 | e.this.to.your.....emacs...:.... |
| 285bc0 | 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 | ...(setq.slime-lisp-implementati |
| 285be0 | 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 27 28 28 73 62 63 6c 20 28 22 73 62 63 6c 22 20 22 | ons............'((sbcl.("sbcl"." |
| 285c00 | 2d 2d 63 6f 72 65 22 20 22 73 62 63 6c 2e 63 6f 72 65 2d 66 6f 72 2d 73 6c 69 6d 65 22 29 29 29 | --core"."sbcl.core-for-slime"))) |
| 285c20 | 29 0a 0a 20 20 20 46 6f 72 20 6d 61 78 69 6d 75 6d 20 73 74 61 72 74 75 70 20 73 70 65 65 64 20 | ).....For.maximum.startup.speed. |
| 285c40 | 79 6f 75 20 63 61 6e 20 69 6e 63 6c 75 64 65 20 74 68 65 20 53 77 61 6e 6b 20 73 65 72 76 65 72 | you.can.include.the.Swank.server |
| 285c60 | 20 64 69 72 65 63 74 6c 79 0a 69 6e 20 61 20 63 6f 72 65 20 66 69 6c 65 2e 20 20 54 68 65 20 64 | .directly.in.a.core.file...The.d |
| 285c80 | 69 73 61 64 76 61 6e 74 61 67 65 20 6f 66 20 74 68 69 73 20 61 70 70 72 6f 61 63 68 20 69 73 20 | isadvantage.of.this.approach.is. |
| 285ca0 | 74 68 61 74 20 74 68 65 20 73 65 74 75 70 20 69 73 0a 61 20 62 69 74 20 6d 6f 72 65 20 69 6e 76 | that.the.setup.is.a.bit.more.inv |
| 285cc0 | 6f 6c 76 65 64 20 61 6e 64 20 74 68 61 74 20 79 6f 75 20 6e 65 65 64 20 74 6f 20 63 72 65 61 74 | olved.and.that.you.need.to.creat |
| 285ce0 | 65 20 61 20 6e 65 77 20 63 6f 72 65 20 66 69 6c 65 20 77 68 65 6e 20 79 6f 75 0a 77 61 6e 74 20 | e.a.new.core.file.when.you.want. |
| 285d00 | 74 6f 20 75 70 64 61 74 65 20 53 4c 49 4d 45 20 6f 72 20 53 42 43 4c 2e 20 20 54 68 65 20 73 74 | to.update.SLIME.or.SBCL...The.st |
| 285d20 | 65 70 73 20 74 6f 20 65 78 65 63 75 74 65 20 61 72 65 3a 0a 0a 20 20 20 20 20 73 68 65 6c 6c 24 | eps.to.execute.are:.......shell$ |
| 285d40 | 20 73 62 63 6c 0a 20 20 20 20 20 2a 20 28 6c 6f 61 64 20 22 2e 2e 2e 2f 73 6c 69 6d 65 2f 73 77 | .sbcl......*.(load.".../slime/sw |
| 285d60 | 61 6e 6b 2d 6c 6f 61 64 65 72 2e 6c 69 73 70 22 29 0a 20 20 20 20 20 2a 20 28 73 77 61 6e 6b 2d | ank-loader.lisp")......*.(swank- |
| 285d80 | 6c 6f 61 64 65 72 3a 64 75 6d 70 2d 69 6d 61 67 65 20 22 73 62 63 6c 2e 63 6f 72 65 2d 77 69 74 | loader:dump-image."sbcl.core-wit |
| 285da0 | 68 2d 73 77 61 6e 6b 22 29 0a 0a 54 68 65 6e 20 61 64 64 20 74 68 69 73 20 74 6f 20 79 6f 75 72 | h-swank")..Then.add.this.to.your |
| 285dc0 | 20 e2 80 98 2e 65 6d 61 63 73 e2 80 99 3a 0a 0a 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 | .....emacs...:.......(setq.slime |
| 285de0 | 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 | -lisp-implementations........... |
| 285e00 | 20 27 28 28 73 62 63 6c 20 28 22 73 62 63 6c 22 20 22 2d 2d 63 6f 72 65 22 20 22 73 62 63 6c 2e | .'((sbcl.("sbcl"."--core"."sbcl. |
| 285e20 | 63 6f 72 65 2d 77 69 74 68 2d 73 77 61 6e 6b 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | core-with-swank")............... |
| 285e40 | 20 20 20 20 20 3a 69 6e 69 74 20 28 6c 61 6d 62 64 61 20 28 70 6f 72 74 2d 66 69 6c 65 20 5f 29 | .....:init.(lambda.(port-file._) |
| 285e60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 | ............................(for |
| 285e80 | 6d 61 74 20 22 28 73 77 61 6e 6b 3a 73 74 61 72 74 2d 73 65 72 76 65 72 20 25 53 29 5c 6e 22 20 | mat."(swank:start-server.%S)\n". |
| 285ea0 | 70 6f 72 74 2d 66 69 6c 65 29 29 29 29 29 0a 0a 53 69 6d 69 6c 61 72 20 73 65 74 75 70 73 20 73 | port-file)))))..Similar.setups.s |
| 285ec0 | 68 6f 75 6c 64 20 61 6c 73 6f 20 77 6f 72 6b 20 66 6f 72 20 6f 74 68 65 72 20 4c 69 73 70 20 69 | hould.also.work.for.other.Lisp.i |
| 285ee0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 | mplementations.....File:.docFDBr |
| 285f00 | 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 2c 20 20 4e 65 78 | ww.info,..Node:.SLIME.mode,..Nex |
| 285f20 | 74 3a 20 44 65 62 75 67 67 65 72 2c 20 20 50 72 65 76 3a 20 47 65 74 74 69 6e 67 20 73 74 61 72 | t:.Debugger,..Prev:.Getting.star |
| 285f40 | 74 65 64 2c 20 20 55 70 3a 20 54 6f 70 0a 0a 33 20 55 73 69 6e 67 20 53 6c 69 6d 65 20 6d 6f 64 | ted,..Up:.Top..3.Using.Slime.mod |
| 285f60 | 65 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 53 4c 49 4d 45 e2 80 99 73 20 | e.******************..SLIME...s. |
| 285f80 | 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 20 76 69 61 20 e2 80 98 73 6c 69 | commands.are.provided.via....sli |
| 285fa0 | 6d 65 2d 6d 6f 64 65 e2 80 99 2c 20 61 20 6d 69 6e 6f 72 2d 6d 6f 64 65 20 75 73 65 64 20 69 6e | me-mode...,.a.minor-mode.used.in |
| 285fc0 | 0a 63 6f 6e 6a 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 45 6d 61 63 73 e2 80 99 73 20 e2 80 98 6c | .conjunction.with.Emacs...s....l |
| 285fe0 | 69 73 70 2d 6d 6f 64 65 e2 80 99 2e 20 20 54 68 69 73 20 63 68 61 70 74 65 72 20 64 65 73 63 72 | isp-mode......This.chapter.descr |
| 286000 | 69 62 65 73 20 74 68 65 0a e2 80 98 73 6c 69 6d 65 2d 6d 6f 64 65 e2 80 99 20 61 6e 64 20 69 74 | ibes.the....slime-mode....and.it |
| 286020 | 73 20 72 65 6c 61 74 69 76 65 73 2e 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 55 73 65 72 2d 69 6e | s.relatives...*.Menu:..*.User-in |
| 286040 | 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 3a 3a 0a 2a 20 45 76 61 6c 75 61 74 69 | terface.conventions::.*.Evaluati |
| 286060 | 6f 6e 3a 3a 0a 2a 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 3a 3a 0a 2a 20 43 6f 6d 70 6c 65 74 69 6f | on::.*.Compilation::.*.Completio |
| 286080 | 6e 3a 3a 0a 2a 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 3a 3a 0a 2a 20 44 6f | n::.*.Finding.definitions::.*.Do |
| 2860a0 | 63 75 6d 65 6e 74 61 74 69 6f 6e 3a 3a 0a 2a 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 3a | cumentation::.*.Cross-reference: |
| 2860c0 | 3a 0a 2a 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 3a 3a 0a 2a 20 44 69 73 61 73 73 65 6d | :.*.Macro-expansion::.*.Disassem |
| 2860e0 | 62 6c 79 3a 3a 0a 2a 20 52 65 63 6f 76 65 72 79 3a 3a 0a 2a 20 49 6e 73 70 65 63 74 6f 72 3a 3a | bly::.*.Recovery::.*.Inspector:: |
| 286100 | 0a 2a 20 50 72 6f 66 69 6c 69 6e 67 3a 3a 0a 2a 20 4f 74 68 65 72 3a 3a 0a 2a 20 53 65 6d 61 6e | .*.Profiling::.*.Other::.*.Seman |
| 286120 | 74 69 63 20 69 6e 64 65 6e 74 61 74 69 6f 6e 3a 3a 0a 2a 20 52 65 61 64 65 72 20 63 6f 6e 64 69 | tic.indentation::.*.Reader.condi |
| 286140 | 74 69 6f 6e 61 6c 73 3a 3a 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 | tionals::....File:.docFDBrww.inf |
| 286160 | 6f 2c 20 20 4e 6f 64 65 3a 20 55 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 | o,..Node:.User-interface.convent |
| 286180 | 69 6f 6e 73 2c 20 20 4e 65 78 74 3a 20 45 76 61 6c 75 61 74 69 6f 6e 2c 20 20 55 70 3a 20 53 4c | ions,..Next:.Evaluation,..Up:.SL |
| 2861a0 | 49 4d 45 20 6d 6f 64 65 0a 0a 33 2e 31 20 55 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e | IME.mode..3.1.User-interface.con |
| 2861c0 | 76 65 6e 74 69 6f 6e 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ventions.======================= |
| 2861e0 | 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 6f 20 75 73 65 20 53 4c 49 4d 45 20 63 6f 6d 66 6f 72 74 61 62 6c | =======..To.use.SLIME.comfortabl |
| 286200 | 79 20 69 74 20 69 73 20 69 6d 70 6f 72 74 61 6e 74 20 74 6f 20 75 6e 64 65 72 73 74 61 6e 64 20 | y.it.is.important.to.understand. |
| 286220 | 61 20 66 65 77 20 e2 80 9c 67 6c 6f 62 61 6c e2 80 9d 0a 75 73 65 72 2d 69 6e 74 65 72 66 61 63 | a.few....global....user-interfac |
| 286240 | 65 20 63 68 61 72 61 63 74 65 72 69 73 74 69 63 73 2e 20 20 54 68 65 20 6d 6f 73 74 20 69 6d 70 | e.characteristics...The.most.imp |
| 286260 | 6f 72 74 61 6e 74 20 70 72 69 6e 63 69 70 6c 65 73 20 61 72 65 0a 64 65 73 63 72 69 62 65 64 20 | ortant.principles.are.described. |
| 286280 | 69 6e 20 74 68 69 73 20 73 65 63 74 69 6f 6e 2e 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 54 65 6d | in.this.section...*.Menu:..*.Tem |
| 2862a0 | 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 3a 3a 0a 2a 20 49 6e 66 65 72 69 6f 72 2d 6c 69 73 70 | porary.buffers::.*.Inferior-lisp |
| 2862c0 | 3a 3a 0a 2a 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 3a 3a 0a 2a 20 4b 65 79 20 62 69 6e 64 | ::.*.Multithreading::.*.Key.bind |
| 2862e0 | 69 6e 67 73 3a 3a 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 | ings::....File:.docFDBrww.info,. |
| 286300 | 20 4e 6f 64 65 3a 20 54 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 2c 20 20 4e 65 78 74 3a | .Node:.Temporary.buffers,..Next: |
| 286320 | 20 49 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2c 20 20 55 70 3a 20 55 73 65 72 2d 69 6e 74 65 72 66 | .Inferior-lisp,..Up:.User-interf |
| 286340 | 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 0a 0a 33 2e 31 2e 31 20 54 65 6d 70 6f 72 61 72 79 | ace.conventions..3.1.1.Temporary |
| 286360 | 20 62 75 66 66 65 72 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | .buffers.----------------------- |
| 286380 | 0a 0a 53 6f 6d 65 20 53 4c 49 4d 45 20 63 6f 6d 6d 61 6e 64 73 20 63 72 65 61 74 65 20 74 65 6d | ..Some.SLIME.commands.create.tem |
| 2863a0 | 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 20 74 6f 20 64 69 73 70 6c 61 79 20 74 68 65 69 72 20 | porary.buffers.to.display.their. |
| 2863c0 | 72 65 73 75 6c 74 73 2e 0a 41 6c 74 68 6f 75 67 68 20 74 68 65 73 65 20 62 75 66 66 65 72 73 20 | results..Although.these.buffers. |
| 2863e0 | 75 73 75 61 6c 6c 79 20 68 61 76 65 20 74 68 65 69 72 20 6f 77 6e 20 73 70 65 63 69 61 6c 2d 70 | usually.have.their.own.special-p |
| 286400 | 75 72 70 6f 73 65 0a 6d 61 6a 6f 72 2d 6d 6f 64 65 73 2c 20 63 65 72 74 61 69 6e 20 63 6f 6e 76 | urpose.major-modes,.certain.conv |
| 286420 | 65 6e 74 69 6f 6e 73 20 61 72 65 20 6f 62 73 65 72 76 65 64 20 74 68 72 6f 75 67 68 6f 75 74 2e | entions.are.observed.throughout. |
| 286440 | 0a 0a 20 20 20 54 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 20 63 61 6e 20 62 65 20 64 69 | .....Temporary.buffers.can.be.di |
| 286460 | 73 6d 69 73 73 65 64 20 62 79 20 70 72 65 73 73 69 6e 67 20 e2 80 98 71 e2 80 99 2e 20 20 54 68 | smissed.by.pressing....q......Th |
| 286480 | 69 73 20 6b 69 6c 6c 73 20 74 68 65 0a 62 75 66 66 65 72 20 61 6e 64 20 72 65 73 74 6f 72 65 73 | is.kills.the.buffer.and.restores |
| 2864a0 | 20 74 68 65 20 77 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 61 73 20 69 74 20 | .the.window.configuration.as.it. |
| 2864c0 | 77 61 73 20 62 65 66 6f 72 65 20 74 68 65 20 62 75 66 66 65 72 0a 77 61 73 20 64 69 73 70 6c 61 | was.before.the.buffer.was.displa |
| 2864e0 | 79 65 64 2e 20 20 54 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 20 63 61 6e 20 61 6c 73 6f | yed...Temporary.buffers.can.also |
| 286500 | 20 62 65 20 6b 69 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 75 73 75 61 6c 0a 63 6f 6d 6d 61 6e | .be.killed.with.the.usual.comman |
| 286520 | 64 73 20 6c 69 6b 65 20 e2 80 98 6b 69 6c 6c 2d 62 75 66 66 65 72 e2 80 99 2c 20 69 6e 20 77 68 | ds.like....kill-buffer...,.in.wh |
| 286540 | 69 63 68 20 63 61 73 65 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 77 69 6e 64 6f 77 0a 63 6f 6e | ich.case.the.previous.window.con |
| 286560 | 66 69 67 75 72 61 74 69 6f 6e 20 77 6f 6e e2 80 99 74 20 62 65 20 72 65 73 74 6f 72 65 64 2e 0a | figuration.won...t.be.restored.. |
| 286580 | 0a 20 20 20 50 72 65 73 73 69 6e 67 20 e2 80 98 52 45 54 e2 80 99 20 69 73 20 73 75 70 70 6f 73 | ....Pressing....RET....is.suppos |
| 2865a0 | 65 64 20 74 6f 20 e2 80 9c 64 6f 20 74 68 65 20 6d 6f 73 74 20 6f 62 76 69 6f 75 73 20 75 73 65 | ed.to....do.the.most.obvious.use |
| 2865c0 | 66 75 6c 20 74 68 69 6e 67 2e e2 80 9d 20 46 6f 72 0a 69 6e 73 74 61 6e 63 65 2c 20 69 6e 20 61 | ful.thing.....For.instance,.in.a |
| 2865e0 | 6e 20 61 70 72 6f 70 6f 73 20 62 75 66 66 65 72 20 74 68 69 73 20 70 72 69 6e 74 73 20 61 20 66 | n.apropos.buffer.this.prints.a.f |
| 286600 | 75 6c 6c 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 0a 73 79 6d 62 6f 6c 20 61 74 | ull.description.of.the.symbol.at |
| 286620 | 20 70 6f 69 6e 74 2c 20 61 6e 64 20 69 6e 20 61 6e 20 58 52 45 46 20 62 75 66 66 65 72 20 69 74 | .point,.and.in.an.XREF.buffer.it |
| 286640 | 20 64 69 73 70 6c 61 79 73 20 74 68 65 20 73 6f 75 72 63 65 20 63 6f 64 65 20 66 6f 72 0a 74 68 | .displays.the.source.code.for.th |
| 286660 | 65 20 72 65 66 65 72 65 6e 63 65 20 61 74 20 70 6f 69 6e 74 2e 20 20 54 68 69 73 20 63 6f 6e 76 | e.reference.at.point...This.conv |
| 286680 | 65 6e 74 69 6f 6e 20 69 73 20 69 6e 68 65 72 69 74 65 64 20 66 72 6f 6d 20 45 6d 61 63 73 e2 80 | ention.is.inherited.from.Emacs.. |
| 2866a0 | 99 73 20 6f 77 6e 0a 62 75 66 66 65 72 73 20 66 6f 72 20 61 70 72 6f 70 6f 73 20 6c 69 73 74 69 | .s.own.buffers.for.apropos.listi |
| 2866c0 | 6e 67 73 2c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 72 65 73 75 6c 74 73 2c 20 65 74 63 2e 0a 0a | ngs,.compilation.results,.etc... |
| 2866e0 | 20 20 20 54 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 20 63 6f 6e 74 61 69 6e 69 6e 67 20 | ...Temporary.buffers.containing. |
| 286700 | 4c 69 73 70 20 73 79 6d 62 6f 6c 73 20 75 73 65 20 e2 80 98 73 6c 69 6d 65 2d 6d 6f 64 65 e2 80 | Lisp.symbols.use....slime-mode.. |
| 286720 | 99 20 69 6e 0a 61 64 64 69 74 69 6f 6e 20 74 6f 20 61 6e 79 20 73 70 65 63 69 61 6c 20 6d 6f 64 | ..in.addition.to.any.special.mod |
| 286740 | 65 20 6f 66 20 74 68 65 69 72 20 6f 77 6e 2e 20 20 54 68 69 73 20 6d 61 6b 65 73 20 74 68 65 20 | e.of.their.own...This.makes.the. |
| 286760 | 75 73 75 61 6c 20 53 4c 49 4d 45 0a 63 6f 6d 6d 61 6e 64 73 20 61 76 61 69 6c 61 62 6c 65 20 66 | usual.SLIME.commands.available.f |
| 286780 | 6f 72 20 64 65 73 63 72 69 62 69 6e 67 20 73 79 6d 62 6f 6c 73 2c 20 6c 6f 6f 6b 69 6e 67 20 75 | or.describing.symbols,.looking.u |
| 2867a0 | 70 20 66 75 6e 63 74 69 6f 6e 0a 64 65 66 69 6e 69 74 69 6f 6e 73 2c 20 61 6e 64 20 73 6f 20 6f | p.function.definitions,.and.so.o |
| 2867c0 | 6e 2e 0a 0a 20 20 20 49 6e 69 74 69 61 6c 20 66 6f 63 75 73 20 6f 66 20 74 68 6f 73 65 20 e2 80 | n......Initial.focus.of.those... |
| 2867e0 | 9c 64 65 73 63 72 69 70 74 69 6f 6e e2 80 9d 20 62 75 66 66 65 72 73 20 64 65 70 65 6e 64 73 20 | .description....buffers.depends. |
| 286800 | 6f 6e 20 74 68 65 20 76 61 72 69 61 62 6c 65 0a e2 80 98 73 6c 69 6d 65 2d 64 65 73 63 72 69 70 | on.the.variable....slime-descrip |
| 286820 | 74 69 6f 6e 2d 61 75 74 6f 66 6f 63 75 73 e2 80 99 2e 20 20 49 66 20 e2 80 98 6e 69 6c e2 80 99 | tion-autofocus......If....nil... |
| 286840 | 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 2c 20 64 65 73 63 72 69 70 74 69 6f 6e 0a 62 75 66 66 | .(the.default),.description.buff |
| 286860 | 65 72 73 20 64 6f 20 6e 6f 74 20 72 65 63 65 69 76 65 20 66 6f 63 75 73 20 61 75 74 6f 6d 61 74 | ers.do.not.receive.focus.automat |
| 286880 | 69 63 61 6c 6c 79 2c 20 61 6e 64 20 76 69 63 65 20 76 65 72 73 61 2e 0a 0a 1f 0a 46 69 6c 65 3a | ically,.and.vice.versa.....File: |
| 2868a0 | 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 49 6e 66 65 72 69 6f 72 | .docFDBrww.info,..Node:.Inferior |
| 2868c0 | 2d 6c 69 73 70 2c 20 20 4e 65 78 74 3a 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 2c 20 20 50 | -lisp,..Next:.Multithreading,..P |
| 2868e0 | 72 65 76 3a 20 54 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 2c 20 20 55 70 3a 20 55 73 65 | rev:.Temporary.buffers,..Up:.Use |
| 286900 | 72 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 0a 0a 33 2e 31 2e 32 20 e2 | r-interface.conventions..3.1.2.. |
| 286920 | 80 98 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a e2 80 99 20 62 75 66 66 65 72 0a 2d 2d 2d 2d | ..*inferior-lisp*....buffer.---- |
| 286940 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 53 4c 49 4d | --------------------------..SLIM |
| 286960 | 45 20 69 6e 74 65 72 6e 61 6c 6c 79 20 75 73 65 73 20 74 68 65 20 e2 80 98 63 6f 6d 69 6e 74 e2 | E.internally.uses.the....comint. |
| 286980 | 80 99 20 70 61 63 6b 61 67 65 20 74 6f 20 73 74 61 72 74 20 4c 69 73 70 20 70 72 6f 63 65 73 73 | ...package.to.start.Lisp.process |
| 2869a0 | 65 73 2e 0a 54 68 69 73 20 68 61 73 20 61 20 66 65 77 20 75 73 65 72 2d 76 69 73 69 62 6c 65 20 | es..This.has.a.few.user-visible. |
| 2869c0 | 63 6f 6e 73 65 71 75 65 6e 63 65 73 2c 20 73 6f 6d 65 20 67 6f 6f 64 20 61 6e 64 20 73 6f 6d 65 | consequences,.some.good.and.some |
| 2869e0 | 0a 6e 6f 74 2d 73 6f 2d 74 65 72 72 69 62 6c 79 2e 20 20 54 6f 20 61 76 6f 69 64 20 63 6f 6e 66 | .not-so-terribly...To.avoid.conf |
| 286a00 | 75 73 69 6f 6e 20 69 74 20 69 73 20 75 73 65 66 75 6c 20 74 6f 20 75 6e 64 65 72 73 74 61 6e 64 | usion.it.is.useful.to.understand |
| 286a20 | 20 74 68 65 0a 69 6e 74 65 72 61 63 74 69 6f 6e 73 2e 0a 0a 20 20 20 54 68 65 20 62 75 66 66 65 | .the.interactions......The.buffe |
| 286a40 | 72 20 e2 80 98 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a e2 80 99 20 63 6f 6e 74 61 69 6e 73 | r....*inferior-lisp*....contains |
| 286a60 | 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 e2 80 99 73 20 6f 77 6e 0a 74 6f 70 2d 6c 65 | .the.Lisp.process...s.own.top-le |
| 286a80 | 76 65 6c 2e 20 20 54 68 69 73 20 64 69 72 65 63 74 20 61 63 63 65 73 73 20 74 6f 20 4c 69 73 70 | vel...This.direct.access.to.Lisp |
| 286aa0 | 20 69 73 20 75 73 65 66 75 6c 20 66 6f 72 20 74 72 6f 75 62 6c 65 73 68 6f 6f 74 69 6e 67 2c 0a | .is.useful.for.troubleshooting,. |
| 286ac0 | 61 6e 64 20 73 6f 6d 65 20 64 65 67 72 65 65 20 6f 66 20 53 4c 49 4d 45 20 69 6e 74 65 67 72 61 | and.some.degree.of.SLIME.integra |
| 286ae0 | 74 69 6f 6e 20 69 73 20 61 76 61 69 6c 61 62 6c 65 20 75 73 69 6e 67 20 74 68 65 0a 69 6e 66 65 | tion.is.available.using.the.infe |
| 286b00 | 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2e 20 20 4d 61 6e 79 20 70 65 6f 70 6c 65 20 6c 6f | rior-slime-mode...Many.people.lo |
| 286b20 | 61 64 20 74 68 65 20 62 65 74 74 65 72 20 69 6e 74 65 67 72 61 74 65 64 20 53 4c 49 4d 45 20 52 | ad.the.better.integrated.SLIME.R |
| 286b40 | 45 50 4c 0a 63 6f 6e 74 72 69 62 20 6d 6f 64 75 6c 65 20 28 2a 6e 6f 74 65 20 52 45 50 4c 3a 3a | EPL.contrib.module.(*note.REPL:: |
| 286b60 | 29 20 61 6e 64 20 69 67 6e 6f 72 65 20 74 68 65 20 e2 80 98 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 | ).and.ignore.the....*inferior-li |
| 286b80 | 73 70 2a e2 80 99 20 62 75 66 66 65 72 2e 0a 28 2a 6e 6f 74 65 20 4c 6f 61 64 69 6e 67 20 43 6f | sp*....buffer..(*note.Loading.Co |
| 286ba0 | 6e 74 72 69 62 73 3a 3a 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 68 6f 77 20 | ntribs::.for.information.on.how. |
| 286bc0 | 74 6f 20 65 6e 61 62 6c 65 20 74 68 65 20 52 45 50 4c 2e 29 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f | to.enable.the.REPL.)....File:.do |
| 286be0 | 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 4d 75 6c 74 69 74 68 72 65 61 64 | cFDBrww.info,..Node:.Multithread |
| 286c00 | 69 6e 67 2c 20 20 4e 65 78 74 3a 20 4b 65 79 20 62 69 6e 64 69 6e 67 73 2c 20 20 50 72 65 76 3a | ing,..Next:.Key.bindings,..Prev: |
| 286c20 | 20 49 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2c 20 20 55 70 3a 20 55 73 65 72 2d 69 6e 74 65 72 66 | .Inferior-lisp,..Up:.User-interf |
| 286c40 | 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 0a 0a 33 2e 31 2e 33 20 4d 75 6c 74 69 74 68 72 65 | ace.conventions..3.1.3.Multithre |
| 286c60 | 61 64 69 6e 67 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 49 66 20 74 | ading.--------------------..If.t |
| 286c80 | 68 65 20 4c 69 73 70 20 73 79 73 74 65 6d 20 73 75 70 70 6f 72 74 73 20 6d 75 6c 74 69 74 68 72 | he.Lisp.system.supports.multithr |
| 286ca0 | 65 61 64 69 6e 67 2c 20 53 4c 49 4d 45 20 73 70 61 77 6e 73 20 61 20 6e 65 77 20 74 68 72 65 61 | eading,.SLIME.spawns.a.new.threa |
| 286cc0 | 64 0a 66 6f 72 20 65 61 63 68 20 72 65 71 75 65 73 74 2c 20 65 2e 67 2e 2c 20 e2 80 98 43 2d 78 | d.for.each.request,.e.g.,....C-x |
| 286ce0 | 20 43 2d 65 e2 80 99 20 63 72 65 61 74 65 73 20 61 20 6e 65 77 20 74 68 72 65 61 64 20 74 6f 20 | .C-e....creates.a.new.thread.to. |
| 286d00 | 65 76 61 6c 75 61 74 65 20 74 68 65 0a 65 78 70 72 65 73 73 69 6f 6e 2e 20 20 41 6e 20 65 78 63 | evaluate.the.expression...An.exc |
| 286d20 | 65 70 74 69 6f 6e 20 74 6f 20 74 68 69 73 20 72 75 6c 65 20 61 72 65 20 72 65 71 75 65 73 74 73 | eption.to.this.rule.are.requests |
| 286d40 | 20 66 72 6f 6d 20 74 68 65 20 52 45 50 4c 3a 20 61 6c 6c 0a 63 6f 6d 6d 61 6e 64 73 20 65 6e 74 | .from.the.REPL:.all.commands.ent |
| 286d60 | 65 72 65 64 20 69 6e 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 20 61 72 65 20 65 76 61 6c | ered.in.the.REPL.buffer.are.eval |
| 286d80 | 75 61 74 65 64 20 69 6e 20 61 20 64 65 64 69 63 61 74 65 64 20 52 45 50 4c 0a 74 68 72 65 61 64 | uated.in.a.dedicated.REPL.thread |
| 286da0 | 2e 0a 0a 20 20 20 53 6f 6d 65 20 63 6f 6d 70 6c 69 63 61 74 69 6f 6e 73 20 61 72 69 73 65 20 77 | ......Some.complications.arise.w |
| 286dc0 | 69 74 68 20 6d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 20 61 6e 64 20 73 70 65 63 69 61 6c 20 76 | ith.multithreading.and.special.v |
| 286de0 | 61 72 69 61 62 6c 65 73 2e 0a 4e 6f 6e 2d 67 6c 6f 62 61 6c 20 73 70 65 63 69 61 6c 20 62 69 6e | ariables..Non-global.special.bin |
| 286e00 | 64 69 6e 67 73 20 61 72 65 20 74 68 72 65 61 64 2d 6c 6f 63 61 6c 2c 20 65 2e 67 2e 2c 20 63 68 | dings.are.thread-local,.e.g.,.ch |
| 286e20 | 61 6e 67 69 6e 67 20 74 68 65 20 76 61 6c 75 65 0a 6f 66 20 61 20 6c 65 74 20 62 6f 75 6e 64 20 | anging.the.value.of.a.let.bound. |
| 286e40 | 73 70 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 20 69 6e 20 6f 6e 65 20 74 68 72 65 61 64 20 68 | special.variable.in.one.thread.h |
| 286e60 | 61 73 20 6e 6f 20 65 66 66 65 63 74 20 6f 6e 20 74 68 65 0a 62 69 6e 64 69 6e 67 20 6f 66 20 74 | as.no.effect.on.the.binding.of.t |
| 286e80 | 68 65 20 76 61 72 69 61 62 6c 65 73 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 6e 61 6d 65 20 | he.variables.with.the.same.name. |
| 286ea0 | 69 6e 20 6f 74 68 65 72 20 74 68 72 65 61 64 73 2e 20 20 54 68 69 73 0a 6d 61 6b 65 73 20 69 74 | in.other.threads...This.makes.it |
| 286ec0 | 20 73 6f 6d 65 74 69 6d 65 73 20 64 69 66 66 69 63 75 6c 74 20 74 6f 20 63 68 61 6e 67 65 20 74 | .sometimes.difficult.to.change.t |
| 286ee0 | 68 65 20 70 72 69 6e 74 65 72 20 6f 72 20 72 65 61 64 65 72 20 62 65 68 61 76 69 6f 75 72 0a 66 | he.printer.or.reader.behaviour.f |
| 286f00 | 6f 72 20 6e 65 77 20 74 68 72 65 61 64 73 2e 20 20 54 68 65 20 76 61 72 69 61 62 6c 65 20 e2 80 | or.new.threads...The.variable... |
| 286f20 | 98 73 77 61 6e 6b 3a 2a 64 65 66 61 75 6c 74 2d 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 2d 62 69 | .swank:*default-worker-thread-bi |
| 286f40 | 6e 64 69 6e 67 73 2a e2 80 99 0a 77 61 73 20 69 6e 74 72 6f 64 75 63 65 64 20 66 6f 72 20 73 75 | ndings*....was.introduced.for.su |
| 286f60 | 63 68 20 73 69 74 75 61 74 69 6f 6e 73 3a 20 69 6e 73 74 65 61 64 20 6f 66 20 6d 6f 64 69 66 79 | ch.situations:.instead.of.modify |
| 286f80 | 69 6e 67 20 74 68 65 20 67 6c 6f 62 61 6c 0a 76 61 6c 75 65 20 6f 66 20 61 20 76 61 72 69 61 62 | ing.the.global.value.of.a.variab |
| 286fa0 | 6c 65 2c 20 61 64 64 20 61 20 62 69 6e 64 69 6e 67 20 74 68 65 0a e2 80 98 73 77 61 6e 6b 3a 2a | le,.add.a.binding.the....swank:* |
| 286fc0 | 64 65 66 61 75 6c 74 2d 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 2d 62 69 6e 64 69 6e 67 73 2a e2 | default-worker-thread-bindings*. |
| 286fe0 | 80 99 2e 20 20 45 2e 67 2e 2c 20 77 69 74 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 63 6f | .....E.g.,.with.the.following.co |
| 287000 | 64 65 2c 20 6e 65 77 20 74 68 72 65 61 64 73 20 77 69 6c 6c 20 72 65 61 64 20 66 6c 6f 61 74 69 | de,.new.threads.will.read.floati |
| 287020 | 6e 67 20 70 6f 69 6e 74 20 76 61 6c 75 65 73 20 61 73 20 64 6f 75 62 6c 65 73 20 62 79 20 64 65 | ng.point.values.as.doubles.by.de |
| 287040 | 66 61 75 6c 74 3a 0a 0a 20 20 20 20 20 28 70 75 73 68 20 27 28 2a 72 65 61 64 2d 64 65 66 61 75 | fault:.......(push.'(*read-defau |
| 287060 | 6c 74 2d 66 6c 6f 61 74 2d 66 6f 72 6d 61 74 2a 20 2e 20 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 29 | lt-float-format*...double-float) |
| 287080 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 77 61 6e 6b 3a 2a 64 65 66 61 75 6c 74 2d 77 6f 72 6b | .............swank:*default-work |
| 2870a0 | 65 72 2d 74 68 72 65 61 64 2d 62 69 6e 64 69 6e 67 73 2a 29 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 | er-thread-bindings*).....File:.d |
| 2870c0 | 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 4b 65 79 20 62 69 6e 64 69 6e | ocFDBrww.info,..Node:.Key.bindin |
| 2870e0 | 67 73 2c 20 20 50 72 65 76 3a 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 2c 20 20 55 70 3a 20 | gs,..Prev:.Multithreading,..Up:. |
| 287100 | 55 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 0a 0a 33 2e 31 2e | User-interface.conventions..3.1. |
| 287120 | 34 20 4b 65 79 20 62 69 6e 64 69 6e 67 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | 4.Key.bindings.----------------- |
| 287140 | 2d 0a 0a 49 6e 20 67 65 6e 65 72 61 6c 20 77 65 20 74 72 79 20 74 6f 20 6d 61 6b 65 20 6f 75 72 | -..In.general.we.try.to.make.our |
| 287160 | 20 6b 65 79 20 62 69 6e 64 69 6e 67 73 20 66 69 74 20 77 69 74 68 20 74 68 65 20 6f 76 65 72 61 | .key.bindings.fit.with.the.overa |
| 287180 | 6c 6c 20 45 6d 61 63 73 0a 73 74 79 6c 65 2e 20 20 57 65 20 61 6c 73 6f 20 68 61 76 65 20 74 68 | ll.Emacs.style...We.also.have.th |
| 2871a0 | 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 6f 6d 65 77 68 61 74 20 75 6e 75 73 75 61 6c 20 63 6f 6e | e.following.somewhat.unusual.con |
| 2871c0 | 76 65 6e 74 69 6f 6e 20 6f 66 20 6f 75 72 0a 6f 77 6e 3a 20 77 68 65 6e 20 65 6e 74 65 72 69 6e | vention.of.our.own:.when.enterin |
| 2871e0 | 67 20 61 20 74 68 72 65 65 2d 6b 65 79 20 73 65 71 75 65 6e 63 65 2c 20 74 68 65 20 66 69 6e 61 | g.a.three-key.sequence,.the.fina |
| 287200 | 6c 20 6b 65 79 20 63 61 6e 20 62 65 20 70 72 65 73 73 65 64 0a 65 69 74 68 65 72 20 77 69 74 68 | l.key.can.be.pressed.either.with |
| 287220 | 20 63 6f 6e 74 72 6f 6c 20 6f 72 20 75 6e 6d 6f 64 69 66 69 65 64 2e 20 20 46 6f 72 20 65 78 61 | .control.or.unmodified...For.exa |
| 287240 | 6d 70 6c 65 2c 20 74 68 65 0a e2 80 98 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 | mple,.the....slime-describe-symb |
| 287260 | 6f 6c e2 80 99 20 63 6f 6d 6d 61 6e 64 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 e2 80 98 43 2d 63 | ol....command.is.bound.to....C-c |
| 287280 | 20 43 2d 64 20 64 e2 80 99 2c 20 62 75 74 20 69 74 20 61 6c 73 6f 0a 77 6f 72 6b 73 20 74 6f 20 | .C-d.d...,.but.it.also.works.to. |
| 2872a0 | 74 79 70 65 20 e2 80 98 43 2d 63 20 43 2d 64 20 43 2d 64 e2 80 99 2e 20 20 57 65 e2 80 99 72 65 | type....C-c.C-d.C-d......We...re |
| 2872c0 | 20 73 69 6d 70 6c 79 20 62 69 6e 64 69 6e 67 20 62 6f 74 68 20 6b 65 79 20 73 65 71 75 65 6e 63 | .simply.binding.both.key.sequenc |
| 2872e0 | 65 73 0a 62 65 63 61 75 73 65 20 73 6f 6d 65 20 70 65 6f 70 6c 65 20 6c 69 6b 65 20 74 6f 20 68 | es.because.some.people.like.to.h |
| 287300 | 6f 6c 64 20 63 6f 6e 74 72 6f 6c 20 66 6f 72 20 61 6c 6c 20 74 68 72 65 65 20 6b 65 79 73 20 61 | old.control.for.all.three.keys.a |
| 287320 | 6e 64 20 6f 74 68 65 72 73 0a 64 6f 6e e2 80 99 74 2c 20 61 6e 64 20 77 69 74 68 20 74 68 65 20 | nd.others.don...t,.and.with.the. |
| 287340 | 74 77 6f 2d 6b 65 79 20 70 72 65 66 69 78 20 77 65 e2 80 99 72 65 20 6e 6f 74 20 61 66 72 61 69 | two-key.prefix.we...re.not.afrai |
| 287360 | 64 20 6f 66 20 72 75 6e 6e 69 6e 67 20 6f 75 74 20 6f 66 0a 6b 65 79 73 2e 0a 0a 20 20 20 54 68 | d.of.running.out.of.keys......Th |
| 287380 | 65 72 65 20 69 73 20 6f 6e 65 20 65 78 63 65 70 74 69 6f 6e 20 74 6f 20 74 68 69 73 20 72 75 6c | ere.is.one.exception.to.this.rul |
| 2873a0 | 65 2c 20 6a 75 73 74 20 74 6f 20 74 72 69 70 20 79 6f 75 20 75 70 2e 20 20 57 65 20 6e 65 76 65 | e,.just.to.trip.you.up...We.neve |
| 2873c0 | 72 0a 62 69 6e 64 20 e2 80 98 43 2d 68 e2 80 99 20 61 6e 79 77 68 65 72 65 20 69 6e 20 61 20 6b | r.bind....C-h....anywhere.in.a.k |
| 2873e0 | 65 79 20 73 65 71 75 65 6e 63 65 2c 20 73 6f 20 e2 80 98 43 2d 63 20 43 2d 64 20 43 2d 68 e2 80 | ey.sequence,.so....C-c.C-d.C-h.. |
| 287400 | 99 20 64 6f 65 73 6e e2 80 99 74 20 64 6f 20 74 68 65 0a 73 61 6d 65 20 74 68 69 6e 67 20 61 73 | ..doesn...t.do.the.same.thing.as |
| 287420 | 20 e2 80 98 43 2d 63 20 43 2d 64 20 68 e2 80 99 2e 20 20 54 68 69 73 20 69 73 20 62 65 63 61 75 | ....C-c.C-d.h......This.is.becau |
| 287440 | 73 65 20 45 6d 61 63 73 20 68 61 73 20 61 20 62 75 69 6c 74 2d 69 6e 20 64 65 66 61 75 6c 74 0a | se.Emacs.has.a.built-in.default. |
| 287460 | 73 6f 20 74 68 61 74 20 74 79 70 69 6e 67 20 61 20 70 72 65 66 69 78 20 66 6f 6c 6c 6f 77 65 64 | so.that.typing.a.prefix.followed |
| 287480 | 20 62 79 20 e2 80 98 43 2d 68 e2 80 99 20 77 69 6c 6c 20 64 69 73 70 6c 61 79 20 61 6c 6c 20 62 | .by....C-h....will.display.all.b |
| 2874a0 | 69 6e 64 69 6e 67 73 0a 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 74 68 61 74 20 70 72 65 66 69 | indings.starting.with.that.prefi |
| 2874c0 | 78 2c 20 73 6f 20 e2 80 98 43 2d 63 20 43 2d 64 20 43 2d 68 e2 80 99 20 77 69 6c 6c 20 61 63 74 | x,.so....C-c.C-d.C-h....will.act |
| 2874e0 | 75 61 6c 6c 79 20 6c 69 73 74 20 74 68 65 0a 62 69 6e 64 69 6e 67 73 20 66 6f 72 20 61 6c 6c 20 | ually.list.the.bindings.for.all. |
| 287500 | 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 54 68 69 73 20 66 65 | documentation.commands...This.fe |
| 287520 | 61 74 75 72 65 20 69 73 20 6a 75 73 74 20 61 20 62 69 74 20 74 6f 6f 0a 75 73 65 66 75 6c 20 74 | ature.is.just.a.bit.too.useful.t |
| 287540 | 6f 20 63 6c 6f 62 62 65 72 21 0a 0a 20 20 20 20 20 e2 80 9c 41 72 65 20 79 6f 75 20 64 65 6c 69 | o.clobber!..........Are.you.deli |
| 287560 | 62 65 72 61 74 65 6c 79 20 73 70 69 74 69 6e 67 20 45 6d 61 63 73 e2 80 99 73 20 62 72 69 6c 6c | berately.spiting.Emacs...s.brill |
| 287580 | 69 61 6e 74 20 6f 6e 6c 69 6e 65 20 68 65 6c 70 0a 20 20 20 20 20 66 61 63 69 6c 69 74 69 65 73 | iant.online.help......facilities |
| 2875a0 | 3f 20 20 54 68 65 20 67 6f 64 73 20 77 69 6c 6c 20 62 65 20 61 6e 67 72 79 21 e2 80 9d 0a 0a 54 | ?..The.gods.will.be.angry!.....T |
| 2875c0 | 68 69 73 20 69 73 20 61 20 62 72 69 6c 6c 69 61 6e 74 20 70 69 65 63 65 20 6f 66 20 61 64 76 69 | his.is.a.brilliant.piece.of.advi |
| 2875e0 | 63 65 2e 20 20 54 68 65 20 45 6d 61 63 73 20 6f 6e 6c 69 6e 65 20 68 65 6c 70 20 66 61 63 69 6c | ce...The.Emacs.online.help.facil |
| 287600 | 69 74 69 65 73 0a 61 72 65 20 79 6f 75 72 20 6d 6f 73 74 20 69 6d 6d 65 64 69 61 74 65 2c 20 75 | ities.are.your.most.immediate,.u |
| 287620 | 70 2d 74 6f 2d 64 61 74 65 20 61 6e 64 20 63 6f 6d 70 6c 65 74 65 20 72 65 73 6f 75 72 63 65 20 | p-to-date.and.complete.resource. |
| 287640 | 66 6f 72 20 6b 65 79 62 69 6e 64 69 6e 67 0a 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 20 20 54 68 65 | for.keybinding.information...The |
| 287660 | 79 20 61 72 65 20 79 6f 75 72 20 66 72 69 65 6e 64 73 3a 0a 0a e2 80 98 43 2d 68 20 6b 20 3c 6b | y.are.your.friends:.....C-h.k.<k |
| 287680 | 65 79 3e e2 80 99 0a 20 20 20 20 20 e2 80 98 64 65 73 63 72 69 62 65 2d 6b 65 79 e2 80 99 20 e2 | ey>............describe-key..... |
| 2876a0 | 80 9c 57 68 61 74 20 64 6f 65 73 20 74 68 69 73 20 6b 65 79 20 64 6f 3f e2 80 9d 0a 20 20 20 20 | ..What.does.this.key.do?........ |
| 2876c0 | 20 44 65 73 63 72 69 62 65 73 20 63 75 72 72 65 6e 74 20 66 75 6e 63 74 69 6f 6e 20 62 6f 75 6e | .Describes.current.function.boun |
| 2876e0 | 64 20 74 6f 20 e2 80 98 3c 6b 65 79 3e e2 80 99 20 66 6f 72 20 66 6f 63 75 73 20 62 75 66 66 65 | d.to....<key>....for.focus.buffe |
| 287700 | 72 2e 0a 0a e2 80 98 43 2d 68 20 62 e2 80 99 0a 20 20 20 20 20 e2 80 98 64 65 73 63 72 69 62 65 | r......C-h.b............describe |
| 287720 | 2d 62 69 6e 64 69 6e 67 73 e2 80 99 20 e2 80 9c 45 78 61 63 74 6c 79 20 77 68 61 74 20 62 69 6e | -bindings.......Exactly.what.bin |
| 287740 | 64 69 6e 67 73 20 61 72 65 20 61 76 61 69 6c 61 62 6c 65 3f e2 80 9d 0a 20 20 20 20 20 4c 69 73 | dings.are.available?.........Lis |
| 287760 | 74 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 6b 65 79 2d 62 69 6e 64 69 6e 67 73 20 66 6f 72 20 | ts.the.current.key-bindings.for. |
| 287780 | 74 68 65 20 66 6f 63 75 73 20 62 75 66 66 65 72 2e 0a 0a e2 80 98 43 2d 68 20 6d e2 80 99 0a 20 | the.focus.buffer......C-h.m..... |
| 2877a0 | 20 20 20 20 e2 80 98 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 e2 80 99 20 e2 80 9c 54 65 6c 6c 20 | .......describe-mode.......Tell. |
| 2877c0 | 6d 65 20 61 6c 6c 20 61 62 6f 75 74 20 74 68 69 73 20 6d 6f 64 65 e2 80 9d 0a 20 20 20 20 20 53 | me.all.about.this.mode.........S |
| 2877e0 | 68 6f 77 73 20 61 6c 6c 20 74 68 65 20 61 76 61 69 6c 61 62 6c 65 20 6d 61 6a 6f 72 20 6d 6f 64 | hows.all.the.available.major.mod |
| 287800 | 65 20 6b 65 79 73 2c 20 74 68 65 6e 20 74 68 65 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 6b 65 79 73 | e.keys,.then.the.minor.mode.keys |
| 287820 | 2c 0a 20 20 20 20 20 66 6f 72 20 74 68 65 20 6d 6f 64 65 73 20 6f 66 20 74 68 65 20 66 6f 63 75 | ,......for.the.modes.of.the.focu |
| 287840 | 73 20 62 75 66 66 65 72 2e 0a 0a e2 80 98 43 2d 68 20 6c e2 80 99 0a 20 20 20 20 20 e2 80 98 76 | s.buffer......C-h.l............v |
| 287860 | 69 65 77 2d 6c 6f 73 73 61 67 65 e2 80 99 20 e2 80 9c 57 6f 61 68 2c 20 77 68 61 74 20 6b 65 79 | iew-lossage.......Woah,.what.key |
| 287880 | 20 63 68 6f 72 64 20 64 69 64 20 49 20 6a 75 73 74 20 64 6f 3f e2 80 9d 0a 20 20 20 20 20 53 68 | .chord.did.I.just.do?.........Sh |
| 2878a0 | 6f 77 73 20 79 6f 75 20 74 68 65 20 6c 69 74 65 72 61 6c 20 73 65 71 75 65 6e 63 65 20 6f 66 20 | ows.you.the.literal.sequence.of. |
| 2878c0 | 6b 65 79 73 20 79 6f 75 e2 80 99 76 65 20 70 72 65 73 73 65 64 20 69 6e 20 6f 72 64 65 72 2e 0a | keys.you...ve.pressed.in.order.. |
| 2878e0 | 0a 20 20 20 5f 4e 6f 74 65 3a 5f 20 49 6e 20 74 68 69 73 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f | ...._Note:_.In.this.documentatio |
| 287900 | 6e 20 74 68 65 20 64 65 73 69 67 6e 61 74 69 6f 6e 20 e2 80 98 43 2d 68 e2 80 99 20 69 73 20 61 | n.the.designation....C-h....is.a |
| 287920 | 20 e2 80 9c 63 61 6e 6f 6e 69 63 61 6c 0a 6b 65 79 e2 80 9d 20 77 68 69 63 68 20 6d 69 67 68 74 | ....canonical.key....which.might |
| 287940 | 20 61 63 74 75 61 6c 6c 79 20 6d 65 61 6e 20 43 74 72 6c 2d 68 2c 20 6f 72 20 46 31 2c 20 6f 72 | .actually.mean.Ctrl-h,.or.F1,.or |
| 287960 | 20 77 68 61 74 65 76 65 72 20 79 6f 75 20 68 61 76 65 0a e2 80 98 68 65 6c 70 2d 63 6f 6d 6d 61 | .whatever.you.have....help-comma |
| 287980 | 6e 64 e2 80 99 20 62 6f 75 6e 64 20 74 6f 20 69 6e 20 79 6f 75 72 20 e2 80 98 2e 65 6d 61 63 73 | nd....bound.to.in.your.....emacs |
| 2879a0 | e2 80 99 2e 20 20 48 65 72 65 20 69 73 20 61 20 63 6f 6d 6d 6f 6e 20 73 69 74 75 61 74 69 6f 6e | ......Here.is.a.common.situation |
| 2879c0 | 3a 0a 0a 20 20 20 20 20 28 67 6c 6f 62 61 6c 2d 73 65 74 2d 6b 65 79 20 5b 66 31 5d 20 20 20 27 | :.......(global-set-key.[f1]...' |
| 2879e0 | 68 65 6c 70 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 28 67 6c 6f 62 61 6c 2d 73 65 74 2d 6b | help-command)......(global-set-k |
| 287a00 | 65 79 20 22 5c 43 2d 68 22 20 27 64 65 6c 65 74 65 2d 62 61 63 6b 77 61 72 64 2d 63 68 61 72 29 | ey."\C-h".'delete-backward-char) |
| 287a20 | 0a 0a 49 6e 20 74 68 69 73 20 73 69 74 75 61 74 69 6f 6e 20 65 76 65 72 79 77 68 65 72 65 20 79 | ..In.this.situation.everywhere.y |
| 287a40 | 6f 75 20 73 65 65 20 e2 80 98 43 2d 68 e2 80 99 20 69 6e 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 | ou.see....C-h....in.the.document |
| 287a60 | 61 74 69 6f 6e 20 79 6f 75 0a 77 6f 75 6c 64 20 73 75 62 73 74 69 74 75 74 65 20 e2 80 98 46 31 | ation.you.would.substitute....F1 |
| 287a80 | e2 80 99 2e 0a 0a 20 20 20 59 6f 75 20 63 61 6e 20 61 73 73 69 67 6e 20 6f 72 20 63 68 61 6e 67 | .........You.can.assign.or.chang |
| 287aa0 | 65 20 64 65 66 61 75 6c 74 20 6b 65 79 20 62 69 6e 64 69 6e 67 73 20 67 6c 6f 62 61 6c 6c 79 20 | e.default.key.bindings.globally. |
| 287ac0 | 75 73 69 6e 67 20 74 68 65 0a e2 80 98 67 6c 6f 62 61 6c 2d 73 65 74 2d 6b 65 79 e2 80 99 20 66 | using.the....global-set-key....f |
| 287ae0 | 75 6e 63 74 69 6f 6e 20 69 6e 20 79 6f 75 72 20 e2 80 98 7e 2f 2e 65 6d 61 63 73 e2 80 99 20 66 | unction.in.your....~/.emacs....f |
| 287b00 | 69 6c 65 20 6c 69 6b 65 20 74 68 69 73 3a 0a 20 20 20 20 20 28 67 6c 6f 62 61 6c 2d 73 65 74 2d | ile.like.this:......(global-set- |
| 287b20 | 6b 65 79 20 22 5c 43 2d 63 20 73 22 20 27 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 29 0a 77 68 | key."\C-c.s".'slime-selector).wh |
| 287b40 | 69 63 68 20 62 69 6e 64 73 20 e2 80 98 43 2d 63 20 73 e2 80 99 20 74 6f 20 74 68 65 20 66 75 6e | ich.binds....C-c.s....to.the.fun |
| 287b60 | 63 74 69 6f 6e 20 e2 80 98 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 e2 80 99 2e 0a 0a 20 20 20 | ction....slime-selector......... |
| 287b80 | 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 61 73 | Alternatively,.if.you.want.to.as |
| 287ba0 | 73 69 67 6e 20 6f 72 20 63 68 61 6e 67 65 20 61 20 6b 65 79 20 62 69 6e 64 69 6e 67 20 69 6e 20 | sign.or.change.a.key.binding.in. |
| 287bc0 | 6a 75 73 74 0a 61 20 70 61 72 74 69 63 75 6c 61 72 20 73 6c 69 6d 65 20 6d 6f 64 65 2c 20 79 6f | just.a.particular.slime.mode,.yo |
| 287be0 | 75 20 63 61 6e 20 75 73 65 20 74 68 65 20 e2 80 98 64 65 66 69 6e 65 2d 6b 65 79 e2 80 99 20 66 | u.can.use.the....define-key....f |
| 287c00 | 75 6e 63 74 69 6f 6e 20 69 6e 20 79 6f 75 72 0a e2 80 98 7e 2f 2e 65 6d 61 63 73 e2 80 99 20 66 | unction.in.your....~/.emacs....f |
| 287c20 | 69 6c 65 20 6c 69 6b 65 20 74 68 69 73 3a 0a 20 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 | ile.like.this:......(define-key. |
| 287c40 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 6d 6f 64 65 2d 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 3b 22 | slime-repl-mode-map.(kbd."C-c.;" |
| 287c60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 69 6e 73 65 72 74 | )..................'slime-insert |
| 287c80 | 2d 62 61 6c 61 6e 63 65 64 2d 63 6f 6d 6d 65 6e 74 73 29 0a 77 68 69 63 68 20 62 69 6e 64 73 20 | -balanced-comments).which.binds. |
| 287ca0 | e2 80 98 43 2d 63 20 3b e2 80 99 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 e2 80 98 73 | ...C-c.;....to.the.function....s |
| 287cc0 | 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 62 61 6c 61 6e 63 65 64 2d 63 6f 6d 6d 65 6e 74 73 e2 80 99 | lime-insert-balanced-comments... |
| 287ce0 | 20 69 6e 0a 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f | .in.the.REPL.buffer.....File:.do |
| 287d00 | 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 45 76 61 6c 75 61 74 69 6f 6e 2c | cFDBrww.info,..Node:.Evaluation, |
| 287d20 | 20 20 4e 65 78 74 3a 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 2c 20 20 50 72 65 76 3a 20 55 73 65 72 | ..Next:.Compilation,..Prev:.User |
| 287d40 | 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 2c 20 20 55 70 3a 20 53 4c 49 | -interface.conventions,..Up:.SLI |
| 287d60 | 4d 45 20 6d 6f 64 65 0a 0a 33 2e 32 20 45 76 61 6c 75 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 | ME.mode..3.2.Evaluation.commands |
| 287d80 | 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 73 65 20 | .=======================..These. |
| 287da0 | 63 6f 6d 6d 61 6e 64 73 20 65 61 63 68 20 65 76 61 6c 75 61 74 65 20 61 20 43 6f 6d 6d 6f 6e 20 | commands.each.evaluate.a.Common. |
| 287dc0 | 4c 69 73 70 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 20 61 20 64 69 66 66 65 72 65 6e 74 0a 77 | Lisp.expression.in.a.different.w |
| 287de0 | 61 79 2e 20 20 55 73 75 61 6c 6c 79 20 74 68 65 79 20 6d 69 6d 69 63 20 63 6f 6d 6d 61 6e 64 73 | ay...Usually.they.mimic.commands |
| 287e00 | 20 66 6f 72 20 65 76 61 6c 75 61 74 69 6e 67 20 45 6d 61 63 73 20 4c 69 73 70 20 63 6f 64 65 2e | .for.evaluating.Emacs.Lisp.code. |
| 287e20 | 20 20 42 79 0a 64 65 66 61 75 6c 74 20 74 68 65 79 20 73 68 6f 77 20 74 68 65 69 72 20 72 65 73 | ..By.default.they.show.their.res |
| 287e40 | 75 6c 74 73 20 69 6e 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 2c 20 62 75 74 20 61 20 70 72 65 | ults.in.the.echo.area,.but.a.pre |
| 287e60 | 66 69 78 20 61 72 67 75 6d 65 6e 74 0a 63 61 75 73 65 73 20 74 68 65 20 72 65 73 75 6c 74 73 20 | fix.argument.causes.the.results. |
| 287e80 | 74 6f 20 62 65 20 69 6e 73 65 72 74 65 64 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 | to.be.inserted.in.the.current.bu |
| 287ea0 | 66 66 65 72 2e 0a 0a e2 80 98 43 2d 78 20 43 2d 65 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d | ffer......C-x.C-e.......M-x.slim |
| 287ec0 | 65 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e e2 80 99 0a 0a 20 20 20 20 20 | e-eval-last-expression.......... |
| 287ee0 | 45 76 61 6c 75 61 74 65 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 66 6f 72 65 20 70 | Evaluate.the.expression.before.p |
| 287f00 | 6f 69 6e 74 20 61 6e 64 20 73 68 6f 77 20 74 68 65 20 72 65 73 75 6c 74 20 69 6e 20 74 68 65 0a | oint.and.show.the.result.in.the. |
| 287f20 | 20 20 20 20 20 65 63 68 6f 20 61 72 65 61 2e 0a 0a e2 80 98 43 2d 4d 2d 78 e2 80 99 0a e2 80 98 | .....echo.area......C-M-x....... |
| 287f40 | 4d 2d 78 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 66 75 6e e2 80 99 0a 20 20 20 20 20 45 76 61 | M-x.slime-eval-defun.........Eva |
| 287f60 | 6c 75 61 74 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 6f 70 6c 65 76 65 6c 20 66 6f 72 6d 20 | luate.the.current.toplevel.form. |
| 287f80 | 61 6e 64 20 73 68 6f 77 20 74 68 65 20 72 65 73 75 6c 74 20 69 6e 20 74 68 65 20 65 63 68 6f 0a | and.show.the.result.in.the.echo. |
| 287fa0 | 20 20 20 20 20 61 72 65 61 2e 20 20 e2 80 98 43 2d 4d 2d 78 e2 80 99 20 74 72 65 61 74 73 20 e2 | .....area......C-M-x....treats.. |
| 287fc0 | 80 98 64 65 66 76 61 72 e2 80 99 20 65 78 70 72 65 73 73 69 6f 6e 73 20 73 70 65 63 69 61 6c 6c | ..defvar....expressions.speciall |
| 287fe0 | 79 2e 20 20 4e 6f 72 6d 61 6c 6c 79 2c 0a 20 20 20 20 20 65 76 61 6c 75 61 74 69 6e 67 20 61 20 | y...Normally,......evaluating.a. |
| 288000 | e2 80 98 64 65 66 76 61 72 e2 80 99 20 65 78 70 72 65 73 73 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 | ...defvar....expression.does.not |
| 288020 | 68 69 6e 67 20 69 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 69 74 0a 20 20 20 20 20 64 65 66 | hing.if.the.variable.it......def |
| 288040 | 69 6e 65 73 20 61 6c 72 65 61 64 79 20 68 61 73 20 61 20 76 61 6c 75 65 2e 20 20 42 75 74 20 e2 | ines.already.has.a.value...But.. |
| 288060 | 80 98 43 2d 4d 2d 78 e2 80 99 20 75 6e 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c 79 20 72 65 73 65 74 | ..C-M-x....unconditionally.reset |
| 288080 | 73 0a 20 20 20 20 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 74 6f 20 74 68 65 20 69 6e 69 74 69 | s......the.variable.to.the.initi |
| 2880a0 | 61 6c 20 76 61 6c 75 65 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65 20 e2 80 98 64 65 66 | al.value.specified.in.the....def |
| 2880c0 | 76 61 72 e2 80 99 0a 20 20 20 20 20 65 78 70 72 65 73 73 69 6f 6e 2e 20 20 54 68 69 73 20 73 70 | var.........expression...This.sp |
| 2880e0 | 65 63 69 61 6c 20 66 65 61 74 75 72 65 20 69 73 20 63 6f 6e 76 65 6e 69 65 6e 74 20 66 6f 72 20 | ecial.feature.is.convenient.for. |
| 288100 | 64 65 62 75 67 67 69 6e 67 20 4c 69 73 70 0a 20 20 20 20 20 70 72 6f 67 72 61 6d 73 2e 0a 0a 20 | debugging.Lisp......programs.... |
| 288120 | 20 20 49 66 20 e2 80 98 43 2d 4d 2d 78 e2 80 99 20 6f 72 20 e2 80 98 43 2d 78 20 43 2d 65 e2 80 | ..If....C-M-x....or....C-x.C-e.. |
| 288140 | 99 20 69 73 20 67 69 76 65 6e 20 61 20 6e 75 6d 65 72 69 63 20 61 72 67 75 6d 65 6e 74 2c 20 69 | ..is.given.a.numeric.argument,.i |
| 288160 | 74 20 69 6e 73 65 72 74 73 20 74 68 65 0a 76 61 6c 75 65 20 69 6e 74 6f 20 74 68 65 20 63 75 72 | t.inserts.the.value.into.the.cur |
| 288180 | 72 65 6e 74 20 62 75 66 66 65 72 2c 20 72 61 74 68 65 72 20 74 68 61 6e 20 64 69 73 70 6c 61 79 | rent.buffer,.rather.than.display |
| 2881a0 | 69 6e 67 20 69 74 20 69 6e 20 74 68 65 20 65 63 68 6f 0a 61 72 65 61 2e 0a 0a e2 80 98 43 2d 63 | ing.it.in.the.echo.area......C-c |
| 2881c0 | 20 3a e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 65 | .:.......M-x.slime-interactive-e |
| 2881e0 | 76 61 6c e2 80 99 0a 20 20 20 20 20 45 76 61 6c 75 61 74 65 20 61 6e 20 65 78 70 72 65 73 73 69 | val.........Evaluate.an.expressi |
| 288200 | 6f 6e 20 72 65 61 64 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 0a e2 80 | on.read.from.the.minibuffer..... |
| 288220 | 98 43 2d 63 20 43 2d 72 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 72 65 | .C-c.C-r.......M-x.slime-eval-re |
| 288240 | 67 69 6f 6e e2 80 99 0a 20 20 20 20 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 72 65 67 69 6f 6e | gion.........Evaluate.the.region |
| 288260 | 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 70 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 70 70 | ......C-c.C-p.......M-x.slime-pp |
| 288280 | 72 69 6e 74 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e e2 80 99 0a 20 20 20 | rint-eval-last-expression....... |
| 2882a0 | 20 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 66 6f 72 65 | ..Evaluate.the.expression.before |
| 2882c0 | 20 70 6f 69 6e 74 20 61 6e 64 20 70 72 65 74 74 79 2d 70 72 69 6e 74 20 74 68 65 20 72 65 73 75 | .point.and.pretty-print.the.resu |
| 2882e0 | 6c 74 20 69 6e 0a 20 20 20 20 20 61 20 66 72 65 73 68 20 62 75 66 66 65 72 2e 0a 0a e2 80 98 43 | lt.in......a.fresh.buffer......C |
| 288300 | 2d 63 20 45 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 e2 | -c.E.......M-x.slime-edit-value. |
| 288320 | 80 99 0a 20 20 20 20 20 45 64 69 74 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61 20 73 65 74 66 | ........Edit.the.value.of.a.setf |
| 288340 | 2d 61 62 6c 65 20 66 6f 72 6d 20 69 6e 20 61 20 6e 65 77 20 62 75 66 66 65 72 20 e2 80 98 2a 45 | -able.form.in.a.new.buffer....*E |
| 288360 | 64 69 74 20 3c 66 6f 72 6d 3e 2a e2 80 99 2e 0a 20 20 20 20 20 54 68 65 20 76 61 6c 75 65 20 69 | dit.<form>*..........The.value.i |
| 288380 | 73 20 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 61 20 74 65 6d 70 6f 72 61 72 79 20 62 75 66 66 | s.inserted.into.a.temporary.buff |
| 2883a0 | 65 72 20 66 6f 72 20 65 64 69 74 69 6e 67 20 61 6e 64 20 74 68 65 6e 0a 20 20 20 20 20 73 65 74 | er.for.editing.and.then......set |
| 2883c0 | 20 69 6e 20 4c 69 73 70 20 77 68 65 6e 20 63 6f 6d 6d 69 74 74 65 64 20 77 69 74 68 20 e2 80 98 | .in.Lisp.when.committed.with.... |
| 2883e0 | 43 2d 63 20 43 2d 63 e2 80 99 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 75 e2 80 99 0a e2 80 98 4d 2d | C-c.C-c.........C-c.C-u.......M- |
| 288400 | 78 20 73 6c 69 6d 65 2d 75 6e 64 65 66 69 6e 65 2d 66 75 6e 63 74 69 6f 6e e2 80 99 0a 20 20 20 | x.slime-undefine-function....... |
| 288420 | 20 20 55 6e 64 65 66 69 6e 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 2c 20 77 69 74 68 20 e2 80 | ..Undefine.the.function,.with... |
| 288440 | 98 66 6d 61 6b 75 6e 62 6f 75 6e 64 e2 80 99 2c 20 66 6f 72 20 74 68 65 20 73 79 6d 62 6f 6c 20 | .fmakunbound...,.for.the.symbol. |
| 288460 | 61 74 20 70 6f 69 6e 74 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 | at.point.....File:.docFDBrww.inf |
| 288480 | 6f 2c 20 20 4e 6f 64 65 3a 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 43 6f | o,..Node:.Compilation,..Next:.Co |
| 2884a0 | 6d 70 6c 65 74 69 6f 6e 2c 20 20 50 72 65 76 3a 20 45 76 61 6c 75 61 74 69 6f 6e 2c 20 20 55 70 | mpletion,..Prev:.Evaluation,..Up |
| 2884c0 | 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 0a 0a 33 2e 33 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 63 6f | :.SLIME.mode..3.3.Compilation.co |
| 2884e0 | 6d 6d 61 6e 64 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a | mmands.========================. |
| 288500 | 0a 53 4c 49 4d 45 20 68 61 73 20 66 61 6e 63 79 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 63 6f | .SLIME.has.fancy.commands.for.co |
| 288520 | 6d 70 69 6c 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 2c 20 66 69 6c 65 73 2c 20 61 6e 64 20 70 61 | mpiling.functions,.files,.and.pa |
| 288540 | 63 6b 61 67 65 73 2e 0a 54 68 65 20 66 61 6e 63 79 20 70 61 72 74 20 69 73 20 74 68 61 74 20 6e | ckages..The.fancy.part.is.that.n |
| 288560 | 6f 74 65 73 20 61 6e 64 20 77 61 72 6e 69 6e 67 73 20 6f 66 66 65 72 65 64 20 62 79 20 74 68 65 | otes.and.warnings.offered.by.the |
| 288580 | 20 4c 69 73 70 20 63 6f 6d 70 69 6c 65 72 0a 61 72 65 20 69 6e 74 65 72 63 65 70 74 65 64 20 61 | .Lisp.compiler.are.intercepted.a |
| 2885a0 | 6e 64 20 61 6e 6e 6f 74 61 74 65 64 20 64 69 72 65 63 74 6c 79 20 6f 6e 74 6f 20 74 68 65 20 63 | nd.annotated.directly.onto.the.c |
| 2885c0 | 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 65 78 70 72 65 73 73 69 6f 6e 73 20 69 6e 20 74 68 65 20 | orresponding.expressions.in.the. |
| 2885e0 | 4c 69 73 70 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 2e 20 20 28 47 69 76 65 20 69 74 20 61 20 | Lisp.source.buffer...(Give.it.a. |
| 288600 | 74 72 79 20 74 6f 20 73 65 65 20 77 68 61 74 20 74 68 69 73 0a 6d 65 61 6e 73 2e 29 0a 0a e2 80 | try.to.see.what.this.means.).... |
| 288620 | 98 43 2d 63 20 43 2d 63 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 | .C-c.C-c.......M-x.slime-compile |
| 288640 | 2d 64 65 66 75 6e e2 80 99 0a 20 20 20 20 20 43 6f 6d 70 69 6c 65 20 74 68 65 20 74 6f 70 2d 6c | -defun.........Compile.the.top-l |
| 288660 | 65 76 65 6c 20 66 6f 72 6d 20 61 74 20 70 6f 69 6e 74 2e 20 20 54 68 65 20 72 65 67 69 6f 6e 20 | evel.form.at.point...The.region. |
| 288680 | 62 6c 69 6e 6b 73 20 73 68 6f 72 74 6c 79 20 74 6f 0a 20 20 20 20 20 67 69 76 65 20 73 6f 6d 65 | blinks.shortly.to......give.some |
| 2886a0 | 20 66 65 65 64 62 61 63 6b 20 77 68 69 63 68 20 70 61 72 74 20 77 61 73 20 63 68 6f 73 65 6e 2e | .feedback.which.part.was.chosen. |
| 2886c0 | 0a 0a 20 20 20 20 20 57 69 74 68 20 28 70 6f 73 69 74 69 76 65 29 20 70 72 65 66 69 78 20 61 72 | .......With.(positive).prefix.ar |
| 2886e0 | 67 75 6d 65 6e 74 20 74 68 65 20 66 6f 72 6d 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 | gument.the.form.is.compiled.with |
| 288700 | 20 6d 61 78 69 6d 61 6c 0a 20 20 20 20 20 64 65 62 75 67 20 73 65 74 74 69 6e 67 73 20 28 e2 80 | .maximal......debug.settings.(.. |
| 288720 | 98 43 2d 75 20 43 2d 63 20 43 2d 63 e2 80 99 29 2e 20 20 57 69 74 68 20 6e 65 67 61 74 69 76 65 | .C-u.C-c.C-c...)...With.negative |
| 288740 | 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 74 0a 20 20 20 20 20 69 73 20 63 6f 6d 70 | .prefix.argument.it......is.comp |
| 288760 | 69 6c 65 64 20 66 6f 72 20 73 70 65 65 64 20 28 e2 80 98 4d 2d 2d 20 43 2d 63 20 43 2d 63 e2 80 | iled.for.speed.(...M--.C-c.C-c.. |
| 288780 | 99 29 2e 20 20 49 66 20 61 20 6e 75 6d 65 72 69 63 20 61 72 67 75 6d 65 6e 74 20 69 73 0a 20 20 | .)...If.a.numeric.argument.is... |
| 2887a0 | 20 20 20 70 61 73 73 65 64 20 73 65 74 20 64 65 62 75 67 20 6f 72 20 73 70 65 65 64 20 73 65 74 | ...passed.set.debug.or.speed.set |
| 2887c0 | 74 69 6e 67 73 20 74 6f 20 69 74 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 69 74 73 20 73 69 67 | tings.to.it.depending.on.its.sig |
| 2887e0 | 6e 2e 0a 0a 20 20 20 20 20 54 68 65 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20 72 65 67 69 6f 6e | n........The.code.for.the.region |
| 288800 | 20 69 73 20 65 78 65 63 75 74 65 64 20 61 66 74 65 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2e 20 | .is.executed.after.compilation.. |
| 288820 | 20 49 6e 0a 20 20 20 20 20 70 72 69 6e 63 69 70 6c 65 2c 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 | .In......principle,.the.command. |
| 288840 | 77 72 69 74 65 73 20 74 68 65 20 72 65 67 69 6f 6e 20 74 6f 20 61 20 66 69 6c 65 2c 20 63 6f 6d | writes.the.region.to.a.file,.com |
| 288860 | 70 69 6c 65 73 20 74 68 61 74 0a 20 20 20 20 20 66 69 6c 65 2c 20 61 6e 64 20 6c 6f 61 64 73 20 | piles.that......file,.and.loads. |
| 288880 | 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 63 6f 64 65 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 6b e2 | the.resulting.code......C-c.C-k. |
| 2888a0 | 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 | ......M-x.slime-compile-and-load |
| 2888c0 | 2d 66 69 6c 65 e2 80 99 0a 20 20 20 20 20 43 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 74 | -file.........Compile.and.load.t |
| 2888e0 | 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 e2 80 99 73 20 73 6f 75 72 63 65 20 66 69 6c | he.current.buffer...s.source.fil |
| 288900 | 65 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 73 74 65 70 | e...If.the......compilation.step |
| 288920 | 20 66 61 69 6c 73 2c 20 74 68 65 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 6c 6f 61 64 65 64 2e 20 | .fails,.the.file.is.not.loaded.. |
| 288940 | 20 49 74 e2 80 99 73 20 6e 6f 74 20 61 6c 77 61 79 73 0a 20 20 20 20 20 65 61 73 79 20 74 6f 20 | .It...s.not.always......easy.to. |
| 288960 | 74 65 6c 6c 20 77 68 65 74 68 65 72 20 74 68 65 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 66 61 69 | tell.whether.the.compilation.fai |
| 288980 | 6c 65 64 3a 20 6f 63 63 61 73 69 6f 6e 61 6c 6c 79 20 79 6f 75 20 6d 61 79 0a 20 20 20 20 20 65 | led:.occasionally.you.may......e |
| 2889a0 | 6e 64 20 75 70 20 69 6e 20 74 68 65 20 64 65 62 75 67 67 65 72 20 64 75 72 69 6e 67 20 74 68 65 | nd.up.in.the.debugger.during.the |
| 2889c0 | 20 6c 6f 61 64 20 73 74 65 70 2e 0a 0a 20 20 20 20 20 57 69 74 68 20 28 70 6f 73 69 74 69 76 65 | .load.step........With.(positive |
| 2889e0 | 29 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 74 68 65 20 66 69 6c 65 20 69 73 20 63 6f | ).prefix.argument.the.file.is.co |
| 288a00 | 6d 70 69 6c 65 64 20 77 69 74 68 20 6d 61 78 69 6d 61 6c 0a 20 20 20 20 20 64 65 62 75 67 20 73 | mpiled.with.maximal......debug.s |
| 288a20 | 65 74 74 69 6e 67 73 20 28 e2 80 98 43 2d 75 20 43 2d 63 20 43 2d 6b e2 80 99 29 2e 20 20 57 69 | ettings.(...C-u.C-c.C-k...)...Wi |
| 288a40 | 74 68 20 6e 65 67 61 74 69 76 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 74 0a 20 | th.negative.prefix.argument.it.. |
| 288a60 | 20 20 20 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 20 73 70 65 65 64 20 28 e2 80 98 4d 2d | ....is.compiled.for.speed.(...M- |
| 288a80 | 2d 20 43 2d 63 20 43 2d 6b e2 80 99 29 2e 20 20 49 66 20 61 20 6e 75 6d 65 72 69 63 20 61 72 67 | -.C-c.C-k...)...If.a.numeric.arg |
| 288aa0 | 75 6d 65 6e 74 20 69 73 0a 20 20 20 20 20 70 61 73 73 65 64 20 73 65 74 20 64 65 62 75 67 20 6f | ument.is......passed.set.debug.o |
| 288ac0 | 72 20 73 70 65 65 64 20 73 65 74 74 69 6e 67 73 20 74 6f 20 69 74 20 64 65 70 65 6e 64 69 6e 67 | r.speed.settings.to.it.depending |
| 288ae0 | 20 6f 6e 20 69 74 73 20 73 69 67 6e 2e 0a 0a e2 80 98 43 2d 63 20 4d 2d 6b e2 80 99 0a e2 80 98 | .on.its.sign......C-c.M-k....... |
| 288b00 | 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 e2 80 99 0a 20 20 20 20 20 43 | M-x.slime-compile-file.........C |
| 288b20 | 6f 6d 70 69 6c 65 20 28 62 75 74 20 64 6f 6e e2 80 99 74 20 6c 6f 61 64 29 20 74 68 65 20 63 75 | ompile.(but.don...t.load).the.cu |
| 288b40 | 72 72 65 6e 74 20 62 75 66 66 65 72 e2 80 99 73 20 73 6f 75 72 63 65 20 66 69 6c 65 2e 0a 0a e2 | rrent.buffer...s.source.file.... |
| 288b60 | 80 98 43 2d 63 20 43 2d 6c e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 6c 6f 61 64 2d 66 | ..C-c.C-l.......M-x.slime-load-f |
| 288b80 | 69 6c 65 e2 80 99 0a 20 20 20 20 20 4c 6f 61 64 20 61 20 4c 69 73 70 20 66 69 6c 65 2e 20 20 54 | ile.........Load.a.Lisp.file...T |
| 288ba0 | 68 69 73 20 63 6f 6d 6d 61 6e 64 20 75 73 65 73 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 | his.command.uses.the.Common.Lisp |
| 288bc0 | 20 4c 4f 41 44 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f | .LOAD.function......M-x.slime-co |
| 288be0 | 6d 70 69 6c 65 2d 72 65 67 69 6f 6e e2 80 99 0a 20 20 20 20 20 43 6f 6d 70 69 6c 65 20 74 68 65 | mpile-region.........Compile.the |
| 288c00 | 20 73 65 6c 65 63 74 65 64 20 72 65 67 69 6f 6e 2e 0a 0a 20 20 20 54 68 65 20 61 6e 6e 6f 74 61 | .selected.region......The.annota |
| 288c20 | 74 69 6f 6e 73 20 61 72 65 20 69 6e 64 69 63 61 74 65 64 20 61 73 20 75 6e 64 65 72 6c 69 6e 69 | tions.are.indicated.as.underlini |
| 288c40 | 6e 67 20 6f 6e 20 73 6f 75 72 63 65 20 66 6f 72 6d 73 2e 20 20 54 68 65 0a 63 6f 6d 70 69 6c 65 | ng.on.source.forms...The.compile |
| 288c60 | 72 20 6d 65 73 73 61 67 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 61 6e 20 61 6e 6e | r.message.associated.with.an.ann |
| 288c80 | 6f 74 61 74 69 6f 6e 20 63 61 6e 20 62 65 20 72 65 61 64 20 65 69 74 68 65 72 20 62 79 0a 70 6c | otation.can.be.read.either.by.pl |
| 288ca0 | 61 63 69 6e 67 20 74 68 65 20 6d 6f 75 73 65 20 6f 76 65 72 20 74 68 65 20 74 65 78 74 20 6f 72 | acing.the.mouse.over.the.text.or |
| 288cc0 | 20 77 69 74 68 20 74 68 65 20 73 65 6c 65 63 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 20 62 65 6c | .with.the.selection.commands.bel |
| 288ce0 | 6f 77 2e 0a 0a e2 80 98 4d 2d 6e e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 6e 65 78 74 | ow......M-n.......M-x.slime-next |
| 288d00 | 2d 6e 6f 74 65 e2 80 99 0a 20 20 20 20 20 4d 6f 76 65 20 74 68 65 20 70 6f 69 6e 74 20 74 6f 20 | -note.........Move.the.point.to. |
| 288d20 | 74 68 65 20 6e 65 78 74 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 20 61 6e 64 20 64 69 73 70 6c | the.next.compiler.note.and.displ |
| 288d40 | 61 79 73 20 74 68 65 20 6e 6f 74 65 2e 0a 0a e2 80 98 4d 2d 70 e2 80 99 0a e2 80 98 4d 2d 78 20 | ays.the.note......M-p.......M-x. |
| 288d60 | 73 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 6e 6f 74 65 e2 80 99 0a 20 20 20 20 20 4d 6f 76 65 | slime-previous-note.........Move |
| 288d80 | 20 74 68 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 63 6f 6d 70 69 | .the.point.to.the.previous.compi |
| 288da0 | 6c 65 72 20 6e 6f 74 65 20 61 6e 64 20 64 69 73 70 6c 61 79 73 20 74 68 65 20 6e 6f 74 65 2e 0a | ler.note.and.displays.the.note.. |
| 288dc0 | 0a e2 80 98 43 2d 63 20 4d 2d 63 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 6d 6f | ....C-c.M-c.......M-x.slime-remo |
| 288de0 | 76 65 2d 6e 6f 74 65 73 e2 80 99 0a 20 20 20 20 20 52 65 6d 6f 76 65 20 61 6c 6c 20 61 6e 6e 6f | ve-notes.........Remove.all.anno |
| 288e00 | 74 61 74 69 6f 6e 73 20 66 72 6f 6d 20 74 68 65 20 62 75 66 66 65 72 2e 0a 0a e2 80 98 43 2d 78 | tations.from.the.buffer......C-x |
| 288e20 | 20 60 e2 80 99 0a e2 80 98 4d 2d 78 20 6e 65 78 74 2d 65 72 72 6f 72 e2 80 99 0a 20 20 20 20 20 | .`.......M-x.next-error......... |
| 288e40 | 56 69 73 69 74 20 74 68 65 20 6e 65 78 74 2d 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 20 20 54 | Visit.the.next-error.message...T |
| 288e60 | 68 69 73 20 69 73 20 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 61 20 53 4c 49 4d 45 20 63 6f 6d 6d | his.is.not.actually.a.SLIME.comm |
| 288e80 | 61 6e 64 0a 20 20 20 20 20 62 75 74 20 53 4c 49 4d 45 20 63 72 65 61 74 65 73 20 61 20 68 69 64 | and......but.SLIME.creates.a.hid |
| 288ea0 | 64 65 6e 20 62 75 66 66 65 72 20 73 6f 20 74 68 61 74 20 6d 6f 73 74 20 6f 66 20 74 68 65 20 43 | den.buffer.so.that.most.of.the.C |
| 288ec0 | 6f 6d 70 69 6c 61 74 69 6f 6e 0a 20 20 20 20 20 6d 6f 64 65 20 63 6f 6d 6d 61 6e 64 73 20 28 2a | ompilation......mode.commands.(* |
| 288ee0 | 6e 6f 74 65 20 28 65 6d 61 63 73 29 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 4d 6f 64 65 3a 3a 29 20 | note.(emacs)Compilation.Mode::). |
| 288f00 | 77 6f 72 6b 20 73 69 6d 69 6c 61 72 6c 79 20 66 6f 72 0a 20 20 20 20 20 4c 69 73 70 20 61 73 20 | work.similarly.for......Lisp.as. |
| 288f20 | 66 6f 72 20 62 61 74 63 68 20 63 6f 6d 70 69 6c 65 72 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f | for.batch.compilers.....File:.do |
| 288f40 | 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 43 6f 6d 70 6c 65 74 69 6f 6e 2c | cFDBrww.info,..Node:.Completion, |
| 288f60 | 20 20 4e 65 78 74 3a 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 2c 20 20 50 72 | ..Next:.Finding.definitions,..Pr |
| 288f80 | 65 76 3a 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 2c 20 20 55 70 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 | ev:.Compilation,..Up:.SLIME.mode |
| 288fa0 | 0a 0a 33 2e 34 20 43 6f 6d 70 6c 65 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 0a 3d 3d 3d 3d 3d 3d | ..3.4.Completion.commands.====== |
| 288fc0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 43 6f 6d 70 6c 65 74 69 6f 6e 20 63 6f | =================..Completion.co |
| 288fe0 | 6d 6d 61 6e 64 73 20 61 72 65 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 61 20 73 79 | mmands.are.used.to.complete.a.sy |
| 289000 | 6d 62 6f 6c 20 6f 72 20 66 6f 72 6d 20 62 61 73 65 64 20 6f 6e 20 77 68 61 74 0a 69 73 20 61 6c | mbol.or.form.based.on.what.is.al |
| 289020 | 72 65 61 64 79 20 70 72 65 73 65 6e 74 20 61 74 20 70 6f 69 6e 74 2e 20 20 43 6c 61 73 73 69 63 | ready.present.at.point...Classic |
| 289040 | 61 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 73 73 75 6d 65 73 20 61 6e 20 65 78 61 63 74 0a 70 | al.completion.assumes.an.exact.p |
| 289060 | 72 65 66 69 78 20 61 6e 64 20 67 69 76 65 73 20 63 68 6f 69 63 65 73 20 6f 6e 6c 79 20 77 68 65 | refix.and.gives.choices.only.whe |
| 289080 | 72 65 20 62 72 61 6e 63 68 65 73 20 6d 61 79 20 6f 63 63 75 72 2e 20 20 46 75 7a 7a 79 0a 63 6f | re.branches.may.occur...Fuzzy.co |
| 2890a0 | 6d 70 6c 65 74 69 6f 6e 20 74 72 69 65 73 20 68 61 72 64 65 72 2e 0a 0a e2 80 98 4d 2d 54 41 42 | mpletion.tries.harder......M-TAB |
| 2890c0 | e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c | .......M-x.slime-complete-symbol |
| 2890e0 | e2 80 99 0a 20 20 20 20 20 43 6f 6d 70 6c 65 74 65 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 | .........Complete.the.symbol.at. |
| 289100 | 70 6f 69 6e 74 2e 20 20 4e 6f 74 65 20 74 68 61 74 20 74 68 72 65 65 20 73 74 79 6c 65 73 20 6f | point...Note.that.three.styles.o |
| 289120 | 66 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 20 61 72 65 20 61 76 61 69 6c 61 62 6c 65 20 | f.completion......are.available. |
| 289140 | 69 6e 20 53 4c 49 4d 45 3b 20 74 68 65 20 64 65 66 61 75 6c 74 20 69 73 20 73 69 6d 69 6c 61 72 | in.SLIME;.the.default.is.similar |
| 289160 | 20 74 6f 20 6e 6f 72 6d 61 6c 20 45 6d 61 63 73 0a 20 20 20 20 20 63 6f 6d 70 6c 65 74 69 6f 6e | .to.normal.Emacs......completion |
| 289180 | 20 28 2a 6e 6f 74 65 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e | .(*note.slime-completion-at-poin |
| 2891a0 | 74 2d 66 75 6e 63 74 69 6f 6e 73 3a 3a 29 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 | t-functions::).....File:.docFDBr |
| 2891c0 | 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 | ww.info,..Node:.Finding.definiti |
| 2891e0 | 6f 6e 73 2c 20 20 4e 65 78 74 3a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2c 20 20 50 72 65 76 | ons,..Next:.Documentation,..Prev |
| 289200 | 3a 20 43 6f 6d 70 6c 65 74 69 6f 6e 2c 20 20 55 70 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 0a 0a 33 | :.Completion,..Up:.SLIME.mode..3 |
| 289220 | 2e 35 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 28 e2 80 9c 4d 65 74 61 2d | .5.Finding.definitions.(...Meta- |
| 289240 | 50 6f 69 6e 74 e2 80 9d 20 63 6f 6d 6d 61 6e 64 73 29 2e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | Point....commands)..============ |
| 289260 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ================================ |
| 289280 | 3d 3d 3d 3d 0a 0a 54 68 65 20 66 61 6d 69 6c 69 61 72 20 e2 80 98 4d 2d 2e e2 80 99 20 63 6f 6d | ====..The.familiar....M-.....com |
| 2892a0 | 6d 61 6e 64 20 69 73 20 70 72 6f 76 69 64 65 64 2e 20 20 46 6f 72 20 67 65 6e 65 72 69 63 20 66 | mand.is.provided...For.generic.f |
| 2892c0 | 75 6e 63 74 69 6f 6e 73 20 74 68 69 73 0a 63 6f 6d 6d 61 6e 64 20 66 69 6e 64 73 20 61 6c 6c 20 | unctions.this.command.finds.all. |
| 2892e0 | 6d 65 74 68 6f 64 73 2c 20 61 6e 64 20 77 69 74 68 20 73 6f 6d 65 20 73 79 73 74 65 6d 73 20 69 | methods,.and.with.some.systems.i |
| 289300 | 74 20 64 6f 65 73 20 6f 74 68 65 72 20 66 61 6e 63 79 0a 74 68 69 6e 67 73 20 28 6c 69 6b 65 20 | t.does.other.fancy.things.(like. |
| 289320 | 74 72 61 63 69 6e 67 20 73 74 72 75 63 74 75 72 65 20 61 63 63 65 73 73 6f 72 73 20 74 6f 20 74 | tracing.structure.accessors.to.t |
| 289340 | 68 65 69 72 20 e2 80 98 44 45 46 53 54 52 55 43 54 e2 80 99 0a 64 65 66 69 6e 69 74 69 6f 6e 29 | heir....DEFSTRUCT....definition) |
| 289360 | 2e 0a 0a e2 80 98 4d 2d 2e e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 | ......M-........M-x.slime-edit-d |
| 289380 | 65 66 69 6e 69 74 69 6f 6e e2 80 99 0a 20 20 20 20 20 47 6f 20 74 6f 20 74 68 65 20 64 65 66 69 | efinition.........Go.to.the.defi |
| 2893a0 | 6e 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 0a 0a | nition.of.the.symbol.at.point... |
| 2893c0 | e2 80 98 4d 2d 2c e2 80 99 0a e2 80 98 4d 2d 2a e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 | ...M-,.......M-*.......M-x.slime |
| 2893e0 | 2d 70 6f 70 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 63 6b e2 80 99 0a 20 20 | -pop-find-definition-stack...... |
| 289400 | 20 20 20 47 6f 20 62 61 63 6b 20 74 6f 20 74 68 65 20 70 6f 69 6e 74 20 77 68 65 72 65 20 e2 80 | ...Go.back.to.the.point.where... |
| 289420 | 98 4d 2d 2e e2 80 99 20 77 61 73 20 69 6e 76 6f 6b 65 64 2e 20 20 54 68 69 73 20 67 69 76 65 73 | .M-.....was.invoked...This.gives |
| 289440 | 0a 20 20 20 20 20 6d 75 6c 74 69 2d 6c 65 76 65 6c 20 62 61 63 6b 74 72 61 63 6b 69 6e 67 20 77 | ......multi-level.backtracking.w |
| 289460 | 68 65 6e 20 e2 80 98 4d 2d 2e e2 80 99 20 68 61 73 20 62 65 65 6e 20 75 73 65 64 20 73 65 76 65 | hen....M-.....has.been.used.seve |
| 289480 | 72 61 6c 20 74 69 6d 65 73 2e 0a 0a e2 80 98 43 2d 78 20 34 20 2e e2 80 99 0a e2 80 98 4d 2d 78 | ral.times......C-x.4.........M-x |
| 2894a0 | 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6f 74 68 65 72 2d 77 69 6e | .slime-edit-definition-other-win |
| 2894c0 | 64 6f 77 e2 80 99 0a 20 20 20 20 20 4c 69 6b 65 20 e2 80 98 73 6c 69 6d 65 2d 65 64 69 74 2d 64 | dow.........Like....slime-edit-d |
| 2894e0 | 65 66 69 6e 69 74 69 6f 6e e2 80 99 20 62 75 74 20 73 77 69 74 63 68 65 73 20 74 6f 20 74 68 65 | efinition....but.switches.to.the |
| 289500 | 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 20 74 6f 0a 20 20 20 20 20 65 64 69 74 20 74 68 65 20 64 | .other.window.to......edit.the.d |
| 289520 | 65 66 69 6e 69 74 69 6f 6e 20 69 6e 2e 0a 0a e2 80 98 43 2d 78 20 35 20 2e e2 80 99 0a e2 80 98 | efinition.in......C-x.5......... |
| 289540 | 4d 2d 78 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6f 74 68 65 72 2d | M-x.slime-edit-definition-other- |
| 289560 | 66 72 61 6d 65 e2 80 99 0a 20 20 20 20 20 4c 69 6b 65 20 e2 80 98 73 6c 69 6d 65 2d 65 64 69 74 | frame.........Like....slime-edit |
| 289580 | 2d 64 65 66 69 6e 69 74 69 6f 6e e2 80 99 20 62 75 74 20 6f 70 65 6e 73 20 61 6e 6f 74 68 65 72 | -definition....but.opens.another |
| 2895a0 | 20 66 72 61 6d 65 20 74 6f 20 65 64 69 74 20 74 68 65 0a 20 20 20 20 20 64 65 66 69 6e 69 74 69 | .frame.to.edit.the......definiti |
| 2895c0 | 6f 6e 20 69 6e 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 | on.in......M-x.slime-edit-defini |
| 2895e0 | 74 69 6f 6e 2d 77 69 74 68 2d 65 74 61 67 73 e2 80 99 0a 20 20 20 20 20 55 73 65 20 61 6e 20 45 | tion-with-etags.........Use.an.E |
| 289600 | 54 41 47 53 20 74 61 62 6c 65 20 74 6f 20 66 69 6e 64 20 64 65 66 69 6e 69 74 69 6f 6e 20 61 74 | TAGS.table.to.find.definition.at |
| 289620 | 20 70 6f 69 6e 74 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c | .point.....File:.docFDBrww.info, |
| 289640 | 20 20 4e 6f 64 65 3a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 43 72 | ..Node:.Documentation,..Next:.Cr |
| 289660 | 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2c 20 20 50 72 65 76 3a 20 46 69 6e 64 69 6e 67 20 64 65 | oss-reference,..Prev:.Finding.de |
| 289680 | 66 69 6e 69 74 69 6f 6e 73 2c 20 20 55 70 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 0a 0a 33 2e 36 20 | finitions,..Up:.SLIME.mode..3.6. |
| 2896a0 | 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d | Documentation.commands.========= |
| 2896c0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 53 4c 49 4d 45 e2 80 99 73 20 6f 6e 6c | =================..SLIME...s.onl |
| 2896e0 | 69 6e 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 6c 6c 6f | ine.documentation.commands.follo |
| 289700 | 77 20 74 68 65 20 65 78 61 6d 70 6c 65 20 6f 66 20 45 6d 61 63 73 20 4c 69 73 70 2e 0a 54 68 65 | w.the.example.of.Emacs.Lisp..The |
| 289720 | 20 63 6f 6d 6d 61 6e 64 73 20 61 6c 6c 20 73 68 61 72 65 20 74 68 65 20 63 6f 6d 6d 6f 6e 20 70 | .commands.all.share.the.common.p |
| 289740 | 72 65 66 69 78 20 e2 80 98 43 2d 63 20 43 2d 64 e2 80 99 20 61 6e 64 20 61 6c 6c 6f 77 20 74 68 | refix....C-c.C-d....and.allow.th |
| 289760 | 65 20 66 69 6e 61 6c 0a 6b 65 79 20 74 6f 20 62 65 20 6d 6f 64 69 66 69 65 64 20 6f 72 20 75 6e | e.final.key.to.be.modified.or.un |
| 289780 | 6d 6f 64 69 66 69 65 64 20 28 2a 6e 6f 74 65 20 4b 65 79 20 62 69 6e 64 69 6e 67 73 3a 3a 2e 29 | modified.(*note.Key.bindings::.) |
| 2897a0 | 0a 0a e2 80 98 53 50 43 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 73 70 61 63 65 e2 80 | .....SPC.......M-x.slime-space.. |
| 2897c0 | 99 0a 20 20 20 20 20 54 68 65 20 73 70 61 63 65 20 6b 65 79 20 69 6e 73 65 72 74 73 20 61 20 73 | .......The.space.key.inserts.a.s |
| 2897e0 | 70 61 63 65 2c 20 62 75 74 20 61 6c 73 6f 20 6c 6f 6f 6b 73 20 75 70 20 61 6e 64 20 64 69 73 70 | pace,.but.also.looks.up.and.disp |
| 289800 | 6c 61 79 73 20 74 68 65 0a 20 20 20 20 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 66 6f 72 20 | lays.the......argument.list.for. |
| 289820 | 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2c 20 69 66 20 74 68 65 72 65 20 | the.function.at.point,.if.there. |
| 289840 | 69 73 20 6f 6e 65 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 64 20 64 e2 80 99 0a e2 80 98 4d 2d 78 20 | is.one......C-c.C-d.d.......M-x. |
| 289860 | 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c e2 80 99 0a 20 20 20 20 20 44 65 | slime-describe-symbol.........De |
| 289880 | 73 63 72 69 62 65 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 0a 0a e2 80 98 | scribe.the.symbol.at.point...... |
| 2898a0 | 43 2d 63 20 43 2d 64 20 66 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 | C-c.C-d.f.......M-x.slime-descri |
| 2898c0 | 62 65 2d 66 75 6e 63 74 69 6f 6e e2 80 99 0a 20 20 20 20 20 44 65 73 63 72 69 62 65 20 74 68 65 | be-function.........Describe.the |
| 2898e0 | 20 66 75 6e 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 64 20 | .function.at.point......C-c.C-d. |
| 289900 | 41 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 e2 80 99 0a 20 20 20 | A.......M-x.slime-apropos....... |
| 289920 | 20 20 50 65 72 66 6f 72 6d 20 61 6e 20 61 70 72 6f 70 6f 73 20 73 65 61 72 63 68 20 6f 6e 20 4c | ..Perform.an.apropos.search.on.L |
| 289940 | 69 73 70 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 73 20 66 6f 72 20 61 20 72 65 67 75 6c 61 72 0a 20 | isp.symbol.names.for.a.regular.. |
| 289960 | 20 20 20 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 74 63 68 20 61 6e 64 20 64 69 73 70 6c 61 79 | ....expression.match.and.display |
| 289980 | 20 74 68 65 69 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 73 2e 20 20 42 | .their.documentation.strings...B |
| 2899a0 | 79 0a 20 20 20 20 20 64 65 66 61 75 6c 74 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 73 79 6d 62 | y......default.the.external.symb |
| 2899c0 | 6f 6c 73 20 6f 66 20 61 6c 6c 20 70 61 63 6b 61 67 65 73 20 61 72 65 20 73 65 61 72 63 68 65 64 | ols.of.all.packages.are.searched |
| 2899e0 | 2e 20 20 57 69 74 68 20 61 0a 20 20 20 20 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 79 | ...With.a......prefix.argument.y |
| 289a00 | 6f 75 20 63 61 6e 20 63 68 6f 6f 73 65 20 61 20 73 70 65 63 69 66 69 63 20 70 61 63 6b 61 67 65 | ou.can.choose.a.specific.package |
| 289a20 | 20 61 6e 64 20 77 68 65 74 68 65 72 20 74 6f 0a 20 20 20 20 20 69 6e 63 6c 75 64 65 20 75 6e 65 | .and.whether.to......include.une |
| 289a40 | 78 70 6f 72 74 65 64 20 73 79 6d 62 6f 6c 73 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 64 20 7a e2 80 | xported.symbols......C-c.C-d.z.. |
| 289a60 | 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 61 6c 6c e2 80 99 0a 20 20 | .....M-x.slime-apropos-all...... |
| 289a80 | 20 20 20 4c 69 6b 65 20 e2 80 98 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 e2 80 99 20 62 75 74 20 | ...Like....slime-apropos....but. |
| 289aa0 | 61 6c 73 6f 20 69 6e 63 6c 75 64 65 73 20 69 6e 74 65 72 6e 61 6c 20 73 79 6d 62 6f 6c 73 20 62 | also.includes.internal.symbols.b |
| 289ac0 | 79 20 64 65 66 61 75 6c 74 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 64 20 70 e2 80 99 0a e2 80 98 4d | y.default......C-c.C-d.p.......M |
| 289ae0 | 2d 78 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 70 61 63 6b 61 67 65 e2 80 99 0a 20 20 20 20 | -x.slime-apropos-package........ |
| 289b00 | 20 53 68 6f 77 20 61 70 72 6f 70 6f 73 20 72 65 73 75 6c 74 73 20 6f 66 20 61 6c 6c 20 73 79 6d | .Show.apropos.results.of.all.sym |
| 289b20 | 62 6f 6c 73 20 69 6e 20 61 20 70 61 63 6b 61 67 65 2e 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 | bols.in.a.package...This.command |
| 289b40 | 20 69 73 0a 20 20 20 20 20 66 6f 72 20 62 72 6f 77 73 69 6e 67 20 61 20 70 61 63 6b 61 67 65 20 | .is......for.browsing.a.package. |
| 289b60 | 61 74 20 61 20 68 69 67 68 2d 6c 65 76 65 6c 2e 20 20 57 69 74 68 20 70 61 63 6b 61 67 65 2d 6e | at.a.high-level...With.package-n |
| 289b80 | 61 6d 65 0a 20 20 20 20 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 69 74 20 61 6c 73 6f 20 73 65 72 76 | ame......completion.it.also.serv |
| 289ba0 | 65 73 20 61 73 20 61 20 72 75 64 69 6d 65 6e 74 61 72 79 20 53 6d 61 6c 6c 74 61 6c 6b 2d 69 73 | es.as.a.rudimentary.Smalltalk-is |
| 289bc0 | 68 0a 20 20 20 20 20 69 6d 61 67 65 2d 62 72 6f 77 73 65 72 2e 0a 0a e2 80 98 43 2d 63 20 43 2d | h......image-browser......C-c.C- |
| 289be0 | 64 20 68 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 68 79 70 65 72 73 70 65 63 2d 6c 6f | d.h.......M-x.slime-hyperspec-lo |
| 289c00 | 6f 6b 75 70 e2 80 99 0a 20 20 20 20 20 4c 6f 6f 6b 75 70 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 | okup.........Lookup.the.symbol.a |
| 289c20 | 74 20 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 e2 80 98 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 48 79 | t.point.in.the....Common.Lisp.Hy |
| 289c40 | 70 65 72 73 70 65 63 e2 80 99 2e 20 20 54 68 69 73 0a 20 20 20 20 20 75 73 65 73 20 74 68 65 20 | perspec......This......uses.the. |
| 289c60 | 66 61 6d 69 6c 69 61 72 20 e2 80 98 68 79 70 65 72 73 70 65 63 2e 65 6c e2 80 99 20 74 6f 20 73 | familiar....hyperspec.el....to.s |
| 289c80 | 68 6f 77 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 73 65 63 74 69 6f 6e 20 69 6e 0a 20 | how.the.appropriate.section.in.. |
| 289ca0 | 20 20 20 20 61 20 77 65 62 20 62 72 6f 77 73 65 72 2e 20 20 54 68 65 20 48 79 70 65 72 73 70 65 | ....a.web.browser...The.Hyperspe |
| 289cc0 | 63 20 69 73 20 66 6f 75 6e 64 20 65 69 74 68 65 72 20 6f 6e 20 74 68 65 20 57 65 62 20 6f 72 20 | c.is.found.either.on.the.Web.or. |
| 289ce0 | 69 6e 0a 20 20 20 20 20 e2 80 98 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 68 79 70 65 72 73 70 65 63 | in.........common-lisp-hyperspec |
| 289d00 | 2d 72 6f 6f 74 e2 80 99 2c 20 61 6e 64 20 74 68 65 20 62 72 6f 77 73 65 72 20 69 73 20 73 65 6c | -root...,.and.the.browser.is.sel |
| 289d20 | 65 63 74 65 64 20 62 79 0a 20 20 20 20 20 e2 80 98 62 72 6f 77 73 65 2d 75 72 6c 2d 62 72 6f 77 | ected.by.........browse-url-brow |
| 289d40 | 73 65 72 2d 66 75 6e 63 74 69 6f 6e e2 80 99 2e 0a 0a 20 20 20 20 20 4e 6f 74 65 3a 20 74 68 69 | ser-function...........Note:.thi |
| 289d60 | 73 20 69 73 20 6f 6e 65 20 63 61 73 65 20 77 68 65 72 65 20 e2 80 98 43 2d 63 20 43 2d 64 20 68 | s.is.one.case.where....C-c.C-d.h |
| 289d80 | e2 80 99 20 69 73 20 5f 6e 6f 74 5f 20 74 68 65 20 73 61 6d 65 20 61 73 20 e2 80 98 43 2d 63 0a | ....is._not_.the.same.as....C-c. |
| 289da0 | 20 20 20 20 20 43 2d 64 20 43 2d 68 e2 80 99 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 64 20 7e e2 80 | .....C-d.C-h.........C-c.C-d.~.. |
| 289dc0 | 99 0a e2 80 98 4d 2d 78 20 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 2d 66 6f 72 6d 61 74 | .....M-x.hyperspec-lookup-format |
| 289de0 | e2 80 99 0a 20 20 20 20 20 4c 6f 6f 6b 75 70 20 61 20 5f 66 6f 72 6d 61 74 20 63 68 61 72 61 63 | .........Lookup.a._format.charac |
| 289e00 | 74 65 72 5f 20 69 6e 20 74 68 65 20 e2 80 98 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 48 79 70 65 72 | ter_.in.the....Common.Lisp.Hyper |
| 289e20 | 73 70 65 63 e2 80 99 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 64 20 23 e2 80 99 0a e2 80 98 4d 2d 78 | spec.........C-c.C-d.#.......M-x |
| 289e40 | 20 68 79 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 2d 72 65 61 64 65 72 2d 6d 61 63 72 6f e2 80 | .hyperspec-lookup-reader-macro.. |
| 289e60 | 99 0a 20 20 20 20 20 4c 6f 6f 6b 75 70 20 61 20 5f 72 65 61 64 65 72 20 6d 61 63 72 6f 5f 20 69 | .......Lookup.a._reader.macro_.i |
| 289e80 | 6e 20 74 68 65 20 e2 80 98 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 48 79 70 65 72 73 70 65 63 e2 80 | n.the....Common.Lisp.Hyperspec.. |
| 289ea0 | 99 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 | ......File:.docFDBrww.info,..Nod |
| 289ec0 | 65 3a 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2c 20 20 4e 65 78 74 3a 20 4d 61 63 72 6f | e:.Cross-reference,..Next:.Macro |
| 289ee0 | 2d 65 78 70 61 6e 73 69 6f 6e 2c 20 20 50 72 65 76 3a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | -expansion,..Prev:.Documentation |
| 289f00 | 2c 20 20 55 70 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 0a 0a 33 2e 37 20 43 72 6f 73 73 2d 72 65 66 | ,..Up:.SLIME.mode..3.7.Cross-ref |
| 289f20 | 65 72 65 6e 63 65 20 63 6f 6d 6d 61 6e 64 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | erence.commands.================ |
| 289f40 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 53 4c 49 4d 45 e2 80 99 73 20 63 72 6f 73 73 2d 72 65 | ============..SLIME...s.cross-re |
| 289f60 | 66 65 72 65 6e 63 65 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 62 61 73 65 64 20 6f 6e 20 74 68 | ference.commands.are.based.on.th |
| 289f80 | 65 20 73 75 70 70 6f 72 74 20 70 72 6f 76 69 64 65 64 20 62 79 0a 74 68 65 20 4c 69 73 70 20 73 | e.support.provided.by.the.Lisp.s |
| 289fa0 | 79 73 74 65 6d 2c 20 77 68 69 63 68 20 76 61 72 69 65 73 20 77 69 64 65 6c 79 20 62 65 74 77 65 | ystem,.which.varies.widely.betwe |
| 289fc0 | 65 6e 20 4c 69 73 70 73 2e 20 20 46 6f 72 20 73 79 73 74 65 6d 73 20 77 69 74 68 20 6e 6f 0a 62 | en.Lisps...For.systems.with.no.b |
| 289fe0 | 75 69 6c 74 2d 69 6e 20 58 52 45 46 20 73 75 70 70 6f 72 74 20 53 4c 49 4d 45 20 71 75 65 72 69 | uilt-in.XREF.support.SLIME.queri |
| 28a000 | 65 73 20 61 20 70 6f 72 74 61 62 6c 65 20 58 52 45 46 20 70 61 63 6b 61 67 65 2c 20 77 68 69 63 | es.a.portable.XREF.package,.whic |
| 28a020 | 68 20 69 73 0a 74 61 6b 65 6e 20 66 72 6f 6d 20 74 68 65 20 e2 80 98 43 4d 55 20 41 49 20 52 65 | h.is.taken.from.the....CMU.AI.Re |
| 28a040 | 70 6f 73 69 74 6f 72 79 e2 80 99 20 61 6e 64 20 62 75 6e 64 6c 65 64 20 77 69 74 68 20 53 4c 49 | pository....and.bundled.with.SLI |
| 28a060 | 4d 45 2e 0a 0a 20 20 20 45 61 63 68 20 63 6f 6d 6d 61 6e 64 20 6f 70 65 72 61 74 65 73 20 6f 6e | ME......Each.command.operates.on |
| 28a080 | 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2c 20 6f 72 20 70 72 6f 6d 70 74 73 | .the.symbol.at.point,.or.prompts |
| 28a0a0 | 20 69 66 20 74 68 65 72 65 20 69 73 0a 6e 6f 6e 65 2e 20 20 57 69 74 68 20 61 20 70 72 65 66 69 | .if.there.is.none...With.a.prefi |
| 28a0c0 | 78 20 61 72 67 75 6d 65 6e 74 20 74 68 65 79 20 61 6c 77 61 79 73 20 70 72 6f 6d 70 74 2e 20 20 | x.argument.they.always.prompt... |
| 28a0e0 | 59 6f 75 20 63 61 6e 20 65 69 74 68 65 72 20 65 6e 74 65 72 0a 74 68 65 20 6b 65 79 20 62 69 6e | You.can.either.enter.the.key.bin |
| 28a100 | 64 69 6e 67 73 20 61 73 20 73 68 6f 77 6e 20 68 65 72 65 20 6f 72 20 77 69 74 68 20 74 68 65 20 | dings.as.shown.here.or.with.the. |
| 28a120 | 63 6f 6e 74 72 6f 6c 20 6d 6f 64 69 66 69 65 64 20 6f 6e 20 74 68 65 20 6c 61 73 74 0a 6b 65 79 | control.modified.on.the.last.key |
| 28a140 | 2c 20 2a 4e 6f 74 65 20 4b 65 79 20 62 69 6e 64 69 6e 67 73 3a 3a 2e 0a 0a 2a 20 4d 65 6e 75 3a | ,.*Note.Key.bindings::...*.Menu: |
| 28a160 | 0a 0a 2a 20 58 72 65 66 20 62 75 66 66 65 72 20 63 6f 6d 6d 61 6e 64 73 3a 3a 0a 0a e2 80 98 43 | ..*.Xref.buffer.commands::.....C |
| 28a180 | 2d 63 20 43 2d 77 20 63 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 77 68 6f 2d 63 61 6c | -c.C-w.c.......M-x.slime-who-cal |
| 28a1a0 | 6c 73 e2 80 99 0a 20 20 20 20 20 53 68 6f 77 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 65 72 73 | ls.........Show.function.callers |
| 28a1c0 | 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 77 20 77 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d | ......C-c.C-w.w.......M-x.slime- |
| 28a1e0 | 63 61 6c 6c 73 2d 77 68 6f e2 80 99 0a 20 20 20 20 20 53 68 6f 77 20 61 6c 6c 20 6b 6e 6f 77 6e | calls-who.........Show.all.known |
| 28a200 | 20 63 61 6c 6c 65 65 73 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 77 20 72 e2 80 99 0a e2 80 98 4d 2d | .callees......C-c.C-w.r.......M- |
| 28a220 | 78 20 73 6c 69 6d 65 2d 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 e2 80 99 0a 20 20 20 20 20 53 | x.slime-who-references.........S |
| 28a240 | 68 6f 77 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c | how.references.to.global.variabl |
| 28a260 | 65 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 77 20 62 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 | e......C-c.C-w.b.......M-x.slime |
| 28a280 | 2d 77 68 6f 2d 62 69 6e 64 73 e2 80 99 0a 20 20 20 20 20 53 68 6f 77 20 62 69 6e 64 69 6e 67 73 | -who-binds.........Show.bindings |
| 28a2a0 | 20 6f 66 20 61 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 2e 0a 0a e2 80 98 43 2d 63 20 43 | .of.a.global.variable......C-c.C |
| 28a2c0 | 2d 77 20 73 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 77 68 6f 2d 73 65 74 73 e2 80 99 | -w.s.......M-x.slime-who-sets... |
| 28a2e0 | 0a 20 20 20 20 20 53 68 6f 77 20 61 73 73 69 67 6e 6d 65 6e 74 73 20 74 6f 20 61 20 67 6c 6f 62 | ......Show.assignments.to.a.glob |
| 28a300 | 61 6c 20 76 61 72 69 61 62 6c 65 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 77 20 6d e2 80 99 0a e2 80 | al.variable......C-c.C-w.m...... |
| 28a320 | 98 4d 2d 78 20 73 6c 69 6d 65 2d 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 e2 80 99 0a 20 | .M-x.slime-who-macroexpands..... |
| 28a340 | 20 20 20 20 53 68 6f 77 20 65 78 70 61 6e 73 69 6f 6e 73 20 6f 66 20 61 20 6d 61 63 72 6f 2e 0a | ....Show.expansions.of.a.macro.. |
| 28a360 | 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 e2 80 99 | ....M-x.slime-who-specializes... |
| 28a380 | 0a 20 20 20 20 20 53 68 6f 77 20 61 6c 6c 20 6b 6e 6f 77 6e 20 6d 65 74 68 6f 64 73 20 73 70 65 | ......Show.all.known.methods.spe |
| 28a3a0 | 63 69 61 6c 69 7a 65 64 20 6f 6e 20 61 20 63 6c 61 73 73 2e 0a 0a 20 20 20 54 68 65 72 65 20 61 | cialized.on.a.class......There.a |
| 28a3c0 | 72 65 20 61 6c 73 6f 20 e2 80 9c 4c 69 73 74 20 63 61 6c 6c 65 72 73 2f 63 61 6c 6c 65 65 73 e2 | re.also....List.callers/callees. |
| 28a3e0 | 80 9d 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 54 68 65 73 65 20 6f 70 65 72 61 74 65 20 62 79 0a 72 | ...commands...These.operate.by.r |
| 28a400 | 75 6d 6d 61 67 69 6e 67 20 74 68 72 6f 75 67 68 20 66 75 6e 63 74 69 6f 6e 20 6f 62 6a 65 63 74 | ummaging.through.function.object |
| 28a420 | 73 20 6f 6e 20 74 68 65 20 68 65 61 70 20 61 74 20 61 20 6c 6f 77 2d 6c 65 76 65 6c 20 74 6f 0a | s.on.the.heap.at.a.low-level.to. |
| 28a440 | 64 69 73 63 6f 76 65 72 20 74 68 65 20 63 61 6c 6c 20 67 72 61 70 68 2e 20 20 54 68 65 79 20 61 | discover.the.call.graph...They.a |
| 28a460 | 72 65 20 6f 6e 6c 79 20 61 76 61 69 6c 61 62 6c 65 20 77 69 74 68 20 73 6f 6d 65 20 4c 69 73 70 | re.only.available.with.some.Lisp |
| 28a480 | 0a 73 79 73 74 65 6d 73 2c 20 61 6e 64 20 61 72 65 20 6d 6f 73 74 20 75 73 65 66 75 6c 20 61 73 | .systems,.and.are.most.useful.as |
| 28a4a0 | 20 61 20 66 61 6c 6c 62 61 63 6b 20 77 68 65 6e 20 70 72 65 63 69 73 65 20 58 52 45 46 20 69 6e | .a.fallback.when.precise.XREF.in |
| 28a4c0 | 66 6f 72 6d 61 74 69 6f 6e 0a 69 73 20 75 6e 61 76 61 69 6c 61 62 6c 65 2e 0a 0a e2 80 98 43 2d | formation.is.unavailable......C- |
| 28a4e0 | 63 20 3c e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 61 6c 6c 65 72 73 | c.<.......M-x.slime-list-callers |
| 28a500 | e2 80 99 0a 20 20 20 20 20 4c 69 73 74 20 63 61 6c 6c 65 72 73 20 6f 66 20 61 20 66 75 6e 63 74 | .........List.callers.of.a.funct |
| 28a520 | 69 6f 6e 2e 0a 0a e2 80 98 43 2d 63 20 3e e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 6c | ion......C-c.>.......M-x.slime-l |
| 28a540 | 69 73 74 2d 63 61 6c 6c 65 65 73 e2 80 99 0a 20 20 20 20 20 4c 69 73 74 20 63 61 6c 6c 65 65 73 | ist-callees.........List.callees |
| 28a560 | 20 6f 66 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 | .of.a.function.....File:.docFDBr |
| 28a580 | 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 58 72 65 66 20 62 75 66 66 65 72 20 63 6f 6d 6d | ww.info,..Node:.Xref.buffer.comm |
| 28a5a0 | 61 6e 64 73 2c 20 20 55 70 3a 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 0a 0a 33 2e 37 2e | ands,..Up:.Cross-reference..3.7. |
| 28a5c0 | 31 20 58 72 65 66 20 62 75 66 66 65 72 20 63 6f 6d 6d 61 6e 64 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d | 1.Xref.buffer.commands.--------- |
| 28a5e0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 43 6f 6d 6d 61 6e 64 73 20 61 76 61 69 | -----------------..Commands.avai |
| 28a600 | 6c 61 62 6c 65 20 69 6e 20 58 72 65 66 20 62 75 66 66 65 72 73 0a 0a e2 80 98 52 45 54 e2 80 99 | lable.in.Xref.buffers.....RET... |
| 28a620 | 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 73 68 6f 77 2d 78 72 65 66 e2 80 99 0a 20 20 20 20 20 | ....M-x.slime-show-xref......... |
| 28a640 | 53 68 6f 77 20 64 65 66 69 6e 69 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 | Show.definition.at.point.in.the. |
| 28a660 | 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 20 20 44 6f 20 6e 6f 74 20 6c 65 61 76 65 20 58 72 65 66 | other.window...Do.not.leave.Xref |
| 28a680 | 0a 20 20 20 20 20 62 75 66 66 65 72 2e 0a 0a e2 80 98 53 70 61 63 65 e2 80 99 0a e2 80 98 4d 2d | ......buffer......Space.......M- |
| 28a6a0 | 78 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 78 72 65 66 e2 80 99 0a 20 20 20 20 20 53 68 6f 77 20 64 | x.slime-goto-xref.........Show.d |
| 28a6c0 | 65 66 69 6e 69 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 20 69 6e 20 74 68 65 20 6f 74 68 65 72 20 | efinition.at.point.in.the.other. |
| 28a6e0 | 77 69 6e 64 6f 77 20 61 6e 64 20 63 6c 6f 73 65 20 58 72 65 66 20 62 75 66 66 65 72 2e 0a 0a e2 | window.and.close.Xref.buffer.... |
| 28a700 | 80 98 43 2d 63 20 43 2d 63 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 63 6f 6d 70 | ..C-c.C-c.......M-x.slime-recomp |
| 28a720 | 69 6c 65 2d 78 72 65 66 e2 80 99 0a 20 20 20 20 20 52 65 63 6f 6d 70 69 6c 65 20 64 65 66 69 6e | ile-xref.........Recompile.defin |
| 28a740 | 69 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 6b e2 80 99 0a e2 | ition.at.point......C-c.C-k..... |
| 28a760 | 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 61 6c 6c 2d 78 72 65 66 73 e2 | ..M-x.slime-recompile-all-xrefs. |
| 28a780 | 80 99 0a 20 20 20 20 20 52 65 63 6f 6d 70 69 6c 65 20 61 6c 6c 20 64 65 66 69 6e 69 74 69 6f 6e | ........Recompile.all.definition |
| 28a7a0 | 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 | s.....File:.docFDBrww.info,..Nod |
| 28a7c0 | 65 3a 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 44 69 73 61 73 | e:.Macro-expansion,..Next:.Disas |
| 28a7e0 | 73 65 6d 62 6c 79 2c 20 20 50 72 65 76 3a 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2c 20 | sembly,..Prev:.Cross-reference,. |
| 28a800 | 20 55 70 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 0a 0a 33 2e 38 20 4d 61 63 72 6f 2d 65 78 70 61 6e | .Up:.SLIME.mode..3.8.Macro-expan |
| 28a820 | 73 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | sion.commands.================== |
| 28a840 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a e2 80 98 43 2d 63 20 43 2d 6d e2 80 99 0a e2 80 98 4d 2d 78 | ==========.....C-c.C-m.......M-x |
| 28a860 | 20 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 31 e2 80 99 0a 20 20 20 20 20 4d 61 63 72 6f 65 78 70 | .slime-expand-1.........Macroexp |
| 28a880 | 61 6e 64 20 28 6f 72 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 29 20 74 68 | and.(or.compiler-macroexpand).th |
| 28a8a0 | 65 20 65 78 70 72 65 73 73 69 6f 6e 20 73 74 61 72 74 69 6e 67 20 61 74 0a 20 20 20 20 20 70 6f | e.expression.starting.at......po |
| 28a8c0 | 69 6e 74 20 6f 6e 63 65 2e 20 20 49 66 20 69 6e 76 6f 6b 65 64 20 77 69 74 68 20 61 20 70 72 65 | int.once...If.invoked.with.a.pre |
| 28a8e0 | 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 75 73 65 20 6d 61 63 72 6f 65 78 70 61 6e 64 0a 20 20 | fix.argument,.use.macroexpand... |
| 28a900 | 20 20 20 69 6e 73 74 65 61 64 20 6f 66 20 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 28 6f 72 20 | ...instead.of.macroexpand-1.(or. |
| 28a920 | 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 69 6e 73 74 65 61 64 20 6f 66 0a | compiler-macroexpand.instead.of. |
| 28a940 | 20 20 20 20 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 29 2e 0a 0a e2 | .....compiler-macroexpand-1).... |
| 28a960 | 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 e2 80 99 0a 20 20 20 | ..M-x.slime-macroexpand-1....... |
| 28a980 | 20 20 4d 61 63 72 6f 65 78 70 61 6e 64 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 73 74 61 | ..Macroexpand.the.expression.sta |
| 28a9a0 | 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 20 6f 6e 63 65 2e 20 20 49 66 20 69 6e 76 6f 6b 65 64 | rting.at.point.once...If.invoked |
| 28a9c0 | 20 77 69 74 68 0a 20 20 20 20 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 75 73 | .with......a.prefix.argument,.us |
| 28a9e0 | 65 20 6d 61 63 72 6f 65 78 70 61 6e 64 20 69 6e 73 74 65 61 64 20 6f 66 20 6d 61 63 72 6f 65 78 | e.macroexpand.instead.of.macroex |
| 28aa00 | 70 61 6e 64 2d 31 2e 0a 0a e2 80 98 43 2d 63 20 4d 2d 6d e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c | pand-1......C-c.M-m.......M-x.sl |
| 28aa20 | 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c e2 80 99 0a 20 20 20 20 20 46 75 6c 6c | ime-macroexpand-all.........Full |
| 28aa40 | 79 20 6d 61 63 72 6f 65 78 70 61 6e 64 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 73 74 61 | y.macroexpand.the.expression.sta |
| 28aa60 | 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f | rting.at.point......M-x.slime-co |
| 28aa80 | 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 e2 80 99 0a 20 20 20 20 20 44 69 73 | mpiler-macroexpand-1.........Dis |
| 28aaa0 | 70 6c 61 79 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 65 78 70 61 6e 73 69 6f | play.the.compiler-macro.expansio |
| 28aac0 | 6e 20 6f 66 20 73 65 78 70 20 73 74 61 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 0a 0a e2 80 | n.of.sexp.starting.at.point..... |
| 28aae0 | 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 e2 | .M-x.slime-compiler-macroexpand. |
| 28ab00 | 80 99 0a 20 20 20 20 20 52 65 70 65 61 74 65 64 6c 79 20 65 78 70 61 6e 64 20 63 6f 6d 70 69 6c | ........Repeatedly.expand.compil |
| 28ab20 | 65 72 20 6d 61 63 72 6f 73 20 6f 66 20 73 65 78 70 20 73 74 61 72 74 69 6e 67 20 61 74 20 70 6f | er.macros.of.sexp.starting.at.po |
| 28ab40 | 69 6e 74 2e 0a 0a 20 20 20 46 6f 72 20 61 64 64 69 74 69 6f 6e 61 6c 20 6d 69 6e 6f 72 2d 6d 6f | int......For.additional.minor-mo |
| 28ab60 | 64 65 20 63 6f 6d 6d 61 6e 64 73 20 61 6e 64 20 64 69 73 63 75 73 73 69 6f 6e 2c 20 2a 6e 6f 74 | de.commands.and.discussion,.*not |
| 28ab80 | 65 0a 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 | e.slime-macroexpansion-minor-mod |
| 28aba0 | 65 3a 3a 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e | e::.....File:.docFDBrww.info,..N |
| 28abc0 | 6f 64 65 3a 20 44 69 73 61 73 73 65 6d 62 6c 79 2c 20 20 4e 65 78 74 3a 20 52 65 63 6f 76 65 72 | ode:.Disassembly,..Next:.Recover |
| 28abe0 | 79 2c 20 20 50 72 65 76 3a 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 2c 20 20 55 70 3a 20 | y,..Prev:.Macro-expansion,..Up:. |
| 28ac00 | 53 4c 49 4d 45 20 6d 6f 64 65 0a 0a 33 2e 39 20 44 69 73 61 73 73 65 6d 62 6c 79 20 63 6f 6d 6d | SLIME.mode..3.9.Disassembly.comm |
| 28ac20 | 61 6e 64 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a e2 | ands.========================... |
| 28ac40 | 80 98 43 2d 63 20 4d 2d 64 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 64 69 73 61 73 73 | ..C-c.M-d.......M-x.slime-disass |
| 28ac60 | 65 6d 62 6c 65 2d 73 79 6d 62 6f 6c e2 80 99 0a 20 20 20 20 20 44 69 73 61 73 73 65 6d 62 6c 65 | emble-symbol.........Disassemble |
| 28ac80 | 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 | .the.function.definition.of.the. |
| 28aca0 | 73 79 6d 62 6f 6c 20 61 74 20 70 6f 69 6e 74 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 74 e2 80 99 0a | symbol.at.point......C-c.C-t.... |
| 28acc0 | e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 66 64 65 66 69 6e | ...M-x.slime-toggle-trace-fdefin |
| 28ace0 | 69 74 69 6f 6e e2 80 99 0a 20 20 20 20 20 54 6f 67 67 6c 65 20 74 72 61 63 69 6e 67 20 6f 66 20 | ition.........Toggle.tracing.of. |
| 28ad00 | 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2e 20 20 49 66 20 69 6e 76 6f 6b | the.function.at.point...If.invok |
| 28ad20 | 65 64 20 77 69 74 68 20 61 20 70 72 65 66 69 78 0a 20 20 20 20 20 61 72 67 75 6d 65 6e 74 2c 20 | ed.with.a.prefix......argument,. |
| 28ad40 | 72 65 61 64 20 61 64 64 69 74 69 6f 6e 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 6c 69 6b | read.additional.information,.lik |
| 28ad60 | 65 20 77 68 69 63 68 20 70 61 72 74 69 63 75 6c 61 72 20 6d 65 74 68 6f 64 0a 20 20 20 20 20 73 | e.which.particular.method......s |
| 28ad80 | 68 6f 75 6c 64 20 62 65 20 74 72 61 63 65 64 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 75 | hould.be.traced......M-x.slime-u |
| 28ada0 | 6e 74 72 61 63 65 2d 61 6c 6c e2 80 99 0a 20 20 20 20 20 55 6e 74 72 61 63 65 20 61 6c 6c 20 66 | ntrace-all.........Untrace.all.f |
| 28adc0 | 75 6e 63 74 69 6f 6e 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 | unctions.....File:.docFDBrww.inf |
| 28ade0 | 6f 2c 20 20 4e 6f 64 65 3a 20 52 65 63 6f 76 65 72 79 2c 20 20 4e 65 78 74 3a 20 49 6e 73 70 65 | o,..Node:.Recovery,..Next:.Inspe |
| 28ae00 | 63 74 6f 72 2c 20 20 50 72 65 76 3a 20 44 69 73 61 73 73 65 6d 62 6c 79 2c 20 20 55 70 3a 20 53 | ctor,..Prev:.Disassembly,..Up:.S |
| 28ae20 | 4c 49 4d 45 20 6d 6f 64 65 0a 0a 33 2e 31 30 20 41 62 6f 72 74 2f 52 65 63 6f 76 65 72 79 20 63 | LIME.mode..3.10.Abort/Recovery.c |
| 28ae40 | 6f 6d 6d 61 6e 64 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ommands.======================== |
| 28ae60 | 3d 3d 3d 3d 0a 0a e2 80 98 43 2d 63 20 43 2d 62 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 | ====.....C-c.C-b.......M-x.slime |
| 28ae80 | 2d 69 6e 74 65 72 72 75 70 74 e2 80 99 0a 20 20 20 20 20 49 6e 74 65 72 72 75 70 74 20 4c 69 73 | -interrupt.........Interrupt.Lis |
| 28aea0 | 70 20 28 73 65 6e 64 20 e2 80 98 53 49 47 49 4e 54 e2 80 99 29 2e 0a 0a e2 80 98 4d 2d 78 20 73 | p.(send....SIGINT...)......M-x.s |
| 28aec0 | 6c 69 6d 65 2d 72 65 73 74 61 72 74 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 e2 80 99 0a 20 20 | lime-restart-inferior-lisp...... |
| 28aee0 | 20 20 20 52 65 73 74 61 72 74 20 74 68 65 20 e2 80 98 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 e2 | ...Restart.the....inferior-lisp. |
| 28af00 | 80 99 20 70 72 6f 63 65 73 73 2e 0a 0a e2 80 98 43 2d 63 20 7e e2 80 99 0a e2 80 98 4d 2d 78 20 | ...process......C-c.~.......M-x. |
| 28af20 | 73 6c 69 6d 65 2d 73 79 6e 63 2d 70 61 63 6b 61 67 65 2d 61 6e 64 2d 64 65 66 61 75 6c 74 2d 64 | slime-sync-package-and-default-d |
| 28af40 | 69 72 65 63 74 6f 72 79 e2 80 99 0a 20 20 20 20 20 53 79 6e 63 68 72 6f 6e 69 7a 65 20 74 68 65 | irectory.........Synchronize.the |
| 28af60 | 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 61 6e 64 20 77 6f 72 6b 69 6e 67 20 64 69 72 | .current.package.and.working.dir |
| 28af80 | 65 63 74 6f 72 79 20 66 72 6f 6d 20 45 6d 61 63 73 20 74 6f 0a 20 20 20 20 20 4c 69 73 70 2e 0a | ectory.from.Emacs.to......Lisp.. |
| 28afa0 | 0a e2 80 98 43 2d 63 20 4d 2d 70 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 70 6c | ....C-c.M-p.......M-x.slime-repl |
| 28afc0 | 2d 73 65 74 2d 70 61 63 6b 61 67 65 e2 80 99 0a 20 20 20 20 20 53 65 74 20 74 68 65 20 63 75 72 | -set-package.........Set.the.cur |
| 28afe0 | 72 65 6e 74 20 70 61 63 6b 61 67 65 20 6f 66 20 74 68 65 20 52 45 50 4c 2e 0a 0a e2 80 98 4d 2d | rent.package.of.the.REPL......M- |
| 28b000 | 78 20 73 6c 69 6d 65 2d 63 64 e2 80 99 0a 20 20 20 20 20 53 65 74 20 74 68 65 20 63 75 72 72 65 | x.slime-cd.........Set.the.curre |
| 28b020 | 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 | nt.directory.of.the.Lisp.process |
| 28b040 | 2e 20 20 54 68 69 73 20 61 6c 73 6f 20 63 68 61 6e 67 65 73 0a 20 20 20 20 20 74 68 65 20 63 75 | ...This.also.changes......the.cu |
| 28b060 | 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 | rrent.directory.of.the.REPL.buff |
| 28b080 | 65 72 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 70 77 64 e2 80 99 0a 20 20 20 20 20 50 72 | er......M-x.slime-pwd.........Pr |
| 28b0a0 | 69 6e 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 65 | int.the.current.directory.of.the |
| 28b0c0 | 20 4c 69 73 70 20 70 72 6f 63 65 73 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 | .Lisp.process.....File:.docFDBrw |
| 28b0e0 | 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 49 6e 73 70 65 63 74 6f 72 2c 20 20 4e 65 78 74 3a | w.info,..Node:.Inspector,..Next: |
| 28b100 | 20 50 72 6f 66 69 6c 69 6e 67 2c 20 20 50 72 65 76 3a 20 52 65 63 6f 76 65 72 79 2c 20 20 55 70 | .Profiling,..Prev:.Recovery,..Up |
| 28b120 | 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 0a 0a 33 2e 31 31 20 49 6e 73 70 65 63 74 6f 72 20 63 6f 6d | :.SLIME.mode..3.11.Inspector.com |
| 28b140 | 6d 61 6e 64 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 | mands.=======================..T |
| 28b160 | 68 65 20 53 4c 49 4d 45 20 69 6e 73 70 65 63 74 6f 72 20 69 73 20 61 20 45 6d 61 63 73 2d 62 61 | he.SLIME.inspector.is.a.Emacs-ba |
| 28b180 | 73 65 64 20 61 6c 74 65 72 6e 61 74 69 76 65 20 74 6f 20 74 68 65 20 73 74 61 6e 64 61 72 64 0a | sed.alternative.to.the.standard. |
| 28b1a0 | e2 80 98 49 4e 53 50 45 43 54 e2 80 99 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 69 6e 73 | ...INSPECT....function...The.ins |
| 28b1c0 | 70 65 63 74 6f 72 20 70 72 65 73 65 6e 74 73 20 6f 62 6a 65 63 74 73 20 69 6e 20 45 6d 61 63 73 | pector.presents.objects.in.Emacs |
| 28b1e0 | 20 62 75 66 66 65 72 73 0a 75 73 69 6e 67 20 61 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 | .buffers.using.a.combination.of. |
| 28b200 | 70 6c 61 69 6e 20 74 65 78 74 2c 20 68 79 70 65 72 6c 69 6e 6b 73 20 74 6f 20 72 65 6c 61 74 65 | plain.text,.hyperlinks.to.relate |
| 28b220 | 64 20 6f 62 6a 65 63 74 73 2e 0a 0a 20 20 20 54 68 65 20 69 6e 73 70 65 63 74 6f 72 20 63 61 6e | d.objects......The.inspector.can |
| 28b240 | 20 65 61 73 69 6c 79 20 62 65 20 73 70 65 63 69 61 6c 69 7a 65 64 20 66 6f 72 20 74 68 65 20 6f | .easily.be.specialized.for.the.o |
| 28b260 | 62 6a 65 63 74 73 20 69 6e 20 79 6f 75 72 20 6f 77 6e 0a 70 72 6f 67 72 61 6d 73 2e 20 20 46 6f | bjects.in.your.own.programs...Fo |
| 28b280 | 72 20 64 65 74 61 69 6c 73 20 73 65 65 20 74 68 65 20 e2 80 98 69 6e 73 70 65 63 74 2d 66 6f 72 | r.details.see.the....inspect-for |
| 28b2a0 | 2d 65 6d 61 63 73 e2 80 99 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 69 6e 0a e2 80 | -emacs....generic.function.in... |
| 28b2c0 | 98 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 2e 6c 69 73 70 e2 80 99 2e 0a 0a e2 80 98 43 2d 63 20 | .swank/backend.lisp.........C-c. |
| 28b2e0 | 49 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 e2 80 99 0a 20 20 20 | I.......M-x.slime-inspect....... |
| 28b300 | 20 20 49 6e 73 70 65 63 74 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61 6e 20 65 78 70 72 65 73 | ..Inspect.the.value.of.an.expres |
| 28b320 | 73 69 6f 6e 20 65 6e 74 65 72 65 64 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a | sion.entered.in.the.minibuffer.. |
| 28b340 | 0a 20 20 20 54 68 65 20 73 74 61 6e 64 61 72 64 20 63 6f 6d 6d 61 6e 64 73 20 61 76 61 69 6c 61 | ....The.standard.commands.availa |
| 28b360 | 62 6c 65 20 69 6e 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 61 72 65 3a 0a 0a e2 80 98 52 45 | ble.in.the.inspector.are:.....RE |
| 28b380 | 54 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6f 70 65 72 | T.......M-x.slime-inspector-oper |
| 28b3a0 | 61 74 65 2d 6f 6e 2d 70 6f 69 6e 74 e2 80 99 0a 20 20 20 20 20 49 66 20 70 6f 69 6e 74 20 69 73 | ate-on-point.........If.point.is |
| 28b3c0 | 20 6f 6e 20 61 20 76 61 6c 75 65 20 74 68 65 6e 20 72 65 63 75 72 73 69 76 65 6c 79 20 63 61 6c | .on.a.value.then.recursively.cal |
| 28b3e0 | 6c 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 6f 6e 20 74 68 61 74 0a 20 20 20 20 20 76 61 6c | l.the.inspector.on.that......val |
| 28b400 | 75 65 2e 20 20 49 66 20 70 6f 69 6e 74 20 69 73 20 6f 6e 20 61 6e 20 61 63 74 69 6f 6e 20 74 68 | ue...If.point.is.on.an.action.th |
| 28b420 | 65 6e 20 63 61 6c 6c 20 74 68 61 74 20 61 63 74 69 6f 6e 2e 0a 0a e2 80 98 64 e2 80 99 0a e2 80 | en.call.that.action......d...... |
| 28b440 | 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 64 65 73 63 72 69 62 65 e2 80 99 | .M-x.slime-inspector-describe... |
| 28b460 | 0a 20 20 20 20 20 44 65 73 63 72 69 62 65 20 74 68 65 20 73 6c 6f 74 20 61 74 20 70 6f 69 6e 74 | ......Describe.the.slot.at.point |
| 28b480 | 2e 0a 0a e2 80 98 65 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f | ......e.......M-x.slime-inspecto |
| 28b4a0 | 72 2d 65 76 61 6c e2 80 99 0a 20 20 20 20 20 45 76 61 6c 75 61 74 65 20 61 6e 20 65 78 70 72 65 | r-eval.........Evaluate.an.expre |
| 28b4c0 | 73 73 69 6f 6e 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 68 65 20 69 6e 73 70 | ssion.in.the.context.of.the.insp |
| 28b4e0 | 65 63 74 65 64 20 6f 62 6a 65 63 74 2e 20 20 54 68 65 0a 20 20 20 20 20 76 61 72 69 61 62 6c 65 | ected.object...The......variable |
| 28b500 | 20 e2 80 98 2a e2 80 99 20 77 69 6c 6c 20 62 65 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 69 6e | ....*....will.be.bound.to.the.in |
| 28b520 | 73 70 65 63 74 65 64 20 6f 62 6a 65 63 74 2e 0a 0a e2 80 98 76 e2 80 99 0a e2 80 98 4d 2d 78 20 | spected.object......v.......M-x. |
| 28b540 | 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 74 6f 67 67 6c 65 2d 76 65 72 62 6f 73 65 e2 80 | slime-inspector-toggle-verbose.. |
| 28b560 | 99 0a 20 20 20 20 20 54 6f 67 67 6c 65 20 62 65 74 77 65 65 6e 20 76 65 72 62 6f 73 65 20 61 6e | .......Toggle.between.verbose.an |
| 28b580 | 64 20 74 65 72 73 65 20 6d 6f 64 65 2e 20 20 44 65 66 61 75 6c 74 20 69 73 20 64 65 74 65 72 6d | d.terse.mode...Default.is.determ |
| 28b5a0 | 69 6e 65 64 20 62 79 0a 20 20 20 20 20 e2 80 98 73 77 61 6e 6b 3a 2a 69 6e 73 70 65 63 74 6f 72 | ined.by.........swank:*inspector |
| 28b5c0 | 2d 76 65 72 62 6f 73 65 2a e2 80 99 2e 0a 0a e2 80 98 6c e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c | -verbose*.........l.......M-x.sl |
| 28b5e0 | 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 6f 70 e2 80 99 0a 20 20 20 20 20 47 6f 20 62 61 63 | ime-inspector-pop.........Go.bac |
| 28b600 | 6b 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6f 62 6a 65 63 74 20 28 72 65 74 75 72 6e | k.to.the.previous.object.(return |
| 28b620 | 20 66 72 6f 6d 20 e2 80 98 52 45 54 e2 80 99 29 2e 0a 0a e2 80 98 6e e2 80 99 0a e2 80 98 4d 2d | .from....RET...)......n.......M- |
| 28b640 | 78 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 e2 80 99 0a 20 20 20 20 20 54 | x.slime-inspector-next.........T |
| 28b660 | 68 65 20 69 6e 76 65 72 73 65 20 6f 66 20 e2 80 98 6c e2 80 99 2e 20 20 41 6c 73 6f 20 62 6f 75 | he.inverse.of....l......Also.bou |
| 28b680 | 6e 64 20 74 6f 20 e2 80 98 53 50 43 e2 80 99 2e 0a 0a e2 80 98 67 e2 80 99 0a e2 80 98 4d 2d 78 | nd.to....SPC.........g.......M-x |
| 28b6a0 | 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 72 65 69 6e 73 70 65 63 74 e2 80 99 0a 20 20 | .slime-inspector-reinspect...... |
| 28b6c0 | 20 20 20 52 65 69 6e 73 70 65 63 74 2e 0a 0a e2 80 98 71 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c | ...Reinspect......q.......M-x.sl |
| 28b6e0 | 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 71 75 69 74 e2 80 99 0a 20 20 20 20 20 44 69 73 6d 69 | ime-inspector-quit.........Dismi |
| 28b700 | 73 73 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 62 75 66 66 65 72 2e 0a 0a e2 80 98 70 e2 80 | ss.the.inspector.buffer......p.. |
| 28b720 | 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 70 72 69 6e 74 e2 | .....M-x.slime-inspector-pprint. |
| 28b740 | 80 99 0a 20 20 20 20 20 50 72 65 74 74 79 20 70 72 69 6e 74 20 69 6e 20 61 6e 6f 74 68 65 72 20 | ........Pretty.print.in.another. |
| 28b760 | 62 75 66 66 65 72 20 6f 62 6a 65 63 74 20 61 74 20 70 6f 69 6e 74 2e 0a 0a e2 80 98 2e e2 80 99 | buffer.object.at.point.......... |
| 28b780 | 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 73 68 6f 77 2d 73 6f 75 | ....M-x.slime-inspector-show-sou |
| 28b7a0 | 72 63 65 e2 80 99 0a 20 20 20 20 20 46 69 6e 64 20 73 6f 75 72 63 65 20 6f 66 20 6f 62 6a 65 63 | rce.........Find.source.of.objec |
| 28b7c0 | 74 20 61 74 20 70 6f 69 6e 74 2e 0a 0a e2 80 98 3e e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d | t.at.point......>.......M-x.slim |
| 28b7e0 | 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 65 74 63 68 2d 61 6c 6c e2 80 99 0a 20 20 20 20 20 46 65 | e-inspector-fetch-all.........Fe |
| 28b800 | 74 63 68 20 61 6c 6c 20 69 6e 73 70 65 63 74 6f 72 20 63 6f 6e 74 65 6e 74 73 20 61 6e 64 20 67 | tch.all.inspector.contents.and.g |
| 28b820 | 6f 20 74 6f 20 74 68 65 20 65 6e 64 2e 0a 0a e2 80 98 4d 2d 52 45 54 e2 80 99 0a e2 80 98 4d 2d | o.to.the.end......M-RET.......M- |
| 28b840 | 78 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 63 6f 70 79 2d 64 6f 77 6e e2 80 99 0a 20 | x.slime-inspector-copy-down..... |
| 28b860 | 20 20 20 20 53 74 6f 72 65 20 74 68 65 20 76 61 6c 75 65 20 75 6e 64 65 72 20 70 6f 69 6e 74 20 | ....Store.the.value.under.point. |
| 28b880 | 69 6e 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 e2 80 98 2a e2 80 99 2e 20 20 54 68 69 73 20 63 | in.the.variable....*......This.c |
| 28b8a0 | 61 6e 20 74 68 65 6e 20 62 65 0a 20 20 20 20 20 75 73 65 64 20 74 6f 20 61 63 63 65 73 73 20 74 | an.then.be......used.to.access.t |
| 28b8c0 | 68 65 20 6f 62 6a 65 63 74 20 69 6e 20 74 68 65 20 52 45 50 4c 2e 0a 0a e2 80 98 54 41 42 2c 20 | he.object.in.the.REPL......TAB,. |
| 28b8e0 | 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 2d 69 6e 73 70 65 63 74 | M-x.slime-inspector-next-inspect |
| 28b900 | 61 62 6c 65 2d 6f 62 6a 65 63 74 e2 80 99 0a e2 80 98 53 2d 54 41 42 2c 20 4d 2d 78 20 73 6c 69 | able-object.......S-TAB,.M-x.sli |
| 28b920 | 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 72 65 76 69 6f 75 73 2d 69 6e 73 70 65 63 74 61 62 6c | me-inspector-previous-inspectabl |
| 28b940 | 65 2d 6f 62 6a 65 63 74 e2 80 99 0a 0a 20 20 20 20 20 4a 75 6d 70 20 74 6f 20 74 68 65 20 6e 65 | e-object..........Jump.to.the.ne |
| 28b960 | 78 74 20 61 6e 64 20 70 72 65 76 69 6f 75 73 20 69 6e 73 70 65 63 74 61 62 6c 65 20 6f 62 6a 65 | xt.and.previous.inspectable.obje |
| 28b980 | 63 74 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 | ct.respectively.....File:.docFDB |
| 28b9a0 | 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 50 72 6f 66 69 6c 69 6e 67 2c 20 20 4e 65 78 | rww.info,..Node:.Profiling,..Nex |
| 28b9c0 | 74 3a 20 4f 74 68 65 72 2c 20 20 50 72 65 76 3a 20 49 6e 73 70 65 63 74 6f 72 2c 20 20 55 70 3a | t:.Other,..Prev:.Inspector,..Up: |
| 28b9e0 | 20 53 4c 49 4d 45 20 6d 6f 64 65 0a 0a 33 2e 31 32 20 50 72 6f 66 69 6c 69 6e 67 20 63 6f 6d 6d | .SLIME.mode..3.12.Profiling.comm |
| 28ba00 | 61 6e 64 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 | ands.=======================..Th |
| 28ba20 | 65 20 70 72 6f 66 69 6c 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 62 61 73 65 64 20 6f | e.profiling.commands.are.based.o |
| 28ba40 | 6e 20 43 4d 55 43 4c e2 80 99 73 20 70 72 6f 66 69 6c 65 72 2e 20 20 54 68 65 73 65 20 61 72 65 | n.CMUCL...s.profiler...These.are |
| 28ba60 | 20 73 69 6d 70 6c 65 0a 77 72 61 70 70 65 72 73 20 61 72 6f 75 6e 64 20 66 75 6e 63 74 69 6f 6e | .simple.wrappers.around.function |
| 28ba80 | 73 20 77 68 69 63 68 20 75 73 75 61 6c 6c 79 20 70 72 69 6e 74 20 73 6f 6d 65 74 68 69 6e 67 20 | s.which.usually.print.something. |
| 28baa0 | 74 6f 20 74 68 65 20 6f 75 74 70 75 74 0a 62 75 66 66 65 72 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c | to.the.output.buffer......M-x.sl |
| 28bac0 | 69 6d 65 2d 74 6f 67 67 6c 65 2d 70 72 6f 66 69 6c 65 2d 66 64 65 66 69 6e 69 74 69 6f 6e e2 80 | ime-toggle-profile-fdefinition.. |
| 28bae0 | 99 0a 20 20 20 20 20 54 6f 67 67 6c 65 20 70 72 6f 66 69 6c 69 6e 67 20 6f 66 20 61 20 66 75 6e | .......Toggle.profiling.of.a.fun |
| 28bb00 | 63 74 69 6f 6e 2e 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 70 61 63 6b | ction.....M-x.slime-profile-pack |
| 28bb20 | 61 67 65 e2 80 99 0a 20 20 20 20 20 50 72 6f 66 69 6c 65 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e | age.........Profile.all.function |
| 28bb40 | 73 20 69 6e 20 61 20 70 61 63 6b 61 67 65 2e 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 70 72 6f | s.in.a.package.....M-x.slime-pro |
| 28bb60 | 66 69 6c 65 2d 62 79 2d 73 75 62 73 74 72 69 6e 67 e2 80 99 0a 20 20 20 20 20 50 72 6f 66 69 6c | file-by-substring.........Profil |
| 28bb80 | 65 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 6e 61 6d 65 73 20 63 6f 6e 74 | e.all.functions.which.names.cont |
| 28bba0 | 61 69 6e 20 61 20 73 75 62 73 74 72 69 6e 67 2e 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 75 6e | ain.a.substring.....M-x.slime-un |
| 28bbc0 | 70 72 6f 66 69 6c 65 2d 61 6c 6c e2 80 99 0a 20 20 20 20 20 55 6e 70 72 6f 66 69 6c 65 20 61 6c | profile-all.........Unprofile.al |
| 28bbe0 | 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c | l.functions.....M-x.slime-profil |
| 28bc00 | 65 2d 72 65 70 6f 72 74 e2 80 99 0a 20 20 20 20 20 52 65 70 6f 72 74 20 70 72 6f 66 69 6c 65 72 | e-report.........Report.profiler |
| 28bc20 | 20 64 61 74 61 2e 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 72 65 73 65 | .data.....M-x.slime-profile-rese |
| 28bc40 | 74 e2 80 99 0a 20 20 20 20 20 52 65 73 65 74 20 70 72 6f 66 69 6c 65 72 20 64 61 74 61 2e 0a e2 | t.........Reset.profiler.data... |
| 28bc60 | 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 e2 80 | ..M-x.slime-profiled-functions.. |
| 28bc80 | 99 0a 20 20 20 20 20 53 68 6f 77 20 6c 69 73 74 20 6f 66 20 63 75 72 72 65 6e 74 6c 79 20 70 72 | .......Show.list.of.currently.pr |
| 28bca0 | 6f 66 69 6c 65 64 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 | ofiled.functions.....File:.docFD |
| 28bcc0 | 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 4f 74 68 65 72 2c 20 20 4e 65 78 74 3a 20 | Brww.info,..Node:.Other,..Next:. |
| 28bce0 | 53 65 6d 61 6e 74 69 63 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2c 20 20 50 72 65 76 3a 20 50 72 6f | Semantic.indentation,..Prev:.Pro |
| 28bd00 | 66 69 6c 69 6e 67 2c 20 20 55 70 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 0a 0a 33 2e 31 33 20 53 68 | filing,..Up:.SLIME.mode..3.13.Sh |
| 28bd20 | 61 64 6f 77 65 64 20 43 6f 6d 6d 61 6e 64 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | adowed.Commands.================ |
| 28bd40 | 3d 3d 3d 3d 3d 3d 0a 0a e2 80 98 43 2d 63 20 43 2d 61 2c 20 4d 2d 78 20 73 6c 69 6d 65 2d 6e 6f | ======.....C-c.C-a,.M-x.slime-no |
| 28bd60 | 70 e2 80 99 0a e2 80 98 43 2d 63 20 43 2d 76 2c 20 4d 2d 78 20 73 6c 69 6d 65 2d 6e 6f 70 e2 80 | p.......C-c.C-v,.M-x.slime-nop.. |
| 28bd80 | 99 0a 20 20 20 20 20 54 68 69 73 20 6b 65 79 2d 62 69 6e 64 69 6e 67 20 69 73 20 73 68 61 64 6f | .......This.key-binding.is.shado |
| 28bda0 | 77 65 64 20 66 72 6f 6d 20 69 6e 66 2d 6c 69 73 70 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 | wed.from.inf-lisp.....File:.docF |
| 28bdc0 | 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 53 65 6d 61 6e 74 69 63 20 69 6e 64 65 | DBrww.info,..Node:.Semantic.inde |
| 28bde0 | 6e 74 61 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 52 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f 6e | ntation,..Next:.Reader.condition |
| 28be00 | 61 6c 73 2c 20 20 50 72 65 76 3a 20 4f 74 68 65 72 2c 20 20 55 70 3a 20 53 4c 49 4d 45 20 6d 6f | als,..Prev:.Other,..Up:.SLIME.mo |
| 28be20 | 64 65 0a 0a 33 2e 31 34 20 53 65 6d 61 6e 74 69 63 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 3d 3d | de..3.14.Semantic.indentation.== |
| 28be40 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 53 4c 49 4d 45 20 61 | =======================..SLIME.a |
| 28be60 | 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 64 69 73 63 6f 76 65 72 73 20 68 6f 77 20 74 6f 20 69 6e | utomatically.discovers.how.to.in |
| 28be80 | 64 65 6e 74 20 74 68 65 20 6d 61 63 72 6f 73 20 69 6e 20 79 6f 75 72 20 4c 69 73 70 0a 73 79 73 | dent.the.macros.in.your.Lisp.sys |
| 28bea0 | 74 65 6d 2e 20 20 54 6f 20 64 6f 20 74 68 69 73 20 74 68 65 20 4c 69 73 70 20 73 69 64 65 20 73 | tem...To.do.this.the.Lisp.side.s |
| 28bec0 | 63 61 6e 73 20 61 6c 6c 20 74 68 65 20 6d 61 63 72 6f 73 20 69 6e 20 74 68 65 20 73 79 73 74 65 | cans.all.the.macros.in.the.syste |
| 28bee0 | 6d 20 61 6e 64 0a 72 65 70 6f 72 74 73 20 74 6f 20 45 6d 61 63 73 20 61 6c 6c 20 74 68 65 20 6f | m.and.reports.to.Emacs.all.the.o |
| 28bf00 | 6e 65 73 20 77 69 74 68 20 e2 80 98 26 62 6f 64 79 e2 80 99 20 61 72 67 75 6d 65 6e 74 73 2e 20 | nes.with....&body....arguments.. |
| 28bf20 | 20 45 6d 61 63 73 20 74 68 65 6e 0a 69 6e 64 65 6e 74 73 20 74 68 65 73 65 20 73 70 65 63 69 61 | .Emacs.then.indents.these.specia |
| 28bf40 | 6c 6c 79 2c 20 70 75 74 74 69 6e 67 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 73 | lly,.putting.the.first.arguments |
| 28bf60 | 20 66 6f 75 72 20 73 70 61 63 65 73 20 69 6e 20 61 6e 64 0a 74 68 65 20 e2 80 9c 62 6f 64 79 e2 | .four.spaces.in.and.the....body. |
| 28bf80 | 80 9d 20 61 72 67 75 6d 65 6e 74 73 20 6a 75 73 74 20 74 77 6f 20 73 70 61 63 65 73 2c 20 61 73 | ...arguments.just.two.spaces,.as |
| 28bfa0 | 20 75 73 75 61 6c 2e 0a 0a 20 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20 e2 80 9c 6a 75 73 74 20 | .usual......This.should....just. |
| 28bfc0 | 77 6f 72 6b 2e e2 80 9d 20 49 66 20 79 6f 75 20 61 72 65 20 61 20 6c 75 63 6b 79 20 73 6f 72 74 | work.....If.you.are.a.lucky.sort |
| 28bfe0 | 20 6f 66 20 70 65 72 73 6f 6e 20 79 6f 75 0a 6e 65 65 64 6e e2 80 99 74 20 72 65 61 64 20 74 68 | .of.person.you.needn...t.read.th |
| 28c000 | 65 20 72 65 73 74 20 6f 66 20 74 68 69 73 20 73 65 63 74 69 6f 6e 2e 0a 0a 20 20 20 54 6f 20 73 | e.rest.of.this.section......To.s |
| 28c020 | 69 6d 70 6c 69 66 79 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2c 20 53 4c 49 4d | implify.the.implementation,.SLIM |
| 28c040 | 45 20 64 6f 65 73 6e e2 80 99 74 20 64 69 73 74 69 6e 67 75 69 73 68 20 62 65 74 77 65 65 6e 0a | E.doesn...t.distinguish.between. |
| 28c060 | 6d 61 63 72 6f 73 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | macros.with.the.same.symbol-name |
| 28c080 | 20 62 75 74 20 64 69 66 66 65 72 65 6e 74 20 70 61 63 6b 61 67 65 73 2e 20 20 54 68 69 73 20 6d | .but.different.packages...This.m |
| 28c0a0 | 61 6b 65 73 20 69 74 0a 66 69 74 20 6e 69 63 65 6c 79 20 77 69 74 68 20 45 6d 61 63 73 e2 80 99 | akes.it.fit.nicely.with.Emacs... |
| 28c0c0 | 73 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 63 6f 64 65 2e 20 20 48 6f 77 65 76 65 72 2c 20 69 66 | s.indentation.code...However,.if |
| 28c0e0 | 20 79 6f 75 20 64 6f 20 68 61 76 65 0a 73 65 76 65 72 61 6c 20 6d 61 63 72 6f 73 20 77 69 74 68 | .you.do.have.several.macros.with |
| 28c100 | 20 74 68 65 20 73 61 6d 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 74 68 65 6e 20 74 68 65 79 20 | .the.same.symbol-name.then.they. |
| 28c120 | 77 69 6c 6c 20 61 6c 6c 20 62 65 20 69 6e 64 65 6e 74 65 64 0a 74 68 65 20 73 61 6d 65 20 77 61 | will.all.be.indented.the.same.wa |
| 28c140 | 79 2c 20 61 72 62 69 74 72 61 72 69 6c 79 20 75 73 69 6e 67 20 74 68 65 20 73 74 79 6c 65 20 66 | y,.arbitrarily.using.the.style.f |
| 28c160 | 72 6f 6d 20 6f 6e 65 20 6f 66 20 74 68 65 69 72 20 61 72 67 6c 69 73 74 73 2e 0a 59 6f 75 20 63 | rom.one.of.their.arglists..You.c |
| 28c180 | 61 6e 20 66 69 6e 64 20 6f 75 74 20 77 68 69 63 68 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 69 6e | an.find.out.which.symbols.are.in |
| 28c1a0 | 76 6f 6c 76 65 64 20 69 6e 20 63 6f 6c 6c 69 73 69 6f 6e 73 20 77 69 74 68 3a 0a 0a 20 20 20 20 | volved.in.collisions.with:...... |
| 28c1c0 | 20 28 73 77 61 6e 6b 3a 70 72 69 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 6c 6f 73 73 61 67 | .(swank:print-indentation-lossag |
| 28c1e0 | 65 29 0a 0a 20 20 20 49 66 20 61 20 63 6f 6c 6c 69 73 69 6f 6e 20 63 61 75 73 65 73 20 79 6f 75 | e).....If.a.collision.causes.you |
| 28c200 | 20 69 72 72 69 74 61 74 69 6f 6e 2c 20 64 6f 6e e2 80 99 74 20 68 61 76 65 20 61 20 6e 65 72 76 | .irritation,.don...t.have.a.nerv |
| 28c220 | 6f 75 73 20 62 72 65 61 6b 64 6f 77 6e 2c 0a 6a 75 73 74 20 6f 76 65 72 72 69 64 65 20 74 68 65 | ous.breakdown,.just.override.the |
| 28c240 | 20 45 6c 69 73 70 20 73 79 6d 62 6f 6c e2 80 99 73 20 e2 80 98 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 | .Elisp.symbol...s....common-lisp |
| 28c260 | 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e e2 80 99 20 70 72 6f 70 65 72 74 79 0a 74 6f 20 | -indent-function....property.to. |
| 28c280 | 79 6f 75 72 20 74 61 73 74 65 2e 20 20 53 4c 49 4d 45 20 77 6f 6e e2 80 99 74 20 6f 76 65 72 72 | your.taste...SLIME.won...t.overr |
| 28c2a0 | 69 64 65 20 79 6f 75 72 20 63 75 73 74 6f 6d 20 73 65 74 74 69 6e 67 73 2c 20 69 74 20 6a 75 73 | ide.your.custom.settings,.it.jus |
| 28c2c0 | 74 20 74 72 69 65 73 0a 74 6f 20 67 69 76 65 20 79 6f 75 20 67 6f 6f 64 20 64 65 66 61 75 6c 74 | t.tries.to.give.you.good.default |
| 28c2e0 | 73 2e 0a 0a 20 20 20 41 20 6d 6f 72 65 20 73 75 62 74 6c 65 20 69 73 73 75 65 20 69 73 20 74 68 | s......A.more.subtle.issue.is.th |
| 28c300 | 61 74 20 69 6d 70 65 72 66 65 63 74 20 63 61 63 68 69 6e 67 20 69 73 20 75 73 65 64 20 66 6f 72 | at.imperfect.caching.is.used.for |
| 28c320 | 20 74 68 65 20 73 61 6b 65 20 6f 66 0a 70 65 72 66 6f 72 6d 61 6e 63 65 2e 20 20 28 31 29 0a 0a | .the.sake.of.performance...(1).. |
| 28c340 | 20 20 20 49 6e 20 61 6e 20 69 64 65 61 6c 20 77 6f 72 6c 64 2c 20 4c 69 73 70 20 77 6f 75 6c 64 | ...In.an.ideal.world,.Lisp.would |
| 28c360 | 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 63 61 6e 20 65 76 65 72 79 20 73 79 6d 62 6f 6c | .automatically.scan.every.symbol |
| 28c380 | 20 66 6f 72 0a 69 6e 64 65 6e 74 61 74 69 6f 6e 20 63 68 61 6e 67 65 73 20 61 66 74 65 72 20 65 | .for.indentation.changes.after.e |
| 28c3a0 | 61 63 68 20 63 6f 6d 6d 61 6e 64 20 66 72 6f 6d 20 45 6d 61 63 73 2e 20 20 48 6f 77 65 76 65 72 | ach.command.from.Emacs...However |
| 28c3c0 | 2c 20 74 68 69 73 20 69 73 20 74 6f 6f 0a 65 78 70 65 6e 73 69 76 65 20 74 6f 20 64 6f 20 65 76 | ,.this.is.too.expensive.to.do.ev |
| 28c3e0 | 65 72 79 20 74 69 6d 65 2e 20 20 49 6e 73 74 65 61 64 20 4c 69 73 70 20 75 73 75 61 6c 6c 79 20 | ery.time...Instead.Lisp.usually. |
| 28c400 | 6a 75 73 74 20 73 63 61 6e 73 20 74 68 65 20 73 79 6d 62 6f 6c 73 0a 77 68 6f 73 65 20 68 6f 6d | just.scans.the.symbols.whose.hom |
| 28c420 | 65 20 70 61 63 6b 61 67 65 20 6d 61 74 63 68 65 73 20 74 68 65 20 6f 6e 65 20 75 73 65 64 20 62 | e.package.matches.the.one.used.b |
| 28c440 | 79 20 74 68 65 20 45 6d 61 63 73 20 62 75 66 66 65 72 20 77 68 65 72 65 20 74 68 65 0a 72 65 71 | y.the.Emacs.buffer.where.the.req |
| 28c460 | 75 65 73 74 20 63 6f 6d 65 73 20 66 72 6f 6d 2e 20 20 54 68 61 74 20 69 73 20 73 75 66 66 69 63 | uest.comes.from...That.is.suffic |
| 28c480 | 69 65 6e 74 20 74 6f 20 70 69 63 6b 20 75 70 20 74 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 | ient.to.pick.up.the.indentation. |
| 28c4a0 | 6f 66 0a 6d 6f 73 74 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2d 64 65 66 69 6e 65 64 20 6d 61 | of.most.interactively-defined.ma |
| 28c4c0 | 63 72 6f 73 2e 20 20 54 6f 20 63 61 74 63 68 20 74 68 65 20 72 65 73 74 20 77 65 20 6d 61 6b 65 | cros...To.catch.the.rest.we.make |
| 28c4e0 | 20 61 20 66 75 6c 6c 0a 73 63 61 6e 20 6f 66 20 65 76 65 72 79 20 73 79 6d 62 6f 6c 20 65 61 63 | .a.full.scan.of.every.symbol.eac |
| 28c500 | 68 20 74 69 6d 65 20 61 20 6e 65 77 20 4c 69 73 70 20 70 61 63 6b 61 67 65 20 69 73 20 63 72 65 | h.time.a.new.Lisp.package.is.cre |
| 28c520 | 61 74 65 64 20 62 65 74 77 65 65 6e 0a 63 6f 6d 6d 61 6e 64 73 20 e2 80 93 20 74 68 61 74 20 74 | ated.between.commands.....that.t |
| 28c540 | 61 6b 65 73 20 63 61 72 65 20 6f 66 20 74 68 69 6e 67 73 20 6c 69 6b 65 20 6e 65 77 20 73 79 73 | akes.care.of.things.like.new.sys |
| 28c560 | 74 65 6d 73 20 62 65 69 6e 67 20 6c 6f 61 64 65 64 2e 0a 0a 20 20 20 59 6f 75 20 63 61 6e 20 75 | tems.being.loaded......You.can.u |
| 28c580 | 73 65 20 e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 69 6e 64 65 6e 74 61 74 69 | se....M-x.slime-update-indentati |
| 28c5a0 | 6f 6e e2 80 99 20 74 6f 20 66 6f 72 63 65 20 61 6c 6c 20 73 79 6d 62 6f 6c 73 20 74 6f 20 62 65 | on....to.force.all.symbols.to.be |
| 28c5c0 | 0a 73 63 61 6e 6e 65 64 20 66 6f 72 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 69 6e 66 6f 72 6d 61 | .scanned.for.indentation.informa |
| 28c5e0 | 74 69 6f 6e 2e 0a 0a 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 46 6f 6f 74 6e 6f 74 65 73 20 2d | tion......----------.Footnotes.- |
| 28c600 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 20 20 20 28 31 29 20 5f 4f 66 20 63 6f 75 72 73 65 5f 20 77 65 | ---------.....(1)._Of.course_.we |
| 28c620 | 20 6d 61 64 65 20 73 75 72 65 20 69 74 20 77 61 73 20 61 63 74 75 61 6c 6c 79 20 74 6f 6f 20 73 | .made.sure.it.was.actually.too.s |
| 28c640 | 6c 6f 77 20 62 65 66 6f 72 65 20 6d 61 6b 69 6e 67 0a 74 68 65 20 75 67 6c 79 20 6f 70 74 69 6d | low.before.making.the.ugly.optim |
| 28c660 | 69 7a 61 74 69 6f 6e 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f | ization.....File:.docFDBrww.info |
| 28c680 | 2c 20 20 4e 6f 64 65 3a 20 52 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 2c 20 20 50 | ,..Node:.Reader.conditionals,..P |
| 28c6a0 | 72 65 76 3a 20 53 65 6d 61 6e 74 69 63 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2c 20 20 55 70 3a 20 | rev:.Semantic.indentation,..Up:. |
| 28c6c0 | 53 4c 49 4d 45 20 6d 6f 64 65 0a 0a 33 2e 31 35 20 52 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f | SLIME.mode..3.15.Reader.conditio |
| 28c6e0 | 6e 61 6c 20 66 6f 6e 74 69 66 69 63 61 74 69 6f 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | nal.fontification.============== |
| 28c700 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 53 4c 49 4d 45 20 61 | =======================..SLIME.a |
| 28c720 | 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 65 76 61 6c 75 61 74 65 73 20 72 65 61 64 65 72 2d 63 6f | utomatically.evaluates.reader-co |
| 28c740 | 6e 64 69 74 69 6f 6e 61 6c 20 65 78 70 72 65 73 73 69 6f 6e 73 2c 20 6c 69 6b 65 0a e2 80 98 23 | nditional.expressions,.like....# |
| 28c760 | 2b 6c 69 6e 75 78 e2 80 99 2c 20 69 6e 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 73 20 61 6e 64 | +linux...,.in.source.buffers.and |
| 28c780 | 20 e2 80 9c 67 72 61 79 73 20 6f 75 74 e2 80 9d 20 63 6f 64 65 20 74 68 61 74 20 77 69 6c 6c 20 | ....grays.out....code.that.will. |
| 28c7a0 | 62 65 20 73 6b 69 70 70 65 64 0a 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 4c 69 73 70 20 | be.skipped.for.the.current.Lisp. |
| 28c7c0 | 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 | connection.....File:.docFDBrww.i |
| 28c7e0 | 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 44 65 62 75 67 67 65 72 2c 20 20 4e 65 78 74 3a 20 4d 69 73 | nfo,..Node:.Debugger,..Next:.Mis |
| 28c800 | 63 2c 20 20 50 72 65 76 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 2c 20 20 55 70 3a 20 54 6f 70 0a 0a | c,..Prev:.SLIME.mode,..Up:.Top.. |
| 28c820 | 34 20 53 4c 44 42 3a 20 74 68 65 20 53 4c 49 4d 45 20 64 65 62 75 67 67 65 72 0a 2a 2a 2a 2a 2a | 4.SLDB:.the.SLIME.debugger.***** |
| 28c840 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 53 4c 49 4d 45 20 68 61 73 | *********************..SLIME.has |
| 28c860 | 20 61 20 63 75 73 74 6f 6d 20 45 6d 61 63 73 2d 62 61 73 65 64 20 64 65 62 75 67 67 65 72 20 63 | .a.custom.Emacs-based.debugger.c |
| 28c880 | 61 6c 6c 65 64 20 53 4c 44 42 2e 20 20 43 6f 6e 64 69 74 69 6f 6e 73 0a 73 69 67 6e 61 6c 6c 65 | alled.SLDB...Conditions.signalle |
| 28c8a0 | 64 20 69 6e 20 74 68 65 20 4c 69 73 70 20 73 79 73 74 65 6d 20 69 6e 76 6f 6b 65 20 53 4c 44 42 | d.in.the.Lisp.system.invoke.SLDB |
| 28c8c0 | 20 69 6e 20 45 6d 61 63 73 20 62 79 20 77 61 79 20 6f 66 20 74 68 65 20 4c 69 73 70 0a e2 80 98 | .in.Emacs.by.way.of.the.Lisp.... |
| 28c8e0 | 2a 44 45 42 55 47 47 45 52 2d 48 4f 4f 4b 2a e2 80 99 2e 0a 0a 20 20 20 53 4c 44 42 20 70 6f 70 | *DEBUGGER-HOOK*.........SLDB.pop |
| 28c900 | 73 20 75 70 20 61 20 62 75 66 66 65 72 20 77 68 65 6e 20 61 20 63 6f 6e 64 69 74 69 6f 6e 20 69 | s.up.a.buffer.when.a.condition.i |
| 28c920 | 73 20 73 69 67 6e 61 6c 6c 65 64 2e 20 20 54 68 65 20 62 75 66 66 65 72 0a 64 69 73 70 6c 61 79 | s.signalled...The.buffer.display |
| 28c940 | 73 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e | s.a.description.of.the.condition |
| 28c960 | 2c 20 61 20 6c 69 73 74 20 6f 66 20 72 65 73 74 61 72 74 73 2c 20 61 6e 64 20 61 0a 62 61 63 6b | ,.a.list.of.restarts,.and.a.back |
| 28c980 | 74 72 61 63 65 2e 20 20 43 6f 6d 6d 61 6e 64 73 20 61 72 65 20 6f 66 66 65 72 65 64 20 66 6f 72 | trace...Commands.are.offered.for |
| 28c9a0 | 20 69 6e 76 6f 6b 69 6e 67 20 72 65 73 74 61 72 74 73 2c 20 65 78 61 6d 69 6e 69 6e 67 20 74 68 | .invoking.restarts,.examining.th |
| 28c9c0 | 65 0a 62 61 63 6b 74 72 61 63 65 2c 20 61 6e 64 20 70 6f 6b 69 6e 67 20 61 72 6f 75 6e 64 20 69 | e.backtrace,.and.poking.around.i |
| 28c9e0 | 6e 20 73 74 61 63 6b 20 66 72 61 6d 65 73 2e 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 45 78 61 6d | n.stack.frames...*.Menu:..*.Exam |
| 28ca00 | 69 6e 69 6e 67 20 66 72 61 6d 65 73 3a 3a 0a 2a 20 52 65 73 74 61 72 74 73 3a 3a 0a 2a 20 46 72 | ining.frames::.*.Restarts::.*.Fr |
| 28ca20 | 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 3a 3a 0a 2a 20 53 74 65 70 70 69 6e 67 3a 3a 0a 2a 20 | ame.Navigation::.*.Stepping::.*. |
| 28ca40 | 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 3a 3a 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 | Miscellaneous::....File:.docFDBr |
| 28ca60 | 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 | ww.info,..Node:.Examining.frames |
| 28ca80 | 2c 20 20 4e 65 78 74 3a 20 52 65 73 74 61 72 74 73 2c 20 20 55 70 3a 20 44 65 62 75 67 67 65 72 | ,..Next:.Restarts,..Up:.Debugger |
| 28caa0 | 0a 0a 34 2e 31 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d | ..4.1.Examining.frames.========= |
| 28cac0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 43 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 65 78 61 6d 69 6e | ===========..Commands.for.examin |
| 28cae0 | 69 6e 67 20 74 68 65 20 73 74 61 63 6b 20 66 72 61 6d 65 20 61 74 20 70 6f 69 6e 74 2e 0a 0a e2 | ing.the.stack.frame.at.point.... |
| 28cb00 | 80 98 74 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 74 6f 67 67 6c 65 2d 64 65 74 61 69 6c | ..t.......M-x.sldb-toggle-detail |
| 28cb20 | 73 e2 80 99 0a 20 20 20 20 20 54 6f 67 67 6c 65 20 64 69 73 70 6c 61 79 20 6f 66 20 6c 6f 63 61 | s.........Toggle.display.of.loca |
| 28cb40 | 6c 20 76 61 72 69 61 62 6c 65 73 20 61 6e 64 20 e2 80 98 43 41 54 43 48 e2 80 99 20 74 61 67 73 | l.variables.and....CATCH....tags |
| 28cb60 | 2e 0a 0a e2 80 98 76 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 73 68 6f 77 2d 73 6f 75 72 | ......v.......M-x.sldb-show-sour |
| 28cb80 | 63 65 e2 80 99 0a 20 20 20 20 20 56 69 65 77 20 74 68 65 20 66 72 61 6d 65 e2 80 99 73 20 63 75 | ce.........View.the.frame...s.cu |
| 28cba0 | 72 72 65 6e 74 20 73 6f 75 72 63 65 20 65 78 70 72 65 73 73 69 6f 6e 2e 20 20 54 68 65 20 65 78 | rrent.source.expression...The.ex |
| 28cbc0 | 70 72 65 73 73 69 6f 6e 20 69 73 0a 20 20 20 20 20 70 72 65 73 65 6e 74 65 64 20 69 6e 20 74 68 | pression.is......presented.in.th |
| 28cbe0 | 65 20 4c 69 73 70 20 73 6f 75 72 63 65 20 66 69 6c 65 e2 80 99 73 20 62 75 66 66 65 72 2e 0a 0a | e.Lisp.source.file...s.buffer... |
| 28cc00 | e2 80 98 65 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d | ...e.......M-x.sldb-eval-in-fram |
| 28cc20 | 65 e2 80 99 0a 20 20 20 20 20 45 76 61 6c 75 61 74 65 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e | e.........Evaluate.an.expression |
| 28cc40 | 20 69 6e 20 74 68 65 20 66 72 61 6d 65 2e 20 20 54 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 63 | .in.the.frame...The.expression.c |
| 28cc60 | 61 6e 20 72 65 66 65 72 20 74 6f 0a 20 20 20 20 20 74 68 65 20 61 76 61 69 6c 61 62 6c 65 20 6c | an.refer.to......the.available.l |
| 28cc80 | 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 69 6e 20 74 68 65 20 66 72 61 6d 65 2e 0a 0a e2 80 | ocal.variables.in.the.frame..... |
| 28cca0 | 98 64 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d 69 6e | .d.......M-x.sldb-pprint-eval-in |
| 28ccc0 | 2d 66 72 61 6d 65 e2 80 99 0a 20 20 20 20 20 45 76 61 6c 75 61 74 65 20 61 6e 20 65 78 70 72 65 | -frame.........Evaluate.an.expre |
| 28cce0 | 73 73 69 6f 6e 20 69 6e 20 74 68 65 20 66 72 61 6d 65 20 61 6e 64 20 70 72 65 74 74 79 2d 70 72 | ssion.in.the.frame.and.pretty-pr |
| 28cd00 | 69 6e 74 20 74 68 65 20 72 65 73 75 6c 74 20 69 6e 0a 20 20 20 20 20 61 20 74 65 6d 70 6f 72 61 | int.the.result.in......a.tempora |
| 28cd20 | 72 79 20 62 75 66 66 65 72 2e 0a 0a e2 80 98 44 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d | ry.buffer......D.......M-x.sldb- |
| 28cd40 | 64 69 73 61 73 73 65 6d 62 6c 65 e2 80 99 0a 20 20 20 20 20 44 69 73 61 73 73 65 6d 62 6c 65 20 | disassemble.........Disassemble. |
| 28cd60 | 74 68 65 20 66 72 61 6d 65 e2 80 99 73 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 6e 63 6c 75 64 65 | the.frame...s.function...Include |
| 28cd80 | 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 73 75 63 68 20 61 73 20 74 68 65 0a 20 20 20 20 20 69 | s.information.such.as.the......i |
| 28cda0 | 6e 73 74 72 75 63 74 69 6f 6e 20 70 6f 69 6e 74 65 72 20 77 69 74 68 69 6e 20 74 68 65 20 66 72 | nstruction.pointer.within.the.fr |
| 28cdc0 | 61 6d 65 2e 0a 0a e2 80 98 69 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 69 6e 73 70 65 63 | ame......i.......M-x.sldb-inspec |
| 28cde0 | 74 2d 69 6e 2d 66 72 61 6d 65 e2 80 99 0a 20 20 20 20 20 49 6e 73 70 65 63 74 20 74 68 65 20 72 | t-in-frame.........Inspect.the.r |
| 28ce00 | 65 73 75 6c 74 20 6f 66 20 65 76 61 6c 75 61 74 69 6e 67 20 61 6e 20 65 78 70 72 65 73 73 69 6f | esult.of.evaluating.an.expressio |
| 28ce20 | 6e 20 69 6e 20 74 68 65 20 66 72 61 6d 65 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 63 e2 80 99 0a e2 | n.in.the.frame......C-c.C-c..... |
| 28ce40 | 80 98 4d 2d 78 20 73 6c 64 62 2d 72 65 63 6f 6d 70 69 6c 65 2d 66 72 61 6d 65 2d 73 6f 75 72 63 | ..M-x.sldb-recompile-frame-sourc |
| 28ce60 | 65 e2 80 99 0a 20 20 20 20 20 52 65 63 6f 6d 70 69 6c 65 20 66 72 61 6d 65 2e 20 20 e2 80 98 43 | e.........Recompile.frame......C |
| 28ce80 | 2d 75 20 43 2d 63 20 43 2d 63 e2 80 99 20 66 6f 72 20 72 65 63 6f 6d 70 69 6c 69 6e 67 20 77 69 | -u.C-c.C-c....for.recompiling.wi |
| 28cea0 | 74 68 20 6d 61 78 69 6d 75 6d 20 64 65 62 75 67 0a 20 20 20 20 20 73 65 74 74 69 6e 67 73 2e 0a | th.maximum.debug......settings.. |
| 28cec0 | 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 | ...File:.docFDBrww.info,..Node:. |
| 28cee0 | 52 65 73 74 61 72 74 73 2c 20 20 4e 65 78 74 3a 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f | Restarts,..Next:.Frame.Navigatio |
| 28cf00 | 6e 2c 20 20 50 72 65 76 3a 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 2c 20 20 55 70 3a | n,..Prev:.Examining.frames,..Up: |
| 28cf20 | 20 44 65 62 75 67 67 65 72 0a 0a 34 2e 32 20 49 6e 76 6f 6b 69 6e 67 20 72 65 73 74 61 72 74 73 | .Debugger..4.2.Invoking.restarts |
| 28cf40 | 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a e2 80 98 61 e2 80 99 0a | .=====================.....a.... |
| 28cf60 | e2 80 98 4d 2d 78 20 73 6c 64 62 2d 61 62 6f 72 74 e2 80 99 0a 20 20 20 20 20 49 6e 76 6f 6b 65 | ...M-x.sldb-abort.........Invoke |
| 28cf80 | 20 74 68 65 20 e2 80 98 41 42 4f 52 54 e2 80 99 20 72 65 73 74 61 72 74 2e 0a 0a e2 80 98 71 e2 | .the....ABORT....restart......q. |
| 28cfa0 | 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 71 75 69 74 e2 80 99 0a 20 20 20 20 20 e2 80 9c 51 | ......M-x.sldb-quit............Q |
| 28cfc0 | 75 69 74 e2 80 9d 20 e2 80 93 20 46 6f 72 20 53 4c 49 4d 45 20 65 76 61 6c 75 61 74 69 6f 6e 20 | uit........For.SLIME.evaluation. |
| 28cfe0 | 72 65 71 75 65 73 74 73 2c 20 69 6e 76 6f 6b 65 20 61 20 72 65 73 74 61 72 74 20 77 68 69 63 68 | requests,.invoke.a.restart.which |
| 28d000 | 0a 20 20 20 20 20 72 65 73 74 6f 72 65 73 20 74 6f 20 61 20 6b 6e 6f 77 6e 20 70 72 6f 67 72 61 | ......restores.to.a.known.progra |
| 28d020 | 6d 20 73 74 61 74 65 2e 20 20 46 6f 72 20 65 72 72 6f 72 73 20 69 6e 20 6f 74 68 65 72 20 74 68 | m.state...For.errors.in.other.th |
| 28d040 | 72 65 61 64 73 2c 0a 20 20 20 20 20 73 65 65 20 2a 6e 6f 74 65 20 2a 53 4c 44 42 2d 51 55 49 54 | reads,......see.*note.*SLDB-QUIT |
| 28d060 | 2d 52 45 53 54 41 52 54 2a 3a 3a 2e 0a 0a e2 80 98 63 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 | -RESTART*::......c.......M-x.sld |
| 28d080 | 62 2d 63 6f 6e 74 69 6e 75 65 e2 80 99 0a 20 20 20 20 20 49 6e 76 6f 6b 65 20 74 68 65 20 e2 80 | b-continue.........Invoke.the... |
| 28d0a0 | 98 43 4f 4e 54 49 4e 55 45 e2 80 99 20 72 65 73 74 61 72 74 2e 0a 0a e2 80 98 30 20 2e 2e 2e 20 | .CONTINUE....restart......0..... |
| 28d0c0 | 39 e2 80 99 0a 20 20 20 20 20 49 6e 76 6f 6b 65 20 61 20 72 65 73 74 61 72 74 20 62 79 20 6e 75 | 9.........Invoke.a.restart.by.nu |
| 28d0e0 | 6d 62 65 72 2e 0a 0a 20 20 20 52 65 73 74 61 72 74 73 20 63 61 6e 20 61 6c 73 6f 20 62 65 20 69 | mber......Restarts.can.also.be.i |
| 28d100 | 6e 76 6f 6b 65 64 20 62 79 20 70 72 65 73 73 69 6e 67 20 e2 80 98 52 45 54 e2 80 99 20 6f 72 20 | nvoked.by.pressing....RET....or. |
| 28d120 | e2 80 98 4d 6f 75 73 65 2d 32 e2 80 99 20 6f 6e 20 74 68 65 6d 0a 69 6e 20 74 68 65 20 62 75 66 | ...Mouse-2....on.them.in.the.buf |
| 28d140 | 66 65 72 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e | fer.....File:.docFDBrww.info,..N |
| 28d160 | 6f 64 65 3a 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 53 74 | ode:.Frame.Navigation,..Next:.St |
| 28d180 | 65 70 70 69 6e 67 2c 20 20 50 72 65 76 3a 20 52 65 73 74 61 72 74 73 2c 20 20 55 70 3a 20 44 65 | epping,..Prev:.Restarts,..Up:.De |
| 28d1a0 | 62 75 67 67 65 72 0a 0a 34 2e 33 20 4e 61 76 69 67 61 74 69 6e 67 20 62 65 74 77 65 65 6e 20 66 | bugger..4.3.Navigating.between.f |
| 28d1c0 | 72 61 6d 65 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | rames.========================== |
| 28d1e0 | 3d 3d 3d 0a 0a e2 80 98 6e 2c 20 4d 2d 78 20 73 6c 64 62 2d 64 6f 77 6e e2 80 99 0a e2 80 98 70 | ===.....n,.M-x.sldb-down.......p |
| 28d200 | 2c 20 4d 2d 78 20 73 6c 64 62 2d 75 70 e2 80 99 0a 20 20 20 20 20 4d 6f 76 65 20 62 65 74 77 65 | ,.M-x.sldb-up.........Move.betwe |
| 28d220 | 65 6e 20 66 72 61 6d 65 73 2e 0a 0a e2 80 98 4d 2d 6e 2c 20 4d 2d 78 20 73 6c 64 62 2d 64 65 74 | en.frames......M-n,.M-x.sldb-det |
| 28d240 | 61 69 6c 73 2d 64 6f 77 6e e2 80 99 0a e2 80 98 4d 2d 70 2c 20 4d 2d 78 20 73 6c 64 62 2d 64 65 | ails-down.......M-p,.M-x.sldb-de |
| 28d260 | 74 61 69 6c 73 2d 75 70 e2 80 99 0a 20 20 20 20 20 4d 6f 76 65 20 62 65 74 77 65 65 6e 20 66 72 | tails-up.........Move.between.fr |
| 28d280 | 61 6d 65 73 20 e2 80 9c 77 69 74 68 20 73 75 67 61 72 e2 80 9d 3a 20 68 69 64 65 20 74 68 65 20 | ames....with.sugar...:.hide.the. |
| 28d2a0 | 64 65 74 61 69 6c 73 20 6f 66 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 0a 20 20 20 20 20 66 72 61 | details.of.the.original......fra |
| 28d2c0 | 6d 65 20 61 6e 64 20 64 69 73 70 6c 61 79 20 74 68 65 20 64 65 74 61 69 6c 73 20 61 6e 64 20 73 | me.and.display.the.details.and.s |
| 28d2e0 | 6f 75 72 63 65 20 63 6f 64 65 20 6f 66 20 74 68 65 20 6e 65 78 74 2e 20 20 53 75 67 61 72 65 64 | ource.code.of.the.next...Sugared |
| 28d300 | 0a 20 20 20 20 20 6d 6f 74 69 6f 6e 20 6d 61 6b 65 73 20 79 6f 75 20 73 65 65 20 74 68 65 20 64 | ......motion.makes.you.see.the.d |
| 28d320 | 65 74 61 69 6c 73 20 61 6e 64 20 73 6f 75 72 63 65 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20 63 | etails.and.source.code.for.the.c |
| 28d340 | 75 72 72 65 6e 74 0a 20 20 20 20 20 66 72 61 6d 65 20 6f 6e 6c 79 2e 0a 0a e2 80 98 3e e2 80 99 | urrent......frame.only......>... |
| 28d360 | 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 65 6e 64 2d 6f 66 2d 62 61 63 6b 74 72 61 63 65 e2 80 99 | ....M-x.sldb-end-of-backtrace... |
| 28d380 | 0a 20 20 20 20 20 46 65 74 63 68 20 74 68 65 20 65 6e 74 69 72 65 20 62 61 63 6b 74 72 61 63 65 | ......Fetch.the.entire.backtrace |
| 28d3a0 | 20 61 6e 64 20 67 6f 20 74 6f 20 74 68 65 20 6c 61 73 74 20 66 72 61 6d 65 2e 0a 0a e2 80 98 3c | .and.go.to.the.last.frame......< |
| 28d3c0 | e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 62 61 63 | .......M-x.sldb-beginning-of-bac |
| 28d3e0 | 6b 74 72 61 63 65 e2 80 99 0a 20 20 20 20 20 47 6f 74 6f 20 74 68 65 20 66 69 72 73 74 20 66 72 | ktrace.........Goto.the.first.fr |
| 28d400 | 61 6d 65 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e | ame.....File:.docFDBrww.info,..N |
| 28d420 | 6f 64 65 3a 20 53 74 65 70 70 69 6e 67 2c 20 20 4e 65 78 74 3a 20 4d 69 73 63 65 6c 6c 61 6e 65 | ode:.Stepping,..Next:.Miscellane |
| 28d440 | 6f 75 73 2c 20 20 50 72 65 76 3a 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 2c 20 20 55 | ous,..Prev:.Frame.Navigation,..U |
| 28d460 | 70 3a 20 44 65 62 75 67 67 65 72 0a 0a 34 2e 34 20 53 74 65 70 70 69 6e 67 0a 3d 3d 3d 3d 3d 3d | p:.Debugger..4.4.Stepping.====== |
| 28d480 | 3d 3d 3d 3d 3d 3d 0a 0a 53 74 65 70 70 69 6e 67 20 69 73 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c | ======..Stepping.is.not.availabl |
| 28d4a0 | 65 20 69 6e 20 61 6c 6c 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 61 6e 64 20 77 6f 72 | e.in.all.implementations.and.wor |
| 28d4c0 | 6b 73 20 76 65 72 79 0a 64 69 66 66 65 72 65 6e 74 6c 79 20 69 6e 20 74 68 6f 73 65 20 69 6e 20 | ks.very.differently.in.those.in. |
| 28d4e0 | 77 68 69 63 68 20 69 74 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e 0a 0a e2 80 98 73 e2 80 99 0a | which.it.is.available......s.... |
| 28d500 | e2 80 98 4d 2d 78 20 73 6c 64 62 2d 73 74 65 70 e2 80 99 0a 20 20 20 20 20 53 74 65 70 20 74 6f | ...M-x.sldb-step.........Step.to |
| 28d520 | 20 74 68 65 20 6e 65 78 74 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 20 74 68 65 20 66 72 61 6d | .the.next.expression.in.the.fram |
| 28d540 | 65 2e 20 20 46 6f 72 20 43 4d 55 43 4c 20 74 68 61 74 20 6d 65 61 6e 73 2c 0a 20 20 20 20 20 73 | e...For.CMUCL.that.means,......s |
| 28d560 | 65 74 20 61 20 62 72 65 61 6b 70 6f 69 6e 74 20 61 74 20 61 6c 6c 20 74 68 6f 73 65 20 63 6f 64 | et.a.breakpoint.at.all.those.cod |
| 28d580 | 65 20 6c 6f 63 61 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 64 65 0a | e.locations.in.the.current.code. |
| 28d5a0 | 20 20 20 20 20 62 6c 6f 63 6b 20 77 68 69 63 68 20 61 72 65 20 72 65 61 63 68 61 62 6c 65 20 66 | .....block.which.are.reachable.f |
| 28d5c0 | 72 6f 6d 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 64 65 20 6c 6f 63 61 74 69 6f 6e 2e 0a 0a | rom.the.current.code.location... |
| 28d5e0 | e2 80 98 78 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 6e 65 78 74 e2 80 99 0a 20 20 20 20 | ...x.......M-x.sldb-next........ |
| 28d600 | 20 53 74 65 70 20 74 6f 20 74 68 65 20 6e 65 78 74 20 66 6f 72 6d 20 69 6e 20 74 68 65 20 63 75 | .Step.to.the.next.form.in.the.cu |
| 28d620 | 72 72 65 6e 74 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a e2 80 98 6f e2 80 99 0a e2 80 98 4d 2d 78 20 | rrent.function......o.......M-x. |
| 28d640 | 73 6c 64 62 2d 6f 75 74 e2 80 99 0a 20 20 20 20 20 53 74 6f 70 20 73 69 6e 67 6c 65 2d 73 74 65 | sldb-out.........Stop.single-ste |
| 28d660 | 70 70 69 6e 67 20 74 65 6d 70 6f 72 61 72 69 6c 79 2c 20 62 75 74 20 72 65 73 75 6d 65 20 69 74 | pping.temporarily,.but.resume.it |
| 28d680 | 20 6f 6e 63 65 20 74 68 65 20 63 75 72 72 65 6e 74 0a 20 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 | .once.the.current......function. |
| 28d6a0 | 72 65 74 75 72 6e 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f | returns.....File:.docFDBrww.info |
| 28d6c0 | 2c 20 20 4e 6f 64 65 3a 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2c 20 20 50 72 65 76 3a 20 53 | ,..Node:.Miscellaneous,..Prev:.S |
| 28d6e0 | 74 65 70 70 69 6e 67 2c 20 20 55 70 3a 20 44 65 62 75 67 67 65 72 0a 0a 34 2e 35 20 4d 69 73 63 | tepping,..Up:.Debugger..4.5.Misc |
| 28d700 | 65 6c 6c 61 6e 65 6f 75 73 20 43 6f 6d 6d 61 6e 64 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ellaneous.Commands.============= |
| 28d720 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a e2 80 98 72 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c | =============.....r.......M-x.sl |
| 28d740 | 64 62 2d 72 65 73 74 61 72 74 2d 66 72 61 6d 65 e2 80 99 0a 20 20 20 20 20 52 65 73 74 61 72 74 | db-restart-frame.........Restart |
| 28d760 | 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 72 61 6d 65 20 77 69 74 68 20 74 68 65 | .execution.of.the.frame.with.the |
| 28d780 | 20 73 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 20 69 74 20 77 61 73 0a 20 20 20 20 20 6f 72 69 67 | .same.arguments.it.was......orig |
| 28d7a0 | 69 6e 61 6c 6c 79 20 63 61 6c 6c 65 64 20 77 69 74 68 2e 20 20 28 54 68 69 73 20 63 6f 6d 6d 61 | inally.called.with...(This.comma |
| 28d7c0 | 6e 64 20 69 73 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 61 6c 6c 0a 20 20 20 20 20 | nd.is.not.available.in.all...... |
| 28d7e0 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 29 0a 0a e2 80 98 52 e2 80 99 0a e2 80 98 4d 2d | implementations.).....R.......M- |
| 28d800 | 78 20 73 6c 64 62 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 e2 80 99 0a 20 20 20 20 | x.sldb-return-from-frame........ |
| 28d820 | 20 52 65 74 75 72 6e 20 66 72 6f 6d 20 74 68 65 20 66 72 61 6d 65 20 77 69 74 68 20 61 20 76 61 | .Return.from.the.frame.with.a.va |
| 28d840 | 6c 75 65 20 65 6e 74 65 72 65 64 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 20 | lue.entered.in.the.minibuffer... |
| 28d860 | 20 20 20 20 28 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 6e 6f 74 20 61 76 61 69 6c 61 62 | ....(This.command.is.not.availab |
| 28d880 | 6c 65 20 69 6e 20 61 6c 6c 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 29 0a 0a e2 80 98 | le.in.all.implementations.)..... |
| 28d8a0 | 42 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d 64 65 66 61 | B.......M-x.sldb-break-with-defa |
| 28d8c0 | 75 6c 74 2d 64 65 62 75 67 67 65 72 e2 80 99 0a 20 20 20 20 20 45 78 69 74 20 53 4c 44 42 20 61 | ult-debugger.........Exit.SLDB.a |
| 28d8e0 | 6e 64 20 64 65 62 75 67 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 20 75 73 69 6e 67 20 74 68 65 | nd.debug.the.condition.using.the |
| 28d900 | 20 4c 69 73 70 20 73 79 73 74 65 6d e2 80 99 73 20 64 65 66 61 75 6c 74 0a 20 20 20 20 20 64 65 | .Lisp.system...s.default......de |
| 28d920 | 62 75 67 67 65 72 2e 0a 0a e2 80 98 43 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 69 6e 73 | bugger......C.......M-x.sldb-ins |
| 28d940 | 70 65 63 74 2d 63 6f 6e 64 69 74 69 6f 6e e2 80 99 0a 20 20 20 20 20 49 6e 73 70 65 63 74 20 74 | pect-condition.........Inspect.t |
| 28d960 | 68 65 20 63 6f 6e 64 69 74 69 6f 6e 20 63 75 72 72 65 6e 74 6c 79 20 62 65 69 6e 67 20 64 65 62 | he.condition.currently.being.deb |
| 28d980 | 75 67 67 65 64 2e 0a 0a e2 80 98 3a e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 74 | ugged......:.......M-x.slime-int |
| 28d9a0 | 65 72 61 63 74 69 76 65 2d 65 76 61 6c e2 80 99 0a 20 20 20 20 20 45 76 61 6c 75 61 74 65 20 61 | eractive-eval.........Evaluate.a |
| 28d9c0 | 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 65 6e 74 65 72 65 64 20 69 6e 20 74 68 65 20 6d 69 6e 69 | n.expression.entered.in.the.mini |
| 28d9e0 | 62 75 66 66 65 72 2e 0a e2 80 98 41 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 64 62 2d 62 72 65 61 | buffer.....A.......M-x.sldb-brea |
| 28da00 | 6b 2d 77 69 74 68 2d 73 79 73 74 65 6d 2d 64 65 62 75 67 67 65 72 e2 80 99 0a 20 20 20 20 20 41 | k-with-system-debugger.........A |
| 28da20 | 74 74 61 63 68 20 64 65 62 75 67 67 65 72 20 28 65 2e 67 2e 20 20 67 64 62 29 20 74 6f 20 74 68 | ttach.debugger.(e.g...gdb).to.th |
| 28da40 | 65 20 63 75 72 72 65 6e 74 20 6c 69 73 70 20 70 72 6f 63 65 73 73 2e 0a 0a 1f 0a 46 69 6c 65 3a | e.current.lisp.process.....File: |
| 28da60 | 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 4d 69 73 63 2c 20 20 4e | .docFDBrww.info,..Node:.Misc,..N |
| 28da80 | 65 78 74 3a 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 2c 20 20 50 72 65 76 3a 20 44 65 62 75 67 | ext:.Customization,..Prev:.Debug |
| 28daa0 | 67 65 72 2c 20 20 55 70 3a 20 54 6f 70 0a 0a 35 20 4d 69 73 63 0a 2a 2a 2a 2a 2a 2a 0a 0a 2a 20 | ger,..Up:.Top..5.Misc.******..*. |
| 28dac0 | 4d 65 6e 75 3a 0a 0a 2a 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 3a 3a 0a 2a 20 73 6c 69 6d | Menu:..*.slime-selector::.*.slim |
| 28dae0 | 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 3a 3a 0a 2a 20 | e-macroexpansion-minor-mode::.*. |
| 28db00 | 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 3a 3a 0a 0a 1f 0a 46 69 6c 65 3a 20 | Multiple.connections::....File:. |
| 28db20 | 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 73 6c 69 6d 65 2d 73 65 6c | docFDBrww.info,..Node:.slime-sel |
| 28db40 | 65 63 74 6f 72 2c 20 20 4e 65 78 74 3a 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 | ector,..Next:.slime-macroexpansi |
| 28db60 | 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 2c 20 20 55 70 3a 20 4d 69 73 63 0a 0a 35 2e 31 20 e2 80 | on-minor-mode,..Up:.Misc..5.1... |
| 28db80 | 98 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 e2 80 99 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | .slime-selector....============= |
| 28dba0 | 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 e2 80 98 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 e2 80 | =======..The....slime-selector.. |
| 28dbc0 | 99 20 63 6f 6d 6d 61 6e 64 20 69 73 20 66 6f 72 20 71 75 69 63 6b 6c 79 20 73 77 69 74 63 68 69 | ..command.is.for.quickly.switchi |
| 28dbe0 | 6e 67 20 74 6f 20 69 6d 70 6f 72 74 61 6e 74 0a 62 75 66 66 65 72 73 3a 20 74 68 65 20 52 45 50 | ng.to.important.buffers:.the.REP |
| 28dc00 | 4c 2c 20 53 4c 44 42 2c 20 74 68 65 20 4c 69 73 70 20 73 6f 75 72 63 65 20 79 6f 75 20 77 65 72 | L,.SLDB,.the.Lisp.source.you.wer |
| 28dc20 | 65 20 6a 75 73 74 20 68 61 63 6b 69 6e 67 2c 20 65 74 63 2e 0a 4f 6e 63 65 20 69 6e 76 6f 6b 65 | e.just.hacking,.etc..Once.invoke |
| 28dc40 | 64 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 70 72 6f 6d 70 74 73 20 66 6f 72 20 61 20 73 69 6e 67 | d.the.command.prompts.for.a.sing |
| 28dc60 | 6c 65 20 6c 65 74 74 65 72 20 74 6f 20 73 70 65 63 69 66 79 20 77 68 69 63 68 0a 62 75 66 66 65 | le.letter.to.specify.which.buffe |
| 28dc80 | 72 20 69 74 20 73 68 6f 75 6c 64 20 64 69 73 70 6c 61 79 2e 20 20 49 66 20 61 20 70 72 65 66 69 | r.it.should.display...If.a.prefi |
| 28dca0 | 78 20 61 72 67 75 6d 65 6e 74 20 69 73 20 73 70 65 63 69 66 69 65 64 20 74 68 65 6e 20 74 68 65 | x.argument.is.specified.then.the |
| 28dcc0 | 0a 62 75 66 66 65 72 20 69 73 20 73 68 6f 77 6e 20 69 6e 20 74 68 65 20 6f 74 68 65 72 20 77 69 | .buffer.is.shown.in.the.other.wi |
| 28dce0 | 6e 64 6f 77 2e 20 20 48 65 72 65 20 61 72 65 20 73 6f 6d 65 20 6f 66 20 74 68 65 20 6d 61 69 6e | ndow...Here.are.some.of.the.main |
| 28dd00 | 20 6f 70 74 69 6f 6e 73 3a 0a 0a e2 80 98 3f e2 80 99 0a 20 20 20 20 20 41 20 68 65 6c 70 20 62 | .options:.....?.........A.help.b |
| 28dd20 | 75 66 66 65 72 20 6c 69 73 74 69 6e 67 20 61 6c 6c 20 e2 80 98 73 6c 69 6d 65 2d 73 65 6c 65 63 | uffer.listing.all....slime-selec |
| 28dd40 | 74 6f 72 73 e2 80 99 e2 80 99 73 20 61 76 61 69 6c 61 62 6c 65 20 62 75 66 66 65 72 73 2e 0a 20 | tors......s.available.buffers... |
| 28dd60 | 20 20 20 20 54 68 69 73 20 69 6e 63 6c 75 64 65 73 20 73 6f 6d 65 20 6f 70 74 69 6f 6e 73 20 6f | ....This.includes.some.options.o |
| 28dd80 | 66 20 6c 65 73 73 65 72 20 69 6d 70 6f 72 74 61 6e 63 65 2c 20 65 2e 67 2e 20 20 69 6e 74 65 6e | f.lesser.importance,.e.g...inten |
| 28dda0 | 64 65 64 20 66 6f 72 0a 20 20 20 20 20 64 65 62 75 67 67 69 6e 67 20 53 4c 49 4d 45 2c 20 77 68 | ded.for......debugging.SLIME,.wh |
| 28ddc0 | 69 63 68 20 61 72 65 20 6e 6f 74 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 74 68 69 73 20 6c 69 73 | ich.are.not.included.in.this.lis |
| 28dde0 | 74 2e 0a e2 80 98 72 e2 80 99 0a 20 20 20 20 20 54 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 20 | t.....r.........The.REPL.buffer. |
| 28de00 | 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 53 4c 49 4d 45 20 63 6f 6e 6e 65 63 74 69 6f 6e | for.the.current.SLIME.connection |
| 28de20 | 2e 0a e2 80 98 64 e2 80 99 0a 20 20 20 20 20 54 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 | .....d.........The.most.recently |
| 28de40 | 20 61 63 74 69 76 61 74 65 64 20 53 4c 44 42 20 62 75 66 66 65 72 20 66 6f 72 20 74 68 65 20 63 | .activated.SLDB.buffer.for.the.c |
| 28de60 | 75 72 72 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a e2 80 98 6c e2 80 99 0a 20 20 20 20 20 | urrent.connection.....l......... |
| 28de80 | 54 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 20 76 69 73 69 74 65 64 20 e2 80 98 6c 69 73 | The.most.recently.visited....lis |
| 28dea0 | 70 2d 6d 6f 64 65 e2 80 99 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 2e 0a e2 80 98 73 e2 80 99 | p-mode....source.buffer.....s... |
| 28dec0 | 0a 20 20 20 20 20 54 68 65 20 e2 80 98 2a 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 2a e2 80 99 20 | ......The....*slime-scratch*.... |
| 28dee0 | 62 75 66 66 65 72 20 28 2a 6e 6f 74 65 20 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 3a 3a 29 2e 0a | buffer.(*note.slime-scratch::).. |
| 28df00 | e2 80 98 63 e2 80 99 0a 20 20 20 20 20 53 4c 49 4d 45 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 62 | ...c.........SLIME.connections.b |
| 28df20 | 75 66 66 65 72 20 28 2a 6e 6f 74 65 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e | uffer.(*note.Multiple.connection |
| 28df40 | 73 3a 3a 29 2e 0a e2 80 98 6e e2 80 99 0a 20 20 20 20 20 43 79 63 6c 65 20 74 6f 20 74 68 65 20 | s::).....n.........Cycle.to.the. |
| 28df60 | 6e 65 78 74 20 4c 69 73 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 2a 6e 6f 74 65 20 4d 75 6c 74 | next.Lisp.connection.(*note.Mult |
| 28df80 | 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 3a 3a 29 2e 0a e2 80 98 74 e2 80 99 0a 20 20 20 | iple.connections::).....t....... |
| 28dfa0 | 20 20 53 4c 49 4d 45 20 74 68 72 65 61 64 73 20 62 75 66 66 65 72 20 28 2a 6e 6f 74 65 20 4d 75 | ..SLIME.threads.buffer.(*note.Mu |
| 28dfc0 | 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 3a 3a 29 2e 0a e2 80 98 69 e2 80 99 0a 20 | ltiple.connections::).....i..... |
| 28dfe0 | 20 20 20 20 54 68 65 20 e2 80 98 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a e2 80 99 20 62 75 | ....The....*inferior-lisp*....bu |
| 28e000 | 66 66 65 72 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e | ffer.for.the.current.connection. |
| 28e020 | 0a e2 80 98 34 e2 80 99 0a 20 20 20 20 20 53 68 6f 77 20 62 75 66 66 65 72 20 69 6e 20 6f 74 68 | ....4.........Show.buffer.in.oth |
| 28e040 | 65 72 20 77 69 6e 64 6f 77 2e 20 20 45 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 73 75 70 70 6c 79 | er.window...Equivalent.to.supply |
| 28e060 | 69 6e 67 20 61 20 70 72 65 66 69 78 0a 20 20 20 20 20 61 72 67 75 6d 65 6e 74 2e 20 20 50 72 6f | ing.a.prefix......argument...Pro |
| 28e080 | 6d 70 74 73 20 61 67 61 69 6e 20 66 6f 72 20 77 68 69 63 68 20 62 75 66 66 65 72 20 74 6f 20 73 | mpts.again.for.which.buffer.to.s |
| 28e0a0 | 65 6c 65 63 74 2e 0a 0a 20 20 20 e2 80 98 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 e2 80 99 20 | elect.........slime-selector.... |
| 28e0c0 | 64 6f 65 73 6e e2 80 99 74 20 68 61 76 65 20 61 20 6b 65 79 20 62 69 6e 64 69 6e 67 20 62 79 20 | doesn...t.have.a.key.binding.by. |
| 28e0e0 | 64 65 66 61 75 6c 74 20 62 75 74 20 77 65 20 73 75 67 67 65 73 74 0a 74 68 61 74 20 79 6f 75 20 | default.but.we.suggest.that.you. |
| 28e100 | 61 73 73 69 67 6e 20 69 74 20 61 20 67 6c 6f 62 61 6c 20 6f 6e 65 2e 20 20 59 6f 75 20 63 61 6e | assign.it.a.global.one...You.can |
| 28e120 | 20 62 69 6e 64 20 69 74 20 74 6f 20 e2 80 98 43 2d 63 20 73 e2 80 99 20 6c 69 6b 65 20 74 68 69 | .bind.it.to....C-c.s....like.thi |
| 28e140 | 73 3a 0a 0a 20 20 20 20 20 28 67 6c 6f 62 61 6c 2d 73 65 74 2d 6b 65 79 20 22 5c 43 2d 63 73 22 | s:.......(global-set-key."\C-cs" |
| 28e160 | 20 27 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 29 0a 0a 41 6e 64 20 74 68 65 6e 20 79 6f 75 20 | .'slime-selector)..And.then.you. |
| 28e180 | 63 61 6e 20 73 77 69 74 63 68 20 74 6f 20 74 68 65 20 52 45 50 4c 20 66 72 6f 6d 20 61 6e 79 77 | can.switch.to.the.REPL.from.anyw |
| 28e1a0 | 68 65 72 65 20 77 69 74 68 20 e2 80 98 43 2d 63 20 73 20 72 e2 80 99 2e 0a 0a 20 20 20 54 68 65 | here.with....C-c.s.r.........The |
| 28e1c0 | 20 6d 61 63 72 6f 20 e2 80 98 64 65 66 2d 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2d 6d 65 74 | .macro....def-slime-selector-met |
| 28e1e0 | 68 6f 64 e2 80 99 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 64 65 66 69 6e 65 20 6e 65 77 | hod....can.be.used.to.define.new |
| 28e200 | 0a 62 75 66 66 65 72 73 20 66 6f 72 20 e2 80 98 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 e2 80 | .buffers.for....slime-selector.. |
| 28e220 | 99 20 74 6f 20 66 69 6e 64 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e | ..to.find.....File:.docFDBrww.in |
| 28e240 | 66 6f 2c 20 20 4e 6f 64 65 3a 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d | fo,..Node:.slime-macroexpansion- |
| 28e260 | 6d 69 6e 6f 72 2d 6d 6f 64 65 2c 20 20 4e 65 78 74 3a 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e | minor-mode,..Next:.Multiple.conn |
| 28e280 | 65 63 74 69 6f 6e 73 2c 20 20 50 72 65 76 3a 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 2c 20 | ections,..Prev:.slime-selector,. |
| 28e2a0 | 20 55 70 3a 20 4d 69 73 63 0a 0a 35 2e 32 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 | .Up:.Misc..5.2.slime-macroexpans |
| 28e2c0 | 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ion-minor-mode.================= |
| 28e2e0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 57 69 74 68 69 6e 20 61 20 73 6c 69 | ==================..Within.a.sli |
| 28e300 | 6d 65 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 62 75 66 66 65 72 20 73 6f 6d 65 20 65 78 | me.macroexpansion.buffer.some.ex |
| 28e320 | 74 72 61 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 0a 28 74 68 65 73 65 | tra.commands.are.provided.(these |
| 28e340 | 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 61 6c 77 61 79 73 20 61 76 61 69 6c 61 62 6c 65 20 62 | .commands.are.always.available.b |
| 28e360 | 75 74 20 61 72 65 20 6f 6e 6c 79 20 62 6f 75 6e 64 20 74 6f 20 6b 65 79 73 20 69 6e 20 61 0a 6d | ut.are.only.bound.to.keys.in.a.m |
| 28e380 | 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 62 75 66 66 65 72 29 2e 0a 0a e2 80 98 43 2d 63 20 43 | acroexpansion.buffer)......C-c.C |
| 28e3a0 | 2d 6d e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 | -m.......M-x.slime-macroexpand-1 |
| 28e3c0 | 2d 69 6e 70 6c 61 63 65 e2 80 99 0a 20 20 20 20 20 4a 75 73 74 20 6c 69 6b 65 20 73 6c 69 6d 65 | -inplace.........Just.like.slime |
| 28e3e0 | 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 62 75 74 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 | -macroexpand-1.but.the.original. |
| 28e400 | 66 6f 72 6d 20 69 73 20 72 65 70 6c 61 63 65 64 0a 20 20 20 20 20 77 69 74 68 20 74 68 65 20 65 | form.is.replaced......with.the.e |
| 28e420 | 78 70 61 6e 73 69 6f 6e 2e 0a 0a e2 80 98 67 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d | xpansion......g.......M-x.slime- |
| 28e440 | 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 2d 69 6e 70 6c 61 63 65 e2 80 99 0a 20 20 20 20 20 54 68 | macroexpand-1-inplace.........Th |
| 28e460 | 65 20 6c 61 73 74 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 69 73 20 70 65 72 66 6f 72 6d | e.last.macroexpansion.is.perform |
| 28e480 | 65 64 20 61 67 61 69 6e 2c 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 74 65 6e 74 73 20 6f | ed.again,.the.current.contents.o |
| 28e4a0 | 66 0a 20 20 20 20 20 74 68 65 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 62 75 66 66 65 72 | f......the.macroexpansion.buffer |
| 28e4c0 | 20 61 72 65 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 74 68 65 20 6e 65 77 20 65 78 70 61 6e | .are.replaced.with.the.new.expan |
| 28e4e0 | 73 69 6f 6e 2e 0a 0a e2 80 98 71 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 74 65 6d 70 | sion......q.......M-x.slime-temp |
| 28e500 | 2d 62 75 66 66 65 72 2d 71 75 69 74 e2 80 99 0a 20 20 20 20 20 43 6c 6f 73 65 20 74 68 65 20 65 | -buffer-quit.........Close.the.e |
| 28e520 | 78 70 61 6e 73 69 6f 6e 20 62 75 66 66 65 72 2e 0a 0a e2 80 98 43 2d 5f e2 80 99 0a e2 80 98 4d | xpansion.buffer......C-_.......M |
| 28e540 | 2d 78 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 75 6e 64 6f e2 80 99 0a 20 20 20 | -x.slime-macroexpand-undo....... |
| 28e560 | 20 20 55 6e 64 6f 20 6c 61 73 74 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 6f 70 65 72 61 | ..Undo.last.macroexpansion.opera |
| 28e580 | 74 69 6f 6e 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 | tion.....File:.docFDBrww.info,.. |
| 28e5a0 | 4e 6f 64 65 3a 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2c 20 20 50 72 65 | Node:.Multiple.connections,..Pre |
| 28e5c0 | 76 3a 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f | v:.slime-macroexpansion-minor-mo |
| 28e5e0 | 64 65 2c 20 20 55 70 3a 20 4d 69 73 63 0a 0a 35 2e 33 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e | de,..Up:.Misc..5.3.Multiple.conn |
| 28e600 | 65 63 74 69 6f 6e 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ections.======================== |
| 28e620 | 0a 0a 53 4c 49 4d 45 20 69 73 20 61 62 6c 65 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 20 6d 75 | ..SLIME.is.able.to.connect.to.mu |
| 28e640 | 6c 74 69 70 6c 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 65 73 20 61 74 20 74 68 65 20 73 61 6d | ltiple.Lisp.processes.at.the.sam |
| 28e660 | 65 20 74 69 6d 65 2e 0a 54 68 65 20 e2 80 98 4d 2d 78 20 73 6c 69 6d 65 e2 80 99 20 63 6f 6d 6d | e.time..The....M-x.slime....comm |
| 28e680 | 61 6e 64 2c 20 77 68 65 6e 20 69 6e 76 6f 6b 65 64 20 77 69 74 68 20 61 20 70 72 65 66 69 78 20 | and,.when.invoked.with.a.prefix. |
| 28e6a0 | 61 72 67 75 6d 65 6e 74 2c 20 77 69 6c 6c 20 6f 66 66 65 72 0a 74 6f 20 63 72 65 61 74 65 20 61 | argument,.will.offer.to.create.a |
| 28e6c0 | 6e 20 61 64 64 69 74 69 6f 6e 61 6c 20 4c 69 73 70 20 70 72 6f 63 65 73 73 20 69 66 20 6f 6e 65 | n.additional.Lisp.process.if.one |
| 28e6e0 | 20 69 73 20 61 6c 72 65 61 64 79 20 72 75 6e 6e 69 6e 67 2e 20 20 54 68 69 73 20 69 73 0a 6f 66 | .is.already.running...This.is.of |
| 28e700 | 74 65 6e 20 63 6f 6e 76 65 6e 69 65 6e 74 2c 20 62 75 74 20 69 74 20 72 65 71 75 69 72 65 73 20 | ten.convenient,.but.it.requires. |
| 28e720 | 73 6f 6d 65 20 75 6e 64 65 72 73 74 61 6e 64 69 6e 67 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 | some.understanding.to.make.sure. |
| 28e740 | 74 68 61 74 0a 79 6f 75 72 20 53 4c 49 4d 45 20 63 6f 6d 6d 61 6e 64 73 20 65 78 65 63 75 74 65 | that.your.SLIME.commands.execute |
| 28e760 | 20 69 6e 20 74 68 65 20 4c 69 73 70 20 74 68 61 74 20 79 6f 75 20 65 78 70 65 63 74 20 74 68 65 | .in.the.Lisp.that.you.expect.the |
| 28e780 | 6d 20 74 6f 2e 0a 0a 20 20 20 53 6f 6d 65 20 62 75 66 66 65 72 73 20 61 72 65 20 74 69 65 64 20 | m.to......Some.buffers.are.tied. |
| 28e7a0 | 74 6f 20 73 70 65 63 69 66 69 63 20 4c 69 73 70 20 70 72 6f 63 65 73 73 65 73 2e 20 20 45 61 63 | to.specific.Lisp.processes...Eac |
| 28e7c0 | 68 20 4c 69 73 70 0a 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 20 69 74 73 20 6f 77 6e 20 52 45 | h.Lisp.connection.has.its.own.RE |
| 28e7e0 | 50 4c 20 62 75 66 66 65 72 2c 20 61 6e 64 20 61 6c 6c 20 65 78 70 72 65 73 73 69 6f 6e 73 20 65 | PL.buffer,.and.all.expressions.e |
| 28e800 | 6e 74 65 72 65 64 20 6f 72 20 53 4c 49 4d 45 0a 63 6f 6d 6d 61 6e 64 73 20 69 6e 76 6f 6b 65 64 | ntered.or.SLIME.commands.invoked |
| 28e820 | 20 69 6e 20 74 68 61 74 20 62 75 66 66 65 72 20 61 72 65 20 73 65 6e 74 20 74 6f 20 74 68 65 20 | .in.that.buffer.are.sent.to.the. |
| 28e840 | 61 73 73 6f 63 69 61 74 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 4f 74 68 65 72 20 62 75 66 | associated.connection..Other.buf |
| 28e860 | 66 65 72 73 20 63 72 65 61 74 65 64 20 62 79 20 53 4c 49 4d 45 20 61 72 65 20 73 69 6d 69 6c 61 | fers.created.by.SLIME.are.simila |
| 28e880 | 72 6c 79 20 74 69 65 64 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 0a 74 68 65 79 | rly.tied.to.the.connections.they |
| 28e8a0 | 20 6f 72 69 67 69 6e 61 74 65 20 66 72 6f 6d 2c 20 69 6e 63 6c 75 64 69 6e 67 20 53 4c 44 42 20 | .originate.from,.including.SLDB. |
| 28e8c0 | 62 75 66 66 65 72 73 2c 20 61 70 72 6f 70 6f 73 20 72 65 73 75 6c 74 20 6c 69 73 74 69 6e 67 73 | buffers,.apropos.result.listings |
| 28e8e0 | 2c 0a 61 6e 64 20 73 6f 20 6f 6e 2e 20 20 54 68 65 73 65 20 62 75 66 66 65 72 73 20 61 72 65 20 | ,.and.so.on...These.buffers.are. |
| 28e900 | 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 73 6f 6d 65 20 69 6e 74 65 72 61 63 74 69 6f 6e 20 77 | the.result.of.some.interaction.w |
| 28e920 | 69 74 68 20 61 20 4c 69 73 70 0a 70 72 6f 63 65 73 73 2c 20 73 6f 20 63 6f 6d 6d 61 6e 64 73 20 | ith.a.Lisp.process,.so.commands. |
| 28e940 | 69 6e 20 74 68 65 6d 20 61 6c 77 61 79 73 20 67 6f 20 62 61 63 6b 20 74 6f 20 74 68 61 74 20 73 | in.them.always.go.back.to.that.s |
| 28e960 | 61 6d 65 20 70 72 6f 63 65 73 73 2e 0a 0a 20 20 20 43 6f 6d 6d 61 6e 64 73 20 65 78 65 63 75 74 | ame.process......Commands.execut |
| 28e980 | 65 64 20 69 6e 20 6f 74 68 65 72 20 70 6c 61 63 65 73 2c 20 73 75 63 68 20 61 73 20 e2 80 98 73 | ed.in.other.places,.such.as....s |
| 28e9a0 | 6c 69 6d 65 2d 6d 6f 64 65 e2 80 99 20 73 6f 75 72 63 65 0a 62 75 66 66 65 72 73 2c 20 61 6c 77 | lime-mode....source.buffers,.alw |
| 28e9c0 | 61 79 73 20 75 73 65 20 74 68 65 20 e2 80 9c 64 65 66 61 75 6c 74 e2 80 9d 20 63 6f 6e 6e 65 63 | ays.use.the....default....connec |
| 28e9e0 | 74 69 6f 6e 2e 20 20 55 73 75 61 6c 6c 79 20 74 68 69 73 20 69 73 20 74 68 65 20 6d 6f 73 74 0a | tion...Usually.this.is.the.most. |
| 28ea00 | 72 65 63 65 6e 74 6c 79 20 65 73 74 61 62 6c 69 73 68 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 2c | recently.established.connection, |
| 28ea20 | 20 62 75 74 20 74 68 69 73 20 63 61 6e 20 62 65 20 72 65 61 73 73 69 67 6e 65 64 20 76 69 61 20 | .but.this.can.be.reassigned.via. |
| 28ea40 | 74 68 65 0a e2 80 9c 63 6f 6e 6e 65 63 74 69 6f 6e 20 6c 69 73 74 e2 80 9d 20 62 75 66 66 65 72 | the....connection.list....buffer |
| 28ea60 | 3a 0a 0a e2 80 98 43 2d 63 20 43 2d 78 20 63 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d | :.....C-c.C-x.c.......M-x.slime- |
| 28ea80 | 6c 69 73 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 e2 80 99 0a 20 20 20 20 20 50 6f 70 20 75 70 20 | list-connections.........Pop.up. |
| 28eaa0 | 61 20 62 75 66 66 65 72 20 6c 69 73 74 69 6e 67 20 74 68 65 20 65 73 74 61 62 6c 69 73 68 65 64 | a.buffer.listing.the.established |
| 28eac0 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 20 20 49 74 20 69 73 20 61 6c 73 6f 0a 20 20 20 20 20 61 | .connections...It.is.also......a |
| 28eae0 | 76 61 69 6c 61 62 6c 65 20 62 79 20 74 68 65 20 74 79 70 69 6e 67 20 e2 80 98 63 e2 80 99 20 66 | vailable.by.the.typing....c....f |
| 28eb00 | 72 6f 6d 20 74 68 65 20 53 4c 49 4d 45 20 73 65 6c 65 63 74 6f 72 20 28 2a 6e 6f 74 65 0a 20 20 | rom.the.SLIME.selector.(*note... |
| 28eb20 | 20 20 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 3a 3a 29 2e 0a 0a e2 80 98 43 2d 63 20 43 2d | ...slime-selector::)......C-c.C- |
| 28eb40 | 78 20 6e e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 79 63 6c 65 2d 63 6f 6e 6e 65 63 | x.n.......M-x.slime-cycle-connec |
| 28eb60 | 74 69 6f 6e 73 e2 80 99 0a 20 20 20 20 20 43 68 61 6e 67 65 20 63 75 72 72 65 6e 74 20 4c 69 73 | tions.........Change.current.Lis |
| 28eb80 | 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 79 20 63 79 63 6c 69 6e 67 20 74 68 72 6f 75 67 68 20 | p.connection.by.cycling.through. |
| 28eba0 | 61 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 49 74 20 69 73 20 61 6c 73 6f | all.connections.......It.is.also |
| 28ebc0 | 20 61 76 61 69 6c 61 62 6c 65 20 62 79 20 74 68 65 20 74 79 70 69 6e 67 20 e2 80 98 6e e2 80 99 | .available.by.the.typing....n... |
| 28ebe0 | 20 66 72 6f 6d 20 74 68 65 20 53 4c 49 4d 45 20 73 65 6c 65 63 74 6f 72 0a 20 20 20 20 20 28 2a | .from.the.SLIME.selector......(* |
| 28ec00 | 6e 6f 74 65 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 3a 3a 29 2e 0a 0a e2 80 98 43 2d 63 20 | note.slime-selector::)......C-c. |
| 28ec20 | 43 2d 78 20 74 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 74 68 72 65 61 | C-x.t.......M-x.slime-list-threa |
| 28ec40 | 64 73 e2 80 99 0a 20 20 20 20 20 50 6f 70 20 75 70 20 61 20 62 75 66 66 65 72 20 6c 69 73 74 69 | ds.........Pop.up.a.buffer.listi |
| 28ec60 | 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 68 72 65 61 64 73 2e 20 20 49 74 20 69 73 20 61 | ng.the.current.threads...It.is.a |
| 28ec80 | 6c 73 6f 20 61 76 61 69 6c 61 62 6c 65 0a 20 20 20 20 20 62 79 20 74 68 65 20 74 79 70 69 6e 67 | lso.available......by.the.typing |
| 28eca0 | 20 e2 80 98 74 e2 80 99 20 66 72 6f 6d 20 74 68 65 20 53 4c 49 4d 45 20 73 65 6c 65 63 74 6f 72 | ....t....from.the.SLIME.selector |
| 28ecc0 | 20 28 2a 6e 6f 74 65 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 3a 3a 29 2e 0a 0a 20 20 20 54 | .(*note.slime-selector::)......T |
| 28ece0 | 68 65 20 62 75 66 66 65 72 20 64 69 73 70 6c 61 79 65 64 20 62 79 20 e2 80 98 73 6c 69 6d 65 2d | he.buffer.displayed.by....slime- |
| 28ed00 | 6c 69 73 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 e2 80 99 20 67 69 76 65 73 20 61 20 6f 6e 65 2d | list-connections....gives.a.one- |
| 28ed20 | 6c 69 6e 65 0a 73 75 6d 6d 61 72 79 20 6f 66 20 65 61 63 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e | line.summary.of.each.connection. |
| 28ed40 | 20 20 54 68 65 20 73 75 6d 6d 61 72 79 20 73 68 6f 77 73 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 | ..The.summary.shows.the.connecti |
| 28ed60 | 6f 6e e2 80 99 73 20 73 65 72 69 61 6c 0a 6e 75 6d 62 65 72 2c 20 74 68 65 20 6e 61 6d 65 20 6f | on...s.serial.number,.the.name.o |
| 28ed80 | 66 20 74 68 65 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2c 20 61 6e 64 20 6f | f.the.Lisp.implementation,.and.o |
| 28eda0 | 74 68 65 72 20 64 65 74 61 69 6c 73 20 6f 66 20 74 68 65 0a 4c 69 73 70 20 70 72 6f 63 65 73 73 | ther.details.of.the.Lisp.process |
| 28edc0 | 2e 20 20 54 68 65 20 63 75 72 72 65 6e 74 20 e2 80 9c 64 65 66 61 75 6c 74 e2 80 9d 20 63 6f 6e | ...The.current....default....con |
| 28ede0 | 6e 65 63 74 69 6f 6e 20 69 73 20 69 6e 64 69 63 61 74 65 64 20 77 69 74 68 20 61 6e 0a 61 73 74 | nection.is.indicated.with.an.ast |
| 28ee00 | 65 72 69 73 6b 2e 0a 0a 20 20 20 54 68 65 20 63 6f 6d 6d 61 6e 64 73 20 61 76 61 69 6c 61 62 6c | erisk......The.commands.availabl |
| 28ee20 | 65 20 69 6e 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 20 62 75 66 66 65 72 20 | e.in.the.connection-list.buffer. |
| 28ee40 | 61 72 65 3a 0a 0a e2 80 98 52 45 54 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 67 6f 74 | are:.....RET.......M-x.slime-got |
| 28ee60 | 6f 2d 63 6f 6e 6e 65 63 74 69 6f 6e e2 80 99 0a 20 20 20 20 20 50 6f 70 20 74 6f 20 74 68 65 20 | o-connection.........Pop.to.the. |
| 28ee80 | 52 45 50 4c 20 62 75 66 66 65 72 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 61 74 | REPL.buffer.of.the.connection.at |
| 28eea0 | 20 70 6f 69 6e 74 2e 0a 0a e2 80 98 64 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f | .point......d.......M-x.slime-co |
| 28eec0 | 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 2d 6d 61 6b 65 2d 64 65 66 61 75 6c 74 e2 80 99 0a 20 20 | nnection-list-make-default...... |
| 28eee0 | 20 20 20 4d 61 6b 65 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 20 | ...Make.the.connection.at.point. |
| 28ef00 | 74 68 65 20 e2 80 9c 64 65 66 61 75 6c 74 e2 80 9d 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 20 49 | the....default....connection...I |
| 28ef20 | 74 20 77 69 6c 6c 0a 20 20 20 20 20 74 68 65 6e 20 62 65 20 75 73 65 64 20 66 6f 72 20 63 6f 6d | t.will......then.be.used.for.com |
| 28ef40 | 6d 61 6e 64 73 20 69 6e 20 e2 80 98 73 6c 69 6d 65 2d 6d 6f 64 65 e2 80 99 20 73 6f 75 72 63 65 | mands.in....slime-mode....source |
| 28ef60 | 20 62 75 66 66 65 72 73 2e 0a 0a e2 80 98 67 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d | .buffers......g.......M-x.slime- |
| 28ef80 | 75 70 64 61 74 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 e2 80 99 0a 20 20 20 20 20 55 | update-connection-list.........U |
| 28efa0 | 70 64 61 74 65 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6c 69 73 74 20 69 6e 20 74 68 65 | pdate.the.connection.list.in.the |
| 28efc0 | 20 62 75 66 66 65 72 2e 0a 0a e2 80 98 71 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 74 | .buffer......q.......M-x.slime-t |
| 28efe0 | 65 6d 70 2d 62 75 66 66 65 72 2d 71 75 69 74 e2 80 99 0a 20 20 20 20 20 51 75 69 74 20 74 68 65 | emp-buffer-quit.........Quit.the |
| 28f000 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6c 69 73 74 20 28 6b 69 6c 6c 20 62 75 66 66 65 72 2c 20 72 | .connection.list.(kill.buffer,.r |
| 28f020 | 65 73 74 6f 72 65 20 77 69 6e 64 6f 77 0a 20 20 20 20 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e | estore.window......configuration |
| 28f040 | 29 2e 0a 0a e2 80 98 52 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 73 74 61 72 74 | )......R.......M-x.slime-restart |
| 28f060 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 e2 80 99 0a 20 20 20 20 20 52 65 73 | -connection-at-point.........Res |
| 28f080 | 74 61 72 74 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 20 66 6f 72 20 74 68 65 20 63 6f | tart.the.Lisp.process.for.the.co |
| 28f0a0 | 6e 6e 65 63 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 | nnection.at.point......M-x.slime |
| 28f0c0 | 2d 63 6f 6e 6e 65 63 74 e2 80 99 0a 20 20 20 20 20 43 6f 6e 6e 65 63 74 20 74 6f 20 61 20 72 75 | -connect.........Connect.to.a.ru |
| 28f0e0 | 6e 6e 69 6e 67 20 53 77 61 6e 6b 20 73 65 72 76 65 72 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d | nning.Swank.server......M-x.slim |
| 28f100 | 65 2d 64 69 73 63 6f 6e 6e 65 63 74 e2 80 99 0a 20 20 20 20 20 44 69 73 63 6f 6e 6e 65 63 74 20 | e-disconnect.........Disconnect. |
| 28f120 | 61 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 61 | all.connections......M-x.slime-a |
| 28f140 | 62 6f 72 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e e2 80 99 0a 20 20 20 20 20 41 62 6f 72 74 20 74 68 | bort-connection.........Abort.th |
| 28f160 | 65 20 63 75 72 72 65 6e 74 20 61 74 74 65 6d 70 74 20 74 6f 20 63 6f 6e 6e 65 63 74 2e 0a 0a 1f | e.current.attempt.to.connect.... |
| 28f180 | 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 43 75 | .File:.docFDBrww.info,..Node:.Cu |
| 28f1a0 | 73 74 6f 6d 69 7a 61 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 54 69 70 73 20 61 6e 64 20 54 72 69 | stomization,..Next:.Tips.and.Tri |
| 28f1c0 | 63 6b 73 2c 20 20 50 72 65 76 3a 20 4d 69 73 63 2c 20 20 55 70 3a 20 54 6f 70 0a 0a 36 20 43 75 | cks,..Prev:.Misc,..Up:.Top..6.Cu |
| 28f1e0 | 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 2a 20 4d | stomization.***************..*.M |
| 28f200 | 65 6e 75 3a 0a 0a 2a 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e | enu:..*.Emacs-side.customization |
| 28f220 | 3a 3a 0a 2a 20 4c 69 73 70 2d 73 69 64 65 3a 3a 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 | ::.*.Lisp-side::....File:.docFDB |
| 28f240 | 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 74 | rww.info,..Node:.Emacs-side.cust |
| 28f260 | 6f 6d 69 7a 61 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 4c 69 73 70 2d 73 69 64 65 2c 20 20 55 70 | omization,..Next:.Lisp-side,..Up |
| 28f280 | 3a 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 0a 36 2e 31 20 45 6d 61 63 73 2d 73 69 64 65 0a | :.Customization..6.1.Emacs-side. |
| 28f2a0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 45 6d 61 63 73 20 70 61 72 74 20 6f | ==============..The.Emacs.part.o |
| 28f2c0 | 66 20 53 4c 49 4d 45 20 63 61 6e 20 62 65 20 63 6f 6e 66 69 67 75 72 65 64 20 77 69 74 68 20 74 | f.SLIME.can.be.configured.with.t |
| 28f2e0 | 68 65 20 45 6d 61 63 73 20 e2 80 98 63 75 73 74 6f 6d 69 7a 65 e2 80 99 0a 73 79 73 74 65 6d 2c | he.Emacs....customize....system, |
| 28f300 | 20 6a 75 73 74 20 75 73 65 20 e2 80 98 4d 2d 78 20 63 75 73 74 6f 6d 69 7a 65 2d 67 72 6f 75 70 | .just.use....M-x.customize-group |
| 28f320 | 20 73 6c 69 6d 65 20 52 45 54 e2 80 99 2e 20 20 42 65 63 61 75 73 65 20 74 68 65 20 63 75 73 74 | .slime.RET......Because.the.cust |
| 28f340 | 6f 6d 69 7a 65 0a 73 79 73 74 65 6d 20 69 73 20 73 65 6c 66 2d 64 65 73 63 72 69 62 69 6e 67 2c | omize.system.is.self-describing, |
| 28f360 | 20 77 65 20 6f 6e 6c 79 20 63 6f 76 65 72 20 61 20 66 65 77 20 69 6d 70 6f 72 74 61 6e 74 20 6f | .we.only.cover.a.few.important.o |
| 28f380 | 72 20 6f 62 73 63 75 72 65 0a 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 20 | r.obscure.configuration.options. |
| 28f3a0 | 68 65 72 65 20 69 6e 20 74 68 65 20 6d 61 6e 75 61 6c 2e 0a 0a e2 80 98 73 6c 69 6d 65 2d 74 72 | here.in.the.manual......slime-tr |
| 28f3c0 | 75 6e 63 61 74 65 2d 6c 69 6e 65 73 e2 80 99 0a 20 20 20 20 20 54 68 65 20 76 61 6c 75 65 20 74 | uncate-lines.........The.value.t |
| 28f3e0 | 6f 20 75 73 65 20 66 6f 72 20 e2 80 98 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 e2 80 99 20 69 | o.use.for....truncate-lines....i |
| 28f400 | 6e 20 6c 69 6e 65 2d 62 79 2d 6c 69 6e 65 20 73 75 6d 6d 61 72 79 0a 20 20 20 20 20 62 75 66 66 | n.line-by-line.summary......buff |
| 28f420 | 65 72 73 20 70 6f 70 70 65 64 20 75 70 20 62 79 20 53 4c 49 4d 45 2e 20 20 54 68 69 73 20 69 73 | ers.popped.up.by.SLIME...This.is |
| 28f440 | 20 e2 80 98 74 e2 80 99 20 62 79 20 64 65 66 61 75 6c 74 2c 20 77 68 69 63 68 20 65 6e 73 75 72 | ....t....by.default,.which.ensur |
| 28f460 | 65 73 0a 20 20 20 20 20 74 68 61 74 20 6c 69 6e 65 73 20 64 6f 20 6e 6f 74 20 77 72 61 70 20 69 | es......that.lines.do.not.wrap.i |
| 28f480 | 6e 20 62 61 63 6b 74 72 61 63 65 73 2c 20 61 70 72 6f 70 6f 73 20 6c 69 73 74 69 6e 67 73 2c 20 | n.backtraces,.apropos.listings,. |
| 28f4a0 | 61 6e 64 20 73 6f 20 6f 6e 2e 0a 20 20 20 20 20 49 74 20 63 61 6e 20 68 6f 77 65 76 65 72 20 63 | and.so.on.......It.can.however.c |
| 28f4c0 | 61 75 73 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 20 73 70 69 6c 6c 20 6f 66 66 20 74 68 | ause.information.to.spill.off.th |
| 28f4e0 | 65 20 73 63 72 65 65 6e 2e 0a 0a e2 80 98 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 | e.screen......slime-completion-a |
| 28f500 | 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 e2 80 99 0a 20 20 20 20 20 41 20 6c 69 73 74 | t-point-functions.........A.list |
| 28f520 | 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 75 73 65 64 20 66 6f 72 20 63 6f 6d 70 6c 65 74 69 6f | .of.functions.used.for.completio |
| 28f540 | 6e 20 6f 66 20 4c 69 73 70 20 73 79 6d 62 6f 6c 73 2e 20 20 54 68 69 73 0a 20 20 20 20 20 77 6f | n.of.Lisp.symbols...This......wo |
| 28f560 | 72 6b 73 20 61 73 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 e2 80 98 63 6f 6d 70 6c 65 74 69 6f | rks.as.the.standard....completio |
| 28f580 | 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 e2 80 99 20 28 2a 6e 6f 74 65 0a 20 | n-at-point-functions....(*note.. |
| 28f5a0 | 20 20 20 20 28 65 6c 69 73 70 29 43 6f 6d 70 6c 65 74 69 6f 6e 20 69 6e 20 42 75 66 66 65 72 73 | ....(elisp)Completion.in.Buffers |
| 28f5c0 | 3a 3a 29 2e 20 20 54 68 72 65 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 73 74 79 6c 65 73 20 61 72 | ::)...Three.completion.styles.ar |
| 28f5e0 | 65 0a 20 20 20 20 20 61 76 61 69 6c 61 62 6c 65 3a 20 e2 80 98 73 6c 69 6d 65 2d 73 69 6d 70 6c | e......available:....slime-simpl |
| 28f600 | 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 e2 80 99 2c 0a 20 20 20 20 20 e2 | e-completion-at-point...,....... |
| 28f620 | 80 98 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2a e2 80 99 20 28 2a 6e 6f | ..slime-complete-symbol*....(*no |
| 28f640 | 74 65 20 43 6f 6d 70 6f 75 6e 64 20 43 6f 6d 70 6c 65 74 69 6f 6e 3a 3a 29 2c 20 61 6e 64 0a 20 | te.Compound.Completion::),.and.. |
| 28f660 | 20 20 20 20 e2 80 98 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 | .......slime-fuzzy-complete-symb |
| 28f680 | 6f 6c e2 80 99 20 28 2a 6e 6f 74 65 20 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 3a 3a 29 | ol....(*note.Fuzzy.Completion::) |
| 28f6a0 | 2e 0a 0a 20 20 20 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 69 73 20 e2 80 98 73 6c 69 6d 65 2d | ........The.default.is....slime- |
| 28f6c0 | 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 e2 80 99 2c 20 77 | simple-completion-at-point...,.w |
| 28f6e0 | 68 69 63 68 20 63 6f 6d 70 6c 65 74 65 73 0a 20 20 20 20 20 69 6e 20 74 68 65 20 75 73 75 61 6c | hich.completes......in.the.usual |
| 28f700 | 20 45 6d 61 63 73 20 77 61 79 2e 0a 0a e2 80 98 73 6c 69 6d 65 2d 66 69 6c 65 6e 61 6d 65 2d 74 | .Emacs.way......slime-filename-t |
| 28f720 | 72 61 6e 73 6c 61 74 69 6f 6e 73 e2 80 99 0a 20 20 20 20 20 54 68 69 73 20 76 61 72 69 61 62 6c | ranslations.........This.variabl |
| 28f740 | 65 20 63 6f 6e 74 72 6f 6c 73 20 66 69 6c 65 6e 61 6d 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 | e.controls.filename.translation. |
| 28f760 | 62 65 74 77 65 65 6e 20 45 6d 61 63 73 20 61 6e 64 20 74 68 65 0a 20 20 20 20 20 4c 69 73 70 20 | between.Emacs.and.the......Lisp. |
| 28f780 | 73 79 73 74 65 6d 2e 20 20 49 74 20 69 73 20 75 73 65 66 75 6c 20 69 66 20 79 6f 75 20 72 75 6e | system...It.is.useful.if.you.run |
| 28f7a0 | 20 45 6d 61 63 73 20 61 6e 64 20 4c 69 73 70 20 6f 6e 20 73 65 70 61 72 61 74 65 0a 20 20 20 20 | .Emacs.and.Lisp.on.separate..... |
| 28f7c0 | 20 6d 61 63 68 69 6e 65 73 20 77 68 69 63 68 20 64 6f 6e e2 80 99 74 20 73 68 61 72 65 20 61 20 | .machines.which.don...t.share.a. |
| 28f7e0 | 63 6f 6d 6d 6f 6e 20 66 69 6c 65 20 73 79 73 74 65 6d 20 6f 72 20 69 66 20 74 68 65 79 20 73 68 | common.file.system.or.if.they.sh |
| 28f800 | 61 72 65 0a 20 20 20 20 20 74 68 65 20 66 69 6c 65 73 79 73 74 65 6d 20 62 75 74 20 68 61 76 65 | are......the.filesystem.but.have |
| 28f820 | 20 64 69 66 66 65 72 65 6e 74 20 6c 61 79 6f 75 74 73 2c 20 61 73 20 69 73 20 74 68 65 20 63 61 | .different.layouts,.as.is.the.ca |
| 28f840 | 73 65 20 77 69 74 68 0a 20 20 20 20 20 53 4d 42 2d 62 61 73 65 64 20 66 69 6c 65 20 73 68 61 72 | se.with......SMB-based.file.shar |
| 28f860 | 69 6e 67 2e 0a 0a e2 80 98 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d | ing......slime-net-coding-system |
| 28f880 | e2 80 99 0a 20 20 20 20 20 49 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 74 72 61 6e 73 6d 69 74 | .........If.you.want.to.transmit |
| 28f8a0 | 20 55 6e 69 63 6f 64 65 20 63 68 61 72 61 63 74 65 72 73 20 62 65 74 77 65 65 6e 20 45 6d 61 63 | .Unicode.characters.between.Emac |
| 28f8c0 | 73 20 61 6e 64 20 74 68 65 0a 20 20 20 20 20 4c 69 73 70 20 73 79 73 74 65 6d 2c 20 79 6f 75 20 | s.and.the......Lisp.system,.you. |
| 28f8e0 | 73 68 6f 75 6c 64 20 63 75 73 74 6f 6d 69 7a 65 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 2e 20 | should.customize.this.variable.. |
| 28f900 | 20 45 2e 67 2e 2c 20 69 66 20 79 6f 75 20 75 73 65 0a 20 20 20 20 20 53 42 43 4c 2c 20 79 6f 75 | .E.g.,.if.you.use......SBCL,.you |
| 28f920 | 20 63 61 6e 20 73 65 74 3a 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d | .can.set:...........(setq.slime- |
| 28f940 | 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 27 75 74 66 2d 38 2d 75 6e 69 78 29 0a 20 | net-coding-system.'utf-8-unix).. |
| 28f960 | 20 20 20 20 54 6f 20 61 63 74 75 61 6c 6c 79 20 64 69 73 70 6c 61 79 20 55 6e 69 63 6f 64 65 20 | ....To.actually.display.Unicode. |
| 28f980 | 63 68 61 72 61 63 74 65 72 73 20 79 6f 75 20 61 6c 73 6f 20 6e 65 65 64 20 61 70 70 72 6f 70 72 | characters.you.also.need.appropr |
| 28f9a0 | 69 61 74 65 0a 20 20 20 20 20 66 6f 6e 74 73 2c 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 63 | iate......fonts,.otherwise.the.c |
| 28f9c0 | 68 61 72 61 63 74 65 72 73 20 77 69 6c 6c 20 62 65 20 72 65 6e 64 65 72 65 64 20 61 73 20 68 6f | haracters.will.be.rendered.as.ho |
| 28f9e0 | 6c 6c 6f 77 20 62 6f 78 65 73 2e 0a 20 20 20 20 20 49 66 20 79 6f 75 20 61 72 65 20 75 73 69 6e | llow.boxes.......If.you.are.usin |
| 28fa00 | 67 20 41 6c 6c 65 67 72 6f 20 43 4c 20 61 6e 64 20 47 4e 55 20 45 6d 61 63 73 2c 20 79 6f 75 20 | g.Allegro.CL.and.GNU.Emacs,.you. |
| 28fa20 | 63 61 6e 20 61 6c 73 6f 20 75 73 65 0a 20 20 20 20 20 e2 80 98 65 6d 61 63 73 2d 6d 75 6c 65 2d | can.also.use.........emacs-mule- |
| 28fa40 | 75 6e 69 78 e2 80 99 20 61 73 20 63 6f 64 69 6e 67 20 73 79 73 74 65 6d 2e 20 20 47 4e 55 20 45 | unix....as.coding.system...GNU.E |
| 28fa60 | 6d 61 63 73 20 68 61 73 20 6f 66 74 65 6e 20 6e 69 63 65 72 0a 20 20 20 20 20 66 6f 6e 74 73 20 | macs.has.often.nicer......fonts. |
| 28fa80 | 66 6f 72 20 74 68 65 20 6c 61 74 74 65 72 20 65 6e 63 6f 64 69 6e 67 2e 20 20 28 44 69 66 66 65 | for.the.latter.encoding...(Diffe |
| 28faa0 | 72 65 6e 74 20 65 6e 63 6f 64 69 6e 67 73 20 63 61 6e 20 62 65 20 75 73 65 64 0a 20 20 20 20 20 | rent.encodings.can.be.used...... |
| 28fac0 | 66 6f 72 20 64 69 66 66 65 72 65 6e 74 20 4c 69 73 70 73 2c 20 73 65 65 20 2a 6e 6f 74 65 20 4d | for.different.Lisps,.see.*note.M |
| 28fae0 | 75 6c 74 69 70 6c 65 20 4c 69 73 70 73 3a 3a 2e 29 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 48 6f | ultiple.Lisps::.)..*.Menu:..*.Ho |
| 28fb00 | 6f 6b 73 3a 3a 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 | oks::....File:.docFDBrww.info,.. |
| 28fb20 | 4e 6f 64 65 3a 20 48 6f 6f 6b 73 2c 20 20 55 70 3a 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 | Node:.Hooks,..Up:.Emacs-side.cus |
| 28fb40 | 74 6f 6d 69 7a 61 74 69 6f 6e 0a 0a 36 2e 31 2e 31 20 48 6f 6f 6b 73 0a 2d 2d 2d 2d 2d 2d 2d 2d | tomization..6.1.1.Hooks.-------- |
| 28fb60 | 2d 2d 2d 0a 0a e2 80 98 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b e2 80 99 0a 20 20 20 20 20 | ---.....slime-mode-hook......... |
| 28fb80 | 54 68 69 73 20 68 6f 6f 6b 20 69 73 20 72 75 6e 20 65 61 63 68 20 74 69 6d 65 20 61 20 62 75 66 | This.hook.is.run.each.time.a.buf |
| 28fba0 | 66 65 72 20 65 6e 74 65 72 73 20 e2 80 98 73 6c 69 6d 65 2d 6d 6f 64 65 e2 80 99 2e 20 20 49 74 | fer.enters....slime-mode......It |
| 28fbc0 | 20 69 73 0a 20 20 20 20 20 6d 6f 73 74 20 75 73 65 66 75 6c 20 66 6f 72 20 73 65 74 74 69 6e 67 | .is......most.useful.for.setting |
| 28fbe0 | 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 69 6e 20 79 | .buffer-local.configuration.in.y |
| 28fc00 | 6f 75 72 20 4c 69 73 70 0a 20 20 20 20 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 73 2e 20 20 41 | our.Lisp......source.buffers...A |
| 28fc20 | 6e 20 65 78 61 6d 70 6c 65 20 75 73 65 20 69 73 20 74 6f 20 65 6e 61 62 6c 65 20 e2 80 98 73 6c | n.example.use.is.to.enable....sl |
| 28fc40 | 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 e2 80 99 0a 20 20 20 20 20 28 2a 6e 6f 74 65 20 | ime-autodoc-mode.........(*note. |
| 28fc60 | 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 3a 3a 29 2e 0a 0a e2 80 98 73 6c 69 6d 65 | slime-autodoc-mode::)......slime |
| 28fc80 | 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b e2 80 99 0a 20 20 20 20 20 54 68 69 73 20 68 6f 6f | -connected-hook.........This.hoo |
| 28fca0 | 6b 20 69 73 20 72 75 6e 20 77 68 65 6e 20 53 4c 49 4d 45 20 65 73 74 61 62 6c 69 73 68 65 73 20 | k.is.run.when.SLIME.establishes. |
| 28fcc0 | 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 61 20 4c 69 73 70 0a 20 20 20 20 20 73 65 72 76 | a.connection.to.a.Lisp......serv |
| 28fce0 | 65 72 2e 20 20 41 6e 20 65 78 61 6d 70 6c 65 20 75 73 65 20 69 73 20 74 6f 20 63 72 65 61 74 65 | er...An.example.use.is.to.create |
| 28fd00 | 20 61 20 54 79 70 65 6f 75 74 20 66 72 61 6d 65 20 28 2a 4e 6f 74 65 20 54 79 70 65 6f 75 74 0a | .a.Typeout.frame.(*Note.Typeout. |
| 28fd20 | 20 20 20 20 20 66 72 61 6d 65 73 3a 3a 2e 29 0a 0a e2 80 98 73 6c 64 62 2d 68 6f 6f 6b e2 80 99 | .....frames::.).....sldb-hook... |
| 28fd40 | 0a 20 20 20 20 20 54 68 69 73 20 68 6f 6f 6b 20 69 73 20 72 75 6e 20 61 66 74 65 72 20 53 4c 44 | ......This.hook.is.run.after.SLD |
| 28fd60 | 42 20 69 73 20 69 6e 76 6f 6b 65 64 2e 20 20 54 68 65 20 68 6f 6f 6b 20 66 75 6e 63 74 69 6f 6e | B.is.invoked...The.hook.function |
| 28fd80 | 73 20 61 72 65 0a 20 20 20 20 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 74 68 65 20 53 4c 44 42 20 | s.are......called.from.the.SLDB. |
| 28fda0 | 62 75 66 66 65 72 20 61 66 74 65 72 20 69 74 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 20 | buffer.after.it.is.initialized.. |
| 28fdc0 | 20 41 6e 20 65 78 61 6d 70 6c 65 0a 20 20 20 20 20 75 73 65 20 69 73 20 74 6f 20 61 64 64 20 e2 | .An.example......use.is.to.add.. |
| 28fde0 | 80 98 73 6c 64 62 2d 70 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e e2 80 99 20 74 6f 20 74 68 69 | ..sldb-print-condition....to.thi |
| 28fe00 | 73 20 68 6f 6f 6b 2c 20 77 68 69 63 68 20 6d 61 6b 65 73 20 61 6c 6c 0a 20 20 20 20 20 63 6f 6e | s.hook,.which.makes.all......con |
| 28fe20 | 64 69 74 69 6f 6e 73 20 64 65 62 75 67 67 65 64 20 77 69 74 68 20 53 4c 44 42 20 62 65 20 72 65 | ditions.debugged.with.SLDB.be.re |
| 28fe40 | 63 6f 72 64 65 64 20 69 6e 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 2e 0a 0a 1f 0a 46 69 | corded.in.the.REPL.buffer.....Fi |
| 28fe60 | 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 4c 69 73 70 2d | le:.docFDBrww.info,..Node:.Lisp- |
| 28fe80 | 73 69 64 65 2c 20 20 50 72 65 76 3a 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 74 6f 6d 69 7a | side,..Prev:.Emacs-side.customiz |
| 28fea0 | 61 74 69 6f 6e 2c 20 20 55 70 3a 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 0a 36 2e 32 20 4c | ation,..Up:.Customization..6.2.L |
| 28fec0 | 69 73 70 2d 73 69 64 65 20 28 53 77 61 6e 6b 29 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | isp-side.(Swank).=============== |
| 28fee0 | 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 4c 69 73 70 20 73 65 72 76 65 72 20 73 69 64 65 20 6f 66 20 | ======..The.Lisp.server.side.of. |
| 28ff00 | 53 4c 49 4d 45 20 28 6b 6e 6f 77 6e 20 61 73 20 e2 80 9c 53 77 61 6e 6b e2 80 9d 29 20 6f 66 66 | SLIME.(known.as....Swank...).off |
| 28ff20 | 65 72 73 20 73 65 76 65 72 61 6c 0a 76 61 72 69 61 62 6c 65 73 20 74 6f 20 63 6f 6e 66 69 67 75 | ers.several.variables.to.configu |
| 28ff40 | 72 65 2e 20 20 54 68 65 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 66 69 6c 65 20 e2 80 98 | re...The.initialization.file.... |
| 28ff60 | 7e 2f 2e 73 77 61 6e 6b 2e 6c 69 73 70 e2 80 99 20 69 73 0a 61 75 74 6f 6d 61 74 69 63 61 6c 6c | ~/.swank.lisp....is.automaticall |
| 28ff80 | 79 20 65 76 61 6c 75 61 74 65 64 20 61 74 20 73 74 61 72 74 75 70 20 61 6e 64 20 63 61 6e 20 62 | y.evaluated.at.startup.and.can.b |
| 28ffa0 | 65 20 75 73 65 64 20 74 6f 20 73 65 74 20 74 68 65 73 65 0a 76 61 72 69 61 62 6c 65 73 2e 0a 0a | e.used.to.set.these.variables... |
| 28ffc0 | 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 3a 3a | *.Menu:..*.Communication.style:: |
| 28ffe0 | 0a 2a 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 3a 3a 0a 0a 1f 0a 46 69 6c 65 | .*.Other.configurables::....File |
| 290000 | 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 43 6f 6d 6d 75 6e 69 | :.docFDBrww.info,..Node:.Communi |
| 290020 | 63 61 74 69 6f 6e 20 73 74 79 6c 65 2c 20 20 4e 65 78 74 3a 20 4f 74 68 65 72 20 63 6f 6e 66 69 | cation.style,..Next:.Other.confi |
| 290040 | 67 75 72 61 62 6c 65 73 2c 20 20 55 70 3a 20 4c 69 73 70 2d 73 69 64 65 0a 0a 36 2e 32 2e 31 20 | gurables,..Up:.Lisp-side..6.2.1. |
| 290060 | 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | Communication.style.------------ |
| 290080 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 54 68 65 20 6d 6f 73 74 20 69 6d 70 6f 72 74 61 6e | -------------..The.most.importan |
| 2900a0 | 74 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 20 69 73 20 e2 80 98 53 57 41 4e 4b 3a 2a 43 4f 4d 4d | t.configurable.is....SWANK:*COMM |
| 2900c0 | 55 4e 49 43 41 54 49 4f 4e 2d 53 54 59 4c 45 2a e2 80 99 2c 20 77 68 69 63 68 0a 73 70 65 63 69 | UNICATION-STYLE*...,.which.speci |
| 2900e0 | 66 69 65 73 20 74 68 65 20 6d 65 63 68 61 6e 69 73 6d 20 62 79 20 77 68 69 63 68 20 4c 69 73 70 | fies.the.mechanism.by.which.Lisp |
| 290100 | 20 72 65 61 64 73 20 61 6e 64 20 70 72 6f 63 65 73 73 65 73 20 70 72 6f 74 6f 63 6f 6c 0a 6d 65 | .reads.and.processes.protocol.me |
| 290120 | 73 73 61 67 65 73 20 66 72 6f 6d 20 45 6d 61 63 73 2e 20 20 54 68 65 20 63 68 6f 69 63 65 20 6f | ssages.from.Emacs...The.choice.o |
| 290140 | 66 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 20 68 61 73 20 61 20 67 6c 6f 62 | f.communication.style.has.a.glob |
| 290160 | 61 6c 0a 69 6e 66 6c 75 65 6e 63 65 20 6f 6e 20 53 4c 49 4d 45 e2 80 99 73 20 6f 70 65 72 61 74 | al.influence.on.SLIME...s.operat |
| 290180 | 69 6f 6e 2e 0a 0a 20 20 20 54 68 65 20 61 76 61 69 6c 61 62 6c 65 20 63 6f 6d 6d 75 6e 69 63 61 | ion......The.available.communica |
| 2901a0 | 74 69 6f 6e 20 73 74 79 6c 65 73 20 61 72 65 3a 0a 0a e2 80 98 4e 49 4c e2 80 99 0a 20 20 20 20 | tion.styles.are:.....NIL........ |
| 2901c0 | 20 54 68 69 73 20 73 74 79 6c 65 20 73 69 6d 70 6c 79 20 6c 6f 6f 70 73 20 72 65 61 64 69 6e 67 | .This.style.simply.loops.reading |
| 2901e0 | 20 69 6e 70 75 74 20 66 72 6f 6d 20 74 68 65 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 6f | .input.from.the.communication.so |
| 290200 | 63 6b 65 74 0a 20 20 20 20 20 61 6e 64 20 73 65 72 76 65 73 20 53 4c 49 4d 45 20 70 72 6f 74 6f | cket......and.serves.SLIME.proto |
| 290220 | 63 6f 6c 20 65 76 65 6e 74 73 20 61 73 20 74 68 65 79 20 61 72 69 73 65 2e 20 20 54 68 65 20 73 | col.events.as.they.arise...The.s |
| 290240 | 69 6d 70 6c 69 63 69 74 79 0a 20 20 20 20 20 6d 65 61 6e 73 20 74 68 61 74 20 74 68 65 20 4c 69 | implicity......means.that.the.Li |
| 290260 | 73 70 20 63 61 6e 6e 6f 74 20 64 6f 20 61 6e 79 20 6f 74 68 65 72 20 70 72 6f 63 65 73 73 69 6e | sp.cannot.do.any.other.processin |
| 290280 | 67 20 77 68 69 6c 65 20 75 6e 64 65 72 0a 20 20 20 20 20 53 4c 49 4d 45 e2 80 99 73 20 63 6f 6e | g.while.under......SLIME...s.con |
| 2902a0 | 74 72 6f 6c 2e 0a 0a e2 80 98 3a 46 44 2d 48 41 4e 44 4c 45 52 e2 80 99 0a 20 20 20 20 20 54 68 | trol......:FD-HANDLER.........Th |
| 2902c0 | 69 73 20 73 74 79 6c 65 20 75 73 65 73 20 74 68 65 20 63 6c 61 73 73 69 63 61 6c 20 55 6e 69 78 | is.style.uses.the.classical.Unix |
| 2902e0 | 2d 73 74 79 6c 65 20 e2 80 9c e2 80 98 73 65 6c 65 63 74 28 29 e2 80 99 2d 6c 6f 6f 70 2e e2 80 | -style.......select()...-loop... |
| 290300 | 9d 20 53 77 61 6e 6b 0a 20 20 20 20 20 72 65 67 69 73 74 65 72 73 20 74 68 65 20 63 6f 6d 6d 75 | ..Swank......registers.the.commu |
| 290320 | 6e 69 63 61 74 69 6f 6e 20 73 6f 63 6b 65 74 20 77 69 74 68 20 61 6e 20 65 76 65 6e 74 2d 64 69 | nication.socket.with.an.event-di |
| 290340 | 73 70 61 74 63 68 69 6e 67 0a 20 20 20 20 20 66 72 61 6d 65 77 6f 72 6b 20 28 73 75 63 68 20 61 | spatching......framework.(such.a |
| 290360 | 73 20 e2 80 98 53 45 52 56 45 2d 45 56 45 4e 54 e2 80 99 20 69 6e 20 43 4d 55 43 4c 20 61 6e 64 | s....SERVE-EVENT....in.CMUCL.and |
| 290380 | 20 53 42 43 4c 29 20 61 6e 64 20 72 65 63 65 69 76 65 73 20 61 0a 20 20 20 20 20 63 61 6c 6c 62 | .SBCL).and.receives.a......callb |
| 2903a0 | 61 63 6b 20 77 68 65 6e 20 64 61 74 61 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e 20 20 49 6e 20 | ack.when.data.is.available...In. |
| 2903c0 | 74 68 69 73 20 73 74 79 6c 65 20 72 65 71 75 65 73 74 73 20 66 72 6f 6d 20 45 6d 61 63 73 0a 20 | this.style.requests.from.Emacs.. |
| 2903e0 | 20 20 20 20 61 72 65 20 6f 6e 6c 79 20 64 65 74 65 63 74 65 64 20 61 6e 64 20 70 72 6f 63 65 73 | ....are.only.detected.and.proces |
| 290400 | 73 65 64 20 77 68 65 6e 20 4c 69 73 70 20 65 6e 74 65 72 73 20 74 68 65 20 65 76 65 6e 74 2d 6c | sed.when.Lisp.enters.the.event-l |
| 290420 | 6f 6f 70 2e 0a 20 20 20 20 20 54 68 69 73 20 73 74 79 6c 65 20 69 73 20 73 69 6d 70 6c 65 20 61 | oop.......This.style.is.simple.a |
| 290440 | 6e 64 20 70 72 65 64 69 63 74 61 62 6c 65 2e 0a 0a e2 80 98 3a 53 49 47 49 4f e2 80 99 0a 20 20 | nd.predictable......:SIGIO...... |
| 290460 | 20 20 20 54 68 69 73 20 73 74 79 6c 65 20 75 73 65 73 20 e2 80 9c 73 69 67 6e 61 6c 2d 64 72 69 | ...This.style.uses....signal-dri |
| 290480 | 76 65 6e 20 49 2f 4f e2 80 9d 20 77 69 74 68 20 61 20 e2 80 98 53 49 47 49 4f e2 80 99 20 73 69 | ven.I/O....with.a....SIGIO....si |
| 2904a0 | 67 6e 61 6c 20 68 61 6e 64 6c 65 72 2e 0a 20 20 20 20 20 4c 69 73 70 20 72 65 63 65 69 76 65 73 | gnal.handler.......Lisp.receives |
| 2904c0 | 20 72 65 71 75 65 73 74 73 20 66 72 6f 6d 20 45 6d 61 63 73 20 61 6c 6f 6e 67 20 77 69 74 68 20 | .requests.from.Emacs.along.with. |
| 2904e0 | 61 20 73 69 67 6e 61 6c 2c 20 63 61 75 73 69 6e 67 20 69 74 0a 20 20 20 20 20 74 6f 20 69 6e 74 | a.signal,.causing.it......to.int |
| 290500 | 65 72 72 75 70 74 20 77 68 61 74 65 76 65 72 20 69 74 20 69 73 20 64 6f 69 6e 67 20 74 6f 20 73 | errupt.whatever.it.is.doing.to.s |
| 290520 | 65 72 76 65 20 74 68 65 20 72 65 71 75 65 73 74 2e 20 20 54 68 69 73 20 73 74 79 6c 65 0a 20 20 | erve.the.request...This.style... |
| 290540 | 20 20 20 68 61 73 20 74 68 65 20 61 64 76 61 6e 74 61 67 65 20 6f 66 20 72 65 73 70 6f 6e 73 69 | ...has.the.advantage.of.responsi |
| 290560 | 76 65 6e 65 73 73 2c 20 73 69 6e 63 65 20 45 6d 61 63 73 20 63 61 6e 20 70 65 72 66 6f 72 6d 0a | veness,.since.Emacs.can.perform. |
| 290580 | 20 20 20 20 20 6f 70 65 72 61 74 69 6f 6e 73 20 69 6e 20 4c 69 73 70 20 65 76 65 6e 20 77 68 69 | .....operations.in.Lisp.even.whi |
| 2905a0 | 6c 65 20 69 74 20 69 73 20 62 75 73 79 20 64 6f 69 6e 67 20 6f 74 68 65 72 20 74 68 69 6e 67 73 | le.it.is.busy.doing.other.things |
| 2905c0 | 2e 20 20 49 74 0a 20 20 20 20 20 61 6c 73 6f 20 61 6c 6c 6f 77 73 20 45 6d 61 63 73 20 74 6f 20 | ...It......also.allows.Emacs.to. |
| 2905e0 | 69 73 73 75 65 20 72 65 71 75 65 73 74 73 20 63 6f 6e 63 75 72 72 65 6e 74 6c 79 2c 20 65 2e 67 | issue.requests.concurrently,.e.g |
| 290600 | 2e 20 20 74 6f 20 73 65 6e 64 20 6f 6e 65 0a 20 20 20 20 20 6c 6f 6e 67 2d 72 75 6e 6e 69 6e 67 | ...to.send.one......long-running |
| 290620 | 20 72 65 71 75 65 73 74 20 28 6c 69 6b 65 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 29 20 61 6e 64 20 | .request.(like.compilation).and. |
| 290640 | 74 68 65 6e 20 69 6e 74 65 72 72 75 70 74 20 74 68 61 74 0a 20 20 20 20 20 77 69 74 68 20 73 65 | then.interrupt.that......with.se |
| 290660 | 76 65 72 61 6c 20 73 68 6f 72 74 20 72 65 71 75 65 73 74 73 20 62 65 66 6f 72 65 20 69 74 20 63 | veral.short.requests.before.it.c |
| 290680 | 6f 6d 70 6c 65 74 65 73 2e 20 20 54 68 65 20 64 69 73 61 64 76 61 6e 74 61 67 65 73 0a 20 20 20 | ompletes...The.disadvantages.... |
| 2906a0 | 20 20 61 72 65 20 74 68 61 74 20 69 74 20 6d 61 79 20 63 6f 6e 66 6c 69 63 74 20 77 69 74 68 20 | ..are.that.it.may.conflict.with. |
| 2906c0 | 6f 74 68 65 72 20 75 73 65 73 20 6f 66 20 e2 80 98 53 49 47 49 4f e2 80 99 20 62 79 20 4c 69 73 | other.uses.of....SIGIO....by.Lis |
| 2906e0 | 70 20 63 6f 64 65 2c 0a 20 20 20 20 20 61 6e 64 20 69 74 20 6d 61 79 20 63 61 75 73 65 20 75 6e | p.code,......and.it.may.cause.un |
| 290700 | 74 6f 6c 64 20 68 61 76 6f 63 20 62 79 20 69 6e 74 65 72 72 75 70 74 69 6e 67 20 4c 69 73 70 20 | told.havoc.by.interrupting.Lisp. |
| 290720 | 61 74 20 61 6e 20 61 77 6b 77 61 72 64 0a 20 20 20 20 20 6d 6f 6d 65 6e 74 2e 0a 0a e2 80 98 3a | at.an.awkward......moment......: |
| 290740 | 53 50 41 57 4e e2 80 99 0a 20 20 20 20 20 54 68 69 73 20 73 74 79 6c 65 20 75 73 65 73 20 6d 75 | SPAWN.........This.style.uses.mu |
| 290760 | 6c 74 69 70 72 6f 63 65 73 73 69 6e 67 20 73 75 70 70 6f 72 74 20 69 6e 20 74 68 65 20 4c 69 73 | ltiprocessing.support.in.the.Lis |
| 290780 | 70 20 73 79 73 74 65 6d 20 74 6f 0a 20 20 20 20 20 65 78 65 63 75 74 65 20 65 61 63 68 20 72 65 | p.system.to......execute.each.re |
| 2907a0 | 71 75 65 73 74 20 69 6e 20 61 20 73 65 70 61 72 61 74 65 20 74 68 72 65 61 64 2e 20 20 54 68 69 | quest.in.a.separate.thread...Thi |
| 2907c0 | 73 20 73 74 79 6c 65 20 68 61 73 20 73 69 6d 69 6c 61 72 0a 20 20 20 20 20 70 72 6f 70 65 72 74 | s.style.has.similar......propert |
| 2907e0 | 69 65 73 20 74 6f 20 e2 80 98 3a 53 49 47 49 4f e2 80 99 2c 20 62 75 74 20 69 74 20 64 6f 65 73 | ies.to....:SIGIO...,.but.it.does |
| 290800 | 20 6e 6f 74 20 75 73 65 20 73 69 67 6e 61 6c 73 20 61 6e 64 20 61 6c 6c 0a 20 20 20 20 20 72 65 | .not.use.signals.and.all......re |
| 290820 | 71 75 65 73 74 73 20 69 73 73 75 65 64 20 62 79 20 45 6d 61 63 73 20 63 61 6e 20 62 65 20 65 78 | quests.issued.by.Emacs.can.be.ex |
| 290840 | 65 63 75 74 65 64 20 69 6e 20 70 61 72 61 6c 6c 65 6c 2e 0a 0a 20 20 20 54 68 65 20 64 65 66 61 | ecuted.in.parallel......The.defa |
| 290860 | 75 6c 74 20 72 65 71 75 65 73 74 20 68 61 6e 64 6c 69 6e 67 20 73 74 79 6c 65 20 69 73 20 63 68 | ult.request.handling.style.is.ch |
| 290880 | 6f 73 65 6e 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 0a 63 61 70 61 62 69 6c 69 74 69 | osen.according.to.the.capabiliti |
| 2908a0 | 65 73 20 6f 66 20 79 6f 75 72 20 4c 69 73 70 20 73 79 73 74 65 6d 2e 20 20 54 68 65 20 67 65 6e | es.of.your.Lisp.system...The.gen |
| 2908c0 | 65 72 61 6c 20 6f 72 64 65 72 20 6f 66 20 70 72 65 66 65 72 65 6e 63 65 20 69 73 0a e2 80 98 3a | eral.order.of.preference.is....: |
| 2908e0 | 53 50 41 57 4e e2 80 99 2c 20 74 68 65 6e 20 e2 80 98 3a 53 49 47 49 4f e2 80 99 2c 20 74 68 65 | SPAWN...,.then....:SIGIO...,.the |
| 290900 | 6e 20 e2 80 98 3a 46 44 2d 48 41 4e 44 4c 45 52 e2 80 99 2c 20 77 69 74 68 20 e2 80 98 4e 49 4c | n....:FD-HANDLER...,.with....NIL |
| 290920 | e2 80 99 20 61 73 20 61 20 6c 61 73 74 0a 72 65 73 6f 72 74 2e 20 20 59 6f 75 20 63 61 6e 20 63 | ....as.a.last.resort...You.can.c |
| 290940 | 68 65 63 6b 20 74 68 65 20 64 65 66 61 75 6c 74 20 73 74 79 6c 65 20 62 79 20 63 61 6c 6c 69 6e | heck.the.default.style.by.callin |
| 290960 | 67 0a e2 80 98 53 57 41 4e 4b 2d 42 41 43 4b 45 4e 44 3a 3a 50 52 45 46 45 52 52 45 44 2d 43 4f | g....SWANK-BACKEND::PREFERRED-CO |
| 290980 | 4d 4d 55 4e 49 43 41 54 49 4f 4e 2d 53 54 59 4c 45 e2 80 99 2e 20 20 59 6f 75 20 63 61 6e 20 61 | MMUNICATION-STYLE......You.can.a |
| 2909a0 | 6c 73 6f 20 6f 76 65 72 72 69 64 65 0a 74 68 65 20 64 65 66 61 75 6c 74 20 62 79 20 73 65 74 74 | lso.override.the.default.by.sett |
| 2909c0 | 69 6e 67 20 e2 80 98 53 57 41 4e 4b 3a 2a 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 2d 53 54 59 4c | ing....SWANK:*COMMUNICATION-STYL |
| 2909e0 | 45 2a e2 80 99 20 69 6e 20 79 6f 75 72 20 53 77 61 6e 6b 20 69 6e 69 74 0a 66 69 6c 65 2e 0a 0a | E*....in.your.Swank.init.file... |
| 290a00 | 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 4f | ..File:.docFDBrww.info,..Node:.O |
| 290a20 | 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 2c 20 20 50 72 65 76 3a 20 43 6f 6d 6d 75 | ther.configurables,..Prev:.Commu |
| 290a40 | 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 2c 20 20 55 70 3a 20 4c 69 73 70 2d 73 69 64 65 0a 0a | nication.style,..Up:.Lisp-side.. |
| 290a60 | 36 2e 32 2e 32 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 0a 2d 2d 2d 2d 2d 2d | 6.2.2.Other.configurables.------ |
| 290a80 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 54 68 65 73 65 20 4c 69 73 70 20 | -------------------..These.Lisp. |
| 290aa0 | 76 61 72 69 61 62 6c 65 73 20 63 61 6e 20 62 65 20 63 6f 6e 66 69 67 75 72 65 64 20 76 69 61 20 | variables.can.be.configured.via. |
| 290ac0 | 79 6f 75 72 20 e2 80 98 7e 2f 2e 73 77 61 6e 6b 2e 6c 69 73 70 e2 80 99 20 66 69 6c 65 3a 0a 0a | your....~/.swank.lisp....file:.. |
| 290ae0 | e2 80 98 53 57 41 4e 4b 3a 2a 43 4f 4e 46 49 47 55 52 45 2d 45 4d 41 43 53 2d 49 4e 44 45 4e 54 | ...SWANK:*CONFIGURE-EMACS-INDENT |
| 290b00 | 41 54 49 4f 4e 2a e2 80 99 0a 20 20 20 20 20 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 63 6f 6e | ATION*.........This.variable.con |
| 290b20 | 74 72 6f 6c 73 20 77 68 65 74 68 65 72 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 74 79 6c 65 73 | trols.whether.indentation.styles |
| 290b40 | 20 66 6f 72 0a 20 20 20 20 20 e2 80 98 26 62 6f 64 79 e2 80 99 2d 61 72 67 75 6d 65 6e 74 73 20 | .for.........&body...-arguments. |
| 290b60 | 69 6e 20 6d 61 63 72 6f 73 20 61 72 65 20 64 69 73 63 6f 76 65 72 65 64 20 61 6e 64 20 73 65 6e | in.macros.are.discovered.and.sen |
| 290b80 | 74 20 74 6f 20 45 6d 61 63 73 2e 20 20 49 74 0a 20 20 20 20 20 69 73 20 65 6e 61 62 6c 65 64 20 | t.to.Emacs...It......is.enabled. |
| 290ba0 | 62 79 20 64 65 66 61 75 6c 74 2e 0a 0a e2 80 98 53 57 41 4e 4b 3a 2a 47 4c 4f 42 41 4c 4c 59 2d | by.default......SWANK:*GLOBALLY- |
| 290bc0 | 52 45 44 49 52 45 43 54 2d 49 4f 2a e2 80 99 0a 20 20 20 20 20 57 68 65 6e 20 54 20 74 68 69 73 | REDIRECT-IO*.........When.T.this |
| 290be0 | 20 63 61 75 73 65 73 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 73 74 72 65 61 6d 73 20 28 e2 80 | .causes.the.standard.streams.(.. |
| 290c00 | 98 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a e2 80 99 2c 20 65 74 63 29 0a 20 20 20 20 | .*standard-output*...,.etc)..... |
| 290c20 | 20 74 6f 20 62 65 20 67 6c 6f 62 61 6c 6c 79 20 72 65 64 69 72 65 63 74 65 64 20 74 6f 20 74 68 | .to.be.globally.redirected.to.th |
| 290c40 | 65 20 52 45 50 4c 20 69 6e 20 45 6d 61 63 73 2e 0a 0a 20 20 20 20 20 57 68 65 6e 20 e2 80 98 3a | e.REPL.in.Emacs........When....: |
| 290c60 | 53 54 41 52 54 45 44 2d 46 52 4f 4d 2d 45 4d 41 43 53 e2 80 99 20 28 64 65 66 61 75 6c 74 29 20 | STARTED-FROM-EMACS....(default). |
| 290c80 | 72 65 64 69 72 65 63 74 73 20 74 68 65 20 6f 75 74 70 75 74 20 77 68 65 6e 20 74 68 65 0a 20 20 | redirects.the.output.when.the... |
| 290ca0 | 20 20 20 6c 69 73 70 20 69 73 20 6c 61 75 6e 63 68 65 64 20 66 72 6f 6d 20 65 6d 61 63 73 20 28 | ...lisp.is.launched.from.emacs.( |
| 290cc0 | 69 2e 65 2e 20 20 e2 80 98 4d 2d 78 20 73 6c 69 6d 65 e2 80 99 29 2c 20 62 75 74 20 6e 6f 74 20 | i.e......M-x.slime...),.but.not. |
| 290ce0 | 66 72 6f 6d 20 e2 80 98 4d 2d 78 0a 20 20 20 20 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 e2 80 | from....M-x......slime-connect.. |
| 290d00 | 99 2e 0a 0a 20 20 20 20 20 57 68 65 6e 20 e2 80 98 4e 49 4c e2 80 99 20 74 68 65 73 65 20 73 74 | .........When....NIL....these.st |
| 290d20 | 72 65 61 6d 73 20 61 72 65 20 6f 6e 6c 79 20 74 65 6d 70 6f 72 61 72 69 6c 79 20 72 65 64 69 72 | reams.are.only.temporarily.redir |
| 290d40 | 65 63 74 65 64 20 74 6f 20 45 6d 61 63 73 0a 20 20 20 20 20 75 73 69 6e 67 20 64 79 6e 61 6d 69 | ected.to.Emacs......using.dynami |
| 290d60 | 63 20 62 69 6e 64 69 6e 67 73 20 77 68 69 6c 65 20 68 61 6e 64 6c 69 6e 67 20 72 65 71 75 65 73 | c.bindings.while.handling.reques |
| 290d80 | 74 73 2e 20 20 4e 6f 74 65 20 74 68 61 74 0a 20 20 20 20 20 e2 80 98 2a 73 74 61 6e 64 61 72 64 | ts...Note.that.........*standard |
| 290da0 | 2d 69 6e 70 75 74 2a e2 80 99 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 6e 65 76 65 72 20 67 6c | -input*....is.currently.never.gl |
| 290dc0 | 6f 62 61 6c 6c 79 20 72 65 64 69 72 65 63 74 65 64 20 69 6e 74 6f 0a 20 20 20 20 20 45 6d 61 63 | obally.redirected.into......Emac |
| 290de0 | 73 2c 20 62 65 63 61 75 73 65 20 69 74 20 63 61 6e 20 69 6e 74 65 72 61 63 74 20 62 61 64 6c 79 | s,.because.it.can.interact.badly |
| 290e00 | 20 77 69 74 68 20 74 68 65 20 4c 69 73 70 e2 80 99 73 20 6e 61 74 69 76 65 20 52 45 50 4c 20 62 | .with.the.Lisp...s.native.REPL.b |
| 290e20 | 79 0a 20 20 20 20 20 68 61 76 69 6e 67 20 69 74 20 74 72 79 20 74 6f 20 72 65 61 64 20 66 72 6f | y......having.it.try.to.read.fro |
| 290e40 | 6d 20 74 68 65 20 45 6d 61 63 73 20 6f 6e 65 2e 0a 0a e2 80 98 53 57 41 4e 4b 3a 2a 47 4c 4f 42 | m.the.Emacs.one......SWANK:*GLOB |
| 290e60 | 41 4c 2d 44 45 42 55 47 47 45 52 2a e2 80 99 0a 20 20 20 20 20 57 68 65 6e 20 74 72 75 65 20 28 | AL-DEBUGGER*.........When.true.( |
| 290e80 | 74 68 65 20 64 65 66 61 75 6c 74 29 20 74 68 69 73 20 63 61 75 73 65 73 20 e2 80 98 2a 44 45 42 | the.default).this.causes....*DEB |
| 290ea0 | 55 47 47 45 52 2d 48 4f 4f 4b 2a e2 80 99 20 74 6f 20 62 65 0a 20 20 20 20 20 67 6c 6f 62 61 6c | UGGER-HOOK*....to.be......global |
| 290ec0 | 6c 79 20 73 65 74 20 74 6f 20 e2 80 98 53 57 41 4e 4b 3a 53 57 41 4e 4b 2d 44 45 42 55 47 47 45 | ly.set.to....SWANK:SWANK-DEBUGGE |
| 290ee0 | 52 2d 48 4f 4f 4b e2 80 99 20 61 6e 64 20 74 68 75 73 20 66 6f 72 20 53 4c 49 4d 45 20 74 6f 0a | R-HOOK....and.thus.for.SLIME.to. |
| 290f00 | 20 20 20 20 20 68 61 6e 64 6c 65 20 61 6c 6c 20 64 65 62 75 67 67 69 6e 67 20 69 6e 20 74 68 65 | .....handle.all.debugging.in.the |
| 290f20 | 20 4c 69 73 70 20 69 6d 61 67 65 2e 20 20 54 68 69 73 20 69 73 20 66 6f 72 20 64 65 62 75 67 67 | .Lisp.image...This.is.for.debugg |
| 290f40 | 69 6e 67 0a 20 20 20 20 20 6d 75 6c 74 69 74 68 72 65 61 64 65 64 20 61 6e 64 20 63 61 6c 6c 62 | ing......multithreaded.and.callb |
| 290f60 | 61 63 6b 2d 64 72 69 76 65 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 2e 0a 0a e2 80 98 53 57 41 | ack-driven.applications......SWA |
| 290f80 | 4e 4b 3a 2a 53 4c 44 42 2d 51 55 49 54 2d 52 45 53 54 41 52 54 2a e2 80 99 0a 20 20 20 20 20 54 | NK:*SLDB-QUIT-RESTART*.........T |
| 290fa0 | 68 69 73 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 73 20 74 68 65 20 72 65 73 74 61 72 74 20 74 | his.variable.names.the.restart.t |
| 290fc0 | 68 61 74 20 69 73 20 69 6e 76 6f 6b 65 64 20 77 68 65 6e 20 70 72 65 73 73 69 6e 67 20 e2 80 98 | hat.is.invoked.when.pressing.... |
| 290fe0 | 71 e2 80 99 0a 20 20 20 20 20 28 2a 6e 6f 74 65 20 73 6c 64 62 2d 71 75 69 74 3a 3a 29 20 69 6e | q.........(*note.sldb-quit::).in |
| 291000 | 20 53 4c 44 42 2e 20 20 46 6f 72 20 53 4c 49 4d 45 20 65 76 61 6c 75 61 74 69 6f 6e 20 72 65 71 | .SLDB...For.SLIME.evaluation.req |
| 291020 | 75 65 73 74 73 20 74 68 69 73 20 69 73 0a 20 20 20 20 20 5f 75 6e 63 6f 6e 64 69 74 69 6f 6e 61 | uests.this.is......_unconditiona |
| 291040 | 6c 6c 79 5f 20 62 6f 75 6e 64 20 74 6f 20 61 20 72 65 73 74 61 72 74 20 74 68 61 74 20 72 65 74 | lly_.bound.to.a.restart.that.ret |
| 291060 | 75 72 6e 73 20 74 6f 20 61 20 73 61 66 65 20 70 6f 69 6e 74 2e 0a 20 20 20 20 20 54 68 69 73 20 | urns.to.a.safe.point.......This. |
| 291080 | 76 61 72 69 61 62 6c 65 20 69 73 20 73 75 70 70 6f 73 65 64 20 74 6f 20 63 75 73 74 6f 6d 69 7a | variable.is.supposed.to.customiz |
| 2910a0 | 65 20 77 68 61 74 20 e2 80 98 71 e2 80 99 20 64 6f 65 73 20 69 66 20 61 6e 0a 20 20 20 20 20 61 | e.what....q....does.if.an......a |
| 2910c0 | 70 70 6c 69 63 61 74 69 6f 6e e2 80 99 73 20 74 68 72 65 61 64 20 6c 61 6e 64 73 20 69 6e 74 6f | pplication...s.thread.lands.into |
| 2910e0 | 20 74 68 65 20 64 65 62 75 67 67 65 72 20 28 73 65 65 0a 20 20 20 20 20 e2 80 98 53 57 41 4e 4b | .the.debugger.(see.........SWANK |
| 291100 | 3a 2a 47 4c 4f 42 41 4c 2d 44 45 42 55 47 47 45 52 2a e2 80 99 29 2e 0a 20 20 20 20 20 20 20 20 | :*GLOBAL-DEBUGGER*...).......... |
| 291120 | 20 20 28 73 65 74 66 20 73 77 61 6e 6b 3a 2a 73 6c 64 62 2d 71 75 69 74 2d 72 65 73 74 61 72 74 | ..(setf.swank:*sldb-quit-restart |
| 291140 | 2a 20 27 73 62 2d 74 68 72 65 61 64 3a 74 65 72 6d 69 6e 61 74 65 2d 74 68 72 65 61 64 29 0a 0a | *.'sb-thread:terminate-thread).. |
| 291160 | e2 80 98 53 57 41 4e 4b 3a 2a 42 41 43 4b 54 52 41 43 45 2d 50 52 49 4e 54 45 52 2d 42 49 4e 44 | ...SWANK:*BACKTRACE-PRINTER-BIND |
| 291180 | 49 4e 47 53 2a e2 80 99 0a e2 80 98 53 57 41 4e 4b 3a 2a 4d 41 43 52 4f 45 58 50 41 4e 44 2d 50 | INGS*.......SWANK:*MACROEXPAND-P |
| 2911a0 | 52 49 4e 54 45 52 2d 42 49 4e 44 49 4e 47 53 2a e2 80 99 0a e2 80 98 53 57 41 4e 4b 3a 2a 53 4c | RINTER-BINDINGS*.......SWANK:*SL |
| 2911c0 | 44 42 2d 50 52 49 4e 54 45 52 2d 42 49 4e 44 49 4e 47 53 2a e2 80 99 0a e2 80 98 53 57 41 4e 4b | DB-PRINTER-BINDINGS*.......SWANK |
| 2911e0 | 3a 2a 53 57 41 4e 4b 2d 50 50 52 49 4e 54 2d 42 49 4e 44 49 4e 47 53 2a e2 80 99 0a 20 20 20 20 | :*SWANK-PPRINT-BINDINGS*........ |
| 291200 | 20 54 68 65 73 65 20 76 61 72 69 61 62 6c 65 73 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 | .These.variables.can.be.used.to. |
| 291220 | 63 75 73 74 6f 6d 69 7a 65 20 74 68 65 20 70 72 69 6e 74 65 72 20 69 6e 20 76 61 72 69 6f 75 73 | customize.the.printer.in.various |
| 291240 | 0a 20 20 20 20 20 73 69 74 75 61 74 69 6f 6e 73 2e 20 20 54 68 65 20 76 61 6c 75 65 73 20 6f 66 | ......situations...The.values.of |
| 291260 | 20 74 68 65 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 61 73 73 6f 63 69 61 74 69 6f 6e 20 6c | .the.variables.are.association.l |
| 291280 | 69 73 74 73 20 6f 66 0a 20 20 20 20 20 70 72 69 6e 74 65 72 20 76 61 72 69 61 62 6c 65 20 6e 61 | ists.of......printer.variable.na |
| 2912a0 | 6d 65 73 20 77 69 74 68 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 76 61 6c 75 65 | mes.with.the.corresponding.value |
| 2912c0 | 2e 20 20 45 2e 67 2e 2c 20 74 6f 0a 20 20 20 20 20 65 6e 61 62 6c 65 20 74 68 65 20 70 72 65 74 | ...E.g.,.to......enable.the.pret |
| 2912e0 | 74 79 20 70 72 69 6e 74 65 72 20 66 6f 72 20 66 6f 72 6d 61 74 74 69 6e 67 20 62 61 63 6b 74 72 | ty.printer.for.formatting.backtr |
| 291300 | 61 63 65 73 20 69 6e 20 53 4c 44 42 2c 20 79 6f 75 0a 20 20 20 20 20 63 61 6e 20 75 73 65 3a 0a | aces.in.SLDB,.you......can.use:. |
| 291320 | 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 27 28 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a | ..........(push.'(*print-pretty* |
| 291340 | 20 2e 20 74 29 20 73 77 61 6e 6b 3a 2a 73 6c 64 62 2d 70 72 69 6e 74 65 72 2d 62 69 6e 64 69 6e | ...t).swank:*sldb-printer-bindin |
| 291360 | 67 73 2a 29 2e 0a 0a e2 80 98 53 57 41 4e 4b 3a 2a 4c 4f 47 2d 45 56 45 4e 54 53 2a e2 80 99 0a | gs*)......SWANK:*LOG-EVENTS*.... |
| 291380 | 20 20 20 20 20 53 65 74 74 69 6e 67 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 74 6f 20 e2 80 | .....Setting.this.variable.to... |
| 2913a0 | 98 74 e2 80 99 20 63 61 75 73 65 73 20 61 6c 6c 20 70 72 6f 74 6f 63 6f 6c 20 6d 65 73 73 61 67 | .t....causes.all.protocol.messag |
| 2913c0 | 65 73 20 65 78 63 68 61 6e 67 65 64 0a 20 20 20 20 20 77 69 74 68 20 45 6d 61 63 73 20 74 6f 20 | es.exchanged......with.Emacs.to. |
| 2913e0 | 62 65 20 70 72 69 6e 74 65 64 20 74 6f 20 e2 80 98 2a 54 45 52 4d 49 4e 41 4c 2d 49 4f 2a e2 80 | be.printed.to....*TERMINAL-IO*.. |
| 291400 | 99 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 66 6f 72 0a 20 20 20 20 20 6c 6f 77 2d | ....This.is.useful.for......low- |
| 291420 | 6c 65 76 65 6c 20 64 65 62 75 67 67 69 6e 67 20 61 6e 64 20 66 6f 72 20 6f 62 73 65 72 76 69 6e | level.debugging.and.for.observin |
| 291440 | 67 20 68 6f 77 20 53 4c 49 4d 45 20 77 6f 72 6b 73 20 e2 80 9c 6f 6e 20 74 68 65 0a 20 20 20 20 | g.how.SLIME.works....on.the..... |
| 291460 | 20 77 69 72 65 2e e2 80 9d 20 54 68 65 20 6f 75 74 70 75 74 20 6f 66 20 e2 80 98 2a 54 45 52 4d | .wire.....The.output.of....*TERM |
| 291480 | 49 4e 41 4c 2d 49 4f 2a e2 80 99 20 63 61 6e 20 62 65 20 66 6f 75 6e 64 20 69 6e 20 79 6f 75 72 | INAL-IO*....can.be.found.in.your |
| 2914a0 | 20 4c 69 73 70 0a 20 20 20 20 20 73 79 73 74 65 6d e2 80 99 73 20 6f 77 6e 20 6c 69 73 74 65 6e | .Lisp......system...s.own.listen |
| 2914c0 | 65 72 2c 20 75 73 75 61 6c 6c 79 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 e2 80 98 2a 69 6e | er,.usually.in.the.buffer....*in |
| 2914e0 | 66 65 72 69 6f 72 2d 6c 69 73 70 2a e2 80 99 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 | ferior-lisp*........File:.docFDB |
| 291500 | 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 54 69 70 73 20 61 6e 64 20 54 72 69 63 6b 73 | rww.info,..Node:.Tips.and.Tricks |
| 291520 | 2c 20 20 4e 65 78 74 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 2c 20 20 | ,..Next:.Contributed.Packages,.. |
| 291540 | 50 72 65 76 3a 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 2c 20 20 55 70 3a 20 54 6f 70 0a 0a 37 | Prev:.Customization,..Up:.Top..7 |
| 291560 | 20 54 69 70 73 20 61 6e 64 20 54 72 69 63 6b 73 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .Tips.and.Tricks.*************** |
| 291580 | 2a 2a 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 61 20 72 | **..*.Menu:..*.Connecting.to.a.r |
| 2915a0 | 65 6d 6f 74 65 20 6c 69 73 70 3a 3a 0a 2a 20 47 6c 6f 62 61 6c 20 49 4f 20 52 65 64 69 72 65 63 | emote.lisp::.*.Global.IO.Redirec |
| 2915c0 | 74 69 6f 6e 3a 3a 0a 2a 20 41 75 74 6f 2d 53 4c 49 4d 45 3a 3a 0a 0a 1f 0a 46 69 6c 65 3a 20 64 | tion::.*.Auto-SLIME::....File:.d |
| 2915e0 | 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 43 6f 6e 6e 65 63 74 69 6e 67 | ocFDBrww.info,..Node:.Connecting |
| 291600 | 20 74 6f 20 61 20 72 65 6d 6f 74 65 20 6c 69 73 70 2c 20 20 4e 65 78 74 3a 20 47 6c 6f 62 61 6c | .to.a.remote.lisp,..Next:.Global |
| 291620 | 20 49 4f 20 52 65 64 69 72 65 63 74 69 6f 6e 2c 20 20 55 70 3a 20 54 69 70 73 20 61 6e 64 20 54 | .IO.Redirection,..Up:.Tips.and.T |
| 291640 | 72 69 63 6b 73 0a 0a 37 2e 31 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 61 20 72 65 6d 6f 74 | ricks..7.1.Connecting.to.a.remot |
| 291660 | 65 20 6c 69 73 70 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | e.lisp.========================= |
| 291680 | 3d 3d 3d 3d 3d 3d 0a 0a 4f 6e 65 20 6f 66 20 74 68 65 20 61 64 76 61 6e 74 61 67 65 73 20 6f 66 | ======..One.of.the.advantages.of |
| 2916a0 | 20 74 68 65 20 77 61 79 20 53 4c 49 4d 45 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 73 | .the.way.SLIME.is.implemented.is |
| 2916c0 | 20 74 68 61 74 20 77 65 20 63 61 6e 0a 65 61 73 69 6c 79 20 72 75 6e 20 74 68 65 20 45 6d 61 63 | .that.we.can.easily.run.the.Emac |
| 2916e0 | 73 20 73 69 64 65 20 28 73 6c 69 6d 65 2e 65 6c 29 20 6f 6e 20 6f 6e 65 20 6d 61 63 68 69 6e 65 | s.side.(slime.el).on.one.machine |
| 291700 | 20 61 6e 64 20 74 68 65 20 6c 69 73 70 20 62 61 63 6b 65 6e 64 0a 28 73 77 61 6e 6b 29 20 6f 6e | .and.the.lisp.backend.(swank).on |
| 291720 | 20 61 6e 6f 74 68 65 72 2e 20 20 54 68 65 20 62 61 73 69 63 20 69 64 65 61 20 69 73 20 74 6f 20 | .another...The.basic.idea.is.to. |
| 291740 | 73 74 61 72 74 20 75 70 20 6c 69 73 70 20 6f 6e 20 74 68 65 20 72 65 6d 6f 74 65 0a 6d 61 63 68 | start.up.lisp.on.the.remote.mach |
| 291760 | 69 6e 65 2c 20 6c 6f 61 64 20 73 77 61 6e 6b 20 61 6e 64 20 77 61 69 74 20 66 6f 72 20 69 6e 63 | ine,.load.swank.and.wait.for.inc |
| 291780 | 6f 6d 69 6e 67 20 53 4c 49 4d 45 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 20 20 4f 6e 20 74 68 65 | oming.SLIME.connections...On.the |
| 2917a0 | 0a 6c 6f 63 61 6c 20 6d 61 63 68 69 6e 65 20 77 65 20 73 74 61 72 74 20 75 70 20 65 6d 61 63 73 | .local.machine.we.start.up.emacs |
| 2917c0 | 20 61 6e 64 20 74 65 6c 6c 20 53 4c 49 4d 45 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 20 74 68 | .and.tell.SLIME.to.connect.to.th |
| 2917e0 | 65 20 72 65 6d 6f 74 65 0a 6d 61 63 68 69 6e 65 2e 20 20 54 68 65 20 64 65 74 61 69 6c 73 20 61 | e.remote.machine...The.details.a |
| 291800 | 72 65 20 61 20 62 69 74 20 6d 65 73 73 69 65 72 20 62 75 74 20 74 68 65 20 75 6e 64 65 72 6c 79 | re.a.bit.messier.but.the.underly |
| 291820 | 69 6e 67 20 69 64 65 61 20 69 73 20 74 68 61 74 0a 73 69 6d 70 6c 65 2e 0a 0a 2a 20 4d 65 6e 75 | ing.idea.is.that.simple...*.Menu |
| 291840 | 3a 0a 0a 2a 20 53 65 74 74 69 6e 67 20 75 70 20 74 68 65 20 6c 69 73 70 20 69 6d 61 67 65 3a 3a | :..*.Setting.up.the.lisp.image:: |
| 291860 | 0a 2a 20 53 65 74 74 69 6e 67 20 75 70 20 45 6d 61 63 73 3a 3a 0a 2a 20 53 65 74 74 69 6e 67 20 | .*.Setting.up.Emacs::.*.Setting. |
| 291880 | 75 70 20 70 61 74 68 6e 61 6d 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 3a 3a 0a 0a 1f 0a 46 69 | up.pathname.translations::....Fi |
| 2918a0 | 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 53 65 74 74 69 | le:.docFDBrww.info,..Node:.Setti |
| 2918c0 | 6e 67 20 75 70 20 74 68 65 20 6c 69 73 70 20 69 6d 61 67 65 2c 20 20 4e 65 78 74 3a 20 53 65 74 | ng.up.the.lisp.image,..Next:.Set |
| 2918e0 | 74 69 6e 67 20 75 70 20 45 6d 61 63 73 2c 20 20 55 70 3a 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 | ting.up.Emacs,..Up:.Connecting.t |
| 291900 | 6f 20 61 20 72 65 6d 6f 74 65 20 6c 69 73 70 0a 0a 37 2e 31 2e 31 20 53 65 74 74 69 6e 67 20 75 | o.a.remote.lisp..7.1.1.Setting.u |
| 291920 | 70 20 74 68 65 20 6c 69 73 70 20 69 6d 61 67 65 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | p.the.lisp.image.--------------- |
| 291940 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 57 68 65 6e 20 79 6f 75 20 77 61 6e 74 20 | ----------------..When.you.want. |
| 291960 | 74 6f 20 6c 6f 61 64 20 73 77 61 6e 6b 20 77 69 74 68 6f 75 74 20 67 6f 69 6e 67 20 74 68 72 6f | to.load.swank.without.going.thro |
| 291980 | 75 67 68 20 74 68 65 20 6e 6f 72 6d 61 6c 2c 20 45 6d 61 63 73 0a 62 61 73 65 64 2c 20 70 72 6f | ugh.the.normal,.Emacs.based,.pro |
| 2919a0 | 63 65 73 73 20 6a 75 73 74 20 6c 6f 61 64 20 74 68 65 20 e2 80 98 73 77 61 6e 6b 2d 6c 6f 61 64 | cess.just.load.the....swank-load |
| 2919c0 | 65 72 2e 6c 69 73 70 e2 80 99 20 66 69 6c 65 2e 20 20 4a 75 73 74 20 65 78 65 63 75 74 65 0a 0a | er.lisp....file...Just.execute.. |
| 2919e0 | 20 20 20 20 20 28 6c 6f 61 64 20 22 2f 70 61 74 68 2f 74 6f 2f 73 77 61 6e 6b 2d 6c 6f 61 64 65 | .....(load."/path/to/swank-loade |
| 291a00 | 72 2e 6c 69 73 70 22 29 0a 20 20 20 20 20 28 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 3a 69 6e 69 74 | r.lisp")......(swank-loader:init |
| 291a20 | 29 0a 0a 20 20 20 69 6e 73 69 64 65 20 61 20 72 75 6e 6e 69 6e 67 20 6c 69 73 70 20 69 6d 61 67 | ).....inside.a.running.lisp.imag |
| 291a40 | 65 28 31 29 2e 20 20 4e 6f 77 20 61 6c 6c 20 77 65 20 6e 65 65 64 20 74 6f 20 64 6f 20 69 73 20 | e(1)...Now.all.we.need.to.do.is. |
| 291a60 | 73 74 61 72 74 75 70 20 6f 75 72 0a 73 77 61 6e 6b 20 73 65 72 76 65 72 2e 20 20 54 68 65 20 66 | startup.our.swank.server...The.f |
| 291a80 | 69 72 73 74 20 65 78 61 6d 70 6c 65 20 61 73 73 75 6d 65 73 20 77 65 e2 80 99 72 65 20 75 73 69 | irst.example.assumes.we...re.usi |
| 291aa0 | 6e 67 20 74 68 65 20 64 65 66 61 75 6c 74 0a 73 65 74 74 69 6e 67 73 2e 0a 0a 20 20 20 20 20 28 | ng.the.default.settings........( |
| 291ac0 | 73 77 61 6e 6b 3a 63 72 65 61 74 65 2d 73 65 72 76 65 72 29 0a 0a 20 20 20 53 69 6e 63 65 20 77 | swank:create-server).....Since.w |
| 291ae0 | 65 e2 80 99 72 65 20 67 6f 69 6e 67 20 74 6f 20 62 65 20 74 75 6e 6e 65 6c 69 6e 67 20 6f 75 72 | e...re.going.to.be.tunneling.our |
| 291b00 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 76 69 61 20 73 73 68 28 32 29 20 61 6e 64 20 77 65 e2 80 99 | .connection.via.ssh(2).and.we... |
| 291b20 | 6c 6c 0a 6f 6e 6c 79 20 68 61 76 65 20 6f 6e 65 20 70 6f 72 74 20 6f 70 65 6e 20 77 65 20 77 61 | ll.only.have.one.port.open.we.wa |
| 291b40 | 6e 74 20 74 6f 20 74 65 6c 6c 20 73 77 61 6e 6b 20 74 6f 20 6e 6f 74 20 75 73 65 20 61 6e 20 65 | nt.to.tell.swank.to.not.use.an.e |
| 291b60 | 78 74 72 61 0a 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6f 72 20 6f 75 74 70 75 74 20 28 74 68 69 73 | xtra.connection.for.output.(this |
| 291b80 | 20 69 73 20 61 63 74 75 61 6c 6c 79 20 74 68 65 20 64 65 66 61 75 6c 74 20 69 6e 20 63 75 72 72 | .is.actually.the.default.in.curr |
| 291ba0 | 65 6e 74 20 53 4c 49 4d 45 29 3a 0a 0a 20 20 20 20 20 28 73 65 74 66 20 73 77 61 6e 6b 3a 2a 75 | ent.SLIME):.......(setf.swank:*u |
| 291bc0 | 73 65 2d 64 65 64 69 63 61 74 65 64 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2a 20 6e 69 6c 29 | se-dedicated-output-stream*.nil) |
| 291be0 | 0a 0a 20 20 20 49 66 20 79 6f 75 20 6e 65 65 64 20 74 6f 20 64 6f 20 61 6e 79 74 68 69 6e 67 20 | .....If.you.need.to.do.anything. |
| 291c00 | 70 61 72 74 69 63 75 6c 61 72 20 28 6c 69 6b 65 20 62 65 20 61 62 6c 65 20 74 6f 20 72 65 63 6f | particular.(like.be.able.to.reco |
| 291c20 | 6e 6e 65 63 74 20 74 6f 0a 73 77 61 6e 6b 20 61 66 74 65 72 20 79 6f 75 e2 80 99 72 65 20 64 6f | nnect.to.swank.after.you...re.do |
| 291c40 | 6e 65 29 2c 20 6c 6f 6f 6b 20 69 6e 74 6f 20 e2 80 98 73 77 61 6e 6b 3a 63 72 65 61 74 65 2d 73 | ne),.look.into....swank:create-s |
| 291c60 | 65 72 76 65 72 e2 80 99 e2 80 99 73 20 6f 74 68 65 72 0a 61 72 67 75 6d 65 6e 74 73 2e 20 20 53 | erver......s.other.arguments...S |
| 291c80 | 6f 6d 65 20 6f 66 20 74 68 65 73 65 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 0a 0a e2 80 98 3a | ome.of.these.arguments.are.....: |
| 291ca0 | 50 4f 52 54 e2 80 99 0a 20 20 20 20 20 50 6f 72 74 20 6e 75 6d 62 65 72 20 66 6f 72 20 74 68 65 | PORT.........Port.number.for.the |
| 291cc0 | 20 73 65 72 76 65 72 20 74 6f 20 6c 69 73 74 65 6e 20 6f 6e 20 28 64 65 66 61 75 6c 74 3a 20 34 | .server.to.listen.on.(default:.4 |
| 291ce0 | 30 30 35 29 2e 0a e2 80 98 3a 53 54 59 4c 45 e2 80 99 0a 20 20 20 20 20 53 65 65 20 2a 4e 6f 74 | 005).....:STYLE.........See.*Not |
| 291d00 | 65 20 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 3a 3a 2e 0a e2 80 98 3a 44 4f 4e | e.Communication.style::.....:DON |
| 291d20 | 54 2d 43 4c 4f 53 45 e2 80 99 0a 20 20 20 20 20 42 6f 6f 6c 65 61 6e 20 69 6e 64 69 63 61 74 69 | T-CLOSE.........Boolean.indicati |
| 291d40 | 6e 67 20 69 66 20 74 68 65 20 73 65 72 76 65 72 20 77 69 6c 6c 20 63 6f 6e 74 69 6e 75 65 20 74 | ng.if.the.server.will.continue.t |
| 291d60 | 6f 20 61 63 63 65 70 74 0a 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 61 66 74 65 72 20 | o.accept......connections.after. |
| 291d80 | 74 68 65 20 66 69 72 73 74 20 6f 6e 65 20 28 64 65 66 61 75 6c 74 3a 20 e2 80 98 4e 49 4c e2 80 | the.first.one.(default:....NIL.. |
| 291da0 | 99 29 2e 20 20 46 6f 72 0a 20 20 20 20 20 e2 80 9c 6c 6f 6e 67 2d 72 75 6e 6e 69 6e 67 e2 80 9d | .)...For.........long-running... |
| 291dc0 | 20 6c 69 73 70 20 70 72 6f 63 65 73 73 65 73 20 74 6f 20 77 68 69 63 68 20 79 6f 75 20 77 61 6e | .lisp.processes.to.which.you.wan |
| 291de0 | 74 20 74 6f 20 62 65 20 61 62 6c 65 20 74 6f 0a 20 20 20 20 20 63 6f 6e 6e 65 63 74 20 66 72 6f | t.to.be.able.to......connect.fro |
| 291e00 | 6d 20 74 69 6d 65 20 74 6f 20 74 69 6d 65 2c 20 73 70 65 63 69 66 79 20 e2 80 98 3a 64 6f 6e 74 | m.time.to.time,.specify....:dont |
| 291e20 | 2d 63 6c 6f 73 65 20 74 e2 80 99 0a 0a 20 20 20 53 6f 20 74 68 65 20 6d 6f 72 65 20 63 6f 6d 70 | -close.t........So.the.more.comp |
| 291e40 | 6c 65 74 65 20 65 78 61 6d 70 6c 65 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 20 28 73 77 61 6e 6b | lete.example.will.be......(swank |
| 291e60 | 3a 63 72 65 61 74 65 2d 73 65 72 76 65 72 20 3a 70 6f 72 74 20 34 30 30 35 20 20 3a 64 6f 6e 74 | :create-server.:port.4005..:dont |
| 291e80 | 2d 63 6c 6f 73 65 20 74 29 0a 20 20 20 4f 6e 20 74 68 65 20 65 6d 61 63 73 20 73 69 64 65 20 79 | -close.t)....On.the.emacs.side.y |
| 291ea0 | 6f 75 20 77 69 6c 6c 20 75 73 65 20 73 6f 6d 65 74 68 69 6e 67 20 6c 69 6b 65 0a 20 20 20 20 20 | ou.will.use.something.like...... |
| 291ec0 | 28 73 65 74 71 20 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 27 75 | (setq.slime-net-coding-system.'u |
| 291ee0 | 74 66 2d 38 2d 75 6e 69 78 29 0a 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 20 22 | tf-8-unix)......(slime-connect." |
| 291f00 | 6c 6f 63 61 6c 68 6f 73 74 22 20 34 30 30 35 29 29 0a 20 20 20 74 6f 20 63 6f 6e 6e 65 63 74 20 | localhost".4005))....to.connect. |
| 291f20 | 74 6f 20 74 68 69 73 20 6c 69 73 70 20 69 6d 61 67 65 20 66 72 6f 6d 20 74 68 65 20 73 61 6d 65 | to.this.lisp.image.from.the.same |
| 291f40 | 20 6d 61 63 68 69 6e 65 2e 0a 0a 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 46 6f 6f 74 6e 6f 74 | .machine......----------.Footnot |
| 291f60 | 65 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 20 20 20 28 31 29 20 53 4c 49 4d 45 20 61 6c 73 6f | es.----------.....(1).SLIME.also |
| 291f80 | 20 70 72 6f 76 69 64 65 73 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 20 64 65 66 69 6e 69 74 | .provides.an.ASDF.system.definit |
| 291fa0 | 69 6f 6e 20 77 68 69 63 68 20 64 6f 65 73 20 74 68 65 20 73 61 6d 65 0a 74 68 69 6e 67 0a 0a 20 | ion.which.does.the.same.thing... |
| 291fc0 | 20 20 28 32 29 20 74 68 65 72 65 20 69 73 20 61 20 77 61 79 20 74 6f 20 63 6f 6e 6e 65 63 74 20 | ..(2).there.is.a.way.to.connect. |
| 291fe0 | 77 69 74 68 6f 75 74 20 61 6e 20 73 73 68 20 74 75 6e 6e 65 6c 2c 20 62 75 74 20 69 74 20 68 61 | without.an.ssh.tunnel,.but.it.ha |
| 292000 | 73 20 74 68 65 0a 73 69 64 65 2d 65 66 66 65 63 74 20 6f 66 20 67 69 76 69 6e 67 20 74 68 65 20 | s.the.side-effect.of.giving.the. |
| 292020 | 65 6e 74 69 72 65 20 77 6f 72 6c 64 20 61 63 63 65 73 73 20 74 6f 20 79 6f 75 72 20 6c 69 73 70 | entire.world.access.to.your.lisp |
| 292040 | 20 69 6d 61 67 65 2c 20 73 6f 0a 77 65 e2 80 99 72 65 20 6e 6f 74 20 67 6f 69 6e 67 20 74 6f 20 | .image,.so.we...re.not.going.to. |
| 292060 | 74 61 6c 6b 20 61 62 6f 75 74 20 69 74 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 | talk.about.it....File:.docFDBrww |
| 292080 | 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 53 65 74 74 69 6e 67 20 75 70 20 45 6d 61 63 73 2c 20 | .info,..Node:.Setting.up.Emacs,. |
| 2920a0 | 20 4e 65 78 74 3a 20 53 65 74 74 69 6e 67 20 75 70 20 70 61 74 68 6e 61 6d 65 20 74 72 61 6e 73 | .Next:.Setting.up.pathname.trans |
| 2920c0 | 6c 61 74 69 6f 6e 73 2c 20 20 50 72 65 76 3a 20 53 65 74 74 69 6e 67 20 75 70 20 74 68 65 20 6c | lations,..Prev:.Setting.up.the.l |
| 2920e0 | 69 73 70 20 69 6d 61 67 65 2c 20 20 55 70 3a 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 61 20 | isp.image,..Up:.Connecting.to.a. |
| 292100 | 72 65 6d 6f 74 65 20 6c 69 73 70 0a 0a 37 2e 31 2e 32 20 53 65 74 74 69 6e 67 20 75 70 20 45 6d | remote.lisp..7.1.2.Setting.up.Em |
| 292120 | 61 63 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 4e 6f 77 20 | acs.----------------------..Now. |
| 292140 | 77 65 20 6e 65 65 64 20 74 6f 20 63 72 65 61 74 65 20 74 68 65 20 74 75 6e 6e 65 6c 20 62 65 74 | we.need.to.create.the.tunnel.bet |
| 292160 | 77 65 65 6e 20 74 68 65 20 6c 6f 63 61 6c 20 6d 61 63 68 69 6e 65 20 61 6e 64 20 74 68 65 0a 72 | ween.the.local.machine.and.the.r |
| 292180 | 65 6d 6f 74 65 20 6d 61 63 68 69 6e 65 2e 0a 0a 20 20 20 20 20 73 73 68 20 2d 4c 34 30 30 35 3a | emote.machine........ssh.-L4005: |
| 2921a0 | 6c 6f 63 61 6c 68 6f 73 74 3a 34 30 30 35 20 75 73 65 72 6e 61 6d 65 40 72 65 6d 6f 74 65 2e 65 | localhost:4005.username@remote.e |
| 2921c0 | 78 61 6d 70 6c 65 2e 63 6f 6d 0a 0a 20 20 20 54 68 61 74 20 73 73 68 20 69 6e 76 6f 63 61 74 69 | xample.com.....That.ssh.invocati |
| 2921e0 | 6f 6e 20 63 72 65 61 74 65 73 20 61 6e 20 73 73 68 20 74 75 6e 6e 65 6c 20 62 65 74 77 65 65 6e | on.creates.an.ssh.tunnel.between |
| 292200 | 20 74 68 65 20 70 6f 72 74 20 34 30 30 35 20 6f 6e 0a 6f 75 72 20 6c 6f 63 61 6c 20 6d 61 63 68 | .the.port.4005.on.our.local.mach |
| 292220 | 69 6e 65 20 61 6e 64 20 74 68 65 20 70 6f 72 74 20 34 30 30 35 20 6f 6e 20 74 68 65 20 72 65 6d | ine.and.the.port.4005.on.the.rem |
| 292240 | 6f 74 65 20 6d 61 63 68 69 6e 65 28 31 29 2e 0a 0a 20 20 20 46 69 6e 61 6c 6c 79 20 77 65 20 63 | ote.machine(1)......Finally.we.c |
| 292260 | 61 6e 20 73 74 61 72 74 20 53 4c 49 4d 45 3a 0a 0a 20 20 20 20 20 4d 2d 78 20 73 6c 69 6d 65 2d | an.start.SLIME:.......M-x.slime- |
| 292280 | 63 6f 6e 6e 65 63 74 20 52 45 54 20 52 45 54 0a 0a 20 20 20 54 68 65 20 e2 80 98 52 45 54 20 52 | connect.RET.RET.....The....RET.R |
| 2922a0 | 45 54 e2 80 99 20 73 65 71 75 65 6e 63 65 20 6a 75 73 74 20 6d 65 61 6e 73 20 74 68 61 74 20 77 | ET....sequence.just.means.that.w |
| 2922c0 | 65 20 77 61 6e 74 20 74 6f 20 75 73 65 20 74 68 65 20 64 65 66 61 75 6c 74 0a 68 6f 73 74 20 28 | e.want.to.use.the.default.host.( |
| 2922e0 | e2 80 98 6c 6f 63 61 6c 68 6f 73 74 e2 80 99 29 20 61 6e 64 20 74 68 65 20 64 65 66 61 75 6c 74 | ...localhost...).and.the.default |
| 292300 | 20 70 6f 72 74 20 28 e2 80 98 34 30 30 35 e2 80 99 29 2e 20 20 45 76 65 6e 20 74 68 6f 75 67 68 | .port.(...4005...)...Even.though |
| 292320 | 20 77 65 e2 80 99 72 65 0a 63 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 61 20 72 65 6d 6f 74 65 20 | .we...re.connecting.to.a.remote. |
| 292340 | 6d 61 63 68 69 6e 65 20 74 68 65 20 73 73 68 20 74 75 6e 6e 65 6c 20 66 6f 6f 6c 73 20 45 6d 61 | machine.the.ssh.tunnel.fools.Ema |
| 292360 | 63 73 20 69 6e 74 6f 20 74 68 69 6e 6b 69 6e 67 0a 69 74 e2 80 99 73 20 61 63 74 75 61 6c 6c 79 | cs.into.thinking.it...s.actually |
| 292380 | 20 e2 80 98 6c 6f 63 61 6c 68 6f 73 74 e2 80 99 2e 0a 0a 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ....localhost.........---------- |
| 2923a0 | 20 46 6f 6f 74 6e 6f 74 65 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 20 20 20 28 31 29 20 42 79 | .Footnotes.----------.....(1).By |
| 2923c0 | 20 64 65 66 61 75 6c 74 20 73 77 61 6e 6b 20 6c 69 73 74 65 6e 73 20 66 6f 72 20 69 6e 63 6f 6d | .default.swank.listens.for.incom |
| 2923e0 | 69 6e 67 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 6f 6e 20 70 6f 72 74 20 34 30 30 35 2c 0a 68 61 | ing.connections.on.port.4005,.ha |
| 292400 | 64 20 77 65 20 70 61 73 73 65 64 20 61 20 e2 80 98 3a 70 6f 72 74 e2 80 99 20 70 61 72 61 6d 65 | d.we.passed.a....:port....parame |
| 292420 | 74 65 72 20 74 6f 20 e2 80 98 73 77 61 6e 6b 3a 63 72 65 61 74 65 2d 73 65 72 76 65 72 e2 80 99 | ter.to....swank:create-server... |
| 292440 | 20 77 65 e2 80 99 64 20 62 65 20 75 73 69 6e 67 0a 74 68 61 74 20 70 6f 72 74 20 6e 75 6d 62 65 | .we...d.be.using.that.port.numbe |
| 292460 | 72 20 69 6e 73 74 65 61 64 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 | r.instead....File:.docFDBrww.inf |
| 292480 | 6f 2c 20 20 4e 6f 64 65 3a 20 53 65 74 74 69 6e 67 20 75 70 20 70 61 74 68 6e 61 6d 65 20 74 72 | o,..Node:.Setting.up.pathname.tr |
| 2924a0 | 61 6e 73 6c 61 74 69 6f 6e 73 2c 20 20 50 72 65 76 3a 20 53 65 74 74 69 6e 67 20 75 70 20 45 6d | anslations,..Prev:.Setting.up.Em |
| 2924c0 | 61 63 73 2c 20 20 55 70 3a 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 61 20 72 65 6d 6f 74 65 | acs,..Up:.Connecting.to.a.remote |
| 2924e0 | 20 6c 69 73 70 0a 0a 37 2e 31 2e 33 20 53 65 74 74 69 6e 67 20 75 70 20 70 61 74 68 6e 61 6d 65 | .lisp..7.1.3.Setting.up.pathname |
| 292500 | 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | .translations.------------------ |
| 292520 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 4f 6e 65 20 6f 66 20 74 68 65 | --------------------..One.of.the |
| 292540 | 20 6d 61 69 6e 20 70 72 6f 62 6c 65 6d 73 20 77 69 74 68 20 72 75 6e 6e 69 6e 67 20 73 77 61 6e | .main.problems.with.running.swan |
| 292560 | 6b 20 72 65 6d 6f 74 65 6c 79 20 69 73 20 74 68 61 74 20 45 6d 61 63 73 0a 61 73 73 75 6d 65 73 | k.remotely.is.that.Emacs.assumes |
| 292580 | 20 74 68 65 20 66 69 6c 65 73 20 63 61 6e 20 62 65 20 66 6f 75 6e 64 20 75 73 69 6e 67 20 6e 6f | .the.files.can.be.found.using.no |
| 2925a0 | 72 6d 61 6c 20 66 69 6c 65 6e 61 6d 65 73 2e 20 20 69 66 20 77 65 20 77 61 6e 74 0a 74 68 69 6e | rmal.filenames...if.we.want.thin |
| 2925c0 | 67 73 20 6c 69 6b 65 20 e2 80 98 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 | gs.like....slime-compile-and-loa |
| 2925e0 | 64 2d 66 69 6c 65 e2 80 99 20 28 e2 80 98 43 2d 63 20 43 2d 6b e2 80 99 29 20 61 6e 64 0a e2 80 | d-file....(...C-c.C-k...).and... |
| 292600 | 98 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e e2 80 99 20 28 e2 80 98 4d 2d | .slime-edit-definition....(...M- |
| 292620 | 2e e2 80 99 29 20 74 6f 20 77 6f 72 6b 20 63 6f 72 72 65 63 74 6c 79 20 77 65 20 6e 65 65 64 20 | ....).to.work.correctly.we.need. |
| 292640 | 74 6f 20 66 69 6e 64 20 61 20 77 61 79 0a 74 6f 20 6c 65 74 20 6f 75 72 20 6c 6f 63 61 6c 20 45 | to.find.a.way.to.let.our.local.E |
| 292660 | 6d 61 63 73 20 72 65 66 65 72 20 74 6f 20 72 65 6d 6f 74 65 20 66 69 6c 65 73 2e 0a 0a 20 20 20 | macs.refer.to.remote.files...... |
| 292680 | 54 68 65 72 65 20 61 72 65 2c 20 6d 61 69 6e 6c 79 2c 20 74 77 6f 20 77 61 79 73 20 74 6f 20 64 | There.are,.mainly,.two.ways.to.d |
| 2926a0 | 6f 20 74 68 69 73 2e 20 20 54 68 65 20 66 69 72 73 74 20 69 73 20 74 6f 20 6d 6f 75 6e 74 2c 20 | o.this...The.first.is.to.mount,. |
| 2926c0 | 75 73 69 6e 67 0a 4e 46 53 20 6f 72 20 73 69 6d 69 6c 61 72 2c 20 74 68 65 20 72 65 6d 6f 74 65 | using.NFS.or.similar,.the.remote |
| 2926e0 | 20 6d 61 63 68 69 6e 65 e2 80 99 73 20 68 61 72 64 20 64 69 73 6b 20 6f 6e 20 74 68 65 20 6c 6f | .machine...s.hard.disk.on.the.lo |
| 292700 | 63 61 6c 20 6d 61 63 68 69 6e 65 e2 80 99 73 0a 66 69 6c 65 20 73 79 73 74 65 6d 20 69 6e 20 73 | cal.machine...s.file.system.in.s |
| 292720 | 75 63 68 20 61 20 66 61 73 68 69 6f 6e 20 74 68 61 74 20 61 20 66 69 6c 65 6e 61 6d 65 20 6c 69 | uch.a.fashion.that.a.filename.li |
| 292740 | 6b 65 0a e2 80 98 2f 6f 70 74 2f 70 72 6f 6a 65 63 74 2f 73 6f 75 72 63 65 2e 6c 69 73 70 e2 80 | ke..../opt/project/source.lisp.. |
| 292760 | 99 20 72 65 66 65 72 73 20 74 6f 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 20 6f 6e 20 62 6f 74 | ..refers.to.the.same.file.on.bot |
| 292780 | 68 20 6d 61 63 68 69 6e 65 73 2e 0a 55 6e 66 6f 72 74 75 6e 61 74 65 6c 79 20 4e 46 53 20 69 73 | h.machines..Unfortunately.NFS.is |
| 2927a0 | 20 75 73 75 61 6c 6c 79 20 73 6c 6f 77 2c 20 6f 66 74 65 6e 20 62 75 67 67 79 2c 20 61 6e 64 20 | .usually.slow,.often.buggy,.and. |
| 2927c0 | 6e 6f 74 20 61 6c 77 61 79 73 20 66 65 61 73 69 62 6c 65 2c 0a 66 6f 72 74 75 6e 61 74 65 6c 79 | not.always.feasible,.fortunately |
| 2927e0 | 20 77 65 20 68 61 76 65 20 61 6e 20 73 73 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 61 6e 64 20 45 | .we.have.an.ssh.connection.and.E |
| 292800 | 6d 61 63 73 e2 80 99 20 e2 80 98 74 72 61 6d 70 2d 6d 6f 64 65 e2 80 99 20 63 61 6e 20 64 6f 20 | macs.......tramp-mode....can.do. |
| 292820 | 74 68 65 0a 72 65 73 74 2e 20 20 28 53 65 65 20 2a 6e 6f 74 65 20 54 52 41 4d 50 20 55 73 65 72 | the.rest...(See.*note.TRAMP.User |
| 292840 | 20 4d 61 6e 75 61 6c 3a 20 28 74 72 61 6d 70 29 54 6f 70 2e 29 0a 0a 20 20 20 57 68 61 74 20 77 | .Manual:.(tramp)Top.).....What.w |
| 292860 | 65 20 64 6f 20 69 73 20 74 65 61 63 68 20 45 6d 61 63 73 20 68 6f 77 20 74 6f 20 74 61 6b 65 20 | e.do.is.teach.Emacs.how.to.take. |
| 292880 | 61 20 66 69 6c 65 6e 61 6d 65 20 6f 6e 20 74 68 65 20 72 65 6d 6f 74 65 0a 6d 61 63 68 69 6e 65 | a.filename.on.the.remote.machine |
| 2928a0 | 20 61 6e 64 20 74 72 61 6e 73 6c 61 74 65 20 69 74 20 69 6e 74 6f 20 73 6f 6d 65 74 68 69 6e 67 | .and.translate.it.into.something |
| 2928c0 | 20 74 68 61 74 20 74 72 61 6d 70 20 63 61 6e 20 75 6e 64 65 72 73 74 61 6e 64 20 61 6e 64 0a 61 | .that.tramp.can.understand.and.a |
| 2928e0 | 63 63 65 73 73 20 28 61 6e 64 20 76 69 63 65 20 76 65 72 73 61 29 2e 20 20 41 73 73 75 6d 69 6e | ccess.(and.vice.versa)...Assumin |
| 292900 | 67 20 74 68 65 20 72 65 6d 6f 74 65 20 6d 61 63 68 69 6e 65 e2 80 99 73 20 68 6f 73 74 20 6e 61 | g.the.remote.machine...s.host.na |
| 292920 | 6d 65 20 69 73 0a e2 80 98 72 65 6d 6f 74 65 2e 65 78 61 6d 70 6c 65 2e 63 6f 6d e2 80 99 2c 20 | me.is....remote.example.com...,. |
| 292940 | e2 80 98 63 6c 3a 6d 61 63 68 69 6e 65 2d 69 6e 73 74 61 6e 63 65 e2 80 99 20 72 65 74 75 72 6e | ...cl:machine-instance....return |
| 292960 | 73 20 e2 80 9c 72 65 6d 6f 74 65 e2 80 9d 20 61 6e 64 20 77 65 0a 6c 6f 67 69 6e 20 61 73 20 74 | s....remote....and.we.login.as.t |
| 292980 | 68 65 20 75 73 65 72 20 e2 80 9c 75 73 65 72 e2 80 9d 20 77 65 20 63 61 6e 20 75 73 65 20 e2 80 | he.user....user....we.can.use... |
| 2929a0 | 98 73 6c 69 6d 65 2d 74 72 61 6d 70 e2 80 99 20 63 6f 6e 74 72 69 62 20 74 6f 20 73 65 74 75 70 | .slime-tramp....contrib.to.setup |
| 2929c0 | 20 74 68 65 0a 70 72 6f 70 65 72 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 62 79 20 73 69 6d 70 | .the.proper.translations.by.simp |
| 2929e0 | 6c 79 20 64 6f 69 6e 67 3a 0a 0a 20 20 20 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 73 6c | ly.doing:.......(add-to-list.'sl |
| 292a00 | 69 6d 65 2d 66 69 6c 65 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 | ime-filename-translations....... |
| 292a20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 72 65 61 74 65 2d 66 69 6c 65 6e 61 | ............(slime-create-filena |
| 292a40 | 6d 65 2d 74 72 61 6e 73 6c 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me-translator................... |
| 292a60 | 20 3a 6d 61 63 68 69 6e 65 2d 69 6e 73 74 61 6e 63 65 20 22 72 65 6d 6f 74 65 22 0a 20 20 20 20 | .:machine-instance."remote"..... |
| 292a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 6d 6f 74 65 2d 68 6f 73 74 20 22 72 65 6d | ...............:remote-host."rem |
| 292aa0 | 6f 74 65 2e 65 78 61 6d 70 6c 65 2e 63 6f 6d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ote.example.com"................ |
| 292ac0 | 20 20 20 20 3a 75 73 65 72 6e 61 6d 65 20 22 75 73 65 72 22 29 29 0a 0a 1f 0a 46 69 6c 65 3a 20 | ....:username."user"))....File:. |
| 292ae0 | 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 47 6c 6f 62 61 6c 20 49 4f | docFDBrww.info,..Node:.Global.IO |
| 292b00 | 20 52 65 64 69 72 65 63 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 41 75 74 6f 2d 53 4c 49 4d 45 2c | .Redirection,..Next:.Auto-SLIME, |
| 292b20 | 20 20 50 72 65 76 3a 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 61 20 72 65 6d 6f 74 65 20 6c | ..Prev:.Connecting.to.a.remote.l |
| 292b40 | 69 73 70 2c 20 20 55 70 3a 20 54 69 70 73 20 61 6e 64 20 54 72 69 63 6b 73 0a 0a 37 2e 32 20 47 | isp,..Up:.Tips.and.Tricks..7.2.G |
| 292b60 | 6c 6f 62 61 6c 6c 79 20 72 65 64 69 72 65 63 74 69 6e 67 20 61 6c 6c 20 49 4f 20 74 6f 20 74 68 | lobally.redirecting.all.IO.to.th |
| 292b80 | 65 20 52 45 50 4c 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | e.REPL.========================= |
| 292ba0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 57 68 65 6e 20 63 6f 6e 6e 65 63 74 | ==================..When.connect |
| 292bc0 | 69 6e 67 20 76 69 61 20 e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 e2 80 99 20 | ing.via....M-x.slime-connect.... |
| 292be0 | 53 4c 49 4d 45 20 64 6f 65 73 20 6e 6f 74 20 63 68 61 6e 67 65 0a e2 80 98 2a 73 74 61 6e 64 61 | SLIME.does.not.change....*standa |
| 292c00 | 72 64 2d 6f 75 74 70 75 74 2a e2 80 99 20 61 6e 64 20 66 72 69 65 6e 64 73 20 6f 75 74 73 69 64 | rd-output*....and.friends.outsid |
| 292c20 | 65 20 6f 66 20 74 68 65 20 52 45 50 4c 2e 20 20 49 66 20 79 6f 75 20 68 61 76 65 20 61 6e 79 0a | e.of.the.REPL...If.you.have.any. |
| 292c40 | 6f 74 68 65 72 20 74 68 72 65 61 64 73 20 77 68 69 63 68 20 63 61 6c 6c 20 e2 80 98 66 6f 72 6d | other.threads.which.call....form |
| 292c60 | 61 74 e2 80 99 2c 20 e2 80 98 77 72 69 74 65 2d 73 74 72 69 6e 67 e2 80 99 2c 20 65 74 63 2e 20 | at...,....write-string...,.etc.. |
| 292c80 | 20 74 68 61 74 20 6f 75 74 70 75 74 0a 77 69 6c 6c 20 62 65 20 73 65 65 6e 20 6f 6e 6c 79 20 69 | .that.output.will.be.seen.only.i |
| 292ca0 | 6e 20 74 68 65 20 e2 80 98 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a e2 80 99 20 62 75 66 66 | n.the....*inferior-lisp*....buff |
| 292cc0 | 65 72 20 6f 72 20 6f 6e 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 2c 0a 6d 6f 72 65 20 6f 66 74 65 | er.or.on.the.terminal,.more.ofte |
| 292ce0 | 6e 20 74 68 61 6e 20 6e 6f 74 20 74 68 69 73 20 69 73 20 69 6e 63 6f 6e 76 65 6e 69 65 6e 74 2e | n.than.not.this.is.inconvenient. |
| 292d00 | 20 20 53 6f 2c 20 69 66 20 79 6f 75 20 77 61 6e 74 20 63 6f 64 65 20 73 75 63 68 20 61 73 0a 74 | ..So,.if.you.want.code.such.as.t |
| 292d20 | 68 69 73 3a 0a 0a 20 20 20 20 20 28 72 75 6e 2d 69 6e 2d 6e 65 77 2d 74 68 72 65 61 64 0a 20 20 | his:.......(run-in-new-thread... |
| 292d40 | 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d | .....(lambda.()..........(write- |
| 292d60 | 6c 69 6e 65 20 22 49 6e 20 73 6f 6d 65 20 72 61 6e 64 6f 6d 20 74 68 72 65 61 64 2e 7e 25 22 20 | line."In.some.random.thread.~%". |
| 292d80 | 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 29 29 0a 0a 20 20 20 74 6f 20 73 65 6e 64 | *standard-output*))).....to.send |
| 292da0 | 20 69 74 73 20 6f 75 74 70 75 74 20 74 6f 20 53 4c 49 4d 45 e2 80 99 73 20 72 65 70 6c 20 62 75 | .its.output.to.SLIME...s.repl.bu |
| 292dc0 | 66 66 65 72 2c 20 61 73 20 6f 70 70 6f 73 65 64 20 74 6f 0a e2 80 98 2a 69 6e 66 65 72 69 6f 72 | ffer,.as.opposed.to....*inferior |
| 292de0 | 2d 6c 69 73 70 2a e2 80 99 2c 20 73 65 74 20 e2 80 98 73 77 61 6e 6b 3a 2a 67 6c 6f 62 61 6c 6c | -lisp*...,.set....swank:*globall |
| 292e00 | 79 2d 72 65 64 69 72 65 63 74 2d 69 6f 2a e2 80 99 20 74 6f 20 54 20 69 6e 0a e2 80 98 7e 2f 2e | y-redirect-io*....to.T.in....~/. |
| 292e20 | 73 77 61 6e 6b 2e 6c 69 73 70 e2 80 99 0a 0a 20 20 20 42 75 74 20 77 68 65 6e 20 73 74 61 72 74 | swank.lisp........But.when.start |
| 292e40 | 65 64 20 75 73 69 6e 67 20 e2 80 98 4d 2d 78 20 73 6c 69 6d 65 e2 80 99 20 74 68 65 20 73 74 72 | ed.using....M-x.slime....the.str |
| 292e60 | 65 61 6d 73 20 61 72 65 20 72 65 64 69 72 65 63 74 65 64 20 62 79 0a 64 65 66 61 75 6c 74 2e 0a | eams.are.redirected.by.default.. |
| 292e80 | 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 | ...File:.docFDBrww.info,..Node:. |
| 292ea0 | 41 75 74 6f 2d 53 4c 49 4d 45 2c 20 20 50 72 65 76 3a 20 47 6c 6f 62 61 6c 20 49 4f 20 52 65 64 | Auto-SLIME,..Prev:.Global.IO.Red |
| 292ec0 | 69 72 65 63 74 69 6f 6e 2c 20 20 55 70 3a 20 54 69 70 73 20 61 6e 64 20 54 72 69 63 6b 73 0a 0a | irection,..Up:.Tips.and.Tricks.. |
| 292ee0 | 37 2e 33 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 53 4c 49 4d 45 20 61 75 74 6f 6d 61 74 69 | 7.3.Connecting.to.SLIME.automati |
| 292f00 | 63 61 6c 6c 79 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | cally.========================== |
| 292f20 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 6f 20 6d 61 6b 65 20 53 4c 49 4d 45 20 63 6f 6e 6e 65 | ===========..To.make.SLIME.conne |
| 292f40 | 63 74 20 74 6f 20 79 6f 75 72 20 6c 69 73 70 20 77 68 65 6e 65 76 65 72 20 79 6f 75 20 6f 70 65 | ct.to.your.lisp.whenever.you.ope |
| 292f60 | 6e 20 61 20 6c 69 73 70 20 66 69 6c 65 20 6a 75 73 74 0a 61 64 64 20 74 68 69 73 20 74 6f 20 79 | n.a.lisp.file.just.add.this.to.y |
| 292f80 | 6f 75 72 20 e2 80 98 2e 65 6d 61 63 73 e2 80 99 3a 0a 0a 20 20 20 20 20 28 61 64 64 2d 68 6f 6f | our.....emacs...:.......(add-hoo |
| 292fa0 | 6b 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | k.'slime-mode-hook.............. |
| 292fc0 | 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 | ..(lambda.()..................(u |
| 292fe0 | 6e 6c 65 73 73 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 0a 20 20 20 20 20 20 | nless.(slime-connected-p)....... |
| 293000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 73 6c | .............(save-excursion.(sl |
| 293020 | 69 6d 65 29 29 29 29 29 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f | ime)))))....File:.docFDBrww.info |
| 293040 | 2c 20 20 4e 6f 64 65 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 2c 20 20 | ,..Node:.Contributed.Packages,.. |
| 293060 | 4e 65 78 74 3a 20 43 72 65 64 69 74 73 2c 20 20 50 72 65 76 3a 20 54 69 70 73 20 61 6e 64 20 54 | Next:.Credits,..Prev:.Tips.and.T |
| 293080 | 72 69 63 6b 73 2c 20 20 55 70 3a 20 54 6f 70 0a 0a 38 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 | ricks,..Up:.Top..8.Contributed.P |
| 2930a0 | 61 63 6b 61 67 65 73 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a | ackages.**********************.. |
| 2930c0 | 49 6e 20 76 65 72 73 69 6f 6e 20 32 2e 31 20 77 65 20 6d 6f 76 65 64 20 73 6f 6d 65 20 66 75 6e | In.version.2.1.we.moved.some.fun |
| 2930e0 | 63 74 69 6f 6e 61 6c 69 74 79 20 74 6f 20 73 65 70 61 72 61 74 65 20 70 61 63 6b 61 67 65 73 2e | ctionality.to.separate.packages. |
| 293100 | 20 20 54 68 69 73 0a 63 68 61 70 74 65 72 20 74 65 6c 6c 73 20 79 6f 75 20 68 6f 77 20 74 6f 20 | ..This.chapter.tells.you.how.to. |
| 293120 | 6c 6f 61 64 20 63 6f 6e 74 72 69 62 20 6d 6f 64 75 6c 65 73 20 61 6e 64 20 64 65 73 63 72 69 62 | load.contrib.modules.and.describ |
| 293140 | 65 73 20 77 68 61 74 20 74 68 65 0a 70 61 72 74 69 63 75 6c 61 72 20 70 61 63 6b 61 67 65 73 20 | es.what.the.particular.packages. |
| 293160 | 64 6f 2e 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 | do...*.Menu:..*.Loading.Contribs |
| 293180 | 3a 3a 0a 2a 20 52 45 50 4c 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 3a 3a 0a 2a 20 69 6e | ::.*.REPL::.*.slime-mrepl::.*.in |
| 2931a0 | 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 3a 3a 0a 2a 20 43 6f 6d 70 6f 75 6e 64 20 43 | ferior-slime-mode::.*.Compound.C |
| 2931c0 | 6f 6d 70 6c 65 74 69 6f 6e 3a 3a 0a 2a 20 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 3a 3a | ompletion::.*.Fuzzy.Completion:: |
| 2931e0 | 0a 2a 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 3a 3a 0a 2a 20 41 53 44 46 3a 3a | .*.slime-autodoc-mode::.*.ASDF:: |
| 293200 | 0a 2a 20 42 61 6e 6e 65 72 3a 3a 0a 2a 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 3a 3a | .*.Banner::.*.Editing.Commands:: |
| 293220 | 0a 2a 20 46 61 6e 63 79 20 49 6e 73 70 65 63 74 6f 72 3a 3a 0a 2a 20 50 72 65 73 65 6e 74 61 74 | .*.Fancy.Inspector::.*.Presentat |
| 293240 | 69 6f 6e 73 3a 3a 0a 2a 20 54 79 70 65 6f 75 74 20 66 72 61 6d 65 73 3a 3a 0a 2a 20 54 52 41 4d | ions::.*.Typeout.frames::.*.TRAM |
| 293260 | 50 3a 3a 0a 2a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 4c 69 6e 6b 73 3a 3a 0a 2a 20 58 72 | P::.*.Documentation.Links::.*.Xr |
| 293280 | 65 66 20 61 6e 64 20 43 6c 61 73 73 20 42 72 6f 77 73 65 72 3a 3a 0a 2a 20 48 69 67 68 6c 69 67 | ef.and.Class.Browser::.*.Highlig |
| 2932a0 | 68 74 20 45 64 69 74 73 3a 3a 0a 2a 20 53 63 72 61 74 63 68 20 42 75 66 66 65 72 3a 3a 0a 2a 20 | ht.Edits::.*.Scratch.Buffer::.*. |
| 2932c0 | 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 3a 3a 0a 2a 20 73 6c 69 6d 65 2d 73 70 72 | SLIME.Trace.Dialog::.*.slime-spr |
| 2932e0 | 6f 66 3a 3a 0a 2a 20 53 4c 49 4d 45 20 45 6e 68 61 6e 63 65 64 20 4d 2d 2e 3a 3a 0a 2a 20 73 6c | of::.*.SLIME.Enhanced.M-.::.*.sl |
| 293300 | 69 6d 65 2d 66 61 6e 63 79 3a 3a 0a 2a 20 51 75 69 63 6b 6c 69 73 70 3a 3a 0a 0a 1f 0a 46 69 6c | ime-fancy::.*.Quicklisp::....Fil |
| 293320 | 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 4c 6f 61 64 69 6e | e:.docFDBrww.info,..Node:.Loadin |
| 293340 | 67 20 43 6f 6e 74 72 69 62 73 2c 20 20 4e 65 78 74 3a 20 52 45 50 4c 2c 20 20 55 70 3a 20 43 6f | g.Contribs,..Next:.REPL,..Up:.Co |
| 293360 | 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 31 20 4c 6f 61 64 69 6e 67 20 | ntributed.Packages..8.1.Loading. |
| 293380 | 43 6f 6e 74 72 69 62 20 50 61 63 6b 61 67 65 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | Contrib.Packages.=============== |
| 2933a0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 43 6f 6e 74 72 69 62 20 70 61 63 6b 61 67 65 73 20 | =============..Contrib.packages. |
| 2933c0 | 61 72 65 6e e2 80 99 74 20 6c 6f 61 64 65 64 20 62 79 20 64 65 66 61 75 6c 74 2e 20 20 59 6f 75 | aren...t.loaded.by.default...You |
| 2933e0 | 20 68 61 76 65 20 74 6f 20 6d 6f 64 69 66 79 20 79 6f 75 72 0a 73 65 74 75 70 20 61 20 62 69 74 | .have.to.modify.your.setup.a.bit |
| 293400 | 20 73 6f 20 74 68 61 74 20 45 6d 61 63 73 20 6b 6e 6f 77 73 20 77 68 65 72 65 20 74 6f 20 66 69 | .so.that.Emacs.knows.where.to.fi |
| 293420 | 6e 64 20 74 68 65 6d 20 61 6e 64 20 77 68 69 63 68 20 6f 66 20 74 68 65 6d 20 74 6f 0a 6c 6f 61 | nd.them.and.which.of.them.to.loa |
| 293440 | 64 2e 20 20 47 65 6e 65 72 61 6c 6c 79 2c 20 79 6f 75 20 73 65 74 20 74 68 65 20 76 61 72 69 61 | d...Generally,.you.set.the.varia |
| 293460 | 62 6c 65 20 e2 80 98 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 e2 80 99 20 77 69 74 68 20 74 68 | ble....slime-contribs....with.th |
| 293480 | 65 20 6c 69 73 74 20 6f 66 0a 70 61 63 6b 61 67 65 2d 6e 61 6d 65 73 20 74 68 61 74 20 79 6f 75 | e.list.of.package-names.that.you |
| 2934a0 | 20 77 61 6e 74 20 74 6f 20 75 73 65 2e 20 20 49 74 73 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 | .want.to.use...Its.default.value |
| 2934c0 | 20 69 73 20 e2 80 98 73 6c 69 6d 65 2d 66 61 6e 63 79 e2 80 99 0a 77 68 69 63 68 20 6c 6f 61 64 | .is....slime-fancy....which.load |
| 2934e0 | 73 20 61 6c 6d 6f 73 74 20 65 76 65 72 79 74 68 69 6e 67 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c | s.almost.everything...For.exampl |
| 293500 | 65 2c 20 61 20 73 65 74 75 70 20 74 6f 20 6c 6f 61 64 20 74 68 65 0a e2 80 98 73 6c 69 6d 65 2d | e,.a.setup.to.load.the....slime- |
| 293520 | 73 63 72 61 74 63 68 e2 80 99 20 61 6e 64 20 e2 80 98 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d | scratch....and....slime-editing- |
| 293540 | 63 6f 6d 6d 61 6e 64 73 e2 80 99 20 70 61 63 6b 61 67 65 73 20 6c 6f 6f 6b 73 20 6c 69 6b 65 3a | commands....packages.looks.like: |
| 293560 | 0a 0a 20 20 20 20 20 3b 3b 20 5f 53 65 74 75 70 20 6c 6f 61 64 2d 70 61 74 68 20 61 6e 64 20 61 | .......;;._Setup.load-path.and.a |
| 293580 | 75 74 6f 6c 6f 61 64 73 5f 0a 20 20 20 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f 61 | utoloads_......(add-to-list.'loa |
| 2935a0 | 64 2d 70 61 74 68 20 22 7e 2f 64 69 72 2f 74 6f 2f 63 6c 6f 6e 65 64 2f 73 6c 69 6d 65 22 29 0a | d-path."~/dir/to/cloned/slime"). |
| 2935c0 | 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 61 75 74 6f 6c 6f 61 64 73 29 0a | .....(require.'slime-autoloads). |
| 2935e0 | 0a 20 20 20 20 20 3b 3b 20 5f 53 65 74 20 79 6f 75 72 20 6c 69 73 70 20 73 79 73 74 65 6d 20 61 | ......;;._Set.your.lisp.system.a |
| 293600 | 6e 64 20 73 6f 6d 65 20 63 6f 6e 74 72 69 62 73 5f 0a 20 20 20 20 20 28 73 65 74 71 20 69 6e 66 | nd.some.contribs_......(setq.inf |
| 293620 | 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 20 22 2f 6f 70 74 2f 73 62 63 6c 2f 62 69 | erior-lisp-program."/opt/sbcl/bi |
| 293640 | 6e 2f 73 62 63 6c 22 29 0a 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 | n/sbcl")......(setq.slime-contri |
| 293660 | 62 73 20 27 28 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 20 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 | bs.'(slime-scratch.slime-editing |
| 293680 | 2d 63 6f 6d 6d 61 6e 64 73 29 29 0a 0a 20 20 20 41 66 74 65 72 20 73 74 61 72 74 69 6e 67 20 53 | -commands)).....After.starting.S |
| 2936a0 | 4c 49 4d 45 2c 20 74 68 65 20 63 6f 6d 6d 61 6e 64 73 20 6f 66 20 62 6f 74 68 20 70 61 63 6b 61 | LIME,.the.commands.of.both.packa |
| 2936c0 | 67 65 73 20 73 68 6f 75 6c 64 20 62 65 0a 61 76 61 69 6c 61 62 6c 65 2e 0a 0a 38 2e 31 2e 31 20 | ges.should.be.available...8.1.1. |
| 2936e0 | 4c 6f 61 64 69 6e 67 20 61 6e 64 20 75 6e 6c 6f 61 64 69 6e 67 20 e2 80 9c 6f 6e 20 74 68 65 20 | Loading.and.unloading....on.the. |
| 293700 | 66 6c 79 e2 80 9d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | fly....------------------------- |
| 293720 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 57 65 20 72 65 63 6f 6d 6d 65 6e 64 20 74 68 | ---------------..We.recommend.th |
| 293740 | 61 74 20 79 6f 75 20 73 65 74 75 70 20 63 6f 6e 74 72 69 62 73 20 5f 62 65 66 6f 72 65 5f 20 73 | at.you.setup.contribs._before_.s |
| 293760 | 74 61 72 74 69 6e 67 20 53 4c 49 4d 45 20 76 69 61 20 e2 80 98 4d 2d 78 0a 73 6c 69 6d 65 e2 80 | tarting.SLIME.via....M-x.slime.. |
| 293780 | 99 2c 20 62 75 74 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 65 6e 61 62 6c 65 20 6d 6f 72 | .,.but.if.you.want.to.enable.mor |
| 2937a0 | 65 20 63 6f 6e 74 72 69 62 73 20 5f 61 66 74 65 72 5f 20 79 6f 75 20 64 6f 20 74 68 61 74 2c 20 | e.contribs._after_.you.do.that,. |
| 2937c0 | 79 6f 75 0a 63 61 6e 20 73 65 74 20 74 68 65 20 e2 80 98 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 | you.can.set.the....slime-contrib |
| 2937e0 | 73 e2 80 99 20 76 61 72 69 61 62 6c 65 20 74 6f 20 61 6e 6f 74 68 65 72 20 76 61 6c 75 65 20 61 | s....variable.to.another.value.a |
| 293800 | 6e 64 20 63 61 6c 6c 20 e2 80 98 4d 2d 78 0a 73 6c 69 6d 65 2d 73 65 74 75 70 e2 80 99 2e 20 20 | nd.call....M-x.slime-setup...... |
| 293820 | 4e 6f 74 65 20 74 68 69 73 20 74 68 6f 75 67 68 3a 0a 0a 20 20 20 e2 80 a2 20 49 66 20 79 6f 75 | Note.this.though:.........If.you |
| 293840 | e2 80 99 76 65 20 72 65 6d 6f 76 65 64 20 63 6f 6e 74 72 69 62 73 20 66 72 6f 6d 20 74 68 65 20 | ...ve.removed.contribs.from.the. |
| 293860 | 6c 69 73 74 20 74 68 65 79 20 77 6f 6e e2 80 99 74 20 62 65 20 75 6e 6c 6f 61 64 65 64 0a 20 20 | list.they.won...t.be.unloaded... |
| 293880 | 20 20 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 2e 0a 20 20 20 e2 80 a2 20 49 66 20 79 6f 75 20 | ...automatically.........If.you. |
| 2938a0 | 68 61 76 65 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 53 4c 49 4d 45 20 63 6f 6e 6e 65 63 74 | have.more.than.one.SLIME.connect |
| 2938c0 | 69 6f 6e 20 63 75 72 72 65 6e 74 6c 79 20 61 63 74 69 76 65 2c 20 79 6f 75 0a 20 20 20 20 20 6d | ion.currently.active,.you......m |
| 2938e0 | 75 73 74 20 6d 61 6e 75 61 6c 6c 79 20 72 65 70 65 61 74 20 74 68 65 20 e2 80 98 73 6c 69 6d 65 | ust.manually.repeat.the....slime |
| 293900 | 2d 73 65 74 75 70 e2 80 99 20 73 74 65 70 20 66 6f 72 20 65 61 63 68 20 6f 66 20 74 68 65 6d 2e | -setup....step.for.each.of.them. |
| 293920 | 0a 0a 20 20 20 53 68 6f 72 74 20 6f 66 20 72 65 73 74 61 72 74 69 6e 67 20 45 6d 61 63 73 2c 20 | .....Short.of.restarting.Emacs,. |
| 293940 | 61 20 72 65 61 73 6f 6e 61 62 6c 65 20 77 61 79 20 6f 66 20 75 6e 6c 6f 61 64 69 6e 67 20 63 6f | a.reasonable.way.of.unloading.co |
| 293960 | 6e 74 72 69 62 73 20 69 73 0a 62 79 20 63 61 6c 6c 69 6e 67 20 61 6e 20 45 6d 61 63 73 20 4c 69 | ntribs.is.by.calling.an.Emacs.Li |
| 293980 | 73 70 20 66 75 6e 63 74 69 6f 6e 20 77 68 6f 73 65 20 6e 61 6d 65 20 69 73 20 6f 62 74 61 69 6e | sp.function.whose.name.is.obtain |
| 2939a0 | 65 64 20 62 79 20 61 64 64 69 6e 67 0a e2 80 98 2d 75 6e 6c 6f 61 64 e2 80 99 20 74 6f 20 74 68 | ed.by.adding....-unload....to.th |
| 2939c0 | 65 20 63 6f 6e 74 72 69 62 e2 80 99 73 20 6e 61 6d 65 2c 20 66 6f 72 20 65 76 65 72 79 20 63 6f | e.contrib...s.name,.for.every.co |
| 2939e0 | 6e 74 72 69 62 20 79 6f 75 20 77 69 73 68 20 74 6f 20 75 6e 6c 6f 61 64 2e 0a 53 6f 2c 20 74 6f | ntrib.you.wish.to.unload..So,.to |
| 293a00 | 20 72 65 6d 6f 76 65 20 e2 80 98 73 6c 69 6d 65 2d 72 65 70 6c e2 80 99 2c 20 79 6f 75 20 6d 75 | .remove....slime-repl...,.you.mu |
| 293a20 | 73 74 20 63 61 6c 6c 20 e2 80 98 73 6c 69 6d 65 2d 72 65 70 6c 2d 75 6e 6c 6f 61 64 e2 80 99 2e | st.call....slime-repl-unload.... |
| 293a40 | 20 20 42 65 63 61 75 73 65 0a 74 68 65 20 75 6e 6c 6f 61 64 20 66 75 6e 63 74 69 6f 6e 20 77 69 | ..Because.the.unload.function.wi |
| 293a60 | 6c 6c 20 6f 6e 6c 79 2c 20 69 66 20 65 76 65 72 2c 20 75 6e 6c 6f 61 64 20 74 68 65 20 45 6d 61 | ll.only,.if.ever,.unload.the.Ema |
| 293a80 | 63 73 20 4c 69 73 70 20 73 69 64 65 20 6f 66 0a 74 68 65 20 63 6f 6e 74 72 69 62 2c 20 79 6f 75 | cs.Lisp.side.of.the.contrib,.you |
| 293aa0 | 20 6d 61 79 20 61 6c 73 6f 20 6e 65 65 64 20 74 6f 20 72 65 73 74 61 72 74 20 79 6f 75 72 20 6c | .may.also.need.to.restart.your.l |
| 293ac0 | 69 73 70 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 | isps.....File:.docFDBrww.info,.. |
| 293ae0 | 4e 6f 64 65 3a 20 52 45 50 4c 2c 20 20 4e 65 78 74 3a 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2c 20 | Node:.REPL,..Next:.slime-mrepl,. |
| 293b00 | 20 50 72 65 76 3a 20 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 2c 20 20 55 70 3a 20 43 6f | .Prev:.Loading.Contribs,..Up:.Co |
| 293b20 | 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 32 20 52 45 50 4c 3a 20 74 68 | ntributed.Packages..8.2.REPL:.th |
| 293b40 | 65 20 e2 80 9c 74 6f 70 20 6c 65 76 65 6c e2 80 9d 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | e....top.level....============== |
| 293b60 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 53 4c 49 4d 45 20 75 73 65 73 20 61 20 63 75 73 74 6f 6d | ===========..SLIME.uses.a.custom |
| 293b80 | 20 52 65 61 64 2d 45 76 61 6c 2d 50 72 69 6e 74 20 4c 6f 6f 70 20 28 52 45 50 4c 2c 20 61 6c 73 | .Read-Eval-Print.Loop.(REPL,.als |
| 293ba0 | 6f 20 6b 6e 6f 77 6e 20 61 73 20 61 20 e2 80 9c 74 6f 70 0a 6c 65 76 65 6c e2 80 9d 2c 20 6f 72 | o.known.as.a....top.level...,.or |
| 293bc0 | 20 6c 69 73 74 65 6e 65 72 29 2e 20 20 54 68 65 20 52 45 50 4c 20 75 73 65 72 2d 69 6e 74 65 72 | .listener)...The.REPL.user-inter |
| 293be0 | 66 61 63 65 20 69 73 20 77 72 69 74 74 65 6e 20 69 6e 20 45 6d 61 63 73 20 4c 69 73 70 2c 0a 77 | face.is.written.in.Emacs.Lisp,.w |
| 293c00 | 68 69 63 68 20 67 69 76 65 73 20 6d 6f 72 65 20 45 6d 61 63 73 2d 69 6e 74 65 67 72 61 74 69 6f | hich.gives.more.Emacs-integratio |
| 293c20 | 6e 20 74 68 61 6e 20 74 68 65 20 74 72 61 64 69 74 69 6f 6e 61 6c 20 e2 80 98 63 6f 6d 69 6e 74 | n.than.the.traditional....comint |
| 293c40 | e2 80 99 2d 62 61 73 65 64 0a 4c 69 73 70 20 69 6e 74 65 72 61 63 74 69 6f 6e 3a 0a 0a 20 20 20 | ...-based.Lisp.interaction:..... |
| 293c60 | e2 80 a2 20 43 6f 6e 64 69 74 69 6f 6e 73 20 73 69 67 6e 61 6c 6c 65 64 20 69 6e 20 52 45 50 4c | ....Conditions.signalled.in.REPL |
| 293c80 | 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 72 65 20 64 65 62 75 67 67 65 64 20 77 69 74 68 20 53 | .expressions.are.debugged.with.S |
| 293ca0 | 4c 44 42 2e 0a 20 20 20 e2 80 a2 20 52 65 74 75 72 6e 20 76 61 6c 75 65 73 20 61 72 65 20 64 69 | LDB.........Return.values.are.di |
| 293cc0 | 73 74 69 6e 67 75 69 73 68 65 64 20 66 72 6f 6d 20 70 72 69 6e 74 65 64 20 6f 75 74 70 75 74 20 | stinguished.from.printed.output. |
| 293ce0 | 62 79 20 73 65 70 61 72 61 74 65 0a 20 20 20 20 20 45 6d 61 63 73 20 66 61 63 65 73 20 28 63 6f | by.separate......Emacs.faces.(co |
| 293d00 | 6c 6f 75 72 73 29 2e 0a 20 20 20 e2 80 a2 20 45 6d 61 63 73 20 6d 61 6e 61 67 65 73 20 74 68 65 | lours).........Emacs.manages.the |
| 293d20 | 20 52 45 50 4c 20 70 72 6f 6d 70 74 20 77 69 74 68 20 6d 61 72 6b 65 72 73 2e 20 20 54 68 69 73 | .REPL.prompt.with.markers...This |
| 293d40 | 20 65 6e 73 75 72 65 73 20 74 68 61 74 20 4c 69 73 70 0a 20 20 20 20 20 6f 75 74 70 75 74 20 69 | .ensures.that.Lisp......output.i |
| 293d60 | 73 20 69 6e 73 65 72 74 65 64 20 69 6e 20 74 68 65 20 72 69 67 68 74 20 70 6c 61 63 65 2c 20 61 | s.inserted.in.the.right.place,.a |
| 293d80 | 6e 64 20 64 6f 65 73 6e e2 80 99 74 20 67 65 74 20 6d 69 78 65 64 20 75 70 0a 20 20 20 20 20 77 | nd.doesn...t.get.mixed.up......w |
| 293da0 | 69 74 68 20 75 73 65 72 20 69 6e 70 75 74 2e 0a 0a 20 20 20 54 6f 20 6c 6f 61 64 20 74 68 65 20 | ith.user.input......To.load.the. |
| 293dc0 | 52 45 50 4c 20 75 73 65 20 e2 80 98 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 73 6c 69 6d 65 2d | REPL.use....(add-to-list.'slime- |
| 293de0 | 63 6f 6e 74 72 69 62 73 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 e2 80 99 20 69 6e 0a 79 6f 75 72 | contribs.'slime-repl)....in.your |
| 293e00 | 20 e2 80 98 2e 65 6d 61 63 73 e2 80 99 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 7a e2 80 99 0a e2 80 | .....emacs.........C-c.C-z...... |
| 293e20 | 98 4d 2d 78 20 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f 2d 6f 75 74 70 75 74 2d 62 75 66 66 | .M-x.slime-switch-to-output-buff |
| 293e40 | 65 72 e2 80 99 0a 20 20 20 20 20 53 65 6c 65 63 74 20 74 68 65 20 6f 75 74 70 75 74 20 62 75 66 | er.........Select.the.output.buf |
| 293e60 | 66 65 72 2c 20 70 72 65 66 65 72 61 62 6c 79 20 69 6e 20 61 20 64 69 66 66 65 72 65 6e 74 20 77 | fer,.preferably.in.a.different.w |
| 293e80 | 69 6e 64 6f 77 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 79 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 | indow......C-c.C-y.......M-x.sli |
| 293ea0 | 6d 65 2d 63 61 6c 6c 2d 64 65 66 75 6e e2 80 99 0a 20 20 20 20 20 49 6e 73 65 72 74 20 61 20 63 | me-call-defun.........Insert.a.c |
| 293ec0 | 61 6c 6c 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 66 69 6e 65 64 20 61 72 6f 75 | all.to.the.function.defined.arou |
| 293ee0 | 6e 64 20 70 6f 69 6e 74 20 69 6e 74 6f 20 74 68 65 20 52 45 50 4c 2e 0a 0a e2 80 98 43 2d 63 20 | nd.point.into.the.REPL......C-c. |
| 293f00 | 43 2d 6a e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 | C-j.......M-x.slime-eval-last-ex |
| 293f20 | 70 72 65 73 73 69 6f 6e 2d 69 6e 2d 72 65 70 6c e2 80 99 0a 20 20 20 20 20 49 6e 73 65 72 74 73 | pression-in-repl.........Inserts |
| 293f40 | 20 74 68 65 20 6c 61 73 74 20 65 78 70 72 65 73 73 69 6f 6e 20 74 6f 20 74 68 65 20 52 45 50 4c | .the.last.expression.to.the.REPL |
| 293f60 | 20 61 6e 64 20 65 76 61 6c 75 61 74 65 73 20 69 74 20 74 68 65 72 65 2e 0a 20 20 20 20 20 53 77 | .and.evaluates.it.there.......Sw |
| 293f80 | 69 74 63 68 65 73 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 6f 66 | itches.to.the.current.package.of |
| 293fa0 | 20 74 68 65 20 73 6f 75 72 63 65 20 62 75 66 66 65 72 20 66 6f 72 20 74 68 65 0a 20 20 20 20 20 | .the.source.buffer.for.the...... |
| 293fc0 | 64 75 72 61 74 69 6f 6e 2e 20 20 49 66 20 75 73 65 64 20 77 69 74 68 20 61 20 70 72 65 66 69 78 | duration...If.used.with.a.prefix |
| 293fe0 | 20 61 72 67 75 6d 65 6e 74 2c 20 64 6f 65 73 6e e2 80 99 74 20 73 77 69 74 63 68 20 62 61 63 6b | .argument,.doesn...t.switch.back |
| 294000 | 0a 20 20 20 20 20 61 66 74 65 72 77 61 72 64 73 2e 0a 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 52 45 | ......afterwards...*.Menu:..*.RE |
| 294020 | 50 4c 20 63 6f 6d 6d 61 6e 64 73 3a 3a 0a 2a 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e | PL.commands::.*.Input.Navigation |
| 294040 | 3a 3a 0a 2a 20 53 68 6f 72 74 63 75 74 73 3a 3a 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 | ::.*.Shortcuts::....File:.docFDB |
| 294060 | 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2c 20 | rww.info,..Node:.REPL.commands,. |
| 294080 | 20 4e 65 78 74 3a 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2c 20 20 55 70 3a 20 52 45 | .Next:.Input.Navigation,..Up:.RE |
| 2940a0 | 50 4c 0a 0a 38 2e 32 2e 31 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 0a 2d 2d 2d 2d 2d 2d 2d 2d | PL..8.2.1.REPL.commands.-------- |
| 2940c0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a e2 80 98 52 45 54 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c | -----------.....RET.......M-x.sl |
| 2940e0 | 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e e2 80 99 0a 20 20 20 20 20 45 76 61 6c 75 61 74 65 | ime-repl-return.........Evaluate |
| 294100 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 69 6e 20 4c 69 73 70 20 69 66 20 69 74 | .the.current.input.in.Lisp.if.it |
| 294120 | 20 69 73 20 63 6f 6d 70 6c 65 74 65 2e 20 20 49 66 0a 20 20 20 20 20 69 6e 63 6f 6d 70 6c 65 74 | .is.complete...If......incomplet |
| 294140 | 65 2c 20 6f 70 65 6e 20 61 20 6e 65 77 20 6c 69 6e 65 20 61 6e 64 20 69 6e 64 65 6e 74 2e 20 20 | e,.open.a.new.line.and.indent... |
| 294160 | 49 66 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 73 0a 20 20 20 20 20 67 69 76 | If.a.prefix.argument.is......giv |
| 294180 | 65 6e 20 74 68 65 6e 20 74 68 65 20 69 6e 70 75 74 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 77 | en.then.the.input.is.evaluated.w |
| 2941a0 | 69 74 68 6f 75 74 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 0a 20 20 20 20 20 63 6f 6d 70 6c 65 74 | ithout.checking.for......complet |
| 2941c0 | 65 6e 65 73 73 2e 0a 0a e2 80 98 43 2d 52 45 54 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 | eness......C-RET.......M-x.slime |
| 2941e0 | 2d 72 65 70 6c 2d 63 6c 6f 73 69 6e 67 2d 72 65 74 75 72 6e e2 80 99 0a 20 20 20 20 20 43 6c 6f | -repl-closing-return.........Clo |
| 294200 | 73 65 20 61 6e 79 20 75 6e 6d 61 74 63 68 65 64 20 70 61 72 65 6e 74 68 65 73 69 73 20 61 6e 64 | se.any.unmatched.parenthesis.and |
| 294220 | 20 74 68 65 6e 20 65 76 61 6c 75 61 74 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 | .then.evaluate.the.current.input |
| 294240 | 0a 20 20 20 20 20 69 6e 20 4c 69 73 70 2e 20 20 41 6c 73 6f 20 62 6f 75 6e 64 20 74 6f 20 e2 80 | ......in.Lisp...Also.bound.to... |
| 294260 | 98 4d 2d 52 45 54 e2 80 99 2e 0a 0a e2 80 98 54 41 42 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 | .M-RET.........TAB.......M-x.sli |
| 294280 | 6d 65 2d 69 6e 64 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c e2 80 99 | me-indent-and-complete-symbol... |
| 2942a0 | 0a 20 20 20 20 20 49 6e 64 65 6e 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 6e | ......Indent.the.current.line.an |
| 2942c0 | 64 20 70 65 72 66 6f 72 6d 20 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 0a 0a e2 80 | d.perform.symbol.completion..... |
| 2942e0 | 98 43 2d 6a e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 77 6c 69 6e | .C-j.......M-x.slime-repl-newlin |
| 294300 | 65 2d 61 6e 64 2d 69 6e 64 65 6e 74 e2 80 99 0a 20 20 20 20 20 4f 70 65 6e 20 61 6e 64 20 69 6e | e-and-indent.........Open.and.in |
| 294320 | 64 65 6e 74 20 61 20 6e 65 77 20 6c 69 6e 65 2e 0a 0a e2 80 98 43 2d 61 e2 80 99 0a e2 80 98 4d | dent.a.new.line......C-a.......M |
| 294340 | 2d 78 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 6f 6c e2 80 99 0a 20 20 20 20 20 47 6f 20 74 6f 20 | -x.slime-repl-bol.........Go.to. |
| 294360 | 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 6c 69 6e 65 2c 20 62 75 74 20 73 | the.beginning.of.the.line,.but.s |
| 294380 | 74 6f 70 20 61 74 20 74 68 65 20 52 45 50 4c 20 70 72 6f 6d 70 74 2e 0a 0a e2 80 98 43 2d 63 20 | top.at.the.REPL.prompt......C-c. |
| 2943a0 | 43 2d 63 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 e2 80 99 | C-c.......M-x.slime-interrupt... |
| 2943c0 | 0a 20 20 20 20 20 49 6e 74 65 72 72 75 70 74 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 | ......Interrupt.the.Lisp.process |
| 2943e0 | 20 77 69 74 68 20 e2 80 98 53 49 47 49 4e 54 e2 80 99 2e 0a 0a e2 80 98 43 2d 63 20 4d 2d 6f e2 | .with....SIGINT.........C-c.M-o. |
| 294400 | 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 62 75 66 66 65 | ......M-x.slime-repl-clear-buffe |
| 294420 | 72 e2 80 99 0a 20 20 20 20 20 43 6c 65 61 72 20 74 68 65 20 65 6e 74 69 72 65 20 62 75 66 66 65 | r.........Clear.the.entire.buffe |
| 294440 | 72 2c 20 6c 65 61 76 69 6e 67 20 6f 6e 6c 79 20 61 20 70 72 6f 6d 70 74 2e 0a 0a e2 80 98 43 2d | r,.leaving.only.a.prompt......C- |
| 294460 | 63 20 43 2d 6f e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 | c.C-o.......M-x.slime-repl-clear |
| 294480 | 2d 6f 75 74 70 75 74 e2 80 99 0a 20 20 20 20 20 52 65 6d 6f 76 65 20 74 68 65 20 6f 75 74 70 75 | -output.........Remove.the.outpu |
| 2944a0 | 74 20 61 6e 64 20 72 65 73 75 6c 74 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 65 78 70 | t.and.result.of.the.previous.exp |
| 2944c0 | 72 65 73 73 69 6f 6e 20 66 72 6f 6d 20 74 68 65 0a 20 20 20 20 20 62 75 66 66 65 72 2e 0a 0a 1f | ression.from.the......buffer.... |
| 2944e0 | 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 49 6e | .File:.docFDBrww.info,..Node:.In |
| 294500 | 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 53 68 6f 72 74 63 75 74 73 | put.Navigation,..Next:.Shortcuts |
| 294520 | 2c 20 20 50 72 65 76 3a 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2c 20 20 55 70 3a 20 52 45 50 | ,..Prev:.REPL.commands,..Up:.REP |
| 294540 | 4c 0a 0a 38 2e 32 2e 32 20 49 6e 70 75 74 20 6e 61 76 69 67 61 74 69 6f 6e 0a 2d 2d 2d 2d 2d 2d | L..8.2.2.Input.navigation.------ |
| 294560 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 54 68 65 20 69 6e 70 75 74 20 6e 61 76 69 | ----------------..The.input.navi |
| 294580 | 67 61 74 69 6f 6e 20 28 61 2e 6b 2e 61 2e 20 20 68 69 73 74 6f 72 79 29 20 63 6f 6d 6d 61 6e 64 | gation.(a.k.a...history).command |
| 2945a0 | 73 20 61 72 65 20 6d 6f 64 65 6c 6c 65 64 20 61 66 74 65 72 0a e2 80 98 63 6f 6d 69 6e 67 e2 80 | s.are.modelled.after....coming.. |
| 2945c0 | 99 2d 6d 6f 64 65 2e 20 20 42 65 20 63 61 72 65 66 75 6c 20 69 66 20 79 6f 75 20 61 72 65 20 75 | .-mode...Be.careful.if.you.are.u |
| 2945e0 | 73 65 64 20 74 6f 20 42 61 73 68 2d 6c 69 6b 65 20 6b 65 79 62 69 6e 64 69 6e 67 73 3a 0a e2 80 | sed.to.Bash-like.keybindings:... |
| 294600 | 98 4d 2d 70 e2 80 99 20 61 6e 64 20 e2 80 98 4d 2d 6e e2 80 99 20 75 73 65 20 74 68 65 20 63 75 | .M-p....and....M-n....use.the.cu |
| 294620 | 72 72 65 6e 74 20 69 6e 70 75 74 20 61 73 20 73 65 61 72 63 68 20 70 61 74 74 65 72 6e 20 61 6e | rrent.input.as.search.pattern.an |
| 294640 | 64 20 6f 6e 6c 79 20 77 6f 72 6b 0a 42 61 73 68 2d 6c 69 6b 65 20 69 66 20 74 68 65 20 63 75 72 | d.only.work.Bash-like.if.the.cur |
| 294660 | 72 65 6e 74 20 6c 69 6e 65 20 69 73 20 65 6d 70 74 79 2e 20 20 e2 80 98 43 2d 3c 75 70 3e e2 80 | rent.line.is.empty......C-<up>.. |
| 294680 | 99 20 61 6e 64 20 e2 80 98 43 2d 3c 75 70 3e e2 80 99 20 77 6f 72 6b 20 6c 69 6b 65 0a 74 68 65 | ..and....C-<up>....work.like.the |
| 2946a0 | 20 75 70 20 61 6e 64 20 64 6f 77 6e 20 6b 65 79 73 20 69 6e 20 42 61 73 68 2e 0a 0a e2 80 98 43 | .up.and.down.keys.in.Bash......C |
| 2946c0 | 2d 3c 75 70 3e 2c 20 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 66 6f 72 77 61 72 64 2d 69 6e | -<up>,.M-x.slime-repl-forward-in |
| 2946e0 | 70 75 74 e2 80 99 0a e2 80 98 43 2d 3c 64 6f 77 6e 3e 2c 20 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 | put.......C-<down>,.M-x.slime-re |
| 294700 | 70 6c 2d 62 61 63 6b 77 61 72 64 2d 69 6e 70 75 74 e2 80 99 0a 20 20 20 20 20 47 6f 20 74 6f 20 | pl-backward-input.........Go.to. |
| 294720 | 74 68 65 20 6e 65 78 74 2f 70 72 65 76 69 6f 75 73 20 68 69 73 74 6f 72 79 20 69 74 65 6d 2e 0a | the.next/previous.history.item.. |
| 294740 | 0a e2 80 98 4d 2d 6e 2c 20 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d 69 6e 70 | ....M-n,.M-x.slime-repl-next-inp |
| 294760 | 75 74 e2 80 99 0a e2 80 98 4d 2d 70 2c 20 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 | ut.......M-p,.M-x.slime-repl-pre |
| 294780 | 76 69 6f 75 73 2d 69 6e 70 75 74 e2 80 99 0a 20 20 20 20 20 53 65 61 72 63 68 20 74 68 65 20 6e | vious-input.........Search.the.n |
| 2947a0 | 65 78 74 2f 70 72 65 76 69 6f 75 73 20 69 74 65 6d 20 69 6e 20 74 68 65 20 63 6f 6d 6d 61 6e 64 | ext/previous.item.in.the.command |
| 2947c0 | 20 68 69 73 74 6f 72 79 20 75 73 69 6e 67 20 74 68 65 0a 20 20 20 20 20 63 75 72 72 65 6e 74 20 | .history.using.the......current. |
| 2947e0 | 69 6e 70 75 74 20 61 73 20 73 65 61 72 63 68 20 70 61 74 74 65 72 6e 2e 20 20 49 66 20 e2 80 98 | input.as.search.pattern...If.... |
| 294800 | 4d 2d 6e e2 80 99 2f e2 80 98 4d 2d 6e e2 80 99 20 69 73 20 74 79 70 65 64 20 74 77 6f 20 74 69 | M-n.../...M-n....is.typed.two.ti |
| 294820 | 6d 65 73 0a 20 20 20 20 20 69 6e 20 61 20 72 6f 77 2c 20 74 68 65 20 73 65 63 6f 6e 64 20 69 6e | mes......in.a.row,.the.second.in |
| 294840 | 76 6f 63 61 74 69 6f 6e 20 75 73 65 73 20 74 68 65 20 73 61 6d 65 20 73 65 61 72 63 68 20 70 61 | vocation.uses.the.same.search.pa |
| 294860 | 74 74 65 72 6e 20 28 65 76 65 6e 0a 20 20 20 20 20 69 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 | ttern.(even......if.the.current. |
| 294880 | 69 6e 70 75 74 20 68 61 73 20 63 68 61 6e 67 65 64 29 2e 0a 0a e2 80 98 4d 2d 73 2c 20 4d 2d 78 | input.has.changed)......M-s,.M-x |
| 2948a0 | 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d 6d 61 74 63 68 69 6e 67 2d 69 6e 70 75 74 e2 | .slime-repl-next-matching-input. |
| 2948c0 | 80 99 0a e2 80 98 4d 2d 72 2c 20 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f | ......M-r,.M-x.slime-repl-previo |
| 2948e0 | 75 73 2d 6d 61 74 63 68 69 6e 67 2d 69 6e 70 75 74 e2 80 99 0a 20 20 20 20 20 53 65 61 72 63 68 | us-matching-input.........Search |
| 294900 | 20 66 6f 72 77 61 72 64 2f 72 65 76 65 72 73 65 20 74 68 72 6f 75 67 68 20 63 6f 6d 6d 61 6e 64 | .forward/reverse.through.command |
| 294920 | 20 68 69 73 74 6f 72 79 20 77 69 74 68 20 72 65 67 65 78 0a 0a e2 80 98 43 2d 63 20 43 2d 6e 2c | .history.with.regex.....C-c.C-n, |
| 294940 | 20 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d 70 72 6f 6d 70 74 e2 80 99 0a e2 | .M-x.slime-repl-next-prompt..... |
| 294960 | 80 98 43 2d 63 20 43 2d 70 2c 20 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f | ..C-c.C-p,.M-x.slime-repl-previo |
| 294980 | 75 73 2d 70 72 6f 6d 70 74 e2 80 99 0a 20 20 20 20 20 4d 6f 76 65 20 62 65 74 77 65 65 6e 20 74 | us-prompt.........Move.between.t |
| 2949a0 | 68 65 20 63 75 72 72 65 6e 74 20 61 6e 64 20 70 72 65 76 69 6f 75 73 20 70 72 6f 6d 70 74 73 20 | he.current.and.previous.prompts. |
| 2949c0 | 69 6e 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 2e 0a 20 20 20 20 20 50 72 65 73 73 69 6e | in.the.REPL.buffer.......Pressin |
| 2949e0 | 67 20 52 45 54 20 6f 6e 20 61 20 6c 69 6e 65 20 77 69 74 68 20 6f 6c 64 20 69 6e 70 75 74 20 63 | g.RET.on.a.line.with.old.input.c |
| 294a00 | 6f 70 69 65 73 20 74 68 61 74 20 6c 69 6e 65 20 74 6f 20 74 68 65 0a 20 20 20 20 20 6e 65 77 65 | opies.that.line.to.the......newe |
| 294a20 | 73 74 20 70 72 6f 6d 70 74 2e 0a 0a 20 20 20 54 68 65 20 76 61 72 69 61 62 6c 65 20 e2 80 98 73 | st.prompt......The.variable....s |
| 294a40 | 6c 69 6d 65 2d 72 65 70 6c 2d 77 72 61 70 2d 68 69 73 74 6f 72 79 e2 80 99 20 63 6f 6e 74 72 6f | lime-repl-wrap-history....contro |
| 294a60 | 6c 73 20 77 72 61 70 20 61 72 6f 75 6e 64 0a 62 65 68 61 76 69 6f 75 72 2c 20 69 2e 65 2e 20 20 | ls.wrap.around.behaviour,.i.e... |
| 294a80 | 77 68 65 74 68 65 72 20 63 79 63 6c 69 6e 67 20 73 68 6f 75 6c 64 20 72 65 73 74 61 72 74 20 61 | whether.cycling.should.restart.a |
| 294aa0 | 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 0a 68 69 73 74 6f 72 79 20 69 | t.the.beginning.of.the.history.i |
| 294ac0 | 66 20 74 68 65 20 65 6e 64 20 69 73 20 72 65 61 63 68 65 64 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 | f.the.end.is.reached.....File:.d |
| 294ae0 | 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 53 68 6f 72 74 63 75 74 73 2c | ocFDBrww.info,..Node:.Shortcuts, |
| 294b00 | 20 20 50 72 65 76 3a 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2c 20 20 55 70 3a 20 52 | ..Prev:.Input.Navigation,..Up:.R |
| 294b20 | 45 50 4c 0a 0a 38 2e 32 2e 33 20 53 68 6f 72 74 63 75 74 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | EPL..8.2.3.Shortcuts.----------- |
| 294b40 | 2d 2d 2d 2d 0a 0a e2 80 9c 53 68 6f 72 74 63 75 74 73 e2 80 9d 20 61 72 65 20 61 20 73 70 65 63 | ----.....Shortcuts....are.a.spec |
| 294b60 | 69 61 6c 20 73 65 74 20 6f 66 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 20 74 68 61 74 20 61 72 | ial.set.of.REPL.commands.that.ar |
| 294b80 | 65 20 69 6e 76 6f 6b 65 64 20 62 79 20 6e 61 6d 65 2e 0a 54 6f 20 69 6e 76 6f 6b 65 20 61 20 73 | e.invoked.by.name..To.invoke.a.s |
| 294ba0 | 68 6f 72 74 63 75 74 20 79 6f 75 20 66 69 72 73 74 20 70 72 65 73 73 20 e2 80 98 2c e2 80 99 20 | hortcut.you.first.press....,.... |
| 294bc0 | 28 63 6f 6d 6d 61 29 20 61 74 20 74 68 65 20 52 45 50 4c 20 70 72 6f 6d 70 74 20 61 6e 64 0a 74 | (comma).at.the.REPL.prompt.and.t |
| 294be0 | 68 65 6e 20 65 6e 74 65 72 20 74 68 65 20 73 68 6f 72 74 63 75 74 e2 80 99 73 20 6e 61 6d 65 20 | hen.enter.the.shortcut...s.name. |
| 294c00 | 77 68 65 6e 20 70 72 6f 6d 70 74 65 64 2e 0a 0a 20 20 20 53 68 6f 72 74 63 75 74 73 20 64 65 61 | when.prompted......Shortcuts.dea |
| 294c20 | 6c 20 77 69 74 68 20 74 68 69 6e 67 73 20 6c 69 6b 65 20 73 77 69 74 63 68 69 6e 67 20 62 65 74 | l.with.things.like.switching.bet |
| 294c40 | 77 65 65 6e 20 64 69 72 65 63 74 6f 72 69 65 73 20 61 6e 64 0a 63 6f 6d 70 69 6c 69 6e 67 20 61 | ween.directories.and.compiling.a |
| 294c60 | 6e 64 20 6c 6f 61 64 69 6e 67 20 4c 69 73 70 20 73 79 73 74 65 6d 73 2e 20 20 54 68 65 20 73 65 | nd.loading.Lisp.systems...The.se |
| 294c80 | 74 20 6f 66 20 73 68 6f 72 74 63 75 74 73 20 69 73 20 6c 69 73 74 65 64 0a 62 65 6c 6f 77 2c 20 | t.of.shortcuts.is.listed.below,. |
| 294ca0 | 61 6e 64 20 79 6f 75 20 63 61 6e 20 61 6c 73 6f 20 75 73 65 20 74 68 65 20 e2 80 98 68 65 6c 70 | and.you.can.also.use.the....help |
| 294cc0 | e2 80 99 20 73 68 6f 72 74 63 75 74 20 74 6f 20 6c 69 73 74 20 74 68 65 6d 0a 69 6e 74 65 72 61 | ....shortcut.to.list.them.intera |
| 294ce0 | 63 74 69 76 65 6c 79 2e 0a 0a e2 80 98 63 68 61 6e 67 65 2d 64 69 72 65 63 74 6f 72 79 20 28 61 | ctively......change-directory.(a |
| 294d00 | 6b 61 20 21 64 2c 20 63 64 29 e2 80 99 0a 20 20 20 20 20 43 68 61 6e 67 65 20 74 68 65 20 63 75 | ka.!d,.cd).........Change.the.cu |
| 294d20 | 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a e2 80 98 63 68 61 6e 67 65 2d 70 61 63 6b | rrent.directory......change-pack |
| 294d40 | 61 67 65 20 28 61 6b 61 20 21 70 2c 20 69 6e 2c 20 69 6e 2d 70 61 63 6b 61 67 65 29 e2 80 99 0a | age.(aka.!p,.in,.in-package).... |
| 294d60 | 20 20 20 20 20 43 68 61 6e 67 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 2e | .....Change.the.current.package. |
| 294d80 | 0a 0a e2 80 98 63 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 20 28 61 6b 61 20 63 6c 29 e2 80 | .....compile-and-load.(aka.cl).. |
| 294da0 | 99 0a 20 20 20 20 20 43 6f 6d 70 69 6c 65 20 28 69 66 20 6e 65 63 65 73 73 61 72 79 29 20 61 6e | .......Compile.(if.necessary).an |
| 294dc0 | 64 20 6c 6f 61 64 20 61 20 6c 69 73 70 20 66 69 6c 65 2e 0a 0a e2 80 98 64 65 66 70 61 72 61 6d | d.load.a.lisp.file......defparam |
| 294de0 | 65 74 65 72 20 28 61 6b 61 20 21 29 e2 80 99 0a 20 20 20 20 20 44 65 66 69 6e 65 20 61 20 6e 65 | eter.(aka.!).........Define.a.ne |
| 294e00 | 77 20 67 6c 6f 62 61 6c 2c 20 73 70 65 63 69 61 6c 2c 20 76 61 72 69 61 62 6c 65 2e 0a 0a e2 80 | w.global,.special,.variable..... |
| 294e20 | 98 64 69 73 63 6f 6e 6e 65 63 74 e2 80 99 0a 20 20 20 20 20 44 69 73 63 6f 6e 6e 65 63 74 20 61 | .disconnect.........Disconnect.a |
| 294e40 | 6c 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 0a e2 80 98 68 65 6c 70 20 28 61 6b 61 20 3f 29 | ll.connections......help.(aka.?) |
| 294e60 | e2 80 99 0a 20 20 20 20 20 44 69 73 70 6c 61 79 20 74 68 65 20 68 65 6c 70 2e 0a 0a e2 80 98 70 | .........Display.the.help......p |
| 294e80 | 6f 70 2d 64 69 72 65 63 74 6f 72 79 20 28 61 6b 61 20 2d 64 29 e2 80 99 0a 20 20 20 20 20 50 6f | op-directory.(aka.-d).........Po |
| 294ea0 | 70 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a e2 80 98 70 6f 70 | p.the.current.directory......pop |
| 294ec0 | 2d 70 61 63 6b 61 67 65 20 28 61 6b 61 20 2d 70 29 e2 80 99 0a 20 20 20 20 20 50 6f 70 20 74 68 | -package.(aka.-p).........Pop.th |
| 294ee0 | 65 20 74 6f 70 20 6f 66 20 74 68 65 20 70 61 63 6b 61 67 65 20 73 74 61 63 6b 2e 0a 0a e2 80 98 | e.top.of.the.package.stack...... |
| 294f00 | 70 75 73 68 2d 64 69 72 65 63 74 6f 72 79 20 28 61 6b 61 20 2b 64 2c 20 70 75 73 68 64 29 e2 80 | push-directory.(aka.+d,.pushd).. |
| 294f20 | 99 0a 20 20 20 20 20 50 75 73 68 20 61 20 6e 65 77 20 64 69 72 65 63 74 6f 72 79 20 6f 6e 74 6f | .......Push.a.new.directory.onto |
| 294f40 | 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 73 74 61 63 6b 2e 0a 0a e2 80 98 70 75 73 68 2d 70 | .the.directory.stack......push-p |
| 294f60 | 61 63 6b 61 67 65 20 28 61 6b 61 20 2b 70 29 e2 80 99 0a 20 20 20 20 20 50 75 73 68 20 61 20 70 | ackage.(aka.+p).........Push.a.p |
| 294f80 | 61 63 6b 61 67 65 20 6f 6e 74 6f 20 74 68 65 20 70 61 63 6b 61 67 65 20 73 74 61 63 6b 2e 0a 0a | ackage.onto.the.package.stack... |
| 294fa0 | e2 80 98 70 77 64 e2 80 99 0a 20 20 20 20 20 53 68 6f 77 20 74 68 65 20 63 75 72 72 65 6e 74 20 | ...pwd.........Show.the.current. |
| 294fc0 | 64 69 72 65 63 74 6f 72 79 2e 0a 0a e2 80 98 71 75 69 74 e2 80 99 0a 20 20 20 20 20 51 75 69 74 | directory......quit.........Quit |
| 294fe0 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 4c 69 73 70 2e 0a 0a e2 80 98 72 65 73 65 6e 64 2d 66 6f | .the.current.Lisp......resend-fo |
| 295000 | 72 6d e2 80 99 0a 20 20 20 20 20 52 65 73 65 6e 64 20 74 68 65 20 6c 61 73 74 20 66 6f 72 6d 2e | rm.........Resend.the.last.form. |
| 295020 | 0a 0a e2 80 98 72 65 73 74 61 72 74 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 e2 80 99 0a 20 20 | .....restart-inferior-lisp...... |
| 295040 | 20 20 20 52 65 73 74 61 72 74 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 20 61 6e 64 20 72 | ...Restart.*inferior-lisp*.and.r |
| 295060 | 65 63 6f 6e 6e 65 63 74 20 53 4c 49 4d 45 2e 0a 0a e2 80 98 73 61 79 6f 6f 6e 61 72 61 e2 80 99 | econnect.SLIME......sayoonara... |
| 295080 | 0a 20 20 20 20 20 51 75 69 74 20 61 6c 6c 20 4c 69 73 70 73 20 61 6e 64 20 63 6c 6f 73 65 20 61 | ......Quit.all.Lisps.and.close.a |
| 2950a0 | 6c 6c 20 53 4c 49 4d 45 20 62 75 66 66 65 72 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 | ll.SLIME.buffers.....File:.docFD |
| 2950c0 | 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2c 20 20 | Brww.info,..Node:.slime-mrepl,.. |
| 2950e0 | 4e 65 78 74 3a 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2c 20 20 50 72 65 76 | Next:.inferior-slime-mode,..Prev |
| 295100 | 3a 20 52 45 50 4c 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 | :.REPL,..Up:.Contributed.Package |
| 295120 | 73 0a 0a 38 2e 33 20 4d 75 6c 74 69 70 6c 65 20 52 45 50 4c 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | s..8.3.Multiple.REPLs.========== |
| 295140 | 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 e2 80 98 73 6c 69 6d 65 2d 6d 72 65 70 6c e2 80 99 20 | ========..The....slime-mrepl.... |
| 295160 | 70 61 63 6b 61 67 65 20 61 64 64 73 20 73 75 70 70 6f 72 74 20 66 6f 72 20 6d 75 6c 74 69 70 6c | package.adds.support.for.multipl |
| 295180 | 65 20 6c 69 73 74 65 6e 65 72 20 62 75 66 66 65 72 73 2e 0a 54 68 65 20 63 6f 6d 6d 61 6e 64 20 | e.listener.buffers..The.command. |
| 2951a0 | e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 6e 65 77 2d 6d 72 65 70 6c e2 80 99 20 63 72 65 61 74 65 | ...M-x.slime-new-mrepl....create |
| 2951c0 | 73 20 61 20 6e 65 77 20 62 75 66 66 65 72 2e 20 20 49 6e 20 61 0a 6d 75 6c 74 69 2d 74 68 72 65 | s.a.new.buffer...In.a.multi-thre |
| 2951e0 | 61 64 65 64 20 4c 69 73 70 2c 20 65 61 63 68 20 6c 69 73 74 65 6e 65 72 20 69 73 20 61 73 73 6f | aded.Lisp,.each.listener.is.asso |
| 295200 | 63 69 61 74 65 64 20 77 69 74 68 20 61 20 73 65 70 61 72 61 74 65 20 74 68 72 65 61 64 2e 0a 49 | ciated.with.a.separate.thread..I |
| 295220 | 6e 20 61 20 73 69 6e 67 6c 65 2d 74 68 72 65 61 64 65 64 20 4c 69 73 70 20 69 74 e2 80 99 73 20 | n.a.single-threaded.Lisp.it...s. |
| 295240 | 61 6c 73 6f 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 63 72 65 61 74 65 20 6d 75 6c 74 69 70 6c 65 | also.possible.to.create.multiple |
| 295260 | 20 6c 69 73 74 65 6e 65 72 0a 62 75 66 66 65 72 73 20 62 75 74 20 74 68 65 20 63 6f 6d 6d 61 6e | .listener.buffers.but.the.comman |
| 295280 | 64 73 20 61 72 65 20 65 78 65 63 75 74 65 64 20 73 65 71 75 65 6e 74 69 61 6c 6c 79 20 62 79 20 | ds.are.executed.sequentially.by. |
| 2952a0 | 74 68 65 20 73 61 6d 65 20 70 72 6f 63 65 73 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 | the.same.process.....File:.docFD |
| 2952c0 | 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 | Brww.info,..Node:.inferior-slime |
| 2952e0 | 2d 6d 6f 64 65 2c 20 20 4e 65 78 74 3a 20 43 6f 6d 70 6f 75 6e 64 20 43 6f 6d 70 6c 65 74 69 6f | -mode,..Next:.Compound.Completio |
| 295300 | 6e 2c 20 20 50 72 65 76 3a 20 73 6c 69 6d 65 2d 6d 72 65 70 6c 2c 20 20 55 70 3a 20 43 6f 6e 74 | n,..Prev:.slime-mrepl,..Up:.Cont |
| 295320 | 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 34 20 e2 80 98 69 6e 66 65 72 69 6f | ributed.Packages..8.4....inferio |
| 295340 | 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 e2 80 99 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | r-slime-mode....================ |
| 295360 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 e2 80 98 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 | =========..The....inferior-slime |
| 295380 | 2d 6d 6f 64 65 e2 80 99 20 69 73 20 61 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 69 73 20 69 6e 74 65 | -mode....is.a.minor.mode.is.inte |
| 2953a0 | 6e 64 65 64 20 74 6f 20 75 73 65 20 77 69 74 68 20 74 68 65 0a e2 80 98 2a 69 6e 66 65 72 69 6f | nded.to.use.with.the....*inferio |
| 2953c0 | 72 2d 6c 69 73 70 2a e2 80 99 20 6c 69 73 70 20 62 75 66 66 65 72 2e 20 20 49 74 20 70 72 6f 76 | r-lisp*....lisp.buffer...It.prov |
| 2953e0 | 69 64 65 73 20 73 6f 6d 65 20 6f 66 20 74 68 65 20 53 4c 49 4d 45 20 63 6f 6d 6d 61 6e 64 73 2c | ides.some.of.the.SLIME.commands, |
| 295400 | 0a 6c 69 6b 65 20 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 6e 64 20 64 6f 63 75 | .like.symbol.completion.and.docu |
| 295420 | 6d 65 6e 74 61 74 69 6f 6e 20 6c 6f 6f 6b 75 70 2e 20 20 49 74 20 61 6c 73 6f 20 74 72 61 63 6b | mentation.lookup...It.also.track |
| 295440 | 73 20 74 68 65 0a 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 4c | s.the.current.directory.of.the.L |
| 295460 | 69 73 70 20 70 72 6f 63 65 73 73 2e 20 20 54 6f 20 69 6e 73 74 61 6c 6c 20 69 74 2c 20 61 64 64 | isp.process...To.install.it,.add |
| 295480 | 20 73 6f 6d 65 74 68 69 6e 67 0a 6c 69 6b 65 20 74 68 69 73 20 74 6f 20 75 73 65 72 20 e2 80 98 | .something.like.this.to.user.... |
| 2954a0 | 2e 65 6d 61 63 73 e2 80 99 3a 0a 0a 20 20 20 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 73 | .emacs...:.......(add-to-list.'s |
| 2954c0 | 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 20 27 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 29 0a 0a | lime-contribs.'inferior-slime).. |
| 2954e0 | e2 80 98 4d 2d 78 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 e2 80 99 0a 20 20 | ...M-x.inferior-slime-mode...... |
| 295500 | 20 20 20 54 75 72 6e 73 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 20 6f 6e 20 | ...Turns.inferior-slime-mode.on. |
| 295520 | 6f 72 20 6f 66 66 2e 0a 0a 20 20 20 54 68 65 20 76 61 72 69 61 62 6c 65 20 e2 80 98 69 6e 66 65 | or.off......The.variable....infe |
| 295540 | 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2d 6d 61 70 e2 80 99 20 63 6f 6e 74 61 69 6e 73 20 | rior-slime-mode-map....contains. |
| 295560 | 74 68 65 20 65 78 74 72 61 0a 6b 65 79 62 69 6e 64 69 6e 67 73 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 | the.extra.keybindings.....File:. |
| 295580 | 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 43 6f 6d 70 6f 75 6e 64 20 | docFDBrww.info,..Node:.Compound. |
| 2955a0 | 43 6f 6d 70 6c 65 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 | Completion,..Next:.Fuzzy.Complet |
| 2955c0 | 69 6f 6e 2c 20 20 50 72 65 76 3a 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2c | ion,..Prev:.inferior-slime-mode, |
| 2955e0 | 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 35 20 | ..Up:.Contributed.Packages..8.5. |
| 295600 | 43 6f 6d 70 6f 75 6e 64 20 43 6f 6d 70 6c 65 74 69 6f 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | Compound.Completion.============ |
| 295620 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 70 61 63 6b 61 67 65 20 e2 80 98 73 6c 69 6d | ===========..The.package....slim |
| 295640 | 65 2d 63 2d 70 2d 63 e2 80 99 20 70 72 6f 76 69 64 65 73 20 61 20 64 69 66 66 65 72 65 6e 74 20 | e-c-p-c....provides.a.different. |
| 295660 | 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 61 6c 67 6f 72 69 74 68 6d 2c 20 77 68 69 | symbol.completion.algorithm,.whi |
| 295680 | 63 68 20 70 65 72 66 6f 72 6d 73 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 e2 80 9c 69 6e 20 70 61 72 | ch.performs.completion....in.par |
| 2956a0 | 61 6c 6c 65 6c e2 80 9d 20 6f 76 65 72 20 74 68 65 0a 68 79 70 68 65 6e 2d 64 65 6c 69 6d 69 74 | allel....over.the.hyphen-delimit |
| 2956c0 | 65 64 20 73 75 62 2d 77 6f 72 64 73 20 6f 66 20 61 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 2e 20 20 | ed.sub-words.of.a.symbol.name... |
| 2956e0 | 28 31 29 20 20 46 6f 72 6d 61 6c 6c 79 20 74 68 69 73 20 6d 65 61 6e 73 0a 74 68 61 74 20 e2 80 | (1)..Formally.this.means.that... |
| 295700 | 9c e2 80 98 61 2d 62 2d 63 e2 80 99 e2 80 9d 20 63 61 6e 20 63 6f 6d 70 6c 65 74 65 20 74 6f 20 | ....a-b-c.......can.complete.to. |
| 295720 | 61 6e 79 20 73 79 6d 62 6f 6c 20 6d 61 74 63 68 69 6e 67 20 74 68 65 20 72 65 67 75 6c 61 72 0a | any.symbol.matching.the.regular. |
| 295740 | 65 78 70 72 65 73 73 69 6f 6e 20 e2 80 9c e2 80 98 5e 61 2e 2a 2d 62 2e 2a 2d 63 2e 2a e2 80 99 | expression.......^a.*-b.*-c.*... |
| 295760 | e2 80 9d 20 28 77 68 65 72 65 20 e2 80 9c 64 6f 74 e2 80 9d 20 6d 61 74 63 68 65 73 20 61 6e 79 | ....(where....dot....matches.any |
| 295780 | 74 68 69 6e 67 20 62 75 74 20 61 20 68 79 70 68 65 6e 29 2e 0a 45 78 61 6d 70 6c 65 73 20 67 69 | thing.but.a.hyphen)..Examples.gi |
| 2957a0 | 76 65 20 61 20 6d 6f 72 65 20 69 6e 74 75 69 74 69 76 65 20 66 65 65 6c 69 6e 67 3a 0a 20 20 20 | ve.a.more.intuitive.feeling:.... |
| 2957c0 | e2 80 a2 20 e2 80 98 6d 2d 76 2d 62 e2 80 99 20 63 6f 6d 70 6c 65 74 65 73 20 74 6f 20 e2 80 98 | .......m-v-b....completes.to.... |
| 2957e0 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 e2 80 99 2e 0a 20 20 20 e2 80 a2 20 e2 | multiple-value-bind............. |
| 295800 | 80 98 77 2d 6f 70 65 6e e2 80 99 20 69 73 20 61 6d 62 69 67 75 6f 75 73 3a 20 69 74 20 63 6f 6d | ..w-open....is.ambiguous:.it.com |
| 295820 | 70 6c 65 74 65 73 20 74 6f 20 65 69 74 68 65 72 20 e2 80 98 77 69 74 68 2d 6f 70 65 6e 2d 66 69 | pletes.to.either....with-open-fi |
| 295840 | 6c 65 e2 80 99 20 6f 72 0a 20 20 20 20 20 e2 80 98 77 69 74 68 2d 6f 70 65 6e 2d 73 74 72 65 61 | le....or.........with-open-strea |
| 295860 | 6d e2 80 99 2e 20 20 54 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 65 78 70 61 6e 64 65 64 20 74 6f | m......The.symbol.is.expanded.to |
| 295880 | 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 63 6f 6d 6d 6f 6e 0a 20 20 20 20 20 63 6f 6d 70 6c 65 74 | .the.longest.common......complet |
| 2958a0 | 69 6f 6e 20 28 e2 80 98 77 69 74 68 2d 6f 70 65 6e 2d e2 80 99 29 20 61 6e 64 20 74 68 65 20 70 | ion.(...with-open-...).and.the.p |
| 2958c0 | 6f 69 6e 74 20 69 73 20 70 6c 61 63 65 64 20 61 74 20 74 68 65 20 66 69 72 73 74 0a 20 20 20 20 | oint.is.placed.at.the.first..... |
| 2958e0 | 20 70 6f 69 6e 74 20 6f 66 20 61 6d 62 69 67 75 69 74 79 2c 20 77 68 69 63 68 20 69 6e 20 74 68 | .point.of.ambiguity,.which.in.th |
| 295900 | 69 73 20 63 61 73 65 20 69 73 20 74 68 65 20 65 6e 64 2e 0a 20 20 20 e2 80 a2 20 e2 80 98 77 2d | is.case.is.the.end............w- |
| 295920 | 2d 73 74 72 65 61 6d e2 80 99 20 63 6f 6d 70 6c 65 74 65 73 20 74 6f 20 e2 80 98 77 69 74 68 2d | -stream....completes.to....with- |
| 295940 | 6f 70 65 6e 2d 73 74 72 65 61 6d e2 80 99 2e 0a 0a 20 20 20 54 68 65 20 76 61 72 69 61 62 6c 65 | open-stream.........The.variable |
| 295960 | 20 e2 80 98 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 75 6e 61 6d 62 69 67 75 6f 75 73 2d 70 72 65 66 | ....slime-c-p-c-unambiguous-pref |
| 295980 | 69 78 2d 70 e2 80 99 20 73 70 65 63 69 66 69 65 73 20 77 68 65 72 65 20 70 6f 69 6e 74 0a 73 68 | ix-p....specifies.where.point.sh |
| 2959a0 | 6f 75 6c 64 20 62 65 20 70 6c 61 63 65 64 20 61 66 74 65 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e | ould.be.placed.after.completion. |
| 2959c0 | 20 20 45 2e 67 2e 20 20 74 68 65 20 70 6f 73 73 69 62 6c 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 | ..E.g...the.possible.completions |
| 2959e0 | 20 66 6f 72 0a e2 80 98 66 2d 6f e2 80 99 20 61 72 65 20 e2 80 98 66 69 6e 69 73 68 2d 6f 75 74 | .for....f-o....are....finish-out |
| 295a00 | 70 75 74 e2 80 99 20 61 6e 64 20 e2 80 98 66 6f 72 63 65 2d 6f 75 74 70 75 74 e2 80 99 2e 20 20 | put....and....force-output...... |
| 295a20 | 42 79 20 74 68 65 20 64 65 66 61 75 6c 74 20 70 6f 69 6e 74 20 69 73 0a 6d 6f 76 65 64 20 61 66 | By.the.default.point.is.moved.af |
| 295a40 | 74 65 72 20 74 68 65 20 e2 80 98 66 e2 80 99 2c 20 62 65 63 61 75 73 65 20 74 68 61 74 20 69 73 | ter.the....f...,.because.that.is |
| 295a60 | 20 74 68 65 20 75 6e 61 6d 62 69 67 75 6f 75 73 20 70 72 65 66 69 78 2e 20 20 49 66 0a e2 80 98 | .the.unambiguous.prefix...If.... |
| 295a80 | 73 6c 69 6d 65 2d 63 2d 70 2d 63 2d 75 6e 61 6d 62 69 67 75 6f 75 73 2d 70 72 65 66 69 78 2d 70 | slime-c-p-c-unambiguous-prefix-p |
| 295aa0 | e2 80 99 20 69 73 20 6e 69 6c 2c 20 70 6f 69 6e 74 20 6d 6f 76 65 73 20 74 6f 20 74 68 65 20 65 | ....is.nil,.point.moves.to.the.e |
| 295ac0 | 6e 64 20 6f 66 20 74 68 65 0a 69 6e 73 65 72 74 65 64 20 74 65 78 74 2c 20 61 66 74 65 72 20 74 | nd.of.the.inserted.text,.after.t |
| 295ae0 | 68 65 20 e2 80 98 6f e2 80 99 20 69 6e 20 74 68 69 73 20 63 61 73 65 2e 0a 0a 20 20 20 49 6e 20 | he....o....in.this.case......In. |
| 295b00 | 61 64 64 69 74 69 6f 6e 2c 20 e2 80 98 73 6c 69 6d 65 2d 63 2d 70 2d 63 e2 80 99 20 70 72 6f 76 | addition,....slime-c-p-c....prov |
| 295b20 | 69 64 65 73 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 6f 72 20 63 68 61 72 61 63 74 65 72 20 6e 61 | ides.completion.for.character.na |
| 295b40 | 6d 65 73 0a 28 6d 6f 73 74 6c 79 20 75 73 65 66 75 6c 20 66 6f 72 20 55 6e 69 63 6f 64 65 2d 61 | mes.(mostly.useful.for.Unicode-a |
| 295b60 | 77 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 29 3a 0a 0a 20 20 20 20 20 43 4c 2d | ware.implementations):.......CL- |
| 295b80 | 55 53 45 52 3e 20 23 5c 53 70 3c 54 41 42 3e 0a 0a 20 20 20 48 65 72 65 20 53 4c 49 4d 45 20 77 | USER>.#\Sp<TAB>.....Here.SLIME.w |
| 295ba0 | 69 6c 6c 20 75 73 75 61 6c 6c 79 20 63 6f 6d 70 6c 65 74 65 20 74 68 65 20 63 68 61 72 61 63 74 | ill.usually.complete.the.charact |
| 295bc0 | 65 72 20 74 6f 20 e2 80 98 23 5c 53 70 61 63 65 e2 80 99 2c 20 62 75 74 20 69 6e 20 61 0a 55 6e | er.to....#\Space...,.but.in.a.Un |
| 295be0 | 69 63 6f 64 65 2d 61 77 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2c 20 74 68 69 73 | icode-aware.implementation,.this |
| 295c00 | 20 6d 69 67 68 74 20 70 72 6f 76 69 64 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 63 6f 6d | .might.provide.the.following.com |
| 295c20 | 70 6c 65 74 69 6f 6e 73 3a 0a 20 20 20 20 20 53 70 61 63 65 20 20 20 20 20 20 20 20 20 20 20 20 | pletions:......Space............ |
| 295c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 70 61 63 65 0a 20 20 20 20 20 53 70 61 | ..................Space......Spa |
| 295c60 | 72 6b 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rkle............................ |
| 295c80 | 53 70 68 65 72 69 63 61 6c 5f 41 6e 67 6c 65 0a 20 20 20 20 20 53 70 68 65 72 69 63 61 6c 5f 41 | Spherical_Angle......Spherical_A |
| 295ca0 | 6e 67 6c 65 5f 4f 70 65 6e 69 6e 67 5f 4c 65 66 74 20 20 20 20 20 20 20 53 70 68 65 72 69 63 61 | ngle_Opening_Left.......Spherica |
| 295cc0 | 6c 5f 41 6e 67 6c 65 5f 4f 70 65 6e 69 6e 67 5f 55 70 0a 0a 20 20 20 54 68 65 20 70 61 63 6b 61 | l_Angle_Opening_Up.....The.packa |
| 295ce0 | 67 65 20 e2 80 98 73 6c 69 6d 65 2d 63 2d 70 2d 63 e2 80 99 20 61 6c 73 6f 20 70 72 6f 76 69 64 | ge....slime-c-p-c....also.provid |
| 295d00 | 65 73 20 63 6f 6e 74 65 78 74 2d 73 65 6e 73 69 74 69 76 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a | es.context-sensitive.completion. |
| 295d20 | 66 6f 72 20 6b 65 79 77 6f 72 64 73 2e 20 20 45 78 61 6d 70 6c 65 3a 0a 0a 20 20 20 20 20 43 4c | for.keywords...Example:.......CL |
| 295d40 | 2d 55 53 45 52 3e 20 28 66 69 6e 64 20 31 20 27 28 31 20 32 20 33 29 20 3a 73 3c 54 41 42 3e 0a | -USER>.(find.1.'(1.2.3).:s<TAB>. |
| 295d60 | 0a 20 20 20 48 65 72 65 20 53 4c 49 4d 45 20 77 69 6c 6c 20 63 6f 6d 70 6c 65 74 65 20 e2 80 98 | ....Here.SLIME.will.complete.... |
| 295d80 | 3a 73 74 61 72 74 e2 80 99 2c 20 72 61 74 68 65 72 20 74 68 61 6e 20 73 75 67 67 65 73 74 69 6e | :start...,.rather.than.suggestin |
| 295da0 | 67 20 61 6c 6c 0a 65 76 65 72 2d 69 6e 74 65 72 6e 65 64 20 6b 65 79 77 6f 72 64 73 20 73 74 61 | g.all.ever-interned.keywords.sta |
| 295dc0 | 72 74 69 6e 67 20 77 69 74 68 20 e2 80 98 3a 73 e2 80 99 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 73 | rting.with....:s.........C-c.C-s |
| 295de0 | e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 66 6f 72 6d e2 80 | .......M-x.slime-complete-form.. |
| 295e00 | 99 0a 20 20 20 20 20 4c 6f 6f 6b 73 20 75 70 20 61 6e 64 20 69 6e 73 65 72 74 73 20 69 6e 74 6f | .......Looks.up.and.inserts.into |
| 295e20 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 74 68 65 20 61 72 67 75 6d 65 6e 74 | .the.current.buffer.the.argument |
| 295e40 | 20 6c 69 73 74 20 66 6f 72 0a 20 20 20 20 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 74 20 70 | .list.for......the.function.at.p |
| 295e60 | 6f 69 6e 74 2c 20 69 66 20 74 68 65 72 65 20 69 73 20 6f 6e 65 2e 20 20 4d 6f 72 65 20 67 65 6e | oint,.if.there.is.one...More.gen |
| 295e80 | 65 72 61 6c 6c 79 2c 20 74 68 65 0a 20 20 20 20 20 63 6f 6d 6d 61 6e 64 20 63 6f 6d 70 6c 65 74 | erally,.the......command.complet |
| 295ea0 | 65 73 20 61 6e 20 69 6e 63 6f 6d 70 6c 65 74 65 20 66 6f 72 6d 20 77 69 74 68 20 61 20 74 65 6d | es.an.incomplete.form.with.a.tem |
| 295ec0 | 70 6c 61 74 65 20 66 6f 72 20 74 68 65 0a 20 20 20 20 20 6d 69 73 73 69 6e 67 20 61 72 67 75 6d | plate.for.the......missing.argum |
| 295ee0 | 65 6e 74 73 2e 20 20 54 68 65 72 65 20 69 73 20 73 70 65 63 69 61 6c 20 63 6f 64 65 20 66 6f 72 | ents...There.is.special.code.for |
| 295f00 | 20 64 69 73 63 6f 76 65 72 69 6e 67 20 65 78 74 72 61 0a 20 20 20 20 20 6b 65 79 77 6f 72 64 73 | .discovering.extra......keywords |
| 295f20 | 20 6f 66 20 67 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 66 6f 72 20 68 61 | .of.generic.functions.and.for.ha |
| 295f40 | 6e 64 6c 69 6e 67 20 e2 80 98 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 e2 80 99 2c 0a 20 20 20 20 | ndling....make-instance...,..... |
| 295f60 | 20 e2 80 98 64 65 66 6d 65 74 68 6f 64 e2 80 99 2c 20 61 6e 64 20 6d 61 6e 79 20 6f 74 68 65 72 | ....defmethod...,.and.many.other |
| 295f80 | 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 45 78 61 6d 70 6c 65 73 3a 0a 0a 20 20 20 20 20 20 20 20 | .functions...Examples:.......... |
| 295fa0 | 20 20 28 73 75 62 73 65 71 20 22 61 62 63 22 20 3c 43 2d 63 20 43 2d 73 3e 0a 20 20 20 20 20 20 | ..(subseq."abc".<C-c.C-s>....... |
| 295fc0 | 20 20 20 20 20 20 2d 2d 69 6e 73 65 72 74 73 2d 2d 3e 20 73 74 61 72 74 20 5b 65 6e 64 5d 29 0a | ......--inserts-->.start.[end]). |
| 295fe0 | 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 20 31 37 20 3c 43 2d 63 20 43 2d 73 3e 0a 20 20 20 | ..........(find.17.<C-c.C-s>.... |
| 296000 | 20 20 20 20 20 20 20 20 20 2d 2d 69 6e 73 65 72 74 73 2d 2d 3e 20 73 65 71 75 65 6e 63 65 20 3a | .........--inserts-->.sequence.: |
| 296020 | 66 72 6f 6d 2d 65 6e 64 20 66 72 6f 6d 2d 65 6e 64 20 3a 74 65 73 74 20 74 65 73 74 0a 20 20 20 | from-end.from-end.:test.test.... |
| 296040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 2d 6e 6f 74 20 | ......................:test-not. |
| 296060 | 74 65 73 74 2d 6e 6f 74 20 3a 73 74 61 72 74 20 73 74 61 72 74 20 3a 65 6e 64 20 65 6e 64 0a 20 | test-not.:start.start.:end.end.. |
| 296080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 6b 65 79 | ........................:key.key |
| 2960a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 20 31 37 20 27 28 31 37 20 31 38 20 31 39 29 | )...........(find.17.'(17.18.19) |
| 2960c0 | 20 3a 74 65 73 74 20 23 27 3d 20 3c 43 2d 63 20 43 2d 73 3e 0a 20 20 20 20 20 20 20 20 20 20 20 | .:test.#'=.<C-c.C-s>............ |
| 2960e0 | 20 2d 2d 69 6e 73 65 72 74 73 2d 2d 3e 20 3a 66 72 6f 6d 2d 65 6e 64 20 66 72 6f 6d 2d 65 6e 64 | .--inserts-->.:from-end.from-end |
| 296100 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 2d | ..........................:test- |
| 296120 | 6e 6f 74 20 74 65 73 74 2d 6e 6f 74 20 3a 73 74 61 72 74 20 73 74 61 72 74 20 3a 65 6e 64 20 65 | not.test-not.:start.start.:end.e |
| 296140 | 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 | nd..........................:key |
| 296160 | 20 6b 65 79 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 66 63 6c 61 73 73 20 66 6f 6f 20 28 29 | .key)...........(defclass.foo.() |
| 296180 | 20 28 28 62 61 72 20 3a 69 6e 69 74 61 72 67 20 3a 62 61 72 29 29 29 0a 20 20 20 20 20 20 20 20 | .((bar.:initarg.:bar)))......... |
| 2961a0 | 20 20 28 64 65 66 6d 65 74 68 6f 64 20 70 72 69 6e 74 2d 6f 62 6a 65 63 74 20 3c 43 2d 63 20 43 | ..(defmethod.print-object.<C-c.C |
| 2961c0 | 2d 73 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 69 6e 73 65 72 74 73 2d 2d 3e 20 20 20 28 | -s>.............--inserts-->...( |
| 2961e0 | 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | object.stream).................. |
| 296200 | 20 20 20 20 20 20 20 20 62 6f 64 79 2e 2e 2e 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 66 6d | ........body...)...........(defm |
| 296220 | 65 74 68 6f 64 20 69 6e 69 74 69 61 6c 69 7a 65 2d 69 6e 73 74 61 6e 63 65 20 3a 61 66 74 65 72 | ethod.initialize-instance.:after |
| 296240 | 20 28 28 6f 62 6a 65 63 74 20 66 6f 6f 29 20 26 6b 65 79 20 62 6c 75 62 29 29 0a 20 20 20 20 20 | .((object.foo).&key.blub))...... |
| 296260 | 20 20 20 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 66 6f 6f 20 3c 43 2d 63 20 43 2d | .....(make-instance.'foo.<C-c.C- |
| 296280 | 73 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 69 6e 73 65 72 74 73 2d 2d 3e 20 3a 62 61 72 | s>.............--inserts-->.:bar |
| 2962a0 | 20 62 61 72 20 3a 62 6c 75 62 20 62 6c 75 62 20 69 6e 69 74 61 72 67 73 2e 2e 2e 29 0a 0a 20 20 | .bar.:blub.blub.initargs...).... |
| 2962c0 | 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 46 6f 6f 74 6e 6f 74 65 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | .----------.Footnotes.---------- |
| 2962e0 | 0a 0a 20 20 20 28 31 29 20 54 68 69 73 20 73 74 79 6c 65 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6f | .....(1).This.style.of.completio |
| 296300 | 6e 20 69 73 20 6d 6f 64 65 6c 6c 65 64 20 6f 6e 20 e2 80 98 63 6f 6d 70 6c 65 74 65 72 2e 65 6c | n.is.modelled.on....completer.el |
| 296320 | e2 80 99 20 62 79 20 43 68 72 69 73 0a 4d 63 43 6f 6e 6e 65 6c 6c 2e 20 20 54 68 61 74 20 70 61 | ....by.Chris.McConnell...That.pa |
| 296340 | 63 6b 61 67 65 20 69 73 20 62 75 6e 64 6c 65 64 20 77 69 74 68 20 49 4c 49 53 50 2e 0a 0a 1f 0a | ckage.is.bundled.with.ILISP..... |
| 296360 | 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 46 75 7a | File:.docFDBrww.info,..Node:.Fuz |
| 296380 | 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 2c 20 20 4e 65 78 74 3a 20 73 6c 69 6d 65 2d 61 75 74 6f | zy.Completion,..Next:.slime-auto |
| 2963a0 | 64 6f 63 2d 6d 6f 64 65 2c 20 20 50 72 65 76 3a 20 43 6f 6d 70 6f 75 6e 64 20 43 6f 6d 70 6c 65 | doc-mode,..Prev:.Compound.Comple |
| 2963c0 | 74 69 6f 6e 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a | tion,..Up:.Contributed.Packages. |
| 2963e0 | 0a 38 2e 36 20 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | .8.6.Fuzzy.Completion.========== |
| 296400 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 70 61 63 6b 61 67 65 20 e2 80 98 73 6c 69 6d 65 | ==========..The.package....slime |
| 296420 | 2d 66 75 7a 7a 79 e2 80 99 20 69 6d 70 6c 65 6d 65 6e 74 73 20 79 65 74 20 61 6e 6f 74 68 65 72 | -fuzzy....implements.yet.another |
| 296440 | 20 73 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 68 65 75 72 69 73 74 69 63 2e 0a 0a e2 | .symbol.completion.heuristic.... |
| 296460 | 80 98 43 2d 63 20 4d 2d 69 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 2d | ..C-c.M-i.......M-x.slime-fuzzy- |
| 296480 | 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c e2 80 99 0a 20 20 20 20 20 50 72 65 73 65 6e 74 73 | complete-symbol.........Presents |
| 2964a0 | 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 6b 65 6c 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 74 6f | .a.list.of.likely.completions.to |
| 2964c0 | 20 63 68 6f 6f 73 65 20 66 72 6f 6d 20 66 6f 72 20 61 6e 0a 20 20 20 20 20 61 62 62 72 65 76 69 | .choose.from.for.an......abbrevi |
| 2964e0 | 61 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 2e 20 20 49 66 20 79 6f 75 20 73 65 74 20 74 68 65 20 | ation.at.point...If.you.set.the. |
| 296500 | 76 61 72 69 61 62 6c 65 0a 20 20 20 20 20 e2 80 98 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d | variable.........slime-complete- |
| 296520 | 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e e2 80 99 20 74 6f 20 74 68 69 73 20 63 6f 6d 6d 61 | symbol-function....to.this.comma |
| 296540 | 6e 64 2c 20 66 75 7a 7a 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 20 77 69 6c 6c 20 61 | nd,.fuzzy.completion......will.a |
| 296560 | 6c 73 6f 20 62 65 20 75 73 65 64 20 66 6f 72 20 e2 80 98 4d 2d 54 41 42 e2 80 99 2e 0a 0a 38 2e | lso.be.used.for....M-TAB......8. |
| 296580 | 36 2e 31 20 54 68 65 20 41 6c 67 6f 72 69 74 68 6d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | 6.1.The.Algorithm.-------------- |
| 2965a0 | 2d 2d 2d 2d 2d 0a 0a 49 74 20 61 74 74 65 6d 70 74 73 20 74 6f 20 63 6f 6d 70 6c 65 74 65 20 61 | -----..It.attempts.to.complete.a |
| 2965c0 | 20 73 79 6d 62 6f 6c 20 61 6c 6c 20 61 74 20 6f 6e 63 65 2c 20 69 6e 73 74 65 61 64 20 6f 66 20 | .symbol.all.at.once,.instead.of. |
| 2965e0 | 69 6e 20 70 69 65 63 65 73 2e 20 20 46 6f 72 0a 65 78 61 6d 70 6c 65 2c 20 e2 80 9c 6d 76 62 e2 | in.pieces...For.example,....mvb. |
| 296600 | 80 9d 20 77 69 6c 6c 20 66 69 6e 64 20 e2 80 9c e2 80 98 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | ...will.find.......multiple-valu |
| 296620 | 65 2d 62 69 6e 64 e2 80 99 e2 80 9d 20 61 6e 64 20 e2 80 9c 6e 6f 72 6d 2d 64 66 e2 80 9d 20 77 | e-bind.......and....norm-df....w |
| 296640 | 69 6c 6c 20 66 69 6e 64 0a e2 80 9c e2 80 98 6c 65 61 73 74 2d 70 6f 73 69 74 69 76 65 2d 6e 6f | ill.find.......least-positive-no |
| 296660 | 72 6d 61 6c 69 7a 65 64 2d 64 6f 75 62 6c 65 2d 66 6c 6f 61 74 e2 80 99 e2 80 9d 2e 0a 0a 20 20 | rmalized-double-float........... |
| 296680 | 20 54 68 65 20 61 6c 67 6f 72 69 74 68 6d 20 74 72 69 65 73 20 74 6f 20 65 78 70 61 6e 64 20 65 | .The.algorithm.tries.to.expand.e |
| 2966a0 | 76 65 72 79 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 76 61 72 69 6f 75 73 20 77 61 79 73 20 61 | very.character.in.various.ways.a |
| 2966c0 | 6e 64 0a 72 61 74 65 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 70 6f 73 73 69 62 6c 65 20 63 6f | nd.rates.the.list.of.possible.co |
| 2966e0 | 6d 70 6c 65 74 69 6f 6e 73 20 77 69 74 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 68 65 75 | mpletions.with.the.following.heu |
| 296700 | 72 69 73 74 69 63 2e 0a 0a 20 20 20 4c 65 74 74 65 72 73 20 61 72 65 20 67 69 76 65 6e 20 73 63 | ristic......Letters.are.given.sc |
| 296720 | 6f 72 65 73 20 62 61 73 65 64 20 6f 6e 20 74 68 65 69 72 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 | ores.based.on.their.position.in. |
| 296740 | 74 68 65 20 73 74 72 69 6e 67 2e 0a 4c 65 74 74 65 72 73 20 61 74 20 74 68 65 20 62 65 67 69 6e | the.string..Letters.at.the.begin |
| 296760 | 6e 69 6e 67 20 6f 66 20 61 20 73 74 72 69 6e 67 20 6f 72 20 61 66 74 65 72 20 61 20 70 72 65 66 | ning.of.a.string.or.after.a.pref |
| 296780 | 69 78 20 6c 65 74 74 65 72 20 61 74 20 74 68 65 0a 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 20 | ix.letter.at.the.beginning.of.a. |
| 2967a0 | 73 74 72 69 6e 67 20 61 72 65 20 73 63 6f 72 65 64 20 68 69 67 68 65 73 74 2e 20 20 4c 65 74 74 | string.are.scored.highest...Lett |
| 2967c0 | 65 72 73 20 61 66 74 65 72 20 61 20 77 6f 72 64 0a 73 65 70 61 72 61 74 6f 72 20 73 75 63 68 20 | ers.after.a.word.separator.such. |
| 2967e0 | 61 73 20 23 5c 2d 20 61 72 65 20 73 63 6f 72 65 64 20 6e 65 78 74 20 68 69 67 68 65 73 74 2e 20 | as.#\-.are.scored.next.highest.. |
| 296800 | 20 4c 65 74 74 65 72 73 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 61 0a 73 74 72 69 6e 67 20 | .Letters.at.the.end.of.a.string. |
| 296820 | 6f 72 20 62 65 66 6f 72 65 20 61 20 73 75 66 66 69 78 20 6c 65 74 74 65 72 20 61 74 20 74 68 65 | or.before.a.suffix.letter.at.the |
| 296840 | 20 65 6e 64 20 6f 66 20 61 20 73 74 72 69 6e 67 20 61 72 65 20 73 63 6f 72 65 64 0a 6d 65 64 69 | .end.of.a.string.are.scored.medi |
| 296860 | 75 6d 2c 20 61 6e 64 20 6c 65 74 74 65 72 73 20 61 6e 79 77 68 65 72 65 20 65 6c 73 65 20 61 72 | um,.and.letters.anywhere.else.ar |
| 296880 | 65 20 73 63 6f 72 65 64 20 6c 6f 77 2e 0a 0a 20 20 20 49 66 20 61 20 6c 65 74 74 65 72 20 69 73 | e.scored.low......If.a.letter.is |
| 2968a0 | 20 64 69 72 65 63 74 6c 79 20 61 66 74 65 72 20 61 6e 6f 74 68 65 72 20 6d 61 74 63 68 65 64 20 | .directly.after.another.matched. |
| 2968c0 | 6c 65 74 74 65 72 2c 20 61 6e 64 20 69 74 73 0a 69 6e 74 72 69 6e 73 69 63 20 76 61 6c 75 65 20 | letter,.and.its.intrinsic.value. |
| 2968e0 | 69 6e 20 74 68 61 74 20 70 6f 73 69 74 69 6f 6e 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 61 20 | in.that.position.is.less.than.a. |
| 296900 | 70 65 72 63 65 6e 74 61 67 65 20 6f 66 20 74 68 65 0a 70 72 65 76 69 6f 75 73 20 6c 65 74 74 65 | percentage.of.the.previous.lette |
| 296920 | 72 e2 80 99 73 20 76 61 6c 75 65 2c 20 69 74 20 77 69 6c 6c 20 75 73 65 20 74 68 61 74 20 70 65 | r...s.value,.it.will.use.that.pe |
| 296940 | 72 63 65 6e 74 61 67 65 20 69 6e 73 74 65 61 64 2e 0a 0a 20 20 20 46 69 6e 61 6c 6c 79 2c 20 61 | rcentage.instead......Finally,.a |
| 296960 | 20 73 6d 61 6c 6c 20 73 63 61 6c 69 6e 67 20 66 61 63 74 6f 72 20 69 73 20 61 70 70 6c 69 65 64 | .small.scaling.factor.is.applied |
| 296980 | 20 74 6f 20 66 61 76 6f 72 20 73 68 6f 72 74 65 72 20 6d 61 74 63 68 65 73 2c 0a 61 6c 6c 20 6f | .to.favor.shorter.matches,.all.o |
| 2969a0 | 74 68 65 72 20 74 68 69 6e 67 73 20 62 65 69 6e 67 20 65 71 75 61 6c 2e 0a 0a 38 2e 36 2e 32 20 | ther.things.being.equal...8.6.2. |
| 2969c0 | 44 75 70 6c 69 63 61 74 65 20 53 79 6d 62 6f 6c 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | Duplicate.Symbols.-------------- |
| 2969e0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 49 6e 20 63 61 73 65 20 61 20 73 79 6d 62 6f 6c 20 69 73 20 61 | ---------..In.case.a.symbol.is.a |
| 296a00 | 63 63 65 73 73 69 62 6c 65 20 76 69 61 20 73 65 76 65 72 61 6c 20 70 61 63 6b 61 67 65 73 2c 20 | ccessible.via.several.packages,. |
| 296a20 | 64 75 70 6c 69 63 61 74 65 20 73 79 6d 62 6f 6c 0a 66 69 6c 74 65 72 20 73 70 65 63 69 66 69 65 | duplicate.symbol.filter.specifie |
| 296a40 | 64 20 76 69 61 20 e2 80 98 2a 66 75 7a 7a 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c | d.via....*fuzzy-duplicate-symbol |
| 296a60 | 2d 66 69 6c 74 65 72 2a e2 80 99 20 73 77 61 6e 6b 20 76 61 72 69 61 62 6c 65 20 69 73 0a 61 70 | -filter*....swank.variable.is.ap |
| 296a80 | 70 6c 69 65 64 2e 20 20 e2 80 98 3a 6e 65 61 72 65 73 74 2d 70 61 63 6b 61 67 65 e2 80 99 20 76 | plied......:nearest-package....v |
| 296aa0 | 61 6c 75 65 20 73 70 65 63 69 66 69 65 73 20 74 68 61 74 20 6f 6e 6c 79 20 73 79 6d 62 6f 6c 73 | alue.specifies.that.only.symbols |
| 296ac0 | 20 69 6e 20 74 68 65 0a 70 61 63 6b 61 67 65 20 77 69 74 68 20 68 69 67 68 65 73 74 20 73 63 6f | .in.the.package.with.highest.sco |
| 296ae0 | 72 65 20 73 68 6f 75 6c 64 20 62 65 20 6b 65 70 74 2e 20 20 e2 80 98 3a 68 6f 6d 65 2d 70 61 63 | re.should.be.kept......:home-pac |
| 296b00 | 6b 61 67 65 e2 80 99 20 73 70 65 63 69 66 69 65 73 0a 74 68 61 74 20 6f 6e 6c 79 20 74 68 65 20 | kage....specifies.that.only.the. |
| 296b20 | 6d 61 74 63 68 20 74 68 61 74 20 72 65 70 72 65 73 65 6e 74 73 20 74 68 65 20 68 6f 6d 65 20 70 | match.that.represents.the.home.p |
| 296b40 | 61 63 6b 61 67 65 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 0a 75 73 65 64 2c 20 61 6e | ackage.of.the.symbol.is.used,.an |
| 296b60 | 64 20 e2 80 98 3a 61 6c 6c e2 80 99 20 76 61 6c 75 65 20 73 70 65 63 69 66 69 65 73 20 74 68 61 | d....:all....value.specifies.tha |
| 296b80 | 74 20 64 75 70 6c 69 63 61 74 65 20 73 79 6d 62 6f 6c 20 66 69 6c 74 65 72 20 6d 6f 64 65 0a 73 | t.duplicate.symbol.filter.mode.s |
| 296ba0 | 68 6f 75 6c 64 20 62 65 20 74 75 72 6e 65 64 20 6f 66 66 2e 0a 0a 20 20 20 54 6f 20 73 70 65 63 | hould.be.turned.off......To.spec |
| 296bc0 | 69 66 79 20 61 20 63 75 73 74 6f 6d 20 66 69 6c 74 65 72 2c 20 73 65 74 20 e2 80 98 2a 66 75 7a | ify.a.custom.filter,.set....*fuz |
| 296be0 | 7a 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c 74 65 72 2a e2 80 99 20 74 | zy-duplicate-symbol-filter*....t |
| 296c00 | 6f 0a 61 20 66 75 6e 63 74 69 6f 6e 20 61 63 63 65 70 74 69 6e 67 20 74 68 72 65 65 20 61 72 67 | o.a.function.accepting.three.arg |
| 296c20 | 75 6d 65 6e 74 73 3a 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 70 61 63 6b 61 67 65 20 62 65 69 6e | uments:.the.name.of.package.bein |
| 296c40 | 67 0a 65 78 61 6d 69 6e 65 64 2c 20 74 68 65 20 6c 69 73 74 20 6f 66 20 6e 61 6d 65 73 20 6f 66 | g.examined,.the.list.of.names.of |
| 296c60 | 20 61 6c 6c 20 70 61 63 6b 61 67 65 73 20 62 65 69 6e 67 20 65 78 61 6d 69 6e 65 64 20 77 69 74 | .all.packages.being.examined.wit |
| 296c80 | 68 20 70 61 63 6b 61 67 65 73 0a 77 69 74 68 20 68 69 67 68 65 73 74 20 6d 61 74 63 68 69 6e 67 | h.packages.with.highest.matching |
| 296ca0 | 20 73 63 6f 72 65 20 6c 69 73 74 65 64 20 66 69 72 73 74 20 61 6e 64 20 61 6e 20 e2 80 98 65 71 | .score.listed.first.and.an....eq |
| 296cc0 | 75 61 6c e2 80 99 20 68 61 73 68 2d 74 61 62 6c 65 20 74 68 61 74 0a 69 73 20 73 68 61 72 65 64 | ual....hash-table.that.is.shared |
| 296ce0 | 20 62 65 74 77 65 65 6e 20 63 61 6c 6c 73 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 | .between.calls.to.the.function.a |
| 296d00 | 6e 64 20 63 61 6e 20 62 65 20 75 73 65 64 20 66 6f 72 0a 64 65 64 75 70 6c 69 63 61 74 69 6f 6e | nd.can.be.used.for.deduplication |
| 296d20 | 20 70 75 72 70 6f 73 65 73 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 20 | .purposes...The.function.should. |
| 296d40 | 72 65 74 75 72 6e 20 61 20 64 65 64 75 70 6c 69 63 61 74 69 6f 6e 0a 66 69 6c 74 65 72 20 66 75 | return.a.deduplication.filter.fu |
| 296d60 | 6e 63 74 69 6f 6e 20 77 68 69 63 68 20 61 63 63 65 70 74 73 20 61 20 73 79 6d 62 6f 6c 20 61 6e | nction.which.accepts.a.symbol.an |
| 296d80 | 64 20 72 65 74 75 72 6e 73 20 74 72 75 65 20 69 66 20 74 68 65 20 73 79 6d 62 6f 6c 0a 73 68 6f | d.returns.true.if.the.symbol.sho |
| 296da0 | 75 6c 64 20 62 65 20 6b 65 70 74 2e 0a 0a 20 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 | uld.be.kept......For.example,.th |
| 296dc0 | 65 20 65 66 66 65 63 74 20 6f 66 20 e2 80 98 3a 6e 65 61 72 65 73 74 2d 70 61 63 6b 61 67 65 e2 | e.effect.of....:nearest-package. |
| 296de0 | 80 99 20 63 61 6e 20 62 65 20 61 6c 73 6f 20 61 63 68 69 65 76 65 64 20 62 79 0a 73 70 65 63 69 | ...can.be.also.achieved.by.speci |
| 296e00 | 66 79 69 6e 67 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 75 73 74 6f 6d 20 66 69 6c 74 65 | fying.the.following.custom.filte |
| 296e20 | 72 20 69 6e 20 e2 80 98 7e 2f 2e 73 77 61 6e 6b 2e 6c 69 73 70 e2 80 99 3a 0a 20 20 20 20 20 28 | r.in....~/.swank.lisp...:......( |
| 296e40 | 73 65 74 66 20 2a 66 75 7a 7a 79 2d 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c | setf.*fuzzy-duplicate-symbol-fil |
| 296e60 | 74 65 72 2a 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 75 72 2d 70 61 63 | ter*............(lambda.(cur-pac |
| 296e80 | 6b 61 67 65 20 61 6c 6c 2d 70 61 63 6b 61 67 65 73 20 64 65 64 75 70 2d 74 61 62 6c 65 29 0a 20 | kage.all-packages.dedup-table).. |
| 296ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 75 72 | ............(declare.(ignore.cur |
| 296ec0 | 2d 70 61 63 6b 61 67 65 20 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 29 0a 20 20 20 20 20 20 20 20 | -package.all-packages))......... |
| 296ee0 | 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | .....(lambda.(symbol)........... |
| 296f00 | 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 67 65 74 68 61 73 68 20 28 73 79 6d 62 6f 6c 2d 6e | ......(unless.(gethash.(symbol-n |
| 296f20 | 61 6d 65 20 73 79 6d 62 6f 6c 29 20 64 65 64 75 70 2d 74 61 62 6c 65 29 0a 20 20 20 20 20 20 20 | ame.symbol).dedup-table)........ |
| 296f40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 28 73 79 6d 62 | ............(setf.(gethash.(symb |
| 296f60 | 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 20 64 65 64 75 70 2d 74 61 62 6c 65 29 20 74 29 29 | ol-name.symbol).dedup-table).t)) |
| 296f80 | 29 29 29 0a 20 20 20 41 6e 64 20 69 6e 73 74 65 61 64 20 6f 66 20 e2 80 98 3a 68 6f 6d 65 2d 70 | )))....And.instead.of....:home-p |
| 296fa0 | 61 63 6b 61 67 65 e2 80 99 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 61 6e 20 62 65 20 | ackage...,.the.following.can.be. |
| 296fc0 | 75 73 65 64 3a 0a 20 20 20 20 20 28 73 65 74 66 20 2a 66 75 7a 7a 79 2d 64 75 70 6c 69 63 61 74 | used:......(setf.*fuzzy-duplicat |
| 296fe0 | 65 2d 73 79 6d 62 6f 6c 2d 66 69 6c 74 65 72 2a 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d | e-symbol-filter*............(lam |
| 297000 | 62 64 61 20 28 63 75 72 2d 70 61 63 6b 61 67 65 20 61 6c 6c 2d 70 61 63 6b 61 67 65 73 20 64 65 | bda.(cur-package.all-packages.de |
| 297020 | 64 75 70 2d 74 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 | dup-table)..............(declare |
| 297040 | 20 28 69 67 6e 6f 72 65 20 64 65 64 75 70 2d 74 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 | .(ignore.dedup-table)).......... |
| 297060 | 20 20 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 73 20 28 6d 61 70 63 61 72 20 23 27 66 69 | ....(let.((packages.(mapcar.#'fi |
| 297080 | 6e 64 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd-package...................... |
| 2970a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 63 75 72 2d 70 61 63 6b | ................(remove.cur-pack |
| 2970c0 | 61 67 65 20 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | age.all-packages))))............ |
| 2970e0 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ....(lambda.(symbol)............ |
| 297100 | 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 | ......(not.(member.(symbol-packa |
| 297120 | 67 65 20 73 79 6d 62 6f 6c 29 20 70 61 63 6b 61 67 65 73 29 29 29 29 29 29 0a 0a 1f 0a 46 69 6c | ge.symbol).packages))))))....Fil |
| 297140 | 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 73 6c 69 6d 65 2d | e:.docFDBrww.info,..Node:.slime- |
| 297160 | 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2c 20 20 4e 65 78 74 3a 20 41 53 44 46 2c 20 20 50 72 65 76 | autodoc-mode,..Next:.ASDF,..Prev |
| 297180 | 3a 20 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 | :.Fuzzy.Completion,..Up:.Contrib |
| 2971a0 | 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 37 20 e2 80 98 73 6c 69 6d 65 2d 61 75 74 6f | uted.Packages..8.7....slime-auto |
| 2971c0 | 64 6f 63 2d 6d 6f 64 65 e2 80 99 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | doc-mode....==================== |
| 2971e0 | 3d 3d 3d 3d 0a 0a 41 75 74 6f 64 6f 63 20 6d 6f 64 65 20 69 73 20 61 6e 20 61 64 64 69 74 69 6f | ====..Autodoc.mode.is.an.additio |
| 297200 | 6e 61 6c 20 6d 69 6e 6f 72 2d 6d 6f 64 65 20 66 6f 72 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 | nal.minor-mode.for.automatically |
| 297220 | 20 73 68 6f 77 69 6e 67 0a 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 73 79 6d 62 6f | .showing.information.about.symbo |
| 297240 | 6c 73 20 6e 65 61 72 20 74 68 65 20 70 6f 69 6e 74 2e 20 20 46 6f 72 20 66 75 6e 63 74 69 6f 6e | ls.near.the.point...For.function |
| 297260 | 20 6e 61 6d 65 73 20 74 68 65 0a 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 69 73 20 64 69 73 70 | .names.the.argument.list.is.disp |
| 297280 | 6c 61 79 65 64 2c 20 61 6e 64 20 66 6f 72 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 2c | layed,.and.for.global.variables, |
| 2972a0 | 20 74 68 65 20 76 61 6c 75 65 2e 0a 41 75 74 6f 64 6f 63 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 | .the.value..Autodoc.is.implement |
| 2972c0 | 65 64 20 62 79 20 6d 65 61 6e 73 20 6f 66 20 e2 80 98 65 6c 64 6f 63 2d 6d 6f 64 65 e2 80 99 20 | ed.by.means.of....eldoc-mode.... |
| 2972e0 | 6f 66 20 45 6d 61 63 73 2e 0a 0a 20 20 20 54 68 65 20 6d 6f 64 65 20 63 61 6e 20 62 65 20 65 6e | of.Emacs......The.mode.can.be.en |
| 297300 | 61 62 6c 65 64 20 62 79 20 64 65 66 61 75 6c 74 20 69 6e 20 79 6f 75 72 20 e2 80 98 7e 2f 2e 65 | abled.by.default.in.your....~/.e |
| 297320 | 6d 61 63 73 e2 80 99 3a 0a 20 20 20 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 73 6c 69 6d | macs...:......(add-to-list.'slim |
| 297340 | 65 2d 63 6f 6e 74 72 69 62 73 20 27 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 29 0a 0a e2 80 98 4d | e-contribs.'slime-autodoc).....M |
| 297360 | 2d 78 20 73 6c 69 6d 65 2d 61 72 67 6c 69 73 74 20 4e 41 4d 45 e2 80 99 0a 20 20 20 20 20 53 68 | -x.slime-arglist.NAME.........Sh |
| 297380 | 6f 77 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 75 6e 63 | ow.the.argument.list.of.the.func |
| 2973a0 | 74 69 6f 6e 20 4e 41 4d 45 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 | tion.NAME......M-x.slime-autodoc |
| 2973c0 | 2d 6d 6f 64 65 e2 80 99 0a 20 20 20 20 20 54 6f 67 67 6c 65 73 20 61 75 74 6f 64 6f 63 2d 6d 6f | -mode.........Toggles.autodoc-mo |
| 2973e0 | 64 65 20 6f 6e 20 6f 72 20 6f 66 66 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 61 72 | de.on.or.off.according.to.the.ar |
| 297400 | 67 75 6d 65 6e 74 2c 20 61 6e 64 0a 20 20 20 20 20 74 6f 67 67 6c 65 73 20 74 68 65 20 6d 6f 64 | gument,.and......toggles.the.mod |
| 297420 | 65 20 77 68 65 6e 20 69 6e 76 6f 6b 65 64 20 77 69 74 68 6f 75 74 20 61 72 67 75 6d 65 6e 74 2e | e.when.invoked.without.argument. |
| 297440 | 0a e2 80 98 43 2d 63 20 43 2d 64 20 61 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 61 75 | ....C-c.C-d.a.......M-x.slime-au |
| 297460 | 74 6f 64 6f 63 2d 6d 61 6e 75 61 6c 6c 79 e2 80 99 0a 20 20 20 20 20 4c 69 6b 65 20 73 6c 69 6d | todoc-manually.........Like.slim |
| 297480 | 65 2d 61 75 74 6f 64 6f 63 2c 20 62 75 74 20 77 68 65 6e 20 63 61 6c 6c 65 64 20 74 77 69 63 65 | e-autodoc,.but.when.called.twice |
| 2974a0 | 2c 20 6f 72 20 61 66 74 65 72 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 0a 20 20 20 20 20 77 61 | ,.or.after.slime-autodoc......wa |
| 2974c0 | 73 20 61 6c 72 65 61 64 79 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 61 6c 6c 65 64 2c 20 | s.already.automatically.called,. |
| 2974e0 | 64 69 73 70 6c 61 79 20 6d 75 6c 74 69 6c 69 6e 65 20 61 72 67 6c 69 73 74 2e 0a 0a 20 20 20 49 | display.multiline.arglist......I |
| 297500 | 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 e2 80 98 73 6c 69 6d 65 2d 75 73 65 2d 61 75 74 6f | f.the.variable....slime-use-auto |
| 297520 | 64 6f 63 2d 6d 6f 64 65 e2 80 99 20 69 73 20 73 65 74 20 28 64 65 66 61 75 6c 74 29 2c 20 45 6d | doc-mode....is.set.(default),.Em |
| 297540 | 61 63 73 0a 73 74 61 72 74 73 20 61 20 74 69 6d 65 72 2c 20 6f 74 68 65 72 77 69 73 65 20 74 68 | acs.starts.a.timer,.otherwise.th |
| 297560 | 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 6f 6e 6c 79 20 64 69 73 70 6c 61 79 65 64 20 | e.information.is.only.displayed. |
| 297580 | 61 66 74 65 72 0a 70 72 65 73 73 69 6e 67 20 53 50 43 2e 0a 0a 20 20 20 49 66 20 e2 80 98 73 6c | after.pressing.SPC......If....sl |
| 2975a0 | 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 75 73 65 2d 6d 75 6c 74 69 6c 69 6e 65 2d 70 e2 80 99 20 69 | ime-autodoc-use-multiline-p....i |
| 2975c0 | 73 20 73 65 74 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 6c 6c 6f 77 20 6c 6f 6e 67 0a 61 75 74 | s.set.to.non-nil,.allow.long.aut |
| 2975e0 | 6f 64 6f 63 20 6d 65 73 73 61 67 65 73 20 74 6f 20 72 65 73 69 7a 65 20 65 63 68 6f 20 61 72 65 | odoc.messages.to.resize.echo.are |
| 297600 | 61 20 64 69 73 70 6c 61 79 2e 0a 0a 20 20 20 e2 80 98 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d | a.display.........slime-autodoc- |
| 297620 | 6d 6f 64 65 2d 73 74 72 69 6e 67 e2 80 99 20 69 73 20 61 20 73 74 72 69 6e 67 20 74 68 61 74 20 | mode-string....is.a.string.that. |
| 297640 | 77 69 6c 6c 20 62 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 74 68 65 0a 6d 6f 64 65 20 6c 69 | will.be.displayed.in.the.mode.li |
| 297660 | 6e 65 20 77 68 65 6e 20 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 20 69 73 20 65 6e 61 62 6c 65 64 2c | ne.when.autodoc-mode.is.enabled, |
| 297680 | 20 6f 72 20 6e 69 6c 2c 20 69 66 20 79 6f 75 20 70 72 65 66 65 72 20 6e 6f 0a 69 6e 64 69 63 61 | .or.nil,.if.you.prefer.no.indica |
| 2976a0 | 74 69 6f 6e 2e 20 20 59 6f 75 20 63 61 6e 20 63 75 73 74 6f 6d 69 7a 65 20 74 68 69 73 20 76 61 | tion...You.can.customize.this.va |
| 2976c0 | 72 69 61 62 6c 65 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c | riable.....File:.docFDBrww.info, |
| 2976e0 | 20 20 4e 6f 64 65 3a 20 41 53 44 46 2c 20 20 4e 65 78 74 3a 20 42 61 6e 6e 65 72 2c 20 20 50 72 | ..Node:.ASDF,..Next:.Banner,..Pr |
| 297700 | 65 76 3a 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2c 20 20 55 70 3a 20 43 6f 6e | ev:.slime-autodoc-mode,..Up:.Con |
| 297720 | 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 38 20 41 53 44 46 0a 3d 3d 3d 3d | tributed.Packages..8.8.ASDF.==== |
| 297740 | 3d 3d 3d 3d 0a 0a 41 53 44 46 20 69 73 20 61 20 70 6f 70 75 6c 61 72 20 e2 80 9c 73 79 73 74 65 | ====..ASDF.is.a.popular....syste |
| 297760 | 6d 20 63 6f 6e 73 74 72 75 63 74 69 6f 6e 20 74 6f 6f 6c e2 80 9d 2e 20 20 54 68 65 20 70 61 63 | m.construction.tool......The.pac |
| 297780 | 6b 61 67 65 20 e2 80 98 73 6c 69 6d 65 2d 61 73 64 66 e2 80 99 0a 70 72 6f 76 69 64 65 73 20 73 | kage....slime-asdf....provides.s |
| 2977a0 | 6f 6d 65 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 6c 6f 61 64 20 61 6e 64 20 63 6f 6d 70 69 6c 65 | ome.commands.to.load.and.compile |
| 2977c0 | 20 73 75 63 68 20 73 79 73 74 65 6d 73 20 66 72 6f 6d 20 45 6d 61 63 73 2e 0a 41 53 44 46 20 69 | .such.systems.from.Emacs..ASDF.i |
| 2977e0 | 74 73 65 6c 66 20 69 73 20 6e 6f 74 20 69 6e 63 6c 75 64 65 64 20 77 69 74 68 20 53 4c 49 4d 45 | tself.is.not.included.with.SLIME |
| 297800 | 3b 20 79 6f 75 20 68 61 76 65 20 74 6f 20 6c 6f 61 64 20 74 68 61 74 20 79 6f 75 72 73 65 6c 66 | ;.you.have.to.load.that.yourself |
| 297820 | 0a 69 6e 74 6f 20 79 6f 75 72 20 4c 69 73 70 2e 20 20 49 6e 20 70 61 72 74 69 63 75 6c 61 72 2c | .into.your.Lisp...In.particular, |
| 297840 | 20 79 6f 75 20 6d 75 73 74 20 6c 6f 61 64 20 41 53 44 46 20 62 65 66 6f 72 65 20 79 6f 75 20 63 | .you.must.load.ASDF.before.you.c |
| 297860 | 6f 6e 6e 65 63 74 2c 0a 6f 74 68 65 72 77 69 73 65 20 79 6f 75 20 77 69 6c 6c 20 67 65 74 20 65 | onnect,.otherwise.you.will.get.e |
| 297880 | 72 72 6f 72 73 20 61 62 6f 75 74 20 6d 69 73 73 69 6e 67 20 73 79 6d 62 6f 6c 73 2e 0a 0a e2 80 | rrors.about.missing.symbols..... |
| 2978a0 | 98 4d 2d 78 20 73 6c 69 6d 65 2d 6c 6f 61 64 2d 73 79 73 74 65 6d 20 4e 41 4d 45 e2 80 99 0a 20 | .M-x.slime-load-system.NAME..... |
| 2978c0 | 20 20 20 20 43 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 61 6e 20 41 53 44 46 20 73 79 73 | ....Compile.and.load.an.ASDF.sys |
| 2978e0 | 74 65 6d 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 73 79 73 74 65 6d 20 6e 61 6d 65 20 69 73 | tem...The.default.system.name.is |
| 297900 | 20 74 61 6b 65 6e 0a 20 20 20 20 20 66 72 6f 6d 20 74 68 65 20 66 69 72 73 74 20 66 69 6c 65 20 | .taken......from.the.first.file. |
| 297920 | 6d 61 74 63 68 69 6e 67 20 2a 2e 61 73 64 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 | matching.*.asd.in.the.current.di |
| 297940 | 72 65 63 74 6f 72 79 2e 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 6c 6f 61 64 2d 73 79 73 | rectory.....M-x.slime-reload-sys |
| 297960 | 74 65 6d 20 4e 41 4d 45 e2 80 99 0a 20 20 20 20 20 52 65 63 6f 6d 70 69 6c 65 20 61 6e 64 20 6c | tem.NAME.........Recompile.and.l |
| 297980 | 6f 61 64 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 20 77 69 74 68 6f 75 74 20 72 65 63 6f 6d | oad.an.ASDF.system.without.recom |
| 2979a0 | 70 69 6c 69 6e 67 20 69 74 73 0a 20 20 20 20 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 0a e2 80 | piling.its......dependencies.... |
| 2979c0 | 98 4d 2d 78 20 73 6c 69 6d 65 2d 6f 70 65 6e 2d 73 79 73 74 65 6d 20 4e 41 4d 45 20 26 6f 70 74 | .M-x.slime-open-system.NAME.&opt |
| 2979e0 | 69 6f 6e 61 6c 20 4c 4f 41 44 e2 80 99 0a 20 20 20 20 20 4f 70 65 6e 20 61 6c 6c 20 66 69 6c 65 | ional.LOAD.........Open.all.file |
| 297a00 | 73 20 69 6e 20 61 20 73 79 73 74 65 6d 2c 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 6c 6f 61 64 20 69 | s.in.a.system,.optionally.load.i |
| 297a20 | 74 20 69 66 20 4c 4f 41 44 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a e2 80 98 4d 2d 78 20 73 6c 69 | t.if.LOAD.is.non-nil.....M-x.sli |
| 297a40 | 6d 65 2d 62 72 6f 77 73 65 2d 73 79 73 74 65 6d 20 4e 41 4d 45 e2 80 99 0a 20 20 20 20 20 42 72 | me-browse-system.NAME.........Br |
| 297a60 | 6f 77 73 65 20 66 69 6c 65 73 20 69 6e 20 61 20 73 79 73 74 65 6d 20 75 73 69 6e 67 20 44 69 72 | owse.files.in.a.system.using.Dir |
| 297a80 | 65 64 2e 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 64 65 6c 65 74 65 2d 73 79 73 74 65 6d 2d 66 | ed.....M-x.slime-delete-system-f |
| 297aa0 | 61 73 6c 73 20 4e 41 4d 45 e2 80 99 0a 20 20 20 20 20 44 65 6c 65 74 65 20 46 41 53 4c 73 20 70 | asls.NAME.........Delete.FASLs.p |
| 297ac0 | 72 6f 64 75 63 65 64 20 62 79 20 63 6f 6d 70 69 6c 69 6e 67 20 61 20 73 79 73 74 65 6d 2e 0a e2 | roduced.by.compiling.a.system... |
| 297ae0 | 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 72 67 72 65 70 2d 73 79 73 74 65 6d 20 4e 41 4d 45 20 52 45 | ..M-x.slime-rgrep-system.NAME.RE |
| 297b00 | 47 45 58 50 e2 80 99 0a 20 20 20 20 20 52 75 6e 20 e2 80 98 72 67 72 65 70 e2 80 99 20 6f 6e 20 | GEXP.........Run....rgrep....on. |
| 297b20 | 74 68 65 20 62 61 73 65 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 61 6e 20 41 53 44 46 20 73 79 | the.base.directory.of.an.ASDF.sy |
| 297b40 | 73 74 65 6d 2e 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 73 65 61 72 63 68 2d 73 79 73 74 65 | stem.....M-x.slime-isearch-syste |
| 297b60 | 6d 20 4e 41 4d 45 e2 80 99 0a 20 20 20 20 20 52 75 6e 20 e2 80 98 69 73 65 61 72 63 68 2d 66 6f | m.NAME.........Run....isearch-fo |
| 297b80 | 72 77 61 72 64 e2 80 99 20 6f 6e 20 74 68 65 20 66 69 6c 65 73 20 6f 66 20 61 6e 20 41 53 44 46 | rward....on.the.files.of.an.ASDF |
| 297ba0 | 20 73 79 73 74 65 6d 2e 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 71 75 65 72 79 2d 72 65 70 6c | .system.....M-x.slime-query-repl |
| 297bc0 | 61 63 65 2d 73 79 73 74 65 6d 20 4e 41 4d 45 20 46 52 4f 4d 20 54 4f 20 26 4f 50 54 49 4f 4e 41 | ace-system.NAME.FROM.TO.&OPTIONA |
| 297be0 | 4c 20 44 45 4c 49 4d 49 54 45 44 e2 80 99 0a 20 20 20 20 20 52 75 6e 20 e2 80 98 71 75 65 72 79 | L.DELIMITED.........Run....query |
| 297c00 | 2d 72 65 70 6c 61 63 65 e2 80 99 20 6f 6e 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e 0a 20 | -replace....on.an.ASDF.system... |
| 297c20 | 20 20 54 68 65 20 70 61 63 6b 61 67 65 20 61 6c 73 6f 20 69 6e 73 74 61 6c 6c 73 20 73 6f 6d 65 | ..The.package.also.installs.some |
| 297c40 | 20 6e 65 77 20 52 45 50 4c 20 73 68 6f 72 74 63 75 74 73 20 28 2a 6e 6f 74 65 0a 53 68 6f 72 74 | .new.REPL.shortcuts.(*note.Short |
| 297c60 | 63 75 74 73 3a 3a 29 3a 0a 0a e2 80 98 6c 6f 61 64 2d 73 79 73 74 65 6d e2 80 99 0a 20 20 20 20 | cuts::):.....load-system........ |
| 297c80 | 20 43 6f 6d 70 69 6c 65 20 28 61 73 20 6e 65 65 64 65 64 29 20 61 6e 64 20 6c 6f 61 64 20 61 6e | .Compile.(as.needed).and.load.an |
| 297ca0 | 20 41 53 44 46 20 73 79 73 74 65 6d 2e 0a e2 80 98 72 65 6c 6f 61 64 2d 73 79 73 74 65 6d e2 80 | .ASDF.system.....reload-system.. |
| 297cc0 | 99 0a 20 20 20 20 20 52 65 63 6f 6d 70 69 6c 65 20 61 6e 64 20 6c 6f 61 64 20 61 6e 20 41 53 44 | .......Recompile.and.load.an.ASD |
| 297ce0 | 46 20 73 79 73 74 65 6d 2e 0a e2 80 98 63 6f 6d 70 69 6c 65 2d 73 79 73 74 65 6d e2 80 99 0a 20 | F.system.....compile-system..... |
| 297d00 | 20 20 20 20 43 6f 6d 70 69 6c 65 20 28 62 75 74 20 6e 6f 74 20 6c 6f 61 64 29 20 61 6e 20 41 53 | ....Compile.(but.not.load).an.AS |
| 297d20 | 44 46 20 73 79 73 74 65 6d 2e 0a e2 80 98 66 6f 72 63 65 2d 63 6f 6d 70 69 6c 65 2d 73 79 73 74 | DF.system.....force-compile-syst |
| 297d40 | 65 6d e2 80 99 0a 20 20 20 20 20 52 65 63 6f 6d 70 69 6c 65 20 28 62 75 74 20 6e 6f 74 20 6c 6f | em.........Recompile.(but.not.lo |
| 297d60 | 61 64 29 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e 0a e2 80 98 66 6f 72 63 65 2d 6c 6f 61 | ad).an.ASDF.system.....force-loa |
| 297d80 | 64 2d 73 79 73 74 65 6d e2 80 99 0a 20 20 20 20 20 52 65 63 6f 6d 70 69 6c 65 20 61 6e 64 20 6c | d-system.........Recompile.and.l |
| 297da0 | 6f 61 64 20 61 6e 20 41 53 44 46 20 73 79 73 74 65 6d 2e 0a e2 80 98 6f 70 65 6e 2d 73 79 73 74 | oad.an.ASDF.system.....open-syst |
| 297dc0 | 65 6d e2 80 99 0a 20 20 20 20 20 4f 70 65 6e 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20 61 20 73 | em.........Open.all.files.in.a.s |
| 297de0 | 79 73 74 65 6d 2e 0a e2 80 98 62 72 6f 77 73 65 2d 73 79 73 74 65 6d e2 80 99 0a 20 20 20 20 20 | ystem.....browse-system......... |
| 297e00 | 42 72 6f 77 73 65 20 66 69 6c 65 73 20 69 6e 20 61 20 73 79 73 74 65 6d 20 75 73 69 6e 67 20 44 | Browse.files.in.a.system.using.D |
| 297e20 | 69 72 65 64 2e 0a e2 80 98 64 65 6c 65 74 65 2d 73 79 73 74 65 6d 2d 66 61 73 6c 73 e2 80 99 0a | ired.....delete-system-fasls.... |
| 297e40 | 20 20 20 20 20 44 65 6c 65 74 65 20 46 41 53 4c 73 20 70 72 6f 64 75 63 65 64 20 62 79 20 63 6f | .....Delete.FASLs.produced.by.co |
| 297e60 | 6d 70 69 6c 69 6e 67 20 61 20 73 79 73 74 65 6d 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 | mpiling.a.system.....File:.docFD |
| 297e80 | 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 42 61 6e 6e 65 72 2c 20 20 4e 65 78 74 3a | Brww.info,..Node:.Banner,..Next: |
| 297ea0 | 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 2c 20 20 50 72 65 76 3a 20 41 53 44 46 2c 20 | .Editing.Commands,..Prev:.ASDF,. |
| 297ec0 | 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 39 20 42 | .Up:.Contributed.Packages..8.9.B |
| 297ee0 | 61 6e 6e 65 72 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 70 61 63 6b 61 67 65 20 e2 80 | anner.==========..The.package... |
| 297f00 | 98 73 6c 69 6d 65 2d 62 61 6e 6e 65 72 e2 80 99 20 69 6e 73 74 61 6c 6c 73 20 61 20 77 69 6e 64 | .slime-banner....installs.a.wind |
| 297f20 | 6f 77 20 68 65 61 64 65 72 20 6c 69 6e 65 20 28 20 2a 6e 6f 74 65 0a 28 65 6c 69 73 70 29 48 65 | ow.header.line.(.*note.(elisp)He |
| 297f40 | 61 64 65 72 20 4c 69 6e 65 73 3a 3a 2e 29 20 20 69 6e 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 | ader.Lines::.)..in.the.REPL.buff |
| 297f60 | 65 72 2e 20 20 49 74 20 61 6c 73 6f 20 72 75 6e 73 20 61 6e 20 61 6e 69 6d 61 74 69 6f 6e 0a 61 | er...It.also.runs.an.animation.a |
| 297f80 | 74 20 73 74 61 72 74 75 70 2e 0a 0a 20 20 20 42 79 20 73 65 74 74 69 6e 67 20 74 68 65 20 76 61 | t.startup......By.setting.the.va |
| 297fa0 | 72 69 61 62 6c 65 20 e2 80 98 73 6c 69 6d 65 2d 73 74 61 72 74 75 70 2d 61 6e 69 6d 61 74 69 6f | riable....slime-startup-animatio |
| 297fc0 | 6e e2 80 99 20 74 6f 20 6e 69 6c 20 79 6f 75 20 63 61 6e 0a 64 69 73 61 62 6c 65 20 74 68 65 20 | n....to.nil.you.can.disable.the. |
| 297fe0 | 61 6e 69 6d 61 74 69 6f 6e 20 72 65 73 70 65 63 74 69 76 65 6c 79 20 77 69 74 68 20 74 68 65 20 | animation.respectively.with.the. |
| 298000 | 76 61 72 69 61 62 6c 65 0a e2 80 98 73 6c 69 6d 65 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 70 e2 | variable....slime-header-line-p. |
| 298020 | 80 99 20 74 68 65 20 68 65 61 64 65 72 20 6c 69 6e 65 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 | ...the.header.line.....File:.doc |
| 298040 | 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d | FDBrww.info,..Node:.Editing.Comm |
| 298060 | 61 6e 64 73 2c 20 20 4e 65 78 74 3a 20 46 61 6e 63 79 20 49 6e 73 70 65 63 74 6f 72 2c 20 20 50 | ands,..Next:.Fancy.Inspector,..P |
| 298080 | 72 65 76 3a 20 42 61 6e 6e 65 72 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 | rev:.Banner,..Up:.Contributed.Pa |
| 2980a0 | 63 6b 61 67 65 73 0a 0a 38 2e 31 30 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 0a 3d 3d | ckages..8.10.Editing.Commands.== |
| 2980c0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 70 61 63 6b 61 67 65 | ===================..The.package |
| 2980e0 | 20 e2 80 98 73 6c 69 6d 65 2d 65 64 69 74 69 6e 67 2d 63 6f 6d 6d 61 6e 64 73 e2 80 99 20 70 72 | ....slime-editing-commands....pr |
| 298100 | 6f 76 69 64 65 73 20 73 6f 6d 65 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 65 64 69 74 20 4c 69 73 | ovides.some.commands.to.edit.Lis |
| 298120 | 70 0a 65 78 70 72 65 73 73 69 6f 6e 73 2e 0a 0a e2 80 98 43 2d 63 20 4d 2d 71 e2 80 99 0a e2 80 | p.expressions......C-c.M-q...... |
| 298140 | 98 4d 2d 78 20 73 6c 69 6d 65 2d 72 65 69 6e 64 65 6e 74 2d 64 65 66 75 6e e2 80 99 0a 20 20 20 | .M-x.slime-reindent-defun....... |
| 298160 | 20 20 52 65 2d 69 6e 64 65 6e 74 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 75 6e 2c 20 | ..Re-indents.the.current.defun,. |
| 298180 | 6f 72 20 72 65 66 69 6c 6c 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 72 61 67 72 61 70 68 | or.refills.the.current.paragraph |
| 2981a0 | 2e 20 20 49 66 0a 20 20 20 20 20 70 6f 69 6e 74 20 69 73 20 69 6e 73 69 64 65 20 61 20 63 6f 6d | ...If......point.is.inside.a.com |
| 2981c0 | 6d 65 6e 74 20 62 6c 6f 63 6b 2c 20 74 68 65 20 74 65 78 74 20 61 72 6f 75 6e 64 20 70 6f 69 6e | ment.block,.the.text.around.poin |
| 2981e0 | 74 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 20 74 72 65 61 74 65 64 20 61 73 20 61 20 70 61 72 61 | t.will.be......treated.as.a.para |
| 298200 | 67 72 61 70 68 20 61 6e 64 20 77 69 6c 6c 20 62 65 20 66 69 6c 6c 65 64 20 77 69 74 68 20 e2 80 | graph.and.will.be.filled.with... |
| 298220 | 98 66 69 6c 6c 2d 70 61 72 61 67 72 61 70 68 e2 80 99 2e 0a 20 20 20 20 20 4f 74 68 65 72 77 69 | .fill-paragraph..........Otherwi |
| 298240 | 73 65 2c 20 69 74 20 77 69 6c 6c 20 62 65 20 74 72 65 61 74 65 64 20 61 73 20 4c 69 73 70 20 63 | se,.it.will.be.treated.as.Lisp.c |
| 298260 | 6f 64 65 2c 20 61 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 75 6e 0a 20 20 20 20 20 | ode,.and.the.current.defun...... |
| 298280 | 77 69 6c 6c 20 62 65 20 72 65 69 6e 64 65 6e 74 65 64 2e 20 20 49 66 20 74 68 65 20 63 75 72 72 | will.be.reindented...If.the.curr |
| 2982a0 | 65 6e 74 20 64 65 66 75 6e 20 68 61 73 20 75 6e 62 61 6c 61 6e 63 65 64 20 70 61 72 65 6e 73 2c | ent.defun.has.unbalanced.parens, |
| 2982c0 | 20 61 6e 0a 20 20 20 20 20 61 74 74 65 6d 70 74 20 77 69 6c 6c 20 62 65 20 6d 61 64 65 20 74 6f | .an......attempt.will.be.made.to |
| 2982e0 | 20 66 69 78 20 69 74 20 62 65 66 6f 72 65 20 72 65 69 6e 64 65 6e 74 69 6e 67 2e 0a 0a e2 80 98 | .fix.it.before.reindenting...... |
| 298300 | 43 2d 63 20 43 2d 5d e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 61 6c | C-c.C-].......M-x.slime-close-al |
| 298320 | 6c 2d 70 61 72 65 6e 73 2d 69 6e 2d 73 65 78 70 e2 80 99 0a 20 20 20 20 20 42 61 6c 61 6e 63 65 | l-parens-in-sexp.........Balance |
| 298340 | 20 70 61 72 65 6e 74 68 65 73 65 73 20 6f 66 20 6f 70 65 6e 20 73 2d 65 78 70 72 65 73 73 69 6f | .parentheses.of.open.s-expressio |
| 298360 | 6e 73 20 61 74 20 70 6f 69 6e 74 2e 20 20 49 6e 73 65 72 74 20 65 6e 6f 75 67 68 0a 20 20 20 20 | ns.at.point...Insert.enough..... |
| 298380 | 20 72 69 67 68 74 20 70 61 72 65 6e 74 68 65 73 65 73 20 74 6f 20 62 61 6c 61 6e 63 65 20 75 6e | .right.parentheses.to.balance.un |
| 2983a0 | 6d 61 74 63 68 65 64 20 6c 65 66 74 20 70 61 72 65 6e 74 68 65 73 65 73 2e 20 20 44 65 6c 65 74 | matched.left.parentheses...Delet |
| 2983c0 | 65 0a 20 20 20 20 20 65 78 74 72 61 20 6c 65 66 74 20 70 61 72 65 6e 74 68 65 73 65 73 2e 20 20 | e......extra.left.parentheses... |
| 2983e0 | 52 65 66 6f 72 6d 61 74 20 74 72 61 69 6c 69 6e 67 20 70 61 72 65 6e 74 68 65 73 65 73 0a 20 20 | Reformat.trailing.parentheses... |
| 298400 | 20 20 20 4c 69 73 70 2d 73 74 79 6c 69 73 68 6c 79 2e 0a 0a 20 20 20 20 20 49 66 20 52 45 47 49 | ...Lisp-stylishly........If.REGI |
| 298420 | 4f 4e 20 69 73 20 74 72 75 65 2c 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 72 65 67 69 6f | ON.is.true,.operate.on.the.regio |
| 298440 | 6e 2e 20 20 4f 74 68 65 72 77 69 73 65 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 0a 20 20 20 | n...Otherwise.operate.on.the.... |
| 298460 | 20 20 74 6f 70 2d 6c 65 76 65 6c 20 73 65 78 70 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 0a | ..top-level.sexp.before.point... |
| 298480 | e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 62 61 6c 61 6e 63 65 64 2d 63 6f 6d | ...M-x.slime-insert-balanced-com |
| 2984a0 | 6d 65 6e 74 73 e2 80 99 0a 20 20 20 20 20 49 6e 73 65 72 74 20 61 20 73 65 74 20 6f 66 20 62 61 | ments.........Insert.a.set.of.ba |
| 2984c0 | 6c 61 6e 63 65 64 20 63 6f 6d 6d 65 6e 74 73 20 61 72 6f 75 6e 64 20 74 68 65 20 73 2d 65 78 70 | lanced.comments.around.the.s-exp |
| 2984e0 | 72 65 73 73 69 6f 6e 0a 20 20 20 20 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 70 6f 69 6e | ression......containing.the.poin |
| 298500 | 74 2e 20 20 49 66 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 69 6e 76 6f 6b 65 64 20 72 | t...If.this.command.is.invoked.r |
| 298520 | 65 70 65 61 74 65 64 6c 79 0a 20 20 20 20 20 28 77 69 74 68 6f 75 74 20 61 6e 79 20 6f 74 68 65 | epeatedly......(without.any.othe |
| 298540 | 72 20 63 6f 6d 6d 61 6e 64 20 6f 63 63 75 72 72 69 6e 67 20 62 65 74 77 65 65 6e 20 69 6e 76 6f | r.command.occurring.between.invo |
| 298560 | 63 61 74 69 6f 6e 73 29 2c 20 74 68 65 0a 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 67 72 | cations),.the......comment.progr |
| 298580 | 65 73 73 69 76 65 6c 79 20 6d 6f 76 65 73 20 6f 75 74 77 61 72 64 20 6f 76 65 72 20 65 6e 63 6c | essively.moves.outward.over.encl |
| 2985a0 | 6f 73 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 20 20 49 66 0a 20 20 20 20 20 69 6e 76 6f | osing.expressions...If......invo |
| 2985c0 | 6b 65 64 20 77 69 74 68 20 61 20 70 6f 73 69 74 69 76 65 20 70 72 65 66 69 78 20 61 72 67 75 6d | ked.with.a.positive.prefix.argum |
| 2985e0 | 65 6e 74 2c 20 74 68 65 20 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 61 72 67 0a 20 20 20 20 20 65 | ent,.the.s-expression.arg......e |
| 298600 | 78 70 72 65 73 73 69 6f 6e 73 20 6f 75 74 20 69 73 20 65 6e 63 6c 6f 73 65 64 20 69 6e 20 61 20 | xpressions.out.is.enclosed.in.a. |
| 298620 | 73 65 74 20 6f 66 20 62 61 6c 61 6e 63 65 64 20 63 6f 6d 6d 65 6e 74 73 2e 0a 0a e2 80 98 4d 2d | set.of.balanced.comments......M- |
| 298640 | 43 2d 61 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 | C-a.......M-x.slime-beginning-of |
| 298660 | 2d 64 65 66 75 6e e2 80 99 0a e2 80 98 4d 2d 43 2d 65 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 | -defun.......M-C-e.......M-x.sli |
| 298680 | 6d 65 2d 65 6e 64 2d 6f 66 2d 64 65 66 75 6e e2 80 99 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 | me-end-of-defun.......File:.docF |
| 2986a0 | 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 46 61 6e 63 79 20 49 6e 73 70 65 63 74 | DBrww.info,..Node:.Fancy.Inspect |
| 2986c0 | 6f 72 2c 20 20 4e 65 78 74 3a 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2c 20 20 50 72 65 76 3a | or,..Next:.Presentations,..Prev: |
| 2986e0 | 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 | .Editing.Commands,..Up:.Contribu |
| 298700 | 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 31 31 20 46 61 6e 63 79 20 49 6e 73 70 65 63 74 | ted.Packages..8.11.Fancy.Inspect |
| 298720 | 6f 72 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 41 6e 20 61 6c 74 65 | or.====================..An.alte |
| 298740 | 72 6e 61 74 69 76 65 20 74 6f 20 64 65 66 61 75 6c 74 20 69 6e 73 70 65 63 74 6f 72 20 69 73 20 | rnative.to.default.inspector.is. |
| 298760 | 70 72 6f 76 69 64 65 64 20 62 79 20 74 68 65 20 70 61 63 6b 61 67 65 0a e2 80 98 73 6c 69 6d 65 | provided.by.the.package....slime |
| 298780 | 2d 66 61 6e 63 79 2d 69 6e 73 70 65 63 74 6f 72 e2 80 99 2e 20 20 54 68 69 73 20 69 6e 73 70 65 | -fancy-inspector......This.inspe |
| 2987a0 | 63 74 6f 72 20 6b 6e 6f 77 73 20 61 20 6c 6f 74 20 61 62 6f 75 74 20 43 4c 4f 53 20 6f 62 6a 65 | ctor.knows.a.lot.about.CLOS.obje |
| 2987c0 | 63 74 73 0a 61 6e 64 20 6d 65 74 68 6f 64 73 2e 20 20 49 74 20 70 72 6f 76 69 64 65 73 20 6d 61 | cts.and.methods...It.provides.ma |
| 2987e0 | 6e 79 20 e2 80 9c 61 63 74 69 6f 6e 73 e2 80 9d 20 74 68 61 74 20 63 61 6e 20 62 65 20 73 65 6c | ny....actions....that.can.be.sel |
| 298800 | 65 63 74 65 64 20 74 6f 20 69 6e 76 6f 6b 65 0a 4c 69 73 70 20 63 6f 64 65 20 6f 6e 20 74 68 65 | ected.to.invoke.Lisp.code.on.the |
| 298820 | 20 69 6e 73 70 65 63 74 65 64 20 6f 62 6a 65 63 74 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c | .inspected.object...For.example, |
| 298840 | 20 74 6f 20 70 72 65 73 65 6e 74 20 61 20 67 65 6e 65 72 69 63 0a 66 75 6e 63 74 69 6f 6e 20 74 | .to.present.a.generic.function.t |
| 298860 | 68 65 20 69 6e 73 70 65 63 74 6f 72 20 73 68 6f 77 73 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 | he.inspector.shows.the.documenta |
| 298880 | 74 69 6f 6e 20 69 6e 20 70 6c 61 69 6e 20 74 65 78 74 20 61 6e 64 0a 70 72 65 73 65 6e 74 73 20 | tion.in.plain.text.and.presents. |
| 2988a0 | 65 61 63 68 20 6d 65 74 68 6f 64 20 77 69 74 68 20 62 6f 74 68 20 61 20 68 79 70 65 72 6c 69 6e | each.method.with.both.a.hyperlin |
| 2988c0 | 6b 20 74 6f 20 69 6e 73 70 65 63 74 20 74 68 65 20 6d 65 74 68 6f 64 20 6f 62 6a 65 63 74 0a 61 | k.to.inspect.the.method.object.a |
| 2988e0 | 6e 64 20 61 20 e2 80 9c 72 65 6d 6f 76 65 20 6d 65 74 68 6f 64 e2 80 9d 20 61 63 74 69 6f 6e 20 | nd.a....remove.method....action. |
| 298900 | 74 68 61 74 20 79 6f 75 20 63 61 6e 20 69 6e 76 6f 6b 65 20 69 6e 74 65 72 61 63 74 69 76 65 6c | that.you.can.invoke.interactivel |
| 298920 | 79 2e 20 20 54 68 65 0a 6b 65 79 2d 62 69 6e 64 69 6e 67 73 20 61 72 65 20 74 68 65 20 73 61 6d | y...The.key-bindings.are.the.sam |
| 298940 | 65 20 61 73 20 66 6f 72 20 74 68 65 20 62 61 73 69 63 20 69 6e 73 70 65 63 74 6f 72 20 28 2a 6e | e.as.for.the.basic.inspector.(*n |
| 298960 | 6f 74 65 0a 49 6e 73 70 65 63 74 6f 72 3a 3a 29 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 | ote.Inspector::).....File:.docFD |
| 298980 | 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2c | Brww.info,..Node:.Presentations, |
| 2989a0 | 20 20 4e 65 78 74 3a 20 54 79 70 65 6f 75 74 20 66 72 61 6d 65 73 2c 20 20 50 72 65 76 3a 20 46 | ..Next:.Typeout.frames,..Prev:.F |
| 2989c0 | 61 6e 63 79 20 49 6e 73 70 65 63 74 6f 72 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 | ancy.Inspector,..Up:.Contributed |
| 2989e0 | 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 31 32 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 0a 3d 3d | .Packages..8.12.Presentations.== |
| 298a00 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 41 20 e2 80 9c 70 72 65 73 65 6e 74 61 74 | ================..A....presentat |
| 298a20 | 69 6f 6e e2 80 9d 28 31 29 20 69 6e 20 53 4c 49 4d 45 20 69 73 20 61 20 72 65 67 69 6f 6e 20 6f | ion...(1).in.SLIME.is.a.region.o |
| 298a40 | 66 20 74 65 78 74 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 61 20 4c 69 73 70 0a 6f 62 | f.text.associated.with.a.Lisp.ob |
| 298a60 | 6a 65 63 74 2e 20 20 52 69 67 68 74 2d 63 6c 69 63 6b 69 6e 67 20 6f 6e 20 74 68 65 20 74 65 78 | ject...Right-clicking.on.the.tex |
| 298a80 | 74 20 62 72 69 6e 67 73 20 75 70 20 61 20 6d 65 6e 75 20 77 69 74 68 20 6f 70 65 72 61 74 69 6f | t.brings.up.a.menu.with.operatio |
| 298aa0 | 6e 73 20 66 6f 72 0a 74 68 65 20 70 61 72 74 69 63 75 6c 61 72 20 6f 62 6a 65 63 74 2e 20 20 53 | ns.for.the.particular.object...S |
| 298ac0 | 6f 6d 65 20 6f 70 65 72 61 74 69 6f 6e 73 2c 20 6c 69 6b 65 20 69 6e 73 70 65 63 74 69 6e 67 2c | ome.operations,.like.inspecting, |
| 298ae0 | 20 61 72 65 20 61 76 61 69 6c 61 62 6c 65 0a 66 6f 72 20 61 6c 6c 20 6f 62 6a 65 63 74 73 2c 20 | .are.available.for.all.objects,. |
| 298b00 | 62 75 74 20 74 68 65 20 6f 62 6a 65 63 74 20 6d 61 79 20 61 6c 73 6f 20 68 61 76 65 20 73 70 65 | but.the.object.may.also.have.spe |
| 298b20 | 63 69 61 6c 69 7a 65 64 20 6f 70 65 72 61 74 69 6f 6e 73 2e 0a 46 6f 72 20 69 6e 73 74 61 6e 63 | cialized.operations..For.instanc |
| 298b40 | 65 2c 20 70 61 74 68 6e 61 6d 65 73 20 68 61 76 65 20 61 20 64 69 72 65 64 20 6f 70 65 72 61 74 | e,.pathnames.have.a.dired.operat |
| 298b60 | 69 6f 6e 2e 0a 0a 20 20 20 4d 6f 72 65 20 69 6d 70 6f 72 74 61 6e 74 6c 79 2c 20 69 74 20 69 73 | ion......More.importantly,.it.is |
| 298b80 | 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 63 75 74 20 61 6e 64 20 70 61 73 74 65 20 70 72 65 73 65 | .possible.to.cut.and.paste.prese |
| 298ba0 | 6e 74 61 74 69 6f 6e 73 0a 28 69 2e 65 2e 2c 20 4c 69 73 70 20 6f 62 6a 65 63 74 73 2c 20 6e 6f | ntations.(i.e.,.Lisp.objects,.no |
| 298bc0 | 74 20 6a 75 73 74 20 74 68 65 69 72 20 70 72 69 6e 74 65 64 20 70 72 65 73 65 6e 74 61 74 69 6f | t.just.their.printed.presentatio |
| 298be0 | 6e 29 2c 20 75 73 69 6e 67 20 61 6c 6c 0a 73 74 61 6e 64 61 72 64 20 45 6d 61 63 73 20 63 6f 6d | n),.using.all.standard.Emacs.com |
| 298c00 | 6d 61 6e 64 73 2e 20 20 54 68 69 73 20 77 61 79 20 69 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 | mands...This.way.it.is.possible. |
| 298c20 | 74 6f 20 63 75 74 20 61 6e 64 20 70 61 73 74 65 20 74 68 65 0a 72 65 73 75 6c 74 73 20 6f 66 20 | to.cut.and.paste.the.results.of. |
| 298c40 | 70 72 65 76 69 6f 75 73 20 63 6f 6d 70 75 74 61 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 52 45 50 | previous.computations.in.the.REP |
| 298c60 | 4c 2e 20 54 68 69 73 20 69 73 20 6f 66 20 70 61 72 74 69 63 75 6c 61 72 0a 69 6d 70 6f 72 74 61 | L..This.is.of.particular.importa |
| 298c80 | 6e 63 65 20 66 6f 72 20 75 6e 72 65 61 64 61 62 6c 65 20 6f 62 6a 65 63 74 73 2e 0a 0a 20 20 20 | nce.for.unreadable.objects...... |
| 298ca0 | 54 68 65 20 70 61 63 6b 61 67 65 20 e2 80 98 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f | The.package....slime-presentatio |
| 298cc0 | 6e 73 e2 80 99 20 69 6e 73 74 61 6c 6c 73 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 69 6e 20 | ns....installs.presentations.in. |
| 298ce0 | 74 68 65 20 52 45 50 4c 2c 0a 69 2e 65 2e 20 20 74 68 65 20 72 65 73 75 6c 74 73 20 6f 66 20 65 | the.REPL,.i.e...the.results.of.e |
| 298d00 | 76 61 6c 75 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 20 62 65 63 6f 6d 65 20 70 72 65 73 65 6e | valuation.commands.become.presen |
| 298d20 | 74 61 74 69 6f 6e 73 2e 20 20 49 6e 20 74 68 69 73 0a 77 61 79 2c 20 70 72 65 73 65 6e 74 61 74 | tations...In.this.way,.presentat |
| 298d40 | 69 6f 6e 73 20 67 65 6e 65 72 61 6c 69 7a 65 20 74 68 65 20 75 73 65 20 6f 66 20 74 68 65 20 73 | ions.generalize.the.use.of.the.s |
| 298d60 | 74 61 6e 64 61 72 64 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 52 45 50 4c 0a 68 69 73 74 6f 72 79 | tandard.Common.Lisp.REPL.history |
| 298d80 | 20 76 61 72 69 61 62 6c 65 73 20 e2 80 98 2a e2 80 99 2c 20 e2 80 98 2a 2a e2 80 99 2c 20 e2 80 | .variables....*...,....**...,... |
| 298da0 | 98 2a 2a 2a e2 80 99 2e 20 20 45 78 61 6d 70 6c 65 3a 0a 0a 20 20 20 20 20 43 4c 2d 55 53 45 52 | .***......Example:.......CL-USER |
| 298dc0 | 3e 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 27 73 74 61 6e 64 61 72 64 2d 63 6c 61 73 73 29 0a 20 | >.(find-class.'standard-class).. |
| 298de0 | 20 20 20 20 5f 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 52 44 2d 43 | ...._#<STANDARD-CLASS.STANDARD-C |
| 298e00 | 4c 41 53 53 3e 5f 0a 20 20 20 20 20 43 4c 2d 55 53 45 52 3e 0a 0a 20 20 20 50 72 65 73 65 6e 74 | LASS>_......CL-USER>.....Present |
| 298e20 | 61 74 69 6f 6e 73 20 61 70 70 65 61 72 20 69 6e 20 72 65 64 20 63 6f 6c 6f 72 20 69 6e 20 74 68 | ations.appear.in.red.color.in.th |
| 298e40 | 65 20 62 75 66 66 65 72 2e 20 20 28 49 6e 20 74 68 69 73 20 6d 61 6e 75 61 6c 2c 20 77 65 0a 69 | e.buffer...(In.this.manual,.we.i |
| 298e60 | 6e 64 69 63 61 74 65 20 74 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 5f 6c 69 6b 65 20 | ndicate.the.presentations._like. |
| 298e80 | 74 68 69 73 5f 2e 29 20 20 55 73 69 6e 67 20 73 74 61 6e 64 61 72 64 20 45 6d 61 63 73 20 63 6f | this_.)..Using.standard.Emacs.co |
| 298ea0 | 6d 6d 61 6e 64 73 2c 0a 74 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 63 61 6e 20 62 65 20 | mmands,.the.presentation.can.be. |
| 298ec0 | 63 6f 70 69 65 64 20 74 6f 20 61 20 6e 65 77 20 69 6e 70 75 74 20 69 6e 20 74 68 65 20 52 45 50 | copied.to.a.new.input.in.the.REP |
| 298ee0 | 4c 3a 0a 0a 20 20 20 20 20 43 4c 2d 55 53 45 52 3e 20 28 65 71 6c 20 27 5f 23 3c 53 54 41 4e 44 | L:.......CL-USER>.(eql.'_#<STAND |
| 298f00 | 41 52 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 5f 0a 20 20 20 20 20 | ARD-CLASS.STANDARD-CLASS>_...... |
| 298f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 5f 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 | ..............'_#<STANDARD-CLASS |
| 298f40 | 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 5f 29 0a 20 20 20 20 20 5f 54 5f 0a 0a 20 20 20 | .STANDARD-CLASS>_)......_T_..... |
| 298f60 | 4e 6f 74 65 20 74 68 61 74 20 73 74 61 6e 64 61 72 64 20 65 76 61 6c 75 61 74 69 6f 6e 20 61 6e | Note.that.standard.evaluation.an |
| 298f80 | 64 20 71 75 6f 74 69 6e 67 20 72 75 6c 65 73 20 73 74 69 6c 6c 20 61 70 70 6c 79 2e 20 20 53 6f | d.quoting.rules.still.apply...So |
| 298fa0 | 20 69 66 20 61 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 69 73 20 61 20 6c 69 73 74 2c 20 69 74 | .if.a.presentation.is.a.list,.it |
| 298fc0 | 20 6e 65 65 64 73 20 74 6f 20 62 65 20 71 75 6f 74 65 64 20 69 6e 20 61 6e 20 65 76 61 6c 75 61 | .needs.to.be.quoted.in.an.evalua |
| 298fe0 | 74 65 64 20 63 6f 6e 74 65 78 74 20 74 6f 0a 61 76 6f 69 64 20 74 72 65 61 74 69 6e 67 20 69 74 | ted.context.to.avoid.treating.it |
| 299000 | 20 61 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 3a 0a 0a 20 20 20 20 20 43 4c 2d 55 53 | .as.a.function.call:.......CL-US |
| 299020 | 45 52 3e 20 28 6c 69 73 74 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 27 73 74 61 6e 64 61 72 64 2d | ER>.(list.(find-class.'standard- |
| 299040 | 63 6c 61 73 73 29 20 32 20 33 20 34 29 0a 20 20 20 20 20 5f 28 23 3c 53 54 41 4e 44 41 52 44 2d | class).2.3.4)......_(#<STANDARD- |
| 299060 | 43 4c 41 53 53 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 20 32 20 33 20 34 29 5f 0a 20 20 | CLASS.STANDARD-CLASS>.2.3.4)_... |
| 299080 | 20 20 20 43 4c 2d 55 53 45 52 3e 20 5f 28 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 20 53 | ...CL-USER>._(#<STANDARD-CLASS.S |
| 2990a0 | 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 20 32 20 33 20 34 29 5f 0a 20 20 20 20 20 3b 20 46 75 | TANDARD-CLASS>.2.3.4)_......;.Fu |
| 2990c0 | 6e 63 61 6c 6c 20 6f 66 20 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 | ncall.of.#<STANDARD-CLASS.STANDA |
| 2990e0 | 52 44 2d 43 4c 41 53 53 3e 20 77 68 69 63 68 20 69 73 20 61 20 6e 6f 6e 2d 66 75 6e 63 74 69 6f | RD-CLASS>.which.is.a.non-functio |
| 299100 | 6e 2e 0a 20 20 20 20 20 3b 20 45 76 61 6c 75 61 74 69 6f 6e 20 61 62 6f 72 74 65 64 2e 0a 20 20 | n.......;.Evaluation.aborted.... |
| 299120 | 20 20 20 43 4c 2d 55 53 45 52 3e 20 27 5f 28 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 20 | ...CL-USER>.'_(#<STANDARD-CLASS. |
| 299140 | 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 20 32 20 33 20 34 29 5f 0a 20 20 20 20 20 28 23 3c | STANDARD-CLASS>.2.3.4)_......(#< |
| 299160 | 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 3e 20 32 | STANDARD-CLASS.STANDARD-CLASS>.2 |
| 299180 | 20 33 20 34 29 0a 0a 20 20 20 57 68 65 6e 20 79 6f 75 20 63 6f 70 79 20 61 6e 20 69 6e 63 6f 6d | .3.4).....When.you.copy.an.incom |
| 2991a0 | 70 6c 65 74 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 72 20 65 64 69 74 20 74 68 65 20 74 | plete.presentation.or.edit.the.t |
| 2991c0 | 65 78 74 20 77 69 74 68 69 6e 20 61 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 74 68 65 20 70 | ext.within.a.presentation,.the.p |
| 2991e0 | 72 65 73 65 6e 74 61 74 69 6f 6e 20 63 68 61 6e 67 65 73 20 74 6f 20 70 6c 61 69 6e 20 74 65 78 | resentation.changes.to.plain.tex |
| 299200 | 74 2c 20 6c 6f 73 69 6e 67 20 74 68 65 0a 61 73 73 6f 63 69 61 74 69 6f 6e 20 77 69 74 68 20 61 | t,.losing.the.association.with.a |
| 299220 | 20 4c 69 73 70 20 6f 62 6a 65 63 74 2e 20 20 49 6e 20 74 68 65 20 62 75 66 66 65 72 2c 20 74 68 | .Lisp.object...In.the.buffer,.th |
| 299240 | 69 73 20 69 73 20 69 6e 64 69 63 61 74 65 64 20 62 79 0a 63 68 61 6e 67 69 6e 67 20 74 68 65 20 | is.is.indicated.by.changing.the. |
| 299260 | 63 6f 6c 6f 72 20 6f 66 20 74 68 65 20 74 65 78 74 20 66 72 6f 6d 20 72 65 64 20 74 6f 20 62 6c | color.of.the.text.from.red.to.bl |
| 299280 | 61 63 6b 2e 20 20 54 68 69 73 20 63 61 6e 20 62 65 20 75 6e 64 6f 6e 65 2e 0a 0a 20 20 20 50 72 | ack...This.can.be.undone......Pr |
| 2992a0 | 65 73 65 6e 74 61 74 69 6f 6e 73 20 61 72 65 20 61 6c 73 6f 20 61 76 61 69 6c 61 62 6c 65 20 69 | esentations.are.also.available.i |
| 2992c0 | 6e 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 28 61 6c 6c 20 69 6e 73 70 65 63 74 61 62 6c 65 | n.the.inspector.(all.inspectable |
| 2992e0 | 0a 70 61 72 74 73 20 61 72 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 29 20 61 6e 64 20 74 68 | .parts.are.presentations).and.th |
| 299300 | 65 20 64 65 62 75 67 67 65 72 20 28 61 6c 6c 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 | e.debugger.(all.local.variables. |
| 299320 | 61 72 65 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 29 2e 20 20 54 68 69 73 20 6d 61 6b 65 73 20 | are.presentations)...This.makes. |
| 299340 | 69 74 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 65 76 61 6c 75 61 74 65 20 65 78 70 72 65 73 73 69 | it.possible.to.evaluate.expressi |
| 299360 | 6f 6e 73 20 69 6e 20 74 68 65 0a 52 45 50 4c 20 75 73 69 6e 67 20 6f 62 6a 65 63 74 73 20 74 68 | ons.in.the.REPL.using.objects.th |
| 299380 | 61 74 20 61 70 70 65 61 72 20 69 6e 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 6f 66 20 | at.appear.in.local.variables.of. |
| 2993a0 | 73 6f 6d 65 20 61 63 74 69 76 65 0a 64 65 62 75 67 67 65 72 20 66 72 61 6d 65 3b 20 74 68 69 73 | some.active.debugger.frame;.this |
| 2993c0 | 20 63 61 6e 20 62 65 20 6d 6f 72 65 20 63 6f 6e 76 65 6e 69 65 6e 74 20 74 68 61 6e 20 75 73 69 | .can.be.more.convenient.than.usi |
| 2993e0 | 6e 67 20 e2 80 98 4d 2d 78 0a 73 6c 64 62 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 e2 80 99 2e | ng....M-x.sldb-eval-in-frame.... |
| 299400 | 20 20 2a 57 61 72 6e 69 6e 67 3a 2a 20 54 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 74 | ..*Warning:*.The.presentations.t |
| 299420 | 68 61 74 20 73 74 65 6d 20 66 72 6f 6d 20 74 68 65 0a 69 6e 73 70 65 63 74 6f 72 20 61 6e 64 20 | hat.stem.from.the.inspector.and. |
| 299440 | 64 65 62 75 67 67 65 72 20 61 72 65 20 6f 6e 6c 79 20 76 61 6c 69 64 20 61 73 20 6c 6f 6e 67 20 | debugger.are.only.valid.as.long. |
| 299460 | 61 73 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 62 75 66 66 65 72 73 20 61 72 65 | as.the.corresponding.buffers.are |
| 299480 | 20 6f 70 65 6e 2e 20 20 55 73 69 6e 67 20 74 68 65 6d 20 6c 61 74 65 72 20 63 61 6e 20 63 61 75 | .open...Using.them.later.can.cau |
| 2994a0 | 73 65 20 65 72 72 6f 72 73 20 6f 72 20 63 6f 6e 66 75 73 69 6e 67 0a 62 65 68 61 76 69 6f 72 2e | se.errors.or.confusing.behavior. |
| 2994c0 | 0a 0a 20 20 20 46 6f 72 20 73 6f 6d 65 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | .....For.some.Lisp.implementatio |
| 2994e0 | 6e 73 20 79 6f 75 20 63 61 6e 20 61 6c 73 6f 20 69 6e 73 74 61 6c 6c 20 74 68 65 20 70 61 63 6b | ns.you.can.also.install.the.pack |
| 299500 | 61 67 65 0a e2 80 98 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d | age....slime-presentation-stream |
| 299520 | 73 e2 80 99 2c 20 77 68 69 63 68 20 65 6e 61 62 6c 65 73 20 70 72 65 73 65 6e 74 61 74 69 6f 6e | s...,.which.enables.presentation |
| 299540 | 73 20 6f 6e 20 74 68 65 20 4c 69 73 70 0a e2 80 98 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 | s.on.the.Lisp....*standard-outpu |
| 299560 | 74 2a e2 80 99 20 73 74 72 65 61 6d 20 61 6e 64 20 73 69 6d 69 6c 61 72 20 73 74 72 65 61 6d 73 | t*....stream.and.similar.streams |
| 299580 | 2e 20 20 54 68 69 73 20 6d 65 61 6e 73 20 74 68 61 74 20 6e 6f 74 0a 6f 6e 6c 79 20 72 65 73 75 | ...This.means.that.not.only.resu |
| 2995a0 | 6c 74 73 20 6f 66 20 63 6f 6d 70 75 74 61 74 69 6f 6e 73 2c 20 62 75 74 20 61 6c 73 6f 20 73 6f | lts.of.computations,.but.also.so |
| 2995c0 | 6d 65 20 6f 62 6a 65 63 74 73 20 74 68 61 74 20 61 72 65 20 70 72 69 6e 74 65 64 20 74 6f 0a 74 | me.objects.that.are.printed.to.t |
| 2995e0 | 68 65 20 73 74 61 6e 64 61 72 64 20 6f 75 74 70 75 74 20 28 61 73 20 61 20 73 69 64 65 2d 65 66 | he.standard.output.(as.a.side-ef |
| 299600 | 66 65 63 74 20 6f 66 20 74 68 65 20 63 6f 6d 70 75 74 61 74 69 6f 6e 29 20 61 72 65 20 61 73 73 | fect.of.the.computation).are.ass |
| 299620 | 6f 63 69 61 74 65 64 0a 77 69 74 68 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 43 75 72 | ociated.with.presentations...Cur |
| 299640 | 72 65 6e 74 6c 79 2c 20 61 6c 6c 20 75 6e 72 65 61 64 61 62 6c 65 20 6f 62 6a 65 63 74 73 20 61 | rently,.all.unreadable.objects.a |
| 299660 | 6e 64 20 70 61 74 68 6e 61 6d 65 73 20 67 65 74 0a 70 72 69 6e 74 65 64 20 61 73 20 70 72 65 73 | nd.pathnames.get.printed.as.pres |
| 299680 | 65 6e 74 61 74 69 6f 6e 73 2e 0a 0a 20 20 20 20 20 43 4c 2d 55 53 45 52 3e 20 28 64 65 73 63 72 | entations........CL-USER>.(descr |
| 2996a0 | 69 62 65 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 27 73 74 61 6e 64 61 72 64 2d 6f 62 6a 65 63 74 | ibe.(find-class.'standard-object |
| 2996c0 | 29 29 0a 20 20 20 20 20 5f 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 | ))......_#<STANDARD-CLASS.STANDA |
| 2996e0 | 52 44 2d 4f 42 4a 45 43 54 3e 5f 20 69 73 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 0a 20 20 | RD-OBJECT>_.is.an.instance.of... |
| 299700 | 20 20 20 20 20 20 20 5f 23 3c 53 54 41 4e 44 41 52 44 2d 43 4c 41 53 53 20 53 54 41 4e 44 41 52 | ......._#<STANDARD-CLASS.STANDAR |
| 299720 | 44 2d 43 4c 41 53 53 3e 5f 3a 0a 20 20 20 20 20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 | D-CLASS>_:.......The.following.s |
| 299740 | 6c 6f 74 73 20 68 61 76 65 20 3a 49 4e 53 54 41 4e 43 45 20 61 6c 6c 6f 63 61 74 69 6f 6e 3a 0a | lots.have.:INSTANCE.allocation:. |
| 299760 | 20 20 20 20 20 20 20 50 4c 49 53 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e | .......PLIST...................N |
| 299780 | 49 4c 0a 20 20 20 20 20 20 20 46 4c 41 47 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | IL........FLAGS................. |
| 2997a0 | 20 20 31 0a 20 20 20 20 20 20 20 44 49 52 45 43 54 2d 4d 45 54 48 4f 44 53 20 20 20 20 20 20 20 | ..1........DIRECT-METHODS....... |
| 2997c0 | 20 20 20 28 28 5f 23 3c 53 54 41 4e 44 41 52 44 2d 4d 45 54 48 4f 44 0a 20 20 20 20 20 20 20 20 | ...((_#<STANDARD-METHOD......... |
| 2997e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 57 41 4e 4b | ...........................SWANK |
| 299800 | 3a 3a 41 4c 4c 2d 53 4c 4f 54 53 2d 46 4f 52 2d 49 4e 53 50 45 43 54 4f 52 0a 20 20 20 20 20 20 | ::ALL-SLOTS-FOR-INSPECTOR....... |
| 299820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 53 54 | .............................(ST |
| 299840 | 41 4e 44 41 52 44 2d 4f 42 4a 45 43 54 20 54 29 3e 5f 0a 20 20 20 20 20 20 20 2e 2e 2e 0a 0a 20 | ANDARD-OBJECT.T)>_.............. |
| 299860 | 20 20 41 67 61 69 6e 2c 20 74 68 69 73 20 6d 61 6b 65 73 20 69 74 20 70 6f 73 73 69 62 6c 65 20 | ..Again,.this.makes.it.possible. |
| 299880 | 74 6f 20 69 6e 73 70 65 63 74 20 61 6e 64 20 63 6f 70 79 2d 70 61 73 74 65 20 74 68 65 73 65 0a | to.inspect.and.copy-paste.these. |
| 2998a0 | 6f 62 6a 65 63 74 73 2e 0a 0a 20 20 20 49 6e 20 61 64 64 69 74 69 6f 6e 20 74 6f 20 74 68 65 20 | objects......In.addition.to.the. |
| 2998c0 | 73 74 61 6e 64 61 72 64 20 45 6d 61 63 73 20 63 6f 6d 6d 61 6e 64 73 2c 20 74 68 65 72 65 20 61 | standard.Emacs.commands,.there.a |
| 2998e0 | 72 65 20 73 65 76 65 72 61 6c 0a 6b 65 79 62 6f 61 72 64 20 63 6f 6d 6d 61 6e 64 73 2c 20 61 20 | re.several.keyboard.commands,.a. |
| 299900 | 6d 65 6e 75 2d 62 61 72 20 6d 65 6e 75 2c 20 61 6e 64 20 61 20 63 6f 6e 74 65 78 74 20 6d 65 6e | menu-bar.menu,.and.a.context.men |
| 299920 | 75 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 | u.to.operate.on.presentations... |
| 299940 | 57 65 20 64 65 73 63 72 69 62 65 20 74 68 65 20 6b 65 79 62 6f 61 72 64 20 63 6f 6d 6d 61 6e 64 | We.describe.the.keyboard.command |
| 299960 | 73 20 62 65 6c 6f 77 3b 20 74 68 65 79 20 61 72 65 20 61 6c 73 6f 0a 73 68 6f 77 6e 20 69 6e 20 | s.below;.they.are.also.shown.in. |
| 299980 | 74 68 65 20 6d 65 6e 75 2d 62 61 72 20 6d 65 6e 75 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 76 20 53 | the.menu-bar.menu......C-c.C-v.S |
| 2999a0 | 50 43 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 6d 61 72 6b 2d 70 72 65 73 65 6e 74 61 | PC.......M-x.slime-mark-presenta |
| 2999c0 | 74 69 6f 6e e2 80 99 0a 20 20 20 20 20 49 66 20 70 6f 69 6e 74 20 69 73 20 77 69 74 68 69 6e 20 | tion.........If.point.is.within. |
| 2999e0 | 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 6d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 | a.presentation,.move.point.to.th |
| 299a00 | 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 0a 20 20 20 20 20 74 68 65 20 70 72 65 73 65 6e 74 61 | e.beginning.of......the.presenta |
| 299a20 | 74 69 6f 6e 20 61 6e 64 20 6d 61 72 6b 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 | tion.and.mark.to.the.end.of.the. |
| 299a40 | 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 20 20 54 68 69 73 0a 20 20 20 20 20 6d 61 6b 65 73 20 69 | presentation...This......makes.i |
| 299a60 | 74 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 63 6f 70 79 20 74 68 65 20 70 72 65 73 65 6e 74 61 74 | t.possible.to.copy.the.presentat |
| 299a80 | 69 6f 6e 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 76 20 77 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 | ion......C-c.C-v.w.......M-x.sli |
| 299aa0 | 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 74 6f | me-copy-presentation-at-point-to |
| 299ac0 | 2d 6b 69 6c 6c 2d 72 69 6e 67 e2 80 99 0a 20 20 20 20 20 49 66 20 70 6f 69 6e 74 20 69 73 20 77 | -kill-ring.........If.point.is.w |
| 299ae0 | 69 74 68 69 6e 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 63 6f 70 79 20 74 68 65 20 73 | ithin.a.presentation,.copy.the.s |
| 299b00 | 75 72 72 6f 75 6e 64 69 6e 67 0a 20 20 20 20 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 74 6f 20 | urrounding......presentation.to. |
| 299b20 | 74 68 65 20 6b 69 6c 6c 20 72 69 6e 67 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 76 20 72 e2 80 99 0a | the.kill.ring......C-c.C-v.r.... |
| 299b40 | e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 | ...M-x.slime-copy-presentation-a |
| 299b60 | 74 2d 70 6f 69 6e 74 2d 74 6f 2d 72 65 70 6c e2 80 99 0a 20 20 20 20 20 49 66 20 70 6f 69 6e 74 | t-point-to-repl.........If.point |
| 299b80 | 20 69 73 20 77 69 74 68 69 6e 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 63 6f 70 79 20 | .is.within.a.presentation,.copy. |
| 299ba0 | 74 68 65 20 73 75 72 72 6f 75 6e 64 69 6e 67 0a 20 20 20 20 20 70 72 65 73 65 6e 74 61 74 69 6f | the.surrounding......presentatio |
| 299bc0 | 6e 20 74 6f 20 74 68 65 20 52 45 50 4c 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 76 20 64 e2 80 99 0a | n.to.the.REPL......C-c.C-v.d.... |
| 299be0 | e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 70 72 65 73 65 6e 74 61 74 69 | ...M-x.slime-describe-presentati |
| 299c00 | 6f 6e 2d 61 74 2d 70 6f 69 6e 74 e2 80 99 0a 20 20 20 20 20 49 66 20 70 6f 69 6e 74 20 69 73 20 | on-at-point.........If.point.is. |
| 299c20 | 77 69 74 68 69 6e 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 64 65 73 63 72 69 62 65 20 | within.a.presentation,.describe. |
| 299c40 | 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 6f 62 6a 65 63 74 2e 0a 0a e2 80 98 43 2d 63 20 43 | the.associated.object......C-c.C |
| 299c60 | 2d 76 20 69 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 2d 70 72 65 | -v.i.......M-x.slime-inspect-pre |
| 299c80 | 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 e2 80 99 0a 20 20 20 20 20 49 66 20 70 6f | sentation-at-point.........If.po |
| 299ca0 | 69 6e 74 20 69 73 20 77 69 74 68 69 6e 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 69 6e | int.is.within.a.presentation,.in |
| 299cc0 | 73 70 65 63 74 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 6f 62 6a 65 63 74 0a 20 20 20 20 | spect.the.associated.object..... |
| 299ce0 | 20 77 69 74 68 20 74 68 65 20 53 4c 49 4d 45 20 69 6e 73 70 65 63 74 6f 72 2e 0a 0a e2 80 98 43 | .with.the.SLIME.inspector......C |
| 299d00 | 2d 63 20 43 2d 76 20 6e e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 6e 65 78 74 2d 70 72 | -c.C-v.n.......M-x.slime-next-pr |
| 299d20 | 65 73 65 6e 74 61 74 69 6f 6e e2 80 99 0a 20 20 20 20 20 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f | esentation.........Move.point.to |
| 299d40 | 20 74 68 65 20 6e 65 78 74 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 62 75 | .the.next.presentation.in.the.bu |
| 299d60 | 66 66 65 72 2e 0a 0a e2 80 98 43 2d 63 20 43 2d 76 20 70 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c | ffer......C-c.C-v.p.......M-x.sl |
| 299d80 | 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e e2 80 99 0a 20 20 20 | ime-previous-presentation....... |
| 299da0 | 20 20 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 70 72 65 | ..Move.point.to.the.previous.pre |
| 299dc0 | 73 65 6e 74 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 0a 0a 20 20 20 53 69 6d | sentation.in.the.buffer......Sim |
| 299de0 | 69 6c 61 72 20 6f 70 65 72 61 74 69 6f 6e 73 20 61 72 65 20 61 6c 73 6f 20 70 6f 73 73 69 62 6c | ilar.operations.are.also.possibl |
| 299e00 | 65 20 66 72 6f 6d 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6d 65 6e 75 20 6f 66 20 65 76 65 72 79 | e.from.the.context.menu.of.every |
| 299e20 | 0a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 20 20 55 73 69 6e 67 20 e2 80 98 6d 6f 75 73 65 2d 33 | .presentation...Using....mouse-3 |
| 299e40 | e2 80 99 20 6f 6e 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 2c 20 74 68 65 20 63 6f 6e 74 65 | ....on.a.presentation,.the.conte |
| 299e60 | 78 74 20 6d 65 6e 75 20 6f 70 65 6e 73 0a 61 6e 64 20 6f 66 66 65 72 73 20 76 61 72 69 6f 75 73 | xt.menu.opens.and.offers.various |
| 299e80 | 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 46 6f 72 20 73 6f 6d 65 20 6f 62 6a 65 63 74 73 2c 20 73 70 | .commands...For.some.objects,.sp |
| 299ea0 | 65 63 69 61 6c 69 7a 65 64 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 0a 61 6c 73 6f 20 6f 66 66 65 | ecialized.commands.are.also.offe |
| 299ec0 | 72 65 64 2e 20 20 55 73 65 72 73 20 63 61 6e 20 64 65 66 69 6e 65 20 61 64 64 69 74 69 6f 6e 61 | red...Users.can.define.additiona |
| 299ee0 | 6c 20 73 70 65 63 69 61 6c 69 7a 65 64 20 63 6f 6d 6d 61 6e 64 73 20 62 79 0a 64 65 66 69 6e 69 | l.specialized.commands.by.defini |
| 299f00 | 6e 67 20 61 20 6d 65 74 68 6f 64 20 66 6f 72 20 e2 80 98 73 77 61 6e 6b 3a 3a 6d 65 6e 75 2d 63 | ng.a.method.for....swank::menu-c |
| 299f20 | 68 6f 69 63 65 73 2d 66 6f 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e e2 80 99 2e 0a 0a 20 20 20 | hoices-for-presentation......... |
| 299f40 | 2a 57 61 72 6e 69 6e 67 3a 2a 20 4f 6e 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | *Warning:*.On.Lisp.implementatio |
| 299f60 | 6e 73 20 77 69 74 68 6f 75 74 20 77 65 61 6b 20 68 61 73 68 20 74 61 62 6c 65 73 2c 20 61 6c 6c | ns.without.weak.hash.tables,.all |
| 299f80 | 0a 6f 62 6a 65 63 74 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 70 72 65 73 65 6e 74 | .objects.associated.with.present |
| 299fa0 | 61 74 69 6f 6e 73 20 61 72 65 20 70 72 6f 74 65 63 74 65 64 20 66 72 6f 6d 20 67 61 72 62 61 67 | ations.are.protected.from.garbag |
| 299fc0 | 65 0a 63 6f 6c 6c 65 63 74 69 6f 6e 2e 20 20 49 66 20 79 6f 75 72 20 4c 69 73 70 20 69 6d 61 67 | e.collection...If.your.Lisp.imag |
| 299fe0 | 65 20 67 72 6f 77 73 20 74 6f 6f 20 6c 61 72 67 65 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 61 | e.grows.too.large.because.of.tha |
| 29a000 | 74 2c 20 75 73 65 0a e2 80 98 43 2d 63 20 43 2d 76 20 4d 2d 6f e2 80 99 20 28 e2 80 98 73 6c 69 | t,.use....C-c.C-v.M-o....(...sli |
| 29a020 | 6d 65 2d 63 6c 65 61 72 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 e2 80 99 29 20 74 6f 20 72 65 | me-clear-presentations...).to.re |
| 29a040 | 6d 6f 76 65 20 74 68 65 73 65 0a 61 73 73 6f 63 69 61 74 69 6f 6e 73 2e 20 20 59 6f 75 20 63 61 | move.these.associations...You.ca |
| 29a060 | 6e 20 61 6c 73 6f 20 75 73 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 e2 80 98 43 2d 63 20 4d 2d | n.also.use.the.command....C-c.M- |
| 29a080 | 6f e2 80 99 0a 28 e2 80 98 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 62 75 66 66 65 72 | o....(...slime-repl-clear-buffer |
| 29a0a0 | e2 80 99 29 2c 20 77 68 69 63 68 20 62 6f 74 68 20 63 6c 65 61 72 73 20 74 68 65 20 52 45 50 4c | ...),.which.both.clears.the.REPL |
| 29a0c0 | 20 62 75 66 66 65 72 20 61 6e 64 0a 72 65 6d 6f 76 65 73 20 61 6c 6c 20 61 73 73 6f 63 69 61 74 | .buffer.and.removes.all.associat |
| 29a0e0 | 69 6f 6e 73 20 6f 66 20 6f 62 6a 65 63 74 73 20 77 69 74 68 20 70 72 65 73 65 6e 74 61 74 69 6f | ions.of.objects.with.presentatio |
| 29a100 | 6e 73 2e 0a 0a 20 20 20 2a 57 61 72 6e 69 6e 67 3a 2a 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 | ns......*Warning:*.Presentations |
| 29a120 | 20 63 61 6e 20 63 6f 6e 66 75 73 65 20 6e 65 77 20 75 73 65 72 73 2e 0a 0a 20 20 20 20 20 43 4c | .can.confuse.new.users........CL |
| 29a140 | 2d 55 53 45 52 3e 20 28 63 6f 6e 73 20 31 20 32 29 0a 20 20 20 20 20 5f 28 31 20 2e 20 32 29 5f | -USER>.(cons.1.2)......_(1...2)_ |
| 29a160 | 0a 20 20 20 20 20 43 4c 2d 55 53 45 52 3e 20 28 65 71 20 27 5f 28 31 20 2e 20 32 29 5f 20 27 5f | ......CL-USER>.(eq.'_(1...2)_.'_ |
| 29a180 | 28 31 20 2e 20 32 29 5f 29 0a 20 20 20 20 20 5f 54 5f 0a 0a 20 20 20 4f 6e 65 20 63 6f 75 6c 64 | (1...2)_)......_T_.....One.could |
| 29a1a0 | 20 68 61 76 65 20 65 78 70 65 63 74 65 64 20 e2 80 98 4e 49 4c e2 80 99 20 68 65 72 65 2c 20 62 | .have.expected....NIL....here,.b |
| 29a1c0 | 65 63 61 75 73 65 20 69 74 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 74 77 6f 20 66 72 65 73 68 0a 63 | ecause.it.looks.like.two.fresh.c |
| 29a1e0 | 6f 6e 73 20 63 65 6c 6c 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 72 65 67 61 72 64 69 6e 67 | ons.cells.are.compared.regarding |
| 29a200 | 20 6f 62 6a 65 63 74 20 69 64 65 6e 74 69 74 79 2e 20 20 48 6f 77 65 76 65 72 2c 20 69 6e 20 74 | .object.identity...However,.in.t |
| 29a220 | 68 65 0a 65 78 61 6d 70 6c 65 20 74 68 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 e2 80 98 5f | he.example.the.presentation...._ |
| 29a240 | 28 31 20 2e 20 32 29 5f e2 80 99 20 77 61 73 20 63 6f 70 69 65 64 20 74 77 69 63 65 20 74 6f 20 | (1...2)_....was.copied.twice.to. |
| 29a260 | 74 68 65 20 52 45 50 4c 2e 20 54 68 75 73 0a e2 80 98 45 51 e2 80 99 20 69 73 20 72 65 61 6c 6c | the.REPL..Thus....EQ....is.reall |
| 29a280 | 79 20 69 6e 76 6f 6b 65 64 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 6f 62 6a 65 63 74 2c 20 | y.invoked.with.the.same.object,. |
| 29a2a0 | 6e 61 6d 65 6c 79 20 74 68 65 20 63 6f 6e 73 20 63 65 6c 6c 20 74 68 61 74 0a 77 61 73 20 72 65 | namely.the.cons.cell.that.was.re |
| 29a2c0 | 74 75 72 6e 65 64 20 62 79 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 65 6e 74 65 72 65 64 | turned.by.the.first.form.entered |
| 29a2e0 | 20 69 6e 20 74 68 65 20 52 45 50 4c 2e 0a 0a 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 46 6f 6f | .in.the.REPL......----------.Foo |
| 29a300 | 74 6e 6f 74 65 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 20 20 20 28 31 29 20 50 72 65 73 65 6e | tnotes.----------.....(1).Presen |
| 29a320 | 74 61 74 69 6f 6e 73 20 61 72 65 20 61 20 66 65 61 74 75 72 65 20 6f 72 69 67 69 6e 61 74 69 6e | tations.are.a.feature.originatin |
| 29a340 | 67 20 66 72 6f 6d 20 74 68 65 20 4c 69 73 70 20 6d 61 63 68 69 6e 65 73 2e 0a 49 74 20 77 61 73 | g.from.the.Lisp.machines..It.was |
| 29a360 | 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 64 65 66 69 6e 65 20 e2 80 98 70 72 65 73 65 6e 74 e2 80 | .possible.to.define....present.. |
| 29a380 | 99 20 6d 65 74 68 6f 64 73 20 73 70 65 63 69 61 6c 69 7a 65 64 20 74 6f 20 76 61 72 69 6f 75 73 | ..methods.specialized.to.various |
| 29a3a0 | 0a 64 65 76 69 63 65 73 2c 20 65 2e 67 2e 20 20 74 6f 20 64 72 61 77 20 61 6e 20 6f 62 6a 65 63 | .devices,.e.g...to.draw.an.objec |
| 29a3c0 | 74 20 74 6f 20 62 69 74 6d 61 70 70 65 64 20 73 63 72 65 65 6e 20 6f 72 20 74 6f 20 77 72 69 74 | t.to.bitmapped.screen.or.to.writ |
| 29a3e0 | 65 20 73 6f 6d 65 0a 74 65 78 74 20 74 6f 20 61 20 63 68 61 72 61 63 74 65 72 20 73 74 72 65 61 | e.some.text.to.a.character.strea |
| 29a400 | 6d 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 | m.....File:.docFDBrww.info,..Nod |
| 29a420 | 65 3a 20 54 79 70 65 6f 75 74 20 66 72 61 6d 65 73 2c 20 20 4e 65 78 74 3a 20 54 52 41 4d 50 2c | e:.Typeout.frames,..Next:.TRAMP, |
| 29a440 | 20 20 50 72 65 76 3a 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2c 20 20 55 70 3a 20 43 6f 6e 74 | ..Prev:.Presentations,..Up:.Cont |
| 29a460 | 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 31 33 20 54 79 70 65 6f 75 74 20 66 | ributed.Packages..8.13.Typeout.f |
| 29a480 | 72 61 6d 65 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 41 20 e2 80 9c | rames.===================..A.... |
| 29a4a0 | 74 79 70 65 6f 75 74 20 66 72 61 6d 65 e2 80 9d 20 69 73 20 61 20 73 70 65 63 69 61 6c 20 45 6d | typeout.frame....is.a.special.Em |
| 29a4c0 | 61 63 73 20 66 72 61 6d 65 20 77 68 69 63 68 20 69 73 20 75 73 65 64 20 69 6e 73 74 65 61 64 20 | acs.frame.which.is.used.instead. |
| 29a4e0 | 6f 66 20 74 68 65 0a 65 63 68 6f 20 61 72 65 61 20 28 6d 69 6e 69 62 75 66 66 65 72 29 20 74 6f | of.the.echo.area.(minibuffer).to |
| 29a500 | 20 64 69 73 70 6c 61 79 20 6d 65 73 73 61 67 65 73 20 66 72 6f 6d 20 53 4c 49 4d 45 20 63 6f 6d | .display.messages.from.SLIME.com |
| 29a520 | 6d 61 6e 64 73 2e 20 20 54 68 69 73 20 69 73 0a 61 6e 20 6f 70 74 69 6f 6e 61 6c 20 66 65 61 74 | mands...This.is.an.optional.feat |
| 29a540 | 75 72 65 2e 20 20 54 68 65 20 61 64 76 61 6e 74 61 67 65 20 6f 66 20 61 20 74 79 70 65 6f 75 74 | ure...The.advantage.of.a.typeout |
| 29a560 | 20 66 72 61 6d 65 20 6f 76 65 72 20 74 68 65 20 65 63 68 6f 0a 61 72 65 61 20 69 73 20 74 68 61 | .frame.over.the.echo.area.is.tha |
| 29a580 | 74 20 69 74 20 63 61 6e 20 68 6f 6c 64 20 6d 6f 72 65 20 74 65 78 74 2c 20 69 74 20 63 61 6e 20 | t.it.can.hold.more.text,.it.can. |
| 29a5a0 | 62 65 20 73 63 72 6f 6c 6c 65 64 2c 20 61 6e 64 20 69 74 73 20 63 6f 6e 74 65 6e 74 73 0a 64 6f | be.scrolled,.and.its.contents.do |
| 29a5c0 | 6e e2 80 99 74 20 64 69 73 61 70 70 65 61 72 20 77 68 65 6e 20 79 6f 75 20 70 72 65 73 73 20 61 | n...t.disappear.when.you.press.a |
| 29a5e0 | 20 6b 65 79 2e 20 20 41 6c 6c 20 70 6f 74 65 6e 74 69 61 6c 6c 79 20 6c 6f 6e 67 20 6d 65 73 73 | .key...All.potentially.long.mess |
| 29a600 | 61 67 65 73 20 61 72 65 0a 73 65 6e 74 20 74 6f 20 74 68 65 20 74 79 70 65 6f 75 74 20 66 72 61 | ages.are.sent.to.the.typeout.fra |
| 29a620 | 6d 65 2c 20 73 75 63 68 20 61 73 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 73 2c 20 6d 61 63 72 | me,.such.as.argument.lists,.macr |
| 29a640 | 6f 20 65 78 70 61 6e 73 69 6f 6e 73 2c 20 61 6e 64 0a 73 6f 20 6f 6e 2e 0a 0a e2 80 98 4d 2d 78 | o.expansions,.and.so.on......M-x |
| 29a660 | 20 73 6c 69 6d 65 2d 65 6e 73 75 72 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 e2 80 99 0a 20 | .slime-ensure-typeout-frame..... |
| 29a680 | 20 20 20 20 45 6e 73 75 72 65 20 74 68 61 74 20 61 20 74 79 70 65 6f 75 74 20 66 72 61 6d 65 20 | ....Ensure.that.a.typeout.frame. |
| 29a6a0 | 65 78 69 73 74 73 2c 20 63 72 65 61 74 69 6e 67 20 6f 6e 65 20 69 66 20 6e 65 63 65 73 73 61 72 | exists,.creating.one.if.necessar |
| 29a6c0 | 79 2e 0a 0a 20 20 20 49 66 20 74 68 65 20 74 79 70 65 6f 75 74 20 66 72 61 6d 65 20 69 73 20 63 | y......If.the.typeout.frame.is.c |
| 29a6e0 | 6c 6f 73 65 64 20 74 68 65 6e 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 20 77 69 6c 6c 20 62 65 | losed.then.the.echo.area.will.be |
| 29a700 | 20 75 73 65 64 20 61 67 61 69 6e 0a 61 73 20 75 73 75 61 6c 2e 0a 0a 20 20 20 54 6f 20 68 61 76 | .used.again.as.usual......To.hav |
| 29a720 | 65 20 61 20 74 79 70 65 6f 75 74 20 66 72 61 6d 65 20 63 72 65 61 74 65 64 20 61 75 74 6f 6d 61 | e.a.typeout.frame.created.automa |
| 29a740 | 74 69 63 61 6c 6c 79 20 61 74 20 73 74 61 72 74 75 70 20 79 6f 75 20 73 68 6f 75 6c 64 0a 6c 6f | tically.at.startup.you.should.lo |
| 29a760 | 61 64 20 74 68 65 20 e2 80 98 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 e2 80 99 | ad.the....slime-typeout-frame... |
| 29a780 | 20 70 61 63 6b 61 67 65 2e 20 20 28 2a 6e 6f 74 65 20 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 | .package...(*note.Loading.Contri |
| 29a7a0 | 62 73 3a 3a 2e 29 0a 0a 20 20 20 54 68 65 20 76 61 72 69 61 62 6c 65 20 e2 80 98 73 6c 69 6d 65 | bs::.).....The.variable....slime |
| 29a7c0 | 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 2d 70 72 6f 70 65 72 74 69 65 73 e2 80 99 20 73 70 65 | -typeout-frame-properties....spe |
| 29a7e0 | 63 69 66 69 65 73 20 74 68 65 20 68 65 69 67 68 74 0a 61 6e 64 20 70 6f 73 73 69 62 6c 79 20 6f | cifies.the.height.and.possibly.o |
| 29a800 | 74 68 65 72 20 70 72 6f 70 65 72 74 69 65 73 20 6f 66 20 74 68 65 20 66 72 61 6d 65 2e 20 20 49 | ther.properties.of.the.frame...I |
| 29a820 | 74 73 20 76 61 6c 75 65 20 69 73 20 70 61 73 73 65 64 20 74 6f 0a e2 80 98 6d 61 6b 65 2d 66 72 | ts.value.is.passed.to....make-fr |
| 29a840 | 61 6d 65 e2 80 99 2e 20 20 28 2a 6e 6f 74 65 20 28 65 6c 69 73 70 29 43 72 65 61 74 69 6e 67 20 | ame......(*note.(elisp)Creating. |
| 29a860 | 46 72 61 6d 65 73 3a 3a 2e 29 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e | Frames::.)....File:.docFDBrww.in |
| 29a880 | 66 6f 2c 20 20 4e 6f 64 65 3a 20 54 52 41 4d 50 2c 20 20 4e 65 78 74 3a 20 44 6f 63 75 6d 65 6e | fo,..Node:.TRAMP,..Next:.Documen |
| 29a8a0 | 74 61 74 69 6f 6e 20 4c 69 6e 6b 73 2c 20 20 50 72 65 76 3a 20 54 79 70 65 6f 75 74 20 66 72 61 | tation.Links,..Prev:.Typeout.fra |
| 29a8c0 | 6d 65 73 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a | mes,..Up:.Contributed.Packages.. |
| 29a8e0 | 38 2e 31 34 20 54 52 41 4d 50 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 70 61 63 6b 61 | 8.14.TRAMP.==========..The.packa |
| 29a900 | 67 65 20 e2 80 98 73 6c 69 6d 65 2d 74 72 61 6d 70 e2 80 99 20 70 72 6f 76 69 64 65 73 20 73 6f | ge....slime-tramp....provides.so |
| 29a920 | 6d 65 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 73 65 74 20 75 70 20 66 69 6c 65 6e 61 6d 65 0a | me.functions.to.set.up.filename. |
| 29a940 | 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 66 6f 72 20 54 52 41 4d 50 2e 20 28 2a 6e 6f 74 65 20 53 | translations.for.TRAMP..(*note.S |
| 29a960 | 65 74 74 69 6e 67 20 75 70 20 70 61 74 68 6e 61 6d 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 3a | etting.up.pathname.translations: |
| 29a980 | 3a 29 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 | :)....File:.docFDBrww.info,..Nod |
| 29a9a0 | 65 3a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 4c 69 6e 6b 73 2c 20 20 4e 65 78 74 3a 20 58 | e:.Documentation.Links,..Next:.X |
| 29a9c0 | 72 65 66 20 61 6e 64 20 43 6c 61 73 73 20 42 72 6f 77 73 65 72 2c 20 20 50 72 65 76 3a 20 54 52 | ref.and.Class.Browser,..Prev:.TR |
| 29a9e0 | 41 4d 50 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a | AMP,..Up:.Contributed.Packages.. |
| 29aa00 | 38 2e 31 35 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 4c 69 6e 6b 73 0a 3d 3d 3d 3d 3d 3d 3d | 8.15.Documentation.Links.======= |
| 29aa20 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 46 6f 72 20 63 65 72 74 61 69 6e 20 65 | =================..For.certain.e |
| 29aa40 | 72 72 6f 72 20 6d 65 73 73 61 67 65 73 2c 20 53 42 43 4c 20 69 6e 63 6c 75 64 65 73 20 72 65 66 | rror.messages,.SBCL.includes.ref |
| 29aa60 | 65 72 65 6e 63 65 73 20 74 6f 20 74 68 65 20 41 4e 53 49 0a 53 74 61 6e 64 61 72 64 20 6f 72 20 | erences.to.the.ANSI.Standard.or. |
| 29aa80 | 74 68 65 20 53 42 43 4c 20 55 73 65 72 20 4d 61 6e 75 61 6c 2e 20 20 54 68 65 20 e2 80 98 73 6c | the.SBCL.User.Manual...The....sl |
| 29aaa0 | 69 6d 65 2d 72 65 66 65 72 65 6e 63 65 73 e2 80 99 20 70 61 63 6b 61 67 65 20 74 75 72 6e 73 0a | ime-references....package.turns. |
| 29aac0 | 74 68 6f 73 65 20 72 65 66 65 72 65 6e 63 65 73 20 69 6e 74 6f 20 63 6c 69 63 6b 61 62 6c 65 20 | those.references.into.clickable. |
| 29aae0 | 6c 69 6e 6b 73 2e 20 20 54 68 69 73 20 6d 61 6b 65 73 20 66 69 6e 64 69 6e 67 20 74 68 65 0a 72 | links...This.makes.finding.the.r |
| 29ab00 | 65 66 65 72 65 6e 63 65 64 20 73 65 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 48 79 70 65 72 53 70 | eferenced.section.of.the.HyperSp |
| 29ab20 | 65 63 20 6d 75 63 68 20 65 61 73 69 65 72 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 | ec.much.easier.....File:.docFDBr |
| 29ab40 | 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 58 72 65 66 20 61 6e 64 20 43 6c 61 73 73 20 42 | ww.info,..Node:.Xref.and.Class.B |
| 29ab60 | 72 6f 77 73 65 72 2c 20 20 4e 65 78 74 3a 20 48 69 67 68 6c 69 67 68 74 20 45 64 69 74 73 2c 20 | rowser,..Next:.Highlight.Edits,. |
| 29ab80 | 20 50 72 65 76 3a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 4c 69 6e 6b 73 2c 20 20 55 70 3a | .Prev:.Documentation.Links,..Up: |
| 29aba0 | 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 31 36 20 58 72 65 66 | .Contributed.Packages..8.16.Xref |
| 29abc0 | 20 61 6e 64 20 43 6c 61 73 73 20 42 72 6f 77 73 65 72 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | .and.Class.Browser.============= |
| 29abe0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 41 20 72 75 64 69 6d 65 6e 74 61 72 79 20 63 6c | ==============..A.rudimentary.cl |
| 29ac00 | 61 73 73 20 62 72 6f 77 73 65 72 20 69 73 20 70 72 6f 76 69 64 65 64 20 62 79 20 74 68 65 20 e2 | ass.browser.is.provided.by.the.. |
| 29ac20 | 80 98 73 6c 69 6d 65 2d 78 72 65 66 2d 62 72 6f 77 73 65 72 e2 80 99 0a 70 61 63 6b 61 67 65 2e | ..slime-xref-browser....package. |
| 29ac40 | 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 2d 63 6c 61 73 73 65 73 e2 80 99 | .....M-x.slime-browse-classes... |
| 29ac60 | 0a 20 20 20 20 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 61 73 6b 73 20 66 6f 72 20 61 20 63 6c | ......This.command.asks.for.a.cl |
| 29ac80 | 61 73 73 20 6e 61 6d 65 20 61 6e 64 20 64 69 73 70 6c 61 79 73 20 69 6e 68 65 72 69 74 61 6e 63 | ass.name.and.displays.inheritanc |
| 29aca0 | 65 20 74 72 65 65 20 6f 66 0a 20 20 20 20 20 66 6f 72 20 74 68 65 20 63 6c 61 73 73 2e 0a 0a e2 | e.tree.of......for.the.class.... |
| 29acc0 | 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 2d 78 72 65 66 73 e2 80 99 0a 20 20 20 20 | ..M-x.slime-browse-xrefs........ |
| 29ace0 | 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 70 72 6f 6d 70 74 73 20 66 6f 72 20 61 20 73 79 6d 62 | .This.command.prompts.for.a.symb |
| 29ad00 | 6f 6c 20 61 6e 64 20 74 68 65 20 6b 69 6e 64 20 6f 66 20 63 72 6f 73 73 20 72 65 66 65 72 65 6e | ol.and.the.kind.of.cross.referen |
| 29ad20 | 63 65 2c 0a 20 20 20 20 20 65 2e 67 2e 20 20 63 61 6c 6c 65 72 73 2e 20 20 54 68 65 20 63 72 6f | ce,......e.g...callers...The.cro |
| 29ad40 | 73 73 20 72 65 66 65 72 65 6e 63 65 20 74 72 65 65 20 72 6f 6f 74 65 64 20 61 74 20 74 68 65 20 | ss.reference.tree.rooted.at.the. |
| 29ad60 | 73 79 6d 62 6f 6c 20 69 73 0a 20 20 20 20 20 74 68 65 6e 20 74 68 65 6e 20 64 69 73 70 6c 61 79 | symbol.is......then.then.display |
| 29ad80 | 65 64 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f | ed.....File:.docFDBrww.info,..No |
| 29ada0 | 64 65 3a 20 48 69 67 68 6c 69 67 68 74 20 45 64 69 74 73 2c 20 20 4e 65 78 74 3a 20 53 63 72 61 | de:.Highlight.Edits,..Next:.Scra |
| 29adc0 | 74 63 68 20 42 75 66 66 65 72 2c 20 20 50 72 65 76 3a 20 58 72 65 66 20 61 6e 64 20 43 6c 61 73 | tch.Buffer,..Prev:.Xref.and.Clas |
| 29ade0 | 73 20 42 72 6f 77 73 65 72 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b | s.Browser,..Up:.Contributed.Pack |
| 29ae00 | 61 67 65 73 0a 0a 38 2e 31 37 20 48 69 67 68 6c 69 67 68 74 20 45 64 69 74 73 0a 3d 3d 3d 3d 3d | ages..8.17.Highlight.Edits.===== |
| 29ae20 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a e2 80 98 73 6c 69 6d 65 2d 68 69 67 68 6c 69 | ===============.....slime-highli |
| 29ae40 | 67 68 74 2d 65 64 69 74 73 e2 80 99 20 69 73 20 61 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 74 6f 20 | ght-edits....is.a.minor.mode.to. |
| 29ae60 | 68 69 67 68 6c 69 67 68 74 20 74 68 6f 73 65 20 72 65 67 69 6f 6e 73 20 69 6e 20 61 0a 4c 69 73 | highlight.those.regions.in.a.Lis |
| 29ae80 | 70 20 73 6f 75 72 63 65 20 66 69 6c 65 20 77 68 69 63 68 20 61 72 65 20 6d 6f 64 69 66 69 65 64 | p.source.file.which.are.modified |
| 29aea0 | 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 74 6f 20 71 75 69 63 6b 6c 79 20 66 69 6e | ...This.is.useful.to.quickly.fin |
| 29aec0 | 64 0a 74 68 6f 73 65 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 6e 65 65 64 20 74 6f 20 | d.those.functions.which.need.to. |
| 29aee0 | 62 65 20 72 65 63 6f 6d 70 69 6c 65 64 20 28 77 69 74 68 20 e2 80 98 43 2d 63 20 43 2d 63 e2 80 | be.recompiled.(with....C-c.C-c.. |
| 29af00 | 99 29 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 69 74 73 | .).....M-x.slime-highlight-edits |
| 29af20 | 2d 6d 6f 64 65 e2 80 99 0a 20 20 20 20 20 54 75 72 6e 73 20 e2 80 98 73 6c 69 6d 65 2d 68 69 67 | -mode.........Turns....slime-hig |
| 29af40 | 68 6c 69 67 68 74 2d 65 64 69 74 73 2d 6d 6f 64 65 e2 80 99 20 6f 6e 20 6f 72 20 6f 66 66 2e 0a | hlight-edits-mode....on.or.off.. |
| 29af60 | 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 | ...File:.docFDBrww.info,..Node:. |
| 29af80 | 53 63 72 61 74 63 68 20 42 75 66 66 65 72 2c 20 20 4e 65 78 74 3a 20 53 4c 49 4d 45 20 54 72 61 | Scratch.Buffer,..Next:.SLIME.Tra |
| 29afa0 | 63 65 20 44 69 61 6c 6f 67 2c 20 20 50 72 65 76 3a 20 48 69 67 68 6c 69 67 68 74 20 45 64 69 74 | ce.Dialog,..Prev:.Highlight.Edit |
| 29afc0 | 73 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e | s,..Up:.Contributed.Packages..8. |
| 29afe0 | 31 38 20 53 63 72 61 74 63 68 20 42 75 66 66 65 72 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | 18.Scratch.Buffer.============== |
| 29b000 | 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 53 4c 49 4d 45 20 73 63 72 61 74 63 68 20 62 75 66 66 65 72 2c | =====..The.SLIME.scratch.buffer, |
| 29b020 | 20 69 6e 20 63 6f 6e 74 72 69 62 20 70 61 63 6b 61 67 65 20 e2 80 98 73 6c 69 6d 65 2d 73 63 72 | .in.contrib.package....slime-scr |
| 29b040 | 61 74 63 68 e2 80 99 2c 20 69 6d 69 74 61 74 65 73 0a 45 6d 61 63 73 e2 80 99 20 75 73 75 61 6c | atch...,.imitates.Emacs....usual |
| 29b060 | 20 e2 80 98 2a 73 63 72 61 74 63 68 2a e2 80 99 20 62 75 66 66 65 72 2e 20 20 49 66 20 e2 80 98 | ....*scratch*....buffer...If.... |
| 29b080 | 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 2d 66 69 6c 65 e2 80 99 20 69 73 20 73 65 74 2c 20 69 74 | slime-scratch-file....is.set,.it |
| 29b0a0 | 20 69 73 0a 75 73 65 64 20 74 6f 20 62 61 63 6b 20 74 68 65 20 73 63 72 61 74 63 68 20 62 75 66 | .is.used.to.back.the.scratch.buf |
| 29b0c0 | 66 65 72 2c 20 6d 61 6b 69 6e 67 20 69 74 20 70 65 72 73 69 73 74 65 6e 74 2e 20 20 54 68 65 20 | fer,.making.it.persistent...The. |
| 29b0e0 | 62 75 66 66 65 72 20 69 73 0a 6c 69 6b 65 20 61 6e 79 20 6f 74 68 65 72 20 4c 69 73 70 20 62 75 | buffer.is.like.any.other.Lisp.bu |
| 29b100 | 66 66 65 72 2c 20 65 78 63 65 70 74 20 66 6f 72 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 62 6f 75 | ffer,.except.for.the.command.bou |
| 29b120 | 6e 64 20 74 6f 20 e2 80 98 43 2d 6a e2 80 99 2e 0a 0a e2 80 98 43 2d 6a e2 80 99 0a e2 80 98 4d | nd.to....C-j.........C-j.......M |
| 29b140 | 2d 78 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 | -x.slime-eval-print-last-express |
| 29b160 | 69 6f 6e e2 80 99 0a 20 20 20 20 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 65 78 70 72 65 73 73 | ion.........Evaluate.the.express |
| 29b180 | 69 6f 6e 20 73 65 78 70 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 20 61 6e 64 20 69 6e 73 65 72 74 | ion.sexp.before.point.and.insert |
| 29b1a0 | 20 70 72 69 6e 74 20 76 61 6c 75 65 0a 20 20 20 20 20 69 6e 74 6f 20 74 68 65 20 63 75 72 72 65 | .print.value......into.the.curre |
| 29b1c0 | 6e 74 20 62 75 66 66 65 72 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 | nt.buffer......M-x.slime-scratch |
| 29b1e0 | e2 80 99 0a 20 20 20 20 20 43 72 65 61 74 65 20 61 20 e2 80 98 2a 73 6c 69 6d 65 2d 73 63 72 61 | .........Create.a....*slime-scra |
| 29b200 | 74 63 68 2a e2 80 99 20 62 75 66 66 65 72 2e 20 20 49 6e 20 74 68 69 73 20 62 75 66 66 65 72 20 | tch*....buffer...In.this.buffer. |
| 29b220 | 79 6f 75 20 63 61 6e 20 65 6e 74 65 72 0a 20 20 20 20 20 4c 69 73 70 20 65 78 70 72 65 73 73 69 | you.can.enter......Lisp.expressi |
| 29b240 | 6f 6e 73 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 74 68 65 6d 20 77 69 74 68 20 e2 80 98 43 2d | ons.and.evaluate.them.with....C- |
| 29b260 | 6a e2 80 99 2c 20 6c 69 6b 65 20 69 6e 20 45 6d 61 63 73 e2 80 99 73 0a 20 20 20 20 20 e2 80 98 | j...,.like.in.Emacs...s......... |
| 29b280 | 2a 73 63 72 61 74 63 68 2a e2 80 99 20 62 75 66 66 65 72 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f | *scratch*....buffer.....File:.do |
| 29b2a0 | 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 53 4c 49 4d 45 20 54 72 61 63 65 | cFDBrww.info,..Node:.SLIME.Trace |
| 29b2c0 | 20 44 69 61 6c 6f 67 2c 20 20 4e 65 78 74 3a 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2c 20 20 50 72 | .Dialog,..Next:.slime-sprof,..Pr |
| 29b2e0 | 65 76 3a 20 53 63 72 61 74 63 68 20 42 75 66 66 65 72 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 | ev:.Scratch.Buffer,..Up:.Contrib |
| 29b300 | 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 31 39 20 53 4c 49 4d 45 20 54 72 61 63 65 20 | uted.Packages..8.19.SLIME.Trace. |
| 29b320 | 44 69 61 6c 6f 67 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a | Dialog.=======================.. |
| 29b340 | 54 68 65 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 2c 20 69 6e 20 70 61 63 6b 61 | The.SLIME.Trace.Dialog,.in.packa |
| 29b360 | 67 65 20 e2 80 98 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 e2 80 99 2c 20 69 73 20 | ge....slime-trace-dialog...,.is. |
| 29b380 | 61 20 74 72 61 63 69 6e 67 0a 66 61 63 69 6c 69 74 79 2c 20 73 69 6d 69 6c 61 72 20 74 6f 20 43 | a.tracing.facility,.similar.to.C |
| 29b3a0 | 6f 6d 6d 6f 6e 20 4c 69 73 70 e2 80 99 73 20 e2 80 98 74 72 61 63 65 e2 80 99 2c 20 62 75 74 20 | ommon.Lisp...s....trace...,.but. |
| 29b3c0 | 69 6e 74 65 72 61 63 74 69 76 65 20 72 61 74 68 65 72 20 74 68 61 6e 0a 70 75 72 65 6c 79 20 74 | interactive.rather.than.purely.t |
| 29b3e0 | 65 78 74 75 61 6c 2e 20 20 49 74 20 69 73 20 61 6e 20 45 6d 61 63 73 20 32 34 2d 6f 6e 6c 79 20 | extual...It.is.an.Emacs.24-only. |
| 29b400 | 63 6f 6e 74 72 69 62 2e 0a 0a 20 20 20 59 6f 75 20 75 73 65 20 69 74 20 6a 75 73 74 20 6c 69 6b | contrib......You.use.it.just.lik |
| 29b420 | 65 20 79 6f 75 20 77 6f 75 6c 64 20 72 65 67 75 6c 61 72 20 e2 80 98 74 72 61 63 65 e2 80 99 3a | e.you.would.regular....trace...: |
| 29b440 | 20 61 66 74 65 72 20 74 72 61 63 69 6e 67 20 61 0a 66 75 6e 63 74 69 6f 6e 2c 20 63 61 6c 6c 69 | .after.tracing.a.function,.calli |
| 29b460 | 6e 67 20 69 74 20 63 61 75 73 65 73 20 69 6e 74 65 72 65 73 74 69 6e 67 20 69 6e 66 6f 72 6d 61 | ng.it.causes.interesting.informa |
| 29b480 | 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 61 74 0a 70 61 72 74 69 63 75 6c 61 72 20 63 61 6c 6c 20 | tion.about.that.particular.call. |
| 29b4a0 | 74 6f 20 62 65 20 72 65 70 6f 72 74 65 64 2e 0a 0a 20 20 20 48 6f 77 65 76 65 72 2c 20 69 6e 73 | to.be.reported......However,.ins |
| 29b4c0 | 74 65 61 64 20 6f 66 20 70 72 69 6e 74 69 6e 67 20 74 68 65 20 74 72 61 63 65 20 72 65 73 75 6c | tead.of.printing.the.trace.resul |
| 29b4e0 | 74 73 20 74 6f 20 74 68 65 20 74 68 65 0a e2 80 98 2a 74 72 61 63 65 2d 6f 75 74 70 75 74 2a e2 | ts.to.the.the....*trace-output*. |
| 29b500 | 80 99 20 73 74 72 65 61 6d 20 28 75 73 75 61 6c 6c 79 20 74 68 65 20 52 45 50 4c 29 2c 20 74 68 | ...stream.(usually.the.REPL),.th |
| 29b520 | 65 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 0a 63 6f 6c 6c 65 63 74 73 20 61 6e | e.SLIME.Trace.Dialog.collects.an |
| 29b540 | 64 20 73 74 6f 72 65 73 20 74 68 65 6d 20 69 6e 20 79 6f 75 72 20 6c 69 73 70 20 65 6e 76 69 72 | d.stores.them.in.your.lisp.envir |
| 29b560 | 6f 6e 6d 65 6e 74 20 75 6e 74 69 6c 2c 20 6f 6e 20 75 73 65 72 e2 80 99 73 0a 72 65 71 75 65 73 | onment.until,.on.user...s.reques |
| 29b580 | 74 2c 20 74 68 65 79 20 61 72 65 20 66 65 74 63 68 65 64 20 69 6e 74 6f 20 45 6d 61 63 73 20 61 | t,.they.are.fetched.into.Emacs.a |
| 29b5a0 | 6e 64 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 61 20 64 69 61 6c 6f 67 2d 6c 69 6b 65 0a 69 6e | nd.displayed.in.a.dialog-like.in |
| 29b5c0 | 74 65 72 61 63 74 69 76 65 20 76 69 65 77 2e 0a 0a 20 20 20 41 66 74 65 72 20 73 74 61 72 74 69 | teractive.view......After.starti |
| 29b5e0 | 6e 67 20 75 70 20 53 4c 49 4d 45 2c 20 53 4c 49 4d 45 e2 80 99 73 20 54 72 61 63 65 20 44 69 61 | ng.up.SLIME,.SLIME...s.Trace.Dia |
| 29b600 | 6c 6f 67 20 69 6e 73 74 61 6c 6c 73 20 61 20 5f 54 72 61 63 65 5f 20 6d 65 6e 75 0a 69 6e 20 74 | log.installs.a._Trace_.menu.in.t |
| 29b620 | 68 65 20 6d 65 6e 75 2d 62 61 72 20 6f 66 20 61 6e 79 20 e2 80 98 73 6c 69 6d 65 2d 6d 6f 64 65 | he.menu-bar.of.any....slime-mode |
| 29b640 | e2 80 99 20 62 75 66 66 65 72 20 61 6e 64 20 61 64 64 73 20 74 77 6f 20 6e 65 77 20 63 6f 6d 6d | ....buffer.and.adds.two.new.comm |
| 29b660 | 61 6e 64 73 2c 0a 77 69 74 68 20 72 65 73 70 65 63 74 69 76 65 20 6b 65 79 2d 62 69 6e 64 69 6e | ands,.with.respective.key-bindin |
| 29b680 | 67 73 3a 0a 0a e2 80 98 43 2d 63 20 4d 2d 74 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d | gs:.....C-c.M-t.......M-x.slime- |
| 29b6a0 | 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 e2 80 99 0a 20 20 20 | trace-dialog-toggle-trace....... |
| 29b6c0 | 20 20 49 66 20 70 6f 69 6e 74 20 69 73 20 6f 6e 20 61 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 2c 20 | ..If.point.is.on.a.symbol.name,. |
| 29b6e0 | 74 6f 67 67 6c 65 20 74 72 61 63 69 6e 67 20 6f 66 20 69 74 73 20 66 75 6e 63 74 69 6f 6e 0a 20 | toggle.tracing.of.its.function.. |
| 29b700 | 20 20 20 20 64 65 66 69 6e 69 74 69 6f 6e 2e 20 20 49 66 20 70 6f 69 6e 74 20 69 73 20 6e 6f 74 | ....definition...If.point.is.not |
| 29b720 | 20 6f 6e 20 61 20 73 79 6d 62 6f 6c 2c 20 70 72 6f 6d 70 74 20 75 73 65 72 20 66 6f 72 20 61 0a | .on.a.symbol,.prompt.user.for.a. |
| 29b740 | 20 20 20 20 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 20 20 20 20 20 57 69 74 68 20 61 20 e2 80 98 43 | .....function........With.a....C |
| 29b760 | 2d 75 e2 80 99 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 61 6e 64 20 69 66 20 79 6f | -u....prefix.argument,.and.if.yo |
| 29b780 | 75 72 20 6c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 20 20 20 20 20 61 6c 6c 6f | ur.lisp.implementation......allo |
| 29b7a0 | 77 73 20 69 74 2c 20 61 74 74 65 6d 70 74 20 74 6f 20 64 65 63 69 70 68 65 72 20 6c 61 6d 62 64 | ws.it,.attempt.to.decipher.lambd |
| 29b7c0 | 61 73 2c 20 6d 65 74 68 6f 64 73 20 61 6e 64 20 6f 74 68 65 72 0a 20 20 20 20 20 63 6f 6d 70 6c | as,.methods.and.other......compl |
| 29b7e0 | 69 63 61 74 65 64 20 66 75 6e 63 74 69 6f 6e 20 73 69 67 6e 61 74 75 72 65 73 2e 0a 0a 20 20 20 | icated.function.signatures...... |
| 29b800 | 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 74 72 61 63 65 64 20 66 6f 72 20 74 68 65 | ..The.function.is.traced.for.the |
| 29b820 | 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 20 6f 6e 6c 79 2c 20 69 2e 65 2e 20 20 | .SLIME.Trace.Dialog.only,.i.e... |
| 29b840 | 69 74 20 69 73 0a 20 20 20 20 20 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 74 68 65 20 6c 69 73 74 | it.is......not.found.in.the.list |
| 29b860 | 20 72 65 74 75 72 6e 65 64 20 62 79 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 e2 80 99 73 20 e2 80 98 | .returned.by.Common.Lisp...s.... |
| 29b880 | 74 72 61 63 65 e2 80 99 2e 0a 0a e2 80 98 43 2d 63 20 54 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c | trace.........C-c.T.......M-x.sl |
| 29b8a0 | 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 e2 80 99 0a 20 20 20 20 20 50 6f 70 20 74 6f 20 | ime-trace-dialog.........Pop.to. |
| 29b8c0 | 74 68 65 20 69 6e 74 65 72 61 63 74 69 76 65 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c | the.interactive.SLIME.Trace.Dial |
| 29b8e0 | 6f 67 20 62 75 66 66 65 72 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 0a 20 20 20 20 20 74 | og.buffer.associated.with......t |
| 29b900 | 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 2a 6e 6f 74 65 20 4d 75 6c | he.current.connection.(*note.Mul |
| 29b920 | 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 3a 3a 29 2e 0a 0a 20 20 20 43 6f 6e 73 69 64 | tiple.connections::)......Consid |
| 29b940 | 65 72 20 74 68 65 20 28 75 73 65 6c 65 73 73 29 20 70 72 6f 67 72 61 6d 3a 0a 0a 20 20 20 20 20 | er.the.(useless).program:....... |
| 29b960 | 28 64 65 66 75 6e 20 66 6f 6f 20 28 6e 29 20 28 69 66 20 28 70 6c 75 73 70 20 6e 29 20 28 2a 20 | (defun.foo.(n).(if.(plusp.n).(*. |
| 29b980 | 6e 20 28 62 61 72 20 28 31 2d 20 6e 29 29 29 20 31 29 29 0a 20 20 20 20 20 28 64 65 66 75 6e 20 | n.(bar.(1-.n))).1))......(defun. |
| 29b9a0 | 62 61 72 20 28 6e 29 20 28 69 66 20 28 70 6c 75 73 70 20 6e 29 20 28 2a 20 6e 20 28 66 6f 6f 20 | bar.(n).(if.(plusp.n).(*.n.(foo. |
| 29b9c0 | 28 31 2d 20 6e 29 29 29 20 31 29 29 0a 0a 20 20 20 41 66 74 65 72 20 74 72 61 63 69 6e 67 20 62 | (1-.n))).1)).....After.tracing.b |
| 29b9e0 | 6f 74 68 20 e2 80 98 66 6f 6f e2 80 99 20 61 6e 64 20 e2 80 98 62 61 72 e2 80 99 20 77 69 74 68 | oth....foo....and....bar....with |
| 29ba00 | 20 e2 80 98 43 2d 63 20 4d 2d 74 e2 80 99 2c 20 63 61 6c 6c 69 6e 67 20 63 61 6c 6c 20 e2 80 98 | ....C-c.M-t...,.calling.call.... |
| 29ba20 | 28 66 6f 6f 0a 32 29 e2 80 99 20 61 6e 64 20 6d 6f 76 69 6e 67 20 74 6f 20 74 68 65 20 74 72 61 | (foo.2)....and.moving.to.the.tra |
| 29ba40 | 63 65 20 64 69 61 6c 6f 67 20 77 69 74 68 20 e2 80 98 43 2d 63 20 54 e2 80 99 2c 20 77 65 20 61 | ce.dialog.with....C-c.T...,.we.a |
| 29ba60 | 72 65 20 70 72 65 73 65 6e 74 65 64 20 77 69 74 68 0a 74 68 69 73 20 62 75 66 66 65 72 2e 0a 0a | re.presented.with.this.buffer... |
| 29ba80 | 20 20 20 20 20 54 72 61 63 65 64 20 73 70 65 63 73 20 28 32 29 20 20 20 20 20 20 20 20 20 20 20 | .....Traced.specs.(2)........... |
| 29baa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 72 65 66 72 65 73 68 5d | .......................[refresh] |
| 29bac0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29bae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 75 6e 74 72 61 63 65 | ........................[untrace |
| 29bb00 | 20 61 6c 6c 5d 0a 20 20 20 20 20 20 20 5b 75 6e 74 72 61 63 65 5d 20 63 6f 6d 6d 6f 6e 2d 6c 69 | .all]........[untrace].common-li |
| 29bb20 | 73 70 2d 75 73 65 72 3a 3a 62 61 72 0a 20 20 20 20 20 20 20 5b 75 6e 74 72 61 63 65 5d 20 63 6f | sp-user::bar........[untrace].co |
| 29bb40 | 6d 6d 6f 6e 2d 6c 69 73 70 2d 75 73 65 72 3a 3a 66 6f 6f 0a 0a 20 20 20 20 20 54 72 61 63 65 20 | mmon-lisp-user::foo.......Trace. |
| 29bb60 | 63 6f 6c 6c 65 63 74 69 6f 6e 20 73 74 61 74 75 73 20 28 33 2f 33 29 20 20 20 20 20 20 20 20 20 | collection.status.(3/3)......... |
| 29bb80 | 20 20 20 20 20 20 20 20 20 20 20 20 5b 72 65 66 72 65 73 68 5d 0a 20 20 20 20 20 20 20 20 20 20 | ............[refresh]........... |
| 29bba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29bbc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 63 6c 65 61 72 5d 0a 0a 20 20 20 20 20 20 20 20 30 20 | .............[clear]..........0. |
| 29bbe0 | 2d 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 75 73 65 72 3a 3a 66 6f 6f 0a 20 20 20 20 20 20 20 20 | -.common-lisp-user::foo......... |
| 29bc00 | 20 20 7c 20 3e 20 32 0a 20 20 20 20 20 20 20 20 20 20 7c 20 3c 20 32 0a 20 20 20 20 20 20 20 20 | ..|.>.2...........|.<.2......... |
| 29bc20 | 31 20 60 2d 2d 2d 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 75 73 65 72 3a 3a 62 61 72 0a 20 20 20 | 1.`---.common-lisp-user::bar.... |
| 29bc40 | 20 20 20 20 20 20 20 20 20 20 7c 20 3e 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 3c | ..........|.>.1..............|.< |
| 29bc60 | 20 31 0a 20 20 20 20 20 20 20 20 32 20 20 20 20 60 2d 2d 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d | .1.........2....`--.common-lisp- |
| 29bc80 | 75 73 65 72 3a 3a 66 6f 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3e 20 30 0a | user::foo...................>.0. |
| 29bca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 20 31 0a 0a 20 20 20 54 68 65 20 64 69 | ..................<.1.....The.di |
| 29bcc0 | 61 6c 6f 67 20 69 73 20 64 69 76 69 64 65 64 20 69 6e 74 6f 20 73 65 63 74 69 6f 6e 73 20 64 69 | alog.is.divided.into.sections.di |
| 29bce0 | 73 70 6c 61 79 69 6e 67 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 61 6c 72 65 61 64 79 0a 74 | splaying.the.functions.already.t |
| 29bd00 | 72 61 63 65 64 2c 20 74 68 65 20 74 72 61 63 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 70 72 6f 67 | raced,.the.trace.collection.prog |
| 29bd20 | 72 65 73 73 20 61 6e 64 20 74 68 65 20 61 63 74 75 61 6c 20 74 72 61 63 65 20 74 72 65 65 20 74 | ress.and.the.actual.trace.tree.t |
| 29bd40 | 68 61 74 0a 66 6f 6c 6c 6f 77 20 79 6f 75 72 20 70 72 6f 67 72 61 6d e2 80 99 73 20 6c 6f 67 69 | hat.follow.your.program...s.logi |
| 29bd60 | 63 2e 20 20 54 68 65 20 6d 6f 73 74 20 69 6d 70 6f 72 74 61 6e 74 20 6b 65 79 2d 62 69 6e 64 69 | c...The.most.important.key-bindi |
| 29bd80 | 6e 67 73 20 69 6e 20 74 68 69 73 0a 62 75 66 66 65 72 20 61 72 65 3a 0a 0a e2 80 98 67 e2 80 99 | ngs.in.this.buffer.are:.....g... |
| 29bda0 | 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 | ....M-x.slime-trace-dialog-fetch |
| 29bdc0 | 2d 73 74 61 74 75 73 e2 80 99 0a 20 20 20 20 20 55 70 64 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 | -status.........Update.informati |
| 29bde0 | 6f 6e 20 6f 6e 20 74 68 65 20 74 72 61 63 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 61 6e 64 20 74 | on.on.the.trace.collection.and.t |
| 29be00 | 72 61 63 65 64 20 73 70 65 63 73 2e 0a e2 80 98 47 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d | raced.specs.....G.......M-x.slim |
| 29be20 | 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 74 72 61 63 65 73 e2 80 99 0a 20 | e-trace-dialog-fetch-traces..... |
| 29be40 | 20 20 20 20 46 65 74 63 68 20 74 68 65 20 6e 65 78 74 20 62 61 74 63 68 20 6f 66 20 6f 75 74 73 | ....Fetch.the.next.batch.of.outs |
| 29be60 | 74 61 6e 64 69 6e 67 20 28 6e 6f 74 20 66 65 74 63 68 65 64 20 79 65 74 29 20 74 72 61 63 65 73 | tanding.(not.fetched.yet).traces |
| 29be80 | 2e 20 20 57 69 74 68 0a 20 20 20 20 20 61 20 e2 80 98 43 2d 75 e2 80 99 20 70 72 65 66 69 78 20 | ...With......a....C-u....prefix. |
| 29bea0 | 61 72 67 75 6d 65 6e 74 2c 20 72 65 70 65 61 74 20 75 6e 74 69 6c 20 6e 6f 20 6d 6f 72 65 20 6f | argument,.repeat.until.no.more.o |
| 29bec0 | 75 74 73 74 61 6e 64 69 6e 67 20 74 72 61 63 65 73 2e 0a e2 80 98 43 2d 6b e2 80 99 0a e2 80 98 | utstanding.traces.....C-k....... |
| 29bee0 | 4d 2d 78 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 63 6c 65 61 72 2d 66 65 74 | M-x.slime-trace-dialog-clear-fet |
| 29bf00 | 63 68 65 64 2d 74 72 61 63 65 73 e2 80 99 0a 20 20 20 20 20 50 72 6f 6d 70 74 20 66 6f 72 20 63 | ched-traces.........Prompt.for.c |
| 29bf20 | 6f 6e 66 69 72 6d 61 74 69 6f 6e 2c 20 74 68 65 6e 20 63 6c 65 61 72 20 61 6c 6c 20 74 72 61 63 | onfirmation,.then.clear.all.trac |
| 29bf40 | 65 73 2c 20 62 6f 74 68 20 66 65 74 63 68 65 64 20 61 6e 64 0a 20 20 20 20 20 6f 75 74 73 74 61 | es,.both.fetched.and......outsta |
| 29bf60 | 6e 64 69 6e 67 2e 0a 0a 20 20 20 54 68 65 20 61 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 72 65 74 | nding......The.arguments.and.ret |
| 29bf80 | 75 72 6e 20 76 61 6c 75 65 73 20 62 65 6c 6f 77 20 65 61 63 68 20 65 6e 74 72 79 20 61 72 65 20 | urn.values.below.each.entry.are. |
| 29bfa0 | 69 6e 74 65 72 61 63 74 69 76 65 0a 62 75 74 74 6f 6e 73 2e 20 20 43 6c 69 63 6b 69 6e 67 20 74 | interactive.buttons...Clicking.t |
| 29bfc0 | 68 65 6d 20 6f 70 65 6e 73 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 28 2a 6e 6f 74 65 20 49 | hem.opens.the.inspector.(*note.I |
| 29bfe0 | 6e 73 70 65 63 74 6f 72 3a 3a 29 2e 0a 49 6e 76 6f 6b 69 6e 67 20 e2 80 98 4d 2d 52 45 54 e2 80 | nspector::)..Invoking....M-RET.. |
| 29c000 | 99 20 28 e2 80 98 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 63 6f 70 79 2d 64 6f | ..(...slime-trace-dialog-copy-do |
| 29c020 | 77 6e 2d 74 6f 2d 72 65 70 6c e2 80 99 29 20 72 65 74 75 72 6e 73 20 74 68 65 6d 0a 74 6f 20 74 | wn-to-repl...).returns.them.to.t |
| 29c040 | 68 65 20 52 45 50 4c 20 66 6f 72 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 20 28 2a 6e 6f 74 65 20 | he.REPL.for.manipulation.(*note. |
| 29c060 | 52 45 50 4c 3a 3a 29 2e 20 20 54 68 65 20 6e 75 6d 62 65 72 20 6c 65 66 74 20 6f 66 20 65 61 63 | REPL::)...The.number.left.of.eac |
| 29c080 | 68 0a 65 6e 74 72 79 20 69 6e 64 69 63 61 74 65 73 20 69 74 73 20 61 62 73 6f 6c 75 74 65 20 70 | h.entry.indicates.its.absolute.p |
| 29c0a0 | 6f 73 69 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 6f 72 64 65 72 2c 20 77 68 | osition.in.the.calling.order,.wh |
| 29c0c0 | 69 63 68 20 6d 69 67 68 74 0a 64 69 66 66 65 72 20 66 72 6f 6d 20 64 69 73 70 6c 61 79 20 6f 72 | ich.might.differ.from.display.or |
| 29c0e0 | 64 65 72 20 69 6e 20 63 61 73 65 20 6d 75 6c 74 69 70 6c 65 20 74 68 72 65 61 64 73 20 63 61 6c | der.in.case.multiple.threads.cal |
| 29c100 | 6c 20 74 68 65 20 73 61 6d 65 20 74 72 61 63 65 64 0a 66 75 6e 63 74 69 6f 6e 2e 0a 0a 20 20 20 | l.the.same.traced.function...... |
| 29c120 | e2 80 98 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 68 69 64 65 2d 64 65 74 61 69 | ...slime-trace-dialog-hide-detai |
| 29c140 | 6c 73 2d 6d 6f 64 65 e2 80 99 20 68 69 64 65 73 20 61 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 72 | ls-mode....hides.arguments.and.r |
| 29c160 | 65 74 75 72 6e 0a 76 61 6c 75 65 73 20 73 6f 20 79 6f 75 20 63 61 6e 20 63 6f 6e 63 65 6e 74 72 | eturn.values.so.you.can.concentr |
| 29c180 | 61 74 65 20 6f 6e 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 6c 6f 67 69 63 2e 20 20 41 64 64 69 74 | ate.on.the.calling.logic...Addit |
| 29c1a0 | 69 6f 6e 61 6c 6c 79 2c 0a e2 80 98 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 61 | ionally,....slime-trace-dialog-a |
| 29c1c0 | 75 74 6f 66 6f 6c 6c 6f 77 2d 6d 6f 64 65 e2 80 99 20 77 69 6c 6c 20 61 75 74 6f 6d 61 74 69 63 | utofollow-mode....will.automatic |
| 29c1e0 | 61 6c 6c 79 20 64 69 73 70 6c 61 79 0a 61 64 64 69 74 69 6f 6e 61 6c 20 64 65 74 61 69 6c 20 61 | ally.display.additional.detail.a |
| 29c200 | 62 6f 75 74 20 61 6e 20 65 6e 74 72 79 20 77 68 65 6e 20 74 68 65 20 63 75 72 73 6f 72 20 6d 6f | bout.an.entry.when.the.cursor.mo |
| 29c220 | 76 65 73 20 6f 76 65 72 20 69 74 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e | ves.over.it.....File:.docFDBrww. |
| 29c240 | 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2c 20 20 4e 65 78 74 3a | info,..Node:.slime-sprof,..Next: |
| 29c260 | 20 53 4c 49 4d 45 20 45 6e 68 61 6e 63 65 64 20 4d 2d 2e 2c 20 20 50 72 65 76 3a 20 53 4c 49 4d | .SLIME.Enhanced.M-.,..Prev:.SLIM |
| 29c280 | 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 | E.Trace.Dialog,..Up:.Contributed |
| 29c2a0 | 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 32 30 20 e2 80 98 73 6c 69 6d 65 2d 73 70 72 6f 66 e2 80 | .Packages..8.20....slime-sprof.. |
| 29c2c0 | 99 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a e2 80 98 73 6c 69 6d 65 2d 73 | ..==================.....slime-s |
| 29c2e0 | 70 72 6f 66 e2 80 99 20 69 73 20 61 20 70 61 63 6b 61 67 65 20 66 6f 72 20 69 6e 74 65 67 72 61 | prof....is.a.package.for.integra |
| 29c300 | 74 69 6e 67 20 53 42 43 4c e2 80 99 73 20 73 74 61 74 69 73 74 69 63 61 6c 20 70 72 6f 66 69 6c | ting.SBCL...s.statistical.profil |
| 29c320 | 65 72 2c 0a 73 62 2d 73 70 72 6f 66 2e 0a 0a 20 20 20 54 68 65 20 76 61 72 69 61 62 6c 65 20 e2 | er,.sb-sprof......The.variable.. |
| 29c340 | 80 98 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 65 78 63 6c 75 64 65 2d 73 77 61 6e 6b e2 80 99 20 63 | ..slime-sprof-exclude-swank....c |
| 29c360 | 6f 6e 74 72 6f 6c 73 20 77 68 65 74 68 65 72 20 74 6f 20 64 69 73 70 6c 61 79 0a 73 77 61 6e 6b | ontrols.whether.to.display.swank |
| 29c380 | 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 69 | .functions...The.default.value.i |
| 29c3a0 | 73 20 4e 49 4c 2e 0a 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 74 61 72 74 | s.NIL......M-x.slime-sprof-start |
| 29c3c0 | e2 80 99 0a 20 20 20 20 20 53 74 61 72 74 20 70 72 6f 66 69 6c 69 6e 67 2e 0a 0a e2 80 98 4d 2d | .........Start.profiling......M- |
| 29c3e0 | 78 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 74 6f 70 e2 80 99 0a 20 20 20 20 20 53 74 6f 70 20 | x.slime-sprof-stop.........Stop. |
| 29c400 | 70 72 6f 66 69 6c 69 6e 67 2e 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 72 65 | profiling.....M-x.slime-sprof-re |
| 29c420 | 70 6f 72 74 e2 80 99 0a 20 20 20 20 20 52 65 70 6f 72 74 20 72 65 73 75 6c 74 73 20 6f 66 20 74 | port.........Report.results.of.t |
| 29c440 | 68 65 20 70 72 6f 66 69 6c 69 6e 67 2e 0a 0a 20 20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 | he.profiling......The.following. |
| 29c460 | 6b 65 79 73 20 61 72 65 20 64 65 66 69 6e 65 64 20 69 6e 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d | keys.are.defined.in.slime-sprof- |
| 29c480 | 62 72 6f 77 73 65 72 20 6d 6f 64 65 3a 0a 0a e2 80 98 52 45 54 e2 80 99 0a e2 80 98 4d 2d 78 20 | browser.mode:.....RET.......M-x. |
| 29c4a0 | 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 74 6f 67 67 6c 65 e2 80 99 0a 20 20 | slime-sprof-browser-toggle...... |
| 29c4c0 | 20 20 20 45 78 70 61 6e 64 20 2f 20 63 6f 6c 6c 61 70 73 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 | ...Expand./.collapse.function.de |
| 29c4e0 | 74 61 69 6c 73 20 28 63 61 6c 6c 65 72 73 2c 20 63 61 6c 6c 73 20 74 6f 29 0a e2 80 98 76 e2 80 | tails.(callers,.calls.to)....v.. |
| 29c500 | 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 76 69 65 | .....M-x.slime-sprof-browser-vie |
| 29c520 | 77 2d 73 6f 75 72 63 65 e2 80 99 0a 20 20 20 20 20 56 69 65 77 20 66 75 6e 63 74 69 6f 6e 20 73 | w-source.........View.function.s |
| 29c540 | 6f 75 72 63 65 73 2e 0a e2 80 98 64 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 73 70 72 | ources.....d.......M-x.slime-spr |
| 29c560 | 6f 66 2d 62 72 6f 77 73 65 72 2d 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 75 6e 63 74 69 6f 6e e2 | of-browser-disassemble-function. |
| 29c580 | 80 99 0a 20 20 20 20 20 44 69 73 61 73 73 65 6d 62 6c 65 20 66 75 6e 63 74 69 6f 6e 2e 0a e2 80 | ........Disassemble.function.... |
| 29c5a0 | 98 73 e2 80 99 0a e2 80 98 4d 2d 78 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 74 6f 67 67 6c 65 2d | .s.......M-x.slime-sprof-toggle- |
| 29c5c0 | 73 77 61 6e 6b 2d 65 78 63 6c 75 73 69 6f 6e e2 80 99 0a 20 20 20 20 20 54 6f 67 67 6c 65 20 65 | swank-exclusion.........Toggle.e |
| 29c5e0 | 78 63 6c 75 73 69 6f 6e 20 6f 66 20 73 77 61 6e 6b 20 66 75 6e 63 74 69 6f 6e 73 20 66 72 6f 6d | xclusion.of.swank.functions.from |
| 29c600 | 20 74 68 65 20 72 65 70 6f 72 74 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e | .the.report.....File:.docFDBrww. |
| 29c620 | 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 53 4c 49 4d 45 20 45 6e 68 61 6e 63 65 64 20 4d 2d 2e 2c | info,..Node:.SLIME.Enhanced.M-., |
| 29c640 | 20 20 4e 65 78 74 3a 20 73 6c 69 6d 65 2d 66 61 6e 63 79 2c 20 20 50 72 65 76 3a 20 73 6c 69 6d | ..Next:.slime-fancy,..Prev:.slim |
| 29c660 | 65 2d 73 70 72 6f 66 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 | e-sprof,..Up:.Contributed.Packag |
| 29c680 | 65 73 0a 0a 38 2e 32 31 20 53 4c 49 4d 45 20 45 6e 68 61 6e 63 65 64 20 4d 2d 2e 0a 3d 3d 3d 3d | es..8.21.SLIME.Enhanced.M-..==== |
| 29c6a0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a e2 80 98 73 6c 69 6d 65 2d 6d 64 | ===================.....slime-md |
| 29c6c0 | 6f 74 2d 66 75 e2 80 99 20 65 6e 61 62 6c 65 73 20 6d 65 74 61 2d 70 6f 69 6e 74 20 74 6f 20 6a | ot-fu....enables.meta-point.to.j |
| 29c6e0 | 75 6d 70 20 74 6f 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 62 6f 75 6e 64 20 77 69 74 | ump.to.local.variables.bound.wit |
| 29c700 | 68 0a e2 80 98 6c 65 74 e2 80 99 20 61 6e 64 20 e2 80 98 6c 65 74 2a e2 80 99 2c 20 69 6e 20 61 | h....let....and....let*...,.in.a |
| 29c720 | 64 64 69 74 69 6f 6e 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20 62 69 6e 64 69 6e 67 73 20 64 65 63 | ddition.to.function.bindings.dec |
| 29c740 | 6c 61 72 65 64 20 77 69 74 68 20 e2 80 98 66 6c 65 74 e2 80 99 0a 61 6e 64 20 e2 80 98 6c 61 62 | lared.with....flet....and....lab |
| 29c760 | 65 6c 73 e2 80 99 2c 20 76 69 61 20 e2 80 98 73 6c 69 6d 65 2d 65 64 69 74 2d 6c 6f 63 61 6c 2d | els...,.via....slime-edit-local- |
| 29c780 | 64 65 66 69 6e 69 74 69 6f 6e e2 80 99 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 | definition........File:.docFDBrw |
| 29c7a0 | 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 73 6c 69 6d 65 2d 66 61 6e 63 79 2c 20 20 4e 65 78 | w.info,..Node:.slime-fancy,..Nex |
| 29c7c0 | 74 3a 20 51 75 69 63 6b 6c 69 73 70 2c 20 20 50 72 65 76 3a 20 53 4c 49 4d 45 20 45 6e 68 61 6e | t:.Quicklisp,..Prev:.SLIME.Enhan |
| 29c7e0 | 63 65 64 20 4d 2d 2e 2c 20 20 55 70 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 | ced.M-.,..Up:.Contributed.Packag |
| 29c800 | 65 73 0a 0a 38 2e 32 32 20 4d 65 74 61 20 70 61 63 6b 61 67 65 3a 20 e2 80 98 73 6c 69 6d 65 2d | es..8.22.Meta.package:....slime- |
| 29c820 | 66 61 6e 63 79 e2 80 99 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | fancy....======================= |
| 29c840 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a e2 80 98 73 6c 69 6d 65 2d 66 61 6e 63 79 e2 80 99 20 69 73 20 | =========.....slime-fancy....is. |
| 29c860 | 61 20 6d 65 74 61 20 70 61 63 6b 61 67 65 20 77 68 69 63 68 20 6c 6f 61 64 73 20 61 20 63 6f 6d | a.meta.package.which.loads.a.com |
| 29c880 | 62 69 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6d 6f 73 74 0a 70 6f 70 75 6c 61 72 20 70 61 63 | bination.of.the.most.popular.pac |
| 29c8a0 | 6b 61 67 65 73 2e 20 20 49 74 20 69 73 20 74 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 | kages...It.is.the.default.value. |
| 29c8c0 | 6f 66 20 e2 80 98 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 73 e2 80 99 2c 20 74 68 75 73 20 69 74 | of....slime-contribs...,.thus.it |
| 29c8e0 | 0a 69 73 20 6c 6f 61 64 65 64 20 62 79 20 64 65 66 61 75 6c 74 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 | .is.loaded.by.default.....File:. |
| 29c900 | 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 51 75 69 63 6b 6c 69 73 70 | docFDBrww.info,..Node:.Quicklisp |
| 29c920 | 2c 20 20 50 72 65 76 3a 20 73 6c 69 6d 65 2d 66 61 6e 63 79 2c 20 20 55 70 3a 20 43 6f 6e 74 72 | ,..Prev:.slime-fancy,..Up:.Contr |
| 29c940 | 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 0a 0a 38 2e 32 33 20 51 75 69 63 6b 6c 69 73 70 0a | ibuted.Packages..8.23.Quicklisp. |
| 29c960 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 20 70 61 63 6b 61 67 65 20 e2 80 98 73 | ==============..The.package....s |
| 29c980 | 6c 69 6d 65 2d 71 75 69 63 6b 6c 69 73 70 e2 80 99 20 61 64 64 73 20 73 75 70 70 6f 72 74 20 66 | lime-quicklisp....adds.support.f |
| 29c9a0 | 6f 72 20 6c 6f 61 64 69 6e 67 20 51 75 69 63 6b 6c 69 73 70 20 73 79 73 74 65 6d 73 0a 69 6e 20 | or.loading.Quicklisp.systems.in. |
| 29c9c0 | 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 2e 20 20 49 6e 20 6f 72 64 65 72 20 66 6f 72 20 74 | the.REPL.buffer...In.order.for.t |
| 29c9e0 | 68 69 73 20 74 6f 20 77 6f 72 6b 2c 20 51 75 69 63 6b 6c 69 73 70 20 73 68 6f 75 6c 64 20 68 61 | his.to.work,.Quicklisp.should.ha |
| 29ca00 | 76 65 0a 61 6c 72 65 61 64 79 20 62 65 65 6e 20 6c 6f 61 64 65 64 20 69 6e 20 74 68 65 20 4c 69 | ve.already.been.loaded.in.the.Li |
| 29ca20 | 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 52 65 66 65 72 20 74 6f 0a 3c 68 74 | sp.implementation...Refer.to.<ht |
| 29ca40 | 74 70 73 3a 2f 2f 77 77 77 2e 71 75 69 63 6b 6c 69 73 70 2e 6f 72 67 2f 3e 20 66 6f 72 20 51 75 | tps://www.quicklisp.org/>.for.Qu |
| 29ca60 | 69 63 6b 6c 69 73 70 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e 20 64 65 74 61 69 6c 73 2e 0a 0a 20 | icklisp.installation.details.... |
| 29ca80 | 20 20 54 68 65 20 70 61 63 6b 61 67 65 20 69 6e 73 74 61 6c 6c 73 20 74 68 65 20 66 6f 6c 6c 6f | ..The.package.installs.the.follo |
| 29caa0 | 77 69 6e 67 20 52 45 50 4c 20 73 68 6f 72 74 63 75 74 73 20 28 2a 6e 6f 74 65 0a 53 68 6f 72 74 | wing.REPL.shortcuts.(*note.Short |
| 29cac0 | 63 75 74 73 3a 3a 29 3a 0a 0a e2 80 98 71 75 69 63 6b 6c 69 73 70 2d 71 75 69 63 6b 6c 6f 61 64 | cuts::):.....quicklisp-quickload |
| 29cae0 | 20 28 61 6b 61 20 71 6c 29 e2 80 99 0a 20 20 20 20 20 4c 6f 61 64 20 61 20 51 75 69 63 6b 6c 69 | .(aka.ql).........Load.a.Quickli |
| 29cb00 | 73 70 20 73 79 73 74 65 6d 2e 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e | sp.system.....File:.docFDBrww.in |
| 29cb20 | 66 6f 2c 20 20 4e 6f 64 65 3a 20 43 72 65 64 69 74 73 2c 20 20 4e 65 78 74 3a 20 4b 65 79 20 49 | fo,..Node:.Credits,..Next:.Key.I |
| 29cb40 | 6e 64 65 78 2c 20 20 50 72 65 76 3a 20 43 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 | ndex,..Prev:.Contributed.Package |
| 29cb60 | 73 2c 20 20 55 70 3a 20 54 6f 70 0a 0a 39 20 43 72 65 64 69 74 73 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a | s,..Up:.Top..9.Credits.********* |
| 29cb80 | 0a 0a 5f 54 68 65 20 73 6f 70 70 79 20 65 6e 64 69 6e 67 2e 2e 2e 5f 0a 0a 48 61 63 6b 65 72 73 | .._The.soppy.ending..._..Hackers |
| 29cba0 | 20 6f 66 20 74 68 65 20 67 6f 6f 64 20 68 61 63 6b 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | .of.the.good.hack.============== |
| 29cbc0 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 53 4c 49 4d 45 20 69 73 20 61 6e 20 45 78 74 65 6e 73 69 6f | ==========..SLIME.is.an.Extensio |
| 29cbe0 | 6e 20 6f 66 20 53 4c 49 4d 20 62 79 20 45 72 69 63 20 4d 61 72 73 64 65 6e 2e 20 20 41 74 20 74 | n.of.SLIM.by.Eric.Marsden...At.t |
| 29cc00 | 68 65 20 74 69 6d 65 20 6f 66 20 77 72 69 74 69 6e 67 2c 0a 74 68 65 20 61 75 74 68 6f 72 73 20 | he.time.of.writing,.the.authors. |
| 29cc20 | 61 6e 64 20 63 6f 64 65 2d 63 6f 6e 74 72 69 62 75 74 6f 72 73 20 6f 66 20 53 4c 49 4d 45 20 61 | and.code-contributors.of.SLIME.a |
| 29cc40 | 72 65 3a 0a 0a 48 65 6c 6d 75 74 20 45 6c 6c 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 54 6f | re:..Helmut.Eller.............To |
| 29cc60 | 62 69 61 73 20 43 2e 20 52 69 74 74 77 65 69 6c 65 72 20 20 20 20 20 53 74 61 73 20 42 6f 75 6b | bias.C..Rittweiler.....Stas.Bouk |
| 29cc80 | 61 72 65 76 0a 4c 75 6b 65 20 47 6f 72 72 69 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 | arev.Luke.Gorrie..............Ma |
| 29cca0 | 74 74 68 69 61 73 20 4b 6f 65 70 70 65 20 20 20 20 20 20 20 20 20 20 4c 75 c3 ad 73 20 4f 6c 69 | tthias.Koeppe..........Lu..s.Oli |
| 29ccc0 | 76 65 69 72 61 0a 4e 69 6b 6f 64 65 6d 75 73 20 53 69 69 76 6f 6c 61 20 20 20 20 20 20 20 20 4d | veira.Nikodemus.Siivola........M |
| 29cce0 | 61 72 63 6f 20 42 61 72 69 6e 67 65 72 20 20 20 20 20 20 20 20 20 20 20 4a 6f c3 a3 6f 20 54 c3 | arco.Baringer...........Jo..o.T. |
| 29cd00 | a1 76 6f 72 61 0a 41 6c 61 6e 20 52 75 74 74 65 6e 62 65 72 67 20 20 20 20 20 20 20 20 20 20 4d | .vora.Alan.Ruttenberg..........M |
| 29cd20 | 61 72 6b 20 45 76 65 6e 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 48 65 6e 72 79 20 48 61 | ark.Evenson.............Henry.Ha |
| 29cd40 | 72 72 69 6e 67 74 6f 6e 0a 43 68 72 69 73 74 6f 70 68 65 20 52 68 6f 64 65 73 20 20 20 20 20 20 | rrington.Christophe.Rhodes...... |
| 29cd60 | 20 20 45 64 69 20 57 65 69 74 7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 72 74 69 | ..Edi.Weitz................Marti |
| 29cd80 | 6e 20 53 69 6d 6d 6f 6e 73 0a 4a 75 68 6f 20 53 6e 65 6c 6c 6d 61 6e 20 20 20 20 20 20 20 20 20 | n.Simmons.Juho.Snellman......... |
| 29cda0 | 20 20 20 41 74 74 69 6c 61 20 4c 65 6e 64 76 61 69 20 20 20 20 20 20 20 20 20 20 20 50 65 74 65 | ...Attila.Lendvai...........Pete |
| 29cdc0 | 72 20 53 65 69 62 65 6c 0a 47 65 6f 20 43 61 72 6e 63 72 6f 73 73 20 20 20 20 20 20 20 20 20 20 | r.Seibel.Geo.Carncross.......... |
| 29cde0 | 20 20 44 61 6e 69 65 6c 20 4b 6f 63 68 6d 61 6e 73 6b 69 20 20 20 20 20 20 20 20 44 6f 75 67 6c | ..Daniel.Kochmanski........Dougl |
| 29ce00 | 61 73 20 43 72 6f 73 68 65 72 0a 43 68 72 69 73 20 53 63 68 61 66 6d 65 69 73 74 65 72 20 20 20 | as.Crosher.Chris.Schafmeister... |
| 29ce20 | 20 20 20 20 47 c3 a1 62 6f 72 20 4d 65 6c 69 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 61 | ....G..bor.Melis..............Da |
| 29ce40 | 6e 69 65 6c 20 42 61 72 6c 6f 77 0a 57 6f 6c 66 67 61 6e 67 20 4a 65 6e 6b 6e 65 72 20 20 20 20 | niel.Barlow.Wolfgang.Jenkner.... |
| 29ce60 | 20 20 20 20 20 4c 75 c3 ad 73 20 42 6f 72 67 65 73 20 64 65 20 20 20 20 20 20 20 20 20 20 20 4a | .....Lu..s.Borges.de...........J |
| 29ce80 | 61 6e 20 4d 6f 72 69 6e 67 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | an.Moringen..................... |
| 29cea0 | 20 20 20 20 20 4f 6c 69 76 65 69 72 61 0a 53 74 65 6c 69 61 6e 20 49 6f 6e 65 73 63 75 20 20 20 | .....Oliveira.Stelian.Ionescu... |
| 29cec0 | 20 20 20 20 20 20 20 4d 69 63 68 61 65 6c 20 57 65 62 65 72 20 20 20 20 20 20 20 20 20 20 20 20 | .......Michael.Weber............ |
| 29cee0 | 44 69 64 69 65 72 20 56 65 72 6e 61 0a 4c 61 77 72 65 6e 63 65 20 4d 69 74 63 68 65 6c 6c 20 20 | Didier.Verna.Lawrence.Mitchell.. |
| 29cf00 | 20 20 20 20 20 20 41 6e 74 6f 6e 20 4b 6f 76 61 6c 65 6e 6b 6f 20 20 20 20 20 20 20 20 20 20 54 | ......Anton.Kovalenko..........T |
| 29cf20 | 65 72 6a 65 20 4e 6f 72 64 65 72 68 61 75 67 0a 4d 61 72 6b 20 20 20 20 20 20 20 20 20 20 20 20 | erje.Norderhaug.Mark............ |
| 29cf40 | 20 20 20 20 20 20 20 20 20 42 72 69 61 6e 20 44 6f 77 6e 69 6e 67 20 20 20 20 20 20 20 20 20 20 | .........Brian.Downing.......... |
| 29cf60 | 20 20 42 69 6c 6c 20 43 6c 65 6d 65 6e 74 73 6f 6e 0a 41 6e 64 72 61 73 20 53 69 6d 6f 6e 20 20 | ..Bill.Clementson.Andras.Simon.. |
| 29cf80 | 20 20 20 20 20 20 20 20 20 20 20 41 64 6c 61 69 20 43 68 61 6e 64 72 61 73 65 6b 68 61 72 20 20 | ...........Adlai.Chandrasekhar.. |
| 29cfa0 | 20 20 20 20 5a 61 63 68 20 42 65 61 6e 65 0a 54 61 72 6e 20 57 2e 20 42 75 72 74 6f 6e 20 20 20 | ....Zach.Beane.Tarn.W..Burton... |
| 29cfc0 | 20 20 20 20 20 20 20 20 49 76 61 6e 20 53 68 76 65 64 75 6e 6f 76 20 20 20 20 20 20 20 20 20 20 | ........Ivan.Shvedunov.......... |
| 29cfe0 | 20 47 61 62 6f 72 20 4d 65 6c 69 73 0a 46 72 61 6e 63 6f 69 73 2d 52 65 6e 65 20 52 69 64 65 61 | .Gabor.Melis.Francois-Rene.Ridea |
| 29d000 | 75 20 20 20 20 20 45 73 70 65 6e 20 57 69 62 6f 72 67 20 20 20 20 20 20 20 20 20 20 20 20 20 43 | u.....Espen.Wiborg.............C |
| 29d020 | 68 72 69 73 74 69 61 6e 20 53 63 68 61 66 6d 65 69 73 74 65 72 0a 42 69 6b 65 20 20 20 20 20 20 | hristian.Schafmeister.Bike...... |
| 29d040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 6e 74 c3 b3 6e 69 6f 20 4d 65 6e 65 7a 65 73 20 | ...............Ant..nio.Menezes. |
| 29d060 | 4c 65 69 74 c3 a3 6f 20 20 20 41 6c 65 78 61 6e 64 65 72 20 41 72 74 65 6d 65 6e 6b 6f 0a 55 74 | Leit..o...Alexander.Artemenko.Ut |
| 29d080 | 7a 2d 55 77 65 20 48 61 75 73 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 6f 6d 61 73 20 53 63 | z-Uwe.Haus.............Thomas.Sc |
| 29d0a0 | 68 69 6c 6c 69 6e 67 20 20 20 20 20 20 20 20 20 54 68 6f 6d 61 73 20 46 2e 20 42 75 72 64 69 63 | hilling.........Thomas.F..Burdic |
| 29d0c0 | 6b 0a 54 61 6b 65 68 69 6b 6f 20 41 62 65 20 20 20 20 20 20 20 20 20 20 20 20 20 53 c3 a9 62 61 | k.Takehiko.Abe.............S..ba |
| 29d0e0 | 73 74 69 65 6e 20 56 69 6c 6c 65 6d 6f 74 20 20 20 20 20 20 20 52 69 63 68 61 72 64 20 4d 20 4b | stien.Villemot.......Richard.M.K |
| 29d100 | 72 65 75 74 65 72 0a 52 61 79 6d 6f 6e 64 20 54 6f 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | reuter.Raymond.Toy.............. |
| 29d120 | 4d 61 74 74 68 65 77 20 44 61 6e 69 73 68 20 20 20 20 20 20 20 20 20 20 20 4d 61 72 6b 20 48 61 | Matthew.Danish...........Mark.Ha |
| 29d140 | 72 69 67 0a 4a 61 6d 65 73 20 42 69 65 6c 6d 61 6e 20 20 20 20 20 20 20 20 20 20 20 20 48 61 72 | rig.James.Bielman............Har |
| 29d160 | 61 6c 64 20 48 61 6e 63 68 65 2d 4f 6c 73 65 6e 20 20 20 20 20 20 45 64 20 4c 61 6e 67 6c 65 79 | ald.Hanche-Olsen......Ed.Langley |
| 29d180 | 0a 41 72 69 65 6c 20 42 61 64 69 63 68 69 20 20 20 20 20 20 20 20 20 20 20 20 41 6e 64 72 65 61 | .Ariel.Badichi............Andrea |
| 29d1a0 | 73 20 46 75 63 68 73 20 20 20 20 20 20 20 20 20 20 20 20 57 69 6c 6c 65 6d 20 42 72 6f 65 6b 65 | s.Fuchs............Willem.Broeke |
| 29d1c0 | 6d 61 0a 54 61 79 6c 6f 72 20 52 2e 20 43 61 6d 70 62 65 6c 6c 20 20 20 20 20 20 20 53 74 65 76 | ma.Taylor.R..Campbell.......Stev |
| 29d1e0 | 65 20 50 75 72 63 65 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 50 68 69 6c 20 48 61 72 67 65 74 | e.Purcell............Phil.Harget |
| 29d200 | 74 0a 50 61 75 6c 6f 20 4d 61 64 65 69 72 61 20 20 20 20 20 20 20 20 20 20 20 20 4e 69 63 6f 6c | t.Paulo.Madeira............Nicol |
| 29d220 | 61 73 20 4d 61 72 74 79 61 6e 6f 66 66 20 20 20 20 20 20 20 4c 61 72 73 20 4d 61 67 6e 65 0a 20 | as.Martyanoff.......Lars.Magne.. |
| 29d240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29d260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 67 65 62 72 69 67 74 73 65 6e 0a 4b 72 | .................Ingebrigtsen.Kr |
| 29d280 | 69 73 20 4b 61 74 74 65 72 6a 6f 68 6e 20 20 20 20 20 20 20 20 20 20 4a 6f 68 6e 20 50 61 75 6c | is.Katterjohn..........John.Paul |
| 29d2a0 | 20 57 61 6c 6c 69 6e 67 74 6f 6e 20 20 20 20 20 4a 6f 65 72 67 20 48 6f 65 68 6c 65 0a 44 6f 75 | .Wallington.....Joerg.Hoehle.Dou |
| 29d2c0 | 67 6c 61 73 20 4b 61 74 7a 6d 61 6e 20 20 20 20 20 20 20 20 20 20 44 61 76 69 64 20 52 65 69 74 | glas.Katzman..........David.Reit |
| 29d2e0 | 74 65 72 20 20 20 20 20 20 20 20 20 20 20 20 43 68 61 72 6c 65 73 20 5a 68 61 6e 67 0a 42 72 79 | ter............Charles.Zhang.Bry |
| 29d300 | 61 6e 20 4f e2 80 99 43 6f 6e 6e 6f 72 20 20 20 20 20 20 20 20 20 20 20 42 72 75 6e 6f 20 43 69 | an.O...Connor...........Bruno.Ci |
| 29d320 | 63 68 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 42 61 72 74 20 42 6f 74 74 61 0a 41 6c 61 6e | chon.............Bart.Botta.Alan |
| 29d340 | 20 53 68 75 74 6b 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 72 73 61 20 61 6d 65 72 69 63 | .Shutko..............Ursa.americ |
| 29d360 | 61 6e 75 73 20 20 20 20 20 20 20 20 20 20 54 72 61 76 69 73 20 43 72 6f 73 73 0a 20 20 20 20 20 | anus..........Travis.Cross...... |
| 29d380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 72 6d 6f 64 65 69 0a 54 6f 62 | ....................kermodei.Tob |
| 29d3a0 | 69 61 73 20 52 69 74 74 77 65 69 6c 65 72 20 20 20 20 20 20 20 20 54 69 61 67 6f 20 4d 61 64 75 | ias.Rittweiler........Tiago.Madu |
| 29d3c0 | 72 6f 2d 44 69 61 73 20 20 20 20 20 20 20 20 53 74 65 66 61 6e 20 4b 61 6d 70 68 61 75 73 65 6e | ro-Dias........Stefan.Kamphausen |
| 29d3e0 | 0a 53 65 61 6e 20 4f e2 80 99 52 6f 75 72 6b 65 20 20 20 20 20 20 20 20 20 20 20 20 52 6f 62 65 | .Sean.O...Rourke............Robe |
| 29d400 | 72 74 20 4c 65 68 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 6f 62 65 72 74 20 45 2e 20 42 | rt.Lehr..............Robert.E..B |
| 29d420 | 72 6f 77 6e 0a 52 6f 62 65 72 74 20 42 72 6f 77 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 | rown.Robert.Brown.............Re |
| 29d440 | 6e 6b 65 20 43 68 72 69 73 74 69 61 6e 20 76 6f 6e 20 20 20 20 20 20 50 68 69 6c 69 70 70 20 53 | nke.Christian.von......Philipp.S |
| 29d460 | 74 65 70 68 61 6e 69 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tephani......................... |
| 29d480 | 20 53 65 67 67 65 72 6e 0a 50 68 69 6c 69 70 70 20 4d 61 72 65 6b 20 20 20 20 20 20 20 20 20 20 | .Seggern.Philipp.Marek.......... |
| 29d4a0 | 20 20 50 65 74 65 72 20 53 2e 20 48 6f 75 73 65 6c 20 20 20 20 20 20 20 20 20 20 4e 61 74 68 61 | ..Peter.S..Housel..........Natha |
| 29d4c0 | 6e 20 54 72 61 70 75 7a 7a 61 6e 6f 0a 4e 61 74 68 61 6e 20 42 69 72 64 20 20 20 20 20 20 20 20 | n.Trapuzzano.Nathan.Bird........ |
| 29d4e0 | 20 20 20 20 20 20 4d 69 6b 65 20 41 70 70 6c 65 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 4d | ......Mike.Appleby.............M |
| 29d500 | 61 74 74 65 6f 20 4c 61 6e 64 69 0a 4b 6e 75 74 20 4f 6c 61 76 20 42 c3 b8 68 6d 65 72 20 20 20 | atteo.Landi.Knut.Olav.B..hmer... |
| 29d520 | 20 20 20 20 20 20 4a 6f 75 6e 69 20 4b 20 53 65 70 70 61 6e 65 6e 20 20 20 20 20 20 20 20 20 4a | ......Jouni.K.Seppanen.........J |
| 29d540 | 6f 6e 20 4f 64 64 69 65 0a 49 76 61 6e 20 54 6f 73 68 6b 6f 76 20 20 20 20 20 20 20 20 20 20 20 | on.Oddie.Ivan.Toshkov........... |
| 29d560 | 20 20 49 61 6e 20 45 73 6c 69 63 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 65 6f 66 66 | ..Ian.Eslick...............Geoff |
| 29d580 | 20 57 6f 7a 6e 69 61 6b 0a 47 61 72 79 20 4b 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .Wozniak.Gary.King.............. |
| 29d5a0 | 20 20 46 69 63 65 20 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 72 69 63 20 | ..Fice.T...................Eric. |
| 29d5c0 | 42 6c 6f 6f 64 0a 45 64 75 61 72 64 6f 20 4d 75 c3 b1 6f 7a 20 20 20 20 20 20 20 20 20 20 20 20 | Blood.Eduardo.Mu..oz............ |
| 29d5e0 | 43 68 72 69 73 74 6f 70 68 65 20 4a 75 6e 6b 65 20 20 20 20 20 20 20 20 20 43 68 72 69 73 74 69 | Christophe.Junke.........Christi |
| 29d600 | 61 6e 20 4c 79 6e 62 65 63 68 0a 43 68 72 69 73 20 43 61 70 65 6c 20 20 20 20 20 20 20 20 20 20 | an.Lynbech.Chris.Capel.......... |
| 29d620 | 20 20 20 20 42 6a c3 b8 72 6e 20 4e 6f 72 64 62 c3 b8 20 20 20 20 20 20 20 20 20 20 20 20 20 41 | ....Bj..rn.Nordb...............A |
| 29d640 | 6e 74 6f 6e 20 56 6f 64 6f 6e 6f 73 6f 76 0a 41 6c 65 78 65 79 20 44 65 6a 6e 65 6b 61 20 20 20 | nton.Vodonosov.Alexey.Dejneka... |
| 29d660 | 20 20 20 20 20 20 20 20 41 6c 61 6e 20 43 61 75 6c 6b 69 6e 73 20 20 20 20 20 20 20 20 20 20 20 | ........Alan.Caulkins........... |
| 29d680 | 20 5a 61 63 68 61 72 79 20 42 65 61 6e 65 0a 59 75 2d 43 68 69 61 6e 67 20 48 73 75 20 20 20 20 | .Zachary.Beane.Yu-Chiang.Hsu.... |
| 29d6a0 | 20 20 20 20 20 20 20 20 59 61 72 6f 73 6c 61 76 20 4b 61 76 65 6e 63 68 75 6b 20 20 20 20 20 20 | ........Yaroslav.Kavenchuk...... |
| 29d6c0 | 20 59 61 6e 0a 59 4f 4b 4f 54 41 20 59 75 6b 69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 6f | .Yan.YOKOTA.Yuki..............Wo |
| 29d6e0 | 6c 66 67 61 6e 67 20 4d 65 64 65 72 6c 65 20 20 20 20 20 20 20 20 20 57 6f 6a 63 69 65 63 68 20 | lfgang.Mederle.........Wojciech. |
| 29d700 | 4b 61 63 7a 6d 61 72 65 6b 0a 57 69 6c 6c 69 61 6d 20 42 6c 61 6e 64 20 20 20 20 20 20 20 20 20 | Kaczmarek.William.Bland......... |
| 29d720 | 20 20 20 57 65 73 6c 65 79 20 48 61 72 76 65 79 20 20 20 20 20 20 20 20 20 20 20 20 56 69 74 61 | ...Wesley.Harvey............Vita |
| 29d740 | 6c 79 20 4d 61 79 61 74 73 6b 69 6b 68 0a 54 6f 6d 61 73 20 5a 65 6c 6c 65 72 69 6e 20 20 20 20 | ly.Mayatskikh.Tomas.Zellerin.... |
| 29d760 | 20 20 20 20 20 20 20 54 6f 6d 20 50 69 65 72 63 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......Tom.Pierce............... |
| 29d780 | 54 69 6d 20 44 61 6c 79 20 4a 72 2e 0a 54 68 6f 6d 61 73 20 46 69 74 7a 73 69 6d 6d 6f 6e 73 20 | Tim.Daly.Jr..Thomas.Fitzsimmons. |
| 29d7a0 | 20 20 20 20 20 20 54 68 65 20 47 65 6e 64 6c 20 50 72 6f 6a 65 63 74 20 20 20 20 20 20 20 20 53 | ......The.Gendl.Project........S |
| 29d7c0 | 79 6f 68 65 69 20 59 4f 53 48 49 44 41 0a 53 76 65 6e 20 56 61 6e 20 43 61 65 6b 65 6e 62 65 72 | yohei.YOSHIDA.Sven.Van.Caekenber |
| 29d7e0 | 67 68 65 20 20 20 20 53 76 65 69 6e 20 4f 76 65 20 41 61 73 20 20 20 20 20 20 20 20 20 20 20 20 | ghe....Svein.Ove.Aas............ |
| 29d800 | 53 74 65 76 65 20 53 6d 69 74 68 0a 53 74 61 6e 69 73 42 61 77 20 48 61 6c 69 6b 20 20 20 20 20 | Steve.Smith.StanisBaw.Halik..... |
| 29d820 | 20 20 20 20 20 53 65 72 67 65 79 20 4b 6f 73 74 79 61 65 76 20 20 20 20 20 20 20 20 20 20 53 61 | .....Sergey.Kostyaev..........Sa |
| 29d840 | 6d 75 65 6c 20 46 72 65 69 6c 69 63 68 0a 52 75 73 73 65 6c 6c 20 53 69 6d 20 20 20 20 20 20 20 | muel.Freilich.Russell.Sim....... |
| 29d860 | 20 20 20 20 20 20 20 52 75 73 73 65 6c 6c 20 4d 63 4d 61 6e 75 73 20 20 20 20 20 20 20 20 20 20 | .......Russell.McManus.......... |
| 29d880 | 52 75 73 73 20 54 79 6e 64 61 6c 6c 0a 52 75 69 20 50 61 74 72 6f 63 c3 ad 6e 69 6f 20 20 20 20 | Russ.Tyndall.Rui.Patroc..nio.... |
| 29d8a0 | 20 20 20 20 20 20 20 52 6f 62 65 72 74 20 50 2e 20 47 6f 6c 64 6d 61 6e 20 20 20 20 20 20 20 20 | .......Robert.P..Goldman........ |
| 29d8c0 | 52 6f 62 65 72 74 20 4d 61 63 6f 6d 62 65 72 0a 52 69 63 68 61 72 64 20 47 61 72 6e 65 72 20 20 | Robert.Macomber.Richard.Garner.. |
| 29d8e0 | 20 20 20 20 20 20 20 20 20 52 65 69 6e 69 20 55 72 62 61 6e 20 20 20 20 20 20 20 20 20 20 20 20 | .........Reini.Urban............ |
| 29d900 | 20 20 52 2e 20 4d 61 74 74 68 65 77 20 45 6d 65 72 73 6f 6e 0a 52 20 50 72 69 6d 75 73 20 20 20 | ..R..Matthew.Emerson.R.Primus... |
| 29d920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 65 74 65 72 20 46 65 69 67 6c 20 20 20 20 20 20 20 | ..............Peter.Feigl....... |
| 29d940 | 20 20 20 20 20 20 20 50 65 74 65 72 0a 50 61 77 65 6c 20 4f 73 74 72 6f 77 73 6b 69 20 20 20 20 | .......Peter.Pawel.Ostrowski.... |
| 29d960 | 20 20 20 20 20 20 50 61 75 6c 20 45 67 67 65 72 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 | ......Paul.Eggert..............P |
| 29d980 | 61 75 6c 20 44 6f 6e 6e 65 6c 6c 79 0a 50 61 75 6c 20 43 6f 6c 6c 69 6e 73 20 20 20 20 20 20 20 | aul.Donnelly.Paul.Collins....... |
| 29d9a0 | 20 20 20 20 20 20 50 61 74 72 69 63 6b 20 50 6f 69 74 72 61 73 20 20 20 20 20 20 20 20 20 20 4f | ......Patrick.Poitras..........O |
| 29d9c0 | 6c 6f 66 2d 4a 6f 61 63 68 69 6d 20 46 72 61 68 6d 0a 4e 65 69 6c 20 56 61 6e 20 44 79 6b 65 20 | lof-Joachim.Frahm.Neil.Van.Dyke. |
| 29d9e0 | 20 20 20 20 20 20 20 20 20 20 20 4e 61 74 68 61 6e 20 52 69 6e 67 6f 20 20 20 20 20 20 20 20 20 | ...........Nathan.Ringo......... |
| 29da00 | 20 20 20 20 4e 49 49 4d 49 20 53 61 74 6f 73 68 69 0a 4d c3 a9 73 7a c3 a1 72 6f 73 20 4c 65 76 | ....NIIMI.Satoshi.M..sz..ros.Lev |
| 29da20 | 65 6e 74 65 20 20 20 20 20 20 20 20 20 4d 69 6b 65 6c 20 42 61 6e 63 72 6f 66 74 20 20 20 20 20 | ente.........Mikel.Bancroft..... |
| 29da40 | 20 20 20 20 20 20 4d 69 63 68 61 c5 82 20 48 65 72 64 61 0a 4d 69 63 68 61 c5 82 20 22 70 68 6f | ......Micha...Herda.Micha..."pho |
| 29da60 | 65 22 20 48 65 72 64 61 20 20 20 20 20 20 4d 69 63 68 61 65 6c 20 57 68 69 74 65 20 20 20 20 20 | e".Herda......Michael.White..... |
| 29da80 | 20 20 20 20 20 20 20 4d 61 74 74 68 65 77 20 4b 65 6e 6e 65 64 79 0a 4d 61 74 74 68 65 77 20 44 | .......Matthew.Kennedy.Matthew.D |
| 29daa0 | 2e 20 53 77 61 6e 6b 20 20 20 20 20 20 20 20 20 4d 61 74 74 20 50 69 6c 6c 73 62 75 72 79 20 20 | ..Swank.........Matt.Pillsbury.. |
| 29dac0 | 20 20 20 20 20 20 20 20 20 4d 61 73 61 79 75 6b 69 20 4f 6e 6a 6f 0a 4d 61 72 6b 20 57 6f 6f 64 | .........Masayuki.Onjo.Mark.Wood |
| 29dae0 | 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 72 6b 20 4b 61 72 70 6f 76 20 20 20 20 20 | ing.............Mark.Karpov..... |
| 29db00 | 20 20 20 20 20 20 20 20 20 4d 61 72 6b 20 48 2e 20 44 61 76 69 64 0a 4d 61 72 69 75 73 20 47 65 | .........Mark.H..David.Marius.Ge |
| 29db20 | 72 62 65 72 73 68 61 67 65 6e 20 20 20 20 20 20 4d 61 72 63 6f 20 4d 6f 6e 74 65 69 72 6f 20 20 | rbershagen......Marco.Monteiro.. |
| 29db40 | 20 20 20 20 20 20 20 20 20 4c 79 6e 6e 20 51 75 61 6d 0a 4c 65 76 65 6e 74 65 20 4d c3 a9 73 7a | .........Lynn.Quam.Levente.M..sz |
| 29db60 | c3 a1 72 6f 73 20 20 20 20 20 20 20 20 20 4c 65 6f 20 4c 69 75 20 20 20 20 20 20 20 20 20 20 20 | ..ros.........Leo.Liu........... |
| 29db80 | 20 20 20 20 20 20 20 4c 61 73 73 65 20 52 61 73 69 6e 65 6e 0a 4b 61 73 70 65 72 20 47 61 c5 82 | .......Lasse.Rasinen.Kasper.Ga.. |
| 29dba0 | 6b 6f 77 73 6b 69 20 20 20 20 20 20 20 20 20 4b 61 73 70 65 72 20 20 20 20 20 20 20 20 20 20 20 | kowski.........Kasper........... |
| 29dbc0 | 20 20 20 20 20 20 20 20 4b 61 72 73 74 65 6e 20 50 6f 65 63 6b 0a 4b 61 69 20 4b 61 6d 69 6e 73 | ........Karsten.Poeck.Kai.Kamins |
| 29dbe0 | 6b 69 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 75 6c 69 61 6e 20 53 74 65 63 6b 6c 69 6e 61 20 | ki.............Julian.Stecklina. |
| 29dc00 | 20 20 20 20 20 20 20 20 4a 75 65 72 67 65 6e 20 47 6d 65 69 6e 65 72 0a 4a 6f 6e 20 41 6c 6c 65 | ........Juergen.Gmeiner.Jon.Alle |
| 29dc20 | 6e 20 42 6f 6f 6e 65 20 20 20 20 20 20 20 20 20 20 4a 6f 68 6e 20 53 74 72 61 63 6b 65 20 20 20 | n.Boone..........John.Stracke... |
| 29dc40 | 20 20 20 20 20 20 20 20 20 20 4a 6f 68 6e 20 53 6d 69 74 68 0a 4a 6f 68 61 6e 20 42 6f 63 6b 67 | ..........John.Smith.Johan.Bockg |
| 29dc60 | c3 a5 72 64 20 20 20 20 20 20 20 20 20 20 20 4a 6f 65 20 52 6f 62 65 72 74 73 6f 6e 20 20 20 20 | ..rd...........Joe.Robertson.... |
| 29dc80 | 20 20 20 20 20 20 20 20 4a 69 6d 6d 79 20 41 67 75 69 6c 61 72 20 4d 65 6e 61 0a 4a 69 6d 20 4e | ........Jimmy.Aguilar.Mena.Jim.N |
| 29dca0 | 65 77 74 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 61 76 69 65 72 20 4f 6c 61 65 63 | ewton...............Javier.Olaec |
| 29dcc0 | 68 65 61 20 20 20 20 20 20 20 20 20 20 4a 61 6e 20 52 79 63 68 74 65 72 0a 4a 61 6d 65 73 20 4d | hea..........Jan.Rychter.James.M |
| 29dce0 | 63 49 6c 72 65 65 20 20 20 20 20 20 20 20 20 20 20 20 4a 61 63 6b 20 50 75 67 6d 69 72 65 20 20 | cIlree............Jack.Pugmire.. |
| 29dd00 | 20 20 20 20 20 20 20 20 20 20 20 4a 61 63 65 6b 20 50 6f 64 6b 61 6e 73 6b 69 0a 49 76 61 6e 20 | ...........Jacek.Podkanski.Ivan. |
| 29dd20 | 53 6f 6b 6f 6c 6f 76 20 20 20 20 20 20 20 20 20 20 20 20 20 49 76 61 6e 20 42 6f 6c 64 79 72 65 | Sokolov.............Ivan.Boldyre |
| 29dd40 | 76 20 20 20 20 20 20 20 20 20 20 20 20 49 67 6e 61 73 20 4d 69 6b 61 6c 61 6a 75 6e 61 73 0a 48 | v............Ignas.Mikalajunas.H |
| 29dd60 | 61 6e 6e 75 20 4b 6f 69 76 69 73 74 6f 20 20 20 20 20 20 20 20 20 20 20 47 72 61 6e 74 20 53 68 | annu.Koivisto...........Grant.Sh |
| 29dd80 | 61 6e 67 72 65 61 75 78 20 20 20 20 20 20 20 20 20 47 72 61 68 61 6d 20 44 6f 62 62 69 6e 73 0a | angreaux.........Graham.Dobbins. |
| 29dda0 | 47 6c 65 65 66 72 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 65 72 64 20 46 6c | Gleefre..................Gerd.Fl |
| 29ddc0 | 61 69 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 61 69 6c 20 5a 61 63 68 61 72 69 61 73 | aig...............Gail.Zacharias |
| 29dde0 | 0a 46 72 65 64 65 72 69 63 20 42 72 75 6e 65 6c 20 20 20 20 20 20 20 20 20 20 45 72 69 63 20 54 | .Frederic.Brunel..........Eric.T |
| 29de00 | 69 6d 6d 6f 6e 73 20 20 20 20 20 20 20 20 20 20 20 20 20 45 72 69 63 20 53 63 68 75 6c 74 65 0a | immons.............Eric.Schulte. |
| 29de20 | 44 75 73 74 69 6e 20 4c 6f 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6d 69 74 72 79 20 | Dustin.Long..............Dmitry. |
| 29de40 | 49 67 72 69 73 68 69 6e 20 20 20 20 20 20 20 20 20 20 44 65 6f 6b 68 77 61 6e 20 4b 69 6d 0a 44 | Igrishin..........Deokhwan.Kim.D |
| 29de60 | 65 6e 69 73 20 42 75 64 79 61 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 44 61 6e 69 65 6c 20 4b | enis.Budyak.............Daniel.K |
| 29de80 | 6f 6e 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 44 61 6e 69 65 6c 20 4b 6f 63 68 6d 61 c5 84 | oning............Daniel.Kochma.. |
| 29dea0 | 73 6b 69 0a 44 61 6e 20 57 65 69 6e 72 65 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 61 6e | ski.Dan.Weinreb..............Dan |
| 29dec0 | 20 50 69 65 72 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 61 63 6f 64 61 20 53 74 72 | .Pierson..............Dacoda.Str |
| 29dee0 | 61 63 6b 0a 43 79 72 75 73 20 48 61 72 6d 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 43 68 72 | ack.Cyrus.Harmon.............Chr |
| 29df00 | 69 73 74 6f 70 68 20 4b 65 c3 9f 6c 65 72 20 20 20 20 20 20 20 20 20 43 65 63 69 6c 20 57 65 73 | istoph.Ke..ler.........Cecil.Wes |
| 29df20 | 74 65 72 68 6f 66 0a 42 72 69 61 6e 20 4d 61 73 74 65 6e 62 72 6f 6f 6b 20 20 20 20 20 20 20 20 | terhof.Brian.Mastenbrook........ |
| 29df40 | 42 72 61 6e 64 6f 6e 20 42 65 72 67 72 65 6e 20 20 20 20 20 20 20 20 20 20 42 6f 7a 68 69 64 61 | Brandon.Bergren..........Bozhida |
| 29df60 | 72 20 42 61 74 73 6f 76 0a 42 6f 62 20 48 61 6c 6c 65 79 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.Batsov.Bob.Halley............. |
| 29df80 | 20 20 42 61 72 72 79 20 46 69 73 68 6d 61 6e 20 20 20 20 20 20 20 20 20 20 20 20 42 2e 53 63 6f | ..Barry.Fishman............B.Sco |
| 29dfa0 | 74 74 20 4d 69 63 68 65 6c 0a 41 6e 67 65 6c 6f 20 52 6f 73 73 69 20 20 20 20 20 20 20 20 20 20 | tt.Michel.Angelo.Rossi.......... |
| 29dfc0 | 20 20 20 41 6e 64 72 65 77 20 4d 79 65 72 73 20 20 20 20 20 20 20 20 20 20 20 20 20 41 6e 64 72 | ...Andrew.Myers.............Andr |
| 29dfe0 | 65 20 41 2e 20 47 6f 6d 65 73 0a 41 6c 65 78 61 6e 64 65 72 20 4b 6f 6e 73 74 61 6e 74 69 6e 6f | e.A..Gomes.Alexander.Konstantino |
| 29e000 | 76 20 20 20 41 6c 65 6b 73 61 6e 64 61 72 20 42 61 6b 69 63 20 20 20 20 20 20 20 20 20 41 6c 61 | v...Aleksandar.Bakic.........Ala |
| 29e020 | 69 6e 20 50 69 63 61 72 64 0a 41 6c 20 48 6f 61 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | in.Picard.Al.Hoang.............. |
| 29e040 | 20 20 20 41 64 61 6d 20 42 6f 7a 61 6e 69 63 68 0a 0a 20 20 20 2e 2e 2e 20 20 6e 6f 74 20 63 6f | ...Adam.Bozanich..........not.co |
| 29e060 | 75 6e 74 69 6e 67 20 74 68 65 20 62 75 6e 64 6c 65 64 20 63 6f 64 65 20 66 72 6f 6d 20 e2 80 98 | unting.the.bundled.code.from.... |
| 29e080 | 68 79 70 65 72 73 70 65 63 2e 65 6c e2 80 99 2c 20 e2 80 98 43 4c 4f 43 43 e2 80 99 2c 20 61 6e | hyperspec.el...,....CLOCC...,.an |
| 29e0a0 | 64 0a 74 68 65 20 e2 80 98 43 4d 55 20 41 49 20 52 65 70 6f 73 69 74 6f 72 79 e2 80 99 2e 0a 0a | d.the....CMU.AI.Repository...... |
| 29e0c0 | 20 20 20 4d 61 6e 79 20 70 65 6f 70 6c 65 20 6f 6e 20 74 68 65 20 e2 80 98 73 6c 69 6d 65 2d 64 | ...Many.people.on.the....slime-d |
| 29e0e0 | 65 76 65 6c e2 80 99 20 6d 61 69 6c 69 6e 67 20 6c 69 73 74 20 68 61 76 65 20 6d 61 64 65 20 6e | evel....mailing.list.have.made.n |
| 29e100 | 6f 6e 2d 63 6f 64 65 0a 63 6f 6e 74 72 69 62 75 74 69 6f 6e 73 20 74 6f 20 53 4c 49 4d 45 2e 20 | on-code.contributions.to.SLIME.. |
| 29e120 | 20 4c 69 66 65 20 69 73 20 68 61 72 64 20 74 68 6f 75 67 68 3a 20 79 6f 75 20 67 6f 74 74 61 20 | .Life.is.hard.though:.you.gotta. |
| 29e140 | 73 65 6e 64 20 63 6f 64 65 20 74 6f 20 67 65 74 0a 79 6f 75 72 20 6e 61 6d 65 20 69 6e 20 74 68 | send.code.to.get.your.name.in.th |
| 29e160 | 65 20 6d 61 6e 75 61 6c 2e 20 20 e2 80 98 3a 2d 29 e2 80 99 0a 0a 54 68 61 6e 6b 73 21 0a 3d 3d | e.manual......:-).....Thanks!.== |
| 29e180 | 3d 3d 3d 3d 3d 0a 0a 57 65 e2 80 99 72 65 20 69 6e 64 65 62 74 65 64 20 74 6f 20 74 68 65 20 67 | =====..We...re.indebted.to.the.g |
| 29e1a0 | 6f 6f 64 20 70 65 6f 70 6c 65 20 6f 66 20 e2 80 98 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 | ood.people.of....common-lisp.net |
| 29e1c0 | e2 80 99 20 66 6f 72 20 74 68 65 69 72 20 68 6f 73 74 69 6e 67 0a 61 6e 64 20 68 65 6c 70 2c 20 | ....for.their.hosting.and.help,. |
| 29e1e0 | 61 6e 64 20 66 6f 72 20 72 65 73 63 75 69 6e 67 20 75 73 20 66 72 6f 6d 20 e2 80 9c 53 6f 75 72 | and.for.rescuing.us.from....Sour |
| 29e200 | 63 65 66 6f 72 67 65 20 68 65 6c 6c 2e e2 80 9d 0a 0a 20 20 20 49 6d 70 6c 65 6d 65 6e 74 6f 72 | ceforge.hell.........Implementor |
| 29e220 | 73 20 6f 66 20 74 68 65 20 4c 69 73 70 73 20 74 68 61 74 20 77 65 20 73 75 70 70 6f 72 74 20 68 | s.of.the.Lisps.that.we.support.h |
| 29e240 | 61 76 65 20 62 65 65 6e 20 61 20 67 72 65 61 74 20 68 65 6c 70 2e 0a 57 65 e2 80 99 64 20 6c 69 | ave.been.a.great.help..We...d.li |
| 29e260 | 6b 65 20 74 6f 20 74 68 61 6e 6b 20 74 68 65 20 43 4d 55 43 4c 20 6d 61 69 6e 74 61 69 6e 65 72 | ke.to.thank.the.CMUCL.maintainer |
| 29e280 | 73 20 66 6f 72 20 74 68 65 69 72 20 68 65 6c 70 66 75 6c 20 61 6e 73 77 65 72 73 2c 0a 43 72 61 | s.for.their.helpful.answers,.Cra |
| 29e2a0 | 69 67 20 4e 6f 72 76 65 6c 6c 20 61 6e 64 20 4b 65 76 69 6e 20 4c 61 79 65 72 20 61 74 20 46 72 | ig.Norvell.and.Kevin.Layer.at.Fr |
| 29e2c0 | 61 6e 7a 20 70 72 6f 76 69 64 69 6e 67 20 41 6c 6c 65 67 72 6f 20 43 4c 20 6c 69 63 65 6e 73 65 | anz.providing.Allegro.CL.license |
| 29e2e0 | 73 20 66 6f 72 0a 53 4c 49 4d 45 20 64 65 76 65 6c 6f 70 6d 65 6e 74 2c 20 61 6e 64 20 50 65 74 | s.for.SLIME.development,.and.Pet |
| 29e300 | 65 72 20 47 72 61 76 65 73 20 66 6f 72 20 68 69 73 20 68 65 6c 70 20 74 6f 20 67 65 74 20 53 4c | er.Graves.for.his.help.to.get.SL |
| 29e320 | 49 4d 45 20 72 75 6e 6e 69 6e 67 0a 77 69 74 68 20 41 42 43 4c 2e 0a 0a 20 20 20 4d 6f 73 74 20 | IME.running.with.ABCL......Most. |
| 29e340 | 6f 66 20 61 6c 6c 20 77 65 e2 80 99 72 65 20 68 61 70 70 79 20 74 6f 20 62 65 20 77 6f 72 6b 69 | of.all.we...re.happy.to.be.worki |
| 29e360 | 6e 67 20 77 69 74 68 20 74 68 65 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 6f 72 73 0a 77 68 | ng.with.the.Lisp.implementors.wh |
| 29e380 | 6f e2 80 99 76 65 20 6a 6f 69 6e 65 64 20 69 6e 20 74 68 65 20 53 4c 49 4d 45 20 64 65 76 65 6c | o...ve.joined.in.the.SLIME.devel |
| 29e3a0 | 6f 70 6d 65 6e 74 3a 20 44 61 6e 20 42 61 72 6c 6f 77 20 61 6e 64 20 43 68 72 69 73 74 6f 70 68 | opment:.Dan.Barlow.and.Christoph |
| 29e3c0 | 65 20 52 68 6f 64 65 73 0a 6f 66 20 53 42 43 4c 2c 20 47 61 72 79 20 42 79 65 72 73 20 6f 66 20 | e.Rhodes.of.SBCL,.Gary.Byers.of. |
| 29e3e0 | 4f 70 65 6e 4d 43 4c 2c 20 61 6e 64 20 4d 61 72 74 69 6e 20 53 69 6d 6d 6f 6e 73 20 6f 66 20 4c | OpenMCL,.and.Martin.Simmons.of.L |
| 29e400 | 69 73 70 57 6f 72 6b 73 2e 20 20 54 68 61 6e 6b 73 0a 61 6c 73 6f 20 74 6f 20 41 6c 61 69 6e 20 | ispWorks...Thanks.also.to.Alain. |
| 29e420 | 50 69 63 61 72 64 20 61 6e 64 20 4d 65 6d 65 74 72 69 63 73 20 66 6f 72 20 66 75 6e 64 69 6e 67 | Picard.and.Memetrics.for.funding |
| 29e440 | 20 4d 61 72 74 69 6e e2 80 99 73 20 69 6e 69 74 69 61 6c 20 77 6f 72 6b 20 6f 6e 0a 74 68 65 20 | .Martin...s.initial.work.on.the. |
| 29e460 | 4c 69 73 70 57 6f 72 6b 73 20 62 61 63 6b 65 6e 64 21 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 | LispWorks.backend!....File:.docF |
| 29e480 | 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 4b 65 79 20 49 6e 64 65 78 2c 20 20 4e | DBrww.info,..Node:.Key.Index,..N |
| 29e4a0 | 65 78 74 3a 20 43 6f 6d 6d 61 6e 64 20 49 6e 64 65 78 2c 20 20 50 72 65 76 3a 20 43 72 65 64 69 | ext:.Command.Index,..Prev:.Credi |
| 29e4c0 | 74 73 2c 20 20 55 70 3a 20 54 6f 70 0a 0a 4b 65 79 20 28 43 68 61 72 61 63 74 65 72 29 20 49 6e | ts,..Up:.Top..Key.(Character).In |
| 29e4e0 | 64 65 78 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 00 08 5b 69 6e | dex.*********************....[in |
| 29e500 | 64 65 78 00 08 5d 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 2e 3a 20 20 20 20 20 20 20 20 20 20 20 20 | dex..].*.Menu:..*..:............ |
| 29e520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 | .........................Inspect |
| 29e540 | 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 31 29 0a 2a 20 3a 3a 20 20 20 | or............(line..61).*.::... |
| 29e560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29e580 | 20 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 38 | ..Miscellaneous........(line..28 |
| 29e5a0 | 29 0a 2a 20 3c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).*.<:.......................... |
| 29e5c0 | 20 20 20 20 20 20 20 20 20 20 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 | ...........Frame.Navigation..... |
| 29e5e0 | 28 6c 69 6e 65 20 20 32 33 29 0a 2a 20 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (line..23).*.>:................. |
| 29e600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 | ....................Inspector... |
| 29e620 | 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 35 29 0a 2a 20 3e 20 3c 31 3e 3a 20 20 20 20 | .........(line..65).*.>.<1>:.... |
| 29e640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 72 61 | .............................Fra |
| 29e660 | 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 39 29 0a 2a 20 61 | me.Navigation.....(line..19).*.a |
| 29e680 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :............................... |
| 29e6a0 | 20 20 20 20 20 20 52 65 73 74 61 72 74 73 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 | ......Restarts.............(line |
| 29e6c0 | 20 20 20 38 29 0a 2a 20 41 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...8).*.A:...................... |
| 29e6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2e 20 20 20 | ...............Miscellaneous.... |
| 29e700 | 20 20 20 20 28 6c 69 6e 65 20 20 33 31 29 0a 2a 20 42 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(line..31).*.B:............. |
| 29e720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 69 73 63 65 6c 6c 61 | ........................Miscella |
| 29e740 | 6e 65 6f 75 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 39 29 0a 2a 20 63 3a 20 20 20 20 | neous........(line..19).*.c:.... |
| 29e760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29e780 | 20 52 65 73 74 61 72 74 73 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 38 29 | .Restarts.............(line..18) |
| 29e7a0 | 0a 2a 20 43 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .*.C:........................... |
| 29e7c0 | 20 20 20 20 20 20 20 20 20 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2e 20 20 20 20 20 20 20 28 | ..........Miscellaneous........( |
| 29e7e0 | 6c 69 6e 65 20 20 32 34 29 0a 2a 20 43 2d 3c 64 6f 77 6e 3e 3a 20 20 20 20 20 20 20 20 20 20 20 | line..24).*.C-<down>:........... |
| 29e800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 | ...................Input.Navigat |
| 29e820 | 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 34 29 0a 2a 20 43 2d 3c 75 70 3e 3a 20 20 20 20 | ion.....(line..14).*.C-<up>:.... |
| 29e840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 70 75 | ............................Inpu |
| 29e860 | 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 34 29 0a 2a 20 43 2d | t.Navigation.....(line..14).*.C- |
| 29e880 | 61 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | a:.............................. |
| 29e8a0 | 20 20 20 20 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 | .....REPL.commands........(line. |
| 29e8c0 | 20 32 38 29 0a 2a 20 43 2d 63 20 3a 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .28).*.C-c.::................... |
| 29e8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 76 61 6c 75 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 | ..............Evaluation........ |
| 29e900 | 20 20 20 28 6c 69 6e 65 20 20 33 33 29 0a 2a 20 43 2d 63 20 3c 3a 20 20 20 20 20 20 20 20 20 20 | ...(line..33).*.C-c.<:.......... |
| 29e920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 72 6f 73 73 2d 72 65 66 | .......................Cross-ref |
| 29e940 | 65 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 35 35 29 0a 2a 20 43 2d 63 20 3e 3a 20 | erence......(line..55).*.C-c.>:. |
| 29e960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29e980 | 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 35 39 29 0a | Cross-reference......(line..59). |
| 29e9a0 | 2a 20 43 2d 63 20 43 2d 61 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *.C-c.C-a:...................... |
| 29e9c0 | 20 20 20 20 20 20 20 20 20 4f 74 68 65 72 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | .........Other................(l |
| 29e9e0 | 69 6e 65 20 20 20 38 29 0a 2a 20 43 2d 63 20 43 2d 62 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ine...8).*.C-c.C-b:............. |
| 29ea00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 63 6f 76 65 72 79 2e 20 20 20 20 20 | ..................Recovery...... |
| 29ea20 | 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 43 2d 63 20 43 2d 63 3a 20 20 20 20 | .......(line...8).*.C-c.C-c:.... |
| 29ea40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 | ...........................Compi |
| 29ea60 | 6c 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 34 29 0a 2a 20 43 2d 63 | lation..........(line..14).*.C-c |
| 29ea80 | 20 43 2d 63 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .C-c.<1>:....................... |
| 29eaa0 | 20 20 20 20 58 72 65 66 20 62 75 66 66 65 72 20 63 6f 6d 6d 61 6e 64 73 2e 0a 20 20 20 20 20 20 | ....Xref.buffer.commands........ |
| 29eac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29eae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 | ........................(line..1 |
| 29eb00 | 39 29 0a 2a 20 43 2d 63 20 43 2d 63 20 3c 32 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 9).*.C-c.C-c.<2>:............... |
| 29eb20 | 20 20 20 20 20 20 20 20 20 20 20 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 2e 20 20 20 | ............Examining.frames.... |
| 29eb40 | 20 28 6c 69 6e 65 20 20 33 38 29 0a 2a 20 43 2d 63 20 43 2d 63 20 3c 33 3e 3a 20 20 20 20 20 20 | .(line..38).*.C-c.C-c.<3>:...... |
| 29eb60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 20 63 6f 6d 6d 61 6e | .....................REPL.comman |
| 29eb80 | 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 32 29 0a 2a 20 43 2d 63 20 43 2d 64 20 23 | ds........(line..32).*.C-c.C-d.# |
| 29eba0 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6f | :.............................Do |
| 29ebc0 | 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 35 39 29 0a 2a 20 | cumentation........(line..59).*. |
| 29ebe0 | 43 2d 63 20 43 2d 64 20 41 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | C-c.C-d.A:...................... |
| 29ec00 | 20 20 20 20 20 20 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e | .......Documentation........(lin |
| 29ec20 | 65 20 20 32 35 29 0a 2a 20 43 2d 63 20 43 2d 64 20 61 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e..25).*.C-c.C-d.a:............. |
| 29ec40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f | ................slime-autodoc-mo |
| 29ec60 | 64 65 2e 20 20 28 6c 69 6e 65 20 20 32 32 29 0a 2a 20 43 2d 63 20 43 2d 64 20 64 3a 20 20 20 20 | de...(line..22).*.C-c.C-d.d:.... |
| 29ec80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6f 63 75 6d 65 6e | .........................Documen |
| 29eca0 | 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 37 29 0a 2a 20 43 2d 63 20 43 | tation........(line..17).*.C-c.C |
| 29ecc0 | 2d 64 20 66 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -d.f:........................... |
| 29ece0 | 20 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 31 | ..Documentation........(line..21 |
| 29ed00 | 29 0a 2a 20 43 2d 63 20 43 2d 64 20 68 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).*.C-c.C-d.h:.................. |
| 29ed20 | 20 20 20 20 20 20 20 20 20 20 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 | ...........Documentation........ |
| 29ed40 | 28 6c 69 6e 65 20 20 34 34 29 0a 2a 20 43 2d 63 20 43 2d 64 20 70 3a 20 20 20 20 20 20 20 20 20 | (line..44).*.C-c.C-d.p:......... |
| 29ed60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f | ....................Documentatio |
| 29ed80 | 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 37 29 0a 2a 20 43 2d 63 20 43 2d 64 20 7a 3a | n........(line..37).*.C-c.C-d.z: |
| 29eda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6f 63 | .............................Doc |
| 29edc0 | 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 33 29 0a 2a 20 43 | umentation........(line..33).*.C |
| 29ede0 | 2d 63 20 43 2d 64 20 7e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -c.C-d.~:....................... |
| 29ee00 | 20 20 20 20 20 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 | ......Documentation........(line |
| 29ee20 | 20 20 35 35 29 0a 2a 20 43 2d 63 20 43 2d 6a 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..55).*.C-c.C-j:................ |
| 29ee40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 2e 20 20 20 20 20 20 20 20 20 20 20 20 | ...............REPL............. |
| 29ee60 | 20 20 20 20 28 6c 69 6e 65 20 20 33 31 29 0a 2a 20 43 2d 63 20 43 2d 6b 3a 20 20 20 20 20 20 20 | ....(line..31).*.C-c.C-k:....... |
| 29ee80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 | ........................Compilat |
| 29eea0 | 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 38 29 0a 2a 20 43 2d 63 20 43 2d | ion..........(line..28).*.C-c.C- |
| 29eec0 | 6b 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | k.<1>:.......................... |
| 29eee0 | 20 58 72 65 66 20 62 75 66 66 65 72 20 63 6f 6d 6d 61 6e 64 73 2e 0a 20 20 20 20 20 20 20 20 20 | .Xref.buffer.commands........... |
| 29ef00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29ef20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 33 29 0a | .....................(line..23). |
| 29ef40 | 2a 20 43 2d 63 20 43 2d 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *.C-c.C-l:...................... |
| 29ef60 | 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c | .........Compilation..........(l |
| 29ef80 | 69 6e 65 20 20 34 34 29 0a 2a 20 43 2d 63 20 43 2d 6d 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ine..44).*.C-c.C-m:............. |
| 29efa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f | ..................Macro-expansio |
| 29efc0 | 6e 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 43 2d 63 20 43 2d 6d 20 3c 31 3e 3a | n......(line...8).*.C-c.C-m.<1>: |
| 29efe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 | ...........................slime |
| 29f000 | 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 2e 0a 20 20 20 20 | -macroexpansion-minor-mode...... |
| 29f020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29f040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 | ..........................(line. |
| 29f060 | 20 31 32 29 0a 2a 20 43 2d 63 20 43 2d 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .12).*.C-c.C-n:................. |
| 29f080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 | ..............Input.Navigation.. |
| 29f0a0 | 20 20 20 28 6c 69 6e 65 20 20 32 39 29 0a 2a 20 43 2d 63 20 43 2d 6f 3a 20 20 20 20 20 20 20 20 | ...(line..29).*.C-c.C-o:........ |
| 29f0c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 20 63 6f 6d 6d | .......................REPL.comm |
| 29f0e0 | 61 6e 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 34 30 29 0a 2a 20 43 2d 63 20 43 2d 70 | ands........(line..40).*.C-c.C-p |
| 29f100 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :............................... |
| 29f120 | 45 76 61 6c 75 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 34 31 29 0a | Evaluation...........(line..41). |
| 29f140 | 2a 20 43 2d 63 20 43 2d 70 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *.C-c.C-p.<1>:.................. |
| 29f160 | 20 20 20 20 20 20 20 20 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c | .........Input.Navigation.....(l |
| 29f180 | 69 6e 65 20 20 32 39 29 0a 2a 20 43 2d 63 20 43 2d 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ine..29).*.C-c.C-r:............. |
| 29f1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 76 61 6c 75 61 74 69 6f 6e 2e 20 20 20 | ..................Evaluation.... |
| 29f1c0 | 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 37 29 0a 2a 20 43 2d 63 20 43 2d 73 3a 20 20 20 20 | .......(line..37).*.C-c.C-s:.... |
| 29f1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 6f | ...........................Compo |
| 29f200 | 75 6e 64 20 43 6f 6d 70 6c 65 74 69 6f 6e 2e 20 28 6c 69 6e 65 20 20 34 38 29 0a 2a 20 43 2d 63 | und.Completion..(line..48).*.C-c |
| 29f220 | 20 43 2d 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .C-t:........................... |
| 29f240 | 20 20 20 20 44 69 73 61 73 73 65 6d 62 6c 79 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 | ....Disassembly..........(line.. |
| 29f260 | 31 32 29 0a 2a 20 43 2d 63 20 43 2d 75 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 12).*.C-c.C-u:.................. |
| 29f280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 45 76 61 6c 75 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 | .............Evaluation......... |
| 29f2a0 | 20 20 28 6c 69 6e 65 20 20 35 32 29 0a 2a 20 43 2d 63 20 43 2d 76 3a 20 20 20 20 20 20 20 20 20 | ..(line..52).*.C-c.C-v:......... |
| 29f2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 74 68 65 72 2e 20 20 20 20 | ......................Other..... |
| 29f2e0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 43 2d 63 20 43 2d 76 20 | ...........(line...8).*.C-c.C-v. |
| 29f300 | 64 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 | d:.............................P |
| 29f320 | 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 31 30 37 29 0a 2a | resentations........(line.107).* |
| 29f340 | 20 43 2d 63 20 43 2d 76 20 69 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .C-c.C-v.i:..................... |
| 29f360 | 20 20 20 20 20 20 20 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 20 20 20 20 20 28 6c 69 | ........Presentations........(li |
| 29f380 | 6e 65 20 31 31 31 29 0a 2a 20 43 2d 63 20 43 2d 76 20 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 | ne.111).*.C-c.C-v.n:............ |
| 29f3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 | .................Presentations.. |
| 29f3c0 | 20 20 20 20 20 20 28 6c 69 6e 65 20 31 31 36 29 0a 2a 20 43 2d 63 20 43 2d 76 20 70 3a 20 20 20 | ......(line.116).*.C-c.C-v.p:... |
| 29f3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 72 65 73 65 6e | ..........................Presen |
| 29f400 | 74 61 74 69 6f 6e 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 31 32 30 29 0a 2a 20 43 2d 63 20 | tations........(line.120).*.C-c. |
| 29f420 | 43 2d 76 20 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | C-v.r:.......................... |
| 29f440 | 20 20 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 31 30 | ...Presentations........(line.10 |
| 29f460 | 32 29 0a 2a 20 43 2d 63 20 43 2d 76 20 53 50 43 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 2).*.C-c.C-v.SPC:............... |
| 29f480 | 20 20 20 20 20 20 20 20 20 20 20 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 20 20 20 20 | ............Presentations....... |
| 29f4a0 | 20 28 6c 69 6e 65 20 20 39 31 29 0a 2a 20 43 2d 63 20 43 2d 76 20 77 3a 20 20 20 20 20 20 20 20 | .(line..91).*.C-c.C-v.w:........ |
| 29f4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 72 65 73 65 6e 74 61 74 69 6f | .....................Presentatio |
| 29f4e0 | 6e 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 39 37 29 0a 2a 20 43 2d 63 20 43 2d 77 20 62 | ns........(line..97).*.C-c.C-w.b |
| 29f500 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 72 | :.............................Cr |
| 29f520 | 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 33 34 29 0a 2a 20 | oss-reference......(line..34).*. |
| 29f540 | 43 2d 63 20 43 2d 77 20 63 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | C-c.C-w.c:...................... |
| 29f560 | 20 20 20 20 20 20 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e | .......Cross-reference......(lin |
| 29f580 | 65 20 20 32 32 29 0a 2a 20 43 2d 63 20 43 2d 77 20 6d 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e..22).*.C-c.C-w.m:............. |
| 29f5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e | ................Cross-reference. |
| 29f5c0 | 20 20 20 20 20 28 6c 69 6e 65 20 20 34 32 29 0a 2a 20 43 2d 63 20 43 2d 77 20 72 3a 20 20 20 20 | .....(line..42).*.C-c.C-w.r:.... |
| 29f5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 72 6f 73 73 2d 72 | .........................Cross-r |
| 29f600 | 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 33 30 29 0a 2a 20 43 2d 63 20 43 | eference......(line..30).*.C-c.C |
| 29f620 | 2d 77 20 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -w.s:........................... |
| 29f640 | 20 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 33 38 | ..Cross-reference......(line..38 |
| 29f660 | 29 0a 2a 20 43 2d 63 20 43 2d 77 20 77 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).*.C-c.C-w.w:.................. |
| 29f680 | 20 20 20 20 20 20 20 20 20 20 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 | ...........Cross-reference...... |
| 29f6a0 | 28 6c 69 6e 65 20 20 32 36 29 0a 2a 20 43 2d 63 20 43 2d 78 20 63 3a 20 20 20 20 20 20 20 20 20 | (line..26).*.C-c.C-x.c:......... |
| 29f6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e | ....................Multiple.con |
| 29f6e0 | 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nections........................ |
| 29f700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29f720 | 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 37 29 0a 2a 20 43 2d 63 20 43 2d 78 20 6e 3a 20 | ........(line..27).*.C-c.C-x.n:. |
| 29f740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 6c 74 | ............................Mult |
| 29f760 | 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | iple.connections................ |
| 29f780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29f7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 33 29 0a 2a 20 43 2d 63 | ................(line..33).*.C-c |
| 29f7c0 | 20 43 2d 78 20 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .C-x.t:......................... |
| 29f7e0 | 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 20 | ....Multiple.connections........ |
| 29f800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29f820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 | ........................(line..3 |
| 29f840 | 39 29 0a 2a 20 43 2d 63 20 43 2d 79 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 9).*.C-c.C-y:................... |
| 29f860 | 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............REPL................ |
| 29f880 | 20 28 6c 69 6e 65 20 20 32 37 29 0a 2a 20 43 2d 63 20 43 2d 7a 3a 20 20 20 20 20 20 20 20 20 20 | .(line..27).*.C-c.C-z:.......... |
| 29f8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 2e 20 20 20 20 20 20 | .....................REPL....... |
| 29f8c0 | 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 33 29 0a 2a 20 43 2d 63 20 43 2d 5d 3a 20 | ..........(line..23).*.C-c.C-]:. |
| 29f8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 64 | ..............................Ed |
| 29f900 | 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 32 30 29 0a 2a 20 | iting.Commands.....(line..20).*. |
| 29f920 | 43 2d 63 20 45 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | C-c.E:.......................... |
| 29f940 | 20 20 20 20 20 20 20 45 76 61 6c 75 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e | .......Evaluation...........(lin |
| 29f960 | 65 20 20 34 36 29 0a 2a 20 43 2d 63 20 49 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e..46).*.C-c.I:................. |
| 29f980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 | ................Inspector....... |
| 29f9a0 | 20 20 20 20 20 28 6c 69 6e 65 20 20 31 36 29 0a 2a 20 43 2d 63 20 4d 2d 63 3a 20 20 20 20 20 20 | .....(line..16).*.C-c.M-c:...... |
| 29f9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 | .........................Compila |
| 29f9e0 | 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 33 29 0a 2a 20 43 2d 63 20 4d | tion..........(line..63).*.C-c.M |
| 29fa00 | 2d 64 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -d:............................. |
| 29fa20 | 20 20 44 69 73 61 73 73 65 6d 62 6c 79 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 | ..Disassembly..........(line...8 |
| 29fa40 | 29 0a 2a 20 43 2d 63 20 4d 2d 69 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).*.C-c.M-i:.................... |
| 29fa60 | 20 20 20 20 20 20 20 20 20 20 20 46 75 7a 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 2e 20 20 20 20 | ...........Fuzzy.Completion..... |
| 29fa80 | 28 6c 69 6e 65 20 20 31 31 29 0a 2a 20 43 2d 63 20 4d 2d 6b 3a 20 20 20 20 20 20 20 20 20 20 20 | (line..11).*.C-c.M-k:........... |
| 29faa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 2e | ....................Compilation. |
| 29fac0 | 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 34 30 29 0a 2a 20 43 2d 63 20 4d 2d 6d 3a 20 20 | .........(line..40).*.C-c.M-m:.. |
| 29fae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 63 | .............................Mac |
| 29fb00 | 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 31 39 29 0a 2a 20 43 | ro-expansion......(line..19).*.C |
| 29fb20 | 2d 63 20 4d 2d 6f 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -c.M-o:......................... |
| 29fb40 | 20 20 20 20 20 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 | ......REPL.commands........(line |
| 29fb60 | 20 20 33 36 29 0a 2a 20 43 2d 63 20 4d 2d 70 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..36).*.C-c.M-p:................ |
| 29fb80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 63 6f 76 65 72 79 2e 20 20 20 20 20 20 20 20 | ...............Recovery......... |
| 29fba0 | 20 20 20 20 28 6c 69 6e 65 20 20 32 30 29 0a 2a 20 43 2d 63 20 4d 2d 71 3a 20 20 20 20 20 20 20 | ....(line..20).*.C-c.M-q:....... |
| 29fbc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 64 69 74 69 6e 67 20 | ........................Editing. |
| 29fbe0 | 43 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 31 29 0a 2a 20 43 2d 63 20 4d 2d | Commands.....(line..11).*.C-c.M- |
| 29fc00 | 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t:.............................. |
| 29fc20 | 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 2e 20 20 28 6c 69 6e 65 20 20 32 36 29 | .SLIME.Trace.Dialog...(line..26) |
| 29fc40 | 0a 2a 20 43 2d 63 20 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .*.C-c.T:....................... |
| 29fc60 | 20 20 20 20 20 20 20 20 20 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 2e 20 20 28 | ..........SLIME.Trace.Dialog...( |
| 29fc80 | 6c 69 6e 65 20 20 33 39 29 0a 2a 20 43 2d 63 20 7e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | line..39).*.C-c.~:.............. |
| 29fca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 63 6f 76 65 72 79 2e 20 20 20 20 | ...................Recovery..... |
| 29fcc0 | 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 35 29 0a 2a 20 43 2d 6a 3a 20 20 20 20 20 20 20 | ........(line..15).*.C-j:....... |
| 29fce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c | ............................REPL |
| 29fd00 | 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 34 29 0a 2a 20 43 2d | .commands........(line..24).*.C- |
| 29fd20 | 6a 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | j.<1>:.......................... |
| 29fd40 | 20 20 20 20 20 53 63 72 61 74 63 68 20 42 75 66 66 65 72 2e 20 20 20 20 20 20 28 6c 69 6e 65 20 | .....Scratch.Buffer.......(line. |
| 29fd60 | 20 31 33 29 0a 2a 20 43 2d 6b 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .13).*.C-k:..................... |
| 29fd80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 | ..............SLIME.Trace.Dialog |
| 29fda0 | 2e 20 20 28 6c 69 6e 65 20 20 38 33 29 0a 2a 20 43 2d 4d 2d 78 3a 20 20 20 20 20 20 20 20 20 20 | ...(line..83).*.C-M-x:.......... |
| 29fdc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 76 61 6c 75 61 74 69 6f | .......................Evaluatio |
| 29fde0 | 6e 2e 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 39 29 0a 2a 20 43 2d 52 45 54 3a 20 | n...........(line..19).*.C-RET:. |
| 29fe00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29fe20 | 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 35 29 0a | REPL.commands........(line..15). |
| 29fe40 | 2a 20 43 2d 78 20 34 20 2e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *.C-x.4..:...................... |
| 29fe60 | 20 20 20 20 20 20 20 20 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 20 28 6c | .........Finding.definitions..(l |
| 29fe80 | 69 6e 65 20 20 32 33 29 0a 2a 20 43 2d 78 20 35 20 2e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ine..23).*.C-x.5..:............. |
| 29fea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 | ..................Finding.defini |
| 29fec0 | 74 69 6f 6e 73 2e 20 28 6c 69 6e 65 20 20 32 38 29 0a 2a 20 43 2d 78 20 43 2d 65 3a 20 20 20 20 | tions..(line..28).*.C-x.C-e:.... |
| 29fee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 76 61 6c 75 | ...........................Evalu |
| 29ff00 | 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 33 29 0a 2a 20 43 2d 78 | ation...........(line..13).*.C-x |
| 29ff20 | 20 60 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .`:............................. |
| 29ff40 | 20 20 20 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 | ....Compilation..........(line.. |
| 29ff60 | 36 37 29 0a 2a 20 43 2d 5f 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 67).*.C-_:...................... |
| 29ff80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f | .............slime-macroexpansio |
| 29ffa0 | 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n-minor-mode.................... |
| 29ffc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 29ffe0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 36 29 0a 2a 20 64 3a 20 20 20 20 20 | ............(line..26).*.d:..... |
| 2a0000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a0020 | 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 37 29 0a | Inspector............(line..27). |
| 2a0040 | 2a 20 64 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *.d.<1>:........................ |
| 2a0060 | 20 20 20 20 20 20 20 20 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 2e 20 20 20 20 28 6c | .........Examining.frames.....(l |
| 2a0080 | 69 6e 65 20 20 32 34 29 0a 2a 20 44 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ine..24).*.D:................... |
| 2a00a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d | ..................Examining.fram |
| 2a00c0 | 65 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 32 39 29 0a 2a 20 64 20 3c 32 3e 3a 20 20 20 20 20 20 | es.....(line..29).*.d.<2>:...... |
| 2a00e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 6c 74 69 | ...........................Multi |
| 2a0100 | 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ple.connections................. |
| 2a0120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a0140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 35 36 29 0a 2a 20 64 20 3c 33 | ...............(line..56).*.d.<3 |
| 2a0160 | 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | >:.............................. |
| 2a0180 | 20 20 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 | ...slime-sprof..........(line..3 |
| 2a01a0 | 30 29 0a 2a 20 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 0).*.e:......................... |
| 2a01c0 | 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 | ............Inspector........... |
| 2a01e0 | 20 28 6c 69 6e 65 20 20 33 31 29 0a 2a 20 65 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 | .(line..31).*.e.<1>:............ |
| 2a0200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 78 61 6d 69 6e 69 6e 67 20 66 | .....................Examining.f |
| 2a0220 | 72 61 6d 65 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 39 29 0a 2a 20 67 3a 20 20 20 20 20 20 20 | rames.....(line..19).*.g:....... |
| 2a0240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e | ..............................In |
| 2a0260 | 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 34 39 29 0a 2a 20 | spector............(line..49).*. |
| 2a0280 | 67 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g.<1>:.......................... |
| 2a02a0 | 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f | .......slime-macroexpansion-mino |
| 2a02c0 | 72 2d 6d 6f 64 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-mode.......................... |
| 2a02e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a0300 | 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 37 29 0a 2a 20 67 20 3c 32 3e 3a 20 20 20 20 20 20 20 | ......(line..17).*.g.<2>:....... |
| 2a0320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 | ..........................Multip |
| 2a0340 | 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le.connections.................. |
| 2a0360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a0380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 31 29 0a 2a 20 67 20 3c 33 3e | ..............(line..61).*.g.<3> |
| 2a03a0 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :............................... |
| 2a03c0 | 20 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 2e 20 20 28 6c 69 6e 65 20 20 37 36 | ..SLIME.Trace.Dialog...(line..76 |
| 2a03e0 | 29 0a 2a 20 47 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).*.G:.......................... |
| 2a0400 | 20 20 20 20 20 20 20 20 20 20 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 2e 20 20 | ...........SLIME.Trace.Dialog... |
| 2a0420 | 28 6c 69 6e 65 20 20 37 39 29 0a 2a 20 69 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (line..79).*.i:................. |
| 2a0440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 | ....................Examining.fr |
| 2a0460 | 61 6d 65 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 33 34 29 0a 2a 20 6c 3a 20 20 20 20 20 20 20 20 | ames.....(line..34).*.l:........ |
| 2a0480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 | .............................Ins |
| 2a04a0 | 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 34 31 29 0a 2a 20 4d | pector............(line..41).*.M |
| 2a04c0 | 2d 2c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -,:............................. |
| 2a04e0 | 20 20 20 20 20 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 20 28 6c 69 6e 65 | ......Finding.definitions..(line |
| 2a0500 | 20 20 31 38 29 0a 2a 20 4d 2d 2e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..18).*.M-.:.................... |
| 2a0520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f | ...............Finding.definitio |
| 2a0540 | 6e 73 2e 20 28 6c 69 6e 65 20 20 31 33 29 0a 2a 20 4d 2d 43 2d 61 3a 20 20 20 20 20 20 20 20 20 | ns..(line..13).*.M-C-a:......... |
| 2a0560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 64 69 74 69 6e 67 20 | ........................Editing. |
| 2a0580 | 43 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 33 38 29 0a 2a 20 4d 2d 43 2d 65 3a | Commands.....(line..38).*.M-C-e: |
| 2a05a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a05c0 | 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 34 30 29 | .Editing.Commands.....(line..40) |
| 2a05e0 | 0a 2a 20 4d 2d 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .*.M-n:......................... |
| 2a0600 | 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 | ..........Compilation..........( |
| 2a0620 | 6c 69 6e 65 20 20 35 35 29 0a 2a 20 4d 2d 6e 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 | line..55).*.M-n.<1>:............ |
| 2a0640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 | ...................Frame.Navigat |
| 2a0660 | 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 32 29 0a 2a 20 4d 2d 6e 20 3c 32 3e 3a 20 20 20 | ion.....(line..12).*.M-n.<2>:... |
| 2a0680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 70 75 | ............................Inpu |
| 2a06a0 | 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 38 29 0a 2a 20 4d 2d | t.Navigation.....(line..18).*.M- |
| 2a06c0 | 70 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p:.............................. |
| 2a06e0 | 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 | .....Compilation..........(line. |
| 2a0700 | 20 35 39 29 0a 2a 20 4d 2d 70 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .59).*.M-p.<1>:................. |
| 2a0720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 | ..............Frame.Navigation.. |
| 2a0740 | 20 20 20 28 6c 69 6e 65 20 20 31 32 29 0a 2a 20 4d 2d 70 20 3c 32 3e 3a 20 20 20 20 20 20 20 20 | ...(line..12).*.M-p.<2>:........ |
| 2a0760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 70 75 74 20 4e 61 76 | .......................Input.Nav |
| 2a0780 | 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 38 29 0a 2a 20 4d 2d 72 3a 20 20 20 | igation.....(line..18).*.M-r:... |
| 2a07a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a07c0 | 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 32 35 29 0a | Input.Navigation.....(line..25). |
| 2a07e0 | 2a 20 4d 2d 52 45 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *.M-RET:........................ |
| 2a0800 | 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c | .........Inspector............(l |
| 2a0820 | 69 6e 65 20 20 36 39 29 0a 2a 20 4d 2d 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ine..69).*.M-s:................. |
| 2a0840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 | ..................Input.Navigati |
| 2a0860 | 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 32 35 29 0a 2a 20 4d 2d 54 41 42 3a 20 20 20 20 20 20 | on.....(line..25).*.M-TAB:...... |
| 2a0880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 6c | ...........................Compl |
| 2a08a0 | 65 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 33 29 0a 2a 20 6e 3a 20 | etion...........(line..13).*.n:. |
| 2a08c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a08e0 | 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 | ....Inspector............(line.. |
| 2a0900 | 34 35 29 0a 2a 20 6e 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 45).*.n.<1>:.................... |
| 2a0920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 | .............Frame.Navigation... |
| 2a0940 | 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 6f 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(line...8).*.o:............... |
| 2a0960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 74 65 70 70 69 6e 67 2e 20 | ......................Stepping.. |
| 2a0980 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 31 29 0a 2a 20 70 3a 20 20 20 20 20 20 | ...........(line..21).*.p:...... |
| 2a09a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 | ...............................I |
| 2a09c0 | 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 35 37 29 0a 2a | nspector............(line..57).* |
| 2a09e0 | 20 70 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .p.<1>:......................... |
| 2a0a00 | 20 20 20 20 20 20 20 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 | ........Frame.Navigation.....(li |
| 2a0a20 | 6e 65 20 20 20 38 29 0a 2a 20 71 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ne...8).*.q:.................... |
| 2a0a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 | .................Inspector...... |
| 2a0a60 | 20 20 20 20 20 20 28 6c 69 6e 65 20 20 35 33 29 0a 2a 20 71 20 3c 31 3e 3a 20 20 20 20 20 20 20 | ......(line..53).*.q.<1>:....... |
| 2a0a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 73 74 61 72 | ..........................Restar |
| 2a0aa0 | 74 73 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 32 29 0a 2a 20 71 20 3c 32 | ts.............(line..12).*.q.<2 |
| 2a0ac0 | 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | >:.............................. |
| 2a0ae0 | 20 20 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f | ...slime-macroexpansion-minor-mo |
| 2a0b00 | 64 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | de.............................. |
| 2a0b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a0b40 | 20 20 28 6c 69 6e 65 20 20 32 32 29 0a 2a 20 71 20 3c 33 3e 3a 20 20 20 20 20 20 20 20 20 20 20 | ..(line..22).*.q.<3>:........... |
| 2a0b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 | ......................Multiple.c |
| 2a0b80 | 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | onnections...................... |
| 2a0ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a0bc0 | 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 35 29 0a 2a 20 72 3a 20 20 20 20 20 20 20 | ..........(line..65).*.r:....... |
| 2a0be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 69 | ..............................Mi |
| 2a0c00 | 73 63 65 6c 6c 61 6e 65 6f 75 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 | scellaneous........(line...8).*. |
| 2a0c20 | 52 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | R:.............................. |
| 2a0c40 | 20 20 20 20 20 20 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2e 20 20 20 20 20 20 20 28 6c 69 6e | .......Miscellaneous........(lin |
| 2a0c60 | 65 20 20 31 34 29 0a 2a 20 52 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e..14).*.R.<1>:................. |
| 2a0c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 | ................Multiple.connect |
| 2a0ca0 | 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ions............................ |
| 2a0cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a0ce0 | 20 20 20 20 28 6c 69 6e 65 20 20 37 30 29 0a 2a 20 52 45 54 3a 20 20 20 20 20 20 20 20 20 20 20 | ....(line..70).*.RET:........... |
| 2a0d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 72 65 66 20 62 75 66 | ........................Xref.buf |
| 2a0d20 | 66 65 72 20 63 6f 6d 6d 61 6e 64 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fer.commands.................... |
| 2a0d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a0d60 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 30 29 0a 2a 20 52 45 54 20 3c 31 3e | ............(line..10).*.RET.<1> |
| 2a0d80 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :............................... |
| 2a0da0 | 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 32 29 0a | Inspector............(line..22). |
| 2a0dc0 | 2a 20 52 45 54 20 3c 32 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *.RET.<2>:...................... |
| 2a0de0 | 20 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 | .........Multiple.connections... |
| 2a0e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a0e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | .............................(li |
| 2a0e40 | 6e 65 20 20 35 32 29 0a 2a 20 52 45 54 20 3c 33 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ne..52).*.RET.<3>:.............. |
| 2a0e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2e 20 | .................REPL.commands.. |
| 2a0e80 | 20 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 52 45 54 20 3c 34 3e 3a 20 20 20 20 20 | ......(line...8).*.RET.<4>:..... |
| 2a0ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d | ..........................slime- |
| 2a0ec0 | 73 70 72 6f 66 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 34 29 0a 2a 20 73 3a 20 20 | sprof..........(line..24).*.s:.. |
| 2a0ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a0f00 | 20 20 20 53 74 65 70 70 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 | ...Stepping.............(line..1 |
| 2a0f20 | 31 29 0a 2a 20 73 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1).*.s.<1>:..................... |
| 2a0f40 | 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2e 20 20 20 20 20 20 20 20 | ............slime-sprof......... |
| 2a0f60 | 20 28 6c 69 6e 65 20 20 33 33 29 0a 2a 20 53 2d 54 41 42 3a 20 20 20 20 20 20 20 20 20 20 20 20 | .(line..33).*.S-TAB:............ |
| 2a0f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 | .....................Inspector.. |
| 2a0fa0 | 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 37 34 29 0a 2a 20 53 70 61 63 65 3a 20 20 20 | ..........(line..74).*.Space:... |
| 2a0fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 72 | ..............................Xr |
| 2a0fe0 | 65 66 20 62 75 66 66 65 72 20 63 6f 6d 6d 61 6e 64 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ef.buffer.commands.............. |
| 2a1000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a1020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 35 29 0a 2a 20 53 | ..................(line..15).*.S |
| 2a1040 | 50 43 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | PC:............................. |
| 2a1060 | 20 20 20 20 20 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 | ......Documentation........(line |
| 2a1080 | 20 20 31 32 29 0a 2a 20 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..12).*.t:...................... |
| 2a10a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 2e | ...............Examining.frames. |
| 2a10c0 | 20 20 20 20 28 6c 69 6e 65 20 20 31 30 29 0a 2a 20 54 41 42 3a 20 20 20 20 20 20 20 20 20 20 20 | ....(line..10).*.TAB:........... |
| 2a10e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f | ........................Inspecto |
| 2a1100 | 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 37 34 29 0a 2a 20 54 41 42 20 3c 31 | r............(line..74).*.TAB.<1 |
| 2a1120 | 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | >:.............................. |
| 2a1140 | 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 30 29 | .REPL.commands........(line..20) |
| 2a1160 | 0a 2a 20 76 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .*.v:........................... |
| 2a1180 | 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 | ..........Inspector............( |
| 2a11a0 | 6c 69 6e 65 20 20 33 36 29 0a 2a 20 76 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | line..36).*.v.<1>:.............. |
| 2a11c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 | ...................Examining.fra |
| 2a11e0 | 6d 65 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 34 29 0a 2a 20 76 20 3c 32 3e 3a 20 20 20 20 20 | mes.....(line..14).*.v.<2>:..... |
| 2a1200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d | ............................slim |
| 2a1220 | 65 2d 73 70 72 6f 66 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 37 29 0a 2a 20 78 3a | e-sprof..........(line..27).*.x: |
| 2a1240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a1260 | 20 20 20 20 20 53 74 65 70 70 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 | .....Stepping.............(line. |
| 2a1280 | 20 31 37 29 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e | .17)....File:.docFDBrww.info,..N |
| 2a12a0 | 6f 64 65 3a 20 43 6f 6d 6d 61 6e 64 20 49 6e 64 65 78 2c 20 20 4e 65 78 74 3a 20 56 61 72 69 61 | ode:.Command.Index,..Next:.Varia |
| 2a12c0 | 62 6c 65 20 49 6e 64 65 78 2c 20 20 50 72 65 76 3a 20 4b 65 79 20 49 6e 64 65 78 2c 20 20 55 70 | ble.Index,..Prev:.Key.Index,..Up |
| 2a12e0 | 3a 20 54 6f 70 0a 0a 43 6f 6d 6d 61 6e 64 20 61 6e 64 20 46 75 6e 63 74 69 6f 6e 20 49 6e 64 65 | :.Top..Command.and.Function.Inde |
| 2a1300 | 78 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 00 08 | x.**************************.... |
| 2a1320 | 5b 69 6e 64 65 78 00 08 5d 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 68 79 70 65 72 73 70 65 63 2d 6c | [index..].*.Menu:..*.hyperspec-l |
| 2a1340 | 6f 6f 6b 75 70 2d 66 6f 72 6d 61 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6f 63 75 | ookup-format:...............Docu |
| 2a1360 | 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 35 35 29 0a 2a 20 68 79 | mentation........(line..55).*.hy |
| 2a1380 | 70 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 2d 72 65 61 64 65 72 2d 6d 61 63 72 6f 3a 20 20 20 20 | perspec-lookup-reader-macro:.... |
| 2a13a0 | 20 20 20 20 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 | .....Documentation........(line. |
| 2a13c0 | 20 35 39 29 0a 2a 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 65 3a 20 20 20 20 20 | .59).*.inferior-slime-mode:..... |
| 2a13e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d 6d 6f 64 | ..............inferior-slime-mod |
| 2a1400 | 65 2e 20 28 6c 69 6e 65 20 20 31 35 29 0a 2a 20 6e 65 78 74 2d 65 72 72 6f 72 3a 20 20 20 20 20 | e..(line..15).*.next-error:..... |
| 2a1420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 69 | .......................Compilati |
| 2a1440 | 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 37 29 0a 2a 20 73 6c 64 62 2d 61 62 | on..........(line..67).*.sldb-ab |
| 2a1460 | 6f 72 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ort:............................ |
| 2a1480 | 52 65 73 74 61 72 74 73 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a | Restarts.............(line...8). |
| 2a14a0 | 2a 20 73 6c 64 62 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 62 61 63 6b 74 72 61 63 65 3a 20 20 | *.sldb-beginning-of-backtrace:.. |
| 2a14c0 | 20 20 20 20 20 20 20 20 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c | .........Frame.Navigation.....(l |
| 2a14e0 | 69 6e 65 20 20 32 33 29 0a 2a 20 73 6c 64 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d 64 65 66 61 75 | ine..23).*.sldb-break-with-defau |
| 2a1500 | 6c 74 2d 64 65 62 75 67 67 65 72 3a 20 20 20 20 20 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2e | lt-debugger:......Miscellaneous. |
| 2a1520 | 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 39 29 0a 2a 20 73 6c 64 62 2d 62 72 65 61 6b 2d 77 | .......(line..19).*.sldb-break-w |
| 2a1540 | 69 74 68 2d 73 79 73 74 65 6d 2d 64 65 62 75 67 67 65 72 3a 20 20 20 20 20 20 20 4d 69 73 63 65 | ith-system-debugger:.......Misce |
| 2a1560 | 6c 6c 61 6e 65 6f 75 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 31 29 0a 2a 20 73 6c 64 | llaneous........(line..31).*.sld |
| 2a1580 | 62 2d 63 6f 6e 74 69 6e 75 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | b-continue:..................... |
| 2a15a0 | 20 20 20 20 52 65 73 74 61 72 74 73 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 | ....Restarts.............(line.. |
| 2a15c0 | 31 38 29 0a 2a 20 73 6c 64 62 2d 64 65 74 61 69 6c 73 2d 64 6f 77 6e 3a 20 20 20 20 20 20 20 20 | 18).*.sldb-details-down:........ |
| 2a15e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 | .............Frame.Navigation... |
| 2a1600 | 20 20 28 6c 69 6e 65 20 20 31 32 29 0a 2a 20 73 6c 64 62 2d 64 65 74 61 69 6c 73 2d 75 70 3a 20 | ..(line..12).*.sldb-details-up:. |
| 2a1620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 72 61 6d 65 20 4e 61 76 69 | ......................Frame.Navi |
| 2a1640 | 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 32 29 0a 2a 20 73 6c 64 62 2d 64 69 73 | gation.....(line..12).*.sldb-dis |
| 2a1660 | 61 73 73 65 6d 62 6c 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 | assemble:......................E |
| 2a1680 | 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 32 39 29 0a 2a | xamining.frames.....(line..29).* |
| 2a16a0 | 20 73 6c 64 62 2d 64 6f 77 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .sldb-down:..................... |
| 2a16c0 | 20 20 20 20 20 20 20 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 | ........Frame.Navigation.....(li |
| 2a16e0 | 6e 65 20 20 20 38 29 0a 2a 20 73 6c 64 62 2d 65 6e 64 2d 6f 66 2d 62 61 63 6b 74 72 61 63 65 3a | ne...8).*.sldb-end-of-backtrace: |
| 2a1700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f | .................Frame.Navigatio |
| 2a1720 | 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 39 29 0a 2a 20 73 6c 64 62 2d 65 76 61 6c 2d 69 6e 2d | n.....(line..19).*.sldb-eval-in- |
| 2a1740 | 66 72 61 6d 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 78 61 6d 69 6e | frame:....................Examin |
| 2a1760 | 69 6e 67 20 66 72 61 6d 65 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 39 29 0a 2a 20 73 6c 64 62 | ing.frames.....(line..19).*.sldb |
| 2a1780 | 2d 69 6e 73 70 65 63 74 2d 63 6f 6e 64 69 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -inspect-condition:............. |
| 2a17a0 | 20 20 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 | ...Miscellaneous........(line..2 |
| 2a17c0 | 34 29 0a 2a 20 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 69 6e 2d 66 72 61 6d 65 3a 20 20 20 20 20 | 4).*.sldb-inspect-in-frame:..... |
| 2a17e0 | 20 20 20 20 20 20 20 20 20 20 20 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 2e 20 20 20 | ............Examining.frames.... |
| 2a1800 | 20 28 6c 69 6e 65 20 20 33 34 29 0a 2a 20 73 6c 64 62 2d 6e 65 78 74 3a 20 20 20 20 20 20 20 20 | .(line..34).*.sldb-next:........ |
| 2a1820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 74 65 70 70 69 6e 67 2e 20 20 | .....................Stepping... |
| 2a1840 | 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 37 29 0a 2a 20 73 6c 64 62 2d 6f 75 74 3a | ..........(line..17).*.sldb-out: |
| 2a1860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 74 | ..............................St |
| 2a1880 | 65 70 70 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 31 29 0a 2a 20 | epping.............(line..21).*. |
| 2a18a0 | 73 6c 64 62 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 3a 20 20 20 20 20 20 | sldb-pprint-eval-in-frame:...... |
| 2a18c0 | 20 20 20 20 20 20 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 2e 20 20 20 20 28 6c 69 6e | .......Examining.frames.....(lin |
| 2a18e0 | 65 20 20 32 34 29 0a 2a 20 73 6c 64 62 2d 71 75 69 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e..24).*.sldb-quit:............. |
| 2a1900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 73 74 61 72 74 73 2e 20 20 20 20 20 20 20 | ................Restarts........ |
| 2a1920 | 20 20 20 20 20 28 6c 69 6e 65 20 20 31 32 29 0a 2a 20 73 6c 64 62 2d 72 65 63 6f 6d 70 69 6c 65 | .....(line..12).*.sldb-recompile |
| 2a1940 | 2d 66 72 61 6d 65 2d 73 6f 75 72 63 65 3a 20 20 20 20 20 20 20 20 20 20 20 45 78 61 6d 69 6e 69 | -frame-source:...........Examini |
| 2a1960 | 6e 67 20 66 72 61 6d 65 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 33 38 29 0a 2a 20 73 6c 64 62 2d | ng.frames.....(line..38).*.sldb- |
| 2a1980 | 72 65 73 74 61 72 74 2d 66 72 61 6d 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | restart-frame:.................. |
| 2a19a0 | 20 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 | ..Miscellaneous........(line...8 |
| 2a19c0 | 29 0a 2a 20 73 6c 64 62 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 3a 20 20 20 20 20 | ).*.sldb-return-from-frame:..... |
| 2a19e0 | 20 20 20 20 20 20 20 20 20 20 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2e 20 20 20 20 20 20 20 | ...........Miscellaneous........ |
| 2a1a00 | 28 6c 69 6e 65 20 20 31 34 29 0a 2a 20 73 6c 64 62 2d 73 68 6f 77 2d 73 6f 75 72 63 65 3a 20 20 | (line..14).*.sldb-show-source:.. |
| 2a1a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 | ....................Examining.fr |
| 2a1a40 | 61 6d 65 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 34 29 0a 2a 20 73 6c 64 62 2d 73 74 65 70 3a | ames.....(line..14).*.sldb-step: |
| 2a1a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 74 65 | .............................Ste |
| 2a1a80 | 70 70 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 31 29 0a 2a 20 73 | pping.............(line..11).*.s |
| 2a1aa0 | 6c 64 62 2d 74 6f 67 67 6c 65 2d 64 65 74 61 69 6c 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ldb-toggle-details:............. |
| 2a1ac0 | 20 20 20 20 20 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 2e 20 20 20 20 28 6c 69 6e 65 | ......Examining.frames.....(line |
| 2a1ae0 | 20 20 31 30 29 0a 2a 20 73 6c 64 62 2d 75 70 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..10).*.sldb-up:................ |
| 2a1b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 2e | ...............Frame.Navigation. |
| 2a1b20 | 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 73 6c 69 6d 65 2d 61 62 6f 72 74 2d 63 6f 6e | ....(line...8).*.slime-abort-con |
| 2a1b40 | 6e 65 63 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 | nection:................Multiple |
| 2a1b60 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .connections.................... |
| 2a1b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a1ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 37 39 29 0a 2a 20 73 6c 69 6d 65 2d 61 | ............(line..79).*.slime-a |
| 2a1bc0 | 70 72 6f 70 6f 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | propos:......................... |
| 2a1be0 | 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 35 29 0a | Documentation........(line..25). |
| 2a1c00 | 2a 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 61 6c 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 | *.slime-apropos-all:............ |
| 2a1c20 | 20 20 20 20 20 20 20 20 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c | .........Documentation........(l |
| 2a1c40 | 69 6e 65 20 20 33 33 29 0a 2a 20 73 6c 69 6d 65 2d 61 70 72 6f 70 6f 73 2d 70 61 63 6b 61 67 65 | ine..33).*.slime-apropos-package |
| 2a1c60 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e | :.................Documentation. |
| 2a1c80 | 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 37 29 0a 2a 20 73 6c 69 6d 65 2d 61 72 67 6c 69 73 | .......(line..37).*.slime-arglis |
| 2a1ca0 | 74 20 4e 41 4d 45 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 | t.NAME:....................slime |
| 2a1cc0 | 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2e 20 20 28 6c 69 6e 65 20 20 31 35 29 0a 2a 20 73 6c 69 | -autodoc-mode...(line..15).*.sli |
| 2a1ce0 | 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 61 6e 75 61 6c 6c 79 3a 20 20 20 20 20 20 20 20 20 20 20 20 | me-autodoc-manually:............ |
| 2a1d00 | 20 20 20 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2e 20 20 28 6c 69 6e 65 20 20 | ....slime-autodoc-mode...(line.. |
| 2a1d20 | 32 32 29 0a 2a 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 3a 20 20 20 20 20 20 20 | 22).*.slime-autodoc-mode:....... |
| 2a1d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2e | .............slime-autodoc-mode. |
| 2a1d60 | 20 20 28 6c 69 6e 65 20 20 31 38 29 0a 2a 20 73 6c 69 6d 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 6f | ..(line..18).*.slime-beginning-o |
| 2a1d80 | 66 2d 64 65 66 75 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 64 69 74 69 6e 67 20 43 6f | f-defun:..............Editing.Co |
| 2a1da0 | 6d 6d 61 6e 64 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 33 38 29 0a 2a 20 73 6c 69 6d 65 2d 62 72 | mmands.....(line..38).*.slime-br |
| 2a1dc0 | 6f 77 73 65 2d 63 6c 61 73 73 65 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 | owse-classes:..................X |
| 2a1de0 | 72 65 66 20 61 6e 64 20 43 6c 61 73 73 20 42 72 6f 77 73 65 72 2e 0a 20 20 20 20 20 20 20 20 20 | ref.and.Class.Browser........... |
| 2a1e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a1e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 30 29 0a | .....................(line..10). |
| 2a1e40 | 2a 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 2d 73 79 73 74 65 6d 20 4e 41 4d 45 3a 20 20 20 20 20 | *.slime-browse-system.NAME:..... |
| 2a1e60 | 20 20 20 20 20 20 20 20 20 41 53 44 46 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | .........ASDF.................(l |
| 2a1e80 | 69 6e 65 20 20 32 31 29 0a 2a 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 2d 78 72 65 66 73 3a 20 20 | ine..21).*.slime-browse-xrefs:.. |
| 2a1ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 72 65 66 20 61 6e 64 20 43 6c 61 73 73 | ..................Xref.and.Class |
| 2a1ec0 | 20 42 72 6f 77 73 65 72 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .Browser........................ |
| 2a1ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a1f00 | 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 34 29 0a 2a 20 73 6c 69 6d 65 2d 63 61 6c 6c 2d | ........(line..14).*.slime-call- |
| 2a1f20 | 64 65 66 75 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c | defun:......................REPL |
| 2a1f40 | 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 37 29 0a 2a 20 73 6c | .................(line..27).*.sl |
| 2a1f60 | 69 6d 65 2d 63 61 6c 6c 73 2d 77 68 6f 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ime-calls-who:.................. |
| 2a1f80 | 20 20 20 20 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 20 | .....Cross-reference......(line. |
| 2a1fa0 | 20 32 36 29 0a 2a 20 73 6c 69 6d 65 2d 63 64 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .26).*.slime-cd:................ |
| 2a1fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 63 6f 76 65 72 79 2e 20 20 20 20 20 20 20 20 20 | ..............Recovery.......... |
| 2a1fe0 | 20 20 20 28 6c 69 6e 65 20 20 32 33 29 0a 2a 20 73 6c 69 6d 65 2d 63 6c 6f 73 65 2d 61 6c 6c 2d | ...(line..23).*.slime-close-all- |
| 2a2000 | 70 61 72 65 6e 73 2d 69 6e 2d 73 65 78 70 3a 20 20 20 20 20 20 20 20 45 64 69 74 69 6e 67 20 43 | parens-in-sexp:........Editing.C |
| 2a2020 | 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 32 30 29 0a 2a 20 73 6c 69 6d 65 2d 63 | ommands.....(line..20).*.slime-c |
| 2a2040 | 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c 6f 61 64 2d 66 69 6c 65 3a 20 20 20 20 20 20 20 20 20 20 20 | ompile-and-load-file:........... |
| 2a2060 | 43 6f 6d 70 69 6c 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 38 29 0a | Compilation..........(line..28). |
| 2a2080 | 2a 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 64 65 66 75 6e 3a 20 20 20 20 20 20 20 20 20 20 | *.slime-compile-defun:.......... |
| 2a20a0 | 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c | .........Compilation..........(l |
| 2a20c0 | 69 6e 65 20 20 31 34 29 0a 2a 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 3a 20 20 | ine..14).*.slime-compile-file:.. |
| 2a20e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 2e 20 20 | ..................Compilation... |
| 2a2100 | 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 34 30 29 0a 2a 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c | .......(line..40).*.slime-compil |
| 2a2120 | 65 2d 72 65 67 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 | e-region:..................Compi |
| 2a2140 | 6c 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 34 37 29 0a 2a 20 73 6c 69 | lation..........(line..47).*.sli |
| 2a2160 | 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 3a 20 20 20 20 20 20 20 20 | me-compiler-macroexpand:........ |
| 2a2180 | 20 20 20 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 | ....Macro-expansion......(line.. |
| 2a21a0 | 32 35 29 0a 2a 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 | 25).*.slime-compiler-macroexpand |
| 2a21c0 | 2d 31 3a 20 20 20 20 20 20 20 20 20 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 2e 20 20 20 | -1:..........Macro-expansion.... |
| 2a21e0 | 20 20 28 6c 69 6e 65 20 20 32 32 29 0a 2a 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 66 6f | ..(line..22).*.slime-complete-fo |
| 2a2200 | 72 6d 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 6f 75 6e 64 20 43 | rm:...................Compound.C |
| 2a2220 | 6f 6d 70 6c 65 74 69 6f 6e 2e 20 28 6c 69 6e 65 20 20 34 38 29 0a 2a 20 73 6c 69 6d 65 2d 63 6f | ompletion..(line..48).*.slime-co |
| 2a2240 | 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 | mplete-symbol:.................C |
| 2a2260 | 6f 6d 70 6c 65 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 33 29 0a 2a | ompletion...........(line..13).* |
| 2a2280 | 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .slime-connect:................. |
| 2a22a0 | 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 | ........Multiple.connections.... |
| 2a22c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a22e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e | ............................(lin |
| 2a2300 | 65 20 20 37 33 29 0a 2a 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 2d 6d | e..73).*.slime-connection-list-m |
| 2a2320 | 61 6b 65 2d 64 65 66 61 75 6c 74 3a 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 | ake-default:....Multiple.connect |
| 2a2340 | 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ions............................ |
| 2a2360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a2380 | 20 20 20 20 28 6c 69 6e 65 20 20 35 36 29 0a 2a 20 73 6c 69 6d 65 2d 63 6f 70 79 2d 70 72 65 73 | ....(line..56).*.slime-copy-pres |
| 2a23a0 | 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 74 6f 2d 6b 69 6c 6c 2d 72 69 6e 67 3a 20 | entation-at-point-to-kill-ring:. |
| 2a23c0 | 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | Presentations................... |
| 2a23e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a2400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 39 37 29 0a 2a 20 73 6c 69 6d 65 2d | .............(line..97).*.slime- |
| 2a2420 | 63 6f 70 79 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 74 6f 2d 72 65 | copy-presentation-at-point-to-re |
| 2a2440 | 70 6c 3a 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 20 20 28 6c 69 6e 65 20 31 30 32 29 | pl:.Presentations.....(line.102) |
| 2a2460 | 0a 2a 20 73 6c 69 6d 65 2d 63 79 63 6c 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 3a 20 20 20 20 20 | .*.slime-cycle-connections:..... |
| 2a2480 | 20 20 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a | ..........Multiple.connections.. |
| 2a24a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a24c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ..............................(l |
| 2a24e0 | 69 6e 65 20 20 33 33 29 0a 2a 20 73 6c 69 6d 65 2d 64 65 6c 65 74 65 2d 73 79 73 74 65 6d 2d 66 | ine..33).*.slime-delete-system-f |
| 2a2500 | 61 73 6c 73 20 4e 41 4d 45 3a 20 20 20 20 20 20 20 20 41 53 44 46 2e 20 20 20 20 20 20 20 20 20 | asls.NAME:........ASDF.......... |
| 2a2520 | 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 33 29 0a 2a 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 | .......(line..23).*.slime-descri |
| 2a2540 | 62 65 2d 66 75 6e 63 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6f 63 75 6d | be-function:...............Docum |
| 2a2560 | 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 31 29 0a 2a 20 73 6c 69 | entation........(line..21).*.sli |
| 2a2580 | 6d 65 2d 64 65 73 63 72 69 62 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e | me-describe-presentation-at-poin |
| 2a25a0 | 74 3a 20 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 31 | t:..Presentations........(line.1 |
| 2a25c0 | 30 37 29 0a 2a 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 3a 20 20 20 20 | 07).*.slime-describe-symbol:.... |
| 2a25e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 | .............Documentation...... |
| 2a2600 | 20 20 28 6c 69 6e 65 20 20 31 37 29 0a 2a 20 73 6c 69 6d 65 2d 64 69 73 61 73 73 65 6d 62 6c 65 | ..(line..17).*.slime-disassemble |
| 2a2620 | 2d 73 79 6d 62 6f 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 69 73 61 73 73 65 6d 62 6c | -symbol:..............Disassembl |
| 2a2640 | 79 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 73 6c 69 6d 65 2d 64 69 | y..........(line...8).*.slime-di |
| 2a2660 | 73 63 6f 6e 6e 65 63 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d | sconnect:......................M |
| 2a2680 | 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 | ultiple.connections............. |
| 2a26a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a26c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 37 36 29 0a 2a 20 | ...................(line..76).*. |
| 2a26e0 | 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 | slime-edit-definition:.......... |
| 2a2700 | 20 20 20 20 20 20 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 20 28 6c 69 6e | .......Finding.definitions..(lin |
| 2a2720 | 65 20 20 31 33 29 0a 2a 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 6f | e..13).*.slime-edit-definition-o |
| 2a2740 | 74 68 65 72 2d 66 72 61 6d 65 3a 20 20 20 20 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 | ther-frame:.....Finding.definiti |
| 2a2760 | 6f 6e 73 2e 20 28 6c 69 6e 65 20 20 32 38 29 0a 2a 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 | ons..(line..28).*.slime-edit-def |
| 2a2780 | 69 6e 69 74 69 6f 6e 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 3a 20 20 20 20 46 69 6e 64 69 6e 67 | inition-other-window:....Finding |
| 2a27a0 | 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 20 28 6c 69 6e 65 20 20 32 33 29 0a 2a 20 73 6c 69 6d 65 | .definitions..(line..23).*.slime |
| 2a27c0 | 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 77 69 74 68 2d 65 74 61 67 73 3a 20 20 20 20 | -edit-definition-with-etags:.... |
| 2a27e0 | 20 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 20 28 6c 69 6e 65 20 20 33 32 | ..Finding.definitions..(line..32 |
| 2a2800 | 29 0a 2a 20 73 6c 69 6d 65 2d 65 64 69 74 2d 76 61 6c 75 65 3a 20 20 20 20 20 20 20 20 20 20 20 | ).*.slime-edit-value:........... |
| 2a2820 | 20 20 20 20 20 20 20 20 20 20 20 45 76 61 6c 75 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 | ...........Evaluation........... |
| 2a2840 | 28 6c 69 6e 65 20 20 34 36 29 0a 2a 20 73 6c 69 6d 65 2d 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 3a | (line..46).*.slime-end-of-defun: |
| 2a2860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d | ....................Editing.Comm |
| 2a2880 | 61 6e 64 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 34 30 29 0a 2a 20 73 6c 69 6d 65 2d 65 6e 73 75 | ands.....(line..40).*.slime-ensu |
| 2a28a0 | 72 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 54 79 70 | re-typeout-frame:............Typ |
| 2a28c0 | 65 6f 75 74 20 66 72 61 6d 65 73 2e 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 35 29 0a 2a 20 73 | eout.frames.......(line..15).*.s |
| 2a28e0 | 6c 69 6d 65 2d 65 76 61 6c 2d 64 65 66 75 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lime-eval-defun:................ |
| 2a2900 | 20 20 20 20 20 20 45 76 61 6c 75 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 | ......Evaluation...........(line |
| 2a2920 | 20 20 31 39 29 0a 2a 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 | ..19).*.slime-eval-last-expressi |
| 2a2940 | 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 45 76 61 6c 75 61 74 69 6f 6e 2e 20 20 20 20 20 20 | on:............Evaluation....... |
| 2a2960 | 20 20 20 20 28 6c 69 6e 65 20 20 31 33 29 0a 2a 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 6c 61 73 74 | ....(line..13).*.slime-eval-last |
| 2a2980 | 2d 65 78 70 72 65 73 73 69 6f 6e 2d 69 6e 2d 72 65 70 6c 3a 20 20 20 20 52 45 50 4c 2e 20 20 20 | -expression-in-repl:....REPL.... |
| 2a29a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 31 29 0a 2a 20 73 6c 69 6d 65 2d | .............(line..31).*.slime- |
| 2a29c0 | 65 76 61 6c 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 3a 20 20 20 20 20 | eval-print-last-expression:..... |
| 2a29e0 | 20 53 63 72 61 74 63 68 20 42 75 66 66 65 72 2e 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 33 29 | .Scratch.Buffer.......(line..13) |
| 2a2a00 | 0a 2a 20 73 6c 69 6d 65 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 | .*.slime-eval-region:........... |
| 2a2a20 | 20 20 20 20 20 20 20 20 20 20 45 76 61 6c 75 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 28 | ..........Evaluation...........( |
| 2a2a40 | 6c 69 6e 65 20 20 33 37 29 0a 2a 20 73 6c 69 6d 65 2d 65 78 70 61 6e 64 2d 31 3a 20 20 20 20 20 | line..37).*.slime-expand-1:..... |
| 2a2a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 | ...................Macro-expansi |
| 2a2a80 | 6f 6e 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 | on......(line...8).*.slime-fuzzy |
| 2a2aa0 | 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 3a 20 20 20 20 20 20 20 20 20 20 20 46 75 7a 7a | -complete-symbol:...........Fuzz |
| 2a2ac0 | 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 31 29 0a 2a 20 73 6c | y.Completion.....(line..11).*.sl |
| 2a2ae0 | 69 6d 65 2d 67 6f 74 6f 2d 63 6f 6e 6e 65 63 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 | ime-goto-connection:............ |
| 2a2b00 | 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 | .....Multiple.connections....... |
| 2a2b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a2b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 | .........................(line.. |
| 2a2b60 | 35 32 29 0a 2a 20 73 6c 69 6d 65 2d 67 6f 74 6f 2d 78 72 65 66 3a 20 20 20 20 20 20 20 20 20 20 | 52).*.slime-goto-xref:.......... |
| 2a2b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 58 72 65 66 20 62 75 66 66 65 72 20 63 6f 6d 6d 61 6e 64 | .............Xref.buffer.command |
| 2a2ba0 | 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s............................... |
| 2a2bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a2be0 | 20 28 6c 69 6e 65 20 20 31 35 29 0a 2a 20 73 6c 69 6d 65 2d 68 69 67 68 6c 69 67 68 74 2d 65 64 | .(line..15).*.slime-highlight-ed |
| 2a2c00 | 69 74 73 2d 6d 6f 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 48 69 67 68 6c 69 67 68 74 20 45 | its-mode:............Highlight.E |
| 2a2c20 | 64 69 74 73 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 31 31 29 0a 2a 20 73 6c 69 6d 65 2d 68 79 70 | dits......(line..11).*.slime-hyp |
| 2a2c40 | 65 72 73 70 65 63 2d 6c 6f 6f 6b 75 70 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6f | erspec-lookup:................Do |
| 2a2c60 | 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 34 34 29 0a 2a 20 | cumentation........(line..44).*. |
| 2a2c80 | 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 2d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c | slime-indent-and-complete-symbol |
| 2a2ca0 | 3a 20 20 20 20 20 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e | :......REPL.commands........(lin |
| 2a2cc0 | 65 20 20 32 30 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 65 72 74 2d 62 61 6c 61 6e 63 65 64 2d 63 | e..20).*.slime-insert-balanced-c |
| 2a2ce0 | 6f 6d 6d 65 6e 74 73 3a 20 20 20 20 20 20 20 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 | omments:........Editing.Commands |
| 2a2d00 | 2e 20 20 20 20 28 6c 69 6e 65 20 20 32 39 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 3a | .....(line..29).*.slime-inspect: |
| 2a2d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 | .........................Inspect |
| 2a2d40 | 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 36 29 0a 2a 20 73 6c 69 6d 65 | or............(line..16).*.slime |
| 2a2d60 | 2d 69 6e 73 70 65 63 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 3a 20 | -inspect-presentation-at-point:. |
| 2a2d80 | 20 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 31 31 31 | ..Presentations........(line.111 |
| 2a2da0 | 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 63 6f 70 79 2d 64 6f 77 6e 3a 20 20 | ).*.slime-inspector-copy-down:.. |
| 2a2dc0 | 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 | ...........Inspector............ |
| 2a2de0 | 28 6c 69 6e 65 20 20 36 39 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 64 65 73 | (line..69).*.slime-inspector-des |
| 2a2e00 | 63 72 69 62 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 | cribe:..............Inspector... |
| 2a2e20 | 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 37 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 70 | .........(line..27).*.slime-insp |
| 2a2e40 | 65 63 74 6f 72 2d 65 76 61 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 | ector-eval:..................Ins |
| 2a2e60 | 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 31 29 0a 2a 20 73 | pector............(line..31).*.s |
| 2a2e80 | 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 66 65 74 63 68 2d 61 6c 6c 3a 20 20 20 20 20 20 20 | lime-inspector-fetch-all:....... |
| 2a2ea0 | 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 | ......Inspector............(line |
| 2a2ec0 | 20 20 36 35 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 6e 65 78 74 3a 20 20 20 | ..65).*.slime-inspector-next:... |
| 2a2ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 | ...............Inspector........ |
| 2a2f00 | 20 20 20 20 28 6c 69 6e 65 20 20 34 35 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 | ....(line..45).*.slime-inspector |
| 2a2f20 | 2d 6e 65 78 74 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 74 3a 20 49 6e 73 70 65 63 | -next-inspectable-object:.Inspec |
| 2a2f40 | 74 6f 72 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 37 34 29 0a 2a 20 73 6c 69 6d 65 2d | tor..........(line..74).*.slime- |
| 2a2f60 | 69 6e 73 70 65 63 74 6f 72 2d 6f 70 65 72 61 74 65 2d 6f 6e 2d 70 6f 69 6e 74 3a 20 20 20 20 20 | inspector-operate-on-point:..... |
| 2a2f80 | 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 32 29 | .Inspector............(line..22) |
| 2a2fa0 | 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 6f 70 3a 20 20 20 20 20 20 20 20 20 | .*.slime-inspector-pop:......... |
| 2a2fc0 | 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 | ..........Inspector............( |
| 2a2fe0 | 6c 69 6e 65 20 20 34 31 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 70 70 72 69 | line..41).*.slime-inspector-ppri |
| 2a3000 | 6e 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 | nt:................Inspector.... |
| 2a3020 | 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 35 37 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 70 65 | ........(line..57).*.slime-inspe |
| 2a3040 | 63 74 6f 72 2d 70 72 65 76 69 6f 75 73 2d 69 6e 73 70 65 63 74 61 62 6c 65 2d 6f 62 6a 65 63 74 | ctor-previous-inspectable-object |
| 2a3060 | 3a 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 37 34 29 0a 2a 20 73 6c | :.Inspector......(line..74).*.sl |
| 2a3080 | 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 71 75 69 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ime-inspector-quit:............. |
| 2a30a0 | 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 | .....Inspector............(line. |
| 2a30c0 | 20 35 33 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 72 65 69 6e 73 70 65 63 74 | .53).*.slime-inspector-reinspect |
| 2a30e0 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 | :.............Inspector......... |
| 2a3100 | 20 20 20 28 6c 69 6e 65 20 20 34 39 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d | ...(line..49).*.slime-inspector- |
| 2a3120 | 73 68 6f 77 2d 73 6f 75 72 63 65 3a 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 70 65 63 74 6f 72 | show-source:...........Inspector |
| 2a3140 | 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 31 29 0a 2a 20 73 6c 69 6d 65 2d 69 | ............(line..61).*.slime-i |
| 2a3160 | 6e 73 70 65 63 74 6f 72 2d 74 6f 67 67 6c 65 2d 76 65 72 62 6f 73 65 3a 20 20 20 20 20 20 20 20 | nspector-toggle-verbose:........ |
| 2a3180 | 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 36 29 0a | Inspector............(line..36). |
| 2a31a0 | 2a 20 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 3a 20 20 20 20 20 20 20 | *.slime-interactive-eval:....... |
| 2a31c0 | 20 20 20 20 20 20 20 20 20 45 76 61 6c 75 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 28 6c | .........Evaluation...........(l |
| 2a31e0 | 69 6e 65 20 20 33 33 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 | ine..33).*.slime-interactive-eva |
| 2a3200 | 6c 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2e | l.<1>:............Miscellaneous. |
| 2a3220 | 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 38 29 0a 2a 20 73 6c 69 6d 65 2d 69 6e 74 65 72 72 | .......(line..28).*.slime-interr |
| 2a3240 | 75 70 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 63 6f 76 | upt:.......................Recov |
| 2a3260 | 65 72 79 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 73 6c 69 | ery.............(line...8).*.sli |
| 2a3280 | 6d 65 2d 69 6e 74 65 72 72 75 70 74 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me-interrupt.<1>:............... |
| 2a32a0 | 20 20 20 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 | ....REPL.commands........(line.. |
| 2a32c0 | 33 32 29 0a 2a 20 73 6c 69 6d 65 2d 69 73 65 61 72 63 68 2d 73 79 73 74 65 6d 20 4e 41 4d 45 3a | 32).*.slime-isearch-system.NAME: |
| 2a32e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 41 53 44 46 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............ASDF............... |
| 2a3300 | 20 20 28 6c 69 6e 65 20 20 32 37 29 0a 2a 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 61 6c 6c 65 65 | ..(line..27).*.slime-list-callee |
| 2a3320 | 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 72 6f 73 73 2d 72 65 66 65 | s:....................Cross-refe |
| 2a3340 | 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 35 39 29 0a 2a 20 73 6c 69 6d 65 2d 6c 69 | rence......(line..59).*.slime-li |
| 2a3360 | 73 74 2d 63 61 6c 6c 65 72 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 | st-callers:....................C |
| 2a3380 | 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 35 35 29 0a 2a | ross-reference......(line..55).* |
| 2a33a0 | 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 3a 20 20 20 20 20 20 20 20 | .slime-list-connections:........ |
| 2a33c0 | 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 | ........Multiple.connections.... |
| 2a33e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a3400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e | ............................(lin |
| 2a3420 | 65 20 20 32 37 29 0a 2a 20 73 6c 69 6d 65 2d 6c 69 73 74 2d 74 68 72 65 61 64 73 3a 20 20 20 20 | e..27).*.slime-list-threads:.... |
| 2a3440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 | ................Multiple.connect |
| 2a3460 | 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ions............................ |
| 2a3480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a34a0 | 20 20 20 20 28 6c 69 6e 65 20 20 33 39 29 0a 2a 20 73 6c 69 6d 65 2d 6c 6f 61 64 2d 66 69 6c 65 | ....(line..39).*.slime-load-file |
| 2a34c0 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 | :.......................Compilat |
| 2a34e0 | 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 34 34 29 0a 2a 20 73 6c 69 6d 65 2d | ion..........(line..44).*.slime- |
| 2a3500 | 6c 6f 61 64 2d 73 79 73 74 65 6d 20 4e 41 4d 45 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | load-system.NAME:............... |
| 2a3520 | 20 41 53 44 46 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 33 29 | .ASDF.................(line..13) |
| 2a3540 | 0a 2a 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 3a 20 20 20 20 20 20 20 20 20 | .*.slime-macroexpand-1:......... |
| 2a3560 | 20 20 20 20 20 20 20 20 20 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 2e 20 20 20 20 20 28 | ..........Macro-expansion......( |
| 2a3580 | 6c 69 6e 65 20 20 31 34 29 0a 2a 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 2d | line..14).*.slime-macroexpand-1- |
| 2a35a0 | 69 6e 70 6c 61 63 65 3a 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 | inplace:...........slime-macroex |
| 2a35c0 | 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | pansion-minor-mode.............. |
| 2a35e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a3600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 32 29 0a 2a 20 73 | ..................(line..12).*.s |
| 2a3620 | 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 2d 69 6e 70 6c 61 63 65 20 3c 31 3e 3a 20 | lime-macroexpand-1-inplace.<1>:. |
| 2a3640 | 20 20 20 20 20 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 | ......slime-macroexpansion-minor |
| 2a3660 | 2d 6d 6f 64 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -mode........................... |
| 2a3680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a36a0 | 20 20 20 20 20 28 6c 69 6e 65 20 20 31 37 29 0a 2a 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 | .....(line..17).*.slime-macroexp |
| 2a36c0 | 61 6e 64 2d 61 6c 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 63 72 6f 2d 65 | and-all:.................Macro-e |
| 2a36e0 | 78 70 61 6e 73 69 6f 6e 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 31 39 29 0a 2a 20 73 6c 69 6d 65 | xpansion......(line..19).*.slime |
| 2a3700 | 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 75 6e 64 6f 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -macroexpand-undo:.............. |
| 2a3720 | 20 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 | ..slime-macroexpansion-minor-mod |
| 2a3740 | 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e............................... |
| 2a3760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a3780 | 20 28 6c 69 6e 65 20 20 32 36 29 0a 2a 20 73 6c 69 6d 65 2d 6d 61 72 6b 2d 70 72 65 73 65 6e 74 | .(line..26).*.slime-mark-present |
| 2a37a0 | 61 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 72 65 73 65 6e 74 61 74 69 6f | ation:...............Presentatio |
| 2a37c0 | 6e 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 39 31 29 0a 2a 20 73 6c 69 6d 65 2d 6e 65 78 | ns........(line..91).*.slime-nex |
| 2a37e0 | 74 2d 6e 6f 74 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f | t-note:.......................Co |
| 2a3800 | 6d 70 69 6c 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 35 35 29 0a 2a 20 | mpilation..........(line..55).*. |
| 2a3820 | 73 6c 69 6d 65 2d 6e 65 78 74 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 | slime-next-presentation:........ |
| 2a3840 | 20 20 20 20 20 20 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 20 20 20 20 20 28 6c 69 6e | .......Presentations........(lin |
| 2a3860 | 65 20 31 31 36 29 0a 2a 20 73 6c 69 6d 65 2d 6e 6f 70 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.116).*.slime-nop:............. |
| 2a3880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 74 68 65 72 2e 20 20 20 20 20 20 20 20 20 20 | ................Other........... |
| 2a38a0 | 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 73 6c 69 6d 65 2d 6e 6f 70 20 3c 31 3e 3a | .....(line...8).*.slime-nop.<1>: |
| 2a38c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 74 68 65 72 2e 20 | .........................Other.. |
| 2a38e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 73 6c 69 6d 65 | ..............(line...8).*.slime |
| 2a3900 | 2d 6f 70 65 6e 2d 73 79 73 74 65 6d 20 4e 41 4d 45 20 26 6f 70 74 69 6f 6e 61 6c 20 4c 4f 41 44 | -open-system.NAME.&optional.LOAD |
| 2a3920 | 3a 20 41 53 44 46 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 39 | :.ASDF.................(line..19 |
| 2a3940 | 29 0a 2a 20 73 6c 69 6d 65 2d 70 6f 70 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 | ).*.slime-pop-find-definition-st |
| 2a3960 | 61 63 6b 3a 20 20 20 20 20 20 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 20 | ack:.......Finding.definitions.. |
| 2a3980 | 28 6c 69 6e 65 20 20 31 38 29 0a 2a 20 73 6c 69 6d 65 2d 70 70 72 69 6e 74 2d 65 76 61 6c 2d 6c | (line..18).*.slime-pprint-eval-l |
| 2a39a0 | 61 73 74 2d 65 78 70 72 65 73 73 69 6f 6e 3a 20 20 20 20 20 45 76 61 6c 75 61 74 69 6f 6e 2e 20 | ast-expression:.....Evaluation.. |
| 2a39c0 | 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 34 31 29 0a 2a 20 73 6c 69 6d 65 2d 70 72 65 76 | .........(line..41).*.slime-prev |
| 2a39e0 | 69 6f 75 73 2d 6e 6f 74 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d | ious-note:...................Com |
| 2a3a00 | 70 69 6c 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 35 39 29 0a 2a 20 73 | pilation..........(line..59).*.s |
| 2a3a20 | 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 3a 20 20 20 20 20 | lime-previous-presentation:..... |
| 2a3a40 | 20 20 20 20 20 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 | ......Presentations........(line |
| 2a3a60 | 20 31 32 30 29 0a 2a 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 62 79 2d 73 75 62 73 74 72 69 | .120).*.slime-profile-by-substri |
| 2a3a80 | 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 50 72 6f 66 69 6c 69 6e 67 2e 20 20 20 20 20 20 20 | ng:............Profiling........ |
| 2a3aa0 | 20 20 20 20 28 6c 69 6e 65 20 20 31 35 29 0a 2a 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 70 | ....(line..15).*.slime-profile-p |
| 2a3ac0 | 61 63 6b 61 67 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 72 6f 66 69 6c 69 6e | ackage:.................Profilin |
| 2a3ae0 | 67 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 33 29 0a 2a 20 73 6c 69 6d 65 2d | g............(line..13).*.slime- |
| 2a3b00 | 70 72 6f 66 69 6c 65 2d 72 65 70 6f 72 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | profile-report:................. |
| 2a3b20 | 20 50 72 6f 66 69 6c 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 39 29 | .Profiling............(line..19) |
| 2a3b40 | 0a 2a 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 2d 72 65 73 65 74 3a 20 20 20 20 20 20 20 20 20 | .*.slime-profile-reset:......... |
| 2a3b60 | 20 20 20 20 20 20 20 20 20 20 50 72 6f 66 69 6c 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 28 | ..........Profiling............( |
| 2a3b80 | 6c 69 6e 65 20 20 32 31 29 0a 2a 20 73 6c 69 6d 65 2d 70 72 6f 66 69 6c 65 64 2d 66 75 6e 63 74 | line..21).*.slime-profiled-funct |
| 2a3ba0 | 69 6f 6e 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 72 6f 66 69 6c 69 6e 67 2e 20 20 20 | ions:..............Profiling.... |
| 2a3bc0 | 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 33 29 0a 2a 20 73 6c 69 6d 65 2d 70 77 64 3a 20 | ........(line..23).*.slime-pwd:. |
| 2a3be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 63 6f | ............................Reco |
| 2a3c00 | 76 65 72 79 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 37 29 0a 2a 20 73 6c | very.............(line..27).*.sl |
| 2a3c20 | 69 6d 65 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 2d 73 79 73 74 65 6d 20 4e 41 4d 45 20 46 52 | ime-query-replace-system.NAME.FR |
| 2a3c40 | 4f 4d 20 54 4f 20 26 4f 50 54 49 4f 4e 41 4c 20 44 45 4c 49 4d 49 54 45 44 3a 20 41 53 44 46 2e | OM.TO.&OPTIONAL.DELIMITED:.ASDF. |
| 2a3c60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a3c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 2a3ca0 | 6c 69 6e 65 20 20 32 39 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 61 6c 6c 2d | line..29).*.slime-recompile-all- |
| 2a3cc0 | 78 72 65 66 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 58 72 65 66 20 62 75 66 66 65 72 20 63 | xrefs:.............Xref.buffer.c |
| 2a3ce0 | 6f 6d 6d 61 6e 64 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ommands......................... |
| 2a3d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a3d20 | 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 33 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 63 6f 6d 70 | .......(line..23).*.slime-recomp |
| 2a3d40 | 69 6c 65 2d 78 72 65 66 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 72 65 66 20 | ile-xref:..................Xref. |
| 2a3d60 | 62 75 66 66 65 72 20 63 6f 6d 6d 61 6e 64 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | buffer.commands................. |
| 2a3d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a3da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 39 29 0a 2a 20 73 6c 69 6d | ...............(line..19).*.slim |
| 2a3dc0 | 65 2d 72 65 69 6e 64 65 6e 74 2d 64 65 66 75 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-reindent-defun:............... |
| 2a3de0 | 20 20 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 | ...Editing.Commands.....(line..1 |
| 2a3e00 | 31 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 6c 6f 61 64 2d 73 79 73 74 65 6d 20 4e 41 4d 45 3a 20 20 | 1).*.slime-reload-system.NAME:.. |
| 2a3e20 | 20 20 20 20 20 20 20 20 20 20 20 20 41 53 44 46 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............ASDF................ |
| 2a3e40 | 20 28 6c 69 6e 65 20 20 31 36 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 6d 6f 76 65 2d 6e 6f 74 65 73 | .(line..16).*.slime-remove-notes |
| 2a3e60 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 69 6f 6e | :....................Compilation |
| 2a3e80 | 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 33 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 | ..........(line..63).*.slime-rep |
| 2a3ea0 | 6c 2d 62 61 63 6b 77 61 72 64 2d 69 6e 70 75 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e | l-backward-input:.............In |
| 2a3ec0 | 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 34 29 0a 2a 20 | put.Navigation.....(line..14).*. |
| 2a3ee0 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 6f 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | slime-repl-bol:................. |
| 2a3f00 | 20 20 20 20 20 20 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e | .......REPL.commands........(lin |
| 2a3f20 | 65 20 20 32 38 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 61 72 2d 62 75 66 66 65 72 | e..28).*.slime-repl-clear-buffer |
| 2a3f40 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 | :...............REPL.commands... |
| 2a3f60 | 20 20 20 20 20 28 6c 69 6e 65 20 20 33 36 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 63 6c 65 | .....(line..36).*.slime-repl-cle |
| 2a3f80 | 61 72 2d 6f 75 74 70 75 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 20 63 6f | ar-output:...............REPL.co |
| 2a3fa0 | 6d 6d 61 6e 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 34 30 29 0a 2a 20 73 6c 69 6d 65 | mmands........(line..40).*.slime |
| 2a3fc0 | 2d 72 65 70 6c 2d 63 6c 6f 73 69 6e 67 2d 72 65 74 75 72 6e 3a 20 20 20 20 20 20 20 20 20 20 20 | -repl-closing-return:........... |
| 2a3fe0 | 20 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 35 | ..REPL.commands........(line..15 |
| 2a4000 | 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 66 6f 72 77 61 72 64 2d 69 6e 70 75 74 3a 20 20 20 | ).*.slime-repl-forward-input:... |
| 2a4020 | 20 20 20 20 20 20 20 20 20 20 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 | ...........Input.Navigation..... |
| 2a4040 | 28 6c 69 6e 65 20 20 31 34 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 77 6c 69 6e 65 2d | (line..14).*.slime-repl-newline- |
| 2a4060 | 61 6e 64 2d 69 6e 64 65 6e 74 3a 20 20 20 20 20 20 20 20 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 | and-indent:.........REPL.command |
| 2a4080 | 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 34 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c | s........(line..24).*.slime-repl |
| 2a40a0 | 2d 6e 65 78 74 2d 69 6e 70 75 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 70 | -next-input:.................Inp |
| 2a40c0 | 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 38 29 0a 2a 20 73 | ut.Navigation.....(line..18).*.s |
| 2a40e0 | 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d 6d 61 74 63 68 69 6e 67 2d 69 6e 70 75 74 3a 20 20 | lime-repl-next-matching-input:.. |
| 2a4100 | 20 20 20 20 20 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 | ......Input.Navigation.....(line |
| 2a4120 | 20 20 32 35 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 6e 65 78 74 2d 70 72 6f 6d 70 74 3a 20 | ..25).*.slime-repl-next-prompt:. |
| 2a4140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e | ...............Input.Navigation. |
| 2a4160 | 20 20 20 20 28 6c 69 6e 65 20 20 32 39 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 | ....(line..29).*.slime-repl-prev |
| 2a4180 | 69 6f 75 73 2d 69 6e 70 75 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 70 75 74 20 4e 61 | ious-input:.............Input.Na |
| 2a41a0 | 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 31 38 29 0a 2a 20 73 6c 69 6d 65 2d | vigation.....(line..18).*.slime- |
| 2a41c0 | 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 6d 61 74 63 68 69 6e 67 2d 69 6e 70 75 74 3a 20 20 20 | repl-previous-matching-input:... |
| 2a41e0 | 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 6c 69 6e 65 20 20 32 35 29 | .Input.Navigation.....(line..25) |
| 2a4200 | 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 70 72 6f 6d 70 74 3a 20 20 | .*.slime-repl-previous-prompt:.. |
| 2a4220 | 20 20 20 20 20 20 20 20 20 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 28 | ..........Input.Navigation.....( |
| 2a4240 | 6c 69 6e 65 20 20 32 39 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 72 65 74 75 72 6e 3a 20 20 | line..29).*.slime-repl-return:.. |
| 2a4260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 | ...................REPL.commands |
| 2a4280 | 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 20 38 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 2d | ........(line...8).*.slime-repl- |
| 2a42a0 | 73 65 74 2d 70 61 63 6b 61 67 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 63 6f | set-package:................Reco |
| 2a42c0 | 76 65 72 79 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 30 29 0a 2a 20 73 6c | very.............(line..20).*.sl |
| 2a42e0 | 69 6d 65 2d 72 65 73 74 61 72 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 3a | ime-restart-connection-at-point: |
| 2a4300 | 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 | .....Multiple.connections....... |
| 2a4320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a4340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 | .........................(line.. |
| 2a4360 | 37 30 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 73 74 61 72 74 2d 69 6e 66 65 72 69 6f 72 2d 6c 69 73 | 70).*.slime-restart-inferior-lis |
| 2a4380 | 70 3a 20 20 20 20 20 20 20 20 20 20 20 52 65 63 6f 76 65 72 79 2e 20 20 20 20 20 20 20 20 20 20 | p:...........Recovery........... |
| 2a43a0 | 20 20 28 6c 69 6e 65 20 20 31 31 29 0a 2a 20 73 6c 69 6d 65 2d 72 67 72 65 70 2d 73 79 73 74 65 | ..(line..11).*.slime-rgrep-syste |
| 2a43c0 | 6d 20 4e 41 4d 45 20 52 45 47 45 58 50 3a 20 20 20 20 20 20 20 20 41 53 44 46 2e 20 20 20 20 20 | m.NAME.REGEXP:........ASDF...... |
| 2a43e0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 35 29 0a 2a 20 73 6c 69 6d 65 2d 73 63 | ...........(line..25).*.slime-sc |
| 2a4400 | 72 61 74 63 68 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 | ratch:.........................S |
| 2a4420 | 63 72 61 74 63 68 20 42 75 66 66 65 72 2e 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 37 29 0a 2a | cratch.Buffer.......(line..17).* |
| 2a4440 | 20 73 6c 69 6d 65 2d 73 68 6f 77 2d 78 72 65 66 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .slime-show-xref:............... |
| 2a4460 | 20 20 20 20 20 20 20 20 58 72 65 66 20 62 75 66 66 65 72 20 63 6f 6d 6d 61 6e 64 73 2e 0a 20 20 | ........Xref.buffer.commands.... |
| 2a4480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a44a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e | ............................(lin |
| 2a44c0 | 65 20 20 31 30 29 0a 2a 20 73 6c 69 6d 65 2d 73 70 61 63 65 3a 20 20 20 20 20 20 20 20 20 20 20 | e..10).*.slime-space:........... |
| 2a44e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 20 20 | ................Documentation... |
| 2a4500 | 20 20 20 20 20 28 6c 69 6e 65 20 20 31 32 29 0a 2a 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 | .....(line..12).*.slime-sprof-br |
| 2a4520 | 6f 77 73 65 72 2d 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 75 6e 63 74 69 6f 6e 3a 20 73 6c 69 6d | owser-disassemble-function:.slim |
| 2a4540 | 65 2d 73 70 72 6f 66 2e 20 20 20 20 20 20 28 6c 69 6e 65 20 20 33 30 29 0a 2a 20 73 6c 69 6d 65 | e-sprof.......(line..30).*.slime |
| 2a4560 | 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 74 6f 67 67 6c 65 3a 20 20 20 20 20 20 20 20 20 20 | -sprof-browser-toggle:.......... |
| 2a4580 | 20 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 34 | ..slime-sprof..........(line..24 |
| 2a45a0 | 29 0a 2a 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 62 72 6f 77 73 65 72 2d 76 69 65 77 2d 73 6f 75 | ).*.slime-sprof-browser-view-sou |
| 2a45c0 | 72 63 65 3a 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2e 20 20 20 20 20 20 20 20 20 | rce:.......slime-sprof.......... |
| 2a45e0 | 28 6c 69 6e 65 20 20 32 37 29 0a 2a 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 72 65 70 6f 72 74 3a | (line..27).*.slime-sprof-report: |
| 2a4600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2e | ....................slime-sprof. |
| 2a4620 | 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 38 29 0a 2a 20 73 6c 69 6d 65 2d 73 70 72 6f | .........(line..18).*.slime-spro |
| 2a4640 | 66 2d 73 74 61 72 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 69 | f-start:.....................sli |
| 2a4660 | 6d 65 2d 73 70 72 6f 66 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 33 29 0a 2a 20 73 | me-sprof..........(line..13).*.s |
| 2a4680 | 6c 69 6d 65 2d 73 70 72 6f 66 2d 73 74 6f 70 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lime-sprof-stop:................ |
| 2a46a0 | 20 20 20 20 20 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 | ......slime-sprof..........(line |
| 2a46c0 | 20 20 31 36 29 0a 2a 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2d 74 6f 67 67 6c 65 2d 73 77 61 6e 6b | ..16).*.slime-sprof-toggle-swank |
| 2a46e0 | 2d 65 78 63 6c 75 73 69 6f 6e 3a 20 20 20 20 73 6c 69 6d 65 2d 73 70 72 6f 66 2e 20 20 20 20 20 | -exclusion:....slime-sprof...... |
| 2a4700 | 20 20 20 20 28 6c 69 6e 65 20 20 33 33 29 0a 2a 20 73 6c 69 6d 65 2d 73 77 69 74 63 68 2d 74 6f | ....(line..33).*.slime-switch-to |
| 2a4720 | 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 3a 20 20 20 20 20 20 20 20 20 52 45 50 4c 2e 20 20 20 | -output-buffer:.........REPL.... |
| 2a4740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 33 29 0a 2a 20 73 6c 69 6d 65 2d | .............(line..23).*.slime- |
| 2a4760 | 73 79 6e 63 2d 70 61 63 6b 61 67 65 2d 61 6e 64 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f | sync-package-and-default-directo |
| 2a4780 | 72 79 3a 20 52 65 63 6f 76 65 72 79 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 35 29 | ry:.Recovery..........(line..15) |
| 2a47a0 | 0a 2a 20 73 6c 69 6d 65 2d 74 65 6d 70 2d 62 75 66 66 65 72 2d 71 75 69 74 3a 20 20 20 20 20 20 | .*.slime-temp-buffer-quit:...... |
| 2a47c0 | 20 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d | ..........slime-macroexpansion-m |
| 2a47e0 | 69 6e 6f 72 2d 6d 6f 64 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | inor-mode....................... |
| 2a4800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a4820 | 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 32 32 29 0a 2a 20 73 6c 69 6d 65 2d 74 65 6d 70 | .........(line..22).*.slime-temp |
| 2a4840 | 2d 62 75 66 66 65 72 2d 71 75 69 74 20 3c 31 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 6c | -buffer-quit.<1>:............Mul |
| 2a4860 | 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | tiple.connections............... |
| 2a4880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a48a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 35 29 0a 2a 20 73 6c | .................(line..65).*.sl |
| 2a48c0 | 69 6d 65 2d 74 6f 67 67 6c 65 2d 70 72 6f 66 69 6c 65 2d 66 64 65 66 69 6e 69 74 69 6f 6e 3a 20 | ime-toggle-profile-fdefinition:. |
| 2a48e0 | 20 20 20 20 20 50 72 6f 66 69 6c 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 | .....Profiling............(line. |
| 2a4900 | 20 31 31 29 0a 2a 20 73 6c 69 6d 65 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 66 64 65 66 69 6e | .11).*.slime-toggle-trace-fdefin |
| 2a4920 | 69 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 44 69 73 61 73 73 65 6d 62 6c 79 2e 20 20 20 20 20 20 | ition:........Disassembly....... |
| 2a4940 | 20 20 20 28 6c 69 6e 65 20 20 31 32 29 0a 2a 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c | ...(line..12).*.slime-trace-dial |
| 2a4960 | 6f 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4c 49 4d 45 20 54 72 61 | og:....................SLIME.Tra |
| 2a4980 | 63 65 20 44 69 61 6c 6f 67 2e 20 20 28 6c 69 6e 65 20 20 33 39 29 0a 2a 20 73 6c 69 6d 65 2d 74 | ce.Dialog...(line..39).*.slime-t |
| 2a49a0 | 72 61 63 65 2d 64 69 61 6c 6f 67 2d 63 6c 65 61 72 2d 66 65 74 63 68 65 64 2d 74 72 61 63 65 73 | race-dialog-clear-fetched-traces |
| 2a49c0 | 3a 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 2e 0a 20 20 20 20 20 20 20 20 20 20 | :.SLIME.Trace.Dialog............ |
| 2a49e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a4a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 38 33 29 0a 2a | ....................(line..83).* |
| 2a4a20 | 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 63 68 2d 73 74 61 74 75 73 | .slime-trace-dialog-fetch-status |
| 2a4a40 | 3a 20 20 20 20 20 20 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 2e 20 20 28 6c 69 | :.......SLIME.Trace.Dialog...(li |
| 2a4a60 | 6e 65 20 20 37 36 29 0a 2a 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 2d 66 65 74 | ne..76).*.slime-trace-dialog-fet |
| 2a4a80 | 63 68 2d 74 72 61 63 65 73 3a 20 20 20 20 20 20 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 | ch-traces:.......SLIME.Trace.Dia |
| 2a4aa0 | 6c 6f 67 2e 20 20 28 6c 69 6e 65 20 20 37 39 29 0a 2a 20 73 6c 69 6d 65 2d 74 72 61 63 65 2d 64 | log...(line..79).*.slime-trace-d |
| 2a4ac0 | 69 61 6c 6f 67 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 3a 20 20 20 20 20 20 20 53 4c 49 4d 45 20 | ialog-toggle-trace:.......SLIME. |
| 2a4ae0 | 54 72 61 63 65 20 44 69 61 6c 6f 67 2e 20 20 28 6c 69 6e 65 20 20 32 36 29 0a 2a 20 73 6c 69 6d | Trace.Dialog...(line..26).*.slim |
| 2a4b00 | 65 2d 75 6e 64 65 66 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 | e-undefine-function:............ |
| 2a4b20 | 20 20 20 45 76 61 6c 75 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 35 | ...Evaluation...........(line..5 |
| 2a4b40 | 32 29 0a 2a 20 73 6c 69 6d 65 2d 75 6e 70 72 6f 66 69 6c 65 2d 61 6c 6c 3a 20 20 20 20 20 20 20 | 2).*.slime-unprofile-all:....... |
| 2a4b60 | 20 20 20 20 20 20 20 20 20 20 20 20 50 72 6f 66 69 6c 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 | ............Profiling........... |
| 2a4b80 | 20 28 6c 69 6e 65 20 20 31 37 29 0a 2a 20 73 6c 69 6d 65 2d 75 6e 74 72 61 63 65 2d 61 6c 6c 3a | .(line..17).*.slime-untrace-all: |
| 2a4ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 69 73 61 73 73 65 6d 62 6c 79 | .....................Disassembly |
| 2a4bc0 | 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 31 37 29 0a 2a 20 73 6c 69 6d 65 2d 75 70 64 | ..........(line..17).*.slime-upd |
| 2a4be0 | 61 74 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 69 73 74 3a 20 20 20 20 20 20 20 20 20 20 4d 75 | ate-connection-list:..........Mu |
| 2a4c00 | 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ltiple.connections.............. |
| 2a4c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a4c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 31 29 0a 2a 20 73 | ..................(line..61).*.s |
| 2a4c60 | 6c 69 6d 65 2d 77 68 6f 2d 62 69 6e 64 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lime-who-binds:................. |
| 2a4c80 | 20 20 20 20 20 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 | ......Cross-reference......(line |
| 2a4ca0 | 20 20 33 34 29 0a 2a 20 73 6c 69 6d 65 2d 77 68 6f 2d 63 61 6c 6c 73 3a 20 20 20 20 20 20 20 20 | ..34).*.slime-who-calls:........ |
| 2a4cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 | ...............Cross-reference.. |
| 2a4ce0 | 20 20 20 20 28 6c 69 6e 65 20 20 32 32 29 0a 2a 20 73 6c 69 6d 65 2d 77 68 6f 2d 6d 61 63 72 6f | ....(line..22).*.slime-who-macro |
| 2a4d00 | 65 78 70 61 6e 64 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 72 6f 73 73 2d 72 65 | expands:................Cross-re |
| 2a4d20 | 66 65 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 34 32 29 0a 2a 20 73 6c 69 6d 65 2d | ference......(line..42).*.slime- |
| 2a4d40 | 77 68 6f 2d 72 65 66 65 72 65 6e 63 65 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | who-references:................. |
| 2a4d60 | 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 33 30 29 | .Cross-reference......(line..30) |
| 2a4d80 | 0a 2a 20 73 6c 69 6d 65 2d 77 68 6f 2d 73 65 74 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .*.slime-who-sets:.............. |
| 2a4da0 | 20 20 20 20 20 20 20 20 20 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 28 | ..........Cross-reference......( |
| 2a4dc0 | 6c 69 6e 65 20 20 33 38 29 0a 2a 20 73 6c 69 6d 65 2d 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 | line..38).*.slime-who-specialize |
| 2a4de0 | 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e | s:.................Cross-referen |
| 2a4e00 | 63 65 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 34 35 29 0a 0a 1f 0a 46 69 6c 65 3a 20 64 6f 63 46 | ce......(line..45)....File:.docF |
| 2a4e20 | 44 42 72 77 77 2e 69 6e 66 6f 2c 20 20 4e 6f 64 65 3a 20 56 61 72 69 61 62 6c 65 20 49 6e 64 65 | DBrww.info,..Node:.Variable.Inde |
| 2a4e40 | 78 2c 20 20 50 72 65 76 3a 20 43 6f 6d 6d 61 6e 64 20 49 6e 64 65 78 2c 20 20 55 70 3a 20 54 6f | x,..Prev:.Command.Index,..Up:.To |
| 2a4e60 | 70 0a 0a 56 61 72 69 61 62 6c 65 20 61 6e 64 20 43 6f 6e 63 65 70 74 20 49 6e 64 65 78 0a 2a 2a | p..Variable.and.Concept.Index.** |
| 2a4e80 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 00 08 5b 69 6e 64 | ************************....[ind |
| 2a4ea0 | 65 78 00 08 5d 0a 2a 20 4d 65 6e 75 3a 0a 0a 2a 20 41 53 43 49 49 3a 20 20 20 20 20 20 20 20 20 | ex..].*.Menu:..*.ASCII:......... |
| 2a4ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 6d 61 63 73 2d 73 69 | ........................Emacs-si |
| 2a4ee0 | 64 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | de.customization................ |
| 2a4f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a4f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 33 35 29 0a 2a 20 43 68 61 | .................(line.35).*.Cha |
| 2a4f40 | 72 61 63 74 65 72 20 45 6e 63 6f 64 69 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | racter.Encoding:................ |
| 2a4f60 | 20 20 20 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 2e 0a 20 20 | ....Emacs-side.customization.... |
| 2a4f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a4fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 | .............................(li |
| 2a4fc0 | 6e 65 20 33 35 29 0a 2a 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 | ne.35).*.Compilation:........... |
| 2a4fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 2e 20 20 20 20 | ................Compilation..... |
| 2a5000 | 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 43 6f 6d 70 69 6c 69 6e 67 20 46 75 6e 63 | ......(line..6).*.Compiling.Func |
| 2a5020 | 74 69 6f 6e 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 69 6c 61 | tions:...................Compila |
| 2a5040 | 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 31 32 29 0a 2a 20 43 6f 6d 70 6c | tion...........(line.12).*.Compl |
| 2a5060 | 65 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | etion:.......................... |
| 2a5080 | 20 20 43 6f 6d 70 6c 65 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 | ..Completion............(line..6 |
| 2a50a0 | 29 0a 2a 20 43 6f 6e 74 72 69 62 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).*.Contribs:................... |
| 2a50c0 | 20 20 20 20 20 20 20 20 20 20 20 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 2e 20 20 20 20 | ...........Loading.Contribs..... |
| 2a50e0 | 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 43 6f 6e 74 72 69 62 75 74 69 6f 6e 73 3a 20 20 20 20 20 | .(line..6).*.Contributions:..... |
| 2a5100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 | ....................Loading.Cont |
| 2a5120 | 72 69 62 73 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 43 72 6f 73 73 2d 72 65 66 65 | ribs......(line..6).*.Cross-refe |
| 2a5140 | 72 65 6e 63 69 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 72 6f | rencing:.....................Cro |
| 2a5160 | 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 44 | ss-reference.......(line..6).*.D |
| 2a5180 | 65 62 75 67 67 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ebugger:........................ |
| 2a51a0 | 20 20 20 20 20 20 44 65 62 75 67 67 65 72 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e | ......Debugger..............(lin |
| 2a51c0 | 65 20 20 36 29 0a 2a 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 3a 20 20 | e..6).*.inferior-lisp-program:.. |
| 2a51e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 2e 20 20 20 20 | ...............Installation..... |
| 2a5200 | 20 20 20 20 20 28 6c 69 6e 65 20 32 37 29 0a 2a 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d | .....(line.27).*.inferior-slime- |
| 2a5220 | 6d 6f 64 65 2d 6d 61 70 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 66 65 72 69 6f 72 | mode-map:...............inferior |
| 2a5240 | 2d 73 6c 69 6d 65 2d 6d 6f 64 65 2e 20 20 28 6c 69 6e 65 20 31 37 29 0a 2a 20 49 6e 70 75 74 20 | -slime-mode...(line.17).*.Input. |
| 2a5260 | 48 69 73 74 6f 72 79 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | History:........................ |
| 2a5280 | 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 36 29 | .Input.Navigation......(line..6) |
| 2a52a0 | 0a 2a 20 4c 41 54 49 4e 2d 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .*.LATIN-1:..................... |
| 2a52c0 | 20 20 20 20 20 20 20 20 20 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 | ..........Emacs-side.customizati |
| 2a52e0 | 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on.............................. |
| 2a5300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a5320 | 20 20 20 28 6c 69 6e 65 20 33 35 29 0a 2a 20 4c 69 73 74 65 6e 65 72 3a 20 20 20 20 20 20 20 20 | ...(line.35).*.Listener:........ |
| 2a5340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 2e 20 20 20 20 20 | ......................REPL...... |
| 2a5360 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 6c 6f 61 64 2d 70 61 74 | ............(line..6).*.load-pat |
| 2a5380 | 68 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 | h:.............................I |
| 2a53a0 | 6e 73 74 61 6c 6c 61 74 69 6f 6e 2e 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 32 37 29 0a 2a | nstallation..........(line.27).* |
| 2a53c0 | 20 4d 61 63 72 6f 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .Macros:........................ |
| 2a53e0 | 20 20 20 20 20 20 20 20 4d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 2e 20 20 20 20 20 20 28 6c | ........Macro-expansion.......(l |
| 2a5400 | 69 6e 65 20 20 36 29 0a 2a 20 4d 65 74 61 2d 64 6f 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ine..6).*.Meta-dot:............. |
| 2a5420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 | .................Finding.definit |
| 2a5440 | 69 6f 6e 73 2e 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 4d 65 74 68 6f 64 73 3a 20 20 20 20 20 | ions...(line..6).*.Methods:..... |
| 2a5460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 61 6e 63 79 20 | ..........................Fancy. |
| 2a5480 | 49 6e 73 70 65 63 74 6f 72 2e 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 50 6c 75 67 | Inspector.......(line..6).*.Plug |
| 2a54a0 | 69 6e 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ins:............................ |
| 2a54c0 | 20 20 20 4c 6f 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 2e 20 20 20 20 20 28 6c 69 6e 65 20 20 | ...Loading.Contribs......(line.. |
| 2a54e0 | 36 29 0a 2a 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | 6).*.Presentations:............. |
| 2a5500 | 20 20 20 20 20 20 20 20 20 20 20 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 2e 20 20 20 20 20 20 | ............Presentations....... |
| 2a5520 | 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 53 68 6f 72 74 63 75 74 73 3a 20 20 20 20 20 20 20 20 | ..(line..6).*.Shortcuts:........ |
| 2a5540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 68 6f 72 74 63 75 74 73 2e 20 | .....................Shortcuts.. |
| 2a5560 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 73 6c 64 62 2d 68 6f 6f 6b | ...........(line..6).*.sldb-hook |
| 2a5580 | 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 6f | :.............................Ho |
| 2a55a0 | 6f 6b 73 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 31 37 29 0a 2a 20 | oks.................(line.17).*. |
| 2a55c0 | 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2d 73 74 72 69 6e 67 3a 20 20 20 20 20 20 | slime-autodoc-mode-string:...... |
| 2a55e0 | 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2e 20 20 20 28 6c 69 | .......slime-autodoc-mode....(li |
| 2a5600 | 6e 65 20 33 32 29 0a 2a 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 75 73 65 2d 6d 75 6c 74 69 | ne.32).*.slime-autodoc-use-multi |
| 2a5620 | 6c 69 6e 65 2d 70 3a 20 20 20 20 20 20 20 20 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f | line-p:.........slime-autodoc-mo |
| 2a5640 | 64 65 2e 20 20 20 28 6c 69 6e 65 20 32 39 29 0a 2a 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 | de....(line.29).*.slime-completi |
| 2a5660 | 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 3a 20 20 20 45 6d 61 63 73 2d 73 | on-at-point-functions:...Emacs-s |
| 2a5680 | 69 64 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ide.customization............... |
| 2a56a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a56c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 31 37 29 0a 2a 20 73 6c | ..................(line.17).*.sl |
| 2a56e0 | 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ime-connected-hook:............. |
| 2a5700 | 20 20 20 20 20 48 6f 6f 6b 73 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 | .....Hooks.................(line |
| 2a5720 | 20 31 32 29 0a 2a 20 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 6c 69 73 70 3a 20 20 20 20 20 20 | .12).*.slime-default-lisp:...... |
| 2a5740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 4c 69 73 70 73 2e 20 20 20 | ..............Multiple.Lisps.... |
| 2a5760 | 20 20 20 20 28 6c 69 6e 65 20 31 37 29 0a 2a 20 73 6c 69 6d 65 2d 64 65 73 63 72 69 70 74 69 6f | ....(line.17).*.slime-descriptio |
| 2a5780 | 6e 2d 61 75 74 6f 66 6f 63 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 54 65 6d 70 6f 72 61 72 79 | n-autofocus:...........Temporary |
| 2a57a0 | 20 62 75 66 66 65 72 73 2e 20 20 20 20 28 6c 69 6e 65 20 32 37 29 0a 2a 20 73 6c 69 6d 65 2d 66 | .buffers.....(line.27).*.slime-f |
| 2a57c0 | 69 6c 65 6e 61 6d 65 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 3a 20 20 20 20 20 20 20 20 20 20 20 | ilename-translations:........... |
| 2a57e0 | 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 | Emacs-side.customization........ |
| 2a5800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a5820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 32 | .........................(line.2 |
| 2a5840 | 38 29 0a 2a 20 73 6c 69 6d 65 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 70 3a 20 20 20 20 20 20 20 | 8).*.slime-header-line-p:....... |
| 2a5860 | 20 20 20 20 20 20 20 20 20 20 20 20 42 61 6e 6e 65 72 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............Banner.............. |
| 2a5880 | 20 20 28 6c 69 6e 65 20 31 30 29 0a 2a 20 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 | ..(line.10).*.slime-lisp-impleme |
| 2a58a0 | 6e 74 61 74 69 6f 6e 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 6c 74 69 70 6c 65 20 4c 69 | ntations:............Multiple.Li |
| 2a58c0 | 73 70 73 2e 20 20 20 20 20 20 20 28 6c 69 6e 65 20 31 33 29 0a 2a 20 73 6c 69 6d 65 2d 6d 6f 64 | sps........(line.13).*.slime-mod |
| 2a58e0 | 65 2d 68 6f 6f 6b 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 6f | e-hook:.......................Ho |
| 2a5900 | 6f 6b 73 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 | oks.................(line..6).*. |
| 2a5920 | 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 3a 20 20 20 20 20 20 20 20 | slime-net-coding-system:........ |
| 2a5940 | 20 20 20 20 20 20 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 2e | .......Emacs-side.customization. |
| 2a5960 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a5980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a59a0 | 28 6c 69 6e 65 20 33 35 29 0a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 77 72 61 70 2d 68 69 73 74 | (line.35).*.slime-repl-wrap-hist |
| 2a59c0 | 6f 72 79 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 | ory:...............Input.Navigat |
| 2a59e0 | 69 6f 6e 2e 20 20 20 20 20 28 6c 69 6e 65 20 33 33 29 0a 2a 20 73 6c 69 6d 65 2d 73 74 61 72 74 | ion......(line.33).*.slime-start |
| 2a5a00 | 75 70 2d 61 6e 69 6d 61 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 61 6e 6e | up-animation:...............Bann |
| 2a5a20 | 65 72 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 31 30 29 0a 2a 20 73 6c | er................(line.10).*.sl |
| 2a5a40 | 69 6d 65 2d 75 73 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 | ime-use-autodoc-mode:........... |
| 2a5a60 | 20 20 20 20 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 2e 20 20 20 28 6c 69 6e 65 | .....slime-autodoc-mode....(line |
| 2a5a80 | 20 32 35 29 0a 2a 20 53 74 65 70 70 69 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .25).*.Stepping:................ |
| 2a5aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 74 65 70 70 69 6e 67 2e 20 20 20 20 20 20 20 20 20 | ..............Stepping.......... |
| 2a5ac0 | 20 20 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 53 57 41 4e 4b 3a 2a 42 41 43 4b 54 52 41 43 45 | ....(line..6).*.SWANK:*BACKTRACE |
| 2a5ae0 | 2d 50 52 49 4e 54 45 52 2d 42 49 4e 44 49 4e 47 53 2a 3a 20 20 20 20 4f 74 68 65 72 20 63 6f 6e | -PRINTER-BINDINGS*:....Other.con |
| 2a5b00 | 66 69 67 75 72 61 62 6c 65 73 2e 20 20 28 6c 69 6e 65 20 34 32 29 0a 2a 20 53 57 41 4e 4b 3a 2a | figurables...(line.42).*.SWANK:* |
| 2a5b20 | 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 2d 53 54 59 4c 45 2a 3a 20 20 20 20 20 20 20 20 20 20 20 | COMMUNICATION-STYLE*:........... |
| 2a5b40 | 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 2e 20 20 28 6c 69 6e 65 20 20 36 29 0a | Communication.style...(line..6). |
| 2a5b60 | 2a 20 53 57 41 4e 4b 3a 2a 43 4f 4e 46 49 47 55 52 45 2d 45 4d 41 43 53 2d 49 4e 44 45 4e 54 41 | *.SWANK:*CONFIGURE-EMACS-INDENTA |
| 2a5b80 | 54 49 4f 4e 2a 3a 20 20 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 2e 20 20 28 | TION*:...Other.configurables...( |
| 2a5ba0 | 6c 69 6e 65 20 20 38 29 0a 2a 20 53 57 41 4e 4b 3a 2a 47 4c 4f 42 41 4c 2d 44 45 42 55 47 47 45 | line..8).*.SWANK:*GLOBAL-DEBUGGE |
| 2a5bc0 | 52 2a 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 | R*:...............Other.configur |
| 2a5be0 | 61 62 6c 65 73 2e 20 20 28 6c 69 6e 65 20 32 37 29 0a 2a 20 53 57 41 4e 4b 3a 2a 47 4c 4f 42 41 | ables...(line.27).*.SWANK:*GLOBA |
| 2a5c00 | 4c 4c 59 2d 52 45 44 49 52 45 43 54 2d 49 4f 2a 3a 20 20 20 20 20 20 20 20 20 20 4f 74 68 65 72 | LLY-REDIRECT-IO*:..........Other |
| 2a5c20 | 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 2e 20 20 28 6c 69 6e 65 20 31 33 29 0a 2a 20 53 57 41 | .configurables...(line.13).*.SWA |
| 2a5c40 | 4e 4b 3a 2a 4c 4f 47 2d 45 56 45 4e 54 53 2a 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | NK:*LOG-EVENTS*:................ |
| 2a5c60 | 20 20 20 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 2e 20 20 28 6c 69 6e 65 20 | ....Other.configurables...(line. |
| 2a5c80 | 35 33 29 0a 2a 20 53 57 41 4e 4b 3a 2a 4d 41 43 52 4f 45 58 50 41 4e 44 2d 50 52 49 4e 54 45 52 | 53).*.SWANK:*MACROEXPAND-PRINTER |
| 2a5ca0 | 2d 42 49 4e 44 49 4e 47 53 2a 3a 20 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 | -BINDINGS*:..Other.configurables |
| 2a5cc0 | 2e 20 20 28 6c 69 6e 65 20 34 32 29 0a 2a 20 53 57 41 4e 4b 3a 2a 53 4c 44 42 2d 50 52 49 4e 54 | ...(line.42).*.SWANK:*SLDB-PRINT |
| 2a5ce0 | 45 52 2d 42 49 4e 44 49 4e 47 53 2a 3a 20 20 20 20 20 20 20 20 20 4f 74 68 65 72 20 63 6f 6e 66 | ER-BINDINGS*:.........Other.conf |
| 2a5d00 | 69 67 75 72 61 62 6c 65 73 2e 20 20 28 6c 69 6e 65 20 34 32 29 0a 2a 20 53 57 41 4e 4b 3a 2a 53 | igurables...(line.42).*.SWANK:*S |
| 2a5d20 | 4c 44 42 2d 51 55 49 54 2d 52 45 53 54 41 52 54 2a 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 4f | LDB-QUIT-RESTART*:.............O |
| 2a5d40 | 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 2e 20 20 28 6c 69 6e 65 20 33 33 29 0a 2a | ther.configurables...(line.33).* |
| 2a5d60 | 20 53 57 41 4e 4b 3a 2a 53 57 41 4e 4b 2d 50 50 52 49 4e 54 2d 42 49 4e 44 49 4e 47 53 2a 3a 20 | .SWANK:*SWANK-PPRINT-BINDINGS*:. |
| 2a5d80 | 20 20 20 20 20 20 20 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 2e 20 20 28 6c | ........Other.configurables...(l |
| 2a5da0 | 69 6e 65 20 34 32 29 0a 2a 20 53 79 6d 62 6f 6c 20 43 6f 6d 70 6c 65 74 69 6f 6e 3a 20 20 20 20 | ine.42).*.Symbol.Completion:.... |
| 2a5dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6d 70 6c 65 74 69 6f 6e 2e 20 20 20 20 | .................Completion..... |
| 2a5de0 | 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 54 41 47 53 3a 20 20 20 20 20 20 20 20 | .......(line..6).*.TAGS:........ |
| 2a5e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 69 6e 64 69 6e | ..........................Findin |
| 2a5e20 | 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 54 52 41 4d | g.definitions...(line..6).*.TRAM |
| 2a5e40 | 50 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | P:.............................. |
| 2a5e60 | 20 20 20 54 52 41 4d 50 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 | ...TRAMP.................(line.. |
| 2a5e80 | 36 29 0a 2a 20 54 79 70 65 6f 75 74 20 46 72 61 6d 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 | 6).*.Typeout.Frame:............. |
| 2a5ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 54 79 70 65 6f 75 74 20 66 72 61 6d 65 73 2e 20 20 20 20 20 | ............Typeout.frames...... |
| 2a5ec0 | 20 20 28 6c 69 6e 65 20 20 36 29 0a 2a 20 55 6e 69 63 6f 64 65 3a 20 20 20 20 20 20 20 20 20 20 | ..(line..6).*.Unicode:.......... |
| 2a5ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 6d 61 63 73 2d 73 69 64 65 20 | .....................Emacs-side. |
| 2a5f00 | 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | customization................... |
| 2a5f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a5f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 33 35 29 0a 2a 20 55 54 46 2d 38 3a | ..............(line.35).*.UTF-8: |
| 2a5f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a5f80 | 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 2e 0a 20 20 20 20 20 | .Emacs-side.customization....... |
| 2a5fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2a5fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 | ..........................(line. |
| 2a5fe0 | 33 35 29 0a 2a 20 78 72 65 66 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 35).*.xref:..................... |
| 2a6000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 2e 20 20 20 | .............Cross-reference.... |
| 2a6020 | 20 20 20 28 6c 69 6e 65 20 20 36 29 0a 0a 0a 1f 0a 54 61 67 20 54 61 62 6c 65 3a 0a 4e 6f 64 65 | ...(line..6).....Tag.Table:.Node |
| 2a6040 | 3a 20 54 6f 70 7f 32 38 39 0a 4e 6f 64 65 3a 20 49 6e 74 72 6f 64 75 63 74 69 6f 6e 7f 32 35 33 | :.Top.289.Node:.Introduction.253 |
| 2a6060 | 35 0a 4e 6f 64 65 3a 20 47 65 74 74 69 6e 67 20 73 74 61 72 74 65 64 7f 33 38 32 30 0a 4e 6f 64 | 5.Node:.Getting.started.3820.Nod |
| 2a6080 | 65 3a 20 50 6c 61 74 66 6f 72 6d 73 7f 34 30 39 38 0a 4e 6f 64 65 3a 20 44 6f 77 6e 6c 6f 61 64 | e:.Platforms.4098.Node:.Download |
| 2a60a0 | 69 6e 67 7f 35 33 30 33 0a 4e 6f 64 65 3a 20 47 69 74 7f 35 38 30 38 0a 4e 6f 64 65 3a 20 47 69 | ing.5303.Node:.Git.5808.Node:.Gi |
| 2a60c0 | 74 20 49 6e 63 61 6e 74 61 74 69 6f 6e 73 7f 36 38 33 30 0a 4e 6f 64 65 3a 20 49 6e 73 74 61 6c | t.Incantations.6830.Node:.Instal |
| 2a60e0 | 6c 61 74 69 6f 6e 7f 37 33 36 34 0a 4e 6f 64 65 3a 20 52 75 6e 6e 69 6e 67 7f 38 36 33 34 0a 4e | lation.7364.Node:.Running.8634.N |
| 2a6100 | 6f 64 65 3a 20 53 65 74 75 70 20 54 75 6e 69 6e 67 7f 39 31 38 31 0a 4e 6f 64 65 3a 20 42 61 73 | ode:.Setup.Tuning.9181.Node:.Bas |
| 2a6120 | 69 63 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 7f 39 37 31 36 0a 4e 6f 64 65 3a 20 4d 75 6c 74 | ic.customization.9716.Node:.Mult |
| 2a6140 | 69 70 6c 65 20 4c 69 73 70 73 7f 31 30 36 39 33 0a 4e 6f 64 65 3a 20 4c 6f 61 64 69 6e 67 20 53 | iple.Lisps.10693.Node:.Loading.S |
| 2a6160 | 77 61 6e 6b 20 66 61 73 74 65 72 7f 31 33 31 39 31 0a 52 65 66 3a 20 69 6e 69 74 2d 65 78 61 6d | wank.faster.13191.Ref:.init-exam |
| 2a6180 | 70 6c 65 7f 31 34 32 38 38 0a 4e 6f 64 65 3a 20 53 4c 49 4d 45 20 6d 6f 64 65 7f 31 34 35 37 37 | ple.14288.Node:.SLIME.mode.14577 |
| 2a61a0 | 0a 4e 6f 64 65 3a 20 55 73 65 72 2d 69 6e 74 65 72 66 61 63 65 20 63 6f 6e 76 65 6e 74 69 6f 6e | .Node:.User-interface.convention |
| 2a61c0 | 73 7f 31 35 31 37 39 0a 4e 6f 64 65 3a 20 54 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 73 7f | s.15179.Node:.Temporary.buffers. |
| 2a61e0 | 31 35 35 39 32 0a 4e 6f 64 65 3a 20 49 6e 66 65 72 69 6f 72 2d 6c 69 73 70 7f 31 37 30 34 39 0a | 15592.Node:.Inferior-lisp.17049. |
| 2a6200 | 4e 6f 64 65 3a 20 4d 75 6c 74 69 74 68 72 65 61 64 69 6e 67 7f 31 37 38 37 38 0a 4e 6f 64 65 3a | Node:.Multithreading.17878.Node: |
| 2a6220 | 20 4b 65 79 20 62 69 6e 64 69 6e 67 73 7f 31 39 31 32 37 0a 52 65 66 3a 20 64 65 73 63 72 69 62 | .Key.bindings.19127.Ref:.describ |
| 2a6240 | 65 2d 6b 65 79 7f 32 30 35 39 37 0a 52 65 66 3a 20 64 65 73 63 72 69 62 65 2d 62 69 6e 64 69 6e | e-key.20597.Ref:.describe-bindin |
| 2a6260 | 67 73 7f 32 30 37 34 30 0a 52 65 66 3a 20 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 7f 32 30 38 38 | gs.20740.Ref:.describe-mode.2088 |
| 2a6280 | 33 0a 52 65 66 3a 20 76 69 65 77 2d 6c 6f 73 73 61 67 65 7f 32 31 30 36 37 0a 4e 6f 64 65 3a 20 | 3.Ref:.view-lossage.21067.Node:. |
| 2a62a0 | 45 76 61 6c 75 61 74 69 6f 6e 7f 32 32 32 36 32 0a 4e 6f 64 65 3a 20 43 6f 6d 70 69 6c 61 74 69 | Evaluation.22262.Node:.Compilati |
| 2a62c0 | 6f 6e 7f 32 34 31 37 31 0a 4e 6f 64 65 3a 20 43 6f 6d 70 6c 65 74 69 6f 6e 7f 32 36 39 33 34 0a | on.24171.Node:.Completion.26934. |
| 2a62e0 | 4e 6f 64 65 3a 20 46 69 6e 64 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 73 7f 32 37 35 36 39 0a | Node:.Finding.definitions.27569. |
| 2a6300 | 4e 6f 64 65 3a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 7f 32 38 37 31 33 0a 4e 6f 64 65 3a 20 | Node:.Documentation.28713.Node:. |
| 2a6320 | 43 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 65 7f 33 30 38 38 34 0a 4e 6f 64 65 3a 20 58 72 65 66 | Cross-reference.30884.Node:.Xref |
| 2a6340 | 20 62 75 66 66 65 72 20 63 6f 6d 6d 61 6e 64 73 7f 33 32 36 32 35 0a 4e 6f 64 65 3a 20 4d 61 63 | .buffer.commands.32625.Node:.Mac |
| 2a6360 | 72 6f 2d 65 78 70 61 6e 73 69 6f 6e 7f 33 33 31 38 38 0a 4e 6f 64 65 3a 20 44 69 73 61 73 73 65 | ro-expansion.33188.Node:.Disasse |
| 2a6380 | 6d 62 6c 79 7f 33 34 32 31 34 0a 4e 6f 64 65 3a 20 52 65 63 6f 76 65 72 79 7f 33 34 37 36 33 0a | mbly.34214.Node:.Recovery.34763. |
| 2a63a0 | 4e 6f 64 65 3a 20 49 6e 73 70 65 63 74 6f 72 7f 33 35 35 33 36 0a 4e 6f 64 65 3a 20 50 72 6f 66 | Node:.Inspector.35536.Node:.Prof |
| 2a63c0 | 69 6c 69 6e 67 7f 33 37 37 37 38 0a 4e 6f 64 65 3a 20 4f 74 68 65 72 7f 33 38 35 37 39 0a 4e 6f | iling.37778.Node:.Other.38579.No |
| 2a63e0 | 64 65 3a 20 53 65 6d 61 6e 74 69 63 20 69 6e 64 65 6e 74 61 74 69 6f 6e 7f 33 38 38 33 36 0a 52 | de:.Semantic.indentation.38836.R |
| 2a6400 | 65 66 3a 20 53 65 6d 61 6e 74 69 63 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 46 6f 6f 74 6e 6f 74 | ef:.Semantic.indentation-Footnot |
| 2a6420 | 65 2d 31 7f 34 30 39 37 31 0a 4e 6f 64 65 3a 20 52 65 61 64 65 72 20 63 6f 6e 64 69 74 69 6f 6e | e-1.40971.Node:.Reader.condition |
| 2a6440 | 61 6c 73 7f 34 31 30 36 36 0a 4e 6f 64 65 3a 20 44 65 62 75 67 67 65 72 7f 34 31 34 32 31 0a 4e | als.41066.Node:.Debugger.41421.N |
| 2a6460 | 6f 64 65 3a 20 45 78 61 6d 69 6e 69 6e 67 20 66 72 61 6d 65 73 7f 34 32 30 36 35 0a 4e 6f 64 65 | ode:.Examining.frames.42065.Node |
| 2a6480 | 3a 20 52 65 73 74 61 72 74 73 7f 34 33 32 30 31 0a 52 65 66 3a 20 73 6c 64 62 2d 71 75 69 74 7f | :.Restarts.43201.Ref:.sldb-quit. |
| 2a64a0 | 34 33 34 31 39 0a 4e 6f 64 65 3a 20 46 72 61 6d 65 20 4e 61 76 69 67 61 74 69 6f 6e 7f 34 33 38 | 43419.Node:.Frame.Navigation.438 |
| 2a64c0 | 34 36 0a 4e 6f 64 65 3a 20 53 74 65 70 70 69 6e 67 7f 34 34 35 35 30 0a 4e 6f 64 65 3a 20 4d 69 | 46.Node:.Stepping.44550.Node:.Mi |
| 2a64e0 | 73 63 65 6c 6c 61 6e 65 6f 75 73 7f 34 35 32 32 36 0a 4e 6f 64 65 3a 20 4d 69 73 63 7f 34 36 31 | scellaneous.45226.Node:.Misc.461 |
| 2a6500 | 36 39 0a 4e 6f 64 65 3a 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 7f 34 36 33 36 30 0a 4e 6f | 69.Node:.slime-selector.46360.No |
| 2a6520 | 64 65 3a 20 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2d 6d 69 6e 6f 72 2d 6d | de:.slime-macroexpansion-minor-m |
| 2a6540 | 6f 64 65 7f 34 38 31 37 32 0a 4e 6f 64 65 3a 20 4d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 | ode.48172.Node:.Multiple.connect |
| 2a6560 | 69 6f 6e 73 7f 34 39 30 33 31 0a 4e 6f 64 65 3a 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 7f 35 | ions.49031.Node:.Customization.5 |
| 2a6580 | 32 30 39 35 0a 4e 6f 64 65 3a 20 45 6d 61 63 73 2d 73 69 64 65 20 63 75 73 74 6f 6d 69 7a 61 74 | 2095.Node:.Emacs-side.customizat |
| 2a65a0 | 69 6f 6e 7f 35 32 32 37 34 0a 52 65 66 3a 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d | ion.52274.Ref:.slime-completion- |
| 2a65c0 | 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 7f 35 32 39 37 31 0a 52 65 66 3a 20 73 6c | at-point-functions.52971.Ref:.sl |
| 2a65e0 | 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 7f 35 33 38 36 32 0a 4e 6f 64 65 | ime-net-coding-system.53862.Node |
| 2a6600 | 3a 20 48 6f 6f 6b 73 7f 35 34 35 33 35 0a 52 65 66 3a 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 | :.Hooks.54535.Ref:.slime-connect |
| 2a6620 | 65 64 2d 68 6f 6f 6b 7f 35 34 39 30 34 0a 4e 6f 64 65 3a 20 4c 69 73 70 2d 73 69 64 65 7f 35 35 | ed-hook.54904.Node:.Lisp-side.55 |
| 2a6640 | 33 38 38 0a 4e 6f 64 65 3a 20 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 7f 35 35 | 388.Node:.Communication.style.55 |
| 2a6660 | 38 30 32 0a 4e 6f 64 65 3a 20 4f 74 68 65 72 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 73 7f 35 38 | 802.Node:.Other.configurables.58 |
| 2a6680 | 33 36 38 0a 52 65 66 3a 20 2a 53 4c 44 42 2d 51 55 49 54 2d 52 45 53 54 41 52 54 2a 7f 35 39 37 | 368.Ref:.*SLDB-QUIT-RESTART*.597 |
| 2a66a0 | 37 30 0a 4e 6f 64 65 3a 20 54 69 70 73 20 61 6e 64 20 54 72 69 63 6b 73 7f 36 31 31 37 30 0a 4e | 70.Node:.Tips.and.Tricks.61170.N |
| 2a66c0 | 6f 64 65 3a 20 43 6f 6e 6e 65 63 74 69 6e 67 20 74 6f 20 61 20 72 65 6d 6f 74 65 20 6c 69 73 70 | ode:.Connecting.to.a.remote.lisp |
| 2a66e0 | 7f 36 31 33 39 39 0a 4e 6f 64 65 3a 20 53 65 74 74 69 6e 67 20 75 70 20 74 68 65 20 6c 69 73 70 | .61399.Node:.Setting.up.the.lisp |
| 2a6700 | 20 69 6d 61 67 65 7f 36 32 31 30 38 0a 52 65 66 3a 20 53 65 74 74 69 6e 67 20 75 70 20 74 68 65 | .image.62108.Ref:.Setting.up.the |
| 2a6720 | 20 6c 69 73 70 20 69 6d 61 67 65 2d 46 6f 6f 74 6e 6f 74 65 2d 31 7f 36 33 38 35 35 0a 52 65 66 | .lisp.image-Footnote-1.63855.Ref |
| 2a6740 | 3a 20 53 65 74 74 69 6e 67 20 75 70 20 74 68 65 20 6c 69 73 70 20 69 6d 61 67 65 2d 46 6f 6f 74 | :.Setting.up.the.lisp.image-Foot |
| 2a6760 | 6e 6f 74 65 2d 32 7f 36 33 39 33 35 0a 4e 6f 64 65 3a 20 53 65 74 74 69 6e 67 20 75 70 20 45 6d | note-2.63935.Node:.Setting.up.Em |
| 2a6780 | 61 63 73 7f 36 34 31 31 31 0a 52 65 66 3a 20 53 65 74 74 69 6e 67 20 75 70 20 45 6d 61 63 73 2d | acs.64111.Ref:.Setting.up.Emacs- |
| 2a67a0 | 46 6f 6f 74 6e 6f 74 65 2d 31 7f 36 34 39 35 31 0a 4e 6f 64 65 3a 20 53 65 74 74 69 6e 67 20 75 | Footnote-1.64951.Node:.Setting.u |
| 2a67c0 | 70 20 70 61 74 68 6e 61 6d 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 7f 36 35 31 33 31 0a 4e 6f | p.pathname.translations.65131.No |
| 2a67e0 | 64 65 3a 20 47 6c 6f 62 61 6c 20 49 4f 20 52 65 64 69 72 65 63 74 69 6f 6e 7f 36 36 37 37 36 0a | de:.Global.IO.Redirection.66776. |
| 2a6800 | 4e 6f 64 65 3a 20 41 75 74 6f 2d 53 4c 49 4d 45 7f 36 37 37 31 33 0a 4e 6f 64 65 3a 20 43 6f 6e | Node:.Auto-SLIME.67713.Node:.Con |
| 2a6820 | 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 7f 36 38 31 33 38 0a 4e 6f 64 65 3a 20 4c 6f | tributed.Packages.68138.Node:.Lo |
| 2a6840 | 61 64 69 6e 67 20 43 6f 6e 74 72 69 62 73 7f 36 38 38 39 31 0a 4e 6f 64 65 3a 20 52 45 50 4c 7f | ading.Contribs.68891.Node:.REPL. |
| 2a6860 | 37 30 38 35 35 0a 4e 6f 64 65 3a 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 73 7f 37 32 32 37 34 0a | 70855.Node:.REPL.commands.72274. |
| 2a6880 | 4e 6f 64 65 3a 20 49 6e 70 75 74 20 4e 61 76 69 67 61 74 69 6f 6e 7f 37 33 34 33 39 0a 4e 6f 64 | Node:.Input.Navigation.73439.Nod |
| 2a68a0 | 65 3a 20 53 68 6f 72 74 63 75 74 73 7f 37 34 39 36 37 0a 4e 6f 64 65 3a 20 73 6c 69 6d 65 2d 6d | e:.Shortcuts.74967.Node:.slime-m |
| 2a68c0 | 72 65 70 6c 7f 37 36 34 36 37 0a 4e 6f 64 65 3a 20 69 6e 66 65 72 69 6f 72 2d 73 6c 69 6d 65 2d | repl.76467.Node:.inferior-slime- |
| 2a68e0 | 6d 6f 64 65 7f 37 36 39 37 39 0a 4e 6f 64 65 3a 20 43 6f 6d 70 6f 75 6e 64 20 43 6f 6d 70 6c 65 | mode.76979.Node:.Compound.Comple |
| 2a6900 | 74 69 6f 6e 7f 37 37 36 38 38 0a 52 65 66 3a 20 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 | tion.77688.Ref:.slime-complete-s |
| 2a6920 | 79 6d 62 6f 6c 2a 7f 37 37 38 36 39 0a 52 65 66 3a 20 43 6f 6d 70 6f 75 6e 64 20 43 6f 6d 70 6c | ymbol*.77869.Ref:.Compound.Compl |
| 2a6940 | 65 74 69 6f 6e 2d 46 6f 6f 74 6e 6f 74 65 2d 31 7f 38 31 31 32 32 0a 4e 6f 64 65 3a 20 46 75 7a | etion-Footnote-1.81122.Node:.Fuz |
| 2a6960 | 7a 79 20 43 6f 6d 70 6c 65 74 69 6f 6e 7f 38 31 32 34 36 0a 52 65 66 3a 20 73 6c 69 6d 65 2d 66 | zy.Completion.81246.Ref:.slime-f |
| 2a6980 | 75 7a 7a 79 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 7f 38 31 35 30 33 0a 4e 6f 64 65 3a | uzzy-complete-symbol.81503.Node: |
| 2a69a0 | 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 7f 38 34 37 39 35 0a 4e 6f 64 65 3a 20 | .slime-autodoc-mode.84795.Node:. |
| 2a69c0 | 41 53 44 46 7f 38 36 32 31 37 0a 4e 6f 64 65 3a 20 42 61 6e 6e 65 72 7f 38 38 31 37 39 0a 4e 6f | ASDF.86217.Node:.Banner.88179.No |
| 2a69e0 | 64 65 3a 20 45 64 69 74 69 6e 67 20 43 6f 6d 6d 61 6e 64 73 7f 38 38 36 32 39 0a 4e 6f 64 65 3a | de:.Editing.Commands.88629.Node: |
| 2a6a00 | 20 46 61 6e 63 79 20 49 6e 73 70 65 63 74 6f 72 7f 39 30 32 36 30 0a 4e 6f 64 65 3a 20 50 72 65 | .Fancy.Inspector.90260.Node:.Pre |
| 2a6a20 | 73 65 6e 74 61 74 69 6f 6e 73 7f 39 30 39 39 35 0a 52 65 66 3a 20 50 72 65 73 65 6e 74 61 74 69 | sentations.90995.Ref:.Presentati |
| 2a6a40 | 6f 6e 73 2d 46 6f 6f 74 6e 6f 74 65 2d 31 7f 39 37 35 35 35 0a 4e 6f 64 65 3a 20 54 79 70 65 6f | ons-Footnote-1.97555.Node:.Typeo |
| 2a6a60 | 75 74 20 66 72 61 6d 65 73 7f 39 37 37 39 36 0a 4e 6f 64 65 3a 20 54 52 41 4d 50 7f 39 38 39 32 | ut.frames.97796.Node:.TRAMP.9892 |
| 2a6a80 | 34 0a 4e 6f 64 65 3a 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 4c 69 6e 6b 73 7f 39 39 32 30 | 4.Node:.Documentation.Links.9920 |
| 2a6aa0 | 34 0a 4e 6f 64 65 3a 20 58 72 65 66 20 61 6e 64 20 43 6c 61 73 73 20 42 72 6f 77 73 65 72 7f 39 | 4.Node:.Xref.and.Class.Browser.9 |
| 2a6ac0 | 39 36 33 33 0a 4e 6f 64 65 3a 20 48 69 67 68 6c 69 67 68 74 20 45 64 69 74 73 7f 31 30 30 32 32 | 9633.Node:.Highlight.Edits.10022 |
| 2a6ae0 | 39 0a 4e 6f 64 65 3a 20 53 63 72 61 74 63 68 20 42 75 66 66 65 72 7f 31 30 30 37 30 35 0a 52 65 | 9.Node:.Scratch.Buffer.100705.Re |
| 2a6b00 | 66 3a 20 73 6c 69 6d 65 2d 73 63 72 61 74 63 68 7f 31 30 30 38 37 31 0a 4e 6f 64 65 3a 20 53 4c | f:.slime-scratch.100871.Node:.SL |
| 2a6b20 | 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 7f 31 30 31 35 32 36 0a 4e 6f 64 65 3a 20 73 6c | IME.Trace.Dialog.101526.Node:.sl |
| 2a6b40 | 69 6d 65 2d 73 70 72 6f 66 7f 31 30 35 35 31 38 0a 4e 6f 64 65 3a 20 53 4c 49 4d 45 20 45 6e 68 | ime-sprof.105518.Node:.SLIME.Enh |
| 2a6b60 | 61 6e 63 65 64 20 4d 2d 2e 7f 31 30 36 35 31 30 0a 4e 6f 64 65 3a 20 73 6c 69 6d 65 2d 66 61 6e | anced.M-..106510.Node:.slime-fan |
| 2a6b80 | 63 79 7f 31 30 36 38 39 36 0a 4e 6f 64 65 3a 20 51 75 69 63 6b 6c 69 73 70 7f 31 30 37 32 35 36 | cy.106896.Node:.Quicklisp.107256 |
| 2a6ba0 | 0a 4e 6f 64 65 3a 20 43 72 65 64 69 74 73 7f 31 30 37 37 38 38 0a 4e 6f 64 65 3a 20 4b 65 79 20 | .Node:.Credits.107788.Node:.Key. |
| 2a6bc0 | 49 6e 64 65 78 7f 31 31 34 32 39 32 0a 4e 6f 64 65 3a 20 43 6f 6d 6d 61 6e 64 20 49 6e 64 65 78 | Index.114292.Node:.Command.Index |
| 2a6be0 | 7f 31 32 36 30 38 36 0a 4e 6f 64 65 3a 20 56 61 72 69 61 62 6c 65 20 49 6e 64 65 78 7f 31 34 31 | .126086.Node:.Variable.Index.141 |
| 2a6c00 | 33 33 32 0a 1f 0a 45 6e 64 20 54 61 67 20 54 61 62 6c 65 0a 0a 1f 0a 4c 6f 63 61 6c 20 56 61 72 | 332...End.Tag.Table....Local.Var |
| 2a6c20 | 69 61 62 6c 65 73 3a 0a 63 6f 64 69 6e 67 3a 20 75 74 66 2d 38 0a 45 6e 64 3a 0a 00 00 00 00 00 | iables:.coding:.utf-8.End:...... |
| 2a6c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6e00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 6d 65 74 65 72 69 6e 67 2e 6c 69 73 70 00 00 00 00 00 00 00 00 | slime-2.31/metering.lisp........ |
| 2a6e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6e60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 2a6e80 | 30 31 35 30 33 36 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 37 32 30 00 20 30 00 00 00 | 0150361.00000000000.013720..0... |
| 2a6ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6f00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 2a6f20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 2a6f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a6fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2a7000 | 3b 3b 3b 20 2d 2a 2d 20 4d 6f 64 65 3a 20 4c 49 53 50 3b 20 50 61 63 6b 61 67 65 3a 20 6d 6f 6e | ;;;.-*-.Mode:.LISP;.Package:.mon |
| 2a7020 | 69 74 6f 72 3b 20 53 79 6e 74 61 78 3a 20 43 6f 6d 6d 6f 6e 2d 6c 69 73 70 3b 20 42 61 73 65 3a | itor;.Syntax:.Common-lisp;.Base: |
| 2a7040 | 20 31 30 2e 3b 20 20 2d 2a 2d 0a 3b 3b 3b 20 54 75 65 20 4a 61 6e 20 32 35 20 31 38 3a 33 32 3a | .10.;..-*-.;;;.Tue.Jan.25.18:32: |
| 2a7060 | 32 38 20 31 39 39 34 20 62 79 20 4d 61 72 6b 20 4b 61 6e 74 72 6f 77 69 74 7a 20 3c 6d 6b 61 6e | 28.1994.by.Mark.Kantrowitz.<mkan |
| 2a7080 | 74 40 47 4c 49 4e 44 41 2e 4f 5a 2e 43 53 2e 43 4d 55 2e 45 44 55 3e 0a 0a 3b 3b 3b 20 2a 2a 2a | t@GLINDA.OZ.CS.CMU.EDU>..;;;.*** |
| 2a70a0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a70c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b | *****************************.;; |
| 2a70e0 | 3b 20 4d 65 74 65 72 69 6e 67 20 53 79 73 74 65 6d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;.Metering.System.************** |
| 2a7100 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a7120 | 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | **.;;;.************************* |
| 2a7140 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a7160 | 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 4d 65 74 65 72 69 6e 67 20 53 79 73 | *******.;;;.;;;.The.Metering.Sys |
| 2a7180 | 74 65 6d 20 69 73 20 61 20 70 6f 72 74 61 62 6c 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 63 6f | tem.is.a.portable.Common.Lisp.co |
| 2a71a0 | 64 65 20 70 72 6f 66 69 6c 69 6e 67 20 74 6f 6f 6c 2e 0a 3b 3b 3b 20 49 74 20 67 61 74 68 65 72 | de.profiling.tool..;;;.It.gather |
| 2a71c0 | 73 20 74 69 6d 69 6e 67 20 61 6e 64 20 63 6f 6e 73 69 6e 67 20 73 74 61 74 69 73 74 69 63 73 20 | s.timing.and.consing.statistics. |
| 2a71e0 | 66 6f 72 20 73 70 65 63 69 66 69 65 64 20 66 75 6e 63 74 69 6f 6e 73 0a 3b 3b 3b 20 77 68 69 6c | for.specified.functions.;;;.whil |
| 2a7200 | 65 20 61 20 70 72 6f 67 72 61 6d 20 69 73 20 72 75 6e 6e 69 6e 67 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 | e.a.program.is.running..;;;.;;;. |
| 2a7220 | 54 68 65 20 4d 65 74 65 72 69 6e 67 20 53 79 73 74 65 6d 20 69 73 20 61 20 63 6f 6d 62 69 6e 61 | The.Metering.System.is.a.combina |
| 2a7240 | 74 69 6f 6e 20 6f 66 0a 3b 3b 3b 20 20 20 6f 20 20 74 68 65 20 4d 6f 6e 69 74 6f 72 20 70 61 63 | tion.of.;;;...o..the.Monitor.pac |
| 2a7260 | 6b 61 67 65 20 77 72 69 74 74 65 6e 20 62 79 20 43 68 72 69 73 20 4d 63 43 6f 6e 6e 65 6c 6c 0a | kage.written.by.Chris.McConnell. |
| 2a7280 | 3b 3b 3b 20 20 20 6f 20 20 74 68 65 20 50 72 6f 66 69 6c 65 20 70 61 63 6b 61 67 65 20 77 72 69 | ;;;...o..the.Profile.package.wri |
| 2a72a0 | 74 74 65 6e 20 62 79 20 53 6b 65 66 20 57 68 6f 6c 65 79 20 61 6e 64 20 52 6f 62 20 4d 61 63 4c | tten.by.Skef.Wholey.and.Rob.MacL |
| 2a72c0 | 61 63 68 6c 61 6e 0a 3b 3b 3b 20 54 68 65 20 74 77 6f 20 73 79 73 74 65 6d 73 20 77 65 72 65 20 | achlan.;;;.The.two.systems.were. |
| 2a72e0 | 6d 65 72 67 65 64 20 61 6e 64 20 65 78 74 65 6e 64 65 64 20 62 79 20 4d 61 72 6b 20 4b 61 6e 74 | merged.and.extended.by.Mark.Kant |
| 2a7300 | 72 6f 77 69 74 7a 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 41 64 64 72 65 73 73 3a 20 43 61 72 6e 65 67 69 | rowitz..;;;.;;;.Address:.Carnegi |
| 2a7320 | 65 20 4d 65 6c 6c 6f 6e 20 55 6e 69 76 65 72 73 69 74 79 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 | e.Mellon.University.;;;......... |
| 2a7340 | 20 53 63 68 6f 6f 6c 20 6f 66 20 43 6f 6d 70 75 74 65 72 20 53 63 69 65 6e 63 65 0a 3b 3b 3b 20 | .School.of.Computer.Science.;;;. |
| 2a7360 | 20 20 20 20 20 20 20 20 20 50 69 74 74 73 62 75 72 67 68 2c 20 50 41 20 31 35 32 31 33 0a 3b 3b | .........Pittsburgh,.PA.15213.;; |
| 2a7380 | 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 20 69 73 20 69 6e 20 74 68 65 20 70 75 62 6c 69 63 | ;.;;;.This.code.is.in.the.public |
| 2a73a0 | 20 64 6f 6d 61 69 6e 20 61 6e 64 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 77 69 74 68 6f | .domain.and.is.distributed.witho |
| 2a73c0 | 75 74 20 77 61 72 72 61 6e 74 79 0a 3b 3b 3b 20 6f 66 20 61 6e 79 20 6b 69 6e 64 2e 0a 3b 3b 3b | ut.warranty.;;;.of.any.kind..;;; |
| 2a73e0 | 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 70 79 20 69 73 20 66 72 6f 6d 20 53 4c 49 4d 45 2c 20 68 74 | .;;;.This.copy.is.from.SLIME,.ht |
| 2a7400 | 74 70 3a 2f 2f 77 77 77 2e 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2e 6e 65 74 2f 70 72 6f 6a 65 63 74 | tp://www.common-lisp.net/project |
| 2a7420 | 2f 73 6c 69 6d 65 2f 0a 3b 3b 3b 0a 3b 3b 3b 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | /slime/.;;;.;;;...;;;.********** |
| 2a7440 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 43 68 61 6e 67 | **********************.;;;.Chang |
| 2a7460 | 65 20 4c 6f 67 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 | e.Log.*********************.;;;. |
| 2a7480 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a74a0 | 0a 3b 3b 3b 0a 3b 3b 3b 20 32 36 2d 4a 55 4e 2d 39 30 20 20 6d 6b 20 20 20 20 20 20 20 4d 65 72 | .;;;.;;;.26-JUN-90..mk.......Mer |
| 2a74c0 | 67 65 64 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 20 6f 66 20 4d 6f 6e 69 74 6f 72 20 61 6e 64 | ged.functionality.of.Monitor.and |
| 2a74e0 | 20 50 72 6f 66 69 6c 65 20 70 61 63 6b 61 67 65 73 2e 0a 3b 3b 3b 20 32 36 2d 4a 55 4e 2d 39 30 | .Profile.packages..;;;.26-JUN-90 |
| 2a7500 | 20 20 6d 6b 20 20 20 20 20 20 20 4e 6f 77 20 68 61 6e 64 6c 65 73 20 62 6f 74 68 20 69 6e 63 6c | ..mk.......Now.handles.both.incl |
| 2a7520 | 75 73 69 76 65 20 61 6e 64 20 65 78 63 6c 75 73 69 76 65 20 73 74 61 74 69 73 74 69 63 73 0a 3b | usive.and.exclusive.statistics.; |
| 2a7540 | 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 72 65 73 70 | ;;.....................with.resp |
| 2a7560 | 65 63 74 20 74 6f 20 6e 65 73 74 65 64 20 63 61 6c 6c 73 2e 20 28 41 6c 6c 6f 77 73 20 69 74 20 | ect.to.nested.calls..(Allows.it. |
| 2a7580 | 74 6f 20 73 75 62 74 72 61 63 74 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | to.subtract.;;;................. |
| 2a75a0 | 20 20 20 20 74 6f 74 61 6c 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 6f 76 65 72 68 65 61 64 20 66 6f | ....total.monitoring.overhead.fo |
| 2a75c0 | 72 20 65 61 63 68 20 66 75 6e 63 74 69 6f 6e 2c 20 6e 6f 74 20 6a 75 73 74 0a 3b 3b 3b 20 20 20 | r.each.function,.not.just.;;;... |
| 2a75e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 74 69 6d 65 20 73 70 65 6e 74 | ..................the.time.spent |
| 2a7600 | 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 74 73 65 6c 66 2e | .monitoring.the.function.itself. |
| 2a7620 | 29 0a 3b 3b 3b 20 32 36 2d 4a 55 4e 2d 39 30 20 20 6d 6b 20 20 20 20 20 20 20 54 68 65 20 74 61 | ).;;;.26-JUN-90..mk.......The.ta |
| 2a7640 | 62 6c 65 20 69 73 20 6e 6f 77 20 73 61 76 65 64 20 73 6f 20 74 68 61 74 20 6f 6e 65 20 6d 61 79 | ble.is.now.saved.so.that.one.may |
| 2a7660 | 20 6d 61 6e 69 70 75 6c 61 74 65 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .manipulate.;;;................. |
| 2a7680 | 20 20 20 20 74 68 65 20 64 61 74 61 20 28 73 6f 72 74 69 6e 67 20 69 74 2c 20 65 74 63 2e 29 20 | ....the.data.(sorting.it,.etc.). |
| 2a76a0 | 65 76 65 6e 20 61 66 74 65 72 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 0a 3b 3b 3b 20 20 20 20 20 | even.after.the.original.;;;..... |
| 2a76c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 72 63 65 20 6f 66 20 74 68 65 20 64 61 | ................source.of.the.da |
| 2a76e0 | 74 61 20 68 61 73 20 62 65 65 6e 20 63 6c 65 61 72 65 64 2e 0a 3b 3b 3b 20 32 35 2d 53 45 50 2d | ta.has.been.cleared..;;;.25-SEP- |
| 2a7700 | 39 30 20 20 6d 6b 20 20 20 20 20 20 20 41 64 64 65 64 20 67 65 74 2d 63 6f 6e 73 20 66 75 6e 63 | 90..mk.......Added.get-cons.func |
| 2a7720 | 74 69 6f 6e 73 20 66 6f 72 20 4c 75 63 69 64 20 33 2e 30 2c 20 4d 41 43 4c 20 31 2e 33 2e 32 0a | tions.for.Lucid.3.0,.MACL.1.3.2. |
| 2a7740 | 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 71 75 69 72 65 64 | ;;;.....................required |
| 2a7760 | 2d 61 72 67 75 6d 65 6e 74 73 20 66 75 6e 63 74 69 6f 6e 73 20 66 6f 72 20 4c 75 63 69 64 20 33 | -arguments.functions.for.Lucid.3 |
| 2a7780 | 2e 30 2c 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 72 61 6e | .0,.;;;.....................Fran |
| 2a77a0 | 7a 20 41 6c 6c 65 67 72 6f 20 43 4c 2c 20 61 6e 64 20 4d 41 43 4c 20 31 2e 33 2e 32 2e 0a 3b 3b | z.Allegro.CL,.and.MACL.1.3.2..;; |
| 2a77c0 | 3b 20 32 35 2d 4a 41 4e 2d 39 31 20 20 6d 6b 20 20 20 20 20 20 20 4e 6f 77 20 75 73 65 73 20 66 | ;.25-JAN-91..mk.......Now.uses.f |
| 2a77e0 | 64 65 66 69 6e 69 74 69 6f 6e 20 69 66 20 61 76 61 69 6c 61 62 6c 65 2e 0a 3b 3b 3b 20 32 35 2d | definition.if.available..;;;.25- |
| 2a7800 | 4a 41 4e 2d 39 31 20 20 6d 6b 20 20 20 20 20 20 20 52 65 70 6c 61 63 65 64 20 28 61 6e 64 20 3a | JAN-91..mk.......Replaced.(and.: |
| 2a7820 | 61 6c 6c 65 67 72 6f 20 28 6e 6f 74 20 3a 63 6f 72 61 6c 29 29 20 77 69 74 68 20 3a 65 78 63 6c | allegro.(not.:coral)).with.:excl |
| 2a7840 | 2e 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 75 63 68 20 62 | ..;;;.....................Much.b |
| 2a7860 | 65 74 74 65 72 20 73 6f 6c 75 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 66 61 63 74 20 74 68 61 74 | etter.solution.for.the.fact.that |
| 2a7880 | 20 62 6f 74 68 20 63 61 6c 6c 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .both.call.;;;.................. |
| 2a78a0 | 20 20 20 74 68 65 6d 73 65 6c 76 65 73 20 3a 61 6c 6c 65 67 72 6f 2e 0a 3b 3b 3b 20 20 35 2d 4a | ...themselves.:allegro..;;;..5-J |
| 2a78c0 | 55 4c 2d 39 31 20 6d 6b 20 20 20 20 20 20 20 20 46 69 78 65 64 20 77 61 72 6e 69 6e 67 20 74 6f | UL-91.mk........Fixed.warning.to |
| 2a78e0 | 20 6f 63 63 75 72 20 6f 6e 6c 79 20 77 68 65 6e 20 66 69 6c 65 20 69 73 20 6c 6f 61 64 65 64 0a | .occur.only.when.file.is.loaded. |
| 2a7900 | 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 6f 6d 70 69 6c | ;;;.....................uncompil |
| 2a7920 | 65 64 2e 0a 3b 3b 3b 20 20 35 2d 4a 55 4c 2d 39 31 20 6d 6b 20 20 20 20 20 20 20 20 57 68 65 6e | ed..;;;..5-JUL-91.mk........When |
| 2a7940 | 20 6d 61 6e 79 20 75 6e 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f 6e 73 2c 20 70 72 69 | .many.unmonitored.functions,.pri |
| 2a7960 | 6e 74 20 6f 75 74 20 6e 75 6d 62 65 72 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt.out.number.;;;............... |
| 2a7980 | 20 20 20 20 20 20 69 6e 73 74 65 61 64 20 6f 66 20 77 68 6f 6c 65 20 6c 69 73 74 2e 0a 3b 3b 3b | ......instead.of.whole.list..;;; |
| 2a79a0 | 20 32 34 2d 4d 41 52 2d 39 32 20 6d 6b 20 20 20 20 20 20 20 20 55 70 64 61 74 65 64 20 66 6f 72 | .24-MAR-92.mk........Updated.for |
| 2a79c0 | 20 43 4c 74 4c 32 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 2e 20 73 70 61 63 65 20 6d 65 61 73 | .CLtL2.compatibility..space.meas |
| 2a79e0 | 75 72 69 6e 67 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f | uring.;;;.....................do |
| 2a7a00 | 65 73 6e 27 74 20 77 6f 72 6b 20 69 6e 20 4d 43 4c 2c 20 62 75 74 20 66 69 78 65 64 20 73 6f 20 | esn't.work.in.MCL,.but.fixed.so. |
| 2a7a20 | 74 68 61 74 20 74 69 6d 69 6e 67 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | that.timing.;;;................. |
| 2a7a40 | 20 20 20 20 73 74 61 74 69 73 74 69 63 73 20 64 6f 2e 0a 3b 3b 3b 20 32 36 2d 4d 41 52 2d 39 32 | ....statistics.do..;;;.26-MAR-92 |
| 2a7a60 | 20 6d 6b 20 20 20 20 20 20 20 20 55 70 64 61 74 65 64 20 66 6f 72 20 4c 69 73 70 77 6f 72 6b 73 | .mk........Updated.for.Lispworks |
| 2a7a80 | 2e 20 52 65 70 6c 61 63 65 64 20 3a 63 63 6c 20 77 69 74 68 0a 3b 3b 3b 20 20 20 20 20 20 20 20 | ..Replaced.:ccl.with.;;;........ |
| 2a7aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 3a 63 63 6c 20 28 6e 6f 74 20 3a 6c 69 73 | .............(and.:ccl.(not.:lis |
| 2a7ac0 | 70 77 6f 72 6b 73 29 29 2e 0a 3b 3b 3b 20 32 37 2d 4d 41 52 2d 39 32 20 6d 6b 20 20 20 20 20 20 | pworks))..;;;.27-MAR-92.mk...... |
| 2a7ae0 | 20 20 41 64 64 65 64 20 67 65 74 2d 63 6f 6e 73 20 66 6f 72 20 41 6c 6c 65 67 72 6f 2d 56 34 2e | ..Added.get-cons.for.Allegro-V4. |
| 2a7b00 | 30 2e 0a 3b 3b 3b 20 30 31 2d 4a 41 4e 2d 39 33 20 6d 6b 20 20 76 32 2e 30 20 20 53 75 70 70 6f | 0..;;;.01-JAN-93.mk..v2.0..Suppo |
| 2a7b20 | 72 74 20 66 6f 72 20 4d 43 4c 20 32 2e 30 2c 20 43 4d 55 20 43 4c 20 31 36 64 2c 20 41 6c 6c 65 | rt.for.MCL.2.0,.CMU.CL.16d,.Alle |
| 2a7b40 | 67 72 6f 20 56 33 2e 31 2f 34 2e 30 2f 34 2e 31 2c 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 | gro.V3.1/4.0/4.1,.;;;........... |
| 2a7b60 | 20 20 20 20 20 20 20 20 20 20 4c 75 63 69 64 20 34 2e 30 2c 20 69 62 63 6c 0a 3b 3b 3b 20 32 35 | ..........Lucid.4.0,.ibcl.;;;.25 |
| 2a7b80 | 2d 4a 41 4e 2d 39 34 20 6d 6b 20 20 76 32 2e 31 20 20 50 61 74 63 68 65 73 20 66 6f 72 20 43 4c | -JAN-94.mk..v2.1..Patches.for.CL |
| 2a7ba0 | 49 53 50 20 66 72 6f 6d 20 42 72 75 6e 6f 20 48 61 69 62 6c 65 2e 0a 3b 3b 3b 20 30 31 2d 41 50 | ISP.from.Bruno.Haible..;;;.01-AP |
| 2a7bc0 | 52 2d 30 35 20 6c 67 6f 72 72 69 65 20 20 20 52 65 6d 6f 76 65 64 20 73 75 70 70 6f 72 74 20 66 | R-05.lgorrie...Removed.support.f |
| 2a7be0 | 6f 72 20 61 6c 6c 20 4c 69 73 70 73 20 65 78 63 65 70 74 20 43 4c 49 53 50 20 61 6e 64 20 4f 70 | or.all.Lisps.except.CLISP.and.Op |
| 2a7c00 | 65 6e 4d 43 4c 2e 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 | enMCL..;;;.....................P |
| 2a7c20 | 75 72 65 6c 79 20 74 6f 20 63 75 74 20 64 6f 77 6e 20 6f 6e 20 73 74 61 6c 65 20 63 6f 64 65 20 | urely.to.cut.down.on.stale.code. |
| 2a7c40 | 28 65 2e 67 2e 20 23 2b 63 6c 74 6c 32 29 20 69 6e 20 74 68 69 73 0a 3b 3b 3b 20 20 20 20 20 20 | (e.g..#+cltl2).in.this.;;;...... |
| 2a7c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 65 72 73 69 6f 6e 20 74 68 61 74 20 69 73 20 62 | ...............version.that.is.b |
| 2a7c80 | 75 6e 64 6c 65 64 20 77 69 74 68 20 53 4c 49 4d 45 2e 0a 3b 3b 3b 20 32 32 2d 41 75 67 2d 30 38 | undled.with.SLIME..;;;.22-Aug-08 |
| 2a7ca0 | 20 73 74 61 73 20 20 20 20 20 20 44 65 66 69 6e 65 20 54 49 4d 45 2d 54 59 50 45 20 66 6f 72 20 | .stas......Define.TIME-TYPE.for. |
| 2a7cc0 | 43 6c 6f 7a 75 72 65 20 43 4c 2e 0a 3b 3b 3b 20 30 37 2d 41 75 67 2d 31 32 20 68 65 6c 6c 65 72 | Clozure.CL..;;;.07-Aug-12.heller |
| 2a7ce0 | 20 20 20 20 42 72 65 61 6b 20 6c 69 6e 65 73 20 61 74 20 38 30 20 63 6f 6c 75 6d 6e 73 0a 3b 3b | ....Break.lines.at.80.columns.;; |
| 2a7d00 | 3b 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;...;;;.************************ |
| 2a7d20 | 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 54 6f 20 44 6f 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ********.;;;.To.Do.************* |
| 2a7d40 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | *************.;;;.************** |
| 2a7d60 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 2d 20 | ******************.;;;.;;;....-. |
| 2a7d80 | 4e 65 65 64 20 67 65 74 2d 63 6f 6e 73 20 66 6f 72 20 41 6c 6c 65 67 72 6f 2c 20 41 4b 43 4c 2e | Need.get-cons.for.Allegro,.AKCL. |
| 2a7da0 | 0a 3b 3b 3b 20 20 20 20 2d 20 53 70 65 65 64 20 75 70 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 63 6f | .;;;....-.Speed.up.monitoring.co |
| 2a7dc0 | 64 65 2e 20 52 65 70 6c 61 63 65 20 75 73 65 20 6f 66 20 68 61 73 68 20 74 61 62 6c 65 73 20 77 | de..Replace.use.of.hash.tables.w |
| 2a7de0 | 69 74 68 20 61 6e 20 65 6d 62 65 64 64 65 64 0a 3b 3b 3b 20 20 20 20 20 20 6f 66 66 73 65 74 20 | ith.an.embedded.;;;......offset. |
| 2a7e00 | 69 6e 20 61 6e 20 61 72 72 61 79 20 73 6f 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 66 | in.an.array.so.that.it.will.be.f |
| 2a7e20 | 61 73 74 65 72 20 74 68 61 6e 20 75 73 69 6e 67 20 67 65 74 68 61 73 68 2e 0a 3b 3b 3b 20 20 20 | aster.than.using.gethash..;;;... |
| 2a7e40 | 20 20 20 28 69 2e 65 2e 2c 20 73 76 72 65 66 2f 63 6c 6f 73 75 72 65 20 72 65 66 65 72 65 6e 63 | ...(i.e.,.svref/closure.referenc |
| 2a7e60 | 65 20 69 73 20 75 73 75 61 6c 6c 79 20 66 61 73 74 65 72 20 74 68 61 6e 20 67 65 74 68 61 73 68 | e.is.usually.faster.than.gethash |
| 2a7e80 | 29 2e 0a 3b 3b 3b 20 20 20 20 2d 20 42 65 77 61 72 65 20 6f 66 20 28 67 65 74 2d 69 6e 74 65 72 | )..;;;....-.Beware.of.(get-inter |
| 2a7ea0 | 6e 61 6c 2d 72 75 6e 2d 74 69 6d 65 29 20 6f 76 65 72 66 6c 6f 77 69 6e 67 2e 20 59 69 6b 65 73 | nal-run-time).overflowing..Yikes |
| 2a7ec0 | 21 0a 3b 3b 3b 20 20 20 20 2d 20 43 68 65 63 6b 20 72 6f 62 75 73 74 6e 65 73 73 20 77 69 74 68 | !.;;;....-.Check.robustness.with |
| 2a7ee0 | 20 72 65 73 70 65 63 74 20 74 6f 20 70 72 6f 66 69 6c 65 64 20 66 75 6e 63 74 69 6f 6e 73 2e 0a | .respect.to.profiled.functions.. |
| 2a7f00 | 3b 3b 3b 20 20 20 20 2d 20 43 68 65 63 6b 20 6c 6f 67 69 63 20 6f 66 20 63 6f 6d 70 75 74 69 6e | ;;;....-.Check.logic.of.computin |
| 2a7f20 | 67 20 69 6e 63 6c 75 73 69 76 65 20 61 6e 64 20 65 78 63 6c 75 73 69 76 65 20 74 69 6d 65 20 61 | g.inclusive.and.exclusive.time.a |
| 2a7f40 | 6e 64 20 63 6f 6e 73 69 6e 67 2e 0a 3b 3b 3b 20 20 20 20 20 20 45 73 70 65 63 69 61 6c 6c 79 20 | nd.consing..;;;......Especially. |
| 2a7f60 | 77 72 74 20 69 6e 63 66 2f 73 65 74 66 20 63 6f 6d 6d 65 6e 74 20 62 65 6c 6f 77 2e 20 53 68 6f | wrt.incf/setf.comment.below..Sho |
| 2a7f80 | 75 6c 64 20 62 65 20 69 6e 63 66 2c 20 73 6f 20 77 65 0a 3b 3b 3b 20 20 20 20 20 20 73 75 6d 20 | uld.be.incf,.so.we.;;;......sum. |
| 2a7fa0 | 72 65 63 75 72 73 69 76 65 20 63 61 6c 6c 73 2e 0a 3b 3b 3b 20 20 20 20 2d 20 41 64 64 20 6f 70 | recursive.calls..;;;....-.Add.op |
| 2a7fc0 | 74 69 6f 6e 20 74 6f 20 72 65 63 6f 72 64 20 63 61 6c 6c 65 72 20 73 74 61 74 69 73 74 69 63 73 | tion.to.record.caller.statistics |
| 2a7fe0 | 20 2d 2d 20 74 68 69 73 20 77 6f 75 6c 64 20 6c 69 73 74 20 77 68 6f 0a 3b 3b 3b 20 20 20 20 20 | .--.this.would.list.who.;;;..... |
| 2a8000 | 20 63 61 6c 6c 65 64 20 77 68 69 63 68 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 68 6f 77 20 | .called.which.functions.and.how. |
| 2a8020 | 6f 66 74 65 6e 2e 0a 3b 3b 3b 20 20 20 20 2d 20 73 77 69 74 63 68 65 73 20 74 6f 20 74 75 72 6e | often..;;;....-.switches.to.turn |
| 2a8040 | 20 74 69 6d 69 6e 67 2f 43 4f 4e 53 49 4e 47 20 73 74 61 74 69 73 74 69 63 73 20 63 6f 6c 6c 65 | .timing/CONSING.statistics.colle |
| 2a8060 | 63 74 69 6f 6e 20 6f 6e 2f 6f 66 66 2e 0a 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ction.on/off.....;;;.*********** |
| 2a8080 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 4e 6f 74 65 73 20 | *********************.;;;.Notes. |
| 2a80a0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a | **************************.;;;.* |
| 2a80c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a | *******************************. |
| 2a80e0 | 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 4d 45 54 45 52 49 4e 47 20 68 61 73 20 62 65 65 6e 20 74 65 73 | ;;;.;;;....METERING.has.been.tes |
| 2a8100 | 74 65 64 20 28 73 75 63 63 65 73 73 66 75 6c 6c 79 29 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 | ted.(successfully).in.the.follow |
| 2a8120 | 69 6e 67 20 6c 69 73 70 73 3a 0a 3b 3b 3b 20 20 20 20 20 20 20 43 4d 55 20 43 6f 6d 6d 6f 6e 20 | ing.lisps:.;;;.......CMU.Common. |
| 2a8140 | 4c 69 73 70 20 28 31 36 64 2c 20 50 79 74 68 6f 6e 20 43 6f 6d 70 69 6c 65 72 20 31 2e 30 20 29 | Lisp.(16d,.Python.Compiler.1.0.) |
| 2a8160 | 20 3a 6e 65 77 2d 63 6f 6d 70 69 6c 65 72 0a 3b 3b 3b 20 20 20 20 20 20 20 43 4d 55 20 43 6f 6d | .:new-compiler.;;;.......CMU.Com |
| 2a8180 | 6d 6f 6e 20 4c 69 73 70 20 28 4d 32 2e 39 20 31 35 2d 41 75 67 2d 39 30 2c 20 43 6f 6d 70 69 6c | mon.Lisp.(M2.9.15-Aug-90,.Compil |
| 2a81a0 | 65 72 20 4d 31 2e 38 20 31 35 2d 41 75 67 2d 39 30 29 0a 3b 3b 3b 20 20 20 20 20 20 20 4d 61 63 | er.M1.8.15-Aug-90).;;;.......Mac |
| 2a81c0 | 69 6e 74 6f 73 68 20 41 6c 6c 65 67 72 6f 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 31 2e 33 2e | intosh.Allegro.Common.Lisp.(1.3. |
| 2a81e0 | 32 29 0a 3b 3b 3b 20 20 20 20 20 20 20 4d 61 63 69 6e 74 6f 73 68 20 43 6f 6d 6d 6f 6e 20 4c 69 | 2).;;;.......Macintosh.Common.Li |
| 2a8200 | 73 70 20 28 32 2e 30 29 0a 3b 3b 3b 20 20 20 20 20 20 20 45 78 43 4c 20 28 46 72 61 6e 7a 20 41 | sp.(2.0).;;;.......ExCL.(Franz.A |
| 2a8220 | 6c 6c 65 67 72 6f 20 43 4c 20 33 2e 31 2e 31 32 20 5b 44 45 43 20 33 31 30 30 5d 20 31 31 2f 31 | llegro.CL.3.1.12.[DEC.3100].11/1 |
| 2a8240 | 39 2f 39 30 29 20 20 20 3a 61 6c 6c 65 67 72 6f 2d 76 33 2e 31 0a 3b 3b 3b 20 20 20 20 20 20 20 | 9/90)...:allegro-v3.1.;;;....... |
| 2a8260 | 45 78 43 4c 20 28 46 72 61 6e 7a 20 41 6c 6c 65 67 72 6f 20 43 4c 20 34 2e 30 2e 31 20 5b 53 75 | ExCL.(Franz.Allegro.CL.4.0.1.[Su |
| 2a8280 | 6e 34 5d 20 32 2f 38 2f 39 31 29 20 20 20 20 20 20 20 20 20 20 3a 61 6c 6c 65 67 72 6f 2d 76 34 | n4].2/8/91)..........:allegro-v4 |
| 2a82a0 | 2e 30 0a 3b 3b 3b 20 20 20 20 20 20 20 45 78 43 4c 20 28 46 72 61 6e 7a 20 41 6c 6c 65 67 72 6f | .0.;;;.......ExCL.(Franz.Allegro |
| 2a82c0 | 20 43 4c 20 34 2e 31 20 5b 53 50 41 52 43 20 52 31 5d 20 38 2f 32 38 2f 39 32 20 31 34 3a 30 36 | .CL.4.1.[SPARC.R1].8/28/92.14:06 |
| 2a82e0 | 29 20 3a 61 6c 6c 65 67 72 6f 2d 76 34 2e 31 0a 3b 3b 3b 20 20 20 20 20 20 20 45 78 43 4c 20 28 | ).:allegro-v4.1.;;;.......ExCL.( |
| 2a8300 | 46 72 61 6e 7a 20 41 43 4c 20 35 2e 30 2e 31 20 5b 4c 69 6e 75 78 2f 58 38 36 5d 20 36 2f 32 39 | Franz.ACL.5.0.1.[Linux/X86].6/29 |
| 2a8320 | 2f 39 39 20 31 36 3a 31 31 29 20 20 20 20 20 3a 61 6c 6c 65 67 72 6f 2d 76 35 2e 30 2e 31 0a 3b | /99.16:11).....:allegro-v5.0.1.; |
| 2a8340 | 3b 3b 20 20 20 20 20 20 20 4c 75 63 69 64 20 43 4c 20 28 56 65 72 73 69 6f 6e 20 32 2e 31 20 36 | ;;.......Lucid.CL.(Version.2.1.6 |
| 2a8360 | 2d 44 45 43 2d 38 37 29 0a 3b 3b 3b 20 20 20 20 20 20 20 4c 75 63 69 64 20 43 6f 6d 6d 6f 6e 20 | -DEC-87).;;;.......Lucid.Common. |
| 2a8380 | 4c 69 73 70 20 28 33 2e 30 29 0a 3b 3b 3b 20 20 20 20 20 20 20 4c 75 63 69 64 20 43 6f 6d 6d 6f | Lisp.(3.0).;;;.......Lucid.Commo |
| 2a83a0 | 6e 20 4c 69 73 70 20 28 34 2e 30 2e 31 20 48 50 2d 37 30 30 20 31 32 2d 41 75 67 2d 39 31 29 0a | n.Lisp.(4.0.1.HP-700.12-Aug-91). |
| 2a83c0 | 3b 3b 3b 20 20 20 20 20 20 20 41 4b 43 4c 20 28 31 2e 38 36 2c 20 4a 75 6e 65 20 33 30 2c 20 31 | ;;;.......AKCL.(1.86,.June.30,.1 |
| 2a83e0 | 39 38 37 20 6f 72 20 6c 61 74 65 72 29 0a 3b 3b 3b 20 20 20 20 20 20 20 49 62 75 6b 69 20 43 6f | 987.or.later).;;;.......Ibuki.Co |
| 2a8400 | 6d 6d 6f 6e 20 4c 69 73 70 20 28 56 65 72 73 69 6f 6e 20 32 2c 20 72 65 6c 65 61 73 65 20 30 31 | mmon.Lisp.(Version.2,.release.01 |
| 2a8420 | 2e 30 32 37 29 0a 3b 3b 3b 20 20 20 20 20 20 20 43 4c 49 53 50 20 28 4a 61 6e 75 61 72 79 20 31 | .027).;;;.......CLISP.(January.1 |
| 2a8440 | 39 39 34 29 0a 3b 3b 3b 0a 3b 3b 3b 20 20 20 20 4d 45 54 45 52 49 4e 47 20 6e 65 65 64 73 20 74 | 994).;;;.;;;....METERING.needs.t |
| 2a8460 | 6f 20 62 65 20 74 65 73 74 65 64 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 73 | o.be.tested.in.the.following.lis |
| 2a8480 | 70 73 3a 0a 3b 3b 3b 20 20 20 20 20 20 20 53 79 6d 62 6f 6c 69 63 73 20 43 6f 6d 6d 6f 6e 20 4c | ps:.;;;.......Symbolics.Common.L |
| 2a84a0 | 69 73 70 20 28 38 2e 30 29 0a 3b 3b 3b 20 20 20 20 20 20 20 4b 43 4c 20 28 4a 75 6e 65 20 33 2c | isp.(8.0).;;;.......KCL.(June.3, |
| 2a84c0 | 20 31 39 38 37 20 6f 72 20 6c 61 74 65 72 29 0a 3b 3b 3b 20 20 20 20 20 20 20 54 49 20 28 52 65 | .1987.or.later).;;;.......TI.(Re |
| 2a84e0 | 6c 65 61 73 65 20 34 2e 31 20 6f 72 20 6c 61 74 65 72 29 0a 3b 3b 3b 20 20 20 20 20 20 20 47 6f | lease.4.1.or.later).;;;.......Go |
| 2a8500 | 6c 64 65 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 20 28 33 2e 31 20 49 42 4d 2d 50 43 29 0a 3b 3b | lden.Common.Lisp.(3.1.IBM-PC).;; |
| 2a8520 | 3b 20 20 20 20 20 20 20 56 41 58 4c 69 73 70 20 28 32 2e 30 2c 20 33 2e 31 29 0a 3b 3b 3b 20 20 | ;.......VAXLisp.(2.0,.3.1).;;;.. |
| 2a8540 | 20 20 20 20 20 50 72 6f 63 79 6f 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 0a 0a 0c 0a 3b 3b 3b 20 | .....Procyon.Common.Lisp....;;;. |
| 2a8560 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a8580 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a85a0 | 0a 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .;;;.Documentation.************* |
| 2a85c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a85e0 | 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | *****.;;;.********************** |
| 2a8600 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a8620 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 73 79 73 74 65 6d 20 72 | **********.;;;.;;;.This.system.r |
| 2a8640 | 75 6e 73 20 69 6e 20 61 6e 79 20 76 61 6c 69 64 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2e 20 46 6f | uns.in.any.valid.Common.Lisp..Fo |
| 2a8660 | 75 72 20 73 6d 61 6c 6c 0a 3b 3b 3b 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 64 65 70 65 | ur.small.;;;.implementation-depe |
| 2a8680 | 6e 64 65 6e 74 20 63 68 61 6e 67 65 73 20 63 61 6e 20 62 65 20 6d 61 64 65 20 74 6f 20 69 6d 70 | ndent.changes.can.be.made.to.imp |
| 2a86a0 | 72 6f 76 65 20 70 65 72 66 6f 72 6d 61 6e 63 65 0a 3b 3b 3b 20 61 6e 64 20 70 72 65 74 74 69 6e | rove.performance.;;;.and.prettin |
| 2a86c0 | 65 73 73 2e 20 49 6e 20 74 68 65 20 73 65 63 74 69 6f 6e 20 6c 61 62 65 6c 6c 65 64 20 22 49 6d | ess..In.the.section.labelled."Im |
| 2a86e0 | 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 44 65 70 65 6e 64 65 6e 74 0a 3b 3b 3b 20 43 68 61 6e 67 | plementation.Dependent.;;;.Chang |
| 2a8700 | 65 73 22 20 62 65 6c 6f 77 2c 20 79 6f 75 20 73 68 6f 75 6c 64 20 74 61 69 6c 6f 72 20 74 68 65 | es".below,.you.should.tailor.the |
| 2a8720 | 20 66 75 6e 63 74 69 6f 6e 73 20 52 45 51 55 49 52 45 44 2d 41 52 47 55 4d 45 4e 54 53 2c 0a 3b | .functions.REQUIRED-ARGUMENTS,.; |
| 2a8740 | 3b 3b 20 47 45 54 2d 43 4f 4e 53 2c 20 47 45 54 2d 54 49 4d 45 2c 20 61 6e 64 20 54 49 4d 45 2d | ;;.GET-CONS,.GET-TIME,.and.TIME- |
| 2a8760 | 55 4e 49 54 53 2d 50 45 52 2d 53 45 43 4f 4e 44 20 74 6f 20 79 6f 75 72 20 69 6d 70 6c 65 6d 65 | UNITS-PER-SECOND.to.your.impleme |
| 2a8780 | 6e 74 61 74 69 6f 6e 0a 3b 3b 3b 20 66 6f 72 20 74 68 65 20 62 65 73 74 20 72 65 73 75 6c 74 73 | ntation.;;;.for.the.best.results |
| 2a87a0 | 2e 20 49 66 20 47 45 54 2d 43 4f 4e 53 20 69 73 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 20 66 | ..If.GET-CONS.is.not.specified.f |
| 2a87c0 | 6f 72 20 79 6f 75 72 0a 3b 3b 3b 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2c 20 6e 6f 20 63 | or.your.;;;.implementation,.no.c |
| 2a87e0 | 6f 6e 73 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 72 65 70 6f 72 | onsing.information.will.be.repor |
| 2a8800 | 74 65 64 2e 20 54 68 65 20 6f 74 68 65 72 0a 3b 3b 3b 20 66 75 6e 63 74 69 6f 6e 73 20 77 69 6c | ted..The.other.;;;.functions.wil |
| 2a8820 | 6c 20 64 65 66 61 75 6c 74 20 74 6f 20 77 6f 72 6b 69 6e 67 20 66 6f 72 6d 73 2c 20 61 6c 62 65 | l.default.to.working.forms,.albe |
| 2a8840 | 69 74 20 69 6e 65 66 66 69 63 69 65 6e 74 2c 20 69 6e 0a 3b 3b 3b 20 6e 6f 6e 2d 43 4d 55 20 69 | it.inefficient,.in.;;;.non-CMU.i |
| 2a8860 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 20 49 66 20 79 6f 75 20 74 61 69 6c 6f 72 20 74 68 | mplementations..If.you.tailor.th |
| 2a8880 | 65 73 65 20 66 75 6e 63 74 69 6f 6e 73 20 66 6f 72 20 61 20 70 61 72 74 69 63 75 6c 61 72 0a 3b | ese.functions.for.a.particular.; |
| 2a88a0 | 3b 3b 20 76 65 72 73 69 6f 6e 20 6f 66 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2c 20 77 65 27 64 20 | ;;.version.of.Common.Lisp,.we'd. |
| 2a88c0 | 61 70 70 72 65 63 69 61 74 65 20 72 65 63 65 69 76 69 6e 67 20 74 68 65 20 63 6f 64 65 2e 0a 3b | appreciate.receiving.the.code..; |
| 2a88e0 | 3b 3b 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;;...;;;.*********************** |
| 2a8900 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a8920 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 55 73 61 67 65 20 4e 6f 74 65 73 20 2a 2a 2a 2a 2a 2a | *********.;;;.Usage.Notes.****** |
| 2a8940 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a8960 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | **************.;;;.************* |
| 2a8980 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a89a0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 0a 3b 3b 3b 20 53 55 47 47 | *******************.;;;.;;;.SUGG |
| 2a89c0 | 45 53 54 45 44 20 55 53 41 47 45 3a 0a 3b 3b 3b 0a 3b 3b 3b 20 53 74 61 72 74 20 62 79 20 6d 6f | ESTED.USAGE:.;;;.;;;.Start.by.mo |
| 2a89e0 | 6e 69 74 6f 72 69 6e 67 20 62 69 67 20 70 69 65 63 65 73 20 6f 66 20 74 68 65 20 70 72 6f 67 72 | nitoring.big.pieces.of.the.progr |
| 2a8a00 | 61 6d 2c 20 74 68 65 6e 20 63 61 72 65 66 75 6c 6c 79 20 63 68 6f 6f 73 65 0a 3b 3b 3b 20 77 68 | am,.then.carefully.choose.;;;.wh |
| 2a8a20 | 69 63 68 20 66 75 6e 63 74 69 6f 6e 73 20 63 6c 6f 73 65 20 74 6f 2c 20 62 75 74 20 6e 6f 74 20 | ich.functions.close.to,.but.not. |
| 2a8a40 | 69 6e 2c 20 74 68 65 20 69 6e 6e 65 72 20 6c 6f 6f 70 20 61 72 65 20 74 6f 20 62 65 0a 3b 3b 3b | in,.the.inner.loop.are.to.be.;;; |
| 2a8a60 | 20 6d 6f 6e 69 74 6f 72 65 64 20 6e 65 78 74 2e 20 44 6f 6e 27 74 20 6d 6f 6e 69 74 6f 72 20 66 | .monitored.next..Don't.monitor.f |
| 2a8a80 | 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 61 72 65 20 63 61 6c 6c 65 64 20 62 79 20 6f 74 68 65 | unctions.that.are.called.by.othe |
| 2a8aa0 | 72 0a 3b 3b 3b 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f 6e 73 3a 20 79 6f 75 20 77 | r.;;;.monitored.functions:.you.w |
| 2a8ac0 | 69 6c 6c 20 6f 6e 6c 79 20 63 6f 6e 66 75 73 65 20 79 6f 75 72 73 65 6c 66 2e 0a 3b 3b 3b 0a 3b | ill.only.confuse.yourself..;;;.; |
| 2a8ae0 | 3b 3b 20 49 66 20 74 68 65 20 70 65 72 2d 63 61 6c 6c 20 74 69 6d 65 20 72 65 70 6f 72 74 65 64 | ;;.If.the.per-call.time.reported |
| 2a8b00 | 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 31 2f 31 30 74 68 20 6f 66 20 61 20 73 65 63 6f 6e 64 | .is.less.than.1/10th.of.a.second |
| 2a8b20 | 2c 20 74 68 65 6e 0a 3b 3b 3b 20 63 6f 6e 73 69 64 65 72 20 74 68 65 20 63 6c 6f 63 6b 20 72 65 | ,.then.;;;.consider.the.clock.re |
| 2a8b40 | 73 6f 6c 75 74 69 6f 6e 20 61 6e 64 20 70 72 6f 66 69 6c 69 6e 67 20 6f 76 65 72 68 65 61 64 20 | solution.and.profiling.overhead. |
| 2a8b60 | 62 65 66 6f 72 65 20 79 6f 75 20 62 65 6c 69 65 76 65 0a 3b 3b 3b 20 74 68 65 20 74 69 6d 65 2e | before.you.believe.;;;.the.time. |
| 2a8b80 | 20 49 74 20 6d 61 79 20 62 65 20 74 68 61 74 20 79 6f 75 20 77 69 6c 6c 20 6e 65 65 64 20 74 6f | .It.may.be.that.you.will.need.to |
| 2a8ba0 | 20 72 75 6e 20 79 6f 75 72 20 70 72 6f 67 72 61 6d 20 6d 61 6e 79 20 74 69 6d 65 73 0a 3b 3b 3b | .run.your.program.many.times.;;; |
| 2a8bc0 | 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 61 76 65 72 61 67 65 20 6f 75 74 20 74 6f 20 61 20 68 69 | .in.order.to.average.out.to.a.hi |
| 2a8be0 | 67 68 65 72 20 72 65 73 6f 6c 75 74 69 6f 6e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 65 20 65 61 73 | gher.resolution..;;;.;;;.The.eas |
| 2a8c00 | 69 65 73 74 20 77 61 79 20 74 6f 20 75 73 65 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 69 73 20 | iest.way.to.use.this.package.is. |
| 2a8c20 | 74 6f 20 6c 6f 61 64 20 69 74 20 61 6e 64 20 65 78 65 63 75 74 65 20 65 69 74 68 65 72 0a 3b 3b | to.load.it.and.execute.either.;; |
| 2a8c40 | 3b 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 6e 69 74 6f 72 3a 77 69 74 68 2d 6d 6f 6e 69 74 6f | ;.....(swank-monitor:with-monito |
| 2a8c60 | 72 69 6e 67 20 28 6e 61 6d 65 73 2a 29 20 28 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 79 6f 75 | ring.(names*).().;;;.........you |
| 2a8c80 | 72 2d 66 6f 72 6d 73 2a 29 0a 3b 3b 3b 20 6f 72 0a 3b 3b 3b 20 20 20 20 20 28 73 77 61 6e 6b 2d | r-forms*).;;;.or.;;;.....(swank- |
| 2a8ca0 | 6d 6f 6e 69 74 6f 72 3a 6d 6f 6e 69 74 6f 72 2d 66 6f 72 6d 20 79 6f 75 72 2d 66 6f 72 6d 29 0a | monitor:monitor-form.your-form). |
| 2a8cc0 | 3b 3b 3b 20 54 68 65 20 66 6f 72 6d 65 72 20 61 6c 6c 6f 77 73 20 79 6f 75 20 74 6f 20 73 70 65 | ;;;.The.former.allows.you.to.spe |
| 2a8ce0 | 63 69 66 79 20 77 68 69 63 68 20 66 75 6e 63 74 69 6f 6e 73 20 77 69 6c 6c 20 62 65 20 6d 6f 6e | cify.which.functions.will.be.mon |
| 2a8d00 | 69 74 6f 72 65 64 3b 20 74 68 65 0a 3b 3b 3b 20 6c 61 74 74 65 72 20 6d 6f 6e 69 74 6f 72 73 20 | itored;.the.;;;.latter.monitors. |
| 2a8d20 | 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 | all.functions.in.the.current.pac |
| 2a8d40 | 6b 61 67 65 2e 20 42 6f 74 68 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 3b 3b 3b 20 70 72 6f | kage..Both.automatically.;;;.pro |
| 2a8d60 | 64 75 63 65 20 61 20 74 61 62 6c 65 20 6f 66 20 73 74 61 74 69 73 74 69 63 73 2e 20 4f 74 68 65 | duce.a.table.of.statistics..Othe |
| 2a8d80 | 72 20 76 61 72 69 61 6e 74 73 20 63 61 6e 20 62 65 20 63 6f 6e 73 74 72 75 63 74 65 64 20 66 72 | r.variants.can.be.constructed.fr |
| 2a8da0 | 6f 6d 0a 3b 3b 3b 20 74 68 65 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 70 72 69 6d 69 74 69 76 65 73 | om.;;;.the.monitoring.primitives |
| 2a8dc0 | 2c 20 77 68 69 63 68 20 61 72 65 20 64 65 73 63 72 69 62 65 64 20 62 65 6c 6f 77 2c 20 61 6c 6f | ,.which.are.described.below,.alo |
| 2a8de0 | 6e 67 20 77 69 74 68 20 61 0a 3b 3b 3b 20 66 75 6c 6c 65 72 20 64 65 73 63 72 69 70 74 69 6f 6e | ng.with.a.;;;.fuller.description |
| 2a8e00 | 20 6f 66 20 74 68 65 73 65 20 74 77 6f 20 6d 61 63 72 6f 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 46 6f | .of.these.two.macros..;;;.;;;.Fo |
| 2a8e20 | 72 20 62 65 73 74 20 72 65 73 75 6c 74 73 2c 20 63 6f 6d 70 69 6c 65 20 74 68 69 73 20 66 69 6c | r.best.results,.compile.this.fil |
| 2a8e40 | 65 20 62 65 66 6f 72 65 20 75 73 69 6e 67 2e 0a 3b 3b 3b 0a 3b 3b 3b 0a 3b 3b 3b 20 43 4c 4f 43 | e.before.using..;;;.;;;.;;;.CLOC |
| 2a8e60 | 4b 20 52 45 53 4f 4c 55 54 49 4f 4e 3a 0a 3b 3b 3b 0a 3b 3b 3b 20 55 6e 6c 65 73 73 20 79 6f 75 | K.RESOLUTION:.;;;.;;;.Unless.you |
| 2a8e80 | 20 61 72 65 20 76 65 72 79 20 6c 75 63 6b 79 2c 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 79 | .are.very.lucky,.the.length.of.y |
| 2a8ea0 | 6f 75 72 20 6d 61 63 68 69 6e 65 27 73 20 63 6c 6f 63 6b 20 22 74 69 63 6b 22 20 69 73 0a 3b 3b | our.machine's.clock."tick".is.;; |
| 2a8ec0 | 3b 20 70 72 6f 62 61 62 6c 79 20 6d 75 63 68 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 74 68 65 20 | ;.probably.much.longer.than.the. |
| 2a8ee0 | 74 69 6d 65 20 69 74 20 74 61 6b 65 73 20 61 20 73 69 6d 70 6c 65 20 66 75 6e 63 74 69 6f 6e 20 | time.it.takes.a.simple.function. |
| 2a8f00 | 74 6f 20 72 75 6e 2e 0a 3b 3b 3b 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 6f 6e 20 74 68 65 20 | to.run..;;;.For.example,.on.the. |
| 2a8f20 | 49 42 4d 20 52 54 2c 20 74 68 65 20 63 6c 6f 63 6b 20 72 65 73 6f 6c 75 74 69 6f 6e 20 69 73 20 | IBM.RT,.the.clock.resolution.is. |
| 2a8f40 | 31 2f 35 30 74 68 20 6f 66 20 61 20 73 65 63 6f 6e 64 2e 0a 3b 3b 3b 20 54 68 69 73 20 6d 65 61 | 1/50th.of.a.second..;;;.This.mea |
| 2a8f60 | 6e 73 20 74 68 61 74 20 69 66 20 61 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6f 6e 6c 79 20 63 61 | ns.that.if.a.function.is.only.ca |
| 2a8f80 | 6c 6c 65 64 20 61 20 66 65 77 20 74 69 6d 65 73 2c 20 74 68 65 6e 20 6f 6e 6c 79 20 74 68 65 0a | lled.a.few.times,.then.only.the. |
| 2a8fa0 | 3b 3b 3b 20 66 69 72 73 74 20 63 6f 75 70 6c 65 20 6f 66 20 64 65 63 69 6d 61 6c 20 70 6c 61 63 | ;;;.first.couple.of.decimal.plac |
| 2a8fc0 | 65 73 20 61 72 65 20 72 65 61 6c 6c 79 20 6d 65 61 6e 69 6e 67 66 75 6c 2e 0a 3b 3b 3b 0a 3b 3b | es.are.really.meaningful..;;;.;; |
| 2a8fe0 | 3b 0a 3b 3b 3b 20 4d 4f 4e 49 54 4f 52 49 4e 47 20 4f 56 45 52 48 45 41 44 3a 0a 3b 3b 3b 0a 3b | ;.;;;.MONITORING.OVERHEAD:.;;;.; |
| 2a9000 | 3b 3b 20 54 68 65 20 61 64 64 65 64 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 63 6f 64 65 20 74 61 6b | ;;.The.added.monitoring.code.tak |
| 2a9020 | 65 73 20 74 69 6d 65 20 74 6f 20 72 75 6e 20 65 76 65 72 79 20 74 69 6d 65 20 74 68 61 74 20 74 | es.time.to.run.every.time.that.t |
| 2a9040 | 68 65 20 6d 6f 6e 69 74 6f 72 65 64 0a 3b 3b 3b 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c | he.monitored.;;;.function.is.cal |
| 2a9060 | 6c 65 64 2c 20 77 68 69 63 68 20 63 61 6e 20 64 69 73 72 75 70 74 20 74 68 65 20 61 74 74 65 6d | led,.which.can.disrupt.the.attem |
| 2a9080 | 70 74 20 74 6f 20 63 6f 6c 6c 65 63 74 20 74 69 6d 69 6e 67 0a 3b 3b 3b 20 69 6e 66 6f 72 6d 61 | pt.to.collect.timing.;;;.informa |
| 2a90a0 | 74 69 6f 6e 2e 20 49 6e 20 6f 72 64 65 72 20 74 6f 20 61 76 6f 69 64 20 73 65 72 69 6f 75 73 20 | tion..In.order.to.avoid.serious. |
| 2a90c0 | 69 6e 66 6c 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 69 6d 65 73 20 66 6f 72 20 66 75 6e 63 74 | inflation.of.the.times.for.funct |
| 2a90e0 | 69 6f 6e 73 0a 3b 3b 3b 20 74 68 61 74 20 74 61 6b 65 20 6c 69 74 74 6c 65 20 74 69 6d 65 20 74 | ions.;;;.that.take.little.time.t |
| 2a9100 | 6f 20 72 75 6e 2c 20 61 6e 20 65 73 74 69 6d 61 74 65 20 6f 66 20 74 68 65 20 6f 76 65 72 68 65 | o.run,.an.estimate.of.the.overhe |
| 2a9120 | 61 64 20 64 75 65 20 74 6f 20 6d 6f 6e 69 74 6f 72 69 6e 67 0a 3b 3b 3b 20 69 73 20 73 75 62 74 | ad.due.to.monitoring.;;;.is.subt |
| 2a9140 | 72 61 63 74 65 64 20 66 72 6f 6d 20 74 68 65 20 74 69 6d 65 73 20 72 65 70 6f 72 74 65 64 20 66 | racted.from.the.times.reported.f |
| 2a9160 | 6f 72 20 65 61 63 68 20 66 75 6e 63 74 69 6f 6e 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 41 6c 74 68 6f 75 | or.each.function..;;;.;;;.Althou |
| 2a9180 | 67 68 20 74 68 69 73 20 63 6f 72 72 65 63 74 69 6f 6e 20 77 6f 72 6b 73 20 66 61 69 72 6c 79 20 | gh.this.correction.works.fairly. |
| 2a91a0 | 77 65 6c 6c 2c 20 69 74 20 69 73 20 6e 6f 74 20 74 6f 74 61 6c 6c 79 20 61 63 63 75 72 61 74 65 | well,.it.is.not.totally.accurate |
| 2a91c0 | 2c 0a 3b 3b 3b 20 72 65 73 75 6c 74 69 6e 67 20 69 6e 20 74 69 6d 65 73 20 74 68 61 74 20 62 65 | ,.;;;.resulting.in.times.that.be |
| 2a91e0 | 63 6f 6d 65 20 69 6e 63 72 65 61 73 69 6e 67 6c 79 20 6d 65 61 6e 69 6e 67 6c 65 73 73 20 66 6f | come.increasingly.meaningless.fo |
| 2a9200 | 72 20 66 75 6e 63 74 69 6f 6e 73 0a 3b 3b 3b 20 77 69 74 68 20 73 68 6f 72 74 20 72 75 6e 74 69 | r.functions.;;;.with.short.runti |
| 2a9220 | 6d 65 73 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 73 75 62 74 72 61 63 74 69 6e 67 20 74 68 | mes..For.example,.subtracting.th |
| 2a9240 | 65 20 65 73 74 69 6d 61 74 65 64 20 6f 76 65 72 68 65 61 64 0a 3b 3b 3b 20 6d 61 79 20 72 65 73 | e.estimated.overhead.;;;.may.res |
| 2a9260 | 75 6c 74 20 69 6e 20 6e 65 67 61 74 69 76 65 20 74 69 6d 65 73 20 66 6f 72 20 73 6f 6d 65 20 66 | ult.in.negative.times.for.some.f |
| 2a9280 | 75 6e 63 74 69 6f 6e 73 2e 20 54 68 69 73 20 69 73 20 6f 6e 6c 79 20 61 20 63 6f 6e 63 65 72 6e | unctions..This.is.only.a.concern |
| 2a92a0 | 0a 3b 3b 3b 20 77 68 65 6e 20 74 68 65 20 65 73 74 69 6d 61 74 65 64 20 70 72 6f 66 69 6c 69 6e | .;;;.when.the.estimated.profilin |
| 2a92c0 | 67 20 6f 76 65 72 68 65 61 64 20 69 73 20 6d 61 6e 79 20 74 69 6d 65 73 20 6c 61 72 67 65 72 20 | g.overhead.is.many.times.larger. |
| 2a92e0 | 74 68 61 6e 0a 3b 3b 3b 20 72 65 70 6f 72 74 65 64 20 74 6f 74 61 6c 20 43 50 55 20 74 69 6d 65 | than.;;;.reported.total.CPU.time |
| 2a9300 | 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 49 66 20 79 6f 75 20 6d 6f 6e 69 74 6f 72 20 66 75 6e 63 74 69 6f | ..;;;.;;;.If.you.monitor.functio |
| 2a9320 | 6e 73 20 74 68 61 74 20 61 72 65 20 63 61 6c 6c 65 64 20 62 79 20 6d 6f 6e 69 74 6f 72 65 64 20 | ns.that.are.called.by.monitored. |
| 2a9340 | 66 75 6e 63 74 69 6f 6e 73 2c 20 69 6e 0a 3b 3b 3b 20 3a 69 6e 63 6c 75 73 69 76 65 20 6d 6f 64 | functions,.in.;;;.:inclusive.mod |
| 2a9360 | 65 20 74 68 65 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 6f 76 65 72 68 65 61 64 20 66 6f 72 20 74 68 | e.the.monitoring.overhead.for.th |
| 2a9380 | 65 20 69 6e 6e 65 72 20 66 75 6e 63 74 69 6f 6e 20 69 73 0a 3b 3b 3b 20 73 75 62 74 72 61 63 74 | e.inner.function.is.;;;.subtract |
| 2a93a0 | 65 64 20 66 72 6f 6d 20 74 68 65 20 43 50 55 20 74 69 6d 65 20 66 6f 72 20 74 68 65 20 6f 75 74 | ed.from.the.CPU.time.for.the.out |
| 2a93c0 | 65 72 20 66 75 6e 63 74 69 6f 6e 2e 20 5b 57 65 20 64 6f 20 74 68 69 73 20 62 79 0a 3b 3b 3b 20 | er.function..[We.do.this.by.;;;. |
| 2a93e0 | 63 6f 75 6e 74 69 6e 67 20 66 6f 72 20 65 61 63 68 20 66 75 6e 63 74 69 6f 6e 20 6e 6f 74 20 6f | counting.for.each.function.not.o |
| 2a9400 | 6e 6c 79 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 61 6c 6c 73 20 74 6f 20 2a 74 68 69 73 | nly.the.number.of.calls.to.*this |
| 2a9420 | 2a 0a 3b 3b 3b 20 66 75 6e 63 74 69 6f 6e 2c 20 62 75 74 20 61 6c 73 6f 20 74 68 65 20 6e 75 6d | *.;;;.function,.but.also.the.num |
| 2a9440 | 62 65 72 20 6f 66 20 6d 6f 6e 69 74 6f 72 65 64 20 63 61 6c 6c 73 20 77 68 69 6c 65 20 69 74 20 | ber.of.monitored.calls.while.it. |
| 2a9460 | 77 61 73 20 72 75 6e 6e 69 6e 67 2e 5d 0a 3b 3b 3b 20 49 6e 20 3a 65 78 63 6c 75 73 69 76 65 20 | was.running.].;;;.In.:exclusive. |
| 2a9480 | 6d 6f 64 65 20 74 68 69 73 20 69 73 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 79 2c 20 73 69 6e 63 | mode.this.is.not.necessary,.sinc |
| 2a94a0 | 65 20 77 65 20 73 75 62 74 72 61 63 74 20 74 68 65 0a 3b 3b 3b 20 6d 6f 6e 69 74 6f 72 69 6e 67 | e.we.subtract.the.;;;.monitoring |
| 2a94c0 | 20 74 69 6d 65 20 6f 66 20 69 6e 6e 65 72 20 66 75 6e 63 74 69 6f 6e 73 2c 20 6f 76 65 72 68 65 | .time.of.inner.functions,.overhe |
| 2a94e0 | 61 64 20 26 20 61 6c 6c 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65 | ad.&.all..;;;.;;;.Otherwise,.the |
| 2a9500 | 20 65 73 74 69 6d 61 74 65 64 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 6f 76 65 72 68 65 61 64 20 69 | .estimated.monitoring.overhead.i |
| 2a9520 | 73 20 6e 6f 74 20 72 65 70 72 65 73 65 6e 74 65 64 20 69 6e 20 74 68 65 0a 3b 3b 3b 20 72 65 70 | s.not.represented.in.the.;;;.rep |
| 2a9540 | 6f 72 74 65 64 20 74 6f 74 61 6c 20 43 50 55 20 74 69 6d 65 2e 20 54 68 65 20 73 75 6d 20 6f 66 | orted.total.CPU.time..The.sum.of |
| 2a9560 | 20 74 6f 74 61 6c 20 43 50 55 20 74 69 6d 65 20 61 6e 64 20 74 68 65 20 65 73 74 69 6d 61 74 65 | .total.CPU.time.and.the.estimate |
| 2a9580 | 64 0a 3b 3b 3b 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 6f 76 65 72 68 65 61 64 20 73 68 6f 75 6c 64 | d.;;;.monitoring.overhead.should |
| 2a95a0 | 20 62 65 20 63 6c 6f 73 65 20 74 6f 20 74 68 65 20 74 6f 74 61 6c 20 43 50 55 20 74 69 6d 65 20 | .be.close.to.the.total.CPU.time. |
| 2a95c0 | 66 6f 72 20 74 68 65 0a 3b 3b 3b 20 65 6e 74 69 72 65 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 72 75 | for.the.;;;.entire.monitoring.ru |
| 2a95e0 | 6e 20 28 61 73 20 64 65 74 65 72 6d 69 6e 65 64 20 62 79 20 54 49 4d 45 29 2e 0a 3b 3b 3b 0a 3b | n.(as.determined.by.TIME)..;;;.; |
| 2a9600 | 3b 3b 20 41 20 74 69 6d 69 6e 67 20 6f 76 65 72 68 65 61 64 20 66 61 63 74 6f 72 20 69 73 20 63 | ;;.A.timing.overhead.factor.is.c |
| 2a9620 | 6f 6d 70 75 74 65 64 20 61 74 20 6c 6f 61 64 20 74 69 6d 65 2e 20 54 68 69 73 20 77 69 6c 6c 20 | omputed.at.load.time..This.will. |
| 2a9640 | 62 65 20 69 6e 63 6f 72 72 65 63 74 0a 3b 3b 3b 20 69 66 20 74 68 65 20 6d 6f 6e 69 74 6f 72 69 | be.incorrect.;;;.if.the.monitori |
| 2a9660 | 6e 67 20 63 6f 64 65 20 69 73 20 72 75 6e 20 69 6e 20 61 20 64 69 66 66 65 72 65 6e 74 20 65 6e | ng.code.is.run.in.a.different.en |
| 2a9680 | 76 69 72 6f 6e 6d 65 6e 74 20 74 68 61 6e 20 74 68 69 73 20 66 69 6c 65 0a 3b 3b 3b 20 77 61 73 | vironment.than.this.file.;;;.was |
| 2a96a0 | 20 6c 6f 61 64 65 64 20 69 6e 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 73 61 76 69 6e 67 20 | .loaded.in..For.example,.saving. |
| 2a96c0 | 61 20 63 6f 72 65 20 69 6d 61 67 65 20 6f 6e 20 61 20 68 69 67 68 20 70 65 72 66 6f 72 6d 61 6e | a.core.image.on.a.high.performan |
| 2a96e0 | 63 65 0a 3b 3b 3b 20 6d 61 63 68 69 6e 65 20 61 6e 64 20 72 75 6e 6e 69 6e 67 20 69 74 20 6f 6e | ce.;;;.machine.and.running.it.on |
| 2a9700 | 20 61 20 6c 6f 77 20 70 65 72 66 6f 72 6d 61 6e 63 65 20 6f 6e 65 20 77 69 6c 6c 20 72 65 73 75 | .a.low.performance.one.will.resu |
| 2a9720 | 6c 74 20 69 6e 20 74 68 65 20 75 73 65 0a 3b 3b 3b 20 6f 66 20 61 6e 20 65 72 72 6f 6e 65 6f 75 | lt.in.the.use.;;;.of.an.erroneou |
| 2a9740 | 73 6c 79 20 73 6d 61 6c 6c 20 6f 76 65 72 68 65 61 64 20 66 61 63 74 6f 72 2e 0a 3b 3b 3b 0a 3b | sly.small.overhead.factor..;;;.; |
| 2a9760 | 3b 3b 0a 3b 3b 3b 20 49 66 20 79 6f 75 72 20 74 69 6d 65 73 20 76 61 72 79 20 77 69 64 65 6c 79 | ;;.;;;.If.your.times.vary.widely |
| 2a9780 | 2c 20 70 6f 73 73 69 62 6c 65 20 63 61 75 73 65 73 20 61 72 65 3a 0a 3b 3b 3b 20 20 20 20 2d 20 | ,.possible.causes.are:.;;;....-. |
| 2a97a0 | 47 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 2e 20 20 54 72 79 20 74 75 72 6e 69 6e 67 | Garbage.collection...Try.turning |
| 2a97c0 | 20 69 74 20 6f 66 66 2c 20 74 68 65 6e 20 72 75 6e 6e 69 6e 67 20 79 6f 75 72 20 63 6f 64 65 2e | .it.off,.then.running.your.code. |
| 2a97e0 | 0a 3b 3b 3b 20 20 20 20 20 20 42 65 20 77 61 72 6e 65 64 20 74 68 61 74 20 6d 6f 6e 69 74 6f 72 | .;;;......Be.warned.that.monitor |
| 2a9800 | 69 6e 67 20 63 6f 64 65 20 77 69 6c 6c 20 70 72 6f 62 61 62 6c 79 20 63 6f 6e 73 20 77 68 65 6e | ing.code.will.probably.cons.when |
| 2a9820 | 20 69 74 20 64 6f 65 73 0a 3b 3b 3b 20 20 20 20 20 20 28 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d | .it.does.;;;......(get-internal- |
| 2a9840 | 72 75 6e 2d 74 69 6d 65 29 2e 0a 3b 3b 3b 20 20 20 20 2d 20 53 77 61 70 70 69 6e 67 2e 20 20 49 | run-time)..;;;....-.Swapping...I |
| 2a9860 | 66 20 79 6f 75 20 68 61 76 65 20 65 6e 6f 75 67 68 20 6d 65 6d 6f 72 79 2c 20 65 78 65 63 75 74 | f.you.have.enough.memory,.execut |
| 2a9880 | 65 20 79 6f 75 72 20 66 6f 72 6d 20 6f 6e 63 65 0a 3b 3b 3b 20 20 20 20 20 20 62 65 66 6f 72 65 | e.your.form.once.;;;......before |
| 2a98a0 | 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 73 6f 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 73 | .monitoring.so.that.it.will.be.s |
| 2a98c0 | 77 61 70 70 65 64 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 2e 20 4f 74 68 65 72 77 69 73 65 2c 0a 3b | wapped.into.memory..Otherwise,.; |
| 2a98e0 | 3b 3b 20 20 20 20 20 20 67 65 74 20 61 20 62 69 67 67 65 72 20 6d 61 63 68 69 6e 65 21 0a 3b 3b | ;;......get.a.bigger.machine!.;; |
| 2a9900 | 3b 20 20 20 20 2d 20 52 65 73 6f 6c 75 74 69 6f 6e 20 6f 66 20 69 6e 74 65 72 6e 61 6c 2d 74 69 | ;....-.Resolution.of.internal-ti |
| 2a9920 | 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 2e 20 20 49 66 20 74 68 69 73 20 76 61 | me-units-per-second...If.this.va |
| 2a9940 | 6c 75 65 20 69 73 0a 3b 3b 3b 20 20 20 20 20 20 74 6f 6f 20 6c 6f 77 2c 20 74 68 65 6e 20 74 68 | lue.is.;;;......too.low,.then.th |
| 2a9960 | 65 20 74 69 6d 69 6e 67 73 20 62 65 63 6f 6d 65 20 77 69 6c 64 2e 20 59 6f 75 20 63 61 6e 20 74 | e.timings.become.wild..You.can.t |
| 2a9980 | 72 79 20 65 78 65 63 75 74 69 6e 67 20 6d 6f 72 65 0a 3b 3b 3b 20 20 20 20 20 20 6f 66 20 77 68 | ry.executing.more.;;;......of.wh |
| 2a99a0 | 61 74 65 76 65 72 20 79 6f 75 72 20 74 65 73 74 20 69 73 2c 20 62 75 74 20 74 68 61 74 20 77 69 | atever.your.test.is,.but.that.wi |
| 2a99c0 | 6c 6c 20 6f 6e 6c 79 20 77 6f 72 6b 20 69 66 20 73 6f 6d 65 20 6f 66 20 79 6f 75 72 0a 3b 3b 3b | ll.only.work.if.some.of.your.;;; |
| 2a99e0 | 20 20 20 20 20 20 70 61 74 68 73 20 64 6f 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20 74 69 6d | ......paths.do.not.match.the.tim |
| 2a9a00 | 65 72 20 72 65 73 6f 6c 75 74 69 6f 6e 2e 0a 3b 3b 3b 20 20 20 20 20 20 69 6e 74 65 72 6e 61 6c | er.resolution..;;;......internal |
| 2a9a20 | 2d 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 69 73 20 73 6f 20 63 6f 61 | -time-units-per-second.is.so.coa |
| 2a9a40 | 72 73 65 20 2d 2d 20 6f 6e 20 61 20 53 79 6d 62 6f 6c 69 63 73 20 69 74 20 69 73 0a 3b 3b 3b 20 | rse.--.on.a.Symbolics.it.is.;;;. |
| 2a9a60 | 20 20 20 20 20 39 37 37 2c 20 69 6e 20 4d 41 43 4c 20 69 74 20 69 73 20 36 30 2e 0a 3b 3b 3b 0a | .....977,.in.MACL.it.is.60..;;;. |
| 2a9a80 | 3b 3b 3b 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;;;...;;;.********************** |
| 2a9aa0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a9ac0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 49 6e 74 65 72 66 61 63 65 20 2a 2a 2a 2a 2a 2a 2a | **********.;;;.Interface.******* |
| 2a9ae0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a9b00 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***************.;;;.************ |
| 2a9b20 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2a9b40 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 0a 3b 3b 3b 20 57 49 54 | ********************.;;;.;;;.WIT |
| 2a9b60 | 48 2d 4d 4f 4e 49 54 4f 52 49 4e 47 20 28 26 72 65 73 74 20 66 75 6e 63 74 69 6f 6e 73 29 20 20 | H-MONITORING.(&rest.functions).. |
| 2a9b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 4d 61 63 72 6f 5d 0a 3b | .......................[Macro].; |
| 2a9ba0 | 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 6e | ;;.................(&optional.(n |
| 2a9bc0 | 65 73 74 65 64 20 3a 65 78 63 6c 75 73 69 76 65 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 | ested.:exclusive).;;;........... |
| 2a9be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 73 68 6f 6c 64 20 30 2e 30 31 | .................(threshold.0.01 |
| 2a9c00 | 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ).;;;........................... |
| 2a9c20 | 20 28 6b 65 79 20 3a 70 65 72 63 65 6e 74 2d 74 69 6d 65 29 29 0a 3b 3b 3b 20 20 20 20 20 20 20 | .(key.:percent-time)).;;;....... |
| 2a9c40 | 20 20 20 20 20 20 20 20 20 20 26 62 6f 64 79 20 62 6f 64 79 0a 3b 3b 3b 20 54 68 65 20 6e 61 6d | ..........&body.body.;;;.The.nam |
| 2a9c60 | 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 77 69 6c 6c 20 62 65 20 73 65 74 20 75 70 20 66 6f 72 20 | ed.functions.will.be.set.up.for. |
| 2a9c80 | 6d 6f 6e 69 74 6f 72 69 6e 67 2c 20 74 68 65 20 62 6f 64 79 20 66 6f 72 6d 73 20 65 78 65 63 75 | monitoring,.the.body.forms.execu |
| 2a9ca0 | 74 65 64 2c 0a 3b 3b 3b 20 61 20 74 61 62 6c 65 20 6f 66 20 72 65 73 75 6c 74 73 20 70 72 69 6e | ted,.;;;.a.table.of.results.prin |
| 2a9cc0 | 74 65 64 2c 20 61 6e 64 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 75 6e 6d 6f 6e 69 74 6f 72 | ted,.and.the.functions.unmonitor |
| 2a9ce0 | 65 64 2e 20 54 68 65 20 6e 65 73 74 65 64 2c 0a 3b 3b 3b 20 74 68 72 65 73 68 6f 6c 64 2c 20 61 | ed..The.nested,.;;;.threshold,.a |
| 2a9d00 | 6e 64 20 6b 65 79 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 70 61 73 73 65 64 20 74 6f 20 72 | nd.key.arguments.are.passed.to.r |
| 2a9d20 | 65 70 6f 72 74 2d 6d 6f 6e 69 74 6f 72 69 6e 67 20 62 65 6c 6f 77 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 | eport-monitoring.below..;;;.;;;. |
| 2a9d40 | 4d 4f 4e 49 54 4f 52 2d 46 4f 52 4d 20 66 6f 72 6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | MONITOR-FORM.form............... |
| 2a9d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 4d 61 63 72 6f | ..........................[Macro |
| 2a9d80 | 5d 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6f 70 74 69 6f 6e 61 6c 20 28 6e | ].;;;...............&optional.(n |
| 2a9da0 | 65 73 74 65 64 20 3a 65 78 63 6c 75 73 69 76 65 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 | ested.:exclusive).;;;........... |
| 2a9dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 73 68 6f 6c 64 20 30 2e 30 31 29 0a 3b | ..............(threshold.0.01).; |
| 2a9de0 | 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 20 | ;;.........................(key. |
| 2a9e00 | 3a 70 65 72 63 65 6e 74 2d 74 69 6d 65 29 0a 3b 3b 3b 20 41 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 | :percent-time).;;;.All.functions |
| 2a9e20 | 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 61 72 65 20 73 65 74 20 | .in.the.current.package.are.set. |
| 2a9e40 | 75 70 20 66 6f 72 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 77 68 69 6c 65 0a 3b 3b 3b 20 74 68 65 20 | up.for.monitoring.while.;;;.the. |
| 2a9e60 | 66 6f 72 6d 20 69 73 20 65 78 65 63 75 74 65 64 2c 20 61 6e 64 20 61 75 74 6f 6d 61 74 69 63 61 | form.is.executed,.and.automatica |
| 2a9e80 | 6c 6c 79 20 75 6e 6d 6f 6e 69 74 6f 72 65 64 20 61 66 74 65 72 20 61 20 74 61 62 6c 65 20 6f 66 | lly.unmonitored.after.a.table.of |
| 2a9ea0 | 0a 3b 3b 3b 20 72 65 73 75 6c 74 73 20 68 61 73 20 62 65 65 6e 20 70 72 69 6e 74 65 64 2e 20 54 | .;;;.results.has.been.printed..T |
| 2a9ec0 | 68 65 20 6e 65 73 74 65 64 2c 20 74 68 72 65 73 68 6f 6c 64 2c 20 61 6e 64 20 6b 65 79 20 61 72 | he.nested,.threshold,.and.key.ar |
| 2a9ee0 | 67 75 6d 65 6e 74 73 0a 3b 3b 3b 20 61 72 65 20 70 61 73 73 65 64 20 74 6f 20 72 65 70 6f 72 74 | guments.;;;.are.passed.to.report |
| 2a9f00 | 2d 6d 6f 6e 69 74 6f 72 69 6e 67 20 62 65 6c 6f 77 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 2a 4d 4f 4e 49 | -monitoring.below..;;;.;;;.*MONI |
| 2a9f20 | 54 4f 52 45 44 2d 46 55 4e 43 54 49 4f 4e 53 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | TORED-FUNCTIONS*................ |
| 2a9f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 56 61 72 69 61 62 6c 65 5d 0a | .....................[Variable]. |
| 2a9f60 | 3b 3b 3b 20 54 68 69 73 20 68 6f 6c 64 73 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 66 75 6e | ;;;.This.holds.a.list.of.all.fun |
| 2a9f80 | 63 74 69 6f 6e 73 20 74 68 61 74 20 61 72 65 20 63 75 72 72 65 6e 74 6c 79 20 62 65 69 6e 67 20 | ctions.that.are.currently.being. |
| 2a9fa0 | 6d 6f 6e 69 74 6f 72 65 64 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4d 4f 4e 49 54 4f 52 20 26 72 65 73 74 | monitored..;;;.;;;.MONITOR.&rest |
| 2a9fc0 | 20 6e 61 6d 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .names.......................... |
| 2a9fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 4d 61 63 72 6f 5d 0a 3b 3b 3b 20 54 68 65 20 6e 61 6d | .............[Macro].;;;.The.nam |
| 2aa000 | 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 77 69 6c 6c 20 62 65 20 73 65 74 20 75 70 20 66 6f 72 20 | ed.functions.will.be.set.up.for. |
| 2aa020 | 6d 6f 6e 69 74 6f 72 69 6e 67 20 62 79 20 61 75 67 6d 65 6e 74 69 6e 67 0a 3b 3b 3b 20 74 68 65 | monitoring.by.augmenting.;;;.the |
| 2aa040 | 69 72 20 66 75 6e 63 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 77 69 74 68 20 63 6f 64 | ir.function.definitions.with.cod |
| 2aa060 | 65 20 74 68 61 74 20 67 61 74 68 65 72 73 20 73 74 61 74 69 73 74 69 63 61 6c 20 69 6e 66 6f 72 | e.that.gathers.statistical.infor |
| 2aa080 | 6d 61 74 69 6f 6e 0a 3b 3b 3b 20 61 62 6f 75 74 20 63 6f 64 65 20 70 65 72 66 6f 72 6d 61 6e 63 | mation.;;;.about.code.performanc |
| 2aa0a0 | 65 2e 20 41 73 20 77 69 74 68 20 74 68 65 20 54 52 41 43 45 20 6d 61 63 72 6f 2c 20 74 68 65 20 | e..As.with.the.TRACE.macro,.the. |
| 2aa0c0 | 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 20 61 72 65 0a 3b 3b 3b 20 6e 6f 74 20 65 76 61 6c 75 | function.names.are.;;;.not.evalu |
| 2aa0e0 | 61 74 65 64 2e 20 43 61 6c 6c 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 53 57 41 4e 4b 2d 4d | ated..Calls.the.function.SWANK-M |
| 2aa100 | 4f 4e 49 54 4f 52 3a 3a 4d 4f 4e 49 54 4f 52 49 4e 47 2d 45 4e 43 41 50 53 55 4c 41 54 45 20 6f | ONITOR::MONITORING-ENCAPSULATE.o |
| 2aa120 | 6e 20 65 61 63 68 0a 3b 3b 3b 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 2e 20 49 66 20 6e 6f 20 | n.each.;;;.function.name..If.no. |
| 2aa140 | 6e 61 6d 65 73 20 61 72 65 20 73 70 65 63 69 66 69 65 64 2c 20 72 65 74 75 72 6e 73 20 61 20 6c | names.are.specified,.returns.a.l |
| 2aa160 | 69 73 74 20 6f 66 20 61 6c 6c 0a 3b 3b 3b 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f | ist.of.all.;;;.monitored.functio |
| 2aa180 | 6e 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 49 66 20 6e 61 6d 65 20 69 73 20 6e 6f 74 20 61 20 73 79 6d | ns..;;;.;;;.If.name.is.not.a.sym |
| 2aa1a0 | 62 6f 6c 2c 20 69 74 20 69 73 20 65 76 61 6c 65 64 20 74 6f 20 72 65 74 75 72 6e 20 74 68 65 20 | bol,.it.is.evaled.to.return.the. |
| 2aa1c0 | 61 70 70 72 6f 70 72 69 61 74 65 0a 3b 3b 3b 20 63 6c 6f 73 75 72 65 2e 20 54 68 69 73 20 61 6c | appropriate.;;;.closure..This.al |
| 2aa1e0 | 6c 6f 77 73 20 79 6f 75 20 74 6f 20 6d 6f 6e 69 74 6f 72 20 63 6c 6f 73 75 72 65 73 20 73 74 6f | lows.you.to.monitor.closures.sto |
| 2aa200 | 72 65 64 20 61 6e 79 77 68 65 72 65 20 6c 69 6b 65 0a 3b 3b 3b 20 69 6e 20 61 20 76 61 72 69 61 | red.anywhere.like.;;;.in.a.varia |
| 2aa220 | 62 6c 65 2c 20 61 72 72 61 79 20 6f 72 20 73 74 72 75 63 74 75 72 65 2e 20 4d 6f 73 74 20 6f 74 | ble,.array.or.structure..Most.ot |
| 2aa240 | 68 65 72 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 70 61 63 6b 61 67 65 73 0a 3b 3b 3b 20 63 61 6e 27 | her.monitoring.packages.;;;.can' |
| 2aa260 | 74 20 68 61 6e 64 6c 65 20 74 68 69 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4d 4f 4e 49 54 4f 52 2d 41 | t.handle.this..;;;.;;;.MONITOR-A |
| 2aa280 | 4c 4c 20 26 6f 70 74 69 6f 6e 61 6c 20 28 70 61 63 6b 61 67 65 20 2a 70 61 63 6b 61 67 65 2a 29 | LL.&optional.(package.*package*) |
| 2aa2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 46 75 6e 63 74 69 6f 6e 5d 0a 3b 3b 3b 20 | .................[Function].;;;. |
| 2aa2c0 | 4d 6f 6e 69 74 6f 72 73 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 73 70 | Monitors.all.functions.in.the.sp |
| 2aa2e0 | 65 63 69 66 69 65 64 20 70 61 63 6b 61 67 65 2c 20 77 68 69 63 68 20 64 65 66 61 75 6c 74 73 20 | ecified.package,.which.defaults. |
| 2aa300 | 74 6f 0a 3b 3b 3b 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 2e 0a 3b 3b 3b 0a | to.;;;.the.current.package..;;;. |
| 2aa320 | 3b 3b 3b 20 55 4e 4d 4f 4e 49 54 4f 52 20 26 72 65 73 74 20 6e 61 6d 65 73 20 20 20 20 20 20 20 | ;;;.UNMONITOR.&rest.names....... |
| 2aa340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 4d | ..............................[M |
| 2aa360 | 61 63 72 6f 5d 0a 3b 3b 3b 20 52 65 6d 6f 76 65 73 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 63 6f 64 | acro].;;;.Removes.monitoring.cod |
| 2aa380 | 65 20 66 72 6f 6d 20 74 68 65 20 6e 61 6d 65 64 20 66 75 6e 63 74 69 6f 6e 73 2e 20 49 66 20 6e | e.from.the.named.functions..If.n |
| 2aa3a0 | 6f 20 6e 61 6d 65 73 20 61 72 65 0a 3b 3b 3b 20 73 70 65 63 69 66 69 65 64 2c 20 61 6c 6c 20 63 | o.names.are.;;;.specified,.all.c |
| 2aa3c0 | 75 72 72 65 6e 74 6c 79 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 | urrently.monitored.functions.are |
| 2aa3e0 | 20 75 6e 6d 6f 6e 69 74 6f 72 65 64 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 52 45 53 45 54 2d 4d 4f 4e 49 | .unmonitored..;;;.;;;.RESET-MONI |
| 2aa400 | 54 4f 52 49 4e 47 2d 49 4e 46 4f 20 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | TORING-INFO.name................ |
| 2aa420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 46 75 6e 63 74 69 6f 6e 5d 0a 3b 3b 3b 20 52 | ................[Function].;;;.R |
| 2aa440 | 65 73 65 74 73 20 74 68 65 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 73 74 61 74 69 73 74 69 63 73 20 | esets.the.monitoring.statistics. |
| 2aa460 | 66 6f 72 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 66 75 6e 63 74 69 6f 6e 2e 0a 3b 3b 3b 0a | for.the.specified.function..;;;. |
| 2aa480 | 3b 3b 3b 20 52 45 53 45 54 2d 41 4c 4c 2d 4d 4f 4e 49 54 4f 52 49 4e 47 20 20 20 20 20 20 20 20 | ;;;.RESET-ALL-MONITORING........ |
| 2aa4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 46 | ..............................[F |
| 2aa4c0 | 75 6e 63 74 69 6f 6e 5d 0a 3b 3b 3b 20 52 65 73 65 74 73 20 74 68 65 20 6d 6f 6e 69 74 6f 72 69 | unction].;;;.Resets.the.monitori |
| 2aa4e0 | 6e 67 20 73 74 61 74 69 73 74 69 63 73 20 66 6f 72 20 61 6c 6c 20 6d 6f 6e 69 74 6f 72 65 64 20 | ng.statistics.for.all.monitored. |
| 2aa500 | 66 75 6e 63 74 69 6f 6e 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4d 4f 4e 49 54 4f 52 45 44 20 6e 61 6d | functions..;;;.;;;.MONITORED.nam |
| 2aa520 | 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e............................... |
| 2aa540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 46 75 6e 63 74 69 6f 6e 5d 0a 3b 3b 3b 20 50 72 65 64 | .............[Function].;;;.Pred |
| 2aa560 | 69 63 61 74 65 20 74 6f 20 74 65 73 74 20 77 68 65 74 68 65 72 20 61 20 66 75 6e 63 74 69 6f 6e | icate.to.test.whether.a.function |
| 2aa580 | 20 69 73 20 6d 6f 6e 69 74 6f 72 65 64 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 52 45 50 4f 52 54 2d 4d 4f | .is.monitored..;;;.;;;.REPORT-MO |
| 2aa5a0 | 4e 49 54 4f 52 49 4e 47 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 61 6d 65 73 20 20 20 20 20 20 20 20 | NITORING.&optional.names........ |
| 2aa5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 46 75 6e 63 74 69 6f 6e 5d 0a 3b 3b 3b 20 | .................[Function].;;;. |
| 2aa5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 73 | ............................(nes |
| 2aa600 | 74 65 64 20 3a 65 78 63 6c 75 73 69 76 65 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 | ted.:exclusive).;;;............. |
| 2aa620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 73 68 6f 6c 64 20 30 2e 30 31 29 | ................(threshold.0.01) |
| 2aa640 | 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .;;;............................ |
| 2aa660 | 20 28 6b 65 79 20 3a 70 65 72 63 65 6e 74 2d 74 69 6d 65 29 0a 3b 3b 3b 20 43 72 65 61 74 65 73 | .(key.:percent-time).;;;.Creates |
| 2aa680 | 20 61 20 74 61 62 6c 65 20 6f 66 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 | .a.table.of.monitoring.informati |
| 2aa6a0 | 6f 6e 20 66 6f 72 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6c 69 73 74 0a 3b 3b 3b 20 6f 66 | on.for.the.specified.list.;;;.of |
| 2aa6c0 | 20 6e 61 6d 65 73 2c 20 61 6e 64 20 64 69 73 70 6c 61 79 73 20 74 68 65 20 74 61 62 6c 65 20 75 | .names,.and.displays.the.table.u |
| 2aa6e0 | 73 69 6e 67 20 64 69 73 70 6c 61 79 2d 6d 6f 6e 69 74 6f 72 69 6e 67 2d 72 65 73 75 6c 74 73 2e | sing.display-monitoring-results. |
| 2aa700 | 0a 3b 3b 3b 20 49 66 20 6e 61 6d 65 73 20 69 73 20 3a 61 6c 6c 20 6f 72 20 6e 69 6c 2c 20 75 73 | .;;;.If.names.is.:all.or.nil,.us |
| 2aa720 | 65 73 20 61 6c 6c 20 63 75 72 72 65 6e 74 6c 79 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 | es.all.currently.monitored.funct |
| 2aa740 | 69 6f 6e 73 2e 0a 3b 3b 3b 20 54 61 6b 65 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 | ions..;;;.Takes.the.following.ar |
| 2aa760 | 67 75 6d 65 6e 74 73 3a 0a 3b 3b 3b 20 20 20 20 2d 20 4e 45 53 54 45 44 20 73 70 65 63 69 66 69 | guments:.;;;....-.NESTED.specifi |
| 2aa780 | 65 73 20 77 68 65 74 68 65 72 20 6e 65 73 74 65 64 20 63 61 6c 6c 73 20 6f 66 20 6d 6f 6e 69 74 | es.whether.nested.calls.of.monit |
| 2aa7a0 | 6f 72 65 64 20 66 75 6e 63 74 69 6f 6e 73 0a 3b 3b 3b 20 20 20 20 20 20 61 72 65 20 69 6e 63 6c | ored.functions.;;;......are.incl |
| 2aa7c0 | 75 64 65 64 20 69 6e 20 74 68 65 20 74 69 6d 65 73 20 66 6f 72 20 6d 6f 6e 69 74 6f 72 65 64 20 | uded.in.the.times.for.monitored. |
| 2aa7e0 | 66 75 6e 63 74 69 6f 6e 73 2e 0a 3b 3b 3b 20 20 20 20 20 20 6f 20 20 49 66 20 3a 69 6e 63 6c 75 | functions..;;;......o..If.:inclu |
| 2aa800 | 73 69 76 65 2c 20 74 68 65 20 70 65 72 2d 66 75 6e 63 74 69 6f 6e 20 69 6e 66 6f 72 6d 61 74 69 | sive,.the.per-function.informati |
| 2aa820 | 6f 6e 20 69 73 20 66 6f 72 20 74 68 65 20 65 6e 74 69 72 65 0a 3b 3b 3b 20 20 20 20 20 20 20 20 | on.is.for.the.entire.;;;........ |
| 2aa840 | 20 64 75 72 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 | .duration.of.the.monitored.funct |
| 2aa860 | 69 6f 6e 2c 20 69 6e 63 6c 75 64 69 6e 67 20 61 6e 79 20 63 61 6c 6c 73 20 74 6f 0a 3b 3b 3b 20 | ion,.including.any.calls.to.;;;. |
| 2aa880 | 20 20 20 20 20 20 20 20 6f 74 68 65 72 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f 6e | ........other.monitored.function |
| 2aa8a0 | 73 2e 20 49 66 20 66 75 6e 63 74 69 6f 6e 73 20 41 20 61 6e 64 20 42 20 61 72 65 20 6d 6f 6e 69 | s..If.functions.A.and.B.are.moni |
| 2aa8c0 | 74 6f 72 65 64 2c 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 61 6e 64 20 41 20 63 61 6c 6c 73 20 42 | tored,.;;;.........and.A.calls.B |
| 2aa8e0 | 2c 20 74 68 65 6e 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 65 64 20 74 69 6d 65 20 61 6e 64 20 | ,.then.the.accumulated.time.and. |
| 2aa900 | 63 6f 6e 73 69 6e 67 20 66 6f 72 20 41 20 77 69 6c 6c 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 69 | consing.for.A.will.;;;.........i |
| 2aa920 | 6e 63 6c 75 64 65 20 74 68 65 20 74 69 6d 65 20 61 6e 64 20 63 6f 6e 73 69 6e 67 20 6f 66 20 42 | nclude.the.time.and.consing.of.B |
| 2aa940 | 2e 20 20 4e 6f 74 65 3a 20 69 66 20 61 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 73 0a 3b 3b 3b | ...Note:.if.a.function.calls.;;; |
| 2aa960 | 20 20 20 20 20 20 20 20 20 69 74 73 65 6c 66 20 72 65 63 75 72 73 69 76 65 6c 79 2c 20 74 68 65 | .........itself.recursively,.the |
| 2aa980 | 20 74 69 6d 65 20 73 70 65 6e 74 20 69 6e 20 74 68 65 20 69 6e 6e 65 72 20 63 61 6c 6c 28 73 29 | .time.spent.in.the.inner.call(s) |
| 2aa9a0 | 20 6d 61 79 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 62 65 20 63 6f 75 6e 74 65 64 20 73 65 76 65 | .may.;;;.........be.counted.seve |
| 2aa9c0 | 72 61 6c 20 74 69 6d 65 73 2e 0a 3b 3b 3b 20 20 20 20 20 20 6f 20 20 49 66 20 3a 65 78 63 6c 75 | ral.times..;;;......o..If.:exclu |
| 2aa9e0 | 73 69 76 65 2c 20 74 68 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 65 78 63 6c 75 64 65 73 20 74 | sive,.the.information.excludes.t |
| 2aaa00 | 69 6d 65 20 61 74 74 72 69 62 75 74 65 64 20 74 6f 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 63 61 | ime.attributed.to.;;;.........ca |
| 2aaa20 | 6c 6c 73 20 74 6f 20 6f 74 68 65 72 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f 6e 73 | lls.to.other.monitored.functions |
| 2aaa40 | 2e 20 54 68 69 73 20 69 73 20 74 68 65 20 64 65 66 61 75 6c 74 2e 0a 3b 3b 3b 20 20 20 20 2d 20 | ..This.is.the.default..;;;....-. |
| 2aaa60 | 54 48 52 45 53 48 4f 4c 44 20 73 70 65 63 69 66 69 65 73 20 74 68 61 74 20 6f 6e 6c 79 20 66 75 | THRESHOLD.specifies.that.only.fu |
| 2aaa80 | 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 68 61 76 65 20 62 65 65 6e 20 65 78 65 63 75 74 65 64 | nctions.which.have.been.executed |
| 2aaaa0 | 0a 3b 3b 3b 20 20 20 20 20 20 6d 6f 72 65 20 74 68 61 6e 20 74 68 72 65 73 68 6f 6c 64 20 70 65 | .;;;......more.than.threshold.pe |
| 2aaac0 | 72 63 65 6e 74 20 6f 66 20 74 68 65 20 74 69 6d 65 20 77 69 6c 6c 20 62 65 20 72 65 70 6f 72 74 | rcent.of.the.time.will.be.report |
| 2aaae0 | 65 64 2e 20 44 65 66 61 75 6c 74 73 0a 3b 3b 3b 20 20 20 20 20 20 74 6f 20 31 25 2e 20 49 66 20 | ed..Defaults.;;;......to.1%..If. |
| 2aab00 | 61 20 74 68 72 65 73 68 6f 6c 64 20 6f 66 20 30 20 69 73 20 73 70 65 63 69 66 69 65 64 2c 20 61 | a.threshold.of.0.is.specified,.a |
| 2aab20 | 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 6c 69 73 74 65 64 2c 0a 3b 3b 3b 20 20 20 20 | ll.functions.are.listed,.;;;.... |
| 2aab40 | 20 20 65 76 65 6e 20 74 68 6f 73 65 20 77 69 74 68 20 30 20 6f 72 20 6e 65 67 61 74 69 76 65 20 | ..even.those.with.0.or.negative. |
| 2aab60 | 72 75 6e 6e 69 6e 67 20 74 69 6d 65 73 20 28 73 65 65 20 6e 6f 74 65 20 6f 6e 20 6f 76 65 72 68 | running.times.(see.note.on.overh |
| 2aab80 | 65 61 64 29 2e 0a 3b 3b 3b 20 20 20 20 2d 20 4b 45 59 20 73 70 65 63 69 66 69 65 73 20 74 68 61 | ead)..;;;....-.KEY.specifies.tha |
| 2aaba0 | 74 20 74 68 65 20 74 61 62 6c 65 20 62 65 20 73 6f 72 74 65 64 20 62 79 20 6f 6e 65 20 6f 66 20 | t.the.table.be.sorted.by.one.of. |
| 2aabc0 | 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 3b 3b 3b 20 20 20 20 20 20 73 6f 72 74 20 6b 65 79 73 | the.following.;;;......sort.keys |
| 2aabe0 | 3a 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 3a 66 75 6e 63 74 69 6f 6e 20 20 20 20 20 20 20 61 6c | :.;;;.........:function.......al |
| 2aac00 | 70 68 61 62 65 74 69 63 61 6c 6c 79 20 62 79 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 0a 3b 3b | phabetically.by.function.name.;; |
| 2aac20 | 3b 20 20 20 20 20 20 20 20 20 3a 70 65 72 63 65 6e 74 2d 74 69 6d 65 20 20 20 62 79 20 70 65 72 | ;.........:percent-time...by.per |
| 2aac40 | 63 65 6e 74 20 6f 66 20 74 6f 74 61 6c 20 65 78 65 63 75 74 69 6f 6e 20 74 69 6d 65 0a 3b 3b 3b | cent.of.total.execution.time.;;; |
| 2aac60 | 20 20 20 20 20 20 20 20 20 3a 70 65 72 63 65 6e 74 2d 63 6f 6e 73 20 20 20 62 79 20 70 65 72 63 | .........:percent-cons...by.perc |
| 2aac80 | 65 6e 74 20 6f 66 20 74 6f 74 61 6c 20 63 6f 6e 73 69 6e 67 0a 3b 3b 3b 20 20 20 20 20 20 20 20 | ent.of.total.consing.;;;........ |
| 2aaca0 | 20 3a 63 61 6c 6c 73 20 20 20 20 20 20 20 20 20 20 62 79 20 6e 75 6d 62 65 72 20 6f 66 20 74 69 | .:calls..........by.number.of.ti |
| 2aacc0 | 6d 65 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 77 61 73 20 63 61 6c 6c 65 64 0a 3b 3b 3b 20 | mes.the.function.was.called.;;;. |
| 2aace0 | 20 20 20 20 20 20 20 20 3a 74 69 6d 65 2d 70 65 72 2d 63 61 6c 6c 20 20 62 79 20 61 76 65 72 61 | ........:time-per-call..by.avera |
| 2aad00 | 67 65 20 65 78 65 63 75 74 69 6f 6e 20 74 69 6d 65 20 70 65 72 20 66 75 6e 63 74 69 6f 6e 0a 3b | ge.execution.time.per.function.; |
| 2aad20 | 3b 3b 20 20 20 20 20 20 20 20 20 3a 63 6f 6e 73 2d 70 65 72 2d 63 61 6c 6c 20 20 62 79 20 61 76 | ;;.........:cons-per-call..by.av |
| 2aad40 | 65 72 61 67 65 20 63 6f 6e 73 69 6e 67 20 70 65 72 20 66 75 6e 63 74 69 6f 6e 0a 3b 3b 3b 20 20 | erage.consing.per.function.;;;.. |
| 2aad60 | 20 20 20 20 20 20 20 3a 74 69 6d 65 20 20 20 20 20 20 20 20 20 20 20 73 61 6d 65 20 61 73 20 3a | .......:time...........same.as.: |
| 2aad80 | 70 65 72 63 65 6e 74 2d 74 69 6d 65 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 3a 63 6f 6e 73 20 20 | percent-time.;;;.........:cons.. |
| 2aada0 | 20 20 20 20 20 20 20 20 20 73 61 6d 65 20 61 73 20 3a 70 65 72 63 65 6e 74 2d 63 6f 6e 73 0a 3b | .........same.as.:percent-cons.; |
| 2aadc0 | 3b 3b 0a 3b 3b 3b 20 52 45 50 4f 52 54 20 26 6b 65 79 20 28 6e 61 6d 65 73 20 3a 61 6c 6c 29 20 | ;;.;;;.REPORT.&key.(names.:all). |
| 2aade0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2aae00 | 20 5b 46 75 6e 63 74 69 6f 6e 5d 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 73 | .[Function].;;;.............(nes |
| 2aae20 | 74 65 64 20 3a 65 78 63 6c 75 73 69 76 65 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 | ted.:exclusive).;;;............. |
| 2aae40 | 28 74 68 72 65 73 68 6f 6c 64 20 30 2e 30 31 29 0a 3b 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 | (threshold.0.01).;;;............ |
| 2aae60 | 20 28 73 6f 72 74 2d 6b 65 79 20 3a 70 65 72 63 65 6e 74 2d 74 69 6d 65 29 0a 3b 3b 3b 20 20 20 | .(sort-key.:percent-time).;;;... |
| 2aae80 | 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 6e 6f 2d 63 61 6c 6c 73 20 6e 69 6c 29 0a | ..........(ignore-no-calls.nil). |
| 2aaea0 | 3b 3b 3b 0a 3b 3b 3b 20 53 61 6d 65 20 61 73 20 52 45 50 4f 52 54 2d 4d 4f 4e 49 54 4f 52 49 4e | ;;;.;;;.Same.as.REPORT-MONITORIN |
| 2aaec0 | 47 20 62 75 74 20 77 65 20 75 73 65 20 61 20 6e 69 63 65 72 20 6b 65 79 77 6f 72 64 20 69 6e 74 | G.but.we.use.a.nicer.keyword.int |
| 2aaee0 | 65 72 66 61 63 65 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 44 49 53 50 4c 41 59 2d 4d 4f 4e 49 54 4f 52 49 | erface..;;;.;;;.DISPLAY-MONITORI |
| 2aaf00 | 4e 47 2d 52 45 53 55 4c 54 53 20 26 6f 70 74 69 6f 6e 61 6c 20 28 74 68 72 65 73 68 6f 6c 64 20 | NG-RESULTS.&optional.(threshold. |
| 2aaf20 | 30 2e 30 31 29 20 20 20 20 20 5b 46 75 6e 63 74 69 6f 6e 5d 0a 3b 3b 3b 20 20 20 20 20 20 20 20 | 0.01).....[Function].;;;........ |
| 2aaf40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b | ..............................(k |
| 2aaf60 | 65 79 20 3a 70 65 72 63 65 6e 74 2d 74 69 6d 65 29 0a 3b 3b 3b 20 50 72 69 6e 74 73 20 61 20 74 | ey.:percent-time).;;;.Prints.a.t |
| 2aaf80 | 61 62 6c 65 20 73 68 6f 77 69 6e 67 20 66 6f 72 20 65 61 63 68 20 6e 61 6d 65 64 20 66 75 6e 63 | able.showing.for.each.named.func |
| 2aafa0 | 74 69 6f 6e 3a 0a 3b 3b 3b 20 20 20 20 2d 20 74 68 65 20 74 6f 74 61 6c 20 43 50 55 20 74 69 6d | tion:.;;;....-.the.total.CPU.tim |
| 2aafc0 | 65 20 75 73 65 64 20 69 6e 20 74 68 61 74 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 61 6c 6c 20 | e.used.in.that.function.for.all. |
| 2aafe0 | 63 61 6c 6c 73 0a 3b 3b 3b 20 20 20 20 2d 20 74 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20 | calls.;;;....-.the.total.number. |
| 2ab000 | 6f 66 20 62 79 74 65 73 20 63 6f 6e 73 65 64 20 69 6e 20 74 68 61 74 20 66 75 6e 63 74 69 6f 6e | of.bytes.consed.in.that.function |
| 2ab020 | 20 66 6f 72 20 61 6c 6c 20 63 61 6c 6c 73 0a 3b 3b 3b 20 20 20 20 2d 20 74 68 65 20 74 6f 74 61 | .for.all.calls.;;;....-.the.tota |
| 2ab040 | 6c 20 6e 75 6d 62 65 72 20 6f 66 20 63 61 6c 6c 73 0a 3b 3b 3b 20 20 20 20 2d 20 74 68 65 20 61 | l.number.of.calls.;;;....-.the.a |
| 2ab060 | 76 65 72 61 67 65 20 61 6d 6f 75 6e 74 20 6f 66 20 43 50 55 20 74 69 6d 65 20 70 65 72 20 63 61 | verage.amount.of.CPU.time.per.ca |
| 2ab080 | 6c 6c 0a 3b 3b 3b 20 20 20 20 2d 20 74 68 65 20 61 76 65 72 61 67 65 20 61 6d 6f 75 6e 74 20 6f | ll.;;;....-.the.average.amount.o |
| 2ab0a0 | 66 20 63 6f 6e 73 69 6e 67 20 70 65 72 20 63 61 6c 6c 0a 3b 3b 3b 20 20 20 20 2d 20 74 68 65 20 | f.consing.per.call.;;;....-.the. |
| 2ab0c0 | 70 65 72 63 65 6e 74 20 6f 66 20 74 6f 74 61 6c 20 65 78 65 63 75 74 69 6f 6e 20 74 69 6d 65 20 | percent.of.total.execution.time. |
| 2ab0e0 | 73 70 65 6e 74 20 65 78 65 63 75 74 69 6e 67 20 74 68 61 74 20 66 75 6e 63 74 69 6f 6e 0a 3b 3b | spent.executing.that.function.;; |
| 2ab100 | 3b 20 20 20 20 2d 20 74 68 65 20 70 65 72 63 65 6e 74 20 6f 66 20 74 6f 74 61 6c 20 63 6f 6e 73 | ;....-.the.percent.of.total.cons |
| 2ab120 | 69 6e 67 20 73 70 65 6e 74 20 63 6f 6e 73 69 6e 67 20 69 6e 20 74 68 61 74 20 66 75 6e 63 74 69 | ing.spent.consing.in.that.functi |
| 2ab140 | 6f 6e 0a 3b 3b 3b 20 53 75 6d 6d 61 72 79 20 74 6f 74 61 6c 73 20 6f 66 20 74 68 65 20 43 50 55 | on.;;;.Summary.totals.of.the.CPU |
| 2ab160 | 20 74 69 6d 65 2c 20 63 6f 6e 73 69 6e 67 2c 20 61 6e 64 20 63 61 6c 6c 73 20 63 6f 6c 75 6d 6e | .time,.consing,.and.calls.column |
| 2ab180 | 73 20 61 72 65 20 70 72 69 6e 74 65 64 2e 0a 3b 3b 3b 20 41 6e 20 65 73 74 69 6d 61 74 65 20 6f | s.are.printed..;;;.An.estimate.o |
| 2ab1a0 | 66 20 74 68 65 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 6f 76 65 72 68 65 61 64 20 69 73 20 61 6c 73 | f.the.monitoring.overhead.is.als |
| 2ab1c0 | 6f 20 70 72 69 6e 74 65 64 2e 20 4d 61 79 20 62 65 20 72 75 6e 0a 3b 3b 3b 20 65 76 65 6e 20 61 | o.printed..May.be.run.;;;.even.a |
| 2ab1e0 | 66 74 65 72 20 75 6e 6d 6f 6e 69 74 6f 72 69 6e 67 20 61 6c 6c 20 74 68 65 20 66 75 6e 63 74 69 | fter.unmonitoring.all.the.functi |
| 2ab200 | 6f 6e 73 2c 20 74 6f 20 70 6c 61 79 20 77 69 74 68 20 74 68 65 20 64 61 74 61 2e 0a 3b 3b 3b 0a | ons,.to.play.with.the.data..;;;. |
| 2ab220 | 3b 3b 3b 20 53 41 4d 50 4c 45 20 54 41 42 4c 45 3a 0a 23 7c 0a 20 20 20 20 20 20 20 20 20 20 20 | ;;;.SAMPLE.TABLE:.#|............ |
| 2ab240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2ab260 | 20 20 20 20 43 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 25 20 20 20 20 20 | ....Cons..................%..... |
| 2ab280 | 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 65 72 20 20 20 20 20 | %.......................Per..... |
| 2ab2a0 | 20 54 6f 74 61 6c 20 20 20 54 6f 74 61 6c 0a 46 75 6e 63 74 69 6f 6e 20 20 20 20 20 20 20 20 20 | .Total...Total.Function......... |
| 2ab2c0 | 54 69 6d 65 20 20 43 6f 6e 73 20 20 43 61 6c 6c 73 20 20 53 65 63 2f 43 61 6c 6c 20 20 20 43 61 | Time..Cons..Calls..Sec/Call...Ca |
| 2ab2e0 | 6c 6c 20 20 20 20 20 54 69 6d 65 20 20 20 20 43 6f 6e 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ll.....Time....Cons.------------ |
| 2ab300 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -------------------------------- |
| 2ab320 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 46 49 4e 44 2d | --------------------------.FIND- |
| 2ab340 | 52 4f 4c 45 3a 20 20 20 20 20 20 20 30 2e 35 38 20 20 30 2e 30 30 20 20 20 20 31 33 36 20 20 30 | ROLE:.......0.58..0.00....136..0 |
| 2ab360 | 2e 30 30 33 35 32 31 20 20 20 20 20 20 30 20 20 30 2e 34 37 38 38 36 33 20 20 20 20 20 20 20 30 | .003521......0..0.478863.......0 |
| 2ab380 | 0a 47 52 4f 55 50 2d 52 4f 4c 45 3a 20 20 20 20 20 20 30 2e 33 35 20 20 30 2e 30 30 20 20 20 20 | .GROUP-ROLE:......0.35..0.00.... |
| 2ab3a0 | 33 36 35 20 20 30 2e 30 30 30 38 30 32 20 20 20 20 20 20 30 20 20 30 2e 32 39 32 37 36 30 20 20 | 365..0.000802......0..0.292760.. |
| 2ab3c0 | 20 20 20 20 20 30 0a 47 52 4f 55 50 2d 50 52 4f 4a 45 43 54 4f 52 3a 20 30 2e 30 35 20 20 30 2e | .....0.GROUP-PROJECTOR:.0.05..0. |
| 2ab3e0 | 30 30 20 20 20 20 31 30 32 20 20 30 2e 30 30 30 34 30 38 20 20 20 20 20 20 30 20 20 30 2e 30 34 | 00....102..0.000408......0..0.04 |
| 2ab400 | 31 36 34 38 20 20 20 20 20 20 20 30 0a 46 45 41 54 55 52 45 2d 50 3a 20 20 20 20 20 20 20 30 2e | 1648.......0.FEATURE-P:.......0. |
| 2ab420 | 30 32 20 20 30 2e 30 30 20 20 20 20 35 37 30 20 20 30 2e 30 30 30 30 32 38 20 20 20 20 20 20 30 | 02..0.00....570..0.000028......0 |
| 2ab440 | 20 20 30 2e 30 31 35 36 38 30 20 20 20 20 20 20 20 30 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ..0.015680.......0.------------- |
| 2ab460 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -------------------------------- |
| 2ab480 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 54 4f 54 41 4c 3a | -------------------------.TOTAL: |
| 2ab4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 37 33 20 20 20 20 | ........................1173.... |
| 2ab4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2e 38 32 38 39 35 30 20 20 20 20 20 20 20 30 0a | ...............0.828950.......0. |
| 2ab4e0 | 45 73 74 69 6d 61 74 65 64 20 74 6f 74 61 6c 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 6f 76 65 72 68 | Estimated.total.monitoring.overh |
| 2ab500 | 65 61 64 3a 20 30 2e 38 38 20 73 65 63 6f 6e 64 73 0a 7c 23 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a | ead:.0.88.seconds.|#...;;;.***** |
| 2ab520 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2ab540 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 | ***************************.;;;. |
| 2ab560 | 4d 45 54 45 52 49 4e 47 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | METERING.*********************** |
| 2ab580 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2ab5a0 | 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .;;;.*************************** |
| 2ab5c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2ab5e0 | 2a 2a 2a 2a 2a 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | *****..;;;.********************* |
| 2ab600 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 57 61 72 6e 20 70 65 6f 70 6c 65 20 75 73 69 6e | ***********.;;;.Warn.people.usin |
| 2ab620 | 67 20 74 68 65 20 77 72 6f 6e 67 20 4c 69 73 70 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | g.the.wrong.Lisp.;;;.*********** |
| 2ab640 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 23 2d 28 6f 72 20 63 6c 69 | *********************..#-(or.cli |
| 2ab660 | 73 70 20 6f 70 65 6e 6d 63 6c 20 63 6c 61 73 70 29 0a 28 77 61 72 6e 20 22 6d 65 74 65 72 69 6e | sp.openmcl.clasp).(warn."meterin |
| 2ab680 | 67 2e 6c 69 73 70 20 64 6f 65 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 20 79 6f 75 72 20 4c 69 73 | g.lisp.does.not.support.your.Lis |
| 2ab6a0 | 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 21 22 29 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a | p.implementation!")..;;;.******* |
| 2ab6c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 50 61 | *************************.;;;.Pa |
| 2ab6e0 | 63 6b 61 67 65 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b | ckages.***********************.; |
| 2ab700 | 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;;.***************************** |
| 2ab720 | 2a 2a 2a 0a 0a 3b 3b 3b 20 46 6f 72 20 43 4c 74 4c 32 20 63 6f 6d 70 61 74 69 62 6c 65 20 6c 69 | ***..;;;.For.CLtL2.compatible.li |
| 2ab740 | 73 70 73 0a 0a 28 64 65 66 70 61 63 6b 61 67 65 20 22 53 57 41 4e 4b 2d 4d 4f 4e 49 54 4f 52 22 | sps..(defpackage."SWANK-MONITOR" |
| 2ab760 | 20 28 3a 75 73 65 20 22 43 4f 4d 4d 4f 4e 2d 4c 49 53 50 22 29 0a 20 20 28 3a 65 78 70 6f 72 74 | .(:use."COMMON-LISP")...(:export |
| 2ab780 | 20 22 2a 4d 4f 4e 49 54 4f 52 45 44 2d 46 55 4e 43 54 49 4f 4e 53 2a 22 0a 09 20 20 20 22 4d 4f | ."*MONITORED-FUNCTIONS*"....."MO |
| 2ab7a0 | 4e 49 54 4f 52 22 20 22 4d 4f 4e 49 54 4f 52 2d 41 4c 4c 22 20 22 55 4e 4d 4f 4e 49 54 4f 52 22 | NITOR"."MONITOR-ALL"."UNMONITOR" |
| 2ab7c0 | 20 22 4d 4f 4e 49 54 4f 52 2d 46 4f 52 4d 22 0a 09 20 20 20 22 57 49 54 48 2d 4d 4f 4e 49 54 4f | ."MONITOR-FORM"....."WITH-MONITO |
| 2ab7e0 | 52 49 4e 47 22 0a 09 20 20 20 22 52 45 53 45 54 2d 4d 4f 4e 49 54 4f 52 49 4e 47 2d 49 4e 46 4f | RING"....."RESET-MONITORING-INFO |
| 2ab800 | 22 20 22 52 45 53 45 54 2d 41 4c 4c 2d 4d 4f 4e 49 54 4f 52 49 4e 47 22 0a 09 20 20 20 22 4d 4f | "."RESET-ALL-MONITORING"....."MO |
| 2ab820 | 4e 49 54 4f 52 45 44 22 0a 09 20 20 20 22 52 45 50 4f 52 54 2d 4d 4f 4e 49 54 4f 52 49 4e 47 22 | NITORED"....."REPORT-MONITORING" |
| 2ab840 | 0a 09 20 20 20 22 44 49 53 50 4c 41 59 2d 4d 4f 4e 49 54 4f 52 49 4e 47 2d 52 45 53 55 4c 54 53 | ....."DISPLAY-MONITORING-RESULTS |
| 2ab860 | 22 0a 09 20 20 20 22 4d 4f 4e 49 54 4f 52 49 4e 47 2d 45 4e 43 41 50 53 55 4c 41 54 45 22 20 22 | "....."MONITORING-ENCAPSULATE"." |
| 2ab880 | 4d 4f 4e 49 54 4f 52 49 4e 47 2d 55 4e 45 4e 43 41 50 53 55 4c 41 54 45 22 0a 09 20 20 20 22 52 | MONITORING-UNENCAPSULATE"....."R |
| 2ab8a0 | 45 50 4f 52 54 22 29 29 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 22 53 57 41 4e 4b 2d 4d 4f 4e 49 | EPORT")).(in-package."SWANK-MONI |
| 2ab8c0 | 54 4f 52 22 29 0a 0a 3b 3b 3b 20 57 61 72 6e 20 75 73 65 72 20 69 66 20 74 68 65 79 27 72 65 20 | TOR")..;;;.Warn.user.if.they're. |
| 2ab8e0 | 6c 6f 61 64 69 6e 67 20 74 68 65 20 73 6f 75 72 63 65 20 69 6e 73 74 65 61 64 20 6f 66 20 63 6f | loading.the.source.instead.of.co |
| 2ab900 | 6d 70 69 6c 69 6e 67 20 69 74 20 66 69 72 73 74 2e 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 65 76 | mpiling.it.first..(eval-when.(ev |
| 2ab920 | 61 6c 29 0a 20 20 20 28 77 61 72 6e 20 22 54 68 69 73 20 66 69 6c 65 20 73 68 6f 75 6c 64 20 62 | al)....(warn."This.file.should.b |
| 2ab940 | 65 20 63 6f 6d 70 69 6c 65 64 20 62 65 66 6f 72 65 20 6c 6f 61 64 69 6e 67 20 66 6f 72 20 62 65 | e.compiled.before.loading.for.be |
| 2ab960 | 73 74 20 72 65 73 75 6c 74 73 2e 22 29 29 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | st.results."))..;;;.************ |
| 2ab980 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 56 65 72 73 69 6f 6e | ********************.;;;.Version |
| 2ab9a0 | 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a | .************************.;;;.** |
| 2ab9c0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a | ******************************.. |
| 2ab9e0 | 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 2a 6d 65 74 65 72 69 6e 67 2d 76 65 72 73 69 6f 6e 2a | (defparameter.*metering-version* |
| 2aba00 | 20 22 76 32 2e 31 20 32 35 2d 4a 41 4e 2d 39 34 22 0a 20 20 22 43 75 72 72 65 6e 74 20 76 65 72 | ."v2.1.25-JAN-94"..."Current.ver |
| 2aba20 | 73 69 6f 6e 20 6e 75 6d 62 65 72 2f 64 61 74 65 20 66 6f 72 20 4d 65 74 65 72 69 6e 67 2e 22 29 | sion.number/date.for.Metering.") |
| 2aba40 | 0a 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ....;;;.************************ |
| 2aba60 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2aba80 | 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 44 65 70 65 | ********.;;;.Implementation.Depe |
| 2abaa0 | 6e 64 65 6e 74 20 44 65 66 69 6e 69 74 69 6f 6e 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ndent.Definitions.************** |
| 2abac0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | *************.;;;.************** |
| 2abae0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2abb00 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a | ******************..;;;.******** |
| 2abb20 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 54 69 6d | ************************.;;;.Tim |
| 2abb40 | 69 6e 67 20 46 75 6e 63 74 69 6f 6e 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b | ing.Functions.***************.;; |
| 2abb60 | 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;.****************************** |
| 2abb80 | 2a 2a 0a 3b 3b 3b 20 54 68 65 20 67 65 74 2d 74 69 6d 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 | **.;;;.The.get-time.function.is. |
| 2abba0 | 63 61 6c 6c 65 64 20 74 6f 20 66 69 6e 64 20 74 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20 | called.to.find.the.total.number. |
| 2abbc0 | 6f 66 20 74 69 63 6b 73 20 73 69 6e 63 65 0a 3b 3b 3b 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 | of.ticks.since.;;;.the.beginning |
| 2abbe0 | 20 6f 66 20 74 69 6d 65 2e 20 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 | .of.time..time-units-per-second. |
| 2abc00 | 61 6c 6c 6f 77 73 20 75 73 20 74 6f 20 63 6f 6e 76 65 72 74 20 75 6e 69 74 73 0a 3b 3b 3b 20 74 | allows.us.to.convert.units.;;;.t |
| 2abc20 | 6f 20 73 65 63 6f 6e 64 73 2e 0a 0a 23 2d 28 6f 72 20 63 6c 61 73 70 20 63 6c 69 73 70 20 6f 70 | o.seconds...#-(or.clasp.clisp.op |
| 2abc40 | 65 6e 6d 63 6c 29 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 63 6f 6d 70 69 6c 65 20 65 76 61 6c 29 | enmcl).(eval-when.(compile.eval) |
| 2abc60 | 0a 20 20 28 77 61 72 6e 0a 20 20 20 22 59 6f 75 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 73 75 70 | ...(warn...."You.may.want.to.sup |
| 2abc80 | 70 6c 79 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 69 66 69 63 20 67 65 74 2d | ply.implementation-specific.get- |
| 2abca0 | 74 69 6d 65 20 66 75 6e 63 74 69 6f 6e 73 2e 22 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 61 6e 74 | time.functions."))..(defconstant |
| 2abcc0 | 20 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 69 6e 74 65 72 6e 61 6c 2d | .time-units-per-second.internal- |
| 2abce0 | 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 29 0a 0a 23 2b 28 6f 72 20 63 6c | time-units-per-second)..#+(or.cl |
| 2abd00 | 61 73 70 20 6f 70 65 6e 6d 63 6c 29 0a 28 70 72 6f 67 6e 0a 20 28 64 65 66 74 79 70 65 20 74 69 | asp.openmcl).(progn..(deftype.ti |
| 2abd20 | 6d 65 2d 74 79 70 65 20 28 29 20 27 75 6e 73 69 67 6e 65 64 2d 62 79 74 65 29 0a 20 28 64 65 66 | me-type.().'unsigned-byte)..(def |
| 2abd40 | 74 79 70 65 20 63 6f 6e 73 69 6e 67 2d 74 79 70 65 20 28 29 20 27 75 6e 73 69 67 6e 65 64 2d 62 | type.consing-type.().'unsigned-b |
| 2abd60 | 79 74 65 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 67 65 74 2d 74 69 6d 65 20 28 29 0a 20 20 60 | yte))..(defmacro.get-time.()...` |
| 2abd80 | 28 74 68 65 20 74 69 6d 65 2d 74 79 70 65 20 28 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 75 6e | (the.time-type.(get-internal-run |
| 2abda0 | 2d 74 69 6d 65 29 29 29 0a 0a 3b 3b 3b 20 4e 4f 54 45 3a 20 49 6e 20 4d 61 63 69 6e 74 6f 73 68 | -time)))..;;;.NOTE:.In.Macintosh |
| 2abdc0 | 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2c 20 43 43 4c 3a 3a 47 43 54 49 4d 45 20 72 65 74 75 72 6e | .Common.Lisp,.CCL::GCTIME.return |
| 2abde0 | 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 3b 3b 3b 20 20 20 20 20 20 20 6d 69 6c 6c 69 73 | s.the.number.of.;;;.......millis |
| 2abe00 | 65 63 6f 6e 64 73 20 73 70 65 6e 74 20 64 75 72 69 6e 67 20 47 43 2e 20 57 65 20 63 6f 75 6c 64 | econds.spent.during.GC..We.could |
| 2abe20 | 20 73 75 62 74 72 61 63 74 20 74 68 69 73 20 66 72 6f 6d 0a 3b 3b 3b 20 20 20 20 20 20 20 74 68 | .subtract.this.from.;;;.......th |
| 2abe40 | 65 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65 64 20 62 79 20 67 65 74 2d 69 6e 74 65 72 6e 61 6c | e.value.returned.by.get-internal |
| 2abe60 | 2d 72 75 6e 2d 74 69 6d 65 20 74 6f 20 65 6c 69 6d 69 6e 61 74 65 0a 3b 3b 3b 20 20 20 20 20 20 | -run-time.to.eliminate.;;;...... |
| 2abe80 | 20 74 68 65 20 65 66 66 65 63 74 20 6f 66 20 47 43 20 6f 6e 20 74 68 65 20 74 69 6d 69 6e 67 20 | .the.effect.of.GC.on.the.timing. |
| 2abea0 | 76 61 6c 75 65 73 2c 20 62 75 74 20 77 65 20 70 72 65 66 65 72 20 74 6f 20 6c 65 74 0a 3b 3b 3b | values,.but.we.prefer.to.let.;;; |
| 2abec0 | 20 20 20 20 20 20 20 74 68 65 20 75 73 65 72 20 72 75 6e 20 77 69 74 68 6f 75 74 20 47 43 20 6f | .......the.user.run.without.GC.o |
| 2abee0 | 6e 2e 20 49 66 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 69 73 20 73 6f 20 62 69 67 20 | n..If.the.application.is.so.big. |
| 2abf00 | 74 68 61 74 0a 3b 3b 3b 20 20 20 20 20 20 20 69 74 20 72 65 71 75 69 72 65 73 20 47 43 20 74 6f | that.;;;.......it.requires.GC.to |
| 2abf20 | 20 63 6f 6d 70 6c 65 74 65 2c 20 74 68 65 6e 20 74 68 65 20 47 43 20 74 69 6d 65 73 20 61 72 65 | .complete,.then.the.GC.times.are |
| 2abf40 | 20 70 61 72 74 20 6f 66 20 74 68 65 0a 3b 3b 3b 20 20 20 20 20 20 20 63 6f 73 74 20 6f 66 20 64 | .part.of.the.;;;.......cost.of.d |
| 2abf60 | 6f 69 6e 67 20 62 75 73 69 6e 65 73 73 2c 20 61 6e 64 20 77 69 6c 6c 20 61 76 65 72 61 67 65 20 | oing.business,.and.will.average. |
| 2abf80 | 6f 75 74 20 69 6e 20 74 68 65 20 6c 6f 6e 67 20 72 75 6e 2e 0a 3b 3b 3b 20 20 20 20 20 20 20 49 | out.in.the.long.run..;;;.......I |
| 2abfa0 | 66 20 69 74 20 73 65 65 6d 73 20 72 65 61 6c 6c 79 20 69 6d 70 6f 72 74 61 6e 74 20 74 6f 20 61 | f.it.seems.really.important.to.a |
| 2abfc0 | 20 75 73 65 72 20 74 68 61 74 20 47 43 20 74 69 6d 65 73 20 6e 6f 74 20 62 65 0a 3b 3b 3b 20 20 | .user.that.GC.times.not.be.;;;.. |
| 2abfe0 | 20 20 20 20 20 63 6f 75 6e 74 65 64 2c 20 74 68 65 6e 20 75 6e 63 6f 6d 6d 65 6e 74 20 74 68 65 | .....counted,.then.uncomment.the |
| 2ac000 | 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 72 65 65 20 6c 69 6e 65 73 20 61 6e 64 20 72 65 61 64 2d | .following.three.lines.and.read- |
| 2ac020 | 74 69 6d 65 0a 3b 3b 3b 20 20 20 20 20 20 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 69 7a 65 20 74 68 | time.;;;.......conditionalize.th |
| 2ac040 | 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 67 65 74 2d 74 69 6d 65 20 61 62 6f 76 65 20 77 | e.definition.of.get-time.above.w |
| 2ac060 | 69 74 68 20 23 2d 3a 6f 70 65 6e 6d 63 6c 2e 0a 3b 23 2b 6f 70 65 6e 6d 63 6c 0a 3b 28 64 65 66 | ith.#-:openmcl..;#+openmcl.;(def |
| 2ac080 | 6d 61 63 72 6f 20 67 65 74 2d 74 69 6d 65 20 28 29 0a 3b 20 20 60 28 74 68 65 20 74 69 6d 65 2d | macro.get-time.().;..`(the.time- |
| 2ac0a0 | 74 79 70 65 20 28 2d 20 28 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 75 6e 2d 74 69 6d 65 29 20 | type.(-.(get-internal-run-time). |
| 2ac0c0 | 28 63 63 6c 3a 67 63 74 69 6d 65 29 29 29 29 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | (ccl:gctime))))..;;;.*********** |
| 2ac0e0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 43 6f 6e 73 69 6e | *********************.;;;.Consin |
| 2ac100 | 67 20 46 75 6e 63 74 69 6f 6e 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a | g.Functions.**************.;;;.* |
| 2ac120 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a | *******************************. |
| 2ac140 | 3b 3b 3b 20 54 68 65 20 67 65 74 2d 63 6f 6e 73 20 6d 61 63 72 6f 20 69 73 20 63 61 6c 6c 65 64 | ;;;.The.get-cons.macro.is.called |
| 2ac160 | 20 74 6f 20 66 69 6e 64 20 74 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 | .to.find.the.total.number.of.byt |
| 2ac180 | 65 73 0a 3b 3b 3b 20 63 6f 6e 73 65 64 20 73 69 6e 63 65 20 74 68 65 20 62 65 67 69 6e 6e 69 6e | es.;;;.consed.since.the.beginnin |
| 2ac1a0 | 67 20 6f 66 20 74 69 6d 65 2e 0a 0a 23 2b 63 6c 69 73 70 0a 28 64 65 66 75 6e 20 67 65 74 2d 63 | g.of.time...#+clisp.(defun.get-c |
| 2ac1c0 | 6f 6e 73 20 28 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 72 | ons.()...(multiple-value-bind.(r |
| 2ac1e0 | 65 61 6c 31 20 72 65 61 6c 32 20 72 75 6e 31 20 72 75 6e 32 20 67 63 31 20 67 63 32 20 73 70 61 | eal1.real2.run1.run2.gc1.gc2.spa |
| 2ac200 | 63 65 31 20 73 70 61 63 65 32 20 67 63 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 28 73 79 73 3a 3a | ce1.space2.gccount).......(sys:: |
| 2ac220 | 25 25 74 69 6d 65 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 72 65 61 | %%time).....(declare.(ignore.rea |
| 2ac240 | 6c 31 20 72 65 61 6c 32 20 72 75 6e 31 20 72 75 6e 32 20 67 63 31 20 67 63 32 20 67 63 63 6f 75 | l1.real2.run1.run2.gc1.gc2.gccou |
| 2ac260 | 6e 74 29 29 0a 20 20 20 20 28 64 70 62 20 73 70 61 63 65 31 20 28 62 79 74 65 20 32 34 20 32 34 | nt)).....(dpb.space1.(byte.24.24 |
| 2ac280 | 29 20 73 70 61 63 65 32 29 29 29 0a 0a 3b 3b 3b 20 4d 61 63 69 6e 74 6f 73 68 20 43 6f 6d 6d 6f | ).space2)))..;;;.Macintosh.Commo |
| 2ac2a0 | 6e 20 4c 69 73 70 20 32 2e 30 0a 3b 3b 3b 20 4e 6f 74 65 20 74 68 61 74 20 74 68 69 73 20 69 6e | n.Lisp.2.0.;;;.Note.that.this.in |
| 2ac2c0 | 63 6c 75 64 65 73 20 62 79 74 65 73 20 74 68 61 74 20 77 65 72 65 20 61 6c 6c 6f 63 61 74 65 64 | cludes.bytes.that.were.allocated |
| 2ac2e0 | 20 64 75 72 69 6e 67 20 47 43 2e 0a 3b 3b 3b 20 57 65 20 63 6f 75 6c 64 20 73 75 62 74 72 61 63 | .during.GC..;;;.We.could.subtrac |
| 2ac300 | 74 20 74 68 69 73 20 6f 75 74 20 62 79 20 61 64 76 69 73 69 6e 67 20 47 43 20 6c 69 6b 65 20 77 | t.this.out.by.advising.GC.like.w |
| 2ac320 | 65 20 64 69 64 20 75 6e 64 65 72 0a 3b 3b 3b 20 4d 43 4c 20 31 2e 33 2e 32 2c 20 62 75 74 20 49 | e.did.under.;;;.MCL.1.3.2,.but.I |
| 2ac340 | 27 64 20 72 61 74 68 65 72 20 75 73 65 72 73 20 72 61 6e 20 77 69 74 68 6f 75 74 20 47 43 2e 20 | 'd.rather.users.ran.without.GC.. |
| 2ac360 | 49 66 20 74 68 65 79 20 63 61 6e 27 74 0a 3b 3b 3b 20 72 75 6e 20 77 69 74 68 6f 75 74 20 47 43 | If.they.can't.;;;.run.without.GC |
| 2ac380 | 2c 20 74 68 65 6e 20 74 68 65 20 62 79 74 65 73 20 63 6f 6e 73 65 64 20 64 75 72 69 6e 67 20 47 | ,.then.the.bytes.consed.during.G |
| 2ac3a0 | 43 20 61 72 65 20 61 20 63 6f 73 74 20 6f 66 0a 3b 3b 3b 20 72 75 6e 6e 69 6e 67 20 74 68 65 69 | C.are.a.cost.of.;;;.running.thei |
| 2ac3c0 | 72 20 70 72 6f 67 72 61 6d 2e 20 4d 65 74 65 72 69 6e 67 20 74 68 65 20 63 6f 64 65 20 61 20 66 | r.program..Metering.the.code.a.f |
| 2ac3e0 | 65 77 20 74 69 6d 65 73 20 77 69 6c 6c 0a 3b 3b 3b 20 61 76 6f 69 64 20 74 68 65 20 63 6f 6e 73 | ew.times.will.;;;.avoid.the.cons |
| 2ac400 | 69 6e 67 20 76 61 6c 75 65 73 20 62 65 69 6e 67 20 74 6f 6f 20 6c 6f 70 73 69 64 65 64 2e 20 49 | ing.values.being.too.lopsided..I |
| 2ac420 | 66 20 61 20 75 73 65 72 20 72 65 61 6c 6c 79 20 72 65 61 6c 6c 79 0a 3b 3b 3b 20 77 61 6e 74 73 | f.a.user.really.really.;;;.wants |
| 2ac440 | 20 74 6f 20 73 75 62 74 72 61 63 74 20 6f 75 74 20 74 68 65 20 63 6f 6e 73 69 6e 67 20 64 75 72 | .to.subtract.out.the.consing.dur |
| 2ac460 | 69 6e 67 20 47 43 2c 20 72 65 70 6c 61 63 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 3b 3b | ing.GC,.replace.the.following.;; |
| 2ac480 | 3b 20 74 77 6f 20 6c 69 6e 65 73 20 77 69 74 68 20 74 68 65 20 63 6f 6d 6d 65 6e 74 65 64 20 6f | ;.two.lines.with.the.commented.o |
| 2ac4a0 | 75 74 20 63 6f 64 65 2e 0a 23 2b 6f 70 65 6e 6d 63 6c 0a 28 64 65 66 6d 61 63 72 6f 20 67 65 74 | ut.code..#+openmcl.(defmacro.get |
| 2ac4c0 | 2d 63 6f 6e 73 20 28 29 20 60 28 74 68 65 20 63 6f 6e 73 69 6e 67 2d 74 79 70 65 20 28 63 63 6c | -cons.().`(the.consing-type.(ccl |
| 2ac4e0 | 3a 3a 74 6f 74 61 6c 2d 62 79 74 65 73 2d 61 6c 6c 6f 63 61 74 65 64 29 29 29 0a 0a 23 2b 63 6c | ::total-bytes-allocated)))..#+cl |
| 2ac500 | 61 73 70 0a 28 64 65 66 6d 61 63 72 6f 20 67 65 74 2d 63 6f 6e 73 20 28 29 0a 20 20 60 28 74 68 | asp.(defmacro.get-cons.()...`(th |
| 2ac520 | 65 20 63 6f 6e 73 69 6e 67 2d 74 79 70 65 20 28 67 63 74 6f 6f 6c 73 3a 3a 62 79 74 65 73 2d 61 | e.consing-type.(gctools::bytes-a |
| 2ac540 | 6c 6c 6f 63 61 74 65 64 29 29 29 0a 0a 23 2d 28 6f 72 20 63 6c 61 73 70 20 63 6c 69 73 70 20 6f | llocated)))..#-(or.clasp.clisp.o |
| 2ac560 | 70 65 6e 6d 63 6c 29 0a 28 70 72 6f 67 6e 0a 20 20 28 65 76 61 6c 2d 77 68 65 6e 20 28 63 6f 6d | penmcl).(progn...(eval-when.(com |
| 2ac580 | 70 69 6c 65 20 65 76 61 6c 29 0a 20 20 20 20 28 77 61 72 6e 20 22 4e 6f 20 63 6f 6e 73 69 6e 67 | pile.eval).....(warn."No.consing |
| 2ac5a0 | 20 77 69 6c 6c 20 62 65 20 72 65 70 6f 72 74 65 64 20 75 6e 6c 65 73 73 20 61 20 67 65 74 2d 63 | .will.be.reported.unless.a.get-c |
| 2ac5c0 | 6f 6e 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 7e 0a 20 20 20 20 20 20 20 20 20 20 20 64 65 66 | ons.function.is.~............def |
| 2ac5e0 | 69 6e 65 64 2e 22 29 29 0a 0a 20 20 28 64 65 66 6d 61 63 72 6f 20 67 65 74 2d 63 6f 6e 73 20 28 | ined."))....(defmacro.get-cons.( |
| 2ac600 | 29 20 27 28 74 68 65 20 63 6f 6e 73 69 6e 67 2d 74 79 70 65 20 30 29 29 29 0a 0a 3b 3b 20 61 63 | ).'(the.consing-type.0)))..;;.ac |
| 2ac620 | 74 75 61 6c 6c 79 2c 20 6e 65 69 74 68 65 72 20 60 67 65 74 2d 63 6f 6e 73 27 20 6e 6f 72 20 60 | tually,.neither.`get-cons'.nor.` |
| 2ac640 | 67 65 74 2d 74 69 6d 65 27 20 61 72 65 20 75 73 65 64 20 61 73 20 69 73 2c 0a 3b 3b 20 62 75 74 | get-time'.are.used.as.is,.;;.but |
| 2ac660 | 20 6f 6e 6c 79 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 61 63 72 6f 20 60 77 69 | .only.in.the.following.macro.`wi |
| 2ac680 | 74 68 2d 74 69 6d 65 2f 63 6f 6e 73 27 0a 23 2d 3a 63 6c 69 73 70 0a 28 64 65 66 6d 61 63 72 6f | th-time/cons'.#-:clisp.(defmacro |
| 2ac6a0 | 20 77 69 74 68 2d 74 69 6d 65 2f 63 6f 6e 73 20 28 28 64 65 6c 74 61 2d 74 69 6d 65 20 64 65 6c | .with-time/cons.((delta-time.del |
| 2ac6c0 | 74 61 2d 63 6f 6e 73 29 20 66 6f 72 6d 20 26 62 6f 64 79 20 70 6f 73 74 2d 70 72 6f 63 65 73 73 | ta-cons).form.&body.post-process |
| 2ac6e0 | 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 2d 63 6f 6e 73 20 28 67 65 6e 73 79 6d 20 22 53 | )...(let.((start-cons.(gensym."S |
| 2ac700 | 54 41 52 54 2d 43 4f 4e 53 2d 22 29 29 0a 20 20 20 20 20 20 20 20 28 73 74 61 72 74 2d 74 69 6d | TART-CONS-")).........(start-tim |
| 2ac720 | 65 20 28 67 65 6e 73 79 6d 20 22 53 54 41 52 54 2d 54 49 4d 45 2d 22 29 29 29 0a 20 20 20 20 60 | e.(gensym."START-TIME-"))).....` |
| 2ac740 | 28 6c 65 74 20 28 28 2c 73 74 61 72 74 2d 74 69 6d 65 20 28 67 65 74 2d 74 69 6d 65 29 29 20 28 | (let.((,start-time.(get-time)).( |
| 2ac760 | 2c 73 74 61 72 74 2d 63 6f 6e 73 20 28 67 65 74 2d 63 6f 6e 73 29 29 29 0a 20 20 20 20 20 20 20 | ,start-cons.(get-cons)))........ |
| 2ac780 | 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 74 69 6d 65 2d 74 79 70 65 20 2c 73 74 61 72 74 2d | (declare.(type.time-type.,start- |
| 2ac7a0 | 74 69 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 20 63 6f 6e 73 | time).................(type.cons |
| 2ac7c0 | 69 6e 67 2d 74 79 70 65 20 2c 73 74 61 72 74 2d 63 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 28 6d | ing-type.,start-cons))........(m |
| 2ac7e0 | 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 70 72 6f 67 31 20 2c 66 6f 72 6d 0a 20 20 20 20 20 20 | ultiple-value-prog1.,form....... |
| 2ac800 | 20 20 20 28 6c 65 74 20 28 28 2c 64 65 6c 74 61 2d 74 69 6d 65 20 28 2d 20 28 67 65 74 2d 74 69 | ...(let.((,delta-time.(-.(get-ti |
| 2ac820 | 6d 65 29 20 2c 73 74 61 72 74 2d 74 69 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me).,start-time))............... |
| 2ac840 | 20 28 2c 64 65 6c 74 61 2d 63 6f 6e 73 20 28 2d 20 28 67 65 74 2d 63 6f 6e 73 29 20 2c 73 74 61 | .(,delta-cons.(-.(get-cons).,sta |
| 2ac860 | 72 74 2d 63 6f 6e 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 2c 40 70 6f 73 74 2d 70 72 6f | rt-cons)))............,@post-pro |
| 2ac880 | 63 65 73 73 29 29 29 29 29 0a 0a 23 2b 63 6c 69 73 70 0a 28 70 72 6f 67 6e 0a 20 20 28 64 65 66 | cess)))))..#+clisp.(progn...(def |
| 2ac8a0 | 6d 61 63 72 6f 20 64 65 6c 74 61 34 20 28 6e 76 31 20 6e 76 32 20 6f 76 31 20 6f 76 32 20 62 79 | macro.delta4.(nv1.nv2.ov1.ov2.by |
| 2ac8c0 | 29 0a 20 20 20 20 60 28 2d 20 28 64 70 62 20 28 2d 20 2c 6e 76 31 20 2c 6f 76 31 29 20 28 62 79 | ).....`(-.(dpb.(-.,nv1.,ov1).(by |
| 2ac8e0 | 74 65 20 2c 62 79 20 2c 62 79 29 20 2c 6e 76 32 29 20 2c 6f 76 32 29 29 0a 0a 20 20 28 6c 65 74 | te.,by.,by).,nv2).,ov2))....(let |
| 2ac900 | 20 28 28 64 65 6c 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 44 45 4c 54 41 34 22 20 22 53 59 | .((del.(find-symbol."DELTA4"."SY |
| 2ac920 | 53 22 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 64 65 6c 20 28 73 65 74 66 20 28 66 64 65 66 69 | S"))).....(when.del.(setf.(fdefi |
| 2ac940 | 6e 69 74 69 6f 6e 20 27 64 65 6c 74 61 34 29 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 64 65 6c | nition.'delta4).(fdefinition.del |
| 2ac960 | 29 29 29 29 0a 0a 20 20 28 69 66 20 28 3c 20 69 6e 74 65 72 6e 61 6c 2d 74 69 6d 65 2d 75 6e 69 | ))))....(if.(<.internal-time-uni |
| 2ac980 | 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 31 30 30 30 30 30 30 29 0a 20 20 20 20 20 20 3b 3b 20 | ts-per-second.1000000).......;;. |
| 2ac9a0 | 54 49 4d 45 5f 31 3a 20 41 4d 49 47 41 2c 20 4f 53 2f 32 2c 20 55 4e 49 58 5f 54 49 4d 45 53 0a | TIME_1:.AMIGA,.OS/2,.UNIX_TIMES. |
| 2ac9c0 | 20 20 20 20 20 20 28 64 65 66 6d 61 63 72 6f 20 64 65 6c 74 61 34 2d 74 69 6d 65 20 28 6e 65 77 | ......(defmacro.delta4-time.(new |
| 2ac9e0 | 2d 74 69 6d 65 31 20 6e 65 77 2d 74 69 6d 65 32 20 6f 6c 64 2d 74 69 6d 65 31 20 6f 6c 64 2d 74 | -time1.new-time2.old-time1.old-t |
| 2aca00 | 69 6d 65 32 29 0a 20 20 20 20 20 20 20 20 60 28 64 65 6c 74 61 34 20 2c 6e 65 77 2d 74 69 6d 65 | ime2).........`(delta4.,new-time |
| 2aca20 | 31 20 2c 6e 65 77 2d 74 69 6d 65 32 20 2c 6f 6c 64 2d 74 69 6d 65 31 20 2c 6f 6c 64 2d 74 69 6d | 1.,new-time2.,old-time1.,old-tim |
| 2aca40 | 65 32 20 31 36 29 29 0a 20 20 20 20 20 20 3b 3b 20 54 49 4d 45 5f 32 3a 20 6f 74 68 65 72 20 55 | e2.16)).......;;.TIME_2:.other.U |
| 2aca60 | 4e 49 58 2c 20 57 49 4e 33 32 0a 20 20 20 20 20 20 28 64 65 66 6d 61 63 72 6f 20 64 65 6c 74 61 | NIX,.WIN32.......(defmacro.delta |
| 2aca80 | 34 2d 74 69 6d 65 20 28 6e 65 77 2d 74 69 6d 65 31 20 6e 65 77 2d 74 69 6d 65 32 20 6f 6c 64 2d | 4-time.(new-time1.new-time2.old- |
| 2acaa0 | 74 69 6d 65 31 20 6f 6c 64 2d 74 69 6d 65 32 29 0a 20 20 20 20 20 20 20 20 60 28 2b 20 28 2a 20 | time1.old-time2).........`(+.(*. |
| 2acac0 | 28 2d 20 2c 6e 65 77 2d 74 69 6d 65 31 20 2c 6f 6c 64 2d 74 69 6d 65 31 29 20 69 6e 74 65 72 6e | (-.,new-time1.,old-time1).intern |
| 2acae0 | 61 6c 2d 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 29 0a 20 20 20 20 20 20 | al-time-units-per-second)....... |
| 2acb00 | 20 20 20 20 20 20 28 2d 20 2c 6e 65 77 2d 74 69 6d 65 32 20 2c 6f 6c 64 2d 74 69 6d 65 32 29 29 | ......(-.,new-time2.,old-time2)) |
| 2acb20 | 29 29 0a 0a 20 20 28 64 65 66 6d 61 63 72 6f 20 64 65 6c 74 61 34 2d 63 6f 6e 73 20 28 6e 65 77 | ))....(defmacro.delta4-cons.(new |
| 2acb40 | 2d 63 6f 6e 73 31 20 6e 65 77 2d 63 6f 6e 73 32 20 6f 6c 64 2d 63 6f 6e 73 31 20 6f 6c 64 2d 63 | -cons1.new-cons2.old-cons1.old-c |
| 2acb60 | 6f 6e 73 32 29 0a 20 20 20 20 60 28 64 65 6c 74 61 34 20 2c 6e 65 77 2d 63 6f 6e 73 31 20 2c 6e | ons2).....`(delta4.,new-cons1.,n |
| 2acb80 | 65 77 2d 63 6f 6e 73 32 20 2c 6f 6c 64 2d 63 6f 6e 73 31 20 2c 6f 6c 64 2d 63 6f 6e 73 32 20 32 | ew-cons2.,old-cons1.,old-cons2.2 |
| 2acba0 | 34 29 29 0a 0a 20 20 3b 3b 20 61 76 6f 69 64 20 63 6f 6e 73 69 6e 67 3a 20 77 68 65 6e 20 74 68 | 4))....;;.avoid.consing:.when.th |
| 2acbc0 | 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 6f 6e 73 65 73 20 61 20 6c 6f 74 2c 0a 20 20 3b 3b | e.application.conses.a.lot,...;; |
| 2acbe0 | 20 67 65 74 2d 63 6f 6e 73 20 6d 61 79 20 72 65 74 75 72 6e 20 61 20 62 69 67 6e 75 6d 2c 20 73 | .get-cons.may.return.a.bignum,.s |
| 2acc00 | 6f 20 77 65 20 72 65 61 6c 6c 79 20 73 68 6f 75 6c 64 20 6e 6f 74 20 75 73 65 20 69 74 2e 0a 20 | o.we.really.should.not.use.it... |
| 2acc20 | 20 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 74 69 6d 65 2f 63 6f 6e 73 20 28 28 64 65 6c 74 | .(defmacro.with-time/cons.((delt |
| 2acc40 | 61 2d 74 69 6d 65 20 64 65 6c 74 61 2d 63 6f 6e 73 29 20 66 6f 72 6d 20 26 62 6f 64 79 20 70 6f | a-time.delta-cons).form.&body.po |
| 2acc60 | 73 74 2d 70 72 6f 63 65 73 73 29 0a 20 20 20 20 28 6c 65 74 20 28 28 62 65 67 2d 63 6f 6e 73 31 | st-process).....(let.((beg-cons1 |
| 2acc80 | 20 28 67 65 6e 73 79 6d 20 22 42 45 47 2d 43 4f 4e 53 31 2d 22 29 29 20 28 65 6e 64 2d 63 6f 6e | .(gensym."BEG-CONS1-")).(end-con |
| 2acca0 | 73 31 20 28 67 65 6e 73 79 6d 20 22 45 4e 44 2d 43 4f 4e 53 31 2d 22 29 29 0a 20 20 20 20 20 20 | s1.(gensym."END-CONS1-"))....... |
| 2accc0 | 20 20 20 20 28 62 65 67 2d 63 6f 6e 73 32 20 28 67 65 6e 73 79 6d 20 22 42 45 47 2d 43 4f 4e 53 | ....(beg-cons2.(gensym."BEG-CONS |
| 2acce0 | 32 2d 22 29 29 20 28 65 6e 64 2d 63 6f 6e 73 32 20 28 67 65 6e 73 79 6d 20 22 45 4e 44 2d 43 4f | 2-")).(end-cons2.(gensym."END-CO |
| 2acd00 | 4e 53 32 2d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 62 65 67 2d 74 69 6d 65 31 20 28 67 65 | NS2-"))...........(beg-time1.(ge |
| 2acd20 | 6e 73 79 6d 20 22 42 45 47 2d 54 49 4d 45 31 2d 22 29 29 20 28 65 6e 64 2d 74 69 6d 65 31 20 28 | nsym."BEG-TIME1-")).(end-time1.( |
| 2acd40 | 67 65 6e 73 79 6d 20 22 45 4e 44 2d 54 49 4d 45 31 2d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 | gensym."END-TIME1-"))........... |
| 2acd60 | 28 62 65 67 2d 74 69 6d 65 32 20 28 67 65 6e 73 79 6d 20 22 42 45 47 2d 54 49 4d 45 32 2d 22 29 | (beg-time2.(gensym."BEG-TIME2-") |
| 2acd80 | 29 20 28 65 6e 64 2d 74 69 6d 65 32 20 28 67 65 6e 73 79 6d 20 22 45 4e 44 2d 54 49 4d 45 32 2d | ).(end-time2.(gensym."END-TIME2- |
| 2acda0 | 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 31 20 28 67 65 6e 73 79 6d 29 29 20 28 72 65 | "))...........(re1.(gensym)).(re |
| 2acdc0 | 32 20 28 67 65 6e 73 79 6d 29 29 20 28 67 63 31 20 28 67 65 6e 73 79 6d 29 29 20 28 67 63 32 20 | 2.(gensym)).(gc1.(gensym)).(gc2. |
| 2acde0 | 28 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 20 20 60 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | (gensym))).......`(multiple-valu |
| 2ace00 | 65 2d 62 69 6e 64 20 28 2c 72 65 31 20 2c 72 65 32 20 2c 62 65 67 2d 74 69 6d 65 31 20 2c 62 65 | e-bind.(,re1.,re2.,beg-time1.,be |
| 2ace20 | 67 2d 74 69 6d 65 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g-time2......................... |
| 2ace40 | 20 20 20 20 20 20 20 20 20 20 2c 67 63 31 20 2c 67 63 32 20 2c 62 65 67 2d 63 6f 6e 73 31 20 2c | ..........,gc1.,gc2.,beg-cons1., |
| 2ace60 | 62 65 67 2d 63 6f 6e 73 32 29 0a 09 20 20 20 28 73 79 73 3a 3a 25 25 74 69 6d 65 29 0a 20 20 20 | beg-cons2).....(sys::%%time).... |
| 2ace80 | 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 2c 72 65 31 20 2c 72 65 32 | ......(declare.(ignore.,re1.,re2 |
| 2acea0 | 20 2c 67 63 31 20 2c 67 63 32 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d | .,gc1.,gc2))..........(multiple- |
| 2acec0 | 76 61 6c 75 65 2d 70 72 6f 67 31 20 2c 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 | value-prog1.,form............(mu |
| 2acee0 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 2c 72 65 31 20 2c 72 65 32 20 2c 65 6e | ltiple-value-bind.(,re1.,re2.,en |
| 2acf00 | 64 2d 74 69 6d 65 31 20 2c 65 6e 64 2d 74 69 6d 65 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-time1.,end-time2.............. |
| 2acf20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 67 63 31 20 2c 67 | .........................,gc1.,g |
| 2acf40 | 63 32 20 2c 65 6e 64 2d 63 6f 6e 73 31 20 2c 65 6e 64 2d 63 6f 6e 73 32 29 0a 09 20 20 20 20 20 | c2.,end-cons1.,end-cons2)....... |
| 2acf60 | 20 20 28 73 79 73 3a 3a 25 25 74 69 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 | ..(sys::%%time)..............(de |
| 2acf80 | 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 2c 72 65 31 20 2c 72 65 32 20 2c 67 63 31 20 2c 67 63 | clare.(ignore.,re1.,re2.,gc1.,gc |
| 2acfa0 | 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2c 64 65 6c 74 61 2d 74 | 2))..............(let.((,delta-t |
| 2acfc0 | 69 6d 65 20 28 64 65 6c 74 61 34 2d 74 69 6d 65 20 2c 65 6e 64 2d 74 69 6d 65 31 20 2c 65 6e 64 | ime.(delta4-time.,end-time1.,end |
| 2acfe0 | 2d 74 69 6d 65 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -time2.......................... |
| 2ad000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 62 65 67 2d 74 69 6d 65 31 20 2c | ....................,beg-time1., |
| 2ad020 | 62 65 67 2d 74 69 6d 65 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | beg-time2))....................( |
| 2ad040 | 2c 64 65 6c 74 61 2d 63 6f 6e 73 20 28 64 65 6c 74 61 34 2d 63 6f 6e 73 20 2c 65 6e 64 2d 63 6f | ,delta-cons.(delta4-cons.,end-co |
| 2ad060 | 6e 73 31 20 2c 65 6e 64 2d 63 6f 6e 73 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ns1.,end-cons2.................. |
| 2ad080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 62 65 67 | ............................,beg |
| 2ad0a0 | 2d 63 6f 6e 73 31 20 2c 62 65 67 2d 63 6f 6e 73 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -cons1.,beg-cons2)))............ |
| 2ad0c0 | 20 20 20 20 2c 40 70 6f 73 74 2d 70 72 6f 63 65 73 73 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 20 2a | ....,@post-process)))))))..;;;.* |
| 2ad0e0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a | *******************************. |
| 2ad100 | 3b 3b 3b 20 52 65 71 75 69 72 65 64 20 41 72 67 75 6d 65 6e 74 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;;;.Required.Arguments.********* |
| 2ad120 | 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ****.;;;.*********************** |
| 2ad140 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 0a 3b 3b 3b 20 52 65 71 75 69 72 65 64 20 28 46 69 78 65 | *********.;;;.;;;.Required.(Fixe |
| 2ad160 | 64 29 20 76 73 20 4f 70 74 69 6f 6e 61 6c 20 41 72 67 73 0a 3b 3b 3b 0a 3b 3b 3b 20 54 6f 20 61 | d).vs.Optional.Args.;;;.;;;.To.a |
| 2ad180 | 76 6f 69 64 20 75 6e 6e 65 63 65 73 73 61 72 79 20 63 6f 6e 73 69 6e 67 20 69 6e 20 74 68 65 20 | void.unnecessary.consing.in.the. |
| 2ad1a0 | 22 65 6e 63 61 70 73 75 6c 61 74 69 6f 6e 22 20 63 6f 64 65 2c 20 77 65 20 66 69 6e 64 20 6f 75 | "encapsulation".code,.we.find.ou |
| 2ad1c0 | 74 20 74 68 65 0a 3b 3b 3b 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 71 75 69 72 65 64 20 61 72 67 | t.the.;;;.number.of.required.arg |
| 2ad1e0 | 75 6d 65 6e 74 73 2c 20 61 6e 64 20 75 73 65 20 26 72 65 73 74 20 74 6f 20 63 61 70 74 75 72 65 | uments,.and.use.&rest.to.capture |
| 2ad200 | 20 6f 6e 6c 79 20 6e 6f 6e 2d 72 65 71 75 69 72 65 64 0a 3b 3b 3b 20 61 72 67 75 6d 65 6e 74 73 | .only.non-required.;;;.arguments |
| 2ad220 | 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 52 65 71 75 69 72 65 64 2d 41 72 67 75 6d 65 6e | ...The.function.Required-Argumen |
| 2ad240 | 74 73 20 72 65 74 75 72 6e 73 20 74 77 6f 20 76 61 6c 75 65 73 3a 20 74 68 65 20 66 69 72 73 74 | ts.returns.two.values:.the.first |
| 2ad260 | 0a 3b 3b 3b 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 71 75 69 72 65 64 20 61 | .;;;.is.the.number.of.required.a |
| 2ad280 | 72 67 75 6d 65 6e 74 73 2c 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 69 73 20 54 20 69 66 | rguments,.and.the.second.is.T.if |
| 2ad2a0 | 66 20 74 68 65 72 65 20 61 72 65 20 61 6e 79 0a 3b 3b 3b 20 6e 6f 6e 2d 72 65 71 75 69 72 65 64 | f.there.are.any.;;;.non-required |
| 2ad2c0 | 20 61 72 67 75 6d 65 6e 74 73 20 28 65 2e 67 2e 20 26 6f 70 74 69 6f 6e 61 6c 2c 20 26 72 65 73 | .arguments.(e.g..&optional,.&res |
| 2ad2e0 | 74 2c 20 26 6b 65 79 29 2e 0a 0a 3b 3b 3b 20 4c 75 63 69 64 2c 20 41 6c 6c 65 67 72 6f 2c 20 61 | t,.&key)...;;;.Lucid,.Allegro,.a |
| 2ad300 | 6e 64 20 4d 61 63 69 6e 74 6f 73 68 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 0a 23 2b 6f 70 65 6e 6d | nd.Macintosh.Common.Lisp.#+openm |
| 2ad320 | 63 6c 0a 28 64 65 66 75 6e 20 72 65 71 75 69 72 65 64 2d 61 72 67 75 6d 65 6e 74 73 20 28 6e 61 | cl.(defun.required-arguments.(na |
| 2ad340 | 6d 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 75 6e 63 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 2d 66 | me)...(let*.((function.(symbol-f |
| 2ad360 | 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 72 67 73 20 28 63 | unction.name))..........(args.(c |
| 2ad380 | 63 6c 3a 61 72 67 6c 69 73 74 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 | cl:arglist.function))..........( |
| 2ad3a0 | 70 6f 73 20 28 70 6f 73 69 74 69 6f 6e 2d 69 66 20 23 27 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 | pos.(position-if.#'(lambda.(x).. |
| 2ad3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | ..............................(a |
| 2ad3e0 | 6e 64 20 28 73 79 6d 62 6f 6c 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd.(symbolp.x).................. |
| 2ad400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 | ...................(let.((name.( |
| 2ad420 | 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | symbol-name.x)))................ |
| 2ad440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 3e 3d 20 | .......................(and.(>=. |
| 2ad460 | 28 6c 65 6e 67 74 68 20 6e 61 6d 65 29 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (length.name).1)................ |
| 2ad480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 | ............................(cha |
| 2ad4a0 | 72 3d 20 28 73 63 68 61 72 20 6e 61 6d 65 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r=.(schar.name.0)............... |
| 2ad4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2ad4e0 | 20 20 20 20 23 5c 26 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....#\&))))).................... |
| 2ad500 | 20 20 20 20 20 20 20 20 61 72 67 73 29 29 29 0a 20 20 20 20 28 69 66 20 70 6f 73 0a 20 20 20 20 | ........args))).....(if.pos..... |
| 2ad520 | 20 20 20 20 28 76 61 6c 75 65 73 20 70 6f 73 20 74 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 | ....(values.pos.t).........(valu |
| 2ad540 | 65 73 20 28 6c 65 6e 67 74 68 20 61 72 67 73 29 20 6e 69 6c 29 29 29 29 0a 0a 23 2b 63 6c 69 73 | es.(length.args).nil))))..#+clis |
| 2ad560 | 70 0a 28 64 65 66 75 6e 20 72 65 71 75 69 72 65 64 2d 61 72 67 75 6d 65 6e 74 73 20 28 6e 61 6d | p.(defun.required-arguments.(nam |
| 2ad580 | 65 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6e 61 6d 65 20 | e)...(multiple-value-bind.(name. |
| 2ad5a0 | 72 65 71 2d 6e 75 6d 20 6f 70 74 2d 6e 75 6d 20 72 65 73 74 2d 70 20 6b 65 79 2d 70 20 6b 65 79 | req-num.opt-num.rest-p.key-p.key |
| 2ad5c0 | 77 6f 72 64 73 20 61 6c 6c 6f 77 2d 70 29 0a 20 20 20 20 20 20 28 73 79 73 3a 3a 66 75 6e 63 74 | words.allow-p).......(sys::funct |
| 2ad5e0 | 69 6f 6e 2d 73 69 67 6e 61 74 75 72 65 20 6e 61 6d 65 20 74 29 0a 20 20 20 20 28 69 66 20 6e 61 | ion-signature.name.t).....(if.na |
| 2ad600 | 6d 65 20 3b 20 6e 6f 20 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 72 65 | me.;.no.error.........(values.re |
| 2ad620 | 71 2d 6e 75 6d 20 28 6f 72 20 28 2f 3d 20 30 20 6f 70 74 2d 6e 75 6d 29 20 72 65 73 74 2d 70 20 | q-num.(or.(/=.0.opt-num).rest-p. |
| 2ad640 | 6b 65 79 2d 70 20 6b 65 79 77 6f 72 64 73 20 61 6c 6c 6f 77 2d 70 29 29 0a 20 20 20 20 20 20 20 | key-p.keywords.allow-p))........ |
| 2ad660 | 20 28 76 61 6c 75 65 73 20 30 20 74 29 29 29 29 0a 0a 23 2b 63 6c 61 73 70 0a 28 64 65 66 75 6e | .(values.0.t))))..#+clasp.(defun |
| 2ad680 | 20 72 65 71 75 69 72 65 64 2d 61 72 67 75 6d 65 6e 74 73 20 28 6e 61 6d 65 29 0a 20 20 28 6d 75 | .required-arguments.(name)...(mu |
| 2ad6a0 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 61 72 67 6c 69 73 74 20 66 6f 75 6e 64 | ltiple-value-bind.(arglist.found |
| 2ad6c0 | 70 29 0a 20 20 20 20 20 20 28 63 6f 72 65 3a 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 6c | p).......(core:function-lambda-l |
| 2ad6e0 | 69 73 74 20 6e 61 6d 65 29 0a 20 20 20 20 28 69 66 20 66 6f 75 6e 64 70 0a 20 20 20 20 20 20 20 | ist.name).....(if.foundp........ |
| 2ad700 | 20 28 6c 65 74 20 28 28 70 6f 73 69 74 69 6f 6e 2d 61 6e 64 20 0a 20 20 20 20 20 20 20 20 20 20 | .(let.((position-and............ |
| 2ad720 | 20 20 20 20 20 28 70 6f 73 69 74 69 6f 6e 2d 69 66 20 23 27 28 6c 61 6d 62 64 61 20 28 78 29 0a | .....(position-if.#'(lambda.(x). |
| 2ad740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2ad760 | 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (and.(symbolp.x)................ |
| 2ad780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d | ......................(let.((nam |
| 2ad7a0 | 65 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e.(symbol-name.x)))............. |
| 2ad7c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 | ...........................(and. |
| 2ad7e0 | 28 3e 3d 20 28 6c 65 6e 67 74 68 20 6e 61 6d 65 29 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (>=.(length.name).1)............ |
| 2ad800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2ad820 | 20 28 63 68 61 72 3d 20 28 73 63 68 61 72 20 6e 61 6d 65 20 30 29 0a 20 20 20 20 20 20 20 20 20 | .(char=.(schar.name.0).......... |
| 2ad840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2ad860 | 20 20 20 20 20 20 20 20 20 20 23 5c 26 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........#\&))))).............. |
| 2ad880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 | ...............arglist)))....... |
| 2ad8a0 | 20 20 20 20 28 69 66 20 70 6f 73 69 74 69 6f 6e 2d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 | ....(if.position-and............ |
| 2ad8c0 | 20 20 20 28 76 61 6c 75 65 73 20 70 6f 73 69 74 69 6f 6e 2d 61 6e 64 20 74 29 0a 20 20 20 20 20 | ...(values.position-and.t)...... |
| 2ad8e0 | 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 6c 65 6e 67 74 68 20 61 72 67 6c 69 73 74 | .........(values.(length.arglist |
| 2ad900 | 29 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 30 20 74 29 29 29 29 | ).nil))).........(values.0.t)))) |
| 2ad920 | 0a 0a 23 2d 28 6f 72 20 63 6c 61 73 70 20 63 6c 69 73 70 20 6f 70 65 6e 6d 63 6c 29 0a 28 70 72 | ..#-(or.clasp.clisp.openmcl).(pr |
| 2ad940 | 6f 67 6e 0a 20 28 65 76 61 6c 2d 77 68 65 6e 20 28 63 6f 6d 70 69 6c 65 20 65 76 61 6c 29 0a 20 | ogn..(eval-when.(compile.eval).. |
| 2ad960 | 20 20 28 77 61 72 6e 0a 20 20 20 20 22 59 6f 75 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 61 64 64 | ..(warn....."You.may.want.to.add |
| 2ad980 | 20 61 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 69 66 69 63 20 7e 0a 52 65 | .an.implementation-specific.~.Re |
| 2ad9a0 | 71 75 69 72 65 64 2d 41 72 67 75 6d 65 6e 74 73 20 66 75 6e 63 74 69 6f 6e 2e 22 29 29 0a 20 28 | quired-Arguments.function."))..( |
| 2ad9c0 | 65 76 61 6c 2d 77 68 65 6e 20 28 6c 6f 61 64 20 65 76 61 6c 29 0a 20 20 20 28 64 65 66 75 6e 20 | eval-when.(load.eval)....(defun. |
| 2ad9e0 | 72 65 71 75 69 72 65 64 2d 61 72 67 75 6d 65 6e 74 73 20 28 6e 61 6d 65 29 0a 20 20 20 20 20 28 | required-arguments.(name)......( |
| 2ada00 | 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 28 76 61 6c | declare.(ignore.name))......(val |
| 2ada20 | 75 65 73 20 30 20 74 29 29 29 29 0a 0a 23 7c 0a 3b 3b 3b 45 78 61 6d 70 6c 65 73 0a 28 64 65 66 | ues.0.t))))..#|.;;;Examples.(def |
| 2ada40 | 75 6e 20 73 71 75 61 72 65 20 28 78 29 20 28 2a 20 78 20 78 29 29 0a 28 64 65 66 75 6e 20 73 71 | un.square.(x).(*.x.x)).(defun.sq |
| 2ada60 | 75 61 72 65 32 20 28 78 20 26 6f 70 74 69 6f 6e 61 6c 20 79 29 20 28 2a 20 78 20 78 20 79 29 29 | uare2.(x.&optional.y).(*.x.x.y)) |
| 2ada80 | 0a 28 64 65 66 75 6e 20 74 65 73 74 20 28 78 20 79 20 26 6f 70 74 69 6f 6e 61 6c 20 28 7a 20 33 | .(defun.test.(x.y.&optional.(z.3 |
| 2adaa0 | 29 29 20 33 29 0a 28 64 65 66 75 6e 20 74 65 73 74 32 20 28 78 20 79 20 26 6f 70 74 69 6f 6e 61 | )).3).(defun.test2.(x.y.&optiona |
| 2adac0 | 6c 20 28 7a 20 33 29 20 26 72 65 73 74 20 66 72 65 64 29 20 33 29 0a 0a 28 72 65 71 75 69 72 65 | l.(z.3).&rest.fred).3)..(require |
| 2adae0 | 64 2d 61 72 67 75 6d 65 6e 74 73 20 27 73 71 75 61 72 65 29 20 3d 3e 20 31 20 6e 69 6c 0a 28 72 | d-arguments.'square).=>.1.nil.(r |
| 2adb00 | 65 71 75 69 72 65 64 2d 61 72 67 75 6d 65 6e 74 73 20 27 73 71 75 61 72 65 32 29 20 3d 3e 20 31 | equired-arguments.'square2).=>.1 |
| 2adb20 | 20 74 0a 28 72 65 71 75 69 72 65 64 2d 61 72 67 75 6d 65 6e 74 73 20 27 74 65 73 74 29 20 3d 3e | .t.(required-arguments.'test).=> |
| 2adb40 | 20 32 20 74 0a 28 72 65 71 75 69 72 65 64 2d 61 72 67 75 6d 65 6e 74 73 20 27 74 65 73 74 32 29 | .2.t.(required-arguments.'test2) |
| 2adb60 | 20 3d 3e 20 32 20 74 0a 7c 23 0a 0a 0c 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .=>.2.t.|#....;;;.************** |
| 2adb80 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2adba0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 4d 61 69 6e 20 4d 45 54 45 | ******************.;;;.Main.METE |
| 2adbc0 | 52 49 4e 47 20 43 6f 64 65 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | RING.Code.********************** |
| 2adbe0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a | ***********************.;;;.**** |
| 2adc00 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******************************** |
| 2adc20 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 3b 3b | ****************************..;; |
| 2adc40 | 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;.****************************** |
| 2adc60 | 2a 2a 0a 3b 3b 3b 20 47 6c 6f 62 61 6c 20 56 61 72 69 61 62 6c 65 73 20 2a 2a 2a 2a 2a 2a 2a 2a | **.;;;.Global.Variables.******** |
| 2adc80 | 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | *******.;;;.******************** |
| 2adca0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 28 64 65 66 76 61 72 20 2a 4d 4f 4e 49 54 4f 52 2d 54 49 | ************.(defvar.*MONITOR-TI |
| 2adcc0 | 4d 45 2d 4f 56 45 52 48 45 41 44 2a 20 6e 69 6c 0a 20 20 22 54 68 65 20 61 6d 6f 75 6e 74 20 6f | ME-OVERHEAD*.nil..."The.amount.o |
| 2adce0 | 66 20 74 69 6d 65 20 61 6e 20 65 6d 70 74 79 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 | f.time.an.empty.monitored.functi |
| 2add00 | 6f 6e 20 63 6f 73 74 73 2e 22 29 0a 28 64 65 66 76 61 72 20 2a 4d 4f 4e 49 54 4f 52 2d 43 4f 4e | on.costs.").(defvar.*MONITOR-CON |
| 2add20 | 53 2d 4f 56 45 52 48 45 41 44 2a 20 6e 69 6c 0a 20 20 22 54 68 65 20 61 6d 6f 75 6e 74 20 6f 66 | S-OVERHEAD*.nil..."The.amount.of |
| 2add40 | 20 63 6f 6e 73 20 61 6e 20 65 6d 70 74 79 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f | .cons.an.empty.monitored.functio |
| 2add60 | 6e 20 63 6f 73 74 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 54 4f 54 41 4c 2d 54 49 4d 45 2a | n.costs.")..(defvar.*TOTAL-TIME* |
| 2add80 | 20 30 0a 20 20 22 54 6f 74 61 6c 20 61 6d 6f 75 6e 74 20 6f 66 20 74 69 6d 65 20 6d 6f 6e 69 74 | .0..."Total.amount.of.time.monit |
| 2adda0 | 6f 72 65 64 20 73 6f 20 66 61 72 2e 22 29 0a 28 64 65 66 76 61 72 20 2a 54 4f 54 41 4c 2d 43 4f | ored.so.far.").(defvar.*TOTAL-CO |
| 2addc0 | 4e 53 2a 20 30 0a 20 20 22 54 6f 74 61 6c 20 61 6d 6f 75 6e 74 20 6f 66 20 63 6f 6e 73 69 6e 67 | NS*.0..."Total.amount.of.consing |
| 2adde0 | 20 6d 6f 6e 69 74 6f 72 65 64 20 73 6f 20 66 61 72 2e 22 29 0a 28 64 65 66 76 61 72 20 2a 54 4f | .monitored.so.far.").(defvar.*TO |
| 2ade00 | 54 41 4c 2d 43 41 4c 4c 53 2a 20 30 0a 20 20 22 54 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 | TAL-CALLS*.0..."Total.number.of. |
| 2ade20 | 63 61 6c 6c 73 20 6d 6f 6e 69 74 6f 72 65 64 20 73 6f 20 66 61 72 2e 22 29 0a 28 70 72 6f 63 6c | calls.monitored.so.far.").(procl |
| 2ade40 | 61 69 6d 20 27 28 74 79 70 65 20 74 69 6d 65 2d 74 79 70 65 20 2a 74 6f 74 61 6c 2d 74 69 6d 65 | aim.'(type.time-type.*total-time |
| 2ade60 | 2a 29 29 0a 28 70 72 6f 63 6c 61 69 6d 20 27 28 74 79 70 65 20 63 6f 6e 73 69 6e 67 2d 74 79 70 | *)).(proclaim.'(type.consing-typ |
| 2ade80 | 65 20 2a 74 6f 74 61 6c 2d 63 6f 6e 73 2a 29 29 0a 28 70 72 6f 63 6c 61 69 6d 20 27 28 66 69 78 | e.*total-cons*)).(proclaim.'(fix |
| 2adea0 | 6e 75 6d 20 2a 74 6f 74 61 6c 2d 63 61 6c 6c 73 2a 29 29 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a | num.*total-calls*))..;;;.******* |
| 2adec0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 41 63 | *************************.;;;.Ac |
| 2adee0 | 63 65 73 73 6f 72 20 46 75 6e 63 74 69 6f 6e 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b | cessor.Functions.*************.; |
| 2adf00 | 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;;.***************************** |
| 2adf20 | 2a 2a 2a 0a 3b 3b 3b 20 50 65 72 68 61 70 73 20 74 68 65 20 53 59 4d 42 4f 4c 50 20 73 68 6f 75 | ***.;;;.Perhaps.the.SYMBOLP.shou |
| 2adf40 | 6c 64 20 62 65 20 46 42 4f 55 4e 44 50 3f 20 49 2e 65 2e 2c 20 77 68 61 74 20 61 62 6f 75 74 20 | ld.be.FBOUNDP?.I.e.,.what.about. |
| 2adf60 | 76 61 72 69 61 62 6c 65 73 0a 3b 3b 3b 20 63 6f 6e 74 61 69 6e 69 6e 67 20 63 6c 6f 73 75 72 65 | variables.;;;.containing.closure |
| 2adf80 | 73 2e 0a 28 64 65 66 6d 61 63 72 6f 20 50 4c 41 43 45 2d 46 55 4e 43 54 49 4f 4e 20 28 66 75 6e | s..(defmacro.PLACE-FUNCTION.(fun |
| 2adfa0 | 63 74 69 6f 6e 2d 70 6c 61 63 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 75 6e 63 74 | ction-place)..."Return.the.funct |
| 2adfc0 | 69 6f 6e 20 66 6f 75 6e 64 20 61 74 20 46 55 4e 43 54 49 4f 4e 2d 50 4c 41 43 45 2e 20 45 76 61 | ion.found.at.FUNCTION-PLACE..Eva |
| 2adfe0 | 6c 73 20 46 55 4e 43 54 49 4f 4e 2d 50 4c 41 43 45 0a 69 66 20 69 74 20 69 73 6e 27 74 20 61 20 | ls.FUNCTION-PLACE.if.it.isn't.a. |
| 2ae000 | 73 79 6d 62 6f 6c 2c 20 74 6f 20 61 6c 6c 6f 77 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 6f 66 20 63 | symbol,.to.allow.monitoring.of.c |
| 2ae020 | 6c 6f 73 75 72 65 73 20 6c 6f 63 61 74 65 64 20 69 6e 0a 76 61 72 69 61 62 6c 65 73 2f 61 72 72 | losures.located.in.variables/arr |
| 2ae040 | 61 79 73 2f 73 74 72 75 63 74 75 72 65 73 2e 22 0a 20 20 3b 3b 20 4e 6f 74 65 20 74 68 61 74 20 | ays/structures."...;;.Note.that. |
| 2ae060 | 28 66 62 6f 75 6e 64 70 20 27 66 64 65 66 69 6e 69 74 69 6f 6e 29 20 72 65 74 75 72 6e 73 20 54 | (fboundp.'fdefinition).returns.T |
| 2ae080 | 20 65 76 65 6e 20 69 66 20 66 64 65 66 69 6e 69 74 69 6f 6e 0a 20 20 3b 3b 20 69 73 20 61 20 6d | .even.if.fdefinition...;;.is.a.m |
| 2ae0a0 | 61 63 72 6f 2c 20 77 68 69 63 68 20 69 73 20 77 68 61 74 20 77 65 20 77 61 6e 74 2e 0a 20 20 28 | acro,.which.is.what.we.want....( |
| 2ae0c0 | 69 66 20 28 66 62 6f 75 6e 64 70 20 27 66 64 65 66 69 6e 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 | if.(fboundp.'fdefinition)....... |
| 2ae0e0 | 60 28 69 66 20 28 66 62 6f 75 6e 64 70 20 2c 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 0a 20 | `(if.(fboundp.,function-place).. |
| 2ae100 | 20 20 20 20 20 20 20 20 20 20 28 66 64 65 66 69 6e 69 74 69 6f 6e 20 2c 66 75 6e 63 74 69 6f 6e | ..........(fdefinition.,function |
| 2ae120 | 2d 70 6c 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 2c 66 75 6e 63 74 69 | -place)............(eval.,functi |
| 2ae140 | 6f 6e 2d 70 6c 61 63 65 29 29 0a 20 20 20 20 20 20 60 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 2c | on-place)).......`(if.(symbolp., |
| 2ae160 | 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 | function-place)............(symb |
| 2ae180 | 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 2c 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 0a 20 20 20 | ol-function.,function-place).... |
| 2ae1a0 | 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 2c 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 29 29 | ........(eval.,function-place))) |
| 2ae1c0 | 29 0a 0a 28 64 65 66 73 65 74 66 20 50 4c 41 43 45 2d 46 55 4e 43 54 49 4f 4e 20 28 66 75 6e 63 | )..(defsetf.PLACE-FUNCTION.(func |
| 2ae1e0 | 74 69 6f 6e 2d 70 6c 61 63 65 29 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 53 65 74 20 74 68 | tion-place).(function)..."Set.th |
| 2ae200 | 65 20 66 75 6e 63 74 69 6f 6e 20 69 6e 20 46 55 4e 43 54 49 4f 4e 2d 50 4c 41 43 45 20 74 6f 20 | e.function.in.FUNCTION-PLACE.to. |
| 2ae220 | 46 55 4e 43 54 49 4f 4e 2e 22 0a 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 66 64 65 66 69 | FUNCTION."...(if.(fboundp.'fdefi |
| 2ae240 | 6e 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 3b 3b 20 49 66 20 77 65 27 72 65 20 63 6f 6e 66 6f 72 | nition).......;;.If.we're.confor |
| 2ae260 | 6d 69 6e 67 20 74 6f 20 43 4c 74 4c 32 2c 20 75 73 65 20 66 64 65 66 69 6e 69 74 69 6f 6e 20 68 | ming.to.CLtL2,.use.fdefinition.h |
| 2ae280 | 65 72 65 2e 0a 20 20 20 20 20 20 60 28 69 66 20 28 66 62 6f 75 6e 64 70 20 2c 66 75 6e 63 74 69 | ere........`(if.(fboundp.,functi |
| 2ae2a0 | 6f 6e 2d 70 6c 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 66 64 65 66 | on-place)............(setf.(fdef |
| 2ae2c0 | 69 6e 69 74 69 6f 6e 20 2c 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 20 2c 66 75 6e 63 74 69 | inition.,function-place).,functi |
| 2ae2e0 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 27 28 73 65 74 66 20 2c 66 75 6e | on)............(eval.'(setf.,fun |
| 2ae300 | 63 74 69 6f 6e 2d 70 6c 61 63 65 20 27 2c 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 | ction-place.',function)))....... |
| 2ae320 | 60 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 2c 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 0a 20 | `(if.(symbolp.,function-place).. |
| 2ae340 | 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e | ..........(setf.(symbol-function |
| 2ae360 | 20 2c 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 20 2c 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 | .,function-place).,function).... |
| 2ae380 | 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 27 28 73 65 74 66 20 2c 66 75 6e 63 74 69 6f 6e 2d 70 | ........(eval.'(setf.,function-p |
| 2ae3a0 | 6c 61 63 65 20 27 2c 66 75 6e 63 74 69 6f 6e 29 29 29 29 29 0a 0a 23 7c 0a 3b 3b 3b 20 62 65 66 | lace.',function)))))..#|.;;;.bef |
| 2ae3c0 | 6f 72 65 20 75 73 69 6e 67 20 66 64 65 66 69 6e 69 74 69 6f 6e 0a 28 64 65 66 75 6e 20 50 4c 41 | ore.using.fdefinition.(defun.PLA |
| 2ae3e0 | 43 45 2d 46 55 4e 43 54 49 4f 4e 20 28 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 0a 20 20 22 | CE-FUNCTION.(function-place)..." |
| 2ae400 | 52 65 74 75 72 6e 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 66 6f 75 6e 64 20 61 74 20 46 55 4e | Return.the.function.found.at.FUN |
| 2ae420 | 43 54 49 4f 4e 2d 50 4c 41 43 45 2e 20 45 76 61 6c 73 20 46 55 4e 43 54 49 4f 4e 2d 50 4c 41 43 | CTION-PLACE..Evals.FUNCTION-PLAC |
| 2ae440 | 45 0a 69 66 20 69 74 20 69 73 6e 27 74 20 61 20 73 79 6d 62 6f 6c 2c 20 74 6f 20 61 6c 6c 6f 77 | E.if.it.isn't.a.symbol,.to.allow |
| 2ae460 | 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 6f 66 20 63 6c 6f 73 75 72 65 73 20 6c 6f 63 61 74 65 64 20 | .monitoring.of.closures.located. |
| 2ae480 | 69 6e 0a 76 61 72 69 61 62 6c 65 73 2f 61 72 72 61 79 73 2f 73 74 72 75 63 74 75 72 65 73 2e 22 | in.variables/arrays/structures." |
| 2ae4a0 | 0a 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 0a | ...(if.(symbolp.function-place). |
| 2ae4c0 | 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d | ......(symbol-function.function- |
| 2ae4e0 | 70 6c 61 63 65 29 0a 20 20 20 20 20 20 28 65 76 61 6c 20 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 | place).......(eval.function-plac |
| 2ae500 | 65 29 29 29 0a 0a 28 64 65 66 73 65 74 66 20 50 4c 41 43 45 2d 46 55 4e 43 54 49 4f 4e 20 28 66 | e)))..(defsetf.PLACE-FUNCTION.(f |
| 2ae520 | 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 20 28 66 75 6e 63 74 69 6f 6e 29 0a 20 20 22 53 65 74 | unction-place).(function)..."Set |
| 2ae540 | 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 6e 20 46 55 4e 43 54 49 4f 4e 2d 50 4c 41 43 45 20 | .the.function.in.FUNCTION-PLACE. |
| 2ae560 | 74 6f 20 46 55 4e 43 54 49 4f 4e 2e 22 0a 20 20 60 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 2c 66 | to.FUNCTION."...`(if.(symbolp.,f |
| 2ae580 | 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 0a 20 20 20 20 20 20 20 28 73 65 74 66 20 28 73 79 6d | unction-place)........(setf.(sym |
| 2ae5a0 | 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 2c 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 20 2c 66 | bol-function.,function-place).,f |
| 2ae5c0 | 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 65 76 61 6c 20 27 28 73 65 74 66 20 2c 66 75 | unction)........(eval.'(setf.,fu |
| 2ae5e0 | 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 20 27 2c 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 7c 23 0a 0a | nction-place.',function)))).|#.. |
| 2ae600 | 28 64 65 66 75 6e 20 50 4c 41 43 45 2d 46 42 4f 55 4e 44 50 20 28 66 75 6e 63 74 69 6f 6e 2d 70 | (defun.PLACE-FBOUNDP.(function-p |
| 2ae620 | 6c 61 63 65 29 0a 20 20 22 54 65 73 74 20 74 6f 20 73 65 65 20 69 66 20 46 55 4e 43 54 49 4f 4e | lace)..."Test.to.see.if.FUNCTION |
| 2ae640 | 2d 50 4c 41 43 45 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 3b 3b 20 70 72 6f 62 | -PLACE.is.a.function."...;;.prob |
| 2ae660 | 61 62 6c 79 20 73 68 6f 75 6c 64 20 62 65 0a 20 20 23 7c 28 6f 72 20 28 61 6e 64 20 28 73 79 6d | ably.should.be...#|(or.(and.(sym |
| 2ae680 | 62 6f 6c 70 20 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 28 66 62 6f 75 6e 64 70 20 66 75 6e | bolp.function-place)(fboundp.fun |
| 2ae6a0 | 63 74 69 6f 6e 2d 70 6c 61 63 65 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 70 20 28 | ction-place)).......(functionp.( |
| 2ae6c0 | 70 6c 61 63 65 2d 66 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 29 29 | place-function.function-place))) |
| 2ae6e0 | 7c 23 0a 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 | |#...(if.(symbolp.function-place |
| 2ae700 | 29 0a 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 | ).......(fboundp.function-place) |
| 2ae720 | 0a 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 70 20 28 70 6c 61 63 65 2d 66 75 6e 63 74 69 6f | .......(functionp.(place-functio |
| 2ae740 | 6e 20 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 50 4c 41 | n.function-place))))..(defun.PLA |
| 2ae760 | 43 45 2d 4d 41 43 52 4f 50 20 28 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 0a 20 20 22 54 65 | CE-MACROP.(function-place)..."Te |
| 2ae780 | 73 74 20 74 6f 20 73 65 65 20 69 66 20 46 55 4e 43 54 49 4f 4e 2d 50 4c 41 43 45 20 69 73 20 61 | st.to.see.if.FUNCTION-PLACE.is.a |
| 2ae7a0 | 20 6d 61 63 72 6f 2e 22 0a 20 20 28 77 68 65 6e 20 28 73 79 6d 62 6f 6c 70 20 66 75 6e 63 74 69 | .macro."...(when.(symbolp.functi |
| 2ae7c0 | 6f 6e 2d 70 6c 61 63 65 29 0a 20 20 20 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 66 75 | on-place).....(macro-function.fu |
| 2ae7e0 | 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 29 29 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | nction-place)))..;;;.*********** |
| 2ae800 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 4d 65 61 73 75 72 | *********************.;;;.Measur |
| 2ae820 | 65 6d 65 6e 74 20 54 61 62 6c 65 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a | ement.Tables.*************.;;;.* |
| 2ae840 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a | *******************************. |
| 2ae860 | 28 64 65 66 76 61 72 20 2a 6d 6f 6e 69 74 6f 72 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a 20 6e 69 | (defvar.*monitored-functions*.ni |
| 2ae880 | 6c 0a 20 20 22 4c 69 73 74 20 6f 66 20 6d 6f 6e 69 74 6f 72 65 64 20 73 79 6d 62 6f 6c 73 2e 22 | l..."List.of.monitored.symbols." |
| 2ae8a0 | 29 0a 0a 3b 3b 3b 20 57 65 20 61 73 73 6f 63 69 61 74 65 20 61 20 4d 45 54 45 52 49 4e 47 2d 46 | )..;;;.We.associate.a.METERING-F |
| 2ae8c0 | 55 4e 43 54 49 4f 4e 53 20 73 74 72 75 63 74 75 72 65 20 77 69 74 68 20 65 61 63 68 20 6d 6f 6e | UNCTIONS.structure.with.each.mon |
| 2ae8e0 | 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f 6e 0a 3b 3b 3b 20 6e 61 6d 65 20 6f 72 20 6f 74 68 65 | itored.function.;;;.name.or.othe |
| 2ae900 | 72 20 63 6c 6f 73 75 72 65 2e 20 54 68 69 73 20 68 6f 6c 64 73 20 74 68 65 20 66 75 6e 63 74 69 | r.closure..This.holds.the.functi |
| 2ae920 | 6f 6e 73 20 74 68 61 74 20 77 65 20 63 61 6c 6c 20 74 6f 20 6d 61 6e 69 70 75 6c 61 74 65 0a 3b | ons.that.we.call.to.manipulate.; |
| 2ae940 | 3b 3b 20 74 68 65 20 63 6c 6f 73 75 72 65 20 77 68 69 63 68 20 69 6d 70 6c 65 6d 65 6e 74 73 20 | ;;.the.closure.which.implements. |
| 2ae960 | 74 68 65 20 65 6e 63 61 70 73 75 6c 61 74 69 6f 6e 2e 0a 3b 3b 3b 0a 28 64 65 66 73 74 72 75 63 | the.encapsulation..;;;.(defstruc |
| 2ae980 | 74 20 6d 65 74 65 72 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 28 6e 61 6d 65 20 6e 69 6c | t.metering-functions...(name.nil |
| 2ae9a0 | 29 0a 20 20 28 6f 6c 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6e 69 6c 20 3a 74 79 70 65 20 66 75 | )...(old-definition.nil.:type.fu |
| 2ae9c0 | 6e 63 74 69 6f 6e 29 0a 20 20 28 6e 65 77 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6e 69 6c 20 3a 74 | nction)...(new-definition.nil.:t |
| 2ae9e0 | 79 70 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 72 65 61 64 2d 6d 65 74 65 72 69 6e 67 20 20 | ype.function)...(read-metering.. |
| 2aea00 | 6e 69 6c 20 3a 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 72 65 73 65 74 2d 6d 65 74 | nil.:type.function)...(reset-met |
| 2aea20 | 65 72 69 6e 67 20 6e 69 6c 20 3a 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 29 29 0a 0a 3b 3b 3b 20 | ering.nil.:type.function))..;;;. |
| 2aea40 | 49 6e 20 67 65 6e 65 72 61 6c 20 75 73 69 6e 67 20 68 61 73 68 20 74 61 62 6c 65 73 20 69 6e 20 | In.general.using.hash.tables.in. |
| 2aea60 | 74 69 6d 65 2d 63 72 69 74 69 63 61 6c 20 70 72 6f 67 72 61 6d 73 20 69 73 20 61 20 62 61 64 20 | time-critical.programs.is.a.bad. |
| 2aea80 | 69 64 65 61 2c 0a 3b 3b 3b 20 62 65 63 61 75 73 65 20 77 68 65 6e 20 6f 6e 65 20 68 61 73 20 74 | idea,.;;;.because.when.one.has.t |
| 2aeaa0 | 6f 20 67 72 6f 77 20 74 68 65 20 74 61 62 6c 65 20 61 6e 64 20 72 65 68 61 73 68 20 65 76 65 72 | o.grow.the.table.and.rehash.ever |
| 2aeac0 | 79 74 68 69 6e 67 2c 20 74 68 65 0a 3b 3b 3b 20 74 69 6d 69 6e 67 20 62 65 63 6f 6d 65 73 20 67 | ything,.the.;;;.timing.becomes.g |
| 2aeae0 | 72 6f 73 73 6c 79 20 69 6e 61 63 63 75 72 61 74 65 2e 20 49 6e 20 74 68 69 73 20 63 61 73 65 20 | rossly.inaccurate..In.this.case. |
| 2aeb00 | 69 74 20 69 73 20 6e 6f 74 20 61 6e 20 69 73 73 75 65 0a 3b 3b 3b 20 62 65 63 61 75 73 65 20 61 | it.is.not.an.issue.;;;.because.a |
| 2aeb20 | 6c 6c 20 69 6e 73 65 72 74 69 6e 67 20 6f 66 20 65 6e 74 72 69 65 73 20 69 6e 20 74 68 65 20 68 | ll.inserting.of.entries.in.the.h |
| 2aeb40 | 61 73 68 20 74 61 62 6c 65 20 6f 63 63 75 72 73 20 62 65 66 6f 72 65 20 74 68 65 0a 3b 3b 3b 20 | ash.table.occurs.before.the.;;;. |
| 2aeb60 | 74 69 6d 69 6e 67 20 63 6f 6d 6d 65 6e 63 65 73 2e 20 54 68 65 20 6f 6e 6c 79 20 63 69 72 63 75 | timing.commences..The.only.circu |
| 2aeb80 | 6d 73 74 61 6e 63 65 20 69 6e 20 77 68 69 63 68 20 74 68 69 73 20 63 6f 75 6c 64 20 62 65 20 61 | mstance.in.which.this.could.be.a |
| 2aeba0 | 0a 3b 3b 3b 20 70 72 6f 62 6c 65 6d 20 69 73 20 69 66 20 74 68 65 20 6c 69 73 70 20 72 65 68 61 | .;;;.problem.is.if.the.lisp.reha |
| 2aebc0 | 73 68 65 73 20 6f 6e 20 74 68 65 20 6e 65 78 74 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 74 68 | shes.on.the.next.reference.to.th |
| 2aebe0 | 65 20 74 61 62 6c 65 2c 0a 3b 3b 3b 20 69 6e 73 74 65 61 64 20 6f 66 20 77 68 65 6e 20 74 68 65 | e.table,.;;;.instead.of.when.the |
| 2aec00 | 20 65 6e 74 72 79 20 77 68 69 63 68 20 66 6f 72 63 65 73 20 61 20 72 65 68 61 73 68 20 77 61 73 | .entry.which.forces.a.rehash.was |
| 2aec20 | 20 69 6e 73 65 72 74 65 64 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 4e 6f 74 65 20 74 68 61 74 20 61 20 73 | .inserted..;;;.;;;.Note.that.a.s |
| 2aec40 | 69 6d 69 6c 61 72 20 6b 69 6e 64 20 6f 66 20 70 72 6f 62 6c 65 6d 20 63 61 6e 20 6f 63 63 75 72 | imilar.kind.of.problem.can.occur |
| 2aec60 | 20 77 69 74 68 20 47 43 2c 20 77 68 69 63 68 20 69 73 20 77 68 79 0a 3b 3b 3b 20 6f 6e 65 20 73 | .with.GC,.which.is.why.;;;.one.s |
| 2aec80 | 68 6f 75 6c 64 20 74 75 72 6e 20 6f 66 66 20 47 43 20 77 68 65 6e 20 6d 6f 6e 69 74 6f 72 69 6e | hould.turn.off.GC.when.monitorin |
| 2aeca0 | 67 20 63 6f 64 65 2e 0a 3b 3b 3b 0a 28 64 65 66 76 61 72 20 2a 6d 6f 6e 69 74 6f 72 2a 20 28 6d | g.code..;;;.(defvar.*monitor*.(m |
| 2aecc0 | 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 | ake-hash-table.:test.#'equal)... |
| 2aece0 | 22 48 61 73 68 20 74 61 62 6c 65 20 69 6e 20 77 68 69 63 68 20 4d 45 54 45 52 49 4e 47 2d 46 55 | "Hash.table.in.which.METERING-FU |
| 2aed00 | 4e 43 54 49 4f 4e 53 20 73 74 72 75 63 74 75 72 65 73 20 61 72 65 20 73 74 6f 72 65 64 2e 22 29 | NCTIONS.structures.are.stored.") |
| 2aed20 | 0a 28 64 65 66 75 6e 20 67 65 74 2d 6d 6f 6e 69 74 6f 72 2d 69 6e 66 6f 20 28 6e 61 6d 65 29 0a | .(defun.get-monitor-info.(name). |
| 2aed40 | 20 20 28 67 65 74 68 61 73 68 20 6e 61 6d 65 20 2a 6d 6f 6e 69 74 6f 72 2a 29 29 0a 28 64 65 66 | ..(gethash.name.*monitor*)).(def |
| 2aed60 | 73 65 74 66 20 67 65 74 2d 6d 6f 6e 69 74 6f 72 2d 69 6e 66 6f 20 28 6e 61 6d 65 29 20 28 69 6e | setf.get-monitor-info.(name).(in |
| 2aed80 | 66 6f 29 0a 20 20 60 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 2c 6e 61 6d 65 20 2a 6d 6f 6e | fo)...`(setf.(gethash.,name.*mon |
| 2aeda0 | 69 74 6f 72 2a 29 20 2c 69 6e 66 6f 29 29 0a 0a 28 64 65 66 75 6e 20 4d 4f 4e 49 54 4f 52 45 44 | itor*).,info))..(defun.MONITORED |
| 2aedc0 | 20 28 66 75 6e 63 74 69 6f 6e 2d 70 6c 61 63 65 29 0a 20 20 22 54 65 73 74 20 74 6f 20 73 65 65 | .(function-place)..."Test.to.see |
| 2aede0 | 20 69 66 20 61 20 46 55 4e 43 54 49 4f 4e 2d 50 4c 41 43 45 20 69 73 20 6d 6f 6e 69 74 6f 72 65 | .if.a.FUNCTION-PLACE.is.monitore |
| 2aee00 | 64 2e 22 0a 20 20 28 61 6e 64 20 28 70 6c 61 63 65 2d 66 62 6f 75 6e 64 70 20 66 75 6e 63 74 69 | d."...(and.(place-fboundp.functi |
| 2aee20 | 6f 6e 2d 70 6c 61 63 65 29 20 20 20 3b 20 74 68 69 73 20 6c 69 6e 65 20 6e 65 63 65 73 73 61 72 | on-place)...;.this.line.necessar |
| 2aee40 | 79 3f 0a 20 20 20 20 20 20 20 28 67 65 74 2d 6d 6f 6e 69 74 6f 72 2d 69 6e 66 6f 20 66 75 6e 63 | y?........(get-monitor-info.func |
| 2aee60 | 74 69 6f 6e 2d 70 6c 61 63 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 73 65 74 2d 6d 6f 6e 69 | tion-place)))..(defun.reset-moni |
| 2aee80 | 74 6f 72 69 6e 67 2d 69 6e 66 6f 20 28 6e 61 6d 65 29 0a 20 20 22 52 65 73 65 74 20 74 68 65 20 | toring-info.(name)..."Reset.the. |
| 2aeea0 | 6d 6f 6e 69 74 6f 72 69 6e 67 20 69 6e 66 6f 20 66 6f 72 20 74 68 65 20 73 70 65 63 69 66 69 65 | monitoring.info.for.the.specifie |
| 2aeec0 | 64 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6e 66 6f 20 28 67 65 74 | d.function."...(let.((finfo.(get |
| 2aeee0 | 2d 6d 6f 6e 69 74 6f 72 2d 69 6e 66 6f 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 | -monitor-info.name))).....(when. |
| 2aef00 | 66 69 6e 66 6f 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 6d 65 74 65 72 69 6e 67 2d 66 | finfo.......(funcall.(metering-f |
| 2aef20 | 75 6e 63 74 69 6f 6e 73 2d 72 65 73 65 74 2d 6d 65 74 65 72 69 6e 67 20 66 69 6e 66 6f 29 29 29 | unctions-reset-metering.finfo))) |
| 2aef40 | 29 29 0a 28 64 65 66 75 6e 20 72 65 73 65 74 2d 61 6c 6c 2d 6d 6f 6e 69 74 6f 72 69 6e 67 20 28 | )).(defun.reset-all-monitoring.( |
| 2aef60 | 29 0a 20 20 22 52 65 73 65 74 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 69 6e 66 6f 20 66 6f 72 20 61 | )..."Reset.monitoring.info.for.a |
| 2aef80 | 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 22 0a 20 20 28 73 65 74 71 20 2a 74 6f 74 61 6c 2d 74 69 | ll.functions."...(setq.*total-ti |
| 2aefa0 | 6d 65 2a 20 30 0a 20 20 20 20 20 20 20 20 2a 74 6f 74 61 6c 2d 63 6f 6e 73 2a 20 30 0a 20 20 20 | me*.0.........*total-cons*.0.... |
| 2aefc0 | 20 20 20 20 20 2a 74 6f 74 61 6c 2d 63 61 6c 6c 73 2a 20 30 29 0a 20 20 28 64 6f 6c 69 73 74 20 | .....*total-calls*.0)...(dolist. |
| 2aefe0 | 28 73 79 6d 62 6f 6c 20 2a 6d 6f 6e 69 74 6f 72 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 0a 20 | (symbol.*monitored-functions*).. |
| 2af000 | 20 20 20 28 77 68 65 6e 20 28 6d 6f 6e 69 74 6f 72 65 64 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 | ...(when.(monitored.symbol)..... |
| 2af020 | 20 20 28 72 65 73 65 74 2d 6d 6f 6e 69 74 6f 72 69 6e 67 2d 69 6e 66 6f 20 73 79 6d 62 6f 6c 29 | ..(reset-monitoring-info.symbol) |
| 2af040 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 6e 69 74 6f 72 2d 69 6e 66 6f 2d 76 61 6c 75 65 73 20 | )))..(defun.monitor-info-values. |
| 2af060 | 28 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 28 6e 65 73 74 65 64 20 3a 65 78 63 6c 75 73 69 | (name.&optional.(nested.:exclusi |
| 2af080 | 76 65 29 20 77 61 72 6e 29 0a 20 20 22 52 65 74 75 72 6e 73 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 | ve).warn)..."Returns.monitoring. |
| 2af0a0 | 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 76 61 6c 75 65 73 20 66 6f 72 20 74 68 65 20 6e 61 6d 65 64 | information.values.for.the.named |
| 2af0c0 | 20 66 75 6e 63 74 69 6f 6e 2c 0a 61 64 6a 75 73 74 65 64 20 66 6f 72 20 6f 76 65 72 68 65 61 64 | .function,.adjusted.for.overhead |
| 2af0e0 | 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6e 66 6f 20 28 67 65 74 2d 6d 6f 6e 69 74 6f 72 2d 69 | ."...(let.((finfo.(get-monitor-i |
| 2af100 | 6e 66 6f 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 69 66 20 66 69 6e 66 6f 0a 20 20 20 20 20 20 | nfo.name))).....(if.finfo....... |
| 2af120 | 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 69 6e 63 6c 75 73 69 76 | ..(multiple-value-bind.(inclusiv |
| 2af140 | 65 2d 74 69 6d 65 20 69 6e 63 6c 75 73 69 76 65 2d 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 | e-time.inclusive-cons........... |
| 2af160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2af180 | 20 20 20 65 78 63 6c 75 73 69 76 65 2d 74 69 6d 65 20 65 78 63 6c 75 73 69 76 65 2d 63 6f 6e 73 | ...exclusive-time.exclusive-cons |
| 2af1a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2af1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 73 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 | ..............calls.nested-calls |
| 2af1e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 6d 65 74 65 72 69 6e 67 | ).............(funcall.(metering |
| 2af200 | 2d 66 75 6e 63 74 69 6f 6e 73 2d 72 65 61 64 2d 6d 65 74 65 72 69 6e 67 20 66 69 6e 66 6f 29 29 | -functions-read-metering.finfo)) |
| 2af220 | 0a 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 28 6e 75 6c 6c 20 77 61 72 | ...........(unless.(or.(null.war |
| 2af240 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 70 6c | n).......................(eq.(pl |
| 2af260 | 61 63 65 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ace-function.name).............. |
| 2af280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 74 65 72 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 73 | .............(metering-functions |
| 2af2a0 | 2d 6e 65 77 2d 64 65 66 69 6e 69 74 69 6f 6e 20 66 69 6e 66 6f 29 29 29 0a 20 20 20 20 20 20 20 | -new-definition.finfo)))........ |
| 2af2c0 | 20 20 20 20 20 28 77 61 72 6e 20 22 46 75 6e 74 69 6f 6e 20 7e 53 20 68 61 73 20 62 65 65 6e 20 | .....(warn."Funtion.~S.has.been. |
| 2af2e0 | 72 65 64 65 66 69 6e 65 64 2c 20 73 6f 20 74 69 6d 65 73 20 6d 61 79 20 62 65 20 69 6e 61 63 63 | redefined,.so.times.may.be.inacc |
| 2af300 | 75 72 61 74 65 2e 7e 40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 4e 49 | urate.~@....................MONI |
| 2af320 | 54 4f 52 20 69 74 20 61 67 61 69 6e 20 74 6f 20 72 65 63 6f 72 64 20 63 61 6c 6c 73 20 74 6f 20 | TOR.it.again.to.record.calls.to. |
| 2af340 | 74 68 65 20 6e 65 77 20 64 65 66 69 6e 69 74 69 6f 6e 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 | the.new.definition."............ |
| 2af360 | 20 20 20 20 20 20 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 73 65 20 6e 65 | .......name))...........(case.ne |
| 2af380 | 73 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 65 78 63 6c 75 73 69 76 65 20 28 76 61 | sted.............(:exclusive.(va |
| 2af3a0 | 6c 75 65 73 20 63 61 6c 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lues.calls...................... |
| 2af3c0 | 20 20 20 20 20 20 20 20 20 20 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 0a 20 20 20 20 20 20 20 20 | ...........nested-calls......... |
| 2af3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 65 78 63 6c 75 | ........................(-.exclu |
| 2af400 | 73 69 76 65 2d 74 69 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sive-time....................... |
| 2af420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 63 61 6c 6c 73 20 2a 6d 6f 6e 69 74 6f 72 2d 74 | .............(*.calls.*monitor-t |
| 2af440 | 69 6d 65 2d 6f 76 65 72 68 65 61 64 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ime-overhead*))................. |
| 2af460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 65 78 63 6c 75 73 69 76 65 2d 63 6f 6e | ................(-.exclusive-con |
| 2af480 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s............................... |
| 2af4a0 | 20 20 20 20 20 28 2a 20 63 61 6c 6c 73 20 2a 6d 6f 6e 69 74 6f 72 2d 63 6f 6e 73 2d 6f 76 65 72 | .....(*.calls.*monitor-cons-over |
| 2af4c0 | 68 65 61 64 2a 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 6e 20 3a 69 6e 63 | head*)))).............;;.In.:inc |
| 2af4e0 | 6c 75 73 69 76 65 20 6d 6f 64 65 2c 20 73 75 62 74 72 61 63 74 20 6f 76 65 72 68 65 61 64 20 66 | lusive.mode,.subtract.overhead.f |
| 2af500 | 6f 72 20 61 6c 6c 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 61 6c 6c 65 64 | or.all.the.............;;.called |
| 2af520 | 20 66 75 6e 63 74 69 6f 6e 73 20 61 73 20 77 65 6c 6c 2e 20 4e 65 73 74 65 64 2d 63 61 6c 6c 73 | .functions.as.well..Nested-calls |
| 2af540 | 20 69 6e 63 6c 75 64 65 73 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 61 6c | .includes.the.............;;.cal |
| 2af560 | 6c 73 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 73 20 77 65 6c 6c 2e 20 5b 4e 65 63 | ls.of.the.function.as.well..[Nec |
| 2af580 | 65 73 73 61 72 79 20 27 63 61 75 73 65 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | essary.'cause.of.............;;. |
| 2af5a0 | 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 63 61 6c 6c 20 74 68 65 6d 73 65 6c 76 65 73 20 | functions.which.call.themselves. |
| 2af5c0 | 72 65 63 75 72 73 69 76 65 6c 79 2e 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 69 6e 63 6c | recursively.].............(:incl |
| 2af5e0 | 75 73 69 76 65 20 28 76 61 6c 75 65 73 20 63 61 6c 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | usive.(values.calls............. |
| 2af600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 | ....................nested-calls |
| 2af620 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2af640 | 20 28 2d 20 69 6e 63 6c 75 73 69 76 65 2d 74 69 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(-.inclusive-time.............. |
| 2af660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 6e 65 73 74 65 64 2d | ......................(*.nested- |
| 2af680 | 63 61 6c 6c 73 20 3b 28 2b 20 63 61 6c 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | calls.;(+.calls)................ |
| 2af6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 6d 6f 6e 69 74 6f 72 2d | .......................*monitor- |
| 2af6c0 | 74 69 6d 65 2d 6f 76 65 72 68 65 61 64 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | time-overhead*))................ |
| 2af6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 69 6e 63 6c 75 73 69 76 65 2d 63 6f | .................(-.inclusive-co |
| 2af700 | 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ns.............................. |
| 2af720 | 20 20 20 20 20 20 28 2a 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 20 3b 28 2b 20 63 61 6c 6c 73 29 | ......(*.nested-calls.;(+.calls) |
| 2af740 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2af760 | 20 20 20 20 20 20 20 2a 6d 6f 6e 69 74 6f 72 2d 63 6f 6e 73 2d 6f 76 65 72 68 65 61 64 2a 29 29 | .......*monitor-cons-overhead*)) |
| 2af780 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 30 20 30 20 30 20 30 29 29 29 29 | )))).........(values.0.0.0.0)))) |
| 2af7a0 | 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ..;;;.************************** |
| 2af7c0 | 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 45 6e 63 61 70 73 75 6c 61 74 65 20 2a 2a 2a 2a 2a 2a 2a 2a 2a | ******.;;;.Encapsulate.********* |
| 2af7e0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***********.;;;.**************** |
| 2af800 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 28 65 76 61 6c 2d 77 68 65 6e 20 28 63 6f 6d | ****************.(eval-when.(com |
| 2af820 | 70 69 6c 65 20 6c 6f 61 64 20 65 76 61 6c 29 0a 3b 3b 20 52 65 74 75 72 6e 73 20 61 20 6c 61 6d | pile.load.eval).;;.Returns.a.lam |
| 2af840 | 62 64 61 20 65 78 70 72 65 73 73 69 6f 6e 20 66 6f 72 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 | bda.expression.for.a.function.th |
| 2af860 | 61 74 2c 20 77 68 65 6e 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 0a 3b 3b 20 66 75 6e 63 | at,.when.called.with.the.;;.func |
| 2af880 | 74 69 6f 6e 20 6e 61 6d 65 2c 20 77 69 6c 6c 20 73 65 74 20 75 70 20 74 68 61 74 20 66 75 6e 63 | tion.name,.will.set.up.that.func |
| 2af8a0 | 74 69 6f 6e 20 66 6f 72 20 6d 65 74 65 72 69 6e 67 2e 0a 3b 3b 0a 3b 3b 20 41 20 66 75 6e 63 74 | tion.for.metering..;;.;;.A.funct |
| 2af8c0 | 69 6f 6e 20 69 73 20 6d 6f 6e 69 74 6f 72 65 64 20 62 79 20 72 65 70 6c 61 63 69 6e 67 20 69 74 | ion.is.monitored.by.replacing.it |
| 2af8e0 | 73 20 64 65 66 69 6e 69 74 69 6f 6e 20 77 69 74 68 20 61 20 63 6c 6f 73 75 72 65 0a 3b 3b 20 63 | s.definition.with.a.closure.;;.c |
| 2af900 | 72 65 61 74 65 64 20 62 79 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 75 6e 63 74 69 6f 6e | reated.by.the.following.function |
| 2af920 | 2e 20 54 68 65 20 63 6c 6f 73 75 72 65 20 72 65 63 6f 72 64 73 20 74 68 65 20 6d 6f 6e 69 74 6f | ..The.closure.records.the.monito |
| 2af940 | 72 69 6e 67 0a 3b 3b 20 64 61 74 61 2c 20 61 6e 64 20 75 70 64 61 74 65 73 20 74 68 65 20 64 61 | ring.;;.data,.and.updates.the.da |
| 2af960 | 74 61 20 77 69 74 68 20 65 61 63 68 20 63 61 6c 6c 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f | ta.with.each.call.of.the.functio |
| 2af980 | 6e 2e 0a 3b 3b 0a 3b 3b 20 4f 74 68 65 72 20 63 6c 6f 73 75 72 65 73 20 61 72 65 20 75 73 65 64 | n..;;.;;.Other.closures.are.used |
| 2af9a0 | 20 74 6f 20 72 65 61 64 20 61 6e 64 20 72 65 73 65 74 20 74 68 65 20 64 61 74 61 2e 0a 28 64 65 | .to.read.and.reset.the.data..(de |
| 2af9c0 | 66 75 6e 20 6d 61 6b 65 2d 6d 6f 6e 69 74 6f 72 69 6e 67 2d 65 6e 63 61 70 73 75 6c 61 74 69 6f | fun.make-monitoring-encapsulatio |
| 2af9e0 | 6e 20 28 6d 69 6e 2d 61 72 67 73 20 6f 70 74 69 6f 6e 61 6c 73 2d 70 29 0a 20 20 28 6c 65 74 20 | n.(min-args.optionals-p)...(let. |
| 2afa00 | 28 72 65 71 75 69 72 65 64 2d 61 72 67 73 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 | (required-args).....(dotimes.(i. |
| 2afa20 | 6d 69 6e 2d 61 72 67 73 29 20 28 70 75 73 68 20 28 67 65 6e 73 79 6d 29 20 72 65 71 75 69 72 65 | min-args).(push.(gensym).require |
| 2afa40 | 64 2d 61 72 67 73 29 29 0a 20 20 20 20 60 28 6c 61 6d 62 64 61 20 28 6e 61 6d 65 29 0a 20 20 20 | d-args)).....`(lambda.(name).... |
| 2afa60 | 20 20 20 20 28 6c 65 74 20 28 28 69 6e 63 6c 75 73 69 76 65 2d 74 69 6d 65 20 30 29 0a 09 20 20 | ....(let.((inclusive-time.0).... |
| 2afa80 | 20 20 20 28 69 6e 63 6c 75 73 69 76 65 2d 63 6f 6e 73 20 30 29 0a 09 20 20 20 20 20 28 65 78 63 | ...(inclusive-cons.0).......(exc |
| 2afaa0 | 6c 75 73 69 76 65 2d 74 69 6d 65 20 30 29 0a 09 20 20 20 20 20 28 65 78 63 6c 75 73 69 76 65 2d | lusive-time.0).......(exclusive- |
| 2afac0 | 63 6f 6e 73 20 30 29 0a 09 20 20 20 20 20 28 63 61 6c 6c 73 20 30 29 0a 09 20 20 20 20 20 28 6e | cons.0).......(calls.0).......(n |
| 2afae0 | 65 73 74 65 64 2d 63 61 6c 6c 73 20 30 29 0a 09 20 20 20 20 20 28 6f 6c 64 2d 64 65 66 69 6e 69 | ested-calls.0).......(old-defini |
| 2afb00 | 74 69 6f 6e 20 28 70 6c 61 63 65 2d 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 09 20 28 | tion.(place-function.name)))...( |
| 2afb20 | 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 74 69 6d 65 2d 74 79 70 65 20 69 6e 63 6c 75 73 69 76 | declare.(type.time-type.inclusiv |
| 2afb40 | 65 2d 74 69 6d 65 29 0a 09 09 20 20 28 74 79 70 65 20 74 69 6d 65 2d 74 79 70 65 20 65 78 63 6c | e-time).....(type.time-type.excl |
| 2afb60 | 75 73 69 76 65 2d 74 69 6d 65 29 0a 09 09 20 20 28 74 79 70 65 20 63 6f 6e 73 69 6e 67 2d 74 79 | usive-time).....(type.consing-ty |
| 2afb80 | 70 65 20 69 6e 63 6c 75 73 69 76 65 2d 63 6f 6e 73 29 0a 09 09 20 20 28 74 79 70 65 20 63 6f 6e | pe.inclusive-cons).....(type.con |
| 2afba0 | 73 69 6e 67 2d 74 79 70 65 20 65 78 63 6c 75 73 69 76 65 2d 63 6f 6e 73 29 0a 09 09 20 20 28 66 | sing-type.exclusive-cons).....(f |
| 2afbc0 | 69 78 6e 75 6d 20 63 61 6c 6c 73 29 0a 09 09 20 20 28 66 69 78 6e 75 6d 20 6e 65 73 74 65 64 2d | ixnum.calls).....(fixnum.nested- |
| 2afbe0 | 63 61 6c 6c 73 29 29 0a 09 20 28 70 75 73 68 6e 65 77 20 6e 61 6d 65 20 2a 6d 6f 6e 69 74 6f 72 | calls))...(pushnew.name.*monitor |
| 2afc00 | 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 0a 0a 09 20 28 73 65 74 66 20 28 70 6c 61 63 65 2d 66 | ed-functions*)....(setf.(place-f |
| 2afc20 | 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 0a 09 20 20 20 20 20 20 20 23 27 28 6c 61 6d 62 64 61 20 | unction.name).........#'(lambda. |
| 2afc40 | 28 2c 40 72 65 71 75 69 72 65 64 2d 61 72 67 73 0a 09 09 09 20 20 2c 40 28 77 68 65 6e 20 6f 70 | (,@required-args......,@(when.op |
| 2afc60 | 74 69 6f 6e 61 6c 73 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tionals-p....................... |
| 2afc80 | 20 20 20 20 20 20 20 20 60 28 26 72 65 73 74 20 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 73 29 29 29 | ........`(&rest.optional-args))) |
| 2afca0 | 0a 09 09 20 20 20 28 6c 65 74 20 28 28 70 72 65 76 2d 74 6f 74 61 6c 2d 74 69 6d 65 20 2a 74 6f | ......(let.((prev-total-time.*to |
| 2afcc0 | 74 61 6c 2d 74 69 6d 65 2a 29 0a 09 09 09 20 28 70 72 65 76 2d 74 6f 74 61 6c 2d 63 6f 6e 73 20 | tal-time*).....(prev-total-cons. |
| 2afce0 | 2a 74 6f 74 61 6c 2d 63 6f 6e 73 2a 29 0a 09 09 09 20 28 70 72 65 76 2d 74 6f 74 61 6c 2d 63 61 | *total-cons*).....(prev-total-ca |
| 2afd00 | 6c 6c 73 20 2a 74 6f 74 61 6c 2d 63 61 6c 6c 73 2a 29 0a 09 09 09 20 3b 3b 20 28 6f 6c 64 2d 74 | lls.*total-calls*).....;;.(old-t |
| 2afd20 | 69 6d 65 20 69 6e 63 6c 75 73 69 76 65 2d 74 69 6d 65 29 0a 09 09 09 20 3b 3b 20 28 6f 6c 64 2d | ime.inclusive-time).....;;.(old- |
| 2afd40 | 63 6f 6e 73 20 69 6e 63 6c 75 73 69 76 65 2d 63 6f 6e 73 29 0a 09 09 09 20 3b 3b 20 28 6f 6c 64 | cons.inclusive-cons).....;;.(old |
| 2afd60 | 2d 6e 65 73 74 65 64 2d 63 61 6c 6c 73 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 29 0a 09 09 09 20 | -nested-calls.nested-calls)..... |
| 2afd80 | 29 0a 09 09 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 74 69 6d 65 2d 74 79 70 | )........(declare.(type.time-typ |
| 2afda0 | 65 20 70 72 65 76 2d 74 6f 74 61 6c 2d 74 69 6d 65 29 0a 09 09 09 20 20 20 20 20 20 28 74 79 70 | e.prev-total-time)..........(typ |
| 2afdc0 | 65 20 63 6f 6e 73 69 6e 67 2d 74 79 70 65 20 70 72 65 76 2d 74 6f 74 61 6c 2d 63 6f 6e 73 29 0a | e.consing-type.prev-total-cons). |
| 2afde0 | 09 09 09 20 20 20 20 20 20 28 66 69 78 6e 75 6d 20 70 72 65 76 2d 74 6f 74 61 6c 2d 63 61 6c 6c | .........(fixnum.prev-total-call |
| 2afe00 | 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 | s))......................(with-t |
| 2afe20 | 69 6d 65 2f 63 6f 6e 73 20 28 64 65 6c 74 61 2d 74 69 6d 65 20 64 65 6c 74 61 2d 63 6f 6e 73 29 | ime/cons.(delta-time.delta-cons) |
| 2afe40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 66 6f 72 6d 0a | ........................;;.form. |
| 2afe60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 69 66 20 6f 70 74 69 | .......................,(if.opti |
| 2afe80 | 6f 6e 61 6c 73 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | onals-p......................... |
| 2afea0 | 20 20 20 20 60 28 61 70 70 6c 79 20 6f 6c 64 2d 64 65 66 69 6e 69 74 69 6f 6e 0a 20 20 20 20 20 | ....`(apply.old-definition...... |
| 2afec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c | ..............................., |
| 2afee0 | 40 72 65 71 75 69 72 65 64 2d 61 72 67 73 20 6f 70 74 69 6f 6e 61 6c 2d 61 72 67 73 29 0a 20 20 | @required-args.optional-args)... |
| 2aff00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 66 75 6e 63 | ..........................`(func |
| 2aff20 | 61 6c 6c 20 6f 6c 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 2c 40 72 65 71 75 69 72 65 64 2d 61 72 | all.old-definition.,@required-ar |
| 2aff40 | 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 | gs))........................;;.p |
| 2aff60 | 6f 73 74 2d 70 72 6f 63 65 73 73 69 6e 67 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ost-processing:................. |
| 2aff80 | 20 20 20 20 20 20 20 3b 3b 20 43 61 6c 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......;;.Calls................. |
| 2affa0 | 20 20 20 20 20 20 20 28 69 6e 63 66 20 63 61 6c 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .......(incf.calls)............. |
| 2affc0 | 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 2a 74 6f 74 61 6c 2d 63 61 6c 6c 73 2a 29 0a | ...........(incf.*total-calls*). |
| 2affe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6e 65 73 74 65 64 | .......................;;.nested |
| 2b0000 | 2d 63 61 6c 6c 73 20 69 6e 63 6c 75 64 65 73 20 74 68 69 73 20 63 61 6c 6c 0a 20 20 20 20 20 20 | -calls.includes.this.call....... |
| 2b0020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 6e 65 73 74 65 64 2d 63 61 | .................(incf.nested-ca |
| 2b0040 | 6c 6c 73 20 28 74 68 65 20 66 69 78 6e 75 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lls.(the.fixnum................. |
| 2b0060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 2a | ............................(-.* |
| 2b0080 | 74 6f 74 61 6c 2d 63 61 6c 6c 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | total-calls*.................... |
| 2b00a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 76 | ............................prev |
| 2b00c0 | 2d 74 6f 74 61 6c 2d 63 61 6c 6c 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -total-calls)))................. |
| 2b00e0 | 20 20 20 20 20 20 20 3b 3b 20 28 73 65 74 66 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 20 28 2b 20 | .......;;.(setf.nested-calls.(+. |
| 2b0100 | 6f 6c 64 2d 6e 65 73 74 65 64 2d 63 61 6c 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | old-nested-calls................ |
| 2b0120 | 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........;;...................... |
| 2b0140 | 20 28 2d 20 2a 74 6f 74 61 6c 2d 63 61 6c 6c 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(-.*total-calls*............... |
| 2b0160 | 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........;;..................... |
| 2b0180 | 20 20 20 20 20 70 72 65 76 2d 74 6f 74 61 6c 2d 63 61 6c 6c 73 29 29 29 0a 20 20 20 20 20 20 20 | .....prev-total-calls)))........ |
| 2b01a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 69 6d 65 0a 20 20 20 20 20 20 20 20 | ................;;.Time......... |
| 2b01c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 50 72 6f 62 6c 65 6d 20 77 69 74 68 20 69 | ...............;;.Problem.with.i |
| 2b01e0 | 6e 63 6c 75 73 69 76 65 20 74 69 6d 65 20 69 73 20 74 68 61 74 20 69 74 0a 20 20 20 20 20 20 20 | nclusive.time.is.that.it........ |
| 2b0200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 75 72 72 65 6e 74 6c 79 20 64 6f 65 | ................;;.currently.doe |
| 2b0220 | 73 6e 27 74 20 61 64 64 20 76 61 6c 75 65 73 20 66 72 6f 6d 20 72 65 63 75 72 73 69 76 65 0a 20 | sn't.add.values.from.recursive.. |
| 2b0240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 61 6c 6c 73 20 74 | ......................;;.calls.t |
| 2b0260 | 6f 20 74 68 65 20 73 61 6d 65 20 66 75 6e 63 74 69 6f 6e 2e 20 43 68 61 6e 67 65 20 74 68 65 0a | o.the.same.function..Change.the. |
| 2b0280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 65 74 66 20 74 | .......................;;.setf.t |
| 2b02a0 | 6f 20 61 6e 20 69 6e 63 66 20 74 6f 20 66 69 78 20 74 68 69 73 3f 0a 20 20 20 20 20 20 20 20 20 | o.an.incf.to.fix.this?.......... |
| 2b02c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 69 6e 63 6c 75 73 69 76 65 2d 74 69 | ..............(incf.inclusive-ti |
| 2b02e0 | 6d 65 20 28 74 68 65 20 74 69 6d 65 2d 74 79 70 65 20 64 65 6c 74 61 2d 74 69 6d 65 29 29 0a 20 | me.(the.time-type.delta-time)).. |
| 2b0300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 73 65 74 66 20 69 | ......................;;.(setf.i |
| 2b0320 | 6e 63 6c 75 73 69 76 65 2d 74 69 6d 65 20 28 2b 20 64 65 6c 74 61 2d 74 69 6d 65 20 6f 6c 64 2d | nclusive-time.(+.delta-time.old- |
| 2b0340 | 74 69 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | time))........................(i |
| 2b0360 | 6e 63 66 20 65 78 63 6c 75 73 69 76 65 2d 74 69 6d 65 20 28 74 68 65 20 74 69 6d 65 2d 74 79 70 | ncf.exclusive-time.(the.time-typ |
| 2b0380 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e............................... |
| 2b03a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 64 65 6c 74 61 2d 74 69 6d 65 0a 20 20 | ................(+.delta-time... |
| 2b03c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2b03e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 70 72 65 76 2d 74 6f 74 61 6c 2d 74 69 6d | ...............(-.prev-total-tim |
| 2b0400 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e............................... |
| 2b0420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 74 6f 74 61 6c 2d 74 69 6d | ......................*total-tim |
| 2b0440 | 65 2a 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | e*))))........................(s |
| 2b0460 | 65 74 66 20 2a 74 6f 74 61 6c 2d 74 69 6d 65 2a 20 28 74 68 65 20 74 69 6d 65 2d 74 79 70 65 0a | etf.*total-time*.(the.time-type. |
| 2b0480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2b04a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 64 65 6c 74 61 2d 74 69 6d 65 0a 20 20 20 20 20 20 | ............(+.delta-time....... |
| 2b04c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2b04e0 | 20 20 20 20 20 20 20 20 20 70 72 65 76 2d 74 6f 74 61 6c 2d 74 69 6d 65 29 29 29 0a 20 20 20 20 | .........prev-total-time)))..... |
| 2b0500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6f 6e 73 69 6e 67 0a 20 20 | ...................;;.Consing... |
| 2b0520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 69 6e 63 6c 75 | .....................(incf.inclu |
| 2b0540 | 73 69 76 65 2d 63 6f 6e 73 20 28 74 68 65 20 63 6f 6e 73 69 6e 67 2d 74 79 70 65 20 64 65 6c 74 | sive-cons.(the.consing-type.delt |
| 2b0560 | 61 2d 63 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | a-cons))........................ |
| 2b0580 | 3b 3b 20 28 73 65 74 66 20 69 6e 63 6c 75 73 69 76 65 2d 63 6f 6e 73 20 28 2b 20 64 65 6c 74 61 | ;;.(setf.inclusive-cons.(+.delta |
| 2b05a0 | 2d 63 6f 6e 73 20 6f 6c 64 2d 63 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -cons.old-cons))................ |
| 2b05c0 | 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 65 78 63 6c 75 73 69 76 65 2d 63 6f 6e 73 20 28 74 68 | ........(incf.exclusive-cons.(th |
| 2b05e0 | 65 20 63 6f 6e 73 69 6e 67 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.consing-type.................. |
| 2b0600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 | .............................(+. |
| 2b0620 | 64 65 6c 74 61 2d 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | delta-cons...................... |
| 2b0640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 70 | ............................(-.p |
| 2b0660 | 72 65 76 2d 74 6f 74 61 6c 2d 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rev-total-cons.................. |
| 2b0680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2b06a0 | 20 20 20 2a 74 6f 74 61 6c 2d 63 6f 6e 73 2a 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...*total-cons*))))............. |
| 2b06c0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 2a 74 6f 74 61 6c 2d 63 6f 6e 73 2a 0a 20 20 | ...........(setf.*total-cons*... |
| 2b06e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 65 20 | ...........................(the. |
| 2b0700 | 63 6f 6e 73 69 6e 67 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | consing-type.................... |
| 2b0720 | 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 64 65 6c 74 61 2d 63 6f 6e 73 20 70 72 65 76 2d 74 | ............(+.delta-cons.prev-t |
| 2b0740 | 6f 74 61 6c 2d 63 6f 6e 73 29 29 29 29 29 29 29 0a 09 20 28 73 65 74 66 20 28 67 65 74 2d 6d 6f | otal-cons)))))))...(setf.(get-mo |
| 2b0760 | 6e 69 74 6f 72 2d 69 6e 66 6f 20 6e 61 6d 65 29 0a 09 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6d | nitor-info.name).........(make-m |
| 2b0780 | 65 74 65 72 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 73 0a 09 09 3a 6e 61 6d 65 20 6e 61 6d 65 0a 09 | etering-functions...:name.name.. |
| 2b07a0 | 09 3a 6f 6c 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6f 6c 64 2d 64 65 66 69 6e 69 74 69 6f 6e 0a | .:old-definition.old-definition. |
| 2b07c0 | 09 09 3a 6e 65 77 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 70 6c 61 63 65 2d 66 75 6e 63 74 69 6f | ..:new-definition.(place-functio |
| 2b07e0 | 6e 20 6e 61 6d 65 29 0a 09 09 3a 72 65 61 64 2d 6d 65 74 65 72 69 6e 67 20 23 27 28 6c 61 6d 62 | n.name)...:read-metering.#'(lamb |
| 2b0800 | 64 61 20 28 29 0a 09 09 09 09 20 20 20 28 76 61 6c 75 65 73 20 69 6e 63 6c 75 73 69 76 65 2d 74 | da.()........(values.inclusive-t |
| 2b0820 | 69 6d 65 0a 09 09 09 09 09 20 20 20 69 6e 63 6c 75 73 69 76 65 2d 63 6f 6e 73 0a 09 09 09 09 09 | ime.........inclusive-cons...... |
| 2b0840 | 20 20 20 65 78 63 6c 75 73 69 76 65 2d 74 69 6d 65 0a 09 09 09 09 09 20 20 20 65 78 63 6c 75 73 | ...exclusive-time.........exclus |
| 2b0860 | 69 76 65 2d 63 6f 6e 73 0a 09 09 09 09 09 20 20 20 63 61 6c 6c 73 0a 09 09 09 09 09 20 20 20 6e | ive-cons.........calls.........n |
| 2b0880 | 65 73 74 65 64 2d 63 61 6c 6c 73 29 29 0a 09 09 3a 72 65 73 65 74 2d 6d 65 74 65 72 69 6e 67 20 | ested-calls))...:reset-metering. |
| 2b08a0 | 23 27 28 6c 61 6d 62 64 61 20 28 29 0a 09 09 09 09 20 20 20 20 28 73 65 74 71 20 69 6e 63 6c 75 | #'(lambda.().........(setq.inclu |
| 2b08c0 | 73 69 76 65 2d 74 69 6d 65 20 30 0a 09 09 09 09 09 20 20 69 6e 63 6c 75 73 69 76 65 2d 63 6f 6e | sive-time.0........inclusive-con |
| 2b08e0 | 73 20 30 0a 09 09 09 09 09 20 20 65 78 63 6c 75 73 69 76 65 2d 74 69 6d 65 20 30 0a 09 09 09 09 | s.0........exclusive-time.0..... |
| 2b0900 | 09 20 20 65 78 63 6c 75 73 69 76 65 2d 63 6f 6e 73 20 30 0a 09 09 09 09 09 20 20 63 61 6c 6c 73 | ...exclusive-cons.0........calls |
| 2b0920 | 20 30 0a 09 09 09 09 09 20 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 20 30 29 0a 09 09 09 09 20 20 | .0........nested-calls.0)....... |
| 2b0940 | 20 20 74 29 29 29 29 29 29 29 0a 29 3b 3b 20 45 6e 64 20 6f 66 20 45 56 41 4c 2d 57 48 45 4e 0a | ..t))))))).);;.End.of.EVAL-WHEN. |
| 2b0960 | 0a 3b 3b 3b 20 46 6f 72 20 65 66 66 69 63 69 65 6e 63 79 20 72 65 61 73 6f 6e 73 2c 20 77 65 20 | .;;;.For.efficiency.reasons,.we. |
| 2b0980 | 70 72 65 63 6f 6d 70 75 74 65 20 74 68 65 20 65 6e 63 61 70 73 75 6c 61 74 69 6f 6e 20 66 75 6e | precompute.the.encapsulation.fun |
| 2b09a0 | 63 74 69 6f 6e 73 0a 3b 3b 3b 20 66 6f 72 20 61 20 76 61 72 69 65 74 79 20 6f 66 20 63 6f 6d 62 | ctions.;;;.for.a.variety.of.comb |
| 2b09c0 | 69 6e 61 74 69 6f 6e 73 20 6f 66 20 61 72 67 75 6d 65 6e 74 20 73 74 72 75 63 74 75 72 65 73 0a | inations.of.argument.structures. |
| 2b09e0 | 3b 3b 3b 20 28 6d 69 6e 2d 61 72 67 73 20 2e 20 6f 70 74 69 6f 6e 61 6c 2d 70 29 2e 20 54 68 65 | ;;;.(min-args...optional-p)..The |
| 2b0a00 | 73 65 20 61 72 65 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 68 | se.are.stored.in.the.following.h |
| 2b0a20 | 61 73 68 20 74 61 62 6c 65 0a 3b 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 61 6e 79 20 6e 65 77 | ash.table.;;;.along.with.any.new |
| 2b0a40 | 20 6f 6e 65 73 20 77 65 20 65 6e 63 6f 75 6e 74 65 72 2e 20 53 69 6e 63 65 20 77 65 27 72 65 20 | .ones.we.encounter..Since.we're. |
| 2b0a60 | 6e 6f 77 20 70 72 65 63 6f 6d 70 75 74 69 6e 67 0a 3b 3b 3b 20 63 6c 6f 73 75 72 65 20 66 75 6e | now.precomputing.;;;.closure.fun |
| 2b0a80 | 63 74 69 6f 6e 73 20 66 6f 72 20 63 6f 6d 6d 6f 6e 20 61 72 67 75 6d 65 6e 74 20 73 69 67 6e 61 | ctions.for.common.argument.signa |
| 2b0aa0 | 74 75 72 65 73 2c 20 74 68 69 73 20 65 6c 69 6d 69 6e 61 74 65 73 0a 3b 3b 3b 20 74 68 65 20 66 | tures,.this.eliminates.;;;.the.f |
| 2b0ac0 | 6f 72 6d 65 72 20 6e 65 65 64 20 74 6f 20 63 61 6c 6c 20 43 4f 4d 50 49 4c 45 20 66 6f 72 20 65 | ormer.need.to.call.COMPILE.for.e |
| 2b0ae0 | 61 63 68 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f 6e 2e 0a 28 65 76 61 6c 2d 77 68 | ach.monitored.function..(eval-wh |
| 2b0b00 | 65 6e 20 28 63 6f 6d 70 69 6c 65 20 65 76 61 6c 29 0a 20 20 20 28 64 65 66 63 6f 6e 73 74 61 6e | en.(compile.eval)....(defconstan |
| 2b0b20 | 74 20 70 72 65 63 6f 6d 70 75 74 65 64 2d 65 6e 63 61 70 73 75 6c 61 74 69 6f 6e 73 20 38 29 29 | t.precomputed-encapsulations.8)) |
| 2b0b40 | 0a 0a 28 64 65 66 76 61 72 20 2a 65 78 69 73 74 69 6e 67 2d 65 6e 63 61 70 73 75 6c 61 74 69 6f | ..(defvar.*existing-encapsulatio |
| 2b0b60 | 6e 73 2a 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 | ns*.(make-hash-table.:test.#'equ |
| 2b0b80 | 61 6c 29 29 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 65 6e 63 61 70 73 75 6c 61 74 69 6f 6e 20 28 | al)).(defun.find-encapsulation.( |
| 2b0ba0 | 6d 69 6e 2d 61 72 67 73 20 6f 70 74 69 6f 6e 61 6c 73 2d 70 29 0a 20 20 28 6f 72 20 28 67 65 74 | min-args.optionals-p)...(or.(get |
| 2b0bc0 | 68 61 73 68 20 28 63 6f 6e 73 20 6d 69 6e 2d 61 72 67 73 20 6f 70 74 69 6f 6e 61 6c 73 2d 70 29 | hash.(cons.min-args.optionals-p) |
| 2b0be0 | 20 2a 65 78 69 73 74 69 6e 67 2d 65 6e 63 61 70 73 75 6c 61 74 69 6f 6e 73 2a 29 0a 20 20 20 20 | .*existing-encapsulations*)..... |
| 2b0c00 | 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 28 63 6f 6e 73 20 6d 69 6e 2d 61 72 67 73 20 | ..(setf.(gethash.(cons.min-args. |
| 2b0c20 | 6f 70 74 69 6f 6e 61 6c 73 2d 70 29 20 2a 65 78 69 73 74 69 6e 67 2d 65 6e 63 61 70 73 75 6c 61 | optionals-p).*existing-encapsula |
| 2b0c40 | 74 69 6f 6e 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 20 6e 69 6c | tions*).............(compile.nil |
| 2b0c60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6d 6f 6e 69 | ......................(make-moni |
| 2b0c80 | 74 6f 72 69 6e 67 2d 65 6e 63 61 70 73 75 6c 61 74 69 6f 6e 20 6d 69 6e 2d 61 72 67 73 20 6f 70 | toring-encapsulation.min-args.op |
| 2b0ca0 | 74 69 6f 6e 61 6c 73 2d 70 29 29 29 29 29 0a 0a 28 6d 61 63 72 6f 6c 65 74 20 28 28 66 72 6f 62 | tionals-p)))))..(macrolet.((frob |
| 2b0cc0 | 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 20 28 29 29 29 | .()..............(let.((res.())) |
| 2b0ce0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 70 72 65 63 | ................(dotimes.(i.prec |
| 2b0d00 | 6f 6d 70 75 74 65 64 2d 65 6e 63 61 70 73 75 6c 61 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 | omputed-encapsulations)......... |
| 2b0d20 | 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 27 | .........(push.`(setf.(gethash.' |
| 2b0d40 | 28 2c 69 20 2e 20 6e 69 6c 29 20 2a 65 78 69 73 74 69 6e 67 2d 65 6e 63 61 70 73 75 6c 61 74 69 | (,i...nil).*existing-encapsulati |
| 2b0d60 | 6f 6e 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ons*)........................... |
| 2b0d80 | 20 20 20 20 23 27 2c 28 6d 61 6b 65 2d 6d 6f 6e 69 74 6f 72 69 6e 67 2d 65 6e 63 61 70 73 75 6c | ....#',(make-monitoring-encapsul |
| 2b0da0 | 61 74 69 6f 6e 20 69 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ation.i.nil))................... |
| 2b0dc0 | 20 20 20 20 20 72 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 | .....res)..................(push |
| 2b0de0 | 20 60 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 27 28 2c 69 20 2e 20 74 29 20 2a 65 78 69 73 | .`(setf.(gethash.'(,i...t).*exis |
| 2b0e00 | 74 69 6e 67 2d 65 6e 63 61 70 73 75 6c 61 74 69 6f 6e 73 2a 29 0a 20 20 20 20 20 20 20 20 20 20 | ting-encapsulations*)........... |
| 2b0e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 2c 28 6d 61 6b 65 2d 6d 6f 6e | ....................#',(make-mon |
| 2b0e40 | 69 74 6f 72 69 6e 67 2d 65 6e 63 61 70 73 75 6c 61 74 69 6f 6e 20 69 20 74 29 29 0a 20 20 20 20 | itoring-encapsulation.i.t))..... |
| 2b0e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 29 29 0a 20 20 20 20 20 20 20 | ...................res))........ |
| 2b0e80 | 20 20 20 20 20 20 20 20 60 28 70 72 6f 67 6e 20 2c 40 72 65 73 29 29 29 29 0a 20 20 28 66 72 6f | ........`(progn.,@res))))...(fro |
| 2b0ea0 | 62 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 6e 69 74 6f 72 69 6e 67 2d 65 6e 63 61 70 73 75 6c 61 | b))..(defun.monitoring-encapsula |
| 2b0ec0 | 74 65 20 28 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 77 61 72 6e 29 0a 20 20 22 4d 6f 6e 69 | te.(name.&optional.warn)..."Moni |
| 2b0ee0 | 74 6f 72 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 4e 61 6d 65 2e 20 49 66 20 61 6c 72 65 61 64 | tor.the.function.Name..If.alread |
| 2b0f00 | 79 20 6d 6f 6e 69 74 6f 72 65 64 2c 20 75 6e 6d 6f 6e 69 74 6f 72 20 66 69 72 73 74 2e 22 0a 20 | y.monitored,.unmonitor.first.".. |
| 2b0f20 | 20 3b 3b 20 53 61 76 65 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 69 6e 69 74 69 6f 6e | .;;.Saves.the.current.definition |
| 2b0f40 | 20 6f 66 20 6e 61 6d 65 20 61 6e 64 20 69 6e 73 65 72 74 73 20 61 20 6e 65 77 20 66 75 6e 63 74 | .of.name.and.inserts.a.new.funct |
| 2b0f60 | 69 6f 6e 20 77 68 69 63 68 0a 20 20 3b 3b 20 72 65 74 75 72 6e 73 20 74 68 65 20 72 65 73 75 6c | ion.which...;;.returns.the.resul |
| 2b0f80 | 74 20 6f 66 20 65 76 61 6c 75 61 74 69 6e 67 20 62 6f 64 79 2e 0a 20 20 28 63 6f 6e 64 20 28 28 | t.of.evaluating.body....(cond.(( |
| 2b0fa0 | 6e 6f 74 20 28 70 6c 61 63 65 2d 66 62 6f 75 6e 64 70 20 6e 61 6d 65 29 29 20 20 20 20 20 3b 20 | not.(place-fboundp.name)).....;. |
| 2b0fc0 | 6e 6f 74 20 61 20 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 77 61 | not.a.function..........(when.wa |
| 2b0fe0 | 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 20 22 49 67 6e 6f 72 69 6e 67 20 75 6e | rn............(warn."Ignoring.un |
| 2b1000 | 64 65 66 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20 7e 53 2e 22 20 6e 61 6d 65 29 29 29 0a 20 20 | defined.function.~S.".name)))... |
| 2b1020 | 20 20 20 20 20 20 28 28 70 6c 61 63 65 2d 6d 61 63 72 6f 70 20 6e 61 6d 65 29 20 20 20 20 20 20 | ......((place-macrop.name)...... |
| 2b1040 | 20 20 20 20 20 20 3b 20 61 20 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 77 | ......;.a.macro..........(when.w |
| 2b1060 | 61 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 20 22 49 67 6e 6f 72 69 6e 67 20 6d | arn............(warn."Ignoring.m |
| 2b1080 | 61 63 72 6f 20 7e 53 2e 22 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 20 20 20 | acro.~S.".name))).........(t.... |
| 2b10a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 69 73 20 | ..........................;.tis. |
| 2b10c0 | 61 20 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 67 65 74 2d 6d | a.function..........(when.(get-m |
| 2b10e0 | 6f 6e 69 74 6f 72 2d 69 6e 66 6f 20 6e 61 6d 65 29 20 3b 20 6d 6f 6e 69 74 6f 72 65 64 0a 20 20 | onitor-info.name).;.monitored... |
| 2b1100 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 77 61 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .........(when.warn............. |
| 2b1120 | 20 28 77 61 72 6e 20 22 7e 53 20 61 6c 72 65 61 64 79 20 6d 6f 6e 69 74 6f 72 65 64 2c 20 73 6f | .(warn."~S.already.monitored,.so |
| 2b1140 | 20 75 6e 6d 6f 6e 69 74 6f 72 69 6e 67 20 69 74 20 66 69 72 73 74 2e 22 20 6e 61 6d 65 29 29 0a | .unmonitoring.it.first.".name)). |
| 2b1160 | 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 6e 69 74 6f 72 69 6e 67 2d 75 6e 65 6e 63 61 70 73 75 | ...........(monitoring-unencapsu |
| 2b1180 | 6c 61 74 65 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 | late.name))..........(multiple-v |
| 2b11a0 | 61 6c 75 65 2d 62 69 6e 64 20 28 6d 69 6e 2d 61 72 67 73 20 6f 70 74 69 6f 6e 61 6c 73 2d 70 29 | alue-bind.(min-args.optionals-p) |
| 2b11c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 64 2d 61 72 67 75 6d 65 6e 74 | ..............(required-argument |
| 2b11e0 | 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 66 69 6e | s.name)............(funcall.(fin |
| 2b1200 | 64 2d 65 6e 63 61 70 73 75 6c 61 74 69 6f 6e 20 6d 69 6e 2d 61 72 67 73 20 6f 70 74 69 6f 6e 61 | d-encapsulation.min-args.optiona |
| 2b1220 | 6c 73 2d 70 29 20 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 6e 69 74 6f 72 69 | ls-p).name)))))..(defun.monitori |
| 2b1240 | 6e 67 2d 75 6e 65 6e 63 61 70 73 75 6c 61 74 65 20 28 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c | ng-unencapsulate.(name.&optional |
| 2b1260 | 20 77 61 72 6e 29 0a 20 20 22 52 65 6d 6f 76 65 73 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 65 6e 63 | .warn)..."Removes.monitoring.enc |
| 2b1280 | 61 70 73 75 6c 61 74 69 6f 6e 20 63 6f 64 65 20 66 72 6f 6d 20 61 72 6f 75 6e 64 20 4e 61 6d 65 | apsulation.code.from.around.Name |
| 2b12a0 | 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6e 66 6f 20 28 67 65 74 2d 6d 6f 6e 69 74 6f 72 2d 69 | ."...(let.((finfo.(get-monitor-i |
| 2b12c0 | 6e 66 6f 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 66 69 6e 66 6f 20 20 20 20 20 | nfo.name))).....(when.finfo..... |
| 2b12e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 6f 6e 69 74 6f 72 65 64 0a | ....................;.monitored. |
| 2b1300 | 20 20 20 20 20 20 28 72 65 6d 70 72 6f 70 20 6e 61 6d 65 20 27 6d 65 74 65 72 69 6e 67 2d 66 75 | ......(remprop.name.'metering-fu |
| 2b1320 | 6e 63 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 2a 6d 6f 6e 69 74 6f 72 65 64 2d | nctions).......(setq.*monitored- |
| 2b1340 | 66 75 6e 63 74 69 6f 6e 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 20 6e | functions*.............(remove.n |
| 2b1360 | 61 6d 65 20 2a 6d 6f 6e 69 74 6f 72 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a 20 3a 74 65 73 74 20 | ame.*monitored-functions*.:test. |
| 2b1380 | 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 65 71 20 28 70 6c 61 63 65 2d 66 | #'equal)).......(if.(eq.(place-f |
| 2b13a0 | 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 74 | unction.name)...............(met |
| 2b13c0 | 65 72 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 73 2d 6e 65 77 2d 64 65 66 69 6e 69 74 69 6f 6e 20 66 | ering-functions-new-definition.f |
| 2b13e0 | 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 70 6c 61 63 65 2d 66 75 | info))...........(setf.(place-fu |
| 2b1400 | 6e 63 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 | nction.name).................(me |
| 2b1420 | 74 65 72 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 73 2d 6f 6c 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 | tering-functions-old-definition. |
| 2b1440 | 66 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 77 61 72 6e 0a 20 20 20 | finfo))...........(when.warn.... |
| 2b1460 | 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 20 22 50 72 65 73 65 72 76 69 6e 67 20 63 75 72 72 65 | .........(warn."Preserving.curre |
| 2b1480 | 6e 74 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 72 65 64 65 66 69 6e 65 64 20 66 75 6e 63 74 | nt.definition.of.redefined.funct |
| 2b14a0 | 69 6f 6e 20 7e 53 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 | ion.~S."...................name) |
| 2b14c0 | 29 29 29 29 29 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | )))))..;;;.********************* |
| 2b14e0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 4d 61 69 6e 20 4d 6f 6e 69 74 6f 72 69 6e 67 20 | ***********.;;;.Main.Monitoring. |
| 2b1500 | 46 75 6e 63 74 69 6f 6e 73 20 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | Functions.******.;;;.*********** |
| 2b1520 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 28 64 65 66 6d 61 63 72 6f 20 | *********************.(defmacro. |
| 2b1540 | 4d 4f 4e 49 54 4f 52 20 28 26 72 65 73 74 20 6e 61 6d 65 73 29 0a 20 20 22 4d 6f 6e 69 74 6f 72 | MONITOR.(&rest.names)..."Monitor |
| 2b1560 | 20 74 68 65 20 6e 61 6d 65 64 20 66 75 6e 63 74 69 6f 6e 73 2e 20 41 73 20 69 6e 20 54 52 41 43 | .the.named.functions..As.in.TRAC |
| 2b1580 | 45 2c 20 74 68 65 20 6e 61 6d 65 73 20 61 72 65 20 6e 6f 74 20 65 76 61 6c 75 61 74 65 64 2e 0a | E,.the.names.are.not.evaluated.. |
| 2b15a0 | 20 20 20 49 66 20 61 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 6c 72 65 61 64 79 20 6d 6f 6e 69 | ...If.a.function.is.already.moni |
| 2b15c0 | 74 6f 72 65 64 2c 20 74 68 65 6e 20 75 6e 6d 6f 6e 69 74 6f 72 20 61 6e 64 20 72 65 6d 6f 6e 69 | tored,.then.unmonitor.and.remoni |
| 2b15e0 | 74 6f 72 20 28 75 73 65 66 75 6c 0a 20 20 20 74 6f 20 6e 6f 74 69 63 65 20 66 75 6e 63 74 69 6f | tor.(useful....to.notice.functio |
| 2b1600 | 6e 20 72 65 64 65 66 69 6e 69 74 69 6f 6e 29 2e 20 49 66 20 61 20 6e 61 6d 65 20 69 73 20 75 6e | n.redefinition)..If.a.name.is.un |
| 2b1620 | 64 65 66 69 6e 65 64 2c 20 67 69 76 65 20 61 20 77 61 72 6e 69 6e 67 0a 20 20 20 61 6e 64 20 69 | defined,.give.a.warning....and.i |
| 2b1640 | 67 6e 6f 72 65 20 69 74 2e 20 53 65 65 20 61 6c 73 6f 20 75 6e 6d 6f 6e 69 74 6f 72 2c 20 72 65 | gnore.it..See.also.unmonitor,.re |
| 2b1660 | 70 6f 72 74 2d 6d 6f 6e 69 74 6f 72 69 6e 67 2c 0a 20 20 20 64 69 73 70 6c 61 79 2d 6d 6f 6e 69 | port-monitoring,....display-moni |
| 2b1680 | 74 6f 72 69 6e 67 2d 72 65 73 75 6c 74 73 20 61 6e 64 20 72 65 73 65 74 2d 74 69 6d 65 2e 22 0a | toring-results.and.reset-time.". |
| 2b16a0 | 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 2c 40 28 6d 61 70 63 61 72 20 23 27 28 6c 61 6d 62 | ..`(progn......,@(mapcar.#'(lamb |
| 2b16c0 | 64 61 20 28 6e 61 6d 65 29 20 60 28 6d 6f 6e 69 74 6f 72 69 6e 67 2d 65 6e 63 61 70 73 75 6c 61 | da.(name).`(monitoring-encapsula |
| 2b16e0 | 74 65 20 27 2c 6e 61 6d 65 29 29 20 6e 61 6d 65 73 29 0a 20 20 20 20 20 2a 6d 6f 6e 69 74 6f 72 | te.',name)).names)......*monitor |
| 2b1700 | 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 55 4e 4d 4f 4e | ed-functions*))..(defmacro.UNMON |
| 2b1720 | 49 54 4f 52 20 28 26 72 65 73 74 20 6e 61 6d 65 73 29 0a 20 20 22 52 65 6d 6f 76 65 20 74 68 65 | ITOR.(&rest.names)..."Remove.the |
| 2b1740 | 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 6f 6e 20 74 68 65 20 6e 61 6d 65 64 20 66 75 6e 63 74 69 6f | .monitoring.on.the.named.functio |
| 2b1760 | 6e 73 2e 0a 20 20 20 4e 61 6d 65 73 20 64 65 66 61 75 6c 74 73 20 74 6f 20 74 68 65 20 6c 69 73 | ns.....Names.defaults.to.the.lis |
| 2b1780 | 74 20 6f 66 20 61 6c 6c 20 63 75 72 72 65 6e 74 6c 79 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e | t.of.all.currently.monitored.fun |
| 2b17a0 | 63 74 69 6f 6e 73 2e 22 0a 20 20 60 28 64 6f 6c 69 73 74 20 28 6e 61 6d 65 20 2c 28 69 66 20 6e | ctions."...`(dolist.(name.,(if.n |
| 2b17c0 | 61 6d 65 73 20 60 27 2c 6e 61 6d 65 73 20 27 2a 6d 6f 6e 69 74 6f 72 65 64 2d 66 75 6e 63 74 69 | ames.`',names.'*monitored-functi |
| 2b17e0 | 6f 6e 73 2a 29 20 28 76 61 6c 75 65 73 29 29 0a 20 20 20 20 20 28 6d 6f 6e 69 74 6f 72 69 6e 67 | ons*).(values))......(monitoring |
| 2b1800 | 2d 75 6e 65 6e 63 61 70 73 75 6c 61 74 65 20 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 4d | -unencapsulate.name)))..(defun.M |
| 2b1820 | 4f 4e 49 54 4f 52 2d 41 4c 4c 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 70 61 63 6b 61 67 65 20 2a | ONITOR-ALL.(&optional.(package.* |
| 2b1840 | 70 61 63 6b 61 67 65 2a 29 29 0a 20 20 22 4d 6f 6e 69 74 6f 72 20 61 6c 6c 20 66 75 6e 63 74 69 | package*))..."Monitor.all.functi |
| 2b1860 | 6f 6e 73 20 69 6e 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 70 61 63 6b 61 67 65 2e 22 0a 20 | ons.in.the.specified.package.".. |
| 2b1880 | 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 20 28 69 66 20 28 70 61 63 6b 61 67 65 70 20 70 61 | .(let.((package.(if.(packagep.pa |
| 2b18a0 | 63 6b 61 67 65 29 0a 09 09 20 20 20 20 20 70 61 63 6b 61 67 65 0a 09 09 20 20 20 20 20 28 66 69 | ckage)........package........(fi |
| 2b18c0 | 6e 64 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 29 29 0a 20 20 20 20 28 64 6f 2d 73 | nd-package.package)))).....(do-s |
| 2b18e0 | 79 6d 62 6f 6c 73 20 28 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 28 77 | ymbols.(symbol.package).......(w |
| 2b1900 | 68 65 6e 20 28 65 71 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 73 79 6d 62 6f 6c 29 20 | hen.(eq.(symbol-package.symbol). |
| 2b1920 | 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 28 6d 6f 6e 69 74 6f 72 69 6e 67 2d 65 6e 63 | package).........(monitoring-enc |
| 2b1940 | 61 70 73 75 6c 61 74 65 20 73 79 6d 62 6f 6c 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 | apsulate.symbol)))))..(defmacro. |
| 2b1960 | 4d 4f 4e 49 54 4f 52 2d 46 4f 52 4d 20 28 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | MONITOR-FORM.(form.............. |
| 2b1980 | 20 20 20 20 20 20 20 20 20 20 20 26 6f 70 74 69 6f 6e 61 6c 20 28 6e 65 73 74 65 64 20 3a 65 78 | ...........&optional.(nested.:ex |
| 2b19a0 | 63 6c 75 73 69 76 65 29 20 28 74 68 72 65 73 68 6f 6c 64 20 30 2e 30 31 29 0a 20 20 20 20 20 20 | clusive).(threshold.0.01)....... |
| 2b19c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 20 3a 70 65 72 63 65 6e 74 2d | ..................(key.:percent- |
| 2b19e0 | 74 69 6d 65 29 29 0a 20 20 22 4d 6f 6e 69 74 6f 72 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 | time))..."Monitor.the.execution. |
| 2b1a00 | 6f 66 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 | of.all.functions.in.the.current. |
| 2b1a20 | 70 61 63 6b 61 67 65 0a 64 75 72 69 6e 67 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 | package.during.the.execution.of. |
| 2b1a40 | 46 4f 52 4d 2e 20 20 41 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 61 72 65 20 65 78 | FORM...All.functions.that.are.ex |
| 2b1a60 | 65 63 75 74 65 64 20 61 62 6f 76 65 0a 54 48 52 45 53 48 4f 4c 44 20 25 20 77 69 6c 6c 20 62 65 | ecuted.above.THRESHOLD.%.will.be |
| 2b1a80 | 20 72 65 70 6f 72 74 65 64 2e 22 0a 20 20 60 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 | .reported."...`(unwind-protect.. |
| 2b1aa0 | 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 28 6d 6f 6e 69 74 6f 72 2d 61 | ......(progn..........(monitor-a |
| 2b1ac0 | 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 73 65 74 2d 61 6c 6c 2d 6d 6f 6e 69 74 6f 72 69 | ll)..........(reset-all-monitori |
| 2b1ae0 | 6e 67 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ng)..........(prog1............. |
| 2b1b00 | 20 28 74 69 6d 65 20 2c 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6f 72 74 | .(time.,form)............(report |
| 2b1b20 | 2d 6d 6f 6e 69 74 6f 72 69 6e 67 20 3a 61 6c 6c 20 2c 6e 65 73 74 65 64 20 2c 74 68 72 65 73 68 | -monitoring.:all.,nested.,thresh |
| 2b1b40 | 6f 6c 64 20 2c 6b 65 79 20 3a 69 67 6e 6f 72 65 2d 6e 6f 2d 63 61 6c 6c 73 29 29 29 0a 20 20 20 | old.,key.:ignore-no-calls))).... |
| 2b1b60 | 20 20 28 75 6e 6d 6f 6e 69 74 6f 72 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 57 49 54 48 2d | ..(unmonitor)))..(defmacro.WITH- |
| 2b1b80 | 4d 4f 4e 49 54 4f 52 49 4e 47 20 28 28 26 72 65 73 74 20 66 75 6e 63 74 69 6f 6e 73 29 0a 20 20 | MONITORING.((&rest.functions)... |
| 2b1ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 26 6f 70 74 69 6f | .........................(&optio |
| 2b1bc0 | 6e 61 6c 20 28 6e 65 73 74 65 64 20 3a 65 78 63 6c 75 73 69 76 65 29 0a 20 20 20 20 20 20 20 20 | nal.(nested.:exclusive)......... |
| 2b1be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 | ..............................(t |
| 2b1c00 | 68 72 65 73 68 6f 6c 64 20 30 2e 30 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hreshold.0.01).................. |
| 2b1c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 20 3a 70 65 72 63 65 | .....................(key.:perce |
| 2b1c40 | 6e 74 2d 74 69 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt-time))....................... |
| 2b1c60 | 20 20 20 20 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 4d 6f 6e 69 74 6f 72 20 74 68 65 20 | .....&body.body)..."Monitor.the. |
| 2b1c80 | 73 70 65 63 69 66 69 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 64 75 72 69 6e 67 20 74 68 65 20 65 | specified.functions.during.the.e |
| 2b1ca0 | 78 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 62 6f 64 79 2e 22 0a 20 20 60 28 75 6e 77 69 6e | xecution.of.the.body."...`(unwin |
| 2b1cc0 | 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 | d-protect........(progn......... |
| 2b1ce0 | 20 28 64 6f 6c 69 73 74 20 28 66 75 6e 20 27 2c 66 75 6e 63 74 69 6f 6e 73 29 0a 20 20 20 20 20 | .(dolist.(fun.',functions)...... |
| 2b1d00 | 20 20 20 20 20 20 28 6d 6f 6e 69 74 6f 72 69 6e 67 2d 65 6e 63 61 70 73 75 6c 61 74 65 20 66 75 | ......(monitoring-encapsulate.fu |
| 2b1d20 | 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 73 65 74 2d 61 6c 6c 2d 6d 6f 6e 69 74 6f 72 69 | n))..........(reset-all-monitori |
| 2b1d40 | 6e 67 29 0a 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 28 72 65 | ng)..........,@body..........(re |
| 2b1d60 | 70 6f 72 74 2d 6d 6f 6e 69 74 6f 72 69 6e 67 20 3a 61 6c 6c 20 2c 6e 65 73 74 65 64 20 2c 74 68 | port-monitoring.:all.,nested.,th |
| 2b1d80 | 72 65 73 68 6f 6c 64 20 2c 6b 65 79 29 29 0a 20 20 20 20 20 28 75 6e 6d 6f 6e 69 74 6f 72 29 29 | reshold.,key))......(unmonitor)) |
| 2b1da0 | 29 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | )..;;;.************************* |
| 2b1dc0 | 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 4f 76 65 72 68 65 61 64 20 43 61 6c 63 75 6c 61 74 69 6f 6e | *******.;;;.Overhead.Calculation |
| 2b1de0 | 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | s.**********.;;;.*************** |
| 2b1e00 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 28 64 65 66 63 6f 6e 73 74 61 6e 74 20 6f | *****************.(defconstant.o |
| 2b1e20 | 76 65 72 68 65 61 64 2d 69 74 65 72 61 74 69 6f 6e 73 20 35 30 30 30 0a 20 20 22 4e 75 6d 62 65 | verhead-iterations.5000..."Numbe |
| 2b1e40 | 72 20 6f 66 20 69 74 65 72 61 74 69 6f 6e 73 20 6f 76 65 72 20 77 68 69 63 68 20 74 68 65 20 74 | r.of.iterations.over.which.the.t |
| 2b1e60 | 69 6d 69 6e 67 20 6f 76 65 72 68 65 61 64 20 69 73 20 61 76 65 72 61 67 65 64 2e 22 29 0a 0a 3b | iming.overhead.is.averaged.")..; |
| 2b1e80 | 3b 3b 20 50 65 72 68 61 70 73 20 74 68 69 73 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 73 6f | ;;.Perhaps.this.should.return.so |
| 2b1ea0 | 6d 65 74 68 69 6e 67 20 74 6f 20 66 72 75 73 74 72 61 74 65 20 63 6c 65 76 65 72 20 63 6f 6d 70 | mething.to.frustrate.clever.comp |
| 2b1ec0 | 69 6c 65 72 73 2e 0a 28 64 65 66 75 6e 20 53 54 55 42 2d 46 55 4e 43 54 49 4f 4e 20 28 78 29 0a | ilers..(defun.STUB-FUNCTION.(x). |
| 2b1ee0 | 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 78 29 29 0a 20 20 6e 69 6c 29 0a 28 70 | ..(declare.(ignore.x))...nil).(p |
| 2b1f00 | 72 6f 63 6c 61 69 6d 20 27 28 6e 6f 74 69 6e 6c 69 6e 65 20 73 74 75 62 2d 66 75 6e 63 74 69 6f | roclaim.'(notinline.stub-functio |
| 2b1f20 | 6e 29 29 0a 0a 28 64 65 66 75 6e 20 53 45 54 2d 4d 4f 4e 49 54 4f 52 2d 4f 56 45 52 48 45 41 44 | n))..(defun.SET-MONITOR-OVERHEAD |
| 2b1f40 | 20 28 29 0a 20 20 22 44 65 74 65 72 6d 69 6e 65 73 20 74 68 65 20 61 76 65 72 61 67 65 20 6f 76 | .()..."Determines.the.average.ov |
| 2b1f60 | 65 72 68 65 61 64 20 6f 66 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 62 79 20 6d 6f 6e 69 74 6f 72 69 | erhead.of.monitoring.by.monitori |
| 2b1f80 | 6e 67 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 0a 6f 66 20 61 6e 20 65 6d 70 74 79 20 66 75 6e | ng.the.execution.of.an.empty.fun |
| 2b1fa0 | 63 74 69 6f 6e 20 6d 61 6e 79 20 74 69 6d 65 73 2e 22 0a 20 20 28 73 65 74 71 20 2a 6d 6f 6e 69 | ction.many.times."...(setq.*moni |
| 2b1fc0 | 74 6f 72 2d 74 69 6d 65 2d 6f 76 65 72 68 65 61 64 2a 20 30 0a 20 20 20 20 20 20 20 20 2a 6d 6f | tor-time-overhead*.0.........*mo |
| 2b1fe0 | 6e 69 74 6f 72 2d 63 6f 6e 73 2d 6f 76 65 72 68 65 61 64 2a 20 30 29 0a 20 20 28 73 74 75 62 2d | nitor-cons-overhead*.0)...(stub- |
| 2b2000 | 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 29 0a 20 20 28 6d 6f 6e 69 74 6f 72 20 73 74 75 62 2d 66 75 | function.nil)...(monitor.stub-fu |
| 2b2020 | 6e 63 74 69 6f 6e 29 0a 20 20 28 72 65 73 65 74 2d 61 6c 6c 2d 6d 6f 6e 69 74 6f 72 69 6e 67 29 | nction)...(reset-all-monitoring) |
| 2b2040 | 0a 20 20 28 6c 65 74 20 28 28 6f 76 65 72 68 65 61 64 2d 66 75 6e 63 74 69 6f 6e 20 28 73 79 6d | ...(let.((overhead-function.(sym |
| 2b2060 | 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 73 74 75 62 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 | bol-function.'stub-function))).. |
| 2b2080 | 20 20 20 28 64 6f 74 69 6d 65 73 20 28 78 20 6f 76 65 72 68 65 61 64 2d 69 74 65 72 61 74 69 6f | ...(dotimes.(x.overhead-iteratio |
| 2b20a0 | 6e 73 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6f 76 65 72 68 65 61 64 2d 66 75 6e 63 | ns).......(funcall.overhead-func |
| 2b20c0 | 74 69 6f 6e 20 6f 76 65 72 68 65 61 64 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 3b 20 20 28 64 6f | tion.overhead-function))).;..(do |
| 2b20e0 | 74 69 6d 65 73 20 28 78 20 6f 76 65 72 68 65 61 64 2d 69 74 65 72 61 74 69 6f 6e 73 29 0a 3b 20 | times.(x.overhead-iterations).;. |
| 2b2100 | 20 20 20 28 73 74 75 62 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 29 29 0a 20 20 28 6c 65 74 20 28 | ...(stub-function.nil))...(let.( |
| 2b2120 | 28 66 69 74 65 72 20 28 66 6c 6f 61 74 20 6f 76 65 72 68 65 61 64 2d 69 74 65 72 61 74 69 6f 6e | (fiter.(float.overhead-iteration |
| 2b2140 | 73 29 29 29 0a 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 63 | s))).....(multiple-value-bind.(c |
| 2b2160 | 61 6c 6c 73 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 20 74 69 6d 65 20 63 6f 6e 73 29 0a 20 20 20 | alls.nested-calls.time.cons).... |
| 2b2180 | 20 20 20 20 20 28 6d 6f 6e 69 74 6f 72 2d 69 6e 66 6f 2d 76 61 6c 75 65 73 20 27 73 74 75 62 2d | .....(monitor-info-values.'stub- |
| 2b21a0 | 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 | function).......(declare.(ignore |
| 2b21c0 | 20 63 61 6c 6c 73 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 29 29 0a 20 20 20 20 20 20 28 73 65 74 | .calls.nested-calls)).......(set |
| 2b21e0 | 71 20 2a 6d 6f 6e 69 74 6f 72 2d 74 69 6d 65 2d 6f 76 65 72 68 65 61 64 2a 20 28 2f 20 74 69 6d | q.*monitor-time-overhead*.(/.tim |
| 2b2200 | 65 20 66 69 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 6d 6f 6e 69 74 6f 72 2d 63 6f | e.fiter).............*monitor-co |
| 2b2220 | 6e 73 2d 6f 76 65 72 68 65 61 64 2a 20 28 2f 20 63 6f 6e 73 20 66 69 74 65 72 29 29 29 29 0a 20 | ns-overhead*.(/.cons.fiter)))).. |
| 2b2240 | 20 28 75 6e 6d 6f 6e 69 74 6f 72 20 73 74 75 62 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 28 73 65 74 | .(unmonitor.stub-function)).(set |
| 2b2260 | 2d 6d 6f 6e 69 74 6f 72 2d 6f 76 65 72 68 65 61 64 29 0a 0a 3b 3b 3b 20 2a 2a 2a 2a 2a 2a 2a 2a | -monitor-overhead)..;;;.******** |
| 2b2280 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b 3b 20 52 65 70 | ************************.;;;.Rep |
| 2b22a0 | 6f 72 74 20 44 61 74 61 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 3b | ort.Data.********************.;; |
| 2b22c0 | 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ;.****************************** |
| 2b22e0 | 2a 2a 0a 28 64 65 66 76 61 72 20 2a 6d 6f 6e 69 74 6f 72 2d 72 65 73 75 6c 74 73 2a 20 6e 69 6c | **.(defvar.*monitor-results*.nil |
| 2b2300 | 0a 20 20 22 41 20 74 61 62 6c 65 20 6f 66 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 73 74 61 74 69 73 | ..."A.table.of.monitoring.statis |
| 2b2320 | 74 69 63 73 20 69 73 20 73 74 6f 72 65 64 20 68 65 72 65 2e 22 29 0a 28 64 65 66 76 61 72 20 2a | tics.is.stored.here.").(defvar.* |
| 2b2340 | 6e 6f 2d 63 61 6c 6c 73 2a 20 6e 69 6c 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 6d 6f 6e 69 74 | no-calls*.nil..."A.list.of.monit |
| 2b2360 | 6f 72 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 69 63 68 20 77 65 72 65 6e 27 74 20 63 61 6c | ored.functions.which.weren't.cal |
| 2b2380 | 6c 65 64 2e 22 29 0a 28 64 65 66 76 61 72 20 2a 65 73 74 69 6d 61 74 65 64 2d 74 6f 74 61 6c 2d | led.").(defvar.*estimated-total- |
| 2b23a0 | 6f 76 65 72 68 65 61 64 2a 20 30 29 0a 3b 3b 20 28 70 72 6f 63 6c 61 69 6d 20 27 28 74 79 70 65 | overhead*.0).;;.(proclaim.'(type |
| 2b23c0 | 20 74 69 6d 65 2d 74 79 70 65 20 2a 65 73 74 69 6d 61 74 65 64 2d 74 6f 74 61 6c 2d 6f 76 65 72 | .time-type.*estimated-total-over |
| 2b23e0 | 68 65 61 64 2a 29 29 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 6d 6f 6e 69 74 6f 72 69 6e 67 2d | head*))..(defstruct.(monitoring- |
| 2b2400 | 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 6d 2d 69 | info.............(:conc-name.m-i |
| 2b2420 | 6e 66 6f 2d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 | nfo-).............(:constructor. |
| 2b2440 | 6d 61 6b 65 2d 6d 6f 6e 69 74 6f 72 69 6e 67 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 | make-monitoring-info............ |
| 2b2460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 63 61 6c 6c 73 20 74 69 6d 65 20 | ...............(name.calls.time. |
| 2b2480 | 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cons............................ |
| 2b24a0 | 20 20 20 20 20 70 65 72 63 65 6e 74 2d 74 69 6d 65 20 70 65 72 63 65 6e 74 2d 63 6f 6e 73 0a 20 | .....percent-time.percent-cons.. |
| 2b24c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 | ...............................t |
| 2b24e0 | 69 6d 65 2d 70 65 72 2d 63 61 6c 6c 20 63 6f 6e 73 2d 70 65 72 2d 63 61 6c 6c 29 29 29 0a 20 20 | ime-per-call.cons-per-call)))... |
| 2b2500 | 6e 61 6d 65 0a 20 20 63 61 6c 6c 73 0a 20 20 74 69 6d 65 0a 20 20 63 6f 6e 73 0a 20 20 70 65 72 | name...calls...time...cons...per |
| 2b2520 | 63 65 6e 74 2d 74 69 6d 65 0a 20 20 70 65 72 63 65 6e 74 2d 63 6f 6e 73 0a 20 20 74 69 6d 65 2d | cent-time...percent-cons...time- |
| 2b2540 | 70 65 72 2d 63 61 6c 6c 0a 20 20 63 6f 6e 73 2d 70 65 72 2d 63 61 6c 6c 29 0a 0a 28 64 65 66 75 | per-call...cons-per-call)..(defu |
| 2b2560 | 6e 20 52 45 50 4f 52 54 20 28 26 6b 65 79 20 28 6e 61 6d 65 73 20 3a 61 6c 6c 29 0a 09 09 20 20 | n.REPORT.(&key.(names.:all)..... |
| 2b2580 | 20 20 28 6e 65 73 74 65 64 20 3a 65 78 63 6c 75 73 69 76 65 29 0a 09 09 20 20 20 20 28 74 68 72 | ..(nested.:exclusive).......(thr |
| 2b25a0 | 65 73 68 6f 6c 64 20 30 2e 30 31 29 0a 09 09 20 20 20 20 28 73 6f 72 74 2d 6b 65 79 20 3a 70 65 | eshold.0.01).......(sort-key.:pe |
| 2b25c0 | 72 63 65 6e 74 2d 74 69 6d 65 29 0a 09 09 20 20 20 20 28 69 67 6e 6f 72 65 2d 6e 6f 2d 63 61 6c | rcent-time).......(ignore-no-cal |
| 2b25e0 | 6c 73 20 6e 69 6c 29 29 0a 20 20 22 53 61 6d 65 20 61 73 20 52 45 50 4f 52 54 2d 4d 4f 4e 49 54 | ls.nil))..."Same.as.REPORT-MONIT |
| 2b2600 | 4f 52 49 4e 47 20 62 75 74 20 77 69 74 68 20 61 20 6e 69 63 65 72 20 6b 65 79 77 6f 72 64 20 69 | ORING.but.with.a.nicer.keyword.i |
| 2b2620 | 6e 74 65 72 66 61 63 65 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 28 6d 65 6d 62 | nterface"...(declare.(type.(memb |
| 2b2640 | 65 72 20 3a 66 75 6e 63 74 69 6f 6e 20 3a 70 65 72 63 65 6e 74 2d 74 69 6d 65 20 3a 74 69 6d 65 | er.:function.:percent-time.:time |
| 2b2660 | 20 3a 70 65 72 63 65 6e 74 2d 63 6f 6e 73 0a 09 09 09 20 3a 63 6f 6e 73 20 3a 63 61 6c 6c 73 20 | .:percent-cons.....:cons.:calls. |
| 2b2680 | 3a 74 69 6d 65 2d 70 65 72 2d 63 61 6c 6c 20 3a 63 6f 6e 73 2d 70 65 72 2d 63 61 6c 6c 29 0a 09 | :time-per-call.:cons-per-call).. |
| 2b26a0 | 09 20 73 6f 72 74 2d 6b 65 79 29 0a 09 20 20 20 28 74 79 70 65 20 28 6d 65 6d 62 65 72 20 3a 69 | ..sort-key).....(type.(member.:i |
| 2b26c0 | 6e 63 6c 75 73 69 76 65 20 3a 65 78 63 6c 75 73 69 76 65 29 20 6e 65 73 74 65 64 29 29 0a 20 20 | nclusive.:exclusive).nested))... |
| 2b26e0 | 28 72 65 70 6f 72 74 2d 6d 6f 6e 69 74 6f 72 69 6e 67 20 6e 61 6d 65 73 20 6e 65 73 74 65 64 20 | (report-monitoring.names.nested. |
| 2b2700 | 74 68 72 65 73 68 6f 6c 64 20 73 6f 72 74 2d 6b 65 79 20 69 67 6e 6f 72 65 2d 6e 6f 2d 63 61 6c | threshold.sort-key.ignore-no-cal |
| 2b2720 | 6c 73 29 29 0a 0a 28 64 65 66 75 6e 20 52 45 50 4f 52 54 2d 4d 4f 4e 49 54 4f 52 49 4e 47 20 28 | ls))..(defun.REPORT-MONITORING.( |
| 2b2740 | 26 6f 70 74 69 6f 6e 61 6c 20 6e 61 6d 65 73 0a 09 09 09 09 20 20 20 20 28 6e 65 73 74 65 64 20 | &optional.names.........(nested. |
| 2b2760 | 3a 65 78 63 6c 75 73 69 76 65 29 0a 09 09 09 09 20 20 20 20 28 74 68 72 65 73 68 6f 6c 64 20 30 | :exclusive).........(threshold.0 |
| 2b2780 | 2e 30 31 29 0a 09 09 09 09 20 20 20 20 28 6b 65 79 20 3a 70 65 72 63 65 6e 74 2d 74 69 6d 65 29 | .01).........(key.:percent-time) |
| 2b27a0 | 0a 09 09 09 09 20 20 20 20 69 67 6e 6f 72 65 2d 6e 6f 2d 63 61 6c 6c 73 29 0a 20 20 22 52 65 70 | .........ignore-no-calls)..."Rep |
| 2b27c0 | 6f 72 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 73 74 61 74 65 | ort.the.current.monitoring.state |
| 2b27e0 | 2e 0a 54 68 65 20 70 65 72 63 65 6e 74 61 67 65 20 6f 66 20 74 68 65 20 74 6f 74 61 6c 20 74 69 | ..The.percentage.of.the.total.ti |
| 2b2800 | 6d 65 20 73 70 65 6e 74 20 65 78 65 63 75 74 69 6e 67 20 75 6e 6d 6f 6e 69 74 6f 72 65 64 20 63 | me.spent.executing.unmonitored.c |
| 2b2820 | 6f 64 65 0a 69 6e 20 65 61 63 68 20 66 75 6e 63 74 69 6f 6e 20 28 3a 65 78 63 6c 75 73 69 76 65 | ode.in.each.function.(:exclusive |
| 2b2840 | 20 6d 6f 64 65 29 2c 20 6f 72 20 74 6f 74 61 6c 20 74 69 6d 65 20 28 3a 69 6e 63 6c 75 73 69 76 | .mode),.or.total.time.(:inclusiv |
| 2b2860 | 65 20 6d 6f 64 65 29 0a 77 69 6c 6c 20 62 65 20 70 72 69 6e 74 65 64 20 74 6f 67 65 74 68 65 72 | e.mode).will.be.printed.together |
| 2b2880 | 20 77 69 74 68 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 61 6c 6c 73 20 61 6e 64 0a 74 68 | .with.the.number.of.calls.and.th |
| 2b28a0 | 65 20 75 6e 6d 6f 6e 69 74 6f 72 65 64 20 74 69 6d 65 20 70 65 72 20 63 61 6c 6c 2e 20 20 46 75 | e.unmonitored.time.per.call...Fu |
| 2b28c0 | 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 68 61 76 65 20 62 65 65 6e 20 65 78 65 63 75 74 65 64 0a | nctions.that.have.been.executed. |
| 2b28e0 | 62 65 6c 6f 77 20 54 48 52 45 53 48 4f 4c 44 20 25 20 6f 66 20 74 68 65 20 74 69 6d 65 20 77 69 | below.THRESHOLD.%.of.the.time.wi |
| 2b2900 | 6c 6c 20 6e 6f 74 20 62 65 20 72 65 70 6f 72 74 65 64 2e 20 20 54 6f 20 72 65 70 6f 72 74 20 6f | ll.not.be.reported...To.report.o |
| 2b2920 | 6e 20 61 6c 6c 0a 66 75 6e 63 74 69 6f 6e 73 20 73 65 74 20 4e 41 4d 45 53 20 74 6f 20 62 65 20 | n.all.functions.set.NAMES.to.be. |
| 2b2940 | 65 69 74 68 65 72 20 4e 49 4c 20 6f 72 20 3a 41 4c 4c 2e 22 0a 20 20 28 77 68 65 6e 20 28 6f 72 | either.NIL.or.:ALL."...(when.(or |
| 2b2960 | 20 28 6e 75 6c 6c 20 6e 61 6d 65 73 29 20 28 65 71 20 6e 61 6d 65 73 20 3a 61 6c 6c 29 29 20 28 | .(null.names).(eq.names.:all)).( |
| 2b2980 | 73 65 74 71 20 6e 61 6d 65 73 20 2a 6d 6f 6e 69 74 6f 72 65 64 2d 66 75 6e 63 74 69 6f 6e 73 2a | setq.names.*monitored-functions* |
| 2b29a0 | 29 29 0a 0a 20 20 28 6c 65 74 20 28 28 74 6f 74 61 6c 2d 74 69 6d 65 20 30 29 0a 20 20 20 20 20 | ))....(let.((total-time.0)...... |
| 2b29c0 | 20 20 20 28 74 6f 74 61 6c 2d 63 6f 6e 73 20 30 29 0a 20 20 20 20 20 20 20 20 28 74 6f 74 61 6c | ...(total-cons.0).........(total |
| 2b29e0 | 2d 63 61 6c 6c 73 20 30 29 29 0a 20 20 20 20 3b 3b 20 43 6f 6d 70 75 74 65 20 6f 76 65 72 61 6c | -calls.0)).....;;.Compute.overal |
| 2b2a00 | 6c 20 74 69 6d 65 20 61 6e 64 20 63 6f 6e 73 69 6e 67 2e 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 | l.time.and.consing......(dolist. |
| 2b2a20 | 28 6e 61 6d 65 20 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c | (name.names).......(multiple-val |
| 2b2a40 | 75 65 2d 62 69 6e 64 20 28 63 61 6c 6c 73 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 20 74 69 6d 65 | ue-bind.(calls.nested-calls.time |
| 2b2a60 | 20 63 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 6f 6e 69 74 6f 72 2d 69 6e 66 6f 2d 76 | .cons)...........(monitor-info-v |
| 2b2a80 | 61 6c 75 65 73 20 6e 61 6d 65 20 6e 65 73 74 65 64 20 3a 77 61 72 6e 29 0a 20 20 20 20 20 20 20 | alues.name.nested.:warn)........ |
| 2b2aa0 | 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 29 29 | .(declare.(ignore.nested-calls)) |
| 2b2ac0 | 0a 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 74 6f 74 61 6c 2d 63 61 6c 6c 73 20 63 61 6c 6c 73 | .........(incf.total-calls.calls |
| 2b2ae0 | 29 0a 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 74 6f 74 61 6c 2d 74 69 6d 65 20 74 69 6d 65 29 | ).........(incf.total-time.time) |
| 2b2b00 | 0a 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 74 6f 74 61 6c 2d 63 6f 6e 73 20 63 6f 6e 73 29 29 | .........(incf.total-cons.cons)) |
| 2b2b20 | 29 0a 20 20 20 20 3b 3b 20 54 6f 74 61 6c 20 6f 76 65 72 68 65 61 64 2e 0a 20 20 20 20 28 73 65 | ).....;;.Total.overhead......(se |
| 2b2b40 | 74 71 20 2a 65 73 74 69 6d 61 74 65 64 2d 74 6f 74 61 6c 2d 6f 76 65 72 68 65 61 64 2a 0a 20 20 | tq.*estimated-total-overhead*... |
| 2b2b60 | 20 20 20 20 20 20 20 20 28 2f 20 28 2a 20 2a 6d 6f 6e 69 74 6f 72 2d 74 69 6d 65 2d 6f 76 65 72 | ........(/.(*.*monitor-time-over |
| 2b2b80 | 68 65 61 64 2a 20 74 6f 74 61 6c 2d 63 61 6c 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | head*.total-calls).............. |
| 2b2ba0 | 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 29 29 0a 20 20 20 20 3b 3b 20 41 | time-units-per-second)).....;;.A |
| 2b2bc0 | 73 73 65 6d 62 6c 65 20 64 61 74 61 20 66 6f 72 20 6f 6e 6c 79 20 74 68 65 20 73 70 65 63 69 66 | ssemble.data.for.only.the.specif |
| 2b2be0 | 69 65 64 20 6e 61 6d 65 73 20 28 61 6c 6c 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f | ied.names.(all.monitored.functio |
| 2b2c00 | 6e 73 29 0a 20 20 20 20 28 69 66 20 28 7a 65 72 6f 70 20 74 6f 74 61 6c 2d 74 69 6d 65 29 0a 20 | ns).....(if.(zerop.total-time).. |
| 2b2c20 | 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 2a 74 72 61 63 65 2d 6f 75 74 70 75 74 2a 20 22 4e | .......(format.*trace-output*."N |
| 2b2c40 | 6f 74 20 65 6e 6f 75 67 68 20 65 78 65 63 75 74 69 6f 6e 20 74 69 6d 65 20 74 6f 20 6d 6f 6e 69 | ot.enough.execution.time.to.moni |
| 2b2c60 | 74 6f 72 2e 22 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 | tor.").........(progn........... |
| 2b2c80 | 28 73 65 74 71 20 2a 6d 6f 6e 69 74 6f 72 2d 72 65 73 75 6c 74 73 2a 20 6e 69 6c 20 2a 6e 6f 2d | (setq.*monitor-results*.nil.*no- |
| 2b2ca0 | 63 61 6c 6c 73 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6e | calls*.nil)...........(dolist.(n |
| 2b2cc0 | 61 6d 65 20 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 | ame.names).............(multiple |
| 2b2ce0 | 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 63 61 6c 6c 73 20 6e 65 73 74 65 64 2d 63 61 6c 6c 73 20 | -value-bind.(calls.nested-calls. |
| 2b2d00 | 74 69 6d 65 20 63 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 6e 69 | time.cons).................(moni |
| 2b2d20 | 74 6f 72 2d 69 6e 66 6f 2d 76 61 6c 75 65 73 20 6e 61 6d 65 20 6e 65 73 74 65 64 29 0a 20 20 20 | tor-info-values.name.nested).... |
| 2b2d40 | 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 6e 65 73 74 | ...........(declare.(ignore.nest |
| 2b2d60 | 65 64 2d 63 61 6c 6c 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 | ed-calls))...............(when.( |
| 2b2d80 | 6d 69 6e 75 73 70 20 74 69 6d 65 29 20 28 73 65 74 71 20 74 69 6d 65 20 30 2e 30 29 29 0a 20 20 | minusp.time).(setq.time.0.0))... |
| 2b2da0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 69 6e 75 73 70 20 63 6f 6e 73 29 20 | ............(when.(minusp.cons). |
| 2b2dc0 | 28 73 65 74 71 20 63 6f 6e 73 20 30 2e 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | (setq.cons.0.0))...............( |
| 2b2de0 | 69 66 20 28 7a 65 72 6f 70 20 63 61 6c 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | if.(zerop.calls)................ |
| 2b2e00 | 20 20 20 28 70 75 73 68 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 0a 20 20 20 20 | ...(push.(if.(symbolp.name)..... |
| 2b2e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d | ........................(symbol- |
| 2b2e40 | 6e 61 6d 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | name.name)...................... |
| 2b2e60 | 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 22 20 6e 61 6d 65 29 29 0a 20 | .......(format.nil."~S".name)).. |
| 2b2e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 6e 6f 2d 63 61 6c 6c 73 | .......................*no-calls |
| 2b2ea0 | 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6d 61 6b 65 | *)...................(push.(make |
| 2b2ec0 | 2d 6d 6f 6e 69 74 6f 72 69 6e 67 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -monitoring-info................ |
| 2b2ee0 | 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 22 20 6e 61 6d 65 29 | ..........(format.nil."~S".name) |
| 2b2f00 | 20 3b 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .;.name......................... |
| 2b2f20 | 20 63 61 6c 6c 73 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 73 0a 20 20 20 20 20 20 20 20 | .calls..........;.calls......... |
| 2b2f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2f 20 74 69 6d 65 20 28 66 6c 6f 61 74 20 | .................(/.time.(float. |
| 2b2f60 | 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 29 29 20 3b 20 74 69 6d 65 20 69 | time-units-per-second)).;.time.i |
| 2b2f80 | 6e 20 73 65 63 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.secs.......................... |
| 2b2fa0 | 28 72 6f 75 6e 64 20 63 6f 6e 73 29 20 20 20 3b 20 63 6f 6e 73 69 6e 67 0a 20 20 20 20 20 20 20 | (round.cons)...;.consing........ |
| 2b2fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2f 20 74 69 6d 65 20 28 66 6c 6f 61 74 | ..................(/.time.(float |
| 2b2fe0 | 20 74 6f 74 61 6c 2d 74 69 6d 65 29 29 20 3b 20 70 65 72 63 65 6e 74 2d 74 69 6d 65 0a 20 20 20 | .total-time)).;.percent-time.... |
| 2b3000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 7a 65 72 6f 70 | ......................(if.(zerop |
| 2b3020 | 20 74 6f 74 61 6c 2d 63 6f 6e 73 29 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .total-cons).0.................. |
| 2b3040 | 20 20 20 20 20 20 20 20 20 20 20 20 28 2f 20 63 6f 6e 73 20 28 66 6c 6f 61 74 20 74 6f 74 61 6c | ............(/.cons.(float.total |
| 2b3060 | 2d 63 6f 6e 73 29 29 29 20 3b 20 70 65 72 63 65 6e 74 2d 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 | -cons))).;.percent-cons......... |
| 2b3080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2f 20 28 2f 20 74 69 6d 65 20 28 66 6c 6f | .................(/.(/.time.(flo |
| 2b30a0 | 61 74 20 63 61 6c 6c 73 29 29 20 3b 20 74 69 6d 65 2d 70 65 72 2d 63 61 6c 6c 0a 20 20 20 20 20 | at.calls)).;.time-per-call...... |
| 2b30c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 2d 75 6e 69 74 | .......................time-unit |
| 2b30e0 | 73 2d 70 65 72 2d 73 65 63 6f 6e 64 29 20 3b 20 73 65 63 2f 63 61 6c 6c 0a 20 20 20 20 20 20 20 | s-per-second).;.sec/call........ |
| 2b3100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 6f 75 6e 64 20 28 2f 20 63 6f 6e 73 | ..................(round.(/.cons |
| 2b3120 | 20 28 66 6c 6f 61 74 20 63 61 6c 6c 73 29 29 29 29 20 3b 20 63 6f 6e 73 2d 70 65 72 2d 63 61 6c | .(float.calls)))).;.cons-per-cal |
| 2b3140 | 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 6d 6f 6e 69 74 | l.........................*monit |
| 2b3160 | 6f 72 2d 72 65 73 75 6c 74 73 2a 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c | or-results*))))...........(displ |
| 2b3180 | 61 79 2d 6d 6f 6e 69 74 6f 72 69 6e 67 2d 72 65 73 75 6c 74 73 20 74 68 72 65 73 68 6f 6c 64 20 | ay-monitoring-results.threshold. |
| 2b31a0 | 6b 65 79 20 69 67 6e 6f 72 65 2d 6e 6f 2d 63 61 6c 6c 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | key.ignore-no-calls)))))..(defun |
| 2b31c0 | 20 64 69 73 70 6c 61 79 2d 6d 6f 6e 69 74 6f 72 69 6e 67 2d 72 65 73 75 6c 74 73 20 28 26 6f 70 | .display-monitoring-results.(&op |
| 2b31e0 | 74 69 6f 6e 61 6c 20 28 74 68 72 65 73 68 6f 6c 64 20 30 2e 30 31 29 0a 09 09 09 09 20 20 20 20 | tional.(threshold.0.01)......... |
| 2b3200 | 20 28 6b 65 79 20 3a 70 65 72 63 65 6e 74 2d 74 69 6d 65 29 0a 09 09 09 09 20 20 20 20 20 28 69 | .(key.:percent-time)..........(i |
| 2b3220 | 67 6e 6f 72 65 2d 6e 6f 2d 63 61 6c 6c 73 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 6d 61 78 2d | gnore-no-calls.t))...(let.((max- |
| 2b3240 | 6c 65 6e 67 74 68 20 38 29 09 09 09 3b 20 46 75 6e 63 74 69 6f 6e 20 68 65 61 64 65 72 20 73 69 | length.8)...;.Function.header.si |
| 2b3260 | 7a 65 0a 09 28 6d 61 78 2d 63 6f 6e 73 2d 6c 65 6e 67 74 68 20 38 29 0a 09 28 74 6f 74 61 6c 2d | ze..(max-cons-length.8)..(total- |
| 2b3280 | 74 69 6d 65 20 30 2e 30 29 0a 09 28 74 6f 74 61 6c 2d 63 6f 6e 73 65 64 20 30 29 0a 09 28 74 6f | time.0.0)..(total-consed.0)..(to |
| 2b32a0 | 74 61 6c 2d 63 61 6c 6c 73 20 30 29 0a 09 28 74 6f 74 61 6c 2d 70 65 72 63 65 6e 74 2d 74 69 6d | tal-calls.0)..(total-percent-tim |
| 2b32c0 | 65 20 30 29 0a 09 28 74 6f 74 61 6c 2d 70 65 72 63 65 6e 74 2d 63 6f 6e 73 20 30 29 29 0a 20 20 | e.0)..(total-percent-cons.0))... |
| 2b32e0 | 20 20 28 73 6f 72 74 2d 72 65 73 75 6c 74 73 20 6b 65 79 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 | ..(sort-results.key).....(dolist |
| 2b3300 | 20 28 72 65 73 75 6c 74 20 2a 6d 6f 6e 69 74 6f 72 2d 72 65 73 75 6c 74 73 2a 29 0a 20 20 20 20 | .(result.*monitor-results*)..... |
| 2b3320 | 20 20 28 77 68 65 6e 20 28 6f 72 20 28 7a 65 72 6f 70 20 74 68 72 65 73 68 6f 6c 64 29 0a 09 09 | ..(when.(or.(zerop.threshold)... |
| 2b3340 | 28 3e 20 28 6d 2d 69 6e 66 6f 2d 70 65 72 63 65 6e 74 2d 74 69 6d 65 20 72 65 73 75 6c 74 29 20 | (>.(m-info-percent-time.result). |
| 2b3360 | 74 68 72 65 73 68 6f 6c 64 29 29 0a 09 28 73 65 74 71 20 6d 61 78 2d 6c 65 6e 67 74 68 0a 09 20 | threshold))..(setq.max-length... |
| 2b3380 | 20 20 20 20 20 28 6d 61 78 20 6d 61 78 2d 6c 65 6e 67 74 68 0a 09 09 20 20 20 28 6c 65 6e 67 74 | .....(max.max-length......(lengt |
| 2b33a0 | 68 20 28 6d 2d 69 6e 66 6f 2d 6e 61 6d 65 20 72 65 73 75 6c 74 29 29 29 29 0a 09 28 73 65 74 71 | h.(m-info-name.result))))..(setq |
| 2b33c0 | 20 6d 61 78 2d 63 6f 6e 73 2d 6c 65 6e 67 74 68 0a 09 20 20 20 20 20 20 28 6d 61 78 20 6d 61 78 | .max-cons-length........(max.max |
| 2b33e0 | 2d 63 6f 6e 73 2d 6c 65 6e 67 74 68 0a 09 09 20 20 20 28 6d 2d 69 6e 66 6f 2d 63 6f 6e 73 2d 70 | -cons-length......(m-info-cons-p |
| 2b3400 | 65 72 2d 63 61 6c 6c 20 72 65 73 75 6c 74 29 29 29 29 29 0a 20 20 20 20 28 69 6e 63 66 20 6d 61 | er-call.result))))).....(incf.ma |
| 2b3420 | 78 2d 6c 65 6e 67 74 68 20 32 29 0a 20 20 20 20 28 73 65 74 66 20 6d 61 78 2d 63 6f 6e 73 2d 6c | x-length.2).....(setf.max-cons-l |
| 2b3440 | 65 6e 67 74 68 20 28 2b 20 32 20 28 63 65 69 6c 69 6e 67 20 28 6c 6f 67 20 6d 61 78 2d 63 6f 6e | ength.(+.2.(ceiling.(log.max-con |
| 2b3460 | 73 2d 6c 65 6e 67 74 68 20 31 30 29 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 2a 74 72 61 | s-length.10)))).....(format.*tra |
| 2b3480 | 63 65 2d 6f 75 74 70 75 74 2a 0a 09 20 20 20 20 22 7e 25 7e 25 7e 0a 20 20 20 20 20 20 20 20 20 | ce-output*......"~%~%~.......... |
| 2b34a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7e 56 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..............~VT............... |
| 2b34c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7e 56 41 7e 0a 09 20 20 20 20 | ......................~VA~...... |
| 2b34e0 | 20 7e 25 20 20 20 20 20 20 20 20 7e 56 54 20 20 20 25 20 20 20 20 20 20 25 20 20 20 20 20 20 20 | .~%........~VT...%......%....... |
| 2b3500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7e 56 41 20 20 7e 0a 54 6f 74 61 6c 20 | ...................~VA..~.Total. |
| 2b3520 | 20 20 20 20 54 6f 74 61 6c 7e 0a 09 20 20 20 20 20 7e 25 46 75 6e 63 74 69 6f 6e 7e 56 54 20 20 | ....Total~.......~%Function~VT.. |
| 2b3540 | 54 69 6d 65 20 20 20 43 6f 6e 73 20 20 20 20 43 61 6c 6c 73 20 20 53 65 63 2f 43 61 6c 6c 20 20 | Time...Cons....Calls..Sec/Call.. |
| 2b3560 | 20 20 20 7e 56 41 20 20 7e 0a 54 69 6d 65 20 20 20 20 20 20 43 6f 6e 73 7e 0a 20 20 20 20 20 20 | ...~VA..~.Time......Cons~....... |
| 2b3580 | 20 20 20 20 20 20 20 7e 25 7e 56 2c 2c 2c 27 2d 41 22 0a 09 20 20 20 20 6d 61 78 2d 6c 65 6e 67 | .......~%~V,,,'-A"......max-leng |
| 2b35a0 | 74 68 0a 09 20 20 20 20 6d 61 78 2d 63 6f 6e 73 2d 6c 65 6e 67 74 68 20 22 43 6f 6e 73 22 0a 09 | th......max-cons-length."Cons".. |
| 2b35c0 | 20 20 20 20 6d 61 78 2d 6c 65 6e 67 74 68 0a 09 20 20 20 20 6d 61 78 2d 63 6f 6e 73 2d 6c 65 6e | ....max-length......max-cons-len |
| 2b35e0 | 67 74 68 20 22 50 65 72 22 0a 09 20 20 20 20 6d 61 78 2d 6c 65 6e 67 74 68 0a 09 20 20 20 20 6d | gth."Per"......max-length......m |
| 2b3600 | 61 78 2d 63 6f 6e 73 2d 6c 65 6e 67 74 68 20 22 43 61 6c 6c 22 0a 09 20 20 20 20 28 2b 20 6d 61 | ax-cons-length."Call"......(+.ma |
| 2b3620 | 78 2d 6c 65 6e 67 74 68 20 36 32 20 28 6d 61 78 20 30 20 28 2d 20 6d 61 78 2d 63 6f 6e 73 2d 6c | x-length.62.(max.0.(-.max-cons-l |
| 2b3640 | 65 6e 67 74 68 20 35 29 29 29 20 22 2d 22 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 72 65 73 | ength.5)))."-").....(dolist.(res |
| 2b3660 | 75 6c 74 20 2a 6d 6f 6e 69 74 6f 72 2d 72 65 73 75 6c 74 73 2a 29 0a 20 20 20 20 20 20 28 77 68 | ult.*monitor-results*).......(wh |
| 2b3680 | 65 6e 20 28 6f 72 20 28 7a 65 72 6f 70 20 74 68 72 65 73 68 6f 6c 64 29 0a 09 09 28 3e 20 28 6d | en.(or.(zerop.threshold)...(>.(m |
| 2b36a0 | 2d 69 6e 66 6f 2d 70 65 72 63 65 6e 74 2d 74 69 6d 65 20 72 65 73 75 6c 74 29 20 74 68 72 65 73 | -info-percent-time.result).thres |
| 2b36c0 | 68 6f 6c 64 29 29 0a 09 28 66 6f 72 6d 61 74 20 2a 74 72 61 63 65 2d 6f 75 74 70 75 74 2a 0a 09 | hold))..(format.*trace-output*.. |
| 2b36e0 | 09 22 7e 25 7e 41 3a 7e 56 54 7e 36 2c 32 46 20 20 7e 36 2c 32 46 20 20 7e 37 44 20 20 7e 2c 36 | ."~%~A:~VT~6,2F..~6,2F..~7D..~,6 |
| 2b3700 | 46 20 20 7e 56 44 20 20 7e 38 2c 33 46 20 20 7e 31 30 44 22 0a 09 09 28 6d 2d 69 6e 66 6f 2d 6e | F..~VD..~8,3F..~10D"...(m-info-n |
| 2b3720 | 61 6d 65 20 72 65 73 75 6c 74 29 0a 09 09 6d 61 78 2d 6c 65 6e 67 74 68 0a 09 09 28 2a 20 31 30 | ame.result)...max-length...(*.10 |
| 2b3740 | 30 20 28 6d 2d 69 6e 66 6f 2d 70 65 72 63 65 6e 74 2d 74 69 6d 65 20 72 65 73 75 6c 74 29 29 0a | 0.(m-info-percent-time.result)). |
| 2b3760 | 09 09 28 2a 20 31 30 30 20 28 6d 2d 69 6e 66 6f 2d 70 65 72 63 65 6e 74 2d 63 6f 6e 73 20 72 65 | ..(*.100.(m-info-percent-cons.re |
| 2b3780 | 73 75 6c 74 29 29 0a 09 09 28 6d 2d 69 6e 66 6f 2d 63 61 6c 6c 73 20 72 65 73 75 6c 74 29 0a 09 | sult))...(m-info-calls.result).. |
| 2b37a0 | 09 28 6d 2d 69 6e 66 6f 2d 74 69 6d 65 2d 70 65 72 2d 63 61 6c 6c 20 72 65 73 75 6c 74 29 0a 09 | .(m-info-time-per-call.result).. |
| 2b37c0 | 09 6d 61 78 2d 63 6f 6e 73 2d 6c 65 6e 67 74 68 0a 09 09 28 6d 2d 69 6e 66 6f 2d 63 6f 6e 73 2d | .max-cons-length...(m-info-cons- |
| 2b37e0 | 70 65 72 2d 63 61 6c 6c 20 72 65 73 75 6c 74 29 0a 09 09 28 6d 2d 69 6e 66 6f 2d 74 69 6d 65 20 | per-call.result)...(m-info-time. |
| 2b3800 | 72 65 73 75 6c 74 29 0a 09 09 28 6d 2d 69 6e 66 6f 2d 63 6f 6e 73 20 72 65 73 75 6c 74 29 29 0a | result)...(m-info-cons.result)). |
| 2b3820 | 09 28 69 6e 63 66 20 74 6f 74 61 6c 2d 74 69 6d 65 20 28 6d 2d 69 6e 66 6f 2d 74 69 6d 65 20 72 | .(incf.total-time.(m-info-time.r |
| 2b3840 | 65 73 75 6c 74 29 29 0a 09 28 69 6e 63 66 20 74 6f 74 61 6c 2d 63 6f 6e 73 65 64 20 28 6d 2d 69 | esult))..(incf.total-consed.(m-i |
| 2b3860 | 6e 66 6f 2d 63 6f 6e 73 20 72 65 73 75 6c 74 29 29 0a 09 28 69 6e 63 66 20 74 6f 74 61 6c 2d 63 | nfo-cons.result))..(incf.total-c |
| 2b3880 | 61 6c 6c 73 20 28 6d 2d 69 6e 66 6f 2d 63 61 6c 6c 73 20 72 65 73 75 6c 74 29 29 0a 09 28 69 6e | alls.(m-info-calls.result))..(in |
| 2b38a0 | 63 66 20 74 6f 74 61 6c 2d 70 65 72 63 65 6e 74 2d 74 69 6d 65 20 28 6d 2d 69 6e 66 6f 2d 70 65 | cf.total-percent-time.(m-info-pe |
| 2b38c0 | 72 63 65 6e 74 2d 74 69 6d 65 20 72 65 73 75 6c 74 29 29 0a 09 28 69 6e 63 66 20 74 6f 74 61 6c | rcent-time.result))..(incf.total |
| 2b38e0 | 2d 70 65 72 63 65 6e 74 2d 63 6f 6e 73 20 28 6d 2d 69 6e 66 6f 2d 70 65 72 63 65 6e 74 2d 63 6f | -percent-cons.(m-info-percent-co |
| 2b3900 | 6e 73 20 72 65 73 75 6c 74 29 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 2a 74 72 61 63 65 | ns.result)))).....(format.*trace |
| 2b3920 | 2d 6f 75 74 70 75 74 2a 0a 09 20 20 20 20 22 7e 25 7e 56 2c 2c 2c 27 2d 41 7e 0a 09 20 20 20 20 | -output*......"~%~V,,,'-A~...... |
| 2b3940 | 7e 25 54 4f 54 41 4c 3a 7e 56 54 7e 36 2c 32 46 20 20 7e 36 2c 32 46 20 20 7e 37 44 20 20 7e 39 | ~%TOTAL:~VT~6,2F..~6,2F..~7D..~9 |
| 2b3960 | 40 54 20 7e 56 41 20 20 7e 38 2c 33 46 20 20 7e 31 30 44 7e 0a 20 20 20 20 20 20 20 20 20 20 20 | @T.~VA..~8,3F..~10D~............ |
| 2b3980 | 20 7e 25 45 73 74 69 6d 61 74 65 64 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 6f 76 65 72 68 65 61 64 | .~%Estimated.monitoring.overhead |
| 2b39a0 | 3a 20 7e 35 2c 32 46 20 73 65 63 6f 6e 64 73 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 7e 25 45 | :.~5,2F.seconds~.............~%E |
| 2b39c0 | 73 74 69 6d 61 74 65 64 20 74 6f 74 61 6c 20 6d 6f 6e 69 74 6f 72 69 6e 67 20 6f 76 65 72 68 65 | stimated.total.monitoring.overhe |
| 2b39e0 | 61 64 3a 20 7e 35 2c 32 46 20 73 65 63 6f 6e 64 73 22 0a 09 20 20 20 20 28 2b 20 6d 61 78 2d 6c | ad:.~5,2F.seconds"......(+.max-l |
| 2b3a00 | 65 6e 67 74 68 20 36 32 20 28 6d 61 78 20 30 20 28 2d 20 6d 61 78 2d 63 6f 6e 73 2d 6c 65 6e 67 | ength.62.(max.0.(-.max-cons-leng |
| 2b3a20 | 74 68 20 35 29 29 29 20 22 2d 22 0a 09 20 20 20 20 6d 61 78 2d 6c 65 6e 67 74 68 0a 09 20 20 20 | th.5)))."-"......max-length..... |
| 2b3a40 | 20 28 2a 20 31 30 30 20 74 6f 74 61 6c 2d 70 65 72 63 65 6e 74 2d 74 69 6d 65 29 0a 09 20 20 20 | .(*.100.total-percent-time)..... |
| 2b3a60 | 20 28 2a 20 31 30 30 20 74 6f 74 61 6c 2d 70 65 72 63 65 6e 74 2d 63 6f 6e 73 29 0a 09 20 20 20 | .(*.100.total-percent-cons)..... |
| 2b3a80 | 20 74 6f 74 61 6c 2d 63 61 6c 6c 73 0a 09 20 20 20 20 6d 61 78 2d 63 6f 6e 73 2d 6c 65 6e 67 74 | .total-calls......max-cons-lengt |
| 2b3aa0 | 68 20 22 20 22 0a 09 20 20 20 20 74 6f 74 61 6c 2d 74 69 6d 65 20 74 6f 74 61 6c 2d 63 6f 6e 73 | h."."......total-time.total-cons |
| 2b3ac0 | 65 64 0a 09 20 20 20 20 28 2f 20 28 2a 20 2a 6d 6f 6e 69 74 6f 72 2d 74 69 6d 65 2d 6f 76 65 72 | ed......(/.(*.*monitor-time-over |
| 2b3ae0 | 68 65 61 64 2a 20 74 6f 74 61 6c 2d 63 61 6c 6c 73 29 0a 09 20 20 20 20 20 20 20 74 69 6d 65 2d | head*.total-calls).........time- |
| 2b3b00 | 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 29 0a 09 20 20 20 20 2a 65 73 74 69 6d 61 74 65 | units-per-second)......*estimate |
| 2b3b20 | 64 2d 74 6f 74 61 6c 2d 6f 76 65 72 68 65 61 64 2a 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e | d-total-overhead*).....(when.(an |
| 2b3b40 | 64 20 28 6e 6f 74 20 69 67 6e 6f 72 65 2d 6e 6f 2d 63 61 6c 6c 73 29 20 2a 6e 6f 2d 63 61 6c 6c | d.(not.ignore-no-calls).*no-call |
| 2b3b60 | 73 2a 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 2a 6e 6f 2d 63 61 6c 6c 73 2a 20 28 73 6f 72 74 | s*).......(setq.*no-calls*.(sort |
| 2b3b80 | 20 2a 6e 6f 2d 63 61 6c 6c 73 2a 20 23 27 73 74 72 69 6e 67 3c 29 29 0a 20 20 20 20 20 20 28 6c | .*no-calls*.#'string<)).......(l |
| 2b3ba0 | 65 74 20 28 28 6e 75 6d 2d 6e 6f 2d 63 61 6c 6c 73 20 28 6c 65 6e 67 74 68 20 2a 6e 6f 2d 63 61 | et.((num-no-calls.(length.*no-ca |
| 2b3bc0 | 6c 6c 73 2a 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 3e 20 6e 75 6d 2d 6e 6f 2d 63 61 | lls*))).........(if.(>.num-no-ca |
| 2b3be0 | 6c 6c 73 20 32 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 2a 74 72 61 | lls.20).............(format.*tra |
| 2b3c00 | 63 65 2d 6f 75 74 70 75 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | ce-output*....................." |
| 2b3c20 | 7e 25 7e 40 28 7e 72 7e 29 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 77 65 | ~%~@(~r~).monitored.functions.we |
| 2b3c40 | 72 65 20 6e 6f 74 20 63 61 6c 6c 65 64 2e 20 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | re.not.called..~................ |
| 2b3c60 | 20 20 20 20 20 20 20 7e 25 53 65 65 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 73 77 61 6e 6b 2d | .......~%See.the.variable.swank- |
| 2b3c80 | 6d 6f 6e 69 74 6f 72 3a 3a 2a 6e 6f 2d 63 61 6c 6c 73 2a 20 66 6f 72 20 61 20 6c 69 73 74 2e 22 | monitor::*no-calls*.for.a.list." |
| 2b3ca0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 75 6d 2d 6e 6f 2d 63 61 6c 6c | .....................num-no-call |
| 2b3cc0 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 2a 74 72 61 63 65 2d 6f 75 | s).............(format.*trace-ou |
| 2b3ce0 | 74 70 75 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 7e 25 54 68 65 | tput*....................."~%The |
| 2b3d00 | 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 6f 6e 69 74 6f 72 65 64 20 66 75 6e 63 74 69 6f 6e 73 20 77 | .following.monitored.functions.w |
| 2b3d20 | 65 72 65 20 6e 6f 74 20 63 61 6c 6c 65 64 3a 7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ere.not.called:~................ |
| 2b3d40 | 20 7e 25 7e 7b 7e 3c 7e 25 7e 3a 3b 20 7e 41 7e 3e 7e 7d 7e 25 22 0a 20 20 20 20 20 20 20 20 20 | .~%~{~<~%~:;.~A~>~}~%".......... |
| 2b3d60 | 20 20 20 20 20 20 20 20 20 20 20 2a 6e 6f 2d 63 61 6c 6c 73 2a 29 29 29 29 0a 20 20 20 20 28 76 | ...........*no-calls*)))).....(v |
| 2b3d80 | 61 6c 75 65 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6f 72 74 2d 72 65 73 75 6c 74 73 20 28 26 | alues)))..(defun.sort-results.(& |
| 2b3da0 | 6f 70 74 69 6f 6e 61 6c 20 28 6b 65 79 20 3a 70 65 72 63 65 6e 74 2d 74 69 6d 65 29 29 0a 20 20 | optional.(key.:percent-time))... |
| 2b3dc0 | 28 73 65 74 71 20 2a 6d 6f 6e 69 74 6f 72 2d 72 65 73 75 6c 74 73 2a 0a 20 20 20 20 20 20 20 20 | (setq.*monitor-results*......... |
| 2b3de0 | 28 63 61 73 65 20 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 28 3a 66 75 6e 63 74 69 6f 6e 20 20 | (case.key...........(:function.. |
| 2b3e00 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 72 74 20 2a 6d 6f 6e 69 74 6f 72 2d 72 65 73 75 6c 74 | ...........(sort.*monitor-result |
| 2b3e20 | 73 2a 20 23 27 73 74 72 69 6e 67 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s*.#'string>.................... |
| 2b3e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 6d 2d 69 6e 66 | ....................:key.#'m-inf |
| 2b3e60 | 6f 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 70 65 72 63 65 6e 74 2d 74 69 | o-name))...........((:percent-ti |
| 2b3e80 | 6d 65 20 3a 74 69 6d 65 29 20 28 73 6f 72 74 20 2a 6d 6f 6e 69 74 6f 72 2d 72 65 73 75 6c 74 73 | me.:time).(sort.*monitor-results |
| 2b3ea0 | 2a 20 23 27 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *.#'>........................... |
| 2b3ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 6d 2d 69 6e 66 6f 2d 74 69 6d 65 29 | .............:key.#'m-info-time) |
| 2b3ee0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3a 70 65 72 63 65 6e 74 2d 63 6f 6e 73 20 3a 63 6f 6e | )...........((:percent-cons.:con |
| 2b3f00 | 73 29 20 28 73 6f 72 74 20 2a 6d 6f 6e 69 74 6f 72 2d 72 65 73 75 6c 74 73 2a 20 23 27 3e 0a 20 | s).(sort.*monitor-results*.#'>.. |
| 2b3f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2b3f40 | 20 20 20 20 20 20 3a 6b 65 79 20 23 27 6d 2d 69 6e 66 6f 2d 63 6f 6e 73 29 29 0a 20 20 20 20 20 | ......:key.#'m-info-cons))...... |
| 2b3f60 | 20 20 20 20 20 28 3a 63 61 6c 6c 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 72 | .....(:calls................(sor |
| 2b3f80 | 74 20 2a 6d 6f 6e 69 74 6f 72 2d 72 65 73 75 6c 74 73 2a 20 23 27 3e 0a 20 20 20 20 20 20 20 20 | t.*monitor-results*.#'>......... |
| 2b3fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ...............................: |
| 2b3fc0 | 6b 65 79 20 23 27 6d 2d 69 6e 66 6f 2d 63 61 6c 6c 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | key.#'m-info-calls))...........( |
| 2b3fe0 | 3a 74 69 6d 65 2d 70 65 72 2d 63 61 6c 6c 20 20 20 20 20 20 20 20 28 73 6f 72 74 20 2a 6d 6f 6e | :time-per-call........(sort.*mon |
| 2b4000 | 69 74 6f 72 2d 72 65 73 75 6c 74 73 2a 20 23 27 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | itor-results*.#'>............... |
| 2b4020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 | .........................:key.#' |
| 2b4040 | 6d 2d 69 6e 66 6f 2d 74 69 6d 65 2d 70 65 72 2d 63 61 6c 6c 29 29 0a 20 20 20 20 20 20 20 20 20 | m-info-time-per-call)).......... |
| 2b4060 | 20 28 3a 63 6f 6e 73 2d 70 65 72 2d 63 61 6c 6c 20 20 20 20 20 20 20 20 28 73 6f 72 74 20 2a 6d | .(:cons-per-call........(sort.*m |
| 2b4080 | 6f 6e 69 74 6f 72 2d 72 65 73 75 6c 74 73 2a 20 23 27 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | onitor-results*.#'>............. |
| 2b40a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 | ...........................:key. |
| 2b40c0 | 23 27 6d 2d 69 6e 66 6f 2d 63 6f 6e 73 2d 70 65 72 2d 63 61 6c 6c 29 29 29 29 29 0a 0a 3b 3b 3b | #'m-info-cons-per-call)))))..;;; |
| 2b40e0 | 20 2a 45 4e 44 20 4f 46 20 46 49 4c 45 2a 0a 0a 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .*END.OF.FILE*.................. |
| 2b4100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b4120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b4140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b4160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b4180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b41a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b41c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b41e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b4200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2e 6c 69 73 70 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/swank.lisp........... |
| 2b4220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b4240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b4260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 2b4280 | 30 34 33 35 32 31 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 32 33 33 00 20 30 00 00 00 | 0435213.00000000000.013233..0... |
| 2b42a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b42c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b42e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b4300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 2b4320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 2b4340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b4360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b4380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b43a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b43c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b43e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2b4400 | 3b 3b 3b 3b 20 73 77 61 6e 6b 2e 6c 69 73 70 20 2d 2d 2d 20 53 65 72 76 65 72 20 66 6f 72 20 53 | ;;;;.swank.lisp.---.Server.for.S |
| 2b4420 | 4c 49 4d 45 20 63 6f 6d 6d 61 6e 64 73 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 | LIME.commands..;;;.;;;.This.code |
| 2b4440 | 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 20 44 | .has.been.placed.in.the.Public.D |
| 2b4460 | 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 0a 3b 3b 3b 20 61 72 65 20 64 | omain...All.warranties.;;;.are.d |
| 2b4480 | 69 73 63 6c 61 69 6d 65 64 2e 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 64 65 66 | isclaimed..;;;.;;;.This.file.def |
| 2b44a0 | 69 6e 65 73 20 74 68 65 20 22 53 77 61 6e 6b 22 20 54 43 50 20 73 65 72 76 65 72 20 66 6f 72 20 | ines.the."Swank".TCP.server.for. |
| 2b44c0 | 45 6d 61 63 73 20 74 6f 20 74 61 6c 6b 20 74 6f 2e 20 54 68 65 0a 3b 3b 3b 20 63 6f 64 65 20 69 | Emacs.to.talk.to..The.;;;.code.i |
| 2b44e0 | 6e 20 74 68 69 73 20 66 69 6c 65 20 69 73 20 70 75 72 65 6c 79 20 70 6f 72 74 61 62 6c 65 20 43 | n.this.file.is.purely.portable.C |
| 2b4500 | 6f 6d 6d 6f 6e 20 4c 69 73 70 2e 20 57 65 20 64 6f 20 72 65 71 75 69 72 65 20 61 0a 3b 3b 3b 20 | ommon.Lisp..We.do.require.a.;;;. |
| 2b4520 | 73 6d 61 74 74 65 72 69 6e 67 20 6f 66 20 6e 6f 6e 2d 70 6f 72 74 61 62 6c 65 20 66 75 6e 63 74 | smattering.of.non-portable.funct |
| 2b4540 | 69 6f 6e 73 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 77 72 69 74 65 20 74 68 65 20 73 65 72 76 65 | ions.in.order.to.write.the.serve |
| 2b4560 | 72 2c 0a 3b 3b 3b 20 73 6f 20 77 65 20 68 61 76 65 20 64 65 66 69 6e 65 64 20 74 68 65 6d 20 69 | r,.;;;.so.we.have.defined.them.i |
| 2b4580 | 6e 20 60 73 77 61 6e 6b 2f 62 61 63 6b 65 6e 64 2e 6c 69 73 70 27 20 61 6e 64 20 69 6d 70 6c 65 | n.`swank/backend.lisp'.and.imple |
| 2b45a0 | 6d 65 6e 74 65 64 0a 3b 3b 3b 20 74 68 65 6d 20 73 65 70 61 72 61 74 65 6c 79 20 66 6f 72 20 65 | mented.;;;.them.separately.for.e |
| 2b45c0 | 61 63 68 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 20 54 68 65 73 65 20 65 | ach.Lisp.implementation..These.e |
| 2b45e0 | 78 74 65 6e 73 69 6f 6e 73 20 61 72 65 0a 3b 3b 3b 20 61 76 61 69 6c 61 62 6c 65 20 74 6f 20 75 | xtensions.are.;;;.available.to.u |
| 2b4600 | 73 20 68 65 72 65 20 76 69 61 20 74 68 65 20 60 53 57 41 4e 4b 2f 42 41 43 4b 45 4e 44 27 20 70 | s.here.via.the.`SWANK/BACKEND'.p |
| 2b4620 | 61 63 6b 61 67 65 2e 0a 0a 28 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 3b 3b 3b | ackage...(in-package.:swank).;;; |
| 2b4640 | 3b 20 54 6f 70 2d 6c 65 76 65 6c 20 76 61 72 69 61 62 6c 65 73 2c 20 63 6f 6e 73 74 61 6e 74 73 | ;.Top-level.variables,.constants |
| 2b4660 | 2c 20 6d 61 63 72 6f 73 0a 0a 28 64 65 66 63 6f 6e 73 74 61 6e 74 20 63 6c 2d 70 61 63 6b 61 67 | ,.macros..(defconstant.cl-packag |
| 2b4680 | 65 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a 63 6c 29 0a 20 20 22 54 68 65 20 43 4f 4d 4d | e.(find-package.:cl)..."The.COMM |
| 2b46a0 | 4f 4e 2d 4c 49 53 50 20 70 61 63 6b 61 67 65 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 61 6e 74 | ON-LISP.package.")..(defconstant |
| 2b46c0 | 20 6b 65 79 77 6f 72 64 2d 70 61 63 6b 61 67 65 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 3a | .keyword-package.(find-package.: |
| 2b46e0 | 6b 65 79 77 6f 72 64 29 0a 20 20 22 54 68 65 20 4b 45 59 57 4f 52 44 20 70 61 63 6b 61 67 65 2e | keyword)..."The.KEYWORD.package. |
| 2b4700 | 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 61 6e 74 20 64 65 66 61 75 6c 74 2d 73 65 72 76 65 72 2d | ")..(defconstant.default-server- |
| 2b4720 | 70 6f 72 74 20 34 30 30 35 0a 20 20 22 54 68 65 20 64 65 66 61 75 6c 74 20 54 43 50 20 70 6f 72 | port.4005..."The.default.TCP.por |
| 2b4740 | 74 20 66 6f 72 20 74 68 65 20 73 65 72 76 65 72 20 28 77 68 65 6e 20 73 74 61 72 74 65 64 20 6d | t.for.the.server.(when.started.m |
| 2b4760 | 61 6e 75 61 6c 6c 79 29 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 77 61 6e 6b 2d 64 65 62 75 | anually).")..(defvar.*swank-debu |
| 2b4780 | 67 2d 70 2a 20 74 0a 20 20 22 57 68 65 6e 20 74 72 75 65 2c 20 70 72 69 6e 74 20 65 78 74 72 61 | g-p*.t..."When.true,.print.extra |
| 2b47a0 | 20 64 65 62 75 67 67 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 76 | .debugging.information.")..(defv |
| 2b47c0 | 61 72 20 2a 62 61 63 6b 74 72 61 63 65 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 2d 74 61 | ar.*backtrace-pprint-dispatch-ta |
| 2b47e0 | 62 6c 65 2a 0a 20 20 28 6c 65 74 20 28 28 74 61 62 6c 65 20 28 63 6f 70 79 2d 70 70 72 69 6e 74 | ble*...(let.((table.(copy-pprint |
| 2b4800 | 2d 64 69 73 70 61 74 63 68 20 6e 69 6c 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 70 72 69 | -dispatch.nil))).....(flet.((pri |
| 2b4820 | 6e 74 2d 73 74 72 69 6e 67 20 28 73 74 72 65 61 6d 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 | nt-string.(stream.string)....... |
| 2b4840 | 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 2a 70 72 69 6e 74 2d 65 73 63 61 70 65 2a 20 0a 20 20 | .......(cond.(*print-escape*.... |
| 2b4860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 73 63 61 70 65 2d 73 74 72 69 6e 67 | ..................(escape-string |
| 2b4880 | 20 73 74 72 69 6e 67 20 73 74 72 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .string.stream.................. |
| 2b48a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 61 70 20 27 28 28 23 5c 22 20 2e 20 | ..................:map.'((#\"... |
| 2b48c0 | 22 5c 5c 5c 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "\\\"")......................... |
| 2b48e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 5c 5c 20 2e 20 22 5c 5c 5c 5c 22 29 | ..................(#\\..."\\\\") |
| 2b4900 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2b4920 | 20 20 20 20 20 20 20 20 20 20 20 28 23 5c 6e 65 77 6c 69 6e 65 20 2e 20 22 5c 5c 6e 22 29 0a 20 | ...........(#\newline..."\\n").. |
| 2b4940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2b4960 | 20 20 20 20 20 20 20 20 20 28 23 5c 72 65 74 75 72 6e 20 2e 20 22 5c 5c 72 22 29 29 29 29 0a 20 | .........(#\return..."\\r")))).. |
| 2b4980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 77 72 69 74 65 2d 73 74 72 69 | ..................(t.(write-stri |
| 2b49a0 | 6e 67 20 73 74 72 69 6e 67 20 73 74 72 65 61 6d 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 | ng.string.stream))))).......(set |
| 2b49c0 | 2d 70 70 72 69 6e 74 2d 64 69 73 70 61 74 63 68 20 27 73 74 72 69 6e 67 20 20 23 27 70 72 69 6e | -pprint-dispatch.'string..#'prin |
| 2b49e0 | 74 2d 73 74 72 69 6e 67 20 30 20 74 61 62 6c 65 29 0a 20 20 20 20 20 20 74 61 62 6c 65 29 29 29 | t-string.0.table).......table))) |
| 2b4a00 | 0a 0a 28 64 65 66 76 61 72 20 2a 62 61 63 6b 74 72 61 63 65 2d 70 72 69 6e 74 65 72 2d 62 69 6e | ..(defvar.*backtrace-printer-bin |
| 2b4a20 | 64 69 6e 67 73 2a 0a 20 20 60 28 28 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a 20 20 20 20 20 20 | dings*...`((*print-pretty*...... |
| 2b4a40 | 20 20 20 20 20 2e 20 74 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 20 | .......t).....(*print-readably*. |
| 2b4a60 | 20 20 20 20 20 20 20 20 2e 20 6e 69 6c 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 6c 65 76 65 6c | ..........nil).....(*print-level |
| 2b4a80 | 2a 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 34 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 6c 65 | *..............4).....(*print-le |
| 2b4aa0 | 6e 67 74 68 2a 20 20 20 20 20 20 20 20 20 20 20 2e 20 36 29 0a 20 20 20 20 23 2b 23 2e 28 73 77 | ngth*.............6).....#+#.(sw |
| 2b4ac0 | 61 6e 6b 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 2a 70 72 69 6e 74 2d | ank/backend:with-symbol.'*print- |
| 2b4ae0 | 76 65 63 74 6f 72 2d 6c 65 6e 67 74 68 2a 20 27 73 62 2d 65 78 74 29 0a 20 20 20 20 28 73 62 2d | vector-length*.'sb-ext).....(sb- |
| 2b4b00 | 65 78 74 3a 2a 70 72 69 6e 74 2d 76 65 63 74 6f 72 2d 6c 65 6e 67 74 68 2a 20 2e 20 32 30 30 29 | ext:*print-vector-length*...200) |
| 2b4b20 | 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 6c 69 6e 65 73 2a 20 20 20 20 20 20 20 20 20 20 20 20 2e | .....(*print-lines*............. |
| 2b4b40 | 20 31 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 2a 20 20 20 | .1).....(*print-right-margin*... |
| 2b4b60 | 20 20 2e 20 32 30 30 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 70 70 72 69 6e 74 2d 64 69 73 70 | ....200).....(*print-pprint-disp |
| 2b4b80 | 61 74 63 68 2a 20 20 2e 20 2c 2a 62 61 63 6b 74 72 61 63 65 2d 70 70 72 69 6e 74 2d 64 69 73 70 | atch*....,*backtrace-pprint-disp |
| 2b4ba0 | 61 74 63 68 2d 74 61 62 6c 65 2a 29 29 0a 20 20 22 50 72 65 74 74 65 72 20 73 65 74 74 69 6e 67 | atch-table*))..."Pretter.setting |
| 2b4bc0 | 73 20 66 6f 72 20 70 72 69 6e 74 69 6e 67 20 62 61 63 6b 74 72 61 63 65 73 2e 22 29 0a 0a 28 64 | s.for.printing.backtraces.")..(d |
| 2b4be0 | 65 66 76 61 72 20 2a 64 65 66 61 75 6c 74 2d 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 2d 62 69 6e | efvar.*default-worker-thread-bin |
| 2b4c00 | 64 69 6e 67 73 2a 20 27 28 29 0a 20 20 22 41 6e 20 61 6c 69 73 74 20 74 6f 20 69 6e 69 74 69 61 | dings*.'()..."An.alist.to.initia |
| 2b4c20 | 6c 69 7a 65 20 64 79 6e 61 6d 69 63 20 76 61 72 69 61 62 6c 65 73 20 69 6e 20 77 6f 72 6b 65 72 | lize.dynamic.variables.in.worker |
| 2b4c40 | 20 74 68 72 65 61 64 73 2e 20 20 0a 54 68 65 20 6c 69 73 74 20 68 61 73 20 74 68 65 20 66 6f 72 | .threads....The.list.has.the.for |
| 2b4c60 | 6d 20 28 28 56 41 52 20 2e 20 56 41 4c 55 45 29 20 2e 2e 2e 29 2e 20 20 45 61 63 68 20 76 61 72 | m.((VAR...VALUE)....)...Each.var |
| 2b4c80 | 69 61 62 6c 65 20 56 41 52 20 77 69 6c 6c 20 62 65 0a 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 63 | iable.VAR.will.be.bound.to.the.c |
| 2b4ca0 | 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 56 41 4c 55 45 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 61 | orresponding.VALUE.")..(defun.ca |
| 2b4cc0 | 6c 6c 2d 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 20 28 61 6c 69 73 74 20 66 75 6e 29 0a 20 20 22 | ll-with-bindings.(alist.fun)..." |
| 2b4ce0 | 43 61 6c 6c 20 46 55 4e 20 77 69 74 68 20 76 61 72 69 61 62 6c 65 73 20 62 6f 75 6e 64 20 61 63 | Call.FUN.with.variables.bound.ac |
| 2b4d00 | 63 6f 72 64 69 6e 67 20 74 6f 20 41 4c 49 53 54 2e 0a 41 4c 49 53 54 20 69 73 20 61 20 6c 69 73 | cording.to.ALIST..ALIST.is.a.lis |
| 2b4d20 | 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 28 56 41 52 20 2e 20 56 41 4c 29 20 2e 2e 2e 29 2e | t.of.the.form.((VAR...VAL)....). |
| 2b4d40 | 22 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 61 6c 69 73 74 29 0a 20 20 20 20 20 20 28 66 75 6e 63 | "...(if.(null.alist).......(func |
| 2b4d60 | 61 6c 6c 20 66 75 6e 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 72 6c 69 73 74 20 28 72 65 | all.fun).......(let*.((rlist.(re |
| 2b4d80 | 76 65 72 73 65 20 61 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 72 73 | verse.alist))..............(vars |
| 2b4da0 | 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 72 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 | .(mapcar.#'car.rlist)).......... |
| 2b4dc0 | 20 20 20 20 28 76 61 6c 73 20 28 6d 61 70 63 61 72 20 23 27 63 64 72 20 72 6c 69 73 74 29 29 29 | ....(vals.(mapcar.#'cdr.rlist))) |
| 2b4de0 | 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 76 20 76 61 72 73 20 76 61 6c 73 0a 20 20 20 20 20 20 | .........(progv.vars.vals....... |
| 2b4e00 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f | ....(funcall.fun)))))..(defmacro |
| 2b4e20 | 20 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 20 28 61 6c 69 73 74 20 26 62 6f 64 79 20 62 6f 64 79 | .with-bindings.(alist.&body.body |
| 2b4e40 | 29 0a 20 20 22 53 65 65 20 60 63 61 6c 6c 2d 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 27 2e 22 0a | )..."See.`call-with-bindings'.". |
| 2b4e60 | 20 20 60 28 63 61 6c 6c 2d 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 20 2c 61 6c 69 73 74 20 28 6c | ..`(call-with-bindings.,alist.(l |
| 2b4e80 | 61 6d 62 64 61 20 28 29 20 2c 40 62 6f 64 79 29 29 29 0a 0a 3b 3b 3b 20 54 68 65 20 60 44 45 46 | ambda.().,@body)))..;;;.The.`DEF |
| 2b4ea0 | 53 4c 49 4d 45 46 55 4e 27 20 6d 61 63 72 6f 20 64 65 66 69 6e 65 73 20 61 20 66 75 6e 63 74 69 | SLIMEFUN'.macro.defines.a.functi |
| 2b4ec0 | 6f 6e 20 74 68 61 74 20 45 6d 61 63 73 20 63 61 6e 20 63 61 6c 6c 20 76 69 61 0a 3b 3b 3b 20 52 | on.that.Emacs.can.call.via.;;;.R |
| 2b4ee0 | 50 43 2e 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 73 6c 69 6d 65 66 75 6e 20 28 6e 61 6d 65 | PC...(defmacro.defslimefun.(name |
| 2b4f00 | 20 61 72 67 6c 69 73 74 20 26 62 6f 64 79 20 72 65 73 74 29 0a 20 20 22 41 20 44 45 46 55 4e 20 | .arglist.&body.rest)..."A.DEFUN. |
| 2b4f20 | 66 6f 72 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 45 6d 61 63 73 20 63 61 6e 20 63 61 6c | for.functions.that.Emacs.can.cal |
| 2b4f40 | 6c 20 62 79 20 52 50 43 2e 22 0a 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 28 64 65 66 75 6e | l.by.RPC."...`(progn......(defun |
| 2b4f60 | 20 2c 6e 61 6d 65 20 2c 61 72 67 6c 69 73 74 20 2c 40 72 65 73 74 29 0a 20 20 20 20 20 3b 3b 20 | .,name.,arglist.,@rest)......;;. |
| 2b4f80 | 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 66 72 61 6e 7a 2e 63 6f 6d 2f 73 75 70 70 6f 72 | see.<http://www.franz.com/suppor |
| 2b4fa0 | 74 2f 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2f 36 2e 32 2f 5c 0a 20 20 20 20 20 3b 3b 20 64 6f | t/documentation/6.2/\......;;.do |
| 2b4fc0 | 63 2f 70 61 67 65 73 2f 76 61 72 69 61 62 6c 65 73 2f 63 6f 6d 70 69 6c 65 72 2f 5c 0a 20 20 20 | c/pages/variables/compiler/\.... |
| 2b4fe0 | 20 20 3b 3b 20 73 5f 63 6c 74 6c 31 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 74 6f 70 6c 65 76 | ..;;.s_cltl1-compile-file-toplev |
| 2b5000 | 65 6c 2d 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 2d 70 5f 73 2e 68 74 6d 3e 0a 20 20 20 20 20 28 | el-compatibility-p_s.htm>......( |
| 2b5020 | 65 76 61 6c 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 20 3a 6c 6f | eval-when.(:compile-toplevel.:lo |
| 2b5040 | 61 64 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 0a 20 20 20 20 20 20 20 28 65 78 | ad-toplevel.:execute)........(ex |
| 2b5060 | 70 6f 72 74 20 27 2c 6e 61 6d 65 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 27 2c 6e 61 | port.',name.(symbol-package.',na |
| 2b5080 | 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 69 73 73 69 6e 67 2d 61 72 67 20 28 29 0a 20 | me)))))..(defun.missing-arg.().. |
| 2b50a0 | 20 22 41 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6b | ."A.function.that.the.compiler.k |
| 2b50c0 | 6e 6f 77 73 20 77 69 6c 6c 20 6e 65 76 65 72 20 74 6f 20 72 65 74 75 72 6e 20 61 20 76 61 6c 75 | nows.will.never.to.return.a.valu |
| 2b50e0 | 65 2e 0a 59 6f 75 20 63 61 6e 20 75 73 65 20 28 4d 49 53 53 49 4e 47 2d 41 52 47 29 20 61 73 20 | e..You.can.use.(MISSING-ARG).as. |
| 2b5100 | 74 68 65 20 69 6e 69 74 66 6f 72 6d 20 66 6f 72 20 64 65 66 73 74 72 75 63 74 20 73 6c 6f 74 73 | the.initform.for.defstruct.slots |
| 2b5120 | 20 74 68 61 74 0a 6d 75 73 74 20 61 6c 77 61 79 73 20 62 65 20 73 75 70 70 6c 69 65 64 2e 20 54 | .that.must.always.be.supplied..T |
| 2b5140 | 68 69 73 20 77 61 79 20 74 68 65 20 3a 54 59 50 45 20 73 6c 6f 74 20 6f 70 74 69 6f 6e 20 6e 65 | his.way.the.:TYPE.slot.option.ne |
| 2b5160 | 65 64 20 6e 6f 74 0a 69 6e 63 6c 75 64 65 20 73 6f 6d 65 20 61 72 62 69 74 72 61 72 79 20 69 6e | ed.not.include.some.arbitrary.in |
| 2b5180 | 69 74 69 61 6c 20 76 61 6c 75 65 20 6c 69 6b 65 20 4e 49 4c 2e 22 0a 20 20 28 65 72 72 6f 72 20 | itial.value.like.NIL."...(error. |
| 2b51a0 | 22 41 20 72 65 71 75 69 72 65 64 20 26 4b 45 59 20 6f 72 20 26 4f 50 54 49 4f 4e 41 4c 20 61 72 | "A.required.&KEY.or.&OPTIONAL.ar |
| 2b51c0 | 67 75 6d 65 6e 74 20 77 61 73 20 6e 6f 74 20 73 75 70 70 6c 69 65 64 2e 22 29 29 0a 0a 0c 0a 3b | gument.was.not.supplied."))....; |
| 2b51e0 | 3b 3b 3b 20 48 6f 6f 6b 73 0a 3b 3b 3b 0a 3b 3b 3b 20 57 65 20 75 73 65 20 45 6d 61 63 73 2d 6c | ;;;.Hooks.;;;.;;;.We.use.Emacs-l |
| 2b5200 | 69 6b 65 20 60 61 64 64 2d 68 6f 6f 6b 27 20 61 6e 64 20 60 72 75 6e 2d 68 6f 6f 6b 27 20 75 74 | ike.`add-hook'.and.`run-hook'.ut |
| 2b5220 | 69 6c 69 74 69 65 73 20 74 6f 20 73 75 70 70 6f 72 74 0a 3b 3b 3b 20 73 69 6d 70 6c 65 20 69 6e | ilities.to.support.;;;.simple.in |
| 2b5240 | 64 69 72 65 63 74 69 6f 6e 2e 20 54 68 65 20 69 6e 74 65 72 66 61 63 65 20 69 73 20 6d 6f 72 65 | direction..The.interface.is.more |
| 2b5260 | 20 43 4c 69 73 68 20 74 68 61 6e 20 74 68 65 20 45 6d 61 63 73 0a 3b 3b 3b 20 4c 69 73 70 20 6f | .CLish.than.the.Emacs.;;;.Lisp.o |
| 2b5280 | 6e 65 2e 0a 0a 28 64 65 66 6d 61 63 72 6f 20 61 64 64 2d 68 6f 6f 6b 20 28 70 6c 61 63 65 20 66 | ne...(defmacro.add-hook.(place.f |
| 2b52a0 | 75 6e 63 74 69 6f 6e 29 0a 20 20 22 41 64 64 20 46 55 4e 43 54 49 4f 4e 20 74 6f 20 74 68 65 20 | unction)..."Add.FUNCTION.to.the. |
| 2b52c0 | 6c 69 73 74 20 6f 66 20 76 61 6c 75 65 73 20 6f 6e 20 50 4c 41 43 45 2e 22 0a 20 20 60 28 70 75 | list.of.values.on.PLACE."...`(pu |
| 2b52e0 | 73 68 6e 65 77 20 2c 66 75 6e 63 74 69 6f 6e 20 2c 70 6c 61 63 65 29 29 0a 0a 28 64 65 66 75 6e | shnew.,function.,place))..(defun |
| 2b5300 | 20 72 75 6e 2d 68 6f 6f 6b 20 28 66 75 6e 63 74 69 6f 6e 73 20 26 72 65 73 74 20 61 72 67 75 6d | .run-hook.(functions.&rest.argum |
| 2b5320 | 65 6e 74 73 29 0a 20 20 22 43 61 6c 6c 20 65 61 63 68 20 6f 66 20 46 55 4e 43 54 49 4f 4e 53 20 | ents)..."Call.each.of.FUNCTIONS. |
| 2b5340 | 77 69 74 68 20 41 52 47 55 4d 45 4e 54 53 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 66 75 6e 63 | with.ARGUMENTS."...(dolist.(func |
| 2b5360 | 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 73 29 0a 20 20 20 20 28 61 70 70 6c 79 20 66 75 6e 63 74 | tion.functions).....(apply.funct |
| 2b5380 | 69 6f 6e 20 61 72 67 75 6d 65 6e 74 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 75 6e 2d 68 6f 6f | ion.arguments)))..(defun.run-hoo |
| 2b53a0 | 6b 2d 75 6e 74 69 6c 2d 73 75 63 63 65 73 73 20 28 66 75 6e 63 74 69 6f 6e 73 20 26 72 65 73 74 | k-until-success.(functions.&rest |
| 2b53c0 | 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 22 43 61 6c 6c 20 65 61 63 68 20 6f 66 20 46 55 4e 43 | .arguments)..."Call.each.of.FUNC |
| 2b53e0 | 54 49 4f 4e 53 20 77 69 74 68 20 41 52 47 55 4d 45 4e 54 53 2c 20 73 74 6f 70 20 69 66 20 61 6e | TIONS.with.ARGUMENTS,.stop.if.an |
| 2b5400 | 79 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 0a 61 20 74 72 75 74 68 79 20 76 61 6c 75 | y.function.returns.a.truthy.valu |
| 2b5420 | 65 22 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 68 6f 6f 6b 20 69 6e 20 66 75 6e 63 74 69 6f 6e 73 | e"...(loop.for.hook.in.functions |
| 2b5440 | 0a 20 20 20 20 20 20 20 20 20 20 74 68 65 72 65 69 73 20 28 61 70 70 6c 79 20 68 6f 6f 6b 20 61 | ...........thereis.(apply.hook.a |
| 2b5460 | 72 67 75 6d 65 6e 74 73 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 6e 65 77 2d 63 6f 6e 6e 65 63 | rguments)))..(defvar.*new-connec |
| 2b5480 | 74 69 6f 6e 2d 68 6f 6f 6b 2a 20 27 28 29 0a 20 20 22 54 68 69 73 20 68 6f 6f 6b 20 69 73 20 72 | tion-hook*.'()..."This.hook.is.r |
| 2b54a0 | 75 6e 20 65 61 63 68 20 74 69 6d 65 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 65 73 74 | un.each.time.a.connection.is.est |
| 2b54c0 | 61 62 6c 69 73 68 65 64 2e 0a 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 75 63 74 75 | ablished..The.connection.structu |
| 2b54e0 | 72 65 20 69 73 20 67 69 76 65 6e 20 61 73 20 74 68 65 20 61 72 67 75 6d 65 6e 74 2e 0a 42 61 63 | re.is.given.as.the.argument..Bac |
| 2b5500 | 6b 65 6e 64 20 63 6f 64 65 20 73 68 6f 75 6c 64 20 74 72 65 61 74 20 74 68 65 20 63 6f 6e 6e 65 | kend.code.should.treat.the.conne |
| 2b5520 | 63 74 69 6f 6e 20 73 74 72 75 63 74 75 72 65 20 61 73 20 6f 70 61 71 75 65 2e 22 29 0a 0a 28 64 | ction.structure.as.opaque.")..(d |
| 2b5540 | 65 66 76 61 72 20 2a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6c 6f 73 65 64 2d 68 6f 6f 6b 2a 20 27 | efvar.*connection-closed-hook*.' |
| 2b5560 | 28 29 0a 20 20 22 54 68 69 73 20 68 6f 6f 6b 20 69 73 20 72 75 6e 20 77 68 65 6e 20 61 20 63 6f | ()..."This.hook.is.run.when.a.co |
| 2b5580 | 6e 6e 65 63 74 69 6f 6e 20 69 73 20 63 6c 6f 73 65 64 2e 0a 54 68 65 20 63 6f 6e 6e 65 63 74 69 | nnection.is.closed..The.connecti |
| 2b55a0 | 6f 6e 20 61 73 20 70 61 73 73 65 64 20 61 73 20 61 6e 20 61 72 67 75 6d 65 6e 74 2e 0a 42 61 63 | on.as.passed.as.an.argument..Bac |
| 2b55c0 | 6b 65 6e 64 20 63 6f 64 65 20 73 68 6f 75 6c 64 20 74 72 65 61 74 20 74 68 65 20 63 6f 6e 6e 65 | kend.code.should.treat.the.conne |
| 2b55e0 | 63 74 69 6f 6e 20 73 74 72 75 63 74 75 72 65 20 61 73 20 6f 70 61 71 75 65 2e 22 29 0a 0a 28 64 | ction.structure.as.opaque.")..(d |
| 2b5600 | 65 66 76 61 72 20 2a 70 72 65 2d 72 65 70 6c 79 2d 68 6f 6f 6b 2a 20 27 28 29 0a 20 20 22 48 6f | efvar.*pre-reply-hook*.'()..."Ho |
| 2b5620 | 6f 6b 20 72 75 6e 20 28 77 69 74 68 6f 75 74 20 61 72 67 75 6d 65 6e 74 73 29 20 69 6d 6d 65 64 | ok.run.(without.arguments).immed |
| 2b5640 | 69 61 74 65 6c 79 20 62 65 66 6f 72 65 20 72 65 70 6c 79 69 6e 67 20 74 6f 20 61 6e 20 52 50 43 | iately.before.replying.to.an.RPC |
| 2b5660 | 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 61 66 74 65 72 2d 69 6e 69 74 2d 68 6f 6f 6b 2a 20 27 | .")..(defvar.*after-init-hook*.' |
| 2b5680 | 28 29 0a 20 20 22 48 6f 6f 6b 20 72 75 6e 20 61 66 74 65 72 20 75 73 65 72 20 69 6e 69 74 20 66 | ()..."Hook.run.after.user.init.f |
| 2b56a0 | 69 6c 65 73 20 61 72 65 20 6c 6f 61 64 65 64 2e 22 29 0a 0a 0c 0a 3b 3b 3b 3b 20 43 6f 6e 6e 65 | iles.are.loaded.")....;;;;.Conne |
| 2b56c0 | 63 74 69 6f 6e 73 0a 3b 3b 3b 0a 3b 3b 3b 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 75 63 74 | ctions.;;;.;;;.Connection.struct |
| 2b56e0 | 75 72 65 73 20 72 65 70 72 65 73 65 6e 74 20 74 68 65 20 6e 65 74 77 6f 72 6b 20 63 6f 6e 6e 65 | ures.represent.the.network.conne |
| 2b5700 | 63 74 69 6f 6e 73 20 62 65 74 77 65 65 6e 0a 3b 3b 3b 20 45 6d 61 63 73 20 61 6e 64 20 4c 69 73 | ctions.between.;;;.Emacs.and.Lis |
| 2b5720 | 70 2e 20 45 61 63 68 20 68 61 73 20 61 20 73 6f 63 6b 65 74 20 73 74 72 65 61 6d 2c 20 61 20 73 | p..Each.has.a.socket.stream,.a.s |
| 2b5740 | 65 74 20 6f 66 20 75 73 65 72 20 49 2f 4f 0a 3b 3b 3b 20 73 74 72 65 61 6d 73 20 74 68 61 74 20 | et.of.user.I/O.;;;.streams.that. |
| 2b5760 | 72 65 64 69 72 65 63 74 20 74 6f 20 45 6d 61 63 73 2c 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c 6c | redirect.to.Emacs,.and.optionall |
| 2b5780 | 79 20 61 20 73 65 63 6f 6e 64 20 73 6f 63 6b 65 74 0a 3b 3b 3b 20 75 73 65 64 20 73 6f 6c 65 6c | y.a.second.socket.;;;.used.solel |
| 2b57a0 | 79 20 74 6f 20 70 69 70 65 20 75 73 65 72 2d 6f 75 74 70 75 74 20 74 6f 20 45 6d 61 63 73 20 28 | y.to.pipe.user-output.to.Emacs.( |
| 2b57c0 | 61 6e 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 29 2e 20 20 54 68 69 73 0a 3b 3b 3b 20 69 73 20 61 | an.optimization)...This.;;;.is.a |
| 2b57e0 | 6c 73 6f 20 74 68 65 20 70 6c 61 63 65 20 77 68 65 72 65 20 77 65 20 6b 65 65 70 20 65 76 65 72 | lso.the.place.where.we.keep.ever |
| 2b5800 | 79 74 68 69 6e 67 20 74 68 61 74 20 6e 65 65 64 73 20 74 6f 20 62 65 0a 3b 3b 3b 20 66 72 65 65 | ything.that.needs.to.be.;;;.free |
| 2b5820 | 64 2f 63 6c 6f 73 65 64 2f 6b 69 6c 6c 65 64 20 77 68 65 6e 20 77 65 20 64 69 73 63 6f 6e 6e 65 | d/closed/killed.when.we.disconne |
| 2b5840 | 63 74 2e 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 | ct...(defstruct.(connection..... |
| 2b5860 | 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 25 6d 61 6b 65 2d 63 6f 6e | .........(:constructor.%make-con |
| 2b5880 | 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 63 2d 6e 61 6d | nection)..............(:conc-nam |
| 2b58a0 | 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 70 72 | e.connection.)..............(:pr |
| 2b58c0 | 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 70 72 69 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a | int-function.print-connection)). |
| 2b58e0 | 20 20 3b 3b 20 54 68 65 20 6c 69 73 74 65 6e 69 6e 67 20 73 6f 63 6b 65 74 2e 20 28 75 73 75 61 | ..;;.The.listening.socket..(usua |
| 2b5900 | 6c 6c 79 20 63 6c 6f 73 65 64 29 0a 20 20 28 73 6f 63 6b 65 74 20 20 20 20 20 20 20 20 20 20 20 | lly.closed)...(socket........... |
| 2b5920 | 28 6d 69 73 73 69 6e 67 2d 61 72 67 29 20 3a 74 79 70 65 20 74 20 3a 72 65 61 64 2d 6f 6e 6c 79 | (missing-arg).:type.t.:read-only |
| 2b5940 | 20 74 29 0a 20 20 3b 3b 20 43 68 61 72 61 63 74 65 72 20 49 2f 4f 20 73 74 72 65 61 6d 20 6f 66 | .t)...;;.Character.I/O.stream.of |
| 2b5960 | 20 73 6f 63 6b 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 20 52 65 61 64 2d 6f 6e 6c 79 20 74 | .socket.connection...Read-only.t |
| 2b5980 | 6f 20 61 76 6f 69 64 0a 20 20 3b 3b 20 72 61 63 65 20 63 6f 6e 64 69 74 69 6f 6e 73 20 64 75 72 | o.avoid...;;.race.conditions.dur |
| 2b59a0 | 69 6e 67 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 2e 0a 20 20 28 73 6f 63 6b 65 74 2d 69 6f | ing.initialization....(socket-io |
| 2b59c0 | 20 20 20 20 20 20 20 20 28 6d 69 73 73 69 6e 67 2d 61 72 67 29 20 3a 74 79 70 65 20 73 74 72 65 | ........(missing-arg).:type.stre |
| 2b59e0 | 61 6d 20 3a 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 3b 3b 20 53 74 72 65 61 6d 73 20 74 68 | am.:read-only.t)...;;.Streams.th |
| 2b5a00 | 61 74 20 63 61 6e 20 62 65 20 75 73 65 64 20 66 6f 72 20 75 73 65 72 20 69 6e 74 65 72 61 63 74 | at.can.be.used.for.user.interact |
| 2b5a20 | 69 6f 6e 2c 20 77 69 74 68 20 72 65 71 75 65 73 74 73 0a 20 20 3b 3b 20 72 65 64 69 72 65 63 74 | ion,.with.requests...;;.redirect |
| 2b5a40 | 65 64 20 74 6f 20 45 6d 61 63 73 2e 0a 20 20 28 75 73 65 72 2d 69 6e 70 75 74 20 20 20 20 20 20 | ed.to.Emacs....(user-input...... |
| 2b5a60 | 20 6e 69 6c 20 3a 74 79 70 65 20 28 6f 72 20 73 74 72 65 61 6d 20 6e 75 6c 6c 29 29 0a 20 20 28 | .nil.:type.(or.stream.null))...( |
| 2b5a80 | 75 73 65 72 2d 6f 75 74 70 75 74 20 20 20 20 20 20 6e 69 6c 20 3a 74 79 70 65 20 28 6f 72 20 73 | user-output......nil.:type.(or.s |
| 2b5aa0 | 74 72 65 61 6d 20 6e 75 6c 6c 29 29 0a 20 20 28 75 73 65 72 2d 69 6f 20 20 20 20 20 20 20 20 20 | tream.null))...(user-io......... |
| 2b5ac0 | 20 6e 69 6c 20 3a 74 79 70 65 20 28 6f 72 20 73 74 72 65 61 6d 20 6e 75 6c 6c 29 29 0a 20 20 3b | .nil.:type.(or.stream.null))...; |
| 2b5ae0 | 3b 20 42 69 6e 64 69 6e 67 73 20 75 73 65 64 20 66 6f 72 20 74 68 69 73 20 63 6f 6e 6e 65 63 74 | ;.Bindings.used.for.this.connect |
| 2b5b00 | 69 6f 6e 20 28 75 73 75 61 6c 6c 79 20 73 74 72 65 61 6d 73 29 0a 20 20 28 65 6e 76 20 27 28 29 | ion.(usually.streams)...(env.'() |
| 2b5b20 | 20 3a 74 79 70 65 20 6c 69 73 74 29 0a 20 20 3b 3b 20 41 20 73 74 72 65 61 6d 20 74 68 61 74 20 | .:type.list)...;;.A.stream.that. |
| 2b5b40 | 77 65 20 75 73 65 20 66 6f 72 20 2a 74 72 61 63 65 2d 6f 75 74 70 75 74 2a 3b 20 69 66 20 6e 69 | we.use.for.*trace-output*;.if.ni |
| 2b5b60 | 6c 2c 20 77 65 20 75 73 65 72 20 75 73 65 72 2d 6f 75 74 70 75 74 2e 0a 20 20 28 74 72 61 63 65 | l,.we.user.user-output....(trace |
| 2b5b80 | 2d 6f 75 74 70 75 74 20 20 20 20 20 6e 69 6c 20 3a 74 79 70 65 20 28 6f 72 20 73 74 72 65 61 6d | -output.....nil.:type.(or.stream |
| 2b5ba0 | 20 6e 75 6c 6c 29 29 0a 20 20 3b 3b 20 41 20 73 74 72 65 61 6d 20 77 68 65 72 65 20 77 65 20 73 | .null))...;;.A.stream.where.we.s |
| 2b5bc0 | 65 6e 64 20 52 45 50 4c 20 72 65 73 75 6c 74 73 2e 0a 20 20 28 72 65 70 6c 2d 72 65 73 75 6c 74 | end.REPL.results....(repl-result |
| 2b5be0 | 73 20 20 20 20 20 6e 69 6c 20 3a 74 79 70 65 20 28 6f 72 20 73 74 72 65 61 6d 20 6e 75 6c 6c 29 | s.....nil.:type.(or.stream.null) |
| 2b5c00 | 29 0a 20 20 3b 3b 20 43 61 63 68 65 20 6f 66 20 6d 61 63 72 6f 2d 69 6e 64 65 6e 74 61 74 69 6f | )...;;.Cache.of.macro-indentatio |
| 2b5c20 | 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 68 61 74 20 68 61 73 20 62 65 65 6e 20 73 65 6e 74 | n.information.that.has.been.sent |
| 2b5c40 | 20 74 6f 20 45 6d 61 63 73 2e 0a 20 20 3b 3b 20 54 68 69 73 20 69 73 20 75 73 65 64 20 66 6f 72 | .to.Emacs....;;.This.is.used.for |
| 2b5c60 | 20 70 72 65 70 61 72 69 6e 67 20 64 65 6c 74 61 73 20 74 6f 20 75 70 64 61 74 65 20 45 6d 61 63 | .preparing.deltas.to.update.Emac |
| 2b5c80 | 73 27 73 20 6b 6e 6f 77 6c 65 64 67 65 2e 0a 20 20 3b 3b 20 4d 61 70 73 3a 20 73 79 6d 62 6f 6c | s's.knowledge....;;.Maps:.symbol |
| 2b5ca0 | 20 2d 3e 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 73 70 65 63 69 66 69 63 61 74 69 6f 6e 0a 20 20 | .->.indentation-specification... |
| 2b5cc0 | 28 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 63 61 63 68 65 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 | (indentation-cache.(make-hash-ta |
| 2b5ce0 | 62 6c 65 20 3a 74 65 73 74 20 27 65 71 29 20 3a 74 79 70 65 20 68 61 73 68 2d 74 61 62 6c 65 29 | ble.:test.'eq).:type.hash-table) |
| 2b5d00 | 0a 20 20 3b 3b 20 54 68 65 20 6c 69 73 74 20 6f 66 20 70 61 63 6b 61 67 65 73 20 72 65 70 72 65 | ...;;.The.list.of.packages.repre |
| 2b5d20 | 73 65 6e 74 65 64 20 69 6e 20 74 68 65 20 63 61 63 68 65 3a 0a 20 20 28 69 6e 64 65 6e 74 61 74 | sented.in.the.cache:...(indentat |
| 2b5d40 | 69 6f 6e 2d 63 61 63 68 65 2d 70 61 63 6b 61 67 65 73 20 27 28 29 29 0a 20 20 3b 3b 20 54 68 65 | ion-cache-packages.'())...;;.The |
| 2b5d60 | 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 74 79 6c 65 20 75 73 65 64 2e 0a 20 20 28 63 6f | .communication.style.used....(co |
| 2b5d80 | 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 6e 69 6c 20 3a 74 79 70 65 20 28 6d 65 6d | mmunication-style.nil.:type.(mem |
| 2b5da0 | 62 65 72 20 6e 69 6c 20 3a 73 70 61 77 6e 20 3a 73 69 67 69 6f 20 3a 66 64 2d 68 61 6e 64 6c 65 | ber.nil.:spawn.:sigio.:fd-handle |
| 2b5dc0 | 72 29 29 0a 20 20 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e | r))...)..(defun.print-connection |
| 2b5de0 | 20 28 63 6f 6e 6e 20 73 74 72 65 61 6d 20 64 65 70 74 68 29 0a 20 20 28 64 65 63 6c 61 72 65 20 | .(conn.stream.depth)...(declare. |
| 2b5e00 | 28 69 67 6e 6f 72 65 20 64 65 70 74 68 29 29 0a 20 20 28 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 | (ignore.depth))...(print-unreada |
| 2b5e20 | 62 6c 65 2d 6f 62 6a 65 63 74 20 28 63 6f 6e 6e 20 73 74 72 65 61 6d 20 3a 74 79 70 65 20 74 20 | ble-object.(conn.stream.:type.t. |
| 2b5e40 | 3a 69 64 65 6e 74 69 74 79 20 74 29 29 29 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 73 69 6e 67 | :identity.t)))..(defstruct.(sing |
| 2b5e60 | 6c 65 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 3a 69 6e 63 6c 75 64 65 20 | lethreaded-connection.(:include. |
| 2b5e80 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | connection)..................... |
| 2b5ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 73 63 | ..................(:conc-name.sc |
| 2b5ec0 | 6f 6e 6e 2e 29 29 0a 20 20 3b 3b 20 54 68 65 20 53 49 47 49 4e 54 20 68 61 6e 64 6c 65 72 20 77 | onn.))...;;.The.SIGINT.handler.w |
| 2b5ee0 | 65 20 73 68 6f 75 6c 64 20 72 65 73 74 6f 72 65 20 77 68 65 6e 20 74 68 65 20 63 6f 6e 6e 65 63 | e.should.restore.when.the.connec |
| 2b5f00 | 74 69 6f 6e 20 69 73 0a 20 20 3b 3b 20 63 6c 6f 73 65 64 2e 0a 20 20 73 61 76 65 64 2d 73 69 67 | tion.is...;;.closed....saved-sig |
| 2b5f20 | 69 6e 74 2d 68 61 6e 64 6c 65 72 0a 20 20 3b 3b 20 41 20 71 75 65 75 65 20 6f 66 20 65 76 65 6e | int-handler...;;.A.queue.of.even |
| 2b5f40 | 74 73 2e 20 20 4e 6f 74 20 61 6c 6c 20 65 76 65 6e 74 73 20 63 61 6e 20 62 65 20 70 72 6f 63 65 | ts...Not.all.events.can.be.proce |
| 2b5f60 | 73 73 65 64 20 69 6e 20 6f 72 64 65 72 20 61 6e 64 0a 20 20 3b 3b 20 77 65 20 6e 65 65 64 20 61 | ssed.in.order.and...;;.we.need.a |
| 2b5f80 | 20 70 6c 61 63 65 20 74 6f 20 73 74 6f 72 65 64 20 74 68 65 6d 2e 0a 20 20 28 65 76 65 6e 74 2d | .place.to.stored.them....(event- |
| 2b5fa0 | 71 75 65 75 65 20 27 28 29 20 3a 74 79 70 65 20 6c 69 73 74 29 0a 20 20 3b 3b 20 41 20 63 6f 75 | queue.'().:type.list)...;;.A.cou |
| 2b5fc0 | 6e 74 65 72 20 74 68 61 74 20 69 73 20 69 6e 63 72 65 6d 65 6e 74 65 64 20 77 68 65 6e 65 76 65 | nter.that.is.incremented.wheneve |
| 2b5fe0 | 72 20 61 6e 20 65 76 65 6e 74 20 69 73 20 61 64 64 65 64 20 74 6f 20 74 68 65 0a 20 20 3b 3b 20 | r.an.event.is.added.to.the...;;. |
| 2b6000 | 71 75 65 75 65 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 64 20 74 6f 20 64 65 74 65 63 74 65 64 | queue...This.is.used.to.detected |
| 2b6020 | 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 73 20 74 6f 20 74 68 65 20 65 76 65 6e 74 20 71 75 65 75 | .modifications.to.the.event.queu |
| 2b6040 | 65 0a 20 20 3b 3b 20 62 79 20 69 6e 74 65 72 72 75 70 74 73 2e 20 20 54 68 65 20 63 6f 75 6e 74 | e...;;.by.interrupts...The.count |
| 2b6060 | 65 72 20 77 72 61 70 73 20 61 72 6f 75 6e 64 2e 0a 20 20 28 65 76 65 6e 74 73 2d 65 6e 71 75 65 | er.wraps.around....(events-enque |
| 2b6080 | 75 65 64 20 30 20 3a 74 79 70 65 20 66 69 78 6e 75 6d 29 29 0a 0a 28 64 65 66 73 74 72 75 63 74 | ued.0.:type.fixnum))..(defstruct |
| 2b60a0 | 20 28 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 3a 69 6e 63 | .(multithreaded-connection.(:inc |
| 2b60c0 | 6c 75 64 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lude.connection)................ |
| 2b60e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f 6e 63 2d 6e 61 6d | ......................(:conc-nam |
| 2b6100 | 65 20 6d 63 6f 6e 6e 2e 29 29 0a 20 20 3b 3b 20 49 6e 20 6d 75 6c 74 69 74 68 72 65 61 64 65 64 | e.mconn.))...;;.In.multithreaded |
| 2b6120 | 20 73 79 73 74 65 6d 73 20 77 65 20 64 65 6c 65 67 61 74 65 20 63 65 72 74 61 69 6e 20 74 61 73 | .systems.we.delegate.certain.tas |
| 2b6140 | 6b 73 20 74 6f 20 73 70 65 63 69 66 69 63 0a 20 20 3b 3b 20 74 68 72 65 61 64 73 2e 20 54 68 65 | ks.to.specific...;;.threads..The |
| 2b6160 | 20 60 72 65 61 64 65 72 2d 74 68 72 65 61 64 27 20 69 73 20 72 65 73 70 6f 6e 73 69 62 6c 65 20 | .`reader-thread'.is.responsible. |
| 2b6180 | 66 6f 72 20 72 65 61 64 69 6e 67 20 6e 65 74 77 6f 72 6b 0a 20 20 3b 3b 20 72 65 71 75 65 73 74 | for.reading.network...;;.request |
| 2b61a0 | 73 20 66 72 6f 6d 20 45 6d 61 63 73 20 61 6e 64 20 73 65 6e 64 69 6e 67 20 74 68 65 6d 20 74 6f | s.from.Emacs.and.sending.them.to |
| 2b61c0 | 20 74 68 65 20 60 63 6f 6e 74 72 6f 6c 2d 74 68 72 65 61 64 27 3b 20 74 68 65 0a 20 20 3b 3b 20 | .the.`control-thread';.the...;;. |
| 2b61e0 | 60 63 6f 6e 74 72 6f 6c 2d 74 68 72 65 61 64 27 20 69 73 20 72 65 73 70 6f 6e 73 69 62 6c 65 20 | `control-thread'.is.responsible. |
| 2b6200 | 66 6f 72 20 64 69 73 70 61 74 63 68 69 6e 67 20 72 65 71 75 65 73 74 73 20 74 6f 20 74 68 65 0a | for.dispatching.requests.to.the. |
| 2b6220 | 20 20 3b 3b 20 74 68 72 65 61 64 73 20 74 68 61 74 20 73 68 6f 75 6c 64 20 68 61 6e 64 6c 65 20 | ..;;.threads.that.should.handle. |
| 2b6240 | 74 68 65 6d 3b 20 74 68 65 20 60 72 65 70 6c 2d 74 68 72 65 61 64 27 20 69 73 20 74 68 65 20 6f | them;.the.`repl-thread'.is.the.o |
| 2b6260 | 6e 65 0a 20 20 3b 3b 20 74 68 61 74 20 65 76 61 6c 75 61 74 65 73 20 52 45 50 4c 20 65 78 70 72 | ne...;;.that.evaluates.REPL.expr |
| 2b6280 | 65 73 73 69 6f 6e 73 2e 20 54 68 65 20 63 6f 6e 74 72 6f 6c 20 74 68 72 65 61 64 20 64 69 73 70 | essions..The.control.thread.disp |
| 2b62a0 | 61 74 63 68 65 73 0a 20 20 3b 3b 20 61 6c 6c 20 52 45 50 4c 20 65 76 61 6c 75 61 74 69 6f 6e 73 | atches...;;.all.REPL.evaluations |
| 2b62c0 | 20 74 6f 20 74 68 65 20 52 45 50 4c 20 74 68 72 65 61 64 20 61 6e 64 20 66 6f 72 20 6f 74 68 65 | .to.the.REPL.thread.and.for.othe |
| 2b62e0 | 72 20 72 65 71 75 65 73 74 73 20 69 74 0a 20 20 3b 3b 20 73 70 61 77 6e 73 20 6e 65 77 20 74 68 | r.requests.it...;;.spawns.new.th |
| 2b6300 | 72 65 61 64 73 2e 0a 20 20 72 65 61 64 65 72 2d 74 68 72 65 61 64 0a 20 20 63 6f 6e 74 72 6f 6c | reads....reader-thread...control |
| 2b6320 | 2d 74 68 72 65 61 64 0a 20 20 72 65 70 6c 2d 74 68 72 65 61 64 0a 20 20 61 75 74 6f 2d 66 6c 75 | -thread...repl-thread...auto-flu |
| 2b6340 | 73 68 2d 74 68 72 65 61 64 0a 20 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 63 61 63 68 65 2d 74 68 | sh-thread...indentation-cache-th |
| 2b6360 | 72 65 61 64 0a 20 20 3b 3b 20 4c 69 73 74 20 6f 66 20 74 68 72 65 61 64 73 20 74 68 61 74 20 61 | read...;;.List.of.threads.that.a |
| 2b6380 | 72 65 20 63 75 72 72 65 6e 74 6c 79 20 70 72 6f 63 65 73 73 69 6e 67 20 72 65 71 75 65 73 74 73 | re.currently.processing.requests |
| 2b63a0 | 2e 20 20 57 65 20 75 73 65 0a 20 20 3b 3b 20 74 68 69 73 20 74 6f 20 66 69 6e 64 20 74 68 65 20 | ...We.use...;;.this.to.find.the. |
| 2b63c0 | 6e 65 77 65 73 74 2f 63 75 72 72 65 6e 74 20 74 68 72 65 61 64 20 66 6f 72 20 61 6e 20 69 6e 74 | newest/current.thread.for.an.int |
| 2b63e0 | 65 72 72 75 70 74 2e 20 20 49 6e 20 74 68 65 0a 20 20 3b 3b 20 66 75 74 75 72 65 20 77 65 20 6d | errupt...In.the...;;.future.we.m |
| 2b6400 | 61 79 20 73 74 6f 72 65 20 68 65 72 65 20 28 74 68 72 65 61 64 20 2e 20 72 65 71 75 65 73 74 2d | ay.store.here.(thread...request- |
| 2b6420 | 74 61 67 29 20 70 61 69 72 73 20 73 6f 20 74 68 61 74 20 77 65 0a 20 20 3b 3b 20 63 61 6e 20 69 | tag).pairs.so.that.we...;;.can.i |
| 2b6440 | 6e 74 65 72 72 75 70 74 20 73 70 65 63 69 66 69 63 20 72 65 71 75 65 73 74 73 2e 0a 20 20 28 61 | nterrupt.specific.requests....(a |
| 2b6460 | 63 74 69 76 65 2d 74 68 72 65 61 64 73 20 27 28 29 20 3a 74 79 70 65 20 6c 69 73 74 29 0a 20 20 | ctive-threads.'().:type.list)... |
| 2b6480 | 29 0a 0a 28 64 65 66 76 61 72 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 20 6e 69 | )..(defvar.*emacs-connection*.ni |
| 2b64a0 | 6c 0a 20 20 22 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 45 6d 61 63 73 20 63 75 72 | l..."The.connection.to.Emacs.cur |
| 2b64c0 | 72 65 6e 74 6c 79 20 69 6e 20 75 73 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 63 6f | rently.in.use.")..(defun.make-co |
| 2b64e0 | 6e 6e 65 63 74 69 6f 6e 20 28 73 6f 63 6b 65 74 20 73 74 72 65 61 6d 20 73 74 79 6c 65 29 0a 20 | nnection.(socket.stream.style).. |
| 2b6500 | 20 28 6c 65 74 20 28 28 63 6f 6e 6e 20 28 66 75 6e 63 61 6c 6c 20 28 65 63 61 73 65 20 73 74 79 | .(let.((conn.(funcall.(ecase.sty |
| 2b6520 | 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 70 | le..........................(:sp |
| 2b6540 | 61 77 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 | awn............................# |
| 2b6560 | 27 6d 61 6b 65 2d 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a | 'make-multithreaded-connection). |
| 2b6580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 73 69 67 69 | .........................((:sigi |
| 2b65a0 | 6f 20 6e 69 6c 20 3a 66 64 2d 68 61 6e 64 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | o.nil.:fd-handler).............. |
| 2b65c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 6d 61 6b 65 2d 73 69 6e 67 6c 65 74 68 72 65 61 64 | .............#'make-singlethread |
| 2b65e0 | 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-connection))................. |
| 2b6600 | 20 20 20 20 20 20 20 3a 73 6f 63 6b 65 74 20 73 6f 63 6b 65 74 0a 20 20 20 20 20 20 20 20 20 20 | .......:socket.socket........... |
| 2b6620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 6f 63 6b 65 74 2d 69 6f 20 73 74 72 65 61 6d 0a 20 | .............:socket-io.stream.. |
| 2b6640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6d 6d 75 6e 69 63 61 | ......................:communica |
| 2b6660 | 74 69 6f 6e 2d 73 74 79 6c 65 20 73 74 79 6c 65 29 29 29 0a 20 20 20 20 28 72 75 6e 2d 68 6f 6f | tion-style.style))).....(run-hoo |
| 2b6680 | 6b 20 2a 6e 65 77 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 68 6f 6f 6b 2a 20 63 6f 6e 6e 29 0a 20 20 | k.*new-connection-hook*.conn)... |
| 2b66a0 | 20 20 28 61 64 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 29 0a 20 20 20 20 63 6f 6e 6e | ..(add-connection.conn).....conn |
| 2b66c0 | 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 70 69 6e 67 20 28 74 61 67 29 0a 20 20 74 61 | ))..(defslimefun.ping.(tag)...ta |
| 2b66e0 | 67 29 0a 0a 28 64 65 66 75 6e 20 73 61 66 65 2d 62 61 63 6b 74 72 61 63 65 20 28 29 0a 20 20 28 | g)..(defun.safe-backtrace.()...( |
| 2b6700 | 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 0a 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 64 65 | ignore-errors......(call-with-de |
| 2b6720 | 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 0a 20 20 20 20 20 28 6c 61 6d 62 64 | bugging-environment.......(lambd |
| 2b6740 | 61 20 28 29 20 28 62 61 63 6b 74 72 61 63 65 20 30 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 | a.().(backtrace.0.nil)))))..(def |
| 2b6760 | 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 73 77 61 6e 6b 2d 65 72 72 6f 72 20 28 65 72 72 6f 72 | ine-condition.swank-error.(error |
| 2b6780 | 29 20 0a 20 20 28 28 62 61 63 6b 74 72 61 63 65 20 3a 69 6e 69 74 61 72 67 20 3a 62 61 63 6b 74 | )....((backtrace.:initarg.:backt |
| 2b67a0 | 72 61 63 65 20 3a 72 65 61 64 65 72 20 73 77 61 6e 6b 2d 65 72 72 6f 72 2e 62 61 63 6b 74 72 61 | race.:reader.swank-error.backtra |
| 2b67c0 | 63 65 29 0a 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 20 3a 69 6e 69 74 61 72 67 20 3a 63 6f 6e 64 | ce)....(condition.:initarg.:cond |
| 2b67e0 | 69 74 69 6f 6e 20 3a 72 65 61 64 65 72 20 73 77 61 6e 6b 2d 65 72 72 6f 72 2e 63 6f 6e 64 69 74 | ition.:reader.swank-error.condit |
| 2b6800 | 69 6f 6e 29 29 0a 20 20 28 3a 72 65 70 6f 72 74 20 28 6c 61 6d 62 64 61 20 28 63 20 73 29 20 28 | ion))...(:report.(lambda.(c.s).( |
| 2b6820 | 70 72 69 6e 63 20 28 73 77 61 6e 6b 2d 65 72 72 6f 72 2e 63 6f 6e 64 69 74 69 6f 6e 20 63 29 20 | princ.(swank-error.condition.c). |
| 2b6840 | 73 29 29 29 0a 20 20 28 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 22 43 6f 6e 64 69 74 69 6f | s)))...(:documentation."Conditio |
| 2b6860 | 6e 20 77 68 69 63 68 20 63 61 72 72 69 65 73 20 61 20 62 61 63 6b 74 72 61 63 65 2e 22 29 29 0a | n.which.carries.a.backtrace.")). |
| 2b6880 | 0a 28 64 65 66 75 6e 20 73 69 67 6e 61 6c 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 20 28 63 6f 6e 64 | .(defun.signal-swank-error.(cond |
| 2b68a0 | 69 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 28 62 61 63 6b 74 72 61 63 65 20 28 73 61 66 65 | ition.&optional.(backtrace.(safe |
| 2b68c0 | 2d 62 61 63 6b 74 72 61 63 65 29 29 29 0a 20 20 28 65 72 72 6f 72 20 27 73 77 61 6e 6b 2d 65 72 | -backtrace)))...(error.'swank-er |
| 2b68e0 | 72 6f 72 20 3a 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 20 3a 62 61 63 6b 74 72 | ror.:condition.condition.:backtr |
| 2b6900 | 61 63 65 20 62 61 63 6b 74 72 61 63 65 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 64 65 62 75 67 2d | ace.backtrace))..(defvar.*debug- |
| 2b6920 | 6f 6e 2d 73 77 61 6e 6b 2d 70 72 6f 74 6f 63 6f 6c 2d 65 72 72 6f 72 2a 20 6e 69 6c 0a 20 20 22 | on-swank-protocol-error*.nil..." |
| 2b6940 | 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 6e 76 6f 6b 65 20 74 68 65 20 73 79 73 74 65 6d 20 64 | When.non-nil.invoke.the.system.d |
| 2b6960 | 65 62 75 67 67 65 72 20 6f 6e 20 65 72 72 6f 72 73 20 74 68 61 74 20 77 65 72 65 0a 73 69 67 6e | ebugger.on.errors.that.were.sign |
| 2b6980 | 61 6c 6c 65 64 20 64 75 72 69 6e 67 20 64 65 63 6f 64 69 6e 67 2f 65 6e 63 6f 64 69 6e 67 20 74 | alled.during.decoding/encoding.t |
| 2b69a0 | 68 65 20 77 69 72 65 20 70 72 6f 74 6f 63 6f 6c 2e 20 20 44 6f 20 6e 6f 74 20 73 65 74 20 74 68 | he.wire.protocol...Do.not.set.th |
| 2b69c0 | 69 73 0a 74 6f 20 54 20 75 6e 6c 65 73 73 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 64 65 62 75 67 | is.to.T.unless.you.want.to.debug |
| 2b69e0 | 20 73 77 61 6e 6b 20 69 6e 74 65 72 6e 61 6c 73 2e 22 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 | .swank.internals.")..(defmacro.w |
| 2b6a00 | 69 74 68 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 2d 68 61 6e 64 6c 65 72 20 28 28 63 6f 6e 6e 65 63 | ith-swank-error-handler.((connec |
| 2b6a20 | 74 69 6f 6e 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 43 6c 6f 73 65 20 74 68 65 20 63 | tion).&body.body)..."Close.the.c |
| 2b6a40 | 6f 6e 6e 65 63 74 69 6f 6e 20 6f 6e 20 69 6e 74 65 72 6e 61 6c 20 60 73 77 61 6e 6b 2d 65 72 72 | onnection.on.internal.`swank-err |
| 2b6a60 | 6f 72 27 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 6e 20 28 67 65 6e 73 79 6d 29 29 29 0a | or's."...(let.((conn.(gensym))). |
| 2b6a80 | 20 20 60 28 6c 65 74 20 28 28 2c 63 6f 6e 6e 20 2c 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 | ..`(let.((,conn.,connection))... |
| 2b6aa0 | 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 0a 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 | ...(handler-case...........(hand |
| 2b6ac0 | 6c 65 72 2d 62 69 6e 64 20 28 28 73 77 61 6e 6b 2d 65 72 72 6f 72 20 0a 20 20 20 20 20 20 20 20 | ler-bind.((swank-error.......... |
| 2b6ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 6f 6e 64 69 74 | .................(lambda.(condit |
| 2b6b00 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion)............................ |
| 2b6b20 | 28 77 68 65 6e 20 2a 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 70 72 6f 74 6f 63 6f 6c 2d 65 | (when.*debug-on-swank-protocol-e |
| 2b6b40 | 72 72 6f 72 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rror*........................... |
| 2b6b60 | 20 20 20 28 69 6e 76 6f 6b 65 2d 64 65 66 61 75 6c 74 2d 64 65 62 75 67 67 65 72 20 63 6f 6e 64 | ...(invoke-default-debugger.cond |
| 2b6b80 | 69 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 2e 20 2c | ition)))))............(progn..., |
| 2b6ba0 | 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 65 72 72 6f 72 20 28 63 6f 6e 64 | body))........(swank-error.(cond |
| 2b6bc0 | 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 63 6c 6f 73 65 2d 63 6f 6e 6e 65 63 74 69 6f | ition)..........(close-connectio |
| 2b6be0 | 6e 20 2c 63 6f 6e 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.,conn......................... |
| 2b6c00 | 20 20 20 28 73 77 61 6e 6b 2d 65 72 72 6f 72 2e 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 | ...(swank-error.condition.condit |
| 2b6c20 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion)............................ |
| 2b6c40 | 28 73 77 61 6e 6b 2d 65 72 72 6f 72 2e 62 61 63 6b 74 72 61 63 65 20 63 6f 6e 64 69 74 69 6f 6e | (swank-error.backtrace.condition |
| 2b6c60 | 29 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 70 61 6e 69 63 2d 68 61 | )))))))..(defmacro.with-panic-ha |
| 2b6c80 | 6e 64 6c 65 72 20 28 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a | ndler.((connection).&body.body). |
| 2b6ca0 | 20 20 22 43 6c 6f 73 65 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6f 6e 20 75 6e 68 61 6e | .."Close.the.connection.on.unhan |
| 2b6cc0 | 64 6c 65 64 20 60 73 65 72 69 6f 75 73 2d 63 6f 6e 64 69 74 69 6f 6e 27 73 2e 22 0a 20 20 28 6c | dled.`serious-condition's."...(l |
| 2b6ce0 | 65 74 20 28 28 63 6f 6e 6e 20 28 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 | et.((conn.(gensym))).....`(let.( |
| 2b6d00 | 28 2c 63 6f 6e 6e 20 2c 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 28 68 61 6e | (,conn.,connection))........(han |
| 2b6d20 | 64 6c 65 72 2d 62 69 6e 64 20 28 28 73 65 72 69 6f 75 73 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 | dler-bind.((serious-condition... |
| 2b6d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 | ......................(lambda.(c |
| 2b6d60 | 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ondition)....................... |
| 2b6d80 | 20 20 20 20 28 63 6c 6f 73 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 2c 63 6f 6e 6e 20 63 6f 6e 64 | ....(close-connection.,conn.cond |
| 2b6da0 | 69 74 69 6f 6e 20 28 73 61 66 65 2d 62 61 63 6b 74 72 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 | ition.(safe-backtrace))......... |
| 2b6dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 62 6f 72 74 20 63 6f 6e 64 69 74 69 | ..................(abort.conditi |
| 2b6de0 | 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 2e 20 2c 62 6f 64 79 29 29 29 29 0a 0a 28 61 64 | on))))............,body))))..(ad |
| 2b6e00 | 64 2d 68 6f 6f 6b 20 2a 6e 65 77 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 68 6f 6f 6b 2a 20 27 6e 6f | d-hook.*new-connection-hook*.'no |
| 2b6e20 | 74 69 66 79 2d 62 61 63 6b 65 6e 64 2d 6f 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 28 64 65 66 | tify-backend-of-connection).(def |
| 2b6e40 | 75 6e 20 6e 6f 74 69 66 79 2d 62 61 63 6b 65 6e 64 2d 6f 66 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 | un.notify-backend-of-connection. |
| 2b6e60 | 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 | (connection)...(declare.(ignore. |
| 2b6e80 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 28 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 65 64 29 | connection))...(emacs-connected) |
| 2b6ea0 | 29 0a 0a 0c 0a 3b 3b 3b 3b 20 55 74 69 6c 69 74 69 65 73 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 4c 6f 67 | )....;;;;.Utilities....;;;;;.Log |
| 2b6ec0 | 67 69 6e 67 0a 0a 28 64 65 66 76 61 72 20 2a 73 77 61 6e 6b 2d 69 6f 2d 70 61 63 6b 61 67 65 2a | ging..(defvar.*swank-io-package* |
| 2b6ee0 | 0a 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 20 28 6d 61 6b 65 2d 70 61 63 6b 61 67 65 20 | ...(let.((package.(make-package. |
| 2b6f00 | 3a 73 77 61 6e 6b 2d 69 6f 2d 70 61 63 6b 61 67 65 20 3a 75 73 65 20 27 28 29 29 29 29 0a 20 20 | :swank-io-package.:use.'())))... |
| 2b6f20 | 20 20 28 69 6d 70 6f 72 74 20 27 28 6e 69 6c 20 74 20 71 75 6f 74 65 29 20 70 61 63 6b 61 67 65 | ..(import.'(nil.t.quote).package |
| 2b6f40 | 29 0a 20 20 20 20 70 61 63 6b 61 67 65 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 6c 6f 67 2d 65 76 | ).....package))..(defvar.*log-ev |
| 2b6f60 | 65 6e 74 73 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 69 6e 69 74 2d 6c 6f 67 2d 6f 75 74 70 | ents*.nil)..(defun.init-log-outp |
| 2b6f80 | 75 74 20 28 29 0a 20 20 28 75 6e 6c 65 73 73 20 2a 6c 6f 67 2d 6f 75 74 70 75 74 2a 0a 20 20 20 | ut.()...(unless.*log-output*.... |
| 2b6fa0 | 20 28 73 65 74 71 20 2a 6c 6f 67 2d 6f 75 74 70 75 74 2a 20 28 72 65 61 6c 2d 6f 75 74 70 75 74 | .(setq.*log-output*.(real-output |
| 2b6fc0 | 2d 73 74 72 65 61 6d 20 2a 65 72 72 6f 72 2d 6f 75 74 70 75 74 2a 29 29 29 29 0a 0a 28 61 64 64 | -stream.*error-output*))))..(add |
| 2b6fe0 | 2d 68 6f 6f 6b 20 2a 61 66 74 65 72 2d 69 6e 69 74 2d 68 6f 6f 6b 2a 20 27 69 6e 69 74 2d 6c 6f | -hook.*after-init-hook*.'init-lo |
| 2b7000 | 67 2d 6f 75 74 70 75 74 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 6c 2d 69 6e 70 75 74 2d 73 74 72 | g-output)..(defun.real-input-str |
| 2b7020 | 65 61 6d 20 28 73 74 72 65 61 6d 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 73 74 72 65 61 6d 0a | eam.(stream)...(typecase.stream. |
| 2b7040 | 20 20 20 20 28 73 79 6e 6f 6e 79 6d 2d 73 74 72 65 61 6d 20 0a 20 20 20 20 20 28 72 65 61 6c 2d | ....(synonym-stream.......(real- |
| 2b7060 | 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 28 73 79 6e 6f | input-stream.(symbol-value.(syno |
| 2b7080 | 6e 79 6d 2d 73 74 72 65 61 6d 2d 73 79 6d 62 6f 6c 20 73 74 72 65 61 6d 29 29 29 29 0a 20 20 20 | nym-stream-symbol.stream)))).... |
| 2b70a0 | 20 28 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 0a 20 20 20 20 20 28 72 65 61 6c 2d 69 6e 70 75 | .(two-way-stream......(real-inpu |
| 2b70c0 | 74 2d 73 74 72 65 61 6d 20 28 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 2d 69 6e 70 75 74 2d 73 | t-stream.(two-way-stream-input-s |
| 2b70e0 | 74 72 65 61 6d 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 28 74 20 73 74 72 65 61 6d 29 29 29 | tream.stream))).....(t.stream))) |
| 2b7100 | 0a 0a 28 64 65 66 75 6e 20 72 65 61 6c 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 28 73 74 72 | ..(defun.real-output-stream.(str |
| 2b7120 | 65 61 6d 29 0a 20 20 28 74 79 70 65 63 61 73 65 20 73 74 72 65 61 6d 0a 20 20 20 20 28 73 79 6e | eam)...(typecase.stream.....(syn |
| 2b7140 | 6f 6e 79 6d 2d 73 74 72 65 61 6d 20 0a 20 20 20 20 20 28 72 65 61 6c 2d 6f 75 74 70 75 74 2d 73 | onym-stream.......(real-output-s |
| 2b7160 | 74 72 65 61 6d 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 28 73 79 6e 6f 6e 79 6d 2d 73 74 72 | tream.(symbol-value.(synonym-str |
| 2b7180 | 65 61 6d 2d 73 79 6d 62 6f 6c 20 73 74 72 65 61 6d 29 29 29 29 0a 20 20 20 20 28 74 77 6f 2d 77 | eam-symbol.stream)))).....(two-w |
| 2b71a0 | 61 79 2d 73 74 72 65 61 6d 0a 20 20 20 20 20 28 72 65 61 6c 2d 6f 75 74 70 75 74 2d 73 74 72 65 | ay-stream......(real-output-stre |
| 2b71c0 | 61 6d 20 28 74 77 6f 2d 77 61 79 2d 73 74 72 65 61 6d 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d | am.(two-way-stream-output-stream |
| 2b71e0 | 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 28 74 20 73 74 72 65 61 6d 29 29 29 0a 0a 28 64 65 | .stream))).....(t.stream)))..(de |
| 2b7200 | 66 76 61 72 20 2a 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2a 20 28 6d 61 6b 65 2d 61 72 72 61 79 | fvar.*event-history*.(make-array |
| 2b7220 | 20 34 30 20 3a 69 6e 69 74 69 61 6c 2d 65 6c 65 6d 65 6e 74 20 6e 69 6c 29 0a 20 20 22 41 20 72 | .40.:initial-element.nil)..."A.r |
| 2b7240 | 69 6e 67 20 62 75 66 66 65 72 20 74 6f 20 72 65 63 6f 72 64 20 65 76 65 6e 74 73 20 66 6f 72 20 | ing.buffer.to.record.events.for. |
| 2b7260 | 62 65 74 74 65 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 2e 22 29 0a 28 64 65 66 76 61 72 | better.error.messages.").(defvar |
| 2b7280 | 20 2a 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 2a 20 30 29 0a 28 64 65 66 76 61 | .*event-history-index*.0).(defva |
| 2b72a0 | 72 20 2a 65 6e 61 62 6c 65 2d 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2a 20 74 29 0a 0a 28 64 65 | r.*enable-event-history*.t)..(de |
| 2b72c0 | 66 75 6e 20 6c 6f 67 2d 65 76 65 6e 74 20 28 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 26 72 65 | fun.log-event.(format-string.&re |
| 2b72e0 | 73 74 20 61 72 67 73 29 0a 20 20 22 57 72 69 74 65 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 2a | st.args)..."Write.a.message.to.* |
| 2b7300 | 74 65 72 6d 69 6e 61 6c 2d 69 6f 2a 20 77 68 65 6e 20 2a 6c 6f 67 2d 65 76 65 6e 74 73 2a 20 69 | terminal-io*.when.*log-events*.i |
| 2b7320 | 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 55 73 65 66 75 6c 20 66 6f 72 20 6c 6f 77 20 6c 65 76 65 6c 20 | s.non-nil..Useful.for.low.level. |
| 2b7340 | 64 65 62 75 67 67 69 6e 67 2e 22 0a 20 20 28 77 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d | debugging."...(with-standard-io- |
| 2b7360 | 73 79 6e 74 61 78 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c | syntax.....(let.((*print-readabl |
| 2b7380 | 79 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 | y*.nil)...........(*print-pretty |
| 2b73a0 | 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 2a 70 61 63 6b 61 67 65 2a 20 2a 73 77 61 | *.nil)...........(*package*.*swa |
| 2b73c0 | 6e 6b 2d 69 6f 2d 70 61 63 6b 61 67 65 2a 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 2a 65 6e | nk-io-package*)).......(when.*en |
| 2b73e0 | 61 62 6c 65 2d 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2a 0a 20 20 20 20 20 20 20 20 28 73 65 74 | able-event-history*.........(set |
| 2b7400 | 66 20 28 61 72 65 66 20 2a 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2a 20 2a 65 76 65 6e 74 2d 68 | f.(aref.*event-history*.*event-h |
| 2b7420 | 69 73 74 6f 72 79 2d 69 6e 64 65 78 2a 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | istory-index*)................(f |
| 2b7440 | 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 3f 22 20 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 61 72 67 | ormat.nil."~?".format-string.arg |
| 2b7460 | 73 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 2a 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 | s)).........(setf.*event-history |
| 2b7480 | 2d 69 6e 64 65 78 2a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 20 28 31 2b 20 | -index*................(mod.(1+. |
| 2b74a0 | 2a 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 2a 29 20 28 6c 65 6e 67 74 68 20 2a | *event-history-index*).(length.* |
| 2b74c0 | 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2a 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 2a | event-history*)))).......(when.* |
| 2b74e0 | 6c 6f 67 2d 65 76 65 6e 74 73 2a 0a 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e | log-events*.........(write-strin |
| 2b7500 | 67 20 28 65 73 63 61 70 65 2d 6e 6f 6e 2d 61 73 63 69 69 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 | g.(escape-non-ascii.(format.nil. |
| 2b7520 | 22 7e 3f 22 20 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 | "~?".format-string.args))....... |
| 2b7540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 6c 6f 67 2d 6f 75 74 70 75 74 2a 29 0a 20 20 | ................*log-output*)... |
| 2b7560 | 20 20 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 20 2a 6c 6f 67 2d 6f 75 74 70 75 74 2a | ......(force-output.*log-output* |
| 2b7580 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2d 74 6f 2d 6c | )))))..(defun.event-history-to-l |
| 2b75a0 | 69 73 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 65 76 65 | ist.()..."Return.the.list.of.eve |
| 2b75c0 | 6e 74 73 20 28 6f 6c 64 65 72 20 65 76 65 6e 74 73 20 66 69 72 73 74 29 2e 22 0a 20 20 28 6c 65 | nts.(older.events.first)."...(le |
| 2b75e0 | 74 20 28 28 61 72 72 20 2a 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2a 29 0a 20 20 20 20 20 20 20 | t.((arr.*event-history*)........ |
| 2b7600 | 20 28 69 64 78 20 2a 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 2a 29 29 0a 20 20 | .(idx.*event-history-index*))... |
| 2b7620 | 20 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 6c 69 73 74 20 28 73 75 62 73 65 71 20 61 72 72 | ..(concatenate.'list.(subseq.arr |
| 2b7640 | 20 69 64 78 29 20 28 73 75 62 73 65 71 20 61 72 72 20 30 20 69 64 78 29 29 29 29 0a 0a 28 64 65 | .idx).(subseq.arr.0.idx))))..(de |
| 2b7660 | 66 75 6e 20 63 6c 65 61 72 2d 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 28 66 69 | fun.clear-event-history.()...(fi |
| 2b7680 | 6c 6c 20 2a 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2a 20 6e 69 6c 29 0a 20 20 28 73 65 74 71 20 | ll.*event-history*.nil)...(setq. |
| 2b76a0 | 2a 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 2a 20 30 29 29 0a 0a 28 64 65 66 75 | *event-history-index*.0))..(defu |
| 2b76c0 | 6e 20 64 75 6d 70 2d 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 20 28 73 74 72 65 61 6d 29 0a 20 20 | n.dump-event-history.(stream)... |
| 2b76e0 | 28 64 6f 6c 69 73 74 20 28 65 20 28 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 2d 74 6f 2d 6c 69 73 | (dolist.(e.(event-history-to-lis |
| 2b7700 | 74 29 29 0a 20 20 20 20 28 64 75 6d 70 2d 65 76 65 6e 74 20 65 20 73 74 72 65 61 6d 29 29 29 0a | t)).....(dump-event.e.stream))). |
| 2b7720 | 0a 28 64 65 66 75 6e 20 64 75 6d 70 2d 65 76 65 6e 74 20 28 65 76 65 6e 74 20 73 74 72 65 61 6d | .(defun.dump-event.(event.stream |
| 2b7740 | 29 0a 20 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 70 20 65 76 65 6e 74 29 0a 20 20 20 20 20 | )...(cond.((stringp.event)...... |
| 2b7760 | 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 28 65 73 63 61 70 65 2d 6e 6f 6e 2d 61 73 | ....(write-string.(escape-non-as |
| 2b7780 | 63 69 69 20 65 76 65 6e 74 29 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 28 28 6e 75 | cii.event).stream)).........((nu |
| 2b77a0 | 6c 6c 20 65 76 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 0a 20 20 20 20 20 20 20 20 20 | ll.event)).........(t........... |
| 2b77c0 | 28 77 72 69 74 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 28 65 73 63 61 70 65 2d | (write-string...........(escape- |
| 2b77e0 | 6e 6f 6e 2d 61 73 63 69 69 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 55 6e 65 78 70 65 63 74 65 | non-ascii.(format.nil."Unexpecte |
| 2b7800 | 64 20 65 76 65 6e 74 3a 20 7e 41 7e 25 22 20 65 76 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 | d.event:.~A~%".event)).......... |
| 2b7820 | 20 73 74 72 65 61 6d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 73 63 61 70 65 2d 6e 6f 6e 2d 61 | .stream))))..(defun.escape-non-a |
| 2b7840 | 73 63 69 69 20 28 73 74 72 69 6e 67 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 | scii.(string)..."Return.a.string |
| 2b7860 | 20 6c 69 6b 65 20 53 54 52 49 4e 47 20 62 75 74 20 77 69 74 68 20 6e 6f 6e 2d 61 73 63 69 69 20 | .like.STRING.but.with.non-ascii. |
| 2b7880 | 63 68 61 72 73 20 65 73 63 61 70 65 64 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 61 73 63 69 69 2d | chars.escaped."...(cond.((ascii- |
| 2b78a0 | 73 74 72 69 6e 67 2d 70 20 73 74 72 69 6e 67 29 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 | string-p.string).string)........ |
| 2b78c0 | 20 28 74 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 75 74 29 | .(t.(with-output-to-string.(out) |
| 2b78e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 20 61 63 72 6f 73 73 | ..............(loop.for.c.across |
| 2b7900 | 20 73 74 72 69 6e 67 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 | .string.do................(cond. |
| 2b7920 | 28 28 61 73 63 69 69 2d 63 68 61 72 2d 70 20 63 29 20 28 77 72 69 74 65 2d 63 68 61 72 20 63 20 | ((ascii-char-p.c).(write-char.c. |
| 2b7940 | 6f 75 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 66 | out))......................(t.(f |
| 2b7960 | 6f 72 6d 61 74 20 6f 75 74 20 22 5c 5c 78 7e 34 2c 27 30 58 22 20 28 63 68 61 72 2d 63 6f 64 65 | ormat.out."\\x~4,'0X".(char-code |
| 2b7980 | 20 63 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 73 63 69 69 2d 73 74 72 69 6e 67 | .c)))))))))..(defun.ascii-string |
| 2b79a0 | 2d 70 20 28 6f 29 0a 20 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 6f 29 0a 20 20 20 20 20 20 | -p.(o)...(and.(stringp.o)....... |
| 2b79c0 | 20 28 65 76 65 72 79 20 23 27 61 73 63 69 69 2d 63 68 61 72 2d 70 20 6f 29 29 29 0a 0a 28 64 65 | .(every.#'ascii-char-p.o)))..(de |
| 2b79e0 | 66 75 6e 20 61 73 63 69 69 2d 63 68 61 72 2d 70 20 28 63 29 20 0a 20 20 28 3c 3d 20 28 63 68 61 | fun.ascii-char-p.(c)....(<=.(cha |
| 2b7a00 | 72 2d 63 6f 64 65 20 63 29 20 31 32 37 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 48 65 6c 70 65 72 20 | r-code.c).127))....;;;;;.Helper. |
| 2b7a20 | 6d 61 63 72 6f 73 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 63 61 73 65 20 28 76 61 6c 75 65 20 26 | macros..(defmacro.dcase.(value.& |
| 2b7a40 | 62 6f 64 79 20 70 61 74 74 65 72 6e 73 29 0a 20 20 22 44 69 73 70 61 74 63 68 20 56 41 4c 55 45 | body.patterns)..."Dispatch.VALUE |
| 2b7a60 | 20 74 6f 20 6f 6e 65 20 6f 66 20 50 41 54 54 45 52 4e 53 2e 0a 41 20 63 72 6f 73 73 20 62 65 74 | .to.one.of.PATTERNS..A.cross.bet |
| 2b7a80 | 77 65 65 6e 20 60 63 61 73 65 27 20 61 6e 64 20 60 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 | ween.`case'.and.`destructuring-b |
| 2b7aa0 | 69 6e 64 27 2e 0a 54 68 65 20 70 61 74 74 65 72 6e 20 73 79 6e 74 61 78 20 69 73 3a 0a 20 20 28 | ind'..The.pattern.syntax.is:...( |
| 2b7ac0 | 28 48 45 41 44 20 2e 20 41 52 47 53 29 20 2e 20 42 4f 44 59 29 0a 54 68 65 20 6c 69 73 74 20 6f | (HEAD...ARGS)...BODY).The.list.o |
| 2b7ae0 | 66 20 70 61 74 74 65 72 6e 73 20 69 73 20 73 65 61 72 63 68 65 64 20 66 6f 72 20 61 20 48 45 41 | f.patterns.is.searched.for.a.HEA |
| 2b7b00 | 44 20 60 65 71 27 20 74 6f 20 74 68 65 20 63 61 72 20 6f 66 0a 56 41 4c 55 45 2e 20 49 66 20 6f | D.`eq'.to.the.car.of.VALUE..If.o |
| 2b7b20 | 6e 65 20 69 73 20 66 6f 75 6e 64 2c 20 74 68 65 20 42 4f 44 59 20 69 73 20 65 78 65 63 75 74 65 | ne.is.found,.the.BODY.is.execute |
| 2b7b40 | 64 20 77 69 74 68 20 41 52 47 53 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 0a 63 6f 72 72 65 73 70 | d.with.ARGS.bound.to.the.corresp |
| 2b7b60 | 6f 6e 64 69 6e 67 20 76 61 6c 75 65 73 20 69 6e 20 74 68 65 20 43 44 52 20 6f 66 20 56 41 4c 55 | onding.values.in.the.CDR.of.VALU |
| 2b7b80 | 45 2e 22 0a 20 20 28 6c 65 74 20 28 28 6f 70 65 72 61 74 6f 72 20 28 67 65 6e 73 79 6d 20 22 6f | E."...(let.((operator.(gensym."o |
| 2b7ba0 | 70 2d 22 29 29 0a 09 28 6f 70 65 72 61 6e 64 73 20 28 67 65 6e 73 79 6d 20 22 72 61 6e 64 2d 22 | p-"))..(operands.(gensym."rand-" |
| 2b7bc0 | 29 29 0a 09 28 74 6d 70 20 28 67 65 6e 73 79 6d 20 22 74 6d 70 2d 22 29 29 29 0a 20 20 20 20 60 | ))..(tmp.(gensym."tmp-"))).....` |
| 2b7be0 | 28 6c 65 74 2a 20 28 28 2c 74 6d 70 20 2c 76 61 6c 75 65 29 0a 09 20 20 20 20 28 2c 6f 70 65 72 | (let*.((,tmp.,value)......(,oper |
| 2b7c00 | 61 74 6f 72 20 28 63 61 72 20 2c 74 6d 70 29 29 0a 09 20 20 20 20 28 2c 6f 70 65 72 61 6e 64 73 | ator.(car.,tmp))......(,operands |
| 2b7c20 | 20 28 63 64 72 20 2c 74 6d 70 29 29 29 0a 20 20 20 20 20 20 20 28 63 61 73 65 20 2c 6f 70 65 72 | .(cdr.,tmp)))........(case.,oper |
| 2b7c40 | 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 2c 40 28 6c 6f 6f 70 20 66 6f 72 20 28 70 61 74 74 65 | ator..........,@(loop.for.(patte |
| 2b7c60 | 72 6e 20 2e 20 62 6f 64 79 29 20 69 6e 20 70 61 74 74 65 72 6e 73 20 63 6f 6c 6c 65 63 74 20 0a | rn...body).in.patterns.collect.. |
| 2b7c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 70 61 74 74 65 72 6e | .................(if.(eq.pattern |
| 2b7ca0 | 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 74 20 2c 40 62 | .t)......................`(t.,@b |
| 2b7cc0 | 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 74 72 | ody)......................(destr |
| 2b7ce0 | 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 6f 70 20 26 72 65 73 74 20 72 61 6e 64 73 29 20 70 | ucturing-bind.(op.&rest.rands).p |
| 2b7d00 | 61 74 74 65 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 | attern........................`( |
| 2b7d20 | 2c 6f 70 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 2c 72 61 6e 64 73 20 2c | ,op.(destructuring-bind.,rands., |
| 2b7d40 | 6f 70 65 72 61 6e 64 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | operands........................ |
| 2b7d60 | 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 2c 40 | .........,@body)))))..........,@ |
| 2b7d80 | 28 69 66 20 28 65 71 20 28 63 61 61 72 20 28 6c 61 73 74 20 70 61 74 74 65 72 6e 73 29 29 20 74 | (if.(eq.(caar.(last.patterns)).t |
| 2b7da0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 | )................'()............ |
| 2b7dc0 | 20 20 20 20 60 28 28 74 20 28 65 72 72 6f 72 20 22 64 63 61 73 65 20 66 61 69 6c 65 64 3a 20 7e | ....`((t.(error."dcase.failed:.~ |
| 2b7de0 | 53 22 20 2c 74 6d 70 29 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 74 65 72 72 75 70 | S".,tmp))))))))....;;;;.Interrup |
| 2b7e00 | 74 20 68 61 6e 64 6c 69 6e 67 20 0a 0a 3b 3b 20 55 73 75 61 6c 6c 79 20 77 65 27 64 20 6c 69 6b | t.handling...;;.Usually.we'd.lik |
| 2b7e20 | 65 20 74 6f 20 65 6e 74 65 72 20 74 68 65 20 64 65 62 75 67 67 65 72 20 77 68 65 6e 20 61 6e 20 | e.to.enter.the.debugger.when.an. |
| 2b7e40 | 69 6e 74 65 72 72 75 70 74 20 68 61 70 70 65 6e 73 2e 0a 3b 3b 20 42 75 74 20 66 6f 72 20 73 6f | interrupt.happens..;;.But.for.so |
| 2b7e60 | 6d 65 20 6f 70 65 72 61 74 69 6f 6e 73 2c 20 69 6e 20 70 61 72 74 69 63 75 6c 61 72 20 73 65 6e | me.operations,.in.particular.sen |
| 2b7e80 | 64 26 72 65 63 65 69 76 65 2c 20 69 74 27 73 20 63 72 75 63 69 61 6c 0a 3b 3b 20 74 68 61 74 20 | d&receive,.it's.crucial.;;.that. |
| 2b7ea0 | 74 68 6f 73 65 20 61 72 65 20 6e 6f 74 20 69 6e 74 65 72 72 75 70 74 65 64 20 77 68 65 6e 20 74 | those.are.not.interrupted.when.t |
| 2b7ec0 | 68 65 20 6d 61 69 6c 62 6f 78 20 69 73 20 69 6e 20 61 6e 0a 3b 3b 20 69 6e 63 6f 6e 73 69 73 74 | he.mailbox.is.in.an.;;.inconsist |
| 2b7ee0 | 65 6e 74 2f 6c 6f 63 6b 65 64 20 73 74 61 74 65 2e 20 4f 62 76 69 6f 75 73 6c 79 2c 20 69 66 20 | ent/locked.state..Obviously,.if. |
| 2b7f00 | 73 65 6e 64 26 72 65 63 65 69 76 65 20 64 6f 6e 27 74 20 77 6f 72 6b 20 77 65 0a 3b 3b 20 63 61 | send&receive.don't.work.we.;;.ca |
| 2b7f20 | 6e 27 74 20 63 6f 6d 6d 75 6e 69 63 61 74 65 20 61 6e 64 20 74 68 65 20 64 65 62 75 67 67 65 72 | n't.communicate.and.the.debugger |
| 2b7f40 | 20 77 69 6c 6c 20 6e 6f 74 20 77 6f 72 6b 2e 20 20 54 6f 20 73 6f 6c 76 65 20 74 68 61 74 0a 3b | .will.not.work...To.solve.that.; |
| 2b7f60 | 3b 20 70 72 6f 62 6c 65 6d 2c 20 77 65 20 74 72 79 20 74 6f 20 68 61 6e 64 6c 65 20 69 6e 74 65 | ;.problem,.we.try.to.handle.inte |
| 2b7f80 | 72 72 75 70 74 73 20 6f 6e 6c 79 20 61 74 20 63 65 72 74 61 69 6e 20 73 61 66 65 2d 70 6f 69 6e | rrupts.only.at.certain.safe-poin |
| 2b7fa0 | 74 73 2e 0a 3b 3b 0a 3b 3b 20 57 68 65 6e 65 76 65 72 20 61 6e 20 69 6e 74 65 72 72 75 70 74 20 | ts..;;.;;.Whenever.an.interrupt. |
| 2b7fc0 | 68 61 70 70 65 6e 73 20 77 65 20 63 61 6c 6c 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 0a 3b 3b 20 | happens.we.call.the.function.;;. |
| 2b7fe0 | 49 4e 56 4f 4b 45 2d 4f 52 2d 51 55 45 55 45 2d 49 4e 54 45 52 52 55 50 54 2e 20 20 55 73 75 61 | INVOKE-OR-QUEUE-INTERRUPT...Usua |
| 2b8000 | 6c 6c 79 20 74 68 69 73 20 73 69 6d 70 6c 79 20 69 6e 76 6f 6b 65 73 20 74 68 65 0a 3b 3b 20 64 | lly.this.simply.invokes.the.;;.d |
| 2b8020 | 65 62 75 67 67 65 72 2c 20 62 75 74 20 69 66 20 69 6e 74 65 72 72 75 70 74 73 20 61 72 65 20 64 | ebugger,.but.if.interrupts.are.d |
| 2b8040 | 69 73 61 62 6c 65 64 20 74 68 65 20 69 6e 74 65 72 72 75 70 74 20 69 73 20 70 75 74 20 69 6e 20 | isabled.the.interrupt.is.put.in. |
| 2b8060 | 61 0a 3b 3b 20 71 75 65 75 65 20 66 6f 72 20 6c 61 74 65 72 20 70 72 6f 63 65 73 73 69 6e 67 2e | a.;;.queue.for.later.processing. |
| 2b8080 | 20 20 41 74 20 73 61 66 65 2d 70 6f 69 6e 74 73 2c 20 77 65 20 63 61 6c 6c 0a 3b 3b 20 43 48 45 | ..At.safe-points,.we.call.;;.CHE |
| 2b80a0 | 43 4b 2d 53 4c 49 4d 45 2d 49 4e 54 45 52 52 55 50 54 53 20 77 68 69 63 68 20 6c 6f 6f 6b 73 20 | CK-SLIME-INTERRUPTS.which.looks. |
| 2b80c0 | 61 74 20 74 68 65 20 71 75 65 75 65 20 61 6e 64 20 69 6e 76 6f 6b 65 73 20 74 68 65 0a 3b 3b 20 | at.the.queue.and.invokes.the.;;. |
| 2b80e0 | 64 65 62 75 67 67 65 72 20 69 66 20 6e 65 65 64 65 64 2e 0a 3b 3b 0a 3b 3b 20 54 68 65 20 71 75 | debugger.if.needed..;;.;;.The.qu |
| 2b8100 | 65 75 65 20 66 6f 72 20 69 6e 74 65 72 72 75 70 74 73 20 69 73 20 73 74 6f 72 65 64 20 69 6e 20 | eue.for.interrupts.is.stored.in. |
| 2b8120 | 61 20 74 68 72 65 61 64 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 2e 0a 3b 3b 20 57 49 54 48 | a.thread.local.variable..;;.WITH |
| 2b8140 | 2d 43 4f 4e 4e 45 43 54 49 4f 4e 20 73 65 74 73 20 69 74 20 75 70 2e 20 20 57 49 54 48 2d 53 4c | -CONNECTION.sets.it.up...WITH-SL |
| 2b8160 | 49 4d 45 2d 49 4e 54 45 52 52 55 50 54 53 20 61 6c 6c 6f 77 73 0a 3b 3b 20 69 6e 74 65 72 72 75 | IME-INTERRUPTS.allows.;;.interru |
| 2b8180 | 70 74 73 2c 20 69 2e 65 2e 20 74 68 65 20 64 65 62 75 67 67 65 72 20 69 73 20 65 6e 74 65 72 65 | pts,.i.e..the.debugger.is.entere |
| 2b81a0 | 64 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 20 20 57 68 65 6e 20 77 65 20 63 61 6c 6c 0a 3b 3b 20 | d.immediately...When.we.call.;;. |
| 2b81c0 | 22 75 73 65 72 20 63 6f 64 65 22 20 6f 72 20 6e 6f 6e 2d 70 72 6f 62 6c 65 6d 61 74 69 63 20 63 | "user.code".or.non-problematic.c |
| 2b81e0 | 6f 64 65 20 77 65 20 61 6c 6c 6f 77 20 69 6e 74 65 72 72 75 70 74 73 2e 20 20 57 68 65 6e 0a 3b | ode.we.allow.interrupts...When.; |
| 2b8200 | 3b 20 69 6e 73 69 64 65 20 57 49 54 48 4f 55 54 2d 53 4c 49 4d 45 2d 49 4e 54 45 52 52 55 50 54 | ;.inside.WITHOUT-SLIME-INTERRUPT |
| 2b8220 | 53 2c 20 69 6e 74 65 72 72 75 70 74 73 20 61 72 65 20 71 75 65 75 65 64 2e 20 20 57 68 65 6e 20 | S,.interrupts.are.queued...When. |
| 2b8240 | 77 65 0a 3b 3b 20 73 77 69 74 63 68 20 66 72 6f 6d 20 22 75 73 65 72 20 63 6f 64 65 22 20 74 6f | we.;;.switch.from."user.code".to |
| 2b8260 | 20 6d 6f 72 65 20 64 65 6c 69 63 61 74 65 20 6f 70 65 72 61 74 69 6f 6e 73 20 77 65 20 6e 65 65 | .more.delicate.operations.we.nee |
| 2b8280 | 64 20 74 6f 0a 3b 3b 20 64 69 73 61 62 6c 65 20 69 6e 74 65 72 72 75 70 74 73 2e 20 20 49 6e 20 | d.to.;;.disable.interrupts...In. |
| 2b82a0 | 70 61 72 74 69 63 75 6c 61 72 2c 20 69 6e 74 65 72 72 75 70 74 73 20 73 68 6f 75 6c 64 20 62 65 | particular,.interrupts.should.be |
| 2b82c0 | 20 64 69 73 61 62 6c 65 64 0a 3b 3b 20 66 6f 72 20 53 45 4e 44 20 61 6e 64 20 52 45 43 45 49 56 | .disabled.;;.for.SEND.and.RECEIV |
| 2b82e0 | 45 2d 49 46 2e 0a 0a 3b 3b 20 49 66 20 74 72 75 65 20 65 78 65 63 75 74 65 20 69 6e 74 65 72 72 | E-IF...;;.If.true.execute.interr |
| 2b8300 | 75 70 74 73 2c 20 6f 74 68 65 72 77 69 73 65 20 71 75 65 75 65 20 74 68 65 6d 2e 0a 3b 3b 20 4e | upts,.otherwise.queue.them..;;.N |
| 2b8320 | 6f 74 65 3a 20 60 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 27 20 62 69 6e 64 73 20 2a 70 65 | ote:.`with-connection'.binds.*pe |
| 2b8340 | 6e 64 69 6e 67 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 2a 2e 0a 28 64 65 66 76 61 72 | nding-slime-interrupts*..(defvar |
| 2b8360 | 20 2a 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 2d 65 6e 61 62 6c 65 64 2a 29 0a 0a 28 64 | .*slime-interrupts-enabled*)..(d |
| 2b8380 | 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 69 6e 74 65 72 72 75 70 74 73 2d 65 6e 61 62 6c 65 64 25 | efmacro.with-interrupts-enabled% |
| 2b83a0 | 20 28 66 6c 61 67 20 62 6f 64 79 29 0a 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 2c 40 28 69 | .(flag.body)...`(progn......,@(i |
| 2b83c0 | 66 20 66 6c 61 67 20 27 28 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 | f.flag.'((check-slime-interrupts |
| 2b83e0 | 29 29 29 0a 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 70 72 6f 67 31 0a 20 | )))......(multiple-value-prog1.. |
| 2b8400 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 | ........(let.((*slime-interrupts |
| 2b8420 | 2d 65 6e 61 62 6c 65 64 2a 20 2c 66 6c 61 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 2c 40 62 | -enabled*.,flag))............,@b |
| 2b8440 | 6f 64 79 29 0a 20 20 20 20 20 20 20 2c 40 28 69 66 20 66 6c 61 67 20 27 28 28 63 68 65 63 6b 2d | ody)........,@(if.flag.'((check- |
| 2b8460 | 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 | slime-interrupts))))))..(defmacr |
| 2b8480 | 6f 20 77 69 74 68 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 20 28 26 62 6f 64 79 20 62 | o.with-slime-interrupts.(&body.b |
| 2b84a0 | 6f 64 79 29 0a 20 20 60 28 77 69 74 68 2d 69 6e 74 65 72 72 75 70 74 73 2d 65 6e 61 62 6c 65 64 | ody)...`(with-interrupts-enabled |
| 2b84c0 | 25 20 74 20 2c 62 6f 64 79 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 6f 75 74 2d 73 | %.t.,body))..(defmacro.without-s |
| 2b84e0 | 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 20 28 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 60 | lime-interrupts.(&body.body)...` |
| 2b8500 | 28 77 69 74 68 2d 69 6e 74 65 72 72 75 70 74 73 2d 65 6e 61 62 6c 65 64 25 20 6e 69 6c 20 2c 62 | (with-interrupts-enabled%.nil.,b |
| 2b8520 | 6f 64 79 29 29 0a 0a 28 64 65 66 75 6e 20 71 75 65 75 65 2d 74 68 72 65 61 64 2d 69 6e 74 65 72 | ody))..(defun.queue-thread-inter |
| 2b8540 | 72 75 70 74 20 28 74 68 72 65 61 64 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 69 6e 74 65 72 72 | rupt.(thread.function)...(interr |
| 2b8560 | 75 70 74 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | upt-thread.thread............... |
| 2b8580 | 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(lambda.()................ |
| 2b85a0 | 20 20 20 20 20 20 20 3b 3b 20 73 61 66 65 6c 79 20 69 6e 74 65 72 72 75 70 74 20 54 48 52 45 41 | .......;;.safely.interrupt.THREA |
| 2b85c0 | 44 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 69 | D.......................(when.(i |
| 2b85e0 | 6e 76 6f 6b 65 2d 6f 72 2d 71 75 65 75 65 2d 69 6e 74 65 72 72 75 70 74 20 66 75 6e 63 74 69 6f | nvoke-or-queue-interrupt.functio |
| 2b8600 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 6b 65 | n).........................(wake |
| 2b8620 | 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 76 6f | -thread.thread)))))..(defun.invo |
| 2b8640 | 6b 65 2d 6f 72 2d 71 75 65 75 65 2d 69 6e 74 65 72 72 75 70 74 20 28 66 75 6e 63 74 69 6f 6e 29 | ke-or-queue-interrupt.(function) |
| 2b8660 | 0a 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 22 69 6e 76 6f 6b 65 2d 6f 72 2d 71 75 65 75 65 2d 69 | ...(log-event."invoke-or-queue-i |
| 2b8680 | 6e 74 65 72 72 75 70 74 3a 20 7e 61 7e 25 22 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 28 63 6f 6e | nterrupt:.~a~%".function)...(con |
| 2b86a0 | 64 20 28 28 6e 6f 74 20 28 62 6f 75 6e 64 70 20 27 2a 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 | d.((not.(boundp.'*slime-interrup |
| 2b86c0 | 74 73 2d 65 6e 61 62 6c 65 64 2a 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 69 74 68 6f 75 74 2d | ts-enabled*))..........(without- |
| 2b86e0 | 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e | slime-interrupts............(fun |
| 2b8700 | 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 2a 73 6c 69 6d 65 | call.function))).........(*slime |
| 2b8720 | 2d 69 6e 74 65 72 72 75 70 74 73 2d 65 6e 61 62 6c 65 64 2a 0a 20 20 20 20 20 20 20 20 20 28 6c | -interrupts-enabled*..........(l |
| 2b8740 | 6f 67 2d 65 76 65 6e 74 20 22 69 6e 74 65 72 72 75 70 74 73 2d 65 6e 61 62 6c 65 64 7e 25 22 29 | og-event."interrupts-enabled~%") |
| 2b8760 | 0a 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 | ..........(funcall.function))... |
| 2b8780 | 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2a 70 65 6e 64 69 6e 67 | ......(t..........(setq.*pending |
| 2b87a0 | 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -slime-interrupts*.............. |
| 2b87c0 | 20 20 28 6e 63 6f 6e 63 20 2a 70 65 6e 64 69 6e 67 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 | ..(nconc.*pending-slime-interrup |
| 2b87e0 | 74 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | ts*.......................(list. |
| 2b8800 | 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 63 64 72 | function)))..........(cond.((cdr |
| 2b8820 | 20 2a 70 65 6e 64 69 6e 67 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 2a 29 0a 20 20 20 | .*pending-slime-interrupts*).... |
| 2b8840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 22 74 6f 6f 20 6d 61 6e | .............(log-event."too.man |
| 2b8860 | 79 20 71 75 65 75 65 64 20 69 6e 74 65 72 72 75 70 74 73 7e 25 22 29 0a 20 20 20 20 20 20 20 20 | y.queued.interrupts~%")......... |
| 2b8880 | 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 20 28 63 6f | ........(with-simple-restart.(co |
| 2b88a0 | 6e 74 69 6e 75 65 20 22 43 6f 6e 74 69 6e 75 65 20 66 72 6f 6d 20 69 6e 74 65 72 72 75 70 74 22 | ntinue."Continue.from.interrupt" |
| 2b88c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e | )...................(handler-bin |
| 2b88e0 | 64 20 28 28 73 65 72 69 6f 75 73 2d 63 6f 6e 64 69 74 69 6f 6e 20 23 27 69 6e 76 6f 6b 65 2d 73 | d.((serious-condition.#'invoke-s |
| 2b8900 | 6c 69 6d 65 2d 64 65 62 75 67 67 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lime-debugger))................. |
| 2b8920 | 20 20 20 20 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 29 29 29 0a | ....(check-slime-interrupts)))). |
| 2b8940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............(t............... |
| 2b8960 | 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 22 71 75 65 75 65 2d 69 6e 74 65 72 72 75 70 74 3a 20 7e | ..(log-event."queue-interrupt:.~ |
| 2b8980 | 61 7e 25 22 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | a~%".function).................( |
| 2b89a0 | 77 68 65 6e 20 2a 69 6e 74 65 72 72 75 70 74 2d 71 75 65 75 65 64 2d 68 61 6e 64 6c 65 72 2a 0a | when.*interrupt-queued-handler*. |
| 2b89c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 2a 69 6e 74 65 | ..................(funcall.*inte |
| 2b89e0 | 72 72 75 70 74 2d 71 75 65 75 65 64 2d 68 61 6e 64 6c 65 72 2a 29 29 0a 20 20 20 20 20 20 20 20 | rrupt-queued-handler*))......... |
| 2b8a00 | 20 20 20 20 20 20 20 20 74 29 29 29 29 29 0a 0a 0a 3b 3b 3b 20 46 49 58 4d 45 3a 20 70 6f 6f 72 | ........t)))))...;;;.FIXME:.poor |
| 2b8a20 | 20 6e 61 6d 65 3f 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 69 6f 2d 72 65 64 69 72 65 63 | .name?.(defmacro.with-io-redirec |
| 2b8a40 | 74 69 6f 6e 20 28 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 | tion.((connection).&body.body).. |
| 2b8a60 | 20 22 45 78 65 63 75 74 65 20 42 4f 44 59 20 49 2f 4f 20 72 65 64 69 72 65 63 74 69 6f 6e 20 74 | ."Execute.BODY.I/O.redirection.t |
| 2b8a80 | 6f 20 43 4f 4e 4e 45 43 54 49 4f 4e 2e 20 22 0a 20 20 60 28 77 69 74 68 2d 62 69 6e 64 69 6e 67 | o.CONNECTION.."...`(with-binding |
| 2b8aa0 | 73 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 65 6e 76 20 2c 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 | s.(connection.env.,connection).. |
| 2b8ac0 | 20 20 20 20 2e 20 2c 62 6f 64 79 29 29 0a 0a 3b 3b 20 54 68 72 65 61 64 20 6c 6f 63 61 6c 20 76 | ......,body))..;;.Thread.local.v |
| 2b8ae0 | 61 72 69 61 62 6c 65 20 75 73 65 64 20 66 6f 72 20 66 6c 6f 77 2d 63 6f 6e 74 72 6f 6c 2e 0a 3b | ariable.used.for.flow-control..; |
| 2b8b00 | 3b 20 49 74 27 73 20 62 6f 75 6e 64 20 62 79 20 60 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e | ;.It's.bound.by.`with-connection |
| 2b8b20 | 27 2e 0a 28 64 65 66 76 61 72 20 2a 73 65 6e 64 2d 63 6f 75 6e 74 65 72 2a 29 0a 0a 28 64 65 66 | '..(defvar.*send-counter*)..(def |
| 2b8b40 | 6d 61 63 72 6f 20 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 28 63 6f 6e 6e 65 63 74 69 | macro.with-connection.((connecti |
| 2b8b60 | 6f 6e 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 45 78 65 63 75 74 65 20 42 4f 44 59 20 | on).&body.body)..."Execute.BODY. |
| 2b8b80 | 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 43 4f 4e 4e 45 43 54 49 4f 4e 2e 22 0a 20 | in.the.context.of.CONNECTION.".. |
| 2b8ba0 | 20 60 28 6c 65 74 20 28 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 2c 63 6f 6e 6e 65 63 74 69 6f 6e 29 | .`(let.((connection.,connection) |
| 2b8bc0 | 0a 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 29 20 2e | ..........(function.(lambda.().. |
| 2b8be0 | 20 2c 62 6f 64 79 29 29 29 0a 20 20 20 20 20 28 69 66 20 28 65 71 20 2a 65 6d 61 63 73 2d 63 6f | .,body)))......(if.(eq.*emacs-co |
| 2b8c00 | 6e 6e 65 63 74 69 6f 6e 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 | nnection*.connection)..........( |
| 2b8c20 | 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | funcall.function)..........(let. |
| 2b8c40 | 28 28 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 | ((*emacs-connection*.connection) |
| 2b8c60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 70 65 6e 64 69 6e 67 2d 73 6c 69 6d 65 2d | ................(*pending-slime- |
| 2b8c80 | 69 6e 74 65 72 72 75 70 74 73 2a 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | interrupts*.'())................ |
| 2b8ca0 | 28 2a 73 65 6e 64 2d 63 6f 75 6e 74 65 72 2a 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | (*send-counter*.0))............( |
| 2b8cc0 | 77 69 74 68 6f 75 74 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 20 20 20 | without-slime-interrupts........ |
| 2b8ce0 | 20 20 20 20 20 20 28 77 69 74 68 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 2d 68 61 6e 64 6c 65 72 20 | ......(with-swank-error-handler. |
| 2b8d00 | 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 | (connection)................(wit |
| 2b8d20 | 68 2d 69 6f 2d 72 65 64 69 72 65 63 74 69 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 | h-io-redirection.(connection)... |
| 2b8d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 | ...............(call-with-debugg |
| 2b8d60 | 65 72 2d 68 6f 6f 6b 20 23 27 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 0a 20 | er-hook.#'swank-debugger-hook... |
| 2b8d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2b8da0 | 20 20 20 20 20 20 20 20 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 | .........function))))))))..(defu |
| 2b8dc0 | 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 72 65 74 72 79 2d 72 65 73 74 61 72 74 20 28 6d 73 67 20 74 | n.call-with-retry-restart.(msg.t |
| 2b8de0 | 68 75 6e 6b 29 0a 20 20 28 6c 6f 6f 70 20 28 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 | hunk)...(loop.(with-simple-resta |
| 2b8e00 | 72 74 20 28 72 65 74 72 79 20 22 7e 61 22 20 6d 73 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 | rt.(retry."~a".msg)...........(r |
| 2b8e20 | 65 74 75 72 6e 20 28 66 75 6e 63 61 6c 6c 20 74 68 75 6e 6b 29 29 29 29 29 0a 0a 28 64 65 66 6d | eturn.(funcall.thunk)))))..(defm |
| 2b8e40 | 61 63 72 6f 20 77 69 74 68 2d 72 65 74 72 79 2d 72 65 73 74 61 72 74 20 28 28 26 6b 65 79 20 28 | acro.with-retry-restart.((&key.( |
| 2b8e60 | 6d 73 67 20 22 52 65 74 72 79 2e 22 29 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 28 63 68 | msg."Retry.")).&body.body)...(ch |
| 2b8e80 | 65 63 6b 2d 74 79 70 65 20 6d 73 67 20 73 74 72 69 6e 67 29 0a 20 20 60 28 63 61 6c 6c 2d 77 69 | eck-type.msg.string)...`(call-wi |
| 2b8ea0 | 74 68 2d 72 65 74 72 79 2d 72 65 73 74 61 72 74 20 2c 6d 73 67 20 28 6c 61 6d 62 64 61 20 28 29 | th-retry-restart.,msg.(lambda.() |
| 2b8ec0 | 20 2c 40 62 6f 64 79 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 73 74 72 75 63 | .,@body)))..(defmacro.with-struc |
| 2b8ee0 | 74 2a 20 28 28 63 6f 6e 63 2d 6e 61 6d 65 20 67 65 74 20 6f 62 6a 29 20 26 62 6f 64 79 20 62 6f | t*.((conc-name.get.obj).&body.bo |
| 2b8f00 | 64 79 29 0a 20 20 28 6c 65 74 20 28 28 76 61 72 20 28 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 | dy)...(let.((var.(gensym)))..... |
| 2b8f20 | 60 28 6c 65 74 20 28 28 2c 76 61 72 20 2c 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 28 6d 61 63 72 | `(let.((,var.,obj))........(macr |
| 2b8f40 | 6f 6c 65 74 20 28 28 2c 67 65 74 20 28 73 6c 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | olet.((,get.(slot).............. |
| 2b8f60 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 67 65 74 74 65 72 20 28 69 6e 74 65 72 6e 20 28 63 6f | .......(let.((getter.(intern.(co |
| 2b8f80 | 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ncatenate.'string............... |
| 2b8fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2b8fc0 | 20 20 20 20 20 20 20 20 20 27 2c 28 73 74 72 69 6e 67 20 63 6f 6e 63 2d 6e 61 6d 65 29 0a 20 20 | .........',(string.conc-name)... |
| 2b8fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2b9000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 73 6c 6f | .....................(string.slo |
| 2b9020 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t))............................. |
| 2b9040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 27 2c | ..............(symbol-package.', |
| 2b9060 | 63 6f 6e 63 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | conc-name))))................... |
| 2b9080 | 20 20 20 20 60 28 2c 67 65 74 74 65 72 20 2c 27 2c 76 61 72 29 29 29 29 0a 20 20 20 20 20 20 20 | ....`(,getter.,',var))))........ |
| 2b90a0 | 20 20 2c 40 62 6f 64 79 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 73 | ..,@body))))..(defmacro.define-s |
| 2b90c0 | 70 65 63 69 61 6c 20 28 6e 61 6d 65 20 64 6f 63 29 0a 20 20 22 44 65 66 69 6e 65 20 61 20 73 70 | pecial.(name.doc)..."Define.a.sp |
| 2b90e0 | 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 20 4e 41 4d 45 20 77 69 74 68 20 64 6f 63 20 73 74 72 | ecial.variable.NAME.with.doc.str |
| 2b9100 | 69 6e 67 20 44 4f 43 2e 0a 54 68 69 73 20 69 73 20 6c 69 6b 65 20 64 65 66 76 61 72 2c 20 62 75 | ing.DOC..This.is.like.defvar,.bu |
| 2b9120 | 74 20 4e 41 4d 45 20 77 69 6c 6c 20 6e 6f 74 20 62 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 | t.NAME.will.not.be.initialized." |
| 2b9140 | 0a 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 28 64 65 66 76 61 72 20 2c 6e 61 6d 65 29 0a 20 20 | ...`(progn.....(defvar.,name)... |
| 2b9160 | 20 20 28 73 65 74 66 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 27 2c 6e 61 6d 65 20 27 76 | ..(setf.(documentation.',name.'v |
| 2b9180 | 61 72 69 61 62 6c 65 29 20 2c 64 6f 63 29 29 29 0a 0a 0c 0a 28 64 65 66 76 61 72 20 2a 63 6f 6e | ariable).,doc)))....(defvar.*con |
| 2b91a0 | 6e 65 63 74 69 6f 6e 2d 6c 6f 63 6b 2a 20 28 6d 61 6b 65 2d 6c 6f 63 6b 29 29 0a 0a 28 64 65 66 | nection-lock*.(make-lock))..(def |
| 2b91c0 | 76 61 72 20 2a 63 6f 6e 6e 65 63 74 69 6f 6e 73 2a 20 27 28 29 0a 20 20 22 4c 69 73 74 20 6f 66 | var.*connections*.'()..."List.of |
| 2b91e0 | 20 61 6c 6c 20 61 63 74 69 76 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2c 20 77 69 74 68 20 74 68 | .all.active.connections,.with.th |
| 2b9200 | 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 61 74 20 74 68 65 20 66 72 6f 6e 74 2e 22 29 0a 0a 28 | e.most.recent.at.the.front.")..( |
| 2b9220 | 64 65 66 76 61 72 20 2a 73 65 72 76 65 72 73 2a 20 27 28 29 0a 20 20 22 41 20 6c 69 73 74 20 28 | defvar.*servers*.'()..."A.list.( |
| 2b9240 | 28 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 20 70 6f 72 74 20 74 68 72 65 61 64 29 20 2e 2e 2e 29 | (server-socket.port.thread)....) |
| 2b9260 | 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 6c 69 73 74 65 6e 69 6e 67 20 73 6f 63 6b 65 74 | .describing.the.listening.socket |
| 2b9280 | 73 2e 0a 55 73 65 64 20 74 6f 20 63 6c 6f 73 65 20 73 6f 63 6b 65 74 73 20 6f 6e 20 73 65 72 76 | s..Used.to.close.sockets.on.serv |
| 2b92a0 | 65 72 20 73 68 75 74 64 6f 77 6e 20 6f 72 20 72 65 73 74 61 72 74 2e 22 29 0a 0a 28 64 65 66 75 | er.shutdown.or.restart.")..(defu |
| 2b92c0 | 6e 20 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 29 0a 20 20 22 52 65 74 75 72 | n.default-connection.()..."Retur |
| 2b92e0 | 6e 20 74 68 65 20 27 64 65 66 61 75 6c 74 27 20 45 6d 61 63 73 20 63 6f 6e 6e 65 63 74 69 6f 6e | n.the.'default'.Emacs.connection |
| 2b9300 | 2e 0a 54 68 69 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f | ..This.connection.can.be.used.to |
| 2b9320 | 20 74 61 6c 6b 20 77 69 74 68 20 45 6d 61 63 73 20 77 68 65 6e 20 6e 6f 20 73 70 65 63 69 66 69 | .talk.with.Emacs.when.no.specifi |
| 2b9340 | 63 0a 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 69 6e 20 75 73 65 2c 20 69 2e 65 2e 20 2a 45 4d | c.connection.is.in.use,.i.e..*EM |
| 2b9360 | 41 43 53 2d 43 4f 4e 4e 45 43 54 49 4f 4e 2a 20 69 73 20 4e 49 4c 2e 0a 0a 54 68 65 20 64 65 66 | ACS-CONNECTION*.is.NIL...The.def |
| 2b9380 | 61 75 6c 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 64 65 66 69 6e 65 64 20 28 71 75 69 74 | ault.connection.is.defined.(quit |
| 2b93a0 | 65 20 61 72 62 69 74 72 61 72 69 6c 79 29 20 61 73 20 74 68 65 20 6d 6f 73 74 0a 72 65 63 65 6e | e.arbitrarily).as.the.most.recen |
| 2b93c0 | 74 6c 79 20 65 73 74 61 62 6c 69 73 68 65 64 20 6f 6e 65 2e 22 0a 20 20 28 63 61 72 20 2a 63 6f | tly.established.one."...(car.*co |
| 2b93e0 | 6e 6e 65 63 74 69 6f 6e 73 2a 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 64 2d 63 6f 6e 6e 65 63 74 | nnections*))..(defun.add-connect |
| 2b9400 | 69 6f 6e 20 28 63 6f 6e 6e 29 0a 20 20 28 77 69 74 68 2d 6c 6f 63 6b 20 2a 63 6f 6e 6e 65 63 74 | ion.(conn)...(with-lock.*connect |
| 2b9420 | 69 6f 6e 2d 6c 6f 63 6b 2a 0a 20 20 20 20 28 70 75 73 68 20 63 6f 6e 6e 20 2a 63 6f 6e 6e 65 63 | ion-lock*.....(push.conn.*connec |
| 2b9440 | 74 69 6f 6e 73 2a 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 6f 73 65 2d 63 6f 6e 6e 65 63 74 69 | tions*)))..(defun.close-connecti |
| 2b9460 | 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 20 62 61 63 6b 74 72 61 | on.(connection.condition.backtra |
| 2b9480 | 63 65 29 0a 20 20 28 77 69 74 68 2d 6c 6f 63 6b 20 2a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 6f 63 | ce)...(with-lock.*connection-loc |
| 2b94a0 | 6b 2a 0a 20 20 20 20 28 63 6c 6f 73 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 25 20 63 6f 6e 6e 65 63 | k*.....(close-connection%.connec |
| 2b94c0 | 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 20 62 61 63 6b 74 72 61 63 65 29 29 29 0a 0a 28 64 65 | tion.condition.backtrace)))..(de |
| 2b94e0 | 66 75 6e 20 61 64 64 2d 73 65 72 76 65 72 20 28 73 6f 63 6b 65 74 20 70 6f 72 74 20 74 68 72 65 | fun.add-server.(socket.port.thre |
| 2b9500 | 61 64 29 0a 20 20 28 77 69 74 68 2d 6c 6f 63 6b 20 2a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 6f 63 | ad)...(with-lock.*connection-loc |
| 2b9520 | 6b 2a 0a 20 20 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 73 6f 63 6b 65 74 20 70 6f 72 74 20 74 | k*.....(push.(list.socket.port.t |
| 2b9540 | 68 72 65 61 64 29 20 2a 73 65 72 76 65 72 73 2a 29 29 29 0a 0a 28 64 65 66 75 6e 20 25 73 74 6f | hread).*servers*)))..(defun.%sto |
| 2b9560 | 70 2d 73 65 72 76 65 72 20 28 6b 65 79 20 76 61 6c 75 65 29 0a 20 20 28 77 69 74 68 2d 6c 6f 63 | p-server.(key.value)...(with-loc |
| 2b9580 | 6b 20 2a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 6f 63 6b 2a 0a 20 20 20 20 28 6c 65 74 20 28 28 70 | k.*connection-lock*.....(let.((p |
| 2b95a0 | 72 6f 62 65 20 28 66 69 6e 64 20 76 61 6c 75 65 20 2a 73 65 72 76 65 72 73 2a 20 3a 6b 65 79 20 | robe.(find.value.*servers*.:key. |
| 2b95c0 | 28 65 63 61 73 65 20 6b 65 79 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (ecase.key...................... |
| 2b95e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 6f 63 6b | ..........................(:sock |
| 2b9600 | 65 74 20 23 27 63 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | et.#'car)....................... |
| 2b9620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 70 6f 72 74 20 23 | ........................(:port.# |
| 2b9640 | 27 63 61 64 72 29 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 70 72 6f 62 65 20 0a 20 | 'cadr))))).......(cond.(probe... |
| 2b9660 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2a 73 65 72 76 65 72 73 2a 20 28 64 65 6c | ............(setq.*servers*.(del |
| 2b9680 | 65 74 65 20 70 72 6f 62 65 20 2a 73 65 72 76 65 72 73 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ete.probe.*servers*))........... |
| 2b96a0 | 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 73 6f 63 6b 65 74 20 5f | ...(destructuring-bind.(socket._ |
| 2b96c0 | 70 6f 72 74 20 74 68 72 65 61 64 29 20 70 72 6f 62 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | port.thread).probe.............. |
| 2b96e0 | 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 5f 70 6f 72 74 29 29 0a 20 20 20 20 20 | ..(declare.(ignore._port))...... |
| 2b9700 | 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 63 6c 6f 73 65 2d | ..........(ignore-errors.(close- |
| 2b9720 | 73 6f 63 6b 65 74 20 73 6f 63 6b 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | socket.socket))................( |
| 2b9740 | 77 68 65 6e 20 28 61 6e 64 20 74 68 72 65 61 64 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | when.(and.thread................ |
| 2b9760 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 2d 61 6c 69 76 65 2d 70 20 74 68 72 65 | ............(thread-alive-p.thre |
| 2b9780 | 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e | ad)...........................(n |
| 2b97a0 | 6f 74 20 28 65 71 20 74 68 72 65 61 64 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 29 | ot.(eq.thread.(current-thread))) |
| 2b97c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 | )..................(ignore-error |
| 2b97e0 | 73 20 28 6b 69 6c 6c 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 29 29 29 29 29 0a 20 20 20 20 20 | s.(kill-thread.thread)))))...... |
| 2b9800 | 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 20 22 4e 6f | .......(t..............(warn."No |
| 2b9820 | 20 73 65 72 76 65 72 20 66 6f 72 20 7e 73 3a 20 7e 73 22 20 6b 65 79 20 76 61 6c 75 65 29 29 29 | .server.for.~s:.~s".key.value))) |
| 2b9840 | 29 29 29 0a 0c 0a 3b 3b 3b 3b 3b 20 4d 69 73 63 0a 0a 28 64 65 66 75 6e 20 75 73 65 2d 74 68 72 | )))...;;;;;.Misc..(defun.use-thr |
| 2b9860 | 65 61 64 73 2d 70 20 28 29 0a 20 20 28 65 71 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 63 6f 6d 6d | eads-p.()...(eq.(connection.comm |
| 2b9880 | 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f | unication-style.*emacs-connectio |
| 2b98a0 | 6e 2a 29 20 3a 73 70 61 77 6e 29 29 0a 0a 28 64 65 66 75 6e 20 63 75 72 72 65 6e 74 2d 74 68 72 | n*).:spawn))..(defun.current-thr |
| 2b98c0 | 65 61 64 2d 69 64 20 28 29 0a 20 20 28 74 68 72 65 61 64 2d 69 64 20 28 63 75 72 72 65 6e 74 2d | ead-id.()...(thread-id.(current- |
| 2b98e0 | 74 68 72 65 61 64 29 29 29 0a 0a 28 64 65 63 6c 61 69 6d 20 28 69 6e 6c 69 6e 65 20 65 6e 73 75 | thread)))..(declaim.(inline.ensu |
| 2b9900 | 72 65 2d 6c 69 73 74 29 29 0a 28 64 65 66 75 6e 20 65 6e 73 75 72 65 2d 6c 69 73 74 20 28 74 68 | re-list)).(defun.ensure-list.(th |
| 2b9920 | 69 6e 67 29 0a 20 20 28 69 66 20 28 6c 69 73 74 70 20 74 68 69 6e 67 29 20 74 68 69 6e 67 20 28 | ing)...(if.(listp.thing).thing.( |
| 2b9940 | 6c 69 73 74 20 74 68 69 6e 67 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 53 79 6d 62 6f 6c 73 0a 0a | list.thing)))....;;;;;.Symbols.. |
| 2b9960 | 3b 3b 20 46 49 58 4d 45 3a 20 74 68 69 73 20 64 6f 63 73 74 72 69 6e 67 20 69 73 20 6d 6f 72 65 | ;;.FIXME:.this.docstring.is.more |
| 2b9980 | 20 63 6f 6e 66 75 73 69 6e 67 20 74 68 61 6e 20 68 65 6c 70 66 75 6c 2e 0a 28 64 65 66 75 6e 20 | .confusing.than.helpful..(defun. |
| 2b99a0 | 73 79 6d 62 6f 6c 2d 73 74 61 74 75 73 20 28 73 79 6d 62 6f 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 | symbol-status.(symbol.&optional. |
| 2b99c0 | 28 70 61 63 6b 61 67 65 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 73 79 6d 62 6f 6c 29 | (package.(symbol-package.symbol) |
| 2b99e0 | 29 29 0a 20 20 22 52 65 74 75 72 6e 73 20 6f 6e 65 20 6f 66 20 0a 0a 20 20 3a 49 4e 54 45 52 4e | ))..."Returns.one.of.....:INTERN |
| 2b9a00 | 41 4c 20 20 69 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 5f 70 72 65 73 65 6e 74 5f 20 69 | AL..if.the.symbol.is._present_.i |
| 2b9a20 | 6e 20 50 41 43 4b 41 47 45 20 61 73 20 61 6e 20 5f 69 6e 74 65 72 6e 61 6c 5f 20 73 79 6d 62 6f | n.PACKAGE.as.an._internal_.symbo |
| 2b9a40 | 6c 2c 0a 0a 20 20 3a 45 58 54 45 52 4e 41 4c 20 20 69 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 | l,....:EXTERNAL..if.the.symbol.i |
| 2b9a60 | 73 20 5f 70 72 65 73 65 6e 74 5f 20 69 6e 20 50 41 43 4b 41 47 45 20 61 73 20 61 6e 20 5f 65 78 | s._present_.in.PACKAGE.as.an._ex |
| 2b9a80 | 74 65 72 6e 61 6c 5f 20 73 79 6d 62 6f 6c 2c 0a 0a 20 20 3a 49 4e 48 45 52 49 54 45 44 20 69 66 | ternal_.symbol,....:INHERITED.if |
| 2b9aa0 | 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 5f 69 6e 68 65 72 69 74 65 64 5f 20 62 79 20 50 41 | .the.symbol.is._inherited_.by.PA |
| 2b9ac0 | 43 4b 41 47 45 20 74 68 72 6f 75 67 68 20 55 53 45 2d 50 41 43 4b 41 47 45 2c 0a 20 20 20 20 20 | CKAGE.through.USE-PACKAGE,...... |
| 2b9ae0 | 20 20 20 20 20 20 20 20 62 75 74 20 69 73 20 6e 6f 74 20 5f 70 72 65 73 65 6e 74 5f 20 69 6e 20 | ........but.is.not._present_.in. |
| 2b9b00 | 50 41 43 4b 41 47 45 2c 0a 0a 20 20 6f 72 20 4e 49 4c 20 20 20 20 20 69 66 20 53 59 4d 42 4f 4c | PACKAGE,....or.NIL.....if.SYMBOL |
| 2b9b20 | 20 69 73 20 6e 6f 74 20 5f 61 63 63 65 73 73 69 62 6c 65 5f 20 69 6e 20 50 41 43 4b 41 47 45 2e | .is.not._accessible_.in.PACKAGE. |
| 2b9b40 | 0a 0a 0a 42 65 20 61 77 61 72 65 20 6e 6f 74 20 74 6f 20 67 65 74 20 63 6f 6e 66 75 73 65 64 20 | ...Be.aware.not.to.get.confused. |
| 2b9b60 | 77 69 74 68 20 3a 49 4e 54 45 52 4e 41 4c 20 61 6e 64 20 68 6f 77 20 5c 22 69 6e 74 65 72 6e 61 | with.:INTERNAL.and.how.\"interna |
| 2b9b80 | 6c 0a 73 79 6d 62 6f 6c 73 5c 22 20 61 72 65 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20 73 | l.symbols\".are.defined.in.the.s |
| 2b9ba0 | 70 65 63 3b 20 74 68 65 72 65 20 69 73 20 61 20 73 6c 69 67 68 74 20 6d 69 73 6d 61 74 63 68 20 | pec;.there.is.a.slight.mismatch. |
| 2b9bc0 | 6f 66 0a 64 65 66 69 6e 69 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 53 70 65 63 20 61 6e 64 20 | of.definition.with.the.Spec.and. |
| 2b9be0 | 77 68 61 74 27 73 20 63 6f 6d 6d 6f 6e 6c 79 20 6d 65 61 6e 74 20 77 68 65 6e 20 74 61 6c 6b 69 | what's.commonly.meant.when.talki |
| 2b9c00 | 6e 67 0a 61 62 6f 75 74 20 69 6e 74 65 72 6e 61 6c 20 73 79 6d 62 6f 6c 73 20 6d 6f 73 74 20 74 | ng.about.internal.symbols.most.t |
| 2b9c20 | 69 6d 65 73 2e 20 41 73 20 74 68 65 20 73 70 65 63 20 73 61 79 73 3a 0a 0a 20 20 49 6e 20 61 20 | imes..As.the.spec.says:....In.a. |
| 2b9c40 | 70 61 63 6b 61 67 65 20 50 2c 20 61 20 73 79 6d 62 6f 6c 20 53 20 69 73 0a 20 20 0a 20 20 20 20 | package.P,.a.symbol.S.is........ |
| 2b9c60 | 20 5f 61 63 63 65 73 73 69 62 6c 65 5f 20 20 69 66 20 53 20 69 73 20 65 69 74 68 65 72 20 5f 70 | ._accessible_..if.S.is.either._p |
| 2b9c80 | 72 65 73 65 6e 74 5f 20 69 6e 20 50 20 69 74 73 65 6c 66 20 6f 72 20 77 61 73 0a 20 20 20 20 20 | resent_.in.P.itself.or.was...... |
| 2b9ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 68 65 72 69 74 65 64 20 66 72 6f 6d 20 61 6e 6f | ..............inherited.from.ano |
| 2b9cc0 | 74 68 65 72 20 70 61 63 6b 61 67 65 20 51 20 28 77 68 69 63 68 20 69 6d 70 6c 69 65 73 0a 20 20 | ther.package.Q.(which.implies... |
| 2b9ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 61 74 20 53 20 69 73 20 5f 65 78 74 65 | .................that.S.is._exte |
| 2b9d00 | 72 6e 61 6c 5f 20 69 6e 20 51 2e 29 0a 20 20 0a 20 20 20 20 20 20 20 20 59 6f 75 20 63 61 6e 20 | rnal_.in.Q.)............You.can. |
| 2b9d20 | 63 68 65 63 6b 20 74 68 61 74 20 77 69 74 68 3a 20 28 41 4e 44 20 28 53 59 4d 42 4f 4c 2d 53 54 | check.that.with:.(AND.(SYMBOL-ST |
| 2b9d40 | 41 54 55 53 20 53 20 50 29 20 54 29 0a 20 20 0a 20 20 0a 20 20 20 20 20 5f 70 72 65 73 65 6e 74 | ATUS.S.P).T)............_present |
| 2b9d60 | 5f 20 20 20 20 20 69 66 20 65 69 74 68 65 72 20 50 20 69 73 20 74 68 65 20 2f 68 6f 6d 65 20 70 | _.....if.either.P.is.the./home.p |
| 2b9d80 | 61 63 6b 61 67 65 2f 20 6f 66 20 53 20 6f 72 20 53 20 68 61 73 20 62 65 65 6e 0a 20 20 20 20 20 | ackage/.of.S.or.S.has.been...... |
| 2b9da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6d 70 6f 72 74 65 64 20 69 6e 74 6f 20 50 20 6f 72 | ..............imported.into.P.or |
| 2b9dc0 | 20 65 78 70 6f 72 74 65 64 20 66 72 6f 6d 20 50 20 62 79 20 49 4d 50 4f 52 54 2c 20 6f 72 0a 20 | .exported.from.P.by.IMPORT,.or.. |
| 2b9de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 50 4f 52 54 20 72 65 73 70 65 63 74 | ..................EXPORT.respect |
| 2b9e00 | 69 76 65 6c 79 2e 0a 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 72 20 | ively........................Or. |
| 2b9e20 | 6d 6f 72 65 20 73 69 6d 70 6c 79 2c 20 69 66 20 53 20 69 73 20 6e 6f 74 20 5f 69 6e 68 65 72 69 | more.simply,.if.S.is.not._inheri |
| 2b9e40 | 74 65 64 5f 2e 0a 20 20 0a 20 20 20 20 20 20 20 20 59 6f 75 20 63 61 6e 20 63 68 65 63 6b 20 74 | ted_.............You.can.check.t |
| 2b9e60 | 68 61 74 20 77 69 74 68 3a 20 28 4c 45 54 20 28 28 53 54 41 54 55 53 20 28 53 59 4d 42 4f 4c 2d | hat.with:.(LET.((STATUS.(SYMBOL- |
| 2b9e80 | 53 54 41 54 55 53 20 53 20 50 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | STATUS.S.P)))................... |
| 2b9ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 41 4e 44 20 53 54 41 54 55 53 20 0a 20 20 | .................(AND.STATUS.... |
| 2b9ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2b9ee0 | 20 20 20 20 20 20 28 4e 4f 54 20 28 45 51 20 53 54 41 54 55 53 20 3a 49 4e 48 45 52 49 54 45 44 | ......(NOT.(EQ.STATUS.:INHERITED |
| 2b9f00 | 29 29 29 29 0a 20 20 0a 20 20 0a 20 20 20 20 20 5f 65 78 74 65 72 6e 61 6c 5f 20 20 20 20 69 66 | ))))............_external_....if |
| 2b9f20 | 20 53 20 69 73 20 67 6f 69 6e 67 20 74 6f 20 62 65 20 69 6e 68 65 72 69 74 65 64 20 69 6e 74 6f | .S.is.going.to.be.inherited.into |
| 2b9f40 | 20 61 6e 79 20 70 61 63 6b 61 67 65 20 74 68 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .any.package.that............... |
| 2b9f60 | 20 20 20 20 20 2f 75 73 65 73 2f 20 50 20 62 79 20 6d 65 61 6e 73 20 6f 66 20 55 53 45 2d 50 41 | ...../uses/.P.by.means.of.USE-PA |
| 2b9f80 | 43 4b 41 47 45 2c 20 4d 41 4b 45 2d 50 41 43 4b 41 47 45 2c 20 6f 72 0a 20 20 20 20 20 20 20 20 | CKAGE,.MAKE-PACKAGE,.or......... |
| 2b9fa0 | 20 20 20 20 20 20 20 20 20 20 20 44 45 46 50 41 43 4b 41 47 45 2e 0a 20 20 0a 20 20 20 20 20 20 | ...........DEFPACKAGE........... |
| 2b9fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 6f 74 65 20 74 68 61 74 20 5f 65 78 74 65 72 6e 61 6c | .............Note.that._external |
| 2b9fe0 | 5f 20 69 6d 70 6c 69 65 73 20 5f 70 72 65 73 65 6e 74 5f 2c 20 73 69 6e 63 65 20 74 6f 0a 20 20 | _.implies._present_,.since.to... |
| 2ba000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 6b 65 20 61 20 73 79 6d 62 6f 6c 20 5f | .................make.a.symbol._ |
| 2ba020 | 65 78 74 65 72 6e 61 6c 5f 2c 20 79 6f 75 27 64 20 68 61 76 65 20 74 6f 20 75 73 65 20 45 58 50 | external_,.you'd.have.to.use.EXP |
| 2ba040 | 4f 52 54 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 63 68 20 77 69 6c | ORT....................which.wil |
| 2ba060 | 6c 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 6d 61 6b 65 20 74 68 65 20 73 79 6d 62 6f 6c 20 | l.automatically.make.the.symbol. |
| 2ba080 | 5f 70 72 65 73 65 6e 74 5f 2e 0a 20 20 0a 20 20 20 20 20 20 20 20 59 6f 75 20 63 61 6e 20 63 68 | _present_.............You.can.ch |
| 2ba0a0 | 65 63 6b 20 74 68 61 74 20 77 69 74 68 3a 20 28 45 51 20 28 53 59 4d 42 4f 4c 2d 53 54 41 54 55 | eck.that.with:.(EQ.(SYMBOL-STATU |
| 2ba0c0 | 53 20 53 20 50 29 20 3a 45 58 54 45 52 4e 41 4c 29 0a 20 20 0a 20 20 0a 20 20 20 20 20 5f 69 6e | S.S.P).:EXTERNAL)............_in |
| 2ba0e0 | 74 65 72 6e 61 6c 5f 20 20 20 20 69 66 20 53 20 69 73 20 5f 61 63 63 65 73 73 69 62 6c 65 5f 20 | ternal_....if.S.is._accessible_. |
| 2ba100 | 62 75 74 20 6e 6f 74 20 5f 65 78 74 65 72 6e 61 6c 5f 2e 0a 0a 20 20 20 20 20 20 20 20 59 6f 75 | but.not._external_...........You |
| 2ba120 | 20 63 61 6e 20 63 68 65 63 6b 20 74 68 61 74 20 77 69 74 68 3a 20 28 4c 45 54 20 28 28 53 54 41 | .can.check.that.with:.(LET.((STA |
| 2ba140 | 54 55 53 20 28 53 59 4d 42 4f 4c 2d 53 54 41 54 55 53 20 53 20 50 29 29 29 0a 20 20 20 20 20 20 | TUS.(SYMBOL-STATUS.S.P)))....... |
| 2ba160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 41 4e | .............................(AN |
| 2ba180 | 44 20 53 54 41 54 55 53 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | D.STATUS........................ |
| 2ba1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 4e 4f 54 20 28 45 51 20 53 54 41 54 55 | ..................(NOT.(EQ.STATU |
| 2ba1c0 | 53 20 3a 45 58 54 45 52 4e 41 4c 29 29 29 29 0a 20 20 0a 0a 20 20 20 20 20 20 20 20 4e 6f 74 69 | S.:EXTERNAL)))).............Noti |
| 2ba1e0 | 63 65 20 74 68 61 74 20 74 68 69 73 20 69 73 20 2a 64 69 66 66 65 72 65 6e 74 2a 20 74 6f 0a 20 | ce.that.this.is.*different*.to.. |
| 2ba200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2ba220 | 28 45 51 20 28 53 59 4d 42 4f 4c 2d 53 54 41 54 55 53 20 53 20 50 29 20 3a 49 4e 54 45 52 4e 41 | (EQ.(SYMBOL-STATUS.S.P).:INTERNA |
| 2ba240 | 4c 29 0a 20 20 20 20 20 20 20 20 62 65 63 61 75 73 65 20 77 68 61 74 20 74 68 65 20 73 70 65 63 | L).........because.what.the.spec |
| 2ba260 | 20 63 6f 6e 73 69 64 65 72 73 20 5f 69 6e 74 65 72 6e 61 6c 5f 20 69 73 20 73 70 6c 69 74 20 75 | .considers._internal_.is.split.u |
| 2ba280 | 70 20 69 6e 74 6f 20 74 77 6f 0a 20 20 20 20 20 20 20 20 65 78 70 6c 69 63 69 74 20 70 69 65 63 | p.into.two.........explicit.piec |
| 2ba2a0 | 65 73 3a 20 3a 49 4e 54 45 52 4e 41 4c 2c 20 61 6e 64 20 3a 49 4e 48 45 52 49 54 45 44 3b 20 6a | es:.:INTERNAL,.and.:INHERITED;.j |
| 2ba2c0 | 75 73 74 20 61 73 2c 20 66 6f 72 20 69 6e 73 74 61 6e 63 65 2c 0a 20 20 20 20 20 20 20 20 43 4c | ust.as,.for.instance,.........CL |
| 2ba2e0 | 3a 46 49 4e 44 2d 53 59 4d 42 4f 4c 20 64 6f 65 73 2e 20 0a 0a 20 20 20 20 20 20 20 20 54 68 65 | :FIND-SYMBOL.does............The |
| 2ba300 | 20 72 61 74 69 6f 6e 61 6c 65 20 69 73 20 74 68 61 74 20 6d 6f 73 74 20 74 69 6d 65 73 20 77 68 | .rationale.is.that.most.times.wh |
| 2ba320 | 65 6e 20 79 6f 75 20 73 70 65 61 6b 20 61 62 6f 75 74 20 5c 22 69 6e 74 65 72 6e 61 6c 5c 22 0a | en.you.speak.about.\"internal\". |
| 2ba340 | 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 73 2c 20 79 6f 75 27 72 65 20 61 63 74 75 61 6c 6c 79 | ........symbols,.you're.actually |
| 2ba360 | 20 6e 6f 74 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 69 6e 68 65 72 | .not.including.the.symbols.inher |
| 2ba380 | 69 74 65 64 20 0a 20 20 20 20 20 20 20 20 66 72 6f 6d 20 6f 74 68 65 72 20 70 61 63 6b 61 67 65 | ited..........from.other.package |
| 2ba3a0 | 73 2c 20 62 75 74 20 6f 6e 6c 79 20 61 62 6f 75 74 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 64 69 | s,.but.only.about.the.symbols.di |
| 2ba3c0 | 72 65 63 74 6c 79 20 73 70 65 63 69 66 69 63 0a 20 20 20 20 20 20 20 20 74 6f 20 74 68 65 20 70 | rectly.specific.........to.the.p |
| 2ba3e0 | 61 63 6b 61 67 65 20 69 6e 20 71 75 65 73 74 69 6f 6e 2e 0a 22 0a 20 20 28 77 68 65 6e 20 70 61 | ackage.in.question.."...(when.pa |
| 2ba400 | 63 6b 61 67 65 20 20 20 20 20 3b 20 6d 61 79 20 62 65 20 4e 49 4c 20 77 68 65 6e 20 73 79 6d 62 | ckage.....;.may.be.NIL.when.symb |
| 2ba420 | 6f 6c 20 69 73 20 63 6f 6d 70 6c 65 74 65 6c 79 20 75 6e 69 6e 74 65 72 6e 65 64 2e 0a 20 20 20 | ol.is.completely.uninterned..... |
| 2ba440 | 20 28 63 68 65 63 6b 2d 74 79 70 65 20 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 29 20 28 63 68 65 | .(check-type.symbol.symbol).(che |
| 2ba460 | 63 6b 2d 74 79 70 65 20 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 28 6d 75 | ck-type.package.package).....(mu |
| 2ba480 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 65 73 65 6e 74 2d 73 79 6d 62 6f | ltiple-value-bind.(present-symbo |
| 2ba4a0 | 6c 20 73 74 61 74 75 73 29 0a 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 | l.status).........(find-symbol.( |
| 2ba4c0 | 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 20 70 61 63 6b 61 67 65 29 0a 20 20 20 | symbol-name.symbol).package).... |
| 2ba4e0 | 20 20 20 28 61 6e 64 20 28 65 71 20 73 79 6d 62 6f 6c 20 70 72 65 73 65 6e 74 2d 73 79 6d 62 6f | ...(and.(eq.symbol.present-symbo |
| 2ba500 | 6c 29 20 73 74 61 74 75 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 79 6d 62 6f 6c 2d 65 78 74 | l).status))))..(defun.symbol-ext |
| 2ba520 | 65 72 6e 61 6c 2d 70 20 28 73 79 6d 62 6f 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 28 70 61 63 6b 61 | ernal-p.(symbol.&optional.(packa |
| 2ba540 | 67 65 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 22 | ge.(symbol-package.symbol)))..." |
| 2ba560 | 54 72 75 65 20 69 66 20 53 59 4d 42 4f 4c 20 69 73 20 65 78 74 65 72 6e 61 6c 20 69 6e 20 50 41 | True.if.SYMBOL.is.external.in.PA |
| 2ba580 | 43 4b 41 47 45 2e 0a 49 66 20 50 41 43 4b 41 47 45 20 69 73 20 6e 6f 74 20 73 70 65 63 69 66 69 | CKAGE..If.PACKAGE.is.not.specifi |
| 2ba5a0 | 65 64 2c 20 74 68 65 20 68 6f 6d 65 20 70 61 63 6b 61 67 65 20 6f 66 20 53 59 4d 42 4f 4c 20 69 | ed,.the.home.package.of.SYMBOL.i |
| 2ba5c0 | 73 20 75 73 65 64 2e 22 0a 20 20 28 65 71 20 28 73 79 6d 62 6f 6c 2d 73 74 61 74 75 73 20 73 79 | s.used."...(eq.(symbol-status.sy |
| 2ba5e0 | 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 20 3a 65 78 74 65 72 6e 61 6c 29 29 0a 0a 0c 0a 3b 3b 3b | mbol.package).:external))....;;; |
| 2ba600 | 3b 20 54 43 50 20 53 65 72 76 65 72 0a 0a 28 64 65 66 76 61 72 20 2a 63 6f 6d 6d 75 6e 69 63 61 | ;.TCP.Server..(defvar.*communica |
| 2ba620 | 74 69 6f 6e 2d 73 74 79 6c 65 2a 20 28 70 72 65 66 65 72 72 65 64 2d 63 6f 6d 6d 75 6e 69 63 61 | tion-style*.(preferred-communica |
| 2ba640 | 74 69 6f 6e 2d 73 74 79 6c 65 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 64 6f 6e 74 2d 63 6c 6f 73 | tion-style))..(defvar.*dont-clos |
| 2ba660 | 65 2a 20 6e 69 6c 0a 20 20 22 44 65 66 61 75 6c 74 20 76 61 6c 75 65 20 6f 66 20 3a 64 6f 6e 74 | e*.nil..."Default.value.of.:dont |
| 2ba680 | 2d 63 6c 6f 73 65 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 73 74 61 72 74 2d 73 65 72 76 65 72 20 | -close.argument.to.start-server. |
| 2ba6a0 | 61 6e 64 0a 20 20 63 72 65 61 74 65 2d 73 65 72 76 65 72 2e 22 29 0a 0a 28 64 65 66 70 61 72 61 | and...create-server.")..(defpara |
| 2ba6c0 | 6d 65 74 65 72 20 2a 6c 6f 6f 70 62 61 63 6b 2d 69 6e 74 65 72 66 61 63 65 2a 20 22 6c 6f 63 61 | meter.*loopback-interface*."loca |
| 2ba6e0 | 6c 68 6f 73 74 22 29 0a 0a 28 64 65 66 75 6e 20 73 74 61 72 74 2d 73 65 72 76 65 72 20 28 70 6f | lhost")..(defun.start-server.(po |
| 2ba700 | 72 74 2d 66 69 6c 65 20 26 6b 65 79 20 28 73 74 79 6c 65 20 2a 63 6f 6d 6d 75 6e 69 63 61 74 69 | rt-file.&key.(style.*communicati |
| 2ba720 | 6f 6e 2d 73 74 79 6c 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on-style*)...................... |
| 2ba740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6e 74 2d 63 6c 6f 73 65 20 2a 64 6f 6e 74 | ...............(dont-close.*dont |
| 2ba760 | 2d 63 6c 6f 73 65 2a 29 29 0a 20 20 22 53 74 61 72 74 20 74 68 65 20 73 65 72 76 65 72 20 61 6e | -close*))..."Start.the.server.an |
| 2ba780 | 64 20 77 72 69 74 65 20 74 68 65 20 6c 69 73 74 65 6e 20 70 6f 72 74 20 6e 75 6d 62 65 72 20 74 | d.write.the.listen.port.number.t |
| 2ba7a0 | 6f 20 50 4f 52 54 2d 46 49 4c 45 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 65 6e 74 72 79 20 70 | o.PORT-FILE..This.is.the.entry.p |
| 2ba7c0 | 6f 69 6e 74 20 66 6f 72 20 45 6d 61 63 73 2e 22 0a 20 20 28 73 65 74 75 70 2d 73 65 72 76 65 72 | oint.for.Emacs."...(setup-server |
| 2ba7e0 | 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 6f 72 74 | .0.................(lambda.(port |
| 2ba800 | 29 20 28 61 6e 6e 6f 75 6e 63 65 2d 73 65 72 76 65 72 2d 70 6f 72 74 20 70 6f 72 74 2d 66 69 6c | ).(announce-server-port.port-fil |
| 2ba820 | 65 20 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 79 6c 65 20 64 | e.port)).................style.d |
| 2ba840 | 6f 6e 74 2d 63 6c 6f 73 65 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 61 74 65 2d 73 | ont-close.nil))..(defun.create-s |
| 2ba860 | 65 72 76 65 72 20 28 26 6b 65 79 20 28 70 6f 72 74 20 64 65 66 61 75 6c 74 2d 73 65 72 76 65 72 | erver.(&key.(port.default-server |
| 2ba880 | 2d 70 6f 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -port).........................( |
| 2ba8a0 | 73 74 79 6c 65 20 2a 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 2a 29 0a 20 20 20 | style.*communication-style*).... |
| 2ba8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6e 74 2d 63 6c 6f 73 65 | .....................(dont-close |
| 2ba8e0 | 20 2a 64 6f 6e 74 2d 63 6c 6f 73 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .*dont-close*).................. |
| 2ba900 | 20 20 20 20 20 20 20 69 6e 74 65 72 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......interface................ |
| 2ba920 | 20 20 20 20 20 20 20 20 20 62 61 63 6b 6c 6f 67 29 0a 20 20 22 53 74 61 72 74 20 61 20 53 57 41 | .........backlog)..."Start.a.SWA |
| 2ba940 | 4e 4b 20 73 65 72 76 65 72 20 6f 6e 20 50 4f 52 54 20 72 75 6e 6e 69 6e 67 20 69 6e 20 53 54 59 | NK.server.on.PORT.running.in.STY |
| 2ba960 | 4c 45 2e 0a 49 66 20 44 4f 4e 54 2d 43 4c 4f 53 45 20 69 73 20 74 72 75 65 20 74 68 65 6e 20 74 | LE..If.DONT-CLOSE.is.true.then.t |
| 2ba980 | 68 65 20 6c 69 73 74 65 6e 20 73 6f 63 6b 65 74 20 77 69 6c 6c 20 61 63 63 65 70 74 20 6d 75 6c | he.listen.socket.will.accept.mul |
| 2ba9a0 | 74 69 70 6c 65 0a 63 6f 6e 6e 65 63 74 69 6f 6e 73 2c 20 6f 74 68 65 72 77 69 73 65 20 69 74 20 | tiple.connections,.otherwise.it. |
| 2ba9c0 | 77 69 6c 6c 20 62 65 20 63 6c 6f 73 65 64 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 2e 0a | will.be.closed.after.the.first.. |
| 2ba9e0 | 0a 4f 70 74 69 6f 6e 61 6c 6c 79 2c 20 61 6e 20 49 4e 54 45 52 46 41 43 45 20 63 6f 75 6c 64 20 | .Optionally,.an.INTERFACE.could. |
| 2baa00 | 62 65 20 73 70 65 63 69 66 69 65 64 20 61 6e 64 20 73 77 61 6e 6b 20 77 69 6c 6c 20 62 69 6e 64 | be.specified.and.swank.will.bind |
| 2baa20 | 0a 74 68 65 20 50 4f 52 54 20 6f 6e 20 74 68 69 73 20 69 6e 74 65 72 66 61 63 65 2e 20 42 79 20 | .the.PORT.on.this.interface..By. |
| 2baa40 | 64 65 66 61 75 6c 74 2c 20 69 6e 74 65 72 66 61 63 65 20 69 73 20 5c 22 6c 6f 63 61 6c 68 6f 73 | default,.interface.is.\"localhos |
| 2baa60 | 74 5c 22 2e 22 0a 20 20 28 6c 65 74 20 28 28 2a 6c 6f 6f 70 62 61 63 6b 2d 69 6e 74 65 72 66 61 | t\"."...(let.((*loopback-interfa |
| 2baa80 | 63 65 2a 20 28 6f 72 20 69 6e 74 65 72 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ce*.(or.interface............... |
| 2baaa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 6c 6f 6f 70 62 61 63 6b 2d 69 6e | ....................*loopback-in |
| 2baac0 | 74 65 72 66 61 63 65 2a 29 29 29 0a 20 20 20 20 28 73 65 74 75 70 2d 73 65 72 76 65 72 20 70 6f | terface*))).....(setup-server.po |
| 2baae0 | 72 74 20 23 27 73 69 6d 70 6c 65 2d 61 6e 6e 6f 75 6e 63 65 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 | rt.#'simple-announce-function... |
| 2bab00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 79 6c 65 20 64 6f 6e 74 2d 63 6c 6f 73 65 | ................style.dont-close |
| 2bab20 | 20 62 61 63 6b 6c 6f 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 65 78 74 65 72 6e 61 | .backlog)))..(defun.find-externa |
| 2bab40 | 6c 2d 66 6f 72 6d 61 74 2d 6f 72 2d 6c 6f 73 65 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 | l-format-or-lose.(coding-system) |
| 2bab60 | 0a 20 20 28 6f 72 20 28 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 63 6f 64 | ...(or.(find-external-format.cod |
| 2bab80 | 69 6e 67 2d 73 79 73 74 65 6d 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 73 75 70 70 | ing-system).......(error."Unsupp |
| 2baba0 | 6f 72 74 65 64 20 63 6f 64 69 6e 67 20 73 79 73 74 65 6d 3a 20 7e 73 22 20 63 6f 64 69 6e 67 2d | orted.coding.system:.~s".coding- |
| 2babc0 | 73 79 73 74 65 6d 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 72 65 73 74 61 72 74 2d 6c 6f 6f | system)))..(defmacro.restart-loo |
| 2babe0 | 70 20 28 66 6f 72 6d 20 26 62 6f 64 79 20 63 6c 61 75 73 65 73 29 0a 20 20 22 45 78 65 63 75 74 | p.(form.&body.clauses)..."Execut |
| 2bac00 | 65 73 20 46 4f 52 4d 2c 20 77 69 74 68 20 72 65 73 74 61 72 74 2d 63 61 73 65 20 43 4c 41 55 53 | es.FORM,.with.restart-case.CLAUS |
| 2bac20 | 45 53 20 77 68 69 63 68 20 68 61 76 65 20 61 20 63 68 61 6e 63 65 20 74 6f 20 6d 6f 64 69 66 79 | ES.which.have.a.chance.to.modify |
| 2bac40 | 20 46 4f 52 4d 27 73 0a 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 62 65 66 6f 72 65 20 74 72 79 69 6e | .FORM's.environment.before.tryin |
| 2bac60 | 67 20 61 67 61 69 6e 20 28 62 79 20 72 65 74 75 72 6e 69 6e 67 20 6e 6f 72 6d 61 6c 6c 79 29 20 | g.again.(by.returning.normally). |
| 2bac80 | 6f 72 20 67 69 76 69 6e 67 20 75 70 20 28 74 68 72 6f 75 67 68 20 61 6e 0a 65 78 70 6c 69 63 69 | or.giving.up.(through.an.explici |
| 2baca0 | 74 20 74 72 61 6e 73 66 65 72 20 6f 66 20 63 6f 6e 74 72 6f 6c 29 2c 20 61 6c 6c 20 77 69 74 68 | t.transfer.of.control),.all.with |
| 2bacc0 | 69 6e 20 61 6e 20 69 6d 70 6c 69 63 69 74 20 62 6c 6f 63 6b 20 6e 61 6d 65 64 20 6e 69 6c 2e 0a | in.an.implicit.block.named.nil.. |
| 2bace0 | 65 2e 67 2e 3a 20 28 72 65 73 74 61 72 74 2d 6c 6f 6f 70 20 28 68 74 74 70 2d 72 65 71 75 65 73 | e.g.:.(restart-loop.(http-reques |
| 2bad00 | 74 20 75 72 6c 29 20 28 75 73 65 2d 76 61 6c 75 65 20 28 6e 65 77 29 20 28 73 65 74 71 20 75 72 | t.url).(use-value.(new).(setq.ur |
| 2bad20 | 6c 20 6e 65 77 29 29 29 22 0a 20 20 60 28 6c 6f 6f 70 20 28 72 65 73 74 61 72 74 2d 63 61 73 65 | l.new)))"...`(loop.(restart-case |
| 2bad40 | 20 28 72 65 74 75 72 6e 20 2c 66 6f 72 6d 29 20 2c 40 63 6c 61 75 73 65 73 29 29 29 0a 0a 28 64 | .(return.,form).,@clauses)))..(d |
| 2bad60 | 65 66 75 6e 20 73 6f 63 6b 65 74 2d 71 75 65 73 74 20 28 70 6f 72 74 20 62 61 63 6b 6c 6f 67 29 | efun.socket-quest.(port.backlog) |
| 2bad80 | 0a 20 20 28 72 65 73 74 61 72 74 2d 6c 6f 6f 70 20 28 63 72 65 61 74 65 2d 73 6f 63 6b 65 74 20 | ...(restart-loop.(create-socket. |
| 2bada0 | 2a 6c 6f 6f 70 62 61 63 6b 2d 69 6e 74 65 72 66 61 63 65 2a 20 70 6f 72 74 20 3a 62 61 63 6b 6c | *loopback-interface*.port.:backl |
| 2badc0 | 6f 67 20 62 61 63 6b 6c 6f 67 29 0a 20 20 20 20 28 75 73 65 2d 76 61 6c 75 65 20 28 26 6f 70 74 | og.backlog).....(use-value.(&opt |
| 2bade0 | 69 6f 6e 61 6c 20 28 6e 65 77 2d 70 6f 72 74 20 28 31 2b 20 70 6f 72 74 29 29 29 0a 20 20 20 20 | ional.(new-port.(1+.port)))..... |
| 2bae00 | 20 20 3a 72 65 70 6f 72 74 20 28 6c 61 6d 62 64 61 20 28 73 74 72 65 61 6d 29 20 28 66 6f 72 6d | ..:report.(lambda.(stream).(form |
| 2bae20 | 61 74 20 73 74 72 65 61 6d 20 22 54 72 79 20 61 20 70 6f 72 74 20 6f 74 68 65 72 20 74 68 61 6e | at.stream."Try.a.port.other.than |
| 2bae40 | 20 7e 44 22 20 70 6f 72 74 29 29 0a 20 20 20 20 20 20 3a 69 6e 74 65 72 61 63 74 69 76 65 0a 20 | .~D".port)).......:interactive.. |
| 2bae60 | 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 | .....(lambda.().........(format. |
| 2bae80 | 2a 71 75 65 72 79 2d 69 6f 2a 20 22 45 6e 74 65 72 20 70 6f 72 74 20 28 64 65 66 61 75 6c 74 73 | *query-io*."Enter.port.(defaults |
| 2baea0 | 20 74 6f 20 7e 44 29 3a 20 22 20 28 31 2b 20 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 28 66 | .to.~D):.".(1+.port)).........(f |
| 2baec0 | 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 2a 71 75 65 72 79 2d 69 6f 2a 29 20 20 20 20 20 20 3b 20 | inish-output.*query-io*)......;. |
| 2baee0 | 6e 65 63 65 73 73 61 72 79 20 66 6f 72 20 74 75 6e 6e 65 6c 73 0a 20 20 20 20 20 20 20 20 28 69 | necessary.for.tunnels.........(i |
| 2baf00 | 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 6c 69 73 74 20 28 70 61 72 73 65 2d 69 6e 74 65 67 65 | gnore-errors.(list.(parse-intege |
| 2baf20 | 72 20 28 72 65 61 64 2d 6c 69 6e 65 20 2a 71 75 65 72 79 2d 69 6f 2a 29 29 29 29 29 0a 20 20 20 | r.(read-line.*query-io*))))).... |
| 2baf40 | 20 20 20 28 73 65 74 71 20 70 6f 72 74 20 6e 65 77 2d 70 6f 72 74 29 29 29 29 0a 0a 28 64 65 66 | ...(setq.port.new-port))))..(def |
| 2baf60 | 76 61 72 20 2a 6d 61 69 6e 2d 74 68 72 65 61 64 2a 20 6e 69 6c 29 0a 3b 3b 20 69 6e 74 65 72 72 | var.*main-thread*.nil).;;.interr |
| 2baf80 | 75 70 74 69 6e 67 20 74 68 65 20 6c 69 73 74 65 6e 65 72 20 74 68 72 65 61 64 20 64 6f 65 73 6e | upting.the.listener.thread.doesn |
| 2bafa0 | 27 74 20 77 6f 72 6b 20 6f 6e 20 63 63 6c 0a 28 64 65 66 76 61 72 20 2a 6d 61 69 6e 2d 74 68 72 | 't.work.on.ccl.(defvar.*main-thr |
| 2bafc0 | 65 61 64 2d 75 73 65 64 2a 20 28 6f 72 20 23 2b 63 63 6c 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 | ead-used*.(or.#+ccl.t))..(defun. |
| 2bafe0 | 73 65 74 75 70 2d 73 65 72 76 65 72 20 28 70 6f 72 74 20 61 6e 6e 6f 75 6e 63 65 2d 66 6e 20 73 | setup-server.(port.announce-fn.s |
| 2bb000 | 74 79 6c 65 20 64 6f 6e 74 2d 63 6c 6f 73 65 20 62 61 63 6b 6c 6f 67 29 0a 20 20 28 69 6e 69 74 | tyle.dont-close.backlog)...(init |
| 2bb020 | 2d 6c 6f 67 2d 6f 75 74 70 75 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 6f 63 6b 65 74 20 28 73 | -log-output)...(let*.((socket.(s |
| 2bb040 | 6f 63 6b 65 74 2d 71 75 65 73 74 20 70 6f 72 74 20 62 61 63 6b 6c 6f 67 29 29 0a 20 20 20 20 20 | ocket-quest.port.backlog))...... |
| 2bb060 | 20 20 20 20 28 70 6f 72 74 20 28 6c 6f 63 61 6c 2d 70 6f 72 74 20 73 6f 63 6b 65 74 29 29 29 0a | ....(port.(local-port.socket))). |
| 2bb080 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 61 6e 6e 6f 75 6e 63 65 2d 66 6e 20 70 6f 72 74 29 0a 20 | ....(funcall.announce-fn.port).. |
| 2bb0a0 | 20 20 20 28 6c 61 62 65 6c 73 20 28 28 73 65 72 76 65 20 28 29 20 28 61 63 63 65 70 74 2d 63 6f | ...(labels.((serve.().(accept-co |
| 2bb0c0 | 6e 6e 65 63 74 69 6f 6e 73 20 73 6f 63 6b 65 74 20 73 74 79 6c 65 20 64 6f 6e 74 2d 63 6c 6f 73 | nnections.socket.style.dont-clos |
| 2bb0e0 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 65 20 28 29 20 28 61 64 64 2d 73 | e))..............(note.().(add-s |
| 2bb100 | 65 72 76 65 72 20 73 6f 63 6b 65 74 20 70 6f 72 74 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 | erver.socket.port.(current-threa |
| 2bb120 | 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 72 76 65 2d 6c 6f 6f 70 20 28 29 | d)))..............(serve-loop.() |
| 2bb140 | 20 28 6e 6f 74 65 29 20 28 6c 6f 6f 70 20 64 6f 20 28 73 65 72 76 65 29 20 77 68 69 6c 65 20 64 | .(note).(loop.do.(serve).while.d |
| 2bb160 | 6f 6e 74 2d 63 6c 6f 73 65 29 29 29 0a 20 20 20 20 20 20 28 65 63 61 73 65 20 73 74 79 6c 65 0a | ont-close))).......(ecase.style. |
| 2bb180 | 20 20 20 20 20 20 20 20 28 3a 73 70 61 77 6e 20 28 69 6e 69 74 69 61 6c 69 7a 65 2d 6d 75 6c 74 | ........(:spawn.(initialize-mult |
| 2bb1a0 | 69 70 72 6f 63 65 73 73 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 | iprocessing..................(la |
| 2bb1c0 | 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | mbda.()....................(if.( |
| 2bb1e0 | 6f 72 20 64 6f 6e 74 2d 63 6c 6f 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | or.dont-close................... |
| 2bb200 | 20 20 20 20 20 20 20 20 20 2a 6d 61 69 6e 2d 74 68 72 65 61 64 2d 75 73 65 64 2a 29 0a 20 20 20 | .........*main-thread-used*).... |
| 2bb220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 61 77 6e 20 23 27 73 65 72 | ....................(spawn.#'ser |
| 2bb240 | 76 65 2d 6c 6f 6f 70 20 3a 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 53 77 61 6e 6b | ve-loop.:name.(format.nil."Swank |
| 2bb260 | 20 7e 73 22 20 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .~s".port))..................... |
| 2bb280 | 20 20 20 28 73 65 72 76 65 2d 6c 6f 6f 70 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 3a 66 | ...(serve-loop))))).........((:f |
| 2bb2a0 | 64 2d 68 61 6e 64 6c 65 72 20 3a 73 69 67 69 6f 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 65 | d-handler.:sigio)..........(note |
| 2bb2c0 | 29 0a 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 66 64 2d 68 61 6e 64 6c 65 72 20 73 6f 63 6b 65 | )..........(add-fd-handler.socke |
| 2bb2e0 | 74 20 23 27 73 65 72 76 65 29 29 0a 20 20 20 20 20 20 20 20 28 28 6e 69 6c 29 20 28 73 65 72 76 | t.#'serve)).........((nil).(serv |
| 2bb300 | 65 2d 6c 6f 6f 70 29 29 29 29 0a 20 20 20 20 70 6f 72 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 | e-loop)))).....port))..(defun.st |
| 2bb320 | 6f 70 2d 73 65 72 76 65 72 20 28 70 6f 72 74 29 0a 20 20 22 53 74 6f 70 20 73 65 72 76 65 72 20 | op-server.(port)..."Stop.server. |
| 2bb340 | 72 75 6e 6e 69 6e 67 20 6f 6e 20 50 4f 52 54 2e 22 0a 20 20 28 25 73 74 6f 70 2d 73 65 72 76 65 | running.on.PORT."...(%stop-serve |
| 2bb360 | 72 20 3a 70 6f 72 74 20 70 6f 72 74 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 73 74 61 72 74 2d 73 | r.:port.port))..(defun.restart-s |
| 2bb380 | 65 72 76 65 72 20 28 26 6b 65 79 20 28 70 6f 72 74 20 64 65 66 61 75 6c 74 2d 73 65 72 76 65 72 | erver.(&key.(port.default-server |
| 2bb3a0 | 2d 70 6f 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | -port)........................(s |
| 2bb3c0 | 74 79 6c 65 20 2a 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 2a 29 0a 20 20 20 20 | tyle.*communication-style*)..... |
| 2bb3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6e 74 2d 63 6c 6f 73 65 20 2a | ...................(dont-close.* |
| 2bb400 | 64 6f 6e 74 2d 63 6c 6f 73 65 2a 29 29 0a 20 20 22 53 74 6f 70 20 74 68 65 20 73 65 72 76 65 72 | dont-close*))..."Stop.the.server |
| 2bb420 | 20 6c 69 73 74 65 6e 69 6e 67 20 6f 6e 20 50 4f 52 54 2c 20 74 68 65 6e 20 73 74 61 72 74 20 61 | .listening.on.PORT,.then.start.a |
| 2bb440 | 20 6e 65 77 20 53 57 41 4e 4b 20 73 65 72 76 65 72 20 0a 6f 6e 20 50 4f 52 54 20 72 75 6e 6e 69 | .new.SWANK.server..on.PORT.runni |
| 2bb460 | 6e 67 20 69 6e 20 53 54 59 4c 45 2e 20 49 66 20 44 4f 4e 54 2d 43 4c 4f 53 45 20 69 73 20 74 72 | ng.in.STYLE..If.DONT-CLOSE.is.tr |
| 2bb480 | 75 65 20 74 68 65 6e 20 74 68 65 20 6c 69 73 74 65 6e 20 73 6f 63 6b 65 74 20 0a 77 69 6c 6c 20 | ue.then.the.listen.socket..will. |
| 2bb4a0 | 61 63 63 65 70 74 20 6d 75 6c 74 69 70 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2c 20 6f 74 68 | accept.multiple.connections,.oth |
| 2bb4c0 | 65 72 77 69 73 65 20 69 74 20 77 69 6c 6c 20 62 65 20 63 6c 6f 73 65 64 20 61 66 74 65 72 20 74 | erwise.it.will.be.closed.after.t |
| 2bb4e0 | 68 65 20 0a 66 69 72 73 74 2e 22 0a 20 20 28 73 74 6f 70 2d 73 65 72 76 65 72 20 70 6f 72 74 29 | he..first."...(stop-server.port) |
| 2bb500 | 0a 20 20 28 73 6c 65 65 70 20 35 29 0a 20 20 28 63 72 65 61 74 65 2d 73 65 72 76 65 72 20 3a 70 | ...(sleep.5)...(create-server.:p |
| 2bb520 | 6f 72 74 20 70 6f 72 74 20 3a 73 74 79 6c 65 20 73 74 79 6c 65 20 3a 64 6f 6e 74 2d 63 6c 6f 73 | ort.port.:style.style.:dont-clos |
| 2bb540 | 65 20 64 6f 6e 74 2d 63 6c 6f 73 65 29 29 0a 20 0a 28 64 65 66 75 6e 20 61 63 63 65 70 74 2d 63 | e.dont-close))...(defun.accept-c |
| 2bb560 | 6f 6e 6e 65 63 74 69 6f 6e 73 20 28 73 6f 63 6b 65 74 20 73 74 79 6c 65 20 64 6f 6e 74 2d 63 6c | onnections.(socket.style.dont-cl |
| 2bb580 | 6f 73 65 29 0a 20 20 28 6c 65 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 75 6e | ose)...(let.(connection).....(un |
| 2bb5a0 | 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6c 69 | wind-protect..........(let.((cli |
| 2bb5c0 | 65 6e 74 20 28 61 63 63 65 70 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 6f 63 6b 65 74 20 3a 65 | ent.(accept-connection.socket.:e |
| 2bb5e0 | 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | xternal-format.nil.............. |
| 2bb600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2bb620 | 20 20 20 20 3a 62 75 66 66 65 72 69 6e 67 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | ....:buffering.t)))............( |
| 2bb640 | 61 75 74 68 65 6e 74 69 63 61 74 65 2d 63 6c 69 65 6e 74 20 63 6c 69 65 6e 74 29 0a 20 20 20 20 | authenticate-client.client)..... |
| 2bb660 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6e 6f 74 20 64 6f 6e 74 2d 63 6c 6f 73 | .......(when.(and.(not.dont-clos |
| 2bb680 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 73 74 79 | e).......................(eq.sty |
| 2bb6a0 | 6c 65 20 3a 73 70 61 77 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le.:spawn)...................... |
| 2bb6c0 | 20 28 6e 6f 74 20 2a 6d 61 69 6e 2d 74 68 72 65 61 64 2d 75 73 65 64 2a 29 29 0a 20 20 20 20 20 | .(not.*main-thread-used*))...... |
| 2bb6e0 | 20 20 20 20 20 20 20 20 28 73 65 74 66 20 2a 6d 61 69 6e 2d 74 68 72 65 61 64 2a 20 28 63 75 72 | ........(setf.*main-thread*.(cur |
| 2bb700 | 72 65 6e 74 2d 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rent-thread).................... |
| 2bb720 | 2a 6d 61 69 6e 2d 74 68 72 65 61 64 2d 75 73 65 64 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 | *main-thread-used*.nil))........ |
| 2bb740 | 20 20 20 20 28 73 65 72 76 65 2d 72 65 71 75 65 73 74 73 20 28 73 65 74 66 20 63 6f 6e 6e 65 63 | ....(serve-requests.(setf.connec |
| 2bb760 | 74 69 6f 6e 20 28 6d 61 6b 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 6f 63 6b 65 74 20 63 6c 69 | tion.(make-connection.socket.cli |
| 2bb780 | 65 6e 74 20 73 74 79 6c 65 29 29 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 64 6f 6e 74 | ent.style)))).......(unless.dont |
| 2bb7a0 | 2d 63 6c 6f 73 65 0a 20 20 20 20 20 20 20 20 28 25 73 74 6f 70 2d 73 65 72 76 65 72 20 3a 73 6f | -close.........(%stop-server.:so |
| 2bb7c0 | 63 6b 65 74 20 73 6f 63 6b 65 74 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 73 | cket.socket).........(when.(eq.s |
| 2bb7e0 | 74 79 6c 65 20 3a 73 70 61 77 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6e | tyle.:spawn)...........(with-con |
| 2bb800 | 6e 65 63 74 69 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | nection.(connection)............ |
| 2bb820 | 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 63 61 73 65 20 28 77 61 69 74 | .(loop..............(dcase.(wait |
| 2bb840 | 2d 66 6f 72 2d 65 76 65 6e 74 20 60 28 3a 72 75 6e 2d 6f 6e 2d 6d 61 69 6e 2d 74 68 72 65 61 64 | -for-event.`(:run-on-main-thread |
| 2bb860 | 20 5f 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 72 75 6e 2d 6f 6e 2d 6d 61 | ._))................((:run-on-ma |
| 2bb880 | 69 6e 2d 74 68 72 65 61 64 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | in-thread.function)............. |
| 2bb8a0 | 20 20 20 20 28 73 65 74 66 20 2a 6d 61 69 6e 2d 74 68 72 65 61 64 2d 75 73 65 64 2a 20 28 63 75 | ....(setf.*main-thread-used*.(cu |
| 2bb8c0 | 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | rrent-thread)).................( |
| 2bb8e0 | 63 61 74 63 68 20 27 65 78 69 74 2d 74 6f 2d 6d 61 69 6e 2d 74 68 72 65 61 64 0a 20 20 20 20 20 | catch.'exit-to-main-thread...... |
| 2bb900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 | .............(funcall.function)) |
| 2bb920 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 2a 6d 61 69 6e 2d 74 68 72 | .................(setf.*main-thr |
| 2bb940 | 65 61 64 2d 75 73 65 64 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ead-used*.nil).................( |
| 2bb960 | 75 6e 6c 65 73 73 20 2a 6d 61 69 6e 2d 74 68 72 65 61 64 2a 0a 20 20 20 20 20 20 20 20 20 20 20 | unless.*main-thread*............ |
| 2bb980 | 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 29 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 | .......(return)))))))))))..(defu |
| 2bb9a0 | 6e 20 61 75 74 68 65 6e 74 69 63 61 74 65 2d 63 6c 69 65 6e 74 20 28 73 74 72 65 61 6d 29 0a 20 | n.authenticate-client.(stream).. |
| 2bb9c0 | 20 28 6c 65 74 20 28 28 73 65 63 72 65 74 20 28 73 6c 69 6d 65 2d 73 65 63 72 65 74 29 29 29 0a | .(let.((secret.(slime-secret))). |
| 2bb9e0 | 20 20 20 20 28 77 68 65 6e 20 73 65 63 72 65 74 0a 20 20 20 20 20 20 28 73 65 74 2d 73 74 72 65 | ....(when.secret.......(set-stre |
| 2bba00 | 61 6d 2d 74 69 6d 65 6f 75 74 20 73 74 72 65 61 6d 20 32 30 29 0a 20 20 20 20 20 20 28 6c 65 74 | am-timeout.stream.20).......(let |
| 2bba20 | 20 28 28 66 69 72 73 74 2d 76 61 6c 20 28 72 65 61 64 2d 70 61 63 6b 65 74 20 73 74 72 65 61 6d | .((first-val.(read-packet.stream |
| 2bba40 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 28 73 74 72 69 6e 67 | ))).........(unless.(and.(string |
| 2bba60 | 70 20 66 69 72 73 74 2d 76 61 6c 29 20 28 73 74 72 69 6e 67 3d 20 66 69 72 73 74 2d 76 61 6c 20 | p.first-val).(string=.first-val. |
| 2bba80 | 73 65 63 72 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 49 6e 63 6f 6d | secret))...........(error."Incom |
| 2bbaa0 | 69 6e 67 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 64 6f 65 73 6e 27 74 20 6b 6e 6f 77 20 74 68 65 20 | ing.connection.doesn't.know.the. |
| 2bbac0 | 70 61 73 73 77 6f 72 64 2e 22 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 2d 73 74 72 65 61 6d 2d | password."))).......(set-stream- |
| 2bbae0 | 74 69 6d 65 6f 75 74 20 73 74 72 65 61 6d 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | timeout.stream.nil))))..(defun.s |
| 2bbb00 | 6c 69 6d 65 2d 73 65 63 72 65 74 20 28 29 0a 20 20 22 46 69 6e 64 73 20 74 68 65 20 6d 61 67 69 | lime-secret.()..."Finds.the.magi |
| 2bbb20 | 63 20 73 65 63 72 65 74 20 66 72 6f 6d 20 74 68 65 20 75 73 65 72 27 73 20 68 6f 6d 65 20 64 69 | c.secret.from.the.user's.home.di |
| 2bbb40 | 72 65 63 74 6f 72 79 2e 20 20 52 65 74 75 72 6e 73 20 6e 69 6c 0a 69 66 20 74 68 65 20 66 69 6c | rectory...Returns.nil.if.the.fil |
| 2bbb60 | 65 20 64 6f 65 73 6e 27 74 20 65 78 69 73 74 3b 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 66 | e.doesn't.exist;.otherwise.the.f |
| 2bbb80 | 69 72 73 74 20 6c 69 6e 65 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 22 0a 20 20 28 77 69 74 68 2d | irst.line.of.the.file."...(with- |
| 2bbba0 | 6f 70 65 6e 2d 66 69 6c 65 20 28 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | open-file.(in................... |
| 2bbbc0 | 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 28 75 73 65 72 2d 68 6f 6d 65 64 69 72 2d | .(merge-pathnames.(user-homedir- |
| 2bbbe0 | 70 61 74 68 6e 61 6d 65 29 20 23 70 22 2e 73 6c 69 6d 65 2d 73 65 63 72 65 74 22 29 0a 20 20 20 | pathname).#p".slime-secret").... |
| 2bbc00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 66 2d 64 6f 65 73 2d 6e 6f 74 2d 65 78 69 | ................:if-does-not-exi |
| 2bbc20 | 73 74 20 6e 69 6c 29 0a 20 20 20 20 28 61 6e 64 20 69 6e 20 28 72 65 61 64 2d 6c 69 6e 65 20 69 | st.nil).....(and.in.(read-line.i |
| 2bbc40 | 6e 20 6e 69 6c 20 22 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 72 76 65 2d 72 65 71 75 65 | n.nil.""))))..(defun.serve-reque |
| 2bbc60 | 73 74 73 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 22 52 65 61 64 20 61 6e 64 20 70 72 6f | sts.(connection)..."Read.and.pro |
| 2bbc80 | 63 65 73 73 20 61 6c 6c 20 72 65 71 75 65 73 74 73 20 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 | cess.all.requests.on.connections |
| 2bbca0 | 2e 22 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 28 | ."...(etypecase.connection.....( |
| 2bbcc0 | 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 28 73 | multithreaded-connection......(s |
| 2bbce0 | 70 61 77 6e 2d 74 68 72 65 61 64 73 2d 66 6f 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e | pawn-threads-for-connection.conn |
| 2bbd00 | 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 28 73 69 6e 67 6c 65 74 68 72 65 61 64 65 64 2d 63 6f 6e | ection)).....(singlethreaded-con |
| 2bbd20 | 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 28 65 63 61 73 65 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e | nection......(ecase.(connection. |
| 2bbd40 | 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a | communication-style.connection). |
| 2bbd60 | 20 20 20 20 20 20 20 28 28 6e 69 6c 29 20 28 73 69 6d 70 6c 65 2d 73 65 72 76 65 2d 72 65 71 75 | .......((nil).(simple-serve-requ |
| 2bbd80 | 65 73 74 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 28 3a 73 69 67 69 6f | ests.connection))........(:sigio |
| 2bbda0 | 20 28 69 6e 73 74 61 6c 6c 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 20 63 6f 6e 6e 65 63 74 69 | .(install-sigio-handler.connecti |
| 2bbdc0 | 6f 6e 29 29 0a 20 20 20 20 20 20 20 28 3a 66 64 2d 68 61 6e 64 6c 65 72 20 28 69 6e 73 74 61 6c | on))........(:fd-handler.(instal |
| 2bbde0 | 6c 2d 66 64 2d 68 61 6e 64 6c 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 29 29 29 0a 0a 28 | l-fd-handler.connection))))))..( |
| 2bbe00 | 64 65 66 75 6e 20 73 74 6f 70 2d 73 65 72 76 69 6e 67 2d 72 65 71 75 65 73 74 73 20 28 63 6f 6e | defun.stop-serving-requests.(con |
| 2bbe20 | 6e 65 63 74 69 6f 6e 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e | nection)...(etypecase.connection |
| 2bbe40 | 0a 20 20 20 20 28 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 | .....(multithreaded-connection.. |
| 2bbe60 | 20 20 20 20 28 63 6c 65 61 6e 75 70 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 74 68 72 65 61 64 73 20 | ....(cleanup-connection-threads. |
| 2bbe80 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 28 73 69 6e 67 6c 65 74 68 72 65 61 64 65 64 | connection)).....(singlethreaded |
| 2bbea0 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 28 65 63 61 73 65 20 28 63 6f 6e 6e 65 63 74 | -connection......(ecase.(connect |
| 2bbec0 | 69 6f 6e 2e 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 20 63 6f 6e 6e 65 63 74 69 | ion.communication-style.connecti |
| 2bbee0 | 6f 6e 29 0a 20 20 20 20 20 20 20 28 28 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 28 3a 73 69 67 69 | on)........((nil))........(:sigi |
| 2bbf00 | 6f 20 28 64 65 69 6e 73 74 61 6c 6c 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 20 63 6f 6e 6e 65 | o.(deinstall-sigio-handler.conne |
| 2bbf20 | 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 28 3a 66 64 2d 68 61 6e 64 6c 65 72 20 28 64 65 69 | ction))........(:fd-handler.(dei |
| 2bbf40 | 6e 73 74 61 6c 6c 2d 66 64 2d 68 61 6e 64 6c 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 29 | nstall-fd-handler.connection)))) |
| 2bbf60 | 29 29 0a 0a 28 64 65 66 75 6e 20 61 6e 6e 6f 75 6e 63 65 2d 73 65 72 76 65 72 2d 70 6f 72 74 20 | ))..(defun.announce-server-port. |
| 2bbf80 | 28 66 69 6c 65 20 70 6f 72 74 29 0a 20 20 28 77 69 74 68 2d 6f 70 65 6e 2d 66 69 6c 65 20 28 73 | (file.port)...(with-open-file.(s |
| 2bbfa0 | 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 69 72 65 | .file......................:dire |
| 2bbfc0 | 63 74 69 6f 6e 20 3a 6f 75 74 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ction.:output................... |
| 2bbfe0 | 20 20 20 3a 69 66 2d 65 78 69 73 74 73 20 3a 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 | ...:if-exists.:error............ |
| 2bc000 | 20 20 20 20 20 20 20 20 20 20 3a 69 66 2d 64 6f 65 73 2d 6e 6f 74 2d 65 78 69 73 74 20 3a 63 72 | ..........:if-does-not-exist.:cr |
| 2bc020 | 65 61 74 65 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 73 20 22 7e 53 7e 25 22 20 70 6f 72 74 29 | eate).....(format.s."~S~%".port) |
| 2bc040 | 29 0a 20 20 28 73 69 6d 70 6c 65 2d 61 6e 6e 6f 75 6e 63 65 2d 66 75 6e 63 74 69 6f 6e 20 70 6f | )...(simple-announce-function.po |
| 2bc060 | 72 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d 70 6c 65 2d 61 6e 6e 6f 75 6e 63 65 2d 66 75 6e | rt))..(defun.simple-announce-fun |
| 2bc080 | 63 74 69 6f 6e 20 28 70 6f 72 74 29 0a 20 20 28 77 68 65 6e 20 2a 73 77 61 6e 6b 2d 64 65 62 75 | ction.(port)...(when.*swank-debu |
| 2bc0a0 | 67 2d 70 2a 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 2a 6c 6f 67 2d 6f 75 74 70 75 74 2a 20 22 7e | g-p*.....(format.*log-output*."~ |
| 2bc0c0 | 26 3b 3b 20 53 77 61 6e 6b 20 73 74 61 72 74 65 64 20 61 74 20 70 6f 72 74 3a 20 7e 44 2e 7e 25 | &;;.Swank.started.at.port:.~D.~% |
| 2bc0e0 | 22 20 70 6f 72 74 29 0a 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 20 2a 6c 6f 67 2d 6f | ".port).....(force-output.*log-o |
| 2bc100 | 75 74 70 75 74 2a 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 45 76 65 6e 74 20 44 65 63 6f 64 69 6e | utput*)))....;;;;;.Event.Decodin |
| 2bc120 | 67 2f 45 6e 63 6f 64 69 6e 67 0a 0a 28 64 65 66 75 6e 20 64 65 63 6f 64 65 2d 6d 65 73 73 61 67 | g/Encoding..(defun.decode-messag |
| 2bc140 | 65 20 28 73 74 72 65 61 6d 29 0a 20 20 22 52 65 61 64 20 61 6e 20 53 2d 65 78 70 72 65 73 73 69 | e.(stream)..."Read.an.S-expressi |
| 2bc160 | 6f 6e 20 66 72 6f 6d 20 53 54 52 45 41 4d 20 75 73 69 6e 67 20 74 68 65 20 53 4c 49 4d 45 20 70 | on.from.STREAM.using.the.SLIME.p |
| 2bc180 | 72 6f 74 6f 63 6f 6c 2e 22 0a 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 22 64 65 63 6f 64 65 2d 6d | rotocol."...(log-event."decode-m |
| 2bc1a0 | 65 73 73 61 67 65 7e 25 22 29 0a 20 20 28 77 69 74 68 6f 75 74 2d 73 6c 69 6d 65 2d 69 6e 74 65 | essage~%")...(without-slime-inte |
| 2bc1c0 | 72 72 75 70 74 73 0a 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 65 72 72 6f 72 | rrupts.....(handler-bind.((error |
| 2bc1e0 | 20 23 27 73 69 67 6e 61 6c 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 28 68 | .#'signal-swank-error)).......(h |
| 2bc200 | 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 72 65 61 64 2d 6d 65 73 73 61 67 65 20 73 74 72 65 61 6d | andler-case.(read-message.stream |
| 2bc220 | 20 2a 73 77 61 6e 6b 2d 69 6f 2d 70 61 63 6b 61 67 65 2a 29 0a 20 20 20 20 20 20 20 20 28 73 77 | .*swank-io-package*).........(sw |
| 2bc240 | 61 6e 6b 2d 72 65 61 64 65 72 2d 65 72 72 6f 72 20 28 63 29 20 0a 20 20 20 20 20 20 20 20 20 20 | ank-reader-error.(c)............ |
| 2bc260 | 60 28 3a 72 65 61 64 65 72 2d 65 72 72 6f 72 20 2c 28 73 77 61 6e 6b 2d 72 65 61 64 65 72 2d 65 | `(:reader-error.,(swank-reader-e |
| 2bc280 | 72 72 6f 72 2e 70 61 63 6b 65 74 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rror.packet.c).................. |
| 2bc2a0 | 20 20 20 20 20 20 20 20 20 2c 28 73 77 61 6e 6b 2d 72 65 61 64 65 72 2d 65 72 72 6f 72 2e 63 61 | .........,(swank-reader-error.ca |
| 2bc2c0 | 75 73 65 20 63 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 6e 63 6f 64 65 2d 6d 65 73 73 | use.c)))))))..(defun.encode-mess |
| 2bc2e0 | 61 67 65 20 28 6d 65 73 73 61 67 65 20 73 74 72 65 61 6d 29 0a 20 20 22 57 72 69 74 65 20 61 6e | age.(message.stream)..."Write.an |
| 2bc300 | 20 53 2d 65 78 70 72 65 73 73 69 6f 6e 20 74 6f 20 53 54 52 45 41 4d 20 75 73 69 6e 67 20 74 68 | .S-expression.to.STREAM.using.th |
| 2bc320 | 65 20 53 4c 49 4d 45 20 70 72 6f 74 6f 63 6f 6c 2e 22 0a 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 | e.SLIME.protocol."...(log-event. |
| 2bc340 | 22 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 7e 25 22 29 0a 20 20 28 77 69 74 68 6f 75 74 2d 73 | "encode-message~%")...(without-s |
| 2bc360 | 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e | lime-interrupts.....(handler-bin |
| 2bc380 | 64 20 28 28 65 72 72 6f 72 20 23 27 73 69 67 6e 61 6c 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 29 29 | d.((error.#'signal-swank-error)) |
| 2bc3a0 | 0a 20 20 20 20 20 20 28 77 72 69 74 65 2d 6d 65 73 73 61 67 65 20 6d 65 73 73 61 67 65 20 2a 73 | .......(write-message.message.*s |
| 2bc3c0 | 77 61 6e 6b 2d 69 6f 2d 70 61 63 6b 61 67 65 2a 20 73 74 72 65 61 6d 29 29 29 29 0a 0a 0c 0a 3b | wank-io-package*.stream))))....; |
| 2bc3e0 | 3b 3b 3b 3b 20 45 76 65 6e 74 20 50 72 6f 63 65 73 73 69 6e 67 0a 0a 28 64 65 66 76 61 72 20 2a | ;;;;.Event.Processing..(defvar.* |
| 2bc400 | 73 6c 64 62 2d 71 75 69 74 2d 72 65 73 74 61 72 74 2a 20 6e 69 6c 0a 20 20 22 54 68 65 20 72 65 | sldb-quit-restart*.nil..."The.re |
| 2bc420 | 73 74 61 72 74 20 74 68 61 74 20 77 69 6c 6c 20 62 65 20 69 6e 76 6f 6b 65 64 20 77 68 65 6e 20 | start.that.will.be.invoked.when. |
| 2bc440 | 74 68 65 20 75 73 65 72 20 63 61 6c 6c 73 20 73 6c 64 62 2d 71 75 69 74 2e 22 29 0a 0a 3b 3b 20 | the.user.calls.sldb-quit.")..;;. |
| 2bc460 | 45 73 74 61 62 6c 69 73 68 20 61 20 74 6f 70 2d 6c 65 76 65 6c 20 72 65 73 74 61 72 74 20 61 6e | Establish.a.top-level.restart.an |
| 2bc480 | 64 20 65 78 65 63 75 74 65 20 42 4f 44 59 2e 0a 3b 3b 20 45 78 65 63 75 74 65 20 4b 20 69 66 20 | d.execute.BODY..;;.Execute.K.if. |
| 2bc4a0 | 74 68 65 20 72 65 73 74 61 72 74 20 69 73 20 69 6e 76 6f 6b 65 64 2e 0a 28 64 65 66 6d 61 63 72 | the.restart.is.invoked..(defmacr |
| 2bc4c0 | 6f 20 77 69 74 68 2d 74 6f 70 2d 6c 65 76 65 6c 2d 72 65 73 74 61 72 74 20 28 28 63 6f 6e 6e 65 | o.with-top-level-restart.((conne |
| 2bc4e0 | 63 74 69 6f 6e 20 6b 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 60 28 77 69 74 68 2d 63 6f | ction.k).&body.body)...`(with-co |
| 2bc500 | 6e 6e 65 63 74 69 6f 6e 20 28 2c 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 28 72 65 73 | nnection.(,connection)......(res |
| 2bc520 | 74 61 72 74 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 73 6c 64 62 2d | tart-case..........(let.((*sldb- |
| 2bc540 | 71 75 69 74 2d 72 65 73 74 61 72 74 2a 20 28 66 69 6e 64 2d 72 65 73 74 61 72 74 20 27 61 62 6f | quit-restart*.(find-restart.'abo |
| 2bc560 | 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 20 20 20 | rt)))............,@body)........ |
| 2bc580 | 28 61 62 6f 72 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 76 29 0a 20 20 20 20 20 20 20 20 20 3a 72 | (abort.(&optional.v)..........:r |
| 2bc5a0 | 65 70 6f 72 74 20 22 52 65 74 75 72 6e 20 74 6f 20 53 4c 49 4d 45 27 73 20 74 6f 70 20 6c 65 76 | eport."Return.to.SLIME's.top.lev |
| 2bc5c0 | 65 6c 2e 22 0a 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 76 | el."..........(declare.(ignore.v |
| 2bc5e0 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 63 65 2d 75 73 65 72 2d 6f 75 74 70 75 74 29 0a | ))..........(force-user-output). |
| 2bc600 | 20 20 20 20 20 20 20 20 20 2c 6b 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 68 61 6e 64 6c 65 2d 72 | .........,k))))..(defun.handle-r |
| 2bc620 | 65 71 75 65 73 74 73 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 | equests.(connection.&optional.ti |
| 2bc640 | 6d 65 6f 75 74 29 0a 20 20 22 52 65 61 64 20 61 6e 64 20 70 72 6f 63 65 73 73 20 3a 65 6d 61 63 | meout)..."Read.and.process.:emac |
| 2bc660 | 73 2d 72 65 78 20 72 65 71 75 65 73 74 73 2e 0a 54 68 65 20 70 72 6f 63 65 73 73 69 6e 67 20 69 | s-rex.requests..The.processing.i |
| 2bc680 | 73 20 64 6f 6e 65 20 69 6e 20 74 68 65 20 65 78 74 65 6e 74 20 6f 66 20 74 68 65 20 74 6f 70 6c | s.done.in.the.extent.of.the.topl |
| 2bc6a0 | 65 76 65 6c 20 72 65 73 74 61 72 74 2e 22 0a 20 20 28 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f | evel.restart."...(with-connectio |
| 2bc6c0 | 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 2a 73 6c 64 62 2d | n.(connection).....(cond.(*sldb- |
| 2bc6e0 | 71 75 69 74 2d 72 65 73 74 61 72 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 | quit-restart*............(proces |
| 2bc700 | 73 2d 72 65 71 75 65 73 74 73 20 74 69 6d 65 6f 75 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | s-requests.timeout))...........( |
| 2bc720 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 61 67 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 20 | t............(tagbody........... |
| 2bc740 | 20 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 6f 70 2d | ..start...............(with-top- |
| 2bc760 | 6c 65 76 65 6c 2d 72 65 73 74 61 72 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 67 6f 20 73 74 | level-restart.(connection.(go.st |
| 2bc780 | 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 72 | art)).................(process-r |
| 2bc7a0 | 65 71 75 65 73 74 73 20 74 69 6d 65 6f 75 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 | equests.timeout)))))))..(defun.p |
| 2bc7c0 | 72 6f 63 65 73 73 2d 72 65 71 75 65 73 74 73 20 28 74 69 6d 65 6f 75 74 29 0a 20 20 22 52 65 61 | rocess-requests.(timeout)..."Rea |
| 2bc7e0 | 64 20 61 6e 64 20 70 72 6f 63 65 73 73 20 72 65 71 75 65 73 74 73 20 66 72 6f 6d 20 45 6d 61 63 | d.and.process.requests.from.Emac |
| 2bc800 | 73 2e 22 0a 20 20 28 6c 6f 6f 70 0a 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 | s."...(loop....(multiple-value-b |
| 2bc820 | 69 6e 64 20 28 65 76 65 6e 74 20 74 69 6d 65 6f 75 74 3f 29 0a 20 20 20 20 20 20 20 28 77 61 69 | ind.(event.timeout?)........(wai |
| 2bc840 | 74 2d 66 6f 72 2d 65 76 65 6e 74 20 60 28 6f 72 20 28 3a 65 6d 61 63 73 2d 72 65 78 20 2e 20 5f | t-for-event.`(or.(:emacs-rex..._ |
| 2bc860 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a | ).............................(: |
| 2bc880 | 65 6d 61 63 73 2d 63 68 61 6e 6e 65 6c 2d 73 65 6e 64 20 2e 20 5f 29 29 0a 20 20 20 20 20 20 20 | emacs-channel-send..._))........ |
| 2bc8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 6f 75 74 29 0a 20 20 20 20 20 28 77 | ................timeout)......(w |
| 2bc8c0 | 68 65 6e 20 74 69 6d 65 6f 75 74 3f 20 28 72 65 74 75 72 6e 29 29 0a 20 20 20 20 20 28 64 63 61 | hen.timeout?.(return))......(dca |
| 2bc8e0 | 73 65 20 65 76 65 6e 74 0a 20 20 20 20 20 20 20 28 28 3a 65 6d 61 63 73 2d 72 65 78 20 26 72 65 | se.event........((:emacs-rex.&re |
| 2bc900 | 73 74 20 61 72 67 73 29 20 28 61 70 70 6c 79 20 23 27 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 | st.args).(apply.#'eval-for-emacs |
| 2bc920 | 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 28 28 3a 65 6d 61 63 73 2d 63 68 61 6e 6e 65 6c 2d | .args))........((:emacs-channel- |
| 2bc940 | 73 65 6e 64 20 63 68 61 6e 6e 65 6c 20 28 73 65 6c 65 63 74 6f 72 20 26 72 65 73 74 20 61 72 67 | send.channel.(selector.&rest.arg |
| 2bc960 | 73 29 29 0a 20 20 20 20 20 20 20 20 28 63 68 61 6e 6e 65 6c 2d 73 65 6e 64 20 63 68 61 6e 6e 65 | s)).........(channel-send.channe |
| 2bc980 | 6c 20 73 65 6c 65 63 74 6f 72 20 61 72 67 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 75 | l.selector.args))))))..(defun.cu |
| 2bc9a0 | 72 72 65 6e 74 2d 73 6f 63 6b 65 74 2d 69 6f 20 28 29 0a 20 20 28 63 6f 6e 6e 65 63 74 69 6f 6e | rrent-socket-io.()...(connection |
| 2bc9c0 | 2e 73 6f 63 6b 65 74 2d 69 6f 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 0a | .socket-io.*emacs-connection*)). |
| 2bc9e0 | 0a 28 64 65 66 75 6e 20 63 6c 6f 73 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 25 20 28 63 20 63 6f 6e | .(defun.close-connection%.(c.con |
| 2bca00 | 64 69 74 69 6f 6e 20 62 61 63 6b 74 72 61 63 65 29 0a 20 20 28 6c 65 74 20 28 28 2a 64 65 62 75 | dition.backtrace)...(let.((*debu |
| 2bca20 | 67 67 65 72 2d 68 6f 6f 6b 2a 20 6e 69 6c 29 29 0a 20 20 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 | gger-hook*.nil)).....(log-event. |
| 2bca40 | 22 63 6c 6f 73 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 3a 20 7e 61 20 2e 2e 2e 7e 25 22 20 63 6f 6e | "close-connection:.~a....~%".con |
| 2bca60 | 64 69 74 69 6f 6e 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 2a 6c 6f 67 2d 6f 75 74 70 75 74 2a | dition).....(format.*log-output* |
| 2bca80 | 20 22 7e 26 3b 3b 20 73 77 61 6e 6b 3a 63 6c 6f 73 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 3a 20 7e | ."~&;;.swank:close-connection:.~ |
| 2bcaa0 | 41 7e 25 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 73 63 61 70 65 2d 6e 6f 6e 2d 61 73 63 | A~%".............(escape-non-asc |
| 2bcac0 | 69 69 20 28 73 61 66 65 2d 63 6f 6e 64 69 74 69 6f 6e 2d 6d 65 73 73 61 67 65 20 63 6f 6e 64 69 | ii.(safe-condition-message.condi |
| 2bcae0 | 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 73 74 6f 70 2d 73 65 72 76 69 6e 67 2d 72 65 71 75 65 73 | tion))).....(stop-serving-reques |
| 2bcb00 | 74 73 20 63 29 0a 20 20 20 20 28 63 6c 6f 73 65 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 73 6f 63 | ts.c).....(close.(connection.soc |
| 2bcb20 | 6b 65 74 2d 69 6f 20 63 29 29 0a 20 20 20 20 28 73 65 74 66 20 2a 63 6f 6e 6e 65 63 74 69 6f 6e | ket-io.c)).....(setf.*connection |
| 2bcb40 | 73 2a 20 28 72 65 6d 6f 76 65 20 63 20 2a 63 6f 6e 6e 65 63 74 69 6f 6e 73 2a 29 29 0a 20 20 20 | s*.(remove.c.*connections*)).... |
| 2bcb60 | 20 28 72 75 6e 2d 68 6f 6f 6b 20 2a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6c 6f 73 65 64 2d 68 6f | .(run-hook.*connection-closed-ho |
| 2bcb80 | 6f 6b 2a 20 63 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 63 6f 6e 64 69 74 69 6f 6e 20 | ok*.c).....(when.(and.condition. |
| 2bcba0 | 28 6e 6f 74 20 28 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 65 6e 64 2d 6f 66 2d 66 69 | (not.(typep.condition.'end-of-fi |
| 2bcbc0 | 6c 65 29 29 29 0a 20 20 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 2a 6c 6f 67 2d | le))).......(finish-output.*log- |
| 2bcbe0 | 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 2a 6c 6f 67 2d 6f 75 74 70 | output*).......(format.*log-outp |
| 2bcc00 | 75 74 2a 20 22 7e 26 3b 3b 20 45 76 65 6e 74 20 68 69 73 74 6f 72 79 20 73 74 61 72 74 3a 7e 25 | ut*."~&;;.Event.history.start:~% |
| 2bcc20 | 22 29 0a 20 20 20 20 20 20 28 64 75 6d 70 2d 65 76 65 6e 74 2d 68 69 73 74 6f 72 79 20 2a 6c 6f | ").......(dump-event-history.*lo |
| 2bcc40 | 67 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 2a 6c 6f 67 2d 6f 75 | g-output*).......(format.*log-ou |
| 2bcc60 | 74 70 75 74 2a 20 22 7e 0a 3b 3b 20 45 76 65 6e 74 20 68 69 73 74 6f 72 79 20 65 6e 64 2e 7e 25 | tput*."~.;;.Event.history.end.~% |
| 2bcc80 | 7e 0a 3b 3b 20 42 61 63 6b 74 72 61 63 65 3a 7e 25 7e 7b 7e 41 7e 25 7e 7d 7e 0a 3b 3b 20 43 6f | ~.;;.Backtrace:~%~{~A~%~}~.;;.Co |
| 2bcca0 | 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 45 6d 61 63 73 20 6c 6f 73 74 2e 20 5b 7e 25 7e 0a 3b 3b 20 | nnection.to.Emacs.lost..[~%~.;;. |
| 2bccc0 | 20 63 6f 6e 64 69 74 69 6f 6e 3a 20 7e 41 7e 25 7e 0a 3b 3b 20 20 74 79 70 65 3a 20 7e 53 7e 25 | .condition:.~A~%~.;;..type:.~S~% |
| 2bcce0 | 7e 0a 3b 3b 20 20 73 74 79 6c 65 3a 20 7e 53 5d 7e 25 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ~.;;..style:.~S]~%"............. |
| 2bcd00 | 20 20 28 6c 6f 6f 70 20 66 6f 72 20 28 69 20 66 29 20 69 6e 20 62 61 63 6b 74 72 61 63 65 20 63 | ..(loop.for.(i.f).in.backtrace.c |
| 2bcd20 | 6f 6c 6c 65 63 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e | ollect......................(ign |
| 2bcd40 | 6f 72 65 2d 65 72 72 6f 72 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ore-errors...................... |
| 2bcd60 | 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 64 3a 20 7e 61 22 20 69 20 28 65 73 63 61 70 65 | ..(format.nil."~d:.~a".i.(escape |
| 2bcd80 | 2d 6e 6f 6e 2d 61 73 63 69 69 20 66 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -non-ascii.f))))...............( |
| 2bcda0 | 65 73 63 61 70 65 2d 6e 6f 6e 2d 61 73 63 69 69 20 28 73 61 66 65 2d 63 6f 6e 64 69 74 69 6f 6e | escape-non-ascii.(safe-condition |
| 2bcdc0 | 2d 6d 65 73 73 61 67 65 20 63 6f 6e 64 69 74 69 6f 6e 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 | -message.condition).)........... |
| 2bcde0 | 20 20 20 20 28 74 79 70 65 2d 6f 66 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | ....(type-of.condition)......... |
| 2bce00 | 20 20 20 20 20 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d | ......(connection.communication- |
| 2bce20 | 73 74 79 6c 65 20 63 29 29 29 0a 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 2a 6c | style.c))).....(finish-output.*l |
| 2bce40 | 6f 67 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 22 63 6c 6f 73 | og-output*).....(log-event."clos |
| 2bce60 | 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 7e 61 20 2e 2e 2e 20 64 6f 6e 65 2e 7e 25 22 20 63 6f 6e | e-connection.~a.....done.~%".con |
| 2bce80 | 64 69 74 69 6f 6e 29 29 29 0a 0a 3b 3b 3b 3b 3b 3b 20 54 68 72 65 61 64 20 62 61 73 65 64 20 63 | dition)))..;;;;;;.Thread.based.c |
| 2bcea0 | 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 6c 6f 6f 70 20 28 | ommunication..(defun.read-loop.( |
| 2bcec0 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 70 75 74 2d 73 74 72 65 61 | connection)...(let.((input-strea |
| 2bcee0 | 6d 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 73 6f 63 6b 65 74 2d 69 6f 20 63 6f 6e 6e 65 63 74 69 | m.(connection.socket-io.connecti |
| 2bcf00 | 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 74 72 6f 6c 2d 74 68 72 65 61 64 20 28 6d 63 | on)).........(control-thread.(mc |
| 2bcf20 | 6f 6e 6e 2e 63 6f 6e 74 72 6f 6c 2d 74 68 72 65 61 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 | onn.control-thread.connection))) |
| 2bcf40 | 0a 20 20 20 20 28 77 69 74 68 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 2d 68 61 6e 64 6c 65 72 20 28 | .....(with-swank-error-handler.( |
| 2bcf60 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 6c 6f 6f 70 20 28 73 65 6e 64 20 63 6f | connection).......(loop.(send.co |
| 2bcf80 | 6e 74 72 6f 6c 2d 74 68 72 65 61 64 20 28 64 65 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 69 6e 70 | ntrol-thread.(decode-message.inp |
| 2bcfa0 | 75 74 2d 73 74 72 65 61 6d 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 73 70 61 74 63 68 | ut-stream))))))..(defun.dispatch |
| 2bcfc0 | 2d 6c 6f 6f 70 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a 65 6d 61 | -loop.(connection)...(let.((*ema |
| 2bcfe0 | 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 | cs-connection*.connection))..... |
| 2bd000 | 28 77 69 74 68 2d 70 61 6e 69 63 2d 68 61 6e 64 6c 65 72 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 | (with-panic-handler.(connection) |
| 2bd020 | 0a 20 20 20 20 20 20 28 6c 6f 6f 70 20 28 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 63 6f 6e | .......(loop.(dispatch-event.con |
| 2bd040 | 6e 65 63 74 69 6f 6e 20 28 72 65 63 65 69 76 65 29 29 29 29 29 29 0a 0a 28 64 65 66 67 65 6e 65 | nection.(receive))))))..(defgene |
| 2bd060 | 72 69 63 20 74 68 72 65 61 64 2d 66 6f 72 2d 65 76 61 6c 75 61 74 69 6f 6e 20 28 63 6f 6e 6e 65 | ric.thread-for-evaluation.(conne |
| 2bd080 | 63 74 69 6f 6e 20 69 64 29 0a 20 20 28 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 22 46 69 6e | ction.id)...(:documentation."Fin |
| 2bd0a0 | 64 20 6f 72 20 63 72 65 61 74 65 20 61 20 74 68 72 65 61 64 20 74 6f 20 65 76 61 6c 75 61 74 65 | d.or.create.a.thread.to.evaluate |
| 2bd0c0 | 20 74 68 65 20 6e 65 78 74 20 72 65 71 75 65 73 74 2e 22 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 | .the.next.request.")...(:method. |
| 2bd0e0 | 28 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 | ((connection.multithreaded-conne |
| 2bd100 | 63 74 69 6f 6e 29 20 28 69 64 20 28 65 71 6c 20 74 29 29 29 0a 20 20 20 20 28 73 70 61 77 6e 2d | ction).(id.(eql.t))).....(spawn- |
| 2bd120 | 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 28 3a 6d | worker-thread.connection))...(:m |
| 2bd140 | 65 74 68 6f 64 20 28 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 6d 75 6c 74 69 74 68 72 65 61 64 65 64 | ethod.((connection.multithreaded |
| 2bd160 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 28 69 64 20 28 65 71 6c 20 3a 66 69 6e 64 2d 65 78 69 73 | -connection).(id.(eql.:find-exis |
| 2bd180 | 74 69 6e 67 29 29 29 0a 20 20 20 20 28 63 61 72 20 28 6d 63 6f 6e 6e 2e 61 63 74 69 76 65 2d 74 | ting))).....(car.(mconn.active-t |
| 2bd1a0 | 68 72 65 61 64 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 | hreads.connection)))...(:method. |
| 2bd1c0 | 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 69 64 20 69 6e 74 65 67 65 72 29 29 0a 20 20 20 20 28 64 | (connection.(id.integer)).....(d |
| 2bd1e0 | 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 61 62 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 | eclare.(ignorable.connection)).. |
| 2bd200 | 20 20 20 28 66 69 6e 64 2d 74 68 72 65 61 64 20 69 64 29 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 | ...(find-thread.id))...(:method. |
| 2bd220 | 28 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 69 6e 67 6c 65 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e | ((connection.singlethreaded-conn |
| 2bd240 | 65 63 74 69 6f 6e 29 20 69 64 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 61 | ection).id).....(declare.(ignora |
| 2bd260 | 62 6c 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 64 29 29 0a 20 | ble.connection.connection.id)).. |
| 2bd280 | 20 20 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e | ...(current-thread)))..(defun.in |
| 2bd2a0 | 74 65 72 72 75 70 74 2d 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 20 28 63 6f 6e 6e 65 63 74 69 6f | terrupt-worker-thread.(connectio |
| 2bd2c0 | 6e 20 69 64 29 0a 20 20 28 6c 65 74 20 28 28 74 68 72 65 61 64 20 28 74 68 72 65 61 64 2d 66 6f | n.id)...(let.((thread.(thread-fo |
| 2bd2e0 | 72 2d 65 76 61 6c 75 61 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 | r-evaluation.connection......... |
| 2bd300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 2bd320 | 63 6f 6e 64 20 28 28 65 71 20 69 64 20 74 29 20 3a 66 69 6e 64 2d 65 78 69 73 74 69 6e 67 29 0a | cond.((eq.id.t).:find-existing). |
| 2bd340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2bd360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 69 64 29 29 29 29 29 0a 20 20 20 20 28 6c 6f 67 | .............(t.id))))).....(log |
| 2bd380 | 2d 65 76 65 6e 74 20 22 69 6e 74 65 72 72 75 70 74 2d 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 3a | -event."interrupt-worker-thread: |
| 2bd3a0 | 20 7e 61 20 7e 61 7e 25 22 20 69 64 20 74 68 72 65 61 64 29 0a 20 20 20 20 28 69 66 20 74 68 72 | .~a.~a~%".id.thread).....(if.thr |
| 2bd3c0 | 65 61 64 0a 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f | ead.........(etypecase.connectio |
| 2bd3e0 | 6e 0a 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 | n...........(multithreaded-conne |
| 2bd400 | 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 71 75 65 75 65 2d 74 68 72 65 61 64 2d 69 | ction............(queue-thread-i |
| 2bd420 | 6e 74 65 72 72 75 70 74 20 74 68 72 65 61 64 20 23 27 73 69 6d 70 6c 65 2d 62 72 65 61 6b 29 29 | nterrupt.thread.#'simple-break)) |
| 2bd440 | 0a 20 20 20 20 20 20 20 20 20 20 28 73 69 6e 67 6c 65 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 | ...........(singlethreaded-conne |
| 2bd460 | 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 69 6d 70 6c 65 2d 62 72 65 61 6b 29 29 | ction............(simple-break)) |
| 2bd480 | 29 0a 20 20 20 20 20 20 20 20 28 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 28 6c 69 73 74 20 | ).........(encode-message.(list. |
| 2bd4a0 | 3a 64 65 62 75 67 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 | :debug-condition.(current-thread |
| 2bd4c0 | 2d 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -id)............................ |
| 2bd4e0 | 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 54 68 72 65 61 64 20 77 69 74 68 20 69 64 20 7e | ...(format.nil."Thread.with.id.~ |
| 2bd500 | 61 20 6e 6f 74 20 66 6f 75 6e 64 22 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | a.not.found".................... |
| 2bd520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 64 29 29 0a 20 20 20 20 20 20 20 | ....................id))........ |
| 2bd540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 73 6f 63 6b 65 74 | .................(current-socket |
| 2bd560 | 2d 69 6f 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 70 61 77 6e 2d 77 6f 72 6b 65 72 2d 74 68 | -io)))))..(defun.spawn-worker-th |
| 2bd580 | 72 65 61 64 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 73 70 61 77 6e 20 28 6c 61 6d 62 | read.(connection)...(spawn.(lamb |
| 2bd5a0 | 64 61 20 28 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 | da.().............(with-bindings |
| 2bd5c0 | 20 2a 64 65 66 61 75 6c 74 2d 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 2d 62 69 6e 64 69 6e 67 73 | .*default-worker-thread-bindings |
| 2bd5e0 | 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 6f 70 2d 6c 65 76 65 6c 2d 72 | *..............(with-top-level-r |
| 2bd600 | 65 73 74 61 72 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 | estart.(connection.nil)......... |
| 2bd620 | 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 0a | .......(apply.#'eval-for-emacs.. |
| 2bd640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 77 61 69 74 | ......................(cdr.(wait |
| 2bd660 | 2d 66 6f 72 2d 65 76 65 6e 74 20 60 28 3a 65 6d 61 63 73 2d 72 65 78 20 2e 20 5f 29 29 29 29 29 | -for-event.`(:emacs-rex..._))))) |
| 2bd680 | 29 29 0a 20 20 20 20 20 20 20 20 20 3a 6e 61 6d 65 20 22 77 6f 72 6b 65 72 22 29 29 0a 0a 28 64 | ))..........:name."worker"))..(d |
| 2bd6a0 | 65 66 75 6e 20 61 64 64 2d 61 63 74 69 76 65 2d 74 68 72 65 61 64 20 28 63 6f 6e 6e 65 63 74 69 | efun.add-active-thread.(connecti |
| 2bd6c0 | 6f 6e 20 74 68 72 65 61 64 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 63 6f 6e 6e 65 63 74 69 | on.thread)...(etypecase.connecti |
| 2bd6e0 | 6f 6e 0a 20 20 20 20 28 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e | on.....(multithreaded-connection |
| 2bd700 | 20 0a 20 20 20 20 20 28 70 75 73 68 20 74 68 72 65 61 64 20 28 6d 63 6f 6e 6e 2e 61 63 74 69 76 | .......(push.thread.(mconn.activ |
| 2bd720 | 65 2d 74 68 72 65 61 64 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 73 69 6e | e-threads.connection))).....(sin |
| 2bd740 | 67 6c 65 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 | glethreaded-connection)))..(defu |
| 2bd760 | 6e 20 72 65 6d 6f 76 65 2d 61 63 74 69 76 65 2d 74 68 72 65 61 64 20 28 63 6f 6e 6e 65 63 74 69 | n.remove-active-thread.(connecti |
| 2bd780 | 6f 6e 20 74 68 72 65 61 64 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 63 6f 6e 6e 65 63 74 69 | on.thread)...(etypecase.connecti |
| 2bd7a0 | 6f 6e 0a 20 20 20 20 28 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e | on.....(multithreaded-connection |
| 2bd7c0 | 0a 20 20 20 20 20 28 73 65 74 66 20 28 6d 63 6f 6e 6e 2e 61 63 74 69 76 65 2d 74 68 72 65 61 64 | ......(setf.(mconn.active-thread |
| 2bd7e0 | 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 | s.connection)............(delete |
| 2bd800 | 20 74 68 72 65 61 64 20 28 6d 63 6f 6e 6e 2e 61 63 74 69 76 65 2d 74 68 72 65 61 64 73 20 63 6f | .thread.(mconn.active-threads.co |
| 2bd820 | 6e 6e 65 63 74 69 6f 6e 29 20 3a 63 6f 75 6e 74 20 31 29 29 29 0a 20 20 20 20 28 73 69 6e 67 6c | nnection).:count.1))).....(singl |
| 2bd840 | 65 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 70 61 72 | ethreaded-connection)))..(defpar |
| 2bd860 | 61 6d 65 74 65 72 20 2a 65 76 65 6e 74 2d 68 6f 6f 6b 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e | ameter.*event-hook*.nil)..(defun |
| 2bd880 | 20 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 76 65 6e | .dispatch-event.(connection.even |
| 2bd8a0 | 74 29 0a 20 20 22 48 61 6e 64 6c 65 20 61 6e 20 65 76 65 6e 74 20 74 72 69 67 67 65 72 65 64 20 | t)..."Handle.an.event.triggered. |
| 2bd8c0 | 65 69 74 68 65 72 20 62 79 20 45 6d 61 63 73 20 6f 72 20 77 69 74 68 69 6e 20 4c 69 73 70 2e 22 | either.by.Emacs.or.within.Lisp." |
| 2bd8e0 | 0a 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 22 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 3a 20 7e | ...(log-event."dispatch-event:.~ |
| 2bd900 | 73 7e 25 22 20 65 76 65 6e 74 29 0a 20 20 28 6f 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d 75 6e 74 69 | s~%".event)...(or.(run-hook-unti |
| 2bd920 | 6c 2d 73 75 63 63 65 73 73 20 2a 65 76 65 6e 74 2d 68 6f 6f 6b 2a 20 63 6f 6e 6e 65 63 74 69 6f | l-success.*event-hook*.connectio |
| 2bd940 | 6e 20 65 76 65 6e 74 29 0a 20 20 20 20 20 20 28 64 63 61 73 65 20 65 76 65 6e 74 0a 20 20 20 20 | n.event).......(dcase.event..... |
| 2bd960 | 20 20 20 20 28 28 3a 65 6d 61 63 73 2d 72 65 78 20 66 6f 72 6d 20 70 61 63 6b 61 67 65 20 74 68 | ....((:emacs-rex.form.package.th |
| 2bd980 | 72 65 61 64 2d 69 64 20 69 64 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 68 72 65 | read-id.id)..........(let.((thre |
| 2bd9a0 | 61 64 20 28 74 68 72 65 61 64 2d 66 6f 72 2d 65 76 61 6c 75 61 74 69 6f 6e 20 63 6f 6e 6e 65 63 | ad.(thread-for-evaluation.connec |
| 2bd9c0 | 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | tion.thread-id)))............(co |
| 2bd9e0 | 6e 64 20 28 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 | nd.(thread...................(ad |
| 2bda00 | 64 2d 61 63 74 69 76 65 2d 74 68 72 65 61 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 68 72 65 61 | d-active-thread.connection.threa |
| 2bda20 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 2d 65 76 65 6e 74 | d)...................(send-event |
| 2bda40 | 20 74 68 72 65 61 64 20 60 28 3a 65 6d 61 63 73 2d 72 65 78 20 2c 66 6f 72 6d 20 2c 70 61 63 6b | .thread.`(:emacs-rex.,form.,pack |
| 2bda60 | 61 67 65 20 2c 69 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 | age.,id)))..................(t.. |
| 2bda80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 | .................(encode-message |
| 2bdaa0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 69 6e 76 61 6c | ....................(list.:inval |
| 2bdac0 | 69 64 2d 72 70 63 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | id-rpc.id....................... |
| 2bdae0 | 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 54 68 72 65 61 64 20 6e 6f 74 20 66 6f 75 6e 64 | ...(format.nil."Thread.not.found |
| 2bdb00 | 3a 20 7e 73 22 20 74 68 72 65 61 64 2d 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :.~s".thread-id))............... |
| 2bdb20 | 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 73 6f 63 6b 65 74 2d 69 6f 29 29 29 29 29 29 0a 20 20 | .....(current-socket-io))))))... |
| 2bdb40 | 20 20 20 20 20 20 28 28 3a 72 65 74 75 72 6e 20 74 68 72 65 61 64 20 26 72 65 73 74 20 61 72 67 | ......((:return.thread.&rest.arg |
| 2bdb60 | 73 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 61 63 74 69 76 65 2d 74 68 72 65 61 | s)..........(remove-active-threa |
| 2bdb80 | 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 28 65 | d.connection.thread)..........(e |
| 2bdba0 | 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 60 28 3a 72 65 74 75 72 6e 20 2c 40 61 72 67 73 29 20 | ncode-message.`(:return.,@args). |
| 2bdbc0 | 28 63 75 72 72 65 6e 74 2d 73 6f 63 6b 65 74 2d 69 6f 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 | (current-socket-io))).........(( |
| 2bdbe0 | 3a 65 6d 61 63 73 2d 69 6e 74 65 72 72 75 70 74 20 74 68 72 65 61 64 2d 69 64 29 0a 20 20 20 20 | :emacs-interrupt.thread-id)..... |
| 2bdc00 | 20 20 20 20 20 28 69 6e 74 65 72 72 75 70 74 2d 77 6f 72 6b 65 72 2d 74 68 72 65 61 64 20 63 6f | .....(interrupt-worker-thread.co |
| 2bdc20 | 6e 6e 65 63 74 69 6f 6e 20 74 68 72 65 61 64 2d 69 64 29 29 0a 20 20 20 20 20 20 20 20 28 28 28 | nnection.thread-id)).........((( |
| 2bdc40 | 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 62 75 67 20 | :write-string............:debug. |
| 2bdc60 | 3a 64 65 62 75 67 2d 63 6f 6e 64 69 74 69 6f 6e 20 3a 64 65 62 75 67 2d 61 63 74 69 76 61 74 65 | :debug-condition.:debug-activate |
| 2bdc80 | 20 3a 64 65 62 75 67 2d 72 65 74 75 72 6e 20 3a 63 68 61 6e 6e 65 6c 2d 73 65 6e 64 0a 20 20 20 | .:debug-return.:channel-send.... |
| 2bdca0 | 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 61 72 74 20 3a 70 72 65 | ........:presentation-start.:pre |
| 2bdcc0 | 73 65 6e 74 61 74 69 6f 6e 2d 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 3a 6e 65 77 2d 70 61 | sentation-end............:new-pa |
| 2bdce0 | 63 6b 61 67 65 20 3a 6e 65 77 2d 66 65 61 74 75 72 65 73 20 3a 65 64 20 3a 69 6e 64 65 6e 74 61 | ckage.:new-features.:ed.:indenta |
| 2bdd00 | 74 69 6f 6e 2d 75 70 64 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 3a 65 76 61 6c 20 3a 65 76 | tion-update............:eval.:ev |
| 2bdd20 | 61 6c 2d 6e 6f 2d 77 61 69 74 20 3a 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 73 73 61 67 65 20 3a | al-no-wait.:background-message.: |
| 2bdd40 | 69 6e 73 70 65 63 74 20 3a 70 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 3a 79 2d 6f 72 2d 6e | inspect.:ping............:y-or-n |
| 2bdd60 | 2d 70 20 3a 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 3a 72 65 61 64 2d 73 | -p.:read-from-minibuffer.:read-s |
| 2bdd80 | 74 72 69 6e 67 20 3a 72 65 61 64 2d 61 62 6f 72 74 65 64 20 3a 74 65 73 74 2d 64 65 6c 61 79 0a | tring.:read-aborted.:test-delay. |
| 2bdda0 | 20 20 20 20 20 20 20 20 20 20 20 3a 77 72 69 74 65 2d 69 6d 61 67 65 20 3a 65 64 2d 72 70 63 20 | ...........:write-image.:ed-rpc. |
| 2bddc0 | 3a 65 64 2d 72 70 63 2d 6e 6f 2d 77 61 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 26 72 65 73 74 | :ed-rpc-no-wait)...........&rest |
| 2bdde0 | 20 5f 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 5f 29 | ._)..........(declare.(ignore._) |
| 2bde00 | 29 0a 20 20 20 20 20 20 20 20 20 28 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 65 76 65 6e 74 | )..........(encode-message.event |
| 2bde20 | 20 28 63 75 72 72 65 6e 74 2d 73 6f 63 6b 65 74 2d 69 6f 29 29 29 0a 20 20 20 20 20 20 20 20 28 | .(current-socket-io))).........( |
| 2bde40 | 28 28 3a 65 6d 61 63 73 2d 70 6f 6e 67 20 3a 65 6d 61 63 73 2d 72 65 74 75 72 6e 20 3a 65 6d 61 | ((:emacs-pong.:emacs-return.:ema |
| 2bde60 | 63 73 2d 72 65 74 75 72 6e 2d 73 74 72 69 6e 67 20 3a 65 64 2d 72 70 63 2d 66 6f 72 62 69 64 64 | cs-return-string.:ed-rpc-forbidd |
| 2bde80 | 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 3a 77 72 69 74 65 2d 64 6f 6e 65 29 0a 20 20 20 20 20 | en............:write-done)...... |
| 2bdea0 | 20 20 20 20 20 74 68 72 65 61 64 2d 69 64 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 | .....thread-id.&rest.args)...... |
| 2bdec0 | 20 20 20 20 28 73 65 6e 64 2d 65 76 65 6e 74 20 28 66 69 6e 64 2d 74 68 72 65 61 64 20 74 68 72 | ....(send-event.(find-thread.thr |
| 2bdee0 | 65 61 64 2d 69 64 29 20 28 63 6f 6e 73 20 28 63 61 72 20 65 76 65 6e 74 29 20 61 72 67 73 29 29 | ead-id).(cons.(car.event).args)) |
| 2bdf00 | 29 0a 20 20 20 20 20 20 20 20 28 28 3a 65 6d 61 63 73 2d 63 68 61 6e 6e 65 6c 2d 73 65 6e 64 20 | ).........((:emacs-channel-send. |
| 2bdf20 | 63 68 61 6e 6e 65 6c 2d 69 64 20 6d 73 67 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | channel-id.msg)..........(let.(( |
| 2bdf40 | 63 68 20 28 66 69 6e 64 2d 63 68 61 6e 6e 65 6c 20 63 68 61 6e 6e 65 6c 2d 69 64 29 29 29 0a 20 | ch.(find-channel.channel-id))).. |
| 2bdf60 | 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 2d 65 76 65 6e 74 20 28 63 68 61 6e 6e 65 6c 2d 74 | ..........(send-event.(channel-t |
| 2bdf80 | 68 72 65 61 64 20 63 68 29 20 60 28 3a 65 6d 61 63 73 2d 63 68 61 6e 6e 65 6c 2d 73 65 6e 64 20 | hread.ch).`(:emacs-channel-send. |
| 2bdfa0 | 2c 63 68 20 2c 6d 73 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 3a 72 65 61 64 65 72 2d 65 | ,ch.,msg)))).........((:reader-e |
| 2bdfc0 | 72 72 6f 72 20 70 61 63 6b 65 74 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | rror.packet.condition).......... |
| 2bdfe0 | 28 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 60 28 3a 72 65 61 64 65 72 2d 65 72 72 6f 72 20 | (encode-message.`(:reader-error. |
| 2be000 | 2c 70 61 63 6b 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ,packet......................... |
| 2be020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 73 61 66 65 2d 63 6f 6e 64 69 74 69 6f | .................,(safe-conditio |
| 2be040 | 6e 2d 6d 65 73 73 61 67 65 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 | n-message.condition))........... |
| 2be060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 73 6f 63 6b 65 74 2d 69 | ...............(current-socket-i |
| 2be080 | 6f 29 29 29 29 29 29 0a 0a 0c 0a 28 64 65 66 75 6e 20 73 65 6e 64 2d 65 76 65 6e 74 20 28 74 68 | o))))))....(defun.send-event.(th |
| 2be0a0 | 72 65 61 64 20 65 76 65 6e 74 29 0a 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 22 73 65 6e 64 2d 65 | read.event)...(log-event."send-e |
| 2be0c0 | 76 65 6e 74 3a 20 7e 73 20 7e 73 7e 25 22 20 74 68 72 65 61 64 20 65 76 65 6e 74 29 0a 20 20 28 | vent:.~s.~s~%".thread.event)...( |
| 2be0e0 | 6c 65 74 20 28 28 63 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 0a 20 20 20 | let.((c.*emacs-connection*)).... |
| 2be100 | 20 28 65 74 79 70 65 63 61 73 65 20 63 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 74 68 72 65 61 64 | .(etypecase.c.......(multithread |
| 2be120 | 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 28 73 65 6e 64 20 74 68 72 65 | ed-connection.........(send.thre |
| 2be140 | 61 64 20 65 76 65 6e 74 29 29 0a 20 20 20 20 20 20 28 73 69 6e 67 6c 65 74 68 72 65 61 64 65 64 | ad.event)).......(singlethreaded |
| 2be160 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 28 73 65 74 66 20 28 73 63 6f 6e 6e | -connection.........(setf.(sconn |
| 2be180 | 2e 65 76 65 6e 74 2d 71 75 65 75 65 20 63 29 20 28 6e 63 6f 6e 63 20 28 73 63 6f 6e 6e 2e 65 76 | .event-queue.c).(nconc.(sconn.ev |
| 2be1a0 | 65 6e 74 2d 71 75 65 75 65 20 63 29 20 28 6c 69 73 74 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 | ent-queue.c).(list.event)))..... |
| 2be1c0 | 20 20 20 28 73 65 74 66 20 28 73 63 6f 6e 6e 2e 65 76 65 6e 74 73 2d 65 6e 71 75 65 75 65 64 20 | ...(setf.(sconn.events-enqueued. |
| 2be1e0 | 63 29 20 28 6d 6f 64 20 28 31 2b 20 28 73 63 6f 6e 6e 2e 65 76 65 6e 74 73 2d 65 6e 71 75 65 75 | c).(mod.(1+.(sconn.events-enqueu |
| 2be200 | 65 64 20 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed.c)).......................... |
| 2be220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 | ...................most-positive |
| 2be240 | 2d 66 69 78 6e 75 6d 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 6e 64 2d 74 6f 2d 65 6d | -fixnum))))))..(defun.send-to-em |
| 2be260 | 61 63 73 20 28 65 76 65 6e 74 29 0a 20 20 22 53 65 6e 64 20 45 56 45 4e 54 20 74 6f 20 45 6d 61 | acs.(event)..."Send.EVENT.to.Ema |
| 2be280 | 63 73 2e 22 0a 20 20 3b 3b 28 6c 6f 67 2d 65 76 65 6e 74 20 22 73 65 6e 64 2d 74 6f 2d 65 6d 61 | cs."...;;(log-event."send-to-ema |
| 2be2a0 | 63 73 3a 20 7e 61 22 20 65 76 65 6e 74 29 0a 20 20 28 77 69 74 68 6f 75 74 2d 73 6c 69 6d 65 2d | cs:.~a".event)...(without-slime- |
| 2be2c0 | 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 28 6c 65 74 20 28 28 63 20 2a 65 6d 61 63 73 2d 63 | interrupts.....(let.((c.*emacs-c |
| 2be2e0 | 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 0a 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 63 0a | onnection*)).......(etypecase.c. |
| 2be300 | 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f | ........(multithreaded-connectio |
| 2be320 | 6e 0a 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 28 6d 63 6f 6e 6e 2e 63 6f 6e 74 72 6f 6c 2d | n..........(send.(mconn.control- |
| 2be340 | 74 68 72 65 61 64 20 63 29 20 65 76 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 73 69 6e 67 6c | thread.c).event)).........(singl |
| 2be360 | 65 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 64 | ethreaded-connection..........(d |
| 2be380 | 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 63 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 20 20 28 | ispatch-event.c.event))).......( |
| 2be3a0 | 6d 61 79 62 65 2d 73 6c 6f 77 2d 64 6f 77 6e 29 29 29 29 0a 20 20 0a 0c 0a 3b 3b 3b 3b 3b 3b 20 | maybe-slow-down))))......;;;;;;. |
| 2be3c0 | 46 6c 6f 77 20 63 6f 6e 74 72 6f 6c 0a 0a 3b 3b 20 41 66 74 65 72 20 73 65 6e 64 69 6e 67 20 4e | Flow.control..;;.After.sending.N |
| 2be3e0 | 20 28 75 73 75 61 6c 6c 79 20 31 30 30 29 20 6d 65 73 73 61 67 65 73 20 77 65 20 73 6c 6f 77 20 | .(usually.100).messages.we.slow. |
| 2be400 | 64 6f 77 6e 20 61 6e 64 20 70 69 6e 67 20 45 6d 61 63 73 0a 3b 3b 20 74 6f 20 6d 61 6b 65 20 73 | down.and.ping.Emacs.;;.to.make.s |
| 2be420 | 75 72 65 20 74 68 61 74 20 65 76 65 72 79 74 68 69 6e 67 20 77 65 20 68 61 76 65 20 73 65 6e 74 | ure.that.everything.we.have.sent |
| 2be440 | 20 73 6f 20 66 61 72 20 77 61 73 20 72 65 63 65 69 76 65 64 2e 0a 0a 28 64 65 66 63 6f 6e 73 74 | .so.far.was.received...(defconst |
| 2be460 | 61 6e 74 20 73 65 6e 64 2d 63 6f 75 6e 74 65 72 2d 6c 69 6d 69 74 20 31 30 30 29 0a 0a 28 64 65 | ant.send-counter-limit.100)..(de |
| 2be480 | 66 75 6e 20 6d 61 79 62 65 2d 73 6c 6f 77 2d 64 6f 77 6e 20 28 29 0a 20 20 28 6c 65 74 20 28 28 | fun.maybe-slow-down.()...(let.(( |
| 2be4a0 | 63 6f 75 6e 74 65 72 20 28 69 6e 63 66 20 2a 73 65 6e 64 2d 63 6f 75 6e 74 65 72 2a 29 29 29 0a | counter.(incf.*send-counter*))). |
| 2be4c0 | 20 20 20 20 28 77 68 65 6e 20 28 3c 20 73 65 6e 64 2d 63 6f 75 6e 74 65 72 2d 6c 69 6d 69 74 20 | ....(when.(<.send-counter-limit. |
| 2be4e0 | 63 6f 75 6e 74 65 72 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 2a 73 65 6e 64 2d 63 6f 75 6e 74 | counter).......(setf.*send-count |
| 2be500 | 65 72 2a 20 30 29 0a 20 20 20 20 20 20 28 70 69 6e 67 2d 70 6f 6e 67 29 29 29 29 0a 0a 28 64 65 | er*.0).......(ping-pong))))..(de |
| 2be520 | 66 75 6e 20 70 69 6e 67 2d 70 6f 6e 67 20 28 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 61 67 20 28 | fun.ping-pong.()...(let*.((tag.( |
| 2be540 | 6d 61 6b 65 2d 74 61 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 61 74 74 65 72 6e 20 60 28 3a | make-tag))..........(pattern.`(: |
| 2be560 | 65 6d 61 63 73 2d 70 6f 6e 67 20 2c 74 61 67 29 29 29 0a 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d | emacs-pong.,tag))).....(send-to- |
| 2be580 | 65 6d 61 63 73 20 60 28 3a 70 69 6e 67 20 2c 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 | emacs.`(:ping.,(current-thread-i |
| 2be5a0 | 64 29 20 2c 74 61 67 29 29 0a 20 20 20 20 28 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 20 70 61 | d).,tag)).....(wait-for-event.pa |
| 2be5c0 | 74 74 65 72 6e 29 29 29 0a 0a 0c 0a 28 64 65 66 75 6e 20 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e | ttern)))....(defun.wait-for-even |
| 2be5e0 | 74 20 28 70 61 74 74 65 72 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 74 69 6d 65 6f 75 74 29 0a 20 20 | t.(pattern.&optional.timeout)... |
| 2be600 | 22 53 63 61 6e 20 74 68 65 20 65 76 65 6e 74 20 71 75 65 75 65 20 66 6f 72 20 50 41 54 54 45 52 | "Scan.the.event.queue.for.PATTER |
| 2be620 | 4e 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 65 76 65 6e 74 2e 0a 49 66 20 54 49 4d 45 4f | N.and.return.the.event..If.TIMEO |
| 2be640 | 55 54 20 69 73 20 27 6e 69 6c 20 77 61 69 74 20 75 6e 74 69 6c 20 61 20 6d 61 74 63 68 69 6e 67 | UT.is.'nil.wait.until.a.matching |
| 2be660 | 20 65 76 65 6e 74 20 69 73 20 65 6e 71 75 65 64 2e 0a 49 66 20 54 49 4d 45 4f 55 54 20 69 73 20 | .event.is.enqued..If.TIMEOUT.is. |
| 2be680 | 27 74 20 6f 6e 6c 79 20 73 63 61 6e 20 74 68 65 20 71 75 65 75 65 20 77 69 74 68 6f 75 74 20 77 | 't.only.scan.the.queue.without.w |
| 2be6a0 | 61 69 74 69 6e 67 2e 0a 54 68 65 20 73 65 63 6f 6e 64 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 | aiting..The.second.return.value. |
| 2be6c0 | 69 73 20 74 20 69 66 20 74 68 65 20 74 69 6d 65 6f 75 74 20 65 78 70 69 72 65 64 20 62 65 66 6f | is.t.if.the.timeout.expired.befo |
| 2be6e0 | 72 65 20 61 20 6d 61 74 63 68 69 6e 67 0a 65 76 65 6e 74 20 77 61 73 20 66 6f 75 6e 64 2e 22 0a | re.a.matching.event.was.found.". |
| 2be700 | 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 22 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 3a 20 7e 73 | ..(log-event."wait-for-event:.~s |
| 2be720 | 20 7e 73 7e 25 22 20 70 61 74 74 65 72 6e 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 77 69 74 68 6f | .~s~%".pattern.timeout)...(witho |
| 2be740 | 75 74 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 28 6c 65 74 20 28 28 63 | ut-slime-interrupts.....(let.((c |
| 2be760 | 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 0a 20 20 20 20 20 20 28 65 74 79 | .*emacs-connection*)).......(ety |
| 2be780 | 70 65 63 61 73 65 20 63 0a 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d | pecase.c.........(multithreaded- |
| 2be7a0 | 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 72 65 63 65 69 76 65 2d 69 66 20 | connection..........(receive-if. |
| 2be7c0 | 28 6c 61 6d 62 64 61 20 28 65 29 20 28 65 76 65 6e 74 2d 6d 61 74 63 68 2d 70 20 65 20 70 61 74 | (lambda.(e).(event-match-p.e.pat |
| 2be7e0 | 74 65 72 6e 29 29 20 74 69 6d 65 6f 75 74 29 29 0a 20 20 20 20 20 20 20 20 28 73 69 6e 67 6c 65 | tern)).timeout)).........(single |
| 2be800 | 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 77 61 | threaded-connection..........(wa |
| 2be820 | 69 74 2d 66 6f 72 2d 65 76 65 6e 74 2f 65 76 65 6e 74 2d 6c 6f 6f 70 20 63 20 70 61 74 74 65 72 | it-for-event/event-loop.c.patter |
| 2be840 | 6e 20 74 69 6d 65 6f 75 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 77 61 69 74 2d 66 6f 72 | n.timeout))))))..(defun.wait-for |
| 2be860 | 2d 65 76 65 6e 74 2f 65 76 65 6e 74 2d 6c 6f 6f 70 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 61 | -event/event-loop.(connection.pa |
| 2be880 | 74 74 65 72 6e 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 61 73 73 65 72 74 20 28 6f 72 20 28 6e 6f | ttern.timeout)...(assert.(or.(no |
| 2be8a0 | 74 20 74 69 6d 65 6f 75 74 29 20 28 65 71 20 74 69 6d 65 6f 75 74 20 74 29 29 29 0a 20 20 28 6c | t.timeout).(eq.timeout.t)))...(l |
| 2be8c0 | 6f 6f 70 20 0a 20 20 20 28 63 68 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 | oop.....(check-slime-interrupts) |
| 2be8e0 | 0a 20 20 20 28 6c 65 74 20 28 28 65 76 65 6e 74 20 28 70 6f 6c 6c 2d 66 6f 72 2d 65 76 65 6e 74 | ....(let.((event.(poll-for-event |
| 2be900 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 61 74 74 65 72 6e 29 29 29 0a 20 20 20 20 20 28 77 68 65 | .connection.pattern)))......(whe |
| 2be920 | 6e 20 65 76 65 6e 74 20 28 72 65 74 75 72 6e 20 28 63 61 72 20 65 76 65 6e 74 29 29 29 29 0a 20 | n.event.(return.(car.event)))).. |
| 2be940 | 20 20 28 6c 65 74 20 28 28 65 76 65 6e 74 73 2d 65 6e 71 75 65 75 65 64 20 28 73 63 6f 6e 6e 2e | ..(let.((events-enqueued.(sconn. |
| 2be960 | 65 76 65 6e 74 73 2d 65 6e 71 75 65 75 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 | events-enqueued.connection)).... |
| 2be980 | 20 20 20 20 20 20 28 72 65 61 64 79 20 28 77 61 69 74 2d 66 6f 72 2d 69 6e 70 75 74 20 28 6c 69 | ......(ready.(wait-for-input.(li |
| 2be9a0 | 73 74 20 28 63 75 72 72 65 6e 74 2d 73 6f 63 6b 65 74 2d 69 6f 29 29 20 74 69 6d 65 6f 75 74 29 | st.(current-socket-io)).timeout) |
| 2be9c0 | 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 74 69 6d 65 6f 75 74 20 28 6e 6f 74 | ))......(cond.((and.timeout.(not |
| 2be9e0 | 20 72 65 61 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 20 28 76 61 | .ready)).............(return.(va |
| 2bea00 | 6c 75 65 73 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 28 2f | lues.nil.t)))............((or.(/ |
| 2bea20 | 3d 20 65 76 65 6e 74 73 2d 65 6e 71 75 65 75 65 64 20 28 73 63 6f 6e 6e 2e 65 76 65 6e 74 73 2d | =.events-enqueued.(sconn.events- |
| 2bea40 | 65 6e 71 75 65 75 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 | enqueued.connection))........... |
| 2bea60 | 20 20 20 20 20 20 28 65 71 20 72 65 61 64 79 20 3a 69 6e 74 65 72 72 75 70 74 29 29 0a 20 20 20 | ......(eq.ready.:interrupt)).... |
| 2bea80 | 20 20 20 20 20 20 20 20 20 3b 3b 20 72 65 73 63 61 6e 20 65 76 65 6e 74 20 71 75 65 75 65 2c 20 | .........;;.rescan.event.queue,. |
| 2beaa0 | 69 6e 74 65 72 72 75 70 74 73 20 6d 61 79 20 65 6e 71 75 65 75 65 20 6e 65 77 20 65 76 65 6e 74 | interrupts.may.enqueue.new.event |
| 2beac0 | 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 | s..............)............(t.. |
| 2beae0 | 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 65 71 75 61 6c 20 72 65 61 64 79 20 | ...........(assert.(equal.ready. |
| 2beb00 | 28 6c 69 73 74 20 28 63 75 72 72 65 6e 74 2d 73 6f 63 6b 65 74 2d 69 6f 29 29 29 29 0a 20 20 20 | (list.(current-socket-io)))).... |
| 2beb20 | 20 20 20 20 20 20 20 20 20 28 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 63 6f 6e 6e 65 63 74 | .........(dispatch-event.connect |
| 2beb40 | 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion............................. |
| 2beb60 | 28 64 65 63 6f 64 65 2d 6d 65 73 73 61 67 65 20 28 63 75 72 72 65 6e 74 2d 73 6f 63 6b 65 74 2d | (decode-message.(current-socket- |
| 2beb80 | 69 6f 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 6f 6c 6c 2d 66 6f 72 2d 65 76 65 6e | io))))))))..(defun.poll-for-even |
| 2beba0 | 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 61 74 74 65 72 6e 29 0a 20 20 28 6c 65 74 2a 20 28 | t.(connection.pattern)...(let*.( |
| 2bebc0 | 28 63 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 20 28 6d | (c.connection)..........(tail.(m |
| 2bebe0 | 65 6d 62 65 72 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 65 29 20 28 65 76 65 6e 74 2d 6d 61 74 63 | ember-if.(lambda.(e).(event-matc |
| 2bec00 | 68 2d 70 20 65 20 70 61 74 74 65 72 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h-p.e.pattern))................. |
| 2bec20 | 20 20 20 20 20 20 20 20 20 20 28 73 63 6f 6e 6e 2e 65 76 65 6e 74 2d 71 75 65 75 65 20 63 29 29 | ..........(sconn.event-queue.c)) |
| 2bec40 | 29 29 0a 20 20 20 20 28 77 68 65 6e 20 74 61 69 6c 20 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 | )).....(when.tail........(setf.( |
| 2bec60 | 73 63 6f 6e 6e 2e 65 76 65 6e 74 2d 71 75 65 75 65 20 63 29 20 0a 20 20 20 20 20 20 20 20 20 20 | sconn.event-queue.c)............ |
| 2bec80 | 20 20 28 6e 63 6f 6e 63 20 28 6c 64 69 66 66 20 28 73 63 6f 6e 6e 2e 65 76 65 6e 74 2d 71 75 65 | ..(nconc.(ldiff.(sconn.event-que |
| 2beca0 | 75 65 20 63 29 20 74 61 69 6c 29 20 28 63 64 72 20 74 61 69 6c 29 29 29 0a 20 20 20 20 20 20 74 | ue.c).tail).(cdr.tail))).......t |
| 2becc0 | 61 69 6c 29 29 29 0a 0a 3b 3b 3b 20 46 49 58 4d 45 3a 20 4d 61 6b 65 20 74 68 69 73 20 75 73 65 | ail)))..;;;.FIXME:.Make.this.use |
| 2bece0 | 20 53 57 41 4e 4b 2d 4d 41 54 43 48 2e 0a 28 64 65 66 75 6e 20 65 76 65 6e 74 2d 6d 61 74 63 68 | .SWANK-MATCH..(defun.event-match |
| 2bed00 | 2d 70 20 28 65 76 65 6e 74 20 70 61 74 74 65 72 6e 29 0a 20 20 28 63 6f 6e 64 20 28 28 6f 72 20 | -p.(event.pattern)...(cond.((or. |
| 2bed20 | 28 6b 65 79 77 6f 72 64 70 20 70 61 74 74 65 72 6e 29 20 28 6e 75 6d 62 65 72 70 20 70 61 74 74 | (keywordp.pattern).(numberp.patt |
| 2bed40 | 65 72 6e 29 20 28 73 74 72 69 6e 67 70 20 70 61 74 74 65 72 6e 29 0a 09 20 20 20 20 20 28 6d 65 | ern).(stringp.pattern).......(me |
| 2bed60 | 6d 62 65 72 20 70 61 74 74 65 72 6e 20 27 28 6e 69 6c 20 74 29 29 29 0a 09 20 28 65 71 75 61 6c | mber.pattern.'(nil.t)))...(equal |
| 2bed80 | 20 65 76 65 6e 74 20 70 61 74 74 65 72 6e 29 29 0a 09 28 28 73 79 6d 62 6f 6c 70 20 70 61 74 74 | .event.pattern))..((symbolp.patt |
| 2beda0 | 65 72 6e 29 20 74 29 0a 09 28 28 63 6f 6e 73 70 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 | ern).t)..((consp.pattern)....... |
| 2bedc0 | 20 20 20 28 63 61 73 65 20 28 63 61 72 20 70 61 74 74 65 72 6e 29 0a 20 20 20 20 20 20 20 20 20 | ...(case.(car.pattern).......... |
| 2bede0 | 20 20 28 28 6f 72 29 20 28 73 6f 6d 65 20 28 6c 61 6d 62 64 61 20 28 70 29 20 28 65 76 65 6e 74 | ..((or).(some.(lambda.(p).(event |
| 2bee00 | 2d 6d 61 74 63 68 2d 70 20 65 76 65 6e 74 20 70 29 29 20 28 63 64 72 20 70 61 74 74 65 72 6e 29 | -match-p.event.p)).(cdr.pattern) |
| 2bee20 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 61 6e 64 20 28 63 6f 6e 73 70 20 65 76 65 | ))............(t.(and.(consp.eve |
| 2bee40 | 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 76 65 | nt)....................(and.(eve |
| 2bee60 | 6e 74 2d 6d 61 74 63 68 2d 70 20 28 63 61 72 20 65 76 65 6e 74 29 20 28 63 61 72 20 70 61 74 74 | nt-match-p.(car.event).(car.patt |
| 2bee80 | 65 72 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 | ern)).........................(e |
| 2beea0 | 76 65 6e 74 2d 6d 61 74 63 68 2d 70 20 28 63 64 72 20 65 76 65 6e 74 29 20 28 63 64 72 20 70 61 | vent-match-p.(cdr.event).(cdr.pa |
| 2beec0 | 74 74 65 72 6e 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 | ttern))))))).........(t.(error." |
| 2beee0 | 49 6e 76 61 6c 69 64 20 70 61 74 74 65 72 6e 3a 20 7e 53 22 20 70 61 74 74 65 72 6e 29 29 29 29 | Invalid.pattern:.~S".pattern)))) |
| 2bef00 | 0a 0a 0a 0c 0a 28 64 65 66 75 6e 20 73 70 61 77 6e 2d 74 68 72 65 61 64 73 2d 66 6f 72 2d 63 6f | .....(defun.spawn-threads-for-co |
| 2bef20 | 6e 6e 65 63 74 69 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 73 65 74 66 20 28 6d | nnection.(connection)...(setf.(m |
| 2bef40 | 63 6f 6e 6e 2e 63 6f 6e 74 72 6f 6c 2d 74 68 72 65 61 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a | conn.control-thread.connection). |
| 2bef60 | 20 20 20 20 20 20 20 20 28 73 70 61 77 6e 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 6f 6e 74 72 | ........(spawn.(lambda.().(contr |
| 2bef80 | 6f 6c 2d 74 68 72 65 61 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 | ol-thread.connection)).......... |
| 2befa0 | 20 20 20 20 20 20 3a 6e 61 6d 65 20 22 63 6f 6e 74 72 6f 6c 2d 74 68 72 65 61 64 22 29 29 0a 20 | ......:name."control-thread")).. |
| 2befc0 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 74 72 6f 6c 2d 74 68 72 | .connection)..(defun.control-thr |
| 2befe0 | 65 61 64 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 2a | ead.(connection)...(with-struct* |
| 2bf000 | 20 28 6d 63 6f 6e 6e 2e 20 40 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 73 65 74 66 | .(mconn..@.connection).....(setf |
| 2bf020 | 20 28 40 20 63 6f 6e 74 72 6f 6c 2d 74 68 72 65 61 64 29 20 28 63 75 72 72 65 6e 74 2d 74 68 72 | .(@.control-thread).(current-thr |
| 2bf040 | 65 61 64 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 40 20 72 65 61 64 65 72 2d 74 68 72 65 61 64 | ead)).....(setf.(@.reader-thread |
| 2bf060 | 29 20 28 73 70 61 77 6e 20 28 6c 61 6d 62 64 61 20 28 29 20 28 72 65 61 64 2d 6c 6f 6f 70 20 63 | ).(spawn.(lambda.().(read-loop.c |
| 2bf080 | 6f 6e 6e 65 63 74 69 6f 6e 29 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | onnection))..................... |
| 2bf0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 61 6d 65 20 22 72 65 61 64 65 72 2d 74 68 | ................:name."reader-th |
| 2bf0c0 | 72 65 61 64 22 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 40 20 69 6e 64 65 6e 74 61 74 69 6f 6e | read")).....(setf.(@.indentation |
| 2bf0e0 | 2d 63 61 63 68 65 2d 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 70 61 77 6e 20 | -cache-thread)...........(spawn. |
| 2bf100 | 28 6c 61 6d 62 64 61 20 28 29 20 28 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 63 61 63 68 65 2d 6c 6f | (lambda.().(indentation-cache-lo |
| 2bf120 | 6f 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | op.connection))................. |
| 2bf140 | 20 3a 6e 61 6d 65 20 22 73 77 61 6e 6b 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 63 61 63 68 65 2d | .:name."swank-indentation-cache- |
| 2bf160 | 74 68 72 65 61 64 22 29 29 0a 20 20 20 20 28 64 69 73 70 61 74 63 68 2d 6c 6f 6f 70 20 63 6f 6e | thread")).....(dispatch-loop.con |
| 2bf180 | 6e 65 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 65 61 6e 75 70 2d 63 6f 6e 6e 65 | nection)))..(defun.cleanup-conne |
| 2bf1a0 | 63 74 69 6f 6e 2d 74 68 72 65 61 64 73 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 6c 65 | ction-threads.(connection)...(le |
| 2bf1c0 | 74 2a 20 28 28 63 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 74 68 72 | t*.((c.connection)..........(thr |
| 2bf1e0 | 65 61 64 73 20 28 6c 69 73 74 20 28 6d 63 6f 6e 6e 2e 72 65 70 6c 2d 74 68 72 65 61 64 20 63 29 | eads.(list.(mconn.repl-thread.c) |
| 2bf200 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 63 6f 6e 6e 2e | .........................(mconn. |
| 2bf220 | 72 65 61 64 65 72 2d 74 68 72 65 61 64 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | reader-thread.c)................ |
| 2bf240 | 20 20 20 20 20 20 20 20 20 28 6d 63 6f 6e 6e 2e 63 6f 6e 74 72 6f 6c 2d 74 68 72 65 61 64 20 63 | .........(mconn.control-thread.c |
| 2bf260 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 63 6f 6e 6e | ).........................(mconn |
| 2bf280 | 2e 61 75 74 6f 2d 66 6c 75 73 68 2d 74 68 72 65 61 64 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 | .auto-flush-thread.c)........... |
| 2bf2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 63 6f 6e 6e 2e 69 6e 64 65 6e 74 61 74 69 6f 6e | ..............(mconn.indentation |
| 2bf2c0 | 2d 63 61 63 68 65 2d 74 68 72 65 61 64 20 63 29 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 | -cache-thread.c)))).....(dolist. |
| 2bf2e0 | 28 74 68 72 65 61 64 20 74 68 72 65 61 64 73 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e | (thread.threads).......(when.(an |
| 2bf300 | 64 20 74 68 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 | d.thread..................(threa |
| 2bf320 | 64 2d 61 6c 69 76 65 2d 70 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-alive-p.thread)............... |
| 2bf340 | 20 20 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 | ...(not.(equal.(current-thread). |
| 2bf360 | 74 68 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 | thread))).........(ignore-errors |
| 2bf380 | 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 74 68 72 65 61 64 20 2a 6d 61 69 | ..........(if.(equal.thread.*mai |
| 2bf3a0 | 6e 2d 74 68 72 65 61 64 2d 75 73 65 64 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e | n-thread-used*)..............(in |
| 2bf3c0 | 74 65 72 72 75 70 74 2d 74 68 72 65 61 64 20 74 68 72 65 61 64 20 20 28 6c 61 6d 62 64 61 20 28 | terrupt-thread.thread..(lambda.( |
| 2bf3e0 | 29 20 28 74 68 72 6f 77 20 27 65 78 69 74 2d 74 6f 2d 6d 61 69 6e 2d 74 68 72 65 61 64 20 74 29 | ).(throw.'exit-to-main-thread.t) |
| 2bf400 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 74 68 72 65 61 64 20 74 68 72 | ))..............(kill-thread.thr |
| 2bf420 | 65 61 64 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 3b 20 53 69 67 6e 61 6c 20 64 72 69 76 65 6e | ead)))))))..;;;;;;.Signal.driven |
| 2bf440 | 20 49 4f 0a 0a 28 64 65 66 75 6e 20 69 6e 73 74 61 6c 6c 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 | .IO..(defun.install-sigio-handle |
| 2bf460 | 72 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 61 64 64 2d 73 69 67 69 6f 2d 68 61 6e 64 | r.(connection)...(add-sigio-hand |
| 2bf480 | 6c 65 72 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 73 6f 63 6b 65 74 2d 69 6f 20 63 6f 6e 6e 65 63 | ler.(connection.socket-io.connec |
| 2bf4a0 | 74 69 6f 6e 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d | tion).......................(lam |
| 2bf4c0 | 62 64 61 20 28 29 20 28 70 72 6f 63 65 73 73 2d 69 6f 2d 69 6e 74 65 72 72 75 70 74 20 63 6f 6e | bda.().(process-io-interrupt.con |
| 2bf4e0 | 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 28 68 61 6e 64 6c 65 2d 72 65 71 75 65 73 74 73 20 63 6f | nection)))...(handle-requests.co |
| 2bf500 | 6e 6e 65 63 74 69 6f 6e 20 74 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 69 6f 2d 69 6e 74 65 72 75 | nnection.t))..(defvar.*io-interu |
| 2bf520 | 70 74 2d 6c 65 76 65 6c 2a 20 30 29 0a 0a 28 64 65 66 75 6e 20 70 72 6f 63 65 73 73 2d 69 6f 2d | pt-level*.0)..(defun.process-io- |
| 2bf540 | 69 6e 74 65 72 72 75 70 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 6c 6f 67 2d 65 76 | interrupt.(connection)...(log-ev |
| 2bf560 | 65 6e 74 20 22 70 72 6f 63 65 73 73 2d 69 6f 2d 69 6e 74 65 72 72 75 70 74 20 7e 64 20 2e 2e 2e | ent."process-io-interrupt.~d.... |
| 2bf580 | 7e 25 22 20 2a 69 6f 2d 69 6e 74 65 72 75 70 74 2d 6c 65 76 65 6c 2a 29 0a 20 20 28 6c 65 74 20 | ~%".*io-interupt-level*)...(let. |
| 2bf5a0 | 28 28 2a 69 6f 2d 69 6e 74 65 72 75 70 74 2d 6c 65 76 65 6c 2a 20 28 31 2b 20 2a 69 6f 2d 69 6e | ((*io-interupt-level*.(1+.*io-in |
| 2bf5c0 | 74 65 72 75 70 74 2d 6c 65 76 65 6c 2a 29 29 29 0a 20 20 20 20 28 69 6e 76 6f 6b 65 2d 6f 72 2d | terupt-level*))).....(invoke-or- |
| 2bf5e0 | 71 75 65 75 65 2d 69 6e 74 65 72 72 75 70 74 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 | queue-interrupt......(lambda.(). |
| 2bf600 | 28 68 61 6e 64 6c 65 2d 72 65 71 75 65 73 74 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 29 29 29 | (handle-requests.connection.t))) |
| 2bf620 | 29 0a 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 22 70 72 6f 63 65 73 73 2d 69 6f 2d 69 6e 74 65 72 | )...(log-event."process-io-inter |
| 2bf640 | 72 75 70 74 20 7e 64 20 2e 2e 2e 20 64 6f 6e 65 20 7e 25 22 20 2a 69 6f 2d 69 6e 74 65 72 75 70 | rupt.~d.....done.~%".*io-interup |
| 2bf660 | 74 2d 6c 65 76 65 6c 2a 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 69 6e 73 74 61 6c 6c 2d 73 69 67 | t-level*))..(defun.deinstall-sig |
| 2bf680 | 69 6f 2d 68 61 6e 64 6c 65 72 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 6c 6f 67 2d 65 | io-handler.(connection)...(log-e |
| 2bf6a0 | 76 65 6e 74 20 22 64 65 69 6e 73 74 61 6c 6c 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 2e 2e 2e | vent."deinstall-sigio-handler... |
| 2bf6c0 | 7e 25 22 29 0a 20 20 28 72 65 6d 6f 76 65 2d 73 69 67 69 6f 2d 68 61 6e 64 6c 65 72 73 20 28 63 | ~%")...(remove-sigio-handlers.(c |
| 2bf6e0 | 6f 6e 6e 65 63 74 69 6f 6e 2e 73 6f 63 6b 65 74 2d 69 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 | onnection.socket-io.connection)) |
| 2bf700 | 0a 20 20 28 6c 6f 67 2d 65 76 65 6e 74 20 22 64 65 69 6e 73 74 61 6c 6c 2d 73 69 67 69 6f 2d 68 | ...(log-event."deinstall-sigio-h |
| 2bf720 | 61 6e 64 6c 65 72 2e 2e 2e 64 6f 6e 65 7e 25 22 29 29 0a 0a 3b 3b 3b 3b 3b 3b 20 53 45 52 56 45 | andler...done~%"))..;;;;;;.SERVE |
| 2bf740 | 2d 45 56 45 4e 54 20 62 61 73 65 64 20 49 4f 0a 0a 28 64 65 66 75 6e 20 69 6e 73 74 61 6c 6c 2d | -EVENT.based.IO..(defun.install- |
| 2bf760 | 66 64 2d 68 61 6e 64 6c 65 72 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 61 64 64 2d 66 | fd-handler.(connection)...(add-f |
| 2bf780 | 64 2d 68 61 6e 64 6c 65 72 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 73 6f 63 6b 65 74 2d 69 6f 20 | d-handler.(connection.socket-io. |
| 2bf7a0 | 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | connection)...................(l |
| 2bf7c0 | 61 6d 62 64 61 20 28 29 20 28 68 61 6e 64 6c 65 2d 72 65 71 75 65 73 74 73 20 63 6f 6e 6e 65 63 | ambda.().(handle-requests.connec |
| 2bf7e0 | 74 69 6f 6e 20 74 29 29 29 0a 20 20 28 73 65 74 66 20 28 73 63 6f 6e 6e 2e 73 61 76 65 64 2d 73 | tion.t)))...(setf.(sconn.saved-s |
| 2bf800 | 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 | igint-handler.connection)....... |
| 2bf820 | 20 20 28 69 6e 73 74 61 6c 6c 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 0a 20 20 20 20 20 | ..(install-sigint-handler....... |
| 2bf840 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 76 6f | ....(lambda.().............(invo |
| 2bf860 | 6b 65 2d 6f 72 2d 71 75 65 75 65 2d 69 6e 74 65 72 72 75 70 74 0a 20 20 20 20 20 20 20 20 20 20 | ke-or-queue-interrupt........... |
| 2bf880 | 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 73 70 61 74 63 68 2d 69 6e 74 65 72 72 75 70 74 | ..(lambda.().(dispatch-interrupt |
| 2bf8a0 | 2d 65 76 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 29 29 29 0a 20 20 28 68 61 6e 64 6c | -event.connection))))))...(handl |
| 2bf8c0 | 65 2d 72 65 71 75 65 73 74 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 29 29 0a 0a 28 64 65 66 75 | e-requests.connection.t))..(defu |
| 2bf8e0 | 6e 20 64 69 73 70 61 74 63 68 2d 69 6e 74 65 72 72 75 70 74 2d 65 76 65 6e 74 20 28 63 6f 6e 6e | n.dispatch-interrupt-event.(conn |
| 2bf900 | 65 63 74 69 6f 6e 29 0a 20 20 28 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 63 6f 6e 6e | ection)...(with-connection.(conn |
| 2bf920 | 65 63 74 69 6f 6e 29 0a 20 20 20 20 28 64 69 73 70 61 74 63 68 2d 65 76 65 6e 74 20 63 6f 6e 6e | ection).....(dispatch-event.conn |
| 2bf940 | 65 63 74 69 6f 6e 20 60 28 3a 65 6d 61 63 73 2d 69 6e 74 65 72 72 75 70 74 20 2c 28 63 75 72 72 | ection.`(:emacs-interrupt.,(curr |
| 2bf960 | 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 69 6e 73 | ent-thread-id)))))..(defun.deins |
| 2bf980 | 74 61 6c 6c 2d 66 64 2d 68 61 6e 64 6c 65 72 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 | tall-fd-handler.(connection)...( |
| 2bf9a0 | 6c 6f 67 2d 65 76 65 6e 74 20 22 64 65 69 6e 73 74 61 6c 6c 2d 66 64 2d 68 61 6e 64 6c 65 72 7e | log-event."deinstall-fd-handler~ |
| 2bf9c0 | 25 22 29 0a 20 20 28 72 65 6d 6f 76 65 2d 66 64 2d 68 61 6e 64 6c 65 72 73 20 28 63 6f 6e 6e 65 | %")...(remove-fd-handlers.(conne |
| 2bf9e0 | 63 74 69 6f 6e 2e 73 6f 63 6b 65 74 2d 69 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 28 | ction.socket-io.connection))...( |
| 2bfa00 | 69 6e 73 74 61 6c 6c 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 28 73 63 6f 6e 6e 2e 73 61 | install-sigint-handler.(sconn.sa |
| 2bfa20 | 76 65 64 2d 73 69 67 69 6e 74 2d 68 61 6e 64 6c 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 | ved-sigint-handler.connection))) |
| 2bfa40 | 0a 0a 3b 3b 3b 3b 3b 3b 20 53 69 6d 70 6c 65 20 73 65 71 75 65 6e 74 69 61 6c 20 49 4f 0a 0a 28 | ..;;;;;;.Simple.sequential.IO..( |
| 2bfa60 | 64 65 66 75 6e 20 73 69 6d 70 6c 65 2d 73 65 72 76 65 2d 72 65 71 75 65 73 74 73 20 28 63 6f 6e | defun.simple-serve-requests.(con |
| 2bfa80 | 6e 65 63 74 69 6f 6e 29 0a 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 | nection)...(unwind-protect...... |
| 2bfaa0 | 20 20 28 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a | ..(with-connection.(connection). |
| 2bfac0 | 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 75 73 65 72 2d 62 72 65 61 6b 2d 68 | .........(call-with-user-break-h |
| 2bfae0 | 61 6e 64 6c 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 | andler...........(lambda.()..... |
| 2bfb00 | 20 20 20 20 20 20 20 20 28 69 6e 76 6f 6b 65 2d 6f 72 2d 71 75 65 75 65 2d 69 6e 74 65 72 72 75 | ........(invoke-or-queue-interru |
| 2bfb20 | 70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 73 70 | pt..............(lambda.().(disp |
| 2bfb40 | 61 74 63 68 2d 69 6e 74 65 72 72 75 70 74 2d 65 76 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 | atch-interrupt-event.connection) |
| 2bfb60 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 | )))...........(lambda.()........ |
| 2bfb80 | 20 20 20 20 20 28 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 20 28 63 6c 6f 73 65 | .....(with-simple-restart.(close |
| 2bfba0 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 22 43 6c 6f 73 65 20 53 4c 49 4d 45 20 63 6f 6e 6e 65 63 74 | -connection."Close.SLIME.connect |
| 2bfbc0 | 69 6f 6e 2e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 64 | ion.")...............(let*.((std |
| 2bfbe0 | 69 6e 20 28 72 65 61 6c 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 20 2a 73 74 61 6e 64 61 72 64 2d | in.(real-input-stream.*standard- |
| 2bfc00 | 69 6e 70 75 74 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a | input*))......................(* |
| 2bfc20 | 73 74 61 6e 64 61 72 64 2d 69 6e 70 75 74 2a 20 28 6d 61 6b 65 2d 72 65 70 6c 2d 69 6e 70 75 74 | standard-input*.(make-repl-input |
| 2bfc40 | 2d 73 74 72 65 61 6d 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -stream.connection.............. |
| 2bfc60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2bfc80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 64 69 6e 29 29 29 0a 20 20 20 20 | ...................stdin)))..... |
| 2bfca0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 67 62 6f 64 79 20 74 6f 70 6c 65 76 65 6c 0a 20 20 | ............(tagbody.toplevel... |
| 2bfcc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 6f 70 2d 6c 65 76 65 6c | .................(with-top-level |
| 2bfce0 | 2d 72 65 73 74 61 72 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 67 6f 20 74 6f 70 6c 65 76 65 | -restart.(connection.(go.topleve |
| 2bfd00 | 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 6d 70 6c 65 | l))......................(simple |
| 2bfd20 | 2d 72 65 70 6c 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 63 6c 6f 73 65 2d 63 6f 6e 6e 65 63 74 | -repl)))))))).....(close-connect |
| 2bfd40 | 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 69 6c 20 28 73 61 66 65 2d 62 61 63 6b 74 72 61 | ion.connection.nil.(safe-backtra |
| 2bfd60 | 63 65 29 29 29 29 0a 0a 3b 3b 20 74 68 69 73 20 69 73 20 73 69 67 6e 61 6c 6c 65 64 20 77 68 65 | ce))))..;;.this.is.signalled.whe |
| 2bfd80 | 6e 20 6f 75 72 20 63 75 73 74 6f 6d 20 73 74 72 65 61 6d 20 74 68 69 6e 6b 73 20 74 68 65 20 65 | n.our.custom.stream.thinks.the.e |
| 2bfda0 | 6e 64 2d 6f 66 2d 66 69 6c 65 20 69 73 20 72 65 61 63 68 65 64 2e 0a 3b 3b 20 28 6e 6f 74 20 77 | nd-of-file.is.reached..;;.(not.w |
| 2bfdc0 | 68 65 6e 20 74 68 65 20 65 6e 64 2d 6f 66 2d 66 69 6c 65 20 6f 6e 20 74 68 65 20 73 6f 63 6b 65 | hen.the.end-of-file.on.the.socke |
| 2bfde0 | 74 20 69 73 20 72 65 61 63 68 65 64 29 0a 28 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 | t.is.reached).(define-condition. |
| 2bfe00 | 65 6e 64 2d 6f 66 2d 72 65 70 6c 2d 69 6e 70 75 74 20 28 65 6e 64 2d 6f 66 2d 66 69 6c 65 29 20 | end-of-repl-input.(end-of-file). |
| 2bfe20 | 28 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d 70 6c 65 2d 72 65 70 6c 20 28 29 0a 20 20 28 6c 6f | ())..(defun.simple-repl.()...(lo |
| 2bfe40 | 6f 70 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 61 3e 20 22 20 28 70 61 63 6b 61 67 65 | op.....(format.t."~a>.".(package |
| 2bfe60 | 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 70 72 6f 6d 70 74 20 2a 70 61 63 6b 61 67 65 2a 29 29 0a 20 | -string-for-prompt.*package*)).. |
| 2bfe80 | 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 6f 72 | ...(force-output).....(let.((for |
| 2bfea0 | 6d 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 28 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 | m.(handler-case.(read).......... |
| 2bfec0 | 20 20 20 20 20 20 20 20 20 28 65 6e 64 2d 6f 66 2d 72 65 70 6c 2d 69 6e 70 75 74 20 28 29 20 28 | .........(end-of-repl-input.().( |
| 2bfee0 | 72 65 74 75 72 6e 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 2d 20 66 6f 72 6d 29 | return))))).......(let.((-.form) |
| 2bff00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 6d 75 6c 74 69 70 6c 65 2d 76 | .............(values.(multiple-v |
| 2bff20 | 61 6c 75 65 2d 6c 69 73 74 20 28 65 76 61 6c 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 20 20 20 | alue-list.(eval.form))))........ |
| 2bff40 | 20 28 73 65 74 71 20 2a 2a 2a 20 2a 2a 20 20 2a 2a 20 2a 20 20 2a 20 28 63 61 72 20 76 61 6c 75 | .(setq.***.**..**.*..*.(car.valu |
| 2bff60 | 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 2f 20 2f 2f 20 20 2f 2f 20 2f 20 20 | es)...............///.//..//./.. |
| 2bff80 | 2f 20 76 61 6c 75 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 2b 2b 20 2b 2b 20 20 2b | /.values...............+++.++..+ |
| 2bffa0 | 2b 20 2b 20 20 2b 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c | +.+..+.form).........(cond.((nul |
| 2bffc0 | 6c 20 76 61 6c 75 65 73 29 20 28 66 6f 72 6d 61 74 20 74 20 22 3b 20 4e 6f 20 76 61 6c 75 65 73 | l.values).(format.t.";.No.values |
| 2bffe0 | 7e 26 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6d 61 70 63 20 28 6c 61 | ~&"))...............(t.(mapc.(la |
| 2c0000 | 6d 62 64 61 20 28 76 29 20 28 66 6f 72 6d 61 74 20 74 20 22 7e 73 7e 26 22 20 76 29 29 20 76 61 | mbda.(v).(format.t."~s~&".v)).va |
| 2c0020 | 6c 75 65 73 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 72 65 70 6c 2d 69 6e | lues)))))))..(defun.make-repl-in |
| 2c0040 | 70 75 74 2d 73 74 72 65 61 6d 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 64 69 6e 29 0a 20 20 | put-stream.(connection.stdin)... |
| 2c0060 | 28 6d 61 6b 65 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 | (make-input-stream....(lambda.() |
| 2c0080 | 20 28 72 65 70 6c 2d 69 6e 70 75 74 2d 73 74 72 65 61 6d 2d 72 65 61 64 20 63 6f 6e 6e 65 63 74 | .(repl-input-stream-read.connect |
| 2c00a0 | 69 6f 6e 20 73 74 64 69 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 70 6c 2d 69 6e 70 75 74 | ion.stdin))))..(defun.repl-input |
| 2c00c0 | 2d 73 74 72 65 61 6d 2d 72 65 61 64 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 64 69 6e 29 0a | -stream-read.(connection.stdin). |
| 2c00e0 | 20 20 28 6c 6f 6f 70 0a 20 20 20 28 6c 65 74 2a 20 28 28 73 6f 63 6b 65 74 20 28 63 6f 6e 6e 65 | ..(loop....(let*.((socket.(conne |
| 2c0100 | 63 74 69 6f 6e 2e 73 6f 63 6b 65 74 2d 69 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 | ction.socket-io.connection)).... |
| 2c0120 | 20 20 20 20 20 20 20 28 69 6e 70 75 74 73 20 28 6c 69 73 74 20 73 6f 63 6b 65 74 20 73 74 64 69 | .......(inputs.(list.socket.stdi |
| 2c0140 | 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 79 20 28 77 61 69 74 2d 66 6f 72 2d 69 | n))...........(ready.(wait-for-i |
| 2c0160 | 6e 70 75 74 20 69 6e 70 75 74 73 29 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 72 | nput.inputs)))......(cond.((eq.r |
| 2c0180 | 65 61 64 79 20 3a 69 6e 74 65 72 72 75 70 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 | eady.:interrupt).............(ch |
| 2c01a0 | 65 63 6b 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 | eck-slime-interrupts)).......... |
| 2c01c0 | 20 20 28 28 6d 65 6d 62 65 72 20 73 6f 63 6b 65 74 20 72 65 61 64 79 29 0a 20 20 20 20 20 20 20 | ..((member.socket.ready)........ |
| 2c01e0 | 20 20 20 20 20 3b 3b 20 41 20 53 6c 69 6d 65 20 72 65 71 75 65 73 74 20 66 72 6f 6d 20 45 6d 61 | .....;;.A.Slime.request.from.Ema |
| 2c0200 | 63 73 20 69 73 20 70 65 6e 64 69 6e 67 3b 20 6d 61 6b 65 20 73 75 72 65 20 74 6f 0a 20 20 20 20 | cs.is.pending;.make.sure.to..... |
| 2c0220 | 20 20 20 20 20 20 20 20 3b 3b 20 72 65 64 69 72 65 63 74 20 49 4f 20 74 6f 20 74 68 65 20 52 45 | ........;;.redirect.IO.to.the.RE |
| 2c0240 | 50 4c 20 62 75 66 66 65 72 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 69 6d | PL.buffer..............(with-sim |
| 2c0260 | 70 6c 65 2d 72 65 73 74 61 72 74 20 28 70 72 6f 63 65 73 73 2d 69 6e 70 75 74 20 22 43 6f 6e 74 | ple-restart.(process-input."Cont |
| 2c0280 | 69 6e 75 65 20 72 65 61 64 69 6e 67 20 69 6e 70 75 74 2e 22 29 0a 20 20 20 20 20 20 20 20 20 20 | inue.reading.input.")........... |
| 2c02a0 | 20 20 20 20 28 6c 65 74 20 28 28 2a 73 6c 64 62 2d 71 75 69 74 2d 72 65 73 74 61 72 74 2a 20 28 | ....(let.((*sldb-quit-restart*.( |
| 2c02c0 | 66 69 6e 64 2d 72 65 73 74 61 72 74 20 27 70 72 6f 63 65 73 73 2d 69 6e 70 75 74 29 29 29 0a 20 | find-restart.'process-input))).. |
| 2c02e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 69 6f 2d 72 65 64 69 72 65 63 74 | ...............(with-io-redirect |
| 2c0300 | 69 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion.(connection)................ |
| 2c0320 | 20 20 20 28 68 61 6e 64 6c 65 2d 72 65 71 75 65 73 74 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 | ...(handle-requests.connection.t |
| 2c0340 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 73 74 64 69 6e 20 | )))))............((member.stdin. |
| 2c0360 | 72 65 61 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 55 73 65 72 20 74 79 70 65 64 | ready).............;;.User.typed |
| 2c0380 | 20 73 6f 6d 65 74 68 69 6e 67 20 69 6e 74 6f 20 74 68 65 20 20 2a 69 6e 66 65 72 69 6f 72 2d 6c | .something.into.the..*inferior-l |
| 2c03a0 | 69 73 70 2a 20 62 75 66 66 65 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 6f 20 64 | isp*.buffer,.............;;.so.d |
| 2c03c0 | 6f 20 6e 6f 74 20 72 65 64 69 72 65 63 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 | o.not.redirect..............(ret |
| 2c03e0 | 75 72 6e 20 28 72 65 61 64 2d 6e 6f 6e 2d 62 6c 6f 63 6b 69 6e 67 20 73 74 64 69 6e 29 29 29 0a | urn.(read-non-blocking.stdin))). |
| 2c0400 | 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 61 73 73 65 72 74 20 28 6e 75 6c 6c 20 72 65 61 64 | ...........(t.(assert.(null.read |
| 2c0420 | 79 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 6e 6f 6e 2d 62 6c 6f 63 6b 69 | y)))))))..(defun.read-non-blocki |
| 2c0440 | 6e 67 20 28 73 74 72 65 61 6d 29 0a 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 | ng.(stream)...(with-output-to-st |
| 2c0460 | 72 69 6e 67 20 28 73 74 72 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 20 0a 20 20 | ring.(str).....(handler-case.... |
| 2c0480 | 20 20 20 20 20 20 28 6c 6f 6f 70 20 28 6c 65 74 20 28 28 63 20 28 72 65 61 64 2d 63 68 61 72 2d | ......(loop.(let.((c.(read-char- |
| 2c04a0 | 6e 6f 2d 68 61 6e 67 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | no-hang.stream)))............... |
| 2c04c0 | 20 20 28 75 6e 6c 65 73 73 20 63 20 28 72 65 74 75 72 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ..(unless.c.(return))........... |
| 2c04e0 | 20 20 20 20 20 20 28 77 72 69 74 65 2d 63 68 61 72 20 63 20 73 74 72 29 29 29 0a 20 20 20 20 20 | ......(write-char.c.str)))...... |
| 2c0500 | 20 28 65 6e 64 2d 6f 66 2d 66 69 6c 65 20 28 29 20 28 65 72 72 6f 72 20 27 65 6e 64 2d 6f 66 2d | .(end-of-file.().(error.'end-of- |
| 2c0520 | 72 65 70 6c 2d 69 6e 70 75 74 20 3a 73 74 72 65 61 6d 20 73 74 72 65 61 6d 29 29 29 29 29 0a 0a | repl-input.:stream.stream))))).. |
| 2c0540 | 0c 0a 3b 3b 3b 20 43 68 61 6e 6e 65 6c 73 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 73 68 6f 75 6c 64 | ..;;;.Channels..;;.FIXME:.should |
| 2c0560 | 20 62 65 20 70 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 6f 74 20 67 6c 6f 62 61 6c 2e 0a 28 | .be.per.connection.not.global..( |
| 2c0580 | 64 65 66 76 61 72 20 2a 63 68 61 6e 6e 65 6c 73 2a 20 27 28 29 29 0a 28 64 65 66 76 61 72 20 2a | defvar.*channels*.'()).(defvar.* |
| 2c05a0 | 63 68 61 6e 6e 65 6c 2d 63 6f 75 6e 74 65 72 2a 20 30 29 0a 0a 28 64 65 66 63 6c 61 73 73 20 63 | channel-counter*.0)..(defclass.c |
| 2c05c0 | 68 61 6e 6e 65 6c 20 28 29 0a 20 20 28 28 69 64 20 3a 72 65 61 64 65 72 20 63 68 61 6e 6e 65 6c | hannel.()...((id.:reader.channel |
| 2c05e0 | 2d 69 64 29 0a 20 20 20 28 74 68 72 65 61 64 20 3a 69 6e 69 74 61 72 67 20 3a 74 68 72 65 61 64 | -id)....(thread.:initarg.:thread |
| 2c0600 | 20 3a 69 6e 69 74 66 6f 72 6d 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 3a 72 65 61 | .:initform.(current-thread).:rea |
| 2c0620 | 64 65 72 20 63 68 61 6e 6e 65 6c 2d 74 68 72 65 61 64 29 0a 20 20 20 28 6e 61 6d 65 20 3a 69 6e | der.channel-thread)....(name.:in |
| 2c0640 | 69 74 61 72 67 20 3a 6e 61 6d 65 20 3a 69 6e 69 74 66 6f 72 6d 20 6e 69 6c 29 29 29 0a 0a 28 64 | itarg.:name.:initform.nil)))..(d |
| 2c0660 | 65 66 6d 65 74 68 6f 64 20 69 6e 69 74 69 61 6c 69 7a 65 2d 69 6e 73 74 61 6e 63 65 20 3a 61 66 | efmethod.initialize-instance.:af |
| 2c0680 | 74 65 72 20 28 28 63 68 20 63 68 61 6e 6e 65 6c 29 20 26 6b 65 79 29 0a 20 20 28 77 69 74 68 2d | ter.((ch.channel).&key)...(with- |
| 2c06a0 | 73 6c 6f 74 73 20 28 69 64 29 20 63 68 0a 20 20 20 20 28 73 65 74 66 20 69 64 20 28 69 6e 63 66 | slots.(id).ch.....(setf.id.(incf |
| 2c06c0 | 20 2a 63 68 61 6e 6e 65 6c 2d 63 6f 75 6e 74 65 72 2a 29 29 0a 20 20 20 20 28 70 75 73 68 20 28 | .*channel-counter*)).....(push.( |
| 2c06e0 | 63 6f 6e 73 20 69 64 20 63 68 29 20 2a 63 68 61 6e 6e 65 6c 73 2a 29 29 29 0a 0a 28 64 65 66 6d | cons.id.ch).*channels*)))..(defm |
| 2c0700 | 65 74 68 6f 64 20 70 72 69 6e 74 2d 6f 62 6a 65 63 74 20 28 28 63 20 63 68 61 6e 6e 65 6c 29 20 | ethod.print-object.((c.channel). |
| 2c0720 | 73 74 72 65 61 6d 29 0a 20 20 28 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 | stream)...(print-unreadable-obje |
| 2c0740 | 63 74 20 28 63 20 73 74 72 65 61 6d 20 3a 74 79 70 65 20 74 29 0a 20 20 20 20 28 77 69 74 68 2d | ct.(c.stream.:type.t).....(with- |
| 2c0760 | 73 6c 6f 74 73 20 28 69 64 20 6e 61 6d 65 29 20 63 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 | slots.(id.name).c.......(format. |
| 2c0780 | 73 74 72 65 61 6d 20 22 7e 64 20 7e 61 22 20 69 64 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 | stream."~d.~a".id.name))))..(def |
| 2c07a0 | 75 6e 20 66 69 6e 64 2d 63 68 61 6e 6e 65 6c 20 28 69 64 29 0a 20 20 28 63 64 72 20 28 61 73 73 | un.find-channel.(id)...(cdr.(ass |
| 2c07c0 | 6f 63 20 69 64 20 2a 63 68 61 6e 6e 65 6c 73 2a 29 29 29 0a 0a 28 64 65 66 67 65 6e 65 72 69 63 | oc.id.*channels*)))..(defgeneric |
| 2c07e0 | 20 63 68 61 6e 6e 65 6c 2d 73 65 6e 64 20 28 63 68 61 6e 6e 65 6c 20 73 65 6c 65 63 74 6f 72 20 | .channel-send.(channel.selector. |
| 2c0800 | 61 72 67 73 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 63 68 61 6e 6e 65 6c | args))..(defmacro.define-channel |
| 2c0820 | 2d 6d 65 74 68 6f 64 20 28 73 65 6c 65 63 74 6f 72 20 28 63 68 61 6e 6e 65 6c 20 26 72 65 73 74 | -method.(selector.(channel.&rest |
| 2c0840 | 20 61 72 67 73 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 60 28 64 65 66 6d 65 74 68 6f 64 | .args).&body.body)...`(defmethod |
| 2c0860 | 20 63 68 61 6e 6e 65 6c 2d 73 65 6e 64 20 28 2c 63 68 61 6e 6e 65 6c 20 28 73 65 6c 65 63 74 6f | .channel-send.(,channel.(selecto |
| 2c0880 | 72 20 28 65 71 6c 20 27 2c 73 65 6c 65 63 74 6f 72 29 29 20 61 72 67 73 29 0a 20 20 20 20 20 28 | r.(eql.',selector)).args)......( |
| 2c08a0 | 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 2c 61 72 67 73 20 61 72 67 73 0a 20 20 | destructuring-bind.,args.args... |
| 2c08c0 | 20 20 20 20 20 2e 20 2c 62 6f 64 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 6e 64 2d 74 6f 2d | .......,body)))..(defun.send-to- |
| 2c08e0 | 72 65 6d 6f 74 65 2d 63 68 61 6e 6e 65 6c 20 28 63 68 61 6e 6e 65 6c 2d 69 64 20 6d 73 67 29 0a | remote-channel.(channel-id.msg). |
| 2c0900 | 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 63 68 61 6e 6e 65 6c 2d 73 65 6e 64 | ..(send-to-emacs.`(:channel-send |
| 2c0920 | 20 2c 63 68 61 6e 6e 65 6c 2d 69 64 20 2c 6d 73 67 29 29 29 0a 0a 0c 0a 0a 28 64 65 66 76 61 72 | .,channel-id.,msg))).....(defvar |
| 2c0940 | 20 2a 73 6c 69 6d 65 2d 66 65 61 74 75 72 65 73 2a 20 6e 69 6c 0a 20 20 22 54 68 65 20 66 65 61 | .*slime-features*.nil..."The.fea |
| 2c0960 | 74 75 72 65 20 6c 69 73 74 20 74 68 61 74 20 68 61 73 20 62 65 65 6e 20 73 65 6e 74 20 74 6f 20 | ture.list.that.has.been.sent.to. |
| 2c0980 | 45 6d 61 63 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 65 6e 64 2d 6f 6f 62 2d 74 6f 2d 65 6d 61 | Emacs.")..(defun.send-oob-to-ema |
| 2c09a0 | 63 73 20 28 6f 62 6a 65 63 74 29 0a 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 6f 62 6a | cs.(object)...(send-to-emacs.obj |
| 2c09c0 | 65 63 74 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 62 65 6c 6f 6e 67 73 20 74 6f 20 73 77 61 6e | ect))..;;.FIXME:.belongs.to.swan |
| 2c09e0 | 6b 2d 72 65 70 6c 2e 6c 69 73 70 0a 28 64 65 66 75 6e 20 66 6f 72 63 65 2d 75 73 65 72 2d 6f 75 | k-repl.lisp.(defun.force-user-ou |
| 2c0a00 | 74 70 75 74 20 28 29 0a 20 20 28 72 65 61 6c 6c 79 2d 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 | tput.()...(really-finish-output. |
| 2c0a20 | 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 69 6f 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 | (connection.user-io.*emacs-conne |
| 2c0a40 | 63 74 69 6f 6e 2a 29 29 29 0a 0a 28 61 64 64 2d 68 6f 6f 6b 20 2a 70 72 65 2d 72 65 70 6c 79 2d | ction*)))..(add-hook.*pre-reply- |
| 2c0a60 | 68 6f 6f 6b 2a 20 27 66 6f 72 63 65 2d 75 73 65 72 2d 6f 75 74 70 75 74 29 0a 0a 3b 3b 20 46 49 | hook*.'force-user-output)..;;.FI |
| 2c0a80 | 58 4d 45 3a 20 62 65 6c 6f 6e 67 73 20 74 6f 20 73 77 61 6e 6b 2d 72 65 70 6c 2e 6c 69 73 70 0a | XME:.belongs.to.swank-repl.lisp. |
| 2c0aa0 | 28 64 65 66 75 6e 20 63 6c 65 61 72 2d 75 73 65 72 2d 69 6e 70 75 74 20 20 28 29 0a 20 20 28 63 | (defun.clear-user-input..()...(c |
| 2c0ac0 | 6c 65 61 72 2d 69 6e 70 75 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 75 73 65 72 2d 69 6e 70 75 | lear-input.(connection.user-inpu |
| 2c0ae0 | 74 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 29 0a 0a 3b 3b 20 46 49 58 4d | t.*emacs-connection*)))..;;.FIXM |
| 2c0b00 | 45 3a 20 6e 6f 74 20 74 68 72 65 61 64 20 73 61 76 65 2e 0a 28 64 65 66 76 61 72 20 2a 74 61 67 | E:.not.thread.save..(defvar.*tag |
| 2c0b20 | 2d 63 6f 75 6e 74 65 72 2a 20 30 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 74 61 67 20 28 29 | -counter*.0)..(defun.make-tag.() |
| 2c0b40 | 20 0a 20 20 28 73 65 74 71 20 2a 74 61 67 2d 63 6f 75 6e 74 65 72 2a 20 28 6d 6f 64 20 28 31 2b | ....(setq.*tag-counter*.(mod.(1+ |
| 2c0b60 | 20 2a 74 61 67 2d 63 6f 75 6e 74 65 72 2a 29 20 28 65 78 70 74 20 32 20 32 32 29 29 29 29 0a 0a | .*tag-counter*).(expt.2.22)))).. |
| 2c0b80 | 28 64 65 66 75 6e 20 79 2d 6f 72 2d 6e 2d 70 2d 69 6e 2d 65 6d 61 63 73 20 28 66 6f 72 6d 61 74 | (defun.y-or-n-p-in-emacs.(format |
| 2c0ba0 | 2d 73 74 72 69 6e 67 20 26 72 65 73 74 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 22 4c 69 6b 65 | -string.&rest.arguments)..."Like |
| 2c0bc0 | 20 79 2d 6f 72 2d 6e 2d 70 2c 20 62 75 74 20 61 73 6b 20 69 6e 20 74 68 65 20 45 6d 61 63 73 20 | .y-or-n-p,.but.ask.in.the.Emacs. |
| 2c0be0 | 6d 69 6e 69 62 75 66 66 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 74 61 67 20 28 6d 61 6b 65 2d | minibuffer."...(let.((tag.(make- |
| 2c0c00 | 74 61 67 29 29 0a 20 20 20 20 20 20 20 20 28 71 75 65 73 74 69 6f 6e 20 28 61 70 70 6c 79 20 23 | tag)).........(question.(apply.# |
| 2c0c20 | 27 66 6f 72 6d 61 74 20 6e 69 6c 20 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 61 72 67 75 6d 65 | 'format.nil.format-string.argume |
| 2c0c40 | 6e 74 73 29 29 29 0a 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 28 73 | nts))).....(force-output).....(s |
| 2c0c60 | 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 79 2d 6f 72 2d 6e 2d 70 20 2c 28 63 75 72 72 65 | end-to-emacs.`(:y-or-n-p.,(curre |
| 2c0c80 | 6e 74 2d 74 68 72 65 61 64 2d 69 64 29 20 2c 74 61 67 20 2c 71 75 65 73 74 69 6f 6e 29 29 0a 20 | nt-thread-id).,tag.,question)).. |
| 2c0ca0 | 20 20 20 28 74 68 69 72 64 20 28 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 20 60 28 3a 65 6d 61 | ...(third.(wait-for-event.`(:ema |
| 2c0cc0 | 63 73 2d 72 65 74 75 72 6e 20 2c 74 61 67 20 72 65 73 75 6c 74 29 29 29 29 29 0a 0a 28 64 65 66 | cs-return.,tag.result)))))..(def |
| 2c0ce0 | 75 6e 20 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 2d 69 6e 2d 65 6d 61 63 73 | un.read-from-minibuffer-in-emacs |
| 2c0d00 | 20 28 70 72 6f 6d 70 74 20 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 | .(prompt.&optional.initial-value |
| 2c0d20 | 29 0a 20 20 22 41 73 6b 20 75 73 65 72 20 61 20 71 75 65 73 74 69 6f 6e 20 69 6e 20 45 6d 61 63 | )..."Ask.user.a.question.in.Emac |
| 2c0d40 | 73 27 20 6d 69 6e 69 62 75 66 66 65 72 2e 20 52 65 74 75 72 6e 73 20 5c 22 5c 22 20 77 68 65 6e | s'.minibuffer..Returns.\"\".when |
| 2c0d60 | 20 75 73 65 72 0a 65 6e 74 65 72 65 64 20 6e 6f 74 68 69 6e 67 2c 20 72 65 74 75 72 6e 73 20 4e | .user.entered.nothing,.returns.N |
| 2c0d80 | 49 4c 20 77 68 65 6e 20 75 73 65 72 20 70 72 65 73 73 65 64 20 43 2d 67 2e 22 0a 20 20 28 63 68 | IL.when.user.pressed.C-g."...(ch |
| 2c0da0 | 65 63 6b 2d 74 79 70 65 20 70 72 6f 6d 70 74 20 73 74 72 69 6e 67 29 20 28 63 68 65 63 6b 2d 74 | eck-type.prompt.string).(check-t |
| 2c0dc0 | 79 70 65 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 20 28 6f 72 20 6e 75 6c 6c 20 73 74 72 69 6e | ype.initial-value.(or.null.strin |
| 2c0de0 | 67 29 29 0a 20 20 28 6c 65 74 20 28 28 74 61 67 20 28 6d 61 6b 65 2d 74 61 67 29 29 29 0a 20 20 | g))...(let.((tag.(make-tag)))... |
| 2c0e00 | 20 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d | ..(force-output).....(send-to-em |
| 2c0e20 | 61 63 73 20 60 28 3a 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 2c 28 63 75 | acs.`(:read-from-minibuffer.,(cu |
| 2c0e40 | 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 29 20 2c 74 61 67 0a 20 20 20 20 20 20 20 20 20 20 | rrent-thread-id).,tag........... |
| 2c0e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2c0e80 | 20 2c 70 72 6f 6d 70 74 20 2c 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 29 29 0a 20 20 20 20 28 74 | .,prompt.,initial-value)).....(t |
| 2c0ea0 | 68 69 72 64 20 28 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 20 60 28 3a 65 6d 61 63 73 2d 72 65 | hird.(wait-for-event.`(:emacs-re |
| 2c0ec0 | 74 75 72 6e 20 2c 74 61 67 20 72 65 73 75 6c 74 29 29 29 29 29 0a 0a 28 64 65 66 73 74 72 75 63 | turn.,tag.result)))))..(defstruc |
| 2c0ee0 | 74 20 28 75 6e 72 65 61 64 61 62 6c 65 2d 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 | t.(unreadable-result............ |
| 2c0f00 | 20 28 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 6d 61 6b 65 2d 75 6e 72 65 61 64 61 62 6c 65 2d 72 | .(:constructor.make-unreadable-r |
| 2c0f20 | 65 73 75 6c 74 20 28 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 63 6f | esult.(string)).............(:co |
| 2c0f40 | 70 69 65 72 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 70 72 69 6e 74 2d 6f 62 | pier.nil).............(:print-ob |
| 2c0f60 | 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6f 62 6a 65 63 | ject..............(lambda.(objec |
| 2c0f80 | 74 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d | t.stream)................(print- |
| 2c0fa0 | 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 20 28 6f 62 6a 65 63 74 20 73 74 72 65 61 6d | unreadable-object.(object.stream |
| 2c0fc0 | 20 3a 74 79 70 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e | .:type.t)..................(prin |
| 2c0fe0 | 63 20 28 75 6e 72 65 61 64 61 62 6c 65 2d 72 65 73 75 6c 74 2d 73 74 72 69 6e 67 20 6f 62 6a 65 | c.(unreadable-result-string.obje |
| 2c1000 | 63 74 29 20 73 74 72 65 61 6d 29 29 29 29 29 0a 20 20 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 75 | ct).stream)))))...string)..(defu |
| 2c1020 | 6e 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 79 6d 62 6f 6c 29 | n.symbol-name-for-emacs.(symbol) |
| 2c1040 | 0a 20 20 28 63 68 65 63 6b 2d 74 79 70 65 20 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 29 0a 20 20 | ...(check-type.symbol.symbol)... |
| 2c1060 | 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 28 73 79 | (let.((name.(string-downcase.(sy |
| 2c1080 | 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 6b 65 | mbol-name.symbol)))).....(if.(ke |
| 2c10a0 | 79 77 6f 72 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 65 6e | ywordp.symbol).........(concaten |
| 2c10c0 | 61 74 65 20 27 73 74 72 69 6e 67 20 22 3a 22 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 6e 61 | ate.'string.":".name).........na |
| 2c10e0 | 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 6f 63 65 73 73 2d 66 6f 72 6d 2d 66 6f 72 2d 65 | me)))..(defun.process-form-for-e |
| 2c1100 | 6d 61 63 73 20 28 66 6f 72 6d 29 0a 20 20 22 52 65 74 75 72 6e 73 20 61 20 73 74 72 69 6e 67 20 | macs.(form)..."Returns.a.string. |
| 2c1120 | 77 68 69 63 68 20 65 6d 61 63 73 20 77 69 6c 6c 20 72 65 61 64 20 61 73 20 65 71 75 69 76 61 6c | which.emacs.will.read.as.equival |
| 2c1140 | 65 6e 74 20 74 6f 0a 46 4f 52 4d 2e 20 46 4f 52 4d 20 63 61 6e 20 63 6f 6e 74 61 69 6e 20 6c 69 | ent.to.FORM..FORM.can.contain.li |
| 2c1160 | 73 74 73 2c 20 73 74 72 69 6e 67 73 2c 20 63 68 61 72 61 63 74 65 72 73 2c 20 73 79 6d 62 6f 6c | sts,.strings,.characters,.symbol |
| 2c1180 | 73 20 61 6e 64 0a 6e 75 6d 62 65 72 73 2e 0a 0a 43 68 61 72 61 63 74 65 72 73 20 61 72 65 20 63 | s.and.numbers...Characters.are.c |
| 2c11a0 | 6f 6e 76 65 72 74 65 64 20 65 6d 61 63 73 27 20 3f 3c 63 68 61 72 3e 20 6e 6f 74 61 69 6f 6e 2c | onverted.emacs'.?<char>.notaion, |
| 2c11c0 | 20 73 74 72 69 6e 67 73 20 61 72 65 20 6c 65 66 74 0a 61 73 20 74 68 65 79 20 61 72 65 20 28 65 | .strings.are.left.as.they.are.(e |
| 2c11e0 | 78 63 65 70 74 20 66 6f 72 20 65 73 70 61 63 69 6e 67 20 61 6e 79 20 6e 65 73 74 65 64 20 5c 22 | xcept.for.espacing.any.nested.\" |
| 2c1200 | 20 63 68 61 72 73 2c 20 6e 75 6d 62 65 72 73 20 61 72 65 0a 70 72 69 6e 74 65 64 20 69 6e 20 62 | .chars,.numbers.are.printed.in.b |
| 2c1220 | 61 73 65 20 31 30 20 61 6e 64 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 70 72 69 6e 74 65 64 20 61 | ase.10.and.symbols.are.printed.a |
| 2c1240 | 73 20 74 68 65 69 72 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 0a 63 6f 6e 76 65 72 74 65 64 20 74 6f | s.their.symbol-name.converted.to |
| 2c1260 | 20 6c 6f 77 65 72 20 63 61 73 65 2e 22 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 66 6f 72 6d 0a | .lower.case."...(etypecase.form. |
| 2c1280 | 20 20 20 20 28 73 74 72 69 6e 67 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 22 20 66 6f 72 | ....(string.(format.nil."~S".for |
| 2c12a0 | 6d 29 29 0a 20 20 20 20 28 63 6f 6e 73 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 28 7e 41 20 2e | m)).....(cons.(format.nil."(~A.. |
| 2c12c0 | 20 7e 41 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 | .~A)"...................(process |
| 2c12e0 | 2d 66 6f 72 6d 2d 66 6f 72 2d 65 6d 61 63 73 20 28 63 61 72 20 66 6f 72 6d 29 29 0a 20 20 20 20 | -form-for-emacs.(car.form))..... |
| 2c1300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 66 6f 72 6d 2d 66 6f 72 2d | ..............(process-form-for- |
| 2c1320 | 65 6d 61 63 73 20 28 63 64 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 28 63 68 61 72 61 63 74 | emacs.(cdr.form)))).....(charact |
| 2c1340 | 65 72 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 3f 7e 43 22 20 66 6f 72 6d 29 29 0a 20 20 20 20 | er.(format.nil."?~C".form))..... |
| 2c1360 | 28 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 2d 66 6f 72 2d 65 6d 61 63 73 20 66 | (symbol.(symbol-name-for-emacs.f |
| 2c1380 | 6f 72 6d 29 29 0a 20 20 20 20 28 6e 75 6d 62 65 72 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d | orm)).....(number.(let.((*print- |
| 2c13a0 | 62 61 73 65 2a 20 31 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 63 2d | base*.10))...............(princ- |
| 2c13c0 | 74 6f 2d 73 74 72 69 6e 67 20 66 6f 72 6d 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 77 61 69 74 | to-string.form)))))..(defun.wait |
| 2c13e0 | 2d 66 6f 72 2d 65 6d 61 63 73 2d 72 65 74 75 72 6e 20 28 74 61 67 29 0a 20 20 28 6c 65 74 20 28 | -for-emacs-return.(tag)...(let.( |
| 2c1400 | 28 65 76 65 6e 74 20 28 63 61 64 64 72 20 28 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 20 60 28 | (event.(caddr.(wait-for-event.`( |
| 2c1420 | 3a 65 6d 61 63 73 2d 72 65 74 75 72 6e 20 2c 74 61 67 20 72 65 73 75 6c 74 29 29 29 29 29 0a 20 | :emacs-return.,tag.result))))).. |
| 2c1440 | 20 20 20 28 64 63 61 73 65 20 65 76 65 6e 74 0a 20 20 20 20 20 20 28 28 3a 75 6e 72 65 61 64 61 | ...(dcase.event.......((:unreada |
| 2c1460 | 62 6c 65 20 76 61 6c 75 65 29 20 28 6d 61 6b 65 2d 75 6e 72 65 61 64 61 62 6c 65 2d 72 65 73 75 | ble.value).(make-unreadable-resu |
| 2c1480 | 6c 74 20 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 28 28 3a 6f 6b 20 76 61 6c 75 65 29 20 76 61 | lt.value)).......((:ok.value).va |
| 2c14a0 | 6c 75 65 29 0a 20 20 20 20 20 20 28 28 3a 65 72 72 6f 72 20 6b 69 6e 64 20 2e 20 64 61 74 61 29 | lue).......((:error.kind...data) |
| 2c14c0 | 20 28 65 72 72 6f 72 20 22 7e 61 3a 20 7e 7b 7e 61 7e 7d 22 20 6b 69 6e 64 20 64 61 74 61 29 29 | .(error."~a:.~{~a~}".kind.data)) |
| 2c14e0 | 0a 20 20 20 20 20 20 28 28 3a 61 62 6f 72 74 29 20 28 61 62 6f 72 74 29 29 0a 20 20 20 20 20 20 | .......((:abort).(abort))....... |
| 2c1500 | 3b 3b 20 6f 6e 6c 79 20 69 6e 20 72 65 70 6c 79 20 74 6f 20 3a 65 64 2d 72 70 63 7b 2d 6e 6f 2d | ;;.only.in.reply.to.:ed-rpc{-no- |
| 2c1520 | 77 61 69 74 7d 20 65 76 65 6e 74 73 2e 0a 20 20 20 20 20 20 28 28 3a 65 64 2d 72 70 63 2d 66 6f | wait}.events........((:ed-rpc-fo |
| 2c1540 | 72 62 69 64 64 65 6e 20 66 6e 29 20 28 65 72 72 6f 72 20 22 45 44 2d 52 50 43 20 66 6f 72 62 69 | rbidden.fn).(error."ED-RPC.forbi |
| 2c1560 | 64 64 65 6e 20 66 6f 72 20 7e 61 22 20 66 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 76 61 | dden.for.~a".fn)))))..(defun.eva |
| 2c1580 | 6c 2d 69 6e 2d 65 6d 61 63 73 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 77 61 69 | l-in-emacs.(form.&optional.nowai |
| 2c15a0 | 74 29 0a 20 20 22 45 76 61 6c 20 46 4f 52 4d 20 69 6e 20 45 6d 61 63 73 2e 0a 60 73 6c 69 6d 65 | t)..."Eval.FORM.in.Emacs..`slime |
| 2c15c0 | 2d 65 6e 61 62 6c 65 2d 65 76 61 6c 75 61 74 65 2d 69 6e 2d 65 6d 61 63 73 27 20 73 68 6f 75 6c | -enable-evaluate-in-emacs'.shoul |
| 2c15e0 | 64 20 62 65 20 73 65 74 20 74 6f 20 54 20 6f 6e 20 74 68 65 20 45 6d 61 63 73 20 73 69 64 65 2e | d.be.set.to.T.on.the.Emacs.side. |
| 2c1600 | 22 0a 20 20 28 63 6f 6e 64 20 28 6e 6f 77 61 69 74 0a 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 | "...(cond.(nowait..........(send |
| 2c1620 | 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 65 76 61 6c 2d 6e 6f 2d 77 61 69 74 20 2c 28 70 72 6f 63 | -to-emacs.`(:eval-no-wait.,(proc |
| 2c1640 | 65 73 73 2d 66 6f 72 6d 2d 66 6f 72 2d 65 6d 61 63 73 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 | ess-form-for-emacs.form))))..... |
| 2c1660 | 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 29 0a 20 | ....(t..........(force-output).. |
| 2c1680 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 61 67 20 28 6d 61 6b 65 2d 74 61 67 29 29 29 0a | ........(let.((tag.(make-tag))). |
| 2c16a0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 65 76 61 | ...........(send-to-emacs.`(:eva |
| 2c16c0 | 6c 20 2c 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 29 20 2c 74 61 67 0a 20 20 20 20 | l.,(current-thread-id).,tag..... |
| 2c16e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 | ..............................,( |
| 2c1700 | 70 72 6f 63 65 73 73 2d 66 6f 72 6d 2d 66 6f 72 2d 65 6d 61 63 73 20 66 6f 72 6d 29 29 29 0a 20 | process-form-for-emacs.form))).. |
| 2c1720 | 20 20 20 20 20 20 20 20 20 20 28 77 61 69 74 2d 66 6f 72 2d 65 6d 61 63 73 2d 72 65 74 75 72 6e | ..........(wait-for-emacs-return |
| 2c1740 | 20 74 61 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 64 2d 72 70 63 2d 6e 6f 2d 77 61 69 74 | .tag)))))..(defun.ed-rpc-no-wait |
| 2c1760 | 20 28 66 6e 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 49 6e 76 6f 6b 65 20 46 4e 20 69 6e | .(fn.&rest.args)..."Invoke.FN.in |
| 2c1780 | 20 45 6d 61 63 73 20 28 6f 72 20 73 6f 6d 65 20 6c 65 73 73 65 72 20 65 64 69 74 6f 72 29 20 61 | .Emacs.(or.some.lesser.editor).a |
| 2c17a0 | 6e 64 20 64 6f 6e 27 74 20 77 61 69 74 20 66 6f 72 20 74 68 65 20 72 65 73 75 6c 74 2e 22 0a 20 | nd.don't.wait.for.the.result.".. |
| 2c17c0 | 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 65 64 2d 72 70 63 2d 6e 6f 2d 77 61 69 | .(send-to-emacs.`(:ed-rpc-no-wai |
| 2c17e0 | 74 20 2c 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 2d 66 6f 72 2d 65 6d 61 63 73 20 66 6e 29 20 2c 40 | t.,(symbol-name-for-emacs.fn).,@ |
| 2c1800 | 61 72 67 73 29 29 0a 20 20 28 76 61 6c 75 65 73 29 29 0a 0a 28 64 65 66 75 6e 20 65 64 2d 72 70 | args))...(values))..(defun.ed-rp |
| 2c1820 | 63 20 28 66 6e 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 49 6e 76 6f 6b 65 20 46 4e 20 69 | c.(fn.&rest.args)..."Invoke.FN.i |
| 2c1840 | 6e 20 45 6d 61 63 73 20 28 6f 72 20 73 6f 6d 65 20 6c 65 73 73 65 72 20 65 64 69 74 6f 72 29 2e | n.Emacs.(or.some.lesser.editor). |
| 2c1860 | 20 46 4e 20 73 68 6f 75 6c 64 20 62 65 20 64 65 66 69 6e 65 64 20 69 6e 0a 45 6d 61 63 73 20 4c | .FN.should.be.defined.in.Emacs.L |
| 2c1880 | 69 73 70 20 76 69 61 20 60 64 65 66 73 6c 69 6d 65 66 75 6e 27 20 6f 72 20 6f 74 68 65 72 77 69 | isp.via.`defslimefun'.or.otherwi |
| 2c18a0 | 73 65 20 6d 61 72 6b 65 64 20 61 73 20 52 50 43 61 6c 6c 61 62 6c 65 2e 22 0a 20 20 28 6c 65 74 | se.marked.as.RPCallable."...(let |
| 2c18c0 | 20 28 28 74 61 67 20 28 6d 61 6b 65 2d 74 61 67 29 29 29 0a 20 20 20 20 28 73 65 6e 64 2d 74 6f | .((tag.(make-tag))).....(send-to |
| 2c18e0 | 2d 65 6d 61 63 73 20 60 28 3a 65 64 2d 72 70 63 20 2c 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 | -emacs.`(:ed-rpc.,(current-threa |
| 2c1900 | 64 2d 69 64 29 20 2c 74 61 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-id).,tag...................... |
| 2c1920 | 20 20 20 20 20 20 20 20 2c 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 2d 66 6f 72 2d 65 6d 61 63 73 20 | ........,(symbol-name-for-emacs. |
| 2c1940 | 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fn)............................. |
| 2c1960 | 20 2c 40 61 72 67 73 29 29 0a 20 20 20 20 28 77 61 69 74 2d 66 6f 72 2d 65 6d 61 63 73 2d 72 65 | .,@args)).....(wait-for-emacs-re |
| 2c1980 | 74 75 72 6e 20 74 61 67 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 77 61 6e 6b 2d 77 69 72 65 | turn.tag)))..(defvar.*swank-wire |
| 2c19a0 | 2d 70 72 6f 74 6f 63 6f 6c 2d 76 65 72 73 69 6f 6e 2a 20 6e 69 6c 0a 20 20 22 54 68 65 20 76 65 | -protocol-version*.nil..."The.ve |
| 2c19c0 | 72 73 69 6f 6e 20 6f 66 20 74 68 65 20 73 77 61 6e 6b 2f 73 6c 69 6d 65 20 63 6f 6d 6d 75 6e 69 | rsion.of.the.swank/slime.communi |
| 2c19e0 | 63 61 74 69 6f 6e 20 70 72 6f 74 6f 63 6f 6c 2e 22 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e | cation.protocol.")..(defslimefun |
| 2c1a00 | 20 63 6f 6e 6e 65 63 74 69 6f 6e 2d 69 6e 66 6f 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 | .connection-info.()..."Return.a. |
| 2c1a20 | 6b 65 79 2d 76 61 6c 75 65 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 3a 20 0a 5c 28 26 | key-value.list.of.the.form:..\(& |
| 2c1a40 | 6b 65 79 20 50 49 44 20 53 54 59 4c 45 20 4c 49 53 50 2d 49 4d 50 4c 45 4d 45 4e 54 41 54 49 4f | key.PID.STYLE.LISP-IMPLEMENTATIO |
| 2c1a60 | 4e 20 4d 41 43 48 49 4e 45 20 46 45 41 54 55 52 45 53 20 50 41 43 4b 41 47 45 20 56 45 52 53 49 | N.MACHINE.FEATURES.PACKAGE.VERSI |
| 2c1a80 | 4f 4e 29 0a 50 49 44 3a 20 69 73 20 74 68 65 20 70 72 6f 63 65 73 73 2d 69 64 20 6f 66 20 4c 69 | ON).PID:.is.the.process-id.of.Li |
| 2c1aa0 | 73 70 20 70 72 6f 63 65 73 73 20 28 6f 72 20 6e 69 6c 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e | sp.process.(or.nil,.depending.on |
| 2c1ac0 | 20 74 68 65 20 53 54 59 4c 45 29 0a 53 54 59 4c 45 3a 20 74 68 65 20 63 6f 6d 6d 75 6e 69 63 61 | .the.STYLE).STYLE:.the.communica |
| 2c1ae0 | 74 69 6f 6e 20 73 74 79 6c 65 0a 4c 49 53 50 2d 49 4d 50 4c 45 4d 45 4e 54 41 54 49 4f 4e 3a 20 | tion.style.LISP-IMPLEMENTATION:. |
| 2c1b00 | 61 20 6c 69 73 74 20 28 26 6b 65 79 20 54 59 50 45 20 4e 41 4d 45 20 56 45 52 53 49 4f 4e 29 0a | a.list.(&key.TYPE.NAME.VERSION). |
| 2c1b20 | 46 45 41 54 55 52 45 53 3a 20 61 20 6c 69 73 74 20 6f 66 20 6b 65 79 77 6f 72 64 73 0a 50 41 43 | FEATURES:.a.list.of.keywords.PAC |
| 2c1b40 | 4b 41 47 45 3a 20 61 20 6c 69 73 74 20 28 26 6b 65 79 20 4e 41 4d 45 20 50 52 4f 4d 50 54 29 0a | KAGE:.a.list.(&key.NAME.PROMPT). |
| 2c1b60 | 56 45 52 53 49 4f 4e 3a 20 74 68 65 20 70 72 6f 74 6f 63 6f 6c 20 76 65 72 73 69 6f 6e 22 0a 20 | VERSION:.the.protocol.version".. |
| 2c1b80 | 20 28 6c 65 74 20 28 28 63 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 0a 20 | .(let.((c.*emacs-connection*)).. |
| 2c1ba0 | 20 20 20 28 73 65 74 71 20 2a 73 6c 69 6d 65 2d 66 65 61 74 75 72 65 73 2a 20 28 61 75 67 6d 65 | ...(setq.*slime-features*.(augme |
| 2c1bc0 | 6e 74 2d 66 65 61 74 75 72 65 73 29 29 0a 20 20 20 20 60 28 3a 70 69 64 20 2c 28 67 65 74 70 69 | nt-features)).....`(:pid.,(getpi |
| 2c1be0 | 64 29 20 3a 73 74 79 6c 65 20 2c 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 63 6f 6d 6d 75 6e 69 63 61 | d).:style.,(connection.communica |
| 2c1c00 | 74 69 6f 6e 2d 73 74 79 6c 65 20 63 29 0a 20 20 20 20 20 20 3a 65 6e 63 6f 64 69 6e 67 20 28 3a | tion-style.c).......:encoding.(: |
| 2c1c20 | 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | coding-systems.................. |
| 2c1c40 | 2c 28 6c 6f 6f 70 20 66 6f 72 20 63 73 20 69 6e 20 27 28 22 75 74 66 2d 38 2d 75 6e 69 78 22 20 | ,(loop.for.cs.in.'("utf-8-unix". |
| 2c1c60 | 22 69 73 6f 2d 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | "iso-latin-1-unix")............. |
| 2c1c80 | 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 66 69 6e 64 2d 65 78 74 65 72 6e 61 6c 2d | ............when.(find-external- |
| 2c1ca0 | 66 6f 72 6d 61 74 20 63 73 29 20 63 6f 6c 6c 65 63 74 20 63 73 29 29 0a 20 20 20 20 20 20 3a 6c | format.cs).collect.cs)).......:l |
| 2c1cc0 | 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 28 3a 74 79 70 65 20 2c 28 6c 69 73 70 | isp-implementation.(:type.,(lisp |
| 2c1ce0 | 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 | -implementation-type)........... |
| 2c1d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 61 6d 65 20 2c 28 6c 69 73 70 2d 69 | ..................:name.,(lisp-i |
| 2c1d20 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 74 79 70 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | mplementation-type-name)........ |
| 2c1d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 65 72 73 69 6f 6e 20 2c 28 | .....................:version.,( |
| 2c1d60 | 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 | lisp-implementation-version).... |
| 2c1d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 6f 67 72 61 | .........................:progra |
| 2c1da0 | 6d 20 2c 28 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 70 72 6f 67 72 61 6d 29 | m.,(lisp-implementation-program) |
| 2c1dc0 | 29 0a 20 20 20 20 20 20 3a 6d 61 63 68 69 6e 65 20 28 3a 69 6e 73 74 61 6e 63 65 20 2c 28 6d 61 | ).......:machine.(:instance.,(ma |
| 2c1de0 | 63 68 69 6e 65 2d 69 6e 73 74 61 6e 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | chine-instance)................: |
| 2c1e00 | 74 79 70 65 20 2c 28 6d 61 63 68 69 6e 65 2d 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | type.,(machine-type)............ |
| 2c1e20 | 20 20 20 20 3a 76 65 72 73 69 6f 6e 20 2c 28 6d 61 63 68 69 6e 65 2d 76 65 72 73 69 6f 6e 29 29 | ....:version.,(machine-version)) |
| 2c1e40 | 0a 20 20 20 20 20 20 3a 66 65 61 74 75 72 65 73 20 2c 28 66 65 61 74 75 72 65 73 2d 66 6f 72 2d | .......:features.,(features-for- |
| 2c1e60 | 65 6d 61 63 73 29 0a 20 20 20 20 20 20 3a 6d 6f 64 75 6c 65 73 20 2c 2a 6d 6f 64 75 6c 65 73 2a | emacs).......:modules.,*modules* |
| 2c1e80 | 0a 20 20 20 20 20 20 3a 70 61 63 6b 61 67 65 20 28 3a 6e 61 6d 65 20 2c 28 70 61 63 6b 61 67 65 | .......:package.(:name.,(package |
| 2c1ea0 | 2d 6e 61 6d 65 20 2a 70 61 63 6b 61 67 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -name.*package*)................ |
| 2c1ec0 | 3a 70 72 6f 6d 70 74 20 2c 28 70 61 63 6b 61 67 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 70 72 6f | :prompt.,(package-string-for-pro |
| 2c1ee0 | 6d 70 74 20 2a 70 61 63 6b 61 67 65 2a 29 29 0a 20 20 20 20 20 20 3a 76 65 72 73 69 6f 6e 20 2c | mpt.*package*)).......:version., |
| 2c1f00 | 2a 73 77 61 6e 6b 2d 77 69 72 65 2d 70 72 6f 74 6f 63 6f 6c 2d 76 65 72 73 69 6f 6e 2a 29 29 29 | *swank-wire-protocol-version*))) |
| 2c1f20 | 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 20 28 29 | ..(defun.debug-on-swank-error.() |
| 2c1f40 | 0a 20 20 28 61 73 73 65 72 74 20 28 65 71 20 2a 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 70 | ...(assert.(eq.*debug-on-swank-p |
| 2c1f60 | 72 6f 74 6f 63 6f 6c 2d 65 72 72 6f 72 2a 20 2a 64 65 62 75 67 2d 73 77 61 6e 6b 2d 62 61 63 6b | rotocol-error*.*debug-swank-back |
| 2c1f80 | 65 6e 64 2a 29 29 0a 20 20 2a 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 70 72 6f 74 6f 63 6f | end*))...*debug-on-swank-protoco |
| 2c1fa0 | 6c 2d 65 72 72 6f 72 2a 29 0a 0a 28 64 65 66 75 6e 20 28 73 65 74 66 20 64 65 62 75 67 2d 6f 6e | l-error*)..(defun.(setf.debug-on |
| 2c1fc0 | 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 29 20 28 6e 65 77 2d 76 61 6c 75 65 29 0a 20 20 28 73 65 74 | -swank-error).(new-value)...(set |
| 2c1fe0 | 66 20 2a 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 70 72 6f 74 6f 63 6f 6c 2d 65 72 72 6f 72 | f.*debug-on-swank-protocol-error |
| 2c2000 | 2a 20 6e 65 77 2d 76 61 6c 75 65 29 0a 20 20 28 73 65 74 66 20 2a 64 65 62 75 67 2d 73 77 61 6e | *.new-value)...(setf.*debug-swan |
| 2c2020 | 6b 2d 62 61 63 6b 65 6e 64 2a 20 6e 65 77 2d 76 61 6c 75 65 29 29 0a 0a 28 64 65 66 73 6c 69 6d | k-backend*.new-value))..(defslim |
| 2c2040 | 65 66 75 6e 20 74 6f 67 67 6c 65 2d 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 | efun.toggle-debug-on-swank-error |
| 2c2060 | 20 28 29 0a 20 20 28 73 65 74 66 20 28 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 65 72 72 6f | .()...(setf.(debug-on-swank-erro |
| 2c2080 | 72 29 20 28 6e 6f 74 20 28 64 65 62 75 67 2d 6f 6e 2d 73 77 61 6e 6b 2d 65 72 72 6f 72 29 29 29 | r).(not.(debug-on-swank-error))) |
| 2c20a0 | 29 0a 0a 0c 0a 3b 3b 3b 3b 20 52 65 61 64 69 6e 67 20 61 6e 64 20 70 72 69 6e 74 69 6e 67 0a 0a | )....;;;;.Reading.and.printing.. |
| 2c20c0 | 28 64 65 66 69 6e 65 2d 73 70 65 63 69 61 6c 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a | (define-special.*buffer-package* |
| 2c20e0 | 20 20 20 20 20 0a 20 20 20 20 22 50 61 63 6b 61 67 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 | .........."Package.corresponding |
| 2c2100 | 20 74 6f 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2e 20 20 0a 0a 45 56 41 | .to.slime-buffer-package.....EVA |
| 2c2120 | 4c 2d 46 4f 52 2d 45 4d 41 43 53 20 62 69 6e 64 73 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 | L-FOR-EMACS.binds.*buffer-packag |
| 2c2140 | 65 2a 2e 20 20 53 74 72 69 6e 67 73 20 6f 72 69 67 69 6e 61 74 69 6e 67 20 66 72 6f 6d 20 61 20 | e*...Strings.originating.from.a. |
| 2c2160 | 73 6c 69 6d 65 0a 62 75 66 66 65 72 20 61 72 65 20 62 65 73 74 20 72 65 61 64 20 69 6e 20 74 68 | slime.buffer.are.best.read.in.th |
| 2c2180 | 69 73 20 70 61 63 6b 61 67 65 2e 20 20 53 65 65 20 61 6c 73 6f 20 46 52 4f 4d 2d 53 54 52 49 4e | is.package...See.also.FROM-STRIN |
| 2c21a0 | 47 20 61 6e 64 20 54 4f 2d 53 54 52 49 4e 47 2e 22 29 0a 0a 28 64 65 66 69 6e 65 2d 73 70 65 63 | G.and.TO-STRING.")..(define-spec |
| 2c21c0 | 69 61 6c 20 2a 62 75 66 66 65 72 2d 72 65 61 64 74 61 62 6c 65 2a 0a 20 20 20 20 22 52 65 61 64 | ial.*buffer-readtable*....."Read |
| 2c21e0 | 74 61 62 6c 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e | table.associated.with.the.curren |
| 2c2200 | 74 20 62 75 66 66 65 72 22 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 62 75 66 66 65 | t.buffer")..(defmacro.with-buffe |
| 2c2220 | 72 2d 73 79 6e 74 61 78 20 28 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 63 6b 61 67 65 29 20 26 62 | r-syntax.((&optional.package).&b |
| 2c2240 | 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 45 78 65 63 75 74 65 20 42 4f 44 59 20 77 69 74 68 20 61 | ody.body)..."Execute.BODY.with.a |
| 2c2260 | 70 70 72 6f 70 72 69 61 74 65 20 2a 70 61 63 6b 61 67 65 2a 20 61 6e 64 20 2a 72 65 61 64 74 61 | ppropriate.*package*.and.*readta |
| 2c2280 | 62 6c 65 2a 20 62 69 6e 64 69 6e 67 73 2e 0a 0a 54 68 69 73 20 73 68 6f 75 6c 64 20 62 65 20 75 | ble*.bindings...This.should.be.u |
| 2c22a0 | 73 65 64 20 66 6f 72 20 63 6f 64 65 20 74 68 61 74 20 69 73 20 63 6f 6e 63 65 70 74 69 6f 6e 61 | sed.for.code.that.is.conceptiona |
| 2c22c0 | 6c 6c 79 20 65 78 65 63 75 74 65 64 20 69 6e 20 61 6e 0a 45 6d 61 63 73 20 62 75 66 66 65 72 2e | lly.executed.in.an.Emacs.buffer. |
| 2c22e0 | 22 0a 20 20 60 28 63 61 6c 6c 2d 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 2c 70 | "...`(call-with-buffer-syntax.,p |
| 2c2300 | 61 63 6b 61 67 65 20 28 6c 61 6d 62 64 61 20 28 29 20 2c 40 62 6f 64 79 29 29 29 0a 0a 28 64 65 | ackage.(lambda.().,@body)))..(de |
| 2c2320 | 66 75 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 70 61 63 | fun.call-with-buffer-syntax.(pac |
| 2c2340 | 6b 61 67 65 20 66 75 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a 70 61 63 6b 61 67 65 2a 20 28 69 66 | kage.fun)...(let.((*package*.(if |
| 2c2360 | 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .package........................ |
| 2c2380 | 28 67 75 65 73 73 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 0a 20 | (guess-buffer-package.package).. |
| 2c23a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 62 75 66 66 65 72 2d 70 61 | ......................*buffer-pa |
| 2c23c0 | 63 6b 61 67 65 2a 29 29 29 0a 20 20 20 20 3b 3b 20 44 6f 6e 27 74 20 73 68 61 64 6f 77 20 2a 72 | ckage*))).....;;.Don't.shadow.*r |
| 2c23e0 | 65 61 64 74 61 62 6c 65 2a 20 75 6e 6e 65 63 65 73 73 61 72 69 6c 79 20 62 65 63 61 75 73 65 20 | eadtable*.unnecessarily.because. |
| 2c2400 | 74 68 61 74 20 70 72 65 76 65 6e 74 73 0a 20 20 20 20 3b 3b 20 74 68 65 20 75 73 65 72 20 66 72 | that.prevents.....;;.the.user.fr |
| 2c2420 | 6f 6d 20 61 73 73 69 67 6e 69 6e 67 20 74 6f 20 69 74 2e 0a 20 20 20 20 28 69 66 20 28 65 71 20 | om.assigning.to.it......(if.(eq. |
| 2c2440 | 2a 72 65 61 64 74 61 62 6c 65 2a 20 2a 62 75 66 66 65 72 2d 72 65 61 64 74 61 62 6c 65 2a 29 0a | *readtable*.*buffer-readtable*). |
| 2c2460 | 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 73 79 6e 74 61 78 2d 68 6f 6f 6b 73 20 | ........(call-with-syntax-hooks. |
| 2c2480 | 66 75 6e 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 72 65 61 64 74 61 62 6c 65 2a 20 | fun).........(let.((*readtable*. |
| 2c24a0 | 2a 62 75 66 66 65 72 2d 72 65 61 64 74 61 62 6c 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | *buffer-readtable*))...........( |
| 2c24c0 | 63 61 6c 6c 2d 77 69 74 68 2d 73 79 6e 74 61 78 2d 68 6f 6f 6b 73 20 66 75 6e 29 29 29 29 29 0a | call-with-syntax-hooks.fun))))). |
| 2c24e0 | 0a 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 6f 75 74 2d 70 72 69 6e 74 69 6e 67 2d 65 72 72 6f | .(defmacro.without-printing-erro |
| 2c2500 | 72 73 20 28 28 26 6b 65 79 20 6f 62 6a 65 63 74 20 73 74 72 65 61 6d 0a 20 20 20 20 20 20 20 20 | rs.((&key.object.stream......... |
| 2c2520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2c2540 | 28 6d 73 67 20 22 3c 3c 65 72 72 6f 72 20 70 72 69 6e 74 69 6e 67 20 6f 62 6a 65 63 74 3e 3e 22 | (msg."<<error.printing.object>>" |
| 2c2560 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )).............................. |
| 2c2580 | 20 20 20 20 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 22 43 61 74 63 68 65 73 20 65 72 72 6f | .....&body.body)..."Catches.erro |
| 2c25a0 | 72 73 20 64 75 72 69 6e 67 20 65 76 61 6c 75 61 74 69 6f 6e 20 6f 66 20 42 4f 44 59 20 61 6e 64 | rs.during.evaluation.of.BODY.and |
| 2c25c0 | 20 70 72 69 6e 74 73 20 4d 53 47 20 69 6e 73 74 65 61 64 2e 22 0a 20 20 60 28 68 61 6e 64 6c 65 | .prints.MSG.instead."...`(handle |
| 2c25e0 | 72 2d 63 61 73 65 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 20 0a 20 20 20 20 20 28 73 65 72 | r-case.(progn.,@body).......(ser |
| 2c2600 | 69 6f 75 73 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 29 0a 20 20 20 20 20 20 20 2c 28 63 6f 6e 64 20 | ious-condition.()........,(cond. |
| 2c2620 | 28 28 61 6e 64 20 73 74 72 65 61 6d 20 6f 62 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ((and.stream.object)............ |
| 2c2640 | 20 20 20 20 28 6c 65 74 20 28 28 67 73 74 72 65 61 6d 20 28 67 65 6e 73 79 6d 20 22 53 54 52 45 | ....(let.((gstream.(gensym."STRE |
| 2c2660 | 41 4d 2b 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6c 65 74 20 28 | AM+")))..................`(let.( |
| 2c2680 | 28 2c 67 73 74 72 65 61 6d 20 2c 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (,gstream.,stream))............. |
| 2c26a0 | 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 | ........(print-unreadable-object |
| 2c26c0 | 20 28 2c 6f 62 6a 65 63 74 20 2c 67 73 74 72 65 61 6d 20 3a 74 79 70 65 20 74 20 0a 20 20 20 20 | .(,object.,gstream.:type.t...... |
| 2c26e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2c2700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 65 6e 74 69 74 79 20 74 29 0a 20 | ..................:identity.t).. |
| 2c2720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 | .....................(write-stri |
| 2c2740 | 6e 67 20 2c 6d 73 67 20 2c 67 73 74 72 65 61 6d 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ng.,msg.,gstream)))))........... |
| 2c2760 | 20 20 20 20 28 73 74 72 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 77 72 69 | ....(stream................`(wri |
| 2c2780 | 74 65 2d 73 74 72 69 6e 67 20 2c 6d 73 67 20 2c 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 | te-string.,msg.,stream))........ |
| 2c27a0 | 20 20 20 20 20 20 20 28 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 | .......(object................`( |
| 2c27c0 | 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 29 0a 20 20 20 20 20 20 | with-output-to-string.(s)....... |
| 2c27e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 | ............(print-unreadable-ob |
| 2c2800 | 6a 65 63 74 20 28 2c 6f 62 6a 65 63 74 20 73 20 3a 74 79 70 65 20 74 20 3a 69 64 65 6e 74 69 74 | ject.(,object.s.:type.t.:identit |
| 2c2820 | 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d | y.t).....................(write- |
| 2c2840 | 73 74 72 69 6e 67 20 2c 6d 73 67 20 20 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | string.,msg..s)))).............. |
| 2c2860 | 20 28 74 20 6d 73 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 6f 2d 73 74 72 69 6e 67 20 28 | .(t.msg)))))..(defun.to-string.( |
| 2c2880 | 6f 62 6a 65 63 74 29 0a 20 20 22 57 72 69 74 65 20 4f 42 4a 45 43 54 20 69 6e 20 74 68 65 20 2a | object)..."Write.OBJECT.in.the.* |
| 2c28a0 | 42 55 46 46 45 52 2d 50 41 43 4b 41 47 45 2a 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 6d 61 79 20 | BUFFER-PACKAGE*..The.result.may. |
| 2c28c0 | 6e 6f 74 20 62 65 20 72 65 61 64 61 62 6c 65 2e 20 48 61 6e 64 6c 65 73 20 70 72 6f 62 6c 65 6d | not.be.readable..Handles.problem |
| 2c28e0 | 73 20 77 69 74 68 20 50 52 49 4e 54 2d 4f 42 4a 45 43 54 20 6d 65 74 68 6f 64 73 0a 67 72 61 63 | s.with.PRINT-OBJECT.methods.grac |
| 2c2900 | 65 66 75 6c 6c 79 2e 22 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 | efully."...(with-buffer-syntax.( |
| 2c2920 | 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 20 6e 69 | ).....(let.((*print-readably*.ni |
| 2c2940 | 6c 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 6f 75 74 2d 70 72 69 6e 74 69 6e 67 2d 65 72 72 6f | l)).......(without-printing-erro |
| 2c2960 | 72 73 20 28 3a 6f 62 6a 65 63 74 20 6f 62 6a 65 63 74 20 3a 73 74 72 65 61 6d 20 6e 69 6c 29 0a | rs.(:object.object.:stream.nil). |
| 2c2980 | 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 62 6a 65 63 74 29 | ........(prin1-to-string.object) |
| 2c29a0 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 | ))))..(defun.from-string.(string |
| 2c29c0 | 29 0a 20 20 22 52 65 61 64 20 73 74 72 69 6e 67 20 69 6e 20 74 68 65 20 2a 42 55 46 46 45 52 2d | )..."Read.string.in.the.*BUFFER- |
| 2c29e0 | 50 41 43 4b 41 47 45 2a 22 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 | PACKAGE*"...(with-buffer-syntax. |
| 2c2a00 | 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 72 65 61 64 2d 73 75 70 70 72 65 73 73 2a 20 6e 69 | ().....(let.((*read-suppress*.ni |
| 2c2a20 | 6c 29 29 0a 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 | l)).......(values.(read-from-str |
| 2c2a40 | 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 61 72 73 65 2d 73 74 | ing.string)))))..(defun.parse-st |
| 2c2a60 | 72 69 6e 67 20 28 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 29 0a 20 20 22 52 65 61 64 20 53 54 | ring.(string.package)..."Read.ST |
| 2c2a80 | 52 49 4e 47 20 69 6e 20 50 41 43 4b 41 47 45 2e 22 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 | RING.in.PACKAGE."...(with-buffer |
| 2c2aa0 | 2d 73 79 6e 74 61 78 20 28 70 61 63 6b 61 67 65 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 72 65 | -syntax.(package).....(let.((*re |
| 2c2ac0 | 61 64 2d 73 75 70 70 72 65 73 73 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 72 65 61 64 2d 66 | ad-suppress*.nil)).......(read-f |
| 2c2ae0 | 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a | rom-string.string))))..;;.FIXME: |
| 2c2b00 | 20 64 65 61 6c 20 77 69 74 68 20 23 5c 7c 20 65 74 63 2e 20 20 68 61 72 64 20 74 6f 20 64 6f 20 | .deal.with.#\|.etc...hard.to.do. |
| 2c2b20 | 70 6f 72 74 61 62 6c 79 2e 0a 28 64 65 66 75 6e 20 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c | portably..(defun.tokenize-symbol |
| 2c2b40 | 20 28 73 74 72 69 6e 67 29 0a 20 20 22 53 54 52 49 4e 47 20 69 73 20 69 6e 74 65 72 70 72 65 74 | .(string)..."STRING.is.interpret |
| 2c2b60 | 65 64 20 61 73 20 74 68 65 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 | ed.as.the.string.representation. |
| 2c2b80 | 6f 66 20 61 20 73 79 6d 62 6f 6c 0a 61 6e 64 20 69 73 20 74 6f 6b 65 6e 69 7a 65 64 20 61 63 63 | of.a.symbol.and.is.tokenized.acc |
| 2c2ba0 | 6f 72 64 69 6e 67 6c 79 2e 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 72 65 74 75 72 6e 65 64 | ordingly..The.result.is.returned |
| 2c2bc0 | 20 69 6e 20 74 68 72 65 65 0a 76 61 6c 75 65 73 3a 20 54 68 65 20 70 61 63 6b 61 67 65 20 69 64 | .in.three.values:.The.package.id |
| 2c2be0 | 65 6e 74 69 66 69 65 72 20 70 61 72 74 2c 20 74 68 65 20 61 63 74 75 61 6c 20 73 79 6d 62 6f 6c | entifier.part,.the.actual.symbol |
| 2c2c00 | 20 69 64 65 6e 74 69 66 69 65 72 0a 70 61 72 74 2c 20 61 6e 64 20 61 20 66 6c 61 67 20 69 66 20 | .identifier.part,.and.a.flag.if. |
| 2c2c20 | 74 68 65 20 53 54 52 49 4e 47 20 72 65 70 72 65 73 65 6e 74 73 20 61 20 73 79 6d 62 6f 6c 20 74 | the.STRING.represents.a.symbol.t |
| 2c2c40 | 68 61 74 20 69 73 0a 69 6e 74 65 72 6e 61 6c 20 74 6f 20 74 68 65 20 70 61 63 6b 61 67 65 20 69 | hat.is.internal.to.the.package.i |
| 2c2c60 | 64 65 6e 74 69 66 69 65 72 20 70 61 72 74 2e 20 28 4e 6f 74 69 63 65 20 74 68 61 74 20 74 68 65 | dentifier.part..(Notice.that.the |
| 2c2c80 | 20 66 6c 61 67 20 69 73 0a 61 6c 73 6f 20 74 72 75 65 20 77 69 74 68 20 61 6e 20 65 6d 70 74 79 | .flag.is.also.true.with.an.empty |
| 2c2ca0 | 20 70 61 63 6b 61 67 65 20 69 64 65 6e 74 69 66 69 65 72 20 70 61 72 74 2c 20 61 73 20 74 68 65 | .package.identifier.part,.as.the |
| 2c2cc0 | 20 53 54 52 49 4e 47 20 69 73 0a 63 6f 6e 73 69 64 65 72 65 64 20 74 6f 20 72 65 70 72 65 73 65 | .STRING.is.considered.to.represe |
| 2c2ce0 | 6e 74 20 61 20 73 79 6d 62 6f 6c 20 69 6e 74 65 72 6e 61 6c 20 74 6f 20 73 6f 6d 65 20 63 75 72 | nt.a.symbol.internal.to.some.cur |
| 2c2d00 | 72 65 6e 74 20 70 61 63 6b 61 67 65 2e 29 22 0a 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 | rent.package.)"...(let.((package |
| 2c2d20 | 20 28 6c 65 74 20 28 28 70 6f 73 20 28 70 6f 73 69 74 69 6f 6e 20 23 5c 3a 20 73 74 72 69 6e 67 | .(let.((pos.(position.#\:.string |
| 2c2d40 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 6f 73 20 28 | )))....................(if.pos.( |
| 2c2d60 | 73 75 62 73 65 71 20 73 74 72 69 6e 67 20 30 20 70 6f 73 29 20 6e 69 6c 29 29 29 0a 20 20 20 20 | subseq.string.0.pos).nil)))..... |
| 2c2d80 | 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 6c 65 74 20 28 28 70 6f 73 20 28 70 6f 73 69 74 69 6f 6e | ....(symbol.(let.((pos.(position |
| 2c2da0 | 20 23 5c 3a 20 73 74 72 69 6e 67 20 3a 66 72 6f 6d 2d 65 6e 64 20 74 29 29 29 0a 20 20 20 20 20 | .#\:.string.:from-end.t)))...... |
| 2c2dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 6f 73 20 28 73 75 62 73 65 71 20 73 74 72 | .............(if.pos.(subseq.str |
| 2c2de0 | 69 6e 67 20 28 31 2b 20 70 6f 73 29 29 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 | ing.(1+.pos)).string)))......... |
| 2c2e00 | 28 69 6e 74 65 72 6e 70 20 28 6e 6f 74 20 28 3d 20 28 63 6f 75 6e 74 20 23 5c 3a 20 73 74 72 69 | (internp.(not.(=.(count.#\:.stri |
| 2c2e20 | 6e 67 29 20 31 29 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 73 79 6d 62 6f 6c 20 70 61 63 | ng).1)))).....(values.symbol.pac |
| 2c2e40 | 6b 61 67 65 20 69 6e 74 65 72 6e 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 6f 6b 65 6e 69 7a 65 | kage.internp)))..(defun.tokenize |
| 2c2e60 | 2d 73 79 6d 62 6f 6c 2d 74 68 6f 72 6f 75 67 68 6c 79 20 28 73 74 72 69 6e 67 29 0a 20 20 22 54 | -symbol-thoroughly.(string)..."T |
| 2c2e80 | 68 69 73 20 76 65 72 73 69 6f 6e 20 6f 66 20 54 4f 4b 45 4e 49 5a 45 2d 53 59 4d 42 4f 4c 20 68 | his.version.of.TOKENIZE-SYMBOL.h |
| 2c2ea0 | 61 6e 64 6c 65 73 20 65 73 63 61 70 65 20 63 68 61 72 61 63 74 65 72 73 2e 22 0a 20 20 28 6c 65 | andles.escape.characters."...(le |
| 2c2ec0 | 74 20 28 28 70 61 63 6b 61 67 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 74 6f 6b 65 6e 20 | t.((package.nil).........(token. |
| 2c2ee0 | 28 6d 61 6b 65 2d 61 72 72 61 79 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 20 3a 65 6c 65 | (make-array.(length.string).:ele |
| 2c2f00 | 6d 65 6e 74 2d 74 79 70 65 20 27 63 68 61 72 61 63 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 | ment-type.'character............ |
| 2c2f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 30 29 | ................:fill-pointer.0) |
| 2c2f40 | 29 0a 20 20 20 20 20 20 20 20 28 62 61 63 6b 73 6c 61 73 68 20 6e 69 6c 29 0a 20 20 20 20 20 20 | ).........(backslash.nil)....... |
| 2c2f60 | 20 20 28 76 65 72 74 69 63 61 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e | ..(vertical.nil).........(intern |
| 2c2f80 | 70 20 6e 69 6c 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 68 61 72 20 61 63 72 6f 73 | p.nil)).....(loop.for.char.acros |
| 2c2fa0 | 73 20 73 74 72 69 6e 67 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 | s.string.do...........(cond..... |
| 2c2fc0 | 20 20 20 20 20 20 20 20 28 62 61 63 6b 73 6c 61 73 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(backslash.............. |
| 2c2fe0 | 28 76 65 63 74 6f 72 2d 70 75 73 68 2d 65 78 74 65 6e 64 20 63 68 61 72 20 74 6f 6b 65 6e 29 0a | (vector-push-extend.char.token). |
| 2c3000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 61 63 6b 73 6c 61 73 68 20 6e 69 6c | .............(setq.backslash.nil |
| 2c3020 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 68 61 72 3d 20 63 68 61 72 20 23 5c 5c 29 | )).............((char=.char.#\\) |
| 2c3040 | 20 3b 20 51 75 6f 74 65 73 20 6e 65 78 74 20 63 68 61 72 61 63 74 65 72 2c 20 65 76 65 6e 20 77 | .;.Quotes.next.character,.even.w |
| 2c3060 | 69 74 68 69 6e 20 7c 2e 2e 2e 7c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 | ithin.|...|..............(setq.b |
| 2c3080 | 61 63 6b 73 6c 61 73 68 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 68 61 72 3d | ackslash.t)).............((char= |
| 2c30a0 | 20 63 68 61 72 20 23 5c 7c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 76 65 | .char.#\|)..............(setq.ve |
| 2c30c0 | 72 74 69 63 61 6c 20 28 6e 6f 74 20 76 65 72 74 69 63 61 6c 29 29 29 0a 20 20 20 20 20 20 20 20 | rtical.(not.vertical)))......... |
| 2c30e0 | 20 20 20 20 28 76 65 72 74 69 63 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 65 63 74 | ....(vertical..............(vect |
| 2c3100 | 6f 72 2d 70 75 73 68 2d 65 78 74 65 6e 64 20 63 68 61 72 20 74 6f 6b 65 6e 29 29 0a 20 20 20 20 | or-push-extend.char.token))..... |
| 2c3120 | 20 20 20 20 20 20 20 20 28 28 63 68 61 72 3d 20 63 68 61 72 20 23 5c 3a 29 0a 20 20 20 20 20 20 | ........((char=.char.#\:)....... |
| 2c3140 | 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 70 61 63 6b 61 67 65 20 69 6e 74 65 72 | .......(cond.((and.package.inter |
| 2c3160 | 6e 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d | np).....................(return- |
| 2c3180 | 66 72 6f 6d 20 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c 2d 74 68 6f 72 6f 75 67 68 6c 79 29 | from.tokenize-symbol-thoroughly) |
| 2c31a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 63 6b 61 67 65 0a 20 20 | )....................(package... |
| 2c31c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 6e 74 65 72 6e 70 20 | ..................(setq.internp. |
| 2c31e0 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 | t))....................(t....... |
| 2c3200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 61 63 6b 61 67 65 20 74 6f 6b 65 | ..............(setq.package.toke |
| 2c3220 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 6b 65 | n...........................toke |
| 2c3240 | 6e 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 0a 20 20 | n.(make-array.(length.string)... |
| 2c3260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2c3280 | 20 20 20 20 20 20 20 20 20 20 3a 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 27 63 68 61 72 61 63 74 | ..........:element-type.'charact |
| 2c32a0 | 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er.............................. |
| 2c32c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 30 29 29 | ...............:fill-pointer.0)) |
| 2c32e0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ))).............(t.............. |
| 2c3300 | 28 76 65 63 74 6f 72 2d 70 75 73 68 2d 65 78 74 65 6e 64 20 28 63 61 73 69 66 79 2d 63 68 61 72 | (vector-push-extend.(casify-char |
| 2c3320 | 20 63 68 61 72 29 20 74 6f 6b 65 6e 29 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 76 65 72 | .char).token)))).....(unless.ver |
| 2c3340 | 74 69 63 61 6c 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 74 6f 6b 65 6e 20 70 61 | tical...........(values.token.pa |
| 2c3360 | 63 6b 61 67 65 20 28 6f 72 20 28 6e 6f 74 20 70 61 63 6b 61 67 65 29 20 69 6e 74 65 72 6e 70 29 | ckage.(or.(not.package).internp) |
| 2c3380 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c 20 28 | ))))..(defun.untokenize-symbol.( |
| 2c33a0 | 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 69 6e 74 65 72 6e 61 6c 2d 70 20 73 79 6d 62 6f 6c 2d 6e | package-name.internal-p.symbol-n |
| 2c33c0 | 61 6d 65 29 0a 20 20 22 54 68 65 20 69 6e 76 65 72 73 65 20 6f 66 20 54 4f 4b 45 4e 49 5a 45 2d | ame)..."The.inverse.of.TOKENIZE- |
| 2c33e0 | 53 59 4d 42 4f 4c 2e 0a 0a 20 20 28 75 6e 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c 20 5c 22 | SYMBOL.....(untokenize-symbol.\" |
| 2c3400 | 71 75 75 78 5c 22 20 6e 69 6c 20 5c 22 66 6f 6f 5c 22 29 20 3d 3d 3e 20 5c 22 71 75 75 78 3a 66 | quux\".nil.\"foo\").==>.\"quux:f |
| 2c3420 | 6f 6f 5c 22 0a 20 20 28 75 6e 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c 20 5c 22 71 75 75 78 | oo\"...(untokenize-symbol.\"quux |
| 2c3440 | 5c 22 20 74 20 5c 22 66 6f 6f 5c 22 29 20 20 20 3d 3d 3e 20 5c 22 71 75 75 78 3a 3a 66 6f 6f 5c | \".t.\"foo\")...==>.\"quux::foo\ |
| 2c3460 | 22 0a 20 20 28 75 6e 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c 20 6e 69 6c 20 6e 69 6c 20 5c | "...(untokenize-symbol.nil.nil.\ |
| 2c3480 | 22 66 6f 6f 5c 22 29 20 20 20 20 3d 3d 3e 20 5c 22 66 6f 6f 5c 22 0a 22 0a 20 20 28 63 6f 6e 64 | "foo\")....==>.\"foo\"."...(cond |
| 2c34a0 | 20 28 28 6e 6f 74 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 20 09 73 79 6d 62 6f 6c 2d 6e 61 6d | .((not.package-name)..symbol-nam |
| 2c34c0 | 65 29 0a 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 61 6c 2d 70 20 09 09 28 63 61 74 20 70 61 | e).........(internal-p...(cat.pa |
| 2c34e0 | 63 6b 61 67 65 2d 6e 61 6d 65 20 22 3a 3a 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 0a 20 20 | ckage-name."::".symbol-name))... |
| 2c3500 | 20 20 20 20 20 20 28 74 20 09 09 09 28 63 61 74 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 22 3a | ......(t....(cat.package-name.": |
| 2c3520 | 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 73 69 66 79 | ".symbol-name))))..(defun.casify |
| 2c3540 | 2d 63 68 61 72 20 28 63 68 61 72 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 43 48 41 52 20 61 63 63 | -char.(char)..."Convert.CHAR.acc |
| 2c3560 | 6f 72 69 6e 67 20 74 6f 20 72 65 61 64 74 61 62 6c 65 2d 63 61 73 65 2e 22 0a 20 20 28 65 63 61 | oring.to.readtable-case."...(eca |
| 2c3580 | 73 65 20 28 72 65 61 64 74 61 62 6c 65 2d 63 61 73 65 20 2a 72 65 61 64 74 61 62 6c 65 2a 29 0a | se.(readtable-case.*readtable*). |
| 2c35a0 | 20 20 20 20 28 3a 70 72 65 73 65 72 76 65 20 63 68 61 72 29 0a 20 20 20 20 28 3a 75 70 63 61 73 | ....(:preserve.char).....(:upcas |
| 2c35c0 | 65 20 20 20 28 63 68 61 72 2d 75 70 63 61 73 65 20 63 68 61 72 29 29 0a 20 20 20 20 28 3a 64 6f | e...(char-upcase.char)).....(:do |
| 2c35e0 | 77 6e 63 61 73 65 20 28 63 68 61 72 2d 64 6f 77 6e 63 61 73 65 20 63 68 61 72 29 29 0a 20 20 20 | wncase.(char-downcase.char)).... |
| 2c3600 | 20 28 3a 69 6e 76 65 72 74 20 28 69 66 20 28 75 70 70 65 72 2d 63 61 73 65 2d 70 20 63 68 61 72 | .(:invert.(if.(upper-case-p.char |
| 2c3620 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 2d 64 6f 77 6e 63 61 73 | )..................(char-downcas |
| 2c3640 | 65 20 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 2d 75 | e.char)..................(char-u |
| 2c3660 | 70 63 61 73 65 20 63 68 61 72 29 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 73 79 | pcase.char)))))...(defun.find-sy |
| 2c3680 | 6d 62 6f 6c 2d 77 69 74 68 2d 73 74 61 74 75 73 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 74 | mbol-with-status.(symbol-name.st |
| 2c36a0 | 61 74 75 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | atus............................ |
| 2c36c0 | 20 20 20 20 20 20 26 6f 70 74 69 6f 6e 61 6c 20 28 70 61 63 6b 61 67 65 20 2a 70 61 63 6b 61 67 | ......&optional.(package.*packag |
| 2c36e0 | 65 2a 29 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 79 6d | e*))...(multiple-value-bind.(sym |
| 2c3700 | 62 6f 6c 20 66 6c 61 67 29 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 2d 6e 61 | bol.flag).(find-symbol.symbol-na |
| 2c3720 | 6d 65 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 66 6c 61 67 20 28 65 | me.package).....(if.(and.flag.(e |
| 2c3740 | 71 20 66 6c 61 67 20 73 74 61 74 75 73 29 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 | q.flag.status)).........(values. |
| 2c3760 | 73 79 6d 62 6f 6c 20 66 6c 61 67 29 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 6e 69 6c | symbol.flag).........(values.nil |
| 2c3780 | 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 61 72 73 65 2d 73 79 6d 62 6f 6c 20 28 73 | .nil))))..(defun.parse-symbol.(s |
| 2c37a0 | 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 28 70 61 63 6b 61 67 65 20 2a 70 61 63 6b 61 67 | tring.&optional.(package.*packag |
| 2c37c0 | 65 2a 29 29 0a 20 20 22 46 69 6e 64 20 74 68 65 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 64 20 53 54 | e*))..."Find.the.symbol.named.ST |
| 2c37e0 | 52 49 4e 47 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 73 79 6d 62 6f 6c 20 61 6e 64 20 61 20 66 6c | RING..Return.the.symbol.and.a.fl |
| 2c3800 | 61 67 20 69 6e 64 69 63 61 74 69 6e 67 20 77 68 65 74 68 65 72 20 74 68 65 20 73 79 6d 62 6f 6c | ag.indicating.whether.the.symbol |
| 2c3820 | 73 20 77 61 73 20 66 6f 75 6e 64 2e 22 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d | s.was.found."...(multiple-value- |
| 2c3840 | 62 69 6e 64 20 28 73 6e 61 6d 65 20 70 6e 61 6d 65 20 69 6e 74 65 72 6e 61 6c 70 29 0a 20 20 20 | bind.(sname.pname.internalp).... |
| 2c3860 | 20 20 20 28 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c 2d 74 68 6f 72 6f 75 67 68 6c 79 20 73 | ...(tokenize-symbol-thoroughly.s |
| 2c3880 | 74 72 69 6e 67 29 0a 20 20 20 20 28 77 68 65 6e 20 73 6e 61 6d 65 0a 20 20 20 20 20 28 6c 65 74 | tring).....(when.sname......(let |
| 2c38a0 | 20 28 28 70 61 63 6b 61 67 65 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 3d 20 70 6e 61 6d 65 | .((package.(cond.((string=.pname |
| 2c38c0 | 20 22 22 29 20 6b 65 79 77 6f 72 64 2d 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ."").keyword-package)........... |
| 2c38e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 | ................(pname.......... |
| 2c3900 | 20 20 20 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 70 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 | ....(find-package.pname))....... |
| 2c3920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 20 20 20 20 20 20 20 20 20 | ....................(t.......... |
| 2c3940 | 20 20 20 20 20 20 20 20 70 61 63 6b 61 67 65 29 29 29 29 0a 20 20 20 20 20 20 20 28 69 66 20 70 | ........package))))........(if.p |
| 2c3960 | 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | ackage............(multiple-valu |
| 2c3980 | 65 2d 62 69 6e 64 20 28 73 79 6d 62 6f 6c 20 66 6c 61 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 | e-bind.(symbol.flag)............ |
| 2c39a0 | 20 20 20 20 28 69 66 20 69 6e 74 65 72 6e 61 6c 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(if.internalp............... |
| 2c39c0 | 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 73 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 | .....(find-symbol.sname.package) |
| 2c39e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c | ....................(find-symbol |
| 2c3a00 | 2d 77 69 74 68 2d 73 74 61 74 75 73 20 73 6e 61 6d 65 20 27 3a 65 78 74 65 72 6e 61 6c 20 70 61 | -with-status.sname.':external.pa |
| 2c3a20 | 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 73 79 6d | ckage))..............(values.sym |
| 2c3a40 | 62 6f 6c 20 66 6c 61 67 20 73 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 | bol.flag.sname.package))........ |
| 2c3a60 | 20 20 20 20 28 76 61 6c 75 65 73 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 29 29 29 29 29 | ....(values.nil.nil.nil.nil))))) |
| 2c3a80 | 29 0a 0a 28 64 65 66 75 6e 20 70 61 72 73 65 2d 73 79 6d 62 6f 6c 2d 6f 72 2d 6c 6f 73 65 20 28 | )..(defun.parse-symbol-or-lose.( |
| 2c3aa0 | 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 28 70 61 63 6b 61 67 65 20 2a 70 61 63 6b 61 | string.&optional.(package.*packa |
| 2c3ac0 | 67 65 2a 29 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 79 | ge*))...(multiple-value-bind.(sy |
| 2c3ae0 | 6d 62 6f 6c 20 73 74 61 74 75 73 29 20 28 70 61 72 73 65 2d 73 79 6d 62 6f 6c 20 73 74 72 69 6e | mbol.status).(parse-symbol.strin |
| 2c3b00 | 67 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 28 69 66 20 73 74 61 74 75 73 0a 20 20 20 20 20 20 | g.package).....(if.status....... |
| 2c3b20 | 20 20 28 76 61 6c 75 65 73 20 73 79 6d 62 6f 6c 20 73 74 61 74 75 73 29 0a 20 20 20 20 20 20 20 | ..(values.symbol.status)........ |
| 2c3b40 | 20 28 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 73 79 6d 62 6f 6c 3a 20 7e 41 20 5b 69 6e 20 | .(error."Unknown.symbol:.~A.[in. |
| 2c3b60 | 7e 41 5d 22 20 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ~A]".string.package))))..(defun. |
| 2c3b80 | 70 61 72 73 65 2d 70 61 63 6b 61 67 65 20 28 73 74 72 69 6e 67 29 0a 20 20 22 46 69 6e 64 20 74 | parse-package.(string)..."Find.t |
| 2c3ba0 | 68 65 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 64 20 53 54 52 49 4e 47 2e 0a 52 65 74 75 72 6e 20 | he.package.named.STRING..Return. |
| 2c3bc0 | 74 68 65 20 70 61 63 6b 61 67 65 20 6f 72 20 6e 69 6c 2e 22 0a 20 20 3b 3b 20 53 54 52 49 4e 47 | the.package.or.nil."...;;.STRING |
| 2c3be0 | 20 63 6f 6d 65 73 20 75 73 75 61 6c 6c 79 20 66 72 6f 6d 20 61 20 28 69 6e 2d 70 61 63 6b 61 67 | .comes.usually.from.a.(in-packag |
| 2c3c00 | 65 20 53 54 52 49 4e 47 29 20 66 6f 72 6d 2e 0a 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 | e.STRING).form....(ignore-errors |
| 2c3c20 | 0a 20 20 20 20 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 28 6c 65 74 20 28 28 2a 70 61 63 6b 61 | .....(find-package.(let.((*packa |
| 2c3c40 | 67 65 2a 20 2a 73 77 61 6e 6b 2d 69 6f 2d 70 61 63 6b 61 67 65 2a 29 29 0a 20 20 20 20 20 20 20 | ge*.*swank-io-package*))........ |
| 2c3c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 | .............(read-from-string.s |
| 2c3c80 | 74 72 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 70 61 72 73 65 2d 6e 61 6d 65 20 | tring)))))..(defun.unparse-name. |
| 2c3ca0 | 28 73 74 72 69 6e 67 29 0a 20 20 22 50 72 69 6e 74 20 74 68 65 20 6e 61 6d 65 20 53 54 52 49 4e | (string)..."Print.the.name.STRIN |
| 2c3cc0 | 47 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 72 69 6e 74 | G.according.to.the.current.print |
| 2c3ce0 | 65 72 20 73 65 74 74 69 6e 67 73 2e 22 0a 20 20 3b 3b 20 74 68 69 73 20 69 73 20 69 6e 74 65 6e | er.settings."...;;.this.is.inten |
| 2c3d00 | 64 65 64 20 66 6f 72 20 70 61 63 6b 61 67 65 20 6f 72 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 73 0a | ded.for.package.or.symbol.names. |
| 2c3d20 | 20 20 28 73 75 62 73 65 71 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6d 61 6b 65 | ..(subseq.(prin1-to-string.(make |
| 2c3d40 | 2d 73 79 6d 62 6f 6c 20 73 74 72 69 6e 67 29 29 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 67 75 65 | -symbol.string)).2))..(defun.gue |
| 2c3d60 | 73 73 2d 70 61 63 6b 61 67 65 20 28 73 74 72 69 6e 67 29 0a 20 20 22 47 75 65 73 73 20 77 68 69 | ss-package.(string)..."Guess.whi |
| 2c3d80 | 63 68 20 70 61 63 6b 61 67 65 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f 20 53 54 52 49 4e 47 | ch.package.corresponds.to.STRING |
| 2c3da0 | 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 6e 6f 20 70 61 63 6b 61 67 65 20 6d 61 74 63 68 | ..Return.nil.if.no.package.match |
| 2c3dc0 | 65 73 2e 22 0a 20 20 28 77 68 65 6e 20 73 74 72 69 6e 67 0a 20 20 20 20 28 6f 72 20 28 66 69 6e | es."...(when.string.....(or.(fin |
| 2c3de0 | 64 2d 70 61 63 6b 61 67 65 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 28 70 61 72 73 65 | d-package.string).........(parse |
| 2c3e00 | 2d 70 61 63 6b 61 67 65 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 66 69 | -package.string).........(if.(fi |
| 2c3e20 | 6e 64 20 23 5c 21 20 73 74 72 69 6e 67 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 66 6f 72 20 53 | nd.#\!.string)...........;.for.S |
| 2c3e40 | 42 43 4c 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 75 65 73 73 2d 70 61 63 6b 61 67 65 20 28 | BCL.............(guess-package.( |
| 2c3e60 | 73 75 62 73 74 69 74 75 74 65 20 23 5c 2d 20 23 5c 21 20 73 74 72 69 6e 67 29 29 29 29 29 29 0a | substitute.#\-.#\!.string)))))). |
| 2c3e80 | 0a 28 64 65 66 76 61 72 20 2a 72 65 61 64 74 61 62 6c 65 2d 61 6c 69 73 74 2a 20 6e 69 6c 0a 20 | .(defvar.*readtable-alist*.nil.. |
| 2c3ea0 | 20 22 41 6e 20 61 6c 69 73 74 20 6d 61 70 70 69 6e 67 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 73 | ."An.alist.mapping.package.names |
| 2c3ec0 | 20 74 6f 20 72 65 61 64 74 61 62 6c 65 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 67 75 65 73 73 2d | .to.readtables.")..(defun.guess- |
| 2c3ee0 | 62 75 66 66 65 72 2d 72 65 61 64 74 61 62 6c 65 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a | buffer-readtable.(package-name). |
| 2c3f00 | 20 20 28 6c 65 74 20 28 28 70 61 63 6b 61 67 65 20 28 67 75 65 73 73 2d 70 61 63 6b 61 67 65 20 | ..(let.((package.(guess-package. |
| 2c3f20 | 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 6f 72 20 28 61 6e 64 20 70 61 63 | package-name))).....(or.(and.pac |
| 2c3f40 | 6b 61 67 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 61 73 73 6f 63 20 28 | kage...............(cdr.(assoc.( |
| 2c3f60 | 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 20 2a 72 65 61 64 74 61 62 6c 65 | package-name.package).*readtable |
| 2c3f80 | 2d 61 6c 69 73 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -alist*......................... |
| 2c3fa0 | 20 3a 74 65 73 74 20 23 27 73 74 72 69 6e 67 3d 29 29 29 0a 20 20 20 20 20 20 20 20 2a 72 65 61 | .:test.#'string=))).........*rea |
| 2c3fc0 | 64 74 61 62 6c 65 2a 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 45 76 61 6c 75 61 74 69 6f 6e 0a 0a 28 | dtable*)))....;;;;.Evaluation..( |
| 2c3fe0 | 64 65 66 76 61 72 20 2a 70 65 6e 64 69 6e 67 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 2a 20 27 | defvar.*pending-continuations*.' |
| 2c4000 | 28 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 66 6f 72 20 | ()..."List.of.continuations.for. |
| 2c4020 | 45 6d 61 63 73 2e 20 28 74 68 72 65 61 64 20 6c 6f 63 61 6c 29 22 29 0a 0a 28 64 65 66 75 6e 20 | Emacs..(thread.local)")..(defun. |
| 2c4040 | 67 75 65 73 73 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 28 73 74 72 69 6e 67 29 0a 20 20 | guess-buffer-package.(string)... |
| 2c4060 | 22 52 65 74 75 72 6e 20 61 20 70 61 63 6b 61 67 65 20 66 6f 72 20 53 54 52 49 4e 47 2e 20 0a 46 | "Return.a.package.for.STRING...F |
| 2c4080 | 61 6c 6c 20 62 61 63 6b 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 66 20 6e 6f 20 73 75 | all.back.to.the.current.if.no.su |
| 2c40a0 | 63 68 20 70 61 63 6b 61 67 65 20 65 78 69 73 74 73 2e 22 0a 20 20 28 6f 72 20 28 61 6e 64 20 73 | ch.package.exists."...(or.(and.s |
| 2c40c0 | 74 72 69 6e 67 20 28 67 75 65 73 73 2d 70 61 63 6b 61 67 65 20 73 74 72 69 6e 67 29 29 0a 20 20 | tring.(guess-package.string))... |
| 2c40e0 | 20 20 20 20 2a 70 61 63 6b 61 67 65 2a 29 29 0a 0a 28 64 65 66 75 6e 20 65 76 61 6c 2d 66 6f 72 | ....*package*))..(defun.eval-for |
| 2c4100 | 2d 65 6d 61 63 73 20 28 66 6f 72 6d 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 69 64 29 0a | -emacs.(form.buffer-package.id). |
| 2c4120 | 20 20 22 42 69 6e 64 20 2a 42 55 46 46 45 52 2d 50 41 43 4b 41 47 45 2a 20 74 6f 20 42 55 46 46 | .."Bind.*BUFFER-PACKAGE*.to.BUFF |
| 2c4140 | 45 52 2d 50 41 43 4b 41 47 45 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 46 4f 52 4d 2e 0a 52 65 | ER-PACKAGE.and.evaluate.FORM..Re |
| 2c4160 | 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 74 6f 20 74 68 65 20 63 6f 6e 74 69 6e 75 61 74 | turn.the.result.to.the.continuat |
| 2c4180 | 69 6f 6e 20 49 44 2e 0a 45 72 72 6f 72 73 20 61 72 65 20 74 72 61 70 70 65 64 20 61 6e 64 20 69 | ion.ID..Errors.are.trapped.and.i |
| 2c41a0 | 6e 76 6f 6b 65 20 6f 75 72 20 64 65 62 75 67 67 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 6f 6b 20 | nvoke.our.debugger."...(let.(ok. |
| 2c41c0 | 72 65 73 75 6c 74 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 | result.condition).....(unwind-pr |
| 2c41e0 | 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 62 75 66 66 65 72 2d 70 61 | otect..........(let.((*buffer-pa |
| 2c4200 | 63 6b 61 67 65 2a 20 28 67 75 65 73 73 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 62 75 66 | ckage*.(guess-buffer-package.buf |
| 2c4220 | 66 65 72 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 62 | fer-package))................(*b |
| 2c4240 | 75 66 66 65 72 2d 72 65 61 64 74 61 62 6c 65 2a 20 28 67 75 65 73 73 2d 62 75 66 66 65 72 2d 72 | uffer-readtable*.(guess-buffer-r |
| 2c4260 | 65 61 64 74 61 62 6c 65 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 | eadtable.buffer-package))....... |
| 2c4280 | 20 20 20 20 20 20 20 20 20 28 2a 70 65 6e 64 69 6e 67 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 | .........(*pending-continuations |
| 2c42a0 | 2a 20 28 63 6f 6e 73 20 69 64 20 2a 70 65 6e 64 69 6e 67 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e | *.(cons.id.*pending-continuation |
| 2c42c0 | 73 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 70 72 65 2d 72 65 70 6c 79 2d | s*))................(*pre-reply- |
| 2c42e0 | 68 6f 6f 6b 2a 20 2a 70 72 65 2d 72 65 70 6c 79 2d 68 6f 6f 6b 2a 29 29 0a 20 20 20 20 20 20 20 | hook*.*pre-reply-hook*))........ |
| 2c4300 | 20 20 20 20 28 63 68 65 63 6b 2d 74 79 70 65 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a | ....(check-type.*buffer-package* |
| 2c4320 | 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 68 65 63 6b 2d 74 79 70 65 | .package)............(check-type |
| 2c4340 | 20 2a 62 75 66 66 65 72 2d 72 65 61 64 74 61 62 6c 65 2a 20 72 65 61 64 74 61 62 6c 65 29 0a 20 | .*buffer-readtable*.readtable).. |
| 2c4360 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 50 50 4c 59 20 77 6f 75 6c 64 20 62 65 20 63 6c 65 61 | ..........;;.APPLY.would.be.clea |
| 2c4380 | 6e 65 72 20 74 68 61 6e 20 45 56 41 4c 2e 20 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 73 | ner.than.EVAL..............;;.(s |
| 2c43a0 | 65 74 71 20 72 65 73 75 6c 74 20 28 61 70 70 6c 79 20 28 63 61 72 20 66 6f 72 6d 29 20 28 63 64 | etq.result.(apply.(car.form).(cd |
| 2c43c0 | 72 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 | r.form)))............(handler-bi |
| 2c43e0 | 6e 64 20 28 28 74 20 28 6c 61 6d 62 64 61 20 28 63 29 20 28 73 65 74 66 20 63 6f 6e 64 69 74 69 | nd.((t.(lambda.(c).(setf.conditi |
| 2c4400 | 6f 6e 20 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 75 | on.c))))..............(setq.resu |
| 2c4420 | 6c 74 20 28 77 69 74 68 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 20 28 65 76 61 6c 20 | lt.(with-slime-interrupts.(eval. |
| 2c4440 | 66 6f 72 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 20 2a 70 | form))))............(run-hook.*p |
| 2c4460 | 72 65 2d 72 65 70 6c 79 2d 68 6f 6f 6b 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | re-reply-hook*)............(setq |
| 2c4480 | 20 6f 6b 20 74 29 29 0a 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a | .ok.t)).......(send-to-emacs.`(: |
| 2c44a0 | 72 65 74 75 72 6e 20 2c 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 | return.,(current-thread)........ |
| 2c44c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 69 66 20 6f 6b 0a | ........................,(if.ok. |
| 2c44e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2c4500 | 20 20 20 20 60 28 3a 6f 6b 20 2c 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....`(:ok.,result).............. |
| 2c4520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 61 62 6f 72 74 20 | .......................`(:abort. |
| 2c4540 | 2c 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 | ,(prin1-to-string.condition))).. |
| 2c4560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 69 | ..............................,i |
| 2c4580 | 64 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 65 63 68 6f 2d 61 72 65 61 2d 70 72 65 66 69 | d)))))..(defvar.*echo-area-prefi |
| 2c45a0 | 78 2a 20 22 3d 3e 20 22 0a 20 20 22 41 20 70 72 65 66 69 78 20 74 68 61 74 20 60 66 6f 72 6d 61 | x*."=>."..."A.prefix.that.`forma |
| 2c45c0 | 74 2d 76 61 6c 75 65 73 2d 66 6f 72 2d 65 63 68 6f 2d 61 72 65 61 27 20 73 68 6f 75 6c 64 20 75 | t-values-for-echo-area'.should.u |
| 2c45e0 | 73 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 6d 61 74 2d 76 61 6c 75 65 73 2d 66 6f 72 2d | se.")..(defun.format-values-for- |
| 2c4600 | 65 63 68 6f 2d 61 72 65 61 20 28 76 61 6c 75 65 73 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 | echo-area.(values)...(with-buffe |
| 2c4620 | 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 72 65 | r-syntax.().....(let.((*print-re |
| 2c4640 | 61 64 61 62 6c 79 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c | adably*.nil)).......(cond.((null |
| 2c4660 | 20 76 61 6c 75 65 73 29 20 22 3b 20 4e 6f 20 76 61 6c 75 65 22 29 0a 20 20 20 20 20 20 20 20 20 | .values).";.No.value").......... |
| 2c4680 | 20 20 20 28 28 61 6e 64 20 28 69 6e 74 65 67 65 72 70 20 28 63 61 72 20 76 61 6c 75 65 73 29 29 | ...((and.(integerp.(car.values)) |
| 2c46a0 | 20 28 6e 75 6c 6c 20 28 63 64 72 20 76 61 6c 75 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .(null.(cdr.values)))........... |
| 2c46c0 | 20 20 20 28 6c 65 74 20 28 28 69 20 28 63 61 72 20 76 61 6c 75 65 73 29 29 29 0a 20 20 20 20 20 | ...(let.((i.(car.values)))...... |
| 2c46e0 | 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 41 7e 44 20 28 7e 61 20 | ..........(format.nil."~A~D.(~a. |
| 2c4700 | 62 69 74 7e 3a 70 2c 20 23 78 7e 58 2c 20 23 6f 7e 4f 2c 20 23 62 7e 42 29 22 20 0a 20 20 20 20 | bit~:p,.#x~X,.#o~O,.#b~B)"...... |
| 2c4720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 63 68 6f 2d 61 72 65 61 2d 70 72 | ...................*echo-area-pr |
| 2c4740 | 65 66 69 78 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 20 28 | efix*........................i.( |
| 2c4760 | 69 6e 74 65 67 65 72 2d 6c 65 6e 67 74 68 20 69 29 20 69 20 69 20 69 29 29 29 0a 20 20 20 20 20 | integer-length.i).i.i.i)))...... |
| 2c4780 | 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 74 79 70 65 70 20 28 63 61 72 20 76 61 6c 75 65 73 29 | .......((and.(typep.(car.values) |
| 2c47a0 | 20 27 72 61 74 69 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c | .'ratio)...................(null |
| 2c47c0 | 20 28 63 64 72 20 76 61 6c 75 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(cdr.values)).................. |
| 2c47e0 | 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(ignore-errors................. |
| 2c4800 | 20 20 20 3b 3b 20 54 68 65 20 72 61 74 69 6f 20 6d 61 79 20 62 65 20 74 6f 20 6c 61 72 67 65 20 | ...;;.The.ratio.may.be.to.large. |
| 2c4820 | 74 6f 20 62 65 20 72 65 70 72 65 73 65 6e 74 65 64 20 61 73 20 61 20 73 69 6e 67 6c 65 20 66 6c | to.be.represented.as.a.single.fl |
| 2c4840 | 6f 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e | oat....................(format.n |
| 2c4860 | 69 6c 20 22 7e 41 7e 44 20 28 7e 3a 2a 7e 66 29 22 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | il."~A~D.(~:*~f)"............... |
| 2c4880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 65 63 68 6f 2d 61 72 65 61 2d 70 72 65 66 69 78 2a | ..............*echo-area-prefix* |
| 2c48a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 | ............................(car |
| 2c48c0 | 20 76 61 6c 75 65 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 66 6f 72 | .values))))).............(t.(for |
| 2c48e0 | 6d 61 74 20 6e 69 6c 20 22 7e 61 7e 7b 7e 53 7e 5e 2c 20 7e 7d 22 20 2a 65 63 68 6f 2d 61 72 65 | mat.nil."~a~{~S~^,.~}".*echo-are |
| 2c4900 | 61 2d 70 72 65 66 69 78 2a 20 76 61 6c 75 65 73 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 | a-prefix*.values))))))..(defmacr |
| 2c4920 | 6f 20 76 61 6c 75 65 73 2d 74 6f 2d 73 74 72 69 6e 67 20 28 76 61 6c 75 65 73 29 0a 20 20 60 28 | o.values-to-string.(values)...`( |
| 2c4940 | 66 6f 72 6d 61 74 2d 76 61 6c 75 65 73 2d 66 6f 72 2d 65 63 68 6f 2d 61 72 65 61 20 28 6d 75 6c | format-values-for-echo-area.(mul |
| 2c4960 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 2c 76 61 6c 75 65 73 29 29 29 0a 0a 28 64 65 | tiple-value-list.,values)))..(de |
| 2c4980 | 66 73 6c 69 6d 65 66 75 6e 20 69 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 20 28 73 74 72 69 | fslimefun.interactive-eval.(stri |
| 2c49a0 | 6e 67 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 | ng)...(with-buffer-syntax.().... |
| 2c49c0 | 20 28 77 69 74 68 2d 72 65 74 72 79 2d 72 65 73 74 61 72 74 20 28 3a 6d 73 67 20 22 52 65 74 72 | .(with-retry-restart.(:msg."Retr |
| 2c49e0 | 79 20 53 4c 49 4d 45 20 69 6e 74 65 72 61 63 74 69 76 65 20 65 76 61 6c 75 61 74 69 6f 6e 20 72 | y.SLIME.interactive.evaluation.r |
| 2c4a00 | 65 71 75 65 73 74 2e 22 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 73 20 28 6d | equest.").......(let.((values.(m |
| 2c4a20 | 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 65 76 61 6c 20 28 66 72 6f 6d 2d 73 | ultiple-value-list.(eval.(from-s |
| 2c4a40 | 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 69 6e 69 73 | tring.string))))).........(finis |
| 2c4a60 | 68 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 2d 76 61 6c 75 65 73 | h-output).........(format-values |
| 2c4a80 | 2d 66 6f 72 2d 65 63 68 6f 2d 61 72 65 61 20 76 61 6c 75 65 73 29 29 29 29 29 0a 0a 28 64 65 66 | -for-echo-area.values)))))..(def |
| 2c4aa0 | 73 6c 69 6d 65 66 75 6e 20 65 76 61 6c 2d 61 6e 64 2d 67 72 61 62 2d 6f 75 74 70 75 74 20 28 73 | slimefun.eval-and-grab-output.(s |
| 2c4ac0 | 74 72 69 6e 67 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a | tring)...(with-buffer-syntax.(). |
| 2c4ae0 | 20 20 20 20 28 77 69 74 68 2d 72 65 74 72 79 2d 72 65 73 74 61 72 74 20 28 3a 6d 73 67 20 22 52 | ....(with-retry-restart.(:msg."R |
| 2c4b00 | 65 74 72 79 20 53 4c 49 4d 45 20 65 76 61 6c 75 61 74 69 6f 6e 20 72 65 71 75 65 73 74 2e 22 29 | etry.SLIME.evaluation.request.") |
| 2c4b20 | 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 2d 6f 75 | .......(let*.((s.(make-string-ou |
| 2c4b40 | 74 70 75 74 2d 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 73 74 61 | tput-stream))..............(*sta |
| 2c4b60 | 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 | ndard-output*.s)..............(v |
| 2c4b80 | 61 6c 75 65 73 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 65 76 61 6c | alues.(multiple-value-list.(eval |
| 2c4ba0 | 20 28 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 29 0a 20 20 20 20 20 20 | .(from-string.string)))))....... |
| 2c4bc0 | 20 20 28 6c 69 73 74 20 28 67 65 74 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 73 74 72 69 6e | ..(list.(get-output-stream-strin |
| 2c4be0 | 67 20 73 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 | g.s)................(format.nil. |
| 2c4c00 | 22 7e 7b 7e 53 7e 5e 7e 25 7e 7d 22 20 76 61 6c 75 65 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 | "~{~S~^~%~}".values))))))..(defu |
| 2c4c20 | 6e 20 65 76 61 6c 2d 72 65 67 69 6f 6e 20 28 73 74 72 69 6e 67 29 0a 20 20 22 45 76 61 6c 75 61 | n.eval-region.(string)..."Evalua |
| 2c4c40 | 74 65 20 53 54 52 49 4e 47 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 73 20 6f 66 | te.STRING..Return.the.results.of |
| 2c4c60 | 20 74 68 65 20 6c 61 73 74 20 66 6f 72 6d 20 61 73 20 61 20 6c 69 73 74 20 61 6e 64 20 61 73 20 | .the.last.form.as.a.list.and.as. |
| 2c4c80 | 73 65 63 6f 6e 64 61 72 79 20 76 61 6c 75 65 20 74 68 65 20 0a 6c 61 73 74 20 66 6f 72 6d 2e 22 | secondary.value.the..last.form." |
| 2c4ca0 | 0a 20 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 28 73 74 72 65 | ...(with-input-from-string.(stre |
| 2c4cc0 | 61 6d 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 6c 65 74 20 28 2d 20 76 61 6c 75 65 73 29 0a 20 | am.string).....(let.(-.values).. |
| 2c4ce0 | 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 20 28 72 | .....(loop........(let.((form.(r |
| 2c4d00 | 65 61 64 20 73 74 72 65 61 6d 20 6e 69 6c 20 73 74 72 65 61 6d 29 29 29 0a 20 20 20 20 20 20 20 | ead.stream.nil.stream)))........ |
| 2c4d20 | 20 20 28 77 68 65 6e 20 28 65 71 20 66 6f 72 6d 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 | ..(when.(eq.form.stream)........ |
| 2c4d40 | 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | ....(finish-output)............( |
| 2c4d60 | 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 76 61 6c 75 65 73 20 2d 29 29 29 0a 20 20 20 20 20 | return.(values.values.-)))...... |
| 2c4d80 | 20 20 20 20 28 73 65 74 71 20 2d 20 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | ....(setq.-.form)..........(setq |
| 2c4da0 | 20 76 61 6c 75 65 73 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 65 76 | .values.(multiple-value-list.(ev |
| 2c4dc0 | 61 6c 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 | al.form)))..........(finish-outp |
| 2c4de0 | 75 74 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 74 65 72 61 63 74 69 | ut))))))..(defslimefun.interacti |
| 2c4e00 | 76 65 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 20 28 73 74 72 69 6e 67 29 0a 20 20 28 77 69 74 68 2d | ve-eval-region.(string)...(with- |
| 2c4e20 | 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 77 69 74 68 2d 72 65 74 72 79 | buffer-syntax.().....(with-retry |
| 2c4e40 | 2d 72 65 73 74 61 72 74 20 28 3a 6d 73 67 20 22 52 65 74 72 79 20 53 4c 49 4d 45 20 69 6e 74 65 | -restart.(:msg."Retry.SLIME.inte |
| 2c4e60 | 72 61 63 74 69 76 65 20 65 76 61 6c 75 61 74 69 6f 6e 20 72 65 71 75 65 73 74 2e 22 29 0a 20 20 | ractive.evaluation.request.")... |
| 2c4e80 | 20 20 20 20 28 66 6f 72 6d 61 74 2d 76 61 6c 75 65 73 2d 66 6f 72 2d 65 63 68 6f 2d 61 72 65 61 | ....(format-values-for-echo-area |
| 2c4ea0 | 20 28 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73 74 72 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 73 | .(eval-region.string)))))..(defs |
| 2c4ec0 | 6c 69 6d 65 66 75 6e 20 72 65 2d 65 76 61 6c 75 61 74 65 2d 64 65 66 76 61 72 20 28 66 6f 72 6d | limefun.re-evaluate-defvar.(form |
| 2c4ee0 | 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 | )...(with-buffer-syntax.().....( |
| 2c4f00 | 77 69 74 68 2d 72 65 74 72 79 2d 72 65 73 74 61 72 74 20 28 3a 6d 73 67 20 22 52 65 74 72 79 20 | with-retry-restart.(:msg."Retry. |
| 2c4f20 | 53 4c 49 4d 45 20 65 76 61 6c 75 61 74 69 6f 6e 20 72 65 71 75 65 73 74 2e 22 29 0a 20 20 20 20 | SLIME.evaluation.request.")..... |
| 2c4f40 | 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 | ..(let.((form.(read-from-string. |
| 2c4f60 | 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 | form))).........(destructuring-b |
| 2c4f80 | 69 6e 64 20 28 64 76 20 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 76 61 6c 75 65 20 64 6f 63 | ind.(dv.name.&optional.value.doc |
| 2c4fa0 | 29 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 | ).form...........(declare.(ignor |
| 2c4fc0 | 65 20 76 61 6c 75 65 20 64 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 | e.value.doc))...........(assert. |
| 2c4fe0 | 28 65 71 20 64 76 20 27 64 65 66 76 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 75 | (eq.dv.'defvar))...........(maku |
| 2c5000 | 6e 62 6f 75 6e 64 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 2d 74 6f | nbound.name)...........(prin1-to |
| 2c5020 | 2d 73 74 72 69 6e 67 20 28 65 76 61 6c 20 66 6f 72 6d 29 29 29 29 29 29 29 0a 0a 28 64 65 66 76 | -string.(eval.form)))))))..(defv |
| 2c5040 | 61 72 20 2a 73 77 61 6e 6b 2d 70 70 72 69 6e 74 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 60 28 28 | ar.*swank-pprint-bindings*...`(( |
| 2c5060 | 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a 20 20 20 2e 20 74 29 20 0a 20 20 20 20 28 2a 70 72 69 | *print-pretty*.....t)......(*pri |
| 2c5080 | 6e 74 2d 6c 65 76 65 6c 2a 20 20 20 20 2e 20 6e 69 6c 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d | nt-level*......nil).....(*print- |
| 2c50a0 | 6c 65 6e 67 74 68 2a 20 20 20 2e 20 6e 69 6c 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 63 69 72 | length*.....nil).....(*print-cir |
| 2c50c0 | 63 6c 65 2a 20 20 20 2e 20 74 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 67 65 6e 73 79 6d 2a 20 | cle*.....t).....(*print-gensym*. |
| 2c50e0 | 20 20 2e 20 74 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 20 2e 20 6e | ....t).....(*print-readably*...n |
| 2c5100 | 69 6c 29 29 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 76 61 72 69 61 62 6c 65 73 20 62 69 6e 64 | il))..."A.list.of.variables.bind |
| 2c5120 | 69 6e 67 73 20 64 75 72 69 6e 67 20 70 72 65 74 74 79 20 70 72 69 6e 74 69 6e 67 2e 0a 55 73 65 | ings.during.pretty.printing..Use |
| 2c5140 | 64 20 62 79 20 70 70 72 69 6e 74 2d 65 76 61 6c 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e | d.by.pprint-eval.")..(defun.swan |
| 2c5160 | 6b 2d 70 70 72 69 6e 74 20 28 76 61 6c 75 65 73 29 0a 20 20 22 42 69 6e 64 20 73 6f 6d 65 20 70 | k-pprint.(values)..."Bind.some.p |
| 2c5180 | 72 69 6e 74 65 72 20 76 61 72 69 61 62 6c 65 73 20 61 6e 64 20 70 72 65 74 74 79 20 70 72 69 6e | rinter.variables.and.pretty.prin |
| 2c51a0 | 74 20 65 61 63 68 20 6f 62 6a 65 63 74 20 69 6e 20 56 41 4c 55 45 53 2e 22 0a 20 20 28 77 69 74 | t.each.object.in.VALUES."...(wit |
| 2c51c0 | 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 77 69 74 68 2d 62 69 6e | h-buffer-syntax.().....(with-bin |
| 2c51e0 | 64 69 6e 67 73 20 2a 73 77 61 6e 6b 2d 70 70 72 69 6e 74 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 | dings.*swank-pprint-bindings*... |
| 2c5200 | 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 76 61 6c 75 65 73 29 20 22 3b 20 4e 6f 20 76 | ....(cond.((null.values).";.No.v |
| 2c5220 | 61 6c 75 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 77 69 74 68 2d 6f 75 74 70 | alue").............(t.(with-outp |
| 2c5240 | 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 | ut-to-string.(*standard-output*) |
| 2c5260 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6f 20 76 61 6c | ..................(dolist.(o.val |
| 2c5280 | 75 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 70 72 69 6e 74 20 | ues)....................(pprint. |
| 2c52a0 | 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 65 72 70 72 69 29 29 29 | o)....................(terpri))) |
| 2c52c0 | 29 29 29 29 29 0a 20 20 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 70 70 72 69 6e 74 2d 65 76 61 | )))))....(defslimefun.pprint-eva |
| 2c52e0 | 6c 20 28 73 74 72 69 6e 67 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 | l.(string)...(with-buffer-syntax |
| 2c5300 | 20 28 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 73 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 2d 6f | .().....(let*.((s.(make-string-o |
| 2c5320 | 75 74 70 75 74 2d 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 | utput-stream))............(value |
| 2c5340 | 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 73 74 61 6e 64 61 72 64 2d | s..............(let.((*standard- |
| 2c5360 | 6f 75 74 70 75 74 2a 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 74 | output*.s)...................(*t |
| 2c5380 | 72 61 63 65 2d 6f 75 74 70 75 74 2a 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | race-output*.s))...............( |
| 2c53a0 | 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 65 76 61 6c 20 28 72 65 61 64 2d | multiple-value-list.(eval.(read- |
| 2c53c0 | 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 | from-string.string)))))).......( |
| 2c53e0 | 63 61 74 20 28 67 65 74 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 73 74 72 69 6e 67 20 73 29 | cat.(get-output-stream-string.s) |
| 2c5400 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 70 70 72 69 6e 74 20 76 61 6c 75 65 73 | ............(swank-pprint.values |
| 2c5420 | 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 65 74 2d 70 61 63 6b 61 67 65 20 | )))))..(defslimefun.set-package. |
| 2c5440 | 28 6e 61 6d 65 29 0a 20 20 22 53 65 74 20 2a 70 61 63 6b 61 67 65 2a 20 74 6f 20 74 68 65 20 70 | (name)..."Set.*package*.to.the.p |
| 2c5460 | 61 63 6b 61 67 65 20 6e 61 6d 65 64 20 4e 41 4d 45 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 66 75 | ackage.named.NAME..Return.the.fu |
| 2c5480 | 6c 6c 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 61 6e 64 20 74 68 65 20 73 74 72 69 6e 67 20 74 | ll.package-name.and.the.string.t |
| 2c54a0 | 6f 20 75 73 65 20 69 6e 20 74 68 65 20 70 72 6f 6d 70 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 | o.use.in.the.prompt."...(let.((p |
| 2c54c0 | 20 28 67 75 65 73 73 2d 70 61 63 6b 61 67 65 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 61 73 73 | .(guess-package.name))).....(ass |
| 2c54e0 | 65 72 74 20 28 70 61 63 6b 61 67 65 70 20 70 29 20 6e 69 6c 20 22 50 61 63 6b 61 67 65 20 7e 61 | ert.(packagep.p).nil."Package.~a |
| 2c5500 | 20 64 6f 65 73 6e 27 74 20 65 78 69 73 74 2e 22 20 6e 61 6d 65 29 0a 20 20 20 20 28 73 65 74 71 | .doesn't.exist.".name).....(setq |
| 2c5520 | 20 2a 70 61 63 6b 61 67 65 2a 20 70 29 0a 20 20 20 20 28 6c 69 73 74 20 28 70 61 63 6b 61 67 65 | .*package*.p).....(list.(package |
| 2c5540 | 2d 6e 61 6d 65 20 70 29 20 28 70 61 63 6b 61 67 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 70 72 6f | -name.p).(package-string-for-pro |
| 2c5560 | 6d 70 74 20 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 74 20 28 26 72 65 73 74 20 73 74 72 | mpt.p))))..(defun.cat.(&rest.str |
| 2c5580 | 69 6e 67 73 29 0a 20 20 22 43 6f 6e 63 61 74 65 6e 61 74 65 20 61 6c 6c 20 61 72 67 75 6d 65 6e | ings)..."Concatenate.all.argumen |
| 2c55a0 | 74 73 20 61 6e 64 20 6d 61 6b 65 20 74 68 65 20 72 65 73 75 6c 74 20 61 20 73 74 72 69 6e 67 2e | ts.and.make.the.result.a.string. |
| 2c55c0 | 22 0a 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 75 74 29 | "...(with-output-to-string.(out) |
| 2c55e0 | 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 73 20 73 74 72 69 6e 67 73 29 0a 20 20 20 20 20 20 28 | .....(dolist.(s.strings).......( |
| 2c5600 | 65 74 79 70 65 63 61 73 65 20 73 0a 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 28 77 72 69 | etypecase.s.........(string.(wri |
| 2c5620 | 74 65 2d 73 74 72 69 6e 67 20 73 20 6f 75 74 29 29 0a 20 20 20 20 20 20 20 20 28 63 68 61 72 61 | te-string.s.out)).........(chara |
| 2c5640 | 63 74 65 72 20 28 77 72 69 74 65 2d 63 68 61 72 20 73 20 6f 75 74 29 29 29 29 29 29 0a 0a 28 64 | cter.(write-char.s.out))))))..(d |
| 2c5660 | 65 66 75 6e 20 74 72 75 6e 63 61 74 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 77 69 64 | efun.truncate-string.(string.wid |
| 2c5680 | 74 68 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6c 6c 69 70 73 69 73 29 0a 20 20 28 6c 65 74 20 28 28 | th.&optional.ellipsis)...(let.(( |
| 2c56a0 | 6c 65 6e 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 | len.(length.string))).....(cond. |
| 2c56c0 | 28 28 3c 20 6c 65 6e 20 77 69 64 74 68 29 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 | ((<.len.width).string).......... |
| 2c56e0 | 20 28 65 6c 6c 69 70 73 69 73 20 28 63 61 74 20 28 73 75 62 73 65 71 20 73 74 72 69 6e 67 20 30 | .(ellipsis.(cat.(subseq.string.0 |
| 2c5700 | 20 77 69 64 74 68 29 20 65 6c 6c 69 70 73 69 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 | .width).ellipsis))...........(t. |
| 2c5720 | 28 73 75 62 73 65 71 20 73 74 72 69 6e 67 20 30 20 77 69 64 74 68 29 29 29 29 29 0a 0a 28 64 65 | (subseq.string.0.width)))))..(de |
| 2c5740 | 66 75 6e 20 63 61 6c 6c 2f 74 72 75 6e 63 61 74 65 64 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 | fun.call/truncated-output-to-str |
| 2c5760 | 69 6e 67 20 28 6c 65 6e 67 74 68 20 66 75 6e 63 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 20 20 20 | ing.(length.function............ |
| 2c5780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6f | ..............................&o |
| 2c57a0 | 70 74 69 6f 6e 61 6c 20 28 65 6c 6c 69 70 73 69 73 20 22 2e 2e 22 29 29 0a 20 20 22 43 61 6c 6c | ptional.(ellipsis.".."))..."Call |
| 2c57c0 | 20 46 55 4e 43 54 49 4f 4e 20 77 69 74 68 20 61 20 6e 65 77 20 73 74 72 65 61 6d 2c 20 72 65 74 | .FUNCTION.with.a.new.stream,.ret |
| 2c57e0 | 75 72 6e 20 74 68 65 20 6f 75 74 70 75 74 20 77 72 69 74 74 65 6e 20 74 6f 20 74 68 65 20 73 74 | urn.the.output.written.to.the.st |
| 2c5800 | 72 65 61 6d 2e 0a 49 66 20 46 55 4e 43 54 49 4f 4e 20 74 72 69 65 73 20 74 6f 20 77 72 69 74 65 | ream..If.FUNCTION.tries.to.write |
| 2c5820 | 20 6d 6f 72 65 20 74 68 61 6e 20 4c 45 4e 47 54 48 20 63 68 61 72 61 63 74 65 72 73 2c 20 69 74 | .more.than.LENGTH.characters,.it |
| 2c5840 | 20 77 69 6c 6c 20 62 65 0a 61 62 6f 72 74 65 64 20 61 6e 64 20 72 65 74 75 72 6e 20 69 6d 6d 65 | .will.be.aborted.and.return.imme |
| 2c5860 | 64 69 61 74 65 6c 79 20 77 69 74 68 20 74 68 65 20 6f 75 74 70 75 74 20 77 72 69 74 74 65 6e 20 | diately.with.the.output.written. |
| 2c5880 | 73 6f 20 66 61 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 6d 61 6b 65 2d 73 | so.far."...(let.((buffer.(make-s |
| 2c58a0 | 74 72 69 6e 67 20 28 2b 20 6c 65 6e 67 74 68 20 28 6c 65 6e 67 74 68 20 65 6c 6c 69 70 73 69 73 | tring.(+.length.(length.ellipsis |
| 2c58c0 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 30 29 29 0a 20 | )))).........(fill-pointer.0)).. |
| 2c58e0 | 20 20 20 28 62 6c 6f 63 6b 20 62 75 66 66 65 72 2d 66 75 6c 6c 0a 20 20 20 20 20 20 28 66 6c 65 | ...(block.buffer-full.......(fle |
| 2c5900 | 74 20 28 28 77 72 69 74 65 2d 6f 75 74 70 75 74 20 28 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 | t.((write-output.(string)....... |
| 2c5920 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 66 72 65 65 20 28 2d 20 6c 65 6e 67 74 68 20 | .........(let*.((free.(-.length. |
| 2c5940 | 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | fill-pointer)).................. |
| 2c5960 | 20 20 20 20 20 28 63 6f 75 6e 74 20 28 6d 69 6e 20 66 72 65 65 20 28 6c 65 6e 67 74 68 20 73 74 | .....(count.(min.free.(length.st |
| 2c5980 | 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 | ring))))..................(repla |
| 2c59a0 | 63 65 20 62 75 66 66 65 72 20 73 74 72 69 6e 67 20 3a 73 74 61 72 74 31 20 66 69 6c 6c 2d 70 6f | ce.buffer.string.:start1.fill-po |
| 2c59c0 | 69 6e 74 65 72 20 3a 65 6e 64 32 20 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | inter.:end2.count).............. |
| 2c59e0 | 20 20 20 20 28 69 6e 63 66 20 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 63 6f 75 6e 74 29 0a 20 20 | ....(incf.fill-pointer.count)... |
| 2c5a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 20 28 6c 65 6e 67 74 68 20 | ...............(when.(>.(length. |
| 2c5a20 | 73 74 72 69 6e 67 29 20 66 72 65 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | string).free)................... |
| 2c5a40 | 20 28 72 65 70 6c 61 63 65 20 62 75 66 66 65 72 20 65 6c 6c 69 70 73 69 73 20 3a 73 74 61 72 74 | .(replace.buffer.ellipsis.:start |
| 2c5a60 | 31 20 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1.fill-pointer)................. |
| 2c5a80 | 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 62 75 66 66 65 72 2d 66 75 6c 6c 20 62 75 66 66 | ...(return-from.buffer-full.buff |
| 2c5aa0 | 65 72 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 72 65 61 6d 20 28 6d | er))))).........(let.((stream.(m |
| 2c5ac0 | 61 6b 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 23 27 77 72 69 74 65 2d 6f 75 74 70 75 74 | ake-output-stream.#'write-output |
| 2c5ae0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 | )))...........(funcall.function. |
| 2c5b00 | 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 | stream)...........(finish-output |
| 2c5b20 | 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 65 71 20 62 75 66 66 65 | .stream)...........(subseq.buffe |
| 2c5b40 | 72 20 30 20 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 | r.0.fill-pointer))))))..(defmacr |
| 2c5b60 | 6f 20 77 69 74 68 2d 73 74 72 69 6e 67 2d 73 74 72 65 61 6d 20 28 28 76 61 72 20 26 6b 65 79 20 | o.with-string-stream.((var.&key. |
| 2c5b80 | 6c 65 6e 67 74 68 20 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | length.bindings)................ |
| 2c5ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 28 63 6f | ...............&body.body)...(co |
| 2c5bc0 | 6e 64 20 28 28 61 6e 64 20 28 6e 6f 74 20 62 69 6e 64 69 6e 67 73 29 20 28 6e 6f 74 20 6c 65 6e | nd.((and.(not.bindings).(not.len |
| 2c5be0 | 67 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 60 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d | gth))..........`(with-output-to- |
| 2c5c00 | 73 74 72 69 6e 67 20 28 2c 76 61 72 29 20 2e 20 2c 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 | string.(,var)...,body))......... |
| 2c5c20 | 28 28 6e 6f 74 20 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 60 28 63 61 6c 6c 2f | ((not.bindings)..........`(call/ |
| 2c5c40 | 74 72 75 6e 63 61 74 65 64 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 0a 20 20 20 20 | truncated-output-to-string...... |
| 2c5c60 | 20 20 20 20 20 20 20 2c 6c 65 6e 67 74 68 20 28 6c 61 6d 62 64 61 20 28 2c 76 61 72 29 20 2e 20 | .......,length.(lambda.(,var)... |
| 2c5c80 | 2c 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 60 28 77 | ,body))).........(t..........`(w |
| 2c5ca0 | 69 74 68 2d 62 69 6e 64 69 6e 67 73 20 2c 62 69 6e 64 69 6e 67 73 20 0a 20 20 20 20 20 20 20 20 | ith-bindings.,bindings.......... |
| 2c5cc0 | 20 20 20 20 28 77 69 74 68 2d 73 74 72 69 6e 67 2d 73 74 72 65 61 6d 20 28 2c 76 61 72 20 3a 6c | ....(with-string-stream.(,var.:l |
| 2c5ce0 | 65 6e 67 74 68 20 2c 6c 65 6e 67 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 2c | ength.,length)................., |
| 2c5d00 | 62 6f 64 79 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 6f 2d 6c 69 6e 65 20 28 6f 62 6a 65 63 | body)))))..(defun.to-line.(objec |
| 2c5d20 | 74 20 26 6f 70 74 69 6f 6e 61 6c 20 77 69 64 74 68 29 0a 20 20 22 50 72 69 6e 74 20 4f 42 4a 45 | t.&optional.width)..."Print.OBJE |
| 2c5d40 | 43 54 20 74 6f 20 61 20 73 69 6e 67 6c 65 20 6c 69 6e 65 2e 20 52 65 74 75 72 6e 20 74 68 65 20 | CT.to.a.single.line..Return.the. |
| 2c5d60 | 73 74 72 69 6e 67 2e 22 0a 20 20 28 6c 65 74 20 28 28 77 69 64 74 68 20 28 6f 72 20 77 69 64 74 | string."...(let.((width.(or.widt |
| 2c5d80 | 68 20 35 31 32 29 29 29 0a 20 20 20 20 28 77 69 74 68 6f 75 74 2d 70 72 69 6e 74 69 6e 67 2d 65 | h.512))).....(without-printing-e |
| 2c5da0 | 72 72 6f 72 73 20 28 3a 6f 62 6a 65 63 74 20 6f 62 6a 65 63 74 20 3a 73 74 72 65 61 6d 20 6e 69 | rrors.(:object.object.:stream.ni |
| 2c5dc0 | 6c 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 73 74 72 69 6e 67 2d 73 74 72 65 61 6d 20 28 73 74 | l).......(with-string-stream.(st |
| 2c5de0 | 72 65 61 6d 20 3a 6c 65 6e 67 74 68 20 77 69 64 74 68 29 0a 20 20 20 20 20 20 20 20 28 77 72 69 | ream.:length.width).........(wri |
| 2c5e00 | 74 65 20 6f 62 6a 65 63 74 20 3a 73 74 72 65 61 6d 20 73 74 72 65 61 6d 20 3a 72 69 67 68 74 2d | te.object.:stream.stream.:right- |
| 2c5e20 | 6d 61 72 67 69 6e 20 77 69 64 74 68 20 3a 6c 69 6e 65 73 20 31 29 29 29 29 29 0a 0a 28 64 65 66 | margin.width.:lines.1)))))..(def |
| 2c5e40 | 75 6e 20 65 73 63 61 70 65 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 73 74 72 65 61 6d 20 | un.escape-string.(string.stream. |
| 2c5e60 | 26 6b 65 79 20 6c 65 6e 67 74 68 20 28 6d 61 70 20 27 28 28 23 5c 22 20 2e 20 22 5c 5c 5c 22 22 | &key.length.(map.'((#\"..."\\\"" |
| 2c5e80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 2c5ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 23 5c 5c 20 2e 20 | .........................(#\\... |
| 2c5ec0 | 22 5c 5c 5c 5c 22 29 29 29 29 0a 20 20 22 57 72 69 74 65 20 53 54 52 49 4e 47 20 74 6f 20 53 54 | "\\\\"))))..."Write.STRING.to.ST |
| 2c5ee0 | 52 45 41 4d 20 73 75 72 72 6f 6e 64 65 64 20 62 79 20 64 6f 75 62 6c 65 2d 71 75 6f 74 65 73 2e | REAM.surronded.by.double-quotes. |
| 2c5f00 | 0a 4c 45 4e 47 54 48 20 2d 2d 20 69 66 20 6e 6f 6e 2d 6e 69 6c 20 74 72 75 6e 63 61 74 65 20 6f | .LENGTH.--.if.non-nil.truncate.o |
| 2c5f20 | 75 74 70 75 74 20 61 66 74 65 72 20 4c 45 4e 47 54 48 20 63 68 61 72 73 2e 0a 4d 41 50 20 2d 2d | utput.after.LENGTH.chars..MAP.-- |
| 2c5f40 | 20 72 65 77 72 69 74 65 20 74 68 65 20 63 68 61 72 73 20 69 6e 20 53 54 52 49 4e 47 20 61 63 63 | .rewrite.the.chars.in.STRING.acc |
| 2c5f60 | 6f 72 64 69 6e 67 20 74 6f 20 74 68 69 73 20 61 6c 69 73 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 | ording.to.this.alist."...(let.(( |
| 2c5f80 | 6c 69 6d 69 74 20 28 6f 72 20 6c 65 6e 67 74 68 20 61 72 72 61 79 2d 64 69 6d 65 6e 73 69 6f 6e | limit.(or.length.array-dimension |
| 2c5fa0 | 2d 6c 69 6d 69 74 29 29 29 0a 20 20 20 20 28 77 72 69 74 65 2d 63 68 61 72 20 23 5c 22 20 73 74 | -limit))).....(write-char.#\".st |
| 2c5fc0 | 72 65 61 6d 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 63 20 61 63 72 6f 73 73 20 73 74 72 | ream).....(loop.for.c.across.str |
| 2c5fe0 | 69 6e 67 20 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 64 6f 0a 20 | ing............for.i.from.0.do.. |
| 2c6000 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3d 20 69 20 6c 69 6d 69 74 29 0a 20 20 20 20 20 | .........(when.(=.i.limit)...... |
| 2c6020 | 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 73 74 72 69 6e 67 20 22 2e 2e 2e 22 20 73 74 72 65 61 | .......(write-string."...".strea |
| 2c6040 | 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 29 29 0a 20 20 20 20 20 20 20 | m).............(return))........ |
| 2c6060 | 20 20 20 28 6c 65 74 20 28 28 70 72 6f 62 65 20 28 61 73 73 6f 63 20 63 20 6d 61 70 29 29 29 0a | ...(let.((probe.(assoc.c.map))). |
| 2c6080 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 70 72 6f 62 65 20 28 77 72 69 74 65 2d | ............(cond.(probe.(write- |
| 2c60a0 | 73 74 72 69 6e 67 20 28 63 64 72 20 70 72 6f 62 65 29 20 73 74 72 65 61 6d 29 29 0a 20 20 20 20 | string.(cdr.probe).stream))..... |
| 2c60c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 77 72 69 74 65 2d 63 68 61 72 20 63 20 73 | ..............(t.(write-char.c.s |
| 2c60e0 | 74 72 65 61 6d 29 29 29 29 29 0a 20 20 20 20 28 77 72 69 74 65 2d 63 68 61 72 20 23 5c 22 20 73 | tream))))).....(write-char.#\".s |
| 2c6100 | 74 72 65 61 6d 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 50 72 6f 6d 70 74 20 0a 0a 3b 3b 20 46 49 58 | tream)))....;;;;.Prompt...;;.FIX |
| 2c6120 | 4d 45 3a 20 64 6f 20 77 65 20 72 65 61 6c 6c 79 20 6e 65 65 64 20 34 35 20 6c 69 6e 65 73 20 6f | ME:.do.we.really.need.45.lines.o |
| 2c6140 | 66 20 63 6f 64 65 20 6a 75 73 74 20 74 6f 20 66 69 67 75 72 65 20 6f 75 74 20 74 68 65 0a 3b 3b | f.code.just.to.figure.out.the.;; |
| 2c6160 | 20 70 72 6f 6d 70 74 3f 0a 0a 28 64 65 66 76 61 72 20 2a 63 61 6e 6f 6e 69 63 61 6c 2d 70 61 63 | .prompt?..(defvar.*canonical-pac |
| 2c6180 | 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 73 2a 0a 20 20 60 28 28 3a 63 6f 6d 6d 6f 6e 2d 6c 69 73 | kage-nicknames*...`((:common-lis |
| 2c61a0 | 70 2d 75 73 65 72 20 2e 20 3a 63 6c 2d 75 73 65 72 29 29 0a 20 20 22 43 61 6e 6f 6e 69 63 61 6c | p-user...:cl-user))..."Canonical |
| 2c61c0 | 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 73 20 74 6f 20 75 73 65 20 69 6e 73 74 65 61 64 20 6f 66 | .package.names.to.use.instead.of |
| 2c61e0 | 20 73 68 6f 72 74 65 73 74 20 6e 61 6d 65 2f 6e 69 63 6b 6e 61 6d 65 2e 22 29 0a 0a 28 64 65 66 | .shortest.name/nickname.")..(def |
| 2c6200 | 75 6e 20 70 61 63 6b 61 67 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 70 72 6f 6d 70 74 20 28 70 61 | un.package-string-for-prompt.(pa |
| 2c6220 | 63 6b 61 67 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 68 6f 72 74 65 73 74 20 6e 69 | ckage)..."Return.the.shortest.ni |
| 2c6240 | 63 6b 6e 61 6d 65 20 28 6f 72 20 63 61 6e 6f 6e 69 63 61 6c 20 6e 61 6d 65 29 20 6f 66 20 50 41 | ckname.(or.canonical.name).of.PA |
| 2c6260 | 43 4b 41 47 45 2e 22 0a 20 20 28 75 6e 70 61 72 73 65 2d 6e 61 6d 65 0a 20 20 20 28 6f 72 20 28 | CKAGE."...(unparse-name....(or.( |
| 2c6280 | 63 61 6e 6f 6e 69 63 61 6c 2d 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 20 70 61 63 6b 61 | canonical-package-nickname.packa |
| 2c62a0 | 67 65 29 0a 20 20 20 20 20 20 20 28 73 68 6f 72 74 65 73 74 2d 70 61 63 6b 61 67 65 2d 6e 69 63 | ge)........(shortest-package-nic |
| 2c62c0 | 6b 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6e 6f 6e 69 | kname.package))))..(defun.canoni |
| 2c62e0 | 63 61 6c 2d 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 20 28 70 61 63 6b 61 67 65 29 0a 20 | cal-package-nickname.(package).. |
| 2c6300 | 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 61 6e 6f 6e 69 63 61 6c 20 70 61 63 6b 61 67 65 20 6e | ."Return.the.canonical.package.n |
| 2c6320 | 69 63 6b 6e 61 6d 65 2c 20 69 66 20 61 6e 79 2c 20 6f 66 20 50 41 43 4b 41 47 45 2e 22 0a 20 20 | ickname,.if.any,.of.PACKAGE."... |
| 2c6340 | 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 63 64 72 20 28 61 73 73 6f 63 20 28 70 61 63 6b 61 67 65 | (let.((name.(cdr.(assoc.(package |
| 2c6360 | 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 20 2a 63 61 6e 6f 6e 69 63 61 6c 2d 70 61 63 6b 61 67 | -name.package).*canonical-packag |
| 2c6380 | 65 2d 6e 69 63 6b 6e 61 6d 65 73 2a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-nicknames*.................... |
| 2c63a0 | 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 73 74 72 69 6e 67 3d 29 29 29 29 0a 20 20 20 20 | ........:test.#'string=))))..... |
| 2c63c0 | 28 61 6e 64 20 6e 61 6d 65 20 28 73 74 72 69 6e 67 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 | (and.name.(string.name))))..(def |
| 2c63e0 | 75 6e 20 73 68 6f 72 74 65 73 74 2d 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 20 28 70 61 | un.shortest-package-nickname.(pa |
| 2c6400 | 63 6b 61 67 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 68 6f 72 74 65 73 74 20 6e 69 | ckage)..."Return.the.shortest.ni |
| 2c6420 | 63 6b 6e 61 6d 65 20 6f 66 20 50 41 43 4b 41 47 45 2e 22 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 | ckname.of.PACKAGE."...(loop.for. |
| 2c6440 | 6e 61 6d 65 20 69 6e 20 28 63 6f 6e 73 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b | name.in.(cons.(package-name.pack |
| 2c6460 | 61 67 65 29 20 28 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 73 20 70 61 63 6b 61 67 65 29 | age).(package-nicknames.package) |
| 2c6480 | 29 0a 20 20 20 20 20 20 20 20 66 6f 72 20 73 68 6f 72 74 65 73 74 20 3d 20 6e 61 6d 65 20 74 68 | ).........for.shortest.=.name.th |
| 2c64a0 | 65 6e 20 28 69 66 20 28 3c 20 28 6c 65 6e 67 74 68 20 6e 61 6d 65 29 20 28 6c 65 6e 67 74 68 20 | en.(if.(<.(length.name).(length. |
| 2c64c0 | 73 68 6f 72 74 65 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | shortest))...................... |
| 2c64e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..............name.............. |
| 2c6500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68 6f 72 74 65 73 74 29 0a | ......................shortest). |
| 2c6520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 72 65 74 75 72 6e 20 73 68 | ..............finally.(return.sh |
| 2c6540 | 6f 72 74 65 73 74 29 29 29 0a 0a 0c 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 65 64 2d 69 6e | ortest))).....(defslimefun.ed-in |
| 2c6560 | 2d 65 6d 61 63 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 77 68 61 74 29 0a 20 20 22 45 64 69 74 20 | -emacs.(&optional.what)..."Edit. |
| 2c6580 | 57 48 41 54 20 69 6e 20 45 6d 61 63 73 2e 0a 0a 57 48 41 54 20 63 61 6e 20 62 65 3a 0a 20 20 41 | WHAT.in.Emacs...WHAT.can.be:...A |
| 2c65a0 | 20 70 61 74 68 6e 61 6d 65 20 6f 72 20 61 20 73 74 72 69 6e 67 2c 0a 20 20 41 20 6c 69 73 74 20 | .pathname.or.a.string,...A.list. |
| 2c65c0 | 28 50 41 54 48 4e 41 4d 45 2d 4f 52 2d 53 54 52 49 4e 47 20 26 6b 65 79 20 4c 49 4e 45 20 43 4f | (PATHNAME-OR-STRING.&key.LINE.CO |
| 2c65e0 | 4c 55 4d 4e 20 50 4f 53 49 54 49 4f 4e 29 2c 0a 20 20 41 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d | LUMN.POSITION),...A.function.nam |
| 2c6600 | 65 20 28 73 79 6d 62 6f 6c 20 6f 72 20 63 6f 6e 73 29 2c 0a 20 20 4e 49 4c 2e 20 22 0a 20 20 28 | e.(symbol.or.cons),...NIL.."...( |
| 2c6620 | 66 6c 65 74 20 28 28 63 61 6e 6f 6e 69 63 61 6c 69 7a 65 2d 66 69 6c 65 6e 61 6d 65 20 28 66 69 | flet.((canonicalize-filename.(fi |
| 2c6640 | 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 2d 74 6f 2d | lename)............(pathname-to- |
| 2c6660 | 66 69 6c 65 6e 61 6d 65 20 28 6f 72 20 28 70 72 6f 62 65 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d | filename.(or.(probe-file.filenam |
| 2c6680 | 65 29 20 66 69 6c 65 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 74 61 72 67 65 | e).filename)))).....(let.((targe |
| 2c66a0 | 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 77 68 61 74 0a 20 20 | t.............(etypecase.what... |
| 2c66c0 | 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | ...........(null.nil)........... |
| 2c66e0 | 20 20 20 28 28 6f 72 20 73 74 72 69 6e 67 20 70 61 74 68 6e 61 6d 65 29 20 0a 20 20 20 20 20 20 | ...((or.string.pathname)........ |
| 2c6700 | 20 20 20 20 20 20 20 20 60 28 3a 66 69 6c 65 6e 61 6d 65 20 2c 28 63 61 6e 6f 6e 69 63 61 6c 69 | ........`(:filename.,(canonicali |
| 2c6720 | 7a 65 2d 66 69 6c 65 6e 61 6d 65 20 77 68 61 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ze-filename.what)))............. |
| 2c6740 | 20 28 28 63 6f 6e 73 20 28 6f 72 20 73 74 72 69 6e 67 20 70 61 74 68 6e 61 6d 65 29 20 2a 29 0a | .((cons.(or.string.pathname).*). |
| 2c6760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 66 69 6c 65 6e 61 6d 65 20 2c 28 63 61 6e 6f | ..............`(:filename.,(cano |
| 2c6780 | 6e 69 63 61 6c 69 7a 65 2d 66 69 6c 65 6e 61 6d 65 20 28 63 61 72 20 77 68 61 74 29 29 20 2c 40 | nicalize-filename.(car.what)).,@ |
| 2c67a0 | 28 63 64 72 20 77 68 61 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 73 | (cdr.what)))..............((or.s |
| 2c67c0 | 79 6d 62 6f 6c 20 63 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 66 75 6e | ymbol.cons)...............`(:fun |
| 2c67e0 | 63 74 69 6f 6e 2d 6e 61 6d 65 20 2c 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 77 68 61 | ction-name.,(prin1-to-string.wha |
| 2c6800 | 74 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 2a 65 6d 61 63 73 2d 63 6f 6e 6e | t)))))).......(cond.(*emacs-conn |
| 2c6820 | 65 63 74 69 6f 6e 2a 20 28 73 65 6e 64 2d 6f 6f 62 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 65 64 | ection*.(send-oob-to-emacs.`(:ed |
| 2c6840 | 20 2c 74 61 72 67 65 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 64 65 66 61 75 6c | .,target))).............((defaul |
| 2c6860 | 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 | t-connection)..............(with |
| 2c6880 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 28 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e | -connection.((default-connection |
| 2c68a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 2d 6f 6f 62 2d 74 6f 2d 65 | ))................(send-oob-to-e |
| 2c68c0 | 6d 61 63 73 20 60 28 3a 65 64 20 2c 74 61 72 67 65 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | macs.`(:ed.,target)))).......... |
| 2c68e0 | 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 4e 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 22 29 29 29 29 | ...(t.(error."No.connection")))) |
| 2c6900 | 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 69 6e 2d 65 6d 61 63 | ))..(defslimefun.inspect-in-emac |
| 2c6920 | 73 20 28 77 68 61 74 20 26 6b 65 79 20 77 61 69 74 29 0a 20 20 22 49 6e 73 70 65 63 74 20 57 48 | s.(what.&key.wait)..."Inspect.WH |
| 2c6940 | 41 54 20 69 6e 20 45 6d 61 63 73 2e 20 49 66 20 57 41 49 54 20 69 73 20 74 72 75 65 20 28 64 65 | AT.in.Emacs..If.WAIT.is.true.(de |
| 2c6960 | 66 61 75 6c 74 20 4e 49 4c 29 20 62 6c 6f 63 6b 73 20 75 6e 74 69 6c 20 74 68 65 0a 69 6e 73 70 | fault.NIL).blocks.until.the.insp |
| 2c6980 | 65 63 74 6f 72 20 68 61 73 20 62 65 65 6e 20 63 6c 6f 73 65 64 20 69 6e 20 45 6d 61 63 73 2e 22 | ector.has.been.closed.in.Emacs." |
| 2c69a0 | 0a 20 20 28 66 6c 65 74 20 28 28 73 65 6e 64 2d 69 74 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 | ...(flet.((send-it.()........... |
| 2c69c0 | 20 28 6c 65 74 20 28 28 74 61 67 20 28 77 68 65 6e 20 77 61 69 74 20 28 6d 61 6b 65 2d 74 61 67 | .(let.((tag.(when.wait.(make-tag |
| 2c69e0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 20 28 77 68 | )))..................(thread.(wh |
| 2c6a00 | 65 6e 20 77 61 69 74 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 29 29 29 29 0a 20 | en.wait.(current-thread-id)))).. |
| 2c6a20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 | ............(with-buffer-syntax. |
| 2c6a40 | 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 65 74 2d 69 6e 73 70 65 63 74 | ()................(reset-inspect |
| 2c6a60 | 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 2d 6f 6f 62 2d 74 6f 2d | or)................(send-oob-to- |
| 2c6a80 | 65 6d 61 63 73 20 60 28 3a 69 6e 73 70 65 63 74 20 2c 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 | emacs.`(:inspect.,(inspect-objec |
| 2c6aa0 | 74 20 77 68 61 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.what)......................... |
| 2c6ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 74 68 72 65 61 64 0a 20 20 20 | .....................,thread.... |
| 2c6ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2c6b00 | 20 20 20 20 20 20 20 20 20 20 2c 74 61 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ..........,tag)))..............( |
| 2c6b20 | 77 68 65 6e 20 77 61 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 69 74 2d 66 | when.wait................(wait-f |
| 2c6b40 | 6f 72 2d 65 76 65 6e 74 20 60 28 3a 65 6d 61 63 73 2d 72 65 74 75 72 6e 20 2c 74 61 67 20 72 65 | or-event.`(:emacs-return.,tag.re |
| 2c6b60 | 73 75 6c 74 29 29 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 28 2a 65 6d 61 | sult)))))).....(cond.......(*ema |
| 2c6b80 | 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 0a 20 20 20 20 20 20 20 28 73 65 6e 64 2d 69 74 29 29 | cs-connection*........(send-it)) |
| 2c6ba0 | 0a 20 20 20 20 20 20 28 28 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 | .......((default-connection).... |
| 2c6bc0 | 20 20 20 20 28 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 28 64 65 66 61 75 6c 74 2d 63 | ....(with-connection.((default-c |
| 2c6be0 | 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 2d 69 74 29 29 29 | onnection))..........(send-it))) |
| 2c6c00 | 29 0a 20 20 20 20 77 68 61 74 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 76 61 6c 75 65 | ).....what))..(defslimefun.value |
| 2c6c20 | 2d 66 6f 72 2d 65 64 69 74 69 6e 67 20 28 66 6f 72 6d 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 | -for-editing.(form)..."Return.a. |
| 2c6c40 | 72 65 61 64 61 62 6c 65 20 76 61 6c 75 65 20 6f 66 20 46 4f 52 4d 20 66 6f 72 20 65 64 69 74 69 | readable.value.of.FORM.for.editi |
| 2c6c60 | 6e 67 20 69 6e 20 45 6d 61 63 73 2e 0a 46 4f 52 4d 20 69 73 20 65 78 70 65 63 74 65 64 2c 20 62 | ng.in.Emacs..FORM.is.expected,.b |
| 2c6c80 | 75 74 20 6e 6f 74 20 72 65 71 75 69 72 65 64 2c 20 74 6f 20 62 65 20 53 45 54 46 27 61 62 6c 65 | ut.not.required,.to.be.SETF'able |
| 2c6ca0 | 2e 22 0a 20 20 3b 3b 20 46 49 58 4d 45 3a 20 43 61 6e 20 77 65 20 63 68 65 63 6b 20 46 4f 52 4d | ."...;;.FIXME:.Can.we.check.FORM |
| 2c6cc0 | 20 66 6f 72 20 73 65 74 66 61 62 69 6c 69 74 79 3f 20 2d 6c 75 6b 65 20 28 31 32 2f 4d 61 72 2f | .for.setfability?.-luke.(12/Mar/ |
| 2c6ce0 | 32 30 30 35 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 | 2005)...(with-buffer-syntax.().. |
| 2c6d00 | 20 20 20 28 6c 65 74 2a 20 28 28 76 61 6c 75 65 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 72 6f | ...(let*.((value.(eval.(read-fro |
| 2c6d20 | 6d 2d 73 74 72 69 6e 67 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 2a 70 72 | m-string.form)))............(*pr |
| 2c6d40 | 69 6e 74 2d 6c 65 6e 67 74 68 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 70 72 69 6e 31 2d 74 | int-length*.nil)).......(prin1-t |
| 2c6d60 | 6f 2d 73 74 72 69 6e 67 20 76 61 6c 75 65 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e | o-string.value))))..(defslimefun |
| 2c6d80 | 20 63 6f 6d 6d 69 74 2d 65 64 69 74 65 64 2d 76 61 6c 75 65 20 28 66 6f 72 6d 20 76 61 6c 75 65 | .commit-edited-value.(form.value |
| 2c6da0 | 29 0a 20 20 22 53 65 74 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61 20 73 65 74 66 27 61 62 6c | )..."Set.the.value.of.a.setf'abl |
| 2c6dc0 | 65 20 46 4f 52 4d 20 74 6f 20 56 41 4c 55 45 2e 0a 46 4f 52 4d 20 61 6e 64 20 56 41 4c 55 45 20 | e.FORM.to.VALUE..FORM.and.VALUE. |
| 2c6de0 | 61 72 65 20 62 6f 74 68 20 73 74 72 69 6e 67 73 20 66 72 6f 6d 20 45 6d 61 63 73 2e 22 0a 20 20 | are.both.strings.from.Emacs."... |
| 2c6e00 | 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 65 76 61 6c | (with-buffer-syntax.().....(eval |
| 2c6e20 | 20 60 28 73 65 74 66 20 2c 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 66 6f 72 6d 29 | .`(setf.,(read-from-string.form) |
| 2c6e40 | 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 | ..............,(read-from-string |
| 2c6e60 | 20 28 63 6f 6e 63 61 74 65 6e 61 74 65 20 27 73 74 72 69 6e 67 20 22 60 22 20 76 61 6c 75 65 29 | .(concatenate.'string."`".value) |
| 2c6e80 | 29 29 29 0a 20 20 20 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 67 72 6f 75 6e 64 2d 6d | ))).....t))..(defun.background-m |
| 2c6ea0 | 65 73 73 61 67 65 20 20 28 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 26 72 65 73 74 20 61 72 67 | essage..(format-string.&rest.arg |
| 2c6ec0 | 73 29 0a 20 20 22 44 69 73 70 6c 61 79 20 61 20 6d 65 73 73 61 67 65 20 69 6e 20 45 6d 61 63 73 | s)..."Display.a.message.in.Emacs |
| 2c6ee0 | 27 20 65 63 68 6f 20 61 72 65 61 2e 0a 0a 55 73 65 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 | '.echo.area...Use.this.function. |
| 2c6f00 | 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 76 65 20 6d 65 73 73 61 67 65 73 20 6f 6e 6c 79 2e 20 20 | for.informative.messages.only... |
| 2c6f20 | 54 68 65 20 6d 65 73 73 61 67 65 20 6d 61 79 20 65 76 65 6e 0a 62 65 20 64 72 6f 70 70 65 64 20 | The.message.may.even.be.dropped. |
| 2c6f40 | 69 66 20 77 65 20 61 72 65 20 74 6f 6f 20 62 75 73 79 20 77 69 74 68 20 6f 74 68 65 72 20 74 68 | if.we.are.too.busy.with.other.th |
| 2c6f60 | 69 6e 67 73 2e 22 0a 20 20 28 77 68 65 6e 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e | ings."...(when.*emacs-connection |
| 2c6f80 | 2a 0a 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 62 61 63 6b 67 72 6f 75 | *.....(send-to-emacs.`(:backgrou |
| 2c6fa0 | 6e 64 2d 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd-message...................... |
| 2c6fc0 | 2c 28 61 70 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 6e 69 6c 20 66 6f 72 6d 61 74 2d 73 74 72 69 | ,(apply.#'format.nil.format-stri |
| 2c6fe0 | 6e 67 20 61 72 67 73 29 29 29 29 29 0a 0a 3b 3b 20 54 68 69 73 20 69 73 20 6f 6e 6c 79 20 75 73 | ng.args)))))..;;.This.is.only.us |
| 2c7000 | 65 64 20 62 79 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 2e 0a 28 64 65 66 75 6e 20 73 6c 65 | ed.by.the.test.suite..(defun.sle |
| 2c7020 | 65 70 2d 66 6f 72 20 28 73 65 63 6f 6e 64 73 29 0a 20 20 22 53 6c 65 65 70 20 66 6f 72 20 61 74 | ep-for.(seconds)..."Sleep.for.at |
| 2c7040 | 20 6c 65 61 73 74 20 53 45 43 4f 4e 44 53 20 73 65 63 6f 6e 64 73 2e 0a 54 68 69 73 20 69 73 20 | .least.SECONDS.seconds..This.is. |
| 2c7060 | 6a 75 73 74 20 6c 69 6b 65 20 63 6c 3a 73 6c 65 65 70 20 62 75 74 20 67 75 61 72 61 6e 74 65 65 | just.like.cl:sleep.but.guarantee |
| 2c7080 | 73 20 74 6f 20 73 6c 65 65 70 0a 61 74 20 6c 65 61 73 74 20 53 45 43 4f 4e 44 53 2e 22 0a 20 20 | s.to.sleep.at.least.SECONDS."... |
| 2c70a0 | 28 6c 65 74 2a 20 28 28 73 74 61 72 74 20 28 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 65 61 6c | (let*.((start.(get-internal-real |
| 2c70c0 | 2d 74 69 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 2b 20 73 74 61 72 74 0a 20 | -time))..........(end.(+.start.. |
| 2c70e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 73 65 63 6f 6e 64 73 20 69 6e 74 65 72 | ................(*.seconds.inter |
| 2c7100 | 6e 61 6c 2d 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 29 29 29 29 0a 20 20 | nal-time-units-per-second))))... |
| 2c7120 | 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 28 6c 65 74 20 28 28 6e 6f 77 20 28 67 65 74 2d 69 6e 74 | ..(loop......(let.((now.(get-int |
| 2c7140 | 65 72 6e 61 6c 2d 72 65 61 6c 2d 74 69 6d 65 29 29 29 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 20 | ernal-real-time)))........(cond. |
| 2c7160 | 28 28 3c 20 65 6e 64 20 6e 6f 77 29 20 28 72 65 74 75 72 6e 29 29 0a 20 20 20 20 20 20 20 20 20 | ((<.end.now).(return)).......... |
| 2c7180 | 20 20 20 20 28 74 20 28 73 6c 65 65 70 20 28 2f 20 28 2d 20 65 6e 64 20 6e 6f 77 29 0a 20 20 20 | ....(t.(sleep.(/.(-.end.now).... |
| 2c71a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 6e 61 6c 2d | .......................internal- |
| 2c71c0 | 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 29 29 29 29 29 29 29 29 0a 0a 0c | time-units-per-second))))))))... |
| 2c71e0 | 0a 3b 3b 3b 3b 20 44 65 62 75 67 67 65 72 0a 0a 28 64 65 66 75 6e 20 69 6e 76 6f 6b 65 2d 73 6c | .;;;;.Debugger..(defun.invoke-sl |
| 2c7200 | 69 6d 65 2d 64 65 62 75 67 67 65 72 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 53 65 6e 64 | ime-debugger.(condition)..."Send |
| 2c7220 | 73 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 45 6d 61 63 73 20 64 65 63 6c 61 72 69 6e 67 20 74 | s.a.message.to.Emacs.declaring.t |
| 2c7240 | 68 61 74 20 74 68 65 20 64 65 62 75 67 67 65 72 20 68 61 73 20 62 65 65 6e 20 65 6e 74 65 72 65 | hat.the.debugger.has.been.entere |
| 2c7260 | 64 2c 0a 74 68 65 6e 20 77 61 69 74 73 20 74 6f 20 68 61 6e 64 6c 65 20 66 75 72 74 68 65 72 20 | d,.then.waits.to.handle.further. |
| 2c7280 | 72 65 71 75 65 73 74 73 20 66 72 6f 6d 20 45 6d 61 63 73 2e 20 45 76 65 6e 74 75 61 6c 6c 79 20 | requests.from.Emacs..Eventually. |
| 2c72a0 | 72 65 74 75 72 6e 73 0a 61 66 74 65 72 20 45 6d 61 63 73 20 63 61 75 73 65 73 20 61 20 72 65 73 | returns.after.Emacs.causes.a.res |
| 2c72c0 | 74 61 72 74 20 74 6f 20 62 65 20 69 6e 76 6f 6b 65 64 2e 22 0a 20 20 28 77 69 74 68 6f 75 74 2d | tart.to.be.invoked."...(without- |
| 2c72e0 | 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 28 63 6f 6e 64 20 28 2a 65 6d 61 | slime-interrupts.....(cond.(*ema |
| 2c7300 | 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 | cs-connection*............(debug |
| 2c7320 | 2d 69 6e 2d 65 6d 61 63 73 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -in-emacs.condition))........... |
| 2c7340 | 28 28 64 65 66 61 75 6c 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 | ((default-connection)........... |
| 2c7360 | 20 28 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 28 64 65 66 61 75 6c 74 2d 63 6f 6e 6e | .(with-connection.((default-conn |
| 2c7380 | 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 2d 69 6e 2d | ection))..............(debug-in- |
| 2c73a0 | 65 6d 61 63 73 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 63 | emacs.condition))))))..(define-c |
| 2c73c0 | 6f 6e 64 69 74 69 6f 6e 20 69 6e 76 6f 6b 65 2d 64 65 66 61 75 6c 74 2d 64 65 62 75 67 67 65 72 | ondition.invoke-default-debugger |
| 2c73e0 | 20 28 29 20 28 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d 68 | .().())..(defun.swank-debugger-h |
| 2c7400 | 6f 6f 6b 20 28 63 6f 6e 64 69 74 69 6f 6e 20 68 6f 6f 6b 29 0a 20 20 22 44 65 62 75 67 67 65 72 | ook.(condition.hook)..."Debugger |
| 2c7420 | 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 62 69 6e 64 69 6e 67 20 2a 44 45 42 55 47 47 45 52 2d | .function.for.binding.*DEBUGGER- |
| 2c7440 | 48 4f 4f 4b 2a 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 68 6f 6f 6b 29 | HOOK*."...(declare.(ignore.hook) |
| 2c7460 | 29 0a 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 | )...(handler-case.......(call-wi |
| 2c7480 | 74 68 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 23 27 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 | th-debugger-hook.#'swank-debugge |
| 2c74a0 | 72 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-hook.......................... |
| 2c74c0 | 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 69 6e 76 6f 6b 65 2d 73 6c 69 6d 65 2d 64 | ......(lambda.().(invoke-slime-d |
| 2c74e0 | 65 62 75 67 67 65 72 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 69 6e 76 6f 6b 65 | ebugger.condition))).....(invoke |
| 2c7500 | 2d 64 65 66 61 75 6c 74 2d 64 65 62 75 67 67 65 72 20 28 29 0a 20 20 20 20 20 20 28 69 6e 76 6f | -default-debugger.().......(invo |
| 2c7520 | 6b 65 2d 64 65 66 61 75 6c 74 2d 64 65 62 75 67 67 65 72 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 | ke-default-debugger.condition))) |
| 2c7540 | 29 0a 0a 28 64 65 66 75 6e 20 69 6e 76 6f 6b 65 2d 64 65 66 61 75 6c 74 2d 64 65 62 75 67 67 65 | )..(defun.invoke-default-debugge |
| 2c7560 | 72 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 | r.(condition)...(call-with-debug |
| 2c7580 | 67 65 72 2d 68 6f 6f 6b 20 6e 69 6c 20 28 6c 61 6d 62 64 61 20 28 29 20 28 69 6e 76 6f 6b 65 2d | ger-hook.nil.(lambda.().(invoke- |
| 2c75a0 | 64 65 62 75 67 67 65 72 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 0a 20 20 0a 28 64 65 66 76 61 | debugger.condition))))....(defva |
| 2c75c0 | 72 20 2a 67 6c 6f 62 61 6c 2d 64 65 62 75 67 67 65 72 2a 20 74 0a 20 20 22 4e 6f 6e 2d 6e 69 6c | r.*global-debugger*.t..."Non-nil |
| 2c75e0 | 20 6d 65 61 6e 73 20 74 68 65 20 53 77 61 6e 6b 20 64 65 62 75 67 67 65 72 20 68 6f 6f 6b 20 77 | .means.the.Swank.debugger.hook.w |
| 2c7600 | 69 6c 6c 20 62 65 20 69 6e 73 74 61 6c 6c 65 64 20 67 6c 6f 62 61 6c 6c 79 2e 22 29 0a 0a 28 61 | ill.be.installed.globally.")..(a |
| 2c7620 | 64 64 2d 68 6f 6f 6b 20 2a 6e 65 77 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 68 6f 6f 6b 2a 20 27 69 | dd-hook.*new-connection-hook*.'i |
| 2c7640 | 6e 73 74 61 6c 6c 2d 64 65 62 75 67 67 65 72 29 0a 28 64 65 66 75 6e 20 69 6e 73 74 61 6c 6c 2d | nstall-debugger).(defun.install- |
| 2c7660 | 64 65 62 75 67 67 65 72 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 28 64 65 63 6c 61 72 65 | debugger.(connection)...(declare |
| 2c7680 | 20 28 69 67 6e 6f 72 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 28 77 68 65 6e 20 2a 67 | .(ignore.connection))...(when.*g |
| 2c76a0 | 6c 6f 62 61 6c 2d 64 65 62 75 67 67 65 72 2a 0a 20 20 20 20 28 69 6e 73 74 61 6c 6c 2d 64 65 62 | lobal-debugger*.....(install-deb |
| 2c76c0 | 75 67 67 65 72 2d 67 6c 6f 62 61 6c 6c 79 20 23 27 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d | ugger-globally.#'swank-debugger- |
| 2c76e0 | 68 6f 6f 6b 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 44 65 62 75 67 67 65 72 20 6c 6f 6f 70 0a 3b 3b 3b | hook)))..;;;;;.Debugger.loop.;;; |
| 2c7700 | 0a 3b 3b 3b 20 54 68 65 73 65 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 64 79 6e 61 6d 69 63 | .;;;.These.variables.are.dynamic |
| 2c7720 | 61 6c 6c 79 20 62 6f 75 6e 64 20 64 75 72 69 6e 67 20 64 65 62 75 67 67 69 6e 67 2e 0a 3b 3b 3b | ally.bound.during.debugging..;;; |
| 2c7740 | 0a 28 64 65 66 76 61 72 20 2a 73 6c 64 62 2d 6c 65 76 65 6c 2a 20 30 0a 20 20 22 54 68 65 20 63 | .(defvar.*sldb-level*.0..."The.c |
| 2c7760 | 75 72 72 65 6e 74 20 6c 65 76 65 6c 20 6f 66 20 72 65 63 75 72 73 69 76 65 20 64 65 62 75 67 67 | urrent.level.of.recursive.debugg |
| 2c7780 | 69 6e 67 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c 64 62 2d 69 6e 69 74 69 61 6c 2d 66 72 | ing.")..(defvar.*sldb-initial-fr |
| 2c77a0 | 61 6d 65 73 2a 20 32 30 0a 20 20 22 54 68 65 20 69 6e 69 74 69 61 6c 20 6e 75 6d 62 65 72 20 6f | ames*.20..."The.initial.number.o |
| 2c77c0 | 66 20 62 61 63 6b 74 72 61 63 65 20 66 72 61 6d 65 73 20 74 6f 20 73 65 6e 64 20 74 6f 20 45 6d | f.backtrace.frames.to.send.to.Em |
| 2c77e0 | 61 63 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c 64 62 2d 72 65 73 74 61 72 74 73 2a 20 | acs.")..(defvar.*sldb-restarts*. |
| 2c7800 | 6e 69 6c 0a 20 20 22 54 68 65 20 6c 69 73 74 20 6f 66 20 63 75 72 72 65 6e 6c 74 79 20 61 63 74 | nil..."The.list.of.currenlty.act |
| 2c7820 | 69 76 65 20 72 65 73 74 61 72 74 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c 64 62 2d 73 | ive.restarts.")..(defvar.*sldb-s |
| 2c7840 | 74 65 70 70 69 6e 67 2d 70 2a 20 6e 69 6c 0a 20 20 22 54 72 75 65 20 64 75 72 69 6e 67 20 65 78 | tepping-p*.nil..."True.during.ex |
| 2c7860 | 65 63 75 74 69 6f 6e 20 6f 66 20 61 20 73 74 65 70 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a 0a 28 64 | ecution.of.a.step.command.")..(d |
| 2c7880 | 65 66 75 6e 20 64 65 62 75 67 2d 69 6e 2d 65 6d 61 63 73 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a | efun.debug-in-emacs.(condition). |
| 2c78a0 | 20 20 28 6c 65 74 20 28 28 2a 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d 63 6f 6e 64 69 74 69 | ..(let.((*swank-debugger-conditi |
| 2c78c0 | 6f 6e 2a 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 2a 73 6c 64 62 2d 72 65 | on*.condition).........(*sldb-re |
| 2c78e0 | 73 74 61 72 74 73 2a 20 28 63 6f 6d 70 75 74 65 2d 72 65 73 74 61 72 74 73 20 63 6f 6e 64 69 74 | starts*.(compute-restarts.condit |
| 2c7900 | 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 2a 73 6c 64 62 2d 71 75 69 74 2d 72 65 73 74 61 72 | ion)).........(*sldb-quit-restar |
| 2c7920 | 74 2a 20 28 61 6e 64 20 2a 73 6c 64 62 2d 71 75 69 74 2d 72 65 73 74 61 72 74 2a 0a 20 20 20 20 | t*.(and.*sldb-quit-restart*..... |
| 2c7940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | ..............................(f |
| 2c7960 | 69 6e 64 2d 72 65 73 74 61 72 74 20 2a 73 6c 64 62 2d 71 75 69 74 2d 72 65 73 74 61 72 74 2a 29 | ind-restart.*sldb-quit-restart*) |
| 2c7980 | 29 29 0a 20 20 20 20 20 20 20 20 28 2a 70 61 63 6b 61 67 65 2a 20 28 6f 72 20 28 61 6e 64 20 28 | )).........(*package*.(or.(and.( |
| 2c79a0 | 62 6f 75 6e 64 70 20 27 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 0a 20 20 20 20 20 20 | boundp.'*buffer-package*)....... |
| 2c79c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 76 61 | ......................(symbol-va |
| 2c79e0 | 6c 75 65 20 27 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 29 0a 20 20 20 20 20 20 20 20 | lue.'*buffer-package*))......... |
| 2c7a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 70 61 63 6b 61 67 65 2a 29 29 0a 20 20 20 20 20 | ...............*package*))...... |
| 2c7a20 | 20 20 20 28 2a 73 6c 64 62 2d 6c 65 76 65 6c 2a 20 28 31 2b 20 2a 73 6c 64 62 2d 6c 65 76 65 6c | ...(*sldb-level*.(1+.*sldb-level |
| 2c7a40 | 2a 29 29 0a 20 20 20 20 20 20 20 20 28 2a 73 6c 64 62 2d 73 74 65 70 70 69 6e 67 2d 70 2a 20 6e | *)).........(*sldb-stepping-p*.n |
| 2c7a60 | 69 6c 29 29 0a 20 20 20 20 28 66 6f 72 63 65 2d 75 73 65 72 2d 6f 75 74 70 75 74 29 0a 20 20 20 | il)).....(force-user-output).... |
| 2c7a80 | 20 28 63 61 6c 6c 2d 77 69 74 68 2d 64 65 62 75 67 67 69 6e 67 2d 65 6e 76 69 72 6f 6e 6d 65 6e | .(call-with-debugging-environmen |
| 2c7aa0 | 74 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 28 73 6c 64 62 2d 6c | t......(lambda.()........(sldb-l |
| 2c7ac0 | 6f 6f 70 20 2a 73 6c 64 62 2d 6c 65 76 65 6c 2a 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c | oop.*sldb-level*)))))..(defun.sl |
| 2c7ae0 | 64 62 2d 6c 6f 6f 70 20 28 6c 65 76 65 6c 29 0a 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 | db-loop.(level)...(unwind-protec |
| 2c7b00 | 74 0a 20 20 20 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 69 6d | t........(loop.........(with-sim |
| 2c7b20 | 70 6c 65 2d 72 65 73 74 61 72 74 20 28 61 62 6f 72 74 20 22 52 65 74 75 72 6e 20 74 6f 20 73 6c | ple-restart.(abort."Return.to.sl |
| 2c7b40 | 64 62 20 6c 65 76 65 6c 20 7e 44 2e 22 20 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 | db.level.~D.".level)...........( |
| 2c7b60 | 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 | send-to-emacs............(list*. |
| 2c7b80 | 3a 64 65 62 75 67 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 29 20 6c 65 76 65 6c | :debug.(current-thread-id).level |
| 2c7ba0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 67 65 72 2d 69 6e 66 | ...................(debugger-inf |
| 2c7bc0 | 6f 2d 66 6f 72 2d 65 6d 61 63 73 20 30 20 2a 73 6c 64 62 2d 69 6e 69 74 69 61 6c 2d 66 72 61 6d | o-for-emacs.0.*sldb-initial-fram |
| 2c7be0 | 65 73 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 | es*)))...........(send-to-emacs. |
| 2c7c00 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 3a 64 65 62 75 67 2d 61 63 74 69 76 61 74 | ............(list.:debug-activat |
| 2c7c20 | 65 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 29 20 6c 65 76 65 6c 20 6e 69 6c 29 | e.(current-thread-id).level.nil) |
| 2c7c40 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 0a 20 20 20 20 20 20 20 20 20 20 20 28 68 | )...........(loop.............(h |
| 2c7c60 | 61 6e 64 6c 65 72 2d 63 61 73 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 63 61 | andler-case.................(dca |
| 2c7c80 | 73 65 20 28 77 61 69 74 2d 66 6f 72 2d 65 76 65 6e 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 | se.(wait-for-event.............. |
| 2c7ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6f 72 20 28 3a 65 6d 61 | ......................`(or.(:ema |
| 2c7cc0 | 63 73 2d 72 65 78 20 2e 20 5f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cs-rex..._)..................... |
| 2c7ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 73 6c 64 62 2d 72 65 74 75 72 6e | ...................(:sldb-return |
| 2c7d00 | 20 2c 28 31 2b 20 6c 65 76 65 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .,(1+.level))))................. |
| 2c7d20 | 20 28 28 3a 65 6d 61 63 73 2d 72 65 78 20 26 72 65 73 74 20 61 72 67 73 29 20 28 61 70 70 6c 79 | .((:emacs-rex.&rest.args).(apply |
| 2c7d40 | 20 23 27 65 76 61 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 | .#'eval-for-emacs.args))........ |
| 2c7d60 | 20 20 20 20 20 20 20 20 20 20 28 28 3a 73 6c 64 62 2d 72 65 74 75 72 6e 20 5f 29 20 28 64 65 63 | ..........((:sldb-return._).(dec |
| 2c7d80 | 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 5f 29 29 20 28 72 65 74 75 72 6e 20 6e 69 6c 29 29 29 0a | lare.(ignore._)).(return.nil))). |
| 2c7da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 29 | .............(sldb-condition.(c) |
| 2c7dc0 | 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 2d 73 6c 64 62 2d 63 6f | .................(handle-sldb-co |
| 2c7de0 | 6e 64 69 74 69 6f 6e 20 63 29 29 29 29 29 29 0a 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 | ndition.c)))))).....(send-to-ema |
| 2c7e00 | 63 73 20 60 28 3a 64 65 62 75 67 2d 72 65 74 75 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | cs.`(:debug-return.............. |
| 2c7e20 | 20 20 20 20 20 20 20 20 2c 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 64 29 20 2c 6c 65 | ........,(current-thread-id).,le |
| 2c7e40 | 76 65 6c 20 2c 2a 73 6c 64 62 2d 73 74 65 70 70 69 6e 67 2d 70 2a 29 29 0a 20 20 20 20 28 77 61 | vel.,*sldb-stepping-p*)).....(wa |
| 2c7e60 | 69 74 2d 66 6f 72 2d 65 76 65 6e 74 20 60 28 3a 73 6c 64 62 2d 72 65 74 75 72 6e 20 2c 28 31 2b | it-for-event.`(:sldb-return.,(1+ |
| 2c7e80 | 20 6c 65 76 65 6c 29 29 20 74 29 20 3b 20 63 6c 65 61 6e 20 65 76 65 6e 74 2d 71 75 65 75 65 0a | .level)).t).;.clean.event-queue. |
| 2c7ea0 | 20 20 20 20 28 77 68 65 6e 20 28 3e 20 6c 65 76 65 6c 20 31 29 0a 20 20 20 20 20 20 28 73 65 6e | ....(when.(>.level.1).......(sen |
| 2c7ec0 | 64 2d 65 76 65 6e 74 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 60 28 3a 73 6c 64 62 | d-event.(current-thread).`(:sldb |
| 2c7ee0 | 2d 72 65 74 75 72 6e 20 2c 6c 65 76 65 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 68 61 6e 64 | -return.,level)))))..(defun.hand |
| 2c7f00 | 6c 65 2d 73 6c 64 62 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 | le-sldb-condition.(condition)... |
| 2c7f20 | 22 48 61 6e 64 6c 65 20 61 6e 20 69 6e 74 65 72 6e 61 6c 20 64 65 62 75 67 67 65 72 20 63 6f 6e | "Handle.an.internal.debugger.con |
| 2c7f40 | 64 69 74 69 6f 6e 2e 0a 52 61 74 68 65 72 20 74 68 61 6e 20 72 65 63 75 72 73 69 76 65 6c 79 20 | dition..Rather.than.recursively. |
| 2c7f60 | 64 65 62 75 67 20 74 68 65 20 64 65 62 75 67 67 65 72 20 28 61 20 64 61 6e 67 65 72 6f 75 73 20 | debug.the.debugger.(a.dangerous. |
| 2c7f80 | 69 64 65 61 21 29 2c 20 74 68 65 73 65 0a 63 6f 6e 64 69 74 69 6f 6e 73 20 61 72 65 20 73 69 6d | idea!),.these.conditions.are.sim |
| 2c7fa0 | 70 6c 79 20 72 65 70 6f 72 74 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 72 65 61 6c 2d 63 6f 6e | ply.reported."...(let.((real-con |
| 2c7fc0 | 64 69 74 69 6f 6e 20 28 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 | dition.(original-condition.condi |
| 2c7fe0 | 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 3a 64 65 | tion))).....(send-to-emacs.`(:de |
| 2c8000 | 62 75 67 2d 63 6f 6e 64 69 74 69 6f 6e 20 2c 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 2d 69 | bug-condition.,(current-thread-i |
| 2c8020 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d).............................. |
| 2c8040 | 20 20 20 20 20 20 20 20 20 2c 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 72 65 61 6c 2d | .........,(princ-to-string.real- |
| 2c8060 | 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 25 25 63 6f 6e 64 69 74 69 | condition)))))..(defun.%%conditi |
| 2c8080 | 6f 6e 2d 6d 65 73 73 61 67 65 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 | on-message.(condition)...(let.(( |
| 2c80a0 | 6c 69 6d 69 74 20 28 61 73 68 20 31 20 31 36 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 73 74 72 | limit.(ash.1.16))).....(with-str |
| 2c80c0 | 69 6e 67 2d 73 74 72 65 61 6d 20 28 73 74 72 65 61 6d 20 3a 6c 65 6e 67 74 68 20 6c 69 6d 69 74 | ing-stream.(stream.:length.limit |
| 2c80e0 | 29 0a 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 0a 20 20 20 20 20 20 20 20 20 20 | ).......(handler-case........... |
| 2c8100 | 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 20 6e 69 6c 29 0a 20 20 20 | (let.((*print-readably*.nil).... |
| 2c8120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a 20 74 29 0a | .............(*print-pretty*.t). |
| 2c8140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 | ................(*print-right-ma |
| 2c8160 | 72 67 69 6e 2a 20 36 35 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 70 72 69 6e | rgin*.65).................(*prin |
| 2c8180 | 74 2d 63 69 72 63 6c 65 2a 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 70 | t-circle*.t).................(*p |
| 2c81a0 | 72 69 6e 74 2d 6c 65 6e 67 74 68 2a 20 28 6f 72 20 2a 70 72 69 6e 74 2d 6c 65 6e 67 74 68 2a 20 | rint-length*.(or.*print-length*. |
| 2c81c0 | 36 34 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 28 73 77 61 6e 6b 2f | 64)).................#+#.(swank/ |
| 2c81e0 | 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 2a 70 72 69 6e 74 2d 76 65 63 74 | backend:with-symbol.'*print-vect |
| 2c8200 | 6f 72 2d 6c 65 6e 67 74 68 2a 20 27 73 62 2d 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | or-length*.'sb-ext)............. |
| 2c8220 | 20 20 20 20 28 73 62 2d 65 78 74 3a 2a 70 72 69 6e 74 2d 76 65 63 74 6f 72 2d 6c 65 6e 67 74 68 | ....(sb-ext:*print-vector-length |
| 2c8240 | 2a 20 28 6f 72 20 73 62 2d 65 78 74 3a 2a 70 72 69 6e 74 2d 76 65 63 74 6f 72 2d 6c 65 6e 67 74 | *.(or.sb-ext:*print-vector-lengt |
| 2c8260 | 68 2a 20 31 30 30 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 70 72 69 6e | h*.1000)).................(*prin |
| 2c8280 | 74 2d 6c 65 76 65 6c 2a 20 28 6f 72 20 2a 70 72 69 6e 74 2d 6c 65 76 65 6c 2a 20 36 29 29 0a 20 | t-level*.(or.*print-level*.6)).. |
| 2c82a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 70 72 69 6e 74 2d 6c 69 6e 65 73 2a 20 28 6f | ...............(*print-lines*.(o |
| 2c82c0 | 72 20 2a 70 72 69 6e 74 2d 6c 69 6e 65 73 2a 20 6c 69 6d 69 74 29 29 29 0a 20 20 20 20 20 20 20 | r.*print-lines*.limit)))........ |
| 2c82e0 | 20 20 20 20 20 28 70 72 69 6e 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 20 | .....(print-condition.condition. |
| 2c8300 | 73 74 72 65 61 6d 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 72 69 6f 75 73 2d 63 6f 6e 64 69 74 | stream)).........(serious-condit |
| 2c8320 | 69 6f 6e 20 28 63 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 | ion.(c)...........(ignore-errors |
| 2c8340 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 | .............(with-standard-io-s |
| 2c8360 | 79 6e 74 61 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e | yntax...............(let.((*prin |
| 2c8380 | 74 2d 72 65 61 64 61 62 6c 79 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-readably*.nil))............... |
| 2c83a0 | 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 26 45 72 72 6f 72 20 28 7e 61 29 20 64 | ..(format.stream."~&Error.(~a).d |
| 2c83c0 | 75 72 69 6e 67 20 70 72 69 6e 74 69 6e 67 3a 20 22 20 28 74 79 70 65 2d 6f 66 20 63 29 29 0a 20 | uring.printing:.".(type-of.c)).. |
| 2c83e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 | ...............(print-unreadable |
| 2c8400 | 2d 6f 62 6a 65 63 74 20 28 63 6f 6e 64 69 74 69 6f 6e 20 73 74 72 65 61 6d 20 3a 74 79 70 65 20 | -object.(condition.stream.:type. |
| 2c8420 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t............................... |
| 2c8440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 64 65 6e 74 69 74 79 20 | ......................:identity. |
| 2c8460 | 74 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 25 63 6f 6e 64 69 74 69 6f 6e 2d 6d | t))))))))))..(defun.%condition-m |
| 2c8480 | 65 73 73 61 67 65 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 28 73 74 72 69 6e 67 2d 74 72 69 | essage.(condition)...(string-tri |
| 2c84a0 | 6d 20 23 28 23 5c 6e 65 77 6c 69 6e 65 20 23 5c 73 70 61 63 65 20 23 5c 74 61 62 29 0a 20 20 20 | m.#(#\newline.#\space.#\tab).... |
| 2c84c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 25 25 63 6f 6e 64 69 74 69 6f 6e 2d 6d 65 73 73 61 67 65 | ............(%%condition-message |
| 2c84e0 | 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 73 6c 64 62 2d 63 6f 6e | .condition)))..(defvar.*sldb-con |
| 2c8500 | 64 69 74 69 6f 6e 2d 70 72 69 6e 74 65 72 2a 20 23 27 25 63 6f 6e 64 69 74 69 6f 6e 2d 6d 65 73 | dition-printer*.#'%condition-mes |
| 2c8520 | 73 61 67 65 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 65 64 20 74 6f 20 70 72 69 6e 74 | sage..."Function.called.to.print |
| 2c8540 | 20 61 20 63 6f 6e 64 69 74 69 6f 6e 20 74 6f 20 61 6e 20 53 4c 44 42 20 62 75 66 66 65 72 2e 22 | .a.condition.to.an.SLDB.buffer." |
| 2c8560 | 29 0a 0a 28 64 65 66 75 6e 20 73 61 66 65 2d 63 6f 6e 64 69 74 69 6f 6e 2d 6d 65 73 73 61 67 65 | )..(defun.safe-condition-message |
| 2c8580 | 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 50 72 69 6e 74 20 63 6f 6e 64 69 74 69 6f 6e 20 | .(condition)..."Print.condition. |
| 2c85a0 | 74 6f 20 61 20 73 74 72 69 6e 67 2c 20 68 61 6e 64 6c 69 6e 67 20 61 6e 79 20 65 72 72 6f 72 73 | to.a.string,.handling.any.errors |
| 2c85c0 | 20 64 75 72 69 6e 67 20 70 72 69 6e 74 69 6e 67 2e 22 0a 20 20 28 66 75 6e 63 61 6c 6c 20 2a 73 | .during.printing."...(funcall.*s |
| 2c85e0 | 6c 64 62 2d 63 6f 6e 64 69 74 69 6f 6e 2d 70 72 69 6e 74 65 72 2a 20 63 6f 6e 64 69 74 69 6f 6e | ldb-condition-printer*.condition |
| 2c8600 | 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 67 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f | ))..(defun.debugger-condition-fo |
| 2c8620 | 72 2d 65 6d 61 63 73 20 28 29 0a 20 20 28 6c 69 73 74 20 28 73 61 66 65 2d 63 6f 6e 64 69 74 69 | r-emacs.()...(list.(safe-conditi |
| 2c8640 | 6f 6e 2d 6d 65 73 73 61 67 65 20 2a 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d 63 6f 6e 64 69 | on-message.*swank-debugger-condi |
| 2c8660 | 74 69 6f 6e 2a 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 20 20 20 5b | tion*).........(format.nil."...[ |
| 2c8680 | 43 6f 6e 64 69 74 69 6f 6e 20 6f 66 20 74 79 70 65 20 7e 53 5d 22 0a 20 20 20 20 20 20 20 20 20 | Condition.of.type.~S]".......... |
| 2c86a0 | 20 20 20 20 20 20 20 28 74 79 70 65 2d 6f 66 20 2a 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d | .......(type-of.*swank-debugger- |
| 2c86c0 | 63 6f 6e 64 69 74 69 6f 6e 2a 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d | condition*)).........(condition- |
| 2c86e0 | 65 78 74 72 61 73 20 2a 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d 63 6f 6e 64 69 74 69 6f 6e | extras.*swank-debugger-condition |
| 2c8700 | 2a 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 6d 61 74 2d 72 65 73 74 61 72 74 73 2d 66 6f 72 | *)))..(defun.format-restarts-for |
| 2c8720 | 2d 65 6d 61 63 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 72 65 | -emacs.()..."Return.a.list.of.re |
| 2c8740 | 73 74 61 72 74 73 20 66 6f 72 20 2a 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d 63 6f 6e 64 69 | starts.for.*swank-debugger-condi |
| 2c8760 | 74 69 6f 6e 2a 20 69 6e 20 61 0a 66 6f 72 6d 61 74 20 73 75 69 74 61 62 6c 65 20 66 6f 72 20 45 | tion*.in.a.format.suitable.for.E |
| 2c8780 | 6d 61 63 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 | macs."...(let.((*print-right-mar |
| 2c87a0 | 67 69 6e 2a 20 6d 6f 73 74 2d 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d 29 29 0a 20 20 20 20 | gin*.most-positive-fixnum))..... |
| 2c87c0 | 28 6c 6f 6f 70 20 66 6f 72 20 72 65 73 74 61 72 74 20 69 6e 20 2a 73 6c 64 62 2d 72 65 73 74 61 | (loop.for.restart.in.*sldb-resta |
| 2c87e0 | 72 74 73 2a 20 63 6f 6c 6c 65 63 74 20 0a 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 66 | rts*.collect............(list.(f |
| 2c8800 | 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 3a 5b 7e 3b 2a 7e 5d 7e 61 22 20 0a 20 20 20 20 20 20 20 20 | ormat.nil."~:[~;*~]~a".......... |
| 2c8820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 72 65 73 74 61 72 74 20 2a 73 6c 64 | ................(eq.restart.*sld |
| 2c8840 | 62 2d 71 75 69 74 2d 72 65 73 74 61 72 74 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | b-quit-restart*)................ |
| 2c8860 | 20 20 20 20 20 20 20 20 20 28 72 65 73 74 61 72 74 2d 6e 61 6d 65 20 72 65 73 74 61 72 74 29 29 | .........(restart-name.restart)) |
| 2c8880 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f | .................(with-output-to |
| 2c88a0 | 2d 73 74 72 69 6e 67 20 28 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -string.(stream)................ |
| 2c88c0 | 20 20 20 28 77 69 74 68 6f 75 74 2d 70 72 69 6e 74 69 6e 67 2d 65 72 72 6f 72 73 20 28 3a 6f 62 | ...(without-printing-errors.(:ob |
| 2c88e0 | 6a 65 63 74 20 72 65 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ject.restart.................... |
| 2c8900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 74 72 65 61 6d | .........................:stream |
| 2c8920 | 20 73 74 72 65 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .stream......................... |
| 2c8940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 73 67 20 22 3c 3c 65 72 72 6f | ....................:msg."<<erro |
| 2c8960 | 72 20 70 72 69 6e 74 69 6e 67 20 72 65 73 74 61 72 74 3e 3e 22 29 0a 20 20 20 20 20 20 20 20 20 | r.printing.restart>>").......... |
| 2c8980 | 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 63 20 72 65 73 74 61 72 74 20 73 74 72 65 61 6d | ...........(princ.restart.stream |
| 2c89a0 | 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 53 4c 44 42 20 65 6e 74 72 79 20 70 6f 69 6e 74 73 | )))))))..;;;;;.SLDB.entry.points |
| 2c89c0 | 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 6c 64 62 2d 62 72 65 61 6b 2d 77 69 74 68 2d 64 | ..(defslimefun.sldb-break-with-d |
| 2c89e0 | 65 66 61 75 6c 74 2d 64 65 62 75 67 67 65 72 20 28 64 6f 6e 74 2d 75 6e 77 69 6e 64 29 0a 20 20 | efault-debugger.(dont-unwind)... |
| 2c8a00 | 22 49 6e 76 6f 6b 65 20 74 68 65 20 64 65 66 61 75 6c 74 20 64 65 62 75 67 67 65 72 2e 22 0a 20 | "Invoke.the.default.debugger.".. |
| 2c8a20 | 20 28 63 6f 6e 64 20 28 64 6f 6e 74 2d 75 6e 77 69 6e 64 20 0a 20 20 20 20 20 20 20 20 20 28 69 | .(cond.(dont-unwind...........(i |
| 2c8a40 | 6e 76 6f 6b 65 2d 64 65 66 61 75 6c 74 2d 64 65 62 75 67 67 65 72 20 2a 73 77 61 6e 6b 2d 64 65 | nvoke-default-debugger.*swank-de |
| 2c8a60 | 62 75 67 67 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 | bugger-condition*)).........(t.. |
| 2c8a80 | 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 27 69 6e 76 6f 6b 65 2d 64 65 66 61 75 6c 74 2d | ........(signal.'invoke-default- |
| 2c8aa0 | 64 65 62 75 67 67 65 72 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 62 61 63 6b 74 | debugger))))..(defslimefun.backt |
| 2c8ac0 | 72 61 63 65 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 | race.(start.end)..."Return.a.lis |
| 2c8ae0 | 74 20 28 28 49 20 46 52 41 4d 45 20 50 4c 49 53 54 29 20 2e 2e 2e 29 20 6f 66 20 66 72 61 6d 65 | t.((I.FRAME.PLIST)....).of.frame |
| 2c8b00 | 73 20 66 72 6f 6d 20 53 54 41 52 54 20 74 6f 20 45 4e 44 2e 0a 0a 49 20 69 73 20 61 6e 20 69 6e | s.from.START.to.END...I.is.an.in |
| 2c8b20 | 74 65 67 65 72 2c 20 61 6e 64 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 72 65 66 65 72 65 | teger,.and.can.be.used.to.refere |
| 2c8b40 | 6e 63 65 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 66 72 61 6d 65 0a 66 72 6f 6d | nce.the.corresponding.frame.from |
| 2c8b60 | 20 45 6d 61 63 73 3b 20 46 52 41 4d 45 20 69 73 20 61 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 | .Emacs;.FRAME.is.a.string.repres |
| 2c8b80 | 65 6e 74 61 74 69 6f 6e 20 6f 66 20 61 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 27 73 0a | entation.of.an.implementation's. |
| 2c8ba0 | 66 72 61 6d 65 2e 22 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 66 72 61 6d 65 20 69 6e 20 28 63 6f | frame."...(loop.for.frame.in.(co |
| 2c8bc0 | 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 20 20 20 | mpute-backtrace.start.end)...... |
| 2c8be0 | 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 73 74 61 72 74 20 63 6f 6c 6c 65 63 74 20 0a 20 20 20 | ...for.i.from.start.collect..... |
| 2c8c00 | 20 20 20 20 20 28 6c 69 73 74 2a 20 69 20 28 66 72 61 6d 65 2d 74 6f 2d 73 74 72 69 6e 67 20 66 | .....(list*.i.(frame-to-string.f |
| 2c8c20 | 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 63 61 73 65 20 28 66 72 61 | rame)................(ecase.(fra |
| 2c8c40 | 6d 65 2d 72 65 73 74 61 72 74 61 62 6c 65 2d 70 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 | me-restartable-p.frame)......... |
| 2c8c60 | 20 20 20 20 20 20 20 20 20 28 28 6e 69 6c 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .........((nil).nil)............ |
| 2c8c80 | 20 20 20 20 20 20 28 28 74 29 20 60 28 28 3a 72 65 73 74 61 72 74 61 62 6c 65 20 74 29 29 29 29 | ......((t).`((:restartable.t)))) |
| 2c8ca0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 66 72 61 | )))..(defun.frame-to-string.(fra |
| 2c8cc0 | 6d 65 29 0a 20 20 28 77 69 74 68 2d 73 74 72 69 6e 67 2d 73 74 72 65 61 6d 20 28 73 74 72 65 61 | me)...(with-string-stream.(strea |
| 2c8ce0 | 6d 20 3a 6c 65 6e 67 74 68 20 28 2a 20 28 6f 72 20 2a 70 72 69 6e 74 2d 6c 69 6e 65 73 2a 20 31 | m.:length.(*.(or.*print-lines*.1 |
| 2c8d00 | 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 2c8d20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 2a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 | ............(or.*print-right-mar |
| 2c8d40 | 67 69 6e 2a 20 31 30 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gin*.100))...................... |
| 2c8d60 | 20 20 20 20 20 20 20 20 20 3a 62 69 6e 64 69 6e 67 73 20 2a 62 61 63 6b 74 72 61 63 65 2d 70 72 | .........:bindings.*backtrace-pr |
| 2c8d80 | 69 6e 74 65 72 2d 62 69 6e 64 69 6e 67 73 2a 29 0a 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 | inter-bindings*).....(handler-ca |
| 2c8da0 | 73 65 20 28 70 72 69 6e 74 2d 66 72 61 6d 65 20 66 72 61 6d 65 20 73 74 72 65 61 6d 29 0a 20 20 | se.(print-frame.frame.stream)... |
| 2c8dc0 | 20 20 20 20 28 73 65 72 69 6f 75 73 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 29 0a 20 20 20 20 20 20 | ....(serious-condition.()....... |
| 2c8de0 | 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 5b 65 72 72 6f 72 20 70 72 69 6e 74 69 6e | ..(format.stream."[error.printin |
| 2c8e00 | 67 20 66 72 61 6d 65 5d 22 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 65 62 | g.frame]")))))..(defslimefun.deb |
| 2c8e20 | 75 67 67 65 72 2d 69 6e 66 6f 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 74 61 72 74 20 65 6e 64 29 | ugger-info-for-emacs.(start.end) |
| 2c8e40 | 0a 20 20 22 52 65 74 75 72 6e 20 64 65 62 75 67 67 65 72 20 73 74 61 74 65 2c 20 77 69 74 68 20 | ..."Return.debugger.state,.with. |
| 2c8e60 | 73 74 61 63 6b 20 66 72 61 6d 65 73 20 66 72 6f 6d 20 53 54 41 52 54 20 74 6f 20 45 4e 44 2e 0a | stack.frames.from.START.to.END.. |
| 2c8e80 | 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 6c 69 73 74 3a 0a 20 20 28 63 6f 6e 64 69 74 69 | The.result.is.a.list:...(conditi |
| 2c8ea0 | 6f 6e 20 28 7b 72 65 73 74 61 72 74 7d 2a 29 20 28 7b 73 74 61 63 6b 2d 66 72 61 6d 65 7d 2a 29 | on.({restart}*).({stack-frame}*) |
| 2c8ec0 | 20 28 63 6f 6e 74 2a 29 29 0a 77 68 65 72 65 0a 20 20 63 6f 6e 64 69 74 69 6f 6e 20 20 20 3a 3a | .(cont*)).where...condition...:: |
| 2c8ee0 | 3d 20 28 64 65 73 63 72 69 70 74 69 6f 6e 20 74 79 70 65 20 5b 65 78 74 72 61 5d 29 0a 20 20 72 | =.(description.type.[extra])...r |
| 2c8f00 | 65 73 74 61 72 74 20 20 20 20 20 3a 3a 3d 20 28 6e 61 6d 65 20 64 65 73 63 72 69 70 74 69 6f 6e | estart.....::=.(name.description |
| 2c8f20 | 29 0a 20 20 73 74 61 63 6b 2d 66 72 61 6d 65 20 3a 3a 3d 20 28 6e 75 6d 62 65 72 20 64 65 73 63 | )...stack-frame.::=.(number.desc |
| 2c8f40 | 72 69 70 74 69 6f 6e 20 5b 70 6c 69 73 74 5d 29 0a 20 20 65 78 74 72 61 20 20 20 20 20 20 20 3a | ription.[plist])...extra.......: |
| 2c8f60 | 3a 3d 20 28 3a 72 65 66 65 72 65 6e 63 65 73 20 61 6e 64 20 6f 74 68 65 72 20 72 61 6e 64 6f 6d | :=.(:references.and.other.random |
| 2c8f80 | 20 74 68 69 6e 67 73 29 0a 20 20 63 6f 6e 74 20 20 20 20 20 20 20 20 3a 3a 3d 20 63 6f 6e 74 69 | .things)...cont........::=.conti |
| 2c8fa0 | 6e 75 74 61 74 69 6f 6e 0a 20 20 70 6c 69 73 74 20 20 20 20 20 20 20 3a 3a 3d 20 28 3a 72 65 73 | nutation...plist.......::=.(:res |
| 2c8fc0 | 74 61 72 74 61 62 6c 65 20 7b 6e 69 6c 20 7c 20 74 20 7c 20 3a 75 6e 6b 6e 6f 77 6e 7d 29 0a 0a | tartable.{nil.|.t.|.:unknown}).. |
| 2c8fe0 | 63 6f 6e 64 69 74 69 6f 6e 2d 2d 2d 61 20 70 61 69 72 20 6f 66 20 73 74 72 69 6e 67 73 3a 20 6d | condition---a.pair.of.strings:.m |
| 2c9000 | 65 73 73 61 67 65 2c 20 61 6e 64 20 74 79 70 65 2e 20 20 49 66 20 73 68 6f 77 2d 73 6f 75 72 63 | essage,.and.type...If.show-sourc |
| 2c9020 | 65 20 69 73 0a 6e 6f 74 20 6e 69 6c 20 69 74 20 69 73 20 61 20 66 72 61 6d 65 20 6e 75 6d 62 65 | e.is.not.nil.it.is.a.frame.numbe |
| 2c9040 | 72 20 66 6f 72 20 77 68 69 63 68 20 74 68 65 20 73 6f 75 72 63 65 20 73 68 6f 75 6c 64 20 62 65 | r.for.which.the.source.should.be |
| 2c9060 | 20 64 69 73 70 6c 61 79 65 64 2e 0a 0a 72 65 73 74 61 72 74 2d 2d 2d 61 20 70 61 69 72 20 6f 66 | .displayed...restart---a.pair.of |
| 2c9080 | 20 73 74 72 69 6e 67 73 3a 20 72 65 73 74 61 72 74 20 6e 61 6d 65 2c 20 61 6e 64 20 64 65 73 63 | .strings:.restart.name,.and.desc |
| 2c90a0 | 72 69 70 74 69 6f 6e 2e 0a 0a 73 74 61 63 6b 2d 66 72 61 6d 65 2d 2d 2d 61 20 6e 75 6d 62 65 72 | ription...stack-frame---a.number |
| 2c90c0 | 20 66 72 6f 6d 20 7a 65 72 6f 20 28 74 68 65 20 74 6f 70 29 2c 20 61 6e 64 20 61 20 70 72 69 6e | .from.zero.(the.top),.and.a.prin |
| 2c90e0 | 74 65 64 0a 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 72 61 6d 65 27 | ted.representation.of.the.frame' |
| 2c9100 | 73 20 63 61 6c 6c 2e 0a 0a 63 6f 6e 74 69 6e 75 74 61 74 69 6f 6e 2d 2d 2d 74 68 65 20 69 64 20 | s.call...continutation---the.id. |
| 2c9120 | 6f 66 20 61 20 70 65 6e 64 69 6e 67 20 45 6d 61 63 73 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2e | of.a.pending.Emacs.continuation. |
| 2c9140 | 0a 0a 42 65 6c 6f 77 20 69 73 20 61 6e 20 65 78 61 6d 70 6c 65 20 72 65 74 75 72 6e 20 76 61 6c | ..Below.is.an.example.return.val |
| 2c9160 | 75 65 2e 20 49 6e 20 74 68 69 73 20 63 61 73 65 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 20 77 | ue..In.this.case.the.condition.w |
| 2c9180 | 61 73 20 61 0a 64 69 76 69 73 69 6f 6e 20 62 79 20 7a 65 72 6f 20 28 6d 75 6c 74 69 2d 6c 69 6e | as.a.division.by.zero.(multi-lin |
| 2c91a0 | 65 20 64 65 73 63 72 69 70 74 69 6f 6e 29 2c 20 61 6e 64 20 6f 6e 6c 79 20 6f 6e 65 20 66 72 61 | e.description),.and.only.one.fra |
| 2c91c0 | 6d 65 20 69 73 20 62 65 69 6e 67 0a 66 65 74 63 68 65 64 20 28 73 74 61 72 74 3d 30 2c 20 65 6e | me.is.being.fetched.(start=0,.en |
| 2c91e0 | 64 3d 31 29 2e 0a 0a 20 28 28 5c 22 41 72 69 74 68 6d 65 74 69 63 20 65 72 72 6f 72 20 44 49 56 | d=1)....((\"Arithmetic.error.DIV |
| 2c9200 | 49 53 49 4f 4e 2d 42 59 2d 5a 45 52 4f 20 73 69 67 6e 61 6c 6c 65 64 2e 0a 4f 70 65 72 61 74 69 | ISION-BY-ZERO.signalled..Operati |
| 2c9220 | 6f 6e 20 77 61 73 20 4b 45 52 4e 45 4c 3a 3a 44 49 56 49 53 49 4f 4e 2c 20 6f 70 65 72 61 6e 64 | on.was.KERNEL::DIVISION,.operand |
| 2c9240 | 73 20 28 31 20 30 29 2e 5c 22 0a 20 20 20 5c 22 5b 43 6f 6e 64 69 74 69 6f 6e 20 6f 66 20 74 79 | s.(1.0).\"....\"[Condition.of.ty |
| 2c9260 | 70 65 20 44 49 56 49 53 49 4f 4e 2d 42 59 2d 5a 45 52 4f 5d 5c 22 29 0a 20 20 28 28 5c 22 41 42 | pe.DIVISION-BY-ZERO]\")...((\"AB |
| 2c9280 | 4f 52 54 5c 22 20 5c 22 52 65 74 75 72 6e 20 74 6f 20 53 6c 69 6d 65 20 74 6f 70 6c 65 76 65 6c | ORT\".\"Return.to.Slime.toplevel |
| 2c92a0 | 2e 5c 22 29 0a 20 20 20 28 5c 22 41 42 4f 52 54 5c 22 20 5c 22 52 65 74 75 72 6e 20 74 6f 20 54 | .\")....(\"ABORT\".\"Return.to.T |
| 2c92c0 | 6f 70 2d 4c 65 76 65 6c 2e 5c 22 29 29 0a 20 20 28 28 30 20 5c 22 28 4b 45 52 4e 45 4c 3a 3a 49 | op-Level.\"))...((0.\"(KERNEL::I |
| 2c92e0 | 4e 54 45 47 45 52 2d 2f 2d 49 4e 54 45 47 45 52 20 31 20 30 29 5c 22 20 28 3a 72 65 73 74 61 72 | NTEGER-/-INTEGER.1.0)\".(:restar |
| 2c9300 | 74 61 62 6c 65 20 6e 69 6c 29 29 29 0a 20 20 28 34 29 29 22 0a 20 20 28 6c 69 73 74 20 28 64 65 | table.nil)))...(4))"...(list.(de |
| 2c9320 | 62 75 67 67 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 2d 65 6d 61 63 73 29 0a 20 20 20 20 | bugger-condition-for-emacs)..... |
| 2c9340 | 20 20 20 20 28 66 6f 72 6d 61 74 2d 72 65 73 74 61 72 74 73 2d 66 6f 72 2d 65 6d 61 63 73 29 0a | ....(format-restarts-for-emacs). |
| 2c9360 | 20 20 20 20 20 20 20 20 28 62 61 63 6b 74 72 61 63 65 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 | ........(backtrace.start.end)... |
| 2c9380 | 20 20 20 20 20 20 2a 70 65 6e 64 69 6e 67 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 2a 29 29 0a | ......*pending-continuations*)). |
| 2c93a0 | 0a 28 64 65 66 75 6e 20 6e 74 68 2d 72 65 73 74 61 72 74 20 28 69 6e 64 65 78 29 0a 20 20 28 6e | .(defun.nth-restart.(index)...(n |
| 2c93c0 | 74 68 20 69 6e 64 65 78 20 2a 73 6c 64 62 2d 72 65 73 74 61 72 74 73 2a 29 29 0a 0a 28 64 65 66 | th.index.*sldb-restarts*))..(def |
| 2c93e0 | 73 6c 69 6d 65 66 75 6e 20 69 6e 76 6f 6b 65 2d 6e 74 68 2d 72 65 73 74 61 72 74 20 28 69 6e 64 | slimefun.invoke-nth-restart.(ind |
| 2c9400 | 65 78 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 74 61 72 74 20 28 6e 74 68 2d 72 65 73 74 61 72 | ex)...(let.((restart.(nth-restar |
| 2c9420 | 74 20 69 6e 64 65 78 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 72 65 73 74 61 72 74 0a 20 20 20 | t.index))).....(when.restart.... |
| 2c9440 | 20 20 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 | ...(invoke-restart-interactively |
| 2c9460 | 20 72 65 73 74 61 72 74 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 6c 64 62 2d | .restart))))..(defslimefun.sldb- |
| 2c9480 | 61 62 6f 72 74 20 28 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 74 61 72 74 20 28 66 69 6e 64 20 | abort.()...(let.((restart.(find. |
| 2c94a0 | 27 61 62 6f 72 74 20 2a 73 6c 64 62 2d 72 65 73 74 61 72 74 73 2a 20 3a 6b 65 79 20 23 27 72 65 | 'abort.*sldb-restarts*.:key.#'re |
| 2c94c0 | 73 74 61 72 74 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 72 65 73 74 61 72 74 0a | start-name))).....(when.restart. |
| 2c94e0 | 20 20 20 20 20 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 28 66 69 6e 64 20 27 61 62 6f | ......(invoke-restart.(find.'abo |
| 2c9500 | 72 74 20 2a 73 6c 64 62 2d 72 65 73 74 61 72 74 73 2a 20 3a 6b 65 79 20 23 27 72 65 73 74 61 72 | rt.*sldb-restarts*.:key.#'restar |
| 2c9520 | 74 2d 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 6c 64 62 2d 63 | t-name)))))..(defslimefun.sldb-c |
| 2c9540 | 6f 6e 74 69 6e 75 65 20 28 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 74 61 72 74 20 28 66 69 6e | ontinue.()...(let.((restart.(fin |
| 2c9560 | 64 20 27 63 6f 6e 74 69 6e 75 65 20 2a 73 6c 64 62 2d 72 65 73 74 61 72 74 73 2a 20 3a 6b 65 79 | d.'continue.*sldb-restarts*.:key |
| 2c9580 | 20 23 27 72 65 73 74 61 72 74 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 72 65 73 | .#'restart-name))).....(when.res |
| 2c95a0 | 74 61 72 74 0a 20 20 20 20 20 20 28 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 72 65 73 74 61 | tart.......(invoke-restart.resta |
| 2c95c0 | 72 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 65 72 63 65 2d 74 6f 2d 63 6f 6e 64 69 74 69 | rt))))..(defun.coerce-to-conditi |
| 2c95e0 | 6f 6e 20 28 64 61 74 75 6d 20 61 72 67 73 29 0a 20 20 28 65 74 79 70 65 63 61 73 65 20 64 61 74 | on.(datum.args)...(etypecase.dat |
| 2c9600 | 75 6d 0a 20 20 20 20 28 73 74 72 69 6e 67 20 28 6d 61 6b 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 27 | um.....(string.(make-condition.' |
| 2c9620 | 73 69 6d 70 6c 65 2d 65 72 72 6f 72 20 3a 66 6f 72 6d 61 74 2d 63 6f 6e 74 72 6f 6c 20 64 61 74 | simple-error.:format-control.dat |
| 2c9640 | 75 6d 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | um.............................. |
| 2c9660 | 3a 66 6f 72 6d 61 74 2d 61 72 67 75 6d 65 6e 74 73 20 61 72 67 73 29 29 0a 20 20 20 20 28 73 79 | :format-arguments.args)).....(sy |
| 2c9680 | 6d 62 6f 6c 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 63 6f 6e 64 69 74 69 6f 6e 20 64 61 74 | mbol.(apply.#'make-condition.dat |
| 2c96a0 | 75 6d 20 61 72 67 73 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 69 6d 70 6c 65 | um.args))))..(defslimefun.simple |
| 2c96c0 | 2d 62 72 65 61 6b 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 64 61 74 75 6d 20 22 49 6e 74 65 72 72 | -break.(&optional.(datum."Interr |
| 2c96e0 | 75 70 74 20 66 72 6f 6d 20 45 6d 61 63 73 22 29 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 | upt.from.Emacs").&rest.args)...( |
| 2c9700 | 77 69 74 68 2d 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 20 28 63 6f 6e 74 69 6e 75 65 20 22 43 | with-simple-restart.(continue."C |
| 2c9720 | 6f 6e 74 69 6e 75 65 20 66 72 6f 6d 20 62 72 65 61 6b 2e 22 29 0a 20 20 20 20 28 69 6e 76 6f 6b | ontinue.from.break.").....(invok |
| 2c9740 | 65 2d 73 6c 69 6d 65 2d 64 65 62 75 67 67 65 72 20 28 63 6f 65 72 63 65 2d 74 6f 2d 63 6f 6e 64 | e-slime-debugger.(coerce-to-cond |
| 2c9760 | 69 74 69 6f 6e 20 64 61 74 75 6d 20 61 72 67 73 29 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 3a 20 | ition.datum.args))))..;;.FIXME:. |
| 2c9780 | 28 6c 61 73 74 20 28 63 6f 6d 70 75 74 65 2d 72 65 73 74 61 72 74 73 29 29 20 6c 6f 6f 6b 73 20 | (last.(compute-restarts)).looks. |
| 2c97a0 | 64 75 62 69 6f 75 73 2e 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 74 68 72 6f 77 2d 74 6f 2d 74 | dubious..(defslimefun.throw-to-t |
| 2c97c0 | 6f 70 6c 65 76 65 6c 20 28 29 0a 20 20 22 49 6e 76 6f 6b 65 20 74 68 65 20 41 42 4f 52 54 2d 52 | oplevel.()..."Invoke.the.ABORT-R |
| 2c97e0 | 45 51 55 45 53 54 20 72 65 73 74 61 72 74 20 61 62 6f 72 74 20 61 6e 20 52 50 43 20 66 72 6f 6d | EQUEST.restart.abort.an.RPC.from |
| 2c9800 | 20 45 6d 61 63 73 2e 0a 49 66 20 77 65 20 61 72 65 20 6e 6f 74 20 65 76 61 6c 75 61 74 69 6e 67 | .Emacs..If.we.are.not.evaluating |
| 2c9820 | 20 61 6e 20 52 50 43 20 74 68 65 6e 20 41 42 4f 52 54 20 69 6e 73 74 65 61 64 2e 22 0a 20 20 28 | .an.RPC.then.ABORT.instead."...( |
| 2c9840 | 6c 65 74 20 28 28 72 65 73 74 61 72 74 20 28 6f 72 20 28 61 6e 64 20 2a 73 6c 64 62 2d 71 75 69 | let.((restart.(or.(and.*sldb-qui |
| 2c9860 | 74 2d 72 65 73 74 61 72 74 2a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-restart*...................... |
| 2c9880 | 20 20 20 20 20 20 28 66 69 6e 64 2d 72 65 73 74 61 72 74 20 2a 73 6c 64 62 2d 71 75 69 74 2d 72 | ......(find-restart.*sldb-quit-r |
| 2c98a0 | 65 73 74 61 72 74 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | estart*))......................( |
| 2c98c0 | 63 61 72 20 28 6c 61 73 74 20 28 63 6f 6d 70 75 74 65 2d 72 65 73 74 61 72 74 73 29 29 29 29 29 | car.(last.(compute-restarts))))) |
| 2c98e0 | 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 72 65 73 74 61 72 74 20 28 69 6e 76 6f 6b 65 2d 72 65 73 | ).....(cond.(restart.(invoke-res |
| 2c9900 | 74 61 72 74 20 72 65 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 66 6f 72 | tart.restart))...........(t.(for |
| 2c9920 | 6d 61 74 20 6e 69 6c 20 22 52 65 73 74 61 72 74 20 6e 6f 74 20 61 63 74 69 76 65 20 5b 7e 73 5d | mat.nil."Restart.not.active.[~s] |
| 2c9940 | 22 20 2a 73 6c 64 62 2d 71 75 69 74 2d 72 65 73 74 61 72 74 2a 29 29 29 29 29 0a 0a 28 64 65 66 | ".*sldb-quit-restart*)))))..(def |
| 2c9960 | 73 6c 69 6d 65 66 75 6e 20 69 6e 76 6f 6b 65 2d 6e 74 68 2d 72 65 73 74 61 72 74 2d 66 6f 72 2d | slimefun.invoke-nth-restart-for- |
| 2c9980 | 65 6d 61 63 73 20 28 73 6c 64 62 2d 6c 65 76 65 6c 20 6e 29 0a 20 20 22 49 6e 76 6f 6b 65 20 74 | emacs.(sldb-level.n)..."Invoke.t |
| 2c99a0 | 68 65 20 4e 74 68 20 61 76 61 69 6c 61 62 6c 65 20 72 65 73 74 61 72 74 2e 0a 53 4c 44 42 2d 4c | he.Nth.available.restart..SLDB-L |
| 2c99c0 | 45 56 45 4c 20 69 73 20 74 68 65 20 64 65 62 75 67 20 6c 65 76 65 6c 20 77 68 65 6e 20 74 68 65 | EVEL.is.the.debug.level.when.the |
| 2c99e0 | 20 72 65 71 75 65 73 74 20 77 61 73 20 6d 61 64 65 2e 20 49 66 20 74 68 69 73 0a 68 61 73 20 63 | .request.was.made..If.this.has.c |
| 2c9a00 | 68 61 6e 67 65 64 2c 20 69 67 6e 6f 72 65 20 74 68 65 20 72 65 71 75 65 73 74 2e 22 0a 20 20 28 | hanged,.ignore.the.request."...( |
| 2c9a20 | 77 68 65 6e 20 28 3d 20 73 6c 64 62 2d 6c 65 76 65 6c 20 2a 73 6c 64 62 2d 6c 65 76 65 6c 2a 29 | when.(=.sldb-level.*sldb-level*) |
| 2c9a40 | 0a 20 20 20 20 28 69 6e 76 6f 6b 65 2d 6e 74 68 2d 72 65 73 74 61 72 74 20 6e 29 29 29 0a 0a 28 | .....(invoke-nth-restart.n)))..( |
| 2c9a60 | 64 65 66 75 6e 20 77 72 61 70 2d 73 6c 64 62 2d 76 61 72 73 20 28 66 6f 72 6d 29 0a 20 20 60 28 | defun.wrap-sldb-vars.(form)...`( |
| 2c9a80 | 6c 65 74 20 28 28 2a 73 6c 64 62 2d 6c 65 76 65 6c 2a 20 2c 2a 73 6c 64 62 2d 6c 65 76 65 6c 2a | let.((*sldb-level*.,*sldb-level* |
| 2c9aa0 | 29 29 0a 20 20 20 20 20 2c 66 6f 72 6d 29 29 0a 0a 28 64 65 66 75 6e 20 65 76 61 6c 2d 69 6e 2d | ))......,form))..(defun.eval-in- |
| 2c9ac0 | 66 72 61 6d 65 2d 61 75 78 20 28 66 72 61 6d 65 20 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 20 | frame-aux.(frame.string.package. |
| 2c9ae0 | 70 72 69 6e 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 6f 72 6d 20 28 77 72 61 70 2d 73 6c 64 62 | print)...(let*.((form.(wrap-sldb |
| 2c9b00 | 2d 76 61 72 73 20 28 70 61 72 73 65 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 20 70 61 63 6b 61 | -vars.(parse-string.string.packa |
| 2c9b20 | 67 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 28 6d 75 6c 74 69 70 6c 65 | ge)))..........(values.(multiple |
| 2c9b40 | 2d 76 61 6c 75 65 2d 6c 69 73 74 20 28 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 66 6f 72 6d 20 | -value-list.(eval-in-frame.form. |
| 2c9b60 | 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 | frame)))).....(with-buffer-synta |
| 2c9b80 | 78 20 28 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 70 72 69 6e 74 | x.(package).......(funcall.print |
| 2c9ba0 | 20 76 61 6c 75 65 73 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 65 76 61 6c 2d 73 | .values))))..(defslimefun.eval-s |
| 2c9bc0 | 74 72 69 6e 67 2d 69 6e 2d 66 72 61 6d 65 20 28 73 74 72 69 6e 67 20 66 72 61 6d 65 20 70 61 63 | tring-in-frame.(string.frame.pac |
| 2c9be0 | 6b 61 67 65 29 0a 20 20 28 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 2d 61 75 78 20 66 72 61 6d 65 | kage)...(eval-in-frame-aux.frame |
| 2c9c00 | 20 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 20 23 27 66 6f 72 6d 61 74 2d 76 61 6c 75 65 73 2d | .string.package.#'format-values- |
| 2c9c20 | 66 6f 72 2d 65 63 68 6f 2d 61 72 65 61 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 70 70 | for-echo-area))..(defslimefun.pp |
| 2c9c40 | 72 69 6e 74 2d 65 76 61 6c 2d 73 74 72 69 6e 67 2d 69 6e 2d 66 72 61 6d 65 20 28 73 74 72 69 6e | rint-eval-string-in-frame.(strin |
| 2c9c60 | 67 20 66 72 61 6d 65 20 70 61 63 6b 61 67 65 29 0a 20 20 28 65 76 61 6c 2d 69 6e 2d 66 72 61 6d | g.frame.package)...(eval-in-fram |
| 2c9c80 | 65 2d 61 75 78 20 66 72 61 6d 65 20 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 20 23 27 73 77 61 | e-aux.frame.string.package.#'swa |
| 2c9ca0 | 6e 6b 2d 70 70 72 69 6e 74 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 72 61 6d 65 2d | nk-pprint))..(defslimefun.frame- |
| 2c9cc0 | 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 28 66 72 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 70 6b | package-name.(frame)...(let.((pk |
| 2c9ce0 | 67 20 28 66 72 61 6d 65 2d 70 61 63 6b 61 67 65 20 66 72 61 6d 65 29 29 29 0a 20 20 20 20 28 63 | g.(frame-package.frame))).....(c |
| 2c9d00 | 6f 6e 64 20 28 70 6b 67 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 6b 67 29 29 0a 20 20 20 | ond.(pkg.(package-name.pkg)).... |
| 2c9d20 | 20 20 20 20 20 20 20 28 74 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 | .......(t.(with-buffer-syntax.() |
| 2c9d40 | 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 2a 70 61 63 6b 61 67 65 2a 29 29 29 29 29 29 0a 0a | .(package-name.*package*)))))).. |
| 2c9d60 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 2d 61 6e 64 2d 63 61 | (defslimefun.frame-locals-and-ca |
| 2c9d80 | 74 63 68 2d 74 61 67 73 20 28 69 6e 64 65 78 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 | tch-tags.(index)..."Return.a.lis |
| 2c9da0 | 74 20 28 4c 4f 43 41 4c 53 20 54 41 47 53 29 20 66 6f 72 20 76 61 72 73 20 61 6e 64 20 63 61 74 | t.(LOCALS.TAGS).for.vars.and.cat |
| 2c9dc0 | 63 68 20 74 61 67 73 20 69 6e 20 74 68 65 20 66 72 61 6d 65 20 49 4e 44 45 58 2e 0a 4c 4f 43 41 | ch.tags.in.the.frame.INDEX..LOCA |
| 2c9de0 | 4c 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 28 26 6b 65 79 20 | LS.is.a.list.of.the.form.((&key. |
| 2c9e00 | 4e 41 4d 45 20 49 44 20 56 41 4c 55 45 29 20 2e 2e 2e 29 2e 0a 54 41 47 53 20 68 61 73 20 69 73 | NAME.ID.VALUE)....)..TAGS.has.is |
| 2c9e20 | 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 2e 22 0a 20 20 28 6c 69 73 74 20 28 66 72 | .a.list.of.strings."...(list.(fr |
| 2c9e40 | 61 6d 65 2d 6c 6f 63 61 6c 73 2d 66 6f 72 2d 65 6d 61 63 73 20 69 6e 64 65 78 29 0a 20 20 20 20 | ame-locals-for-emacs.index)..... |
| 2c9e60 | 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 74 6f 2d 73 74 72 69 6e 67 20 28 66 72 61 6d 65 2d 63 | ....(mapcar.#'to-string.(frame-c |
| 2c9e80 | 61 74 63 68 2d 74 61 67 73 20 69 6e 64 65 78 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 72 61 6d | atch-tags.index))))..(defun.fram |
| 2c9ea0 | 65 2d 6c 6f 63 61 6c 73 2d 66 6f 72 2d 65 6d 61 63 73 20 28 69 6e 64 65 78 29 0a 20 20 28 77 69 | e-locals-for-emacs.(index)...(wi |
| 2c9ec0 | 74 68 2d 62 69 6e 64 69 6e 67 73 20 2a 62 61 63 6b 74 72 61 63 65 2d 70 72 69 6e 74 65 72 2d 62 | th-bindings.*backtrace-printer-b |
| 2c9ee0 | 69 6e 64 69 6e 67 73 2a 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 76 61 72 20 69 6e 20 28 66 | indings*.....(loop.for.var.in.(f |
| 2c9f00 | 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 69 6e 64 65 78 29 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 | rame-locals.index).collect...... |
| 2c9f20 | 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 26 6b 65 79 20 6e | .....(destructuring-bind.(&key.n |
| 2c9f40 | 61 6d 65 20 69 64 20 76 61 6c 75 65 29 20 76 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ame.id.value).var.............(l |
| 2c9f60 | 69 73 74 20 3a 6e 61 6d 65 20 28 6c 65 74 20 28 28 2a 70 61 63 6b 61 67 65 2a 20 28 6f 72 20 28 | ist.:name.(let.((*package*.(or.( |
| 2c9f80 | 66 72 61 6d 65 2d 70 61 63 6b 61 67 65 20 69 6e 64 65 78 29 20 2a 70 61 63 6b 61 67 65 2a 29 29 | frame-package.index).*package*)) |
| 2c9fa0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 | )...........................(pri |
| 2c9fc0 | 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | n1-to-string.name))............. |
| 2c9fe0 | 20 20 20 20 20 20 3a 69 64 20 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | ......:id.id...................: |
| 2ca000 | 76 61 6c 75 65 20 28 74 6f 2d 6c 69 6e 65 20 76 61 6c 75 65 20 2a 70 72 69 6e 74 2d 72 69 67 68 | value.(to-line.value.*print-righ |
| 2ca020 | 74 2d 6d 61 72 67 69 6e 2a 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 6c | t-margin*))))))..(defslimefun.sl |
| 2ca040 | 64 62 2d 64 69 73 61 73 73 65 6d 62 6c 65 20 28 69 6e 64 65 78 29 0a 20 20 28 77 69 74 68 2d 6f | db-disassemble.(index)...(with-o |
| 2ca060 | 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 | utput-to-string.(*standard-outpu |
| 2ca080 | 74 2a 29 0a 20 20 20 20 28 64 69 73 61 73 73 65 6d 62 6c 65 2d 66 72 61 6d 65 20 69 6e 64 65 78 | t*).....(disassemble-frame.index |
| 2ca0a0 | 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 6c 64 62 2d 72 65 74 75 72 6e 2d 66 72 | )))..(defslimefun.sldb-return-fr |
| 2ca0c0 | 6f 6d 2d 66 72 61 6d 65 20 28 69 6e 64 65 78 20 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 | om-frame.(index.string)...(let.( |
| 2ca0e0 | 28 66 6f 72 6d 20 28 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 | (form.(from-string.string))).... |
| 2ca100 | 20 28 74 6f 2d 73 74 72 69 6e 67 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 | .(to-string.(multiple-value-list |
| 2ca120 | 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 2d 66 72 61 6d 65 20 69 6e 64 65 78 20 66 6f 72 6d 29 29 | .(return-from-frame.index.form)) |
| 2ca140 | 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 6c 64 62 2d 62 72 65 61 6b 20 28 6e 61 | )))..(defslimefun.sldb-break.(na |
| 2ca160 | 6d 65 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 | me)...(with-buffer-syntax.().... |
| 2ca180 | 20 28 73 6c 64 62 2d 62 72 65 61 6b 2d 61 74 2d 73 74 61 72 74 20 28 72 65 61 64 2d 66 72 6f 6d | .(sldb-break-at-start.(read-from |
| 2ca1a0 | 2d 73 74 72 69 6e 67 20 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 | -string.name))))..(defmacro.defi |
| 2ca1c0 | 6e 65 2d 73 74 65 70 70 65 72 2d 66 75 6e 63 74 69 6f 6e 20 28 6e 61 6d 65 20 62 61 63 6b 65 6e | ne-stepper-function.(name.backen |
| 2ca1e0 | 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 60 28 64 65 66 73 6c 69 6d 65 66 75 6e | d-function-name)...`(defslimefun |
| 2ca200 | 20 2c 6e 61 6d 65 20 28 66 72 61 6d 65 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 73 6c 64 62 | .,name.(frame)......(cond.((sldb |
| 2ca220 | 2d 73 74 65 70 70 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2d 70 20 2a 73 77 61 6e 6b 2d 64 65 62 75 | -stepper-condition-p.*swank-debu |
| 2ca240 | 67 67 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | gger-condition*).............(se |
| 2ca260 | 74 71 20 2a 73 6c 64 62 2d 73 74 65 70 70 69 6e 67 2d 70 2a 20 74 29 0a 20 20 20 20 20 20 20 20 | tq.*sldb-stepping-p*.t)......... |
| 2ca280 | 20 20 20 20 28 2c 62 61 63 6b 65 6e 64 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 29 0a 20 20 | ....(,backend-function-name))... |
| 2ca2a0 | 20 20 20 20 20 20 20 20 20 28 28 66 69 6e 64 2d 72 65 73 74 61 72 74 20 27 63 6f 6e 74 69 6e 75 | .........((find-restart.'continu |
| 2ca2c0 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 63 74 69 76 61 74 65 2d 73 74 65 70 70 69 6e | e).............(activate-steppin |
| 2ca2e0 | 67 20 66 72 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2a 73 6c 64 62 | g.frame).............(setq.*sldb |
| 2ca300 | 2d 73 74 65 70 70 69 6e 67 2d 70 2a 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e | -stepping-p*.t).............(con |
| 2ca320 | 74 69 6e 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 | tinue))............(t........... |
| 2ca340 | 20 20 28 65 72 72 6f 72 20 22 4e 6f 74 20 63 75 72 72 65 6e 74 6c 79 20 73 69 6e 67 6c 65 2d 73 | ..(error."Not.currently.single-s |
| 2ca360 | 74 65 70 70 69 6e 67 2c 20 7e 0a 61 6e 64 20 6e 6f 20 63 6f 6e 74 69 6e 75 65 20 72 65 73 74 61 | tepping,.~.and.no.continue.resta |
| 2ca380 | 72 74 20 61 76 61 69 6c 61 62 6c 65 2e 22 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 74 65 | rt.available.")))))..(define-ste |
| 2ca3a0 | 70 70 65 72 2d 66 75 6e 63 74 69 6f 6e 20 73 6c 64 62 2d 73 74 65 70 20 73 6c 64 62 2d 73 74 65 | pper-function.sldb-step.sldb-ste |
| 2ca3c0 | 70 2d 69 6e 74 6f 29 0a 28 64 65 66 69 6e 65 2d 73 74 65 70 70 65 72 2d 66 75 6e 63 74 69 6f 6e | p-into).(define-stepper-function |
| 2ca3e0 | 20 73 6c 64 62 2d 6e 65 78 74 20 73 6c 64 62 2d 73 74 65 70 2d 6e 65 78 74 29 0a 28 64 65 66 69 | .sldb-next.sldb-step-next).(defi |
| 2ca400 | 6e 65 2d 73 74 65 70 70 65 72 2d 66 75 6e 63 74 69 6f 6e 20 73 6c 64 62 2d 6f 75 74 20 20 73 6c | ne-stepper-function.sldb-out..sl |
| 2ca420 | 64 62 2d 73 74 65 70 2d 6f 75 74 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 74 6f 67 67 6c | db-step-out)..(defslimefun.toggl |
| 2ca440 | 65 2d 62 72 65 61 6b 2d 6f 6e 2d 73 69 67 6e 61 6c 73 20 28 29 0a 20 20 28 73 65 74 71 20 2a 62 | e-break-on-signals.()...(setq.*b |
| 2ca460 | 72 65 61 6b 2d 6f 6e 2d 73 69 67 6e 61 6c 73 2a 20 28 6e 6f 74 20 2a 62 72 65 61 6b 2d 6f 6e 2d | reak-on-signals*.(not.*break-on- |
| 2ca480 | 73 69 67 6e 61 6c 73 2a 29 29 0a 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 2a 62 72 65 61 6b | signals*))...(format.nil."*break |
| 2ca4a0 | 2d 6f 6e 2d 73 69 67 6e 61 6c 73 2a 20 3d 20 7e 61 22 20 2a 62 72 65 61 6b 2d 6f 6e 2d 73 69 67 | -on-signals*.=.~a".*break-on-sig |
| 2ca4c0 | 6e 61 6c 73 2a 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 64 6c 62 2d 70 72 69 6e 74 | nals*))..(defslimefun.sdlb-print |
| 2ca4e0 | 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 29 0a 20 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 | -condition.()...(princ-to-string |
| 2ca500 | 20 2a 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a 29 29 0a 0a 0c | .*swank-debugger-condition*))... |
| 2ca520 | 0a 3b 3b 3b 3b 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 43 6f 6d 6d 61 6e 64 73 2e 0a 0a 28 64 65 | .;;;;.Compilation.Commands...(de |
| 2ca540 | 66 73 74 72 75 63 74 20 28 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 6c 74 20 28 3a 74 79 | fstruct.(compilation-result.(:ty |
| 2ca560 | 70 65 20 6c 69 73 74 29 29 0a 20 20 28 74 79 70 65 20 3a 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 | pe.list))...(type.:compilation-r |
| 2ca580 | 65 73 75 6c 74 29 0a 20 20 6e 6f 74 65 73 0a 20 20 28 73 75 63 63 65 73 73 70 20 6e 69 6c 20 3a | esult)...notes...(successp.nil.: |
| 2ca5a0 | 74 79 70 65 20 62 6f 6f 6c 65 61 6e 29 0a 20 20 28 64 75 72 61 74 69 6f 6e 20 30 2e 30 20 3a 74 | type.boolean)...(duration.0.0.:t |
| 2ca5c0 | 79 70 65 20 66 6c 6f 61 74 29 0a 20 20 28 6c 6f 61 64 70 20 6e 69 6c 20 3a 74 79 70 65 20 62 6f | ype.float)...(loadp.nil.:type.bo |
| 2ca5e0 | 6f 6c 65 61 6e 29 0a 20 20 28 66 61 73 6c 66 69 6c 65 20 6e 69 6c 20 3a 74 79 70 65 20 28 6f 72 | olean)...(faslfile.nil.:type.(or |
| 2ca600 | 20 6e 75 6c 6c 20 73 74 72 69 6e 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 61 73 75 72 65 2d | .null.string)))..(defun.measure- |
| 2ca620 | 74 69 6d 65 2d 69 6e 74 65 72 76 61 6c 20 28 66 75 6e 29 0a 20 20 22 43 61 6c 6c 20 46 55 4e 20 | time-interval.(fun)..."Call.FUN. |
| 2ca640 | 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 72 65 74 75 72 6e 20 76 61 6c 75 | and.return.the.first.return.valu |
| 2ca660 | 65 20 61 6e 64 20 74 68 65 20 65 6c 61 70 73 65 64 20 74 69 6d 65 2e 0a 54 68 65 20 74 69 6d 65 | e.and.the.elapsed.time..The.time |
| 2ca680 | 20 69 73 20 6d 65 61 73 75 72 65 64 20 69 6e 20 73 65 63 6f 6e 64 73 2e 22 0a 20 20 28 64 65 63 | .is.measured.in.seconds."...(dec |
| 2ca6a0 | 6c 61 72 65 20 28 74 79 70 65 20 66 75 6e 63 74 69 6f 6e 20 66 75 6e 29 29 0a 20 20 28 6c 65 74 | lare.(type.function.fun))...(let |
| 2ca6c0 | 20 28 28 62 65 66 6f 72 65 20 28 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 65 61 6c 2d 74 69 6d | .((before.(get-internal-real-tim |
| 2ca6e0 | 65 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 0a 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 | e))).....(values......(funcall.f |
| 2ca700 | 75 6e 29 0a 20 20 20 20 20 28 2f 20 28 2d 20 28 67 65 74 2d 69 6e 74 65 72 6e 61 6c 2d 72 65 61 | un)......(/.(-.(get-internal-rea |
| 2ca720 | 6c 2d 74 69 6d 65 29 20 62 65 66 6f 72 65 29 0a 20 20 20 20 20 20 20 20 28 63 6f 65 72 63 65 20 | l-time).before).........(coerce. |
| 2ca740 | 69 6e 74 65 72 6e 61 6c 2d 74 69 6d 65 2d 75 6e 69 74 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 27 | internal-time-units-per-second.' |
| 2ca760 | 66 6c 6f 61 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 63 6f 6d 70 69 6c 65 72 | float)))))..(defun.make-compiler |
| 2ca780 | 2d 6e 6f 74 65 20 28 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 22 4d 61 6b 65 20 61 20 63 6f 6d 70 | -note.(condition)..."Make.a.comp |
| 2ca7a0 | 69 6c 65 72 20 6e 6f 74 65 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 20 66 72 6f 6d 20 61 20 | iler.note.data.structure.from.a. |
| 2ca7c0 | 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 | compiler-condition."...(declare. |
| 2ca7e0 | 28 74 79 70 65 20 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 6e 64 69 74 69 | (type.compiler-condition.conditi |
| 2ca800 | 6f 6e 29 29 0a 20 20 28 6c 69 73 74 2a 20 3a 6d 65 73 73 61 67 65 20 28 6d 65 73 73 61 67 65 20 | on))...(list*.:message.(message. |
| 2ca820 | 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 3a 73 65 76 65 72 69 74 79 20 28 73 | condition)..........:severity.(s |
| 2ca840 | 65 76 65 72 69 74 79 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 3a 6c 6f 63 | everity.condition)..........:loc |
| 2ca860 | 61 74 69 6f 6e 20 28 6c 6f 63 61 74 69 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 | ation.(location.condition)...... |
| 2ca880 | 20 20 20 20 3a 72 65 66 65 72 65 6e 63 65 73 20 28 72 65 66 65 72 65 6e 63 65 73 20 63 6f 6e 64 | ....:references.(references.cond |
| 2ca8a0 | 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 20 28 73 6f 75 72 63 65 | ition)..........(let.((s.(source |
| 2ca8c0 | 2d 63 6f 6e 74 65 78 74 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -context.condition)))........... |
| 2ca8e0 | 20 28 69 66 20 73 20 28 6c 69 73 74 20 3a 73 6f 75 72 63 65 2d 63 6f 6e 74 65 78 74 20 73 29 29 | .(if.s.(list.:source-context.s)) |
| 2ca900 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6c 6c 65 63 74 2d 6e 6f 74 65 73 20 28 66 75 6e 63 74 | )))..(defun.collect-notes.(funct |
| 2ca920 | 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 28 6e 6f 74 65 73 20 27 28 29 29 29 0a 20 20 20 20 28 6d | ion)...(let.((notes.'())).....(m |
| 2ca940 | 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 72 65 73 75 6c 74 20 73 65 63 6f 6e | ultiple-value-bind.(result.secon |
| 2ca960 | 64 73 29 0a 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 62 69 6e 64 20 28 28 63 6f 6d 70 | ds).........(handler-bind.((comp |
| 2ca980 | 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | iler-condition.................. |
| 2ca9a0 | 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 29 20 28 70 75 73 68 20 28 6d 61 6b 65 2d 63 | .......(lambda.(c).(push.(make-c |
| 2ca9c0 | 6f 6d 70 69 6c 65 72 2d 6e 6f 74 65 20 63 29 20 6e 6f 74 65 73 29 29 29 29 0a 20 20 20 20 20 20 | ompiler-note.c).notes))))....... |
| 2ca9e0 | 20 20 20 20 28 6d 65 61 73 75 72 65 2d 74 69 6d 65 2d 69 6e 74 65 72 76 61 6c 0a 20 20 20 20 20 | ....(measure-time-interval...... |
| 2caa00 | 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | ......(lambda.()..............;; |
| 2caa20 | 20 54 6f 20 72 65 70 6f 72 74 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 65 72 72 6f 72 2d 73 69 67 | .To.report.location.of.error-sig |
| 2caa40 | 6e 61 6c 69 6e 67 20 74 6f 70 6c 65 76 65 6c 20 66 6f 72 6d 73 0a 20 20 20 20 20 20 20 20 20 20 | naling.toplevel.forms........... |
| 2caa60 | 20 20 20 3b 3b 20 66 6f 72 20 65 72 72 6f 72 73 20 69 6e 20 45 56 41 4c 2d 57 48 45 4e 20 6f 72 | ...;;.for.errors.in.EVAL-WHEN.or |
| 2caa80 | 20 64 75 72 69 6e 67 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 | .during.macroexpansion.......... |
| 2caaa0 | 20 20 20 20 20 28 72 65 73 74 61 72 74 2d 63 61 73 65 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c | .....(restart-case.(multiple-val |
| 2caac0 | 75 65 2d 6c 69 73 74 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 | ue-list.(funcall.function))..... |
| 2caae0 | 20 20 20 20 20 20 20 20 20 20 20 28 61 62 6f 72 74 20 28 29 20 3a 72 65 70 6f 72 74 20 22 41 62 | ...........(abort.().:report."Ab |
| 2cab00 | 6f 72 74 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2e 22 20 28 6c 69 73 74 20 6e 69 6c 29 29 29 29 29 | ort.compilation.".(list.nil))))) |
| 2cab20 | 29 0a 20 20 20 20 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 73 75 63 | ).......(destructuring-bind.(suc |
| 2cab40 | 63 65 73 73 70 20 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 61 64 70 20 66 61 73 6c 66 69 6c 65 29 20 | cessp.&optional.loadp.faslfile). |
| 2cab60 | 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 61 73 6c 66 69 6c 65 20 28 | result.........(let.((faslfile.( |
| 2cab80 | 65 74 79 70 65 63 61 73 65 20 66 61 73 6c 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | etypecase.faslfile.............. |
| 2caba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 | .............(null.nil)......... |
| 2cabc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 6e 61 6d 65 20 28 70 61 74 | ..................(pathname.(pat |
| 2cabe0 | 68 6e 61 6d 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 20 66 61 73 6c 66 69 6c 65 29 29 29 29 29 0a | hname-to-filename.faslfile))))). |
| 2cac00 | 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 72 65 73 75 | ..........(make-compilation-resu |
| 2cac20 | 6c 74 20 3a 6e 6f 74 65 73 20 28 72 65 76 65 72 73 65 20 6e 6f 74 65 73 29 20 0a 20 20 20 20 20 | lt.:notes.(reverse.notes)....... |
| 2cac40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 | ..............................:d |
| 2cac60 | 75 72 61 74 69 6f 6e 20 73 65 63 6f 6e 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uration.seconds................. |
| 2cac80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 75 63 63 65 73 73 70 20 28 69 66 | ...................:successp.(if |
| 2caca0 | 20 73 75 63 63 65 73 73 70 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .successp.t).................... |
| 2cacc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 6f 61 64 70 20 28 69 66 20 6c 6f 61 64 70 | ................:loadp.(if.loadp |
| 2cace0 | 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .t)............................. |
| 2cad00 | 20 20 20 20 20 20 20 3a 66 61 73 6c 66 69 6c 65 20 66 61 73 6c 66 69 6c 65 29 29 29 29 29 29 0a | .......:faslfile.faslfile)))))). |
| 2cad20 | 0a 28 64 65 66 75 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2a 20 28 70 61 74 | .(defun.swank-compile-file*.(pat |
| 2cad40 | 68 6e 61 6d 65 20 6c 6f 61 64 2d 70 20 26 72 65 73 74 20 6f 70 74 69 6f 6e 73 20 26 6b 65 79 20 | hname.load-p.&rest.options.&key. |
| 2cad60 | 70 6f 6c 69 63 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | policy.......................... |
| 2cad80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 61 6c | .............................&al |
| 2cada0 | 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 | low-other-keys)...(multiple-valu |
| 2cadc0 | 65 2d 62 69 6e 64 20 28 6f 75 74 70 75 74 2d 70 61 74 68 6e 61 6d 65 20 77 61 72 6e 69 6e 67 73 | e-bind.(output-pathname.warnings |
| 2cade0 | 3f 20 66 61 69 6c 75 72 65 3f 29 0a 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 | ?.failure?).......(swank-compile |
| 2cae00 | 2d 66 69 6c 65 20 70 61 74 68 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -file.pathname.................. |
| 2cae20 | 20 20 20 20 20 20 20 20 20 28 66 61 73 6c 2d 70 61 74 68 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 | .........(fasl-pathname.pathname |
| 2cae40 | 20 6f 70 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .options)....................... |
| 2cae60 | 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....nil......................... |
| 2cae80 | 20 20 28 6f 72 20 28 67 75 65 73 73 2d 65 78 74 65 72 6e 61 6c 2d 66 6f 72 6d 61 74 20 70 61 74 | ..(or.(guess-external-format.pat |
| 2caea0 | 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hname).......................... |
| 2caec0 | 20 20 20 20 20 3a 64 65 66 61 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....:default).................. |
| 2caee0 | 20 20 20 20 20 20 20 20 20 3a 70 6f 6c 69 63 79 20 70 6f 6c 69 63 79 29 0a 20 20 20 20 28 64 65 | .........:policy.policy).....(de |
| 2caf00 | 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 77 61 72 6e 69 6e 67 73 3f 29 29 0a 20 20 20 20 28 76 | clare.(ignore.warnings?)).....(v |
| 2caf20 | 61 6c 75 65 73 20 74 20 28 6e 6f 74 20 66 61 69 6c 75 72 65 3f 29 20 6c 6f 61 64 2d 70 20 6f 75 | alues.t.(not.failure?).load-p.ou |
| 2caf40 | 74 70 75 74 2d 70 61 74 68 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 63 6f 6d 70 69 | tput-pathname)))..(defvar.*compi |
| 2caf60 | 6c 65 2d 66 69 6c 65 2d 66 6f 72 2d 65 6d 61 63 73 2d 68 6f 6f 6b 2a 20 27 28 73 77 61 6e 6b 2d | le-file-for-emacs-hook*.'(swank- |
| 2caf80 | 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2a 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 6f | compile-file*))..(defslimefun.co |
| 2cafa0 | 6d 70 69 6c 65 2d 66 69 6c 65 2d 66 6f 72 2d 65 6d 61 63 73 20 28 66 69 6c 65 6e 61 6d 65 20 6c | mpile-file-for-emacs.(filename.l |
| 2cafc0 | 6f 61 64 2d 70 20 26 72 65 73 74 20 6f 70 74 69 6f 6e 73 29 0a 20 20 22 43 6f 6d 70 69 6c 65 20 | oad-p.&rest.options)..."Compile. |
| 2cafe0 | 46 49 4c 45 4e 41 4d 45 20 61 6e 64 2c 20 77 68 65 6e 20 4c 4f 41 44 2d 50 2c 20 6c 6f 61 64 20 | FILENAME.and,.when.LOAD-P,.load. |
| 2cb000 | 74 68 65 20 72 65 73 75 6c 74 2e 0a 52 65 63 6f 72 64 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 | the.result..Record.compiler.note |
| 2cb020 | 73 20 73 69 67 6e 61 6c 6c 65 64 20 61 73 20 60 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 | s.signalled.as.`compiler-conditi |
| 2cb040 | 6f 6e 27 73 2e 22 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a | on's."...(with-buffer-syntax.(). |
| 2cb060 | 20 20 20 20 28 63 6f 6c 6c 65 63 74 2d 6e 6f 74 65 73 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 | ....(collect-notes......(lambda. |
| 2cb080 | 28 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 61 74 68 6e 61 6d 65 20 28 66 69 6c 65 6e | ()........(let.((pathname.(filen |
| 2cb0a0 | 61 6d 65 2d 74 6f 2d 70 61 74 68 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 | ame-to-pathname.filename))...... |
| 2cb0c0 | 20 20 20 20 20 20 20 20 28 2a 63 6f 6d 70 69 6c 65 2d 70 72 69 6e 74 2a 20 6e 69 6c 29 0a 20 20 | ........(*compile-print*.nil)... |
| 2cb0e0 | 20 20 20 20 20 20 20 20 20 20 20 28 2a 63 6f 6d 70 69 6c 65 2d 76 65 72 62 6f 73 65 2a 20 74 29 | ...........(*compile-verbose*.t) |
| 2cb100 | 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 68 6f 6f 6b 20 69 6e 20 2a 63 6f | )..........(loop.for.hook.in.*co |
| 2cb120 | 6d 70 69 6c 65 2d 66 69 6c 65 2d 66 6f 72 2d 65 6d 61 63 73 2d 68 6f 6f 6b 2a 0a 20 20 20 20 20 | mpile-file-for-emacs-hook*...... |
| 2cb140 | 20 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c | ..........do................(mul |
| 2cb160 | 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 74 72 69 65 64 20 73 75 63 63 65 73 73 20 | tiple-value-bind.(tried.success. |
| 2cb180 | 6c 6f 61 64 3f 20 6f 75 74 70 75 74 2d 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 | load?.output-pathname).......... |
| 2cb1a0 | 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 68 6f 6f 6b 20 70 61 74 68 6e 61 6d 65 20 6c | ..........(apply.hook.pathname.l |
| 2cb1c0 | 6f 61 64 2d 70 20 6f 70 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | oad-p.options).................. |
| 2cb1e0 | 28 77 68 65 6e 20 74 72 69 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | (when.tried....................( |
| 2cb200 | 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 73 75 63 63 65 73 73 20 6c 6f 61 64 3f 20 6f 75 74 | return.(values.success.load?.out |
| 2cb220 | 70 75 74 2d 70 61 74 68 6e 61 6d 65 29 29 29 29 29 29 29 29 29 29 0a 0a 3b 3b 20 46 49 58 4d 45 | put-pathname))))))))))..;;.FIXME |
| 2cb240 | 3a 20 6e 6f 77 20 74 68 61 74 20 2a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 66 6f 72 2d 65 6d 61 | :.now.that.*compile-file-for-ema |
| 2cb260 | 63 73 2d 68 6f 6f 6b 2a 20 69 73 20 74 68 65 72 65 20 74 68 69 73 20 69 73 0a 3b 3b 20 72 65 64 | cs-hook*.is.there.this.is.;;.red |
| 2cb280 | 75 6e 64 61 6e 74 20 61 6e 64 20 63 6f 6e 66 75 73 69 6e 67 2e 0a 28 64 65 66 76 61 72 20 2a 66 | undant.and.confusing..(defvar.*f |
| 2cb2a0 | 61 73 6c 2d 70 61 74 68 6e 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 2a 20 6e 69 6c 0a 20 20 22 49 6e | asl-pathname-function*.nil..."In |
| 2cb2c0 | 20 6e 6f 6e 2d 6e 69 6c 2c 20 75 73 65 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63 | .non-nil,.use.this.function.to.c |
| 2cb2e0 | 6f 6d 70 75 74 65 20 74 68 65 20 6e 61 6d 65 20 66 6f 72 20 66 61 73 6c 2d 66 69 6c 65 73 2e 22 | ompute.the.name.for.fasl-files." |
| 2cb300 | 29 0a 0a 28 64 65 66 75 6e 20 70 61 74 68 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 | )..(defun.pathname-as-directory. |
| 2cb320 | 28 70 61 74 68 6e 61 6d 65 29 0a 20 20 28 61 70 70 65 6e 64 20 28 70 61 74 68 6e 61 6d 65 2d 64 | (pathname)...(append.(pathname-d |
| 2cb340 | 69 72 65 63 74 6f 72 79 20 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 | irectory.pathname)...........(wh |
| 2cb360 | 65 6e 20 28 70 61 74 68 6e 61 6d 65 2d 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 | en.(pathname-name.pathname)..... |
| 2cb380 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 66 69 6c 65 2d 6e 61 6d 65 73 74 72 69 6e 67 20 70 | ........(list.(file-namestring.p |
| 2cb3a0 | 61 74 68 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 66 69 6c | athname)))))..(defun.compile-fil |
| 2cb3c0 | 65 2d 6f 75 74 70 75 74 20 28 66 69 6c 65 20 64 69 72 65 63 74 6f 72 79 29 0a 20 20 28 6d 61 6b | e-output.(file.directory)...(mak |
| 2cb3e0 | 65 2d 70 61 74 68 6e 61 6d 65 20 3a 64 69 72 65 63 74 6f 72 79 20 28 70 61 74 68 6e 61 6d 65 2d | e-pathname.:directory.(pathname- |
| 2cb400 | 61 73 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 | as-directory.directory)......... |
| 2cb420 | 20 20 20 20 20 20 20 20 20 3a 64 65 66 61 75 6c 74 73 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 | .........:defaults.(compile-file |
| 2cb440 | 2d 70 61 74 68 6e 61 6d 65 20 66 69 6c 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 61 73 6c 2d 70 | -pathname.file)))..(defun.fasl-p |
| 2cb460 | 61 74 68 6e 61 6d 65 20 28 69 6e 70 75 74 2d 66 69 6c 65 20 6f 70 74 69 6f 6e 73 29 0a 20 20 28 | athname.(input-file.options)...( |
| 2cb480 | 63 6f 6e 64 20 28 2a 66 61 73 6c 2d 70 61 74 68 6e 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 2a 0a 20 | cond.(*fasl-pathname-function*.. |
| 2cb4a0 | 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 2a 66 61 73 6c 2d 70 61 74 68 6e 61 6d 65 2d | ........(funcall.*fasl-pathname- |
| 2cb4c0 | 66 75 6e 63 74 69 6f 6e 2a 20 69 6e 70 75 74 2d 66 69 6c 65 20 6f 70 74 69 6f 6e 73 29 29 0a 20 | function*.input-file.options)).. |
| 2cb4e0 | 20 20 20 20 20 20 20 28 28 67 65 74 66 20 6f 70 74 69 6f 6e 73 20 3a 66 61 73 6c 2d 64 69 72 65 | .......((getf.options.:fasl-dire |
| 2cb500 | 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 67 65 74 66 | ctory)..........(let.((dir.(getf |
| 2cb520 | 20 6f 70 74 69 6f 6e 73 20 3a 66 61 73 6c 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 | .options.:fasl-directory)))..... |
| 2cb540 | 20 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 63 68 61 72 3d 20 28 61 72 65 66 20 64 69 72 20 | .......(assert.(char=.(aref.dir. |
| 2cb560 | 28 31 2d 20 28 6c 65 6e 67 74 68 20 64 69 72 29 29 29 20 23 5c 2f 29 29 0a 20 20 20 20 20 20 20 | (1-.(length.dir))).#\/))........ |
| 2cb580 | 20 20 20 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 75 74 70 75 74 20 69 6e 70 75 74 2d 66 | ....(compile-file-output.input-f |
| 2cb5a0 | 69 6c 65 20 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 | ile.dir))).........(t..........( |
| 2cb5c0 | 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 68 6e 61 6d 65 20 69 6e 70 75 74 2d 66 69 6c 65 | compile-file-pathname.input-file |
| 2cb5e0 | 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e | ))))..(defslimefun.compile-strin |
| 2cb600 | 67 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 74 72 69 6e 67 20 62 75 66 66 65 72 20 70 6f 73 69 74 | g-for-emacs.(string.buffer.posit |
| 2cb620 | 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 20 70 6f 6c 69 63 79 29 0a 20 20 22 43 6f 6d 70 69 6c 65 20 | ion.filename.policy)..."Compile. |
| 2cb640 | 53 54 52 49 4e 47 20 28 65 78 65 72 70 74 65 64 20 66 72 6f 6d 20 42 55 46 46 45 52 20 61 74 20 | STRING.(exerpted.from.BUFFER.at. |
| 2cb660 | 50 4f 53 49 54 49 4f 4e 29 2e 0a 52 65 63 6f 72 64 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 | POSITION)..Record.compiler.notes |
| 2cb680 | 20 73 69 67 6e 61 6c 6c 65 64 20 61 73 20 60 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f | .signalled.as.`compiler-conditio |
| 2cb6a0 | 6e 27 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6f 66 66 73 65 74 20 28 63 61 64 72 20 28 61 73 | n's."...(let*.((offset.(cadr.(as |
| 2cb6c0 | 73 6f 63 20 3a 70 6f 73 69 74 69 6f 6e 20 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 | soc.:position.position)))....... |
| 2cb6e0 | 20 20 20 28 6c 69 6e 65 2d 63 6f 6c 75 6d 6e 20 28 63 64 72 20 28 61 73 73 6f 63 20 3a 6c 69 6e | ...(line-column.(cdr.(assoc.:lin |
| 2cb700 | 65 20 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 28 66 69 | e.position)))..........(line.(fi |
| 2cb720 | 72 73 74 20 6c 69 6e 65 2d 63 6f 6c 75 6d 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6c 75 | rst.line-column))..........(colu |
| 2cb740 | 6d 6e 20 28 73 65 63 6f 6e 64 20 6c 69 6e 65 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 28 77 | mn.(second.line-column))).....(w |
| 2cb760 | 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 20 20 28 63 6f 6c 6c | ith-buffer-syntax.().......(coll |
| 2cb780 | 65 63 74 2d 6e 6f 74 65 73 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 0a 20 20 20 | ect-notes........(lambda.()..... |
| 2cb7a0 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 63 6f 6d 70 69 6c 65 2d 70 72 69 6e 74 2a 20 74 29 20 | ......(let.((*compile-print*.t). |
| 2cb7c0 | 28 2a 63 6f 6d 70 69 6c 65 2d 76 65 72 62 6f 73 65 2a 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 | (*compile-verbose*.nil))........ |
| 2cb7e0 | 20 20 20 20 28 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 | ....(swank-compile-string.string |
| 2cb800 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2cb820 | 20 20 3a 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..:buffer.buffer................ |
| 2cb840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 6f 73 69 74 69 6f 6e 20 6f 66 66 73 | ..................:position.offs |
| 2cb860 | 65 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | et.............................. |
| 2cb880 | 20 20 20 20 20 3a 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 | .....:filename.filename......... |
| 2cb8a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6c 69 6e 65 20 6c | .........................:line.l |
| 2cb8c0 | 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ine............................. |
| 2cb8e0 | 20 20 20 20 20 3a 63 6f 6c 75 6d 6e 20 63 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .....:column.column............. |
| 2cb900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 6f 6c 69 63 79 20 70 6f 6c | .....................:policy.pol |
| 2cb920 | 69 63 79 29 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 63 6f 6d 70 69 6c 65 | icy)))))))..(defslimefun.compile |
| 2cb940 | 2d 6d 75 6c 74 69 70 6c 65 2d 73 74 72 69 6e 67 73 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 74 72 | -multiple-strings-for-emacs.(str |
| 2cb960 | 69 6e 67 73 20 70 6f 6c 69 63 79 29 0a 20 20 22 43 6f 6d 70 69 6c 65 20 53 54 52 49 4e 47 53 20 | ings.policy)..."Compile.STRINGS. |
| 2cb980 | 28 65 78 65 72 70 74 65 64 20 66 72 6f 6d 20 42 55 46 46 45 52 20 61 74 20 50 4f 53 49 54 49 4f | (exerpted.from.BUFFER.at.POSITIO |
| 2cb9a0 | 4e 29 2e 0a 52 65 63 6f 72 64 20 63 6f 6d 70 69 6c 65 72 20 6e 6f 74 65 73 20 73 69 67 6e 61 6c | N)..Record.compiler.notes.signal |
| 2cb9c0 | 6c 65 64 20 61 73 20 60 63 6f 6d 70 69 6c 65 72 2d 63 6f 6e 64 69 74 69 6f 6e 27 73 2e 22 0a 20 | led.as.`compiler-condition's.".. |
| 2cb9e0 | 20 28 6c 6f 6f 70 20 66 6f 72 20 28 73 74 72 69 6e 67 20 62 75 66 66 65 72 20 70 61 63 6b 61 67 | .(loop.for.(string.buffer.packag |
| 2cba00 | 65 20 70 6f 73 69 74 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 29 20 69 6e 20 73 74 72 69 6e 67 73 20 | e.position.filename).in.strings. |
| 2cba20 | 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 74 2d 6e 6f 74 65 73 0a 20 | collect.........(collect-notes.. |
| 2cba40 | 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 | ........(lambda.()............(w |
| 2cba60 | 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 70 61 63 6b 61 67 65 29 0a 20 20 20 20 | ith-buffer-syntax.(package)..... |
| 2cba80 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 63 6f 6d 70 69 6c 65 2d 70 72 69 6e 74 2a 20 | .........(let.((*compile-print*. |
| 2cbaa0 | 74 29 20 28 2a 63 6f 6d 70 69 6c 65 2d 76 65 72 62 6f 73 65 2a 20 6e 69 6c 29 29 0a 20 20 20 20 | t).(*compile-verbose*.nil))..... |
| 2cbac0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 | ...........(swank-compile-string |
| 2cbae0 | 20 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .string......................... |
| 2cbb00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 | .............:buffer.buffer..... |
| 2cbb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2cbb40 | 20 3a 70 6f 73 69 74 69 6f 6e 20 70 6f 73 69 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 | .:position.position............. |
| 2cbb60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 69 6c 65 6e | ..........................:filen |
| 2cbb80 | 61 6d 65 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ame.filename.................... |
| 2cbba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 6f 6c 69 63 79 20 70 6f 6c 69 63 79 | ..................:policy.policy |
| 2cbbc0 | 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6c 65 2d 6e 65 77 65 72 2d 70 20 28 6e 65 | )))))))..(defun.file-newer-p.(ne |
| 2cbbe0 | 77 2d 66 69 6c 65 20 6f 6c 64 2d 66 69 6c 65 29 0a 20 20 22 52 65 74 75 72 6e 73 20 74 72 75 65 | w-file.old-file)..."Returns.true |
| 2cbc00 | 20 69 66 20 4e 45 57 2d 46 49 4c 45 20 69 73 20 6e 65 77 65 72 20 74 68 61 6e 20 4f 4c 44 2d 46 | .if.NEW-FILE.is.newer.than.OLD-F |
| 2cbc20 | 49 4c 45 2e 22 0a 20 20 28 3e 20 28 66 69 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 20 6e 65 77 2d | ILE."...(>.(file-write-date.new- |
| 2cbc40 | 66 69 6c 65 29 20 28 66 69 6c 65 2d 77 72 69 74 65 2d 64 61 74 65 20 6f 6c 64 2d 66 69 6c 65 29 | file).(file-write-date.old-file) |
| 2cbc60 | 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 71 75 69 72 65 73 2d 63 6f 6d 70 69 6c 65 2d 70 20 28 73 | ))..(defun.requires-compile-p.(s |
| 2cbc80 | 6f 75 72 63 65 2d 66 69 6c 65 29 0a 20 20 28 6c 65 74 20 28 28 66 61 73 6c 2d 66 69 6c 65 20 28 | ource-file)...(let.((fasl-file.( |
| 2cbca0 | 70 72 6f 62 65 2d 66 69 6c 65 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 68 6e 61 6d | probe-file.(compile-file-pathnam |
| 2cbcc0 | 65 20 73 6f 75 72 63 65 2d 66 69 6c 65 29 29 29 29 0a 20 20 20 20 28 6f 72 20 28 6e 6f 74 20 66 | e.source-file)))).....(or.(not.f |
| 2cbce0 | 61 73 6c 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 65 77 65 72 2d 70 20 | asl-file).........(file-newer-p. |
| 2cbd00 | 73 6f 75 72 63 65 2d 66 69 6c 65 20 66 61 73 6c 2d 66 69 6c 65 29 29 29 29 0a 0a 28 64 65 66 73 | source-file.fasl-file))))..(defs |
| 2cbd20 | 6c 69 6d 65 66 75 6e 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 69 66 2d 6e 65 65 64 65 64 20 28 | limefun.compile-file-if-needed.( |
| 2cbd40 | 66 69 6c 65 6e 61 6d 65 20 6c 6f 61 64 70 29 0a 20 20 28 6c 65 74 20 28 28 70 61 74 68 6e 61 6d | filename.loadp)...(let.((pathnam |
| 2cbd60 | 65 20 28 66 69 6c 65 6e 61 6d 65 2d 74 6f 2d 70 61 74 68 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 | e.(filename-to-pathname.filename |
| 2cbd80 | 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 72 65 71 75 69 72 65 73 2d 63 6f 6d 70 69 6c 65 | ))).....(cond.((requires-compile |
| 2cbda0 | 2d 70 20 70 61 74 68 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 | -p.pathname)............(compile |
| 2cbdc0 | 2d 66 69 6c 65 2d 66 6f 72 2d 65 6d 61 63 73 20 70 61 74 68 6e 61 6d 65 20 6c 6f 61 64 70 29 29 | -file-for-emacs.pathname.loadp)) |
| 2cbde0 | 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 | ...........(t............(collec |
| 2cbe00 | 74 2d 6e 6f 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 | t-notes.............(lambda.().. |
| 2cbe20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 6e 6f 74 20 6c 6f 61 64 70 29 0a 20 20 20 | .............(or.(not.loadp).... |
| 2cbe40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 61 64 20 28 63 6f 6d 70 69 6c 65 2d 66 69 | ...............(load.(compile-fi |
| 2cbe60 | 6c 65 2d 70 61 74 68 6e 61 6d 65 20 70 61 74 68 6e 61 6d 65 29 29 29 29 29 29 29 29 29 0a 0a 0c | le-pathname.pathname)))))))))... |
| 2cbe80 | 0a 3b 3b 3b 3b 20 4c 6f 61 64 69 6e 67 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6c 6f 61 64 | .;;;;.Loading..(defslimefun.load |
| 2cbea0 | 2d 66 69 6c 65 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 28 74 6f 2d 73 74 72 69 6e 67 20 28 6c | -file.(filename)...(to-string.(l |
| 2cbec0 | 6f 61 64 20 28 66 69 6c 65 6e 61 6d 65 2d 74 6f 2d 70 61 74 68 6e 61 6d 65 20 66 69 6c 65 6e 61 | oad.(filename-to-pathname.filena |
| 2cbee0 | 6d 65 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 73 77 61 6e 6b 2d 72 65 71 75 69 72 65 0a 0a 28 | me))))....;;;;;.swank-require..( |
| 2cbf00 | 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 72 65 71 75 69 72 65 20 28 6d 6f 64 75 6c | defslimefun.swank-require.(modul |
| 2cbf20 | 65 73 20 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 22 4c 6f 61 64 20 74 | es.&optional.filename)..."Load.t |
| 2cbf40 | 68 65 20 6d 6f 64 75 6c 65 20 4d 4f 44 55 4c 45 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 6d 6f | he.module.MODULE."...(dolist.(mo |
| 2cbf60 | 64 75 6c 65 20 28 65 6e 73 75 72 65 2d 6c 69 73 74 20 6d 6f 64 75 6c 65 73 29 29 0a 20 20 20 20 | dule.(ensure-list.modules))..... |
| 2cbf80 | 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 28 73 74 72 69 6e 67 20 6d 6f 64 75 6c 65 29 20 | (unless.(member.(string.module). |
| 2cbfa0 | 2a 6d 6f 64 75 6c 65 73 2a 20 3a 74 65 73 74 20 23 27 73 74 72 69 6e 67 3d 29 0a 20 20 20 20 20 | *modules*.:test.#'string=)...... |
| 2cbfc0 | 20 28 72 65 71 75 69 72 65 20 6d 6f 64 75 6c 65 20 28 69 66 20 66 69 6c 65 6e 61 6d 65 0a 20 20 | .(require.module.(if.filename... |
| 2cbfe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 6e 61 6d | ........................(filenam |
| 2cc000 | 65 2d 74 6f 2d 70 61 74 68 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 | e-to-pathname.filename)......... |
| 2cc020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 66 69 6c 65 6e 61 | ..................(module-filena |
| 2cc040 | 6d 65 20 6d 6f 64 75 6c 65 29 29 29 0a 20 20 20 20 20 20 28 61 73 73 65 72 74 20 28 6d 65 6d 62 | me.module))).......(assert.(memb |
| 2cc060 | 65 72 20 28 73 74 72 69 6e 67 20 6d 6f 64 75 6c 65 29 20 2a 6d 6f 64 75 6c 65 73 2a 20 3a 74 65 | er.(string.module).*modules*.:te |
| 2cc080 | 73 74 20 23 27 73 74 72 69 6e 67 3d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 29 20 22 | st.#'string=)...............()." |
| 2cc0a0 | 52 65 71 75 69 72 65 64 20 6d 6f 64 75 6c 65 20 7e 73 20 77 61 73 20 6e 6f 74 20 70 72 6f 76 69 | Required.module.~s.was.not.provi |
| 2cc0c0 | 64 65 64 22 20 6d 6f 64 75 6c 65 29 29 29 0a 20 20 2a 6d 6f 64 75 6c 65 73 2a 29 0a 0a 28 64 65 | ded".module)))...*modules*)..(de |
| 2cc0e0 | 66 76 61 72 20 2a 66 69 6e 64 2d 6d 6f 64 75 6c 65 2a 20 27 66 69 6e 64 2d 6d 6f 64 75 6c 65 0a | fvar.*find-module*.'find-module. |
| 2cc100 | 20 20 22 50 6c 75 67 67 61 62 6c 65 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 6c 6f 63 61 74 65 20 | .."Pluggable.function.to.locate. |
| 2cc120 | 6d 6f 64 75 6c 65 73 2e 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 63 65 69 76 65 73 20 61 | modules..The.function.receives.a |
| 2cc140 | 20 6d 6f 64 75 6c 65 20 6e 61 6d 65 20 61 73 20 61 72 67 75 6d 65 6e 74 20 61 6e 64 20 73 68 6f | .module.name.as.argument.and.sho |
| 2cc160 | 75 6c 64 20 72 65 74 75 72 6e 0a 74 68 65 20 66 69 6c 65 6e 61 6d 65 20 6f 66 20 74 68 65 20 6d | uld.return.the.filename.of.the.m |
| 2cc180 | 6f 64 75 6c 65 20 28 6f 72 20 6e 69 6c 20 69 66 20 74 68 65 20 66 69 6c 65 20 64 6f 65 73 6e 27 | odule.(or.nil.if.the.file.doesn' |
| 2cc1a0 | 74 20 65 78 69 73 74 29 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 64 75 6c 65 2d 66 69 6c 65 6e | t.exist).")..(defun.module-filen |
| 2cc1c0 | 61 6d 65 20 28 6d 6f 64 75 6c 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 6c 65 6e | ame.(module)..."Return.the.filen |
| 2cc1e0 | 61 6d 65 20 66 6f 72 20 74 68 65 20 6d 6f 64 75 6c 65 20 4d 4f 44 55 4c 45 2e 22 0a 20 20 28 6f | ame.for.the.module.MODULE."...(o |
| 2cc200 | 72 20 28 66 75 6e 63 61 6c 6c 20 2a 66 69 6e 64 2d 6d 6f 64 75 6c 65 2a 20 6d 6f 64 75 6c 65 29 | r.(funcall.*find-module*.module) |
| 2cc220 | 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 61 6e 27 74 20 6c 6f 63 61 74 65 20 6d 6f 64 75 | .......(error."Can't.locate.modu |
| 2cc240 | 6c 65 3a 20 7e 73 22 20 6d 6f 64 75 6c 65 29 29 29 0a 0a 3b 3b 3b 3b 3b 3b 20 53 69 6d 70 6c 65 | le:.~s".module)))..;;;;;;.Simple |
| 2cc260 | 20 2a 66 69 6e 64 2d 6d 6f 64 75 6c 65 2a 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 28 64 65 66 75 6e | .*find-module*.function...(defun |
| 2cc280 | 20 6d 65 72 67 65 64 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 6e 61 6d 65 20 64 65 66 61 75 | .merged-directory.(dirname.defau |
| 2cc2a0 | 6c 74 73 29 0a 20 20 28 70 61 74 68 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 28 6d | lts)...(pathname-directory....(m |
| 2cc2c0 | 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 0a 20 20 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d | erge-pathnames.....(make-pathnam |
| 2cc2e0 | 65 20 3a 64 69 72 65 63 74 6f 72 79 20 60 28 3a 72 65 6c 61 74 69 76 65 20 2c 64 69 72 6e 61 6d | e.:directory.`(:relative.,dirnam |
| 2cc300 | 65 29 20 3a 64 65 66 61 75 6c 74 73 20 64 65 66 61 75 6c 74 73 29 0a 20 20 20 20 64 65 66 61 75 | e).:defaults.defaults).....defau |
| 2cc320 | 6c 74 73 29 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 6c 6f 61 64 2d 70 61 74 68 2a 20 27 28 29 0a | lts)))..(defvar.*load-path*.'(). |
| 2cc340 | 20 20 22 41 20 6c 69 73 74 20 6f 66 20 64 69 72 65 63 74 6f 72 69 65 73 20 74 6f 20 73 65 61 72 | .."A.list.of.directories.to.sear |
| 2cc360 | 63 68 20 66 6f 72 20 6d 6f 64 75 6c 65 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 64 75 6c 65 | ch.for.modules.")..(defun.module |
| 2cc380 | 2d 63 61 6e 64 69 64 61 74 65 73 20 28 6e 61 6d 65 20 64 69 72 29 0a 20 20 28 6c 69 73 74 20 28 | -candidates.(name.dir)...(list.( |
| 2cc3a0 | 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 68 6e 61 6d 65 20 28 6d 61 6b 65 2d 70 61 74 68 | compile-file-pathname.(make-path |
| 2cc3c0 | 6e 61 6d 65 20 3a 6e 61 6d 65 20 6e 61 6d 65 20 3a 64 65 66 61 75 6c 74 73 20 64 69 72 29 29 0a | name.:name.name.:defaults.dir)). |
| 2cc3e0 | 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 70 61 74 68 6e 61 6d 65 20 3a 6e 61 6d 65 20 6e 61 6d | ........(make-pathname.:name.nam |
| 2cc400 | 65 20 3a 74 79 70 65 20 22 6c 69 73 70 22 20 3a 64 65 66 61 75 6c 74 73 20 64 69 72 29 29 29 0a | e.:type."lisp".:defaults.dir))). |
| 2cc420 | 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 6d 6f 64 75 6c 65 20 28 6d 6f 64 75 6c 65 29 0a 20 20 28 | .(defun.find-module.(module)...( |
| 2cc440 | 6c 65 74 20 28 28 6e 61 6d 65 20 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 6d 6f 64 75 | let.((name.(string-downcase.modu |
| 2cc460 | 6c 65 29 29 29 0a 20 20 20 20 28 73 6f 6d 65 20 28 6c 61 6d 62 64 61 20 28 64 69 72 29 20 28 73 | le))).....(some.(lambda.(dir).(s |
| 2cc480 | 6f 6d 65 20 23 27 70 72 6f 62 65 2d 66 69 6c 65 20 28 6d 6f 64 75 6c 65 2d 63 61 6e 64 69 64 61 | ome.#'probe-file.(module-candida |
| 2cc4a0 | 74 65 73 20 6e 61 6d 65 20 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 2a 6c 6f 61 64 2d | tes.name.dir)))...........*load- |
| 2cc4c0 | 70 61 74 68 2a 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 4d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 0a | path*)))....;;;;.Macroexpansion. |
| 2cc4e0 | 0a 28 64 65 66 76 61 72 20 2a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 70 72 69 6e 74 65 72 2d 62 69 | .(defvar.*macroexpand-printer-bi |
| 2cc500 | 6e 64 69 6e 67 73 2a 0a 20 20 27 28 28 2a 70 72 69 6e 74 2d 63 69 72 63 6c 65 2a 20 2e 20 6e 69 | ndings*...'((*print-circle*...ni |
| 2cc520 | 6c 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a 20 2e 20 74 29 0a 20 20 20 20 | l).....(*print-pretty*...t)..... |
| 2cc540 | 28 2a 70 72 69 6e 74 2d 65 73 63 61 70 65 2a 20 2e 20 74 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 | (*print-escape*...t).....(*print |
| 2cc560 | 2d 6c 69 6e 65 73 2a 20 2e 20 6e 69 6c 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 6c 65 76 65 6c | -lines*...nil).....(*print-level |
| 2cc580 | 2a 20 2e 20 6e 69 6c 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 6c 65 6e 67 74 68 2a 20 2e 20 6e | *...nil).....(*print-length*...n |
| 2cc5a0 | 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 70 70 6c 79 2d 6d 61 63 72 6f 2d 65 78 70 61 6e 64 | il)))..(defun.apply-macro-expand |
| 2cc5c0 | 65 72 20 28 65 78 70 61 6e 64 65 72 20 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e | er.(expander.string.&optional.en |
| 2cc5e0 | 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 | vironment)...(with-buffer-syntax |
| 2cc600 | 20 28 29 0a 20 20 20 20 28 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 20 2a 6d 61 63 72 6f 65 78 70 | .().....(with-bindings.*macroexp |
| 2cc620 | 61 6e 64 2d 70 72 69 6e 74 65 72 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 20 20 20 20 28 70 72 69 | and-printer-bindings*.......(pri |
| 2cc640 | 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 28 66 75 6e 63 61 6c 6c 20 65 78 70 61 6e 64 65 72 20 28 | n1-to-string.(funcall.expander.( |
| 2cc660 | 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 | from-string.string).environment) |
| 2cc680 | 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 61 63 72 6f 65 78 | ))))..(defslimefun.swank-macroex |
| 2cc6a0 | 70 61 6e 64 2d 31 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 72 6f 6e | pand-1.(string.&optional.environ |
| 2cc6c0 | 6d 65 6e 74 29 0a 20 20 28 61 70 70 6c 79 2d 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 20 23 27 | ment)...(apply-macro-expander.#' |
| 2cc6e0 | 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 73 74 72 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 | macroexpand-1.string.environment |
| 2cc700 | 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 61 63 72 6f 65 78 70 61 | ))..(defslimefun.swank-macroexpa |
| 2cc720 | 6e 64 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 | nd.(string.&optional.environment |
| 2cc740 | 29 0a 20 20 28 61 70 70 6c 79 2d 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 20 23 27 6d 61 63 72 | )...(apply-macro-expander.#'macr |
| 2cc760 | 6f 65 78 70 61 6e 64 20 73 74 72 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 0a 28 64 | oexpand.string.environment))..(d |
| 2cc780 | 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 61 6c 6c | efslimefun.swank-macroexpand-all |
| 2cc7a0 | 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a | .(string.&optional.environment). |
| 2cc7c0 | 20 20 28 61 70 70 6c 79 2d 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 20 23 27 6d 61 63 72 6f 65 | ..(apply-macro-expander.#'macroe |
| 2cc7e0 | 78 70 61 6e 64 2d 61 6c 6c 20 73 74 72 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 0a | xpand-all.string.environment)).. |
| 2cc800 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 | (defslimefun.swank-compiler-macr |
| 2cc820 | 6f 65 78 70 61 6e 64 2d 31 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 | oexpand-1.(string.&optional.envi |
| 2cc840 | 72 6f 6e 6d 65 6e 74 29 0a 20 20 28 61 70 70 6c 79 2d 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 | ronment)...(apply-macro-expander |
| 2cc860 | 20 23 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 73 74 72 69 6e 67 | .#'compiler-macroexpand-1.string |
| 2cc880 | 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 | .environment))..(defslimefun.swa |
| 2cc8a0 | 6e 6b 2d 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 28 73 74 72 69 6e 67 20 | nk-compiler-macroexpand.(string. |
| 2cc8c0 | 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 28 61 70 70 6c 79 2d | &optional.environment)...(apply- |
| 2cc8e0 | 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 20 23 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 65 | macro-expander.#'compiler-macroe |
| 2cc900 | 78 70 61 6e 64 20 73 74 72 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 0a 28 64 65 66 | xpand.string.environment))..(def |
| 2cc920 | 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 65 78 70 61 6e 64 2d 31 20 28 73 74 72 69 6e 67 20 | slimefun.swank-expand-1.(string. |
| 2cc940 | 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 28 61 70 70 6c 79 2d | &optional.environment)...(apply- |
| 2cc960 | 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 20 23 27 65 78 70 61 6e 64 2d 31 20 73 74 72 69 6e 67 | macro-expander.#'expand-1.string |
| 2cc980 | 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 | .environment))..(defslimefun.swa |
| 2cc9a0 | 6e 6b 2d 65 78 70 61 6e 64 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 | nk-expand.(string.&optional.envi |
| 2cc9c0 | 72 6f 6e 6d 65 6e 74 29 0a 20 20 28 61 70 70 6c 79 2d 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 | ronment)...(apply-macro-expander |
| 2cc9e0 | 20 23 27 65 78 70 61 6e 64 20 73 74 72 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 0a | .#'expand.string.environment)).. |
| 2cca00 | 28 64 65 66 6d 61 63 72 6f 20 63 75 72 72 65 6e 74 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 26 | (defmacro.current-environment.(& |
| 2cca20 | 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 65 6e 76 29 0a 20 20 65 6e 76 29 0a 0a 28 64 65 66 73 6c 69 | environment.env)...env)..(defsli |
| 2cca40 | 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 6d 61 63 72 6f 6c 65 74 2d 65 78 70 61 6e 64 20 28 6d 61 63 | mefun.swank-macrolet-expand.(mac |
| 2cca60 | 72 6f 6c 65 74 73 20 65 78 70 61 6e 64 65 72 20 73 74 72 69 6e 67 29 0a 20 20 28 77 69 74 68 2d | rolets.expander.string)...(with- |
| 2cca80 | 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6d 61 63 72 | buffer-syntax.().....(let.((macr |
| 2ccaa0 | 6f 6c 65 74 2d 66 6f 72 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 28 63 75 72 72 65 6e 74 | olet-forms.............'(current |
| 2ccac0 | 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 0a 20 20 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 | -environment))).......(loop.for. |
| 2ccae0 | 6d 61 63 72 6f 6c 65 74 20 69 6e 20 6d 61 63 72 6f 6c 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 | macrolet.in.macrolets........... |
| 2ccb00 | 20 20 64 6f 20 28 73 65 74 66 20 6d 61 63 72 6f 6c 65 74 2d 66 6f 72 6d 73 0a 20 20 20 20 20 20 | ..do.(setf.macrolet-forms....... |
| 2ccb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6d 61 63 72 6f 6c 65 74 20 2c 28 66 72 6f 6d | ...............`(macrolet.,(from |
| 2ccb40 | 2d 73 74 72 69 6e 67 20 6d 61 63 72 6f 6c 65 74 29 20 2c 6d 61 63 72 6f 6c 65 74 2d 66 6f 72 6d | -string.macrolet).,macrolet-form |
| 2ccb60 | 73 20 29 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 65 78 70 61 6e 64 65 72 20 73 74 | s.))).......(funcall.expander.st |
| 2ccb80 | 72 69 6e 67 20 28 65 76 61 6c 20 6d 61 63 72 6f 6c 65 74 2d 66 6f 72 6d 73 29 29 29 29 29 0a 0a | ring.(eval.macrolet-forms))))).. |
| 2ccba0 | 28 64 65 66 75 6e 20 65 78 70 61 6e 64 2d 31 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 | (defun.expand-1.(form.&optional. |
| 2ccbc0 | 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 | environment)...(multiple-value-b |
| 2ccbe0 | 69 6e 64 20 28 65 78 70 61 6e 73 69 6f 6e 20 65 78 70 61 6e 64 65 64 3f 29 20 28 6d 61 63 72 6f | ind.(expansion.expanded?).(macro |
| 2ccc00 | 65 78 70 61 6e 64 2d 31 20 66 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 28 | expand-1.form.environment).....( |
| 2ccc20 | 69 66 20 65 78 70 61 6e 64 65 64 3f 0a 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 73 20 65 78 70 | if.expanded?.........(values.exp |
| 2ccc40 | 61 6e 73 69 6f 6e 20 74 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 | ansion.t).........(compiler-macr |
| 2ccc60 | 6f 65 78 70 61 6e 64 2d 31 20 66 6f 72 6d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 70 61 6e | oexpand-1.form))))..(defun.expan |
| 2ccc80 | 64 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 | d.(form.&optional.environment).. |
| 2ccca0 | 20 28 6c 6f 6f 70 0a 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 | .(loop....(multiple-value-bind.( |
| 2cccc0 | 65 78 70 61 6e 73 69 6f 6e 20 65 78 70 61 6e 64 65 64 3f 29 20 28 65 78 70 61 6e 64 2d 31 20 66 | expansion.expanded?).(expand-1.f |
| 2ccce0 | 6f 72 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 0a 20 20 20 20 20 28 75 6e 6c 65 73 73 20 65 78 | orm.environment)......(unless.ex |
| 2ccd00 | 70 61 6e 64 65 64 3f 20 28 72 65 74 75 72 6e 20 65 78 70 61 6e 73 69 6f 6e 29 29 0a 20 20 20 20 | panded?.(return.expansion))..... |
| 2ccd20 | 20 28 73 65 74 71 20 66 6f 72 6d 20 65 78 70 61 6e 73 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 73 | .(setq.form.expansion))))..(defs |
| 2ccd40 | 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 2d 65 78 70 61 | limefun.swank-format-string-expa |
| 2ccd60 | 6e 64 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 | nd.(string.&optional.environment |
| 2ccd80 | 29 0a 20 20 28 61 70 70 6c 79 2d 6d 61 63 72 6f 2d 65 78 70 61 6e 64 65 72 20 23 27 66 6f 72 6d | )...(apply-macro-expander.#'form |
| 2ccda0 | 61 74 2d 73 74 72 69 6e 67 2d 65 78 70 61 6e 64 20 73 74 72 69 6e 67 20 65 6e 76 69 72 6f 6e 6d | at-string-expand.string.environm |
| 2ccdc0 | 65 6e 74 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d | ent))..(defslimefun.disassemble- |
| 2ccde0 | 66 6f 72 6d 20 28 66 6f 72 6d 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 | form.(form)...(with-buffer-synta |
| 2cce00 | 78 20 28 29 0a 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 | x.().....(with-output-to-string. |
| 2cce20 | 28 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 | (*standard-output*).......(let.( |
| 2cce40 | 28 64 65 66 69 6e 69 74 69 6f 6e 20 28 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 | (definition.(find-definition.for |
| 2cce60 | 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 73 61 73 73 65 6d 62 6c 65 20 28 69 66 20 28 74 | m))).........(disassemble.(if.(t |
| 2cce80 | 79 70 65 70 20 64 65 66 69 6e 69 74 69 6f 6e 20 27 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 | ypep.definition.'method)........ |
| 2ccea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 23 2b 23 2e 28 73 77 61 6e 6b | ..................(or.#+#.(swank |
| 2ccec0 | 2f 62 61 63 6b 65 6e 64 3a 77 69 74 68 2d 73 79 6d 62 6f 6c 20 27 25 6d 65 74 68 6f 64 2d 66 75 | /backend:with-symbol.'%method-fu |
| 2ccee0 | 6e 63 74 69 6f 6e 2d 66 61 73 74 2d 66 75 6e 63 74 69 6f 6e 20 27 73 62 2d 70 63 6c 29 0a 20 20 | nction-fast-function.'sb-pcl)... |
| 2ccf00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 62 2d 70 | ...........................(sb-p |
| 2ccf20 | 63 6c 3a 3a 25 6d 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 2d 66 61 73 74 2d 66 75 6e 63 74 69 | cl::%method-function-fast-functi |
| 2ccf40 | 6f 6e 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 6d 65 74 68 6f 64 2d 66 75 6e 63 74 69 6f 6e 20 64 65 | on.(swank-mop:method-function.de |
| 2ccf60 | 66 69 6e 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | finition))...................... |
| 2ccf80 | 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 2d 6d 6f 70 3a 6d 65 74 68 6f 64 2d 67 65 6e 65 72 69 | ........(swank-mop:method-generi |
| 2ccfa0 | 63 2d 66 75 6e 63 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 | c-function.definition))......... |
| 2ccfc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 69 74 69 6f 6e 29 29 29 29 29 | .................definition))))) |
| 2ccfe0 | 29 0a 0a 0c 0a 3b 3b 3b 3b 20 53 69 6d 70 6c 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 0a 28 64 65 | )....;;;;.Simple.completion..(de |
| 2cd000 | 66 73 6c 69 6d 65 66 75 6e 20 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 70 72 | fslimefun.simple-completions.(pr |
| 2cd020 | 65 66 69 78 20 70 61 63 6b 61 67 65 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f | efix.package)..."Return.a.list.o |
| 2cd040 | 66 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 66 6f 72 20 74 68 65 20 73 74 72 69 6e 67 20 50 52 45 | f.completions.for.the.string.PRE |
| 2cd060 | 46 49 58 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 73 20 28 61 6c 6c 2d 63 6f 6d 70 | FIX."...(let.((strings.(all-comp |
| 2cd080 | 6c 65 74 69 6f 6e 73 20 70 72 65 66 69 78 20 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 20 28 6c | letions.prefix.package))).....(l |
| 2cd0a0 | 69 73 74 20 73 74 72 69 6e 67 73 20 28 6c 6f 6e 67 65 73 74 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 | ist.strings.(longest-common-pref |
| 2cd0c0 | 69 78 20 73 74 72 69 6e 67 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 6c 6c 2d 63 6f 6d 70 6c | ix.strings))))..(defun.all-compl |
| 2cd0e0 | 65 74 69 6f 6e 73 20 28 70 72 65 66 69 78 20 70 61 63 6b 61 67 65 29 0a 20 20 28 6d 75 6c 74 69 | etions.(prefix.package)...(multi |
| 2cd100 | 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6e 61 6d 65 20 70 6e 61 6d 65 20 69 6e 74 65 72 | ple-value-bind.(name.pname.inter |
| 2cd120 | 6e 29 20 28 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c 20 70 72 65 66 69 78 29 0a 20 20 20 20 | n).(tokenize-symbol.prefix)..... |
| 2cd140 | 28 6c 65 74 2a 20 28 28 65 78 74 65 72 6e 20 28 61 6e 64 20 70 6e 61 6d 65 20 28 6e 6f 74 20 69 | (let*.((extern.(and.pname.(not.i |
| 2cd160 | 6e 74 65 72 6e 29 29 29 0a 09 20 20 20 28 70 6b 67 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 | ntern))).....(pkg.(cond.((equal. |
| 2cd180 | 70 6e 61 6d 65 20 22 22 29 20 6b 65 79 77 6f 72 64 2d 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 | pname."").keyword-package)...... |
| 2cd1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 70 6e 61 6d 65 29 20 28 67 | .................((not.pname).(g |
| 2cd1c0 | 75 65 73 73 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 0a 20 20 | uess-buffer-package.package))... |
| 2cd1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 67 75 65 73 73 2d 70 61 | ....................(t.(guess-pa |
| 2cd200 | 63 6b 61 67 65 20 70 6e 61 6d 65 29 29 29 29 0a 09 20 20 20 28 74 65 73 74 20 28 6c 61 6d 62 64 | ckage.pname)))).....(test.(lambd |
| 2cd220 | 61 20 28 73 79 6d 29 20 28 70 72 65 66 69 78 2d 6d 61 74 63 68 2d 70 20 6e 61 6d 65 20 28 73 79 | a.(sym).(prefix-match-p.name.(sy |
| 2cd240 | 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 29 29 29 29 0a 09 20 20 20 28 73 79 6d 73 20 28 61 6e 64 | mbol-name.sym)))).....(syms.(and |
| 2cd260 | 20 70 6b 67 20 28 6d 61 74 63 68 69 6e 67 2d 73 79 6d 62 6f 6c 73 20 70 6b 67 20 65 78 74 65 72 | .pkg.(matching-symbols.pkg.exter |
| 2cd280 | 6e 20 74 65 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 73 20 28 6c | n.test)))............(strings.(l |
| 2cd2a0 | 6f 6f 70 20 66 6f 72 20 73 79 6d 20 69 6e 20 73 79 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | oop.for.sym.in.syms............. |
| 2cd2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 73 74 72 20 3d 20 28 75 6e 70 61 72 73 65 | ..............for.str.=.(unparse |
| 2cd2e0 | 2d 73 79 6d 62 6f 6c 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -symbol.sym).................... |
| 2cd300 | 20 20 20 20 20 20 20 77 68 65 6e 20 28 70 72 65 66 69 78 2d 6d 61 74 63 68 2d 70 20 6e 61 6d 65 | .......when.(prefix-match-p.name |
| 2cd320 | 20 73 74 72 29 20 3b 20 72 65 6d 6f 76 65 20 7c 46 6f 6f 7c 0a 20 20 20 20 20 20 20 20 20 20 20 | .str).;.remove.|Foo|............ |
| 2cd340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 73 74 72 29 29 29 0a 20 20 | ...............collect.str)))... |
| 2cd360 | 20 20 20 20 28 66 6f 72 6d 61 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 20 73 74 72 69 6e | ....(format-completion-set.strin |
| 2cd380 | 67 73 20 69 6e 74 65 72 6e 20 70 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 74 63 | gs.intern.pname))))..(defun.matc |
| 2cd3a0 | 68 69 6e 67 2d 73 79 6d 62 6f 6c 73 20 28 70 61 63 6b 61 67 65 20 65 78 74 65 72 6e 61 6c 20 74 | hing-symbols.(package.external.t |
| 2cd3c0 | 65 73 74 29 0a 20 20 28 6c 65 74 20 28 28 74 65 73 74 20 28 69 66 20 65 78 74 65 72 6e 61 6c 20 | est)...(let.((test.(if.external. |
| 2cd3e0 | 0a 09 09 20 20 28 6c 61 6d 62 64 61 20 28 73 29 0a 09 09 20 20 20 20 28 61 6e 64 20 28 73 79 6d | .....(lambda.(s).......(and.(sym |
| 2cd400 | 62 6f 6c 2d 65 78 74 65 72 6e 61 6c 2d 70 20 73 20 70 61 63 6b 61 67 65 29 20 0a 09 09 09 20 28 | bol-external-p.s.package)......( |
| 2cd420 | 66 75 6e 63 61 6c 6c 20 74 65 73 74 20 73 29 29 29 0a 09 09 20 20 74 65 73 74 29 29 0a 09 28 72 | funcall.test.s))).....test))..(r |
| 2cd440 | 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 64 6f 2d 73 79 6d 62 6f 6c 73 20 28 73 20 70 | esult.'())).....(do-symbols.(s.p |
| 2cd460 | 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 75 6e 63 61 6c 6c 20 74 65 73 | ackage).......(when.(funcall.tes |
| 2cd480 | 74 20 73 29 20 0a 09 28 70 75 73 68 20 73 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 28 72 65 | t.s)...(push.s.result))).....(re |
| 2cd4a0 | 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 75 | move-duplicates.result)))..(defu |
| 2cd4c0 | 6e 20 75 6e 70 61 72 73 65 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 29 0a 20 20 28 6c 65 74 | n.unparse-symbol.(symbol)...(let |
| 2cd4e0 | 20 28 28 2a 70 72 69 6e 74 2d 63 61 73 65 2a 20 28 63 61 73 65 20 28 72 65 61 64 74 61 62 6c 65 | .((*print-case*.(case.(readtable |
| 2cd500 | 2d 63 61 73 65 20 2a 72 65 61 64 74 61 62 6c 65 2a 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -case.*readtable*).............. |
| 2cd520 | 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 64 6f 77 6e 63 61 73 65 20 3a 75 70 63 61 73 65 29 0a | ............(:downcase.:upcase). |
| 2cd540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 3a 64 6f 77 6e | ........................(t.:down |
| 2cd560 | 63 61 73 65 29 29 29 29 0a 20 20 20 20 28 75 6e 70 61 72 73 65 2d 6e 61 6d 65 20 28 73 79 6d 62 | case)))).....(unparse-name.(symb |
| 2cd580 | 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 66 69 | ol-name.symbol))))..(defun.prefi |
| 2cd5a0 | 78 2d 6d 61 74 63 68 2d 70 20 28 70 72 65 66 69 78 20 73 74 72 69 6e 67 29 0a 20 20 22 52 65 74 | x-match-p.(prefix.string)..."Ret |
| 2cd5c0 | 75 72 6e 20 74 72 75 65 20 69 66 20 50 52 45 46 49 58 20 69 73 20 61 20 70 72 65 66 69 78 20 6f | urn.true.if.PREFIX.is.a.prefix.o |
| 2cd5e0 | 66 20 53 54 52 49 4e 47 2e 22 0a 20 20 28 6e 6f 74 20 28 6d 69 73 6d 61 74 63 68 20 70 72 65 66 | f.STRING."...(not.(mismatch.pref |
| 2cd600 | 69 78 20 73 74 72 69 6e 67 20 3a 65 6e 64 32 20 28 6d 69 6e 20 28 6c 65 6e 67 74 68 20 73 74 72 | ix.string.:end2.(min.(length.str |
| 2cd620 | 69 6e 67 29 20 28 6c 65 6e 67 74 68 20 70 72 65 66 69 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ing).(length.prefix))........... |
| 2cd640 | 20 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 63 68 61 72 2d 65 71 75 61 6c 29 29 29 0a 0a 28 64 | .......:test.#'char-equal)))..(d |
| 2cd660 | 65 66 75 6e 20 6c 6f 6e 67 65 73 74 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 28 73 74 72 69 | efun.longest-common-prefix.(stri |
| 2cd680 | 6e 67 73 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 73 74 72 69 6e | ngs)..."Return.the.longest.strin |
| 2cd6a0 | 67 20 74 68 61 74 20 69 73 20 61 20 63 6f 6d 6d 6f 6e 20 70 72 65 66 69 78 20 6f 66 20 53 54 52 | g.that.is.a.common.prefix.of.STR |
| 2cd6c0 | 49 4e 47 53 2e 22 0a 20 20 28 69 66 20 28 6e 75 6c 6c 20 73 74 72 69 6e 67 73 29 0a 20 20 20 20 | INGS."...(if.(null.strings)..... |
| 2cd6e0 | 20 20 22 22 0a 20 20 20 20 20 20 28 66 6c 65 74 20 28 28 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 | .."".......(flet.((common-prefix |
| 2cd700 | 20 28 73 31 20 73 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 | .(s1.s2)................(let.((d |
| 2cd720 | 69 66 66 2d 70 6f 73 20 28 6d 69 73 6d 61 74 63 68 20 73 31 20 73 32 29 29 29 0a 20 20 20 20 20 | iff-pos.(mismatch.s1.s2)))...... |
| 2cd740 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 64 69 66 66 2d 70 6f 73 20 28 73 75 62 73 65 71 | ............(if.diff-pos.(subseq |
| 2cd760 | 20 73 31 20 30 20 64 69 66 66 2d 70 6f 73 29 20 73 31 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 | .s1.0.diff-pos).s1)))).........( |
| 2cd780 | 72 65 64 75 63 65 20 23 27 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 73 74 72 69 6e 67 73 29 29 | reduce.#'common-prefix.strings)) |
| 2cd7a0 | 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 6d 61 74 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 65 74 | ))..(defun.format-completion-set |
| 2cd7c0 | 20 28 73 74 72 69 6e 67 73 20 69 6e 74 65 72 6e 61 6c 2d 70 20 70 61 63 6b 61 67 65 2d 6e 61 6d | .(strings.internal-p.package-nam |
| 2cd7e0 | 65 29 0a 20 20 22 46 6f 72 6d 61 74 20 61 20 73 65 74 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6f 6e | e)..."Format.a.set.of.completion |
| 2cd800 | 20 73 74 72 69 6e 67 73 2e 0a 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6d 70 | .strings..Returns.a.list.of.comp |
| 2cd820 | 6c 65 74 69 6f 6e 73 20 77 69 74 68 20 70 61 63 6b 61 67 65 20 71 75 61 6c 69 66 69 65 72 73 20 | letions.with.package.qualifiers. |
| 2cd840 | 69 66 20 6e 65 65 64 65 64 2e 22 0a 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 73 | if.needed."...(mapcar.(lambda.(s |
| 2cd860 | 74 72 69 6e 67 29 20 28 75 6e 74 6f 6b 65 6e 69 7a 65 2d 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 | tring).(untokenize-symbol.packag |
| 2cd880 | 65 2d 6e 61 6d 65 20 69 6e 74 65 72 6e 61 6c 2d 70 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 | e-name.internal-p.string))...... |
| 2cd8a0 | 20 20 20 20 20 28 73 6f 72 74 20 73 74 72 69 6e 67 73 20 23 27 73 74 72 69 6e 67 3c 29 29 29 0a | .....(sort.strings.#'string<))). |
| 2cd8c0 | 0a 0c 0a 3b 3b 3b 3b 20 53 69 6d 70 6c 65 20 61 72 67 6c 69 73 74 20 64 69 73 70 6c 61 79 0a 0a | ...;;;;.Simple.arglist.display.. |
| 2cd8e0 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6f 70 65 72 61 74 6f 72 2d 61 72 67 6c 69 73 74 20 28 6e | (defslimefun.operator-arglist.(n |
| 2cd900 | 61 6d 65 20 70 61 63 6b 61 67 65 29 0a 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 | ame.package)...(ignore-errors... |
| 2cd920 | 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 28 61 72 67 6c 69 73 74 20 28 70 61 72 73 65 2d 73 79 | ..(let.((args.(arglist.(parse-sy |
| 2cd940 | 6d 62 6f 6c 20 6e 61 6d 65 20 28 67 75 65 73 73 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 | mbol.name.(guess-buffer-package. |
| 2cd960 | 70 61 63 6b 61 67 65 29 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 61 72 | package))))).......(cond.((eq.ar |
| 2cd980 | 67 73 20 3a 6e 6f 74 2d 61 76 61 69 6c 61 62 6c 65 29 20 6e 69 6c 29 0a 09 20 20 20 20 28 74 20 | gs.:not-available).nil)......(t. |
| 2cd9a0 | 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 28 63 6f 6e 73 20 6e 61 6d 65 20 61 72 67 73 | (princ-to-string.(cons.name.args |
| 2cd9c0 | 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 0a 28 | )))))))....;;;;.Documentation..( |
| 2cd9e0 | 64 65 66 73 6c 69 6d 65 66 75 6e 20 61 70 72 6f 70 6f 73 2d 6c 69 73 74 2d 66 6f 72 2d 65 6d 61 | defslimefun.apropos-list-for-ema |
| 2cda00 | 63 73 20 20 28 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 65 78 74 65 72 6e 61 6c 2d 6f 6e 6c | cs..(name.&optional.external-onl |
| 2cda20 | 79 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | y............................... |
| 2cda40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 20 70 61 63 | ..............case-sensitive.pac |
| 2cda60 | 6b 61 67 65 29 0a 20 20 22 4d 61 6b 65 20 61 6e 20 61 70 72 6f 70 6f 73 20 73 65 61 72 63 68 20 | kage)..."Make.an.apropos.search. |
| 2cda80 | 66 6f 72 20 45 6d 61 63 73 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 6c 69 73 74 20 | for.Emacs..The.result.is.a.list. |
| 2cdaa0 | 6f 66 20 70 72 6f 70 65 72 74 79 20 6c 69 73 74 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 61 63 | of.property.lists."...(let.((pac |
| 2cdac0 | 6b 61 67 65 20 28 69 66 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kage.(if.package................ |
| 2cdae0 | 20 20 20 20 20 20 28 6f 72 20 28 70 61 72 73 65 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 | ......(or.(parse-package.package |
| 2cdb00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f | )..........................(erro |
| 2cdb20 | 72 20 22 4e 6f 20 73 75 63 68 20 70 61 63 6b 61 67 65 3a 20 7e 53 22 20 70 61 63 6b 61 67 65 29 | r."No.such.package:.~S".package) |
| 2cdb40 | 29 29 29 29 0a 20 20 20 20 3b 3b 20 54 68 65 20 4d 41 50 43 41 4e 20 77 69 6c 6c 20 66 69 6c 74 | )))).....;;.The.MAPCAN.will.filt |
| 2cdb60 | 65 72 20 61 6c 6c 20 75 6e 69 6e 74 65 72 65 73 74 69 6e 67 20 73 79 6d 62 6f 6c 73 2c 20 69 2e | er.all.uninteresting.symbols,.i. |
| 2cdb80 | 65 2e 20 74 68 6f 73 65 0a 20 20 20 20 3b 3b 20 77 68 6f 20 63 61 6e 6e 6f 74 20 62 65 20 6d 65 | e..those.....;;.who.cannot.be.me |
| 2cdba0 | 61 6e 69 6e 67 66 75 6c 6c 79 20 64 65 73 63 72 69 62 65 64 2e 0a 20 20 20 20 28 6d 61 70 63 61 | aningfully.described......(mapca |
| 2cdbc0 | 6e 20 28 6c 69 73 74 69 66 79 20 23 27 62 72 69 65 66 6c 79 2d 64 65 73 63 72 69 62 65 2d 73 79 | n.(listify.#'briefly-describe-sy |
| 2cdbe0 | 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 72 | mbol-for-emacs).............(sor |
| 2cdc00 | 74 20 28 72 65 6d 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 | t.(remove-duplicates............ |
| 2cdc20 | 20 20 20 20 20 20 20 20 28 61 70 72 6f 70 6f 73 2d 73 79 6d 62 6f 6c 73 20 6e 61 6d 65 20 65 78 | ........(apropos-symbols.name.ex |
| 2cdc40 | 74 65 72 6e 61 6c 2d 6f 6e 6c 79 20 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 20 70 61 63 6b 61 | ternal-only.case-sensitive.packa |
| 2cdc60 | 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 70 72 65 73 65 6e 74 | ge))...................#'present |
| 2cdc80 | 2d 73 79 6d 62 6f 6c 2d 62 65 66 6f 72 65 2d 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 62 72 69 | -symbol-before-p))))..(defun.bri |
| 2cdca0 | 65 66 6c 79 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 28 | efly-describe-symbol-for-emacs.( |
| 2cdcc0 | 73 79 6d 62 6f 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 70 72 6f 70 65 72 74 79 20 6c 69 73 | symbol)..."Return.a.property.lis |
| 2cdce0 | 74 20 64 65 73 63 72 69 62 69 6e 67 20 53 59 4d 42 4f 4c 2e 0a 4c 69 6b 65 20 60 64 65 73 63 72 | t.describing.SYMBOL..Like.`descr |
| 2cdd00 | 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 27 20 62 75 74 20 77 69 74 68 20 61 | ibe-symbol-for-emacs'.but.with.a |
| 2cdd20 | 74 20 6d 6f 73 74 20 6f 6e 65 20 6c 69 6e 65 20 70 65 72 20 69 74 65 6d 2e 22 0a 20 20 28 66 6c | t.most.one.line.per.item."...(fl |
| 2cdd40 | 65 74 20 28 28 66 69 72 73 74 2d 6c 69 6e 65 20 28 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 | et.((first-line.(string)........ |
| 2cdd60 | 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 70 6f 73 69 74 69 6f 6e 20 23 5c 6e 65 77 6c 69 | ....(let.((pos.(position.#\newli |
| 2cdd80 | 6e 65 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e | ne.string)))..............(if.(n |
| 2cdda0 | 75 6c 6c 20 70 6f 73 29 20 73 74 72 69 6e 67 20 28 73 75 62 73 65 71 20 73 74 72 69 6e 67 20 30 | ull.pos).string.(subseq.string.0 |
| 2cddc0 | 20 70 6f 73 29 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 64 65 73 63 20 28 6d 61 70 2d 69 | .pos))))).....(let.((desc.(map-i |
| 2cdde0 | 66 20 23 27 73 74 72 69 6e 67 70 20 23 27 66 69 72 73 74 2d 6c 69 6e 65 20 0a 20 20 20 20 20 20 | f.#'stringp.#'first-line........ |
| 2cde00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 63 72 69 62 65 2d 73 79 6d 62 | ..................(describe-symb |
| 2cde20 | 6f 6c 2d 66 6f 72 2d 65 6d 61 63 73 20 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 20 20 28 69 | ol-for-emacs.symbol)))).......(i |
| 2cde40 | 66 20 64 65 73 63 20 0a 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 3a 64 65 73 69 67 6e | f.desc............(list*.:design |
| 2cde60 | 61 74 6f 72 20 28 74 6f 2d 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 20 64 65 73 63 29 29 29 29 | ator.(to-string.symbol).desc)))) |
| 2cde80 | 29 0a 0a 28 64 65 66 75 6e 20 6d 61 70 2d 69 66 20 28 74 65 73 74 20 66 6e 20 26 72 65 73 74 20 | )..(defun.map-if.(test.fn.&rest. |
| 2cdea0 | 6c 69 73 74 73 29 0a 20 20 22 4c 69 6b 65 20 28 6d 61 70 63 61 72 20 46 4e 20 2e 20 4c 49 53 54 | lists)..."Like.(mapcar.FN...LIST |
| 2cdec0 | 53 29 20 62 75 74 20 6f 6e 6c 79 20 63 61 6c 6c 20 46 4e 20 6f 6e 20 6f 62 6a 65 63 74 73 20 73 | S).but.only.call.FN.on.objects.s |
| 2cdee0 | 61 74 69 73 66 79 69 6e 67 20 54 45 53 54 2e 0a 45 78 61 6d 70 6c 65 3a 0a 5c 28 6d 61 70 2d 69 | atisfying.TEST..Example:.\(map-i |
| 2cdf00 | 66 20 23 27 6f 64 64 70 20 23 27 2d 20 27 28 31 20 32 20 33 20 34 20 35 29 29 20 3d 3e 20 28 2d | f.#'oddp.#'-.'(1.2.3.4.5)).=>.(- |
| 2cdf20 | 31 20 32 20 2d 33 20 34 20 2d 35 29 22 0a 20 20 28 61 70 70 6c 79 20 23 27 6d 61 70 63 61 72 0a | 1.2.-3.4.-5)"...(apply.#'mapcar. |
| 2cdf40 | 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 69 66 20 28 66 75 6e 63 61 6c | .........(lambda.(x).(if.(funcal |
| 2cdf60 | 6c 20 74 65 73 74 20 78 29 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 78 29 20 78 29 29 0a 20 20 20 | l.test.x).(funcall.fn.x).x)).... |
| 2cdf80 | 20 20 20 20 20 20 6c 69 73 74 73 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 74 69 66 79 20 28 66 | ......lists))..(defun.listify.(f |
| 2cdfa0 | 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 6c 69 6b 65 20 46 2c 20 62 | )..."Return.a.function.like.F,.b |
| 2cdfc0 | 75 74 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 20 61 6e 79 20 6e 6f 6e 2d 6e 75 6c 6c 20 76 61 | ut.which.returns.any.non-null.va |
| 2cdfe0 | 6c 75 65 0a 77 72 61 70 70 65 64 20 69 6e 20 61 20 6c 69 73 74 2e 22 0a 20 20 28 6c 61 6d 62 64 | lue.wrapped.in.a.list."...(lambd |
| 2ce000 | 61 20 28 78 29 0a 20 20 20 20 28 6c 65 74 20 28 28 79 20 28 66 75 6e 63 61 6c 6c 20 66 20 78 29 | a.(x).....(let.((y.(funcall.f.x) |
| 2ce020 | 29 29 0a 20 20 20 20 20 20 28 61 6e 64 20 79 20 28 6c 69 73 74 20 79 29 29 29 29 29 0a 0a 28 64 | )).......(and.y.(list.y)))))..(d |
| 2ce040 | 65 66 75 6e 20 70 72 65 73 65 6e 74 2d 73 79 6d 62 6f 6c 2d 62 65 66 6f 72 65 2d 70 20 28 78 20 | efun.present-symbol-before-p.(x. |
| 2ce060 | 79 29 0a 20 20 22 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 58 20 62 65 6c 6f 6e 67 73 20 62 | y)..."Return.true.if.X.belongs.b |
| 2ce080 | 65 66 6f 72 65 20 59 20 69 6e 20 61 20 70 72 69 6e 74 65 64 20 73 75 6d 6d 61 72 79 20 6f 66 20 | efore.Y.in.a.printed.summary.of. |
| 2ce0a0 | 73 79 6d 62 6f 6c 73 2e 0a 53 6f 72 74 65 64 20 61 6c 70 68 61 62 65 74 69 63 61 6c 6c 79 20 62 | symbols..Sorted.alphabetically.b |
| 2ce0c0 | 79 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 20 61 6e 64 20 74 68 65 6e 20 73 79 6d 62 6f 6c 20 6e | y.package.name.and.then.symbol.n |
| 2ce0e0 | 61 6d 65 2c 20 65 78 63 65 70 74 0a 74 68 61 74 20 73 79 6d 62 6f 6c 73 20 61 63 63 65 73 73 69 | ame,.except.that.symbols.accessi |
| 2ce100 | 62 6c 65 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 61 63 6b 61 67 65 20 67 6f 20 66 69 | ble.in.the.current.package.go.fi |
| 2ce120 | 72 73 74 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 74 79 70 65 20 73 79 6d 62 6f 6c 20 78 20 | rst."...(declare.(type.symbol.x. |
| 2ce140 | 79 29 29 0a 20 20 28 66 6c 65 74 20 28 28 61 63 63 65 73 73 69 62 6c 65 20 28 73 29 0a 20 20 20 | y))...(flet.((accessible.(s).... |
| 2ce160 | 20 20 20 20 20 20 20 20 3b 3b 20 54 65 73 74 20 62 72 65 61 6b 73 20 6f 6e 20 4e 49 4c 20 66 6f | ........;;.Test.breaks.on.NIL.fo |
| 2ce180 | 72 20 70 61 63 6b 61 67 65 20 74 68 61 74 20 64 6f 65 73 20 6e 6f 74 20 69 6e 68 65 72 69 74 20 | r.package.that.does.not.inherit. |
| 2ce1a0 | 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 | it............(eq.(find-symbol.( |
| 2ce1c0 | 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 29 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 | symbol-name.s).*buffer-package*) |
| 2ce1e0 | 20 73 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 61 78 20 28 61 63 63 65 73 73 69 62 6c 65 20 | .s))).....(let.((ax.(accessible. |
| 2ce200 | 78 29 29 20 28 61 79 20 28 61 63 63 65 73 73 69 62 6c 65 20 79 29 29 29 0a 20 20 20 20 20 20 28 | x)).(ay.(accessible.y))).......( |
| 2ce220 | 63 6f 6e 64 20 28 28 61 6e 64 20 61 78 20 61 79 29 20 28 73 74 72 69 6e 67 3c 20 28 73 79 6d 62 | cond.((and.ax.ay).(string<.(symb |
| 2ce240 | 6f 6c 2d 6e 61 6d 65 20 78 29 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 79 29 29 29 0a 20 20 20 | ol-name.x).(symbol-name.y))).... |
| 2ce260 | 20 20 20 20 20 20 20 20 20 28 61 78 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 79 20 | .........(ax.t).............(ay. |
| 2ce280 | 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6c 65 74 20 28 28 70 78 20 28 73 | nil).............(t.(let.((px.(s |
| 2ce2a0 | 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 78 29 29 20 28 70 79 20 28 73 79 6d 62 6f 6c 2d 70 61 | ymbol-package.x)).(py.(symbol-pa |
| 2ce2c0 | 63 6b 61 67 65 20 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | ckage.y)))..................(if. |
| 2ce2e0 | 28 65 71 20 70 78 20 70 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (eq.px.py)...................... |
| 2ce300 | 28 73 74 72 69 6e 67 3c 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 78 29 20 28 73 79 6d 62 6f 6c | (string<.(symbol-name.x).(symbol |
| 2ce320 | 2d 6e 61 6d 65 20 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -name.y))......................( |
| 2ce340 | 73 74 72 69 6e 67 3c 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 78 29 20 28 70 61 63 6b 61 | string<.(package-name.px).(packa |
| 2ce360 | 67 65 2d 6e 61 6d 65 20 70 79 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 | ge-name.py)))))))))..(defun.make |
| 2ce380 | 2d 61 70 72 6f 70 6f 73 2d 6d 61 74 63 68 65 72 20 28 70 61 74 74 65 72 6e 20 63 61 73 65 2d 73 | -apropos-matcher.(pattern.case-s |
| 2ce3a0 | 65 6e 73 69 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 68 72 3d 20 28 69 66 20 63 61 73 65 | ensitive)...(let.((chr=.(if.case |
| 2ce3c0 | 2d 73 65 6e 73 69 74 69 76 65 20 23 27 63 68 61 72 3d 20 23 27 63 68 61 72 2d 65 71 75 61 6c 29 | -sensitive.#'char=.#'char-equal) |
| 2ce3e0 | 29 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 28 73 | )).....(lambda.(symbol).......(s |
| 2ce400 | 65 61 72 63 68 20 70 61 74 74 65 72 6e 20 28 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 20 3a 74 | earch.pattern.(string.symbol).:t |
| 2ce420 | 65 73 74 20 63 68 72 3d 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 70 72 6f 70 6f 73 2d 73 79 6d | est.chr=))))..(defun.apropos-sym |
| 2ce440 | 62 6f 6c 73 20 28 73 74 72 69 6e 67 20 65 78 74 65 72 6e 61 6c 2d 6f 6e 6c 79 20 63 61 73 65 2d | bols.(string.external-only.case- |
| 2ce460 | 73 65 6e 73 69 74 69 76 65 20 70 61 63 6b 61 67 65 29 0a 20 20 28 6c 65 74 20 28 28 70 61 63 6b | sensitive.package)...(let.((pack |
| 2ce480 | 61 67 65 73 20 28 6f 72 20 70 61 63 6b 61 67 65 20 28 72 65 6d 6f 76 65 20 28 66 69 6e 64 2d 70 | ages.(or.package.(remove.(find-p |
| 2ce4a0 | 61 63 6b 61 67 65 20 3a 6b 65 79 77 6f 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ackage.:keyword)................ |
| 2ce4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2d 61 6c 6c | .......................(list-all |
| 2ce4e0 | 2d 70 61 63 6b 61 67 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 65 72 20 20 | -packages)))).........(matcher.. |
| 2ce500 | 28 6d 61 6b 65 2d 61 70 72 6f 70 6f 73 2d 6d 61 74 63 68 65 72 20 73 74 72 69 6e 67 20 63 61 73 | (make-apropos-matcher.string.cas |
| 2ce520 | 65 2d 73 65 6e 73 69 74 69 76 65 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 73 75 6c 74 29 29 0a | e-sensitive)).........(result)). |
| 2ce540 | 20 20 20 20 28 77 69 74 68 2d 70 61 63 6b 61 67 65 2d 69 74 65 72 61 74 6f 72 20 28 6e 65 78 74 | ....(with-package-iterator.(next |
| 2ce560 | 20 70 61 63 6b 61 67 65 73 20 3a 65 78 74 65 72 6e 61 6c 20 3a 69 6e 74 65 72 6e 61 6c 29 0a 20 | .packages.:external.:internal).. |
| 2ce580 | 20 20 20 20 20 28 6c 6f 6f 70 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 | .....(loop.(multiple-value-bind. |
| 2ce5a0 | 28 6d 6f 72 65 70 20 73 79 6d 62 6f 6c 29 20 28 6e 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 | (morep.symbol).(next)........... |
| 2ce5c0 | 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 6d 6f 72 65 70 29 20 28 72 65 74 75 72 6e 29 29 | ....(cond.((not.morep).(return)) |
| 2ce5e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 69 66 20 65 | .....................((and.(if.e |
| 2ce600 | 78 74 65 72 6e 61 6c 2d 6f 6e 6c 79 20 28 73 79 6d 62 6f 6c 2d 65 78 74 65 72 6e 61 6c 2d 70 20 | xternal-only.(symbol-external-p. |
| 2ce620 | 73 79 6d 62 6f 6c 29 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | symbol).t)...................... |
| 2ce640 | 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6d 61 74 63 68 65 72 20 73 79 6d 62 6f 6c 29 29 0a 20 | .....(funcall.matcher.symbol)).. |
| 2ce660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 73 79 6d 62 6f 6c | ....................(push.symbol |
| 2ce680 | 20 72 65 73 75 6c 74 29 29 29 29 29 29 0a 20 20 20 20 72 65 73 75 6c 74 29 29 0a 0a 28 64 65 66 | .result)))))).....result))..(def |
| 2ce6a0 | 75 6e 20 63 61 6c 6c 2d 77 69 74 68 2d 64 65 73 63 72 69 62 65 2d 73 65 74 74 69 6e 67 73 20 28 | un.call-with-describe-settings.( |
| 2ce6c0 | 66 6e 29 0a 20 20 28 6c 65 74 20 28 28 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 20 6e 69 | fn)...(let.((*print-readably*.ni |
| 2ce6e0 | 6c 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 | l)).....(funcall.fn)))..(defmacr |
| 2ce700 | 6f 20 77 69 74 68 2d 64 65 73 63 72 69 62 65 2d 73 65 74 74 69 6e 67 73 20 28 28 26 72 65 73 74 | o.with-describe-settings.((&rest |
| 2ce720 | 20 5f 29 20 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f | ._).&body.body)...(declare.(igno |
| 2ce740 | 72 65 20 5f 29 29 0a 20 20 60 28 63 61 6c 6c 2d 77 69 74 68 2d 64 65 73 63 72 69 62 65 2d 73 65 | re._))...`(call-with-describe-se |
| 2ce760 | 74 74 69 6e 67 73 20 28 6c 61 6d 62 64 61 20 28 29 20 2c 40 62 6f 64 79 29 29 29 0a 20 20 20 20 | ttings.(lambda.().,@body)))..... |
| 2ce780 | 0a 28 64 65 66 75 6e 20 64 65 73 63 72 69 62 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 62 6a 65 | .(defun.describe-to-string.(obje |
| 2ce7a0 | 63 74 29 0a 20 20 28 77 69 74 68 2d 64 65 73 63 72 69 62 65 2d 73 65 74 74 69 6e 67 73 20 28 29 | ct)...(with-describe-settings.() |
| 2ce7c0 | 0a 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2a 73 74 | .....(with-output-to-string.(*st |
| 2ce7e0 | 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 20 20 28 64 65 73 63 72 69 62 65 20 | andard-output*).......(describe. |
| 2ce800 | 6f 62 6a 65 63 74 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 65 73 63 72 69 62 | object))))..(defslimefun.describ |
| 2ce820 | 65 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 28 77 69 74 68 2d 62 | e-symbol.(symbol-name)...(with-b |
| 2ce840 | 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 64 65 73 63 72 69 62 65 2d 74 6f | uffer-syntax.().....(describe-to |
| 2ce860 | 2d 73 74 72 69 6e 67 20 28 70 61 72 73 65 2d 73 79 6d 62 6f 6c 2d 6f 72 2d 6c 6f 73 65 20 73 79 | -string.(parse-symbol-or-lose.sy |
| 2ce880 | 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 65 73 63 | mbol-name))))..(defslimefun.desc |
| 2ce8a0 | 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 20 28 6e 61 6d 65 29 0a 20 20 28 77 69 74 68 2d 62 75 66 | ribe-function.(name)...(with-buf |
| 2ce8c0 | 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 79 6d 62 6f 6c 20 | fer-syntax.().....(let.((symbol. |
| 2ce8e0 | 28 70 61 72 73 65 2d 73 79 6d 62 6f 6c 2d 6f 72 2d 6c 6f 73 65 20 6e 61 6d 65 29 29 29 0a 20 20 | (parse-symbol-or-lose.name)))... |
| 2ce900 | 20 20 20 20 28 64 65 73 63 72 69 62 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 72 20 28 6d 61 63 | ....(describe-to-string.(or.(mac |
| 2ce920 | 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ro-function.symbol)............. |
| 2ce940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 | ..................(symbol-functi |
| 2ce960 | 6f 6e 20 73 79 6d 62 6f 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 65 | on.symbol))))))..(defslimefun.de |
| 2ce980 | 73 63 72 69 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 6f 72 2d 65 6d 61 63 73 20 28 6e 61 6d | scribe-definition-for-emacs.(nam |
| 2ce9a0 | 65 20 6b 69 6e 64 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 | e.kind)...(with-buffer-syntax.() |
| 2ce9c0 | 0a 20 20 20 20 28 77 69 74 68 2d 64 65 73 63 72 69 62 65 2d 73 65 74 74 69 6e 67 73 20 28 29 0a | .....(with-describe-settings.(). |
| 2ce9e0 | 20 20 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2a 73 | ......(with-output-to-string.(*s |
| 2cea00 | 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 20 20 20 20 28 64 65 73 63 72 69 | tandard-output*).........(descri |
| 2cea20 | 62 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 70 61 72 73 65 2d 73 79 6d 62 6f 6c 2d 6f 72 2d 6c | be-definition.(parse-symbol-or-l |
| 2cea40 | 6f 73 65 20 6e 61 6d 65 29 20 6b 69 6e 64 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 | ose.name).kind)))))..(defslimefu |
| 2cea60 | 6e 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e | n.documentation-symbol.(symbol-n |
| 2cea80 | 61 6d 65 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 | ame)...(with-buffer-syntax.()... |
| 2ceaa0 | 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 79 6d 20 66 6f 75 6e | ..(multiple-value-bind.(sym.foun |
| 2ceac0 | 64 70 29 20 28 70 61 72 73 65 2d 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 | dp).(parse-symbol.symbol-name).. |
| 2ceae0 | 20 20 20 20 20 28 69 66 20 66 6f 75 6e 64 70 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | .....(if.foundp...........(let.( |
| 2ceb00 | 28 76 64 6f 63 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 79 6d 20 27 76 61 72 69 61 62 | (vdoc.(documentation.sym.'variab |
| 2ceb20 | 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 64 6f 63 20 28 64 6f 63 75 | le)).................(fdoc.(docu |
| 2ceb40 | 6d 65 6e 74 61 74 69 6f 6e 20 73 79 6d 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 | mentation.sym.'function)))...... |
| 2ceb60 | 20 20 20 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 73 | .......(with-output-to-string.(s |
| 2ceb80 | 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 | tring)...............(format.str |
| 2ceba0 | 69 6e 67 20 22 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 73 79 6d 62 6f | ing."Documentation.for.the.symbo |
| 2cebc0 | 6c 20 7e 61 3a 7e 32 25 22 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e | l.~a:~2%".sym)...............(un |
| 2cebe0 | 6c 65 73 73 20 28 6f 72 20 76 64 6f 63 20 66 64 6f 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | less.(or.vdoc.fdoc)............. |
| 2cec00 | 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 22 4e 6f 74 20 64 6f 63 75 6d 65 6e 74 | ....(format.string."Not.document |
| 2cec20 | 65 64 2e 22 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 76 64 6f 63 | ed.".))...............(when.vdoc |
| 2cec40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 | .................(format.string. |
| 2cec60 | 22 56 61 72 69 61 62 6c 65 3a 7e 25 20 7e 61 7e 32 25 22 20 76 64 6f 63 29 29 0a 20 20 20 20 20 | "Variable:~%.~a~2%".vdoc))...... |
| 2cec80 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 66 64 6f 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .........(when.fdoc............. |
| 2ceca0 | 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 22 46 75 6e 63 74 69 6f 6e 3a 7e 25 20 | ....(format.string."Function:~%. |
| 2cecc0 | 41 72 67 6c 69 73 74 3a 20 7e 61 7e 32 25 20 7e 61 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | Arglist:.~a~2%.~a".............. |
| 2cece0 | 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 6c 69 73 74 20 73 79 6d 29 0a 20 20 20 20 20 20 20 | ...........(arglist.sym)........ |
| 2ced00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 64 6f 63 29 29 29 29 0a 20 20 20 20 20 20 | .................fdoc))))....... |
| 2ced20 | 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4e 6f 20 73 75 63 68 20 73 79 6d 62 6f 6c 2c | ....(format.nil."No.such.symbol, |
| 2ced40 | 20 7e 61 2e 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 50 | .~a.".symbol-name)))))....;;;;.P |
| 2ced60 | 61 63 6b 61 67 65 20 43 6f 6d 6d 61 6e 64 73 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6c 69 | ackage.Commands..(defslimefun.li |
| 2ced80 | 73 74 2d 61 6c 6c 2d 70 61 63 6b 61 67 65 2d 6e 61 6d 65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 | st-all-package-names.(&optional. |
| 2ceda0 | 6e 69 63 6b 6e 61 6d 65 73 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 | nicknames)..."Return.a.list.of.a |
| 2cedc0 | 6c 6c 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 73 2e 0a 49 6e 63 6c 75 64 65 20 74 68 65 20 6e 69 | ll.package.names..Include.the.ni |
| 2cede0 | 63 6b 6e 61 6d 65 73 20 69 66 20 4e 49 43 4b 4e 41 4d 45 53 20 69 73 20 74 72 75 65 2e 22 0a 20 | cknames.if.NICKNAMES.is.true.".. |
| 2cee00 | 20 28 6d 61 70 63 61 72 20 23 27 75 6e 70 61 72 73 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 | .(mapcar.#'unparse-name......... |
| 2cee20 | 20 20 28 69 66 20 6e 69 63 6b 6e 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | ..(if.nicknames...............(m |
| 2cee40 | 61 70 63 61 6e 20 23 27 70 61 63 6b 61 67 65 2d 6e 61 6d 65 73 20 28 6c 69 73 74 2d 61 6c 6c 2d | apcan.#'package-names.(list-all- |
| 2cee60 | 70 61 63 6b 61 67 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 | packages))...............(mapcar |
| 2cee80 | 20 23 27 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 20 28 6c 69 73 74 2d 61 6c 6c 2d 70 61 63 6b 61 | .#'package-name..(list-all-packa |
| 2ceea0 | 67 65 73 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 72 61 63 69 6e 67 0a 0a 3b 3b 20 55 73 65 | ges)))))....;;;;.Tracing..;;.Use |
| 2ceec0 | 20 65 76 61 6c 20 66 6f 72 20 74 68 65 20 73 61 6b 65 20 6f 66 20 70 6f 72 74 61 62 69 6c 69 74 | .eval.for.the.sake.of.portabilit |
| 2ceee0 | 79 2e 2e 2e 20 0a 28 64 65 66 75 6e 20 74 72 61 63 65 64 70 20 28 66 73 70 65 63 29 0a 20 20 28 | y.....(defun.tracedp.(fspec)...( |
| 2cef00 | 6d 65 6d 62 65 72 20 66 73 70 65 63 20 28 65 76 61 6c 20 27 28 74 72 61 63 65 29 29 29 29 0a 0a | member.fspec.(eval.'(trace)))).. |
| 2cef20 | 28 64 65 66 76 61 72 20 2a 61 66 74 65 72 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 68 6f 6f 6b | (defvar.*after-toggle-trace-hook |
| 2cef40 | 2a 20 6e 69 6c 0a 20 20 22 48 6f 6f 6b 20 63 61 6c 6c 65 64 20 77 68 65 6e 65 76 65 72 20 61 20 | *.nil..."Hook.called.whenever.a. |
| 2cef60 | 53 50 45 43 20 69 73 20 74 72 61 63 65 64 20 6f 72 20 75 6e 74 72 61 63 65 64 2e 0a 0a 49 66 20 | SPEC.is.traced.or.untraced...If. |
| 2cef80 | 6e 6f 6e 2d 6e 69 6c 2c 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65 6e | non-nil,.called.with.two.argumen |
| 2cefa0 | 74 73 20 53 50 45 43 20 61 6e 64 20 54 52 41 43 45 44 2d 50 2e 22 20 29 0a 28 64 65 66 73 6c 69 | ts.SPEC.and.TRACED-P.".).(defsli |
| 2cefc0 | 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 20 28 73 70 65 63 2d 73 | mefun.swank-toggle-trace.(spec-s |
| 2cefe0 | 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 70 65 63 20 28 66 72 6f 6d 2d 73 74 72 69 | tring)...(let*.((spec.(from-stri |
| 2cf000 | 6e 67 20 73 70 65 63 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 74 76 61 | ng.spec-string))..........(retva |
| 2cf020 | 6c 20 28 63 6f 6e 64 20 28 28 63 6f 6e 73 70 20 73 70 65 63 29 20 3b 20 68 61 6e 64 6c 65 20 63 | l.(cond.((consp.spec).;.handle.c |
| 2cf040 | 6f 6d 70 6c 69 63 61 74 65 64 20 63 61 73 65 73 20 69 6e 20 74 68 65 20 62 61 63 6b 65 6e 64 0a | omplicated.cases.in.the.backend. |
| 2cf060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 6f 67 67 6c 65 2d | ........................(toggle- |
| 2cf080 | 74 72 61 63 65 20 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | trace.spec)).................... |
| 2cf0a0 | 20 20 20 20 28 28 74 72 61 63 65 64 70 20 73 70 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ....((tracedp.spec)............. |
| 2cf0c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 60 28 75 6e 74 72 61 63 65 20 2c 73 70 65 | ............(eval.`(untrace.,spe |
| 2cf0e0 | 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 | c)).........................(for |
| 2cf100 | 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 6e 6f 77 20 75 6e 74 72 61 63 65 64 2e 22 20 73 70 | mat.nil."~S.is.now.untraced.".sp |
| 2cf120 | 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 | ec))........................(t.. |
| 2cf140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 60 28 74 | .......................(eval.`(t |
| 2cf160 | 72 61 63 65 20 2c 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | race.,spec)).................... |
| 2cf180 | 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 6e 6f 77 20 74 72 61 63 | .....(format.nil."~S.is.now.trac |
| 2cf1a0 | 65 64 2e 22 20 73 70 65 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 72 61 63 65 64 2d 70 | ed.".spec))))..........(traced-p |
| 2cf1c0 | 20 28 6c 65 74 2a 20 28 28 74 6f 73 65 61 72 63 68 20 22 69 73 20 6e 6f 77 20 74 72 61 63 65 64 | .(let*.((tosearch."is.now.traced |
| 2cf1e0 | 2e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | .")...........................(s |
| 2cf200 | 74 61 72 74 20 28 2d 20 28 6c 65 6e 67 74 68 20 72 65 74 76 61 6c 29 0a 20 20 20 20 20 20 20 20 | tart.(-.(length.retval)......... |
| 2cf220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e | ............................(len |
| 2cf240 | 67 74 68 20 74 6f 73 65 61 72 63 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gth.tosearch)))................. |
| 2cf260 | 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 2b 20 73 74 61 72 74 20 28 6c 65 6e 67 74 68 20 | ..........(end.(+.start.(length. |
| 2cf280 | 74 6f 73 65 61 72 63 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tosearch)))).................... |
| 2cf2a0 | 20 20 28 73 65 61 72 63 68 20 74 6f 73 65 61 72 63 68 20 28 73 75 62 73 65 71 20 72 65 74 76 61 | ..(search.tosearch.(subseq.retva |
| 2cf2c0 | 6c 20 73 74 61 72 74 20 65 6e 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 6f 6f 6b 2d 6d | l.start.end))))..........(hook-m |
| 2cf2e0 | 73 67 20 28 77 68 65 6e 20 2a 61 66 74 65 72 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 68 6f 6f | sg.(when.*after-toggle-trace-hoo |
| 2cf300 | 6b 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c | k*......................(funcall |
| 2cf320 | 20 2a 61 66 74 65 72 2d 74 6f 67 67 6c 65 2d 74 72 61 63 65 2d 68 6f 6f 6b 2a 0a 20 20 20 20 20 | .*after-toggle-trace-hook*...... |
| 2cf340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 65 63 0a 20 20 | .........................spec... |
| 2cf360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 63 | ............................trac |
| 2cf380 | 65 64 2d 70 29 29 29 29 0a 20 20 20 20 28 69 66 20 68 6f 6f 6b 2d 6d 73 67 0a 20 20 20 20 20 20 | ed-p)))).....(if.hook-msg....... |
| 2cf3a0 | 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 61 7e 25 28 61 6c 73 6f 20 7e 61 29 22 20 72 65 | ..(format.nil."~a~%(also.~a)".re |
| 2cf3c0 | 74 76 61 6c 20 68 6f 6f 6b 2d 6d 73 67 29 0a 20 20 20 20 20 20 20 20 72 65 74 76 61 6c 29 29 29 | tval.hook-msg).........retval))) |
| 2cf3e0 | 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 75 6e 74 72 61 63 65 2d 61 6c 6c 20 28 29 0a 20 20 | ..(defslimefun.untrace-all.()... |
| 2cf400 | 28 75 6e 74 72 61 63 65 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 55 6e 64 65 66 69 6e 67 0a 0a 28 64 65 | (untrace))....;;;;.Undefing..(de |
| 2cf420 | 66 73 6c 69 6d 65 66 75 6e 20 75 6e 64 65 66 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 20 28 66 6e 61 | fslimefun.undefine-function.(fna |
| 2cf440 | 6d 65 2d 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 66 6e 61 6d 65 20 28 66 72 6f 6d 2d | me-string)...(let.((fname.(from- |
| 2cf460 | 73 74 72 69 6e 67 20 66 6e 61 6d 65 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 66 6f 72 6d | string.fname-string))).....(form |
| 2cf480 | 61 74 20 6e 69 6c 20 22 7e 53 22 20 28 66 6d 61 6b 75 6e 62 6f 75 6e 64 20 66 6e 61 6d 65 29 29 | at.nil."~S".(fmakunbound.fname)) |
| 2cf4a0 | 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 75 6e 69 6e 74 65 72 6e 2d 73 79 6d 62 6f 6c | ))..(defslimefun.unintern-symbol |
| 2cf4c0 | 20 28 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 0a 20 20 28 6c 65 74 20 28 28 70 6b 67 20 28 67 75 | .(name.package)...(let.((pkg.(gu |
| 2cf4e0 | 65 73 73 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 | ess-package.package))).....(cond |
| 2cf500 | 20 28 28 6e 6f 74 20 70 6b 67 29 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 4e 6f 20 73 75 63 68 | .((not.pkg).(format.nil."No.such |
| 2cf520 | 20 70 61 63 6b 61 67 65 3a 20 7e 73 22 20 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 | .package:.~s".package))......... |
| 2cf540 | 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d | ..(t............(multiple-value- |
| 2cf560 | 62 69 6e 64 20 28 73 79 6d 20 66 6f 75 6e 64 29 20 28 70 61 72 73 65 2d 73 79 6d 62 6f 6c 20 6e | bind.(sym.found).(parse-symbol.n |
| 2cf580 | 61 6d 65 20 70 6b 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 73 65 20 66 6f 75 6e | ame.pkg)..............(case.foun |
| 2cf5a0 | 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 69 6c 29 20 28 66 6f 72 6d 61 74 20 | d................((nil).(format. |
| 2cf5c0 | 6e 69 6c 20 22 7e 73 20 6e 6f 74 20 69 6e 20 70 61 63 6b 61 67 65 20 7e 73 22 20 6e 61 6d 65 20 | nil."~s.not.in.package.~s".name. |
| 2cf5e0 | 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 | package))................(t..... |
| 2cf600 | 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 69 6e 74 65 72 6e 20 73 79 6d 20 70 6b 67 29 0a 20 | ............(unintern.sym.pkg).. |
| 2cf620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 55 6e 69 6e | ...............(format.nil."Unin |
| 2cf640 | 74 65 72 6e 65 64 20 73 79 6d 62 6f 6c 3a 20 7e 73 22 20 73 79 6d 29 29 29 29 29 29 29 29 0a 0a | terned.symbol:.~s".sym)))))))).. |
| 2cf660 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 64 65 6c 65 74 65 2d 70 61 63 6b 61 67 | (defslimefun.swank-delete-packag |
| 2cf680 | 65 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 70 6b 67 20 28 6f | e.(package-name)...(let.((pkg.(o |
| 2cf6a0 | 72 20 28 67 75 65 73 73 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 | r.(guess-package.package-name).. |
| 2cf6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 | ................(error."No.such. |
| 2cf6e0 | 70 61 63 6b 61 67 65 3a 20 7e 73 22 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 29 29 29 0a 20 20 | package:.~s".package-name))))... |
| 2cf700 | 20 20 28 64 65 6c 65 74 65 2d 70 61 63 6b 61 67 65 20 70 6b 67 29 0a 20 20 20 20 6e 69 6c 29 29 | ..(delete-package.pkg).....nil)) |
| 2cf720 | 0a 0a 0c 0a 3b 3b 3b 3b 20 50 72 6f 66 69 6c 69 6e 67 0a 0a 28 64 65 66 75 6e 20 70 72 6f 66 69 | ....;;;;.Profiling..(defun.profi |
| 2cf740 | 6c 65 64 70 20 28 66 73 70 65 63 29 0a 20 20 28 6d 65 6d 62 65 72 20 66 73 70 65 63 20 28 70 72 | ledp.(fspec)...(member.fspec.(pr |
| 2cf760 | 6f 66 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 73 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 | ofiled-functions)))..(defslimefu |
| 2cf780 | 6e 20 74 6f 67 67 6c 65 2d 70 72 6f 66 69 6c 65 2d 66 64 65 66 69 6e 69 74 69 6f 6e 20 28 66 6e | n.toggle-profile-fdefinition.(fn |
| 2cf7a0 | 61 6d 65 2d 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 66 6e 61 6d 65 20 28 66 72 6f 6d | ame-string)...(let.((fname.(from |
| 2cf7c0 | 2d 73 74 72 69 6e 67 20 66 6e 61 6d 65 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 28 63 6f 6e | -string.fname-string))).....(con |
| 2cf7e0 | 64 20 28 28 70 72 6f 66 69 6c 65 64 70 20 66 6e 61 6d 65 29 0a 09 20 20 20 28 75 6e 70 72 6f 66 | d.((profiledp.fname).....(unprof |
| 2cf800 | 69 6c 65 20 66 6e 61 6d 65 29 0a 09 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 | ile.fname).....(format.nil."~S.i |
| 2cf820 | 73 20 6e 6f 77 20 75 6e 70 72 6f 66 69 6c 65 64 2e 22 20 66 6e 61 6d 65 29 29 0a 09 20 20 28 74 | s.now.unprofiled.".fname))....(t |
| 2cf840 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 66 69 6c 65 20 66 6e 61 6d 65 29 0a 09 20 20 20 | ............(profile.fname)..... |
| 2cf860 | 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 53 20 69 73 20 6e 6f 77 20 70 72 6f 66 69 6c 65 64 2e | (format.nil."~S.is.now.profiled. |
| 2cf880 | 22 20 66 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 70 72 6f 66 69 | ".fname)))))..(defslimefun.profi |
| 2cf8a0 | 6c 65 2d 62 79 2d 73 75 62 73 74 72 69 6e 67 20 28 73 75 62 73 74 72 69 6e 67 20 70 61 63 6b 61 | le-by-substring.(substring.packa |
| 2cf8c0 | 67 65 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 75 6e 74 20 30 29 29 0a 20 20 20 20 28 66 6c 65 74 | ge)...(let.((count.0)).....(flet |
| 2cf8e0 | 20 28 28 6d 61 79 62 65 2d 70 72 6f 66 69 6c 65 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 | .((maybe-profile.(symbol)....... |
| 2cf900 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 62 6f | .......(when.(and.(fboundp.symbo |
| 2cf920 | 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 | l).........................(not. |
| 2cf940 | 28 70 72 6f 66 69 6c 65 64 70 20 73 79 6d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (profiledp.symbol))............. |
| 2cf960 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 20 73 75 62 73 74 72 69 6e 67 20 28 73 | ............(search.substring.(s |
| 2cf980 | 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 29 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c | ymbol-name.symbol).:test.#'equal |
| 2cf9a0 | 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 72 2d 63 61 73 65 | p))................(handler-case |
| 2cf9c0 | 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(progn......................... |
| 2cf9e0 | 20 20 20 20 20 20 20 28 70 72 6f 66 69 6c 65 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 | .......(profile.symbol)......... |
| 2cfa00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 63 66 20 63 6f 75 | .......................(incf.cou |
| 2cfa20 | 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 63 6f | nt))..................(error.(co |
| 2cfa40 | 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 | ndition)....................(war |
| 2cfa60 | 6e 20 22 7e 61 22 20 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 69 66 | n."~a".condition)))))).......(if |
| 2cfa80 | 20 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 28 64 6f 2d 73 79 6d 62 6f 6c 73 20 28 | .package...........(do-symbols.( |
| 2cfaa0 | 73 79 6d 62 6f 6c 20 28 70 61 72 73 65 2d 70 61 63 6b 61 67 65 20 70 61 63 6b 61 67 65 29 29 0a | symbol.(parse-package.package)). |
| 2cfac0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 72 6f 66 69 6c 65 20 73 79 6d 62 6f | ............(maybe-profile.symbo |
| 2cfae0 | 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 6f 2d 61 6c 6c 2d 73 79 6d 62 6f 6c 73 20 28 73 | l))...........(do-all-symbols.(s |
| 2cfb00 | 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 79 62 65 2d 70 72 6f 66 69 6c | ymbol).............(maybe-profil |
| 2cfb20 | 65 20 73 79 6d 62 6f 6c 29 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 6e 69 6c 20 22 7e 61 | e.symbol)))).....(format.nil."~a |
| 2cfb40 | 20 66 75 6e 63 74 69 6f 6e 7e 3a 70 20 7e 3a 2a 7e 5b 61 72 65 7e 3b 69 73 7e 3a 3b 61 72 65 7e | .function~:p.~:*~[are~;is~:;are~ |
| 2cfb60 | 5d 20 6e 6f 77 20 70 72 6f 66 69 6c 65 64 22 20 63 6f 75 6e 74 29 29 29 0a 0a 28 64 65 66 73 6c | ].now.profiled".count)))..(defsl |
| 2cfb80 | 69 6d 65 66 75 6e 20 73 77 61 6e 6b 2d 70 72 6f 66 69 6c 65 2d 70 61 63 6b 61 67 65 20 28 70 61 | imefun.swank-profile-package.(pa |
| 2cfba0 | 63 6b 61 67 65 2d 6e 61 6d 65 20 63 61 6c 6c 65 72 73 70 20 6d 65 74 68 6f 64 73 70 29 0a 20 20 | ckage-name.callersp.methodsp)... |
| 2cfbc0 | 28 6c 65 74 20 28 28 70 6b 67 20 28 6f 72 20 28 67 75 65 73 73 2d 70 61 63 6b 61 67 65 20 70 61 | (let.((pkg.(or.(guess-package.pa |
| 2cfbe0 | 63 6b 61 67 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 | ckage-name)..................(er |
| 2cfc00 | 72 6f 72 20 22 4e 6f 74 20 61 20 76 61 6c 69 64 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 3a 20 7e | ror."Not.a.valid.package.name:.~ |
| 2cfc20 | 73 22 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 63 68 65 63 6b 2d 74 | s".package-name)))).....(check-t |
| 2cfc40 | 79 70 65 20 63 61 6c 6c 65 72 73 70 20 62 6f 6f 6c 65 61 6e 29 0a 20 20 20 20 28 63 68 65 63 6b | ype.callersp.boolean).....(check |
| 2cfc60 | 2d 74 79 70 65 20 6d 65 74 68 6f 64 73 70 20 62 6f 6f 6c 65 61 6e 29 0a 20 20 20 20 28 70 72 6f | -type.methodsp.boolean).....(pro |
| 2cfc80 | 66 69 6c 65 2d 70 61 63 6b 61 67 65 20 70 6b 67 20 63 61 6c 6c 65 72 73 70 20 6d 65 74 68 6f 64 | file-package.pkg.callersp.method |
| 2cfca0 | 73 70 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 53 6f 75 72 63 65 20 4c 6f 63 61 74 69 6f 6e 73 0a 0a | sp)))....;;;;.Source.Locations.. |
| 2cfcc0 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 66 6f 72 | (defslimefun.find-definition-for |
| 2cfce0 | 2d 74 68 69 6e 67 20 28 74 68 69 6e 67 29 0a 20 20 28 66 69 6e 64 2d 73 6f 75 72 63 65 2d 6c 6f | -thing.(thing)...(find-source-lo |
| 2cfd00 | 63 61 74 69 6f 6e 20 74 68 69 6e 67 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 69 6e | cation.thing))..(defslimefun.fin |
| 2cfd20 | 64 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 2d 66 6f 72 2d 65 6d 61 63 73 20 28 73 70 65 | d-source-location-for-emacs.(spe |
| 2cfd40 | 63 29 0a 20 20 28 66 69 6e 64 2d 73 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 76 61 6c 75 | c)...(find-source-location.(valu |
| 2cfd60 | 65 2d 73 70 65 63 2d 72 65 66 20 73 70 65 63 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 61 6c 75 65 | e-spec-ref.spec)))..(defun.value |
| 2cfd80 | 2d 73 70 65 63 2d 72 65 66 20 28 73 70 65 63 29 0a 20 20 28 64 63 61 73 65 20 73 70 65 63 0a 20 | -spec-ref.(spec)...(dcase.spec.. |
| 2cfda0 | 20 20 20 28 28 3a 73 74 72 69 6e 67 20 73 74 72 69 6e 67 20 70 61 63 6b 61 67 65 29 0a 20 20 20 | ...((:string.string.package).... |
| 2cfdc0 | 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 70 61 63 6b 61 67 65 29 0a | ..(with-buffer-syntax.(package). |
| 2cfde0 | 20 20 20 20 20 20 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 | .......(eval.(read-from-string.s |
| 2cfe00 | 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 28 28 3a 69 6e 73 70 65 63 74 6f 72 20 70 61 72 74 29 | tring)))).....((:inspector.part) |
| 2cfe20 | 20 0a 20 20 20 20 20 28 69 6e 73 70 65 63 74 6f 72 2d 6e 74 68 2d 70 61 72 74 20 70 61 72 74 29 | .......(inspector-nth-part.part) |
| 2cfe40 | 29 0a 20 20 20 20 28 28 3a 73 6c 64 62 20 66 72 61 6d 65 20 76 61 72 29 0a 20 20 20 20 20 28 66 | ).....((:sldb.frame.var)......(f |
| 2cfe60 | 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 66 72 61 6d 65 20 76 61 72 29 29 29 29 0a 0a 28 64 | rame-var-value.frame.var))))..(d |
| 2cfe80 | 65 66 76 61 72 20 2a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 72 69 67 68 74 2d 74 72 | efvar.*find-definitions-right-tr |
| 2cfea0 | 69 6d 2a 20 22 2c 3a 2e 3e 22 29 0a 28 64 65 66 76 61 72 20 2a 66 69 6e 64 2d 64 65 66 69 6e 69 | im*.",:.>").(defvar.*find-defini |
| 2cfec0 | 74 69 6f 6e 73 2d 6c 65 66 74 2d 74 72 69 6d 2a 20 22 23 3a 3c 22 29 0a 0a 28 64 65 66 75 6e 20 | tions-left-trim*."#:<")..(defun. |
| 2cfee0 | 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 2d 6f 72 2d | find-definitions-find-symbol-or- |
| 2cff00 | 70 61 63 6b 61 67 65 20 28 6e 61 6d 65 29 0a 20 20 28 66 6c 65 74 20 28 28 64 6f 2d 66 69 6e 64 | package.(name)...(flet.((do-find |
| 2cff20 | 20 28 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c | .(name)............(multiple-val |
| 2cff40 | 75 65 2d 62 69 6e 64 20 28 73 79 6d 62 6f 6c 20 66 6f 75 6e 64 20 6e 61 6d 65 29 0a 20 20 20 20 | ue-bind.(symbol.found.name)..... |
| 2cff60 | 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 | ...........(with-buffer-syntax.( |
| 2cff80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 2d 73 79 6d 62 6f 6c | )..................(parse-symbol |
| 2cffa0 | 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 66 6f 75 6e | .name))..............(cond.(foun |
| 2cffc0 | 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 | d.....................(return-fr |
| 2cffe0 | 6f 6d 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 2d | om.find-definitions-find-symbol- |
| 2d0000 | 6f 72 2d 70 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | or-package...................... |
| 2d0020 | 20 28 76 61 6c 75 65 73 20 73 79 6d 62 6f 6c 20 66 6f 75 6e 64 29 29 29 0a 20 20 20 20 20 20 20 | .(values.symbol.found)))........ |
| 2d0040 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 50 61 63 6b 61 67 65 73 20 61 72 65 20 6e 6f 74 20 | ............;;.Packages.are.not. |
| 2d0060 | 6e 61 6d 65 64 20 62 79 20 73 79 6d 62 6f 6c 73 2c 20 73 6f 0a 20 20 20 20 20 20 20 20 20 20 20 | named.by.symbols,.so............ |
| 2d0080 | 20 20 20 20 20 20 20 20 3b 3b 20 6e 6f 74 2d 69 6e 74 65 72 6e 65 64 20 73 79 6d 62 6f 6c 73 20 | ........;;.not-interned.symbols. |
| 2d00a0 | 63 61 6e 20 72 65 66 65 72 20 74 6f 20 70 61 63 6b 61 67 65 73 0a 20 20 20 20 20 20 20 20 20 20 | can.refer.to.packages........... |
| 2d00c0 | 20 20 20 20 20 20 20 20 20 28 28 66 69 6e 64 2d 70 61 63 6b 61 67 65 20 6e 61 6d 65 29 0a 20 20 | .........((find-package.name)... |
| 2d00e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 66 | ..................(return-from.f |
| 2d0100 | 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 2d 6f 72 2d 70 | ind-definitions-find-symbol-or-p |
| 2d0120 | 61 63 6b 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 | ackage.......................(va |
| 2d0140 | 6c 75 65 73 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 6e 61 6d 65 29 20 74 29 29 29 29 29 29 29 | lues.(make-symbol.name).t))))))) |
| 2d0160 | 0a 20 20 20 20 28 64 6f 2d 66 69 6e 64 20 6e 61 6d 65 29 0a 20 20 20 20 28 64 6f 2d 66 69 6e 64 | .....(do-find.name).....(do-find |
| 2d0180 | 20 28 73 74 72 69 6e 67 2d 72 69 67 68 74 2d 74 72 69 6d 20 2a 66 69 6e 64 2d 64 65 66 69 6e 69 | .(string-right-trim.*find-defini |
| 2d01a0 | 74 69 6f 6e 73 2d 72 69 67 68 74 2d 74 72 69 6d 2a 20 6e 61 6d 65 29 29 0a 20 20 20 20 28 64 6f | tions-right-trim*.name)).....(do |
| 2d01c0 | 2d 66 69 6e 64 20 28 73 74 72 69 6e 67 2d 6c 65 66 74 2d 74 72 69 6d 20 2a 66 69 6e 64 2d 64 65 | -find.(string-left-trim.*find-de |
| 2d01e0 | 66 69 6e 69 74 69 6f 6e 73 2d 6c 65 66 74 2d 74 72 69 6d 2a 20 6e 61 6d 65 29 29 0a 20 20 20 20 | finitions-left-trim*.name))..... |
| 2d0200 | 28 64 6f 2d 66 69 6e 64 20 28 73 74 72 69 6e 67 2d 6c 65 66 74 2d 74 72 69 6d 20 2a 66 69 6e 64 | (do-find.(string-left-trim.*find |
| 2d0220 | 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 6c 65 66 74 2d 74 72 69 6d 2a 0a 20 20 20 20 20 20 20 20 | -definitions-left-trim*......... |
| 2d0240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 72 | .......................(string-r |
| 2d0260 | 69 67 68 74 2d 74 72 69 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ight-trim....................... |
| 2d0280 | 20 20 20 20 20 20 20 20 20 20 2a 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 72 69 67 68 | ..........*find-definitions-righ |
| 2d02a0 | 74 2d 74 72 69 6d 2a 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 3b 3b 20 4e 6f 74 20 65 78 61 63 74 | t-trim*.name))).....;;.Not.exact |
| 2d02c0 | 6c 79 20 72 6f 62 75 73 74 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 65 71 6c 20 28 73 | ly.robust.....(when.(and.(eql.(s |
| 2d02e0 | 65 61 72 63 68 20 22 28 73 65 74 66 20 22 20 6e 61 6d 65 20 3a 74 65 73 74 20 23 27 63 68 61 72 | earch."(setf.".name.:test.#'char |
| 2d0300 | 2d 65 71 75 61 6c 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 3d | -equal).0)................(char= |
| 2d0320 | 20 28 63 68 61 72 20 6e 61 6d 65 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 6e 61 6d 65 29 29 29 20 | .(char.name.(1-.(length.name))). |
| 2d0340 | 23 5c 29 29 29 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 | #\))).......(multiple-value-bind |
| 2d0360 | 20 28 73 79 6d 62 6f 6c 20 66 6f 75 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d | .(symbol.found)...........(with- |
| 2d0380 | 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 | buffer-syntax.().............(pa |
| 2d03a0 | 72 73 65 2d 73 79 6d 62 6f 6c 20 28 73 75 62 73 65 71 20 6e 61 6d 65 20 28 6c 65 6e 67 74 68 20 | rse-symbol.(subseq.name.(length. |
| 2d03c0 | 22 28 73 65 74 66 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "(setf.")....................... |
| 2d03e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 6e 61 6d 65 29 29 29 29 | ............(1-.(length.name)))) |
| 2d0400 | 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 66 6f 75 6e 64 0a 20 20 20 20 20 20 20 20 20 20 | ).........(when.found........... |
| 2d0420 | 28 76 61 6c 75 65 73 20 60 28 73 65 74 66 20 2c 73 79 6d 62 6f 6c 29 20 74 29 29 29 29 29 29 0a | (values.`(setf.,symbol).t)))))). |
| 2d0440 | 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 66 | .(defslimefun.find-definitions-f |
| 2d0460 | 6f 72 2d 65 6d 61 63 73 20 28 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 | or-emacs.(name)..."Return.a.list |
| 2d0480 | 20 28 28 44 53 50 45 43 20 4c 4f 43 41 54 49 4f 4e 29 20 2e 2e 2e 29 20 6f 66 20 64 65 66 69 6e | .((DSPEC.LOCATION)....).of.defin |
| 2d04a0 | 69 74 69 6f 6e 73 20 66 6f 72 20 4e 41 4d 45 2e 0a 44 53 50 45 43 20 69 73 20 61 20 73 74 72 69 | itions.for.NAME..DSPEC.is.a.stri |
| 2d04c0 | 6e 67 20 61 6e 64 20 4c 4f 43 41 54 49 4f 4e 20 61 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f | ng.and.LOCATION.a.source.locatio |
| 2d04e0 | 6e 2e 20 4e 41 4d 45 20 69 73 20 61 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 6d 75 6c 74 69 70 6c | n..NAME.is.a.string."...(multipl |
| 2d0500 | 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 79 6d 62 6f 6c 20 66 6f 75 6e 64 29 0a 20 20 20 20 | e-value-bind.(symbol.found)..... |
| 2d0520 | 20 20 28 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 2d | ..(find-definitions-find-symbol- |
| 2d0540 | 6f 72 2d 70 61 63 6b 61 67 65 20 6e 61 6d 65 29 0a 20 20 20 20 28 77 68 65 6e 20 66 6f 75 6e 64 | or-package.name).....(when.found |
| 2d0560 | 0a 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 78 72 65 66 3e 65 6c 69 73 70 20 28 72 65 6d | .......(mapcar.#'xref>elisp.(rem |
| 2d0580 | 6f 76 65 2d 64 75 70 6c 69 63 61 74 65 73 20 28 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 | ove-duplicates.(find-definitions |
| 2d05a0 | 20 73 79 6d 62 6f 6c 29 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 29 29 29 0a 0a 3b 3b 3b | .symbol).:test.#'equal)))))..;;; |
| 2d05c0 | 20 47 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 20 73 6f 20 63 6f 6e 74 72 69 62 73 20 63 61 | .Generic.function.so.contribs.ca |
| 2d05e0 | 6e 20 65 78 74 65 6e 64 20 69 74 2e 0a 28 64 65 66 67 65 6e 65 72 69 63 20 78 72 65 66 2d 64 6f | n.extend.it..(defgeneric.xref-do |
| 2d0600 | 69 74 20 28 74 79 70 65 20 74 68 69 6e 67 29 0a 20 20 28 3a 6d 65 74 68 6f 64 20 28 74 79 70 65 | it.(type.thing)...(:method.(type |
| 2d0620 | 20 74 68 69 6e 67 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 74 79 70 | .thing).....(declare.(ignore.typ |
| 2d0640 | 65 20 74 68 69 6e 67 29 29 0a 20 20 20 20 3a 6e 6f 74 2d 69 6d 70 6c 65 6d 65 6e 74 65 64 29 29 | e.thing)).....:not-implemented)) |
| 2d0660 | 0a 0a 28 6d 61 63 72 6f 6c 65 74 20 28 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e | ..(macrolet.((define-xref-action |
| 2d0680 | 20 28 78 72 65 66 2d 74 79 70 65 20 68 61 6e 64 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(xref-type.handler)............ |
| 2d06a0 | 20 20 60 28 64 65 66 6d 65 74 68 6f 64 20 78 72 65 66 2d 64 6f 69 74 20 28 28 74 79 70 65 20 28 | ..`(defmethod.xref-doit.((type.( |
| 2d06c0 | 65 71 6c 20 2c 78 72 65 66 2d 74 79 70 65 29 29 20 74 68 69 6e 67 29 0a 20 20 20 20 20 20 20 20 | eql.,xref-type)).thing)......... |
| 2d06e0 | 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 61 62 6c 65 20 74 79 70 65 | ........(declare.(ignorable.type |
| 2d0700 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 2c 68 61 6e | )).................(funcall.,han |
| 2d0720 | 64 6c 65 72 20 74 68 69 6e 67 29 29 29 29 0a 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 | dler.thing))))...(define-xref-ac |
| 2d0740 | 74 69 6f 6e 20 3a 63 61 6c 6c 73 20 20 20 20 20 20 20 20 23 27 77 68 6f 2d 63 61 6c 6c 73 29 0a | tion.:calls........#'who-calls). |
| 2d0760 | 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 63 61 6c 6c 73 2d 77 68 6f | ..(define-xref-action.:calls-who |
| 2d0780 | 20 20 20 20 23 27 63 61 6c 6c 73 2d 77 68 6f 29 0a 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d | ....#'calls-who)...(define-xref- |
| 2d07a0 | 61 63 74 69 6f 6e 20 3a 72 65 66 65 72 65 6e 63 65 73 20 20 20 23 27 77 68 6f 2d 72 65 66 65 72 | action.:references...#'who-refer |
| 2d07c0 | 65 6e 63 65 73 29 0a 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 62 69 | ences)...(define-xref-action.:bi |
| 2d07e0 | 6e 64 73 20 20 20 20 20 20 20 20 23 27 77 68 6f 2d 62 69 6e 64 73 29 0a 20 20 28 64 65 66 69 6e | nds........#'who-binds)...(defin |
| 2d0800 | 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 73 65 74 73 20 20 20 20 20 20 20 20 20 23 27 77 68 | e-xref-action.:sets.........#'wh |
| 2d0820 | 6f 2d 73 65 74 73 29 0a 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 6d | o-sets)...(define-xref-action.:m |
| 2d0840 | 61 63 72 6f 65 78 70 61 6e 64 73 20 23 27 77 68 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 73 29 0a | acroexpands.#'who-macroexpands). |
| 2d0860 | 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 73 70 65 63 69 61 6c 69 7a | ..(define-xref-action.:specializ |
| 2d0880 | 65 73 20 20 23 27 77 68 6f 2d 73 70 65 63 69 61 6c 69 7a 65 73 29 0a 20 20 28 64 65 66 69 6e 65 | es..#'who-specializes)...(define |
| 2d08a0 | 2d 78 72 65 66 2d 61 63 74 69 6f 6e 20 3a 63 61 6c 6c 65 72 73 20 20 20 20 20 20 23 27 6c 69 73 | -xref-action.:callers......#'lis |
| 2d08c0 | 74 2d 63 61 6c 6c 65 72 73 29 0a 20 20 28 64 65 66 69 6e 65 2d 78 72 65 66 2d 61 63 74 69 6f 6e | t-callers)...(define-xref-action |
| 2d08e0 | 20 3a 63 61 6c 6c 65 65 73 20 20 20 20 20 20 23 27 6c 69 73 74 2d 63 61 6c 6c 65 65 73 29 29 0a | .:callees......#'list-callees)). |
| 2d0900 | 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 78 72 65 66 20 28 74 79 70 65 20 6e 61 6d 65 29 0a 20 | .(defslimefun.xref.(type.name).. |
| 2d0920 | 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 73 65 78 70 20 65 72 72 6f | .(multiple-value-bind.(sexp.erro |
| 2d0940 | 72 29 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 72 6f 6d 2d 73 74 72 69 6e 67 20 6e | r).(ignore-errors.(from-string.n |
| 2d0960 | 61 6d 65 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 65 72 72 6f 72 0a 20 20 20 20 20 20 28 6c | ame)).....(unless.error.......(l |
| 2d0980 | 65 74 20 28 28 78 72 65 66 73 20 20 28 78 72 65 66 2d 64 6f 69 74 20 74 79 70 65 20 73 65 78 70 | et.((xrefs..(xref-doit.type.sexp |
| 2d09a0 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 78 72 65 66 73 20 3a 6e 6f 74 2d 69 | ))).........(if.(eq.xrefs.:not-i |
| 2d09c0 | 6d 70 6c 65 6d 65 6e 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 6e 6f 74 2d 69 6d 70 | mplemented).............:not-imp |
| 2d09e0 | 6c 65 6d 65 6e 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 78 | lemented.............(mapcar.#'x |
| 2d0a00 | 72 65 66 3e 65 6c 69 73 70 20 78 72 65 66 73 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 | ref>elisp.xrefs))))))..(defslime |
| 2d0a20 | 66 75 6e 20 78 72 65 66 73 20 28 74 79 70 65 73 20 6e 61 6d 65 29 0a 20 20 28 6c 6f 6f 70 20 66 | fun.xrefs.(types.name)...(loop.f |
| 2d0a40 | 6f 72 20 74 79 70 65 20 69 6e 20 74 79 70 65 73 0a 20 20 20 20 20 20 20 20 66 6f 72 20 78 72 65 | or.type.in.types.........for.xre |
| 2d0a60 | 66 73 20 3d 20 28 78 72 65 66 20 74 79 70 65 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 77 68 | fs.=.(xref.type.name).........wh |
| 2d0a80 | 65 6e 20 28 61 6e 64 20 28 6e 6f 74 20 28 65 71 20 3a 6e 6f 74 2d 69 6d 70 6c 65 6d 65 6e 74 65 | en.(and.(not.(eq.:not-implemente |
| 2d0aa0 | 64 20 78 72 65 66 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 | d.xrefs))...................(not |
| 2d0ac0 | 20 28 6e 75 6c 6c 20 78 72 65 66 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 | .(null.xrefs)))...........collec |
| 2d0ae0 | 74 20 28 63 6f 6e 73 20 74 79 70 65 20 78 72 65 66 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 78 72 | t.(cons.type.xrefs)))..(defun.xr |
| 2d0b00 | 65 66 3e 65 6c 69 73 70 20 28 78 72 65 66 29 0a 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 | ef>elisp.(xref)...(destructuring |
| 2d0b20 | 2d 62 69 6e 64 20 28 6e 61 6d 65 20 6c 6f 63 29 20 78 72 65 66 0a 20 20 20 20 28 6c 69 73 74 20 | -bind.(name.loc).xref.....(list. |
| 2d0b40 | 28 74 6f 2d 73 74 72 69 6e 67 20 6e 61 6d 65 29 20 6c 6f 63 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b | (to-string.name).loc)))....;;;;; |
| 2d0b60 | 20 4c 61 7a 79 20 6c 69 73 74 73 0a 0a 28 64 65 66 73 74 72 75 63 74 20 28 6c 63 6f 6e 73 20 28 | .Lazy.lists..(defstruct.(lcons.( |
| 2d0b80 | 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 25 6c 63 6f 6e 73 20 28 63 61 72 20 25 63 64 72 29 29 0a | :constructor.%lcons.(car.%cdr)). |
| 2d0ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 70 72 65 64 69 63 61 74 65 20 6c 63 | ..................(:predicate.lc |
| 2d0bc0 | 6f 6e 73 3f 29 29 0a 20 20 63 61 72 0a 20 20 28 25 63 64 72 20 6e 69 6c 20 3a 74 79 70 65 20 28 | ons?))...car...(%cdr.nil.:type.( |
| 2d0be0 | 6f 72 20 6e 75 6c 6c 20 6c 63 6f 6e 73 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 28 66 6f 72 63 | or.null.lcons.function))...(forc |
| 2d0c00 | 65 64 3f 20 6e 69 6c 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6c 63 6f 6e 73 20 28 63 61 72 20 | ed?.nil))..(defmacro.lcons.(car. |
| 2d0c20 | 63 64 72 29 0a 20 20 60 28 25 6c 63 6f 6e 73 20 2c 63 61 72 20 28 6c 61 6d 62 64 61 20 28 29 20 | cdr)...`(%lcons.,car.(lambda.(). |
| 2d0c40 | 2c 63 64 72 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6c 63 6f 6e 73 2a 20 28 63 61 72 20 63 | ,cdr)))..(defmacro.lcons*.(car.c |
| 2d0c60 | 64 72 20 26 72 65 73 74 20 6d 6f 72 65 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 6d 6f | dr.&rest.more)...(cond.((null.mo |
| 2d0c80 | 72 65 29 20 60 28 6c 63 6f 6e 73 20 2c 63 61 72 20 2c 63 64 72 29 29 0a 20 20 20 20 20 20 20 20 | re).`(lcons.,car.,cdr))......... |
| 2d0ca0 | 28 74 20 60 28 6c 63 6f 6e 73 20 2c 63 61 72 20 28 6c 63 6f 6e 73 2a 20 2c 63 64 72 20 2c 40 6d | (t.`(lcons.,car.(lcons*.,cdr.,@m |
| 2d0cc0 | 6f 72 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 63 6f 6e 73 2d 63 64 72 20 28 6c 63 6f 6e | ore)))))..(defun.lcons-cdr.(lcon |
| 2d0ce0 | 73 29 0a 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 2a 20 28 6c 63 6f 6e 73 2d 20 40 20 6c 63 6f | s)...(with-struct*.(lcons-.@.lco |
| 2d0d00 | 6e 73 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 40 20 66 6f 72 63 65 64 3f 29 0a 20 20 20 20 20 | ns).....(cond.((@.forced?)...... |
| 2d0d20 | 20 20 20 20 20 20 28 40 20 25 63 64 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 | ......(@.%cdr))...........(t.... |
| 2d0d40 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 20 28 66 75 6e 63 61 6c 6c 20 28 40 | ........(let.((value.(funcall.(@ |
| 2d0d60 | 20 25 63 64 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 40 20 | .%cdr))))..............(setf.(@. |
| 2d0d80 | 66 6f 72 63 65 64 3f 29 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 40 | forced?).t....................(@ |
| 2d0da0 | 20 25 63 64 72 29 20 76 61 6c 75 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6c 69 73 74 | .%cdr).value))))))..(defun.llist |
| 2d0dc0 | 2d 72 61 6e 67 65 20 28 6c 6c 69 73 74 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 6c 6c 69 73 | -range.(llist.start.end)...(llis |
| 2d0de0 | 74 2d 74 61 6b 65 20 28 6c 6c 69 73 74 2d 73 6b 69 70 20 6c 6c 69 73 74 20 73 74 61 72 74 29 20 | t-take.(llist-skip.llist.start). |
| 2d0e00 | 28 2d 20 65 6e 64 20 73 74 61 72 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6c 69 73 74 2d 73 6b | (-.end.start)))..(defun.llist-sk |
| 2d0e20 | 69 70 20 28 6c 63 6f 6e 73 20 69 6e 64 65 78 29 0a 20 20 28 64 6f 20 28 28 69 20 30 20 28 31 2b | ip.(lcons.index)...(do.((i.0.(1+ |
| 2d0e40 | 20 69 29 29 0a 20 20 20 20 20 20 20 28 6c 20 6c 63 6f 6e 73 20 28 6c 63 6f 6e 73 2d 63 64 72 20 | .i))........(l.lcons.(lcons-cdr. |
| 2d0e60 | 6c 29 29 29 0a 20 20 20 20 20 20 28 28 6f 72 20 28 3d 20 69 20 69 6e 64 65 78 29 20 28 6e 75 6c | l))).......((or.(=.i.index).(nul |
| 2d0e80 | 6c 20 6c 29 29 0a 20 20 20 20 20 20 20 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6c 69 73 74 2d | l.l))........l)))..(defun.llist- |
| 2d0ea0 | 74 61 6b 65 20 28 6c 63 6f 6e 73 20 63 6f 75 6e 74 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 | take.(lcons.count)...(let.((resu |
| 2d0ec0 | 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 64 6f 20 28 28 69 20 30 20 28 31 2b 20 69 29 29 0a 20 | lt.'())).....(do.((i.0.(1+.i)).. |
| 2d0ee0 | 20 20 20 20 20 20 20 20 28 6c 20 6c 63 6f 6e 73 20 28 6c 63 6f 6e 73 2d 63 64 72 20 6c 29 29 29 | ........(l.lcons.(lcons-cdr.l))) |
| 2d0f00 | 0a 20 20 20 20 20 20 20 20 28 28 6f 72 20 28 3d 20 69 20 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 | .........((or.(=.i.count)....... |
| 2d0f20 | 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 6c 29 29 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 28 6c | .......(null.l))).......(push.(l |
| 2d0f40 | 63 6f 6e 73 2d 63 61 72 20 6c 29 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 28 6e 72 65 76 65 72 | cons-car.l).result)).....(nrever |
| 2d0f60 | 73 65 20 72 65 73 75 6c 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6c 69 6e 65 20 28 6c 61 62 65 | se.result)))..(defun.iline.(labe |
| 2d0f80 | 6c 20 76 61 6c 75 65 29 0a 20 20 60 28 3a 6c 69 6e 65 20 2c 6c 61 62 65 6c 20 2c 76 61 6c 75 65 | l.value)...`(:line.,label.,value |
| 2d0fa0 | 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e 73 70 65 63 74 69 6e 67 0a 0a 28 64 65 66 76 61 72 20 2a | ))....;;;;.Inspecting..(defvar.* |
| 2d0fc0 | 69 6e 73 70 65 63 74 6f 72 2d 76 65 72 62 6f 73 65 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 | inspector-verbose*.nil)..(defvar |
| 2d0fe0 | 20 2a 69 6e 73 70 65 63 74 6f 72 2d 70 72 69 6e 74 65 72 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 | .*inspector-printer-bindings*... |
| 2d1000 | 27 28 28 2a 70 72 69 6e 74 2d 6c 69 6e 65 73 2a 20 20 20 20 20 20 20 20 2e 20 31 29 20 0a 20 20 | '((*print-lines*..........1).... |
| 2d1020 | 20 20 28 2a 70 72 69 6e 74 2d 72 69 67 68 74 2d 6d 61 72 67 69 6e 2a 20 2e 20 37 35 29 0a 20 20 | ..(*print-right-margin*...75)... |
| 2d1040 | 20 20 28 2a 70 72 69 6e 74 2d 70 72 65 74 74 79 2a 20 20 20 20 20 20 20 2e 20 74 29 0a 20 20 20 | ..(*print-pretty*.........t).... |
| 2d1060 | 20 28 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 20 20 20 20 20 2e 20 6e 69 6c 29 29 29 0a | .(*print-readably*.......nil))). |
| 2d1080 | 0a 28 64 65 66 76 61 72 20 2a 69 6e 73 70 65 63 74 6f 72 2d 76 65 72 62 6f 73 65 2d 70 72 69 6e | .(defvar.*inspector-verbose-prin |
| 2d10a0 | 74 65 72 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 27 28 28 2a 70 72 69 6e 74 2d 65 73 63 61 70 65 | ter-bindings*...'((*print-escape |
| 2d10c0 | 2a 20 2e 20 74 29 0a 20 20 20 20 28 2a 70 72 69 6e 74 2d 63 69 72 63 6c 65 2a 20 2e 20 74 29 0a | *...t).....(*print-circle*...t). |
| 2d10e0 | 20 20 20 20 28 2a 70 72 69 6e 74 2d 61 72 72 61 79 2a 20 20 2e 20 6e 69 6c 29 29 29 0a 0a 28 64 | ....(*print-array*....nil)))..(d |
| 2d1100 | 65 66 73 74 72 75 63 74 20 69 6e 73 70 65 63 74 6f 72 2d 73 74 61 74 65 29 0a 28 64 65 66 73 74 | efstruct.inspector-state).(defst |
| 2d1120 | 72 75 63 74 20 28 69 73 74 61 74 65 20 28 3a 63 6f 6e 63 2d 6e 61 6d 65 20 69 73 74 61 74 65 2e | ruct.(istate.(:conc-name.istate. |
| 2d1140 | 29 20 28 3a 69 6e 63 6c 75 64 65 20 69 6e 73 70 65 63 74 6f 72 2d 73 74 61 74 65 29 29 0a 20 20 | ).(:include.inspector-state))... |
| 2d1160 | 6f 62 6a 65 63 74 0a 20 20 28 76 65 72 62 6f 73 65 20 2a 69 6e 73 70 65 63 74 6f 72 2d 76 65 72 | object...(verbose.*inspector-ver |
| 2d1180 | 62 6f 73 65 2a 29 0a 20 20 28 70 61 72 74 73 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 31 30 20 3a | bose*)...(parts.(make-array.10.: |
| 2d11a0 | 61 64 6a 75 73 74 61 62 6c 65 20 74 20 3a 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 30 29 29 0a 20 | adjustable.t.:fill-pointer.0)).. |
| 2d11c0 | 20 28 61 63 74 69 6f 6e 73 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 31 30 20 3a 61 64 6a 75 73 74 | .(actions.(make-array.10.:adjust |
| 2d11e0 | 61 62 6c 65 20 74 20 3a 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 30 29 29 0a 20 20 6d 65 74 61 64 | able.t.:fill-pointer.0))...metad |
| 2d1200 | 61 74 61 2d 70 6c 69 73 74 0a 20 20 63 6f 6e 74 65 6e 74 0a 20 20 6e 65 78 74 20 70 72 65 76 69 | ata-plist...content...next.previ |
| 2d1220 | 6f 75 73 29 0a 0a 28 64 65 66 76 61 72 20 2a 69 73 74 61 74 65 2a 20 6e 69 6c 29 0a 28 64 65 66 | ous)..(defvar.*istate*.nil).(def |
| 2d1240 | 76 61 72 20 2a 69 6e 73 70 65 63 74 6f 72 2d 68 69 73 74 6f 72 79 2a 29 0a 0a 28 64 65 66 75 6e | var.*inspector-history*)..(defun |
| 2d1260 | 20 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 20 28 29 0a 20 20 28 73 65 74 71 20 2a 69 73 74 | .reset-inspector.()...(setq.*ist |
| 2d1280 | 61 74 65 2a 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 2a 69 6e 73 70 65 63 74 6f 72 2d 68 69 73 74 | ate*.nil.........*inspector-hist |
| 2d12a0 | 6f 72 79 2a 20 28 6d 61 6b 65 2d 61 72 72 61 79 20 31 30 20 3a 61 64 6a 75 73 74 61 62 6c 65 20 | ory*.(make-array.10.:adjustable. |
| 2d12c0 | 74 20 3a 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 30 29 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e | t.:fill-pointer.0)))..(defun.fin |
| 2d12e0 | 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 73 | d-definition.(string)...(let.((s |
| 2d1300 | 65 78 70 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 0a | exp.(read-from-string.string))). |
| 2d1320 | 20 20 20 20 28 74 79 70 65 63 61 73 65 20 73 65 78 70 0a 20 20 20 20 20 20 28 28 63 6f 6e 73 20 | ....(typecase.sexp.......((cons. |
| 2d1340 | 28 65 71 6c 20 3a 64 65 66 6d 65 74 68 6f 64 29 29 0a 20 20 20 20 20 20 20 28 70 6f 70 20 73 65 | (eql.:defmethod))........(pop.se |
| 2d1360 | 78 70 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 67 66 20 28 70 6f 70 20 73 65 78 70 29 29 | xp)........(let.((gf.(pop.sexp)) |
| 2d1380 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 71 75 61 6c 69 66 69 65 72 73 29 0a 20 20 20 20 20 | ..............(qualifiers)...... |
| 2d13a0 | 20 20 20 20 20 20 20 20 28 73 70 65 63 69 61 6c 69 7a 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 | ........(specializers))......... |
| 2d13c0 | 20 28 6c 6f 6f 70 20 66 6f 72 20 78 20 3d 20 28 70 6f 70 20 73 65 78 70 29 0a 20 20 20 20 20 20 | .(loop.for.x.=.(pop.sexp)....... |
| 2d13e0 | 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 6c 69 73 74 70 20 78 29 0a 20 20 20 20 20 20 20 20 | .........when.(listp.x)......... |
| 2d1400 | 20 20 20 20 20 20 20 64 6f 20 28 73 65 74 66 20 73 70 65 63 69 61 6c 69 7a 65 72 73 20 78 29 0a | .......do.(setf.specializers.x). |
| 2d1420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 29 0a 20 20 20 20 20 | ..................(return)...... |
| 2d1440 | 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 64 6f 20 28 70 75 73 68 20 78 20 71 75 61 6c 69 66 | ..........else.do.(push.x.qualif |
| 2d1460 | 69 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 73 65 78 70 29 | iers)................while.sexp) |
| 2d1480 | 0a 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 6d 65 74 68 6f 64 20 28 66 64 65 66 69 6e 69 74 | ..........(find-method.(fdefinit |
| 2d14a0 | 69 6f 6e 20 67 66 29 20 71 75 61 6c 69 66 69 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ion.gf).qualifiers.............. |
| 2d14c0 | 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 73 70 65 63 29 0a | .........(mapcar.(lambda.(spec). |
| 2d14e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2d1500 | 28 65 74 79 70 65 63 61 73 65 20 73 70 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (etypecase.spec................. |
| 2d1520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 28 66 69 6e 64 2d | ..................(symbol.(find- |
| 2d1540 | 63 6c 61 73 73 20 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | class.spec)).................... |
| 2d1560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 6f 6e 73 20 28 65 71 6c 20 65 71 6c 29 29 | ...............((cons.(eql.eql)) |
| 2d1580 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2d15a0 | 20 20 20 20 28 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 20 27 73 77 61 6e 6b 2d 6d 6f 70 3a 65 71 | ....(make-instance.'swank-mop:eq |
| 2d15c0 | 6c 2d 73 70 65 63 69 61 6c 69 7a 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-specializer................... |
| 2d15e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2d1600 | 3a 6f 62 6a 65 63 74 20 28 65 76 61 6c 20 28 73 65 63 6f 6e 64 20 73 70 65 63 29 29 29 29 29 29 | :object.(eval.(second.spec)))))) |
| 2d1620 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 | ...............................s |
| 2d1640 | 70 65 63 69 61 6c 69 7a 65 72 73 29 29 29 29 0a 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 | pecializers)))).......(t........ |
| 2d1660 | 28 65 76 61 6c 20 73 65 78 70 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e | (eval.sexp)))))..(defslimefun.in |
| 2d1680 | 69 74 2d 69 6e 73 70 65 63 74 6f 72 20 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 64 | it-inspector.(string.&optional.d |
| 2d16a0 | 65 66 69 6e 69 74 69 6f 6e 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 | efinition)...(with-buffer-syntax |
| 2d16c0 | 20 28 29 0a 20 20 20 20 28 77 69 74 68 2d 72 65 74 72 79 2d 72 65 73 74 61 72 74 20 28 3a 6d 73 | .().....(with-retry-restart.(:ms |
| 2d16e0 | 67 20 22 52 65 74 72 79 20 53 4c 49 4d 45 20 69 6e 73 70 65 63 74 69 6f 6e 20 72 65 71 75 65 73 | g."Retry.SLIME.inspection.reques |
| 2d1700 | 74 2e 22 29 0a 20 20 20 20 20 20 28 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 20 | t.").......(reset-inspector).... |
| 2d1720 | 20 20 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 69 66 20 64 65 66 69 6e 69 74 69 6f | ...(inspect-object.(if.definitio |
| 2d1740 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e | n...........................(fin |
| 2d1760 | 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 | d-definition.definition)........ |
| 2d1780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 28 72 65 61 64 2d 66 | ...................(eval.(read-f |
| 2d17a0 | 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | rom-string.string)))))))..(defun |
| 2d17c0 | 20 65 6e 73 75 72 65 2d 69 73 74 61 74 65 2d 6d 65 74 61 64 61 74 61 20 28 6f 20 69 6e 64 69 63 | .ensure-istate-metadata.(o.indic |
| 2d17e0 | 61 74 6f 72 20 64 65 66 61 75 6c 74 29 0a 20 20 28 77 69 74 68 2d 73 74 72 75 63 74 20 28 69 73 | ator.default)...(with-struct.(is |
| 2d1800 | 74 61 74 65 2e 20 6f 62 6a 65 63 74 20 6d 65 74 61 64 61 74 61 2d 70 6c 69 73 74 29 20 2a 69 73 | tate..object.metadata-plist).*is |
| 2d1820 | 74 61 74 65 2a 0a 20 20 20 20 28 61 73 73 65 72 74 20 28 65 71 20 6f 62 6a 65 63 74 20 6f 29 29 | tate*.....(assert.(eq.object.o)) |
| 2d1840 | 0a 20 20 20 20 28 6c 65 74 20 28 28 64 61 74 61 20 28 67 65 74 66 20 6d 65 74 61 64 61 74 61 2d | .....(let.((data.(getf.metadata- |
| 2d1860 | 70 6c 69 73 74 20 69 6e 64 69 63 61 74 6f 72 20 64 65 66 61 75 6c 74 29 29 29 0a 20 20 20 20 20 | plist.indicator.default)))...... |
| 2d1880 | 20 28 73 65 74 66 20 28 67 65 74 66 20 6d 65 74 61 64 61 74 61 2d 70 6c 69 73 74 20 69 6e 64 69 | .(setf.(getf.metadata-plist.indi |
| 2d18a0 | 63 61 74 6f 72 29 20 64 61 74 61 29 0a 20 20 20 20 20 20 64 61 74 61 29 29 29 0a 0a 28 64 65 66 | cator).data).......data)))..(def |
| 2d18c0 | 75 6e 20 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 6f 29 0a 20 20 28 6c 65 74 2a 20 28 28 | un.inspect-object.(o)...(let*.(( |
| 2d18e0 | 70 72 65 76 20 2a 69 73 74 61 74 65 2a 29 0a 20 20 20 20 20 20 20 20 20 28 69 73 74 61 74 65 20 | prev.*istate*)..........(istate. |
| 2d1900 | 28 6d 61 6b 65 2d 69 73 74 61 74 65 20 3a 6f 62 6a 65 63 74 20 6f 20 3a 70 72 65 76 69 6f 75 73 | (make-istate.:object.o.:previous |
| 2d1920 | 20 70 72 65 76 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .prev........................... |
| 2d1940 | 20 20 20 20 3a 76 65 72 62 6f 73 65 20 28 63 6f 6e 64 20 28 70 72 65 76 20 28 69 73 74 61 74 65 | ....:verbose.(cond.(prev.(istate |
| 2d1960 | 2e 76 65 72 62 6f 73 65 20 70 72 65 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .verbose.prev))................. |
| 2d1980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 | .............................(t. |
| 2d19a0 | 2a 69 6e 73 70 65 63 74 6f 72 2d 76 65 72 62 6f 73 65 2a 29 29 29 29 29 0a 20 20 20 20 28 73 65 | *inspector-verbose*))))).....(se |
| 2d19c0 | 74 71 20 2a 69 73 74 61 74 65 2a 20 69 73 74 61 74 65 29 0a 20 20 20 20 28 73 65 74 66 20 28 69 | tq.*istate*.istate).....(setf.(i |
| 2d19e0 | 73 74 61 74 65 2e 63 6f 6e 74 65 6e 74 20 69 73 74 61 74 65 29 20 28 65 6d 61 63 73 2d 69 6e 73 | state.content.istate).(emacs-ins |
| 2d1a00 | 70 65 63 74 2f 69 73 74 61 74 65 20 69 73 74 61 74 65 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 | pect/istate.istate)).....(unless |
| 2d1a20 | 20 28 66 69 6e 64 20 6f 20 2a 69 6e 73 70 65 63 74 6f 72 2d 68 69 73 74 6f 72 79 2a 29 0a 20 20 | .(find.o.*inspector-history*)... |
| 2d1a40 | 20 20 20 20 28 76 65 63 74 6f 72 2d 70 75 73 68 2d 65 78 74 65 6e 64 20 6f 20 2a 69 6e 73 70 65 | ....(vector-push-extend.o.*inspe |
| 2d1a60 | 63 74 6f 72 2d 68 69 73 74 6f 72 79 2a 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 72 65 76 69 | ctor-history*)).....(let.((previ |
| 2d1a80 | 6f 75 73 20 28 69 73 74 61 74 65 2e 70 72 65 76 69 6f 75 73 20 69 73 74 61 74 65 29 29 29 0a 20 | ous.(istate.previous.istate))).. |
| 2d1aa0 | 20 20 20 20 20 28 69 66 20 70 72 65 76 69 6f 75 73 20 28 73 65 74 66 20 28 69 73 74 61 74 65 2e | .....(if.previous.(setf.(istate. |
| 2d1ac0 | 6e 65 78 74 20 70 72 65 76 69 6f 75 73 29 20 69 73 74 61 74 65 29 29 29 0a 20 20 20 20 28 69 73 | next.previous).istate))).....(is |
| 2d1ae0 | 74 61 74 65 3e 65 6c 69 73 70 20 69 73 74 61 74 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 6d 61 | tate>elisp.istate)))..(defun.ema |
| 2d1b00 | 63 73 2d 69 6e 73 70 65 63 74 2f 69 73 74 61 74 65 20 28 69 73 74 61 74 65 29 0a 20 20 28 77 69 | cs-inspect/istate.(istate)...(wi |
| 2d1b20 | 74 68 2d 62 69 6e 64 69 6e 67 73 20 28 69 66 20 28 69 73 74 61 74 65 2e 76 65 72 62 6f 73 65 20 | th-bindings.(if.(istate.verbose. |
| 2d1b40 | 69 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 69 6e | istate)......................*in |
| 2d1b60 | 73 70 65 63 74 6f 72 2d 76 65 72 62 6f 73 65 2d 70 72 69 6e 74 65 72 2d 62 69 6e 64 69 6e 67 73 | spector-verbose-printer-bindings |
| 2d1b80 | 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 69 6e 73 70 65 63 74 6f | *......................*inspecto |
| 2d1ba0 | 72 2d 70 72 69 6e 74 65 72 2d 62 69 6e 64 69 6e 67 73 2a 29 0a 20 20 20 20 28 65 6d 61 63 73 2d | r-printer-bindings*).....(emacs- |
| 2d1bc0 | 69 6e 73 70 65 63 74 20 28 69 73 74 61 74 65 2e 6f 62 6a 65 63 74 20 69 73 74 61 74 65 29 29 29 | inspect.(istate.object.istate))) |
| 2d1be0 | 29 0a 0a 28 64 65 66 75 6e 20 69 73 74 61 74 65 3e 65 6c 69 73 70 20 28 69 73 74 61 74 65 29 0a | )..(defun.istate>elisp.(istate). |
| 2d1c00 | 20 20 28 6c 69 73 74 20 3a 74 69 74 6c 65 20 28 70 72 65 70 61 72 65 2d 74 69 74 6c 65 20 69 73 | ..(list.:title.(prepare-title.is |
| 2d1c20 | 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 3a 69 64 20 28 61 73 73 69 67 6e 2d 69 6e 64 65 78 20 | tate).........:id.(assign-index. |
| 2d1c40 | 28 69 73 74 61 74 65 2e 6f 62 6a 65 63 74 20 69 73 74 61 74 65 29 20 28 69 73 74 61 74 65 2e 70 | (istate.object.istate).(istate.p |
| 2d1c60 | 61 72 74 73 20 69 73 74 61 74 65 29 29 0a 20 20 20 20 20 20 20 20 3a 63 6f 6e 74 65 6e 74 20 28 | arts.istate)).........:content.( |
| 2d1c80 | 70 72 65 70 61 72 65 2d 72 61 6e 67 65 20 69 73 74 61 74 65 20 30 20 35 30 30 29 29 29 0a 0a 28 | prepare-range.istate.0.500)))..( |
| 2d1ca0 | 64 65 66 75 6e 20 70 72 65 70 61 72 65 2d 74 69 74 6c 65 20 28 69 73 74 61 74 65 29 0a 20 20 28 | defun.prepare-title.(istate)...( |
| 2d1cc0 | 69 66 20 28 69 73 74 61 74 65 2e 76 65 72 62 6f 73 65 20 69 73 74 61 74 65 29 0a 20 20 20 20 20 | if.(istate.verbose.istate)...... |
| 2d1ce0 | 20 28 77 69 74 68 2d 62 69 6e 64 69 6e 67 73 20 2a 69 6e 73 70 65 63 74 6f 72 2d 76 65 72 62 6f | .(with-bindings.*inspector-verbo |
| 2d1d00 | 73 65 2d 70 72 69 6e 74 65 72 2d 62 69 6e 64 69 6e 67 73 2a 0a 20 20 20 20 20 20 20 20 28 74 6f | se-printer-bindings*.........(to |
| 2d1d20 | 2d 73 74 72 69 6e 67 20 28 69 73 74 61 74 65 2e 6f 62 6a 65 63 74 20 69 73 74 61 74 65 29 29 29 | -string.(istate.object.istate))) |
| 2d1d40 | 0a 20 20 20 20 20 20 28 77 69 74 68 2d 73 74 72 69 6e 67 2d 73 74 72 65 61 6d 20 28 73 74 72 65 | .......(with-string-stream.(stre |
| 2d1d60 | 61 6d 20 3a 6c 65 6e 67 74 68 20 32 30 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | am.:length.200.................. |
| 2d1d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 69 6e 64 69 6e 67 73 20 2a 69 6e 73 70 | .................:bindings.*insp |
| 2d1da0 | 65 63 74 6f 72 2d 70 72 69 6e 74 65 72 2d 62 69 6e 64 69 6e 67 73 2a 29 0a 20 20 20 20 20 20 20 | ector-printer-bindings*)........ |
| 2d1dc0 | 20 28 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 | .(print-unreadable-object....... |
| 2d1de0 | 20 20 20 20 20 20 28 28 69 73 74 61 74 65 2e 6f 62 6a 65 63 74 20 69 73 74 61 74 65 29 20 73 74 | ......((istate.object.istate).st |
| 2d1e00 | 72 65 61 6d 20 3a 74 79 70 65 20 74 20 3a 69 64 65 6e 74 69 74 79 20 74 29 29 29 29 29 0a 0a 28 | ream.:type.t.:identity.t)))))..( |
| 2d1e20 | 64 65 66 75 6e 20 70 72 65 70 61 72 65 2d 72 61 6e 67 65 20 28 69 73 74 61 74 65 20 73 74 61 72 | defun.prepare-range.(istate.star |
| 2d1e40 | 74 20 65 6e 64 29 0a 20 20 28 6c 65 74 2a 20 28 28 72 61 6e 67 65 20 28 63 6f 6e 74 65 6e 74 2d | t.end)...(let*.((range.(content- |
| 2d1e60 | 72 61 6e 67 65 20 28 69 73 74 61 74 65 2e 63 6f 6e 74 65 6e 74 20 69 73 74 61 74 65 29 20 73 74 | range.(istate.content.istate).st |
| 2d1e80 | 61 72 74 20 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 73 20 28 6c 6f 6f 70 20 66 6f 72 | art.end))..........(ps.(loop.for |
| 2d1ea0 | 20 70 61 72 74 20 69 6e 20 72 61 6e 67 65 20 61 70 70 65 6e 64 20 28 70 72 65 70 61 72 65 2d 70 | .part.in.range.append.(prepare-p |
| 2d1ec0 | 61 72 74 20 70 61 72 74 20 69 73 74 61 74 65 29 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 70 73 | art.part.istate)))).....(list.ps |
| 2d1ee0 | 20 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3c 20 28 6c 65 6e 67 74 68 20 70 73 29 20 28 | ............(if.(<.(length.ps).( |
| 2d1f00 | 2d 20 65 6e 64 20 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 73 | -.end.start))...............(+.s |
| 2d1f20 | 74 61 72 74 20 28 6c 65 6e 67 74 68 20 70 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tart.(length.ps))............... |
| 2d1f40 | 28 2b 20 65 6e 64 20 31 30 30 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 20 65 6e | (+.end.1000))...........start.en |
| 2d1f60 | 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 70 61 72 65 2d 70 61 72 74 20 28 70 61 72 74 20 | d)))..(defun.prepare-part.(part. |
| 2d1f80 | 69 73 74 61 74 65 29 0a 20 20 28 6c 65 74 20 28 28 6e 65 77 6c 69 6e 65 20 27 23 2e 28 73 74 72 | istate)...(let.((newline.'#.(str |
| 2d1fa0 | 69 6e 67 20 23 5c 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 | ing.#\newline))).....(etypecase. |
| 2d1fc0 | 70 61 72 74 0a 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 28 6c 69 73 74 20 70 61 72 74 29 29 0a | part.......(string.(list.part)). |
| 2d1fe0 | 20 20 20 20 20 20 28 63 6f 6e 73 20 28 64 63 61 73 65 20 70 61 72 74 0a 20 20 20 20 20 20 20 20 | ......(cons.(dcase.part......... |
| 2d2000 | 20 20 20 20 20 20 28 28 3a 6e 65 77 6c 69 6e 65 29 20 28 6c 69 73 74 20 6e 65 77 6c 69 6e 65 29 | ......((:newline).(list.newline) |
| 2d2020 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 76 61 6c 75 65 20 6f 62 6a 20 26 6f 70 | )...............((:value.obj.&op |
| 2d2040 | 74 69 6f 6e 61 6c 20 73 74 72 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | tional.str).................(lis |
| 2d2060 | 74 20 28 76 61 6c 75 65 2d 70 61 72 74 20 6f 62 6a 20 73 74 72 20 28 69 73 74 61 74 65 2e 70 61 | t.(value-part.obj.str.(istate.pa |
| 2d2080 | 72 74 73 20 69 73 74 61 74 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a | rts.istate))))...............((: |
| 2d20a0 | 6c 61 62 65 6c 20 26 72 65 73 74 20 73 74 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | label.&rest.strs)............... |
| 2d20c0 | 20 28 6c 69 73 74 20 28 6c 69 73 74 20 3a 6c 61 62 65 6c 20 28 61 70 70 6c 79 20 23 27 63 61 74 | .(list.(list.:label.(apply.#'cat |
| 2d20e0 | 20 28 6d 61 70 63 61 72 20 23 27 73 74 72 69 6e 67 20 73 74 72 73 29 29 29 29 29 0a 20 20 20 20 | .(mapcar.#'string.strs)))))..... |
| 2d2100 | 20 20 20 20 20 20 20 20 20 20 28 28 3a 61 63 74 69 6f 6e 20 6c 61 62 65 6c 20 6c 61 6d 62 64 61 | ..........((:action.label.lambda |
| 2d2120 | 20 26 6b 65 79 20 28 72 65 66 72 65 73 68 70 20 74 29 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 | .&key.(refreshp.t))............. |
| 2d2140 | 20 20 20 20 28 6c 69 73 74 20 28 61 63 74 69 6f 6e 2d 70 61 72 74 20 6c 61 62 65 6c 20 6c 61 6d | ....(list.(action-part.label.lam |
| 2d2160 | 62 64 61 20 72 65 66 72 65 73 68 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bda.refreshp.................... |
| 2d2180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 73 74 61 74 65 2e 61 63 74 69 6f 6e 73 20 69 | ...............(istate.actions.i |
| 2d21a0 | 73 74 61 74 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3a 6c 69 6e 65 20 | state))))...............((:line. |
| 2d21c0 | 6c 61 62 65 6c 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 | label.value)................(lis |
| 2d21e0 | 74 20 28 70 72 69 6e 63 2d 74 6f 2d 73 74 72 69 6e 67 20 6c 61 62 65 6c 29 20 22 3a 20 22 0a 20 | t.(princ-to-string.label).":.".. |
| 2d2200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 2d 70 61 72 74 20 | ....................(value-part. |
| 2d2220 | 76 61 6c 75 65 20 6e 69 6c 20 28 69 73 74 61 74 65 2e 70 61 72 74 73 20 69 73 74 61 74 65 29 29 | value.nil.(istate.parts.istate)) |
| 2d2240 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 6c 69 6e 65 29 29 29 | ......................newline))) |
| 2d2260 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 61 6c 75 65 2d 70 61 72 74 20 28 6f 62 6a 65 63 74 20 | ))))..(defun.value-part.(object. |
| 2d2280 | 73 74 72 69 6e 67 20 70 61 72 74 73 29 0a 20 20 28 6c 69 73 74 20 3a 76 61 6c 75 65 20 0a 20 20 | string.parts)...(list.:value.... |
| 2d22a0 | 20 20 20 20 20 20 28 6f 72 20 73 74 72 69 6e 67 20 28 70 72 69 6e 74 2d 70 61 72 74 2d 74 6f 2d | ......(or.string.(print-part-to- |
| 2d22c0 | 73 74 72 69 6e 67 20 6f 62 6a 65 63 74 29 29 0a 20 20 20 20 20 20 20 20 28 61 73 73 69 67 6e 2d | string.object)).........(assign- |
| 2d22e0 | 69 6e 64 65 78 20 6f 62 6a 65 63 74 20 70 61 72 74 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 63 | index.object.parts)))..(defun.ac |
| 2d2300 | 74 69 6f 6e 2d 70 61 72 74 20 28 6c 61 62 65 6c 20 6c 61 6d 62 64 61 20 72 65 66 72 65 73 68 70 | tion-part.(label.lambda.refreshp |
| 2d2320 | 20 61 63 74 69 6f 6e 73 29 0a 20 20 28 6c 69 73 74 20 3a 61 63 74 69 6f 6e 20 6c 61 62 65 6c 20 | .actions)...(list.:action.label. |
| 2d2340 | 28 61 73 73 69 67 6e 2d 69 6e 64 65 78 20 28 6c 69 73 74 20 6c 61 6d 62 64 61 20 72 65 66 72 65 | (assign-index.(list.lambda.refre |
| 2d2360 | 73 68 70 29 20 61 63 74 69 6f 6e 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 61 73 73 69 67 6e 2d 69 | shp).actions)))..(defun.assign-i |
| 2d2380 | 6e 64 65 78 20 28 6f 62 6a 65 63 74 20 76 65 63 74 6f 72 29 0a 20 20 28 6c 65 74 20 28 28 69 6e | ndex.(object.vector)...(let.((in |
| 2d23a0 | 64 65 78 20 28 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 76 65 63 74 6f 72 29 29 29 0a 20 20 20 20 | dex.(fill-pointer.vector)))..... |
| 2d23c0 | 28 76 65 63 74 6f 72 2d 70 75 73 68 2d 65 78 74 65 6e 64 20 6f 62 6a 65 63 74 20 76 65 63 74 6f | (vector-push-extend.object.vecto |
| 2d23e0 | 72 29 0a 20 20 20 20 69 6e 64 65 78 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 70 61 72 | r).....index))..(defun.print-par |
| 2d2400 | 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 76 61 6c 75 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 2a 70 | t-to-string.(value)...(let*.((*p |
| 2d2420 | 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 | rint-readably*.nil)..........(st |
| 2d2440 | 72 69 6e 67 20 28 74 6f 2d 6c 69 6e 65 20 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 | ring.(to-line.value))..........( |
| 2d2460 | 70 6f 73 20 28 70 6f 73 69 74 69 6f 6e 20 76 61 6c 75 65 20 2a 69 6e 73 70 65 63 74 6f 72 2d 68 | pos.(position.value.*inspector-h |
| 2d2480 | 69 73 74 6f 72 79 2a 29 29 29 0a 20 20 20 20 28 69 66 20 70 6f 73 0a 20 20 20 20 20 20 20 20 28 | istory*))).....(if.pos.........( |
| 2d24a0 | 66 6f 72 6d 61 74 20 6e 69 6c 20 22 40 7e 44 3d 7e 41 22 20 70 6f 73 20 73 74 72 69 6e 67 29 0a | format.nil."@~D=~A".pos.string). |
| 2d24c0 | 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 74 65 6e | ........string)))..(defun.conten |
| 2d24e0 | 74 2d 72 61 6e 67 65 20 28 6c 69 73 74 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 28 74 79 70 65 | t-range.(list.start.end)...(type |
| 2d2500 | 63 61 73 65 20 6c 69 73 74 0a 20 20 20 20 28 6c 69 73 74 20 28 6c 65 74 20 28 28 6c 65 6e 20 28 | case.list.....(list.(let.((len.( |
| 2d2520 | 6c 65 6e 67 74 68 20 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 | length.list))).............(subs |
| 2d2540 | 65 71 20 6c 69 73 74 20 73 74 61 72 74 20 28 6d 69 6e 20 6c 65 6e 20 65 6e 64 29 29 29 29 0a 20 | eq.list.start.(min.len.end)))).. |
| 2d2560 | 20 20 20 28 6c 63 6f 6e 73 20 28 6c 6c 69 73 74 2d 72 61 6e 67 65 20 6c 69 73 74 20 73 74 61 72 | ...(lcons.(llist-range.list.star |
| 2d2580 | 74 20 65 6e 64 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 6f | t.end))))..(defslimefun.inspecto |
| 2d25a0 | 72 2d 6e 74 68 2d 70 61 72 74 20 28 69 6e 64 65 78 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 | r-nth-part.(index)..."Return.the |
| 2d25c0 | 20 63 75 72 72 65 6e 74 20 69 6e 73 70 65 63 74 6f 72 27 73 20 49 4e 44 45 58 74 68 20 70 61 72 | .current.inspector's.INDEXth.par |
| 2d25e0 | 74 2e 0a 54 68 65 20 73 65 63 6f 6e 64 20 76 61 6c 75 65 20 69 6e 64 69 63 61 74 65 73 20 69 66 | t..The.second.value.indicates.if |
| 2d2600 | 20 74 68 61 74 20 70 61 72 74 20 65 78 69 73 74 73 20 61 74 20 61 6c 6c 2e 22 0a 20 20 28 6c 65 | .that.part.exists.at.all."...(le |
| 2d2620 | 74 2a 20 28 28 70 61 72 74 73 20 28 69 73 74 61 74 65 2e 70 61 72 74 73 20 2a 69 73 74 61 74 65 | t*.((parts.(istate.parts.*istate |
| 2d2640 | 2a 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 75 6e 64 70 20 28 3c 20 69 6e 64 65 78 20 28 6c | *))..........(foundp.(<.index.(l |
| 2d2660 | 65 6e 67 74 68 20 70 61 72 74 73 29 29 29 29 0a 20 20 20 20 28 76 61 6c 75 65 73 20 28 61 6e 64 | ength.parts)))).....(values.(and |
| 2d2680 | 20 66 6f 75 6e 64 70 20 28 61 72 65 66 20 70 61 72 74 73 20 69 6e 64 65 78 29 29 0a 20 20 20 20 | .foundp.(aref.parts.index))..... |
| 2d26a0 | 20 20 20 20 20 20 20 20 66 6f 75 6e 64 70 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 | ........foundp)))..(defslimefun. |
| 2d26c0 | 69 6e 73 70 65 63 74 2d 6e 74 68 2d 70 61 72 74 20 28 69 6e 64 65 78 29 0a 20 20 28 77 69 74 68 | inspect-nth-part.(index)...(with |
| 2d26e0 | 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 69 6e 73 70 65 63 74 2d 6f | -buffer-syntax.().....(inspect-o |
| 2d2700 | 62 6a 65 63 74 20 28 69 6e 73 70 65 63 74 6f 72 2d 6e 74 68 2d 70 61 72 74 20 69 6e 64 65 78 29 | bject.(inspector-nth-part.index) |
| 2d2720 | 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 6f 72 2d 72 61 6e 67 | )))..(defslimefun.inspector-rang |
| 2d2740 | 65 20 28 66 72 6f 6d 20 74 6f 29 0a 20 20 28 70 72 65 70 61 72 65 2d 72 61 6e 67 65 20 2a 69 73 | e.(from.to)...(prepare-range.*is |
| 2d2760 | 74 61 74 65 2a 20 66 72 6f 6d 20 74 6f 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e | tate*.from.to))..(defslimefun.in |
| 2d2780 | 73 70 65 63 74 6f 72 2d 63 61 6c 6c 2d 6e 74 68 2d 61 63 74 69 6f 6e 20 28 69 6e 64 65 78 20 26 | spector-call-nth-action.(index.& |
| 2d27a0 | 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 | rest.args)...(destructuring-bind |
| 2d27c0 | 20 28 66 75 6e 20 72 65 66 72 65 73 68 70 29 20 28 61 72 65 66 20 28 69 73 74 61 74 65 2e 61 63 | .(fun.refreshp).(aref.(istate.ac |
| 2d27e0 | 74 69 6f 6e 73 20 2a 69 73 74 61 74 65 2a 29 20 69 6e 64 65 78 29 0a 20 20 20 20 28 61 70 70 6c | tions.*istate*).index).....(appl |
| 2d2800 | 79 20 66 75 6e 20 61 72 67 73 29 0a 20 20 20 20 28 69 66 20 72 65 66 72 65 73 68 70 0a 20 20 20 | y.fun.args).....(if.refreshp.... |
| 2d2820 | 20 20 20 20 20 28 69 6e 73 70 65 63 74 6f 72 2d 72 65 69 6e 73 70 65 63 74 29 0a 20 20 20 20 20 | .....(inspector-reinspect)...... |
| 2d2840 | 20 20 20 3b 3b 20 74 65 6c 6c 20 65 6d 61 63 73 20 74 68 61 74 20 77 65 20 64 6f 6e 27 74 20 77 | ...;;.tell.emacs.that.we.don't.w |
| 2d2860 | 61 6e 74 20 74 6f 20 72 65 66 72 65 73 68 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 20 62 75 66 | ant.to.refresh.the.inspector.buf |
| 2d2880 | 66 65 72 0a 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e | fer.........nil)))..(defslimefun |
| 2d28a0 | 20 69 6e 73 70 65 63 74 6f 72 2d 70 6f 70 20 28 29 0a 20 20 22 49 6e 73 70 65 63 74 20 74 68 65 | .inspector-pop.()..."Inspect.the |
| 2d28c0 | 20 70 72 65 76 69 6f 75 73 20 6f 62 6a 65 63 74 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 | .previous.object..Return.nil.if. |
| 2d28e0 | 74 68 65 72 65 27 73 20 6e 6f 20 70 72 65 76 69 6f 75 73 20 6f 62 6a 65 63 74 2e 22 0a 20 20 28 | there's.no.previous.object."...( |
| 2d2900 | 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 63 6f 6e 64 20 | with-buffer-syntax.().....(cond. |
| 2d2920 | 28 28 69 73 74 61 74 65 2e 70 72 65 76 69 6f 75 73 20 2a 69 73 74 61 74 65 2a 29 0a 20 20 20 20 | ((istate.previous.*istate*)..... |
| 2d2940 | 20 20 20 20 20 20 20 28 73 65 74 71 20 2a 69 73 74 61 74 65 2a 20 28 69 73 74 61 74 65 2e 70 72 | .......(setq.*istate*.(istate.pr |
| 2d2960 | 65 76 69 6f 75 73 20 2a 69 73 74 61 74 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 73 | evious.*istate*))............(is |
| 2d2980 | 74 61 74 65 3e 65 6c 69 73 70 20 2a 69 73 74 61 74 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 | tate>elisp.*istate*))........... |
| 2d29a0 | 28 74 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 | (t.nil))))..(defslimefun.inspect |
| 2d29c0 | 6f 72 2d 6e 65 78 74 20 28 29 0a 20 20 22 49 6e 73 70 65 63 74 20 74 68 65 20 6e 65 78 74 20 65 | or-next.()..."Inspect.the.next.e |
| 2d29e0 | 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 68 69 73 74 6f 72 79 20 6f 66 20 69 6e 73 70 65 63 74 | lement.in.the.history.of.inspect |
| 2d2a00 | 65 64 20 6f 62 6a 65 63 74 73 2e 2e 22 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e | ed.objects.."...(with-buffer-syn |
| 2d2a20 | 74 61 78 20 28 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 69 73 74 61 74 65 2e 6e 65 78 74 20 2a | tax.().....(cond.((istate.next.* |
| 2d2a40 | 69 73 74 61 74 65 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2a 69 73 74 61 74 | istate*)............(setq.*istat |
| 2d2a60 | 65 2a 20 28 69 73 74 61 74 65 2e 6e 65 78 74 20 2a 69 73 74 61 74 65 2a 29 29 0a 20 20 20 20 20 | e*.(istate.next.*istate*))...... |
| 2d2a80 | 20 20 20 20 20 20 28 69 73 74 61 74 65 3e 65 6c 69 73 70 20 2a 69 73 74 61 74 65 2a 29 29 0a 20 | ......(istate>elisp.*istate*)).. |
| 2d2aa0 | 20 20 20 20 20 20 20 20 20 28 74 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 | .........(t.nil))))..(defslimefu |
| 2d2ac0 | 6e 20 69 6e 73 70 65 63 74 6f 72 2d 72 65 69 6e 73 70 65 63 74 20 28 29 0a 20 20 28 6c 65 74 20 | n.inspector-reinspect.()...(let. |
| 2d2ae0 | 28 28 69 73 74 61 74 65 20 2a 69 73 74 61 74 65 2a 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 69 | ((istate.*istate*)).....(setf.(i |
| 2d2b00 | 73 74 61 74 65 2e 63 6f 6e 74 65 6e 74 20 69 73 74 61 74 65 29 20 28 65 6d 61 63 73 2d 69 6e 73 | state.content.istate).(emacs-ins |
| 2d2b20 | 70 65 63 74 2f 69 73 74 61 74 65 20 69 73 74 61 74 65 29 29 0a 20 20 20 20 28 69 73 74 61 74 65 | pect/istate.istate)).....(istate |
| 2d2b40 | 3e 65 6c 69 73 70 20 69 73 74 61 74 65 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 | >elisp.istate)))..(defslimefun.i |
| 2d2b60 | 6e 73 70 65 63 74 6f 72 2d 74 6f 67 67 6c 65 2d 76 65 72 62 6f 73 65 20 28 29 0a 20 20 22 54 6f | nspector-toggle-verbose.()..."To |
| 2d2b80 | 67 67 6c 65 20 76 65 72 62 6f 73 69 74 79 20 6f 66 20 69 6e 73 70 65 63 74 65 64 20 6f 62 6a 65 | ggle.verbosity.of.inspected.obje |
| 2d2ba0 | 63 74 2e 22 0a 20 20 28 73 65 74 66 20 28 69 73 74 61 74 65 2e 76 65 72 62 6f 73 65 20 2a 69 73 | ct."...(setf.(istate.verbose.*is |
| 2d2bc0 | 74 61 74 65 2a 29 20 28 6e 6f 74 20 28 69 73 74 61 74 65 2e 76 65 72 62 6f 73 65 20 2a 69 73 74 | tate*).(not.(istate.verbose.*ist |
| 2d2be0 | 61 74 65 2a 29 29 29 0a 20 20 28 69 73 74 61 74 65 3e 65 6c 69 73 70 20 2a 69 73 74 61 74 65 2a | ate*)))...(istate>elisp.*istate* |
| 2d2c00 | 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 6f 72 2d 65 76 61 6c 20 | ))..(defslimefun.inspector-eval. |
| 2d2c20 | 28 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 2a 20 28 28 6f 62 6a 20 28 69 73 74 61 74 65 2e 6f | (string)...(let*.((obj.(istate.o |
| 2d2c40 | 62 6a 65 63 74 20 2a 69 73 74 61 74 65 2a 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 74 65 | bject.*istate*))..........(conte |
| 2d2c60 | 78 74 20 28 65 76 61 6c 2d 63 6f 6e 74 65 78 74 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 | xt.(eval-context.obj)).......... |
| 2d2c80 | 28 66 6f 72 6d 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 28 63 64 72 20 | (form.(with-buffer-syntax.((cdr. |
| 2d2ca0 | 28 61 73 73 6f 63 20 27 2a 70 61 63 6b 61 67 65 2a 20 63 6f 6e 74 65 78 74 29 29 29 0a 20 20 20 | (assoc.'*package*.context))).... |
| 2d2cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 | ..............(read-from-string. |
| 2d2ce0 | 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 61 62 6c 65 20 28 72 | string)))..........(ignorable.(r |
| 2d2d00 | 65 6d 6f 76 65 2d 69 66 20 23 27 62 6f 75 6e 64 70 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 | emove-if.#'boundp.(mapcar.#'car. |
| 2d2d20 | 63 6f 6e 74 65 78 74 29 29 29 29 0a 20 20 20 20 28 74 6f 2d 73 74 72 69 6e 67 20 28 65 76 61 6c | context)))).....(to-string.(eval |
| 2d2d40 | 20 60 28 6c 65 74 20 28 28 2a 20 27 2c 6f 62 6a 29 20 28 2d 20 27 2c 66 6f 72 6d 29 0a 20 20 20 | .`(let.((*.',obj).(-.',form).... |
| 2d2d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 2c 28 6c 6f 6f | ...........................,(loo |
| 2d2d80 | 70 20 66 6f 72 20 28 76 61 72 20 2e 20 76 61 6c 29 20 69 6e 20 63 6f 6e 74 65 78 74 20 0a 20 20 | p.for.(var...val).in.context.... |
| 2d2da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2d2dc0 | 20 20 20 75 6e 6c 65 73 73 20 28 63 6f 6e 73 74 61 6e 74 70 20 76 61 72 29 20 63 6f 6c 6c 65 63 | ...unless.(constantp.var).collec |
| 2d2de0 | 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t............................... |
| 2d2e00 | 20 20 20 20 20 20 20 20 60 28 2c 76 61 72 20 27 2c 76 61 6c 29 29 29 0a 20 20 20 20 20 20 20 20 | ........`(,var.',val)))......... |
| 2d2e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 20 28 69 67 6e 6f 72 61 | ................(declare.(ignora |
| 2d2e40 | 62 6c 65 20 2e 20 2c 69 67 6e 6f 72 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ble...,ignorable)).............. |
| 2d2e60 | 20 20 20 20 20 20 20 20 20 20 20 2c 66 6f 72 6d 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 | ...........,form)))))..(defslime |
| 2d2e80 | 66 75 6e 20 69 6e 73 70 65 63 74 6f 72 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 28 77 69 74 68 | fun.inspector-history.()...(with |
| 2d2ea0 | 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 75 74 29 0a 20 20 20 20 28 6c 65 74 | -output-to-string.(out).....(let |
| 2d2ec0 | 20 28 28 6e 65 77 65 73 74 20 28 6c 6f 6f 70 20 66 6f 72 20 73 20 3d 20 2a 69 73 74 61 74 65 2a | .((newest.(loop.for.s.=.*istate* |
| 2d2ee0 | 20 74 68 65 6e 20 6e 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .then.next...................... |
| 2d2f00 | 20 20 20 66 6f 72 20 6e 65 78 74 20 3d 20 28 69 73 74 61 74 65 2e 6e 65 78 74 20 73 29 0a 20 20 | ...for.next.=.(istate.next.s)... |
| 2d2f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6e 6f 74 20 6e 65 | ......................if.(not.ne |
| 2d2f40 | 78 74 29 20 72 65 74 75 72 6e 20 73 29 29 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6f 75 | xt).return.s))).......(format.ou |
| 2d2f60 | 74 20 22 2d 2d 2d 20 6e 65 78 74 2f 70 72 65 76 20 63 68 61 69 6e 20 2d 2d 2d 22 29 0a 20 20 20 | t."---.next/prev.chain.---").... |
| 2d2f80 | 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 73 20 3d 20 6e 65 77 65 73 74 20 74 68 65 6e 20 28 69 73 | ...(loop.for.s.=.newest.then.(is |
| 2d2fa0 | 74 61 74 65 2e 70 72 65 76 69 6f 75 73 20 73 29 20 77 68 69 6c 65 20 73 20 64 6f 0a 20 20 20 20 | tate.previous.s).while.s.do..... |
| 2d2fc0 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 6c 20 28 69 73 74 61 74 65 2e 6f 62 6a 65 63 | ........(let.((val.(istate.objec |
| 2d2fe0 | 74 20 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 6f 75 74 | t.s)))...............(format.out |
| 2d3000 | 20 22 7e 25 7e 3a 5b 20 20 7e 3b 20 2a 7e 5d 40 7e 64 20 22 20 0a 20 20 20 20 20 20 20 20 20 20 | ."~%~:[..~;.*~]@~d."............ |
| 2d3020 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 73 20 2a 69 73 74 61 74 65 2a 29 0a 20 20 20 20 | ............(eq.s.*istate*)..... |
| 2d3040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 73 69 74 69 6f 6e 20 76 61 6c 20 | ..................(position.val. |
| 2d3060 | 2a 69 6e 73 70 65 63 74 6f 72 2d 68 69 73 74 6f 72 79 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 | *inspector-history*))........... |
| 2d3080 | 20 20 20 20 28 70 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 20 28 76 61 | ....(print-unreadable-object.(va |
| 2d30a0 | 6c 20 6f 75 74 20 3a 74 79 70 65 20 74 20 3a 69 64 65 6e 74 69 74 79 20 74 29 29 29 29 29 0a 20 | l.out.:type.t.:identity.t))))).. |
| 2d30c0 | 20 20 20 28 66 6f 72 6d 61 74 20 6f 75 74 20 22 7e 25 7e 25 2d 2d 2d 20 61 6c 6c 20 76 69 73 69 | ...(format.out."~%~%---.all.visi |
| 2d30e0 | 74 65 64 20 6f 62 6a 65 63 74 73 20 2d 2d 2d 22 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 | ted.objects.---").....(loop.for. |
| 2d3100 | 76 61 6c 20 61 63 72 6f 73 73 20 2a 69 6e 73 70 65 63 74 6f 72 2d 68 69 73 74 6f 72 79 2a 20 66 | val.across.*inspector-history*.f |
| 2d3120 | 6f 72 20 69 20 66 72 6f 6d 20 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | or.i.from.0.do...........(format |
| 2d3140 | 20 6f 75 74 20 22 7e 25 7e 32 2c 27 20 64 20 22 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 | .out."~%~2,'.d.".i)...........(p |
| 2d3160 | 72 69 6e 74 2d 75 6e 72 65 61 64 61 62 6c 65 2d 6f 62 6a 65 63 74 20 28 76 61 6c 20 6f 75 74 20 | rint-unreadable-object.(val.out. |
| 2d3180 | 3a 74 79 70 65 20 74 20 3a 69 64 65 6e 74 69 74 79 20 74 29 29 29 29 29 0a 0a 28 64 65 66 73 6c | :type.t.:identity.t)))))..(defsl |
| 2d31a0 | 69 6d 65 66 75 6e 20 71 75 69 74 2d 69 6e 73 70 65 63 74 6f 72 20 28 29 0a 20 20 28 72 65 73 65 | imefun.quit-inspector.()...(rese |
| 2d31c0 | 74 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 | t-inspector)...nil)..(defslimefu |
| 2d31e0 | 6e 20 64 65 73 63 72 69 62 65 2d 69 6e 73 70 65 63 74 65 65 20 28 29 0a 20 20 22 44 65 73 63 72 | n.describe-inspectee.()..."Descr |
| 2d3200 | 69 62 65 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 69 6e 73 70 65 63 74 65 64 20 6f 62 6a 65 | ibe.the.currently.inspected.obje |
| 2d3220 | 63 74 2e 22 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 | ct."...(with-buffer-syntax.()... |
| 2d3240 | 20 20 28 64 65 73 63 72 69 62 65 2d 74 6f 2d 73 74 72 69 6e 67 20 28 69 73 74 61 74 65 2e 6f 62 | ..(describe-to-string.(istate.ob |
| 2d3260 | 6a 65 63 74 20 2a 69 73 74 61 74 65 2a 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 | ject.*istate*))))..(defslimefun. |
| 2d3280 | 70 70 72 69 6e 74 2d 69 6e 73 70 65 63 74 6f 72 2d 70 61 72 74 20 28 69 6e 64 65 78 29 0a 20 20 | pprint-inspector-part.(index)... |
| 2d32a0 | 22 50 72 65 74 74 79 2d 70 72 69 6e 74 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 69 6e 73 70 | "Pretty-print.the.currently.insp |
| 2d32c0 | 65 63 74 65 64 20 6f 62 6a 65 63 74 2e 22 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 | ected.object."...(with-buffer-sy |
| 2d32e0 | 6e 74 61 78 20 28 29 0a 20 20 20 20 28 73 77 61 6e 6b 2d 70 70 72 69 6e 74 20 28 6c 69 73 74 20 | ntax.().....(swank-pprint.(list. |
| 2d3300 | 28 69 6e 73 70 65 63 74 6f 72 2d 6e 74 68 2d 70 61 72 74 20 69 6e 64 65 78 29 29 29 29 29 0a 0a | (inspector-nth-part.index))))).. |
| 2d3320 | 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 69 6e 2d 66 72 61 6d 65 20 28 73 | (defslimefun.inspect-in-frame.(s |
| 2d3340 | 74 72 69 6e 67 20 69 6e 64 65 78 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 | tring.index)...(with-buffer-synt |
| 2d3360 | 61 78 20 28 29 0a 20 20 20 20 28 77 69 74 68 2d 72 65 74 72 79 2d 72 65 73 74 61 72 74 20 28 3a | ax.().....(with-retry-restart.(: |
| 2d3380 | 6d 73 67 20 22 52 65 74 72 79 20 53 4c 49 4d 45 20 69 6e 73 70 65 63 74 69 6f 6e 20 72 65 71 75 | msg."Retry.SLIME.inspection.requ |
| 2d33a0 | 65 73 74 2e 22 29 0a 20 20 20 20 20 20 28 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 | est.").......(reset-inspector).. |
| 2d33c0 | 20 20 20 20 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 65 76 61 6c 2d 69 6e 2d 66 72 | .....(inspect-object.(eval-in-fr |
| 2d33e0 | 61 6d 65 20 28 66 72 6f 6d 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 20 69 6e 64 65 78 29 29 | ame.(from-string.string).index)) |
| 2d3400 | 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 63 75 72 72 65 6e | )))..(defslimefun.inspect-curren |
| 2d3420 | 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 | t-condition.()...(with-buffer-sy |
| 2d3440 | 6e 74 61 78 20 28 29 0a 20 20 20 20 28 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 | ntax.().....(reset-inspector)... |
| 2d3460 | 20 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 2a 73 77 61 6e 6b 2d 64 65 62 75 67 67 65 | ..(inspect-object.*swank-debugge |
| 2d3480 | 72 2d 63 6f 6e 64 69 74 69 6f 6e 2a 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e | r-condition*)))..(defslimefun.in |
| 2d34a0 | 73 70 65 63 74 2d 66 72 61 6d 65 2d 76 61 72 20 28 66 72 61 6d 65 20 76 61 72 29 0a 20 20 28 77 | spect-frame-var.(frame.var)...(w |
| 2d34c0 | 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 20 28 29 0a 20 20 20 20 28 72 65 73 65 74 2d | ith-buffer-syntax.().....(reset- |
| 2d34e0 | 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 20 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 | inspector).....(inspect-object.( |
| 2d3500 | 66 72 61 6d 65 2d 76 61 72 2d 76 61 6c 75 65 20 66 72 61 6d 65 20 76 61 72 29 29 29 29 0a 0a 28 | frame-var-value.frame.var))))..( |
| 2d3520 | 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 66 72 61 6d 65 2d 66 75 6e 63 74 69 | defslimefun.inspect-frame-functi |
| 2d3540 | 6f 6e 20 28 66 72 61 6d 65 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e 74 61 78 | on.(frame)...(with-buffer-syntax |
| 2d3560 | 20 28 29 0a 20 20 20 20 28 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 20 20 28 69 | .().....(reset-inspector).....(i |
| 2d3580 | 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 66 72 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 20 66 72 | nspect-object.(frame-function.fr |
| 2d35a0 | 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 6e 74 | ame))))..(defslimefun.inspect-nt |
| 2d35c0 | 68 2d 72 65 73 74 61 72 74 20 28 6e 29 0a 20 20 28 77 69 74 68 2d 62 75 66 66 65 72 2d 73 79 6e | h-restart.(n)...(with-buffer-syn |
| 2d35e0 | 74 61 78 20 28 29 0a 20 20 20 20 28 72 65 73 65 74 2d 69 6e 73 70 65 63 74 6f 72 29 0a 20 20 20 | tax.().....(reset-inspector).... |
| 2d3600 | 20 28 69 6e 73 70 65 63 74 2d 6f 62 6a 65 63 74 20 28 6e 74 68 2d 72 65 73 74 61 72 74 20 6e 29 | .(inspect-object.(nth-restart.n) |
| 2d3620 | 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 4c 69 73 74 73 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 | )))..;;;;;.Lists..(defmethod.ema |
| 2d3640 | 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f 20 63 6f 6e 73 29 29 0a 20 20 28 69 66 20 28 6c 69 73 | cs-inspect.((o.cons))...(if.(lis |
| 2d3660 | 74 70 20 28 63 64 72 20 6f 29 29 0a 20 20 20 20 20 20 28 69 6e 73 70 65 63 74 2d 6c 69 73 74 20 | tp.(cdr.o)).......(inspect-list. |
| 2d3680 | 6f 29 0a 20 20 20 20 20 20 28 69 6e 73 70 65 63 74 2d 63 6f 6e 73 20 6f 29 29 29 0a 0a 28 64 65 | o).......(inspect-cons.o)))..(de |
| 2d36a0 | 66 75 6e 20 69 6e 73 70 65 63 74 2d 63 6f 6e 73 20 28 63 6f 6e 73 29 0a 20 20 28 6c 61 62 65 6c | fun.inspect-cons.(cons)...(label |
| 2d36c0 | 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 20 0a 20 20 20 28 27 63 61 72 20 28 63 61 72 20 63 6f 6e 73 | -value-line*.....('car.(car.cons |
| 2d36e0 | 29 29 0a 20 20 20 28 27 63 64 72 20 28 63 64 72 20 63 6f 6e 73 29 29 29 29 0a 0a 28 64 65 66 75 | ))....('cdr.(cdr.cons))))..(defu |
| 2d3700 | 6e 20 69 6e 73 70 65 63 74 2d 6c 69 73 74 20 28 6c 69 73 74 29 0a 20 20 28 6d 75 6c 74 69 70 6c | n.inspect-list.(list)...(multipl |
| 2d3720 | 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6c 65 6e 67 74 68 20 74 61 69 6c 29 20 28 73 61 66 65 | e-value-bind.(length.tail).(safe |
| 2d3740 | 2d 6c 65 6e 67 74 68 20 6c 69 73 74 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 66 72 6f 62 20 28 | -length.list).....(flet.((frob.( |
| 2d3760 | 74 69 74 6c 65 20 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 | title.list)..............(list*. |
| 2d3780 | 74 69 74 6c 65 20 27 28 3a 6e 65 77 6c 69 6e 65 29 20 28 69 6e 73 70 65 63 74 2d 6c 69 73 74 2d | title.'(:newline).(inspect-list- |
| 2d37a0 | 61 75 78 20 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 6c | aux.list)))).......(cond.((not.l |
| 2d37c0 | 65 6e 67 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 72 6f 62 20 22 41 20 63 69 72 | ength)..............(frob."A.cir |
| 2d37e0 | 63 75 6c 61 72 20 6c 69 73 74 3a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cular.list:".................... |
| 2d3800 | 28 63 6f 6e 73 20 28 63 61 72 20 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (cons.(car.list)................ |
| 2d3820 | 20 20 20 20 20 20 20 20 20 20 28 6c 64 69 66 66 20 28 63 64 72 20 6c 69 73 74 29 20 6c 69 73 74 | ..........(ldiff.(cdr.list).list |
| 2d3840 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 74 61 69 6c 29 0a 20 20 20 | )))).............((not.tail).... |
| 2d3860 | 20 20 20 20 20 20 20 20 20 20 28 66 72 6f 62 20 22 41 20 70 72 6f 70 65 72 20 6c 69 73 74 3a 22 | ..........(frob."A.proper.list:" |
| 2d3880 | 20 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 | .list)).............(t.......... |
| 2d38a0 | 20 20 20 20 28 66 72 6f 62 20 22 41 6e 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 3a 22 20 6c 69 | ....(frob."An.improper.list:".li |
| 2d38c0 | 73 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 70 65 63 74 2d 6c 69 73 74 2d 61 75 | st))))))..(defun.inspect-list-au |
| 2d38e0 | 78 20 28 6c 69 73 74 29 0a 20 20 28 6c 6f 6f 70 20 66 6f 72 20 69 20 66 72 6f 6d 20 30 20 20 66 | x.(list)...(loop.for.i.from.0..f |
| 2d3900 | 6f 72 20 72 65 73 74 20 6f 6e 20 6c 69 73 74 20 20 77 68 69 6c 65 20 28 63 6f 6e 73 70 20 72 65 | or.rest.on.list..while.(consp.re |
| 2d3920 | 73 74 29 20 20 61 70 70 65 6e 64 20 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 20 | st)..append..........(if.(listp. |
| 2d3940 | 28 63 64 72 20 72 65 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 | (cdr.rest)).............(label-v |
| 2d3960 | 61 6c 75 65 2d 6c 69 6e 65 20 69 20 28 63 61 72 20 72 65 73 74 29 29 0a 20 20 20 20 20 20 20 20 | alue-line.i.(car.rest))......... |
| 2d3980 | 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 20 28 69 20 28 63 61 72 20 72 | ....(label-value-line*.(i.(car.r |
| 2d39a0 | 65 73 74 29 29 20 28 3a 74 61 69 6c 20 28 63 64 72 20 72 65 73 74 29 29 29 29 29 29 0a 0a 28 64 | est)).(:tail.(cdr.rest))))))..(d |
| 2d39c0 | 65 66 75 6e 20 73 61 66 65 2d 6c 65 6e 67 74 68 20 28 6c 69 73 74 29 0a 20 20 22 53 69 6d 69 6c | efun.safe-length.(list)..."Simil |
| 2d39e0 | 61 72 20 74 6f 20 60 6c 69 73 74 2d 6c 65 6e 67 74 68 27 2c 20 62 75 74 20 61 76 6f 69 64 20 65 | ar.to.`list-length',.but.avoid.e |
| 2d3a00 | 72 72 6f 72 73 20 6f 6e 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 73 2e 0a 52 65 74 75 72 6e 20 | rrors.on.improper.lists..Return. |
| 2d3a20 | 74 77 6f 20 76 61 6c 75 65 73 3a 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 6c 69 | two.values:.the.length.of.the.li |
| 2d3a40 | 73 74 20 61 6e 64 20 74 68 65 20 6c 61 73 74 20 63 64 72 2e 0a 52 65 74 75 72 6e 20 4e 49 4c 20 | st.and.the.last.cdr..Return.NIL. |
| 2d3a60 | 69 66 20 4c 49 53 54 20 69 73 20 63 69 72 63 75 6c 61 72 2e 22 0a 20 20 28 64 6f 20 28 28 6e 20 | if.LIST.is.circular."...(do.((n. |
| 2d3a80 | 30 20 28 2b 20 6e 20 32 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 43 | 0.(+.n.2))....................;C |
| 2d3aa0 | 6f 75 6e 74 65 72 2e 0a 20 20 20 20 20 20 20 28 66 61 73 74 20 6c 69 73 74 20 28 63 64 64 72 20 | ounter.........(fast.list.(cddr. |
| 2d3ac0 | 66 61 73 74 29 29 20 20 20 20 20 20 20 20 20 20 3b 46 61 73 74 20 70 6f 69 6e 74 65 72 3a 20 6c | fast))..........;Fast.pointer:.l |
| 2d3ae0 | 65 61 70 73 20 62 79 20 32 2e 0a 20 20 20 20 20 20 20 28 73 6c 6f 77 20 6c 69 73 74 20 28 63 64 | eaps.by.2.........(slow.list.(cd |
| 2d3b00 | 72 20 73 6c 6f 77 29 29 29 20 20 20 20 20 20 20 20 20 20 3b 53 6c 6f 77 20 70 6f 69 6e 74 65 72 | r.slow)))..........;Slow.pointer |
| 2d3b20 | 3a 20 6c 65 61 70 73 20 62 79 20 31 2e 0a 20 20 20 20 20 20 28 6e 69 6c 29 0a 20 20 20 20 28 63 | :.leaps.by.1........(nil).....(c |
| 2d3b40 | 6f 6e 64 20 28 28 6e 75 6c 6c 20 66 61 73 74 29 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 | ond.((null.fast).(return.(values |
| 2d3b60 | 20 6e 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 63 6f 6e 73 70 | .n.nil)))...........((not.(consp |
| 2d3b80 | 20 66 61 73 74 29 29 20 28 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 6e 20 66 61 73 74 29 29 | .fast)).(return.(values.n.fast)) |
| 2d3ba0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6e 75 6c 6c 20 28 63 64 72 20 66 61 73 74 29 29 20 28 | )...........((null.(cdr.fast)).( |
| 2d3bc0 | 72 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 28 31 2b 20 6e 29 20 28 63 64 72 20 66 61 73 74 29 | return.(values.(1+.n).(cdr.fast) |
| 2d3be0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 65 71 20 66 61 73 74 20 73 6c 6f | )))...........((and.(eq.fast.slo |
| 2d3c00 | 77 29 20 28 3e 20 6e 20 30 29 29 20 28 72 65 74 75 72 6e 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 | w).(>.n.0)).(return.nil))....... |
| 2d3c20 | 20 20 20 20 28 28 6e 6f 74 20 28 63 6f 6e 73 70 20 28 63 64 72 20 66 61 73 74 29 29 29 20 28 72 | ....((not.(consp.(cdr.fast))).(r |
| 2d3c40 | 65 74 75 72 6e 20 28 76 61 6c 75 65 73 20 28 31 2b 20 6e 29 20 28 63 64 72 20 66 61 73 74 29 29 | eturn.(values.(1+.n).(cdr.fast)) |
| 2d3c60 | 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 48 61 73 68 74 61 62 6c 65 73 0a 0a 28 64 65 66 75 6e 20 | )))))..;;;;;.Hashtables..(defun. |
| 2d3c80 | 68 61 73 68 2d 74 61 62 6c 65 2d 74 6f 2d 61 6c 69 73 74 20 28 68 74 29 0a 20 20 28 6c 65 74 20 | hash-table-to-alist.(ht)...(let. |
| 2d3ca0 | 28 28 72 65 73 75 6c 74 20 27 28 29 29 29 0a 20 20 20 20 28 6d 61 70 68 61 73 68 20 28 6c 61 6d | ((result.'())).....(maphash.(lam |
| 2d3cc0 | 62 64 61 20 28 6b 65 79 20 76 61 6c 75 65 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bda.(key.value)................. |
| 2d3ce0 | 28 73 65 74 71 20 72 65 73 75 6c 74 20 28 61 63 6f 6e 73 20 6b 65 79 20 76 61 6c 75 65 20 72 65 | (setq.result.(acons.key.value.re |
| 2d3d00 | 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 68 74 29 0a 20 20 20 20 72 65 73 | sult)))..............ht).....res |
| 2d3d20 | 75 6c 74 29 29 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 | ult))..(defmethod.emacs-inspect. |
| 2d3d40 | 28 28 68 74 20 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 20 20 28 61 70 70 65 6e 64 0a 20 20 20 28 | ((ht.hash-table))...(append....( |
| 2d3d60 | 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 28 22 43 6f 75 6e 74 22 20 28 | label-value-line*.....("Count".( |
| 2d3d80 | 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 20 68 74 29 29 0a 20 20 20 20 28 22 53 69 7a 65 | hash-table-count.ht)).....("Size |
| 2d3da0 | 22 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 73 69 7a 65 20 68 74 29 29 0a 20 20 20 20 28 22 54 65 | ".(hash-table-size.ht)).....("Te |
| 2d3dc0 | 73 74 22 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 74 65 73 74 20 68 74 29 29 0a 20 20 20 20 28 22 | st".(hash-table-test.ht)).....(" |
| 2d3de0 | 52 65 68 61 73 68 20 73 69 7a 65 22 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 72 65 68 61 73 68 2d | Rehash.size".(hash-table-rehash- |
| 2d3e00 | 73 69 7a 65 20 68 74 29 29 0a 20 20 20 20 28 22 52 65 68 61 73 68 20 74 68 72 65 73 68 6f 6c 64 | size.ht)).....("Rehash.threshold |
| 2d3e20 | 22 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 72 65 68 61 73 68 2d 74 68 72 65 73 68 6f 6c 64 20 68 | ".(hash-table-rehash-threshold.h |
| 2d3e40 | 74 29 29 29 0a 20 20 20 28 6c 65 74 20 28 28 77 65 61 6b 6e 65 73 73 20 28 68 61 73 68 2d 74 61 | t)))....(let.((weakness.(hash-ta |
| 2d3e60 | 62 6c 65 2d 77 65 61 6b 6e 65 73 73 20 68 74 29 29 29 0a 20 20 20 20 20 28 77 68 65 6e 20 77 65 | ble-weakness.ht)))......(when.we |
| 2d3e80 | 61 6b 6e 65 73 73 0a 20 20 20 20 20 20 20 28 6c 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 20 | akness........(label-value-line. |
| 2d3ea0 | 22 57 65 61 6b 6e 65 73 73 3a 22 20 77 65 61 6b 6e 65 73 73 29 29 29 0a 20 20 20 28 75 6e 6c 65 | "Weakness:".weakness)))....(unle |
| 2d3ec0 | 73 73 20 28 7a 65 72 6f 70 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 20 68 74 29 29 | ss.(zerop.(hash-table-count.ht)) |
| 2d3ee0 | 0a 20 20 20 20 20 60 28 28 3a 61 63 74 69 6f 6e 20 22 5b 63 6c 65 61 72 20 68 61 73 68 74 61 62 | ......`((:action."[clear.hashtab |
| 2d3f00 | 6c 65 5d 22 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6c 61 6d 62 64 61 20 28 | le]"..................,(lambda.( |
| 2d3f20 | 29 20 28 63 6c 72 68 61 73 68 20 68 74 29 29 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 | ).(clrhash.ht))).(:newline)..... |
| 2d3f40 | 20 20 20 22 43 6f 6e 74 65 6e 74 73 3a 20 22 20 28 3a 6e 65 77 6c 69 6e 65 29 29 29 0a 20 20 20 | ..."Contents:.".(:newline))).... |
| 2d3f60 | 28 6c 65 74 20 28 28 63 6f 6e 74 65 6e 74 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 74 6f 2d 61 6c | (let.((content.(hash-table-to-al |
| 2d3f80 | 69 73 74 20 68 74 29 29 29 0a 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 76 65 72 79 20 28 6c 61 | ist.ht)))......(cond.((every.(la |
| 2d3fa0 | 6d 62 64 61 20 28 78 29 20 28 74 79 70 65 70 20 28 66 69 72 73 74 20 78 29 20 27 28 6f 72 20 73 | mbda.(x).(typep.(first.x).'(or.s |
| 2d3fc0 | 74 72 69 6e 67 20 73 79 6d 62 6f 6c 29 29 29 20 63 6f 6e 74 65 6e 74 29 0a 20 20 20 20 20 20 20 | tring.symbol))).content)........ |
| 2d3fe0 | 20 20 20 20 20 28 73 65 74 66 20 63 6f 6e 74 65 6e 74 20 28 73 6f 72 74 20 63 6f 6e 74 65 6e 74 | .....(setf.content.(sort.content |
| 2d4000 | 20 27 73 74 72 69 6e 67 3c 20 3a 6b 65 79 20 23 27 66 69 72 73 74 29 29 29 0a 20 20 20 20 20 20 | .'string<.:key.#'first)))....... |
| 2d4020 | 20 20 20 20 20 28 28 65 76 65 72 79 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 74 79 70 65 70 20 | .....((every.(lambda.(x).(typep. |
| 2d4040 | 28 66 69 72 73 74 20 78 29 20 27 72 65 61 6c 29 29 20 63 6f 6e 74 65 6e 74 29 0a 20 20 20 20 20 | (first.x).'real)).content)...... |
| 2d4060 | 20 20 20 20 20 20 20 28 73 65 74 66 20 63 6f 6e 74 65 6e 74 20 28 73 6f 72 74 20 63 6f 6e 74 65 | .......(setf.content.(sort.conte |
| 2d4080 | 6e 74 20 27 3c 20 3a 6b 65 79 20 23 27 66 69 72 73 74 29 29 29 29 0a 20 20 20 20 20 28 6c 6f 6f | nt.'<.:key.#'first))))......(loo |
| 2d40a0 | 70 20 66 6f 72 20 28 6b 65 79 20 2e 20 76 61 6c 75 65 29 20 69 6e 20 63 6f 6e 74 65 6e 74 20 61 | p.for.(key...value).in.content.a |
| 2d40c0 | 70 70 65 6e 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 28 3a 76 61 6c 75 65 20 2c 6b | ppending............`((:value.,k |
| 2d40e0 | 65 79 29 20 22 20 3d 20 22 20 28 3a 76 61 6c 75 65 20 2c 76 61 6c 75 65 29 0a 20 20 20 20 20 20 | ey).".=.".(:value.,value)....... |
| 2d4100 | 20 20 20 20 20 20 20 22 20 22 20 28 3a 61 63 74 69 6f 6e 20 22 5b 72 65 6d 6f 76 65 20 65 6e 74 | .......".".(:action."[remove.ent |
| 2d4120 | 72 79 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c | ry]"..........................., |
| 2d4140 | 28 6c 65 74 20 28 28 6b 65 79 20 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (let.((key.key))................ |
| 2d4160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 72 65 6d | .................(lambda.().(rem |
| 2d4180 | 68 61 73 68 20 6b 65 79 20 68 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 6e | hash.key.ht))))..............(:n |
| 2d41a0 | 65 77 6c 69 6e 65 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 41 72 72 61 79 73 0a 0a 28 64 65 66 | ewline))))))..;;;;;.Arrays..(def |
| 2d41c0 | 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 61 72 72 61 79 20 61 72 72 | method.emacs-inspect.((array.arr |
| 2d41e0 | 61 79 29 29 0a 20 20 28 6c 63 6f 6e 73 2a 0a 20 20 20 28 69 6c 69 6e 65 20 22 44 69 6d 65 6e 73 | ay))...(lcons*....(iline."Dimens |
| 2d4200 | 69 6f 6e 73 22 20 28 61 72 72 61 79 2d 64 69 6d 65 6e 73 69 6f 6e 73 20 61 72 72 61 79 29 29 0a | ions".(array-dimensions.array)). |
| 2d4220 | 20 20 20 28 69 6c 69 6e 65 20 22 45 6c 65 6d 65 6e 74 20 74 79 70 65 22 20 28 61 72 72 61 79 2d | ...(iline."Element.type".(array- |
| 2d4240 | 65 6c 65 6d 65 6e 74 2d 74 79 70 65 20 61 72 72 61 79 29 29 0a 20 20 20 28 69 6c 69 6e 65 20 22 | element-type.array))....(iline." |
| 2d4260 | 54 6f 74 61 6c 20 73 69 7a 65 22 20 28 61 72 72 61 79 2d 74 6f 74 61 6c 2d 73 69 7a 65 20 61 72 | Total.size".(array-total-size.ar |
| 2d4280 | 72 61 79 29 29 0a 20 20 20 28 69 6c 69 6e 65 20 22 41 64 6a 75 73 74 61 62 6c 65 22 20 28 61 64 | ray))....(iline."Adjustable".(ad |
| 2d42a0 | 6a 75 73 74 61 62 6c 65 2d 61 72 72 61 79 2d 70 20 61 72 72 61 79 29 29 0a 20 20 20 28 69 6c 69 | justable-array-p.array))....(ili |
| 2d42c0 | 6e 65 20 22 46 69 6c 6c 20 70 6f 69 6e 74 65 72 22 20 28 69 66 20 28 61 72 72 61 79 2d 68 61 73 | ne."Fill.pointer".(if.(array-has |
| 2d42e0 | 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 2d 70 20 61 72 72 61 79 29 0a 20 20 20 20 20 20 20 20 20 | -fill-pointer-p.array).......... |
| 2d4300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 6c 2d 70 6f 69 6e 74 65 | ....................(fill-pointe |
| 2d4320 | 72 20 61 72 72 61 79 29 29 29 0a 20 20 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 | r.array)))....(multiple-value-bi |
| 2d4340 | 6e 64 20 28 64 69 73 70 6c 61 63 65 64 20 6f 66 66 73 65 74 29 20 28 61 72 72 61 79 2d 64 69 73 | nd.(displaced.offset).(array-dis |
| 2d4360 | 70 6c 61 63 65 6d 65 6e 74 20 61 72 72 61 79 29 0a 20 20 20 20 20 28 69 66 20 64 69 73 70 6c 61 | placement.array)......(if.displa |
| 2d4380 | 63 65 64 0a 20 20 20 20 20 20 20 20 20 28 6c 63 6f 6e 73 2a 20 28 69 6c 69 6e 65 20 22 44 69 73 | ced..........(lcons*.(iline."Dis |
| 2d43a0 | 70 6c 61 63 65 64 20 74 6f 22 20 64 69 73 70 6c 61 63 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 | placed.to".displaced)........... |
| 2d43c0 | 20 20 20 20 20 20 20 28 69 6c 69 6e 65 20 22 44 69 73 70 6c 61 63 65 64 20 69 6e 64 65 78 20 6f | .......(iline."Displaced.index.o |
| 2d43e0 | 66 66 73 65 74 22 20 6f 66 66 73 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ffset".offset).................. |
| 2d4400 | 28 69 66 20 28 61 72 72 61 79 2d 68 61 73 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 2d 70 20 61 72 | (if.(array-has-fill-pointer-p.ar |
| 2d4420 | 72 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6d 61 63 73 | ray)......................(emacs |
| 2d4440 | 2d 69 6e 73 70 65 63 74 2d 76 65 63 74 6f 72 2d 77 69 74 68 2d 66 69 6c 6c 2d 70 6f 69 6e 74 65 | -inspect-vector-with-fill-pointe |
| 2d4460 | 72 2d 61 75 78 20 61 72 72 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-aux.array).................... |
| 2d4480 | 20 20 28 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 2d 61 72 72 61 79 2d 61 75 78 20 61 72 72 61 79 | ..(emacs-inspect-array-aux.array |
| 2d44a0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 72 72 61 79 2d 68 61 73 2d 66 69 6c 6c | )))..........(if.(array-has-fill |
| 2d44c0 | 2d 70 6f 69 6e 74 65 72 2d 70 20 61 72 72 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -pointer-p.array)..............( |
| 2d44e0 | 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 2d 76 65 63 74 6f 72 2d 77 69 74 68 2d 66 69 6c 6c 2d 70 | emacs-inspect-vector-with-fill-p |
| 2d4500 | 6f 69 6e 74 65 72 2d 61 75 78 20 61 72 72 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ointer-aux.array)..............( |
| 2d4520 | 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 2d 61 72 72 61 79 2d 61 75 78 20 61 72 72 61 79 29 29 29 | emacs-inspect-array-aux.array))) |
| 2d4540 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 2d 61 72 72 61 79 2d | )))..(defun.emacs-inspect-array- |
| 2d4560 | 61 75 78 20 28 61 72 72 61 79 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 3d 20 30 20 28 61 72 72 61 | aux.(array)...(unless.(=.0.(arra |
| 2d4580 | 79 2d 74 6f 74 61 6c 2d 73 69 7a 65 20 61 72 72 61 79 29 29 0a 20 20 20 20 28 6c 63 6f 6e 73 2a | y-total-size.array)).....(lcons* |
| 2d45a0 | 0a 20 20 20 20 20 22 43 6f 6e 74 65 6e 74 73 3a 22 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 | ......"Contents:".'(:newline)... |
| 2d45c0 | 20 20 20 28 6c 61 62 65 6c 73 20 28 28 6b 20 28 69 20 6d 61 78 29 0a 20 20 20 20 20 20 20 20 20 | ...(labels.((k.(i.max).......... |
| 2d45e0 | 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 69 20 6d 61 78 29 20 27 28 29 29 0a 20 20 20 | .......(cond.((=.i.max).'()).... |
| 2d4600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6c 63 6f 6e 73 20 28 69 6c | ...................(t.(lcons.(il |
| 2d4620 | 69 6e 65 20 69 20 28 72 6f 77 2d 6d 61 6a 6f 72 2d 61 72 65 66 20 61 72 72 61 79 20 69 29 29 0a | ine.i.(row-major-aref.array.i)). |
| 2d4640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2d4660 | 28 6b 20 28 31 2b 20 69 29 20 6d 61 78 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 28 6b 20 30 20 | (k.(1+.i).max))))))........(k.0. |
| 2d4680 | 28 61 72 72 61 79 2d 74 6f 74 61 6c 2d 73 69 7a 65 20 61 72 72 61 79 29 29 29 29 29 29 0a 0a 28 | (array-total-size.array))))))..( |
| 2d46a0 | 64 65 66 75 6e 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 2d 76 65 63 74 6f 72 2d 77 69 74 68 2d | defun.emacs-inspect-vector-with- |
| 2d46c0 | 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 2d 61 75 78 20 28 61 72 72 61 79 29 0a 20 20 28 6c 65 74 20 | fill-pointer-aux.(array)...(let. |
| 2d46e0 | 28 28 61 63 74 69 76 65 2d 65 6c 65 6d 65 6e 74 73 3f 20 28 3c 20 30 20 28 66 69 6c 6c 2d 70 6f | ((active-elements?.(<.0.(fill-po |
| 2d4700 | 69 6e 74 65 72 20 61 72 72 61 79 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 61 63 74 69 76 65 | inter.array))).........(inactive |
| 2d4720 | 2d 65 6c 65 6d 65 6e 74 73 3f 20 28 3c 20 28 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 61 72 72 61 | -elements?.(<.(fill-pointer.arra |
| 2d4740 | 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | y).............................. |
| 2d4760 | 20 20 28 61 72 72 61 79 2d 74 6f 74 61 6c 2d 73 69 7a 65 20 61 72 72 61 79 29 29 29 29 0a 20 20 | ..(array-total-size.array))))... |
| 2d4780 | 20 20 28 6c 61 62 65 6c 73 20 28 28 6b 20 28 69 20 6d 61 78 20 63 6f 6e 74 29 0a 20 20 20 20 20 | ..(labels.((k.(i.max.cont)...... |
| 2d47a0 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 69 20 6d 61 78 29 20 28 66 75 6e 63 | ..........(cond.((=.i.max).(func |
| 2d47c0 | 61 6c 6c 20 63 6f 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | all.cont))...................... |
| 2d47e0 | 28 74 20 28 6c 63 6f 6e 73 20 28 69 6c 69 6e 65 20 69 20 28 72 6f 77 2d 6d 61 6a 6f 72 2d 61 72 | (t.(lcons.(iline.i.(row-major-ar |
| 2d4800 | 65 66 20 61 72 72 61 79 20 69 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ef.array.i)).................... |
| 2d4820 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 20 28 31 2b 20 69 29 20 6d 61 78 20 63 6f 6e 74 29 29 | ............(k.(1+.i).max.cont)) |
| 2d4840 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 74 2d 61 63 74 69 76 65 | )))..............(collect-active |
| 2d4860 | 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 61 63 74 69 76 65 2d 65 6c | .()................(if.active-el |
| 2d4880 | 65 6d 65 6e 74 73 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 63 6f 6e | ements?....................(lcon |
| 2d48a0 | 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 41 63 74 69 76 65 20 65 | s*....................."Active.e |
| 2d48c0 | 6c 65 6d 65 6e 74 73 3a 22 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 | lements:".'(:newline)........... |
| 2d48e0 | 20 20 20 20 20 20 20 20 20 20 28 6b 20 30 20 28 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 20 61 72 72 | ..........(k.0.(fill-pointer.arr |
| 2d4900 | 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 | ay)........................(lamb |
| 2d4920 | 64 61 20 28 29 20 28 63 6f 6c 6c 65 63 74 2d 69 6e 61 63 74 69 76 65 29 29 29 29 0a 20 20 20 20 | da.().(collect-inactive))))..... |
| 2d4940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 74 2d 69 6e 61 63 74 69 76 65 | ...............(collect-inactive |
| 2d4960 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 74 2d 69 6e 61 63 74 69 | )))..............(collect-inacti |
| 2d4980 | 76 65 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 69 6e 61 63 74 69 76 | ve.()................(if.inactiv |
| 2d49a0 | 65 2d 65 6c 65 6d 65 6e 74 73 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | e-elements?....................( |
| 2d49c0 | 6c 63 6f 6e 73 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 49 6e 61 63 | lcons*....................."Inac |
| 2d49e0 | 74 69 76 65 20 65 6c 65 6d 65 6e 74 73 3a 22 20 27 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 | tive.elements:".'(:newline)..... |
| 2d4a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 20 28 66 69 6c 6c 2d 70 6f 69 6e 74 65 72 | ................(k.(fill-pointer |
| 2d4a20 | 20 61 72 72 61 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .array)........................( |
| 2d4a40 | 61 72 72 61 79 2d 74 6f 74 61 6c 2d 73 69 7a 65 20 61 72 72 61 79 29 0a 20 20 20 20 20 20 20 20 | array-total-size.array)......... |
| 2d4a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 61 6e 74 6c 79 20 27 28 29 29 29 | ...............(constantly.'())) |
| 2d4a80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 29 29 29 29 0a 20 20 20 20 | )....................'())))..... |
| 2d4aa0 | 20 20 28 63 6f 6c 6c 65 63 74 2d 61 63 74 69 76 65 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 20 43 68 61 | ..(collect-active))))..;;;;;.Cha |
| 2d4ac0 | 72 73 0a 0a 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 63 | rs..(defmethod.emacs-inspect.((c |
| 2d4ae0 | 68 61 72 20 63 68 61 72 61 63 74 65 72 29 29 0a 20 20 28 61 70 70 65 6e 64 20 0a 20 20 20 28 6c | har.character))...(append.....(l |
| 2d4b00 | 61 62 65 6c 2d 76 61 6c 75 65 2d 6c 69 6e 65 2a 0a 20 20 20 20 28 22 43 68 61 72 20 63 6f 64 65 | abel-value-line*.....("Char.code |
| 2d4b20 | 22 20 28 63 68 61 72 2d 63 6f 64 65 20 63 68 61 72 29 29 0a 20 20 20 20 28 22 4c 6f 77 65 72 20 | ".(char-code.char)).....("Lower. |
| 2d4b40 | 63 61 73 65 64 22 20 28 63 68 61 72 2d 64 6f 77 6e 63 61 73 65 20 63 68 61 72 29 29 0a 20 20 20 | cased".(char-downcase.char)).... |
| 2d4b60 | 20 28 22 55 70 70 65 72 20 63 61 73 65 64 22 20 28 63 68 61 72 2d 75 70 63 61 73 65 20 63 68 61 | .("Upper.cased".(char-upcase.cha |
| 2d4b80 | 72 29 29 29 0a 20 20 20 28 69 66 20 28 67 65 74 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 | r)))....(if.(get-macro-character |
| 2d4ba0 | 20 63 68 61 72 29 0a 20 20 20 20 20 20 20 60 28 22 49 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 | .char)........`("In.the.current. |
| 2d4bc0 | 72 65 61 64 74 61 62 6c 65 20 28 22 20 0a 20 20 20 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c | readtable.("...........(:value., |
| 2d4be0 | 2a 72 65 61 64 74 61 62 6c 65 2a 29 20 22 29 20 69 74 20 69 73 20 61 20 6d 61 63 72 6f 20 63 68 | *readtable*).").it.is.a.macro.ch |
| 2d4c00 | 61 72 61 63 74 65 72 3a 20 22 0a 20 20 20 20 20 20 20 20 20 28 3a 76 61 6c 75 65 20 2c 28 67 65 | aracter:."..........(:value.,(ge |
| 2d4c20 | 74 2d 6d 61 63 72 6f 2d 63 68 61 72 61 63 74 65 72 20 63 68 61 72 29 29 29 29 29 29 0a 0a 28 75 | t-macro-character.char))))))..(u |
| 2d4c40 | 6e 6c 65 73 73 20 28 66 69 6e 64 2d 6d 65 74 68 6f 64 20 23 27 65 6d 61 63 73 2d 69 6e 73 70 65 | nless.(find-method.#'emacs-inspe |
| 2d4c60 | 63 74 20 6e 69 6c 20 28 6c 69 73 74 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 74 29 29 20 6e 69 6c | ct.nil.(list.(find-class.t)).nil |
| 2d4c80 | 29 0a 20 20 28 64 65 66 6d 65 74 68 6f 64 20 65 6d 61 63 73 2d 69 6e 73 70 65 63 74 20 28 28 6f | )...(defmethod.emacs-inspect.((o |
| 2d4ca0 | 62 6a 65 63 74 20 74 29 29 0a 20 20 20 20 22 47 65 6e 65 72 69 63 20 6d 65 74 68 6f 64 20 66 6f | bject.t))....."Generic.method.fo |
| 2d4cc0 | 72 20 69 6e 73 70 65 63 74 69 6e 67 20 61 6e 79 20 6b 69 6e 64 20 6f 66 20 6f 62 6a 65 63 74 2e | r.inspecting.any.kind.of.object. |
| 2d4ce0 | 0a 0a 53 69 6e 63 65 20 77 65 20 64 6f 6e 27 74 20 6b 6e 6f 77 20 68 6f 77 20 74 6f 20 64 65 61 | ..Since.we.don't.know.how.to.dea |
| 2d4d00 | 6c 20 77 69 74 68 20 4f 42 4a 45 43 54 20 77 65 20 73 69 6d 70 6c 79 20 64 75 6d 70 20 74 68 65 | l.with.OBJECT.we.simply.dump.the |
| 2d4d20 | 0a 6f 75 74 70 75 74 20 6f 66 20 43 4c 3a 44 45 53 43 52 49 42 45 2e 22 0a 20 20 20 20 60 28 22 | .output.of.CL:DESCRIBE.".....`(" |
| 2d4d40 | 54 79 70 65 3a 20 22 20 28 3a 76 61 6c 75 65 20 2c 28 74 79 70 65 2d 6f 66 20 6f 62 6a 65 63 74 | Type:.".(:value.,(type-of.object |
| 2d4d60 | 29 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 22 44 6f 6e 27 74 20 6b 6e 6f 77 20 | )).(:newline)......."Don't.know. |
| 2d4d80 | 68 6f 77 20 74 6f 20 69 6e 73 70 65 63 74 20 74 68 65 20 6f 62 6a 65 63 74 2c 20 64 75 6d 70 69 | how.to.inspect.the.object,.dumpi |
| 2d4da0 | 6e 67 20 6f 75 74 70 75 74 20 6f 66 20 43 4c 3a 44 45 53 43 52 49 42 45 3a 22 0a 20 20 20 20 20 | ng.output.of.CL:DESCRIBE:"...... |
| 2d4dc0 | 20 28 3a 6e 65 77 6c 69 6e 65 29 20 28 3a 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 2c 28 77 | .(:newline).(:newline).......,(w |
| 2d4de0 | 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 64 65 73 63 29 20 28 64 65 73 | ith-output-to-string.(desc).(des |
| 2d4e00 | 63 72 69 62 65 20 6f 62 6a 65 63 74 20 64 65 73 63 29 29 29 29 29 0a 0c 0a 3b 3b 3b 3b 20 54 68 | cribe.object.desc)))))...;;;;.Th |
| 2d4e20 | 72 65 61 64 20 6c 69 73 74 69 6e 67 0a 0a 28 64 65 66 76 61 72 20 2a 74 68 72 65 61 64 2d 6c 69 | read.listing..(defvar.*thread-li |
| 2d4e40 | 73 74 2a 20 28 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 74 68 72 65 61 64 73 20 64 69 73 70 6c 61 | st*.()..."List.of.threads.displa |
| 2d4e60 | 79 65 64 20 69 6e 20 45 6d 61 63 73 2e 20 20 57 65 20 64 6f 6e 27 74 20 63 61 72 65 20 61 20 61 | yed.in.Emacs...We.don't.care.a.a |
| 2d4e80 | 62 6f 75 74 0a 73 79 6e 63 68 72 6f 6e 69 7a 61 74 69 6f 6e 20 69 73 73 75 65 73 20 28 79 65 74 | bout.synchronization.issues.(yet |
| 2d4ea0 | 29 2e 20 20 54 68 65 72 65 20 63 61 6e 20 6f 6e 6c 79 20 62 65 20 6f 6e 65 20 74 68 72 65 61 64 | )...There.can.only.be.one.thread |
| 2d4ec0 | 20 6c 69 73 74 69 6e 67 20 61 74 0a 61 20 74 69 6d 65 2e 22 29 0a 0a 28 64 65 66 73 6c 69 6d 65 | .listing.at.a.time.")..(defslime |
| 2d4ee0 | 66 75 6e 20 6c 69 73 74 2d 74 68 72 65 61 64 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 | fun.list-threads.()..."Return.a. |
| 2d4f00 | 6c 69 73 74 20 28 4c 41 42 45 4c 53 20 28 49 44 20 4e 41 4d 45 20 53 54 41 54 55 53 20 41 54 54 | list.(LABELS.(ID.NAME.STATUS.ATT |
| 2d4f20 | 52 53 20 2e 2e 2e 29 20 2e 2e 2e 29 2e 0a 4c 41 42 45 4c 53 20 69 73 20 61 20 6c 69 73 74 20 6f | RS....)....)..LABELS.is.a.list.o |
| 2d4f40 | 66 20 61 74 74 72 69 62 75 74 65 20 6e 61 6d 65 73 20 61 6e 64 20 74 68 65 20 72 65 6d 61 69 6e | f.attribute.names.and.the.remain |
| 2d4f60 | 69 6e 67 20 6c 69 73 74 73 20 61 72 65 20 74 68 65 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 | ing.lists.are.the.corresponding. |
| 2d4f80 | 61 74 74 72 69 62 75 74 65 20 76 61 6c 75 65 73 20 70 65 72 20 74 68 72 65 61 64 2e 20 20 0a 45 | attribute.values.per.thread....E |
| 2d4fa0 | 78 61 6d 70 6c 65 3a 20 0a 20 20 28 28 3a 69 64 20 3a 6e 61 6d 65 20 3a 73 74 61 74 75 73 20 3a | xample:....((:id.:name.:status.: |
| 2d4fc0 | 70 72 69 6f 72 69 74 79 29 0a 20 20 20 28 36 20 5c 22 73 77 61 6e 6b 2d 69 6e 64 65 6e 74 61 74 | priority)....(6.\"swank-indentat |
| 2d4fe0 | 69 6f 6e 2d 63 61 63 68 65 2d 74 68 72 65 61 64 5c 22 20 5c 22 53 65 6d 61 70 68 6f 72 65 20 74 | ion-cache-thread\".\"Semaphore.t |
| 2d5000 | 69 6d 65 64 20 77 61 69 74 5c 22 20 30 29 0a 20 20 20 28 35 20 5c 22 72 65 61 64 65 72 2d 74 68 | imed.wait\".0)....(5.\"reader-th |
| 2d5020 | 72 65 61 64 5c 22 20 5c 22 41 63 74 69 76 65 5c 22 20 30 29 0a 20 20 20 28 34 20 5c 22 63 6f 6e | read\".\"Active\".0)....(4.\"con |
| 2d5040 | 74 72 6f 6c 2d 74 68 72 65 61 64 5c 22 20 5c 22 53 65 6d 61 70 68 6f 72 65 20 74 69 6d 65 64 20 | trol-thread\".\"Semaphore.timed. |
| 2d5060 | 77 61 69 74 5c 22 20 30 29 0a 20 20 20 28 31 20 5c 22 6c 69 73 74 65 6e 65 72 5c 22 20 5c 22 41 | wait\".0)....(1.\"listener\".\"A |
| 2d5080 | 63 74 69 76 65 5c 22 20 30 29 0a 20 20 20 28 30 20 5c 22 49 6e 69 74 69 61 6c 5c 22 20 5c 22 53 | ctive\".0)....(0.\"Initial\".\"S |
| 2d50a0 | 6c 65 65 70 5c 22 20 30 29 29 22 0a 20 20 28 73 65 74 71 20 2a 74 68 72 65 61 64 2d 6c 69 73 74 | leep\".0))"...(setq.*thread-list |
| 2d50c0 | 2a 20 28 61 6c 6c 2d 74 68 72 65 61 64 73 29 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 2a 65 | *.(all-threads))...(when.(and.*e |
| 2d50e0 | 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 | macs-connection*..............(u |
| 2d5100 | 73 65 2d 74 68 72 65 61 64 73 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 | se-threads-p)..............(equa |
| 2d5120 | 6c 70 20 28 74 68 72 65 61 64 2d 6e 61 6d 65 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 | lp.(thread-name.(current-thread) |
| 2d5140 | 29 20 22 77 6f 72 6b 65 72 22 29 29 0a 20 20 20 20 28 73 65 74 66 20 2a 74 68 72 65 61 64 2d 6c | )."worker")).....(setf.*thread-l |
| 2d5160 | 69 73 74 2a 20 28 64 65 6c 65 74 65 20 28 63 75 72 72 65 6e 74 2d 74 68 72 65 61 64 29 20 2a 74 | ist*.(delete.(current-thread).*t |
| 2d5180 | 68 72 65 61 64 2d 6c 69 73 74 2a 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 6c 69 73 74 20 28 | hread-list*)))...(let*.((plist.( |
| 2d51a0 | 74 68 72 65 61 64 2d 61 74 74 72 69 62 75 74 65 73 20 28 63 61 72 20 2a 74 68 72 65 61 64 2d 6c | thread-attributes.(car.*thread-l |
| 2d51c0 | 69 73 74 2a 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 61 62 65 6c 73 20 28 6c 6f 6f 70 20 66 | ist*)))..........(labels.(loop.f |
| 2d51e0 | 6f 72 20 28 6b 65 79 29 20 6f 6e 20 70 6c 69 73 74 20 62 79 20 23 27 63 64 64 72 20 0a 20 20 20 | or.(key).on.plist.by.#'cddr..... |
| 2d5200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 6b 65 79 29 | ....................collect.key) |
| 2d5220 | 29 29 0a 20 20 20 20 60 28 28 3a 69 64 20 3a 6e 61 6d 65 20 3a 73 74 61 74 75 73 20 2c 40 6c 61 | )).....`((:id.:name.:status.,@la |
| 2d5240 | 62 65 6c 73 29 0a 20 20 20 20 20 20 2c 40 28 6c 6f 6f 70 20 66 6f 72 20 74 68 72 65 61 64 20 69 | bels).......,@(loop.for.thread.i |
| 2d5260 | 6e 20 2a 74 68 72 65 61 64 2d 6c 69 73 74 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f | n.*thread-list*...............fo |
| 2d5280 | 72 20 6e 61 6d 65 20 3d 20 28 74 68 72 65 61 64 2d 6e 61 6d 65 20 74 68 72 65 61 64 29 0a 20 20 | r.name.=.(thread-name.thread)... |
| 2d52a0 | 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 61 74 74 72 69 62 75 74 65 73 20 3d 20 28 74 68 | ............for.attributes.=.(th |
| 2d52c0 | 72 65 61 64 2d 61 74 74 72 69 62 75 74 65 73 20 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 | read-attributes.thread)......... |
| 2d52e0 | 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 2a 20 28 74 68 72 65 61 64 2d 69 64 20 | ......collect.(list*.(thread-id. |
| 2d5300 | 74 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | thread)......................... |
| 2d5320 | 20 20 20 20 20 28 73 74 72 69 6e 67 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(string.name).............. |
| 2d5340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 65 61 64 2d 73 74 61 74 75 73 20 74 | ................(thread-status.t |
| 2d5360 | 68 72 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hread).......................... |
| 2d5380 | 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 6c 61 62 65 6c 20 69 6e 20 6c 61 62 65 6c 73 0a 20 20 | ....(loop.for.label.in.labels... |
| 2d53a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2d53c0 | 20 63 6f 6c 6c 65 63 74 20 28 67 65 74 66 20 61 74 74 72 69 62 75 74 65 73 20 6c 61 62 65 6c 29 | .collect.(getf.attributes.label) |
| 2d53e0 | 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 71 75 69 74 2d 74 68 72 65 61 64 | ))))))..(defslimefun.quit-thread |
| 2d5400 | 2d 62 72 6f 77 73 65 72 20 28 29 0a 20 20 28 73 65 74 71 20 2a 74 68 72 65 61 64 2d 6c 69 73 74 | -browser.()...(setq.*thread-list |
| 2d5420 | 2a 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 6e 74 68 2d 74 68 72 65 61 64 20 28 69 6e 64 65 | *.nil))..(defun.nth-thread.(inde |
| 2d5440 | 78 29 0a 20 20 28 6e 74 68 20 69 6e 64 65 78 20 2a 74 68 72 65 61 64 2d 6c 69 73 74 2a 29 29 0a | x)...(nth.index.*thread-list*)). |
| 2d5460 | 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 64 65 62 75 67 2d 6e 74 68 2d 74 68 72 65 61 64 20 28 | .(defslimefun.debug-nth-thread.( |
| 2d5480 | 69 6e 64 65 78 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 2a 65 6d 61 63 | index)...(let.((connection.*emac |
| 2d54a0 | 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 0a 20 20 20 20 28 71 75 65 75 65 2d 74 68 72 65 61 | s-connection*)).....(queue-threa |
| 2d54c0 | 64 2d 69 6e 74 65 72 72 75 70 74 0a 20 20 20 20 20 28 6e 74 68 2d 74 68 72 65 61 64 20 69 6e 64 | d-interrupt......(nth-thread.ind |
| 2d54e0 | 65 78 29 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 28 77 69 74 68 | ex)......(lambda.()........(with |
| 2d5500 | 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 | -connection.(connection)........ |
| 2d5520 | 20 20 28 73 69 6d 70 6c 65 2d 62 72 65 61 6b 29 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 | ..(simple-break))))))..(defslime |
| 2d5540 | 66 75 6e 20 6b 69 6c 6c 2d 6e 74 68 2d 74 68 72 65 61 64 20 28 69 6e 64 65 78 29 0a 20 20 28 6b | fun.kill-nth-thread.(index)...(k |
| 2d5560 | 69 6c 6c 2d 74 68 72 65 61 64 20 28 6e 74 68 2d 74 68 72 65 61 64 20 69 6e 64 65 78 29 29 29 0a | ill-thread.(nth-thread.index))). |
| 2d5580 | 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 73 74 61 72 74 2d 73 77 61 6e 6b 2d 73 65 72 76 65 72 | .(defslimefun.start-swank-server |
| 2d55a0 | 2d 69 6e 2d 74 68 72 65 61 64 20 28 69 6e 64 65 78 20 70 6f 72 74 2d 66 69 6c 65 2d 6e 61 6d 65 | -in-thread.(index.port-file-name |
| 2d55c0 | 29 0a 20 20 22 49 6e 74 65 72 72 75 70 74 20 74 68 65 20 49 4e 44 45 58 74 68 20 74 68 72 65 61 | )..."Interrupt.the.INDEXth.threa |
| 2d55e0 | 64 20 61 6e 64 20 6d 61 6b 65 20 69 74 20 73 74 61 72 74 20 61 20 73 77 61 6e 6b 20 73 65 72 76 | d.and.make.it.start.a.swank.serv |
| 2d5600 | 65 72 2e 0a 54 68 65 20 73 65 72 76 65 72 20 70 6f 72 74 20 69 73 20 77 72 69 74 74 65 6e 20 74 | er..The.server.port.is.written.t |
| 2d5620 | 6f 20 50 4f 52 54 2d 46 49 4c 45 2d 4e 41 4d 45 2e 22 0a 20 20 28 69 6e 74 65 72 72 75 70 74 2d | o.PORT-FILE-NAME."...(interrupt- |
| 2d5640 | 74 68 72 65 61 64 20 28 6e 74 68 2d 74 68 72 65 61 64 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 | thread.(nth-thread.index)....... |
| 2d5660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 | ..............(lambda.()........ |
| 2d5680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 2d 73 65 72 76 65 72 20 70 6f 72 | ...............(start-server.por |
| 2d56a0 | 74 2d 66 69 6c 65 2d 6e 61 6d 65 20 3a 73 74 79 6c 65 20 6e 69 6c 29 29 29 29 0a 0c 0a 3b 3b 3b | t-file-name.:style.nil))))...;;; |
| 2d56c0 | 3b 20 43 6c 61 73 73 20 62 72 6f 77 73 65 72 0a 0a 28 64 65 66 75 6e 20 6d 6f 70 2d 68 65 6c 70 | ;.Class.browser..(defun.mop-help |
| 2d56e0 | 65 72 20 28 63 6c 61 73 73 2d 6e 61 6d 65 20 66 6e 29 0a 20 20 28 6c 65 74 20 28 28 63 6c 61 73 | er.(class-name.fn)...(let.((clas |
| 2d5700 | 73 20 28 66 69 6e 64 2d 63 6c 61 73 73 20 63 6c 61 73 73 2d 6e 61 6d 65 20 6e 69 6c 29 29 29 0a | s.(find-class.class-name.nil))). |
| 2d5720 | 20 20 20 20 28 69 66 20 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c | ....(if.class.........(mapcar.(l |
| 2d5740 | 61 6d 62 64 61 20 28 78 29 20 28 74 6f 2d 73 74 72 69 6e 67 20 28 63 6c 61 73 73 2d 6e 61 6d 65 | ambda.(x).(to-string.(class-name |
| 2d5760 | 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 | .x))).................(funcall.f |
| 2d5780 | 6e 20 63 6c 61 73 73 29 29 29 29 29 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 6d 6f 70 20 28 | n.class)))))..(defslimefun.mop.( |
| 2d57a0 | 74 79 70 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 69 6e 66 6f | type.symbol-name)..."Return.info |
| 2d57c0 | 20 61 62 6f 75 74 20 63 6c 61 73 73 65 73 20 75 73 69 6e 67 20 6d 6f 70 2e 0a 0a 20 20 20 20 57 | .about.classes.using.mop.......W |
| 2d57e0 | 68 65 6e 20 74 79 70 65 20 69 73 3a 0a 20 20 20 20 20 3a 73 75 62 63 6c 61 73 73 65 73 20 2d 20 | hen.type.is:......:subclasses.-. |
| 2d5800 | 72 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 73 75 62 63 6c 61 73 73 65 73 20 6f 66 | return.the.list.of.subclasses.of |
| 2d5820 | 20 63 6c 61 73 73 2e 0a 20 20 20 20 20 3a 73 75 70 65 72 63 6c 61 73 73 65 73 20 2d 20 72 65 74 | .class.......:superclasses.-.ret |
| 2d5840 | 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 73 75 70 65 72 63 6c 61 73 73 65 73 20 6f 66 20 | urn.the.list.of.superclasses.of. |
| 2d5860 | 63 6c 61 73 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 79 6d 62 6f 6c 20 28 70 61 72 73 65 2d 73 | class."...(let.((symbol.(parse-s |
| 2d5880 | 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 2a 62 75 66 66 65 72 2d 70 61 63 6b 61 67 | ymbol.symbol-name.*buffer-packag |
| 2d58a0 | 65 2a 29 29 29 0a 20 20 20 20 28 65 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 20 20 28 3a 73 75 | e*))).....(ecase.type.......(:su |
| 2d58c0 | 62 63 6c 61 73 73 65 73 0a 20 20 20 20 20 20 20 28 6d 6f 70 2d 68 65 6c 70 65 72 20 73 79 6d 62 | bclasses........(mop-helper.symb |
| 2d58e0 | 6f 6c 20 23 27 73 77 61 6e 6b 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 75 62 63 | ol.#'swank-mop:class-direct-subc |
| 2d5900 | 6c 61 73 73 65 73 29 29 0a 20 20 20 20 20 20 28 3a 73 75 70 65 72 63 6c 61 73 73 65 73 20 0a 20 | lasses)).......(:superclasses... |
| 2d5920 | 20 20 20 20 20 20 28 6d 6f 70 2d 68 65 6c 70 65 72 20 73 79 6d 62 6f 6c 20 23 27 73 77 61 6e 6b | ......(mop-helper.symbol.#'swank |
| 2d5940 | 2d 6d 6f 70 3a 63 6c 61 73 73 2d 64 69 72 65 63 74 2d 73 75 70 65 72 63 6c 61 73 73 65 73 29 29 | -mop:class-direct-superclasses)) |
| 2d5960 | 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 41 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 79 6e 63 68 72 | )))....;;;;.Automatically.synchr |
| 2d5980 | 6f 6e 69 7a 65 64 20 73 74 61 74 65 0a 3b 3b 3b 0a 3b 3b 3b 20 48 65 72 65 20 77 65 20 61 64 64 | onized.state.;;;.;;;.Here.we.add |
| 2d59a0 | 20 68 6f 6f 6b 73 20 74 6f 20 70 75 73 68 20 75 70 64 61 74 65 73 20 6f 66 20 72 65 6c 65 76 61 | .hooks.to.push.updates.of.releva |
| 2d59c0 | 6e 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 0a 3b 3b 3b 20 45 6d 61 63 73 2e 0a 0a 3b 3b | nt.information.to.;;;.Emacs...;; |
| 2d59e0 | 3b 3b 3b 20 2a 46 45 41 54 55 52 45 53 2a 0a 0a 28 64 65 66 75 6e 20 73 79 6e 63 2d 66 65 61 74 | ;;;.*FEATURES*..(defun.sync-feat |
| 2d5a00 | 75 72 65 73 2d 74 6f 2d 65 6d 61 63 73 20 28 29 0a 20 20 22 55 70 64 61 74 65 20 45 6d 61 63 73 | ures-to-emacs.()..."Update.Emacs |
| 2d5a20 | 20 69 66 20 61 6e 79 20 72 65 6c 65 76 61 6e 74 20 4c 69 73 70 20 73 74 61 74 65 20 68 61 73 20 | .if.any.relevant.Lisp.state.has. |
| 2d5a40 | 63 68 61 6e 67 65 64 2e 22 0a 20 20 3b 3b 20 46 49 58 4d 45 3a 20 2a 73 6c 69 6d 65 2d 66 65 61 | changed."...;;.FIXME:.*slime-fea |
| 2d5a60 | 74 75 72 65 73 2a 20 73 68 6f 75 6c 64 20 62 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6c 6f 63 61 | tures*.should.be.connection-loca |
| 2d5a80 | 6c 0a 20 20 28 6c 65 74 20 28 28 66 65 61 74 75 72 65 73 20 28 61 75 67 6d 65 6e 74 2d 66 65 61 | l...(let.((features.(augment-fea |
| 2d5aa0 | 74 75 72 65 73 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 2a 73 6c 69 | tures))).....(unless.(equal.*sli |
| 2d5ac0 | 6d 65 2d 66 65 61 74 75 72 65 73 2a 20 66 65 61 74 75 72 65 73 29 0a 20 20 20 20 20 20 28 73 65 | me-features*.features).......(se |
| 2d5ae0 | 74 71 20 2a 73 6c 69 6d 65 2d 66 65 61 74 75 72 65 73 2a 20 66 65 61 74 75 72 65 73 29 0a 20 20 | tq.*slime-features*.features)... |
| 2d5b00 | 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 28 6c 69 73 74 20 3a 6e 65 77 2d 66 65 | ....(send-to-emacs.(list.:new-fe |
| 2d5b20 | 61 74 75 72 65 73 20 28 66 65 61 74 75 72 65 73 2d 66 6f 72 2d 65 6d 61 63 73 29 29 29 29 29 29 | atures.(features-for-emacs)))))) |
| 2d5b40 | 0a 0a 28 64 65 66 75 6e 20 66 65 61 74 75 72 65 73 2d 66 6f 72 2d 65 6d 61 63 73 20 28 29 0a 20 | ..(defun.features-for-emacs.().. |
| 2d5b60 | 20 22 52 65 74 75 72 6e 20 60 2a 73 6c 69 6d 65 2d 66 65 61 74 75 72 65 73 2a 27 20 69 6e 20 61 | ."Return.`*slime-features*'.in.a |
| 2d5b80 | 20 66 6f 72 6d 61 74 20 73 75 69 74 61 62 6c 65 20 74 6f 20 73 65 6e 64 20 69 74 20 74 6f 20 45 | .format.suitable.to.send.it.to.E |
| 2d5ba0 | 6d 61 63 73 2e 22 0a 20 20 2a 73 6c 69 6d 65 2d 66 65 61 74 75 72 65 73 2a 29 0a 0a 28 61 64 64 | macs."...*slime-features*)..(add |
| 2d5bc0 | 2d 68 6f 6f 6b 20 2a 70 72 65 2d 72 65 70 6c 79 2d 68 6f 6f 6b 2a 20 27 73 79 6e 63 2d 66 65 61 | -hook.*pre-reply-hook*.'sync-fea |
| 2d5be0 | 74 75 72 65 73 2d 74 6f 2d 65 6d 61 63 73 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 49 6e 64 65 6e 74 61 | tures-to-emacs)....;;;;;.Indenta |
| 2d5c00 | 74 69 6f 6e 20 6f 66 20 6d 61 63 72 6f 73 0a 3b 3b 3b 0a 3b 3b 3b 20 54 68 69 73 20 63 6f 64 65 | tion.of.macros.;;;.;;;.This.code |
| 2d5c20 | 20 64 65 63 69 64 65 73 20 68 6f 77 20 6d 61 63 72 6f 73 20 73 68 6f 75 6c 64 20 62 65 20 69 6e | .decides.how.macros.should.be.in |
| 2d5c40 | 64 65 6e 74 65 64 20 28 62 61 73 65 64 20 6f 6e 20 74 68 65 69 72 0a 3b 3b 3b 20 61 72 67 6c 69 | dented.(based.on.their.;;;.argli |
| 2d5c60 | 73 74 73 29 20 61 6e 64 20 74 65 6c 6c 73 20 45 6d 61 63 73 2e 20 41 20 70 65 72 2d 63 6f 6e 6e | sts).and.tells.Emacs..A.per-conn |
| 2d5c80 | 65 63 74 69 6f 6e 20 63 61 63 68 65 20 69 73 20 75 73 65 64 20 74 6f 20 61 76 6f 69 64 0a 3b 3b | ection.cache.is.used.to.avoid.;; |
| 2d5ca0 | 3b 20 73 65 6e 64 69 6e 67 20 72 65 64 75 6e 64 61 6e 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 | ;.sending.redundant.information. |
| 2d5cc0 | 74 6f 20 45 6d 61 63 73 20 2d 2d 20 77 65 20 6a 75 73 74 20 73 61 79 20 77 68 61 74 27 73 0a 3b | to.Emacs.--.we.just.say.what's.; |
| 2d5ce0 | 3b 3b 20 63 68 61 6e 67 65 64 20 73 69 6e 63 65 20 6c 61 73 74 20 74 69 6d 65 2e 0a 3b 3b 3b 0a | ;;.changed.since.last.time..;;;. |
| 2d5d00 | 3b 3b 3b 20 54 68 65 20 73 74 72 61 74 65 67 79 20 69 73 20 74 6f 20 73 63 61 6e 20 61 6c 6c 20 | ;;;.The.strategy.is.to.scan.all. |
| 2d5d20 | 73 79 6d 62 6f 6c 73 2c 20 70 69 63 6b 20 6f 75 74 20 74 68 65 20 6d 61 63 72 6f 73 2c 20 61 6e | symbols,.pick.out.the.macros,.an |
| 2d5d40 | 64 20 6c 6f 6f 6b 0a 3b 3b 3b 20 66 6f 72 20 26 62 6f 64 79 2d 61 72 67 75 6d 65 6e 74 73 2e 0a | d.look.;;;.for.&body-arguments.. |
| 2d5d60 | 0a 28 64 65 66 76 61 72 20 2a 63 6f 6e 66 69 67 75 72 65 2d 65 6d 61 63 73 2d 69 6e 64 65 6e 74 | .(defvar.*configure-emacs-indent |
| 2d5d80 | 61 74 69 6f 6e 2a 20 74 0a 20 20 22 57 68 65 6e 20 74 72 75 65 2c 20 61 75 74 6f 6d 61 74 69 63 | ation*.t..."When.true,.automatic |
| 2d5da0 | 61 6c 6c 79 20 73 65 6e 64 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 69 6e 66 6f 72 6d 61 74 69 6f | ally.send.indentation.informatio |
| 2d5dc0 | 6e 20 74 6f 20 45 6d 61 63 73 0a 61 66 74 65 72 20 65 61 63 68 20 63 6f 6d 6d 61 6e 64 2e 22 29 | n.to.Emacs.after.each.command.") |
| 2d5de0 | 0a 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 75 70 64 61 74 65 2d 69 6e 64 65 6e 74 61 74 69 6f | ..(defslimefun.update-indentatio |
| 2d5e00 | 6e 2d 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 28 29 0a 20 20 28 73 65 6e 64 2d 74 6f 2d 69 6e 64 65 | n-information.()...(send-to-inde |
| 2d5e20 | 6e 74 61 74 69 6f 6e 2d 63 61 63 68 65 20 60 28 3a 75 70 64 61 74 65 2d 69 6e 64 65 6e 74 61 74 | ntation-cache.`(:update-indentat |
| 2d5e40 | 69 6f 6e 2d 69 6e 66 6f 72 6d 61 74 69 6f 6e 29 29 0a 20 20 6e 69 6c 29 0a 0a 3b 3b 20 54 68 69 | ion-information))...nil)..;;.Thi |
| 2d5e60 | 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 66 6f 72 20 2a 50 52 45 2d 52 45 50 4c 59 2d 48 4f 4f | s.function.is.for.*PRE-REPLY-HOO |
| 2d5e80 | 4b 2a 2e 0a 28 64 65 66 75 6e 20 73 79 6e 63 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 74 6f 2d 65 | K*..(defun.sync-indentation-to-e |
| 2d5ea0 | 6d 61 63 73 20 28 29 0a 20 20 22 53 65 6e 64 20 61 6e 79 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 | macs.()..."Send.any.indentation. |
| 2d5ec0 | 75 70 64 61 74 65 73 20 74 6f 20 45 6d 61 63 73 20 76 69 61 20 43 4f 4e 4e 45 43 54 49 4f 4e 2e | updates.to.Emacs.via.CONNECTION. |
| 2d5ee0 | 22 0a 20 20 28 77 68 65 6e 20 2a 63 6f 6e 66 69 67 75 72 65 2d 65 6d 61 63 73 2d 69 6e 64 65 6e | "...(when.*configure-emacs-inden |
| 2d5f00 | 74 61 74 69 6f 6e 2a 0a 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e | tation*.....(send-to-indentation |
| 2d5f20 | 2d 63 61 63 68 65 20 60 28 3a 73 79 6e 63 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 2c 2a 62 75 66 | -cache.`(:sync-indentation.,*buf |
| 2d5f40 | 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 29 29 29 0a 0a 3b 3b 20 53 65 6e 64 20 52 45 51 55 45 53 | fer-package*))))..;;.Send.REQUES |
| 2d5f60 | 54 20 74 6f 20 74 68 65 20 63 61 63 68 65 2e 20 20 49 66 20 77 65 20 61 72 65 20 73 69 6e 67 6c | T.to.the.cache...If.we.are.singl |
| 2d5f80 | 65 20 74 68 72 65 61 64 65 64 20 70 65 72 66 6f 72 6d 20 74 68 65 0a 3b 3b 20 72 65 71 75 65 73 | e.threaded.perform.the.;;.reques |
| 2d5fa0 | 74 20 72 69 67 68 74 20 61 77 61 79 2c 20 6f 74 68 65 72 77 69 73 65 20 64 65 6c 65 67 61 74 65 | t.right.away,.otherwise.delegate |
| 2d5fc0 | 20 74 68 65 20 72 65 71 75 65 73 74 20 74 6f 20 74 68 65 0a 3b 3b 20 69 6e 64 65 6e 74 61 74 69 | .the.request.to.the.;;.indentati |
| 2d5fe0 | 6f 6e 2d 63 61 63 68 65 2d 74 68 72 65 61 64 2e 0a 28 64 65 66 75 6e 20 73 65 6e 64 2d 74 6f 2d | on-cache-thread..(defun.send-to- |
| 2d6000 | 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 63 61 63 68 65 20 28 72 65 71 75 65 73 74 29 0a 20 20 28 6c | indentation-cache.(request)...(l |
| 2d6020 | 65 74 20 28 28 63 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 0a 20 20 20 20 | et.((c.*emacs-connection*))..... |
| 2d6040 | 28 65 74 79 70 65 63 61 73 65 20 63 0a 20 20 20 20 20 20 28 73 69 6e 67 6c 65 74 68 72 65 61 64 | (etypecase.c.......(singlethread |
| 2d6060 | 65 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 0a 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 2d 69 6e | ed-connection.........(handle-in |
| 2d6080 | 64 65 6e 74 61 74 69 6f 6e 2d 63 61 63 68 65 2d 72 65 71 75 65 73 74 20 63 20 72 65 71 75 65 73 | dentation-cache-request.c.reques |
| 2d60a0 | 74 29 29 0a 20 20 20 20 20 20 28 6d 75 6c 74 69 74 68 72 65 61 64 65 64 2d 63 6f 6e 6e 65 63 74 | t)).......(multithreaded-connect |
| 2d60c0 | 69 6f 6e 0a 20 20 20 20 20 20 20 28 77 69 74 68 6f 75 74 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 | ion........(without-slime-interr |
| 2d60e0 | 75 70 74 73 0a 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 20 28 6d 63 6f 6e 6e 2e 69 6e 64 65 6e | upts..........(send.(mconn.inden |
| 2d6100 | 74 61 74 69 6f 6e 2d 63 61 63 68 65 2d 74 68 72 65 61 64 20 63 29 20 72 65 71 75 65 73 74 29 29 | tation-cache-thread.c).request)) |
| 2d6120 | 29 0a 20 20 20 20 20 20 28 6e 75 6c 6c 20 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 64 65 | ).......(null.t))))..(defun.inde |
| 2d6140 | 6e 74 61 74 69 6f 6e 2d 63 61 63 68 65 2d 6c 6f 6f 70 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a | ntation-cache-loop.(connection). |
| 2d6160 | 20 20 28 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a | ..(with-connection.(connection). |
| 2d6180 | 20 20 20 20 28 6c 6f 6f 70 0a 20 20 20 20 20 20 28 72 65 73 74 61 72 74 2d 63 61 73 65 0a 20 20 | ....(loop.......(restart-case... |
| 2d61a0 | 20 20 20 20 20 20 20 20 28 68 61 6e 64 6c 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 63 61 63 68 | ........(handle-indentation-cach |
| 2d61c0 | 65 2d 72 65 71 75 65 73 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 72 65 63 65 69 76 65 29 29 0a | e-request.connection.(receive)). |
| 2d61e0 | 20 20 20 20 20 20 20 20 28 61 62 6f 72 74 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 3a 72 65 70 | ........(abort.()...........:rep |
| 2d6200 | 6f 72 74 20 22 52 65 74 75 72 6e 20 74 6f 20 74 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 63 | ort."Return.to.the.indentation.c |
| 2d6220 | 61 63 68 65 20 72 65 71 75 65 73 74 20 68 61 6e 64 6c 69 6e 67 20 6c 6f 6f 70 2e 22 29 29 29 29 | ache.request.handling.loop.")))) |
| 2d6240 | 29 0a 0a 28 64 65 66 75 6e 20 68 61 6e 64 6c 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 63 61 63 | )..(defun.handle-indentation-cac |
| 2d6260 | 68 65 2d 72 65 71 75 65 73 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 71 75 65 73 74 29 0a | he-request.(connection.request). |
| 2d6280 | 20 20 28 64 63 61 73 65 20 72 65 71 75 65 73 74 0a 20 20 20 20 28 28 3a 73 79 6e 63 2d 69 6e 64 | ..(dcase.request.....((:sync-ind |
| 2d62a0 | 65 6e 74 61 74 69 6f 6e 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 66 75 | entation.package)......(let.((fu |
| 2d62c0 | 6c 6c 70 20 28 6e 65 65 64 2d 66 75 6c 6c 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 | llp.(need-full-indentation-updat |
| 2d62e0 | 65 2d 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 28 70 65 72 66 6f 72 | e-p.connection)))........(perfor |
| 2d6300 | 6d 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 | m-indentation-update.connection. |
| 2d6320 | 66 75 6c 6c 70 20 70 61 63 6b 61 67 65 29 29 29 0a 20 20 20 20 28 28 3a 75 70 64 61 74 65 2d 69 | fullp.package))).....((:update-i |
| 2d6340 | 6e 64 65 6e 74 61 74 69 6f 6e 2d 69 6e 66 6f 72 6d 61 74 69 6f 6e 29 0a 20 20 20 20 20 28 70 65 | ndentation-information)......(pe |
| 2d6360 | 72 66 6f 72 6d 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 65 20 63 6f 6e 6e 65 63 74 | rform-indentation-update.connect |
| 2d6380 | 69 6f 6e 20 74 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 65 65 64 2d 66 75 6c 6c 2d | ion.t.nil))))..(defun.need-full- |
| 2d63a0 | 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 65 2d 70 20 28 63 6f 6e 6e 65 63 74 69 6f 6e | indentation-update-p.(connection |
| 2d63c0 | 29 0a 20 20 22 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 65 20 77 68 6f 6c 65 20 69 6e | )..."Return.true.if.the.whole.in |
| 2d63e0 | 64 65 6e 74 61 74 69 6f 6e 20 63 61 63 68 65 20 73 68 6f 75 6c 64 20 62 65 20 75 70 64 61 74 65 | dentation.cache.should.be.update |
| 2d6400 | 64 2e 0a 54 68 69 73 20 69 73 20 61 20 68 65 75 72 69 73 74 69 63 20 74 6f 20 61 76 6f 69 64 20 | d..This.is.a.heuristic.to.avoid. |
| 2d6420 | 73 63 61 6e 6e 69 6e 67 20 61 6c 6c 20 73 79 6d 62 6f 6c 73 20 61 6c 6c 20 74 68 65 20 74 69 6d | scanning.all.symbols.all.the.tim |
| 2d6440 | 65 3a 0a 69 6e 73 74 65 61 64 2c 20 77 65 20 6f 6e 6c 79 20 64 6f 20 61 20 66 75 6c 6c 20 73 63 | e:.instead,.we.only.do.a.full.sc |
| 2d6460 | 61 6e 20 69 66 20 74 68 65 20 73 65 74 20 6f 66 20 70 61 63 6b 61 67 65 73 20 68 61 73 20 63 68 | an.if.the.set.of.packages.has.ch |
| 2d6480 | 61 6e 67 65 64 2e 22 0a 20 20 28 73 65 74 2d 64 69 66 66 65 72 65 6e 63 65 20 28 6c 69 73 74 2d | anged."...(set-difference.(list- |
| 2d64a0 | 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | all-packages)................... |
| 2d64c0 | 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 63 61 63 68 65 2d 70 61 | (connection.indentation-cache-pa |
| 2d64e0 | 63 6b 61 67 65 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 65 72 | ckages.connection)))..(defun.per |
| 2d6500 | 66 6f 72 6d 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 75 70 64 61 74 65 20 28 63 6f 6e 6e 65 63 74 | form-indentation-update.(connect |
| 2d6520 | 69 6f 6e 20 66 6f 72 63 65 20 70 61 63 6b 61 67 65 29 0a 20 20 22 55 70 64 61 74 65 20 74 68 65 | ion.force.package)..."Update.the |
| 2d6540 | 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 63 61 63 68 65 20 69 6e 20 43 4f 4e 4e 45 43 54 49 4f 4e | .indentation.cache.in.CONNECTION |
| 2d6560 | 20 61 6e 64 20 75 70 64 61 74 65 20 45 6d 61 63 73 2e 0a 49 66 20 46 4f 52 43 45 20 69 73 20 74 | .and.update.Emacs..If.FORCE.is.t |
| 2d6580 | 72 75 65 20 74 68 65 6e 20 73 74 61 72 74 20 61 67 61 69 6e 20 77 69 74 68 6f 75 74 20 63 6f 6e | rue.then.start.again.without.con |
| 2d65a0 | 73 69 64 65 72 69 6e 67 20 74 68 65 20 6f 6c 64 20 63 61 63 68 65 2e 22 0a 20 20 28 6c 65 74 20 | sidering.the.old.cache."...(let. |
| 2d65c0 | 28 28 63 61 63 68 65 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 69 6e 64 65 6e 74 61 74 69 6f 6e 2d | ((cache.(connection.indentation- |
| 2d65e0 | 63 61 63 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 66 6f | cache.connection))).....(when.fo |
| 2d6600 | 72 63 65 20 28 63 6c 72 68 61 73 68 20 63 61 63 68 65 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 | rce.(clrhash.cache)).....(let.(( |
| 2d6620 | 64 65 6c 74 61 20 28 75 70 64 61 74 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2f 64 65 6c 74 61 2d | delta.(update-indentation/delta- |
| 2d6640 | 66 6f 72 2d 65 6d 61 63 73 20 63 61 63 68 65 20 66 6f 72 63 65 20 70 61 63 6b 61 67 65 29 29 29 | for-emacs.cache.force.package))) |
| 2d6660 | 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 69 6e 64 65 6e 74 61 | .......(setf.(connection.indenta |
| 2d6680 | 74 69 6f 6e 2d 63 61 63 68 65 2d 70 61 63 6b 61 67 65 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a | tion-cache-packages.connection). |
| 2d66a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2d 61 6c 6c 2d 70 61 63 6b 61 67 65 73 29 29 | ............(list-all-packages)) |
| 2d66c0 | 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6e 75 6c 6c 20 64 65 6c 74 61 29 0a 20 20 20 20 | .......(unless.(null.delta)..... |
| 2d66e0 | 20 20 20 20 28 73 65 74 66 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 2e 69 6e 64 65 6e 74 61 74 69 6f | ....(setf.(connection.indentatio |
| 2d6700 | 6e 2d 63 61 63 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 63 61 63 68 65 29 0a 20 20 20 20 20 | n-cache.connection).cache)...... |
| 2d6720 | 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 28 6c 69 73 74 20 3a 69 6e 64 65 6e 74 61 | ...(send-to-emacs.(list.:indenta |
| 2d6740 | 74 69 6f 6e 2d 75 70 64 61 74 65 20 64 65 6c 74 61 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | tion-update.delta))))))..(defun. |
| 2d6760 | 75 70 64 61 74 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2f 64 65 6c 74 61 2d 66 6f 72 2d 65 6d 61 | update-indentation/delta-for-ema |
| 2d6780 | 63 73 20 28 63 61 63 68 65 20 66 6f 72 63 65 20 70 61 63 6b 61 67 65 29 0a 20 20 22 55 70 64 61 | cs.(cache.force.package)..."Upda |
| 2d67a0 | 74 65 20 74 68 65 20 63 61 63 68 65 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 63 68 61 6e | te.the.cache.and.return.the.chan |
| 2d67c0 | 67 65 73 20 69 6e 20 61 20 28 53 59 4d 42 4f 4c 20 49 4e 44 45 4e 54 20 50 41 43 4b 41 47 45 53 | ges.in.a.(SYMBOL.INDENT.PACKAGES |
| 2d67e0 | 29 20 6c 69 73 74 2e 0a 49 66 20 46 4f 52 43 45 20 69 73 20 74 72 75 65 20 74 68 65 6e 20 63 68 | ).list..If.FORCE.is.true.then.ch |
| 2d6800 | 65 63 6b 20 61 6c 6c 20 73 79 6d 62 6f 6c 73 2c 20 6f 74 68 65 72 77 69 73 65 20 6f 6e 6c 79 20 | eck.all.symbols,.otherwise.only. |
| 2d6820 | 63 68 65 63 6b 20 73 79 6d 62 6f 6c 73 0a 62 65 6c 6f 6e 67 69 6e 67 20 74 6f 20 50 41 43 4b 41 | check.symbols.belonging.to.PACKA |
| 2d6840 | 47 45 2e 22 0a 20 20 28 6c 65 74 20 28 28 61 6c 69 73 74 20 27 28 29 29 29 0a 20 20 20 20 28 66 | GE."...(let.((alist.'())).....(f |
| 2d6860 | 6c 65 74 20 28 28 63 6f 6e 73 69 64 65 72 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 | let.((consider.(symbol)......... |
| 2d6880 | 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 64 65 6e 74 20 28 73 79 6d 62 6f 6c 2d 69 6e 64 65 6e | .....(let.((indent.(symbol-inden |
| 2d68a0 | 74 61 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tation.symbol)))................ |
| 2d68c0 | 28 77 68 65 6e 20 28 6f 72 20 69 6e 64 65 6e 74 20 28 67 65 74 68 61 73 68 20 73 79 6d 62 6f 6c | (when.(or.indent.(gethash.symbol |
| 2d68e0 | 20 63 61 63 68 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 | .cache))..................(unles |
| 2d6900 | 73 20 28 65 71 75 61 6c 20 28 67 65 74 68 61 73 68 20 73 79 6d 62 6f 6c 20 63 61 63 68 65 29 20 | s.(equal.(gethash.symbol.cache). |
| 2d6920 | 69 6e 64 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 | indent)....................(setf |
| 2d6940 | 20 28 67 65 74 68 61 73 68 20 73 79 6d 62 6f 6c 20 63 61 63 68 65 29 20 69 6e 64 65 6e 74 29 0a | .(gethash.symbol.cache).indent). |
| 2d6960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6b 67 73 20 28 | ...................(let.((pkgs.( |
| 2d6980 | 6d 61 70 63 61 72 20 23 27 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 0a 20 20 20 20 20 20 20 20 20 | mapcar.#'package-name........... |
| 2d69a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ..............................(s |
| 2d69c0 | 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 73 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 | ymbol-packages.symbol)))........ |
| 2d69e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 73 74 72 69 6e 67 2d | ..................(name.(string- |
| 2d6a00 | 64 6f 77 6e 63 61 73 65 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | downcase.symbol))).............. |
| 2d6a20 | 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 6e 61 6d 65 20 69 6e 64 65 6e 74 20 | ........(push.(list.name.indent. |
| 2d6a40 | 70 6b 67 73 29 20 61 6c 69 73 74 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 | pkgs).alist))))))).......(cond.( |
| 2d6a60 | 66 6f 72 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 2d 61 6c 6c 2d 73 79 6d 62 6f | force..............(do-all-symbo |
| 2d6a80 | 6c 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 | ls.(symbol)................(cons |
| 2d6aa0 | 69 64 65 72 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 70 61 63 | ider.symbol))).............((pac |
| 2d6ac0 | 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 20 3b 20 64 6f 6e 27 74 20 74 72 79 20 74 | kage-name.package).;.don't.try.t |
| 2d6ae0 | 6f 20 69 74 65 72 61 74 65 20 6f 76 65 72 20 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o.iterate.over.a................ |
| 2d6b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 64 65 6c 65 74 65 64 20 70 | .....................;.deleted.p |
| 2d6b20 | 61 63 6b 61 67 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 2d 73 79 6d 62 6f 6c 73 | ackage...............(do-symbols |
| 2d6b40 | 20 28 73 79 6d 62 6f 6c 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(symbol.package)............... |
| 2d6b60 | 20 28 77 68 65 6e 20 28 65 71 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 73 79 6d 62 6f | .(when.(eq.(symbol-package.symbo |
| 2d6b80 | 6c 29 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | l).package)..................(co |
| 2d6ba0 | 6e 73 69 64 65 72 20 73 79 6d 62 6f 6c 29 29 29 29 29 0a 20 20 20 20 20 20 61 6c 69 73 74 29 29 | nsider.symbol))))).......alist)) |
| 2d6bc0 | 29 0a 0a 28 64 65 66 75 6e 20 70 61 63 6b 61 67 65 2d 6e 61 6d 65 73 20 28 70 61 63 6b 61 67 65 | )..(defun.package-names.(package |
| 2d6be0 | 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 61 6e 64 20 61 6c 6c 20 6e 69 63 | )..."Return.the.name.and.all.nic |
| 2d6c00 | 6b 6e 61 6d 65 73 20 6f 66 20 50 41 43 4b 41 47 45 20 69 6e 20 61 20 66 72 65 73 68 20 6c 69 73 | knames.of.PACKAGE.in.a.fresh.lis |
| 2d6c20 | 74 2e 22 0a 20 20 28 63 6f 6e 73 20 28 70 61 63 6b 61 67 65 2d 6e 61 6d 65 20 70 61 63 6b 61 67 | t."...(cons.(package-name.packag |
| 2d6c40 | 65 29 20 28 63 6f 70 79 2d 6c 69 73 74 20 28 70 61 63 6b 61 67 65 2d 6e 69 63 6b 6e 61 6d 65 73 | e).(copy-list.(package-nicknames |
| 2d6c60 | 20 70 61 63 6b 61 67 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 79 6d 62 6f 6c 2d 70 61 63 6b | .package))))..(defun.symbol-pack |
| 2d6c80 | 61 67 65 73 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 20 70 61 63 | ages.(symbol)..."Return.the..pac |
| 2d6ca0 | 6b 61 67 65 73 20 77 68 65 72 65 20 53 59 4d 42 4f 4c 20 63 61 6e 20 62 65 20 66 6f 75 6e 64 2e | kages.where.SYMBOL.can.be.found. |
| 2d6cc0 | 22 0a 20 20 28 6c 65 74 20 28 28 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c | "...(let.((string.(string.symbol |
| 2d6ce0 | 29 29 29 0a 20 20 20 20 28 6c 6f 6f 70 20 66 6f 72 20 70 20 69 6e 20 28 6c 69 73 74 2d 61 6c 6c | ))).....(loop.for.p.in.(list-all |
| 2d6d00 | 2d 70 61 63 6b 61 67 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 65 71 20 73 79 | -packages)...........when.(eq.sy |
| 2d6d20 | 6d 62 6f 6c 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 73 74 72 69 6e 67 20 70 29 29 0a 20 20 20 | mbol.(find-symbol.string.p)).... |
| 2d6d40 | 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 2d 73 | .......collect.p)))..(defun.cl-s |
| 2d6d60 | 79 6d 62 6f 6c 2d 70 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 49 73 20 53 59 4d 42 4f 4c 20 61 20 | ymbol-p.(symbol)..."Is.SYMBOL.a. |
| 2d6d80 | 73 79 6d 62 6f 6c 20 69 6e 20 74 68 65 20 43 4f 4d 4d 4f 4e 2d 4c 49 53 50 20 70 61 63 6b 61 67 | symbol.in.the.COMMON-LISP.packag |
| 2d6da0 | 65 3f 22 0a 20 20 28 65 71 20 28 73 79 6d 62 6f 6c 2d 70 61 63 6b 61 67 65 20 73 79 6d 62 6f 6c | e?"...(eq.(symbol-package.symbol |
| 2d6dc0 | 29 20 63 6c 2d 70 61 63 6b 61 67 65 29 29 0a 0a 28 64 65 66 75 6e 20 6b 6e 6f 77 6e 2d 74 6f 2d | ).cl-package))..(defun.known-to- |
| 2d6de0 | 65 6d 61 63 73 2d 70 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 74 72 75 65 20 | emacs-p.(symbol)..."Return.true. |
| 2d6e00 | 69 66 20 45 6d 61 63 73 20 68 61 73 20 73 70 65 63 69 61 6c 20 72 75 6c 65 73 20 66 6f 72 20 69 | if.Emacs.has.special.rules.for.i |
| 2d6e20 | 6e 64 65 6e 74 69 6e 67 20 53 59 4d 42 4f 4c 2e 22 0a 20 20 28 63 6c 2d 73 79 6d 62 6f 6c 2d 70 | ndenting.SYMBOL."...(cl-symbol-p |
| 2d6e40 | 20 73 79 6d 62 6f 6c 29 29 0a 0a 28 64 65 66 75 6e 20 73 79 6d 62 6f 6c 2d 69 6e 64 65 6e 74 61 | .symbol))..(defun.symbol-indenta |
| 2d6e60 | 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 66 6f 72 6d 20 64 | tion.(symbol)..."Return.a.form.d |
| 2d6e80 | 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 53 59 4d | escribing.the.indentation.of.SYM |
| 2d6ea0 | 42 4f 4c 2e 0a 54 68 65 20 66 6f 72 6d 20 69 73 20 74 6f 20 62 65 20 75 73 65 64 20 61 73 20 74 | BOL..The.form.is.to.be.used.as.t |
| 2d6ec0 | 68 65 20 60 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 | he.`common-lisp-indent-function' |
| 2d6ee0 | 20 70 72 6f 70 65 72 74 79 0a 69 6e 20 45 6d 61 63 73 2e 22 0a 20 20 28 69 66 20 28 61 6e 64 20 | .property.in.Emacs."...(if.(and. |
| 2d6f00 | 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 | (macro-function.symbol)......... |
| 2d6f20 | 20 20 20 28 6e 6f 74 20 28 6b 6e 6f 77 6e 2d 74 6f 2d 65 6d 61 63 73 2d 70 20 73 79 6d 62 6f 6c | ...(not.(known-to-emacs-p.symbol |
| 2d6f40 | 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 | ))).......(let.((arglist.(arglis |
| 2d6f60 | 74 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 65 74 79 70 65 63 61 73 65 20 61 | t.symbol))).........(etypecase.a |
| 2d6f80 | 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 3a 6e 6f 74 2d 61 | rglist...........((member.:not-a |
| 2d6fa0 | 76 61 69 6c 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 | vailable)............nil)....... |
| 2d6fc0 | 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 63 72 6f 2d 69 6e 64 65 | ....(list............(macro-inde |
| 2d6fe0 | 6e 74 61 74 69 6f 6e 20 61 72 67 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 6e 69 6c 29 29 0a | ntation.arglist)))).......nil)). |
| 2d7000 | 0a 28 64 65 66 75 6e 20 6d 61 63 72 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 61 72 67 6c 69 | .(defun.macro-indentation.(argli |
| 2d7020 | 73 74 29 0a 20 20 28 69 66 20 28 77 65 6c 6c 2d 66 6f 72 6d 65 64 2d 6c 69 73 74 2d 70 20 61 72 | st)...(if.(well-formed-list-p.ar |
| 2d7040 | 67 6c 69 73 74 29 0a 20 20 20 20 20 20 28 70 6f 73 69 74 69 6f 6e 20 27 26 62 6f 64 79 20 28 72 | glist).......(position.'&body.(r |
| 2d7060 | 65 6d 6f 76 65 20 27 26 6f 70 74 69 6f 6e 61 6c 20 28 63 6c 65 61 6e 2d 61 72 67 6c 69 73 74 20 | emove.'&optional.(clean-arglist. |
| 2d7080 | 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 63 | arglist))).......nil))..(defun.c |
| 2d70a0 | 6c 65 61 6e 2d 61 72 67 6c 69 73 74 20 28 61 72 67 6c 69 73 74 29 0a 20 20 22 52 65 6d 6f 76 65 | lean-arglist.(arglist)..."Remove |
| 2d70c0 | 20 26 77 68 6f 6c 65 2c 20 26 65 6e 76 69 72 6f 6d 65 6e 74 2c 20 61 6e 64 20 26 61 75 78 20 65 | .&whole,.&enviroment,.and.&aux.e |
| 2d70e0 | 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 41 52 47 4c 49 53 54 2e 22 0a 20 20 28 63 6f 6e 64 20 28 | lements.from.ARGLIST."...(cond.( |
| 2d7100 | 28 6e 75 6c 6c 20 61 72 67 6c 69 73 74 29 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 28 28 6d 65 | (null.arglist).'()).........((me |
| 2d7120 | 6d 62 65 72 20 28 63 61 72 20 61 72 67 6c 69 73 74 29 20 27 28 26 77 68 6f 6c 65 20 26 65 6e 76 | mber.(car.arglist).'(&whole.&env |
| 2d7140 | 69 72 6f 6e 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6c 65 61 6e 2d 61 72 67 6c 69 | ironment))..........(clean-argli |
| 2d7160 | 73 74 20 28 63 64 64 72 20 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 71 | st.(cddr.arglist))).........((eq |
| 2d7180 | 20 28 63 61 72 20 61 72 67 6c 69 73 74 29 20 27 26 61 75 78 29 0a 20 20 20 20 20 20 20 20 20 27 | .(car.arglist).'&aux)..........' |
| 2d71a0 | 28 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 63 6f 6e 73 20 28 63 61 72 20 61 72 67 6c 69 73 | ()).........(t.(cons.(car.arglis |
| 2d71c0 | 74 29 20 28 63 6c 65 61 6e 2d 61 72 67 6c 69 73 74 20 28 63 64 72 20 61 72 67 6c 69 73 74 29 29 | t).(clean-arglist.(cdr.arglist)) |
| 2d71e0 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 77 65 6c 6c 2d 66 6f 72 6d 65 64 2d 6c 69 73 74 2d 70 20 | ))))..(defun.well-formed-list-p. |
| 2d7200 | 28 6c 69 73 74 29 0a 20 20 22 49 73 20 4c 49 53 54 20 61 20 70 72 6f 70 65 72 20 6c 69 73 74 20 | (list)..."Is.LIST.a.proper.list. |
| 2d7220 | 74 65 72 6d 69 6e 61 74 65 64 20 62 79 20 4e 49 4c 3f 22 0a 20 20 28 74 79 70 65 63 61 73 65 20 | terminated.by.NIL?"...(typecase. |
| 2d7240 | 6c 69 73 74 0a 20 20 20 20 28 6e 75 6c 6c 20 74 29 0a 20 20 20 20 28 63 6f 6e 73 20 28 77 65 6c | list.....(null.t).....(cons.(wel |
| 2d7260 | 6c 2d 66 6f 72 6d 65 64 2d 6c 69 73 74 2d 70 20 28 63 64 72 20 6c 69 73 74 29 29 29 0a 20 20 20 | l-formed-list-p.(cdr.list))).... |
| 2d7280 | 20 28 74 20 20 20 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 69 6e 64 65 | .(t....nil)))..(defun.print-inde |
| 2d72a0 | 6e 74 61 74 69 6f 6e 2d 6c 6f 73 73 61 67 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 28 73 74 72 65 | ntation-lossage.(&optional.(stre |
| 2d72c0 | 61 6d 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 29 0a 20 20 22 52 65 74 75 72 6e | am.*standard-output*))..."Return |
| 2d72e0 | 20 74 68 65 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 77 68 6f 73 65 20 69 6e 64 65 6e | .the.list.of.symbols.whose.inden |
| 2d7300 | 74 61 74 69 6f 6e 20 73 74 79 6c 65 73 20 63 6f 6c 6c 69 64 65 20 69 6e 63 6f 6d 70 61 74 69 62 | tation.styles.collide.incompatib |
| 2d7320 | 6c 79 2e 0a 43 6f 6c 6c 69 73 69 6f 6e 73 20 61 72 65 20 63 61 75 73 65 64 20 62 65 63 61 75 73 | ly..Collisions.are.caused.becaus |
| 2d7340 | 65 20 70 61 63 6b 61 67 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 69 67 6e 6f 72 65 64 | e.package.information.is.ignored |
| 2d7360 | 2e 22 0a 20 20 28 6c 65 74 20 28 28 74 61 62 6c 65 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 | ."...(let.((table.(make-hash-tab |
| 2d7380 | 6c 65 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 29 0a 20 20 20 20 28 66 6c 65 74 20 28 28 6e | le.:test.'equal))).....(flet.((n |
| 2d73a0 | 61 6d 65 20 28 73 29 20 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 28 73 79 6d 62 6f 6c | ame.(s).(string-downcase.(symbol |
| 2d73c0 | 2d 6e 61 6d 65 20 73 29 29 29 29 0a 20 20 20 20 20 20 28 64 6f 2d 61 6c 6c 2d 73 79 6d 62 6f 6c | -name.s)))).......(do-all-symbol |
| 2d73e0 | 73 20 28 73 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 28 6e 61 | s.(s).........(setf.(gethash.(na |
| 2d7400 | 6d 65 20 73 29 20 74 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 | me.s).table)...............(cons |
| 2d7420 | 20 73 20 28 73 79 6d 62 6f 6c 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 29 29 29 29 0a 20 20 20 | .s.(symbol-indentation.s)))).... |
| 2d7440 | 20 20 20 28 6c 65 74 20 28 28 63 6f 6c 6c 69 73 69 6f 6e 73 20 27 28 29 29 29 0a 20 20 20 20 20 | ...(let.((collisions.'()))...... |
| 2d7460 | 20 20 20 28 64 6f 2d 61 6c 6c 2d 73 79 6d 62 6f 6c 73 20 28 73 29 0a 20 20 20 20 20 20 20 20 20 | ...(do-all-symbols.(s).......... |
| 2d7480 | 20 28 6c 65 74 2a 20 28 28 65 6e 74 72 79 20 28 67 65 74 68 61 73 68 20 28 6e 61 6d 65 20 73 29 | .(let*.((entry.(gethash.(name.s) |
| 2d74a0 | 20 74 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 77 6e 65 72 | .table))..................(owner |
| 2d74c0 | 20 28 63 61 72 20 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .(car.entry))..................( |
| 2d74e0 | 69 6e 64 65 6e 74 20 28 63 64 72 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | indent.(cdr.entry)))............ |
| 2d7500 | 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 28 65 71 20 73 20 6f 77 6e 65 72 29 0a 20 20 20 20 20 20 | .(unless.(or.(eq.s.owner)....... |
| 2d7520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 28 73 79 6d 62 6f 6c | ..................(equal.(symbol |
| 2d7540 | 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 29 20 69 6e 64 65 6e 74 29 0a 20 20 20 20 20 20 20 20 | -indentation.s).indent)......... |
| 2d7560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6e 6f 74 20 28 66 62 6f 75 6e | ................(and.(not.(fboun |
| 2d7580 | 64 70 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dp.s)).......................... |
| 2d75a0 | 20 20 20 20 28 6e 75 6c 6c 20 28 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 20 73 29 29 29 29 0a | ....(null.(macro-function.s)))). |
| 2d75c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 6e 65 77 20 6f 77 6e 65 72 20 63 6f 6c | ..............(pushnew.owner.col |
| 2d75e0 | 6c 69 73 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 6e 65 77 20 | lisions)...............(pushnew. |
| 2d7600 | 73 20 63 6f 6c 6c 69 73 69 6f 6e 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 75 | s.collisions)))).........(if.(nu |
| 2d7620 | 6c 6c 20 63 6f 6c 6c 69 73 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d | ll.collisions).............(form |
| 2d7640 | 61 74 20 73 74 72 65 61 6d 20 22 7e 26 4e 6f 20 77 6f 72 72 69 65 73 21 7e 25 22 29 0a 20 20 20 | at.stream."~&No.worries!~%").... |
| 2d7660 | 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 74 72 65 61 6d 20 22 7e 26 53 79 6d 62 6f | .........(format.stream."~&Symbo |
| 2d7680 | 6c 73 20 77 69 74 68 20 63 6f 6c 6c 69 73 69 6f 6e 73 3a 7e 25 7e 7b 20 20 7e 53 7e 25 7e 7d 22 | ls.with.collisions:~%~{..~S~%~}" |
| 2d76a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 69 73 69 6f 6e 73 29 | .....................collisions) |
| 2d76c0 | 29 29 29 29 29 0a 0a 3b 3b 3b 20 46 49 58 4d 45 3a 20 69 74 27 73 20 74 6f 6f 20 73 6c 6f 77 20 | )))))..;;;.FIXME:.it's.too.slow. |
| 2d76e0 | 6f 6e 20 43 4c 41 53 50 20 72 69 67 68 74 20 6e 6f 77 2c 20 72 65 6d 6f 76 65 20 6f 6e 63 65 20 | on.CLASP.right.now,.remove.once. |
| 2d7700 | 69 74 27 73 20 66 61 73 74 20 65 6e 6f 75 67 68 2e 0a 23 2d 63 6c 61 73 70 0a 28 61 64 64 2d 68 | it's.fast.enough..#-clasp.(add-h |
| 2d7720 | 6f 6f 6b 20 2a 70 72 65 2d 72 65 70 6c 79 2d 68 6f 6f 6b 2a 20 27 73 79 6e 63 2d 69 6e 64 65 6e | ook.*pre-reply-hook*.'sync-inden |
| 2d7740 | 74 61 74 69 6f 6e 2d 74 6f 2d 65 6d 61 63 73 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 6f 75 | tation-to-emacs)..(defun.make-ou |
| 2d7760 | 74 70 75 74 2d 66 75 6e 63 74 69 6f 6e 2d 66 6f 72 2d 74 61 72 67 65 74 20 28 63 6f 6e 6e 65 63 | tput-function-for-target.(connec |
| 2d7780 | 74 69 6f 6e 20 74 61 72 67 65 74 29 0a 20 20 22 43 72 65 61 74 65 20 61 20 66 75 6e 63 74 69 6f | tion.target)..."Create.a.functio |
| 2d77a0 | 6e 20 74 6f 20 73 65 6e 64 20 75 73 65 72 20 6f 75 74 70 75 74 20 74 6f 20 61 20 73 70 65 63 69 | n.to.send.user.output.to.a.speci |
| 2d77c0 | 66 69 63 20 54 41 52 47 45 54 20 69 6e 20 45 6d 61 63 73 2e 22 0a 20 20 28 6c 61 6d 62 64 61 20 | fic.TARGET.in.Emacs."...(lambda. |
| 2d77e0 | 28 73 74 72 69 6e 67 29 0a 20 20 20 20 28 73 77 61 6e 6b 3a 3a 77 69 74 68 2d 63 6f 6e 6e 65 63 | (string).....(swank::with-connec |
| 2d7800 | 74 69 6f 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 73 69 | tion.(connection).......(with-si |
| 2d7820 | 6d 70 6c 65 2d 72 65 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 28 61 62 6f 72 74 20 22 41 | mple-restart...........(abort."A |
| 2d7840 | 62 6f 72 74 20 73 65 6e 64 69 6e 67 20 6f 75 74 70 75 74 20 74 6f 20 45 6d 61 63 73 2e 22 29 0a | bort.sending.output.to.Emacs."). |
| 2d7860 | 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 3a 3a 73 65 6e 64 2d 74 6f 2d 65 6d 61 63 73 20 60 28 | ........(swank::send-to-emacs.`( |
| 2d7880 | 3a 77 72 69 74 65 2d 73 74 72 69 6e 67 20 2c 73 74 72 69 6e 67 20 2c 74 61 72 67 65 74 29 29 29 | :write-string.,string.,target))) |
| 2d78a0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 2d 66 | )))..(defun.make-output-stream-f |
| 2d78c0 | 6f 72 2d 74 61 72 67 65 74 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 61 72 67 65 74 29 0a 20 20 | or-target.(connection.target)... |
| 2d78e0 | 22 43 72 65 61 74 65 20 61 20 73 74 72 65 61 6d 20 74 68 61 74 20 73 65 6e 64 73 20 6f 75 74 70 | "Create.a.stream.that.sends.outp |
| 2d7900 | 75 74 20 74 6f 20 61 20 73 70 65 63 69 66 69 63 20 54 41 52 47 45 54 20 69 6e 20 45 6d 61 63 73 | ut.to.a.specific.TARGET.in.Emacs |
| 2d7920 | 2e 22 0a 20 20 28 6d 61 6b 65 2d 6f 75 74 70 75 74 2d 73 74 72 65 61 6d 20 28 6d 61 6b 65 2d 6f | ."...(make-output-stream.(make-o |
| 2d7940 | 75 74 70 75 74 2d 66 75 6e 63 74 69 6f 6e 2d 66 6f 72 2d 74 61 72 67 65 74 20 63 6f 6e 6e 65 63 | utput-function-for-target.connec |
| 2d7960 | 74 69 6f 6e 20 74 61 72 67 65 74 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 54 65 73 74 69 6e 67 20 0a | tion.target)))....;;;;.Testing.. |
| 2d7980 | 0a 28 64 65 66 73 6c 69 6d 65 66 75 6e 20 69 6f 2d 73 70 65 65 64 2d 74 65 73 74 20 28 26 6f 70 | .(defslimefun.io-speed-test.(&op |
| 2d79a0 | 74 69 6f 6e 61 6c 20 28 6e 20 31 30 30 30 29 20 28 6d 20 31 29 29 0a 20 20 28 6c 65 74 2a 20 28 | tional.(n.1000).(m.1))...(let*.( |
| 2d79c0 | 28 73 20 2a 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 20 20 20 20 20 28 | (s.*standard-output*)..........( |
| 2d79e0 | 2a 74 72 61 63 65 2d 6f 75 74 70 75 74 2a 20 28 6d 61 6b 65 2d 62 72 6f 61 64 63 61 73 74 2d 73 | *trace-output*.(make-broadcast-s |
| 2d7a00 | 74 72 65 61 6d 20 73 20 2a 6c 6f 67 2d 6f 75 74 70 75 74 2a 29 29 29 0a 20 20 20 20 28 74 69 6d | tream.s.*log-output*))).....(tim |
| 2d7a20 | 65 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 | e.(progn.............(dotimes.(i |
| 2d7a40 | 20 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 73 20 22 7e 44 20 | .n)...............(format.s."~D. |
| 2d7a60 | 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 7e 25 22 20 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | abcdefghijklm~%".i)............. |
| 2d7a80 | 20 20 28 77 68 65 6e 20 28 7a 65 72 6f 70 20 28 6d 6f 64 20 6e 20 6d 29 29 0a 20 20 20 20 20 20 | ..(when.(zerop.(mod.n.m))....... |
| 2d7aa0 | 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 73 29 29 29 0a 20 20 | ..........(finish-output.s)))... |
| 2d7ac0 | 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 70 75 74 20 73 29 0a 20 20 20 20 | ..........(finish-output.s)..... |
| 2d7ae0 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a | ........(when.*emacs-connection* |
| 2d7b00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 2d 69 6e 2d 65 6d 61 63 73 20 27 28 | ...............(eval-in-emacs.'( |
| 2d7b20 | 6d 65 73 73 61 67 65 20 22 64 6f 6e 65 2e 22 29 29 29 29 29 0a 20 20 20 20 28 74 65 72 70 72 69 | message."done."))))).....(terpri |
| 2d7b40 | 20 2a 74 72 61 63 65 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 28 66 69 6e 69 73 68 2d 6f 75 74 | .*trace-output*).....(finish-out |
| 2d7b60 | 70 75 74 20 2a 74 72 61 63 65 2d 6f 75 74 70 75 74 2a 29 0a 20 20 20 20 6e 69 6c 29 29 0a 0a 28 | put.*trace-output*).....nil))..( |
| 2d7b80 | 64 65 66 73 6c 69 6d 65 66 75 6e 20 66 6c 6f 77 2d 63 6f 6e 74 72 6f 6c 2d 74 65 73 74 20 28 6e | defslimefun.flow-control-test.(n |
| 2d7ba0 | 20 64 65 6c 61 79 29 0a 20 20 28 6c 65 74 20 28 28 73 74 72 65 61 6d 20 28 6d 61 6b 65 2d 6f 75 | .delay)...(let.((stream.(make-ou |
| 2d7bc0 | 74 70 75 74 2d 73 74 72 65 61 6d 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | tput-stream...................(l |
| 2d7be0 | 65 74 20 28 28 63 6f 6e 6e 20 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 29 29 0a 20 | et.((conn.*emacs-connection*)).. |
| 2d7c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 74 72 69 6e | ..................(lambda.(strin |
| 2d7c20 | 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 | g)......................(declare |
| 2d7c40 | 20 28 69 67 6e 6f 72 65 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(ignore.string))............... |
| 2d7c60 | 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 63 6f 6e 6e 29 0a 20 | .......(with-connection.(conn).. |
| 2d7c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6e 64 2d 74 6f 2d 65 | ......................(send-to-e |
| 2d7ca0 | 6d 61 63 73 20 60 28 3a 74 65 73 74 2d 64 65 6c 61 79 20 2c 64 65 6c 61 79 29 29 29 29 29 29 29 | macs.`(:test-delay.,delay))))))) |
| 2d7cc0 | 29 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 6e 29 0a 20 20 20 20 20 20 28 70 72 69 6e | ).....(dotimes.(i.n).......(prin |
| 2d7ce0 | 74 20 69 20 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 20 | t.i.stream).......(force-output. |
| 2d7d00 | 73 74 72 65 61 6d 29 0a 20 20 20 20 20 20 28 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 73 73 61 67 | stream).......(background-messag |
| 2d7d20 | 65 20 22 66 6c 6f 77 2d 63 6f 6e 74 72 6f 6c 2d 74 65 73 74 3a 20 7e 64 22 20 69 29 29 29 29 0a | e."flow-control-test:.~d".i)))). |
| 2d7d40 | 0a 0c 0a 28 64 65 66 75 6e 20 62 65 66 6f 72 65 2d 69 6e 69 74 20 28 76 65 72 73 69 6f 6e 20 6c | ...(defun.before-init.(version.l |
| 2d7d60 | 6f 61 64 2d 70 61 74 68 29 0a 20 20 28 70 75 73 68 6e 65 77 20 3a 73 77 61 6e 6b 20 2a 66 65 61 | oad-path)...(pushnew.:swank.*fea |
| 2d7d80 | 74 75 72 65 73 2a 29 0a 20 20 28 73 65 74 71 20 2a 73 77 61 6e 6b 2d 77 69 72 65 2d 70 72 6f 74 | tures*)...(setq.*swank-wire-prot |
| 2d7da0 | 6f 63 6f 6c 2d 76 65 72 73 69 6f 6e 2a 20 76 65 72 73 69 6f 6e 29 0a 20 20 28 73 65 74 71 20 2a | ocol-version*.version)...(setq.* |
| 2d7dc0 | 6c 6f 61 64 2d 70 61 74 68 2a 20 6c 6f 61 64 2d 70 61 74 68 29 29 0a 0a 28 64 65 66 75 6e 20 69 | load-path*.load-path))..(defun.i |
| 2d7de0 | 6e 69 74 20 28 29 0a 20 20 28 72 75 6e 2d 68 6f 6f 6b 20 2a 61 66 74 65 72 2d 69 6e 69 74 2d 68 | nit.()...(run-hook.*after-init-h |
| 2d7e00 | 6f 6f 6b 2a 29 29 0a 0a 3b 3b 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 3a 0a 3b 3b 20 63 | ook*))..;;.Local.Variables:.;;.c |
| 2d7e20 | 6f 64 69 6e 67 3a 20 6c 61 74 69 6e 2d 31 2d 75 6e 69 78 0a 3b 3b 20 69 6e 64 65 6e 74 2d 74 61 | oding:.latin-1-unix.;;.indent-ta |
| 2d7e40 | 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 3b 3b 20 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 3a 20 | bs-mode:.nil.;;.outline-regexp:. |
| 2d7e60 | 22 3b 3b 3b 3b 3b 2a 22 0a 3b 3b 20 45 6e 64 3a 0a 0a 3b 3b 3b 20 73 77 61 6e 6b 2e 6c 69 73 70 | ";;;;;*".;;.End:..;;;.swank.lisp |
| 2d7e80 | 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ends.here...................... |
| 2d7ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d7ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d7ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d7f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d7f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d7f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d7f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d7f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d7fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d7fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d7fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d8000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 4e 45 57 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/NEWS................. |
| 2d8020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d8040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d8060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 2d8080 | 30 30 35 33 31 31 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 31 37 31 35 00 20 30 00 00 00 | 0053117.00000000000.011715..0... |
| 2d80a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d80c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d80e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d8100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 2d8120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 2d8140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d8160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d8180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d81a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d81c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d81e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2d8200 | 2a 20 53 4c 49 4d 45 20 4e 65 77 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | *.SLIME.News.................... |
| 2d8220 | 20 20 20 20 20 20 20 20 20 20 20 20 2d 2a 2d 20 6d 6f 64 65 3a 20 6f 75 74 6c 69 6e 65 3b 20 63 | ............-*-.mode:.outline;.c |
| 2d8240 | 6f 64 69 6e 67 3a 20 75 74 66 2d 38 20 2d 2a 2d 0a 2a 20 32 2e 33 31 20 28 44 65 63 65 6d 62 65 | oding:.utf-8.-*-.*.2.31.(Decembe |
| 2d8260 | 72 20 32 30 32 34 29 0a 2a 2a 20 54 68 65 20 52 45 50 4c 20 6e 6f 77 20 72 75 6e 73 20 6f 6e 20 | r.2024).**.The.REPL.now.runs.on. |
| 2d8280 | 74 68 65 20 6d 61 69 6e 20 74 68 72 65 61 64 2e 0a 2a 2a 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 | the.main.thread..**.inferior-lis |
| 2d82a0 | 70 20 6f 75 74 70 75 74 20 69 73 20 73 68 6f 77 6e 20 69 6e 20 74 68 65 20 52 45 50 4c 2e 0a 2a | p.output.is.shown.in.the.REPL..* |
| 2d82c0 | 2a 20 41 64 64 65 64 20 4d 2d 78 20 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 72 65 73 74 61 72 74 | *.Added.M-x.sldb-inspect-restart |
| 2d82e0 | 20 61 6e 64 20 4d 2d 78 20 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 66 72 61 6d 65 2d 66 75 6e 63 | .and.M-x.sldb-inspect-frame-func |
| 2d8300 | 74 69 6f 6e 0a 0a 2a 20 32 2e 33 30 20 28 41 70 72 69 6c 20 32 30 32 34 29 0a 2a 2a 20 42 65 74 | tion..*.2.30.(April.2024).**.Bet |
| 2d8320 | 74 65 72 20 49 2f 4f 20 70 65 72 66 6f 72 6d 61 6e 63 65 0a 2a 2a 20 4d 61 63 72 6f 65 78 70 61 | ter.I/O.performance.**.Macroexpa |
| 2d8340 | 6e 64 20 66 6f 72 20 6d 61 63 72 6f 6c 65 74 0a 0a 2a 20 32 2e 32 39 2e 31 20 28 4a 61 6e 75 61 | nd.for.macrolet..*.2.29.1.(Janua |
| 2d8360 | 72 79 20 32 30 32 34 29 0a 2a 2a 20 43 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 77 69 74 68 20 6f | ry.2024).**.Compatibility.with.o |
| 2d8380 | 6c 64 65 72 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 0a 2a 2a 20 54 79 70 65 20 65 72 72 6f | lder.Emacs.versions.**.Type.erro |
| 2d83a0 | 72 20 69 6e 20 75 74 66 38 2d 65 6e 63 6f 64 65 0a 0a 2a 20 32 2e 32 39 20 28 4a 61 6e 75 61 72 | r.in.utf8-encode..*.2.29.(Januar |
| 2d83c0 | 79 20 32 30 32 34 29 0a 2a 2a 20 43 6f 72 65 0a 2a 2a 2a 20 4c 6f 61 64 69 6e 67 20 74 68 65 20 | y.2024).**.Core.***.Loading.the. |
| 2d83e0 | 73 79 73 74 65 6d 20 22 73 77 61 6e 6b 22 20 77 69 74 68 20 41 53 44 46 20 70 72 6f 64 75 63 65 | system."swank".with.ASDF.produce |
| 2d8400 | 73 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 61 72 74 69 66 61 63 74 73 0a 2a 2a 20 41 42 43 4c 0a | s.compilation.artifacts.**.ABCL. |
| 2d8420 | 2a 2a 2a 20 46 69 78 20 6d 69 73 73 69 6e 67 20 73 6f 75 72 63 65 20 70 6f 73 69 74 69 6f 6e 20 | ***.Fix.missing.source.position. |
| 2d8440 | 66 72 6f 6d 20 73 74 72 69 6e 67 20 62 75 66 66 65 72 20 6c 6f 63 61 74 69 6f 6e 0a 2a 2a 20 43 | from.string.buffer.location.**.C |
| 2d8460 | 4c 41 53 50 0a 2a 2a 2a 20 41 64 64 20 69 6e 74 65 72 66 61 63 65 20 74 6f 20 64 65 62 75 67 20 | LASP.***.Add.interface.to.debug. |
| 2d8480 | 73 74 65 70 70 65 72 0a 2a 2a 2a 20 55 70 64 61 74 65 20 78 72 65 66 20 69 6d 70 6c 6d 65 6e 74 | stepper.***.Update.xref.implment |
| 2d84a0 | 61 74 69 6f 6e 0a 2a 2a 2a 20 43 6c 6f 73 65 20 74 65 6d 70 20 66 69 6c 65 20 62 65 66 6f 72 65 | ation.***.Close.temp.file.before |
| 2d84c0 | 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 0a 2a 2a 2a 20 46 69 78 20 64 65 74 65 63 74 69 6f 6e 20 | .compile-file.***.Fix.detection. |
| 2d84e0 | 6f 66 20 73 65 72 76 65 2d 65 76 65 6e 74 20 6d 6f 64 75 6c 65 0a 2a 2a 20 42 6f 72 69 6e 67 20 | of.serve-event.module.**.Boring. |
| 2d8500 | 62 75 67 20 66 69 78 65 73 0a 0a 2a 20 32 2e 32 38 20 28 4a 61 6e 75 61 72 79 20 32 30 32 33 29 | bug.fixes..*.2.28.(January.2023) |
| 2d8520 | 0a 2a 2a 20 4f 70 65 72 61 74 69 6f 6e 73 20 74 68 61 74 20 70 72 6f 64 75 63 65 20 61 20 6c 6f | .**.Operations.that.produce.a.lo |
| 2d8540 | 74 20 6f 66 20 6f 75 74 70 75 74 20 63 61 6e 20 62 65 20 69 6e 74 65 72 72 75 70 74 65 64 20 6d | t.of.output.can.be.interrupted.m |
| 2d8560 | 6f 72 65 20 65 61 73 69 6c 79 2e 20 0a 2a 2a 20 49 6d 70 72 6f 76 65 64 20 63 6f 6d 70 61 74 69 | ore.easily...**.Improved.compati |
| 2d8580 | 62 69 6c 69 74 79 20 77 69 74 68 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 61 6e 64 20 | bility.with.implementations.and. |
| 2d85a0 | 6e 65 77 65 72 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 2e 0a 2a 2a 20 61 62 63 6c 0a 2a 2a | newer.Emacs.versions..**.abcl.** |
| 2d85c0 | 2a 20 46 69 78 20 69 6e 73 70 65 63 74 6f 72 20 66 61 69 6c 75 72 65 20 66 6f 72 20 6f 70 65 6e | *.Fix.inspector.failure.for.open |
| 2d85e0 | 6a 64 6b 31 36 2b 20 4a 61 76 61 20 66 69 65 6c 64 73 0a 0a 2a 20 32 2e 32 37 20 28 4a 61 6e 75 | jdk16+.Java.fields..*.2.27.(Janu |
| 2d8600 | 61 72 79 20 32 30 32 32 29 0a 2a 2a 20 4d 6f 73 74 6c 79 20 69 6d 70 72 6f 76 65 64 20 63 6f 6d | ary.2022).**.Mostly.improved.com |
| 2d8620 | 70 61 74 69 62 69 6c 69 74 79 20 77 69 74 68 20 64 69 66 66 65 72 65 6e 74 20 69 6d 70 6c 65 6d | patibility.with.different.implem |
| 2d8640 | 65 6e 74 61 74 69 6f 6e 73 20 61 6e 64 20 62 75 67 20 66 69 78 65 73 2e 0a 0a 2a 20 32 2e 32 36 | entations.and.bug.fixes...*.2.26 |
| 2d8660 | 2e 31 20 28 44 65 63 65 6d 62 65 72 20 32 30 32 30 29 0a 2a 2a 20 53 42 43 4c 20 63 6f 6d 70 61 | .1.(December.2020).**.SBCL.compa |
| 2d8680 | 74 69 62 69 6c 69 74 79 0a 0a 2a 20 32 2e 32 36 20 28 41 75 67 75 73 74 20 32 30 32 30 29 0a 2a | tibility..*.2.26.(August.2020).* |
| 2d86a0 | 2a 20 46 69 78 20 63 6f 70 79 69 6e 67 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 0a 0a 2a 20 32 | *.Fix.copying.presentations..*.2 |
| 2d86c0 | 2e 32 35 20 28 4a 75 6e 65 20 32 30 32 30 29 0a 2a 2a 20 43 6f 72 65 0a 2a 2a 2a 20 73 6c 69 6d | .25.(June.2020).**.Core.***.slim |
| 2d86e0 | 65 2d 63 6f 6e 6e 65 63 74 20 74 61 6b 65 73 20 61 64 64 69 74 69 6f 6e 61 6c 20 61 72 67 75 6d | e-connect.takes.additional.argum |
| 2d8700 | 65 6e 74 73 20 66 6f 72 20 6f 70 65 6e 2d 6e 65 74 77 6f 72 6b 2d 73 74 72 65 61 6d 0a 2a 2a 20 | ents.for.open-network-stream.**. |
| 2d8720 | 73 6c 69 6d 65 2d 61 73 64 66 0a 2a 2a 2a 20 52 65 6d 6f 76 65 64 20 63 6f 64 65 20 70 72 6f 62 | slime-asdf.***.Removed.code.prob |
| 2d8740 | 6c 65 6d 61 74 69 63 20 66 6f 72 20 6e 6f 6e 2d 53 4d 50 20 4c 69 73 70 77 6f 72 6b 73 0a 2a 2a | lematic.for.non-SMP.Lispworks.** |
| 2d8760 | 20 73 6c 69 6d 65 2d 66 61 6e 63 79 0a 2a 2a 2a 20 4e 6f 77 20 6c 6f 61 64 65 64 20 62 79 20 64 | .slime-fancy.***.Now.loaded.by.d |
| 2d8780 | 65 66 61 75 6c 74 0a 2a 2a 2a 20 49 6e 63 6c 75 64 65 20 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 | efault.***.Include.slime-indenta |
| 2d87a0 | 74 69 6f 6e 0a 2a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 0a 2a 2a 2a 20 4e 65 77 20 6f 70 74 69 6f | tion.**.slime-repl.***.New.optio |
| 2d87c0 | 6e 3a 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 2d 75 73 65 2d 6d 61 72 6b 0a 2a | n:.slime-repl-history-use-mark.* |
| 2d87e0 | 2a 2a 20 54 77 65 61 6b 65 64 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 65 64 2d 6f 75 | **.Tweaked.slime-repl-inputed-ou |
| 2d8800 | 74 70 75 74 2d 66 61 63 65 20 66 6f 72 20 64 61 72 6b 20 62 61 63 6b 67 72 6f 75 6e 64 73 0a 2a | tput-face.for.dark.backgrounds.* |
| 2d8820 | 2a 20 73 6c 69 6d 65 2d 73 65 6c 65 63 74 6f 72 0a 2a 2a 2a 20 41 64 64 20 70 72 65 66 69 78 20 | *.slime-selector.***.Add.prefix. |
| 2d8840 | 61 72 67 75 6d 65 6e 74 20 66 6f 72 20 6f 70 65 6e 69 6e 67 20 77 69 6e 64 6f 77 20 69 6e 20 61 | argument.for.opening.window.in.a |
| 2d8860 | 6e 6f 74 68 65 72 20 77 69 6e 64 6f 77 0a 2a 2a 20 73 6c 69 6d 65 2d 70 61 63 6b 61 67 65 2d 66 | nother.window.**.slime-package-f |
| 2d8880 | 75 0a 2a 2a 2a 20 48 61 6e 64 6c 65 20 55 49 4f 50 3a 44 45 46 49 4e 45 2d 50 41 43 4b 41 47 45 | u.***.Handle.UIOP:DEFINE-PACKAGE |
| 2d88a0 | 0a 2a 2a 20 41 42 43 4c 20 62 61 63 6b 65 6e 64 0a 4e 75 6d 65 72 6f 75 73 20 61 64 64 69 74 69 | .**.ABCL.backend.Numerous.additi |
| 2d88c0 | 6f 6e 73 2c 20 69 6e 63 6c 75 64 69 6e 67 0a 2a 2a 2a 20 42 65 74 74 65 72 20 61 62 6c 65 20 74 | ons,.including.***.Better.able.t |
| 2d88e0 | 6f 20 69 6e 73 70 65 63 74 20 63 61 6c 6c 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2a 2a 20 44 72 61 | o.inspect.call.arguments.***.Dra |
| 2d8900 | 6d 61 74 69 63 20 69 6d 70 72 6f 76 65 6d 65 6e 74 73 20 69 6e 20 69 6e 73 70 65 63 74 69 6e 67 | matic.improvements.in.inspecting |
| 2d8920 | 20 4a 61 76 61 20 6f 62 6a 65 63 74 73 0a 2a 2a 2a 20 45 6e 61 62 6c 65 20 67 6f 74 6f 20 73 6f | .Java.objects.***.Enable.goto.so |
| 2d8940 | 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 20 74 6f 20 66 69 6e 64 20 64 65 66 69 6e 69 74 69 6f 6e | urce.location.to.find.definition |
| 2d8960 | 73 20 69 6e 20 4a 41 52 20 61 72 63 68 69 76 65 73 0a 2a 2a 2a 20 46 49 4e 44 2d 44 45 46 49 4e | s.in.JAR.archives.***.FIND-DEFIN |
| 2d8980 | 49 54 49 4f 4e 53 20 69 6e 63 6c 75 64 65 20 73 79 6d 62 6f 6c 73 20 61 6e 64 20 73 70 65 63 69 | ITIONS.include.symbols.and.speci |
| 2d89a0 | 61 6c 73 20 64 65 66 69 6e 65 64 20 69 6e 20 4a 61 76 61 0a 2a 2a 20 43 6c 61 73 70 20 62 61 63 | als.defined.in.Java.**.Clasp.bac |
| 2d89c0 | 6b 65 6e 64 0a 2a 2a 2a 20 49 6d 70 72 6f 76 65 64 20 73 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f | kend.***.Improved.source.locatio |
| 2d89e0 | 6e 73 0a 2a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 65 64 20 70 72 6f 66 69 6c 69 6e 67 20 76 69 61 | ns.***.Implemented.profiling.via |
| 2d8a00 | 20 6d 65 74 65 72 69 6e 67 2e 6c 69 73 70 0a 2a 2a 20 53 42 43 4c 20 62 61 63 6b 65 6e 64 0a 2a | .metering.lisp.**.SBCL.backend.* |
| 2d8a20 | 2a 2a 20 44 69 73 63 61 72 64 20 61 75 74 6f 2d 67 65 6e 65 72 61 74 65 64 20 44 45 46 47 45 4e | **.Discard.auto-generated.DEFGEN |
| 2d8a40 | 45 52 49 43 73 20 66 72 6f 6d 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 73 0a 0a 2a 20 32 | ERICs.from.find-definitions..*.2 |
| 2d8a60 | 2e 32 34 20 28 4d 61 79 20 32 30 31 39 29 0a 2a 2a 2a 20 4d 69 6e 6f 72 20 69 6d 70 72 6f 76 65 | .24.(May.2019).***.Minor.improve |
| 2d8a80 | 6d 65 6e 74 73 2e 0a 0a 2a 20 32 2e 32 33 20 28 44 65 63 65 6d 62 65 72 20 32 30 31 38 29 0a 2a | ments...*.2.23.(December.2018).* |
| 2d8aa0 | 2a 2a 20 49 6d 70 72 6f 76 65 64 20 63 6f 6d 70 61 74 69 62 6c 69 74 79 20 77 69 74 68 20 64 69 | **.Improved.compatiblity.with.di |
| 2d8ac0 | 66 66 65 72 65 6e 74 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 45 6d 61 63 73 2c 20 53 42 43 4c 2c | fferent.versions.of.Emacs,.SBCL, |
| 2d8ae0 | 20 43 6c 61 73 70 2c 20 41 6c 6c 65 67 72 6f 2e 0a 2a 2a 2a 20 42 75 67 20 66 69 78 65 73 0a 0a | .Clasp,.Allegro..***.Bug.fixes.. |
| 2d8b00 | 2a 20 32 2e 32 32 20 28 4a 75 6c 79 20 32 30 31 38 29 0a 2a 2a 2a 20 49 6d 70 72 6f 76 65 64 20 | *.2.22.(July.2018).***.Improved. |
| 2d8b20 | 63 6f 6d 70 61 74 69 62 6c 69 74 79 20 77 69 74 68 20 45 6d 61 63 73 20 32 36 0a 0a 2a 20 32 2e | compatiblity.with.Emacs.26..*.2. |
| 2d8b40 | 32 31 20 28 4a 75 6e 65 20 32 30 31 38 29 0a 2a 2a 2a 20 49 6d 70 72 6f 76 65 64 20 63 6f 6d 70 | 21.(June.2018).***.Improved.comp |
| 2d8b60 | 61 74 69 62 6c 69 74 79 20 77 69 74 68 20 45 6d 61 63 73 20 32 36 0a 2a 2a 2a 20 4d 65 7a 7a 61 | atiblity.with.Emacs.26.***.Mezza |
| 2d8b80 | 6e 6f 20 73 75 70 70 6f 72 74 0a 0a 2a 20 32 2e 32 30 20 28 41 75 67 75 73 74 20 32 30 31 37 29 | no.support..*.2.20.(August.2017) |
| 2d8ba0 | 0a 2a 2a 20 43 6f 72 65 0a 2a 2a 2a 20 4d 6f 72 65 20 73 65 63 75 72 65 20 68 61 6e 64 6c 69 6e | .**.Core.***.More.secure.handlin |
| 2d8bc0 | 67 20 6f 66 20 7e 2f 2e 73 6c 69 6d 65 2d 73 65 63 72 65 74 0a 2a 2a 20 53 42 43 4c 20 62 61 63 | g.of.~/.slime-secret.**.SBCL.bac |
| 2d8be0 | 6b 65 6e 64 0a 2a 2a 2a 20 43 6f 6d 70 61 74 69 62 6c 69 74 79 20 77 69 74 68 20 74 68 65 20 6c | kend.***.Compatiblity.with.the.l |
| 2d8c00 | 61 74 65 73 74 20 53 42 43 4c 20 61 6e 64 20 6f 6c 64 65 72 20 53 42 43 4c 2e 0a 2a 2a 20 45 43 | atest.SBCL.and.older.SBCL..**.EC |
| 2d8c20 | 4c 20 62 61 63 6b 65 6e 64 0a 2a 2a 2a 20 4e 75 6d 65 72 6f 75 73 20 65 6e 68 61 6e 63 65 6d 65 | L.backend.***.Numerous.enhanceme |
| 2d8c40 | 6e 74 73 0a 0a 2a 20 32 2e 31 39 20 28 46 65 62 72 75 61 72 79 20 32 30 31 37 29 0a 2a 2a 20 43 | nts..*.2.19.(February.2017).**.C |
| 2d8c60 | 6f 72 65 0a 2a 2a 2a 20 46 75 6e 63 74 69 6f 6e 20 60 63 72 65 61 74 65 2d 73 65 72 76 65 72 60 | ore.***.Function.`create-server` |
| 2d8c80 | 20 6e 6f 77 20 61 63 63 65 70 74 73 20 6f 70 74 69 6f 6e 61 6c 20 60 69 6e 74 65 72 66 61 63 65 | .now.accepts.optional.`interface |
| 2d8ca0 | 60 20 61 72 67 75 6d 65 6e 74 2e 0a 53 77 61 6e 6b 20 77 69 6c 6c 20 62 69 6e 64 20 74 68 65 20 | `.argument..Swank.will.bind.the. |
| 2d8cc0 | 50 4f 52 54 20 6f 6e 20 74 68 69 73 20 69 6e 74 65 72 66 61 63 65 2e 20 42 79 20 64 65 66 61 75 | PORT.on.this.interface..By.defau |
| 2d8ce0 | 6c 74 2c 20 69 6e 74 65 72 66 61 63 65 20 69 73 20 31 32 37 2e 30 2e 30 2e 31 2e 0a 54 68 69 73 | lt,.interface.is.127.0.0.1..This |
| 2d8d00 | 20 61 72 67 75 6d 65 6e 74 20 63 61 6e 20 62 65 20 75 73 65 64 2c 20 66 6f 72 20 65 78 61 6d 70 | .argument.can.be.used,.for.examp |
| 2d8d20 | 6c 65 2c 20 74 6f 20 62 69 6e 64 20 73 77 61 6e 6b 20 6f 6e 20 49 50 76 36 20 69 6e 74 65 72 66 | le,.to.bind.swank.on.IPv6.interf |
| 2d8d40 | 61 63 65 20 22 3a 3a 31 22 2e 0a 2a 2a 20 53 42 43 4c 20 62 61 63 6b 65 6e 64 0a 2a 2a 2a 20 4e | ace."::1"..**.SBCL.backend.***.N |
| 2d8d60 | 6f 77 20 73 77 61 6e 6b 20 63 61 6e 20 62 65 20 62 6f 75 6e 64 20 74 6f 20 49 50 76 36 20 69 6e | ow.swank.can.be.bound.to.IPv6.in |
| 2d8d80 | 74 65 72 66 61 63 65 20 61 6e 64 20 63 61 6e 20 77 6f 72 6b 20 6f 6e 20 49 50 76 36 2d 6f 6e 6c | terface.and.can.work.on.IPv6-onl |
| 2d8da0 | 79 20 6d 61 63 68 69 6e 65 73 2e 0a 2a 2a 2a 20 43 6f 6d 70 61 74 69 62 6c 69 74 79 20 77 69 74 | y.machines..***.Compatiblity.wit |
| 2d8dc0 | 68 20 74 68 65 20 6c 61 74 65 73 74 20 53 42 43 4c 0a 0a 2a 20 32 2e 31 38 20 28 4d 61 79 20 32 | h.the.latest.SBCL..*.2.18.(May.2 |
| 2d8de0 | 30 31 36 29 0a 2a 2a 2a 20 4d 6f 73 74 6c 79 20 62 75 67 20 66 69 78 65 73 20 61 6e 64 20 63 6f | 016).***.Mostly.bug.fixes.and.co |
| 2d8e00 | 6d 70 61 74 69 62 69 6c 69 74 79 20 77 69 74 68 20 6e 65 77 65 72 20 69 6d 70 6c 65 6d 65 6e 74 | mpatibility.with.newer.implement |
| 2d8e20 | 61 74 69 6f 6e 73 0a 0a 2a 20 32 2e 31 37 20 28 46 65 62 72 75 61 72 79 20 32 30 31 36 29 0a 2a | ations..*.2.17.(February.2016).* |
| 2d8e40 | 2a 20 43 6f 6e 74 72 69 62 73 0a 2a 2a 2a 20 4e 65 77 20 63 6f 6e 74 72 69 62 2c 20 73 6c 69 6d | *.Contribs.***.New.contrib,.slim |
| 2d8e60 | 65 2d 6d 61 63 72 6f 73 74 65 70 2c 20 66 6f 72 20 6d 6f 72 65 20 61 64 76 61 6e 63 65 64 20 69 | e-macrostep,.for.more.advanced.i |
| 2d8e80 | 6e 2d 70 6c 61 63 65 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 2e 0a 2a 2a 2a 20 4e 65 77 20 | n-place.macroexpansion..***.New. |
| 2d8ea0 | 63 6f 6e 74 72 69 62 2c 20 73 6c 69 6d 65 2d 71 75 69 63 6b 6c 69 73 70 2e 0a 0a 2a 20 32 2e 31 | contrib,.slime-quicklisp...*.2.1 |
| 2d8ec0 | 36 20 28 4a 61 6e 75 61 72 79 20 32 30 31 36 29 0a 2a 2a 2a 20 41 75 74 6f 2d 63 6f 6d 70 6c 65 | 6.(January.2016).***.Auto-comple |
| 2d8ee0 | 74 69 6f 6e 20 6e 6f 77 20 73 75 70 70 6f 72 74 73 20 70 61 63 6b 61 67 65 2d 6c 6f 63 61 6c 20 | tion.now.supports.package-local. |
| 2d8f00 | 6e 69 63 6b 6e 61 6d 65 73 20 6f 6e 20 53 42 43 4c 20 61 6e 64 20 41 42 43 4c 2e 0a 2a 2a 2a 20 | nicknames.on.SBCL.and.ABCL..***. |
| 2d8f20 | 42 75 67 20 66 69 78 65 73 20 61 6e 64 20 75 70 64 61 74 65 73 20 66 6f 72 20 6e 65 77 65 72 20 | Bug.fixes.and.updates.for.newer. |
| 2d8f40 | 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 0a 0a 2a 20 32 2e 31 35 20 28 41 75 67 75 73 74 | implementations...*.2.15.(August |
| 2d8f60 | 20 32 30 31 35 29 0a 2a 2a 20 43 6f 72 65 0a 2a 2a 2a 20 43 6f 6d 70 6c 65 74 69 6f 6e 73 20 61 | .2015).**.Core.***.Completions.a |
| 2d8f80 | 72 65 20 6e 6f 77 20 64 69 73 70 6c 61 79 65 64 20 77 69 74 68 20 60 63 6f 6d 70 6c 65 74 69 6f | re.now.displayed.with.`completio |
| 2d8fa0 | 6e 2d 61 74 2d 70 6f 69 6e 74 27 2e 0a 54 68 65 20 6e 65 77 20 76 61 72 69 61 62 6c 65 20 60 73 | n-at-point'..The.new.variable.`s |
| 2d8fc0 | 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f | lime-completion-at-point-functio |
| 2d8fe0 | 6e 73 27 20 73 68 6f 75 6c 64 20 6e 6f 77 20 62 65 0a 75 73 65 64 20 74 6f 20 63 75 73 74 6f 6d | ns'.should.now.be.used.to.custom |
| 2d9000 | 69 7a 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 20 20 54 68 65 20 6f 6c 64 20 76 61 72 69 61 62 6c | ize.completion...The.old.variabl |
| 2d9020 | 65 0a 60 73 6c 69 6d 65 2d 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f | e.`slime-complete-symbol-functio |
| 2d9040 | 6e 27 20 73 74 69 6c 6c 20 77 6f 72 6b 73 2c 20 62 75 74 20 69 74 20 69 73 20 63 6f 6e 73 69 64 | n'.still.works,.but.it.is.consid |
| 2d9060 | 65 72 65 64 0a 6f 62 73 6f 6c 65 74 65 20 61 6e 64 20 77 69 6c 6c 20 62 65 20 72 65 6d 6f 76 65 | ered.obsolete.and.will.be.remove |
| 2d9080 | 64 20 65 76 65 6e 74 75 61 6c 6c 79 2e 0a 0a 2a 2a 20 53 42 43 4c 20 62 61 63 6b 65 6e 64 0a 2a | d.eventually...**.SBCL.backend.* |
| 2d90a0 | 2a 2a 20 4d 2d 2e 20 63 61 6e 20 6c 6f 63 61 74 65 20 66 6f 72 6d 73 20 77 69 74 68 69 6e 20 50 | **.M-..can.locate.forms.within.P |
| 2d90c0 | 52 4f 47 4e 2f 4d 41 43 52 4f 4c 45 54 2f 65 74 63 2e 20 4e 65 65 64 73 20 53 42 43 4c 20 31 2e | ROGN/MACROLET/etc..Needs.SBCL.1. |
| 2d90e0 | 32 2e 31 35 20 0a 0a 2a 20 32 2e 31 34 20 28 4a 75 6e 65 20 32 30 31 35 29 0a 2a 2a 20 43 6f 72 | 2.15...*.2.14.(June.2015).**.Cor |
| 2d9100 | 65 0a 2a 2a 2a 20 52 61 74 69 6f 6e 61 6c 73 20 61 72 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e | e.***.Rationals.are.displayed.in |
| 2d9120 | 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 20 61 73 20 66 6c 6f 61 74 73 20 74 6f 6f 0a 2a 2a 2a | .the.echo.area.as.floats.too.*** |
| 2d9140 | 20 53 6f 6d 65 20 6f 66 20 53 4c 44 42 27 73 20 66 61 63 65 73 20 6e 6f 77 20 68 61 76 65 20 4d | .Some.of.SLDB's.faces.now.have.M |
| 2d9160 | 4f 52 45 20 43 4f 4c 4f 52 0a 2a 2a 2a 20 43 6c 69 63 6b 69 6e 67 20 77 69 74 68 20 6d 6f 75 73 | ORE.COLOR.***.Clicking.with.mous |
| 2d9180 | 65 2d 31 20 77 69 74 68 69 6e 20 69 6e 73 70 65 63 74 6f 72 20 64 6f 65 73 20 74 68 69 6e 67 73 | e-1.within.inspector.does.things |
| 2d91a0 | 0a 41 73 20 64 6f 20 6d 6f 75 73 65 2d 36 20 61 6e 64 20 6d 6f 75 73 65 2d 37 2e 20 28 54 68 61 | .As.do.mouse-6.and.mouse-7..(Tha |
| 2d91c0 | 6e 6b 73 20 74 6f 20 41 74 74 69 6c 61 20 4c 65 6e 64 76 61 69 2e 29 0a 0a 2a 2a 20 73 6c 69 6d | nks.to.Attila.Lendvai.)..**.slim |
| 2d91e0 | 65 2d 63 2d 70 2d 63 20 28 43 6f 6d 70 6f 75 6e 64 20 50 72 65 66 69 78 20 43 6f 6d 70 6c 65 74 | e-c-p-c.(Compound.Prefix.Complet |
| 2d9200 | 69 6f 6e 29 0a 2a 2a 2a 20 4e 6f 77 20 74 61 6b 65 73 20 61 20 62 65 74 74 65 72 20 67 75 65 73 | ion).***.Now.takes.a.better.gues |
| 2d9220 | 73 20 61 74 20 73 79 6d 62 6f 6c 20 63 61 73 65 20 28 69 73 73 75 65 20 23 32 33 33 29 0a 0a 2a | s.at.symbol.case.(issue.#233)..* |
| 2d9240 | 2a 20 73 6c 69 6d 65 2d 66 61 6e 63 79 0a 2a 2a 2a 20 73 6c 69 6d 65 2d 6d 64 6f 74 2d 66 75 20 | *.slime-fancy.***.slime-mdot-fu. |
| 2d9260 | 69 73 20 6e 6f 77 20 65 6e 61 62 6c 65 64 20 62 79 20 64 65 66 61 75 6c 74 0a 0a 2a 2a 20 53 42 | is.now.enabled.by.default..**.SB |
| 2d9280 | 43 4c 20 62 61 63 6b 65 6e 64 0a 2a 2a 2a 20 4e 6f 77 20 61 62 6c 65 20 74 6f 20 6a 75 6d 70 20 | CL.backend.***.Now.able.to.jump. |
| 2d92a0 | 74 6f 20 69 72 31 2d 74 72 61 6e 73 6c 61 74 6f 72 73 2c 20 64 65 63 6c 61 69 6d 73 20 61 6e 64 | to.ir1-translators,.declaims.and |
| 2d92c0 | 20 61 6c 69 65 6e 20 74 79 70 65 73 0a 2a 2a 2a 20 56 61 72 69 6f 75 73 20 75 70 64 61 74 65 73 | .alien.types.***.Various.updates |
| 2d92e0 | 20 73 75 70 70 6f 72 74 69 6e 67 20 53 42 43 4c 20 31 2e 32 2e 31 32 0a 0a 2a 2a 20 41 42 43 4c | .supporting.SBCL.1.2.12..**.ABCL |
| 2d9300 | 20 62 61 63 6b 65 6e 64 0a 2a 2a 2a 20 46 69 78 65 64 20 69 6e 73 70 65 63 74 69 6f 6e 20 6f 66 | .backend.***.Fixed.inspection.of |
| 2d9320 | 20 66 72 61 6d 65 2d 6c 6f 63 61 6c 73 20 69 6e 20 74 68 65 20 64 65 62 75 67 67 65 72 0a 28 54 | .frame-locals.in.the.debugger.(T |
| 2d9340 | 68 61 6e 6b 73 20 74 6f 20 4d 61 72 6b 20 45 76 65 6e 73 6f 6e 2e 29 0a 0a 2a 20 32 2e 31 33 20 | hanks.to.Mark.Evenson.)..*.2.13. |
| 2d9360 | 28 4d 61 72 63 68 20 32 30 31 35 29 0a 0a 2a 2a 20 43 6f 72 65 0a 2a 2a 2a 20 73 6c 69 6d 65 2d | (March.2015)..**.Core.***.slime- |
| 2d9380 | 63 79 63 6c 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 68 61 73 20 62 65 65 6e 20 64 65 70 72 65 | cycle-connections.has.been.depre |
| 2d93a0 | 63 61 74 65 64 0a 49 74 20 68 61 73 20 62 65 65 6e 20 72 65 70 6c 61 63 65 64 20 62 79 20 73 6c | cated.It.has.been.replaced.by.sl |
| 2d93c0 | 69 6d 65 2d 6e 65 78 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 61 6e 64 0a 73 6c 69 6d 65 2d 70 72 | ime-next-connection.and.slime-pr |
| 2d93e0 | 65 76 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 41 20 73 68 6f 72 74 63 75 74 20 66 6f 72 20 74 68 | ev-connection..A.shortcut.for.th |
| 2d9400 | 65 20 6c 61 74 74 65 72 20 68 61 73 20 62 65 65 6e 20 61 64 64 65 64 20 74 6f 0a 73 6c 69 6d 65 | e.latter.has.been.added.to.slime |
| 2d9420 | 2d 73 65 6c 65 63 74 6f 72 2e 0a 0a 2a 2a 20 73 6c 69 6d 65 2d 6d 64 6f 74 2d 66 75 0a 54 68 65 | -selector...**.slime-mdot-fu.The |
| 2d9440 | 20 73 6c 69 6d 65 2d 6d 64 6f 74 2d 66 75 20 63 6f 6e 74 72 69 62 20 68 61 73 20 62 65 65 6e 20 | .slime-mdot-fu.contrib.has.been. |
| 2d9460 | 62 72 6f 75 67 68 74 20 62 61 63 6b 20 74 6f 20 6c 69 66 65 2e 20 28 54 68 61 6e 6b 73 20 74 6f | brought.back.to.life..(Thanks.to |
| 2d9480 | 20 43 68 61 72 6c 65 73 0a 5a 68 61 6e 67 2e 20 49 73 73 75 65 73 20 23 38 2c 20 23 32 33 31 20 | .Charles.Zhang..Issues.#8,.#231. |
| 2d94a0 | 61 6e 64 20 23 32 33 32 2e 29 0a 0a 2a 2a 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 | and.#232.)..**.slime-typeout-fra |
| 2d94c0 | 6d 65 0a 54 68 65 20 73 6c 69 6d 65 2d 74 79 70 65 6f 75 74 2d 66 72 61 6d 65 20 63 6f 6e 74 72 | me.The.slime-typeout-frame.contr |
| 2d94e0 | 69 62 20 68 61 73 20 62 65 65 6e 20 72 65 73 74 6f 72 65 64 2e 20 28 49 73 73 75 65 20 23 32 32 | ib.has.been.restored..(Issue.#22 |
| 2d9500 | 31 2e 29 0a 0a 2a 2a 20 53 42 43 4c 20 62 61 63 6b 65 6e 64 0a 2a 2a 2a 20 46 69 78 65 64 20 78 | 1.)..**.SBCL.backend.***.Fixed.x |
| 2d9520 | 72 65 66 73 20 63 6f 6d 69 6e 67 20 66 72 6f 6d 20 43 2d 63 20 43 2d 63 0a 49 73 73 75 65 20 23 | refs.coming.from.C-c.C-c.Issue.# |
| 2d9540 | 32 32 37 2e 0a 0a 2a 2a 20 43 4d 55 43 4c 2c 20 53 42 43 4c 20 61 6e 64 20 53 43 4c 20 62 61 63 | 227...**.CMUCL,.SBCL.and.SCL.bac |
| 2d9560 | 6b 65 6e 64 73 0a 2a 2a 2a 20 42 65 74 74 65 72 20 73 75 70 70 6f 72 74 20 66 6f 72 20 63 75 73 | kends.***.Better.support.for.cus |
| 2d9580 | 74 6f 6d 20 72 65 61 64 74 61 62 6c 65 73 0a 46 75 6e 63 74 69 6f 6e 61 6c 69 74 79 20 74 68 61 | tom.readtables.Functionality.tha |
| 2d95a0 | 74 20 64 65 70 65 6e 64 73 20 6f 6e 20 53 57 41 4e 4b 27 73 20 73 6f 75 72 63 65 2d 70 61 74 68 | t.depends.on.SWANK's.source-path |
| 2d95c0 | 2d 70 61 72 73 65 72 2c 20 73 75 63 68 20 61 73 0a 60 73 6c 69 6d 65 2d 66 69 6e 64 2d 64 65 66 | -parser,.such.as.`slime-find-def |
| 2d95e0 | 69 6e 69 74 69 6f 6e 27 2c 20 6e 6f 77 20 77 6f 72 6b 73 20 70 72 6f 70 65 72 6c 79 20 69 6e 20 | inition',.now.works.properly.in. |
| 2d9600 | 66 61 63 65 20 6f 66 20 63 75 73 74 6f 6d 0a 72 65 61 64 74 61 62 6c 65 73 20 62 79 20 68 6f 6e | face.of.custom.readtables.by.hon |
| 2d9620 | 6f 72 69 6e 67 20 53 57 41 4e 4b 3a 2a 52 45 41 44 54 41 42 4c 45 2d 41 4c 49 53 54 2a 2e 20 28 | oring.SWANK:*READTABLE-ALIST*..( |
| 2d9640 | 54 68 61 6e 6b 73 20 74 6f 20 47 c3 a1 62 6f 72 0a 4d 65 6c 69 73 2e 20 50 52 20 23 32 34 34 2e | Thanks.to.G..bor.Melis..PR.#244. |
| 2d9660 | 29 0a 0a 2a 2a 20 4b 61 77 61 20 62 61 63 6b 65 6e 64 0a 2a 2a 2a 20 55 70 64 61 74 65 64 20 66 | )..**.Kawa.backend.***.Updated.f |
| 2d9680 | 6f 72 20 4b 61 77 61 20 76 65 72 73 69 6f 6e 20 32 2e 30 0a 0a 2a 20 32 2e 31 32 20 28 4a 61 6e | or.Kawa.version.2.0..*.2.12.(Jan |
| 2d96a0 | 75 61 72 79 20 32 30 31 35 29 0a 0a 2a 2a 20 43 6f 72 65 0a 41 20 63 6f 75 70 6c 65 20 6f 66 20 | uary.2015)..**.Core.A.couple.of. |
| 2d96c0 | 72 65 67 72 65 73 73 69 6f 6e 73 20 69 6e 74 72 6f 64 75 63 65 64 20 69 6e 20 76 65 72 73 69 6f | regressions.introduced.in.versio |
| 2d96e0 | 6e 20 32 2e 31 30 20 77 65 72 65 20 66 69 78 65 64 2e 0a 0a 2a 2a 2a 20 73 6c 69 6d 65 2d 63 6f | n.2.10.were.fixed...***.slime-co |
| 2d9700 | 6d 70 69 6c 65 2d 62 75 66 66 65 72 20 28 43 2d 63 20 43 2d 6b 29 20 6e 6f 20 6c 6f 6e 67 65 72 | mpile-buffer.(C-c.C-k).no.longer |
| 2d9720 | 20 74 72 69 65 73 20 74 6f 20 73 61 76 65 20 65 76 65 72 79 20 62 75 66 66 65 72 0a 2a 2a 2a 20 | .tries.to.save.every.buffer.***. |
| 2d9740 | 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 65 20 64 6f 65 73 6e 27 74 20 73 70 61 6d 20 | slime-autodoc-mode.doesn't.spam. |
| 2d9760 | 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 61 6e 79 6d 6f 72 65 0a 0a 2a 2a 20 53 57 41 4e 4b | the.minibuffer.anymore..**.SWANK |
| 2d9780 | 0a 2a 2a 2a 20 43 52 45 41 54 45 2d 53 45 52 56 45 52 20 70 72 6f 76 69 64 65 73 20 69 6e 74 65 | .***.CREATE-SERVER.provides.inte |
| 2d97a0 | 72 61 63 74 69 76 65 20 72 65 73 74 61 72 74 73 20 77 68 65 6e 20 70 6f 72 74 20 69 73 20 74 61 | ractive.restarts.when.port.is.ta |
| 2d97c0 | 6b 65 6e 0a 54 68 61 6e 6b 73 20 74 6f 20 41 64 6c 61 69 20 43 68 61 6e 64 72 61 73 65 6b 68 61 | ken.Thanks.to.Adlai.Chandrasekha |
| 2d97e0 | 72 2e 20 28 50 52 20 23 32 30 34 2e 29 0a 0a 2a 2a 20 73 6c 69 6d 65 2d 66 75 7a 7a 79 0a 4e 65 | r..(PR.#204.)..**.slime-fuzzy.Ne |
| 2d9800 | 77 20 76 61 72 69 61 62 6c 65 20 2a 46 55 5a 5a 59 2d 44 55 50 4c 49 43 41 54 45 2d 53 59 4d 42 | w.variable.*FUZZY-DUPLICATE-SYMB |
| 2d9820 | 4f 4c 2d 46 49 4c 54 45 52 2a 20 61 6c 6c 6f 77 73 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 20 | OL-FILTER*.allows.customization. |
| 2d9840 | 6f 66 0a 68 6f 77 20 73 79 6d 62 6f 6c 73 20 61 63 63 65 73 73 69 62 6c 65 20 66 72 6f 6d 20 6d | of.how.symbols.accessible.from.m |
| 2d9860 | 75 6c 74 69 70 6c 65 20 70 61 63 6b 61 67 65 73 20 73 68 6f 75 6c 64 20 62 65 0a 63 61 6e 6f 6e | ultiple.packages.should.be.canon |
| 2d9880 | 69 63 61 6c 69 7a 65 64 2e 20 44 65 66 61 75 6c 74 73 20 74 6f 20 3a 4e 45 41 52 45 53 54 2d 50 | icalized..Defaults.to.:NEAREST-P |
| 2d98a0 | 41 43 4b 41 47 45 2c 20 61 20 64 65 70 61 72 74 75 72 65 20 66 72 6f 6d 20 74 68 65 0a 70 72 65 | ACKAGE,.a.departure.from.the.pre |
| 2d98c0 | 76 69 6f 75 73 20 64 65 66 61 75 6c 74 20 62 65 68 61 76 69 6f 75 72 20 77 68 69 63 68 20 69 73 | vious.default.behaviour.which.is |
| 2d98e0 | 20 73 74 69 6c 6c 20 61 76 61 69 6c 61 62 6c 65 20 75 73 69 6e 67 0a 3a 48 4f 4d 45 2d 50 41 43 | .still.available.using.:HOME-PAC |
| 2d9900 | 4b 41 47 45 2e 20 54 68 65 20 6e 65 77 20 62 65 68 61 76 69 6f 75 72 20 65 78 70 61 6e 64 73 20 | KAGE..The.new.behaviour.expands. |
| 2d9920 | 22 75 69 3a 65 2d 6c 22 20 74 6f 0a 22 75 69 6f 70 3a 65 6e 73 75 72 65 2d 6c 69 73 74 22 20 72 | "ui:e-l".to."uiop:ensure-list".r |
| 2d9940 | 61 74 68 65 72 20 74 68 61 6e 20 22 75 69 6f 70 2f 75 74 69 6c 69 74 79 3a 65 6e 73 75 72 65 2d | ather.than."uiop/utility:ensure- |
| 2d9960 | 6c 69 73 74 22 2e 20 43 6f 6e 73 75 6c 74 20 74 68 65 0a 6d 61 6e 75 61 6c 20 66 6f 72 20 6f 74 | list"..Consult.the.manual.for.ot |
| 2d9980 | 68 65 72 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 6f 74 68 65 72 20 64 65 74 61 69 6c 73 2e 0a 0a | her.options.and.other.details... |
| 2d99a0 | 54 68 61 6e 6b 73 20 74 6f 20 49 76 61 6e 20 53 68 76 65 64 75 6e 6f 76 2e 20 28 50 52 20 23 32 | Thanks.to.Ivan.Shvedunov..(PR.#2 |
| 2d99c0 | 30 35 2e 29 0a 0a 2a 20 32 2e 31 31 20 28 44 65 63 65 6d 62 65 72 20 32 30 31 34 29 0a 0a 2a 2a | 05.)..*.2.11.(December.2014)..** |
| 2d99e0 | 20 4d 45 4c 50 41 20 69 73 20 6e 6f 77 20 61 6e 20 6f 66 66 69 63 69 61 6c 6c 79 20 73 75 70 70 | .MELPA.is.now.an.officially.supp |
| 2d9a00 | 6f 72 74 65 64 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e 20 6d 65 74 68 6f 64 0a 56 61 72 69 6f 75 | orted.installation.method.Variou |
| 2d9a20 | 73 20 62 75 67 73 20 69 6e 76 6f 6c 76 69 6e 67 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e 20 61 6e | s.bugs.involving.installation.an |
| 2d9a40 | 64 20 75 70 67 72 61 64 69 6e 67 20 76 69 61 20 70 61 63 6b 61 67 65 2e 65 6c 20 77 65 72 65 0a | d.upgrading.via.package.el.were. |
| 2d9a60 | 66 69 78 65 64 2e 20 53 65 65 20 74 68 65 20 52 45 41 44 4d 45 20 66 6f 72 20 6d 6f 72 65 20 64 | fixed..See.the.README.for.more.d |
| 2d9a80 | 65 74 61 69 6c 73 2e 20 28 49 73 73 75 65 73 20 23 31 32 35 2c 20 23 31 39 35 2c 20 23 32 30 38 | etails..(Issues.#125,.#195,.#208 |
| 2d9aa0 | 2e 29 0a 0a 2a 2a 20 43 6f 72 65 0a 2a 2a 2a 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 76 69 61 20 | .)..**.Core.***.Compilation.via. |
| 2d9ac0 | 74 68 65 20 78 72 65 66 20 62 75 66 66 65 72 20 6e 6f 77 20 77 6f 72 6b 73 20 61 67 61 69 6e 0a | the.xref.buffer.now.works.again. |
| 2d9ae0 | 0a 2a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 20 2f 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 | .**.slime-repl./.slime-presentat |
| 2d9b00 | 69 6f 6e 73 0a 4f 6e 6c 79 20 74 65 78 74 20 74 6f 20 74 68 65 20 6c 65 66 74 20 6f 66 20 74 68 | ions.Only.text.to.the.left.of.th |
| 2d9b20 | 65 20 63 75 72 73 6f 72 20 73 68 6f 75 6c 64 20 6c 69 6d 69 74 20 74 68 65 20 73 63 6f 70 65 20 | e.cursor.should.limit.the.scope. |
| 2d9b40 | 6f 66 20 68 69 73 74 6f 72 79 0a 6e 61 76 69 67 61 74 69 6f 6e 2e 20 46 69 78 65 64 20 61 20 6c | of.history.navigation..Fixed.a.l |
| 2d9b60 | 6f 6e 67 2d 73 74 61 6e 64 69 6e 67 20 62 75 67 20 74 68 61 74 20 76 69 6f 6c 61 74 65 64 20 74 | ong-standing.bug.that.violated.t |
| 2d9b80 | 68 69 73 20 77 68 65 6e 0a 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 77 61 73 | his.when.slime-presentations.was |
| 2d9ba0 | 20 65 6e 61 62 6c 65 64 2e 20 28 54 68 61 6e 6b 73 20 74 6f 20 49 76 61 6e 20 53 68 76 65 64 75 | .enabled..(Thanks.to.Ivan.Shvedu |
| 2d9bc0 | 6e 6f 76 2e 20 50 52 20 23 32 30 37 2e 29 0a 0a 2a 2a 20 73 6c 69 6d 65 2d 70 61 63 6b 61 67 65 | nov..PR.#207.)..**.slime-package |
| 2d9be0 | 2d 66 75 0a 4e 6f 77 20 68 61 6e 64 6c 65 73 20 73 74 72 69 6e 67 73 20 61 73 20 73 79 6d 62 6f | -fu.Now.handles.strings.as.symbo |
| 2d9c00 | 6c 20 64 65 73 69 67 6e 61 74 6f 72 73 2c 20 69 73 20 6d 69 6e 64 66 75 6c 20 6f 66 20 74 72 61 | l.designators,.is.mindful.of.tra |
| 2d9c20 | 69 6c 69 6e 67 0a 77 68 69 74 65 73 70 61 63 65 20 61 6e 64 20 70 72 6f 70 65 72 6c 79 20 68 61 | iling.whitespace.and.properly.ha |
| 2d9c40 | 6e 64 6c 65 73 20 61 6e 20 3a 65 78 70 6f 72 74 20 63 6c 61 75 73 65 20 69 6d 6d 65 64 69 61 74 | ndles.an.:export.clause.immediat |
| 2d9c60 | 65 6c 79 0a 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 2e 20 | ely.following.the.package.name.. |
| 2d9c80 | 28 54 68 61 6e 6b 73 20 74 6f 20 4c 65 6f 20 4c 69 75 2e 20 50 52 20 23 31 34 35 2e 29 0a 0a 2a | (Thanks.to.Leo.Liu..PR.#145.)..* |
| 2d9ca0 | 2a 20 73 6c 69 6d 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 54 68 65 20 65 64 67 65 20 63 61 73 | *.slime-indentation.The.edge.cas |
| 2d9cc0 | 65 20 68 61 6e 64 6c 69 6e 67 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 73 6c 69 6d 65 2d 63 6c | e.handling.described.in.slime-cl |
| 2d9ce0 | 2d 69 6e 64 65 6e 74 2e 65 6c 3a 39 35 38 20 68 61 76 65 20 62 65 65 6e 0a 68 61 73 20 62 65 65 | -indent.el:958.have.been.has.bee |
| 2d9d00 | 6e 20 72 65 73 74 6f 72 65 64 2e 0a 0a 2a 2a 20 41 6c 6c 65 67 72 6f 20 43 4c 20 62 61 63 6b 65 | n.restored...**.Allegro.CL.backe |
| 2d9d20 | 6e 64 0a 53 75 70 70 6f 72 74 20 66 6f 72 20 6d 6c 69 73 70 20 77 61 73 20 72 65 73 74 6f 72 65 | nd.Support.for.mlisp.was.restore |
| 2d9d40 | 64 2e 20 49 74 20 68 61 64 20 62 65 65 6e 20 62 72 6f 6b 65 6e 20 62 79 20 74 68 65 20 70 72 65 | d..It.had.been.broken.by.the.pre |
| 2d9d60 | 76 69 6f 75 73 0a 72 65 6c 65 61 73 65 2e 20 28 52 65 70 6f 72 74 65 64 20 62 79 20 41 6c 65 78 | vious.release..(Reported.by.Alex |
| 2d9d80 | 61 6e 64 72 65 20 52 61 64 65 6d 61 6b 65 72 2e 20 49 73 73 75 65 20 23 32 30 39 2e 29 0a 0a 2a | andre.Rademaker..Issue.#209.)..* |
| 2d9da0 | 2a 20 4e 65 77 20 65 78 70 65 72 69 6d 65 6e 74 61 6c 20 53 57 41 4e 4b 20 62 61 63 6b 65 6e 64 | *.New.experimental.SWANK.backend |
| 2d9dc0 | 20 66 6f 72 20 4d 4c 57 6f 72 6b 73 0a 0a 2a 2a 20 53 57 41 4e 4b 0a 73 77 61 6e 6b 2d 6c 69 73 | .for.MLWorks..**.SWANK.swank-lis |
| 2d9de0 | 74 65 6e 65 72 2d 68 6f 6f 6b 73 20 77 61 73 20 72 65 73 74 6f 72 65 64 2e 20 28 54 68 61 6e 6b | tener-hooks.was.restored..(Thank |
| 2d9e00 | 73 20 74 6f 20 49 76 61 6e 20 53 68 76 65 64 75 6e 6f 76 2e 20 50 52 20 23 32 31 30 2e 29 0a 0a | s.to.Ivan.Shvedunov..PR.#210.).. |
| 2d9e20 | 2a 20 32 2e 31 30 2e 31 20 28 4f 63 74 6f 62 65 72 20 32 30 31 34 29 0a 0a 2a 2a 2a 20 54 68 65 | *.2.10.1.(October.2014)..***.The |
| 2d9e40 | 20 53 57 41 4e 4b 2d 42 41 43 4b 45 4e 44 20 6e 69 63 6b 6e 61 6d 65 20 68 61 73 20 62 65 65 6e | .SWANK-BACKEND.nickname.has.been |
| 2d9e60 | 20 61 64 64 65 64 20 74 6f 20 74 68 65 20 53 57 41 4e 4b 2f 42 41 43 4b 45 4e 44 20 70 61 63 6b | .added.to.the.SWANK/BACKEND.pack |
| 2d9e80 | 61 67 65 0a 54 68 69 73 20 73 68 6f 75 6c 64 20 65 61 73 65 20 74 68 65 20 6d 69 67 72 61 74 69 | age.This.should.ease.the.migrati |
| 2d9ea0 | 6f 6e 20 6f 66 20 65 78 74 65 72 6e 61 6c 20 70 72 6f 6a 65 63 74 73 20 74 68 61 74 20 64 65 70 | on.of.external.projects.that.dep |
| 2d9ec0 | 65 6e 64 20 6f 6e 20 74 68 65 0a 53 57 41 4e 4b 2d 42 41 43 4b 45 4e 44 20 70 61 63 6b 61 67 65 | end.on.the.SWANK-BACKEND.package |
| 2d9ee0 | 2e 20 48 6f 77 65 76 65 72 2c 20 6e 6f 74 65 20 74 68 61 74 20 53 57 41 4e 4b 2f 42 41 43 4b 45 | ..However,.note.that.SWANK/BACKE |
| 2d9f00 | 4e 44 20 28 61 73 20 77 65 6c 6c 20 61 73 0a 74 68 65 20 6f 74 68 65 72 20 53 57 41 4e 4b 2f 2a | ND.(as.well.as.the.other.SWANK/* |
| 2d9f20 | 20 70 61 63 6b 61 67 65 73 29 20 61 72 65 20 69 6e 74 65 72 6e 61 6c 20 70 61 63 6b 61 67 65 73 | .packages).are.internal.packages |
| 2d9f40 | 2e 20 50 6c 65 61 73 65 20 72 65 66 65 72 20 74 6f 0a 43 6f 6e 69 75 6d 20 3c 68 74 74 70 3a 2f | ..Please.refer.to.Conium.<http:/ |
| 2d9f60 | 2f 77 77 77 2e 63 6c 69 6b 69 2e 6e 65 74 2f 63 6f 6e 69 75 6d 3e 20 66 6f 72 20 61 20 70 72 6f | /www.cliki.net/conium>.for.a.pro |
| 2d9f80 | 6a 65 63 74 20 74 68 61 74 20 70 75 72 70 6f 72 74 73 20 74 6f 0a 6f 66 66 65 72 20 61 20 73 74 | ject.that.purports.to.offer.a.st |
| 2d9fa0 | 61 62 6c 65 20 41 50 49 20 66 6f 72 20 64 65 62 75 67 67 65 72 2d 20 61 6e 64 20 63 6f 6d 70 69 | able.API.for.debugger-.and.compi |
| 2d9fc0 | 6c 65 72 2d 72 65 6c 61 74 65 64 20 74 61 73 6b 73 20 69 6e 20 43 6f 6d 6d 6f 6e 0a 4c 69 73 70 | ler-related.tasks.in.Common.Lisp |
| 2d9fe0 | 2e 0a 0a 2a 20 32 2e 31 30 20 28 4f 63 74 6f 62 65 72 20 32 30 31 34 29 0a 0a 2a 2a 20 43 6f 72 | ...*.2.10.(October.2014)..**.Cor |
| 2da000 | 65 0a 2a 2a 2a 20 54 68 65 20 53 57 41 4e 4b 2d 42 41 43 4b 45 4e 44 20 70 61 63 6b 61 67 65 20 | e.***.The.SWANK-BACKEND.package. |
| 2da020 | 68 61 73 20 62 65 65 6e 20 72 65 6e 61 6d 65 64 20 74 6f 20 53 57 41 4e 4b 2f 42 41 43 4b 45 4e | has.been.renamed.to.SWANK/BACKEN |
| 2da040 | 44 0a 46 75 72 74 68 65 72 6d 6f 72 65 2c 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 6f | D.Furthermore,.implementations.o |
| 2da060 | 66 20 74 68 65 20 53 57 41 4e 4b 2d 42 41 43 4b 45 4e 44 20 69 6e 74 65 72 66 61 63 65 20 68 61 | f.the.SWANK-BACKEND.interface.ha |
| 2da080 | 76 65 0a 69 6e 64 69 76 69 64 75 61 6c 20 70 61 63 6b 61 67 65 73 20 73 75 63 68 20 61 73 20 53 | ve.individual.packages.such.as.S |
| 2da0a0 | 57 41 4e 4b 2f 53 42 43 4c 2c 20 53 57 41 4e 4b 2f 43 43 4c 2c 20 65 74 63 2e 20 4f 74 68 65 72 | WANK/SBCL,.SWANK/CCL,.etc..Other |
| 2da0c0 | 20 70 61 63 6b 61 67 65 73 0a 73 75 63 68 20 61 73 20 53 57 41 4e 4b 2d 52 50 43 2c 20 53 57 41 | .packages.such.as.SWANK-RPC,.SWA |
| 2da0e0 | 4e 4b 2d 47 52 41 59 20 68 61 76 65 20 6c 69 6b 65 77 69 73 65 20 68 61 64 20 74 68 65 69 72 20 | NK-GRAY.have.likewise.had.their. |
| 2da100 | 68 79 70 68 65 6e 73 20 74 75 72 6e 65 64 0a 69 6e 74 6f 20 73 6c 61 73 68 65 73 2e 0a 0a 2a 2a | hyphens.turned.into.slashes...** |
| 2da120 | 2a 20 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 69 73 20 6e 6f 77 20 61 77 61 72 | *.slime-compile-file.is.now.awar |
| 2da140 | 65 20 6f 66 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 61 73 6b 2d 61 62 6f 75 74 2d 73 61 76 65 0a | e.of.compilation-ask-about-save. |
| 2da160 | 57 68 65 6e 20 73 65 74 20 74 6f 20 6e 69 6c 2c 20 53 4c 49 4d 45 20 77 69 6c 6c 20 73 61 76 65 | When.set.to.nil,.SLIME.will.save |
| 2da180 | 20 6d 6f 64 69 66 69 65 64 20 62 75 66 66 65 72 73 20 77 69 74 68 6f 75 74 20 61 73 6b 69 6e 67 | .modified.buffers.without.asking |
| 2da1a0 | 2e 0a 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 73 61 76 65 2d 62 75 66 66 65 72 73 2d 70 72 65 64 69 | ..compilation-save-buffers-predi |
| 2da1c0 | 63 61 74 65 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 63 75 73 74 6f 6d 69 7a 65 20 77 68 | cate.can.be.used.to.customize.wh |
| 2da1e0 | 69 63 68 0a 62 75 66 66 65 72 73 20 73 68 6f 75 6c 64 20 62 65 20 61 75 74 6f 6d 61 74 69 63 61 | ich.buffers.should.be.automatica |
| 2da200 | 6c 6c 79 20 73 61 76 65 64 2e 0a 0a 2a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 0a 2a 2a 2a 20 43 6c | lly.saved...**.slime-repl.***.Cl |
| 2da220 | 65 61 72 69 6e 67 20 52 45 50 4c 20 6f 75 74 70 75 74 20 6e 6f 20 6c 6f 6e 67 65 72 20 64 65 6c | earing.REPL.output.no.longer.del |
| 2da240 | 65 74 65 73 20 74 68 65 20 70 72 6f 6d 70 74 20 28 69 73 73 75 65 20 23 31 38 33 29 0a 0a 2a 2a | etes.the.prompt.(issue.#183)..** |
| 2da260 | 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 0a 54 68 69 73 20 63 6f 6e 74 72 69 62 20 68 61 73 20 | .slime-autodoc.This.contrib.has. |
| 2da280 | 62 65 65 6e 20 72 65 77 72 69 74 74 65 6e 2e 20 50 6c 65 61 73 65 20 72 65 70 6f 72 74 20 61 6e | been.rewritten..Please.report.an |
| 2da2a0 | 79 20 72 65 67 72 65 73 73 69 6f 6e 73 20 79 6f 75 20 6d 61 79 0a 66 69 6e 64 2e 0a 0a 2a 2a 20 | y.regressions.you.may.find...**. |
| 2da2c0 | 41 42 43 4c 20 62 61 63 6b 65 6e 64 0a 2a 2a 2a 20 49 6e 73 70 65 63 74 69 6e 67 20 43 4c 4f 53 | ABCL.backend.***.Inspecting.CLOS |
| 2da2e0 | 20 6f 62 6a 65 63 74 73 20 77 6f 72 6b 73 20 70 72 6f 70 65 72 6c 79 20 61 67 61 69 6e 0a 2a 2a | .objects.works.properly.again.** |
| 2da300 | 2a 20 53 4c 44 42 20 66 72 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 20 68 61 76 65 20 62 65 63 6f | *.SLDB.frame.arguments.have.beco |
| 2da320 | 6d 65 20 69 6e 73 70 65 63 74 61 62 6c 65 0a 0a 2a 2a 20 53 42 43 4c 20 62 61 63 6b 65 6e 64 0a | me.inspectable..**.SBCL.backend. |
| 2da340 | 2a 2a 2a 20 53 6f 75 72 63 65 20 6c 6f 63 61 74 69 6f 6e 73 20 69 6e 76 6f 6c 76 69 6e 67 20 74 | ***.Source.locations.involving.t |
| 2da360 | 68 65 20 23 2e 20 72 65 61 64 65 72 20 6d 61 63 72 6f 0a 54 68 65 20 61 66 6f 72 65 6d 65 6e 74 | he.#..reader.macro.The.aforement |
| 2da380 | 69 6f 6e 65 64 20 6d 65 63 68 61 6e 69 73 6d 20 77 61 73 20 61 64 61 70 74 65 64 20 74 6f 20 72 | ioned.mechanism.was.adapted.to.r |
| 2da3a0 | 65 63 65 6e 74 20 63 68 61 6e 67 65 73 20 69 6e 20 74 68 65 0a 69 6e 74 65 72 6e 61 6c 73 20 6f | ecent.changes.in.the.internals.o |
| 2da3c0 | 66 20 74 68 65 20 53 42 43 4c 20 72 65 61 64 65 72 2e 0a 0a 2a 2a 2a 20 42 72 65 61 6b 61 67 65 | f.the.SBCL.reader...***.Breakage |
| 2da3e0 | 20 69 6e 76 6f 6c 76 69 6e 67 20 72 65 63 65 6e 74 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 53 42 | .involving.recent.versions.of.SB |
| 2da400 | 43 4c 20 6f 6e 20 57 69 6e 64 6f 77 73 20 77 61 73 20 66 69 78 65 64 20 28 69 73 73 75 65 20 23 | CL.on.Windows.was.fixed.(issue.# |
| 2da420 | 31 39 32 29 0a 57 65 20 6e 6f 20 6c 6f 6e 67 65 72 20 61 73 73 75 6d 65 20 53 42 2d 53 59 53 3a | 192).We.no.longer.assume.SB-SYS: |
| 2da440 | 45 4e 41 42 4c 45 2d 49 4e 54 45 52 52 55 50 54 20 65 78 69 73 74 73 20 6f 6e 20 57 69 6e 64 6f | ENABLE-INTERRUPT.exists.on.Windo |
| 2da460 | 77 73 20 53 42 43 4c 2e 0a 0a 2a 2a 20 4d 4b 43 4c 20 62 61 63 6b 65 6e 64 0a 4e 65 77 20 62 61 | ws.SBCL...**.MKCL.backend.New.ba |
| 2da480 | 63 6b 65 6e 64 20 66 6f 72 20 4d 61 6e 4b 61 69 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2e 0a 0a 2a | ckend.for.ManKai.Common.Lisp...* |
| 2da4a0 | 2a 20 43 4d 55 43 4c 20 62 61 63 6b 65 6e 64 0a 2a 2a 2a 20 53 75 70 70 6f 72 74 20 66 6f 72 20 | *.CMUCL.backend.***.Support.for. |
| 2da4c0 | 76 65 72 73 69 6f 6e 73 20 70 72 69 6f 72 20 74 6f 20 32 30 63 20 68 61 73 20 62 65 65 6e 20 72 | versions.prior.to.20c.has.been.r |
| 2da4e0 | 65 6d 6f 76 65 64 0a 0a 2a 2a 20 4d 49 54 20 53 63 68 65 6d 65 20 62 61 63 6b 65 6e 64 0a 2a 2a | emoved..**.MIT.Scheme.backend.** |
| 2da500 | 2a 20 55 70 64 61 74 65 64 20 61 6e 64 20 6e 6f 77 20 72 65 71 75 69 72 65 73 20 4d 49 54 20 53 | *.Updated.and.now.requires.MIT.S |
| 2da520 | 63 68 65 6d 65 20 39 2e 32 0a 0a 2a 20 32 2e 39 20 28 41 75 67 75 73 74 20 32 30 31 34 29 0a 0a | cheme.9.2..*.2.9.(August.2014).. |
| 2da540 | 2a 2a 20 43 6f 72 65 0a 2a 2a 2a 20 56 61 72 69 6f 75 73 20 64 69 73 70 6c 61 79 2d 72 65 6c 61 | **.Core.***.Various.display-rela |
| 2da560 | 74 65 64 20 62 75 67 66 69 78 65 73 0a 0a 2a 2a 20 43 4d 55 43 4c 0a 2a 2a 2a 20 4d 2d 2e 20 6e | ted.bugfixes..**.CMUCL.***.M-..n |
| 2da580 | 6f 77 20 77 6f 72 6b 73 20 6f 6e 20 63 6f 6e 64 69 74 69 6f 6e 20 63 6c 61 73 73 65 73 0a 0a 2a | ow.works.on.condition.classes..* |
| 2da5a0 | 20 32 2e 38 20 28 4a 75 6c 79 20 32 30 31 34 29 0a 0a 2a 2a 20 43 6f 72 65 0a 0a 2a 2a 2a 20 49 | .2.8.(July.2014)..**.Core..***.I |
| 2da5c0 | 6e 73 70 65 63 74 6f 72 20 66 69 78 65 73 20 61 6e 64 20 69 6d 70 72 6f 76 65 6d 65 6e 74 73 20 | nspector.fixes.and.improvements. |
| 2da5e0 | 66 6f 72 20 53 42 43 4c 2e 0a 0a 2a 2a 20 43 6f 6e 74 72 69 62 73 0a 2a 2a 2a 20 4b 61 77 61 20 | for.SBCL...**.Contribs.***.Kawa. |
| 2da600 | 62 61 63 6b 65 6e 64 20 73 75 70 70 6f 72 74 73 20 4b 61 77 61 20 31 2e 31 34 2e 0a 0a 2a 20 32 | backend.supports.Kawa.1.14...*.2 |
| 2da620 | 2e 37 20 28 4a 75 6e 65 20 32 30 31 34 29 0a 0a 2a 2a 20 43 6f 72 65 0a 2a 2a 2a 20 53 57 41 4e | .7.(June.2014)..**.Core.***.SWAN |
| 2da640 | 4b 20 6e 6f 77 20 74 72 69 65 73 20 68 61 72 64 65 72 20 74 6f 20 73 65 6e 64 20 64 6f 75 62 6c | K.now.tries.harder.to.send.doubl |
| 2da660 | 65 2d 66 6c 6f 61 74 73 20 74 6f 20 45 6d 61 63 73 0a 0a 2a 2a 20 41 6c 6c 65 67 72 6f 20 43 4c | e-floats.to.Emacs..**.Allegro.CL |
| 2da680 | 20 42 61 63 6b 65 6e 64 0a 2a 2a 2a 20 41 64 64 65 64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | .Backend.***.Added.implementatio |
| 2da6a0 | 6e 20 66 6f 72 20 46 55 4e 43 54 49 4f 4e 2d 4e 41 4d 45 20 61 6e 64 20 46 49 4e 44 2d 53 4f 55 | n.for.FUNCTION-NAME.and.FIND-SOU |
| 2da6c0 | 52 43 45 2d 4c 4f 43 41 54 49 4f 4e 20 69 6e 74 65 72 66 61 63 65 73 0a 4e 6f 74 61 62 6c 79 2c | RCE-LOCATION.interfaces.Notably, |
| 2da6e0 | 20 74 68 69 73 20 6d 65 61 6e 73 20 74 68 61 74 20 70 72 65 73 73 69 6e 67 20 22 2e 22 20 69 6e | .this.means.that.pressing.".".in |
| 2da700 | 20 74 68 65 20 53 4c 49 4d 45 20 69 6e 73 70 65 63 74 6f 72 20 6e 6f 77 20 77 6f 72 6b 73 0a 6f | .the.SLIME.inspector.now.works.o |
| 2da720 | 6e 20 41 6c 6c 65 67 72 6f 20 43 4c 2e 20 28 54 68 61 6e 6b 73 20 74 6f 20 47 c3 a1 62 6f 72 20 | n.Allegro.CL..(Thanks.to.G..bor. |
| 2da740 | 4d 65 6c 69 73 2e 29 0a 0a 2a 20 32 2e 36 20 28 4d 61 79 20 32 30 31 34 29 0a 0a 2a 2a 20 43 6f | Melis.)..*.2.6.(May.2014)..**.Co |
| 2da760 | 72 65 0a 0a 2a 2a 2a 20 2a 70 72 69 6e 74 2d 72 65 61 64 61 62 6c 79 2a 20 62 6f 75 6e 64 20 74 | re..***.*print-readably*.bound.t |
| 2da780 | 6f 20 6e 69 6c 20 77 68 65 6e 20 64 69 73 70 6c 61 79 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 20 | o.nil.when.displaying.condition. |
| 2da7a0 | 6d 65 73 73 61 67 65 73 0a 0a 2a 2a 2a 20 49 73 73 75 65 20 23 31 34 34 3a 20 52 65 6d 6f 76 65 | messages..***.Issue.#144:.Remove |
| 2da7c0 | 64 20 6e 69 63 6b 6e 61 6d 65 73 20 61 6e 64 20 73 68 6f 72 74 20 70 61 63 6b 61 67 65 20 6e 61 | d.nicknames.and.short.package.na |
| 2da7e0 | 6d 65 73 0a 54 68 65 20 53 54 44 20 6e 69 63 6b 6e 61 6d 65 20 66 6f 72 20 53 57 41 4e 4b 2d 54 | mes.The.STD.nickname.for.SWANK-T |
| 2da800 | 52 41 43 45 2d 44 49 41 4c 4f 47 20 77 61 73 20 72 65 6d 6f 76 65 64 2e 20 4d 4f 4e 49 54 4f 52 | RACE-DIALOG.was.removed..MONITOR |
| 2da820 | 20 77 61 73 0a 72 65 6e 61 6d 65 64 20 74 6f 20 53 57 41 4e 4b 2d 4d 4f 4e 49 54 4f 52 20 61 6e | .was.renamed.to.SWANK-MONITOR.an |
| 2da840 | 64 20 69 74 73 20 6e 69 63 6b 6e 61 6d 65 20 4d 4f 4e 20 72 65 6d 6f 76 65 64 2e 0a 0a 2a 2a 2a | d.its.nickname.MON.removed...*** |
| 2da860 | 20 49 73 73 75 65 73 20 23 31 33 35 2c 20 23 31 35 34 3a 20 73 6c 69 6d 65 2d 74 6f 2d 6c 69 73 | .Issues.#135,.#154:.slime-to-lis |
| 2da880 | 70 2d 66 69 6c 65 6e 61 6d 65 20 75 73 65 64 20 6d 6f 72 65 20 70 65 72 76 61 73 69 76 65 6c 79 | p-filename.used.more.pervasively |
| 2da8a0 | 0a 4e 6f 77 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 62 6f 74 68 20 74 68 65 20 70 6f 72 74 2d | .Now.used.for.the.both.the.port- |
| 2da8c0 | 66 69 6c 65 20 61 6e 64 20 6c 6f 61 64 65 72 20 66 69 6c 65 20 77 68 65 6e 20 61 6e 6e 6f 75 6e | file.and.loader.file.when.announ |
| 2da8e0 | 63 65 64 0a 66 72 6f 6d 20 45 6d 61 63 73 20 74 6f 20 74 68 65 20 6c 69 73 70 20 62 61 63 6b 65 | ced.from.Emacs.to.the.lisp.backe |
| 2da900 | 6e 64 2e 20 41 6c 6c 6f 77 73 20 61 20 75 73 65 72 2d 77 72 69 74 74 65 6e 0a 60 73 6c 69 6d 65 | nd..Allows.a.user-written.`slime |
| 2da920 | 2d 74 6f 2d 6c 69 73 70 2d 66 69 6c 65 6e 61 6d 65 2d 66 75 6e 63 74 69 6f 6e 27 20 74 68 61 74 | -to-lisp-filename-function'.that |
| 2da940 | 20 73 75 70 70 6f 72 74 73 20 43 79 67 77 69 6e 20 6c 69 73 70 73 20 77 69 74 68 0a 6e 6f 6e 2d | .supports.Cygwin.lisps.with.non- |
| 2da960 | 43 79 67 77 69 6e 20 45 6d 61 63 73 65 6e 20 6f 72 20 76 69 63 65 2d 76 65 72 73 61 2e 20 53 65 | Cygwin.Emacsen.or.vice-versa..Se |
| 2da980 | 65 20 23 31 33 35 20 66 6f 72 20 61 6e 20 65 78 61 6d 70 6c 65 20 6f 66 20 73 75 63 68 20 61 0a | e.#135.for.an.example.of.such.a. |
| 2da9a0 | 66 75 6e 63 74 69 6f 6e 2e 0a 0a 2a 2a 2a 20 49 73 73 75 65 20 23 31 35 35 3a 20 53 74 61 6c 65 | function...***.Issue.#155:.Stale |
| 2da9c0 | 20 53 4c 44 42 20 62 75 66 66 65 72 73 20 61 72 65 20 6e 6f 77 20 70 72 6f 70 65 72 6c 79 20 72 | .SLDB.buffers.are.now.properly.r |
| 2da9e0 | 65 6d 6f 76 65 64 0a 49 6e 64 69 72 65 63 74 20 65 78 69 74 73 20 66 72 6f 6d 20 61 6e 20 53 4c | emoved.Indirect.exits.from.an.SL |
| 2daa00 | 44 42 20 62 75 66 66 65 72 20 74 68 61 74 20 77 61 73 20 6e 6f 74 20 73 65 6c 65 63 74 65 64 20 | DB.buffer.that.was.not.selected. |
| 2daa20 | 69 6e 20 61 20 77 69 6e 64 6f 77 0a 77 6f 75 6c 64 20 6c 65 61 76 65 20 61 20 73 74 61 6c 65 20 | in.a.window.would.leave.a.stale. |
| 2daa40 | 62 75 66 66 65 72 20 62 65 68 69 6e 64 2c 20 6c 65 61 64 69 6e 67 20 74 6f 20 61 6e 20 69 6e 63 | buffer.behind,.leading.to.an.inc |
| 2daa60 | 6f 6e 73 69 73 74 65 6e 74 20 73 74 61 74 65 0a 61 6e 64 20 75 6e 65 78 70 65 63 74 65 64 20 65 | onsistent.state.and.unexpected.e |
| 2daa80 | 72 72 6f 72 73 2e 0a 0a 2a 2a 20 43 6f 6e 74 72 69 62 73 0a 0a 2a 2a 2a 20 49 73 73 75 65 20 23 | rrors...**.Contribs..***.Issue.# |
| 2daaa0 | 31 33 39 3a 20 52 65 73 74 6f 72 65 64 20 22 63 6f 70 79 20 74 6f 20 52 45 50 4c 22 20 66 6f 72 | 139:.Restored."copy.to.REPL".for |
| 2daac0 | 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 0a 60 73 6c 69 6d 65 2d 63 6f 70 79 | .slime-presentations.`slime-copy |
| 2daae0 | 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 2d 74 6f 2d 72 65 70 6c 27 20 | -presentation-at-point-to-repl'. |
| 2dab00 | 77 69 6c 6c 20 63 6f 70 79 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 74 6f 0a 74 68 65 20 | will.copy.a.presentation.to.the. |
| 2dab20 | 52 45 50 4c 2c 20 70 6c 61 63 65 20 69 74 20 61 74 20 70 6f 69 6e 74 2c 20 61 6e 64 20 5f 6e 6f | REPL,.place.it.at.point,.and._no |
| 2dab40 | 74 5f 20 73 65 74 20 2a 2c 20 2a 2a 20 61 6e 64 20 2a 2a 2a 2e 20 54 68 69 73 0a 62 65 68 61 76 | t_.set.*,.**.and.***..This.behav |
| 2dab60 | 69 6f 75 72 20 72 65 73 74 6f 72 65 64 20 61 66 74 65 72 20 72 65 66 61 63 74 6f 72 69 6e 67 73 | iour.restored.after.refactorings |
| 2dab80 | 20 6f 66 20 22 63 6f 70 79 20 74 6f 20 52 45 50 4c 22 20 62 65 68 61 76 69 6f 75 72 20 6f 66 0a | .of."copy.to.REPL".behaviour.of. |
| 2daba0 | 70 72 65 76 69 6f 75 73 20 76 65 72 73 69 6f 6e 73 2e 0a 0a 2a 2a 2a 20 49 73 73 75 65 20 23 31 | previous.versions...***.Issue.#1 |
| 2dabc0 | 34 30 3a 20 49 6d 70 72 6f 76 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 22 63 6f 70 79 20 74 6f | 40:.Improvements.in.the."copy.to |
| 2dabe0 | 20 52 45 50 4c 22 20 62 65 68 61 76 69 6f 75 72 0a 57 69 74 68 20 6f 72 20 77 69 74 68 6f 75 74 | .REPL".behaviour.With.or.without |
| 2dac00 | 20 74 68 65 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 63 6f 6e 74 72 69 62 | .the.slime-presentations.contrib |
| 2dac20 | 2c 20 4d 2d 52 45 54 20 77 69 6c 6c 0a 63 6f 70 79 2f 72 65 74 75 72 6e 20 76 61 6c 75 65 73 20 | ,.M-RET.will.copy/return.values. |
| 2dac40 | 74 6f 20 52 45 50 4c 20 66 72 6f 6d 20 62 6f 74 68 20 49 6e 73 70 65 63 74 6f 72 20 61 6e 64 20 | to.REPL.from.both.Inspector.and. |
| 2dac60 | 53 4c 44 42 20 62 75 66 66 65 72 73 2c 0a 73 65 74 74 69 6e 67 20 2a 2c 20 2a 2a 20 61 6e 64 20 | SLDB.buffers,.setting.*,.**.and. |
| 2dac80 | 2a 2a 2a 20 2e 20 49 66 20 74 68 65 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 | ***...If.the.slime-presentations |
| 2daca0 | 20 63 6f 6e 74 72 69 62 20 69 73 20 65 6e 61 62 6c 65 64 2c 0a 74 68 65 20 72 65 74 75 72 6e 65 | .contrib.is.enabled,.the.returne |
| 2dacc0 | 64 20 70 61 72 74 20 77 69 6c 6c 20 62 65 20 61 6e 20 69 6e 74 65 72 61 63 74 69 76 65 20 70 72 | d.part.will.be.an.interactive.pr |
| 2dace0 | 65 73 65 6e 74 61 74 69 6f 6e 2e 20 54 68 65 20 70 72 6f 74 6f 63 6f 6c 0a 66 6f 72 20 63 6f 70 | esentation..The.protocol.for.cop |
| 2dad00 | 79 69 6e 67 20 64 6f 77 6e 20 70 61 72 74 73 20 74 6f 20 52 45 50 4c 20 68 61 73 20 62 65 65 6e | ying.down.parts.to.REPL.has.been |
| 2dad20 | 20 72 65 77 6f 72 6b 65 64 20 74 6f 20 6e 6f 74 20 61 73 73 75 6d 65 20 61 20 43 4c 0a 62 61 63 | .reworked.to.not.assume.a.CL.bac |
| 2dad40 | 6b 65 6e 64 20 2e 0a 0a 2a 2a 2a 20 4e 6f 77 20 73 75 70 70 6f 72 74 73 20 6d 6f 72 65 20 43 4c | kend....***.Now.supports.more.CL |
| 2dad60 | 48 53 20 72 65 66 65 72 65 6e 63 65 73 3a 20 3a 74 79 70 65 2c 20 3a 73 79 73 74 65 6d 2d 63 6c | HS.references:.:type,.:system-cl |
| 2dad80 | 61 73 73 2c 20 3a 61 6e 73 69 2d 63 6c 0a 0a 2a 2a 2a 20 49 73 73 75 65 20 23 31 33 33 3a 20 46 | ass,.:ansi-cl..***.Issue.#133:.F |
| 2dada0 | 69 78 65 64 20 6c 69 6e 6b 73 20 74 6f 20 74 68 65 20 53 42 43 4c 20 6d 61 6e 75 61 6c 0a 0a 2a | ixed.links.to.the.SBCL.manual..* |
| 2dadc0 | 2a 20 42 61 63 6b 65 6e 64 20 69 6d 70 72 6f 76 65 6d 65 6e 74 73 0a 0a 2a 2a 2a 20 53 42 43 4c | *.Backend.improvements..***.SBCL |
| 2dade0 | 0a 0a 2a 2a 2a 2a 20 60 73 6c 69 6d 65 2d 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 | ..****.`slime-set-default-direct |
| 2dae00 | 6f 72 79 27 20 6e 6f 77 20 63 61 6c 6c 73 20 63 68 64 69 72 0a 54 68 69 73 20 70 72 6f 70 61 67 | ory'.now.calls.chdir.This.propag |
| 2dae20 | 61 74 65 73 20 69 74 73 20 65 66 66 65 63 74 73 20 74 6f 20 73 75 62 70 72 6f 63 65 73 73 65 73 | ates.its.effects.to.subprocesses |
| 2dae40 | 2e 0a 0a 2a 20 32 2e 35 20 28 41 70 72 69 6c 20 32 30 31 34 29 0a 0a 2a 2a 20 42 61 63 6b 65 6e | ...*.2.5.(April.2014)..**.Backen |
| 2dae60 | 64 20 69 6d 70 72 6f 76 65 6d 65 6e 74 73 0a 0a 2a 2a 2a 20 43 6c 6f 7a 75 72 65 20 43 4c 0a 0a | d.improvements..***.Clozure.CL.. |
| 2dae80 | 2a 2a 2a 2a 20 60 73 6c 69 6d 65 2d 73 65 74 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 | ****.`slime-set-default-director |
| 2daea0 | 79 27 20 6e 6f 77 20 63 61 6c 6c 73 20 63 68 64 69 72 0a 54 68 69 73 20 70 72 6f 70 61 67 61 74 | y'.now.calls.chdir.This.propagat |
| 2daec0 | 65 73 20 69 74 73 20 65 66 66 65 63 74 73 20 74 6f 20 73 75 62 70 72 6f 63 65 73 73 65 73 2e 0a | es.its.effects.to.subprocesses.. |
| 2daee0 | 0a 2a 2a 2a 20 41 6c 6c 65 67 72 6f 20 43 4c 0a 0a 2a 2a 2a 2a 20 73 77 61 6e 6b 2d 63 6f 6d 70 | .***.Allegro.CL..****.swank-comp |
| 2daf00 | 69 6c 65 2d 73 74 72 69 6e 67 20 6e 6f 20 6c 6f 6e 67 65 72 20 62 69 6e 64 73 20 2a 64 65 66 61 | ile-string.no.longer.binds.*defa |
| 2daf20 | 75 6c 74 2d 70 61 74 68 6e 61 6d 65 2d 64 65 66 61 75 6c 74 73 2a 0a 54 68 69 73 20 77 61 73 20 | ult-pathname-defaults*.This.was. |
| 2daf40 | 69 6e 63 6f 6e 73 69 73 74 65 6e 74 20 77 69 74 68 20 74 68 65 20 62 65 68 61 76 69 6f 75 72 20 | inconsistent.with.the.behaviour. |
| 2daf60 | 6f 66 20 6f 74 68 65 72 20 62 61 63 6b 65 6e 64 73 20 61 6e 64 20 63 61 75 73 65 64 0a 73 74 72 | of.other.backends.and.caused.str |
| 2daf80 | 61 6e 67 65 20 69 73 73 75 65 73 20 77 69 74 68 20 53 59 53 3a 54 45 4d 50 4f 52 41 52 59 2d 44 | ange.issues.with.SYS:TEMPORARY-D |
| 2dafa0 | 49 52 45 43 54 4f 52 59 2e 0a 0a 2a 2a 2a 2a 20 49 6d 70 72 6f 76 65 64 20 73 6f 75 72 63 65 20 | IRECTORY...****.Improved.source. |
| 2dafc0 | 66 69 6c 65 20 72 65 63 6f 72 64 69 6e 67 0a 57 68 65 6e 65 76 65 72 20 70 6f 73 73 69 62 6c 65 | file.recording.Whenever.possible |
| 2dafe0 | 20 69 6e 74 65 72 61 63 74 69 76 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 63 6f 6d 70 69 6c 61 74 | .interactive.definition.compilat |
| 2db000 | 69 6f 6e 20 69 73 20 6d 61 70 70 65 64 20 74 6f 20 74 68 65 0a 61 63 74 75 61 6c 20 73 6f 75 72 | ion.is.mapped.to.the.actual.sour |
| 2db020 | 63 65 20 66 69 6c 65 20 72 61 74 68 65 72 20 74 68 61 6e 20 74 68 65 20 62 75 66 66 65 72 20 6e | ce.file.rather.than.the.buffer.n |
| 2db040 | 61 6d 65 20 74 6f 20 61 76 6f 69 64 20 62 72 65 61 6b 61 67 65 20 77 68 65 6e 0a 74 68 65 20 74 | ame.to.avoid.breakage.when.the.t |
| 2db060 | 68 65 20 62 75 66 66 65 72 20 6e 61 6d 65 20 63 68 61 6e 67 65 73 20 6f 72 20 69 73 20 63 6c 6f | he.buffer.name.changes.or.is.clo |
| 2db080 | 73 65 64 2e 0a 0a 2a 2a 20 53 4c 49 4d 45 20 54 72 61 63 65 20 44 69 61 6c 6f 67 0a 0a 2a 2a 2a | sed...**.SLIME.Trace.Dialog..*** |
| 2db0a0 | 20 28 55 6e 29 54 72 61 63 69 6e 67 20 61 20 64 65 66 69 6e 69 74 69 6f 6e 20 61 75 74 6f 6d 61 | .(Un)Tracing.a.definition.automa |
| 2db0c0 | 74 69 63 61 6c 6c 79 20 75 70 64 61 74 65 73 20 74 68 65 20 74 72 61 63 65 20 73 74 61 74 75 73 | tically.updates.the.trace.status |
| 2db0e0 | 0a 0a 2a 2a 20 73 6c 69 6d 65 2d 72 65 70 6c 0a 0a 2a 2a 2a 20 49 6e 73 70 65 63 74 69 6e 67 20 | ..**.slime-repl..***.Inspecting. |
| 2db100 | 2a 20 69 6e 20 52 45 50 4c 20 6e 6f 20 6c 6f 6e 67 65 72 20 69 6e 73 70 65 63 74 73 20 2a 2a 20 | *.in.REPL.no.longer.inspects.**. |
| 2db120 | 28 69 73 73 75 65 20 23 31 33 37 29 0a 0a 2a 2a 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 0a 0a | (issue.#137)..**.slime-autodoc.. |
| 2db140 | 2a 2a 2a 20 4d 75 6c 74 69 6c 69 6e 65 20 61 72 67 6c 69 73 74 73 20 69 6e 20 60 73 6c 69 6d 65 | ***.Multiline.arglists.in.`slime |
| 2db160 | 2d 61 75 74 6f 64 6f 63 27 20 6e 6f 20 6c 6f 6e 67 65 72 20 69 6d 70 6c 79 20 61 20 6e 65 77 6c | -autodoc'.no.longer.imply.a.newl |
| 2db180 | 69 6e 65 20 28 69 73 73 75 65 20 23 37 29 0a 0a 2a 2a 20 43 6f 72 65 20 42 75 67 66 69 78 65 73 | ine.(issue.#7)..**.Core.Bugfixes |
| 2db1a0 | 0a 0a 2a 2a 2a 20 53 57 41 4e 4b 20 70 6f 72 74 20 66 69 6c 65 20 6e 61 6d 65 20 64 65 66 69 6e | ..***.SWANK.port.file.name.defin |
| 2db1c0 | 65 64 20 69 6e 20 6d 6f 72 65 20 70 6f 72 74 61 62 6c 65 20 66 61 73 68 69 6f 6e 0a 42 75 67 20 | ed.in.more.portable.fashion.Bug. |
| 2db1e0 | 72 65 70 6f 72 74 65 64 20 62 79 20 4d 69 72 6b 6f 20 56 75 6b 6f 76 69 63 20 6f 6e 20 73 6c 69 | reported.by.Mirko.Vukovic.on.sli |
| 2db200 | 6d 65 2d 64 65 76 65 6c 2e 0a 0a 2a 2a 2a 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f | me-devel...***.inferior-lisp-pro |
| 2db220 | 67 72 61 6d 20 63 61 6e 20 6e 6f 77 20 68 6f 6c 64 20 70 61 74 68 73 20 77 69 74 68 20 73 70 61 | gram.can.now.hold.paths.with.spa |
| 2db240 | 63 65 73 20 28 69 73 73 75 65 20 23 31 31 36 29 0a 0a 2a 20 32 2e 34 20 28 4d 61 72 63 68 20 32 | ces.(issue.#116)..*.2.4.(March.2 |
| 2db260 | 30 31 34 29 0a 0a 2a 2a 20 4e 65 77 20 63 6f 6e 74 72 69 62 20 53 4c 49 4d 45 20 54 72 61 63 65 | 014)..**.New.contrib.SLIME.Trace |
| 2db280 | 20 44 69 61 6c 6f 67 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 60 73 6c 69 6d 65 2d 66 61 6e 63 79 | .Dialog.included.in.`slime-fancy |
| 2db2a0 | 27 0a 49 6e 74 65 72 61 63 74 69 76 65 20 69 6e 74 65 72 66 61 63 65 20 74 6f 20 74 72 61 63 69 | '.Interactive.interface.to.traci |
| 2db2c0 | 6e 67 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 6d 65 74 68 6f 64 73 2e 20 53 65 65 20 6d 61 | ng.functions.and.methods..See.ma |
| 2db2e0 | 6e 75 61 6c 20 66 6f 72 0a 64 65 74 61 69 6c 73 2e 0a 0a 2a 2a 20 4e 65 77 20 63 6f 6e 74 72 69 | nual.for.details...**.New.contri |
| 2db300 | 62 20 60 73 6c 69 6d 65 2d 66 61 6e 63 79 2d 74 72 61 63 65 27 2c 20 69 6e 63 6c 75 64 65 64 20 | b.`slime-fancy-trace',.included. |
| 2db320 | 69 6e 20 60 73 6c 69 6d 65 2d 66 61 6e 63 79 27 0a 49 66 20 79 6f 75 72 20 69 6d 70 6c 65 6d 65 | in.`slime-fancy'.If.your.impleme |
| 2db340 | 6e 74 61 74 69 6f 6e 20 61 6c 6c 6f 77 73 20 69 74 2c 20 74 72 61 63 65 20 63 6f 6d 70 6c 65 78 | ntation.allows.it,.trace.complex |
| 2db360 | 20 6d 65 74 68 6f 64 20 73 69 67 6e 61 74 75 72 65 73 2c 0a 6c 61 62 65 6c 73 2c 20 65 74 63 2e | .method.signatures,.labels,.etc. |
| 2db380 | 2e 2e 0a 0a 2a 2a 20 4e 65 77 20 6f 70 74 69 6f 6e 73 20 69 6e 20 60 73 6c 69 6d 65 2d 63 6c 2d | ....**.New.options.in.`slime-cl- |
| 2db3a0 | 69 6e 64 65 6e 74 2e 65 6c 27 20 75 73 65 64 20 62 79 20 74 68 65 20 60 73 6c 69 6d 65 2d 69 6e | indent.el'.used.by.the.`slime-in |
| 2db3c0 | 64 65 6e 74 61 74 69 6f 6e 27 20 63 6f 6e 74 72 69 62 0a 4e 65 77 20 76 61 72 69 61 62 6c 65 73 | dentation'.contrib.New.variables |
| 2db3e0 | 20 61 72 65 20 60 6c 69 73 70 2d 6c 6f 6f 70 2d 62 6f 64 79 2d 66 6f 72 6d 73 2d 69 6e 64 65 6e | .are.`lisp-loop-body-forms-inden |
| 2db400 | 74 61 74 69 6f 6e 27 20 61 6e 64 0a 60 6c 69 73 70 2d 6c 6f 6f 70 2d 62 6f 64 79 2d 66 6f 72 6d | tation'.and.`lisp-loop-body-form |
| 2db420 | 73 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 27 2e 0a 0a 2a 2a 20 4e 65 77 20 63 6f 6d 6d 61 6e 64 20 | s-indentation'...**.New.command. |
| 2db440 | 60 73 6c 64 62 2d 63 6f 70 79 2d 64 6f 77 6e 2d 74 6f 2d 72 65 70 6c 27 20 62 6f 75 6e 64 20 74 | `sldb-copy-down-to-repl'.bound.t |
| 2db460 | 6f 20 4d 2d 52 45 54 20 69 6e 20 64 65 62 75 67 67 65 72 0a 43 6f 70 69 65 73 20 74 68 65 20 66 | o.M-RET.in.debugger.Copies.the.f |
| 2db480 | 72 61 6d 65 20 76 61 72 69 61 62 6c 65 20 75 6e 64 65 72 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 | rame.variable.under.point.to.the |
| 2db4a0 | 20 52 45 50 4c 2c 20 6d 75 63 68 20 61 73 0a 60 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d | .REPL,.much.as.`slime-inspector- |
| 2db4c0 | 63 6f 70 79 2d 64 6f 77 6e 2d 74 6f 2d 72 65 70 6c 27 20 64 6f 65 73 2e 0a 0a 2a 2a 20 4e 65 77 | copy-down-to-repl'.does...**.New |
| 2db4e0 | 20 63 6f 6d 6d 61 6e 64 20 60 73 6c 69 6d 65 2d 64 65 6c 65 74 65 2d 70 61 63 6b 61 67 65 27 0a | .command.`slime-delete-package'. |
| 2db500 | 0a 2a 2a 20 55 54 46 38 20 65 6e 63 6f 64 69 6e 67 0a 53 4c 49 4d 45 20 6e 6f 77 20 75 73 65 73 | .**.UTF8.encoding.SLIME.now.uses |
| 2db520 | 20 6f 6e 6c 79 20 55 54 46 38 20 74 6f 20 65 6e 63 6f 64 65 20 73 74 72 69 6e 67 73 20 6f 6e 20 | .only.UTF8.to.encode.strings.on. |
| 2db540 | 74 68 65 20 77 69 72 65 2e 20 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 76 61 72 69 61 62 6c | the.wire...Customization.variabl |
| 2db560 | 65 73 20 6c 69 6b 65 20 60 73 6c 69 6d 65 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d | es.like.`slime-net-coding-system |
| 2db580 | 27 20 6f 72 20 60 73 77 61 6e 6b 3a 2a 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2a 27 20 61 72 65 | '.or.`swank:*coding-system*'.are |
| 2db5a0 | 0a 6e 6f 77 20 75 73 65 6c 65 73 73 2e 0a 0a 2a 2a 20 53 65 74 75 70 20 72 65 63 69 70 65 0a 49 | .now.useless...**.Setup.recipe.I |
| 2db5c0 | 6e 20 70 72 65 70 61 72 61 74 69 6f 6e 20 66 6f 72 20 61 20 6d 6f 72 65 20 64 65 63 65 6e 74 72 | n.preparation.for.a.more.decentr |
| 2db5e0 | 61 6c 69 7a 65 64 20 61 70 70 72 6f 61 63 68 20 74 6f 20 53 4c 49 4d 45 20 63 6f 6e 74 72 69 62 | alized.approach.to.SLIME.contrib |
| 2db600 | 73 2c 0a 74 68 65 20 73 65 74 75 70 20 72 65 63 69 70 65 20 68 61 73 20 62 65 65 6e 20 73 6c 69 | s,.the.setup.recipe.has.been.sli |
| 2db620 | 67 68 74 6c 79 20 63 68 61 6e 67 65 64 2c 20 68 6f 70 65 66 75 6c 6c 79 20 69 6e 20 61 20 62 61 | ghtly.changed,.hopefully.in.a.ba |
| 2db640 | 63 6b 77 61 72 64 73 0a 63 6f 6d 70 61 74 69 62 6c 65 20 77 61 79 2e 20 43 61 6c 6c 69 6e 67 20 | ckwards.compatible.way..Calling. |
| 2db660 | 60 73 6c 69 6d 65 2d 73 65 74 75 70 27 20 69 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 72 65 71 75 69 | `slime-setup'.is.no.longer.requi |
| 2db680 | 72 65 64 2e 20 49 6e 73 74 65 61 64 2c 0a 74 68 65 20 60 73 6c 69 6d 65 2d 63 6f 6e 74 72 69 62 | red..Instead,.the.`slime-contrib |
| 2db6a0 | 73 27 20 76 61 72 69 61 62 6c 65 20 63 61 6e 20 62 65 20 63 75 73 74 6f 6d 69 7a 65 64 20 77 69 | s'.variable.can.be.customized.wi |
| 2db6c0 | 74 68 20 61 20 6c 69 73 74 20 6f 66 0a 63 6f 6e 74 72 69 62 73 20 74 6f 20 62 65 20 6c 6f 61 64 | th.a.list.of.contribs.to.be.load |
| 2db6e0 | 65 64 20 77 68 65 6e 20 60 4d 2d 78 20 73 6c 69 6d 65 27 20 69 73 20 66 69 72 73 74 20 65 78 65 | ed.when.`M-x.slime'.is.first.exe |
| 2db700 | 63 75 74 65 64 2e 20 53 65 65 20 73 65 63 74 69 6f 6e 0a 60 38 2e 31 20 4c 6f 61 64 69 6e 67 20 | cuted..See.section.`8.1.Loading. |
| 2db720 | 43 6f 6e 74 72 69 62 20 50 61 63 6b 61 67 65 73 27 20 6f 66 20 74 68 65 20 53 4c 49 4d 45 20 4d | Contrib.Packages'.of.the.SLIME.M |
| 2db740 | 61 6e 75 61 6c 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 2a 2a 20 42 75 67 66 | anual.for.more.details...**.Bugf |
| 2db760 | 69 78 65 73 20 61 6e 64 20 73 74 61 62 69 6c 69 74 79 20 69 6d 70 72 6f 76 65 6d 65 6e 74 73 20 | ixes.and.stability.improvements. |
| 2db780 | 73 69 6e 63 65 20 74 68 65 20 6d 6f 76 65 20 74 6f 20 47 69 74 68 75 62 0a 0a 2a 2a 2a 20 49 73 | since.the.move.to.Github..***.Is |
| 2db7a0 | 73 75 65 20 23 39 3a 20 6e 65 77 20 52 45 50 4c 20 6f 75 74 70 75 74 20 72 65 73 70 65 63 74 65 | sue.#9:.new.REPL.output.respecte |
| 2db7c0 | 73 20 65 78 69 73 74 69 6e 67 20 52 45 50 4c 20 72 65 73 75 6c 74 73 20 6f 72 20 70 72 65 73 65 | s.existing.REPL.results.or.prese |
| 2db7e0 | 6e 74 61 74 69 6f 6e 73 2e 0a 0a 2a 2a 2a 20 49 73 73 75 65 20 23 31 37 3a 20 54 41 42 20 6e 6f | ntations...***.Issue.#17:.TAB.no |
| 2db800 | 20 6c 6f 6e 67 65 72 20 66 72 65 65 7a 65 73 20 74 68 65 20 52 45 50 4c 20 69 6e 20 22 72 65 61 | .longer.freezes.the.REPL.in."rea |
| 2db820 | 64 2d 6d 6f 64 65 22 0a 0a 2a 2a 2a 20 49 73 73 75 65 20 23 34 32 3a 20 63 6f 6d 70 69 6c 65 73 | d-mode"..***.Issue.#42:.compiles |
| 2db840 | 20 6f 6e 20 45 6d 61 63 73 20 32 34 0a 0a 2a 2a 2a 20 49 73 73 75 65 20 23 34 33 3a 20 60 6a 75 | .on.Emacs.24..***.Issue.#43:.`ju |
| 2db860 | 73 74 2d 6f 6e 65 2d 73 70 61 63 65 27 20 6e 6f 20 6c 6f 6e 67 65 72 20 62 72 65 61 6b 73 20 52 | st-one-space'.no.longer.breaks.R |
| 2db880 | 45 50 4c 0a 0a 2a 2a 2a 20 49 73 73 75 65 20 23 33 34 3a 20 22 45 72 72 6f 72 20 69 6e 20 74 69 | EPL..***.Issue.#34:."Error.in.ti |
| 2db8a0 | 6d 65 72 22 20 65 72 72 6f 72 20 77 68 65 6e 20 73 74 61 72 74 69 6e 67 20 73 6c 69 6d 65 20 6f | mer".error.when.starting.slime.o |
| 2db8c0 | 6e 20 65 6d 61 63 73 32 34 0a 0a 2a 2a 2a 20 50 72 69 6e 74 69 6e 67 20 63 6f 6e 64 69 74 69 6f | n.emacs24..***.Printing.conditio |
| 2db8e0 | 6e 73 20 69 73 20 6e 6f 77 20 61 20 62 69 74 20 73 61 66 65 72 20 69 6e 20 74 68 65 20 64 65 62 | ns.is.now.a.bit.safer.in.the.deb |
| 2db900 | 75 67 67 65 72 20 28 67 69 74 3a 62 61 66 65 62 38 36 29 0a 0a 2a 2a 2a 20 46 69 78 20 75 6e 64 | ugger.(git:bafeb86)..***.Fix.und |
| 2db920 | 6f 20 62 65 68 61 76 69 6f 72 20 69 6e 20 74 68 65 20 52 45 50 4c 20 28 67 69 74 3a 61 66 33 35 | o.behavior.in.the.REPL.(git:af35 |
| 2db940 | 34 64 37 29 0a 50 72 65 76 69 6f 75 73 6c 79 2c 20 75 6e 64 6f 20 77 6f 75 6c 64 20 6f 62 6c 69 | 4d7).Previously,.undo.would.obli |
| 2db960 | 74 65 72 61 74 65 20 70 72 65 76 69 6f 75 73 20 70 72 6f 6d 70 74 73 2e 0a 0a 2a 2a 2a 20 46 69 | terate.previous.prompts...***.Fi |
| 2db980 | 78 20 52 45 50 4c 20 74 79 70 65 2d 61 68 65 61 64 20 62 65 68 61 76 69 6f 75 72 20 77 68 65 6e | x.REPL.type-ahead.behaviour.when |
| 2db9a0 | 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 61 63 74 69 76 65 20 28 67 69 74 3a 33 38 61 31 38 | .presentations.active.(git:38a18 |
| 2db9c0 | 32 36 29 0a 49 6e 70 75 74 20 74 79 70 65 64 20 62 65 66 6f 72 65 20 79 6f 75 72 20 6c 69 73 70 | 26).Input.typed.before.your.lisp |
| 2db9e0 | 20 72 65 73 70 6f 6e 64 73 20 69 73 20 61 70 70 65 6e 64 65 64 20 74 6f 20 74 68 65 20 72 65 73 | .responds.is.appended.to.the.res |
| 2dba00 | 75 6c 74 20 77 68 65 6e 20 69 74 20 61 72 72 69 76 65 73 2e 0a 0a 2a 2a 2a 20 46 69 78 20 70 61 | ult.when.it.arrives...***.Fix.pa |
| 2dba20 | 63 6b 61 67 65 20 61 6e 64 20 64 69 72 20 73 79 6e 63 68 20 77 68 65 6e 20 6e 6f 20 70 72 6f 63 | ckage.and.dir.synch.when.no.proc |
| 2dba40 | 65 73 73 20 62 75 66 66 65 72 20 28 67 69 74 3a 64 63 38 38 39 33 35 29 0a 53 6f 6d 65 74 69 6d | ess.buffer.(git:dc88935).Sometim |
| 2dba60 | 65 73 20 70 72 6f 63 65 73 73 20 62 75 66 66 65 72 20 68 61 73 20 62 65 65 6e 20 6b 69 6c 6c 65 | es.process.buffer.has.been.kille |
| 2dba80 | 64 2c 20 62 75 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 73 74 69 6c 6c 20 61 63 74 69 76 | d,.but.connection.is.still.activ |
| 2dbaa0 | 65 2e 0a 0a 2a 2a 2a 20 4d 2d 70 20 6f 6e 20 61 6e 79 20 70 61 72 74 20 6f 66 20 74 68 65 20 52 | e...***.M-p.on.any.part.of.the.R |
| 2dbac0 | 45 50 4c 20 62 75 66 66 65 72 20 6e 6f 20 6c 6f 6e 67 65 72 20 65 72 72 6f 72 73 20 28 67 69 74 | EPL.buffer.no.longer.errors.(git |
| 2dbae0 | 3a 64 63 38 38 39 33 35 29 0a 0a 2a 2a 2a 20 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f | :dc88935)..***.slime-presentatio |
| 2dbb00 | 6e 73 20 63 61 6e 20 62 65 20 65 6e 61 62 6c 65 64 20 69 6e 20 69 6e 73 70 65 63 74 6f 72 20 28 | ns.can.be.enabled.in.inspector.( |
| 2dbb20 | 67 69 74 3a 36 34 37 63 33 63 33 2c 20 32 66 35 37 62 33 34 29 0a 53 65 74 20 60 73 6c 69 6d 65 | git:647c3c3,.2f57b34).Set.`slime |
| 2dbb40 | 2d 69 6e 73 70 65 63 74 6f 72 2d 69 6e 73 65 72 74 2d 69 73 70 65 63 2d 66 75 6e 63 74 69 6f 6e | -inspector-insert-ispec-function |
| 2dbb60 | 27 20 74 6f 0a 60 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 69 6e 73 70 65 63 74 | '.to.`slime-presentation-inspect |
| 2dbb80 | 6f 72 2d 69 6e 73 65 72 74 2d 69 73 70 65 63 27 20 74 6f 20 75 73 65 20 74 68 65 6d 2e 0a 0a 2a | or-insert-ispec'.to.use.them...* |
| 2dbba0 | 2a 2a 20 4d 2d 2e 20 6f 6e 20 61 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 6e 20 74 68 65 20 | **.M-..on.a.presentation.on.the. |
| 2dbbc0 | 52 45 50 4c 20 6e 6f 77 20 6c 6f 6e 67 65 72 20 65 72 72 6f 72 73 0a 54 68 69 73 20 68 61 70 70 | REPL.now.longer.errors.This.happ |
| 2dbbe0 | 65 6e 65 64 20 77 68 65 6e 20 60 73 6c 69 6d 65 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 27 20 | ened.when.`slime-presentations'. |
| 2dbc00 | 77 61 73 20 65 6e 61 62 6c 65 64 2c 20 65 69 74 68 65 72 20 62 79 20 69 74 73 65 6c 66 0a 6f 72 | was.enabled,.either.by.itself.or |
| 2dbc20 | 20 62 79 20 60 73 6c 69 6d 65 2d 66 61 6e 63 79 27 2e 0a 0a 2a 2a 2a 20 4d 2d 2e 20 6f 6e 20 74 | .by.`slime-fancy'...***.M-..on.t |
| 2dbc40 | 68 65 20 66 69 72 73 74 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 61 20 2a 73 6c 69 6d 65 2d 61 70 | he.first.position.of.a.*slime-ap |
| 2dbc60 | 72 6f 70 6f 73 2a 20 62 75 66 66 65 72 20 6e 6f 20 6c 6f 6e 67 65 72 20 66 61 69 6c 73 2e 0a 54 | ropos*.buffer.no.longer.fails..T |
| 2dbc80 | 68 69 73 20 68 61 70 70 65 6e 65 64 20 77 69 74 68 20 74 68 65 20 60 73 6c 69 6d 65 2d 66 61 6e | his.happened.with.the.`slime-fan |
| 2dbca0 | 63 79 2d 69 6e 73 70 65 63 74 6f 72 2e 65 6c 27 20 63 6f 6e 74 72 69 62 2e 0a 0a 2a 2a 2a 20 52 | cy-inspector.el'.contrib...***.R |
| 2dbcc0 | 45 54 20 6f 6e 20 6e 6f 20 70 61 72 74 20 69 6e 20 2a 69 6e 73 70 65 63 74 6f 72 2a 20 62 75 66 | ET.on.no.part.in.*inspector*.buf |
| 2dbce0 | 66 65 72 20 6e 6f 20 6c 6f 6e 67 65 72 20 65 72 72 6f 72 73 0a 0a 2a 2a 2a 20 73 6c 69 6d 65 2d | fer.no.longer.errors..***.slime- |
| 2dbd00 | 72 65 70 73 65 6e 74 61 74 69 6f 6e 73 20 70 72 6f 70 65 72 6c 79 20 72 65 63 6f 67 6e 69 7a 65 | repsentations.properly.recognize |
| 2dbd20 | 64 20 77 68 65 6e 20 61 74 20 76 65 72 79 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 62 75 66 66 | d.when.at.very.beginning.of.buff |
| 2dbd40 | 65 72 0a 46 69 78 20 62 79 20 41 74 74 69 6c 61 20 4c 65 6e 64 76 61 69 0a 0a 2a 2a 2a 20 41 76 | er.Fix.by.Attila.Lendvai..***.Av |
| 2dbd60 | 6f 69 64 20 6c 6f 61 64 69 6e 67 20 60 73 77 61 6e 6b 2d 61 73 64 66 2e 6c 69 73 70 27 20 69 66 | oid.loading.`swank-asdf.lisp'.if |
| 2dbd80 | 20 74 68 65 72 65 27 73 20 61 20 67 6f 6f 64 20 63 68 61 6e 63 65 20 69 74 20 77 69 6c 6c 20 62 | .there's.a.good.chance.it.will.b |
| 2dbda0 | 72 65 61 6b 20 53 57 41 4e 4b 0a 60 73 77 61 6e 6b 2d 61 73 64 66 2e 6c 69 73 70 27 20 61 62 6f | reak.SWANK.`swank-asdf.lisp'.abo |
| 2dbdc0 | 72 74 73 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 66 20 69 74 20 66 69 6e 64 73 20 61 | rts.the.connection.if.it.finds.a |
| 2dbde0 | 6e 20 6f 6c 64 20 41 53 44 46 20 76 65 72 73 69 6f 6e 2e 0a 0a 2a 2a 2a 20 49 6e 20 41 42 43 4c | n.old.ASDF.version...***.In.ABCL |
| 2dbe00 | 2c 20 60 73 6c 69 6d 65 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 27 20 6e 6f 77 20 | ,.`slime-describe-function'.now. |
| 2dbe20 | 77 6f 72 6b 73 20 66 6f 72 20 62 6f 74 68 20 6d 61 63 72 6f 73 20 61 6e 64 20 66 75 6e 63 74 69 | works.for.both.macros.and.functi |
| 2dbe40 | 6f 6e 73 2e 0a 0a 2a 2a 20 53 4c 49 4d 45 20 62 75 69 6c 64 73 20 6f 6e 20 54 72 61 76 69 73 20 | ons...**.SLIME.builds.on.Travis. |
| 2dbe60 | 43 49 0a 53 65 65 20 68 74 74 70 73 3a 2f 2f 74 72 61 76 69 73 2d 63 69 2e 6f 72 67 2f 73 6c 69 | CI.See.https://travis-ci.org/sli |
| 2dbe80 | 6d 65 2f 73 6c 69 6d 65 20 66 6f 72 20 74 68 65 20 62 75 69 6c 64 20 73 74 61 74 75 73 20 61 6e | me/slime.for.the.build.status.an |
| 2dbea0 | 64 20 68 69 73 74 6f 72 79 2e 0a 0a 2a 2a 20 54 65 73 74 69 6e 67 20 66 72 61 6d 65 77 6f 72 6b | d.history...**.Testing.framework |
| 2dbec0 | 20 72 65 66 61 63 74 6f 72 65 64 20 74 6f 20 75 73 65 20 45 52 54 0a 60 64 65 66 2d 73 6c 69 6d | .refactored.to.use.ERT.`def-slim |
| 2dbee0 | 65 2d 74 65 73 74 27 20 63 72 65 61 74 65 73 20 72 65 67 75 6c 61 72 20 45 52 54 20 74 65 73 74 | e-test'.creates.regular.ERT.test |
| 2dbf00 | 73 2e 20 60 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 65 72 74 2d 74 65 73 74 27 20 69 73 0a 61 20 | s..`define-slime-ert-test'.is.a. |
| 2dbf20 | 6c 69 67 68 74 65 72 20 63 6f 6e 76 65 6e 69 65 6e 63 65 20 6d 61 63 72 6f 20 77 68 69 63 68 20 | lighter.convenience.macro.which. |
| 2dbf40 | 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 65 74 73 20 73 6f 6d 65 20 74 61 67 73 20 66 6f 72 | automatically.sets.some.tags.for |
| 2dbf60 | 20 74 68 65 0a 6e 65 77 20 74 65 73 74 73 2e 0a 0a 2a 2a 20 54 6f 70 2d 6c 65 76 65 6c 20 4d 61 | .the.new.tests...**.Top-level.Ma |
| 2dbf80 | 6b 65 66 69 6c 65 0a 46 6f 72 20 68 61 63 6b 65 72 73 20 6f 72 20 75 73 65 72 73 20 75 73 69 6e | kefile.For.hackers.or.users.usin |
| 2dbfa0 | 67 20 74 68 65 20 6c 61 74 65 73 74 20 76 65 72 73 69 6f 6e 2c 20 74 68 65 72 65 20 69 73 20 6e | g.the.latest.version,.there.is.n |
| 2dbfc0 | 6f 77 20 61 0a 74 6f 70 2d 6c 65 76 65 6c 20 4d 61 6b 65 66 69 6c 65 2e 20 55 73 65 20 22 6d 61 | ow.a.top-level.Makefile..Use."ma |
| 2dbfe0 | 6b 65 20 68 65 6c 70 22 20 74 6f 20 6c 65 61 72 6e 20 61 62 6f 75 74 20 74 61 72 67 65 74 73 2e | ke.help".to.learn.about.targets. |
| 2dc000 | 0a 0a 2a 2a 20 4d 6f 76 65 64 20 74 6f 20 47 69 74 68 75 62 0a 53 4c 49 4d 45 20 6e 6f 77 20 6c | ..**.Moved.to.Github.SLIME.now.l |
| 2dc020 | 69 76 65 73 20 69 6e 20 47 69 74 68 75 62 2e 20 54 68 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f | ives.in.Github..The.documentatio |
| 2dc040 | 6e 20 61 6e 64 20 74 68 65 20 52 45 41 44 4d 45 2e 6d 64 20 66 69 6c 65 0a 77 65 72 65 20 75 70 | n.and.the.README.md.file.were.up |
| 2dc060 | 64 61 74 65 64 2e 20 48 41 43 4b 49 4e 47 20 77 61 73 20 72 65 6e 61 6d 65 64 20 74 6f 20 43 4f | dated..HACKING.was.renamed.to.CO |
| 2dc080 | 4e 54 52 49 42 55 54 49 4e 47 2e 6d 64 20 61 6e 64 20 75 70 64 61 74 65 64 20 77 69 74 68 0a 47 | NTRIBUTING.md.and.updated.with.G |
| 2dc0a0 | 69 74 68 75 62 20 73 70 65 63 69 66 69 63 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 2e 0a 0a 2a 2a | ithub.specific.instructions...** |
| 2dc0c0 | 20 42 75 67 66 69 78 65 73 20 61 6e 64 20 73 74 61 62 69 6c 69 74 79 20 69 6d 70 72 6f 76 65 6d | .Bugfixes.and.stability.improvem |
| 2dc0e0 | 65 6e 74 73 0a 53 69 6e 63 65 20 74 68 65 20 6c 61 73 74 20 72 65 6c 65 61 73 65 20 61 6e 64 20 | ents.Since.the.last.release.and. |
| 2dc100 | 62 65 66 6f 72 65 20 6d 6f 76 65 20 74 6f 20 47 69 74 68 75 62 2c 20 6d 61 6e 79 20 62 75 67 66 | before.move.to.Github,.many.bugf |
| 2dc120 | 69 78 65 73 20 61 6e 64 0a 6f 74 68 65 72 20 63 68 61 6e 67 65 73 20 77 65 72 65 20 63 6f 6d 6d | ixes.and.other.changes.were.comm |
| 2dc140 | 69 74 65 64 2c 20 74 6f 6f 20 6d 61 6e 79 20 74 6f 20 6c 69 73 74 20 68 65 72 65 2e 20 53 65 65 | ited,.too.many.to.list.here..See |
| 2dc160 | 20 43 68 61 6e 67 65 6c 6f 67 20 66 6f 72 0a 64 65 74 61 69 6c 73 2e 0a 0a 2a 20 32 2e 33 20 28 | .Changelog.for.details...*.2.3.( |
| 2dc180 | 4f 63 74 6f 62 65 72 20 32 30 31 31 29 0a 0a 2a 2a 20 52 45 50 4c 20 6e 6f 20 6c 6f 6e 67 65 72 | October.2011)..**.REPL.no.longer |
| 2dc1a0 | 20 6c 6f 61 64 65 64 20 62 79 20 64 65 66 61 75 6c 74 0a 53 4c 49 4d 45 20 68 61 73 20 61 20 52 | .loaded.by.default.SLIME.has.a.R |
| 2dc1c0 | 45 50 4c 20 77 68 69 63 68 20 63 6f 6d 6d 75 6e 69 63 61 74 65 73 20 65 78 63 6c 75 73 69 76 65 | EPL.which.communicates.exclusive |
| 2dc1e0 | 6c 79 20 6f 76 65 72 20 53 4c 49 4d 45 27 73 20 73 6f 63 6b 65 74 2e 0a 54 68 69 73 20 52 45 50 | ly.over.SLIME's.socket..This.REP |
| 2dc200 | 4c 20 69 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 6c 6f 61 64 65 64 20 62 79 20 64 65 66 61 75 6c 74 | L.is.no.longer.loaded.by.default |
| 2dc220 | 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 52 45 50 4c 20 69 73 20 6e 6f 77 20 74 68 65 0a 6f | ...The.default.REPL.is.now.the.o |
| 2dc240 | 6e 65 20 62 79 20 74 68 65 20 4c 69 73 70 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 6e | ne.by.the.Lisp.implementation.in |
| 2dc260 | 20 74 68 65 20 2a 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2a 20 62 75 66 66 65 72 2e 20 20 54 68 | .the.*inferior-lisp*.buffer...Th |
| 2dc280 | 65 0a 73 69 6d 70 6c 65 73 74 20 77 61 79 20 74 6f 20 65 6e 61 62 6c 65 20 74 68 65 20 6f 6c 64 | e.simplest.way.to.enable.the.old |
| 2dc2a0 | 20 52 45 50 4c 20 69 73 3a 0a 0a 20 20 28 73 6c 69 6d 65 2d 73 65 74 75 70 20 27 28 73 6c 69 6d | .REPL.is:....(slime-setup.'(slim |
| 2dc2c0 | 65 2d 72 65 70 6c 29 29 0a 0a 2a 2a 20 50 72 65 63 69 73 65 20 73 6f 75 72 63 65 20 74 72 61 63 | e-repl))..**.Precise.source.trac |
| 2dc2e0 | 6b 69 6e 67 20 69 6e 20 43 6c 6f 7a 75 72 65 20 43 4c 0a 52 65 63 65 6e 74 20 76 65 72 73 69 6f | king.in.Clozure.CL.Recent.versio |
| 2dc300 | 6e 73 20 6f 66 20 74 68 65 20 43 43 4c 20 63 6f 6d 70 69 6c 65 72 20 73 75 70 70 6f 72 74 20 73 | ns.of.the.CCL.compiler.support.s |
| 2dc320 | 6f 75 72 63 65 2d 6c 6f 63 61 74 69 6f 6e 20 74 72 61 63 6b 69 6e 67 2e 0a 54 68 69 73 20 6d 61 | ource-location.tracking..This.ma |
| 2dc340 | 6b 65 73 20 74 68 65 20 73 6c 64 62 2d 73 68 6f 77 2d 73 6f 75 72 63 65 20 63 6f 6d 6d 61 6e 64 | kes.the.sldb-show-source.command |
| 2dc360 | 20 6d 75 63 68 20 6d 6f 72 65 20 75 73 65 66 75 6c 20 61 6e 64 20 4d 2d 2e 20 77 6f 72 6b 73 0a | .much.more.useful.and.M-..works. |
| 2dc380 | 62 65 74 74 65 72 20 74 6f 6f 2e 0a 0a 2a 2a 20 45 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 | better.too...**.Environment.vari |
| 2dc3a0 | 61 62 6c 65 73 20 66 6f 72 20 4c 69 73 70 20 70 72 6f 63 65 73 73 0a 73 6c 69 6d 65 2d 6c 69 73 | ables.for.Lisp.process.slime-lis |
| 2dc3c0 | 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f | p-implementations.can.be.used.to |
| 2dc3e0 | 20 73 70 65 63 69 66 79 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 20 74 6f 0a 61 75 | .specify.a.list.of.strings.to.au |
| 2dc400 | 67 6d 65 6e 74 20 74 68 65 20 70 72 6f 63 65 73 73 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 6f 66 | gment.the.process.environment.of |
| 2dc420 | 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 2e 20 20 45 2e 67 2e 3a 0a 0a 20 20 20 20 28 | .the.Lisp.process...E.g.:......( |
| 2dc440 | 73 62 63 6c 2d 63 76 73 0a 20 20 20 20 20 28 22 2f 68 6f 6d 65 2f 6d 65 2f 73 62 63 6c 2d 63 76 | sbcl-cvs......("/home/me/sbcl-cv |
| 2dc460 | 73 2f 73 72 63 2f 72 75 6e 74 69 6d 65 2f 73 62 63 6c 22 0a 20 20 20 20 20 20 22 2d 2d 63 6f 72 | s/src/runtime/sbcl"......."--cor |
| 2dc480 | 65 22 20 22 2f 68 6f 6d 65 2f 6d 65 2f 73 62 63 6c 2d 63 76 73 2f 6f 75 74 70 75 74 2f 73 62 63 | e"."/home/me/sbcl-cvs/output/sbc |
| 2dc4a0 | 6c 2e 63 6f 72 65 22 29 0a 20 20 20 20 20 3a 65 6e 76 20 28 22 53 42 43 4c 5f 48 4f 4d 45 3d 2f | l.core")......:env.("SBCL_HOME=/ |
| 2dc4c0 | 68 6f 6d 65 2f 6d 65 2f 73 62 63 6c 2d 63 76 73 2f 63 6f 6e 74 72 69 62 2f 22 29 29 0a 0a 2a 20 | home/me/sbcl-cvs/contrib/"))..*. |
| 2dc4e0 | 32 2e 31 0a 0a 2a 2a 20 52 65 6d 6f 76 65 64 20 46 65 61 74 75 72 65 73 0a 53 6f 6d 65 20 6f 66 | 2.1..**.Removed.Features.Some.of |
| 2dc500 | 20 74 68 65 20 6d 6f 72 65 20 65 73 6f 74 65 72 69 63 20 66 65 61 74 75 72 65 73 2c 20 6c 69 6b | .the.more.esoteric.features,.lik |
| 2dc520 | 65 20 70 72 65 73 65 6e 74 61 74 69 6f 6e 73 20 6f 72 20 66 75 7a 7a 79 0a 63 6f 6d 70 6c 65 74 | e.presentations.or.fuzzy.complet |
| 2dc540 | 69 6f 6e 2c 20 61 72 65 20 6e 6f 20 6c 6f 6e 67 65 72 20 65 6e 61 62 6c 65 64 20 62 79 20 64 65 | ion,.are.no.longer.enabled.by.de |
| 2dc560 | 66 61 75 6c 74 2e 20 20 41 20 6e 65 77 20 64 69 72 65 63 74 6f 72 79 0a 22 63 6f 6e 74 72 69 62 | fault...A.new.directory."contrib |
| 2dc580 | 2f 22 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 63 6f 64 65 20 66 6f 72 20 74 68 65 73 65 20 70 | /".contains.the.code.for.these.p |
| 2dc5a0 | 61 63 6b 61 67 65 73 2e 20 20 54 6f 20 75 73 65 20 74 68 65 6d 2c 20 79 6f 75 0a 6d 75 73 74 20 | ackages...To.use.them,.you.must. |
| 2dc5c0 | 6d 61 6b 65 20 73 6f 6d 65 20 63 68 61 6e 67 65 73 20 74 6f 20 79 6f 75 72 20 7e 2f 2e 65 6d 61 | make.some.changes.to.your.~/.ema |
| 2dc5e0 | 63 73 2e 20 20 46 6f 72 20 64 65 74 61 69 6c 73 20 73 65 65 2c 20 73 65 63 74 69 6f 6e 0a 22 43 | cs...For.details.see,.section."C |
| 2dc600 | 6f 6e 74 72 69 62 75 74 65 64 20 50 61 63 6b 61 67 65 73 22 20 69 6e 20 74 68 65 20 6d 61 6e 75 | ontributed.Packages".in.the.manu |
| 2dc620 | 61 6c 2e 0a 0a 2a 2a 20 53 74 65 70 70 65 72 0a 4a 75 68 6f 20 53 6e 65 6c 6c 6d 61 6e 20 69 6d | al...**.Stepper.Juho.Snellman.im |
| 2dc640 | 70 6c 65 6d 65 6e 74 65 64 20 73 74 65 70 70 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 | plemented.stepping.commands.for. |
| 2dc660 | 53 42 43 4c 2e 0a 0a 2a 2a 20 43 6f 6d 70 6c 65 74 69 6f 6e 73 0a 53 4c 49 4d 45 20 63 61 6e 20 | SBCL...**.Completions.SLIME.can. |
| 2dc680 | 6e 6f 77 20 63 6f 6d 70 6c 65 74 65 20 6b 65 79 77 6f 72 64 73 20 61 6e 64 20 63 68 61 72 61 63 | now.complete.keywords.and.charac |
| 2dc6a0 | 74 65 72 20 6e 61 6d 65 73 20 28 6c 69 6b 65 20 23 5c 6e 65 77 6c 69 6e 65 29 2e 0a 0a 2a 20 32 | ter.names.(like.#\newline)...*.2 |
| 2dc6c0 | 2e 30 20 28 41 70 72 69 6c 20 32 30 30 36 29 0a 0a 2a 2a 20 49 6e 2d 70 6c 61 63 65 20 6d 61 63 | .0.(April.2006)..**.In-place.mac |
| 2dc6e0 | 72 6f 20 65 78 70 61 6e 73 69 6f 6e 0a 4d 61 72 63 6f 20 42 61 72 69 6e 67 65 72 20 77 72 6f 74 | ro.expansion.Marco.Baringer.wrot |
| 2dc700 | 65 20 61 20 6e 65 77 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 74 6f 20 69 6e 63 72 65 6d 65 6e 74 61 | e.a.new.minor.mode.to.incrementa |
| 2dc720 | 6c 6c 79 20 65 78 70 61 6e 64 20 6d 61 63 72 6f 73 2e 0a 0a 2a 2a 20 49 6d 70 72 6f 76 65 64 20 | lly.expand.macros...**.Improved. |
| 2dc740 | 61 72 67 6c 69 73 74 20 64 69 73 70 6c 61 79 0a 53 4c 49 4d 45 20 6e 6f 77 20 72 65 63 6f 67 6e | arglist.display.SLIME.now.recogn |
| 2dc760 | 69 7a 65 73 20 60 6d 61 6b 65 2d 69 6e 73 74 61 6e 63 65 27 20 63 61 6c 6c 73 20 61 6e 64 20 64 | izes.`make-instance'.calls.and.d |
| 2dc780 | 69 73 70 6c 61 79 73 20 74 68 65 20 63 6f 72 72 65 63 74 0a 61 72 67 6c 69 73 74 20 69 66 20 74 | isplays.the.correct.arglist.if.t |
| 2dc7a0 | 68 65 20 63 6c 61 73 73 6e 61 6d 65 20 69 73 20 70 72 65 73 65 6e 74 2e 20 20 53 69 6d 69 6c 61 | he.classname.is.present...Simila |
| 2dc7c0 | 72 6c 79 2c 20 66 6f 72 20 60 64 65 66 6d 65 74 68 6f 64 27 20 66 6f 72 6d 73 0a 53 4c 49 4d 45 | rly,.for.`defmethod'.forms.SLIME |
| 2dc7e0 | 20 64 69 73 70 6c 61 79 73 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 6f 66 20 74 68 65 20 67 | .displays.the.arguments.of.the.g |
| 2dc800 | 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 2a 2a 20 50 65 72 73 69 73 74 65 6e 74 20 | eneric.function...**.Persistent. |
| 2dc820 | 52 45 50 4c 20 68 69 73 74 6f 72 79 0a 53 4c 49 4d 45 20 6e 6f 77 20 73 61 76 65 73 20 74 68 65 | REPL.history.SLIME.now.saves.the |
| 2dc840 | 20 63 6f 6d 6d 61 6e 64 20 68 69 73 74 6f 72 79 20 66 72 6f 6d 20 52 45 50 4c 20 62 75 66 66 65 | .command.history.from.REPL.buffe |
| 2dc860 | 72 73 20 69 6e 20 61 20 66 69 6c 65 20 61 6e 64 0a 72 65 6c 6f 61 64 73 20 69 74 20 66 6f 72 20 | rs.in.a.file.and.reloads.it.for. |
| 2dc880 | 6e 65 77 6c 79 20 63 72 65 61 74 65 64 20 52 45 50 4c 20 62 75 66 66 65 72 73 2e 0a 0a 2a 2a 20 | newly.created.REPL.buffers...**. |
| 2dc8a0 | 53 63 69 65 6e 65 65 72 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 0a 44 6f 75 67 6c 61 73 20 43 72 6f | Scieneer.Common.Lisp.Douglas.Cro |
| 2dc8c0 | 73 68 65 72 20 61 64 64 65 64 20 73 75 70 70 6f 72 74 20 66 6f 72 20 53 63 69 65 6e 65 65 72 20 | sher.added.support.for.Scieneer. |
| 2dc8e0 | 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2e 0a 0a 2a 2a 20 53 42 43 4c 0a 56 61 72 69 6f 75 73 20 69 6d | Common.Lisp...**.SBCL.Various.im |
| 2dc900 | 70 72 6f 76 65 6d 65 6e 74 73 20 74 6f 20 6d 61 6b 65 20 53 4c 49 4d 45 20 77 6f 72 6b 20 77 65 | provements.to.make.SLIME.work.we |
| 2dc920 | 6c 6c 20 77 69 74 68 20 63 75 72 72 65 6e 74 20 53 42 43 4c 20 76 65 72 73 69 6f 6e 73 2e 0a 0a | ll.with.current.SBCL.versions... |
| 2dc940 | 2a 2a 20 43 6f 72 6d 61 6e 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 0a 45 73 70 65 6e 20 57 69 62 6f | **.Corman.Common.Lisp.Espen.Wibo |
| 2dc960 | 72 67 20 61 64 64 65 64 20 73 75 70 70 6f 72 74 20 66 6f 72 20 43 6f 72 6d 61 6e 20 43 6f 6d 6d | rg.added.support.for.Corman.Comm |
| 2dc980 | 6f 6e 20 4c 69 73 70 2e 0a 0a 2a 2a 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 73 0a 41 20 6e 65 77 | on.Lisp...**.Presentations.A.new |
| 2dc9a0 | 20 66 65 61 74 75 72 65 20 77 68 69 63 68 20 61 73 73 6f 63 69 61 74 65 73 20 6f 62 6a 65 63 74 | .feature.which.associates.object |
| 2dc9c0 | 73 20 69 6e 20 4c 69 73 70 20 77 69 74 68 20 74 68 65 69 72 20 74 65 78 74 75 61 6c 0a 72 65 70 | s.in.Lisp.with.their.textual.rep |
| 2dc9e0 | 72 65 73 65 74 61 74 69 6f 6e 20 69 6e 20 45 6d 61 63 73 2e 20 20 54 68 65 20 74 65 78 74 20 69 | resetation.in.Emacs...The.text.i |
| 2dca00 | 73 20 63 6c 69 63 6b 61 62 6c 65 20 61 6e 64 20 6f 70 65 72 61 74 69 6f 6e 73 20 6f 6e 20 74 68 | s.clickable.and.operations.on.th |
| 2dca20 | 65 0a 61 73 73 6f 63 69 61 74 65 64 20 6f 62 6a 65 63 74 20 63 61 6e 20 62 65 20 69 6e 76 6f 6b | e.associated.object.can.be.invok |
| 2dca40 | 65 64 20 66 72 6f 6d 20 61 20 70 6f 70 2d 75 70 20 6d 65 6e 75 2e 0a 0a 2a 2a 20 53 65 63 75 72 | ed.from.a.pop-up.menu...**.Secur |
| 2dca60 | 69 74 79 0a 53 4c 49 4d 45 20 68 61 73 20 6e 6f 77 20 61 20 73 69 6d 70 6c 65 20 61 75 74 68 65 | ity.SLIME.has.now.a.simple.authe |
| 2dca80 | 6e 74 69 63 61 74 69 6f 6e 20 6d 65 63 68 61 6e 69 73 6d 3a 20 69 66 20 74 68 65 20 66 69 6c 65 | ntication.mechanism:.if.the.file |
| 2dcaa0 | 0a 7e 2f 2e 73 6c 69 6d 65 2d 73 65 63 72 65 74 20 65 78 69 73 74 73 20 77 65 20 76 65 72 69 66 | .~/.slime-secret.exists.we.verif |
| 2dcac0 | 79 20 74 68 61 74 20 45 6d 61 63 73 20 61 6e 64 20 4c 69 73 70 20 63 61 6e 20 61 63 63 65 73 73 | y.that.Emacs.and.Lisp.can.access |
| 2dcae0 | 20 69 74 2e 0a 53 69 6e 63 65 20 62 6f 74 68 20 70 61 72 74 69 65 73 20 68 61 76 65 20 61 63 63 | .it..Since.both.parties.have.acc |
| 2dcb00 | 65 73 73 20 74 6f 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 20 73 79 73 74 65 6d 2c 20 77 65 20 | ess.to.the.same.file.system,.we. |
| 2dcb20 | 61 73 73 75 6d 65 20 74 68 61 74 0a 77 65 20 63 61 6e 20 74 72 75 73 74 20 65 61 63 68 20 6f 74 | assume.that.we.can.trust.each.ot |
| 2dcb40 | 68 65 72 2e 0a 0a 2a 20 31 2e 32 20 28 4d 61 72 63 68 20 32 30 30 35 29 0a 0a 2a 2a 20 4e 65 77 | her...*.1.2.(March.2005)..**.New |
| 2dcb60 | 20 69 6e 73 70 65 63 74 6f 72 0a 54 68 65 20 6c 69 73 70 20 73 69 64 65 20 6e 6f 77 20 72 65 74 | .inspector.The.lisp.side.now.ret |
| 2dcb80 | 75 72 6e 73 20 61 20 73 70 65 63 69 61 6c 6c 79 20 66 6f 72 6d 61 74 65 64 20 6c 69 73 74 20 6f | urns.a.specially.formated.list.o |
| 2dcba0 | 66 20 22 74 68 69 6e 67 73 22 20 74 6f 0a 66 6f 72 6d 61 74 20 77 68 69 63 68 20 61 72 65 20 74 | f."things".to.format.which.are.t |
| 2dcbc0 | 68 65 6e 20 70 61 73 73 65 64 20 74 6f 20 65 6d 61 63 73 20 61 6e 64 20 72 65 6e 64 65 72 65 64 | hen.passed.to.emacs.and.rendered |
| 2dcbe0 | 20 69 6e 20 74 68 65 20 69 6e 73 70 65 63 74 6f 72 0a 62 75 66 66 65 72 2e 20 54 68 69 6e 67 73 | .in.the.inspector.buffer..Things |
| 2dcc00 | 20 63 61 6e 20 62 65 20 65 69 74 68 65 72 20 74 65 78 74 2c 20 72 65 63 75 72 73 69 76 6c 79 20 | .can.be.either.text,.recursivly. |
| 2dcc20 | 69 6e 73 70 65 63 74 61 62 6c 65 20 76 61 6c 75 65 73 2c 20 6f 72 0a 66 75 6e 63 74 69 6f 6e 73 | inspectable.values,.or.functions |
| 2dcc40 | 20 74 6f 20 63 61 6c 6c 2e 20 54 68 65 20 6e 65 77 20 69 6e 73 70 65 63 74 6f 72 20 68 61 73 20 | .to.call..The.new.inspector.has. |
| 2dcc60 | 6d 75 63 68 20 62 65 74 74 65 72 20 73 75 70 70 6f 72 74 20 43 4c 4f 53 0a 6f 62 6a 65 63 74 73 | much.better.support.CLOS.objects |
| 2dcc80 | 20 61 6e 64 20 6d 65 74 68 6f 64 73 2e 0a 0a 2a 2a 20 55 6e 69 63 6f 64 65 0a 49 74 27 73 20 6e | .and.methods...**.Unicode.It's.n |
| 2dcca0 | 6f 77 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 73 65 6e 64 20 6e 6f 6e 2d 61 73 63 69 69 20 63 68 | ow.possible.to.send.non-ascii.ch |
| 2dccc0 | 61 72 61 63 74 65 72 73 20 74 6f 20 45 6d 61 63 73 2c 20 69 66 20 74 68 65 0a 63 6f 6d 6d 75 6e | aracters.to.Emacs,.if.the.commun |
| 2dcce0 | 69 63 61 74 69 6f 6e 20 63 68 61 6e 6e 65 6c 20 69 73 20 63 6f 6e 66 69 67 75 72 65 64 20 70 72 | ication.channel.is.configured.pr |
| 2dcd00 | 6f 70 65 72 6c 79 2e 20 20 53 65 65 20 74 68 65 20 76 61 72 69 61 62 6c 65 0a 60 73 6c 69 6d 65 | operly...See.the.variable.`slime |
| 2dcd20 | 2d 6e 65 74 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 27 2e 0a 0a 2a 2a 20 41 72 67 6c 69 73 74 | -net-coding-system'...**.Arglist |
| 2dcd40 | 20 6c 6f 6f 6b 75 70 20 77 68 69 6c 65 20 64 65 62 75 67 67 69 6e 67 0a 50 72 65 76 69 6f 75 73 | .lookup.while.debugging.Previous |
| 2dcd60 | 6c 79 2c 20 61 72 67 6c 69 73 74 20 6c 6f 6f 6b 75 70 20 77 61 73 20 64 69 73 61 62 6c 65 64 20 | ly,.arglist.lookup.was.disabled. |
| 2dcd80 | 77 68 69 6c 65 20 64 65 62 75 67 67 69 6e 67 2e 20 20 54 68 69 73 0a 72 65 73 74 72 69 63 74 69 | while.debugging...This.restricti |
| 2dcda0 | 6f 6e 20 77 61 73 20 72 65 6d 6f 76 65 64 2e 20 0a 0a 2a 2a 20 45 78 74 65 6e 64 65 64 20 74 72 | on.was.removed....**.Extended.tr |
| 2dcdc0 | 61 63 69 6e 67 20 63 6f 6d 6d 61 6e 64 0a 49 74 27 73 20 6e 6f 77 20 70 6f 73 73 69 62 6c 65 20 | acing.command.It's.now.possible. |
| 2dcde0 | 74 6f 20 74 72 61 63 65 20 69 6e 64 69 76 69 64 75 61 6c 20 61 20 73 69 6e 67 6c 65 20 6d 65 74 | to.trace.individual.a.single.met |
| 2dce00 | 68 6f 64 73 20 6f 72 20 61 6c 6c 20 6d 65 74 68 6f 64 73 0a 6f 66 20 61 20 67 65 6e 65 72 69 63 | hods.or.all.methods.of.a.generic |
| 2dce20 | 20 66 75 6e 63 74 69 6f 6e 2e 20 20 41 6c 73 6f 20 74 72 61 63 69 6e 67 20 63 61 6e 20 62 65 20 | .function...Also.tracing.can.be. |
| 2dce40 | 72 65 73 74 72 69 63 74 65 64 20 74 6f 20 73 69 74 75 61 74 69 6f 6e 73 0a 69 6e 20 77 68 69 63 | restricted.to.situations.in.whic |
| 2dce60 | 68 20 74 68 65 20 74 72 61 63 65 64 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 | h.the.traced.function.is.called. |
| 2dce80 | 66 72 6f 6d 20 61 20 73 70 65 63 69 66 69 63 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 2a 2a 20 4d 2d | from.a.specific.function...**.M- |
| 2dcea0 | 78 20 73 6c 69 6d 65 2d 62 72 6f 77 73 65 2d 63 6c 61 73 73 65 73 0a 41 20 73 69 6d 70 6c 65 20 | x.slime-browse-classes.A.simple. |
| 2dcec0 | 63 6c 61 73 73 20 62 72 6f 77 73 65 72 20 77 61 73 20 61 64 64 65 64 2e 0a 0a 2a 2a 20 46 41 53 | class.browser.was.added...**.FAS |
| 2dcee0 | 4c 20 66 69 6c 65 73 0a 54 68 65 20 66 61 73 6c 20 66 69 6c 65 73 20 66 6f 72 20 64 69 66 66 65 | L.files.The.fasl.files.for.diffe |
| 2dcf00 | 72 65 6e 74 20 4c 69 73 70 2f 4f 53 2f 68 61 72 64 77 61 72 65 20 63 6f 6d 62 69 6e 61 74 69 6f | rent.Lisp/OS/hardware.combinatio |
| 2dcf20 | 6e 73 20 61 72 65 20 6e 6f 77 0a 70 6c 61 63 65 64 20 69 6e 20 64 69 66 66 65 72 65 6e 74 20 64 | ns.are.now.placed.in.different.d |
| 2dcf40 | 69 72 65 63 74 6f 72 69 65 73 2e 0a 0a 2a 2a 20 4d 61 6e 79 20 6f 74 68 65 72 20 73 6d 61 6c 6c | irectories...**.Many.other.small |
| 2dcf60 | 20 69 6d 70 72 6f 76 65 6d 65 6e 74 73 20 61 6e 64 20 62 75 67 66 69 78 65 73 0a 0a 2a 20 31 2e | .improvements.and.bugfixes..*.1. |
| 2dcf80 | 30 20 28 53 65 70 74 65 6d 62 65 72 20 32 30 30 34 29 0a 0a 2a 2a 20 73 6c 69 6d 65 2d 69 6e 74 | 0.(September.2004)..**.slime-int |
| 2dcfa0 | 65 72 72 75 70 74 0a 54 68 65 20 64 65 66 61 75 6c 74 20 6b 65 79 20 62 69 6e 64 69 6e 67 20 66 | errupt.The.default.key.binding.f |
| 2dcfc0 | 6f 72 20 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 20 69 73 20 6e 6f 77 20 43 2d 63 20 43 2d | or.slime-interrupt.is.now.C-c.C- |
| 2dcfe0 | 62 2e 0a 0a 2a 2a 20 73 6c 64 62 2d 69 6e 73 70 65 63 74 2d 63 6f 6e 64 69 74 69 6f 6e 0a 49 6e | b...**.sldb-inspect-condition.In |
| 2dd000 | 20 53 4c 44 42 20 27 43 27 20 69 73 20 6e 6f 77 20 62 6f 75 6e 64 20 74 6f 20 73 6c 64 62 2d 69 | .SLDB.'C'.is.now.bound.to.sldb-i |
| 2dd020 | 6e 73 70 65 63 74 2d 63 6f 6e 64 69 74 69 6f 6e 2e 0a 0a 2a 2a 20 4d 6f 72 65 20 4d 65 6e 75 73 | nspect-condition...**.More.Menus |
| 2dd040 | 0a 53 4c 44 42 20 61 6e 64 20 74 68 65 20 52 45 50 4c 20 68 61 76 65 20 6e 6f 77 20 70 75 6c 6c | .SLDB.and.the.REPL.have.now.pull |
| 2dd060 | 2d 64 6f 77 6e 20 6d 65 6e 75 73 2e 0a 0a 2a 2a 20 47 6c 6f 62 61 6c 20 64 65 62 75 67 67 65 72 | -down.menus...**.Global.debugger |
| 2dd080 | 20 68 6f 6f 6b 2e 0a 41 20 6e 65 77 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 20 2a 67 6c 6f 62 61 | .hook..A.new.configurable.*globa |
| 2dd0a0 | 6c 2d 64 65 62 75 67 67 65 72 2a 20 74 6f 20 63 6f 6e 74 72 6f 6c 20 77 68 65 74 68 65 72 0a 73 | l-debugger*.to.control.whether.s |
| 2dd0c0 | 77 61 6e 6b 2d 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 20 73 68 6f 75 6c 64 20 62 65 20 69 6e 73 | wank-debugger-hook.should.be.ins |
| 2dd0e0 | 74 61 6c 6c 65 64 20 67 6c 6f 62 61 6c 6c 79 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e 20 54 72 | talled.globally.is.available..Tr |
| 2dd100 | 75 65 20 62 79 0a 64 65 66 61 75 6c 74 2e 0a 0a 2a 2a 20 57 68 65 6e 20 79 6f 75 20 63 61 6c 6c | ue.by.default...**.When.you.call |
| 2dd120 | 20 73 6c 64 62 2d 65 76 61 6c 2d 69 6e 2d 66 72 61 6d 65 20 77 69 74 68 20 61 20 70 72 65 66 69 | .sldb-eval-in-frame.with.a.prefi |
| 2dd140 | 78 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 0a 6e 6f 77 20 69 | x.argument,.the.result.is..now.i |
| 2dd160 | 6e 73 65 72 74 65 64 20 69 6e 20 74 68 65 20 52 45 50 4c 20 62 75 66 66 65 72 2e 0a 0a 2a 2a 20 | nserted.in.the.REPL.buffer...**. |
| 2dd180 | 43 6f 6d 70 69 6c 65 20 66 75 6e 63 74 69 6f 6e 0a 46 6f 72 20 41 6c 6c 65 67 72 6f 20 4d 2d 2e | Compile.function.For.Allegro.M-. |
| 2dd1a0 | 20 77 6f 72 6b 73 20 6e 6f 77 20 66 6f 72 20 66 75 6e 63 74 69 6f 6e 73 20 63 6f 6d 70 69 6c 65 | .works.now.for.functions.compile |
| 2dd1c0 | 64 20 77 69 74 68 20 43 2d 63 20 43 2d 63 2e 0a 0a 2a 2a 20 73 6c 69 6d 65 2d 65 64 69 74 2d 64 | d.with.C-c.C-c...**.slime-edit-d |
| 2dd1e0 | 65 66 69 6e 69 74 69 6f 6e 0a 42 65 74 74 65 72 20 73 75 70 70 6f 72 74 20 66 6f 72 20 41 6c 6c | efinition.Better.support.for.All |
| 2dd200 | 65 67 72 6f 3a 20 77 6f 72 6b 73 20 6e 6f 77 20 66 6f 72 20 64 69 66 66 65 72 65 6e 74 20 74 79 | egro:.works.now.for.different.ty |
| 2dd220 | 70 65 20 6f 66 0a 64 65 66 69 6e 69 74 69 6f 6e 73 20 6e 6f 74 20 6f 6e 6c 79 2e 20 53 6f 20 4d | pe.of.definitions.not.only..So.M |
| 2dd240 | 2d 2e 20 6e 6f 77 20 77 6f 72 6b 73 20 66 6f 72 20 65 2e 67 2e 20 63 6c 61 73 73 65 73 20 69 6e | -..now.works.for.e.g..classes.in |
| 2dd260 | 20 41 6c 6c 65 67 72 6f 2e 0a 0a 2a 2a 20 53 42 43 4c 20 30 2e 38 2e 31 33 0a 53 42 43 4c 20 30 | .Allegro...**.SBCL.0.8.13.SBCL.0 |
| 2dd280 | 2e 38 2e 31 32 20 69 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 73 75 70 70 6f 72 74 65 64 2e 20 20 53 | .8.12.is.no.longer.supported...S |
| 2dd2a0 | 75 70 70 6f 72 74 20 66 6f 72 20 30 2e 38 2e 31 32 20 77 61 73 20 62 72 6f 6b 65 6e 20 66 6f 72 | upport.for.0.8.12.was.broken.for |
| 2dd2c0 | 0a 66 6f 72 20 73 6f 6d 65 20 74 69 6d 65 20 6e 6f 77 2e 0a 0a 2a 20 31 2e 30 20 62 65 74 61 20 | .for.some.time.now...*.1.0.beta. |
| 2dd2e0 | 28 41 75 67 75 73 74 20 32 30 30 34 29 0a 0a 2a 2a 20 61 75 74 6f 64 6f 63 20 67 6c 6f 62 61 6c | (August.2004)..**.autodoc.global |
| 2dd300 | 20 76 61 72 69 61 62 6c 65 73 0a 54 68 65 20 73 6c 69 6d 65 2d 61 75 74 6f 64 6f 63 2d 6d 6f 64 | .variables.The.slime-autodoc-mod |
| 2dd320 | 65 20 77 69 6c 6c 20 6e 6f 77 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 68 6f 77 20 74 68 | e.will.now.automatically.show.th |
| 2dd340 | 65 20 76 61 6c 75 65 20 6f 66 20 61 0a 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 61 74 20 | e.value.of.a.global.variable.at. |
| 2dd360 | 70 6f 69 6e 74 2e 0a 0a 2a 2a 20 43 75 73 74 6f 6d 69 7a 65 20 67 72 6f 75 70 0a 54 68 65 20 63 | point...**.Customize.group.The.c |
| 2dd380 | 75 73 74 6f 6d 69 7a 65 20 67 72 6f 75 70 20 69 73 20 65 78 70 61 6e 64 65 64 20 61 6e 64 20 62 | ustomize.group.is.expanded.and.b |
| 2dd3a0 | 65 74 74 65 72 2d 6f 72 67 61 6e 69 73 65 64 2e 0a 0a 2a 2a 20 73 6c 69 6d 65 2d 69 6e 74 65 72 | etter-organised...**.slime-inter |
| 2dd3c0 | 61 63 74 69 76 65 2d 65 76 61 6c 0a 49 6e 74 65 72 61 63 74 69 76 65 2d 65 76 61 6c 20 63 6f 6d | active-eval.Interactive-eval.com |
| 2dd3e0 | 6d 61 6e 64 73 20 6e 6f 77 20 70 72 69 6e 74 20 74 68 65 69 72 20 72 65 73 75 6c 74 73 20 74 6f | mands.now.print.their.results.to |
| 2dd400 | 20 74 68 65 20 52 45 50 4c 20 77 68 65 6e 0a 67 69 76 65 6e 20 61 20 70 72 65 66 69 78 20 61 72 | .the.REPL.when.given.a.prefix.ar |
| 2dd420 | 67 75 6d 65 6e 74 2e 0a 0a 2a 2a 20 73 6c 69 6d 65 2d 63 6f 6e 73 65 72 76 61 74 69 76 65 2d 69 | gument...**.slime-conservative-i |
| 2dd440 | 6e 64 65 6e 74 61 74 69 6f 6e 0a 4e 65 77 20 45 6c 69 73 70 20 76 61 72 69 61 62 6c 65 2e 20 4e | ndentation.New.Elisp.variable..N |
| 2dd460 | 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 74 68 61 74 20 77 65 20 65 78 63 6c 75 64 65 20 64 65 66 | on-nil.means.that.we.exclude.def |
| 2dd480 | 2a 20 61 6e 64 20 77 69 74 68 2d 2a 20 66 72 6f 6d 0a 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 6c 65 | *.and.with-*.from.indentation-le |
| 2dd4a0 | 61 72 6e 69 6e 67 2e 20 54 68 65 20 64 65 66 61 75 6c 74 20 69 73 20 74 2e 0a 0a 2a 2a 20 28 73 | arning..The.default.is.t...**.(s |
| 2dd4c0 | 6c 69 6d 65 2d 73 65 74 75 70 29 0a 4e 65 77 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 73 74 72 65 | lime-setup).New.function.to.stre |
| 2dd4e0 | 61 6d 6c 69 6e 65 20 73 65 74 75 70 20 69 6e 20 7e 2f 2e 65 6d 61 63 73 0a 0a 2a 2a 20 4d 6f 64 | amline.setup.in.~/.emacs..**.Mod |
| 2dd500 | 65 6c 69 6e 65 20 70 61 63 6b 61 67 65 0a 54 68 65 20 70 61 63 6b 61 67 65 20 6e 61 6d 65 20 69 | eline.package.The.package.name.i |
| 2dd520 | 6e 20 74 68 65 20 6d 6f 64 65 6c 69 6e 65 20 69 73 20 6e 6f 77 20 75 70 64 61 74 65 64 20 6f 6e | n.the.modeline.is.now.updated.on |
| 2dd540 | 20 61 6e 20 69 64 6c 65 20 74 69 6d 65 72 2e 20 54 68 65 0a 6d 65 73 73 61 67 65 20 73 68 6f 75 | .an.idle.timer..The.message.shou |
| 2dd560 | 6c 64 20 6e 6f 77 20 62 65 20 6d 6f 72 65 20 6d 65 61 6e 69 6e 67 66 75 6c 20 77 68 65 6e 20 6d | ld.now.be.more.meaningful.when.m |
| 2dd580 | 6f 76 69 6e 67 20 61 72 6f 75 6e 64 20 69 6e 20 66 69 6c 65 73 0a 63 6f 6e 74 61 69 6e 69 6e 67 | oving.around.in.files.containing |
| 2dd5a0 | 20 6d 75 6c 74 69 70 6c 65 20 49 4e 2d 50 41 43 4b 41 47 45 20 66 6f 72 6d 73 2e 0a 0a 2a 2a 20 | .multiple.IN-PACKAGE.forms...**. |
| 2dd5c0 | 58 52 45 46 20 62 75 67 66 69 78 0a 54 68 65 20 58 52 45 46 20 63 6f 6d 6d 61 6e 64 73 20 64 69 | XREF.bugfix.The.XREF.commands.di |
| 2dd5e0 | 64 20 6e 6f 74 20 66 69 6e 64 20 73 79 6d 62 6f 6c 73 20 69 6e 20 74 68 65 20 72 69 67 68 74 20 | d.not.find.symbols.in.the.right. |
| 2dd600 | 70 61 63 6b 61 67 65 2e 0a 0a 2a 2a 20 52 45 50 4c 20 70 72 6f 6d 70 74 0a 54 68 65 20 70 61 63 | package...**.REPL.prompt.The.pac |
| 2dd620 | 6b 61 67 65 20 6e 61 6d 65 20 69 6e 20 74 68 65 20 52 45 50 4c 27 73 20 70 72 6f 6d 70 74 20 69 | kage.name.in.the.REPL's.prompt.i |
| 2dd640 | 73 20 6e 6f 77 20 61 62 62 72 65 76 69 61 74 65 64 20 74 6f 20 74 68 65 20 6c 61 73 74 0a 60 2e | s.now.abbreviated.to.the.last.`. |
| 2dd660 | 27 2d 64 65 6c 69 6d 69 74 65 64 20 74 6f 6b 65 6e 2c 20 65 2e 67 2e 20 4d 59 2e 43 4f 4d 50 41 | '-delimited.token,.e.g..MY.COMPA |
| 2dd680 | 4e 59 2e 50 41 43 4b 41 47 45 20 77 6f 75 6c 64 20 62 65 20 50 41 43 4b 41 47 45 2e 20 54 68 69 | NY.PACKAGE.would.be.PACKAGE..Thi |
| 2dd6a0 | 73 0a 63 61 6e 20 62 65 20 64 69 73 61 62 6c 65 64 20 62 79 20 73 65 74 74 69 6e 67 20 53 57 41 | s.can.be.disabled.by.setting.SWA |
| 2dd6c0 | 4e 4b 3a 3a 2a 41 55 54 4f 2d 41 42 42 52 45 56 49 41 54 45 2d 44 4f 54 54 45 44 2d 50 41 43 4b | NK::*AUTO-ABBREVIATE-DOTTED-PACK |
| 2dd6e0 | 41 47 45 53 2a 20 74 6f 0a 4e 49 4c 2e 0a 0a 2a 2a 20 43 4d 55 43 4c 20 73 6f 75 72 63 65 20 63 | AGES*.to.NIL...**.CMUCL.source.c |
| 2dd700 | 61 63 68 65 0a 54 68 65 20 73 6f 75 72 63 65 20 63 61 63 68 65 20 69 73 20 6e 6f 77 20 70 6f 70 | ache.The.source.cache.is.now.pop |
| 2dd720 | 75 6c 61 74 65 64 20 6f 6e 20 60 66 69 72 73 74 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b 27 2e 20 54 | ulated.on.`first-change-hook'..T |
| 2dd740 | 68 69 73 20 6d 61 6b 65 73 0a 4d 2d 2e 20 77 6f 72 6b 20 61 63 63 75 72 61 74 65 6c 79 20 69 6e | his.makes.M-..work.accurately.in |
| 2dd760 | 20 6d 6f 72 65 20 66 69 6c 65 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 73 63 65 6e 61 72 69 6f | .more.file.modification.scenario |
| 2dd780 | 73 2e 0a 0a 2a 2a 20 53 42 43 4c 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 73 0a 44 65 74 65 | s...**.SBCL.compiler.errors.Dete |
| 2dd7a0 | 63 74 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 73 20 61 6e 64 20 6d 61 6b 65 20 73 6f 6d 65 | ct.compiler.errors.and.make.some |
| 2dd7c0 | 20 6e 6f 69 73 65 2e 20 50 72 65 76 69 6f 75 73 6c 79 20 63 65 72 74 61 69 6e 0a 70 72 6f 62 6c | .noise..Previously.certain.probl |
| 2dd7e0 | 65 6d 73 20 28 65 2e 67 2e 20 72 65 61 64 65 72 2d 65 72 72 6f 72 73 29 20 63 6f 75 6c 64 20 73 | ems.(e.g..reader-errors).could.s |
| 2dd800 | 6c 69 70 20 62 79 20 71 75 69 65 74 6c 79 2e 0a 0a 2a 20 31 2e 30 20 61 6c 70 68 61 20 28 4a 75 | lip.by.quietly...*.1.0.alpha.(Ju |
| 2dd820 | 6e 65 20 32 30 30 34 29 0a 0a 54 68 65 20 66 69 72 73 74 20 70 72 65 76 69 65 77 20 72 65 6c 65 | ne.2004)..The.first.preview.rele |
| 2dd840 | 61 73 65 20 6f 66 20 53 4c 49 4d 45 2e 0a 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ase.of.SLIME.................... |
| 2dd860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd8a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dd9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dda00 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 6c 69 6d 65 2d 74 65 73 74 73 2e 65 6c 00 00 00 00 00 00 00 | slime-2.31/slime-tests.el....... |
| 2dda20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dda40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2dda60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 2dda80 | 30 31 36 31 32 36 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 30 31 34 00 20 30 00 00 00 | 0161264.00000000000.014014..0... |
| 2ddaa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ddac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ddae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ddb00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 2ddb20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 2ddb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ddb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ddb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ddba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ddbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ddbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ddc00 | 3b 3b 3b 20 73 6c 69 6d 65 2d 74 65 73 74 73 2e 65 6c 20 2d 2d 2d 20 41 75 74 6f 6d 61 74 65 64 | ;;;.slime-tests.el.---.Automated |
| 2ddc20 | 20 74 65 73 74 73 20 66 6f 72 20 73 6c 69 6d 65 2e 65 6c 20 20 2d 2a 2d 20 6c 65 78 69 63 61 6c | .tests.for.slime.el..-*-.lexical |
| 2ddc40 | 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 3b 3b 0a 3b 3b 3b 3b 20 4c 69 63 65 6e 73 65 0a | -binding:.t.-*-.;;.;;;;.License. |
| 2ddc60 | 3b 3b 20 20 20 20 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 33 20 20 45 72 69 63 20 | ;;.....Copyright.(C).2003..Eric. |
| 2ddc80 | 4d 61 72 73 64 65 6e 2c 20 4c 75 6b 65 20 47 6f 72 72 69 65 2c 20 48 65 6c 6d 75 74 20 45 6c 6c | Marsden,.Luke.Gorrie,.Helmut.Ell |
| 2ddca0 | 65 72 0a 3b 3b 20 20 20 20 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 34 2c 32 30 30 | er.;;.....Copyright.(C).2004,200 |
| 2ddcc0 | 35 2c 32 30 30 36 20 20 4c 75 6b 65 20 47 6f 72 72 69 65 2c 20 48 65 6c 6d 75 74 20 45 6c 6c 65 | 5,2006..Luke.Gorrie,.Helmut.Elle |
| 2ddce0 | 72 0a 3b 3b 20 20 20 20 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 37 2c 32 30 30 38 | r.;;.....Copyright.(C).2007,2008 |
| 2ddd00 | 2c 32 30 30 39 20 20 48 65 6c 6d 75 74 20 45 6c 6c 65 72 2c 20 54 6f 62 69 61 73 20 43 2e 20 52 | ,2009..Helmut.Eller,.Tobias.C..R |
| 2ddd20 | 69 74 74 77 65 69 6c 65 72 0a 3b 3b 20 20 20 20 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 | ittweiler.;;.....Copyright.(C).2 |
| 2ddd40 | 30 31 33 0a 3b 3b 0a 3b 3b 20 20 20 20 20 46 6f 72 20 61 20 64 65 74 61 69 6c 65 64 20 6c 69 73 | 013.;;.;;.....For.a.detailed.lis |
| 2ddd60 | 74 20 6f 66 20 63 6f 6e 74 72 69 62 75 74 6f 72 73 2c 20 73 65 65 20 74 68 65 20 6d 61 6e 75 61 | t.of.contributors,.see.the.manua |
| 2ddd80 | 6c 2e 0a 3b 3b 0a 3b 3b 20 20 20 20 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 | l..;;.;;.....This.program.is.fre |
| 2ddda0 | 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 | e.software;.you.can.redistribute |
| 2dddc0 | 20 69 74 20 61 6e 64 2f 6f 72 0a 3b 3b 20 20 20 20 20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 | .it.and/or.;;.....modify.it.unde |
| 2ddde0 | 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 | r.the.terms.of.the.GNU.General.P |
| 2dde00 | 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 0a 3b 3b 20 20 20 20 20 70 75 62 6c 69 73 68 65 | ublic.License.as.;;.....publishe |
| 2dde20 | 64 20 62 79 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f | d.by.the.Free.Software.Foundatio |
| 2dde40 | 6e 3b 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 32 20 6f 66 0a 3b 3b 20 20 20 20 20 74 68 | n;.either.version.2.of.;;.....th |
| 2dde60 | 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 | e.License,.or.(at.your.option).a |
| 2dde80 | 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 3b 3b 0a 3b 3b 20 20 20 20 20 54 68 69 73 | ny.later.version..;;.;;.....This |
| 2ddea0 | 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 | .program.is.distributed.in.the.h |
| 2ddec0 | 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 20 | ope.that.it.will.be.useful,.;;.. |
| 2ddee0 | 20 20 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 | ...but.WITHOUT.ANY.WARRANTY;.wit |
| 2ddf00 | 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f | hout.even.the.implied.warranty.o |
| 2ddf20 | 66 0a 3b 3b 20 20 20 20 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e | f.;;.....MERCHANTABILITY.or.FITN |
| 2ddf40 | 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 53 65 | ESS.FOR.A.PARTICULAR.PURPOSE..Se |
| 2ddf60 | 65 20 74 68 65 0a 3b 3b 20 20 20 20 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 | e.the.;;.....GNU.General.Public. |
| 2ddf80 | 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 3b 3b 0a 3b 3b 20 | License.for.more.details..;;.;;. |
| 2ddfa0 | 20 20 20 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 | ....You.should.have.received.a.c |
| 2ddfc0 | 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 0a 3b 3b | opy.of.the.GNU.General.Public.;; |
| 2ddfe0 | 20 20 20 20 20 4c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f | .....License.along.with.this.pro |
| 2de000 | 67 72 61 6d 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69 74 65 20 74 6f 20 74 68 65 20 46 72 65 65 0a | gram;.if.not,.write.to.the.Free. |
| 2de020 | 3b 3b 20 20 20 20 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e | ;;.....Software.Foundation,.Inc. |
| 2de040 | 2c 20 35 39 20 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 75 69 74 65 20 33 33 30 2c 20 42 | ,.59.Temple.Place.-.Suite.330,.B |
| 2de060 | 6f 73 74 6f 6e 2c 0a 3b 3b 20 20 20 20 20 4d 41 20 30 32 31 31 31 2d 31 33 30 37 2c 20 55 53 41 | oston,.;;.....MA.02111-1307,.USA |
| 2de080 | 2e 0a 0a 0c 0a 3b 3b 3b 3b 20 54 65 73 74 73 0a 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 | .....;;;;.Tests.(require.'slime) |
| 2de0a0 | 0a 28 72 65 71 75 69 72 65 20 27 65 72 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 | .(require.'ert).(require.'cl-lib |
| 2de0c0 | 29 0a 28 72 65 71 75 69 72 65 20 27 62 79 74 65 63 6f 6d 70 29 20 3b 20 62 79 74 65 2d 63 6f 6d | ).(require.'bytecomp).;.byte-com |
| 2de0e0 | 70 69 6c 65 2d 63 75 72 72 65 6e 74 2d 66 69 6c 65 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | pile-current-file..(defun.slime- |
| 2de100 | 73 68 75 66 66 6c 65 2d 6c 69 73 74 20 28 6c 69 73 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 6c 65 | shuffle-list.(list)...(let*.((le |
| 2de120 | 6e 20 28 6c 65 6e 67 74 68 20 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 61 6b 65 6e | n.(length.list))..........(taken |
| 2de140 | 20 28 6d 61 6b 65 2d 76 65 63 74 6f 72 20 6c 65 6e 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 | .(make-vector.len.nil))......... |
| 2de160 | 20 28 72 65 73 75 6c 74 20 28 6d 61 6b 65 2d 76 65 63 74 6f 72 20 6c 65 6e 20 6e 69 6c 29 29 29 | .(result.(make-vector.len.nil))) |
| 2de180 | 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 65 20 6c 69 73 74 29 0a 20 20 20 20 20 20 28 77 68 69 | .....(dolist.(e.list).......(whi |
| 2de1a0 | 6c 65 20 28 6c 65 74 20 28 28 69 20 28 72 61 6e 64 6f 6d 20 6c 65 6e 29 29 29 0a 20 20 20 20 20 | le.(let.((i.(random.len)))...... |
| 2de1c0 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 72 65 66 20 74 61 6b 65 6e 20 69 29 29 | ..........(cond.((aref.taken.i)) |
| 2de1e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 61 73 65 74 20 74 | ......................(t.(aset.t |
| 2de200 | 61 6b 65 6e 20 69 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | aken.i.t)....................... |
| 2de220 | 20 20 28 61 73 65 74 20 72 65 73 75 6c 74 20 69 20 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..(aset.result.i.e)............. |
| 2de240 | 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 29 0a 20 20 20 20 28 61 70 70 65 6e 64 | ............nil))))).....(append |
| 2de260 | 20 72 65 73 75 6c 74 20 27 28 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 61 74 | .result.'())))..(defun.slime-bat |
| 2de280 | 63 68 2d 74 65 73 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 74 65 73 74 2d 6e 61 6d 65 20 72 61 6e | ch-test.(&optional.test-name.ran |
| 2de2a0 | 64 6f 6d 69 7a 65 29 0a 20 20 22 52 75 6e 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 20 69 6e | domize)..."Run.the.test.suite.in |
| 2de2c0 | 20 62 61 74 63 68 2d 6d 6f 64 65 2e 0a 45 78 69 74 73 20 45 6d 61 63 73 20 77 68 65 6e 20 66 69 | .batch-mode..Exits.Emacs.when.fi |
| 2de2e0 | 6e 69 73 68 65 64 2e 20 54 68 65 20 65 78 69 74 20 63 6f 64 65 20 69 73 20 74 68 65 20 6e 75 6d | nished..The.exit.code.is.the.num |
| 2de300 | 62 65 72 20 6f 66 20 66 61 69 6c 65 64 20 74 65 73 74 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | ber.of.failed.tests."...(interac |
| 2de320 | 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 65 72 74 2d 64 65 62 75 67 2d 6f 6e 2d 65 72 72 6f | tive)...(let.((ert-debug-on-erro |
| 2de340 | 72 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 74 69 6d 65 6f 75 74 20 36 30 29 0a 20 20 20 20 | r.nil).........(timeout.60)..... |
| 2de360 | 20 20 20 20 28 73 6c 69 6d 65 2d 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 73 73 61 67 65 2d 66 75 | ....(slime-background-message-fu |
| 2de380 | 6e 63 74 69 6f 6e 20 23 27 69 67 6e 6f 72 65 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 29 0a 20 20 | nction.#'ignore)).....(slime)... |
| 2de3a0 | 20 20 3b 3b 20 42 6c 6f 63 6b 20 75 6e 74 69 6c 20 77 65 20 61 72 65 20 75 70 20 61 6e 64 20 72 | ..;;.Block.until.we.are.up.and.r |
| 2de3c0 | 75 6e 6e 69 6e 67 2e 0a 20 20 20 20 28 6c 65 74 20 28 74 69 6d 65 64 2d 6f 75 74 29 0a 20 20 20 | unning......(let.(timed-out).... |
| 2de3e0 | 20 20 20 28 72 75 6e 2d 77 69 74 68 2d 74 69 6d 65 72 20 74 69 6d 65 6f 75 74 20 6e 69 6c 0a 20 | ...(run-with-timer.timeout.nil.. |
| 2de400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 | .....................(lambda.(). |
| 2de420 | 28 73 65 74 71 20 74 69 6d 65 64 2d 6f 75 74 20 74 29 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c | (setq.timed-out.t))).......(whil |
| 2de440 | 65 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 29 0a 20 20 20 20 | e.(not.(slime-connected-p))..... |
| 2de460 | 20 20 20 20 28 73 69 74 2d 66 6f 72 20 31 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 74 69 | ....(sit-for.1).........(when.ti |
| 2de480 | 6d 65 64 2d 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6e 6f 6e 69 6e 74 65 72 | med-out...........(when.noninter |
| 2de4a0 | 61 63 74 69 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 65 6d 61 63 73 20 32 | active.............(kill-emacs.2 |
| 2de4c0 | 35 32 29 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c | 52))))).....(slime-sync-to-top-l |
| 2de4e0 | 65 76 65 6c 20 33 30 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 73 65 6c 65 63 74 6f 72 20 28 69 | evel.30).....(let*.((selector.(i |
| 2de500 | 66 20 72 61 6e 64 6f 6d 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | f.randomize..................... |
| 2de520 | 20 20 20 20 20 60 28 6d 65 6d 62 65 72 20 2c 40 28 73 6c 69 6d 65 2d 73 68 75 66 66 6c 65 2d 6c | .....`(member.,@(slime-shuffle-l |
| 2de540 | 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ist............................. |
| 2de560 | 20 20 20 20 20 20 20 20 20 28 65 72 74 2d 73 65 6c 65 63 74 2d 74 65 73 74 73 20 28 6f 72 20 74 | .........(ert-select-tests.(or.t |
| 2de580 | 65 73 74 2d 6e 61 6d 65 20 74 29 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | est-name.t).t)))................ |
| 2de5a0 | 20 20 20 20 20 20 20 20 28 6f 72 20 74 65 73 74 2d 6e 61 6d 65 20 74 29 29 29 0a 20 20 20 20 20 | ........(or.test-name.t)))...... |
| 2de5c0 | 20 20 20 20 20 20 28 65 72 74 2d 66 75 6e 20 28 69 66 20 6e 6f 6e 69 6e 74 65 72 61 63 74 69 76 | ......(ert-fun.(if.noninteractiv |
| 2de5e0 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 65 72 74 2d 72 | e.........................'ert-r |
| 2de600 | 75 6e 2d 74 65 73 74 73 2d 62 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | un-tests-batch.................. |
| 2de620 | 20 20 20 20 20 27 65 72 74 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 74 73 20 | .....'ert))).......(let.((stats. |
| 2de640 | 28 66 75 6e 63 61 6c 6c 20 65 72 74 2d 66 75 6e 20 73 65 6c 65 63 74 6f 72 29 29 29 0a 20 20 20 | (funcall.ert-fun.selector))).... |
| 2de660 | 20 20 20 20 20 28 69 66 20 6e 6f 6e 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 20 20 20 20 | .....(if.noninteractive......... |
| 2de680 | 20 20 20 20 28 6b 69 6c 6c 2d 65 6d 61 63 73 20 28 65 72 74 2d 73 74 61 74 73 2d 63 6f 6d 70 6c | ....(kill-emacs.(ert-stats-compl |
| 2de6a0 | 65 74 65 64 2d 75 6e 65 78 70 65 63 74 65 64 20 73 74 61 74 73 29 29 29 29 29 29 29 0a 0a 28 64 | eted-unexpected.stats)))))))..(d |
| 2de6c0 | 65 66 75 6e 20 73 6c 69 6d 65 2d 73 6b 69 70 2d 74 65 73 74 20 28 6d 65 73 73 61 67 65 29 0a 20 | efun.slime-skip-test.(message).. |
| 2de6e0 | 20 3b 3b 20 45 52 54 20 66 6f 72 20 45 6d 61 63 73 20 32 33 20 61 6e 64 20 65 61 72 6c 69 65 72 | .;;.ERT.for.Emacs.23.and.earlier |
| 2de700 | 20 64 6f 65 73 6e 27 74 20 68 61 76 65 20 60 65 72 74 2d 73 6b 69 70 27 0a 20 20 28 69 66 20 28 | .doesn't.have.`ert-skip'...(if.( |
| 2de720 | 66 62 6f 75 6e 64 70 20 27 65 72 74 2d 73 6b 69 70 29 0a 20 20 20 20 20 20 28 65 72 74 2d 73 6b | fboundp.'ert-skip).......(ert-sk |
| 2de740 | 69 70 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 28 63 6f 6e 63 61 74 | ip.message).....(message.(concat |
| 2de760 | 20 22 53 4b 49 50 50 49 4e 47 3a 20 22 20 6d 65 73 73 61 67 65 29 29 0a 20 20 20 20 28 65 72 74 | ."SKIPPING:.".message)).....(ert |
| 2de780 | 2d 70 61 73 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 65 73 74 73 2d 2d 75 6e | -pass)))..(defun.slime-tests--un |
| 2de7a0 | 64 65 66 69 6e 65 2d 61 6c 6c 20 28 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 74 65 73 74 20 28 65 | define-all.()...(dolist.(test.(e |
| 2de7c0 | 72 74 2d 73 65 6c 65 63 74 2d 74 65 73 74 73 20 74 20 74 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 | rt-select-tests.t.t)).....(let*. |
| 2de7e0 | 28 28 73 79 6d 20 28 65 72 74 2d 74 65 73 74 2d 6e 61 6d 65 20 74 65 73 74 29 29 29 0a 20 20 20 | ((sym.(ert-test-name.test))).... |
| 2de800 | 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 65 71 20 28 67 65 74 20 73 79 6d 20 27 65 72 74 2d | ...(cl-assert.(eq.(get.sym.'ert- |
| 2de820 | 2d 74 65 73 74 29 20 74 65 73 74 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 70 72 6f 70 20 | -test).test)).......(cl-remprop. |
| 2de840 | 73 79 6d 20 27 65 72 74 2d 2d 74 65 73 74 29 29 29 29 0a 0a 28 73 6c 69 6d 65 2d 74 65 73 74 73 | sym.'ert--test))))..(slime-tests |
| 2de860 | 2d 2d 75 6e 64 65 66 69 6e 65 2d 61 6c 6c 29 0a 0a 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 | --undefine-all)..(eval-and-compi |
| 2de880 | 6c 65 0a 20 20 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 65 73 74 73 2d 61 75 74 6f 2d 74 61 67 | le...(defun.slime-tests-auto-tag |
| 2de8a0 | 73 20 28 29 0a 20 20 20 20 28 61 70 70 65 6e 64 20 27 28 73 6c 69 6d 65 29 0a 20 20 20 20 20 20 | s.().....(append.'(slime)....... |
| 2de8c0 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 6e 61 6d 65 20 28 6f 72 20 6c 6f 61 64 2d | ......(let.((file-name.(or.load- |
| 2de8e0 | 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | file-name....................... |
| 2de900 | 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 63 75 72 72 65 6e 74 2d | ...........byte-compile-current- |
| 2de920 | 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 66 | file)))...............(if.(and.f |
| 2de940 | 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile-name........................ |
| 2de960 | 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 63 6f 6e 74 72 69 62 2f 74 65 73 74 2f 73 6c 69 6d | (string-match."contrib/test/slim |
| 2de980 | 65 2d 5c 5c 28 2e 2a 5c 5c 29 5c 2e 65 6c 63 3f 24 22 0a 09 09 09 09 20 20 20 20 20 66 69 6c 65 | e-\\(.*\\)\.elc?$"..........file |
| 2de9a0 | 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | -name))...................(list. |
| 2de9c0 | 27 63 6f 6e 74 72 69 62 20 28 69 6e 74 65 72 6e 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 | 'contrib.(intern.(match-string.1 |
| 2de9e0 | 20 66 69 6c 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 | .file-name))).................'( |
| 2dea00 | 63 6f 72 65 29 29 29 29 29 0a 0a 20 20 28 64 65 66 6d 61 63 72 6f 20 64 65 66 69 6e 65 2d 73 6c | core)))))....(defmacro.define-sl |
| 2dea20 | 69 6d 65 2d 65 72 74 2d 74 65 73 74 20 28 6e 61 6d 65 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 | ime-ert-test.(name.&rest.args).. |
| 2dea40 | 20 20 20 22 4c 69 6b 65 20 60 65 72 74 2d 64 65 66 74 65 73 74 27 2c 20 62 75 74 20 73 65 74 20 | ..."Like.`ert-deftest',.but.set. |
| 2dea60 | 74 61 67 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 2e 0a 41 6c 73 6f 20 64 6f 6e 27 74 20 65 | tags.automatically..Also.don't.e |
| 2dea80 | 72 72 6f 72 20 69 66 20 60 65 72 74 2e 65 6c 27 20 69 73 20 6d 69 73 73 69 6e 67 2e 22 0a 20 20 | rror.if.`ert.el'.is.missing."... |
| 2deaa0 | 20 20 28 69 66 20 28 6e 6f 74 20 28 66 65 61 74 75 72 65 70 20 27 65 72 74 29 29 0a 20 20 20 20 | ..(if.(not.(featurep.'ert))..... |
| 2deac0 | 20 20 20 20 28 77 61 72 6e 20 22 4e 6f 20 65 72 74 2e 65 6c 20 66 6f 75 6e 64 3a 20 6e 6f 74 20 | ....(warn."No.ert.el.found:.not. |
| 2deae0 | 64 65 66 69 6e 69 6e 67 20 74 65 73 74 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | defining.test.%s"............... |
| 2deb00 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 64 6f 63 73 74 72 69 6e 67 20 28 61 | name).......(let*.((docstring.(a |
| 2deb20 | 6e 64 20 28 73 74 72 69 6e 67 70 20 28 63 6c 2d 73 65 63 6f 6e 64 20 61 72 67 73 29 29 0a 20 20 | nd.(stringp.(cl-second.args))... |
| 2deb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 73 | ...........................(cl-s |
| 2deb60 | 65 63 6f 6e 64 20 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 73 | econd.args)))..............(args |
| 2deb80 | 20 28 69 66 20 64 6f 63 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(if.docstring.................. |
| 2deba0 | 20 20 20 20 20 20 28 63 64 64 72 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(cddr.args)............... |
| 2debc0 | 20 20 20 20 20 20 20 28 63 64 72 20 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .......(cdr.args)))............. |
| 2debe0 | 20 28 74 61 67 73 20 28 73 6c 69 6d 65 2d 74 65 73 74 73 2d 61 75 74 6f 2d 74 61 67 73 29 29 29 | .(tags.(slime-tests-auto-tags))) |
| 2dec00 | 0a 20 20 20 20 20 20 20 20 60 28 65 72 74 2d 64 65 66 74 65 73 74 20 2c 6e 61 6d 65 20 28 29 20 | .........`(ert-deftest.,name.(). |
| 2dec20 | 2c 28 6f 72 20 64 6f 63 73 74 72 69 6e 67 20 22 4e 6f 20 64 6f 63 73 74 72 69 6e 67 20 66 6f 72 | ,(or.docstring."No.docstring.for |
| 2dec40 | 20 74 68 69 73 20 74 65 73 74 2e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 74 61 67 73 20 27 | .this.test.")............:tags.' |
| 2dec60 | 2c 74 61 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 2c 40 61 72 67 73 29 29 29 29 0a 0a 20 20 28 | ,tags............,@args))))....( |
| 2dec80 | 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 65 73 74 2d 65 72 74 2d 74 65 73 74 2d 66 6f 72 20 28 6e | defun.slime-test-ert-test-for.(n |
| 2deca0 | 61 6d 65 20 69 6e 70 75 74 20 69 20 64 6f 63 20 5f 62 6f 64 79 20 66 61 69 6c 73 2d 66 6f 72 20 | ame.input.i.doc._body.fails-for. |
| 2decc0 | 73 74 79 6c 65 20 66 6e 61 6d 65 29 0a 20 20 20 20 60 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d | style.fname).....`(define-slime- |
| 2dece0 | 65 72 74 2d 74 65 73 74 0a 20 20 20 20 20 20 20 2c 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 | ert-test........,(intern.(format |
| 2ded00 | 20 22 25 73 2d 25 64 22 20 6e 61 6d 65 20 69 29 29 20 28 29 0a 20 20 20 20 20 20 20 2c 28 66 6f | ."%s-%d".name.i)).()........,(fo |
| 2ded20 | 72 6d 61 74 20 22 46 6f 72 20 69 6e 70 75 74 20 25 73 2c 20 25 73 22 20 28 74 72 75 6e 63 61 74 | rmat."For.input.%s,.%s".(truncat |
| 2ded40 | 65 2d 73 74 72 69 6e 67 2d 74 6f 2d 77 69 64 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-string-to-width............... |
| 2ded60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 | ......................(format."% |
| 2ded80 | 73 22 20 69 6e 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s".input)....................... |
| 2deda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 35 20 6e 69 6c 20 6e 69 6c 20 27 65 6c 6c 69 70 73 | ..............15.nil.nil.'ellips |
| 2dedc0 | 69 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 | is).................(replace-reg |
| 2dede0 | 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5e 2e 3f 3f 5c 5c 28 5c 5c 77 2b 5c 5c 29 22 0a 20 | exp-in-string."^.??\\(\\w+\\)".. |
| 2dee00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2dee20 | 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 29 20 28 64 6f 77 6e 63 61 73 65 20 73 | .........(lambda.(s).(downcase.s |
| 2dee40 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )).............................. |
| 2dee60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............doc................ |
| 2dee80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 0a 20 | ...........................t)).. |
| 2deea0 | 20 20 20 20 20 20 2c 40 28 69 66 20 66 61 69 6c 73 2d 66 6f 72 0a 20 20 20 20 20 20 20 20 20 20 | ......,@(if.fails-for........... |
| 2deec0 | 20 20 20 60 28 3a 65 78 70 65 63 74 65 64 2d 72 65 73 75 6c 74 20 27 28 73 61 74 69 73 66 69 65 | ...`(:expected-result.'(satisfie |
| 2deee0 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s............................... |
| 2def00 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ....(lambda.(result)............ |
| 2def20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 74 2d 74 65 | .........................(ert-te |
| 2def40 | 73 74 2d 72 65 73 75 6c 74 2d 74 79 70 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | st-result-type-p................ |
| 2def60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 0a 20 20 20 | ......................result.... |
| 2def80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2defa0 | 20 20 28 69 66 20 28 6d 65 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(if.(member................... |
| 2defc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 6c | ........................(slime-l |
| 2defe0 | 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | isp-implementation-name)........ |
| 2df000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2df020 | 20 20 20 27 2c 66 61 69 6c 73 2d 66 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...',fails-for)................. |
| 2df040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 61 69 6c 65 64 | .........................:failed |
| 2df060 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2df080 | 20 20 20 20 20 20 20 20 3a 70 61 73 73 65 64 29 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 2c 40 | ........:passed)))))).........,@ |
| 2df0a0 | 28 77 68 65 6e 20 73 74 79 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 28 6c 65 74 20 28 28 | (when.style............`((let.(( |
| 2df0c0 | 73 74 79 6c 65 20 28 73 6c 69 6d 65 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 79 6c 65 | style.(slime-communication-style |
| 2df0e0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 28 6d | )))................(when.(not.(m |
| 2df100 | 65 6d 62 65 72 20 73 74 79 6c 65 20 27 2c 73 74 79 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ember.style.',style))........... |
| 2df120 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 6b 69 70 2d 74 65 73 74 20 28 66 6f 72 6d 61 74 20 | .......(slime-skip-test.(format. |
| 2df140 | 22 74 65 73 74 20 6e 6f 74 20 61 70 70 6c 69 63 61 62 6c 65 20 66 6f 72 20 73 74 79 6c 65 20 25 | "test.not.applicable.for.style.% |
| 2df160 | 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s".............................. |
| 2df180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 79 6c 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 | .............style))))))........ |
| 2df1a0 | 28 61 70 70 6c 79 20 23 27 2c 66 6e 61 6d 65 20 27 2c 69 6e 70 75 74 29 29 29 29 0a 0a 28 64 65 | (apply.#',fname.',input))))..(de |
| 2df1c0 | 66 6d 61 63 72 6f 20 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 6e 61 6d 65 20 61 72 67 73 | fmacro.def-slime-test.(name.args |
| 2df1e0 | 20 64 6f 63 20 69 6e 70 75 74 73 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 44 65 66 69 6e | .doc.inputs.&rest.body)..."Defin |
| 2df200 | 65 20 61 20 74 65 73 74 20 63 61 73 65 2e 0a 4e 41 4d 45 20 20 20 20 3a 3a 3d 20 53 59 4d 42 4f | e.a.test.case..NAME....::=.SYMBO |
| 2df220 | 4c 20 7c 20 28 53 59 4d 42 4f 4c 20 4f 50 54 49 4f 4e 2a 29 20 69 73 20 61 20 73 79 6d 62 6f 6c | L.|.(SYMBOL.OPTION*).is.a.symbol |
| 2df240 | 20 6e 61 6d 69 6e 67 20 74 68 65 20 74 65 73 74 2e 0a 4f 50 54 49 4f 4e 20 20 3a 3a 3d 20 28 3a | .naming.the.test..OPTION..::=.(: |
| 2df260 | 66 61 69 6c 73 2d 66 6f 72 20 49 4d 50 4c 45 4d 45 4e 54 41 54 49 4f 4e 2a 29 20 7c 20 28 3a 73 | fails-for.IMPLEMENTATION*).|.(:s |
| 2df280 | 74 79 6c 65 20 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 2d 53 54 59 4c 45 2a 29 0a 41 52 47 53 20 | tyle.COMMUNICATION-STYLE*).ARGS. |
| 2df2a0 | 69 73 20 61 20 6c 61 6d 62 64 61 2d 6c 69 73 74 2e 0a 44 4f 43 20 69 73 20 61 20 64 6f 63 73 74 | is.a.lambda-list..DOC.is.a.docst |
| 2df2c0 | 72 69 6e 67 2e 0a 49 4e 50 55 54 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 61 72 67 75 6d 65 | ring..INPUTS.is.a.list.of.argume |
| 2df2e0 | 6e 74 20 6c 69 73 74 73 2c 20 65 61 63 68 20 74 65 73 74 65 64 20 73 65 70 61 72 61 74 65 6c 79 | nt.lists,.each.tested.separately |
| 2df300 | 2e 0a 42 4f 44 59 20 69 73 20 74 68 65 20 74 65 73 74 20 63 61 73 65 2e 20 54 68 65 20 62 6f 64 | ..BODY.is.the.test.case..The.bod |
| 2df320 | 79 20 63 61 6e 20 75 73 65 20 60 73 6c 69 6d 65 2d 63 68 65 63 6b 27 20 74 6f 20 74 65 73 74 0a | y.can.use.`slime-check'.to.test. |
| 2df340 | 63 6f 6e 64 69 74 69 6f 6e 73 20 28 61 73 73 65 72 74 69 6f 6e 73 29 2e 22 0a 20 20 28 64 65 63 | conditions.(assertions)."...(dec |
| 2df360 | 6c 61 72 65 20 28 64 65 62 75 67 20 28 26 64 65 66 69 6e 65 20 6e 61 6d 65 20 73 65 78 70 20 73 | lare.(debug.(&define.name.sexp.s |
| 2df380 | 65 78 70 20 73 65 78 70 20 26 72 65 73 74 20 64 65 66 2d 66 6f 72 6d 29 29 29 0a 20 20 28 69 66 | exp.sexp.&rest.def-form)))...(if |
| 2df3a0 | 20 28 6e 6f 74 20 28 66 65 61 74 75 72 65 70 20 27 65 72 74 29 29 0a 20 20 20 20 20 20 28 77 61 | .(not.(featurep.'ert)).......(wa |
| 2df3c0 | 72 6e 20 22 4e 6f 20 65 72 74 2e 65 6c 20 66 6f 75 6e 64 3a 20 6e 6f 74 20 64 65 66 69 6e 69 6e | rn."No.ert.el.found:.not.definin |
| 2df3e0 | 67 20 74 65 73 74 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 29 0a 20 20 20 | g.test.%s".............name).... |
| 2df400 | 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 2c 40 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 | .`(progn........,@(cl-destructur |
| 2df420 | 69 6e 67 2d 62 69 6e 64 20 28 6e 61 6d 65 20 26 72 65 73 74 20 6f 70 74 69 6f 6e 73 29 0a 20 20 | ing-bind.(name.&rest.options)... |
| 2df440 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 20 6e 61 6d 65 29 20 6e 61 6d 65 | ...........(if.(listp.name).name |
| 2df460 | 20 28 6c 69 73 74 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | .(list.name))............(let.(( |
| 2df480 | 66 6e 61 6d 65 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 73 6c 69 6d 65 2d 74 65 73 | fname.(intern.(format."slime-tes |
| 2df4a0 | 74 2d 25 73 22 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e | t-%s".name))))..............(con |
| 2df4c0 | 73 20 60 28 64 65 66 75 6e 20 2c 66 6e 61 6d 65 20 2c 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 | s.`(defun.,fname.,args.......... |
| 2df4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d | .............(slime-sync-to-top- |
| 2df500 | 6c 65 76 65 6c 20 30 2e 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | level.0.3)...................... |
| 2df520 | 20 2c 40 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | .,@body.......................(s |
| 2df540 | 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 30 2e 33 29 29 0a 20 20 20 | lime-sync-to-top-level.0.3)).... |
| 2df560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 69 6e 70 | ................(cl-loop.for.inp |
| 2df580 | 75 74 20 69 6e 20 28 65 76 61 6c 20 69 6e 70 75 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ut.in.(eval.inputs)............. |
| 2df5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 66 72 6f 6d 20 31 0a 20 20 20 | ................for.i.from.1.... |
| 2df5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 66 61 | .........................with.fa |
| 2df5e0 | 69 6c 73 2d 66 6f 72 20 3d 20 28 63 64 72 20 28 61 73 73 6f 63 20 3a 66 61 69 6c 73 2d 66 6f 72 | ils-for.=.(cdr.(assoc.:fails-for |
| 2df600 | 20 6f 70 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .options))...................... |
| 2df620 | 20 20 20 20 20 20 20 77 69 74 68 20 73 74 79 6c 65 20 3d 20 28 63 64 72 20 28 61 73 73 6f 63 20 | .......with.style.=.(cdr.(assoc. |
| 2df640 | 3a 73 74 79 6c 65 20 6f 70 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :style.options))................ |
| 2df660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 73 6c 69 6d 65 2d 74 65 73 74 | .............collect.(slime-test |
| 2df680 | 2d 65 72 74 2d 74 65 73 74 2d 66 6f 72 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -ert-test-for.name.............. |
| 2df6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2df6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 | ................input........... |
| 2df6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2df700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 0a 20 20 20 20 20 20 20 20 20 20 20 | ...................i............ |
| 2df720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2df740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 0a 20 20 20 20 20 20 20 20 20 20 | ..................doc........... |
| 2df760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2df780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 6f 64 79 0a 20 20 20 20 20 20 20 20 | ...................body......... |
| 2df7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2df7c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c 73 2d 66 6f 72 0a 20 | .....................fails-for.. |
| 2df7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2df800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 79 6c | ............................styl |
| 2df820 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e............................... |
| 2df840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 | ...............................f |
| 2df860 | 6e 61 6d 65 29 29 29 29 29 29 29 29 0a 0a 28 70 75 74 20 27 64 65 66 2d 73 6c 69 6d 65 2d 74 65 | name))))))))..(put.'def-slime-te |
| 2df880 | 73 74 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 34 29 0a 0a 28 64 65 | st.'lisp-indent-function.4)..(de |
| 2df8a0 | 66 6d 61 63 72 6f 20 73 6c 69 6d 65 2d 63 68 65 63 6b 20 28 63 68 65 63 6b 20 26 72 65 73 74 20 | fmacro.slime-check.(check.&rest. |
| 2df8c0 | 62 6f 64 79 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 64 65 66 75 6e 29 29 | body)...(declare.(indent.defun)) |
| 2df8e0 | 0a 20 20 60 28 75 6e 6c 65 73 73 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 20 | ...`(unless.(progn.,@body)...... |
| 2df900 | 28 65 72 74 2d 66 61 69 6c 20 2c 28 63 6c 2d 65 74 79 70 65 63 61 73 65 20 63 68 65 63 6b 0a 20 | (ert-fail.,(cl-etypecase.check.. |
| 2df920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 60 28 63 6f 6e 63 61 74 20 | .................(cons.`(concat. |
| 2df940 | 22 4f 6f 6f 70 73 2c 20 22 20 2c 28 63 6f 6e 73 20 27 66 6f 72 6d 61 74 20 63 68 65 63 6b 29 29 | "Ooops,.".,(cons.'format.check)) |
| 2df960 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 60 28 63 6f | )...................(string.`(co |
| 2df980 | 6e 63 61 74 20 22 43 68 65 63 6b 20 66 61 69 6c 65 64 3a 20 22 20 2c 63 68 65 63 6b 29 29 0a 20 | ncat."Check.failed:.".,check)).. |
| 2df9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 60 28 63 6f 6e 63 61 | .................(symbol.`(conca |
| 2df9c0 | 74 20 22 43 68 65 63 6b 20 66 61 69 6c 65 64 3a 20 22 20 2c 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | t."Check.failed:.".,(symbol-name |
| 2df9e0 | 20 63 68 65 63 6b 29 29 29 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 3b 20 54 65 73 74 20 63 61 73 65 | .check)))))))....;;;;;.Test.case |
| 2dfa00 | 20 64 65 66 69 6e 69 74 69 6f 6e 73 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 63 68 65 63 6b 2d | .definitions.(defun.slime-check- |
| 2dfa20 | 74 6f 70 2d 6c 65 76 65 6c 20 28 29 20 3b 28 26 6f 70 74 69 6f 6e 61 6c 20 5f 74 65 73 74 2d 6e | top-level.().;(&optional._test-n |
| 2dfa40 | 61 6d 65 29 0a 20 20 28 61 63 63 65 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20 6e 69 | ame)...(accept-process-output.ni |
| 2dfa60 | 6c 20 30 2e 30 30 31 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 41 74 20 74 68 65 20 | l.0.001)...(slime-check."At.the. |
| 2dfa80 | 74 6f 70 20 6c 65 76 65 6c 20 28 6e 6f 20 64 65 62 75 67 67 69 6e 67 20 6f 72 20 70 65 6e 64 69 | top.level.(no.debugging.or.pendi |
| 2dfaa0 | 6e 67 20 52 50 43 73 29 22 0a 20 20 20 20 28 73 6c 69 6d 65 2d 61 74 2d 74 6f 70 2d 6c 65 76 65 | ng.RPCs)".....(slime-at-top-leve |
| 2dfac0 | 6c 2d 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 61 74 2d 74 6f 70 2d 6c 65 76 65 | l-p)))..(defun.slime-at-top-leve |
| 2dfae0 | 6c 2d 70 20 28 29 0a 20 20 28 61 6e 64 20 28 6e 6f 74 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 | l-p.()...(and.(not.(sldb-get-def |
| 2dfb00 | 61 75 6c 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 28 73 6c 69 6d | ault-buffer))........(null.(slim |
| 2dfb20 | 65 2d 72 65 78 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | e-rex-continuations))))..(defun. |
| 2dfb40 | 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 6e 61 6d 65 20 70 72 65 64 69 | slime-wait-condition.(name.predi |
| 2dfb60 | 63 61 74 65 20 74 69 6d 65 6f 75 74 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 64 20 28 74 69 6d 65 | cate.timeout)...(let.((end.(time |
| 2dfb80 | 2d 61 64 64 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 20 28 73 65 63 6f 6e 64 73 2d 74 6f 2d | -add.(current-time).(seconds-to- |
| 2dfba0 | 74 69 6d 65 20 74 69 6d 65 6f 75 74 29 29 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 | time.timeout)))).....(while.(not |
| 2dfbc0 | 20 28 66 75 6e 63 61 6c 6c 20 70 72 65 64 69 63 61 74 65 29 29 0a 20 20 20 20 20 20 28 6d 65 73 | .(funcall.predicate)).......(mes |
| 2dfbe0 | 73 61 67 65 20 22 77 61 69 74 69 6e 67 20 66 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 3a 20 25 73 20 | sage."waiting.for.condition:.%s. |
| 2dfc00 | 5b 25 73 5d 22 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 | [%s]".name................(forma |
| 2dfc20 | 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 22 25 48 3a 25 4d 3a 25 53 2e 25 36 4e 22 29 29 0a 20 | t-time-string."%H:%M:%S.%6N")).. |
| 2dfc40 | 20 20 20 20 20 28 63 6f 6e 64 20 28 28 74 69 6d 65 2d 6c 65 73 73 2d 70 20 65 6e 64 20 28 63 75 | .....(cond.((time-less-p.end.(cu |
| 2dfc60 | 72 72 65 6e 74 2d 74 69 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 | rrent-time))..............(error |
| 2dfc80 | 20 22 54 69 6d 65 6f 75 74 20 77 61 69 74 69 6e 67 20 66 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 3a | ."Timeout.waiting.for.condition: |
| 2dfca0 | 20 25 53 22 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 | .%S".name)).............(t...... |
| 2dfcc0 | 20 20 20 20 20 20 20 20 3b 3b 20 58 58 58 20 69 66 20 61 20 70 72 6f 63 65 73 73 2d 66 69 6c 74 | ........;;.XXX.if.a.process-filt |
| 2dfce0 | 65 72 20 65 6e 74 65 72 73 20 61 20 72 65 63 75 72 73 69 76 65 2d 65 64 69 74 2c 20 77 65 0a 20 | er.enters.a.recursive-edit,.we.. |
| 2dfd00 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 68 61 6e 67 20 66 6f 72 65 76 65 72 0a 20 20 20 20 | ............;;.hang.forever..... |
| 2dfd20 | 20 20 20 20 20 20 20 20 20 28 61 63 63 65 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20 | .........(accept-process-output. |
| 2dfd40 | 6e 69 6c 20 30 2e 31 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 73 79 6e 63 | nil.0.1))))))..(defun.slime-sync |
| 2dfd60 | 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 28 74 69 6d 65 6f 75 74 29 0a 20 20 28 73 6c 69 6d 65 | -to-top-level.(timeout)...(slime |
| 2dfd80 | 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 74 6f 70 2d 6c 65 76 65 6c 22 20 23 27 73 6c | -wait-condition."top-level".#'sl |
| 2dfda0 | 69 6d 65 2d 61 74 2d 74 6f 70 2d 6c 65 76 65 6c 2d 70 20 74 69 6d 65 6f 75 74 29 29 0a 0a 3b 3b | ime-at-top-level-p.timeout))..;; |
| 2dfdc0 | 20 58 58 58 3a 20 75 6e 75 73 65 64 20 66 75 6e 63 74 69 6f 6e 0a 28 64 65 66 75 6e 20 73 6c 69 | .XXX:.unused.function.(defun.sli |
| 2dfde0 | 6d 65 2d 63 68 65 63 6b 2d 73 6c 64 62 2d 6c 65 76 65 6c 20 28 65 78 70 65 63 74 65 64 29 0a 20 | me-check-sldb-level.(expected).. |
| 2dfe00 | 20 28 6c 65 74 20 28 28 73 6c 64 62 2d 6c 65 76 65 6c 20 28 6c 65 74 20 28 28 73 6c 64 62 20 28 | .(let.((sldb-level.(let.((sldb.( |
| 2dfe20 | 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 29 29 0a 09 09 20 20 20 | sldb-get-default-buffer)))...... |
| 2dfe40 | 20 20 20 28 69 66 20 73 6c 64 62 0a 09 09 09 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 | ...(if.sldb......(with-current-b |
| 2dfe60 | 75 66 66 65 72 20 73 6c 64 62 0a 09 09 09 20 20 20 20 73 6c 64 62 2d 6c 65 76 65 6c 29 29 29 29 | uffer.sldb........sldb-level)))) |
| 2dfe80 | 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 28 22 53 4c 44 42 20 6c 65 76 65 6c 20 | ).....(slime-check.("SLDB.level. |
| 2dfea0 | 28 25 53 29 20 69 73 20 25 53 22 20 65 78 70 65 63 74 65 64 20 73 6c 64 62 2d 6c 65 76 65 6c 29 | (%S).is.%S".expected.sldb-level) |
| 2dfec0 | 0a 20 20 20 20 20 20 28 65 71 75 61 6c 20 65 78 70 65 63 74 65 64 20 73 6c 64 62 2d 6c 65 76 65 | .......(equal.expected.sldb-leve |
| 2dfee0 | 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 | l))))..(defun.slime-test-expect. |
| 2dff00 | 28 5f 6e 61 6d 65 20 65 78 70 65 63 74 65 64 20 61 63 74 75 61 6c 20 26 6f 70 74 69 6f 6e 61 6c | (_name.expected.actual.&optional |
| 2dff20 | 20 74 65 73 74 29 0a 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 70 20 65 78 70 65 63 74 65 64 | .test)...(when.(stringp.expected |
| 2dff40 | 29 20 28 73 65 74 71 20 65 78 70 65 63 74 65 64 20 28 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 | ).(setq.expected.(substring-no-p |
| 2dff60 | 72 6f 70 65 72 74 69 65 73 20 65 78 70 65 63 74 65 64 29 29 29 0a 20 20 28 77 68 65 6e 20 28 73 | roperties.expected)))...(when.(s |
| 2dff80 | 74 72 69 6e 67 70 20 61 63 74 75 61 6c 29 20 20 20 28 73 65 74 71 20 61 63 74 75 61 6c 20 28 73 | tringp.actual)...(setq.actual.(s |
| 2dffa0 | 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 61 63 74 75 61 6c 29 29 29 | ubstring-no-properties.actual))) |
| 2dffc0 | 0a 20 20 28 69 66 20 74 65 73 74 0a 20 20 20 20 20 20 28 73 68 6f 75 6c 64 20 28 66 75 6e 63 61 | ...(if.test.......(should.(funca |
| 2dffe0 | 6c 6c 20 74 65 73 74 20 65 78 70 65 63 74 65 64 20 61 63 74 75 61 6c 29 29 0a 20 20 20 20 28 73 | ll.test.expected.actual)).....(s |
| 2e0000 | 68 6f 75 6c 64 20 28 65 71 75 61 6c 20 65 78 70 65 63 74 65 64 20 61 63 74 75 61 6c 29 29 29 29 | hould.(equal.expected.actual)))) |
| 2e0020 | 0a 0a 28 64 65 66 75 6e 20 73 6c 64 62 2d 6c 65 76 65 6c 20 28 29 0a 20 20 28 6c 65 74 20 28 28 | ..(defun.sldb-level.()...(let.(( |
| 2e0040 | 73 6c 64 62 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 29 29 | sldb.(sldb-get-default-buffer))) |
| 2e0060 | 0a 20 20 20 20 28 69 66 20 73 6c 64 62 0a 09 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 | .....(if.sldb..(with-current-buf |
| 2e0080 | 66 65 72 20 73 6c 64 62 0a 09 20 20 73 6c 64 62 2d 6c 65 76 65 6c 29 29 29 29 0a 0a 28 64 65 66 | fer.sldb....sldb-level))))..(def |
| 2e00a0 | 75 6e 20 73 6c 69 6d 65 2d 73 6c 64 62 2d 6c 65 76 65 6c 3d 20 28 6c 65 76 65 6c 29 0a 20 20 28 | un.slime-sldb-level=.(level)...( |
| 2e00c0 | 65 71 75 61 6c 20 6c 65 76 65 6c 20 28 73 6c 64 62 2d 6c 65 76 65 6c 29 29 29 0a 0a 28 65 76 61 | equal.level.(sldb-level)))..(eva |
| 2e00e0 | 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 0a 20 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 74 65 | l-when-compile..(defvar.slime-te |
| 2e0100 | 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 20 27 28 28 22 66 6f 6f 62 61 72 22 29 20 28 22 66 6f 6f | st-symbols....'(("foobar").("foo |
| 2e0120 | 40 62 61 72 22 29 20 28 22 40 66 6f 6f 62 61 72 22 29 20 28 22 66 6f 6f 62 61 72 40 22 29 20 28 | @bar").("@foobar").("foobar@").( |
| 2e0140 | 22 5c 5c 40 66 6f 6f 62 61 72 22 29 0a 20 20 20 20 20 28 22 7c 61 73 64 66 7c 7c 66 6f 6f 7c 7c | "\\@foobar")......("|asdf||foo|| |
| 2e0160 | 62 61 72 7c 22 29 0a 20 20 20 20 20 28 22 5c 5c 23 3c 46 6f 6f 40 42 61 72 3e 22 29 0a 20 20 20 | bar|")......("\\#<Foo@Bar>").... |
| 2e0180 | 20 20 28 22 5c 5c 28 73 65 74 66 5c 5c 20 63 61 72 5c 5c 29 22 29 29 29 29 0a 0a 28 64 65 66 75 | ..("\\(setf\\.car\\)"))))..(defu |
| 2e01a0 | 6e 20 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 28 70 | n.slime-check-symbol-at-point.(p |
| 2e01c0 | 72 65 66 69 78 20 73 79 6d 62 6f 6c 20 73 75 66 66 69 78 29 0a 20 20 3b 3b 20 57 65 20 74 65 73 | refix.symbol.suffix)...;;.We.tes |
| 2e01e0 | 74 20 74 68 61 74 20 60 73 6c 69 6d 65 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 27 20 77 | t.that.`slime-symbol-at-point'.w |
| 2e0200 | 6f 72 6b 73 20 61 74 20 65 76 65 72 79 0a 20 20 3b 3b 20 63 68 61 72 61 63 74 65 72 20 6f 66 20 | orks.at.every...;;.character.of. |
| 2e0220 | 74 68 65 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 2e 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 | the.symbol.name....(with-temp-bu |
| 2e0240 | 66 66 65 72 0a 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 69 6e 73 65 72 74 | ffer.....(lisp-mode).....(insert |
| 2e0260 | 20 70 72 65 66 69 78 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 | .prefix).....(let.((start.(point |
| 2e0280 | 29 29 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 73 79 6d 62 6f 6c 20 73 75 66 66 69 78 29 | ))).......(insert.symbol.suffix) |
| 2e02a0 | 0a 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 28 6c 65 6e 67 74 68 20 73 79 6d 62 6f | .......(dotimes.(i.(length.symbo |
| 2e02c0 | 6c 29 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 2b 20 73 74 61 72 74 20 | l)).........(goto-char.(+.start. |
| 2e02e0 | 69 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 28 | i)).........(slime-test-expect.( |
| 2e0300 | 66 6f 72 6d 61 74 20 22 43 68 65 63 6b 20 60 25 73 27 20 28 61 74 20 25 64 29 2e 2e 2e 22 0a 20 | format."Check.`%s'.(at.%d)...".. |
| 2e0320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2e0340 | 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 | ..(buffer-string).(point))...... |
| 2e0360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 0a 20 20 20 | ......................symbol.... |
| 2e0380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 | ........................(slime-s |
| 2e03a0 | 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ymbol-at-point)................. |
| 2e03c0 | 20 20 20 20 20 20 20 20 20 20 20 23 27 65 71 75 61 6c 29 29 29 29 29 0a 0a 0a 0a 28 64 65 66 2d | ...........#'equal)))))....(def- |
| 2e03e0 | 73 6c 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 2e 32 20 28 73 79 | slime-test.symbol-at-point.2.(sy |
| 2e0400 | 6d 29 0a 20 20 22 66 61 6e 63 79 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 5f 6e 6f 74 5f 20 61 74 | m)..."fancy.symbol-name._not_.at |
| 2e0420 | 20 42 4f 42 2f 45 4f 42 22 0a 20 20 73 6c 69 6d 65 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 | .BOB/EOB"...slime-test-symbols.. |
| 2e0440 | 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 28 | .(slime-check-symbol-at-point."( |
| 2e0460 | 66 6f 6f 20 22 20 73 79 6d 20 22 20 62 61 72 29 22 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d | foo.".sym.".bar)"))..(def-slime- |
| 2e0480 | 74 65 73 74 20 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 2e 33 20 28 73 79 6d 29 0a 20 20 22 | test.symbol-at-point.3.(sym)..." |
| 2e04a0 | 66 61 6e 63 79 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 77 69 74 68 20 6c 65 61 64 69 6e 67 20 2c | fancy.symbol-name.with.leading., |
| 2e04c0 | 22 0a 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 73 29 20 28 65 | "...(cl-remove-if.(lambda.(s).(e |
| 2e04e0 | 71 20 28 61 72 65 66 20 28 63 61 72 20 73 29 20 30 29 20 3f 40 29 29 20 73 6c 69 6d 65 2d 74 65 | q.(aref.(car.s).0).?@)).slime-te |
| 2e0500 | 73 74 2d 73 79 6d 62 6f 6c 73 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 73 79 6d 62 6f | st-symbols)...(slime-check-symbo |
| 2e0520 | 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 2c 22 20 73 79 6d 20 22 22 29 29 0a 0a 28 64 65 66 2d 73 6c | l-at-point.",".sym.""))..(def-sl |
| 2e0540 | 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 2e 34 20 28 73 79 6d 29 | ime-test.symbol-at-point.4.(sym) |
| 2e0560 | 0a 20 20 22 66 61 6e 63 79 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 77 69 74 68 20 6c 65 61 64 69 | ..."fancy.symbol-name.with.leadi |
| 2e0580 | 6e 67 20 2c 40 22 0a 20 20 73 6c 69 6d 65 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 | ng.,@"...slime-test-symbols...(s |
| 2e05a0 | 6c 69 6d 65 2d 63 68 65 63 6b 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 2c 40 22 20 | lime-check-symbol-at-point.",@". |
| 2e05c0 | 73 79 6d 20 22 22 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f 6c | sym.""))..(def-slime-test.symbol |
| 2e05e0 | 2d 61 74 2d 70 6f 69 6e 74 2e 35 20 28 73 79 6d 29 0a 20 20 22 66 61 6e 63 79 20 73 79 6d 62 6f | -at-point.5.(sym)..."fancy.symbo |
| 2e0600 | 6c 2d 6e 61 6d 65 20 77 69 74 68 20 6c 65 61 64 69 6e 67 20 60 22 0a 20 20 73 6c 69 6d 65 2d 74 | l-name.with.leading.`"...slime-t |
| 2e0620 | 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 73 79 6d 62 6f | est-symbols...(slime-check-symbo |
| 2e0640 | 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 60 22 20 73 79 6d 20 22 22 29 29 0a 0a 28 64 65 66 2d 73 6c | l-at-point."`".sym.""))..(def-sl |
| 2e0660 | 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 2e 36 20 28 73 79 6d 29 | ime-test.symbol-at-point.6.(sym) |
| 2e0680 | 0a 20 20 22 66 61 6e 63 79 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 77 72 61 70 70 65 64 20 69 6e | ..."fancy.symbol-name.wrapped.in |
| 2e06a0 | 20 28 29 22 0a 20 20 73 6c 69 6d 65 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 6c 69 | .()"...slime-test-symbols...(sli |
| 2e06c0 | 6d 65 2d 63 68 65 63 6b 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 28 22 20 73 79 6d | me-check-symbol-at-point."(".sym |
| 2e06e0 | 20 22 29 22 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f 6c 2d 61 | .")"))..(def-slime-test.symbol-a |
| 2e0700 | 74 2d 70 6f 69 6e 74 2e 37 20 28 73 79 6d 29 0a 20 20 22 66 61 6e 63 79 20 73 79 6d 62 6f 6c 2d | t-point.7.(sym)..."fancy.symbol- |
| 2e0720 | 6e 61 6d 65 20 77 72 61 70 70 65 64 20 69 6e 20 23 3c 20 7b 44 45 41 44 42 45 45 46 7d 3e 22 0a | name.wrapped.in.#<.{DEADBEEF}>". |
| 2e0740 | 20 20 73 6c 69 6d 65 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 6c 69 6d 65 2d 63 68 | ..slime-test-symbols...(slime-ch |
| 2e0760 | 65 63 6b 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 23 3c 22 20 73 79 6d 20 22 20 7b | eck-symbol-at-point."#<".sym.".{ |
| 2e0780 | 44 45 41 44 42 45 45 46 7d 3e 22 29 29 0a 0a 3b 3b 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 | DEADBEEF}>"))..;;(def-slime-test |
| 2e07a0 | 20 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 2e 38 20 28 73 79 6d 29 0a 3b 3b 20 20 22 66 61 | .symbol-at-point.8.(sym).;;.."fa |
| 2e07c0 | 6e 63 79 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 77 72 61 70 70 65 64 20 69 6e 20 23 3c 3e 22 0a | ncy.symbol-name.wrapped.in.#<>". |
| 2e07e0 | 3b 3b 20 20 73 6c 69 6d 65 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 3b 3b 20 20 28 73 6c 69 6d | ;;..slime-test-symbols.;;..(slim |
| 2e0800 | 65 2d 63 68 65 63 6b 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 23 3c 22 20 73 79 6d | e-check-symbol-at-point."#<".sym |
| 2e0820 | 20 22 3e 22 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f 6c 2d 61 | .">"))..(def-slime-test.symbol-a |
| 2e0840 | 74 2d 70 6f 69 6e 74 2e 39 20 28 73 79 6d 29 0a 20 20 22 66 61 6e 63 79 20 73 79 6d 62 6f 6c 2d | t-point.9.(sym)..."fancy.symbol- |
| 2e0860 | 6e 61 6d 65 20 77 72 61 70 70 65 64 20 69 6e 20 23 7c 20 2e 2e 2e 20 7c 23 22 0a 20 20 73 6c 69 | name.wrapped.in.#|.....|#"...sli |
| 2e0880 | 6d 65 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 73 | me-test-symbols...(slime-check-s |
| 2e08a0 | 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 23 7c 5c 6e 22 20 73 79 6d 20 22 5c 6e 7c 23 22 | ymbol-at-point."#|\n".sym."\n|#" |
| 2e08c0 | 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f | ))..(def-slime-test.symbol-at-po |
| 2e08e0 | 69 6e 74 2e 31 30 20 28 73 79 6d 29 0a 20 20 22 66 61 6e 63 79 20 73 79 6d 62 6f 6c 2d 6e 61 6d | int.10.(sym)..."fancy.symbol-nam |
| 2e0900 | 65 20 61 66 74 65 72 20 23 7c 20 29 29 29 28 28 20 7c 23 20 28 31 29 22 0a 20 20 73 6c 69 6d 65 | e.after.#|.)))((.|#.(1)"...slime |
| 2e0920 | 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 73 79 6d | -test-symbols...(slime-check-sym |
| 2e0940 | 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 23 7c 20 29 29 29 28 28 20 23 7c 5c 6e 22 20 73 79 6d | bol-at-point."#|.)))((.#|\n".sym |
| 2e0960 | 20 22 22 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f 6c 2d 61 74 | .""))..(def-slime-test.symbol-at |
| 2e0980 | 2d 70 6f 69 6e 74 2e 31 31 20 28 73 79 6d 29 0a 20 20 22 66 61 6e 63 79 20 73 79 6d 62 6f 6c 2d | -point.11.(sym)..."fancy.symbol- |
| 2e09a0 | 6e 61 6d 65 20 61 66 74 65 72 20 23 7c 20 29 29 29 28 28 20 7c 23 20 28 32 29 22 0a 20 20 73 6c | name.after.#|.)))((.|#.(2)"...sl |
| 2e09c0 | 69 6d 65 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d | ime-test-symbols...(slime-check- |
| 2e09e0 | 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 23 7c 20 29 29 29 28 28 20 23 7c 22 20 73 79 | symbol-at-point."#|.)))((.#|".sy |
| 2e0a00 | 6d 20 22 22 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f 6c 2d 61 | m.""))..(def-slime-test.symbol-a |
| 2e0a20 | 74 2d 70 6f 69 6e 74 2e 31 32 20 28 73 79 6d 29 0a 20 20 22 66 61 6e 63 79 20 73 79 6d 62 6f 6c | t-point.12.(sym)..."fancy.symbol |
| 2e0a40 | 2d 6e 61 6d 65 20 77 72 61 70 70 65 64 20 69 6e 20 5c 22 2e 2e 2e 5c 22 22 0a 20 20 73 6c 69 6d | -name.wrapped.in.\"...\""...slim |
| 2e0a60 | 65 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 73 79 | e-test-symbols...(slime-check-sy |
| 2e0a80 | 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 5c 22 5c 6e 22 20 73 79 6d 20 22 5c 22 5c 6e 22 29 | mbol-at-point."\"\n".sym."\"\n") |
| 2e0aa0 | 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 | )..(def-slime-test.symbol-at-poi |
| 2e0ac0 | 6e 74 2e 31 33 20 28 73 79 6d 29 0a 20 20 22 66 61 6e 63 79 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | nt.13.(sym)..."fancy.symbol-name |
| 2e0ae0 | 20 77 72 61 70 70 65 64 20 69 6e 20 5c 22 20 29 29 29 28 28 20 5c 22 20 28 31 29 22 0a 20 20 73 | .wrapped.in.\".)))((.\".(1)"...s |
| 2e0b00 | 6c 69 6d 65 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b | lime-test-symbols...(slime-check |
| 2e0b20 | 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 5c 22 20 29 29 29 28 28 20 5c 22 5c 6e 22 | -symbol-at-point."\".)))((.\"\n" |
| 2e0b40 | 20 73 79 6d 20 22 22 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f | .sym.""))..(def-slime-test.symbo |
| 2e0b60 | 6c 2d 61 74 2d 70 6f 69 6e 74 2e 31 34 20 28 73 79 6d 29 0a 20 20 22 66 61 6e 63 79 20 73 79 6d | l-at-point.14.(sym)..."fancy.sym |
| 2e0b80 | 62 6f 6c 2d 6e 61 6d 65 20 77 72 61 70 70 65 64 20 69 6e 20 5c 22 20 29 29 29 28 28 20 5c 22 20 | bol-name.wrapped.in.\".)))((.\". |
| 2e0ba0 | 28 31 29 22 0a 20 20 73 6c 69 6d 65 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 6c 69 | (1)"...slime-test-symbols...(sli |
| 2e0bc0 | 6d 65 2d 63 68 65 63 6b 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 5c 22 20 29 29 29 | me-check-symbol-at-point."\".))) |
| 2e0be0 | 28 28 20 5c 22 22 20 73 79 6d 20 22 22 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 | ((.\"".sym.""))..(def-slime-test |
| 2e0c00 | 20 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 2e 31 35 20 28 73 79 6d 29 0a 20 20 22 73 79 6d | .symbol-at-point.15.(sym)..."sym |
| 2e0c20 | 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 61 66 74 65 72 20 23 2e 22 0a 20 20 73 6c 69 6d 65 2d 74 | bol-at-point.after.#."...slime-t |
| 2e0c40 | 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 73 79 6d 62 6f | est-symbols...(slime-check-symbo |
| 2e0c60 | 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 23 2e 22 20 73 79 6d 20 22 22 29 29 0a 0a 28 64 65 66 2d 73 | l-at-point."#.".sym.""))..(def-s |
| 2e0c80 | 6c 69 6d 65 2d 74 65 73 74 20 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 2e 31 36 20 28 73 79 | lime-test.symbol-at-point.16.(sy |
| 2e0ca0 | 6d 29 0a 20 20 22 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 61 66 74 65 72 20 23 2b 22 0a | m)..."symbol-at-point.after.#+". |
| 2e0cc0 | 20 20 73 6c 69 6d 65 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 73 0a 20 20 28 73 6c 69 6d 65 2d 63 68 | ..slime-test-symbols...(slime-ch |
| 2e0ce0 | 65 63 6b 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 22 23 2b 22 20 73 79 6d 20 22 22 29 | eck-symbol-at-point."#+".sym."") |
| 2e0d00 | 29 0a 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 73 65 78 70 2d 61 74 2d 70 6f 69 6e | )...(def-slime-test.sexp-at-poin |
| 2e0d20 | 74 2e 31 20 28 73 74 72 69 6e 67 29 0a 20 20 22 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 | t.1.(string)..."symbol-at-point. |
| 2e0d40 | 61 66 74 65 72 20 23 27 22 0a 20 20 27 28 28 22 66 6f 6f 22 29 0a 20 20 20 20 28 22 23 3a 66 6f | after.#'"...'(("foo").....("#:fo |
| 2e0d60 | 6f 22 29 0a 20 20 20 20 28 22 23 27 66 6f 6f 22 29 0a 20 20 20 20 28 22 23 27 28 6c 61 6d 62 64 | o").....("#'foo").....("#'(lambd |
| 2e0d80 | 61 20 28 78 29 20 78 29 22 29 0a 20 20 20 20 28 22 28 29 22 29 29 0a 20 20 28 77 69 74 68 2d 74 | a.(x).x)").....("()"))...(with-t |
| 2e0da0 | 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 | emp-buffer.....(lisp-mode).....( |
| 2e0dc0 | 69 6e 73 65 72 74 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 | insert.string).....(goto-char.(p |
| 2e0de0 | 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 | oint-min)).....(slime-test-expec |
| 2e0e00 | 74 20 28 66 6f 72 6d 61 74 20 22 43 68 65 63 6b 20 73 65 78 70 20 60 25 73 27 20 28 61 74 20 25 | t.(format."Check.sexp.`%s'.(at.% |
| 2e0e20 | 64 29 2e 2e 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d)...".......................... |
| 2e0e40 | 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 20 28 70 6f 69 6e 74 29 29 0a 20 | ......(buffer-string).(point)).. |
| 2e0e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 0a 20 20 20 | ......................string.... |
| 2e0e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 78 70 2d | ....................(slime-sexp- |
| 2e0ea0 | 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | at-point)....................... |
| 2e0ec0 | 20 23 27 65 71 75 61 6c 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 6e 61 72 | .#'equal)))..(def-slime-test.nar |
| 2e0ee0 | 72 6f 77 69 6e 67 20 28 29 0a 20 20 20 20 22 43 68 65 63 6b 20 74 68 61 74 20 6e 61 72 72 6f 77 | rowing.()....."Check.that.narrow |
| 2e0f00 | 69 6e 67 20 69 73 20 70 72 6f 70 65 72 6c 79 20 73 75 73 74 61 69 6e 65 64 2e 22 0a 20 20 20 20 | ing.is.properly.sustained."..... |
| 2e0f20 | 27 28 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 | '()...(slime-check-top-level)... |
| 2e0f40 | 28 6c 65 74 20 28 28 72 61 6e 64 6f 6d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 73 79 6d 62 6f | (let.((random-buffer-name.(symbo |
| 2e0f60 | 6c 2d 6e 61 6d 65 20 28 63 6c 2d 67 65 6e 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 | l-name.(cl-gensym))).........(de |
| 2e0f80 | 66 75 6e 2d 70 6f 73 29 20 28 74 6d 70 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 77 69 74 68 2d | fun-pos).(tmpbuffer)).....(with- |
| 2e0fa0 | 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 31 30 | temp-buffer.......(dotimes.(i.10 |
| 2e0fc0 | 30 29 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 3b 3b 3b 20 25 64 2e 20 6c 69 6e 65 | 0).(insert.(format.";;;.%d..line |
| 2e0fe0 | 5c 6e 22 20 69 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 74 6d 70 62 75 66 66 65 72 20 28 | \n".i))).......(setq.tmpbuffer.( |
| 2e1000 | 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 65 66 | current-buffer)).......(setq.def |
| 2e1020 | 75 6e 2d 70 6f 73 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 | un-pos.(point)).......(insert.(c |
| 2e1040 | 6f 6e 63 61 74 20 22 28 64 65 66 75 6e 20 5f 5f 66 6f 6f 5f 5f 20 28 78 20 79 29 22 20 22 5c 6e | oncat."(defun.__foo__.(x.y)"."\n |
| 2e1060 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 27 6e 6f 74 68 | "......................."..'noth |
| 2e1080 | 69 6e 67 29 22 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 29 29 0a 20 20 20 20 20 20 28 64 6f 74 | ing)".........."\n")).......(dot |
| 2e10a0 | 69 6d 65 73 20 28 69 20 31 30 30 29 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 3b 3b | imes.(i.100).(insert.(format.";; |
| 2e10c0 | 3b 20 25 64 2e 20 6c 69 6e 65 5c 6e 22 20 28 2b 20 31 30 30 20 69 29 29 29 29 0a 20 20 20 20 20 | ;.%d..line\n".(+.100.i))))...... |
| 2e10e0 | 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 43 68 65 63 6b 69 6e 67 20 74 68 61 74 20 6e 65 77 | .(slime-check."Checking.that.new |
| 2e1100 | 6c 79 20 63 72 65 61 74 65 64 20 62 75 66 66 65 72 20 69 73 20 6e 6f 74 20 6e 61 72 72 6f 77 65 | ly.created.buffer.is.not.narrowe |
| 2e1120 | 64 2e 22 0a 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e | d.".........(not.(slime-buffer-n |
| 2e1140 | 61 72 72 6f 77 65 64 2d 70 29 29 29 0a 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 64 | arrowed-p)))........(goto-char.d |
| 2e1160 | 65 66 75 6e 2d 70 6f 73 29 0a 20 20 20 20 20 20 28 6e 61 72 72 6f 77 2d 74 6f 2d 64 65 66 75 6e | efun-pos).......(narrow-to-defun |
| 2e1180 | 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 43 68 65 63 6b 69 6e 67 20 74 | ).......(slime-check."Checking.t |
| 2e11a0 | 68 61 74 20 6e 61 72 72 6f 77 69 6e 67 20 73 75 63 63 65 65 64 65 64 2e 22 0a 20 20 20 20 20 20 | hat.narrowing.succeeded."....... |
| 2e11c0 | 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 72 72 6f 77 65 64 2d 70 29 29 0a 0a 20 20 20 | .(slime-buffer-narrowed-p))..... |
| 2e11e0 | 20 20 20 28 73 6c 69 6d 65 2d 77 69 74 68 2d 70 6f 70 75 70 2d 62 75 66 66 65 72 20 28 72 61 6e | ...(slime-with-popup-buffer.(ran |
| 2e1200 | 64 6f 6d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | dom-buffer-name).........(slime- |
| 2e1220 | 63 68 65 63 6b 20 28 22 43 68 65 63 6b 69 6e 67 20 74 68 61 74 20 77 65 27 72 65 20 69 6e 20 53 | check.("Checking.that.we're.in.S |
| 2e1240 | 6c 69 6d 65 27 73 20 74 65 6d 70 20 62 75 66 66 65 72 20 60 25 73 27 22 0a 20 20 20 20 20 20 20 | lime's.temp.buffer.`%s'"........ |
| 2e1260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 61 6e 64 6f 6d 2d 62 75 66 66 65 72 2d 6e 61 6d | ...............random-buffer-nam |
| 2e1280 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 | e)...........(equal.(buffer-name |
| 2e12a0 | 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 20 72 61 6e 64 6f 6d 2d 62 75 66 66 65 72 | .(current-buffer)).random-buffer |
| 2e12c0 | 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 | -name))).......(with-current-buf |
| 2e12e0 | 66 65 72 20 72 61 6e 64 6f 6d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 3b | fer.random-buffer-name.........; |
| 2e1300 | 3b 20 4e 6f 74 69 63 65 20 74 68 61 74 20 77 65 20 63 61 6e 6e 6f 74 20 71 75 69 74 20 74 68 65 | ;.Notice.that.we.cannot.quit.the |
| 2e1320 | 20 62 75 66 66 65 72 20 77 69 74 68 69 6e 20 74 68 65 20 65 78 74 65 6e 74 0a 20 20 20 20 20 20 | .buffer.within.the.extent....... |
| 2e1340 | 20 20 3b 3b 20 6f 66 20 73 6c 69 6d 65 2d 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 74 65 6d | ..;;.of.slime-with-output-to-tem |
| 2e1360 | 70 2d 62 75 66 66 65 72 2e 0a 20 20 20 20 20 20 20 20 28 71 75 69 74 2d 77 69 6e 64 6f 77 20 74 | p-buffer..........(quit-window.t |
| 2e1380 | 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 28 22 43 68 65 63 6b 69 6e 67 | )).......(slime-check.("Checking |
| 2e13a0 | 20 74 68 61 74 20 77 65 27 76 65 20 67 6f 74 20 62 61 63 6b 20 66 72 6f 6d 20 60 25 73 27 22 0a | .that.we've.got.back.from.`%s'". |
| 2e13c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 61 6e 64 6f 6d 2d 62 75 66 66 65 | ....................random-buffe |
| 2e13e0 | 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 28 63 75 72 72 65 6e | r-name).........(and.(eq.(curren |
| 2e1400 | 74 2d 62 75 66 66 65 72 29 20 74 6d 70 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 | t-buffer).tmpbuffer)............ |
| 2e1420 | 20 20 28 3d 20 28 70 6f 69 6e 74 29 20 64 65 66 75 6e 2d 70 6f 73 29 29 29 0a 0a 20 20 20 20 20 | ..(=.(point).defun-pos)))....... |
| 2e1440 | 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 43 68 65 63 6b 69 6e 67 20 74 68 61 74 20 6e 61 72 | .(slime-check."Checking.that.nar |
| 2e1460 | 72 6f 77 69 6e 67 20 73 75 73 74 61 69 6e 65 64 20 5c 0a 61 66 74 65 72 20 71 75 69 74 74 69 6e | rowing.sustained.\.after.quittin |
| 2e1480 | 67 20 53 6c 69 6d 65 27 73 20 74 65 6d 70 20 62 75 66 66 65 72 2e 22 0a 20 20 20 20 20 20 20 20 | g.Slime's.temp.buffer."......... |
| 2e14a0 | 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 72 72 6f 77 65 64 2d 70 29 29 0a 0a 20 20 20 20 | (slime-buffer-narrowed-p))...... |
| 2e14c0 | 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 22 53 | ..(let.((slime-buffer-package."S |
| 2e14e0 | 57 41 4e 4b 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 27 2a 62 75 66 | WANK").............(symbol.'*buf |
| 2e1500 | 66 65 72 2d 70 61 63 6b 61 67 65 2a 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 64 | fer-package*)).........(slime-ed |
| 2e1520 | 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 79 6d 62 6f | it-definition.(symbol-name.symbo |
| 2e1540 | 6c 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 28 22 43 68 65 63 6b | l)).........(slime-check.("Check |
| 2e1560 | 69 6e 67 20 74 68 61 74 20 77 65 27 76 65 20 67 6f 74 20 4d 2d 2e 20 69 6e 74 6f 20 73 77 61 6e | ing.that.we've.got.M-..into.swan |
| 2e1580 | 6b 2e 6c 69 73 70 2e 20 25 53 22 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 | k.lisp..%S".symbol)...........(s |
| 2e15a0 | 74 72 69 6e 67 3d 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 28 | tring=.(file-name-nondirectory.( |
| 2e15c0 | 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | buffer-file-name)).............. |
| 2e15e0 | 20 20 20 20 20 20 22 73 77 61 6e 6b 2e 6c 69 73 70 22 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c | ......"swank.lisp")).........(sl |
| 2e1600 | 69 6d 65 2d 70 6f 70 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 63 6b 29 0a 20 | ime-pop-find-definition-stack).. |
| 2e1620 | 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 28 22 43 68 65 63 6b 69 6e 67 20 74 | .......(slime-check.("Checking.t |
| 2e1640 | 68 61 74 20 77 65 27 76 65 20 67 6f 74 20 62 61 63 6b 2e 22 29 0a 20 20 20 20 20 20 20 20 20 20 | hat.we've.got.back.")........... |
| 2e1660 | 28 61 6e 64 20 28 65 71 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 6d 70 62 75 66 | (and.(eq.(current-buffer).tmpbuf |
| 2e1680 | 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 70 6f 69 6e 74 29 20 64 | fer)................(=.(point).d |
| 2e16a0 | 65 66 75 6e 2d 70 6f 73 29 29 29 0a 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 | efun-pos)))..........(slime-chec |
| 2e16c0 | 6b 20 22 43 68 65 63 6b 69 6e 67 20 74 68 61 74 20 6e 61 72 72 6f 77 69 6e 67 20 73 75 73 74 61 | k."Checking.that.narrowing.susta |
| 2e16e0 | 69 6e 65 64 20 61 66 74 65 72 20 4d 2d 2c 22 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | ined.after.M-,"...........(slime |
| 2e1700 | 2d 62 75 66 66 65 72 2d 6e 61 72 72 6f 77 65 64 2d 70 29 29 29 0a 20 20 20 20 20 20 29 29 0a 20 | -buffer-narrowed-p))).......)).. |
| 2e1720 | 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 29 0a 0a 28 64 65 66 75 | .(slime-check-top-level))..(defu |
| 2e1740 | 6e 20 73 6c 69 6d 65 2d 74 65 73 74 2d 2d 64 69 73 70 6c 61 79 2d 72 65 67 69 6f 6e 2d 65 76 61 | n.slime-test--display-region-eva |
| 2e1760 | 6c 2d 61 72 67 20 28 6c 69 6e 65 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 29 0a 20 20 28 63 6c | l-arg.(line.window-height)...(cl |
| 2e1780 | 2d 65 74 79 70 65 63 61 73 65 20 6c 69 6e 65 0a 20 20 20 20 28 6e 75 6d 62 65 72 20 6c 69 6e 65 | -etypecase.line.....(number.line |
| 2e17a0 | 29 0a 20 20 20 20 28 63 6f 6e 73 20 28 73 6c 69 6d 65 2d 64 63 61 73 65 20 6c 69 6e 65 0a 09 20 | ).....(cons.(slime-dcase.line... |
| 2e17c0 | 20 20 20 28 28 2b 68 20 6c 69 6e 65 29 0a 09 20 20 20 20 20 28 2b 20 28 73 6c 69 6d 65 2d 74 65 | ...((+h.line).......(+.(slime-te |
| 2e17e0 | 73 74 2d 2d 64 69 73 70 6c 61 79 2d 72 65 67 69 6f 6e 2d 65 76 61 6c 2d 61 72 67 20 6c 69 6e 65 | st--display-region-eval-arg.line |
| 2e1800 | 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 29 0a 09 09 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 29 | .window-height)...window-height) |
| 2e1820 | 29 0a 09 20 20 20 20 28 28 2d 68 20 6c 69 6e 65 29 0a 09 20 20 20 20 20 28 2d 20 28 73 6c 69 6d | )......((-h.line).......(-.(slim |
| 2e1840 | 65 2d 74 65 73 74 2d 2d 64 69 73 70 6c 61 79 2d 72 65 67 69 6f 6e 2d 65 76 61 6c 2d 61 72 67 20 | e-test--display-region-eval-arg. |
| 2e1860 | 6c 69 6e 65 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 29 0a 09 09 77 69 6e 64 6f 77 2d 68 65 69 | line.window-height)...window-hei |
| 2e1880 | 67 68 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 65 73 74 2d 2d 64 69 | ght))))))..(defun.slime-test--di |
| 2e18a0 | 73 70 6c 61 79 2d 72 65 67 69 6f 6e 2d 6c 69 6e 65 2d 74 6f 2d 70 6f 73 69 74 69 6f 6e 20 28 6c | splay-region-line-to-position.(l |
| 2e18c0 | 69 6e 65 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 29 0a 20 20 28 6c 65 74 20 28 28 6c 69 6e 65 | ine.window-height)...(let.((line |
| 2e18e0 | 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 2d 64 69 73 70 6c 61 79 2d 72 65 67 69 6f 6e 2d 65 76 61 | .(slime-test--display-region-eva |
| 2e1900 | 6c 2d 61 72 67 20 6c 69 6e 65 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 29 29 29 0a 20 20 20 20 | l-arg.line.window-height)))..... |
| 2e1920 | 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 | (save-excursion.......(goto-char |
| 2e1940 | 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e | .(point-min)).......(forward-lin |
| 2e1960 | 65 20 28 31 2d 20 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 | e.(1-.line)).......(line-beginni |
| 2e1980 | 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 | ng-position))))..(def-slime-test |
| 2e19a0 | 20 64 69 73 70 6c 61 79 2d 72 65 67 69 6f 6e 0a 20 20 20 20 28 73 74 61 72 74 20 65 6e 64 20 70 | .display-region.....(start.end.p |
| 2e19c0 | 6f 73 20 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 65 78 70 65 63 74 65 64 2d 77 69 6e 64 6f 77 2d | os.window-start.expected-window- |
| 2e19e0 | 73 74 61 72 74 20 65 78 70 65 63 74 65 64 2d 70 6f 69 6e 74 29 0a 20 20 20 20 22 54 65 73 74 20 | start.expected-point)....."Test. |
| 2e1a00 | 60 73 6c 69 6d 65 2d 64 69 73 70 6c 61 79 2d 72 65 67 69 6f 6e 27 2e 22 0a 20 20 20 20 3b 3b 20 | `slime-display-region'.".....;;. |
| 2e1a20 | 6e 75 6d 62 65 72 73 20 61 72 65 20 61 63 74 75 61 6c 6c 79 20 6c 69 6e 65 73 20 6e 75 6d 62 65 | numbers.are.actually.lines.numbe |
| 2e1a40 | 72 73 0a 20 20 20 20 27 28 3b 3b 20 72 65 67 69 6f 6e 20 76 69 73 69 62 6c 65 2c 20 70 6f 69 6e | rs.....'(;;.region.visible,.poin |
| 2e1a60 | 74 20 69 6e 20 72 65 67 69 6f 6e 0a 20 20 20 20 20 20 28 32 20 34 20 33 20 31 20 20 31 20 33 29 | t.in.region.......(2.4.3.1..1.3) |
| 2e1a80 | 0a 20 20 20 20 20 20 3b 3b 20 72 65 67 69 6f 6e 20 76 69 73 69 62 6c 65 2c 20 70 6f 69 6e 74 20 | .......;;.region.visible,.point. |
| 2e1aa0 | 76 69 73 69 62 6c 65 20 62 75 74 20 6f 75 73 69 64 65 20 72 65 67 69 6f 6e 0a 20 20 20 20 20 20 | visible.but.ouside.region....... |
| 2e1ac0 | 28 32 20 34 20 35 20 31 20 20 31 20 35 29 0a 20 20 20 20 20 20 3b 3b 20 65 6e 64 20 6e 6f 74 20 | (2.4.5.1..1.5).......;;.end.not. |
| 2e1ae0 | 76 69 73 69 62 6c 65 2c 20 70 6f 69 6e 74 20 61 74 20 73 74 61 72 74 0a 20 20 20 20 20 20 28 32 | visible,.point.at.start.......(2 |
| 2e1b00 | 20 28 2b 68 20 32 29 20 32 20 31 20 20 32 20 32 29 0a 20 20 20 20 20 20 3b 3b 20 73 74 61 72 74 | .(+h.2).2.1..2.2).......;;.start |
| 2e1b20 | 20 6e 6f 74 20 76 69 73 69 62 6c 65 2c 20 70 6f 69 6e 74 20 61 74 20 73 74 61 72 74 0a 20 20 20 | .not.visible,.point.at.start.... |
| 2e1b40 | 20 20 20 28 28 2b 68 20 32 29 20 28 2b 68 20 35 30 30 29 20 28 2b 68 20 32 29 20 31 20 20 28 2b | ...((+h.2).(+h.500).(+h.2).1..(+ |
| 2e1b60 | 68 20 32 29 20 28 2b 68 20 32 29 29 0a 20 20 20 20 20 20 3b 3b 20 73 74 61 72 74 20 6e 6f 74 20 | h.2).(+h.2)).......;;.start.not. |
| 2e1b80 | 76 69 73 69 62 6c 65 2c 20 70 6f 69 6e 74 20 61 66 74 65 72 20 65 6e 64 0a 20 20 20 20 20 20 28 | visible,.point.after.end.......( |
| 2e1ba0 | 28 2b 68 20 32 29 20 28 2b 68 20 35 30 30 29 20 28 2b 68 20 36 29 20 31 20 20 28 2b 68 20 32 29 | (+h.2).(+h.500).(+h.6).1..(+h.2) |
| 2e1bc0 | 20 28 2b 68 20 36 29 29 0a 20 20 20 20 20 20 3b 3b 20 65 6e 64 20 2d 20 73 74 61 72 74 20 73 68 | .(+h.6)).......;;.end.-.start.sh |
| 2e1be0 | 6f 75 6c 64 20 62 65 20 76 69 73 69 62 6c 65 2c 20 70 6f 69 6e 74 20 61 66 74 65 72 20 65 6e 64 | ould.be.visible,.point.after.end |
| 2e1c00 | 0a 20 20 20 20 20 20 28 28 2b 68 20 32 29 20 28 2b 68 20 37 29 20 28 2b 68 20 31 30 29 20 31 20 | .......((+h.2).(+h.7).(+h.10).1. |
| 2e1c20 | 20 28 2d 68 20 28 2b 68 20 37 29 29 20 28 2b 68 20 36 29 29 0a 20 20 20 20 20 20 3b 3b 20 72 65 | .(-h.(+h.7)).(+h.6)).......;;.re |
| 2e1c40 | 67 69 6f 6e 20 69 73 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 2b 20 31 20 61 6e 64 20 65 6e | gion.is.window-height.+.1.and.en |
| 2e1c60 | 64 73 20 77 69 74 68 20 6e 65 77 6c 69 6e 65 0a 20 20 20 20 20 20 28 28 2b 68 20 2d 32 29 20 28 | ds.with.newline.......((+h.-2).( |
| 2e1c80 | 2b 68 20 28 2b 68 20 2d 33 29 29 20 28 2b 68 20 2d 32 29 20 31 20 20 28 2b 68 20 2d 33 29 20 28 | +h.(+h.-3)).(+h.-2).1..(+h.-3).( |
| 2e1ca0 | 2b 68 20 2d 32 29 29 0a 20 20 20 20 20 20 28 32 20 28 2b 68 20 31 29 20 33 20 31 20 20 31 20 33 | +h.-2)).......(2.(+h.1).3.1..1.3 |
| 2e1cc0 | 29 0a 20 20 20 20 20 20 28 32 20 28 2b 68 20 30 29 20 33 20 31 20 20 31 20 33 29 0a 20 20 20 20 | ).......(2.(+h.0).3.1..1.3)..... |
| 2e1ce0 | 20 20 28 32 20 28 2b 68 20 2d 31 29 20 33 20 31 20 20 31 20 33 29 0a 20 20 20 20 20 20 3b 3b 20 | ..(2.(+h.-1).3.1..1.3).......;;. |
| 2e1d00 | 73 74 61 72 74 20 61 6e 64 20 65 6e 64 20 61 72 65 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 0a | start.and.end.are.the.beginning. |
| 2e1d20 | 20 20 20 20 20 20 28 31 20 31 20 31 20 31 20 20 31 20 31 29 0a 20 20 20 20 20 20 3b 3b 0a 20 20 | ......(1.1.1.1..1.1).......;;... |
| 2e1d40 | 20 20 20 20 28 31 20 28 2b 68 20 31 29 20 28 2b 68 20 32 32 29 20 28 2b 68 20 32 30 29 20 20 31 | ....(1.(+h.1).(+h.22).(+h.20)..1 |
| 2e1d60 | 20 28 2b 68 20 30 29 29 0a 20 20 20 20 20 20 29 0a 20 20 28 77 68 65 6e 20 6e 6f 6e 69 6e 74 65 | .(+h.0)).......)...(when.noninte |
| 2e1d80 | 72 61 63 74 69 76 65 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 6b 69 70 2d 74 65 73 74 20 22 43 61 | ractive.....(slime-skip-test."Ca |
| 2e1da0 | 6e 27 74 20 74 65 73 74 20 73 6c 69 6d 65 2d 64 69 73 70 6c 61 79 2d 72 65 67 69 6f 6e 20 69 6e | n't.test.slime-display-region.in |
| 2e1dc0 | 20 62 61 74 63 68 20 6d 6f 64 65 22 29 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 | .batch.mode"))...(with-temp-buff |
| 2e1de0 | 65 72 0a 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 31 30 30 30 29 0a 20 20 20 20 20 20 28 | er.....(dotimes.(i.1000).......( |
| 2e1e00 | 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 25 30 39 64 5c 6e 22 20 69 29 29 29 0a 20 20 20 | insert.(format."%09d\n".i))).... |
| 2e1e20 | 20 28 6c 65 74 2a 20 28 28 77 69 6e 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 63 75 | .(let*.((win.(display-buffer.(cu |
| 2e1e40 | 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 29 29 0a 09 20 20 20 28 77 68 20 28 77 69 6e 64 6f | rrent-buffer).t)).....(wh.(windo |
| 2e1e60 | 77 2d 74 65 78 74 2d 68 65 69 67 68 74 20 77 69 6e 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 6d | w-text-height.win))).......(cl-m |
| 2e1e80 | 61 63 72 6f 6c 65 74 20 28 28 6c 32 70 20 28 6c 29 0a 09 09 09 20 60 28 73 6c 69 6d 65 2d 74 65 | acrolet.((l2p.(l).....`(slime-te |
| 2e1ea0 | 73 74 2d 2d 64 69 73 70 6c 61 79 2d 72 65 67 69 6f 6e 2d 6c 69 6e 65 2d 74 6f 2d 70 6f 73 69 74 | st--display-region-line-to-posit |
| 2e1ec0 | 69 6f 6e 20 2c 6c 20 77 68 29 29 29 0a 09 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 77 69 6e | ion.,l.wh)))..(select-window.win |
| 2e1ee0 | 29 0a 09 28 73 65 74 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 77 69 6e 20 28 6c 32 70 20 77 69 | )..(set-window-start.win.(l2p.wi |
| 2e1f00 | 6e 64 6f 77 2d 73 74 61 72 74 29 29 0a 09 28 72 65 64 69 73 70 6c 61 79 29 0a 09 28 67 6f 74 6f | ndow-start))..(redisplay)..(goto |
| 2e1f20 | 2d 63 68 61 72 20 28 6c 32 70 20 70 6f 73 29 29 0a 09 28 63 6c 2d 61 73 73 65 72 74 20 28 3d 20 | -char.(l2p.pos))..(cl-assert.(=. |
| 2e1f40 | 28 6c 32 70 20 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 20 28 77 69 6e 64 6f 77 2d 73 74 61 72 74 | (l2p.window-start).(window-start |
| 2e1f60 | 20 77 69 6e 29 29 29 0a 09 28 63 6c 2d 61 73 73 65 72 74 20 28 3d 20 28 70 6f 69 6e 74 29 20 28 | .win)))..(cl-assert.(=.(point).( |
| 2e1f80 | 6c 32 70 20 70 6f 73 29 29 29 0a 09 28 73 6c 69 6d 65 2d 2d 64 69 73 70 6c 61 79 2d 72 65 67 69 | l2p.pos)))..(slime--display-regi |
| 2e1fa0 | 6f 6e 20 28 6c 32 70 20 73 74 61 72 74 29 20 28 6c 32 70 20 65 6e 64 29 29 0a 09 28 72 65 64 69 | on.(l2p.start).(l2p.end))..(redi |
| 2e1fc0 | 73 70 6c 61 79 29 0a 09 28 63 6c 2d 61 73 73 65 72 74 20 28 3d 20 28 6c 32 70 20 65 78 70 65 63 | splay)..(cl-assert.(=.(l2p.expec |
| 2e1fe0 | 74 65 64 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 20 28 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 | ted-window-start).(window-start) |
| 2e2000 | 29 29 0a 09 28 63 6c 2d 61 73 73 65 72 74 20 28 3d 20 28 6c 32 70 20 65 78 70 65 63 74 65 64 2d | ))..(cl-assert.(=.(l2p.expected- |
| 2e2020 | 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 29 29 29 0a 09 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 | point).(point)))..))))..(def-sli |
| 2e2040 | 6d 65 2d 74 65 73 74 20 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 0a 20 20 20 20 28 6e 61 6d | me-test.find-definition.....(nam |
| 2e2060 | 65 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 73 6e 69 70 70 65 74 29 0a 20 20 20 20 22 46 | e.buffer-package.snippet)....."F |
| 2e2080 | 69 6e 64 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 61 20 66 75 6e 63 74 69 6f 6e | ind.the.definition.of.a.function |
| 2e20a0 | 20 6f 72 20 6d 61 63 72 6f 20 69 6e 20 73 77 61 6e 6b 2e 6c 69 73 70 2e 22 0a 20 20 20 20 27 28 | .or.macro.in.swank.lisp.".....'( |
| 2e20c0 | 28 22 73 74 61 72 74 2d 73 65 72 76 65 72 22 20 22 53 57 41 4e 4b 22 20 22 28 64 65 66 75 6e 20 | ("start-server"."SWANK"."(defun. |
| 2e20e0 | 73 74 61 72 74 2d 73 65 72 76 65 72 20 22 29 0a 20 20 20 20 20 20 28 22 73 77 61 6e 6b 3a 3a 73 | start-server.").......("swank::s |
| 2e2100 | 74 61 72 74 2d 73 65 72 76 65 72 22 20 22 43 4c 2d 55 53 45 52 22 20 22 28 64 65 66 75 6e 20 73 | tart-server"."CL-USER"."(defun.s |
| 2e2120 | 74 61 72 74 2d 73 65 72 76 65 72 20 22 29 0a 20 20 20 20 20 20 28 22 73 77 61 6e 6b 3a 73 74 61 | tart-server.").......("swank:sta |
| 2e2140 | 72 74 2d 73 65 72 76 65 72 22 20 22 43 4c 2d 55 53 45 52 22 20 22 28 64 65 66 75 6e 20 73 74 61 | rt-server"."CL-USER"."(defun.sta |
| 2e2160 | 72 74 2d 73 65 72 76 65 72 20 22 29 0a 20 20 20 20 20 20 28 22 73 77 61 6e 6b 3a 3a 63 6f 6e 6e | rt-server.").......("swank::conn |
| 2e2180 | 65 63 74 69 6f 6e 22 20 22 43 4c 2d 55 53 45 52 22 20 22 28 64 65 66 73 74 72 75 63 74 20 28 63 | ection"."CL-USER"."(defstruct.(c |
| 2e21a0 | 6f 6e 6e 65 63 74 69 6f 6e 22 29 0a 20 20 20 20 20 20 28 22 73 77 61 6e 6b 3a 3a 2a 65 6d 61 63 | onnection").......("swank::*emac |
| 2e21c0 | 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2a 22 20 22 43 4c 2d 55 53 45 52 22 20 22 28 64 65 66 76 61 | s-connection*"."CL-USER"."(defva |
| 2e21e0 | 72 20 5c 5c 2a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 5c 5c 2a 22 29 0a 20 20 20 20 20 | r.\\*emacs-connection\\*")...... |
| 2e2200 | 20 29 0a 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 22 2a 73 63 72 61 74 63 68 | .)...(switch-to-buffer."*scratch |
| 2e2220 | 2a 22 29 20 20 20 20 20 20 20 20 3b 20 6e 6f 74 20 62 75 66 66 65 72 20 6f 66 20 64 65 66 69 6e | *")........;.not.buffer.of.defin |
| 2e2240 | 69 74 69 6f 6e 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a | ition...(slime-check-top-level). |
| 2e2260 | 20 20 28 6c 65 74 20 28 28 6f 72 69 67 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 | ..(let.((orig-buffer.(current-bu |
| 2e2280 | 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 6f 72 69 67 2d 70 6f 73 20 28 70 6f 69 6e 74 29 | ffer)).........(orig-pos.(point) |
| 2e22a0 | 29 0a 20 20 20 20 20 20 20 20 28 65 6e 61 62 6c 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 | ).........(enable-local-variable |
| 2e22c0 | 73 20 6e 69 6c 29 20 20 20 20 3b 20 64 6f 6e 27 74 20 67 65 74 20 73 74 75 63 6b 20 6f 6e 20 2d | s.nil)....;.don't.get.stuck.on.- |
| 2e22e0 | 2a 2d 20 65 76 61 6c 3a 20 2d 2a 2d 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 62 75 66 66 | *-.eval:.-*-.........(slime-buff |
| 2e2300 | 65 72 2d 70 61 63 6b 61 67 65 20 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 | er-package.buffer-package))..... |
| 2e2320 | 28 73 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 20 | (slime-edit-definition.name).... |
| 2e2340 | 20 3b 3b 20 50 6f 73 74 63 6f 6e 64 69 74 69 6f 6e 73 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 | .;;.Postconditions.....(slime-ch |
| 2e2360 | 65 63 6b 20 28 22 44 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 60 25 53 27 20 69 73 20 69 6e 20 73 | eck.("Definition.of.`%S'.is.in.s |
| 2e2380 | 77 61 6e 6b 2e 6c 69 73 70 2e 22 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 73 74 72 69 6e 67 3d | wank.lisp.".name).......(string= |
| 2e23a0 | 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 28 62 75 66 66 65 72 | .(file-name-nondirectory.(buffer |
| 2e23c0 | 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 20 22 73 77 61 6e 6b 2e 6c 69 73 70 22 29 29 0a 20 20 20 20 | -file-name))."swank.lisp"))..... |
| 2e23e0 | 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 28 22 4c 6f 6f 6b 69 6e 67 20 61 74 20 27 25 73 27 2e 22 | (slime-check.("Looking.at.'%s'." |
| 2e2400 | 20 73 6e 69 70 70 65 74 29 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 73 6e 69 70 70 65 74 29 29 0a | .snippet).(looking-at.snippet)). |
| 2e2420 | 20 20 20 20 28 73 6c 69 6d 65 2d 70 6f 70 2d 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 73 | ....(slime-pop-find-definition-s |
| 2e2440 | 74 61 63 6b 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 52 65 74 75 72 6e 69 6e | tack).....(slime-check."Returnin |
| 2e2460 | 67 20 66 72 6f 6d 20 64 65 66 69 6e 69 74 69 6f 6e 20 72 65 73 74 6f 72 65 73 20 6f 72 69 67 69 | g.from.definition.restores.origi |
| 2e2480 | 6e 61 6c 20 62 75 66 66 65 72 2f 70 6f 73 69 74 69 6f 6e 2e 22 0a 20 20 20 20 20 20 28 61 6e 64 | nal.buffer/position.".......(and |
| 2e24a0 | 20 28 65 71 20 6f 72 69 67 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 | .(eq.orig-buffer.(current-buffer |
| 2e24c0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 6f 72 69 67 2d 70 6f 73 20 28 70 6f 69 6e 74 | ))............(=.orig-pos.(point |
| 2e24e0 | 29 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c | ))))).....(slime-check-top-level |
| 2e2500 | 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 66 69 6e 64 2d 64 65 66 69 6e 69 | ))..(def-slime-test.(find-defini |
| 2e2520 | 74 69 6f 6e 2e 32 20 28 3a 66 61 69 6c 73 2d 66 6f 72 20 22 61 6c 6c 65 67 72 6f 22 20 22 6c 69 | tion.2.(:fails-for."allegro"."li |
| 2e2540 | 73 70 77 6f 72 6b 73 22 29 29 0a 20 20 20 20 28 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e 74 20 62 | spworks")).....(buffer-content.b |
| 2e2560 | 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 73 6e 69 70 70 65 74 29 0a 20 20 20 20 22 43 68 65 63 | uffer-package.snippet)....."Chec |
| 2e2580 | 6b 20 74 68 61 74 20 77 65 27 72 65 20 61 62 6c 65 20 74 6f 20 66 69 6e 64 20 64 65 66 69 6e 69 | k.that.we're.able.to.find.defini |
| 2e25a0 | 74 69 6f 6e 73 20 65 76 65 6e 20 77 68 65 6e 0a 63 6f 6e 66 72 6f 6e 74 65 64 20 77 69 74 68 20 | tions.even.when.confronted.with. |
| 2e25c0 | 6e 61 73 74 79 20 23 2e 2d 66 75 2e 22 0a 20 20 20 20 27 28 28 22 23 2e 28 70 72 6f 67 31 20 6e | nasty.#.-fu.".....'(("#.(prog1.n |
| 2e25e0 | 69 6c 20 28 64 65 66 76 61 72 20 2a 66 6f 6f 62 61 72 2a 20 34 32 29 29 0a 0a 20 20 20 20 20 20 | il.(defvar.*foobar*.42))........ |
| 2e2600 | 20 28 64 65 66 75 6e 20 2e 66 6f 6f 2e 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 28 2b 20 78 20 | .(defun..foo..(x)..........(+.x. |
| 2e2620 | 23 2e 2a 66 6f 6f 62 61 72 2a 29 29 0a 0a 20 20 20 20 20 20 20 23 2e 28 70 72 6f 67 31 20 6e 69 | #.*foobar*)).........#.(prog1.ni |
| 2e2640 | 6c 20 28 6d 61 6b 75 6e 62 6f 75 6e 64 20 27 2a 66 6f 6f 62 61 72 2a 29 29 0a 20 20 20 20 20 20 | l.(makunbound.'*foobar*))....... |
| 2e2660 | 20 22 0a 20 20 20 20 20 20 20 22 53 57 41 4e 4b 22 0a 20 20 20 20 20 20 20 22 5b 20 5c 74 5d 2a | ."........"SWANK"........"[.\t]* |
| 2e2680 | 28 64 65 66 75 6e 20 2e 66 6f 6f 2e 20 22 0a 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 28 22 | (defun..foo.."........).......(" |
| 2e26a0 | 23 2e 28 70 72 6f 67 31 20 6e 69 6c 20 28 64 65 66 76 61 72 20 2a 66 6f 6f 62 61 72 2a 20 34 32 | #.(prog1.nil.(defvar.*foobar*.42 |
| 2e26c0 | 29 29 0a 0a 20 20 20 20 20 20 20 3b 3b 20 73 6f 6d 65 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 | )).........;;.some.comment...... |
| 2e26e0 | 20 20 28 64 65 66 75 6e 20 2e 66 6f 6f 2e 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 28 2b 20 78 | ..(defun..foo..(x)..........(+.x |
| 2e2700 | 20 23 2e 2a 66 6f 6f 62 61 72 2a 29 29 0a 0a 20 20 20 20 20 20 20 23 2e 28 70 72 6f 67 31 20 6e | .#.*foobar*)).........#.(prog1.n |
| 2e2720 | 69 6c 20 28 6d 61 6b 75 6e 62 6f 75 6e 64 20 27 2a 66 6f 6f 62 61 72 2a 29 29 0a 20 20 20 20 20 | il.(makunbound.'*foobar*))...... |
| 2e2740 | 20 20 22 0a 20 20 20 20 20 20 20 22 53 57 41 4e 4b 22 0a 20 20 20 20 20 20 20 22 5b 20 5c 74 5d | .."........"SWANK"........"[.\t] |
| 2e2760 | 2a 28 64 65 66 75 6e 20 2e 66 6f 6f 2e 20 22 0a 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 28 | *(defun..foo.."........).......( |
| 2e2780 | 22 28 69 6e 2d 70 61 63 6b 61 67 65 20 73 77 61 6e 6b 29 0a 20 28 65 76 61 6c 2d 77 68 65 6e 20 | "(in-package.swank)..(eval-when. |
| 2e27a0 | 28 3a 63 6f 6d 70 69 6c 65 2d 74 6f 70 6c 65 76 65 6c 29 20 28 64 65 66 70 61 72 61 6d 65 74 65 | (:compile-toplevel).(defparamete |
| 2e27c0 | 72 20 2a 62 61 72 2a 20 34 35 36 29 29 0a 20 28 65 76 61 6c 2d 77 68 65 6e 20 28 3a 6c 6f 61 64 | r.*bar*.456))..(eval-when.(:load |
| 2e27e0 | 2d 74 6f 70 6c 65 76 65 6c 20 3a 65 78 65 63 75 74 65 29 20 28 6d 61 6b 75 6e 62 6f 75 6e 64 20 | -toplevel.:execute).(makunbound. |
| 2e2800 | 27 2a 62 61 72 2a 29 29 0a 20 28 64 65 66 75 6e 20 62 61 72 20 28 29 20 23 2e 2a 62 61 72 2a 29 | '*bar*))..(defun.bar.().#.*bar*) |
| 2e2820 | 0a 20 28 64 65 66 75 6e 20 2e 66 6f 6f 2e 20 28 29 20 31 32 33 29 22 0a 09 22 53 57 41 4e 4b 22 | ..(defun..foo..().123)".."SWANK" |
| 2e2840 | 0a 09 22 5b 20 5c 74 5d 2a 28 64 65 66 75 6e 20 2e 66 6f 6f 2e 20 28 29 20 31 32 33 29 22 29 29 | .."[.\t]*(defun..foo..().123)")) |
| 2e2860 | 0a 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 62 | ...(let.((slime-buffer-package.b |
| 2e2880 | 75 66 66 65 72 2d 70 61 63 6b 61 67 65 29 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 | uffer-package)).....(with-temp-b |
| 2e28a0 | 75 66 66 65 72 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 62 75 66 66 65 72 2d 63 6f 6e 74 65 | uffer.......(insert.buffer-conte |
| 2e28c0 | 6e 74 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c | nt).......(slime-check-top-level |
| 2e28e0 | 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 0a 20 20 20 20 20 20 20 60 28 73 77 61 | ).......(slime-eval........`(swa |
| 2e2900 | 6e 6b 3a 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 65 6d 61 63 73 0a 20 20 20 20 | nk:compile-string-for-emacs..... |
| 2e2920 | 20 20 20 20 20 2c 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e 74 0a 20 20 20 20 20 20 20 20 20 2c 28 | .....,buffer-content..........,( |
| 2e2940 | 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 27 28 28 3a 70 6f 73 69 74 69 | buffer-name)..........'((:positi |
| 2e2960 | 6f 6e 20 30 29 20 28 3a 6c 69 6e 65 20 31 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 2c 6e 69 6c | on.0).(:line.1.1))..........,nil |
| 2e2980 | 0a 20 20 20 20 20 20 20 20 20 2c 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 | ..........,nil)).......(let.((bu |
| 2e29a0 | 66 6e 61 6d 65 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 | fname.(buffer-name))).........(s |
| 2e29c0 | 6c 69 6d 65 2d 65 64 69 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 22 2e 66 6f 6f 2e 22 29 0a 20 20 | lime-edit-definition.".foo.")... |
| 2e29e0 | 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 28 22 44 65 66 69 6e 69 74 69 6f 6e 20 | ......(slime-check.("Definition. |
| 2e2a00 | 6f 66 20 60 2e 66 6f 6f 2e 27 20 69 73 20 69 6e 20 62 75 66 66 65 72 20 60 25 73 27 2e 22 20 62 | of.`.foo.'.is.in.buffer.`%s'.".b |
| 2e2a20 | 75 66 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3d 20 28 62 75 66 66 | ufname)...........(string=.(buff |
| 2e2a40 | 65 72 2d 6e 61 6d 65 29 20 62 75 66 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d | er-name).bufname)).........(slim |
| 2e2a60 | 65 2d 63 68 65 63 6b 20 22 44 65 66 69 6e 69 74 69 6f 6e 20 6e 6f 77 20 61 74 20 70 6f 69 6e 74 | e-check."Definition.now.at.point |
| 2e2a80 | 2e 22 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 73 6e 69 70 70 65 74 29 29 29 29 29 29 0a 0a 28 64 | .".(looking-at.snippet))))))..(d |
| 2e2aa0 | 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 66 69 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2e 33 | ef-slime-test.(find-definition.3 |
| 2e2ac0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 61 69 6c 73 2d 66 6f 72 20 22 61 | ..................(:fails-for."a |
| 2e2ae0 | 62 63 6c 22 20 22 61 6c 6c 65 67 72 6f 22 20 22 63 6c 69 73 70 22 20 22 6c 69 73 70 77 6f 72 6b | bcl"."allegro"."clisp"."lispwork |
| 2e2b00 | 73 22 20 22 65 63 6c 22 29 29 0a 20 20 20 20 28 6e 61 6d 65 20 73 6f 75 72 63 65 20 72 65 67 65 | s"."ecl")).....(name.source.rege |
| 2e2b20 | 78 70 29 0a 20 20 20 20 22 45 78 74 72 61 20 74 65 73 74 73 20 66 6f 72 20 64 65 66 73 74 72 75 | xp)....."Extra.tests.for.defstru |
| 2e2b40 | 63 74 2e 22 0a 20 20 20 20 27 28 28 22 73 77 61 6e 6b 3a 3a 66 6f 6f 2d 73 74 72 75 63 74 22 0a | ct.".....'(("swank::foo-struct". |
| 2e2b60 | 20 20 20 20 20 20 20 22 28 70 72 6f 67 6e 0a 20 20 28 64 65 66 75 6e 20 66 6f 6f 2d 66 75 6e 20 | ......."(progn...(defun.foo-fun. |
| 2e2b80 | 28 29 29 0a 20 20 28 64 65 66 73 74 72 75 63 74 20 28 66 6f 6f 2d 73 74 72 75 63 74 20 28 3a 63 | ())...(defstruct.(foo-struct.(:c |
| 2e2ba0 | 6f 6e 73 74 72 75 63 74 6f 72 20 6e 69 6c 29 20 28 3a 70 72 65 64 69 63 61 74 65 20 6e 69 6c 29 | onstructor.nil).(:predicate.nil) |
| 2e2bc0 | 29 29 0a 29 22 0a 20 20 20 20 20 20 20 22 28 64 65 66 73 74 72 75 63 74 20 28 66 6f 6f 2d 73 74 | )).)"........"(defstruct.(foo-st |
| 2e2be0 | 72 75 63 74 22 29 29 0a 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 22 2a 73 63 | ruct"))...(switch-to-buffer."*sc |
| 2e2c00 | 72 61 74 63 68 2a 22 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 | ratch*").....(with-temp-buffer.. |
| 2e2c20 | 20 20 20 20 20 28 69 6e 73 65 72 74 20 73 6f 75 72 63 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 | .....(insert.source).......(let. |
| 2e2c40 | 28 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 22 53 57 41 4e 4b 22 29 29 | ((slime-buffer-package."SWANK")) |
| 2e2c60 | 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 0a 20 20 20 20 20 20 20 20 20 60 28 | .........(slime-eval..........`( |
| 2e2c80 | 73 77 61 6e 6b 3a 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 65 6d 61 63 73 0a 20 | swank:compile-string-for-emacs.. |
| 2e2ca0 | 20 20 20 20 20 20 20 20 20 20 2c 73 6f 75 72 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 2c 28 62 | ..........,source............,(b |
| 2e2cc0 | 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 27 28 28 3a 70 6f 73 69 74 | uffer-name)............'((:posit |
| 2e2ce0 | 69 6f 6e 20 30 29 20 28 3a 6c 69 6e 65 20 31 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 2c | ion.0).(:line.1.1))............, |
| 2e2d00 | 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 2c 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 28 6c 65 | nil............,nil))).......(le |
| 2e2d20 | 74 20 28 28 74 65 6d 70 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 | t.((temp-buffer.(current-buffer) |
| 2e2d40 | 29 29 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 | )).........(with-current-buffer. |
| 2e2d60 | 22 2a 73 63 72 61 74 63 68 2a 22 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 64 69 | "*scratch*"...........(slime-edi |
| 2e2d80 | 74 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c | t-definition.name)...........(sl |
| 2e2da0 | 69 6d 65 2d 63 68 65 63 6b 20 28 22 44 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 25 53 20 69 73 20 | ime-check.("Definition.of.%S.is. |
| 2e2dc0 | 69 6e 20 62 75 66 66 65 72 20 60 25 73 27 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | in.buffer.`%s'."................ |
| 2e2de0 | 20 20 20 20 20 20 20 20 20 6e 61 6d 65 20 74 65 6d 70 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 | .........name.temp-buffer)...... |
| 2e2e00 | 20 20 20 20 20 20 20 28 65 71 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 65 6d 70 | .......(eq.(current-buffer).temp |
| 2e2e20 | 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b | -buffer))...........(slime-check |
| 2e2e40 | 20 22 44 65 66 69 6e 69 74 69 6f 6e 20 6e 6f 77 20 61 74 20 70 6f 69 6e 74 2e 22 20 28 6c 6f 6f | ."Definition.now.at.point.".(loo |
| 2e2e60 | 6b 69 6e 67 2d 61 74 20 72 65 67 65 78 70 29 29 29 0a 20 20 20 20 20 20 29 29 29 0a 0a 28 64 65 | king-at.regexp))).......)))..(de |
| 2e2e80 | 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 0a 20 20 20 | f-slime-test.complete-symbol.... |
| 2e2ea0 | 20 28 70 72 65 66 69 78 20 65 78 70 65 63 74 65 64 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 0a 20 | .(prefix.expected-completions).. |
| 2e2ec0 | 20 20 20 22 46 69 6e 64 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 6f 66 20 61 20 73 79 | ..."Find.the.completions.of.a.sy |
| 2e2ee0 | 6d 62 6f 6c 2d 6e 61 6d 65 20 70 72 65 66 69 78 2e 22 0a 20 20 20 20 27 28 28 22 63 6c 3a 63 6f | mbol-name.prefix.".....'(("cl:co |
| 2e2f00 | 6d 70 69 6c 65 22 20 28 22 63 6c 3a 63 6f 6d 70 69 6c 65 22 20 22 63 6c 3a 63 6f 6d 70 69 6c 65 | mpile".("cl:compile"."cl:compile |
| 2e2f20 | 2d 66 69 6c 65 22 20 22 63 6c 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 68 6e 61 6d 65 | -file"."cl:compile-file-pathname |
| 2e2f40 | 22 0a 09 09 20 20 20 20 20 22 63 6c 3a 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 22 20 | "........"cl:compiled-function". |
| 2e2f60 | 22 63 6c 3a 63 6f 6d 70 69 6c 65 64 2d 66 75 6e 63 74 69 6f 6e 2d 70 22 0a 09 09 20 20 20 20 20 | "cl:compiled-function-p"........ |
| 2e2f80 | 22 63 6c 3a 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 22 20 22 63 6c 3a 63 6f 6d 70 69 6c 65 72 | "cl:compiler-macro"."cl:compiler |
| 2e2fa0 | 2d 6d 61 63 72 6f 2d 66 75 6e 63 74 69 6f 6e 22 29 29 0a 20 20 20 20 20 20 28 22 63 6c 3a 66 6f | -macro-function")).......("cl:fo |
| 2e2fc0 | 6f 62 61 72 22 20 28 29 29 0a 20 20 20 20 20 20 28 22 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 | obar".()).......("swank::compile |
| 2e2fe0 | 2d 66 69 6c 65 22 20 28 22 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 22 0a 09 09 | -file".("swank::compile-file"... |
| 2e3000 | 09 20 20 20 20 20 20 22 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 66 6f 72 2d | ......."swank::compile-file-for- |
| 2e3020 | 65 6d 61 63 73 22 0a 09 09 09 20 20 20 20 20 20 22 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 2d | emacs".........."swank::compile- |
| 2e3040 | 66 69 6c 65 2d 69 66 2d 6e 65 65 64 65 64 22 0a 09 09 09 20 20 20 20 20 20 22 73 77 61 6e 6b 3a | file-if-needed".........."swank: |
| 2e3060 | 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 75 74 70 75 74 22 0a 09 09 09 20 20 20 20 20 20 22 | :compile-file-output".........." |
| 2e3080 | 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 70 61 74 68 6e 61 6d 65 22 29 29 0a | swank::compile-file-pathname")). |
| 2e30a0 | 20 20 20 20 20 20 28 22 63 6c 3a 6d 2d 76 2d 6c 22 20 28 29 29 29 0a 20 20 28 6c 65 74 20 28 28 | ......("cl:m-v-l".()))...(let.(( |
| 2e30c0 | 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 73 6c 69 6d 65 2d 73 69 6d 70 6c 65 2d 63 6f 6d 70 6c 65 | completions.(slime-simple-comple |
| 2e30e0 | 74 69 6f 6e 73 20 70 72 65 66 69 78 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d | tions.prefix))).....(slime-test- |
| 2e3100 | 65 78 70 65 63 74 20 22 43 6f 6d 70 6c 65 74 69 6f 6e 20 73 65 74 22 20 65 78 70 65 63 74 65 64 | expect."Completion.set".expected |
| 2e3120 | 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 29 0a 0a 28 64 65 | -completions.completions)))..(de |
| 2e3140 | 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 | f-slime-test.read-from-minibuffe |
| 2e3160 | 72 0a 20 20 28 69 6e 70 75 74 2d 6b 65 79 73 20 65 78 70 65 63 74 65 64 2d 72 65 73 75 6c 74 29 | r...(input-keys.expected-result) |
| 2e3180 | 0a 20 20 22 54 65 73 74 20 60 73 6c 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 | ..."Test.`slime-read-from-minibu |
| 2e31a0 | 66 66 65 72 27 20 77 69 74 68 20 49 4e 50 55 54 2d 4b 45 59 53 20 61 73 20 65 76 65 6e 74 73 2e | ffer'.with.INPUT-KEYS.as.events. |
| 2e31c0 | 22 0a 20 20 27 28 28 22 28 20 72 20 65 20 76 20 65 20 54 41 42 20 53 50 43 20 27 20 28 20 31 20 | "...'(("(.r.e.v.e.TAB.SPC.'.(.1. |
| 2e31e0 | 53 50 43 20 32 20 53 50 43 20 33 20 29 20 29 20 52 45 54 22 0a 20 20 20 20 20 22 28 72 65 76 65 | SPC.2.SPC.3.).).RET"......"(reve |
| 2e3200 | 72 73 65 20 27 28 31 20 32 20 33 29 29 22 29 0a 20 20 20 20 28 22 28 20 63 20 6c 20 3a 20 63 20 | rse.'(1.2.3))").....("(.c.l.:.c. |
| 2e3220 | 6f 20 6e 20 54 41 42 20 73 20 74 20 61 20 6e 20 74 20 6c 20 54 41 42 20 53 50 43 20 34 20 32 20 | o.n.TAB.s.t.a.n.t.l.TAB.SPC.4.2. |
| 2e3240 | 29 20 52 45 54 22 0a 20 20 20 20 20 22 28 63 6c 3a 63 6f 6e 73 74 61 6e 74 6c 79 20 34 32 29 22 | ).RET"......"(cl:constantly.42)" |
| 2e3260 | 29 29 0a 20 20 28 77 68 65 6e 20 6e 6f 6e 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 28 73 | ))...(when.noninteractive.....(s |
| 2e3280 | 6c 69 6d 65 2d 73 6b 69 70 2d 74 65 73 74 20 22 43 61 6e 27 74 20 75 73 65 20 75 6e 72 65 61 64 | lime-skip-test."Can't.use.unread |
| 2e32a0 | 2d 63 6f 6d 6d 61 6e 64 2d 65 76 65 6e 74 73 20 69 6e 20 62 61 74 63 68 20 6d 6f 64 65 22 29 29 | -command-events.in.batch.mode")) |
| 2e32c0 | 0a 20 20 28 6c 65 74 20 28 28 6b 65 79 73 20 28 65 76 61 6c 20 60 28 6b 62 64 20 2c 69 6e 70 75 | ...(let.((keys.(eval.`(kbd.,inpu |
| 2e32e0 | 74 2d 6b 65 79 73 29 29 29 29 20 3b 20 6b 62 64 20 69 73 20 61 20 6d 61 63 72 6f 20 69 6e 20 45 | t-keys)))).;.kbd.is.a.macro.in.E |
| 2e3300 | 6d 61 63 73 20 32 33 0a 20 20 20 20 28 73 65 74 71 20 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 | macs.23.....(setq.unread-command |
| 2e3320 | 2d 65 76 65 6e 74 73 20 28 6c 69 73 74 69 66 79 2d 6b 65 79 2d 73 65 71 75 65 6e 63 65 20 6b 65 | -events.(listify-key-sequence.ke |
| 2e3340 | 79 73 29 29 29 0a 20 20 28 6c 65 74 20 28 28 61 63 74 75 61 6c 2d 72 65 73 75 6c 74 20 28 73 6c | ys)))...(let.((actual-result.(sl |
| 2e3360 | 69 6d 65 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 54 65 73 74 3a 20 | ime-read-from-minibuffer."Test:. |
| 2e3380 | 22 29 29 29 0a 20 20 20 20 28 61 63 63 65 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 29 | "))).....(accept-process-output) |
| 2e33a0 | 20 3b 20 72 75 6e 20 69 64 6c 65 20 74 69 6d 65 72 73 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 | .;.run.idle.timers.....(slime-te |
| 2e33c0 | 73 74 2d 65 78 70 65 63 74 20 22 43 6f 6d 70 6c 65 74 65 64 20 73 74 72 69 6e 67 22 20 65 78 70 | st-expect."Completed.string".exp |
| 2e33e0 | 65 63 74 65 64 2d 72 65 73 75 6c 74 20 61 63 74 75 61 6c 2d 72 65 73 75 6c 74 29 29 29 0a 0a 28 | ected-result.actual-result)))..( |
| 2e3400 | 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 61 72 67 6c 69 73 74 0a 20 20 20 20 3b 3b 20 4e 2e | def-slime-test.arglist.....;;.N. |
| 2e3420 | 42 2e 20 41 6c 6c 65 67 72 6f 20 61 70 70 61 72 65 6e 74 6c 79 20 64 6f 65 73 6e 27 74 20 72 65 | B..Allegro.apparently.doesn't.re |
| 2e3440 | 74 75 72 6e 20 74 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 73 20 6f 66 0a 20 20 20 20 3b | turn.the.default.values.of.....; |
| 2e3460 | 3b 20 6f 70 74 69 6f 6e 61 6c 20 70 61 72 61 6d 65 74 65 72 73 2e 20 54 68 75 73 20 74 68 65 20 | ;.optional.parameters..Thus.the. |
| 2e3480 | 72 65 67 65 78 70 20 69 6e 20 74 68 65 20 73 74 61 72 74 2d 73 65 72 76 65 72 0a 20 20 20 20 3b | regexp.in.the.start-server.....; |
| 2e34a0 | 3b 20 65 78 70 65 63 74 65 64 20 76 61 6c 75 65 2e 20 49 6e 20 61 20 70 65 72 66 65 63 74 20 77 | ;.expected.value..In.a.perfect.w |
| 2e34c0 | 6f 72 6c 64 20 77 65 27 64 20 66 69 6e 64 20 61 20 77 61 79 20 74 6f 20 73 6d 6f 6f 74 68 0a 20 | orld.we'd.find.a.way.to.smooth.. |
| 2e34e0 | 20 20 20 3b 3b 20 6f 76 65 72 20 74 68 69 73 20 64 69 66 66 65 72 65 6e 63 65 20 62 65 74 77 65 | ...;;.over.this.difference.betwe |
| 2e3500 | 65 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2d 2d 70 65 72 68 61 70 73 20 62 79 0a 20 | en.implementations--perhaps.by.. |
| 2e3520 | 20 20 20 3b 3b 20 63 6f 6e 76 69 6e 63 69 6e 67 20 46 72 61 6e 7a 20 74 6f 20 70 72 6f 76 69 64 | ...;;.convincing.Franz.to.provid |
| 2e3540 | 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 64 6f 65 73 20 77 68 61 74 20 77 65 20 77 | e.a.function.that.does.what.we.w |
| 2e3560 | 61 6e 74 2e 0a 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 65 78 70 65 63 74 65 64 | ant......(function-name.expected |
| 2e3580 | 2d 61 72 67 6c 69 73 74 29 0a 20 20 20 20 22 4c 6f 6f 6b 75 70 20 74 68 65 20 61 72 67 75 6d 65 | -arglist)....."Lookup.the.argume |
| 2e35a0 | 6e 74 20 6c 69 73 74 20 66 6f 72 20 46 55 4e 43 54 49 4f 4e 2d 4e 41 4d 45 2e 0a 43 6f 6e 66 69 | nt.list.for.FUNCTION-NAME..Confi |
| 2e35c0 | 72 6d 20 74 68 61 74 20 45 58 50 45 43 54 45 44 2d 41 52 47 4c 49 53 54 20 69 73 20 64 69 73 70 | rm.that.EXPECTED-ARGLIST.is.disp |
| 2e35e0 | 6c 61 79 65 64 2e 22 0a 20 20 20 20 27 28 28 22 73 77 61 6e 6b 3a 3a 6f 70 65 72 61 74 6f 72 2d | layed.".....'(("swank::operator- |
| 2e3600 | 61 72 67 6c 69 73 74 22 20 22 28 73 77 61 6e 6b 3a 3a 6f 70 65 72 61 74 6f 72 2d 61 72 67 6c 69 | arglist"."(swank::operator-argli |
| 2e3620 | 73 74 20 6e 61 6d 65 20 70 61 63 6b 61 67 65 29 22 29 0a 20 20 20 20 20 20 28 22 73 77 61 6e 6b | st.name.package)").......("swank |
| 2e3640 | 3a 3a 63 6f 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 22 20 22 28 73 77 61 6e 6b 3a 3a 63 6f | ::compute-backtrace"."(swank::co |
| 2e3660 | 6d 70 75 74 65 2d 62 61 63 6b 74 72 61 63 65 20 73 74 61 72 74 20 65 6e 64 29 22 29 0a 20 20 20 | mpute-backtrace.start.end)").... |
| 2e3680 | 20 20 20 28 22 73 77 61 6e 6b 3a 3a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 65 64 22 20 22 28 73 | ...("swank::emacs-connected"."(s |
| 2e36a0 | 77 61 6e 6b 3a 3a 65 6d 61 63 73 2d 63 6f 6e 6e 65 63 74 65 64 29 22 29 0a 20 20 20 20 20 20 28 | wank::emacs-connected)").......( |
| 2e36c0 | 22 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 65 6d 61 63 73 | "swank::compile-string-for-emacs |
| 2e36e0 | 22 0a 20 20 20 20 20 20 20 22 28 73 77 61 6e 6b 3a 3a 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 | "........"(swank::compile-string |
| 2e3700 | 2d 66 6f 72 2d 65 6d 61 63 73 20 5c 0a 73 74 72 69 6e 67 20 62 75 66 66 65 72 20 70 6f 73 69 74 | -for-emacs.\.string.buffer.posit |
| 2e3720 | 69 6f 6e 20 66 69 6c 65 6e 61 6d 65 20 70 6f 6c 69 63 79 29 22 29 0a 20 20 20 20 20 20 28 22 73 | ion.filename.policy)").......("s |
| 2e3740 | 77 61 6e 6b 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2e 73 6f 63 6b 65 74 2d 69 6f 22 0a 20 20 20 20 | wank::connection.socket-io"..... |
| 2e3760 | 20 20 20 22 28 73 77 61 6e 6b 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2e 73 6f 63 6b 65 74 2d 69 6f | ..."(swank::connection.socket-io |
| 2e3780 | 20 5c 0a 5c 5c 28 73 74 72 75 63 74 5c 5c 28 75 72 65 5c 5c 29 3f 5c 5c 7c 6f 62 6a 65 63 74 5c | .\.\\(struct\\(ure\\)?\\|object\ |
| 2e37a0 | 5c 7c 69 6e 73 74 61 6e 63 65 5c 5c 7c 78 5c 5c 7c 63 6f 6e 6e 65 63 74 69 6f 6e 5c 5c 29 29 22 | \|instance\\|x\\|connection\\))" |
| 2e37c0 | 29 0a 20 20 20 20 20 20 28 22 63 6c 3a 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e | ).......("cl:lisp-implementation |
| 2e37e0 | 2d 74 79 70 65 22 20 22 28 63 6c 3a 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d | -type"."(cl:lisp-implementation- |
| 2e3800 | 74 79 70 65 29 22 29 0a 20 20 20 20 20 20 28 22 63 6c 3a 63 6c 61 73 73 2d 6e 61 6d 65 22 0a 20 | type)").......("cl:class-name".. |
| 2e3820 | 20 20 20 20 20 20 22 28 63 6c 3a 63 6c 61 73 73 2d 6e 61 6d 65 20 5c 5c 28 63 6c 61 73 73 5c 5c | ......"(cl:class-name.\\(class\\ |
| 2e3840 | 7c 6f 62 6a 65 63 74 5c 5c 7c 69 6e 73 74 61 6e 63 65 5c 5c 7c 73 74 72 75 63 74 75 72 65 5c 5c | |object\\|instance\\|structure\\ |
| 2e3860 | 29 29 22 29 29 0a 20 20 28 6c 65 74 20 28 28 61 72 67 6c 69 73 74 20 28 73 6c 69 6d 65 2d 65 76 | ))"))...(let.((arglist.(slime-ev |
| 2e3880 | 61 6c 20 60 28 73 77 61 6e 6b 3a 6f 70 65 72 61 74 6f 72 2d 61 72 67 6c 69 73 74 20 2c 66 75 6e | al.`(swank:operator-arglist.,fun |
| 2e38a0 | 63 74 69 6f 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ction-name...................... |
| 2e38c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2e38e0 | 20 22 73 77 61 6e 6b 22 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 | ."swank")))).....(slime-test-exp |
| 2e3900 | 65 63 74 20 22 41 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 69 73 20 61 73 20 65 78 70 65 63 74 65 | ect."Argument.list.is.as.expecte |
| 2e3920 | 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 65 63 74 | d"........................expect |
| 2e3940 | 65 64 2d 61 72 67 6c 69 73 74 20 28 61 6e 64 20 61 72 67 6c 69 73 74 20 28 64 6f 77 6e 63 61 73 | ed-arglist.(and.arglist.(downcas |
| 2e3960 | 65 20 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.arglist))..................... |
| 2e3980 | 20 20 20 28 6c 61 6d 62 64 61 20 28 70 61 74 74 65 72 6e 20 61 72 67 6c 69 73 74 29 0a 20 20 20 | ...(lambda.(pattern.arglist).... |
| 2e39a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 61 72 67 6c 69 | ......................(and.argli |
| 2e39c0 | 73 74 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 70 61 74 74 65 72 6e 20 61 72 67 6c 69 73 74 | st.(string-match.pattern.arglist |
| 2e39e0 | 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 65 73 74 2d 2d 63 6f 6d 70 69 | ))))))..(defun.slime-test--compi |
| 2e3a00 | 6c 65 2d 64 65 66 75 6e 20 28 70 72 6f 67 72 61 6d 20 73 75 62 66 6f 72 6d 29 0a 20 20 28 73 6c | le-defun.(program.subform)...(sl |
| 2e3a20 | 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 77 69 74 68 2d 74 65 6d | ime-check-top-level)...(with-tem |
| 2e3a40 | 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 69 6e | p-buffer.....(lisp-mode).....(in |
| 2e3a60 | 73 65 72 74 20 70 72 6f 67 72 61 6d 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 6f 6e 74 2d 6c 6f | sert.program).....(let.((font-lo |
| 2e3a80 | 63 6b 2d 76 65 72 62 6f 73 65 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 | ck-verbose.nil)).......(setq.sli |
| 2e3aa0 | 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 22 3a 73 77 61 6e 6b 22 29 0a 20 20 20 20 | me-buffer-package.":swank")..... |
| 2e3ac0 | 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 28 62 75 66 66 65 72 2d | ..(slime-compile-string.(buffer- |
| 2e3ae0 | 73 74 72 69 6e 67 29 20 31 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 | string).1).......(setq.slime-buf |
| 2e3b00 | 66 65 72 2d 70 61 63 6b 61 67 65 20 22 3a 63 6c 2d 75 73 65 72 22 29 0a 20 20 20 20 20 20 28 73 | fer-package.":cl-user").......(s |
| 2e3b20 | 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 20 20 20 20 | lime-sync-to-top-level.5)....... |
| 2e3b40 | 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 28 73 | (goto-char.(point-max)).......(s |
| 2e3b60 | 6c 69 6d 65 2d 70 72 65 76 69 6f 75 73 2d 6e 6f 74 65 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 | lime-previous-note).......(slime |
| 2e3b80 | 2d 63 68 65 63 6b 20 65 72 72 6f 72 2d 6c 6f 63 61 74 69 6f 6e 2d 63 6f 72 72 65 63 74 0a 20 20 | -check.error-location-correct... |
| 2e3ba0 | 20 20 20 20 20 20 28 65 71 75 61 6c 20 28 72 65 61 64 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 | ......(equal.(read.(current-buff |
| 2e3bc0 | 65 72 29 29 20 73 75 62 66 6f 72 6d 29 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d | er)).subform))))...(slime-check- |
| 2e3be0 | 74 6f 70 2d 6c 65 76 65 6c 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 63 6f | top-level))..(def-slime-test.(co |
| 2e3c00 | 6d 70 69 6c 65 2d 64 65 66 75 6e 20 28 3a 66 61 69 6c 73 2d 66 6f 72 20 22 61 6c 6c 65 67 72 6f | mpile-defun.(:fails-for."allegro |
| 2e3c20 | 22 20 22 6c 69 73 70 77 6f 72 6b 73 22 20 22 63 6c 69 73 70 22 29 29 0a 20 20 20 20 28 70 72 6f | "."lispworks"."clisp")).....(pro |
| 2e3c40 | 67 72 61 6d 20 73 75 62 66 6f 72 6d 29 0a 20 20 20 20 22 43 6f 6d 70 69 6c 65 20 50 52 4f 47 52 | gram.subform)....."Compile.PROGR |
| 2e3c60 | 41 4d 20 63 6f 6e 74 61 69 6e 69 6e 67 20 65 72 72 6f 72 73 2e 0a 43 6f 6e 66 69 72 6d 20 74 68 | AM.containing.errors..Confirm.th |
| 2e3c80 | 61 74 20 53 55 42 46 4f 52 4d 20 69 73 20 63 6f 72 72 65 63 74 6c 79 20 6c 6f 63 61 74 65 64 2e | at.SUBFORM.is.correctly.located. |
| 2e3ca0 | 22 0a 20 20 20 20 27 28 28 22 28 64 65 66 75 6e 20 63 6c 2d 75 73 65 72 3a 3a 66 6f 6f 20 28 29 | ".....'(("(defun.cl-user::foo.() |
| 2e3cc0 | 20 28 63 6c 2d 75 73 65 72 3a 3a 62 61 72 29 29 22 20 28 63 6c 2d 75 73 65 72 3a 3a 62 61 72 29 | .(cl-user::bar))".(cl-user::bar) |
| 2e3ce0 | 29 0a 20 20 20 20 20 20 28 22 28 64 65 66 75 6e 20 63 6c 2d 75 73 65 72 3a 3a 66 6f 6f 20 28 29 | ).......("(defun.cl-user::foo.() |
| 2e3d00 | 0a 20 20 20 20 20 20 20 20 20 20 23 5c 5c 73 70 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | ...........#\\space...........;; |
| 2e3d20 | 53 64 66 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 75 73 65 72 3a 3a 62 61 72 29 29 22 0a 20 | Sdf...........(cl-user::bar))".. |
| 2e3d40 | 20 20 20 20 20 20 28 63 6c 2d 75 73 65 72 3a 3a 62 61 72 29 29 0a 20 20 20 20 20 20 28 22 28 64 | ......(cl-user::bar)).......("(d |
| 2e3d60 | 65 66 75 6e 20 63 6c 2d 75 73 65 72 3a 3a 66 6f 6f 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 | efun.cl-user::foo.()............ |
| 2e3d80 | 20 20 23 2b 28 6f 72 29 73 6b 69 70 70 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 23 7c 20 | ..#+(or)skipped..............#|. |
| 2e3da0 | 23 7c 7c 23 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 7c 7c 23 20 7c 23 0a 20 20 20 | #||#.................#||#.|#.... |
| 2e3dc0 | 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 75 73 65 72 3a 3a 62 61 72 29 29 22 0a 20 20 20 20 20 | ..........(cl-user::bar))"...... |
| 2e3de0 | 20 20 28 63 6c 2d 75 73 65 72 3a 3a 62 61 72 29 29 0a 20 20 20 20 20 20 28 22 28 64 65 66 75 6e | ..(cl-user::bar)).......("(defun |
| 2e3e00 | 20 63 6c 2d 75 73 65 72 3a 3a 66 6f 6f 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 5c 22 5c 5c 5c | .cl-user::foo.()...........\"\\\ |
| 2e3e20 | 22 20 62 6c 61 20 62 6c 61 20 5c 5c 5c 22 5c 22 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 75 | ".bla.bla.\\\"\"...........(cl-u |
| 2e3e40 | 73 65 72 3a 3a 62 61 72 29 29 22 0a 20 20 20 20 20 20 20 28 63 6c 2d 75 73 65 72 3a 3a 62 61 72 | ser::bar))"........(cl-user::bar |
| 2e3e60 | 29 29 0a 20 20 20 20 20 20 28 22 28 64 65 66 75 6e 20 63 6c 2d 75 73 65 72 3a 3a 66 6f 6f 20 28 | )).......("(defun.cl-user::foo.( |
| 2e3e80 | 29 0a 20 20 20 20 20 20 20 20 20 20 23 2e 2a 6c 6f 67 2d 65 76 65 6e 74 73 2a 0a 20 20 20 20 20 | )...........#.*log-events*...... |
| 2e3ea0 | 20 20 20 20 20 28 63 6c 2d 75 73 65 72 3a 3a 62 61 72 29 29 22 0a 20 20 20 20 20 20 20 28 63 6c | .....(cl-user::bar))"........(cl |
| 2e3ec0 | 2d 75 73 65 72 3a 3a 62 61 72 29 29 0a 20 20 20 20 20 20 28 22 23 2e 27 28 64 65 66 75 6e 20 78 | -user::bar)).......("#.'(defun.x |
| 2e3ee0 | 20 28 29 20 28 2f 20 31 20 30 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 66 75 6e 20 66 6f 6f 20 | .().(/.1.0)).........(defun.foo. |
| 2e3f00 | 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 75 73 65 72 3a 3a 62 61 72 29 29 0a 0a 20 | ()............(cl-user::bar))... |
| 2e3f20 | 20 20 20 20 20 20 20 22 0a 20 20 20 20 20 20 20 28 63 6c 2d 75 73 65 72 3a 3a 62 61 72 29 29 29 | ......."........(cl-user::bar))) |
| 2e3f40 | 0a 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 2d 63 6f 6d 70 69 6c 65 2d 64 65 66 75 6e 20 70 72 | ...(slime-test--compile-defun.pr |
| 2e3f60 | 6f 67 72 61 6d 20 73 75 62 66 6f 72 6d 29 29 0a 0a 3b 3b 20 54 68 69 73 20 74 65 73 74 20 69 64 | ogram.subform))..;;.This.test.id |
| 2e3f80 | 65 61 6c 6c 79 20 77 6f 75 6c 64 20 62 65 20 63 6f 6c 6c 61 70 73 65 64 20 69 6e 74 6f 20 74 68 | eally.would.be.collapsed.into.th |
| 2e3fa0 | 65 20 70 72 65 76 69 6f 75 73 0a 3b 3b 20 63 6f 6d 70 69 6c 65 2d 64 65 66 75 6e 20 74 65 73 74 | e.previous.;;.compile-defun.test |
| 2e3fc0 | 2c 20 62 75 74 20 6f 6e 6c 79 20 31 20 63 61 73 65 20 66 61 69 6c 73 20 66 6f 72 20 63 63 6c 2d | ,.but.only.1.case.fails.for.ccl- |
| 2e3fe0 | 2d 61 6e 64 20 74 68 61 74 27 73 20 68 65 72 65 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 | -and.that's.here.(def-slime-test |
| 2e4000 | 20 28 63 6f 6d 70 69 6c 65 2d 64 65 66 75 6e 2d 77 69 74 68 2d 72 65 61 64 65 72 2d 63 6f 6e 64 | .(compile-defun-with-reader-cond |
| 2e4020 | 69 74 69 6f 6e 61 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 61 69 6c | itionals..................(:fail |
| 2e4040 | 73 2d 66 6f 72 20 22 61 6c 6c 65 67 72 6f 22 20 22 6c 69 73 70 77 6f 72 6b 73 22 20 22 63 6c 69 | s-for."allegro"."lispworks"."cli |
| 2e4060 | 73 70 22 20 22 63 63 6c 22 29 29 0a 20 20 20 20 28 70 72 6f 67 72 61 6d 20 73 75 62 66 6f 72 6d | sp"."ccl")).....(program.subform |
| 2e4080 | 29 0a 20 20 20 20 22 43 6f 6d 70 69 6c 65 20 50 52 4f 47 52 41 4d 20 63 6f 6e 74 61 69 6e 69 6e | )....."Compile.PROGRAM.containin |
| 2e40a0 | 67 20 65 72 72 6f 72 73 2e 0a 43 6f 6e 66 69 72 6d 20 74 68 61 74 20 53 55 42 46 4f 52 4d 20 69 | g.errors..Confirm.that.SUBFORM.i |
| 2e40c0 | 73 20 63 6f 72 72 65 63 74 6c 79 20 6c 6f 63 61 74 65 64 2e 22 0a 20 20 20 20 27 28 28 22 28 64 | s.correctly.located.".....'(("(d |
| 2e40e0 | 65 66 75 6e 20 66 6f 6f 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 23 2b 23 2e 27 28 3a 61 6e 64 | efun.foo.()...........#+#.'(:and |
| 2e4100 | 29 20 28 2f 20 31 20 30 29 29 22 0a 20 20 20 20 20 20 20 28 2f 20 31 20 30 29 29 29 0a 20 20 28 | ).(/.1.0))"........(/.1.0)))...( |
| 2e4120 | 73 6c 69 6d 65 2d 74 65 73 74 2d 2d 63 6f 6d 70 69 6c 65 2d 64 65 66 75 6e 20 70 72 6f 67 72 61 | slime-test--compile-defun.progra |
| 2e4140 | 6d 20 73 75 62 66 6f 72 6d 29 29 0a 0a 3b 3b 20 53 42 43 4c 20 75 73 65 64 20 74 6f 20 70 61 73 | m.subform))..;;.SBCL.used.to.pas |
| 2e4160 | 73 20 74 68 69 73 20 6f 6e 65 20 62 75 74 20 73 69 6e 63 65 20 74 68 65 79 20 63 68 61 6e 67 65 | s.this.one.but.since.they.change |
| 2e4180 | 64 20 74 68 65 0a 3b 3b 20 62 61 63 6b 71 75 6f 74 65 2f 75 6e 71 75 6f 74 65 20 72 65 61 64 65 | d.the.;;.backquote/unquote.reade |
| 2e41a0 | 72 20 69 74 20 66 61 69 6c 73 2e 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 63 6f 6d | r.it.fails..(def-slime-test.(com |
| 2e41c0 | 70 69 6c 65 2d 64 65 66 75 6e 2d 77 69 74 68 2d 62 61 63 6b 71 75 6f 74 65 0a 20 20 20 20 20 20 | pile-defun-with-backquote....... |
| 2e41e0 | 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 61 69 6c 73 2d 66 6f 72 20 22 61 6c 6c 65 67 72 6f 22 | ...........(:fails-for."allegro" |
| 2e4200 | 20 22 6c 69 73 70 77 6f 72 6b 73 22 20 22 63 6c 69 73 70 22 20 22 73 62 63 6c 22 29 29 0a 20 20 | ."lispworks"."clisp"."sbcl"))... |
| 2e4220 | 20 20 28 70 72 6f 67 72 61 6d 20 73 75 62 66 6f 72 6d 29 0a 20 20 20 20 22 43 6f 6d 70 69 6c 65 | ..(program.subform)....."Compile |
| 2e4240 | 20 50 52 4f 47 52 41 4d 20 63 6f 6e 74 61 69 6e 69 6e 67 20 65 72 72 6f 72 73 2e 0a 43 6f 6e 66 | .PROGRAM.containing.errors..Conf |
| 2e4260 | 69 72 6d 20 74 68 61 74 20 53 55 42 46 4f 52 4d 20 69 73 20 63 6f 72 72 65 63 74 6c 79 20 6c 6f | irm.that.SUBFORM.is.correctly.lo |
| 2e4280 | 63 61 74 65 64 2e 22 0a 20 20 20 20 27 28 28 22 28 64 65 66 75 6e 20 63 6c 2d 75 73 65 72 3a 3a | cated.".....'(("(defun.cl-user:: |
| 2e42a0 | 66 6f 6f 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 60 28 31 20 2c 28 72 61 | foo.()............(list.`(1.,(ra |
| 2e42c0 | 6e 64 6f 6d 20 31 30 29 20 32 20 2c 40 28 6d 61 6b 65 2d 6c 69 73 74 20 28 72 61 6e 64 6f 6d 20 | ndom.10).2.,@(make-list.(random. |
| 2e42e0 | 31 30 29 29 20 33 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 6c | 10)).3......................,(cl |
| 2e4300 | 2d 75 73 65 72 3a 3a 62 61 72 29 29 29 29 22 0a 20 20 20 20 20 20 20 28 63 6c 2d 75 73 65 72 3a | -user::bar))))"........(cl-user: |
| 2e4320 | 3a 62 61 72 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 2d 63 6f 6d 70 69 6c 65 2d 64 | :bar)))...(slime-test--compile-d |
| 2e4340 | 65 66 75 6e 20 70 72 6f 67 72 61 6d 20 73 75 62 66 6f 72 6d 29 29 0a 0a 28 64 65 66 2d 73 6c 69 | efun.program.subform))..(def-sli |
| 2e4360 | 6d 65 2d 74 65 73 74 20 28 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 28 3a 66 61 69 6c 73 2d 66 6f | me-test.(compile-file.(:fails-fo |
| 2e4380 | 72 20 22 61 6c 6c 65 67 72 6f 22 20 22 63 6c 69 73 70 22 29 29 0a 20 20 20 20 28 73 74 72 69 6e | r."allegro"."clisp")).....(strin |
| 2e43a0 | 67 29 0a 20 20 20 20 22 49 6e 73 65 72 74 20 53 54 52 49 4e 47 20 69 6e 20 61 20 66 69 6c 65 2c | g)....."Insert.STRING.in.a.file, |
| 2e43c0 | 20 61 6e 64 20 63 6f 6d 70 69 6c 65 20 69 74 2e 22 0a 20 20 20 20 60 28 28 2c 28 70 70 2d 74 6f | .and.compile.it.".....`((,(pp-to |
| 2e43e0 | 2d 73 74 72 69 6e 67 20 27 28 64 65 66 75 6e 20 66 6f 6f 20 28 29 20 6e 69 6c 29 29 29 29 0a 20 | -string.'(defun.foo.().nil)))).. |
| 2e4400 | 20 28 6c 65 74 20 28 28 66 69 6c 65 6e 61 6d 65 20 22 2f 74 6d 70 2f 73 6c 69 6d 65 2d 74 6d 70 | .(let.((filename."/tmp/slime-tmp |
| 2e4420 | 2d 66 69 6c 65 2e 6c 69 73 70 22 29 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 66 69 6c | -file.lisp")).....(with-temp-fil |
| 2e4440 | 65 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 73 74 72 69 6e 67 29 | e.filename.......(insert.string) |
| 2e4460 | 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 65 6c 6c 20 28 63 6f 6e 73 20 6e 69 6c 20 6e 69 6c 29 | ).....(let.((cell.(cons.nil.nil) |
| 2e4480 | 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 0a 20 20 20 20 20 | )).......(slime-eval-async...... |
| 2e44a0 | 20 20 60 28 73 77 61 6e 6b 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 66 6f 72 2d 65 6d 61 63 73 | ..`(swank:compile-file-for-emacs |
| 2e44c0 | 20 2c 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 72 63 | .,filename.nil)........(slime-rc |
| 2e44e0 | 75 72 72 79 20 28 6c 61 6d 62 64 61 20 28 72 65 73 75 6c 74 20 63 65 6c 6c 29 0a 20 20 20 20 20 | urry.(lambda.(result.cell)...... |
| 2e4500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 63 61 72 20 63 65 6c 6c 20 74 | ..................(setcar.cell.t |
| 2e4520 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 63 64 72 | )........................(setcdr |
| 2e4540 | 20 63 65 6c 6c 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .cell.result)).................. |
| 2e4560 | 20 20 20 20 63 65 6c 6c 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e | ....cell)).......(slime-wait-con |
| 2e4580 | 64 69 74 69 6f 6e 20 22 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 66 69 6e 69 73 68 65 64 22 20 28 6c | dition."Compilation.finished".(l |
| 2e45a0 | 61 6d 62 64 61 20 28 29 20 28 63 61 72 20 63 65 6c 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ambda.().(car.cell))............ |
| 2e45c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 | .................5).......(let.( |
| 2e45e0 | 28 72 65 73 75 6c 74 20 28 63 64 72 20 63 65 6c 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c | (result.(cdr.cell))).........(sl |
| 2e4600 | 69 6d 65 2d 63 68 65 63 6b 20 22 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 73 75 63 63 65 73 73 66 75 | ime-check."Compilation.successfu |
| 2e4620 | 6c 6c 22 0a 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 | ll"...........(eq.(slime-compila |
| 2e4640 | 74 69 6f 6e 2d 72 65 73 75 6c 74 2e 73 75 63 63 65 73 73 70 20 72 65 73 75 6c 74 29 20 74 29 29 | tion-result.successp.result).t)) |
| 2e4660 | 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 75 74 66 2d 38 2d 73 6f 75 72 | ))))..(def-slime-test.utf-8-sour |
| 2e4680 | 63 65 0a 20 20 20 20 28 69 6e 70 75 74 20 6f 75 74 70 75 74 29 0a 20 20 20 20 22 53 6f 75 72 63 | ce.....(input.output)....."Sourc |
| 2e46a0 | 65 20 63 6f 64 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 75 74 66 2d 38 20 73 68 6f 75 6c 64 20 77 | e.code.containing.utf-8.should.w |
| 2e46c0 | 6f 72 6b 22 0a 20 20 20 20 28 6c 69 73 74 20 28 6c 65 74 2a 20 20 28 28 62 79 74 65 73 20 22 5c | ork".....(list.(let*..((bytes."\ |
| 2e46e0 | 30 30 30 5c 33 34 33 5c 32 30 31 5c 32 31 32 5c 33 34 33 5c 32 30 31 5c 32 35 37 5c 33 34 33 5c | 000\343\201\212\343\201\257\343\ |
| 2e4700 | 32 30 32 5c 32 31 30 5c 33 34 33 5c 32 30 31 5c 32 30 36 22 29 0a 20 20 20 20 20 20 20 20 20 20 | 202\210\343\201\206")........... |
| 2e4720 | 20 20 20 20 20 20 20 20 3b 3b 20 28 65 6e 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 | ........;;.(encode-coding-string |
| 2e4740 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 28 73 74 72 69 6e 67 20 | ...................;;...(string. |
| 2e4760 | 23 78 30 30 30 30 20 23 78 33 30 34 61 20 23 78 33 30 36 66 20 23 78 33 30 38 38 20 23 78 33 30 | #x0000.#x304a.#x306f.#x3088.#x30 |
| 2e4780 | 34 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 27 75 74 66 2d | 46)...................;;...'utf- |
| 2e47a0 | 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 28 64 65 | 8)...................(string.(de |
| 2e47c0 | 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 20 62 79 74 65 73 20 27 75 74 66 2d 38 2d | code-coding-string.bytes.'utf-8- |
| 2e47e0 | 75 6e 69 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 | unix))).............(cl-assert.( |
| 2e4800 | 65 71 75 61 6c 20 62 79 74 65 73 20 28 65 6e 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e | equal.bytes.(encode-coding-strin |
| 2e4820 | 67 20 73 74 72 69 6e 67 20 27 75 74 66 2d 38 2d 75 6e 69 78 29 29 29 0a 20 20 20 20 20 20 20 20 | g.string.'utf-8-unix)))......... |
| 2e4840 | 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 63 61 74 20 22 28 64 65 66 75 6e 20 63 6c 2d 75 73 65 | ....(list.(concat."(defun.cl-use |
| 2e4860 | 72 3a 3a 66 6f 6f 20 28 29 20 5c 22 22 20 73 74 72 69 6e 67 20 22 5c 22 29 22 29 0a 20 20 20 20 | r::foo.().\"".string."\")")..... |
| 2e4880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 29 29 29 0a 20 20 28 73 6c 69 6d 65 | ..............string)))...(slime |
| 2e48a0 | 2d 65 76 61 6c 20 60 28 63 6c 3a 65 76 61 6c 20 28 63 6c 3a 72 65 61 64 2d 66 72 6f 6d 2d 73 74 | -eval.`(cl:eval.(cl:read-from-st |
| 2e48c0 | 72 69 6e 67 20 2c 69 6e 70 75 74 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 | ring.,input)))...(slime-test-exp |
| 2e48e0 | 65 63 74 20 22 45 76 61 6c 20 72 65 73 75 6c 74 20 63 6f 72 72 65 63 74 22 0a 20 20 20 20 20 20 | ect."Eval.result.correct"....... |
| 2e4900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 20 28 73 6c 69 6d 65 2d 65 76 61 | ...............output.(slime-eva |
| 2e4920 | 6c 20 27 28 63 6c 2d 75 73 65 72 3a 3a 66 6f 6f 29 29 29 0a 20 20 28 6c 65 74 20 28 28 63 65 6c | l.'(cl-user::foo)))...(let.((cel |
| 2e4940 | 6c 20 28 63 6f 6e 73 20 6e 69 6c 20 6e 69 6c 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 68 6f | l.(cons.nil.nil))).....(let.((ho |
| 2e4960 | 6f 6b 20 28 73 6c 69 6d 65 2d 63 75 72 72 79 20 28 6c 61 6d 62 64 61 20 28 63 65 6c 6c 20 26 72 | ok.(slime-curry.(lambda.(cell.&r |
| 2e4980 | 65 73 74 20 5f 29 20 28 73 65 74 63 61 72 20 63 65 6c 6c 20 74 29 29 20 63 65 6c 6c 29 29 29 0a | est._).(setcar.cell.t)).cell))). |
| 2e49a0 | 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 | ......(add-hook.'slime-compilati |
| 2e49c0 | 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 68 6f 6f 6b 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 28 75 6e | on-finished-hook.hook).......(un |
| 2e49e0 | 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 | wind-protect...........(progn... |
| 2e4a00 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 | ..........(slime-compile-string. |
| 2e4a20 | 69 6e 70 75 74 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 | input.0).............(slime-wait |
| 2e4a40 | 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 66 69 6e 69 73 68 65 64 | -condition."Compilation.finished |
| 2e4a60 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "............................... |
| 2e4a80 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 61 72 20 63 65 6c 6c 29 29 0a 20 20 20 20 20 | ....(lambda.().(car.cell))...... |
| 2e4aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 29 0a | .............................5). |
| 2e4ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 | ............(slime-test-expect." |
| 2e4ae0 | 43 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 72 65 73 75 6c 74 20 63 6f 72 72 65 63 74 22 0a 20 | Compile-string.result.correct".. |
| 2e4b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 | ..............................ou |
| 2e4b20 | 74 70 75 74 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 27 28 63 6c 2d 75 73 65 72 3a 3a 66 6f 6f 29 | tput.(slime-eval.'(cl-user::foo) |
| 2e4b40 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d | ))).........(remove-hook.'slime- |
| 2e4b60 | 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 68 6f 6f 6b 20 68 6f 6f 6b 29 29 | compilation-finished-hook.hook)) |
| 2e4b80 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 6e 61 6d 65 20 22 2f 74 6d 70 2f 73 6c 69 | .......(let.((filename."/tmp/sli |
| 2e4ba0 | 6d 65 2d 74 6d 70 2d 66 69 6c 65 2e 6c 69 73 70 22 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 | me-tmp-file.lisp")).........(set |
| 2e4bc0 | 63 61 72 20 63 65 6c 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 | car.cell.nil).........(add-hook. |
| 2e4be0 | 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 68 6f 6f 6b | 'slime-compilation-finished-hook |
| 2e4c00 | 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 | .hook).........(unwind-protect.. |
| 2e4c20 | 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 | ...........(with-temp-buffer.... |
| 2e4c40 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 27 73 65 74 2d 62 | ...........(when.(fboundp.'set-b |
| 2e4c60 | 75 66 66 65 72 2d 6d 75 6c 74 69 62 79 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uffer-multibyte)................ |
| 2e4c80 | 20 28 73 65 74 2d 62 75 66 66 65 72 2d 6d 75 6c 74 69 62 79 74 65 20 74 29 29 0a 20 20 20 20 20 | .(set-buffer-multibyte.t))...... |
| 2e4ca0 | 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 63 6f 64 69 6e | .........(setq.buffer-file-codin |
| 2e4cc0 | 67 2d 73 79 73 74 65 6d 20 27 75 74 66 2d 38 2d 75 6e 69 78 29 0a 20 20 20 20 20 20 20 20 20 20 | g-system.'utf-8-unix)........... |
| 2e4ce0 | 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 6e | ....(setq.buffer-file-name.filen |
| 2e4d00 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 3b 3b 20 2d | ame)...............(insert.";;.- |
| 2e4d20 | 2a 2d 20 63 6f 64 69 6e 67 3a 20 75 74 66 2d 38 2d 75 6e 69 78 20 2d 2a 2d 20 5c 6e 22 29 0a 20 | *-.coding:.utf-8-unix.-*-.\n").. |
| 2e4d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 69 6e 70 75 74 29 0a 20 20 20 20 | .............(insert.input)..... |
| 2e4d60 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2d 66 | ..........(let.((coding-system-f |
| 2e4d80 | 6f 72 2d 77 72 69 74 65 20 27 75 74 66 2d 38 2d 75 6e 69 78 29 29 0a 20 20 20 20 20 20 20 20 20 | or-write.'utf-8-unix)).......... |
| 2e4da0 | 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 72 65 67 69 6f 6e 20 6e 69 6c 20 6e 69 6c 20 66 69 6c | .......(write-region.nil.nil.fil |
| 2e4dc0 | 65 6e 61 6d 65 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | ename.nil.t))...............(let |
| 2e4de0 | 20 28 28 73 6c 69 6d 65 2d 6c 6f 61 64 2d 66 61 69 6c 65 64 2d 66 61 73 6c 20 27 61 6c 77 61 79 | .((slime-load-failed-fasl.'alway |
| 2e4e00 | 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 | s)).................(slime-compi |
| 2e4e20 | 6c 65 2d 61 6e 64 2d 6c 6f 61 64 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-and-load-file)............... |
| 2e4e40 | 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 43 6f 6d 70 69 6c 61 | ..(slime-wait-condition."Compila |
| 2e4e60 | 74 69 6f 6e 20 66 69 6e 69 73 68 65 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tion.finished".................. |
| 2e4e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 | .....................(lambda.(). |
| 2e4ea0 | 28 63 61 72 20 63 65 6c 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (car.cell))..................... |
| 2e4ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ..................5))........... |
| 2e4ee0 | 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 43 6f 6d 70 69 6c 65 2d | ....(slime-test-expect."Compile- |
| 2e4f00 | 66 69 6c 65 20 72 65 73 75 6c 74 20 63 6f 72 72 65 63 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 | file.result.correct"............ |
| 2e4f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 20 28 73 6c | ......................output.(sl |
| 2e4f40 | 69 6d 65 2d 65 76 61 6c 20 27 28 63 6c 2d 75 73 65 72 3a 3a 66 6f 6f 29 29 29 29 0a 20 20 20 20 | ime-eval.'(cl-user::foo))))..... |
| 2e4f60 | 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c | ......(remove-hook.'slime-compil |
| 2e4f80 | 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 68 6f 6f 6b 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 | ation-finished-hook.hook)....... |
| 2e4fa0 | 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 | ....(ignore-errors.(delete-file. |
| 2e4fc0 | 66 69 6c 65 6e 61 6d 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 | filename)))))))..(def-slime-test |
| 2e4fe0 | 20 61 73 79 6e 63 2d 65 76 61 6c 2d 64 65 62 75 67 67 69 6e 67 20 28 64 65 70 74 68 29 0a 20 20 | .async-eval-debugging.(depth)... |
| 2e5000 | 22 54 65 73 74 20 72 65 63 75 72 73 69 76 65 20 64 65 62 75 67 67 69 6e 67 20 6f 66 20 61 73 79 | "Test.recursive.debugging.of.asy |
| 2e5020 | 6e 63 68 72 6f 6e 6f 75 73 20 65 76 61 6c 75 61 74 69 6f 6e 20 72 65 71 75 65 73 74 73 2e 22 0a | nchronous.evaluation.requests.". |
| 2e5040 | 20 20 27 28 28 31 29 20 28 32 29 20 28 33 29 29 0a 20 20 28 6c 65 74 20 28 28 64 65 70 74 68 20 | ..'((1).(2).(3))...(let.((depth. |
| 2e5060 | 64 65 70 74 68 29 0a 20 20 20 20 20 20 20 20 28 64 65 62 75 67 2d 68 6f 6f 6b 2d 6d 61 78 2d 64 | depth).........(debug-hook-max-d |
| 2e5080 | 65 70 74 68 20 30 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 64 65 62 75 67 2d 68 6f 6f 6b 0a 20 | epth.0)).....(let.((debug-hook.. |
| 2e50a0 | 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..........(lambda.()............ |
| 2e50c0 | 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 64 62 2d 67 65 74 | ..(with-current-buffer.(sldb-get |
| 2e50e0 | 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -default-buffer)................ |
| 2e5100 | 28 77 68 65 6e 20 28 3e 20 73 6c 64 62 2d 6c 65 76 65 6c 20 64 65 62 75 67 2d 68 6f 6f 6b 2d 6d | (when.(>.sldb-level.debug-hook-m |
| 2e5120 | 61 78 2d 64 65 70 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | ax-depth)..................(setq |
| 2e5140 | 20 64 65 62 75 67 2d 68 6f 6f 6b 2d 6d 61 78 2d 64 65 70 74 68 20 73 6c 64 62 2d 6c 65 76 65 6c | .debug-hook-max-depth.sldb-level |
| 2e5160 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3d 20 73 6c 64 62 2d 6c | )..................(if.(=.sldb-l |
| 2e5180 | 65 76 65 6c 20 64 65 70 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | evel.depth)..................... |
| 2e51a0 | 20 3b 3b 20 57 65 27 72 65 20 61 74 20 6d 61 78 69 6d 75 6d 20 72 65 63 75 72 73 69 6f 6e 20 2d | .;;.We're.at.maximum.recursion.- |
| 2e51c0 | 20 74 69 6d 65 20 74 6f 20 75 6e 77 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .time.to.unwind................. |
| 2e51e0 | 20 20 20 20 20 28 73 6c 64 62 2d 71 75 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(sldb-quit)................ |
| 2e5200 | 20 20 20 20 3b 3b 20 47 6f 69 6e 67 20 64 6f 77 6e 20 2d 20 65 6e 74 65 72 20 61 6e 6f 74 68 65 | ....;;.Going.down.-.enter.anothe |
| 2e5220 | 72 20 72 65 63 75 72 73 69 76 65 20 64 65 62 75 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.recursive.debug............... |
| 2e5240 | 20 20 20 20 20 3b 3b 20 52 65 63 75 72 73 69 76 65 6c 79 20 64 65 62 75 67 2e 0a 20 20 20 20 20 | .....;;.Recursively.debug....... |
| 2e5260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 | ..............(slime-eval-async. |
| 2e5280 | 27 28 65 72 72 6f 72 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 6c 64 | '(error)))))))).......(let.((sld |
| 2e52a0 | 62 2d 68 6f 6f 6b 20 28 63 6f 6e 73 20 64 65 62 75 67 2d 68 6f 6f 6b 20 73 6c 64 62 2d 68 6f 6f | b-hook.(cons.debug-hook.sldb-hoo |
| 2e52c0 | 6b 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 27 | k))).........(slime-eval-async.' |
| 2e52e0 | 28 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d | (error)).........(slime-sync-to- |
| 2e5300 | 74 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 | top-level.5).........(slime-chec |
| 2e5320 | 6b 20 28 22 4d 61 78 69 6d 75 6d 20 64 65 70 74 68 20 72 65 61 63 68 65 64 20 28 25 53 29 20 69 | k.("Maximum.depth.reached.(%S).i |
| 2e5340 | 73 20 25 53 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 62 | s.%S.".......................deb |
| 2e5360 | 75 67 2d 68 6f 6f 6b 2d 6d 61 78 2d 64 65 70 74 68 20 64 65 70 74 68 29 0a 20 20 20 20 20 20 20 | ug-hook-max-depth.depth)........ |
| 2e5380 | 20 20 20 28 3d 20 64 65 62 75 67 2d 68 6f 6f 6b 2d 6d 61 78 2d 64 65 70 74 68 20 64 65 70 74 68 | ...(=.debug-hook-max-depth.depth |
| 2e53a0 | 29 29 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 75 6e 77 69 6e 64 2d 74 | ))))))..(def-slime-test.unwind-t |
| 2e53c0 | 6f 2d 70 72 65 76 69 6f 75 73 2d 73 6c 64 62 2d 6c 65 76 65 6c 20 28 6c 65 76 65 6c 32 20 6c 65 | o-previous-sldb-level.(level2.le |
| 2e53e0 | 76 65 6c 31 29 0a 20 20 22 54 65 73 74 20 72 65 63 75 72 73 69 76 65 20 64 65 62 75 67 67 69 6e | vel1)..."Test.recursive.debuggin |
| 2e5400 | 67 20 61 6e 64 20 72 65 74 75 72 6e 69 6e 67 20 74 6f 20 6c 6f 77 65 72 20 53 4c 44 42 20 6c 65 | g.and.returning.to.lower.SLDB.le |
| 2e5420 | 76 65 6c 73 2e 22 0a 20 20 27 28 28 32 20 31 29 20 28 34 20 32 29 29 0a 20 20 28 73 6c 69 6d 65 | vels."...'((2.1).(4.2))...(slime |
| 2e5440 | 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 6c 65 74 20 28 28 6c 65 76 65 6c | -check-top-level)...(let.((level |
| 2e5460 | 32 20 6c 65 76 65 6c 32 29 0a 20 20 20 20 20 20 20 20 28 6c 65 76 65 6c 31 20 6c 65 76 65 6c 31 | 2.level2).........(level1.level1 |
| 2e5480 | 29 0a 20 20 20 20 20 20 20 20 28 73 74 61 74 65 20 27 65 6e 74 65 72 29 0a 20 20 20 20 20 20 20 | ).........(state.'enter)........ |
| 2e54a0 | 20 28 6d 61 78 2d 64 65 70 74 68 20 30 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 64 65 62 75 67 | .(max-depth.0)).....(let.((debug |
| 2e54c0 | 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 | -hook............(lambda.()..... |
| 2e54e0 | 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 | .........(with-current-buffer.(s |
| 2e5500 | 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 | ldb-get-default-buffer)......... |
| 2e5520 | 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 61 78 2d 64 65 70 74 68 20 28 6d 61 78 20 73 6c 64 62 | .......(setq.max-depth.(max.sldb |
| 2e5540 | 2d 6c 65 76 65 6c 20 6d 61 78 2d 64 65 70 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -level.max-depth)).............. |
| 2e5560 | 20 20 28 63 6c 2d 65 63 61 73 65 20 73 74 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(cl-ecase.state............... |
| 2e5580 | 20 20 20 28 65 6e 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e | ...(enter...................(con |
| 2e55a0 | 64 20 28 28 3d 20 73 6c 64 62 2d 6c 65 76 65 6c 20 6c 65 76 65 6c 32 29 0a 20 20 20 20 20 20 20 | d.((=.sldb-level.level2)........ |
| 2e55c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 74 61 74 65 20 27 6c | ..................(setq.state.'l |
| 2e55e0 | 65 61 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | eave)..........................( |
| 2e5600 | 73 6c 64 62 2d 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 28 73 6c 64 62 2d 66 69 72 73 74 2d | sldb-invoke-restart.(sldb-first- |
| 2e5620 | 61 62 6f 72 74 2d 72 65 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | abort-restart)))................ |
| 2e5640 | 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(t..................... |
| 2e5660 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 60 28 63 6c 3a 61 72 65 66 | .....(slime-eval-async.`(cl:aref |
| 2e5680 | 20 63 6c 3a 6e 69 6c 20 2c 73 6c 64 62 2d 6c 65 76 65 6c 29 29 29 29 29 0a 20 20 20 20 20 20 20 | .cl:nil.,sldb-level)))))........ |
| 2e56a0 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 61 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(leave................ |
| 2e56c0 | 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 73 6c 64 62 2d 6c 65 76 65 6c 20 6c 65 76 65 6c 31 29 0a | ...(cond.((=.sldb-level.level1). |
| 2e56e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 | .........................(setq.s |
| 2e5700 | 74 61 74 65 20 27 6f 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tate.'ok)....................... |
| 2e5720 | 20 20 20 28 73 6c 64 62 2d 71 75 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(sldb-quit))................. |
| 2e5740 | 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(t...................... |
| 2e5760 | 20 20 20 20 28 73 6c 64 62 2d 69 6e 76 6f 6b 65 2d 72 65 73 74 61 72 74 20 28 73 6c 64 62 2d 66 | ....(sldb-invoke-restart.(sldb-f |
| 2e5780 | 69 72 73 74 2d 61 62 6f 72 74 2d 72 65 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | irst-abort-restart))............ |
| 2e57a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 | ..............)))))))).......(le |
| 2e57c0 | 74 20 28 28 73 6c 64 62 2d 68 6f 6f 6b 20 28 63 6f 6e 73 20 64 65 62 75 67 2d 68 6f 6f 6b 20 73 | t.((sldb-hook.(cons.debug-hook.s |
| 2e57e0 | 6c 64 62 2d 68 6f 6f 6b 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d | ldb-hook))).........(slime-eval- |
| 2e5800 | 61 73 79 6e 63 20 60 28 63 6c 3a 61 72 65 66 20 63 6c 3a 6e 69 6c 20 30 29 29 0a 20 20 20 20 20 | async.`(cl:aref.cl:nil.0))...... |
| 2e5820 | 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 31 35 29 0a | ...(slime-sync-to-top-level.15). |
| 2e5840 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a | ........(slime-check-top-level). |
| 2e5860 | 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 28 22 4d 61 78 69 6d 75 6d 20 64 | ........(slime-check.("Maximum.d |
| 2e5880 | 65 70 74 68 20 72 65 61 63 68 65 64 20 28 25 53 29 20 69 73 20 25 53 2e 22 20 6d 61 78 2d 64 65 | epth.reached.(%S).is.%S.".max-de |
| 2e58a0 | 70 74 68 20 6c 65 76 65 6c 32 29 0a 20 20 20 20 20 20 20 20 20 20 28 3d 20 6d 61 78 2d 64 65 70 | pth.level2)...........(=.max-dep |
| 2e58c0 | 74 68 20 6c 65 76 65 6c 32 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b | th.level2)).........(slime-check |
| 2e58e0 | 20 28 22 46 69 6e 61 6c 20 73 74 61 74 65 20 72 65 61 63 68 65 64 2e 22 29 0a 20 20 20 20 20 20 | .("Final.state.reached.")....... |
| 2e5900 | 20 20 20 20 28 65 71 20 73 74 61 74 65 20 27 6f 6b 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ....(eq.state.'ok))))))..(defun. |
| 2e5920 | 73 6c 64 62 2d 66 69 72 73 74 2d 61 62 6f 72 74 2d 72 65 73 74 61 72 74 20 28 29 0a 20 20 28 6c | sldb-first-abort-restart.()...(l |
| 2e5940 | 65 74 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 29 29 0a 20 20 20 20 28 63 | et.((case-fold-search.t)).....(c |
| 2e5960 | 6c 2d 70 6f 73 69 74 69 6f 6e 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 73 74 72 69 6e | l-position-if.(lambda.(x).(strin |
| 2e5980 | 67 2d 6d 61 74 63 68 20 22 61 62 6f 72 74 22 20 28 63 61 72 20 78 29 29 29 0a 09 09 20 20 20 20 | g-match."abort".(car.x)))....... |
| 2e59a0 | 73 6c 64 62 2d 72 65 73 74 61 72 74 73 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 | sldb-restarts)))..(def-slime-tes |
| 2e59c0 | 74 20 6c 6f 6f 70 2d 69 6e 74 65 72 72 75 70 74 2d 71 75 69 74 0a 20 20 20 20 28 29 0a 20 20 20 | t.loop-interrupt-quit.....().... |
| 2e59e0 | 20 22 54 65 73 74 20 69 6e 74 65 72 72 75 70 74 69 6e 67 20 61 20 6c 6f 6f 70 2e 22 0a 20 20 20 | ."Test.interrupting.a.loop.".... |
| 2e5a00 | 20 27 28 28 29 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 | .'(())...(slime-check-top-level) |
| 2e5a20 | 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 27 28 63 6c 3a 6c 6f 6f 70 29 20 | ...(slime-eval-async.'(cl:loop). |
| 2e5a40 | 28 6c 61 6d 62 64 61 20 28 5f 29 20 29 20 22 43 4c 2d 55 53 45 52 22 29 0a 20 20 28 61 63 63 65 | (lambda.(_).)."CL-USER")...(acce |
| 2e5a60 | 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20 6e 69 6c 20 31 29 0a 20 20 28 73 6c 69 6d | pt-process-output.nil.1)...(slim |
| 2e5a80 | 65 2d 63 68 65 63 6b 20 22 49 6e 20 65 76 61 6c 20 73 74 61 74 65 2e 22 20 28 73 6c 69 6d 65 2d | e-check."In.eval.state.".(slime- |
| 2e5aa0 | 62 75 73 79 2d 70 29 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 29 0a 20 20 28 | busy-p))...(slime-interrupt)...( |
| 2e5ac0 | 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 46 69 72 73 74 20 69 6e 74 65 | slime-wait-condition."First.inte |
| 2e5ae0 | 72 72 75 70 74 22 20 28 6c 61 6d 62 64 61 20 28 29 20 28 73 6c 69 6d 65 2d 73 6c 64 62 2d 6c 65 | rrupt".(lambda.().(slime-sldb-le |
| 2e5b00 | 76 65 6c 3d 20 31 29 29 20 35 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 | vel=.1)).5)...(with-current-buff |
| 2e5b20 | 65 72 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 0a 20 20 20 | er.(sldb-get-default-buffer).... |
| 2e5b40 | 20 28 73 6c 64 62 2d 71 75 69 74 29 29 0a 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 | .(sldb-quit))...(slime-sync-to-t |
| 2e5b60 | 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c | op-level.5)...(slime-check-top-l |
| 2e5b80 | 65 76 65 6c 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 6c 6f 6f 70 2d 69 6e 74 | evel))..(def-slime-test.loop-int |
| 2e5ba0 | 65 72 72 75 70 74 2d 63 6f 6e 74 69 6e 75 65 2d 69 6e 74 65 72 72 75 70 74 2d 71 75 69 74 0a 20 | errupt-continue-interrupt-quit.. |
| 2e5bc0 | 20 20 20 28 29 0a 20 20 20 20 22 54 65 73 74 20 69 6e 74 65 72 72 75 70 74 69 6e 67 20 61 20 70 | ...()....."Test.interrupting.a.p |
| 2e5be0 | 72 65 76 69 6f 75 73 6c 79 20 69 6e 74 65 72 72 75 70 74 65 64 20 62 75 74 20 63 6f 6e 74 69 6e | reviously.interrupted.but.contin |
| 2e5c00 | 75 65 64 20 6c 6f 6f 70 2e 22 0a 20 20 20 20 27 28 28 29 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 | ued.loop.".....'(())...(slime-ch |
| 2e5c20 | 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 | eck-top-level)...(slime-eval-asy |
| 2e5c40 | 6e 63 20 27 28 63 6c 3a 6c 6f 6f 70 29 20 28 6c 61 6d 62 64 61 20 28 5f 29 20 29 20 22 43 4c 2d | nc.'(cl:loop).(lambda.(_).)."CL- |
| 2e5c60 | 55 53 45 52 22 29 0a 20 20 28 73 6c 65 65 70 2d 66 6f 72 20 31 29 0a 20 20 28 73 6c 69 6d 65 2d | USER")...(sleep-for.1)...(slime- |
| 2e5c80 | 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 72 75 6e 6e 69 6e 67 22 20 23 27 73 6c 69 6d 65 | wait-condition."running".#'slime |
| 2e5ca0 | 2d 62 75 73 79 2d 70 20 35 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 29 0a 20 | -busy-p.5)...(slime-interrupt).. |
| 2e5cc0 | 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 46 69 72 73 74 20 69 6e | .(slime-wait-condition."First.in |
| 2e5ce0 | 74 65 72 72 75 70 74 22 20 28 6c 61 6d 62 64 61 20 28 29 20 28 73 6c 69 6d 65 2d 73 6c 64 62 2d | terrupt".(lambda.().(slime-sldb- |
| 2e5d00 | 6c 65 76 65 6c 3d 20 31 29 29 20 35 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 | level=.1)).5)...(with-current-bu |
| 2e5d20 | 66 66 65 72 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 0a 20 | ffer.(sldb-get-default-buffer).. |
| 2e5d40 | 20 20 20 28 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 29 29 0a 20 20 28 73 6c 69 6d 65 2d 77 61 69 | ...(sldb-continue))...(slime-wai |
| 2e5d60 | 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 72 75 6e 6e 69 6e 67 22 20 28 6c 61 6d 62 64 61 20 28 29 | t-condition."running".(lambda.() |
| 2e5d80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2e5da0 | 20 20 20 20 20 28 61 6e 64 20 28 73 6c 69 6d 65 2d 62 75 73 79 2d 70 29 0a 20 20 20 20 20 20 20 | .....(and.(slime-busy-p)........ |
| 2e5dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2e5de0 | 20 20 28 6e 6f 74 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 | ..(not.(sldb-get-default-buffer) |
| 2e5e00 | 29 29 29 20 35 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 29 0a 20 20 28 73 6c | ))).5)...(slime-interrupt)...(sl |
| 2e5e20 | 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 53 65 63 6f 6e 64 20 69 6e 74 65 72 | ime-wait-condition."Second.inter |
| 2e5e40 | 72 75 70 74 22 20 28 6c 61 6d 62 64 61 20 28 29 20 28 73 6c 69 6d 65 2d 73 6c 64 62 2d 6c 65 76 | rupt".(lambda.().(slime-sldb-lev |
| 2e5e60 | 65 6c 3d 20 31 29 29 20 35 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | el=.1)).5)...(with-current-buffe |
| 2e5e80 | 72 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 | r.(sldb-get-default-buffer)..... |
| 2e5ea0 | 28 73 6c 64 62 2d 71 75 69 74 29 29 0a 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f | (sldb-quit))...(slime-sync-to-to |
| 2e5ec0 | 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 | p-level.5)...(slime-check-top-le |
| 2e5ee0 | 76 65 6c 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 69 6e 74 65 72 61 63 74 69 | vel))..(def-slime-test.interacti |
| 2e5f00 | 76 65 2d 65 76 61 6c 0a 20 20 20 20 28 29 0a 20 20 20 20 22 54 65 73 74 20 69 6e 74 65 72 61 63 | ve-eval.....()....."Test.interac |
| 2e5f20 | 74 69 76 65 20 65 76 61 6c 20 61 6e 64 20 63 6f 6e 74 69 6e 75 69 6e 67 20 66 72 6f 6d 20 74 68 | tive.eval.and.continuing.from.th |
| 2e5f40 | 65 20 64 65 62 75 67 67 65 72 2e 22 0a 20 20 20 20 27 28 28 29 29 0a 20 20 28 73 6c 69 6d 65 2d | e.debugger.".....'(())...(slime- |
| 2e5f60 | 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 6c 65 74 20 28 28 64 6f 6e 65 20 6e | check-top-level)...(let.((done.n |
| 2e5f80 | 69 6c 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 6c 64 62 2d 68 6f 6f 6b 20 28 6c 61 6d 62 64 | il)).....(let.((sldb-hook.(lambd |
| 2e5fa0 | 61 20 28 29 20 28 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 29 20 28 73 65 74 71 20 64 6f 6e 65 20 | a.().(sldb-continue).(setq.done. |
| 2e5fc0 | 74 29 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 65 | t)))).......(slime-interactive-e |
| 2e5fe0 | 76 61 6c 0a 20 20 20 20 20 20 20 22 28 70 72 6f 67 6e 5c 0a 20 28 63 65 72 72 6f 72 20 5c 22 66 | val........"(progn\..(cerror.\"f |
| 2e6000 | 6f 6f 5c 22 20 5c 22 72 65 73 74 61 72 74 5c 22 29 5c 0a 20 28 63 65 72 72 6f 72 20 5c 22 62 61 | oo\".\"restart\")\..(cerror.\"ba |
| 2e6020 | 72 5c 22 20 5c 22 72 65 73 74 61 72 74 5c 22 29 5c 0a 20 28 2b 20 31 20 32 29 29 22 29 0a 20 20 | r\".\"restart\")\..(+.1.2))")... |
| 2e6040 | 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 64 6f 6e 65 29 20 28 61 63 63 65 70 74 2d 70 72 | ....(while.(not.done).(accept-pr |
| 2e6060 | 6f 63 65 73 73 2d 6f 75 74 70 75 74 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 | ocess-output)).......(slime-sync |
| 2e6080 | 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 | -to-top-level.5).......(slime-ch |
| 2e60a0 | 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 6e 6f 6e | eck-top-level).......(unless.non |
| 2e60c0 | 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 65 73 73 61 | interactive.........(let.((messa |
| 2e60e0 | 67 65 20 28 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ge.(current-message))).......... |
| 2e6100 | 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 4d 69 6e 69 62 75 66 66 65 72 20 63 6f 6e 74 61 69 | .(slime-check."Minibuffer.contai |
| 2e6120 | 6e 73 3a 20 5c 22 33 5c 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 22 3d | ns:.\"3\"".............(equal."= |
| 2e6140 | 3e 20 33 20 28 32 20 62 69 74 73 2c 20 23 78 33 2c 20 23 6f 33 2c 20 23 62 31 31 29 22 20 6d 65 | >.3.(2.bits,.#x3,.#o3,.#b11)".me |
| 2e6160 | 73 73 61 67 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 72 65 | ssage)))))))..(def-slime-test.re |
| 2e6180 | 70 6f 72 74 2d 63 6f 6e 64 69 74 69 6f 6e 2d 77 69 74 68 2d 63 69 72 63 75 6c 61 72 2d 6c 69 73 | port-condition-with-circular-lis |
| 2e61a0 | 74 0a 20 20 20 20 28 66 6f 72 6d 61 74 2d 63 6f 6e 74 72 6f 6c 20 66 6f 72 6d 61 74 2d 61 72 67 | t.....(format-control.format-arg |
| 2e61c0 | 75 6d 65 6e 74 29 0a 20 20 20 20 22 54 65 73 74 20 63 6f 6e 64 69 74 69 6f 6e 73 20 69 6e 76 6f | ument)....."Test.conditions.invo |
| 2e61e0 | 6c 76 69 6e 67 20 63 69 72 63 75 6c 61 72 20 6c 69 73 74 73 2e 22 0a 20 20 20 20 27 28 28 22 7e | lving.circular.lists.".....'(("~ |
| 2e6200 | 61 22 20 22 28 6c 65 74 20 28 28 78 20 28 63 6f 6e 73 20 6e 69 6c 20 6e 69 6c 29 29 29 20 28 73 | a"."(let.((x.(cons.nil.nil))).(s |
| 2e6220 | 65 74 66 20 28 63 64 72 20 78 29 20 78 29 29 22 29 0a 20 20 20 20 20 20 28 22 7e 61 22 20 22 28 | etf.(cdr.x).x))").......("~a"."( |
| 2e6240 | 6c 65 74 20 28 28 78 20 28 63 6f 6e 73 20 6e 69 6c 20 6e 69 6c 29 29 29 20 28 73 65 74 66 20 28 | let.((x.(cons.nil.nil))).(setf.( |
| 2e6260 | 63 61 72 20 78 29 20 78 29 29 22 29 0a 20 20 20 20 20 20 28 22 7e 61 22 20 22 28 6c 65 74 20 28 | car.x).x))").......("~a"."(let.( |
| 2e6280 | 28 78 20 28 63 6f 6e 73 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 31 30 30 30 30 30 20 3a 69 6e | (x.(cons.(make-string.100000.:in |
| 2e62a0 | 69 74 69 61 6c 2d 65 6c 65 6d 65 6e 74 20 23 5c 5c 58 29 20 6e 69 6c 29 29 29 5c 0a 20 20 20 20 | itial-element.#\\X).nil)))\..... |
| 2e62c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 63 64 72 20 78 29 20 78 29 29 22 29 29 | ............(setf.(cdr.x).x))")) |
| 2e62e0 | 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 6c 65 | ...(slime-check-top-level)...(le |
| 2e6300 | 74 20 28 28 64 6f 6e 65 20 6e 69 6c 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 6c 64 62 2d 68 | t.((done.nil)).....(let.((sldb-h |
| 2e6320 | 6f 6f 6b 20 28 6c 61 6d 62 64 61 20 28 29 20 28 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 29 20 28 | ook.(lambda.().(sldb-continue).( |
| 2e6340 | 73 65 74 71 20 64 6f 6e 65 20 74 29 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 74 | setq.done.t)))).......(slime-int |
| 2e6360 | 65 72 61 63 74 69 76 65 2d 65 76 61 6c 0a 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 77 | eractive-eval........(format."(w |
| 2e6380 | 69 74 68 2d 73 74 61 6e 64 61 72 64 2d 69 6f 2d 73 79 6e 74 61 78 20 28 63 65 72 72 6f 72 20 5c | ith-standard-io-syntax.(cerror.\ |
| 2e63a0 | 22 66 6f 6f 5c 22 20 5c 22 25 73 5c 22 20 25 73 29 20 28 2b 20 31 20 32 29 29 22 0a 20 20 20 20 | "foo\".\"%s\".%s).(+.1.2))"..... |
| 2e63c0 | 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 61 74 2d 63 6f 6e 74 72 6f 6c 20 66 6f 72 6d 61 74 | ...........format-control.format |
| 2e63e0 | 2d 61 72 67 75 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 64 6f | -argument)).......(while.(not.do |
| 2e6400 | 6e 65 29 20 28 61 63 63 65 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 29 29 0a 20 20 20 | ne).(accept-process-output)).... |
| 2e6420 | 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 0a 20 | ...(slime-sync-to-top-level.5).. |
| 2e6440 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 20 | .....(slime-check-top-level).... |
| 2e6460 | 20 20 20 28 75 6e 6c 65 73 73 20 6e 6f 6e 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 20 20 | ...(unless.noninteractive....... |
| 2e6480 | 20 20 28 6c 65 74 20 28 28 6d 65 73 73 61 67 65 20 28 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 | ..(let.((message.(current-messag |
| 2e64a0 | 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 4d 69 6e | e)))...........(slime-check."Min |
| 2e64c0 | 69 62 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 3a 20 5c 22 33 5c 22 22 0a 20 20 20 20 20 20 20 | ibuffer.contains:.\"3\""........ |
| 2e64e0 | 20 20 20 20 20 28 65 71 75 61 6c 20 22 3d 3e 20 33 20 28 32 20 62 69 74 73 2c 20 23 78 33 2c 20 | .....(equal."=>.3.(2.bits,.#x3,. |
| 2e6500 | 23 6f 33 2c 20 23 62 31 31 29 22 20 6d 65 73 73 61 67 65 29 29 29 29 29 29 29 0a 0a 28 64 65 66 | #o3,.#b11)".message)))))))..(def |
| 2e6520 | 2d 73 6c 69 6d 65 2d 74 65 73 74 20 69 6e 74 65 72 72 75 70 74 2d 62 75 62 62 6c 69 6e 67 2d 69 | -slime-test.interrupt-bubbling-i |
| 2e6540 | 64 69 6f 74 0a 20 20 20 20 28 29 0a 20 20 20 20 22 54 65 73 74 20 69 6e 74 65 72 72 75 70 74 69 | diot.....()....."Test.interrupti |
| 2e6560 | 6e 67 20 61 20 6c 6f 6f 70 20 74 68 61 74 20 73 65 6e 64 73 20 61 20 6c 6f 74 20 6f 66 20 6f 75 | ng.a.loop.that.sends.a.lot.of.ou |
| 2e6580 | 74 70 75 74 20 74 6f 20 45 6d 61 63 73 2e 22 0a 20 20 20 20 27 28 28 29 29 0a 20 20 28 61 63 63 | tput.to.Emacs.".....'(())...(acc |
| 2e65a0 | 65 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20 6e 69 6c 20 31 29 0a 20 20 28 73 6c 69 | ept-process-output.nil.1)...(sli |
| 2e65c0 | 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 | me-check-top-level)...(slime-eva |
| 2e65e0 | 6c 2d 61 73 79 6e 63 20 27 28 63 6c 3a 6c 6f 6f 70 20 3a 66 6f 72 20 69 20 3a 66 72 6f 6d 20 30 | l-async.'(cl:loop.:for.i.:from.0 |
| 2e6600 | 20 3a 64 6f 20 28 63 6c 3a 70 72 6f 67 6e 20 28 63 6c 3a 70 72 69 6e 74 20 69 29 0a 20 20 20 20 | .:do.(cl:progn.(cl:print.i)..... |
| 2e6620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2e6640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 3a 66 69 6e 69 73 | .......................(cl:finis |
| 2e6660 | 68 2d 6f 75 74 70 75 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h-output)))..................... |
| 2e6680 | 28 6c 61 6d 62 64 61 20 28 5f 29 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (lambda.(_).)................... |
| 2e66a0 | 20 20 22 43 4c 2d 55 53 45 52 22 29 0a 20 20 28 73 6c 65 65 70 2d 66 6f 72 20 31 29 0a 20 20 28 | .."CL-USER")...(sleep-for.1)...( |
| 2e66c0 | 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 29 0a 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 | slime-interrupt)...(slime-wait-c |
| 2e66e0 | 6f 6e 64 69 74 69 6f 6e 20 22 44 65 62 75 67 67 65 72 20 76 69 73 69 62 6c 65 22 0a 20 20 20 20 | ondition."Debugger.visible"..... |
| 2e6700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 | ....................(lambda.().. |
| 2e6720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 | .........................(and.(s |
| 2e6740 | 6c 69 6d 65 2d 73 6c 64 62 2d 6c 65 76 65 6c 3d 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | lime-sldb-level=.1)............. |
| 2e6760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 | ...................(get-buffer-w |
| 2e6780 | 69 6e 64 6f 77 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 29 | indow.(sldb-get-default-buffer)) |
| 2e67a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 30 29 0a 20 | )).........................30).. |
| 2e67c0 | 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 64 62 2d 67 65 74 2d | .(with-current-buffer.(sldb-get- |
| 2e67e0 | 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 73 6c 64 62 2d 71 75 69 74 29 29 | default-buffer).....(sldb-quit)) |
| 2e6800 | 0a 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 29 0a | ...(slime-sync-to-top-level.5)). |
| 2e6820 | 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 69 6e 74 65 72 72 75 70 74 2d 65 6e 63 6f | .(def-slime-test.(interrupt-enco |
| 2e6840 | 64 65 2d 6d 65 73 73 61 67 65 20 28 3a 73 74 79 6c 65 20 3a 73 69 67 69 6f 29 29 0a 20 20 20 20 | de-message.(:style.:sigio))..... |
| 2e6860 | 28 29 0a 20 20 20 20 22 54 65 73 74 20 69 6e 74 65 72 72 75 70 74 20 70 72 6f 63 65 73 73 69 6e | ()....."Test.interrupt.processin |
| 2e6880 | 67 20 64 75 72 69 6e 67 20 73 77 61 6e 6b 3a 3a 65 6e 63 6f 64 65 2d 6d 65 73 73 61 67 65 22 0a | g.during.swank::encode-message". |
| 2e68a0 | 20 20 20 20 27 28 28 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 27 28 | ....'(())...(slime-eval-async.'( |
| 2e68c0 | 63 6c 3a 6c 6f 6f 70 20 3a 66 6f 72 20 69 20 3a 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 20 20 | cl:loop.:for.i.:from.0.......... |
| 2e68e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 6f 20 28 73 77 61 6e 6b 3a | .....................:do.(swank: |
| 2e6900 | 3a 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 65 73 73 61 67 65 20 22 66 6f 6f 20 7e 64 22 20 69 29 29 | :background-message."foo.~d".i)) |
| 2e6920 | 29 0a 20 20 28 73 6c 65 65 70 2d 66 6f 72 20 31 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d | )...(sleep-for.1)...(slime-eval- |
| 2e6940 | 61 73 79 6e 63 20 27 28 63 6c 3a 2f 20 31 20 30 29 29 0a 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 | async.'(cl:/.1.0))...(slime-wait |
| 2e6960 | 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 44 65 62 75 67 67 65 72 20 76 69 73 69 62 6c 65 22 0a 20 20 | -condition."Debugger.visible"... |
| 2e6980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 | ......................(lambda.() |
| 2e69a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 | ...........................(and. |
| 2e69c0 | 28 73 6c 69 6d 65 2d 73 6c 64 62 2d 6c 65 76 65 6c 3d 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 | (slime-sldb-level=.1)........... |
| 2e69e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 | .....................(get-buffer |
| 2e6a00 | 2d 77 69 6e 64 6f 77 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 | -window.(sldb-get-default-buffer |
| 2e6a20 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 30 29 | )))).........................30) |
| 2e6a40 | 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 64 62 2d 67 65 | ...(with-current-buffer.(sldb-ge |
| 2e6a60 | 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 73 6c 64 62 2d 71 75 69 74 | t-default-buffer).....(sldb-quit |
| 2e6a80 | 29 29 0a 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 | ))...(slime-sync-to-top-level.5) |
| 2e6aa0 | 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 69 6e 73 70 65 63 74 6f 72 0a 20 20 20 | )..(def-slime-test.inspector.... |
| 2e6ac0 | 20 28 65 78 70 29 0a 20 20 20 20 22 54 65 73 74 20 62 61 73 69 63 20 69 6e 73 70 65 63 74 6f 72 | .(exp)....."Test.basic.inspector |
| 2e6ae0 | 20 77 6f 72 6b 69 6e 67 6e 65 73 73 2e 22 0a 20 20 20 20 27 28 28 28 6c 65 74 20 28 28 68 20 28 | .workingness.".....'(((let.((h.( |
| 2e6b00 | 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 6f 6f | make-hash-table)))..........(loo |
| 2e6b20 | 70 20 66 6f 72 20 69 20 62 65 6c 6f 77 20 31 30 20 64 6f 20 28 73 65 74 66 20 28 67 65 74 68 61 | p.for.i.below.10.do.(setf.(getha |
| 2e6b40 | 73 68 20 69 20 68 29 20 69 29 29 0a 20 20 20 20 20 20 20 20 20 68 29 29 0a 20 20 20 20 20 20 28 | sh.i.h).i))..........h)).......( |
| 2e6b60 | 28 6d 61 6b 65 2d 61 72 72 61 79 20 31 30 29 29 0a 20 20 20 20 20 20 28 28 6d 61 6b 65 2d 6c 69 | (make-array.10)).......((make-li |
| 2e6b80 | 73 74 20 31 30 29 29 0a 20 20 20 20 20 20 28 27 63 6f 6e 73 29 0a 20 20 20 20 20 20 28 23 27 63 | st.10)).......('cons).......(#'c |
| 2e6ba0 | 6f 6e 73 29 29 0a 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 20 28 70 72 69 6e 31 2d 74 6f | ons))...(slime-inspect.(prin1-to |
| 2e6bc0 | 2d 73 74 72 69 6e 67 20 65 78 70 29 29 0a 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 6e 6f 74 20 | -string.exp))...(cl-assert.(not. |
| 2e6be0 | 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 76 69 73 69 62 6c 65 2d 70 29 29 29 0a 20 20 | (slime-inspector-visible-p)))... |
| 2e6c00 | 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 49 6e 73 70 65 63 74 6f 72 | (slime-wait-condition."Inspector |
| 2e6c20 | 20 76 69 73 69 62 6c 65 22 20 23 27 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 76 69 73 69 | .visible".#'slime-inspector-visi |
| 2e6c40 | 62 6c 65 2d 70 20 35 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 | ble-p.5)...(with-current-buffer. |
| 2e6c60 | 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 | (window-buffer.(selected-window) |
| 2e6c80 | 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f 72 2d 71 75 69 74 29 29 0a 20 20 | ).....(slime-inspector-quit))... |
| 2e6ca0 | 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 49 6e 73 70 65 63 74 6f 72 | (slime-wait-condition."Inspector |
| 2e6cc0 | 20 63 6c 6f 73 65 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .closed"........................ |
| 2e6ce0 | 20 28 6c 61 6d 62 64 61 20 28 29 20 28 6e 6f 74 20 28 73 6c 69 6d 65 2d 69 6e 73 70 65 63 74 6f | .(lambda.().(not.(slime-inspecto |
| 2e6d00 | 72 2d 76 69 73 69 62 6c 65 2d 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-visible-p))).................. |
| 2e6d20 | 20 20 20 20 20 20 20 35 29 0a 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c | .......5)...(slime-sync-to-top-l |
| 2e6d40 | 65 76 65 6c 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 76 69 | evel.1))..(defun.slime-buffer-vi |
| 2e6d60 | 73 69 62 6c 65 2d 70 20 28 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 | sible-p.(name)...(let.((buffer.( |
| 2e6d80 | 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 | window-buffer.(selected-window)) |
| 2e6da0 | 29 29 0a 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 6e 61 6d 65 20 28 62 75 66 66 65 | )).....(string-match.name.(buffe |
| 2e6dc0 | 72 2d 6e 61 6d 65 20 62 75 66 66 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | r-name.buffer))))..(defun.slime- |
| 2e6de0 | 69 6e 73 70 65 63 74 6f 72 2d 76 69 73 69 62 6c 65 2d 70 20 28 29 0a 20 20 28 73 6c 69 6d 65 2d | inspector-visible-p.()...(slime- |
| 2e6e00 | 62 75 66 66 65 72 2d 76 69 73 69 62 6c 65 2d 70 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e | buffer-visible-p.(slime-buffer-n |
| 2e6e20 | 61 6d 65 20 3a 69 6e 73 70 65 63 74 6f 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d | ame.:inspector)))..(defun.slime- |
| 2e6e40 | 65 78 65 63 75 74 65 2d 61 73 2d 63 6f 6d 6d 61 6e 64 20 28 6e 61 6d 65 29 0a 20 20 22 45 78 65 | execute-as-command.(name)..."Exe |
| 2e6e60 | 63 75 74 65 20 60 6e 61 6d 65 27 20 61 73 20 69 66 20 69 74 20 77 61 73 20 64 6f 6e 65 20 62 79 | cute.`name'.as.if.it.was.done.by |
| 2e6e80 | 20 74 68 65 20 75 73 65 72 20 74 68 72 6f 75 67 68 20 74 68 65 0a 43 6f 6d 6d 61 6e 64 20 4c 6f | .the.user.through.the.Command.Lo |
| 2e6ea0 | 6f 70 2e 20 53 69 6d 69 6c 69 61 72 20 74 6f 20 60 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 | op..Similiar.to.`call-interactiv |
| 2e6ec0 | 65 6c 79 27 20 62 75 74 20 61 6c 73 6f 20 70 75 73 68 65 73 20 6f 6e 0a 74 68 65 20 62 75 66 66 | ely'.but.also.pushes.on.the.buff |
| 2e6ee0 | 65 72 27 73 20 75 6e 64 6f 2d 6c 69 73 74 2e 22 0a 20 20 28 75 6e 64 6f 2d 62 6f 75 6e 64 61 72 | er's.undo-list."...(undo-boundar |
| 2e6f00 | 79 29 0a 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 6e 61 6d 65 29 29 0a | y)...(call-interactively.name)). |
| 2e6f20 | 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 6d 61 63 72 6f 65 78 70 61 6e 64 0a 20 20 20 | .(def-slime-test.macroexpand.... |
| 2e6f40 | 20 28 6d 61 63 72 6f 2d 64 65 66 73 20 62 75 66 63 6f 6e 74 65 6e 74 20 65 78 70 61 6e 73 69 6f | .(macro-defs.bufcontent.expansio |
| 2e6f60 | 6e 31 20 73 65 61 72 63 68 2d 73 74 72 20 65 78 70 61 6e 73 69 6f 6e 32 29 0a 20 20 20 20 22 66 | n1.search-str.expansion2)....."f |
| 2e6f80 | 6f 6f 22 0a 20 20 20 20 27 28 28 28 22 28 64 65 66 6d 61 63 72 6f 20 71 77 65 72 74 7a 20 28 26 | oo".....'((("(defmacro.qwertz.(& |
| 2e6fa0 | 62 6f 64 79 20 62 6f 64 79 29 20 60 28 6c 69 73 74 20 3a 71 77 65 72 74 7a 20 27 2c 62 6f 64 79 | body.body).`(list.:qwertz.',body |
| 2e6fc0 | 29 29 22 0a 20 20 20 20 20 20 20 20 22 28 64 65 66 6d 61 63 72 6f 20 79 78 63 76 20 28 26 62 6f | ))"........."(defmacro.yxcv.(&bo |
| 2e6fe0 | 64 79 20 62 6f 64 79 29 20 60 28 6c 69 73 74 20 3a 79 78 63 76 20 28 71 77 65 72 74 7a 20 2c 40 | dy.body).`(list.:yxcv.(qwertz.,@ |
| 2e7000 | 62 6f 64 79 29 29 29 22 29 0a 20 20 20 20 20 20 20 22 28 79 78 63 76 20 3a 41 20 3a 42 20 3a 43 | body)))")........"(yxcv.:A.:B.:C |
| 2e7020 | 29 22 0a 20 20 20 20 20 20 20 22 28 6c 69 73 74 20 3a 79 78 63 76 20 28 71 77 65 72 74 7a 20 3a | )"........"(list.:yxcv.(qwertz.: |
| 2e7040 | 61 20 3a 62 20 3a 63 29 29 22 0a 20 20 20 20 20 20 20 22 28 71 77 65 72 74 7a 22 0a 20 20 20 20 | a.:b.:c))"........"(qwertz"..... |
| 2e7060 | 20 20 20 22 28 6c 69 73 74 20 3a 79 78 63 76 20 28 6c 69 73 74 20 3a 71 77 65 72 74 7a 20 27 28 | ..."(list.:yxcv.(list.:qwertz.'( |
| 2e7080 | 3a 61 20 3a 62 20 3a 63 29 29 29 22 29 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f | :a.:b.:c)))"))...(slime-check-to |
| 2e70a0 | 70 2d 6c 65 76 65 6c 29 0a 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 | p-level)...(setq.slime-buffer-pa |
| 2e70c0 | 63 6b 61 67 65 20 22 3a 73 77 61 6e 6b 22 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 | ckage.":swank")...(with-temp-buf |
| 2e70e0 | 66 65 72 0a 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 | fer.....(lisp-mode).....(dolist. |
| 2e7100 | 28 64 65 66 20 6d 61 63 72 6f 2d 64 65 66 73 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f | (def.macro-defs).......(slime-co |
| 2e7120 | 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 64 65 66 20 30 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 | mpile-string.def.0).......(slime |
| 2e7140 | 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 29 0a 20 20 20 20 28 69 6e 73 65 | -sync-to-top-level.5)).....(inse |
| 2e7160 | 72 74 20 62 75 66 63 6f 6e 74 65 6e 74 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 | rt.bufcontent).....(goto-char.(p |
| 2e7180 | 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 65 78 65 63 75 74 65 2d 61 73 | oint-min)).....(slime-execute-as |
| 2e71a0 | 2d 63 6f 6d 6d 61 6e 64 20 27 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 29 0a 20 | -command.'slime-macroexpand-1).. |
| 2e71c0 | 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 4d 61 63 72 6f 65 | ...(slime-wait-condition."Macroe |
| 2e71e0 | 78 70 61 6e 73 69 6f 6e 20 62 75 66 66 65 72 20 76 69 73 69 62 6c 65 22 0a 20 20 20 20 20 20 20 | xpansion.buffer.visible"........ |
| 2e7200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 | ...................(lambda.()... |
| 2e7220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | ..........................(slime |
| 2e7240 | 2d 62 75 66 66 65 72 2d 76 69 73 69 62 6c 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -buffer-visible-p............... |
| 2e7260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 6e 61 6d | ...............(slime-buffer-nam |
| 2e7280 | 65 20 3a 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | e.:macroexpansion)))............ |
| 2e72a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 | ...............5).....(with-curr |
| 2e72c0 | 65 6e 74 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 62 75 | ent-buffer.(get-buffer.(slime-bu |
| 2e72e0 | 66 66 65 72 2d 6e 61 6d 65 20 3a 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 29 29 0a 20 20 20 20 | ffer-name.:macroexpansion))..... |
| 2e7300 | 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 49 6e 69 74 69 61 6c 20 6d 61 | ..(slime-test-expect."Initial.ma |
| 2e7320 | 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 69 73 20 63 6f 72 72 65 63 74 22 0a 20 20 20 20 20 20 20 | croexpansion.is.correct"........ |
| 2e7340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 61 6e 73 69 6f 6e 31 0a 20 20 20 | ..................expansion1.... |
| 2e7360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 77 6e 63 61 73 65 20 | ......................(downcase. |
| 2e7380 | 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (buffer-string))................ |
| 2e73a0 | 20 20 20 20 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 74 65 73 74 2d 6d 61 63 72 6f 65 78 70 61 | ..........#'slime-test-macroexpa |
| 2e73c0 | 6e 73 69 6f 6e 3d 29 0a 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 73 65 | nsion=).......(search-forward.se |
| 2e73e0 | 61 72 63 68 2d 73 74 72 29 0a 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 | arch-str).......(backward-up-lis |
| 2e7400 | 74 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 78 65 63 75 74 65 2d 61 73 2d 63 6f 6d 6d 61 | t).......(slime-execute-as-comma |
| 2e7420 | 6e 64 20 27 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 2d 69 6e 70 6c 61 63 65 29 | nd.'slime-macroexpand-1-inplace) |
| 2e7440 | 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 | .......(slime-sync-to-top-level. |
| 2e7460 | 33 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 49 6e 2d | 3).......(slime-test-expect."In- |
| 2e7480 | 70 6c 61 63 65 20 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 20 69 73 20 63 6f 72 72 65 63 74 22 | place.macroexpansion.is.correct" |
| 2e74a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 61 6e 73 | ..........................expans |
| 2e74c0 | 69 6f 6e 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | ion2..........................(d |
| 2e74e0 | 6f 77 6e 63 61 73 65 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 | owncase.(buffer-string))........ |
| 2e7500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 74 65 73 74 2d 6d | ..................#'slime-test-m |
| 2e7520 | 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 3d 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 78 65 | acroexpansion=).......(slime-exe |
| 2e7540 | 63 75 74 65 2d 61 73 2d 63 6f 6d 6d 61 6e 64 20 27 73 6c 69 6d 65 2d 6d 61 63 72 6f 65 78 70 61 | cute-as-command.'slime-macroexpa |
| 2e7560 | 6e 64 2d 75 6e 64 6f 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 | nd-undo).......(slime-test-expec |
| 2e7580 | 74 20 22 45 78 70 61 6e 73 69 6f 6e 20 61 66 74 65 72 20 75 6e 64 6f 20 69 73 20 63 6f 72 72 65 | t."Expansion.after.undo.is.corre |
| 2e75a0 | 63 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 | ct"..........................exp |
| 2e75c0 | 61 6e 73 69 6f 6e 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ansion1......................... |
| 2e75e0 | 20 28 64 6f 77 6e 63 61 73 65 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 | .(downcase.(buffer-string))..... |
| 2e7600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 6c 69 6d 65 2d 74 65 73 | .....................#'slime-tes |
| 2e7620 | 74 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 6f 6e 3d 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 73 | t-macroexpansion=))).....(setq.s |
| 2e7640 | 6c 69 6d 65 2d 62 75 66 66 65 72 2d 70 61 63 6b 61 67 65 20 22 3a 63 6c 2d 75 73 65 72 22 29 29 | lime-buffer-package.":cl-user")) |
| 2e7660 | 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 65 73 74 2d 6d 61 63 72 6f 65 78 70 61 6e 73 69 | ..(defun.slime-test-macroexpansi |
| 2e7680 | 6f 6e 3d 20 28 73 74 72 69 6e 67 31 20 73 74 72 69 6e 67 32 29 0a 20 20 28 6c 65 74 20 28 28 73 | on=.(string1.string2)...(let.((s |
| 2e76a0 | 74 72 69 6e 67 31 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 | tring1.(replace-regexp-in-string |
| 2e76c0 | 20 22 20 2a 5c 6e 20 2a 22 20 22 20 22 20 73 74 72 69 6e 67 31 29 29 0a 20 20 20 20 20 20 20 20 | .".*\n.*".".".string1))......... |
| 2e76e0 | 28 73 74 72 69 6e 67 32 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 | (string2.(replace-regexp-in-stri |
| 2e7700 | 6e 67 20 22 20 2a 5c 6e 20 2a 22 20 22 20 22 20 73 74 72 69 6e 67 32 29 29 29 0a 20 20 20 20 28 | ng.".*\n.*".".".string2))).....( |
| 2e7720 | 65 71 75 61 6c 20 73 74 72 69 6e 67 31 20 73 74 72 69 6e 67 32 29 29 29 0a 0a 28 64 65 66 2d 73 | equal.string1.string2)))..(def-s |
| 2e7740 | 6c 69 6d 65 2d 74 65 73 74 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 62 75 66 66 65 72 2d 63 6f | lime-test.indentation.(buffer-co |
| 2e7760 | 6e 74 65 6e 74 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 73 29 0a 20 20 20 20 20 20 20 20 22 43 68 | ntent.point-markers)........."Ch |
| 2e7780 | 65 63 6b 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 75 70 64 61 74 65 20 74 6f 20 77 6f 72 6b 20 63 | eck.indentation.update.to.work.c |
| 2e77a0 | 6f 72 72 65 63 74 6c 79 2e 22 0a 20 20 20 20 27 28 28 22 0a 5c 28 69 6e 2d 70 61 63 6b 61 67 65 | orrectly.".....'((".\(in-package |
| 2e77c0 | 20 3a 73 77 61 6e 6b 29 0a 0a 5c 28 64 65 66 6d 61 63 72 6f 20 77 69 74 68 2d 6c 6f 6c 69 70 6f | .:swank)..\(defmacro.with-lolipo |
| 2e77e0 | 70 20 28 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 60 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 | p.(&body.body)...`(progn.,@body) |
| 2e7800 | 29 0a 0a 5c 28 64 65 66 6d 61 63 72 6f 20 6c 6f 6c 69 70 6f 70 20 28 26 62 6f 64 79 20 62 6f 64 | )..\(defmacro.lolipop.(&body.bod |
| 2e7820 | 79 29 0a 20 20 60 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 29 0a 0a 5c 28 77 69 74 68 2d 6c 6f | y)...`(progn.,@body))..\(with-lo |
| 2e7840 | 6c 69 70 6f 70 0a 20 20 31 0a 20 20 32 0a 20 20 34 32 29 0a 0a 5c 28 6c 6f 6c 69 70 6f 70 0a 20 | lipop...1...2...42)..\(lolipop.. |
| 2e7860 | 20 31 0a 20 20 32 0a 20 20 32 33 29 0a 22 0a 20 20 20 20 20 20 20 28 22 32 33 22 20 22 34 32 22 | .1...2...23)."........("23"."42" |
| 2e7880 | 29 29 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 6c 69 73 | )))...(with-temp-buffer.....(lis |
| 2e78a0 | 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f | p-mode).....(slime-lisp-mode-hoo |
| 2e78c0 | 6b 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e 74 29 0a 20 | k).....(insert.buffer-content).. |
| 2e78e0 | 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d | ...(slime-compile-region.(point- |
| 2e7900 | 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e | min).(point-max)).....(slime-syn |
| 2e7920 | 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 33 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 75 70 64 | c-to-top-level.3).....(slime-upd |
| 2e7940 | 61 74 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 | ate-indentation).....(slime-sync |
| 2e7960 | 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 33 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6d 61 | -to-top-level.3).....(dolist.(ma |
| 2e7980 | 72 6b 65 72 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 73 29 0a 20 20 20 20 20 20 28 73 65 61 72 63 | rker.point-markers).......(searc |
| 2e79a0 | 68 2d 62 61 63 6b 77 61 72 64 20 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 28 62 65 67 69 6e 6e | h-backward.marker).......(beginn |
| 2e79c0 | 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 29 0a 20 20 20 20 20 20 28 69 6e 64 65 6e 74 2d 73 65 78 70 | ing-of-defun).......(indent-sexp |
| 2e79e0 | 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 22 43 6f 72 72 65 | )).....(slime-test-expect."Corre |
| 2e7a00 | 63 74 20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ct.buffer.content".............. |
| 2e7a20 | 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e 74 0a 20 20 20 20 20 20 20 | ..........buffer-content........ |
| 2e7a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 | ................(substring-no-pr |
| 2e7a60 | 6f 70 65 72 74 69 65 73 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 29 29 0a 0a 28 64 | operties.(buffer-string)))))..(d |
| 2e7a80 | 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2e 32 20 28 62 75 66 | ef-slime-test.indentation.2.(buf |
| 2e7aa0 | 66 65 72 2d 63 6f 6e 74 65 6e 74 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 73 29 0a 20 20 20 20 20 | fer-content.point-markers)...... |
| 2e7ac0 | 20 20 20 22 43 68 65 63 6b 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 75 70 64 61 74 65 20 74 6f 20 | ..."Check.indentation.update.to. |
| 2e7ae0 | 77 6f 72 6b 20 63 6f 72 72 65 63 74 6c 79 2e 22 0a 20 20 20 20 27 28 28 22 0a 5c 28 69 6e 2d 70 | work.correctly.".....'((".\(in-p |
| 2e7b00 | 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 0a 5c 28 64 65 66 6d 61 63 72 6f 20 6c 6f 6c 69 70 | ackage.:swank)..\(defmacro.lolip |
| 2e7b20 | 6f 70 20 28 26 62 6f 64 79 20 62 6f 64 79 29 0a 20 20 60 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 | op.(&body.body)...`(progn.,@body |
| 2e7b40 | 29 29 0a 0a 5c 28 64 65 66 6d 61 63 72 6f 20 6c 6f 6c 69 70 6f 70 20 28 26 72 65 73 74 20 62 6f | ))..\(defmacro.lolipop.(&rest.bo |
| 2e7b60 | 64 79 29 0a 20 20 60 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 29 0a 0a 5c 28 6c 6f 6c 69 70 6f | dy)...`(progn.,@body))..\(lolipo |
| 2e7b80 | 70 20 31 0a 20 20 20 20 20 20 20 20 20 32 0a 20 20 20 20 20 20 20 20 20 32 33 29 0a 22 0a 20 20 | p.1..........2..........23)."... |
| 2e7ba0 | 20 20 20 20 20 28 22 32 33 22 29 29 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 | .....("23")))...(with-temp-buffe |
| 2e7bc0 | 72 0a 20 20 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 6c 69 73 | r.....(lisp-mode).....(slime-lis |
| 2e7be0 | 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 62 75 66 66 65 72 2d | p-mode-hook).....(insert.buffer- |
| 2e7c00 | 63 6f 6e 74 65 6e 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 72 65 67 69 | content).....(slime-compile-regi |
| 2e7c20 | 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 | on.(point-min).(point-max))..... |
| 2e7c40 | 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 33 29 0a 20 20 20 20 | (slime-sync-to-top-level.3)..... |
| 2e7c60 | 28 73 6c 69 6d 65 2d 75 70 64 61 74 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 0a 20 20 20 20 28 | (slime-update-indentation).....( |
| 2e7c80 | 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 33 29 0a 20 20 20 20 28 | slime-sync-to-top-level.3).....( |
| 2e7ca0 | 64 6f 6c 69 73 74 20 28 6d 61 72 6b 65 72 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 73 29 0a 20 20 | dolist.(marker.point-markers)... |
| 2e7cc0 | 20 20 20 20 28 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 6d 61 72 6b 65 72 29 0a 20 20 20 | ....(search-backward.marker).... |
| 2e7ce0 | 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 29 0a 20 20 20 20 20 20 28 69 | ...(beginning-of-defun).......(i |
| 2e7d00 | 6e 64 65 6e 74 2d 73 65 78 70 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 | ndent-sexp)).....(slime-test-exp |
| 2e7d20 | 65 63 74 20 22 43 6f 72 72 65 63 74 20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 22 0a 20 20 20 | ect."Correct.buffer.content".... |
| 2e7d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 63 6f 6e 74 65 | ....................buffer-conte |
| 2e7d60 | 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 | nt........................(subst |
| 2e7d80 | 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e | ring-no-properties.(buffer-strin |
| 2e7da0 | 67 29 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 62 72 65 61 6b 0a 20 20 | g)))))..(def-slime-test.break... |
| 2e7dc0 | 20 20 28 74 69 6d 65 73 20 65 78 70 29 0a 20 20 20 20 22 54 65 73 74 20 77 68 65 74 68 65 72 20 | ..(times.exp)....."Test.whether. |
| 2e7de0 | 42 52 45 41 4b 20 69 6e 76 6f 6b 65 73 20 53 4c 44 42 2e 22 0a 20 20 20 20 28 6c 65 74 20 28 28 | BREAK.invokes.SLDB.".....(let.(( |
| 2e7e00 | 65 78 70 31 20 27 28 62 72 65 61 6b 29 29 29 0a 20 20 20 20 20 20 60 28 28 31 20 2c 65 78 70 31 | exp1.'(break))).......`((1.,exp1 |
| 2e7e20 | 29 20 28 32 20 2c 65 78 70 31 29 20 28 33 20 2c 65 78 70 31 29 29 29 0a 20 20 28 61 63 63 65 70 | ).(2.,exp1).(3.,exp1)))...(accep |
| 2e7e40 | 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20 6e 69 6c 20 30 2e 32 29 0a 20 20 28 73 6c 69 | t-process-output.nil.0.2)...(sli |
| 2e7e60 | 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 | me-check-top-level)...(slime-eva |
| 2e7e80 | 6c 2d 61 73 79 6e 63 0a 20 20 20 60 28 63 6c 3a 65 76 61 6c 20 28 63 6c 3a 72 65 61 64 2d 66 72 | l-async....`(cl:eval.(cl:read-fr |
| 2e7ea0 | 6f 6d 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 70 72 69 6e 31 2d | om-string...............,(prin1- |
| 2e7ec0 | 74 6f 2d 73 74 72 69 6e 67 20 60 28 64 6f 74 69 6d 65 73 20 28 69 20 2c 74 69 6d 65 73 29 0a 20 | to-string.`(dotimes.(i.,times).. |
| 2e7ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2e7f00 | 20 20 28 75 6e 6c 65 73 73 20 28 3d 20 69 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(unless.(=.i.0)............... |
| 2e7f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 3a 3a 73 | .......................(swank::s |
| 2e7f40 | 6c 65 65 70 2d 66 6f 72 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | leep-for.1)).................... |
| 2e7f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 65 78 70 29 29 29 29 29 0a 20 20 28 64 6f 74 | ................,exp)))))...(dot |
| 2e7f80 | 69 6d 65 73 20 28 5f 69 20 74 69 6d 65 73 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d | imes.(_i.times).....(slime-wait- |
| 2e7fa0 | 63 6f 6e 64 69 74 69 6f 6e 20 22 44 65 62 75 67 67 65 72 20 76 69 73 69 62 6c 65 22 0a 20 20 20 | condition."Debugger.visible".... |
| 2e7fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | .......................(lambda.( |
| 2e7fe0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | ).............................(a |
| 2e8000 | 6e 64 20 28 73 6c 69 6d 65 2d 73 6c 64 62 2d 6c 65 76 65 6c 3d 20 31 29 0a 20 20 20 20 20 20 20 | nd.(slime-sldb-level=.1)........ |
| 2e8020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 62 | ..........................(get-b |
| 2e8040 | 75 66 66 65 72 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uffer-window.................... |
| 2e8060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 | ...............(sldb-get-default |
| 2e8080 | 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -buffer))))..................... |
| 2e80a0 | 20 20 20 20 20 20 33 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | ......3).....(with-current-buffe |
| 2e80c0 | 72 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 | r.(sldb-get-default-buffer)..... |
| 2e80e0 | 20 20 28 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 | ..(sldb-continue)).....(slime-wa |
| 2e8100 | 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 73 6c 64 62 20 63 6c 6f 73 65 64 22 0a 20 20 20 20 20 | it-condition."sldb.closed"...... |
| 2e8120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 | .....................(lambda.(). |
| 2e8140 | 28 6e 6f 74 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 29 29 | (not.(sldb-get-default-buffer))) |
| 2e8160 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 29 29 0a 20 | ...........................5)).. |
| 2e8180 | 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 31 29 29 0a 0a 28 | .(slime-sync-to-top-level.1))..( |
| 2e81a0 | 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 62 72 65 61 6b 32 20 28 3a 66 61 69 6c 73 2d 66 | def-slime-test.(break2.(:fails-f |
| 2e81c0 | 6f 72 20 22 63 6d 75 63 6c 22 20 22 61 6c 6c 65 67 72 6f 22 29 29 0a 20 20 20 20 28 74 69 6d 65 | or."cmucl"."allegro")).....(time |
| 2e81e0 | 73 20 65 78 70 29 0a 20 20 20 20 22 42 61 63 6b 65 6e 64 73 20 73 68 6f 75 6c 64 20 61 72 67 75 | s.exp)....."Backends.should.argu |
| 2e8200 | 61 62 6c 79 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 42 52 45 41 4b 20 64 6f 65 73 20 6e | ably.make.sure.that.BREAK.does.n |
| 2e8220 | 6f 74 20 64 65 70 65 6e 64 0a 6f 6e 20 2a 44 45 42 55 47 47 45 52 2d 48 4f 4f 4b 2a 2e 22 0a 20 | ot.depend.on.*DEBUGGER-HOOK*.".. |
| 2e8240 | 20 20 20 28 6c 65 74 20 28 28 65 78 70 32 0a 20 20 20 20 20 20 20 20 20 20 20 27 28 62 6c 6f 63 | ...(let.((exp2............'(bloc |
| 2e8260 | 6b 20 6f 75 74 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 64 65 | k.outta...............(let.((*de |
| 2e8280 | 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 20 28 6c 61 6d 62 64 61 20 28 63 20 68 29 20 28 72 65 74 75 | bugger-hook*.(lambda.(c.h).(retu |
| 2e82a0 | 72 6e 2d 66 72 6f 6d 20 6f 75 74 74 61 20 34 32 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | rn-from.outta.42))))............ |
| 2e82c0 | 20 20 20 20 20 28 62 72 65 61 6b 29 29 29 29 29 0a 20 20 20 20 20 20 60 28 28 31 20 2c 65 78 70 | .....(break))))).......`((1.,exp |
| 2e82e0 | 32 29 20 28 32 20 2c 65 78 70 32 29 20 28 33 20 2c 65 78 70 32 29 29 29 0a 20 20 28 73 6c 69 6d | 2).(2.,exp2).(3.,exp2)))...(slim |
| 2e8300 | 65 2d 74 65 73 74 2d 62 72 65 61 6b 20 74 69 6d 65 73 20 65 78 70 29 29 0a 0a 28 64 65 66 2d 73 | e-test-break.times.exp))..(def-s |
| 2e8320 | 6c 69 6d 65 2d 74 65 73 74 20 6c 6f 63 61 6c 6c 79 2d 62 6f 75 6e 64 2d 64 65 62 75 67 67 65 72 | lime-test.locally-bound-debugger |
| 2e8340 | 2d 68 6f 6f 6b 0a 20 20 20 20 28 29 0a 20 20 20 20 22 54 65 73 74 20 74 68 61 74 20 62 69 6e 64 | -hook.....()....."Test.that.bind |
| 2e8360 | 69 6e 67 20 2a 44 45 42 55 47 47 45 52 2d 48 4f 4f 4b 2a 20 6c 6f 63 61 6c 6c 79 20 77 6f 72 6b | ing.*DEBUGGER-HOOK*.locally.work |
| 2e8380 | 73 20 70 72 6f 70 65 72 6c 79 2e 22 0a 20 20 20 20 27 28 28 29 29 0a 20 20 28 61 63 63 65 70 74 | s.properly.".....'(())...(accept |
| 2e83a0 | 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20 6e 69 6c 20 31 29 0a 20 20 28 73 6c 69 6d 65 2d | -process-output.nil.1)...(slime- |
| 2e83c0 | 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c | check-top-level)...(slime-compil |
| 2e83e0 | 65 2d 73 74 72 69 6e 67 0a 20 20 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 60 28 64 | e-string....(prin1-to-string.`(d |
| 2e8400 | 65 66 75 6e 20 63 6c 2d 75 73 65 72 3a 3a 71 75 75 78 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 | efun.cl-user::quux.()........... |
| 2e8420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6c 6f 63 6b 20 6f 75 74 74 61 0a 20 20 20 20 20 20 | .............(block.outta....... |
| 2e8440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 2a 64 65 62 75 67 | ...................(let.((*debug |
| 2e8460 | 67 65 72 2d 68 6f 6f 6b 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ger-hook*....................... |
| 2e8480 | 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 20 68 6f 6f 6b 29 0a 20 20 20 20 20 | ..........(lambda.(c.hook)...... |
| 2e84a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 | .............................(de |
| 2e84c0 | 63 6c 61 72 65 20 28 69 67 6e 6f 72 65 20 63 20 68 6f 6f 6b 29 29 0a 20 20 20 20 20 20 20 20 20 | clare.(ignore.c.hook)).......... |
| 2e84e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e | .........................(return |
| 2e8500 | 2d 66 72 6f 6d 20 6f 75 74 74 61 20 34 32 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -from.outta.42)))).............. |
| 2e8520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 46 4f 4f 22 29 29 29 29 29 0a | ..............(error."FOO"))))). |
| 2e8540 | 20 20 20 30 29 0a 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c | ...0)...(slime-sync-to-top-level |
| 2e8560 | 20 32 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 27 28 63 6c 2d 75 73 65 | .2)...(slime-eval-async.'(cl-use |
| 2e8580 | 72 3a 3a 71 75 75 78 29 29 0a 20 20 3b 3b 20 46 49 58 4d 45 3a 20 73 6c 69 6d 65 2d 77 61 69 74 | r::quux))...;;.FIXME:.slime-wait |
| 2e85a0 | 2d 63 6f 6e 64 69 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 69 | -condition.returns.immediately.i |
| 2e85c0 | 66 20 74 68 65 20 74 65 73 74 20 72 65 74 75 72 6e 73 20 74 72 75 65 0a 20 20 28 73 6c 69 6d 65 | f.the.test.returns.true...(slime |
| 2e85e0 | 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 43 68 65 63 6b 69 6e 67 20 74 68 61 74 20 44 | -wait-condition."Checking.that.D |
| 2e8600 | 65 62 75 67 67 65 72 20 64 6f 65 73 20 6e 6f 74 20 70 6f 70 75 70 22 0a 20 20 20 20 20 20 20 20 | ebugger.does.not.popup"......... |
| 2e8620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 | ................(lambda.()...... |
| 2e8640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 6c 64 62 2d | .....................(not.(sldb- |
| 2e8660 | 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | get-default-buffer)))........... |
| 2e8680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 29 0a 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 | ..............3)...(slime-sync-t |
| 2e86a0 | 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 | o-top-level.5))..(def-slime-test |
| 2e86c0 | 20 65 6e 64 2d 6f 66 2d 66 69 6c 65 0a 20 20 20 20 28 65 78 70 72 29 0a 20 20 20 20 22 53 69 67 | .end-of-file.....(expr)....."Sig |
| 2e86e0 | 6e 61 6c 6c 69 6e 67 20 45 4e 44 2d 4f 46 2d 46 49 4c 45 20 73 68 6f 75 6c 64 20 69 6e 76 6f 6b | nalling.END-OF-FILE.should.invok |
| 2e8700 | 65 20 74 68 65 20 64 65 62 75 67 67 65 72 2e 22 0a 20 20 20 20 27 28 28 28 63 6c 3a 65 72 72 6f | e.the.debugger.".....'(((cl:erro |
| 2e8720 | 72 20 27 63 6c 3a 65 6e 64 2d 6f 66 2d 66 69 6c 65 20 3a 73 74 72 65 61 6d 20 63 6c 3a 2a 73 74 | r.'cl:end-of-file.:stream.cl:*st |
| 2e8740 | 61 6e 64 61 72 64 2d 69 6e 70 75 74 2a 29 29 0a 20 20 20 20 20 20 28 28 63 6c 3a 72 65 61 64 2d | andard-input*)).......((cl:read- |
| 2e8760 | 66 72 6f 6d 2d 73 74 72 69 6e 67 20 22 22 29 29 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6e | from-string."")))...(when.(and.n |
| 2e8780 | 6f 6e 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 | oninteractive..............(equa |
| 2e87a0 | 6c 20 28 73 6c 69 6d 65 2d 6c 69 73 70 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2d 6e 61 6d | l.(slime-lisp-implementation-nam |
| 2e87c0 | 65 29 20 22 63 63 6c 22 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 73 6b 69 70 2d 74 65 73 74 20 | e)."ccl")).....(slime-skip-test. |
| 2e87e0 | 22 70 6f 74 65 6e 74 69 61 6c 20 64 65 61 64 6c 6f 63 6b 73 22 29 29 0a 20 20 28 6c 65 74 20 28 | "potential.deadlocks"))...(let.( |
| 2e8800 | 28 76 61 6c 75 65 20 28 73 6c 69 6d 65 2d 65 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (value.(slime-eval.............. |
| 2e8820 | 20 20 20 60 28 63 6c 3a 6c 65 74 20 28 28 63 6f 6e 64 69 74 69 6f 6e 20 6e 69 6c 29 29 0a 20 20 | ...`(cl:let.((condition.nil))... |
| 2e8840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 3a 77 69 74 68 2d | .......................(cl:with- |
| 2e8860 | 73 69 6d 70 6c 65 2d 72 65 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | simple-restart.................. |
| 2e8880 | 20 20 20 20 20 20 20 20 20 28 63 6c 3a 63 6f 6e 74 69 6e 75 65 20 22 63 6f 6e 74 69 6e 75 65 22 | .........(cl:continue."continue" |
| 2e88a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 3a | )...........................(cl: |
| 2e88c0 | 6c 65 74 20 28 28 63 6c 3a 2a 64 65 62 75 67 67 65 72 2d 68 6f 6f 6b 2a 0a 20 20 20 20 20 20 20 | let.((cl:*debugger-hook*........ |
| 2e88e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c | .............................(cl |
| 2e8900 | 3a 6c 61 6d 62 64 61 20 28 63 20 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :lambda.(c.h)................... |
| 2e8920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c | .............................(cl |
| 2e8940 | 3a 73 65 74 71 20 63 6f 6e 64 69 74 69 6f 6e 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | :setq.condition.c).............. |
| 2e8960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2e8980 | 20 20 28 63 6c 3a 63 6f 6e 74 69 6e 75 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(cl:continue)))).............. |
| 2e89a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 65 78 70 72 29 29 0a 20 20 20 | .....................,expr)).... |
| 2e89c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 3a 69 66 20 28 63 6c | ......................(cl:if.(cl |
| 2e89e0 | 3a 74 79 70 65 70 20 63 6f 6e 64 69 74 69 6f 6e 20 27 63 6c 3a 65 6e 64 2d 6f 66 2d 66 69 6c 65 | :typep.condition.'cl:end-of-file |
| 2e8a00 | 29 20 74 29 29 29 29 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 20 | ).t))))).....(slime-test-expect. |
| 2e8a20 | 22 44 65 62 75 67 67 65 72 20 69 6e 76 6f 6b 65 64 22 20 74 20 76 61 6c 75 65 29 29 29 0a 0a 28 | "Debugger.invoked".t.value)))..( |
| 2e8a40 | 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 69 6e 74 65 72 72 75 70 74 2d 61 74 2d 74 6f 70 6c | def-slime-test.interrupt-at-topl |
| 2e8a60 | 65 76 65 6c 0a 20 20 20 20 28 29 0a 20 20 20 20 22 4c 65 74 27 73 20 73 65 65 20 77 68 61 74 20 | evel.....()....."Let's.see.what. |
| 2e8a80 | 68 61 70 70 65 6e 73 20 69 66 20 77 65 20 73 65 6e 64 20 61 20 75 73 65 72 20 69 6e 74 65 72 72 | happens.if.we.send.a.user.interr |
| 2e8aa0 | 75 70 74 20 61 74 20 74 6f 70 6c 65 76 65 6c 2e 22 0a 20 20 20 20 27 28 28 29 29 0a 20 20 28 73 | upt.at.toplevel.".....'(())...(s |
| 2e8ac0 | 6c 69 6d 65 2d 63 68 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 75 6e 6c 65 73 73 20 | lime-check-top-level)...(unless. |
| 2e8ae0 | 28 61 6e 64 20 28 65 71 20 28 73 6c 69 6d 65 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2d 73 74 | (and.(eq.(slime-communication-st |
| 2e8b00 | 79 6c 65 29 20 3a 73 70 61 77 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 | yle).:spawn)................(not |
| 2e8b20 | 20 28 66 65 61 74 75 72 65 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 29 29 0a 20 20 20 20 28 73 | .(featurep.'slime-repl))).....(s |
| 2e8b40 | 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d | lime-interrupt).....(slime-wait- |
| 2e8b60 | 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 20 20 20 22 44 65 62 75 67 67 65 72 20 76 69 73 69 62 6c 65 | condition......"Debugger.visible |
| 2e8b80 | 22 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 | "......(lambda.()........(and.(s |
| 2e8ba0 | 6c 69 6d 65 2d 73 6c 64 62 2d 6c 65 76 65 6c 3d 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | lime-sldb-level=.1)............. |
| 2e8bc0 | 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 | (get-buffer-window.(sldb-get-def |
| 2e8be0 | 61 75 6c 74 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 35 29 0a 20 20 20 20 28 77 69 74 | ault-buffer))))......5).....(wit |
| 2e8c00 | 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 | h-current-buffer.(sldb-get-defau |
| 2e8c20 | 6c 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 73 6c 64 62 2d 71 75 69 74 29 29 0a 20 20 | lt-buffer).......(sldb-quit))... |
| 2e8c40 | 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 35 29 29 29 0a | ..(slime-sync-to-top-level.5))). |
| 2e8c60 | 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 69 6e 74 65 72 72 75 70 74 2d 69 6e 2d 64 65 | .(def-slime-test.interrupt-in-de |
| 2e8c80 | 62 75 67 67 65 72 20 28 69 6e 74 65 72 72 75 70 74 73 20 63 6f 6e 74 69 6e 75 65 73 29 0a 20 20 | bugger.(interrupts.continues)... |
| 2e8ca0 | 20 20 22 4c 65 74 27 73 20 73 65 65 20 77 68 61 74 20 68 61 70 70 65 6e 73 20 69 66 20 77 65 20 | .."Let's.see.what.happens.if.we. |
| 2e8cc0 | 69 6e 74 65 72 72 75 70 74 20 74 68 65 20 64 65 62 75 67 67 65 72 2e 0a 49 4e 54 45 52 52 55 50 | interrupt.the.debugger..INTERRUP |
| 2e8ce0 | 54 53 20 2e 2e 2e 20 6e 75 6d 62 65 72 20 6f 66 20 6e 65 73 74 65 64 20 69 6e 74 65 72 72 75 70 | TS.....number.of.nested.interrup |
| 2e8d00 | 74 73 0a 43 4f 4e 54 49 4e 55 45 53 20 20 2e 2e 2e 20 68 6f 77 20 6f 66 74 65 6e 20 74 68 65 20 | ts.CONTINUES......how.often.the. |
| 2e8d20 | 63 6f 6e 74 69 6e 75 65 20 72 65 73 74 61 72 74 20 73 68 6f 75 6c 64 20 62 65 20 69 6e 76 6f 6b | continue.restart.should.be.invok |
| 2e8d40 | 65 64 22 0a 20 20 20 20 27 28 28 31 20 30 29 20 28 32 20 31 29 20 28 34 20 32 29 29 0a 20 20 28 | ed".....'((1.0).(2.1).(4.2))...( |
| 2e8d60 | 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 4e 6f 20 64 65 62 75 67 67 65 72 22 20 28 6e 6f 74 20 28 | slime-check."No.debugger".(not.( |
| 2e8d80 | 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 28 77 68 | sldb-get-default-buffer)))...(wh |
| 2e8da0 | 65 6e 20 28 61 6e 64 20 28 65 71 20 28 73 6c 69 6d 65 2d 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e | en.(and.(eq.(slime-communication |
| 2e8dc0 | 2d 73 74 79 6c 65 29 20 3a 73 70 61 77 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f | -style).:spawn)..............(no |
| 2e8de0 | 74 20 28 66 65 61 74 75 72 65 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 29 29 0a 20 20 20 20 28 | t.(featurep.'slime-repl))).....( |
| 2e8e00 | 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 6e 63 20 27 28 73 77 61 6e 6b 3a 3a 77 69 74 68 6f 75 | slime-eval-async.'(swank::withou |
| 2e8e20 | 74 2d 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-slime-interrupts.............. |
| 2e8e40 | 20 20 20 20 20 20 20 20 20 20 20 28 73 77 61 6e 6b 3a 3a 72 65 63 65 69 76 65 29 29 29 0a 20 20 | ...........(swank::receive)))... |
| 2e8e60 | 20 20 28 73 69 74 2d 66 6f 72 20 30 2e 32 29 29 0a 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 69 | ..(sit-for.0.2))...(dotimes.(i.i |
| 2e8e80 | 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 69 6e 74 65 72 72 75 70 74 29 | nterrupts).....(slime-interrupt) |
| 2e8ea0 | 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 65 76 65 6c 20 28 31 2b 20 69 29 29 29 0a 20 20 20 20 20 | .....(let.((level.(1+.i)))...... |
| 2e8ec0 | 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 66 6f 72 6d 61 74 20 22 | .(slime-wait-condition.(format." |
| 2e8ee0 | 44 65 62 75 67 20 6c 65 76 65 6c 20 25 64 20 72 65 61 63 68 65 6e 64 22 20 6c 65 76 65 6c 29 0a | Debug.level.%d.reachend".level). |
| 2e8f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d | ............................(lam |
| 2e8f20 | 62 64 61 20 28 29 20 28 65 71 75 61 6c 20 28 73 6c 64 62 2d 6c 65 76 65 6c 29 20 6c 65 76 65 6c | bda.().(equal.(sldb-level).level |
| 2e8f40 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 | )).............................2 |
| 2e8f60 | 29 29 29 0a 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 63 6f 6e 74 69 6e 75 65 73 29 0a 20 20 20 | )))...(dotimes.(i.continues).... |
| 2e8f80 | 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 64 62 2d 67 65 74 2d | .(with-current-buffer.(sldb-get- |
| 2e8fa0 | 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 73 6c 64 62 2d 63 6f 6e 74 | default-buffer).......(sldb-cont |
| 2e8fc0 | 69 6e 75 65 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 65 76 65 6c 20 28 2d 20 69 6e 74 65 72 | inue)).....(let.((level.(-.inter |
| 2e8fe0 | 72 75 70 74 73 20 28 31 2b 20 69 29 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 | rupts.(1+.i)))).......(slime-wai |
| 2e9000 | 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 66 6f 72 6d 61 74 20 22 52 65 74 75 72 6e 20 74 6f 20 64 | t-condition.(format."Return.to.d |
| 2e9020 | 65 62 75 67 20 6c 65 76 65 6c 20 25 64 22 20 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | ebug.level.%d".level)........... |
| 2e9040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 65 71 | ..................(lambda.().(eq |
| 2e9060 | 75 61 6c 20 28 73 6c 64 62 2d 6c 65 76 65 6c 29 20 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 | ual.(sldb-level).level))........ |
| 2e9080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 29 29 29 0a 20 20 28 77 69 74 | .....................2)))...(wit |
| 2e90a0 | 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 | h-current-buffer.(sldb-get-defau |
| 2e90c0 | 6c 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 73 6c 64 62 2d 71 75 69 74 29 29 0a 20 20 28 73 | lt-buffer).....(sldb-quit))...(s |
| 2e90e0 | 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 31 29 29 0a 0a 28 64 65 66 | lime-sync-to-top-level.1))..(def |
| 2e9100 | 2d 73 6c 69 6d 65 2d 74 65 73 74 20 66 6c 6f 77 2d 63 6f 6e 74 72 6f 6c 0a 20 20 20 20 28 6e 20 | -slime-test.flow-control.....(n. |
| 2e9120 | 64 65 6c 61 79 20 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 22 4c 65 74 20 4c 69 73 70 20 | delay.interrupts)....."Let.Lisp. |
| 2e9140 | 70 72 6f 64 75 63 65 20 6f 75 74 70 75 74 20 66 61 73 74 65 72 20 74 68 61 6e 20 45 6d 61 63 73 | produce.output.faster.than.Emacs |
| 2e9160 | 20 63 61 6e 20 63 6f 6e 73 75 6d 65 20 69 74 2e 22 0a 20 20 20 20 60 28 28 34 30 30 20 30 2e 30 | .can.consume.it.".....`((400.0.0 |
| 2e9180 | 33 20 33 29 29 0a 20 20 28 77 68 65 6e 20 6e 6f 6e 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 | 3.3))...(when.noninteractive.... |
| 2e91a0 | 20 28 73 6c 69 6d 65 2d 73 6b 69 70 2d 74 65 73 74 20 22 74 65 73 74 20 69 73 20 63 75 72 72 65 | .(slime-skip-test."test.is.curre |
| 2e91c0 | 6e 74 6c 79 20 75 6e 73 74 61 62 6c 65 22 29 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 | ntly.unstable"))...(slime-check. |
| 2e91e0 | 22 4e 6f 20 64 65 62 75 67 67 65 72 22 20 28 6e 6f 74 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 | "No.debugger".(not.(sldb-get-def |
| 2e9200 | 61 75 6c 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 2d 61 73 79 | ault-buffer)))...(slime-eval-asy |
| 2e9220 | 6e 63 20 60 28 73 77 61 6e 6b 3a 66 6c 6f 77 2d 63 6f 6e 74 72 6f 6c 2d 74 65 73 74 20 2c 6e 20 | nc.`(swank:flow-control-test.,n. |
| 2e9240 | 2c 64 65 6c 61 79 29 29 0a 20 20 28 73 6c 65 65 70 2d 66 6f 72 20 30 2e 32 29 0a 20 20 28 64 6f | ,delay))...(sleep-for.0.2)...(do |
| 2e9260 | 74 69 6d 65 73 20 28 5f 69 20 69 6e 74 65 72 72 75 70 74 73 29 0a 20 20 20 20 28 73 6c 69 6d 65 | times.(_i.interrupts).....(slime |
| 2e9280 | 2d 69 6e 74 65 72 72 75 70 74 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 | -interrupt).....(slime-wait-cond |
| 2e92a0 | 69 74 69 6f 6e 20 22 49 6e 20 64 65 62 75 67 67 65 72 22 20 28 6c 61 6d 62 64 61 20 28 29 20 28 | ition."In.debugger".(lambda.().( |
| 2e92c0 | 73 6c 69 6d 65 2d 73 6c 64 62 2d 6c 65 76 65 6c 3d 20 31 29 29 20 35 29 0a 20 20 20 20 28 73 6c | slime-sldb-level=.1)).5).....(sl |
| 2e92e0 | 69 6d 65 2d 63 68 65 63 6b 20 22 49 6e 20 64 65 62 75 67 67 65 72 22 20 28 73 6c 69 6d 65 2d 73 | ime-check."In.debugger".(slime-s |
| 2e9300 | 6c 64 62 2d 6c 65 76 65 6c 3d 20 31 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 | ldb-level=.1)).....(with-current |
| 2e9320 | 2d 62 75 66 66 65 72 20 28 73 6c 64 62 2d 67 65 74 2d 64 65 66 61 75 6c 74 2d 62 75 66 66 65 72 | -buffer.(sldb-get-default-buffer |
| 2e9340 | 29 0a 20 20 20 20 20 20 28 73 6c 64 62 2d 63 6f 6e 74 69 6e 75 65 29 29 0a 20 20 20 20 28 73 6c | ).......(sldb-continue)).....(sl |
| 2e9360 | 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 4e 6f 20 64 65 62 75 67 67 65 72 22 | ime-wait-condition."No.debugger" |
| 2e9380 | 20 28 6c 61 6d 62 64 61 20 28 29 20 28 73 6c 69 6d 65 2d 73 6c 64 62 2d 6c 65 76 65 6c 3d 20 6e | .(lambda.().(slime-sldb-level=.n |
| 2e93a0 | 69 6c 29 29 20 33 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 22 44 65 62 75 67 67 | il)).3).....(slime-check."Debugg |
| 2e93c0 | 65 72 20 63 6c 6f 73 65 64 22 20 28 73 6c 69 6d 65 2d 73 6c 64 62 2d 6c 65 76 65 6c 3d 20 6e 69 | er.closed".(slime-sldb-level=.ni |
| 2e93e0 | 6c 29 29 29 0a 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 | l)))...(slime-sync-to-top-level. |
| 2e9400 | 38 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 73 62 63 6c 2d 77 6f 72 6c 64 2d | 8))..(def-slime-test.sbcl-world- |
| 2e9420 | 6c 6f 63 6b 0a 20 20 20 20 28 6e 20 64 65 6c 61 79 29 0a 20 20 20 20 22 50 72 69 6e 74 20 73 6f | lock.....(n.delay)....."Print.so |
| 2e9440 | 6d 65 74 68 69 6e 67 20 66 72 6f 6d 20 2a 4d 41 43 52 4f 45 58 50 41 4e 44 2d 48 4f 4f 4b 2a 2e | mething.from.*MACROEXPAND-HOOK*. |
| 2e9460 | 0a 49 6e 20 53 42 43 4c 2c 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 67 72 61 62 73 20 61 20 6c | .In.SBCL,.the.compiler.grabs.a.l |
| 2e9480 | 6f 63 6b 20 77 68 69 63 68 20 63 61 6e 20 62 65 20 70 72 6f 62 6c 65 6d 61 74 69 63 20 62 65 63 | ock.which.can.be.problematic.bec |
| 2e94a0 | 61 75 73 65 0a 6e 6f 20 6d 65 74 68 6f 64 20 64 69 73 70 61 74 63 68 20 63 6f 64 65 20 63 61 6e | ause.no.method.dispatch.code.can |
| 2e94c0 | 20 62 65 20 67 65 6e 65 72 61 74 65 64 20 66 6f 72 20 6f 74 68 65 72 20 74 68 72 65 61 64 73 2e | .be.generated.for.other.threads. |
| 2e94e0 | 0a 54 68 69 73 20 74 65 73 74 20 77 69 6c 6c 20 66 61 69 6c 20 6d 6f 72 65 20 6c 69 6b 65 6c 79 | .This.test.will.fail.more.likely |
| 2e9500 | 20 62 65 66 6f 72 65 20 64 69 73 70 61 74 63 68 20 63 61 63 68 65 73 20 61 72 65 20 77 61 72 6d | .before.dispatch.caches.are.warm |
| 2e9520 | 65 64 20 75 70 2e 22 0a 20 20 20 20 27 28 28 31 30 20 30 2e 30 33 29 0a 20 20 20 20 20 20 3b 3b | ed.up.".....'((10.0.03).......;; |
| 2e9540 | 28 28 63 6c 3a 2b 20 73 77 61 6e 6b 3a 3a 73 65 6e 64 2d 63 6f 75 6e 74 65 72 2d 6c 69 6d 69 74 | ((cl:+.swank::send-counter-limit |
| 2e9560 | 20 31 30 29 20 30 2e 30 33 29 0a 20 20 20 20 20 20 29 0a 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 | .10).0.03).......)...(slime-test |
| 2e9580 | 2d 65 78 70 65 63 74 20 22 6e 6f 20 65 72 72 6f 72 22 0a 09 09 20 20 20 20 20 31 32 33 0a 09 09 | -expect."no.error"........123... |
| 2e95a0 | 20 20 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 0a 09 09 20 20 20 20 20 20 60 28 63 6c 3a 6c 65 | .....(slime-eval.........`(cl:le |
| 2e95c0 | 74 20 28 28 63 6c 3a 2a 6d 61 63 72 6f 65 78 70 61 6e 64 2d 68 6f 6f 6b 2a 0a 09 09 09 09 20 28 | t.((cl:*macroexpand-hook*......( |
| 2e95e0 | 63 6c 3a 6c 61 6d 62 64 61 20 28 66 75 6e 20 66 6f 72 6d 20 65 6e 76 29 0a 09 09 09 09 09 20 20 | cl:lambda.(fun.form.env)........ |
| 2e9600 | 20 20 28 73 77 61 6e 6b 3a 66 6c 6f 77 2d 63 6f 6e 74 72 6f 6c 2d 74 65 73 74 20 2c 6e 20 2c 64 | ..(swank:flow-control-test.,n.,d |
| 2e9620 | 65 6c 61 79 29 0a 09 09 09 09 09 20 20 20 20 28 63 6c 3a 66 75 6e 63 61 6c 6c 20 66 75 6e 20 66 | elay)..........(cl:funcall.fun.f |
| 2e9640 | 6f 72 6d 20 65 6e 76 29 29 29 29 0a 09 09 09 20 20 20 20 20 20 20 28 63 6c 3a 65 76 61 6c 20 27 | orm.env))))...........(cl:eval.' |
| 2e9660 | 28 63 6c 3a 6d 61 63 72 6f 6c 65 74 20 28 28 66 6f 6f 20 28 29 20 31 32 33 29 29 0a 09 09 09 09 | (cl:macrolet.((foo.().123))..... |
| 2e9680 | 09 20 20 20 28 66 6f 6f 29 29 29 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 | ....(foo)))))))..(def-slime-test |
| 2e96a0 | 20 28 64 69 73 63 6f 6e 6e 65 63 74 2d 6f 6e 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 3a 73 74 | .(disconnect-one-connection.(:st |
| 2e96c0 | 79 6c 65 20 3a 73 70 61 77 6e 29 29 20 28 29 0a 20 20 20 20 22 60 73 6c 69 6d 65 2d 64 69 73 63 | yle.:spawn)).()....."`slime-disc |
| 2e96e0 | 6f 6e 6e 65 63 74 27 20 73 68 6f 75 6c 64 20 64 69 73 63 6f 6e 6e 65 63 74 20 6f 6e 6c 79 20 74 | onnect'.should.disconnect.only.t |
| 2e9700 | 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 22 0a 20 20 20 20 27 28 28 29 29 | he.current.connection".....'(()) |
| 2e9720 | 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6f 75 6e 74 20 28 6c 65 6e 67 | ...(let.((connection-count.(leng |
| 2e9740 | 74 68 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 73 29 29 0a 20 20 20 20 20 20 20 | th.slime-net-processes))........ |
| 2e9760 | 20 28 6f 6c 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 6c 69 6d 65 2d 64 65 66 61 75 6c 74 2d 63 | .(old-connection.slime-default-c |
| 2e9780 | 6f 6e 6e 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 | onnection).........(slime-connec |
| 2e97a0 | 74 65 64 2d 68 6f 6f 6b 20 6e 69 6c 29 29 0a 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 | ted-hook.nil)).....(unwind-prote |
| 2e97c0 | 63 74 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 6c 69 6d 65 2d 64 69 73 70 61 74 63 | ct..........(let.((slime-dispatc |
| 2e97e0 | 68 69 6e 67 2d 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hing-connection................. |
| 2e9800 | 28 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 20 22 6c 6f 63 61 6c 68 6f 73 74 22 0a 20 20 20 20 20 | (slime-connect."localhost"...... |
| 2e9820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 65 72 | ..........................;;.Her |
| 2e9840 | 65 20 77 65 20 61 73 73 75 6d 65 20 74 68 61 74 20 74 68 65 20 72 65 71 75 65 73 74 20 77 69 6c | e.we.assume.that.the.request.wil |
| 2e9860 | 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l............................... |
| 2e9880 | 20 3b 3b 20 62 65 20 65 76 61 6c 75 61 74 65 64 20 69 6e 20 69 74 73 20 6f 77 6e 20 74 68 72 65 | .;;.be.evaluated.in.its.own.thre |
| 2e98a0 | 61 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ad.............................. |
| 2e98c0 | 20 20 20 28 73 6c 69 6d 65 2d 65 76 61 6c 20 60 28 73 77 61 6e 6b 3a 63 72 65 61 74 65 2d 73 65 | ...(slime-eval.`(swank:create-se |
| 2e98e0 | 72 76 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rver............................ |
| 2e9900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 6f 72 74 20 30 20 3b 20 75 73 65 20 | ..................:port.0.;.use. |
| 2e9920 | 72 61 6e 64 6f 6d 20 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | random.port..................... |
| 2e9940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 74 79 6c 65 20 | .........................:style. |
| 2e9960 | 3a 73 70 61 77 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :spawn.......................... |
| 2e9980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 6f 6e 74 2d 63 6c 6f 73 65 20 | ....................:dont-close. |
| 2e99a0 | 6e 69 6c 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 79 6e 63 2d | nil)))))............(slime-sync- |
| 2e99c0 | 74 6f 2d 74 6f 70 2d 6c 65 76 65 6c 20 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d | to-top-level.3)............(slim |
| 2e99e0 | 65 2d 64 69 73 63 6f 6e 6e 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d | e-disconnect)............(slime- |
| 2e9a00 | 74 65 73 74 2d 65 78 70 65 63 74 20 22 4e 75 6d 62 65 72 20 6f 66 20 63 6f 6e 6e 65 63 74 69 6f | test-expect."Number.of.connectio |
| 2e9a20 | 6e 73 20 6d 75 73 74 20 72 65 6d 61 6e 65 20 74 68 65 20 73 61 6d 65 22 0a 20 20 20 20 20 20 20 | ns.must.remane.the.same"........ |
| 2e9a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f | .......................connectio |
| 2e9a60 | 6e 2d 63 6f 75 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n-count......................... |
| 2e9a80 | 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 73 6c 69 6d 65 2d 6e 65 74 2d 70 72 6f 63 65 73 73 65 | ......(length.slime-net-processe |
| 2e9aa0 | 73 29 29 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 6c 65 63 74 2d 63 6f 6e 6e 65 63 74 | s))).......(slime-select-connect |
| 2e9ac0 | 69 6f 6e 20 6f 6c 64 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 | ion.old-connection))))..(def-sli |
| 2e9ae0 | 6d 65 2d 74 65 73 74 20 64 69 73 63 6f 6e 6e 65 63 74 2d 61 6e 64 2d 72 65 63 6f 6e 6e 65 63 74 | me-test.disconnect-and-reconnect |
| 2e9b00 | 0a 20 20 20 20 28 29 0a 20 20 20 20 22 43 6c 6f 73 65 20 74 68 65 20 63 6f 6e 6e 65 74 69 6f 6e | .....()....."Close.the.connetion |
| 2e9b20 | 2e 0a 43 6f 6e 66 69 72 6d 20 74 68 61 74 20 74 68 65 20 73 75 62 70 72 6f 63 65 73 73 20 63 6f | ..Confirm.that.the.subprocess.co |
| 2e9b40 | 6e 74 69 6e 75 65 73 20 67 72 61 63 65 66 75 6c 6c 79 2e 0a 52 65 63 6f 6e 6e 65 63 74 20 61 66 | ntinues.gracefully..Reconnect.af |
| 2e9b60 | 74 65 72 77 61 72 64 73 2e 22 0a 20 20 20 20 27 28 28 29 29 0a 20 20 28 73 6c 69 6d 65 2d 63 68 | terwards.".....'(())...(slime-ch |
| 2e9b80 | 65 63 6b 2d 74 6f 70 2d 6c 65 76 65 6c 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 20 28 73 6c 69 6d | eck-top-level)...(let*.((c.(slim |
| 2e9ba0 | 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 20 28 73 6c 69 6d | e-connection))..........(p.(slim |
| 2e9bc0 | 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 20 63 29 29 29 0a 20 20 20 20 28 77 69 74 | e-inferior-process.c))).....(wit |
| 2e9be0 | 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 | h-current-buffer.(process-buffer |
| 2e9c00 | 20 70 29 0a 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 64 | .p).......(erase-buffer)).....(d |
| 2e9c20 | 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 20 63 29 0a 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 | elete-process.c).....(cl-assert. |
| 2e9c40 | 28 65 71 75 61 6c 20 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 63 29 20 27 63 6c 6f 73 65 | (equal.(process-status.c).'close |
| 2e9c60 | 64 29 20 6e 69 6c 20 22 43 6f 6e 6e 65 63 74 69 6f 6e 20 6e 6f 74 20 63 6c 6f 73 65 64 22 29 0a | d).nil."Connection.not.closed"). |
| 2e9c80 | 20 20 20 20 28 61 63 63 65 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20 6e 69 6c 20 30 | ....(accept-process-output.nil.0 |
| 2e9ca0 | 2e 31 29 0a 20 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 65 71 75 61 6c 20 28 70 72 6f 63 65 | .1).....(cl-assert.(equal.(proce |
| 2e9cc0 | 73 73 2d 73 74 61 74 75 73 20 70 29 20 27 72 75 6e 29 20 6e 69 6c 20 22 53 75 62 70 72 6f 63 65 | ss-status.p).'run).nil."Subproce |
| 2e9ce0 | 73 73 20 6e 6f 74 20 72 75 6e 6e 69 6e 67 22 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 | ss.not.running").....(with-curre |
| 2e9d00 | 6e 74 2d 62 75 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 29 0a 20 20 20 | nt-buffer.(process-buffer.p).... |
| 2e9d20 | 20 20 20 28 63 6c 2d 61 73 73 65 72 74 20 28 3c 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 20 35 | ...(cl-assert.(<.(buffer-size).5 |
| 2e9d40 | 30 30 29 20 6e 69 6c 20 22 55 6e 75 73 75 61 6c 20 6f 75 74 70 75 74 22 29 29 0a 20 20 20 20 28 | 00).nil."Unusual.output")).....( |
| 2e9d60 | 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 63 6f 6e 6e 65 63 74 20 70 20 28 73 6c 69 6d 65 2d | slime-inferior-connect.p.(slime- |
| 2e9d80 | 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 61 72 67 73 20 70 29 29 0a 20 20 20 20 28 6c 65 74 20 | inferior-lisp-args.p)).....(let. |
| 2e9da0 | 28 28 68 6f 6f 6b 20 6e 69 6c 29 20 28 70 20 70 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 68 | ((hook.nil).(p.p)).......(setq.h |
| 2e9dc0 | 6f 6f 6b 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ook.(lambda.().................. |
| 2e9de0 | 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 78 70 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 | ..(slime-test-expect............ |
| 2e9e00 | 20 20 20 20 20 20 20 20 20 22 57 65 20 61 72 65 20 63 6f 6e 6e 65 63 74 65 64 20 61 67 61 69 6e | ........."We.are.connected.again |
| 2e9e20 | 22 20 70 20 28 73 6c 69 6d 65 2d 69 6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 29 29 0a 20 20 | ".p.(slime-inferior-process))... |
| 2e9e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 73 | .................(remove-hook.'s |
| 2e9e60 | 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 20 68 6f 6f 6b 29 29 29 0a 20 20 20 20 | lime-connected-hook.hook)))..... |
| 2e9e80 | 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f | ..(add-hook.'slime-connected-hoo |
| 2e9ea0 | 6b 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 | k.hook).......(slime-wait-condit |
| 2e9ec0 | 69 6f 6e 20 22 4c 69 73 70 20 72 65 73 74 61 72 74 65 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 | ion."Lisp.restarted"............ |
| 2e9ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 | .................(lambda.()..... |
| 2e9f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 | ..........................(not.( |
| 2e9f20 | 6d 65 6d 62 65 72 20 68 6f 6f 6b 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b | member.hook.slime-connected-hook |
| 2e9f40 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )))............................. |
| 2e9f60 | 35 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 73 6c 69 6d 65 2d 6d 6f 64 | 5))))..(def-slime-test.slime-mod |
| 2e9f80 | 65 6c 69 6e 65 2d 73 74 72 69 6e 67 2d 74 65 73 74 0a 20 20 28 65 78 70 65 63 74 65 64 20 63 75 | eline-string-test...(expected.cu |
| 2e9fa0 | 72 72 65 6e 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 | rrent-connection.buffer-connecti |
| 2e9fc0 | 6f 6e 0a 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 20 63 75 72 72 65 6e 74 2d 70 61 | on....connection-name.current-pa |
| 2e9fe0 | 63 6b 61 67 65 20 6d 6f 64 65 6c 69 6e 65 2d 73 74 61 74 65 2d 73 74 72 69 6e 67 29 0a 20 20 22 | ckage.modeline-state-string)..." |
| 2ea000 | 73 6c 69 6d 65 2d 6d 6f 64 65 6c 69 6e 65 2d 73 74 72 69 6e 67 20 72 65 74 75 72 6e 73 20 73 74 | slime-modeline-string.returns.st |
| 2ea020 | 72 69 6e 67 20 69 6e 20 70 72 6f 70 65 72 20 66 6f 72 6d 61 74 2e 22 0a 20 20 27 28 28 22 20 53 | ring.in.proper.format."...'((".S |
| 2ea040 | 6c 69 6d 65 22 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 29 0a 20 20 20 20 28 | lime".nil.nil.nil.nil.nil).....( |
| 2ea060 | 22 20 7b 73 62 63 6c 20 6c 6f 63 61 6c 2d 63 6f 6e 6e 2d 31 20 73 74 61 74 65 7d 22 20 27 6d 6f | ".{sbcl.local-conn-1.state}".'mo |
| 2ea080 | 63 6b 65 64 2d 63 6f 6e 6e 20 27 6d 6f 63 6b 65 64 2d 6c 6f 63 61 6c 2d 63 6f 6e 6e 0a 20 20 20 | cked-conn.'mocked-local-conn.... |
| 2ea0a0 | 20 20 22 6c 6f 63 61 6c 2d 63 6f 6e 6e 2d 31 22 20 22 73 62 63 6c 22 20 22 20 73 74 61 74 65 22 | .."local-conn-1"."sbcl".".state" |
| 2ea0c0 | 29 0a 20 20 20 20 28 22 20 5b 73 62 63 6c 20 63 6f 6e 6e 2d 31 20 73 74 61 74 65 5d 22 20 27 6d | ).....(".[sbcl.conn-1.state]".'m |
| 2ea0e0 | 6f 63 6b 65 64 2d 63 6f 6e 6e 20 6e 69 6c 20 22 63 6f 6e 6e 2d 31 22 20 22 73 62 63 6c 22 20 22 | ocked-conn.nil."conn-1"."sbcl"." |
| 2ea100 | 20 73 74 61 74 65 22 29 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 | .state"))...(with-temp-buffer... |
| 2ea120 | 20 20 28 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 6c 69 6d 65 2d 63 68 65 63 6b 20 28 | ..(lisp-mode).....(slime-check.( |
| 2ea140 | 22 73 6c 69 6d 65 2d 6d 6f 64 65 6c 69 6e 65 2d 73 74 72 69 6e 67 20 72 65 74 75 72 6e 73 20 5c | "slime-modeline-string.returns.\ |
| 2ea160 | 22 25 73 5c 22 22 20 65 78 70 65 63 74 65 64 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 65 74 66 20 | "%s\"".expected).......(cl-letf. |
| 2ea180 | 28 28 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 63 75 72 72 65 6e | (((symbol-function.'slime-curren |
| 2ea1a0 | 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 09 09 20 28 6c 61 6d 62 64 61 20 28 29 20 28 6f 72 20 | t-connection)....(lambda.().(or. |
| 2ea1c0 | 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 75 72 72 65 6e 74 2d 63 6f 6e 6e 65 63 | buffer-connection.current-connec |
| 2ea1e0 | 74 69 6f 6e 29 29 29 0a 09 09 28 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 | tion)))...((symbol-function.'sli |
| 2ea200 | 6d 65 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 29 20 28 6c 61 6d 62 64 61 20 28 5f 29 20 | me-connection-name).(lambda.(_). |
| 2ea220 | 63 6f 6e 6e 65 63 74 69 6f 6e 2d 6e 61 6d 65 29 29 0a 09 09 28 28 73 79 6d 62 6f 6c 2d 66 75 6e | connection-name))...((symbol-fun |
| 2ea240 | 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 20 28 6c | ction.'slime-current-package).(l |
| 2ea260 | 61 6d 62 64 61 20 28 29 20 63 75 72 72 65 6e 74 2d 70 61 63 6b 61 67 65 29 29 0a 09 09 28 28 73 | ambda.().current-package))...((s |
| 2ea280 | 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 73 6c 69 6d 65 2d 6d 6f 64 65 6c 69 6e 65 2d 73 | ymbol-function.'slime-modeline-s |
| 2ea2a0 | 74 61 74 65 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | tate-string)..................(l |
| 2ea2c0 | 61 6d 62 64 61 20 28 5f 29 20 6d 6f 64 65 6c 69 6e 65 2d 73 74 61 74 65 2d 73 74 72 69 6e 67 29 | ambda.(_).modeline-state-string) |
| 2ea2e0 | 29 29 0a 09 28 73 65 74 71 20 73 6c 69 6d 65 2d 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f | ))..(setq.slime-buffer-connectio |
| 2ea300 | 6e 20 62 75 66 66 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 09 28 65 71 75 61 6c 20 65 78 70 | n.buffer-connection)..(equal.exp |
| 2ea320 | 65 63 74 65 64 20 28 73 6c 69 6d 65 2d 6d 6f 64 65 6c 69 6e 65 2d 73 74 72 69 6e 67 29 29 29 29 | ected.(slime-modeline-string)))) |
| 2ea340 | 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 53 4c 49 4d 45 2d 6c 6f 61 64 69 6e 67 20 74 65 73 74 73 20 74 | ))....;;;;.SLIME-loading.tests.t |
| 2ea360 | 68 61 74 20 6c 61 75 6e 63 68 20 73 65 70 61 72 61 74 65 20 45 6d 61 63 73 65 6e 0a 3b 3b 3b 3b | hat.launch.separate.Emacsen.;;;; |
| 2ea380 | 0a 28 63 6c 2d 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 65 73 74 2d 72 65 63 69 70 65 2d 74 65 73 | .(cl-defun.slime-test-recipe-tes |
| 2ea3a0 | 74 2d 66 6f 72 20 28 26 6b 65 79 20 70 72 65 66 6c 69 67 68 74 0a 20 20 20 20 20 20 20 20 20 20 | t-for.(&key.preflight........... |
| 2ea3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2ea3e0 | 20 74 61 6b 65 6f 66 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .takeoff........................ |
| 2ea400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 6e 64 69 6e 67 29 0a 20 20 28 | ....................landing)...( |
| 2ea420 | 6c 65 74 20 28 28 73 75 63 63 65 73 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 74 65 73 74 | let.((success.nil).........(test |
| 2ea440 | 2d 66 69 6c 65 20 28 6d 61 6b 65 2d 74 65 6d 70 2d 66 69 6c 65 20 22 73 6c 69 6d 65 2d 72 65 63 | -file.(make-temp-file."slime-rec |
| 2ea460 | 69 70 65 2d 22 20 6e 69 6c 20 22 2e 65 6c 22 29 29 0a 20 20 20 20 20 20 20 20 28 74 65 73 74 2d | ipe-".nil.".el")).........(test- |
| 2ea480 | 66 6f 72 6d 73 0a 20 20 20 20 20 20 20 20 20 60 28 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 | forms..........`((require.'cl-li |
| 2ea4a0 | 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 61 62 65 6c 73 0a 20 20 20 20 20 20 20 | b)............(cl-labels........ |
| 2ea4c0 | 20 20 20 20 20 20 20 20 28 28 64 69 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ........((die..................( |
| 2ea4e0 | 72 65 61 73 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 6d 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 | reason.&optional.more).......... |
| 2ea500 | 20 20 20 20 20 20 20 20 28 70 72 69 6e 63 20 72 65 61 73 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | ........(princ.reason).......... |
| 2ea520 | 20 20 20 20 20 20 20 20 28 74 65 72 70 72 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(terpri)................ |
| 2ea540 | 20 20 28 61 6e 64 20 6d 6f 72 65 20 28 70 70 20 6d 6f 72 65 29 29 0a 20 20 20 20 20 20 20 20 20 | ..(and.more.(pp.more)).......... |
| 2ea560 | 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 65 6d 61 63 73 20 32 35 34 29 29 29 0a 20 20 20 20 20 | ........(kill-emacs.254)))...... |
| 2ea580 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 65 72 72 0a 20 20 20 20 | ........(condition-case.err..... |
| 2ea5a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 2c 40 70 72 65 66 6c 69 67 68 74 29 | .............(progn.,@preflight) |
| 2ea5c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 | ................(error.......... |
| 2ea5e0 | 20 20 20 20 20 20 20 28 64 69 65 20 22 55 6e 65 78 70 65 63 74 65 64 20 65 72 72 6f 72 20 72 75 | .......(die."Unexpected.error.ru |
| 2ea600 | 6e 6e 69 6e 67 20 70 72 65 66 6c 69 67 68 74 20 66 6f 72 6d 73 22 0a 20 20 20 20 20 20 20 20 20 | nning.preflight.forms".......... |
| 2ea620 | 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............err))).............. |
| 2ea640 | 28 61 64 64 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 6c 69 6d 65 2d 63 | (add-hook...............'slime-c |
| 2ea660 | 6f 6e 6e 65 63 74 65 64 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 28 6c | onnected-hook...............#'(l |
| 2ea680 | 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 | ambda.()...................(cond |
| 2ea6a0 | 69 74 69 6f 6e 2d 63 61 73 65 20 65 72 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ition-case.err.................. |
| 2ea6c0 | 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(progn..................... |
| 2ea6e0 | 20 20 20 20 2c 40 6c 61 6e 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....,@landing................... |
| 2ea700 | 20 20 20 20 20 20 28 6b 69 6c 6c 2d 65 6d 61 63 73 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ......(kill-emacs.0))........... |
| 2ea720 | 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........(error................ |
| 2ea740 | 20 20 20 20 20 20 28 64 69 65 20 22 55 6e 65 78 70 65 63 74 65 64 20 65 72 72 6f 72 20 72 75 6e | ......(die."Unexpected.error.run |
| 2ea760 | 6e 69 6e 67 20 6c 61 6e 64 69 6e 67 20 66 6f 72 6d 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ning.landing.forms"............. |
| 2ea780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ..............err))))........... |
| 2ea7a0 | 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 | ....t)..............(condition-c |
| 2ea7c0 | 61 73 65 20 65 72 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a | ase.err..................(progn. |
| 2ea7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 74 61 6b 65 6f 66 66 0a 20 20 20 | ...................,@takeoff.... |
| 2ea800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 77 68 65 6e 20 28 6e 75 6c 6c 20 6c 61 6e | ................,(when.(null.lan |
| 2ea820 | 64 69 6e 67 29 20 27 28 6b 69 6c 6c 2d 65 6d 61 63 73 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 | ding).'(kill-emacs.0)))......... |
| 2ea840 | 20 20 20 20 20 20 20 28 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | .......(error.................(d |
| 2ea860 | 69 65 20 22 55 6e 65 78 70 65 63 74 65 64 20 65 72 72 6f 72 20 72 75 6e 6e 69 6e 67 20 74 61 6b | ie."Unexpected.error.running.tak |
| 2ea880 | 65 6f 66 66 20 66 6f 72 6d 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eoff.forms"..................... |
| 2ea8a0 | 20 65 72 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 69 6d 65 6f | .err)))..............(with-timeo |
| 2ea8c0 | 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 36 30 0a 20 20 20 20 20 20 20 20 | ut..................(60......... |
| 2ea8e0 | 20 20 20 20 20 20 20 20 20 20 28 64 69 65 20 22 54 69 6d 65 6f 75 74 20 77 61 69 74 69 6e 67 20 | ..........(die."Timeout.waiting. |
| 2ea900 | 66 6f 72 20 72 65 63 69 70 65 20 74 65 73 74 20 74 6f 20 66 69 6e 69 73 68 2e 22 0a 20 20 20 20 | for.recipe.test.to.finish."..... |
| 2ea920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 6b 65 6f 66 66 29 29 0a 20 20 20 | ...................takeoff)).... |
| 2ea940 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 74 20 28 73 69 74 2d 66 6f 72 20 31 29 | ............(while.t.(sit-for.1) |
| 2ea960 | 29 29 29 29 29 29 0a 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 | )))))).....(unwind-protect...... |
| 2ea980 | 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 | ...(progn...........(with-temp-b |
| 2ea9a0 | 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 20 23 27 69 6e 73 65 72 74 | uffer.............(mapc.#'insert |
| 2ea9c0 | 20 28 6d 61 70 63 61 72 20 23 27 70 70 2d 74 6f 2d 73 74 72 69 6e 67 20 74 65 73 74 2d 66 6f 72 | .(mapcar.#'pp-to-string.test-for |
| 2ea9e0 | 6d 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 72 69 74 65 2d 66 69 6c 65 20 74 65 73 | ms)).............(write-file.tes |
| 2eaa00 | 74 2d 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 | t-file))...........(with-temp-bu |
| 2eaa20 | 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 74 76 61 6c 0a 20 | ffer.............(let.((retval.. |
| 2eaa40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 | ..................(call-process. |
| 2eaa60 | 28 63 6f 6e 63 61 74 20 69 6e 76 6f 63 61 74 69 6f 6e 2d 64 69 72 65 63 74 6f 72 79 20 69 6e 76 | (concat.invocation-directory.inv |
| 2eaa80 | 6f 63 61 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ocation-name)................... |
| 2eaaa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 28 6c 69 73 74 20 74 20 6e 69 6c 29 20 | ...............nil.(list.t.nil). |
| 2eaac0 | 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nil............................. |
| 2eaae0 | 20 20 20 20 20 22 2d 51 22 20 22 2d 2d 62 61 74 63 68 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ....."-Q"."--batch"............. |
| 2eab00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 6c 22 20 74 65 73 74 2d 66 | ....................."-l".test-f |
| 2eab20 | 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 3d 20 | ile)))...............(unless.(=. |
| 2eab40 | 30 20 72 65 74 76 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 74 2d 66 | 0.retval).................(ert-f |
| 2eab60 | 61 69 6c 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 | ail.(buffer-substring........... |
| 2eab80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2b 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | .................(+.(goto-char.( |
| 2eaba0 | 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | point-min))..................... |
| 2eabc0 | 20 20 20 20 20 20 20 20 20 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 | ..........(skip-chars-forward.". |
| 2eabe0 | 5c 74 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | \t\n"))......................... |
| 2eac00 | 20 20 20 28 2b 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 | ...(+.(goto-char.(point-max))... |
| 2eac20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6b 69 | ............................(ski |
| 2eac40 | 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 5c 74 5c 6e 22 29 29 29 29 29 29 29 0a | p-chars-backward.".\t\n"))))))). |
| 2eac60 | 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 75 63 63 65 73 73 20 74 29 29 0a 20 20 20 20 | ..........(setq.success.t))..... |
| 2eac80 | 20 20 28 69 66 20 73 75 63 63 65 73 73 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 74 65 73 74 2d | ..(if.success.(delete-file.test- |
| 2eaca0 | 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 54 65 73 74 20 66 61 69 | file).........(message."Test.fai |
| 2eacc0 | 6c 65 64 3a 20 6b 65 65 70 69 6e 67 20 25 73 20 66 6f 72 20 69 6e 73 70 65 63 74 69 6f 6e 22 20 | led:.keeping.%s.for.inspection". |
| 2eace0 | 74 65 73 74 2d 66 69 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 65 72 | test-file)))))..(define-slime-er |
| 2ead00 | 74 2d 74 65 73 74 20 72 65 61 64 6d 65 2d 72 65 63 69 70 65 20 28 29 0a 20 20 22 54 65 73 74 20 | t-test.readme-recipe.()..."Test. |
| 2ead20 | 74 68 65 20 52 45 41 44 4d 45 2e 6d 64 27 73 20 61 75 74 6f 6c 6f 61 64 20 72 65 63 69 70 65 2e | the.README.md's.autoload.recipe. |
| 2ead40 | 22 0a 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 72 65 63 69 70 65 2d 74 65 73 74 2d 66 6f 72 0a | "...(slime-test-recipe-test-for. |
| 2ead60 | 20 20 20 3a 70 72 65 66 6c 69 67 68 74 20 60 28 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f | ...:preflight.`((add-to-list.'lo |
| 2ead80 | 61 64 2d 70 61 74 68 20 2c 73 6c 69 6d 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ad-path.,slime-path)............ |
| 2eada0 | 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 61 75 74 6f 6c 6f 61 64 73 29 0a | .....(require.'slime-autoloads). |
| 2eadc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 6e 66 65 72 69 6f 72 2d 6c | ................(setq.inferior-l |
| 2eade0 | 69 73 70 2d 70 72 6f 67 72 61 6d 20 2c 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 | isp-program.,inferior-lisp-progr |
| 2eae00 | 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 6c 69 6d 65 2d | am).................(setq.slime- |
| 2eae20 | 63 6f 6e 74 72 69 62 73 20 27 28 73 6c 69 6d 65 2d 66 61 6e 63 79 29 29 29 0a 20 20 20 3a 74 61 | contribs.'(slime-fancy)))....:ta |
| 2eae40 | 6b 65 6f 66 66 20 60 28 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 73 6c 69 | keoff.`((call-interactively.'sli |
| 2eae60 | 6d 65 29 29 0a 20 20 20 3a 6c 61 6e 64 69 6e 67 20 60 28 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 | me))....:landing.`((unless.(and. |
| 2eae80 | 28 66 65 61 74 75 72 65 70 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a 20 20 20 20 20 20 20 20 20 | (featurep.'slime-repl).......... |
| 2eaea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 66 69 6e 64 20 27 73 77 61 6e | ..................(cl-find.'swan |
| 2eaec0 | 6b 2d 72 65 70 6c 20 73 6c 69 6d 65 2d 72 65 71 75 69 72 65 64 2d 6d 6f 64 75 6c 65 73 29 29 0a | k-repl.slime-required-modules)). |
| 2eaee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 65 20 22 73 6c 69 6d 65 2d 72 65 70 6c | ................(die."slime-repl |
| 2eaf00 | 20 6e 6f 74 20 6c 6f 61 64 65 64 20 70 72 6f 70 65 72 6c 79 22 29 29 0a 20 20 20 20 20 20 20 20 | .not.loaded.properly"))......... |
| 2eaf20 | 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d | ......(with-current-buffer.(slim |
| 2eaf40 | 65 2d 72 65 70 6c 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | e-repl-buffer).................( |
| 2eaf60 | 75 6e 6c 65 73 73 20 28 61 6e 64 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 3b 20 2b 53 | unless.(and.(string-match."^;.+S |
| 2eaf80 | 4c 49 4d 45 22 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 | LIME".(buffer-string)).......... |
| 2eafa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 | ....................(string-matc |
| 2eafc0 | 68 20 22 43 4c 2d 55 53 45 52 3e 20 2a 24 22 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 | h."CL-USER>.*$".(buffer-string)) |
| 2eafe0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 65 20 22 52 45 50 4c 20 70 | )...................(die."REPL.p |
| 2eb000 | 72 6f 6d 70 74 20 6e 6f 74 20 70 72 6f 70 65 72 6c 79 20 73 65 74 75 70 22 0a 20 20 20 20 20 20 | rompt.not.properly.setup"....... |
| 2eb020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 | .................(buffer-substri |
| 2eb040 | 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 | ng-no-properties.(point-min).... |
| 2eb060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2eb080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 | ....................(point-max)) |
| 2eb0a0 | 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c 69 6d 65 2d 65 72 74 2d 74 65 73 74 20 74 | ))))))..(define-slime-ert-test.t |
| 2eb0c0 | 72 61 64 69 74 69 6f 6e 61 6c 2d 72 65 63 69 70 65 20 28 29 0a 20 20 22 54 65 73 74 20 74 68 65 | raditional-recipe.()..."Test.the |
| 2eb0e0 | 20 52 45 41 44 4d 45 2e 6d 64 27 73 20 74 72 61 64 69 74 69 6f 6e 61 6c 20 72 65 63 69 70 65 2e | .README.md's.traditional.recipe. |
| 2eb100 | 22 0a 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 72 65 63 69 70 65 2d 74 65 73 74 2d 66 6f 72 0a | "...(slime-test-recipe-test-for. |
| 2eb120 | 20 20 20 3a 70 72 65 66 6c 69 67 68 74 20 60 28 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f | ...:preflight.`((add-to-list.'lo |
| 2eb140 | 61 64 2d 70 61 74 68 20 2c 73 6c 69 6d 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ad-path.,slime-path)............ |
| 2eb160 | 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | .....(require.'slime)........... |
| 2eb180 | 20 20 20 20 20 20 28 73 65 74 71 20 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 | ......(setq.inferior-lisp-progra |
| 2eb1a0 | 6d 20 2c 69 6e 66 65 72 69 6f 72 2d 6c 69 73 70 2d 70 72 6f 67 72 61 6d 29 0a 20 20 20 20 20 20 | m.,inferior-lisp-program)....... |
| 2eb1c0 | 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 73 65 74 75 70 20 27 28 73 6c 69 6d 65 2d 66 | ..........(slime-setup.'(slime-f |
| 2eb1e0 | 61 6e 63 79 29 29 29 0a 20 20 20 3a 74 61 6b 65 6f 66 66 20 60 28 28 63 61 6c 6c 2d 69 6e 74 65 | ancy)))....:takeoff.`((call-inte |
| 2eb200 | 72 61 63 74 69 76 65 6c 79 20 27 73 6c 69 6d 65 29 29 0a 20 20 20 3a 6c 61 6e 64 69 6e 67 20 60 | ractively.'slime))....:landing.` |
| 2eb220 | 28 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 28 66 65 61 74 75 72 65 70 20 27 73 6c 69 6d 65 2d 72 | ((unless.(and.(featurep.'slime-r |
| 2eb240 | 65 70 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | epl)............................ |
| 2eb260 | 28 63 6c 2d 66 69 6e 64 20 27 73 77 61 6e 6b 2d 72 65 70 6c 20 73 6c 69 6d 65 2d 72 65 71 75 69 | (cl-find.'swank-repl.slime-requi |
| 2eb280 | 72 65 64 2d 6d 6f 64 75 6c 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | red-modules)).................(d |
| 2eb2a0 | 69 65 20 22 73 6c 69 6d 65 2d 72 65 70 6c 20 6e 6f 74 20 6c 6f 61 64 65 64 20 70 72 6f 70 65 72 | ie."slime-repl.not.loaded.proper |
| 2eb2c0 | 6c 79 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e | ly"))...............(with-curren |
| 2eb2e0 | 74 2d 62 75 66 66 65 72 20 28 73 6c 69 6d 65 2d 72 65 70 6c 2d 62 75 66 66 65 72 29 0a 20 20 20 | t-buffer.(slime-repl-buffer).... |
| 2eb300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 28 73 74 72 69 6e | .............(unless.(and.(strin |
| 2eb320 | 67 2d 6d 61 74 63 68 20 22 5e 3b 20 2b 53 4c 49 4d 45 22 20 28 62 75 66 66 65 72 2d 73 74 72 69 | g-match."^;.+SLIME".(buffer-stri |
| 2eb340 | 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng))............................ |
| 2eb360 | 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 43 4c 2d 55 53 45 52 3e 20 2a 24 22 20 28 62 | ..(string-match."CL-USER>.*$".(b |
| 2eb380 | 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uffer-string)))................. |
| 2eb3a0 | 20 20 28 64 69 65 20 22 52 45 50 4c 20 70 72 6f 6d 70 74 20 6e 6f 74 20 70 72 6f 70 65 72 6c 79 | ..(die."REPL.prompt.not.properly |
| 2eb3c0 | 20 73 65 74 75 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .setup"........................( |
| 2eb3e0 | 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 | buffer-substring-no-properties.( |
| 2eb400 | 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | point-min)...................... |
| 2eb420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2eb440 | 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 73 6c | ..(point-max))))))))..(define-sl |
| 2eb460 | 69 6d 65 2d 65 72 74 2d 74 65 73 74 20 72 65 61 64 6d 65 2d 72 65 63 69 70 65 2d 61 75 74 6f 6c | ime-ert-test.readme-recipe-autol |
| 2eb480 | 6f 61 64 2d 6f 6e 2d 6c 69 73 70 2d 76 69 73 69 74 20 28 29 0a 20 20 22 54 65 73 74 20 6d 6f 72 | oad-on-lisp-visit.()..."Test.mor |
| 2eb4a0 | 65 20 61 75 74 6f 6c 6f 61 64 20 62 69 74 73 20 69 6e 20 52 45 41 44 4d 45 2e 6d 64 27 73 20 69 | e.autoload.bits.in.README.md's.i |
| 2eb4c0 | 6e 73 74 61 6c 6c 61 74 69 6f 6e 20 72 65 63 69 70 65 2e 22 0a 20 20 28 73 6c 69 6d 65 2d 74 65 | nstallation.recipe."...(slime-te |
| 2eb4e0 | 73 74 2d 72 65 63 69 70 65 2d 74 65 73 74 2d 66 6f 72 0a 20 20 20 3a 70 72 65 66 6c 69 67 68 74 | st-recipe-test-for....:preflight |
| 2eb500 | 20 60 28 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 6f 61 64 2d 70 61 74 68 20 2c 73 6c 69 6d | .`((add-to-list.'load-path.,slim |
| 2eb520 | 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 | e-path).................(require |
| 2eb540 | 20 27 73 6c 69 6d 65 2d 61 75 74 6f 6c 6f 61 64 73 29 29 0a 20 20 20 3a 74 61 6b 65 6f 66 66 20 | .'slime-autoloads))....:takeoff. |
| 2eb560 | 60 28 28 69 66 20 28 66 65 61 74 75 72 65 70 20 27 73 6c 69 6d 65 29 0a 20 20 20 20 20 20 20 20 | `((if.(featurep.'slime)......... |
| 2eb580 | 20 20 20 20 20 20 20 20 20 20 28 64 69 65 20 22 44 69 64 6e 27 74 20 65 78 70 65 63 74 20 53 4c | ..........(die."Didn't.expect.SL |
| 2eb5a0 | 49 4d 45 20 74 6f 20 62 65 20 6c 6f 61 64 65 64 20 73 6f 20 65 61 72 6c 79 21 22 29 29 0a 20 20 | IME.to.be.loaded.so.early!"))... |
| 2eb5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 2c 28 6d 61 6b 65 2d 74 65 | ............(find-file.,(make-te |
| 2eb5e0 | 6d 70 2d 66 69 6c 65 20 22 73 6c 69 6d 65 2d 6c 69 73 70 2d 73 6f 75 72 63 65 2d 66 69 6c 65 22 | mp-file."slime-lisp-source-file" |
| 2eb600 | 20 6e 69 6c 0a 09 09 09 09 09 20 20 22 2e 6c 69 73 70 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .nil........".lisp"))........... |
| 2eb620 | 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 65 61 74 75 72 65 70 20 27 73 6c 69 6d 65 29 0a 20 20 | ....(unless.(featurep.'slime)... |
| 2eb640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 65 20 22 45 78 70 65 63 74 65 64 20 53 4c 49 | ..............(die."Expected.SLI |
| 2eb660 | 4d 45 20 74 6f 20 62 65 20 66 75 6c 6c 79 20 6c 6f 61 64 65 64 20 62 79 20 6e 6f 77 22 29 29 29 | ME.to.be.fully.loaded.by.now"))) |
| 2eb680 | 29 29 0a 0a 28 64 65 66 75 6e 20 73 6c 69 6d 65 2d 74 65 73 74 2d 65 76 61 6c 2d 6e 6f 77 20 28 | ))..(defun.slime-test-eval-now.( |
| 2eb6a0 | 73 74 72 69 6e 67 29 0a 20 20 28 63 6c 2d 73 65 63 6f 6e 64 20 28 73 6c 69 6d 65 2d 65 76 61 6c | string)...(cl-second.(slime-eval |
| 2eb6c0 | 20 60 28 73 77 61 6e 6b 3a 65 76 61 6c 2d 61 6e 64 2d 67 72 61 62 2d 6f 75 74 70 75 74 20 2c 73 | .`(swank:eval-and-grab-output.,s |
| 2eb6e0 | 74 72 69 6e 67 29 29 29 29 0a 0a 28 64 65 66 2d 73 6c 69 6d 65 2d 74 65 73 74 20 28 73 6c 69 6d | tring))))..(def-slime-test.(slim |
| 2eb700 | 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 61 6c 6c 2d 78 72 65 66 73 20 28 3a 66 61 69 6c 73 2d 66 6f | e-recompile-all-xrefs.(:fails-fo |
| 2eb720 | 72 20 22 63 6d 75 63 6c 22 29 29 20 28 29 0a 20 20 22 54 65 73 74 20 72 65 63 6f 6d 70 69 6c 61 | r."cmucl")).()..."Test.recompila |
| 2eb740 | 74 69 6f 6e 20 6f 66 20 61 6c 6c 20 72 65 66 65 72 65 6e 63 65 73 20 77 69 74 68 69 6e 20 61 6e | tion.of.all.references.within.an |
| 2eb760 | 20 78 72 65 66 20 62 75 66 66 65 72 2e 22 0a 20 20 27 28 28 29 29 0a 20 20 28 6c 65 74 2a 20 28 | .xref.buffer."...'(())...(let*.( |
| 2eb780 | 28 63 65 6c 6c 20 28 63 6f 6e 73 20 6e 69 6c 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 | (cell.(cons.nil.nil))..........( |
| 2eb7a0 | 68 6f 6f 6b 20 28 73 6c 69 6d 65 2d 63 75 72 72 79 20 28 6c 61 6d 62 64 61 20 28 63 65 6c 6c 20 | hook.(slime-curry.(lambda.(cell. |
| 2eb7c0 | 26 72 65 73 74 20 5f 29 20 28 73 65 74 63 61 72 20 63 65 6c 6c 20 74 29 29 20 63 65 6c 6c 29 29 | &rest._).(setcar.cell.t)).cell)) |
| 2eb7e0 | 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 6e 61 6d 65 20 28 6d 61 6b 65 2d 74 65 6d 70 2d 66 | ..........(filename.(make-temp-f |
| 2eb800 | 69 6c 65 20 22 73 6c 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 61 6c 6c 2d 78 72 65 66 73 22 20 | ile."slime-recompile-all-xrefs". |
| 2eb820 | 6e 69 6c 20 22 2e 6c 69 73 70 22 29 29 29 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 73 6c | nil.".lisp"))).....(add-hook.'sl |
| 2eb840 | 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 68 6f 6f 6b 20 68 6f | ime-compilation-finished-hook.ho |
| 2eb860 | 6f 6b 29 0a 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 | ok).....(unwind-protect......... |
| 2eb880 | 20 28 77 69 74 68 2d 74 65 6d 70 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 | .(with-temp-file.filename....... |
| 2eb8a0 | 20 20 20 20 20 28 73 65 74 2d 76 69 73 69 74 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 | .....(set-visited-file-name.file |
| 2eb8c0 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 76 61 | name)............(slime-test-eva |
| 2eb8e0 | 6c 2d 6e 6f 77 20 22 28 64 65 66 70 61 72 61 6d 65 74 65 72 20 73 77 61 6e 6b 3a 3a 2a 2e 76 61 | l-now."(defparameter.swank::*.va |
| 2eb900 | 72 2e 2a 20 6e 69 6c 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 28 | r.*.nil)")............(insert."( |
| 2eb920 | 69 6e 2d 70 61 63 6b 61 67 65 20 3a 73 77 61 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | in-package.:swank).............. |
| 2eb940 | 20 20 20 20 20 20 20 28 64 65 66 75 6e 20 2e 66 6e 31 2e 20 28 29 29 0a 20 20 20 20 20 20 20 20 | .......(defun..fn1..())......... |
| 2eb960 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 75 6e 20 2e 66 6e 32 2e 20 28 29 20 28 2e 66 6e | ............(defun..fn2..().(.fn |
| 2eb980 | 31 2e 29 20 23 2e 2a 2e 76 61 72 2e 2a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1.).#.*.var.*).................. |
| 2eb9a0 | 20 20 20 28 64 65 66 75 6e 20 2e 66 6e 33 2e 20 28 29 20 28 2e 66 6e 31 2e 29 20 23 2e 2a 2e 76 | ...(defun..fn3..().(.fn1.).#.*.v |
| 2eb9c0 | 61 72 2e 2a 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 62 75 66 66 65 72 29 | ar.*)")............(save-buffer) |
| 2eb9e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 65 2d 61 6e 64 2d 6c | ............(slime-compile-and-l |
| 2eba00 | 6f 61 64 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 | oad-file)............(slime-wait |
| 2eba20 | 2d 63 6f 6e 64 69 74 69 6f 6e 20 22 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 66 69 6e 69 73 68 65 64 | -condition."Compilation.finished |
| 2eba40 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "............................... |
| 2eba60 | 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 61 72 20 63 65 6c 6c 29 29 0a 20 20 20 20 20 20 | ...(lambda.().(car.cell))....... |
| 2eba80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 29 0a 20 20 | ...........................5)... |
| 2ebaa0 | 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 76 61 6c 2d 6e 6f 77 20 22 28 | .........(slime-test-eval-now."( |
| 2ebac0 | 73 65 74 71 20 2a 2e 76 61 72 2e 2a 20 74 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | setq.*.var.*.t)")............(se |
| 2ebae0 | 74 63 61 72 20 63 65 6c 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 | tcar.cell.nil)............(slime |
| 2ebb00 | 2d 78 72 65 66 20 3a 63 61 6c 6c 73 20 22 2e 66 6e 31 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 | -xref.:calls.".fn1."............ |
| 2ebb20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 61 72 67 73 29 | ............(lambda.(&rest.args) |
| 2ebb40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 | ..........................(apply |
| 2ebb60 | 20 23 27 73 6c 69 6d 65 2d 73 68 6f 77 2d 78 72 65 66 73 20 61 72 67 73 29 0a 20 20 20 20 20 20 | .#'slime-show-xrefs.args)....... |
| 2ebb80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 63 61 72 20 63 65 6c 6c 20 | ...................(setcar.cell. |
| 2ebba0 | 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 | t)))............(slime-wait-cond |
| 2ebbc0 | 69 74 69 6f 6e 20 22 58 72 65 66 73 20 63 6f 6d 70 75 74 65 64 20 61 6e 64 20 64 69 73 70 6c 61 | ition."Xrefs.computed.and.displa |
| 2ebbe0 | 79 65 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | yed"............................ |
| 2ebc00 | 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 61 72 20 63 65 6c 6c 29 29 0a 20 20 20 | ......(lambda.().(car.cell)).... |
| 2ebc20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 29 | ..............................5) |
| 2ebc40 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 63 61 72 20 63 65 6c 6c 20 6e 69 6c 29 0a 20 20 | ............(setcar.cell.nil)... |
| 2ebc60 | 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 73 6c | .........(with-current-buffer.sl |
| 2ebc80 | 69 6d 65 2d 78 72 65 66 2d 6c 61 73 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 | ime-xref-last-buffer............ |
| 2ebca0 | 20 20 28 73 6c 69 6d 65 2d 72 65 63 6f 6d 70 69 6c 65 2d 61 6c 6c 2d 78 72 65 66 73 29 0a 20 20 | ..(slime-recompile-all-xrefs)... |
| 2ebcc0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 6c 69 6d 65 2d 77 61 69 74 2d 63 6f 6e 64 69 74 69 6f 6e | ...........(slime-wait-condition |
| 2ebce0 | 20 22 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 66 69 6e 69 73 68 65 64 22 0a 20 20 20 20 20 20 20 20 | ."Compilation.finished"......... |
| 2ebd00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 | ...........................(lamb |
| 2ebd20 | 64 61 20 28 29 20 28 63 61 72 20 63 65 6c 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | da.().(car.cell))............... |
| 2ebd40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 29 29 0a 20 20 20 20 20 20 20 | .....................5))........ |
| 2ebd60 | 20 20 20 20 28 73 68 6f 75 6c 64 20 28 63 6c 2d 65 71 75 61 6c 70 20 28 6c 69 73 74 20 28 73 6c | ....(should.(cl-equalp.(list.(sl |
| 2ebd80 | 69 6d 65 2d 74 65 73 74 2d 65 76 61 6c 2d 6e 6f 77 20 22 28 2e 66 6e 32 2e 29 22 29 0a 20 20 20 | ime-test-eval-now."(.fn2.)").... |
| 2ebda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2ebdc0 | 20 28 73 6c 69 6d 65 2d 74 65 73 74 2d 65 76 61 6c 2d 6e 6f 77 20 22 28 2e 66 6e 33 2e 29 22 29 | .(slime-test-eval-now."(.fn3.)") |
| 2ebde0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 2ebe00 | 27 28 22 54 22 20 22 54 22 29 29 29 29 0a 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b | '("T"."T")))).......(remove-hook |
| 2ebe20 | 20 27 73 6c 69 6d 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 69 6e 69 73 68 65 64 2d 68 6f 6f | .'slime-compilation-finished-hoo |
| 2ebe40 | 6b 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 6c 69 6d 65 2d 78 72 65 66 2d 6c | k.hook).......(when.slime-xref-l |
| 2ebe60 | 61 73 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 | ast-buffer.........(kill-buffer. |
| 2ebe80 | 73 6c 69 6d 65 2d 78 72 65 66 2d 6c 61 73 74 2d 62 75 66 66 65 72 29 29 29 29 29 0a 0a 28 70 72 | slime-xref-last-buffer)))))..(pr |
| 2ebea0 | 6f 76 69 64 65 20 27 73 6c 69 6d 65 2d 74 65 73 74 73 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 | ovide.'slime-tests)............. |
| 2ebec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ebee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ebf00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ebf20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ebf40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ebf60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ebf80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ebfa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ebfc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ebfe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec000 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 77 61 6e 6b 2e 61 73 64 00 00 00 00 00 00 00 00 00 00 00 00 | slime-2.31/swank.asd............ |
| 2ec020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 2ec080 | 30 30 30 37 31 35 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 30 33 33 00 20 30 00 00 00 | 0007155.00000000000.013033..0... |
| 2ec0a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec0c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec0e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 2ec120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 2ec140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ec200 | 3b 3b 3b 20 2d 2a 2d 20 6c 69 73 70 20 2d 2a 2d 0a 0a 3b 3b 20 41 53 44 46 20 73 79 73 74 65 6d | ;;;.-*-.lisp.-*-..;;.ASDF.system |
| 2ec220 | 20 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 20 6c 6f 61 64 69 6e 67 20 74 68 65 20 53 77 61 6e | .definition.for.loading.the.Swan |
| 2ec240 | 6b 20 73 65 72 76 65 72 20 69 6e 64 65 70 65 6e 64 65 6e 74 6c 79 0a 3b 3b 20 6f 66 20 45 6d 61 | k.server.independently.;;.of.Ema |
| 2ec260 | 63 73 2e 0a 3b 3b 0a 3b 3b 20 54 68 69 73 20 69 73 20 6f 6e 6c 79 20 75 73 65 66 75 6c 20 69 66 | cs..;;.;;.This.is.only.useful.if |
| 2ec280 | 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 73 74 61 72 74 20 61 20 53 77 61 6e 6b 20 73 65 72 76 65 | .you.want.to.start.a.Swank.serve |
| 2ec2a0 | 72 20 69 6e 20 61 20 4c 69 73 70 0a 3b 3b 20 70 72 6f 63 65 73 73 65 73 20 74 68 61 74 20 64 6f | r.in.a.Lisp.;;.processes.that.do |
| 2ec2c0 | 65 73 6e 27 74 20 72 75 6e 20 75 6e 64 65 72 20 45 6d 61 63 73 2e 20 4c 69 73 70 20 70 72 6f 63 | esn't.run.under.Emacs..Lisp.proc |
| 2ec2e0 | 65 73 73 65 73 20 63 72 65 61 74 65 64 20 62 79 0a 3b 3b 20 60 4d 2d 78 20 73 6c 69 6d 65 27 20 | esses.created.by.;;.`M-x.slime'. |
| 2ec300 | 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 74 61 72 74 20 74 68 65 20 73 65 72 76 65 72 2e 0a | automatically.start.the.server.. |
| 2ec320 | 0a 3b 3b 20 55 73 61 67 65 3a 0a 3b 3b 0a 3b 3b 20 20 20 28 61 73 64 66 3a 6c 6f 61 64 2d 73 79 | .;;.Usage:.;;.;;...(asdf:load-sy |
| 2ec340 | 73 74 65 6d 20 3a 73 77 61 6e 6b 29 0a 3b 3b 20 20 20 28 73 77 61 6e 6b 3a 63 72 65 61 74 65 2d | stem.:swank).;;...(swank:create- |
| 2ec360 | 73 65 72 76 65 72 20 3a 64 6f 6e 74 2d 63 6c 6f 73 65 20 74 29 0a 3b 3b 0a 3b 3b 20 41 66 74 65 | server.:dont-close.t).;;.;;.Afte |
| 2ec380 | 72 20 77 68 69 63 68 2c 20 74 68 65 20 53 77 61 6e 6b 20 73 65 72 76 65 72 20 69 73 20 72 75 6e | r.which,.the.Swank.server.is.run |
| 2ec3a0 | 6e 69 6e 67 20 6f 6e 20 6c 6f 63 61 6c 68 6f 73 74 3a 34 30 30 35 2e 20 59 6f 75 20 63 61 6e 0a | ning.on.localhost:4005..You.can. |
| 2ec3c0 | 3b 3b 20 75 73 65 20 60 4d 2d 78 20 73 6c 69 6d 65 2d 63 6f 6e 6e 65 63 74 27 20 74 6f 20 63 6f | ;;.use.`M-x.slime-connect'.to.co |
| 2ec3e0 | 6e 6e 65 63 74 20 45 6d 61 63 73 20 74 6f 20 69 74 2e 0a 3b 3b 0a 3b 3b 20 54 68 69 73 20 63 6f | nnect.Emacs.to.it..;;.;;.This.co |
| 2ec400 | 64 65 20 68 61 73 20 62 65 65 6e 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 50 75 62 6c 69 63 | de.has.been.placed.in.the.Public |
| 2ec420 | 20 44 6f 6d 61 69 6e 2e 20 20 41 6c 6c 20 77 61 72 72 61 6e 74 69 65 73 0a 3b 3b 20 61 72 65 20 | .Domain...All.warranties.;;.are. |
| 2ec440 | 64 69 73 63 6c 61 69 6d 65 64 2e 0a 0a 28 61 73 64 66 3a 64 65 66 73 79 73 74 65 6d 20 22 73 77 | disclaimed...(asdf:defsystem."sw |
| 2ec460 | 61 6e 6b 22 0a 20 20 3a 70 65 72 66 6f 72 6d 20 28 6c 6f 61 64 2d 6f 70 20 3a 61 66 74 65 72 20 | ank"...:perform.(load-op.:after. |
| 2ec480 | 28 6f 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 28 69 6e 74 65 72 6e | (o.c)...............(set.(intern |
| 2ec4a0 | 20 22 2a 53 4f 55 52 43 45 2d 44 49 52 45 43 54 4f 52 59 2a 22 20 27 73 77 61 6e 6b 2d 6c 6f 61 | ."*SOURCE-DIRECTORY*".'swank-loa |
| 2ec4c0 | 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 73 79 | der)....................(asdf:sy |
| 2ec4e0 | 73 74 65 6d 2d 73 6f 75 72 63 65 2d 64 69 72 65 63 74 6f 72 79 20 3a 73 77 61 6e 6b 29 29 0a 20 | stem-source-directory.:swank)).. |
| 2ec500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 28 69 6e 74 65 72 6e 20 22 2a 46 41 53 4c | .............(set.(intern."*FASL |
| 2ec520 | 2d 44 49 52 45 43 54 4f 52 59 2a 22 20 27 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 29 0a 20 20 20 20 | -DIRECTORY*".'swank-loader)..... |
| 2ec540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 64 66 3a 61 70 70 6c 79 2d 6f 75 74 70 75 | ...............(asdf:apply-outpu |
| 2ec560 | 74 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 28 61 73 64 66 3a 73 79 73 74 65 6d 2d 73 6f 75 72 | t-translations.(asdf:system-sour |
| 2ec580 | 63 65 2d 64 69 72 65 63 74 6f 72 79 20 3a 73 77 61 6e 6b 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ce-directory.:swank))).......... |
| 2ec5a0 | 20 20 20 20 20 28 75 69 6f 70 3a 73 79 6d 62 6f 6c 2d 63 61 6c 6c 20 3a 73 77 61 6e 6b 20 3a 62 | .....(uiop:symbol-call.:swank.:b |
| 2ec5c0 | 65 66 6f 72 65 2d 69 6e 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 69 6f | efore-init..................(uio |
| 2ec5e0 | 70 3a 73 79 6d 62 6f 6c 2d 63 61 6c 6c 20 3a 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 20 3a 73 6c 69 | p:symbol-call.:swank-loader.:sli |
| 2ec600 | 6d 65 2d 76 65 72 73 69 6f 6e 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | me-version-string).............. |
| 2ec620 | 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 69 6f | ....(list...................(uio |
| 2ec640 | 70 3a 73 79 6d 62 6f 6c 2d 63 61 6c 6c 20 3a 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 20 3a 63 6f 6e | p:symbol-call.:swank-loader.:con |
| 2ec660 | 74 72 69 62 2d 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | trib-dir......................(s |
| 2ec680 | 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 28 69 6e 74 65 72 6e 20 22 2a 46 41 53 4c 2d 44 49 52 45 43 | ymbol-value.(intern."*FASL-DIREC |
| 2ec6a0 | 54 4f 52 59 2a 22 20 27 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 | TORY*".'swank-loader)))......... |
| 2ec6c0 | 20 20 20 20 20 20 20 20 20 20 28 75 69 6f 70 3a 73 79 6d 62 6f 6c 2d 63 61 6c 6c 20 3a 73 77 61 | ..........(uiop:symbol-call.:swa |
| 2ec6e0 | 6e 6b 2d 6c 6f 61 64 65 72 20 3a 63 6f 6e 74 72 69 62 2d 64 69 72 0a 20 20 20 20 20 20 20 20 20 | nk-loader.:contrib-dir.......... |
| 2ec700 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 28 69 6e 74 65 72 | ............(symbol-value.(inter |
| 2ec720 | 6e 20 22 2a 53 4f 55 52 43 45 2d 44 49 52 45 43 54 4f 52 59 2a 22 20 27 73 77 61 6e 6b 2d 6c 6f | n."*SOURCE-DIRECTORY*".'swank-lo |
| 2ec740 | 61 64 65 72 29 29 29 29 29 29 0a 20 20 3a 63 6f 6d 70 6f 6e 65 6e 74 73 20 28 28 3a 66 69 6c 65 | ader))))))...:components.((:file |
| 2ec760 | 20 22 73 77 61 6e 6b 2d 6c 6f 61 64 65 72 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ."swank-loader")................ |
| 2ec780 | 28 3a 66 69 6c 65 20 22 70 61 63 6b 61 67 65 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (:file."packages").............. |
| 2ec7a0 | 20 20 28 3a 66 69 6c 65 20 22 78 72 65 66 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 63 6c 69 | ..(:file."xref".:if-feature.:cli |
| 2ec7c0 | 73 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 6d 65 74 65 72 | sp)................(:file."meter |
| 2ec7e0 | 69 6e 67 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 28 3a 6f 72 20 3a 63 6c 6f 7a 75 72 65 20 3a | ing".:if-feature.(:or.:clozure.: |
| 2ec800 | 63 6c 69 73 70 20 3a 63 6c 61 73 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a | clisp.:clasp))................(: |
| 2ec820 | 6d 6f 64 75 6c 65 20 22 62 61 63 6b 65 6e 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | module."backend"................ |
| 2ec840 | 20 3a 70 61 74 68 6e 61 6d 65 20 22 73 77 61 6e 6b 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:pathname."swank".............. |
| 2ec860 | 20 20 20 3a 63 6f 6d 70 6f 6e 65 6e 74 73 20 28 28 3a 66 69 6c 65 20 22 62 61 63 6b 65 6e 64 22 | ...:components.((:file."backend" |
| 2ec880 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | )..............................( |
| 2ec8a0 | 3a 66 69 6c 65 20 22 73 6f 75 72 63 65 2d 70 61 74 68 2d 70 61 72 73 65 72 22 20 3a 69 66 2d 66 | :file."source-path-parser".:if-f |
| 2ec8c0 | 65 61 74 75 72 65 20 28 3a 6f 72 20 3a 63 6d 75 20 3a 73 63 6c 20 3a 73 62 63 6c 29 29 0a 20 20 | eature.(:or.:cmu.:scl.:sbcl))... |
| 2ec8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c | ...........................(:fil |
| 2ec900 | 65 20 22 73 6f 75 72 63 65 2d 66 69 6c 65 2d 63 61 63 68 65 22 20 3a 69 66 2d 66 65 61 74 75 72 | e."source-file-cache".:if-featur |
| 2ec920 | 65 20 28 3a 6f 72 20 3a 63 6d 75 20 3a 73 63 6c 20 3a 73 62 63 6c 29 29 0a 20 20 20 20 20 20 20 | e.(:or.:cmu.:scl.:sbcl))........ |
| 2ec940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 63 6d | ......................(:file."cm |
| 2ec960 | 75 63 6c 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 63 6d 75 29 0a 20 20 20 20 20 20 20 20 20 | ucl".:if-feature.:cmu).......... |
| 2ec980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 63 6c 22 | ....................(:file."scl" |
| 2ec9a0 | 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 73 63 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:if-feature.:scl).............. |
| 2ec9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 62 63 6c 22 20 3a 69 | ................(:file."sbcl".:i |
| 2ec9e0 | 66 2d 66 65 61 74 75 72 65 20 3a 73 62 63 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | f-feature.:sbcl)................ |
| 2eca00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 63 63 6c 22 20 3a 69 66 2d 66 | ..............(:file."ccl".:if-f |
| 2eca20 | 65 61 74 75 72 65 20 3a 63 6c 6f 7a 75 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eature.:clozure)................ |
| 2eca40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 6c 69 73 70 77 6f 72 6b 73 22 | ..............(:file."lispworks" |
| 2eca60 | 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 6c 69 73 70 77 6f 72 6b 73 29 0a 20 20 20 20 20 20 20 | .:if-feature.:lispworks)........ |
| 2eca80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 61 6c | ......................(:file."al |
| 2ecaa0 | 6c 65 67 72 6f 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 61 6c 6c 65 67 72 6f 29 0a 20 20 20 | legro".:if-feature.:allegro).... |
| 2ecac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 | ..........................(:file |
| 2ecae0 | 20 22 63 6c 69 73 70 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 63 6c 69 73 70 29 0a 20 20 20 | ."clisp".:if-feature.:clisp).... |
| 2ecb00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 | ..........................(:file |
| 2ecb20 | 20 22 61 62 63 6c 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 61 72 6d 65 64 62 65 61 72 29 0a | ."abcl".:if-feature.:armedbear). |
| 2ecb40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 | .............................(:f |
| 2ecb60 | 69 6c 65 20 22 63 6f 72 6d 61 6e 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 63 6f 72 6d 61 6e | ile."corman".:if-feature.:corman |
| 2ecb80 | 6c 69 73 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lisp)........................... |
| 2ecba0 | 20 20 20 28 3a 66 69 6c 65 20 22 65 63 6c 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 65 63 6c | ...(:file."ecl".:if-feature.:ecl |
| 2ecbc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | )..............................( |
| 2ecbe0 | 3a 66 69 6c 65 20 22 63 6c 61 73 70 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 63 6c 61 73 70 | :file."clasp".:if-feature.:clasp |
| 2ecc00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | )..............................( |
| 2ecc20 | 3a 66 69 6c 65 20 22 6d 6b 63 6c 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 6d 6b 63 6c 29 0a | :file."mkcl".:if-feature.:mkcl). |
| 2ecc40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 | .............................(:f |
| 2ecc60 | 69 6c 65 20 22 6d 65 7a 7a 61 6e 6f 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 3a 6d 65 7a 7a 61 | ile."mezzano".:if-feature.:mezza |
| 2ecc80 | 6e 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | no)............................. |
| 2ecca0 | 20 28 3a 66 69 6c 65 20 22 67 72 61 79 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(:file."gray")................. |
| 2eccc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 6d 61 74 63 68 22 29 0a 20 20 20 | .............(:file."match").... |
| 2ecce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 | ..........................(:file |
| 2ecd00 | 20 22 72 70 63 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 | ."rpc")))................(:file. |
| 2ecd20 | 22 73 77 61 6e 6b 22 29 29 29 0a 0a 28 61 73 64 66 3a 64 65 66 73 79 73 74 65 6d 20 22 73 77 61 | "swank")))..(asdf:defsystem."swa |
| 2ecd40 | 6e 6b 2f 65 78 74 73 22 0a 20 20 3a 64 65 70 65 6e 64 73 2d 6f 6e 20 28 22 73 77 61 6e 6b 22 29 | nk/exts"...:depends-on.("swank") |
| 2ecd60 | 0a 20 20 3a 70 61 74 68 6e 61 6d 65 20 22 63 6f 6e 74 72 69 62 22 0a 20 20 3a 63 6f 6d 70 6f 6e | ...:pathname."contrib"...:compon |
| 2ecd80 | 65 6e 74 73 20 28 28 3a 66 69 6c 65 20 22 73 77 61 6e 6b 2d 75 74 69 6c 22 29 0a 20 20 20 20 20 | ents.((:file."swank-util")...... |
| 2ecda0 | 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 77 61 6e 6b 2d 72 65 70 6c 22 29 0a 20 | ..........(:file."swank-repl").. |
| 2ecdc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 77 61 6e 6b 2d 63 2d 70 2d | ..............(:file."swank-c-p- |
| 2ecde0 | 63 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 77 61 6e 6b | c")................(:file."swank |
| 2ece00 | 2d 61 72 67 6c 69 73 74 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c | -arglists")................(:fil |
| 2ece20 | 65 20 22 73 77 61 6e 6b 2d 66 75 7a 7a 79 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e."swank-fuzzy")................ |
| 2ece40 | 28 3a 66 69 6c 65 20 22 73 77 61 6e 6b 2d 66 61 6e 63 79 2d 69 6e 73 70 65 63 74 6f 72 22 29 0a | (:file."swank-fancy-inspector"). |
| 2ece60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 77 61 6e 6b 2d 70 72 65 | ...............(:file."swank-pre |
| 2ece80 | 73 65 6e 74 61 74 69 6f 6e 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 | sentations")................(:fi |
| 2ecea0 | 6c 65 20 22 73 77 61 6e 6b 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 73 74 72 65 61 6d 73 22 29 | le."swank-presentation-streams") |
| 2ecec0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 77 61 6e 6b 2d 61 73 | ................(:file."swank-as |
| 2ecee0 | 64 66 22 20 3a 69 66 2d 66 65 61 74 75 72 65 20 28 3a 6f 72 20 3a 61 73 64 66 32 20 3a 61 73 64 | df".:if-feature.(:or.:asdf2.:asd |
| 2ecf00 | 66 33 20 3a 73 62 63 6c 20 3a 65 63 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | f3.:sbcl.:ecl))................( |
| 2ecf20 | 3a 66 69 6c 65 20 22 73 77 61 6e 6b 2d 70 61 63 6b 61 67 65 2d 66 75 22 29 0a 20 20 20 20 20 20 | :file."swank-package-fu")....... |
| 2ecf40 | 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 77 61 6e 6b 2d 68 79 70 65 72 64 6f 63 22 | .........(:file."swank-hyperdoc" |
| 2ecf60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 77 61 6e 6b 2d 69 | )................(:file."swank-i |
| 2ecf80 | 6e 64 65 6e 74 61 74 69 6f 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 | ndentation")................(:fi |
| 2ecfa0 | 6c 65 20 22 73 77 61 6e 6b 2d 73 62 63 6c 2d 65 78 74 73 22 20 3a 69 66 2d 66 65 61 74 75 72 65 | le."swank-sbcl-exts".:if-feature |
| 2ecfc0 | 20 3a 73 62 63 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 | .:sbcl)................(:file."s |
| 2ecfe0 | 77 61 6e 6b 2d 6d 72 65 70 6c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 | wank-mrepl")................(:fi |
| 2ed000 | 6c 65 20 22 73 77 61 6e 6b 2d 74 72 61 63 65 2d 64 69 61 6c 6f 67 22 29 0a 20 20 20 20 20 20 20 | le."swank-trace-dialog")........ |
| 2ed020 | 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 77 61 6e 6b 2d 6d 61 63 72 6f 73 74 65 70 22 | ........(:file."swank-macrostep" |
| 2ed040 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 66 69 6c 65 20 22 73 77 61 6e 6b 2d 71 | )................(:file."swank-q |
| 2ed060 | 75 69 63 6b 6c 69 73 70 22 29 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | uicklisp"))).................... |
| 2ed080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed0a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed0c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed0e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed200 | 73 6c 69 6d 65 2d 32 2e 33 31 2f 73 74 61 72 74 2d 73 77 61 6e 6b 2e 6c 69 73 70 00 00 00 00 00 | slime-2.31/start-swank.lisp..... |
| 2ed220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 2ed280 | 30 30 30 31 32 36 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 33 35 37 00 20 30 00 00 00 | 0001262.00000000000.014357..0... |
| 2ed2a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed2c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 2ed320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 2ed340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed400 | 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 69 6e 74 65 6e 64 65 64 20 74 6f 20 62 65 20 | ;;;.This.file.is.intended.to.be. |
| 2ed420 | 6c 6f 61 64 65 64 20 62 79 20 61 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 74 6f 0a 3b | loaded.by.an.implementation.to.; |
| 2ed440 | 3b 3b 20 67 65 74 20 61 20 72 75 6e 6e 69 6e 67 20 73 77 61 6e 6b 20 73 65 72 76 65 72 0a 3b 3b | ;;.get.a.running.swank.server.;; |
| 2ed460 | 3b 20 65 2e 67 2e 20 73 62 63 6c 20 2d 2d 6c 6f 61 64 20 73 74 61 72 74 2d 73 77 61 6e 6b 2e 6c | ;.e.g..sbcl.--load.start-swank.l |
| 2ed480 | 69 73 70 0a 3b 3b 3b 0a 3b 3b 3b 20 44 65 66 61 75 6c 74 20 70 6f 72 74 20 69 73 20 34 30 30 35 | isp.;;;.;;;.Default.port.is.4005 |
| 2ed4a0 | 0a 0a 3b 3b 3b 20 46 6f 72 20 61 64 64 69 74 69 6f 6e 61 6c 20 73 77 61 6e 6b 2d 73 69 64 65 20 | ..;;;.For.additional.swank-side. |
| 2ed4c0 | 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 73 20 73 65 65 0a 3b 3b 3b 20 36 2e 32 20 73 65 63 74 69 | configurations.see.;;;.6.2.secti |
| 2ed4e0 | 6f 6e 20 6f 66 20 74 68 65 20 53 6c 69 6d 65 20 75 73 65 72 20 6d 61 6e 75 61 6c 2e 0a 0a 28 6c | on.of.the.Slime.user.manual...(l |
| 2ed500 | 6f 61 64 20 28 6d 65 72 67 65 2d 70 61 74 68 6e 61 6d 65 73 20 22 73 77 61 6e 6b 2d 6c 6f 61 64 | oad.(merge-pathnames."swank-load |
| 2ed520 | 65 72 2e 6c 69 73 70 22 20 2a 6c 6f 61 64 2d 74 72 75 65 6e 61 6d 65 2a 29 29 0a 0a 28 73 77 61 | er.lisp".*load-truename*))..(swa |
| 2ed540 | 6e 6b 2d 6c 6f 61 64 65 72 3a 69 6e 69 74 0a 20 3a 64 65 6c 65 74 65 20 6e 69 6c 20 20 20 20 20 | nk-loader:init..:delete.nil..... |
| 2ed560 | 20 20 20 20 3b 20 64 65 6c 65 74 65 20 61 6e 79 20 65 78 69 73 74 69 6e 67 20 53 57 41 4e 4b 20 | ....;.delete.any.existing.SWANK. |
| 2ed580 | 70 61 63 6b 61 67 65 73 0a 20 3a 72 65 6c 6f 61 64 20 6e 69 6c 20 20 20 20 20 20 20 20 20 3b 20 | packages..:reload.nil.........;. |
| 2ed5a0 | 72 65 6c 6f 61 64 20 53 57 41 4e 4b 2c 20 65 76 65 6e 20 69 66 20 74 68 65 20 53 57 41 4e 4b 20 | reload.SWANK,.even.if.the.SWANK. |
| 2ed5c0 | 70 61 63 6b 61 67 65 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 0a 20 3a 6c 6f 61 64 2d 63 6f | package.already.exists..:load-co |
| 2ed5e0 | 6e 74 72 69 62 73 20 6e 69 6c 29 20 3b 20 6c 6f 61 64 20 61 6c 6c 20 63 6f 6e 74 72 69 62 73 0a | ntribs.nil).;.load.all.contribs. |
| 2ed600 | 0a 28 73 77 61 6e 6b 3a 63 72 65 61 74 65 2d 73 65 72 76 65 72 20 3a 70 6f 72 74 20 34 30 30 35 | .(swank:create-server.:port.4005 |
| 2ed620 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 66 20 6e 6f 6e 2d | ......................;;.if.non- |
| 2ed640 | 6e 69 6c 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 6f 6e 27 74 20 62 65 20 63 6c 6f 73 | nil.the.connection.won't.be.clos |
| 2ed660 | 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 66 74 65 72 | ed......................;;.after |
| 2ed680 | 20 63 6f 6e 6e 65 63 74 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .connecting..................... |
| 2ed6a0 | 20 3a 64 6f 6e 74 2d 63 6c 6f 73 65 20 6e 69 6c 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .:dont-close.nil)............... |
| 2ed6c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed6e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed7a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed800 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed8a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ed9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2eda00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2eda20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2eda40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2eda60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2eda80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edaa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edb00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edb20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edc00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edc20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edc40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edc60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edc80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edcc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edd00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edd20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edd40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edd60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edd80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2eddc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ede00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ede20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ede40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ede60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2ede80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edf00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edf20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edf40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edf60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edf80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edfa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edfc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2edfe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
 |
index : dotemacs.git | |
| my Emacs configuration | Craig Jennings |
| summaryrefslogtreecommitdiff |
blob: c36f780c02f3e4f61829fd1863276025f3667025 (plain)